Digital PDFs

AH-F925B-MC

August 1981

309 pages

Original

149MB

view download

OCR Version

197MB

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

OCR Text

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

TST 2

MACRO V04.00

1
B
11:43:33 PAGE 1

4-APR-81

SEQ 0001

.REM

OO0 NP NIUANN
2O 000 NN
D NN -

CZRMNBO RMOS5/3/72 FCTINL

IDENTIFICATION

[4 e T

PRODUCT CODE:

AC=F924B-M(

PRODUCT NAME:

(ZRMNBO

PRODUCT DATE:

APRIL

MAINTAINER:

CX DIAGNCSTIC GROUP

AUTHOR:’

MIKE LEAVITT

RM05/3/2 FUNCTIONAL

TEST, PT 2

1981

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

LICENSE

TERMS OF

AND

MAY

THIS DOCUMENT

WITHOUT
DIGITAL
ASSUMES
MANUAL.

FURNISHED UNDER A

ONLY BE USED OR COPIED IN ACCORDANCE WITH THE

SUCH LICENSE.

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

CZRMNBO RMO5/3/72 FCINL

TST 2

MACRO v04.00

4-APR-81

1
c
11:43:33 PAGE 2
CONTENTS

INTRODUCTION
1.
2.

ABSTRA(T
UNIT UNDER TEST

OPERATING REQUIREMENTS
1.
2.
3.

HARDWARE REQUIREMENTS
MEDIA REQUIREMENTS
PREREQUISITE DIAGNOST!C PROGRAMS

OPERATING PROCEDURE
1.

HALTING

2.
3.
5.

SWITCH OPTIONS
STARTING

RESTARTING

)

NV
S WD =

OPERATOR INTERFACE
PROGRAM 1.D.

CONSOLE DIALOGUE
PROGRESS REPORTS
PERFORMANCE REPORTS
PROGRAM HALTS
;
ERROR REPORTS
EXECUTION TIME

ENVIRONMENTAL SUPPORT

NN
S WD

=OVNO
N NN —=O00 NN WA -2

SEQ 000¢

.
.
.

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

TEST DESCRIPTION

;
1
;
1
;

= OVNOVNHWN—=O
VNP N WA

CZRMNBO RMOS5/3/72 FCINL

22
23

24
52

27
28
29

TST 2

MACRC v04.00

4-APR-87

1
D
11:43:33 PAGE 3

1.0

INTROPUCTION

1.1

ABSTRACT

WHICH

THE

RMO5/3/2

~ USES

RMO5/3/2

DISK

SUBSYSTEM FUNCTIONAL TEST IS A STAND ALONE PROGRAM

FUNCTIONAL

SUBSYSTEM.

MEANS

FOLLOWING PURPOSES:

VERIFY

PARTICULAR,

TO EXPLICITLY ESTABLISH CONFIDENCE

DISK ~ DRIVE,

OPERATIONS;

INCLUDING

MECHANICAL

TO
IMPLICITLY
ESTABLISH
ELECTRICAL INTERFACE;

THE

OPERABILITY

THE

PROGRAM

SERVES

IN THE BASIC OPERATIONS OF

POSITIONING

CONFIDENCE

AND

THE

DATA

THE

THE
THE

TRANSFER

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

SEQUENCE,
STARTING WITH PART 1.
BRIEFLY, PART 1 TESTS HOUSEKEEPING
AND MECHANICAL POSITIONING OPERATIONS;
PART 2 TESTS WRITE,
READ AND

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

PART 3 TESTS WRITE,

1.2

32
33
34
35
36
37
38
39
2?

THE UNIT UNDER TEST (UUT) IS THE RMO5/3/2 DISK SUBSYSTEM WHICH
CONSISTS OF THE RH MASSBUS CONTROLLER,
THE RM05/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.

2.0

:
OPERATING REQUIREMENTS

2.1

HARDWARE REQUIREMENTS

45
29

48
49

50
51
52

UNIT UNDER TEST

THE FOLLOWING

MINIMUM

HARDWARE

OPERATIONAL, IS REQUIRED TO LOAD
FUNCTIONAL TEST:

AND

CONFIGURATION,

EXECUTE

ASSUMED

THE RMO5/3/2 SUBSYSTEM

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 RMO5'S, RMO3'S OR RM02'S)

CZRMNBO RMOS5/3/72 FCINL T5T 2

MACRO v04.00

4-APR-81

.1
E
11:43:33 PAGE 3-1
SEQ 0004

2.2

60
61
62

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.

2.3

RMOS5/3/2 DISKLESS TEST,

RMOS/3/2 FUNCTIONAL TEST, PART 1

72
73
7

3.0

OPERATING PROCEDURE

3.1

PREREQUISITE DIAGNOSTIC PROGRAMS
PART

g 2

]

THE PROGRAM MAY BE LOADED BY EITHER OF

.PAPER TAPE, USING THE STANDARD PAPER TAPE LOADING PROCEDURE.

8%
8

THE FOLLOWING MEDIA:

“XXDP MEDIA. USING THE APPROPRIATE LOADING DEVICE.

3.2

87
8

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

90
31

SW15
SWi4

92
3%
%
95
%

SWi3
SW12
Sw1l
SW10
SW09

SWO8

SWITCH OPTIONS

UTILITY

HALT ON ERROR
LOOP ON TEST (CURRENTLY BEING EXECUTED)

INHIBIT
UNUSED
INMIBIT
BELL ON
LOOP ON

ERROR TYPEOUTS

TEST ITERATIONS

ERROR
ERROR

LOOP ON TEST IN SW07-00

39
100
101
102
103
104
108

THE LOW ORDER 8 SWITCHES (SWO7-SW00), ARE
USED
IN
CONJUNCTION WITH
SW08
TO
SPECIFY
THE OCTAL NUMBER OF THE TEST WHICH THE PROGRAM WILL
LOOP ON.
‘

107
108
109
110

THE
PROGRAM MAY BE STARTED AT LOCATION 200 OR 204.
STARTING AT
200 WILL 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

1%
14

MEDIA REQUIREMENTS

3.3

STARTING

TO CONTROL

TEST CONDITIONS.

CZRMNBO RMOS/3/2 FCTNL

TST 2

MACRO v04.00

4-APR-81

.
11:43:33 PAGE 3-2

3.4

HALTING
THE PROGRAM SHOULD BE HALTED BY TYPING CONTROL

C FROM THE

CONSOLE.

WAN NN N NN N P N N NN PO DL e
e
3
NN
NN =0 Y~
NS NN — OV
~N
N

SEQ 0005

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

3.5

RESTARTING
THE

PROGRAM CAN BE

RESTARTED AT ADDRESS 200 OR 204.

(SEE

SECTION 3.3)

OPERATOR INTERFACE

4.1

PROGRAM ID

BB BN BDDn
ANN=OVR N
B WN =20V

SRR P

4.0

NOTE:

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

OCCUR IF

4.2

IMPROPERLY.

THE PROGRAM IDENTIFICATION AND

THE PROGRAM IS RESTARTED.

THE WARNING DO NOT

CONSOLE DIALOGUE

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

MESSAGE
. (SEE SECTION 4.1)

5
5
15
15
15
;g

THE FIRST QUESTION TYPED QUT IS:
‘‘TYPE HELP TEXT
(L) N ?'.
IF
THE
OPERATOR RESPONDS WITH A "Y'', THE PROGRAM WILL TYPE A BRIEF
HELP MESSAGE WHICH WILL LIST SWITCH OPTIONS, ETC. ANY OTHER RESPONSE
TO THE QUESTION IS CONSIDERED A 'N'' AND NO HELP TEXT IS TYPED. THIS
QUESTION
IS
ONLY ASKED
ON
THE INITIAL PROGRAM
START AND
NOT ON
SUBSEQUENT START-UP'S.

15
;g

W= O VNN

16
}gg

‘}2‘7’
168

;93

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

THE OPERATOR MAY CHANGE THE RH/RM BASE ADDRESSES WITH THE FOLLOWING
DIALOGUE.

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

;NO CHANGE
;NO CHANGE

IN ADDRESS
IN ADDRESS

EXAMPLE 2
RMCS1=176700 177200<CR> ;CHANGE BASE ADDRESS TO 177200

RMVEC=000254 260<(R>

ON THE

INITIAL

START,

;CHANGE VECTOR ADDRESS TO 260

THE NEXT QUESTION

TYPED

IS,

'TYPE

"A"

TST 2

MACRO v04.00

4-APR-B1

TEST ALL DRIVES,

OR TYPE

A CARRIAGE RETURN'.

OPERATOR TO

TYPE AN ''A'",

"'CARRIAGE RETURN''.

DRIVE NUMBER(S)

THEN,

STRING CF DRIVE NUMBER(S)

'DRIVE(S):'

TO TEST

AND TERMINATE

IS TYPED

AND

ALL POSSIBLE DRIVES

INPUT WITH

WAITS

TO BE TESTED AND TERMINATE THE

FOR THE

OR TYPE

ANY

INPUT WITH A

NO COMMAS OR ANY OTHER SEPARATORS ARE NEEDED WHEN

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

THEN INITIALIZES AND REPORTS

THE

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

'UNIT STATUS:
NOWNMESWN—=O

D — il
e
e
d

nono Ny SIS LSS LS LSS LN LS LS SN US LN LVRS BN IS LSS LS LS LSV LN N — e
N nonOry oo NN
S
=33 DD 3 — = Q00000000
0o~ o VB WA= OV
S wn—

.1
G
11:43:33 PAGE 3-3
SEQ 0006

el wnd sl

Qo 00 Qo 00 QO
]
0\00*00000800
SW\IOWJ\WN—'
OB
NR AR[e—aoooovomx\-}m
RE
SN NN NN N N

i T
T Y S
Y —

CZRMNBO "M0OS5/3/2 FCINL

ONLINE

RMO3

OFFLINE

RMO5

STATUS OF

THE

THE FOLLOWING

LOAD DEVICE

NOT PRESENT
NOT PRESENT

NOT AN RMO5/3/2
NOT PRESENT
NOT PRESENT'

THE ABOVE UNIT STATUS SHOWS

= 7 WILL NOT BE

TESTED.

THAT DRIVE O WILL BE

TESTED, WHILE

DRIVES

THE DIAGNOSTIC THEN TYPES THE FOLLOWING MESSAGE, BASFD ON THE
STATUS OF THE DRIVE:

'DRIVE(S)
TYPED

TO BE TESTED, O'

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

'DRIVE(S)

THE FOLLOWING MESSAGE WILL BE

TO 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

OFLE$§22NSE
L=

4.3

PROGRESS REPORTS

REQUIRED

BY THE USER,

()

INDICATES

D=DECIMAL,

THE

TYPE

O0=0CTAL AND

CZRMNBO RMOS/3/2 FCTINL

TST 2

MACRO v04.00

4-APR-B1

11:43:33 PAGE 3-4

SEQ 0007

mNNNNN
NNVSwwa
WA
-

229
230

AN END OF PASS REPORT OCCURS EACH TIME
FOR ALL DEVICES IN THE TEST QUE. THE END OF

'END OF PASS
THE

THE
PROGRAM
IS
EXECUTED
FASS REPORT IS AS FOLLOWS.

THE FOLLOWING MESSAGE WILL
LAST END OF PASS REPORT.

ALSO

OCCUR

'TOTAL ERRCRS SINCE LAST REPORT
4.4

PERFORMANCE

0’

REPORT

NO PERFORMANCE
PROGRAM.

4.5

THERE WERL ERRORS SINCE

REPORTS ARE

GIVEN

DURING

THE

EXECUTION

THE

PROGRAM HALTS

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

4.6

THE

PROGRAM.

ERROR REPORTS
THE

FIRST LINE OF

THE ERROR REPORT

CONTAINS

THE

NUMBER

THE

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

FOLLOWING PRINTOUT

DRV# O - RMO3,

SHOWS A TYPICAL

ERROR MESSAGE

FOR THIS PROGRAM:

TEST# 14, ERR¥ 326, PC=016654

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

040300

RMCS2
040700
RMBA

RMDS
010700
RMDA

RMER1
000000
RMOF

RMMR1

RMMR2

RMDT

RMSN

177403

000010
4.7

040700

RMCS1
144252
RMWC

104604

000002

011777

02402¢

010000

RMER2
000000
RMDC

000000

RMAS
000000
RMEC1

004066

DETECTED

RMEC2

000000

177777

EXECUTION TIME

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

PASS 2 AND

CZRMNBO RMOS/3/2 FCTNL TST 2

286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305

MACRO v04.00

A
11:43:33 PAGE 3-5

4-APR-81

5.0

ENVIRONMENTAL SUPPORT

5.1

PROCESSOR COMPATIBILITY

310

wh =0 Dol TR NTe NV, PR WY 8 B

SEQ 0008

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

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

SUSTAIN DATA TRANSFER OPERATIONS.

5.2

DUAL PORT CONFIGURATIONS
THE RM05/3/2 SUBSYSTEM FUNCTIONAL

TEST DOES NOT

SPECIFICALLY TEST

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

PORT

5.3

SWITCH

IS SET

TO THE APPROPRIATE PORT

IS NOT USED DURING

RMO5/3/2 SUSBYSTEM FUNCTIONAL

5.4

(A OR B).

MEMORY PARITY HARDWARE
MEMORY PARITY HARDWARE

NI NW INNN
N NN NN
rornoror ) i el il e il il s s

TEST.

THE

EXECUTION

THE

MEMORY MANAGEMENT HARDWARE

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

5.5

ACT11, APT11

COMPATIBILITY

THE RM05/3/2
SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH
ACT11
AND APT11
IN BOTH
DUMP
AND
AUTOMATIC MODES.
FURTHER, THE PROGRAM
WILL EXECUTE
VERIFY MODE.

5.6

QUICK

PASS DURING THE

FIRST PASS

IN SUPPORT OF

QUICK

XXDP COMPATIBILITY
THE RM05/3/2 SUSBYSTEM FUNCTIONAL

TEST

IS COMPATIBLE WITH XXDP IN

DUMP
AND CHAIN MODES, AND PROVIDES MEDIA PROTECTION IN THE
THE RMO5/3/2 1S THE XXDP LOADING DEVICE.

CASE WHERE

5.7 OPERATING SYSTEM COMPATIBILITY
THE

PROGRAM

NOT

COMPATIBLE

WITH ANY

SOF TWARE

OPERATING

SYSTEM.

CZRMNBO RMOS/3/2 FCTNL TST 2

343

344
345
346
347
348
349
350

MACRO v04.00
6.0

TEST DESCRIPTION

TEST

351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366

387

SEQ 000%

CONTROLLER ACCESS TEST

PURPOSE
:

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

THE

SUBSYSTEM

PRGCEDURE
:

USING

THE

TEST TRIES TO ACCESS ALL

THE

$BASE

ADDRESS.

THE TEST, AND THE TEST FAILS
REGISTER TRANSFER.

MASSBUS

CONTROLLER

REGISTERS

BUS

IF_THE TEST FAILS AND THE PROGRAM

TIMEOUT

OCCURS

RUNNING

FOR

ANY

STAND

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

367
368
369
370
371

372
373
374
375
376
377
378
379
380
381
382
383
384
385
386

1
J
11:43:33 PAGE 3-6

4-APR-81

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
?S&S?T§35§UDE WORD COUNT, HEAD MOTION, HEAD SWITCHING
AND
ERROR
PROCEDURE
:

ALTHOUGH EACH
GENERAL
PROCEDURE

TEST
EXERCISES
A
OF
EACH
TEST
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, THE TEST
PERFORMS ANY EXPLICIT SEEKS REQUIRED FOR THE
CONDITIONS
OF
THE
TEST.
REGISTERS ARE PRESET AND THE WRITE HEADER AND DATA COMMAND
IS EXECUTED.
WHEN THE WRITE COMMAND IS COMPLETE, THE TEST STORES
ALL SUBSYSTEM STATUS AND CHECKS FOR PRIMARY ERRORS WHICH PRECLUDE
OTHER STATUS CHECKS.
IF THERE ARE NO PRIMARY
ERRORS,
THE
TEST
VERIFIES
THE
RESULTS
OF
THE WRITE COMMAND AND THEN CHECKS FOR
SECONDARY ERRORS.
LOOP ADDRESSES
ARE
MODIFIED
FOLLOWING
THE
SUCCESSFUL
COMPLETION
OF
THE WRITE COMMAND IN ORDER TO SHORTEN
EXECUTION TIMES AND
ENHANCE
SCOPING
LOOPS,
THEN
THE
PROGRAM

EXECUTES
THE

SAME

THE READ HEADER AND DATA PORTION OF

TYPE OF

ERRORS AS

IN THE WRITE

THE TEST, VERIFYING

COMMAND.

CZRMNBO RMOS5/3/72 FCTINL
400

4«01
402
403
404
405
406

TST 2

4-APR-81

MACRO v04.00

NOTE:

1
K
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,
IF
THE ONE

TEST 2

SEQ 0010

SELECTED IS LISTED

IN THE BAD BLOCK

TABLE.

FORMAT ZEROS TEST
THE

TEST SEEKS TO CYLINDER O,

THEN WRITES HEADER AND DATA ON

SECTOR O
IN
18 BIT FORMAT.
THE
HEADER AND DATA FIELDS ARE ALL
ZEROS, CAUSING THE DEVICE TO USE NORMAL WRITE GATE.
THE
HEADER

AND
DATA
ARE
READ
AND
COMPARED
WITH
INITIAL SEEK POSITIONS THE HEAD SUCH THAT

SEEK.

TEST 3

THE WRITE BUFFER.
THE
THERE
IS
NO
IMPLIED

THE TEST IS REPEATED FOR 16 BIT FORMAT.

ZERO FILL TEST TEST
THE

TEST EXECUTES A SEEK TO CYLINDER O TO INSURE THAT

HEAD

MOTION DURING DATA TRANSFER.

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
TO 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 CHECK ZEROS TEST
THE TEST WRITES HEADER AND AN ALL
ZEROS
DATA
FIELD,
THEN
PERFORMS A WRITE CHECK HEADER AND DATA COMMAND AND VERIFIES THERE
ARE NO ERRORS.

TEST 5

FORMAT CHECK ZEROS W/ WCE ERROR TEST

THE TEST WRITES HEADER AND AN ALL ZEROS DATA
FIELD.
AFTER
COMPLEMENTING
THE
LAST
WORD
OF
THE
WRITE
BUFFER,
THE TEST

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

455
456

TEST 6

FORMAT ONES TEST

THAT

CZRMNBO RM05/3/2 FCINL TST 2

4-APR-81

MACRO v04.00

457
458
459
460
461
462
453

L
11:43:33 PAGE 3-8

SEQ 0011

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
4068
469
470
471
472
47%
474
475

TEST 7

FORMAT CHECK ONES TEST

THE TEST FORMATS AN ALL ONES
DATA
FIELD,
THE
ggéégs CHECK HEADER AND DATA COMMAND, VERIFYING THAT

PERFORMS
A
THERE ARE NO

TEST 10 FORMAT CHECK ONES W/ WCE ERROR TEST
THE TEST FORMATS AN ALL ONES DATA
FIELD,
THEN
CCMPLEMENTS
THE 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 DATA 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 0, TRACK 0, SECTOR 371.
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
SECTORS
ARE VERIFIED WITH A JR]TE CHECK
ggégsg AND DATA COMMAND, USING THE
SAME
WORD COUNT ANL STARTING

TEST

4-APR-81

M1
11:43:33 PAGE 3-9

SEQ 0012

13 FORMAT WITH MID-TRANSFER SEEK TEST

LAST

THIS TEST WRITES MULTIPLE SECTORS STARTING W!TH CYLINDER

TRACK AND SECTOR 31.,

FIRST SECTOR IS WRITTEN.

THE

CAUSING A MIDTRANSFER SEEK AFTER THE

SAME SECTORS ARE VERIFIED WITH WRITE

CHECK HEADER AND DATA (OMMAND.

TEST

14 FORMAT WITH IMPLIED SEEK TEST

AND

VNDWN 2OV

—(@21, -ENTe NV I N
NGW NN

MACRO v04.00

THIS

DATA

TEST SEEKS TO THE LAST

CYLINDER

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

=0V
NO TR W
OV

T T

Vi Vo

A AL ALY RS IV T
uu\:\J\bbbx\bbawuuwwwuwwuwwwm'\) nonsrON N
= e ed = a0
NO\VNIS
W —

CZRMNBO RMO5/3/2 FCTINL TST 2

LIV TV IV, TV LV, (V. 1V, IV, 1V 1 VI
e Y IV I IV AN Y IV T TV

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

TEST

16 FORMAT EACH TRACK ADDRESS TEST
THIS TEST FORMATS SECTOR O OF EACH TRACK ON CYLINDER

READS EACH SECTOR WITH THE PROGRAM VERIFYING HEADERS AND DATA.

TEST 17 FORMAT PRIME

AND

CYLINDERS TEST

THIS TEST FORMATS AND READS SECTOR O, TRACK 0 ON EACH
PRIME
CYLINDER, 1.E.. CYLINDERS 1, 2, 4, B., 16,, 32., 64., 128., 25%6.,
AND 512.

TEST 20 READ HEADER & DATA

DISK,

THIS TEST

READS

IN LAST SECTOR TEST
HEADER AND DATA ON THE LAST SECTOR OF

I.E., AND VERIFIES THAT 'LBT'' STATUS SETS.

THE,

| CZRMNBO RMOS/3/2 FCINL TST 2
|

573

N 1
11:43:33 PAGE 3-10

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.

TEST 22 READ

TEST USES AN ILLEGAL

IAE STATUS SETS..

TEST 23 READ

SECTOR ADDRESS AND

THE

LAST

VERIFIES

THAT

VERIFIES
'

THAT

INVALID TRACK ADDRESS TEST

THIS TEST USES AN ILLEGAL TRACK ADDRESS
IAE STATUS SETS.

TEST 24 READ

WiTH

INVALID SECTOR ADDRESS TEST

THIS

AND

INVALID CYLINDER ADDRESS TEST

THIS TEST USES AN ILLEGAL CYLINDER ADDRESS AND VERIFIES THAT

IAE STATUS SETS.

TEST 25 FORMAT AT OFFSET

VOOV

2ATA

TEST

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

Mo Jo Jo gl oo

i el el i) ol

613

s o

4-APR-81

571
572

(o o

|
{

RESRARAL

MACRD v04.00

TEST 26 IVC FORMAT TEST

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

CZRMNBO RMOS5/372 FCTINL

TST 2

MACRO v04.00

4-APR-81

11:43:33 PAGE

3-11

SEQ 0014

628
629
630
631
632
633
634
635
636
637
638

TEST

27 FORMAT ERROR TEST
FOR

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

FORMAT WITH THE PROGRAM VERIFYING THAT

FORMAT

ERROR

STATUS

THESE TWO TESTS WRITE AN
INCORRECT
HEADER
THEN
READ
HEADER AND VERIFY THAT THE CORRECT HEADER ERROR IS DETECTED.

THE
THE
THE

SET.
THE
SAME PROCEDURE IS REPEATED WITH THE SFCTOR WRITTEN IN
18 BIT FORMAT AND READ IN 16 BIT FORMAT,

TEST

30 & 31

FORMAT HCE TEST

TESTS SETUP THE

(1ST AND 2ND HEADER WORDS)

CORRECT HEADER,

THEN COMPLEMENT BIT O AND USE

MODIFIED
BUFFER
TO
WRITE
THE HEADER.
THE PROCESS IS REPEATED
UNTIL EACH BIT POSITION HAS BEEN SEPARATELY TESTED.

CZRMNBO RMQS/3/2 FCTNL

TST 2

MACRC v04.00

4-APR-81

11:43:33 PAGE 4

-2

;*LAST REVISION 04-APR-81

479
480

LTITLE
CZRMNBO RMO5/3/2 FCTNL TST 2
:*COPYRIGHT (C) 1981

s*DIGITAL EQUIPMENT CORPORATION
'COLORADO SPGS., (0. 80919
'PROGRAH BY MIKE

LEAVITT

'THIS PROGRAM WAS ASSEMBLED USING

PACKAGE

%
%
%

483
484

O=NWSHINOANOOOVO
=MW

SWITCH

482

.SBTTL

001100
104000

000004

000071
000012
000015
000200
177776
177776
177774
177772
177570
177570

000000
000001
000002
000003

ERROR
SCOPE

PDP=11

MAINDEC

SYSMA(

USE

HALT ON ERROR

LOOP ON
INHIBIT
UNUSED
INHIBIT
BELL ON
LOOP ON
LOOP ON

TN128

TEST
ERROR TYPEOQOUTS

ITERATIONS
ERROR
ERROR
TEST IN SWR<7:0>

TNG4

TN32

TN16
TN8
TN4
TN2

TN1

BASIC DEFINITIONS

:*INITIAL ADDRESS OF

STACK

THE

18-MAR-81

OPERATIONAL SWITCH SETTINGS

‘sam.

481

(MAINDEC=11-DZQAC-(C5),

= 1100
EMT
107

THE STACK POINTER #x*

1100 w»x=

;:BASIC DEFINITION OF
;:BASIC DEFINITION OF

ERROR CALL
SCOPE CALL

'HISCELLANEOUS DEF INITIONS

:gw e

= 177776

LF
(R
CRLF

STKLMT
PIRQ
DSWR

DDISP

;sCODE FOR HORIZONTAL TAB

= 12
=19
= 200

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

=
=
=
=

;:STACK LIMIT REGISTER
; PROGRAM INTERRUPT REQUEST REGISTER
; sHARDWARE SWITCH REGISTER

177774
YIIe7e
177570
177570

; ;PROCESSOR STATUS WORD

; sHARDWARE DISPLAY REGISTER

. *GENERAL PURPOSE REGISTER DEFINITIONS
RO
= %0
; ;GENERAL REGISTER
R1

R2
R3

= %1

= X2
= X3

: ;GENERAL REGISTER

; :GENERAL REGISTER
; ;GENERAL REGISTER

MACRO v04.00

4-APR-81

11:43:33 PAGE 4-1

SEQ 0016
R4
RS
R6

=
=
=
=

= X7

R7
SP

X4
X5
%6

37
= %6

s*PRIORITY LEVEL

PRO

PR1

PR2
By

= 100
= 140

PR4
PRS
PR6
PR7

=
=
=
=

200
240
300
340

s*"'SWITCH
Sw15
=
Sw14
=
Sw13
=

20000

SW11
SW10
SWO9
SW08
SW07

=
=
=
=
=

4000
2000
1000
400
200

SWOS
SW04

= 40
= 20

Swi12

SW06

SW03

s ;GENERAL REGISTER
s JGENERAL REGISTER
; sGENERAL REGISTER

s sGENERAL REGISTER
::STACK POINTER
: :PROGRAM COUNTER

DEFINITIONS

ssPRIORITY LEVEL O

;sPRIORITY

LEVEL

;sPRIORITY
;:PRIORITY
;sPRIORITY
;:PRIORITY

LEVEL 4
LEVEL S
LEVEL 6
LEVEL 7

= 10000

= 100

= 10

Sw02
=4
SWO1
&
SW00
£ 3
SW9=Sw09
SW8=SW08
SW7=SW07
SW6=SW06
SW5=SW05
SWé6=SW04

SW3=SW03

SW2=Sw0?2
SW1=SWw01
SWO0=SW00

:*DATA BIT DEFINITIONS (BITOO TO BIT15)

BIT15
BIT14
BIT13
BIT12
BIT11
BIT1I0
BITO9
BITO8
BITO7
BITO6
BITOS

=
=
=
=
=
=
=
=
=
=
=

100000
40000
20000
10000
4000
2000
1000
400
200
100
40

;sPRIORITY LEVEL 2
;sPRIORITY LEVEL 3

(ZRMNBO RMOS/3/2 FCTNL
BASIC DEF INITIONS

TST 2

MACRO Vv04.00

4~APR-81

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

BiTO4
=20
BITO3
=10
BITO2
=4
BITO1
=2
=1
BITO0
BIT9=BIT09
BIT8=BIT08
BIT7=B1107
BIT6=BIT06
BIT5=BIT05
BIT4=BIT04
BIT3=BI1T03
BIT2=BIT02
BIT1=BITO1
8IT0=BITO0

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

ERRVEC

= 4

BPTVEC

= 14

PWRVEC

= 24

11:43:33 PAGE 4=~2

;*BASIC "'CPU'" TRAP VECTOR ADDRESSES

RESVEC
= 10
TBITVEC = 14
TRTVEC
= 14

IOTVEC

EMTVEC

= 20
= 30

34
60
64
240

;:TIME OUT AND OTHER ERRORS
::8$.S.Eg\1l$D AND ILLEGAL INSTRUCTIONS
;: TRACE TRAP
; ;BREAKPOINT TRAP (BPT)
;s INPUT/0UTPUT TRAP (]OT) *=SCOPE»+»
;;POWER FAIL
; ;EMULATCR TRAP (EMT) ==ERROR=*»
::"'"TRAP'' TRAP
;;TTY KEYBOARD VECTOR

TRAPVEC
TKVEC
TPVEC
PIRQVEC

=
=
=

.SBTTL

RM REGISTER BIT DEF INITIONS

::TTY PRINTER VECTOR

: ;PROGRAM INTERRUPT REQUEST VECTOR

;*RMCS1 CONTROL STATUS REGISTER
DVA

= BIT11

;DEVICE AVAILABLE-READ ONLY

Fé&

= BITOS

JFUNCTION CODE

F1
FO

= BITO2
= BITO1

sFUNCTION CODE
sFUNCTION CODE

FNCMSK

= 000077

JFUNCTION CODE MASK

F3
F2

= BIT04
= BITO3

= BIT00

;FUNCTION CODE
;FUNCTION CODE

;GO BIT

;FUNCTION CODES (BITS 01-05 OF RMCS1)
NOP
= 000000
;NOP COMMAND
ILF02

SEEK
RECAL
DRVCLR
RLEASE
OFFSET
RTC
RIP

= 000002

=
=
=
=
=
=
=

000004
000006
000010
000012
000014
000016
000020

PAKACK

PACACK

= PAKA(CK

ILF24
ILF26

000022

= 000024
= 000026

;s ILLEGAL COMMAND

:SEEK COMMAND
JRECALIBRATE COMMAND
;DRIVE CLEAR COMMAND
;RELEASE COMMAND
;JOFFSET COMMAND
;RETURN TO CENTERLINE COMMAND
JREAD IN PRESET COMMAND
sPACK

ACKNOWLEDGE

;s ILLEGAL COMMAND
s ILLEGAL COMMAND

COMMAND

CZRMNBO RMOS5/3/2 FCINL

RM REGISTER BIT

513

516

TST 2

DEFINITIONS

000030
000030
000032

000036

000052
000054
000056
000060
000062
000064
000066

000070
000072
000074
000076

MACRO v04.00

SEQ 001&

SEARCH
ILF30
ILF32
ILF34
ILF36
ILF40
ILF42
ILF44
ILF46
wCD

=
=
=
=
=
=
=
=
=
=

ILF54
ILF56

= 000054
= 000056

WCH

= 000072

;*RMDA

DISK ADDRESS

ILF64
ILT66
RD
ILF74
ILF76

SA16

100000

s ILLEGAL COMMAND
s ILLEGAL COMMAND

JWRITE
JWRITE

s ILLEGAL COMMAND

;WRITE DATA COMMAND
JWRITE HEADER AND DATA (OMMAND

= 000064
= 000066
= 000070

;ILLEGAL COMMAND
s ILLEGAL COMMAND

JREAD DATA COMMAND

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

= 000074
= 000076

=
=
=
=
=

BIT12
BITN
BIT10
BIT09
BITO8

;SECTOR ADDRESS DEF INITIONS

SA8
SA4
SA2
SA1

= BIT04

=
=
=
=

BITO3
BIT02
BITO1
BIT00

;TRACK & SECTOR MASKS
TADMSK
= 177400
SADMSK
= 000377
;*RMDS

DRIVE

ATA

= BIT15

PIP

= BIT13

WRL

= BIT11

PGM

= BIT09

ERR

MOL

LBT

DFR
DRY
Vv
oM

s TRACK
; TRACK
:TRACK
:TRACK

ADDRESS 16.
ADDRESS 8.
ADDRESS 4
ADDRESS 2

;TRACK ADDRESS 1

;SECTOR
;SECTOR
;SECTOR
;SECTOR
;SECTOR

ADDRESS
ADDRESS
ADDRESS
ADDRES?
ADDRES

16.
8.
4
%

s TRACK ADDRESS MASK
;SECTOR ADDRESS MASK

STATUS REGISTER

= BIT14

= BIT12

= BIT10
=
=
=
=

CHECK DATA COMMAND
CHECK HEADER AND DATA

s ILLEGAL COMMAND

:TRACK ADDRESS DEFINITIONS

000020
- 000010
000004
000002
000001

040000
020000
010000
004000
002000
001000
000400
000200
00100
000001

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

= 000052

= 000060
= 000062

TA16
TA8
TA4
TA2
TA1

000377

000030
000030
000032
000034
000036
000040
000042
000044
000046
000050

WD
WH

010000
004000
002000
001000
000400

177400

3
11:43:33 PAGE 4-3

4-APR-81

BITO8
BITO07
BIT06
BIT00

;*RMERT ERROR REGISTER #1

JATTENTION ACTIVE

s COMPOSITE ERROR
;POSITIONING IN PROGRESS
JMEDIUM ON LINE
JWRITE LOCK
;LAST BLOCK TRANSFERRED
;PROGRAMMABL E
:DRIVE PRESENT
sDRIVE READY
;VOLUME VALID
JOFFSET MODE ACTIVE

CJRMNBO RMOS/3/2 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

DEF INITIONS

100000

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

000377

593
59
595
596
597

002000
001000
000400
000200
000100

599

003700

598

MACRO Vv04.00

DCK
UNS

orPl
DTE

WLE
IAE
AOE
HCRC
HCE
ECH
WCF
FER
PAR

RMR

ILR
ILF

4-APR-B1

G 2
11:43:33 PAGE 4-4

= BIT15
= BIT14
= BIT13
= BIT12
= BIT1
= BIT10
= BIT09
= BITO8
= BITO7
= BIT06
= BITOS
= BIT04
= BIT03
= BIT02
= BITO1
= BITO0

ND TMSK

;DATA (HECK ERROR
;DRIVE UNSAFE
sOPERATION INCOMPLETE
;DRIVE TIMING ERROR
JWRITE LOCK ERROR
s INVALID ADDRESS ERROR
JADDRESS OVERFLOW ERROR
JHEADER CRC ERROR
JHEADER COMPARE ERROR
JECC "HARD'' ERROR
JWRITE CLOCK FAILURE
;FORMAT ERROR
;FARITY ERROR
JREGISTER MODIF ICATION REFUSED
;ILLEGAL REGISTER
s ILLEGAL FUNCTION

DCK!DTE !WLE :AOE !HCRC !HCE 'ECH!WCF !FER

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

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

587
588
589
590
§91

592

TST 2

;*RMAS

ATTENTION SUMMARY REGISTER

ATNMSK

= 377

;*RMLA

LOOK AHEAD REGISTER

SC4

= BIT10

sSECTOR COUNT = 16

= BITO7
= BITO6

;SECTOR COUNT = 2
;SECTOR COUNT = 1

SC3
Sc2

= BIT09
= BITO8

SCTMSK

= 003700

SC1
SCO

;MASK FOR ATTENTION BITS

sSECTOR COUNT = 8
sSECTOR COUNT = 4

;SECTOR COUNT MASK

:*RMMRT MAINTENANCE REGISTER #1
100000

040000
020000
010000
004000
002000

;WRITE ONLY BITS
DBCK
= BIT15
DBEN
= BIT14
DEBL
= BIT13
DTO
= BIT12

MCLK
MRD
MUR
MOC
MSER
MDF
MS
MWP
Ml
MSC
DMD

=
=
=
=
=
=
=
=
=
=
=

BITH
BIT10
BITO9
BITO8
BITO7
BIT06
BITOS
BIT03
BIT02
BIT01
BITO0

JREAD ONLY BITS

0CC

= BIT15

;DEBUG CLOCK
:DEBUG CLOCK ENABLE
;DIAGNOSTIC END OF BLOCK
;DIAGNOSTIC TIMEOUT
sMAINTENANCE CLOCK
JREAD DATA
JUNIT READY
;ON CYLINDER
:SEEK_ERROR

;DRIVE FAULT
;SECTOR PULSE

JWRITE PROTECT
s INDEX PULSE
;SECTOR COMPARE
;DIAGNOSTIC MODE

sOCCUPIED

CZRMNBO RMOS5/3/72 FCINL TST 2
"M REGISTER BIT DEF INITIONS

622

|
|
|
|
;

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

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

671

SEG 002
RG

EBL

REX
ESRC

PLFS

ECRC

PDA

PHA

CONT

EECC

MWD
LS

100000

= BIT14

;RUN AND GO

= BITI
= BIT10
= BIT09
= BITO8
= BLT07
= BIT06
= BIT0S
= BIT04
= BITO3
= BI102
= BITO1
= BIT00

JENABLE SEARCH
;LOOKING FOR SYNC
JENABLE CRC out
:DATA AREA
:HEADER AREA
s CONT INUE
JWORD CLOCK
JENABLE ECC OUT
;WRITE DATA BIT
;LAST SECTCR
;LAST SECTOR AND TRACK
:DIAGNOSTIC MODE

= BIT13
= BIT12

010000
004000
002000
000200

001777

END OF BLOCK
EXCEPTION

TYPE REGISTER

= BIT1S
= BIT14
= BIT13

040000
020000
004000

020024
024024

H 2
11:43:33 PAGE 4-5

4-APR-81

DRIVE

;NOT SECTOR ADDRESSED = 0
;TAPE DRIVE = 0
;MOVING HEAD = 1

= BITN

;DRIVE REQUEST REQUIRED

SNGPRT
DULPRT

= 020024
= 024024

; *RMOF

OFFSET REGISTER

FMT16
ECI

OFD

=
=
=
=

:*RMDC

DESIRED CYLINDER ADDRESS REGISTER

CYLMSK

= 001777

HCI

:SINGLE PORT DRIVE TYPE (RMO2)
;DUAL PORT DRIVE TYPE (RMO2)

BIT12
BIT11
BIT10
BIT07

;16 BIT WORD FORMAT
JECC INHIBIT
:HEADER COMPARE INMIBIT
:OFFSET FORWARD

;MASK FOR CYLINDER ADDRESS

~ : *RMMR2 MAINTENANCE REGISTER #2
100000
040000
020000
010000
004000

MACRO Vv04.00

002000
001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

;READ ONLY BITS
= BIT15
= BIT14
= BIT13
= BIT12
cC
=BITN
CH
= BIT10
BB09
= BIT09
BB08
= BITO8
BBO7
= BITQ07
BBO6
= BIT06
BBOS
= BITOS
BB04
= BIT04
8803
= BITO3
BB0Z2
= BIT02
8801
= BITO1
8800
= BITO0
RQA
RQB
TAG
TST

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

(ZRMNBO RMO5/3/2 FCTNL

703
704

705
708

709
710
71
712
713
714
715
716
717

718
719

;BAD SECTOR ERROR
sSEEK INCOMPLETE

= BIT13
= BIT12
=B8ITN
= BIT10
= BITO7
= BITO3

;OPERATOR PLUG ERROR
s INVALID COMMAND ERROR
;LOSS OF SYSTEM CLOCK
sLOSS OF BIT CLOCK
sDEVICE CHECK
;DATA PARITY ERROR

.SBTTL
MSE

USE

= BIT15
= BIT14

.SBTTL

RM REGISTER

RM(CS1

= 00
= 06
=12

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

= 20

;LOOK AHEAD REGISTER

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

RMMR?2
RMER?
RMEC1
RMEC2

000077

RMDA
RMD
S
RMER1
RMAS
RMLA
RMMR1
RMDT
RMSN
RMGF
RMDC
RMHR

ILRG50
ILRG52
ILRG54
ILRG56
ILRG60
ILRG62
ILRG64
ILRG66
ILRG70
ILRG72
ILRG74
ILRG76

JMANUFACTURING DETECTED SECTOR ERROR
;USER DETECTED SECTOR ERROR
INDEX VALUES

= 14
=16

= 264

= 26
= 30
= 32

= 34
= 36

=
=
=
=
=
=
=
=
=

;ERROR REGISTER #1
SATTENTION SUMMARY REGISTER

;MAINTENANCE REGISTER

;DRIVE TYPE REGISTER
;SERIAL NUMBER REGISTER
;sOFFSET REGISTER

;DESIRED CYLINDER REGISTER
sHOLDING REGISTER

40
42
44
46
50
52
54
56
60

sMAINTENANCE REGISTER #2
;ERROR REGISTER #¢
;ECC POSITION REG!STER
JECC PATTERN REGIiSTER
;ILLEGAL REGISTER 50
s ILLEGAL REGISTER 52
s ILLEGAL REGISTER 54
;ILLEGAL REGISTER 56
;ILLEGAL REGISTER 60

= 62

:ILLEGAL REGISTER 62

= 64
= 66
=70
=72
= 74
=76

sILLEGAL
s ILLEGAL
;ILLEGAL
;ILLEGAL
;ILLEGAL
;ILLEGAL

IDXMSK

=77

;MASK FOR REGISTER INDEX NUMBER

.SBTTL

RH CONTROLLER REGISTER BIT DEFINITIONS

64
66
70
72
74
76

;*RM(S1T CONTROL STATUS REGISTER #1
100000

040009
020000
002000

TRE

MCPE
PSEL

—

702

BIT15

= BIT14

—

701

BSE
SK
1
OPE
IvC
LSC
LBC
DVv(
DPE

— v

700

100000

(= JER AV, |

682
683
684
685
686
687
688
689
690
691
69¢
693
694
695
696
697
698
699

; *RMERZ ERROR REGISTER 2

— =

675
676
677
678
679
680

SEQ 0027

e
I

6£74

I
2
11:43:33 PAGE 4-6

4-APR-81

wwmm

€72
673

DEF INITIONS

MACRO v04.00

iWwnonn

RM REGISTER BIT

TST 2

sSPECIAL CONDITION-READ ONLY

. TRANSFER ERROR

;MASSBUS CONTROL BUS PARITY ERRCR-READ ONLY
;PORT B SELECT

€ ZRMNBO RMOS/3/2 F( TNL

1ST 2
MACRO Vv04.00
RH CONTROLLER REGISTER 81T DEFINITIONS

AY7

720

4-APR-81

J
2
11:43:33 PAGE 4~7

SEQ 002¢
= BIT09

;ADDRESS EXTENSION

= BITQ7

JREADY=READ ONLY

721
722

A16

= BIT08

= BIT06

725
726

;*RMCS2 RH CONTROL STATUS REGISTER #2

RDY

723
724

727

728
729
730
731
732
733
734
735
736

737

746
747
748

749
750
751
752
753
754
755
756
757
758

;DATA LATE-READ ONLY

UPE

= BIT13

JUNIBUS PARITY ERROR

= BIT14

NED
NEM
PGE
MXF
MDPE
OR
IR

=
=
=
=
=
=
=

PAT

= BIT04

U1
uo

= BITO1
= BITOO

BAI
u2

743

744
745

= BIT15

CLR

742

s INTERRUPT ENABLE

DLT

WCE

738
739

;ADDRESS EXTENSION

;WRITE CHECK ERROR=-READ ONLY

BIT12
BITN
BIT10
BIT09
BIT08
BITO7
BIT06

sNONEXISTANT DRIVE~READ ONLY
sNONEXISTANT MEMORY-READ ONLY
;PROGRAM ERROR=READ ONLY
;MISSED TRANSFER
;MASSBIIS DATA BUS PARITY ERROR-READ ONLY
;OUTPUT READY=READ ONLY
s INPUT READY=READ ONLY

= BITOS

;CONTROLLER CLEAR

;PARITY TEST

= BITO3
= BIT02

;UNIBUS ADDRESS INCREMENT INHIBIT
JUNIT SELECT
JUNIT SELECT
JUNIT SELECT

JUNIT SELECT MASK
000007

UNTMSK

= 7

JUNIT SELECT MASK

:*RMCS3 RH70 CONTROL STATUS REGISTER #3
100000

040000
020000
010000
004000
002000
000100
000010
000004
000002
000001

APE

= BIT15

;ADDRESS PARITY ERROR

DPELO

= BIT13

;DATA PARITY ERROR LOW WORD

DPEHI

WCEHI
WCELO

DBL

;DATA PARITY ERROR HIGH WORD

= BIT12
= BIT11

;WRITE CHECK ERROR HIGH WORD
;WRITE CHECK ERROR LOW WORD

= BIT10

;DOUBLE WORD TRANSFER

IE
IPCK3
IPCK2
IPCK1
IPCKO

=
=
=
=
=

SBTTL

RH CONTROLLER REGISTER INDEX VALUES

RMCST

BIT06
BITO3
BITQ2
BITO1
BITO00

; INTERRUPT ENABLE
. INVERT PARITY CHECK
s INVERT PARITY CHECK
:INVERT PARITY CHECK
s INVERT PARITY CHECK

= 00

RMWC
RMBA

= 02
= 04

RMDB

= 22

RMCS2

176700
120254

= BIT14

.
*

=10

RMBAE
RMCS3

= 5C
=52

ABASE

= 176700

AVECT1 ., =

120254

;CONTROL,

STATUS REGISTER #1

;CONTROL,

STATUS REGISTER #2

sWORD COUNT REGISTER
;BUS ADDRESS REGISTER
;DATA BUFFER

;BUS ADDRESS EXTENSION
;CONTROL, STATUS REGISTER #3

+UNIBUS ADDRESS

JUNIBUS VECTOR ADDRESS AND PRIORITY

CZRMNBO RMOS/3/2 FCTINL
CATCHER

TST

MACRO v04.00

000000

000174
000176

SEQ 0027
TRAP CATCHER

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

*LOCATION1O CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

000174
000000
000000

DISPREG:
SWREG:
.SBTTL

000200
2
3 000204

K
2
11:43:33 PAGE S

4-APR-81

.SBTTL

.WORD
.WORD

C
0

;s SOFTWARE DISPLAY REGISTER
;;SOFTWARE SWITCH REGISTER

STARTING ADDRESS‘cS)

000137

005432

JMP

Q#START

:sJUMP TO STARTING ADDRESS 0OF

000137

005422

JMP

A#START1

;CHANGE RH/RM BUS ADDRESS

.SBTTL

ACT11

PROGRAM

HOOKS

::ifiitttl'*'fit"t."ttt'i"'t"fi'.tQ't"'t.tt‘tt".iitt'tt"ttt't

000046
000052

000210
000046
032122
000052
000000
000210

001100

sHOOKS REQUIRED BY ACT11

.=1100

.SBTTL

SSXZC=.

:SAVE PC

SE?BAD

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

.WORD
O
.=$SVPC

;:2)SET LOC.52 TO ZERO
;2 RESTORE FC

APT PARAMETER BLOCK

ti!ttt.'.."t.""..""".l'.fi..."l'."tt..t.t."..'tt.l'.'tt

SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT
fi*'.tit"*t*....i'."*'.'.""'t!.'tl"itt.tfi"'t'."'."l..'t.

000024
000044

001100
000024
000200
000044
001100
001100

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

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

:;II't'."fitfitt'*tt""'..'.**'l....'...'..'t*..‘t‘.tt.!'."‘t't’

— —

— —
-

) ——

—
ot —d

)
—

—

REFERBR

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

8888888

TRAP

oo~y

000000
001222
000006
000006
000006
000042
001114

$APTHD:
$HIBTS:
$MBADR:

$TSTM:
SPASTM:

$UNITM:

TAGADR

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

0
::TWO HIGH BITS OF 18 BIT MAILBUX ADDR.
$MAIL
;;ADDRESS OF APT MAILBOX (BITS 0-15)
6
;sRUN TIM OF LONGEST TEST
6
::RUN TIME IN SECS. OF 1ST PASS'ON 1 UNIT (QUICK VERIFY)
6
;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT
SETEND-$MAIL/2
;;LENGTH MAILBOX-ETABLE (WORDS)

COMMON TAGS

TST 2

MACRO Vv04.00

4-APR-81

.
11:43:33 PAGE 6

SEQ 0024

.SBTTL

COMMON TAGS

. t.ttt!tt..'l".tfi.."t"..t.l‘t't."t'.t...'t.'t...t.'t"t'."'

:*THIS

TABLE

CONTAINS VARIOUS COMMON STORAGE LOCATIONS

.WORD
$TSTNM: .BYTE
$ERFLG: .BYTE
$ICNT:
.WORD
$LPADR: .WORD
$LPERR: .WORD
$ERTTL: .WORD
$ITEMB: .BYTE
$ERMAX: .BYTE
$ERRPC: .WORD
$GDADR: .WORD
$BDADR: .WORD
$GDDAT: .WORD
$BDDAT: .WORD
.WORD
.WORD
$AUTOB: .BYTE
$INTAG: .BYTE
.WORD
SWR:
.WORD
DISPLAY: .WORD

VI
S S

Y
e JO

)
D ed
d
—

$TKS:
$TKB:
$TPS:
$TPB:
$NULL:
$FILLS:
$FILLC:

$TPFLG:
$TMPO:
$TMP1:

377
001220

000

377

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

$TMP2:
.WORD
$TMP3:
.WORD
$TMP4:
.WORD
$TIMES: 0O
$ESCAPE:0
$BELL:
.ASCIZ
$QUES:
.ASCII
$CRLF:
.ASCII
SLF

LASCIZ

; :START OF

COMMON TAGS

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

;;AUTOMATIC MODE INDICATOR
;: INTERRUPT MODE INDICATOR
;;ADDRESS OF SWITCH REGISTER
. ;ADDRESS GF DISPLAY REGISTER
;:TTY KBD STATUS
;:TTY KBD BUFFER

000000
000
000
000000
0000GC
000000

.=TAGADR
(elololeleleleloleleDlelelalelelslels)]

$CMTAG:

DDISP

;:TTY PRINTER STATUS REG.

ADDRESS

;2 TTY PRINTER BUFFER REG. ADDRESS
;;CONTAINS NULL CHARACTER FOR FILLS
;;CONTAINS # OF FILLER CHARACTERS REQUIRED
;:INSERT FILL CHARS. AFTER A "LINE FEED'

OOOOOO’—GNO

001114

D e

)

—

) -

WWWPNININON)
= — =

88888 828888883888

:*USED IN THE PROGRAM.

CZRMNBC RMOS5/3/2 FCTINL

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

; sUSER DEF INED
; sUSER DEF INED
;;USER DEF INED
; sUSER DEF INED
..USER DEF INED

NUMBER OF

ITERATIONS

ESCAPE ON ERROR ADDRESS
<207><377><377> ..CODE FOR BELL
/?/
2 sQUESTION MARK
<15>
<12>

: : CARRIAGE RETURN
::LINE FEED

ttltttfiii*.'i'**tttt!titttttttt'titt"t‘t'itit't!ttfitt'ttntttt'

001222
001222
001224
001226

000000
000000
000000

-SBTTL

APT MAILBOX-ETABLE

A A A

A A

.EVEN
$MAIL:
$MSGTY:
$FATAL:
$TESTN:

A A A A

.WORD
.WORD
.WORD

A A

AR A

AMSGTY

AFATAL
ATESTN

AR AR AR AR AR R RN AR R AR

;;APT MAILBOX
; sMESSAGE TYPE CODE
;:FATAL

ERROR NUMBER

;s TEST NUMBER

AR R AR

R AR R

CZRMNBO RMOS/3/2 FCTNL TST 2

APT MAILBOX~-E TABLE

001230
001232
001234
001236
001240
001242
001242
001243
001244
001246
001250

MACRO v04.00

4-APR-81

M 2
11:43:33 PAGE 6-1

SEQ 0075
$PASS:
.WORD
$DEV(T: .WORD
$UNIT:
. WORD
$MSGAD: .WORD
$MSGLG: .WORD
SETABLE:
$ENV:
.BYTE
S$ENVM:
.BYTE
$SWREG: .WORD
$USWR:
.WORD
$CPUOP: .WORD

APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG

AENV
AENVM
ASWREG
AUSWR
ACPUOP

; ;PASS COUNT
;:DEVICE COUNT
::1/C UNIT NUMBER
s sMESSAGE ADDRESS
s sMESSAGE LENGTH
;sAPT ENVIRONMENT TABLE
; ;ENVIRONMENT BYTE
: ENVIRONMENT MODE BITS
;sAPT SWITCH REGISTER
;sUSER SWITCHES
;:CPU TYPE ,OPTIONS
BITS 15-11=CPU TYPE

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

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

.BYTE

: .BYTE

AMAMS1
AMTYP1

BIT 10=REAL TIME CLOCK
BIT 9=FLOATING POINT PROCESSOR
BIT 8=MEMORY MANAGEMENT
;:HIGH ADDRESS,M.S. BYTE
::MEM. TYPE ,BLK#1
MEM.TYPE BYTE
==
(HIGH BYTE)

001254

AMADR1

001256
001257
001260

AMAMS
2
AMTYP2
AMADR?

900 NSEC CORE=001
'
300 NSEC BIPOLAR=002
500 NSEC MOS=003
,BLK#1
ADDRESS
;sHIGH
MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF ‘'TYPE'' ABOVE
;;HIGH ADDRESS,M.S. BYTE
; MEM. TYPE ,BLK#2
s sMEM.LAST ADDRESS.,BLK#2

AMTYP3
AMADR3

,BLK#3
TYPE M.
: sME
s sMEM.LAST ADDRESS,BLK#3

SMTYP3:
SMTYPG:
$VECT1:
$VECT2:
$BASE:
$DEVM:
$CDW1:
$CDW2:
$DDWO$DDW1:
$DDW2:
$DDW3:
$DDW4:
$DDWS:
$DDW6:
$DDW7:
$ETEND:
MEXIT

AMAMS4
AMTYP4
AMADR4
AVECT1
AVECT2
ABASE
ADEVM
ACDW1
ACDW2

ADDWO

ADDW1
ADDW?2

ADDW3

ADDW4
ADDWS
ADDW6
ADDW?7

::HIGH ADDRESS.M.S.BYTE

;:HIGH ADDRESS.M.S.BYTE
.BLK#4
TYPE M.
; sME
s sMEM.LAST ADDRESS,BLK#4
;s INTERRUPT VECTOR#1,BUS PRIORITY#1

;s INTERRUPT VECTOR#2BUS PRIORITY#2
;;BASE ADDRESS OF EQUIPMENT UNDER TEST
;;DEVICE MAP
:;CONTROLLER DESCRIPTION WORD#1
;s CONTROLLER DESCRIPTION WORD#2
;sDEVICE DESCRIPTOR WORD#0
;:DEVICE DESCRIPTOR WORD#1
s sDEVICE DESCRIPTOR WORD#2
;;DEVICE DESCRIPTOR WORD#3
s :DEVICE DESCRIPTOR WORD#4

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

|
|

CZRMNBO RM0S5/3/2 FCTNL TST 2

USER DEF INED TAGS

001326
007330
001332

000000
000000
000000

001334
001335

000
000

MACRO V04.00

4-APR-B1

N 2
11:43:33 PAGE 7

.SBTTL

USER DEF INED TAGS

CTLFG:
CHGADR:
XXDP:

.WORD
.WORD
.WORD

0
0
0

LSTRK:

.BYTE
BYTE

0
0

{

SEQ 0026

;CONTAINS CONTROL-C FLAG

:CHANGE RH/RM BUS ADDRESS = =1, NO (HANGE = 0
;THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH
: THE PROGRAM WAS LOADED. THE HIGH BYTE CONTAINS THE

'iéxg$;505V5CE CODE FOR THE RMOS/3/2.

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

;THE REGISTER INPUT BUFFER IS USED FOR
;STORING DRIVE STATUS
001336

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

GETBUF:

000000
000000

000000
000000
000000
000000
000000

sREGISTER INPUT BUFFER

RMCS1I: .WORD
RMWCI:i\ .WORD
RMBAI:
.WORD
RMDAI:
.WORD
RMCS2I: .WORD
RMDSI:
.WORD
RMER1I: .WORD
RMASI:
.WORD
RMLAI:
.WORD
RMDBI:
.WORD
RMMR1I: .WORD
RMDTI:
.WORD
RMSNI:
.WORD
RMOFI:
.WORD
RMDCI:
.WORD

RMHRI:

.WORDP

RMER2I:
RMEC1I:
RMECZ2I:

.WORD
.WORD
.WORD
.WORD
.WORD

RMMR2I:

RMBAEI:

RMCS3I:

.WORD

O
O
O
O
O
O
O

0
O
O
O
O
O
O
O
O
0

0
O
O
O
O

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

;ERROR REGISTER #1
;ATTENTION SUMMARY REGISTER

;LOOK AHEAD REGISTER
;DATA BUFFER
sMAINTENANCE REGISTER #1
;DRIVE TYPE REGISTER
;SERIAL NUMBER REGISTER
;OFFSET REGISTER
;DESIRED CYLINDER REGISTER
sHOLDING REGISTER
sMAINTENANCE REGISTER #2

;ERRQR REGISTER #2
;ECC POSITION REGISTER
;ECC PATTERN REGISTER
sBUS ADDRESS EXTENSION REGISTER
;CONTROL, STATUS REGISTER #3

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

RMCS10:
RMWCO:

RMBAO:
RMDAQ:
RMCS20:
RMDSO:
RMER10:
RMASO:
RMLAO:
RMDBO:
RMMR10:

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

O
O
O
0
O
O
0
O
O
O
O

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

;CONTROL, STATUS REGISTER #2
:DRIVE STATUS REGISTER

;ERROR <EGISTER #1

SATTENTION SUMMARY REGISTER

;LOOK AHEAD REGISTER
;DATA BUFFER
sMAINTENANCE REGISTER #1

CZRMNBO RMOS/3/72 FCTINL

USER DEF INED

TAGS

001440
001442

TST 2

MACRC v04.00

4-APR-81

SEQ 0027
RMDTO:
RMSNO:

001444
001446
001450
001452
001454
001456
001460
001462
001464

11:43:33 PAGE 7-1

RMGFO:
RMDCO:
RMHRO:
RMMR20:
RMER20:

RMEC10:
RMEC20:
RMBAEO:
RMCS30:

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

O
O
O
O
O
O
O
©C
O
0O
O

:DRIVE TYPE REGISTER
;SERIAL NUMBER REGISTER

;OFFSET REGISTER
sDESIRED CYLINDER REGISTER
sHOLDING REGISTER
JMAINTENANCE REGISTER #2
;ERROR REGISTER #2
;ECC POSITION REGISTER
sECC PATTERN REGISTER
;BUS ADDRESS EXTENSION REGISTER
;CONTROL, STATUS REGISTER #3

;EACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN

;THE LOW BYTE AND THE ATTENTION BIT

IN THE HIGH BYTE.

THE

sFIRST WORD CONTAINS THE ADDRESS OF THE DEVICE UNDER TEST
:IN THE TABLE. A ZERO WORD IS A BLANK AND REPRESENTS THE
:END OF THE QUE.
~

000000

TSTQUE:

000000

Vi
o

NON)
— —

jolele]

3388

=S
—a

001512

001524

000000

000000
000000
000000
000000

.WORD

.BLKW
.WORD

8.
O

;CONTAINS DEVICE POINTER

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

JALL 8. DEVICES ARE UNDER TEST.

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

MEDENB:

.WORD

;MEDIA ENABLE

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

ASNDC:
ASNDA:

CLKADR:
CLKVCT:

.WORD
.WORD

O
O

0
O

;ASSIGNED DESIRED CYLINDER
sASSIGNED TRACK, AND SECTOR

;UNIBUS ADDRESS OF KW11 CLOCK
:VECTOR ADDRESS OF KW11 CLOCK

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

GETINX:

.BLKB

23.

;GET INDEX TABLE

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

001553

;A NEGATIVE BYTE.

PUTINX:
;PUT

.BLKB

TAGS HERE

23.

THE LIST

IS TERMINATED BY

<PUT INDEX TABLE

’

CZRMNBO RMOS/3/2 FCTINL

ERROR POINTER TABLE

TST 2

MACRO v04.00

4-APR-81

.SBTTL

11:43:33 PAGE 8

ERROR POINTER TABLE

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

;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
:*NOTE1:
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRP().
:*NOTE2:
EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS:
i
i

EM
DH

;;POINTS TO THE ERROR MESSAGE
;:POINTS TO THE DATA HEADER

::POINTS TO THE DATA FORMAT

‘ 001602

$ERRTR:

:ERROR
001602
01604
001606
001610

065324
071410
071534
071624

::POINTS TO THE DATA

WRONG UNIT SELECTED

EMT1
EHT?
EDT1
EFT1

:ERROR
001612
001614
001616
001620

065330
071410
071534
071624

g
065336
071410
071534
071624

065344
071410
071534

:ERROR

001642
001644
001646
001650
4

DEVICE WENT NONEXISTENT

CONTROLLER NOT READY

EMT4
EHT1
EDT1
EFTI

071624

3
EMT3
EHTI
EDT1
EFT1

;ERROR
001632
001634
001636
001640

DEVICE WENT UNAVAILABLE

EMT2
EHT1
EDT1
EFT1

;ERROR
001622
001624
001626
001630

065352
(071410
071534
071624

DRIVE NOT READY AND GO NOT RESET

EMTS
EHTT
EDTT
EFT1

:ERROR

UNEXPECTED VALUE FOR '‘ATA'" STATUS

SEQ 0028

TST 2

MACRO v04.00 4-APR-81 11:43:33 PAGE 831

065360

SEQ 0029

EMTE
EMTI
EDT1

071410
071534
071624

EFT

;ERROR

(ZRMNBO RMOS5/3/2 FCTNL
ERROR POINTER TABLE

BUS

TIMEQUT

TRYING

TO READ OR WRITE

nanorno
S

ooom

M17

;ERROR
065374
071410
071534
071624

25
26
27

DRIVE NOT READY BUT GO IS RESET

EMT10
EHT
EDT1
EFT1
:ERROR

065400
071410
071534
071624

GO NOT RESETTM BUT DRIVE

IS READY

EMT11
EHT
EDT1
EFT1
;ERROR

065404
071410
071534
071624

INCORRECT FUNCTION CODE

EMT12
EHT1
EDT1
EFT1
;ERROR

065412
071410
071534
071624

PARITY ERROR READING REMOTE REGISTERS

EMT13
EHT]

EDT1

EFT1
;ERROR

065424
071410
071534
071624

TRANSFER ERROR

INCORRECT

EMT14
EHT1
EDT]
EFT1
;ERROR

INCORRECT WORD COUNT

CZRMNBO RMO5/3/2 FCINL
ERROR PUINTER TABLE

001742
001744
001746
001750
40
41
42

001752
001754
001756
001760

065440
071410
071534
071624

065450
071410
071534
071624

065460
071410
071534
071624

INCORRECT LBT

STATUS

INCORRECT AOE

EFT1

065470
071410
071534
071624

INCORRECT DISK ADDRESS

EMI121
EHT1
EDPT
EFT1

. ERROR
065500
071410

INCORRECT CYLINDER ADDRESS

EMT22

EHT1
EDT!
EFT1

071534
071624

e
\Y

. ERROR

INCORRECT WLE STATUS

EMT23
EHTI
EDT
EFTI

;ERROR
065520

INCORRECT BUS ADDRESS

EDT1

oownesn
NN~
—a
OO

002002

EMT20
EHT1

:ERROR

lolelele]
NNNO

50
51

EMT17
EMTT
EDTI
EFT1
s ERROR

001772
001774
001776
002000

11:43:33 PAGE B~/

EMT16
EHTI
EDT1
EFT1

. ERROR

001762
001764
001766
01770

4-APR-B81

EMTIS
EHT
EDT]
EFT1
;ERROR

MACRO v04.00

065432
071410
071534
071624

TST 2

EMT24

INCORRE(CT UPE STATUS

SEQ 0030

MACRO v04.00

€1

;ERROR
065540
071410
071534
071624

065550
071410
071534
071624

70
71

065560
071410
071534
071624

INCORRECT MDPE

STATUS

INCORRECT DCK STATUS

INCORRECT ECH STATUS

31
EMT
EHT1
EDT1

EFT1

;ERROR
065600
071410
071534
071624

DLT SHOULD NOT BE SET

EMT32
EHTI
EDT1
EFTT
;ERROR

071410

STATUS

EHT1
EDT1
EFT1

065570
071410
071534
071624

065610

INCORRECT WCE

EMT30

;ERROR
002102
002104
002106
002110

INCORRECT W(F STATUS

EMT27
EHTI
EDTI
EFT
:ERROR

002072
002074
002076
002100

|
8-3

EMT26
EHT1
EDT1
EFT1
. ERROR

002062
002064
002066
002070

o
11:43:33 PAGE

EMT2S5
EHTI
EDT1
EFTI

065530
071410
071534
071624

€6

68
69

mmm

;ERROR

T
T
T

Rl
4

071470
071534
071624

4&-APR-B1
b

ERROR POINTER TABLE

TST

—

(ZRMNBO RMOS5/3/2 FCTINL

EMT 33
EXT?

MXF

SHOULD NOT BE

SET

CIRMNBO RMOS/3/72 FCINL
ERROR POINTER TABLE

002126
0C2130
82

002132
002134
002136
002140

;ERROR

002142
002144
002146
002150

065630
071410
071534
071624

88
89

DTE

SHOULD NOT BE SET

INCORRECT HCRC

STATUS

EDT1
EFTI

065640

INCORRECT HCE

STATUS

EMT 36
EHT1
EDT]
EFTI

071410

071534
071624

;ERROR

002162
002164
002166
002170

8-4

EMT 35
EHTT

;ERROR

002152
002154
002156
002160

11:43:3%33 PAGE

EMT 34
EHTI
EDT1
EFT1

065620
071410
071534
071624

4<-APR-81

EDT1
EFM

JERROR

91
92
93

MACRO v04.00

071534
071624

TST 2

065650
071410
071534
071624

INCORRECT FER STATUS

EMT37

EHT]
EDT1
EFT1

95
96

;ERROR

002172

002174
002176
002200

065660
071410
071534
071624

DPE

SHOULD NOT BE

SET

(NOT

A DATA COMMAND)

EMT40
EMT1
EDT!
EFTI

JERROR

LOST "MOL'" DURING PACK ACKNOWLEDGE

EMT41T
EXTI
EDT1
EFT1
JERROR

002212
002214
002216

42
EMT4?

EHTT

EDT?

UNSAFE

ERROR DURING PA(CK ACKNOWLEDGE

CIRMNBO RMOS/3/2 FLING
ERROR POINTER TABLE

002220

y04.00

065710
071410
071534
071624

- OO0

e
]

]

S W

sl
ol aad

i el
o

-l
b el

065740
071410
071534
071624

o000

no—
=

065750
071410
071534
071624

"'ILR"" ERROR DURING PACK ACKNOWLEDGE

"'ILF'" ERROR DURING PACK ACKNOWLEDGE

COMPOSITE ERROR STATUS

INCORRECT

PARITY ERROR WRITING REMOTE

REGISTERS

EMT50

EHT1

EDT1

EFT1

;ERROR

002310

‘RMR'" ERROR DURING PACK ACKNOWLEDGE

EMT47
-EHTI
EDT1
EFT1

065756
071410
071534
071624

065766
071410
071534
071624

EMT46
EHT1
EDT1
EFT1

s ERROR

002272
002274
002276
002300

'OPI'" ERROR DURING PACK ACKNOWLEDGE

EMT45
EHT1
EDT1
EFT1

;ERROR

002262
002264
002266
002270
il ol il

065730
071410
071534
071624
;ERROR

002252
002254
002256
002260

EMT44
EHT1
EDT1
EFT1

065720
071610
071534
071624
;ERROR

002250

8-%

EMT43
EHTI
EDT!
EFT1
:ERROR

002232

11:43:33 PAGE

EFTY

:ERROR

002222
002224
002226
0022

4-APR-B1

SEQ 0037

071624

103

104
10¢

MACRD

EMT51
EHT1
EDT1
EFTI

INCORRECT

IAE

STATUS DURING SEEK COMMAND

CZRMNBO RMOS/3/2 FCINL
ERROR POINTER TABLE

MACRC v04.00

;ERROR

126

002312
002314
092316
002320

066000
071410
071534

066016
071410
071534
071624

wh —

002322
002324
002326
002330

:ERROR

066044
071410
071534
071624

\fll‘a
H£1ON

INCOMPLETE ERROR DURING SEEK (OMMAND

DEVICE

CHECK DURING SEEK COMMAND

PiP

IS STILL

SET AFTER SEEK = SKI

IS RESET

ATA DID NOT

SET

DURING SEEK COMMAND

EMTS7
EHT1
EDT1
EFT1

;ERROR

SEEK

EDT1
EFT1

066074
071410
071534
071624

-l

EMT56
EHTI

;ERROR

°°§

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

EMTS5
EHTI
EDT1
EFT1

066056
071410
071534
071624

140

141
142

EMTS54
EHTI
EDT1
EFT1

;ERROR

002352
002354
002356
002360

OP] ERROR DURING SEEK = MEDIUM [S NOT ON L INE

£F1

066034
071410
071534
071624

oy
002342
002344
002346
002350

EMTS3
EHTI
EDTI

s ERRCR

002332
002334
002336
002340

11:43:33 PAGE 8-t

EHT
EDT
EFT1
; ERROK

130

4-APR-B1

EMTS2

071624

127
128
129

— -l

TST 2

60
EMT60
EHT]
EDT1

1.. ERROR DURING SEEK COMMAND - LOST
VOLUME VALID

ASSUME

CZRMNBO R’MO5/3/2 FCTINL
ERRCR POINTER TABLE

002400

~NOND

)
e

066142
071410
071534
071624

002432
002434

002436
002440

002442
002444
002446
002450

8-/

ERRONEOUS IVC ERROR DURING SEEK (OMMAND VOLUME VALID IS STIL SET

EMT61
EHTI
EDT1
EFT1
;ERROR

002422
002424
002426
002430

11:43:33 PAGE

EFT

066122
071410
071534
071624

NN
—

—
o
—

002402
002404
002406
002410

4-APR-B1

SEQ 0035

;ERROR

002412
002414
002416
002420

158
159
160

MACRC v04.00

071624

147
148
149
150

IST 2

MOL IS ZERO, BUT OPI] WAS NOT
REPORTED DURING SEEK COMMAND

EMT62
EHT1
EDTI
EFT1

:ERROR

UNUSED

;ERROR

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

;ERROR

DRIVE EXECUTED A SEEK WITH ERROR SET

;ERROR

UNEXPECTED ERROR SET

;ERROR

UNEXPECTED ERROR SET IN RMER?

000000
000000
000000
000000

066160
071410
071534
071624

066200
071410
071534
071624
IN RMER1

002452
002454
002456
002460

002462
002464

CZRMNBO RMOS5/3/2 FCTNL
ERROR POINTER TABLE

002466
002470

002472
002474
002476
002500

002512
002514
002516
002520
179
180
181
182

002522
002524
002526
002530

;ERROR

ERRONEOUS ''IAE'' ERROR DURING RECAL IBRATE

:ERROR

"'ILF'" ERROR DURING RECAL IBRATE

;ERROR

“OPI'* ERROR DURING RECALIBRATE DUE TO "MOL'" = 0

;ERROR

"OPI'* ERROR DURING RECALIBRATE BECAUSE ON

066264
071410
071534
071624

066302
071410
071534
071624

CYLINDER DIDNT DROP

EMT73
EHT1
EDT1
EFT1

;ERROR
002532
002534
002536
002540

K
3
11:43:33 PAGE 8-8

066254
071410
071534
071624

EINE

il
il il

002502
002504
002506
002510

4-APR-81

066244
071410
071534
071624

173

174
175

MACRO v04.00

077534
071624

170
17
172

TST 2

066320
071410
071534
071624

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

EMT74
EHT1
EDT1
EFT1
. ERROR

‘066330
071410
071534
071624

ERRONEOUS “‘IVC'' ERROR DURING RECALIBRATE = "‘w'* = 1

EMT75
EHT1
EDTI]
EFT1

;ERROR

EMT76
EHT1

"'SKI'" ERROR DURING RECAL IBRATE

SEQ 0034

(ZRMNBO RMOS/3/2 FCTNL

ERROR POINTER TABLE

002556
002560

TST 2

MACRO v04.00

EDT1
EFTI]

071534
071624

"DVC'* OCCURRED DURING RECAL IBRATE

EMT77
EHT

066360

071410

EDT1
EFT1

071534

071624

;ERROR

066372
071410
071534
071624

100

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

EMT100
EHT1
EDT1
EFTT
;ERROR

101

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

EMT101
EHT1
EDT1
EFT1

066410
071410
071534
071624

;ERROR
066426
071410
071534
071624

102

“ATA'" DID NOT SET DURING RECALIBRATE

EMT102
EHTI
EDT1
EFT1
;ERROR

066436
071410
071534
071624

103

"OM"* CID NOT RESET DURING RECALIBRATE

EMT103
EHT]
EDTI
EFT1

;ERROR
066450
071410
071534
071624

104

_"PIP'" IS STIL

SET AFTER RECALIBRATE

EMT104
EHT1
EDT1
EFT1
;ERROR

066466
071410
071534

11:43:33 PAGE 8-9

SEQ 0037

;ERRCR

002622
002624
002626
002630

4-APR-81

105

EMT105
EHTT
EDT1

UNEXPECTED ''ILR'' ERROR DURING RECAL IBRATE

CZRMNBO RMOS/3/2 FCTNL TST 2

ERROR POINTER TABLE

MACRO v04.00

11:43:33 PAGE

8-10

EFT
;ERROR

00265¢
002654
002656
002660

4-APR-8i

SEQ 0035

071624

—

002650
LNLS LV

106

UNEXPECTED "RMR'' ERROR DURING RECAL IBRATE

EMT106

066476
071410

EHT!

EDT1
EFT1

071534
071624

;ERROR

107

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

EMT107
EHT1
EDT?
EFT1

066506
071410
071534
071624
;ERROR

CANNOT ACCESS MASSBUS CONTROLLER VIA UNIBUS

:ERROR

NONEXISTENT DEVICE

;ERROR

DEVICE NOT AVAILABLE

;ERROR

BUS TIMEOUT-NED STATUS FAILURE

; ERROR

DEVICE NOT AN RMOS/3/2

066526
071432
071552
071642
222
223
224

066540
071436
071554
071644

066546
071436
071554
071644

066554
000000

066570
071442
071556
071646

CZRMNBO RM0S/3/2 FCINL TST 2

ERROR POINTER TABLE

MACRO v04.00

4-APR-81

11:43:33 PAGE 8-11

SEQ 0039

(VLN

;ERROR

002742

002744
002746
002750
237
238
239

242

243
244
245

;ERROR

002762
002764
002766
002770

003000

246
247
248’

066626
071410
071534
071624

251

s ERROR

003012
003014
003016
003020

066646
071410
071534
071624

252

253
254

066656
071410
071534
071624

RMCS2 NOT

INITIALIZED BY UNIBUS

120

RMER1

INITIALIZED BY UNIBUS

NOT

121

RMAS NOT

INITIALIZED BY UNIBUS

122

RMMR1 NOT

INITIALIZED BY UNIBUS

EMT122
EHT1
EDT1
EFT1

. ERROR

003022
003024
003026
003030

INITIALIZED BY UNIBUS

EMTi21
EHT1
EDT1
EFT1

066636
071410
071534
071624

249
250

RMBA NOT

EMT120
EHTI
EDT1
EFT1

-ERROR
003002
003004
003006
003010

116

EMT117
EHT
EDT1
EFT1

066616

071410
071534
071624

;ERROR
002772
002774
002776

INITIALIZED BY UNIBUS

EMT116
EHT1
EDT1
EFT1

066606
071410
071534
071624

240
241

RMCST NOT

EMT115
EHT]
EDT1
EFT1

066576
071410
071534
071624

;ERROR
002752
002754
002756
002760

115

123

EMT123
EHTI
EDT1
EFT1

RMDS NOT

INITIALIZED BY UNIBUS

255

TST 2

MACRO v04.00

RMEC2 NOT

INITIALIZED BY UNIBUS

125

RMMR2 NOT

INITIALIZED BY UNIBUS

EMT125
EHT1
EDT1

066676
071410
071534
071624

EFT1

;ERROR

066706
071410
071534
071624

126

RMCST

NOT CLEARED BY CONTROLLER CLEAR

EMT126
EHT1

EDT1
EFT1
sERROR

066720
071410
071534
071624

127

RMBA NOT

CLEARED BY CONTROLLER CLEAR

EMT127

ERTI
EDT1
EFT1
:ERROR

066732
071410
071534
071624

130

RMCS2 NOT CLEARED BY CONTROLLER CLEAR

EMT130
EHT1
EDT1
EFTI
;ERROR

066744
071410
071534
071624

131

RMER1

NOT

CLEARED BY CONTROLLER CLEAR

EMT131
EHT1
EDT1
EFT1

;ERROR

071624

124

EFT
;ERROR

071534

B &
11:43:33 PAGE 8-12

EMT124
EHT1
EDT1

066666
071410
071534
071624

066756
071410

4-APR-B1

SEQ 0040

;ERROR

N~
b 2
[=To
0 V]

(ZRMNBO RMOS/3/2 FCTINL
ERROR POINTER TABLE

132

EMT132

EHT1
EDT1
EFT1

RMAS NOT CLEARED BY CONTROLLER CLEAR

'
-

CZRMNBO [MOS5/3/2 FCTINL TST 2
ERROR POINTER TABLE

MACRO v04.00

4-APR-81

%
L
11:43:33 PAG: B-13

SEQ 0041

]

277

:ERROR

278

282
283
284

NOT CLEARED BY CONTROLLER CLEAR

EHTT
EDT1
EFT1

;ERROR

003140

RMMRT

EMT133

066770
071410
071534
071624

003132
003134

133

067002
071410
071534
071624

134

RMDS NOT CLEARED BY CONTROLLER CLEAR

EMT134
EHT1
EDT1
EFTI
;ERROR 135

067014
071410
071534
071624

RMEC2 NOT CLEARED BY CONTROLLER CLEAR

EMT135
EHT1
EDT1
EFT1
;ERROR

067026
071410
071534
071624

136

RMMRZ NOT CLEARED BY CONTROLLER CLEAR

EMT136
EHT1
EDT1
EFT1

;ERROR
067040
071410
071534
071624

137

RMCS1 NOT CLEARED BY ERROR CLEAR

EMT137
EHT1
EDT1
EFT1
;ERROR

067050
071410
071534
971624

140

RMCS2 NOT CLEARED BY ERROR CLEAR

EMT140
EHTT
EDT1
EFT1
;ERROR

067060
071410
071534
071624

141

RMCS1

NOT CLEARED BY DRIVE

CLEAR

EMT141
EHT1
EDTI
EFT1
;ERROR

142

RMDS NOT

CLEARED BY DRIVE

(LEAR

CZRMNBO RMOS/3/¢ FCTINL
ERROR POINTER TABLE

067070
071410
071534
071624

4-APR-81

4
D
11:43:33 PAGE B-14

EMT142

EHTT

EDT1
EFT1

:ERROR

143

RMERT

NOT CLEARED BY DRIVE

CLEAR

EMT143
EHT
EDT1
EFT1
;ERROR

144

RMAS NOT

CLEARED BY DRIVE

(CLEAR

EMT144
EHT1
EDT1
EFTI

071534
071624
;ERROR

067120
071410
071534
071624

145

RMMR1

NOT CLEARED BY DRIVE (LEAR

EMT145
EHT
EDT1
EFT1
;ERROR

067130
071410
071534
071624

146

RMMR2 NOT CLEARED BY DRIVE CLEAR

EMT146
EHT1
EDT1
EFT1
;ERROR

067140
071410
071534
071624

147

RMERZ NOT CLEARED BY DRIVE CLEAR

EMT147
EHTI
EDT1
EFT1

;ERROR
-da-‘—.l\
e—
W=
SO0

003212
003214
003216
003220

MACRO v04.00

ooog
NNN

299

TST 2

150

RMEC2 NOT CLEARED BY DRIVE CLEAR

EMT150
EHT1
EDT1T
EFT1
:ERROR

151

MEDIUM NOT ON LINE

321
322
323

324
325
326

067160
071410
071534
071624

067172
071410
071534
071624

003322
003324
003326
C03330

067204
071410
071534
071624

330
331
332

333
334
335

06724C
071410
071534
071624

003362

067252
071410
071534
071624

341

067276

SHOULD BE

SET BECAUSE DV(

154

UNSAFE SHOULD NOT BE SET, AC

155

VOLUME

VALID NOT

IS SET

IS LOW

SET By PACK ACK

156

OFFSET MODE NOT SET BY OFFSET COMMAND

157

OFFSET MODE NOT RESET BY RT(C

EMT157
EHT?
EDT!
EFTT
;ERROR

003372

UNSAFE

EMT156
EHTI
EDT1
EFT1

067264
071410
071534
671624

339
340

153

EMT155
EHTI
EDT1
EFT1

;ERROR

003364
003366
003370

DRIVE FAULT

EMT154
EHT1
EDT1
EFT1

067222
071410
071534
071624

:ERROR

003352
003354
003356
003360

152

EHTT
EDT?
EFT1

;FRROR

003342
003344
003346
003350

EMT153

sERROR

003332
003334
003336
003340

E &
11:43-33 PAGE 8-15

EMT152
EHT1
EDT1
EFT1
:ERROR

327

328
329

"OoOI=R

;ERROR

003312
003314
003316
003320

4-APR-81
mmmm

003302
003304
003306
003310

MACRO v04.00

)

ERROR POINTER TABLE

TST 2

—

(ZPMNBO RMO5/3/72 FCTINL

160

EMT 160

RMOF

NUT

RESET BY RIP COMMAND

COMMAND

342
343
344

07140
07153%

"oTrT

071624

067306
071410
071534
071624

161

EDT1
EFT1
162

RMDC NOT RESET BY RIP COMMAND

EMT 162

EHTT

EDT1
EFT1
;ERROR 163

071204
071472

DATA WAS ECC CORRECTED BUT
WRITE BUFFER

EMT 336
EHT336
EDT336
EFT336

071570
071660

;ERROR
067342
071410
071534
071624

164

OPI

SHOULD NOT BE SET

EMT164

ENTT
EDT?
EFT1
.ERROR

067350
071410
071534
071624

165

IvC SHOULD NOT BE

SET

EMT 165
EHTT

EDT1
EFT1
;ERROR

067356
071410
071534
071624

166

IAE SHOULD NOT BE SET

EMT 166
EHT]
EDT!
EFT1

JERROR
067364

RMDA NOT RESET 8Y RIP (OMMAND

EMT161

067320
071410
071534
071624

003462

B-16

EHTI

s ERROR

003460

11:43:33 PAGE

SEQ 0044

:ERRCR

003402
003404

4-APR-81
mmm

003374
003376
003409

MACRC v04.00

—

ERROR POINTER TABLE

TST 2

CZRMNBO RMOS/3/72 FCINL

167

EMT167

NEM SHOULD NOT BE SET

DOES NOT

COMPARE WITH

071410

071534
071624

067372
071410
071534
071624

067404
071410
071534
071624

T
T
T

170

INCORRECT “MOL'* STATUS DURING DIAGNOSTIC MODE

171

"'ATA"' NOT SET DURING RETURN TO CENTERL INE

EMT171
EHTI
EDT1
EFT1
s ERROR

003512
003514
003516
003520

8-17

EMT170
EHTT
EDTI
EFT1
:ERROR

370
37
372

11:43:33 PAGE

SEQ

;ERROR

003510

4~APR-81

003464
003466
003479

TABLE

MACRDO v04.00

mmm

FRROK POINTER

TST 2

—

CZRMNBO RM(S5/3/2 FCTNL

067414
071410
071534
071624

172

"ATA"" NOT SET BY OFFSET COMMAND

EMT172
EHT1
EDTI
EFTT

373

374

375

:ERROR

003522
003524
003526
003530

067424
071410
071534
071624

376

377
378

379
380
381

382
383
384

067434
071410
071534
071624

003552
003554

RMERZ NOT

INITIALIZED BY CONTROLLER CLEAR

175

SELECTED DEWICE

IS IN WRITE PROTECT

EMT175

071410
071534
071624

067454
071410

174

EDT1
EFT1

067446

INITIALIZED BY UNIBUS INIT

EMT174
EHT1

;ERROR

003542
003544
003546
003550

RMER2 NOT

EMT173
EHT1
EDT1
EFT

:ERROR

003532
003534
003536
003540

173

EHTI

EDT]
EFT1
s ERROR

176

EMT176

EHT

CANNOT SET DIAGNOSTIC MODE

TJRMNBO RMOS/3/2 FCOINL

FRROR POINTER

003556
003560

TABLE

385

388
389
390

394
395
396

397
598
399

000000
000000
000000
000000

067464
071410
071534
071624

067476
071410
071534
071624

200

067510
071410
071534
071624

201

INCORRECT "WRL'" STATUS DURING DIAGNOSTIC MODE

202

INCORRECT "'SKI'" STATUS DURING DIAGNOSTIC MODE

EMT202
EHT1
EDT1
EFT1

067522
071410
071534
071624

203

INCORRECT "DVC’* STATUS DURING DIAGNOSTIC MODE

EMT203
EHT1
EDT1
EFT1
;ERROR

067534
071410
071534
071624

204

"VV'' WAS NOT RESET BY MAINTENANCE UNIT READY

EMT204
EHT1
EDT1
EFT1
;ERROR

205
EMT205
EHTI
EDTI

INCORRECT "PIP'* STATUS DURING DIAGNOSTIC MODE

EFTi

;ERROR

003622
003624
003626
003630

==RESERVED FOR POWER MONITOR BIT FAILURE==

EMT201
EHT1
EDT1

:ERRCR

003612
003614
003616
003620

177

EMT200
EHT1
EDTI
EFT1
;ERROR

003602
003604
003606
003610

EFT1

;ERROR

003572
003574
003576

11:43:33 PAGE B8-18

(olelelsl

003562
003564
003566
003570

4&~-APR-81

EDT

;ERROR

003600

391
392
393

(RO v04.00

071534
071624

386

1ST

SELECTED DEVICE HAS A PERSISTENT ''SKI'' ERROR

CJRMNBO

RMOS/3/72

FRRCR PCINTER

003650
406
407
408

FCINL

TABLE

T1ST

MACRD

v04.00

071624

003666
003670

067562
071410
071534
071624

EDTi
EF T

067572

420

067604
071430
071534
071624

UNEXPECTED LOSS OF "MOL'* = MEDIUM IS OFF LINE

210

UNEXPECTED LOSS OF

VOLUME VALID - "W’ =0

EMT210
EHT1
EDT1
EFT1

067612
071410
071534
071624

UNEXPECTED MECHANICAL MOTION - "PIP'" = 1

EMT211
EHT1
EDT1

EFT1

;ERROR

003712
003714
003716
003720

207

EMT207
EHT
EDT1
EFT1

071410
071534
071624

418
419

‘LBC"" DID NOT SET DURING DIAGNOSTI( MODE

EMT206

;ERROR

003702
003704
003706
003710

206
EHT

SERROR

003672
003674
003676
003700

8-19

EFT

:ERROR

003662

11:43:33 PAGE

SEQ 0047

;ERROR

003652
003654
003656
003660

4-APR-81

067626

212

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

EMT212
EHTI

071410
071534
071624

EDT1
EFT1

421

422
423

424
425
426

s ERROR

003722
003724
003726
003730

067642
071410
071534
071624

003740

067652
071622
071544
071634

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

EMT213
EHT]
EDT1
EFTI
;ERROR

003732
003734
003736

213

214

EMT214
EHT2
EDT2
EFT2

DRIVE EXECUTED A RECALIBRATE WITH ERROR SET

CZRMNBO RMOS/3/¢2 FCTNL
ERROR POINTER TABLE

427

428

429

003742
003744
003746

003752
003754
003756

071544

071634

067704
071410
071534
071624

438

439
440
441

003772
003774
003776
004000

217

067744
071410
071534
071624

INCORRECT "'OPI'" STATUS

222

RM DID NOT

DETECT RMR ERROR

EMT222
EHT1
EDT1T
EFT1

445

;ERROR

067754
071446
071560
071650

221
EMT221
EHTI
EDT1
EFT1

;ERROR

004022
004024
004026
004030

INCORRECT "WLE'' STATUS

EHT1
EDT1
EFT1

067734
071410
071534
071624

446

INCORRECT ''IAE'" STATUS

EMT220

442

004012
004014
004016
004020

INCORRECT "'IvC'' STATUS

EDTI
EFT1

;ERROR

204002
004004

DRIVE DID NOT DETECT *'IVC’'*" ERROR DURING RECAL IBRATE

EMT217
EHT1

067724
071410
071534
071624

443

447

216

;ERROR 220

004010

444

215

EDT1
EFT1

071534
071624

437

EMT216
EHTI

067714
071410

436

11:43:33 PAGE 8-20

EMT215
EHT?2
EDT?
EFT2

067672
071422

;ERROR

003762
003764
003766
003770

4-APR-81

SEQ

;ERROR

003760
433
634
435

MACRO v04.0C

:ERROR

003750
430
631
632

TST 2

223
EMT223
EHT223
EDT223
EFT223

RM DID NOT DETECT PARITY ERROR ON MASSBUS CONTROL BUS

004F

(ZRMNBO RMOS/3/2 FCTNL

ERROR POINTER TABLE

TST 2

MACRO v04.00

448

zgg

;ERROR
004032
004034
004036
004040

000000
000000
000000
000000

451

;ERROR
000000
000000
000000
000000

222

:ERROR

457

000000
000000
000000
000000

004062
004064
004066
004070

000000
000000
000000
000000

460

22}

463

000000
000000
000000
000000

466

:ERROR
004112
004114
004116
004120

000000
000000
000000
000000

UNUSED

227

UNUSED

230

UNUSED

231

UNUSED

g
0
0
0
:

22;

226

0
0
0
0

JERROR
004102
004104
004106
004110

UNUSED

0
0
0
0

000000
000000
000000
000000

2215

469

:ERROR

:ERROR
004072
004074
004076
004100

225

0
0
0
0

2‘553

UNUSED

0
0
0
0

454

C04052
004054
004056
004060

224

232
0
0
0
0

11:43:33 PAGE 8-2!

0
0
0
0

22%
004042
004044
004046
004050

4-APR-81

UNUSED

CZRMNBO RMO5/3/2 FCINL TST 2
ERROR POINTER TABLE

MACRO v04.00
:ERROR

472
47%
474

s ERROR

000000
000000
000000
000000

;ERROR

- ERROR

;ERROR

UNUSED

OO0

UNUSED

OO0

004202
004204
004210

490
491

UNUSED

(wlelele]

000000
000000
000000
000000

004172
004174
004176
004200

487

004162
004164
204166
004170

UNUSED

OOOCO

004152
004154
004156
004160

488

489

UNUSED

olelele]

;ERROR

000000
000000
000000

484
485
486

UNUSED

elelole

000000

:ERROR

477

481
482
483

475
476

478
479
480

233

&
L
11:43:33 PAGE 8-22

[elelele)

470
&7

4-APR-81

:ERROR

242

UNUSED

SEG 0050

CZRMNBO RMOS5/3/2 FCTINL
ERROR POINTER TABLE

(elelele]

;ERROR

006222
004226

004230

497

498

;ERROR

004232

000000

C04236
004240

000000
000000

000CC9

499
500

501

502
503
504

004242
004244
004246
004250

004252
004254
004256
004260

;ERROR

246

000000
000000
0000GQ
000000

070030
071410
071534
071624

505

507

243

UNUSED

QOO

000000
00700
Ov.CJ0
006000

UNUSED

elele
o]

493
49
495

M
4
11:43:33 PAGE 8-23
LW

,
;
|

004212
004214
004216
004220

4&-APR-81

492

MACRO v04.00

UNUSED

[elelele

TST

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

EMT246
EHTI
EDT1

EFT1
;ERROR

070040
071410
071534
071624

247

"ATA’TM" NOT RESET BY WRITING RMAS

EMT247
EHTI
EDT1
EFT1

;ERROR

070052
071410
071534
071624

250

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

EMT250
EHT]
EDT1
EFTT
;ERROR

251

PROGRAM

INTERRUPT WAS NOT

GENERATED

MACRO v04.00

s ERROR
070074
071422
071544
071634

070102
071410
071534
071624

526
527
528

531

SHOULD NOT HAVE BEEN GENERATED

Sty

253

OFFSET MODE WAS NOT RESET BY WRITING RMDC

254

INCORRECT "'ILF'' STATUS

EHT1
EDTI
EFT1

070130
071410
071534
071624

255

INCORRECT "'ATA'" STATUS

EMT255
EHT1
EDT1
EFT1
;ERROR

070140
071460
071560
071650

256

INCORRECT “'ILR'' STATUS

EMT256
EHT256
EDTZ23
EFT223

;ERROR
070150
071410
071534
071624

257

INVALID

IAE STATUS DURING SEARCH COMMAND

EMT257
EHT]
EDT1
EFT1
;ERROR

070162

INTERRUPT

EMT254

070120
071410
071534
071624

529
530

PROGRAM

EDT1
EFT1

;ERROR

004352
004354
004356
004360

252

EMT253
EHT1

s ERROR

004342
004344
004 346
004350

EMT252
EHT?2
EDT?2
EFT2
;ERROR

523
504,
525

N
&
11:43:33 PAGE 8-24

SEQ 0057

070066
071422
071544
071634

004340

4-APR-81
norOrONY

ERROR POINTER TABLE

ST 2

"TOoOIR®R

CZRMNBO RMOS5/3/2 FCINL

mmmm

260

EMT260

*‘IVC"" WAS NOT DETECTED DURING SEARCH COMMAND

071624

070174
071410
071534
071624

070214
071410
071534
071624

070224
071410
071534
071624

547
548
549

004442

070234
071410
071534
071624

nN—O

wvivawn
NN

070254
071410
071534
071624

v
w

VI
i

"*SKI'" ERROR DURING SEARCH (OMMAND

264

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

265

ERRONEOUS IVC ERROR DURING SEARCH - VOLUME

EFT1

070274
071410
071534
071624

070306

263

EMT265
EMT1
EDTI

266

DEVICE FAULT

(DVC)

DURING SEARCH

EMT266
EHT1
EDT1
EFT1
;ERROR

004462

"LBC"" ERROR NOT SET DURING DIAGNOSTIC MODE

EMT264
EHT1
EDTI
EFT1

:ERROR

004452
004454
004456
004460

262

EMT263

;ERROR

004444
004446
004450

DRIVE EXECUTED SEARCH WITH ERROR SET

EHT1
EDT1
EFTI

;ERROR

004440

261

EMT262
EHT]
EDT1
EFT1
:ERROR

004436

EMT261
EHT1
EDT1
EFT1
;ERROR

004432

11:43:33 PAGE B8-25

JO
ey

;ERROR

004402

4-APR-81
mmm

071470
071534

B v

004374
004376
004400

MACRO v04.00

——

ERROR POINTER TABLE

TST 2

CZRMNBO RMOS/3/2 FCTNL

267

EMT267

SKI SHOULD HAVE BEEN SET BECAUSE CYLINDER
ADDRESS IS TOO LARGE

IS VALID

071470
071534
071624

4-APR-81
H

D
F

;ERROR

070324
071410
071534

11:43:33 PAGE

8-26

eed
d ad

004464
004466
004470

MACRO v04.00

ERROR POINTER TABLE

TST 2

mmm

CZRMNBO RMOS/3/2 FCINL

270

0PI ERROR DURING SEARCH BECAUSE MOL

EMT270
EHT
EDT1
EFT

071624

;ERROR
070340
071410
071534
071624

271

OPI

ERROR DURING SEARCH BECAUSE ON CYLINDER

DIDN'T DROP

EMT271
EHT1
EDT1
EFT1
sERROR

070356
071410
071534
071624

272

LOST MOL DURING SEARCH, OPI

IS NOT SET

EMT272
EHT1

EDT1
EFT1

;ERROR
070374
071410
071534
071624

273

PIP STIL

SET AFTER SEARCH

EMT273
EHTI
EDT1
EFT1
;ERROR

070412
071410
071534
071624

274

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

EMT274
EHT1
EDT1
EFT1
;ERROR

070430
071410
071534
071624

275

MXF ERROR - COMPOSITE ERROR OCCURRED BEFORE DATA
COMMAND STARTED

EMT275
EHT1
EDT1
EFT1
;ERROR

276

"'OP1'* ERROR DURING DATA TRANSFER BECAUSE "MOL'' WAS

CJRMNBO RMOS/3/2 FCINL
ERROR POINTER TABLE

580
581

TST 2

MACRO v04.00

4-APR-81

004552

SEQ 0055

070442
071410
071534
071624

582
583

EMT276
EHTI
EDT]
EFT1
;ERROR

277

585
004562
004564
004566
004570

004572
004574
004576
004600

070536
071410
071534
071624

598

004630

070550
071410
071534
071624

601
602

W —On
»MOrno

NNN

004632
004634
004636

IS VALID

302

"'ILR'" ERROR DURING DATA TRANSFER

303

"ILF'* ERROR DURING DATA TRANSFER

EMT303

EHT1
EDT1
EFT1

;ERROR
jelele]

603

ERRONEOUS “‘IVC'' ERROR DURING DATA TRANSFER = VOLUME

EMT302
EHT1
EDT1
EFT1
;ERROR

004622
004624
004626

301

EHT1
EDT1
EFT1

;ERROR

004612
004614
004616
004620

“'IVC"" ERROR DURING DATA TRANSFER BECAUSE VOLUME

WAS NOT VALID

" EMT301

070514

071410
071534
071624

595

300

EMT300
EHT1
EDT1
EFT1

;ERRCR
004602
004604
004606
004610

SEARCH TIMED OUT OR

EHT1
EDT1
EFT1

070474
071410
071534
071624

593

600

CYLINDER DIDN'T DROP OR 2)

EMT277

070456
071410
071534
071624

591
592

597

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

3) RUN TIMED OUT

sERROR

594

ZERO

004554
004556
004560

586

11:43:33 PAGE 8-27

304

EMT 304
EHTI
EDT1

‘RMR"" ERROR DURING DATA TRANSFER

CZRMNBO RMOS5/3/72 FCINL
ERRCR POINTER TABLE

C0&640
604
€05
606

607
608
609

TST 2

MACRO v04.00

004660

070574
071410

071534
071624

070606
071410
071534
071624

070636
071410
071534
071624

ERROR DUE

TO CYL INDER

310

DEVICE FAULT DURING DATA TRANSFER .

LOSS OF BIT CLOCK DURING DATA TRANSFER

312

LOSS OF

SYSTEM CLOCK DURING DATA TRANSFER

EMT312
EHT]
EDT1

EFTI1
;ERROR

NNN

SKI

EDT1
EFT1

070667
071410
071534
071624

OOO0O

DRIVE DID NOT DETECT

EMT311
EHTI

;ERROR

1624

307

EHTI
EDTT
EFT1

070650
071410
071534
071624

1534

"'SK1'" ERROR DURING DATA TRANSFER

EMT310

:ERROR

70674
1410

306

EMT307
EHT
EDT1
EFT1
:ERROR

004722
004724
004726
004730

INCORRECT ''IAE'" STATUS DURING DATA TRANSFER

EMT306
EHT1
EDT1
EFTI

070616
071410
071534
071624

622
623
624

305

EMT305
EHT1
EDT1
EFT1

;ERROR

004712
004714
004716
004720

EFT

071626

;ERROR

004652
004654
004656

11:43:33 PAGE 8-/8
SEQ

;ERROR

004642
004644
004646
004650

4-APR-B81

313

EMT313
EHTT
EDTI
EFTI

UNSAFE ERROR DURING DATA TRANSFER

(DVC = Q)

005

CZRMNBO RMCS/3/72 FCINL

ERROR POINTER TARLE

529
626
627

15T

MACRO v04.07

:ERROR

004732
004734
004736
004740

070714

004744
004746
004750

DRIVE

S
8-29

TIMING ERROR DURING DATA TRANSFER

EHTI

EDT

EFTI

;ERROR

004742

314

F
11:43:33 PAGE

EMT314

071410
071534
071624

628

4-APR-81

315

WRITE LOCK ERROR

EMT3i5

070726
071410

EHT]
EDT1
EFTI

071534
071624

:ERROR
070740
071410
071534
071624

316

ERRONEOUS WRITE LOCK ERROR

EMT316
EHT]
EDT1
EFTT
;ERROR

317

070752

EMT317
EHT1

071624

EFT1

071410
071534

HEADER CRC

ERROR DURING DATA TRANSFER

EDT1

;ERROR

320

FORMAT

ERROR DURING DATA

TRANSFER

EMT320
EHTI
EDT1

EFT1
;ERROR

070772
071410
071534
071624

071002
071410

071534
071624

HEADER COMPARE ERROR DURING DATA TRANSFER

EMT 321
ENXTT

EDT1

EFT1

:ERRCR

005012
005014
005016
205020

Lrd

322

EMT322
EHTI

EDT1
EFT1

HEADER ERRORS SHOULD NOT BE

SET

CJRMNBO RMOS/3/2 FCTNL
ERROR POINTER TABLE
646

647

648

649
650
651

652
653
654

655
656
657

€58
659
660

ST 2

MACRC v04.00

071010
071410
071534
071624

071032
071410
071534
071624

005066
005070

071044
071410
071534
071624

CORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER

325

UNCORRECTABLE DATA (HECK ERROR DURING DATA TRANSFER

326

DATA PARITY ERROR DURING READ COMMMAND

EMT326
EHT]
EDT
EFT1

071062
071410
071534
071624

327

OFFSET MODE NOT RESET BY WRITE

COMMAND

EMT327
EHT1
EDT1
EFT1
;ERROR

071074
071410
071534
071624

330

DATA PARITY ERROR DURING WRITE COMMAND

EMT330

EHTI
EDT!
EFT1
;ERROR

071104
071410
071534
071624

324

EMT 325
EHTI
EDT1
EFT1

;ERROR
005062
205064

DATA (HE(CK ERROR DURING DATA TRANSFER

EFT1

;ERROR

005052
005054
005056
005060

323

EMT 324
EHTI
EDT

071020
071410
071534
071624
;ERRCR

005042
005044
005046
005050

B-30

EMT323

:ERROR

005032
005034
005036
005040

11:43:33 PAGE

€EQ D058
:FRROR

0050¢2
005024
005026
005030

4=-APR-81

EMI331
EHTT

EDTI
EFT1

WRITE

CLOCK FALURE DURING WRITE

COMMAND

CZRMNBO RMOS/3/2 FCTNL

ERRCR POINTER TABLE

TST 2

MACRO v04.0C

SEQ B05Y

668

669

;ERROR
071116

EMT 332

00511€
005120

071534
071624

EDT?
EFTI

;
5

071410

670

;ERROR

(G71130
071410

EMT333
EHTT

005130

071624

EFTI

67%
674
675

676
677
678

071534

071146
071410
071534
071624

071164
071410
071534
071624

679

;ERROR

071204
071472
071570
071660

682

683
684

005170
685
686
687

688
689

071214
071504
071600

LOST MOL DURING DATA TRANSFER = OP!

335

LOST VOLUME

336

337
EMT337
EHT337
EDT337
EFT337

071670
JERROR

005172
005174
005176
005200

334

= 0

VALID DURING DATA TRANSFER - IV(

DATA READ DOES NOT

COMPARE WITH DATA WRITTEN

EMT 336
EHT336
EDT336
EFT336
;ERROR

005162
005164
005166

TRANSFER = SKi

EMT 335
EHT1
EDT1
EFT

gg?

005152
005154
005156
005160

SET AFTER DATA

EMT 334
EHTI
EDT1
EFTI
;ERROR

005142
005144
005146
005150

"RANSFER

EDT1

;ERROR

005132
€05134
005136
005140

PIP STIL

333

005122
0051246

005126

DATA LATE ERROR DURING DATA

EHTI

671

672

332

005112

005114

4-APR-81 11:43:33 PAGE B-3%1

071224
(71472
071570
071660

340

WRITE

CHECK ERROR NOT

DETECTED

WRITE

CHECK ERROR AT UNEXPECTED ADDRESS

EMT 340
EHT336
EDT336
EFT336
;ERROR

341

INCORRECT DATA DURING WRITE CHECK ERROR

= 0

CZRMNBO RMCS/3/72 FCINL

FRROR POINTER TABLE

TST 2

MACRD

y0&.00

071236

071570
071660
;ERROR

071244
071410
071534
071624

69
695
696

697

699

071270
071516
071610
071700

700

701
702

071302
071410
071534
071624

703

704

705

071312
071410
071534
071624

706

707
708

"HCE'' NOT DETECTED DURING DATA TRANSFER

345

"BSE'' NOT DETECTED DURING DATA TRANSFER

346

HEADER ERROR WAS DETECTED W/ HCI

SET

EMT 346

EHT1
EDT1
EFT1
: ERROR

005262
005264
005266
005270

344

EMT 345
EHT1
EDT1
EFTY
;ERROR

005252
005254
005256
005260

"FER'' NOT DETECTED DURING DATA TRANSFER

EMT 344
EHT 344
EDT344
EFT344

;ERROR
005242
005244
005246
205250

343

EMT343
EHT1
EDT1EFT1
;ERROR

005232
005234
005236
005240

"IVv("* ERROR NOT DETECTED DURING DATA TRANSFER

EFTI

071256
071410
071534
071624

698

342

EMT342
EHTI
EDT1

sERROR

£05226
005230

-3

17:43:33 PAGE 8-32

EMT341
EHT336
EDT336
EFT336

071472

&9
£92
693

4-APR-81

071326
071410
071534
071624

347

DATA TRANSFER NOT ABORTED W/ COMP ERROR SET

EMT347

EHT?
EDT1
EFT1
;ERROR

350

LOST VOLUME VALID DURING SEARCH = "'IvC'' = O

CJRMNBO RMOS/3/2 FLTNL
FRROR POINTER TABLE

005272
005274
005276

NN N

MACRC v04.00

005306
005310

11:43:33 PAGE 8-33

EMT 3590

EHTI

07153
071624

EDT1
EFT1

;ERROR
005302

4-APR-B1

SEQ 0067

071340
071410

Hwro

005300

TST 2

351

"'ATA'" DID NOT

SET DURING SEARCH

EMT351
EHTI
EDT1
EFT1

071356
071410
071534
071624

715

716

717

;ERROR

005312
005314
005316
€05320

071366

005322
005324
005326
005330

724
725

005332
005334
005336
005340

EMT 352

;ERROR

353

LOOK AHEAD TEST FAILS

;ERROR

354

BSE

071372
071530
071622
071710

721
722

723

PROGRAM TIMEOUT WHILE

000000
000000

718

719
720

352

071402
071410
071534
071624
\

SHOULD NOT BE

EMT354
EHT1
EDT]
EFT1
sPUT ERROR TABLE HERE

SET

TESTING RMLA

ERROR

= =

=D e cd ol od et

OVONP
N WN—=O N0 NN
P NN -

TABLE USAGE

CZRMNBO RMOS5/3/2 FCTINL

TST 2

MACRO v04.00

4-AFR-B1

.SBTTL

K
5
11:43:33 PAGE 9

ERROR TABLE USAGE

:THE ERROR TABLE
;NUMBER, I.E.,

:
:
:
:

EMT
EHT
EDT
EFT

ABOVE

ERROR
ERROR
ERROR
ERROR

CONSISTS OF

FOUR WORD ENTRIES FOR EACH ERROR

MESSAGE TABLE ADDRESS
HEADER TABLE ADDRESS
DATA TABLE ADDRESS
FORMAT TABLE ADDRESS

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

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

THE ERROR TYPE

SUBROUTINE.

sNO MESSAGE TO BE TYPED FOR THE ERROR.

THE

EMT ENTRY

IS ZERO,

THERE

sSIMILARLY, THE EHT, EDT, AND EFT ENTRIES ARE ADDRESSES OF TABLES
:OF HEADER, DATA AND FORMAT INFORMATION FOR A GIVEN ERROR.

EACH ENTRY

:IN THE ERROR HEADER TABLE MAY OR MAY NOT HAVE AN ASSOCIATED LINE OF
:DATA, HOWEVER, EACH DATA LINE MUST HAVE AN ASSOCIATED FORMAT AND
;HEADER.

THAT

IS,

A HEADER LINE MAY BE PRINTED WITHOUT ANY DATA,

;BUT A DATA LINE IS NOT PRINTED WITHOUT A HEADER, AND EACH DATA LINE
;MUST ALSO HAVE A FORMAT.

;IN SUMMARY,
-

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

CZRMNBO RMOS/3/2 FCTNL
ERROR TABLE USAGE

IST 2

MACRO v04.00

4&-APR-81

104401

000417

BADTMO: MOV
TST
cMP

005356

TYPE

;.65%:

64%:

010046
104402

000240

.SBTTL

19 005440

20 005444
21 005446
22
23

012737
000402

177777

005037
000240
005227
001375
000005

0C1330

001114

022706
001374
012706

001154

005470
005476
005504
005512

005556
005562
005566
005574
005602

012737 056764
012737 000340
012737 057560
012737 000340
012737 062614
012737 000340
012737 062722
012737 000340
013737 031760
005037 001206
005037 001210
112737, 000001
012737 005574
012737 005602

005610
005614
005622
005630
005636
005644

013746
012737
012737
012737
022777
001012

005646

000403

005520

177570

177777

LASCIZ

MOV
TYPOC
NOP

HANDLES UNEXPECTED TIMEOUTS

(SP) ,RO

;SAVE PC WHERE

(SP)+,(SP)+

SRESTORE

-(R0O)
,65%
648

;ADJUST PC =2

TIME OUT OCCURED

STACK POINTER

;:TYPE ASCIZ STRING
::GET OVER THE ASCIZ

<CRLF>/UNEXPECTED BUS

RO,=(SP)

THE

TIMEOUT,

PC=/

sSETUP FOR TYPING OUT PC

;PUT "HALT(0)' INSTRUCTION HERE IF YOU WISH
:TO STOP ON UNEXPECTED TIMEOUT.

START OF PROGRAM
#-1,CHGADR

; CHANGE RH/RM BUS ADDRESS

(LR

CHGADR

:NO CHANGE

INC
BNE
RESET

;TTY LOOP, WAIT FOR INCREMENT

START:

START2: NOP

START?2

INITIALIZE

IN ADDRESS

*OF WORD

JRESET THE WORLD
THE COMMON TAGS

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

CMP
BNE
MOV

001100

000004
005650
177570

START1: MOV

.SBTTL

012706

005526
005534
005542
005550

001330

000000

005450
005454
005456
005462
005464

005026

SEQ 0063
s THIS ROUTINE

011600
005740
022626

11:43:33 PAGE

000020
000022

000030
000032
000034
000036
000024
000026
031752

001131
001122
001124

000004
001154
001156
173310

(R6) +
#SWR ,R6
=6
#STACK,SP

;o INITIALIZE A FEW VECTORS

;;CLEAR MEMORY LOCATION
: ;DONE?
;;LOOP BACK IF NO
;:SETUP THE STACK POINTER

#$SCOPE ,a#IOTVEC ;;10T VECTOR FOR SCOPE ROUTINE
#340,@#I0TVEC+2 ;;LEVEL 7
#SERROR ,@#EMTVEC ;;EMT VECTOR FOR ERROR ROUTINE
#340,WEMTVEC+2 ;;LEVEL 7
#STRAP ,Q#TRAPVEC ;;TRAP_VECTOR FOR TRAP CALLS
#340,9#TRAPVEC+2;LEVEL 7
#SPWRDN ,a#PWRVEC ;;POWER FAILURE VECTOR

MOV
CLR
CLR
MOvVB
MOV
MOV

#340,Q#PWRVEC+2 ;;LEVEL 7
$ENDCT,SEOPCT
;;SETUP END-OF-PROGRAM COUNTER
$TIMES
$ESCAPE
#1,SERMAX

;o INITIALIZE NUMBER OF ITERATIONS
;:CLEAR THE ESCAPE ON ERROR ADDRESS
;;ALLOW ONE ERROR PER TEST

#. ,SLPADR
#.,SLPERR

;o INITIALIZE THE LOOP ADDRESS FOR SCOPE
::SETUP THE ERROR LOOP ADDRESS

MOV
MoV
MOV
MOV
(MP
BNE

a#ERRVEC,-(SP)
#648 ,A¥ERRVEC
#DSWR, SWR
#DDISP,DISPLAY

;;SAVE ERROR VECTOR
;;SET UP ERROR VECTOR

66%

; :BRANCH IF NO TIMEOUT TRAP OCCURRED

65%

**BRANCH IF NO TIMEOUT

;:SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
;;EQUAL TO A "*~1'", SETUP FOR A SOFTWARE SWITCH REGISTER.

#-1,aSWR

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

“:AND

THE HARDWARE SWR IS NOT = -1

CZRMNBO RMOS5/3/2 FCINL
INITIALIZE

THE

IST 2

COMMON TAGS

MACRO v04.00

005676
005702
005710
%g;}g

005037
132737
001403
012737

001230
000200

001243

001244

001154

678

24
25 005720
59 005726

012737
012737

005342
000300

000004
000006

;SETUP '‘TIMEOUT'' TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS
MOV
#BADTMO,ERRVEC
:SETUP FOR UNEXPECTED TIMEOUT
MOV
#PR6,ERRVEC+2
:LEVEL 6

012637

001154
001156

005734

005227

005740
005742
005750
005752
005756

001035
022737
001431
104401
000426

006034
006040
006042
006050
006052

005737
001012
123727
001406
023727
001005
104407

006062

006064

006066
2 006074

000042

005760
25295:

.SBTTL

000042

001242

000001

001154

000176

000403

REs

112737- 000001~ 001150

;2SET UP FOR TRAP RETURN

MOV

#SWREG, SWR
::POINT TO SOF TWARE SWR
#D1SPREG,DISPLAY
(SP)+ Q#ERRVEC
;;RESTORE ERROR VECTOR

CLR
BITB
BEQ
MOV

$PASS
WAPTSIZE.SENVM
67%
#$SWREG, SWR

::CLEAR PASS COUNT
::TEST USER SIZE UNDER APT
s 3YES,USE NON=APT SWITCH
2iNO,USE APT SWITCH REGISTER

5
70$:
71%:

INC

#=1

LASCIZ

<CRLF>RCZRMNBO - RM05/3/2 FUNCTIONAL

BNE
CMP
BEQ
TYPE
BR

68$
#SENDAD ,a#42
68%
.69%
688

J:FIRST TIME?

S BRANCH IF NO
::ACT=11?
*:BRANCH IF YES
::TYPE ASCIZ STRING
“:GET OVER THE ASCIZ

TEST,

2a<CRLF>

GET VALUE FOR SOF TWARE SWITCH REGISTER

ST
BNE
CMPB
BEQ
CMP
BNE
GTSWR

G2
708
SENV.#1
70$
SWR , #SWREG
71%

MOVB

#1,$AUTOB

718

:;ARE WE RUNNING UNDER XXDP/ACT?
*:BRANCH IF YES
::ARE WE RUNNING UNDER APT?
“:BRANCH IF YES
::SOFTWARE SWITCH REG SELECTED?
::BRANCH IF NO
;:GET SOFT=-SWR SETTINGS

::SET AUTO-MODE INDICATOR

*sTHE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE:

:PAPER TAPE

33 006074
3, 006100
35 006106
36 006110
37 006116
38 006124
39 006126

005037
122737
001160
013737
122737
103002
105037

006144

000412

42 006132
41 006136
42 006140

43
44
45
46

668%:

#65%, (SP)

.SBTTL
TYPE PROGRAM NAME
;2TYPE THE NAME OF THE PROGRAM IF FIRST PASS

177777
032122

65%8:

MOV
RT]
MOV
MOV

SEQ

01276
000002
012737
012737

000176
000176
000004

64%:

M5
11:43:33 PAGE 10-1

00565C
005654
005656
005664

005672

0056556

4-APR-81

006172

006172
006174
006200
006202

005737
001425
104401

005046
113716
104403
001

001332
000016

000041

000040
000007

001332
001332

001332

000042

1%:

006146

::73%:

728"
001332

(MANUAL), ACT11,

XXDP CHAIN OR DUMP

CLR
CMPB
BNE
MOV
CMPB
BHIS
CLRB

XXDP
416, a#41
3s
a#s0,XXDP
47, XXDP
1%
XXDP

:CLEAR *XXDP' LOAD DEVICE STORAGE
:LOADED FROM" AN RM05/3/2 ?
*BRANCH IF NOT
*GET DEVICE INDICATOR AND NUMBER
SIS IT A VALID NUMBER ?
*YES
*NO, DEFAULT TO DRIVE 0

72%

*:GET OVER THE ASCIZ

ST
BEQ
TYPE

.ASCIZ

L2
2%
738

*CHAIN MODE OR ACT11 AUTO ACCEPT 2
*BR IF NEITHER
*:TYPE ASCIZ STRING

<CRLF>/NOT TESTING DRIVE /

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

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

CZRMNBO RMOS5/3/2 FCTNL

GET VALUE FOR SOF TWARE

47 006203
48 006204

000

IST 2
MACRO Vv04.00
SWITCH REGISTER

gg 006210

104401

000517

01217

51 006212

005227

177777

104401

006226

52 006216
53 006220
006224
006246

54 006246
55 006250

001114

000410
005046

113716
104403
001
000
104401

006254
006256
006257
006260
006264

000431

006350
60 C06350
006354

000435

56
57
58
59

104401

2%:

70 006464
71 006464

;% 006472

INC

#-1

;FIRST TIME

758

S:TYPE ASCIZ STRING

<CRLF>/TO TEST

748:

*GET NUMBER OF DRIVES

748

s+ 758

:SUPRESS LEADING ZEROS
“CR=LF

$CRLF

sNO

-(SP)

XXDP, (SP)

001332

006266
22778
76%:

006356

/.,

HALT PROGRAM,

78%

:.788%:

132737
001146

;9 006502

005001
013700
104401

78 006506
79 006514

136137
001531
104401

010146

000200

001243

MOV

012760
010160
005760
032760
001051
032760
001450
016002
012737
022702
001430

XS1Z:

CHARACTER

:SUPRESS LEADING ZEROS

:;TYPE ASCIZ STRING

::GET OVER THE ASCIZ

REMOVE RRDP PACK AND REPLACE

IT/<CRLF>

::TYPE ASCIZ STRING

::GET OVER THE ASCIZ

CLEAR LOCATION 40 AND RESTART PROGRAM./<CRLF>

STANDALONE
#377 ,$DEVM

001300

001217

000040
000010
000012
010000

000010

004000

000000

000026
064366
020025

006776

000010

- SEE

SIZING

IS ALLOWED

#BIT7,$ENVM
12%

;SIZING ALLOWED ?
:NO

CLR

;START FROM DRIVE 0O

BITB
BEQ

ATNTBL (R1) ,$DEVM
;IS DEVICE PRESENT
11%
;BR IF NO
;

TYPE
MOV
TYPOS
.BYTE
.BYTE
TYPE

064560

;BR _IF NO
;SET DEVICE MAP FOR ALL DRIVES

BITB
BNE
MoV
TYPE

104403
002

000
104401

:GET DRIVE ADDRESS

:TYPE DRIVE ADDRESS

/WITH A WORK PACK,

BEQ

001300

001276
064350
064666

;CLEAR WORD ON STACK

;CHECK FOR AUTO MODE OR STANDLONE MODE
TST
ane2
RUNNING IN AUTO MODE ?

000042

000377

77%

JONLY 1

76%

THRU HERE

::GET OVER THE ASCIZ

DRIVE

:PROGRAM IS RUNNING IN AUTO MODE

74 006474
75 006476

80 006516
81 006522
006524
006526

.BYTE

3%:
005737
001561
012737

N 5
11:43:33 PAGE 10-2
SEG 0065

TYPE

006450

65 006450
66 006454
67 006456
68
69

4-APR-81

MOV
MOV
1ST
BIT
BNE

BIT

BEQ
MOV
MO
CMP
BEOQ

$BASE ,RO
,SYSTAT

+SCRLF
R1,=-(SP)
2
Q.
LBLNKS4

#CLR,RMCS2(RO)

R1,RMCS2(RO)
RMDS (RO)
#NED ,RMCS2(RO)
3%

;LOAD THE BASE ADDRESS
;TYPE "UNIT STATUS:®

IN MAP ?

sCR=-LF
;:SAVE R1 FOR TYPEOUT
;G0 TYPE--OCTAL ASCII

J3TYPE 2 DIGIT(S)
; :SUPPRESS LEADING ZEROS
;TYPE 4 BLANKS
;CLEAR MASS BUS

#$RM02,10%

;LOAD THE DRIVE ADDRESS
JACCESS DRIVE REGISTER
;IS DRIVE PRESENT ?
;BR IF NO
;IS DRIVE AVAILABLE ?
;BR IF NO
;SAVE DRIVE TYPE REGISTER IN RZ2
;ASSUME RM0O2 DEVICE

;BR IF

#DVA,RMCST1(RO)
4%

RMDT (RO) ,R2

#20025,R2

;SINGLE

PORT RM0O?2

YES

CZRMNBO RMOS5/3/72 FLTNL IST 2
MACRO v04.00
GET VALUE FOR SOF TWARE SWITCH REGISTER

95 006612

022702
001425
012737
022702
001417
022702
001414
012737
022702
001406
022702
001403
000412
032760
001412
000417

POND =

b e el e

- O VTM \JO\-"J‘WN-‘OS

104401

024025
064373
020024

006776

024027
064405
010000

000012

3%:

064460
064666

001300

104401
146137

064477
064666

001300

005737
001406
123701
001360

001332

000413

104401

000755
104401
104401
104401

104401

000137

5%:

001217
007476

#246024 ,R2
2%
#$RM0S5,10%

;DUAL PORT RMOS3 2
;BR IF YES
;ASSUME RMOS DEVICE

;SINGLE PORT RMOS ?

:BR IF YES

#24027 ,R2

;DUAL PORT RMOS ?

.NCTRM

;DRIVE NOT AN RM0S5/3/2

:BR IF YES

JCHECK NEXT DRIVE

BIT
BEQ

#MOL ,RMDS (RQO)
6%
7%

:BR IF NO

TYPE

NOTPRS
5%

;DRIVE NOT PRESENT
;CHECK NEXT DRIVE

.NOTAVL

;DRIVE NOT AVAILABLE

TYPE

;IS MEDIUM ON LINE ?

6%:

TYPE
BICB
B8R

JUNTOFF
;DRIVE OFFLIME
ATNTBL (R1) ,$DEVM
;CLEAR DEVICE FROM BIT MAP
9%
;PRINT DRIVE TYPE

7%:

TST
BEQ
CMPB
BNE

XXDP

;LOADED FROM RMOS5/3/2 ?

TYPE

8%
XXDP ,R1
5%
§§ODEV

:NO
2IS THIS THE DRIVE ?
:BR IF NO
;DRIVE IS LOAD DEVICE

TYPE

JUNTON

;DRIVE ONLINE

.WORD

;PRINT DRIVE TYPE
;MESSAGE ADDRESS HERE

11%:

INC
(MP
BLE

R1.47
1%

;ALL DRIVES ARE CHECKED ?
sBRANCH IF NOT

12%:

TYPE
JMP

JECRLF
CMNSTART

;CR=LF
;JUMP TO COMMON START

8%:

9%:

108:
000007

;ASSUME RMO3 DEVICE
;SINGLE PORT RMO3 ?
;BR IF YES

:BR IF YES

ATNTBL (R1) ,$DEVM
;CLEAR DEVICE FROM BIT MAP
118
;CHECK NEXT DRIVE

064426

064510
064562

#SRM03,10%
#20024 ,R2
2%

BI(B

001332

000000
005201
020127
003637

4%:

;DUAL PORT RMO2 ?

#20027 ,R2

104401

000425

2%:

#24025 ,R2

(MP
BEQ
MOV
CMP
BEQ
cMP
BEOQ

TYPE

000402
104401
146137

BEQ
MOV
cMP
BEQ

006776

B 6
11:43:33 PAGE 10-3
SEQ 0066

CMP

024024

064400
020027

4-APR-B1

TYPE
TYPE

LBLNKS?2

;TYPE 2 BLANKS

;s INCREMENT

THE DRIVE ADDRESS

CZRMNBC RMOS/3/2 FCTNL

MACRO Vv04.00

INPUT ROUTINES

4-APR-81

88 8 o

07020

7020

004737

061230

7024
7030

005227
001023

177777

e —h
b nd e

012637
123727
001005

sg8
g

—d —d

104401
104401

SO 007072

000414
104401

104401
000407

22
23
24 007100
25 007100 005737
26 007104 001457
27 007106 005037
28 007112 104401
29
30
31 007116
32 007116 1044017
33 007122 013746
007126 104402
34 007130 104401
104413
35 007134
36 007136 012637
37 007142 001412
38 007144 022737
39 007152 101403
40 007154
104401
41 C07160
000756
2% 007162 013737
44 007170
45 007174
46 007176
47 007202
48 007204
49 007210

50 007212
51 007216
52 007220
53 007226
54 007230
55 007234
56 007236

104401
005046
113716
104402
104401
104413

012637
001412
022737
101003
104401
000755
113737

STANDALONE

:
ONEL
STANDA
JSR
INC

BNE

:SEE
104401
104411

C
11:43:33 PAGE

6
11

SEQ 0067

.SBTTL

D ——d

3 ONO N WN—=O0
O N NN -

STANDALONE

ST 2

063450
000131

064554
0C1217

1%:

001330

;FIRST

TIME

*BR IF NO

THRU HERE

:WANT HELP ?

MOV

(SP)+,$TMP1

*SAVE AND ECHO RESPONSE

CMPB

STMP1.#'Y

TYPE

LSTMP1

TYPE
BR

HELP
33

TYPE

sanr

TYPE

*GET RESPONSE

“WAS IT A YES RESPONSE 2

;NO

STYPE

'y*

:TYPE

°N'

*YES = TYPE HELP TEXT

*CR-LF

IF USER WANTS TO CHANGE UNIBUS ADDRESS
ST

CHGADR

: CHANGE RH/RH BUS ADDRESS ?

CLR
TYPE

CHGADR
.SCRLF

*NO CHANGE NEXT
*CR-LF

BEQ

001330
001217

#-1

LMSHELP

B8R
égss

;INITIALIZE CONSOLE

TYPE

BNE

001176
101360

PC.STKINT

IF OPERATOR WANTS HELP TEXT

RDCHR

001176
001176

INPUT ROUTINES

‘BR IF NO

TIME

églALOGUE TO CHANGE THE UNIBUS ADDRESS, VECTOR ADDRESS AND INTERRUPT PRIORITY

064025
001276

TYPE
MOV
TYPOC

TYPE

064562

RDOCT
MOV

001176
160000

064035
001176

001176

064077

4%:
5%:

001272
064562

001176

001000

001176

064106

001176

001272

6$:

,BLNKS?2
(SP)+,$TMP1

:TYPE CURRENT BUS ADDRESS
*;SAVE S$BASE FOR TYPEOUT
::GO TYPE=~OCTAL ASCII(ALL DIGITS)

:TYPE 2 BLANKS

*GET NEW BUS ADDRESS
:CARRIAGE RETURN ?

BEQ
CMP
BLOS

5%
#160000,$TMP1

MOV

$TMP1, SBASE

*TRY AGAIN

TYPE
CLR
?eggc

,CNSLO3
Z(SP)
SVECT1, (SP)

:GET CURRENT VECTOR ADDRESS

TYPE
RDOCT

LBLNKS2

TYPE

001276

LCNSLO1
$BASE , - (SP)

CNSLO2

SYES=SKIP TO NEXT ENTRY
:BASE ADDRESS IN 1/0 PAGE 2
TYES

*TYPE WARNING MESSAGE

*STORE NEW BUS ADDRESS

:TYPE 2 BLANKS
*GET NEW VECTOR ADDRESS

MOV
BEQ
P
BHI
TYPE

(SP)+,$TMP1
7%
#1000, $TMP1
6%
CNSLO4

*CARRIAGE RETURN?
SYES=SKIP TO NEXT ENTRY
*VECTOR ADDRESS < 1000 2
SYES!!
: TYPE WARNING MESSAGE

MOVB

$TMP1,SVECTI

*STORE NEW VECTOR ADDRESS

§s

*RETRY

CZRMNBO RM0S/3/2 FCTNL

STANDALONE

INPUT ROUTINES

57
58
59 007244
60 007250
61 007252
62 007256
63 007262
64 007266
65 007272
66 007274
67 007300
68 007306
69 007310

005227
001002
104401
104401

005037
104401
104411

012637
023727
001007
104401

70 007314
71 007322

012737
000137

73 007326
74 007334

023727
001436

76 007342

79 007360
007362

023727
002430
023727
003427
000423

007364

104411

75 007336

77 007350
78 007352

007366
007372
007400
007402
87 007406
88 007412
89 007420
90 007422
91 007430
92 007432
93 007436

95 007440
96 007444
97 007450
98 007456
99 007464
100 007466
101

TST 2

007472

104401

012637
023727
001432
104401
104401

023727
002404
023727
003403

MACRO v04.00

:DIALOGUE

7$:

177777

064142
001217
001300
064326

001176

8%:
9% :

001176

000101

063434
000377
006464

001300

001176

000015

001176
001176

000060 -

001176

000067

001176
001176

001176

000067

001176
177770
64666
000377

138:

104401

001217
006464

156137
122737
101337

000137

001300
001300
148:

:BR IF NO

*TYPE INPUT INSTRUCTIONS

“CR=LF
:CLEAR DEVICE MAP
sTYPE

'DRIVE(S):

:GET RESPONSE

LALL

JYES,

XS12Z

*AUTO SIZE.

cMP
BEQ

$TMP1, #CR
128

:CARRIAGE RETURN ?
YYES

CMP

$TMP1,#'0

MOV

#377 .$DEVM

RDCHR

MOV

$TMP1

:IS INPUT "A"TM 2
*NO

TYPE "ALL'' AND GO

;SET DEVICE MAP FOR ALL DRIVES

:ECHO RESPONSE

*NUMBER < 0 ?

12%
$TMP1 47
13%
128

;YES
*NUMBER > 7 ?
;NO
:ILLEGAL INPUT

(SP)+,$TMP1

;GET RESPONSE

CMP.

$TMP1,#CR

TYPE

,COMMA

TYPE

013701
042701

,MSDRVS

;FIRST TIME THRU ?

(SP)+,$TMP1

BEQ

12%:

8$
.CNSLO7
~$CRLF
$DEVM

$TMP1. 4" A
108

BLT
CMP
BLE
8R

064304

#-1

CMP
BNE

TYPE

000015
000060

TYPE
RDCHR

JMP

118%:

063445
001176
001176

BNE
TYPE
TYPE
(LR

TYPE

10%:

D
6
11:43:33 PAGE 11-1

TO INPUT DEVICE NUMBERS

INC

MOV

104401

000711

4-APR-81

14%

; CARRIAGE RETURN ?
:YES

STYPE

°*,

‘$TMPT

“ECHO RESPONSE

,CNSLO8

:TYPE CR-LF

CMP
BLT
CMP
BLE

$TMP1.#'0
12%
STMP1,4'7
13%

MoV

BIC
BISB
(MPB

$TMP1,R1
;R1 = DRIVE NUMBER
#°C7.R1
AINTABL(R1),$DEVM
;SET DEVICE IN MAP
#377.$DEVM
:DONE ?

TYPE

L$CRLF

TYPE

BHI

JMP

11%

XS12

*NUMBER < 0 ?
*YES
*NUMBER > 7 ?
:NO
*RETRY

"' ?ILLEGAL

*NO

SCR=LF

:GO SIZE

DEVICES

INPUT"'

(ZRMNBO RMOS/3/72 FCTNL

STANDALONE

IST 2

INPUT ROUTINES

MACRO v04.00

;ASSEMBLE

104401
013700

064520
001300

104401

063445

TYPE

001004

7 007514

104401

064547

010137
012702

001466
00001

8 007520

9 007524
10 007530

11 007534

12 007536
13 007540

012701

005003

062701
006302

063445

064666

000002

001217
036460
007624

3%:

4%:

JINITIALIZE ENTRY POINTER
:R2 = DEVICE POINTER

;sR1 = ADDRESS OF FIRST ENTRY IN QUE

;:G0 TYPE--OCTAL ASCI!I

;ADVANCE ENTRY POINTER
;ADVANCE DEVICE POINTER

DONE ALL DEVICES
?
:YES
ADVANCF DEVICE NUMBER
JENTER NEXT DEVICE
;TERMINATE TEST QUE
sTYPE CR-LF

5%:

;ANY MONITGR PRESENT ?
;BR IF YES
;JUMP TO START
sRETURN CONTROL TO MOUNITOR

NOP
TSTB
BNE
TST

$DEVM
2%
ans2

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

45 007716
46 007722
47 007726
48 007732
49 007736

105037
005037

001116
001206
001326
061230
000240

2%:

6%:
READY:

000042

007750

,.SAVE R3 FOR TYPEOUT

anL2
5%
START
$GET42

1%:

012746
000002

R2
48
R3
2%
(R1)
.SCRLF

IN MAP ?

TST
BNE
JMP
JMP

032112

005037
004737
012746

#2.R1
R2

: 19 THIS DEVICE
iNO !
TYPE Py

_ASCIZ

005432

001300

TSTB
BEQ
INC
BR
CLR
TYPE

R2.RO
3%

;:65%:

648

000137

007742
007746

R1,TSTQUE
#1,.R2

#TSTQUE+2,R1

°'NONE'

PC,SIZCLK
;SEE IF CLOCK PRESENT
6%
;YES = CLOCK IS PRESENT
658
;. TYPE ASCIZ STRING
648
;:GET OVER THE ASCIZ
<CRLF>/NO 'L' OR 'P' CLOCK/

42 007706

005432
032112

ADD
ASL

SIZE FOR CLOCK
JSR
BR
TYPE
BR

000240
105737
001007
005737

000137

000042

000001

37 007670
38 007672
39 007676
40 007700

001002

BIT
BEQ

TYPOS

005737
001002
000137
000137

22 007712

sTYPE

1
,,TYPE 1 DIGIT(S)
O
: SUPPRESS LEADING ZEROS
ATNTBL (R3),1(R1): ENTER ATTENTION BIT IN QUE

2%:

007652
007656
007660
007664

007704

.NONE

.BYTE
JoYTE
MOVB

004737
000425
104401
000413

CLR

DRIVES TO TEST

001
000
116361

27
28 007610
29 007614
30 007616
007622

gg 007670

MOV
MOV

s TYPE

;BR IF

JYES = ENTER DEVICE NUMBER IN OUf

105702
001402
005203
000756
005011
104401

31
32
33
34

MOV

. COMMA

010346

007572
007574
007576
007600
007602
007604

007652

1%:

sTYPE "DRIVE(S) TO BE TESTED'
;RO = DEVICE MAP

. COMMA
R3,(R1)
R3.-(SP)

104403

20
21
22
23
24
sg

001470

TYPE

,DRIVES
$DEVM,RO

TYPE
MOV
MOV

007552

18 007564
19 007570

BNE

FROM DEVICE MAP

:R3 = DEVICE NUMBER

104401
010311

007554
007555
17 007556

¢
12

030200
001413

14 007542
15 007546

16 007550

TEST QUE

CMNSTART:
TYPE
MOV

5 007506

6 007510

£
11:43:33 PAGE

SEQ 0069

2 007476
3 007476
4 007502

4-APR-B1

BNE

JMP

;BR IF

YES

JMP

START

$GET42

;JUMP TO START

CLRB
CLR

$TSTNM
$TIMES
CTLFG
PC,$TKINT
#PRS ,-(SP)

sRESET TEST NUMBER
JINITIALIZE NUMBER OF ITERATIONS
sCLEAR CONTROL-C FLAG
JINITIALIZE TTY
;2PUT NEW PS ON STACK

CLR
JSR
MoV

MOV
RTI

#64%,-(SP)

JRETURN CONTROL TO MONITOR

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

CZRMNBO RMOS5/3/2 FCINL

STANDALONE

TST 2

INPUT ROUTINES

007750

5C 007750
g; 007756

117737
005037

171512
001512

MACRO v04.00

012737
013700
012760

002000
001276
000040

OO 010010

016002

000026

62 010020

022702

000007

012737

011000

59 010002

042702

€3 0100c4

001003

2150 010026

001234

———

64%:

MOVB
CLR

171460

001334

aTSTQUE ,$UNIT
MEDENB

+LOAD DRIVE NUMBER
;CLEAR MEDIA ENABLE

000010

#TA4 ,LSTRK
$BASE ,RO
#CLR,RMCS2 (RO)

JASSUME LAST TRACK FOR RM02/3 =
;RO = UNIBUS ADDRESS
. CLEAR MASSBUS

MOV

RMDT (RO) ,R2

;GET RMDT AND

cmMp

#7,R2

;1S IT AN RMOS
?

MOV

#TA16!TA2,LSTRK YES"SET LAST TRACK = 18.

MOVR

177770

BIC
BNE

001334

THE LAST TRACK

MOV
MOV
MOV

QTSTQUE RMCS2(RO)

#177770 k2
38"

;SELECT DEVICE UNDER TEST

:SAVE DRIVE TYPE BITS
:NO, MUST BE AN RMO2 OR RMO3

sTYPE DRIVE NUMBER TO BE TESTED(SUNIT)

68 C100346
69 010040
70 Q10044

104401
104401
(013746

010050

104403

TYPOS

010054
010056
010060
010062
010064

005004
0053064
001376
005304
00137¢

CLR
DEC
BNE
DEC
BNE

71
72
7%
74
75

117760

1 010014

12-1

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

56 007762
57 007770
58 007774

11:43:33 PAGE

SEQ 0070

53
gg

4-APR-81

010052
010053

002
000

0C1217
064342
(001234

3%:

TYPE
TYPE
MOV

BYTE
BYTE

LSCRLF
,MSGDRV
SUNIT,=-(SP)

2
0

R4
R&
=2
R4 *Z

sCR=LF ;TYPE 'DRIVE'
;:SAVE SUNIT FOR TYPEOUT
;:TYPE DRIVE NUMBER
;:GO TYPE--OCTAL ASCII

;2TYPE 2 DIGIT(S)
; : SUPPRESS LEADING ZEROS

;THESE TWO LOOPS ARE ADDED TO
JWAIT FOR TTY

MACRO v04.00

&4-APR-81

AL AR EE

SSTEST 1

11:43:33 PAGE

CONTROLLER ACCESS TEST

2RSS

D wirny

::.'..t..Q.QQ..ttt'.t.t""""Iittttt'tttt'.t"'t...t..tl'...tto

D e
d ek
D
— el e}

010066
010066
010070
010072
010076
010102
010106

000004
000240
012706
013700
013701
012737

010114
010116
010122
010126
010134

005001
013746
013746
012737
012737

010142

010146
010152
010156

VNI
NH WOV NN

C l RMNBU kMOfi/{/? ‘rYNL 1ST 2
Y
(ONTROLLER ACCESS TEST

010162
010166

010172
010176
010202
010206
010212
010216
010222
010226
010230
010232
010236
010242
010244
010259
010252
010256
010262
010266

110160

010160
016002
010160
016002
016046
010160

016002
012660
010160
016002

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

TST1:

SCOPE
NOP

001100

MOV

001276

001466
000001

000004
000006

010230
000300

MOV

000004
000006

#1,8TESTN

;:SET

CLR
MOV
MOV
MOV

R1
ERRVEC,=(SP)
ERRVEC+2,~(SP)
#1% ,ERRVEC

MOvB
MOV ~
MOV
MOV
MOV

R1,RMCST1+1(RO)
R1,RMWC(RO)
RMWC (RO) ,R2
R1,RMBA(RO)
RMBA (RO) ,R2

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

MOV
MOV

R1,RMCS2 (RO)
RMCS2(R0O)
,R2

;MOVE

MOV
MoV

R1,RMDB(RO)
RMDB(RQ)
,R2

;MOVE DATA BUFFER

s
;:POP STACK INTO ERRVEC+2
;;POP STACK INTO ERRVEC
;NO BUS TIMEOUT OCCURRED

CMP

(SP)+,(SP)+

;ADJUST STACK

gg¥

%?8)’.ERRVEC

;;POP STACK

TST

;STAND ALONE MODE

JMP

$EOP

JRETURN TO S$EOP

MOV

MOV
MOV

1%:

000042
005422
001300

2%:

031724

STACK POINTER

MOV

000006
000004

JINITIALIZE

sRO = UNIBUS ADDRESS

MoV

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

#STACK,SP

$BASE ,RO

MOV

001226

;SCOPE CALL
:START OF TEST

MOV

BNE
JMP
CLR

TSTQUE ,R1

;(R1)

= DEVICE

BEING

TFSTED

TEST NUMBER IN APT MAIL BOX

;sPUSH ERRVEC ON STACK
;;PUSH ERRVEC+2 ON STA(K

#PR6 ,ERRVEC+2

sMOVE BUS ADDRESS REGISTER

RMCS2(R0O) ,=(SP)
(SP)+ ,RM(CS2(R0)
(SP)+ ,ERRVEC+?2
(SP)+ ,ERRVEC

(SP) + ,ERRVE(C+2

2%
START1
$DEVM

; .PUSH RMCS2(R0) ON STACK

CONTROL STATUS REGISTER

;.POP STACK INTO RM(CSZ2(R0)

;.POP STACK INTO ERRVEC+?
INTO ERRVEC

;NO!!
;YES-GO GET $BASE
;FUDGE NO DRIVES IN MAP

:;'...'.‘.QQ".'fi"'*".""*"*..fltt"‘..‘t"""'t'*"..'fi'."'

J*TEST 2

FORMAT ZEROS

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

1ST2:

33
35 |
3

001100
001276
001466
000002

001226

000000

001444

SCOPE
NOP
MOV
MOV
MOV

MOY

#STACK,SP
$BASE RO
TSTQUE ,R1

#2,8TESTN

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

;2SET

TEST NUMBER IN APT MAIL BOX

;SETUP PARAMETERS FOR GENERATING DATA BUFFER
"

MOV

#0 ,RMOF O

;18 BIT FORMAT

'ghflNBL RM0S5/3/¢2 FCTINL
FORMATY

28
39

40
41

42
43

ZEROS

012737
012737

0127%7
01273%7

01273%7

15T

MACRC v04.00

4-APR-B1

000000
000000
177376
101360

000062

001446

MOV
MOV
MOV
MOV
MOV

001420
001414
001416
001412
JVERIFY

033152

47
48
49

50
51

065000
000001
035104

00473 7

032176

154130

001174

001

2%:

011130
012737
012737
004737

3%:
:PREPARE

000404
000240
104000

000137

011130

000005
001553
000006
000034
000032
000000
000200

(%:

001412

011130

004737

035704
036602

004737

035770

#BUFONE ,RMBAO
#WH,RMCS10

:DATA BUFFER ADDRESS
‘WRITE HEADER AND DATA

SECTOR IS NOT
PC ,BADSCT

sCALL

.SCTMSG

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

BR
NOP
EMT
JMP

SECTOR MODULE

;TYPE BAD SECTOR MESSAGE

MOV
MOV
JSR
DEVICE

BAD

;GO TO 2% IF NO ERROR

20%

JSR
.WORD

:2 + 256 WORDS (2'S COMP)

BAD

EMT
JMP

JSR
BR
NOP

000137

sCYLINDER = 0
:TRACK = Q, SECTOR = 0

<ERROR # DEFINED BY BADSCT SUBROUTINE
;GO TO 20% IF ERROR
;USE

ALL

ZEROS DATA PATTERN

;GO GENERATE DATA BUFFER

FOR DATA TRANSFER
PC,TSTPRP
;PREPARE DEVICE

154130

20%

FOR

TEST

;TASK DESCRIPTOR AS FOLLOWS:

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

;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ''SKI'' OR "PIP'" IS SET
;VERIFY RECALIBRATION
;GC TO 4% IF NO ERROR

;RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 20% IF ERROR

;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER
#SEEK!GO,RMCS10 ;CHANGE COMMAND TO SEEK
MoV
MoV
APUTINX ,R2
;WRITE REGISTER INDEX TABLE
H#RMDA, (R2) +
MOVB
#RMDC, (R2) +
MOVB
H#RMOF
, (R2) +
MovB
#RM(S1, (R2)+
MOVB
MovB
#200, (R2)+

036240
104000

THAT

JSR
B8R

#0. .RMDCO
#0 . RMDAQ

#-258. RMWCO

TYPE

6
13-1

<EQ 007

063346

H
11:43:33 PAGE

5%:

EMT
JMP

PC,PUT

20%

;GO WRITE REGISTER(S)

;GO TO 5% IF NO ERROR

WITH PUT

SUBROUTINE

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

;SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE
6£%:

JSR
JSR

PC,GETSTS
PC,TIMCUT

;GO READ SEEK STATUS
JSR

PC,GET

;SETUP FOR STATUS
JWAIT FOR SEEK TO COMPLETE

;GO READ REGISTER(S)

WITH GET

SUBRQOUTINE

E .

'\"q‘

O RMOS/3/2 FCINL
FORMAT

ZERQS

010530
010532
01053
010536
010542

000404
000240
104000
000137

010542
010546
010550
010552
010554

004737
000405
000240
104000
004736

010556

012737
012702
112722
112722
112722

000063
001556
000002
0C0004
000000

010614
004737
010620 C00404
010622 000240
010624
104000
010626
000137
010632 *

036240

010632

004737

036602

010636
010642
010644
010646
010650

004737
000404
000240
104000
000137

035770

010654
010660

004737
000405

036766

010666
0}82;2

004736
000137

011130

0676

004737

051502

010610

010654

010662
010664

00700
>:0702
010704
010706
8}8;}2

010714
010720

112722

000200

011130

000240
104000

000405
000240
104000
004736
000137
004737
000405

4-APR-B1

7%:
JVERIFY

044104

011130

010562
010570
010574
10600
010604

MACRO vO04.0C

011130

000137

010562

15T 2

8%:
001412

B8R
NOP
EMT
JMP

20%

THE

RESULTS OF

JSR
B8R
NOP
EMT
“JSR

037620

JMP

6
13-2

;GO TO 7% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUT INF
;GO TO 20% IF ERROR
THE SEEK COMMAND

PC,SEKSTS
8%
PC,a(SP)+

20%

;GO VERIFY RESULTS OF SEEK OPERATION
;GO TO 8% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY SEKSTS SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS

;GO TO 20% IF ERROR

;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
MOV
AWH'!GO,RMCS10
JWRITE HEADER AND DATA
MOV
#PUTINX+3,R2
JEXTEND REGISTER INDEX TABLE
MOVR
#RMWC , (R2) +
MOVR
#RMBA, (R2) +
MOVR
#RMCS1,(R2)+

9%:
SWAIT

10%:

MOVBR

#200, (R2) +

JSR
BR
NOP
EMT
JMP

PC,PUT
9%

FOR WRITE

20%

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE
;GO T0 9% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUT INE
;GO TO 20% IF ERROR

COMMAMD TO COMPLETE AND READ STATUS

JSR

PC,TIMOUT

JWAIT FOR COMMAND TO COMPLETE

JSR
BR
NOP
EMT
JMP

PC,GET
10%

;GO READ REGISTER(S) WITH GET SUBROUT INE
;GO TO 10% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 20% IF ERROR

208

JVERIFY RESULTS OF WRITE COMMAND
JSR
PC.PRIERR
;GO CHECK FOR PRIMARY ERRORS
BR
11%
;GO TO 11% IF NO ERROR

NOP
EMT

011130

1
11:43:33 PAGE

JSR
JMP

PC,a(SP)+
20%

JSR

PC,DTASTS

128

BR
NOP
EMT
JSR
JMP
JSR
BR

12%

;RETURN HERE IF ERROR
; ERROR # DEFINED BY PRIERR SUBROUT INE
;G0 BACK FOR MORE ERRCR CHECKS
;GO TO 20% IF ERROR
;GO VERIFY RESULTS OF

DATA TRANSFER

PC,a(SP)+
208

;GO TO 12% IF NO ERROR
JRETURN HERE IF ERROR
sERROR # DEFINED BY DTASTS SURRQUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 20% IF ERROR

PC,SECERR
13%

sGO CHECK FOR SECONDARY ERRORS
;GO TO 13% IF NO ERROR

CZRMNBO RMOS/3/72 FCTNL
12
FORMAT ZEROS

010722
010724
010726
010730
;85 010734

TST 2

000240
104000
004736
000137

011130

105 010734
106 010742

012737
012737

000073
102364

108 010750
0107564
010756
010760
010762
;93 010766

(04737
000404
000240
104000
000137

036240
"
011130

]}g 010766

004737

036602

114 010772

004737

035770

104

010776
011000
011002
011006
;}2 011010
117
118 011010

000404
000240
104000
000137

004737

011130

036766

011014
011016
011020
011022
011024

000405
000240
104000
004736
000137

011130

120 011030

004737

051502

011036
011040
011042
011044

000240
104000
004736
000137

011130

004737

037620

119 011030

011034

121 11050
122°011050

011054
011056
011060
011062
011064
123 011070

124
125

000405

000405
000240
104000
004736
000137

126 011070

004737

011104

104000

011074
011076
011100
011102

101360
102364
000402
000240

011130

035342

MA{RO v04.00

138:
001412
001416

4-APR-81

NOP
EMT
JSR
JMP

J
11:43:33 PAGE

€
'3-3

SEQ 0074

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

PC,A(SP)+
208

;READ HEADER AND DATA FOR SECTOR JUST WRITTEN

148:

MOV
MOV

#RH!GO,RMCS10
#BUF TWO,RMBAO

;READ HEADER & DATA COMMAND
:CHANGE BUS ADDRESS

JSR
BR
NOP
EMT
JMP

PC,PUT
14$

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
:GO_TO 14$ IF NO ERROR
:RETURN HERE IF ERROR
;ERROR # DEF INED BY PUT SUBROUT INE
;GO TO 208 IF ERROR

;WAIT FOR READ

JSR

15%:

BR
NOP
EMT
JMP

208
TO COMPLETE

PC, TIMOUT
PC,GET

158

208

AND GET STATUS

:WAIT FOR READ TO COMPLETE
;GO READ REGISTER(S) WITH GET SUBROUT
INE

;GO TO 158 IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEF INED BY GET SUBROUTINE
;GO TO 208 IF ERROR
:

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

168:

BR
NOP
EMT
JSR
JMP

PC,a(SP)+
208

;G0 TO 168 IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEF INED BY PRIERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
:GO TO 208 IF ERROR

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

NOP
EMT
JSR
JMP

PC,a(SP)+
20%

:RETURN HERE IF ERROR
:ERROR # DEF INED BY DTASTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
160 TO 208 IF ERROR

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

B8R

17%:

18%:

BR
NOP
EMT
JSR
JMP

:VERIFY DATA
JSR

.WORD
.WORD
BR
NOP
EMT

16$

17%

18%

:GO TO 178 IF NO ERROR

PC,a(SP)+
208

:GO TO 188 IF NO ERROR
JRETURN HERE IF ERROR
:ERROR # DEF INED BY SECERR SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS
;GO TO 208 IF ERROR

PC , CMPBUF

;GO COMPARE WRITE,

BUF ONE
BUF TWO
198
3

READ DATA BUFFERS

:STARTING ADDRESS OF WRITE BUFFER
:STARTING ADDRESS OF READ BUFFER
:G0 TO 198 IF NO ERROR
:RETURN HERE IF ERROR

*ERROR # DEFINED BY CMPBUF

SUBROUTINE

BRZRER

W)
— =

—d ok
e

ol -t
D
e v

el
—

—
—

jelolelelsls]

e
el el e

NN
N NN D

bwm--o»ocog

“ZRMNBO RMOS/372 FCTNL
FORMAT ZERQS
e

032737
001005
12737
000137

IST

MACRO v04.00

4-APR-81

(10600

001444

010000
010322

001444

19%:

BIT
BNE
MOV
JMP

20%:

i
i
il e vl wtih sl

012737
012737
012737
012737
012737
012737

0C0000
000000
010000
177376

011222
011226
011230
011234
011236

004737
000405

033152

e
e
e

NNN—;—A—:

—

)

olelelolele]

) — — ——
—d

sTEST 16 BIT MODE YET
:YES
;SET 16 BIT MODE AND
<TEST AGAIN.

101360

000062

001446
001420
001444
001414
001416
001412

011262

104401
104000

063346

000137

011764

012737
012737
004737

065000
000001
035104

004737

032176

154130

MOV

Rl 22222222222
2222222227

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

#3,8TESTN

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

;;SET TEST NUMBER IN APT MAIL BOX

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

;VERIFY

MOV
MOV
MOV
101

#FMT16,RMOFO
#-258. ,RMWCO

THAT
JSR

SECTOR IS NOT BAD
PC,BADSCT

TYPE

EMT

o
001174
001176

ZERO FILL TEST

SCOPE

NOP
MOV
MOV
MOV

201226

—

b sutd

001100
001276
001466
000003

011242
011242
011250
011256

SRRl

1S73:

— OO NOW
Hso0onSTMO

NS IS NN W
oS NO o

b
e
b

oS
G Qe Y4

[elelelalelele)

000004
000240

012706
013700
013701
012737

#FMT16,RMOFO
20%
#FMT16,RMOFO
1%
e

"".'....'.‘.".."...'.""".'..."..'."'.Q....‘.'.""'.fi'.".

BB
WWWWWN
WL —=OVONOWN

13-4

SEQ 0075

J%TEST 3

145
146
147
148

11:43:3% PAGE

JMP
:

MoV
MOV

JSR

#BUF
ONE ,RMBAO
#WH,RMCS10

;16 BIT FORMAT
;2 + 256 WORDS (2'S COMP)
;DATA BUFFER ADDRESS
;WRITE HEADER AND DATA
;CALL BAD SECTOR MODULE

;GO TO 1$ IF NO ERROR

.SCTMSG

:TYPE BAD SECTOR MESSAGE

188

*GO TO 18% IF ERROR

;ERROR # DEFINED BY BADSCT SUBROUT
INE

#ZEROS,$TMPO

;USE ALL ZEROS DATA PATTERN

PC . GENBUF

;GO GENERATE DATA BUFFER

#1,$TMP

;PREPARE DEVICE FOR DATA TRANSFER
JSR

.WORD

PC,TSTPRP

154130

;PREPARE DEVICE FOR TEST

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

000404
000240
104000
000137

NOP

011764

000005
001553

3%:

001412

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

ERROR

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

;SETUP PARAMETERS AND EXEC''TE SEEK TO GET DRIVE ON CYLINDER
MOV
MoV

#SEEK!GO,RM_S10 ;CHANGE COMMAND TO SEEK
#PUTINX ,R2
WRITE REGISTER INDEX TABLE

RERSR
oo~
O

Qi
Qo

wN—'oogwgm

011764

N YA

004737
004737

035704
036602

B DWWWW
OO\
SO0

004737

035770

000137

011764

LRk
2k 2F 2P o o
==
D

004737
000405
000240

044104

—_—

coo

ed ok
e

011764

\l\lg

% orOoOrONS

177776

SLNR8E
NNNN
OV
O

L
6
11:43:33 PAGE 13-5

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

JSR

PC,PUT

NOP
EMT
4%:

#RMDA, (R2) +

#RMDC, (R2) +

MOVR
MOVB
MOVB

JMP

18%

c$:

JSR

PC,TIMOUT

;GO READ SEEK STATUS
JSR
PC,.GET

6%:

BR
NOP
EMT
JMP

18%

;GO TO 4% IF NO ERROR

WITH PUT

SUBROUTINE

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

;GO TO 18% IF ERROR

JWAIT FOR SEEK TO COMPLETE

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

;GC TO 18% IF ERROR

:VERIFY THE RESULTS OF THE SEEK COMMAND

7%:

JSR
BR
NOP
EMT
JSR
JMP

PC,SEKSTS
7%
PC,a(SP)+

18%

;GO VERIFY RESULTS OF SEEK OPERATION
;GO TO 7% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY SEKSTS SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 18% IF ERROR

;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND

MOV

#=-2 ,RMWCO

000063
001556
000002
000004
000000
000200

MOV
MoV
MOVB
MOVB
MOVB

#WH!GO,RMCS10
#PUTINX+3,R2
#RMUWC, (R2) +
#RMBA, (R2) +
#RMCST1, (R2)+

036240

JSR
BR

PC,PUT
8%

011764

;GO WRITE REGISTER(S)

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

104000

004736
000137

SRR RRGD

sSoonsno
S

b
wd ol

e
i

o
b o

)
e JEue QS

a0 -

—_
b
b el
il
ol

Kol
B e
i S
.
g
R A

- BBl
ad

il sl

lelelololele]
lelelolololele]

Bleolslelololols]
[eololelaolele

SREN28

MOVB

036240

000404
000240
104000

4-APR-81

MOvVB

000000
000200

W
VoL

il —d —

elolelelele

e S

G Gt Py

Bielolelale

‘YR I \NW;:

ROR2232

e
d
s

000006

000034
000032

e
—

SBIX VSN WA -0 000
>

— e

D o

D =D =D =D

00 0o 00 0o 00 20 0o 0o 0o 00 ~\

MACRO v04.0C

SEQ 0076

NNNNOOOO

1ST 2

MOvVB

8%:

NOP
EMT
JMP

;FORMAT PARTIAL SECTOR

;WRITE HEADER AND DATA
JEXTEND REGISTER INDEX TABLE

#200, (R2) +

18%

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

036602

004737
000404
000240

035770

—l—lg
o
&~ro
N

004737

wvioauv

—
—

—
e

OO0

I
B
e
e

CZRMNBO RMO5/3/2 FCINL
13
ZERO FILL TEST

;WAIT

FOR WRITE

JSR

COMMAND TO COMPLETE AND READ STATUS
PC,TIMOUT
©
JWAIT FOR COMMAND TQO COMPLETE

JSR

PC,GET

NOP

;GO READ REGISTER(S)

;GO TO 9% IF NO ERROR
JRETURN HERE

ERROR

WITH GET

SUBROUTINE

CZRMNBO RMOS5/3/2 FCINL

JERO FILL
)

A
o

011516
g
}

TEST

104000
000137

1ST 2

MACRO v04.00

4-APR-B1

M
6
11:43:33 PAGE 13-6

SEQ 0077
EMT

C11764

9%:

JMP

18%

;ERROR # DEF INED BY GET SUBROUT INE
;GO TO 18% IF ERROR

104000

004736
000137

004737
000405
000240

011764

004737

036240

W
~

000073
102364

012737
012737
012737

177376

011764

ISP &
OONNN

NNN

011764

0014
0014
0014

PC,a{(SP)+

18%

JSR

PC,SECERR

JSR

12%:

10%

PC.(SP)+
18%

EMT

011764

PC.PRIERR

JSR
BR
NOP
EMT
JSR
JMP

NOP

_—

004736
000137

JMP

104000

)

Vil
go«o

(= Jo 0

—_

b
b ol

]
e

11%:

037620

036766

e R

10%:

051502

ggo‘oo\o\ oo
»HO gfiu'\)
n—
oy
oo

e
g
"
——y
e
e D d d d d e e D D d e e e ok D

jelelelelelelelelolelolelolelololelolelel
]

|
i

i
P
i

b oD
e

e G
e B
o

eloleloleleNele]

004737
000405
000240

004737
000405
000240
104000
004736
000137

NOP
EMT
JSR

011764

035770

222

004736
000137

004737
000404
000240
104000
000137

JSR

104000

011650

11662
11666

JVERIFY RESULTS OF WRITE COMMAND

036766

036602

(vlelelelels
e

221

004737
000405
000240

004737

SO lelele]

4680
i, 4

NOvwn S

ASLST NSV N

ph.

218
219
220

203

-l

202

ol
sl

200
201

IV
3 v o]
R SILTLFFRARY
FRROrROSRIAN

JMP

PC,DTASTS
11%

12%

PC,a(SP)+

18%

;GO CHECK FOR PRIMARY ERRORS

;GO TO 708 IF NO ERROR
JRETURN HERE IF 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 7118 IF NO ERROR
JRETURN HERE IF ERROR

JERROR # DEFINED BY DTASTS SUBROUT INE

;GO BACK FOR MORE ERROR CHECKS

;GO TO 18% IF ERROR

;GO CHECK FOR SECONDARY ERRORS

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

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

;GO TO 18% IF ERROR

sREAD HEADER AND DATA FOR SECTOR JUST WRITTEN
MOV
#-258. ,RMWCO
;2 + 256 WORDS (2°'S COMP)
MOV
MOV

#RH!GO,RMCS10
#BUF
TWO ,RMBAD

;READ HEADER € DATA COMMAND
s CHANGE BUS ADDRESS

JSR

PC,PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

NOPEMT

13%:

JMP

13%
18%

;GO TO 13% IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUT INE

;GO TO 18% IF ERROR

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

JSR

14%:

BR
NOP
EMT
JMP

PC,GET

14%

18%

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 14% IF NO ERROR
;RETURN 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
15%
;GO _TO 158 IF NO ERROR
NOP
JRETURN HERE IF ERROR

15%:

EMT
JSR
JMP

PC,a(SP)+
18%

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

;GO TO 18% IF ERROR

CZRMNBO ]MOS/3/72 FCTNL

ZERO FILL TEST

FRORR OO
oanNo

non)
—-

~ SN

226

227

—

e e

224
225

e e e e

jelelelolelolelolelolelele)]
b od e e e i =D cd e
b
e

NNNNNNNN NNNNN

223 011706

228
229 011746

004737
V00405
000240

ST 2

MACRO Vv04.00

051502

JSR

004737
000405
000240

16%

NOP

011764

037620C

011764

004737

035342

17%:

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

17%

EMT
JSR
JMP

NOP
EMT

TST4:

001100
001276
001466

PC, CMPBUF
BUFONE
BUF TWO
18%

;GO COMPARE WRITE, READ DATA BUFFERS
:STARTING ADDRESS OF WRITE BUFFER
:STARTING ADDRESS OF READ BUFFER
:GO TO 18% IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEFINED BY CMPBUF

001226

000000
000000
010000
177376
101360
000062

001446
001420
001444
001414

001416
001412

004737

032176

#STACK, SP

MOV

TSTQUE ,R1

:(R1)

$BASE , RO

#4,STESTN

22 1

:RO = UNIBUS ADDRESS

= DEVICE BEING TESTED

$;SET TEST NUMBER IN APT MAIL BOX

:SETUP PARAMETERS FOR GENERATING DATA BUFFER
MOV
#0,RMDCO
:CYLINDER = 0
MOV
#0.RMDAO
“TRACK = 0, SECTOR = 0
MOV
#FMT16,RMOFO
:16 BIT FORMAT
MOV
#-258. ,RMWCO
:2 + 256 WORDS (2'S COMP)
MOV
MOV

TYPE

001174
001176

2323222222223 22222222223

:SCOPE CALL
*START OF TEST
SINITIALIZE STACK POINTER

#BUFONE ,RMBAO
#WH,RMCS10

012554

2223232222323222

SCOPE
NOP
MOV

MOV

063346

065000
000001
035104

iRl

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

033152

012737
012737
004737

SUBROUTINE

82222323 2232322323223 2222332222222

FORMAT CHECK ZEROS

MOV

000004

IF ERROR

PC,a(SP)+
18$

S*TEST 4

242

*RETURN HERE

:ERROR # DEFINED BY SECERR SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS
“GO TO 18% IF ERROR

: .' EA 2222222

250 012116

GO TO 178 IF NO ERROR

.'.'t'ttttttttttttttttttttitttltttfl L 2

000004
000240
012706
013700
013701
012737

IF ERROR

JSR

JSR
.WORD
.WORD
BR

*RETURN HERE

DATA TRANSFER

PC,a(SP)+
18$

sVERIFY DATA

104000

GO TO 16% IF NO ERROR

:ERROR # DEF INED BY DTASTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
GO TO 18% IF ERROR

NOP

004736
000137

;GO VERIFY RESULTS OF

EMT
JSR
JMP

104000

101360

PC,DTASTS

104000

004736
000137

N 6
11:43:33 PAGE 13-7
SEQ

102364
000402
000240

230
231
232

4-APR-81

EMT
JMP
MOV
MOV
JSR

;

,SCTMSG

18%

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

:DATA BUFFER ADDRESS
*WRITE HEADER AND DATA

;CALL BAD SECTOR MODULE

GO TO 18 IF NO ERROR

. :TYPE BAD SECTOR MESSAGE

7 {ERROR # DEFINED BY BADSCT SUBROUTINE
*GO TO 18% IF ERROR
;USE ALL ZEROS DATA PATTERN
:GO GENERATE

:PREPARE DEVICE FOR DATA TRANSFER
JSR

PC,TSTPRP

DATA BUFFER

:PREPARE DEVICE FOR TEST

0078

ZRMO RMOS/3/72 FCTINL ST 2
FORMAT C(HECK ZEROS

012122

MACRQO v04.00

4=APR=-81

11:43:33 PAGE

13-8

SEQ 0079

154130

WORD

154130

;TASK DESCRIPTOR AS FOLLOWS:

JSELECT DEVICE & VERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID

SRR
& JRBRIRE

s
b
-

D e

b
ek
d e
d e

— -

—d
—

261
262

RR
NOP

LSV
N LN TV

LS TS T VT ST S TN
LSS

elelelele]
OO0 jolele]

259

251
252
253
254
255
256
257
258

gl il

SVERIFY PACK ACKNOWLEDGE

012554

000005
001553
000006
000034
000032
000000
000200

001412

EMT
JMP

SERROR # DEF INED BY TSTPRP SUBROUTINF
;GO TO 18% IF ERROR

MOV
MOV
MOVR
MOVB
MOVB
MOVB
MOVB

#SEEK!GO,RMCS10- ; CHANGE COMMAND TO SEEK
#PUTINX ,R2
JWRITE REGISTER INDEX TABLE
#RMDA, (R2) +
#RMDC
, (R2) +
#RMOF
, (R2) +
#RMCS1, (R2)+
#200, (R2) +

JSR

PC.PUT
43

BR
NOP
o

EMT

JMP

18%

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 4% IF NO ERROR
;RETURN HERE I[F ERROR

;ERROR # DEF INED BY PUT SUBROULTINE

;GO TO 18% IF EFROR

sSETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE

035704
036602

JSR

PC,GETSTS

PC.,TIMOUT

;GO READ SEEK STATUS

03577G

JSR

6%:

PC.GET

B8R
NOP

JMP

18%

EMT

012554

;SETUP FOR STATUS

JWAIT FOR SEEK TO COMPLETE

;GO READ REGISTER(S) WITH GET SUBROUT INE

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

:ERROR # DEFINED BY GET SUBROUT INE

;GO TO 18% IF ERROR

;VERIFY THE RESULTS OF THE SEEK COMMAND

044104

JSR

BR
NOP
EMT

012554

000063
001556
000002
000004

18%

;GO TC 3% IF NO ERROR
;RETURN HERE IF ERROR

;SETUP PARAMETERS AND EXECUTE SEEK 7O GET DRIVE ON CYLINDER

036240

012554

JRECALIBRATE IF "'SKI'* OR 'PIP'" IS SET
JVERIFY RECAL IBRATION

”

001412

JSR

JMP

PC,SEKSTS

;GO VERIFY RESULTS OF

PC,a(SP)+

.GO BACK FOR MORE ERROR CHECKS

18%

;G0 TO 7% IF NO ERROR
sRETURN HERE IF ERROR

SEEK OPERATION

;ERROR # DEF INED BY SEKSTS SUBROUTINE

;GO TO 18% IF ERROR

;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
MGV

MOV

MOVB
MOvB

FJH!GO,RMCS10

#PUTINX+3 R2
H#RMWC, (R2) +
#RMBA, (R2) +

;WRITE HEADER AND DATA

JEXTEND REGISTER INDEX TABLE

CZRMNBO RMOS5/3/72 FCINL

FORMAT

TST 2

MACRO v04.00

CHECK ZEROS

11:43:33 PAGE

13-9
SEQ 0080

283 012302
gg:s. 012306

112722
112722

000009
(00200

286 012312

004737

036240

012320
012322

000240
104000

012316 (00404

4-APR-81

MOVB
MOVB

JSR

B8R

NOP
EMT

P(,PUT

;GO0 WRITE REGISTER(S) WITH PUT SUBROUTINE

GO TO 88 IF NO ERROR

JRETURN HERE IF ERROR
:ERROR # DEF INED BY PUT SUBROUTINE

012324 000137 012554
5337 012330

8$:

289

;WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS

sg? 012330

004737

036602

292 012334

004737

035770

012344

104000

012340 000404
012342 000240

004737

012362
012364

104000
004736

012356
012360

012366

000405
000240

000137

012554

004737

051502

012402
012404

104000
004736

012376 000405
012400 000240

012406

004737

012422
012424

104000
004736

012416
012420

012426

000405
000240

012554

§8§' 012432

012737

000053

306 012440

004737

036240

012450
012452
33837 012456

1040600
000137

012554

;;(1) 012456

004737

(36602

312 012462

004737

035770

303

012444
012446

309

000404
000240

;GO READ REGISTER(S) WITH GET SUBROUTINE

GO TO 9% IF NO ERROR
*RETURN HERE IF ERROR

;ERROR # DEFINED BY GET SUBROUTINE

188

:GO TO 18% IF ERROR

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

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

EMT
JSR

PC.a(SP)+

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

JMP
JSR

B8R
NOP

EMT
JSR

IMP

12%:

001412

‘GO TO 108 IF NO ERROR
*RETURN HERE IF ERROR

PC,a(SP)+

BR
NOP
118:

108

EMT
JSR

IMP

108:

037620

000137

3385 012432

PC,GET

BR
NOP

000137 012554

299 012412
300 012412

JSR

;VERIFY RESULTS OF WRITE COMMAND
JSR
PC.PRIERR
;GO0 CHECK FOR PRIMARY ERRORS

036766

297 012372
298 012372

;WAIT FOR COMMAND TO COMPLETE

JMP

*GO TO 188 IF ERROR

FC,TIMOUT

EMT

ggz 012352

188

JSR

B8R
NOP

012346 000337 012554

295
296 012352

JMP

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

188

*GO TO 18% IF ERROR

11§

GO TO 118 IF NO ERROR
*RETURN HERE IF ERROR

188

PC,SECERR

128

:GO TO 18% IF ERROR

;GO CHECK FOR SECONDARY ERRORS

GO TO 128 IF NO ERROR
*RETURN HERE IF ERROR

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

PC,a(SP)+

18$

G0 TO 188 IF ERROR

;WRITE CHECK HEADER AND DATA FOR SECTOR JUST WRITTEN

MOV

MJICH'GO,RMCS10

:WRITE CHECK COMMAND

JSR

PC,PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

B8R
NOP
EMT

13$:

13§

18%

160 TO 138 IF NO ERROR
*RETURN HERE IF ERROR

*EPROR # DEFINED BY PUT SUBROUTINE
:GO TO 188 IF ERROR -

;WAIT FOR WRITE CHECK TO COMPLETE AND GET STATUS
-

JSR

PC.,TIMOUT

JWAIT FOR READ TQO COMPLETE

JSR

PC.GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

ZQNNBO RMOS5/3/2 FCINL ST 2
FORMAT CHECK ZEROS

MACRO v04.00

4-APR-81

000404

- [

g—_—y

nanorONNN nn

jelele) elelelele)

aoVdbw

oo~

o
d s

WWWN NN
NN

500
504
06
0
2

0
520

000137

(012554

004737
000405
000240
104000
004736
000137

036766

004737
000405
000240
104000

004736
000137
004737
000403
000240

012552
321 012554
322
323 012554
324
325

BR
NOP
EMT

14%

JMP

14%:

;GO TO 148 IF NO ERROR

JRETURN HERE

ERROR

;ERROR # DEFINED BY GET SUBROUT INE

18%

;GO TO 188 IF ERROR

;VERIFY THE RESULTS OF WRITE CHECK OPERATION
JSR
PC.PRIERR
;GO CHECK FOR PRIMARY ERRORS
BR
15%
;G0 TO 158 IF NO ERROR
NOP
sRETURN HERE IF ERROR
EMT
;ERROR # DEF INED BY PRIERR SUBROUT INE
JSR
PC,a(SP)+
;GO BACK FOR MORE ERROR CHECKS

.
012554

15%:

051502

JMP

18%

;GO TO 18% IF ERROR

JSR

PC.DTASTS

;GO VERIFY RESULTS OF DAIA TRANSFER
;GO TO 168 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERRCR CHECKS

16%

NOP
EMT
JSR

012554

16%:

037620

JMP

PC,a(SP)+
18%

JSR

PC,SECERR

104000

EMT

004736

JSR

17%:

;GO TO 18% IF ERROR

;GO CHECK FOR SECONDARY ERRORS

17%

NOP

;GO TO 17$ IF NO ERROR

JRETURN HERE

ERROR

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

PC,a(SP)+

18%:
s

R A

A A A

;*TEST 5
e R

012554
012554
012556
012560
012564
012570
012574

13-10

SEQ 00287

000240
104000

11:43:3% PAGE

000004
000240

012706
013700
013701
012737

001100
001276
001466
000005

001226

3¢8 012602
329 012610
330 012616
331 012624
332 012632
333 012640

012737
012737
012737
012737
012737
012737

000000
000000
010000
177376
101360
000062

001446
001420
001444
001414
001416
001412

012646
012652
012654
012660
012662
012666
012666

004737
000405
104401
104000
000137

033152

063346

012737

065000

FORMAT
A

SCOPE
NOP
MOV

MOV
MOV
MOV

R A

AR A R

A A AR AR

AR AR R AR AR AR AN AN AR AR AR AR AR AR R AR RR

#STACK ,SP

$BASE ,RO
TSTQUE ,R1
#5,8TESTN

: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
#0,RMDCO
;CYLINDER = 0
MOV
MOV
MOV

MOV
MOV

#0 ,RMDAO
#FMT16 ,RMOFO
#-258. ,RMWCO

#BUF
ONE ,RMBAO
#WH,RM(CS10

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

JSR
BR

PC ,BADSCT
1%

EMT
JMP

,SCTMSG

;TYPE BAD SECTOR MESSAGE

20%

:GO TO 20% IF ERROR

MOV

#7EROS,$TMPO

TYPE

001174

R AR AR AR

:SCOPE CALL

;VERIFY THAT SECTOR IS NOT BAD

013514

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

CHECK ZEROS W/ WCE ERROR

;CALL BAD SECTOR MODULE
;GO TO 1$ IF NO ERROR

sERROR # DEFINED BY BADSCT SUBROUT INE
;USE ALL ONES DATA PATTERN

(ZRMNBO RMOS/3/2 FCINL TST 2
MACRC v04.00
FORMAT (HECK ZEROS W/ WCE ERROR
TS

338 012674
339 012702
340 012705
341
342
343 012706
012712

012737
004737

000007
(35104

004737
154130

032176

001176

4-APR-81

11:43:33 PAGE

13-11

SEQ 008.

MOV
JSR

28
;PREPARE

DEVICE

JSR
.WORD

#1,8TMP1
PC ., GENBUF
FOR DATA

PC,TSTPRP
154130

;GO GENERATE DATA BUFFER
TRANSFER

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

sSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SEIECT DEVICE

012714
012716
012720
012722
344 012726
345
347 012726
348 012734
012740
350 012744
351 012750
352 012754
353 012760
354
355 012764
012770
012772
012774
012776
013002

013002
013006
013012
013012
013016

013020
013022
013024
365 013030

367
368 013030
013034
013036

369 013050

000404
000240

104000
000137

013514

012737
012702
112722

000005
001553
000006

001412

BR
NOP
EMT
JMP

;VERIFY CONTROLLER CLEAR OPERAT!ON
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF '°SKI'* OR ‘PIP'" IS SET
;VERIFY RECAL IBRATION

3%
20%

;SETUP PARAMETERS AND EXECUTE

;GO _TO 3% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED 8Y TSTPRP SUBRCUT INE
;G0 TO 208 IF ERROR
SEEK

TO GET DRIVE ON CYLINDER

MOV
MoV
MOVB

#SEEK !GO,RMCS10 ;CHANGE COMMAND TO SEEK
#PUTINX ,R2
;WRITE REGISTER INDEX TABLE
#RMDA, (R2) +

JSR
BR
NOP

PC,PUT
4%

JMP

208

112722
112722
112722
112722

000034
000032
000000
000200

004737
000404
000240

036240

000137

013514

,
004737

035704

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

104000

MovB
MOvVB
MOVB
mMOovB

EMT

004737

036602,

004737
000404
000240

035770

;GO READ SEEK STATUS
JSR
PC,GET

000137

013514

004737
000405
000240
104000
004736
000137

044104

104000

JSR

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

NOP

013514

EMT

JMP

PC, TIMOUT

20%

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

;ERROR # DEFINED BY PUT SUBROUT INE
;GO TO 20% IF ERROR

;WAIT FOR SEEK TO COMPLETE

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

sERROR # DEFINED BY GET SUBROUT INE

:GO TO 20% IF ERROR

;VERIFY THE RESULTS OF THE SEEK COMMAND
JSR
PC,SEKSTS
;GO VER]JFY RESULTS OF SEEK OPERATION
BR
7%
~
;GO TO 7% IF NO ERROR
NOP
JRETURN HERE IF ERROR
EMT
;ERROR # DEF INED BY SEKSTS SUBROUTINE
JSR
PC,a(SP)+
.GO BACK FOR MORE ERROR CHECKS
- JMP
20%
:GO TO 20% IF ERROR

'ZRMNBO RMOS5/3/72 FCINL
FORMAT

CHECK

TST 2

MACRO v04.00

ZEROS W/ WCE

370
b14)
372 013050
373 013056
374 013062
375 013066
376 013072
377 013076
378

000063
001556
000002
000004
000000
000200

379 013102
013106

ERROR

001412

4-APR-81

sSETUP AND EXECUTE WRITE HEADER AND DATA (COMMAND
MOV

JEXTEND REGISTER INDEX TABLE

JSR

PC,PUT

;GO WRITE REGISTER(S)

20%

;ERROR # DEFINED BY PUT SUBROUT INE
;GO TO 208 IF ERROR

NOP

036602

385 C13124

035770

;WAIT

EMT
JMP

FOR WRITE

388

o c\mog'\a R

d
D e
h
d
e

el e

392
393

d e

e e

390
391

NN
N WIN NN W INNWNINWN NN
— e b
—
ISLSLSLSLNLSHN] N —
N=b k=m0 o
o
N

slelelelelelolololololololeololols]

389 013142

394
395
396
397 013222
398
399

400 013226
401
402 013234

013240

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

COMMAND

;GO TO 8% IF NO ERROR

JRETURN HERE

TO COMPLETE

JSR

PC, TIMOUT

JSR

PC.GET

NOP

386
387

;WRITE HEADER AND DATA

#PUTINX+3,R2
#RMWC
, (R2) +

BR
as

#WH!GO,RMCS10

MOV
MOVB

MOVB
MOVB
MOVB

013514

13-12
SEQ 0083

036240

380
381
382
383 013120

B
11:43:33 PAGE

EMT
JMP

WITH PUT

ERROR

AND READ STATUS

;WAIT FOR COMMAND TO COMPLETE
;GO READ REGISTER(S) WITH GET

;GO TO 9% IF NO ERROR

;RETURN HERE

ERROR

013514

004737
000405
000240

036766

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

104000

004736
000137

013514

soh

004737

051502

000405"

000240
104000

004736
000137

004737
000405
000240

013514

¥4

037620

104000
004736
000137

013514

005137

102362

012737

000053

004737
000404

036240

;GO TO 108 IF NO ERROR

NCP
EMT
JSR
JMP

PC,a(SP)+
0%

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

JSR
BR

PC,DTASTS
11%

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

NOP
EMT
JSR
JMP
JSR

128

108

SUBROUT INE

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

000137

20%

SUBROUT INE

NOP
EMT
JSR
JMP

PC,a(SP)+
20%

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

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

PC,a(SP)+
20%

SRETURN HERE IF ERROR
SERROR # DEFINED BY SECERR:- SUBROUT INE
;G0 BACK FOR MORE ERROR CHECKS
160 TO 20% IF ERROR

12%

;GO TO 12% IF NO ERROR

sALTER DATA BUFFER

001412

BUF TWO-2

s COMPLEMENT LAST DATA WORD

;SETUP AND WRITE CHECK HEADER AND DATA COMMAND
MOV

#WCH!GO,RMCST0

;JWRITE

JSR
BR

PC PUT

:GO WRITE REGISTER(S) WITH PUT SUBROUTINE

13%

CHECK COMMAND

;GO 0 13% IF NO ERROR

’HMNBV RMOS/3/72 FCINL

FORMAT

013242
013§«4
013c46
282 013252

TST 2

(HECK ZEROS W/ WCE ERROR

000240
104000
000137

013514

28? 013252

004737

036602

408 013256

004737

035770

405

013262
013264
013266
013270

000404
000240
104000
000137

41
412 013274

004737

L?? 013274

MACRO v04.00

13%:

|
|
[

013300
013302
C13304

000405
000240
104000

013514

14%:

013306 004736

013310
2}2 013314

'
i

415
416 013314

419 013324 004737 051502

2%; 013322

000137

013514

032737

040000

001023

013330
013332
013334
013336
420 013340

000405
000240
104000
004736
000137

421
422
423
424
425
259

013737 001346
(052737 040000
013737
001346
104337
000451-

013344
013352
013360
013366
013370
013372

428
429 013372
430 013400

012737

15%:
.

001346

001140
001140

001134

000022

001524

437 013430

004737

035770

i
i

013436
013440

000240
104000

438 013446

013737

013434

013442

000404

000137

000200

013514

001360

PC,GET

.GO READ REGISTER(S) WITH GET SUBROUTINF

JMP

14%

20%

16%:

PC,a(SP)+
20%

;GO CHECK FOR PRIMARY ERRORS

;GO TO 15% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUT INE

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

MOV
BIS
MOV
EMT
BR

17%

J¥YES!!

16%

;GO TO 16% IF NO ERROR
JRETURN HERE IF ERROR
:ERROR # DEFINED BY DTASTS SUBROUTINE
GO BACK FOR MORE ERROR (CHECKS
;GO TO 20% IF ERROR

PC,DTASTS
PC,a(SP)+
208

;GO VERIFY RESULTS OF DATA TRANSFER

RM(CSZ21,$GDDAT
#WCE ,$GDDAT

sLOAD EXPECTED STATUS

RM(CS21,$BDDAT
337
20%

;LOAD RECEIVED STATUS

;VERIFY THE ADDRESS OF THE WRITE CHECK ERROR
MoV
#BUF TWO-2, $GDADR; LOAD EXPECTED ADDRESS
MOV
RMBAI , $BDADR
sLOAD RECEIVED ADDRESS

SuB

#2,%8DADR

;DECREMENT RECEIVED ADDRESS

;GET WCE DATA AND VERIFY IT IS OK

001525

MOVB

#RMDB , GE T INX

;SETUP FOR READING RMDB

JSR

PL,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

MOVB

NOP
EMT
001142

15%

;GO TO 14% IF NO ERROR
;RETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUT INE
;GO TO 20% IF ERROR

SURE THE WRITE CHECK ERROR WAS DETECTED
BIT
#WCE ,RM(CS2I
;IS WRITE CHECK ERROR SET??

BNE

17%:

112737

sMAKE

001142

434 013414

2;2 013422

JSR

BR
NOP
EMT
JMP

JSR

001136
001136

JRETURN HERE IF ERROR
sERROR # DEFINED BY PUT SUBROUT INE
;GO TO 20% IF ERROR

JWAIT FOR COMMMAND TO COMPLETE

BR
NOP
EMT
JSR
JMP

001342
000002

433

SEG L0B4

PC,TIMOUT

JSR

013737
162737

2%} 013406

13-13

JSR

BR
NOP
EMT

013514

102362

20%

;CHECK FOR PRIMARY ERRORS
JSR
PC,PRIERR

036766

|
}

NOP
EMT
JMP

11:43:33 PAGE

JWAIT FOR WRITE (HECK COMMAND TO COMPLETE AND READ STATUS

410

:
|

4-APR-81

18%:

JMP

MOV

#200,GETINX+1

18%

20%

RMDR] ,$BDDAT

;GO TO 18% IF NO ERROR

;RETURN HERE IF ERROR
JERROR # DEFINEP BY GET SUBROUTINE

;GO TO 20% IF ERROR

;LOAD RECEIVED DATA WORD

————
—

SS——

Z%MNB“ RMOS/3/2 FCTNL IST 2.
MACRO v04.00
FORMAT (HECK ZEROS W/ W(CE ERROR
439 013454
4460 013462

441 013466
462 013474

443 013476
464 O

445
466
447
448
449

O
01
01
01

013737
005137
023737
001402

001140
001134

001136

000405
023737
001401

001140

001142

102362

4-APR-B1

001140

104341

16%:

BURTWO=2,$GDDAT :LOAD EXPECTED DATA WORD
$GDDAT

BR
CMP
BEQ

$GDDAT, $BDDAT

$GDADR, $BDADR
19%
340
20%

208
341

EMT

20%:

450

13-14

MOV
com

cMP
BEQ
EMT

104340

11:43:33 PAGE

‘

;1S ADDRESS 0k??
IVES:!

;1S DATA WORD 0K??

SYES!!

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

tTEST 6

FORMAT ONES

.tt't'.’fifi't.’.*t't*'*"'.“Qti.""*'fi."'.".."..‘ \ 2 A

TST6:

000004

451

452
453
454
455
456
457
458
459
460

0N
013550

0
013564
013572

013600

000240
012706
013700
013701
012737

001100
001276
001466
000006

001226

012737
012737
012737
012737
012737
012737

000000
000000
010000
177376
101360
000062

001446
001420
001444
001414
001416
001412

004737
000405

033152

104401
104000

063346

000137

014334

012737
012737
004737

064736
000001
035104

004737

032176

154130

SCOPE
NOP
MOV
MOV
MOV
MOV

$BASE ,RO
TSTQUE ,R1
#6,8TESTN

RET

;SCOPE CALL
;START OF TEST
JINITIALIZE

STACK POINTER

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

;SETUP PARAMETERS FOR GENERATING DATA BUFFER

MOV
MOV

#0,RMDCO
#0 ,RMDAO

#FMT16,RMOFO

;16 BIT FORMAT

MOV

#BUFONE ,RMBAO

;DATA BUFFER ADDRESS

MOV

#-258. ,RMWCO

MoV

TYPE

;PREPARE

JCYLINDER = 0
;TRACK = 0, SECTOR = 0

MOV

;VERIFY THAT
JSR
BR

001174
001176

#STACK,SP

22222

;WRITE HEADER AND DATA

SECTOR IS NOT BAD
PC ,BADSCT
1%

;CALL BAD SECTOR MODULE
;GO TO 1% IF NO ERROR

.SCTMSG

18%

MOV
MOV

#ONES , $TMPO
#1,%TMP1

JSR

DEVICE

.WORD

(2'S COMP)

#WH,RM(CS10

EMT
JMP

JSR

;2 + 256 WORDS

PC,GENBUF

;TYPE BAD SECTOR MESSAGE

;ERROR # DEFINED BY BADSCT SUBROUTINE
;GO TO 18% IF ERROR
JUSE ALL ONES DATA PATTERN
;GO GENERATE

DATA BUFFER

FOR DATA TRANSFER

PC,TSTPRP

154130

;PREPARE DEVICE FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:

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

;sPACK ACKNOWLEDGE

013654
013656
013660
013662

469 013666

000404
000240
104000

000137

014334

3%:

BR
NOP
EMT
JMF

18%

VOLUME NOT VALID

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

;GO TO 3% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 18% IF ERROR

CZRMNBO RMOS5/372 FLINL

FORMAT

ONES

470
471
472 013666
473 013674
474 013700
475 013704
476 013710
477 013714

181 2

480 013724

004737
004737

013752
013756
013760
013762
013764
013770

004737
C00404
000240

035770

000137

014334

493 013770

004737
000405
000240

044104

104000

497

499

500
501
502
503

504 014042

507

508 014060
509

13-15

036602

004737

036602

MOVB
MOvB
MovB

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

JSR
BR
NOP
EMT
JMP

LS
JSR

JSR
BR

:WRITE REGISTER INDEX TABLE

#RMDC. (R2)+

PC.PUT
4%

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

18%

PC.GETSTS
PC.TIMOUT

;SETUP FOR STATUS
;WAIT FOR SEEK TO COMPLETE

NOP
EMT
JMP

PC,GET
6%

001412

JSR
BR
NOP
EMT
JSR
JMP

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

18%

sVERIFY THE RESULTS OF

THE SEEK COMMAND

PC,SEKSTS
7$

;GO VERIFY RESULTS OF SEEK OPERATION
;GO _TO 7% IF NO ERROR
;sRETURN HERE

IF ERROR

;ERROR # DEFINED BY SEKSTS SUBROUTINE

PC,a(SP)+

;GO BACK FOR MORE ERROR CHECKS

18%

;GO TO 18% IF ERROR

;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
MOV
#WH!GO,RMCS10
;WRITE HEADER AND DATA

MOV
MOvB
MOvVB

#PUTINX+3 ,R2
H#RMWC
, (R2) +
#RMBA, (R2) +

MOvB

#200, (R2)+

MOVB

036240

014334

#PUT INX ,R2
#RMDA, (R2)
+

;GO READ SEEK STATUS

014334

000137

MOV
MOVB

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

035704

000063
001556
000002
000004
000000
000200

498

014046
014050
014052
014054
505 014060

104000

004736
000137

11:43:33 PAGE

;SETUP PARAMETERS AND EXECUTE SEEK TU GET DRIVE ON CYLINDER
#SEEK !GO,RMCS1C ; CHANGE COMMAND TO SEEK

MovB

014334

013742
C13746
013752

013774
013776
014000
014002
014004
494 014010
495

0014172

036240

013730
013732
013734
013736
013742

4&-APR-81

SEQ GOBE

000005
001553
000006
000034
000032
000000
000200

478 013720
479

MACRD v04.00

JSR
BR
NCP
EMT

8%:

JMP

#RMCS1,(R2)+
PC.PUT
8%

JEXTEND REGISTER INDEX TABLE

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

18%

;GO TO 18% IF ERROR

JWAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS
JSR

PC,TIMOUT

JWAIT

FOR COMMAND

TO COMPLETE
-

zgRMNBO RMOS/3/2 FCTINL

FORMAT ONES

510 014064

014070
014072
014074
014076
g;} 014102
513
514 016102

014106
074110
014112
014114
014116
515 014122

516 014122
014126

014130
014132
014134
014136

517 014142
518 014142
014146
014150
014152
014154
014156
g;g 014162

004737

TST 2

(035770

000404
000240
104000
000137

(Gi4334

004737

036766

000405
000240
104000
004736
000137
004737
000405

000240
104000
004736
000137

000073
102364

004737
000404
000240
104000
000137

036240

014334

528
ggg 014214

004737

036602

531 014220
014224

004737
000404

035770

014230
014232
g;g 014236

104000
000137

014226

534

11%:

12%:
001412
001416

004737
000405

014246
014250

104000
004736

000240

036766

PC,GET

BR
NGCP
EMT
JMP

18%

13-16

$£0@ 0087

;GO READ REGISTER(S) WITH GET SUBROUT INE

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

BR
NOP
EMT
JSR
JMP

10%

PC,a(SP)+
18%

;GO TO 108 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 18% IF ERROR

JSR
BR
NOP
EMT
JSR
JMP

PC,DTASTS
11%

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

JSR
BR
NOP
EMT
JSR
JMP

PC,SECERR
12%

PC,a(SP)+
18%

JRETURN HERE IF ERROR
7
;ERROR # DEFINED BY DTASTS SUBROUT INE
:GO BACK FOR MORE ERROR CHE(CKS
;GO TO 18% IF ERROR
;GO CHECK FOR SECONDARY ERRORS
;GO TO 12% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 18% IF ERROR

;READ HEADER AND DATA FOR SECTOR JUST WRITTEN
MOV
ggH!GO.RMCS10
sREAD HEADER & DATA COMMAND
MoV
UF TWO,.RMBADO ; CHANGE BUS ADDRESS

13%:

JSR
BR
NOP
EMT
JMP

PC,PUT
138
-

18%

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE
;GO TO 13% IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBRGUTINE
;GO TO 18% IF ERROR

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

000240

535 014236
014242
014244

108:

0143234

014334

11:43:33 PAGE

sVERIFY RESULTS CF WRITE COMMAND
JSR
©” ,PRIERR
;GO CHECK FOR PRIMARY FRRORS

014334

012737
012737

525 014176
014202
014204
014206
014210
gsg 014214

9%:

051502

037620

4-APR-B1

JSR

014334

004737
000405
000240
104000
004736
000137

521
522 014162
gsz 014170

(RO v04.00

14%:

JSR
BR
NOP
EMT
JMP

PC,GET
14%
18%

;GO READ REGISTER(S) WITH GET SUBROUT INC
;GO TO 14% IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 18% IF ERROR

;VERIFY THE RESULTS OF READ OPERATION

JSR
BR

NOP

EMT
JSR

PC,PRIERR
15%

;GO CHECK FOR PRIMARY ERRORS
;GO TO 158 IF NO ERROR

PC,a(SP)+

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

RETURN HERE

IF ERROR

%éRMNBO RMOS5/3/72 FCTINL
FORMAT ONES

1ST 2

MACRO v04.00

000137

014334

004737

051502

15%:

16%:

037620

000137

014334

004737

035342

101360

17%:

SRR

JSR
BR
NOP
EMT
JSR
JMP

PC,DTASTS
16%

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

PC,a(SP)+
18%

JSR

PC,SECERR

R R

TS17:

551 014376
552 014404
553 014412
554 014420
555
014426

001100
001276
001466
000007

001226

000000
000000
010000
177376
101360
000062

001446
001420
001444
001414
001416
001412

033152
104000

015124

012737
012737
004737

064736
000001
035104

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

AR A A

SCOPE
NOP
MOV

;GO TO 18% IF ERROR

PC.,CMPBUF
BUFONE
BUFTWO
18%

A A

A AR

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

;GO TO 18% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEF INED BY CMPBUF SUBROUT INE
AR A A A AR AR AR R AN AR AT A RAA A A AR AR

FORMAT CHECK ONES

ERROR

;GO TO 18% IF ERROR

18%

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

PC,a(SP)+

MOV
MOV
Mov

A AR A

R RN

T ANA AR AN AR

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

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

#7 ,8TESTN

;START OF

TEST

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

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

MOV

#BU
ONE ,RMBAO
F

#WH,RMCS10

;VERIFY THAT SECTOR IS NOT BAD
JSR

PC,BADSCT

TYPE

,SCTMSG

063346

000137

JRETURN HERE

17%

;*TEST 7

549 014362
550 014370

014432
014434
014440
014442
557 -014446
558 014446
559 014454
560 014462

;GO TO 18% IF ERROR

JSR
.WORD
.WORD
BR
NOP
EMT

18%:

556

18%

;VERIFY DATA

104000

014334
014334
014336
014340
014344
014350
014354

13-17

JMP

BR
NOP
EMT
JSR
JMP

102364
000402
000240

544 014334
545
546

11:43:33 PAGE

SEG 0088

014334

540 014316
541
542
543 014316

4-APR-81

EMT
JMP

18%

MOV
MOV

#ONES
, $TMPO
#1,8TMP1

JSR

PC,GENBUF

:DATA BUFFER ADDRESS
;WRITE HEADER AND DATA

;CALL BAD SECTOR MODULE
;GO TO 1% IF NO ERROR
;TYPE BAD SECTOR MESSAGE
;ERROR # DEFINED BY BADSCT SUBROUT INE
;GO TO 18% IF ERROR
;USE ALL ONES DATA PATTERN

;GO GENERATE DATA BUFFER

rZRMNBO RMOS/3/2 FCINL
FORMAT

563
564 014466

014472

1ST 2

CHECK ONES

004737
154130

MACRO v04.00

4-APR-81

11:43:33 PAGE

13-18

SEQ 0089

;PREPARE DEVICE FOR DATA TRANSFER
PC,TSTPRP
JSR
;PREPARE DEVICE FOR TEST
.WORD
154130
s TASK DESCRIPTOR AS FOLLOWS:
sSELECT DEVICE & VERIFY DEVICE AVAILABLE

032176

sCLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE

IF VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF ''SKI'' OR *PIP'' IS SET

014474

014476

014500
014502
565 014506

015124

568 014506
569 014514
570 G14520
571 014524
572 014530
573 014534
574 014540

000005
001553
000006
000034
000032
000000
000200

576 014544
014550
014552
014554
014556
577 014562
578
579
580 014562
581 014566
582 014572
583
585 014572
014576
014600
014602
014604
586 014610
587
588
589 014610
014614
014616
014620
014622
014624

590 014630

591
592

593 014630
594 014636

112722

004737
000404
000240

036240

000137

015124

004737
004737

035704
036602

004737
000404
000240

035770

000137

015124

004737
000405
000240

044104

104000

3%:
001412

;GO _TO 3% IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUT INE
;GO TO 18% IF ERROR

MOV
MOV

#SEEK !GO,RMCS10 ;CHANGE COMMAND TO SEEK
#PUTINX
,R2
;WRITE REGISTER INDEX TABLE

MOVB
MOVB

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

MOVB

4%:

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

JSR
BR

PC,PUT
43

EMT
JMF

18%

NOP

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

;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 THEN WAIT FOR SEEK TO COMPLETE
JSR
PC,GETSTS
;SETUP FOR STATUS
5%:

JSR

PC,TIMOUT

;GO READ SEEK STATUS
JSR

NOP
EMT

6%:

JMP

PC.GET

18%

;WAIT FOR SEEK TO COMPLETE

;GO READ REGISTER(S) WITH GET SUBROUT INE

;G0 _TO 6% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 18% IF ERROR

;VERIFY 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
;ERROR # DEFINED BY SEKSTS SUBROUTINE
JSR
PC,a(SP)+
;GO BACK FOR MORE ERROR CHECKS*

015124

000063
001556

18%

sVERIFY RECALIBRATION

;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER
MOVB
MOVB

104000

004736
000137

NOP
EMT
JMP

3%-

7%:

001412

JMP

18%

;GO TO 18% IF ERROR

JSETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
MOV
MoV

#WH!GO,RMCS10
#PUTINX+3,R2

;WRITE HEADER AND DATA
JEXTEND REGISTER INDEX TABLE

$;RN80 RMOS5/3/72 FCINL
FORMAT

595 014642
596 014646

IST 2

CHECK ONES

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

MOVB

#200, (R2)+

000200

600 014662
014666
014670
014672
014674

004737
000404
000240
104000
000137

036240

603
%‘S' 014700

004737

036602

004737
000404
000240
104000
000137

035770

004737
(000405
000240
104000
004736
000137

036766

015124

004737

051502

609

610 014722
014726
014730
014732
014734
014736
611 014742

612 014742

014746
014750
014752
014754
014756
613 014762
614 014762
014766
014770
014772
C14774

014776

000405
000240
104000
004736
000137
_
004737
000405
000240
104000
(004736

000000

000053

620 015010

004737

036240

015022

000137

015124

004737

036602

015014
015016
015020

255 015026

623
624 015026

000404
000240
104000

98:

PC,PUT
8%

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

18%

JSR
BR
NOP
EMT
JMP

PC,.GET
9%

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

18%

JVERIFY RESULTS OF WRITE COMMAND

10%:

118%:

037620

012737

JSR
BR
NOP
EMT
JMP

#RMCST, (R2)+

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

015124

2}3 015002

617

8%:

015124

2;2 015002

MOVB

015124

000137

13-19
SEQ 0090

MOVB
MOVB

112722

606 014704
014710
014712
014714
C14716
ggg 014722

11:43:33 PAGE

000002
000004

112722

281 014700

4-APR-81

112722
112722

597 014652

238 014656

MACRO v04.00

12%:
001412

JSR
BR
NOP
EMT
JSR
JMP

PC,PRIERR
108
PC.a(SP)+
18%

;GO0 CHECK FOR PRIMARY ERRORS
;GO TO 10% IF NO ERROR ;RETURN HERE IF ERROR
sERROR # DEFINED BY PRIERR SUBROUT INE
;G0 BACK FOR MORE ERROR CHE(CKS
;GO TO 18% IF ERROR

JSR

PC.fiASTS

;GO VERIFY RESULTS OF DATA TRANSFER

BR
NOP
EMT
JSR
JMP
JSR
BR
NOP *
EMT
JSR

JMP

;

11%

PC.a(SP)+
18%
PC,SECERR’
128

PC,a(SP)+

18$

;GO TO 11% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 18% IF ERROR
;GO CHECK FOR SECONDARY ERRORS
:GO TO 128 IF NO ERROR
;RETURN HERE IF ERROR
sERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

GO TO 188 IF ERROR

;WRITE CHECK HEADER AND DATA FOR SECTOR JUST WRITTEN

MOV

#JCH'GO,RMCS10

:WRITE CHECK COMMAND

JSR

PC,PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

18%

BR
NOP
EMT
13$:

13%

:GO TO 13% IF NO ERROR
;RETURN HERE IF ERROR
+ERROR # DEFINED BY PUT SUBROUTINE

:GO TO 18% IF ERROR

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

rZRW\BO RMOS5/3/2 FCINL
FORMAT

CHECK ONES

625
626 015032

004737

015040
015042
015044

000240
104000
000137

015036

gsg 015050
629
630 015050
015054
015056
015060
015062

015064
631 015070
632 015070
015074
015076
015100
015102
015104
633 015110
634 015110
015114
015116
015120
015122
635 015124
636

TIST 2

000404

004737
000405
000240
104000
004736
000137
004737
000405
000240
104000
004736
000137
004737
(000403
000240
104000
004736

MACRO Vv04.00

(35770

&-APR-81

JSR

015124

148$:

NOP
EMT
JMP

N
7
11:43:33 PAGE 13-20

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

188

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

14%

“GO TO 14% IF NO ERROR

:VERIFY THE RESULTS OF WRITE CHECK OPERATION
JSR
PC,PRIERR
;GO CHECK FOR PRIMARY ERRORS
BR
15$
:GO TO 158 IF NO ERROR
NOP
*RETURN HERE IF ERROR
EMT
:ERROR # DEF INED BY PRIERR SUBROUT INE
JSR
PC,a(SP)+
:GO BACK FOR MORE ERROR CHECKS

036766
-

015124

15%:

051502

015124

168$:

037620

17%:

ggg 015124

JMP

18%

*GO TO 188 IF ERROR

JSR
BR
NOP
EMT
JSR
JMP

PC.DTASTS
168

;GO VERIFY RESULTS OF DATA TRANSFER
:GO TO 16$ IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY DTASTS SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS
:GO TO 18% IF ERROR

JSR
BR
NOP

EMT
JSR

PC,a(SP)+
18%
PC,SECERR
17%
PC,a(SP)+

;GO CHECK FOR SECONDARY ERRORS
:GO TO 17% IF NO ERROR
*RETURN HERE IF ERROR

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

188%:

639

ttttfitfittttttitttt'ttttitttilttttttttttttttt*ttttt*t*tttttttttt

RTEST 10

FORMAT CHECK ONES W/ WCE ERRDRS

ttttttttttt*tttttttt'*tt*ttat*t*tttttttttttttt*tttttttt*tttttt'

015124
015124
015126

000004
000240

015134
015140

013700
013701

015130

- 015144
641
642
643
644
645
646

015152
015160
015166
015174
015202

gzg 015210

649

015216
015222
015224
015230
015232

t5710:

012706

001100

012737

000010

001226

012737
012737
012737
012737
012737

000000
000000
010000
177376
101360

001446
001420
0071444
001414
001416

004737
000405
104401
10000
000137

033152

012737

001276
001466

000062

063346

016062

001412

SCOPE
NOP

MOV

#STACK ,SP

MOV

#10,S$TESTN

MOV
MOV

$BASE , RO
TSTQUE ,R1

;SCOPE CALL
*START OF TEST

*INITIALIZE STACK POINTER

‘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
MOV
#0 . RMDAO
:TRACK = 0, SECTOR = 0
- MOV
#FMT16,RMOFO
:16 BIT FORMAT
MOV
#-258..RMWCO
:2 + 256 WORDS (2'S COMP)
MOV
#BUFONE ,RMBAO
:DATA BUFFER ADDRESS

MOV

#4H,RMCS10

;VERIFY THAT SECTOR IS NOT BAD
JSR
PC,BADSCT
BR
1%
TYPE
,SCTMSG
EMT
JMP
20%

*WRITE HEADER AND DATA

;CALL BAD SECTOR MODULE
GO TO 1% IF NO ERROR
*TYPE BAD SECTOR MESSAGE
“ERROR # DEFINED BY BADSCT SUBROUTINE
“GO TO 208 IF ERROR

SEQ 0097

MACRC v04.00 4-APR-BT 11:43:33 PAGE8 1%-21

653 015252
656 015256

655
656
€57 015256
015262

12 73
12 73
73

NNN

650 015236
651 015236
652 015244

(o le)

CIRMNBO RMOS/3/2 FCINL TST 2
110
FORMAT CHECK ONES w/ wCE ERRORS

(64736
000001
035104

004737

032176

154130

001174

001176

18:

MOV
MOV
JSR

28
;PREPARE

DEVICE

JSR

.WORD

#ONES ,$TMPC
#1,3TMP1
PC,GENBUF

SEQ 009G/

JUSE ALL ONES DATA PATTERN
;GO GENERATE DATA BUFFER

FOR DATA TRANSFER

PC,TSTPRP

;

;PREPARE DEVICE FOR TEST

154130

;TASK DESCRIPTOR AS FOILLOWS:
JSELECT DEVICE & VERIFY DEVICE AVAILARLE
;CLEAR CONTROLLER & SELECT DEVICE
.VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE

IF VOLUME NOT VALID

JVERIFY PACK ACKNOWLEDGE

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

ooV
W
W

(elele]

b
s

® 8R
N

FERY

oV
O

£ WiNW

SNagE

ore

D
b
e e
d ed e

—

el ot

OOO0000

5
»~

iAW
WWWW W

—d
—h d d =D

036240

OODO0OOoC

000005
001553
000006
000034
000032
000000
000200

COCOCO

0160€2

016062

035704
036602

035770

016062

0464104

001472

B8R
NOP

JMP

20%

EMT

JVERIFY RECAL IBRATION

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

;ERROR # DEF INED BY TSTPRP SUBROUT INE

;GO TO 20% IF ERROR

;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER

“

MOV
MOV
MOvVB
MOVB
MOVB
MOVB
MOVB

#SEEK!GO,RMCS10 ;CHANGE COMMAND TO SEEK
#PUTINX ,R2
;WRITE REGISTER INDEX TABLE
#RMDA, (R2)+
#RMDC, (R2) +
#]MOF
, (R2) +
#RMCST, (R2) +
#200, (R2)+

JSR
BR
NOP

PC,PUT
43

EMT

JMP

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

;

JERROR # DEFINED BY PUT SUBROUTINE

20%

;GO TO 20% IF ERROR

sSETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE

JSR

PC,GETSTS

PC, TIMOUT

;GO READ SEEK STATUS
JSR

B8R
NOP
EMT

6%:
;VERIFY

JMP

PC,GET

208

THE RESULTS OF THE
JSR
PC,SEKSTS

B8R
NOP

JSR

PC,a(SP)+

EMT

:SETUP FOR STATUS

SWAIT FOR SEEK TO COMPLETE

.GO READ REGISTER(S) WITH GET SUBROUTINE

:GO TO 6% IF NO ERROR
;RETURN HERE IF ERROR

sERROR # DEF INED BY GET SUBROUT INE

;GO TO 20% IF ERROR

SEEK COMMAND
;GO VERIFY RESULTS OF

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

SEEK CPERATION

;ERROR # DEFINED BY SEKSTS SUBROUTINE
;GO BACK FOR MORE ERRNR

CHECKS

CZRMNBO RMOS5/3/2 FCINL T1ST 2
MACRO v04.00
110
FORMAT CHECK ONES W/ WCE ERRORS

015414 000137 036062

ggz 015420

685

686 015420 012737 000063
687 01542¢ 012702 001556

688 015432
689 015436

112722
112722

112722

000000

693 015452

004737

036240

112722

015456 000404
015460 000240
015462

015464

gg;. 015470

696

036602

699 015474

004737

035770

000404
000240
104000

015506

000137

016062

702
703 015512

004737

036766

015512

015516
015520
015522

000405
000240

704 015532
705 015532

004737

051502

015540

000240

015544
8o 8}%‘5’3

004736
000137

016062

707 015552

004737

037620

015562
015564

104000
004736

015536 000405

015562

015556
015560
015566

708 015572

EMT

8%:

;}5 015572

005137

102362

713

3}’; 015576

012737

000053

#WH!GO,RMCS10
#PUTINX+3_R2

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

;WRITE MEADER AND DATA
-EXTEND REGISTER INDEX TARLE

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

PC.PUT

208

;GO WRITE REGISTER(S) WITH PUT SUSROUT INE

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

:ERROR # DEF INED BY PUT SUBROUT INE

“GO TO 208 IF ERROR

;WAIT FOR COMMAND TO COMPLETE

JSR

PC.GET

;GO READ REGISTER(S) WITH GET SUBROUT
INE

EMT

JMP

98:

208

:GO TO 9% IF NO ERROR
*RETURN HERE iF ERROR

:ERROR # DEFINED BY GET SUBRCUT
INE

:GO TO 208 IF ERROR

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

B8R
NOP

108

JSR
JMP

PC.a(SP)+
20%

108
:

JSR

PC.DTASTS

EMT

016062

;GO TO 20% IF ERROR

PC. TIMOUT

NOP

000137

208

JSR

B8R
NOP

104000

000405
000240

:WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS

i
!

128:

11$

;GO VERIFY RESULTS OF DATA TRANSFER

GO TO 118 IF NO ERROR
*RETURN HERE IF ERROR

*ERROR # DEFINED BY DTASTS SUBROUTINE

PC.,a(SP)+
208

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

EMT
JSR

PC,a(SP)+

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

IMP

12%

208

;ALTER DATA BUFFER

coM

001412

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

JSR
JMP

B8R
NOP

709

710

JMP

EMT

016062

(¢

JSR

B8R
NOP

104000

004736
000137

015524
015526

MOVB

104000

004737

015504

MOVB

(000200

ggg 015470
015500
015502

MOV
MOV

MOVB
MOVE

000137 016062

11:43:33 PAGE 13-22

:SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND

000002
000004

690 015442

gg; 015446

JMP

7%:

001412

4-APR-B1

BUF TWO=2

:GO BACK FOR MORE ERROR CHECKS
*GO TO 208 If ERROR

GO TO 128 IF NO ERROR
*RETURN HERE IF ERROR

*GO TO 208 IF ERROR

:COMPLEMENT DATA WORD

:SETUP AND WRITE CHECK HEADER AND DATA (OMMAND

MOV

#WCH'GO,RMCS10

:WRITE CHECK COMMAND

SEQ 0097

CZRMNBO RMOS5/3/2 FCTINL TST 2
MACRO v04.00
FORMAT CHECK ONES W/ WCE ERRORS
716 015604

015610
015612
015614
015616

004737

015632
015634
015636
015640

723 015644
724
-

004737

036602

004737
000404

035770

104000

000137

004736
000137
013737
052737
013737
104337

016004
016006
016010
750 016014

NOP
EMT

JSR

NOP

016062

14%:

EMT
JMP

JSR

NOP
EMT
"JSR

016062

040000

13§

20%

PC,GET

14%

208

;CHECK FOR PRIMARY ERRORS

036766

15%:

001346

JMP

JSR
BR

NOP

EMT

JSR

016062

001346
040000
001346

16%:

17%:

001342
000002

001134
001136
001136

112737
112737

000022
000200

001524
001525

004737
000404
000240

035770

000137
013737

016062
001360

001142

PC,PRIERR

15%

PC,a(SP)+

20%

;GO WRITE REGISTER(S) WiTH PUT SUBROUTINE

;GO _TO 138 IF NO ERROR

JRETURN HERE

ERROR

:ERROR # DEF INED BY PUT SUBROUT
INE

;GO TO 208 IF ERROR

TO COMPLETE AND READ STATUS

;WAIT FOR COMMMAND TO (OMPLETE

;GO READ REGISTER(S) WITH GET SUBROUT INE
;GO TO 14% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEF INED BY GET SUBROUT INE

;GO TO 20% IF ERROR

;GO CHECK FOR PRIMARY ERRORS
;GO TO 15% IF NO ERROR
JRETURN HERE

ERROR

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

;MAKE SURE THE WRITE CHECK ERROR WAS DETECTED
BIT
#WCE ,RMCS21]
;IS WRITE CHECK ERROR SET??
BNE
17%
!
sYES:

051502

102362

104000

JMP

PC,PUT

;WAIT FOR WRITE CHECK COMMAND
JSR
PC,TIMOUT

000240

725
726 015644
004737
015650 000405
015652 000240
104000
015654
015656 004736
015660 000137
727 015664
728
729
730 015664 032737
731 015672
001022
732
733 015674
004737
000405
000240
104000

740
741 015740
742 015746
743 015754
744
745
746 015762
747 015770
748
749 015776
016002

JSR

138:

D 8
11:43:33 PAGE 13-23
SEQ 0094

016062

717 015622

718
719
720 015622
721
722 015626

036240

4-4APR-81

JMP
MOV
BIS
MOV

EMT

PC,DTASTS
16%
PC,a(SP)+

20%
RM(CS21,$GDDAT
#WCE ,$SGDDAT
RMCSZ2I1,$BDDAT

337

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

:RETURN HERE

IF ERROR

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

:GO TO 20$ IF ERROR

;LOAD EXPECTED STATUS

;LOAD RECEIVED STATUS

JVERIFY THE ADDRESS OF THE WRITE CHECK ERROR
MOV
#BUF TWO-2 ,$GDADR
cLOAD EXPECTED ADDRESS
MOV
RMBAI
, $8DADR
sLOAD RECEIVED ADDRESS
SuB
#2,38DADR
;DECREMENT RECEIVED ADDRESS

;GET WCE DATA AND VERIFY IT IS OK
MOVB
#PMDB
, GE T INX
;SETUP FOR READING RMDB

18%:

MOVB

#200,GETINX+1

JSR
BR
NOP
EMT
JMP

PC,GET
18%
'

MOV

20%

RMDB] ,$BDDAT

;GO READ REGISTER(S) WITH GET SUBRQUTINE
;GO _TO 18% IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE

;GO 1O 20% IF ERROR

;LOAD RECEIVED DATA WORD

rznmeo RMOS/3/2 FCINL TST 2

MACRO Vv04.00
FORMAT CHECK ONES W/ WCE ERRORS

110

751 016022

752 016030
753 016034
754 016042
755 016044
756 016046
757 01€050

758 01605C
759 01605€
760 016060

761 016062

013737
005137
023737

001402
104340
000405

023737
001401

102362
001140
001134

4-APR-81

001136

001142

104341

19¢:

20%:

763
M

774
775
776
777
778
779
780
781

e
L B
oSO

Yo Yo

il sl
ol

il sl
ol
o

il S

769
770
771
772
775

016062
016062
016064
016066
016072
016076
016102

(o X Yo o

768

BUF TWO=2,$GDDAT ;LOAD EXPECTED DATA WCRD
$GDDAT
$GDADR,$BDADR
;IS ADDRESS 0K??
198
SYES!!

208

CMP
BEQ
EMT

$GDDAT,$BDDAT
208

340

;IS DATA WORD 0K??
SYES!!

ok L2822
* W okokok
22222232223 2222222

'TEST

764
765
766
767

13-24

MOV
oM
(MP
BEQ

EMT

001140

11:43:33 PAGE

SEQ 0095

001140

762

OQOOOO

000004
000240
012706
013700
013701

012737
012737
012737
012737
012737
012737
012737
004737
000405

001100
001276
001466
000011
010000
000000
000000
176774
101360

000062

001226
001444
001446
001420
001414
001416
001412

065000
000001
035104

004737

032176

016656

FORMAT MULTIPLE SECTORS
AR RS

SCOPE
NOP
MOV
MoV
MOV

MOV

#STACK,SP
$BASE ,RO
TSTQUE ,R1

#11,8TESTN

MoV

MOV
MOV
MOV
MOV
MOV

#FMT16,RMOFO

#0,RMDCO
#0,RMDAQ
#=258.%2 RMWCO
#BUFONE ,RMBAO
#WH ,RMCS10

JSR

PC ,BADSCT

TVPE
EmT

.SCTMSG

B8R

001174
001176

22222

22222222227

:SCOPE CALL
:START OF TEST

JINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS

;(R1)

= DEVICE BEING TESTED

;oSET TEST NUMBER IN APT MAIL BOX

:SETUP PARAMETERS FOR GENERATING DATA BUFFER

063346

012737
012737
004737

1
4 LA AR

;VERIFY THAT SECTOR IS NOT BAD

033152

016656

000404
000249
104000
000137

TST11:

104401
104000
000137

154130

1%:

JMP

MOV

2%:

JSR

;16 BIT FORMAT

sCYLINDER = 0
;TRACK = 0, SECTOR =
;WORD COUNT FOR 2 SECTORS
;DATA BUFFER ADDRESS
;WRITE HEADER AND DATA

;CALL BAD SECTOR MODULE

;GO TO 18 IF NO ERROK

17%

;GO TO 17% IF ERROR

:TYPE BAD SECTOR MESSAGE
;ERRCR # DEF INED BY BADSCT SUBROUT INE

#ZERQS , $TMPO

;USE ALL ZEROS DATA PATTERN

PC, GENBUF

;GO GENERATE DATA BUFFER

#1,8TMP1

;PREPARE DEVICE FOR DATA TRANSFER
JSR

(2'S (OMP)

PC,TSTPRP

;PREPARE DEVICE FOR

B8R

;SELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE
JRECAL IBRATE IF ''SKI'* OR 'PIP'" IS SET
;VERIFY_RECALIBRATION
;GO _TO 3% IF NO ERROR

JMP

18%

.WORD

NOP
EMT

154130

TEST

s TASK DESCRIPTOR AS FOLLOWS:

sRETURN HERE IF ERROR
ERROR # DEF INED BY TSTPRP SUBROUTINE
.GO TO 18% IF ERROR

CZRMNBO RMOS5/3/2 FCT NL

FORMAT

MULTIPLE

TST 2

SECTORS

MACRO v04.00

782 016234

785 016234

000005
001553
000006
000034
000032
000000
000209

786 016242
78 016246

788 016252

789 016256

790 016262
791 016266
792
793 016272

004737
004737

035704
036602

016324

004737
000404

035770

000137

016656

004737
000405
000240
104000
004736
000137

044104

805
806

000240
104000

NN
W) — OO0

b
ol —

00 0o Co 0o 00 0o 00

RREE

807

13-25

;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON YLINDER
MOV

MOVA
MOVB

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

NOP
EMT
JMP

PC,PUT
4%

18%

JSR
JSR

PC,GETSTS
PC,TIMOUT

;SETUP FOR STATUS
;WAIT FOR SEEK TO COMPLETE

;GO READ SEEK STATUS

sVERIFY

7%:

001412

JSR
BR
NOP
EMT
JMP

PC,GET
6%
18%

THE RESULTS OF THE
JSR
PC.SEKSTS
BR
7%

EMT
JSR
JMP

;GO READ REGISTER(S) WITH GET SUBROUT INE
;GO TO 6% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUT INE
;GO TO 18% IF ERROR
SEEK COMMAND
;GO VERIFY RESULTS OF SEEK OPERATION
;GO TO 7% IF NO ERROR
;RETURN HERE

PC,a(SP)+
18%

ERROR

;ERROR # DEF INED BY SEKSTS SUBROUTINE
;GO BACK FOR MORE ERROR (HECKS
;GO TO 18% IF ERROR

sSETUP AND EXECUTE WRITE HEADER AND DATA (OMMAND
MoV
MOV
MOvB
MOvB
MOVB
MovB

036240

036602

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

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

016656

COMMAND TO EEK

WRITE REGISTER INDt
X TABLE

#RMOF
, (R2) +

NOP

000063
001556
000002
000004
000000
000200

004737

#PUTINX ,R2
#RMDA
, (R2) +
HRMDC, (R2) +

JSR
BR

#SEEK !GO,RMCS10 ;CHANGE

MOV
MOvB
MOvVB

MOvVB

016656

797 016310
798 016314

016326
016330
01633¢
803 016336
804

001412

036240

016276
016300
016302
016304
016310

016320
800
801
802 016320

11:43:33 PAGE

3%:

783
784

795

4-APR-81

8%:

JSR
BR
NOP
EMT
JMP

#WH!GO,RMCS10

H#PUTINX+3 ,R2
HRMW
, (R2)
C
+

;WRITE HEADER AND DATA

JEXTEND REGISTER INDEX TABLE

#RMBA, (R2) +

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

18%

;GO WRITE REGISTER(S)

;GO TO 8% IF NO ERROR

WITH PUT

SUBRQUTINE

sRETURN HERE [F ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

;GO TO 18% IF

ERROR

;WAIT FOR WRITE COMMAND TO (CMPLETE AND READ STATUS
PC,TIMOUT
JWAIT FOR COMMAND TO COMPLETE
JSR

“/RMNBO RMOS5/3/2 FCINL TST 2
MACRO v04.00
FORMAT MULTIPLE SECTORS

823 016432
016436
016440
016442
016444
824 016450
826
827 016450
016454
016456
016460
016462
016464
828 016470
829 016470
016474
016476
16500
016502
016504
830 016510
831 016510
016514
016516
016520
016522
016524
832 016530
833
834
835 016530

837 016536
016542
016544
016546
016550
838 016554
839

840
841 016554
842

843 016560

844
845
846
847

004737
000404
000240

(35770

000137

016656

004737
000405

036766

104000

000240
104000
004736
000137

004737
000405
000240

JSR

B8R
-

016656

s08

051502

037620

012737

000053

004737
000404
000240

036240

004737

036602

004737
000404
000240
104000
000137

035770

004737
000405
000240

036766

016656

18%

14%:

WRITE

COMMAND

EMT
JSR
JMP

PC,a(SP)+
18%

;ERROR # DEFINED BY DTASTS SUBROUT INF
;GO BACK FOR MORE ERROR CHECKS
;GO TO 18% IF ERROR

JSR

PC,SECERR

.GO CHECK FOR SECONDARY ERRORS

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

;GO TO 11% IF NO ERROR

JRETURN HERE

12%

18%

ERROR

;GO TO 12% IF NO ERROR

JRETURN HERE

PC.a(SP)+

DATA TRANSFER

ERROR

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

CHECK HEADER AND DATA FOR SECTORS JUST WRITTEN

MOV

#WCH!GO,RMCS10

;WRITE CHECK COMMAND

JSR

PC,PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

NOP
EMT

JWAIT

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

GO VERIFY RESULTS OF

13%:

SURROUTINE

PC,DTASTS

12%:
JWRITE

WITH GET

JSR

EMT
JSR

001412

;GO TO 9% iF NO ERROR

PC,a(SP)+
18%

016656

064736

148

;GO READ REGISTER(S)

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

NOP

104000
000137

PC,GET

PC,PRIERR
10%

016656

13-26

JSR
BR
NOP
EMT
JSR
JMP

NOP

004737
000405
000240
104000
004736
000137

104000

NOP
EMT
JMP

11:43:33 PAGE

JVERIFY RESULTS OF

104000

004736
000137

4-APR-81

JMP

FOR WRITE

13%

;GO TO 13% IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

18%
CHECK

;GO TO 18% IF ERROR

TO COMPLETE AND GET

STATUS

JSR

PC,TIMOUT

JWAIT FOR WRITE CHECK

JSR
BR
NOP
EMT
JMP

PC,GET
14%

;GO READ REGISTER(S) WITH GET SUBRQUTINE
;GO TO 14% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;GO -TO 18% IF ERROR

TO FINISH

JVERIFY THE RESULTS OF WRITE CHECK OPERATION
JSR
BR
NOP
EMT
JSR

PC,PRIERR
15%

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

P(,a(SP)+

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

JRETURN HERE

IF ERROR

MACR) V04.00
-‘nMNBO RMO5/3/2 FCINL TST 2
FORMAT MULTIPLE SECTORS

016612

000137

016656

849 016€16

004737

051502

848 016616

016622
016624
016626
016630
016632
850 016636
851 016636
016642
016644
016646
016650
016652
852 016656
853
854 016656
855

18%

;GO TO 18% IF ERROR

JSR

PC,DTASTS

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

NOP
EMT
JSR
-MP

16%:

016656

13-27

JMP

037620

11:43:33 PAGE

StG OU9E

15%:

016656

000137

4-APR-81

JSR
BR
NOP
EMT
JSR
JMP

17%:

16%

JRETURN HERE

IF ERROR

PC,a(SP)+

;ERROR # DEF INED BY DTASTS SUBROUT
INE
;GO BACK FOR MORE ERROR (HECKS
;GO TO 18% IF ERROR

PC,SECERR
17%

;GO CHECK FOR SECONDARY ERRORS

18%

;GO TO 17% IF NO ERROR

JRETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS

PC,a(SP)+
18%

;GO TO 18% IF ERROR

18%:

856

& tttttt.t*ttQtttttt*t""*'ttQ.Qtttttt't'itt"'ittt.tt'tttt"'tt

'TEST

016656
016656
016660
016662
016666
016672
016676
016704
016712
016720
016726

016734
016742
016750
016756
016762
016764
016770
016772
868 016776
016776
870 017004
871 017006
872 017014
873 017022
874

875

876 017026

017032

FORMAT W/ HEAD SWITCHING

' tl"ttt‘l"ttl’l’ittttttl"t'Q"*ttttfifit'itl*tfitfitttt'ttttt'tt'ttttt'

000004
000240
012706

TSTT?

013700
013701
012737

001100
001276
001466
000012

001226

12737
12737
12737
12737
12737
12
12

000000
000000
000037
010000
176774
101360
000062

001446
001421
001420
001444
001414
001416
001412

123727

001420

000037

065000
000001
035104

001174
001176

154130

1%:

032176

;START OF

TEST

JINITIALIZE STACK POIN.ER

;RO = UNIBUS ADDRESS

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

MOvB
MOVB
MOV

#0 ,RMDAO+1
#31. .RMDAO
#FMT16,RMOFO

:TRACK =

MOV

#BUF
ONE , RMBAO

:DATA BUFFER ADDRESS
:WRITE HEADER AND DATA

MOV

MoV

#-258.%2 ,RMWCO

#WH,RMCS10

2%:

;PREPARE

;SECTOR = 31.

;16 BIT FORMAT

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

JSR
BR

PC ,BADSCT
2%

EMT
JMP

,SCTMSG

;TYPE BAD

18%

;GO TO 18% IF ERROR

RMDAOQ, #31.
1%
#7ERQS ,$TMPO

;IS LAST SECTOR ASSIGNED ?
:BR_IF NO

TYPE

017470

004737

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

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

063346

000137
001345
012737
012737
004737

;SCOPE CALL

;VERIFY THAT SECTOR IS NOT BAD

033152
104000

SCOPE
NOP
MOV
MOV
MOV
MOV

CMPB
BNE
MOV
MOV
JSR
DEVICE

JSR

.WORD

#1,8TMP1
PC, GENBUF
FOR DATA

PC,TSTPRP

154130

. CALL BAD SECTOR MODULE

;GO TO 2% IF NO ERROR

SECTOR MESSAGE

;ERROR # DEFINED BY BADSCT SUBROUTINE

sUSE ALL ZEROS DATA PATTERN

;GO GENERATE DATA BUFFER
TRANSFER

.PREPARE DEVICE FOR TEST
s TASK DESCRIPTOR AS FOLLOWS:

sSELECT DEVICE & VERIFY DEVICE AVAILARLE
;CLEAR CONTROLLER & SELECT DEVICE

JAMABO

KMOS/3/2

FORMAT

FCINL

HEAD

TST

MACRO

v04.00

1-4

i
4-APR-B1

11:43:33

PAGE

SWITCHING

13-28

SEQ 0099

sVERIFY CONTROLLER CLEAR GPERATION

sPACK ACKNOWLEDGE

VOLUME NOT

sVERIFY PACK ACKNOWLEDGE
JRECALIBRATE

017034
017036
017040
017042
g;g 017046

000404
000240
104000
000137

017470

880 017046
881 017054
882 017060
883 017064
884 017070
885 017074
ggg 017100

012737
(12702
1i2722
112722
112722
112722
112722

000005
001553
000006
000034
000032
000000
000200

888 017104

004737

036240

879

017110
017112
017114
017116
ggg 017122
891
892 017122

893 017126
894 017132

895
896
897 017132
017136
017140
017142
017144
ggg 017150

900
901 C17150
017154
017156
017160
017162
017164
gg% 017170

904
905 C17170
906 017176
907 017202
908 017206
909 017212
910 017216
81

000404
000240
104000
C00137

004737

004737
000405
000240
104000
004736
000137

044104

017470

012737
012702
112722
112722
112722

000063
001556
000002
000004
000000

5%:

SEEK TO GET DRIVE ON CYLINDER

#SEEK !GO,RMCS10 ;CHANGE COMMAND TO SEEK
#PUTINX ,R2
©
JWRITE REGISTER INDEX TABLE
#RMDA
, (R2) +
#RMDC, (R2) +
H#RMOF
, (R2) +
#RMCS1, (R2) +
#200, (R2) +
,

JSR

PC . PUT

BR
NOP
EMT
JMP

18%

SET

;GO TO 3% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEF INED BY TSTPRP SUBROUT INE
;GO TO 18% IF ERROR

MOV
MOV
MOVB
MOVB
MOVB
MOVB
MOVB

JSR

PC,TIMOUT

:GU READ SEEK STATUS
JSR
PC,GET
BR
6%
NOP
EMT
JMP
18%
6%:
.

017470

000200

18%

''SKI'' OR "PIP'" IS

JVERIFY RECALIBRATION

;GO WRITE REGISTER(S)

WITH PUT

SUBROUT INE

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

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

036602

035770

;SETUP PARAMETERS AND EXECUTE

4%:

035704

001412

017470

004737
000404
000240
104000
000137

112722

3%:

BR
NOP
EMT
JMP

VALID

;WAIT FOR SEEK TO COMPLETE

;GO READ REGISTER(S) WITH GET SUBROUT INE
;GG TO 6% IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 18% IF ERROR

;VERIFY THE RESULTS OF THE SEEK COMMAND
JSR
PC,SEKSTS
;GO VERIFY RESULTS OF SEEK CPERATION
BR
7%
;GO TO 7% IF NO ERROR
NOP
JRETURN HERE IF ERROR
EMI
;ERROR # DEFINED BY SEKSTS SUBROUTINE
JSR
PC,a(SP)+
.GO BACK FOR MORE ERROR C(HECKS
JMP
18%
;GO TO 18% IF ERROR
7%:

001412

;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
MOV
#WH!GO,RMCS10
;WRITE HEADER AND DATA
MOV
#PUTINX+3,R2
JEXTEND REGISTER INDEX TABLE
MOVR
H#RMWC
, (R2) +
MOVB
#RMBA, (R2) +
MOVB
HRM(ST, (R2)+
MOVE

#200, (R2) +

R MNBO RMOS/3/72 FCTNL
Y 1 l
f ORMAT W/ HFAD
2

1ST 2
MACRC v04.00
SWITCHING

004737
000404
000240

036240

000137

017470

017240

004737

036602

8 017244
017250
017252
017254
017256
919 017262

004737
000404
000240

035770

000137

017470

004737
000405
000240

036766

912 017222

017226
017230
017232
017234
017240

920
921
922 017262
017266
017270
017272
017274
017276
923 017302
924 017302
017306
017310

017312
017314
017316
925 017322
926 017322
017326
017330
017332
017334
017336
927 017342

104000

004736
000137
004737
000405
000240
104000
004736
000137

004737
000404
000240
104000
000137

036240

017366

004737

036602

017376
017400

004737
000404
000240

035770

017402

104000

10%:

11¢:

017470

JSR
BR
NOP
EMT
JMP

PC,PUT

18%

PC,GET

18%

12%:

001412

JSR
BR
NOP
EMT
JSR
JMP

PC,PRIERR

JSR
BR
NOP
EMT
JSR
JMP

PC,DTASTS

JSR
BR
NOP
EMT
JSR
JMP

;GO WRITE REGISTER(S) WITH PUT SUBROUT
INE

;GO TO 8% IF NO ERROR

JRETURN HERE

ERROR

;ERROR # DEFINED BY PUT SUBROUT INE
;GO TO 18% IF ERROR

108

PC,a(SP)+

18%

11%

PC,a(SP)+
18%

;GO READ REGISTER(S) WITH GET SUBROUT INE

;GO _TO 9% IF NO ERROR

JRETURN HERE

ERROR

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

;GO CHECK FOR PRIMARY ERRORS

;GO _TO 108 IF NO ERROR

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

;GO TO 18% IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER

;GO TO 11$ IF NO ERROR

JRETURN HERE

IF ERROR

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

;GO TO 18% IF ERROR

PC,SECERR

;GO CHECK FOR SECONDARY ERRCRS

PC,a(SP)+

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

12%

18%

;GO TO 12% IF NO ERROR

;GO TO 18% IF ERROR *

;WRITE CHECK HEADER AND DATA FOR SECTORS JUST WRITTEN
MoV

#WCH!GO,RMCS10

SWRITE CHECK COMMAND

JSR
BR

PC,PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

NOP

017470

13-29

sJVERIFY RESULTS OF WRITE COMMAND

017470

000053

937
938 017372

9%
:

051502

012737

JSR
BR
NOP
EMT
JMP

11:43:33 PAGE

JWAIT FOR WRITE (OMMAND TO (OMPLETE AND READ STATUS
PC,TIMOUT
JSR
JWAIT FOR COMMAND TO COMPLETE

017470

037620

017360
017362
933 017366
934

8%:

104000

004737
000405
000240
104000
004736
000137

928
929
930 017342
931
932 017350
017354
017356

935

104000

4-APR-81

EMT

13%:

JMP

13%

18%

;GO TO 13% IF NO ERROR
RETURN HERE

ERROR

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

;WAIT FOR WRITE (HECK TO COMPLETE AND GET STATUS
PC, TIMOUT
JSR
;WAIT FOR WRITE CHECK

JSR
BR
NOP
EMT

PC,GET
14%

TO FINISH:

;GO READ REGISTER(S) WITH GET SUBROUnINE

;GO TO 14% IF NO ERROR
:RETURN HERE

ERROR

JERROR # DEFINED BY GET SUBROUTJNE

CZRMNBO RMOS/3/2 FCTNL IST 2
MACRO v04.00
T2
FORMAT W/ HEAD SWITCHING

017404
939 017410
940
941
942 017410

017414
017416
017420
017422
017424
943 017430
944 017430
017434
017436
017440
017442
017444
945 017450
946 017450
017454
017456
017460
017462

017464
947 017470
948
017470

000137

004737
000405
000240

017470

4-APR-81

004737
000405
000240

017470

268

051502

017470
037620

000137

017470

JSR
JMP

PC.a(SP)+
18%

JSR
BR
NOP

PC.DTASTS
16%

EMT
JSR

ias

JMP

JSR

17%:

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

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

PC,a(SP)+

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

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

PC,a(SP)+
18%

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

;GO TO 18% IF

17%

NOP
EMT
JSR
JMP

IF ERROR

JERROR # DEFINED BY PRIERR SUBROUT INE

18%

ERROR

;GO TO 17% IF NO ERROR

18%:

950

951

LSRRttt

L*TEST 13
S e

017470
017470
017472
017474
017500
017504
017510

;GO TO 15% IF NO ERROR

JRETURN HERE

EMT

004737
000405
000240

104000
004736

;GO TO 18% IF ERROR

15%

NOP

104000

004736
000137

" SEQ@ 0101

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

036766

104000

004736
000137

18%

JMP

14%:

K 8
11:43:33 PAGE 13-30

000004
000240
012706
013700
013701
012737

017516
017524
017532
017540
017546
017554

TST13:

001100
001276
001466
000013
000000

001334
000037
010000
176774
101360
000062

017562

001226
001446
001420
001420
001444
001414
001416
001412

FORMAT W/ MID
A AR

SCOPE
NOP
MOV
MOV
Mov

MoV

A A A

TRANSFER SEEK

AR A

AR A A A AR A AR R AR AR AR AR AR AR AR AR AR A AA N

#STACK ,SP
$BASE ,RO
TSTQUE ,R1

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

#13,$TESTN

020302

1$:

MOV

#0,RMDCO

MOvVB

#31. ,RMDAD

MOV

#BUFONE ,RMBAO

MoV

MOV
MOV
MoV

001335

2222

AR R AR

;SET TEST NUMBER IN APT MAIL 80X

:SETUP PARAMETERS FOR GENERATING DATA BUFFER

063346

001421

A A

:START LAST TRACK AND

HFMT 16 ,RMOFO
#-258.%2 RMWCO

;16 BIT FORMAT
;WORD COUWT FOR 2 SECTORS

#WH ,RMCS10

JSR
BR

PC ,BADSCT
2%

JMP

19%

CMPB

RMDAO+1,LSTRK+1

TYPE
EMT

BNE

;CYLINDER = 0

LSTRK,RMDAO

;VERIFY THAT SECTOR IS NOT BAD

033152

123737
001342

A A

2123222222222

.SCTMSG

;LAST SECTOR

;DATA BUFFER ADDRESS

(2'S COMP)

;WRITE HEADER AND DATA
;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

T13

FORMAT W/ MID

966 017620
967 017626
968 017634
969 017640

970
971
972 017640
017644

TST 2

MACRO v04.00

TRANSFER SEEK

012737
012737
004737

065000
000001
035104

004737
154130

032176

4-APR-81

11:43:33 PAGE

13-31

SEQ 0107

001174
001176
3%:

MOV
MOV
JSR

;PREPARE DEVICE

JSR

.WORD

#7EROS ,$TMPO
#1,8TMP1

PC ., GENBUF

JUSE ALL ZEROS DATA PATTERN

;GO GENERATE DATA BUFFER

FOR DATA TRANSFER

PC,TSTPRP

154130

;PREPARE DEVICE FOR TEST

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

JVERIFY CONTROLLER CLEAR OPERATION

017646
017650
017652
017654

973 C17660
974
975
97¢ 017660
977 017666
978 017672
979 017676
980 017702
981 017706
982 017712
983
984 017716
017722
017724

017726
017730
985 017734
986
987
988 017734
989 017740
990 017744
991
992
993 017744
017750
017752
017754
017756
994 017762
995
996
997 017762
017766
017770
017772
017774
017776

000404
000240
104000

000137

020302

1 2737
1 2702
1 2722

1 2722
1 2722
112722

2722

000005
001553
000006
000034
000032
000000
000200

004737

036240

——_aaoo

CZRMNBO RMOS5/3/2 FCTNL

000404
000240
104000

000137

020302

004737
004737

035704
036602

004737
000404
000240

035770

000137

020302

004737
000405
000240

044104

104000

001412

020302

4%
19%

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

JERROR # DEFINED BY TSTPRP SUBROUT INE
;GO TO 19% IF ERROR

;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER
MoV

#SEEK !GO,RMCS10 ;CHANGE

#PUT INX ,R2
#RMDA, (R2) +
#RMDC, (R2) +
#RMOF
, (R2) +
#RMCS1,(R2)+
#200, (R2)+

JWRITE REGISTER INDEX TABLE

JSR
BR

PC,PUT
5%

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;GO TO 5% IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY PUT SUBROUT INE
;GO TO 19% IF ERROR

MOV
MOVB
MOVB
MOVB
MOVB
MOVB

NOP
EMT
JMP

19%

COMMAND TO SEEK

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

JSR
JSR

PC,GETSTS
PC,TIMOUT

;GO READ SEEK STATUS
JSR

NOP

104000

004736
000137

BR
NOP
EMT
JMP

sPACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF ''SKI''
OR ‘PIP'" IS SET
JVERIFY RECALIBRATION

EMT
JMP

PC.GET

19%

;SETUP FOR STATUS
sWAIT FOR SEEK TO COMPLETE

.GO READ REGISTER(S) WITH GET SUBROUTINE

;GO TO 7% IF NO ERROR

JRETURN HERE

IF ERROR

;ERROR # DEFINED BY GET SURROUTINE
;60 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
NOP
JRETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY SEKSTS SUSROUTINE
JSR
PC,a(SP)+
;GO BACK FOR MORE ERROR CHECKS
JMP
19%
;GO TO 19% IF ERROR

CZRMNBO RMOS5/3/2 FCTINL

113

TST 2

MACRO v04.00

FORMAT W/ MID TRANSFER SEEK

000063
001556

0014172

;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND

58888

036240

v
n

004737

036602

004737
000404
000240

035779

000137

02020¢

004737
000405
000240

036766

104000

9%:

004737
000405
000240

10%:

11%:

051502

1025
1026 020154

1027
1028 020162

020166
020170
020172

020302
037620

012737

000053

004737
000404
000240

036240

164000

JSR
BR
NOP

PC,PUT

;GO WRITE REGISTER(S)

JMP

19%

WITH PUT SUBROUTINE

;GO TO 9% IF NO ERROR

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

JSR

PC,TIMOUT

sWAIT FOR COMMAND TO COMPLETE

JSR

PC,GET

;GO READ REGISTER(S)

BR
NOP
EMT
JMP

BR
NOP

020302

004737
000405
000240
104000
004736
000137

;WRITE HEADER AND DATA
JEXTEND REGISTER INDEX TABLE

108

WITH GET SUBROUTINE

;GO TO 108 IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE

19%

;GO TO 19% IF ERROR

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

104000

004736
000137

#WH!GO,RMCS10
#PUTINX+3,R2
#RMWC
, (R2) +
#RMBA, (R2) +
#RMCS1, (R2) +
#200, (R2) +

;WAIT FOR WRITE COMMAND 1O COMPLETE AND READ STATUS

104000

004736
000137

MOV
MOV
MOvB
MOVB
MOVB
MOvVB

EMT

020302

S AN—-O

—

ol v

eleloleles]

SEQ 0103

000002
000004
000000
000200

020020
020024
020030

1023 020154
1024

M 8
11:43:33 PAGE 13-32

8%:

998 020002
o9
1000
1001 020002
1002 020010
1003 020014

1021 020134
1022 020134

4-APR-81

12%:

020302

138:

001412

EMT
JSR
JMP

JSR
BR
NOP
EMT
JSR
JMP

JSR
BR
NOP
EMT
JSR
MP

11%

;GO TO 118 IF NO ERROR

PC,a(SP)+

19%

’

PC,DTASTS

128

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

;GO TG 19% IF ERROR

;GO VERIFY RESULTS OF

;GO _TO 128 IF NO ERROR

DATA TRANSFER

JRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUT INE

PC,a(SP)+

;GO BACK FOR MORE ERROR CHECKS

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

19¢%

138

PC,a(SP)+

19%

;GO TO 19% IF ERROR

;GO TO 138 IF NO ERROR

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

;GO TO 19% IF ERROR

;WRITE CHECK HEADER AND DATA FOR SECTORS JUST WRITTEN
MoV

#WCH!GO,RMCS10

;WRITE CHECK COMMAND

JSR
BR
NOP
EMT

PC,PUT

;GO WRITE REGISTER(S)

14%

;GO TO 14% IF NO ERROR

WITH PUT

SUBROUTINE

JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

%{gMNBO RMOS/%5/2 FCINL TST 2
FORMAT

020174
?8%3 020200

W/ MID

MACRO V04.00

TRANSFER SEEK

000137

020302

}835 020200

004737

036602

1034 020204

004737

035770

1031

020210
020212
020214
020216
?8%2 020222
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
}822 020302

000404
000240
104000
000137

004737
000405

004737

051502

000405
000240
104000
004736
000137

004737
000405
000240
104000
004736
000137

1049

1050 020330
1051 020336
1052 020344
1053 020352
1054 020360
1055 020366
1056

;GO TO 19% IF ERROR
;

j
’

JSR

PC, TIMOUT

:WAIT FOR WRITE CHECK TO FINISH

JSR

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

BR
NOP
EMT
JMP

158:

158

:GO_TO 158 IF NO_ERROR
;RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
;GO TO 19% IF ERROR

198

;VERIFY THE RESULTS OF WRITE CHECK OPERATION
JSR
PC,PRIERR
;GO CHECK FOR PRIMARY. ERRORS

~
168:

020302

‘

168

PC,a(SP)+
198

;GO _TO 168 IF NO ERROR
;RETURN HERE IF ERROR
:ERROR # DEF INED BY PRIERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS
:GO TO 19% IF ERROR

JSR

PC,DTASTS

:GO VERIFY RESULTS OF DATA TRANSFER

188:

178

;GO _TO 17% IF NO _ERROR
:RETURN HERE IF ERROR
:ERROR # DEF INED BY DTASTS SUBROUT INE
;G0 BACK FOR MORE ERROR CHECKS
;GO TO 198 IF ERROR

PC,a(SP)+
198

JSR
BR
NOP
EMT
JSR
JMP

;

020302

BR
NOP
EMT
JSR
JMP

17%:

037620

PC,SECERR
188

PC,a(SP)+
19

:GO CHECK FOR SECONDARY ERRORS
;GO _TO 188 IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 19% IF ERROR
'

198:

1047

020302
020302
020304
020306
020312
020316
e 020322

198

SEQ 0104

;WAIT FOR WRITE CHECK TO COMPLETE AND GET STATUS

036766

020302

JMP

148:

020302

000240
104000
004736
000137

N 8
11:43:33 PAGE 13-33

4-APR-81

001100
001276
001466
000014

001226

012737
012737
012737
012737

000000
000000
010000
176774

001446
001420
001444
001414

012737
012737

;*TEST 14

a3 eSS

ResR

1ST14:

000004
000240
012706
013700
013701
012737

101360
000062

001416
001412

SCOPE
NOP
MOV
MOV
MoV
MOV

AR AT AR

FORMAT W/
it

A AR A AR A AR

RA A AR R

R AR A AR A AR AR

IMPLIED SEEK
ettt

:
#STACK, SP
$BASE ,RO
TSTQUE ,R1.
#14,STESTN

ittt

s22233222222232

MOV
MO

#0,RMDCO
#0,RMDAO
#FMT16,RMOFO
#-258.%2 ,RMWCO
#BUFONE ,RMBAO
#WH,RMCS10

2303

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

;SETUP PARAMETERS FOR GENERATING DATA BUFFER

MOV
MOV
MOV
MOV

SRR ANk

;CYLINDER = 0
.
:TRACK = 0, SECTOR = 0
;16 BIT FORMAT
;WORD COUNT FOR 2 SECTORS (2'S (OMP)
;DATA BUFFER ADDRESS
;WRITE HEADER AND DATA

CZRMNBO RMOS/37¢2 FCINL

FORMAT

1057

TST 2

IMPLIED SEEK

020374
020400
020402
020406
020410

004737
000405
104401
1046000
000737

063346

1059 020414
1060 020422

(12737
012737

065000
000001

1058 020414

1061 020430

162 02043

1064

1065 020434

020440

004737

154130

1068

1069 020454

1070 020462

1071
1072
1073
1074
1075
1076

013737

001446

001466

020470
020476
020502

012737
012702
112722

112722
112722
112722
112722

000034
000032
000000
000200

1079 020526

004737

036240

020536
020540
1080 020544

104000
000137

021120

004737

035704

020506
020512
020516
1077 0205¢2

020532 000404
020534 000240

1082
1083 020544

1084 020550
1085 020554

000005
001553
000006

004737

036602

1088 020554

004737

035770

020564
020566

104000
000137

021120

1087

020560 000404
020562 (000240

18:

28:

13-34

JSR
BR
TYPE
EMT
JMP

PC,BADSCT
1%
,SCTMSG

MOV
MOV

#7ZEROS,$TMPO
A1, STMPT

JSR

188

PC.GENBUF

:CALL BAD SECTOR MODULE
;GO TO 1% IF NO fPROR
:TYPE BAD SECTOR MESSAGE
ERROR # DEF INED BY BAD:CT SUBROUTINE
GO TO 188 IF ERROR
JUSE ALL ZEROS DATA PATTERN
;G0 GENERATE DATA BUFFER

;PREPARE DEVICE FOR DATA TRANSFER
JSR

PC,TSTPRP

;PREPARE DEVICE FOR TEST

BR
NOP

VERIFY _RECAL IBRATION

LWORD

021120

012737

001174
001176

032176

104000
000137

11:43:33 PAGE

sVERIFY THAT SECTOR IS NOT BAD

021120

035104

4-APR-B1

SEQ 0105

(33152

020442 000404
020444 000240

020446
020450
166 02045

MACRO v04.00

38:
021122

EMT
JMP

154130

TASK DESCRIPTOR AS FOLLOWS:
SELECT DEVICE & VERIFY DEVICE AVAILABLE
CLEAR CONTROLLER & SELECT DEVICE
VERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE IF VOLUME NOT VALID
VERIFY PACK ACKNOWLEDGE
*RECALIBRATE IF ''SKI" OR 'PIP'* IS SET

G0 T0 38 IF NO ERROR
RETURN HERE IF ERROR

;ERROR # DEFINED BY TSTPRP SUBROUT INE
GO TO 188 IF ERROR

188

;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE OFF CYLINDER
MOV

001446

MOV

001412

MOV
MOV
MOVB

MOVB
MOVB
MOVB
MOVB

RMDCO

:SAVE CYLINDER ADDRESS

:SEEK TO LAST CYLINDER

#SEEK!GO,RMS10 :CHANGE COMMAND TO SEEK
AWPUTINKX,R2
‘WRITE REGISTER INDEX TABLE
#RMDA, (RQ)+

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

JSR

PC,PUT

EMT
M

188

BR
NOP
48:

RMDCO,19%

#822.

’

;GO WRITE REGISTER(S) WITH PUT SUBROUTINF

GO TO 4$ IF NO ERROR
RETURN HERE IF ERROR

.ERROR # DEFINED BY PUT SUBROUT INE
GO TO 188 IF ERROR

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

5%
:

JSR

PC.TIMOUT

;GO READ SEEK STATUS
JSR

PC,GET

EMT
P

188

BR
NOP

‘WAIT FOR SEEK TO COMPLETE

;GO READ REGISTER(S) WITH GET SUBROUT INE

GO TO 6$ IF NO ERROR
RETURN HERE IF ERROR

*ERROR # DEF INED BY GET SUBROUT INE
GO T0 188 IF ERROR

FORMAT W/

IMPLIED SEEK

1089 020572

;VERIFY THE RESULTS OF THE
PC,SEKSTS
JSR
7%
BR
NOP
EMT
PC,a(SF)+
JSR
18%
JMP
7%:

044104

021120

021122
000063
001556

001446
001412

—

jlole]

SB&IR3

ool
od ol

SN
=

D
—d o

o
e — —d
SR

i
o

021129

020670

036€02

020674
020700
020702
020704
020706
020712

035770

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

13-35

021120

036766

021120
051502

021120

037620

SEEK COMMAND

;GO VERIFY RESULTS OF SEEK OPERATION

;GO TO 7% IF NO ERROR
JRETURN HERE

IF ERROR

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

sSETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
MOV
MOV
MOV
MOvVB
MOVB
MOVB
MOVB

020642
020646

020652
020656
020660
020662
020664
020670

11:43:33 PAGE

6%:

1090

1091
1092 020572

4-APR-B1

8%:
;WAIT

JSR
BR
NOP
EMT
JMP
FOR WRITE

JSR

9%:

JSR
BR
NOP
EMT
JMP

19%,RMDCO

#WH'!GO,RMCS10
#PUTINX+3,R2

#RMW
, (R2)
C
+
#RMBA, (R2) +
#RMCS1,(R2)+

10%:

11%:

JMP

;WRITE HEADER AND DATA
JEXTEND REGISTER INDEX TABLE

#200, (R2)+

PC,PUT
8%

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

18%

;GO TO 18% IF ERROR

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

COMMAND TO COMPLETE AND READ STATUS
PC, TIMOUT
SWAIT FOR COMMAND TO COMPLETE
PC,GET

;GO READ REGISTER(S)

;GO TC 9% IF NO ERROR

JRETURN HERE

18%

JVERIFY RESULTS OF WRITEC COMMAND
JSR
BR
NOP
EMT
JSR

JRESTORE DISK ADDRESS

PC,PRIERR

10%

PC,a(SP)+

18%

JSR
BR
NOP
EMT
JSR
JMP

PC,DTASTS

JSR
BR
NOP
EMT
JSR

PC,SECERR

WITH GET SUBROUT INE

IF ERROR

;ERROR # DEF INED BY GET SUBROUTINE

;GO TO 18% IF ERROR

;GO CHECK FOR PRIMARY ERRORS

:GO_TO 108 IF NO ERROR

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

;GO BACK FOR MORE ERROR CHECKS

;GO TO 18% IF ERROR

;GO VERIFY RESULTS OF

DATA TRANSFER

;GO TO 118 IF NO ERROR

PC,a(SP)+

;GO BACK FOR MORE ERROR CHECKS

188

JRETURN HERE IF ERROR
;ERROR # DEF INED BY DTASTS SUBROUTINE

;GO TO 18% IF ERROR

;GO CHECK FOR SECONDARY ERRORS

12%

;GO _TO 12% IF NO ERROR
sRETURN HERE IF ERROR

PC.a(SP)+

;GO BACK

;ERROR # DEFINED BY SECERR SUBROUT INE
FOR MORE

ERROR (HE(CKS

MACRO v04.00

CZRMNBO RMOS/3/2 FCINL TST 2

CZRMNBO RMOS5/3/72 FCINL

Y14

TST 2

FORMAT W/ IMPLIED SEEK

020766
;;;g 020772

000137

021120

}}sg 020772

012737

000053

1124 021000

004737

036240

021006
021010
021012
;;52 021016

000240
104000
000137

021120

1}53 021016

004737

036602

1130 021022

004737

035770

1121

;

021006

1127

021026
021030
021032
021034
;;%; 021040

000404

000404
000240
104000
000137

1133
1134 0210640

004737

021046
021050
021052
021054

000240
104000
004736
000137

021044

1135 021060
1136 021060

021064
021066
021070
021072
021074

1137 021100

000405

004737

000405
000240
104000
004736
000137

1138 021100
021104
021106
021110
021112
021114
;}28 021120

004737
000405
000240
104000
004736
000137

}}2} 021120

000401

%}22 021122

000000

MACRO Vv04.00

12%:

001412

021120

037620

021120

11:43:33 PAGE

13-36

188

;GO TO 188 IF ERROR

MOV

MJCH!GO,RMCS10

;WRITE CHECK COMMAND

JSR

PC,PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUT
INE

188

*RETURN HERE IF ERROR
*ERROR # DEF INED BY PUT SUBROUTINE
‘GO TO 188 IF ERROR
.

NOP
EMT
JMP

13§

“GO TO 13$ IF NO ERROR

;WAIT FOR WRITE CHECK TO COMPLETE AND GET STATUS

148

JSR

PC,TIMOUT

JSR

PC,GET

8R
NOP
EMT
JMP

;WAIT FOP WRITE CHECK TO FINISH

;GO READ REGISTER(S) WITH GET SUBROUTINE

14§

*GO TO 14% IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEF INED BY GET SUBROUTINE
*GO TO 188 IF ERROR

188

;VERIFY THE P:SULTS OF WRITE CHECK OPERATION
JSR
PC,PRIERR
;GO CHECK FOR PRIMARY ERRORS

B8R

A
15%:

168:

15$

NOP
EMT
JSR
JMP

PC.a(SP)+
18$

JSR

PC.DTASTS

BR
NOP
EMT
JSR
JMP

:
;GO VERIFY RESULTS OF DATA TRANSFER

168

PC,a(SP)+
18%

JSR
BR
NOP
EMT
JSR
JMP

PC,SECERR
17$

18%:

20$

198%:

L.WORD

17%:

*GO TO 158 IF NO ERROR

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

PC,a(SP)+
18§

‘

:6G0.TO 168 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY DTASTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
*GO TO 18% IF ERROR

;GO CHECK FOR SECONDARY ERRORS
60 TO 178 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY SECERR SUBROUTINE
16O BACK FOR MORE ERROR CHECKS
*GO TO 18% IF ERROR

: TEMPORARY STORAGE

3;22 021124

208 :

1‘1‘7

.'"tt"ttt'*"tttfitt“tt"t"‘t*Q'lfififit!"'t"t"t’t.'tt't"ttt‘tl’"
S*TEST 15

FORMAT EACH SECTOR ADDRESS

""tfifit*t'ttt'lttt'tl".'!'.t'tfi!'.fi"ttl!ttttt'!t.'."ttt'.ltt&'tt

021124
021124

000004

SEQ 0107

;WRITE CHECK HEADER AND DATA FOR SECTORS JUST WRITTEN

138:

036766

:
051502

JMP

B8R

021120

4-APR-B1

15715:

SCOPE

;SCOPE CALL

.
TM

CZRMNBO 8M0S/3/2 FCTINL T3T 2
MACRO v04.00
T18
FORMAT EACH SECTOR ADDRESS

021126
021130
021134
021140
e, 021144

000240
012706
013700
013701
012737

001100
001276
001466
000015

001226

1149
1150 021152
1151 021160

};gg 85;192

012737
012737

012737

000000
000000

001446
001420

1154 021174
1155 021202
}}29 021210

012737
012737
012737

177376
101360
000062

001414
001416
001412

004737
000405
104401
104000
000137

033152

021666

012737
012737

001420
000001

1158

021216
021222
021224
021230
021222

1159 021236
1160 021236
1161 021244

1162 021252
;;22 021256
1165

1166 021256

021262

010000

154130

NOP
MOV
MOV
MOV
MOV

11:43:33 PAGE
:

13-37

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

;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
#0,RMDCO
;CYLINDER = 0
.
MoV
#0 . RMDAO
:TRACK = 0, SECTOR = 0

MOV

#FAT16,RMOFO

:16 BIT FOURMAT

MOV
MOV
MOV

#-258. RMWCO
#BUFONE ,RMBAO
#WH,RMCS10

;2 + 256 WORDS (2'S COMP)
:DATA BUFFER ADDRESS
*WRITE HEADER AND DATA

:VERIFY THAT SECTOR IS NOT BAD

063346

004737. 035104

004737

001444

4-APR-B1

2%:
001174
001176

3$:

JSR
BR
TYPE
EMT

PC,BADSCT
2%
,SCTMSG

JMP

16$

MOV
MOV

#RMDAO,$TMPO
#1,$TMPT

JSR

PC . GENBUF

;CALL BAD SECTOR MODULE
:GO TO 28 IF NO ERROR
:TYPE BAD SECTOR MESSAGE
:ERROR # DEF INED BY BADSCT SUBROUTINE

16O TO 16$ IF ERROR

;USE

SECTOR FOR DATA PATTERN

:GO GENERATE DATA BUFFER

;PREPARE DEVICE FOR DATA TRANSFER

032176

JSR

LWORD

PC, TSTPRP

154130

:PREPARE DEVICE

FOR

:SELECT DEVICE & VERIFY DEVICE AVAILABLE

:CLEAR CONTROLLER & SELECT DEVICE

:VERIFY CONTROLLER CLEAR OPERATION

:PACK ACKNO':_EDGE

021264
021266
021270
021272
;;gg 021276
1169
1170 021276
1171 021304

1172
1173
1174
1175

021310
021314
021320
021326

1176 02133C

000404
000240
104000
000137

021666

012737
012702
112722

000063
001553
000006

112722

000004

112722
112722
112722

1177 021334
};;g 021340

112722
112722

1180 021344

004737

021350
021352

000404
000240

000034
000032
000002

000000
000200
036240

4$:
001412

TEST

*TASK DESCRIPTOR AS FOLLOWS:

BR
NOP
EMT
JMP

48
16$

VOLUME NOT VALID

*VERIFY PACK ACKNOWLEDGE
IRECALIBRATE IF ''SKI" OR ‘PIP'* IS SET
*VERIFY RECALIBRATION
.
160 TO 48 IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEF INED BY TSTPRP SUBROUTINE
16O TO 16$ IF ERROR

;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
MOV
#WH!GO,RMCS10
;WRITE HEADER AND DATA
MOV
#PUT INX ,R2
*WRITE REGISTER INDEX TABLE

MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

MOVB
JSR

BR
NOP

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

#200, (R2)+
C,PUT

1
;GO WRITE REGISTER(S)

GO TO 5% IF NO ERROR
*RETURN HERE IF ERROR

WITH PUT

SUBROUTINE

(VL]

F
11:43:33 PAGE

9
13-38
SEQ

000137

021666

021362
021366

004737
004737

035704
036602

021372
021376

004737
000404
000240

035770

000137

021666

004737
000405
000240

036766

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

021400
021402
0214604
021410

021410
021414
021416
€21420
021422
021424
021430
021430
021434
021436
021440
021442
021444
021450
021450
021454
021456
021460
021462
021464
021470

104000

004737
C00405
000240

004737
000405
000240

021666

051502

021666

037620

012737
012737

000073

021504

004737
000404

036240

102364

000137

021666

021522

004737

036602

1208 021526

004737
000404
000249

035770

021532
021534
021536
021540

104000

000137

PC,GET
6%

EMT
JMP

16%

00141
00141

021666

;GO TO 7% IF NO ERROR

JRETURN HERE

ERROR

PC,a(SP)+
16%

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

JSR
BR

PC,DTASTS
8%

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

NOP
EMT
JSR
JMP

PC,a(SP)+
16%

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

JSR

PC.,SECERR

;GO CHECK FOR SECONDARY ERRORS

JSR
JMP

PC,a(SP)+
16%

MOV
MOV

;WAIT

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 6% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEF INED BY GET SUBROUT INE
;GO TO 16% IF ERROR

sREAD HEADER AND DATA FOR

10%:

JWAIT FOR COMMAND TO COMPLETE

EMT
JSR
JMP

BR
NOP
EMT

021666

021470
021476

104000

JSR
BR

104000

004736
000137

2C,GETSTS
PC,TIMOUT

NOP

104000

004736
000137

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

16%

JSR
JSR

NOP

104000

004736
000137

EMT
JMP

sSETUP INPUT REGISTER BUFFER FOR READING STATUS

000240

1207

4-APR-81

021354
021356
021362

]
Rellele

)

LEIR

mgmmmmm
NN
SN

Y
R
B

I
——
— o o

s o

MACRO v04.00
TST 2
FORMAT EACH SECTOR ADDRESS

—

;fMNBG RMOS/3/2 FCINL

JSR
BR
NOP
EMT
JMP
FOR READ

JSR

JSR
BR
NOP
EMT
JMP

;GO TO 9% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERRCR (HECKS
;GO TO 16% IF ERROR
SECTOR JUST WRITTEN

#RH!GO,RM(S510

#BUF TWO,RMBAC
PC,PUT

108

14%
TO COMPLETE
PC,TIMOUT
PC,GET
1%

;READ HEADER & DATA COMMAND

; CHANGE BUS ADDRESS
GO WRITE

;GO TO 108 IF NO ERROR

sRETURN HERE

SUBROUT INE

ERROR

;ERRCR # DEFINED BY PUT SUBROUTINE
;GO TO 16% IF ERROR
AND GET STATUS
;WAIT FOR READ TO COMPLETE
;GO READ REGISTER(S) WITH GET
;GO TC 118 IF NO ERROR

sRETURN HERE

163

WITH PUT

ERROR

SUBROUT INE

JERROR # DEFINED BY GET SUBROUT INE
.60 TO 16% [F ERROR

C/RMNBO RMOS5/3/2 FCINL TIST 2
MACRO v04.00
r1£
FORMAY EACH SECTOR ADDRESS

4-APR-81

11:43:33 PAGE

13-39

1209 021544

11%:

1210

—
e d

[2RWY]

(¢
4V,]

nono

—d
-

od
v

rorno

1211
1212

021544
021550
021552
021554
021556
021560
021564
021564
021570
021572
021574
021576
021600
021604

021604

COo~Ny

N = -

nonornoro

021610
021612
021614
021616

021620
021624

021624
021630
021632
021634
021636
021640
021642

021646
021646
021652
021660
021662
021666

004737

000405
000240

;VERIFY

036766

B8R

NOP

104000

004736
000137

004737
000405
000240

021666

128

051502

037620

021666

004737

035342

14%:

104000

.GO VERIFY RESULTS OF

PC,a(SP)+
16%

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

;VERIFY DATA

JSR
-WORD
.WORD

000404
000240

000137

PC,DTASTS

JSR
BR
NOP
EMT
JSR
JMP

104000

B8R

NOP
EMT

021666

IF ERROR

JERROR # DEFINED BY PRIERR SUBROUTINE

JSR

EMT
JSR
JMP

Ji8

JRETURN HERE

PC,a(SP)+
16%

0216566

;GO TO 12% IF NO ERROR

JSk
JMP

NOP

004736
000137

101360
102364

12%

EMT

104000

004736
000137

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

JMP

13%

PC,SECERR
14%

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

;GO TO 13% IF NO ERROR
JRETURN HERE

DATA TRANSFER

ERROR

16%

;GO CHECK FOR SECONDARY ERRORS
;GO TO 14% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 16% IF ERROR

PC,CMPBUF
BUF ONE
BUF TWO

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

PC,a(SP)+

15%

16%

;GO TO 15% IF NO ERROR

;RETURN HERE IF ERROR
JERROR # DEFINED BY CMPBUF

;GO TO 16% IF ERROR

SUBROUTINE

%é?CREMENT ADDRESS AND FORMAT NEXT SECTOR

005237
122737
103402
000137

001420
000037

INC

001420

021174

CMPB
BLO
JMP

16%:

RMDAO

#31. ,RMDAO
16%
1%

;ADVANCE

SECTOR COUNT

;DONE ALL SECTORS??
+YES!E
;GO DO NEXT SECTOR

':t'Qt*tit.ttQt*tfititti'tit..t*fi*"*tttttttt’ifittttitttttttttt'tt

LRTEST 16

FORMAT EACH TRACK ADDRESS

';ti***fitttttt*.*.it'QI'"i'*'tfifi.ttt'fi.lil*'ttfiitt*tttt'tiiQit.t

021666
021666
021670
021672

021676
021702
021706

1231
1232
1233 021714
1234 021722
1235 021730

[

—

000004
000240
012706
013700
013701
012737

1ST16:

v . SCOPE

001100
001276
001466
000016

001226

000000
000000
010000

001446
001420
001444

NOP
MOV
Mov
MOV

MoV

:SCOPE CALL
#STACK,SP
$8ASE RO
TSTQUE ,R1

#16,$TESTN

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

;2SET

TEST NUMBER

;SETUP PARAMETERS FOR GENERATING DATA BUFFER
MOV
MOV
MOV

#0,RMDCO
#0 ,RMDAO
#FMT16,RMOF O

[N APT MAIL BOX

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

“HMNBO

MACRO v04.00
FORMAT EACH TRACK ADDRESS
RMOS/3/2

FCINL

1236 021736

1237 021736

1238 021744
1239 021752
1240
1241

1242
1243
1244
1245
1246
1247
1248
1249

021760
0217¢4
021766
021772
021774

TST

1%:

177376

MOV

101360

MOV
MOV

000062
004737
000405
104401
104000

022000
122000
"22006
022014
022020

012737
012737
004737

001420
000001
035104

022020

004737

032176

154130

063346

022430

H
9
11:43:33 PAGE 13-40

#-258. ,RMWCO

#BU
ONE ,RMBAD
F
#WH,RMCS10

JVERIFY THAT SECTOR IS NOT BAD

033152

000137

022024

4-APR-81

JSR
BR

PC ,BADSCT
2%

EMT
JMP

,SCTMSG

;TYPE BAD SECTOR MESSAGE

16%

;GO TO 16% IF ERROR

MOV
MOV

#RMDAO, $TMPO
#1,3TMPT

TYPE

001174
001176

2%:

JSR

3%:
;PREPARE

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

.DATA BUFFER ADDRESS
JWRITE HEADER AND DATA

DEVICE

JSR
.WORD

;GO TO 2% IF NO ERROR

;ERROR # DEFINED BY BADSCT SUBROUT
INE

PC,GENBUF
FOR DATA

PC,TSTPRP
154130

;CALL BAD SECTOR MODULE

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

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

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

et —— —— ——

)

—

DS LS LS LS LS LSS N TN ST NI NN TN
ONONONON
YWV UY LY TN VYL
W= O VNN
W —=C

sVERIFY PACK ACKNOWLEDGE
:RECALIBRATE IF "'SKI'"
OR "PIP'" IS SET

022026
022030
022032
022034
022040
022040
022046
022052
022056
022062
022066
022072
022076
022102

—

022106
022112
022114
022116
022120
1264 022124

000404
000240
104000
000137

022430

112722

000063
001553
000006
000034
000032
000002
000004
000000
000200

004737
000404
000240

1267 022124
1268 022130
1269

1270 022134
022140

104000
000137

022430

004737
004737

035704
036602

004737

035770

000404

001412

4%
16%

;VERIFY RECAL IBRATION
;GO TO 4% IF NO ERFOR

:RETURN HERE

ERROR

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

;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
MOV
#WH!GO,RMCS1C
;WRITE HEADER AND DATA
MOV
MOVB
MOVB
MOVB

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

MOVB

#RMBA, (R2) +

JSR

PC,PUT

MOVB

MOVB
MOVB

036240

1265

1266

4%:

BR
NOP
EMT
JMP

5%:

NOP
EMT
JMP

JWRITE REGISTER

INDEX

TABLE

ARMWC
, (R2) +

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

;GO WRITE REGISTER(S) WITH PUT SUBROJTINE

16%

;GO TO 16% IF ERROR

;GO TO 5% IF NO ERROR

RETURN HERE IF ERROR
;ERROR # DEFINED BY FUT SUBROUTINE

;SETUP INPUT REGISTER BUFFER FOR READING STATUS
JSR
JSR

PC,GETSTS
PC,TIMOUT

JSR
BR

PC,GET
6%

sWAIT

FOR COMMAND

TO COMPLETE

;GO READ REGISTER(S)

;GO TO 6% IF NO ERROR

WITH GET

SUBROUTINE

CZRMNBO RMOS/3/2 FCINL ST 2
MACRO v04.00
FORMAT EACH TRACK ADDRESS

022142
022144
022146
1271 022152
1272

1273
1274 022152

022156
022160
022162
022164
022166
022172
022172
022176
022200
022202
022204
022206
022212
022212
022216
022220
022222
022224
022226
1279 022232

1280
1281
1282 022232
1283 022240
1284
1285 022246

022252
022254
022256
022260
1286 022264
1287
1288
1289 022264
1290
1291 022270

022274
022276
022300
022302
1292 022306

1293
1294

1295 022306

022312
022314
022316
022320
022322
022326

000240
104000

022430

004737
000405
000240

036765

EMT

6%:

004736
000137

022430

004737

051502

000137

022430

004737
000405
000240

037620

104000

022430

012737
012737

000073

004737
000404
000240

036240

000137

022430

004737

036602

004737
000404
000240
104000
000137

035770

004737
000405
000240

036766

104000

102364

001412
001416

13-41

;GO TO 16% IF

WRITE

PC.PRIERR

COMMAND

ERROR

;GO CHECK FOR PRIMARY ERRORS

;GO TO 78 IF NO ERROR

JRETURN HERE

IF ERROR

PC,a(SP)+
16%

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

PC,DTASTS

;GO VERIFY RESULTS OF

;GO TO 8% IF

NO ERROR

DATA

TRANSFER

JRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUT INE

PC,a(SP)+

;GO BACK FOR MORE

16%

ERROR CHECKS

;GO TO 16% IF ERROR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

;GO TO 9% IF NO ERROR

JRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUT INE

PC,a(SP)+

;GO BACK FOR MORE

16%.

;GO TO 16% IF

#RH!GO,RMCS10
#SUFTWO,RMBAO

JSR

PC,PUT

10%:
;WAIT

EMT
JMP

FOR READ

JSR

11%:

JSR
BR
NOP
EMT
JMP

ERROR CHECKS

ERROR

108

16%
TO COMPLETE

PC,TIMOUT

PC,GeT
11%

16%

;READ HEADER & DATA COMMAND
; CHANGE BUS ADDRESS
;GO WRITE REGISTER(S)

;GO TO 108 IF NO ERROR

JRETURN HERE

WITH PUT

SUBROUTINE

ERROR

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

STATUS

sWAIT FOR READ TO CUMPLETE

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 11$ IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUT INE
;GO TO 16% IF ERROR

sVERIFY THE RESULTS OF READ OPERATION
JSR
BR

NOP

EMT

022430

16%

MOV
MoV

NOP

022430

;RETURN HERE IF ERROR
SERROR # DEF INED BY GET SUBROUT INE

;READ HEADER AND DATA FOR SECTOR JUST WRITTEN

104000

004736
000137

JMP

:VERIFY RESULTS
JSR
BR
NOP
EMT
JSR
JMP
7%:
JSR
BR
NOP
EMT
JSR
JMP
8%:
JSR
BR
NOP
EMT.
JSR
JMP
9%:

104000

004736
000137

11:43:33 PAGE

NOP

000137

000405
000240
104000
004736

4-APR-B1

JSR

12%:

JMP

PC,PRIERR
12%
PC,a(SP)+

16%

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

ERROR

JERROR # DEFINED BY PRIERR SUBROUT INE
;GO BACK FOR MORE

;GO TO 16% IF

ERROR CHECKS

ERROR

CZRMNBO RMOS/3/72 FCTINL IST 2
MACRO v04.00
16
FORMAT EACH TRACK ADDRESS

1297 0223%26

022332
022334
022336
002340
022342

004737

1258 020346
1299 022346

022430

004737

037620

022356
022360
922362

104000
004736
000137

022430

1303 022366

004737

035342

1300 022366
1301

1302

022372
022374
022376
022400
02242
150, 022404
1305
1306 022410

1307
1308
1309
1310
1317
2

022410
022414
022422
022426
022430

000405
000240

101360
102364
000404
000240
104000
000157

105237
123737
101002
000137

JSR

,
.

148:

;GO VERIFY RESULTS OF DATA TRANSFER

13§

GO TO 138 IF NO ERROR
RETURN HERE IF ERROR
:ERROR # DEF INED BY DTASTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
GO TO 16$ IF ERROR

PC,a(SP)+
168

JSR

PC,SECERR

EMT
JSR
MR

PC,a(SP)+
168

ERROR # DEF INED BY SECERR SUBROUT INE
GO BACK FOR MORE ERROR CHECKS
GO TO 168 IF ERROR

PC,CMPBUF

;GO COMPARE WRITE,

:GO CHECK FOR SECONDARY ERRORS

14%

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

:VERHY DATA
JSR

"WORD
-WORD
BR
'NOP
EMT
| JmP

022430

001421
001421

PC,DTASTS

BR
NOP
EMT
JSR
P
BR
NOP

9
J
11:43:33 PAGE 13-42
SEQ

051502

000405
000240
104000
004736
000137

022352
022354

4-APR-81

BUFONE
BUF TWO
158

READ DATA BUFFERS

:STARTING ADDRESS OF WRITE BUFFER
:STARTING ADDRESS OF READ BUFFER
GO TO 158 IF NO ERROR
RETURN HERE IF ERROR
ERROR # DEFINED BY CMPBUF SUBROUTINE
GO TO 16$ IF ERROR
.

16$

; INCREMENT ADDRESS AND FORMAT NEXT TRACK
158:
INCB
' CMPB
' BHI
L ump

001335

021736

168:

1313

RMDAO+1
RMDAO+1,LSTRK+1
168
18

;

;ADVANCE TRACK COUNT
:LAST TRACK ?
SYES!!
GO DO NEXT SECTOR

":.'.'tfi"'t.ttfi"t.i"t"i.t."'tt*fit..fifilt't!*tttt*'tt*i"t'lti

TATESTI17

FORMAT PRIME CYLINDERS

"" titt*'t"'tt."tt.t"""'t".'t""tfi‘fi.'.!ifittifi"t"ttt'ttt't

022430
022430
022432
022434
022440
022444
137, 022450

000004
000240
012706
013700
013701
012757

001100
001276
001466
000017

001226

1315
1316 022456

012737

000001

000000

001446

001420

1319 022472
1320 02250C
1321 022506

012737
012737
012737

010000
177376
101360

001444
001414
001416

004737
000405
104401
104000

033152

1317 022464

1322 022514
1324

022522
022526
022530
022534

012737

000062

063346

1ST17:
|
"
.

001412

SCOPE
NOP
MOV
MOV
MOV
MOV

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

#STACK ,SP
S$BASE,RC
TSTQUE,RI
#17,STESIN

;SETUP PARAMETERS FOR GENERATING DATA BUFFER
MOV
#1,RMDCO
;CYLINDER = 1

MOV

#0.RMDAO

:TRACK = 0, SECTOR = 0

MOV
MOV
MOV

WFMT16.RMOFO
#-258..RMWCO
MBUFONE,RMBAO

;16 BIT FORMAT
:2 + 256 WORDS (2'S COMP)
:DATA BUFFER ADDRESS

MOV

#WH,RMCS10

;VERIFY THAT SECTOR IS NOT BAD

JSR ~
BR
TYPE
EMT

PC,BADSCT
28
,SCTMSG

‘WRITE HEADER AND DATA
_

;CALL BAD SECTOR MODULE
G0 T0 28 IF NO ERROR
*TYPE BAD SECTOR MESSAGE
;ERROR # DEFINED BY BADSCT SUBROUTINE

g{;MO RMOS5/3/2 FCINL TST 2
FORMAT PRIME CYLINDERS

1305 033536

000137

023172

1326 022542

012737

001446

1327 022550
1328 022556

012737
004737

000001
035104

MACRO Vv04.00

001174

001176

1330 022562

1332

1333 022562

022566

022570
022572
022574
022576
1334 022602

004737

154130

1337 022602 | 012737
1338 022610 012702
1339 022614
112722

000063
001553
000006

1349

1350 022666

1352
1353 022672
1354 022676

022702
022704
022706
022710
1355 022714
1357
1358 022714

022720
022722

:60 T0 168 IF ERROR

MOV

#RMD(O,$TMPO

sUSE CYLINDER FOR DATA PATTERN

MOV
JSR

4s:

1336

022654
022656
022660
022662
1347 022666

168
#1,STMPT
PC, GENBUF

;GO GENERATE DATA BUFFER

;PREPARE DEVICE FOR DATA TRANSFER

032176

023172

022620
022624
022630
022634
022640
022644
022650

SEQ 0114

38:

000404
000240
104000
000137

1340
1341
1342
1343
1344
1345
1346

K
9
11:43:33 PAGE 13-43

4-APR-B1

112722
112722
112722
112722
112722
112722
004737

000404
000240
104000
000137

023172

035704

004737
004737
000404
000240
104000
000137

036602
035770

004737

036766

023172

PC,TSTPRP

.WORD

154130

6
NOP
EMT
M

43
168

;PREPARE DEVICE FOR TEST

s TASK DESCRIPTOR AS FOLLOWS:

:SELECT DEVICE & VERIFY DEVICE AVAILABLE

;CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE I1F VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ''SKI'* OR 'PIP'" IS SET
:VERIFY RECALIBRATION
:GO_TO 4$ IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUT INE
:GO TO 16$ IF ERROR

;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
MOV
MOV
MOVB

000034
000032
000002
000004
000000
000200
036240

004737

000405
000240

001412

JSR

MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
JSR

58:

BR
NOP
EMT
P

#WH!GO,RMCS1G
.
W#PUTINX,R2
~ ARMDA, (R2)+

#RMDC.(R2)+
ARMOF
. (R2)+
ARMWC
. (R2)+
MRMBA: (R2)+
WRMCST,(R2)+
#200, (R2)+
PC,PUT

168

:WRITE HEADER AND DATA
;WRITE REGISTER INDEX TABLE

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE
:G0_TO 58 IF NO ERRCR
sRETURN HERE IF ERROR

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

;SETUP INPUT REGISTER BUFFER FOR READING STATUS

JSR

PC,GETSTS

JWAIT 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

68:

Bk
NOP
EMT
MP

168

:G0_TO 6% IF NO ERROR
sJRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUT INE
;G0 TO 168 IF ERROR

SVERIFY RESULTS OF WRITE COMMAND
JSR
PC.PRIERR
;GO CHECK FOR PRIMARY ERRORS

BR
NOP

;GO TO 7% IF NO ERROR
:RETURN HERE IF ERROR

rZRMNBO RMOS/3/2 FCINL TST 2
FORMAT PRIME

022724
022726
022730
1359 022734
1360 022734
022740
022742
022744
022746
022750
022754
022754
022760
022762
022764
022766
022770
022774

623172

004737

051502

023172

000073
102364
036240

000137

023172

023026
373 023032
023036
023040
023042
023044
374 023050
375

004737
004737
000404
000240
104000
000137

036602
035770

377 02305
02305
023056
023060
378

1 379

104000

13-44

PC,a(SP)+

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

JSR

PC.DTASTS

;GO VERIFY RESULTS OF

EMT
JSR
JMP

:
PC,a(SP)+
165

*ERROR # DEF INED BY DTASTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
“GO TO 16% IF ERROR

JSR
BR

PC,SECERR
98

:GO CHECK FOR SECONDARY ERRORS
:GO 10 9% IF NO ERROR

JMP

PC,a(SP)+
168

JMP

037620

023172

11:43:33 PAGE

EMT
JSR

NOP

012737
012737
004737
000404
000240

023062
023064

4-APR-B1

SEQ 011%

104000

004736
000137

022774
023002
023010
023014
023016
023020
023022
023026

1 376
1

CYLINDERS

MACRO v04.00

NOP
EMT
JSR

168

GO TO 16% IF ERROR

:GO TO 8% IF NO ERROR

*RETURN MERE

DATA

TRANSFER

ERROR

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

:GO TO 168 IF ERROR

:READ HEADER AND DATA FOR 3ECTOR JUST WRITTEN
MOV

MOV

JSR
BR

NOP

10%:

EMT
JMP

;WAIT FOR READ

JSR
JSR

B8R

NCP
EMT
JMP

#RH'GO,RMCST0

#BUF TWO,RMBAO

PC,PUT
108
16$

;READ HEADER & DATA COMMAND

: CHANGE BUS ADDRESS

GO unxrg REGISTER(S) WITH PUT SUBROUT INE
GO TO 108 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY FUT SUBROUTINE
*GO TO 168 IF ERROR

TO COMPLETE AND GET STATUS

PC. TIMOUT
PC,GET

11$

:WAIT FOR READ TO COMPLETE

GO READ REGISTER(S) WITH GET SUBROUTINE

:GO TO 118 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
*GO TO 16% IF ERROR

023172

)

004737
000405
000240
104000
004736
000137

036766

;VERIFY THE RESULTS OF READ OPERATION
JSR
PC.PRIERR
;GO CHECK FOR PRIMARY ERRORS
BR
12%
*GO TO 128 IF NO ERROR

004737
000405
000240
104000
004736
000137

051502

004737
000405

037620

000240
104000

023172

16$

NOP
EMT
JSR
JMP

PC,A(SP)+
16$

JSR
BR

PC,DTASTS
13§

NOP
EMT
JSR
JMP

JSR
AR

NOP
EMT

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

PC,a(SP)+
16$

;GO VERIFY RESULTS OF DATA TRANSFER
*GO TO 13% IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY DTASTS SUBROUTINE
*GO BACK FOR MORE ERROR CHECKS
‘GO TO 168 IF ERROR

PC,SECERR
14$

:GO CHECK FOR SECONDARY ERRORS
GO TO 14% IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEF INED BY SECERR SUBROUTINE

—ry
N

MNBO RMOS5/3/2 FCINL

\I’?WN

gwww

ol ol il

FORMAT

004736
000137

3172

023130
023134
023136
023140
023142
023144

004737

035342

1386 023152
1388
1389 023152

8\§WWW
0\08

8 023220
023226
023234
023242
023250

lolelal

023172
023172
023174
023176
023202
023206
023212

WR)
—

1390 023156
1291 023164
1392 023166
1393 023172
1394
1395

b il il o

CYLINDERS

023122
023124
023130

023146

el Sl sl sl

PRIME

TST 2

023250
04 023256

1405 023264
1406
1407
1408 023272

023276

101360
102364

MACRO v04.00

4-APR-81

SEQ 0116
JSR

14%:

104000

023172

006337
023727
003002
000137

001446
001446

JMP

:VERIFY DATA

000404
000240

000137

m 9
11:43:33 PAGE 13-45

15%:

JSR
.WORD
.WORD
BR
NOP
EMT
JMP

PC,a(SP)+

;GO BACK FOR MORE ERROR CHECKS

PC, CMPBUF
BUFONE
BUFTWO
15%

;GO COMPARE WRITE, READ DATA BUFFERS
sSTARTING ADDRESS OF WRITE BUFFER
;STARTING ADDRESS OF READ BUFFER
;GO TO 15% IF NO ERROR
sRETURN HERE IF ERRCR
;ERROR # DEFINED BY CMPBUF SUBROUT INE
;GO TO 16% IF ERROR

16%

;GO TO 16% IF ERROR

; INCREMENT ADDRESS AND FORMAT NEXT PRIME CYLINDER
ASL

0071000

022472

cMP

16%:

BGT
JvP

RMDCO

;ADVANCE

16%
1%

“YES!!
;GO DO NEXT CYLINDER

RMDCO,#512.

CYLINDER COUNT

;DONE ALL PRIME CYLINDERS ?

tt*i'tfi'fi.fitfifi'tfi'ifi".'*.t.tt't**ti.."‘tt'.'fifit"'fifi.t".t"t

'TEST 20

READ HEADER & DATA IN LAST SECTOR

*tfi'*fi.t"'.'fiitt‘i'*""fi'fifi'fi*.'fifi‘.'.'.'i'..'fifi'tfi'lt‘tt‘t"

000004,
000240

TST?O

012706
013700
013701
012737

001100
001276
001466
000020

001226

012737
013737
012737

001466
001334
000036
010000

001446
001420
001420
001444

012737
012737
012737

177376
102364
000073

001414
001416
001412

004737

032176.

112737

154130

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 PARAHETERS FOR READING LAST SECTOR

MOV
MOVB
MOV
MOV
MoV

MOV
;PREPARE

DEVICE

JSR

.WORD

#822. ,RMDCO
LSTRK ,RMDAO
030..RHOA0
#FMT16,RMOFO

;LAST CYLINDER
JSET LAST TRACK AND
:LAST SECTOR
;16 BIT FORMAT

#-258. ,RMWCO
#BUF TWO ,RMBAO
#RH'!GO,RMCS10

;2 + 256 WORDS (2'S COMP)
;DABA BUFFER ADDRESS.
;READ HEADER AND DATA

FOR DATA TRANSFER

PC,.TSTPRP
154130

;PREPARE DEVICE FOR TEST

s TASK DESCRIPTOR AS FOLLOWS:

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

;PACK ACKNOWLEDGE

VOLUME

;VERIFY PACK ACKNOWLEDGE

NOT VALID

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

023300

000404
000240

000137

1409 023312

023476

2%:

BR
NOP
EMT
JMP

;VERIFY RECALIBRATIGN

;GO TO 2% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUSROUTINE
;GO TO 9% IF ERROR

CZRMNBO RMOS/3/2 FCTNL TST 2

120

READ HEADER & DATA IN LAST SECTOR

1410 023312
1411 023315
1412 023322
1413 023326
1414 023332
1415 023336
1416 023342
1417 023346

112722
112722
112722
112722
112722

001553
000006
000034
000032
000004
(00002
000000
000200

1420
1421 023352

004737

036240

1418 023352

023356
023360
023362
023364
1422 023370
1424
1425 023370

012702
112722

112722

000404
000240
104000
000137

023476

004737

035704

1426 023374

004737

036602

1428 023400

004737

035770

023404
023406
023410
023412
{258 023416
1431
1432 023416

023422
023424
023426
023430
023432
1433 023436
1434 023436
023442
023444
023446
023450
023452

000404
000240
104000
000137

004737

000405
000240

004737
000405
000240

48:

037620

023464

000240

000405

104000
004736
000137

;WRITE REGISTER INDEX

TABLE

i
i

)
: TERMINATOR

GO TO 4$ IF NO ERROR
‘RETURN HERE IF ERROR
*ERROR # DEF INED BY PUT SUBROUT INE
‘GO TO 98 IF ERROR

JSR

PC.TIMOUT

:WAIT FOR READ TO COMPLETE

JSR

PC,GET

:GO READ REGISTER(S) WITH GET SUBROUTINE

BR
NOP
EMT
JMP

*GO TO 58 IF NO ERROR
‘RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
‘GO TO 9% IF ERROR

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

e
:

BR
NOP

JSR
JMP

PC,a(SP)+
98

oy
BR
NOP

PC.DTASTS
7%

EMT
JSR
JMP

]

*ERROR # DEFINED BY PRIERR SUBROUTINE

GO BACK FOR MORE ERROR CHECKS
‘G0 TO 9% IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER
‘G0 TO 78 IF NO ERROR
g
RETURN HERE IF ERROR

.
JSR

*ERROR # DEFINED BY CTASTS SUBROUTINE
‘GO BACK FOR MORE ERROR CHECKS
‘60 TO 9% IF ERROR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

Nop

‘RETURN HERE IF ERROR

Emr
JSR
JMP

8%:

‘GO TO 6 IF NO ERROR
*RETURN HERE IF ERROR

PC.a(SP)+
98

023476

SEQ 0117

;SETUP INPUT REGISTER BUFFER FOR READING STATUS
JSR
PC,GETSTS
-

023476

004737

1437 023476
1438
1439 023476
1440

BR
NOP
EMT
JMP

EMT

051502

:READ HEADER AND DATA OF LAST SECTOR
JSR
PC,PUT
;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

104000

004736
000137
:

023476

023466
023470
023472

MOVB
MOVB
MOVB
MOVB
MOVB

11:43:33 PAGE 13-46
#PUTINX,R?
#RMDA, (R2)+
#RMDC. (R2)+
HRMOF
- (R2)+
#RMBA. (R2)+
#RMWC
. (R2)+
#RMCST,(R2)+
#200, (R2)+

MOVB

036766

1435 023456
1436 023456

023462

4-APR-81
MOV
MOVB

023476

104000
004736
000137

1‘41

MACRO V04.00

PC,a(SP)+
9%

‘GO TO 88 IF NO ERROR

*ERROR # DEFINED BY SECERR SUBROUTINE
GO BACK FOR MORE ERROR CHECKS
‘G0 TO 9% IF ERROR

9%
:
. """'i"fi*fi‘*.t*tif"'*"*"**"**"R'*"'*“***"“.'tt"t"'l

S*TEST 21
.‘ AR

A A

READ HEADER & DATA W/ AOE
A

A A

A AR A A A AR AR

ERROR

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

TS o

7
:

"JRMNBO RMOS/3/72 FCINL

ral

TST 2

MACRD v04.0C

READ HEADER & DATA W/ ADE ERNOR
023476

1S721:

0c3476
023500

000004
000240

023506
023512
el 023516

C13700
013701
012737

001276
001466
(000021

001226

013737

001334

001420

023502

%463

14644 0235264

1645 023532

322‘7’ 85;222
1448 023546

01%706

112737

(00036

012737

001466

012737

1449 023554

012737

}2;5 023570

1450 023562

1453
1454 023576

023602

001100

010000

001420

001444
001414

012737

000073

001412

004737

032176

012737

154130

102364

SCOPE
NOP
MOV
MOV
MOV

MOV

8 10
171:43%:33 DAQE 13-4

#STACK,SP

$RASE RO
TSTQUE .R?
#21,8TESIN

;SCOPE CALL
:START OF TEST

JINITIALIZE STACK POINTER

sRO = UNIBUS ADDRESS
J(R1) = DEVICE BEING TESTED
;sSET TEST NUMBER IN APT MAIL BOX

JSETUP PARAMETERS 7OR READING 2 SECTORS STARTING WITH | AST SECTOR
MOV

001446

176774

4-APR-B7

MOVR

MOV

00147%¢

MOV

LSTRK ,RMDAC

:SET

MFMT16,RMOFO

:16 BIT FORMAT

#30. ,RMDAD

#822. ,RMD(O

#-258.+2 ,RMWCO

#BUF TWO , RMBAC

#RH!GO,RMCS10

LAST

TRACK AND

;LAST SECTOR

;LAST CYLINDER
;READ 2 SECTORS

.DATA BUFFER ADDRESS

;READ HEADER AND DATA

;PREPARE DEVICE FOR DATA TRANSFER
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TEST

WORD

154130

;TASK DESCRIPTOR AS FOLLOWS:
JSELECT DEVICE & VERIFY DEVICE AVAILABLE

;CLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION

;PACK ACKNOWLEDGE

023604

023606

023610
023612

000404

000240

104000
000137

024002

1456 023616
1457 023622
1458 023626

012702
112722
112722

001553
000006
000034

16462 023646

112722
112722

1455 023616

1459 023632
1460 023636
1461 023642

112722
112722

000032
000002

;222 023652

112722

000200

1465 023656

004737

036240

023666

104000

023662
023664

000404
000240

2%:

000004
000000

023670

000137

024002

1468
1469 023674

}2;(1) 023700

004737

035704

1472 023704
023710
023712
023714

004737
000404
000240
104000

035770

;229 023674

EMT
JMP

MOV
MOVB
MOVB

#PUT INX R2
#RMDA
, (R2) +
#RMD(
, (R2)+

NOP

(36602

MOVB
MOV
MOVB

#RMOF
, (R2) +
#RMUC, (R2) +
#RMBA, (R2)+

MOVB

#200, (R2) +

MOVB
JSR

BR
NOP
EMT

3%:

JmP

VOLUME NOT VALID

JVERIFY PACK ACKNOWLEDGE
sRECALIBRATE IF *'SKI'* OR "PIP'" IS SET
;VERIFY RECALIBRATION

;GO TO 2% IF NO ERROR

JRETURN HERE IF ERROR

;ERROR # DEFINED BY TSTPRP SURROUTINE
;GO TO 8% IF ERROR
JWRITE REGISTER INDEX TABLE

#RMCST,(R2)+

P(,PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

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

;ERROR # DEFINED BY PUT SUBROUTINE

;GO TO 8% IF ERROR

SSETUP INPUT REGISTER BUFFER FOR READING STATUS
JSR
PC,GETSTS

JSR

PC,TIMOUT

;WAIT FOR READ TO COMPLETE

JSR
8R
NOP
EMT

P(,GET
A 3

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

CZRMNBO RMOS/3/72 FCTNL TIST 2
MACRD v04.00
READ HEADER £ DATA w/ AQE ERROR

023716

000137

024002

1476 023722

004737

036766

1473 023722

023726
023730

JmMpP

SVERIFY

023732

023734

1677
1478

024002

5%:

051502

1479
1480 023762

024002

>65:

037620

024002

77:43:33 PAGE

13-48

SEQ 0119

4%:

1474

1475

4=-APR-BT

:G0 TO 8% IF ERROR

THE RESULTS OF READ OPERATION
PC,PRIERR
JSR
;GO CHECK FOR PRIMARY ERRORS
B8R
5%
;GO TO 5% IF NO ERROR
NOP
JRETURN HERE IF ERROR
EM7T
;ERROR # DEFINED BY PRIERR SUBROUT INE
PC,a(SP)+
JSR
:GO BACK FOR MORE ERROR (HECKS
JMP
8s
;GO TO 2% IF ERROR

JSR

BR
NOP
EMT
JSR
P

JSR
BR
NOP
JSR
JMP

7%:

PC ,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 6% IF NO ERROR
SJRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR (HECKS

PC,a(SP)+
8%

;GO TO 8% IF ERROR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

PC,a(SP)+

;RETURN HERE IF ERROR
sERROR # DEFINED BY SECERR SUBROUT INF
;GO BACK FOR MORE ERROR CHECKS
;GO TO 8% IF ERROR

;GO TO 7% IF NO ERROR

8%:
':....t"t'l....'..'.."".".'."t'."'."".‘t."*t'tt""".tfi

1486

024002
024002
024004
024006
024012
024016
024022

1487 024030
1488 024036

1489 24044
1490 024052
1491 024060
1492 024066
1493 024074

SeTEST 22

001100
001276
001466
000022

000000
000036
000000

101360
177376

000073

1494

1495

1496 024074

024100

032176

ST22:

READ
Al

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

001446
001420
001444
001416
001414
001412

MOV
MOV
MOV
MOV
MOV
MOV

1%:

ARl

INVALID SECTOR ADDRESS

#STACK, SP

$BASE ,RO

TSTQUE ,R1
#22,8TESTN
#0,RMDCO

#30. _RMDAO
#0.RMOF O

#BUFONE ,RMBAO
#-258. ,RMWCO

#RH!GO,RMCST10

PC,TSTPRP

154130

2223222322222

sSCOPE CALL
:START OF TEST

SINITIALIZE

STACK POINTER

*RO = UNIBUS ADDRESS

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

:TRACK = 0, INVALID SECTOR = 30.
©18 BIT FORMAT

: CHANGE BUS ADDRESS
:2 + 256 WORDS (2'S COMP)
;READ HEADER AND DATA

;PREPARE DEVICE FOR DATA TRANSFER
JSR
. WORD

222232222

;PREPARE

DEVICE

FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:

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

;PACK ACKNOWLEDGE

VOLUME NOT VALID

:VERIFY PACK ACKNOWLEDGE

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

CZRMNBO RMOS/3/72 FCINL ST 2
MACRO v0&.00
122
READ INVALID SECTOR ADDRESS

024102
0246104
024106
026110
1497 0264114

000404
000240

001553
00000¢
000034
000032
000002
000004
000000
0002C0

1501 024120
1502 026124
1503 024130
1504 024134
1505 024140
1506 024144

1507 024150
1508

—

h —d —d

(e SV, PVL,V
E 1)

D o
D
wud
d S
-

OO0~

—_—

VLIV TV, IV TV, IV, 1V

1509 024154
024160

wvyw v
o S ey

026344

024172
024176

004737
004737

035704
036602

024202
024206
024210
024212
024214
024220

004737
000404
000240
104000
37
000]

035770

02420
026224
024226
024230
024232
024234
024240
024240
024244
024246
024250
024252
024254
024260
024260
026264
024266
024270
024272
006274
024300

004737 026766
000405
000240°

024344

004737
000405
000240

024344

004737
000405
000240

#PUT INX ,R2

MOVB

#RMBA, (R2) +

IF ERROR

cERROR # DEFINED BY TSTPRP SUBROUT INE
;GO TO 9% JF ERROR

;LOAD REGISTER INDEX TABLE

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

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

;SET TERMINATOR BYTE

JSR
B8R

PC,PUT
3%

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

JMP

NOP
EMT

JSR
JSR

PC,GETSTS
PC.TIMOUT

JSR
8R
NOP
EMT
JMP

PC,GET
23
98

;VERIFY RESULTS OF READ COMMAND

JSR
B8R

NOP
EMT
JSR
JmP
JSR

B8R

NOP

EMT-

”

037620

JRETURN HERE IF ERROR
;ERROR # DEF INED BY PUT SUBROUTINE

;GO TO 9% IF ERROR

:GO READ REGISTER(S) WITH GET SUBROUT
INE
:GO TO 4% IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
:GO TO 9% IF ERROR

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

PC,a(SP)+
9%

*RETURN HERE IF ERROR
*ERROR # DEF INED BY PRIERR SUBROUTIN
160 BACK FOR MORE ERROR CHECKS
‘GO TO 9% IF ERROR

PC.DTASTS

;GO VERIFY RESULTS OF

GO TO 6$ IF NO ERROR

*RETURN HERE

ERROR

JSR

P{,SECERR

;GO CHECK FOR SECONDARY ERRORS

EMT
JSR
JMP

PC.a(SP)+
9%

]
|

*ERROR # DEFINED BY DTASTS SUBROUTINE

1GO BACK FOR MORE ERROR CHECKS

DATA TRANSFER

PC,a(SP)+

Jmp

B8R
%

PC.PRIERR
5%

;WAIT FOR COMMAND TO COMPLETE

JSR

NOP

026344

;GO TO 2% IF NO ERROR

sRETURN HERE

sSETUP INPUT REGISTER BUFFER FOR READING STATUS

104000

004736
000137

DA+
, (R2)
#RM
#RVDC, (R2) +

MOV
movs

051502

024344

MOVB
mMOvB

MOV
MOvB

104000

004736
000137

EMT
JMP

MOV

104000

004736
000137

13-49

sSETUP AND EXECUTE READ HEADER AND DATA (OMMAND

036240

024162
024164
024166
024172

D 10

11:43:33 PAGE

NOP

024344

16498
1499
1500 026114

4-aPR-B7

*GO TO 9% IF ERROR

*GO TO 7$ IF NO ERROR

‘RETURN HERE

ERROR

*ERPOR # DEFINED BY SECERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
*GO TO 9% IF ERROR

NI
OV~

R
T Py b el
b o
b
D -a
VIV VY I
AN O wn

FHRUDAE
VRN

CZRMNBO RMOS/3/2 FCINL TST 2
MACRC v04.00
T2
READ INVALID SECTOR ADDRESS

005237
023727

(01420
001420

000100

024314
024322
024324
024332
024340

032737
001010

010000

001444

000040
010000

001420
001444

012737

012737
000137

024074

024344

sADVANCE

BIT
BNE

3;M716,RMOF0

‘€E§7-16 BIT MODE YET °

#32. ,RMDAD

“TRACK= 0, INVALID SECTOR = 32.

1544 026406

1545 024412
1546 024420
1547 024426
1548 024434
1549 024442
1550
1551
1552 024442

024446

:38N§|ALL SECTORS??

A#FMT16,RMOFO
1%

JMP

SECTOR COUNT

*SET 16 BIT MODE IN OFFSET AND

“TEST AGAIN.

G%:

-2

RMDAQ
RMDAQ, #64.

MOV

8%:

INC
(MP
BLOS

LRSS

SeTEST 23

541
542 024372
1543 024400

13-50

SEQ 0121

MOV

024344
024344
024346
024350
024354
024360
024364

E 10

11:43:33 PAGE

; INCREMENT ADDRESS AND READ NEXT SECTOR

024300
024304
024312

101412

4&-APR-B1

000004
000240
012706
013700
013701
012737

012737
013737

TST23:

0C1100
001276
00146¢€
000023

012737
012737
012737
012737

000000
001334
001421
010000
177376
101360
000073

004737

032176

105237

154130

AL AL AL

001226
001446
001420

001444
001414
001416
001412

SRRl

SRR

READ
AR

SCOPE
NOP
MOV
MOV
MOV

INVALID

SRR SR

22222 2222232222222222%

TRACK ADDRESS
R

R 222222232222
2322222222
2

sSCOPE CALL
#STACK,SP
$BASE ,RO
TSTQUE ,R1

MOV

#23,8TESTIN

MOV

#0 ,RMDCO

INCB
MOV

RMDAQO+1
#FMT16 ,RMOFO

MOV
MOV

#BUF ONE ,RMBAOD
#RH'!GO,RMCS19

MOV

LSTRK ,RMDAO

;START OF

TEST

;INITIALIZE STACK POINTER

;RO = UNIBUS ADDRESS

;(R1)

= DEVICE BEING TESTED

;:SET TEST NUMBER IN APT MAIL BOX

;CYLINDER = 0
;LOAD LAST TRACK, SECTOR = 0

s INCREMENT TO FIRST INVALID TRACK
;16 BIT FORMAT
;2 + 256 WORDS (2'S COMP)
:DATA BUFFER ADDRESS

;READ HEADER AND DATA

;PREPARE DEVICE FOR DATA TRANSFER
JSR

<WORD

PC,TSTPRP

154130

;PREPARE DEVICE FOR TEST
:TASK DESCRIPTOR AS FOLLOWS:

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

024450
024452
024454
024456
1553 024462

1554
1555
1556 Q24462
1557 024466
1558 024472
155 9 024476
15 60 024502
1561 024506
1562 024512

024666

001553

2%:

BR
NOP
EMT
JMP

2%
8%

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

;VERIFY RECALIBRATION

;GO TO 2% IF NO ERROR

;RETURN HERE IF ERROR

SERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 8% IF ERROR

;SETUP AND EXECUTE READ HEADER AND DATA (OMMAND
MOV
#PUT
INX ,R2
;LOAD REGISTER INDEX TABLE
MOVR

#RMDA, (R2) +

MOvVB

#RMOF
, (R2) +

MOVR
MOVR

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

MOVR

MOVB

#RMDC, (R2)+

#RMWC
, (R2) +

) RMOS/3/72 FCINL

READ

F
11:43%:33 PAGE

13-51
SEQ

112722

000200

MOVB

#200,(R2)+

sSET TERMINATOR BYTE

024522
0264526

036240

024530

004737
000404
000240

JSR
8R

P(,PUT
3%

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

024534

000137

024664

024540
024544

004737
004737

035704
036602

024550
024554
026556
024560
024562
024566

004737
000404
000240

035770

000137

02466¢

004737
000405
000240
104000
004736
000137

036766

024646
024652
024660
024662
024666

104000

004737
000405
000240

NOP

EmM7T

004736
000137

JMP

JSR

0 5 23
2 3 72
0 1 00
0013

JWAIT FOR COMMAND TO COMPLETE

JSR

P{,GET

;GO READ REGISTER(S)

EMT
JMP

JVERIFY RESULTS OF READ (OMMAND

JSR

C24666

051502

EMT
JER
JMP
JSR

EMT

024666

JS5R

037620

PC,DTASTS

;GO VERIFY RESULTS OF

BC,a(SP)+

JSR

PC,SELERK

EmMT

024666

000200

JSR
JMP

ERROR

PL,a(SP)+
8%

NOP

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

sERROR # DEFINED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
;G0 TO 8% IF ERROR

JMP

JRETURN HERE

WITH GET SUBROUTINE

;GO CHECK FOR PRIMARY ERRORS

NOP

;GO TO 4% IF NO ERROR

P(C,PRIERR
5%

NOP

024442

;G0 TO 8% IF ERROR

PC,TIMOUT

NOP

001421
001421

ERROR

JSR

B8R

1046000

004736
000137

PC,GETSTS

004737
000405
000240

JRETURN HERE

SERROR # DEF INED BY PUT SUBROUT INE

JSETUP INPUT REGISTER BUFFER FOR READING STATUS

104000

NN~

024566
024572
024574
024576
024600
024602
024606
024606
024612
024614
024616
024620
024622
024626
024626
024632
024634
024636
024640
024642
024646

104000

C) b b e

g\.fi
33

4-APR=-B1

024516

024540

VERRARNE

MACRO vU4.00

INVALID TRA(K ADDRESS

024532

TST 2

;GO TO 5% IF NO ERROR

JRETURN HERE IF ERROR

;GO TO 6% IF NO ERROR
JRETURN HERE

ERROR

;ERROR # DEFINED BY DTASTS SUBROUTINE

;GO BACK FOR MORE ERROR CHECKS

;GO TO 8%

ERROR

;GO CHECK FOR SECONDARY ERRORS

;GO TO 7% IF NO ERROR

;RETURN HERE

PC,a(SP)+
8%

DATA TRANSFER

ERROR

;ERROR # DEFINED BY SECERR SUBROUTINE
.60 BACK FOR MORE ERROR CHECKS
;GO 7O 8% IF ERROR

s INCREMENT ADDRESS AND READ NEXT TRACK
INCB
RMDAQ+1
;ADVANCE TRACK COUNT

8s:

(MPB
BHI
JMP

RMDAQ+1,#128.
8%
1%

-DONE ALL TRACKS??
1YES
!
;GO DO NEXT TRACK

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

J*TEST 24

READ INVALID CYLINDER ADDRESS

""""""."'.."""""'""""l.'.'.*.".".'.‘t'.'fil’..""'t'

024666
024666
024670
0cé672

TS124:

000240

012704

001100

SCOPE
NOP
MOV

#STACK ,SP

;SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER

01,

MACRO v04.00
JRMABU RMOS/372 FCINL TST 2
‘e
READ INVALID CYLINDER ADDRESS

17:43%:3% PAGE

001226

MOV
MOV
MOV

$8ASE RO
TSTQUE ,R?
226 ,$TESTN

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

00144¢

MOV

#5823, ,RMD(CO

;START AT FIRST INVALID CYLINDER

1591

1592
1593
1594
1595
1596
1597

026€76
024702
024706

001276
(01466
000024

024714

001467
000000
010000

024722
024730
024736
024744
024752
1558 024760

1599
1600
1601 024760

024764

177376
101360

000C73

004737
154130

032176

G 10

4=-APR-B1

00142¢C

001444
001474
001416
001412

MOV
MOV
MCV

MOV

13-52

#0 ,RMDAD
#¥MT16,RMOF O
#-258. ,RMW(CO

#BUF ONE ,RMBAO

#R4!G0O,RM(S10

sTRACK = 0, SECTOR = 0
:16 BIT FORMAT
;2 + 256 WORDS (2'S COMP)

.DATA BUFFER ADDRESS

;READ HEADER AND DATA

;PREPARE DEVICE FOR DATA TRAMSFER
JSR

.WORD

PC,TSTPRP

154130

;PREPARE

DEVICE

FOR

JSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;YERIFY CONTROLLER CLEAR OPERATION

;PACK ACKNOWLEDGE

:
BR:

024766
024770
024772
024774
025000

025204

025000
025004
025010
025014
025020
025024
025030
025034

001553
000006
000034
000032
000002
000004
000000
000200

025040
025044
025046
£25050
025052
025056

036240

025204

025056

004737
004737

035704
036602

025066
. 025072

004737
000404
000240

035770

000137

025204

025062

025074
025076
025100
1622 025104
1623

1624

NOP

104000

2%:

EMT
JMP

TEST

. TASK DESCRIPTOR AS FOLLOWS:

MOVR

JRETURN HERE

ERROR

JERROR # DEFINED BY TSTPRP SUBROUT INE
;GO TO 8% IF ERROR

#PUTINX ,R2
#RMDA, (R2) +
#RMDC, (R2)+
#RMOF
, (R2) +
#RMW(C
, (R2) +
ARMBA, (R2) +

;LOAD REGISTER INDEX

MOvB
MOVB

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

;SET TERMINATOR BYTE

JSR

PC,PUT

;GO WRITE REGISTER(S)

NOP
EMT

JMP

VALID

JVERIFY RECALIBRATION
;GO TO 2% IF NO ERROR

JSETUP AND EXECUTE READ HEADER AND DATA (COMMAND
MOV
MOVB
MCVB
MOVB
MOVB

VOLUME NOT

;VERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF "'SKI''
OR '"PIP'* IS SET

;GO TO 3% IF NO ERROR

TABLE

WITH PUT

;RETURN HERE IF ERROR
JERROR # DEFINED BY PUT

.GC TO 8% IF ERROR

SUBROUTINE

SSETUP INPUT REGISTER BUFFER FOR READING STATUS
JSR
JSR

PC,GETSTS
PC,TIMOUT

JSR
BR

P(,GET
4%

NOP
EMT

4%:

SVERIFY RESULTS OF

READ (OMMAND

JWAIT FOR COMMAND TO COMPLETE
;GO READ REGISTER(S) WITH GET SUBROUT INE
;GO TO 4% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED B8Y GET SUBROUTINE
;GO 70 8% [F ERROR

CZRMNBO RMOS/3/2 FCTNL TST 2
MACRO v04.00
124
READ INVALID (YLINDER ADDRESS

625 0251064

Q04737

03676¢,

02511C

000405

025114
025116
025120
1626 025124
1627 025126

104000
004736
000137

i
025204

004737

051502

025132
025134
025136
025140

000240
104000
004736
000137

025112

025130

1628 025144
1625 025144
025150
025152

025154
025156

625160
;639 025164

004737
000405
000240

104000
004736
000137

1636 025200
1637 025204

005237
(023727
002002

000137

5§:

025204

£3:

037620

PC,DTASTS

7%:

002000

024760

IMp

:GO TO 58 IF NO ERROR

*RETURN HERE IF ERROR
,

PCLa(SP)+
S
PC,SECERR
7%

PC,a(5P)+
8s

:ERROR # DEF INED BY PRIERR SUBROUT
INE
:GO BACK FOR MORE ERROR CHECKS
:GO TO 88 IF ERROR
;GO VERIFY RESULTS OF DATA TRANSFER

;GO TO 6% IF NO ERROR

‘RETURN HERE IF ERROR
:ERROR # DEFINED BY DTASTS SUBROUT INE
:GO BACK FOR MORE ERROR CHECKS
:GO TO 8% IF ERROR
;GO CHECK FOR SECONDARY ERRORS
GO TO 7% IF NO ERROR
:RETURN HERE IF ERROR

:ERROR # DEF INED BY SECERR SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS
:GO TO 8% IF ERROR

; INCREMENT ADDRESS AND READ NEXT CYLINDER
INC
RMD O
;ADVANCE CYLINDER COUNT
CMP
RMDCO,#1024.
:DONE ALL CYLINDERS??
BGE
8%
TYES!!
8s$:

JMP

T*TEST 25

025232
025240
025246
025254

1646 025262

;g:g 025270

1649

JSR

EMT
JSR

025204

001446
001446

PCLA(SP) e
8s

JSR
BR
NOP

;GO CHECK FOR PRIMARY ERRORS

EM?
JSR
JMP

NOP
EMT
JSR
. IMP

13-53

:GO DO NEXT SECTOR

":".'.t.....l"'t.!"'""."t""t"t.’"'t'l.Qt"'t'.t."i'.'.'t

025204
025204
025206
025210
025214
025220
s 025226
1642
1643
1644
1645

PC,PRIERR

B8R

‘

1638
1639

1641

L3R

NOP

1632
‘
1633 025164
1634 025170
1635 025176

17:43:33 PAGE

000240

000405

4=APR=87

025276
025302
025304
025310

025312

1650 025316
1651 025316
€52 025324

FORMAT AT OFFSET

.'"...'Q'.'.t"ttl"t.""'...'tlQQ'I"l".'."'ifi.!"".'.'.tt‘"fi

15725:

000004
000240
012706
013700
013701
012737

001100
001276
001466
000025

001226

012737
012737
012737
012737

000000
000000
010000
177376

001446
001420
001444
001414

012737

000063

004737
000405
104401
104000

033152

012737

101360

MOV
MOV

026116

012737
012737

061420
000001

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

MOV
MOV
MOV
MOV

001416

MOV

001412

MOV

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

;CYLINDER = 0
:TRACK = 0, SECTOR = G
:16 BIT FORMAT
:2 + 256 WORDS (2'S COMP)

#8UF
ONE ,RMBAD .

:DATA BUFFER ADDRESS

#WH!GO,RMCS10 ~ :WRITE HEADER AND DATA

;VERIFY THAT SECTOR IS NOT BAD

001174
001176

;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

063346

000137

SCOPE
NOP
MOV
MOV

1$:

JSR
R
TYPE
EMT
IMP

PC,BADSCT
Y
,SCTMSG

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

17%

GO TO 178 IF ERROR

MOV
MOV

#RMDAO,$TMP0
#1,8TMP

;USE SECTOR FOR DATA PATTERN

“IRMNBO RMOS/3/72 FCTINL

125

FORMAT

1653 025332
:ggg 02533¢
1656
1657 0253%€
025342

15T 2

OFFSET

(04737

(035104

004737
15473¢C

032174

MACRC

04.0C

2%:

&=APR-81

JSR

110

11:43:33 PAGE

13-54

P, GENBUF

:GO GENERATE DATA BUFFER

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

JSELECT DEVICE & VERIFY DEVICE AVAILABLE

;CLEAR CONTROLLER & SELECT DEVICE

;VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE

VOLUME NOT

JVERIFY PACK ACKNOWLEDGE

025344
025346
025350
025352
1658 025356

000404
000240
104000
000137

026116

012737

000015

3s:

1659

1660
1661

025356

1662 025364
1663 025370

1664
1665
1666
}ggg

025374
025400
025404
025410

1669 025414

025420
025422
025424
025426
;g;? 025432
1672
1673 025432

012702
112722

001553
000006

112722
112722
112722
112712

000034
000032
000000
000200

(004737

(036240

000404
000240
104000
000137

025440
025444
025450
025454

000063
001553
000002
000004
000000

1680 025464

004737

036240

1674
1675
1676
1677

;g;g 025460

025470
025472
025474
025476
}gg; 025502
1683
1684 025502

112722

000404
000240
104000
000137

004737

sOFFSET DEVICE

001412

MOV

MOV
MOvVB

026116

012737
012702
112722
112722
112722

004737

036602

1687 025512
025516
025520

004737
00049«
000240

035770

17%
FOR WR1TE

#OFFSET:GO,RMCS10

#PUT INX ,R2
#RMDA, (R2) +

; CHANGE

TO OFFSET

;WRITE PUT INDEX TABLE

MOovB
MOVB
MOV
MovB

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

s TERMINATE TABLE

JSR

PC,PUT

;GO WRITE REGISTER(S)

BR
NOP
EMT
JMP

17%

COMMAND

WITH PUT SUBROUT INE

;GO TO 4% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 17% IF ERROR

MOV
MOVB
-MOVB
MOvB

#PUT INX ,R2
HRMW(
, (R2) +
#RMBA, (R2) +
#RMCS1,(R2)+

JWRITE REGISTER INDEX TABLE

JSR

PC,PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

MCVB

026116

;ggg 025506

;RECAL IBRATE IF ''SKI'"
OR ‘PIP'" IS SET
JVERIFY RECALIBRATION
;GO TO 3% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUT INF
;GO TO 17% IF ERROR

JSETUP AND EXECUTE WRITE HEADER AND DATA COMMAND AT OFFSET
MOV
#WH!GO,RMCS10
;WRITE HEADER AND DATA COMMAND

001412

000200

035704

BR
NOP
EMT
MP

VALID

5% :

;

BR
NOP
EMT
JMP

#200, (R2) +
5%

17%

;GO _TO 5% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 17% IF ERROR

;SETUP INPUT REGISTER BUFFER FOR READING STATUS
SR
PLGETSTS

JSR

PC, TIMOUT

JWAIT FOR COMMAND TO COMPLETE

JSR
BR
NGP

PC,GET
(53 3

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 6% IF NC ERROR
JRETURN HERE [F ERROR

JRMNBO RMOS/3/2 FLINL 7 ST 2
125
f ORMAT AT QFFSET

025522
025524

1688 025530

1689
1650
1651 025530

025554
025556
025560
025562
025564

1694 025570
1695 C25570

025574
025576
025600
025602
025604

1696 025610

1697
1698 025610
1699 025616

1700 025622
1701 025626
1702 025632
1703 025636

1704 025642
1705

1706 025646

025652
025654
025656
025660

WU—=O

D e
b el e

VYOV

——

1707 025664
NNNNNNNNNY

1692 025550
1693 025550

|
;

025534
025536
025540
025542
025544

104000

000137

(26116

004737
000405
000240

036766

vU&L. 0T

4=-APR=-B1

EMT

JMP

£%:

Qus737
000405
000240

JSR

026116

BR
NOP
EmMT
JSR
JMP

7%:

051502

104000

004736
000137

026116

004737

037620

000405
000240
104000
004736

C00137

8%:

026116

000015
001553
000006
000034
000032
000000
000200

9%:

001412

001553
000002
000004
000000
000200

025724

036240

000073
102364

026116

13-55

SERROR # DEFINED BY GET SUBROUTINE

17%

PC.PRIERR

;GO T0 178

COMMAND

;GO TO 7% IF NO ERROR

JRETURN HERE IF ERROR

JERROR # DEFINED BY PRTERR SUBROUT
INE
;GO BACK_FOR MORE ERROR (HECKS

PL,a(SP)+
17%

;GO TO

ERROR

PC,a(SP)+
17%

;ERROR # DEFINED BY DTASTS SUBROUT INE
;GO BACK_FOR MORE ERROR CHECKS
;GO TO 17% IF ERROR

JSR
BR
NOP
EMT
JSR
JMP

PC,SECERR

;GO CHECK

MOVB
MOvB
MOVB
MOVB

MOVB

JREAD

178

PC,DTASTS

MOV

10%:

ERROR

JSR
BR
NOP
EMT
JSR
JMP

MoV

GBI

;GO CHECK FOR PRIMAK! ERRORS

;GO

VERIFY

JSR
8R
NOP
- o
JMP

JRETURN HERE

JSR
8R
NOP
EMT
JMP

FOR

DATA

TRANSFER

TF ERROR

SECONDARY ERRORS

;GO TO 9% IF NO ERROR

JRETURN HERE IF ERROR
sERROR # DEFINED BY SECERR SUBROUT INE

PC,a(SP)+

;GO BACK_FOR MORE

178

;GO TO 17% IF

#OFFSET!GO,RMCS10

JWRITE PUT

PC,PUT

;GO WRITE

ERROR CHECKS

ERROR

;CHANGE

#PUT INX,R2
#RMDA, (R2) +
#RMDC, (R2) +
#RMO
, (R2)
F
+

INDEX

TO OFFSET

TABLE

COMMAND

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

108

#BUF TWO,RMBAD
#PUTINX R2

H#RMWC , (R2) +

;sRETURN HERE

;GO TO 17% IF

ERROR

WITH PUT

SRROR

;READ HEADER & DATA COMMAND

: CHANGE BUS ADDRESS
WRITE PUT

INDEX

TABLE

#RMBA, (R2) +

PC,PUT
1%

;GO WRITE REGISTER(S) WITH PUT
;GO TO 118 IF NO ERROR
JRETURN HERE IF ERROR

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

17%

SUBROUTINE

;ERROR # DEFINED 8Y PUT SUBROUT INE

17%

#RH!GO,RMCS10

;GO TO 10% IF NO ERROR

HEADER AND DATA AT OFFSET

MOV
MOV
MOV
MOv8
MCvB
MOvB
MOVR

RESULTS

;GO TO 8% IF NO ERROR

;OFFSET DEVICE FOR READ

036240

026116

J 10

17:43:33% PAGE

SVERIFY RESULTS OF WRITE

104000

004736
000137

025664
025672
025790
025704
025710
025714
025720

025730
025732
025734
025736

MACRO

JERROR # DEF INED BY PUT
;GO

17%

ERROR

SUBROUTINE

C¢R MNBO RMOS/3/2 FCINL TST 2
T2%
FORMAT AT OFFSET

MACRC v04.00

1720 025742

1721
1722

004737

036602

1725 025746
025752
025754
025756
025760
1726 025764

004737
000404
000240

035779

000137

026116

104000

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

128%:

1727

WNW
WM

1728
1729 025764

025770
025772
025774
025776
026000
026004
026004
026070
026012
026014
026016
026020
026024
026024
026030
026032
026034
026036
026040

1734 026044
1735
1736
1737 926044

026050
026052
026054
026056
26069
026062
1738 026066
1739 026066
1740 026074
1741 026076
1742 026104
1743 026112
1744 026116

K 10
11:43:33 PAGE 13-56

118:

1723 025742

1724

4-APR-B1

004737
000405
000240

SVERIFY

036766

104000

004736
000137

004737
000405

026116

13%:

051502

200609

004736

000137

026116

004737
000405
000240

037620

104000
004736
000137

026116

004737

035342

101360
102364

14%:

15%:

JSR

BR
NOP
EMT
JSR
JMP

17%

JSR
BR
NOP
EMT
JSR
JMP

JSR
BR
NOP
EMT
JSR

032737
001010
052737
012737
000137

000200

001444

000200

001444
001416

101360

025336

17%:

;GO TO 178 IF

ERROR

138

;GO TO 13% IF NO ERROR

PC,a(SP)+

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

17%

;GO TO 17% IF ERROR

PC,DTASTS
14%

;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 14$ IF NO ERROR
JRETURN HERE IF ERROR
.

PC,a(SP)+

;GO BACK FOR MORE

17%

sERROR # DEFINED BY DTASTS SUBROUT INE
ERROR CHECKS

;GO TO 17% IF ERROR

P{,SECERR

;GO CHECK FOR SECONDARY ERRORS

15%

;GO TO 15% IF NO ERROR

PC,a(SP)+

;GO BACK

PC , CMPBUF
BUF ONE
BUF TWO
16%

;GO COMPARE WRITE, READ DATA BUFFERS
;STARTING ADDRESS OF WRITE BUFFER
;STARTING ADDRESS OF READ BUFFER
GO TO 16% IF NO ERROR

JMP

17%

;GO TO 17% IF ERROR

BIT
BNE
BIS
MoV
JMP

%0/

JMP

EMT

16%:

;GO TO 12% IF NO ERROR

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

NOP

026116

. +GO READ REGISTER(S) WITH GET SUBROUT IME

JRETURN HERE IF ERROR
;ERROR # LEFINED BY GET SUBROUTINE

.WCRD
.WORD
BR

000137

1745
1746

THE

12%

JVERIFY DATA
JSR

000404
000240

104000

PC,GET

JSR
B
NOP
EMT
JMP

AR A A KA

L*TEST 26

AR R

179

17¢

,RMOFO

a(: ) ,RMOFO

SEJFUNE,RMBAO

R AR A

JRETURN HERE IF ERROR
;ERROF # DEFINED BY SECERR SUBROUTINE
FOR MORE

ERROR CHECKS

;GO TO 17% IF ERROR

;RETURN HERE IF ERROR
;ERROR # DEFINED BY CMPBUF SUBROUT INE

:DONE BOTH OFFSETS??

JYES!!

:SET

FORWARD OFFSET

:CHANGE

R R R R A AR AR AR R R

AR R

DATA BUFFER

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

h®

IvC FORMAT TEST

':'-'tl"i..il.t'tt"ttt"'*‘ttit't'.'t".'l"t'.lttlttt"tt'.'tt

026116
026116
026120

000004
000240

785126

SCOPE
NOP

sSCOPE CALL

sSTART OF

TEST

CZRMNBO RMOS/3/72 FCINL TST 2

126

IvC

FORMAT

026122
026126
026132
026136

1747
1748
1749 026144
1750 026152
1751

026160

TEST

001100
(01276
001466
000026

012737

900000

012737

000000

010000

1752 026166

012737

1754 026202
1755
1756

012737

000062

004737
000405
104401
104000
000137

033152

026740

012737
012737

001420
000001

004737
154130

032176

1753 026174

026210
026214
026216
026222
026224
1757 026230

1758
1759
1760
1761
1762
1763

026230
026236
026244
026250

1764 026250
026254

(12737

004737

v04.00

4-APR-81

L 10

11:43:33 PAGE

13-57

SEQ 0128

012706
013700
013701
012737

012737

MACRO

177376

101360

MOV
MOV
MOV

001226
001446
001420
001444
001414
001416

MOV

MOV
MOV
MOV
MOV
MOV

;VERIFY

063346

035104

#26,$TESTIN

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

;2SET TEST NUMBER IN APT MAIL BOX

:SETUP PARAMETERS FOR GENERATING DATA BUFFER

001412

001174
001176

#STACK,SP
$BASE ,RO
TSTQUE ,R1

#0,RMDCO
#0,RMDAO
#FMT16,RMOF O
#-258. ,RMWCO
#BUFONE ,RMBAO

MO\

#WH,RMCS10

THAT
JSR
BR

SECTOR IS NOT BAD
PC,BADSCT

TYPE
EMT

LSCTMSG

JMP

16%

MOV
MOV

#RMDAO, $ TMPQ
#1,8TMP1

JSR

PC ., GENBUF

:CYLINDER = 0
;TRACK = 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 18 IF NO ERROR

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

;GO TO 16% IF

ERROR

;USE SECTOR FOR DATA PATTERN

:GO GENERATE DATA BUFFER

:PREPARE DEVICE FOR DATA TRANSFER
JSR

LWORD

PC,TSTPRP

154130

:PREPARE DEVICE FOR TEST

:TASK DESCRIPTOR AS FOLLOWS:
;SELECT DEVICE & VERIFY DEVICE AVAILABLE

;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE

JRECALIBRATE

026256
026260
026262
026264
1765 026270
1766
1767
1768 026270
1769 026276
;;;? 026304

000404
000240
104000
000137

026740

012737
112737
112737

000001
000024
000200

1772 026312

Q04737

036240

026316
026320
026322
026324
1773 026330

1774
1775

1776 026330

1777 026336
1778 026344

000404
000240
104000
000157

012737

012737
012702

NOP

001436
001553
001554

EMT
JMP

JSR

NOP

000063

000000
001553

001412
001436

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

:GO TO 3% IF NO ERROR

16%

:ERROR # DEFINED BY TSTPRP SUBROUTINE
GO TO 16% IF ERROR

:RETURN HERE

IF ERROR

;RESET VOLUME VALID BY SETTING AND RESETTING DIAGNOSTIC MODE
MOV
#DMD , RMMR 10
;SET DIAGNOSTIC MODE
MOVB
#RMMRT,PUTINX
;WRITE REGISTER INDEX TABLE
MOVB
#200,PUTINX+1
BR

026740

:VERIFY RECALIBRATION

EMT

JMP

PC,PUT

16%

;GO WRITE REGISTER(S)

:GO TO 4% IF NO ERROR

:RETURN HERE

:GO TO 16% IF

ERROR

#PUT INX,R2

WITH PUT suenourxns

ERROR

*ERROR # DEFINED BY PUT SUBROUT INE

;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
MoV
#WH'GO,RMCS10
;WRITE HEADER AND DATA
MOV
#0 ,RMMR10
:RESET DIAGNOSTIC MODE
MOV

‘

*WRITE REGISTER

INDEX

TABLE

CZRMNBO RMOS/3/72 FCINL TST 2
126
IvC FORMAT TEST

MACRO v04.00

1779 026350
1780 026354
1781 026360
1782
1783
1784 026374
1785 026400

036240

ol
el s

~N=0B

—

—d

0o 00 0o Qo

026740

026426
026432

035704
036602

026436
026442
026444
026446
026450
026454

035770

026464
026466
026470
1800 026474
1801 026474
1802 026502
1803 026504
026512
1805 026520
1806 026526
1807 026530
1808 026530
026534
026536
026540
026542
026544
026550

MOVB
MOvB
MOV
MOvB
MOvVB

#RMMR1, (R2) +
#RMDA, (R2) +
#RMD
, (R2)
C
+

MOVB

026414
026416
026420
0c6422
026426

799 026454
026460
026462

11:43:33 PAGE

MOvB
MOVB

1786 026404
1787
1788 026410

5%:

JSR
BR
NOP
EMT
JMP

026740

6%:

004736
000137

026740

032737

010000

001400

01400
001400
010000

001142
001140
001140

004737
000405
000240

037620

7%:

8%:

104000

004736
000137

026550
026554

004737
040100

026556
026560

000404
000240

026740

032176

#RMO
, (R2)
F
+
#RMW
, (R2)
C
+
#RMBA, (R2) +
H#RMCST, (R2)+
#200, (R2) +
PC,PUT

16%

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

;GO _TO 5% IF NO ERROR

JRETURN HERE IF ERROR
SERROR # DEFINED BY PUT SUBROUTINE

;GO TO 16% IF ERROR

JSR
JSR

PC,GETSTS
PC.TIMOUT

JSR
BR

PC,.GET

EMT
JMP

16%

;WAIT FOR COMMAND TO COMPLETE
;GO READ REGISTER(S) WITH GET SUBROUT INE
;GO TO 6% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 16% IF ERROR

sVERIFY RESULTS OF WRITE COMMAND
JSR
;g.PRIERR
;GO CHECK FOR PRIMARY ERRORS
BR
;GO TO 7% IF NO ERROR

036766

104000

001012
013737
013737
052737
104342

13-58

sSETUP INPUT REGISTER BUFFER FOR READING STATUS

NOP

004737
000405
000240

M 10

4-APR-B1

9%:

NOP
EMT
JSR
JMP

BIT
BNE
MOV
MOV
BIS
EMT
JSR
BR
NOP
EMT
JSR
JMP

;CLEAR IVC ERROR

PC,a(SP)+
16%

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

:GO TO 16% IF ERROR

giVC,RHERZI

:igsgyc STATUS SET??

RMER21 ,$BDDAT
RMERZ]I
, $GDDAT

*RECEIVED STATUS FOR TYPEOUT

#1vC,$GDDAT

*EXPECTED STATUS

342

PC,SECERR

PC,a(SP)+
16%

JSR
.WORD

PC,TSTPRP

BR
NOP

108

040100

;GO CHECK FOR SECONDARY ERRORS

;GO _TO 9% IF NO ERROR

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

;GO TO 16% IF ERROR

;PREPARE DEVICE FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
;GO TO 108 IF NO ERROR

JRETURN HERE IF ERROR

CZRMNBO RMOS5/3/2 FCINL

126

TST 2

MACRO v04.00

IVC FORMAT TEST

026562

026564
}ggz 026570

104000

000137

(26740

1815
1816 026570

012737

000073

1819 026604

004737

036240

026612
026614
_
026616
;329 026622

000240
104000
000137

026740

1822
1823 026622
}ggg 026626

004737
004737

.
035704
036602

1826 26632

004737

035770

026640
026642
026644
;ggg 02665C

060240
104000
000137

;g}g 026576

026610

026636

1829
1830 026650

026654
026656
026660
026662
026664
1831 026670

1832 026670
1833
1834
1835
1836

026676
026700
026706
026714

1837 026722
1838 026724
1839 026724
026730
026732
026734
026736
;gzp 026740

012737

000404

004737

EMT
108:
001412

102364

001416

PC,PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE

16$

*RETURN HERE IF ERROR
:ERROR # DEF INED BY PUT SUBROUT INE
:GO TO 14$ IF ERROR

11%

NOP
EMT
JMP

001400

001400
001400
010000

001142
001140¢
001140

13$%:

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUT INE

16$

*RETURN HERE IF £RROR
:ERROR # DEFINED BY GET SUBROUTINE
:GO TO 16% IF ERROR

;GO TO 12%,
IF NO ERROR

‘

BR
NOP
EMT
JSR
JMP

13$

PC,a(SP)+
16%

:GO TO 13% IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
:GO TO 16$ IF ERROR

BIT

#1VC,RMER21]

;1S IVC STATUS SET??

EMT

342

JSR

BR
NOP
EMT
JSR

15%:

14$
RMER21,$BDDAT
RMER21,$GDDAT
#1VC,$GDDAT

SYES!!
:
:RECEIVED STATUS FOR TYPEOUT
;EXPECTED STATUS

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

158

FC,a(SP)+

GO TO 15% IF NO ERROR
*RETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROQUTINE
:GO BACK FOR MORE ERROR CHECKS

168$:
.

S IRKK AR IR KA RA KA AR A A A AN R AR AR PRI AR N A A AR AR

L*TEST 27
S

026742
026744

:GO TO 11$ IF NO ERROR

12%

BNE
MOV
MOV
BIS

14%:

037620

1844

026740

: CHANGE BUS ADDRESS

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

026740

GO TO 16% IF ERROR

JSR

NOP
EMT
JMP

12%:

036766

1842 026740
1843

:ERROR # DEFINED BY TSTPRP SUBROUT INE

16%

#BUF TWO,RMBAO

JSR

026740

SEQ 0130

MOV

B8R

010000

000403
000240
104000
004736

13-59

;SETUP INPUT REGISTER BUFFER FOR READING STATUS
JSR
PC.GETSTS
.
JSR
. PC.TIMOUT
;WAIT FOR READ TO COMPLETE

032737

004737

N 10

11:43:33 PAGE

;READ HEADER AND DATA FOR SECTOR JULST WRITTEN
MOV
#RH'!GO,RMCS10
+READ HEADER & DATA COMMAND

118:

026740

104342

JMP

B8R

000405
000240
104000
004736
000137

001012
013737
013737
052737

&-APR-B1

15127

000004

000240
012706

001100

222

AR AR AR A AR

FORMAT ERROR TEST
2SS

2233232332332

SCOPE

NOP
MoV

A A AR R A

2232223322233

:SCOPE CALL
#STACK ,SP

2332222222 222222237

;START OF TEST
JINITIALIZE STACK POINTER

CZRMNBO RMOS5/3/2 FCTINL

12”7

TST 2

FORMAT ERROR TEST

026750 013700

MACRO v04.00

001276

MOV

$BASE ,RO

012737 000027 001226

MOV

#27,$TESTN

013701

(01466

1847 026766

012737

000000

1849 027002
}ggg 35;8}2

012737
012737

000000 001444
177376 001414

1852 027016

012737

1846

1848 026774

1332 027026

1855

012737

000000

101360

012737

000062

027032
027036

004737
000405

033152

027044

104000

027040

104401

001446

1857 027052
1858 027060
1859 027066

3329 027072

1862

1863 027072

027076

;

012737
012737

004737

004737
154130

MOV

001416

035104

“:SET TEST NUMBER IN APT MAIL BOX

#0,RMDCO

:CYLINDER = 0

MOY
MOV

#0.RMOF
O
#-258. RMWCO

218 BIT FORMAT
:2 + 256 WORDS (2°'S LOMP)

MOV

001412

MOV

#0 ,RMDAQ

#BUFONE ,RMBAD

#WH, RMCS10

;VERIFY THAT SECTOR IS NOT BAD

JSR
B8R

TYPE

EMT

001174
001176

;(R1) = DEVI(CE BEING TESTED

MOV

063346

065000
000001

;RO = UNIBUS ADDRESS

TSTQUE R

;SETUP PARAMETERS FOR GENERATING DATA BUFFER

001420

027046 000137 027522

1856 (27052

B 11
11:43:33 PAGE 13-60

SEQ 0131

02€754

S 026760

4-APR-B1

28:

3$:

PC.BADSCT
2
LSCTMSG

:DATA BUFFER ADDRESS

“WRITE HEADER AND DATA
;CALL BAD SECTOR MODULE
GO TO 2% IF NO ERROR

sTYPE BAD SECTOR MESSAGE

;ERROR # DEF INED BY BADSCT SUBROUTINE

JMP

168

MOV
MOV

#ZEROS,$TMPO
#1,8TMP]

JSR

;TRACK = 0, SECTOR = 0

16O TO 168 IF ERKOR

PC,GENBUF

;USE ALL ZEROS DATA PATTERN
.GO GENERATE DATA BUFFER

;PREPARE DEVICE FOR DATA TRANSFER

032176

JSR

.WCRD

PC.TSTPRP

:PREPARE DEVICE FOR TEST

154130

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

;PACK ACKNOWLEDGE

027100

027102

027104

000404

000240

104000

NOP

027106

000137

027522

1867 027112
1328 027120
1869 027126
1870 0271
1871 027134
187% 027140

012737
012702
112722
112722
112722
112722

000063
001553
000006
000034
000032
000002

;ggg 027112

1866

1873 027144
1874 027150
;g;g 027154

112722

000004
000000
000200

1877 027160

004737

036240

027170
027172

104000
000137

027522

027164
027166

112722
112722

000404
000240

EMT

48:
001412

JMP

VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE

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

;GO TO 4% IF NO ERROR

168

SRETURN HERE IF ERROR

;ERROR # DEFINED BY TSTPRP SUBROUTINE

:GO TO 168 IF ERROR

;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
MOV
MOV

MOVB

MOVE
MOVB
MOVB
MOVB
MOVB

MOVB

#WH'!GO,RMCS10
#PUTINX ,R2

#RMDA, (R2)+

#RMDC.(R2)+
#RMOF
. (R2)+
#RMWC. (R2)+
HRMBA.(R2)+
HRMCST, (R2)+

#200, (R2)+

JSR

PC.,PUT

EMT
JMP

16%

BR
NOF

;WRITE HEADER AND DATA
;WRITE REGISTER INDEX TABLF

- :G0 WRITE REGISTER(S) WITH PUT SUBRQUTINE

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

;ERROR # DEFINED BY PUT SURBRGUTINE
;GO TO 16% IF ERROR

CZRMNBO RMOS/3/2 FCINL

127

TST 2

FORMAT ERROR TEST

MACRO v04.00

113;3 027176

1880
1881

027176

004737

036602

1884 027206

004737

035770

027220
;lggz 027224

000137

027522

004737

036766

1888 027224

027230
027232
027234
027236
027240

1889 027244
1890 027244

027250
027252
027254
027256
027260

1891 027264
1892 027264

027270
027272
0272+4
027276
027300

;ggz 027304

000404
000240
104000

000405
000240
104000
004736
000137

027522

004737

051502

000405
000240
104000
004736
000137

004737

000405
000240
104000
004736
000137

13-61

;SETUP INPUT REGISTER BUFFER FOR READING STATUS

035704

004737

1887

11:43:33 PAGE

5%:

;gg 027202

027212
027214
027216

4-APR-81

JSR

PC,GETSTS

PC,TIMOUT

JWAIT FOR COMMAND TO COMPLETE

JSR

PC,GET

;GO READ REGISTER(S) WITH GET

JMP

16%

;GO TO 16% IF ERROR

JSR
BR
NOP
EMT

6$:

SUBROUTINE

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

;VERIFY RESULTS OF WRITE COMMAND
JSR

7%:

027522

&%:

037620

)

027522

9%:

1895

PC.PRIERR

PC,a(SP)+
16%

;GO TO 7% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 16% IF ERROR

JSR

PC.DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

BR
NOP
EMT
JSR
JMP
JSR

BR
NOP
EMT
JSR
JMP

;GO CHECK FOR PRIMARY ERRORS

BR
NOP
EMT
JSR
JMP

PC,a(SP)+
16%
PC,SECERR

PC,a(SP)+
16%

;GO TO 8% IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 16% IF ERROR
:

;GO CHECK FOR SECONDARY ERRORS

:GO TO 9% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
:GC TO 16% IF ERROR

;READ HEADER AND DATA FOR SECTOR JUST WRITTEN IN OPPOSITE FORMAT

1896

1897 027304

005137

001444

1898 027310
1899 027316
;%(13 027324

042737
012737
012737

167777
102364
000073

1902 027332

004737

036240

027336
027340
027342
027344
;382 027350

000404
000240
104000
000137

027522

1905
1389 027350

004737

036602

1908 027354

004737

035770

027360
027362
027364

000404
000240
104000

:TO CHECK THAT "FER'' SETS
COM

001444
001416
001412
:

108:

RMOF O

;CHANGE TO OPPOSITE FORMAT

BIC
MOV
MOV

#*C<FMT16>,RMOFO
#BUF TWO,RMBAO ; CHANGE BUS ADDRESS
#RH!GO,RMCS10
;READ HEADER & DATA COMMAND

JSR

PC,PUT

8R
NOP
EMT
JMP

10%

16%

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 10% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY FUT SUBROUTINE
;GO TO 16% IF ERROR

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

BR
NOP
EMT

PC,GET

11%

;GO READ REGISTER(S) WITH GET SUBROUT INE

;GO TO 11$ IF NO ERROR
JRETURN HERE IF ERROR
SERROR # DEFINED BY GET SUBROUTINE

5RHNBORMOS/3/2 FCINL

IST 2

"ORMAT ERROR TEST

027366

000137

027522

1912 027372

004737

036766

1909 (27372

MACRO v04.00

D -k

Rel- RNTe
AV B YUY

Dt
—d

R
e e T ey

00O OO0 O

1920

1921

027376
027400
027402
027404
027406
027412

11%:

032737
001022

000020

027422
027426
027430
027432
027434
027436

004737
000405
000240

051502

004736
000137

027522

027442

013737
013737
052737

001352
001352
000020

1922 027450

1923 027456

1924 027464
1925 027466
1926 027466

027472
027474
027476
027500
027502

1927 027506
1928 027506

1930 027514
1931 027516
1932 027522

001352

004737
000405
000240

027522

032737

010000

001402
000157

16%

;GO TO 168 IF ERROR

BNE

14%

138

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

NOP
EMT
JSR

001142
001140
007140

13%:

14%:

037620

104000
004736
000137

JMe

;VERIFY THAT FORMAT ERROR IS SET
BIT
#FER,RMER1]
;IS FORMAT ERROR SET??

104000

104343

13-62

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

027522

027412
027420

11:43:33 PAGE

SEQ 0133

1910

1971

4-APR-B1

027016

15%:

16%:

;GO TO 13% IF NO ERROR

JRETURN HERE

ERROR

JMP

PC,a(SP)+
16%

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

MOV
MOV
BIS

RMER11,$BDDAT
RMER11,$GDDAT
#FER,$GDDAT

;BAD DATA FOR TYPEOUT
SEXPECTED DATA

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

NOP
EMT
JSR
JMP

PC,a(SP)+
16%

;GO TO 15% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 16% IF ERROR

BIT

#FMT16 ,RMOFO

sTEST WRITE

BEQ
JMP

16%
1%

:BR IF YES
;TEST AGAIN

EMT

001444

13%

343
15%

16 BIT FORMAT AND

;READ 18 BIT MODE ?

tttt*tttttlfittt'ttfif"t’tttttt"t*ifit'ttfifi'ttt'tt.t'itttQtttttt

*TEbT 30

FORMAT HCE,

FIRST HEADER WORD

'tt.*tt*fittlttttittttiti*'ttttiltl*'!fifi*'ttifiiittl*tt'ttttttttt

1935

027522
027522 000004
027524- 000240
027526 012706
027532 013700
027536 013701
027542 012737

1936 027550

1937

1938
193G 027556
1940 027556

012737

TST30

001100
001276
001466
000030

001226

000001

030520

SCOPE
NOP
MOV
MOV
MOV

;SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER

MC/

#STACK,SP
$BASE ,RO
TSTQUE ,R1

#30,8TESTN

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

MOV

#1,23%

JINIT BIT POSITION

;:SET TEST NUMBER IN APT MAIL BOX

%iETUP PARAMETERS FOR GENERATING DATA BUFFER

012737

010000

001444

MOV

#FMT16,RMOFO

;16 BIT FORMAT

CZRMNBO RMOS/3/2 FCTINL TST 2
MACKO Vv04.00
T30
FORMAT HCE, FIRST MEADER WORD
1941 027564
1942
027572
1943
027600

012737
012737
012737

1944 027606
jgtg 027614

1947

027622
027626
027630
027634

027636

000000
(00000
177376

C12737
012737

101360
000062

004737
000405
104401
104000

033152

000137

065000

1951 027656

004737

035104

1954
1955 (27662

004737

032176

;gg% 027662

027666

012737

154130

MOV
MOV

;VERIFY

000001

2%:

001174

001176

#0,RMDCO
#0,RMDAO
#-258. ,RMWCO

#BUFONE ,RMBAO
#WH ,RMCS10

THAT SECTOR IS NOT BAD

sCYLINDER = 0
sTRACK = 0, SECTOR = 0
;2 + 256 WORDS (2'S (OMP)

;DATA BUFFER ADDRESS
JWRITE HEADER AND DATA

JSR
BR
TYPE
EMT

PC,BADSCT
2%
.SLTMSG

JMP

27%

MOV

#ZEROS ,$TMPO

;USE ALL ZEROS DATA PATTERN

JSR

PC ., GENBUF

;GO GENERATE DATA BUFFER

MOV

3%:

3
11:43:33 PAGE 13-63

SEQ 0134
MoV
MOV
MOV

001416
001412

030672

:
012737

1950 027650

001446
001420
001414

063346

1948 027642
1949 027642

4-APR-B1

#1,$TMP1

sCALL BAD SECTOR MODULE
;GO TO 2% IF NO ERROR
:TYPE BAD SECTOR MESSAGE
:ERROR # DEF INED BY BADSCT SUBROUT INE

;GO TO 27% IF ERROR
.

;PREPARE DEVICE FOR DATA TRANSFER
JSR
PL_ISTPRP
;PREPARE DEVICE FOR TEST

.WORD

154130

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

sPACK ACKNOWLEDGE

VOLUME NOT VALID

;VERIFY PACK ACKNOWLEDGE

027670

027672
027674
027676
11329 027702
1958

1959 027702
1960 027710
1961 027712

1962 027720
;322 027722

000404

000240
104000
000137

033737
001404
043737

000403
053737

BR
030672

4%:

030520

101360

030520

101360

030520

101360

1965

1966 027730

1967 027730

012737

(000063

012702
112722
112722
112722
112722

001553
000006
000034
000032
000002

1974 027766

112722

000000

1977 Q27776
030002
030004

004737
000404
000240

036240

}g;é 027772

030006

4%
27%

;GO TO 4% IF NO ERROR

*RETURN HERE IF ERROR
;ERROR # DEF INED BY TSTPRP susnourme
;GO TO 27% IF ERROR

:COMPLEMENT DATA BIT IN FIRST HEADER WORD
BIT
BEQ
BIC

5%:

BR
BIS

23% ,BUF ONE
5%
23% ,BUFONE

6%
23% ,BUF ONE

;1S BIT IN HEADER ON??
:NO!!
JRESET BIT IN HEADER

;SET BIT IN HEADER

;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND

1968 027736
1669 027742
1970 027746
1971 027752
1972 027756

1973 027762

NOP
EMT
JMP

sRECALIBRATE IF ''SKI''
OR "PIP'* IS SET
;VERIFY RECALIBRATION

112722

104000

001412

6%:

MOV

MOV
MOVB
MOVB
MOVB
MOVB

000004

MOVR

000200

MOVB

#WH'GO,RMCS10

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

:WRITE REGISTER INDEX

TABLE

#RMBA, (R2) +

MOVB

#RMCS1,(R2)+

JSR
BR
NOP

PC,PUT
7%

EMT

;WRITE HEADER AND DATA

#200, (R2)+

:GO WRITE REGISTER(S) WITH PUT SUBROUT INE
;GO TO 7% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

. ZRMNBO RMOS5/3/72 FCINL

MACRO v04.00
FORMAT HCE, FIRST HEADER WORD

T30

030010

1978 030014

1679
1980
1981 030014

1982 030020
1983

1984 030024

1986
1987

1988 030042

035704
036602

004737
000404
000240

035770

000137

030516

85.

004737
000405
000240

036766

JVERIFY RESULTS OF WRITE COMMAND
JSR
PC,PRIERR
;GC CHECK FOR PRIMARY ERRORS

»
;SETUP

030516

004737
000405
000240
104000
004736
000137

037620

012737

000073
1023¢4

004737
000404
000240

036240

PC,GETSTS
PC,TIMOUT

JWAIT FOR COMMAND TO COMPLETE

JSR
BR

PC,GET
8%

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

22%

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

EMT
JMP

o ro

—_—

0014
0614

030516

004737

036602

004737
000404
000240

035770

000137

030516

;GO TO 9% IF NO ERROR
JRETURN HERE

ERROR

;ERROR # DEFINED BY PRIERR SUBROUT INE

PC,DTASTS

;GO VERIFY RESULTS OF

PC,R(SP)+
22%

;RETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK _FOR MORE ERROR CHECKS
;GO TO 22% IF ERROR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

PC,a(SP)+
22%

sRETURN HERE IF ERRCR
;ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK_FOR MORE ERROR CHECKS
;GO TO 22% IF ERROR

NOP
EMT
JSR.
JMP

NCP
EMT
JSR
JMP

22%

108

11%

;GO BACK FOR MORE ERROR CHECKS

;GO TO 22% IF ERROR

;GO TO 108 IF NO ERROR

DATA TRANSFER

;GO TO 11$ IF NO ERROR

;READ HEADER AND DATA FOR SECTOR JUST WRITTEN
MOV
MOV

#RH!GO,RMCS10
#BUF TWO,RMBAO

JSR
BR

PC.PUT
12%

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

22%

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

NOP

104000
000137

ERROR

JSR

PC,a(SP)+

JMP

030516

JRETURN HERE

SUBROUTINE

JSR

108

ERROR

JSR
JSR

030516

;GO YO 22% IF

INPUT REGISTER BUFFER FOR READING STATUS

EMT

000137

104009

22%

NOP

051502

012737

JMP

NOP

004737
000405
000240
104000
004736

1997
1998
1999

SEQ 0155

004737
004737

004736
000137

1993 030
1994
1995

13-6¢

030516

104000

1991 030102
1992 030102

11:43:33 PAGE

000137

104000

1985 030042

F11

4-APR-B1

TST 2

12%:
JWAIT

EMT
JMP
FOR READ

JSR

;READ HEADER & DATA COMMAND
; CHANGE BUS ADDRESS

JRETURN HERE

TO (OMPLETE AND GET

SUBRQUTINE

ERROR

STATUS

PC, TIMOUT

;WAIT FOR READ TO COMPLETE

JSR
BR

PC,GET
13%

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

NPT

NOP
EMT

—

;ERROR # DEFINED BY GET

(GO T0 228 If

ERROR

SUBROUTINE

JRMNBO RMOS/3/72 FCTINL TIST 2
MACRD v04.00
T30
FORMAT w(E, FIRST HEADER WORD

2007
2008
vy 030176

004737
000405
000240
104000
004736
000137

030202
030204
030206
030210
020212
2010 030216
2017 030216
2012 030224
2013 030226
38}2 030234

032737
001033
032737
001456

2016
2017 030236
58}8 050244
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

030516
030520

010000

030520

032737
001107

000C20

001352

004737
000405
000240
104000
004736
000137

051502

030516

001352
001352
000020

032737
001060

100000

2033 030324
030330
030332
030334
030336
30340
2034 030344
2035 030344
2036 030352

004737
000405
000240
104000
004736
000137

051502

013737
013737

001400
001400

5828 030370

000452

2037 030360
2038 030366

SVERIFY

036766

140000

013737
013737
052737
104343
000501

052737
104345

001142
001140
001140

001400

030516

100000

2041
2042 030372
2043 030372
gg:g 030400

032737
001031

000200

2046 030402
030406
030410

004737
000405
000240

051502

4-APR-B1

001142
001140

001140

001352

14%:

G 11

11:43:33 PAGE

THE RESULTS OF READ OPERATION
JSR
PC,PRIERR
;GO (HECK FOR PRIMARY ERRORS
BR
14%
;GO TO 148 [F NO ERROR
NOP
JRETURN HERE IF ERROR
EMT
JERROR # DEF INED BY PRIERR SUBROUT
INF
JSR
PC,a(SP)+
- +GO BACK_FOR MORE ERROR (HECKS
JMP
22%
;GO TO 22% IF ERROR

BIT
BNE
BIT
BEQ

#MSE !USE 238
16%
#FMT16,23%
18%

;VERIFY THAT FER IS SET
BIT
#FER,RMER1]
BNE
20%

15%:

JSR
BR
NOF
EMT
JSR
JMP

PC,DTASTS
15%

MOV
MOV
BIS
EMT
BR

RMER11,$8DDAT
RMER1I,8GDDAT
#FER,$GDDAT
343
22%

PC,a(SP)+
22%

;VERIFY THAT BSE IS SET
16%:
BIT
#BSE ,RMERZ2]
BNE
20%

17%:

13-65

sSHOULD BSE BE SET ?
sYES !}
;1S THIS FER ??
sNO !
:1S FER SET 2?
JYE8 11}
;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 15% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK _FOR MORE ERROR CHECKS
;GO TO 22% IF ERROR

;RECEIVED STATUS
;EXPECTED STATUS

;35 BSE. Sk 27
‘g BE

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
JRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR (HECKS
;GO TO 22% IF ERROR

MOV
MoV

RMER2I ,$BDDAT
RMER21,$GDDAT

;RECEIVED STATUS
EXPECTED STATUS

22%

;SKIP REST OF

BIS
EMT

#BSE ,$GDDAT
345

;VERIFY THAT HCE IS SET
18%:
BIT
#HCE ,RMER1 ]
BNE
208

JSR
BR
NOP

PC,DTASTS
19%

TEST

;18 "WCE" SET2?
;YES]
;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 19% IF NO ERROR
JRETURN HERE IF ERROR

JRMNED RMOS5/3/2 FCTINL TST 2
MACRDO v04.00
130
FORMAT HCE, FIRST WEADER WORD

030412
030414
030416
2047 030422
2048 030422
2049 030430
2050 030436
2051 030444
2052 030452
2053 030460
2054 030462
2055 030464
2056
2057
2058 030464
030470
030472
030474
030476
(30500
2059 030504
2060

2061
2062 030504
2063 030510
2064 030512
2065
2066 030516
2067 030520
2068
2069
207
2071
2072 030522
2073 030522
2074 030530
2075 030536
2076 030544
2077 030552
2078
2079 030556
C3056¢2

104000
004736

EMT

000137

030516

013737
013737
052737
012737
013737

001352
001352
000209
000001
030520

104344
000415

004737
000405
000240
104000
004736
000137

006337
001404
000137

4-APR-B1

so8

PC,a(SP)+

22%

;GO TO 22% I[F ERROR

MOV
MOV
BIS

RMER11,$BDDAT
RMER11,$GDDAT
#HCE ,$GDDAT

JRECEIVED STATUS FOR TYPEOUT
JEXPECTED STATUS

MOV
EMT
BR

23%,8TMP1
344
22%

JGET FAILING BIT POSITION

MOV

208%:

#1,%$TMPO

;CHECK FOR OTHER ERRORS

037620

JSR
BR

PC,SECERR
21%

EMT
JSR
JMP

PC,a(SP)+
2c%

NOP

030516

i
;ADVANCE

030520
027556

000465
000000

22%:

23%:

JERROR # DEFINED BY DTASTS SUBROUT
INE

JSR

JMP

001142
001140
001140
001174
001176

H 11
11:43:33 PAGE 13-66

GO BACK FOR MORE ERROR CHE(KS

;GET HEADER WORD NUMBER

,
;GO CHECK FOR SECONDARY ERRORS
;GO TO 21% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
GO BACK FOR MORE ERROR CHECKS
;GO TO 22% IF ERROR

THE BIT POSITION AND FORMAT AGAIN IF NOT DONE

ASL
BEQ
JMP

23%
24%
1%

JSHIFT TO NEXT BIT POSITIGN
SEXIT IF DONE
;GO DO NEXT SECTOR

27%

;JUMP TO NEXT TEST

.WORD

;STORAGE FOR BIT POSITION

;:tttt*'ttlttttttt**tii'tttttt'tiit.fifi*tfitt'*ttttl*'tt(t'tttttt't

;*REFORMAT SECTOR THAT WAS WRITTEN WITH BAD HEADER
MRS

010000
177776

101360

000062
035104

001444
001414
001416
001412

24%:

SRRt

I 22222222222222220

MOV
MOV
MoV
MoV

#FMT16 ,RMOFO
#-2 ,RMWCO
#BUF ONE ,RMBAQ
#WH,RMCS10

;16 BIT MODE
sONLY TWO HEADER WORDS
JSELECT THE BUFFER
JWRITE HEAD AND DATA COMMAND

JSR

PC,TSTPRP

;PREPARE DEVICE FOR TEST

JSR

032176

.WORD

PC ., GENBUF
154130

;GENERATE THE BUFFER PATTERN

;TASK DESCRIPTOR AS FOLLOWS:

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

IF VOLUME NOT VALID

sVERIFY PACK ACKNOWLEDGE

[slelelelelelels]

QO
oo
Co
vt —=O

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

030576
000063
001553
000006

001412

NOP
EMT
JMP
MOV
MOV
MOVB

L%4
25%
#WH!GO,RMCS10
#PUT INX ,R2
#RMDA, (R2)+

sVERIFY RECALIBRATION

;GO TO 25% IF NO ERROR

sRETURN HERE IF ERROR
,ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 25% IF ERROR
;SET
;PUT

THE GO BIT
THE REGISTER ADDRESS

INTQC TARLE

JRMNBO RMOS5/3/2 FCINL ST 2
MAZRO v04.00
*30
FORMAT HCE, FIRST HEADER WORD

2084 030614

2085 030620
2086 030624

112722

000034

112722
112722

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

000200

MCOVR

#200, (R2) +

000004
000000

2090 030644
030650
030652
030654
030656
2091 030662
2092 030662
2093 030664
2094 030670
2095 030672
2076

004737
000404
000240
104000
000137

036240
:
:
030672
:
§
036602

000240
004737
000240

#RMDC
, (R2)+

MOVB
MOVR

112722
112722

172722

MOVR

In
11:43:33 PAGE 13-67

(00032
000002

2087 030630
. 2088 030634

2089 020640

4-APR-81

MOVR
MOVR

26%:

27%:

2097

JSR
g
NOP
EMT
JMP

NOP
JSR
NOP

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

:TERMINATOR

PC,PUT
26%

27%

;GO WRITE REGISTER(S) WITH PUT SUBROU! INE
;GO TO 26% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUT INE
;GO TO 27% IF ERROR

PC, TIMOUT

JWAIT UNTIL IT FINISH
&

'-.'t!ttttt.tttttttttttttnQ'tttttttt'tttttt!tttttttt'tttt'tn.tt"'t

s+TEST 33

FORMAT HCE,

SECOND HEADER WORD

;'-tttttt'tttfitQQQttQtttttttttt.ttttttttt.tttttttt't'tttttn'tt.ttn

030672
030672
030674
030676
030702
030706
add 030712

000004
000240
012706
013700
013701
012737

001100
001276
001466
000031

3?88 030720

012737

000001

2101
2102 030726
2103 030726

012737

2104 030734

012737

2106 030750

012737

2105 030742

2107 030756
5383 030764

75131:

000000

012737

010000
177376

012737
012737

101360
000062

030772
030776
031000
031004
o 82}8?3

004737
000405
104401
104000
000137

033152

031666

2112 031012

012737

065000

2114 031026

004737

035104

2110

2113 031020

5”2 031032

2117

2118 €31032
031036

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

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

031514

MOV

#1,19%

;INIT BIT POSITION

001446

001420

000001

)

032176

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

001444

MOV

001414

MOV

001416
001412

MOV
MOV

#0 ,RMDAO

;TRACK = 0,

#-258. ,RMWCO

;2 + 256 WORDS

#FMT16,RMOF O

#BUFONE ,RMBAO
#WH,RMCS10

;VERIFY THAT SECTOR IS NOT BAD
JSR
PC,BADSCT
BR
2%
TYPE
,SCTMSG
EMT
=
JMP
23%

063346

012737

004737
154130

001226

SCOPE
NOP
MOV
MOV
MOV
MoV

001174

001176

(2'S COMP)

:DATA BUFFER ADDRESS
;WRITE HEADER AND DATA

;CALL BAD SECTOR MODULE
°©
:GO TO 2% IF NO ERROR
;TYPE BAD SECTOR MESSAGE
;ERROR # DEFINED BY BADSCT SUBROUTINE
:GC TO 23% IF ERRCR

MOV

#7ZEROS ,$TMPO

:USE ALL ZEROS DATA PATTERN

JSR

PC.,GENBUF

;GO GENERATE DATA BUFFER

MOV
3%:

SECTOR = 0

:16 BIT FORMAT

#1,8TMP1

;PREPARE DEVICE FOR DATA TRANSFER
JSR
.WORD

PC,TSTPRP
154130

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

JRMNBO RMOS/372 FCTINL TST 2
MACRO v04.00
13
FORMAT WCE, SECOND HEADER WORD

4-APR-B1

11:43:33

J 1N

PAGE

13-68

S€0 0139

sPACK ACKNOWLEDGE

VOLUME NOT VALID

sVERIFY PACK ACKNOWLEDGE

031040
031042
031044
2119 031046
2120
221 031052
2122 031052

2123 031060

2124 031062

2125 031070

S}sg 031072

2128
2129 031100
2130 C31100
2131 031106
2132 031112
2133 031116
2134 031122
2135 031126
2136 031132
2137 031136
S;;g 031142

000404
000240
104000
000137

033737
001404
043737
000403
053737

N
031666

031514

101362

031514

101362

031514

101362

012737
012702
112722
112722
112722
112722
112722
112722
112722

000063
001553
000006
000034
000032
000002
000004
000000
000200

2140 031146
031152
031154
031156
031160
5}2; 031164

004737
000404
000240
104000
000137

036240

2143
2144 031164
S;ig 031170

,
004737
004737

2147 031174
C31200
031202
031204
031206
5;23 031212

004737
000404
000240
104000
000137

035770

004737
000405
000240
104000
004736
000137

036766

004737
000405

051502

2150
2
2151 031212
031216
031220
031222
031224
031226
2152 031232
2153 031232
031236

001412

031512

4%
23%

;GO TO 23% IF ERROR

; COMPLEMENT DATA BiT IN SECOND HEADER WORD
4%:
BIT
19% ,BUF ONE +2
;1S BIT IN HEADER ON??
BEQ
5%
;NO!!
BIC
19% ,BUFONE +2
JRESET BIT IN HEADER
BR
6%
5%:
BIS
19% ,BUFONE +2
;SET BIT IN HEADER

;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
6%:
MOV
#WH!GO,RMCS10
;WRITE HEADER AND DATA
MoV
#PUTINX ,R2
WRITE REGISTER INDEX TABLE
MOVB
#RMDA, (R2) +
;
MOVB
#RMDC, (R2) +
MOvB
#RMOF
, (R2) +
MOVB
HRMWC
, (R2) +
MOVB
#RMBA, (R2) +
MOVB
#RMCS1, (R2) +
MOvB
#200, (R2) +

7%:

JSR
BR
NOP
EMT
JMP

PC,PUT
7%
18%

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

;SETUP INPUT REGISTER BUFFER FOR READING STATUS
JSR
PC,GETSTS
JSR
PC.,TIMOUT
sWAIT FOR COMMAND TO COMPLETE

035704
036602

!
031512

8%:

‘
031512

BR
NOP
EMT
JMP

JRECALIBRATE IF ''SKI'" OR 'PIP'" IS SET
JVERIFY RECALIBRATION
2GO TO 4% IF NO ERROR
JRETURN HERE IF ERROR
.
JERROR # DEFINED BY TSTPRP SUBROUT INE

JSR
BR
NOP
EMT
JMP

;VERIFY RESULTS
JSR
BR
NOP
EMT
JSR
JMP
9%:
s R
BR

PC,GET
8%
18%

;GO READ REGISTER(S) WiTH GET SUBROUTINE
;GO TO 8% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 18% IF ERROR

OF WRITE COMMAND
PC,PRIERR:
;GO CHECK FOR PRIMARY ERRORS
9%
;GO _TO 9% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEF INED BY PRIERR SUBROUTINE
PC,a(SP)+
;GO BACK FOR MORE ERROR CHECKS
18%
;GO TO 18% IF ERROR
PC,DTASTS
10%

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

CZRMNBO RMOS/3/2 FCTNL TIST 2
MACRO v04.00
T
FORMAT HCE, SECOND HEADER WORD

031240
031242
031244
031246
2154 03125¢
2155 0321252
031256
031260
031262
031264
031266
5};9 031272

031512

004737
000405
(000240
104000
004736
000137

037620

g}g? 031300

012737
012737

000073
102364

2162 031306

004737

036240

031314
031316
031320
S;gg 031324

000240
104000
000137

031512

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
013737
052737

001352
001352
000200

2158
2159 031272

;

000240
104000
004736
000137

031312

2165
g}gg 031324

2168 031330
031334
031336
031340
031342
g}?g 031346

2171
2172 031346
031352
031354

031356
031360
031362
g;;z 031366

2175
2176 031366
g};g 031374

2179 031376
031402
031404
031406
031410
031412
2180 031416
2181 031416
2182 031424
2183 031432

000404

001031

108:

031512

11%:
001412
001416

K 11
11:43:33 PAGE 13-69

4-APR-81

NOP
EMT
JSR
JMP

PC,a(SP)+
18%

JSR
BR
NOP
EMT
JSR
JMP

PC,SECERR
11%
PC,a(SP)+
18%

JRETURN HERE IF ERROR
sERROR # DEFINED BY DTASTS SUBROUT INE
;GO BACK FOR MORE ERROR (HECKS
;GO TO 18% IF ERROR

;GO CHECK FOR SECONDARY ERRORS
;GO TO 118 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUT INE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 18% IF ERROR

:READ HEADER AND DATA FOR SECTOR JUST WRITTEN
MOV
#RH!GO,RMCS10
;READ HEADER & DATA COMMAND
MoV

#BUF TWO,RMBAD

JSR

PC,PUT

128:

12%

NOP
EMT
JMP

18%

; CHANGE BUS ADDRESS

;GO WRITE REGISTER(S) WITH PUT SUBROUT INE
;GO TO 12%

NO ERROR

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

;WAIT FOR READ TO COMPLETE AND GET STATUS
JSR
PC,TIMOUT
;WAIT 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
sRETURN 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
148
;GO TO 14% IF NO ERROR
NOP
sRETURN HERE IF ERROR

14%:

001352

031512

001142
001140
001140

EMT
JSR
JMP

PC,a(SP)+
18%

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

;VERIFY THAT HEADER COMPARE ERROR IS SET
BIT
#HCE ,RMER1]
;15 "NCET-SETT?

15%:

BNE

16%

SYRS!!

JSR
BR
NOP
EMT
JSR
JMP

PC,DTASTS
15%

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

MOV
MOv
BIS

RMER11,$BDDAT
RMER11,$GDDAT
#HCE
, SGDDAT

PC,a(SP)+
18%

;RECEIVED STATUS FOR TYPEOUT
;EXPECTED STATUS

BEBRIR%RE

031440
031446
031454
031456
031460

012737
013737

106344
000415

000002
031514

4-APR-8B1

11:43:33 PAGE

13-70
SEC

001174

MOV

#2,$TMPO

EMT
BR

344
18%

MOV

001176
16%:

:GET HEADER WORD NUMBER

19%,8$TMP1

JGET FAILING BIT POSITION

d ed e ved

LSS
L VRN NI NI N

CZRMNBO RMOS5/3/2 FCINL IST ¢
MACRO v04.00
FORMAT HCE, SECOND HEADER WORD
TM

;CHECK FOR OTHER ERRORS

D
—

037620

000137

031512

031500
031504
031506

006337
001404
000137

031514

031512
031514

000465
000000

104000
004736

JSR

ek ek
e

2202
2203
2204
2205 031516
2206 031516
2207 031524
2208 031532
2209 031540
2210 031546
2211

2212 031552
031556

030726

010000
177776
101360
000062
035104

004737

032176

18%

ERROR

ASL
BEQ

19%
20%
1%

JSHIFT TO NEXT BIT POSITION
SEXIT IF DONE
;GO DO NEXT SECTOR

BR
.WORD

23%
O

;JUMP OVER STORAGE
;STORAGE FOR BIT POSITION

A A

20%:

A A A AR AR R

MOV

318

001412

A A AR

A AR A A A A

AR A A AR A AR A AR

A AR AR

A AR

A A A

#FMT16,RMOFO

A AR A AR R AR

AAR A AN A AN ARAAAARAR

AN RS

#-2 ,RMWCO
#BUF ONE ,RMBAD
#WH,RMCS10
PC,GENBUF

;2 HEADER WORDS ONLY
;BUFFER ADDRESS
;WRITE HEAD AND DATA COMMAND
;SET UP THE BUFFER

JSR

PC,TSTPRP

;PREPARE DEVICE FOR TEST

NOP
EMT
JMP

MOV
Mov

154130

21%

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

;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ‘'SKI'* OR 'PIP'" IS SET
;VERIFY RECALIBRATION
;GO TO 21% IF NO ERROR

21%

;RETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 21% IF ERROR

#WH!GO,RMCS10
#PUTINX ,R2

+SET :GO BI1
;s TABLE ADDRESS

MOvVB

#RMDA, (R2) +

MOVB
MOVB
MOVB
MOVB
JSR

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

MOVB
MOVB

A AR

;16 BIT MODE

MOV
MOV
MOV
JSR

.WORD

031572

SECTOR THAT WAS WRITTEN WITH BAD HEADER

000063
001553
000006
000034
000032
000004
000002
000000
000200
036240

sERROR # DEFINED BY SECERR SUBROUT INE
;GO BACK FOR MORE ERROR (HECKS
;GO TO 18% IF ERROR

PC,a(SP)+

JMP

18%:
19%:

012737
012737
012737
012737
004737

;GO TO 17% IF NO ERROR

JRETURN HERE

;ADVANCE THE BIT POSITION AND FORMAT NEXT SECTOR IF NOT DONE

s *REFORMAT

000404
000240
104000
000137

2223 031640

EMT
JSR
JMP

17%:

;GO CHECK FOR SECONDARY ERRORS

17%

NOP

154130

PC,SECERR

D -

LS LS LSTNTN LN, V)
NN
28 BRYRERRY

004737
000405
000240

031460
031464
031466
031470
031472
031474
031500

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

#RMCST1, (R2)+
#200, (R2) +
PC,PUT

s TERMINATOR
;GO WRITE REGISTER(S)

WITH PUT

SUBROUTINE

CZRMBO RMOS5/3/72 FCINL TST 2

FORMAT

031644
031646
031650
031652
2224 031656
2225 031656
2226 031660
2227 031664
2228 031666

MACRO v04.00

HCE, SECOND HEADER WORD

000137

031666

000240
004737
000240

036602

11:43:33 PAGE

13-71
SEQ

000404
000240
104000

4-APR-81

22%:

23%:

BR
NOP
EMT
JMP
NOP
JSR
NOP

22%

23%
PC,TIMOUT

;GO TO 22% !F NO ERROR

JRETURN HERE

ERROR

sERROR # DEF INED BY PUT SUBROUT INE

;GO TO 23% IF ERROR
JWAIT FOR TIME OuT

014,

(ZRMNBO RMO5/3/2 FCINL TST 2

END OF

SUB~-PASS ROUTINE

MACRO v04.00

11:43:33 PAGE 14

END OF

SUB-PASS ROUTINC

;

.SBTTL

sTHIS IS THE END OF SUB-PASS ROUTINE.

;TERMINATE

5
6
g

4-APR-B1

THE

THIS ROUTINE IS USED TO

CURRENT DEVICE UNDER TEST AND

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 031666
10 031670
11 031672

000004
000240
013700

13
14
15
16
17

010037
005710
001402
000137
012737

12 031676

THE OPERATION OF

SEQ 01453

031702
031706
031710
031712
031716

062700

$EOSP:

001466

000002

ADD

001466
%
032142
003470

SCOPE
NOP
MOV

001466

TSTQUE ,RO

;GET POINTER TO TSTQUE

#2.,R0

1%:

MOV
TST
BEQ
JMP
MoV

.SBTTL

END OF PASS ROUTINE

;ADJUST POINTER TO NEXT DEVICE

RO, TSTQUE
;SAVE POINTER TO TSTQUE
(RO)
;ANY MORE DEVICES FOR TEST ?
1%
;BR IF NO
SHUT
;JUMP TO 'SHUT' ROUTINE
#TSTQUE+2, TSTQUE
;INITIALIZE POINTER TO FIRST DEVICE

. :TEST QUE TABLE

*tt*ttttt**Q*t'*ititt*t'ttt*ttttttlt*t*ttttttttt**ttttttttt*t't

*INCREMENT

THE PASS NUMBER

($PASS)

;*TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY''

:*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS

;*IF THERES A MONITOR GO TO IT
;*IF THERE ISN'T JUMP TO SHUT
031724
031724
031726
031732
031736
031742
031750

000240
005037
005037
005237
042737
005327

$EOP:
001116
001206
001230
100000

001230

NOP
CLR
CLR
INC
BIC
DEC

031752

000001

$EOPCT:

031756
031760
031762
031764
€31770
)
032010
032010

012737
000001
031752
104401
000407

013746

MOV
$ENDCT: .WORD
$EOPCT
TYPE
BR
;:65%:
L_ASCIZ
64%:
MOV

032014
032016
032022
032024
032030

104405
005737
001431
104401
000421

031754

003066

031772
'

001230

.WORD

BGT

$DOAGN

001126

032032
1:67%:

032074
032074

013746

001126

032100
032102

104405
005037

001126

66%:

::YES

(PC)+,a(PC)+
1

2 ;RESTORE COUNTER

,65%
;:TYPE ASCIZ STRING
64%
::GET OVER THE ASCIZ
<12><15>/END PASS #/
:
:
$PASS,-(SP)
::SAVE $PASS FOR TYPEOUT

TYPDS
TST
BEQ
TYPE
BR

'
;;ZERO THE TEST NUMBER
;. ZERO THE NUMBER OF ITERATIONS
. INCREMENT THE PASS NUMBER
;;DON'T ALLOW A NEG. NUMBER
;.L00P?

$TSTNM
‘
$TIMES
;
$PASS
#100000,8PASS
(PC)+
1

.ASCIZ

$ERTTL
$GT42P
,67%
66%
/
TOTAL ERRORS

MOV

$ERTTL ,=-(SP)

TYPDS
CLR

$ERTTL

;TYPE PASS NUMBER

GO TYPE--DECIMAL ASCII WITH SIGN
..SEE IF ANY ERRORS THIS PASS
;:BR IF NO ERRORS TO REPORT
;:TYPE ASCIZ STRING
;:GET OVER THE ASCIZ
SINCE LAST REPORT /
;:SAVE S$ERTTL FOR TYPEOUT
;:TOTAL NUMBER OF ERRORS
2:G0 TYPE==DECIMAL ASCII WITH SIGN
;2 CLEAR ERROR TOTAL
,

032126
0521%(2’
0321

104407
013700
00140U5
000005
004710
000240

MACRD v04.U0

001217
(00042

$GT42P: TYPE
$GET42: MOV
BEC
RESET
$ENDAD: JSR
NOP

000240
000240

$DOAGN:

032132
032136

000137
032142

377

22 032142
23 032146

005737
001002

(001326

25 032154
26 032160
27 C32162
28 032166

005737
001002
000137
005037

000042

1%:

005432
001300

2%:

032136
1

24 032150

29 032172

000137

4-APR-B1

007670

031724

000

. SRTNAD:

.SCRLF
we2 RO
$DOAGN
PC,(RD)

NOP
NOP

14-1

;s TYPE CARRIAGE RETURN, LINE FEED
22GET MONITOR ADDRESS
s sBRANCH IF NO MONITOR
;;CLEAR THE WORLD
22G0 TO MONITOR
;s SAVE ROOM

;:FOR
22ACTN

JMP
.WORD

a(”0)+
SHUT

2 sRETURN

-1.,-1.0

;sNULL CHARACTER STRING

IST
BNE
JMP
TST
‘BNE
JMP
(LR

CTLFG
1%

;WAS CONTROL C FLAGGED ?
;BR IF YES

aNe?
2%
START
$DEVM

;ANY MONITOR PRESENT ?
;BR IF YES
;G0 TO START
;FUDGE NO DRIVES IN Map

SENULL: .?;Eg
SHUT :
:

B 12

17:43:33 PAGE

JMP

READY

$EOP

; CONT INUE

JRETURN TO $EOP

032106
032112
032116
032120
032122
032124

TST 2

CIRMNBO RMOS/3/2 FCTINL
END UF PASS ROUTINE

JRMNBC AMOS/3/2 FCINL T<57
PREPARAT
[ON MODULE

MACRO v04.00

4-APR-B1

C i2
17:43:33 PAGE 15
SEG

.SBTTL
:

TEST PREPARATION MODULE

THIS MODULE PREPARES

THE

SUBSYSTEM FOR

REPORTING AN ERROR TO THE USER IF

THE EXECUTION OF

AN ERROR IS

DETECTED.

; SPECIFIES TASKS TO BE PERFORMED, WHICH THE MODULE EXECUTES
: USING SUBROUTINES..

;CALL:

:
:

JSR
LWORD

2?2

TASK/VERIFY DESCRIPTOR

RETURN HERE IF NO ERROR
RETURN HERE IF ERROR
ERROR DEF INED BY MODULE

NOP
ERROR

PC,TSTPRP
NANNNN

TEST,
THE USER

;TASK/VERIFY DESCRIPTOR
:
BIT 15 = 1
SELECT DEVICE AND VERIFY DEVICE IS AVAILABLE

NP N

TM L

:
:

W= O O

(RESERVED FOR DRIVE CLEAR)
PACK ACKNOWLEDGE IF VOLUME NOT VALID

BIT 11 =1

RECALIBRATE IF POSITIONING IN PROGRESS OR SKI ERROR

40
41
42
43
42

BIT §

BIT 2

BIT &4
BII 3

VERIFY CONTROLLER CLEAR OPERATION

=1
=1

VERIFY PACK ACKNOWLEDGE
VERIFY RECAL IBRATION

(RESERVED FOR DRIVE CLEAR)

BIT 1
BIT 0

TSTPRP:

000000
000006
000000
000004

46 032220
47 032224
48 032230
49 032232
50 032234

035704
035770

51 032236
52 032242
53 032250
54
55 032254
56
57

RECAL IBRATE DRIVE

BIT 8

BIT 7
BIT6

:
g

032176
032204
032210
032214

BIT 10 = 1
BIT 9

:
:
3
:

CLEAR CONTROLLER AND SELECT DEVICE

BIT 13
BIT 12 = 1

:
2

38 032176
39

BIT 14 = 1

:
;

033146

ADD

#6, (SP)

a(SP)
#4,(SP)

:CLEAR ERROR CALL
:MOVE SP TO NO ERROR RETURN

JSR
JSR

PC,GETSTS
PC,GET

;SETUP TO READ ALL REGISTERS
:GET RMER2

B8R

:GET OVER ERROR NUMBER

ADD
MOVB

#4, (SP)
1$-2.3(SP)

:XFER ERROR TO USER AND
:GET ERROR NUMBER.

MoV

RMER21,40%

CLRB
SUB

000004
032234

000200

001400

033150

033136

:STORE TASK DESCRIPTOR AND CLEAR USER'S ERROR CALL
MOV
a(sP),39%
:STORE DESCRIPTOR

1%:

.WORD

JMP

2%:

37%

:MOVE SP TO USERS ERROR CALL

:BR IF NO ERROR DETECTED

:ERROR DEFINED BY GET SUBROUTINE

;GET RMER2 AND SAVE FOR LATER

".‘li.‘.Qt'ttitfit."'tt'Q'..Qt'.".*Q..'Qfi".il.l'..l.'!'t.'.'i't.

CZRMNBO RMOS/3/2 FCINL TST 2
TEST PREPARATION MODULE

58
59 032262
69 032266
6
€2 032270

005737

033146

004737
000411
000401
000000
062716

043672

100014

113776

000137

000004
032300
033136

MACRO v04.00

4-APR-81

D12

11:43:33 PAGE

15-1
SEU 0146

sSELECT DEVICE AND VERIFY DEVICE AVAILABLE IF BiT
TST
39%
sSELECT DEVICE??
BPL
i
INO!!
JSR

PC,DEVSEL

;GO SELECT DEVICE

.WORD
ADD
MOVB
JMP

(
#4, (SP)
3$-2.a(SP)
378

:ERROR NUMBER FROM DEVSEL
*TRANSFER ERROR TO USER

000000

3g:

15 SET

IN TASK

*NO ERROR - CONTINUE

;:t.t ..t'."'t'."""t"."t."lI"...."tt.'.."."'.."QQ..'.'

igLEAR CONTROLLER IF BIT 14

032737

040000

004737
000411
000401
000000
062716

045344

001451

113776

000137

000004
032340
033136

033146

BIT

BEQ
JSR

000000

5$:
68:

IS SET

IN TASK

#B1T14,39%

:CLEAR CONTROLLER??

138

INO'!

PC.CNTCLR

;GO CLEAR CONTROLLER

.WORD
ADD
MOVB

0
#4, (SP)
5%.a(SP)

:ERROR NUMBER FROM CNTCLR
*TRANSFER ERROR TO USER

JMP

*CONTINUE - NO ERROR

37%

t.tttt..tttt.i"t'.'fi""'."'t..t.l."fitttttt..ttt‘t".'.ti'.t'

7¥ER1FY CONTROLLER CLEAR IF BIT6 SET IN TASK

032737
001431

000100

004737
000411
000401
000000

035770

062716

004737
000412
000401
000000
005726
062716

el el

—n_...‘-oc-a_....._._._.

FANSo38IRIRIC288ES
o9
1,%]

000137

113776

96 032414

113776

000137

000004
032400
033136

033146

000000

045462

000004

032430
033136

BIT
BEQ

#BIT6,39%
138

:VERIFY??
NO!!

JSR
gg

PC,GET
;gs

;GO GET STATUS
'
*NO ERROR GETTING STATUS

8%:
9% :

LWORD
ADD
MOVB
JMP

0
#4, (SP)
B8$.a3(SP)
37§

;ERROR FROM GETTING STATUS
*TRANSFER ERROR TO USER

108:

JSR

PC,CLRSTS

;G0 VERIFY STATUS CLEAR

11$:
128:

000000

B8R

.WORD
isT
ADD

MOVB
JMP

138§

*NO ERROR IN CLEAR

O
(SP) +
#4, (SP)

:ERROR IN STATUS CLEAR
*STRIP RETURN ADDRESS TO
*SUBROUTINE AND TRANSFER

118,3(SP)
378

*ERROR TO USER

Qtt.l’*t**'tt".fit‘fi!’t‘t"t.t"fiil’tt.'t*fi!t‘l'."!.filtl"tt.t'!.t

“EXECUTE PACK ACKNOWLEDGE

1§gr VALID

032737
001501

010000

004737

035770

033146

BEQ
JSR

#BIT12,39%
25%

PC.GET

IF BIT12 SET

IN TASK AND VOLUME

:PAC< ACKNOWLEDGE
22
NO'

_JRMNBO RMOS/3/2 +CINL TST 2
TEST PREPARATION MODULE
115

032466

116 032470
117 032472
1.8 032474
119 032500

113776

000004
032472

000000

001350

000137

033126

122 032512

032737

000100

125 032522

012737

000023

128 032544

004737

036240

126 032530
127 032536

129 032550
130 032552

131 032554

132 032556
133 032562

4-APR-B1

00041

000401
000000
062716

;g? 032506
;Sz 032520

MACRO v04.00

001061

112737
112737

000410
000401

00000C

000000
000200

148:
15%:

001412

001553
001554

}gg C32570

000562

000004
032554

}%9 032572

004737

036602

000000

140 032576

032737

000020

143
144
145
146
147
148

004737
000410
000401
000000
2716
113776

035770

;2; 032604

032606
032612
032614
032616
032620
032624

007427

}gg 032632

000541

151 032634
152 032640

004737
000411

154 032644
155 032646

000000
005726

157 032654

113776

153 032642
156 032650

;gg 032662

000004
032616

033146

000000

046342

062716

000525

000004
032644

#VV ,RMDS]

MOV

#PAKACK !GO,RMCS10

JSR

PC PUT

;GO WRITE COMMAND

;ERROR FROM PUT SUB

25%

#RMCST,PUTINX
#200,PUTINX+1
19%
188

#4, (SP)
17%,a(SP)

JSR

PC,TIMOUT

AR R

; TRANSFER ERROR TO USER

;IS VOLUME VALID??

;YES!!

;LOAD PACK ACK COMMAND

;SETUP REGISTER INDEX TABLE
;NO ERROR LOADING REGISTER

ADD
MOVB

; TRANSFER ERROR TO USER

37%

A AR AR AR AR

sWAIT FOR COMMAND TO COMPLETE

RN R AR RN AR AN

R A AN R R A AR P AR RN AN RS RN

AR AR NS

;VERIFY PACK ACKNOWLEDGE IF #BIT4 SET IN TASK
BIT

#B1T4,39%

;VERIFY PACK ACKNOWLEDGE??

JSR
BR
BR
.WORD
ADD
MOVB

PC,GET
22%
21%
O
#4, (SP)
20%.,a(SP)

;GO GET STATUS
:NO ERROR GETTING STATUS

JSR
BR

PC ,ACKSTS
25%

;GO CHECK ACKNOWLEDGE
:NO ERROR

.WORD
TST

O
(SP)+

;PACK ACKNOWLEDGE ERROR
;STRIP RETURN TO SUB AND

BEQ

208 :
21%:

25%

BR
22%:

000401

BIT

.WORD

18%:

139

37%

BR
BR

19%:

138

JMP

148,2(SP?

MOVB
MOvB

17%:

sNO ERROR GETTING RMDS

15%
0
#4,(SP)

BNE

062716
113776

16%

15-2

BR
.WORD
ADD

mMOvVB

16%:

E 12

11:43:33 PAGE

23%:
24%:
000000

24%

#4,(SP)

37%

: TRANSFER ERROR TO USER

161
162
163
164 832664
165
032664
166 032672
167 032674

032737
001027
032737

002000

033146

004000

033146

sRECALIBRATE DRIVE IF BIT 11 IS SET IN TASK AND ''SKI'" IS SET
:0R "PIP'" IS ACTIVE.
:RECALIBRATE DRIVE IF BIT 10 IS SET
25%:
BIT
#B1T710,39%
sRECALIBRATE DRIVE ?
'
BNE
29%
;YES!!
BIT
#BI1T11,39%
sRECAL IBRATE??

170 032704

004737

035770

171 032710

001517
000410

23%,a(sP)

160

;gg 032702

R A AR

;ERROR FROM GET SUB
s TRANSFER ERROR TO USER

37%

ADD

MOVB

JNO!!

AR A KRR AR AR AR AN AR AR RN AR AR RN AT RN R ER R RN RN RR N RS

BEQ

38%

sNO!!

JSR

PC,GET

;GO GET RMDS

28%

;NO ERROR GETTING RMDS

CZRMNBO RMOS/3/2 FCTNL TST 2
TEST PREPARATION MODULE
172 032712

a;;..a.-a
oo T
~ TN

MR 2B IBIA

173 032714
1764 032716

032752
184 032756

185 032762

186 032770
187 032776

188 033004

189 033012
190 033020
191 (33024
192 033026
193 033030

194 033032
195 033036

196 033044
197
198 033046
199

BR
.WORD

032737
001004
032737
001474

040000

023150

020000

001350

005037
005037
012737

007446

112737
112737
112737
112737
004737
00410
000401
000000
062716
113776
000434

004737

28%:

29%:

001420
000007
000034
000006
000000
000200
036240

000004
033030

27%:

ADD

MOVB
BR

BIT

BNE
BIT
BEQ

CLR
CLR
MOV
MOVB
MOVB
MOVR
MOvB
JSR

000000

036602

30%:

31%:

BR
BR
.WORD

F
11:43:33 PAGE

27%
0

R4, (SP)

26%.3(SP)

12
15- 3

;ERROR FROM GET SUB

: TRANSFER ERROR

TO USER

37%

#5K1,40%

29%

#P1P ,RMDS |

383

JWAS SKI

SET ?

;YES, GO RECALIBRATE
:ég‘?lp ACTIVE??

RMDCO
sCLEAR CYLINDER ADDRESS
RMDAO
:CLEAR TRACK/SECTOR ADDRESS
#RE
! GO,RM(CS
CAL
10
;LOAD RECAL IBRATE (OMMAND
#RM
, PUT
DC
INX
sMAKE CYLINDER ADDRESS AND
#RM
,PUTDA
INX+1
:TRK/SEC ADDRESS LCOK LIKE SEEK TO ZERO
#RMCS1,PUTINX+2 JAND REGISTER INDEX
#200,PUTINX+3
;SET TERMINATOR
PC,PUT
;GO ISSUE RECALIBRATE

318
30%
0

;NO ERROR

;ERROR IN REGISTER TRANSFER

ADD
MovB

#4,(SP)

308-2.a(SP)
37%

; TRANSFER ERROR

JSR

PC,TIMOUT

JWAIT FOR COMPLETION

TO USER

"‘Q'*'tt.‘fi."'.*!"Q"'t"'.fi".i"t"'tt..'ttt'..ttt.'.t."'."

000010

004737
000410
000401
000000
062716
113776
000413

035770

bNOSI\NOOJ\O g

032737
001430

wilh

26%:

000000

113776
000502

000000
000000

4-APR-B1

000004
032714

000240
000207

W
W

NN
WWN

D sl

)l wolh D ) D B

WWWINWWWINWNWN
WNWNWNWNWN NN

OO
OOO0COCOODOC
OO

oo S AN IAS LS LN T VLN LN VST VN1, ¥
none ronorony — ol ol D ) ) S el o

N WOV
NS W —=O

200
201
202 033052
205 033060
204
205 033062
206 033066
207 033070
208 033072
209 033074
3100

000401
000000
062716

MACRO v04.0C

004737
000412
000401
000000
005726
062716
113776
162716

000004
033072

033146

000000

047136

000004

033120

000002

*VERIFY RECALIBRATE IF BIT 3 SET IN TASK

32%:
33%:

#B173,39%
38%

JVERIFY RECALIBRATE??
JNO!!

JSR
BR
BR
.WORD

PC,GET

;GO GET STATUS
:NO ERROR GETTING STATUS

sERROR FROM GET
; TRANSFER ERROR TO USER

35%:
36%:

37%:
38%:
39%:

40%:

348
338

ADD
MovB

#4,(SP)

JSR
BR
B8R
.WORD
TST
ADD
MOvB
SuB
NOP
RTS

PC ,RCLSTS

#2,(SP)

;MOVE SP BACK BEFORE ERROR

JRETURN TO USER

.WORD
.WORD

0
0

;CONTAINS RMER?2

34%:

000000

BIT
BEQ

32%,a(SP)
37%

38%
36%
0

+
(SP)
#4,(SP)

35%,a(SP)

;GO CHECK RECAL IBRATE
;NO ERROR DURING RECAL IBRATE
;ERROR DURING RECALIBRATE
;STRIP RETURN TO SUB AND

s TRANSFER ERROR TO USER

; TASK/VERIFY

DESCRIPTOR

ZRMNBO

BMOS/3/;

TOR

"",:f

MACRD v06.00

4-APR-81

.SBTTL

BAD SECTOR MODULE

—=OOV® NP
ND NN 2D Q0 N

:THE MODULE 1S INTENDED TC BE CALLED PRIOR TO CALLING THE BUFFER
:GENERATOR SUBROUTINE, AND PRESERVES THE 'PUT BUFFERTM SO THAT THE
gg;;i?lggED ONLY BE FILLED ONCE FOR THE EXECUTION OF A FORMAT
:THE MODULE

RETURNS

THE

CALLING

TEST WITH

THE APPRCVED OR ASSIGNED

10 L
i
T JA
Y

:SECTOR IN THE PUT BUFFER AND ALSO IN LOCATIONS ‘'ASNDA’" AND “‘ASND("'
SO THAT A REFERENCE IS AVAILABLE TO THE TEST OUTSIDE OF THE PUT BUFFER.
THE BAD

(1)
(2)

SECTOR MODULE

PERFORMS

TWO MAJOR FUNCTIONS:

RECOVER THE BAD SECTOR FILES AND
APPROVE THE USAGE OF A SECTOR BASED ON INFORMATION IN
THE BAD SECTOR FILES OR ASSIGN A NEW SECTOR IF THE ONi

ELECTED IS NOT AVAILABLE FOR USE.

: INFORMATION REQUIRED BY THE MODULE INCLUDES:
:

(1)
(2)

.RMDCO - THE DESIRED CYLINDER,
.RMDAD - THE TRACK »ND SECTOR ADDRESS,

(4)
(5)

.RMCS10 - THE COMMAND,
.RMOFO - THE FORMAT MODE

(3)

>
) —a
_—

(6 JV 1V, 1V, ]
roovroro

NN NN
NN

[olole le]

:
w
wn

G 12
11:43:33 PAG 16

062716

105076
162716

)

000006
000000
000006

.RMWCO - THE WORD COLNT,

ISR

PC.BADSCT

;CALL SUBROUT INE

TYPE

.MESSAGE

JRETURN HERE

NO ERROR

;RETURN HERE

THE BAD SECTOR

ERROR

" ADD

CLRB
SUB

s CANNOT BE RECOVERED.
;THE EMT OFFSET NUMBER

#6. (SP)

;CLEAR ERROR NUMBER IN USER'S

*BY BAD SECTOR MODULE.

a(5P)
#6, (SP)

'N'

FILE

IS DEFINED

*ERROR CALL.

sTEST "MEDIA ENABLE'' TO DETERMINE WHETHER OR NOT THE BAD SECTOR FILES

033166

61 033172

033174

005737
001402
000137

:HAVE BEEN RECOVERED.

001512

TST

BEQ
JMP

034452

MEDENB

;HAS BAD SECTOR FILES BEEN RECOVERED

1%
54%

;BR IF NO
;YES, BAD SECTOR FILE

IS AVAILABLE

sRECOVER THE MANUFACTURES / USERS BAD SECTOR FILE FROM CYLINDER
= 822.,

46
47 033200

033200

48 033202
49 033204

50 033212

51 033216
gg 033222
54
55
5¢ 033224

;TRACK = LAST

%?UT BUFFER

010046
005000
016060
062700
022700
103370

012737

001412
000002
000046

000003

101360

035070

2%:

TRACK

(RM02/3 = 4 AND RMO5
= 18.).

MOV
CLR

RO,=(SP)
RO

ADD
' (MP
BHIS

#2.RO
#46,RO
2%

MOov

ALSO,

SAVE

THE USER'S

;;PUSH RO ON STACK
;START WITH RMCS?

PUTBUF (RO) ,BUF FER(RO)
’

JADVANCE TO NEXT BUFFER POSITION
:END OF BUFFER
;NC I

sSET RETRY COUNT AND {OAD PUT BUFFER AND REGISTER INDEX TABLE
;SETUP PARAMETERS TO READ SKIP SECTOR FIIF FIRST (3 SECTORS)
MOV

#3,68%

SRETRY COUNT

JRMNBO RMQS/372 FOTNL
SECTOR MODUL
E

033270
033274
033300
033304
033310
033314
033320
033324
033330
033332
033332
033336
033342
033344
033346
033350
033354
033362

103370

001444

001553
000006
000034
000002
000032
000004
000000
000200

#822. ,RMD(O
LSTRK .RMDAQ
#-258_ RMWCO

:DESIRED CYLINDER = 822.
*STARTING LAST TRACK, SECTOR = 0
32 + 256. WORDS (2'S COMP)

MOV

#MFGF
IL ,RMBAO

:POINT

MOV

113776

000006

MOVB
MOVB

#RMWC
. (RO)+
#RMOF
., (RO)+

MOVB

MOVB
MOVB
MOV

013737

007400

035102

033374
033402
033406
033410
033412
033414
033420
033426

012737
004737
000411

000011
036240

001412

062716

000006
033412
034156

000401
000000
113776

000137
004737
004737
000411
000401
000000
062716
113776

000137

004737
000412
000401
000000
005726
062716
113776
000137

000000

53:

000000

050700

6%:
7%

9%:
108:

11$:

000006

033476
034156

128:
138:

000000

INDEX

RO POINTS

TO REGISTER

INDEX

TAB(E

#RMBA, (RO)+

#RMCST, (RO)+
#200, (RO) +
(SP)+,RO

::POP STACK INTO RO

TABLE FOR READING STATUS
PC,GETSTS
PC.GET

MOVB
JMP

4$-2,8(SP)
42%

MOV

FORMAT

TO MANUFACTURES FiLE BUFFER

#RMDC.(RO)+

JSR
JSR
BR
BR
.WORD

ADD-

16 BIT

4$
0

#6,(SP)

RMER21,73$

;SETUP GET INDEX REGISTER FOR STATUS
:GET REGISTERS
:BR IF NO ERROR
:JUMP OVER ERROR NUMBER
:ERROR DEF INED BY GET SUB
:XFER ERROR TO USER AND

:GET ERROR NUMBER.

:GET RMER2 AND SAVE FOR LATER

:CLEAR THE DEVICE USING DRIVE CLEAR COMMAND

8% :

036602
035770

000006
033446
034156

4$:

#PUTINX RO

#RMDA, (RQ)+

MOVB

035704
035770

#EMT16.RMOFO

MOVB

4SET GET

004737
004737
000411
000401
000000
062716

H 12
11:43:33 PAGE 16-1

MOV
MOV
MOV

MOV

001416

033366

033446
033450
033454
033462

4=APR-81

001446
001420
001414

000137

slelelelelelele

S 3BIRFREC28E

Sy
JE
i
e
e

720
600

001466
001334
177376
010000

MACRO V04.00

000000

97 033436
98 033442
033444

—a

e
————————

700
720

033346
034156

96 033432

737
737

(el lolele]

59 033246

40 033254
033262

737
737

norornoN NN'&WN

57 033232
58 033240

noroPOPONY
NN N

BAD

1S1

MOV
JSR
BR
BR
.WORD
ADD
MOVB
JMP

JSR

JSR
BR
BR
.WORD
ADD

#DRVCLR !GO,RMCS10
;LOAD COMMAND IN PUT BUFFER
PC.PUT
:OUTPUT COMMAND
8$
:RETURN HERE IF NO ERROR
7%
:GET AROUND ERROR #
0
:ERROR # GOES HERE
#6, (SP)
:MOVE SP TO USERS ERROR CALL
6$.a(SP)
:MOVE ERROR NUMBER TO USER
428

PC, TIMOUT

PC,GET
11$
108
0
#6, (SP)

:WAIT FOR_COMPLETION

1GO GET STATUS
:RETURN HERE IF NO ERROR
:GET AROUND ERROR #
:ERROR # GOES HERE
:MOVE SP TO USERS ERROR CALL

MOVB
JMP

9%.a(SP)
42%

:MOVE ERROR # TO USERS ERROR CALL
|

JSR
BR

PC,DRVSTS
14$

:GO VERIFY DRIVE CLEAR COMMAND
:RETURN HERE IF NO ERROR

.WORD
IsT
ADD

0
(SP)+
#6, (SP)

:ERROR # GOES HERE
*STRIP RETURN TO SUBROUT
INE
IMOVE SP TO USERS ERROR (ALL

MOVE
J

138

128.a(5P)

:GET AROUND ERROR

IMOVE ERROR # TO USER CALL

SAD

SECTOR MODULE

TST 2
w

"JRMNB) RMOS5/3/2 FCTNL

MACRO v0&4.00

114

:ISSUE

115 033520
116 033520
;}g 033526

(032737
001052

000100

001350

119 033530

012737

000023

001412

120 033536

004737

121 033542, 000411

122 033544

123 033546

126 033550

125 033554
129 033562

036240

000000

062716

000006

12
128 033566
129 033572
130 033576
131 033600
132 033602
133 033604

033546
034156

004737
004737
000411
000401
000000
062716

036602
035770

;gg 033616

000137

03415¢

137
138
139
140
141
142
143

004737
000412
000401
000000
005726
062716
113776

046342

033622
033626
033630
033632
033634
033636
033642

;2; 033650

113776

000137

000006

033602

000006
033632

034156

15%:
000000
~

17%:

000000

20%:

21%:
22%:
000000

032737
001004
032737

153
154
155
156
157
158
159

033674
033702
033706
033710
033712
033714
033720

1€2 033732
163 033736
164 033742
165 033744
166 033746
167 033750
168 033754

040000

035102

020000

001350

012737
004737
000411
000401
000000
062716
113776

000007
036240

001412

004737
004737
000411
000401
000000
062716
113776

036602
035770

001452

000137

000006
033712

034156

000006
033746

034156

000000

23%:

25%:

#PATACK !GO,RMCS10

17%

JRETURN HERE

.WORD

;ERROR # GOES HERE

MOvB
JMP

158,2(SP)
423

sMOVE ERROR # TO ERROR CALL

JSR
JSR

PC, TIMOUT
PC,GET

BR
.WORD
ADD

19%
O
#6, (SP)

JMP

18%,a(SP)

JWAIT FOR COMPLETION
;GO GET STATUS FOR PA(CK ACK
JRETURN HERE IF NO ERROR
;GET AROUND ERROR #
;ERROR # GOES HERE
;MOVE SP TO USERS ERROR CALL

42%

;MOVE ERROR # TO CALL

JSR
BR
BR
.WORD
TST
ADD
MOVB
JMP

PC,ACKSTS
23%
22%
O
(SP) +
#6, (SP)
21%,a(SP)

;GO VERIFY ACKNOWLEDGE STATUS
JRETURN HERE IF NO ERROR
;GET AROUND ERROR #
;ERROR # GOES HERE
;STRIP RETURN TO SUBROUT INE
:MOVE SP TO USERS ERROR CALL
;MOVE ERROR # TO USERS ERROR CALL

B8R

ADD

MOVB

000000

27%:
28%:

PC,PUT

- ;LOAD COMMAND

;GO PUT COMMAND TO DRIVE

16%

IF NO OUTPUT ERROR

;GET AROUND ERROR #

#6, (SP)

20%

’

42%

THE DRIVE

:IS VV RESET
R B3

sMOVE SP TO USERS ERROR (ALL

''SKI''
OR 'PIP IS SET

BIT
BNE
BIT

#SK1,73%
24%
#P1P_RMDSI

MoV
JSR
BR
BR
.WORD
ADD
MOvB

#RECAL ! GO,RMCS10
;LOAD RECAL IBRATE COMMAND
PC, PUT
;PUT THE RECAL COMMAND
26%
JRETURN HERE IF NO ERROR
25%
;GET AROUND ERROR #
0
;ERROR # GOES HERE
#6, (SP)
;MOVE SP TO USERS ERROR CALL
25%-2,a(SP)
;MOVE ERROR # TO USERS CALL

JSR
JSR
BR
BR
.WORD
ADD
MOvB

PC,TIMOUT
PC,GET
29%
28%
O
#6, (SP)
27%,a(SP)

JMP

268%:

VALID IS RESET

MOV

BEQ

24%:

VOLUME

#VV RMDS]
23%

:RECALIBRATE

147 033654
148 033654
149 033662
150 033664
;g; 033672

198 033762

18%:
19%:

BIT
BNE

146

;g? 033726

168:

112
11:43:33 PAGE 16-2

A PACK ACKNOWLEDGE

JSR

000401

113776
000137

134 033610

14%:

4-APR-B1

JMP

32%

;WAS SKI SET ?
;YES, GO RECALIBRATE
;1S PIP SET ??

JNO !

42%

;WAIT FOR RECALIBRATE TQ COMPLETE
;GO GET RECAL STATUS
JRETURN HERE IF NO ERROR
;GET AROUND ERROR #
;ERROR # GOES HERE
;MOVE SP TO USERS ERROR (ALL
sMOVE ERROR TO USERS CALL

CZRMNBO RMOS5/372 FCTINL

BAD SECTOR MODULE

171 033766
172 033772
00
ou 00
NN NN N
EBRIREREC2EBRIRRE on'\on\:
Bt ST, T BN P P

3 033774
033776
034000
034002

1
1

—a..._n—n-—a_a—a._a‘—é—l...\—l—b.a_n—a_n—a

1
1
1
181

034006
034014

034020

034020
034026
034032
034034
034036
034040
034044
034052

004737
000412
000401
000000
005726
062716
113776

000137

ST 8

067136

29%:

31%:

000006
033776
034156

000000
062716
113776
000137

000073
036240

000006
034036
034156

004737
004737
000411
000401
000000
062716

000006

000137

034156

200 034112
201 034116
202 034120
203 034122

004737
000412
0004017
000000
005726
062716
113776
000137

205 034126
206 034132

113776

032737
001001
000446

000000

036602
035770

034072

35%:

000000

051502

36%:
37%:

38%:

39%:

40%:

000006
034122
034156

000000

040000

001336

(SP) +

sSTRIP RETURN TO SUBROUTINE

ADD

#6, (SP)

JMP

42%

THE

JERROR # GOES HERE

sMOVE

308,a(sSP)

SECTOR

TO USERS ERROR CALL

;MOVE ERROR # TO USERS CALL

IDENTIFIED BY RMDAO,

INCLUDING HEADER AND DATA

MOV
JSR
BR
BR
.WORD
ADD

#RH!GO,RMCS10
PC,PUT
35%
34%
0
#6, (SP)

JMP

42%

JSR

PC, TIMOUT

;WAIT FOR READ OPERATION TO COMPLETE

BR
BR
.WORD
ADD
MOVB
JMP

38%
37%
0
#6,(SP)
36%,a(SP)
42%

JRETURN HERE IF NO ERROR
;GET AROUND ERROR #
JERROR # GOES HERE
sMOVE SP TO USERS ERROR CALL
;MCVE ERROR # TO CALL

JSR

FC,DTASTS

.GO VERIFY RESULTS OF READ OPERATION

JERROR # GOES HERE

ADD

#6, (SP)

sMOVE SP TO USERS ERROR CALL

BIT
BNE

#TRE ,RMCS11]
42%

sANY CONTROLLER ERRORS ?
B8R IF YES

MOVR

33%.,2(SP)

JSR

PC.GET

BR
BR

41%
408

TST

(SP)+

.WORD

MOVB
JMP

41%:

;GO VERIFY RECALIBRATE STATUS
sRETURN HERE IF NO ERROR
;GET AROUND ERROR #

;LOAD READ HEADER AND DATA COMMAND
;PUT COMMAND
;RETURN HERE IF NO ERROR
;GET AROUND ERROR #
7
JERROR # GOES HERE
.
sMOVE SP TO USERS ERROR CALL

;MOVE ERROR # TO USERS ERROR CALL

;GO GET STATUS FOR READ OPERATION

JRETURN HERE IF NC ERROR
;GET AROUND ERROR #

:STRIP RETURN ADDRESS TO SUBROUTINE

39%.2(SP)
42%

;MOVE ERROR # TO USERS CALL

48%

sNO ERRORS DETECTED

AR AN AR R AR R AR R

AR AR

AR R RRRR A AR R AN AR RA

AR * kR

;AN ERROR HAS BEEN DETECTED IN TRYING TO READ THE BAD SECTOR FILE.

;THE
no

WW
o~

4156

005337
100026

035070

42%:

222 034164
223 034172
224

225 034174
226 034202
227

SECTOR WILL BE

DEC

BPL

;THE RETRY

33%:
34%:

PC,RCLSTS
32%
31%

.WORD

MOVB

001412

NO NS WA -

n rorunoNurUrORONUNONO
M

207 034140
208
209 034144
0 034152
034154

000000

12
16-3

11:42:33 PAGE

TST

%SEAD

012737
004737
000411
000401

4-APR-81

JSR
BR
BR

308%:

034056
034062
034066
034070
034072
034074
034100
034106

204 034124

MACRO v04.00

032737
001004

100720

001352

032737
001422

100000

001400

43%:

RETRIED

68%

POSSIBLE.

;YES, DECREMENT RETRY COUNT AND

45%

COUNT HAS

JRETRY IF

EXPIRED - SEE

COUNT NOT NEGATIVE.

THE ERROR

BIT

#DCK!'HCRC!HCE!FER!ECH,RMER1]

BIT

#BSE ,RMERZ]

BNE

BEG

44%
46%

;YES,

IS MEDIA RELATED

JANY MEDIA RELATED ERRORS ?

GO TRY NEXT AVAILABLE

;ANY MEDIA RELATED ERRORS ?

SECTOR

;NO, EXIT AND REPORT ERROR ON RETURN

CZRMNBO =%05/3/2 FCTNL
BAD SEC”
MODULE

MACRO v04.00

242
243

244 034250
245 034252
246 034260
247 (034262
248 034266
249
250
251
252
253 034272
254 034300
255 034302
256 034310
257
258 034316
259 034324
260
261
262 034330
034330
034332
263 034334
264 034340
265 034344
266 034352
267 034360
268 034362
269 034364
270
271 034366
272 034372

273 034374
274 034400
275 034404
276 034406
277 034410
278 034412
79

034414

280
281 034416

K 12
11:43:33 PAGE 16-4

:THE ERRORS DETECTED WHILE

229
230
23
232 034204
233 034212
234 034220
235 034222
236 034230
237
238 034232
239 034240
240 034244
241

4-APR-81

;DUE TO THE MEDIA.

SEE

;ANOTHER AREA ON THE LAST

062737

122737

001413
122737

001407

012737
162716

000137

000002
000012

001420

000040

001420

000003
000006
033332

035070

001420

44%:

020000

144674

0C0004
035064

CMPB

BEQ
CMPB
BEQ
MOV
SuB
JMP

45%:
;THE

000240
032777
001002
162716
000137

ADD

46%:

47%:

BAD

THE BAD SECTOR FILE

TRACK

#2 ,RMDAO
#10. ,RMDAO
46%
#32. ,RMDAD
L6$

#3,68%

#6,(SP)

SECTOR FILE

NOP
BIT
BNE
SUB
JMP

TRYING TO RECOVER

IF THE BAD SECTOR FILE

sADVANCE SECiOR ADDRESS BY 2
sQUIT IF ALL MFG SECTORS HAVE BEEN
sTRIED.
sQUIT IF ALL USER SECTORS HAVE BEEN
;TRIED.

;REINSTATE RETRY COUNT FOR THIS SECTOR

sMOVE

SP BACK TO NO ERROR

sRETRY THE READ OPERATION

CANNOT BE READ

#SW13,aSMR
47%

s INHIBIT MESSAGE
s YRS

67%

;GO TO MODULE EXIT

#4, (SP)

;MOVE

012737

012737
000137

104376

001416

000012

001420
001416

000003
033332

035070~

104376

48%:

CMP
BEQ
MOvVB
MOV
MOV
JMP

SP TO ERROR RETURN

sTHE SECTOR WAS RECOVERED WITHOUT ERROR - READ
sTHIS IS THE MGF FILE OR ELSE DONE.

022737
001446
112737

ARE

CAN BE RECOVERED FROM

THE USER FILE

#USRFIL ,RMBAO

;WAS THE USER FILE READ ??

#10. ,RMDAO

;READ THE USER FILE LAST TRACK, SECTOR = 10.

52%

#USRFIL ,RMBAO

#3,68%

JYES = READ IS COMPLETE
;POINT

TO USERS FILE BUFFER

JRELOAD THE RETRY COUNT FOR THIS SECTOR

;GO READ THE USER FILE

:DUMMY THE BAD SECTOR FILES

49%:

000374
000014

177777

012701
005000
005060
005060
005720
005301
001371
012601
012600

103370
104376

50%:

000006
103370
104376

51%:

MoV
MOV
MOV
MOV

MOV

MoV
ISt
DEC
BNE

MOV
CLR

CLR

CLR
1ST
DEC
BNE
MOV
MOV

RO,=(5P)
R1,-(SP)

::PUSH RO ON STACK
:;PUSH R1 ON STACK

#14 RO
#-1,MIL
FGF
(RO)
#-1,USRFI
(RO)
L

;RO = ADDRESS INDEX TO FILE

#252. ,R1

(RO)
+
R1

508

zg..Rl

JENTER ALL ONES IN MFG FILE
JENTER ALL ONES IN USER FILE
;ADVANCE ADDRESS

USRF IL (RO)
é?0)+
51%

(SP)+,R1
(SP)+,RO

STORAGE

;DECREMENT COUNT

sCONTINUE IF NOT DONE

s CLEAR HEADER, CLEAR ID%& SERIAL NUMBERS

MF GF IL (RO)

; SET MEDIA ENABLE AND RESTORE

52%

;R1 = NUMBER OF ENTRIES IN FILES

;ADVANCE ADDRESS
;:POP STACK INTO R1
;:POP STACK INTO RO
THE USERS PUT BUFFER

CZRMNBO RMOS5/3/2 FCTINL

BAD SECTOR MODULE

010046

005000

012737
016060
062700
022700
103370
012600

L 12

4-APR-B1

11:43:33 PAGE

MOV
17777/
101360
000072
000046

001512
001412

RO,=(SP)

CLR

53%:

JRO IS REGISTER INDEX

#-1,MEDENB
BUFFER(RO) ,PUTBUF (RO)
#2,R0O
;ADVANCE RO
#46,R0
;DONE 2?
53%
(SP)+,RO
;;POP STACK INTO RO

e AR AR

291
232

:VERIFY THAT THE DESIRED SECTOR IS NOT IN THE MFG BAD SECTOR FILL
sAND NOT IN THE USERS BAD SECTOR FILE. ASSIGN A NEW SECTOR IF THE
;SECTOR IS IN ANY OF THE FILES.

293

A A

:;PUSH RO ON STACK

MOV
MOV
ADD
(MP
BHIS
MOV
A A

16-5

A A AR AR A

29‘

295
296
297 034452

;LOAD INITIAL VARIABLES AND COMPUTE
54%:

034452
034454
034456
298 034460
299 034466
300 034474
301 034476
302 034502
303 034504
304 034510
305 034516
306 034520
307 034524
308 034526
309 034530
310 034532
311 034534
312 034536
313 034540
314 034542
315 034544
g;g 034546

010046
010146
010246
013737
013737
005002
013700
005400
012701
032737
001402
012701
020100
101404
005700
001405
005202
000403
160100
005202
000767
010237

001446
001420

001514
001516

001414

000400
000002

001412

000402

55%:

56%:
035070

57%:

318
319

R R

MoV
MOV
MOV
MOV
MOV
CLR
MOV
NEG
MOV
BIT
BEQ
MOV
cMP
BLOS
TST
BEQ
INC
BR
SuB
INC
BR
MoV

A AR

AR R A AR AT A A AR AR AR AR A AR AR IR AR A AR

A A

A AR A AR A A AN A AR AR AR AR A AR

RO,=(SP)
R1,-(SP)
R2,=(SP)
RMDCO,ASNDC
RMDAO ,ASNDA
R2
RMWCO,RO
RO
#256. ,R1
#B1T1,RMCS10
55%
#258. ,R1
R1,RO
56%
RO
57%
R2
57%
R1.RO
R2
55%
R2,68%

AR AT RO

A A RANAANA ARSI N

THE NUMBER OF

SECTORS

;:PUSH RO ON STACK
;:PUSH R1 ON STACK
:;PUSH R2 ON STACK
;LOAD REQUESTED CYLINDER, TRACK,
sAND SECTOR ADDRESS IN ASSIGNED STORAGE
;R2 = NUMBER OF SECTORS
;RO = WORD COUNT
sMAKE 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 ??
s¥ES 1
;1S RO ZERO ??
JYES !
; INCREMENT FOR PARTIAL SECTOR

sSUBTRACT ONE SECTOR FROM WORD COUNT
s INCREMENT SECTOR COUNT
;SAVE SECTOR COUNT

;LOAD PARAMETERS AND SEARCH THE MFG/USER SECTOR FILE FOR THE
;ASSIGNED SECTOR. ALSO, SEARCH THE ADJACENT SECTORS IF THE

%5?

;SECTOR COUNT IS MORE THAN ONE.

322 034552
323
324 034560
325 034564
326
327 034572
%sg 03?576

012737

103404

004737
012737

034602
104412

004737
000137

034602
035042

330 034602
331 034610
332 034616
333
334

013737
013737

001514
001516

013737

035070

035100

Mov

035100

JSR
MoV

HMFGFIL+14,72%
.
PC,58%
MUSRFIL+14,72%

JSR
JMP

PC,58%
66%

;THE STARTING ADDRESS OF MFG FILE
:TO BASE ADDRESS STORAGE.
;GO SEARCH FILE
;LOAD STARTING ADDRESS OF USR FILE
:TO BASE ADDRESS STORAGE.
2GO SEARCH FILE
;DONE WITH ALL FILE SEARCHES !!

MoV
MoV

ASNDC,70%
ASNDA,71%

;LOAD COMPARING CYLINDER ADDRESS
;LOAD COMPARING TRACK, SECTOR ADDRESS

035074
035076

035072

58%:

MOV

68$,69% :LOAD NUMBER OF SECTORS TO CONFIRM

;SETUP FOR A BINARY SEARCH OF

THE CURRENT FILE FOR THE COMPARING

————————————————

283 034422
284 034430
285 034436
286 034442
287 034446
Sgg 034450

MA.RO v04.CO0

034416

282 034420

TST 2

MACRO v04.00

335
336 034624
337 034624
338 034630
339 034634
340 034636
1

034642

égzunosn,

013700

035100

001446
021037
001010

035074

022710

M2
11:43:33 PAGE 16-6
w

BAD SECTOR MODULE

4-APR-81

177777

TRACK AND SECTOR ADDRESS

mov

60%:

(MP
BEQ
(MP
BNE

72%.R0

#=1,(RO)
64%
(RO),70%
62%

:LOAD THE BASE ADDRESS IN RO

;1S THIS FILE TERMINATOR ?
:BR _IF YES
;DOES TABLE ENTRY = COMPARING CYLINDER ?
:BR IF NO

;FILE ENTRY EQUALS COMPARING CYLINDER.

é{gE COMPARING TRACK,

126037

AND SECTOR.

SEE IF

THE NEXT ENTRY EQUALS

000003

035077

CMPB
BNE

3(R0), 71841
62%

;DOES TABLE ENTRY = COMPARING TRACK ?
;BR IF NO

- 000002
126037
001402

035076

CMPB
BEQ

2(R0),71%
63%

;DOES TABLE ENTRY = COMPARING SECTOR ?
;BR IF YES

CMP
BR

(RO) +, (RO) +
60%

sNO, ADJUST CYLINDER POINTER IN BAD FILE
JAND CONTINUE SEARCH.

001004

022020
000760

62%:

:THE COMPARING CYLINDER, TRACK AND SECTOR IS IN THE BAD SECTOR FILE.

é§2VANCE

105237
122737
103337
105037
105237
123737
103327
005037
005237

022737
103317

005037
000714

001516
000037

001516

001516
001517
001335

001517

001516
001514
001466

001514

THE ASSIGNED SECTOR AND START

INCB

ASNDA

THE SEARCH ALL OVER.

s INCREMENT SECTOR

CMPB
BHIS

#31. ,ASNDA
58%

sSECTOR OK ??
sYES 1}

CMPB
BHIS

LSTRK+1,ASNDA+1
58%

;TRACK OK ?
¥ES !

#822. ,ASNDC
58%

sCYLINDER OK ??
VRS !

58%

;SEARCH NEXT SECTOR

CLRB
INCB

ASNDA
ASNDA+1

CLR
INC

ASNDA
ASNDC

CLR

-ASNDC

CMP
BHIS
BR

;CLEAR SECTOR AND ADVANCE

TRACK

;CLEAR TRACK AND SECTOR
s INCREMENT CYLINDER

;START AT CYLINDER 0

:THE COMPARING SECTOR IS NOT IN THE BAD SECTOR FILES.
DECREMENT THE
;NUMBER OF SECTORS TO COMPARE AND SEARCH THE NEXT SECTOR IF THE NUMBER

375 034752
376 034752
377 034756
378
379 034760
380 034764

381 034772
382 034774
383 035000
384 035004
385 035012
386 035014
387 035020

388 035024
389 035032
390 035034
3N

gzg NOT ZERO.

005337
001442

035072

105237
122737
103022
105037
105237
123737
103012

035076
000037

;
03507¢

035076
035077
001335

035077

005037
005237
022737

035076
035074
001466

005037

035074

103002

DEC
BEQ

69%
67%

;DECREMENT NUMBER OF
:DONE IF ZERO

INCB
(MPB
BHIS
CLRB

71%
#31.,71%
65%
718

s INCREMENT THE COMPARING SECTOR
sSECTOR OK ??
sYES 1!
;CLEAR SECTOR

(MPB

LSTRK+1,71%+1.

;TRACK OK ??

71%

;CLEAR SECTOR TRACK

INCB

BHIS

CLR

035074

INC

(MP
BHIS
CLR

718+1

65%

70%

#822.,70%
65%
70%

s INCREMENT

sYES

TRACK

s INCREMENT

CYL INDER

sCYLINDER OK ??
J¥ES 1
;START AT CYLINDER 0

SECTORS TO COMPARE

CZRMNBO RMOS5/3/2 FCTNL 1ST 2

CZRMNBO RMOS/372 FCTNL

BAD SECTOR MODULE

;g% 035040
394
395 035042
396 035042
397 035050
398 035056
035060
399 035062
400 035064

28% 035066

TST 2

MACRO v04.00

65%:

013737
013737
012602
012601
012600

;ASSIGN THE SECTOR AND RETURN TO USER
66%:
MOV
ASNDC ,RMDCO
sLOAD CYLINDER
MOV
ASNDA ,RMDAQ
;LOAD TRACK AND SECTOR
MOV
(SP) + ,R2
;;POP STACK INTO R2
MOV
(SP) +,R1
:;POP STACK INTO R1
MOV
(SP)+,RO
;;POP STACK INTO RO

001514
001516

001446
001420

00024C

67%:

000207

409 035100
410 035102

N 12
11:43:33 PAGE 16-7

000671

282
405 035070
406 035072
407 035074
408 035076

4-APR-81

NOP

RTS

59%

sSEARCH NEXT SECTOR

;THE FOLLOWING ARE STORAGE LOCATIONS FOR THE MODULE
000000
000000
000000
000000

000000
000000

68%:
69%:
70%:
71%:
72%:
73%:

.WORD
.WORD
.WORD
.WORD

.WORD
.WORD

0
0
0
0

sRETRY COUNT/ NUMBER OF SECTORS REQUIRED
sNUMBER OF SECTORS TO COMPARE
; COMPARING CYLINDER
; COMPARING TRACK AND SECTOR

O
0

;BASE ADDRESS OF BAD SECTOR FILE BEING SEARCHED
; CONTAINS RMERZ2

CZRMNBO RMCS5/3/2 FOINL TST 2
BUFFER GENERATOR SUBROUT INE

MACRO v04.00

4-AFR-B1

.SBTTL

BUFFER

8 13

11:43:33 PAGE

GENERATOR

SUBROUTINE

;THIS SUBROUTINE GENERATES A DATA BUFFER FOR WRITE COMMANDS. THE
;BUFFER STARTS AT RMBA AND IS RMWC WORDS

LONG.

:FROM THE

DATA PATTERN

TABLE,

:R1

:R3 = LENGTH OF DATA PATTERN

= LENGTH OF

;R4 = SECTOR COUNT

16
17

sCALL:
(1)

:(2)

GENBUF:

JSR

PC ., GENBUF

MoV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

RO,-(SP)
R1,-(3P)
R2,-{SP)
R3,-(SP)
R4 ,-(SP)
RMBAO, RO
RMWCO,R1
RMDCO, 608
RMDAO,65%

BIT

#31T1,RMCS10

;WRITE HEADER £ DATA??

608, (RO)

;WRITE HEADER WORD #1

035104
035106
035110
035112
035114
21 035116
22 035122
23 035126
5? 035134

010046
010146
010246
010346
010446
013700
013761
013737
013737

001416
001414
001446
001420

035336
035340

26 035142

032737

000002

001412

28 035152

013710

035336

MOV

gg) 035162

012702

000035

MOV

32 035166

032737

010000

;2 035202

012702

001445

052710

001404
052710

37 035206
gg 035210

005201
001443

40 035212

005720

4«2 035220

005201

44 0352264

012703

46 035232
47 035234
48 035236

120213
103013
105013

50 035244

123763

43 035222

45 035230

49 035240

51 035252
52 035254

DATA BUFFER

;R2 = ADDRESS OF DATA PATTERN

3’;

41 035214

$TMPO.

;RO = ADDRESS OF DATA BUFFER

33 035174
34 035176

ADDRESS

:RMDA AND RMOF
.

29 035156

BEGINNING AT

;HEADER INFORMATION FOR THE BUFFER IS EXTRACTED FROM RMDC,

27 035150

THE BUFFER

;CONTAINS A REPETITIVE DATA PATTERN CONSISTING OF $TMP1 WORDS

20 C35104

013720

001436
105213

105263

103004
105063

10%:

140000

001444

BEQ

000037
15%:

;:PUSH RO ON STACK
::PUSH R1 ON STACK
;:PUSH R2 ON STACK
::PUSH R3 ON STACK
::PUSH R4 ON STACK
;LOAD DATA BUFFER ADDRESS
;LOAD WORD COUNT
;LOAD STARTING CYLINDER ADDRESS
:LOAD STARTING TRACK,SECTOR ADDRESS
:

BIS

#MSE 'USE, (RO)

BIT

#FMT16,RMOFO

MOV

#31..R2

BEQ
BIS

010000

25%

RETURN HERE

INC
BEQ
TST

#29. ,R2

R1
50%

: INCREMENT WORD COUNT
SEXIT IF DONE

(RO) +

:MOVE RO TO HEADER WORD #2
: INCREMENT WORD COUNT AND

INC

035340

MOV

#65%,R3

CMPB
BHIS
CLRR

R2, (R3)
25%
(R3)

CMPR

LSTRK+1,1(R3)

000001

001335
000001

000001

INCB

BHIS
CLRB

:18 BIT FORMAT??

JYES !
:SET 16 FORMAT BIT IN HEADER

MoV

INCB

;SET BAD SECTOR FLAGS FOR GOOD SECTOR

;R2 = MAXIMUM SECTOR ADDRESs (29.)

15%
#FMT16, (RO)

035340

BEQ

;NO!!

65%, (RO) +
50%

(R3)

;CHANGE MAXIMUM SECTOR ADDRESS (31.)

;WRITE HEADER WORD #2

JEXIT IF DONE

:ADVANCE SECTOR ADDRESS

;SECTOR OVERFLOW 2?
:NO !}
;YES = CLEAR SECTOR ADDRESS

1(R3)

:ADVANCE TRACK ADDRESS

25%
1(R3)

:NO !
:YES = CLEAR TRACK ADDRESS

;TRACK OVERFLOW ??

CZRMNBO RMOS5/3/2 FCINL TST 2
BUFFER GENERATOR SUBROUT INE

53 035260
54 035264
55 035270
56 035274
57 035300
58 035302
59 035304
60 035306
5310
62 035312
5314
5316

105237
012704
013702
013703
012220
005201
001405
005304
001714
005303
001765
000770

035320
035322
035324
035326
035330
035332
C35334

012604
012603
012602
012601
012600
000240
000207

035336
035340

000000
000000

035336
(00400
001174
001176

MACRO v04.00

25%:

30%:

60%
#256. R4

MOV
MOV

$TMP1 ,R3
(R2)+,(RO)+

$TMPO ,R2

INC
BEQ
DEC
BEQ
DEC
BEQ
BR

R1
50%
R4
10%
R3
30%
40%

MOV
MOV
MOV
MOV
MOV

(SP)+,R4
(SP)+,R3
(SP)+ ,R2
(SP) +,R1
(SP)+,R0O

NOP
RTS

60%:
65%:

C 13

11:43:33 PAGE

INCB
MOV

MCV

408%:

50%:

4-APR-81

.WORD
.WORD

17-1

sADVANCE CYLINDER ADDRESS
;LOAD SECTOR DATA COUNT
;LOAD PATTERN ADDRESS
;LOAD PATTERN COUNT
;WRITE DATA PATTERN
s INCREMENT WORD COUNT AND
JEXIT IF DONE
;DECREMENT SECTOR COUNT
sSTART NEXT SECTOR IF 0

:DECREMENT PATTERN COUNT
sRESTART PATTERN IF

s CONTINUE DATA PATTERN
. :POP STACK INTO R4

;:POP STACK INTO R3
;:POP STACK INTO R2
;;POP STACK INTO R1

;sPOP STACK

INTO RO

sCYLINDER ADDRESS STORAGE

;TRACK,

SECTOR ADDRESS STORAGE

WA = OO YO N NN
-2

COMPARE BUFFER SUBROUTINE

MACRO v04.00

;CALL:
24T

JSR

.WORD

:(2)

ek e

&,
:(4)
#£3)
:(6)

d e

21 035356
22 035364
23 035366
24 035374
25 035376
26 035404
27 035406
28 035414
29
30
31 035416
32 035422
33 035426

COMPARE BUFFER SUBROUTINE

:COMPARISON ARE REPCRTED TO THE USER VIA THE USER'S ERROR CALL.

NO N

19
20

D 13
11:43:33 PAGE 18

;THIS SUBROUTINE COMPARES THE CONTENTS OF BUFONE AND BUFTUO
SASSUMING THAT BUFONE IS THE BUFFER FROM WHICH DATA WAS WR] TTEN
IAND BUFTWO IS THE BUFFER TO WHICH DATA WAS READ. ERRORS IN BUFFER

:
CMPBUF

010046
010146
010246
18 035352

4-APR-81

.SBTTL

CZRMNBO RMOS/372 FCTINL TST 2

010346
005037

035702

033737 004000
001063
032737 100000
001457
032737 000100
001053
032737 010000
001447
013700

013701
052737

022701

103004
162701

005720
000771

012702
016203

001416
001402

100000

000020
000020
000001

001370

.WORD

BR
NOP
ERROR
22?
MOV
MOV
MOV
MOV
CLR

;DETERMINE IF
. BIT

BNE

001352

BIT
BEQ
BIT
BNE

001352

001370

BIT

BEQ

PC,CMPBUF

WRiTE BUFFER ADDRESS

READ BUFFER ADDRESS

RETURN HERE IF NO ERROR
RETURN HERE IF ERROR
ERROR DEF INED BY SUBROUT
INE

RO,=(SP)
R1,={SP)
RZ.=(SP)
R3,-(SP)
1508
DATA SHOULD BE
ECI.RMOF
I

808"

#DCK,RMER1]
80%
#ECH,RMER1!
80%

H#FMT16,RMOF ]
80%

:;PUSH RO ON STACK

;;PUSH R1 ON STACK
;:PUSH R2 ON STACK

;;PUSH R3 ON STACK

:CLEAR CORRECTION FLAG

CORRECTED
s WAS ECC CORRECTION ALLOWED

:NO

,UAS THERE A DATA (HECK ??

sNO !

;1S ERROR CORRECTION HARD SET
;eSS 13

;IS THIS 16 BIT FCRMAT ??
;NO !!

;CORRECT DATA USING ECC INFORMATION
MOV
RMBAQ,RO
;RO = STARTING BUFFER ADDRESS

MOV
BIS

035702

RMECT1,R1
#B81T715,150%

sR1 = ECC POSITION
;SET CORRECTION FLAG

:MOVE RO TO WORD BOUNDARY CF ERROR BURST
CMP
;1S BIT POSITION > 1 WORD
#16. ,R1
BHIS
208
NO
!
SuB
#16. .R1
.SUBTRACT WORDS WORTH
I3F
TR
sADVANCE BUFFER ADDRESS 1 WORD
R
.
108

i0s:

208%:

MOV

#1.R2

k2,R3

:R2
:R3

BIT POINTER
BIT NUMBER

SSQVE R2 TO STARTING BIT OF ERROR BURST
CMP
R3,R1
;1S R3 SAME AS R1 ??
BEQ
35%
IYES !
ASL
R
sSHIFT BIT POINTER

020301
001403
006302
005203
000773
012703

000613

35%:

030237

001404

408%:

sCORRECT

INC
BR

MoV

R3
308
#11.,R3

THE ERROR BURSI

BIT

RZ2,RMEC2]

s INCREMENT BIT NUMBER

:R3
= LENGTH OF ERROR BURST
sIS THIS BIT

SET

IN ECC PATTERN 27

CJRMNBO RMOS/3/72 FCINL TST 2
"OMPARE BUFFER SUBROUT INE

noocnNoONSNO

€8 035534
69 035540

(17600
062766
017601
062766

70 035546
71 035552
72 035560

73 035564

74
75
76
77

035570
035572
035574
035576

;g 035600

81 035602
82 035606
83 035612
84 035616
85 035622
86 03526
87 035634
88
89
90 03
91 03
92 035652
03
% 035666
95 035670

508:
608:

000001
708:

163702

908 :

022021
001003
005302
001374
000433

032737
001403

100000

035702

000163
000002

000010
000010

gg 035700
98 035702

006000

BIC
BR
BIS
ASL
BNE

R2. (RO)
60$
R2, (RO)
R2
708

‘RESET THE BI7

50$

MOV

#1,R2

BNE

408

ST
DEC

(RH)+
R3

CMP

BNE
DEC

“NO

SSET THE BIT
SHIFT TO NEXT BIT

JCONTINUE WITH FIRST BIT OF NEXT WORD
;END OF BURST

INO ')

(RO)+.(R1)+

:COMPARE DATA WORDS

90%

*CONTINUE IF NOT DONE

1008
R2

1108

:DATA COMPARE FAILED
1008:
MoV
-(RO) ,$GDDAT

000010
000010

012603
012602
012601
012600
000207

;ND = DO NOT CORRECT THIS BI7
“IS THE BIT PRESENTLY SET 27

001140
001142
001134
001136
001174
000004
000336

000240

608
R2, (RO)

BNE

014037
014137
010037
010137
010237
062766

112776
162766

18-

:COMPARE WRITE BUFFER TO READ BUFFER
808:
mov
210(SP) RO
;RO = WRITE BUFFER
ADD
#2.10(SP)
*MOVE SP TO READ ADDRESS
MOV
a10(sP) ,R1
*R1 = READ BUFFER
ADD
#2.10(SP)
:MOVE SP TO RETURN ADDRESS
MOV
RMWC I ,R2
*R2 = NUMBER OF WORDS TRANSFER
SUB
RMWCO
. R2

013702

112776

E 13

11:43:33 PAGE

BEQ
8IT

BEQ

W AN N NN NN NN

040210

4-APR-81

SEQ 0160

001405
030210
001402

VAV VAV VAV IV IV
VIWAWA
AW
WNAANNININ)
= = s 3

COOOCOCOOOOO

0-C
OO
VNN
*ug\ngknn»agLoarvonn

56 035502
035504
35506

MACRC v04.00

MOV

MOV
MOV
MOV
ADD

MOVE

-(R1) ,$BDDAT

RO, $GDADR
R1.$8DADR
R2.$TMPO
#4.10(SP)

#336.310(5P)

YEXIT IF NOT EQUAL
*DECREMENT WORD COUNT
*DONE COMPARE - NO ERROR
;STORE

GOOD DATA FOR TYPEQUT

-STORE BAD DATA FOR TYPEOUT

:STORE ADDRESS OF GOOD DATA
:STORE ADDRESS OF BAD DATA
:STORE WORD COUNT OF ERROR
:MOVE SP TO USER'S ERROR CALL

:WRITE ERROR NUMBER IN CALL

: CHANGE ERROR NUMBER IF ECC CORRECTION FAILED
8IT
#B]T15,1508
:WAS ECC CORRECTION USED 2?
BEQ
105%
IND !
MOVB
#163.210(SP)
“ECC CORRECTION FAILED

105%:

1108
:

382

#2.10(sP)

:MOVE SP TO RETURN If

MOV
MOV
MOV
MOV

(SP)+,R3
(SP)+.R2
(SP) +.R1
(SP) +.RO

::POP
1:POP
*:POP
S:POP

RTS

1508 :

.WORD

STACK
STACK
STACK
STACK

INTO
INTO
INTO
INTO

*RETURN TO USER

;ECC

R3
R2
R1
RO

CORRECTION FLAG

ERROR

JRMNBO

RMOS/3/2

STATUS

SCTINL

SUBROUT INE

TST

MALKRD

v04.00

4-APR-B1

11:43:33 PAGE

SEQC (0161

.SBTTL

GET STATUS SUBROUTINE

;THIS SUBROUTINE SETS UP THE "'GET INDEX TABLE'' AND THE ''GE!

JBUFFER'" FOR READING ALL

sCALL:

SUBSYSTEM REGISTERS

sJAND THEN RETURNS TO THE USER.

JSR

10 035704
035704
11

035706

12 035710

12 035712

14 035716

010146

010246

012700

012701

15 035722

012702

17 035730
18 035732
19 (35736

005041
162702
100405

16 035726

20 035740
21 035744
22 035746

2% 035750

26 035752
25 035756
26 035760
27 035762
28 035764
29 035766

110220

001524

2%:

000002

112720
012602
012601
012600
000240
000207

000200

RO,=(SP)

R1,=(SP)

MOV

#GETINX,RO

RZ,=(SP)

MOV

000046

000022

MOV

001406

022702
001370
005041

000770

GETSTS:

010046

PC,GETSTS

3%:

H#RMEC21+2,R1

MOV

#RMEC2 R2

CLR
SuB
B8M!

-(R1)
#2 .R2
4%

MovB

R2, (RO)+

cMP
BNE
(LR

\
4%:

#RMDB ,R2
2%
=(R1)

MOvB
MOV
MOV
. MOV
NOP
RTS

#200, (RO) +
(SP)+ ,R2
(SP)+,R1
(SP)+,RO
PC

VIA

THE

GET

SUBROUTINE

RETURN HERE
::PUSH RO ON STACK
;:PUSH R1

ON STACK

:;PUSH R2 ON STACK

;RO = ADDRESS OF

;R1

= ADDRESS OF

INDEX TASLE

GET BUFFER

;RZ = REGISTER INDE

JWRITE REGISTER INDEX IN TABLE

;CLEAR CORRESPONDING LOCATION
sDECREMENT TO NEXT INDEX
:BRANCH OUT IF DONE

;DONT WRITE RMDB INDEX

;WRITE TERMINATOR
:;POP STACK INTO R2
::POP STACK ]NTC R1
;:POP STACK INTO RO

RMOS/

FOINL

TST

MARO

,04.00

4-APR-B1

.SBTTL
3

LISTED

IN THE

;"'GET INDEX TABLE'®' AND STORES THEIR VALUES IN THE CORRE SPONDING
;LOCATION IN THE "'GET REGISTER BUFFER''.
FOR EXAMPLE, AN

SENTRY OF

IN THE

TABLE WILL

;READ "RMBA'" AND STORE

;THE

’

SREGISTERS

~d
b
®

GET SUBROUTINE

BUFFER

ASSIGNED
TO BE

;TABLE MUST BE

READ

CAUSE

THE

SUBROUTINE

ITS (ONTENTS AT THE LOCATION IN
THAT

VARIABLE

FROM

THE
1

NUMBER
22;

TERMINATED WIIH A CONTROL BYTE

JWHICH SHOULD FOLLOW THE LAST ENTRY.

THE

(200)

INDEX

s SUBROUTINE (CALL:

15
1€

251

"'GET

UNUSED LOCATIONS, 1.E.,ENTRIES IN BUFFER CORRESPOND
ING

:
2.4

£ &

20
21
S%

26
25
26

INDEX

TABLE'' HAS BEEN LOADED WITH REGISTER

VALUES AND TERMINATED WITH A CONTROL BYTF
"'GET INPUT BUFFER'' IS AVAILABLE FOR USE.

(NOTE

INDEX

THAT

TO REGISTERS NOT READ, ARE NOT CHANGED.)

)

JSR

PC,GET

BR
NOP
EBSOR

RETURN HERE IfF NO ERROR FOUND
RETURN HERE IF ANY ERROR FOUND
SUB DEF INES ERROR NUMBER

2
;RO = REGISTER BASE ADDRESS
;R1
= REGISTER ADDRESS

2’

;R2 = BUFFER BASE ADDRESS

:R3 = BUFFER ADDRESS

"6 13

:THIS SUBROUTINE READS THE REGISTERS WHICK ARE

“
5

)

11:43:33 PAGE

;R4 = POINTER 70 REGISTER

035770

3¢ 035772
33 035776
34 036002
35 036006
036010
036012
036014
036016
036020
036024

000240

062716
105076
162716
010046
010146
010246
010346
010446
013746
013746

GET:

000004
000000
000004

;

000004
000006

36 036030
37 036034
38 036040
39 036044
40 036052

013700
012702
012704
012737
012737

001276
001336
001524
036152
000300

42 036066
43 036074

016037
032737

000000
004000

001176
001176

000004
000112

000016
000016

41 036060

016037

44 036102

001007

47 036120

000423

45 036104
46 036112

48 036122
49 036124
S50 036126
5T €36130

062766
112776

105714
100433
111401
042701

NOP

ADD
CLRB
SuB
MOV
MOV
MOV
MOV
MOV
MOV
MOV

000010

000004
000006

001174

1%:

MoV

MOV
BIT

BNE

ADD
MOVR =
3%:

177700

MOV
MOV
MOV
MOV
MOV

TSIB
BM]
MOVR
BI(

INDEX

#4,(SP)
a(SP)
#6,(SP)
RO,-(SP)
R1,-(SP)
R2,-(SP)
R3,-(SP)
R4 ,-(SP)
ERRVEC ,-(SP)
ERRVEL+2,-(SP)

;CLEAR ERROR NUMBER [N USER'S
;ERROR CALL
;:PUSH
2:PUSH
;:PUSH
;:PUSH
;:PUSH
. ;PUSH

$BASE ,RO
#GE TBUF ,R2

#GETINX,R4
#5%,ERRVEC
#PR6,ERRVE(C+2

RO ON STACK
R1 ON STACK
R2 ON STACK
R3 ON STACK
R4 ON STACK
ERRVEC ON STACK
;;PUSH ERRVE(C+2 ON STACK

;SETUP FOR TIMEOUT

RMCS2(R0O) ,$TMPO ;GET "NED'' STATUS

RMCS1(R0O),$TMP1
#DVA,STMP]
33
#4,16(SP)
#112,216(SP)
7$
(R4)
9%
(R4) ,RT
#*CIDXMSK R

:GET 'DVA"* STATUS
;DEVICE AVAILABLE??

YS!

;WRITE ERROR NUMBER [N USER'S
;ERROR CALL

;DONE??
S+ 48
;R1 = REGISTER ADDRESS
JCLEAR ANY SIGN EXTENSION

JRMNBC RMOS/3/2 FOTINL

£
7 SUBROUT INE

52 036136

53 036136
56 036140

TST 2

MACRD y0s.00

060001

112403
0427035

ADD

177700

060203
011113
000764

59 036152
60 0361564

(22626
062766

000004

000016

€2 036170

162766

000002

00001€

112776

o3 036176

105714

65 036202

005003

67 036206
68 036210

060203
005013

64 036200

66 036206

100405

000007

012637

06C000¢

012603

012637
012604

036230

012602

03623
71 036236

012600
000207

036232

5%:

(12601

00O

8%:

(SP)+,(SP)+
#4,16(SP)

SuB

#2,16(SP)

7S18

(R4)

;READ REGISTER

* ;RESTORE STA(K
JWRITE ERROR NUMRER [N
JUSER'S ERROR (ALL

JYES!!

MOVR

(R4)+,R3

;LOCATIONS

ADD
CLR

R2,R3
(R3)

MOV

(SP)+ ,ERRVE(C+?2

MOV

(SP)+,R3

MOV

MOV
RTS

.CLEAR REMAINING STORAGE

"
;:POP STACK INTO ERRVE(+2

(SP)+ ,ERRVEC
(SP)+,R4

2:POP STACK INTO ERRVEC
;sPOP STACK INTO R4

(SP)+,R2

::POP STACK INTO R2

(SP)+,R1

(SP)+ _,RC
PC
:

;DONE (LEARING??

MOV
MOV

#7 ,216(5P)

;R3 = STORAGE ADDRESS #OR REGICTIR
SCLEAR ANY SIGN EXTENSION

BMI]

9%:

R2,R3
(1), (R3)

(TMMP
ADD

MOVB

7%:

112403

36214

036226

000016

(R4&)+ ,R3
2~ IDXMSK ,R3

(LR

000771

0362?0
036224

&0 ,R1

MOVE
BIC

ADD
MOV

69 036212
70 036214

H 13

77:43:33 PAGE

55 036144
56 036146
2; 036150

61 036162

4-APR-81

;;POP STACK INTO R3
;:POP STACK INTO R

2;POP STACK INTO RO
;RE TURN

JHMNED

PUT

RMOS/3/2

BCTINL

TST

MAIRD

v04.00

4-APR-BT

SUBROUT
INE

.SBTTL
z

113
11:43:33

‘

WRITES

THE

LAST

"PUT

INDEX

"PUT REGISTER BUFFER'' CONTAINS

B8R

ERROR

JSR

NOP

PC,PUT
273

MUST

CONTENTS OF

VALUES

EACH

RETURN HERE IF NO ERROR FOUND
RETURN HERE

IF ANY ERROR fOUND

SUB DEF INES ERROR NUMBER

772

21"
22

;
*RO = REGISTER BASE ADDRESS

“R2 = BUFFER BASE ADDRESS

R4 = POINTER TO REGISTER

(200)

TABLE

TABLE'' HAS BEEN LOADED WITH INDEX

:
:

INDEX

OF REGISTERS TO BE WRITTEN.

;

THE

11E3)

VARIABLE:

ENTRY.

WHICH SHOULD

TERMINATED WITH A CONTROL BYTE

*SUBROUTINE CALL:

LISTED

SBE

REGISTERS WHICH ARE

THE CORRESPONDING
THE NUMBER OF

SFOLLOW

THE

S*PUT INDEX TABLE'' WITH
THE CONTENTS OF
SLOCATION IN THE "PUT REGISTER BUFFER''.

:REGISTERS WRITTEN

PUT SUBROUTINE

;THIS SUBROUTINE

4
g

PAGE

*R1 = REGISTER ADDRESS

*R3 = BUFFER ADDRESS

28 036240
29 036242
036244

000240
010046
010146

036254
036260
30 036264
31 036270
32 036274
33 036300
3, 036306

013746
013746
013700
012702

012704
012737
012737

36 036322
37 036330
38 036336
39 036340

016037
032737
001007
062766

41 0363564

000424

43 036360
44 036362
45 036364

100425
111401
042701

036246
036250
036252

35 036314

40 036346

42 036356

010246
010346
010446

016037

112776

000004
000006

000000
004000

001176
001176

000010

000004

000112

060001
111403
042703
060203

51 036404

105724

011311

NOP
MOV
MOV

MOV
MOV
MOV

000004
000006
001276
001412
001553
036410
000300

105714

46 036370
47 036372
48 036374
49 036400

50 036402

PUT:

0G1174

1%:

000016

000016
:

MOV
MOV
MOV
MOV
MOV
MOV
MOV

3$:

177700

177700
48:

INDEX

RO, =(SP)
R1.~(SP)

;:PUSH RO ON STACK
“:PUSH R1 ON STACK

#PUT INX . R4
#5$ , ERRVEC

;SETUP FOR TIMEQUT

R2.=(SP)
R3.-(SP)
R&.~(SP)
ERRVEC,=(SP)
ERRVEC+2,=(SP)
$BASE
, RO
#PUTBUF ,R2

#PR6ERRVEC+2

*:PUSH R2 ON STACK
“:PUSH R3 ON STACK
“:PUSH R4 ON STACK
::PUSH ERRVEC ON STACK
;:PUSH ERRVEC+2 ON STACK

MOV

RMCS2(R0) ,$TMPO ;GET 'NED'* STATUS

MOVB

#112.316(SP)

MOV
BIT
BNE
ADD
BR

TSTB

BMI
MOVB
BIC

RMCST(RO) ,$TMP1
#DVA, $TMP1
3%
#4,16(SP)
7%

*USER'S ERROR CALL

(R&)

:DONE
2?

9%
(R4) ,R]
#~CIDXMSK ,R1

JYES!!
*R1 = REGISTER ADDRESS
;CLEAR ANY SIGN EXTENSION

ADD
MOVR
BIC
ADD

RO,R1
(R4) ,R3
#*CIDXMSK,R3
R2,R3

1STR

(R&) +

MOV

:GET 'DVA'* STATUS
SDEVICE AVAILABLE??
:YES!!
“WRITE ERROR NUMBER IN

(R3) . (R1)

:R3 = STORAGE ADDRESS
:CLEAR ANY SIGN EXTENSION

;WRITE REGISTER

SADJUST REGISTER POINTER

JRMNBO RMOS/372 FOINL

PUT

SUBROUT INE

TST 2

000763

54 036410
55 036412
56 036420
gg 036426

022626
062766
112776
162766

000002

(12637
012637

000006
000004

036440
036444

012604

036446 7912603
036450

036452
036454
60 036456

v04.00

4-APR-B1

J 13

11:43:33 PAGE

SEQ 0165

52 036406

59 036434
036434

MACRO

012602

(12601
012600

000207

000016

00001¢

000016

5%:
7%:

9%:

B8R

(MP
ADD
MOVB
SuB8

#4,16(SP)
#7,916(SP)

MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTS

(SP)+,(SP)+

#2,16(SP)

(SP)+ ERRVE(+?2

(S2)+ ERRVEC

(SP) +,R4

(SP)+ ,R3

(SP)+ ,R2
(SP)
+ ,R1
(SP)+ RO

sADJUST STA(K
JWRITE ERROR NUMBER IN

JUSER'S ERROR CALL

;.POP STACK

INTO ERRVECe2

. +POP STACK INTO ERRVEC
. sPOP STACK INTGC R4

;sPOP STACK

INTO R3

. sPOP STACK

INTO RO

;:POP STACK INTO R2
+sPOP STACK INTO R1

sRETURN

JRMNBO RMOS/3/¢ FCTNL

MACRO

v04.00

4-APR-81

& SRR
vv

gO\NJ\&OOJ\O RRASRB

R X2
A3
o
3 n FARRAATN

.SBTTL
o j=lelelolelele] jelelololololelelsle)

b =

= OO0

YO N D NP

CLOCK SUBROUT INE

D) =D =d wd = ed md md e
(=] N0 NN D WA

S1JE

TST

‘036570
21 036574
22 036600

000004
000006
036526
000300
177546

000100
142774

022626
062766
012637
012637
000207

SIZ2CLK:

000004
000006
001520
001522

036560
172540
000104
142742

000004
001520
001522

000002

000004

000006
00C004

1%:

2%:
3%:

11:43:33

K 13
PAGE

SIZE CLOCK SUBROUTINE
MOV
MOV
MOV
MOV
MOV
MOV
TST
BR
CMP
MOV
MOV
MOV
TST
BR
CMP
ADD
MOV
MOV
RTS

ERRVEC,=(SP)
ERRVEC+2,-(SP)

;sPUSH ERRVEC ON STACK
;sPUSH ERRVE(C+2 ON STA(K

#177546, CLKADR

;LOAD ADDRESSES FOR KW1i-L

JYES = KW11=L

#1$ ,ERRVEC
#PRb , ERRVE
C +2

#100, CLKVCT
aCLKADR

(SP)+, (SP)+
#2% ,ERRVEC
#172540, CLKADR
#104
, CLKVCT
aCLKADR

JSET UP FOR BUS

TIMEOUT

sTEST FOR KW11=L PRESENT
IS PRESENT

;RESTORE SP
;SET UP FOR BUS TIMEOUT

;LOAD ADDRESSES FCR KW11=P CLOCK

(SP)+,(SP)+
#2,4(SP)

sTEST FOR KW11=P PRESENT
sYES = KW11=-P IS PRESENT
;RESTORE SP
;MOVE RETURN TO ERROR

(SP)+ ,ERRVE(C+?2
éEP)*.ERRVEC

;.POP STACK INTG ERRVE(+?2
;;POP STACK INTO ERRVEC

;JRETURN TO USER

_JRMNBO RMOS5/372 FCTINL
TIMEQUY SUBROUT INE

MACRO v04.00

R els JRNTe V. STUVT NN
e Y

—=OVRNOVHWN—=O

0] |

L 13

11:43:33 PAG E 23
SEQ

TIMEQUT

.SBTTL
sTHIS

SUBROUTINE

SUBFOUTINE WAITS FOR RDY =

AND GO = O OR FOR A

*GREATER T.'AN APPROX. 500 MSEC AND THEN RETURNS.

SCALL:

036626
036634
036640
036644
036650
036654
036656
036664

036670
036674
22 036700
23 036704
24 036706
25 036712
26 036714
27 036716
28 036720
2
30 036722
31 036724
32 036732
33 036740
34
35 036746
036746
036752
036756
036760
036762
36 036764

4-APR-B1

010046
010146
010246
013746
013746
012737
012737
013700
013701
012792
020127
001003
012761
012711
016046
042716
022726
001420
032711
001766
005302
001354
000412
022626
062766
112776
162766

012637
012637
012602
012601
012600
000207

TIMOUT:
000004
000006
036722
000300
001276
001520
000036
172540
000001
000005

000004
000006

000000

177576
000200

000006
000004

000012
000012
000012

MOV
MOV
MOV
MOV
MOV

RO,=-(SP)
R1,=(SP)
R2,~(SP)
ERRVEC,-(SP)

RETURN HERE

ERRVEC+2,~(SP)

;RO=BASE ADDRESS
sR1=CLOCK ADDRESS

;NO!!
;SET COUNTER

MoV
MoV

#1,2(R1)

3%:

MOV

4%:

#BIT2!BITO,
(R1)

;R2=NUMBER OF CLOCK CYCLES
;KW11=P CLOCK??
;START COUNTER

RMCS1(R0O) ,-(SP)

;GET STATUS

5%
#BI1T17,(R1)
3%
R2

2YES!!
;s TIMER DONE??
;NO!!
;DEC NUMBER OF CYCLES

#*C<RDY!GO>,
(SP)
#RDY, (SP)+
;RDY=1,G0=0?7?

-pourgyus IF_NOT DONE
RDY'*
DID NOT SET OR "'GO’'' DID NOT RESET
HITHIN 500 MSEC AFTER THE COMMAND WAS ISSUED.

CMP
ADD
MOVB

(SP)+,(SP)+
#4,12(SP)
#7,312(SP)
#2,12(SP)

ADJUST STACK

MOV
MOV
MoV

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

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

SUB

5%:

;:PUSH ERRVEC,
ON STACK

$BASE ,RO
CLKADR,R1

#PR6,ERRVEC+2

2%:

BIC
CMP
BEQ
BIT
BEQ
DEC
BNE
BR

:sPUSH R1 ON STACK
;sPUSH R2 ON STACK

s .PUSH ERRVEC+2 ON STACK
;SETUP FOR BUS TIMEOUT = 04 TRAP

#30. ,R2
R1,#172540

BNE

;sPUSH RO ON STACK

#4% ,ERRVEC

MOV
CMP

000200

000004
000007
000002

PC,TIMOUT

MOV
MOV
MoV
MOV

1%:

000002

JSR
222

TIMEOUT

MoV
RTS

(SP)+,R2

(SP)+,R1
(SP)+,R0O
PC

MOVE SP TO USER'S CALL

:URITE ERRGR NUMBER

;:POP STACK INTO R2

;;POP STACK INTO R1
;.POP STACK INTO RO
JRETURN TO USER

016,

CZRMNBO RMOS/3/2 FCTNL

FRROR CHECK SUBROUTINES

TST 2

MACRO v04.00

M 13

4-APR-81

11:43:33 PAGE 24

SEQ 016€

.SBTTL

ERROR CHECK SUBROUTINES

"SBTTL

PRIMARY ERROR CHECK SUBROUTINE

ot '.tt'fit.t'..".'.'.....Q'..Q.t.'.lQ..."Q'.Q'Q'.l"l"...t.'.'Q

:THE PURPOSE OF

“THAT

FURTHER

THIS SUBROUTINE IS TO VERIFY THAT STATUS IS VALID AND

ERROR

AND

STATUS

*FOLLOWING CHECKS ARE MADE:

SHOULD BE

PERFORMED.

THE

.CORRECT UNIT IS SELECTED, I.E., THE UNIT SELECT BITS OF RMCS2

S(BITS 0-2)

CHECKING

EQUAL THE UNIT BEING TESTED:

AND NED (BIT

.SELECTED UNIT IS AVAILABLE, I.E., DVA (BIT 11 OF RMCS1) IS SET

.LAST COMMAND WAS COMPLETED, I.E., THE MASSBUS CONTROLLER IS

16
17
}g

12 OF RMCS2)

IS RESET:

“READY (BIT 7 OF RMCS1) AND THE GO 81T 1S RESET (BIT O OF RMCST) OR THE
:DRIVE READY BIT (BIT 7 OF RMDS) IS SET.
1 B Mcgg PA81TY ERROR OCCURRED WHEN READING REMOTE REGISTERS,

~o PARITY ERROR OCCURRED WHEN WRITING REMOTE REGISTERS.,

sh:E.

Sts.

I-ms SUBROUTINE ASSUMES THAT:

= 0, OR, PAR
= DPE
= 1

27
Sg

*IN PARTICULAR, RMCST. RMCS AND RMDS HAVE BEEN STOREP IN THEIR
:CORRESPONDING LOCATIONS OF THE '‘GET'* BUFFER.

_STATUS HAS BEEN STORED IN THE REGISTER INPUT BUFFER.

.(SUNIT) CONTAINS THE DRIVE NUMBER

:THE SUBROUTINE IS CALLED AS FOLLOWS:

35
3

FTL
L ey
:
:

BR
NOP

JSR

2; 036766

PRIERR:

43
44 036766
45 036772
29 036776

062716 -000004
105076 000000
162716 000004

48
49 037002
50 037010
51 037016
§2 037024

013737
042737
013737
042737

001346
177770
001234
177770

001415
062716
112776

000004
000001

53 037032
54
§5 037040
56 037042
57 037046

123737

001140

ERROR

277

PC.PRIERR
273

PC.a(SP)+

:CLEAR USER'S ERROR CALL
ADD
#4, (SP)
CLRB
a(5P)
SUB
#4,(SP)
001142
001142
001140
001140

007142
;
.

000000

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEFINED BY SUB

GO BACK TC SUB FOR MORE ERROR CHECKS

RETURN HERE IF NO MORE ERRORS

:MOVE (SP) TO ERROR CALL
*CLEAR ERROR NUMBER
*MOVE (SP) TO NO ERROR RETURN

;REPORT AN ERROR IF THE WRONG UNIT IS SELECTED
MOV
RMCS21,$BDDAT
:CORRECT UNIT SELECTED??
BIC
#~CUNTMSK
, SBDDAT
MOV
$UNIT,$GDDAT
:GOOD DATA FOR TYPEOUT
BIC
#~CUNTMSK
, SGDDAT

CMPB

$GDDAT,$BDDAT

BEQ
ADD
MOVB

1%
#4, (SP)
#1.3(SP)

:;COMPARE EXPECTED AND RECEIVED
*DRIVE NUMBERS
TYES!!
:ERROR 1

CZRMNBO RMOS/3/2 FCTINL TST 2

PRIMARY ERROR CHECK SUBROUTINE

58 037054
59 037060
60 037062
61 037066
62 037070
63 037074
64
65
66
67 037074
68 037102
69 037104
70 037112
71

037120

72 037126
73 037132
74 037140
75 037146
76 037150
77 037156
78 037164
79 037172

80 037200
81 037204
82 037206
83 037212
84 037214
85 037216
88 037216
89 037224
90 037226

162776

004736
162716

000240
000137

032737
001045
013737
052737
013737
062716

112776
032737
001414
013737
013737
042737
112776
162716

004736
162716
000240
000575

032737
001030
013737
052737
042737
062716

WWU‘WW\#WWWWW
W

RO 2o38IRIRAR288

004736
162716
000240
000541

jslelelelelelelolelele]

) il

el ol ol il il il

D ol

112776
162716

000002

4-APR-81

N 13
11:43:33 PAGE 24-1

Sus

#2,(SP)

JSR

000010

SuB

#10, (SP)

sREPORT WRONG UNIT SELECTED

JMP

10%

;SKIP OTHER CHECKS

NOP

037610

1%-

032737
001431
032737
001025
013737
042737
013737
062716

112776
162716
004736

004000 ~ 001336

001336
004000
001336
000004
000002
010000
001346
001346
010000
000003
000002

2%:

58:

001336
000200

001140
001140
001140
001142

160001

001336
000004
000004
000002
000010

7%:

000001

001336

000200

001350

001336

001140
001140
001142

160001

001336
000004
000005
000002

000000

*EXPECTED STATUS

#2,a(SP)
#NED ,RM(CS21
2%
RMCS21,$GDDAT
RM(CS21,$BDDAT
#NED
, $GDDAT
#3,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

sERROR #2
;WAS NED SET??
;NO!!
JEXPECTED STATUS

108

;SKIP OTHER CHECKS

#4, (SP)

BIC
MOVB

SuB

JSR
Sus

BIT
BNE
MOV
BIS
BIC
MOV
ADD
MOVB
* SUB
JSR
SuB
NOP
BR

:egg;gs AVAILABLE??

RMCS11,$GDDAT
#DVA,$SGDDAT
RMCS11,$BDDAT

JREPORT AN ERROR

000000

IS NOT AVAILABLE

MOV
BIS
MOV
ADD
MOVB

NOP

001336

DEVICE

#DVA ,RMCS11I

BIT
BEQ
MOV
MOV

000010

000200

THE

;RESTORE (SP)

BIT

BNE

000000
001346
001140
001142
001140
000000

;THE DEVICE IS NONEXISTANT

001140
001140
001142

;MOVE SP TO RETURN FOR ERROR

PC,a(SP)+

;REPORT AN ERROR

013737

MACRO V04.00

JRECEIVED STATUS

;YES = CHANGE ERROR NUMBER

sMOVE SP TO RETURN FOR ERROR

JREPORT DEVICE NOT AVAILABLE
;RESTORE (SP)

MASSBUS CONTROLLER

IS NOT READY

#RDY ,RMCS11
s CONTROLLER READY??
7%
JYES!!
RMCS11,$GDDAT
JEXPECTED STATUS
#RDY
, $GDDAT
#SC!TRE
'MCPE ' GO, $GDDAT
RMCS11,$BDDAT
JRECEIVED STATUS
#4,(SP)
#4,2(SP)
;ERROR #4
#2,(SP)
;MOVE SP TO RETURN FOR ERROR
PC,a(SP)+
JREPORT CONTROLLER NOT READY
#10, (SP)
JRESTORE (SP)
10%

;SKIP OTHER CHECKS

;REPORT AN ERROR IF GO IS NOT ZERO AND DRY IS NOT ONE
BIT
#GO,RMCS1]
;GO RESET??
BEQ
BIT
BNE
MOV
BIC
MoV
ADD

8%
;YRSS
#DRY ,RMDS I
;DRIVE READY??
8%
¥ea:!
RMCS11,$GDDAT
;EXPECTED STATUS
#SC ! TRE !MCPE ! GO, $GDDAT
RMCS11,$BDDAT
JRECEIVED STATUS
#4, (SP)

JSR

PC.a(SP)+

MOVB
SUB

#5,a(SP)
#2,(SP)

;ERROR #5

;MOVE SP TO RETURN FOR ERROR
JREPORT DRIVE

NOT READY

CZRMNBC RMOS5/3/2 FCTNL

“RIMARY

ERROR

(HECK

115 037370

116 037374

117 037376

118 037400

1ST 2

SUBROUTINE

16276

000240
000504

MACRD

I3
By

SVFRRAIEY SN
333

123 037406
124 037410

000010
8%:

013737
062716
112776
162716

001336

001140
001140
001142

160001

#10,(5P)

;RESTORE (SP>

108

- W

37532
37534
37536
37540
37546

80
~n

~N N

—

CONTROL BUS
#MCPE ,RMCS1]
sPARITY ERROR ??

g?\cf

RMZS11,$GDDAT

BEQ

#13.3(SP)

000010

SUR

#10. (SP)

B8R

108

JSR

NOP

000010

001352

000010

001400

000010

0017426

001553
000014

000050
000002

000000

000010

RMCS11,$BDDAT
24, (SP)

SRECEIVED STATUS
sMOVE STACK TO USER'S ERROR

#2.(SP)

sMOVE SP TO RETURN FOR ERROR

PC.a(SP)+

BEQ
BIT

118
~
#DPE ,RMER? 1

BIT

#PAR ,RMER10

BNE

92%:

001140
001140
001142

;EXPECTED STATUS

;ERROR #13

;REPORT ERROR VIA USER

sRESTORE STAC(K

;REPORT AN ERROR IF DETECTED A CONTROL BUS PARITY ERROR
BIT
#PAR ,RMER1]
:&amsne A PARITY ERROR??

G1%:

001352
000010
- 001352

!
sNO:

#SC: TRE !MCPE ! GO, SGDDAT

000002

000010

BIT

MOV
ADD
MOVB
SUB

001336
000004
000013

037530

—
Y
NS

062737

02000C

7 037526

032737
001425
013737

wWwNWnN

DWW
nN—=ONO0

145 037520
146 037524

SuB
NOP
BR

;PARITY ON THE MASSBUS

5%:

143 037512
144 037514
OOYUYUYTUYUYLY
YUY Y B S D
W —=O VNN
NN —=0O V0

B 14

77:43:33 PAGE 24-2

;REPORTY AN ERROR IF THE RM (ONTROLLER DETECTED BAD

12¢ 037400

4&-APR-BT

SEQ 0170

119

120
121

v0&.00

93%:

BEQ
MOV
MOV

CMPB

BNE
MOV
BR

TSTB

BPL
MOV
MOV
BIC

MOV
ADD
MOVB
SUB
JSR

SuB

NOP

ADD

NOP
“RTS

118

93s
RO,-(SP)
#PUT
INX RO

#RMER1, (RO)

92%
(SP)+.RC
118
(RO)+

91%
(SP)+,R0
RMER1],$GDDAT

#PAR, $GDDAT

RMERT
], SBDDAT
#4, (SP)
#50,a(SP)
#2,(SP)
PC.@(SP)+

#10, (SP)

#10,(SP)
PC

*WAS
IT THE CONTROL BUS??
*NOT SURE!!
*DID TEST SET PAR 7?

INO!!

*:PUSH RO ON STACK
*RO POINTS TO INDEX TABLE
*SEARCH TABLE FOR RMER1

;:POP STACK INTO RO
;PAR WAS SET BY TEST
;END OF TABLE??
;NO!!
;:POP STACK INTO RO

SEXPECTED STATUS

JRECEIVED STATUS
sMOVE SP TO USER'S ERROR CALL
sWRITE

THE ERROR NUMBER

sMOVE SP TO RETURN FOR ERROR
;REPORT THE ERROR
;MOVE SP TO NO ERROR RETURN

JRETURN TO ERROR
JRETURN TO NO ERROR

CJRMNBU RMOS5/3/2 FCTINL

TST 2

O N I~ NN -

ECONDARY £RROR (HECK SUBROUTINE

MACRO v04.00

4-APR-B1

.SBTTL

C 14
11:43:33 PAGE 25

SECONDARY ERROR (HECK SUBROUT INE

:THE ERROR (HECK SUBROUTINE PRCVIDES DETECTION OF SECONDARY ERRORS
:SUCH AS UNEXPECTED ERRORS AND UNEXPECTED REGISTER CONTENTS. THESE
;ERRORS ARE DEEMED SECONDARY IN THAT THEY ARE NOT NECESSARILY
sASSOCIATED WITH THE OPERATION BEING PERFORMED.

NN = O 000

;WHEN THE

SUBROUTINE

IDENTIFIES SUCH AN ERROR,

IT MOVES THE ERROR

sNUMBER TO THE ERROR CALL IN THE TEST ROUTINE AND THEN RE TURNS

R
T T
—

;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 fOR

;OTHER ERRORS. WHEN ALL ERRORS HAVE BEEN REPORTED,

sRETURNS

OO NV

ICALL:

TO THE ADDRESS FOLLOWING THE

JSR

:
:

NOP
ERROR

273

PC,a(SP)+

THE SUBROUTINE

CALL.

RETURN HERE IF NO ERROR

RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEF INED BY SUB

GO BACK TO SUB FOR MORE ERROR CHECKS

21
55

JNOTE:
THE SUBROUTINE ASSUMES THAT REGISTERS HAVE BEEN STORED AT THE
;INPUT REGISTER BUFFER.

gg 037620

SECERR:

.-.-ttQtt'ttttt'tt.tt.t"t'.tt.!tttt'tfitt.ttltttt.'tttttl'tnttt't't

28 037620

29 037626

30 037634
31 037640
gg 037644

013737

001412

062716
105076
162716

000004
000000
000004

042737

RETURN HERE IF NO MORE ERRORS

:STORE FUNCTION CODE AND CLEAR USER'S ERROR NUMBER

043454

177701

27?2

PC,SECERR

SUBROUTINE

043454

MOV

RMCS10,515%

;STORE FUNCTION CODE

ADD
CLRB
sus

#4, (SP)
a(SP)
#4,(SP)

:MOVE (SP) TO ERROR CALL
:CLEAR ERROR NUMBER
;MOVE (SP) TO NO ERROR RETURN

BIC

#AC<FO'F1'F2'F3!F4>,515%

:;t!t'tttltt'tt.t.ttt't"'ttttl!t!t.tttttlt't'ttttt'ttttttttttt't

;»2

;CHECK SECONDARY ERRORS COMMON TO ALL COMMANDS

37
38 037650
39 037656
40 037660

_
032737

000200

001350

001024

013737

001350

001142

42 037674

012737

000200

001140

MOV

#DRY, SGDDAT

:GOOD DATA FOR TYPEOUT

44 037706
45 037714

112776
162716

000010
000002

000000

MOVB
SuB

#10,a(SP)
#2,(SP)

:ERROR NUMBER
:MOVE SP TO RETURN FOR ERROR

037666

43 037702

042737

062716

46 037720

004736

23 037726

000240

47 037722

177577

001142

000004

162716

000010

51 037730

032737

000001

001336

53 037740

013737

001336

001142

52 037736

54 037746
55 037754

gg 837760
37764

001423

042737
005037

177776
001140

112776

000011

062716

000004

;REPORT ERROR IF DRIVE IS NOT READY, I.E.. IF DRY = 0
BIT
#DRY ,RMDS |
:DRIVE READY??
BNE
5%
SYES!!
MOV
RMDS1,$BDDAT
:BAD DATA FOR TYPEOUT
BIC

ADD

JSR

;

001142
000CO0

SuB

NOP

#~CDRY, SBDDAT

#4, (SP)

PC,a(SP)+

#10, (SP)

:REPORT NOT READY

:RESTORE (SP) TO ERROR N

;REPORT ERROR IF GO BIT IS NOT RESET

5%:

BIT

BEQ

#G0,RMCS1]

:GO BIT RESET??

108

SYES!!

BIC
CLR

#~(GO,$BDDAT
$GDDAT

:GOOD DATA FOR TYPEOUT

MOVR

#11,3(SP)

;ERROR NUMBER

MOV
ADD

RMCS11,$8DDAT

#6, (SP)

:BAD DATA FOR TYPEQUT

CZRMNBO RMOS/3/2 FCTNL

TST 2

MACRD

v04.00

4~-APR-B1

SECONDARY ERROR (MECK SUBROUTINE

58 037772
55 037776

162716

004736
162716

000010

013737
042737
013737
023737
001413
062716

001336

000240

79 040066

80 040072
81 040076
82 040100
83 040104
84 040106
85 040114
86 040122
87 040130
88 040136
89 040140
90 040144

91 040152
92 040156
93 040160
94

rAnI338SR ws

—
e
e
D
—t
e

95
96
.
97
98 040164
99 040170
100 040174
101 040200
102 040202
103 040210

112776
162716

162716

000010

000240

SUB

001412
062716
112776
162716
004736

000004
000047
000002

000000

032737
001407
022737
052737
013737
042737
023737
001413
062716
112776

040272

004736

103003

162716

BEQ
ADD

001140

001352

000010

001350

000030

043454

040000
001336

001140
001142
001142
001142

000004
000014
000002

15%

#4,

(SP)

#12,3(5P)

JSR

PC,a(SP)+

NOP

#2,(SP)

#10, (SP)

READ FROM DEVICE

IS NOT

CORRECT

;1S FUNCTION CODE CORRECT??

;EXPECTED FUNCTION CODF
SVES!!

MOVE
'SP T0_RETURN FOR ERROR

JREPORT WRONG FUNCTION CODE
+RESTORE (SP)

sREPORT AN ERROR IF COMPOSITE ERROR IS SET AND NO OTHER
;ERRORS ARE SET, OR IF COMPOSITE ERROR IS NOT SET AND
:OTHER ERRORS ARE SET
CLR
$GDDAT
JEXPECT "ERR'' = 0
TST
RMER1]
;1S RMER1 = 0?2
BNE
208
,NO!!
TST
RMERZ21
;1S RMERZ = 0??
BEQ
25%
YES!!
20%:
BIS
#ERR, SGDDAT
:"ERR'' SOULD BE SET
25%:
MoV
RMDS]
, SBDDAT
BIC
#~CERR, $BDDAT
CMP
$GDDAT
, $BDDAT
;1S "ERR"' 0K??
308
BEQ
sYES!!
ADD
#4, (SP)
:MOVE SP TO USER'S ERROR
MOVB
#47.3(SP)
;WRITE ERROR NUMBER
SuB
#2,(SP)
sMOVE SP TO ERROR RETURN
JSR
PC,a(SP)+
JREPORT INVALID COMP ERROR
#10,(SP}
suB

MOV

040000

001140

FUNCTION CODE

RMCS11,$BDDAT
#~(76,$BDDAT
515%, $GDDAT
$BDDAT, SGDDAT

sMOVE SP TO RETURN FOR ERROR

JREPORT DEVICE NOT AVAILABLE
JRESTORE (SP)

SREPORT AN ERROR IF ''TRE''
IS SET AND NONE OF THE BITS WHICH SET
sTRE IS SET, OR IF TRE IS NOT SET AND ONE OR MORE BITS WHICH
SET TRE 15 SET
308:
CLR
$GDDAT
;EXPECT "“TRE'*= 0

001140
001346
000377

137777

MOVB
SuB

15%:

001140
001142
001142
001142

005037
013746
042726
001010

MOV
BiC
MOV
CMP

SuB

040000
001350
137777
001140

162716

108:

000000

001400

042737
023737

;REPORT ERROR

25-1

#10, (SP)

NOP

001142
001142
001140
001140

D 14
PAGE

#2,(SP)
PC.a(SP)+

SUB
JSR

005037
005737
001003
005737
001403
052737
013737

040212
040220
040222
040230
040236
040244
040252
040254
040260
040266

177701

043454
001142
000004
000012
000002

004736
75 040066

000002

11:43:33

000000

BIC
BNE
BIT
- BEQ
CMP
35%:
40%:

BHIS

RMCS21 ,-(SP)

#377.(SP)+
35%
#ERR ,RMDS |
40%
#SEARCH,515%

40%

BIS
MOV
BIC
CMP
BEQ

#TRE
, $GDDAT
RMCS11,$BDDAT
#*CTRE, $BDDAT
$GDDAT
, $BDDAT
45%

MOVRB
SuB

#14 ,3(SP)
#2,(5P)

ADD
JSR

#4, (SP)

PC,a(SP)+

:WAS DLT,

WCE,

UPE,

NED,

:¢g§7'nxr OR MDPE SET

NEM

E:S§:éxceprxo~ RECEIVED??
EHA§;DATA TRANSFERRED??

sNO:!
;"'TRE"" SHOULD BE

SET

;BAD DATA FOR TYPECUT

- ;1S ""TRE'" 0K??
YES!!

sMOVE SP TO USER'S ERROR CALL
JWRITE

ERROR NUMBER

;MOVE SP TO RETURN FOR ERROR
;REPORT TRE ERROR

(ZRMNBO RMOS/3/2 FCINL TST 2
MACRD v04.00
SECONDARY ERROR CHECK SUBROUTINE

BIFRE WN
= OO NN
NN =DV \l(-;

NN WINNININI
NN NN PPN = = e s

162776

000240

000010

45%:

s
e
D wd wd

d ol

010046
013700
016037
012600

043454

064566

043446

NN —

25-2

#10,(SP)

SRESTORE (SP)

USING THE FUNCTION CODE

TABLE,

DWRITE

COMMAND

CHECK FOR THE FOLLOUING ERRORS :
SET, E.G ., ATA AND ILF
.STATUS BITS SET THAT SHOULD NOT BE SET, E.G., WCE AND E(H
NOTE THAT SOME ERROR BITS ARE CONDITIONAL ON THE COMMAND AND OTHER
;STATUS CONDITIONS, E.G., WRITE LOCK ERROR SHOULD ONLY BE SET IF
.STATUS BITS NOT SET

LOCK IS ON AND THE

GET AND STORE
MOV
MOV
MOV
MOV

THAT SHOULD BE

IS A WRITE.

THE ENTRY FROM THE FUNCTION CODE TABLE
RO,=(SP)
;:PUSH RO ON STACK

515%,R0

JGET FUNCTION CODE

(SP)+,R0

;:POP STACK INTO RO

FNCDTB(R0) ,5008 :STORE

ENTRY

;REPORT AN ERROR IF AN UNEXPECTED ATTENTION OCCURRED OR IF

WM
= OV~

SuB
NOP

040374
040376
040402
040410
040414
040416
040422
040424

013737
032737
001403
052737
042737
013737
042737
023737

001413
062716

100000

162716

000010

000240

50%:

SET AND SHOULD BE

BIT
BEGC
BIS
BIC

MOV

BIC
MP
BEQ

000004
000006

000002

IS NOT

MOV

077777
001350
077777
001140

112776
162716

004736

sATA

043446
040000

ADD

55%:

MOvB
SuB
JSR
SuB
NOP

SREPORT ERROR IF

040424
040432
040440
040446
040454
040462
040464

040470
040476
040502
040504
040510

167
168 040514

169 040520

[ ——

E 14

11:43:33 PAGE

...I...'..Q"......""'....'..'.'.".'."'...t..'".""Q"'l'

d e
e

S
O

—

ol et vl

el el ot ol il e ol —

g2OOOSM\nmmmmmmm

143
144
145
146
147
148
149
150

4-APR-81

170 040524
171 040532

013737
042737
013737
042737
023737

001412
062716
112776
162716

004736
162716
005037

013746
052716
013737
042637

043446

001352

001140
001140
001142
001142
001142

000004
000254
000002

000000

177776

177776
00114C

137777

001346
001142

#4,(SP)
#6,9(SP)

#2,(SP)
PC.a(SP)+
#10, (SP)

ILF

MOVB

#254.3(SP)

SUB
SUB
CLR

MOV
BIS
MOV
BIC

SET.

;GET EXPECTED ATA STATUS
:fig GQHPOSITE ERROR SET ?2?
JEXPECT AN ATTENTION
:STRIP DONT CARES
;GET RECEIVED ATA
;STRIP DONT CARES
;IS ATA OK ??
s !
sMOVE SP TO USERS ERROR CALL
;LOAD ERROR # IN CALL
sMOVE SP TO ERROR RETURN

sREPORT ERROR

;RESTORE SP

IS INCORRECT,

500%
, SGDDAT
#~CILF,SGDDAT
RMER1] ,$BDDAT
#~CILF ,$BDDAT
$GDDAT. $BDDAT
60%

;REPORT AN ERROR

001142

$GDDAT ,$BDDAT
55%

MOV
BIC
MOV
BIC
MP
BEQ
ADD

608 :

043446

#*CATA ,SGDDAT
RMDS] ,$BDDAT
#*CATA,SBDDAT

;WITH FUNCTION CODE TABLE

JSR

000010
001140

5008, $GDDAT
#ERR ,RMDS |
508
#ATA, SGDDAT

#4,(SP)

#2,(5P)

PC,S(SP)f

#10, (SP)
$GDDAT
IF WCE

I1.E..,

ILF

sGET EXPECTED ILF
;CLEAR ALL OTHER BITS
;GET RECEIVED ILF
;CLEAR ALL OTHER BITS
39 ¥ Ok 2
sYEs !
;MOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER IN CALL
:MOVE SP TO ERROR RETURN
;REPORT ERROR AND RETURN
sMOVE SP TO NO ERROR
;CLEAR EXPECTED STATUS

IS SET AND SHOULD NOT BE

5008 ,~(SP)
#*(WCE, (SP)
RMCS21
. $BDDAT
(SP)+ ,$BDDAT

DOES NOT COMPARE

SET

JGET WCE STATUS ENABLE
sSET ALL OTHER BITS
sRECEIVED STATUS
;CLEAR WCE IF ENABLED

“JRMNBO RMOS/3/2 FCTINL TST 2
MACRO
SECONDARY ERROR (HWECK SUBROUTINE

172 040536
173 040540

001472
062716

175 040552

162716

176 040566

176 040556
177 040560

112776

(00004

000026

000002

004736
162716

000010

187 040564

013746

043446

183 040574

013737
042637

001352
001142

112776

000164

178 040564

179
180

182 040576

052716

165 040606
186 040610

001412
062716

188 040622

162716

189 040626

190 040630

191 C40634
192
193
194

195 040634
196 040640

004736

162716

000002

BEQ

000000

043446
000100

042716
052716

010000
167777

200 040660
201 040666
202 040672

013737
042637
001412

204 040700
205 040706
206 040712
207 040714
208 040720
209
210
n
212
213
214
215

112776
162716
004736
162716

062716

001400
001142

000004

000165
000002

219

220 040720
221 040724
222 040732
22% 040734
224 040742
225 040744
226 04075C
227 040756
228 040762

90%

JBRANCH [F WCE OK
sMOVE SP TO USER'S ERROR (ALL

SuB

#2,(SP)

;MOVE SP TO ERROR RETURN

#26,3(SP)

MOV
BIS
MOV

BIC

OP]

STATUS

ADD

#4, (SP)

#164 ,8(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

100%:
IF

IVC

IS SET AND

JSET AND VV IS NOT RESET
MOv

001350

001142

000010

:
2

004000

001350

004000
001352
001142

001142

;REPORT

ERROR

;JRESTORE SP

IS NOT ENABLED OR IF

IvC

105%
#IvC, (SP)

Lo
SR
;YES = IvC SHOULD BE 0

1VC STATUS ENABLE

JSET ALL OTHER BITS

BIC
BEQ

(SP) + ,$BDDAT
110%

;CLEAR IVC IF ENABLED
;BRANCH IF IVC OK

MOVR

#165,a(5P)

sWRITE ERROR NUMBER IN CALL

JSR

PC,a(SP)+

;REPORT ERROR

#4, (SP)

#2,(SP)

#10,(5P)

(WLE) OF

WRITE

=1$ ¥V SEY

;GET RECEIVED STATUS

:MOVE

;MOVE SP TO ERROR RETURN

JRESTORE SP TO NO ERROR

THE FUNCTION CODE

ERRORS,

SP TC USERS ERROR CALL

TABLE

IS THE ENABLING BIT FOR

!.E..

RMER1 - WLE, WCF
RMER2 - DPE

JEACH OF

043446

IN CALL

SP TO ERROR RETURN

JGET

“

RM(CS2 ~ UPE.

THESE ERRORS IS CHECKED TO SEE

;WRITE ERROR ENABLE BIT

177777
004000

;MOVE

5008 ,~(SP)

RMERZ2] , $BDDAT

SuUB
171

;WRITE ERROR NUMBER

#*CIVC, (SP)

SUB

ALL

;GET OPI STATUS ENABLE
;SET ALL OTHER BITS
;GET RECEIVED STATUS
;CLEAR OP] IF ENABLED
;BRANCH IF OPI Ok
;MOVE SP TO USER'S ERROR CALL

BIS

ADD

1108

SFT

#VV ,RMDS]

MOV

000000

SET AND SHOULD NOT BE

BIT

BEQ
BIC

105%:

;JBIT

012746
032737
001404
(32737
001002
042716
013737
042637
007412

5008,~(SP)
#*COPI1, (SP)
RMER11,$BDDAT

100%

MOVR
SUR
JSR

sRESTORE ERROR

(SP)+ ,$BDDAT

BEQ

ERROR NUMBER

;REPORT ERROR

#10,(SP)

JREPORT ERROR

000000

JWRITE

PC,a(SP)+

SUB

001142

SEG 0174

#4,(SP)

mMOvB

90%:

216

217
218

ADD

JSR

000010

013746
032737

001402

205 040674

000004

4-APR-81 11:43:33 PAGE 25-3

sREPORT ERROR

197 040646

198 040650
199 040654

157777

v04.00

IS RESET.

IF AN ERROR IS SET WHEN THF

sREPORT AN ERROR [F WLE IS SET AND WRITE ERRORS ARE NOT ENABLED, OR IF
sTHE DRIVE IS NOT WRITE PROTECTED
MOV
#-1,-(SP)
JASSUME WRITE ERRORS ENABLED
BIT
#ULE,S5008
JARE WRITE ERRORS ENABLED ??

BEQC

115%

BIT
115%:

120%:

#WRL ,RMDS |

BNE

. BiL

MOV
BIC
BEG

120%

#WLE, (SP)

RMER1I,$BDDAT
(SP)+ ,$8DDAT
125%

ND 1

;1S THE DRIVE WRITE PROTECTED 2?

SYES

JRESET WLE

ENABLE

;GET RECEJVED STATUS
JCLEAR WLE IF ENABLED
JBRANCH [F WLE OK

JRMNBO RMOS/3/72 FCINL

£ CONDARY

TST 2

ERROR (HECK SUBROUT
INE

229
230 040770

231 040776
232 041002
233
041004
234 041010
235
é3%
237 061010
238 041014
239 041022
240 041024
241 041030
242 041036

263 041042

244 041046
245 041050
246 041056

247 041062
248 041064

249 041070
250

06276
112776

162716
004736
162716

012746
032737
001002
042716
013737
042637
001412
062716
112776
162716
004736
162716

000004
000023
000002

MACRDO v04.0C

000040
001352
001742
000004
000025
000002

001142

000000

001142

275 041210
276 041216

112776
162716

000004
000024
000002

000000

043446

000010

282 041230
283 041934
284 041240
285 041046

013746
052716
013737
042637

043446
175777
001352
001142

281

#2,(SP)
PC,a(SP)+

sMOVE SP TO ERROR RETURN
JREPORT ERROR AND RETURN

;ASSUME

#u £, 5008
1308

#CF , (SP)
RMERTI,$BDDAT
(SP)+,$BDDAT

1358

ADD

#4,

SUB

#2,(SP)

SUB

#10, (SP)

140%:

MOV
BIT
BNE
BIC
MOV
BIC
BEQ

(SP)

PC,a(SP)+

145%:

SuB

*DISABLE WCF ERROR
-GET RECEIVED STATUS
-RESET WCF IF ENABLED

*BRANCH IF WCF OK

SP TO USERS ERROR CALL

*MOVE SP TO ERROR RETURN
*REPORT ERROR

*RESTORE SP TO NO ERROR

IS SET AND
#-1,-(SP)
#WLE 5008
1408
#DPE, (SP)
RMERZI ,$BDDAT
(SP)+ ,$BDDAT
145%

JSR

ERRORS ENABLED

:WRITE ERROR NUMBER IN CAL.

PC.R(SP)+

#4,(SP)
#40,3(SP)

WRITE

*ARE WRITE ERRORS ENABLED 7?
SYES !

*MOVE

#25.3(SP)

ADD
MOVB

SUB

SP 10 NO ERROR

IS SET AND WRITE ERRORS ARE NOT ENABLED

#-1,=(5P)

. REPORT ERROR IF DPE

000000

000010

BIC
MOV
BIC

MOVB
135%:

000004
000040
000002

004736
162716

JRESTORE

JSR

001142

277 041222
278 041204
279 041230
280

#10,(5P)

BEQ

020000
001346
001142

001412
062716

SUB

BIT
BNE

130%:

sMOVE SP TO USERS FRRCR (ALL

sWRITE ERROR NUMBER IN CALL

MOV

043446

012746
032737
001002
042716
013737
042637

273 041202
274 041204

84 ,(5P)

#2%,3(5P)

sREPORT ERROR IF WCF

000010
001400
001142

177777
004000

29-¢

MOVB
SuB
JSR

125%:

000010

177777
004000

ADD

000000

251
252 041070
¢53 041074
254 041102
255 041104
256 041110
257 041116
258 041122
259 041124
260 061130
261 041136
262 041142
263 041144
264 041150
265
266
267 041150
268 041154
269 041162
270 041164
271 041170
272 041176

012746
032737
001002
042716
013737
042637
001412
062716
112776
162716
004736
162716

G 14

17:43:3%3 PAGE

000010

177777
004000

4-aPR-B1

#2,(SP)

WRITE ERRORS ARE NOT ENABLED
;JASSUME WRITE ERRORS ARE ENABLED
;ARE WRITE ERRORS ENABLED ??
2¥eS 0!
*
JRESET DPE ENABLE
;GET RECEIVED STATUS
JRESET DPE IF ENABLED
;BRANCH IF DPE OK
sMOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER IN CALL

sMOVE SP TO ERROR RETURN

;REPORT ERROR

#10, (SP)

;RESTORE

SP TO NO ERROR

;REPORT AN ERROR IF UPE IS SET AND WRITE ERRCRS ARE NOT ENABLED
MOV

043446

BIT
BNE
1508
:

BIC

MOV

BiC

BEQ
ADD

155%:
JREPORT

001142

MOvB
SUB
JSR
SUB
AN ERROR

MOV

= {SP)

JASSUME WRITE ERRORS ARE ENABLED

#WLE , 5008
1508

#UPE , (SP)

RMCS2I,$BDDAT
(SP)+,$BDDAT

155%

#4,(SP)

;MOVE

#24 ,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)
iF

IAE

5008,~-(SP)

SP TO USERS ERROR CALL

;WRITE ERROR NUMBER IN CALL
:MOVE SP TO ERROR RETURN
;REPORT ERROR AND RETURN
;MOVE SP TO NO ERROR
SET

BIS

#*(IAE, (SP)

BiC

(SP)+, SBDDAT

MOV

;ARE WRITE ERRORS ENABLED ??
(Y3
;DISABLE UPE ERROR
;GET RECEIVED STATUS
;RESET UPE IF ENABLED
;BRANCH IF UPE OK

RMER1],$BDDAT

AND

IS NOT

ENABLED

;GET IAE ENABLE

sSET ALL OTHER BITS

:GET RECEIVED STATUS

;CLEAR

ENASLED

(RMNBU RMOS/372 F( T

4-APR-81

15T 2
ERROR (HECK SUBROUTINE

Sk "ONDARY

001472

062716
112776

(00006
000166
000002

162716

000010

162716
004736

H 14
11:43:33 PAGE 25-S

8EC

1608

ADD

000000

MOVE
SUB
JSR
160%:

SUB

RMDS

:
INOTE

S S8

Nry —
OOV

(ieielelelololelels]

AN LA
N N W NN O
R e NN
N

41304
1312
1314

1320
1326
1332
1334
1340
1346
1352

AT T

SEE

NSO

JEE

RRRRRERER

1400

RER

Py =30

FEE N

NN A L

RS O

NN N NN N N
N

321 041354
322 041360
323
324
325 041360
326 041364
327 041372
328 041374

012746
032737
001002
042716

013737

042637
001412
062716

177777

RMER1

043446

100000
001346
001142

001142

000004

112776
162716

000032
000002

162716

000010

012746
032737
001002
042716
013737
042637
001412
062716
112776

177777
001000

004736

TRE

MOV

BIT

;REPORT

043446

000004
000167
000002

000000

000010

IS SET

AND READ/WRITE

ERRORS ARE NOT ENABLED

:ASSUME ERRORS ARE ENABLED

-GET RECEIVED STATUS
*CLEAR DLT IF ENABLED

ADD

#4,(SP)

:MOVE

PC.a(SP)+

*REPORT ERROR AND RETURN

165%
#DLT, (SP)

170%

#32.3(SP)
#2.(SP)

SUB

ERROR

BIC
MOV
BIC
BEQ

MOVB
SUR
JSR
SUR

#10, (SP)
IF

MoV

BIT
BNE

ERRORS

ENABLED

SYES !
*RESET DLT ENABLE

*BRANCH IF DLT IS OK

SP TO USERS ERROR CALL

SWRITE ERROR NUMBER IN CALL
*MOVE SP TO ERROR RETURN
:MOVE SP TO NO ERROR

NEM IS SET AND READ/WRITE

#-1,-(5P)
#AQE , 5008

ERRORS ARE NOT

;ASSUME ERRORS ARE ENABLED
:ARE ERRORS ENABLED ??

ENABLED

175%

SYES

#4,(SP)

*MOVE

SP TO USERS ERROR CALL

#NEM, (SP)
RMCS2],$8DDAT
(SP)+,$8DDAT
180$

#167.a(SP)
#2,(SP)
PC.a(SP)+
#10, (SP)

;REPORT ERROR [F MXF

043446

DLT

#-1,-(SP)

RMCS2],$BDDAT
(SP) +,$BDDAT

MOV
BIT

DESIRED

IF LBT IS NOT ALSO SET

MOV
BIC

ADD

180%:

IT ONLY RESETS WHEN THE

:ARE

BNE

175%:

1S THE ENABLING BIT FOR

#AQE , 5008

BNE
BIC

MOVB
SUB
170%:

TABLE

IS CHECKED AS A FUNCTION OF OTHER ERROR CONDITONS ABOVE

JSR

001142

001000

BEQ

004000
001346
001142

177277

AOE CANNOT BE SET

000000

CALL

=~ LAT

165%:

ERROR

= AOE

;REPORT AN ERROR

001000

IS OK

RMCS2 = DLT,NEM,MXF

:
LBT IS NOT CHECKED BECAUSE
gS%éNDER REGISTER IS WRITTEN

309
310 041300

IAE

TO USERS

*MOVE SP TO NO ERROR

THE FUNCTION CODE

RM(CS1 - TRE

‘WRITE ERROR NUMBER
*MOVE SP TO ERROR RETURN
SREPORT ERROR AND RE TURN

#10, (SP)

s
.

SMOVE

#166.a(SP)
#2,(5P)
PC.a(SP)+

;BIT 09 (AODE) OF

:BRANCH IF

#4, (SP)

*DISABLE NEM
:GET RECEIVED STATUS
:CLEAR NEM IF ENABLED
:BRANCH IF NEM IS OK

“WRITE ERROR NUMBER IN CALL
*MOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN
*MOVE SP TO NO ERROR

IS SET AND READ/WRITE ERRORS ARE NOT ENABLED

#=1,~(SP)

#A0E ,500%
185%

;ASSUME

ERRORS ARE ENABLED

;JARE DATA ERRORS ENABLED 2?7
SYES. T

JRMNBO RMOS/3/2 FCINL

tCONDARY

TST 2

ERROR CHECK SUBROUT INE

343 041454

34 061460

042716

013737

001000

(C01346

001142

345 041466
U6 0641472
347 041474

042637
001412
062716

000004

349 041506

162716

000002

162716

000010

012746
032737
001404

177777
001000

043446

002000

001350

3,8 041500

250 041512

251 041514

ggg 041520

254,

355 041520
356 041526
357 041532

258 041534

112776

004736

032737

359 041542
260 041544
341 041550
362 041556
263 061562
364 041564
365 041570

001002
042716
013737
042637
001412
062716
112776

367 041602
368 041604
;gg 041610

(004736
162716

366 041576

162716

001142

MACRD vO&.00

000033

001000
001352
001142
000004
000020

000002

000000

BIC

MOV
BIC
BEQ
ADD

MmovE
1908 :

114

:43:33% PAGE 25-6

#MXF , (SP)

RHCSéI.‘BDDM
(SP)+,$BDDAT
1908
24, (SP)

#33.a(5P)

SuUB

#2,(5P)

SUB

#10, (5P)

JSR

PC,a(SP)+

:DISABLE MXF ERROR

sGET RECEIVED STATUS

:CLEAR MXF If ENABLED
*BRANCH IF MXF IS OK
*MOVE SP TO USERS ERROR (ALL

:WRITE ERROR NUMBER IN CALL

‘

;MOVE SP TO ERROR RETURN

JREPORT ERROR AND RETURN

*MOVE SP TO NC ERROR

;REPORT ERROR IF AOE IS SFT AND DATA ERRORS ARE NOT ENABLED

001142

000010

MOV
8IT
BEQ

#-1,-(5P)
#AOE , 5008
i91%

:ASSUME DATA ERRORS ARE ENABLED
:ARE DATA ERRORS EANBLED 77
JNO !!

BNE
BIC
MOV
BIC
BEQ
ADD
MOvB

195%
#AOE , (SP)
RMERTI,$BDDAT
(SP) +,$BDDAT
200%
#4,(SP)
#20.3(SP)

SYES 1!
:DISABLE AOE
:GET RECEIVED STATUS
sCLEAR AOE I[F ENABLED
*BRANCH IF AOE IS OK
;MOVE SP TO USERS ERROR CALL
*WRITE ERROR NUMBER

JSR
SuUB

PC,a(SP)+
#10, (SP)
:

BIT
191%:
195%:

000000

SUB

2008 :

371
372
373

#LBT ,RMDS !

#2.,(SP)

*1S LBT ALSO SET ??

“MOVE SP TO ERROR RETURN

;REPORT ERROR AND RET!RN
sMOVE SP TO NO ERROR

;BIT 07 (HCE) OF THE FUNCTION CODE TABLE
*HEADER ERRORS, I.E..
:
RMER] - HCRC.HCE.FER

;;g

376

377 041610

378 041616
379 041620
;g? 041626

032737

001403
042737

002000

001370

000200

043446

382
383 041626

012746

385 041640
386 041642
387 041646
388 041654

001002
042716
013737
042637

000200

043446

000400
001352
001142

001142

390 041662

062716

000004

384 041632

389 041660

391 041666

292
393
394
ggg

15°%:

L-aPbR-E?

041674
041700
041702
041706

397
398 041706
399 041712

032737

001412

112776

162716
004736
162716

012746

032737

177777

000035

000002

000200

8I1

BEQ
BIC

BIT

205%:

BNE
BIC
MOV
BIC
ADD

000000

MOVR

2108:

043446

(HMCE)

#HC ], RMOF

201%
#HCE , 5008

IF HEADER COMPARE INMIBIT IS SET

;IS HCI SET 2?2

INO !
*YES - DISABLE ALL HEADER ERRORS

;REPORT AN ERROR IF MCRC IS SET AND HEADER ERRORS ARE NOT ENABLED
MOV
#-1,-(SP)
:ASSUME ERRORS ENABLED

BEQ

000010

177777

RMER2 - BSE

;RESET THE ENABLING BIT

201$:

IS THE ENABLING BIT FOR

SUB
JSR
SUB

#HCE, 5008

*ARE HEADER ERRORS ENABLED 2?2

205%
#HCRC, (SP)
RMER1],$BDDAT
(SP)+,$BDDAT

SYES ')
*DISABLE HCRC
:GET RECEIVED STATUS
:RESET HCRC IF ENABLED

#4 . (SP)

*MOVE SP TO USERS ERROR CALL

2108

#35,3(SP)

#2.(SP)
PC.a(SP)+
#10, (SP)

*BRANCH IF HCRC

IS OK

*WRITE ERROR NUMBER IN CALL
*MOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN
*MOVE SP TO NO ERROR

;REPORT ERROR IF HCE IS SET AND HEADER ERRORS ARE NOT ENABLED
MoV
#=1,-(SP)
;ASSUME ERRORS ENABLED
BIT

#HCE, 5008

“ARE ERRORS ENABLED 72

JRMNBO RMOS5/3/2 FCINL

1ST 2

SECONDARY ERROR CMECK SUBROUT INE
400 041720

401

061722

403
404
405
406
407
408
409
410

061734
0417640
041742
061746
061754
0641760
041762
061766

402 041726

411

412
413 041766
414 041772
415 042000
416 042002
417 042006
418 042014
419 (042020
420 042022
421 062026
4622 042034
423 042040

424 0642042

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

042046

0462046
042052
042060
042062
042066
042074
042100
042102
042106
042114
042120
042122

440 042126
441
642

001002

042716

013737

042637
001472
062716
112776
162716
004736
162716

012746
032737
001002
042716
013737
042637
001412
062716
112776
162716
004736
162716

012746
032737
001002
042716
013737
042637
001412
062716
112776
162716

004736

162716

¢00200
001352
001142
000004
000036
000002

MACRDO VO4.00

001142

:
2208

043446

000020
001352
001142

001142

000004
000037
000002

000000

#36,3(SP)
#2,(SP)

2208

BIT
BNE
225%:

#4,(SP)

JSR
SUS

MOV

BIC

MOV
BIC

PC,a(SP)+
#10,(SP)

FER

043446

100000
001400
001142

001142

000004
000354
000002

000000

235%:

;DISABLE FER
;GET RECEIVED STATUS

RMERT
1, $BDDAT
(SP)+,$BDDAT

2308

#2,(SP)

(SP)

#37,3(SP)
PC,a(SP)+

#10, (SP)

#=1,=-(SP)
#HCE, 5008

8IC
MOV
BIC
8EQ
ADD

#8SE
, (SP)
RMER21
, $BDDAT
(SP)+,$BDDAT
2408
#4, (SP)

SUB

42, (SP)

JSR

000010

240%:

JRESET FER IF

ENABLED

;BRANCH IF FER OK
sMOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER

IN CALL

;MOVE SP TO ERROR RETURN

;REPORT ERROR AND RETURN

sMOVE SP TO NO ERROR

IS SET AND HEADER ERRORS ARE NOT ENABLED
;ASSUME ERRORS ENABLED

MOV
BIT

MOVB

JMOVE SP TO NO ERROR

#FER, (SP)

SuB

BNE

JMOVE SP TO ERROR RETURN

;REPORT ERROR AND RETURN

JASSUME FER IS ENABLED
:cgg figADER ERRORS ENABLED 27

#HCE ,500%
225%

JREPORT ERROR IF BSE

000200

JWRITE ERROR NUMBER IN CALL

IS SET AND HEADER ERRORS ARE NOT ENABLED

#4,

SUB

Vs !
;DISABLE HCE
sGET RECEIVED STATUS
sCLEAR HCE IF ENABLED
sBRANCH IF HCE IS OK
sMOVE SP TO USERS ERROR CALL

#=1,-(SP)

ADD

MOVB
2308:

235%

#354.a(SP)
PC.R(SP)+
#10, (SP)

JARE

THEY ENABLED

YRS !
;DISABLE BSE
;GET RECEIVED STATUS
;CLEAR BSE IF ENABLED
;BRANCH IF BSE 0K
;MOVE SP TO USERS ERROR CALL
;WRITE ERRGCR NUMBER

;MOVE SP TO ERROR RETURN

sREPORT ERROR AND RETURN

;MOVE SP TO NO ERROR

;BIT 06 OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR DATA
sFIELD ERRORS, I.E.
:
RMCS2 - MDPE

444

JNOTE:

RMER1

6
7

177777
000100

454 062142
455 042146
456 042154

6
7
7

000400
001346
001142

043446
001142

- DCK,ECH

ECH CANNOT SET UNLESS IT

sDCEK 1§ SET.

451 042126

452 042132
453 042140

MOVB
SUB

JSR

443

445
446
447
448
449
450

215%
#HCE
, (SP)
RMER1]1,$BDDAT
(SP)+,$BDDAT

BEQ

000010

1772777

BNE
BIC
MOV
BIC
BEQ

;REPORT ERKGR

000200

J1 &
11:43%3:33% PAGE 2 5=7

ADD

000000

000010

177777

215%:

4-APR-B1

IS ENABLED AND ECI

IS RESET AND

JREPCORT FRROR IF MDPE IS SET AND IS NOT ENABLED
#-1,-(SP)
MOV
;ASSUME ENABLED
BIT
#ECH,500%
;¢?g ?eTA FIELD ERRORS ENABLED ??
BNE
245%
BIC
#MDPE
, (SP)
*DISBALE MDPE
245%:
MOV
RM(SZ21,3BDDAT
‘GET RECEIVED STATUS
BI{
(SP)+,$BDDAT
*CLEAR MDPE IF ENABLED

“JRMNBO RMOS5/3/2 FCINL

TST 2

SECONDARY ERROR (MECK SUBROUT INE
457 042160

001472

458 042162
459 042166

062716
112776

461 062200
462 042202
463 042206
464
.
465
466 042206
467 042212
468 042220
469 042222
470 042226
471 042234
472 042240
473 042242
474 042246
475 042254
476 042260
477 042262
478 042266
479
480
481
482
483
484 042266
485 042272
486 042300
487 042302
488 042310
489 042312

004736
162716

000010

012746
032737

177777
000100

013737
042637

001352
001142

112776
162716
004736
162716

000030
000002

460 042174

490 042320
491 042322
492 042326
493 042334
494 042340
495 042342
496 042346
497 042354
498 042360
499 042362
500 042366

162716

001002
042716

001412
062716

(00004
000027

000002

100000

000004

MACRO v04.00

K 14

11:43:33 PAGE

25-8

SEQ 0179

BEQ

2508

ADD

#4,

MOVB

000000

#27,3(SP)

SUR

#2,(SP)

SuB

#10, (SP)

PC.a(SP)+

JSR

250%:

043446
001142

sREPORT FRROR
MOV

255%:

000010

260%:

DCK

:MOVE SP TO NO ERROR

1S SET AND DATA FIELD ERRORS ARE NOT ENABLED

#ECH, 5008
255%
#DCK, (SP)
RMER11,$BDDAT
(SP)
+, $BDDAT
2608

MovB
SUR

#30,3(SP)
#2,(SP)

JSR
SUB

JREPORT ERROR AND RE TURN

;ASSUME ENABLED
JARE THEY ENABLED ??
SYRS L
;DISABLE DCK
JGET RECEIVED STATUS
;CLEAR DCK IF ENABLED
;BRANCH IF DCK IS OK
;JMOVE SP TO USERS ERROR CALL
JWRITE ERROR NUMBER IN CALL
;MOVE SP TO ERROR RETURN
.REPORT ERROR AND RETURN
sMOVE SP TO NO ERROR

#=1,-(SP)

BIT
BNE
BIC
MOV
BIC
BEQ
ADD

000000

;BRANCH IF MDPE OK
sMOVE SP TO USERS ERROR (ALL
sWRITE ERROR NUMBER IN CALL
;MOVE SP TO ERROR RETURN

(SP)

#4, (SP)

PC,a(SP)+
#10, (SP)

;REPORT ERROR IF ECH IS SET AND,
DATA FIELD ERRORS ARE

012746
032737
001410
032737
001004
032737

001002
042716
013737
(042637
001412
062716
112776
162716
004736
162716

177777
000100

043446

004000

001370

100000

001352

000100
001352
001142

001142

000004
000031
000002

000000

000010

ECI IS SET, OR
DCK IS NOT SET.
#=1,-(SP)
MOV
#ECH,500%
BIT
BEQ
265%
#ECI ,RMOF |
BIT

BNE

265%:
270%:

275%:

BIT
BNE
BIC

MOV
BIC
BEQ
ADD
MovB
SuB
JSR
SuB

265%

#DCK ,RMER1]

2708

#ECH, (SP)

RMER11,$BDDAT
(SP)
+ ,$BDDAT

275%

#4,(SP)
#31,9(SP)

#2,(SP)

PC,a(SP)+

#10,(SP)

NOT

ENABLED,

;ASSUME ENABLED

;ARE ERRORS ENABLED ??
ND L)
;18 ECl SEY1 ??
2YES !
;IS DCK ALSO SET ??

SYES

;DISABLE ECH
;GET RECEIVED STATUS
sCLEAR ECH IF ENABLED
;BRANCH IF ECH IS OK
:MOVE SP TO USERS ERROR CALL
WRITE ERROR NUMBER IN CALL
;MOVE SP TO ERROR RETURN
;REPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

(ZRMNBO RMOS/372 FCTNL

TST 2

SECONDARY ERROR (HECK SUBROUT INE

MACRO v04.00

4=-APR-81

L 14

11:43:33 PAGE 26
,.F

2 .'.'..QI".."...Q..""'....l.'t."‘..'..".."Q..'.'QQ.'.'!‘.

:*PERFORM

THE

REMAINING ERROR

CHECKS ONLY

FOR DATA

TRANSFER

(OMMANDS

* ".'.....Q'....'.""".".Q...Q.'..Q......'..'t"...'.tt.t...'

022737

000030

000137

043420

013737
001421
032737
001015

001340

001142

040000

001336

103402

2412

2426
2434

162716

000004
000015
001140
000002

162716

000010

062716
112776

005037

004736
000240

043454

001140

042502
29 042510
%? 042512

032737
001403
013737

000010

001346

001416

001140

32 042520
33 042526
34 042530
35 042536
36 042542
37 042550
38 042554
39 042556

023737 001140
001416
013737 001342
062716 000004
112776 000016

001342

042562

042564
042566
042572

005046
013746
163716

042576
042602
042610

g? 042612

012746
032737
001402
062716

52 042616

005266

40
41
42
43
44
45
46
47
48
49

53 042622
54 042626
55 042630

161666

003373
02262%

000002

001140
001140

280%
355%

BIT

#TRE ,RMCS1]

ADD

#4,

SUB
JSR
SuB

#2,(SP)
PC.a(SP)+
#10, (SP)

BNE

MOVB
CLR
NOP

001340
001414
001140
001416

#SEARCH,515%

;WAS DATA TRANSFERRED ?

:BR IF YES
:NO = EXIT

sREPORT ERROR IF RMWC NOT ZERO AND TRE IS ZERO
2808%:
MOV
RMWCI,$BDDAT ~ ;WORD COUNT ZERO??
BEQ
285%
YYES

000000

013737
163737
006337
063737

162716
004736
162716
000240

CMP

BLO
JMP

s REPORT ERROR

285%:

MOV
SUR

ASL

250%:

001142
000000

SYES!!

#15,3(SP)
$GDDAT

;ERROR NUMBER
*GOOD DATA FOR TYPEOUT

(SP)

*MOVE SP TO RETURN FOR ERROR
*REPORT WORD COUNT NOT ZERO
*RESTORE (SP)

IF RMBA IS NOT CORRECT
RMWCI,$GDDAT ~ ;GET WORD COUNT AT END OF TRANSFER AND
RMJCO,SGDDAT
:SUBTRACT STARTING WORD COUNT.

$GDDAT

* 2

ADD

RMBAO, $GDDAT

ADD STARTING BUS ADDRESS

BIT
BEQ
MOV

#BAI ,RMCS2]
2908
RMBAO,$GDDAT

;WAS BUS ADDRESS INHIBIT (BAI) SET ?2?
‘NO !!
:ADDRESS SHOULD NOT HAVE CHANGED

cMP

$GDDAT ,RMBAI

;BUS ADDRESS 0K??

MOV
ADD
MOVB

RMBAI,$BDDAT
#4. (SP)
#16.3(SP)

':BAD DATA FOR TYPEOUT

JSR
agg

PC.R(SP)+
#10. (SP)

BEQ

SUB

000010

*TRANSFER ERROR DETECTED??

285%

295%

42, (SP)

SYES!!

:ERROR NUMBER
“MOVE SP TG RETURN FOR ERROR
*REPORT UNEXPECTED ADDRESS
*RESTORE (SP)

. COMPUTE NUMBER OF SECTORS TRANSFERRED FROM WORD COUNT

295%:

001340
001414

000400
000002

SUB

MOV
BIT
BEQ

001412

000002

000004
000002

CLR

MOV

ADD

300%:

INC
SUB
BGT
CMP

=(SP)

RMWCI ,~(SP)

RMWCO, (SP)

#256.,-(SP)
#BIT1.RMCS1O
3008
#2,(SP)

4(SP)
(SP),2(SP)

3008

SECTORS TRANSFERRED

;GET WORD COUNT AT END OF TRANSFER AND
:SUBTRACT STARTING WORD COUNT.

:ASSUME 256. WORDS PER SECTOR
:HEADER & DATA COMMAND 2?
INO !

:CHANGE TO 258. WORDS PER SECTOR

: INCREMENT SECTOR COUNT
:SUBTRACT ONE SECTOR'S WORTH

(SP)+,(SP)+

;COMPUTE EXPECTED SECTOR,

;NUMBER OF

:CONTINUE IF NOT DONE
:RESTORE STACK

TRACK AND CYLINDER ADDRESS FROM

CZRMNBC RMOS/3/2 FCTINL

T3T 2

MACRO V04.00

001446
001420
001420

043446
043450

SECONDARY ERROR CHECK SUBROUTINE

58°
59 042632
60 042640
61 042646
62 042654

63 042662
64 042666

013737
013737
013737
013737

001334
043456

062637

177400

043452

042716

023727

043452

000040

73 042726
74 042732
75 042740

005237
162737

043450
C00040

s
043452

77 042742
78 042750

023737

043450

043456

80 042756
81 042764
82 042766
83
84
85 042770
86 042770
87 042774
88 043002

163737

043446
043456

043450

72 042724

79 042752

89 043004

90 043012
91

043014

R
3
b3
S WWNONINY) — —

WWWWWWWWWWNW
e
e e e e dh e ed

—-—.—.-o—a—.—n..n_.-n—as-b_n
3t
DO
o
jolel

92 043022
93 043030
9% 043036
95 043044
96 043046
97 043052
98 043060

MOV
MOV

103406

000766

103407
005237
000766
000240

RMDCO, 500$
RMDAO . 505$%

MOV
MOV
SWAB
INC

043456

000377
043450

M 14

11:43:33 PAGE 26~1

;NUMBER OF SECTORS

043452
043456 _

66 042672
67 042700
68 042704
69 042712

4-APR-81

043450

RMDAO . 510$
LSTRK .520%
520%
5208

CMP
BLO
INC
SUB

5108, 432.
315%
505%
#32.,510%

:SECTOR OVEFLOWED??
*NO!!
* INCREMENT TRACK
*ADJUST SECTOR

CMP
BLO
INC
SUB
BR

505$,520%
3208
500$
520%,505%
315%

:TRACK OVERFLOWED??
INO!!
* INCREMENT CYLINDER
*ADJUST TRACK
*TRY AGAIN:

3108

%35:°R7 ERROR IF

001140
043446

001466

032737
001003
012737
013737
042737
023737
001413
062716
112776

002000

001352

002000
001350
175777
001140

001140
001142
001142
001142

000004
000017
000002

000000

101407

162716

004736
162716
000240

005037
032737
001031
023727
101425
005737
001012
005737
001007
032737
001413

CLR
CMP
BLOS

325%:

001352

043446

001466

043450

SUB

#2,(SP)

CLR

‘WAS
*YES
-SET
:BAD

IAE SET ??
- LBT SHOULD NOT BE SET
GOOD DATA FOR LBT = 1
DATA FOR TYPEOUT

;IS LBT CORRECT??
SYEST!

#i7,3(SP)

:ERROR NUMBER

PC.R(SP)+
#10, (SP)

*REPORT LBT IS WRONG
*RESTORE (SP)
_

"'AOE'' IS

$GDDAT

*MOVE SP TO RETURN FOR ERROR

INCORRECT

sSET FOR AOE = 0

#1AE ,RMER1]
3408

BLOS

340$

BNE

335§

TYES

BNE
BIT
BEQ

335%
#F2,515%

JYES !
*WAS THIS READ OR WRITE CHECK ??
‘NO !

CMP

043454

:SET GOOD DATA FOR LBT = 0
*SHOULD LBT BE 3ET??
INO!!

BIT
BNE

043452

000010

#IAE ,RMER1]
325%
#LBT,$GDDAT
,
RMDS],$BDDAT
#~CLBT,$BDDAT
$GDDAT.$BDDAT
3308
#4, (SP)

:REPORT ERROR

330%:

"1LBT''
IS NOT CORRECT

BIT
BNE
MOV
MOV
BIC
CMP
BEQ
ADD
JSR
SUB
NOP

001140
002000

*TRY AGAIN

$GDDAT
5008 ,#822.
325%

MOVB

000010

TRACKS.

(SP)+,5108%

NOP

005037
023727

*INCREMENT TO GET TOTL # OF

#*C<TADMSK>,505$
;SAVE TRACK ADDRESS BITS AND
5058
;SWAP TRACK ADDRESS TO LOW BYTE.
#~C<SADMSK>,510%
:SAVE SECTOR ADDRESS BITS

B8R
3158:

:STORE ORIGINAL SECTOR
*STORE LAST TRACK,
:GET TRACK ADDRESS TO LO BYTE AND

BIC
SWAB
BIC
ADD

3108:

;STORE ORIGINAL CYLINDER
*STORE ORIGINAL TRACK

5008 ,#822.

505%

5108

3408

‘WAS '‘IAE'' DETECTED??
*YES="AOE'' SHOULD BE ZERO

*SHOULD AOE BE SET??
*NO!!

*MAYBE

CZRMNBO RMOS5/3/2 FCINL TST 2
MACRC V04.00
SECONDARY ERROR CHECK SUBROUT INE

BB
D WWWANW

RRRRRR]R

N—‘OO(‘”VO‘\A%&NN-‘OOO\IO‘U‘I\WN-‘OOO\IO‘

WWNWINRN
NN NI NN NN NN = —d b s

115 043144

005737
001410
012737
005037
012737
013737
042737
023737
001413
062716

0071140

043452
001142
001142
001142

000004
000020
000002

162716

000010

032737
001062
013737
000337

002000

001352

043450
001140

001140

000240

113737
013737
023737
001413
062716
112776
162716

004736
162716
000240

013737
042737
013737
023737
001413
062716
112776
162716
004736
162716
000240
1 043424

001000
043450
000001
001352
176777
001140

TST

112776
162716

004736

3262

001340

062716

105776

001403
062716
000402

162716

000207

000000
000000
000000
000000

335%:
3408:

BNE
MOV
SWAB
MOVB
MOV
CMP
BEQ

MOV

BIC

PC.R(SP)+

355%:

000004

360%:
365%:
500%:

505%:

510%:
515%:

ADD
TSTB

BEQ
ADD
BR

;SETUP EXPECTED DISK ADDRESS

;SETUP RECEIVED DISK ADDRESS
; COMPARE EXPECTED & RECEIVED

;BRANCH IF EQUAL

;ERROR NUMBER
;MOVE SP TO RETURN FOR ERROR
;REPORT BAD DISK ADDRESS
;RESTORE (SP)

IF RMDC IS INCORRECT
500$ , 5GDDAT
sSETUP EXPECTED CYLINDER

#~C1777,$GDDAT

ADD

NOP

IS WRONG

(SP)

RMDA IS NOT CORRECT
#1AE ,RMER1]
;WAS THERE AN IAE ERROR ??
355%
;YES = DONT CHECK RMDA,RMDC

#10, (SP)

MOVB
SUB
JSR
suB

000010

JRESTORE

JREPORT AOE

suB

MOV
CMP
BEQ

000004
000022
000002

#10, (SP)

ADD
MOVB
SUB

; REPORT ERROR

001372
001140

;ERROR NUMBER
;MOVE SP TO RETURN FOR ERROR

505$, SGDDAT
$GDDAT
510$,$GDDAT
RMDAI
, $BDDAT
$GDDAT, $BDDAT
3508
#4, (SP)
#21,9(SP)
#2,(SP)

NOP

3508:

#2.(SP)

PC.a(SP)+

JSR

000010

;1S AOE CORRECTY??
JYESi!

#4, (SP)
#20.3(SP)

BIT

*SET FOR AOE = 1

345%

ADD
MOVB

. REPORT ERROR

345%:

;veg ALL DATA TRANSFERRFD 22

RMER11,$BDDAT

#*CAOE
. $BDDAT
$GDDAT
. $BDDAT

SUB

SEQ 018,

*CLEAR EXPECTED TRACK
*EXPECT SECTOR = 1
*BAD DATA FOR TYPEQUT

BIC
CMP

NOP

000000

000004

(017

SUB

000004
000021
000002

000004
000000

3408
#AQOE ,$GDDAT
505$
#1.5108

JSR

001140
001142
001142

176000

RMWC
]

BEQ
MOV
CLR
MOV

BEQ

000000

043452
001344
001140

043446

- ~N 14
11:43:33 PAGE 26-2

4-APR-81

RMDC
I, $BDDAT
$GDDAT, SBDDAT
3558

;SETUP RECEIVED CYLINDER
s COMPARE CYLINDERS
;BRANCH IF EQUAL

#22.3(SP)
#2.(SP)
PC.a(SP)+
#10,(sP)

sERROR NUMBER
;MOVE SP TO RETURN FOR ERROR

#4,(SP)
@(5P)

;MOVE

(SP)

TO ERROR CALL

;MOVE

(SP)

TO ERROR RETURN’

;MOVE

(SP)

TO NO ERROR RETURN

#4, (SP)

3608
#4,(SP)

365%

SUB
RTS

#4,(SP)
PC

.WORD
JWORD
.WORD
WORD

0
0
O
0

;REPORT BAD CYLINDER

;RESTORE (SP)

:WAS ERROR FOUND??

;CYLINDER

s TRACK

;SECTOR

JFUNCTION CODE

CJRMABO RMOS/3/2 FCTNL TST 2

MACROD v04.00

CONDARY ERROR (MECK SUBROUT INE
172 06356

000000

B 15

4=APR-81 11:43:32 PAGE J6-2
ta

S208:

.WORD

;TOTAL ® OF

"RACKS = LAST

TRA(K

«!

CZRMNBO RMOS5/372 FCINL

"OMPOSITE

ERROR

(HECK

TST 2

SUBROUT INE

MACRC v04.00

C15

11:43:33 PAGE 27
St0

.SBTTL

;THIS SUBROUTINE CHECKS THE STORED CONTENTS OF RMER?T AND

COMPOSITE ERROR CHECK SUBROUTINE

SRMER2 AFTER MASKING EACH REGISTER WORD WITH

THE

USER'S

STATUS

“MASKS AND REPORTS AN ERROR IF ANY BITS ARE LEFT ON AFTER

STHE MASKS ARE APPLIED.

2CALL:

11
12

(1)
:

JSR
.WORD

;
:

-WORD
BR

ERROR

9
10

13-

;

NOP

:NOTE:

35 043460

CMPERRSTS :

JSR

272

:BE ZERO

23
24 043460
25 043466
26 043474
27 0643500
gg 043506

013737
047637
062716
013737
047637

001352
000000
000002
001400
000000

32 043514
33 043520
gg 043524

062716
105076
162716

000006
000000
000004

36
27 043530
38 043534
39 043536

005737
001420
013737

001176

30
31

40 043544
41 043550
42 043554

005037
062716
112776

063566

004736

46 043574

000240

43 043562
45 043570

2; 043576
49

162716
162716

001176

001140
000004
000066

000002

001200
001200

001200

§3 043604
56 043612
55 043616

013737
005037
062716

001200
001140
000004

§7 043630

162716

000002

000067

PC.,CMPERRSTS
222

PC,a(SP)+

ADD
CLRB
SUB

CLR
ADD
MOVB

#6, (SP)
a($P)
#4, (SP)

;SEE

#2,(SP)

SUB

#10, (SP)

NOP
IF

$GDDAT
#4, (SP)
#66.,a(SP)

SuUB

JSR

000000

GO BACK TO SUB FOR MORE ERROR CHECKS

RETURN HERE IF NO MORE ERRORS
BITS TO BE

TESTED SHOULD

:MOVE SP TO USER'S ERROR CALL
*CLEAR ERROR NUMBER
:LEAVE SP AT NO ERROR RETURN

:SEE IF THERE WERE ANY ERRORS IN RMER1, I.E.. $TMP1
ST
$TMP1
;ANY ERRORS TO REPORT??
BEQ
58
INO !
MOV
$TMP1,$BDDAT
-RECEIVED STATUS FOR TYPEOUT

000000

001142

RETURN HERE TO REPORT AN ERROR

ERROR NUMBER DEF INED BY SUB

THE CONTENTS OF RMER1
AND RMER2
RMER1I,$TMP1
;STORE RMER1 AT TEMP STORAGE
a(SP) ,$TMP1
‘MASK
RMER1
#2,(SP)
“MOVE SP TO NEXT MASK
RMER2I,$TMP?2
:STORE RMER2 AT TEMP STORAGE
a(SP) ,$TMP2
*MASK RMER2

:CLEAR USER'S ERROR CALL

001142

MASK FOR ERROR REGISTER 1
MASK FOR ERROR REGISTER 2
RETURN HERE IF NO ERROR

BITS TO BE MASKED SHOULD BE ONE;

;MASK AND STORE
MOV
BIC
ADD
MOV
BIC

005737
001420

112776

001176
001176

000010

50 043576
25 043602

56 043622

,._

4-APR-B1

PC.a(SP)+

SEXPECTED STATUS FOR TYPEOUT
*MOVE SP TO USER'S ERROR CALL
:CORRECTABLE DATA CHECK ERROR #

“MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

:MOVE SP BACK TO BRANCH

THERE ARE ANY ERRORS TO REPORT IN RMER2 ($TMP2)

ST
BEQ

$TMP2
108

:ANY ERRORS IN RMER2?
“NO! !

MOV
CLR
ADD

$TMP2,$BDDAT
$GDDAT
#4, (SP)

;RECEIVED STATUS FOR TYPEOUT
*EXPECTED STATUS FOR TYPEOUT
:MOVE SP TO USER'S ERROR CALL

SUB

#2,(5P)

*MOVE SP TO RETURN FOR ERROR

MOVB

#67.3(SP)

:WRITE ERROR NUMBER IN USER'S CALL

(ZRMNBO RMOS5/73/72 FCINL TST 2
MACRO v04.00
COMPCSITE ERROR (HECK SUBROUT INE

58 043636

004736

€0 063642

000240

63
b4 063644
65 063650
66 043654

062716
105776
001403

000004
000000

162716

000004

59 043636

2; 043644

162716

69 043664

70 043670

000207

JSR

(00010

SUB

108 :

67 043656 062716 000004
68 043662 000402

4-APR-B1

NOP

D 15

11:43:33 PA

PC,a(SP)+

#10, (SP)

2r=1

:REPORT ERROR VIA USER

MOVE SP TO NO ERROR RE TURN

SAUGMENT THE RETURN ADDRESS If ANY ERROR WAS DETECTED
ADD
24, (SP)
:MOVE SP TO USER'S ERROR CALL
ISTB
a(SP)
:WAS THERE AN ERROR CALLED??
BEQ
208
*NO!!

208:

308:

ADD
B8R

SUB

RTS

#4, (SP)
308

*YES - MOVE SP TO ERROR RETURN

JRETURN TO USER

#4,(SP)

:MOVE SP TO NO ERROR RETURN

(JRMNRBO RMOS/372 FCTNL

SUBROUTINE

;

043706
043712
043716
043720
063722
043730
043736
043742

013746
013746
010046
010146
012737
012737
013700
013701

000004
000006

27 043746
28 043752
%3 043760

111160
016037
016037

000010
000000
000C10

001176
001174

31 043766
32 043774
33 043776
34 044004
gg 044012

032737
001407
062766
112776
000422

010000

001174

000004
000111

000010
000010

37 044014
38 044022
39 044024

032737
001021
062766

004000

001176

000004

000010
000010

44 064042

022626

46 044052
47 044060
“8
49

112776
162766

1 (&)

ERROR

112776
000407

062766

044042
000300
001276

000112

000004

000113
000002

RETURN IF NO ERROR
RETURN IF

ERROR

ERROR DEF INED BY SUBROUT INE

)

:CLEAR USER'S ERROR CALL
ADD
CLRB

SUB

#4, (SP)
a(SP)

#4,(SP)

;MOVE SP TO USER'S ERROR
;CLEAR LOW ORDER BYTE OF CALL
JMOVE SP BACK

;SAVE USER'S INFORMATION AND SETUP REGISTERS
MOV
MOV

MOV
MOV
MOV
MOV
MOV
MOV

000004
000006

001466

064066
044070
044072

NOP

PC,DEVSEL

000010
000010
000010

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

:PUSH ERRVEC ON STACK
; ;PUSH ERRVE(C+2 ON STACK

RO,=(SP)
R1,=(SP)

;:PUSH RO ON STACK
::PUSH R1 ON STACK
;SETUP FCR BUS TIMEOUT

$BASE ,RO
TSTQUE ,R1

;RO = UNIBUS ADDRESS
;R1 POINTS TO DEVICE NUMBER

#20% ,ERRVE(
#PR6,ERRVE(C+2

sSELECT DEVICE AND VERIFY THAT DEVICE IS AVAILABLE
MOVB
(R1) ,RMCS2(R0)
;WRITE UNIT SELECT BITS
MOV
RMCS1(RO) ,$TMP1 :GET 'DVA’'’ STATUS
MOV
RMCS2(RO),$TMPO ;GET "NED'' STATUS

10%:

BIT
BEQ
ADD
MOvB
BR

#NED , $TMPO
108
#4,10(SP)
#111,310(SP)
308

;1S DEVICE NONEXISTENT ?
JNO!!
;MOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER

BIT
BNE
ADD
ggVB

#DVA,$TMP1
35%
#4,10(SP)
g&;?.fl?O(SP)

;1S DEVICE AVAILABLE ?
sYES!!
;MOVE SP TO USERS ERROR CALL
JWRITE ERROR NUMBER

:HANDLE BUS TIMEOUT
20%:
CMP
(SP)+,(SP)+
ADD
#4,10(SP)
MOVB
#113,a10(SP)
30%:
SuB
#2,10(5P)

;ADJUST SP
;MCVE SP TO USERS ERROR CALL
;WRITE BUS TIMEOUT ERROR NUMBER
;ADJUST RETURN TO "NOP' PRECEDING

*THE ERROR CALL

éggsrone USERS DATA AND RETURN TO ADDRESS ON STACK

012601
012600
012637

T
000006

mov
MoV
MOV

(SP)+,R1

(SP)+,RO
(SP)+ ERRVE(+2

;:POP STACK INTO R1

;.POP STACK INTO RO
;:POP STACK INTO ERRVE(+?

——

=D cd e e vd =D oo

000004
000000
000004

DEVSEL :
062716
105076
162716

51 044066

JSR

2(2)

45 044044

SELECT SUBROUTINE

THIS SUBROUTINE SELECTS THE DEVICE, GETTING THE DEVICE NUMBER FROM THE

;CALL:

40 044032
41 044040

DEVICE

TEST QUFUE.

X%}

OO0 NN

it d b

.SBTTL

043672
043676
0643702

E 15

11:43:33 PAGE 28

SEQ 0186

043672

21
22
23

4&-APR-B1

SELECY

MACRO v04.00

O 000NN
P
P -

DEVICE

TST 2

CIJRMNBO RMOS/3/¢2 FCINL TST 2
DEvICE SELECT SUBROUTINE

066076

52 044102

012637

000207

000004

MACRO v04.00

4-APR-81

F 15

11:43:33 PAGE 28-1
SEQ

MOV
RTS

(SP)+ ERRVE(

32 POP STACK INTO ERRVE(

JE X17

O'R”R/

JRMNBO

RMOS.

TATUS

372

CHECK

FCINL

TST

SUBROUT
INE

MACRD

v04.00

4-APR-B1

G 15

11:43:33 PAGE

SEQ 0188

SBTTL

SEEK STATUS (HECK SUBROUTINE

s THIS

;STORED

£,

3
~

;THE SUBROUTINE RETURNS TO THE CALLING ROUTINE IF AN ERROR IS DETECTED
;AFTER HAVING LOADED THE APPROPRIATE ERROR NUMBER IN THE "ERROR'' TRAP

;OF

SUBROUTINE

THE

2533

14
15

5
s

;8 064104

SEKSTS:

23 044106
24 044112
25 044116

59 044122

000240

062716
105076

162716

005037

032737
001424
032737
001020

35
36 044146
37 044152
38 044160
39 044164

005037
013737
062716
112776

000004
000000

JSR

NOP
ERROR

JSR

7?2

ADD
CLRB

000004

SUB

045342

CLR

162716
004736
162716

000437

000010

001352

000010

001400

001140
001352
000004
000050

000002

001142

000000

000010

SEEK

TESTS

TEST PARAMETERS STORED

SEEK STATUS

PC,SEKSTS

222

PC.Q(SP)+

;

#4, (SP)
a(SP)

#4, (SP)

3008

012737
052737
023727

002000
040000
001446

001140
045342
(01466

2; 044232

042737

040000

045342

§3 044240
gg 044246

123737
101016

001421

56 044250
57 044256

123727
101410

001420

101025

;LOCAL REGISTERS, I.E., '"PAR'"
BIT
#PAR ,RMER11I
BEQ
1%
BIT
#DPE ,RMERZ]
BNE
1%

USING

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 SUB

GO BACK TO SUB FOR MORE ERRCR CHECKS

RETURN HERE IF NO MORE ERRORS

sMOVE (SP) TO ERROR CALL
;CLEAR ERROR NUMBER

sMOVE

(SP)

TO NO ERROR RETURN

;CLEAR ERROR FLAGS

=1 AND 'DPE'' = 0
;WAS PARITY ERROR DETECTED??
;NO!!
;WAS IT DUE TO CONTROL BUS??
sNOT SURE!!

sREPORT REGISTER PARITY ERRCR VIA USER'S ERROR CALL
CLR
$GDDAT
JEXPECTED STATUS
MOV
RMER11,$BDDAT
JRECEIVED STATUS
ADD
#4,(SP)
;MOVE STACK TO USER'S ERROR
MOVB
#50,9(SP)
;ERROR #50
SuB
JSR
SUB

45
46
47 044206
48 044214
649 064222

50 044230

CALLING ROUTINE.

RESULTS

sTEST FOR MASSBUS CONTROL BUS PARITY ERROR WHEN WRITING

29
30 044126
31 044134
3¢ 044136
gz 044144

22 0442064

THE

;CLEAR USERS' ERROR CALL
NOP

40 044172
41 044176
42 044200

VERIFIES

GET BUFFER AND

sCALL:

21
22 044104

IN THE

#2,(SP)
PC,a(SP)+
#10, (SP)

;MOVE SP TO RETURN FOR ERROR

;RESTORE STACK

. IAE SHOULD

BE ZERO

;DETERMINE THE VALUE OF ''IAE'' STATUS BASED ON TRACK, SECTOR AND CYLINDER
;ALSO, SET "'SKI'"
IF CYLINDER ADDRESS IS TOO LARGE.
1%:
MOV
#1AE ,$GDDAT
;SETUP FOR [AE = 1
BIS
#SK1,300%
JSETUP FOR SKI = 1
CMP
RMD(CO,#822.
;GREATER THAN LAST CYLINDER ?

BHI

BIC

#SK1,300%

JYES = CYLINDER IS INVALID

001335

CMPR
BHI

RMDAQO+1,LSTRK+1
33

;GREATER THAN LAST TRA(CK ?
sYES = TRACK IS INVALID

000035

(MPB
BLOS

RMDAO, #29.
2%

;SECTOR > 29.
;BR IF NO

sCLEAR SKI ERRCR FLAG

IRMNBO RMOS/3/2 FCINL IST 2
SEER STATUS (HECK SUBROUT INE

58 044260
56 044266

60 046270
6; 044276
6

gz 044300
65

66 044304

€7 0644312
68 044320
09 044326
70 044330
71 044336
72 044340

MACRD

032737
001406

010000

001444

123727
101002

001420

000037

005037

001140

013737

001352

001142

040000

045342

042737
023737
001004
042737
000413

175777
001140

001142
001142

76 044352

77 G44356

78 044360
79 044364

g? 044366
82
83
84
85
86
87
88
89
9C

044366
044374
044376
044402
044410
044414

91 044422

92 044430
93 044432

94 044440

004736

162716
000240

032737
001427
005037
013737
062716
112776

000002

001417

042737

=D
e
e
.

13
14

044506
044514
044516
064522

032737
001032
062716
112776

044534
044536
044542
044544

004736
162716
000643

044530

162716

$GDDAT

;"'IAE"" SHOULD = 0

010000
001140
001400
000004
000060

001400

001142
000000

001142
001142
001140

137777

001140

040000

001142

000004
000267

000000

000002

MOV
BIC
(MP
BNE
BIC
BR

RMDAC ,#31.
3%

;SECTOR > 31, ?
SYES = SECTOR IS INVALID

RMER11,$BDDAT

;IS IAE 0K??

;GO CHECK NEXT ERROR

#*_1AE,$BDDAT
$GDDAT ,$BDDAT
35%
#SK1,300%

INCORRECT

ADD
MovB
SuB

SUB
NOP

''IAE'’ STATUS

#4,(SP)
#51,a(SP)
#2,(SP)

PC,a(SP)+

#10, (SP)

;SAVE IAE BIT FOR COMPARE
;CORRECT '‘IAE'' STATUS ?
;BR_IF NO
;CLEAR SKI FLAG
VIA USER'S

ERROR

CALL

;ERROR 51
JMOVE SP TO RETURN FOR ERROR

;REPORT INCORRECT IAE
JRESTORE

(SP)

;REPORT ANY IVC ERROR AS
:
IVC ERROR WITH VOLUME VALID ZERO
:
ERRONEOUS IVC ERROR, VOLUME VALID IS SET
BIT
#1VC ,RMERZ2]
;1VC ERROR??
BEQ
52%
sNO!!
(LR
$GDDAT
JEXPECTED STATUS
MoV
RMERZ2I ,$BDDAT
;RECEIVED STATUS
ADD
#4,(SP)
;MOVE SP TO USER'S ERROR
MOVB
#60,3(SP)
;ERROR 60 IF Vv =0
BIT

51%:

000010

001400
137777
045342

29-1

; COMPARE EXPECTED AND RECIEVED '‘IAE'' STATUS

5%:

162716

044506

CLR

JSR

000000

013737
042737
013737

;18 BIT FORMAT ?
SYES = SECTOR IS INVALID FOR 18 BIT MODE

38:

000010

000061
000002

044454
044462
044470

#FMT16,RMOFO
3%

(MPB
BHI

000000

001350

001402
112776

BIT
BEQ

;REPORT

000100

004736
162716
000240

044476

000004
000051

032737

95 044444
96 044446
gg 044452

A iS3RIRGRER28E

—

162716

11:43:33 PAGE

35%:

062716
112776

H 15

4-APR-B1

2%:

76 044340
75 Q44344

vO4.00

52%:

BEQ
MOvB
SuB

JSR
SuB
NOP

Mov
BIC
MOV

BIC

BEQ

#VV ,RMDSI

51%
#61,a(SP)
#2,(SP)

PC,a(SP)+
#10, (SP)

RMER2I,$BDDAT
#~CSK1,$BDDAT
- 300%,$GDDAT

#*CSKI,$GDDAT

53%

;ERROR 61 IF VW
=1
sMOVE SP TG RETURN FOR ERROR

sREPORT ERROR VIA USER
;RESTORE SP

;RECEIVED STATUS
;CLEAR DONT CARES
;GET EXPECTED SKI STATUS

;CLEAR DONT CARES

;BRANCH IF O EXPECTED

;REPORT ERROR IF SKI IS NOT SET (IAE WAS NOT DETECTED)
BIT
4#SK1,$BDDAT
;WAS SKI DETECTED ??
BNE
54%
SRS 1
ADD
#4, (SP)
sMOVE SP TO USERS ERROR CALL
MOVB
#267,a(SP)
;WRITE ERROR NUMBER
SuB

000010
53%:

JSR
SUB
BR

#2,(SP)

PC,a(SP)+
#10, (SP)
6%

;MOVE SP TO ERROR RETURN

JREPORT ERROR AND RETURN
;MOVE SP TO NO ERROR
;GO TO NEXT ERROR CHECK

JRMNBO RMOS5/3/72 FCINL

EEN

STATUS (HECK

IST 2

SUBROUTINE

MACRO v04.00

4-APR-81

115
11:43:33 PAGE 29-2
S0 0190

116§

116
117 044544

032737

040000

118 044552
119 044554

001413
062716

123 044574
184 064600

162716
000240

000010

032737

000200

120 044560
121 044566
102 044572

126

127 044602

112776
162716
004736

000004

000054
000002

128 044610
129 044612

001420
005037

001140

131 044624
132 044630

062716
112776

000004
000055

130 044616

133 044636
134 C446b2
135 044644

;;g 044650

013737

162716
004736
162716

000240

001400

000002

001142

140 044652
141 044660

001400

#54,3(SP)
#2,(SP)
PC,a(SP)+

#10,(sP)

;REPORT ANY DEVICE CHECK

548:

- 'BIT

001142

#DVC,RMER2I

BEQ
CLR

68
$GDDAT

ADD
MOVB

G4, (SP)
#55,a(SP)

MOV

000000

RMER2I,$BDDAT

SUB
JSR
sus8

000010

#2,(SP)
PC,a(SP)+
#10,(SP)

NOP

044662
044666

044674

032737
001427
005037

013737
062716

020000

001352

001140
001352

001142

000004

112776
032737
001403
112776
162716
004736
162716

044740
044744

013746
042716

001350
047677

}gg 044756

000137

045312

032737
001030
032737
001024
013737
052737
013737
062716
112776

010000

001350

020000

001352

001350
010000
001350
00004
000062

001140
001140
001142

;2% 044736

171

MOVB
SuB
JSR

sus
NOP

044700
044706
044714
044716
044724
044730
044732

161
162
163
164
165
166
167
168
169
170

54%
A4, (SP)

;REPORT ANY ''OPI'' ERROR AS OPI

139

154
155
156
157
158

BEQ
ADD

000000

138

142
143
144
145
146
147
148
149
150
151

;REPORT ERROR IF SKI 1S SET
BIT
#SKI,$BDDAT

044750
044754

044762
044770
044772
045000
045002
045010
045016
045024
045030

045036

000240

022726
001002

162716

000052
010000

000000
001350

000053
000002

000000

6$:

BIT
BEQ
CLR

MOV
ADD

MOVB
BIT
BEQ
MOVB
SuBJSR
sus8

78:

NOP
;SEE
8s:

000002

#OPI,RMER1I
8%
$GDDAT

RMER11,$BDDAT

H4, (SP)

#52,8(SP)
#MOL,RMDSI
7%
#53,a(SP)
#2,(SP)
PC.a(SP)+
#10,(SP)

:LOAD ERROR NUMBER
:MOVE SP TO RETURN FOR ERROR
:REPORT SEEK ERROR

:RESTORE

(SP)

;WAS THERE DVC DURING SEEK??

:NO!!
:EXPECTED STATUS

:RECEIVED STATUS

:ERROR
455
:MOVE SP TO RETURN FOR ERROR
:REPORT ERRCR VIA USER
:RESTORE SP
WITH MOL

= 0,

JMP

OPI

:''OPI"* ERROR??
:NO!!
:EXPECTED STATUS

:RECEIVED STATUS
:MOVE

(SP)

TO ERROR

;LOAD ERROR NUMBER
:WAS MEDIUM ON LINE??
NO!
!
:YES - CHANGE ERROR NUMBER
:MOVE SP TO RETURN FOR ERROR
:REPORT '‘OPi'' ERROR
:RESTORE (SP)

'PIP'* = 0, AND 'ATA', 'MOL'‘ AND “WV''
=
MOV
RMDSI,-(SP)
BIC
#~C<ATA!PIP!MOL!VV>,(SP)

CMP
BNE

000000

SET

:NO = SKI IS OK
:MOVE (SP) TO ERROR

;BECAUSE ON CYLINDER LATCH DIDN'T RESET

000010

110100

;1S 5KI

WATA!MOL'!VV, (SP)+
9%
;ERROR IN RMDS

14%

JRMDS IS OK

;REPORT ERROR IF MOL = 0 AND OPI = 0
9%:
BIT
#MOL ,RMDS |
:1S MOk RESET??
.
BNE
108
;NO - MOL IS SET
BIT
#OPI,RMER1I
:WAS OP] SET
BNE
10$
:YES = DONT REPORT ERROR
MOV
RMDS I, $GDDAT
;EXPECTED STATUS
BIS
#MOL
, $GDDAT
MoV
RMDS I, $BDDAT
;RECEIVED STATUS
ADD
#4,(SP)
MOVAB
#62,a(SP)
SuB~

#2,(SP)

:MOVE

SP TO RETURN FOR ERROR

JRMNBO RMOS5/3/2 FCINL

SEER

STATUS

CHECK

004736

JSR

};g 045050

000240

176
177 045052
178 045060

032737

020000

001350

032737
001024

040000

001400

001350

001140

045072

001430

013737

SuB

NOP

182 045100
183 045106

042737
013737

020000
001350

185 045120
186 045126

112776
162716

000056
000002

162716

000010

100000

001350

001350
110600
001350
000004
000057
000002

001140
001140
001142

184 045114

062716

187 045132

004736

;gg 045140

000240

191
192
193
194
195
196
197
198
199

032737
001024
013737
052737
013737
062716
112776
162716

188 045134

045142
045150
045152
045160
045166
045174
045200
045206

52? 045212
(

004736

000004

000000

000100

001350

010000

001400

001350
000100
001350

001140
001140
001142

214 045270

112776

000064

000000

216 045302
217 045304
218 045310
S}g 045312

221
222 045312
223 045314
226 045320
225 045324
226 045326
ggg 045332

-———

162716

000002

004736
162716
000240

000240

062716
105776
001403
062716
000402

;REPORT ERROR VIA USER

#SK] ,RMER2]
1%

JWAS "'SKI''SET??
;YES=DONT REPORT PIP

RMDSI ,$GDDAT

JEXPECTED STATUS

#PIP,$BDDAT
RMDS] , $BDDAT

MOVB
SUB

#56,9(SP>
#2,(SP)

SuB

#10, (SP)

ADD

#4,(SP)

PC.a(SP)+

JRECEIVED STATUS

;MOVE

(SP)

TO ERROR

;LOAD ERROR NUMBER
;MOVE SP TO RETURN FOR ERROR

JREPORT 'PIP'' SET AFTER SEEK
;RESTORE

(SP)

;REPORT AN ERROR IF ''ATA'' IS NOT SET
11%:
BIT
H#ATA ,RMDS |
:WAS "'ATA'' SET 2?7
BNE
13%
JYES!!
MoV
RMDSI ,$GDDAT
JEXPECTED STATUS
BIS
#ATA'MOL 'DPR!DRY,$GDDAT
MOV
RMDSI,$BDDAT
JRECEIVED STATUS
ADD
#4,(SP)
;MOVE (SP) TO ERROR
MOVR
#57,a(SP)
;LOAD ERROR NUMBER
SUB
#2,(SP)
;MOVE SP TO RETURN FOR ERROR

JSR

032737
001030
032737
001024
013737
052737
013737

PC,a(SP)+

#10,(SP)

BIC
MOV

NOP

205
206 045222
207 045230
208 045232
209 045240
210 045242
211 045250
212 045256

215 045276

MOV

JSR

000010

000004

BIT
BNE

000000

162716
000240

062716

J 15

11:43:33 PAGE 29-3

;REPORT AN ERROR IF "PIP'* IS STIL SET AND SKI NOT SET
10%:
BIT
#PIP ,RMDS ]
;1S "PIP'" STILL SET??
BEQ
11%
;NO!!

001142
001142

202 045214
582 045220

213 045264

4-APR-B1

SEQ 0191

(00010

181

G —

MACRO v04.00

162716

179 045062
180 045070

SUBROUT INE

172 045042

173 0465046

TST 2

SuB
NOP

PC,a(SP)+

#10, (SP)

:gE?OR;EQ;TENTION NCT SET DURING

;RESTORE

{(SP)

;REPORT ERROR IF VOLUME VALID IS RESET AND IVC IS ZERO
13%:
BIT
#VY ,RMDS|
A5W =9
BNE
14%
JNO!!
BIT
#1VC,RMER2]
;IS IVC ALSO 0 ??
BNE
14%
JNO = IVC IS SET
MoV
RMDSI,$GDDAT
JEXPECTED STATUS
BIS
#VV,3GDDAT
MOV
RMDS ] ,$BDDAT
JRECEIVED STATUS

ADD

#4,(SP)

SuUB

#2,(SP)

MOVR

000010
14%:

JSR
SUB
NOP

#64,a(SP)

PC.a(SP)+
#10, (SP)

:ERROR #64

;MOVE SP TO RETURN FOR ERROR

;JMCDIFY THE RETURN -ADDRESS IF AN ERROR WAS DETECTED
NOP
ADD
#4,(SP)
:MOVE (SP) TO ERROR CALL
TSTB
a(SP)
:WAS ERROR CALLED??
BEQ
15%
;NO!!
ADD
#4,(SP)
:MOVE TO ERROR RETURN
BR
16%

000004
000000
000004

—

CZRMNBO RMOS/3/2 FCTINL T1ST 2
SEEK STATUS (HECK SUBROUT INE

229 065334
5;0 065340

16276
000207

2 32 04532

000000

000004

MACRO v04.00

4-APR-81

K 15

11:43:33 PAGE 29-4
SEQ

158:
168:

RTS

Sus

#4, (SP)
P(

sMOVE (SP)
+RE TURN

3008:

.WORD

;ERROR FLAGS

TO NO ERROR RETURN

019

MACRO

:THIS

SUBROUTINE

:LALL:

B8R

ERROR

Eacal=R

ot e To P ol

28 SFEANRFR

20
21 045420
22 045422
23 045430
24 045436
25 045444
045444
045450
045454
045456
26 045460

111160

000412
022626
062766
112776
162766

012637
012637
012601
012600
000207

CNTCLR:

000004
000006
045420
000300
001276
000040
001466
000010

000004
000007
000002

000006
000004

000004
000006
000010

000010000010
000010

ISR

010046
010146
013746
013746
012737
012737
013700
012760
013701

L 15

11:43:33 PAGE

(ONTROLLER CLEAR SUBROUTINE

;AND DRIVES,

FREJVRR{RR]KR

17
18
19

4-APR-81

.SBTTL

N
— b

N = G000 N

13
14
15
16

v04.00

SEQ 0193

NP -

CZRMNBO RMOS/3/2 FCINL IST 2
CTONTROLLER CLEAR SUBROUT
INE

108:

20%:

NOP

CLEARS

THE MASSBUS

THEN SELECTS THE

PC,CNTCLR

235

RO,=(SP)
R1,-(SP)
ERRVEC,=(SP)
ERRVE(C+2,-(SP)
#108 ,ERRVEC
#PR6 ,ERRVEC+2
$BASE ,RO
#CLR,RMCS2(R0)
TSTQUE ,R1
581).RMCSZ(RO)

CMP
ADD

(SP)+,(SP)+
#4,10(SP)

MOV
MOV
MOV
MOV

(SP)+ ,ERRVE(C+2
(SP) +,ERRVEC
(SP)+ ,R1
(SP)+ RO

RTS

CONTROLLER,

MASSBUS ADAPTERS,

RETURMP HERE IF NO ERROR FOUND
RETURN HERE

IF 4NY ERROR FOUND

SUB DEFINES EMROR NUMBFR

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOvB

MOVB
suB

DRIVE.

#7 ,@10(SP)
#2,10(SP)

;:PUSH RO ON STACK

. :PUSH R1T

ON STACK

;:PUSH ERRVEC ON STACK
s ;PUSH ERRVEC+2 ON STACK
;SETUP FOR BUS TIMEOUT

;RO = UNIBUS ADDRESS
;CLEAR MASSBUS
;GET DEVICE UNDER TEST
sSELECT DEVICE

sADJUST STACK
sMOVE SP TO USER'S ERROR CALL
sWRITE THE ERROR ‘NUMBER
;ADJUST SP TO RETURN TO ERROR
;.POP STACK INTO ERRVE(+?2

;:POP STACK

INTO ERRVEC

;;POP STACK INTO R1
:;POP STACK INTO RO

CIRMNBO RMOS/372 FCINL

STATUS

(HECK

TIST 2

SUBROUTINES

MACRO v04.00

4-APR-81

M 1 15
11:43:33 PAGE 3 1

= OO 00 O
D (NP

SBTTL

.'t.llt

SBTTL
-

.
.

.
-

THE

SUBSYSTEM IS

INITIALIZED BASED ON

5 OF RM(CS2, BECAUSE THE ERROR MESSAGES ARE BASED ON THAT CONDITION.

IN PARTICULAR,

THE

OO0 NN

ATA,ERR,
,WRL ,LBT,PGM,VV,
PIP,
0M,UNS,SKI,D
MOL
VC

CALL:
(1)

JSR
BR
NOP

PC,CLRSTS
27?

JSR
222

PC,a(SP)+

ERROR

d22§““$&$
o
RSO \Il\lll\l\g
S oo

(VL AV, IV, 1V, v

RETURN HERE
RETURN HERE

IF MO ERROR
TO REPORT AN ERROR

ERROR NUMBER DEF INED BY SUB

GO BACK TO SUB FOR MORE ERROR CHECKS
RETURN HERE IF NO MORE ERRORS

C LRSTS:

062716

105076
162716

013737
042737
012737
023737
001413
062716
112776
162716
004736

004200
001140
000004
000126
000002

001140

001342

162716

000004
000127
000002

162716

000010

O°

013737
010146
00504€
013701
111116

is:

100000

005037
013737
001413
062716
112776

000240

;REPORT ERROR

001336

000010

004736

CLEAR USER'S ERROR CALL
ADD
#4,(SP)
CLRB
a(SP)
SuB
#4,(SP)

000004
000000
000004

162716

000240

o oo
W whony
N oo

(W AW AV IV, IV 1V, ]

ERER
RRERERERR
2% »H
n VIV
v

24
27 045462
28 045466
29 045472
30
31 045476
32 045504
33 045512
34 045520
35 045526
045530

VERIFIES THAT

STATUS STORED IN THE GET BUFFER.
THIS SUBROUTINE SHOULD ONLY BE
USED FOLLOWING A CONTROLLER CLEAR OPERATION, I1.E., WRITING A 1 IN BIT

STATUS PERTINENT 70O THE DEVICE IS NOT CHECKED.
FOLLOWING STATUS BITS ARE NOT CHECKED:

24 045462

CONTROLLER CLEAR STATUS CHECK SUBROUTINE

THIS SUBROUTINE

BB » WW W
Rols JaNTe AV, PN VLN B o I¥a 1)

STATUS (HECK SUBROUTINES

-;.t'..'t.fi'.."I...'."'Q".'t....tt't.tt'.'.t".!'t't'.'

001346
001466

MOV
BIC
MOV

RMCS1

NOT

;MOVE SP TO ERROR
:CLEAR ERROR NUMBER

:MOVE SP BACK TO NO ERROR
INITIALIZED

RMCS11,$BDDAT
:VERIFY RMCS1
#SC,$BDDAT
*IGNORE SPECIAL CONDITION
#DVA'RDY,$GDDAT :EXPECT DVA & RDY

CMP
BEQ
ADD

$GDDAT,$BDDAT
5%
#4,(SP)

:COMPARE EXPECTED, RECEIVED
‘BRANCH IF EQUAL =
.
:MOVE SP TO USER'S ERROR CALL

SuB
JSR

#2,(SP)
PC.A(SP)+

*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

MOV

#126.a(SP)

382

#10, (SP)

;REPORT ERROR IF RMBA NOT RESET
001142

CLR

$GDDAT

ADD

#4,(SP)

‘MOVE SP TO USER'S ERROR CALL

SUB
JSR

#2,(SP)
PC.a(SP)+

*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

MOVB

REPORT

7% :

;VERIFY RMBA IS ZERO

RMBAI
, SBDDAT

#127.a(SP)

sgg

001142

*MOVE SP BACK TO NO ERROR

MOV

BEQ

0000C0

*WITE ERROR NUMBER IN CALL

NI
ERROR

MOV

MOV
CLR

MOV

MOVB

#10, (SP)
IF

:BRANCH IF ZERO

*WITE ERROR NUMBER IN CALL

“MOVE SP BACK TO NO ERROR

RMCS2 NOT INITIALIZED
RMCS21,$8DDAT
:VERIFY RMCS2

R1,=(SP)
-(5P)

TSTQUE ,R1

(R1),(5P)

*:PUSH R1 ON STACK
*EXPECT IR & UNIT NUMBER
*R1

= ADDRESS OF

TEST QUE

CZRMNBO RMOS/3/2 FCTINL TST 2
MACRO v04.00
CONTROLLER CLEAR STATUS CHECK SUBROUTINE

58 045640
59 045644
60 045650

045652

052716
012637
012601

023737

62 045660
63 045662

007413
062716

65 045676
66 045700
67 045702
68 045706

162716
004736
162716
000240

b4 045666

09
70 045710
71 045714
72 045722

73 045730
74 045732

75 045736

76
77
78
79

88 046024
89 046030

162716
004736

91 046036
92
93 046040
9 046044

000240

90 046032

95 046052
96 046054

97 046060

98 046066
99 046072
100 046076
101 046100
102

103 046102

112776

162716
004736
162716
000240

;;2 046160

000010
'

001140
001404

001142

000004

000135

000002
000010

000000
3

012737

011777

001140

062716

112776
162716

004736
162716

000240

BEQ
ADD

MOVB
SUB
JSR
SUB
NOP

140000

001140

000004

000136
000002
000010

;REPORT ERROR

13$:

MOV
BIC
MOV
CMP
BEQ
ADD

MOVB
suB
JSR

SUB

001142

000000

*BRANCH IF EQUAL
JMOVE SP TO USER'S ERROR CALL

#2,(SP)
PC,a(SP)+
#19, (SP)

*MOVE SP TO RETURN FOR ERROR
sREPORT ERROR VIA USER
*MOVE SP BACK TO NO ERROR

:WITE ERROR NUMBER IN CALL

;REPORT ERROR If RMERT NOT RESET-IGNORE UNS
5% :
CLR
$GDDAT
:VERIFY RMER1
MOV
RMER11, $BDDAT
BIC
#UNS , SBDDAT
: IGNORE UNSAF
E

000000

001142

023737
001413

111 046152
112 046154

000133

000002

001376

106 046126
107 046132
108 046134
110 046146

000004

013737

042737

109 046140

001142
001142
0071140
001142

;PGP STACK INTO R1
. COMPARE EXPECTED & RECEIVED

98
#4,(SP)

#130,a(SP)

SuB
JSR
SUB
NOP

000000

001362
000046
000010
001140

$GDDAT, $BDDAT

MOVB

000010

162716

104 046110

105 046116

000131

000002

112776

005037
013737
001413
062716

001142
001142

000004

112776

013737
042737
012737
023737
001413
062716

87 046016

001140
001352
040000

#IR, (SP)
(SPJ+,$GDDAT
(SP)+ ,R1

BEQ
ADD

000000

31-1
“EQ 0195

CMP

000010

001413
062716

81 045760
82 045766
83 045774
84 046002
85 046010
86 046012

000130

N 15

11:43:33 PAGE

BIS
MOV
MOV

001142

000002

005037
013737
042737

162716
004736
162716
000240

001140

000004

112776

045744
045750
045752
045756

000100
(01140

4-APR-81

13%
#4, (SP)

*BRANCH IF ZERO
:MOVE SP TO USER'S ERROR CALL

#2,(SP)
PC,a(SP)+
#10, (SP)

*MOVE SP TO RETURN FOR ERROR
JREPORT ERROR VIA USER
*MOVE SP BACK TO NO ERROR

#131.3(SP)

RMMR1

NOT

‘WITE ERROR NUMBER IN CALL

INITIALIZED-IGNORE WC,LS.LST

RMMR11,$8DDAT
;VERIFY RMMR
#IC'LSTLST, $BDDAT
; IGNORE WORD CLOCK, SCT, TRK
#MuD , SGDDAT
;EXPECT WRITE DATA BIT
$GDDAT, $BDDAT
;COMPARE EXPECTED AND RECFIVED
17%
*BRANCH IF 0
.
#4,(SP)
;MOVE SP TO USER'S ERROR CALL

#133.3(SP)

;WITE ERROR NUMBER IN CALL

#10, (SP)

*MOVE SP BACK TO NO ERROR

#2,(SP)
PC,a(SP)+

*MOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER

NOP
;REPORT AN ERROR IF RMEC2 IS NOT RESET
17$:
CLR
$GDDAT
;EXPECT ZEROS
MOV
RMEC21,$BDDAT
:VERIFY RMEC2=0

BEQ
ADD

MOVB

19$
#4,(SP)

#135,3(SP)

;MOVE SP TO USER'S .ERROR CALL

:WITE ERROR NUMBER IN CALL

SuB
#2,(SP)
+MOVE SP TO RETURN FOR ERROR
JSR
PC,a(SP)+
;REPORT ERROR VIA USER
SUB
#10, (SP)
*MOVE SP BACK TO NO ERROR
~ NOP
sREPORT ERROR IF RMMRZ2 NOT INITIALIZED-IGNORE RQA,RQB

19%:

Mov

RMMR21,$BDDAT

BIC

#ROA 'ROB, $BDDAT

CMP
BEQ
ADD

$GDDAT, $BODAT
21%
#4,(SP)

MOV

#TSTi1777,$GDDAT

:VERIFY RMMR2

;EXPECT TEST BIT ON
;MOVE SP TO USER'S ERROR CALL

MOVB

#136.a(SP)

*WITE ERROR NUMBER IN CALL

JSR
SUB

PC,a(SP)+
#10, (SP)

;REPORT ERROR VIA USER
;MOVE SP BACK TO NO ERROR

SUB

NOP

#2,(SP)

;MOVE SP TO RETURN FOR ERROR

;REPORT ERROR IF RMERZ NOT RESET-IGNORE SKI,DVC

JRMNBD RM0S5/3/2 FCINL TST 2
MACRC v04.00
CONTROLLER CLEAR STATUS (HECK SUBROUTINE

115 0466162
116 046166

ooscir 001140
013737 (01400

117 046176

042737

040200

119 046204

062716

000004

121 046216
122 046222
125 066224

162716
004736
162716

000002

000010

013737

001350

012737
023737
001413

000600
001140

118 046202

120 046210

126 046230
125

126 046232

127 046240

001413

112776

000240

042737

000176

001142

(01142

062716
112776
162716

000004
000134
000002

000000

162716

000010

137 046312

062716

000004

139 046322
140 046324
141 046330

001403
062716
000402

143 046336
144 046340

000240
000207

131 046264
132 046270
133 066276
134 046302

004736

136 046310

000240

135 046304
138 046316

142 046332

105776

162716

000000

(LR
MOV

$GDDAT
RMER2]1,$BDDAT

8IC

ADD

31-2

SEXPECT ALL ZEROS
:VERIFY RMERZ

#5K]!DVC,$BDDAT :IGNORE DEVICE ERRORS

2158

:BRANCH IF OTHER BITS 0

&84 ,(SP)

sMOVE SP TO USER'S ERROR CALL

SUB
JSR
SUB

#2,(SP)
PC.a(SP)+
#10, (5P)

SMOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER
*MOVE SP BACK TO NO ERROR

MoV

RMDS] ., SBDDAT

;TEST DRIVE STATUS REGISTER

MOV
cMP
BEQ

#DPR'DRY,$GDDAT ;EXPECTED DRIVE STATUS
$GDDAT,$BDDAT
:COMPARE EXPECTED & RECEIVED
22%
:BRANCH IF EQUAL

MOVB

#174,3(SP)

:WITE ERROR NUMBER IN CALL

NOP
:REPORT ERROR IF RMDS NOT INITIALIZED

215%:

001140
001142

8IC

22%:

23%:

24%:

#~C<DRY 'DPR>, $BDDAT

ADD
MOVB
SUB

24, (SP)
#134.3(SP)
#2,(SP)

:MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR

SUB

#10, (SP)

*MOVE SP BACK TO NO ERROR

ADD

#4, (SP)

:MOVE SP TO ERROR CALL

BEQ
ADD
B8R

238
#4, (SP)
248

IND!!
:YES = MOVE TO ERROR RETURN
:

JSR

000004
000004

17:43:33 PAGE

8EQ

000000

177177

128 046246
129 046256
130 046262

2'%:

B 16

4-APR-B1

NOP

TSTB

SuB

NOP
RTS

PC.a(SP)+

a(SP)

#4,(SP)

*REPORT ERROR TO USER

:WAS AN ERROE DETECTED??

;MOVE SP TO NO ERROR RETURN

IRWNBO
RMOS/372
CACK ACKNOWLEDGE

FCINL TST 2
STATUS (HECK

MACRD

v04.00

4-APR-B1

.SBTTL

SEQ 0197

PACK ACKNOWLEDGE STATUS CHECK

;THIS SUBROUTINE CHECKS THE RESULTS OF A PACK ACKNOWLEDGE

4
‘S

;COMMAND USING THE STATUS STORED IN THE GET BUFFER.
;REPORTED TO THE USER VIA THE USER'S ERROR CALL.

sCALL:

2 (1)

£
10

} 474

18 046342

19 046346

g? 046352
22

23 046356
26 0466364
25 046366
26 046374
c7 066402
28 046410
29 046414
30 046422
31 046426
32 046430

33 046434
g‘; 046436
36
37 046436
38 046444
39 046446

'
062716

B8R
NOP

222

JSR

PC,a(SP)+

032737
001024
013737
052737
013737
062716

000100

001350

001350
000100
001350
000004
000155
000002

001140
001140
001142

004736
162716

001350

010000
001350
000004
000041

162716

000002

001350
001140

001140
001142

MOvVB
SUB
JSR
SuB

50
51 046516
g% 046524

032737
001570

060007

001352

032737
001424
013727

040000

001352

001142

NOP

BIS
Mov

#4,(SP)

;MOVE SP BACK

IF ''W'' IS 0

#VV ,RMDS
1%
RMDSI ,$GDDAT
#VV,3GDDAT
RMDSI ,$8DDAT
#4,(SP)
#155,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

ADD
MOVB

#MOL
, $GDDAT
RMDSI ,$BDDAT
#4,(SP)
#41,9(SP)

JSR
SuB

PC,a(SP)+
#10,(SP)

SuB

000010

2%:

GO BACK TO SUB FOR MCRE ERROR CHECKS

RETURN HERE IF NO MORE ERRORS

sMOVE

JREPORT AN ERROR IF 'MOL'" IS O
BIT
#MOL ,RMDS |
BNE
2%
MOV
RMDSI ,$GDDAT

000000

000240

55 046526
56 046534
57 046536

BIT
BNE
MoV
BIS
MOV
ADD

000000

47 046514

23 046516

JREPORT AN ERROR

1%:
010000

ERROR NUMBER DEF INED BY SUB

#4,(SP)

a(SP)

SuUB

000010

0327}7
001024
013737

45 046506
46 046510

CLRB

000004

000240

052737
013737
062716
112776

44 046502

ADD

000000

112776
162716
004736
162716

222

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR

;CLEAR USER'S ERROR CALL

000004

162716

ERROR

ERRORS ARE

ACKSTS:

105076

046454
046462
046470
046474

PC,ACKSTS

;‘2 046342

40
41
42
43

2
H

JSR

C 16

171:43:33 PAGE

NOP

#2,(SP)

SP TO ERROR CALL

;CLEAR LOW ORDER BYTE

;IS VOLUME VALID SET??
AYES!!
SEXPECTED STATUS
;RECEIVED STATUS
;MOVE SP TO ERROR CALL
;WRITE NUMBER IN ERROR CALL
<MOVE SP TO RETURN FOR ERROR
;REPORT THE ERROR
;MOVE SP BACK TO BRANCH

;IS MOL SET??
SYES!!
JEXPECTED STATUS
JRECEIVED STATUS

;MOVE SP TO ERROR CALL
sWRITE NUMBER OF ERROR IN CALL

;MOVE SP TO RETURN FOR ERROR

;REPORT TH ERROR
;MOVE SP TO BRANCH

JSEE IF "UNS'',"OPI'',"RMR'',''ILR'', OR '‘ILF'' IS SET
BIT
#UNS:OPI!RMR'ILR'ILF
,RMER1]
BEQ
7%
;REPORT AN ERROR IF

BIT
BEQ
MOV

"UNS'' IS SET

#UNS ,RMER1]
3%
RMER1],$BDDAT

JWAS UNS SET??
;NO!!
JRECEIVED STATUS

CZRMNBC RM0S5/372 FCINL

PACK

ACKNOWLEDGE

58 046544
59 046552
60 046560
61 046564
62 046572
63 046576
64 046600
65 0466604
66 046606
67

69 046606

70 046614
71 046616
72 046624
73 046632
76 046640
75 046644
76 046652
77 C46656
78 046660
79 046664

80 046666

STATUS

013737
042737
062716

TST 2

CHECK

112776
162716

162716

000010

000240

032737
001424
013737
013737
042737
062716
112776
162716

004736

3%:
020000

001352

001352
001352
020000
000004
000043
000002

001142
001140
001140

162716
000240

000010

032737
001424
013737
013737
042737
062716
112776
162716
004736
162716
000240

000004

001352

001352
001352
000004
000004
000044
000002

001142
001140
001140

b b —ed s D

—b—a—o—!-‘—ls—a—-fi—n—n—n—l-—b—a

o
RARNISIRIRIRAC28

g‘so 046746

032737
001424
013737
013737
042737
062716
112776
162716
004736
162716

000240

032737
001424
013737
013737

D 16
11:43:33 PAGE 32-1

000010
5%:

001352

001352
001352
000002
000004
000045
000002

001142
001140
001140

6%:

000001

001352

001352
001352

001142
001140

:MOVE SP TO ERROR CALL
sWRITE NUMBER OF ERROR IN CALL
sMOVE SP TO RETURN FOR ERROR

(SP)

#2,(SP)
PC.R(SP)+
#10, (SP)

ERROR

#OPI
, $GDDAT
#4, (SP)

ADD
MOovB
SuB
JSR
SuB
NOP

BEQ
MOV
MOV
BIC
ADD
MOVB
suB
JSR
suB
NOP

4%
RMER11,$BDDAT
RMER11.$GDDAT

#43,2(5P)

#2,(SP)
PC.a(SP)+
#10, (SP)

ERROR

ggMR,RMER1I

MoV

JEXPECTED STATUS

sMOVE SP TO ERROR CALL
;WRITE NUMBER OF ERROR IN CALL
sMOVE SP TO RETURN FOR ERROR

JREPORT THE ERROR VIA USER

sMOVE SP TO NO ERROR RETURN

;WAS RMR SET??

PC,a(SP)+
#10, (SP)

ILR ERROR

RMER11,$GDDAT
#ILR,$GDDAT
#4,(SP)
#45,3(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

BIT
BEQ
MOV

;WAS OP] SET ??
sNO!!
JRECEIVED STATUS

;MOVE SP TO.ERROR CALL
;WRITE NUMBER OF ERROR IN CALL
sMOVE SP TO RETURN FOR ERROR
;REPORT THE ERROR VIA USER
sMOVE SP TO NO ERROR RETURN

#RMR
, $GDDAT
#4,(SP)
#44 ,2(SP)
#2,(SP)

MOV
BIC
ADD
MOvVB

sREPORT ANY

THE ERROR VIA USER

sMOVE SP TO NO ERROR RETURN

RMER11,$BDDAT
RMER11,$GDDAT

#1LR,RMER1I

JSR
SuB
NOP

;REPORT

sNO!!
JRECEIVED STATUS
JEXPECTED STATUS

BIT
BEQ

000010

#4,

#42,3(SP)

BIC

;REPORT ANY

000000

SEXPECTED STATUS

#0PI ,RMER11

;REPORT ANY
BIT

000000

RMER1], $GDDAT

#UNS
, SGDDAT

BIT
BEQ
MOV
MOV

4%:

000002

MOV
BiC
ADD
MovB
SuB
JSR
Sus
NOP

;REPORT ANY OPI1

000000

8¢
83 046666
84 046674
85 046676
86 046704
87 046712
88 046720
89 046724
9C 046732
91 046736
92 046740
93 046744

4-APR-B1

SEQ 0198

001352

040000
000004
000042
000002

004736

MACRO v04.00

6%
RMER11,$BDDAT

ILF _ERROR

#ILF ,RMER1]

7%
RMER11,$BDDAT
RMER1I,$GDDAT

;WAS

ILR SET??

:NO!!
sRECEIVED STATUS
SEXPECTED STATUS
;MOVE SP TO ERROR CALL
sWRITE NUMBER OF ERROR IN CALL
;MOVE SP TO RETURN FOR ERROR
;JREPORT THE

ERROR VIA USER

;MOVE SP TO NO ERROR RETURN

;WAS ILF SET??
;NO!!
;RECEIVED STATUS
JEXPECTED STATUS

CZRMNBO RMOS/3/72 FCTINL

TST 2
PACK ACKNOWLEDGE STATUS CHECK

042737
062716
112776
162716

000001
C00004
000046
000002

162716

000010

004736

000240

062716

105776
047112
047116 001403
047120 062716
047124 000402
162716
0467126
047132 * 00240
32 047134
000207

MACRO V04.00
091140

4=-APR=-81
BIC
ADD
MOVB
SuB
JSR
SUB

000000

7%:

NOP

E 16
11:43:33 PAGE 32-2
#ILF ,$GDDAT
#4,(SP)

sMOVE SP TO ERROR CALL

#46,2(SP)
#2,(SP)

SWRITE NUMBER OF

#10,(SP)

sMOVE SP TO NO ERROR RETURN

PC,a(SP)+

ERROR

IN CALL

sMOVE SP TO RETURN FOR ERROR

SREPORT

THE ERROR VIA USER

000004
000000

;AUGMENT RETURN ADDRESS
ADD
#4, (SP)
TSTB
a(SP)

000004

#4, (SP)

*YES- MOVE TO ERROR RETURN

#4,(SP)

;MOVE SP TO NO ERROR RETURN

000004

8%:

9%:

BEQ
ADD
BR
SUB
NOP
RTS

IF ERROR WAS FOUND
:MOVE SP TO ERROR CALL

WAS ERROR FOUND??

N-‘—A—I-‘.&—a.—l-‘—-‘—b

=OVONP
NN - OV N NI NN -

CZRMNBO RMOS/3/2 FCTNL TST 2
MACRO V04.00
RECAL [BRATE STATUS (HECK SUBROUTINE

4-APR-81

SEC 0200

.SBTTL
s THIS

F 16
11:43:33 PAGE 3 3

RECALIBRATE STATUS CHECK SUBROUTINE
SUBROUTINE

CHECKS

THE

RESULTS OF

A RECALIBRATE

JUSING THE STATUS STORED IN THE GET BUFFER.

OPERATION

2
20M:L

114D

;
:
;
:
:

047136

JSR

BR
NOP
ERROR
JSR
272

PC,RCLSTS
273

PC,a(SP)+

RCLSTS:

047136
047142
047146

062716

24 047152
25 047160

032737
C01553

105076
162716

;CLEAR USER'S ERROR NUMBER

000004
000000
0C0004

022011

ADD
CLRB
suB

001352

#4, (SP)
a(SP)
#4,(SP)

38 047236
39 047242

40 047244
41 047250

42 047252
43
44

45 047252
46 047260
47 047262
wviwnawbn
SN

48 047270
? 047276

0 047304
1 047310

2 047316
53 047322

54 047324
55 047330

2? 047332

032737
001430
032737
001024
013737
042737
013737
062716
112776
162716

004736
162716
000240

032737
001424
013737
042737
013737
062716
112776
162716

004736

162716

000240

000010

001352

000010

001400

001352
000010
001352
000004
000050
000002

001140
001140
001142

BIT
BEQ

#0OP1!PAR!ILF!IAE ,RMER1I
4%
;NONE ARE

ADD

000000

MOVB
SUB
JSR

SuUB

1%:

001352
000001
001352
000004
000071
000002

001352

NOP

#4,(SP)

:MOVE

#50,9(SP)
#2,(SP)
PC,a(SP)+

#10, (SP)

;REPORT ANY "'ILF'' ERROR
BIT
#ILF ,RMER1]

BEQ
MoV
BIC
MoV

001140
001140
001142

ADD

000000

000010
2%:

2%
RMER11,$GDDAT
#ILF ,$GDDAT
RMER11,$BDDAT

#4, (SP)

MOVRB

#71,a(SP)

JSR
SuB
NOP

PC,a(SP)+
#10, (SP)

. SUB

SET - GO TO NEXT CHECK

CONTROL BUS PARITY ERROR,

:"PAR'"" = 1 AND "DPE'' = 0
BIT
#PAR ,RMER1 ]
BEQ
1%
BIT
#DPE ,RMERZ!
BNE
1%
MOV RMER11,$GDDAT
BIC
#PAR, $GDDAT
MOV
RMER11,$BDDAT

000010

000001

;CLEAR USER'S ERROR CALL
;MOVE SP BACK TO BRANCH

:SEE IF "PAR'' OR ''ILF'' OR ''OPI'' OR ''IAE'' IS SET

;REPORT ANY MASSBUS

29 047162
30 047170
31 047172
32 047200
33 047202
34 047210
35 047216
36 047224
37 047230

; CALL SUBROUT INE

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEF INED BY SUB
GO BACK TO SUB FOR MORE ERROR CHECKS
RETURN HERE IF NO MORE ERRORS

#2,(SP)

I.E.,

;WAS 'PAR'" SET??

;NO!!

;WAS ‘DPE'' SET??

;YES = NOT A REGISTER ERROR
JEXPECTED STATUS

JRECEIVED STATUS

SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER IN CALL

;MOVE SP TO RETURN FOR ERROR
;GO REPORT ERROR
;MOVE SP BACK TO BRANCH

sWAS "'ILF'' SET??

sNO!!

JEXPECTED STATUS

;RECEIVED STATUS
;MOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER IN CALL
;sMOVE SP TG RETURN FOR ERROR
;REPORT ERROR VIA USER

;MOVE SP BACK TO BRANCH

JRMNBO RMOS/3/72 FCTNL TST 2

MACRO v04.00
STATUS CHECK SUBROUTINE

RECAL [BRATE

58
59
62
61 047332
62 047340

63 047342
64 047350
65 047356
66 047364
67 047370
68 047376
69 047404
70 047406
71 047414

72 047420
73 047422

74 047426

75 047430
76
77
78 047430
79 047436

FANIS3RIRTRAC2SELLRAR
RRRRRRRR]RR ielelelele]
"N

G 1 16
11:43:33 PAGE 3 . 1

€0 0201

;REPORT ANY "OP1'' ERROR AS

032737
001433
013737
042737
013737
062716
112776

032737
001403

020000

001352

BIT

#0P] ,RMER1I

001352
020000
001352
000004
000072
010000

001140
001140
001142

MOV
BIC
MoV

RMER11,$GDDAT
#0P1,$GDDAT
RMER11,$BDDAT

000073
000002

162716
000240

000010

032737
001424
013737
042737
013737
062716

002000

001352

001352
002000
001352
000004

001140
001140
001142

112776
162716

004736

BEQ

ADD

000000
001350

112776
162716

004736

. OPI DUE TO ‘MOL'' = 0
. OP] BECAUSE ON CYLINDER LATCH DIDN'T RESET

000000

3%:

:NO!!

#4,(SP)

JMOVE

MOVB
BIT
BEQ
MOVB
SuB

#72,3(SP)
#MOL ,RMDS |
33
#73,3(SP)
#2,(SP)

agg

#10, (SP)

JSR

;WAS OPI

31%

PC,a(SP)+

SET??

;EXPECTED STATUS

;RECEIVED STATUS
SP

TO USER'S

ERROR

CALL

WRITE ERROR NUMBER IN USER'S CALL
JWAS ‘MOL'' = 0??
s Vg5l

sNO - CHANGE ERROR NUMBER
sMOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER

sMOVE

SP BACK

TO BRANCH

31%:

000070

000002

162716
000240

000010

032737
001517

050200

JREPGCRT AN ERROR

000000

BIT
BEQ
MOV
BIC
MOV
ADD

IF "‘IAE'' IS SET
#1AE ,RMER1]
;1S "'IAE'' SET??
4%
NO!
!
RMER1I,$GDDAT
;EXPECTED STATUS
#1AE
, $GDDAT
RMER11,$BDDAT
;RECEIVED STATUS
#4, (SP)
sMOVE SP TO ERROR CALL
#70,a(SP)
;WRITE ERROR NUMBER IN USFR'S CALL

JSR
agg

PC,a(SP)+
#10, (SP)

MOVB
SuB

#2,(SP)

sMOVE SP TO RETURN FOR ERROR

;REPORT ERROR
;MOVE SP BACK TO NO ERROR RETURN

001400

sSEE- IF

"'SKI'* OR "'IVC'' OR 'DVC'"
IS SET

BIT
BEQ

#SKI'IVC'DVC,RMER2]
8%
:NONE OF

THE BITS ARE SET

. REPORT ANY “IVC'' ERROR AS
.

o nNSONO

o ONN
SO o LST AN

NN NNNNN NN

wvi v
wn U

47520
47526

——
s

XS o o

ocoo

e
e
e
R

s = QOO

80 047440
81 047446
82 047454
83 047462
84 047466
85 047474
86 047500
87 047502
88 047506
89 047510

4-APR-B1

032737
001433
013737
042737
013727
062716
112776
032737
001403
112776
162716
004736
162716

000240

010000

001400

001400
010000
001400
000004
000074
000100

001140
001140
001142

000075
000002

000000

000000
001350
5%:

000010
6£%:

LIVC WITH v = 0
.ERRONEOUS 1VC ERROR

BIT

BEQ
MOV
BIC
MOV
ADD
MOVB
BIT
BEQ
MovB
SUB
JSR
SuB
NOP

#1VC ,RMERZ2I

6%
RMER2]1 ,$GDDAT
#1VC,$GDDAT
RMERZ] ,$BDDAT
#4,(SP)
#74,9(SP)
#VV ,RMDSI
5%
#75,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

sWAS TVC SET??

sNO!!
;EXPECTED STATUS
;RECEIVED STATUS

sMOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER
;WAS vv = 0??

IN CALL

e
!
;NO - CHANGE ERROR NUMBER

;MOVE SP TO RETURN FOR ERROR

sREPORT ERROR VIA USER

;MOVE SP BACK TO BRANCH

_JRMNBO RMOS5/3/2 FCINL

RECAL [BRATE

STATUS

115
116 047616
117 047624
118 047626
119 047634
120 047642
121 047650
122 047654
123 047662

124 047666
125 047670
126 047674

127 047676
129

130 047676
131 047704
132 047706

133 047714
134 C47722
135 047730
136 047734
137 047742
138 047746
139 047750
140 047754
141 047756

143
144 047756
145 047762
146 047766
147 047772

148 047774

149 050000
151
152
153 050000
154 050006
155 050010
156 50016
157 050020
158 050026

TST 2

(HECK

032737
001424
013737
042737
013737
062716
112776
162716

004736
162716

000240

032737
001424
013737

042737
013737
062716
112776
162716
004736
152716
000240

013746
042716
022726
001002
000137

MACRO v04.00

SUBROUTINE

001400

001140

000004

000076
000002

78:
000200

001400

001400
000200
001400
000004
000077
000002

001140
001140
001142

000010

8$:

:SEE

001350
047676
110100

85$:

168
169 050070
170 050076

032737
001030

000100

001350

010000

001400

032737

BIT
BEQ
MOV
BIC
MOV
ADD
MOVB
S8
JSR
SB
NOP

010000

001350

020000

001352

001350
010000

001140
001140

001142

PC,a(SP)+
#10,(5P)

#DVC,RMER2I
8%
RMER2I,$GDDAT
#DVC,SGDDAT
RMERZI , $BDDAT
44, (SP)
#77,3(SP)
#2,(SP)
PC,a(SP)+
#10,(SP)

:RECEIVED STATUS
:MOVE SP TO USER'S ERROR CALL

;WRITE ERROR NUMBER
;MOVE SP TO RETURN FOR ERROR

;REPORT ERROR VIA USER
:MOVE SP TO BRANCH

;WAS 'DVC'' SET??
iNO!!
:EXPECTED STATUS

sRECEIVED STATUS
:MOVE SP TO USER'S ERROR CALL
:WRITE ERROR NUMBER
:MOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER
:MOVE SP TO USER'S BRANCH

JMP

WATA!MOL'!VV, (SP)+
858

13§

‘.
>
:

:REPORT AN ERROR IF MOL = O AND OPI = 0, I.E., MEDIUM WENT OFF
:LINE AFTER RECALIBRATE WAS INITIATED
BIT
AMOL,RMDSI
:DID MOL DROP??
BNE
9%
NO!!
BIT
A#OPI,RMERTI
:WAS OPI ERROR REPORTED??
BNE
98
:YES = DON'T REPORT MOL=0
MOV
RMDSI,SGDDAT
:EXPECTED STATUS
BIS #MOL,$GDDAT

000000

MOV
ADD
MOvB
SUB

RMDSI,$BDDAT
:RECEIVED STATUS
#4,(SP) ;MOVE SP TO USER'S ERROR CALL
#100,a(sP)
:WRITE ERROR NUMBER
#2.(5P)
MOVE SP TO RETURN FOR ERROR

s
NOP

#10,(SP)

JSR

#SKI,SGDDAT
RMERJI,$BDDAT
#4,(SP)
#76,9(SP)
#2,(SP)

;WwAS SKI SET??
IND!!
:EXPECTED STATUS

IF "PIP' AND 'OM'* ARE O, AND "ATA'’,'MOL'' AND VV'* ARE 1
MOV
RMDSI,-(SP)
:PUT RMDS ON STACK
BIC
#~C<PIP!MOL!VV!OM!ATA>,
(SP)
CMP
BNE

050410

001350
000004
000100
000002

NOP

RMER21,$GDDAT

;REPORT ANY 'DVC'' ERROR

000000

000010

171 050100

MovB
SuB

JSR
S8

162716
000240

166 050070

ADD

000010

164 050062
165 050066

004736

MOV

BIC
MOV

000000

050034
050042
050046
050054

163 050060

;REPORT ANY *'SKI'‘ ERROR
BIT ~ #SKI,RMER2I
BEQ
7%

001140
001142

032737
001030
032737
001024
013737
052737
013737
062716
112776
162716

159
160
161
162

H 16
11:43:33 PAGE 33-2
SEQG 0202

(40000

040000
001400

4-APR-B1

PC.a(SP)+

:REPORT ERROR VIA USER

:MOVE SP BACK TO USER'S BRANCH

;REPCRT AN ERROR IF "'wW'' = 0 AND "'IVC'' = 0
BIT
#VV,RMDSI
:DID "VV'* DROP??
BNE
108
IND!!

BIT

#1VC,RMER2]

“WAS THERE A IV( ERROR??

CZRMNBO RMOS/3/2 FCTNL TST 2
MACRO v04.00
TUS CHECK SUBROUT INE
RECAL IBRATE

e
N
e

172 050 .o
173 050110
174 050116

001024
013737
013737
052737
062716
112776
162716

001350
001350
0006100
000004
000101
000002

162716

000010

004736
000240

83
84
85 050160
86 050166
87 050170

88 050176

89
90
91
92

050204
050212
050216
050224
93 050230

194 050232

195 050236

196

032737
001024
013737
052737
013737
062716
112776
162716

004736

162716
000240

108:

001350

001140
001140
001142

100000

001350
000004
000102

000002

OV
NPT WN-=O

N)—=—
-3 a—
0

NINSNUNLNUNLTNNONINL
N

209 050310

227 050402
228 050406

MOV

BIS

MOV
ADD

“JvB
suB
JSR
SU3
NOP

;YES = DONT REPORT yv=0

JEXPECTED STATUS
JRECEIVED STATUS
sMOVE

SP TO USER'S ERROR CALL

;MOVE

SP BACK TC USER'S BRANCH

JWRITE ERROR NUMBER IN CALL
sMOVE SP TO RETURN FOR CRROR

#2,(SP)

SUB
JSR
SUB
NOP

BIT
BNE

000010

PC,a(SP)+
#10, (SP)

IF ATA IS NOT
??;A.RMDSI

SET
;veg'eTA SET DURING RECALIBRATE??

RMDS1,$GDDAT

JEXPECTED STATUS

#ATA,$GDDAT
RMDSI ,$BDDAT
#4,(SP)

JRECEIVED STATUS
;sMOVE SP TO USER'S ERROR CALL

#102,a(SP)
#2,(SP)

JWRITE ERROR NUMBER IN. CALL

#10, (SP)

;MOVE

PE,a(SP)+

SP TO USER'S BRANCH

11%:

199

200
201 050240
202 050246
203 050250
204 050256
205 050264

108

RMDS] ,$GDDAT
RMDS!,$BDDAT
#VV,3GDDAT
#4, (SP)
#101,a(SP)

JREPORT AN ERROR

000000

197 050240
198

SEQ 0207
MOV
MoV
BIS
ADD
MOVB

000000

001350

116
11:43:33 PAGE 33-3

BNE

001140
001142
001140

100000

4-APR-81

032737
001424
013737
042737
013737
062716
112776

162716
004736
162716

000240

000001

001350

001350
000001
001350
000004
000103
000002

001140

;REPORT AN ERROR IF ''OM'' IS NOT
;ALWAYS CLEAR OFFSET MODE

BIT
BEQ

MOV
BIC
MOV

001140
001142

ADD

000000

000010
12%:

MOVB
SUB
JSR
SUB
NOP

ZERO BECAUSE RECALIBRATE

#0M,RMDS |
12%
RMDSI, $GDDAT

;WAS "'OM'* RESET??
iYeS.!
SEXPECTED STATUS

RMDSI , $BDDAT
#4, (SP)
#103,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

JRECEIVED STATUS
;MOVE SP TG USER'S ERROR CALL
sWRITE ERROR NUMBER
;MOVE SP TG RETURN FOR ERROR
;REPORT ERROR VIA USER
sMOVE SP TO USER'S BRANCH

#OM,SGDDAT

JREPORT AN ERROR IF "PIP'" IS STIL ON,

032737
001430
032737
001024
013737
042737
013737
062716

020000

€J1350

040000

001400
001140

112776
162716

001350
020000
001350
000004
000104
000002

162716

000010

004736
000240

001140

001142

000000

: CYLINDER

BIT
BEQ
BIT
BNE
MOV

BIC

MOV
ADD
MCvB
SuB

JSR
SUB

NOP

SHOULD

#P1P ,RMDS]

I.E., DRIVE NOT ON

;1S DRIVE OFF

CYLINDER??

13%

:NO!!

13%
RMDSI , $GDDAT

;YES=DONT REPORT ‘'PIP"’
SJEXPECTED STATUS

#SKI,RMER2]

#PIP,$GDDAT
RMDSI ,$BDDAT
#4,(SP) ;MOVE
#104,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

;WAS "'SKI'* DETECTED??

;RECEIVED STATUS
SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER
;MOVE SP TO RETURN FOR ERROR
;JMOVE

SP BACK

TO USER'S BRANCH

CZRMNBO RMOS/3/2 FCINL

TST 2

MACRO v04.00

RECALIBRATE STATUS (HECK SUBROUTINE

g%g 050410
231
232 050410
ggz 050616
235
236 050420
237 050426

238 050430
239 050436
240 050444
241 050452
242 050456
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
gg; 050560

040006

001352

SSEE IF "ILR' OR 'RMR'* OR "UNS'‘ IS SET
BIT
#ILR!RMR!UNS ,RMER1]
BeQ
16%

032737
001424
013737
042737
013737
062716
112776
162716
004736
162716
000240

000002

001352

001352
000002
001352
000004
000105
000002

001140
001140
001142

;REPORT AN ERROR IF "'ILR'" IS SET
BIT
#ILR,RMER1I
sWAS ILR SET DURING RECALIBRATE??
BEQ
14%
sNO!!

032737
001424
013737

042737
013737
062716
112776
162716
004736

000000

000010
14%:
000004

001352

001352
000004
001352
000004
000106
000002

001140
001140
001142

SEQ 0204

032737
001430
032737
001024
013737
042737
013737
062716

040000

001352

000200

001400

001352
040000

001140
001140

274 050640
275 050642
276 050646

004736
162716
000240

279
280 050650
281 050654
282 050660
283 050662
284 050666
285 050670

062716
105776
001403
062716
000402
162716

112776
162716

BIC
MOV
ADD
MOVB
SuB
JSR

15%:

001352
000004
000107
000002

000000

000004

SuB
NOP

#RMR, $GDDAT
RMER11 ,$BDDAT
#4,(SP)
#106,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

BIT
BEQ
BIT
BNE
MOV
BIC
MoV
ADD

HUNS ,RMER11
16%
#DVC ,RMER2I
16%
RMER11,8GDDAT
#UNS
, $GDDAT
RMER11,$BDDAT
#4,(SP)

JSR
SuB
NOP

PC,a(SP)+
#10, (SP)

MOVB
SU3

000010

000004
000000

RMZR11,8GDDAT
;EXPECTED STATUS
#ILR,$GDDAT
RMER11,$BDDAT
;RECEIVED STATUS
#4,(SP) ;MOVE SP TO USER'S ERROR CALL
#105,a(SP)
JWRITE ERROR NUMBER IN CALL
#2,(SP)
;MOVE SP TO RETURN FOR ERROR
PC,a(SP)+
#10, (SP)
;MOVE SP TO USER'S BRANCH

;RECEIVED STATUS
sMOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER IN USER'S CALL
;MOVE SP TO RETURN FOR ERROR
sREPORT ERROR VIA USER
:MOVE SP TO USER'S BRANCH

;REPORT AN ERROR IF "UNS'' IS SET AND ‘DvC''
IS 0

001142

MOV
BIC
MOY
ADD
MOovB
suB
JSR
suB
NOP

;REPORT AN ERROR IF "RMR'' IS SET
BIT
#RMR ,RMER11
;WAS RMR SET??
BEQ
15%
;NO!!
MOV
RMER11,$GDDAT
;EXPECTED STATUS

000000

264 050560
265 050566
266 050570
267 050576
268 050600
269 050606
270 050614
271 050622

S;g 050650

33-4

032737
001514

000010

272 050626
273 050634

J 16

11:43:33 PAGE

13%:

162716
000240

263

4-APR-81

16%:

#107,9(5°P)
#2,(SP)

;WAS UNSAFE ON??
;NO!!
;WAS THERE A DEVICE CHECK??
;YES - DON'T REPORT UNSAFE
;EXPECTED STATUS

;RECEIVED STATUS
;MOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER
sMOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER
;MOVE SP BACK TO USER'S BRANCH

;AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED
ADD
#4,(SP)
;MOVE SP TO USER'S ERROR CALL
1STB
a(SP)
;WAS AN ERROR REPORTED??
BEQ
17%
JNO!!
ADD
#4, (SP)
;YES = AUGMENT SP RETURN
BR
18%
17%:
SuB
#4,(SP) ;NO ERROR = RETURN SP TO BRAN(H

CZRMNBO RMOS/372 FCINL TST 2
MACRO v04.00
RECAL [BRATE STATUS (HECK SUSROUTINE

286 050674
87 050676

000240
000207

18%:

4-APR-81

K1
11:43:33 PAGE 33-5

SEQ 0205
NOP
RTS

sSTATUS CECK IS COMPLETE

\‘

"'.

Yo,

”IRHNBU RMOS/3 2 FCINL TST 2
MACRO v04.00
DRI
LEAR STATUS
(HECK SUBROUTINE

;
3

11
12 050700

;

,
'

13 050704
14 050710

16 050714

17 050722

18 050730

19 050736

062716

000000
000004

013737

001336

012737

004010

042737

001140

062716

000004

112776

162716
004736
162716
000240

051032
051040
051044
051046
051052

013737
042737
012737
023737
001413
062716
112776
162716
004736
162716
000240

40 051054
41 051060
42 051066

005037
013737
001413

46 051106
47 051110
48 051114
49

50 051116
51 051124
5¢ 051126
53 051130
56 051134
55 051140
56 051144
57 051146

1173700

023737

22 050752

23 050760
24 050764
25 050766
26 050772
27
28 050774
29 051002
30 051010
31 051016
32 051024
33 051026

NOP

ERROR
JSR

f 24

122

RETURN HERE

PC,a(SP)+

ERROR NUMBER DEF INED BY SUB
GO BACK TO SUB FOR MORE ERROR (HE(KS

RETURN HERE

IF NO ERROR
TO REPORT

AN ERROR

RETURN HERE IF NO MORE ERRORS

062716
112776
162716
004736
162716
000240

013737
010146
010246
013701
116102
042702
005102
040237

:CLEAR USER'S ERROR CALL
ADD
#4, (SP)

000004

105076
162716

001443

43 051070
44 051074
45 051102

L —

DRVSTS:

20 050744

21 050746

34
35
36
37
38
39

18 050700

SEu

DRIVE CLEAR STATUS (HECK SUBROUTINE

:
:

;

L 16
11:43:33 PAGE 34

.SBTTL
3

5
6

|
|

4-APR-81

000141

000002

001142

001140

000010
001350
021101
010600
001140

001142
001142
001140
001142

000004
000142
000002

000000

000010
001140
001352

000004
000143
000002

001142

000000

000010

001354

001466
000001
177400
001142

001142

MOV

RMCS11,$BDDAT

BIC .

MOV

001142

000000

a(SP)
#4, (SP)

;REPORT ERROR IF

4$:

sMOVE

CLRB
SUB

(MP

BEQ

ADD

MOVB

RMCS1

NOT

SP TO ERROR CALL

;CLEAR ERROR CALL
:MOVE SP
TO USER'S BRANCH

INITIALIZED

;CHECK RM(CS1

#*C<DVA'!FNCMSK>,$BDDAT

#DVA!DRVCLR,$GDDAT

;CLEAR DONT CARES

;EXPECT

DVA

$GDDAT,$BDDAT

;COMPARE EXPECTED & RECEIVED

#4, (SP)

;MOVE SP TO ERROR CALL

#141,a(SP)

;BRANCH IF EQUAL

SWRITE NUMBER OF ERROR IN CALL

SUB
#2,(SP)
sMOVE SP TO RETURN FOR ERROR
JSR
PC,a(SP)+
;REPORT THE ERROR VIA USER
SUB
#10, (SP)
sMOVE SP TO NO ERROR RETURN
NOP
;REPORT ERROR IF RMDS NOT INITIALIZED
5%:
MOV
RMDSI ,$BDDAT
; CHECK RMDS
BIC
#PGM!OM!VV!PIP,$BDDAT
;CLEAR DONT CARES
MOV
#MOL !DPR!DRY,$GDDAT
;EXPECT DRY & DPR
cMP
$GDDAT,$BDDAT
;COMPARE EXPECTED & RECEIVED
BEQ
6%
sBRANCH IF EQUAL .
ADD
#4, (SP)
sMOVE SP TO ERROR CALL

MOVB
#142,3(SP)
;WRITE NUMBER OF ERROR IN CALL
SuB
#2, (SP)
sMOVE SP TO RETURN FOR ERROR
JSR
PC,a(SP)+
sREPORT THE ERROR VIA USER
SuB
#10,(SP)
;MOVE SP TO NO ERROR RETURN
NOP
-REPORT ERROR IF RMER1 NOT INITIALIZED

6%:
?

CLR
MOV
BEQ

$GDDAT
RMER11,$BDDAT
8%

SEXPECT 0'S
;CHECK RMER1
sBRANCH IF EQUAL

MOV
MOV
MOV

RMASI , $BDDAT
R1,-(SP)
R2,-(SP)
TSTQUE ,R1
1(R1) ,R2
#*CATNMSK
,R2
R2
R2,$BDDAT

sCHECK ATTENTION BIT
;;PUSH R1 ON STACK
;:PUSH RZ2 ON STACK-

ADD
#4,(SP)
;MOVE SP TO ERROR CALL
MOvVB
#143,a(SP)
;WRITE NUMBER CF ERROR IN CALL
SuB
#2,(SP)
:MOVE SP TO RETURN FOR ERROR
JSR
PC,a(SP)+
:REPORT THE ERROR VIA USER
SUB
#10,(SP)
:MOVE SP TO NO ERROR RETURN
NOP
;REPORT ERROR IF ATA NOT INITIALIZED

8$%:

MOV
MOVB
BIC
COM
BIC

020

CZJRMNBO RMOS5/3,2 FCINL

CLEAR STATUS C(HECK SUBROUTINE

58 051152
59 051154
60 051156
61 051162
62 051164

012602
012601
005737
001413
062716

64
65
66
€7
68

162716

000004
000144
000002

162716

000010

013737
0462737
012737
023737
001413
062716

001362
000046
000010
001140

70 051220
71

72
73
76
75
76
77

051226

051234
051242
051244
051250
051256
051262

78 051264

79 051270
80
&1 051272

82
83
84
85
86
87
88

051300
051306
051314
051322
051324
051330
051336

91 051350
92 051352

94 051356

FERNR J&R

o
o

001142

112776
162716

000004
000145
000002

162716

000010

013737
042737
012737
023737
001413
062716
112776
162716
004736
162716
000240
005037

001376

004736
000240

013737
001413
062716
112776
16271¢

004736

140000

011777
001140
000004

000146
000002

ggg
00
00
00

001142
001142
001140
001142
000000

001140
001142

013737
001413
062716

001400

001142

112776
162716

000004
000147
000002

000000

162716

000010

004736

INTO R1

;MOVE SP TO ERROR CALL
;WRITE NUMBER OF

ERROR

IN CALL

sMOVE SP TO RETURN FOR ERROR

:REPORT THE ERROR VIA USER

:MOVE SP TO NO ERROR RFTURN

#4, (SP)

#10, (SP)

MOV
BIC

::POP STACK

RMMR1 NOT INITIALIZED
RMMR1I,$BDDAT
;CHECK RMMR
#JC'LSILST,$BDDAT
;CLEAR DONT CARES
#MuD , SGDDA T
;EXPECT WRITE DATA ON
$GDDAT,$BDDAT
:COMPARE EXPECTED AND RECEIVED
11$
*BRANCH IF ZERO

332

PC.a(SP)+

*MOVE

SP TO ERROR CALL

:WRITE NUMBER OF ERROR IN CALL
:MOVE SP TO RETURN FOR ERROR

:REPORT THE ERROR VIA USER

*:MOVE

SP TO NO ERROR RETURN

RMMR2 NOT INITIALIZED
RMMR21 ,$BDDAT
;CHECK RMMR?
#RQA'RQB,$BDDAT -CLEAR REQA, REQB

MOV

#TST!1777,$GDDAT

ADD

#4, (SP)

CMP
BEQ

$GDDAT,$BDDAT
15%

;EXPECT TEST BIT ON

; COMPARE EXPECTED & RECEIVED
:BRANCH IF EQUAL
*MOVE

SP TO ERROR CALL

MOVB
#146.3(SP)
:WRITE NUMBER OF ERROR IN CALL
SUB
#2, (SP)
*MGVE SP TO RETURN FOR ERROR
JSR
PC.a(SP)+
*REPORT THE ERROR VIA USER
SUB
#10, (SP)
*MOVE SP TO NO ERROR RETURN
NOP
15%:
CLR
$GDDAT
;EXPECT ZEROS
sREPORT ERROR IF RMEC2 NOT RESET
MOV
RMEC21,$BDDAT
;CHECK RMEC?2

BEQ

000004
000150 000000
000002
:

000010

:1S ATTENTION CLEARED??
;BRANCH IF ATTENTION CLEARED

#145.,3(SP)
#2,(SP)

sREPORT ERROR IF

11%:

$8DDAT
9%
w4, (SP)
#144 ,2(SP)
#2,(SP)
PC.a(SP)+

MOVB
SUB
JSR

000010

001404

MOV
BIC
MOV
CMP
BEQ
ADD

000000

:;POP STACK INTO R2

#10, (5P)

sREPORT ERROR IF

9%:

(SP2+ ,R2

(SP)+ R

TST
BEQ
ADD
MOvB
SuB
JSR

000000

162716
000240

000240
o

1
1
1
1
1

&~ Dbtk
2 I
&~ ~
&~ o

=l=lelelelelelele]

400

1
1
1

[=lelelele]

Fan=S3RURIRAN2BES
LR

e T

95 051364
051366
1372

000240

SEQ 0207

HED
o

o9 051212

004736

M 16
11:43:33 PAGE 34-1

MOV

b s

051176
051202
051204
051210

112776

4-APR-81

MOV

—d

63 051170

MACRC v04.00

v
il ol

DRIVE

TST 2

ADD
MOVB
SuB
JSR
SuB
NOP

;REPORT ERROR

17%:

MOV
BEQ
ADD

18%:
16%:

MOvB
Su8
JSR
SUB
NOP

17%

#4, (SP)
#150,3(SP)
#2.,(SP)
PC,a(SP)+
#10, (SP)

;BRANCH IF 0
;MOVE SP TO ERROR CALL
;WRITE NUMBER OF ERROR IN CALL
sMOVE SP TO RETURN FOR ERROR
sREPORT THE ERROR VIA USER
sMOVE SP TO NO ERROR RETURN

IF RMERZ NOT RESET
RMERZ2], $BDDAT
;CHECK RMERZ2
18%
;BRANCH IF NO ERROR
#4, (SP)
;MOVE SP TO ERROR CALL
#147 ,2(SP)
;WRITE NUMBER OF ERROR IN CALL
#2,(SP)
sMOVE SP TO RETURN FOR ERROR
PC,a(SP)+
#10, (SP)

;REPORT THE ERROR VIA USER
;MOVE SP TO NO ERROR RETURN

CZRMNBO RMOS5/3/2 FCTINL

DRIVE

MACRO v04.00

CLEAR STATUS (HECK SUBROUTINE

115

116 051452

062716

(00004

117 051456
118 051462
119 051464

105776
001403
062716

000004

121 051472

162716

000004

120 051470

122 051476

123 051500

—

TST 2

000402

000240

000207

4-APR-81

N 1€
11:43:33 PAGE 3.2
SEQ 0208

JAUGMENT RETURN ADDRESS IF ANY ERROR WAS FOUND

ADD

000000

218%:

23%:

#4, (SP)

sMOVE SP TO ERROR (ALL

TSTB
BEQ
ADD

a(SP)
21%
#4,(SP)

SUB

#4,(SP) ;MOVE SP BACK TO NO ERROR RETURN

RTS

NOP

23%

;WAS AN ERROR DETECTED??
:NO!!
* JYES = MOVE SP TO ERROR RETURN

sRETURN TO USER

CZRMNBO RMOS/3/2 FCTINL TST 2

MACRO v04.00

4-APR-81

1
1

}
}
1

]

WM = O 000 NO LY NN
-

DATA TRANSFER COMMAND STATUS (HECK SUBROUT INE

.SBTTL

SEQ 020%

DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

;THIS SUBROUTINE VERIFIES THE RESULTS OF

ALL

DATA TRANSFER COMMANDS

sUSING STATUS STORED IN THE GET BUFFER AND TEST PARAMETERS

;STORED IN THE PUT BUFFER.

;THE

ERROR NUMBER

ERRORS ARE REPORTED BY WRITING

IN THE USERS ERROR CALL.

;USER'S SUBROUTINE CALL:

1(4)
:(5)

ERROR
JSR

:(6)

;
051502
051502

JSR

:(2)
:(3)

21 051506
22 051512
SZ 051516

NOP
2?

gg,DTASTS
&

PC,a(SPY+

RETURN HERE IF NO DATA ERRORS
RETURN HERE

TO REPORT AN ERROR

SUB WRITES ERROR NUMBER
USER RETURNS FOR MORE CHECKS

SUB RETURNS HERE AFTER ALL

ERRORS ARE REPORTED

DTASTS:
062716

105076
162716
005037

;CLEAR USER'S ERROR CALL AND ERROR FLAGS

000004

ADD

000000
000004
055076

CLRB
SuB
CLR

#4, (SP)

a(SP)
#4, (SP)
5008

:MOVE SP TO USER'S ERROR

:CLEAR LOW ORDER BYTE OF TRAP
*RESTORE SP TO NO ERROR
*CLEAR ERROR FLAGS

:F}EFE’ORTM?% COI#TROL BUS PARITY ERROR WHILE READING REMOTE REGISTERS,

27 051522
28 051530
29 051532
30 051540
31 051546
32 051554

032737
001422
013737
042737
013737
062716

020000

001336

001336
020000
001336
000004

001140
001140
001142

34 051566
35 051572
36 051574
gg 051576

162716
004736
000466

000002

33 051560

112776

000013

000000

032737
001435

44
45
46
47
48

051614
051616
051624
051632
051640

001031
013737
042737
013737
062716

50 051652
51 051660
52 051662

032737
001003
112776

gz 051676

000425

49 051644

53 051670
54 051674

#MCPE ,RMCS1]
108
RMCS11,8GDDAT
#MCPE
, SGDDAT
RMCST1,$BDDAT
#4, (SP)

:WAS THERE A PARITY ERROR??
:NO!!
:EXPECTED STATUS

SuB
JSR
BR

#2,(SP)
PC,a(SP)+
308

sMOVE SP TO RETURN IF ERROR
;REPORT ERROR AND RETURN

#15.3(SP)

:RECEIVED STATUS
:MOVE SP TO USER'S ERROR CALL

*WRITE ERROR NUMBER

;REPORT ANY CONTROL BUS PARITY ERROR WHILE WRITTING REMOTE REGISTERS,

40
41 051576
42 051604

43 051606

BIT
BEQ
MOV
BIC
MOV
ADD

MOVB
108 :

11:43:33 PAGE

032737

112776

162716
004736

000010

001352

000010

001400

001352
000010
001352
000004

001140
001140
001142

001000

001346

000050

000000

000274
000002

000000

:I1.E., PAR = 1 AND DPE = 0
BIT
#PAR ,RMER1]
BEQ
208

BIT

BNE
MOV
BIC
MOV
ADD

MOVB

15%:

BIT
BNE
MOVB

SUB
JSR

#DPE ,RMER?21

208
RMER1]1,$GDDAT
#PAR, $GDDAT
RMER11,$BDDAT
#4 . (SP)

#50.3(SP)

#MXF ,RMCS21
158
#274.,3(SP)

#2, (SP)
PC.a(SP)+

308

;WAS THERE A PARITY ERROR??
“NO!!

:DATA PARITY ERROR ?
SYES!!
;EXPECTED STATUS

;RECEIVED STATUS
*MOVE SP TO USER'S ERROR

*WRITE ERROR NUMBER

*DID MXF GET SET??
SYES!!
*NO - CHANGE ERROR NUMBER
*MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN

:LOOK FOR ANY ERRORS WHICH MAY HAVE OCCURRED DURING COMMAND INITIATION OR

(ZRMNBO RMO5/3/2 FCINL TST 2

MACRO v04.00

DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

4-APR-B1

]
L
11:43:33 PAGE 35-1

SEQ 0210

558

:MECHANICAL POSITIONING

;FIRST TEST MXF WHICH WOULD INDICATE COMPOSITE ERROR SET WHEN FUNCTION

62 051700
63 051700

208:

64 051706
65 051710
66 051716

:CODE AND GO BIT WERE LOADED

032737

001425
013737
042737

001000

001346

001346
001000

001140
001140

BIT

BEQ
MOV
BIC

67 051724

013737

001346

001142

MOV

69 051736

112776

000275

000000

MOVB

68 051732

70 051744

71 051750

;% 051752
74

75 051752

;9 051756

062716

162716

004736
162716

000137

000004

000002

:WAS "MISSED TRANSFER'' SET??

RMCS21,$BDDAT

;RECEIVED STATUS

#275,3(SP)

;WRITE ERROR NUMBER

40%
RMCS21,$GDDAT
#MXF,SGDDAT

ADD

#4, (SP)

SuB

#2,(5P)

JSR

308:

#MXF ,RMCS21

PC.R(SP)+

:NO!!
;EXPECTED STATUS

JMOVE SP TO USER'S ERROR CALL

;MOVE SP TO RETURN IF ERROR

;REPORT ERROR AND RETURN

;RESTORE SP TO NO ERROR RETURN AND BYPASS FURHTER STATUS CHECKING

000010

sus

055050

JMP

#10, (SP)

:MOVE SP TO NO ERROR

380%

:SKIP TO END OF SUB

;g 051762

40%:

REPORT AN ERROR IF ‘'OPI'' ERROR OCCURRED DUE TO ‘MOL'' = 0, OR IF "'OPI"’

m "MOL'* ARE SET, BUT ‘‘VV'' IS RESET, INDICATING AN INTERMITTENT

83 051762

032737

020000

001352

85 051772

013737

001352

87 052006

013737

001352

89 052022

001404

84 051770
86 052000

88 052014

001447
042737

032737

90 052024
91 052032
92 052034
93 052040
94 052046

032737
001013
062716
112776
162716

66 052054
97 052060
gg 052062

162716
000413

95 052052

004736

020000

010000

BIT

#0P] ,RMER1]

;1S "OPI'* SET??

001140

MOV

RMER1],$GDDAT

:EXPECTED STATUS

001142

MOV

103 052066
104 052074
105 052100
106 052102

107 052106
183 052110

001350

000100

001350

000004
000276
000002

000000

111 052110

112 052116

113

114 052120

45%:

#0P] ,$GDDAT

BIT

#MOL , RMDS I

BIT
BNE
ADD
MOVB
SUB

#VV ,RMDS |
508
#4, (SP)
#276,3(SP)
#2,(SP)

SUR
BR

#10, (SP)
60$

JSR

50%:

60$

BIC

BEQ

000010

;NO!!

RMER1I,$BDDAT

:RECEIVED STATUS

458

JYES!!

PC,a(SP)+

;WAS MEDIUM OFF LINE??

JWAS "MOL'' INTERMITTENT??
NG
;MOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER IN CALL
;MOVE SP TO RETURN IF ERROR
:REPORT ERROR AND RETURN

;RESTORE SP TO NO ERROR

;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

MOVB
SUR
JSR
SuR

000010
60%:

110

BEQ

001140

100

101
102 052062

ETM

NOP

(20 MS) OR SEARCH TIMEOUT (50 MS)
#4,(SP)
:MOVE SP TO USER'S ERROR CALL

#277.,3(SP)
#2,(SP)
PC.a(SP)+
#10, (SP)

*WRITE ERROR NUMBER IN CALL
:MOVE SP TO RETURN IF ERROR
:REPORT ERROR AND RETURN
:RESTORE SP TO NO ERROR

’

032737
001432

013737

010000
001400

001400
001140

;LOOK FOR *‘IVC'* ERROR DURING COMMAND INITIATION

BIT

BEQ

#1VC,RMERZ2]
708

;REPORT "'IVC'' ERROR DUE

MOV

:WAS THERE AN '‘IVC'' ERROR??
:NO'!

TO "VV'' = 0, OR REPORT ERRONEOUS ‘'IVC'' ERROR

RMER2I,$GDDAT

;EXPECTED STATUS

CZRMNBO RMOS5/3/2 FCTNL TST 2
MACRO v04.00 4-APR-81
DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

042737
013737
062716
112776

032737
001403

[0 X

Yo Yo Yo Yo NV, LV IV IV VIV IV IV TV IV, F o o o o S o o S S

_.—A—.d-—l—l-‘-—.—.—l—l—J—l—l—‘—‘—l—l—d_l—)—-l—j—l—l—l—l—l-—d—l—‘—l—l—‘—l—l—-‘—l-‘—l_—.

mgwwdoomwombum—-oomwo mbwmdoomwgmrwwggom\lo\n

112776
162716

004736
162716

052204
052212

052214
052222
052224
052232
052240
052246
052252
052260
052264
052266

052272

052274

000100

000301

000002

BIC
MOV

000000

MOvVB
BIT
BEQ
MOVB
suB
JSR
suB

000000

000010

032737

000002

001352

001352
000002
001352
000004
000302
000002

001140
001140
001142

001424
013737

042737
013737
062716
112776

162716

004736

000000

162716
000240

000010

032737
001424
013737
042737
013737
062716
112776

000001

001352

001352
000001
001352
000004
000303
000002

001140
001140
001142

000010

032737
001424
013737
042737
013737
062716

000004

001352

001140
001140
001142

004736
162716
000240

#1v(,SGDDAT

RMER2] ,$BDDAT

#4,

(SP)

;RECEIVED STATUS

*MOVE SP TO USER'S ERROR

#300,a(SP)

:WRITE ERROR NUMBER IN CALL

65%

;JNO!!

#VV,RMDS |

#301,a(SP)

#2,(SP)
PC.a(SP)+
#1), (SP)

*WAS VOLUME VALID??

*CHANGE ERROR NUMBER

*MOVE SP TO RETURN IF ERROR
*REPORT "'IVC'* ERROR AND RE TURN
*RESTORE SP TO NO ERROR
.

#ILR!ILF!RMR, RMER1I
BIT
100%
;NO ERRORS DETECTED
BEQ
;REPORT AN ERROR IF "'ILR'' IS SET
#ILR,RMER1]
;WAS "'ILR'’ DETECTED??
BIT
BEQ
808 :
INO!!
MOV
RMER1],$GDDAT
:EXPECTED STATUS
#ILR,$GDDAT
BIC
RMER1],$BDDAT
;RECEIVED STATUS
MOV
#4, (SP)
*MOVE SP TO USER'S ERROR CALL
ADD
#302,a(sP)
“WRITE ERROR NUMBER IN CALL
MovB
SuB
#2.(SP)
*MOVE SP TO RETURN IF ERROR
PC.a(SP)+
*REPORT ERROR AND RETURN
JSR
#10, (SP)
*RESTORE SP TO NO ERROR
SuB
NOP
80%:
sREPORT AN ERROR

908%:

000002

;SEE IF "ILF'* OR 'RMR'' IS SET

000000

162716
000240

112776
162716

65%:

70%:

001352

001510

ADD

001350

000007

004736

052354
052362

000300

001140
001142

032737

162716

052352
052354

010000
001400
000004

11:43:33 PAGE 35-2

BIT
BEQ
MOv
BIC
MOV
ADD
MOvB
SuB
JSR
suB
NOP

IF ‘'ILF'' IS SET

#ILF ,RMER1]

908
RMER11,$GDDAT
#ILF ,$GDDAT
RMER1I,$BDDAT
#4, (SP)
#303,2(sP)
#2.(5P)
PC.a(SP)+

#10, (SP)

sREPORT AN ERROR IF "RMR'' IS SET
BIT
BEQ
MOV
BIC
MOV

000000

000010
100%:

ADD
mMovB
SuB
JSR
SUB
NOP

;WAS “‘ILF'* DETECTED??

*NO'!
:EXPECTED STATUS

;RECEIVED STATUS
*MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER IN CALL
*MOVE SP TO RETURN IF ERROR
*REPORT ERORR AND RETURN

*RESTORE SP TO NO ERROR

#RMR ,RMER11

;WAS "RMR'' DETECTED??

RMER1]1,$GDDAT
H#RMR, $GDDAT
RMER1],$BDDAT

;EXPECTED STATUS

1008

#4,(SP)

#304 ,a(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

;NO!!

;RECEIVED STATUS
;MOVE

SP TO USER'S ERROR CALL

;WRITE ERROR NUMBER IN CALL
sMOVE SP TO RETURN IF ERROR
sREPORT ERROR AND RETURN
JRESTORE SP TO NO ERROR

:DETERMINE WHETHER OR NOT ''IAE'' SHOULD BE SET AND CHECK FOR ERRCR

CZRMNBO RMOS/3/2 FCTNL TST 2

MACRO V04.00

DATA TRANSFER COMMAND STATUS (CHECK SUBROUTINE

172 052434

012737

002000

001140

174 052450
175 052456

023727
101025

001446

001466

042737

040000

055076

178 052466

123737

001421

001335

181 052476
182 052504

123727
101410

001420

000035

173 052442

4-APR-81
MOV

11:43:33 PAGE 35-3
#1AE , SGDDAT

:SETUP FOR ''IAE'" =

RMDCO, #822.
1108

“GREATER THAN LAST CYLIMNDER ?
*YES = CYLINDER IS INVALID

052737

(40000 055076

BIS

#5Kk1,5008

}7; 052460

BIC

#SK1,5008

}gg 052474

101016

183 052506

032737

010000

001444

185 052516
186 052524
}gg 052526

123727
101002
005037

001420

000037

001140

013737

001352

184 052514

189 052532

001406

190 052540
191 €52546

042737
023737

193 052556
194 052564
195 052566
197 052600
198 052604

192 052554

196 052572
199 052606

38? 052612

202
205 052612
204 052620
205 052626
206 052634
207 052642
208 052650
209 052652
210 052660
211 052662
212 052666
213 052674
214 052700
215 052702
5;9 052706

001142

175777
001140

001142
001142

042737
000412
062716

040000

055076

162716
004736

000002

001004

112776

000004

000305

000000

162716

000010

013737
042737
013737
042737
032737
001417
032737
001032
062716
112776
162716
004736
162716
000417

001400
137777
055076
137777
040000

001142
001142
001140
001140
001400

040000

055076

000004
000306
000002

000000

000010

052710
052716
052720
052724
225 052732
226 052736
227 052740
228 052744

*RESET SKI FLAG

RMDAO+1,LSTRK+1

;GREATER THAN LAST TRACK ?

CMPB
BLOS

RMDAO,429.
105$

;1S SECTOR > 29.
*NO

1108

*YES - SECTOR IS

INVALID FOR 18 BIT MODE

1108

BIT

#FMi16,RMOFO

1058:

CMPB
BHI
CLR

RMDAO,#31.
1108
$GDDAT

110$:

MOV

BEQ

RMER11,$BDDAT

BIC
CMP

#~CIAE
. SBDDAT
$GDDAT .$BDDAT

BIC
BR
ADD

#SK1,5008
1208°
#4, (SP)

SuB
JSR

#2.(SP)
PC.a(SP)+

BNE
1158:

“SETUP FOR *SKI'*= 1

CMPB

BHI

1208:

g}g 052710
220
221
222
223
224

CMP
BHI

SEQ 0217

MOVvB
SUB

115$%

#305.a(sP)
#10, (SP)

*YES = TRACK IS INVALID

-18 BIT FORMAT ?

*1S SECTOR > 31, 2
“YES = SECTOR IS INVALID
*'IAE'* SHOULD = 0

;GET RECEIVED STATUS
;1S '‘IAE’' STATUS OK??

*NO!!

*IAE OK = SKI

SHOULD BE 0

:MOVE SP TO USER'S ERROR CALL

*WRITE ERROR NUMBER

*MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RE TURN

*MOVE SP TO NO ERROR

JREPORT AN ERROR IF °''SKI''
IS SET AND ''IAE'' STATUS WAS 0K
MOV
RMER21,$BDDAT
;RECEIVED STATUS
BIC
#~CSK1.$BDDAT
MOV
5008, SGDDAT
;EXPECTED STATUS
BIC
#*CSKI,$GDDAT
BIT
#SK1,RMER2]
;WAS ‘'SKI'* SET??
BEQ
1408
*NO'!
BIT
#SK1,5008
*WAS SKI CAUSED BY IAE = 0?2
BNE
1508
*YES = DON'T REPORT SKI
ADD
#4, (SP)
*MOVE SP TO USERS ERROR CALL
MOVBE
#306,a(SP)
*WRITE ERROR NUMBER
SuB
#2, (SP)
*MOVE SP TO RETURN IF ERROR
JSR
PC.a(SP)+
*REPORT ERROR AND RETURN
SUB
#10, (SP)
*MOVE SP TO NO ERROR
8R
150$

1408:
032737
001413
062716
112776
162716
004736
162716
000240

040000

055076

000004
000307
000002

000000

000010

;REPORT AN ERROR IF SKI = O AND IAE WAS NOT DETECTED
BIT
#SK1,5008
:SHOULD SKI BE SET??
BEQ
1508
*NO!!
ADD
#4, (SP)
*MOVE SP TO USER'S ERROR CALL
movB
#307.a(SP)
*WRITE ERROR NUMBER IN CALL

SUB
JSR
SUB
NOP

#2,(SP)
PC.a(SP)+
#10, (SP)

*MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN
*RESTORE SP TO NO ERROR

CZRMNBO RMOS5/3/2 FCTINL TST 2

MACRO v04.00

DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

229 052746
230
231
232 052746
ggz 052754
535

236 052756
237 052764
238 052766
239 052774
240 053002
241 053010
262 053014
243 053022
264 053026
245 053030
246 053034
Szg 053036
249

250 053036

032737
001512

006200

001400

032737
001424
013737
042737
013737
062716
112776
162716
004736
162716
000240

000200

001400

001400
000200
001400
000004
000310
000002

001140
001140
001142

032737

001430
032737
001424
013737
042737
013737
062716
112776
162716
004736
162716
000240

265
266 053126
267 053134
268 053136
269 053144

.
032737
001422
013737
042737
013737
062716
112776
004736
162716
000240

g;g 053202

11:43:33 PAGE 35-4

SEQ 0213

1508
:

251 053044
252 053046
253 053054
254 053056
255 053064
256 053072
257 053100
258 053104
259 053112
260 053116
261 053120
262 053124
sgz 053126

270 053152
271 053160
272 053164
273 053172
274 0531764
275 053200

4-APR-81

278
279 053202
280 053210
281

032737
001527

283 053220
284 053222
285 053230

001427
032737
001023

:LOOK FOR "1SC'*
OR ‘LBC''
OR 'DVC'* IN ERROR REGISTER #2
BIT
#LSC!LBC'DVC,RMER2]
BEQ
180%
:NO ERRORS SET
:REPORT ANY DEVICE. FAULT,

000000

000010
1608 :

002000

001400

010000

001350
:
001140
001140
001142

001400
002000
001400
000004
000311
000002

BIT

000010
170$:

001400

001400
004000
001400
000004
000312

001140
001140
001142
000000

1808 :
001352

282 053212 032737 040000 001352
000200

001400

BEQ
BIT
BEQ
MOV
BIC
MOV
ADD
MOVB
SUB
JSR
suB
NOP

#LBC,RMERZ]

I.E.;

1708
#MOL , RMDS I
1708
RMER2],$GDDAT
#LBC, $GDDAT
RMER2] ,$BDDAT
#4, (SP)
#311.a(SP)
#2, (SP)
PC.R(SP)+
#10, (SP)

'DVC'' =

SIS 'DVC
= 122
INO!!
:EXPECTED STATUS
;RECEIVED STATUS
*MOVE SP TO USERS ERROR
“JRITE ERROR NUMBER IN CALL
.MOVE SP TO RETURN IF ERROR
"REPORT ERROR AND RE TURN
*RESTORE SP TO NO ERROR

"LBC'' =1,

IF 'MOL'" = 1

;1S LBC SET??

*NO!!
*WAS LBC ERROR BY MOL = 0
SYES!!
:EXPECTED STATUS
;RECEIVED STATUS
*MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER IN CALL
*MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RE TURN
*RESTORE SP TO NO ERROR

:REPORT LOS OF SYSTEM CLOCK, I.E., ‘1SC'* =1
BIT
#LSC,RMER2]
;Is "Usct
= 122
BEQ
1808
*NO!!
MOV
RMER21,$GDDAT
:EXPECTED STATUS
BIC
#LSC, SGDDAT

000010

054000

I.E..

#DVC ,RMER2]
1608
RMER21 ,$GDDAT
#DVC
, SGDDAT
RMER2],$BDDAT
#4, (SP)
#310,a(SP)
#2. (SP)
PC.R(SP)+
#10, (SP)

;REPORT LOSS OF BIT CLOCK,

000000 .

004000

BIT
BEQ
MOV
BIC
MOV
ADD
MOVB
Y
:)
JSR
SUB
NOP

MOV
ADD
MOVB
JSR
SUB
NOP

RMER2] ,$BDDAT
#4 , (SP)
#312.a(sP)
PC.a(SP)+
#10, (SP)

;RECEIVED STATUS
*MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER
*REPORT ERROR AND RETURN
*RESTORE SP TO NO ERROR

;LOOK FOR "UNS'*
OR ‘DTE''
OR ‘WLE'' IN ERROR REGISTER #1
BIT
#UNS 'DTE 'WLE ,RMER1]
BEQ
220$
:NO BITS SET
;REPORT “UNS'' ERROR IF 'DVC'*
= 0

BIT

BEQ
BIT
BNE

#UNS ,RMER1 ]
190%
#DVC,RMER2]
190$

;1S "UNS'' SET??

‘NO!!
*WAS 'UNS'' CAUSED BY 'DVC'"?
TYES!!

MACRO v04.00

CZRMNBO RMOS/372 FCTNL TST 2

DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

286 053232
287 053240
288 053246
289 053254
290 053260

013737
042737
013737
062716
112776

292 053272
293 053274
ggg C53300

004736
162716

291 053266

296

297 053300
298 053306
299 053310
300 053316
301 053324
302 053332
303 053336
304 053344
305 C53350
306 053352
ggg 053356
309
1.
A
311 053356
312 053764
313 053366
314 053374

315 053402
316 053410
317 053414
318 053422
319 053430
320 053432
321 053440
322 053442
323 053450
324 053456
325 053462
gsg 053464

162716

032737
001423
013737
042737
013737
062716
112776
162716
004736
162716

032737
001441
013737
013737
052737
062716
112776
032737

001404

032737
001406
112776
042737
162716
004736
162716

001352
(040000
001352
000004
000313

001140
001140
001142
000000

000002
000010

001352

001352
010000
001352
000004
000314
000002

001140
001140
001142

001352

001352
001352
004000
000004
000315
004000

001142
001140
001140

000010

001412

000316
004000
000002

000000
001140

330
331 053470
332 053474
333 053500
334 053502
335 053506
g;? 053512

338
339
340 053516
341 053524
342 053532

PC,a(SP)+
#10, (SP)

#2,(SP)

TIMING ERROR,

#DTE ,RMER1]
200%
RMER1I,$GDDAT
#DTE ,$GDDAT
RMER11 ,$BDDAT
#4, (SP)
#314 ,2(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

SEQ 0214

;EXPECTED STATUS

;RECEIVED STATUS
sMOVE SP TO USERS ERROR CALL
JWRITE ERROR NUMBER

sMOVE SP TO RETURN IF ERROR
JREPORT ERROR AND RETURN
JRESTORE SP TO NO ERROR
I.E.,

'DTE'' =1

;1S DTE SET??
;NO!!
;EXPECTED STATUS
;RECEIVED STATUS
;MOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER IN CALL
sMOVE SP TO RETURN IF ERROR
JREPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

;REPORT AN ERROR IF WRITE LOCK ERROR IS SET.
SEE
;WRITE PROTECTED, OR IF FUNCTION WAS NOT A WRITE
BIT
#WLE ,RMER1]
;WAS "WLE'' SET??
BEQ
2208
:NO!!
MOV
RMER1I,$BDDAT
;RECEIVED STATUS
MOV
RMER1I,$GDDAT
;EXPECTED STATUS

000000
001350

°205%:
2108:

000010

ggg 053470

JSR
sus

BIT
BEQ
MOV
BIC
MOV
ADD
MOVB
SuB
JSR
suB

200%:

004000

#UNS
, SGDDAT
RMER11,$BDDAT
#4.(SP)
#313,a(SP)

RMER11,$GDDAT

;REPORT ANY DRIVE

000000

000010

G .1
11:43:33 PAGE 35-5

MOV
BIC
MOV
ADD
MOVB

SuUB

190%:

010000

4-APR-81

BIS
ADD
MOVB
BIT
BEQ
BIT
BEQ
MOVB
BIC
SuB
JSR
SuB

#WLE
, SGDDAT
#4,(SP)
#315,a(SP)
#WRL ,RMDS I
205%
#B1T3 ,RMCS10
2108
#316,a(SP)
#WLE
, SGDDAT
#2,(SP)
PC,a(SP)+
#10,(SP)

IF DRIVE

IS NOT

;MOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER IN CALL
;WAS DRIVE WRITE PROTECTED??
:NO!!
;WAS COMMAND A WRITE??
$YE3:
s CHANGE ERROR NUMBER
sMOVE SP TO RETURN IF ERROR
;REPORT ERROR AND RETURN
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
ADD
#4, (SP)
;MOVE SP TO USER'S ERROR
TSTB
a(SP)
;WAS ERROR DETECTED??
BEQ
225%
;NO = DU DATA CHECKS
SuB
#4, (SP)
;RESTORE SP
JMP
3408
;SKIP DATA CHECKS
225%:
SUB
#4,(SP)
sRESTORE SP

000004
000000
000004
054510
000004

001412
177700
000063

‘

055100
055100
055100

;CHECK HEADER ERRORS IF FUNCTION WAS NOT WRITE HEADER AND DATA, AND
;IF HEADER COMPARE IS NOT INHIBITED
MOV
RMCS10,510%
;STRIP AND STORE FUNCTION CODE
BIC
#*CFNCMSK,510%
CMP
#WH!GO0,510%
JWAS FUNCTION WRITE HEADER & DATA??

CZRMNBO RMOS/3/2 FCTNL TST 2

DATA

TRANSFER COMMAND STATUS (HECK SUBROUTINE

343 053540
344 053542
345 053550
346
37
348 053552
349 053560
350
351
352 053562
353 053570
354 053572
355 053600
356 053606
357 053614
358 053620
359 053626
360 053632
361 053634
362 053636
363
364
365 053636
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

———

MACRO Vv04.00

001512

032737
001106

002000

001370

032737
001533

000620

001352

032737
001422
013737
042737
013737
062716

000400

001352

001140
001140
001142

112776
162716

004736

000400

001352
000004
000317
000002

000020

001352

001352
000020
001352
000004
000320
000002

001140
001140
001142

032737
001453
013737
042737
013737
062716
112776

000200

001352

001352
000200
001352
000004
000321
000002

001140
001140
001142

032737
001425
013737
042737
013737
062716
112776
162716

004736

BIT
BEQ

BEQ

000000

;YES = SKIP HEADER CHECKS
JWAS HCI SET??

;YES = SKIP HEADER CHECKS

270%

2308

MOV
ADD
MOVB

#4,(SP)

BIT
BEQ
MOV
BIC
MOV
ADD
MovB
SuB
JSR
BR

I.E., "FER'
OR "HCRC'' OR "WCE"’

#HCRC!FER!HCE ,RMERTI

RMER11 ,$GDDAT

SuB
JSR
BR

SEQ 0215

#HCRC
, $GDDAT

;NO ERRORS SET
;WAS 4CRC

sNO!!

SET??

;EXPECTED STATUS

RMER11,$BDDAT

;RECEIVED STATUS

#317,a(SP)

;WRITE ERROR NUMBER

#2,(SP)
Sgég(SP)+

#FER,RMER1I

240%

RMER1I,$GDDAT

HFER,$GDDAT

RMER11,$BDDAT
#4, (SP)
#320,8(SP)
#2,(SP)
sgbg(SP)*

;MOVE

SP TO USERS ERROR

sMOVE SP TO RETURN IF ERROR
JREPORT ERROR AND RETURN

;WAS ‘FER'' SET??

;NO!!

;EXPECTED STATUS
;RECEIVED STATUS
;MOVE SP TO USERS ERROR
;WRITE ERROR NUMBER

sMOVE SP TO RETURN IF ERROR
sREPORT ERROR AND RETURN

sREPORT HEADER COMPARE ERROR IF SET

THERE

001140
001140
001142

2508

;REPORT FORMAT ERROR IF SET

000000

001352
000620
001352
000004
000322
000002

250%
#HC I ,RMOF |

MOV

BIC

240%:

001352

;REPORT HEADER CRC ERROR IF SET
#HCRC,RMER1]
BIT

000000

000620

11:43:33 PAGE 35-6

SSEE 1f ANY HEADER ERRORS ARE SET,

230%:

032737
001422
013737
042737
013737
062716
112776
162716
004736
000453

162716
004736
000425

BEQ
BIT
BNE

000000

000501

4-APR-81

5508:

BIT
BEQ
MOV
BIC
MOV
ADD
MOVB
SuB
JSR
BR

#HCE ,RMER1I

;WAS “HCE'' SET??

RMER11,$GDDAT
#HCE ,$GDDAT
RMER1] ,$BDDAT

;EXPECTED STATUS

270%

#4, (SP)

#321,a(SP)
#2,(SP)
Sgég(SP)+

N0!

;RECEIVED STATUS

;MOVE SP TO USER'S ERROR

;sWRITE ERROR NUMBER
;MOVE SP TO RETURN IF ERROR
;REPORT ERROR AND RETURN

SHOULD BE NO HEADER ERRORS BECAUSE

.COMMAND WAS WRITE HEADER AND DATA, OR
.HEADER COMPARE INHIBIT WAS SET
#HCE ' FER 'HCRC ,RMER1]
BIT
;NO ERRORS WERE SET
BEQ
2708

MOV
BIC
MOV
ADD
MOVB
SUB
JSR

RMER11,$GDDAT

:EXPECTED STATUS

#HCE ! FER!HCRC, $GDDAT
RMER11,$BDDAT
;RECEIVED STATUS
#4, (SP)
*MOVE SP TO USER'S ERROR CALL

#322,a(SP)
#2,(SP)

PC.a(SP)+

‘WRITE ERROR NUMBER

*MOVE

SP TO RETURN

ERROR

*REPORT ERROR AND RE TURN

CZRMNBO RMOS5/3/2 FCTINL TST 2

DATA

MACRO V04.00

TRANSFER COMMAND STATUS CHECK SUBROUTINE

400 054040
401 054044

162716
000137

000010
054510

4-APR-81

2608:

Su8
JMP

1
I
11:43:33 PAGE 35-7
410, (SP)
3408

;MOVE SP TO NO ERROR
OMIT FURTHER DATA C(HECKS

403 054050

2708:

405
406

:IF COMMAND WAS A WRITE COMMAND, GO DO WRITE ERROR CHECKS, OTHERW]SE
:DO READ ERROR CHECKS

407 054050
408 054056
409 054060
410 054064
412

413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432

032737
001002
000137

054064
054072
054074
054102
054110
054116
054122
054130
054136
054140
054146
054154

032737
001450
013737
042737
013737
062716
112776
032737
001021
112776
032737
001007

054156
054164
054166
054172
054174
054202
054206

032737
001406
162716
000410
112776
162716
004736

433 054210

162716

000010

055100

054276

2758

100000

001352

001352
100000
001352

001140
001140
001142

000323
004000

000000
001370

000324
000100

000000
001352

000020

055100

000004

000004
000325
000002

'
000000

000010

032737
001423
013737
042737
013737
062716

445 054260
446 054264
447 054266

162716
004736
162716

448 056272

112776

000137

000400

001346

001346
000400
001346
000004

001140
001140
001142

000326
000002

000000

000010

054510

054276
054304
054306
054314

SET

#10,(5P)

:RESTORE SP TO NO ERROR

:REPORT DATA BUS PARITY ERROR IF SET, I.E., MDPE = 1
BIT ~ AMDPE.RMCS2]
:;PARITY ERROR SET??
BEQ
3008
INO!
!
MOV
RMCS2I,$GODAT
:EXPECTED STATUS
BIC
#MDPE,S$GDDAT
MOV
RMCS2i,$BDDAT
;RECEIVED STATUS
ADD
#4,(SP)
:MOVE SP TO USER'S ERROR

3008:

430 054276
452
453
454
455
456

CHECK

;WAS THIS A WRITE COMMAND?
iNO!!
60 DO WRITE STATUS CHECK

2908:

054214
054222
054224
054232
054240
054246

444 054252

DATA

#8I73,5108
2758
3108

BIT
#DCK,RMERT]
;DATA CHECK ERROR??
BEQ
2908
INO!
!
MOV
RMER11,SGDDAT
:EXPECTED STATUS
BIC
#DCK,SGDDAT
MOV
RMERTI,SBDDAT
:RECEIVED STATUS
ADD
#4,(SP)
MOVE SP TO USER'S ERROR
MOVB
#323,a(SP)
:WRITE ERROR NUMBER
BIT
WECI.RMOFI
:WAS ECC CORRECTION DISABLED??
BNE
2808
SYES!
!
MOVB
#324,8(SP)
:CHANGE TO RECOVERABLE ERROR
BIT
WECH.RMER1]
:IS ERROR RECOVERABLE??
BNE
2768
NO !
:DO NOT REPORT RECOVERABLE ERROR' IF READ COMMAND
BIT
#B1T4,5108
;WAS THIS A READ COMMAND ??
BEQ
2808
N !!
SUB
4, (SP)
RESTORE SP
BR
2908
:SKIP ERROR - DATA WILL BE CORRECTED
276%:
MOVB
#325,a(SP)
:CHANGE TO NON_RECOVERABLE
2808:
SUB
#2,(5P)
:MOVE SP TO RETURN IF ERROR
JSR
PC.a(SP)+
:REPORT ERROR AND RETURN

sus

435 054214
437
438
439
440
441
442
443

sREPORT

BIT
BNE
JMP

MOVB

#326,a(SP)

JMP

3408

SUB
JSR
sB

#2,(5P)
PC.a(SP)+
410, (5P)

‘WRITE ERROR NUMBER

:MOVE SP TO RETURN IF ERROR
:REPORT ERROR AND RETURN
:MOVE SP TO NO ERROR

:SKIP WRITE STATUS CHECK

3108:
032737
001423
013737
042737

000001

001350

001350
000001

001140
001140

;TEST TO SEE THAT OFFSET MODE WAS RESET; REPORT ERROR IF 'OM'* = 1
BIT
#OM,RMDSI
;1S OFFSET ON??
BEQ
3208
iNO
MOV
RMDSI,SGDDAT
:EXPECTED STATUS
BIC
#OM,SGDDAT

SEQ 0216

CZRMNBO RMOS5/3/2 FCTINL TST 2

MACRO V04.00

DATA TRANSFER COMMAND STATUS (HECK SUBROUTINE

457 054322
458 054330

013737
062716

001350
000004

460 054342

162716

000002

459 054334
4671

054346

462 054350

004736

000327

000000

000010

054362
054364
054572
054400
054406

032737
001423
013737
042737
013737
062716

000010

001400

001400
000010
001400
000004

001140
001140
001142

473 054420
474 056424
475 054426

162716
004736
162716

478
479 054432
480 054440

032737
001423

482 054450
483 054456
484 054464

042737
013737
062716

465
466 054354

467
468
469
470
471

472 054412

2;9 054432

481 054442

485 054470

112776

013737

112776

486 054476
487 054502
488 054504

162716
004736
162716

491
492 054510
493 054516
494 054520

032737
001423
013737

233 054510

435 054526
496 054534

042737
013737

498 054546

112776

497 054542

499 054554
500 054560

501 054562

502 054566
503
504 054566
505 054572
06 054576
507 054602
508
509

510
§11 054604
5§12 054612
§13 054614

062716

162716
004736

000330
000002

001352

000040
001352
000004

000331

000002

001140

001350
147677
010100

BEQ
MOV
BIC
MOV
ADD

3308
RMER21
, $GDDAT
#DPE
, $GDDAT
RMER21
, $BDDAT
#4, (SP)

suB
JSR

#2, (SP)
PC.a(SP)+
#10, (SP)

032737

#330,a(SP)

000000

RMER11,$GDDAT

BIC
MCV
ADD

#JCF
, SGDDAT
RMER1
I, $BDDAT
#4, (SP)

SuB
JSR
SuB

#2, (SP)
PC.a(SP)+
#10, (SP)

*EXPECTED STATUS
JRECEIVED STATUS
sMOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER

;MOVE SP TO RETURN IF ERROR
JREPORT ERROR AND RETURN
;sMOVE SP TO NO ERROR

#331.a(sP)

JEXPECTED STATUS

;RECEIVED STATUS
;MOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER
sMOVE SP TO RETURN IF ERROR
sREPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

;REPORT 'DATA LATE'' ERROR IF 'DLT'' = 1
BIT
#DLT,RMCS2]
;IS "DLT"" SET??
BEQ
3508
sNO!!
MOV
RMCS21,$GDDAT
JEXPECTED STATUS

BIC
MOV

#DLT,$GDDAT
RMCS21
, $BDDAT

MOVB

#332,3(sP)

ADD

#4,

SuB
JSR

(SP)

#2, (SP)
PC.a(SP)+

suB

#10, (SP)

sRECEIVED STATUS
;MOVE SP TO USERS ERROR C(ALL
;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
RMDSI ,=(SP)
;STACK DRIVE STATUS
BIC
#AC<PIP!MOL 'VV>, (SP) ;CLEAR DONT CARES
CMP
#MOL
'VV, (SP) +
;%S??IVE STATUS 0K??
BEQ
380$
;REPORT ERROR

032737
001430

#10, (SP)

MOVB

3408 :

001140
001140
001142

013746
042716
022726
001522

PC,a(SP)+

suB

MOV

000000

001346
100000
001346
000004

000010

#2,(SP)

#327.a(SP)

JRECEIVED STATUS
;MOVE SP TO USER'S ERROR (ALL
JWRITE ERROR NUMBER IN CALL
JMOVE SP TO RETURN IF ERROR
;REPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

;TEST FOR WRITE CLOCK FAILURE; REPORT ERROR IF ‘WC(CF'' =1
BIT
#WCF ,RMERT]
;IS "WCF'' SET??
BEQ
3408
;NO!!

001140
001142

001346

162716

SUB

3308 :

100000

000002

RMDSI
, SBDDAT
#4, (SP)

MOVB
:

001352

;TEST FOR DATA BUS PARITY ERROR; REPORT ERROR IF 'DPE'" =
BIT
#DPE ,RMER2]
'%M PARITY ERROR??

000000

000010

000332

MOV
ADD

MOVB
3208 :

000010

000040

11:43:33 PAGE 35-8

JSR

162716

222 054354

fom————

112776

001142

4-APR-81

020000

001350

040000

001400

POSITIONING

;1.E, PIP =1 AND SKI =0
BIT
#PIP,RMDS]
BEQ
3608
BIT

#SK1,RMER2]

IN PROGRESS AND NO SEEK

INCOMPLETE

;13 ‘'PIP SETY?
;NO!!

JWAS "'SKI'' ERROR REPORTED??

ERROR,

CZRMNBO RMOS5/3/2 FCTNL TST 2

MACRO v04.00

DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

514 054622
§15 054624
516 054632

001024
013737
042737

518 054646

062716

517 054640

§19 054652

520 054660
521 054664

522 054666
523 054672

ggg 054674

526
507
528 054674
529 054702
§30 054704
5§31 054712
532 054714
533 (054722

013737

001350
020000

001350

#333.a(sP)

*WRITE ERROR NUMBER

004736

JSR

000002

162716
000240

000010

032737
001027
032737
001023
013737
052737

010000

001350

020000

001352

001350
010000

001140
001140

000334

062716
162716
004736
162716

000004

000002

001142

000010

5§53 055036
554 055042
555 055044

162716
004736
162716

5§58

112776

010000

001400

001350
000100
001350
000004

001140
001140
001142

000335

000002
000010

559 055050
560 055054
561 055060
562 055062

062716
105776
001403
062716

000004
000000

ggg 055070

162716

000004

2267 055074

000207

568 055076

000000

563 055066 000402

569 055100

000000

SuUB
NOP

#2,(SP)

PC,a(SP)+

#10, (SP)

sMOVE SP TO RETURN IF ERROR
;REPORT ERROR AND RETURN

JMOVE SP TO NO ERROR

;REPORT ERROR IF MEDIUM IS NOT ON LINE AND OPI ERROR WAS NOT
*REPORTED, I.E., MOL = OPI = 0
BIT
#MOL , RMDS I
;1S MEDIUM ON LINE??
BNE
370%
SYES!!
BIT
#OPI ,RMER11
*WAS OPI ERROR REPORTED??
BNE
3708
SYES!!
MOV
RMDSI,SGDDAT
:EXPECTED STATUS
BIS
#MOL
, SGDDAT

MOV

RMDS I ,$BDDAT

JRECEIVED STATUS

MOVB

#334.a(SP)

*WRITE ERROR NUMBER

ADD

3708 :

544 054762 032737 000100 001350
001027
032737
001033
013737
052737
013737
062716

SuB

000000

542
543

545 054770
546 054772
547 055000
548 055002
549 055010
550 055016
551 055024

ADD

3608 :

112776

ggg 055050

*MOVE SP TO USERS ERROR CALL

MOVB

536 054742

552 055030

#4, (SP)

112776 000333 000000

001350

229 054762

:YES-DONT REPORT PIP
:EXPECTED STATUS

JRECEIVED STATUS

162716

001142

3608
RMDSI,$GDDAT
#P1P, $GDDAT

RMDSI,$BDDAT

013737

537 054750
538 054754
539 054756

BNE
MOV
BIC

001140
001140

MOV

000004

534 054730

535 054736

4-APR-81 11:43:33 PAGE 35-9

SUB
JSR
SuB

#4,(SP)

#2, (SP)
PC,a(SP)+
#10. (SP)

sMOVE SP TO USER'S ERROR
*MOVE SP TO RETURN IF ERROR
;REPORT ERROR AND RETURN
*MOVE SP TO NO ERROR

;REPORT ERROR IF VOLUME IS NOT VALID AND '‘IVC'' ERROR WAS NOT
;REPORTED, I.E., VW = IVC = 0

BIT

BNE
BIT
BNE
MOV
BIS
MOV
ADD

000000

MOVB

2808 :

suB
JSR
sus

#VV,RMDS

;1S VOLUME VALID??

380$
#1VC,RMER2]
3908
RMDSI,SGDDAT
#VV,$GDDAT
RMDSI,$BDDAT
#4, (SP)

LYES!!
*WAS IVC ERROR REPORTED??
SYES!!
:EXPECTED STATUS

#2,(SP)
PC,a(SP)+
#10, (SP)

*MOVE SP TO RETURN IF ERROR
sREPORT ERROR AND RETURN
*MOVE SP TO NO ERROR

#335.a(sP)

;RECEIVED STATUS
*MOVE SP TO USERS ERROR CALL

*WRITE ERROR NUMBER

;AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS FOUND
ADD
TSTB
BEQ
ADD

#4, (SP)
a(SP)
3908
#4,(SP)

:MOVE SP TO ERROR CALL
*ANY ERROR??
INO!!
:YES - MOVE SP TO ERROR RETURN

SUB

#4,(SP)

;MOVE SP TO NO ERROR RETURN

400%:

RTS

;RETURN TO USER

5008:

.WORD

000004
3908:

5108:

B8R

.WORD

4008

:ERROR FLAGS

; TEMPORARY STORAGE

SEQ 0215

CZRMNBO RMOS5/3/2 FCTINL TST 2

1
L
11:43:33 PAGE 36

4-APR-81

STATUS (HECK SUBROUTINE

N =O V00NN
WN— OO0 N
NN -2

STATIC DRIVE

MACRO Vv04.00
.SBTTL

SEQ 0219

STATIC DRIVE STATUS CHECK SUBROUT INE

:THIS SUBROUTINE LOOKS FOR UNEXPECTED CHANGES IN DRIVE
sSTATUS,

SUCH AS THE DRIVE LOSING VOLUME VALID.

THE SUBROUTINE

:CAN BE USED BY HOUSEKEEPING AND OTHER COMMANDS DURING WHICH THERE
;SHOULD NOT BE ANY DRIVE ERRORS OR CHANGES
;THE

———

:1F

FOLLOWING CONDITIONS ARE

TRUE:

.MOL = 0 .

=
PIP

IN STATE.

TESTED AND REPORTED AS ERRORS

INDICATES DRIVE WENI OFFLINE, NOTE

s THAT MOLvés ASSUMED TO HAVE BEEN SET

;
3

INDICATES THE DRIVE LOST VOLUME VALID
INDICATES THAT THE DRIVE IS OFF CYLINDER

oKl = 1 . INDICATES THE DRIVE HAS AN UNEXPECTED
DVC = 1 . INDICATES AN UNEXPECTED DEVICE FAULT

SKI ERROR

;THE SUBROUTINE IS CALLED AFTER STORING STATUS IN THE GET BUFFER.

(2 108 1,

(D
:
i
:
:

JSR
BR
NOP
ERROR
JSR
2?7?

PC,STCDRVSTS
222
PC,a(SP)+

RETURN HERE
RETURN HERE

IF NO ERROR
TO REPORT AN ERROR

RETURN HERE

IF NO MORE ERRORS

ERROR NUMBER DEF INED BY SuB
GO BACK TO SUB FOR MORE ERROR CHECKS

STCDRVSTS:

062716
105076

000004
000000
000004

013746
042716
022726
001524

001350
147677
010100

162716

36 055126
37 055132
40
41
42
43
44
45

055134
055142
055144
055152
055154
055162

46 055170

47 055176
48 055202
49 055210

032737
001030
032737
001024
013737
052737
013737
062716
112776
004736
162716
000240

56 055224
57 055232

032737
001030

ADD
CLRB
SuB
SSEE IF "MOL'" =
MOV
BIC
CMP
BEQ

010000

001350

020000

001352

001350

001140
001140
001142

#4,(SP) :MOVE SP TO USER'S ERROR CALL
a(SP)
:CLEAR ERROR NUMBER
#4, (SP)
*MOVE SP BACK TO NO ERROR RETURN
W' =1, AND 'PIP* = 0
RMDS],~(SP)
:PUT DRIVE STATUS ON STACK
#~C<PIPIMOL
'VV>, (SP)
#MOL'VV,(SP)+
;ARE MOL,VV AND PIP 0.K.2?
308
SYES!!

;REPORT AN ERROR IF MOL = O AND 'OPI'' = 0
BIT
#MOL , RMDS I
;IS MOL ON ?2?

BNE
BIT
BNE

MOV
BIS
MOV
ADD

000000

162716

50 055214
51 055216
52 055222
53 055224

;CLEAR USER'S ERROR CALL

move
SUB
JSR

zgg

000010

108
#OP] ,RMER1]
108
RMDSI,$GDDAT
#MOL , $GDDAT
RMDSI,$BDDAT

SYES!!
*WAS “OPI'* SET??
*YES=DONT REPORT 'MOL'*
= 0

#207.a(sP)

*LWRITE ERROR NUMBER IN CALL

(SP)

:EXPECTED STATUS
!
;R:7E.VED STATUS
*MOVE SP TO USER'S ERROR CALL

#2,(SP)
PC.a(SP)+

*HMOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

#4,

#10, (SP)

*MOVE SP BACK TO NO ERROR RETURN

10%:

000100

001350

;REPORT AN ERROR IF VOLUME VALID IS NOW ZERQ AND "'IVC'' = 0

BIT
BNE

#VV,RMDS |
208

SIS W't= 022
‘NO!!

CZRMNBO RMOS/3/2 FCTNL TST 2

MACRO v04.00

STATIC DRIVE STATUS (HECK SUBROUTINE

58 055234
59 055242

032737

001024
013737

052737
013737
062716
112776
162716

004736

72 055314
73 055322
74 055324
75 055332
76 055334
77 055342
78 055350
79 055356

RanSo38IRIRER288

80 055362
81 055370
82 055374
83 055376
84 055402
85 055404
86
87
88 055404
89 055410
90 055414
91 055416
92
93
94 055416
95 055424
9% 055426
97 055434
98 055442

001400

001350
000100
001350
000004
000210
000002

001140
001350
001142

020000

001350

040000

001400

001350
020000
001350

001140
001140
001142

20%:

RENRERN

v
S

ViV

[elelelelelels]

PC.(SP)+

)
V. 20
SEQ O

:WAS “IVC'' SET??
*YES=DONT REPORT ‘VV''
= 0
:EXPECTED STATUS

:RECEIVED STATUS
*MOVE SP TO USER'S ERROR CALL

‘WRITE ERROR NUMBER IN CALL
*MOVE SP TO RETURN FOR ERROR
*REPORT ERRCR VIA USER

#13, (SP)

‘MOVE SP BACK TO NO ERROR

IS OFF

BIT
BEQ
BIT
BNE
MOV
BIC
MOV

#PIP,RMDSI
308
#SK1,RMER21
30%
RMDSI,$GDDAT
#PIP, $GDDAT
RMDSI,$BDDAT

;IS DRIVE OFF CYLINDER??
*NO!!
*WAS ''SKI'’ SET??
*YES=DONT REPORT 'PIP'* = 1
:EXPECTED STATUS

MOVB
SUB
JSR
332

#2i1.3(SP)
#2.(SP)
PC.a(SP)+
#10, (SP)

*WRITE ERROR NUMBER IN USER'S CALL
*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER
*MOVE SP TO NO ERROR RETURN

#4 ., (SP)

;RECEIVED STATUS

*MOVE SP TO USER'S ERROR CALL

30%:
SSEE IF "'SKI''
=
MOV
BIC
BEQ

032737
001424
013737
042737
013737
062716
112776

000200

001400
001140
001140

162716

001400
000200
001400
000004
000212
000002

162716

000010

40%:

'DVC'* = 0
RMER2I,-(SP)
:PUT ERROR REG 2 ON STACK
#AC<SKIIDVC>, (SPY+
608
:BRANCH IF NO ERROR

:REPORT AN ERROR IF THERE IS A DEVICE FAULT

001142

BIT
BEQ
MOV
BIC

#DVC ,RMER2]
508
RMER2],$GDDAT
#DVC, SGDDAT

;ANY DEVICE FAULT??
*NO!!
:EXPECTED STATUS

ADD
MOVB
SUB
JSR
332

#4 . (SP)
#2712.a(sP)
#2,(SP)
PC.a(SP)+
#10, (SP)

*MOVE SP TO USER'S CALL
‘WRITE NUMBER "¢ ERROR IN CALL
*MOVE SP TO .*.URN FOR ERROR
*REPORT ERROR V'* USER
*MOVE SP BACK TO NO ERROR

MOV

000000

RMER2] ,$BDDAT

;RECEIVED STATUS

50%:

il
nlh sl ol
i
il ol
il

NOP

ADD

000010

001400
137577

032737
001424
013737
042737
013737
062716
112776

#210.,a(sP)
#2,(5P)

RMDSI,$GDDAT
#VV.RMDS|
RMDS1,$BDDAT
#4, (SP)

:REPORT AN ERROR IF DRIVE

000000

013746
042726
001460

000240

move
SUB
SUB

032737
001430
032737
001024
013737
042737
013737
062716
112776
162716
004736
162716
000240

#1VC,RMER2]
20$

JSR

000010

000004
000211
000002

BIT
BNE
MOV
BIS

MOV
ADD

000000

162716
000240

004736

il cnlh il

010000

4-APR-81 11:43:33 PAGE 36-1

040000

001400

001400
040000
001400
000004
000213

001140
001140

001142
000000

;REPORT AN ERROR IF ''SKI''
= 1

BIT
BEQ
MOV
BIC

#SKI,RMER2]
608
RMER21,$GDDAT
#SK1, $GDDAT

;1S THERE A SEEK INCOMPLETE ERROR
*NO!!
-EXPECTED STATUS

ADD

#4 ., (SP)

‘MOVE SP TO USER'S ERROR CALL

MOV
MOVB

RMER21,$BDDAT
#213.a(sP)

;RECEIVED STATUS

*WRITE ERROR NUMBER IN USER'S ERROR CALL

CZRMNBO RMOS/3/2 FCTNL TST 2

MACRO v04.00

STATIC DRIVE STATUS CHECK SUBROUTINE

115 055542 162716 000002

SuB

#2,(SP)

:MOVE SP TO RETURN FOR ERROR

SUB

#10, (SP)

*MOVE SP BACK TO NO ERROR

116 055546

004736

JSR

118 055554

000240

NOP

121
122 055556

062716

1264 055566

001403

117 055550

} 38 055556

123 055562

162716 000010

105776

125 055570

062716

128 055602
129 055604

000240
000207

126 055574
127 055576

000402
162716

608 :
000004

000000

PC,a(SP)+

sREPORT ERROKR VIA USER

:AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED
ADD
#4, (SP)
:MOVE SP TO USER'S ERROR CALL

ISTB

a($P)

*WAS AN ERROR DETECTED??

ADD

#4,(SP)

JYES = MOVE SP TO USER'S ERROR RETURN

BEQ

000004

4-APR-81 11:43:33 PAGE 36-2

70$:

80%:

BR
SUB

NOP
RTS

703

80%
#4, (SP)
PC

INO!!

;NO = MOVE SP TO NO ERROR RE TURN
JRETURN TO USER

SEQ 0221

CZRMNBO RMOS/3/2 FCTNL

SAVE

TST 2

AND RESTORE RO-RS ROUTINES

MACRO v04.00 4-APR-81 11:43:33 PAGE 3;
8

.SBTTL
AR

SAVE AND RESTORE RO-RS ROUTINES

A AR AR AR AN AN

**SAVE RO-RS

s*CALL:
b

SEQ 022¢

AR AR RN NN R RN AN

A RAN R AR RN

RRANN

RSN RNART R

SAVREG

*+UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
B

SATOP===(+16)

(% #2===(+18)

;v +4==-=R5
;% +6===R4
‘v +8-=-R3
- x+10-=-R2

' x+12-==R1
;*+14---R0

055606
055606
055610
055612
055614
055616
055620
055622
055626
055632
055636
055642

010046
010146
010246
010346
010446
010546
016646
016646
016646
016646
000002

$SAVREG:

R5,=(SP)

;:PUSH RO ON STACK
;sPUSH R1T ON STACK
;:PUSH R2 ON STACK
;:PUSH R3 ON STACK
;2PUSH R4 ON STACK
;:PUSH R5 ON STACK
;:SAVE PS OF MAIN FLOW
:sSAVE PC OF MAIN FLOW
;sSAVE PS OF CALL
;:SAVE PC OF CALL

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,R5

;;RESTORE
;;RESTORE
;.RESTORE
;;RESTORE

RO,=(SP)
R1,-(SP)
R2,=(SP)

R3,-(SP)

R4 ,=(SP)

000022
000022
000022
000022

RTI

22(SP) ,-(SP)
22(SP) ,-(SP)
22(SP) ,=(SP)
22(SP) ,-(SP)

:*RESTORE RO-R5

**CALL:

055644
055644
055650
055654
055660
055664
055666
055670
055672
055674
055676
055700

012666
012666
012666
012666
012605
012604
012603
012602
012601
012600
000002

$RESREG:

RESREG

(SP)+ R4

(SP)+,R3
(SP)+,R2

(SP)+ ,R1
(SP)+,RO

PC
PS
PC
PS

OF
OF
OF
OF

CALL
CALL
MAIN FLOW
MAIN FLOW

;;POP STACK INTO RS
:+POP STACK INTO R4

;:POP STACK INTO R3

::POP STACK INTO R2
. :POP STACK INTO R1
;:POP STACK INTO RO

CZRMNBO RMOS5/3/2 FCTNL

BINARY

TO ASCII

IST 2

AND TYPE

ROUTINE

MACRO v04.00 4-APR-81 11:43:33 PAGEC 3%
.SBTTL

SEQ 0223

BINARY TO ASCII AND TYPE ROUTINE

.......'..'Q...'...."'........'.'............'.Q'."....'.'."

'THIS ROUTINE IS USED TO CHANGE A
'%A'LHCRV-ASC“ NUMBER AND TYPE IT.
%

055702
055704
055710
055712
055720
055722

055724
055730
055734
055736
655740
055742
055750
055752
055754

010146
016601
000261
112737
006101
001406
105537
104401

000241
000765
012601
016666
012616
000002
000

000006

000060

055754

000002
000

MoV

TYPBN

ROL

2%:

$BIN:

NUMBER,=(SP)

R1,=(SP)
6(SP) ,R1

#'0,$BIN
R1

TYPE

2%
$8IN
.$BIN

MOV

1%
(SP)+,R1

BEQ
AD(CB

000004

16-8IT

$TYPBN: MOV
MOV
SEC
1 $:
MOVR

055754
055754

16-BIT BINARY NUMBER TC A

€LL
BR

MOV
MOV
RTI

.BYTE

2(SP) ,4(SP)
(SP)+,(SP)

0.0

;sNUMBER TO BE TYPED

2:TYPE

17T

;:SAVE R1 ON THE STACK
:+:GET THE INPUT NUMBER
;2SET "'C"' SO CAN KEEP TRACK OF THE NUMBER OF BITS
;:SET CHARACTER TO AN ASCII 0.
;:GET THIS BIT
. ;DONE?
;sNO--SET THE (HARACTER EQUAL TO THIS BIT
.:GO TYPE THIS BIT
. sCLEAR ‘'C"' SO CAN KEEP TRACK OF BITS
;.G0 DO THE NEXT BIT
.:POP THE

STACK

INTO R1

2 JADJUST THE STACK

;;RETURN TO USER
;:STORAGE FOR ASCII CHAR. AND TERMINATOR

CZRMNBO RMOS/3/2 FCINL

CONVERT BINARY

TST 2

TO DECIMAL

MACRO v04.00

AND TYPE ROUTINE

4-APR-B1

.SBTTL

D 2
11:43:33 PAGE 39

SEQ 0224

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

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

'TNIS ROUTINE

IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT

:*SIGNED DECIMAL

(ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE

:«NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL ‘BE TYPED
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE

:*<EPLACED WITH SPACES.
s*CALL:
. %

055756
055756
055760
055762
055764
055766
055770
055774
056000
056002
056004
056012
056014
056020
056024

010046
010146
010246
010346
010546
012746
016605
100004
005405
112766

005000
012703
112723
005002
016001
160105
002402
005202
000774
060105
005702
001002
105716
100407
106316
103003
116663

052702
052702
110223
005720
020027
002746
003002
010502
000764
105726
100003
116663

056140

105013
012605
012603
012602
012601

MOV
TYPDS

$TYPDS:

;:PUT THE BINARY NUMBER ON THE STACK
;GO TO THE ROUTINE

RO,=(SP)
R1.=(SP)
R2.-(SP)

;;PUSH RO ON STACK
;:PUSH R1 ON STACK
;;PUSH R2 ON STACK

#20200, - (SP)

;:SET BLANK SWITCH AND SIGN
;:GET THE INPUT NUMBER
;:BR IF INPUT IS POS.
;;MAKE THE BINARY NUMBER POS.
;:MAKE THE ASCI] NUMBER NEG.
;;ZERO THE CONSTANTS INDEX
;:SETUP THE OUTPUT POINTER
;2SET THE FIRST CHARACTER TO A BLANK
;:CLEAR THE B(D NUMBER
;sGET THE CONSTANT

R3.-(SP)
R5.=(SP)

020200
000020

000055

= (SP)
NUM,

20(SP) -RS
1$

000001

056172
000040

056162

#'=,1(SP)

1%:

RO
#$DBLK ,R3

2%:

R2
$DTBL (RO) ,R1
R1,RS

#' ,(R3)+

3%:

5%:
177777

6%
1(SP) ,-1(R3)

6%:
7%:

#'0,R2
#' R2

R2,(R3)+
(RO)+
RO.#10

000010

8%:
177777

177776

9%:

;;FORM THIS BCD DIGIT

;:BR IF DONE
- +:INCREASE THE BCD DIGIT BY 1
;:ADD BACK THE CONSTANT
;sCHECK IF BCD DIGIT=0
.sFALL THROUGH IF 0
..STILL DOING LEADING 0°S?

4%:

000001
000060
000040

;:PUSH R3 ON STACK
;:PUSH RS ON STACK

1STB

MOvVB
CLRB
MoV
MOV
MoV
MOV

-1(SP) ,-2(R3)
(R3)
(SP)+,RS
(SP)+,R3
(SP)+ ,R2
(SP)+,R1

:BR IF
:;HSD’

YES

;:BR IF NO
;:YES--SET THE SIGN
:sMAKE THE BCD DIGIT ASCII
JsMAKE IT A SPACE IF NOT ALREADY A DIGIT
;;PUT THIS CHARACTER IN THE QUTPUT BUFFER
2 JUST INCREMENTING
;sCHECK THE TABLE INDEX

;.G0 DO IHf NEXT DIGIT
;:G0 TO EXIT
.
;;GET THE LSD
;+GO CHANGE TO ASCII
;sWAS THE LSD THE FIRST NON-ZERO?
;:BR IF NO

;sYES=-=-SET THE SIGN FOR TYPING
;3SET THE TERMINATOR

;;POP STACK INTO RS

;;POP STACK INTO R3
;;POP STACK INTO R?2
;:POP STACK INTO R1

(ZRMNBO RMOS/3/2 FCINL

CONVERT BINARY

TO DECIMAL

056142

012600

056150
056156
056160
056162
056164
056166
056170
056172

016666
012616
000002

056144

TST 2

104401

023420
001750
000144
000612

MACRO V04.00

AND TYPE

056172
000002

ROUTINE

4-APR-B1
MOV
TYPE
MOV
MOV

000004
$DTBL:

RTI

10000.

1000.

100.

$DBLK :

.BLKW

E
11:43:33 PAGE 39-1
(SP)+,RO

$DBLK

5(SP),4(SP)
(SP)+.(SP)

SEQ 0225

;:POP STACK INTO RC

;:NOW TYPE

THE NUMBER

;2ADJUST THE STA(K

;:RETURN TO USER

CZRMNBO RMOS5/3/72 FCTINL TST 2

BINARY

TO OCTAL

(ASCII)

AND TYPE

MACRO v04.00

4-APR-81

.SBTTL

11:43:33 PAGE 40

BINARY TO OCTAL

(ASCII) AND TYPE

'THIS ROUTINE

;*0OCTAL

SEQ 0226

IS USED TO CHANGE A 16-8BIT BINARY NUMBER TO A 6=DIGIT

(ASCII) NUMBER AND TYPE IT.

:"TVPOS“-ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
s*CALL:
- (SP)
o*
MOV
NUM,
;sNUMBER TO BE TYPED
;e
TYPOS
;.CALL FOR TYPEOUT
1
BYTE
N
s:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
M
.BYTE
.
;:M=1 OR 0
"'
;:1=TYPE LEADING ZEROS

;;0=SUPPRESS LEADING ZEROS

.'t
:.

;*$TYPON===<=ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;*$TYPOS OR $TYPOC
s*CALL:
,
= (SP)
N
MOV
NUM
;;NUMBER TO BE TYPED
I*

;;CALL FOR TYPEOUT

TYPON

S*$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
;*CALL:
o*
MOV
I*
TYPOC

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

———

—

000000

000001
056427
000002

056425

000001
000006
000005

056425
056427
056424

056427

000006
056426
056425
000012

$TYPOS: MOV
MOVR
MOVR
ADD
BR
$TYPOC: MOVB
MOVB
$TYPON: MOVB
MOV
MOV
MOV
MOVB
NEG
ADD

1%:

2%:

056426

3%:

177770

4%:

MOVB
MOovB
MOV
CLR

,
- (SP)
NUM

;;NUMBER TO BE TYPED
;;CALL FOR TYPEOUT

a(SP) ,-(SP)
1(SP) ,SOF ILL

;;PICKUP THE MODE
;;LOAD ZERO FILL SWITCH
;:NUMBER OF DIGITS TO TYPE
;;ADJUST RETURN ADDRESS

(SP) + ,$OMODE
+1
#2,(SP)
$TYPON
#1,80FILL

#5,80CNT

;:SET THE ZERO FILL SWITCH
;2SET FOR SIX(6) DIGITS
;;SET THE ITERATION COUNT

R4 ,-(SP)

::SAVE R4

#6, SOMODE +1

R3,-(SP)

R5,-(SP)
$OMODE +1,R4
R4
#6.R4
R4, $OMODE
$OFILL R4
12(SP) RS

ROL
BR

ROL

ROL
ROL

MOV
ROL
DECB
BPL
BIC
BNE
TST
BEQ
INC

;:S5AVE R3

;:SAVE RS
;;GET THE NUMBER OF DIGITS TO TYPE
;;SUBTRACT

IT FOR MAX. ALLOWED

;2SAVE IT FOR USE
;:GET THE ZERO FILL SWITCH
;:PICKUP THE INPUT NUMBER
;:CLEAR THE OUTPUT WORD
;;ROTATE MSB INTO ‘"’
;:G0 DO MSB
;:FORM THIS DIGIT

;;GET LSB OF THIS DIGIT
;s TYPE

THIS DIGIT?

;:BR IF NO
;.GET RID OF JUNK

#177770,R3
2

;:TEST FOR O

J:BR IF

R4
R4

2 sSUPPRESS THIS 0?
YES

;:DON'T SUPPRESS ANYMORE 0°'S

BINARY TO OCTAL

(ASCII)

056346
056352
056356
056362

052703
052703
110337
104401
105337

003347

0024602
005204
000744
012605
012604
012603

TST 2
AND

TYPE

MACRO v04.00

000060
000040

056424

000002

BIS
BIS
MOVB
TYPE
7%:
DE(CB
BGT
BLT
INC
B8R
6%:
MOV
MOV
MOV
MOV
MOV
RTI]
8%:
.BYTE
BYTE
$OCNT:
.BYTE
$OFILL: .BYTE
: .WORD
$OMODE
5%:

056422
056422

000004

4-APR-81

11:43:33 PAGE 40-1
#'0.R3
#'
_R3

R3,8%

;cMAKE THIS DIGIT ASCI!I

s ¢MAKE ASCII IF NOT ALRLADY
;:SAVE FOR TYPING
;G0 TYPE THIS DIGIT
;sCOUNT BY 1

;:BR IF MORE TO DO
;2BR IF DONE
;s INSURE LAST DIGIT ISN'T A BLANK

(SP)
+ ,R4

;:G0 DO THE LAST DIGIT
; JRESTORE RS
;JRESTORE R4

2(SP) ,4(SP)

;.SET THE STACK FOR RETURNING

(SP)+ RS

(SP)+,R3

(SP)
+, (SP)

(elolelele)

CZRMNBO RMOS5/3/72 FCINL

:;RESTORE R3
; sRETURN

;:STORAGE FOR ASCII DIGIT
. ;TERMINATOR FOR TYPE ROUTINE
;:O0CTAL DIGIT COUNTER
J2ZERO FILL SWITCH
;s :NUMBER OF DIGITS T0 TYPE

/RMNB

3/2

F(IN

cT
]

o
P

MACRO v04.00

4=-APR=-8B1

11:43:33 PAGE 41

SEQ 0228
TYPE

.SBTTL

ROUTINE

..I.'..'.'....'...."."..t...'t....'l."'..Q.Q"'.."."'.Q'.'

'ROUTINE
:*THE

TO TYPE ASCIZ MESSAGE. MESSAGE MUST

ROUTINE

:'NOYE1:
:*NOTE2:
:'NOTE3:

WILL

INSERT A NUMBER OF

NULL

TERMINATE WITH A 0 BYTE.

CHARACTERS AFTER A LINE

FEED.

S$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER (HMARACTER.
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

$FILLC CONTAINS THE

CHARACTER TO FILL AFTER.

s*CALL:
'1) USING A TRAP INSTRUCTION

056430
056434
056436
056440
056442
056444
056450
056456
056460
056466
056470
056474
056500
056502
056510
056512
056514
056516
056520
056522
056526
056530
056534
056536
£56542
056544
056546
056550
056552
056556
056560
056564
056570
056572
056576
056602

056604

056610
056614

105737
100002

000000
000430
010046
017600
122737
001011
132737
001405
010037
004737
000000
132737
001003
11204¢€001005
005726
012600
062716
000002
122716
001430
122716
001006
005726
104401

001217

001173

001242

000100

001243

056500
063106

60%:
3%:

000011

4%:

000200

123726

056642
001172

000001

105337

056642
056760

000770

5%:
6%:

001170

105366

002770
004737

61%:
62%:

000002

056760

001350
013746

001243

2%:

105037

000755
004737

1%:

7%:

.MESADR

;JMESADR.
IS FIRST ADDRESS OF AN ASCIZ STRING

$TPFLG

;:1S THERE A TERMINAL?

TYPE

ME SADR
TSTB
BPL

000002
000001

000040

TYPE

HALT
BR
MOV
MOV
CMPB
BNE
BITB
BEQ
MOV
JSR
.WORD

BITB
BNE

MOVB
BNE

TST
MOV
ADD
RTI
CMPB
BEQ
CMPR
BNE
TST
TYPE
$CRLF
CLRB
BR
JSR
CMPB
BNE

3%
RO,=(SP)
a2(SP) ,RO

;:BR IF YES

;sHALT HERE

;. LEAVE

IF NO TERMINAL

;:SAVE RO
2sGET ADDRESS OF ASCIZ STRING
#APTENV, SENV
;;RUNNING IN APT MODE
62%
2:NO,GO CHECK FOR APT CONSOLE
#APTSPOOL
, SENVM ;. SPOOL MESSAGE TO APT
62%
;:NO,GO CHECK FOR CONSOLE

RO,61%

SC.SATY3

;:SETUP MESSAGE ADDRESS FOR APT

AHT
, (SP)

;:SPOOL MESSAGE TO APT
; sMESSAGE ADDRESS
2 ;APT CONSOLE SUPPRESSED
;:YES,SKIP TYPE OUT
;sPUSH CHARACTER TO BE TYPED ONTO STACK
22BR IF IT ISN'T THE TERMINATOR
IF TERMINATOR POP IT OFF THE STACK
;.
;;RESTORE RO
2 sADJUST RETURN PC
2 ;RETURN
;:BRANCH IF <HT>

#CRLF
, (SP)

; ;BRANCH IF NOT <CRLF>

+
(SP)

;;POP <CR><LF> EQUIV
:;TYPE A CR AND LF

$CHARCNT
2%

;:CLEAR CHARACTER COUNT
;2GET NEXT CHARACTER
;.G0 TYPE THIS CHARACTER
221S IT TIME FOR FILLER CHARS.?
;oIF NO GO GET NEXT CHAR.
;:GET # OF FILLER CHARS. NEEDED
JsAND THE NULL CHAR.
..DOES A NULL NEED TO BE TYPED?

#APTCSUP, SENVM

60%
(RO)+,-(SP)

4%
+
(SP)
(SP)+,R0
#2,(SP)

PC,$TYPEC
$FILLC,(SP)+

MoV

$NULL ,~(SP)

DECB
BLT
JSR
DECB
BR

6%
PC,$TYPEC
$CHARCNT
7$

1(SP)

;BR IF NO=--GO POP THE NULL OFF OF STACK

..GO TYPE A NULL
;:DO NOT COUNT AS A COUNT
;:LOOP

CZRMNBO RMOS5/3/2 FOTNL
TYPE ROUT INE

1ST

MACRO v04.00

4-APR-B1

I
2
11:43:33 PAGE 41-1

;HORIZONTAL TAB PROCESSOR

000040
056642
000007

056616

056626
056634
056636
056640
056642
056642

056760

9%:

$TYPEC:

122312
122306
177600

056650
056654
056660

056666
056666
056672
056674
056700
056704
056710
056712
056712
056714
056714
056720
056722
056730
056736
056740
056744
056746
056754
056756
056760
056762

8%:

000023

101%:

122266

122262

177600

000021

102%:

005726
105777
100375
116677
122766

001003

105037
000406
122766

001402

105227

000000

000207

10%:

122244

000002
000015

122236
000002

056760

000012

000002

1%:

MOVR
JSR

BITR
BNE
TST
BR

TSTB

BPL
MOV
BIC
CMPB
BNE

#' ,(SP)
PC,STYPEC
#7 ,$CHARCNT
9%
(SP)+

asTKS
108
a$TKB, - (SP)

#177600, (SP)
#SXOFF
, (SP)

1028

s sREPLACE TAB WITH SPACE

;s TYPE A SPACE

; :BRANCH IF NOT AT
;. TAB STOP
;:POP SPACE OFF STACK
;:GET NEXT CHARACTER

;:CHAR IN KYBD BUFFER?
;:BR IF NOT

;:GET CHAR
::STRIP EXTRANEOUS BITS
. :WAS CHAR XOFF
;:BR IF NOT

A$TKS
1018
as$TKB, (SP)

J;WAIT FOR CHAR

#$XON, (SP)

1018

;:WAS IT XON?
;:BR IF NOT

TST

(SP)
+

ssFIX STACK

1STR
BPL
MOvB
(MPB
BNE
CLRB
BR
CMPB
BEQ

a$TPS
108

;;WAIT UNTIL PRINTER IS READY

TSTB

BPL
MOVB
BIC
CMPB
BNE

INCB

$CHARCN
: .WORD
T
$TYPEX: RTS

#177600, (SP)

2(SP) ,a$TPB

:gR.?(SP)

$CHARCNT
STYPEX
#LF ,2(SP)
$TYPEX
(PC)+

;:GET CHAR
JsSTRIP IT

;:LOAD CHAR TO BE TYPED INTO DATA REG.

;:1S CHARACTER A CARRIAGE RETURN?

. sBRANCH IF NO

::gi%;-CLEAR CHARACTER COUNT

::1S CHARACTER A LINE FEED?
. ;BRANCH IF YES
;s COUNT THE CHARACTER
;s CHARACTER COUNT STORAGE

SEQ 0229

“ZRMNBO RMOS5/3/2 FCTNL TST 2

SCOPE HANDLER ROUTINE

MACRO v04.00

4-APR-B1

.SBTTL

J
¢
11:43:33 PAGE 42

SEG 0230

SCOPE HANDLER ROUTINE

';..Q.'...Q'ttt".t..""'..'.'t.t..t'tt'..."t't.'t.'..'.t't.t'.

;*THIS ROUTINE

CONTROLS THE LOOPING OF

SUBTESTS.

IT WILL

INCREMENT

;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>

;*THE

SWITCH OPTIONS PROVIDED BY

;*SW14=1
;*SW11=1
;*SW09=1
;=SW08=1
s*CALL

¥
056764
05¢ .
056766
056772
057000
657002
057006

004737
032777
001402
000137

$SCOPE:

057532
040000

057010
057014
057022
057026
057032
057034
057036
057042
057044
057044
057052
057054
057056
057062
057064
057070
057072
C57076
057100
057102
057106
057112
057114
057116
057122

013746
012737
005737
012637
000561
022626
012637
000521

000004
057034
177060
000004

032777
001421
005046

000400

022716
002411
011637
005316
006316
062716
013637
000547
005726
105737
001502
022737
001455
013746
012737

000031

013737

000406
012737
012716

1%:

9%:

CKSWR
JSR
BIT
BEQ
JMP

$XTSTR: BR

000004

5%:

000004
122102

ASL
ADD
MOV

8%:
2%:

001117

177777
057172

MoV
BR

CLR
MOVB
BEG
cMP
BLT
MOV
DEC

057450
001122

000004
057156
177766

CMP

BIT
BEQ

001116

177777

MOV
MOV
TST
MOV
BR

6% : ; MARRREND OF

122072

060150
000004

060150

20008:

::SCOPE=]0T

SCOPE

MRRRASTART OF

000416

117716
001414

122154

057432

057006

057124
057132
057134
057140
057146
057154
057156
057164

104410

BR
TST
TSTB
BEQ
CMP
BEQ
MOV
MOV
MOV
BR

MOV

THIS ROUTINE ARE:

TEST
ITERATIONS
ERROR
TEST IN SWR<7:0>

LOOP ON
INHIBIT
LOOP ON
LOOP ON

;;TEST

PC,STOP

#BIT14,aSWR
9%
$OVER
ngf

FOR

THE

FOR CHANGE IN SOF T=-SWR

;:LOOP ON PRESENT TEST?

;:NO IF SW14=0
;:JUMP OVER SCOPE ROUTINE
XOR

a#ERRVEC ,-(SP)
#5$ , a#ERRVEC

177060

(SP
+ ,@#ERRVE(
)
$SVLAD
(SP)+,(SP)+
(SP)+ ,@#ERRVEC

TESTERA#A
AN

;:IF RUNNING ON THE ‘'XOR'* TESTER CHANGE
;:THIS INSTRUCTION TO A ‘NOP'’" (NOP=240)
:sSAVE THE CONTENTS OF THE ERROR VECTOR
;:SET FOR TIMEOUT
;:TIME OUT ON XOR?
;;RESTORE THE ERROR VECTOR
;:G0 TO THE NEXT TEST

+:CLEAR THE STACK AFTER A TIME OuT
;;RESTORE THE ERROR VECTOR
;:LOOP ON THE PRESENT TEST

7%
CODE FOR THE XOR TESTERA#AAN
#81T08,aSwR
;:LO0OP ON SPEC.

=(SP)
gSUR.(SP)
$
#31,(SP)

(SP) ,$TSTANM
(SP)
(SP)

#$SWOBTBL
, (SP)
a(SP)+,SLPADR
$OVER
(SP)+
$ERFLG
3s

#-1,CPSAVE

200538

ERRVEC,=(SP)
#20008
. ERRVE C
177766

2001$

CPSAVE

#-1,CPSAVE

#2001$. (SP)

TEST?
::BR IF NO
;sCLEAR A TEMP. LOCATION
;sPICKUP THE DESIRED TEST NUMBER
;sBRANCH IF BAD TEST NUMBER IN SWR
;sCHECK THE NUMBER IN THE SWR
;:BRANCH IF TEST NUMBER IS OUT OF RANGE
;sUPDATE THE TEST NUMBER
; ;BACKUP BY ONE
;sSCALE THE TEST NUMBER AS AN INDEX
;;FORM THE ADDRESS OF

TEST POINTER

;2SET LOOP ADDRESS TO DESIRED TEST
;:G0 LOOP ON THE TEST
;:CLEAN THE BAD TEST NUMBER OFF OF THE STACK
; :HAS AN ERROR OCCURRED?
;:BR IF NO
;;SEE IF TIMEOUT WAS PREVIOUSLY RECORDED
;:KICK AROUND ROUTINE IF SO

;2SAVE CONTENTS OF ERROR VECTOR
;:SETUP 'TRAP' RETURN ADDRESS
;:MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST
;.SET CPU ERROR REGISTER TIMEOUT INDICATOR
;;SETUP RETURN ADDRESS

057170
057172

000002
012637

057176
057204
057206
057214
057216
057224
057230
057234
057242
057246
057254
057256
057262
057266
057266
057274
057276
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

022737
001430
032737

057450
057452
057454
057456
057460
057462
057464
057466
057470
057472

001424

042737
013746
017646
012737
011677
042777
104177
012676
012637

00004
177777

060150

000001

060150

000001
001154

177766

000176

001154

001000

121700

000000

121706

000000
001154

123737
101015
032777
001404

001131

001117

0C1000

121650

001124

001122

105037

001117
001206
004000

121616

MOV

(SP)+ ERRVEC

;sRESTORE CONTENTS OF ERROR VECTOR

2002%:

CMP
BEQ
BIT
BEQ
8IC
MOV
MOV
MOV
MOV
BIC
EMT
MOV
MOV

#-1,CPSAVE

;:SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION
;:BRANCH IF SO
;.SEE IF THE POWER MONITOR BIT IS ON

CMPB
BH!
BIT
BEQ

$ERMAX
, SERFLG
3%
z21T09.BSUR

2003%:

7%:

3%:

001230
001120
001206

001120
001206

000001

001122

BNE

1%:

MOV

$SVLAD:

001226

—

—_—

001116

BIT

001120

000001
057446
001116
001116
001122
001124

001210

MOV
BR
CLRB
CLR
BR

2003$

#1700, CPSAVE
2003$
#B1700,177766
SWR,~=(SP)
a(5P) ,=(SP)
#176, SWR
. @aSWR
(SP)

#B1709,aswR
177

(SP)+,a(SP)
(SP) +.SWR

$OVER:
RTI

$MXCNT: 5.
$SWOBTAL:
.REPT
$IN-1
.WORD
.WORD
.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD

;;BRANCH TO CONTINUE ROUTINE IF CLEAR
;:CLEAR THE BIT FOUND TO BE SET

;:SAVE SWR ADDRESS
;:SAVE SWR VALUE

;:GET SOF TWARE SWR ADDRESS
::GET CURRENT SWR VALUE

;;DON'T ALLOW LOOP ON ERROR ON THIS ERROR
;sCALL SPECIAL POWER FAIL BIT ERROR CALL
;sRESTORE SWR TO ORIGINAL VALUE
;;RESTORE SWR ADDRESS

SLPERR, SLPADR

;:MAX. ERRORS FOR THIS TEST OCCURRED?
;:BR IF NO
;:LOOP ON ERROR?
;:BR IF NO
;:SET LOOP ADDRESS TO LAST SCOPE

1§1111.asun

;:ZERO THE ERROR FLAG
;;CLEAR THE NUMBER OF ITERATICNS TO MAKE
;2ESCAPE TO THE NEXT TEST
;:INHIBIT ITERATIONS?

$OVER
$ERFLG
$TIMES
1%

$PASS
1%

N —

005037
000415
032777
001011
005737
001406
005237
023737
002024
012737
013737
105237
113737
011637
011637
005037
112737
013777
013716
000002
000005

2001%:

4%:

013737
000446

RT]

SEQ 0231

$ICNT
S$TIMES ,$ICNT
$OVER
#1,81CNT
SMXCNT ,STIMES
$STSTANM
STSTNM, STESTN
(SP) ,SLPADR
(SP) ,SLPERR
$ESCAPE

;BR IF YES
,.IF FIRST PASS OF PROGRAM
INHIBIT ITERATIONS

..INCREHENT ITERATION COUNT
;;CHECK THE NUMBER OF ITERATIONS MADE
;:BR IF MORE ITERATION REQUIRED
s;REINITIALIZE THE ITERATION COUNTER
;:SET NUMBER OF ITERATIONS TO DO

;sCOUNT TEST NUMBERS
22SET TEST NUMBER IN APT MAILBOX
;:SAVE SCOPE LOOP ADDRESS
;:SAVE ERROR LOOP ADDRESS
;:CLEAR THE ESCAPE FROM ERROR ADDRESS
#1,SERMAX
;2ONLY ALLOW ONE(1) ERROR ON NEXT TEST
$TSTNM,aDISPLAY ;:DISPLAY TEST NUMBER
$LPADR, (SP)
::FUDGE RETURN ADDRESS
..FIxES PS
;:MAX. NUMBER OF ITERATIONS
TST1+2
T1ST2+2

TST3+2
TST4+2
TST5+2
TST6+2
TST7+2
TST10+2
TST1142
TST12+2

: :STARTING ADDRESS OF

TEST

: :STARTING ADDRESS OF
; :STARTING ADDRESS OF
2 :STARTING ADDRESS OF
;s STARTING ADDRESS OF
; :STARTING ADDRESS OF
::STARTING ADDRESS OF
2 :STARTING ADDRESS OF
: :STARTING ADDRESS OF

TEST
TEST
TEST
TEST
TEST
TEST
TEST

;s STARTING ADDRESS OF TEST

TEST

Y ON N SN NN) -

SCOPE HANDLER ROUT INE

MA(RO v04.00 4-APR-B1 11:43:33 PAGE 4%‘1

— b b
nN—O

(ZRMNBO RMOS5/3/2 FCTNL ST 2

000NN

AR
2 V1N

057474
057476
057500
057502
057504
057506
057510
057512
057514
057516
057520
057522
057524
057526
057530

MACRO V04.00 4-APR-81 11:43:33 PAGEL 3-2

017472
020304
021126
021670
022432
023174
023500

.WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

TST13+2
TST14+2
TST15+2
TST16+2
TST17+2
TST20+2
TST21+42
TST22+2
TST23+2
1S724+2

::STARTING ADDRESS
s s STARTING ADDRESS
s :STARTING ADDRESS
;s STARTING ADDRESS
;;STARTING ADDRESS
:STARTING ADDRESS
:STARTING ADDRESS
: :STARTING ADDRESS
: :STARTING ADDRESS
;s STARTING ADDRESS
;;STARTING ADDRESS
;:STARTING ADDRESS
;:STARTING ADDRESS
;;STARTING ADDRESS

TST25+2
TST26+2
TST27+2
TST30+2
TST31+2

012746
012746
000002

0C2140

STOP:

057544

64%:
JRAISE

057544
057550
057554
057556

10 057556

012746
012746
000002
000207

000240
057556

65%:

MOV
MOV
RTI
PRIORITY

#PR3,-(SP)
#64%,-(SP)

INHIBIT

TEST
TEST
TEST
TEST
TEST
TEST

TEST
TEST
TEST
TEST
TEST

;:STARTING ADDRESS

:DROP PRIORITY TO ALLOW CONSOLE

057532
€57532
057536
057542
057544

SEQ 023~

INTERRUPT

;;PUT NEW PS ON STACK
;sPUT NEW PC ON STACK
;:POP NEW PC AND PS
CONSOLE

INTERRUPT

MOV
MOV
RTI

#PR5,~(SP)
#65%,~(SP)

;:PUT NEW PS ON STACK
;:PUT NEW PC ON STACK
;:POP NEW PC AND PS

RTS

;RETURN

TEST

TEST
TEST
TEST

PNININININONUN)
= b b b 2

SCOPE HANDLER ROUT INE

TST 2

QRARKRIRR

CZRMNBO RMOS/3/2 FCTINL

CZRMNBC RMOS/3/2 FCTINL TST 2

ERROR HANDLER ROUT INE

MACRO v04.00 4-APR-81 11:43:33 PAGE 4%
M

.SBTTL

ERROR HANDLER ROUTINE

® '.........'.."...""'....'..'..'..t.l"...."Q..Q"'l..'..t.'

:*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
:«SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL

“*AND GO TO.ERRTYP ON ERROR
s*THE

SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
HALT ON ERROR

;*SW15=1
:*SW13=1
:«SW10=1

INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR

; *SW09=1

s=CALL
-k

ERROR

060152

$ERROR:

CLRB

IBSAVE

001117

7%:

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

057742
057750
057752
057760
057762

057770
057776
060004

105037
104410
105237

001775
013777
032777
001402
104401

005237
011637
162737
117737
032777
001060
122737
001454
105737
001047
022737
001445
013746
012737

013737

000406
012757
012716
000002
012637

022737
001420
032737
001414
042737
113737
112737
000402

001116
002000

001212
001126
001132
000002
121272
001000

000177

121354
121344
1%:

001132
001130
121304

000004
057722

177766

177777
057736

001130

060150

000001

060150

000001
001130
000177

177766

032777
001004
004737

020000
060154

121134

IN SOF T-SWR

#BIT10.aSWR

:BELL ON ERROR?

,SBELL

..RXNG BELL

$ERTTL

“COUNT THE NUMBER OF ERRORS

(MPB
BEQ

ASERRPC,SITEMB
#81T09,aSWR
10048
3177 SITEMB

;:STRIP AND SAVE THE ERROR ITEM CODE
::SEE IF LOOP ON ERROR IS SET
: :BRANCH AROUND ROUTINE IF SO

004$

*:BRANCH AROUND ROUTINE IF IT IS

1001¢%:

1002%:

IBSAVE

1003%

SINO - SKIP

*:GET ADDRESS OF ERROR INSTRUCTION

MOV
MOV

1003%:
1004%:

$:TEST FOR CHANGE

$ERFLG
::SET THE ERROR FLAG
78
*:DON'T LET THE FLAG GO TO ZERO
$TSTNM,aDISPLAY ::DISPLAY TEST NUMBER AND ERROR FLAG

sgp;égsggpc

1000%:

060152
001130

::CLEAR THE ITEM BYTE SAVE LOCATION

MOV
sus
MOVB

CMP
BEQ
MOV
MOV
MOV

000004
060150

177777

060152

INC

TSTB

000004

105037

TYPE

BIT

060152

177777

CKSWR
INCB
BEQ
MOV
BIT
BEQ

: ;ERROR=EMT AND N=ERROR ITEM NUMBER

*:SEE IF THIS IS THE POWER FAIL CALL
2:SEE IF THIS 1S THE 2ND ERROR CALL IN THIS ROUTINE

:sBRANCH IF SO

#-1,CPSAVE

*:SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION

ERRVEC,=(SP)
#1000$ ERRVEC
177766
. CPSAVE
1001$

:-SAVE CONTENTS OF ERROR VECTOR
:-SETUP 'TRAP' RETURN ADDRESS

1004%

;:BRANCH IF SO

:sMOVE CPU ERROR REGISTER TO CPSAVE FOR TEST

#1001$, (SP)

#-1,CPSAVE

::SET CPU ERROR REGISTER TIMEOUT INDICATOR
::SETUP RETURN ADDRESS

MoV

(SP)+ ,ERRVEC

*;RESTORE CONTENTS OF ERROR VECTOR

CMP
BEQ
BIT
BEQ
BIC
MOvVB
mMovB

#-1,CPSAVE

#177,$1TEMB

1004$

;:SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION
;:BRANCH IF SO
;:SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG
;;BRANCH iF OK
;sCLEAR THE BIT FOUND SET
;sMAXE IBSAVE NON-ZERO FOR DUAL ERRCR CALL
;:SET SITEMB TO SPECIAL POWER FAIL POINTER
: :BRANCH OVER IBSAVE CLEARING

CLRB

IBSAVE

;:CLEAR [BSAVE SO 2ND TIME THROUGH EXITS

BIT

#BIT13,3aSWR
20%

;+SKIP TYPEOUT IF SET
;. SKIP TYPEQOUTS
::G0 TO USER ERROR ROUTINE

RTI

JSR

1004$

#8]T00, CPSAVE
1004$

#BIT00,177766
$1TEMB. IBSAVE

PC,ERRTYP

CZRMNBO RM05/3/2 FCTNL
ERROR HANDLER ROUT INE

060026

1ST 2

MACRO v04.00 4-APR-81 11:43:33 PAGE 4%-1
N

104401

001217

122737

000001

001242

001130
063116

060054

20%:

21%:

22%:
2%:

060152
121062
104410

032777
001402
013716
005737
001402
013716

001210

022737

032122

105737
001210
000002
000000
000000

060152

001000

121046

001124
001210

001001
000000

3%:

4%:

000042

5%:

6%:

CPSAVE:
IBSAVE:

TYPE

.SCRLF

CMPB

#APTENV,SENV

;;RUNNING IN APT MODE
,

$I1TEMB,21%

;:SET ITEM NUMBER AS ERROR NUMBER

BNE
MOvB
JSR
BYTE
BYTE
BR
TSTB

BNE

TST
BPL
HALT
CKSWR

PC,$ATY4

0
0
22%
IBSAVE
3%
aSWR
3%

;:NO,SKIP APT ERROR REPORT

; :REPORT FATAL ERROR TO APT

;:APT ERROR LOOP
;.SEE IF IBSAVE 1S LOADED
;;BRANCH IF NOT = NO HALT ON PWR MON BIT ERROR
;sHALT ON ERROR
::SKIP IF CONTINUE
;sHALT ON ERROR!
;;TEST FOR CHANGE IN SOF T=SWR

BIT
BEQ

#BITO9,aSWR

4%
$LPERR, (SP)
$ESCAPE
5%
$ESCAPE, (SP)

;:LOOP ON ERROR SWITCH SET?
;:BR IF NO
;:FUDGE RETURN FOR LOOPING
;sCHECK FOR AN ESCAPE ADDRESS
;+:BR IF NONE
;;FUDGE RETURN ADDRESS FOR ESCAPE

CMP
BNE
HALT

H#SENDAD ,a#42
6%

;:ACT=11 AUTO-ACCEPT?
::e?gNCH IF NO

T1STB
BNE

IBSAVE
7%

;;SEE IF ITEM BYTE SAVE LOCATION HAS AN ERROR CALL
;sBRANCH BACK TO CALL ORIGINAL ERROR
; ;RETURN
;:LOCATION TO SAVE CPU ERROR REG CONTENTS
;;LOCATION TO SAVE ITEM BYTE

MOV
TST
BEQ
MOV

RTI
.WORD
.WORD

0
0

SEQ 0234

CZRMNBO RMOS/3/2 FCTINL
ERROR TYPEQUT ROUT INE

TST

MACRO v04.00

4-APR-81

.SBTTL

;*THE

11:43:33 PAGE 44

SEQ 0235

ERROR TYPEOUT ROUTINE
ERROR TYPEOUT ROUTINE ASSEMBLES AND PRINTS

:'REGARDING THE DETECTION OF AN ERROR AS FOLLOWS:

;

[}

.UNIT NUMBER, DRIVE TYPE, TEST NUMBER, ERROR NUMBER AND

.ERROR MESSAGE IS ASSEMBLED, FORMATTED AND PRINTED ON

'PROGRM COUNTER ARE

[NFORMATION

PRINTED ON THE

FIRST

LINE

'(NE OR MORE SUCCEEDING LINES;

1% 060154 104414
14 060156
15 060164

}9 060166
18
19

20 C60172

032777
001402

000137

104401

21 060176
22 060202

104401
013746

060206
060210
23 060211

104403

25 060212
26 060216
27 060222

'AFTER

020000

120770

‘

061030
001234

013700
016000
042700

001276
000026
177740

012737
022700
0014056

064366
000025

060300

36 060256
37 060264
38 060270
39 060272

012737
022700
001004
104401

064400
000027

060300

25 060300

000000

44 060302

45 060306
46 060314
47 060320

005037

013737
104401
V13746

060324

104403

48 060330
49 060334

005037
113737

060326
060327

003
000

064373

;TYPE

32 060242
33 060250
?S' 060254

104401

TYPE
MOV

BYIE
BYTE

001414

022700

TYPE

TYPOS

g? 060240

1%:

000024

060300

061020

001226
061035
061020

'DRIVE

MOV
MoV
BIC

DRIVE

TYPE,

JSCRLF

LERTY0O
SUNIT,~(SP)

3
0

JINHIBIT
;NO!'!

TYPEOUTS??

sYES!!

TEST NUMBER,

ERROR NUMBER, AND

;TYPE 'DRvA''
;2SAVE SUNIT FOR TYPEOUT
;:TYPE DRIVE NUMBER
;.GO _TYPE--OCTAL ASCI!I

::TYPE 3 DIGIT(S)
;s SUPPRESS LEADING ZEROS

$BASE ,RO
WT(RO) RO
#177740,R0

;GET RM BASE ADDRESS
;GET DRIVE TYPE REGISTER
;SAVE DRIVE TYPE BITS AND

#24 RO

IS DEVICE AN RMO3 ?

BEQ

sGET ASCII DRIVE TYPE
2YES ¢!

MOV
MP
BEQ

#$RMO2, 3%
#25 ,R0O
2%

;SAVE ASCII DRIVE TYPE
;1S DEVICE AN RMOZ2 ?
sYES 1

2%:

MOV
CMP
BNE
TYPE

#SRMOS , 3%
#27 .RO
48
LERTYOS

;SAVE ASCII DRIVE TYPE
;1S DEVICE AN RMOS ?
N !
VYR "t ="

3%:

WORD

;DRIVE TYPE MESSAGE IS STORED HERE

TYPE

;TYPE DRIVE TYPE

sTYPE TEST NUMBER, ERROR NUMBER AND PROGRAM COUNTER

061020

4$:

CLR

MoV
TYPE
MOV

BYTE
.BYTE

061022

PRINTED

TYPE' RMOS, RMO3 OR RMO2 FOR UNIT UNDER TEST

#SRMO3, 3s

TYPOS
061022
001130

27%

MOV

CMP

061065

ERROR HEADERS AND ERROR DATA ARE

#5W13,aSWR
1%

sTYPE UNIT NUMBER,
;PROGRAM COUNTER

003
000

012737

40 060276

BIT
BEQ

JMP

28 060226

29 060234

ERRTYP: SAVREG

061014

0C1217

.PAIRED LINES OF

THE ERROR MESSAGE
.

CLR
MOVB

TSTANMB

$TESTN,TSTNMB
,ERTY01
TSTNMB, - (SP)

3
0

ERRNMB
$ITEMB,ERRNMB

;LOAD TEST NUMBER FOR

;TYPE "'TSTA''
;;SAVE TSTNMB FOR TYPEOUT
;:TYPE

TEST NUMBER

;:G0 TYPE--OCTAL ASCII

;sTYPE 3 DIGIT(S)
2 s SUPPRESS LEADING ZEROS
;LOAD ERROR NUMBER FOR
;TYPEOUT

(ZRMNBO RMOS/3/2 FCTNL ST 2

ERROR TYPEOUT ROUTINE

50 060342
51 060344

MACRO v04.00

4-APR-B1

11:43:33 PAGE 44-1
SEQ

001406

BEQ

52 060350

013746

MOV

ERRNMB,
= (SP)

060354
060356
060357
£3 060360

104403

TYPOS

104401

TYPE

003
000

yt &

104401

564 060364

013746

060370

104403

BYTE
BYTE

3
0

MOV

$ERRPC
.= (SP)

TYPE

TYPOS

BYTE
BYTE

001

JMP

061014
0C1217
061026
061027
061022

7%:

TYPE

061072

8%:
001572

9%:

;TYPF
10%:

11%:

000015

000012

12%:

000011

061027
000040

061027

13%:

14%:

,SCRLF

#177.R0

ASL
ASL
ASL

RO
RO
RO

BNE
MOV
BR
ADD
MOV

ERRNMB , RO

13
#PFECH,RO
98
#SERRTB-8. RO
(RO) ,R1
198

THE ERROR ME SSAGE

MOV
BEQ

CLR

MOVB
BEO
(MPB

BNE

061027

061027
000007

;TYPE 'PC="'

:2SAVE S$ERRPC FOR TYPEOUT
;s TYPE PROGRAM COUNTER

INO-=EXIT

cwPB

MOV

060632
061024

27%

BOTFLG
CHRCNT

BEQ

001454

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

::G0 TYPE=--OCTAL ASCII
;:TYPE 6 DIGIT(S)
;:TYPE LEADING ZEROS

6
1

CLRB
CLRB

MOV

000177

112203

LERTYO3

;SKIP IF NO ERROR CALLED
;TYPE "ERRA'’
:;SAVE ERRNMB FOR TYPEOUT
;:TYPE ERROR NUMBER

;GENERATE POINTER TO ERROR TABLE UNLESS ERROR NUMBER IS 0
ST
68:
ERRNMB
;WAS AN ERROR CALLED?
7$
:BR IF YES
BNE

061022

012102
001505
010237
005037

LERTYO?

(R1)+,R2

198

R2,18%

BOTADR

(R2)+,R3
17$
#CR,R3

12%

;YES-TYPE CRLF
:CLEAR BOT FLAG
;CLEAR CHARACTER COUNTER

;RO POINTS TO FIRST OF

sSEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL
;BRANCH IF NOT
;MOVE POWER FAIL ERROR CALL TABLE TO RO
;FOUR ENTRIES IN ERROR
;TABLE
:R1 POINTS TO ERROR MESSAGE

s TABLE
;BRANCH IF NO ERROR MESSAGE

;R2=ADDRESS OF MESSAGE STRING

JBRANCH IF END OF MESSAGE
;LOAD ADDRESS OF STRING
:CLEAR BOT ADDRESS
;END OF STRING??
I
3<.
: CARRIAGE RETURN??
ND:!

s YES=CLEAR CHAR COUNT
sGET NEXT CHARACTER
;LINE FEED??
sYES=GET NEXT CHARACTER

CLRB

CHRCNT

CMPB

MLF.R3

CMPB

#HT,R3

:HM%I’Z(NTAL TAB??

CHRCNT

*ADJUST CHARACTER COUNT

B8R

BEQ

BNE

INCB

BITB

BNE
B8R

INCB

CMPB

BNE

118
1%

148

#7,CHRCNT

13$
15%

CHRCNT

15%

,R3

s INCREMENT (HARACTER COUNT
;SPACE??
sNO!!

(

236

CZRMNBO RMOS/3/2 F(IZHL
ERROR TYPEOUT ROUT INE

IST 2

99 060560 010237 061024

100 060564

122737

000100

102 060576

013704

061024

101

060572

103 060600
104 060602
105 060606

103340

001007
104401
105037

106 060612 013702
107 060616 000726

108
109
110
111
112
113

060620
060622
060630
060632
060634
060640

114 060642
115 060646
116 060652

105u&é
112737
104401
000000
105737
001707

123

124
125
126
127

105722
000677

000002

129 060720
130 060724
131
132 060726
133 060730
134 060732
i35 060736

012137
001433

060730

104401
000000
104401
005702

137 060742
138 060744
139 060746

012204
012305
105725

142 060754

013446

136 060740

140 060750
141 060752
143 060756

016003

001767

147 060766

000402

150 060774
151 060776

005714
001403

152 061000

208:

21%:

001217
'

22%:

24%:

104401

001217

000742

JNO!!

MOV

BOTADR,R&4

MOV
B8R

188%,R2
118

CLRB
MOVB
TYPE
.WORD
1STB
BEQ

16%
.SCRLF
CHRCNT

-(R4)
#-1,B0TFLG
BOTFLG
108

*END OF LINE??

*GET ADDRESS OF LAST SPACE
sBRANCH IF SPACE DETECTED
sTYPE CRLF
*CLEAR CHARACTER COUNT

*SET UP R2 FOR TESTING

JREPLACE SPACE
;SET BOT FLAG
;TYPE ERROR MESSAGE STRING
;STRING ADDRESS GOES HERE
;WAS STRING TRUNCATED??
*NO!!

TYPE
CLRB
CLRB

,SCRLF
BOTFLG
CHRCNT

*CLEAR BOT FLAG
;CLEAR CHARACTER COUNT

MOV

R2,18%

*SETUP 188 FOR TYPING

BOTADR,R2
#'

,=-(R2)

(R2)+
11%

“YES=TYPE

CRLF

:SETUP R2 FOR TESTING
*RESTORE SPACE

*RESTORE R2
sTYPE REST OF STRING

MOV
BEQ
TYPE
MOV

2(R0O) ,R1
7%
+SCRLF
4(RO) ,R2

;R1 POINTS TO ERROR HEADER TABLE
;BRANCH IF NO HEADER
s (ASSUME NO DATA)
;R2 POINTS TO DATA ADDRESS TABLE

MOV
BEQ

(R1)+.21%
27%

:PUT HEADER ADDRESS FOR TYPE
;BRANCH IF END OF HEADERS
*(ASSUME END OF DATA)
.

MOV

25%:

26%:

6(R0) .R3

*R3 POINTS TO FORMAT TABLE

TYPE
.WORD
TYPE
TST

0
,$CRLF
R2

;HEADER ADDRESS GOES HERE

MOV
MOV
7STB

(R2)+.R4
(R3)+,RS5
(RS)+

;R4 POINTS TO DATA ADDRESS
;RS POINTS TO FORMAT
JWHAT KIND OF DATA??

BMI
BEQ

208
248
238

MOV

a(R4)+,-(SP)

B8R

25%

TYPDS

013446
104406

155 061012

118

BEQ

23%:

000760

154 061006

19%:

013446
104402

153 061004

BHIS

#6h.,CHRONT

:TYPE ERROR HEADER AND ERROR DATA

000006

061062

SEQ 0237

;SAVE ADDRESS OF SPACE

TSTB
BR

001217
000004

104401

44~2

R2.BOTADR

(MPB

MOVB

104405

000405

148 060770
149 060772

17%:
18%:

11:43:33 PAGE

MOV

100407
001403

144 060760

145 060762
146 060764

16%:

000040

016001
001444
104401
016002

128 060714

061026

061024

060676
060702
060704
060710

&-APR-81

BNE
TYPE
CLRB

061026

060632

112742

120 060672
}g; 060674

177777

010237

119 060666

158:

060632

001217
061026
061027

013702

118 060662

061027

001217
061027

104401
105037
105037

117 060656

MACRO v04.00

MOV
TYPOC

a(R4)+,-(SP)

MOV
TYPBN

a(R&4)+,-(SP)

B8R

sDATA WITH HEADER??

INO!!

*BINARY
*0CTAL

;DECIMAL

25%

TST
BEQ
TYPE

(R4)
268
ERTYO4

;MORE DATA??
‘NO!!

TYPE

LSCRLF

;TYPE ONE BLANK L INE

22%
20%

:YES=-TYPE 2 SPACES

*AND CONTINUE

;BEFORE NEXT HEADER

(ZRMNBO RMOS5/3/2 FCTNL TST 2

ERROR

TYPEOUT ROUT INE

156 061014

104475

;g; 061016

000207

159 061020

0000C0O

160 061022
161 0610246
162 061026

}g}. 061027
165 061030

MACRO v04.00
27%:

TSTNMB:

000000
000000
000

ERRNM3:
BOTADR:
BOTFLG:

000
104

122

126

ERTYOO:

120

ERTY03:

054
054

040
040

126
105

169 061062
};? 061065

040
040

040
055

000
040

172 061072
173 061102

061102
061106

061170
000000

061206

176 061170

061174

000C00

061206
061210

061210
060150

000000

000

;;‘g 061106
177
178
179
18C
181

061174

06114

182 061216

054

120
103

061216

RESREG

040

117
120

127
125

.WORD

.WORD
.WORD
.BYTE

0
0
O

.ASCIZ

aDRva#a

.ASCIZ

@, PC=d

ERTYQ1:
ERTYQ02:

.ASCIZ
.ASCIZ

ERTYO4:
sg&ggs:

.ASCIZ
ASCIZ

11:43:33 PAGE 44=3

RTS

C(HRCNT: .BYTE

166 061035
167 061045
168 061054

4-APR-B1

SEQ 0238

;TEST NUMBER

;ERROR NUMBER
JBEGINNING OF
:BOT FLAG

TEXT ADDRESS

;CHARACTER COUNT

@, TEST#a
@, ERR#a

@ a
@ -2

PFECH:
PFECH1,PFECH2,PFECH3,PFECH4 ;WORDS DEFINING TABLES BELOW
PFECHY: .+4,0

.g\s{gg‘z

PFECH2:
PFECH3:
PFECHG:

.+4,0

LASCIZ
.EVEN
.+2
.WORD
.+2

BYTE

?POWER MONITOR BIT IN (PU ERROR REGISTER FOUND SET?
?CPUERREG?

CPSAVE,O

0,0

CZRMNBO RMOS5/3/2 FCINL
TTY INPUT ROUTINE

TST 2

MACRO v04.00

4~-APR-81

LSBTTL

TTY

F
3
11:43:33 PAGE 45

SEQ 0239

INPUT ROUTINE

R S
T
T
AR

061220
061222
061224
061226

000000
000C00
000000

.ENABL
LSB
$TKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD

061227

sgcg£~0=.

$TKQSRT:

.BLKB

0
0
O

;:NUMBER OF ITEMS IN QUEUE
;s INPUT POINTER
2 ;0UTPUT POINTER

;:TTY KEYBOARD QUEUE

s*TK INITIALIZE ROUTINE
;*THIS ROUTINE

s*SETUP THE

"CALL:
2

61230
061234
061242
061250
061256
061264

005037
012737
013737
012737
012737
005777

061276

000207

061270

012777

061220
061226
061222
061300
(000200
117672

000100

061222
061224
000060
000062

117662

JSR
RETURN

$TKINT: CLR
MOV
MOV
MOV
MOV
IST

MOV
RTS

WILL

INITIALIZE

THE

TTY KEYBOARD

INPUT QUEUE

INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

PC,S$TKINT

$TKCNT
#$TKQSRT,$TKQIN
$TKQIN,$TKQOUT
#STKSRV,d#TKVEC
#200,a#TKVEC+2
a$TkKB
#100,387TkS
PC

;*TK SERVICE ROUTINE
;*THIS ROUTINE WILL SERVICE

THE

;;CLEAR COUNT OF ITEMS IN QUEUE
;;MOVE THE STARTING ADDRESS OF THE
;;QUEUE INTO THE INPUT & OUTPUT POINTERS.
;;INITIALIZE THE KEYBOARD VECTOR
;.;'BR'' LEVEL 4
;:CLEAR DONE FLAG

J:RET
TTY

E TTY KEYBOARD INTERRUPT
TO CALLER

J
KEYBOARD

INTERRUPT

;*BY READING THE CHARACTER FROM THE p&ur BUFFER AND PUTTING

'IT IN THE QUEUE.

-xr THE CHARACTER IS A ‘'CONTROL~- c",t‘o STKINT IS CALLED AND
;*UPON RETURN EXIT IS MADE TO THE ‘tomROL C'' RESTART ADDRESS (SHUT?2)

061300
061304

061310
061314
061316
061320
061322
061322
061326
061330
061334
061340
061342
061346
061352
061354
061362

061364
061364
82;%72
74

117746
042716

117656
177600

$TKSRV: MOVB
BI(

021627
001002
005726
000002

000021

021627
001007
104401
004737
005726
000137
021627
001004
022737
001500

000003

000176

001154

022737
001004

000001

061220

104401

(MP
BNE

308 :

062426
061230
062470
000007

001212

1$:

2%:

ST
RTI

as$TkB,~(SP)
#C177,(5P)
(SP), #$XON
308

(SP) +

C
BNE
TYPE
JSR
TST
JMp
{mMP
8BNE
(MP
BEQ

v
(SP) 43
.
1%
¢
LJSONTLC
PC,STKINT:
(SP)+
SHUT?
(SP) 47
2%
#SWREG, SWR
6%

(MP
8NE

#1,8TKCNT
3%

TYPE

JSBELL

: fICKLP THE CHARACTER
:SSTRIP THE JUNK

;215 IT A RANDOM XON?
J;BRANCH IF NO
s CLEAN RANDOM XON OFF STACK
/s sRETURN
3:1S IT A CONTROL C?
; :BRANCH IF NO
;:TYPE A CONTROL-C (*O)
s INIT THE KEYBUARD
;. CLEAN UP STACK
;;CONTROL C RESTART
;:1S IT A CONTROL G?
; ;BRANCH IF NO
;:1S SOFT=-SWR SELECTED?
;.60 TO SWR CHANGE

;.15 THE QUEUE FuLL?
s ;BRANCH [F NO
JJRING THE

TTY BELL

CZRMNBOD RMOS/3/2 FCTINL

TTy

[NPUT

ROUTINE

005726
000451
021627
001021
005077
005726
105777
10037°
117746

042716
022627
001366
012777
000002
005237
021627
002405
021627
003002
042716
112677
005237
023727
001003
012737
000002

IST 2

MACRO v04.00

4-APR-81
I1ST

000023

117542

318:

117534

B8R

32%:

000175
000040
177516

4%:

061222
061222

061227

061226

061222

#0177, (SP)

BNE

313

MOV
RTI

S:WAIT FOR A CHAR

STACK

21§
@$TKB,=(SP)

$:LOOP UNTIL ITS THERE
“:GET THE CHARACTER

(SP)+,#21

“:1S IT A CONTROL=Q?

#100,a8TKS

SIMAKE IT 7-BIT ASCII
; :BRANCH IF NO
“:REENABLE
*:RETURN

TTY KEYBOARD

$TKCNT
(SP) ,#140
43
(SP) . #175
4%
#40, (SP)

INC
CMP

$TKQIN
*:UPDATE THE POINTER
$TKQIN,#STKQEND ;GO OFF THE END?

MOV
RTI

#$TKQSRT,$TKQIN ;;RESET THE POINTER
*:RETURN

MOVB

(SP)+,a$TKQIN

STA(K

“IS IT A CONTROL=S?
::BRANCH IF NO
“:DISABLE TTY KEYBOARD INTERRUPTS

INC
CMP
BLT
CMP
BGT
BIC

BNE
5%:

“:CLEAN CHAR OFF

BIC

CMP

061220
000140

(SP)+

@$TKS

000021

117506

;3CLEAN (CHARACTER OFF OF

IEXIT

ISTB

BPL
MOVE

000100

(SP) +

(SP) ,#23
32%
asTkS

TST

5§

CMP
BNE
(LR

117530

177600

11:43:33 PAGE 45-1

INTERRUPTS

“:COUNT THIS CHARACTER
::1S IT UPPER CASE?
::BRANCH IF YES
“:1S IT A SPECIAL CHAR?
::BRANCH IF YES
::MAKE IT UPPER CASE
::AND PUT

IN OUEUE

S :BRANCH IF NO

.'"t.ttt"t.'t"ttt'tttt""ttttt'tt.t..tfittttt.tttttt.."t.'tl"t

:*SOF TWARE SWITCH REGISTER CHANGE ROUTINE.

061530
061536
061540
061544
061546
061552
061556
061562

022737
001124
105777
100121
117746

042716
021627
001300

000176

001154

117414

:*ROUTINE IS ENTERED FROM THE TRAP HANDLER, AND WILL
:*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP
s«CALL WHEN OPERATING IN TTY INTERRUPT MODE.
$CKSWR: (MP
#SWREG, SWR
;:1S THE SOFT-SWR SELECTED
BNE
15%
SYEXIT IF NOT
TSTB

a$7KS

BIC
CMP

#°C177,(SP)
(SP) 47

BPL
MOVB

117410
177600

000007

BNE

+:IS A CHAR WAITING?

15%
a8$TKB,~(SP)

“:IF NOT, EXIT
s2VES

“:IF NOT, PUT IT IN THE TTY QUEUE

SMAKE IT 7-BIT ASCII
::IS IT A CONTROL-G?

S:AND EXIT

t"'..!tt....'tl.t'..""t"'i't...'.'.'.'l‘t.tlt.fi."t.‘t.ttt'

'CONYROL

S*ROUTINE

123727

001674
005726
004737
005077
112737

104401
104401

013746
104402

001150

000001

062440
062445
000176

SOF TWARE

SWITCH REGISTER TRAP CALL.,

AS A RESULT OF

“«CONTROI
=G BEING TYPED, AND THE SOF TWARE SWITCH REGISTER BEING SELECTED.
6%:
(MPB
SAUTOB,#1
;:ARE WE RUNNING IN AUTO-MODE?
~
BEQ
2%
*:BRANCH IF YES
ST

061230

117352
000001

IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE

OR FROM THE

$5TSWR:

*:CLEAR CONTROL-G OFF

STACK

PC,STKINT

MOVB

#1.$INTAG

“:SET INTERRUPT MODE

INDICATOR

TYPE

L$CNTLG

;;ECHO THE

(*G)

MOV

SWREG,=(SP)

(LR

001151

(SP)+

JSR

TYPE

TYPOC

a$TksS

$MSWR

SFLUSH THE TTY INPUT QUEUE

S:DISABLE TTY KEYBOARD INTERRUPTS
CONTROL=G

S:TYPE CURRENT CONTENTS

S SAVE SWREG FOR TYPEQUT

16O

TYPE==QCTAL

ASCII(ALL

DIGITS)

CZRMNBO RM0S/3/72 FCTINL
TTY INPUT ROUTINE

061632
061636
061640
061642
061646

1ST 2

104401

062456

105777
100375

117312

005046
005046

MACRO v04.00

4-APR-B81
TYPE

19%:

(LR

7%:

ISTB

H
3
11:43:33 PAGE 45-2

. SMNEW

SEQ 0241

. ;PROMPT FOR NEW SWR
;iCLEAR (OUNTER

(LR

«(SP)
=-(SP)

BPL

;:CHAR THERE?
;21F NOT TRY AGAIN

a$TkS

;2THE NEW SWR

061650
061654

042716

117746

117306
177600

]
BIC

A$TKB, = (SP)

;:PICK UP CHAR

061660
061664
061666
061672
061676
061704
061706
061714

021627
001015
104401
062706
123727
001003
012777
000137

000003

CMP
BNE

, 43
(S?)
9%

;:1S IT A CONTROL=C?
; BRANCH IF NOT
;.YES, ECHO CONTROL=-C (*C)
;. ;CLEAN UP STACK
;;REENABLE TTY KEYBOARD INTERRUPTS?
s sBRANCH IF NO
;oALLOW TTY KEYBOARD INTERRUPTS
;sCONTROL=C RESTART

61720
061724
061726
061732
061736

061740
061744
061746
061752
061754
061762
061766
061772
062000
062002
062010
062012
062016
062022
062024
062030
062032
062036
062042

021627
001022
005766
001403
016677
062706
104401
123727
001003
012777
000002
004737
021627
002420
021627
003015
042726
005766
001403
006316
006316
006316
005266
056616
000667
104401
0C0720

8%:

021627

000025

9%:

104401

062433
000006

20%:

000015

10%:

001005

062706
000737

000004

(MP
BNE

TYPE
ADD

CMP
BNE
TST

BEQ
MOV
ADD

000002
000006
001217
001151

TYPE

CMPB
BNE
MOV

000100

RTI
JSR
CMP

056642
000060

BLT
CMP
BGT
BIC
TST
BEQ

000067
000060
000002

000002
177776

17%:

001216

18%:

.DSABL

ASL
ASL
ASL

INC

BIS
BR

TYPE

BR
LSB

LSCNTLC

#6,SP

$SINTAG,#"
8%

#100,28TKS

SHUT?2

(SP) ,#25
108

LSCNTLU

#6,SP

19%

000120
062470

TYPE
ADD
CMP8
BNE
MoV
JMP

NANAT
R

062426
000006
001151

B C177,(SP)

$INTAG,#1
15%

#100,28TKS
PC,STYPEC

(SP) ,#60
18%
(SP) ,#67
18%

#60, (SP) +

2(SP)
17%

(SP)
(SP)
(SP)

2(SP)

-2(SP),(SP)
7%
$QUES

208

YIMAKE IT 7-BIT ASCII

;:1S IT A CONTROL=U?
. JBRANCH IF NOT
;:YES, ECHO CONTROL-U (*U)
;. IGNORE PREVIOUS INPUT
;2LET'S TRY IT AGAIN
;1S IT A <CR>?
2 :BRANCH IF NO
:2YES, IS IT THE FIRST CHAR?
. :BRANCH IF YES
2 :SAVE NEW SWR
;:CLEAR UP’ STACK
;2ECHO <CR> AND <LF>
;sRE-ENABLE TTY KBD INTERRUPTS?
;sBRANCH IF NOT
; sRE=ENABLE TTY KBD INTERRUPTS

2 JRETURN

;;ECHO CHAR

;sCHAR < 0?
;;BRANCH IF YES
;:CHAR > 7?

;:BRANCH IF YES
;:STRIP-OFF ASCII
::1S THIS THE FIRST CHAR
;;BRANCH IF YES
;:NO, SHIFT PRESENT

E§L

CHAR OVER TO MAKE

ROOM FOR NEW ONE.

;sKEEP COUNT OF CHAR
;:sSET IN NEW CHAR
;sGET THE NEXT ONE
12TYPE

2<CR><LF>

s +SIMULATE CONTROL=-U

.'"'.'.'t."".'.'...."""""".".Qt"fi.l.t.'l't..lt"""."'

CZRMNBO RMOS5/3/2 FCINL

TTY

INPUT

ROUTINE

ST 2

MACRO v04.00

4&-APR-81

11:43:33 PAGE 45-3

;*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

soCALL:

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

062116

061220

005237

061224
061224

061227

061226

061224

117766

023727
001003
012737
000002

061220

177070

$RDCHR: MOV

1%:

000004

23:

;:GET A (HARACTER FROM THE QUEUE
;sCHARACTER IS ON THE STAC(CK
;;WITH PARITY BIT STRIPPED OFF

(SP) ,=(SP)

s sPUSH DOWN THE PC AND

& (5P)
-(SP)

;:GET READY FOR A CHARACTER
;2PUT NEW PS ON STACK

MOov

4L(SP) ,2(SP)

MOV

#64%,-(S5P)

CLR
CLR

64%

005737
001775
005337

RDCHR
RETURN HERE

;sTHE PS

;:PUT NEW PC ON

STACK

;:POP NEW PC AND PS

égé

?;KCNT

LEC
MOVB
INC
CMP
BNE
MOV

$TKCNT
. sDECREMENT THE COUNTER
@$TKQOUT ,4(SP)
;;GET ONE CHARACTER
$TKQOUT
;JUPDATE THE POINTER
$TKQOUT ,#STKQEND ;:DID IT GO OFF OF THE END?
2%
;sBRANCH IF NO
#STKQSRT ,$TKQOUT ;:RESET THE POINTER
; sRETURN

RTI

;:WAIT

ON A

CHARACTER

tt't.ttt'tQQ'Q"t.t"t"tlttt"..t.t'.t..t't.."..!."t't..'t"

.E:I{E ROUTINE WILL

INPUT A STRING FROM THE TTY

- &

RDL IN

RETURN HERE

¥
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

::SAVE R3

i%:

MOV

#S$TTYIN,R3

;+GET ADDRESS

CMPB

#177.(R3)

TST

(SP)

000177

10%:

062414

062414
062414

000025

CMP
BLOS
RDCHR
MOVB

BNE

062414

-(SP)

#STTYIN+8. ,R3
4 3
(SP)+,(R3)

b} 3

;:CLEAR THE RUBOUT KEY

:;BUFFER FULL?
;:BR IF YES
+GO READ ONE CHARACTER FROM THE TTY
..GET CHARACTER
;21S IT A RUBOUT

;:BR IF NO

231S THIS THE FIRST RUBOUT?

6%
#'\,9%

MOV
DEC

#-1,(SF)
R3

;sSET THE RUBOUT KEY
; :BACKUP BY ONE

8LO
MOVB

4
(R3),9%

::BR IF YES
:2SETUP TO TYPEQUT THE DELETED CHAR.

::G0 READ ANOTHER CHAR.

CMP

TST
BEQ
MOVB
TYPE

7%:

CHARACTER WILL BE

BNE
MOVB

TYPE

5%:

000134
062414

CLR

TYPE

6%:

FIRST

;:TERMINATOR WILL BE A BYTE OF ALL 0°'S

R3,=-(SP)

2%:

062416

; ;ADDRESS OF

$RDL IN: MOV
062416
062426

000134
062414
177777

;s INPUT A STRING FROM THE TTY

CLR

CMPB

BNE

.9%

R3,#$TTYIN
,9%

(SP)
7%
#'\,9%
,9%

;:BR IF NO
;:TYPE A BACK SLASH

;sSTACK EMPTY?

;:G0 TYPE

:.‘RlBOUT KEY SET?
:BR IF NO
*:TYPE A BACK SLASH

(SP)

. +CLEAR THE RUBOUT KEY

;:BR IF NO

#25, (R3)

;:1S CHARACTER A CTRL U?

THE

STA(K

CZRMNBO RMOS5/3/2 FCTNL ST 2
TTY INPUT ROUTINE
104401

000726
122713
001011
105013

104401

001216

4%:

104401
122723

062414
062414
000015

38:

105063
104401

001220

001305

005726
012603
011646

062404
062412
062414
062415
06241€
0624626
062433
062440
062445
062456
2

3 062470

4 062476

5 062502
6 062504
7 062510

——

177777

000004
062416

012
040

012737

105737
001002

000137

000002

177777

001116
032142

BNE
CLRB

TYPE
TYPE
BR
TYPE
BR
MOvVB
TYPE

TYPE
TST

000002
000004
9%:

103
125
107

BR
(MPB

(MPB
BNE
CLRB

062374
062376

8%:

- =2000

062372

000022

001217
062416

000712
111337

062360
062364
062370

TYPE

104401
104401

000717

4-APR-B1

062433

— P\

062304
062310
062312
062316
062320
062322

MACRO v04.00

001326

$TTYIN:
$CNTLC:
$CNTLU:
$CNTLG:
$MSWR:
SMNEW:
.EVEN

SHUTZ:

1%:

MOV
MOV
MOV
MOV
RTI
.BYTE

.BYTE

.BLKB
LASCIZ
LASCIZ

LASCIZ
.ASCIZ
.ASC1Z
MOV
1STB
BNE
JMP
RTI

J
3
11:43:33 PAGE 45-4

LSCNTLU

1%
#22,(R3)

3%
(R3)
.SCRLF

LSTTYIN

. SQUES

1%
(R3),9%

.99
#15,(R3)+

c$
=1(R3)
.SLF
+
(SP)

(SP)+,R3

(SP) ,=(SP)
4(SP) ,2(SP)
#STTYIN,4L(SP)

0
0]
8.

/*C/<15><12>
/72U/<15><12>

;;TYPE A CONTROL 'V’
;:GO START OVER

;:1S CHARACTER A '"“R'"?

;sBRANCH IF NO
;;CLEAR THE CHARACTER

TVPE K"Kk "LF
;s TYPE THE INPUT STRING

;:G0 PICKUP ANOTHER CHACTER

STV A T
;;CLEAR THE BUFFER AND LOOP
;;ECHO THE CHARACTER
;:sCHECK FOR RETURN
;:LOOP IF NOT RETURN
;sCLEAR RETURN (THE 15)
;.TYPE A LINE FEED
;s CLEAN RUBQUT KEY FROM THE STACK

;:RESTORE R3

..ADJUST THE STACK AND PUT ADDRESS OF
32

FIRST ASCI]1

CHARACTER ON IT

2 :RETURN

;:STORAGE FOR ASCII CHAR. TO TYPE
. ; TERMINATOR

;;RESERVE 8 BYTES FOR TTY INPUT

/*2G/<15><12>

;;CONTROL ‘'C'*
;sCONTROL ‘U’
;:CONTROL ‘G’

#-1,CTLFG

;SET THE CONTROL=-C FLAG

1%
SHUT

;NO=-=-RESPOND TO “C

<15><12>/SWR =
NEW =
/

$TSTNM

;DOING ANY TESTS ?
sBR IF YES

JEXIT FROM INTERRUPT

THE

CZRMNBO RMOS/3/2 FCTINL

READ AN OCTAL

TST 2

NUMBER FROM THE

MACRO v04.00

TTY

4-AFR-81

.SBTTL

11:43:33 PAGE 46

SEQ 0244

READ AN OCTAL NUMBER FROM THE

TTY

t."t..'..".'.t...t.".'t.'."..'fi'.t....'Qttt'.'t.t't..'..t't

-THIS ROUTINE WILL

READ AN OCTAL

:*CHANGE IT TO BINARY,

:'CALL:

"
i
. %

011646
016666
010046
010146
010246
104412
012600
005001
005002
112046
001412
006301
006102
006301
006102

006301
006102
042716

062601
000764
005726
010166
010237
012602
012601
012600
000002
000000

——

———

000004

000002

RDOCT
RETURN HERE

$RDOCT: MOV
MOV.
MOV
MOV
MOV
1%:
RDLIN
MOV
CLR
(LR
2%:
MOVB

BEQ

177770

000012
062612

R1
R2
R1
R2
R1
R2

ADD

(SP)+ ,R1

#*C7,(SP)

BR
TST
MOV
MOV

2%
(SP)
+
R1,12(SP)
R2,$HIOCT

MOV
MOV

(SP)
+ ,R1
(SP)+,RO

MOvY

$HIOCT:

(SP)+,RO
R1
R2
(RO)+,~-(SP)

ASL
ROL
ASL
ROL
ASL
ROL

BIC
3%:

(SP) ,=(SP)
4(SP) ,2(SP)
RO,=(SP)
R1,-(SP)
R2,-(SP)

.WORD

(SP)+,R2

(ASCII)

NUMBER FROM THE

TTY AND

;;READ AN OCTAL NUMBER
;:LOW ORDER BITS ARE ON TOP OF THE STACK
;:HIGH ORDER BITS ARE N $HIOCT
;:PROVIDE SPACE FOR THE
;s INPUT NUMBER

;:PUSH RO ON STACK

;sPUSH R1 ON STACK
;:sPUSH R2 ON STACK
;;READ AN ASCIZ LINE
;:GET ADDRESS OF 1ST CHARACTER
;:CLEAR DATA WORD
;:PICKUP THIS CHARACTER
..IF ZERO GET OuUT

;:*8
;:STRIP THE ASCII JUNK
::ADD IN THIS DIGIT
;:LOOP
;:CLEAN TERMINATOR FROM STACK
;:SAVE THE RESULT

;:POP STACK INTO R2
;:POP STACK INTO RI1
::POP STACK INTO RO

2 ;RETURN

;;HIGH ORDER BITS GO HERE

(ZRMNBD RMOS/3/72 FCINL

TRAP DECODER

TST 2

MACRO v04.00-

4-APR-81

.SBTTL
AR

11:43:33 PAGE 47

SEQ 0245

TRAP DECODER

A AR R

R A A AR AR R A

RN AR AR R AN A AN AR

RARA

AR AR R AR

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF

TR AR RS

THE ‘‘TRAP'' INSTRUCTION

s*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*0F

THE DESIRED ROUTINE.

;*GO TO THAT ROUTINE.
062614
062620

016646
042716

062630
062632
062634

000002
010046
016600

062642

111000

062624

062640

062644
062646
062652

012746

005740
006300
016000
000200

000002
000020

$TRAP:

062632

MOV
BIC

2(SP) ,=(SP)
#2),(SP)

;JASSUME THE STATUS OF
;s THE CALLER=-DO NOT ALLOW

RTI
MOV
MOV

RO,=(SP)
2(SP) ,RO

;;SET _THE NEW STATUS
;s SAVE RO
;:GET TRAP ADDRESS

(RO) ,RO

;:GET RIGHT BYTE OF TRAP

MOv

1%:

000002

TST

MOvVEe

ASL
MOV
RTS

062666

THEN USING THE ADDRESS OBTAINED IT WwILL

#1%,-(SP)

-(R0O)

RO
$TRPAD(RO) ,RO
RO

;. T=BIT TRAPS

; :BACKUP BY 2

;:POSITION FOR INDEXING
;;INDEX TO TABLE
::G0 TO ROUTINE

::THIS IS USE TO HANDLE THE'''GETPRI'' MACRO
062654
062656
062664

011646
(016666
000002

000004

000002

$TRAPZ: MOV
MOV
RTI
.SBTTL

{SP) ,~(SP)
4(SP) ,2(SP)

;sMOVE THE PC DOWN
;:MOVE THE PSW DOWN
;;RESTORE THE PSW

TRAP TABLE

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

;*BY THE '‘TRAP'' INSTRUCTION.

é
062666

062654

062704
062706
062710
062712
062714
062716
062720

062670
062672
062674
062676
062700
062702

_WORD

S$TRAP2

s s CALL=T1YPE
;;CALL=TYPOC
;;CALL=TYPOS
;;CALL=TYPON
;;CALL=TYPDS
;:CALL=TYPBN

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)
TRAP+6(104406)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEAPING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)
TYPE BINARY (ASCII) NUMBER

061620

$GTSWR

;;CALL=GTSWR

TRAP+7(104407)

GET SOFT-SWR SETTING

061530
062072
062162
062512
055606
055644

$CKSWR
;;CALL=CKSWR
$SRDCHR ; ; CALL=RDCHR
$RDLIN
;. CALL=RDLIN
$SRDOCT
;. CALL=RDOCT
$SAVREG ;:CALL=SAVREG
$RESREG ; ;CALL=RESREG

TRAP+10(104410)
TRAP+11(104411)
TRAP+12(104412)
TRAP+13(104413)
TRAP+14(104414)
TRAP+15(104415)

TEST FOR CHANGE IN SOF T-SWR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTY
SAVE RO-RS ROUTINE
RESTORE RO-RS ROUT INE

056430
056226
056202
056242
055756
055702

STRPAD:

ROUT INE

$TYPE
$TYPOC
$TYPOS
STYPON
$TYPDS
$TYPBN

MACRO v04.00
.SBTTL

4-APR-81

M3
11:43:33 PAGE 48

SEQ 024¢

PCWER DOWN AND UP ROUTINES

"."..'.."...'.'.'..".'..".....'..'....QQQ'..'..'Q."..t'.t

000024
000026

012737

010046
010146
010246
010346
010446
010546
017746

010637
012737

000000
000776

POUER DOWN ROUTINE
#SILLUP,Q#PWRVEC ;;SET FOR FAST UP
#340,a#PURVEC+2 ;:PRIO:7
MGV
RO, ‘(SP)
MOV
; sPUSH RO ON STACK
MOV
R1 .‘(SP)
. sPUSH R1 ON STACK

SP\-RDN MOV

MOV
MOV
MOV
MOV
MOV

116176

063066
062774

MOV
MOV
HALT
BR

000024

R2.,=(SP)
R3,-(SP)
R&4,-(SP)
RS5,=(SP)
aSWR,-=(SP)
SP,$SAVR6

#SPWRUP ,a#PWRVEC

-2

s sPUSH R2 ON STACK
. sPUSH R3 ON STACK

; sPUSH R4 ON STACK
2 sPUSH R5 ON STACK
; sPUSH aSWR ON STACK
. sSAVE SP

;;SET UP VECTOR

; sHANG UP

A AR AT AR AR A AR AR A AR AR AT AR AR AR AR AR ARAR IR AR AN R AR AR AR

062774
063002
063006
063012
063016

063020
063024

012737
013706

005037
005237
001375
012677

012605
012604
012603
012602
012601
012600

. 012737
~ 012737
104401

000024

1%:

116130

MOV
CLR

$SAVR6,SP
$SAVR6

BNE

INC

MOV
MOV
MoV

MOV

062722
000340

MOV
MoV
MOV
MOV
MOV

000024
000026

063070
000002
000000
000776

TYPE

$PWRMG : fi??RD
$ILLUP: HALT

000000
015

012

120

112737
112737

000001
000001

063344
063342

$ATY1:
$ATY3:

112737

000001

063344

$ATYSL:
$ATYC:

AR RN ER

POUER UP ROUT INE
SPURLP MOV
#SILLUP,@#PWRVEC ;;SET FOR FAST DOWN

$SAVR6G

(SP) +,aSWR
(SP)+,RS
(SP)+ R4

(SP)+ ,R3

;.GET SP
;:WAIT LOOP FOR THE TTY
;;WAIT FOR THE INC
WORD
::0F
;:POP STACK INTO aSWR
;:POP STACK INTO RS
;:POP STACK INTO R4
::POP STACK INTO R3
::POP STACK INTO R2
;:POP STACK INTO R1
;:POP STACK INTO RO

(SP)
+ ,R2
(SP)+ ,R1
(SP)+,R0O
#SPWURDN, G#PWRVEC” * ; SET UP THE POWER DOWN VECTOR
#340,a#PWRVEC+2 ;:PRIO:7

$POWER

.~2

;REPORT THE POWER FAILURE

:;POWER FAIL MESSAGE POINTER

;:THE POWER UP SEQUENCE WAS STARTED
;. BEFORE THE POWER DOWN WAS COMPLETE
;;PUT THE SP HERE

$SAVR6: 0
$POWER: .ASCIZ
<15><12>'POWER'’
.EVEN
.SBTTL
APT COMMUNICATIONS ROUTINE

;;tt"'..'t'.t"".'.t'"ti.'Qt..."Q.."'.tt'tfit't'.'tttt."tttt

000403

010046
010146
105737
001450
122737
001031
132737

063342
000001

001242

000100

001243

MOVB
MOVB
BR
MOVB

#1,8FFLG
#1,8MFLG

::T0 REPORT FATAL ERROR
::TO TYPE A MESSAGE

#1,8FFLG

;:TO ONLY REPORT FATAL ERROR

MOV
MOV
7STB
BEQ
CMPB
BNE
BITB

RO,=(SP)
R1,=-(SP)
$MFLG
5%
géPTENVJENV

;;PUSH RO ON STACK
;:PUSH R1 ON STACK
;:SHOULD TYPE A MESSAGE?

SATYC

;:IF NOT:

: ;OPERATING UNDER APT?
;sIF NOT: BR
#APTSPOOL , SENVM ;2SHOULD SPOOL MESSAGES?

|
{

CZRMNBO RM0S5/3/2 FCTNL TST 2

APT

COMMUNICATIONS ROUTINE

063154
063156
063162
063170
063174
063176
063202
063204
063206
063212
063214
063220

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

000200
000001
000100
000040

000004
000002

001222

MACRO v04.00

000004

001236

BEQ
MOV
1%:

2%:

001236
001240
000004
000004
000002
177776
056430

000004

000004
000002
001222
063344
063343
063342

WAIT

RO, $MSGAD
+
(RO)

;:PUT ADDR IN MA]ILBOX
;sFIND END OF MESSAGE

TSTB
8NE
SuB
ASR

ADD

BEQ
TST
BEQ
139
BNE
MOV
ADD

INC
CLRB
CLRB
CLRB
MOV
MOV
RTS
$MFLG:
.BYTE
$LFLG:
.BYTE
$FFLG:
.BYTE
.EVEN
APTSIZE = 200
APTENV
= 001
APTSPOOL= 100
APTCSUP = 040
12%:

;oIF NOT:

MOV

TSTB

001224
000004

?QSGTYPE

BNE

4%:

001222

;s1F NOT:

#2,4(SP)

MOV
JSR
.WORD

001242

3s
@4 (SP) ,RO

SEQ 0247

ADD
TST

3%:

063344

N 3
11:43:33 PAGE 48-1

;;GET MESSAGE ADDR.
;:BUMP RETURN ADDR.
;:SEE IF DONE W/ LAST XMISSION?

MOV
MOV
BR
MOV

001222

063254

4-APR-81

$MSGAD ,RO
RO
RO, $MSGLGT
gg,snscrvps

;:SUB START OF MESSAGE
::GET MESSAGE LNGTH IN WORDS
s sPUT LENGTH IN MAILBOX
;oTELL APT TO TAKE MSG.

34 (SP) 48
#2.4(SP)

;:PUT MSG ADDR IN JSR L INKAGE

Sc.srvps

“:CALL TYPE MACRO

- -BUMP RETURN ADDRESS

177776,-(SP)

::PUSH 177776 ON STACK

$FFLG

; :SHOULD REPORT FATAL ERROR?
;:IF NOT:
BR

12%
$ENV
12%
$SMSGTYPE

11%
@4 (SP) ,$FATAL
#2,4(SP)
$SMSGTYPE
$FFLG

SLFLG
SMFLG

(SP) +,R1
(SP)+,RO

0
0
0

; JRUNNING UNDER APT?
BR
;:IF NOT:
;sFINISHED LAST MESSAGE?
WAIT
;oIF NOT:
;:GET ERROR #
;:;BUMP RETURN ADDR.
;:TELL APT TO TAKE ERROR
:;CLEAR FATAL FLAG
;:CLEAR LOG FLAG
;;CLEAR MESSAGE FLAG
;:POP STACK INTO R1
;:POP STACK INTO RO
: :RETURN
s JMESSG. FLAG
;:LOG FLAG

;;FATAL

FLAG

TST 2

CONSOLE ME SSAGE
S

SCTMSG:
EQUALS:
ALL:
QUES:
:
COMMA

.ASCIZ
LASCIZ
LASCIZ
LASCIZ
.ASCIZ
.ASCII
LASCII
LASCII
LASCII
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCIZ
LASCII
LASCIZ
.ASCII
LASCIZ
.ASCIZ

.ASC

S: .ASC

Y
i

:
3

JASC
o RSC

JASC

.ASC
.ASC
LAS(C

.ASC
.ASC
.ASC
.ASC
JASC
JASC

:
:

JASCIZ
JASCIZ

MSDRVS:
:
:

CNSLO8:
CNSLO9:

R e

CNSLO1:
CNSLO2:
CNSLO3:
CNSLO4:
CNSLO7:

MSHELP:

JASL

N - b NININININNNNNNN

O==0=WN=0N—~
NNNNOOOR=N=
(e 4N
Te 2

b
e
b
e
e
e
o
e
e
b
b
b
D o
b

.SBTTL

[

—

e e e e ek e

e L= |

—d o o

ON)
= — =)
NNOON SO 2\!
N
=&

N
&~
ASIe V]

8833

—)
-

883

101

g
e

4-APR-81 11:43:33 PAGE 49
SEQ 0248

025

MACRO v04.00

101

mNNNNN—l-‘b—A—a.‘_‘_a...a_a
S U =0 000 NP NS NN = OO

NN S NN -

IR RRRRRERR BRREREER

CZRMNBO RMOS/3/2 FCTNL
CONSOLE MESSAGES

;ggLF>3CANNOT RECOVER #HE BAD SECTOR FILES ON THIS DEVICEa
SALLA<CRLF>
g ?ai
<CRLF>@aTO
ENSURE THAT NO
BAD HEADERS ARE LEFT
ON
THE DISka
<CRLF>@PACK,
THIS PROGRAM SHOULD BE HALTED BY TYPING A (*()a
<CRLF>3CONTROL C.
AS A RESULT,
THE PROGRAM WILL
BE HALTED®

<CRLF>QWHEN THE DRIVE UNDER TEST HAS COMPLETED TESTING.a@<CRLF>

<CRLF>ATYPE HELP TEXT
<CRLF >aRM(S 1=

(L)

N ? @

@ LIMITS = LO= 160000, HI= 17XXXX@<CRLF>
RMVE (=2
@ LIMITS = LO=
0, HI= 10008<CRLF><LF>

<CRLF>@TYPE
"A'* TO TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S)a
<CRLF>BAND TERMINATE INPUT WITH A CARRIAGE RETURN.

@ 2ILLEGAL INPUT@<CRLF>
<CRLF>/DRIVE(S): /
/DRIVE/
<CRLF>/UNIT STATUS:/

/RMO2/
/RMQ3/
/RMOS/
@ NOT AN RM05/3/2a
/
/
/
/
/

LOAD DEVICE/
NOT PRESENT/
NOT AVAILABLE/
OFFLINE/

ONLINE/

<CRLF>/DRIVE(S)

/NONE/

TO BE

TESTED/

SNTES OO NN
AN = O 000 YO NN
-2

(ZRMNBO RMOS/3/2 FCTNL
FUNCTION CODE TABLE

TST 2

MACRO Vv04.00

4-APR-81

.SBTTL
sTHE

&
C
11:43:33 PAGE SO

FUNCTION CODE TABLE

FUNCTION CODE

TABLE

IS USED

TO DEFINE

STATUS CONDITIONS FOR

SEACH FUNCTION CODE.

BIT USAGE IS AS FOLLOWS:

IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

ATA = BIT 15

:1F ATA SHOULD BE SET WHEN TH. FUNCTION CODE IS EXECUTED, OTHERWISE,
:BIT 15 1S ZERO, INDICATING THAT ATA SHOULD NOT NORMALLY BE SET.
INOTE THAT ATA MAY BE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH

;1T IS NOT EXPECTED AS
A RESULT OF THE COMMAND.

e o

WCE = BIT 14 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
IF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND.

OP] - BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

IF OPI ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.

IF
\

IVC = BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

IVC ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.
WLE = BIT 11

IS SET

IN THE ENTRY FOR A GIVEN FUNCTION CODE

IF WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF

:THE WRITE

ERRORS WHICH ARE ENABLED ARE ‘WLE'',

THAT COMMAND.

"WCF'',

'DPE"’,

"UPE'".

IAE - BIT 10 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND.

AOE - BIT 09 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
IF READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THE

;COMMAND.
THE ERRORS ENABLED BY THIS BIT ARE ''TRE'', 'DLT"', "NEM'',
SMXF*, TLBT'', AND "ADE''.

BIT 08 IS NOT USED.

HCE - BIT 07 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
IF HEADER ERRORS ARE ENABLED DURING THE EXECUTI(N OF THAT COMMAND.
:HEADER ERRORS INCLUDE ‘MCRC'', ‘MCE'', 'FER',
‘BSE"°.

ECH - BIT 06 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

IF DATA FIELD ERRORS ARE ENABLED DURING THE EXECUTIW OF
;COMMAND.
THESE ERRORS INCLUDE 'MDPE'’, 'DCK'',
"ECH"".

THAT

BIT 05 IS NOT USED.

BiT 04 IS NOT USED.

BIT 03 IS NOT USED.

BIT 02 IS NOT USED.

;

gz 064566
57 064566

BIT 01

ILF = BIT 00 IS SET IF THE FUNCTION CODE IS ILLEGAL.

FNCDTB:

020000

.WORD

IS NOT USED.

;FUNCTION CODE

OP]

:NOP

TABLE

5/3/2 FCINL TST 2
TABLE

130001

}32000

MACRO v04.00

4-APR-81

D &
11:43:33 PAGE S0-1

SEC 0250
.WORD
.wORD
. WORD
. WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

OPI!ATA!ILF!IVC

ATA!OPI:IVC'IAE
ATAIOPI!IVC

OPI
OPI!IvC
OPI!ATA!IV(
OPI!ATA!IVC
OPI
OPI
OPI!ATA!IL"!IVC
OPI!ATA!ILF!IvVC

ATAIOPI!IVC:IAE

OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!ATAIILF!IVC
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC

UCE'OPI'IVC'IAE' AOE !HCE 'ECH
WCE!OPI!IVC!IAE! AOE'HCE'ECH

OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!IVC!WLE!IAE
'AOE HCE
OPI!IVC!WLE'IAE'!AOE
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI:IVC:!IAE':AOQE!HCE'!ECH
OPI!IVC!IAE:AOE !HCE'!ECH
OPI!ATA!ILF!IVC
OPIATA!ILF!IVC

gléIE.EGAL FUNCTION (2)
sRECAL IBRATE

:DRIVE CLEAR

:RELEASE
;OFFSET
JRETURN TO CENTERL INE
JREAD IN PRESET
;PACK ACKNOWLEDGE
sILLEGAL FUNCTION (24)
sILLEGAL FUNCTION (26)
: SEARCH
sILLEGAL FUNCTION (32)
sILLEGAL FUNCTION (34)
;ILLEGAL FUNCTION (36)
sILLEGAL FUNCTION (40)
sILLEGAL FUNCTION (42)
;ILLEGAL FUNCTION (44)
;ILLEGAL FUNCTION (46)
JWRITE CHECK DATA

JWRITE CHECK HEADER AND DATA
;ILLEGAL FUNCTION (54)
sILLEGAL FUNCTION (56)
;WRITE DATA
;WRITE HEADER AND DATA
;ILLEGAL FUNCTION (64)
sILLEGAL FUNCTION (66)
;READ DATA

;READ HEADER AND DATA
;ILLEGAL FUNCTION (74)
;ILLEGAL FUNCTION (76)

TS0

MACRO v04.00

4-APR-81

.SBTTL
001

002
004
010
020
040
100
200

E
11:43:33 PAGE

ATTENTION (ATA)

ATNTBL:

1
LalaV]

¥4 RMNBO RMOS5/372 FCINL
At
TENTION (ATA) TABLE

.BYTE
.BYTE
BYTE
BYTE

16.

32.

6‘.
128.

TABLE

&
51

CZRMNBO RMOS/3/2 FCINL

DATA PATTERN TABLE

TST 2

MACRDO v04.00

.SBTTL

& 064676

000000

7 064702

000003

3 064706
10 064710

000017
000037

8 064704

064712
064714
064716
064720

17 064726

007777

20 C64734
21 064736
22 064740
25 064742
24 064744
25 064746
26 064750
27 064752
28 064754

017777
037777

077777
177777
177777
077777
037777
017777
007777
003777
001777

000777
000377
000177
000077
000037
000017
000007
000003
000001
000000
000000
000001
000002
000004
000010

45 065016

000040

46
47
48
49

000020

.WORD

.WORD
.WORD

15,
31,
63.
127.
255.
511,

.WORD

2047.

.WORD
.WORD

8191,
16383.

.WORD

003777

29 064756
30 064760
31 064762
32 064764
33 064766
34 064770
35 064772
36 064774
27 064776
38 065000
39 065002
40 065004
41 065006
42 065010
43 065012
44 065014

TABLE

.WORD

000007

064722

18 064730
19 064732

MIXED:

000001

000077
000177
000377
000777
001777

16 064726

DATA PATTERN

RGDTPT:

S 064676

6 064700

11:43:33 PAGE

.WORD
LWORD
.WORD
.WCRD
.WORD

.WORD

ONES:

ZEROS:

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

1.
7.

1023.

4095.

32767.
65535.
65535.
32767.
16383.
8191,
4095.
2047.
1023.

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

511,
255.
127.
63.
31,
15.
7.
3.
1.
0.
0.
1.
2.
4,
8.

.WORD

32,

.WORD

16.

065020
065022
065024
065026

000100
000200
000400
001000

.WORD
.WORD
.WORD
.WORD

64,
128.
25%6.
512.

53 065036
54 065040
55 065042

020000
040000
100000
100000
040000

WORD
WORD
.WORD

8192
16384
32768,

50 065030
51 065032
52 065034

56 065044
57 065046

002000
004000
(10000

52
SEQ 025/

2
2 064676

11
12
13
14
15

4=-APR-81

.WORD
WORD
WORD

.WORD
.WORD

1024.
2048.
4096

32768.
16384.

(JRMNBO RMOS5/3/2 FCINL

DATA PATTERN TABLE

58 065050

59 065052

60 065054
61 065056
62 065060
63 065062
64 065064
65 065066
66 065070
67 065072
68 065074
69 065076
70 065100
71

065102

020000

.WORD

WORD
WORD
WORD
.WORD
WORD
WORD
.WORD
"WORD
.WORD
WORD
‘WORD

000001

WORD

177776
177774

\WORD
WORD

177760
177740
177700

.WORD
\WORD
.WORD

76 065114

177770

80 065124
177600
81 065126
177400
82 065130
177000
83 065132. 176000
84 065134
174000
85 065136
170000
86 065140
160000
87 065142
140000
88 065144
100000
89 065146
000000
90 065150 000000

91
92
93
9%

065152
065154
065156
065160

.WORD

65528.

65408,
65280.
65024
64512.
63488.
61440.
57344.
49152.
32768.
0.
0,

.WORD
.WORD
.WORD
.WORD
.WORD

65408.
65472.
65504.
65520.
65528.

177776
177777

.WORD
.WORD

.WORD

65532.

107 065212
108 065214

125252
152525

EARLY:

.WORD
.WORD

109 065216
110 065220

125252
177777

.WORD
.WORD

112 065226
113 065226

177775
177773

.WORD
.WORD

065230

65520.
65504
65472.

177400
177600
177700
177740
177760
177770

177774

114

65534.
65532,

WORD

104 065204

111 065222

O,
65535,

176000

177000

105 065206
106 065210

2048,
1024.
512.
256.
128.
64.
32.
16.
8.
4.
2.

32768.
49152,
57344
61440.
63488

97 065166

065170
065172
065174
065176
065200
065202

8192,

4096.

.WORD
WORD

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

100000
140000
160000
170000

174000

98
99
100
101
102
103

G 4
11:43:33 PAGE 52-1

.WORD
.WORD
.WORD
WORD
WORD
WORD
WORD

95 065162

9 065164

4-APR-81

WORD

004000
002000
001000
000400
000200
000100
000040
(000020
000010
000004
000002

000000
177777

77 065116
78 065120
79 065122

MACRO v04.00

010000

72 065104
73 065106

76 065110
75 065112

TST 2

177776

177767

.WORD

64512,

65534.
65535.
43690.
43690./2
43690.
65535.

65534,

65533.
65531.

65527

“INMNBO BMOS/3/2 FOTNL

IST

MACRO v0&4.00

4=-APR-B1

11:43:33 PAGE

DATA PATTERN TABLE

115 065232

|1 Qese3e

177757

.WORD

177737

.WORD

177377

WORD

123 065252
124 065254

167777
157777

.WORD
.WORD

126 065060
127 065262

077777
077777

129
130
131
132
133

065266
065070
065272
065274
065276

157777
167777
173777
175777
176777

136
137
138
139
140

065304
065306
065310
065312
065314

117 065236
118 065240

177677
177577

120 065244
121 065246
122 065250

176777
175777
173777

115 065042

125 065256
128 065264

137777

134 C65300
135 065302

177377
177577

141 065216
162 065320

177775
177776

143 065322
144 065324

‘WORD
.WORD

177777

.WORD

49151.

“WORD

49151

61439,
57343.

32767.
32767.

.WORD
.WORD
.WORD
'WORD
.WORD

57343.
61439.
63487.
64511,
65023.

.WORD
.WORD
.WORD
.WORD
.WORD

65471.
65503.
65519.
65527.
65531.

.WORD
.WORD

ENRGDT:

65279.

65023.
64511.
63487.

.WORD
.WORD

177677
177737
177757
177767
177773

65471
65407.

.WORD
.WORD
.WORD

.WORD
.WORD
.

65519,

65503.

.WORD

65279.
65407.

65533.
65534.

65535,

52-2

076734

11 065400

072246

000000

13 065412

072362

12 065404

14 065426
15 065432

16
17
18
19

065440
065450
065460
065470

072201

072310

072456
072310

072310
072310
072310
072310

000000

072321

072373

074125
072541

072564
072600
072626
072655

000000

EMT3:
EMT4:
EMTS:
EMT6:

.WORD
.WORD
.WORD
.WORD

EMT10:

.WORD

EMT7:

EMT13:

.WORD

EMT12:

000000
000000

EMT14:
EMT15:

.WORD

072713
072724
072724
072724
072724
072724
072724
072724

EMT22:
EMT23:
EMT24:
EMT25:
EMT26:
EMT27:
EMT30:
EMT31:

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

EMI33:

072713
072724
072724
072713

EMT16:
EMT17:
EMT20:
EMT21:

EMT46:

.WORD

EMS101.EMSS53.EMS76.0

072310
072310
072310
074211
074377

073321
073350
073423
072516
076110

072724
072724
072724
000000
074405

EMT35:
EMT36:
EMT37:
EMT40:
EMT41:

37 065710
38 065720

073515
074436

073631
073631

074405
074405

073631

074405

39 065730

074464

41 065750

074143

40 065740

074512

073631
074125

42 065756
43 065766

072362
072310

072404
073466

45 066016
46 066034

073515
073544

073631
073631

44 066000

47 066044

48 066056

49 066074

073515

076136

073573

076153

074333

076707

074343

076067

074261

50 066104
51 066122

073714
074320

53 066156

000000

52 066142

073631

074261
073714

074333
074405

000000

074077
072724

074261

074261
074061

073631
074261

074261

075073
074261

075073

54 066160

076274

076337

074306

57 066232

076646

074567

074333

55 066200
56 066220

073621
076646

077334
074567

077515
074333

EMS11.EMS22.EMS?2 7
EMS11.EMS23.EMS3 0
EMS11.EMS24.EMS3 (7J
EMS11.EMS2S.EMS2

EMS47,EMS53.EMS76.0
EMS77.EMS53.EMS76.0

065630
065640
065650
065660
065666

076211

EMS17.EMS64.0
EMS11.EMS21.0

.WORD
.WORD

31
32
33
34
35

076201

EMS13.EMS14.EMS15,EMS16.0

EMT43:
EMT44:

072724

36 065676

EMS11.EMS12.0

EMS11,EMS45,EMS30,0
EMS11,EMS44,EMS30,0
EMS11.EMS4S.EMS3C.0
EMS66.EMS20.0
EMS75.EMS141,EMS76.0

073244

072724

.WORD
.WORD
.WORD
.WORD

EMS10.0

.WORD
.WORD
.WORD
.WORD
.WORD

072310

073272

.WORD

EMS?7,0

_WORD

29 065610

072724

.WORD

EMS2.EMS&.0
EMSS.EMS6.0
EMS5.EMS10.0
EMS167,EMSé4,0

0
0
0
0
EMS11,EMS26,EMS27 0
EMS11,EMS31,EMS30 0
EMS11,EMS32,EMS30 0
EMS11,EMS33,EMS30 0
EMS11,EMS34,EMS30 0
EMS11,EMS35,EMS30 0
EMS11,EMS36,EMS30 0
EMS11,EMS37,EMS30 0
EMS11,EMS40,EMS30 0
EMS11,EMS41,EMS30,0

072672
072734
072763
073012
073040
073111
073140
073167

EMS110.EMS170,0

.WORD

072310
072310
072310
072310
072310
072310
072310
10

073215

.WwORD

EMT11:

20 C65500
21 065510
22 065520
23 065530
24 065540
25 065550
26 065560

EMS2.EMS3,0

000000

072404

EMS1.0

.WORD

EMT32:
EMT34:

EMT42:
EMT45:
EMT47:
EMTSO:
EMT51:

EMT52:

EMT53:
EMT54:

EMT5S:
EMT56:

EMTS7:

EMT60:
EMTé1:

EMT62:

EMT63:

.WORD
.WORD

.WORD

.WORD
.WORD
.WORD

.WORD

.WORD
.WORD

.WORD

NS ONOSON

074673

.WORD

EMT2:

9 065366

10 065374

00000C
000000
000000
000000

EMT1:

TABLE

072041
0721364
072246
074125

000000

ERROR MESSAGE

071761
072104
072104
076707

000000

071776

.SBTTL

&
S3

5 065336
6 065346
7 065352
8 065360

071761

I
11:43:33 PAGE

071712

4-APR-81

3 0653264

L 065330

MACRO v04.00

TST 2

(IRMNBO RMOS/3/2 FCTNL
FRROR MESSAGE TABLE

EMS11,EMS42,EMS30,0

EMS144,EMS145,EMS72.EMS76.0

EMS100,EMS53.EMS76.0
EMS65,EMS64.0

EMS13.EMS15.EMS63.0
EMS11.EMS46.EMS30.EMS67.0

EMS47.EMSS3.EMS67.EMS115,.EMS140,EMS141,0

EMS47.EMSS53.EMS67.EMS115.EMS141.EMS164.0
EMSS0.EMSS53.EMS67.0

EMS142,EMS143,EMS53,EMS67.0

.WORD

EMSS1,EMS72,EMS67,EMS115,EMSSO,EMS70.0

.WORD
.WORD

EMSS6,EMS67,EMS115.EMS150,EMS152,EMS70.0
EMS71.EMSS6.EMS67.EMS115,EMS150,EMS152.EMS72.0

.WORD

.WORD
.WORD

EMS167,EMS?%,EMS67.0

EMS140,EMS67,EMS115,EMS47,EMS70.0

EMTé4:

.WORD

EMS150,EMS152,EMS70,EMS115,EMSS6,EMS73,EMS67,0

EMT67:

.WORD

EMS165.EMS103.EMS72.EMS171.0

EMT65:
EMT66:

.WORD
.WORD

EMSS2,EMS205,EMS214.EMS206.EMS115,EMSST,EMS72.0
EMS165,EMS103,EMS72.EMS124.0

(ZRMNBO RM0S5/3/2 FCTINL

ERROR MESSAGE

58 066244

59 066254

60
61
62
63
64

TABLE

073466

074320

TST 2

MACRO v04.00

072516

076541

EMT70:

076541
076541
076541
076541
076541

EMT72:
EMT73:
EMT74:
EMT75:
EMT76:

(74512

066264
066302
066320
066330
066350

073515
073515
073714
074320
073544

0764333
074333
073631
073714
073631

66 066372
67 066610

074377
074377

076110
076274

69 066436

076257

076313

71 066466

076646

S 066360

68 066426
70 066450

076136

076707

073573

076153

073631

074343

076541

075171
075234
075271

92
93
94
95
96
97
98
99
100
101
102
103
106

066756
066770
067002
067014
067026
0670640
067050
067060
067070
067100
067110
067120
067130

075366
075431
076032
075533
075571
075171
075271
075171
076032
075334
075366
075431
075571

109 067204

076201

105
106
107
108

066744

067140
067150
067160
067172

110 067222

111 067240

112 067252
113 067264
114 067276

075334

075631

076274

076257
076257

076511

EMS147.EMS157,EMS74.EMS163.0

000000
000000
075076
000000

075631
075631
075631
075631
075631
075631
075631
(075631
075631

076201

.WORD

072041
071776
075073
075150

076541
076541

075076

.WORD

EMT106:

.WORD

EMT110:

.WORD

EMT107: .WORD
EMT111:
EMT112:
EMT113:
EMT114:

.WORD
.WORD
.WORD
.WORD

075700
075700
075700

EMT115: .WORD
EMT116: .WORD
EMT117: .WORD
EMT120: .WORD
EMT121: .WORD
EMT122: .WORD
EMT123: .WORD
EMT124: .WORD
EMT125: .WORD
EMT126: .WORD
EMT127: .WORD
EMT130: .WORD

075631
075631
075631
075631
075631
075631
075631
075631
075631
075631
075631
075631
075631

075700
075700
075700
075700
075700
075742
075742
076005
076005
076005
076005
076005
076005

EMT132:
EMT133:
EMT134:
EMT135:
EMT136:
EMT137:
EMT140:
EMT141:
EMT142:
EMT143:
EMT144:
EMT145:
EMT146:

076211

076240

EMT153: .WORD

075631
075631
075631

075631
075631
075073
075073
076211

076337

076313
076313
076441

075655
075655
075655
075655
075655
075655
075655
075655
075655

EMT104:

075700

076005
076005
076110
076153
072516

076405

076405
(076441

076474

EMT131:

EMT147:
EMT150:
EMT151:
EMT152:

EMS142,EMS143,EMS55,EMS163.0

EMS7S,EMS141,EMS163.EMS115.EMS47,EMS70
.0
EMS575.EMS150.EMS163.EMS115.EMS56
EMS73.0

EMT102: .WORD

.WORD

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

EMT154:

.WORD

EMT156:
EMT157:

.WORD
.WORD

EMT160:

.WORD

EMT155: .WORD

cFQ NI%5¢

EMS71.EMS101.EMS163.0

.WORD
.WORD

073631

075171
075234
075271
075334
075366
075431
076032
075533
075571

076763
075533
076067
076136

.WORD

EMT100:
EMT101:

076211

074733

79 066576
80 066606
81 066616
82 066626
83 066636
84 066646
85 066656
86 066666
87 066676
88 066706
89 066720
90 066732

EMT77:

EMT105: .WORD

074673

075017
075017
074673
075017

EMS47.EMS72,EMS163,EMS115,EMS140,EMS141.0
EMS47.EMS72.EMS163.EMST15
. EMS141.EMS72.0
EMSS56.EMSS3.EMS163.0
EMS71.EMS56.EMS163.EMS115,EMS150,EMS152,EMS72.0
EMSS0.EMS53.EMS163.0

076541

74 066526
066540
066546
066554
066570

.WORD
.WORD
.WORD
.WORD
.WORD

074464

074360
074436

75
76
77
78

EMS46,EMS20,EMS163,0

.WORD

EMT103:

076646

076201

076541
076541

&
J
11:43:33 PAGE 53-1

.WORD

EMT71:

074360

72 066476

73 066506

076541

4-APR-81

EMS167,EMS73.EMS163.0

EMSS51,EMS74,EMS163,EMS115,EMS50,EMS70.0

EMS165,EMS100,EMS163.0
EMS165.EMS77,EMS163.0

EMS144.EMS145,EMSS3.EMS163,EMS115,EMS143,EMS70.0
EMS110.EMS112.EMS116,EMS111.0

EMS113.EMS4,0
EMS113.EMS3.0
EMS110.EMS115,EMS116,EMS117,EMS114.0
EMS113.EMS120.0

EMS121.EMS132.EMS133.0
EMS122,EMS132,EMS133,0
EMS123,EMS132,EMS133,0
EMS124,EMS132,EMS133,0
EMS125,EMS132,EMS133,0
EMS126,EMS132,EMS133,0
EMS137,EMS132,EMS133,0
EMS130,EMS132,EMS133,0
EMS131,EMS132,EMS133,0

EMS121,EMS132,EMS134,EMS123,0
EMS122,.EMS132,EMS134,EMS123,0
EMS123,EMS132,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
EMS124,EMS132,EMS136.0
EMS125,EMS132,EMS136.0
EMS126,EMS132,EMS136.0
EMS131,EMS132,EMS136,0
EMS171,EMS132,EMS136.0
EMS130,EMS132,EMS136.0
EMS140,EMS115,EMS141,EMS70,0
EMS142,EMS115,EMS143,EMS72,0

EMS144.EMS145.EMS146,EMS115,EMS143,EMS72,0

EMS144 ,EMS145,EMS20,EMS115,EMS143,EMS70,0

EMS150.EMS152.EMS154,EMS155.0

EMS147,EMS151,EMS154,EMS155,0
EMS147,EMS151,EMS156,EMS157,0

EMS161,EMS156,EMS160,0

’

CZRMNBO RMOS5/3/2 FCTNL

ERROR MESSAGE

115 067306
116 067320

MACRO V04.00

072655
072672

072713
072713

076441
076441

073515

072516

000000

TABLE

117 067332

073515

119 067350
120 067356

073714
073466

‘

122 067372

124
125
126
127

EMT164:

.WORD

EMS47,EMS20,0

EMT165:
EMT166:

077273

076110

072724

067414
067424
067434
067446

076707
076763
076763
075017

076405
075631
075631
077136

129 067462

000000

123 067404

128 067454

076707

077160

072516

076405

077175

000000

076457

076421
075655
075700
000000
000000

EMT170: .WORD

EMT171: .WORD

EMT172:
EMT173:
EMT174:
EMT175:

.WORD
.WORD
.WORD
.WORD

EMT177:

.WORD

EMT176:

077273

073573

072724

132 067510

077273

073544

072724

EMi202:

134 067534

076274

074360

077243

EMT204:

}36 067562

074576

077243

EMT206:

131 067476

133 067522

135 067552
37 067572
1 38 067604
39 067612
1 40 067626
141 067642
142 067652

077273

073544

074377
074377
073573
076136
073544
073621

077306

072724

074567

074333

076110
076274
074333
073631
074567
077334

143
144
145
146
147

067672
067704
067714
067724
067734

073621
073714
073466
072734
073515

075126
072724
072724
072724
(072724

149
150
151
52

067754
067764
067766
067770

073621
000000
000000
000000

075126

:"SOg\J&miWN-flgom\lo\nbw

—h — — —
— —
—
——
—
—
—
—d —
-

Yo Yo NV, (V. IV, IV IV, 1V, 1V, ]

148 067744

073621

067772
067774
067776
070000
070002
070004
070006
070010
070012
070014
070016
070020
070022
070024

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
00G000
000000
000000

070030
070040

076707
076707

070026

070052
070066

000000

076707
077447

075126

075631
075631

077431
077472

.WORD

EMT200:

072724 EMT201:

076153

074343

.WORD
.WORD

EMT167: .WORD

130 067464

[oYo Yo Yo Yo Yo No o

EMS25,EMS27,EMS156,EMS160,0
EMS26,EMS27,EMS156,EMS160,0

000000
000000

100035

075073
000000
075073
075073
073631
076662
073714
074125
074125
074125

074125

074436
074077

077373
077420

077420
000000

.WORD
.WORD

072516
072516

121 067364

11:43:33 PAGE 53-2

EMT161:
EMT162:

EMT163: .WORD

;

076541

4-APR-81

076067

118 067342

TST 2

EMT215:
EMT216:
EMT217:
EMT220:

.WORD

EMT221:

WORD
WORD
WORD

WORD
WORD

.
.
.

EMT222: .

EMT223:
EMT224:
EMT225:
EMT226:

EMT227:
EMT230:
EMT231:
EMT232:
EMT233:
EMT234:
EMT235:
EMT236:
EMT237:
EMT240:
EMT241:
EMT242:
EMT243:
EMT244:

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

EMT246:
EMT247:

.WORD
.WORD

EMT245: .WORD
EMT250:
EMTZ251:

EMS203.EMS141,EMS30,EMS202,0
EMS167,EMS154.EMS157,0

EMS167,EMS154,EMS155,0
EMS171,EMS132,EMS133,0
EMS171,EMS132,EMS134,EMS123,0
EMS113,EMS177,0
EMS200,EMS201,0

EMS203,EMS50,EMS30,EMS202,0

.WORD

EMT207:
EMT210:
EMT211:
EMTZ212:
E "213:
Eri2l4:

EMS224,EMS20,0

.WORD

EMT205:

EMS56,EMS20,0
EMS46,EMS20,0

EMS203,EMS51,EMS30,EMS202,0

.WORD

EMT203:

EMS47.EMS16%5,EMS140,0

.WORD

.WORD
.WORD

EMS203,EMS204,EMS30,EMS202,0

EMS203.EMS145,EMS30,EMS202,0

EMS150,EMS74,EMS202,EMS115,EMS152,EMS72,0

EMSS0,EMS103,EMS72,0

EMS104 ,EMS73,EMS202,0

EMS75,EMS141,EMS115,EMS140,0
EMS75,EMS150,0
EMS51,EMS72 ,EMS115,EMS50,EMS70,0

EMS142,EMSSS,EMS115,EMS143,EMS72,0
EMS50,EMS103,EMS53,0

EMS52 ,EMS205 ,EMS166,EMS206,EMS115,EMS51,EMS72,0
EMS52 ,EMS117 ,EMS56,EMS163,0
EMS56 ,EMS30,EMS64,0
EMS46,EMS30,EMS64,0
EMS31 ,EMS30,EMS64,0
EMS47 ,EMS30,EMS64,0

EMS52.EMS117,EMS77,0

EMS52 ,EMS117 ,EMS63,0

EMS167,EMS132,EMS207,0
EMS167,EMS132,EMS210,EMS125,0

EMS167,EMS211,EMS210,EMS207,EMS206,0
EMS212,EMS213,0

SEQ 0257

RMAB 0

RMO5/3/2 FCTINL IST 2

MESSAGE

TABLE

076646
076257
077273
077273
077273
072310
073621
073621
074576
073544

073714

189 070374

190
191
192
193
19

195
196
197
198
199

070412
670430
070442
070456
070474

070514
070536
070550
070562
070574

200 070606
201 070616
202 070636
203 070650
204 070662
205 070674
206 070714
207 070726
208 070740
209 070752

221 071130
222 071146
223 071164
224 071204
225 071214
226 071224
227 071236
228 071244

074320
076136
073544
073515
073515
074377
073573
074077

075076

073515
073515
073714
074320
076646
076646
076646
073466
073544
073544
076136
074576
074625
076201
073272
072734
074320
073321
073423
073350
074654
073140
077036
077016
072362
076257
074211
073012
073215
073573
074377
074377
074017
075076
073040
073665
073621

077447
076313
074512
076707

074464
073466
075126

077334
074343
073631
073631
073714
076153
076240
073631
073631
076110

074360
073631
073631
073631
073631
073631
073714
074464
074512
074436
072724
073631
076240
076153
074567
074567
076211
074567
074567
072734
074567
074567
074567
072516
074567
073140

073140
077053
076313
073631
074567
074567
074360
076110
076274
074032
075126
073631
073040
075126

MACRO v04.00

4-APR-81

4
L
171:43:33 PAGE 53-3

SEG (258

000000
076441
072724
072724
072724
072724
073714
077637
077243
074540
074540
074540
073631
075073
074540
074540
074540
074540
073771
073244
073771
073771
073771
073631
074567
074567
074567
074125
073771
075073
073631
073631
073631
074567
073631
073631
074567
073771
073771
073771
000000
073771
074567
074567
072404
074360
077061
073631
073631
073771
073771
076337
074061
073040
073643
000000
073714

EMT252:
EMT253:
EMT254:
EMT?255:
EMT256:
EMT257:
EMT260:
EMT261:
EMT262:
EMT263:
EMT264:
EMT265:
EMT266:
EMT267:
EMT270:
EMT27:
EMT272:
EMT273:
EMT274:
EMT275:
EMT276:
EMT277:
EMT300:
EMT301:
EMT302:
EMT303:
EMT304:
EMT305:
EMT306:
EMT307:
EMT310:
EMT311:
EMT312:
EMT313:
EMT314:
EMT315:
EMT316:
EMT317:
EMT320:
EMT321:
EMT322:
EMT323:
EMT324:
EMT32S5:
EMT326:
EMT327:
EMT330:
EMT331:
EMT332:
EMT333:
EMT334:
EMT335:
EMT336:
EMT337:
EMT340:
EMT341:
EMT342:

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

EMS165,EMS212,0
EMS147.EMS151.EMS156,EMS210,EMS26,EMS27.0

EMS142,EMS143,EMSSS,EMS102,0

EMS203.EMS101 .EMS30.0

EMS203
. EMS167.EMS30.0
EMS203 EMS100 . EMS30.0
EMS11,EMS46 ,EMS30,EMS102,0

EMS52.EMS117,EMSS6,EMS102,0
EMS52 . EMS205 . EMS220, EMS206,EMS115,EMSS1,EMS72.0
EMS104 ,EMS73 . EMS202 .0

EMSS0,EMS53,EMS102,0

EMSS56 . EMS53.EMS102.EMS115,EMS150,EMS152,EMS70.0
EMS71.EMS56 EMS102 . EMS115.EMS150
. EMS152 . EMS72-0
EMSS50,EMS146,EMS115,EMSS2,EMS117,EMS46,0
EMS47,EMSS3,EMS102,EMS115.EMS140.0
EMS47
. EMS53,EMS102 . EMS115.EMS141.EMS72,0

EMS75.EMS141,EMS102,EMS115,
EMS47 . EMS73.0
.
.

EMSS51 .EMS74 ,EMS102,EMS115,EMS50,EMS70,0
EMS63.EMSS3.EMS57 ,EMST15,EMSLT,EMS
1460

EMS116,EMS53,EMS4
1 ,EMS57.0

EMS47 ,EMS53,EMS57,EMS115.EMS140,0
EMS47.EMSS3.EMS57.EMS115.EMS141
.EMS72,0
EMSS6.EMS53.EMS57.EMS115.EMS150
. EMS152 ,EMS70.0
EMS71,EMS56 . EMS53.EMS57.EMS115,EMS150,
EMS152 .EMS72,0

EMS165,EMS100,EMS103,EMS57,0
.
.
.
.

EMS165.EMS101,EMS103,EMS57.0
EMS165,EMS77,EMS103,EMS57,0
EMS46,EMS30,
EMS64 , EMS57.0
EMSS0.EMSS53.EMS57.0
EMSS0,EMS146,EMS115,EMS52,EMS117,EMS46,EMS57,0

EMS142,EMS1435,EMSS3.EMS57.0
EMS104 .EMS103.EMS53.EMS57.0
EMS105.EMS103.EMS53.EMS57.0

EMS144 .EMS145.EMS1035, EMSS7,EMS115,EMS143,EMS70,0

EMS42,EMS103, EMSS53,EMS57.,0
EMS371,EMS103,EMS53.EMS57.0
EMS71.EMS31,EMS103.EMS57.0
EMS43.EMS10%,EMSS7.0
EMS4S .EMS103.EMS57.0
EMS44 .EMS103.EMS57.0
EMS106,EMS20.0
EMS36,EMS103.EMSS57,0

EMS17%5,EMS36.EMS103,EMSS7.0
.
.
.
.

-WORD

-WORD
-WORD

EMS172,EMS36.EMS103,EMS57.0
EMS13,EMS174 . EMS15,EMS35,EMS53,EMS175.,0

EMS147,EMS151,EMS74 ,EMS175.,0
EMS66,EMS53,EMS175.0
EMS33.EMS103, EMS53.EMS175,0

EMS40.EMS103,EMS53.EMSS7.0
EMSS1.EMS74 ,EMS57,EMS115 . EMSS0,EMS70,0

EMS7S.EMS141,EMSS? EMS115,EMS47 EMS73.0
EMS75 _EMS150.EMS152,EMSS7.EMS115, EMSS6,EMS73.0
EMS60
. EMS61 , EMS62,0

EMS116,EMS117,EMS34,0

EMS34 ,EMS53,EMSS4,EMS111,0
EMSSS.EMS34.0

EMS52.EMST17,EMS56,EMS57,0

CZRMNBO RMOS/3/2 FCTINL

ERROR MESSAGE

229 071256
30 071270
3 071302

TABLE

073621

TST 2

MACRO v04.00

075126

073423

EMT343:

075126

077657

EMT345: .WORD

(75126

071312
071326
%g 071340

074654
073621
074377

072516
077334
076274

;g 071366

077533
077604

000000
077273

071356

071372

38 071402

076707

077657

074343
072516

073350

4-APR-B1

EMT344:

.WORD
.WORD

075073
077727
074540

EMT346:
EMT347:
EMT350:

(077554

EMT352: .WORD
EMT353: .WORD

074540

000000

.WORD
.WORD
.WORD

EMT351: .WORD
EMT354: .WORD

M 4
11:43:33 PAGE 53-4

EMS52,EMS117,EMS4S,EMSS7,0

EMSS52.EMS117.EMS44 . EMSS7.0

EMSS52.EMS117.EMS221.0

EMS106,EMS20.EMS115.EMS223,EMS72.0
EMSS2,EMS205.EMS222.EMS206.
0
EMS75,EMS150,EMS102,EMS115 EMS56,EMS73,0

EMS167,EMS?3.EMS102.0

EMS215,0
EMS217,EMS203,EMS216,0

EM35221.EMS20,0

4-APR-81

EHTI:
EWT2:

.WORD
-WORD

EH1,STSH1,STSH2,STSH4,0
STSH1,STSHZ,STSH4,0

EHT110:
EHT111:

.WORD
.WORD

EH110,0

WwWw

- 100770
100770

EHT114:
EHT223:
EHTZ256:

.WORD
.WORD
.WORD

EH114,0

NNN

WWW

100770
100770
100770

EHT336:
EHT337:
EHT344:

«WORD
.WORD

EH336,STSH1,STSH2,STSH4, 0
EH337,STSH1,STSH2,STSH4, 0
EH344 ,STSH1,STSH2,STSH4, 0

EHT353:

.WORD

EH353.0

b
b
b
b od

000000

EH111,0

EH223.STSH1,STSH2,STSH4, 0
EH256,STSH1,STSH2,STSH4, 0

100713

100770

888 88

TABLE

MESSAGE

N &
11:43:33 PAGE 54

MACRO v04.00

IST 2

CZRMNBO RMOS5/3/2 FCTNL ST 2

ERROR MESSAGE

1 071534

2 071544

TABLE

101154
101250

101240

&-APR-81

EDT1:
EDT2:

.WORD
.WORD

ED1,STSD1,STSD2,STSD4
STSD1,STSD2,STSD4

EDT110:
EDT111:

.WORD
.WORD

ED110
EDIN

EDT114:
EDT223:

.WORD
-WORD

ED114
ED223,STSD1,STSD2,STSD4

EDT336:
EDT337:
EDT344:

.WORD
.WORD
.WORD

ED336,STSD1,STSDZ,STSD4
ED337,STSD1,STSD2,STSD4
ED337,STSD1,STSD2,STSD4,0

EDT353:

.WORD

ED353

101250

101266

101250

101266

101250

101266

101250
101250

B 5
11:43:33 PAGE 55

MACRO v04.00

101266
101266

CZRMNBO RMOS/3/2 FCTNL

FRROR MESSAGE

TABLE

TST 2

MACRO v04.00

101357
101351

101351
101351

4-APR-B1

1 071624
% 071634

101333
101351

6 071642

101332

EFT110:

EFT111:

_WORD

.WORD

EF110

7 071646

101335

EFT114:

.WORD

EF114

EF114,STSF,STSF,STSF

EFT336:
EFT337:
EFT344:

.WORD
.WORD
.WORD

EF336,STSF,STSF,STSF
EF336,STSF,STSF,STSF
EF336,STSF,STSF,STSF

EFT353:

.WORD

EF114

2 071644

8 07165C

101333
101351

101351

11 071670
}% 071700

101340
101351
101340
10713517
101340 107351

101351
101351
101351

14 07171C¢

101335

9
10 071660

101335

EFTI]
EFT2

EFT223:

.WORD
.WORD

4
|
11:43:33 PAGE 56

EF111,STSF _STSF,STSF
STSF,STSF_STSF

EF111

SEQ 026/

CZRMNBO RMOS/3/2 FCINL TST 2

ERROR MESSAGE

STRINGS

MACRO v04.00

% 071712

127

122

4-APR-B1

D 5
11:43:33 PAGE 57

SEQ 0267

.SBTTL

ERROR MESSAGE

.ASCIZ QDEVICE WENT @
.ASCIZ - QUNAVAILABLE 'DVA'* (RMCS1, BIT 11) a
_ASCIZ
QNONEXISTENT “NED'' (RMCS2, BIT 12) @

117 EMS1:

STRINGS

_ASCIZ QWRONG UNIT SELECTED (RMCSZ2, BITS 0=2) a

4 071761
5 071776
6 072041

104
125
116

105
116
117

126
101
116

EMS2:
EMS3:
EMS4:

8 072134
9 072201

103
104

117
122

116
111

EMS6:
EMS7:

.ASCIZ
.ASCIZ

QCONTROLLER NOT READY (RMCS1, BIT 7) @
QDRIVE NOT READY 'DRY'' (RMDS, BIT 7) a

116

126

EMS11:

_ASCIZ

QINVALID @

EMS13:

_ASCIZ

7 072104

103

10 072246

107

12 072321

106

14 072373

103

072310

13 072362

15
16
17
18
19

072404
072426
072456
072516
072541

20 C72564
21 072600

115

117

125

115

040

116

L.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ

a@BUS PARITY ERROR @
@'MCPE'' (RMCS1, BIT 13) @
QTRANSFER ERROR (RMCS1, BIT
@SHOULD NOT BE SET a
QWORD COUNT (RMWC) @

042
104

117
123

EMS24:
EMS25:

.ASCIZ
.ASCIZ

Q''AOE'' (RMER1, BIT 09) a
a@DISK (RMDA) @

102
042

125
114

123
102

103
111
104
103

35 073244
36 073272
37 073321
38 073350

042
042
042
110

115
104
110
105

40 073466

042

51 074032
52 074061
53 074077
56 074125
55 074143
56 074211
57 074261

042

042
042

106

042
042
042
124
104
101
111
111
104
104

104
104
042
111
103
104
104

125

105
104

117
11

117
123
120
110
105

124
116
116
125
101

117
101
120
123
117
101
125

114
104
101
114

120

EMS14:

EMS22:
EMS23:
EMS26:
EMS27:
EMS30:
EMS31:

EMS32:

_ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

BIT 0)

@Q@FUNCTION CODE (RMCS1, BITS 1-5) @

EMS15:
EMS16:
EMS17:
EMS20:
EMS21:

127
122
115
104

073643
073665
073714
073771
074017

''GO’'' (RMCS1,

123
103
101
117
122

042
127
042
042

46
47
48
49
50

125
115
122
110
117

116

29 073012
30 073040
31 073111
32 073140

41 073515
42 073544
43 073573
44 073621
45 073631

.ASCIZ

@GO NOT RESET

COMPLETED,

102
042
124
123
127

117

103
101
123
042

39 073423

EMS12:

.ASCIZ

QCOMMAND NOT

123

101
111
131
104
124
127

33 073167
34 073215

EMS10:

.ASCIZ

101

22 072626
23 072655
24 072672
25 072713
26 072724
27 072734

28 072763

EMS5:

QMASSBUS a

QCONTROL @

14)

aBUS (RMBA) a
Q'LBT'' (RMDS, BIT 10) @

QCYLINDER (RMDC) a
QADDRESS @
QSTATUS @
Q'WLE'' (RMER1, BIT 11) a

@'UPE'' (RMCS2, BIT 13) @

EMS33: ° .ASCIZ
EMS34:
.ASCIZ
EMS35:
.ASCIZ
EMS36:
.ASCIZ

Q'WCF'' (RMER1, BIT 5) @
QWRITE CHECK ERROR-'WCE'' (RMCSZ2, BIT 14) @
Q@'MDPE'' (RMCSZ2, BIT 8) a
a@'DCK'' (RMER1, BIT 15) a

130
1264
103
107

EMS41:
EMS42:
EMS43:
EMS44:

@'MXF'' (RMCSZ2, BIT 9) @
@'DTE'' (RMER1, BIT 12) a
@'HCRC'' (RMER1, BIT 8) a
QHEADER COMPARE ERROR 'HCE'' (RMER1, BIT 7) a

101

EMS46:

103
116

122

120
113
111
105
124

040
103
126
122
124

105
124
107
040
115
124
122

EMS37:
EMS40:

.ASCIZ
.ASCIZ

EMS45:

.ASCIZ

EMS47:
EMS50:
EMS51:
EMS52:
EMS53:
EMS54:
EMS55:
EMS56:
EMS57:
EMS60:

EMS61:
EMS62:
EMS63:
EMS64:
EMS65:
EMS66:
EMS67:

_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
L.ASCIZ
L.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@' ECH'' (RMER1, BIT 6) @
Q@'DLT'' (RMCSZ2, BIT 15) a

@FORMAT ERROR ‘FER'' (RMER1, BIT 4) @
@''IAE'' (RMER1, BIT 10)

@'OPI'' (RMER1, BIT 13) a
Q''SKI'' (RMER2, BIT 14) a
Q'PIP'' (RMDS, BIT 13) a
QTHE RM a
QDETECTED @

@AT AN UNEXPECTED @
QINCORRECT DATA DURING a
@INVALID COMMAND ERROR '‘IVC'' (RMER2, BIT
@DURING DATA TRANSFER @
QDATA READ a

Q@DOES NOT COMPARE WITH a
QDATA WRITTEN a
'PAR'' (RMER1, BIT 3) a
@IS INCORRECT a
QCOMPOSITE ERROR '‘ERR'' (RMDS, BIT 14) a
Q@DATA PARITY ERROR 'DPE'' (RMERZ, BIT 3) a
QDURING SEEK COMMAND @

12)

“ZRMNBO RMOS5/3/2 FCINL

ERROR MESSAGE

58 074306
59 074320
60 074333

61 074343
62 074360

63 074377

STRINGS

11
105
m

104
104

114

TST 2
123
122
123

040
122
040

117

123

125
122

122
122

123

111
m

64 0746405
£5 074436
66 074464
67 074512

104
042
042
042

125
122
1M
111

074576
074625
72 074654

042
042
110

114
114

74
75
76
77

074722
074733
074775
075017

68
09
70
71

074540
074567

104
105

MACRO v04.00

015

012

81 075126

106

80 075076

82 075150
83 07517
84 075234
85 075271
86 075334
87 075366
88 075431
89 075474
90 075533
91 075571
92 075631
93 075655
94 075700
95 075742

124

117

110

101

111

EMS117:

105

EMS116:

_ASCIZ

(04

TRAP)

QNONEXISTENT DEVICE @
<CR><LF>

.ASCIZ

QTHE MASSBUS CONTROLLER a

_ASCIZ

QFAILED TO DETECT @

104

EMS140:

.ASCIZ

QMEDIUM OFF LINE @

104

122

EMS142:

.ASCIZ

042

125

108 076337

042

126

122

076474

.ASCIZ

EMS114:

TIMEOUT

QADDRESS a
QWHEN READING/WRITING RH REGISTERS a
@AT THE FOLLOWING @
QTHE SELECTED DEVICE IS @

105

103 076211

114

EMS115:

@BUS

115

104

076363
076405
076421
076441
076457

000

QHEADER ERRORS a

aNOT AN RM05/3/2 @
QCONTROL STATUS REGISTER 1, RMCS1, @
@BUS ADDRESS REGISTER, RMBA, a
QCONTROL STATUS REGISTER 2, RM(CS2, a
QERROR REGISTER 1, RMER1, @
QATTENTION SUMMARY REGISTER, RMAS, a
QMAINTENANCE REGISTER #1, RMMR #1, a
QECC POSITION REGISTER, RMEC1, @
AQECC PATTERN REGISTER, RMEC2, @
QMAINTENANCE REGISTER 2, RMMRZ2, @
@NOT INITIALIZED BY @
@UNIBUS INITIALIZE 3
QCONTROLLER CLEAR, I.E.
BIT 5 OF a
@RH/RM ERROR CLEAR (RMCS1, BIT 14) @

042

109
170
111
112
113

EMS113:

_ASCIZ
.ASCII
.ASCIZ
_ASCIZ

116

EMS111:
EMS112:

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
._ASCIZ
.ASCIZ

101 076153

076240
076257
076274
076313

.ASCIZ

EMS106:

EMS120:
EMS121:
EMS122:
EMS123:
EMS124:
EMS125:
EMS126:
EMS127:
EMS130:
EMS131:
EMS132:
EMS133:
EMS134:
EMS135:

042

104
105
106
107

EMS110:

126
116
123
116
122
124
111
103
103
111
124
111
116
057

99 076110

102 076201

QDURING SEARCH COMMAND a
QERROR a
@''LBC'' (RMER2, BIT 10) 3
@'LSC'’' (RMERZ2, BIT 11) a

QDURING PACK ACK COMMAND @
Q'RMR'' (RMER1, BIT 2) a
@''ILR'' (RMER1, BIT 1) @
Q@''iLF'' (RMER1, BIT 0) a

117
117
125
117
122
124
101
103
103
101
117
116
117
11¢

104
104

100 076136

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

EMS75:

QaDID NOT SET @
aDID NOT RESET a

116
103
102
103
105
101
115
105
105
115
116
125
103
122

96 076005
97 076032

98 076067

EMS102:
EMS103:
EMS104:
EMS105:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

79 075073

116

QLOST a

EMS76:
EMS77:
EMS100:
EMS101:

106
105
040
105

78 075047

.ASCIZ

122
115
114
114

104
110
124
110

SEQ 0264

QIS RESET a
QERRONEOUS a
QIS SET a

_ASCIZ
_ASCIZ

101
127
101
124

125

g
5
11:43:33 PAGE 57-1

.ASCIZ
_ASCIZ
.ASCIZ

EMS73:
EMS74:

105

102

EMS70:
EMS71:
EMS72:

104
106

102
123
101

73 074673

4-APR-81

125

123
117
040
042
120
116
117
116
122

122
122
115

111
111

117
111

EMS141:

126

EMS143:

116

123

110
106
126
117

117
106
117
115

101
117
106
117
124

EMS136: .ASCIZ
EMS137: .ASCIZ

126

103
124
106
124
103
120

.ASCIZ

Q@DRIVE CLEAR COMMAND a
@DRIVE STATUS REGISTER, RMDS a
@'MOL'' (RMDS, BIT 12) a
QDRIVE FAULT a

_ASCIZ

@'DVC'' (RMERZ2, BIT 7) @

EMS145:

_ASCIZ

@'UNS'' (RMER1, BIT 14) a

EMS152:

.ASCIZ

EMS144:

EMS146:
EMS147:
EMS150:
EMS151:

EMS153:
EMS154:
EMS155:
EMS156:
EMS157:

EMS140:

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

QUNSAFE @

Q@SHOULD BE SET @
Q0FFSET MODE @
@ VOLUME VALID @
Q@'OM'' (RMDS, BIT 0) @

a@'VV'' (RMDS, BIT 6) @

@PACK ACK COMMAND @
aNOT SET BY a
QOFFSET COMMAND @
@NOT RESET BY a
QRTC COMMAND &

QRIP

COMMAND @

CJRMNBO RMOS/3/2 FCTINL

FRROR MESSAGE

STRINGS

TST 2

MACRO v04.00

115 0765171

1127

106

117 076541

104

125

122

116 076541

4-APR-81

QOFFSET REGISTER (RMOF) a

EMS163:

.ASCIZ

@DURING RECALIBRATE a

.ASCiz

QRECALIBRATE COMMAND a

123
131
116

040
114
105

EMS164:
EMS165:

.ASCII
.ASCIZ
.ASCIZ

122 076707

042

101

1264

EMS167:

.ASCIZ

125 077016

116

EMS172:

.ASCIZ

123 076734
124 076763

126 07703¢
127 077053

127
105

105
110
122

117

103

105
122

116

Stu Oces

_ASCIZ

m
103
125

122

EMS161:

EMS162:

118 076565
119 076634
120 076646

121 076662

11:43:33 PAGE 57-2

EMS166:
EMS170:
EMS171:

.ASCIZ
.ASCIZ

: <UNUSED>

@IS INTERMITTENT OR DRIVE DIDNT DROP ON a
QCYLINDER a
QUNEXPECTED a

@Q'ATA'" (RMDS, BIT15) a

QWHEN READING REGISTER @
QERROR REGISTER #2, RMER2, @

QNONRECOVERABLE @

122
104

105
101

103
124

EMS173:
EMS174:

_ASCIZ
.ASCIZ

QRECOVERABLE a
QDATA a

129 077107

042

117

120

EMS176:

.ASCIZ

@'OPE'' (RMER2, BIT 13)

132 077175
133 077243

104
104

101
122

EMS201:
EMS202:

.ASCIZ
.ASCIZ

QDIAGNOSTIC MODE ‘DMD'' (RMMR1, BIT 0) a
@DURING DIAGNOSTIC MODE a

EMS203:

.ASCIZ

@QINCORRECT @

128 077061

130 077136
131 077160
134 077273

135
136
137
138
139
140
141

142
143
144
145
146
147
148

104

116
101

040
116

116

103

042
105
127
042
127
127

Q77472
077515
077533
077554
077604
077637
077657

127
123
120
104
114
123
102

1649 077727
'S0 077760
151 100035

122

m
103

077206
077334
077346
077373
077420
077431

077447

125

120

101
110
116

111
125

127
130
11
107
122
101

122

101
105
122
125
117
105
101

040
105
117

EMS175:

EMS177:
EMS200:

122
105
126
117
111
123

EMS204:
EMS205:
EMS206:
EMS207:
EMS210:
EMS211:

117

EMS212:

123
105
117
122
117
107
106

106
101
116

EMS213:
EMS214:
EMS215:
EMS216:
EMS217:
EMS220:
EMS221:

EMS222:
EMS223:
EMS224:

.ASCIZ

.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
_ASCIZ
.ASCIZ

QDURING WRITE COMMAND a
QIN WRITE PROTECT a
QCAN NOT SET @

@'WRL'' (RMDS, BIT 11) a
QEXECUTED a
awITH COMP ERROR SET @
@''GO'’ (RMCS1, BIT 0) a
QWRITING @
awAS RESET BY a
Q@PROGRAM INTERRUPT a

awWAS NOT GENERATED a
QSEEK COMMAND @
@PROGRAM TIMEOUT a
@DURING LOOK AHEAD TEST @
@LOOK AHEAD REGISTER,RMLA, a
QSEARCH COMMAND @
a@BAD SECTOR ERROR 'BSE'' (RMER2, BIT

15)

@A DATA TRANSFER COMMAND @
QHEADER COMPARE INHIBIT ‘WCI'* (RMOF, BIT 10)
ANONEXISTENT MEMORY 'NEM'' (RMCSZ2, BIT 11) a

~OO

NN
NN
N

< e e ke

by bt b

[ lalale]
[ TenNan Nanl

N
N

RECEVDa

RM(CS
3
SNGPRT
RECEVD
RECEVD
STATUS

DULPR1®
DATAQ
>
RGSTR&<CRLF
INDEXa

aGDADRS
aRM(CS2
)

GDDATA
STATUS

BDADRS

gRMER1

STATUS

@ RMCST
RM(CS2
@
RMASa

aRECEVD
@EXPCTD
QEXPCTD
aSTATUS

e bt e e

alalalale]

@EXPCTD

@BUSADRa
@ RMCS2

alalalalale]

STSH3:
STSH4:
.EVEN

11:43:33 PAGE

NN
N

>
&7
wmoumonm

wnnhn
%

STSHZ:

wwuununun

>>
>
>>>>

>>>>>

b o
il

STSH1:

EH353:

040
040
040
0490
040
040

100713
100760
100770
101035
101057
101115

EH344:

4-APR-81

>>>>D>>

21
22
23
26
25
26

—PNony
VNG

074

EH336:
EH337:

NNOUNOWN

58 100656

105

18 100637

122
137
105

OO
—OOW

15 100501
1€ 100541
17 100577

137
105

122

EH114:
EH223:
EH256:

VWO
O
ONW—

aid il

12 100403
32 100442

100344

107

130
124

10 100305

105
130

7 100231
g 100257

122
105
105
123

PNINVWNO
NOONW

5 100154
& 100203

-y

040

EHT:
EH110:
EHI1T:

oy o
KRR

2 100135

ol ol

130
125
122

—_—

105

102

MACRO v04.00

[
J—

1100107

¢ 100126

STRINGS

(N — o
O~NwW =~

ERROR MESSAGE

TST 2

OWWWN=—
WOO~NWVM

CIRMNBO RMOS/3/2 FOINL

QEXPTYD
TM "RETEVD

aEXPTTD~"RETEVD

FAILING
oty

BDDATA@

DATAQ<CRLF>
a<CRLF>

BIT"""ADRES3a

HEADER
WORD

FAIL INGA<CRLF>
BITa@<(RLF>

RMDS

RMERT

RMERZa

RMD(Ca

NUMBER
POSITON@
RECEVDA<CRLF>
@EXPCTD
@<CRLF> RMLA
RMLA
RMOF @

@ RMW(C

RMECT

@ RMDA

@ RMMR1

RMBA

RMDA

RMOF

RMD
C

RMOF
RMDT

RMLAQ
RMSNa

RMECZ2d

RMMRZ2

MACRO v04.00

000000

001364

001176

101214

001134

101226

01250

001176

162

001140

000000

156

STRINGS

TST

001142

NN
NN 2O 000 YNNI
-

ol
D otk

$/3/2 ECINL

166

001276

001174

(00000

124

101206

012640

01266
1302

306

320

&D1:

4-APR-B1

.WORD

11:43:33 PAGE

$GDDAT,$BDDAT,0

ED110:

.WORD

$BASE,0.

001200

ED114:

.WORD

RMDTI,$TMP1,$TMP2,0

001140

001136

ED336:

.WORD

$GDADR,$GDDAT,$BDADR,$BDDAT,0

001140

001142

001174

001444

ED337:

ED353:

.WORD

$GODAT,$BDDAT,$TMPO,$TMP1,0

$GDDAT,$8DDAT,RMOFO,0

001336

001346

001350

STSD1:

.WORD

RMCSTI,RMCS2],RMDSI,RMER1],RMER2I,RMAS],0

001372

001370

STSD3:

.WORD

RMDAI,RMDCI,RMOFI,RMLAI,Q

001140

001142

001340
001404

001342
000000

001362

001376

001344

001174

001344

001364

ED111:
ED2?23:

STSD2:
STSD4:

.WORD
.WORD

.WORD
.WORD
.WORD

$TMPO,$TMP1,0

$GDDAT,$BDDAT,$TMPO,0

RMWCI,RMBAI,RMDAI,RMOF
I ,RMDCI,RMEC1]
RMEC2I,0
RMMRTI,RMMRZ2I,RMDTI,RMSN],0

IRMNS0 RMOS/372 FCINL

FRROR MESSAGE

11013

¢ 10133
2 101335

STRINGS

000

000
000

TST 2

000
000

MACRO v04.00
EF110:

000

EF111:
EF114:

4&-APR-81

.BYTE

.BYIE
.BYTE

0.0
0.0.0

4 101340
2 101344

000
000

000
ooc

000
000

EF336:
EF337:

.BYTE
.BYTE

0,0.0,0
0,0,0,0.0

7 101351

000

STSF:

.BYTE

0,0,0,0,0,0,0

.EVEN

11:43:33 PAGE 60

CZRMNBO RMOS5/3/72 FCINL
STRINGS

MACRO v04.00

4-APR-81

BUFFER:
BUFONE:
BUFTWO:

101360

102364

000000

MFGFIL:

101360

101361

101362
101400
1416
450
470
512
540
e 4
P

NNOW

1
1
1

;

]

1713
101747
102004
102044
102077
102136
102174

102227

102275
102341
102401
102440
102502
102527
102553
102601

102643
102706
102707
102743
102777
103014
103051
103075
103120
103155
1037164

HELP:

123
055
011
011
011
011
011
011
011
060
061
062

124
124
124
124
124
124
124
124
124
124

061

064

124
124
124

124
200
117

055
123
055
040
040
040
040

:2 HEADER WORDS

"WORD

STERMINATOR IF FILE

256,

:256. WORDS OF DATA

IS FULL

256.

:256. WORDS OF DATA

-1

*TERMINATOR IF

FILE

IS FULL

.=BUFFER

055
061
062
063
064
065
066
067
061
061
061

124
124
124
124
124
124
124
124
124
124

0,0

BLKW

‘WORD

055
124

.WORD

.BLkw

177777

200
200

258.
258.

:STORAGE FOR USERS 16 BIT MODE BAD SECTOR FILE
USRFIL: .WORD
0,0
:2 HEADER WORDS

000000

101360
101360

.BLKW
.BLKW

; STORAGE FOR MANUFACTURES 16 BIT MODE BAD SECTOR FILE

000000

177777
104376
104402
105402

J
5
11:43:33 PAGE 61

;STORAGE FOR GENERAL DATA TRANSFERRS

101360

lelolelololelelsle]

OOV

NP N

et
Y S

NN = OO

YO NI NN -

ERROR MESSAGE

TST 2

111

061
061
061
062
062

062

062
062
062
062
063
063
120

055

127

055

040
040
040
040
040

LASCI1
JASCIT
.ASCII
.ASCI]

<CRLF>
<CRLF>
QLIST OF TESTSa<CRLF>
@==—~c—=eceme= a<CRLF>

105
055

.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI]
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI]
.ASCII
.ASCII
.ASCII
.ASCI1
.ASCII
.ASCI]
.ASCII
.ASCIl
.ASCII
.ASCI]
.ASCII
JASCII
.ASCII
.ASCI]

ar1
CONTROLLER ACCESS TEST@<CRLF>
ar2
FORMAT ZEROS@<CRLF>
ar3
ZERO FILL TEST@<CRLF>
aTé
FORMAT CHECK ZEROS@<CRLF>
ars
FORMAT CHECK ZEROS W/ WCE ERROR®<CRLF>
arTé
FORMAT ONES@<CRLF>
ar7
FORMAT CHECK ONES@<CRLF>
@T10
FORMAT CHECK ONES W/ WCE ERRORS®<CRLF>
ar11
FORMAT MULTIPLE SECTORS@<CRLF>
@T12
FORMAT W/ HEAD SWITCHING@<CRLF>
@T13
FORMAT W/ MID TRANSFER SEEK@<CRLF>
@T14
FORMAT W/ IMPLIED SEEK@<CRLF>
@T15
FORMAT EACH SECTOR ADDRESS@<CRLF>
@r16
FORMAT EACH TRACK ADDRESS@<CRLF>
@T17
FORMAT PRIME CYLINDERS@<CRLF>
@r20
READ HEADER & DATA IN LAST SECTORa<CRLF>
ar21
READ HEADER & DATA W/ AOE ERROR@<CRLF>
@T22
READ INVALID SECTOR ADDRESS@<CRLF>
@723
READ INVALID TRACK ADDRESS@<CRLF>
@724
READ INVALID CYLINDER ADDRESS@<CRLF>
@T25
FORMAT AT OFFSETa<CRLF>
@r26
IVC FORMAT TEST@<CRLF>
@727
FORMAT ERROR TEST@<CRLF>
@T30
FORMAT HCE, FIRST HEADER WORD®<CRLF>
ar31
FORMAT HCE. SECOND HEADER WORD@<CRLF>
<CRLF>
@OPERATIONAL SWITCH SETTINGS@<CRLF>
@======escccccceccceccncacs a<CRLF>

055
061
061
061
061
061

.ASCI]
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII

@--=-=@
15
a
14
a
13
a
12
a
11

063
065
066
067
060
061
062
063
064
065
066
067
060
061

111

.ASCII

@SWITCH

USE@<CRLF>

st
-8<CRLF>
HALT ON ERROR@<CRLF
LOOP ON TEST@<CRLF>
INHIBIT ERROR TYPEOQUTS@<CRLF>
@<CRLF>
INHIBIT ITERATIONS@<CRLF>

(ZRMNBC RMOS/3/2 FCTINL TST 2
ERROR MESSAGE STRINGS

MACRO v04.00

58 103215
59 103241
60 103265

040
040
040

061
040
040

62 103340

040

040
040
040
040

61 103324

63 103353
64 103366

65
66
€7
68
70

103401
103413
103425
103437

040

040
040

040
040
040
040
000200

040

040
040

4-APR-B1

K
5
11:43:33 PAGE 61-1

.ASCII
.ASCII
.ASCIl]

&
@
@

10
9
8

BELL ON ERROR®<(RLF>
LOOP ON ERROR@<CRLF
>
LOOP ON TEST IN SWR<7:0>a<(RLF>

.ASCII

TNG4A<CRLF>

.ASCII
.ASCII
.ASCII
.ASCIZ

@
&
@
@

3
2
1
O

.END

200

040

.ASCII

040
040

L.ASCII
.ASCII

a
@
@

5
&

TN128a<CRLF>

TN32a<(CRLF>
TN16@<CRLF>
TN8a<CRLF
>
TN4Q<CRLF>
TN2Q<CRLF>
TN1Q<CRLF>

BITO2
BITO3
BIT04
BITOS
BITO6
BITO7

BITO9
BIT1
BIT10

BITO8

L
L

BIT12
BIT13
BIT14
BIT15
BIT2
BIT3
BIT4
BITS
BIT6
BIT7
BIT8
BITY

BIT11

BLNKS1

BLNKS?2
BLNKS3
BLNKS4
BOTADR
ATA
ATESTN=

BOTFLG
BPTVEC=
BSE
= 100000
101360
BUFFER

000015
000200
001326
001777

100000
040000
002000
100000
177570

020000
043672
001156
000174
100000

000001
000010

Hwhnn

—

]

101360
102364
004000
CH
002000
CHGADR
001330
CHRCNT
061027
(KSWR = 104410
CLKADR
001520
001522
CLKVCT
= 002040
(LR
CLRSTS
045462
CMNSTA
007476
CMPBUF
035342
CMPERR 043460
CNSLO1
064025
CNSLO?2
064035
CNSLO3 064077
CNSLO4 064106
CNSLO7 064142
CNSLO8 064304
CNSLO9 064305
CNTCLR
045344
COMMA
063445
000100
CONT
CPSAVE
060150

BUF ONE
BUF TWOD
49

CR
CRLF
CTLFG
CYLMSK=
DBCK
DBEN
DBL
DCK
DDISP
DEBL
DEVSEL
DISPLA
DISPRE
DLT
DMD
DPE
DPEHI
DPELO
DPR
DRIVES
DRQ
DRVCLR=
DRVSTS
DRY
DSWR
DTASTS
DTE
DTO
DULPRT
DVA
DvC
EARLY

11:43:33 PAGE 61-2

020000

EH344
EH353
EMST
EMS10
EMS100
EMS101
EMS102
EMS103
EMS104
EMS105
EMS106
EMS11
EMS110
EMS111
EMS112
EMS113
EMS114
EMS115
EMS116
EMS117
EMS12
EMS120
EMS121
EMS122
EMS123
EMS124
EMS125
EMS126
EMS127
EMS13
EMS130
EMS131
EMS132
EMS133
EMS134
EMS135
EMS136
EMS137

071712
072246
074464
074512
074540
074567
074576
074625
074654
072310
074673
074722
074733
075017
075047
075073
075076
075126
072321
075150
075171
075234
075271
075334
075366
075431
075474
072362
075533
075571

EMS14
EMS140
EMS141

EMS142
EMS143
EMS144
EMS145

EMS145
EMS147
EMS15
EMS150

010000
010000
024024
004000
000200
065212

100501
100637

EMS151
EMS152
EMS153
EMS154
EMS155
EMS156
EMS157
EMS16

AENV

AENVM
AFATAL

BB0Y
BITO
BITO0
BITO1

ADEVCT
ADEVM
AR

1 T

TO T 1

ADDW13=
ADDW14=
ADDW15
ADDW?2
ADDW3

4-APR-81

l=l=] il i i e ol il el ol
NO [slelelelelelols)
-0 ek b emd e e e
oo
non)
»HO

-—

n—
nuwnunnnu

ADDW10=
ADDW11=
ADDW12=

ADDW1

LU L

ADDWO

046342

)

000000
000000

Geeins

= 000377
064666

176700

ABASE

ACDW1
ACDW2
ACKSTS
ACPUOP

TABLE

>
<

SYMBOL

MACRO v04.00

CZRMNBO RMOS/372 FCTINL TST 2

075631
075655
075700
075742
076005
076032
072373
076067
076110
076136
076153
076201
076211
076240
076257
072404
076274
076313
076337
076363
076405
076421
076441
076457
072426

CZRMNBO RMOS/3/72 FCTINL

SYMBOL

TABLE

EMS160
EMS161
EMS162
EMS163

076474
076511
076541
076541
076565
076646
076662
076707
072456
076734
076763
077016
077036
077053
077061
077107
077136
071761
072516
077160
077175
077243
077273
077306
077334
077346
077373
072541
077420

EMS164

EMS165
EMS166
EMS167
EMS17
EMS170
EMS171
EMS172
EMS173
EMS174
EMS175
EMS176
EMS177
EMS2
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
EMS 34
EMS35
EMS 36
EMS37
EMS4

077431

077447
077472
077515

077533
077554
077604
072564
077637
077657
077727
077760
100035

072600

072626
072655
072672
072713
071776
072724
072734
072763
073012
073040
073111
073140
073167
072041

TST 2

MACRO v04.00

EMS40
EMS41
EMS42

073215
073244
073272
073321
073350
073423
073466
073515

EMS43

EMS44
EMS4S
EMS46
EMS47

EMSS5
EMS50
EMS51
EMS52
EMS53
EMS54
EMS55
EMS56
EMSS7
EMS6

M5
11:43:33 PAGE 61-3

SEQ 0277

072104

073544

073573
0735621

073631
073643
073665
073714
073771

072134
074017
074032
074061
EMS63
074077
EMS64
074125
EMS65
074143
EMS66
074211
EMS67
074261
EMS7
072201
EMS70
074306
EMS71
074320
EMS72
074333
EMS73
074343
EMS74
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
EMT112 066546
EMT113 066554
EMT114
066570
EMT115 066576
EMT116 066606
EMT117 066616
EMT12
065404
EMT120 066626
EMS60
EMS61
EMS62

4-APR-81

EMT12]
EMT122

066636

EMT123
EMT124

EMT125

EMT126
EMT127
EMT13
EMT130
EMT131
EMT132
EMT133
EMT134
EMT135
EMT136
EMT137
EMT14
EMT140
EMT141
EMT142
EMT143
EMT144
EMT145
EMT146
EMT147
EMT15
EMT150
EMT151
EMT152
EMT153
EMT154
EMT155
EMT156
EMT157
EMT16
EMT160
EMT161
EMT162
EMT163
EMT164
EMT165
EMT166
EMT167
EMT17

EMT170
EMT171
EMT172
EMT173

EMT174
EMT175
EMT176
EMT177
EMT2
EMT20
EMT200
EMT201
EMT202

EMT203
EMT204
EMT205
EMT206
EMT207
EMT21
EMT210
EMT211
EMT212
EMT213
EMT214
EMT215
EMT216
EMT217
EMT22
EMT220
EMT221
EMT222
EMT223
EMT224
EMT225
EMT226

EMT227
EMT23
EMT230
EMT231
EMT232
EMT233
EMT234
EMT235
EMT236
EMT237
EMT24
EMT240
EMT241
EMT242
EMT243
EMT 244
EMT245
EMT246

065450
067372
067404
067414
067424
067434
067446
067454
067462
065330
065460
067464
067476
067510

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
070022
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
EMT30
EMT300
EMT301
EMT302
EMT303
EMT304
EMT305
EMT 306
EMT307
EMT31
EMT310
EMT311
EMT312
EMT313
EMT314
EMT315
EMT316
EMT317
EMT32
EMT320
EMT321
EMT322
EMT323
EMT324
EMT325

EMT326
EMT327

EMT33
EMT330
EMT331
EMT 332
EM1333
EMT334
EMT335
EMT336
EMT337
EMT 34
EMT340
EMT341
EMT342
EMT343
EMT 344
EMT 345
EMT 346
EMT347

070274
070306

065550
070324
070340
070356
070374
070412
070430
070442
070456
065336

065560
070474
070514
070536
070550
070562

070574
070606
070616
065570
070636
070650
070662
070674
070714
070726
070740
070752
065600
070762
070772
071002
071010
071020
071032
071044
071062
065610
071074
071104
071116
071130
71146
071164
071204
071214
065620
071224
071236
071244

071256
071270
071302
071312
071326

(ZRMNBO RMOS5/3/2 FCTNL

SYMBOL

TABLE

TST 2

EMT3S
EMT350
EMT351
EMT352
EMT353
EMT354
EMT36
EMT37

065630
071340
071356
071366
071372
071402
065640
065650

ESRC
= 004000
FER
= 000020
FIND = 000001
FMT16 = 010000
FNCDTB 064566
FNCMSK= 000077
FO
= 000002
F1
= 000004

EMT4

065344

EMT47

MACRO V04.00

N 5
11:43:33 PAGE 61-4

4-APR-81

ILRG76=
IOTVEC=
12Ck0 =
IPCK1 =
IPCK2 =
IPCK3 =
IR
=
IvC
=

000076
000020
000001
000002
000004
000010
000100
010000

PACACK=
PAKACK=
PAR
=
PAT
=
PDA
=
PFECH
PFECH1
PFECHZ

000022
000022
000010
000020
000400
061072
061102
061170

RMBAI
001342
RMBAO
001416
RMCS1 = 000000
RMCS1I
001336
RMCS10 001412
RMCS2 = 000010
RMCS2]1
001346
RMCS20 001422

LBT
LF
LODEV
LS
LSC
LST
LSTRK

= 002000
= 000012
064426
= 000004
= 004000
= 000002
001334

PFECH4
PGE
=
PGM
=
PHA
=
PIP
=
PIRQ =
PIRQVE=

061214
002000
001000
000200
020000
177772
000240

RMCS31
001410
RMCS30 001464
RMDA = 000006
RMDAI
001344
RMDAO
001420
RMDB = 000022
RMDBI
001360

MCPE

= 020000

PRIERR

= 000010

065750

= 000001

065756
065766
066000
066016
066034
066044
066056
066074

HCE
=
HCI
=
HCRC =
HELP
HT
=
IAE
=
IBSAVE
IDXMSK=

000200
002000
000400
101360
000011
002000
060152
000077

MDF
=
MDPE
=
MEDENB
MFGFIL
Ml
=
MIXED
MOC
=
MOH
=

000100
000400
001512
103370
000004
064676
000400
020000

066104
066122
066142
066156
066160
066200
066220
066232

ILF
ILFO2
ILF24
ILF26
ILF30
ILF32
ILF34
ILF36

=
=
=
=
=
=
=
=

000001
000002
000024
000026
000030
000032
000034
000036

MRD
=
MS
=
MSC
=
MSDRVS
MSE
=
MSER =
MSGDRV
MSHELP

002000
000040
000002
064326
100000
000200
064342
063450

EMT70
EMT71
EMT72
EMT73
EMT74
EMT75
EMT76
EMT77
ENRGDT
EQUALS
ERR
=
ERRNMB
ERROR =

066244
066254
066264
066302
066320
(066330
066350
066360
065324
063432
040000
061022
104000

ILF42 =
ILF44 =
ILF46 =
ILF54 =
ILF56 =
ILF64 =
ILF66 =
ILF74 =
ILF76 =
ILR
=
ILRG50=
ILRG52=
ILRG54=

000042
000044
000046
000054
000056
000064
000066
000074
000076
000002
000050
000052
000054

ERTYO1
ERTYO2
ERTYO3
ERTY04
ERTYCS

061035
061045
061054
061062
061065

ILRG64=
ILRG66=
ILRG70=
ILRG72=
ILRG74=

000064
000066
000070
000072
000074

EMT40
EMT4T1
EMT42
EMT43
EMT44
EMT4S
EMT46

EMTS

EMT50
EMT51
EMT52
EMT53
EMT54
EMTS55
EMT56
EMTS7

065660
065666
065676
065710
065720
065730
065740

065352

EMT6

065360

EMT7

065366

EMT60
EMT61
EMT62
EMT63
EMT64
EMT65
EMT66
EMT67

F3
=
k&
=
GENBUF
GET
GETBUF
GETINX
GETSTS

ERRTYP 060154
ERRVEC= 000004
ERTYOO0 061030

000020
000040
035104
035770
001336
001524
035704

GTSWR = 104407

= 000100

ILF40 = 000040

ILRG56= 000056
ILRG60= (G00060
ILRG62= 000062

SEQG 0273

LBC

MCLK

= 002000

= 004000

MoL

= 010000

MUR

= 001000

PFECH3

061206

PLFS

= 002000

PRO
PR1
PRZ2
PR3
PR4
PR5
PR6é
PR7

=
=
=
=
=
=
=
=

036766

000000
000040
000100
000140
000200
000240
000300
000340

= 177776

PSEL
=
PSW
=
PUT
PUTBUF
PUTINX
PWRVEC=
QUES
RCLSTS

002000
177776
036240
001412
001553
000024
063441
047136

MWD
= 000010
MWwP
= 000010
MXF
= 001000
N
064554
NDTMSK= 115760
NED
= 010000
NEM
= 004000
NONE
064547
NOP
= 000000
NOTAVL 064460
NOTPRS 064443
NOTRM
064405
NSA
= 100000

RDCHR =
RDLIN =
RDOCT =
RDY
=
READY
RECAL =
RESREG=
RESVEC=
REX
=
RG
=
RGDTPT
RH
=
RIP
=

OPE
GPI
OR

RMASO
RMBA =
RMBAE =
RMBAEI
RMBAEO

ocC
=
OFD
=
OFFSET=
oM
=
ONES

100000
000200
000014
000001
064736

= 020000
= 020000
= 000200

RMCS3 = 000052

RMDBO

RMDC

001434

= 000034

RMDCI
001372
RMDCO
001446
RMDS = 000012
RMDSI
001350
RMDSO
001424
RMDT = 000026
RMDTI
001364
RMDTO
001440

RMECT = 000044
RMECTI
RMEC10
RMEC2 =
RMEC2I
RMEC20
RMERT =
RMER1I
RMER1O

001402
001456
000046
001404
001460
000014
001352
001426

104411
104412
104413
000200
007670
000006
104415
000010
010000
040000
064676
000072
000020

RMERZ2I
RMER20
RMHR =
RMHRI
RMHRO
RMLA =
RMLAI
RMLAO
RMMR1 =
RMMR1I
RMMR10
RMMRZ =
RMMR2I

001400
001454
000036
001374
001450
000020
001356
001432
000024
001362
001436
000040
001376

001430
000004
000050
001406
001462

RMOFO
001444
RMR
= 000004
RMSN = 000030
RMSNI
001366
RMSNO
001442

= 000070

RLEASE= 000012
RMAS
= 000016
RMASI
001354

RMERZ
= 000042

RMMR20 001452
RMOF
= 000032
RMOFI
001370

SEKSTS
SHUT
SHUT2

044104
032142
062470

SIZCLK 036460
Skl
= 040000
SNGPRT= 020024

STACK = 001100

STANDA
START
START1

007020
005432
005422

STCDRV

055102

START2

STKLMT=
STOP
STSD1
STSD2
STSD3
STSD4
STSF
STSH1
STSH2

STSH3

STSH&
SWR
SWREG
SW0
=
SW00 =
SW01
=

SW02
SW03

=
=

005436

177774
057532

101250

101266
101306
101320
101351
100713
100770
101057
101115
001154
000176
000001
000001
000002
000004
000010

SW1é
Sw15

Sw3

TST4

TSTS

1ST6

1817

104406
104405
104401
106402
104404
104403

UNS
040000
UNTMSK= 000007
UNTOFF
064477
UNTON
064510
UPE
020000
040000
USE
104376
USRF IL
uo
000001
ul
000002
ul
0000

SYSTAT

TADMSK
=
TAG

TAGADR=

TAP

TA1
TA16
TA2
TA4
TA8

v
W(
wCD
WCE
WCEHI

TBITVE=
TIMOUT
TKVEC
TPVEC
TRAPVE
TRE

TRTVEC
TST
TSTNMB
TSTPRP
TSTQUE
TST1
TST10
TST11
TST12
TST13
TST14
TST1S
TST16
TST17
TST2
T1ST20
TST21
1ST22
TST23
TST24

18127
7ST3
TST20
T1ST3

TYPBN
TYPDS
TYPE
TYPOC
TYPON
TYPOS

Sw¢

SWé
SWS
Swé
SW7
Sw8
SW9

025204
026116
026740
011130
027522
030672
011764
012554
013514
014334

WCELO
WCF
WCH
WD
WH

WLE

010000
061020
032176
001466
010066
015124
016062
016656
017470
020302
021124
021666
022430
010266
023172
023476
024002
024344
024666

WRL

XSI1Z
XXDP
Y

ZEROS
SAPTHD
SATY(
SATY1

SATY3

SATYS
SAUTOB
$BASE

$BDADR
$BDDAT
SBELL
$BIN
$CDW1

$CDW
$CHARC
$CF SWR

000100
000040
000050
040000
010000
004000
000040
000052
000060
000062
004000
004000
006464

001332
064556
065000
001100

063124
063100
063106
063116

001150
001276
001136
001142
001212
055754
001302

001304

056760

061530

$CMTAG

$CM3

$CMs
S$CNTLC
$CNTLG
SCNTLUY
$CPUOP

T 1
T I T
T O T

Sw12
Sw13

1ST125

15126

nnnnmuwnuwuwnnnn

SEEK

SW1
SW10
SW11

000020
000040
000100
000200
000400
001000
000002
002000
004000

R6
=%000006
R7
=%000007
SADMSK= 000377
SAVREG= 104414
= 000001
SAT
5A16
000620
SA2
= 20002
AL
= 00904
SAE
= 0C)010
SC__
= 100000
SCOPE = 000004
SCTMSG 063346
SCTMSK= 003700
$C0
= 000100
SE1
= 000200
$€2
= 000400
S¢3
= 001000
SC4
= 002000
SEARCH=
30
SECERR 037620

T 1

MWCO
001414
ROA
= 100000
ROB
= 040000
RTC
= 000016

Sw04
SW05S
SW06
Sw07
Sw08
Sw09

.
|
'

001340

= 000002

RMJC1

B 6
11:43:33 PAGE 61-S

4-APR-B1

SEQ 0274

L L T

RMWC

TABLE

L L

SYMBOL

MACRO V04.00

TST 2

nunnwnnn

(ZRMNBO RMOS/372 FCTINL

$CRLF
$DBLK
$0DWO
$DDW1
$DDW.
$DDW
$DDW4
$DDWS
$DDWE
$DDW7
S$DEVCT
$DEVM
$DOAGN
$DTBL
$ENDAD
SENDCT
SENULL
SENV
SENVM
$EOP
$EOPCT

$EOSP
SERFLG

SERMAX
$ERROR
$ERRPC

$ERRTB
$ERTTL

$ESCAP |
SETABL
SETEND
SFATAL
$FFLG
SFILLC
$FILLS
$GDADR
$GDDAT

$GET4?2

$GTSWR
$GT42P
$HD
= 000000
$HIBTS
$HIOCT
$ICNT
$ILLUP
$INTAG
$ITEMB
SLF
$LFLG
$LPADR
001122

SLPERR
$MADR1

001124
001254

SMADR3
$MADRSG
SMAIL
SMAMS1

001264
001270
001222
001252

$MADRZ

SMAMS?

001260

001256

$SMAMS3 001262
$MAMSS
001266
$MBADR 001102
SMFLG
063342
SMNEW
062456
$MSGAD
001236
$MSGLG 001240
$MSGTY
001222
SMSWR
062445
$SMTYP1
001253
$MTYP2 001257
SMTYP3 001263
MTYPS 001267
SMXCNT
057446

SNULL

001i70

SNWTST=
SOCNT
SOMODE
SOVER
$PASS
$PASTM
$POWER
SPWRDN
SPWRMG

000001
056424
056426
057432
001230
001106
063070
062722
063056

$QUES
SRDCHR
SRDLIN
SRDOCT
$RDSZ =
SRESRE
$RMO2
$RMO3
$RMOS
SRTNAD
$SAVRE
$SAVR6
$SCOPE
$SETUP=
$STUP =

001216
062072
062162
062512
000010
055644
064366
064373
064400
032134
055606
063066
056764
000137
177777

$SPWRUP

062774

$SVLAD

057376

$SWOBT
S$TESTN

000000
057450
001226

$SVPC = 000210
$SWR = 167400
$SWREG 001244

$TIMES
$TKB

001206
001162

|
.

TST 2

MACRD Vv04.00

$TKCNT
STKINT
$TKQEN=
$TkQIN
$TKOOU

061220
061230
061227
061222
061224

$TMP1
$TMP2
$TMP3
$TMPL
$TN
=

001176
001200

$TRAF2
062654
$TRP
= 000016

STYPEC
STYPEX

056642
056762

SVECTZ2
001274
$XOFF = 000023

001204
000032

$TSTM
$TSTNM

001104
001116

$TYPON
$TYPOS

056242
056202

$XTSTR
057006
$$GE T4= 000000

$TKS

001160

$TPFLG

001173

$TYPBN

055702

001174

S$STRAP

$TKQSR
$TKSRV

$TMPC

. ABS.

061226

$TP8

061300

$TPS

105404

000000

ERRORS DETECTED:

4-APR-B1

C
6
11:43:33 PAGE 61-6

CZRMNBO RMOS/3/72 FCTNL
SYMBOL TABLE

001202

001166
001164
062614

000

001

VIRTUAL MEMORY USED:
61696 WORDS
( 241 PAGES)
DYNAMIC MEMORY AVAILABLE FOR
70 PAGES
CZRMNB.BIC,(ZRMNB/(=CZRMNB.DOC
,CZRMNB, SYSMA(/M

$TRPAD

STTYIN
$TYPDS
$TYPE

062666

062416
(55756
056430

$TYPOC

SUNIT

SUNITM
SUSWR

SVECTT

560 0275

056226

001234

001110

001246
001272

$XON

= 000021

$$5w08= 000032

$OFILL
.$x

056425

= 001100

$OF ILL

$40CAT
$APTHD
SASTAT
$ATY]

$ATY3

$ATYS
SATY(C
$AUTOB
$BASE

$BDADR
$BDDAT

42-1
5-8
48-2
LB8=28

L2-14

W2-14

40=1+

45-1
11-33
13-:47
20~-36
13-431=
13-438*

24=50*
25-67
25-171x%
25-285*
25-418x%
26-120%
29-99*
31=44x
31-126*
33-103*
34-28«
34-103«
35-240~*
35-483«

$8°LL
$8IN

$COW1
$CDW2
$CHARC
$CKSWR
$CM3
$CM4
$CMTAG
$CNTLC
SCNTLG
SCNTLU
$CPUOP
$CRLF

$OBLK
$0DW0
$0DW1
$0DWS

59-11
43-1
38-1x%
41-1»
47-1

45-1

11-42+
13-:47

21-30

13-441
13-445

24-53
25-85+
25-183+
25-314x

25-432%
26=-121%
29-100%
31-53x
31-127»

33-120+
34,-29%
35-31
35-256%
35-496+

43-1
38-1+

o8 2

13=742%
13-736%
24=71x
25-86*
25-184*

13-1
13-=13

28-23

13=743«
13-750%

25-315+
25-433«
26122
29-106
31-61
31-129
33-134»
34-31
35=47%
35-270*
35-517*

24=77*
25-87
25-200*
25-329%
25=455%
26-137x
29-117
3171«
32-27*
33-159~
34=41*
35-67*
35-288+
35-534«

45-1

42-1

42-1
42-1
42-1
Le=14
42-1#

42-1

42-1
42-1
42-1
42-1
42-14
L2-1#
40-1%

SEQ 0276

Pl o o

L2-1#
42-14
40-1

42-1
42-1

)

D
6
11:43:33 PAGE S~1

42-1
42-1
42+

14=204

42~
42-1

v01-05

el
vl sl i snid

16=20
£2-1

(CREF

4-APR-81

OSSN

$$GE T4
$85408

TABLE

MACRO Vv04.00

PR
L

(ROSS REFERENCE

TST 2

i
— AN
—

CZRMNBO RMOS/3/2 FCTNL

13-134

13=>41
44=25
18=84+
13-B03*
24=110*
25-108«

10-23

42-1
42-1
42=1

42-1
42-1

42-1n
L2=1#

42=-1a

L2-1n

13-546

12-639
13-A46

13-763
13-B44

13-D35+

34=70*
35-163+
35-382+
36-98«

31-103+
32-113+
33254~
34-72
35-189+
35-395+
36-112+

13-D48+
25=53»
25=156*
25=257«
25-388+
26-34%
29-66*
29-212+
31-104*
33-35%
33-270*
34-81+
35-190*
35-417%
59-1

13-E81+
25<54+
25-157+
25-271»
25-402+«
26-92«
29-67+
31-31»
31-106
33-4O9»
34-16*
34-82+
35-191
35-442~
59-6

6-0

6-0#

6&~0#

6-0#

12-68
44-154

14-20
45-1

13-232
13->85

13-450
13-290

13-p22+
25=40*
25-141»
25=242+*
25-362*
25-493=
27-53%
29-183+
31-94=
32-99=
33-240%

25=226*
25344
25-470x
26=150*
29-143*
31-81»
32-57*
33-189«
34=57«
35-116~
35-313«
36=46%

13-a39

25-41+
25-142
25-256+
25-387+
26~10+
29-37+
29-196*

42-1

L2-14

42-1

L2-1»

41-1%

6-0
45-1

42=1

42-1
42-1
Lo-1a
42-14

10-23

11-28
44-104

11-100
44-126

45-14

10-80
43-1
39-14

12-25
44-134

41-1

45-1

41-1
45-1

CZRMNBO RMOS/3/2 FCTNL

|
'
|
|

CROSS

REFERENCE

$0DW3
$0DW4
$0DWS
$0DW6

6~0n
6~0#
6~0#
6=-0n

$DDW7
SDEVCT
SDEVM
SDOAGN
$DTBL

$ENDAD
SENDCT
SENULL

6=0n
6=0#
6=0#
14-20
39-1

5=5
10-23
14-20#

TABLE

TST 2

(CREF

MACRO v04.00
v01-05 )

10-67+
14-20

10-117+

10-28
14-20#

43-1

39-14

10-28
10-23
14=20#
14-20

4-APR-81

10-121«

E
6
11:43 :33 PAGE S=¢

SEQ 0277

11-63*

11=70%

11=97+

11-98

12=4

42-1
421

42-1
42=1+

42=1%

43=1

43-1

43-1+

43-1x

43-1»

44-54

43-1
43-1

43-1+
43-1

18-83~
13-445
13-D36+
24=90*

59-8
13-734
13-D37*

13-735+
13=D49*
2492«

13-751+
13-D50%
24-108«
25-106+
26=26*
26=149+

13-752+
13-E82*

12-38

13=28+

13-758
13-E83+

13-804+
18-81»

14=28+

41-

42-1
10-23~
43-14
431
44-72
14-20

10-23+

6-0#

SFILLC
$FILLS
$GDADR
$GODAT

604
6-0#
6-0#
6-0#

4B8-2+
48-2#
47-1
41-1
13-429+
13-421+
13-C22+

24-69*
25=55+
25-155~
26=117*

25-84+
26=23+
26136+
29129+
31-70*
32-59+
33-64+
33-188+
34-31
35-86+
35-238«
35-355+
35-469+
36-76»

31-34
32-26*
33-34+
33-158+
33-269*
35-46+
35-187+
35-314*
35=441*
35-549+

$GET42

12-34

$GT42P
$GTSWR

14-20
45-1#

SHIBTS
SHIOCT
$iCNT
SILLUP

5-84
46-1#
6-08
48-1

59-11
12-43
14=20#
4&7-1
4-480
Lb=1x
42-1

48-1

42-1

42=1+

42-1+

24=91%
25-87
26-24%
26-138
29-142+
31-83«
32-72¢
33-80*
33-203*
34-40%
35-114*
35-239%
35-367+
35-481+
36-77«

25-98+
26-25+
26~148+
29-166+
31-84
32-73+
33-81«
33-204+
34-71%
35-115+
35-254%
35-368+
35-482+
36-96*

29-167+
31-93«
32-86*
33-101+
33-220+
34-72
35-133«
35-255+
35-380+
35-494»
36-97~

24=109=
25-109
26=30+
26-151
29-181~
31-105=
32-87*
33-102+
133-221+
34-83*
35-134«
35-268+
35-381«
35-495+
36=110+

24=124+
25-135+
26-32
27-40*
29-194~
31-106
32-100~
33-118+
33-238+
34-84
35-147+
35-269+
35-393«
35-515+
36-111+

24-125*
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-211~
31-129
32-115+«
33-133~
33-253~
35-30+
35-162+«
35299~
35-416«
35-533«
59-8

[<3MMM LalaUMMWK
=wWeaWULVNnZEIOTSM3MeZwA3—S2N[n«3Ya=2NYW0nA~A)CTWmN§x5LzmwL—T0a2ly8N—rMIuoR1~y0rLZ&Q4JaTONTOYRawV—b1eWERw=2xNneLMrwBn*oHvxe8LT2WoMaTg%BclLNeaMUWlgIEa,l~eO.AlSIayaR.ISGd-lNY%HIESWOT>0&»TTOWIYP>uTW<WoP>&0)yMP0WN0-L4LURNCS-Yw0R*tNMDIAVH"oRY—[al|gMk-AlaNTl4~aAvoaWlylLoxaIONSPVT]3atTa%ITOa.yNuXTMXT~Nn&Oew.APagmTW-HlMTLmnn
!

Do-<NMLNoo0Aol3Ol : Me-ONe—T
r

F
11:43:33 PAGE

%
MM

I
N
M
A
e
"L]1U\)L

M MM
MMM

RBy

finy

RSO3

4-APR-81

eg
g

(CREF

MACRO v04.00
v01-05 )

TABLE

TST 2

X R

CROSS REFERENCE

=7 L @eMW Il— - ———
M M3 « MYMTM o~%

* -

x u

oa N w~"ee-]\oooN—2~<M!1O0NO**]InNNNNOeS-TMO-ATmNe—MV@N—a0T-O~MMM(OmM—NUMMMouMLOTnM [o¥+|]@0 e—[—Ng—cN—MN§OTooMVYM3MlPyoa e--LP—\Nye-y«—M--WU3&M -M®- [

1Y6TNa4n63865T6E6oTE.N5N13M~Y36R~TI6Fea2x:5oiOyN-N?8IN5wL®E36PYMNle-S6m—M5TwAM6ySeN%NVM6“~-N=T2TT=6HM3ER=3YL133)Eg<OF>«*1&®R&0RT120T4A&** B6@518—&OuM&oT=-fel63M3NM~ew7yTg—5@x%@—Lo6um%uaG]ncm&yagRRS&d0AM4TRN&NdINM“oABRC
CZRMNBO RMO0S5/3/2 FCINL
S-3

-e00N-MoW@NNNxyE*WSA=N-FoWuMmMo0wMoNMONOmCOWLMArYWNInRW[Le]
oOeNM—O=}N8T82-V*RMNE377ONOYLeO\MM902*-—TiO1O44rD5—@0—Nru3Me—40SYM4Lve 1dnN0eO0NOSJ—44BuN2I2T1vWNs—nTEIw55TNvII2%Y22ST—RTxT2rI4x4Iw*n E—*NcT00B.iELlI33:TFRxeR.R—4tI3oTyNBtN227AFuIrO33MNA—U06RrOw-TMnO—E—yoU44o[rSLhMA2—23IErN36—000TST1 -—33x06NSN214yNTO16I12eSOMO550O—ONR=MI~oo21I8¢oNlloiO=AL5&rl—— WUMoLU5MlO52%M-MWLM5&35%~1&<a355wNTYNvm&&ONowNn33N7--OE9%I33AMIAM—%T&~~Y-N11-T33A4NF Mh\7oX3~- T-]3v-w«3L NB[+

-0eMU0~*NylN0—eR0®x(®*NX=TF)eWIb\2bieW0by%I=1W*~&eg-—Sx*s2Mr2—=*r-M—D7OON48&IoBk\b0AOk1No—.Ms]T-yNOVN7X7RA[b1"3baRl"R1ap)7—OrM—IwSnOS~"
$TMP2
$TMP3
$TMP4
$TN
wv

l
$TRAP

$TRP

$TRAP?
59-10
6-0#

6-0#

6=-04

6-0#
6=-0n
6=-0#
10-23

47-1

L7=1

TARLE

TST 2

(CREF

27-27+

v01-05

MACRO v04.00
)

4-APR-B1

oyw5N~®s“ %NwC0M*v—OnN ®*- 2NWFCTOno-Nruon—AvWo—ewcyN £q*x® NONo¥WVu—nNAud@erWnro—yN Lu*x®Y iTIB>b5eyWow x*¥ -%wL LapVl[MaAWIlaVOlR] *«- NL-k&
27-28*

27-50

27-53

59-5

47-1

47-1
47-1

47-1

47-1
47=1

-y NN N e Y ¥ e e

REFERENCE

= &* ®®

(ROSS

UL ] i

-MO0O FQ - — Cir—r— ¢M N~TIM N

~e—M~O0M=é0ae¥"W -MYNgM61M't1y1‘ ~‘m

LDSPA&ONORehWNL$N-* &eB=* RE>TMAIM@TRxXTIANITR-eMTRT2ARTIRxAMNUY*Vl*AmSBW2ReEoT-eTR(r2EL]LIeIIdoNTeRTAO—RA-NTSob£ BToam=ieMSAemAowITT rriL\IlwR.yOE
CZRMNBO RMOS5/3/2 FCINL

G 6
11:43:33 PAGE S5-4
SEQ 0279

47<1
47-1
47-1
(7=
(7=
L7=-1

JRMNBO RMOS/3/2 FCINL

NU)SS

REFERENCE
471
47=1
47-1

$TRPAD
$TSTM
$TSTNM
EITYIN
$TYPBN
$TYPDS

STYPF

| STYPEC
-

OSTYPEX

LTYPOC

$TYPON
$TYPOS
SUNIT
SUNITM
$USWR
SVECT
SVE(T2
$XOFF
$XON
EXTSTR
.BASTA
A16

A17
ABASE
ACDW1

ACDW2

ACKSTS
ACPUOP

ADDWO
ADDW1

ADDW10
ADDW11

ADDW12
ADDW13
ADDW14
ADDW15
ADDW2
ADDW3
ADDW4

ADDWS

ADDWE

ADDW?7
ADDW8
ADDW9

ADEVCT

ADEVM
ADR

L7-18
47-1

5-8#
6=0n

45-1

38-1#

39-1#4
L1=-14
41-1

41~

40-1#

40-1
40-1#4
6=0#
5-84

6-0#
6=-0#
6=-0#

TABLE

TST

(CREF

L=772#

6-0
6=0

15-151
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
6-0
6-0
6=0
6-0
6=
13-1

13=-325#

13-856#
13-=13

13=2404

13=(34x

MACRO v04.00

v01-05

)

47-1
47=1
47-1

{7-1
&7-1
L7-1
47-14
42~
45~

41-1
41-1
47-1
40-14

14-20+
45-1
47-1
47-1
47-1
41-1
41-14
47-1
47-1

12-50+

12-7C

11=46

11-56»

47-"
47-1
47-1
47-1#
47-1#

12=45+
45-1
47-1
47-1
47-1

47-1

41-1
41-1
42-14

48-2
5-8
4=7214
L=720#

47-18

45=1

=0
6-0
6-0

16-137

6-0
6-0
6-0

6-0
6-0
6-0
6-0

6-0
6-0
6-0
13-14
13-450
13-856#
1313-290
13=(34%

6-0

32-15#4

4-APR-81

11:43:33 PAGE

6
S-S5
SteQ 0280

47=1

47-1
47=1

W7-14

47-1
47-1
47-1
47-14

L7-1
47-1

L7<=1

47-14

42-1

4L8<2
41=14

45-1

24=51

4422

4{7-1
47-1
47-1
47-14

o 42-1

47-1

47=1
47-1
47=14

47=1
47=1
47=1
L(7=14

47=1
47=1
“7-14

47=1
47=1
L7-14

47=-1
47=1
L7=18

47=1
L7-1
L7=-14

42=1»

42=1+

43-1

43=-1

43-1

L5=4

—N>7.¢A£CDE.§3IVsV=+QOMU0—OM
S0ooN010———(Y(M1LTyaa\\N)]oOlNw~9o50n)0ONnB]SNAAefLc)27>IOeValta5m8Au7¥NlFeiVbC]¥..f4e%72uORTo]IaDl33&eENtI‘ogsal2.lE5NCT4AA3aooTa4yllSNYDo££I2loaeaWF(I&MlECCo.1aTPEaeSMls7e9lDDo9REaIea9mTcyNlayEElT7TLRrastelFw“R—LVS3lI5sAIJaAaeH7NIwIOV3llARTa.HCUaeS“0l-NGElaIIAYIa.MoD(64MblmsVAE—PXssONPs.aea2AV3VNV7leIPZOREClJa77*s0l\I®TasaVoIR1Ya.90=BIe4=e¢ll+ASNae12.a.9z7OOleEGAi'alIElea65l4.9w1Nl%iR2aaoNaYRes2M]lOEe5lPaLBLel%IL—l3O_ia3iETa3laMl7ia7z4Nl-ra.a2PTYEllo80Niu5le3PI=PaaloL9TF%Mm6NNOile.laEElo79%yi3MeaRPNla1816-N7iwSLaeP.OR—llG0,02-8aia=eNGINl”Wg9aANeel=O—lfM2RWTNo5?l.vmlmwv?@[vo[(NOMw-MM"oagi]¥—Vn)]]RS%RS'RIR-lSvSlvSlS-W&YPWPWPNMwmE.4wq'n
vT1bl
R%NO T#OMN2AR5RNOE”—ORN49Oe0MAO1ItNR2ItM“RAIA05—ARM”LO2ANR4YPR2O0N9tO3Se20—24O&2eW“NesL90i7lf4 o&N o]]Ue Bi
R/et
Y
R
¥
&
¥
e1wn lx¥«[N
e3-0i2Bl5wBuny2&n2tRateWPR25&e7¥e2¥*-943"3y59-T1&ee 3 ~i
RT PTtPYy¥ AT&ro RRYBTBtTR"b5t Re-3l W
-3 R&B an

Q2%uan BR Ty -3 e S20o8W~N3n9A%W3¢%Vv PXI>PU>R>MRQR>>RAYUTOUNM oJQFca=%o=7

[@)oVoM(1>OWM(w)YeF)o]\uJB%oN7ON¥AEWnSVeBNV.NBOAPoelY4LOTMalIkVVlReAsaIVoaoEMAVeNlElTSelbV£OeVMoora]leeDaMTCsaNoo]llAM—DlMaaoROlllEPTosaalnolM2lDlSMaaoA-Nl¥llE3PRRasIaeMo0lll&NMaae1loAMllIaasAl6dgolTeRMaIaoRoloMElNbeellaIblIaogglRiYlMMesNiaRAaoVIAlolell-Seo—LaoesMTollaMlaORtlaeodTale*Ll+ilWaoMiGeRllMeeoENagoalolOOlMelaTallMoRlRaeNlMTNTlagoolaeVeleNTlMaooEaNSOllPNeTllNaoaM—lollelPM)aas~oylRolTlONeeNOaLoIolMelaNYOlO)iNlolAa*—IoeeaMMllrMlIioo=aeOlEMaelOllaLaNn=aeaMdlllNdLTYGPTOIT&0REoT5MWA)0N0TRN=SR[V,AwOe[[ooL ow7Awg"alLoNVaIn0n])RW1AV,IV,O1RV,SRV,ORRVRVOoIVoROVRRVeJVOsIeIO¥AsIVRelOvIeeOA5Ox-NeiO.AelOeReSAl
MO[MLLw—"|aaavlll1O"O"N"naaallloogtogQMRleoaWttoTlaaYloeMooTlltSotaQoXalllatooAoalllltaooalllloaaooRdlIlllieEaoolllAaadlllaaalvlsoaolllVoabolollaelaagoolallTelala1gRl=illoaaoal=leaR2oolleaaoN3ollToioa4aldlTeeol5oea=llLa%ooLahllealoa7aolRlaaleltailolo8oaaLaltleLlilaL9alolaanallladl oWwvow[i+
TROSS

JRMNBO RMOS/3/2 FCTINL
REFERENCE

TABLE

(CREF

TST 2
vO1=0S

MACRO v04.00
)

4-APR-81
I
11:43:33 PAGE
6
S-6

RT&«y 8542Oa01uN9n~N7O6e50—O“e— ’2o”6“4””21”5”7“59”26 A%C-OD.TAI—eVUOP*ON’=0M)O 87“I7TM2“ON—8=”l11eO”9INl&M972l3"754y0727

[#aU¥.]rn7sz217Le)2T:“)n1¥v<3:0)R«3cOLa2n7ka0n8vLrm31fl3rb8oc1ro3:l9rqc2o9icD2rL4an.MT%RUy2nw%uR1fk31~7<1fb3n9MR1LM7A9TU/3b~6mm87r7T:e—<R0LOMOM0MeTN<N17FNr7eO
_NNNgBSeMgOSAGYg@NA@YeORSPOOMeIROM(Y.NsDYeIR DGAGeNANUNOSNGVP)I0NTNNTINNLNVOyNoSNPRNPNORPAS0NRAN0RNPNNONPVP)NPRPNNE3ObMRoNWACNPRTPNIMORMPOONMo

3o.=L>].2T0)Ay¥bl—|aao>tR:9lxaY)J>a>oM.n2&_Mol¥ZBtr?aOoo<1—>&3ltYrM?U?S.o%aytOblN%o.7a”<-ot3R8lCat¢3a.Y.u1=ooA6B|7¥lNY3¢rL%oyo1bnyVlt¥5-Ad£J“:aov3B|slAloJArR9aV>t8.RA&lz%maSYH8oaBo%1wTlYIma.0*?otB%3YBTsEali.lO6CaCtL9-T10alREl78AaoC3Rwyll—NIo5iOaRtl7LoEVasVG4lIAotINo9baCsXeYl3\aatEn3Ix®zVVal“Nl%rNaCsa8os6aw'lOl2@sVae_8|a¥Il3le%OraeV3sa7la9l0CaoRoV8»5lnlvBeoa2R2s1Lxllqsolo3a7y&&*¥BvS2llTvsoEoaaD223ol=*¥¢l3ETR»T?)iTaa48uRs3—OO2LllNYN&Naa+81bOQ[lmlkoT3N(«ROaaOwo9D57bllONaNNaseMf09R4lNLl0RReah“a51qlG90N¥3IlR0ElDaaO9u%1DNlSzlaNS4oaa2NlNO70Oa:l4RN2¥YnJlNlP1oaouSOON—lOlE3aa9N2N—¥EMB0lOl”aaRt63y3lNNl5OEae0Ow3NlBlN3“RTLyaaNu3NIll&—iaBaET4aOS0TUl2laFay6lO¥TlN38NESaaI51GX¥OllRMM8NaIauNll0OOaUEL5,AlT9OOOaMANIlUAL%uRO7aNMaGIONlIl6wIa8EaNMOOllINURya9aOe&MMMllFa7azW=—==llRaaa6NO——=lElNia8weAOalVN—liR~aOauM—N\ll.
R ¥ BB ¥

INOOM—og0NVP-|)]|IDPN2Y3Vgo=Nu)tOOn~oWMteNNYa~VO—5AeeYg)NMMNI5[OooNogOROtNNPAEPe6Ye(tN~aFNReNR5NoIgt—IE0ItVs9NaNegYN)oIOO”l(VePTRgPTNiTIIaN)DB=a9detORMFVNo=a8N(AO0)GteoNSNePNsl9teONWEoI=l(I0NgoNOFOVlea=8Nl)ANAtI0.TIaO3NPIlEN~eoINl(rNYto“T0NeMMoTe=TQeYll2NNONoa(TTI0=oYll—1ONO.NoaII.N—lrlNP10v=oo«IOVINTDlleQT2OEMeNN—aIOl(leN0T8IReFIOONMaXleSPG2VlTNooIT(RlOleT“Nsoa=TIVERlQle0N00)—oo—TTelleVTN02OoNeMlNoTTe”aIlMP¥lNeTWIoaTNlleeN¥eR“iEoalOlNgMOTTPMA6oNollTNTGA‘eNNleDNTPoIT NT5alON lePNgIuaoeS—lXlPTMNI3ea~TlaTTN[d”NooETI eRllTANTA4OToallQTNYTUU0a.lNNoNTTE4alAeOlNTa0OoAMTslElNM7LNoOIbelaNTAM3P1boNNTRalNTIOb5IAoWalMPGNTbFN4oOarlNTPAIOl2o—aNlTNTFNl3OoaElIOTRlP02oaNlOMT—lM7AaMPTYMslINaleO0eOAPlMAa——NOLl
TolyoleloTR lgolog¥oloBldololol&T ooolo_lodBologBladeo oolglololooloololLl
CROSS REFERENCE

.
ATESTN
ATNMSK
ATNTBL

AUNIT

AUSWR

AVE(CT?
w~

AVECT]
10-78

50~80
6=-0
4-5894

6=-0
6=0

TABLE

(CREF

TST 2

10-117

50-83
6~0
34-55

6~0

v01-05

MACRO V04.00
)

50-84
50-87

50-88

10-121

11-97

12-17

oNeIPPTWPWORN=OOeOOPPPOSOOIeOTTeeToPeTooT0A0PB 0ROP A A AR

Ae[TIsR RPIS(Gesg@.UO0ITYeAvyRVYl1LM"T|W?c”?:1m"u?iflAEMOi)I{“7LIDK£t:U?7~4‘!DnYM7LU7L6<flV)2!O§)O&CQ§IR!) ¥BTsRy NROSARINRTO b*_&rR3u8y 270620=N&7OMA—m93O&e=02TLV—.O%DCl

L:rkirbzrkirni)t:ruirtij lzr1;)L:)tzrt:)tza1:)1:31:31431:32#)1431:31#3!43

Y TPPTITP A Y e e D I e T

CZRMNBO RMOS/3/2 FCTINL

4-APR-81 17:43": 33 PAGE S-7

6
Sty 028¢

51-3#4

6-0

BIT1

BIT12
BIT13
BIT14
BIT1S
BIT?
BIT3

BlT4

BITS
BIT6

BIT7
BIT8
BIT9

BLNKS1

BLNKS?2
BLNKS3

BLNKS4
BOTADR
BOTFLG
BPTVEC
BSE

=A==
WO

4-618

4-636

4=670

4=742

4=760

4=484n
4=484H
L=484H
4=4 84k
4=484n

4=495
4=494
4-493
4-492
4=491
4-561
4-560
4-537
4-536

4-543
4=542
=541
=540

4-580
4=579
4-578
4=577
4-€14
4=597
4-596
4-573
4=572

4=-617
4-616
4-615
4-632
4-631
4-613
4-612
4=595
4-594

4-635
4-634
4-633
4-670
4=-670
4-630
4629

4-670
4=670
4-670
4-738
4=737
4=670

4=742
4=742
4-681

4=759
4-758
4-739

4=757

4-611
4=610

4-628
4-627

4-723
4-670
4-670
4-670

4-736
4-680
4-721
4-720

4-756
4-722
4-734
4-733

4-735
42-1
42-1

=571

4-593

4=609

4=626

4-652

4-667

4-679

4-719

4-732

4-755

15-165

4-608

4=625

4-643

4~651

4666

4-678

4-731

4=754

15-167

4=624
4=642
4-641
4-640

4=650

4-665
4-676
4-675
4-674

4~677
4-718
4-686
4-685

4-730
4-729
4-717
4=716

4-753
4-752
4-728
4=727

15-111
43-1
4-751
4-750

oornwnoo

WWW‘:‘WU‘W

il
il
i
caid e
o
-

13-(92#

13-(99
13-D464
13-E404
13-E68
13-F234
13-773

13-D05
13-D58
13-E474
13-£72

13-p58#
13-E51
13-E72#

13=p05S#

13-D09
13-D58#
13-E514
13-£724

13-D09#
13-079
13-ES1#
13-€79

13-D09#
13-D79#
13-€53
13-E79#

13-962

13=:57

13-,58

13=<41

13-=24

42-1

43-1

42-1

43-1

26~28

4-484LH
4-484n
4-484n
L-484H

VNN
O S~V

23-18

-558

16-304
4=-535

17-26
4-557

4-490

4-534

4=570

4-533
4-554
4-553
4-552

4=555
4-568
4-567
4-566

4=569
4-606
4-605
4-604

4-607
4-623
4-622

15-202
15-14C

35-320
35-426

35-407

15-87
10-71

23-24

11-34

11-48

49-39#4

49-374
44=99%
44=109+

44-102
44-112

44-117
44-115+

44-1614
44-1624

L=674H .13-D30

13-p37

16=225

25-431

{9-38#
10-82
4481+
44=-62*
L=4 844

n
SRS
¥R x»

4-581

O‘WW\‘UWWW
L
[}

4-562

-l
i e
ol o

4-544

gf\)

4-496

13-242
13-855

[}
11
mMaeETMMO
A

wWwvmmmo
o

BIT1
BIT10

SEQ 0283

23-18

4-653

BITO!
BITO2
BITO3
81104
BITOS
BITO6
BITO7
BITO8
BITO9

K
6
11:43:33 PAGE S-8

4-484n

13-090#
13-D20#
13-E10
13-E55
13-E91#

BITO
BITOO

4-APR-81

13-D46
13-E40
i3-E624
13-F23
13-649

13-C90
13-D20#
13-D90#
13-E53#
13-E91
13-144
13-A56
10-25

~o
BESSNNS
H
AV AV, LV, AV, )

8801

(CREF

MACRO Vv04.00
v01-05 )

W
v

BADTMO

13-(88#
13-D20
13-D90
13-E53#
13-E754
13=43
13-a49
10-3#
(=739
4=670#
4~6704
L=6704
L=670#
4=6704
4=6704
4{~6704
4{-6704
L(-670%
L=6704
L=484H
4484
43-1
4-484
4-484
4484
(=484
4484
4=484
4-484
4-484
4484
43-1
L=4L844
4-484
43-1
L4=484H
42-1
4=4 844
4=484K
4=484K
L=484H4
L=484H
44844
4=484K4
L=484H
4=4844
4{=4 844
L=4 844
4=484H
49-404
10-132

TABLE

BADSCT

REFERENCE

TST

CROSS

RMOS/3/2 FCTNL

[}

CZRMNB(

4-621

4=664

4-663
4-662

42-1
18-90

BUF TWO

CC
CH
(HGADR

CHRCNT
CKSWR
CLKADR
CLKVCT
CLR
CLRSTS
CMNSTA
CMPBUF
CMPERR

CNSLOT
CNSLO2
CNSLO3
CNSLO4
CNSLO7
CNSLO8
CNSLO9
CNTCLR
COMMA
CONT
CPSAVE
(R
CRLF

CTLFG
CYLMSK
DBCK
DBEN
DBL
DCK
DDISP
DEBL
DEVSEL
DISPLA
DISPRE
DLT
DMD
DPE
DPEHI
DPELO
DPR

DRIVES

DRQ
OCRVCLR

1649+

13=40
13-:55
13=C44
13-106
13-<83

L=-6664

4~6674
7=0#

4463
42-1

16~284

13-126

13-<20

13-(59
13-126
13-=03

vO1-05

61=-2#

13-141
13-<38
13-C61*
13-209
13=-=67

10-14+
44-86+
43-1

10=-17+
44-92%

10-84

12-58

22-8+
22-9*

43-1
22-10
22=15+

31-244
12=2#
13-229

13-543

)

SEG 07284

61-16

13-332
13-=85
13-E07
13-429
13->50

13=457
13->90
13-€22
13-439
13-A12

\Juu:ww

BUFFER
BUFONE

(CREF

L
6
11:43:33 PAGE S-9

13-553
13-796
13-E26+
13-543
13-817

44-100

44105+

44=116~

44=1634

>wvim-owun

TABLE

4-APR-B1

WRON
&

CROSS REFERENCE

MACRO V04.00

il
e
il
b

CZRMNBO RMOS/3/2 FCTNL TST 2

13-770

13-A37
61-34
13=741
13-(97

13-864
13-A42

13-959
13-A53

13-:54
13-B52

13-751
13-£60

13-<00
61=-4#

13-<20

43-1%

44-180

23-13-

13-=03

13-=85

13-A37

18-174

42-1x
41-1
10-42
49-12
58-15
61-30
61-44
61-58

43-1
44-84
10-53
49-13
58-16

43-1

43-14

43-1%

10-60
49-16
61-19
61-33
61-47
61-61

12-30
49-17

411
49-18
61-21
61-35
61-49

41-1
49-19

49-3
49-20

61-31
61-45
61-59

43-1
57-79
10-59
49-14
58-18
61-32
61-46
61-60

18-23

25-469

25-489

35-413

35-416

42-1+

43=1%

35-43

35-466

35-469

49-13#
49-144
49-154
49-16#4
L49-174
49-19#

30-12#
12-6

12-14

49-74

42-1
11-73

58~7
61-27
61-41
61-55

42-1
11-84
10-28
49-11
58-11
61-28
61-42
61-56

42-1%
41-1
10-28
49-11
58-12

12=47+

14-22

45-3*

10-6
49-10

61-29
61-43
61-57

35-495

29-32

33-31

31-128

34-30

61-20
61-34
61-48
61-62

61-63

61-22
61-36
61-50
61-64

61-23
€1-37
61-51
61-65

49-5

49-21
61-24

61-38
61-52
61-66

49-8

49-23
61-25

61-39
61-53
61-67

CZRMNBO RMOS5/3‘2 FCINL TST 2
MACRO v04.00
CROSS REFERENC
TABLE (CREF v01-05 )

4-APR-81

6
11:43:33 PAGE S-10
SEQ 0285

25-42

8-516

55-2#4

8-690

55-104

8-12
8-57

8-15
8-60

29-195

8-18
8-63

31-127

31-128

34-30

25-485

25-491

35-423

8-24
8-66

50-77

50-78

50-85

50-86

CZRMNBO RM0S5/3/2 FCTINL

TST 2

MACRO V04.00 4-APR-81 11:43:33 PAG? S=11

CROSS REFERENCE TABLE (CREF v01-05 )

8-96
8-139
8-188
8-245
8-287
8-329
8-375
8-420
8-534
8-581
8-627
8-669

8-99
8-142
8-191
8-248
8-290
8-332
8-378
8-423
8-537
8-586
8-630
8-672

8-516

56=2#

8-690

56=-104

8-27
8-69
8-111
8-160
8-203
8-260
8-302
8-344
8-393
8-441
8-549
8-600
8-642
8-696

8-687

SEQ 0286

8-516

54=24

8-690

54-11#

8-30
8-72
8-114
8-163
8-206
8-263
8-305
8-347
8-396"
8-444
8-552
8-603
- B=645
8-702

8-33
8-75
8-117
8-166
8-209
8-266

8-308
8-354
8-399
8-504
8-556
8-606
8-648
8-705

8-36
8-78
8-120
8-169
8-212
8-269

8-311
8-357
8-402
8-507
8-559
8-609
8-651
8-708

8-39
8-81
8-123
8-172
8-215
8-272
8-314
8-360
8-405
8-510
8-563
8-612
8-654
8-711

8-42
8-84
8-126
8-175
8-218
8-275
8-317
8-363
8-408
8-519
8-566
8-615
8-657
8-714

8-45
8-87
8-130
8-178

8-236
8-278|
8-320 |
8§-366|
8-417
-8=522
8-569|
8-618|
8-660
8-723

CZRMNBO RMOS/3/2 FCTNL
TABLE

(CREF

MACRO v04.00

v01-05

)

4-APR-81

7
11:43:33 PAGE S-12

SEQ 0287

EMS120
EmMs121
EMS122
EMS123
EMS124
EMS125
EMS126
EMS127
EMS13
EMS130
31

EMS133
EMS134
EMS135
EMS136
EMS137
EMS14
EMS140
EMS141
EMS142
EMS143
EMS144
EMS145
EMS146
EMS147
EMS15
EMS150

EMS151
EMS152

53-12
53-78
53-79
53-80
53-81
53-56
53-83
53-84
57-89#
53-13
5 3-86
5 3-87
5 3-79
53-93
53-125

53-79
53-88
53-97
53-99
53-85
53-13
53-44
53-35
53-47
53-47
53-36
53-36
53-109
53-69
53-13
53-50
57-106#
53-69
53-50

uT T 7MOY[

0| R —OoONN
RN W

“J NO NN N, 0|| nM(VNUnMONiNMnST ANn(UMNn—MnMOOnMOnM~-nMOn)YnS

WwWiww wWw w Wwiw we

pPVT-wSNnreIpOwVRmeAyEe-3RrwNnwuNnrp3GnyeN—8N—8aeANlLvAaLlAvNao£—lEvEea—el8t¥aNNle5iAeelg8rgeT
LMTNMwnARL-NA M—MMTNN NOMUYMNMeMTMyNN—
w 4RS[pV 0y—

y~nMOn0MM'81v9NN771yL+[L8aI"gal¥l.1]"aal)[l35”P4“M%M—al8v27al0N”VM2Wal—61va/l‘”vayl57

CROSS REFERENCE

TST 2

53-99

53-42
53-95
53-96
53-80
53-94
53-126
53-80
53-89
53-98
53-100
53-94
57-14#
53-52
53-44
53-65
53-65
53-73

53-216
53-106
53-104
53-81
53-95
53-168
53-81
53-90
57-95#
53-101
53-100

57-13#
57-90#
57-91#
53-82
53-96
53-169
53-82
53-91
53-102
57-97#

OMO N~—3N —-00uy

U
1
o
~
M
"[a"lwa"vlam¥lunsa)l

L3~ANl @Y

53-225

53-228

53-229

vw mWj wwn ;5=¥ 2~o
53-230

53-231

57-81#

53-62

53-93

53-9¢4

53-95

53-96

53-98

53-126

57-85#

53-90
53-104

53-91
53-105

33106

53-222

57-95#

53-223

53-234

57-83#

w N~ l ~vU N

53-83
53-97
57-92#4
53-83
53-92

53-84
53-98

53-85
53-99

53-86
53-100

53-87
53-101

53-88
53-102

53-89
53-103

53-84
53-93

53-85
53-94

53-86
53-95

53-87
53-96

53-125
53-126

57-93#
57-94#

53-103

53-104

53-105

53-106

57-96#

53-187

53-188

53-193

53-202

53-205

57-101#

53-111

53-134

53-138

53-182

53-183

53-194

53-195

53-182

53-183

53-194

53=195

53-223

57-108#

CZRMNBO RMOS/3/72 FCTNL
~

TABLE

(CREF

)alValVal7}3Vayvalva33l LAl

(ROSS REFERENCE

TST 2

EMS1]
EMS165
EMS166
EMS167
EMS17
EMS170
EMS171
EMS172
EMS173
EMS174
EMS175
EMS176
EMS177
EMS2
EMS20

53-8
53-14
53-9
53-57
53-215
53-214
53-216
53-216
57-129#
53-127
53-4
53-34

EMS200 53-128

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

53-128
53-122

53-122
53-131
53-55
53-55
53-168
53-15
53-169
53-170

53-171
53-171
53-55
53-236
53-237
53-237
53-16
53-179
53-231
53-233
53-232
53-121
53-17
53-18

MACRO V04.00

v01-05

53-116

7
C
17:43:33 PAGE S-13
SEQ 0788

53-173

S7-112»

57=1144
53-64

53-65

53-66

53-67

53-68

53-72

53-172

53-196

53-197

53-198

57=120#4

53-123

53-124

53-168

53-169

53-170

53-175

53-235

57=122#

53-126

57-124#

53-218

53-219

57-128#

57-4#
55-110

53-118

53-119

53-120

53-121

212

353-232

53-238

57-184

53-179
53-170
57-138#

53-233
53-179

57-136#
53-233

57-137#

53-173

57-13%#

53-116

53-173

53-68

57-130#
53-5
53-58
57-1314
57-132#
53-130
53-130
57-135#
53-142
53-142
53-170
57-194
53-170
57=140#
53-172
57=142#
57=-143#
57=1444
57-145#
57-146#
57-20#4
57=147#
53-238
57=149#
57-150#4
57=151#
57=21#

)

4-APR-81

57-1414

57-148#4

57-25#

53-21

53-69

53-70

53-71

CZRMNBO RMOS5/3/2 FCTINL

CROSS REFERENCE

53-177
53-21

TABLE

TST 2

(CREF

v01-05

EMSS
EMS50

53-199
53-146
57-28#4
53-219
53-225
53-216
53-213
57-334
53-75
53-220
53-190
53-206
53-209
53-211
53-210
53-58
53-44
53-222
53-7
53-48

57-414
S7-7#
53-64

EMS51
EMSS2

53-55
53-142

EMES3

53-38
53-182
53-206
57-46M
57-474
53-51
- 53-228
53-191
53-205
53-228
57-8%
57-50#
57-51#
57-52#4
53-149
53-14
57-55#
53-218
53-44
57-94
53-50
57-58#

EMS31
EMS32
EMS33
EMS 34
EMS35
EMS36
EMS37

EMS4

EMS40
EMS41
EMS42

EMS43
EMS44

EMS4S

EMS46

EMS47

EMS54
EMS55
EMS56
EMS57
EMS6

EMS60
EMS61
EMS62
EMS63
EMS64
EMS65
FMS66
EMS67
EMS7
EMS70
EMS71
EMS72

EMS73
EMS74
EMS75
EMS76
EMS77
EMT1

EMT10
EMT100

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
3 o ]
53-35
53-38
8-3
8-24
8-197

53-59
53-48
53-140
53-54
53-70

MACRO V04.00

57=264

53-207

57-294
53-226
57-314
53-214
57-64
57-344

53-191
57-364
57-374
53-230
53-229
53-120
53-45

)

4-APR-81

D 7
11:43:33 PAGE S-14
SEQ 0289

53-208

57=274

53-227

57-304

53-215

57-324

57-35#
57-384
57-39%4
53-145
53-52

53-177
53-60

53-70

53-132

53-70
53-143

53-130
53-148

53~39
53-184
53-207

53-147

53-186

53-187

53-188

53-192

53-181

53-185

'53-189

53-200

53-201

53-221

53-139
53-149

53-221
53-201

57-434
53-228

53-229

53-230

53-231

53-233

53-40
53-186
53-216

53-44
53-187
53-218

53-62
53-193
57-45#4

53-64
53-194

53-65
53-195

53-73
53-200

53-140
53-202

53-141
53-203

53-54
53-234
53-192
53-206
53-229

53-62
57-48#4
53-193
53-207
53-230

53-63

53-144

53-178

53-182

53-183

53-19¢4

53-195

53-194
53-208
57-454

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-190
53-41

57-53#
53-144

53-145

53-146

53-147

53-199

57-56#4
53-45

53-46

53-47

53-48

53-49

53-50

53-52

53-5¢4

57-S74

53-52

53-54

53-66

53-70

$3~73

53-107

53-139

53-182

53-189

53-19¢4

53-205

53-63
3931
53-142
53-67
53-134
53-67
3~37
53-148

53-183
35~55
53-179
53-68
53-189

53-195
53-56
53-183
53-136
33=217
53-138
53-39
57-65#

53-208
3337
53-187
53-180
53-221
53-188
53-40

57-59#
53-60
53-193
53-188
57-624
53-222
57-644

53-61
53-195
53-222

53-63
57-60#

53-108

53-109

53-134

53-135

53-235

57-61#

53-223

57-63#

53-137

53-38
53-198

53-234

MACRC v04.00 4-APR-B1 11:43:33 PAGE SZ15

CZRMNBO RMOS/3/2 FCTNL TST 2
CROSS REFERENCE TABLE (CREF v01-05

EMT101
EMT102
EMT103

8-200
8-203
8-206
8-209
8-212
8-215
8-218
8-27
8-221
8-224
8-227
8-230
8-233
8-236
8-239
8-242
8-30
8-245
8-248
8-251
8-254

53-67#

53-68#

53-694
53-70#
53-714
53=72#
53-73#
53-11#

53744
53-754
53-764
53-77#
53-78#
53-794
53-80#
53-81#
53-12#
53-82#
53-83#
53-844
53-85#
53-86#
53-87#

53-88#

53-89%
53-13#
53-90#
53-91#
53-924
53-93#
53-94#
53-95#
53-96#
53-97#
S3=144
53-98#
53-99#
53-100#
53-101#
53-102#
53-103#
53-104#
53-105#
8-320
8-323
8-326
8-329
8-332
8-335
8-338
8-42
8-341
8-344
8-347
53-117#

)

SEQ 0290

CZRMNBO RMOS/3/2 FCINL IST 2
MACRO v04.00
(ROSS REFERENCE TABLE (CREF v01-05 )
EMT164

" EMT165

EMT166

EMT167
EMT17

EMT170

| EMT171
| EMT172
| EMT173
g EMT174
l EMT175
EMT176

| Em1177
EMT?2
EMT20
EMTZ200
EMT201
EMT202
EMT203
EMT204
EMT20S
EMT206
EMT207
EMT21
EMT210
EMT211
EMT212
EMT213
EMT214
EMT215
EMT216
EMT217
EMT22
EMT220
EMT221
EMT222
EMT223
EMT224
EMT225
EMT226
EMT227
EMT23
EMT230

EMT231
EMT232
EMT233
EMT234
EMT235
EMT236
EMT237
EMT24
EMT240
EMT241
EMT242
EMT243
EMT 244
EMT245

8-354

8-357
8-360
8-363
8-45

53-1184
53-119#
53-1204
53-1214
53-174
53=122#4
53-123#
S3-1244
53-125#
53-126#
53-127#
53-128#
53-44
53-18#
53-1304
53-131#
53-132#
53-133#
53-1344
53-135#
53-136#
53-137#
53-19#
53-138#
53-139#
53-140#
53-1414
53-142#
53-143#
53=1444
53-145#
53-20#
53-1464
53-147#
53-148#
53-149#

53-214

53=22#

4-APR-81

F
7
11:43:33 PAGE S-16
SEQ 0291

CZRMNBO RMOS/3/2 FCTINL TST 2
MACRO v04.00
CROSS REFERENCE TABLE (CREF v01-05 )
-

|
|

CMT246
EMT247

B-504
B-507

53-168#
53-165#

EMT25
EMT250

8-63
8-510

EMT252
EMT253

8-516
8-519

53-172#
53-173«#

8-525
8-528
8-531
8-66
8-534
8-537
8-540
8-543
8-546

53-175#
53-176#4
53-177#
53-244
53-178#
53-179#
S53-180#
53-181#
53-182#4

EMT251

8-513

EMT254

" 8-522

EMT265

8-545

EMT255
EMT256
EMT257
EMT26
EMT260
EMT261
EMT262
EMT263
EMT264

53-234
53-170#

53-1714

53-1744

53-183#

EMT266
EMT267
EMT27
EMTZ70
EMT271
EMT272

8-552
8-556
8-69
8-559
8-563
8-566

53-184#
53-185#
53-25#
53-186#
53-187#
53-188#

EMT276

8-581

53-192#

EMT273
EMT274
EMT275

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
EMT325
EMT326
EMT327

8-569
8-573
8-577
B-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
8-645
8-648
8-651
8-654
8-657
8-660

53-189#
53-190#
53-1914

53-193#
53-5#4
53-26#
53-194#
53-195#
53-196#
53-197#
53-198#
53-199#
53-200#4
53-201#
53-27#
53-202#
53-203#

53-204#
53-205#
53-206#
53-207#
53-208#
53-209#
53-28#
53-210#4
532114
53-212#4
53-213#
53-214#
53-2154
5
53-217#

4-APR-B1

11:43:33 PAGE

S-17

CZRMNBO RMOS/3/2 FCTINL

CROSS REFERENCE

|
|

EMI33
EMT330
EMT33]
EMTZ32
EMT333
EMI33,

EMI335
EMI336
EMT337

EMT34

EMT340
EMT347
EMT342
EMT343

EMT344
EMT345
EMI346
EMT347
EMT3S
EMT350
EMT351
EMT352
EMT353
EMT354
EMT36
EMT37

EMT4
EMT40
EMT4]

B-81
8-663
8-666
8-669
8-672
8-675

8-678
8-351

8-684

8-84

8-687
8690
8-693
8-696

B8-699
8-702
8-705
8-708
8-87
8-711
8-714
8-717
8-720
8-723
8-90
893

8-12
8-96
8-99

EMT42
EMT43
EMT44
EMT4S
EMT46
EMT47
EMTS
EMTS0
EMTS]
EMTS2
EMT53
EMTS4
EMISS
EMTS6
EMTS7
EMT6
EMT60
EMT61
EMT62
EMT63
EMT64

8-102
8-105
8-108
8-111
8-114
8-117
8-15
8-120
8-123
8-126
8-130
8-133
8-136
8-139
8-142
8-18
8-146
8-150
8-154
53-534
8-160

EMT7

8=175

EMT6S
EMT66
EMT67
EMT7
EMT70
EMT72

V-

8-163
8-166
8-169
8-21
8-172
8-178

—_—

TABLE

TST 2

(CREF

MACRO v04.00

v01-05

4-4PR-B1

7
H
11:43:33 PAGE S-18

53-29#
53-218#
53-219#
53-2204
53-2014
53-2cok

53-203#
B-681

53-225#

53-2244

53-30k

53-226#
53-2074
53-208#
©3-209K
53-2304
53-231#
53-2324
53-233#4
53-314
53-234#
53-235#
53-236
53-237#
53-238#
53-32#
53-33#
53-6#
53-34#
53-35#
53-36w
53-37#
53-38#
53-39
53-404
53-41#
53-7#
53-424
53-43#
53-44n
53-45#
53-464
53-47#
53-48#
53-49#
53-8#
.53-504
53-514
53-52#

53-54#

53
53
53
53-0n
53
53

e S

——)

201=4l3O=0‘9&“rMPN2W4yIN5”0M2POy5“O9“e2&539—o7MN”70eMO0W”4eO—8¥60M&y3oN7sM”=MTO)?a—S—0O2w6e3N94=5IP0h5—O&TOPN&9tORO”—AMeNO21)=102g”l940NM3N2WOs\”&1Ns5IS22Nn7O?35WNMIZ”9%NST5S1OWT&2N0”7-NO5N4I”NN3"N"TEVToOTOVOON
>0”Ry3u7%2T92O93B“I417fi8934mb1LW3“X6»89an5yG9M62—9RMWbw—1”=010019¥e3-BO931‘AA2NNO2O3”=nx9nS-1-MyNR0B3w739osn66N”32wyn 567”90 wWMIVNOMN
4[+ 4* eelLl 3XOTSwyAV.ER 5ese[ Llwgsilna¢}la[al¥n1L"aAYl:

wogg—a—LPbl]BRyegooeMWMr—llcweeNat0olAloa—l@dlaRNOo=o—fllrMTeSINelaJalIllPNNPaFaeRllaOgAaOo\llOb8NlPRC3oaUdPlaiGNaeNoeOllTl.gBihAlleNaae9llriRPOaiMOeaelGlllNN—aVeaeRllllOIaAoaelT3lllaMgNRiaooRllOlPlgaADiieeA—l=lllORaioMl—allTVMoNieaelG-lllOPaOaoa@lRlIldNTaRNoelelllTTTaI0laooP=loOaNlRieolO=lP—a=lRaLeoAn.=Ml=lasOlloo—aOS=l=llViNoaeAT==lgeaOltlNdI=elaMl—Noe=ll=PWalMSeeTllIlPPlAiLOLNNaPllRlARyo-T—AA>wTTU1>TR2D>3yTmA>s WWWHV?M?VH@M&WRRRRWMRW
8t"ala”lalba8lla4bala”a1li”alia8la“li5al9al“ia”l0al5ia“li9al2alia8la3la“la3lala3la6l

R—”eM“lO7o—1lPMeyl\NeO2lo\lLJ2oOPl3Ro9MlOo2RP l0NyVYoOy”Rlo9RTlMRoOmol0A=O o7ORlNo9RlYe2RlOo3NRTlo7=lOolNo1RloNlI—NLMl
ER09Y0¥Y0¥y7YnTGe0RPTRTP r YSTQrTRBB rYIRT T*TTL T
YsTPa15Selo63¥Rlo9lSRa43TlTlee So”3»leRaT5lo3lTTayR3aoR7lTBl73TiaA&T&aoP3lla%SR Ya32iXlTa0MMlas3lluYia3iTs3& =a31=l9==35&=oTa}uT==e&el3T=eoa=e0N3¥eeTlGMVyo))
vM4aae
loUUVeoltlloMtYRoNL=e aalaFMoltdfMlaaolRotawlatSall0tlatlotlalati5alUUlaol|l03aallaRTllaaTlyaaRlleoalloaVllePSaaillaa3l=laoll=e5L.all8a=UeliLaSe.l3a=elaae8lalCle
jelololele)

B<%VBN1D DTYXRIBIIt

eWTMwWNeoeOu~wNWMXirwx iaxeax e3aE00RwEvTMEET300ETEI-neOE\N00ETEE00EE
ttt
1V R
CZRMNBO RM0S/3/2 FCTINL

CROSS REFERENCE

20-35
22-b*
28-22+
42-1%

TABLE

ANS2X3-VAESaoglaXliBaylNaRolaola _R¥B&ry aole"l"l"il"ldl}aataaaaaaaa NRBT»G bR"Y¥t RAON,IN*-BLRuGr1x aotlVaialil-la Me=)
42-1+

TST 2

(CREF

TRy~

20-35
22-7+
28-51+

v01-05

44-52

25-86

20-39+
22-13*
28-51x
43-1

10-23+

MACRO v04.00
)

-25-

102
44~ 57

10-23»

30-12
43-1«

20-40+
22=20*

4-APR-B1

44-64

25-136

1
11:43:33 PAGE
7
S-19
.

3'X*r

10-23+

L4<1604

10-25+

L3-1»

20-70~
22=21+
30-12

44UNXBBNN0--[}——pOeMegUSpOeN.lg0o-|L)hlLWMZH&7y21&5%2&1915756?26&58&51L

2—alMoNyeOWOnN-OIMNOR~NLG70o45N]o9Nla42lMaV&7las9lNaV2l)alw&Niao0lNauM5l)ay4Nla5Nla9lNay5lNaw3lNaM7laulNaslANauUlayl—Na9MlaOulNalNNaslVanlONay—lNaI9lNNL&aOl%NaNboTaNlOnaMlauNlMa7lOiuaMlNWaMlAa9NlNimaIl3NaMl2Mal09al12Mal6%al

w—OIoM5O7[}N4v6l3f|r7(—”U%1302L7%30165-TMOLMMya”ON]—l?aUMllMTaMLa”AlauOQaOL.lTNaA“lTOaWaNlOOAo?lQNa—Il.WNlMMaSlLOIaOlT,aa0OSlAa2l4f7all904afl222ia443&la976Vl114aVl335aI7l60Ha194El3aN1&lL66a3Hl982Aa1l099a6A58l7Ca77l90a8&C5l38@a6l7“s8a102sl3ra5a7lra8”a0l2“a5l“%87a9”l?NENa32”_la63%NlYo0”9iYao3&2l[o
[v¥]

3rNL.—M.— @Xw o-~— OW=~v\M L~er LogP.-sl UL Ldo=lk NIU|1\-N@y3ar—I0 LoYegGl LU1|*N—(oWByNeD oONW |(NUL 7-—r—MNMMONO.rO%N—q MOUMNMO (g=LGu,=sMMN~MO

MN0O T—ONRA~TNTN~TT

N ONDO NNV

ONONO Ne—=NO"MOO
Uw4OOo) O—NN|OobUoLn MiN|l
0YTooO VLTSV
OONONNOCOVYN OO
MU ] eUL=ro UM -)
~MO RoMalal.al oLaBN

p Bb3y ¥R XLtRyR

R R Rt

—N—M~OJ.BO-JNeu—)*=3+@9B—7M5O2=~=10”M7=¥[~}423OgMaYgV437%eMMA=YO32mTN45AAMINa39APO—RRSf2=TMNgiN35%MMe_A”TR0RNmu3%2=VTOM0AwrC7NMTT0Mn30IPTTRRT0fND2aMVT0lOYAO38MT0«T0YWME0Vt=ATT0NA35MO«iTMYE4JYbRT366P%VMTYAaO<9qTMM=P0YYs3D2¢=IRTT0NVy1»VMTOAYi30OYM=TYJ—VAATTAOn3}MOMeTTYYR3NYIYoeTTP4MMe_TTYT.YO.3}MMNe.TTTY.)Y_43AVVeM.eTT.AIT.3}MN.eMTTTY43,MV.LYYO=TT\YYo/3A.RMT\TN%—,.NT\3T,}M.MexTY%TTORT4IR3—TO}MMC3TTMM»3—TIN}MR¢3eTINM43MTTI}MT{IOIOM4nTwAI,N}M1MPTT—[IM>.JIeAuIRn}6NMuNwI,
N(\Me—or—0eo—MJ —eM—Ir0NNOrOMVOrN=eINNT—E TIRo"XoloonlSoolRololda»doLlolbdket
yoRlo0klotlaadRol0Rol0o0oladOon0doRRRR laL¥TT oOdgA0aAaYedLAgRTeTlTTXTMadTeBtTololTRanTvdoyTX tToForiT t
R
&
k
R
R
R
B
T
[
T
R
R
2
%
ooeMUlLalN"alOa|s MNOMeONMNY1ONNOOOONIMM M-- [N}
g—~-yov"t OgguWgiON]A
4-APR-81

[=— L )

oeagLdtl12492481.389178057VT03N7168O2“9370380592

e i Mt R FA M RD A M RY M R R MY A Y M R MY R Y MY MY MA Y MY MR MA RN RN

RXTb3

OMON AMONNl al al al WL5A
o o0 0 @

CZRMNBO RMOS5/3/2 FCTNL TST
2
MACRO v04.00
(ROSS REFERENCE TABLE (CREF v01-05 )

7
J
11:43:33 PAGE S-20

'SEO 0295

Iw0VelNO

16222
50-81

25-379

25-384

HCI

HCRC

HELP

16-222

25-386

35-348

35-355

35-391

35-394

1AE

41-1

44-90

26-132
50-85

29-67

33-24

33-78

43-1

50-82
43-1

IBSAVE
IgXHSK
I
ILF

43-1

43-1+

43=1»

431

25-157
50-71

32-51
50-72

32-111
50-73

33-24
50-75

32-51

32-97

32-101

33-232

10-23+

11-17
44844

4=571#
50-77
43-1

26-89
50-81
20-54

ILR

ILRGS0
ILRGS2
ILRG54
ILRG56
ILRG60
ILRG62
ILRG64
ILRG6%S
ILRG70

ILRG72
ILRG74
ILRG76
IOTVEC
1PCKO
IPCK1

IPCK2
IPCK3
IR

= A NN =

33-23%9

35-128

35-348

N =2 =d e

N NI 00 N
WO WO

i e SN

UL
¢

b
—

—

WVi—

33-236

25-429

35-190

50-59

50-69

33-48
50-79

35-128
50-80

35-145
50-83

35-148
50-84

50-58
50-87

50-67
50-88

35-131

35-134

F3335 eI &

ILF74
ILF76

25=401

35-172

ILF40
ILF&42
ILF&4
ILF&6
ILFS4
ILF56
ILF64
ILF66

21-48

24=104

13=472
13-930
13=->51
13-(96
24-109

33-81

ILF32
ILA34
ILF36

21-45

50-86

ILFO2
IL¥ 24
ILF26
ILF30

26-105

50-85

50-77

NNWVN

13-E76

35-39¢4

D i oy

13-D50

35-391
35-344

35-378
4=-652#4
4=573#

13-400
13=-905
13=>05
13-C67

13-D43

10-28
4=5744

13-298
16-87

¢
N

GTSWR

24=125

13-247

|
OLN\.NWWV

25-54

13-F 14
35-342

13-:71

—a e NN
=
—
O -\
O—=
0 H&

47-1
13-208
13-686
13-:;70

P
Y o

47-1
13-105
13-593

oo~

47-1
13-80
13-568
13-:26
13-297
13-ES59

47-1

13->92
13-D81

HCE

K
7
11:43:33 PAGE S-21

SEQ 0296
S SS

47-1
L=4964
13-497
13-976

4-APR-81
I
U\WW\.NWV
~n g O O
=\
==

NNV v

jolelal.]

(ZRMNBO RMOS5/3/2 FLTNL TST 2
MACRO v04.00
CROSS REFERENCE TABLE (CREF v01-05 )

CZRMNBO RMOS/3/2 FCTINL TST 2

TROSS REFERENCE

IvC

LBC
LBT
LF
LODEV
LS
LSC
LST
LSTRK
MCLK
MCPE

MDF
MDPE
MEDENS
MFGFIL
MI

L(=6774
35-115
50-72
50-86
4=6794
4=557#
L=4L84H
10-128
4=6344
L-6784
L{=6354
7=0#

29-53

4-608#
L(=7184

4{=6134
L=7344
7=0#

16-61
4=6164

MIXED
MOC
MOH

52=44
4=-6114
4=642#

MRD
MS

33-158
4-609#
L4=6144
L=6174

MCL

MSC

MSDRVS
MSE

4=555#

11-64
4-685#

MSER
MSGDRV
MSHELP
MUR
MWD
MWP
MXF
N
ND TMSK
NED
NEM
NONE
NOP
NOTAVL
NOTPRS
NOTRM
NSA

L=612#
12-69
11-11
4=610#
4=6334
4=6154
4=7334#
11-19
4-583#4
4=730#
4=7314
12=7
4=500#
10-116
10-113
10-107
4=6404

OFFSET

L=506#

occ
OFD

(0]

ONES
OPE
OPI

4=6214
4=6534

4=562#

13-462
4=6764
4=568#
36=42
50-70
50-84

TABLE

(CREF

13-801

35-546
50-73
50-87
35-232
25-358

41-1
49-28#4
31-82

35-232

MACRO V04.00

v01-05

13-805

36-58
50-74
50-88
35-250
26~91

)

13-832

50-58
50-75

4-APR-81

11:43:33 PAGE S-22

SEG 0297
13-836

50-59

50-76

25-198
50-60
50-77

49-16

5779

25-199
50-62
50-78

29-85
50-63
50-79

29-208
50-64
50-80

33-92
50-67
50-81

50-68
50-82

33-99

33-102
50-69
50-83

33-171
50-70
50-84

35-111
50-71
50-85

13->44

13-243

16-58

16-363

16-384

17-50

26-62

29-195
35-533

32-37
36-35

32-40
36-36

33-68
36-40

33-145
36-45

33-146

33-153

33-24
50-63
50-77

33-61
50-64
50-78

33-64
50-65
50-79

33-155
50-66
50-80

35-83
50-67
50-81

35-86
50-68

35-530
50-69

35-255

26-93

41-1

44-88

34-70
35-266
34~-70

35-269

12-64+

13-955

13-964

13-=08

13-=99

24-109

24=122

24=-125

35-27

35-30

35-438

35-441

29-162
35-506

29-167
35-528

16-40
16-273*

16-283+
16-322

61-74

29-146
35-88

29-156
35-252

29-157
35-505

35-50

35-63

35-66

24-74

24-78

28-31

33-204
52-21#4

34-29

35-453

35-456

29-164

32-51
50-60
50-74
50-88

32-69
50-61
50-75

32-73
50-62
50-76

17-29

34-71

13-A41

13-a98
33-201
13-651

29-140
50-58
50-72
50-86

50-59

50-73
50-87

50-82

50-83

CZRMNBO RMCS/3/2 FCTINL TST 2

|
|

4L=7354

PACACK

&=510#

PAR
PAT

4=578#
4-7384

PAKACK

PDA

PFECH
PFECH]
PFECHZ

PFECH3

PFECH4

PGE
PGM

PHA
PIP

PIRQ
PIRQVE

4=S09#

4-628#4

44-67
44-172
44-172

44=172

44172

4=7324
4(=-558#

L=-629#
4=554#

36-72

4-484H
4-484#

PLFS
PRO
PR1
PR2

L6264
L=484H
L=484n
L=4 84K

PR4
PRS
PR6
PR7
PRIERR

L{=484H
L=484H
L=484H
L=4L84H
13-97

PR3

PS
PSEL
PSW

PUT

4=484H

13-827
13->32
13-€72

4=484
L=719#
L=4L84H

13-63
13-525

13-:08

PUTBUF
PUTINX

PWRVEC
QUES
R6
R7
RCLSTS
~L
:’(-'m
POLIN

RDOCT
RDY
READY
RE CAL

RESREG

13-265
13-E40
7-0#
7-0#
13-687
13-200
13-F15
4-484#
L9-64
4=4 844
L=484H

15-213
4=525#

11"12
46-1

11-35
L=722#

12=37#
4-503#

44-156

TABLE

16-11
4-51

24-13

(CREF

NOO

(ROSS REFERENCE

MACRO v04.00

v01-05

5-125

)

4-APR-81

M7
11:43:33 PAGE S-23
SEQ 0296

4=141

24-153

29-30

33-24

33-29

33-34

35-41

35=46

16-150

29-156

29-177

29-182

33-145

33-216

33-221

34-29

35-505

35-511

35-516

36-35

441724
441730
441764
441794

44-1814

34-29
15-180

36-77

42-5
12-49
10-26

42-9
13-6

22-7

23-1

28-22

30-14

13-118
13-847
13->76
24=-414
4=4844

13-199
13-922
13-220

13-316
13-:38
13-a%91

13-389
13-:14

13-514

13-A29

13-412
13-:34
13-A99

13-:91
13-830

13-535
13-<12
13-888

13-610
13-<74
13-C12

13-630
13-<95
13-C88

13-703
13-=58
13-D09

13-726
13-=77
13-€51

13-87

13-211
13-693
13-.80
13-A19
16-88

13-262
13-716
13-<02
13-A72
16=-120

13-286
13-793
13-<63
13-A88
16=154

13-306
13-817
13-<85
13-B19
16-183

13-355
13-837
13-=46
13-877

13-379
13-888
13-=68
13-C02

13-402
13-912
13->21
13-C77

13-480
13-932
13->65

13-504
13-984
13-209
13-D90

13-56
13-786
13-256
15-126~
10-23+*

13-108
13-600
13-:79
13-269
13-F23
16=-284*
13-81
13-811
13-205
15=127*
10=23*

13-255
13-977
13-299
15-188+
48-1»

13-280
13-:02
13-A13
15-189«
48-1+

13-348
13=:7¢2
13-A69 *
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

10-23

10-23+

16-171

33-15#

11-65

11-82

23-21

47-14
23~22

13-576
13-:28
13-a14
13-£62

16-49

47-14
11-49
14-24
15-185
“7-1#

16-153

31-33

21-32

48-1+

21-28#

13-(99

13->56
13-e31

.
.

CZRMNBO RMO5/3/2 FCTNL T1ST 2
MACRG V04.00
CROSS REFERENCE TABLE (CREF v01-05 )

| RESVEC

"
'
,

REX
RG
RGDTPT
RH

RIP
RLEASE
RMAS
RMAS|
RMASO
RMBA
RMBAE
RMBAE
|
RMBAEO
RMBA
I
RMBAO

RMCS1

RMCS11

RMCS10

RMCS2

RMCS2I
RMCS20
RMCS3
RMCS3I
RMCS30
RMDA

RMDA
[
RMDAO

RMDB
RMDB
|
RMDBO
RMD(

]

————

4-APR-81

11:43:33 PAGE

7
S-24

SEQ 0299

4=4844
4=-624m

4=622#
52-3#

(=5264
13-C00
4-508#
4=505#
L{~6944
7=0#
7=0#
L=7664
13-,;76
13-E36
L=769#
7=0#
7=0#
7=0#
7=-0#4
3=:54%
13-A42*
17=21
4=-690#
13-573
13=-=44
13-E37
7=0#
-

25-51

7=-0#
13-347*
13=714
13=:71»
13=->92+*
13-C45*
16=153*
4=7674#
30-16+
7=-0#

25-314
35-494

7=0#
L=7704
7=-0#
7=-0#4
4-6914#
13-=39
15-187
7-0#4
7=-0#
13-964
13=>45*
13-B48*

29-53

L=-768#
7=-0#
7=-0#4

4=700#

—————ee

13-522

13-:99

13-<82

13-=66

13=>05

13=>51

13->92

13-248

13-297

13=A11

13-816

34-50

59-13

13=11»
13-<59
13-F19

13-12
13-=43
16-68

13-83
13->14

13-185
13->61

13-282
13=205

13-375
13-261

13-500
13-310

13-596
13-276

13-689
13-A15

13-813
13-A84

13-908

13=:04
13-C73

13-430
13-40*

13=-742

26-32

26-34
13-209«

13-<83«
13-B99*

31=44
13-239*
13=-=21*
13=Cé4é4~

59-14
13-332+
13==67%
13=-C97*

13=457*
13=->04*
13-p75«

13=523%
13=->50%
13-E07*

13~-553«
13=>90*
13-E60*

13-646*

13=770*
13=-796%
16=61*

13-864*
13-246*
16=253

13-959+«
13-A12+
16=256+*

13-60
13-790
13-262
16=-69

13-84
13-814
13-a11
20-42

13-885
13-266

13-186
13-909

13-259
13-981
13-A03

13-283
13-:05
13-A16

13-352
13-:76

13-376
13-.;01
13-B74

13-477
13-,77
13-C74

13-501
13-<60
13-D88

24-=108
35-31
13=-240*
13-593«
13-960*

24-122

24-124

24-126

13-279%

13-FQ9=

13-=22*
13-A76%
13<-F14%

24-110
59-13
13-254*
13-618=
13-976*
13-=37*
13-B16*
15-125+

13-647+
13-:01~*
13- =66*
13-B53«
15-185«

13-304+
13-661=
13-:26*
13->05+
13-B&7*
16-87*

13-333«
13-686+
13-:55+«
13->51~
13-C00*
16=119+

13-15

13-16+*

20-41

21-35

28-27*

28-29

13-:55*
13-A53*
18-31
L=764K
13-597

13->16
13-F21
16-209
25-53
5

-4

13-372*
13-771x
13-:97*
13-248«
13-C67*
16=-182*
10-84*
30-18+
13-416

13-106*
13-<00*
13-B17*
26-26
10-89
13-666
13->62
15-126

24=67
25-64

13-55«
13-400*
13-785«
13-,22*
13=-297*
13-C96*
16-304
10-85«

13-141+
13-<38*
13-B52*

26~=30

13-8«
13-690
13-206
15-188
24-69

25-107
13-80x
13-4 b 8«
13-810«
»

13-,56%
13-47*
13-D76*
17-26
10-87

24=71

26-12
13=105=
13=472*
13-835«*
13-,70*
13-261*
13-D81«

25-28
12-58*

24-88
31-31

13=142*
13-497*
13-865+
13-,99*
13-@73*
13-E08*
2648
12=59*

13-161

21-36
24-90
34-16
13-156+*
13=522+*
13-880*
13-<39%
13-298+
13-E30*

13-277
23-20
24=93
35-27
13-182*
13=554*

13-13

13-905+
13-<53«
13-A11»
13-E59+«
35-340
13-14»

35-320

28-28
24=104
35-29
13-208*
13-568*
13-930*
13-<82*
13-A54*

13=247%
13-F08+

13-A85

13-873

25-329

25-344

13-423
25-455

26-28

13-730

13-734
"31-53

13-736
35-50

2449
35-63

24-74
35-65

24-76
35-67

24-77
35-438

. 25-99

35-440

25-170
35-442

25-271

13-57
13->11
16=64

13-158
13->57

13-256
13-201

13-349
13-257

13-474
13-206

13~570
13-263

13-663
13-A00

13-787
13-A80

13-882
13-B69

13-978
13-C69

13-:73
13-D83

13-:72
13-E32

13-<55
13-F16

13-38«
13=:51»
13->88+
13-C42*
29-56
13=17»
13-438

59-14
13-138«
13-:51*
13=-228«
13-EQ4*
29-60
13-18
13-750

59-16
13-236*
13-,60
13-229
15-184~
35-178
13-434

13-329«
13=<24*
13=234»
16~58+«

13=454*
13-<25
13=743«
16=232*

13=550+
13=-<34*
13-244»
16=233

13-643*
13-<43

13-860*
13-=08
13-293x
16=-299

13-861~
13=-=17+
13-4 3*
16=397~

13-869
13-=99+

13-955=

16-235

13-768*
13-= 07«
13-785
16=255«

13-956%
13=244%
13-A58

13-58

13-159

13-257

13-571

13-664

13-788

13-883

13-979

35-496

26-137

13-421

59-13

35-181

35-185

13-35

13-475

13=-746

13-784%

35-492

13-a51
17-24

13->00*
13-A50*
26-60

26-61

13-:74

13-;73

13-<56

19-20

CZRMNBC RMOS/3/2 FCTNL IST 2
MACRO Vv04.00
CROSS REFERENCE TABLE (CREF v01-05 )

13-=40

RMDC|
RMDCO

13->58

26=150

59-14
13-137»
13=<33»

13=37»
13-:50+
13=A49+
10-86

15-122

gavg=
e

—

7-0n

13=->12

16=65

26~-92
29-210
33-159

43R 3333
5278

RMUS
RMDS!

15-186

35-88
35-534
36~-78

13-202

59-16

13-235+
13-=16+
13=C41+

13=B847+
10-109

15-180
29-91
29-212
33-169

13-258

13-a07

13-a64

13-A01

13-A81

13-870

13-(70

13-p84

13-£33

13-F17

13-328+
13-=26
13-E03+

13-453+

13-=89+

13-642+

13-767+

15-183~

13-549+
13-=90
16=57+

16-298

16=396+

13-859«
13=>87+«
17=23

13-954+«
13=242+

13=:50+
13-292+
29-49

13=-:69
13-a33+

13=:70+
13-a34

24=106
29-162
32-25
33-185
35-318
36-34

25-38
¢9-166
32-27
33-187
35-453
36-40

25=40
29-168
32-37

25-85
29-177
32-39

35-455
36-44

35-457
36-46

25136
29-183
33-68
33-205
5-511
36-60

25-140
29-192
33-106
33-216
35-515
36=61e

25196
29-194
33-144
33-220
35-517
36-62

25-223
29-196
33-153
33-222
35-528
36-72

13-E76

13-£81

16-116

13-298+

13->48+

25-102
29-181
32-41
33-203
35-504
36-56

26=59

35-174

44-26

10-91
59-5

18-32
19-15
18-53

31-9¢4

24=145
13-C16

13-c22

24-152
25-492
32-55
32-114
33-155
35-47
35-189
35-356
35-479

25-470
31-71

RMER20
RMHR
RMHR|

RMMR2
RMMR?|
RMMR20

11:43:33 PAGE S-25

SEQ 0300

29-146
31-126
33-173
35-119
35-548

18-25

RMLA
RMLAI
RMLAO
RMMR1
RMMR1
RMMR10

4-APR-B1

13-B04

25-432
33-101
35-114
35-284
36-112

34-94
13-p17

24=154
26-89
32-57
33-24
33-232

26-132
32-71
33-35

27-24
32-72
33-45

3
35-279
35-365
35-481
13-832
27-27
33-103
35-116
35-466
59-13

25-284
29-37
32-85
33-49
33-254
35-135
35-301
35-391

25-361

15-55

16-84

16-222

25-402
29-143
32-99
33-65
33-270
35-149
35-314
35-413

32-86
33-61
33-264
35-145
35-311
35-393

29-130
33-1
35-240
36-74

29-179
33-171
35-250
36-88

13-980

13=:75

24-139
31-116
33-266
35-256
36-96

59-16
13-A69
31-81
13-A68+

34-69

59-17

31-103

34-81

59-17

13-59

13-160

13-258

13-A77

13-A77+

13-351

13-476

13-572

13-665

13-789

13-8¢.

13-,74

1 3—( S?

CZRMNBO RMOS5/3/2 FCINL

CROSS REFERENCE

TABLE

TST 2

(CREF

L{=765#

13-,75

RTC

SA1
SA16

SA2
SAL

SA8
SADMSK
SAVREG
SC

SCO

sC1
sce
SC3

SC4
SCOPE

SCTMSG
SCTMSK
SEARCH
SECERR
SEEK

SEKSTS
SHUT
SHUT?
SIZCLK

SKl

SEQ 0301

13-259

13-a08

13-265

13-A02

13-A82

13-871

13=(7

13-p85

13-€34

13-F18

13=10

13-82
13->15

13-184
13->60

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
13-207+
13-249«
18-73

26-115

13-=20+

13-181~
13->03«
17=22

59-14
13-331«
13=246%
26=45

13-456+
13-795+

} 3 =552+
3 @65+

13-645+
13-A52+

13-769+

13-863+
13=(43*

13-958«
13-D74*

13=:53«

24-109

24-125

31-32

13-1
13-=13
13-144
13-A56

13-32
13- =95
13-242
13-855

13-134

13-232
13->85
13-460
13-E10

13-325
13-240
13-556
4«9-34

13-450
13-790
13-649

13-546
13-a39

13-639
13-A46
13-867

13-763
13-B44
13-962

13-856
13-C34
13-:57

13-951
15-D97

13-:47
14-9
13-<41

13-;47

25-104
13-122
13-946
13-780
13-55
13-177
14-20
45-1

26-5

13-203
13-:22
13-229
13-156
13-275
14=22#
45-3#

13-300
13-.18
13-A33
13-347
13-493

13-320
13-,38
13-808
13-472
13-589

13-393
13-,95
13-839
13-568
13-682

13-518
13-<16
13-B92
13-661

13-539
13-<78
13-C26

13-614

13-634

13-831
13->36
13-E9

15-178

16-148

29-70
35-204
13-232
13->85

59-17

13=9+«

4{=5974
4=5964
4L=595#

33-119
36-111

)

11:43:33 PAGE S-26

13-203

13-<S8
13-E35
13-F20
7=0n
. 18=72
7=0#
13-39«
13=:54>
13=<37=
13-F07*
16=59+
4=-662#
31-104
4-6634
31-104
4=507#
4=5444
4=5404
4=5434
4=542m
4=5414
4=548# 26-68
47-14
44-13
L=7164 24-92

4=5944
4=593#%
L=484H
13-<30
13-43
13-249
4=599#
4-5134
13-101
13-926
13=224
4-502#
13-76
14-16
45-1
12-28
L=675#

vO1-05

4-APR-81

13=>59

13->13

7=0#

MACRO V04.00

22-34

33-218

13-=42
16=-66

13-140=

16=301
34-82
34-82

13->41
13-335

13-C47

13-225
13-:42
13-295
13-254
13-368
45-6

35-173

4=-6454

13-134
13=->41

12-42

14=27

13-238+
13->91#

26=24

13-773

13-B50%

13-:58

13-E06+

13-224

13-806

13-785
13-901

13-<99
13-C92
13-880
13-997

13-D58
13-976
13-:92

13-707
13- =81
13-£55
13-:721
29-19#

29-100
35-206

29-102
35-207

29-106
35-209

29-117
35-221

29-179
35-513

31-117
36-74

33-92
36-89

M 3=

13-325
13-240

13-450
13-290

13-546
13-239

13-A46

13-639

13-763
13-B44

13-856
13-C34

13-951

13=-:47

13-=62

13-D97

13-851

13->80
25-24a

—

STSD3
STSD4
STSF
STSH1
STSHZ2
STSH3
STSH4
Wl
SwO0
Sw01
Sw02
SWC3
SWO4
SW05

SW06

SwO7
Sw08
Sw09
Sw1
SW10
Sw11
Sw12
SW13
SW14

SW15S
Sw2
Sw3

SWé
SW5
SWé

SwW7
Sw8
SW9
SWR

SWREG

SYSTAT

TA1
TA16
TA2
TA4
TA8
TADMSK

TAG
TAGADR
TAP

TBITVE

TIMOUT

36-27#
4=4B4#
42+
55=1
55-1
59-16#
55-1
56=1
56=11
54=1
54-1

58-25#4

54~
L=4L84LH
4-484
4484

(=484
4484
4=484
4484

L4=484

(=484
4=484
4484
L~4L 844
4=484K
L=4 84K
L=4844
4=4848
L=4 84K

L=4L 84K

S-27

SEQ 030¢

42-54
55=2
55<2

55-8
55-8

55-10
55-10

55=2
56-1
56=12
54=2
54~2

55-8
56=1
56=12
54-8
54-8

55-10
56=2
56=12
54-9
54-9

54=2

54-8

54-9

N_'a
—_—
~n
o

STCDRV
OSTRLMT
STUP
STSDT
STSD2

11:43:33 PAGE

[+
AV IRV
1V]

|
.
|

L-APR-81

CZRMNBO RMOS/3/2 FCTNL TST 2
MACRO v04.00
CROSS REFERENCE TABLE (CREF v01-05 )

59-13#
59-14#

59-17#
56-8

56-8

54-12
54-12

54-13
54-13

58-21#4
58-234

54-12

54-13

58-26#4

10-28
43-1

13=-267
13-720
13=-<06

56-8-

56=10

16=-245
43-1

42-1
43-1

42-1
44-14

13290
13-798
13-<68

13-310
13-821
13-<89

13-360
13-841
13-=53

56=10

56=11

56=-11

L=484p
44844
L=484H
L=4844
L=4 844
4=4844

L=4844

L=484n
L=4B4A
L4848

16-245
:

44-14

L4844
L=4 844
L=4 844
4=4 844
L=484H

L=484LK

4=4L844
L=4L 844
6-0#

L2=1x*

48-1*

S=1#4

10-76

4{=5374
4=5334
4=536#
4=5354
4=5344
4=547#
L{=-6644
5-9#
L=6414

4=484#

13-68
13-529
13-:12

10-23

10=23«

42-1x%

42-1x

42-1x%

10-23+
43-1

10-23~
43-1

10-23

10-28

45-1

13-112
13-604

13-169
13-624

13-193
13=674
13-;28

13-215
13-697

49-234

42-1
45-1

42-1

481

12-64
12-64
12-56

26-66
6-0

13-91
13-581

13-:32

13-:84

13-:08

13-.85

13-383
13-893
13-=72

13-406
13-916
13->26

13-48S

13-936

13->70

13-5C8
13-989
13-21¢

MACRO v04.00
CZRMNBO RMOS/3/2 FCTINL TST 2
CROSS REFERENCE TABLF (CREF vO01-05 )

13-270

TKVEC

TPVEC

TRAPVE

TRE
TRTVEC

TST

TST1
TST10
TST11
TST12

TST13

TST14

1ST15
1ST16
1ST17
TST2
TST20

15121
TST22
TST23
15724
15725
15126
15127
TST3
1ST30

1ST31

1ST4
TSTS
TSTé
1ST7
TSTNMB

TSTPRP

TSTQUE

TYPBN
TYPDS

TYPE

15-136

L=4B4k
4=48LH
4=4 84N
4=7174
4=LBLN

L=-6654

13-14
13-639%

13-7634

13-856#4
13-9514

13=:47%
13=:478
13-<304
13=-=134#

13-32#

13-=95#
13=->414
13->85#
13=2404

13=-2904#

13-239%
13-A46#
13-B44k
13-1344
13-C34#
13-D97#
13=232#

13-325#

TYPON

TYPOS

uo
ul
ue

UNS

UNTMSK

5=158
45-1+

13-a85
16-96
45-1+

10=23+
16-209

24=92

31-}05

34-83

42~
42~ 1
42~ 1
42~ 1
42-1
42~
42~ 1
42- 1
42- 1
42~ 1
42~ 1

SEQ 0303

16-128

13-A23

16=162

13-A93

16=191

13-824

13-882
23-9a

13-C06

24-109

24-125

25-106

25-108

26=12

13-468
13-a01
12-59
13-<30
14=17

13-564
13-a57
13-1
13-=13
14=17%

13-657
13-A64
13-32
13-=95

13-781
13-B12
13-134

13-c82

13-

D03

13093

13-D93

13645

13-£45

13-

13-E66

13-F26

13-:65
13-D79
13-450
13-290

13-;66
13-E18
13-546
13-239

13-<49
13-F12
13-639
13-A46

13-=33
15-38#
13-763
13-B44

42-1
42-1

42-1

44-104

10-45
L=7424
4=7428

{=7408
L=5678
L=74L68

5-28

42- 1
42~ 1
42- 1
42~ 1
42- 1
42~ 1
42- 1
42- 1
42-1

42-1
4L2-1
44-45%
13-152

45-1
10-8
47-14

10=-23»

11:43:33 PAGE

13=4504
13=5464
44-44+
13-51
13->08
7=0#
13-856
13-C34
44-149
14=20
10-6
10-128
11=44
12-7
13-867

38-1

TYPOC

13-219

4-APR-81

13->54
12-8
13-951
13-D97

47-14
14-20
10-28
10-131
11-48
12-14
13-962

4447
13-250
13->66

12=-9x*

13-:47
14-11

44-143
10=-42
10-132
11=54
12=25

44-159#
13-343
13-252
12-50

13-:47

14-13~

13-876
13-B63
13-232

28-24

13=->41
30-17

13->85
31-56

13-972

13-C55
13-325

13-240

34-53

L7-14
10-48

10-133

11-61

12-30
13-:58

44-110
45=1
11-33

13-:57
40-1
44-114
45-1
11-47

41-1
44=126
45-1
44-146

10-56

10-81

12-16

12-70

44=22

L4-47

44-52

44-54

“7-1#

31-72

32-51
24=52

32-55

32-59

33-232

33-264

33269

35=279

35-282

39-1

24=50

35-287

CZRMNBO RMOS/3/2 FCTINL TST 2
(RO v04.00
CROSS REFERENCE TABLE (CREF v01-05 )

|
|

WCE
WCEMI
WCELC
WwCF
wiH
WD
WH

WwLE
WRL
XSIZ
XXDP
Y

ZEROS

«=5764

L-518#

4=S521#
L(=522#

13-686
13-=37
13-F14
4=5704
L=5564
10-70#
7-04

L9=-364
13=45

13-D11
16=256
15=122

17-29
16=266+
16-116

¢~19
35-70

2991
5~11

13-416

13-422

13-730

13-735

4-583
13-304

25-240
13-40C

35-479
13-618

13-41
13-771
13-a47

13-80
13-810
13-273

4-583

25-221
35-318

33-175
31-82

35-342

25-223
11-71

34-29
34-70

16=274

16-32

29-157
35-506

29-206
35-544

25-169%

50-77

50-78

35-482
13-714

13-835

13-930

13=:26

13-;22

13-142
13-865
13-A54

13-182
13-905
13-A76

13-240
13-960
13-853

13=279
13=:01
13-B67

13-333
13-:55
13=C45

13=-372

25-225

25-238

25-253

25-268

N =

25=270

-2

49-32#
wwos

WCD

L=729%
L-686#
16=253
4=5614
33-169
L(-6314
L=517#
4L=728#
4=753#
L=754LK

S-¢29

495-34

ownry

10-120
10-131

U\?—l

|
|

UNTOFF
UNTON
UPE
USE
USRFIL
vV

11:43:33 PAGE

4-APR-B1

29-211
35-549

32-23
36-35

32-26
36-36

33-106
36=56

33-145
36-61

33=14¢

13-458

13-497
13-:70
13-D81

13=554
13=-<39
13-£08

13-593

13=C67

13-:56
13=D76

13-647
13=-=22

35-279

35-311

35-315

35-323

50-81

50-82

13-(49

13-£12

52-38#

13=:97

10-33+

11-101
10-36+

10-37

10-39~

10=44

10-55

10-124

10-126

13-146

13-244

13=337

13=775

13-871

13-966

13-:59

13-R57

13=-<53

13-£30

13-F09

CZRMNBO RM0S/3/2 FCINL

CROSS

.
|
|

$$CMRE
SECMTM
$SESCA

SSNEWT

SSSET

SSSETM
$$SKIP
LSACTI
-$APTB
.$APTH

| SAPTY

JSBCATC
-SCMTA
-$EOP
-$ERRO
- $POWE
- $RDDE

REFERENCE

TABLE

S=10#
5=10#

6=0

6-0

13-1
13-=13
47-1
10=-23#

13-32

L=484n
L=4844
13-<30
47-1
10-23
L~484H
L{=4764
L=4L76H
L=4L764
L=4L764
L=4728
L=4738
L=473H
L4=473%
L4=4758
L4=474LH

(CREF

MACRO v04.00

v01-05

)

4-APR-81

9
11:43%:33 PAGE M-1
SEu 030

6=0

6~0

13-=95
L7-1

5=5
6=0
5-8
482
5-1

6=0%

5=10

14-20
43-1

48-1

0 0 00N 0

‘e”TP14T‘1R04SyF‘"EA4ESR4"E%R4ER—U"rA4—D‘r,U—4LrP

I MMM NNNN
NOON—

Vo—IA0LNTAV.INtAv.NIyoAPTaRNIswAaMTNwAMrAiNIRaAANoIALaN.IRwAA.TNOLr.INI~M.VNwI.aN

TST 2

4=1874

4=201#

~r ~ 0 o
)

13-4
47=1

L7-1#

CZRMNBO +.10573/2 FCTINL

(ROSS REFERENCE

4=4844
13-<30
L=364
13-<30
L(=4844

21-59

PUSH

PUTREG

REPORT

RGBFMC

SETPRI
SETTRA
SETUP
SKIP
SLASH
STARS

46-1
4=4844

22=4

48-1
4=44208
4=484H
4694
L=4844

47-1

4= 844
L=484H
L=484H
L4844
13-232

13-951
13->85

13-D69

16=213

41-1
L=4LB4H

TABLE

13-1
13=-= 13
13-1
13-=1
13-1

22-20
48-1
13-4
22-5
48-2
7-0
12-49
47-1
10-23

5=5
13-232
13-951
13->85
13-D71

16=-290

42-1

10=23

TST 2

(CREF

MACRO v04.00

v01-05

13-32
13-=95
13-32
13-=95
13-19

22-21
48-1

13-13

23-9

)

13-134
13->41
13-134
13->41
13-23

23-35

48-2
16=47

24-143

48-2

7=0
42-5
47-1

42-9
47-1

5-8

13-325
13=:47
13-240
13-D97
16=294
43=1

10-234

4-APR-81

11:43:33 PAGE M-¢
SEQ 0306

13-232
13->85
13-232
13->85
16=71

13-325
13-240
13-325
13-240
16-278

13-450
13-290
13-450
13-290
16-288

13-546
13-a39
13-546
13-239
16-398

13-639
13-A46
13-639
13-A46
17-65
30-25

13-763
13-844
13-763
13-B44
18-95
31-60

13-856
13-C34
13-856
13-C34
19-25
34-58

13-951
13-D97

13-951
13-D97
19-26
34-59

13-:47

13-;47

19-27
37-1

20-70
35-1

24=147

24-151

25-128

28-20

30-12

31-54

34-51

18-17

19-10
34-52

19-11
37-1

39-1

46-1

20~-35

21-29
48-1

47=1

47-1

47-14

48-2
16=-262

45~ 1
47~ 1

16-281

25-131

16-297

28-51

17-20

19-12

JRMNBO RMOS5/3/2 FCINL
TABLE

(CREF

MACRO v04.00

v01-05

11:43:33 PAGE M=3

SEQ 0307

=-F ookL

(lzlfXlRnlfilfiSlnR“Iln./fEi

4cNOMOM

4-APR-81

)

sTl
<d[x>>>>Y>L>>-0
00egEgID0I DeIv RLy—3O
CDDOO3383333
L ¥L)y 0
w3O
) Nno OeL ONNoU]
8VoY Lo

CROSS REFERENCE

TST 2

8-42
8-84
8-1c26
8-172

8-215
8-257
8-299
8-341
8-384
8-426
8-468
8-510
8-552
8-603
8-645
8-687.

8-45
8-87
8-130
8-175
8-218
8-260
8-302
8-344
8-387
8-429
8-471

8-513
8-556
8-606
8-648
8-690

8-48
8-90

8-133
8-178
8-221
8-263
8-305
8-347
8-390
8-432
8-474

8-516
8-559
8-609

8-651
8-693

wnO11 vN)
ON

~5-—O~+

11Oy Ni

O|| N'

8-51
8-93
8-136
8-182
8-224
8-266
g-308
8-351
8-393
8-435
8-477
8-519
8-563
8-612.
8-654
8-696

8-54
8-96
8-139
8-185
8-227
8-269
8-31
8-354
8-396
8-438
8-480
8-522
8-566
8-615
8-657
8-699

~3Ld

8-57
8-99
8-142
8-188
8-230
8-272
8-314
8-357
8-399
8-441
8-483
8-525
8-569
8-618
8-660
8-702

~5Load~0NyoO iL vMe

8-60
8-102

8=146
8-191
8-233
8-275
8-317
8-360
8-402
8-444
8-486
8-528
8-573
8-621
8-663
8-705

~5[o0~o]UL NO

[aV] ¥ L"alE

8-63
8-105
8-150
8-194
8-236
8-278

8-320
8-363
8-405
8-447
8-489
8-531

8-577
8-624
8-666
8-708

~r00L) o

8-66
8-108
8-154
8-197
8-239
8-281
8-323
8-366
8-408
8-450
8-492
8-534
8-581
8-627
8-669
8-711

o] o N
¢
8-69
8-111
U

8-157
8-200
8-242
8-284
8-326
8-369
8-411
8-453
8-495
8-537
8-586
8-630
8-672
8-714

o] M o
[+
8-72
8-114
i

8-160
8-203
8-245
8-287
8-329
8-372
8-414

8-456

8-498
8-540
8-590
8-633
8-675

8-717

o] M M
[+
8-75
8-117
U

8-163
8-206
8-248
8-290
8-332
8-375
8-417
8-459
8-501
8-543
8-594
8-636
8-678
8-720

8-36
8-78
8-120
8-166
8-209
8-251
8-293
8-335
8-378
8-420
8-462
8-504
8-546
8-597
8-639
8-681
8-723

8-39
8-81
8-123
8-1¢9
8-212
8-254
8-296
8-338
8-381
8-423
8-465
8-507
8-549
8-600
8-642
8-684