Digital PDFs

AH-F925A-MC

June 1980

333 pages

Original

159MB

view download

OCR Version

221MB

view download

Document:	CZRMNA0 RM05-3-2 RM05-3-2 FCTNL TST2 JUN 1980 bw
Order Number:	AH-F925A-MC
Revision:	000
Pages:	333
Original Filename:	CZRMNA0__RM05-3-2__RM05-3-2_FCTNL_TST2__AH-F925A-MC__JUN_1980_gray.pdf

OCR Text

RI03/3/2

RM05/3/2 FCTNL TST2

CZRMNAO

AH-F925A-MC

FICHE 1 OF 2

JUN 1980

wrmusa

BB@@EN

RNOS

/3/2

RM05/3/2 FCTNL TST2

CZRMNAO

AH-F925A-

FICflfifgfiQFca

JUN 1

fl&f?ia”“ BEBBIED

CZRMNAOD RMO5/3/2 FCTNL TST 2

MACRO v03.01

11-APR-80 13:17:48 PAGE 1

.REM

NN = OO 00N

o e

s d

WV I NN = OO0 00

S (NAD —

SEQ 0001

NN NN INNIRNO NN PO RO RO RO NI N

b ot =

s gt

S WOV

NO VN

PRODUCT

CODE:

AC=F924A-M(

PRODUCT NAME:

CZRMNAO RM05/3/2 FCTINL

DATE CREATED:

APRIL

MAINTAINER:

CX DIAGNOSTIC

AUTHOR:

MIKE

TST

1980
GROUP

LEAVITT

35
THE INFORMATION
IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
AND
SHOULD
NOT BE
CONSTRUED AS A
COMMITMENT
BY DIGITAL EQUIPMENT

CORPORATION.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY

FOR ANY ERRORS THAT MAY APPEAR

THE

SOFTWARE DESCRIBED

IN THIS MANUAL.

IN THIS DOCUMENT

1S FURNISHED TO THE PURCHASER

UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED

(WITH
INCLUSION OF DIGITAL'S COPYRIGHT NOTICE)
ONLY FOR USE IN SUCH
SYSTEM,
EXCEPT AS
MAY OTHERWISE
BE PROVIDED IN WRITING BY DIGITAL.

DIGITAL EQUIPMENT
8?61$5L1ABILITY OF
L-

(C)

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

1980 DIGITAL EQUIPMENT CORPORATION

. CIRMNAO RMO5/3/2 FCTINL TST 2
|

MACRO v03.01

[

11-APR-80 13:17:48 PAGE 2

CONTENTS

INTRODUCTION
1.

ABSTRACT

UNIT UNDER TEST

OPFRATING REQUIREMENTS
1.

2.
3.

HARDWARE REQUIREMENTS

MEDIA REQUIREMENTS
PREREQUISITE DIAGNOSTIC PROGRAMS

OPERATING PROCEDURE

HALTING

2.
3.
5.

SWITCH OPTIONS
STARTING

RESTARTING

[« AV F
S
. Rl

W1 NP
. .
o

OPERATOR INTERFACE
PROGRAM ].D.

CONSOLE DIALOGUE

PROGRESS REPORTS
PERFORMANCE REPORTS
PROGRAM HALTS

ERROR REPORTS

TEST

.
°
8
®
o
&
e

NOCWVES
LN —

ENVIRONMENTAL SUPPORT

ugwuwwuuNNNNNNNNNNd.‘
[
N
W
= OOV NO VS WN = O V00N
VS NN = —
O 000 N0

S NN —

PROCESSOR COMPATIBILITY

DUAL PORT CONFIGURATIONS
MEMORY PARITY HARDWARE
MEMORY MANAGEMENT HARDWARE
ACT, APT COMPATIBILITY
XXDP COMPATIBILITY
OPERATING SYSTEM COMPATIBILITY

DESCRIPTION

SEQ 0002

POROIRINININD
b o
o e e s s e

VIS W= O VONO VW= OV

~NO

NN —

' CZRMNAO RM0S5/3/2 FCTNL TST 2

MACRO v03.01

11-APR-80 13:17:48 PAGE 3

1.0

INTRODUCTION

1.1

ABSTRACT

THE

RMO5/3/2

WHICH ~ USES

RM05/3/2

DISK

SEQ 0003

SUBSYSTEM FUNCTIONAL TEST IS A STAND ALONE PROGRAM

FUNCTIONAL

SUBSYSTEM.

MEANS

FOLLOWING PURPOSES:

VERIFY

PARTICULAR,

THE

OPERABILITY

PROGRAM

THE

SERVES

THE

TO EXPLICITLY ESTABLISH CONFIDENCE IN THE BASIC OPERATIONS OF THE
g;g:ATlg:§VE.
INCLUDING
MECHANICAL
POSITIONING
AND
DATA
TRANSFER
TO

IMPLICITLY

ELECTRICAL INTERFACE;

ESTABLISH

CONFIDENCE

THE

DRIVE/ADAPTER

TO
VERIFY THE FUNCTIONALITY OF THE RMO5/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
IN
SEQUENCE,
STARTING
WITH
PART 1.
BRIEFLY, PART 1 TESTS HOUSEKEEPING
AND MECHANICAL POSITIONING OPERATIONS;
PART 2 TESTS WRITE,
READ
AND
WRITE
CHECK
OPERATIONS
USING
HEADER AND DATA;
PART 3 TESTS WRITE,
READ AND WRITE

1.2

CHECK OPERATIONS USING DATA.

UNIT UNDER TEST
THE UNIT UNDER TEST

(UUT)

IS THE RM05/3/2

CONSISTS OF THE RH MASSBUS CONTROLLER,

DISK

SUBSYSTEM

THE RM05/3/2 MASSBUS

WHICH

ADAPTER,

AND THE STORAGE MODULE DISK DRIVE.
NOTE THAT A DISK PACK IS
REQUIRED
sg? ETESTING
AND 1S CONSIDERED AN INTEGRAL OF THE STORAGE MODULE DISK
v

2.0

OPERATING REQUIREMENTS

2.1

HARDWARE REQUIREMENTS
THE FOLLOWING

MINIMUM

HARDWARE

OPERATIONAL, IS REQUIRED TO LOAD
FUNCTIONAL TEST:

AND

CONFIGURATION,

EXECUTE

ASSUMED

THE RM05/3/2 SUBSYSTEM

PDP-11 PROCESSOR
16K MEMORY
KW11-L OR KW11-P CLOCK
PROGRAM LOADING DEVICE
TERMINAL

RH11 OR RH70 CONTROLLER
1 70 8 DISK DRIVES (ANY COMBINATION OF RMOS5'S, RMO3'S OR RM02'S)

- CZRMNAQ RMO5/372 FCTNL TST 2

MACRO V03.01

2.2

E 1

11-APR=80 13:17:48 PAGE 3-1

SEQ 0004

MEDIA REQUIREMENTS

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

PREREQUISITE DIAGNOSTIC PROGRAMS

RM05/3/2 DISKLESS DIAGNOSTIC, PART

& 2

RM05/3/2 FUNCTIONAL TEST, PART 1

3.0

OPERATING PROCEDURE

3.1

LOADING
THE

PROGRAM MAY BE LOADED BY EITHER OF

THE

FOLLOWING MEDIA:

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

3.2
OF

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

SW15
SWi4

HALT ON ERROR
LOOP ON TEST (CURRENTLY BEING EXECUTED)

Sw12

UNUSED

SW10
Sw09
Sw08

BELL ON ERROR
LOOP ON ERROR
LOOP ON TEST IN SWO7-00

SWwi3

INHIBIT TEST ITERATIONS

THE LOW ORDER 8 SWITCHES
WS W

S NN —=OO0ON

) e
e
S e
el
e
el
e
e
e

Sggg OLO

3.3

UTILITY

INHIBIT ERROR TYPEOUTS

SWwil

10°

THE

SPECIFY

(SW07-SWw00),

THE OCTAL NUMBER OF

ARE

USED

CONJUNCTION

WITH

THE TEST WHICH THE PROGRAM WILL

STARTING

THE PROGRAM STARTS AT LOCATION 200,
WHICH
PROViDES
WORST
(CASE
TEST CONDITIONS IF RUNNING IN AN AUTOMATIC ENVIRONMENT.
IF RUNNING IN
A STAND-ALONE ENVIRONMENT, THE PROGRAM USES CONSOLE DIALOGUE TO
ALLOW
THE OPERATOR TO CONTROL TEST CONDITIONS.

3.4

HALTING

’

BN BN B U
N N N N N N N N N U N O NG PO RO R AU D) b = s b s
N=O VNV
WA —=OOVONO VS WN =O OO~y

CZRMNAO RMO5/3/2 FCTNL TST 2

146
}zg

NNOOOOO%OOOOmmmwmw\nmmV\
NOW
W= OOV
NOWVSs WO
- OV

—

e e

s —b

149

11-APR-80 13:17:48 PAGE 3=2

SEQ 0005

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

THE

PROGRAM IS

INFORMATION

HALTED

3.5

BY ANY OTHER MEANS,

MAY BE LEFT ON THE DISK PACK.

aithDS ON WHICH TEST

BAD HEADER

THIS OF

COURSE

IS BEING PERFORMED AT THE TIME OF

THE

RESTARTING
THE PROGRAM CAN BE RESTARTED AT ADDRESS 200.

4.0

OPERATOR INTERFACE

4.1

PROGRAM ]D

THE PROGRAM TYPES ITS TITLE AND MAINDEC NUMBER THE FIRST TIME
IT
1S STARTED
AFTER BEING
LOADED.
ALSO,
A WARNING
MESSAGE IS
TYPED,
NOTIFING THE OPERATOR OF POSSIBLE HEADER CORRUPTION IF
THE PROGRAM |S
HALTED
IMPROPERLY.
THE PROGRAM IDENTIFICATION AND THE WARNING DC NOT
OCCUR IF THE PROGRAM IS RESTARTED.

}22
145

MACRO v03.01

4.2
-

CONSOLE DIALOGUE
WHEN THE PROGRAM IS RUNNING IN STAND

CONSOLE DIALOGUE
SEQNENCE AFTER TYPING
MESSAGE. (SEE SECTION &4.1)

ALONE

MODE,

THE PROGRAM ].D.

ENTERS A

AND WARNING

THE FIRST QUESTION TYPED OUT IS:
‘'TYPE HELP TEXT
(Y/N) 2,
IF
THE
OPERATOR
RESPONDS WITH A ''Y'', THE PROGRAM WILL TYPE A BRIEF
HELP MESSAGE WHICH WILL LIST SWITCH OPTIONS, ETC.
NOTE:

THE FIRST

QUESTION IS

ONLY ASKED

ON THE

START AND NOT ON SUBSEQUENT START-UP'S.

INITIAL PROGRAM

THE SECOND QUESTION TYPED IS, '‘CHANGE ADDRESSES (Y/N) ?''. IF THE
UNIBUS
ADDRESS OF THE
RH/RM IS NON STANDARD,
THE
OPERATOR SHOULD
RESPOND WITH A ''Y"',
THEN ANSWER SUBSEQUENT
QUESTIONS
TO SPECIFY
THE

UNIBUS ADDRESS,

VECTOR

ADDRESS AND INTERRUPT PRIORITY.

THE

OPERATOR RESPONSE IS A ''N'', THE PROGRAM SKIPS TO THE THIRD QUESTION.
TYPE

THE

THIRD

QUESTION

DRIVE NUMBER(S)

TYPED IS,

AND TERMINATE

'TYPE "'A’ TO TEST ALL DRIVES, OR
INPUT WITH

A CARRIAGE RETURN.'

THEN, 'DRIVE(S):' IS TYPED AND WAITS FOR THE OPERATOR TO TYPE AN '‘A"',
TO TEST ALL POSSIBLE DRIVES OR THE NUMBER(S) OF THE DRIVE(S) HE WANTS
TESTED AND TERMINATE HIS INPUT WITH A "CARRIAGE RETURN''.
NOTE:

THE
THE

THE

LONG
VERSION OF THE
INITIAL PROGRAM START.

'DRIVE(S):' PROMPT

THIRD QUESTION IS ONLY TYPED ON
ON ALL SUBSEQUENT STARTS, ONLY

IS TYPED.

’

)

D il il il

D il

B il il il ol il

D il

D il il il el il el i

w s wNSOOGNOwrwN—-OOONowwa

O O O O O O 00 00 00 00 00 0O 00 00 00 00 N N~ ~ ~J ~J ~ ~J

CZRMNAD RMOS/3/2 FCTNL TST 2

196
197

MACRO v03.01

11-APR=80 13:17:48 PAGE 3-3

SEQ 0006

SAME

if THE PROGRAM 1S RESTARTED, THE FIRST QUESTION
TYPED
1S,
'USE
DEVICES
(Y/N) ?''.,
IF
THE
OPERATOR
TYPES ''v'', THE
TEST
IS

4.3

PROGRESS REPORTS

RESTARTED USING THE SAME DEVICES AS THE LAST TIME, OTHERWISE, THE TEST
?EggARIS
THE
DIALOGUE
AS
IF THE PROGRAM WERE STARTED FOk THE FIRST

AN END OF

PASS REPORT OCCURS EACH TIME

FOR
ALL
DEVICES
1IN THE TEST
MESSAGE AND AN ERROR SUMMARY,

4.4

PERFORMANCE

QUE.

THE

END OF

PROGRAM

PASS REPORT

EXECUTED

INCLUDES A

REPORT

NO PERFORMANCE REPORTS ARE GIVEN
PROGRAM,

4.5

THE

DURING

THE

EXECUTION

THE

PROGRAM HALTS

THERE ARE NO SCHEDULED HALTS DURING THE EXECUTION OF

THE PROGRAM.

}gg

PROCESSOR HALTS ARE DUE TO THE TRAP CATCHER.

200
201
gg%

4.6

204
205
206
207
208
209
210
5};

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

ERROR REPORTS

2°3

¢4

S}g

5.0

ENVIRONMENTAL SUPPORT

5};

5.1

PROCESSOR COMPATIBILITY

219
220
221
55%

THE RMO5/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 10
SUSTAIN DATA TRANSFER OPERATIONS.

224
225
559

5.2

228

DUAL PORT CONFIGURATIONS
THE RM05/3/2 SUBSYSTEM FUNCTIONAL TEST DOES NOT SPECIFICALLY TEST

OO NO VNS W =00

RN
NN
NN N NN N NN NN

" CZRMNAO RMO0S/3/2 FCTINL TST 2

MACRO v03.01

H
1
11-APR-80 13:17:48 PAGE 3-4

SEQ 0007

DUAL PORT
LOGIC
IN THE
RMO5/3/2 ADAPTER BUT
1S
EXECUTABLE
ON
RM05/3/2
SUBSYSTEMS HAVING THE
DUAL PORT OPTION PRCV IDING THE DUAL
PORT

5.3

SWITCH

IS SET

TO THE APPROPRIATE PORT

(A OR B).

MEMORY PARITY HARDWARE
MEMORY PARITY HARDWARE

IS NOT USED DURING THE

RM05/3/2 SUSBYSTEM FUNCTIONAL TEST.

5.4

THE

MEMORY MANAGEMENT HARDWARE

MEMORY
MANAGEMENT
HARDWARE
IS
NOT
SUSBYSTEM FUNCTIONAL TEST.
CAPABILITIES OF

5.5

EXECUTION

ACT11, APT11

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

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
A
QUICK
PASS DURING THE FIRST PASS IN SUPPORT OF QUICK
VERIFY MODE.

5.6
DUMP

XXDP COMPATIBILITY
THE RM05/3/2 SUSBYSTEM FUNCTIONAL TEST
AND CHAIN MODES,

IS COMPATIBLE WITH XXDP IN

AND PROVIDES MEDIA PROTECTION IN THE

THE RM0S5/3/2 1S THE XXDP LOADING DEVICE.

5.7

OPERATING SYSTEM COMPATIBILITY
THE PROGRAM IS NOT

6.0

CASE WHERE

COMPATIBLE WITH ANY

SOFTWARE OPERATING SYSTEM,

TEST DESCRIPTION

CONTROLLER ACCESS TEST
:
PURPOSE

VERIFY

THAT

THE

UNIBUS

ADDRESS OF

CORRECT, AS DEFINED AT LOCATION $BASE.
PROCEDURE
:

THE

SUBSYSTEM

CZRMNAO RMOS5/3/2 FCTINL TST 2

MACRO v03.01 11-APR-80 13:17:48 mé 3-5

286
287
288
289

THE TEST TRIES TO ACCESS ALL MASSBUS CONTROLLER REGISTERS
USING THE S$BASE ADDRESS.
REGISTER CONTENTS ARE IGNORED DURING
THE TEST, AND THE TEST FAILS IF A BUS TIMEOUT OCCURS
FOR ANY

%g?

292
293
294
295
296
297
298
299
300
301
§8§

ggg
306

SEQ 0008

IF THE TEST FAILS AND THE PROGRAM 1S RUNNING IN A STAND
ALONE ENVIRONMENT, 1.E., LOCATION 42 IS 0O, THE PROGRAM WILL JUMP
TO LOCATION 204 WHICH ALLOWS THE OPERATOR
TO C(HANGE
THE
$BASE
ADDRESS
VIA CONSOLE DIALOGUE.
OTHERWISE, THE PROGRAM ESCAPES TO
THE END OF PASS HANDLER.

DEVICE AVAILABLE TEST

PURPOSE :

gg;

TO VERIFY THAT THE UNIT UNDER TEST IS AVAILABLE FOR TESTING,
AND IS NCT LOCKED OR PROGRAMMED TO THE ALTERNATE PORT.

g?g

PROCEDURE :

n
312
313
314
g}g

THIS TEST
SELECTS
THE
DEVICE
AND READS
CONTROL
STATUS
REGISTERS 1 AND 2 TO VERIFY THAT THE SELECTED DEVICE IS AVAILABLE
FOR TESTING, AS INDICATED BY DVA STATUS, BIT 11 OF RMCST AND NED
STATUS,
BIT
12 OF
RM(CS2.
THE RESULTS OF THE TEST CAN VARY AS

317
g}g

.NONEXISTANT DEVICE - THE DEVICE 1S NONEXISTENT OR IS LOCKED
ON THE ALTERNATE PORT AND IS THEREFORE NOT AVAILABLE FOR TESTING;

320
gg;

.DEVICE NOT AVAILABLE - THE DEVICE EXISTS BUT IS
THE ALTERNATE PORT AND IS NOT AVAILABLE FOR TESTING;

323

ggg

FOLLOWS:

.BUS TIMEOUT = THE MASSBUS CONTROLLER

NONEXISTENT DEVICE;

FAILED

SEIZED

DETECT

%%?

.DEVICE AVAILABLE - THE DEVICE 1S AVAILABLE FOR TESTING.

328

THE PROGRAM JUMPS TO THE SUBPASS HANDLER WHICH

ggg

331
332
333
334
335
336
ggg

SELECTS

NEXT DRIVE TO BE TESTED IF THE DEVICE IS NOT AVAILABLE.

THE

DRIVE TYPE TEST
PURPOSE :

339
g:?

TO VERIFY THAT THE UNIT UNDER TEST IS AN RMOS, RMO3 OR RMOQ2
SINGLE PORT OR DUAL PORT SUBSYSTEM,

PROCEDURE
:

CZRMNAO RMO5/372 FCTINL TST 2

MACRO v03.01

11-APR-80 13:17:48 PAGE 3-6

SEQ 0009

THIS TEST READS
THE
DRIVE
TYPE
RMDT,
OF
REG IST ER .
THE
SELECTED
DEVICE AND VERIFIES THAT THE DEVICE IS A SINGLE PORT OR
DUAL
PORT_
RMO5/3/2 SUBSYSTEM.
IF THE SELE TED gEVICE IS NOT AN
RM05/3/2, THE
PROGRAM JUMPS
TO
THE SUBPA S S HA DLER WHICH WILL
SELECT THE NEXT DEVICE FOR TESTING.

WRITE/READ HEADER AND DATA

(FORMAT)

TESTS

PURPOSE
:

TO TEST WRITE HEADER AND
DATA
AND
READ
HEADER
AND
DATA
FUNCTIONALITY OF THE RM05/3/2 SUBSYSTEM
USING A SET OF VARIABLES
g3§5?7}g£§UDE WORD COUNT, HEAD MOTION, HEAD SWITCHING
AND
ERROR
PROCEDURE:

ALTHOUGH EACH
TEST
EXERCISES
A
DIFFERENT
VARIABLE,
THE
GENERAL
PROCEDURE
OF
EACH
TEST
1S
THE
SAME.
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 1S 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

THE TEST, VERIFYING

ERRORS AS IN THE WRITE COMMAND.

NOTE:

THAT
THE
SECTOR
USED DURING A
TEST MAY DIFFER FROM
THE
PROGRAM
LISTING BECAUSE THE PROGRAM SUBSTITUTES A GOOD SECTOR IF
THE ONE SELECTED IS LISTED IN THE BAD BLOCK
TABLE
OF
THE
LAST

;Safi:i

UNLESS

FORMAT

ZEROS TEST

THE

TEST

SPECIFIED OTHERWISE,

SEEKS TO CYLINDER O,

ALL

TESTS

ARE

IN 16 BIT

THEN WRITES HEADER AND DATA ON

SECTOR 0
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

THE WRITE BUFFER.

THERE

THE

IMPLIED

" CZRMNAO RMOS/3/2 FCTINL TST 2

MACRO v03.01

K
.1
11-APR=-80 13:17:48 PAGE 3-7
SEEK.

THE TEST

SEQ 0010

IS REPEATED FOR 16 BIT FORMAT,

ZERO FILL TEST TEST
M TMNE

THE TEST EXECUTES A SEEK TO CYLINDER O TO INSURE THAT
THERE
NO
HEAD
MOTION DURING DATA TRANSFER.
THIS IS FOLLOWED BY A

RITE HEADER AND DATA COMMAND WITH THE WORD COUNT

EQUAL

1ZE
OF
THE
HEADER WHICH CAUSES THE RH
TO ZERO FILL
IELD.
THE READ HEADER AND DATA COMMAND
THAT
FOLLOWS
ULL SECTOR AND VERIFIES THAT DATA WAS ZERO FILLED.

FORMAT

CHECK

ZEROS

TEST

THE TEST WRITES HEADER AND AN ALL
ZEROS
DATA
FIELD,
xSEFSSHERSO:QITE CHECK HEADER AND DATA COMMAND AND VERIFIES

FORMAT

CHECK

THE

THE DATA
READS
A

ZEROS W/ WCE ERROR

THEN
THERE

TEST

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
THAT
THE

CORRECT WRITE CHECK ERROR

IS DETECTED.

FORMAT ONES TEST

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.

FORMAT

CHECK ONES TEST

A
THE TEST FORMATS AN ALL ONES
DATA
F 1ELD,
PERFORMS
THE
E%D
gzésss CHECK HEADER AND DATA COMMAND, VERI FYING THAT THERE ARE NO

656

" CZRMNAO RMOS5/3/2 FCTNL TST 2

MACRO v03.01

11-APR=-80 13:17:48 PAGE 3-8

SEQ 0011

458
FORMAT CHECK ONES W/ WCE ERROR TEST
THE TEST FORMATS AN ALL ONES DATA
FIE LD,
THEN
COMPLEMENTS
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.

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.

FORMAT WITH HEAD SWITCHING TEST

THE TEST SEEKS TO CYLINDER O TO

MOTION

DURING

DATA TRANSFER.

INSURE

THERE

HEAD

THE WRITE HEADER AND DATA COMMAND

STARTS WITH CYLINDER O, TRACK O, SECTOR 31,
THE
WORD
COUNT
IS
EQUAL
70 MULTIPLE
SECTORS WHICH CAUSES THE SUBSYSTEM TO SWITCH
FROM
TRACK O TO
TRACK 1 AFTER THE FIRST OF THE MULTIPLE SECTORS

ARE
WRITTEN.
THE SAME
SECTORS
ARE VERIFIED WITH A WRITE CHECK
252?5: AND DATA COMMAND, USING THE
SAME
WORD COUNT AND STARTING

FORMAT WITH MID-TRANSFER SEEK TEST

LAST

THIS TEST WRITES MULTIPLE SECTORS STARTING WITH CYLINDER

TRACK AND SECTOR 31.,

CAUSING A MIDTRANSFER SEEK AFTER THE

FIRST SECTOR IS WRITTEN. THE SAME SECTORS ARE VERIFIED WITH WRITE
CHECK HEADER AND DATA COMMAND.

FORMAT WITH IMPLIED SEEK TEST
THIS TEST

SEEKS TO THE LAST

CYLINDER PRIOR TO WRITING HEADER

AND
DATA ON
CYLINDER
0.
THE EXPLICIT SEEK INSURES THAT THERE
WILL BE MAXIMUM HEAD MOTION DURING THE IMPLIED SEEK OF THE
WRITE

bbb b YalY ALV LW AN W N

NN NN W WWIW WO N N NN NV N NN

NOWVMSWNN=ODOVONO VNS WN—=O 00~

Y
= -R

LV IV TV IV LV LW LW IV IV IV IV Y TV 1V, ]

' CZRMNAO RMOS/3/2 FCTNL TST 2

MACRO V03.01

n o

11-APR=80 13:17:48 PAGE 3-9
COMMAND.

~ THE

SAME

SEQ 0012

OPERATION,

REPEATED FOR READ HEADER AN"

DATA,

INCLUDING

THE EXPLICIT SEEK IS

FORMAT EACH SECTOR ADDRESS TEST

HEADERS AND DATA OF EACH SECTOR ON CYLINDER 0,

TRACK

ARE

FORMATTED AND READ WITH THE PROGRAM VERIFYING HEADERS AND DATA.

FORMAT EACH TRACK

ADDRESS TEST

THIS TEST FORMATS SECTOR O OF EACH TRACK OMN CYLINDER
0O
AND
READS EACH SECTOR WITH THE PROGRAM VERIFYING HEADERS AND DATA,

538
FORMAT

PRIME

CYLINDERS TEST

THIS TEST FORMATS AND READS SECTO R O,

CYLINDER,

I.E., CYLINDERS 1,2,4,8,...,512.

O V00 “NOV

VAW WV
o Vi YA

READ HEADER & DATA

DISK,

IN LAST

TRACK 0 ON EACH

PRIME

SECTOR TEST

THIS TEST
READS
HEADER AND DATA ON THE LAST SECTOR OF
1.E., AND VERIFIES THAT "LBT'' STATUS SETS.

THE,

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

SECTORS

STARTING

SECTOR 31. AND VERIFIES THAT AOE STATUS SETS.

READ

IAE

WITH

THE

LAST

VERIFIES

THAT

INVALID SECTOR ADDRESS TEST

THIS TEST USES AN ILLEGAL SECTOR ADDRESS AND
STATUS SETS.

000000~~~ NNNNN~N~
N — DO 00N
I N
—

VLY,
IV IV IV IV IV IV IV IV )

" CZRMNAO RMO5/3/2 FCTNL TST 2

N1
MACRO v03.01 11-APR=80 13:17:48 PAGE 3-10

READ

SEQ 0013

INVALID TRACK ADDRESS TEST

THIS TEST USES AN ILLEGAL TRACK ADDRESS
IAE STATUS SETS.

READ

INVALID CYLINDER ADDRESS

AND

VERIFIES

THAT

TEST

THIS TEST USES AN ILLEGAL CYLINDER ADDRESS AND VERIFIES THAT
IAE STATUS SETS.

FORMAT AT OFFSET

TEST

THE PROGRAM SETS OFFSET MODE AND EXECUTES A WR ITE
TE
HEADER AND
ES;QANgOHHAND.
VERIFYING
THAT OFFSET MODE 1S RESE T BY THE WRITE

IvC FORMAT TEST
MODE.

VOLUME VALID IS RGBET BY SETTING
THE

TEST

VERIFIES THAT

THEN EXECUTES A WRITE

AND

RESETTING

DIAGNOSTIC

HEADER AND DATA COMMAND AND

INVALID COMMAND STATUS SETS.

FOR READ HEADER AND DATA COMMAND.

THE

TEST

REPEATED

FORMAT ERROR TEST

A SINGLE SECTOR IS FORMATTED WITH THE
OFFSET
REGISTER
SE 1
16
BIT FORMAT AFTER WHICH THE SAME SECTOR IS READ IN 18 BI
FORMAT WITH THE PROGRAM VERIFYING THAT
FORMAT
ERROR
SIATUE
}

FOR

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

FORMAT HCE

TEST

(1ST AND 2ND HEADER WORDS)

[

‘

———

; CZRMNAO RMO5/3/2 FCTNL TST 2
628
629
630
631

gg%
634
635
636
637

S—

———————

—

MACRO v03.01 11-APR-80 13:17:48 PAGE 3-11
THESE TWO TESTS WRITE AN INCORRECT HEADER THEN READ THE
HEADER AND VERIFY THAT THE CORRECT HEADER ERROR 1S DETECTED.
THE
TESTS SETUP THE CORRECT HEADER, THEN COMPLEMENT BIT 0 AND USE THE
MODIFIED BUFFER TO WRITE
THE HEADER.
THE PROCESS IS REPEATED

UNTIL EACH BIT POSITION HAS BEEN SEPARATELY TESTED.

SEQ 0014

CZRMNAO RMO5/3/2 FCTNL TST 2
1

MACRO v03.01

11-APR-80 13:17:48 PAGE &

2
SEQ 0015

:PROGRAM REVISION #001

486
487

.TITLE
CZRMNAO RHOS/S/Z FCTNL TST 2
;*COPYRIGHT (C) 1980
:*DIGITAL EQUIPMENT _CORP.
;'HAYNARD. MASS. 017564
X

:*PROGRAM BY MIKE LEAVITT
T

:*THIS PROGRAM WAS ASSEMBLED USING THE PDP-11

s *PACKAGE (MAINDEC-11-DZQAC-C4), 1980.

MAINDEC

SYSMAC

OPERATIONAL SWITCH SETTINGS
SWITCH

490
9N

.SBTTL

001100

N
O—=NVWST VO

B
LR

L R

BN B

I R I

489

IR BN BN

[

OVO =W

PRTR
P
T

BN BE BE B

BN B

.SBTTL

<88

R I

*®

USE

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

ERROR
TEST
ERROR TYPEOUTS
ITERATIONS
ERROR
ERROR

TEST IN SWR<7:0>

TN64

TN32

TN16
TN8
TNG

TN2
NI

BASIC DEFINITIONS

s*INITIAL ADDRESS OF THE STACK POINTER w++ 1100 www
= 1100

STACK

104000

000004

ERROR
SCOPE

000011

s 1

::CODE FOR HORIZONTAL TAB

:gu ot

= 77776

s :PROCESSOR STATUS WORD

= EMT
= 0T

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

s*M]ISCELLANEOUS DEFINITIONS

LF
(R
CRLF

= 12
s 15
= 200

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

STKLMT

= 177774

ssSTACK LIMIT REGISTER

DSWR
DDISP

= 177570
= 177570

s sHARDWARE SWITCH REGISTER
: sHARDWARE DISPLAY REGISTER

PIRQ

= 177772

; ;PROGRAM INTERRUPT REQUEST REGISTER

:*GENERAL PURPOSE REGISTER DEFINITIONS

000000

= %0

s sGENERAL REGISTER

000002
000003

= %3

s sGENERAL REGISTER

R1
ag

=
= X2

s sGENERAL REGISTER
s sGENERAL REGISTER

[

| CZRMNAO RMOS/3/2 FCTNL TST 2
| BASIC DEFINITIONS
|

000004

000006
000007

R6
R7
SP
PC

000000
000040
000100
000140
000200
000240
000300
000340
100000
040000

020000
010000
004000
002000
001000

000001
100000

040000

’

MACRO v03.01

000040

11-APR=-80 13:17:48 PAGE &4=1
= %4

s sGENERAL REGISTER

=
=
=
=

s sGENERAL REGISTER
s sGENERAL REGISTER
+sSTACK POINTER
: sPROGRAM COUNTER

= 35

%6
X7
%6
X7

s sGENERAL REGISTER

;*PRIORITY LEVEL DEFINITIONS

PRO

::PRIORITY LEVEL 0

= 100
= 140

ssPRIORITY LEVEL 2
:sPRIORITY LEVEL 3

= 340

::PRIORITY LEVEL 7

PR1

= 40

PR&
PRS
PR6
PR7

= 200
= 240
= 300

PR2
PR3

:sPRIORITY LEVEL 1

::PRIORITY LEVEL &
::PRIORITY LEVEL S
ssPRIORITY LEVEL 6

:*"'SWITCH REGISTER'' SWITCH DEFINITIONS

SW15
W14

= 100000

= 40000

SW13
= 20000
Sw12
= 10000
Swil
= 4000
SW10
= 2000
Sw09
= 1000
Sw08
= 400
Sw07
= 200
SW06
= 100
SW0S
= 40
SW0&
= 20
SW03
=10
Swi2
= 4
SWo1
=2
Sw00
z 1
SW9=Sw09
SW8=Sw08
SW7=Sw07
SW6=Sw06
SW5=5w05
SW&=SW04
SW3=Sw03
SW2=5w0?2
SW1=Sw01
SW0=Sw00

;*DATA BIT DEFINITIONS (BITOO0 TO BIT1S5)
BIT'S
= 100000
BIT14
= 40000
BIT13
= 20000
BIT12
= 10000
BIT11
= 4000
BITI0
= 2000
BITO9
= 1000
BITO8
= 400
BIT07
= 200
BIT06
= 100
BITOS
= 40

SEQ 0016

- CZRMNAO RMO5/3/2 FCTNL TST 2
' BASIC DEFINITIONS

‘

|
|

000020
000010
000004

B1T4=B1T04
BI1T3=81703
B1T2:B1702

000004
000010
000014
006014
000014
000020
000024

+BASIC
ERRVEC
RESVEC
TBITVEC
TRTVEC
BPTVEC
10TVEC
PWRVEC

000060
000064
000240

TKVEC
= 80
TPVEC
= 64
PIRGVEC = 240

000030
000034

BIT1=BITO]
BI1T0=B1T00
"'CPU"" TRAP VECTOR ADDRESSES
= 4
::TIME OUT AND OTHER ERRORS
=
=
=
=
=

10
14
14
14
20

= 24

EMTVEC = 30
TRAPVEC = 34

“'RESERVED AND ILLEGAL INSTRUCTIONS
LTUBIT
" TRACE TRAP
" "BREAKPOINT TRAP (BPT)
S S INPUT/OUTPUT TRAP (10T) s+SCOPEss

" POWER FAIL

“EMULATOR TRAP (EMT) **ERROR#*
CIOTRAP' TRAP

“STTY KEYBOARD VECTOR
“STTY PRINTER VECTOR
“:PROGRAM INTERRUPT REQUEST VECTOR

.SBTTL

495

;*RMCS1 CONTROL STATUS REGISTER

500
501
502
503
o

506

507
508
509
510
511
512
513
514
515
516
517
318
519

004000
000040
000020

000010
000004
000002
000001
000077

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

SEQ 0017

BITS=BITOS

493

497
498
499

L
.

BITO4
= 20
BIT03
= 10
BIT02
= 4
BITO]
= 2
BITO0
=1
B1T9=81709
BI1T8=B1708
BIT7=BIT07
B1T6=B1T06

000002
000001

|
|

000020
000010
000004
000002
000001
001000
000400
000200
000100

000040

MACRO v03.01 11-APR-80 13:17:48 PAGE 422

DVA
Fo
F3

F2
£l
F0
60
ENCMSK

RM REGISTER BIT DEFINITIONS

= BITI
= BITOS
= BIT04

=
=
=
=
=

BITO3
BITO02
BITO1
BITO0
000077

:DEVICE AVAILABLE-READ ONLY
FUNCTION CODE
FUNCTION CODE

“FUNCTION
FUNCTION
FUNCTION
‘60 BIT
“FUNCTION

CODE
CODE
CODE

CODE MASK

:FUNCTION CODES (BITS 01-05 OF RMCS1)

NOP
ILFO2
SEEK
RECAL
DRVCLR
RLEASE
OFFSET
RTC
RIP
PAKACK
PACACK
ILFo4
ILF26

=
=
=
=
=
=
=
=
=
=
=
=
=

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

“NOP COMMAND
“ILLEGAL COMMAND
“SEEK COMMAND
“RECALIBRATE COMMAND
“DRIVE CLEAR COMMAND
“RELEASE COMMAND
“OFFSET COMMAND
“RETURN TO CENTERLINE COMMAND
“READ IN PRESET COMMAND
“PACK ACKNOWLEDGE COMMAND

ILLEGAL COMMAND
“1LLEGAL COMMAND

CZRMNAO RMO5/3/2 FCTNL TST 2

' RM REGISTER BIT DEFINITIONS

520
523

|
g
f

:
,
|

:
e

524
525
526
527

528

529
530
531

532
533
534
ggz

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

539

561
542

|
;
;
f

;
;
‘

540

11-APR=-80 13:17:48 PAGE 4=3

SEARCH
ILF30
ILF32
ILF36
ILF36
ILF40
ILF42
ILF&4
ILF&6
weD
WCH
ILFS¢
1LF56

000070
000072
000074
000076

SEQ 0018

=
=
=
=
=
=
=
=
=
=
=
=
=

000030
000030
000032
000034
000036
000040
000042
000044
000046
000050
000052
00005¢4
000056

sSEARCH COMMAND
s ILLEGAL COMMAND
sILLEGAL COMMAND
s ILLEGAL COMMAND
ILLEGAL COMMAND
:1LLEGAL COMMAND
s ILLEGAL COMMAND
s ILLEGAL COMMAND
; ILLEGAL COMMAND
;WRITE CHECK DATA COMMAND
JWRITE CHECK HEADER AND DATA
s ILLEGAL COMMAND
s ILLEGAL COMMAND

WH
ILF64
ILF66

RD
KH
ILF?74
ILF76

=
=
=
=
=
=
=

000062
000064
000066
000070
000072
000074
000076

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

;*RMDA

DISK ADDRESS REGISTER

000062
000064
000066

ggg

MACRO v03.01

= 000060

;TRACK ADDRESS DEFINITIONS

:WRITE DATA COMMAND

010000

TA16

543
g:g

001000
000400

TA2
TAl

= BIT09
= BITO8

;:TRACK ADDRESS 2
;TRACK ADDRESS 1

546
547
548
549
550

000020
000010
000004
000002

;SECTOR
SA16
SA8
SAG
SA2

ADDRESS DEFINITiONS
= BIT04
= BIT03
= BIT02
= BITO1

;SECTOR
:SECTOR
:SECTOR
;SECTOR

553
554
ggg

177400
000377

;TRACK & SECTOR MASKS
TADMSK
=
177400
SADMSK
= 000377

gg;

004000
002000

TA8
TAG

000001

SA1

gg;
559
560
561
562
563
564
565
566
567
568
ggg
5N

100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000001

= BIT12

= BITN
= BIT10

= BIT00

;*RMDS

DRIVE STATUS REGISTER

ATA
ERR
PIP
MOL
WRL
LBT
PGM
DPR
DRY
Vv
oM

=
=
=
=
=
=
=
=
=
=
=

BIT1S
BIT14
BIT13
BIT12
BITN
BIT10
BIT09
BIT08
BIT07
BIT06
BIT00

;*RMER1 ERROR REGISTER

;:TRACK ADDRESS 16.

;TRACK ADDRESS 8.
:TRACK ADDRESS &

ADDRESS
ADDRESS
ADDRESS
ADDRESS

16.
8.
&
2

;SECTOR ADDRESS 1

;TRACK ADDRESS MASK
;SECTOR ADDRESS MASK

ATTENTION ACTIVE
;COMPOSITE ERROR
;POSITIONING IN PROGRESS
sMEDIUM ON LINE
:WRITE LOCK
:LAST BLOCK TRANSFERRED
: PROGRAMMABLE
:DRIVE PRESENT
:DRIVE READY
;VOLUME VALID
;OFFSET MODE ACTIVE

' CZRMNAO RM0S/3/2 FCINL TST 2
(W IV IV IV IV IV IV IV_]W
O NNNNNN~ -~
OV
~NOWVS W ~N

RM REGISTER BIT DEFINITIONS

100000

MACRO v03.01

DCK
UNS

1AE

=
=
=
=
=
=

ECH

= BIT06

OPl
DTE

WLE
AOE
HCRC
HCE

581

000002
000001
115760

11-APR-80 13:17:48 PAGE 4=4

WCF
FER
PAR
RMR

ILR
ILF

NDTMSK

BIT1S
BIT14
BIT13
BIT12
BITN
BIT10

= BIT09
= BIT08
= BIT07
=
=
=
=

BIT05
BIT04
BIT03
BIT02

= BITON
= BIT00

SEQ 0019
;DATA CHECK ERROR
;DRIVE UNSAFE
;OPERATION INCOMPLETE
;DRIVE TIMING ERROR
;WRITE LOCK ERROR
: INVALID ADDRESS ERROR

;ADDRESS OVERFLOW ERROR
sHEADER CRC ERROR
;HEADER COMPARE ERROR

;ECC ""HARD'' ERROR

;WRITE CLOCK FAILURE
;FORMAT ERROR
;PARITY ERROR
sREGISTER MODIFICATION REFUSED

s ILLEGAL REGISTER
sILLEGAL FUNCTION

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

;''NDTMSK'' IS USED TO MASK ERROR REGISTER 1

DURING NON = DATA

s COMMANDS, 1.E., HOUSEKEEPING AND POSITIONING COMMANDS

:*RMAS

ATTENTION SUMMARY REGISTER

ATNMSK

= 377

s*RMLA

LOOK AHEAD REGISTER

002000
0010C0
000400
000200
000100

SCé
SC3
SC2
SC1
SCO

=
=
=
=
=

003700

SCTMSK

= 003700

000377

BIT10
BIT09
BIT08
BI107
BIT06

;MASK FOR ATTENTION BITS

;SECTOR
;SECTOR
;SECTOR
;SECTOR
;SECTOR

COUNT
COUNT
COUNT
COUNT
COUNT

=
=
=
=
=

16
8
&
2
1

;SECTOR COUNT MASK

:*RMMR1 MAINTENANCE REGISTER #1
100000

040000
020000
010000
004000

000002
000001
100000

;WRITE ONLY BITS

DBCK
DBEN
DEBL
DTO
MCLK
MRD
MUR
MOC
MSER
MDF
MS
MwP
Ml
MSC

DMD

=
=
=
=
=
=
=
=
=
=
=
=
=
=

BIT15
BIT14
BIT13
BIT12
BITN
BIT10
BIT09
BIT08
BIT07
BIT06
BITO0S
BIT03
BIT02
BITO1

= BIT00

;READ ONLY BITS

occ

BIT15

:DEBUG CLOCK
;DEBUG CLOCK ENABLE
;:DIAGNOSTIC END OF BLOCK
;DIAGNOSTIC TIMEOUT
sMAINTENANCE CLOCK
sREAD DATA
sUNIT READY
:ON_CYLINDER
s SEEK_ERROR
:DRIVE FAULT
:SECTOR PULSE
;WRITE PROTECT
: INDEX PULSE
:SECTOR COMPARE

:DIAGNOSTIC MODE
sOCCUPIED

' CZRMNAO RMOS5/3/2 FCTNL TST 2
RM REGISTER BIT DEFINITIONS

040000

MACRO v03.01

H 2
11-APR=80 13:17:48 PAGE 4=5

SEQ 0020

= BIT14

:RUN AND GO

REX

= BIT12

;EXCEPTION

EBL

= BIT13

;END OF BLOCK

ESRC
PLFS

= BITN
= BIT10

;ENABLE SEARCH
sLOOKING FOR SYNC

PDA

= BIT08

sDATA AREA

CONT
Wl
EECC
MWD
LS
LST
DMD

=
=
=
=
=
=
=

s CONTINUE
sWORD CLOCK
;ENABLE ECC OUT
sWRITE DATA BIT
sLAST SECTOR
;LAST SECTOR AND TRACK
sDIAGNOSTIC MODE

:*RMDT

DRIVE

100000
040000
020000
004000

NSA

= BIT15

sNOT SECTOR ADDRESSED = 0

DRQ

= BITN

;DRIVE REQUEST REQUIRED

020024
024024

SNGPRT
DULPRT

= 020024
= 024024

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

;*RMOF

OFFSET REGISTER

FMT16

= BIT12

;*RMDC

DESIRED CYLINDER ADDRESS REGISTER

CyLmsk

= 001777

ECRC

PHA

000002
000001

010000
004000
002000
000200

001777

TAP
MOH

EC]
HCI
OFD

= BIT09

;ENABLE CRC OuT

= BI107

JHEADER AREA

BIT06
BIT05
BIT04
BIT03
BIT02
BITO1
BIT00
TYPE

= BIT14
= BIT13

= BITN
= BIT10
= BIT07

:TAPE DRIVE = 0
:MOVING HEAD = 1

:16 BIT WORD FORMAT

;ECC INHIBIT
;HEADER COMPARE INHIBIT
;OFFSET FORWARD

sMASK FOR CYLINDER ADDRESS

;*RMMR2 MAINTENANCE REGISTER #2

100000

040000
020000
010000
004000
002000

678

000002
000001

sREAD ONLY BITS

RQA
RQB
TAG
ST

=
=
=
=

BIT15
BIT14
BIT13
BIT12

sPORT A REQUEST
;PORT B REQUEST
:TAG CONTROL
s COMMAND SEQUENCE TEST BIT

8809
8808
8807
8806
BBO5
BB04
BB03
BB02
BB01
8800

=
=
=
=
=
=
=
=
=
=

BIT09
BIT08
B1107
BIT06
BITO05
BITO04
BIT03
BITO2
BIT01
BIT00

:TAG BUS
:TAG BUS
:TAG BUS
:TAG BUS
:TAG BUS
:TAG BUS
:TAG BUS
:TAG BUS
:TAG BUS
:TAG BUS

cC
CH

= BITN
= BIT10

sCONTROL OR CYLINDER TAG
sCONTROL OR HEAD TAG

' CZRMNAO RMO5/3 /2 FCTNL T ST 2

' RM REGISTER Bl 1 DEFINI
NIT 1 ONS

MACRO v03.01

11-APR-B0 13:17:48 PAGE 4=6

SEQ 0021

s *RMER2 ERROR REGISTER 2

100000
040000
020000
010000
004000
002000
000200
000010

100000

040000

BSE
SK1
OPE
IvC
LSC
LBC
DVv(C
DPE

=
=
=
=
=
=
=
=

BIT15
BIT14
BIT13
BIT12
BITN
BIT10
BIT07
BITO03

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

.SBTTL

PROGRAM MNEMCNICS

MSE

USE

= BIT15
= BIT14

.SBTTL

RM REGISTER

sMANUFACTURING DETECTED SECTOR ERROR
;USER DETECTED SECTOR ERROR
INDEX VALUES

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

RMMR2
RMER?2
RMEC1
RMEC?2

= 40
= 42

;MAINTENANCE REGISTER #2
;ERROR REGISTER #2

= 46

;ECC PATTERN REGISTER

ILRG64
ILRG66

= 64
= 66

000077

IDXMSK

=77

.SBTTL

RH CONTROLLER REGISTER BIT DEFINITIONS

s *RMCS1

CONTROL STATUS REGISTER #1

The

=
=
=
=

100000
040000
020000
002000

RMCS1

RMDA
RMDS

RMER1
RMMR1

ILRG50
ILRGS2
ILRG54
ILRG56
ILRG60
ILRG62

ILRG70
ILRG72
ILRG74
ILRG76

MCPE
PSEL

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

20
O

;LOOK AHEAD REGISTER
sMAINTENANCE REGISTER

I
16

RMAS
RMLA
RMDT
RMSN
RMOF
RMDC
RMHR

00
06
12

30
= 32
= 34
= 36

= 46

=
=
=
=
=
=

50
52
54
56
60
62

=70
=72
= 74

=76

BIT15
BIT14
BIT13
BIT10

;ERROR REGISTER 1
;ATTENTION SUMMARY REGISTER

:DRIVE TYPE REGISTER
:SERIAL NUMBER REGISTER
sOFFSET REGISTER
;DESIRED CYLINDER REGISTER
sHOLDING REGISTER

sECC POSITION REGISTER

;ILLEGAL
;ILLEGAL
;ILLEGAL
;ILLEGAL
;ILLEGAL
;ILLEGAL

50
52
54
56
60
62

s ILLEGAL REGISTER 64
s ILLEGAL REGISTER 66

;ILLEGAL REGISTER 70
:ILLEGAL REGISTER 72
s ILLEGAL REGISTER 74

;ILLEGAL REGISTER 76
sMASK FOR REGISTER INDEX NUMBER

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

MACRO sV03.01

" RH CONTROLLER REGISTER B 7 D EFINITION

A17
A16
RDY
IE

Bt b

;*RM(CS2 RH

(=]

e o

107
106

] e

]

g b b Bt

oo OOO0O0OO0OOOO—
s
s
O — NWS VO N
OVO =W

D o o GO GO O O
O

]
]
]
]
]

O O

—— —

v e Qo
o] 0D 0o O

000001

;ADDRESS EXTENSION
sADDRESS EXTENSION

sREADY=READ ONLY
s INTERRUPT ENABLE

ONTROL STATUS REGISTER w2

]

DLY

WCE
UPE
NED
NEM

109
708

]

100000

SEQ@ 0022

Bt Bt bt b b6 boe bt Bt b

001000
000400
000200
000100

J 2
11-APR=80 13:17:48 PAGE 4=7

—_—— ]

" CZRMNAO RM0S/3/2 FCINL T ST 2

sDATA LATE=-READ ONLY

;WRITE CHECK ERROR=READ ONLY

sUNIBUS PARITY ERROR

sNONEXISTANT DRIVE=READ ONLY

sNONEXISTANT MEMORY=READ ONLY
:PROGRAM ERROR=READ ONLY
+MISSED TRANSFER
sMASSBUS DATA BUS PARITY ERROR-READ ONLY
sOUTPUT READY=READ ONLY
s INPUT READY=READ ONLY
;CONTROLLER CLEAR
sPARITY

TEST

;UNIBUS ADDRESS INCREMENT INHIBIT
JUNIT SELECT
sUNIT SELECT
sUNIT SELECT

sUNIT SELECT MASK
000007

UNTMSK

sUNIT SELECT MASK

.SBTTL

000000
000002

RMCS1

o OOOO
=t s et b s
o —=NOWOO =W

s B

o O O

] —f —f —f —f —4

s b
s 3

00 O Co C

] o

IPCK3
IPCK2
IPCK1
1PCKO

— —

DPEHI
DPELO
WCEHI
WCELOD
DBL
IE

— b

000001

APE

@ 0D O

100000

:*RMCS3 RH70 CONTROL STATUS REGISTER #3

000004
000010
000022
000050
000052

RMCS3

176700
120254

ABASE
AVECTT

17 6700
12 0254

RMCS?2

RMDB
RMBAE

.SBTTL

;DATA PARITY ERROR LOW WORD
;WRITE CHECK ERROR HIGH WORD
;WRITE CHECK ERROR LOW WORD
;DOUBLE WORD TRANSFER
s INTERRUPT ENABLE
s INVERT PARITY CHECK
s INVERT PARITY CHECK
s INVERT PARITY CHECK
: INVERT PARITY CHECK

RH11/RH70 CONTROLLER REGISTER INDEX VALUES

00
02
04
10
22
50
52

RMW(C
RMBA

;ADDRESS PARITY ERROR

;DATA PARITY ERROR HIGH WORD

TRAP CATCHER

;CONTROL, STATUS REGISTER #1
;WORD COUNT REGISTER
;BUS ADDRESS REGISTER
;CONTROL, STATUS REGISTER #2
:DATA BUFFER
:BUS ADDRESS EXTENSION
;CONTROL, STATUS REGISTER #3

;UNIBUS ADDRESS
;UNIBUS VECTOR ADDRESS AND PRIORITY

' CZRMNAO RMO5/3/2 FCTNL TST 2
TRAP CATCHER

000000

000174
000176

MACRO v03.01 11-APR-80 13:17:48 PAGEK 438
s*ALL UNUSED LOCATIONS FROM & = 776 CONTAIN A ''.42 HALT"

;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
:'LOCATION19‘C0NTA1NS 0O TO CATCH IMPROPERLY LOADED VECTORS

000174
000000
000000

DISPREG: " .WORD 0
SWREG:

.SBTTL

785
786

000200

000137

SEQ 0023

005420

.WORD

::SOFTWARE SWITCH REGISTER

STARTING ADDRESS(ES)

JMP
.SBTTL

; ;SOFTWARE DISPLAY REGISTER

aFSTART

::JUMP TO STARTING ADDRESS OF PROGRAM

ACT11 HOOKS

':"I.l'...'."t"""""""""."..'l"'"'..'t".'..""."'

000046

000052

787

000204
000046
032530
000052
000000
000204
001100

789

*HOOKS REQUIRED BY ACT11
$SVPC=.
ve

:SAVE PC

isgng

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

WORD

~=$SVPC

.=1100
.SBTTL
R

:32)SET LOC.52 TO ZERO
i RESTORE PC

APT PARAMETER BLOCK

222202

iRl

*SET LOCATIONS 24 AND &4 AS REQUIRED FOR APT

]

::"..t'tl.t".."""""""'.."'.'.."'.t'.""'.'t.'.i't't.'

000024
000044

001100
000024
000200
000044
001100
001100

.$X=,
=24
200

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

=.8X

;;RESET LOCATION COUNTER

::FOR APT START UP

PROGRAM

.=k
::POINT TO APT INDIRECT ADDRESS PNTR.
$APTHDR ;;POINT TO APT HEADER BLOCK
::.".'.'..lt.."l""""""t't'.'...."t"""""lt"t't".'Q

sSETUP APT PARAMETER BLOCK AS DEFINED IN THE APT=PDP11 DIAGNOSTIC
s INTERFACE SPEC.

790

000000
001222
000001
000002
000002
000042
001114

$SAPTHD:
$HIBTS:
$MBADR:
$TSTM:
$PASTM:

SUNITM:

.WORD
.WORD
,WORD
.WORD
.WORD
WORD

TAGADR=,

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

COMMON TAGS

MACRO v03.01

11-APR-80 13:17:48 PAGE 5

.SBTTL

2
SEQ 0024

COMMON TAGS

;:l""""'i'."""'"""""'."'l""'..""""".it't""'

;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS

001114

000000
000

;sSTART OF COMMON TAGS

$TSTNM:
SERFLG:
$ICNT:
SLPADR:
SLPERR:
SERTTL:
SITEMB:
SERMAX:
$SERRPC:
$GDADR:
$BDADR:
$GDDAT:
$BDDAT:

.BYTE
.BYTE
.WORD
.WCRD
.WORD
.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.WORD
.ggsg

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

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

$AUTOB:
$INTAG:

.BYTE
.35;5

0
8

s sAUTOMATIC MODE INDICATOR
s INTERRUPT MODE INDICATOR

DSWR
DDISP

; sADDRESS OF SWITCH REGISTER
s sADDRESS OF DISPLAY REGISTER
23TTY KBD STATUS
2sTTY KBD BUFFER
::TTY PRINTER STATUS REG. ADDRESS

D e
D
D
D
D e
) el e
e
el e
e
D e
) e

el el

SWR:
.WORD
DISPLAY: .WORD
$TKS:
177560
$TKB:
177562
$TPS:
177564

)

$TPB:
177566
$NULL:
.BYTE
$SFILLS: .BYTE
$SFILLC: .BYTE
$TPFLG: .BYTE
$TMPO:
.WORD
$TMP1:
.WORD
$TMP2:
.WORD
$TMP3:
.WORD
$TMP4:
.WORD
$STIMES: 0

—

00
00

.=TAGADR
-8

$CMTAG:

el e

NNNNOOOO
VWA
5 5N 5 WIWNINIWNINNI NN ) = = s
WN=OOSFNOOFTNN—=O0
ST NOOFN=OC S~ NO~NO &~

;*USED IN THE PROGRAM,

._‘4--_x,

CZRMNAO RMO5/3/2 FCTNL TST 2

377

000

377

$SESCAPE:0

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

0
2
12
0
O
O
O

O
O

:sESCAPE ON ERROR ADDRESS

$BELL:

.ASCIZ

<207><377><377> ;:CODE FOR BELL

$CRLF:
SLF:

L.ASCII
LASCIZ

<15
<12

$SQUES:
W

.ASCI1

7?7/

A2 2222222222220

"SBTTL

s sQUESTION MARK

s sCARRIAGE RETURN
ssLINE FEED
R

APT MAILBOX-ETABLE

222

2002

RRRRRRRRZ

':'...t"."."""""'""""".l.'l.'.t't"'t't.'i't"lt'l.l'

“EVEN

000000
000000
000000

$MAIL:
$MSGTY:
$FATAL:
$TESTN:

.WORD
.WORD
.WORD

AMSGTY
AFATAL
ATESTN

;:APT MAILBOX
;sMESSAGE TYPE CODE

::FATAL ERROR NUMBER

: s TEST NUMBER

! CZRMNAO RMOS5/3/2 FCTNL TST 2
| APT MAILBOX-ETABLE

000000

001244
001246
007250

000
000000
000000
000000

11-APR=-80 13:17:48 PAGE 5-1

$PASS:
.WORD
$DEVCT: .WORD
SUNIT:
.WORD
$MSGAD: «WORD
$MSGLG: .WORD
SETABLE:
$SENV:
.BYTE
SENVM:
.BYTE
$SWREG: «WORD
SUSWR:
.WORD
$CPUOP: .WORD

APASS

ADEVCT
AUNIT
AMSGAD
AMSGLG
AENV
AENVM
ASWREG
AUSWR
ACPUOP

—

XX
>
=

000
000

JMHVIE

AMAMS1
AMTYP1

%
%
*

001254

000000

.WORD

AMADR1

001256
001257
001260
001262
001263
001264
001266
001267

000
000
000000
000

:
:

BYTE
.BYTE

AMAMS2
AMTYP?

,._.____.____.__..___...__._4,.___,_____

001324

:
:

000000
"

:
:
:
:

000000
$DDW2:
$DDW3:
$DDW4:
o
o
=4
b=d
o
o

N NN NN NN
~N
~N OO
NO

=4
o

N-o-o-.-og

001304

000000

: :PASS COUNT
: :DEVICE COUNT
::1/0 UNIT NUMBER
: sMESSAGE ADDRESS
s sMESSAGE LENGTH
: sAPT ENVIRONMENT TABLE
: :ENVIRONMENT BYTE
: sENVIRONMENT 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

pr—

(==
oo

52
53

SEQ 0025

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

e
Nc . PAPIT
S v

001230

MACRO v03.01

$DDWS:

$DDW6:

$DDW7:

SETEND:
LMEXIT

.WORD
BYTE

BYTE

.WORD

.BYTE

JBYTE
WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD
.WORD
.WORD

AMADR
AMAMS

AMTYP3
AMADR3
AMAMS4
AMTYP4
AMADRS

AVECT]
AVECT2
ABASE

ADEVM

ACDW1
ACDW2

ADDWO
ADDW1

ADDW?
ADDW3
ADDW4

ADDWS

ADDW6

ADDW7

0= REAL TIME CLOCK
9= FLOATING POINT PROCESSOR
8= MEMORY MANAGEMENT

1GH ADDRESS ,M.S. BYTE
-*30

F”

E TYPE ,BLK#
PE BYTE

(HIGH BYTE)

900 NSEC CORE=001
300 NSEC BIPOLAR=002
500 NSEC MOS=003
:sHIGH ADDRESS,BLKA1
MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF '‘TYPE'' ABOVE
:sHIGH ADDRESS,M.S. BYTE

::MEM.TYPE ,BLKN?
: sMEM.LAST ADDRESS ,BLK#?

M. S.BYTE
::HIGH ADDRESS

s sMEM.TYPE ,BLKA3
s sMEM.LAST ADDRESS ,BLKA3

::HIGH ADDRESS ,M.S.BYTE
s sMEM_TYPE ,BLKNG
s sMEM.LAST ADDRESS ,BLKNG
s INTERRUPT VECTOR#1,BUS PRIORITY#1
;s INTERRUPT VECTORN2BUS PRIORITYN?
; :BASE ADDRESS OF EQUIPMENT UNDER TEST
::DEVICE MAP
: ;CONTROLLER DESCRIPTION WORDA1

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

DESCRIPTOR WORD#?
DESCRIPTOR WORDA3
DESCRIPTOR WORDA4
DESCRIPTOR WORDAS
DESCRIPTOR WORD#6
DESCRIPTOR WORDA?

————n

| CZRMNAO RMOS/3/2 FCTNL TST 2
| USER DEFINED TAGS

0
|
|

001326
001330

|
|

001332
001333

000000
000000
000
000

MACRO V03.01 11-APR-80 13:17:48 PAGE 6
.SBTTL

USER DEFINED TAGS

CTLFG:
XXDP:

.WORD
.WORD

LSTRK:

.BYTE
BYTE

0
0
0
0

SEQ 0026

;CONTAINS CONTROL=C FLAG
:THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH
:THE

PROGRAM WAS

:'XXDP®

LOADED.

THE

MIGHM BYTE

DEVICE CODE FOR THE RM0S/3/2.

:L0 BYTE = 0
iH1 BYTE,
CONTAINS LAST TRACK ADDRESS OF UNIT

‘UNDER TEST. RM02/3 = 4., RMOS= 18.

:THE REGISTER INPUT BUFFER IS USED FOR

:STORING DRIVE STATUS

001334

GETBUF:

o
;
'

001334
001336
001340

000000
000000
000000

.WORD
.WORD
.WORD

O
0
0

001342
001344
001346
001350
001352
001354
001356
001360
001362
001364
001366
001370
001372
001374
001376
001400

000000
000000
000000
000000
000000
000000
000000
000000
000000
00000
000000
000000
000000
000000
000000
000000

RMDAI:
RMCS21:
RMDSI:
RMER1I:
RMASI:
RMLAI:
RMDBI:
RMMR1I:
RMDTI:
RMSNI:
RMOFI:
RMDCI:
RMHRI:
RMMR21:
RMER2I:
RMECTI:

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

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

001404

000000

RMBAEI:

.WORD

001402 000000

;REGISTER INPUT BUFFER

RMCS11:
RMWCI:
RMBAI:

001406

000000

RMEC2I: .WORD

RMCS31: .WORD

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

:DISK ADDRESS REGISTER
:CONTROL, STATUS REGISTER #2
:DRIVE STATUS REGISTER
:ERROR REGISTER #1
SATTENTION SUMMARY REGISTER
:LOOK AHEAD REGISTER
:DATA BUFFER
*MAINTENANCE REGISTER #1
:DRIVE TYPE REGISTER
:SERIAL NUMBER REGISTER
:OFFSET REGISTER
:DESIRED CYLINDER REGISTER
*HOLDING REGISTER
‘MAINTENANCE REGISTER #2
*ERROR REGISTER #2
‘ECC POSITION REGISTER

*ECC PATTERN REGISTER

:CONTROL, STATUS REGISTER #3

:BUS ADDRESS EXTENSION REGISTER

:THE REGISTER OUTPUT BUFFER 1S USED FOR

SASSEMBLING DATA GOING 1O REGISTER

001410

PUTBUF:

;REGISTER OUTPUT BUFFER

s
|

001410
001412

000000
000000

RMCS10:
RMWCO:

.WORD
.WORD

0
0

;CONTROL, STATUS REGISTER #1
:WORD COUNT REGISTER

;

001416
001420

000000
0000

RMDAO:
RMCS20:

.WORD
.WORD

0
O

:DISK ADDRESS REGISTER
:CONTROL, STATUS REGISTER #2

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

O
0
0
0
0
O

001414

001422

001424
001426
001430
001432
007434
001436

000000

000000
000000
000000
000000
000000
000000

RMBAO:

RMDSO:

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

.WORD

CONTAINS

:BUS ADDRESS REGISTER

:DRIVE STATUS REGISTER

*ERROR REGISTER #1
SATTENTION SUMMARY REGISTER
:LOOK AHEAD REGISTER
:DATA BUFFER
:MAINTENANCE REGISTER #1
:DRIVE TYPE REGISTER

THE

[

| CZRMNAO RMOS/3/2 FCTNL TST 2
' USER DEFINED TAGS

J01440
001442
001444
001446
001450
001452
001454
001456
001460
001462

000000
000000
00

000000

MACRO v03.01

11-APR-80 13:17:48 PAGE 6-1

RMSNO:
RMOFO:
RMDCO:
RMHRO:

.WORD
.WORD
.WORD
.WORD

0
O
0
0

SEQ 0027

s SERIAL NUMBER REGISTER
;OFFSET REGISTER
;DESIRED CYLINDER REGISTER
;HOLDING REGISTER

RMMR20:
RMER20:
RMEC10:
RMEC20:

.WORD
.WORD
.WORD
.WORD

0
0
O
0

MAINTENANCE REGISTER #2
:ERROR REGISTER #2
;ECC POSITION REGISTER
sECC PATTERN REGISTER

RMCS30:

.WORD

;CONTROL, STATUS REGISTER #3

RMBAEO:

.WORD

;BUS_ADDRESS EXTENSION REGISTER

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

;THE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THE
:FIRST WORD CONTAINS THE ADDRESS OF THE DEVICE UNDER TEST
é:DTgE }:ELEUE ZERO WORD IS A BLANK AND REPRESENTS THE

001464

000000

001506

000000

001510

TSTQUE:

.WORD

.BLKW
.WORD

8.
0

;CONTAINS DEVICE POINTER

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

;ALL 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.

000000

MEDENB:

-000000
000000
000000
000000

:ADDRESS ASSIGNED BY THE BAD SECTOR MODULE.
ASNDC:
.WORD
0
sASSIGNED DESIRED CYLINDER
ASNDA:
.WORD
0
:ASSIGNED TRACK, AND SECTOR
CLKADR: .WORD
0
:UNIBUS ADDRESS OF KW11 CLOCK
CLKVCT: .WORD
0
:VECTOR ADDRESS OF KW11 CLOCK

.WORD

sMEDIA ENABLE

;LOCATIONS ''ASNDC'' AND ‘'ASNDC'' CONTAIN THE CYLINDER, TRACK AND SECTOR

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

001522

;A NEGATIVE BYTE.

GETINX:

.BLKB

23.

;GET INDEX TABLE

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

001551

:A NEGATIVE BYTE.
PUTINX: .BLKB
23.
;PUT

TAGS HERE

:PUT

INDEX TABLE

' CZRMNAO RMO0S/3/2 FCTNL TST 2

' ERROR POINTER TABLE

MACRO v03.01

[

11-APR-80 13:17:48 PAGE 7

SEQ 0028
.SBTTL

ERROR POINTER TABLE

s sPOINTS TO THE ERROR MESSAGE
ssPOINTS TO THE DATA HEADER
;sPOINTS TO THE DATA

$ERRTB:

sERROR

—_—

;ERROR

mmmm
"ToOIT=R

_— —

S
S

DEVICE WENT UNAVAILABLE

sERROR
N
e
e
—

EMTS

EHT]
EDTI
EFT1

DRIJE NOT READY AND GO NOT RESET
— o
—

—et
\UN

:ERROR

001640
001642
001644
001646

CONTROLLER NOT READY

"o IxIT=R

owns

—

—_——

"ToOIxIT
=R

mmmm

;ERROR
001630
001632
001634
001636

DEVICE WENT NONEXISTENT

mmmm

—

W
—

001620
001622
001624
001626

SELECTED

—_——
— 4

mmmm

"oIxIT =R

001600
001602
001604
001606

WRONG UNIT

— et e N

001600

ssPOINTS TO THE DATA FORMAT

S W
-

nen,

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

' CZRMNAQ RMOS/3/2 FCTNL TST 2
ERROR POINTER TABLE

}3
065200
071%36
071362
071452

065206
000000
000000
000000

065214
071236
071362
071452

26
S;
065220
071236
071362
071452

29
gg

065224
071236
071362
071452

iz
065232
071236
071362
071452

GO NOT RESET BUT DRIVE

1S READY

INCORRECT FUNCTION CODE

PARITY ERROR READING REMOTE REGISTERS

EMT13
EHTI
EDT1
EFTI
:ERROR

001730
001732
001734
001736

DRIVE NOT READY BUT GO IS RESET

EMT12
EHTI
EDTI
EFT1

;ERROR
001720
001722
0017264
001726

EMTI
EHTI
EDTI
EFTI
:ERROR

001710
001712
001714
001716

BUS TIMEOUT TRYING TO READ OR WRITE REGISTER

EMT10
EHTI
EDT1
EFTI
;ERROR

001700
001702
001704
001706

UNEXPECTED VALUE FOR ''ATA'' STATUS

EMT?
0
0
0

;ERROR
001670
001672
001674
001676

SEQ 0029

EMTE
EXTI
EDTI
EFTI

;ERROR 7
001660
001662
001664
001666

11-APR=80 13:17:48 PAGE 7-1

;ERROR
001650
001652
001654
001656

38
39

MACRO v03.01

]

065244
071236
071362
071452

TRANSFER ERROR IS INCORRECT

EMT14
EHT
EDT]
EFT

JERROR

INCORRECT WORD COUNT

CZRMNAO RMO5/3/2 FCTNL TST 2

ERROR POINTER TABLE
40

001740
0017642
001744
001746

MACRO v03.01 11-APR-80 13:17:48 PAGE 7=2

065252
071236
071362
071452

EMT1S
EXWTI
EDTI
EFT1
:ERROR

” 001750 065260
001752
001754
001756

065270
071236
071362
071452

23
065300
071236
071362
071452

50
g;

065310
071236
071362
071452

065320
071236
071362
071452

56
g;

INCORRECT AOE

INCORRECT DISK ADDRESS

INCORRECT CYLINDER ADDRESS

EMT22
ENT
EDTI
EFTY
:ERROR

002020
002022
0020264
002026

EMT21
EMT
EDTI
EFT

:ERROR
002010
002012
002014
002016

INCORRECT LBT STATUS

EMT20
EHT
EDTI
EFTY

;ERROR
002000
002002
002004
002006

17
EMT17
ENTI
EDTI
EFT

;ERROR
001770
001772
0017764
001776

59
60

EXTI
EDTI
EFTI

:ERROR
001760
001762
001764
001766

INCORRECT BUS ADDRESS

EMT16

071236
071362
071452

065330
071236
071362
071452

INCORRECT WLE STATUS

EMT23
EXTI
EDT?
EFTY
:ERROR

INCORRECT UPE STATUS

SEQ 0030

F
.3
11-APR-80 13:17:48 PAGE 7-3
mmmm

002030
002032
002034
002036

SEQ 0031

— A
N

ERROR POINTER TABLE

MACRO v03.01

—t ot
—4

CZRMNAO RMO5/3/2 FCTNL TST 2

;ERROR
— et
N

INCORRECT WCF jYATUS

:ERROR

INCORRECT WCE STATUS

sERROR

INCORRECT MDPE STATUS

sERROR

INCORRECT

:ERROR

INCORRECT ECH STATUS

;ERROR

DLT SHOULD NOT BE SET

s ERROR

MXF

002050
002052
002054
002056

002120

065430

DCKk

STATUS

SHOULD NOT BE

SET

~ CZRMNAO RM05/3/2 FCTNL TST 2
- ERROR POINTER TABLE

002122
002124
002126

MACRO v03.01 11-APR-80 13:17:48 PAGg 724

071236
071362
071452

83
gg

EMTI
EDTI
EFT
;ERROR

002130
002132
002134
002136

065440
071236
071362
071452

86
gg
065450
071236
071762
071452

89
g?

065460
071236
071362
071452

32
065470
071236
071362
071452

33
065500
071236
071362
071452

98
183

065506
071236
071362
071452

101

}8%
065516
071236

INCORRECT FER STATUS

DPE SHOULD NOT BE SET (NOT A DATA COMMAND)

LOST ""MOL'' DURING PACK ACKNOWLEDGE

EMT4
tHT
EDTI
EFT

:ERROR
002210
002212

INCORRECT HCE STATUS

EMT40
EHTI
EDTI
EFT

;ERROR
002200
002202
002204
002206

EMT37
EXT
EDT
EFT

;ERROR
002170
002172
002174
002176

INCORRECT HCRC STATUS

EMT36
EHTI
EDT
EFT1

:ERROR
002160
002162
002164
002166

EMT3S
EHTI
EDT]
EFT1

;ERROR
002150
002152
002154
002156

DTE SHOULD NOT BE SET

EMT34
EMTI
EDI
EFT1
;ERROR

002140
002142
002144
002146

&2
EMT&?
EWT

UNSAFE ERROR DURING PACK ACKNOWLEDGE

SEQ 0032

CZRMNAO RMO5/3/2 FCTNL TST 2

ERROR POINTER TABLE

002214
002216

MACRO v03.01 11-APR=-80 13:17:48 PAGE 725
H

071362
071452

104
}82

EDTI
EFTI
;ERROR

002220
02222
002224
002226

065530
071236
071362
071452

107
}88

065540
071236
071362
071452

110
}}}

065550
071236
071362
071452

113

}}g

065560
071236
071362
071452

116

}}g
065570
071236
071362
071452

110
}%?

065576
071236
071362
071452

122
}Sz

065606
071236
071362

"ILF'"" ERROR DURING PACK ACKNOWLEDGE

COMPOSITE ERROR STATUS IS INCORREC(TY

PARITY ERROR WRITING REMOTE REGISTERS

EMTSO
EHTI
EDTI
EFT1
JERROR

002300
002302
0023064

"ILR"" ERROR DURING PACK ACKNOWLEDGE

EMTS7
EXTI
EDTI
EFT1
;ERROR

002270
002272
002274
002276

EMT46
EHTI
EDTI
EF T
ZRROR

002260
002262
002264
002266

"'RMR'" ERROR DURING PACK ACKNOWLEDGE

EMT4S
EHTI
EDT1
EFT1
JERROR

002250
002252
002254
002256

44
EMT44
EWTI
EDTI
EFTI

;ERROR

002240
002242
002244
002246

"'OP1'" ERROR DURING PACK ACKNOWLEDGE

EMT4S3
EWTI
EDTI
EFT1
JERROR

002230
002232
002234
002236

EMTSI
ENTI
EpT

INCORRECT

JAE STATUS DURING SEEK COMMAND

SEQ 0033

| CZRMNAO RMO5/3/2 FCTNL TST 2
- ERROR POINTER TABLE

002306
125
126
127

128
129
130
13

002330
002332
002334
002336

002340
002342
002344
002346
138
139
140

14
142
143

002350
002352
002354
002356

002360
002362
002364
002366

SEQ 0034

EFTI

;ERROR

OP1 ERROR DURING SEEK = MEDIUM IS NOT ON LINE

:ERROR

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

: ERROR

SEEK

sERROR

DEVICE CHECK DURING SEEK COMMAND

;ERROR

PIP

sERROR

ATA DID NOT

sERROR

IVC ERROR DURING SEEK COMMAND - LOST
VOLUME VALID

065620
071236
071362
071452

065636
071236
071362
071452
INCOMPLETE ERROR DURING SEEK CNMMAND

065654
071236
071362
071452

~NOoOrw

—

002320
002322
002324
002326

11-APR-80 13:17:48 PAGE 7-6

071452

132
133
134

002310
002312
002314
002316

MACRO v03.01

065664
071236
071362
071452
IS STILL SET AFTER SEEK = SKI

IS RESET

065676
071236
071362
071452
SET

DURING SEEK

COMMAND

065714
071236
071362
071452

144

145
146
147

002370
002372

065724
071236

CZRMNAO RMO5/3/2 FCTNL TST 2

- ERROR POINTER TABLE

ERRONEOUS IVC ERROR DURING SEEK COMMAND VOLUME VALID IS STIL SET

+ERROR

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

:ERROR

UNUSED

;ERROR

DRIVE DID NOT DETECT "'IvC'" ERROR DURING SEEK

sERROR

DRIVE EXECUTED A SEEK WITH ERROR SET

;ERROR

UNEXPECTED ERROR SET

IN RMER1

;ERROR

UNEXPECTED ERROR SET

IN RMER?

:ERROR

(P V)

EDT]
EFT1

(VL IV Pl

- OO
00

071362
071452

SEQ 0035

VDAL

002374
002376

MACRO v03.01 171-APR-80 13:17:48 PAG% 757

co~NO

—_——

— e e d

002400
002402
002404
002406

000000

- OO

002426

s W

—
—

066000
071236
071362
071452

002430

b
b
—

066020
071452

oo
~NO W

002440
002442
002444
002446

002450
002452
002454
002456
168
169
17

002460

066040
071452

066052

" CZRMNAD RMOS/3/2 FCTNL TST 2
- ERROR POINTER TABLE

MACRO v03.01 11-APR-80 13:17:48 PAGEK 728
11
11
m

~NN~N

W)
=

— s

002462
002464
002466

;ERROR

ERRONEOUS "'IAE'" ERROR DURING RECALIBRATE

;ERROR

“ILF'" ERROR DURING RECALIBRATE

:ERROR

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

:ERROR

"'OP1'" ERROR DURING RECALIBRATE BECAUSE ON

;ERROR

"IvC"" ERROR DURING RECALIBRATE = '‘wyv'' = 0

;ERROR

ERRONEOUS "'IvC'' ERROR DURING RECALIBRATE = *'wy'' = 1

:ERROR

"'SK1'" ERROR DURING RECALIBRATE

002470
002472
002474
002476
174
175

176

002500
002502
002504
002506

002550

066170

CYLINDER DIDNT DROP

SEQ 0036

193

SEQ 0037

sERROR

"DVC'" OCCURRED DURING RECALIBRATE

:ERROR

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

;ERROR

LOST "'vv'' DURING RECALIBRATE = "‘IvC'" = 0

sERROR

"ATA" DID NOT SET DURING RECALIBRATE

;ERROR

"'OM"" DID NOT RESET DURING RECALIBRATE

s ERROR

“PIP'" 1S STIL SET AFTER RECALIBRATE

002560
002562
002564
002566

—

002570
002572
002574
002576

071362
071452

066246
071236
071362
071452

sERROR

002640

066306

105

UNEXPECTED "ILR" ERROR DURING RECALIBRATE

EMT105
EWTI
——— ——

96
97
98

"o X

mmm

002552
002554
002556
194
195

11-APR=80 13:17:48 PAGE 7-9
——

MACRO v03.01

—,

CZRMNAO RM05/3/2 FCTNL TST 2
ERROR POINTER TABLE

CZRMNAO RMO5/3/2 FCTNL TST 2
' ERROR POINTER TABLE

MACRO V03.01

(o JLV
Po

Voo~

002644
002646
1
1
1

1
1
1

‘

11-APR-80 13:17:48 PAGE 7-10

EDTI
EFTI
:ERROR

UNEXPECTED "'RMR'' ERROR DURING RECALIBRATE

;ERROR

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

;ERROR

CANNOT ACCESS MASSBUS CONTROLLER VIA UNIBUS

;ERROR

NONEXISTENT DEVICE

sERROR

DEVICE NOT AVAILABLE

;ERROR

BUS TIMEOUT-NED STATUS FAILURE

sERROR

DEVICE NOT AN RM05/3/2

002650
002652
002654
002656

220
221
222

002660
002662
002664
002666

002670
002672
002674
002676

066346
071260
071400
071470

066360
071264
071402
071472

066366
071264
071402
071472

00273
00273
002734

SEQ 0038

CZRMNAD RMO5/3/2 fCTNL TST 2

ERROR POINTER TABLE

002750
002752
002754
002756

002760
002762
002764
002766

002776

£Hwro
e
O
N —
oo

RMCS1

NOT

INITIALIZED BY UNIBUS

EMT115
EXTI
EDTI
EFTY
sERROR

RMBA NOT

;ERROR

RMCS2 NOT

INITIALIZED BY UNIBUS

;ERROR

RMER1

INITIALIZED BY UNIBUS

;ERROR

RMAS NOT

sERROR

RMMR1

sERROR

RMDS NOT

INITIALIZED BY UNIBUS

066436
071236
071362

071452

NOT

066446
071236
071362
071452
INITIALIZED BY UNIBUS

—

003000

247
248
249

OOO§

002740
002742
002744
002746

115

—

241
262
243

;ERROR

—

238
239
240

EFT114

(o= o=
NNNO>
—_— s s O
Hwro
e~
VO
i
oo

3
3
3

N_3

11-APR-80 13:17:48 PAGE 7-11

071474

~Norwn

002736

MACRO v03.01

NOT

INITIALIZED BY UNIBUS

SEQ 0039

ERROR POINTER TABLE

MACRO v03.01

11-APR=80 13:17:48 PAGE 7-12

SEQ 0040

sERROR

RMEC2 NOT INITIALIZED BY UNIBUS

:ERROR

RMMRZ NOT

:ERROR

RMCS?

003030
003032
003034
003036
INITIALIZED BY UNIBUS

003040
003042
003044
003046

003050
003052
003054
003056

003060
003062
003064
003066

NOT CLEARED BY CONTROLLER CLEAR

EMT126

EHT1
EDTI
EFT1

+ERROR

RMBA NOT

: ERROR

RMCS2 NOT CLEARED BY CONTROLLER CLEAR

:ERROR

RMER1 NOT CLEARED BY CONTROLLER CLEAR

+ERROR

RMAS NOT

CLEARED BY

CONTROLLER CLEAR

066540
071236
071362
071452

CLEARED BY CONTROLLER CLEAR

(

IRMNAO RM05/3/2 FCTNL TST 2

P
| CZRMNAQ RM05/3/2 FCTNL TST 2
' ERROR POINTER TABLE

277

%;3

066610
071236
071362
071452

280

%g}

066622
071236
071362
071452

283
%gg
066634
071236
071362
071452

286

sg;

066646
071236
071362
071452

289
003160
003162
003164
003166

066660
071236
071362
071452

292

%32

003170
003172
003174
003176

295

066700
071236
071362
071452

RMDS NOT CLEARED BY CONTROLLER CLEAR

135

RMEC2 NOT CLEARED BY CONTROLLER CLEAR

136

RMMR2 NOT CLEARED BY CONTROLLER CLEAR

:ERROR 137

RMCS1 NOT CLEARED BY ERROR CLEAR

;ERROR

RMCS2 NOT CLEARED BY ERROR CLEAR

EMT137
EHTI
EDTI
EFT1

140
EMT140
EHTI
EDTI
EFT1

:ERROR
003200
003202
003204
003206

134

EMT136
EHTI
EDTI
EFT1

066670
071236
071362
071452

533

RMMR1 NOT CLEARED BY CONTROLLER CLEAR

EMT135
EHTI
EDTY
EFT1
;:ERROR

003150
003152
003154
003156

133

EMT134
EHT
EDTI
EFTY
:ERROR

003140
003142
003144
003146

EMT133
EHTI
EDTY
EFTI

:ERROR
003130
003132
003134
003136

11-APR=-80 13:17:48 PAGE 7-13

;ERROR
003120
003122
003124
003126

53?

MACRO v03.01

141
EMT141
EHTI
EDT1
EFT

RMCS1 NOT CLEARED BY DRIVE CLEAR

SEQ 0041

| CZRMNAO RMO5/3/2 FCTNL TST 2

- ERROR POINTER TABLE

D &
11-APR=80 13:17:48 PAGE 7-14

SEQ 0042
JERROR

RMDS NOT CLEARED BY DRIVE CLEAR

+ERROR

RMERT NOT

;ERROR

RMAS NOT

[=lelele]
NNNO
— s
N
S WO
VOTM
N —
LSTST.
X )

299
300

MACRO v03.01

CLEARED BY DRIVE CLEAR

066720
071236
071362
071452

066730
071236
071362
071452

003250
003252
003254
003256

CLEARED BY

DRIVE

CLEAR

EMT144
EHT]
EDTI
EFTI
;ERROR

RMMR1

:ERROR

RMMR2 NOT

066750
071236
071362
071452

NOT

CLEARED BY DRIVE

CLEAR

CLEARED BY DRIVE CLEAR

EMT146
EHTI
EDTI
EFT
;ERROR

066760
071236
071362
071452

147

RMER2 NOT CLEARED BY DRIVE CLEAR

EMT147
EHTI
EDTI
EFT

+ERROR

150

RMEC2 NOT CLEARED BY DRIVE

EMT150
EWTI
EDTI
EFT1

JERROR

151

MEDIUM NOT ON LINE

CLEAR

;

CZRMNAO RMOS/3/2 FCINL TST 2

. ERROR POINTER TABLE

321

003300
003302
003304
003306

067000
071236
071362
071452

322

i%i
'

003310

003312

003314
003316

067012

i
|

003332
003334
003336

003342
003344
003346

067060

067072
071236
071362
071452

337

ggg

34
53:}

155

VOLUME VALID NOT SET BY PACK ACK

156

OFFSET MODE NOT SET BY OFFSET COMMAND

EMT156
EHTI
EDTI
EFTY
;ERROR

003360
003362
003364
003366

UNSAFE SHOULD NOT BE SET, AC IS LOW

EHTI
EDTY
EFT1

:ERROR
003350
003352
003354
003356

154

EMT155

071236
071362
071452

334
g;z

1S SET

EHTI
EDTI
EFT1
;ERROR

003340

.
i
-

UNSAFE SHOULD BE SET BECAUSE DVC

EMT154

071236
071362
071452

331

153

EMT153
EHTI
EDTI
EFTI

067042

ggi

;

EDTI
EFTI

;ERROR

003330

|
|
|

EHTI

067024
071236
071362
071452

328

DRIVE FAULT

EMT152

071362
071452

%%8

;ERROR 152

;ERROR

003320
003322
003324
003326

SEQ 0043

EMT151
EHTI
EDTI
EFTY

071236

325
ggg

MACRO V03.01 11-APR-80 13:17:48 PAGE 7215

067104
071236
071362
071452

157

OFFSET MODE NOT RESET BY RTC COMMAND

EMT157
EHT
EDT
EFT1

;ERROR

160

RMOF NOT RESET BY RIP COMMAND

CZRMNAO RM0O5/3/2 FCTNL TST 2
ERROR POINTER TABLE

003370
003372
03374
003376

MACRO v03.01

11-APR-B0 13:17:48 PAGE 7-16

067116
071236
071362
071452

SEQ 0044

EMT160
EHTI
EDTI
EFT1

43
L4

345

346
347
348

349
350
351
352

353
354
355

356
357
358

JERROR

003400
003402
003404
003406

067126
071236
071362
071452

067140
071236
071362
071452

067162
071236
071362
071452

067170
071236
071362
071452

164

OP1

SHOULD NOT BE

SET

165

IvC SHOULD NOT BE SET

EMT165
EHTI
EDTI
EFT1
JERROR

003450
003452
003454
003456

DATA WAS ECC CORRECTED BUT
WRITE BUFFER

EMT164
EHTI
EDT)
EFT1

;ERROR
003440
003442
003444
003446

RESET BY RIP COMMAND

EMT336
EHT336
EDT336
EFT336

JERROR
003430
003432
003434
003436

RMDC NOT

EMT162
EHT
EDTI
EFT1

071032
071320
071416
071506

359
gg?

362
363
364

162

;ERROR 163
:

003420
003422
003426
003426

RMDA NOT RESET BY RIP COMMAND

EMT161
EHTI
EDTI
EFT1
;ERROR

003410
003412
003414
003416

161

067176
071236
071362
071452

166

IAE SHOULD NOT BE

SET

NEM SHOULD NOT BE

SET

EMT166
ENTI
EDTI
EFT1
JERROR

167

DOES NOT

COMPARE WITH

CIRMNAD RMO5/3/2 FCTNL TST 2

ERROR POINTER TABLE

MACRO v03.01

6 &
11-APR=-80 13:17:48 PAGE 7-17

003460
003462
003464
003466

—
) —
—

DT
FT?

mmmm

MT1 67
HT1

sERROR 1 0

003470
003472
003474
003476

UNUSED

OO0OO0O

365
366
367

SEQ 0045

:ERROR

171

"ATA'" NOT

SET DURING RETURN TO CENTERLINE

“ATA"" NOT

SET BY OFFSET COMMAND

RMER2 NOT

INITIALIZED BY UNIBUS

RMERZ2 NOT

INITIALIZED BY CONTROLLER CLEAR

EMTI7T
EXT
EDTI
EFTI
:ERROR

172

EMT172
EHTI
EDTI
EFTI
;ERROR

173

INIT

EMT173
EHTI
EDTI
EFTI
:ERROR

174

EMT174
ENT]
EDTI
EFTI
;ERROR

175

SELECTED DEVICE

IS IN WRITE PROTECT

EMT175
EWTI
EDTI
EFT1
:ERROR
067272

176

EMTI76

CANNOT

SET DIAGNOSTIC MODE

MACRO v03.01

H
&
11-APR-80 13:17:48 PAGE 7-18

;ERROR

—_—

SEQ 0046
mmm

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

177

INCORRECT "MOL"" STATUS DURING DIAGNOSTIC MODE

EMT177
EXTI

003566

;ERROR

INCORRECT "PIP"" STATUS DURING DIAGNOSTIC MODE

;ERROR

INCORRECT "WRL'" STATUS DURING DIAGNOSTIC MODE

sERROR

INCORRECT "'SK1'" STATUS DURING DIAGNOSTIC MODE

;ERROR

INCORRECT "DvC'" STATUS DURING DIAGNOSTIC MODE

:ERROR

"'WV'' WAS NOT RESET BY MAINTENANCE UNIT READY

003570
003572
003574
003576
392
393
39¢

003600
003602
003604
003606

;ERROR

067400
071236

205

EMT205
ENTI

SELECTED DEVICE HAS A PERSISTENT *'SKI'* ERROR

CZRMNAD RMO5/3/2 FCTINL TST 2

ERROR POINTER TAB

MACRO v03.01

SEQ 0047

003644
003646
407

11-APR-80 13:17:48 PAGE 7-19

EDTI
EFTY
:ERROR

“LBC"" DID NOT SET DURING DIAGNOSTIC MODE

:ERROR

UNEXPECTED LOSS OF "MOL'" = MEDIUM IS OFF

;ERROR

UNEXPECTED LOSS OF

;ERROR

UNEXPECTED MECHANICAL MOTION = 'PIP'" =

VOLUME

LINE

VALID - "‘wv'' = 0

Te 3
[+ B

—
—

003670
003672
003674
003676

003700

EMT211

EHTI
EDTI

EFTI
419
420
621

sERROR

622
423
624

;ERROR

212

UNEXPECTED DEVICE FAULT = "Dv('
= 1

EMT212
EHT]
EDT
EFTI

003720
003722
003724
003726

213

UNEXPECTED SEEK

INCOMPLETE ERROR = "'Sk]'' =

EMT213
EWT]
EDTI
EFTI
sERROR

214

EMT214
ENT?
EDT2

DRIVE EXECUTED A RECALIBRATE WITH ERROR SET

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

003736

MACRO v03.01

J
11-APR-80 13:17:48 PAGE

SEQ 0048

071462

EFT2
+ERROR

003752
003754
003756
634
435
636

437
438
639

003760
003762
003764
003766

003770
003772
003774
003776

:ERROR

INCORRECT "'IvC'" STATUS

;ERROR

INCORRECT "'IAE'" STATUS

;ERROR

INCORRECT "WLE'' STATUS

067

067542
071236
071362
071452

067552
071236
071362
071452

;ERROR
004000
004002
004004
004006

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

071
071
07

440
441

662

215
EMT215
EHT?
EDT2
EFT2

003746

003750

&
7-20

067562
071236
071362
071452

221

INCORRECT "'OPI'" STATUS

EMT221
EHTI
EDT]
EFTI

643

L4l
465

004010
004012
004014
004016

;ERROR

RM DID NOT DETECT RMR ERROR

+ERROR

RM DID NOT DETECT PARITY ERROR ON MASSBUS CONTROL BUS

067572
071236
071362
071452

W7
448

004020
006022
004026
004026

067602
071274
071406
071476

CZRMNAO RMOS/3/2 FCTNL TST 2

ERROR POINTER TABLE

449

2%?

000000
000000
000000
000000

452

222
000000
000000
000000
000000

455

229
000000
000000
000000
000000

458
223

000000
000000
000000
000000

461

22%
000000
000000
000000
000000

464

465

000000
000000
000000
000000

467

223
000000
000000
000000
000000

UNUSED

227

UNUSED

230

UNUSED

231

UNUSED

0
0
0
0

:ERROR
004110
004112
004114
004116

226

0
0
0
0
:ERROR

0041
004102
004104
0041

UNUSED

0
0
0
0

;ERROR
004070
004072
004074
004076

225

0
0
0
0
;ERROR

004060
004062
004064
004066

UNUSED

0
0
0
0

:ERROR
004050
004052
004054
004056

224
0
0
0
0

;ERROR
004040
004042
004044
004046

SEQ 0049

:ERROR
004030
004032
004034
004036

466

MACRO V03.01 11-APR=80 13:17:48 PAGE 721

232
0
0
0
0

UNUSED

ERROR POINTER TABLE

MACRO v03.01 11-APR-80 13:17:48 PAG% 7=22

:ERROR

236

(=]l

000000
000000
000000
000000

000000
000000
000000
000000
;ERROR

000000
000000
000000
000000

237

:ERROR

240

;ERROR

000000
000000
000000
000000

UNUSED

(=l lele]

004160
004162
004164
004166

UNUSED

(olelele]

482
483
484

004150
004152
004154
004156

sERROR

479
480
481

004140
004142
004144
004146

234

000000
000000
000000
000000

476
477
478

sERROR

000000

OO0

004130
004132
004134
004136

UNUSED

oooo

004126

233
[=lelele]

;ERROR

(=l=lele

—t——
e

CZRMNAO RM05/3/2 FCTNL TST 2

UNUSED

SEQ 0050

Pa——

CZRMNAO RMO5/3/2 FCTNL TST 2
| ERROR POINTER TABLE

MACRO v03.01

sERROR

242

SEQ 0051

UNUSED

[=lelele]

000000
000000
000000
000000

004224

11-APR-80 13:17:48 PAGE 7-23

:ERROR

UNUSED

;ERROR

UNUSED

;ERROR

UNUSED

;ERROR

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

000000
000000
000000
000000

:ERROR

247

“ATA"" NOT RESET BY WRITING RMAS

EMT247
EHTI
EDTI
EFT1

) e

D
F

251

PROGRAM INTERRUPT WAS NOT GENERATED

:ERROR

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

250
mmmm

sERROR

' CZRMNAO RMOS5/3/2 FCTNL TST 2
' ERROR POINTER TABLE

11-APR=80 13:17:48 PAGE 7-24

SEQ 0052

004300

;ERROR

PROGRAM

:ERROR

OFFSET MODE WAS NOT RESET BY WRITING RMDC

:ERROR

INCORRECT "'ILF'" STATUS

INTERRUPT

SHOULD NOT HAVE BEEN GENERATED

004330
004332
004334
004336
:ERROR

INCORRECT "'ATA'" STATUS

255
EMT255
EHTI
EDTI
EFT1

:ERROR

067766
071306
071406
071476

INCORRECT "'ILR"" STATUS

256

EMT256
EHT256
EDT223
EFT223
257

;ERROR

260

i et N

MT
HT
DT
FT

INVALID ITAE STATUS DURING SEARCH COMMAND

—

. ERROR

mmmm

514

MACRO v03.01

"1vC'" WAS NOT DETECTED DURING SEARCH COMMAND

MACRO v03.01 11-APR-80 13:17:48 PAGE 7225

SEQ 0053

004370
004376
;ERROR

004400
004402
004404
004406

0700
0712
0713
0714
+ERROR

004410
004612
004414
004416

DRIVE EXECUTED SEARCH WITH ERROR SET

070042
071236
071362
071452

262

"LBC'" ERROR NOT SET DURING DIAGNOSTIC MODE

EMT262
EHTI
EDTI
EFT1

:ERROR

263

"'SK1'' ERROR DURING SEARCH COMMAND

EMT263
EHTI]
EDTI
EFTI
:ERROR

264

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

EMT264
EHTI
EDTI
EFT1

:ERROR

265

ERRONEOUS IVvC ERROR DURING SEARCH = VOLUME

EMT265
EHT1
EDT1]
EFT1
;ERROR

~NOoOWwna

VWAL
VYWD

070
071
071
071

DEVICE FAULT

(DVC) DURING SEARCH

MT266

mmmm

004450
004452
004454
004456

266

;ERROR

HT1

D11
FT1

267

SK1 SHOULD HAVE BEEN SET BECAUSE CYLINDER
ADDRESS IS TOO LARGE

IS VALID

MNAO RM05/3/2 FCTNL TST 2
OR POINTER TABLE

[

CZRMNAO RMO5/3/2 FCTNL TST 2

MACR

’

=APR-

£ Eg
SEQ 0054

004460
004462
004464
004466

HT1

DT
FT1

;ERROR

OP1 ERROR DURING SEARCH BECAUSE MOL = 0

;ERROR

OP1 ERROR DURING SEARCH BECAUSE ON CYLINDER
DIDN'T DROP

sERROR

LOST MOL DURING SEARCH, OPI

004470
004472
004474
004476

;ERROR

273

PIP STIL

SET

AFTER

IS NOT SET

EMT273
EHTI
EDTI
EFT1
PARITY ERROR OCCURRED WHILE WRITING REMOTE
REGISTERS BUT MXF DID NOT SET
.
—_———
e U

"oI=®R

————

274
mmmm

:ERROR

sERROR
N
i e
—

—_————

MXF ERROR - COMPOSITE ERROR QOCCURRED BEFORE DATA
COMMAND STARTED
"oIxIT=®R

558
559
560

M1267

mmmm

{

" CIRMNAD RMOS5/3/72 FCTINL TST 2
" ERROR POINTER TABLE

004550
004552
004554
004556

583
584
585

gg?

;ERROR
:

004560
004562
004564
004566

588

589

gg?

:ERROR

004570
004572
004574
004576

;ERROR

3
004600
004602
004604
004606

ggg

:ERROR
070364
071236
071362
071452

599
28?

277

"'OP1'' ERROR DURING DATA TRANSFER BECAUSE 1) ON
CYLINDER DIDN'T DROP OR 2) SEARCH TIMED OUT OR

3) RUN TIMED OUT

EMT277
EMTI
EDTI
EFTI
300

"IvC'' ERROR DURING DATA TRANSFFR wECAUSE VOLUME

WAS NOT VALID

301

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

1S VALID

070376
071236
071362
071452

602

ggz

“ILR'" ERROR DURING DATA TRANSFER

303

“ILF'" ERROR DURING DATA TRANSFER

EMT303
ENTI
EDT
EFT
:ERROR

070410
071236

302
EMT302
EXMT
EDTI
EFT1

;ERROR

004630
004632

EMT276
EHTI
EDT
EFT

EMT301
EHTI
EDTI
EFTI

596

004620
004622
004626
004626

;2:5" ERROR DURING DATA TRANSFER BECAUSE ''MOL'' WAS

EDTI
EFTI

594

004610
004612
004614
004616

EMT300
EHTI

592
593
595

11-APR=8B0 13:17:48 PAGE 7-27

:ERROR 276

gg?

582

MACRO v03.01

304

EMT 304
ENTI

“RMR'' ERROR DURING DATA TRANSFER

SEQ 0055

CZRMNAO RMOS5/3/2 FCT... TST 2

ERROR POINTER TABLE

004634
004636
605
606
607

071362
071452

004640
004642
0046446
004646

070422
071236
071362
071452

070434
07123¢
071362
071452

611
g}%

070444
071236
071362
071452

614

615

617
618
619

620
621
622

070464
071236
071362
071452

070476
071236
071362
071452

070510
071236
071362
071452

623

6264

625

070522
071236
071362

DRIVE DID NOT DETECT SKI ERROR DUE

TO CYLINDER

310

DEVICE FAULT DURING DATA TRANSFER

LOSS OF BIT CLOCK DURING DATA TRANSFER

312

LOSS OF

SYSTEM CLOCK DURING DATA TRANSFER

EMT312
EMTI
EDT
EFT1

;ERROR
004720
004722
0047264

307

EMTIN
EHTI
EDTI
EFT1
;ERROR

004710
004712
004714
004716

"'SK1'" ERROR DURING DATA TRANSFER

EMT310
EHTI
EDTI
EFTI1
;ERROR

004700
004702
004704
004706

306

EMT307
EWTI
EDT1
EFT1
;ERROR

004670
004672
004674
004676

INCORRECT "'IAE'" STATUS DURING DATA TRANSFER

EMT306
EMTI
EDTI
EFT1
;ERROR

004660
004662
004664
004666

305
EMT305
EMTI
EDT!
EFT1

;ERROR

004650
004652
004654
004656

SEQ 0056

EDTI
EFTY
;ERROR

608
g?g

616

MACRO v03.01 11-APR=80 13:17:48 PAGE 7-28

313
EMT313
EMTI
EDTI

UNSAFE ERROR DURING DATA TRANSFER (DvC = 0)

632
633
634

.
|
4

004740
004762
004744
004746

004750
0047564
004756

635
636
637

070554
071236
071362
071452

004766

071452

——

—t sy

EWTI
EDTI

;ERROR

ERRONEOUS WRITE LOCK ERROR

sERROR

HEADER CRC ERROR DURING DATA

070610
071236
071362
071452

TRANSFER

070620
071236
071362
071452

FORMAT

ERROR DURING DATA TRANSFER

HEADER COMPARE ERROR DURING DATA TRANSFER

EMT321
EHTI
EDTI
EFTY
;ERROR

070630
071236
071362
071452

320
EMT320
EHT]
EDTI
EFTI

sERROR

005010
005012
005014
005016

WRITE LOCK ERROR

071362

6446

645
646

315

EMT315

sERROR

005000
005002
5006
005006

071362
071452

641
6462

643

070566

070600
071236

004770
004772
004776
004776

DRIVE TIMING ERROR DURING DATA TRANSFER

071236

004760
004762

004764

638
639
640

:ERROR

004752

‘

070542
071236
071362
071452

314

322

HEADER ERRORS SHOULD NOT BE
— N

629
630
631

;ERROR

004730
004732
004734
004736

SEQ 0057

EFTI

mmmm

626
627
628

071452

T
M1322

mmmm

004726

MACRO v03.01 11-APR-80 13:17:48 PAGEf 7229

——

CZRMNAO RMO5/3/2 FCTNL TST 2
- ERROR POINTER TABLE

DT
fT

SET

CIRMNAQ RMO5/3/2 FCTNL TST 2

ERROR POINTER TABLE

647

223

MACRO v03.01 11-APR-80 13:17:48 PAGg 7-30
:ERROR

005020
005022
005024
005026

070636
071236
071362
071452

650

gg%
070646
071236
071362
071452

653

2§§

070660
071236
071362
071452

656

gg;
070672
071236
071362
071452

659

gg?

070710
071236
071362
071452

662
ggz

070722
071236
071362
071452

665

229

070732
071236
071362
071452

326

DATA PARITY ERROR DURING READ (OMMMAND

327

OFFSET MODE NOT RESET BY WRITE COMMAND

330

DATA PARITY ERROR DURING WRITE

(OMMAND

EMT330
EHTI
EDTI
EFTI
;ERROR

005100
005102
0051064
005106

UNCORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER

EMT327
EHTI
EDTI
EFTI
:ERROR

005070
005072
005074
005076

325

EMT326
EMT]
EDTI
EFTY

:ERROR
005060
005062
005064
005066

CORRECTABLE DATA CHECK ERROR DURING DATA TRANSFER

EMT325
EHTI
EDTI
EFTI

:ERROR
005050
005052
005056
005056

324
EMT324
EMTI
EDTI
EFT1

;ERROR
005040
005042
005044
005046

DATA CHECK ERROR DURING DATA TRANSFER

EMT323
ENTI
EDTI
EFTI

;ERROR
005030
005032
005034
005036

323

SEQ 0058

331

EMT 331
ENT]
EDTI
EFTI

WRITE

CLOCK

FALURE

DURING WRITE

COMMAND

CZRMNAD RMOS5/3/72 FCTINL TST 2

ERROR POINTER TABLE

668

ggg

H S5
11-APR=80 13:17:48 PAGE 7-31

:ERROR
005110
005112
005114
005116

070744
071236
071362
071452

671

g;%
070756
071236
071362
071452

674
g;z

070774
071236
071362
071452

677

005140
005142
005144
005146

071012
071236
071362
071452

680
gg;

005150
005152
0051564
005156

gg;

071052
071320
071416
071506

LOST MOL DURING DATA TRANSFER = OP]

= 0

:ERROR

DATA READ DOES NOT COMPARE WITH DATA WRITTEN

EMT335
EHT]
EDTI
EFT1
336

EMT336
EHT336
EDT336
EFT1336
337

WRITE CHECK ERROR NOT DETECTED

EMT337
EHT337
EDT337
EFT337
:ERROR

005170
005172
005174
005176

334

LOST VOLUME VALID DURING DATA TRANSFER = Iv( = 0

071042
071332
071426
071516

686

PIP STIL SET AFTER DATA TRANSFER = SKI = 0

;ERROR 335

:ERROR
005160
005162
005164
005166

333

EMT33¢
EHTI
EDTI
EFTI

071032
071320
071416
071506

683
bag

DATA LATE ERROR DURING DATA TRANSFER

EMT333
ENTI
EDTI
EFT1
:ERROR

005130
005132
005134
005136

332

SEQ 0059

EMT332
EWT]
EDTI
EFT1

:ERROR
005120
005122
005126
005126

2;3

MACRO v03.01

340

EMT340
EMT336
EDT336
EFT1336

WRITE

CHECK ERROR AT UNEXPECTED ADDRESS

CZRMNAD RMO5/3/2 FCTINL TST 2

ERROR POINTER TABLE

690

691

MACRO v03.01

11-APR=-B0 13:17:48 PAGE 7-32

SEQ 0060

;ERROR

INCORRECT DATA DURING WRITE CHECK ERROR

;ERROR

"IvC"" ERROR NOT DETECTED DURING DATA TRANSFER

:ERROR

"FER'* NOT DETECTED DURING DATA TRANSFER

005200
005202
00513«
005405

005224

;ERROR

344

"MCE'" NOT DETECTED DURING DATA TRANSFER

EMT 344
EHT 344
EDT344
EFT344
;ERROR

345

"BSE'" NOT DETECTED DURING DATA TRANSFER

EMT345
EHTI
EDTI
EFTI

JERROR

346

HEADER ERROR WAS DETECTED W/ HCI

SET

EMT346
EHTI

sERROR

DATA TRANSFER NOT

;ERROR

LOST VOLUME VALID DURING SEARCH = "‘Iv(C'' = 0

ABORTED W/ COMP ERROR SET

CIZRMNAO RMO5/3/72 FCTNL TST 2

ERROR POINTER TABLE

712

005270
005272
005274
005276

J 5
11-APR=B0 13:17:48 PAGE 7-33

071166
071236
071362
071452

713
;}g

EMT350
EXTI
EDT
EFT1
:ERROR

005300
005302
005304
005306

071204
071236
071362
071452

716

;};

071214
000000
000000
000000

719
;5?

071220
071356
071450
071536

722

;gz
071230
071236
071362
071452
i

SET DURING SEARCH

352

PROGRAM TIMEOUT WHILE TESTING RMLA

353

LOOK AHEAD TEST FAILS

EMT353
tHT353
EDT353
EFT353

:ERROR
005330
005332
005334
005336

“ATA'" DID NOT

EMT352
0
0
0
:ERROR

005320
005322
005324
005326

351

EMT 35
ENTI
EDT
EFTI
:ERROR

005310
005312
005314
005316

725
726

MACRO v03.01

354

BSE SHOULD NOT BE SET

EMT354
EHTI
EDTI
EFT1
:PUT ERROR TABLE HERE

SEQ 0061

VONOWVEH W= OV

NO VI

PORNIPNONONUNURU
NI RO
b e
s i i s i s

= O 000NN N IS NN —

CIZRMNAO RMO5/3/72 FCTNL TST 2
ERROR TABLE USAGE

MACRO v03.01

11~ APR=80 13:17:48 PAGE 8

.SBTTL

§
SEQ 0062

ERROR TABLE USAGE

;THE ERR 0? EABLE ABOVE CONSISTS OF
sNUMBER,

EMT
EHT
EDT
EFT

=
=
=

ERROR
ERROR
ERROR
ERROR

FOUR WORD ENTRIES FOR EACH ERROR

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

sTHE EMT ENTRY 1S THE ADDRESS OF THE TABLE OF ERROR MESSAGE STRINGS
EACH ERROR MESSAGE TABLE LISTS THE ADDRESS
;FOR THE PARTICULAR ERROR.

sOF ONE OR_MORE ERROR MESSAGE STRINGS WHICH ARE TO BE FORMATTED AND

;TYPED B Y THE ERROR TYPE SUBROUTINE.
IF
sNO MESS AGE TO BE TYPED FOR THE ERROR.

THE EMT ENTRY IS ZERO, THERE

sSIMILAR LY, THE EWT, EDT, AND EFT ENTRIES ARE ADDRESSES OF TABLES
EACH ENTRY
sOF HEAD ER, DATA AND FORMAT INFORMATION FOR A GIVEN ERROR.
sIN THE ERROR HEADER TABLE MAY OR MAY NOT HAVE AN ASSOCIATED LINE OF

;DATA, H OWEVER, EACH DATA LINE MUST HAVE AN ASSOCIATED FORMAT AND

JHEADER. THAT 1S, A HEADER LINE MAY BE PRINTED WITHOUT ANY DATA,
;BUT A D ATA LINE IS NOT PRINTED WITHOUT A HEADER, AND EACH DATA LINE
JMUST AL SO HAVE A FORMAT.

SIN SUMM ARY,

EACH NONZERO ENTRY IS THE ADDRESS OF A TABLE,
EACH TABLE IS A LIST OF ADDRESSES WHICH DEFINES THE LOCATIONS

OF MESSAGE STRINGS, HEADERS,

DATA OR FORMAT.

~ CZRMNAO RMO5/3/2 FCTNL TST 2

[=lelelel=]
(=l=l=lal=]

011600
005740
022626
104401

000417

BADTMO: MOV
TST
CMP
TYPE

005354

BR
LASCIZ

010046

MOV
TYPOC

1046402

000240

(SP) RO
=(RO)

(SP)+,(SP)+

,65%
64%

:SAVE PC WHERE THE TIME OUT OCCURED
sADJUST PC =2

sRESTORE STACK POINTER

::TYPE ASCIZ STRING
;+GET OVER THE ASCIZ

RO,=(SP)

PC=/

;SETUP FOR TYPING OUT PC
;PUT

"HALT(0)"'

INSTRUCTION HERE

:TO STOP ON UNEXPECTED TIMEOUT.

YOU WISH

START OF PROGRAM
o0

i
i e
i

SEQ 0063

<CRLF>/UNEXPECTED BUS TIMEOUT,

NOP

05422
005426
005430

000240
005227
001375
000005

NOP
INC
BNE
RESET

000000

LSBTTL

—

s e

;THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS

(={=i={=]

[
XV
F XV
N P

ERROR TABLE USAGE

MACRO v03.01 11-APR-80 13:17:48 PAGE 9

N
©
o
SNNNOONNNNNNNNN
NN NN W NN W W W W W WL
NNNNNNNNNNNNNYN

060222
000340
060626
000340
062366
000340
062474
000340

032374
001206
001210
000001
005556
005564

NNO~
WWO
= O
NNNVOW

WORD

sRESET THE WORLD

CLR
CMP

BNE
MOV

000020
000022
000030
000032
000034
000036
000024
000026
032366

001131
001122
001124

#SCMTAG,R6
(R6)+
#SWR,R6
)
#STACK,SP

;:FIRST LOCATION TO BE CLEARED
s sCLEAR MEMORY LOCATION
: :DONE?
::L00P BACK IF NO
::SETUP THE

STACK POINTER

s INITIALIZE A F Ew VECTORS
MOV
#$SCOPE ,a#I0TVEC ;;]0T VECTOR FOR SCOPE ROUTINE
MOV
#340,9#10TVEC+2 ;;LEVEL 7
MOV
#SERROR,Q#EMTVEC ;;EMT VECTOR FOR ERROR ROUTINE
MOV
#340,9MEMTVEC+2 ;;LEVEL 7
MOV
#STRAP,Q#TRAPVEC ;;TRAP_VECTOR FOR TRAP CALLS
MOV
#3640 ,9FTRAPVEC+2;LEVEL 7
MOV
#SPWURDN,a#PWRVEC ;;POWER _FAILURE VECTOR
MOV
#340,9#PWRVEC+2 ;;LEVEL 7
MoV
SENDCT,SEOPCT
;;SETUP END-OF -PROGRAM COUNTER
CLR
CLR

MOvB
MOV

STIMES
SESCAPE

ssINITIALIZE NUMBER OF ITERATIONS
:sCLEAR THE ESCAPE ON ERROR ADDRESS

#1,SERMAX
::ALLOW ONE ERROR PER TEST
#..S5LPADR
ssINITIALIZE THE LOOP ADDRESS FOR SCOPE
MOV
#.,SLPERR
::SETUP THE ERROR LOOP ADDRESS
::SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS

;;EQUAL TO A "*=1'", SETUP FOR A SOFTWARE SWITCH REGISTER.

==Y
NNNNNO

-°~§ - PN NON N

OO-‘SO°°°OO°O°O
BeseI
o
Py
rororoVWVTWNDONDNDNDNDNONONN
D
~—o—
—-—

005452

:OF

INITIALIZE THE COMMON TAGS

MOov

001154

001100

;TTY LOOP, WAIT FOR INCREMENT

;s CLEAR THE COMMON TAGS (SCMTAG) AREA

001114

—_— -2

005432
005436
005440
005444
005446

000004
001154
001156
173326

005640
000176
000174

@FERRVEC,-(SP)

BR
:?Y

65%
#65%, (SP)

MOV
MOV

#SWREG, SWR
:sPOINT TO SOFTWARE SWR
#DISPREG,DISPLAY

MOV
MOV
MOV
CMP
BNE

648
001154
001156

MOV

658:

#64S QFERRVEC
#OSWR, SWR
#ODISP,DISPLAY
#-1,3SWR
66%

;;SAVE ERROR VECTOR

;:SET UP ERROR VECTOR
:sSETUP FOR A HARDWARE SWICH REGISTER
;:AND A HARDWARE DISPLAY REGISTER
::TRY TO REFERENCE HARDWARE SWR
:sBRANCH IF NO TIMEOUT TRAP OCCURRED

:sAND THE HARDWARE SWR IS NOT = =1
s :BRANCH IF NO TIMEOUT
::SET UP FOR TRAP RETURN

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

MACRO v03.01

005654

012637

000004

005660
005664

005037
132737

001230
000200

001243

005674
20 005702

012737
_

001244

00115¢4

21 005702
22 005710
23 005716
005722
005726
005730
24
25

012737
012737
012746
012746
000002

005340
000300
000300
005730

000004
000006

005730
005734
005736
005744
005746

005227
001056
022737
001452
104401

005752
005756
005760
005766

005737
001012
123727
001406
023727
001005
104407
000403
112737

005770
005776
06000
006002
006004
006012
006012
006072
26
27
28
29
30 006072

31 006076
32 006104
33 006106
36 006114
35 006122
36 0061264
37 006130
38 006136
39 006136
006142

40
41
42
43

006170

006170
006172
006176
006200

11-APR-80 13:17:48 PAGE 9-1

66%:

678

+SBTTL

032530

MOV

(SP)+ ,9#ERRVEC

;,RESTORE ERROR VECTOR

CLR
BITB
BEQ

$PASS
#APTSIZE ,SENVM
67%

;CLEAR PASS COUNT
..TEST USER SIZE UNDER APT
sYES,USE NON=-APT SWITCH

MOV

MOV
MOV
MOV
MOV
RTI

#BADTMO,ERRVEC
#PR6,ERRVEC+2
#PR6,=(SP)
#68%,-(SP)

TYPE PROGRAM NAME

;s TYPE THE NAME OF

000042

006014

.SBTTL

000042
001242

000001

001154

000176

001150

000427

::NO.USE APT SWITCH REGISTER

#-1
69%
#SENDAD, 342
69%

BNE

718

CMPB

SENV,#1

CMP

SWR, #SWREG

BNE

::708:

698:

:;POP NEW PC AND PS

FIRST PASS

J:FIRST TIME?
s sBRANCH IF NO
JsACT=112

..BRANCH IF YES

TYPE
,708
sTYPE ASCIZ STRING
GET vALug rga SOF TWARE SWITCH REGISTER

BEQ

71$:
72%:

;SETUP FOR UNEXPECTED TIMEOUT
;LEVEL 6
2:PUT NEW PS ON STACK
::PUT NEW PC ON
STACK

THE PROGRAM IF

INC
BNE
CMP
BEQ

GTSWR

000001

#SSWREG, SWR

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

177777

SEQ 0064

718
72%

72%

MOVB

#1,$AUTOB

69%

_ASCIZ

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

:sSET AUTO=-MODE INDICATOR
T OVER THE ASCIZ

<CRLF>3CZRMNAO - RHOS/S/Z FUNCTIONAL TEST, PART 2a<CRLF>

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

005037

122737
001160
013737
122737
103002
105037
005737
001425
104401
000412

005046
113716
104403
001

001330

000016

000041

000040
000007

001330
001330

001330
000042
006144

CLR
CMPB
BNE

MOV

1$:

74%

CMPB
BHIS
CLRB
TST
BEQ
TYPE

825(11

7%s: Ry
001330

CLR

MOvB
TYPOS

XXDP
#16,a041

3%
ans0,xxoP
#7,XXDP
1%
XXDP

1 LY
2%
74%
3%

<CRLF>/NOT

=(SP)
XXDP, (SP)

sCLEAR 'XXDP' LOAD DEVICE STORAGE
;LOADED FROM AN RM05/3/2 ?
sBRANCH IF NOT

:GET DEVICE INDICATOR AND NUMBER

lgslT A VALID NUMBER
?

:NO, DEFAULT TO DRIVE 0
:CHAIN MODE OR ACT11 AUTO ACCEPT
:BR IF NEITHER

..TYPE ASCIZ STRING
:GET OVER THE ASCIZ

TESTING DRIVE
/

;CLEAR WORD ON STACK
:GET DRIVE ADDRESS

+TYPE

THE ADDRESS

sONLY 1 CHARACTER

—

' CZRMNAO RM0S5/3/2 FCTNL 18T 2

MACRO V03.01
GET VALUE FOR SOF TWARE SWITCH REGISTER

’

44 006201
45 006202
29 006206

000
104401
000517

48 006210
49 006214

005227
001114

50 006216
006222

104401
000410

001217

2%:

006224
:;768:

75s:

006244
51 006244
52 006246
53 006252
54 006254
§5 006255
56 006256
006262

005046
113716
104403
001
000
104401
000431

006346
57 006346
006352

104401
000435

006354

105737
001515
012737

001150

001330

006264

hae

. 006446

62 006446
63 006452
64 006456
65

000377

001300

INC
BNE
TYPE
BR
.ASCIZ

-1

CLR

MOVB
TYPOS
.BYTE
.BYTE
TYPE
BR

.ASCIZ

TYPE
BR
.ASCIZ

$CRLF

3%
768
? 5%

SEQ 0065
:SUPRESS LEADING ZEROS
:CR=LF

:GET NUMBER OF DRIVES
;FIRST TIME THRU HERE ?

:NO

+:TYPE ASCIZ STRING

::GET OVER THE ASCIZ

<CRLF>/TO TEST DRIVE /

-(SP)
XXDP, (SP)

78%

:CLEAR WORD ON STACK
:GET DRIVE ADDRESS
:TYPE DRIVE ADDRESS
:ONLY 1 CHARACTER

:SUPRESS LEADING ZEROS

::TYPE ASCIZ STRING

::GET OVER THE ASCIZ

/., HALT PROGRAM, REMOVE RRDP PACK AND REPLACE

IT/<CRLF>

::TYPE ASCIZ STRING

$:GET OVER THE ASCIZ

/WITH A WORK PACK, CLEAR LOCATION 40 AND RESTART PROGRAM./<CRLF>

sCHECK FOR AUTO MODE OR STANDLONE MODE
1STB
$AUTO B
sRUNNING IN AUTO MODE ?
BEQ
STANDALONE
sBR IF NO
Mov
#377 ,$DEVM
sSET DEVICE MAP FOR ALL DRIVES
;PROGRAM IS RUNNING IN AUTO MODE - SEE IF SIZING 1S ALLOWED

67 006462
68 006462
?g 006470

132737
001075

71 006472
;g 006476

005001
013700

76 006500
75 006506
76 006510
77 006516
78 006522
79 006526

136137
001462
012737
005737
001403
123701

064506

001300

064305
001330

006652

82 006532
83 006540
84 00654%
85 006550
86 006556
87 006564
88 006566
89 006574
90 006602
91 006606
92 006612
93 006620
94 006622

012760
010160
005760
012737
032760
001017
012737
032760
001410
012737
032760
001401
000414

000040
000010
000012
064325
010000

000010

80 006530

.BYTE

1YPE

177777

11-APR-80 13:17:48 PAGE 9-2

001435

000200

001243

XS1Z

001276

BlTB
BNE

#B117,8ENVM
7%

sSIZING ALLOWED ?
sNO

CLR

R1
$BASE ,RO

sSTART FROM DRIVE 0
sLOAD THE BASE ADDRESS

Mov

BlTB
BEQ

MOV

TST
BEQ
CMPB
BEQ

001330
2%:

ATNTBL(R1) ,$DEVM

:1S DEVICE PRESENT

IN MAP ?

6%
#LODEV,5%
szoP

:BR IF NO
sGET ADDRESS OF LOAD DEVICE MESSAGE
:thDED FROM RM05/3/2 ?

XXDP,R1
3%

;1S THIS THE DRIVE ?
:YES, TRY NEXT DRIVE

MOV
MOV

#CLR,RMCS2(RO)

R1,RMCS2(R0O)

sLOAD THE DRIVE ADDRESS

006652
000010

MOV

#NOTPRS,S5%

sGET ADDRESS OF NOT PRESENT MESSAGE

064342
004000

006652
000000

MOV

#NOTAVL,5%
#OVA ,RMCST1(RO)

064361
010000

006652
000012

MOV

FOFFLIN,SS
#MOL ,RMDS(RO)
g:

TST

BIT
BNE

BIT
BEQ
BIT
BEQ
BR

RMDS (RO)

#NED,RMCS2(RO)

;CLEAR MASS BUS

sTRY TO ACCESS AN RM DRIVE REGISTER
;1S DRIVE PRESENT ?

:BR IF NO

:GET ADDRESS OF AVAILABLE MESSAGE
;1S DRIVE AVAILASLE ?

:BR IF NO
sGET ADDRESS OF OFF LINE MESSAGE
;IS MEDIUM,ON LINE ?
JBR IF NO

T VALUE FOR SOF TWARE SWITCH REGISTER

95
96 0066%6
97 006632
98 006636
99 006642
006644
006646
006647
006650
006652

—

064506
001217
064277

001300

3s:

A ¥

ATNTBL(R1) ,$DEVM

$CRLF

"MSGDRV

R1,=(SP)

—=O
W

006654
006656
006662

- i i el il il il

D i

i i

D e

VS W =00V~

6
MACRO v03.01 11-APR-80 13:17:48 PAGE 9-3

005201
020127
003706

000007

104401
005004
005304
001376
005304
001376

001217

000137

007612

SEQ 0066

s CR=LF

;CLEAR DEVICE FROM BIT MAP

;TYPE 'DRIVE'
::SAVE R1 FOR TYPEOUT

::60 TYPE=-=0CTAL ASCII

;:TYPE 2 DIGIT(S)

: :SUPPRESS LEADING ZEROS
:TYPE ERROR MESSAGE

5%:

;ADDRESS OF MESSAGE GOES HERE

6%:

R1
R1,47
1%

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

7%:

,SCRLF

4
RAZ

JCR=LF

:THESE TWO LOOPS ARE ADDED TO
JWAIT FOR TTY TO FINISH TYPING.

l-2

CMNSTART

sJUMP TO COMMON START

——————————y

! CIRMNAO RMOS/3/2 FCTNL 1T 2

——
U

CZRMNAO RMO5/3/2 FCTNL TST 2
STANDALONE INPUT ROUTINES

MACRO v03.01

f 006706

.SBTTL

g 006706

004737

061036

6 006712
goocme

005227
001426

177777

11 006720

12 006726
13 006726

14 006732
15 006736

16 006744

104401
104411
012637

104401
123727

001004

001176

001176
001176

001217
007612

20 006756
21 006764
22 006766

123727
001427
104401

001176

000752

is:

063644

104401
000137

104401
104411
012637
104401
123727
001407

gg 007040

000116

3s:

063234

123727
001405
104401

001176

000116

104401

101206

000756

001407
123727
001525

g; 007112

000756

064241
A ¥

————————————————
P

123727

104401

0071264

001217
063611

001176
001176

001176

000131

001176

000116

064241

gz iy

56 007120

;FIRST TIME THRU MERE ?
SYES !

TYPE
RDCHR
MOV

,CNSLOO

(SP)+,$THMP1

:MAINTAIN PREVIOUS PARAMETERS ?
:GET RESPONSE
:ECHO RESPONSE

BNE

sTMP{
STMP1. @'Y
b1
,$CRLF
CMNSTART

SCR=-LF
JKEEP PREVIOUS PARAMETERS

CMPB
BEQ
TYPE

STMP1,#'N
5%
CNSLO8

:NO RESPONSE ?
JYES, GET NEW PARAMETERS
sNO, TYPE ' ILLEGAL INPUT °

:YES RESPONSE ?
INO!!

:TRY AGAIN

TYPE
RDCHR
MOV
TYPE
CMPB
BEQ

+MSHELP

JWANT HELP ?
sGET RESPONSE
sSAVE AND ECHO RESPONSE

CMPB
BEQ
TYPE

(SP)+,$THMP
,$TMPi
STMP1,#'Y
48
$STMP1,#'N
11
CNSLOB

JWAS IT A YES RESPONSE ?
YES
JWAS IT A NO RESPONSE ?
YES
sNO, TYPE ' ILLEGAL INPUT®

TYPE

JHELP

JYES = TYPE HELP TEXT

:TRY AGAIN

-SEE IF USER WANTS TO CHANGE ADDRESSES

47 007074
48 007076
49 0071064

§5 007114

#-1
3s

000131

104401
104401
104411
012637
104401

SO0 007106

2%:

064241

001176
001176
001176

41 007044
&2 007050
43 0070564
4, 007056
45 007062

46 007066

INC
BEQ

TYPE
JMP

40 007044

;INITIALIZE CONSOLE

:SEE IF OPERATOR WANTS HELP TEXT

27 006774
28 007000
29 007002
30 007006
31 007012
32 007020
33 007022
3% 007030
35 007032

36 007036

PC,STKINT

TYPE
CMPB

000131

26 006774

JSR

:SEE IF THE USER WANTS TO KEEP SAME DEVICES FOR TESTING

17 006746
}g 006752

32 006772

SEQ 0067

STANDALONE INPUT ROUTINES

STANDALONE :

10 006720

C
.6
11-APR-80 13:17:48 PAGE 10

TYPE
TYPE
RDCHR
MOV
TYPE

CMPB

,SCRLF
,UBUSQST

(SP)+,$THP1
$TMP1

‘THP1.!'Y

:CR=-LF
JWANT TO CHANGE ADDRESS ?
:GET RESPONSE
:SAVE AND ECHO RESPONSE

JWAS IT A YES RESPONSE ?

BEQ
CMPB
BEQ

63
STMP1,#'N
128

YES
JWAS IT A NO RESPONSE ?
SYES

844

STRY AGAIN

TYPE

CNSLO8

sNO, TYPE ' ILLEGAL INPUT °

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

013746
104402

063677

001276

TYPE

MOV

TYPOC

CNSLO1

$BASE , = (SP)

;TYPE CURRENT BUS ADDRESS

::SAVE SBASE FOR TYPEOUT

260 TYPE=--OCTAL ASCIICALL DIGITS)

' CZIRMNAO RMO5/3/2 FCTNL TST 2

' STANDALONE INPUT ROUTINES

57 007126
§8 007132
59 00713¢
60 007140

61 007142

|
|
|
|

62 007150
63 007152
64 007156
gg 007160

67 007166

|
|
|

68 007172
69 007176

70 007200
71 007202
72 007203

022737

101403
104401
000760
013737

104401

005046
113716
104403
003
000

73 007206
76 007210
75 007212
76 007216
77 007220
78 007226

104401
104413
012637
001412
022737
101003

80 007234

000754

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

79 007230

g; 007236

104401
104413
012637
001412

93 007273

96 007274

99 007316

002403

023727

100 007320
101 007324

104401
000747

105 007342
106 007346
wzwnu

006337
006337
113737

102 007326
103 007332
104 007336

006337
006337
006337

111 007360
112 0073664
113 007366

7%:

CMP
BLOS
TYPE
BR
MOV

8s:

TYPE

001272

001176
001000

001176

001272

9%:
108 :

063225
000007

001176
001176
001176

TYPE

118:

TYPE
CLR
MOVB
ASR
ASR
ASR
ASR
ASR
TYPOS
.BYTE

,CNSLOS
<(SP)
SVECT141,(SP)
(SP)
(SP)
(SP)
(SP)
(SP)

:BASE ADDRESS IN 1/0 PAGE ?

YES
:TYPE WARNING MESSAGE
STRY AGAIN
:STORE NEW BUS ADDRESS

;:GET CURRENT VECTOR ADDRESS
:TYPE 3 DIGITS

:SUPPRESS LEADING ZEROS
STYPE " 2 "
:GET NEW VECTOR ADDRESS
:CARRIAGE RETURN?
SYES=SKIP TO NFXT ENTRY
:VECTOR ADDRESS < 1000 ?
SYES!!

CNSLO&

:TYPE WARNING MESSAGE

$TMP1,SVECTI

JSTORE NEW VECTOR ADDRESS

:RETRY

:GET CURRENT BR LEVEL

;:ONLY 1 DIGIT

BYTE

:SUPPRESS LEADING ZEROS

RDOCT
MOV
BEQ
CMP

(SP)+,$TMPI
128

:GET NEW PRIORITY
:CARRIAGE RETURN ?
SYES=SKIP TO NEXT ENTRY

STMPY,#7

:LEGAL PRIORITY ?

TYPE
BR

LCNSLOG
ios

STYPE WARNING MESSAGE
STRY AGAIN

ASL
ASL
ASL

ASL
ASL
MOVEB

001273

(SP)+,$TMPI
108
#1000,$TMP1
98

MOVB

%0 Dk
A
:GET NEW BUS ADDRESS
:CARRIAGE RETURN ?
:YES=SKIP TO NEXT ENTRY

LCNSLO3

RDOCT
MOV
BEQ
CMP
BHI

BLT

064045

(SP)+,$THPI
8s
#160000,$TMP1
7%
,CNSLO2
6844
$TMP1,$BASE

0
,QUES

TYPE

001176

,QUES

<(SP)
SVECT1,(SP)

TYPE

001273
-

001176

CLR
MOVB

TYPOS
BYTE
.BYTE

063225

109

110 007360

001276

063757

064033

001176

104401
005046
113716
006216
006216
006216
006216
006216
104403
001

104401

001176

063715

001176

104413
012637
001424

98 007310

160000

113737

95 007300
96 007302
97 007306

TYPE
RDOCT
MOV
BEQ

001176

063777

|
|
|

063225

104401

000

MACRO v03.01 11-APR=-80 13:17:48 PAGE 18-1

LQUES

$THPY
$THPI
$TMP1

:YES!!

*STGRE NEW PRIORITY

$THPI

$TK1

STMP1,SVECT1+41

:DIALOGUE TO INPUT DEVICE NUMBERS

005227
001002
106401

177777
064076

i2s:

INC
BNE
TYPE

#-1
138
LCNSLO7

:FIRST TIME THRU ?
:BR IF NO
STYPE INPUT INSTRUCTIONS

SEQ 0068

CZRMNAD RMOS/3/2 FCTINL T ST 2

STANDALONE INPUT ROUTINES

114 007372

MACRO v03.01

104401

001517

104401

064263

007410
07414
007422
0074%8
0074

otgesr
023727
001007
106401
012737

001176
001176

000101

063220
000377

001300

125 007442
126 007450
127 007452

023727
001436
104401

001176

000015

129 007464

002430

115 007376

005037

117 0076406

104411

116 007402
118
119
120
121
122

}52 007436

128 007456

000137

023727

130 007466
131 007474
}gg 007476

023727
003427
000423

134 007500
135 007502

007506
007514
007516
007522

104411
012637
023727
001432
104401
104401

141 007534
162 007536
143 007544
1644 007546

oo§404
023727
003403
104401

136
137
138
139

140 007526

023727

}22 007552

000711

147 007554
148 007560
149 007564
150 007572
151 007600
152 007602

013701
042701
156137
122737
101337
104401

}gz 007606

000137

138:

001300

006462

001176

148

000060

001176

000067

063231
001176

15%:

001176

000067
17%:

001176
177770
064506
000377

18%:
001300
001300

19%:

:CR=LF

,MSDRVS

:TYPE

:CLEAR DEVICE MAP
*DRIVE(S):

(SP)+,$TMPI
STMPY #°A
158
JALL
#377,S$DEVM

:GET RESPONSE
115 INPUT "'ATM
2
*NO
YES, TYPE ""ALL'' AND GO
JSET DEVICE MAP FOR ALL DRIVES

CMP
BEQ
TYPE

$STMP1,#CR
17%
$TMPI

;CARRIAGE RETURN ?
SYES
*ECHO RESPONSE

BLT

CMP
BLE
BR

17%

STMP1,#'7
18%
17%

:YES

RDCHR
MOV
CMP
BEQ
TYPE
TYPE

(SP)+,$THP
$STMP1,#CR
19%
,COMMA
$STMP1

;GET RESPONSE
JCARRIAGE RETURN ?
JYES
JTYPE *, °
;ECHO RESPONSE

BLT
CMP
BLE
TYPE

17%
STMP1,#'7
18%
LCNSLO8

SYES
*NUMBER > 7 ?
*NO
,
sTYPE "' 21LLEGAL INPUT'

CMP

064241

$CRLF

$DEVM

SEQ 0069

MOV
(MP
BNE
TYPE
MOV

CMP

000015

000060

006462

TYPE

JMP

168:

001176

001217

TYPE

(LR

RDCHR

001176

001176
001176

E 6
11-APR-8B0 13:17:48 PAGE 10-2

MOV
BIC
BISB
CMPB
BHI
TYPE

JMP

XS12

$TMP1,2°0

$TMP1,2'0

148

:AUTO SIZE.

*NUMBER < 0 ?

*NUMBER > 7 ?
:NO
sILLEGAL INPUT

*NUMBER < 0 2

‘RETRY

$TMP1,R1
;R1 = DRIVE NUMBER
#°C7.R1
ATNTBL(R1),$DEVM
;SET DEVICE
#377,$DEVM
:DONE ?
16%
‘NO
JOSCRLF
JCR=LF

XSl1Z

G0 SIZE DEVICES

IN MAP

CZRMNAO RM0O5/3/2 FCTNL TST 2

STANDALONE INPUT ROUTINES

007612
007612
& 007616
S 007622
6 007626
7 007632
8 007634
9 007636
10 007640
11 007642
12
13
14
15
16
17

007650
007654
007656
007660
007662
007664

}3 007666
20
21 007670
22 007674
23 007676
007676
26 007700
007704

007720
25 007720
26 007722
27 007724

013700
012701
010137
012702
005003
030200
001406
010311
116361
062701
006302
105702
001402
005203
000763

001300
001466
001464
000001

064506
000002

000001

004737
000413
104000
104401
000405

2% 007764
30 007766
31 007772
32 007776
33 010000
34 010002
35 010006

000240
105737
001007
005737
00100;
00013
000137

4%:
007706

;:65%:
648

38 010016
39 010022

005037
005037

5%:

001242

000001

001154

000176

000001

001150

66%:
67%:
READY:

000042
005420
032340

gg 010012 105037 001116
004737
012746
012746

.SBTTL

000042

001300

001206
001326

061036
000300
010044

ADD
ASL
1STB
BEQ
INC
BR

”2.R
R2
R2
3%
R3
1%

CLR

(R1)

;SIZE FOR CLOCK
JSR
PC,SIZ2CLK
BR
5%

037600

SEQ 0070

;ASSEMBLE TEST QUE FROM DEVICE MAP
CMNSTART:
MOV
$SDEVM,RO
;RO = DEVICE MAP
MOV
#TSTQUE+2,.R1
:R1 = ADDRESS OF FIRST ENTRY IN QUE
MOV
R1,TSTQUE
JINITIALIZE ENTRY POINTER
MOV
. ,R2
sR2 = DEVICE POINTER
CLR
R3
sR3 = DEVICE NUMBER
1%:
BIT
R2,.RO
s1S THIS PEVICE IN MAP ?
BEOQ
2%
:NO !!
MOV
R3,(R1)
sYES = ENTER DEVICE NUMBER IN QUE
MOVB
ATNTBL(R3) ,1(R1);ENTER ATTENTION BIT IN QUE

3%:

000000
000765
005737
001012
123727
001406
023727
001005
104407
000403
112737

F
6
11-APR=-80 13:17:48 PAGE 11

2%:

00501

0077264
007730
007732
0077640
007762
007750
007752
007754
007756
007764

40 010026
41 010032
010036

MACRO v03.01

1%:

2%:

EMT
TYPE
BR
_ASCIZ

HALT
BR
GET

:ADVANCE ENTRY POINTER
sADVANCE DEVICE POINTER
sDONE ALL DEVICES ?
JYES
sADVANCE DEVICE NUMBER
JENTER NEXT DEVICE

JTERMINATE TEST QUE

JSEE IF CLOCK PRESENT
JYES = CLOCK IS PRESENT

,65%
;sTYPE ASCIZ STRING
649
;sGET OVER THE ASCIZ
<CRLF>/PROG HLT/

:PROGRAM HALT

!'!

VALUE FOR SOFTWARE SWITCH REGISTER

T1ST
BNE
CMPB
BEQ
CMP
BNE
GTSWR
BR
MOVB

ang?
66%
HITH A
66%
SWR,#SWREG
67%
67%
#1,3AUT08B

;sARE WE RUNNING UNDER XXDP/ACT?
s sBRANCH IF YES
:sARE WE RUNNING UNDER APT?
s sBRANCH IF YES
2 sSOFTWARE SWITCH REG SELECTED?
::BRANCH IF NO
3sGET SOFT-SWR SETTINGS

5sSET AUTO-MODE INDICATOR

NOP
1STB
BNE
181
BNE
JMP
JMP

SDEVM
2%
are?
1%
START
SEOP

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

CLR
CLR

$TIMES
CTLFG

JINITIALIZE NUMBER OF ]TERATIONS
JCLEAR CONTROL=C FLAG

CLRB

JSR
MOV
MOV

$TSTNM
PC,STKINT
#PRG,~(SP)
#64%,-°5P)

JRESET TEST NUMBER

JINITIALIZE TTY
:PUT NEW PS ON STACK
J:PUT NEW PC ON STACK

CIRMNAD RMO5/3/2 FCTNL 18T 2
MACRO v03.01
GET VALUE FOR SOF TWARE SWITCH REGISTER

010042
010044

62 010044
43 010052
e

000002
117737

001234

005037

N
NWNONONNOOO

Rl
S S Y

010076
010104
010110
010114
010120
010122
010130

50
51
52
53
5¢
55
56

—

48 010064
49 010070

N =N
NN
NONNONNN~N

4«7 010056

SEQ 0071
RTI

11-APR=B0 13:17:48 PAGE 11-1

001332

Move

CLR

::POP NEW PC AND PS

@TSTQUE ,SUNIT

MEDENB

;CLEAR MASSBUS CONTROLLER, SELECT DRIVE AND DETERMINE THE LAST TRACK
:0F THE DIFFEREN T DRIVE TYPES
Vv

000010
000010

#TAL,LSTRK

sASSUME LAST TRACK FOR RM02/3 = 4.

#CLR,RMCS2(RO)

S CLEAR MASSBUS

RMDT (RO) ,R2

:GET RMDT AND

$BASE RO

001332

;RO _= UNIBUS ADDRESS

STSTQUE , RMCS2 (RO)

#177770,R2
#7.R2

011000

;LOAD UNIT NUMBER

;CLEAR MEDIA ENABLE

3%:

BTAT6!TA2,LSTRK

:SELECT DEVICE UNDER TEST

:SAVE DRIVE TYPE BITS
21S IT AN RMOS 7

*NO, MUST BE AN RMO2 OR KMO3

;YES==SET

LAST

TRACK

18.

MACRO v03.01 11-APR-B0 13:17:48 PAGEH 13

CZRMNAO RMO5/3/2 FCTNL 18T 2
GET VALUE FOR SOF TWARE SWITCH REGISTER

MMAA AL A

18711

20 010254
5; 010260

23 010262
24 010264
25 010270
26 010274
27 010276
28 010302
29 010304
30
31 010310
32 010314
33
34
010314
010314
010316
010320
010324
010330
010334

35
36 010342
010346
010350
010352

NNWWWY
NYNNN o

w
~

OO0OO0O
_—
s s

o
o

637

15 01023
16 0102
i7 010240
18 010244
19 010250

002

13 01022
14 01022

(=1l

NN
~

10 0102
11 01021
12 01021

NNV OOO OO0

7 01017

g 01017

OCO0OO0O0O0O0O0O0O0O~
D
T JE S S
S—

50
6 01

wveen

& 0N

s
—_—

XXX

22222222223

CONTROLLER ACCESS TEST

;:"."'"....""""""""""'..."..l"""'..'.'."""'.'

(dlelelelelele)]

SeTEST 1

SEQ 0072

001100
001276
001464
000001
000004
000006
010262
000300

SCOPE
NOP

001226

$BASE RO
TSTQUE ,R1
#1,8TESTN

CLR

MOV
MOv

#PR6 ERRVEC+2

000001
000002
000002
000004
000004
000010
000010
000022
000022
000006
000004
3%:

cmp

;RO = UNIBUS ADDRESS

:(R1)

005420
032340

5%:
7%:

JMP

A2 A2 A

TRTEST 2
1S12:

ERRVEC,=(SP)
ERRVE(C+2,-(SP)
#3% ERRVEC

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

R1,RMCS141(RO)
R1.RMWC (RO)
RMWC (RO) ,R2
R1,RMBA(RO)
RMBA (RO) ,R2
R1,RMCS2(RO)
RMCS2(RO) ,R2

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

:MOVE BUS ADDRESS REGISTER
:MOVE CONTROL STATUS REGISTER

R1,RMDB(R0)

:MOVE DATA BUFFER

;gp)o.eaavsc

::POP STACK INTO ERRVE(+2
::POP STACK INTO ERRVEC
*NO BUS TIMEOUT OCCURRED

(SP)+,(SP)+

:ADJUST STACK
::POP STACK INTO ERRVE(+?2
::POP STACK INTO ERRVEC

anu?
5%

:aégqo ALONE MODE ?

START

*YES-GO GET SBASE

$EOP

;GO TO END OF PASS HANDLER

RS2

DEVICE AVAILABLE TEST
A

SCOPE

NOP

MOV
MOV

001226

= DEVICE BEING TESTED

;2SET TEST NUMBER IN APT MAIL BOX

(SP)+ ERRVEC+?2
(SP)+ ERRVEC
110

000042

046464

#STACK,SP

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

000006
000004

001100
001276
001464
000002

;START OF TEST
sINITIALIZE STACK POINTER

MOV
MOV
MOV
MOV

MOV
MOV

000004
000006

:SCOPE CALL

#STACK,SP

$BASE ,RO

SRR

:SCOPE CALL
sSTART OF TEST
sINITIALIZE STACK POINTER

MOV
MOV

TSTQUE ,R1
#2,8TESTN

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

JSR
BR

PC,CNTCLR

:GO ISSUE CONTROLLER CLEAR

NOP

EMT

;G0 TO 2% IF NO ERROR
;RETURN HERE

ERROR

:ERROR NUMBER DEF INED BY SUBROUTINE

OO0O0O

000004

— b Nt = O WNNININWN
NN SN NNNNN

2838[VOCO0O0O0O0
P

NS
NN

010474

000137

FRRRR RRRRR RRRRRRL
VWSS
3
SFNERS orNSNVO FERSIR o3
w

f:gfi:0na~nvnannvnnunnun:nhJ~cnrl~tnb4~:wuuun
COVRNOWVSN
W
—=O VNV
WOV~

(2 RMNAO RMO5/3/
/
2 FCTNL TST 2
12
DEVICE AVAILABLE TEST

MACRO v03.01 11-APR-80 13:17:48 PAGE1 13-1
-

000004

SEQ 0073

JMP

;GO TO 78 IF ERROR

MOV
MOV

ERRVEC,=(5P)
ERRVEC+2,-(SP)

;:PUSH ERRVEC ON STACK
ssPUSH ERRVEC+2 ON STA(K

MOV

#58 ERRVEC

000300

000004

MOV

PRG . ERRVEC+2

000000
000010

001176
001174

MOV
MOV

RMCST(RO),$TMPT :GET DVA STATUS
RMCS2(RO) ,$TMPO :GET NED STATUS

BIT

#NED,$TMPO

010000

001174

004000

001176

MOV
MOV

BEQ
EMT

B8R

3$:

BIT

BNE
EMT

B8R
5%:

000006
000004

032302

cmp

MOV
MOV

EmY

7%:
9%:

Jmp

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

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

38
m

IND!!

SOVA,$THP)

SNONEXISTENT DEVICE ?

;DEVICE AVAILABLE

9%
112

JYES
!

(SP)e, (SP)e

;ADJUST STA(x

(SP)e ERRYE(e?
(SP)
ERRVEC

11%

;:POP STACK INTO ERRVE(C+2
;:POP STACK INTO ERRVE(

$EOSP

.’:'...........O..'O.......'Q................'..O'...0..'..'0."'0

SeTEST

DRIVE

TYPE

TEST

001100
001276
001464
000003

SCOPE

NOP
MOV
MOV
MOV

001226

046464

MOV

#3,8TESTN

SSTART OF TEST
SINITIALIZE STACK POINTER
;RO = UN]BUS ADDRESS
;(R1) = DEVICE BEING TESTED

JSR

PC,ONTCLR

;G0 1SSUE CONTROLLER CLEAR

NOP

544

037110

oorszi
00152
001362

;SCOPE C(ALL

#STACK,SP
$BASE RO
TSTQUE ,RY

B8R

024024

001362

3%:

ERROR

MOVE
MOVB
MOV

#RMDT,GETINX
#200,GETINX+1
#5% RMDT |

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

PC,GET

EMT

001362

60 T0 28 'F NO ERROR

:RETURN MERE

:ERROR NUMBER DEF INED BY SUBROUTINE
:6G0 TO 4% IF ERROR

NOP

020024

S:SET TEST NUMBER IN APT MAIL BOX

EMT
JMP

JSR

W
~

15713:

S °°°8°°°O°°°°°
co8S o

=leleleielelelelelelaleleleleleleiNelelelelelele)
et e s
— b b D ek eh D oD b b d b b
A h D 2

;;".'....'......'........'.....................'l..O.".....Q".

CMP
BEQ
CMP
BEQ

;GO READ RMDT VIA GET SUBROUTINE

:G0 TO 3% IF NO ERROR

:RETURN MERE

ERROR

:ERROR DEFINED BY GET

#SNGPRT,RMDTI
5%
#DULPRT,RMDT]
5%

:SINGLE PORT RMO3 ?
SYES !
:DUAL PORT RMO3 ?
SYES !

SUBROUTINE

C RMNAOD RMO5/3/2 FCINL TST 2
DRIVE TYPE TEST

MACRO v03.01 11-APR-80 13:17:48 PAGEJ 13-2

SEQ 0074

76 010620
75 010626
76 010630

022737
0016%5
022737

020025

001362

gg:

ggncpatzaxro.anorx

SINGLE PORT RMO2 ?

024025

001362

CMP
BEQ

#DULPRT!BITO,RMDT]
5%

DUAL PORT RMO2 ?
SYES
!

79 010640

022737

020027

001362

gg:

gancvursa;v1:axro.nnorx sgche PORT RMOS ?

024027

001362

CMP
BEQ

#DULPRT'BIT1'BITO,RMDT] :DUAL PORT RMOS ?
g

001176
001200

MOV
MOV
EMT

#SNGPRT,$TMP1
#DULPRT.$TMP2
114

;LOAD ACCEPTABLE VALUES

JMP

$EOSP

;60 TO SUBPASS MANDLER.

;; 010636

80 010646
81 010650
g% 010656

001421

001415
022737
00141

84 010660
85 010666
gg 010676

012737
012737
104114

020024
024024

88 010676
89 010702
90

000137

032302

2:’

. 3A2l

ARl

TeTEST

FORMAT

R R R

AR R

SRR 222222222222

2222222222X2;

ZEROS

' '.'.'.""'..""""""".""...'...'.'."l"..."'."'."'l

010702
010702
010704
010706
010712
010716
9£ 010722
9
9¢ 010730
95 010736

96 010736

97
98
99
}8?
102

1$14:

000004
000240
012706
013700
013701
012737

001100
001276
001464
000004

001226

012737

000000

001442

0000

001444

012737

010744
010752
010760
010766

012737
012737
012737
012737

000000
177376
101206
000062

010776
011000
011002
011006
011010

004737
000405
104401
104000
000137

034276

012737
012737
004737

064620
000001
036224

004737

033352

103 011014
106 011014
105 011022
106 011030
107 011034
108
109
110 011034

011040

154130

SCOPE
NOP
MOV

001416

MOV
MOV

MOV

#STACK,SP
$BASE ,RO
TSTQUE ,R1

94, $TESTN

MOV

001410

#0,RMOF O

:18 BIT FORMAT

#0. .RMDCO

:CYLINDER= 0

MOV

#0 RMDAO

MOV

#BUFONE ,RMBAO

MOV

001414

MOV

#-358. RMUCO
#WH,RMCS10

;VERIFY TMAT SECTOR IS NOT BAD
JSR
PC,BADSCT

063120

001176

T
20%:

:TRACK = 0, SECTOR = 0

:2 + 256 WORDS (2'S COMP)

:DATA BUFFER ADDRESS

:WRITE HEADER AND DATA
;CALL BAD SECTOR MODULE

B8R

10$

JMP

1908

mov

#IEROS,$TMPO

;USE ALL ZEROS DATA PATTERN

JSR

PC . GENBUF

;60 GENERATE DATA BUFFER

TYPE
EMT

001174

1:SET TEST NUMBER IN APT MAIL BOX

;SETUP PARAMETERS FOR GENERATING DATA BUFFER

001412

011544

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

MOV

,SCTMSG

#1,8THP1

:G0 TO 108 IF NO ERROR

:TYPE BAD SECTOR MESSAGE
*ERROR # DEFINED BY BADSCT

160 TO 1908 IF ERROR

SUBROUTINE

;PREPARE DEVICE FOR DAYA TRANSFER
JSR

LWORD

PC,T1STP

154
so

;PREPARE DEVICE FOR TEST

STASK DESCRIPTOR AS FOLLOWS:

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

I1F

VOLUME NOT

;VERIFY PACK ACKNOWLEDGE

VALID

CZRMNAO RMO5/3/2 FCTNL TST 2

FORMAT

011042
011044
011046
011050
}}5 011054

ZEROS

000404
000240
104000
000137

011544

13
116 011054
115 011062

012737
012702

000005
001551

117 011072
118 011076

112722
112722

116 011066

119 011102

112722

000006

112722

000000

}%? 011106

112722

122 011112

004737

011116
011120
011122
011124

}52 011130

125
126 011130
127 011134
;gg 011140

000404
000240
104000
000137

004737

045224

000137

011544

139 011176
140 011206
141 011210
162 011214

012737
012702
112722
112722

000063
001554
000002
000004

}:g 011226

112722

000200

011170

011172

}gg 011176
138

143 011220

000405
000240
104000
004736

112722

146 011230

004737

011236

000240

01123

000404

037360

30%
1908

;RECALIBRATE IF ''SK1'' OR “PIP'" IS SET
;VERIFY RECALIBRATION

60 TO 308 IF NO ERROR
;RETURN HERE IF ERROR
*ERROR # DEFINED BY TSTPRP SUBROUTINE
160 TO 1908 IF ERROR

;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER
MOV
#SEEK'GO,RMCS10 ;CHANGE COMMAND TO SEEK
MOV
#PUTINX,R2
:WRITE REGISTER INDEX TABLE

MOVB

#RMDA, (R2)+

MOVB

WRMCST,(R2)+

MOVB
JSR

408 :

BR
NOP
EMT
JMP

WRMDC.(R2)+
WRMOF . (R2)+

#200,(R2)+
PC,PUT

4L0%

1908

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

:6G0 TO 40% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
160 TO 1908 IF ERROR

JSETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE
JSR
PC,GETSTS
;SETUP FOR STATUS
JSR
PC,TIMOUT
JWAIT FOR SEEK TO COMPLETE
508 :
;G0 READ SEEK STATUS
JSR
PC,GET
BR
60%
NOP

011544

000000

BR
NOP
EMT
JMP

MOVB
MOVB

011544

037110

134
135 011156
011162
011164
011166

001'410

037360

004737
000404
000240
104000
000137

}gg 011156

308 :

000200

037024
037722

011150
011152

000034
000032

004737
004737

130
131 011140
011144
011146

MACRO v03.01 11-APR-80 13:17:48 PAGE 13-3

608 :

EMT
JMP

1908

;G0 READ REGISTER(S) WITH GET SUBROUTINE
160 TO 608 IF NO ERROR
;RETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
160 TO 1908 IF ERROR

:VERIFY THE RESULTS OF THE SEEK COMMAND
JSR
PC,SEKSTS
;G0 VERIFY RESULTS OF SEEK OPERATION
BR
70§
260 TO 708 IF NO ERROR
NOP
:RETURN HERE I1F ERROR
EMT
;ERROR # DEFINED BY SEKSTS SUBROUTINE

JSR

708 :
001410

JMP

PC,a(SP)+

1908

;G0 BACK FOR MORE ERROR CHECKS

160 TO 1908 IF ERROR

:SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND

MOV
MOV
MOVB
MOVB

#WH'!GO,RMNCS10
#PUTINX+3,R2
#RMWC, (R2)+
#RMBA.(R2)+

MOVB

#200,(R2)+

MOVB
JSR

NOP

JWRITE HEADER AND DATA
:EXTEND REGISTER INDEX TABLE

#RMCST,(R2)+
PC,PUT

80$

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

160 TO B80S IF NO ERROR
JRETURN HERE IF ERROR

SEQ 0075

RMNAO RMO 5/3/72 FCINL TST 2
FOR MAT ZEROS

011240
011242
147 011246

148
149
150 011246
151
152 011252

011256
011260
011262
011264
153 011270

154
155
156 011270

011274
011276
011300
011302
011304

157 011310
158 011310

011314
011316
011320
011322
011324
159 011330

160 011330

161
162
163
164
icS
166
167

104000

000137

011544

004737

037722

004737
000404

037110

000137

011544

004737
000405
000240
104000
004736
000137

040106

004737
000405
000240

052622

011544

004736
000137

011544

004737
000405
000240
104000
004736
000137

040740

011350
011356

012737
012737

000073

011364

004737

037360

011370
011372
011374
011376

172
173 011406

011412
011414
011416
011420

176 011424

011544

EMT
JMP

90$%:

004737

037722

004737
000404

037110

000137

011544

NED BY PUT SUBROUTINE
F ERROR

190%

JSR
BR
NOP
EMT
JMP

PC,GET

90$

190%

:VERIFY RESULTS OF WRITE COMMAND

1008:

1108:

120%:

;GO READ REGISTER(S) WITH GET SUBROUTINE
;60 _TO 90 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;G0 TO 190% IF ERROR

1008

;60 CHECK FOR PRIMARY ERRORS
;60 TO 1008 IF NO ERROR

PC,a(SP)+

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

JSR
BR
NOP
EMT
JSR
JMP

PC,PRIERR

JSR
BR
NOP
EMT
JSR
JMP

PC,DTASTS

JSR
BR
NOP
EMT
JSR
JMP

PC,SECERR

1908

sRETURN HERE

ERROR

;60 TO 1908 IF ERROR

1108

;GO VERIFY RESULTS OF DATA TRANSFER
;60 TO 1108 IF NO ERROR

PC,a(SP)+

:ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;G0 TO 190% IF ERROR

1908

1208

PC,a(SP)+

1908

sRETURN HERE

ERROR

;GO CHECK FOR SECONDARY ERRORS
;60 TO 1208 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY SECERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;G0 TO 1908 IF ERROR

sREAD HEADER AND DATA FOR SECTOR JUST WRITTEN

102212

011544

SEQ 0076

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

MOV
MOV

#RH!GO,RMCS10
#BUF TW0, RMBAOD

;READ HEADER & DATA COMMAND
s CHANGE BUS ADDRESS

JSR

PC,PUT

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE
;60 TO 1308 IF NO ERROR
;RETURN HERE IF ERROR
:ERROR # DEFINED BY PUT SUBROUTINE
;60 TO 190% IF ERROR

NOP

168 011402
169

170
171 011402

80%:

104000

011334
011336
011340
011342
011344
011350

MACRO v03.01 11-APR-80 13:17:48 PAG% lg-k

EMT

130%:

JMP

1308
1908

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

JSR

NOP

EMT

140%:

JMP

PC,GET

1408

1908

;GO READ REGISTER(S) WITH GET SUBROUTINE
;60 TO 1408 IF NO ERROR
+RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;G0 TO 190% IF ERROR

—

CZRMNAQ RMO5/3/2 FCINL TST 2

2ONNNNOg0mmu\nbbbwwww~
(=T W 3 N1
OO NOSSTOO
T NOS

VIS SRS 80 srsrsrssress

S B WHNVNIN
= b s 2 O
S ONONNOOS~NVO
S

i e
e o
i e
D e o
s e
D el D i e e
i e e
D i
D e e
i i

ViU UYUYAUV

D
d

e
e

e e

e
e

d e

o
i

— e

WN—‘OO@Ng

—

~NOorw

O 0o

[=lelelelelelolelelelolololeleloleololeloTe)
[=lelelelelelelelelelal]

et
—
s
-

-0

00 0o

g p——

00 0o 00 0o
VSN

NN~

FORMAT ZEROS

3-.—..;—.—.;-.
00O 0000

004737
000405
000240
104000
004736
000137

MACRO V03.01 11-APR-80 13:17:48 PAGE" 19-5
;VERIFY THE RESULTS OF READ OPERATION
JSR
PC,PRIERR
:GO CHECK FOR PRIMARY ERRORS

040106

1508

:6G0 TO 1508 IF NO ERROR

EMT
JSR

PC,a(SP)+

:ERROR # DEFINED BY PRIERR SUBROUTINE
:6G0 BACK FOR MORE ERROR CHECKS

JSR

PC,DTASTS

;60 VERIFY RESULTS OF DATA TRANSFER

NOP

011544

JMP

052622

NOP

011544

004737
000405
000240
104000
004736
000137

011544

004737

036462

;60 CHECK FOR SECONDARY ERRORS

PC,a(SP)+

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

JMP

sVERIFY DATA
JSR
.WORD
WORD

010000

001442

NOP

010000
010736

001442

1908

1708

1908

PC,CMPBUF
BUFONE
BUFTWO

180%

EMT

'
190%:

IF ERROR

PC,SECERR

EMT
JSR

1808

:6G0 TO 1608 IF NO ERROR

:RETURN HERE

JSR

NOP

104000

:6G0 TO 1908 IF ERROR

PC,a(SP)+

1608

IF ERROR

:ERROR # DEFINED BY DTASTS SUBROUTINE
:60 BACK FOR MORE ERROR CHECKS

JMP

040740

1908

:RETURN HERE

EMT
JSR

032737
001005
012737
000137

SEQ 0077

BIT

BNE
MOV
JMP

:G0 TO 1908 IF ERROR

:6G0 TO 1708 IF NO ERROR
:RETURN HERE

ERROR

160 TO 1908 IF ERROR

;G0 COMPARE WRITE, READ DATA BUFFERS
:STARTING ADDRESS OF WRITE BUFFER

:STARTING ADDRESS OF READ BUFFER
;GO TO 180% IF NO ERROR

:RETURN HERE

IF ERROR

JERROR # DEFINED BY CMPBUF

#FMT16,RMOFO
190%
#FMT16,RMOFO
5%

SUBROUTINE

sTEST 16 BIT MODE YET ?

JYES
sSET 16 BIT MODE AND
sTEST AGAIN.

::...'....'.l..'."""""""'.'...."."..'.."'.."t'.."'...

s*TEST §

ZERO FILL TEST

20\”\’!’5‘“
oroosr
b
e
et
d
b
—

rororonrNON
NNNNNN
NN NN NN
NNNNNYN

1ST75:

[=lelelelTe)

b
b

VWAL

SRZSTZ

e
e
—

[=lelelelele]

—p—

[elelelelelela)

::I."."...."""'"'"""'"...'...'..'..'.'..."I.'.....".'

S2882IRAR

r—

001100
001276
001464
000005

001226

000000

001444

000062

001416
001442
001412
001414
001410

SCOPE
NOP
MOV

MOV
MOV

MOV

#STACK,SP

$BASE ,RO
TSTQUE ,R1

#5,8TESTN

:sSCOPE CALL
sSTART OF TEST

sINITIALIZE STACK POINTER

:RO = UNIBUS ADDRESS

:(R1) = DEVICE BEING TESTED

:sSET TEST NUMBER IN APT MAIL BOX

sSETUP PARAMETERS FOR GENERATING DATA BUFFER
MOV
.
;CYLINDER = 0
#0,RMDCO
MOV
#0,RMDAO
sTRACK = 0, SECTOR = 0
MOV
#EMT16,RMOFO
:16 BIT FORMAT
MOV
#-258. ,RMWCO
;2 4+ 256 WORDS (2'S COMP)
MoV
#BUFONE ,RMBAO
;DATA BUFFER ADDRESS
MOV
#WH,RMCS10
;WRITE HEADER AND DATA

004737

NSO ONNVVO N

NNO‘V‘\I’V‘U’FI‘&

oooorororOrO
OO

004737

~NOo~
=
oo

b e
d
D

D
B
—

P
—

—

-‘OOONOV’?

—-—-00000

eSS S

(=lelelelelelolelele)

203

MACRO v03.01 11-APR=-80 13:17:48 PAGE 13-6
N

sVERIFY THAT SEC TOR IS NOT BAD

034276
063120
012400

108:

064620
000001
036224

156130

20%:

JSR
BR
TYPE
EMT
JMP

PC BADSCT

MoV
MoV

NIEROS,$TMPO
#1,8THP1
PC,GENBUF

JSR

10§

,SCTMSG

180$

SEQ 0078

;CALL BAD SECTOR MODULE
;60 TO 108 IF NO ERROR
:TYPE BAD SECTOR MESSAGE
sERROR # DEFINED BY BADSCT SUBROUTINE
;60 TO 1808 IF ERROR
sUSE ALL ZEROS DATA PATTERN

:GO GENERATE DATA BUFFER

sPREPARE DEVICE FO R DATA TRANSFER
Pc' TS TPRP
JSR
sPREPARE DEVICE FOR TEST
154130
.WORD
:TASK DESCRIPTOR AS FOLLOWS:

033352

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

VOLUME NOT VALID

sVERIFY PACK ACKNOWLEDGE

~
o
o
o

—0

WSS
W
-

NNNNNNN

OOV
~

30%:
001410

BR
NOP
EMT
JMP

MOV
MOy
MOVB
MOVB

MOVB

000200
&~

~
o

MOVB
JSR

NOP

000137

40%:

180%

:VERIFY _RECALIBRATION
;G0 TO 308 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 180% IF ERROR

EMT
JMP

#SEEK'GO,RMCS10 :CHANGE COMMAND TO SEEK
#PUTINX,R2
"WRITE REGISTER INDEX TABLE
#RMDA, (R2)+
#RMDC.(R2)+

WRMOF . (R2)+

WRMCST,(R2)+
#200,(R2)+
PC,PUT

40$

180%

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

160 TO 408 IF NO ERROR
*RETURN HERE

ERROR

*ERROR # DEFINED BY PUT SUBROUTINE
160 TO 180$ IF ERROR

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

004737
004737

50%:

JSR
JSR

PC,GETSTS
PC.TIMOUT

:60 READ SEEK STATUS

004737
000404
000137

30%

;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER

MOVB

o
o
o

SNNNNNN

I
D

e
S
I
T
R
s =
b
e
e

037360

~
~

—

012400

000005
001551

P S

—

[Y-1-)

— D i il

(=lelelelela)

N=OOVO~NO
N
S

000404

WN=O
VO~
WnSWwN

POPOININ)
= cd

s e e

NN
NN NN

oo
wwwrornoroNNN

-k
e OO
oo
&

B
B
D od

—ed B D et B oen 8
——— ]

OCOoOC
D

OO0O0O0O0OoOo
OCOO0O0O0O0

;RECALIBRATE IF ''SKI'' CR "PIP'" IS SET

RMNAO RM05/3/2 FCTINL TST 2
ZERO FILL TEST

noro

[
i

JSR

60%:

:60 READ REGISTER(S) WITH GET SUBROUTINE

60$

160 TO 60$ IF NO ERROR

EMT
JMP

1808

*ERROR # DEFINED BY GET SUBROUTINE
160 TO 180$ IF ERROR

NOP

012400

PC,GET

;SETUP FOR STATUS
‘WAIT FOR SEEK TO COMPLETE

*RETURN HERE

ERROR

RMNAO RMO5/3/2 FCTNL ST 2
ZERO FILL TEST

11 012020 006737 045224

S rNOS RS NNISREZINSE
RS

il
e
il
i
il
il
D el e
—

(%]

il ol

N =

D i

o w
(=1

~
o

A A AN LS LS LS LS LSO LS TN LN T N LN LN N TN N NT N V]
POROIRONI NI NI NN b e i cd i b s el cd el cd s cd

OO0 O0ONO0O0O0O0O0O0O0O0O0O0O0O0O00O0

012024
0120%6
012030
012032
012034
237 012040
238
239
240 012040
241 012046
262 012054
243 012060
246 012064
245 012070
246 012074
247
248 012100
012104
012106
012110
012112
249 012116
250
251
252 012116
253
254 012122
012126
012130
012132
012134
255 012140
256
257
258

012400

000063

MACRO v03.01 11-APR-80 13:17:48 PAGg 12=7

7o£

MovB
MovB
MOvB
MovB

JSR
BR

NOP

004737

037722

004737
000404
000240
104000
000137

037110

012400

004737

040106

80$%:

EMT
JMP

JSR
BR

90$%:

EMT
JMP

012400
040740

JSR
BR

100%:

1108:

EMT
JSR
JMP

012400

#200, (R2)+
PC,PUT

80%

180%

PC,GET

90%

180%

1208:

PC,PRIERR

1008

PC,a(SP)+

1808

JSR
BR
NOP
EMT
JSR
JMP

PC,DTASTS

JSR
BR

PC,SECERR

NOP

000137

#RMCST, (R2)+

JVERIFY RESULTS OF WRITE COMMAND
NOP

052622

#RMWC, (R2)+

#RMBA . (R2)+

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

;60 TO 80% IF NO ERROR
;RETURN HERE

ERROR

;ERROR # DEFINED BY PUT SUBROUTINE
;60 TO 180% IF ERROR

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

NOP

012400

0 708 IF NO ERR

;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
MOV
#-2 ,RMWCO
sFORMAT PARTIAL SECTOR
MOV
#WH!GO,RMCS10
:WRITE HEADER AND DATA
#PUTINX+3,R2
MOV
:EXTEND REGISTER INDEX TABLE

037360

012400

SEQ 0079

sVERIFY THE RESULTS OF THE SEEK COMMAND
PC,SEKSTS
so veaxrv RESULTS or seex OPERATION
BR
NOP
aerunu HERE IF eaaoa
EMT
:ERROR # DEFINED BY SEKSTS SUBROUTINE
JSR
PC,a(SP)+
160 BACK FOR MORE ERROR CHECKS
180s
:60 TO 1808 IF ERROR
JMP
708:

000200

000137

EMT
JSR
JMP

1108

PC,a(SP)+

1808
1208

PC,a(SP)+

1808

;GO READ REGISTER(S)

WITH GET

;60 TO 908 IF NO ERROR
;RETURN HERE

SUBROUTINE

ERROR

sERROR # DEFINED BY GET SUBROUTINE
;G0 TO 180% IF ERROR

;G0 CHECK FOR PRIMARY ERRORS

260 TO 1008 IF NO ERROR
*RETURN HERE

IF ERROR

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

:60 TO 1808 IF ERROR

;G0 VERIFY RESULTS OF

DATA TRANSFER

:6G0 TO 1108 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY DTASTS SUBROUT INE
160 BACK FOR MORE ERROR CHECKS

:6G0 TO 1808 IF ERROR

:60 CHECK FOR SECONDARY ERRORS

:60 TO 1208 IF NO ERROR
:RETURN HERE

IF ERROR

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

160 TO 1808 IF ERROR

: %%RHNAO RMO5/3/2 FCINL TST 2
ZERO FILL TEST
64

65
266 012220
267 012226
268 012234
269
270 012242
012246
012250
012252
0122564
71 012260

012400

004737

037722

004737
000404
000240
104000
000137

037110

004737
000405
000240
104000
004736
000137

040106

012400

130%:

#-258. ,RMWCO
#RH'GO,RMCS10
#BUFTWO,RMBAO

JSR
BR

PC,PUT
1308

;GO0 uaxrg REGISTER(S) WITH PUT SUBROUTINE
;60 TO 1308 IF NO ERROR

EMT
JMP

1808

:ERROR # DEFINED BY PUT SUBROUTINE
:60 TO 180$ IF ERROR

JSR

NOP
EMT

1408%:

JMP

JSR

:RETURN MERE

ERROR

PC,GET

:6G0 READ REGISTER(S) WITH GET SUBROUTINE

1408

:6G0 TO 1408 IF NO ERROR

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

1808

160 T0 1808 IF ERROR

PC,PRIERR

;60 CHECK FOR PRIMARY ERRORS

EMT
JSR

PC,a(SP)+

180$

:ERROR # DEFINED BY PRIERR SUBROUTINE
160 BACK FOR MORE ERROR CHECKS

:GO TO 1808 IF ERROR

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

BR
e

JMP

BR
e

040740

036462

: CHANGE BUS ADDRESS

;VERIFY THE RESULTS OF READ OPERATION

NOP

012400

;2 + 256 WORDS (2'S COMP)
;READ HEADER © DATA COMMAND

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

052622

012400

SEQ 0080

MOV
MOV
MOV

NOP

012400

;READ HEADER AND DATA FOR SECTOR JUST WRITTEN

NOP

SSRIES

012374
012376
289 012400
290
291

11-APR=-80 13:17:48 PAGE 12-8

037360

OHroO-—

012264
012270
012272
012274
012276
277 012302
278
279
280 012302
012306
012310
012312
012314
012316
281 012322
282 012322
012326
012330
012332
012334
012336
283 012342
284 012342
012346
012350
012352
012354
012356
285 012362
286
287
288 012362
012366
012370
012372

177376
000073
102212

MACRO v03.01

1608

ERROR

;G0 TO 1608 IF NO ERROR
:RETURN HERE

ERROR

1808

:60 TO 1808 IF ERROR

JSR

PC,SECERR

:60 CHECK FOR SECONDARY ERRORS

PC,a(SP)+

:RETURN HERE IF ERROR
:ERROR # DEFINED BY SECERR SUBROUTINE
:6G0 BACK FOR MORE ERROR CMECKS

PC, CMPBUF
BUFONE
BUF TW0

;60 COMPARE WRITE, READ DATA BUFFERS
:STARTING ADDRESS OF WRITE BUFFER
;STARTING ADDRESS OF READ BUFFER

JMP

:VERIFY DATA

JSR
.WORD
.WORD

TeTEST 6

:RETURN HERE

PC,a(SP)+

JMP
NOP
EMT
JSR

:60 TO 1508 IF NO ERROR

EMT
JSR

170%:

1508

NOP

1708

1808

EMT

:ERROR # DEFINED BY DTASTS SUBROUTINE
:6G0 BACK FOR MORE ERROR CHECKS

:G0 TO 1708 IF NO ERROR

:G0 TO 1808 IF ERROR

:G0 TO 1808 IF NO ERROR

:RETURN HERE

IF ERROR

:ERROR # DEFINED BY CMPBUF

FORMAT

CHECK ZEROS

SUBROUTINE

%éRHNAO RMO5/3/2 FCTNL TST 2
FORMAT CHECK ZEROS

MACRO v03.01

MAAAAA

té16:

ok el

000004

NNNNNN

d
d
e
e
—

012737
012737
004737

064620
000001
036224

004737

033352

154130

AR A

001226

SCOPE

SEQ 0081
R

#STACK,SP

$BASE, RO

MOV

#6,STESTN

TSTQUE, R1

MOV

#FMT16,RMOFO

MOV
MOV

#BUFONE, IMBAO
#uH,RMCS10

MOV

#-258. .RMWCO

sVERIFY THAT SECTOR IS NOT BAD

= DEVICE BEING TESTED

ssSET TEST NUMBER IN APT MAIL BOX

108:

20%:

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

;CALL BAD SECTOR MODULE

TYPE

,SCTMSG

;TYPE BAD SECTOR MESSAGE

10$

EMT
JMP

2608

MOv
MOV

#ZEROS,$TMPO
#1,8TMP1

JSR

PC,GENBUF

;G0 TO 108 IF NO ERROR

:ERROR # DEFINED BY BADSCT SUBROUTINE
:G0 TO 2608 IF ERROR

;USE ALL ZEROS DATA PATTERN

;GO GENERATE DATA BUFFER

: PREPARE gEVlCE FOR DATA TRANSFER
J

.WORD

NOP

ONNNNNNYN

;RO = UNIBUS ADDRESS

:(R1)

PC,BADSCT

J~gyn
OO
W
~N
NN

—

Sttt
OO

2222223222

JSR

EMT

013170

OO0
o
S

WS
W

§fnauuau“n
S¥3F8
-t
b

osr0O

s
b
s
—_—

i
ol
D
il
i

OSSN

VWAL

(=]lelelele]

OO0O0O0O0O0O

-t
-

OO0

oo
oo

=0V

NOWVSsWN-=O

NN
N NN NN
NN NN N
~N N — =2 b 2 b
— —

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

000404

037360

;START OF TEST
sINITIALIZE STACK POINTER

PC,TSTPRP

154130

sPREPARE DEVICE

FOR TEST

:TASK DESCRIPTOR AS FOLLOWS:

sSELECT DEVICE & VERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE

000005
001551
000006
000034
000032
000000
000200

:SCOPE CALL

MOV

063120

VLD

b
>
s
b
D
b
b
—

—

et
38 SR
wno

NN NN

P
KEESSEREI

NN
NN

013170

OO0O0O0O0O0O0O0O0O

034276

NOP
MOV

000000
000000
010000
177376
101206
000062

(=1~}

300
301

NN
NNNNNSN
NN NN NN

[=l=lelelel=]

001100
001276
001464
000006

11=-APR=80 13:17:48 PAGE 12-9

308:

001410

JMP

308
260%

VOLUME NOT VALID

sVERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ''SKI'" OR "PIP'" IS SET
;VERIFY RECALIBRATION
;G0 TO 308 IF NO ERROR

sRETURN HERE

ERROR

;ERROR # DEFINED BY TSTPRP SUBRCUTINE

;60 TO 2608 IF ERROR

;SETUP PagAHETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER
#SEEK!GO,RMCS10 ;CHANGE COMMAND TO SEEK

MOV
MOVB

#PUTINX, R2
#RMDA, (R2)+

MOVB

WRMOF . (R2)+

MOVB

MOVB
MOVB
JSR

NOP

:WRITE REGISTER INDEX TABLE

#RMDC.(R2)+

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

408

;60 WRITE REGISTER(S) WITH PUT

160 T0 408 IF NO ERROR

sRETURN HERE

ERROR

SUBROUT
INE

CZRMNAQ gSOSISIZ FCTNL TST 2

T CHECK ZEROS

gWN
oo

P ——

noor

[elele]

013170

004737
004737

37024
37722

NO WV WY

N NN N N NN NN
WO

104000

000137

MACRO v03.01 11-APR-80 13:17:48 PAGE 12=10
40%:

EMT
JMP

50%:

;G0 READ SEEK STATUS
JSR

NOP
EMT

013170

60%:

JMP

SER

ONNNNNN

NNNONNOW
NN
w
S

b
—, e e’ e e

roroNNONON

—-——e0O

FRKS RNan&

35888

:
708

001410

70$

EMT
JSR

PC,a(SP)+

JMP

040106

2608

MOVB

#RMCST,(R2)+

JSR

PC,PUT

MOVB

B8R

NOP
EMT

80%:

JMP

;ERROR # DEFINED BY GET SUBROUTINE

;G0 TO 2608 IF ERROR

;60 TO 708 IF NO ERROR
sRETURN HERE IF ERROR

;ERROR # DEFINED BY SEKSTS SUBROUTINE

;G0 BACK FOR MORE ERROR CHECKS
;60 TO 2608 IF ERROR

#200,(R2)+

80$

2608

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

;60 TO 2608 IF ERROR

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

JSR

NOP

013170

2608

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

;SETUP AND EXECUTE WRITE MEADER AND DATA COMMAND
MOV
#WH'GO,RMCS10
sWRITE HEADER AND DATA
MOV
#PUTINX+3,R2
SEXTEND REGISTER INDEX TABLE
MOVB
#RMWC,(R2)+
MOVB
#RMBA.(R2)+

037110

888g8 2

h
i
ol cd
Dl o
h
t
o
—

NN
NNNNNO
Nt
o~

[=leleleleleliNelelelelel]

00000

—-OoVv®~No

SRR ERE

oo
NNNNNN

N NN
FRERER WM
W
VS W= OO uugu
ONOW

013170

037722

60$

NOP

013170

PC,GET

;VERIFY THE RESULTS OF THE SEEK COMMAND
JSR
PC,SEKSTS
;G0 VERIFY RESULTS OF SEEK OPERATION

065224

037360

;ERROR # DEFINED 87 PUI SUBROUT INE
;60 TO 2608 IF ERR

;SETUP FO:RREADXNG STATUS AND THEN WAIT FOR SEEK TO COMPLETE
PC,GETSTS
;SETUP FOR STATUS
JSR
PC.TIMOUT
:WAIT FOR SEEK TO COMPLETE

037110

000063
001554
000002
000004
000000
000200

2608

SEQ 0082

EMT

90%:

JMP

PC,GET

90$

2608

;VERIFY RESULTS OF WRITE COMMAND
JSR

NOP

EMT
JSR

PC,PRIERR

1008

PC,A(SP)+

;G0 READ REGISTER(S) WITH GET SUBROUTINE

;60 70 908 IF NO ERROR
+RETURN HERE

ERROR

sERROR # DEFINED BY GET SUBROUTINE

;60 TO 260% IF ERROR

;G0 CHECK FOR PRIMARY ERRORS

260 TO 1008 IF NO ERROR
sRETURN HERE 1F ERROR

;ERROR # DEFINED BY PRIERR SUBROUTINE
;60 BACK FOR MORE ERROR (MECKS

2 RMNAO nn0513/2 FCTNL TST 2
T6
FORMAT CMECK ZEROS

013002
356 013006
357 0130

000137

013170

004737

052622

013014
013016
013020

000240
104000
004736

013012

013022

000405

358 013026
359 013026

000137

013170

004737

040740

01303¢
013036
013040

000240
104000
004736

013032

013042

000405

000137

013170

362
§22 013046

012737

000053

365 013054

004737

037360

013062
013064
013066

000240
104000
000137

013170

368
g?g 013072

004737

037722

371 013076

004737

037110

0131064
013106
013110
;;g 013114

000240
104000
000137

013170

374
375 013114

004737

040106

013122
013124
013126

000240
106000
004736

;g? 013046

013060

ggg 013072

013102

013120
013130

000404

000405

376 013134
377 013134

013170

004737

052622

013142
013144
013146

000240
104000
004736

013150

000405

378 013154
379 013154

000137

013170

004737

040740

013162
013164
013166

000240
104000
004736

013160

000403

11-APR=-80 13:17:48 PAGE

12-11

SEQ 0083

1008:

JMP

2608

;G0 TO 2608 IF ERROR

JSR

PC,DTASTS

;G0 VERIFY RESUL!S OF DATA TRANSFER

NOP
EMT
JSR

1108:

001410

PC,a(SP)+

2608

JSR

PC,SECERR

NOP
EMT
JSR

1208 :

1108

JMP

1208

PC,a(SP)+

2608

:60 TO 1108 IF NO ERROR

:RETURN MERE IF ERROR
:ERROR # DEFINED BY DTASTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS

:60 TO 2608 IF ERROR

:60 CHECK FOR SECONDARY ERRORS

:G0 TO 1208 IF NO ERROR

:RETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

:G0 TO 2608 IF ERROR

JWRITE CHE(K HEADER AND DATA FOR SECTOR JUST WRITTEN
#UCH'GO,RMCS10 ;WRITE CHECK COMMAND
JSR

1308 :

NOP
EMT
JMP

PC,PUT

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

2608

JRETURN HERE ]° ERROR
JERROR # DEFINED BY PUT SUBROUTINE
160 TO 2608 IF ERROR

1308

260 TO 1308 IF NO ERROR

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

JSR

B8R
1408 :

NOP
EMT
JMP

PC,GET

;G0 READ REGISTER(S) WITH GET SUBROUTINE

2608

:RETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
160 T0 2608 IF ERROR

1408

;G0 TO 1408 IF NO ERROR

JVERIFY THE RESULTS OF WRITE CHECX OPERATION
JSR
PC,PRIERR
;G0 CHECK FOR PRIMARY ERRORS

000137

013140

MACRO v03.01

1508:

:60 TO 1508 IF NO ERROR

PC,alSP)+

2608

160 TO 260% IF ERROR

JSR

PC,DTASTS

;60 VERIFY RESULTS OF DATA TRANSFER

NOP
EMT
JSR

PC,a(SP)+

‘RETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

;60 CHECK FOR SECONDARY ERRORS

PC,a(SP)+

*RETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUT INE
;G0 BACK FOR MORE ERROR CHECKS

JMP

1608:

1508

NOP
EMT
JSR

JMP

NOP
EMT
JSR

1608

2608

1708

JRETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE
:60 BACK FOR MORE ERROR CHECKS

:6G0 TO 1608 IF NO ERROR
:60 TO 2608 IF ERROR

:6G0 TO 1708 IF NO ERROR

CZRMNAO RMO5/3/2 FCTNL TST 2
16

FORMAT CHMECK ZEROS

MACRO v03.01 11-APR-B0 13:17:48 PAG? 12=12

gg? 013170

170%:

gg% 013170

2608 :

sa‘

::'t"0'."t"'t'"""""""t't"""'""0'."0"0""'.00"0

J*TEST

013170

TSI?

013170
013172
013174
013200
013206
588 013210

000004
000240
012706
013700
013701
012737

001100
001276
001464
000007

001226

386
387 013216
388 013224
389 013232
390 013240
391 013246
ggg 013254

012737
012737
012737
012737
012737
012737

000000
000000
010000
177376
101206
000062

001444
001416
001442
001412
001414
001410

004737
000405
104401
104000
000137

034276

012737
012737
004737

064620
000001
036224

004737

033352

394

013262
013266
013270
013274
013276
395 013302
396 013302
397 013310
398 013316
283 013322
401
402 013322

013326

405

406
407
408
409
410

154130

063120
014130

013330
013332
013334
013336

000404
000240
104000
000137

014130

013342
013;50
013354
013360
013364

012737
012702
112722
112722
112722

000005
001551
000006
000034
000032

282 013342

FORMAT CHECK ZEROS W/ WCE ERROR

""""t't"."'""'""l"I""'.Ql."."tl't'"'Q"""Q"'

001174
001176

SCOPE
NOP
MOV
MOV
MOV
MOV

#STACK,SP
$BASE RO
TSTQUE R
#7,8TESTN

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

sSETUP PARAMETERS FOR GENERATING DATA BUFFER
MOV
#0,RMDCO
:CYLINDER = 0
MOV
#0,RMDAO
sTRACK = 0, SECTOR = 0
MOV
IFHT16.RHOF0
:16 BIT FORHAT
MOV
#-258. ,RMUCO
;2 + 256 WORDS (2'S COMP)
MOV
#BUFONE ,RMBAD
;DATA BUFFER ADDRESS
MOV
#WH,RMCS10
;WRITE HEADER AND DA1A
sVERIFY THAT SECTOR IS NOT BAD
JSR
PC,BADSCTY
BR
108
TYPE
,SCTMSG
EMT
JMP
260%
108:
MOV
#ZEROS,$TMPO
MOV
#1,8TMP1
JSR
PC,GENBUF

20%:

sCALL BAD SECTOR MODULE
;GO TO 108 IF NO ERROR
sTYPE BAD SECTOR MESSAGE
:ERROR # DEFINED BY BADSCT SUBROUTINE
;60 TO 260% I1F ERROR
sUSE ALL ONES DATA PATTERN
;60 GENERATE DATA BUFFER

;PREPARE DEVICE FOR DATA TRANSFER
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TEST

308%:
001410

LWORD

154130

BR
NOP
EMT
JMP

30%
260%

STASK DESCRIPTOR AS FOLLOWS:

sSELECT DEVICE & VERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
sVERIFY PACK ACKNOWLEDGE
sRECALIBRATE IF "'SKI'" OR "PIP'" 1S SET
:VERIFY RECALIBRATION
;G0 TO 308 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY TSTPRP SUBROUTINE
;G0 T0 260% IF ERROR

;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER

MOV
MOV
MOVB
MOVB
MOVB

#SEEK'GO,RMCS10 :CHANGE COMMAND TO SEEK
#PUTINX,R2
JWRITE REGISTER INDEX TABLE
#RMDA, (R2)+
#RMDC, (R2)+
#RMOF
, (R2)+

SEQ 0084

CIZRMNAD RMOS5/7372 FCTNL TST 2
MACRO v03.01
17
FORMAT CHECK ZEROS W/ WCE ERROR
411 013370

112722

000000

11-APR=80 13:17:48 PAGE 12-13

MOVB

SEQ 0085

WRMCS1,(R2)+

2}; 0133764

112722

000200

414 013400

004737

037360

013406
013410
013412

000240
104000
000137

014130

\7
418 013416
419 013422
25? 013426

004737
004737

037024
037722

;SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE
JSR
PC,GETSTS
JSETUP FOR STATUS
JSR
PC.TIMOUT
‘WAIT FOR SEEK TO COMPLETE
508 :

013432
013434
013436
013440

004737
000404
000240
104000
000137

037110

;G0 READ SEEK STATUS
JSR
PC,GET

627 013444

004737

045224

013460

000137

014130

013464
013472
013476
013502

012737
012702
112722
112722

000063
001554
000002
000004

2;9 013512

112722

000200

013404

2}2 013416

422
423 013426

tgg 013444
426

013450
013452
013454
013456

:gg 013464
430
431
432
433
436

435 013506

438 013516

013522
01352¢
013526
013530

223 013534
44

000404

000405
000240
104000
004736

112722

004737

000404
000240
104000
000137

000000

014130

037722

444 013540

004737

037710

013546
013550
013552

000240
104000
000137

445 013556

000404

408 :

608 :

014130

NOP
EMT
JMP

BR
NOP
EMT
JMP

#200,(R2)+
PC,PUT

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

2608

*RETURN MERE IF ERROR
:ERROR # DEFINED BY PUT SUBROUTINE
:60 TO 2608 IF ERROR

408

60%

2608

:60 TO 408 IF NO ERROR

;G0 READ REGISTER(S) WITH GET SUBROUTINE
160 TO 608 IF NO ERROR
;RETURN HERE IF ERROPR
JERROR # DEFINED BY GET SUBROUTINE
160 T0 2608 IF ERROR

JVERIFY THE RESULTS OF THE SEEK COMMAND
JSR

BR
NOP
EMT
JSR
708 :
001410

JMP

PC,SEKSTS

708

PC,a(SP)+

2608

;G0 VERIFY RESULTS OF

SEEK OPERATION

160 TO 708 IF NO ERROR
:RETURN HERE IF ERROR
JERROR # DEFINED BY SEKSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

:60 TO 2608 IF ERROR

;SETUP AND EXECUTE WRITE WEADER AND DATA COMMAND
MOV
#WH'GO,RMCS10
JWRITE HEADER AND DATA
MOV
WPUTINX+3,R2
:EXTEND REGISTER INDEX TABLE
MOVB
#RMWC, (R2)+
MOVE
#RMBA. (R2)+

MOVB

WRMCST,(R2)+

JSR
BR
NOP
EMT
JMP

PC,PUT

MOVB

037360

004737

013544

JSR

014130

44§ 013534
XA

MOVB

808 :

#200,(R2)+
80%

2608

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

:60 T0 80$ IF NO ERROR
*RETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBRROUTINE
160 T0 2608 IF ERROR

sWAIT 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

2608

*RETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
160 10 2608 IF ERROR

BR
908:

NOP
EMT
JMP

90%

:6G0 TO 908 IF NO ERROR

SUBROUTINE

G S S G AN
FnoE RN ONSS FRT

)
Tl
R

651

S S S
FREF RN

Lok
o

e SRS R

W47
448

[=lelelelelolalololelalelelaloleleleletele

%%RHNAO RMO5/372 FCINL TST 2
MACRO v03.01
FORMAT CHECK ZEROS W/ WCE ERROR

004737
000405

052622

014130

004737
000405
000240

040740

012737

000053

004737
000404
000240

037360

000137

014130

465 013666

004737

037722

467 013672

004737
000404
000240
104000
000137

037110

004737
000405
000240
104000
004736
000137

040106

032737

040000

104000

466

472
473
674
475 013730

*RETURN HERE

2608
1108

JSR

PC,a(SP)+

JSR

PC,SECERR

JMP

2608

1208

COM

:6G0 BACK FOR MORE ERROR CHECKS

160 TO 2608 IF ERROR

;60 CHECK FOR SECONDARY ERRORS

:6G0 TO 1208 IF NO ERROR

PC,a(SP)+

2608

BUF TWO=2

ERROR

*ERROR # DEFINED BY SECERR SUBROUTINE
160 BACK FOR MORE ERROR CHECKS

160 TO 2608 1F ERROR

:COMPLEMENT LAST DATA WORD

MOV

#WCH'GO,RMCS10

WRITE

JSR

PC,PUT

:60 WRITE REGISTER(S)

NOP

EMT
180%:
:WAIT

JMP

JSR

NOP

EMT

190%:

1808

JMP

JSR

NOP

EMT
JSR

sMAKE

COMMAND

WITH PUT

:60 TO 1808 IF NO ERROR

*RETURN HERE

SUBROUT INE

ERROR

:ERROR # DEFINED BY PUT SUBROUTINE

260%

160 10 2608 IF ERROR

PC,GET

1908

JMP

SURE

BIT

160 TO 190% IF NO ERROR
IF

SUBROUTINE

ERROR

*ERROR # DEFINED BY GET SUBROUTINE

2608

160 T0 2608 IF ERROR

PC,PRIERR

2008

:60 CHECK FOR PRIMARY ERRORS

160 TO 2008 IF NO ERROR
:RETURN HERE

PC,a(SP)+

2608
THE WRITE

:60 READ REGISTER(S) WITH GET
*RETURN HERE

:CHECK FOR PRIMARY ERRORS

:
2008

CHECK

FOR WRITE CHECK COMMAND TO COMPLETE AND READ STATUS
JSR
PC, TIMOUT
:WAIT FOR COMMMAND TO COMPLETE

001344

260 TO 1108 IF NO ERROR

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

JSETUP AND WRITE CHECK HEADER AND DATA COMMAND

014130

:G0 TO 2608 IF ERROR

SRETURN HERE

:ALTER DATA BUFFER

014130

ERROR

;GO VERIFY RESULTS OF DATA TRANSFER

JSR

001410

PC,DTASTS

EMT

102210

:6G0 TO 1008 IF NO ERROR

JSR

NOP

120%:

:6G0 CHECK FOR PRIMARY ERRORS

PC,a(SP)+

JMP

104000

1008

:ERROR # DEFINED BY PRIERR SUBROUTINE
16O BACK FOR MORE ERROR CHECKS

BR
s

PC,PRIERR

SEQ 0086

EMT
JSR

NOP
EMT

005137

464

014130

0146130

013654

JSR

NOP

000137

;VERIFY RESULTS OF WRITE COMMAND

040106

004736
000137

453
656
455
456 013636
657
458
459 013642
460
461 013650

11-APR-B0 13:17:48 PAGE 12-14

ERROR

:G0 TO 2608 1F ERROR

CHECK ERROR WAS DETECTED

#UCE RMCS2I

*ERROR # DEFINED BY PRIERR SUBROUTINE
160 BACK FOR MORE ERROR CHECKS

;1S WRITE CHECK ERROR SET??

CZRMNAO RMO5/3/2 FCTNL TST 2
MACRO v03.01
7
FORMAT CMECK ZEROS W/ WCE ERROR
:;9 013736

001023

478 013740

004737

013746
013750
013752

000240
104000
004736

000137

014130

480 013760
481 013766

013737
052737

001344
040000

013744

o 01375¢

482 013774

000405

013737

7
11-APR-80 13:17:48 PAGE 12=15
BNE

052622

001344

JSR

001140
001140

205%:

001142

2108

JYES!!

PC,DTASTS

;60 VERIFY RESULTS OF DATA TRANSFER

PC,a(SP)+

:RETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

205$

JMP

2608

MOV
BIS

RMCS21,8GDDAT
MICE SGDDAT

NOP
EMT
JSR

MOV

SEQ 0087

RHCSél $BDDAT

:60 TO 2058 IF NO ERROR
:6G0 TO 2608 IF ERROR

;LOAD EXPECTED STATUS

sLOAD RECEIVED STATUS

483 014002
484 0140064

104337
000451

487
488 014006
489 014014
23? 014022

012737
013737
162737

102210
001340
000002

001134
001136
001136

sVERIFY THE ADDRESS OF THE WRITE CHECK ERROR
MOV
#BUF TWO-2,8GDADR;
LOAD EXPECTED ADDRESS
MOV
RMBAI ,$BDADR
JLOAD RECEIVED ADDRESS
SUB
#2,$BDADR
:DECREMENT RECEIVED ADDRESS

492
493 014030
23; 014036

112737
112737

000022
000200

001522
001523

;GET WCE DATA AND VERIFY IT IS OK
MOVB
WRMDB,GETINX
;SETUP FOR READING RMDB
MOVB
#200,GETINX+1

496 014044

004737

037110

014052
014054
014056
497 014062
498 014070
499 014076
500 014102
501 014110
502 014112
503 014114
506 014116
505 014126
506 014126
ggg 014130

000240
104000
000137
013737
013737
005137
023737
001402
104340
000405
023737
001401
104341

232 014006

014050

000404

2108 :

014130

001356
102210
001140

EMT
BR

JSR

PC,GET

NOP
EMT
JMP
MOV
MOV
COM
CMP
BEQ
EMT
BR
CMP
BEQ
EMT

JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
2608
160 T0 2608 IF ERROR
RMDBI,$BDDAT
:LOAD RECEIVED DATA WORD
BUF TWO=-2,$GDDAT ;LOAD EXPECTED DATA WORD
$GDDAT
$GDADR,$BDADR
;1S ADDRESS 0K??
2208
TYES!!
340
2608
$GDDAT,$BDDAT
;1S DATA WORD 0Kk??
2608
TYES!!
341

001142
001140

001134

001136

001140

001142

2308:

220%:
2608 :

509

337
2608

230s

-tesr 10

;G0 READ REGISTER(S) WITH GET SUBROUTINE

:6G0 TO 2308 IF NO ERROR

FORMAT ONES

.lt.'.'l"l""'l""""""".t'.'ll'.".'t""ttt.t.l'!'tl'.

014130
014130
014132
014136
014140
014144

000004
000240
012706
013700
013701

001100
001276
001464

000010

001226

511
5§12 014156
513 014164
514 016172

012737
012737
012737

000000
000000
010000

001444
001416
001442

- 014150

012737

t4110:

SCOPE
NOP
MOV
MOV
MOV

MOV

#STACK,SP
$BASE, RO
ISIOUE R1

#10,$TESTN

;SCOPE CALL
;START OF TEST
lNlllALlZE STACK POINTER
‘RO
= UNIBUS ADDRESS
(Rl) = DEVICE BEING TESTED

::SET TEST NUMBER IN APT MAIL BOX

;SETUP PARAMETERS FOR GENERATING DATA BUFFER
MOV
#0,RMDCO
:CYLINDER
= 0
MOV
#0,RMDAO
sTRACK = 0, SECTOR = 0
MOV
WEMT16,RMOF0
16 BIT FORMAT

MNAO RMOS/3/2 FCTINL
FORMAT ONES

515 014500

516 016206
g}; 0142164

01%737

TST 2

177376

101206
000062

014222

004737

034276

014230
014234
014236
520 014242
§21 014262
522 014250
523 014256
ggg 014262

104401
104000
000137

063120

012737
012737
004737

064556
000001
036224

004737
154130

033352

014226

526
527 014262
014266

000405

11-APR-80 13:17:48 PAGE 12-16
SEQ 0088

012737
012737

5§19

MACRO v03.01

001412

MOV

001414
001410

MOV
MOV

#-258. RMUCO

#BUFONE ,RMBAO
#WH,RMCS10

;VERIFY THAT SECTOR IS NOT BAD

001174
001176

108:

208:

:DATA BUFFER ADDRESS
:WRITE HEADER AND DATA

JSR

PC,BADSCT

;CALL BAD SECTOR MODULE

TYPE
EMT
JMP

,SCTMSG

1808

:TYPE BAD SECTOR MESSAGE
:ERROR # DEFINED BY BADSCT SUBROUTINE
:60 TO 1808 IF ERROR

MOV
MOV
JSR

#ONES,$TMPO
#1,8THPI
PC . GENBUF

014750

;2 + 256 WORDS (2'S COMP)

10§

:6G0 TO 108 IF NO ERROR

;USE ALL ONES DATA PATTERN

;60 GENERATE DATA BUFFER

sPREPARE DEVICE FOR DATA TRANSFER
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TEST
LWORD
154130
STASK DESCRIPTOR AS FOLLOWS:
SSELECT DEVICE & VERIFY DEVICE AVAILABLE
:CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE

014270
014272
014276
014276

000404
000240
104000
000137

014750

530
531 014302
§32 014310
533 014314
534 014320
535 014326

012737
012702
112722
112722
112722

000005
001551
000006
000034
000032

gg; 01433¢

112722

ggg 014302

536 014330

112722

000000

539 014340

004737

037380

014346
014350
014352
g:? 014356

000240
104000
000137

014750

004737
004737

037024
037722

547
548 014366

004737

037110

014374

000240

014344

542
543 014356
544 016362
;22 014366

014372

000404

308 :
001410

BR
NOP
EMT
JMP

308

1808

VOLUME NOT

VALID

JVERIFY PACK ACKNOWLEDGE
:RECALIBRATE IF ''SKI" OR 'PIP'* 1S SET
*VERIFY RECALIBRATION
160 TO 308 IF NO ERROR
:RETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
160 TO 180 IF ERROR

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

000200

MOVB

#RMCST,(R2)+

JSR

PC,PUT

:60 WRITE REGISTER(S) WITH PUT SUBROUTINE

1808

JRETURN HERE 1F ERROR
:ERROR # DEFINED BY PUT SUBROUTINE
160 TO 180% IF ERROR

MOVB

BR
408:

NOP
EMT
JMP

#200,(R2)+

408

:G0 TO 408 IF NO ERROR

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

;G0 READ SEEK STATUS
JSR
PC,GET

NOP

60%

;60 READ REGISTER(S) WITH GET SUBROUTINE

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

CZRMNAO RMOS/3/2 FCTINL TST 2

110

FORMAT ONES

014376
014400
ggg 014404

104000
000137

014750

§51
552 014404

004737

045224

014412
014414
01464416

000240
104000
004736

014410

014420

000405
000137

014750

556 014424
557 014432
558 014436
559 014442

012737
012702
112722
112722

000063
001554
000002
00004

gg; 014452

112722

000200

563 014456
014462
014464
014466
014470

004737
000404
000240
104000
000137

037360

566
ggg 014474

004737

037722

569 014500
014506
014506
014510
014512

004737
000404
000240
104000
000137

037110

572
573 014516

004737

040106

ggz 014424
555

560 014446

;2; 014474

g;? 014516
014522

014526
014526
014530
014532
574 014536
575 014536

014542

014544
014546
014550

112722

000405

014750

004737

052622

576 014556
577 014556

004737

014564
014566

000240
104000

000405

040740

11-APR-B0 13:17:48 PAGE 12-17

EMT
JMP

1808

JERROR # DEFINED BY GET SUBROUTINE
160 TO 1808 IF ERROR

;VERIFY THE RESULTS OF THE SEEK COMMAND
JSR
PC,SEKSTS
:60 VERIFY RESULTS OF SEEK OPERATION

NOP
EMT
JSR
708 :

001410

JMP

70$

PC,a(SP)+

1808

:6G0 TO 708 IF NO ERROR

;RETURN HERE IF ERROR
JERROR # DEFINED BY SEKSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

:6G0 TO 1808 IF ERROR

sSETUP AND EXECUTE WRITE HEADER AND DATA COMMAND

MOV
MOV
MOVB
MOVB

#WH'GO,RMCS10
#PUTINX+3,R2
#RMWC, (R2)+
WRMBA.(R2)+

MOVBE

#200,(R2)+

MOVB

808 :

JSR
BR
NOP
EMT
JMP

;WRITE HEADER AND DATA
JEXTEND REGISTER INDEX TABLE
:

WRMCST,(R2)+

PC,PUT
80%
1808

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE
;G0 TO 80% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
160 T0 180$ IF ERROR

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

908 :

JSR
BR
NOP
EMT
JMP

PC,GET
90%
180%

;GO READ REGISTER(S) WITH GET SUBROUTINE
160 TO 908 IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
260 T0 180$ IF ERROR

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

1008:

1108:

1008

:60 TO 1008 IF NO ERROR

NOP
EMT
JSR
JMP

PC,a(SP)+
180%

;RETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
160 TO 1808 IF ERROR

JSR

PC,DTASTS

;G0 VERIFY RESULTS OF DATA TRANSFER

NOP
EMT
JSR

PC,a(SP)+

JRETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE
:60 BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

:GO CHECK FOR SECONDARY ERRORS

000240
104000
004736

014552 000137 014750
014562

608 :

000000

000240
104000
004736
000137

000405

MACRO v03.01

JMP

NOP
EMT

1108

180%

1208

:60 TO 1108 IF NO ERROR

160 TO 180% IF ERROR

160 TO 1208 IF NO ERROR

JRETURN HERE IF ERROR
*ERROR # DEFINED BY SECERR SUBROUTINE

SEQ 0089

014750

000073
102212

OCOO0O0CO

CIR MNAQ RMO5/3/72 FCTNL TST 2
€l
mn 0
FORMAT ONES

037360

014750

588 014630

004737

037722

590 014634
014640

004737
000404

037110

000137

014750

004737
000405
000240
104000
004736
000137

040106

014746
603 014750
604

1208:

11-APR-80 13:17:48 PAGE 12-18
JSR
JMP

014750

052622

004737
000405
000240
104000
004736
000137

040740

004737

036462

PC,a(SP)+

180s

JSR
BR

130%:

NOP
EMT
JMP

PC,PUT

;60 _TO 1308 IF NO ERROR

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

180%

sWAIT FORSSEAD TO COMPLETE AND GET STATUS
PC,TIM ouT
sWAIT FOR READ TO COMPLETE
JSR
BR

:
1408

EMT
JMP

PC,GET

:
1508

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO _TO 1408 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 1808 IF ERROR

1408

180%

;VERIFY THE RESULTS OF
JSR
BR
NOP
EMT
JSR
JMP

READ OPERATION
R

JSR
BR

160%:

EMT
JSR
JMP
JSR
BR

NOP

014750

;G0 BACK FOR MORE ERROR CHECKS
;G0 TO 1808 IF ERROR

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

1308

EMT
JSR

170%:

JMP

sVERIFY DATA

180$%:

JSR
.WORD
.WORD
BR
NOP
EMT

;GO CHECK FOR PRIMARY ERRORS

;G0 _TO 1508 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR ¥ DEFINED BY PRIERR SUBROUTINE
:GO0 BACK FOR MORE ERROR CHECKS
;60 TO 180% IF ERROR
;G0 VERIFY RESULTS OF DATA TRANSFER
;60 TO 1608 IF NO ERROR
sRETURN HERE IF ERROR

NGP

014750

SEQ 0090

;READ HEQBER AND DATA FOR SECTOR JUST WRITTEN
#RH!GO,RMCS10
;READ HEADER & DATA
COMMAND
MoV
#BUF TWO, RMBAO
: CHANGE BUS ADDRESS

NOP

004737
000405
000240
104000
004736
000137

104000

MACRO v03.01

PC,a(SP)+

1808

PC,SECERR

1708

PC,a(SP)+

1808

PC,CMPBUF

BUFONE
BUF TWO
180%

sERROR # DEFINED BY DTASTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
;GO TO 1808 IF ERROR
;60 CHECK FOR SECONDARY ERRORS
;60 TO 1708 IF NO ERROR
sRETURN HERE IF ERROR
+ERROR # DEFINED BY SECERR SUBROUTINE
:60 BACK FOR MORE ERROR CHECKS
;60 TO 180% IF ERROR

:60 COMPARE WRITE, READ DATA BUFFERS
sSTARTING ADDRESS OF WRITE BUFFER
sSTARTING ADDRESS OF READ BUFFER

;60 _TO 1808 IF NO ERROR

+RETURN HERE

ERROR

;ERROR # DEFINED BY CMPBUF SUBROUTINE

H?HMAO RMO5/3/72 FCTNL TST 2
i
FORMAT CHECK ONES

605

|
|

MACRO v03.01

SEQ 0091

.l""""."."""""""""""..'."""..""..'Q."."'

'TEST 1
014750

014750

014752
014754

000240
012706

013700
013701
012737

607
608 014776
609 015004
610 015012

012737
012737
012737

000000
000000
010000

001444
001416
001442

612 015026
g}z 015034

012737
012737

101206
000062

001414
001410

611 015020

012737

177376

001226

001412

004737

034276

015050
015054
015056
616 015062

104401
104000
000137

063120

617 015062
618 015070
619 015076

012737
012737
004737

064556
000001
036224

001174
001176

622
623 015102
015106

004737
154130

033352

25? 015102

000405

MOV
MOV
MOV

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

: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
STRACK = 0, SECTOR = 0
MOV
#EMT16,RMOFO
:16 BIT FORMAT

MOV

MOV
MOV

#-258..RMWCO

#BUFONE ,RMBAO
#WH,RMCS10

JSR

PC,BADSCT

TYPE
EMT
JMP

,SCTMSG

260%

MOV
MOV
JSR

#ONES , $TMPO
#1,8THP1
PC . GENBUF

015540

2223232223222222232222222222

:SCOPE CALL

:VERIFY THAT SECTOR IS NOT BAD

015042

015046

2222222222223

SCOPE

NOP
MOV

014760
014764
- 014770

FORMAT CHECK ONES

22332 2222222222222

t6111:

000004

001100
001276
001464
000011

615

11-APR=80 13:17:48 PAGE 12-19

108:

208 :

10§

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

;CALL BAD SECTOR MODULE

:G0 TO 108 IF NO ERROR

:TYPE BAD SECTOR MESSAGE
:ERROR # DEFINED BY BADSCT SUBROUT INE
:60 TO 2608 IF ERROR

;USE ALL ONES DATA PATTERN
;60 GENERATE DATA BUFFER

:PREPARE DEVICE FOR DA TA TRANSFER
JSR
PC,TSTP
:PREPARE DEVICE FOR TEST
.WORD
154130
STASK DESCRIPTOR AS FOLLOWS:

*SELECT DEVICE & VERIFY DEVICE AVAILABLE
:CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE

VOLUME NOT VALID

SVERIFY PACK ACKNOWLEDGE

*RECALIBRATE IF ''SKI" OR 'PIP'' IS SET
015110
015112
015114
015116
ggg 015122

000404
000240
104000
000137

015540

626
627 015122
628 015130

012737
012702

000005
001551

630 015140
631 015144

112722
112722

000034
000032

629 015134

632 015150
ggg 015154
|

635 015160

112722
112722
112722

004737

;

000006

000000
000200
037360

308:

001410

BR
NOP
EMT
JMP

308

2608

:VERIFY RECALIBRATION

160 TO 308 IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEFINED BY TSTPRP SUBROUTINE
160 T0 2608 IF ERROR

;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER
MOV
#SEEK'GO,RMCS10 ; CHANGE COMMAND TO SEEK
MOV
#PUTINX,R2
‘WRITE REGISTER INDEX TABLE

MOVB

#RMDA, (R2)+

MOVB
MOVB

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

MOVB
MOVB

JSR

#RMDC.(R2)+
WRMOF . (R2)+

PC,PUT

:60 WRITE REGISTER(S) WITH PUT SUBROUTINE

FORMAT CHECK ONES

015164
015166
015170
015172
636 015176
637
638
639 015176
640 015202
641 015206
642
643
646 015206
015212
015214
015216
015220
645 015224

000404
000240
104000
000137

015540

004737
004737

037024
037722

004737
000404
000240
104000
000137

037110

004737
000405
000240

045226

015540

012737
012702
112722
112722
112722
112722

000063
0015564
000002
000004
000000
000200

659 015276
015302
015304
015306

004737
000404
000240
104000

037360

EMT
JMP

260%

015540

004737

037722

665 015320
015324
015326

004737
000404
000240

037110

;60 READ SEEK STATUS
JS

NOP
EMT

60$:

JMP

040106

;60 _TO 408 IF NO _ERROR

sRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

;G0 TO 2608 IF ERROR

PC,GET

60$

260%

;60 READ REGISTER(S) WITH GET SUBROUTINE

:G0 TO 608 IF NO ERROR

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

160 TO 2608 IF ERROR

;VERIFY THE RESULTS OF THE SEEK COMMAND
JSR
PC,SEKSTS
;GO VERIFY RESULTS OF SEEK OPERATION
BR
70%
;60 TO 708 IF NO ERROR
EMT
JSR

708:

001410

JMP

sRETURN HERE

PC,a(SP)+

260%

ERROR

;ERROR # DEFINED BY SEKSTS SUBROUTINE

;G0 BACK FOR MORE ERROR CHECKS

:G0 TO 2608 IF ERROR

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

#WH!GO,RMCS10
#PUTINX+3,R2
WRMWC, (R2)+
#RMBA.(R2)+

MOVB

#200,(R2)+

MOVB
JSR

EMT

80$%:

JMP

:;WRITE HEADER AND DATA

;EXTEND REGISTER INDEX TABLE

WRMCST,(R2)+
PC,PUT

80$

2608

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

:60 T0O 808 IF NO ERROR
:RETURN HERE

ERROR

:ERROR # DEFINED BY PUT SUBROUTINE

160 TO 2608 IF ERROR

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

NOP

015540

SEQ 0092

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

NOP

000137

004737
000405
000240

40%

NOP

660 015314
661
662
ggz 015314

104000
000137

40$:

015540

104000
004736
000137

015330
015332
666 015336
667
668
669 015336
015342
015344

NOP

646
647
648 015226
015230
015232
015234
015236
015240
649 015244
650
651
652 015244
653 015252
654 015256
655 015262
656 015266
gg; 015272

015310

MACRO v03.01 11-APR=-80 13:17:48 PAGE 15-20

90%:

EMT
JMP

PC,GET

90%

2608

;VERIFY RESULTS OF WRITE COMMAND
JSR

NOP

PC,PRIERR

1008

;60 READ REGISTER(S) WITH GET SUBROUTINE

;60 TO 908 IF NO ERROR
*RETURN HERE

ERROR

:ERROR # DEFINED BY GET SUBROUTINE
160 T0 2608 IF ERROR

:60 CHECK FOR PRIMARY ERRORS

:6G0 TO 1008 IF NO ERROR
;RETURN HERE

ERROR

5/3/2 FCINL TST 2

CIRMNAO RMO5/3

r—

| CIRMNAO RMO5/3/72 FCTNL TST 2

FORMAT CHECK ONES

015346
015350
015%52
670 015356
671 015356
015362
015364
015366
015370
015372
67§ 015376
673 015376
015402
015404
015406
015410
015412
674 015416

MACRO v03.01 11-APR-80 13:17:48 PAGE¢ 13*21

015540

100$:

052622

015540

1108:

0460740

015540

1208:

675

6 76

677 015416
678
679 015424

012737

000053

004737
000404
000240

037360

000137

015540

104000

680 015442
681
682
683 015442
684
685 015446

037722

001410

130%:

040106

S
o3 298

S OW
ownwN

W
N

N%g 8%=8

oo
00

JSR
BR
NOP
EMT
JSR
JMP

PC,DTASTS

JSR
BR
NOP
EMT
JSR
JMP

PC,SECERR

JSR
BR
NOP
EMT
JMP

1408%:

JSR
BR
NOP
EMT
JMP

052622

JSR
BR

1508:

EMT
JSR
JMP

JSR
BR

NOP

015540
040740

;60 TO 2608 IF ERROR

;GO VERIFY RESULTS OF DAYA TRANSFER

1108

;60 _TO 1108 IF NO ERRO

PC,a(SP)+

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

2608
1208

PC,a(SP)+

2608

;RETURN MERE IF EfiROR

;60 TO 2608 IF ERROR

;60 CHECK FOR SECONDARY ERRORS
;60 TO 1208 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHMECKS
;60 TO 2608 IF ERROR

PC,PUT

1308

260%

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE
;60 TO 1308 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY PUT SUBROUTINE

;60 TO 2608 IF ERROR

PC,GET

1408

260%

;GO READ REGISTER(S) WITH GET SUBROUTINE

;60 TO 1408 IF NO ERROR
;RETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE
;G0 TO 2608 IF ERROR

;VERIFY THE RESULTS OF WRITE CHECK OPERATION
NOP

015540

2608

;ERROR ¥ DEFINED BY PRIERR SUBROUTINE
;60 BACK FOR MORE EPROR CMECKS

sWAIT FOR WRITE CHECK TO COMPLETE AND GET STATUS
PC, TIMOUT
JSR
sWAIT FOR READ TO COMPLETE

2988

004737
000405

PC,a(SP)+

sWRITE CHSCK HEADER AND DATA FOR SECTOR JUST WRITTEN
#UCH!GO,RMCS10
sWRITE CHECK COMMAND

037110

015540

EMT
JSR
JMP

SEQ 0093

160%:

EMT
JSR
JMP

JSR
BR
NOP

PC,PRIE RR

;60 CHECK FOR PRIMARY ERRORS

PC,a(SP)+

:6G0 BACK FOR MORE ERROR CHECKS

1508

2608

;60 TO 1508 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE

;60 TO 260% IF ERROR

2608

;GO VERIFY RESULTS OF DATA TRANSFER
;60 TO 1608 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY DTASTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;60 TO 260% IF ERROR

PC,SECERR

;60 CHECK FOR SECONDARY ERRORS

PC,DTASTS

1608

PC,a(SP)+

1708

60 TO 1708 IF NO ERROR
:RETURN HERE

ERROR

CIRMNAO RMOS/3/2 FCTNL TST 2
FORMAT CMECK ONES

015534
015536
33‘5' 015540

WACRO V03.01 11-APR-B0 13:17:48 PAGE 13-22

104000
004736

1708 :

gg? 015540

PC,a(SP)+

;:ERROR # DEFINED BY SECERR SUBROUTINE
160 BACK FOR MORE ERROR CMECKS

2608 :

696

"""""Q""""""'0"'01"..""""""'t'."t'tt""'.'

-TEST 12

015540

015540
015542
015544
015550
015554

i 015560

000004
000240
012706 001100
013700 001276
013701 001464

t8112:

"000012

001226

700
701 015566
702 015576
703 015602

012737
012737
012737

000000
000000
010000

001444
001416
001442

705 015616
;8? 015626

012737
012737

101206
000062

001414
001410

015632

004737

034276

015640
015644
015646
709 015652

104401
104000
000137

063120

710 015652
711 015660
712 015666

012737
012737
004737

064556
000001
036224

715
716 015672
015676

004737

033352

704 015610

015636

;}z 015672

FORMAT CHECK ONES W/ WCE ERRORS

'0"".""'""l"'t""'"t'."'"t.'.'t".""""""'"t"

012737

708

EMT
JSR

012737

000405

154130

177376

001412

SCOPE
NOP
MOV
MOV
MOV

MOV

#STACK,SP
$BASE, RO
TSTQUE ,R1

#12,8TESTN

MOV

MOV
MOV

#-258..RMWCO

#BUFONE ,RMBAO
#WH,RACS10

108:

208:

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

:DATA BUFFER ADDRESS
:WRITE MEADER AND DATA

JSR

PC,BADSCT

;CALL BAD SECTOR MODULE

TYPE
EMT
JMP

,SCTMSG

2608

:TYPE BAD SECTOR MESSAGE
:ERROR # DEFINED BY BADSCT SUBROUTINE
160 T0 260$ IF ERROR

MOV
MOV
+SR

#ONES,$TMPO
#1,8THP1
PC.,GENBUF

001174
001176

:;SET TEST NUMBER IN APT MAIL BOX

sSETUP PARAMETERS FOR GENERATING DATA BUFFER
MOV
#0,RMDCO
;CYLINDER = 0
MOV
#0.RMDAO
:TRACK = 0, SECTOR = 0
MOV
#EMT16,RMOF0
16 BIT FORMAT

;VERIFY THAT SECTOR IS NOT BAD

016476

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

10§

:6G0 TO 108 IF NO ERROR

;USE ALL ONES DATA PATTERN

;G0 GENERATE DATA BUFFER

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

:SELECT DEVICE & VERIFY DEVICE AVAILABLE
:CLEAR CONTROLLER & SELECT DEVICE

:VERIFY CONTROLLER CLEAR OPERATION
:PACK_ACKNOWLEDGE 1F VOLUME NOT VALID

015700
015702
015704
015706
;:: 015712
719
720 015712
721 015720
722 015724

000404
000240
104000
000137

016476

012737
012702
112722

000005
001551
000006

308:
001410

BR
NOP
EMT
JMP

30%
260%

:VERIFY PACK ACKNOWLEDGE
:RECALIBRATE IF “'SKI" OR 'PIP' IS SET
: VERIFY RECAL IBRATION

0 308 IF NO ERROR
RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
:60 TO 2608 IF ERROR

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

SEQ 0094

MNAO RMOS/3/2 FCT

NL TST 2

MACRO v03.01 11-APR-80 13:17:48 PAGE3 1523

FORMAT CMECK ONES W/ WCE ERRORS

723 015730
726 01573¢

112722
112722

000034
000032

MOVB
MOVB

SEQ 0095

canoc.(ls)o
WRMOF . (R2)+

725 015740
;gg 015744

112722
112722

000200

728 015750

004737

037360

015756
015760
015762

000240
104000
000137

016476

73
732 015766
733 015772
;gg 015776

004737
004737

037024
037722

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

004737

037110

;GO READ SEEK STATUS
JSR
PC,GET

01575¢

;gg 015766

736
737 015776

016002

0160064
016006
016010
;gg 016014

000404

000000

000240
104000
000137

016476

004737

045224

000137

016476

7646 016042
767 016046
748 016052

012737
012702
112722
112722

000063
001554
000002
000004

750 016062

112722

000200

004737

037360

7640

7641 016014

016020
016022
016026
016026

016030

;g 016034
7644
745 016034

749 016056
752 016066

016072
0160764
016076
016100

;gz 016104

000405
000240
104000
004736

112722

000404
000240
104000
000137

016476

004737

037722

758 016110

004737

037110

016116

000240

016122

000137

016120

000404

104000

JSR

408 :

NOP
EMT
JMP

608 :

NOP
EMT
JMP

JSR

BR
NOP
EMT
JSR

708 :
001410

JMP

PC,PUT

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

2608

JRETURN HERE 1F ERROR
JERROR # DEFINED BY PUT SUBROUTINE
160 T0 260$ IF ERROR

40%

60$

2608

:6G0 TO 40% IF NO ERROR

;G0 READ REGISTER(S) WITH GET SUBROUTINE

:60 TO 60% IF NO ERROR

JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
160 TO 2608 IF ERROR

PC,SEKSTS

70§

PC,a9(SP)+

2608

;60 VERIFY RESULTS OF

SEEK OPERATION

160 TO 708 IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY SEKSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

160 TO 2608 IF ERROR

JSETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
MOV
#WH'GO,RMCS10
:;WRITE HEADER AND DATA
MOV
MOVEB
MOVB

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

MOVB

#200,(R2)+

MOVB

808 :

JSR
BR
NOP
EMT
JMP

JEXTEND REGISTER INDEX TABLE

#RMCST,(R2)+
PC,PUT

80$

2608

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

160 TO 808 IF NO ERROR
JRETURN HERE 1F ERROR
JERROR # DEFINED BY PUT SUBROUTINE
160 TO 2608 IF ERROR

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

NOP
016476

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

JVERIFY THE RESULTS OF THE SEEK COMMAND

000000

755
756 016104

016114

MOVB
MOVR

EMT

JMP

PC,GET

90$

2608

;G0 READ REGISTER(S) WITH GET SUBROUT INE

160 TO 908 IF NO ERROR
JRETURN HERE IF ERROR

:ERROR # DEFINED BY GET

160 10 2608 IF ERROR

SUBROUTINE

(%RMAO RMO5/3/72 FCINL 7ST 2

MACRO v03.01 11-APR-80 13:17:48 PAGE 13-24

FORMAT CHECK ONES W/ WCE ERRORS

;28 016126

908 :

761
762 016126

004737

016134
016136
016140

000240
104000
004736

016132

016142

000405

763 016146
764 016146

000137

016476

004737

052622

016154
016156
016160

000240
104000
004736

016152

016162

000405

765 016166
766 016166

000137

016476

004737

040740

016174
016176
016200

000240
104000
004736

016172

000405

016202

000137

016476

;;? 016206

005137

102210

;;2 016212

012737

000053

775 016220

004737

037360

016226
016230
016232

000240
104000
000137

016476

;;3 016236

004737

037722

781 016242

004737

037110

016250
016252
01625¢

000240
104000
000137

016476

784
785 016260

004737

040106

016266
016270
016272

000240
104000
004736

;g; 016206
769

772

016224

;;g 016236
778

016246

;gg 016260
016264
016274

86 016300

000404

000405

000137

;VERIFY RESULTS OF WRITE COMMAND
JSR
PC,PRIERR
;60 CHECK FOR PRIMARY CRRORS

040106

016476

1008:

PC,a(SP)+

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

NGP
EMT
JSR

PC,a(SP)+

:RETURN MERE IF ERROR
:ERROK # DEFINED BY DTASTS SUBROUTINE
160 BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

;60 CHECK FOR SECONDARY ERRORS

PC,a(SP)+

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

JMP

NOP
EMT
JSR

1208 :

JMP

2608
1108

2608
1208

2608

JALTER DATA BUFFER

COM

001410

:6G0 TO 1008 IF NO ERROR

:RETURN MERE IF ERROR
:ERROR # DEFINED BY PRIERR SUBROUTINE
:G0 BACK FOR MORE ERROR CMECKS

1108
:

1008

NOP
EMT
JSR

BUF TWO=2

160 TO 2608 IF ERROR

:6G0 TO 1108 IF NO ERROR

160 TO 2608 IF ERROR

:6G0 TO 1208 IF NO ERROR

:6G0 TO 260% IF ERROR

:COMPLEMENT DATA WORD

:SETUP AND WRITE CHECK HEADER AND DATA COMMAND

MOV

#UCH'GO,RMCSI0

;WRITE CHECK COMMAND

JSR

PC,PUT

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

2608

*RETURN HERE IF ERROR
:ERROR # DEF INED BY PUT SUBROUTINE
160 T0 2608 IF ERROR

1808 :

NOP
EMT
JMP

1808

:6G0 TO 1808 IF NO ERROR

;WAIT FOR WRITE CHECK COMMAND TO COMPLETE AND READ STATUS

JSR

PC,TIMOUT

:WAIT FOR COMMMAND TO COMPLETE

1SR

PC,GET

;60 READ REGISTER(S) WITH GET SUBROUTINE

2608

*RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
160 10 2608 IF ERROR

1908 :

NOP
EMT
JMP

1908

:CHECK FOR PRIMARY ERRORS
JSR
PC,PRIERR

NOP
EMT
JSR

2008:

JMP

2008

PC,a(SP)+

2608

:6G0 TO 1908 IF NO ERROR

:60 CHECK FOR PRIMARY ERRORS

160 TO 2008 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUT
INE
160 BACK FOR MORE ERROR CMECKS

160 10 2608 IF ERROR

SEQ 0096

MACRO v03.01 11-APR-B0 13:17:48 PAGE6 13'25

O~
NwW
NN
~N
WNNN=YON
OHfr OoOw
NNNNNOOOWN

uwuwug

28g
—-000

—

PONWORE
WO
o

016476
001344
040000
001344

NNN

NN~

001340
000002

037110

sooo0or

OO —=00
OCOO0O—

—_— e N —
——
TM
WH =~

000022
000200

oo
NN
W
NN

—-=O00
(o R

102210

NN NN
W B N=SNN—=ONSN
» OWWWWWO
S
OW
o NNNNNNOO
N

—

805 016376
806 016404
807
808 016412
016416
0164%0
016422
016426
809 016430
810 016436
811 016444
812 016450
813 016456
814 016460
815 016462
816 016464
817 016464
818 016472
819 016474
820 016476
821
822

888
o

804

052622

001344

001140
001140
001142

sMAKE

205%:

210%:

794 016336
795 016344
796 016352
797 016354
798
795
800 01635

—

016314
016316
016320
016322
016324
793 016330

040000

001134
001136
001136

BIT
BNE

THE W RITE

CHECK ERROR WAS DETECTED
#uCE RMCS21
;1S WRITE CHECK ERROR SET??

210%

JYES!!

JSR
BR
NOP
EMT
JSR

PC,DTASTS

:60 VERIFY RESULTS OF

MOv

RMCS21,8GDDAT

MOV

§g§séx,seoont

JMP

BIS

EMT

205%

PC,a(SP)+

2608

#WCE ,SGDDAT

DATA TRANSFER

160 TO 2058 IF NO ERROR

*RETURN MERE IF ERROR
*ERROR # DEFINED BY DTASTS SUBROUTINE
160 BACK FOR MORE ERROR CHECKS

160 TO 2608 IF ERROR

:LOAD EXPECTED STATUS

:LOAD RECEIVED STATUS

MOV
MOV

SuB

THE WRITE CHMECK ERROR
#BUF TWO=-2,$GDADR
:LOAD EXPECTED ADDRESS
RMBA1,$BDADR
;LOAD RECEIVED ADDRESS

#2,$BDADR

;DECREMENT RECFIVED ADDRESS

;GET WCE DATA AN D VERIFY IT IS Ok
MOvB
MovB

001142
001140

230%:

001136

000405
001140

SURE

SEQ 0097

JVERIFY THE ADDRESS OF

o
&~ —

788
789 016300
790 016306
791
792 016310

O
OoOw

94 R MNAQ RMOS/3/ 2 FC N
1 T2
n2
FORMAT CHECK K
W/ W(E ERRORS
ON E

001142

2208:

260%:
e

JSR
B
NOP
EMT
JMP

Moy

#RMDB,GE TINX

;SETUP FOR READING RMDB

PC,GET

:60 READ REGISTER(S)

2608

*RETURN MERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
160 TO 2608 IF ERROR

#200,GETINX+1

2308

RMDBI,$BDDAT

WITH GET

160 TO 2308 IF NO ERROR

sLOAD RECEIVED DATA WORD

MOV
COM
cMP

gg;;:Q-Z.QGDDAI :LOAD EXPECTED DATA WORD
$GDADR,$BDADR

;1S ADDRESS 0k??

CMP

$GDDAT,$BODAT
%2?$

;1S DATA WORD OK??
:YES!!

BEQ
EMT
BR
BEQ
EMT

220%
340
260%

SUBROUTINE

YES!!

Al iR
2022
RR 2]

SRTEST 13

FORMAT MULTIPLE SECTORS

':."ll'.l"".'""""".""'.""'."".".".'.'ll""'."Q'

823
824

016476
016476
016500
016502
016506
016512
016516

1ST13:

001100
001276
001464
000013

001226

010000
000000

001442
001444

SCOPE
NOP

MOV
MOV

#STACK,SP
$BASE ,RO

TSTQUE ,R1
#13,8TESTN

;sSCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER

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

;SETUP PARAMETERS FOR GENERATING DATA BUFFER
MOV
MOV

#EMT16,RMOFO
#0,RMDCO

:16 BIT FORMAT
sCYLINDER = 0

|9 R MNAD RMO5/3/
n3
FORMAT

ST 2

MACRO v03.01 11-APR-80 13:17:48 PAGE 13-26

000000
176774

001416
001412
001414
001410

E SE CTORS

101206

JSR
BR

w
~

MOV
MOV
MOV
MOV

W)
b 0 OO
orocoorNn

063120

TYPE

EMT

017272
064620
000001
036224

004737
156130

001174
001176

108:

20%:

:TRACK = 0,

#BUFONE ,RMBAO
#WH,RMCS10

:DATA BUFFER ADDRESS
:WRITE HEADER AND DATA

#-258.+2 RMWCO

SECTOR = 0

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

PC,BADSCT

;CALL BAD SECTOR MODULE

,SCTMSG

:TYPE BAD SECTOR MESSAGE
:ERROR # DEFINED BY BADSCT SUBROUTINE
160 TO 1708 IF ERROR

10§

JMP

1708

MOV
MOv

WIEROS,$TMPO
#1,8TMP
PC . GENBUF

JSR

SEQ 0098

#0,RMDAO

sVERIFY THAT SEC TOR 1S NOT BAD

034276

SS3EEE
S

i
i
o
D e
e
-

[=]l=lelelelelelelele]

000062

:60 T0 108 IF NO ERROR

;USE ALL ZEROS DATA PATTERN
:60 GENERATE

DATA BUFFER

sPREPARE DEVICE FOR DATA TRANSFER

033352

JSR
.WORD

PC,TSTPRP

154130

;PREPARE DEVICE FOR TEST

STASK DESCRIPTOR AS FOLLOWS:

*SELECT DEVICE & VERIFY DEVICE AVAILABLE
:CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE

VOLUME NOT

SVERIFY PACK ACKNOWLEDGE

VALID

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

SNNNNNNN

NNNNONOW
NN SN

——
R

000005

001551

308:
001410

MOV

MOV
MOvB
MOvVB

MOvVB
MOVB
MOvB

w
~N

&8S88
3]

40$%:

—

BR
NOP
EMT
JMP

308

*VERIFY RECALIBRATION
:60 TO 308 IF NO ERROR

1808

JERROR # DEFINED BY TSTPRP SUBROUTINE
160 TO 1808 IF ERROR

*RETURN HERE

ERROR

;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER

oo N

O
oo

- s
D

OOCO0OO0O0T

D—d.
TM L * ]

NOO

OO0O0O0O00O

017272

[=lele]

= OOV

880DDGODO
VMA WA VWA

NOWVS W

IR
IR IR

N=OOVO®NO
WV
WN -

000404

JSR
BR
NOP
EMT
JMP

#SEEK!GO,RMCS10 ;CHANGE

#PUTINX,R2
#RMDA, (R2)+
SRMDC
. (R2) +
#RMOF , (R2)+

COMMAND TO SEEK

‘WRITE REGISTER INDEX TABLE

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

40%

1808

;60 WRITE REGISTER(S) WITH PUT

160 T0 408 IF NO ERROR
*RETURN HERE

SUBROUTINE

ERROR

:ERROR # DEFINED BY PUT SUBROUTINE
:GO T0 1808 IF

ERROR

;SETUP FOR READING STATUS AND THEN WAIT FOR SEEXK TO COMPLETE
50%:

JSR
JSR

PC,GETSTS
PC,TIMOUT

;60 READ SEEK STATUS
PC,GET
JSR
608
BR

;SETUP FOR STATUS
;WAIT FOR SEEK TO COMPLETE

;60 READ REGISTER(S) WITH GET SUBROUTINE
;60 TO 60% IF NO ERROR

CIR

MNAOD RMO5/372 FCTINL TST 2

FORMAT MULTIPLE SECTORS

016742
016744
016746
ggg 016752
864
865 016752
016756
016760
016762
016764

016766

000240
104000
000137

004737
000405
000240
104000
004736

017272

868
869 016772
870 017000
871 017006
872 017010
873 017014
g;g 017020

012737
012702
112722
112722
112722
112722

000063
001554
000002
000004
000000
000200

876 017024
017030
017032
017034

004737
000404
000240
104000

037360

017036

000137

017272

gg? 017042

004737

037722

882 017046
017052
01705¢
017056
017060

004737
000404
000240
104000
000137

037110

885
886 017

004737

040106

g;g 017042
879

ggz 017064

017070

017072
017074
017076

017100

000405

000240
104000
004736

017272

887 017104
888 017106

000137

017272

004737

052622

017112
017114

000240
104000

017120

889 017124
890 01712¢

000137

017272

004737

040740

017132

000240

017110

017116

017130

000405

004736

000405

608 :

NOP
EMT
JMP

;RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
:6G0 TO 1808 IF ERROR

1808

;VERIFY THE RESULTS OF THE SEEK COMMAND
JSR
PC,SEKSTS
;G0 VERIFY RESULTS OF SEEK OPERATION
BR
70$
;G0 TO 708 IF NO ERROR
NOP
JRETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY SEKSTS SUBROUTINE
JSR
PC,a(SP)+
;60 BACK FOR MORE ERROR CHECKS

045224

000137

ggg 016772

MACRO v03.01 11-APR-B0 13:17:48 PAG% 13-27

708:

001410

JMP

1808

:6G0 TO 1808 IF ERROR

sSETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
MOV
#WH'GO,RMCS10
;WRITE MEADER AND DATA
MOV
FPUTINX+3,R2
:EXTEND REGISTER INDEX TABLE
MOVEB
WRMWC,(R2)+
MOVB
WRMBA.(R2)+
MOVB
#RMCST,(R2)+
MOVB
#200, (R2)+

808 :

JSR
BR
NOP
EMT
JMP

PC,PUT
80$

1808

;GO0 WRITE REGISTER(S) WITH PUT SUBROUTINE
:60 TO 80% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE

:G0 TO 1808 IF ERROR

;WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS

908 :

JSR

PC,TIMOUT

sWAIT FOR COMMAND TO COMPLETE

JSR
BR
NOP
EMT
JMP

PC,GET
90%

;60 READ REGISTER(S) WITH GET SUBROUTINE
:60 TO 908 IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEF INED BY GET SUBROUTINE
:60 TO 1808 IF ERROR

1808

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

B8R

1008:

;G0 TO 1008 IF NO ERROR

PC,a(SP)+

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

JSR

PC,DTASTS

;G0 VERIFY RESULTS OF DATA TRANSFER

JMP

NOP
EMT

1108:

1008

NOP
EMT
JSR

1808

1108

JSR

PC,a(SP)+

JSR

PC,SECERR

JMP

NOP

1808

1208

:GO TO 1808 IF ERROR

;G0 TO 1108 IF NO ERROR

:RETURN HERE IF ERROR
:ERROR # DEFINED BY DTASTS SUBROUT
INE
:6G0 BACK FOR MORE ERROR CHECKS

;60 TO 1808 IF ERROR

;G0 CHECK FOR SECONDARY ERRORS

:60 TO 1208 IF NO ERROR

JRETURN HERE 1F ERROR

SEQ 0099

017134
017136
017140
891 017144

892
893
894 017144
895
896 017152
017156
017160
017162
017164
897 017170
898
899
900 017170

901
902 017174
017200

017202
017204
017206
903 017212

904
905
906 017212

017216
017220
017222
017224
017226
907 017232
908 017232
017236
017240
017242
017244
017246
909 017252
910 017252
017256
017260
017262
017264
017266
911 017272

104 0
004 7
000 1

8
£

RMNAQ RMO5/3/ 2 FC 1 NL TST 2
3
FORMAT MuL 1 1 PLE SECTO

a MACRO v03.01 11-APR=-B0 13:17:48 PAGEJ 13-28

017272

000053

004737
000404

037360

000137

017272

004737

037722

004737
000404

037110

000137

017272

004737

040106

1208:

001410

;WRITE

EMT
JSR
JMP

JSR

NOP
EMT

:WAIT

JMP

052622

000137

017272

004737

040740

017272

912
913 017272

1808

;60 Uflng REGISTER(S) WITH PUT SUBROUTINE
;60 TO 1308 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;60 TO 180% IF ERROR

PC,GET

EMT

JMP

1408
1808

;60 READ REGISTER(S) WITH GET SUBROUTINE
;60 TO 1408 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;60 TO 180% IF ERROR

CVERIFY THE RESULTS OF ::lTE CHECK OPERATION
JSR
PC.PRIE
;60 CHECK FOR PRIMARY ERRORS

EMT

004737

1308

JSR.

NOP

017272

PC,PUT

CHECK TO COMPLETE AND GET STATUS
PC,TIMOUT
;WAIT FOR WRITE CHECK TO FINISH

NOP

36
000137

;60 TO 1808 IF ERROR

JSR

FOR WRITE

BR
1408
:

1808

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

C:gCK HEADER AND DATA FOR SECTORS JUST WRITTEN
#WCH!GO,RMCSTO
;WRITE CHECK COMMAND

BR
130%:

PC,a(SP)+

150%:

PC,a(SP)+

JSR

PC,DTASTS

NOP
EMT
JSR

PC,a(SP)+

1808

;GO VERIFY RESULTS OF DATA TRANSFER
;60 TO 1608 IF NO ERROR
;RETURN HERE IF ERROR
sERROR # DEFINED BY DTASTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;G0 TO 180% IF ERROR

JSR

PC,SECERR

;G0 CHECK FOR SECONDARY ERRORS

JMP

NOP
EMT
JSR

170%:

;60 _TO 1508 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR ¥ DEFINED BY PRIERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;G0 TO 1808 IF ERROR

JSPR

JMP

1608:

1508

JMP

1808

1608

1708
-

PC,a(SP)+

1808

;60 TO 1708 IF NO ERROR

sRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS

;60 TO 180% IF ERROR

180%:

914
915

'.'.'.....'l..".'"'.."..".."'."l."...'...."l""".'..'

-vesr

017272
017272
017274
017276

YS!IL:
001100

SCOPE
NOP
MOV

FORMAT &/ HEAD SWITCHING

#STACK,SP

sSCOPE CALL
;START OF TEST
SINITIALIZE STACK POINTER

SEQ 0100

CIRMNAO RMO5/3/2 FCTNL 18T 2

FORMAT W/ HEAD SWITCHING

gy
e
R
R

001276
001464
000014

MOV

MOV
5%

TSTQUE R

i s1ésru

;RO = UNIBUS ADDRESS

:(R1) = DEVICE BEING TESTED

::SET TEST NUMBER IN APT MAIL BOX

move
MOV
MOV

#31..RMDAO
#inii6.RMOF0
#-258.+2,RMJCO

SSECTOR = 31.
316 BIT FORMAT
:WORD COUNT FOR 2 SECTORS (2'S COMP)

MOV

#uH,RMCS10

‘WRITE MEADER AND DATA

MOV

#BUFONE ,RMBAO

;VERIFY THAT SECTOR IS NOT BAD

034276

020104

001416

000037

064620
000001
036224

001174
001176

PC,BADSCT

;CALL BAD SECTOR MODULE

TYPE
EMT

,SCTMSG

STYPE BAD SECTOR MESSAGE
*ERROR # DEFINED BY BADSCT

108

JMP

180%

CMPB
BNE

RMDAO,#31.
5%

MOV
MOV
JSR
:PREPARE

033352

:DATA BUFFER ADDRESS

JSR

063120

935 017442
017446

$BASE no

SEQ 0101

;SETUP PARAMETERS FOR GENERATING DATA BUFFER
MOV
#0,RMDCO
;CYLINDER = 0
MOVE
#0 anvool
STRACK = 0

NN NNN
SNNNNNNN
NN
N NN NN
SNNNNNNYN

919 017326
920 017334
921 017342
922 017350
923 017356
924 017364
925
926
017372
017376
01740
017404
017406
927 017412
928 017412
929 017420
930 017422
931 017430
932 017436
933
934

COO0O—=—=O

916
917
918 017320

01 3700
0137 01
012737

[

017302
017306
017312

DEVICE

JSR

.WORD

NIEROS,$TMPO
#1,8THP1
PC . GENBUF

160 TO 108 IF NO ERROR
160 TO 1808 IF ERROR

SUBROUTINE

;1S LAST SECTOR ASSIGNED ?
:BR IF NO

:USE ALL ZEROS DATA PATTERN

;60 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
:PACK ACKNOWLEDGE

VOLUME NOT

SVERIFY PACK ACKNOWLEDGE

VALID

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

NOP

VNN
SN

000005
001551
000006

N8SR ~N

037360

S33

ONNNNNNN

b mmh e

8 et
T D

020104

—

017450
017452
017454
017456
936 017462
937
938
939 017462
940 017470
961 017474
942 017500
943 017504
944 017510
945 017514
946
947 017520
017524
017526
017530
017532
948 017536

o —2

114

MACRO v03.01 11-APR-80 13:17:48 PAGE 15‘29

001410

EMT

JMP

1808

*VERIFY RECALIBRATION
260 TO 308 IF NO ERROR
:RETURN HERE

ERROR

*ERROR # DEFINED BY TSTPRP SUBROUTINE

160 TO 180$ IF ERROR

sSETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER

MOv

MOV
MOvB
MOVB
MOVB
MOvB
MOvB

JSR
BR
NOP

020104

308

EMT

40%:

JMP

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

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

40%

180%

R(
WITH PUT SUBROUT INE
;60 WRITE R EG ISTER(S)
;60 TO 408 IF NO ER ROR

sRETURN HER 3 1F ERROR
sERROR # gg Fl NED BY PUT
;60 TO 180%
1 F ERROR

SUBROUTINE

CZRMNAO RNOS/3/2 FLINL TST 2 ' WACRO V03.01 11-APR-80 13:17:48 PAGE 13-30
FORMAT W/ WEAD SWITCHING

949
950
951 017536
952 017542
ggz 017546

004737
004737

037024
037722

955
956 017546

004737

037110

017554
017556
017560

000240
104000
000137

020104

959
960 017564

004737

045224

017572
017574
017576

000240
104000
004736

017552

3;; 017564

017570

017600

000404

000405

000137

020104

963
964 017604
965 017612
966 017616
967 017622

012737
012702
112722
112722

000063
001554
000002
000004

393 017632

112722

000200

004737

037360

325 017604

968 017626
971 017636

017642
017644
017646
017650

g;g 017654

112722

000404
000240
104000
000137

000000

020104

974
8;2 017654

004737

037722

977 017660
017664
017666
017670
017672

004737
000404
000240
104000
000137

037110

980
981 017676

004737

040106

0177064
017706
017710

000240
104000
004736

3;3 017676

017702

017712

982 017716
983 017716

000405

020104

000137

020104

004737

052622

;SETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE
JSR
PC.GE1S!S
;SETUP FOR STATUS
JSR
PC,TIMOUT
UAIT FOR SEEK TO COMPLETE
508 :
;G0 READ SEEK STATUS
JSR
PC,GET

608 :

NOP
EMT
JMP

60§

180%

:60 READ REGISTER(S) WITH GET SUBROUTINE

:60 TO 608 IF NO ERROR

:RETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUT INE
160 TO 1808 IF ERR

sVERIFY THE RESULTS OF THE SEEX COMMAND
JSR
PC,SEKSTS
;G0 VERIFY RESULTS OF SEEK OPERATION

NOP
EMT
JSR
708 :
001410

JMP

70$

PC,a(SP)+

1808

:GO TO 708 IF NO ERROR

:RETURN HERE IF ERROR
JERROR # DEFINED BY SEKSTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS

160 TO 1808 IF ERROR

JSETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
MOV
#WH'!GO,RMCS10
;WRITE HEADER AND DATA
MOV
IPUTINX¢3 R2
JEXTEND REGISTER INDEX TABLE
MOVB
#RMWC, (R2)+
MOVB
#RMBA.(R2)+

MOVB

#RMCST,(R2)+

JSR

PC,PUT

MOVB

808 :

BR
NOP
EMT
JMP

#200,(R2)+
80%

180%

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 80% IF NO ERROR
;RETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
160 TO 180$ IF ERROR

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

908 :

JSR
BR
NOP
EMT
JMP

PC,GET
90$

1808

;G0 READ REGISTER(S) WITH GET SUBROUTINE
160 TO 908 IF NO ERROR
:RETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
160 T0 1808 IF ERROR

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

1008:

1008

:60 TO 1008 IF NO ERROR

NOP
EMT
JSR

PC,a(SP)+

*RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

JSR

PC,DTASTS

;G0 VERIFY RESULTS OF DATA TRANSFER

JMP

1808

:G0 TO 1808 IF ERROR

SEQ 0102

MNAO ?HOSISIZ FCINL TST 2

RMAT W/ HEAD SWITCHING

000405
6

989 017756

99
991 017764

017770
017772
017774
017776
992 020002
993

994

995 020002
996

0
0
998 020024
999
1000
1001 020024

020104

004737
000405

040740

020104

012737

000053

004737
000404
000240
104000
000137

037360

020104

004737

037722

004737
000404
000240

037110

000137

020104

004737

040106

EMT
JSR

PC,a(SP)+

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

JSR

PC,SECERR

;GO CHECK FOR SECONDARY ERRORS

PC,a(SP)+

:ERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
;60 TO 180 IF ERROR

JMP

EMT
JSR

JMP

052622

020104
040740

JSR

NOP
EMT

JMP

020104

1208

180$

;60 TO 1808 IF ERROR

;60 _TO 1208 IF NO ERROR
RETURN HERE IF ERROR

PC,PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

1808

;RETURN HERE IF ERROR
sERROR # DEFINED BY PUT SUBROUTINE
;G0 TO 180% IF ERROR

1308

;60 TO 1308 IF NO ERROR

;WAIT FOR WRITE CHECK TO COMPLETE AND GET STATUS
_
PC, TIMOUT
JSR
;WAIT FOR WRITE CHECK TO FINISH
JSR

NOP
EMT

JMP

1408

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

180%

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

PC,GET

;RETURN HERE

ERROR

THE RESULTS OF WRITE CHECK OPERATION
JSR
PC,PRIERR
:6G0 CHECK FOR PRIMARY ERRORS

1508

;60 TO 1508 IF NO ERROR

EMT
JSR

PC,a(SP)+

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

JSR

PC,DTASTS

JMP

1808

1608

sRETURN HERE

ERROR

;GO TO 180% IF ERROR

;GO VERIFY RESULTS OF DATA TRANSFER
;60 TO 1608 IF NO ERROR

NOP
EMT
JSR

PC,a(SP)+

1808

;G0 TO 180% IF ERROR

JSR

PC,SECERR

1708

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

PC,a(SP)+

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

JMP

NOP

000137

1808

sRETURN HERE IF ERROR

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

NOP

020104

;60 TO 1108 IF NO ERROR

1108

NOP

000137

SEQ 0103

NOP

000137

104000

MACRO v03.01 11-APR-80 13:17:48 PAGEM 13-31

£MT
JSR

JMP

180

sRETURN HERE

ERROR

;ERROR ¥ DEFINED BY DTASTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

;RETURN HERE

ERROR

:6G0 TO 1808 IF ERROR

' CIRMNAO RMO5/3/2 FCINL TST 2
Rin

FORMAT W/ HEAD SWITCHING

MACRO v03.01 11-APR-80 13:17:48 PAGEN 1%-32

1008 020104

1808:

1010

MAAAAA

1009

;*TEST 15

ARl

SEQ 0104

Rdd]

FORMAT W/ MID TRANSFER SEEK

001100
001276
001464
000015
P

NNONNONWND
NNNNNNN
NN
NN N NN
NNNNNNN

OCOO0O0O00O

= OV

e d e cd e

NO WS

e e e

NN =

TST15:

PNON

>
b
s
b
D
D
D
D
D
D
—

j=i{=l=lelelelolelelete]

O0O0O0O0O0O0O

NN—'—‘OO?
sfOoroons

;:tt;ttttt't"'tt't"'"'ttt't'tttt'tttlltt"t.tt.ttlttttlt"t"'

000000

MOV
Mov
MOV

001226

001444
001416
001416

001442

000062

MOV

MOV
MOV
MOV

N
w

o
N
o

WWNONON NN
o0
~

e
e
e
e
e
e
e
e

OO0O0O0O0OO000 o

—

1 020254
020260

020262

020716

123737
001342
012737
012737
004737

001417

001333

064620

001174
001176

000137

#EMT16,RMOFO

#-258.+2 ,RMWCO
#BUFONE,RMBAO
#WH,RMCS10
PC,BADSCT

TYPE

,SCTMSG

EMT

10§

JMP

180$

CMPB
BNE
MOV
MOV

RMDAO+1,LSTRK+1
5%
#IEROS,$TMPO
#1,$THP

JSR

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

PC . GENBUF

:16 BIT FORMAT

:WORD COUNT FOR 2 SECTORS (2'S COMP)
:DATA BUFFER ADDRESS
:WRITE HEADER AND DATA
;CALL BAD SECTOR MODULE

:6G0 TO 108 IF NO ERROR

:TYPE BAD SECTOR MESSAGE

:ERROR # DEFINED BY BADSCT SUBROUTINE

160 T0 1808 IF ERROR

;1S LAST TRACK ASSIGNED ?
:BR IF NO
:USE ALL ZEROS DATA PATTERN
;60 GENERATE DATA BUFFER

PC,TSTPRP

;PREPARE DEVICE FOR TEST

308

:CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE IF VOLUME NOT VALID
SVERIFY PACK ACKNOWLEDGE
*RECALIBRATE IF ''SKI" OR ''PIP" IS SET
*VERIFY RECALIBRATION
160 TO 308 IF NO ERROR

JMP

180%

160 TO 180$ IF ERROR

LWORD

NOP
EMT

020716

000005
001551
000006
000034

:START OF TEST
sINITIALIZE STACK POINTER

:PREPARE DEVICE FOR DATA TRANSFER

033352

000404
000240

104000

$BASE ,RO
TSTQUE R
#15,8TESTN

JSR

000137

004737
156130

#STACK,SP

;VERIFY THAT SECTOR IS NOT BAD

063120

8 020254

:SCOPE CALL

;SETUP PARAMETERS FOR GENERATING DATA BUFFER
MOV
#0,RMDCO
:CYLINDER = 0
5$:
MOV
LSTRK, RMDAO
SSTART LAST TRACK AND
MOVE
#31.,RMDAO
:LAST SECTOR

001412
001414
001410

034276

000001
036224

SCOPE

NOP
MOV

30%:

001410

154130

:TASK DESCRIPTOR AS FOLLOWS:
:SELECT DEVICE & VERIFY DEVICE AVAILABLE

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

;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER
MOV
#SEEK'GO,RMCS10 ; CHANGE COMMAND TO SEEK
MOV
MOVB
MOVB

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

‘WRITE REGISTER INDEX TABLE

—

NN
NN
NN
NN

MOVB

MOVB
MOVB
JSR

NOP

000137

40$%:

004737
000405

EMT
JMP

508:

020716

60%:

PC,PUT

40%

1808

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

60 TO 408 IF NO ER 0
:RETURN HERE IF

ERROR

;ERROR # DEFINED BY PUT SUBROUTINE

:GO TO 1808 IF ERROR

037722

001410

JSR
BR
NOP
EMT
JMP

’

180%

;SETUP FOR STATUS

sWAIT FOR SEEK TO COMPLETE

;GO READ REGISTER(S) WITH GET SUBROUTINE
;G0 TO 608 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE

;GO TO 180% IF ERROR

;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
MOV
#WH'!GO,RMCS10
;WRITE HEADER AND DATA
MOV
#PUTINX+3,R2
sEXTEND REGISTER INDEX TABLE
MOvB
#RMUC, (R2)+
MovB
#RMBA, (R2)
+
MOovB
#RMCST, (R2)+
Move
#200, (R2)+

80%:

JSR
BR

80$

EMT
JMP

180%

PC,PUT

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE
;60 _TO 80$ IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 1808 IF ERROR

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

037110

90$%:

PC,GET

JSR
BR

90$

EMT
JMP

180%

NOP

020716

PC,GETSTS
PC.TIMOUT

70%:

037360

020716

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

JVERIFY THE RESULTS OF THE SEEK COMMAND
JSR
PC,SEKSTS
;60 VERIFY RESULTS OF SEEK OPERATION
BR
70%
;G0 TO 708 IF NO ERROR
NOP
sRETURN HERE IF ERROR
EMT
sERROR # DEFINED BY SEKSTS SUBROUTINE
JSR
PC,a(SP)+
;GO BACK FOR MORE ERROR CHECKS
180%
JMP
;GO TO 180% IF ERROR

065224

020716

000137

WRMOF,(R2)+

;G0 READ SEEK STATUS

037110

000063
001554
000002
000004
000000
000200

JSR
JSR

NOP

020504
1074 020510

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

004737
004737

004737
000404
000240
104000
000137

11-APR-

;G0 READ REGISTER(S) WITH GET SUBROUTINE

;60 _TO 90% IF NC ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
;G0 TO 180% IF ERROR

OO0 b s

037360

% 34 FRRLI2

P
QR
S
S
R
R
D

000032
000000
000200

[e]leTe]

020372
1053 020376
1054
1055
1056 020376
020402
020404
020406
020410
020412
020416

MACRO v03.01

SEQ 0105

P4
o000 o
SO0 ~
o SN
o S OW
COHf~N

—4

SEEEW
ornvOooN

000000

NN
OO o
Ww

OO0
OO0

=l=l~]

WwWN—O 0

RRRRS
.as—...._o-.—o-a_o

PARRRRERR

N=0
VW NOWV

o
2
=
>

L 18T 2

B
ey
©

bt
___1

CIRMNAO RM05/3/2 F

CIRMNAD RMO5/37/2 FCTINL _TST 2

115

MACRO v03.01 11-APR-80 13:17:48 PAGE 13-34

~own

ocoo

FORMAT W/ MID TRANSFER SEEK

;VERIFY RESULTS
OF URITE COMMAND
RIERR
;60 CHECK F FOR PRIMARY ERRORS
BR
:60 TO 1008 $ IF NO ERROR

040106

O 0o

020716

SN~

[=1=]

NOP

:
1008

052622

020716

1108:

040740

020716

1208:

083

012737

000053

004737

037360

001410

EMT
JSR
JMP

JSR
BR
NOP
EMT
JSR
JMP

004737

037722

004737
000404
000c«0

037110

000137

020716

104000

040106

JSR
BR

1308:

EMT
JMP

052622

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

:60 TO 1808 IF ERROR

PC,a(SP)+

1808

PC,SECERR

1208

PC,a(SP)+

1808

;GO VERIFY RESULTS OF DATA TRANSFER
;60 TO 1108 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;60 TO 180% IF ERROR
;GO CHECK FOR SECONDARY ERRORS
;60 TO 1208 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
;GO TO 180% IF ERROR

PC,PUT

1308

1808

;50 WRITE REGISTER(S) WITH PUT SUBROUTINE

;60 TO 1308 IF NO ERROR

sRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;60 TO 180% IF ERROR

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

140%:

JSR
BR
NOP
EMT
JMP

PC,GET

1408
180%

;G0 READ REGISTER(S) WITH GET SUBROUTINE
;60 TO 1408 IF NO ERROR
sRETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
;G0 TO 180% IF ERROR

sVERIFY THE RESULTS OF WRITE CHECK OPERATION
JSR
BR

NOP

020716

:RETURN HERE
R
IF ERROR

sWRITE C:gCK HEADER AND DATA FOR SECTORS JUST WRITTEN
#WCH!GO,RMCS10
;WRITE CHECK COMMAND

NOP

020716

106:

1508:

EMT
JSR
JMP

JSR
BR
NOP

EMT
JSR

PC,PRIERR

1508

PC,a(SP)+

1808

PC,DTASTS

1608

PC,a(SP)+

;G0 CHECK FOR PRIMARY ERRORS
;60 _TO 1508 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;60 TO 180% IF ERROR
;G0 VERIFY RESULTS OF DATA TRANSFER
;60 TO 1608 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

SEQ 0106

MNAO RSOSISIZ FCINL _TST 2

000137

020716

004737
5

040740

11-APR-80 13:17:48 PAGE 12-35

1808

;60 TO 180% IF ERROR

JSR

PC,SECERR

;60 CHECK FOR SECONDARY ERRORS

EMT
JSR

170%:

SEQ 0107

JMP

NOP

020716

—e

gOOOO
(YL PVT
W

i ot
i
-

O
p—

¢:§E§E

HAERO v03.01
FORMAT W/ MID TRANSFER SEE

JMP

1708

PC,a(SP)+

1808

:60 TO 1708 IF NO ERROR
:RETURN HERE

IF ERROR

*ERROR # DEFINED BY SECERR SUBROUTINE
160 BACK FOR MORE ERROR CHECKS

:60 TO 180% IF ERROR

180%:
:'."'Q."""."""'"""""'l""'..'.."."""""""".'

S*TEST 16

FORMAT W/ IMPLIED SEEK

;;""'."."'.'"'"."""""."'.".'."'.".'."'l"""""

e
o
i
— o

ST NT N ¥T N1 ¥

(=leleleT=Ta)

s i it et DO O

001100
001276
001464
000016
000000
000000
010000
176774
101206
000062

ONfiJ‘U"U-‘ngC.*l

D —

T$116:

034276

MOV

MOv

MoV

001226

S NN 2OV~

PNONIPNININ)
s = s

b
D
b

2 —2
B

s
%

s
B
2

—_—

064620
000001
036224

033352

;SCOPE CALL
:START OF TEST

$BASE RO

sINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS

#16,S$TESTN

::SET TEST NUMBER IN APT MAIL BOX

#STACK,SP

TSTQUE ,R1

:(R1) = DEVICE BEING TESTED

;SETUP PARAMETERS FOR GENERATING DATA BUFFER
MOv
MOV

#0,RMDCO
#0,RMDAO

;CYLINDER = 0
;:TRACK = 0, SECTOR = 0

#-258.+2 ,RMWCO

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

MOV

#FMT16,RMOFO

MOV
MOV

#BUFONE ,RMBAO
#WH RMCS10

MOv

;VERIFY THAT SECTOR IS NOT BAD

108

208

;16 BIT FORMAT

;DATA BUFFER ADDRESS
sWRITE HEADER AND DATA

JSR

PC,BADSCT

;CALL BAD SECTOR MODULE

TYPE

,SCTMSG

:TYPE BAD SECTOR MESSAGE

063120

021534

SCOPE
NOP
MOV

EMT

10$

JMP

1808

MOV

#ZEROS ,$TMPO

MOV
JSR

#1,8THP1
PC,GENBUF

:6G0 TO 108 IF NO ERROR

;ERROR # DEFINED BY BADSCT SUBRCUTINE

;60 TO 180% IF ERROR

;USE ALL ZEROS DATA PATTERN
;GO GENERATE DATA BUFFER

;PREPARE DEVICE FOR DATA TRANSFER

JSR

.WORD

PC,TSTPRP

154130

:PREPARE DEVICE FOR TEST

sTASK DESCRIPTOR AS FOLLOWS:

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

sRECALIBRATE IF ''SKI'" OR 'PIP'" 1S SET
BR

NOP

021534

EMT

JMP

308
180%

;VERIFY RECALIBRATION
;60 TO 308 IF NO ERROR
sRETURN HERE

I1F

ERROR

;ERROR # DEFINED BY TSTPRP SUBROUTINE

260 TO 180% IF ERROR

%%:HNAO RMO5/3/72 FCINL TST 2
FORMAT W/

IMPLIED SEEK

MACRO v03.01 11-APR-80 13:17:48 PAGE 12-36

}}gg 021070

308 :

1127
1128 0%1070
1129 021076
1130 021104
1137 021112
113% 021116
1133 021122
1136 021126

013737
012737
012737
01270%
11272
112722
112722

001444
001466
000005
001551
000006
000034
000032

}}gg 021136

112722

000200

MOVB

1138 021142

004737

037360

JSR
BR
NOP
EMT
JMP

1135 021132

021146
021150
021152
0211564

}}23 021160
1141

1162 021160
1143 021164
}}22 021170

1146

1147 021170

112722

000404
000240
104000
000137

000000

004737
004737

037024
037722

004737

037110

000404
000240
104000
000137
.

1150
1151 021206

004737

045224

021222

000137

021534

1154
1155 021226
1156 021234
1157 021242
1158 021246
1159 021252

013737
012737
012702
112722
112722

021536
000063
001554
000002
000004

}}gu 021262

112722

000200

};gg 021226

1160 021256

000405
000240
104000
004736

112722

408 :

508 :

021274
021276
021300

608 :

1164 021304

021534

PC,PUT
40%

180%

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

;G0 TO 40% IF NO ERROR
sRETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
;GC TO 1808 IF ERROR

JSR
JSR

PC,GETSTS
PC,TIMOUT

JSR
BR
NOP
EMT
JMP

PC,GET
60%

1808

;SETUP FOR STATUS
JWAIT FOR SEEK TO COMPLETE

;G0 READ REGISTER(S) WITH GET SUBROUTINE

;G0 TO 60% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
160 TO 180% IF ERROR

JVERIFY THE RESULTS OF THE SEEK COMMAND
JSR
PC,SEKSTS
;G0 VERIFY RESULTS OF SEEK OPERATION

BR
NOP
EMT
JSR

708 :
001444
001410

JMP

70%

PC,a(SP)+

1808

JSETUP AND EXECUTE WRITE HEADER
MOV
1908 ,RMDCO
MOV
#WH'!GO,RMNCS10
MOV
#PUTINX+3,R2
MOVE
#RMWC, (R2)+
MOVB
#RMBA.(R2)+

160 TO 1808 IF ERROR

AND DATA COMMAND
JRESTORE DISK ADDRESS
JWRITE HEADER AND DATA
JEXTEND REGISTER INDEX TABLE

#RMCST,(R2)+

JSR

PC,PUT

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

180%

;RETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
;G0 TO 180% IF ERROR

BR
808
:

;60 TO 708 IF NO ERROR
JRETURN HERE I1F ERROR
JERROR # DEFINED BY SEKSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

MOVB
MOVEB

000404

000240
104000
000137

#200,(R2)+

;G0 READ SEEK STATUS

116§ 021266 004737 037360
021272

#RMCST, (R2)+

sSETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE

021534

000000

;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE OFF CYLINDER
MOV
RMDCO,190%
JSAVE CYLINDER ADDRESS
MOV
#822..,RMDCO
JSEEK TO LAST CYLINDER
MOV
#SEEK'GO,RMCS10 ;CHANGE COMMAND TO SEEK
MOV
#PUTINX,R2
JWRITE REGISTER INDEX TABLE
MOVB
#RMDA, (R2)+
MOVEB
WRMDC.(R2)+
MOVB
#RMOF . (R2)+

MOVE

021534

0211764
021176
021200
021202
}}23 021206

021212
021214
021216
021220

021
001444
001410

NOP
EMT
JMP

#200,(R2)+

80%

:G0 TO 80% IF NO ERROR

SEQ 0108

CZRMNAO RMO5/3/2 FCTNL TST 2

IMPLIED SEEK

004737
000405
000240
104000
004736
000137

F
9
11-APR-80 13:17:48 PAGE 12-37
SEQ 0109

;WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS
PC,TIMOUT
JSR
;WAIT FOR COMMAND TO COMPLETE
JSR
BR

NOP

000137

021534

040106

021534

004737

052622

EMT

90%:

e I I

JSR
BR
NOP

100%:

110%:

040740

180%

EMT
JSR
JMP

JSR
BR
NOP
EMT
JSR
JMP

PC,PRIERR

1008

000137

021534

012737

000053

004737
000404
000240

037360

000137

021534

004737

037722

004737
000404
000240

037110

000137

021534

004737
000405

040106

104000

1208
:

001410

sWRITE

:RETURN MERE

IF ERROR

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

;60 CHECK FOR PRIMARY ERRORS

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

1108

;G0 TO 1108 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

;60 TO 180% IF ERROR

;G0 CHECK FOR SECONDARY ERRORS

;60 _TO 1208 IF NO ERROR

PC,a(SP)+

180%

sRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

;GO TO 180% IF ERROR

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

JSR
BR

NOP

130%:

;60 _TO 90% IF NO ERROR

1808

PC,a(SP)+

JSR
BR

EMT
JSR
JMP

:GO READ REGISTER(S) WITH GET SUBROUTINE

:60 _TO 1008 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERRCR CHECKS
;G0 TO 180% IF ERROR

NOP

S W

— —

021534

8N
os

=1=] = l=l=l=]

N oo

JMP

PC,GET

90$

sVERIFY RESULTS OF WRITE COMMAND

~No

—_—

—

WN—=O

—

2 s

— 2s

NNNN

037110

004737
000404

FEpmmEEEaay

037722

004737

jel=l=lelelel=lelelelelel=]

oo
oofig\fi

FORMAT W/

MACRO v03.01

EMT
JMP

PC,PUT

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

180%

sRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;G0 TO 180% IF ERROR

1308

;G0 TO 1308 IF NO ERROR

sWAIT FOR WRITE CHECK TO COMPLETE AND GET STATUS
JSR

PC,TIMOUT

;WAIT FOR WRITE CHECK TO FINISH

JSR
BR

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

NOP

140%:

EMT
JMP

1408

180%

;60 TO 1408 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;60 TC 180% IF ERROR

sVERIFY THE RESULTS 2§EHSIIE CHECK OPERATION
JSR
:60 CHECK FOR PRIMARY ERRORS
1508
BR
;G0 TO 1508 IF NO ERROR

CIRMNAD RMO5/3/2 FCINL TST 2
FORMAT W/

021462
021464
021466
021470

1196 021474
1195 021474

021500
021502
021504
021506
021510

IMPLIED SEEK

11-APR-80 13:17:48 PAGE

6
000137

021534

004737

052622

SEQ 0110

ans

:6G0 TO 1808 IF ERROR

JSR
BR

PC,DTASTS
1608

:60 VERIFY RESULTS OF DATA TRANSFER
160 TO 1608 IF NO ERROR

JSR

PC,ASP)+

JSR

PC,SECERR

JMP

040740

NOP

021534

1708
:

ERROR

1808

EMT

021534

PC,a(SP)+

JMP

:RETURN HERE

EMT
JSR

NOP

021520
021522
021524
021526
021530
1198 021534

12-38

NOP

1196 021514
1197 021514

1199
1200 021534
1201
1202 021536
1203
1204 021540
1205
1206

MACRO v03.01

1808

1708

EMT
JSR
JMP

PC,a(SP)+
180%

000401

1808:

B8R

2008

000000

1908:

.WORD

*ERROR # DEFINED BY PRIERR SUBROUTINE
160 HACK FOR MORE ERROR CHMECKS

:RETURN HERE

IF ERROR

*ERROR # DEFINED BY DTASTS SUBROUTINE
160 BACK FOR MORE ERROR CMECKS

:GO TO 1808 IF ERROR

;60 CHECK FOR SECONDARY ERRORS
:6G0 TO 1708 IF NO ERROR
:RETURN HERE

ERROR

*ERROR # DEFINED BY SECERR SUBROUTINE
160 BACK FOR MORE ERROR CHMECKS
160 TO 180% IF ERROR

: TEMPORARY STORAGE

200%:
:.'l....".'.."""."""""'.'."".'t'l"'."..t't""t'.'tt'

SeTEST

FORMAT EACH SECTOR ADDRESS

"'.l."'t"."'"""""t"..'."'..'..."'.'.'."'."".".'

021540
021540
021542
021544
021550
021554
021560

1222 021672

001226

— -

000000
000000
010000

001444
001416
001442

— ot s

177376
101206

001412

—\N~

§5.

oOOWw

000062

--‘08
133

1213 021610
1214 021616
1215 021624
1216
1217
021632
021636
021640
021644
021646
1218 021652
1219 021652
1220 021660
1221 021666

001100
001276
001464
000017

:SCOPE CALL
#STACK,SP

:START OF TEST
*INITIALIZE STACK POINTER

MOV

#17,8TESTN

:;SET TEST NUMBER [N APT MAIL BCX

$BASE , RO
TSTQUE ,R1

MOV
MOV
MOV

063120

#-258. ,RMWCO

#BUFONE ,RMBAO
#WH,RMCS10

001176

"
20%:

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

;CALL BAD SECTOR MODULE

10§

EMT
JMP

1908

SERROR # DEFINED BY BADSCT susaou1xns
160 TO 1908 IF ERROR

Moy

FRMDAO,$TMPO

;USE SECTOR FOR DATA PATTERN

JSR

PC . GENBUF

;60 GENERATE DATA BUFFER

TYPE

001174

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

;SETUP PARAMETERS FOR GENERATING DATA BUFFER
MOV
#0,RMDCO
:CYLINDER = 0
MOV
#0 _RMDAO
:TRACK = 0, SECTOR = 0
=
MOV
#FMT16,RMOFO
;16 BIT FORMAT

;VERIFY THAT SECTOR IS NOT BAD
JSR
PC,BADSCT

034276

001416
000001
036224

SCOPE

NOP
MOV

MOV
MOV

001414
001410

022302
[=l=1=]
(=
sron

1207
1208
1209 021566
1210 021574
1211 021602
1212 021610

té117:

MOV

,SCTMSG

#1,8TMP1

:60 TO 108 IF NO ERROR

:TYPE BAD SECTOR MESSAGE

%;MAO RM05/3/2 FCINL TST 2

MACRO v03.01

FORMAT EACH SECTOR ADDRESS

1223

12264

1225 021672
021676

004737
154130

H 9
11-APR=-80 13:17:48 PAGE 12-39

SEQ@ 01

;PREPARE DEVICE FOR DATA TRANSFER

033352

JSR
LWORD

PC,TSTPR
154130

;PREPARE DEVICE FOR TEST
:TASK DESCRIPTOR AS FOLLOWS:

:SELECT DEVICE & VERIFY DEVICE AVAILABLE
:CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
:PACK_ACKNOWLEDGE

021700
021702
021704
021706
}559 021712

000404
000240
104000
000137

022302

1228
1229 021712
1230 021720
1231 021724
1232 021730
1233 021736
1234 021740
1235 021744
1236 021750
}gg; 021754

012737
012702
112722
112722
112722
112722
112722
112722
112722

000063
001551
000006
000034
000032
000002
000004
000000
000200

1239 021760

004737

037360

021764
021766
021770
021772

}52? 021776

000404
000240
104000
000137

022302

1242
1243 021776
}%:g 022002

004737
004737

037024
037722

1246 022006
022012

004737
000404

037110

022014
022016
022020

000240
1040L)
000137

022302

1249
1250 022024

004737

040106

022032
02203&
022036

000240
104000
004736

}S:S 022024

022030

022040

000405

1251 022044
1252 022044

000137

022302

004737

052622

022052

000240

022050

000405

308:
001410

BR
NOP
EMT
JMP

308
1908

VOLUME NOT VALID

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

:60 TO 308 IF NO ERROR
RETURN HERE IF ERROR
:ERROR # DEFINED BY TSTPRP SUBROUTINE
260 TO 1908 IF ERROR

sSETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
mov
#WH'GO,RMCST0
JWRITE HEADER AND DATA
MOV
#PUTINX,R2
sWRITE REGISTER INDEX TABLE
MOVB
#RMDA, (R2)+
MOVB
#RMDC.(R2)+
MOVB
#RMOF.(R2)+
MOVB
W#RMWC.(R2)+
MOVB
#RMBA.(R2)+
MOVB
#RMCST,(R2)+
MOVB
#200,(R2)+

[

808 :

JSR

BR
NOP
EMT
JMP

PC,PUT

80%

1908

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

;G0 TO 80% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
160 TO 1908 IF ERROR

;SETUP INPUT REGISTER BUFFER FOR READING STATUS
JSR
LGETSTS
JSR
PC,TIMOUT
;WAIT FOR COMMAND TO COMPLETE
JSR
BR
NOP
EMT

908 :

JMP

PC,GET
90$

1908

;G0 READ REGISTER(S) WITH GET SUBROUTINE
160 TO 908 IF NO ERROR

RETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
260 TO 1908 IF ERROR

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

1008:

1008

:60 TO 1008 IF NO ERROR

NOP
EMT
JSR

PC,a(SP)+

;RETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

JSR

PC,DTASTS

;G0 VERIFY RESULTS OF DATA TRANSFER

JMP

NOP

1908
1108

160 TO 1908 IF ERROR

260 TO 1108 IF NO ERROR
+RETURN HERE IF ERROR

CZRMNAO RMO5/3/2 FCTNL TST 2

MACRO v03.01 11-APR-80 13:17:48 PAG% 12-40

FORMAT EACH SECTOR ADDRESS

022056
022056

022060

104000
004736

1253 022064
1256 022066

000137

022302

004737

040740

022072
022076
022076

000240
104000
004736

022070

022100

000405

000137

022302

1257
1258 022104
}ggg 022112

012737
012737

000073
102212

1261 022120

004737

037360

022126
022130
022132

000240
104000
000137

022302

}ggg 022136

004737

037722

1267 022142

004737

037110

022150
022152
022154

000240
104000
000137

022302

1270
1271 022160

004737

040106

022166
022170
022172

000240
104000
004736

000137

022302

022200

004737

052622

022206
022210
022212

000240
104000
004736

}ggg 022104

022124

}Sgg 022136
1264

022146

}ggg 022160
022164

855553

022204

855553

NN~

oo~

— s

000404

000405

000137

022302

022220

004737

040740

022226
22230
022232

000240
104000
004736

022224

000404

355523

000405

000137

022302

1108
:

EMT
JSR

PC,a(SP)+

:ERROR # DEFINED BY DTASTS SUBROUTINE
160 BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

:G0 CHECK FOR SECONDARY ERRORS

PC,a(SP)+

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

JMP
BR

NOP
EMT
JSR

1208 :
001410
001414

JMP

1908
1208

1908

160 TO 1908 IF ERROR

:60 TO 1208 IF NO ERROR
:6G0 TO 1908 IF ERROR

;READ HEADER AND DATA FOR SECTOR JUST WRITTEN
MOV
#RH'GO,RMCST10
;READ HEADER & DATA COMMAND
MOV
#BUFTWO,RMBAO : CHANGE BUS ADDRESS
JSR

1308 :

NOP
EMT
JMP

PC,PUT

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

1908

:RETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
260 70 1908 IF ERROR

1308

:6G0 TO 1308 IF NO ERROR

;WAIT FOR READ TO COHPLETE AND GET STATUS

JSR

PC,TIMOUT

;WAIT FOR READ TO COMPLETE

JSR

PC,GET

;G0 READ REGISTER(S) WITH GET SUBROUTINE

1908

JRETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE
160 TO 1908 IF ERROR

1408 :

NOP
EMT
JMP

1408

:6G0 TO 1408 IF NO ERROR

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

PC,a(SP)+

:RETURN MERE IF ERROR
sERROR # DEFINED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

JSR

PC,DTASTS

;60 VERIFY RESULTS OF DATA TRANSFER

NOP
EMT
JSR

PC,a(SP)+

;RETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHczCKS

JSR

PC,SECERR

JMP

BR
.

:60 TO 1508 IF NO ERROR

NOP
EMT
JSR

BR
e

1508

NOP
EMT
JSR

JMP

;VERIFY DATA

1908

1608
190%

1708

PC,a(SP)+

190%

:6G0 TO 1908 IF ERROR

:G0 TO 1608 IF NO ERROR
:G0 TO 1908 IF ERROR

;60 CHECK FOR SECONDARY ERRORS

160 TO 1708 IF NO ERROR

*RETURN HERE 1F ERROR
*ERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

160 TO 1908 IF ERROR

SEQ 0112

MACRO v03.01
EACH SECTOR ADDRESS

JSR
.WORD
.WORD
BR
NOP
EMT
JMP

022302

001416
000037

i80s
001416

021610

190%:

INC
CMPB
BLO
JMP

AR A

Y
P P
—_— s —

83>\n\nc~8yu
oSO
O

[=]eleleTlelaT=]

NN
N
RN
W NN N N NN

001100
001276
001464
000020
CONO WSS (N
—

WRONONNNN
NN N

1§120:

000000
000000
010000
177376
101206

001226

023044
s

;GO COMPARE WRITE, READ DATA BUFFERS

190%

;ERROR # DEFINED BY CMPBUF
;60 TO 1908 IF ERROR

sSTARTING ADDRESS OF WRITE BUFFER
;STARTING ADDRESS OF READ BUFFER
;G0 _TO 1808 IF NO ERROR

;RETURN HERE IF ERROR

SUBROUTINE

RMDAO

sADVANCE

;GO DO NEXT SECTOR

#31.,RMDAO
190%

SECTOR COUNT

;DONE ALL SECTORS??
sVES!!

012737
012737
004737

001416
000001
036224

004737
154130

033352

FORMAT EACH TRACK ADDRESS

SCOPE
NOP

+SCOPE CALL
#STACK,SP

$BASE ,RO
TSTQUE ,R1
#20,$TESTN

;START OF

TEST

sINITIALIZE

STACK POINTER

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

:SETUP PARAMETER S FOR GENERATING DATA BUFFER

5%:

MOV
MOv
MOV

MOv
MOv
MOV

#0,.RMDCO

108:

20%:

:TRACK = 0, SECTOR = 0

#-258. RMWCO

;2 + 256 WORDS

#EMT16,RMOFO
#BUFONE ,RMBAO
#WH,RMCS10

JSR
BR
TYPE
EMT
JMP

PC,BADSCT

MOV
MOV

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

JSR

;PREPARE DEVICE

JSR
.WORD

;CYLINDER = 0

#0 .RMDAO

sVERIFY THAT SEC TOR IS NOT BAD

063120

PC,CMPBUF

BUFONE
BUF TWO
180%

AR 222l a2
222022

MOv
MOV
MOv
MOV

000062

034276

WWNWN NN
o

SEQ 0113

::"'t"'.."..""""""""."Q.."""'..""."t...""."'

s*TEST 20

—

: INCREMENT ADDRESS AND FORMAT NEXT SECTOR

[elelelelel=]

SREEEREREE

036462

—>

11-APR-80 13:17:48 PAGE 12-41

10%
.SCTMSG

190%

:16 BIT FORMAT

(2'S COMP)

:DATA BUFFER ADDRESS
*WRITE HEADER AND DATA

;CALL BAD SECTOR MODULE

;G0 TO 108 IF NO ERROR
:TYPE BAD SECTOR MESSAGE

;ERROR # DEFINED BY BADSCT SUBRC'ITINE
;60 TO 1908 IF ERROR

;USE TRACK FOR DATA PATTERN
;GO GENERATE DATA BUFFER

FOR DATA TRANSFER
PC,TSTPRP
;PREPARE DEVICE FOR TEST

154130

;TASK DESCRIPTOR AS FOLLOWS:

sSELECT DEVICE & VERIFY DEVICE AVAILABLE
:CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE

VOLUME NOT

:VERIFY PACK ACKNOWLEDGE

:RECALIBRATE IF "'SKITM OR ‘PIP"'

VALID

1S SET

% 8INAO RMO5/3/2 FCINL TST 2

MACRO v03.01
FORMAT EACH TRACK ADDRESS

B T (=l

NN
NN
ONNNNNNNNN
NNONNNNNNOW
VNN
SN

(=]

W
~N

— i

il s il il il

nronoNroN

N=OOVRNOWVWSHMWNN—~-OY

NOP

EMT

023044

[=l=lelelele-BelelelelelelelT=]

VONOWVES
W

——
P
I
L
L
e

D e

N LN N N N
NRORRIN AR

—_—
d >

N LN U U N N N NN N N N NN
~N PON) b e
e s s s et e O

000404

11-APR=-80 13:17:48 PAGE 12=42

000063

30%:
001410

JMP

MOV

#PUTINX,R2
#RMDA, (R2)+
WRMDC.(R2)+
WRMOF.(R2)+
#RMWC.(R2)+
W#RMBA.(R2)+

MOVB

#200, (R2)+

JSR
BR

NOP

037024
037722

004737
000404
€)0240

037110

000137

023044

104000

040106

80$:

EMT
JMP

;WRITE HEADER AND DATA

‘WRITE REGISTER INDEX TABLE

#RMCST,(R2)+
PC,PUT
80%

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE
;G0 _TO 80% IF NO ERROR

190%

sERROR # DEFINED BV PUT SUBROUTINE
;G0 TO 190% IF ERROR

sRETURN HERE

ERROR

:WAIT FOR COMMAND TO COMPLETE

JSR
BR

PC,GET
90%

;60 READ REGISTER(S) WITH GET SUBROUTINE
160 TO 90$ IF NO ERROR

90%:

JMP

1908

;VERIFY RESULTS OF WRITE COMMAND
JSR

BR
e

1008

PC,a(SP)+

JSR

PC,DTASTS

JMP

BR
S

PC,PRIERR

JSR

NOP

1908
1108

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

160 T0 1908 IF ERROR

;G0 CHECK FOR PRIMARY ERRORS

160 TO 1008 IF NO ERROR
:RETURN HERE

ERROR

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

:G0 TO 190$ IF ERROR

;60 VERIFY RESULTS OF

DATA TRANSFER

:6G0 TO 1108 IF NO ERROR
*RETURN HERE

ERROR

EMT
JSR

PC,a(SP)+

*ERROR # DEFINED BY DTASTS SUBROUTINE
160 BACK FOR MORE ERROR CMECKS

JSR

PC,SECERR

;60 CHECK FOR SECONDARY ERRORS

JMP

NOP

023044

;60 TO 190% IF ERROR

PC,GETSTS
PC.TIMOUT

NOP
EMT

052622

040740

;ERROR # DEFINED BY TSTPRP SUBROUTINE

JSR
JSR

EMT

023044

:RETURN HERE IF ERROR

sSETUP INPUT REGISTER BUFFER FOR READING STATUS

NOP

023044

#UH'GO,RMCS10

MOV
MOVB
MOVB
MOVB
MOVB
MOVB

MOVB

037360

004737
004737

190%

sVERIFY RECALIBRATION
;GO TO 308 IF NO ERROR

;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND

000000
000200

023044

30%

SEG 0114

EMT
JSR

JMP

1908

1208

PC,a(SP)+

190

160 TO 1908 IF ERROR

160 TO 1208 IF NO ERROR
*RETURN HERE

ERROR

*ERROR # DEFINED BY SECERR SUBROUTINE
160 BACK FOR MORE ERROR CHECKS

:6G0 TO 1908 IF ERROR

RHNAO RMO5/3/2 FCINL TST 2
MACRO v03.01
FORMAT EACH TRACK ADDRESS

11-APR-80 13:17:48 PAGE 12=43

SEQ 0115

120%:

012737
012737

000073
102212

004737
000404
000240

037360

000137

023044

004737

037722

004737
000404
000240

037110

000137

023044

004737
000405
000240

040106

000137

023044

004737

052622

1046000

104000

022722
022722

0014
0014

;READ HE;%ER AND DATA FOR SECTOR JUST WRITTEN
#RH!GO,RMCS10
;READ HEADER & DATA COMMAND
MOV
#BUF TWO, RMBAO
: CHANGE BUS ADDRESS

JSR

NOP
EMT

130%:

JMP

023044

004737
000405
000240
104000
004736
000137

040740

JSR

NOP
EMT

:
1408

JMP

004737
101206
102212
000404
000240
104000
000137

036462

1908

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

;60 TO 1308 IF NO ERROR
:RETURN HERE

ERROR

:ERROR # DEFINED BY PUT SUBROUTINE
;60 TO 190% IF ERROR

PC,TIMOUT

sWAIT FOR READ TO COMPLETE

PC,GET

;60 READ REGISTER(S) WITH GET SUBROUTINE
;G0 TO 1408 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE
;60 TO 190% IF ERROR

1408
1908

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

1508

EMT
JSR

PC,a(SP)+

1908

;G0 TO 190% IF ERROR

150%:

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER
;60 TO 160$ IF NO ERROR

JMP
BR

:
1608

PC,a(SP)+

JSR

PC,SECERR

JMP

EMT

JSR

170%:

JMP

JVERIFY DATA

JSR
.MORD
.WORD

NOP

EMT

023044

1608

NOP
EMT
JSR

NOP

023044

1308

JWAIT fO?s:EAD TO COMPLETE AND GET STATUS

NOP

000137

PC,PUT

JMP

1908

1708

PC,a(SP)+

1908

PC, CMPBUF
BUFONE
BUF TWO

180%
1908

;60 _TO 1508 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS

;RETURN HERE

ERROR

;ERROR # DEFINED BY DTASTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
;G0 TO 190% IF ERROR

;G0 CHECK FOR SECONDARY ERRORS
;GO TO 1708 IF NO ERROR
sRETURN HERE 1F ERROR
<ERROR # DEFINED BY SECERR SUBROUTINE
:6G0 BACK FOR MORE ERROR CHECKS

;60 TO 1908 IF ERROR

;G0 COMPARE WRITE, READ DATA BUFFERS
;:STARTING ADDRESS OF WRITE BUFFER
sSTARTING ADDRESS OF READ BUFFER

;60 TO 1808 IF NO ERROR
;RETURN HERE IF ERTM ®
;ERROR # DEFINED B . MPBUF SUBROUTINE
;60 TO 1908 IF ERROR

: INCREMENT ADDRESS AND FORMAT NEXT TRACK

i80s

MNAO RHOSISI
FORMAT

'flfiU

gACRO V03.01

n9
11-APR-80 13:17:48 PAGE 12-44
SEQ 0116

001417
001417

INCB

001333

022352

CMPB
BHI

190$:

JMP

RMDAOD+1

RMDAO+1,LSTRK+1
190%

sADVANCE TRACK COUNT

.LAST TRACK ?
JYES!!
:G0 DO NEXT SECTOR

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

'TEST 21

FORMAT PRIME CYLINDERS

..'t".""l".""""'""""'."".'.."I""Q'.'.'t"l"""

TS121:

001100
001276
001464
000021

010000
177376
101206

— e

VWSS SN
NO SO

000062

001
001
001

5%:

012737
012737
004737

001444
000001
036224

$BASE, RO

MOV

2, $TESTN

TSTQUE R1

s(R1) = DEVICE BEING TESTED

ssSET TEST NUMBER IN APT MAIL BOX

#1,RMDCO
#0,RMDAO

;CYLINDER = 1
;TRACK = 0, SECTOR = 0

MoV
MoV

#FMT16,RMOFO
#-258. ,RMWCO

;16 BIT FORMAT
;2 + 256 WORDS

001

#BUFONE ,RMBAO
#WH,RMCS10

sVERIFY TgaT SECTOR IS NOT BAD

TYPE

(2'S COMP)

;DATA BUFFER ADDRESS
;WRITE HEADER AND DATA

PC,BADSCT

;CALL BAD SECTOR MODULE

,SCTMSG

:TYPE BAD SECTOR MESSAGE

10$

EMT
JMP

1908

MOV
MOV
JSR

#RMDCO,$TMPO
#1,8TMP
PC.GENBUF

:6G0 TO 108 IF NO ERROR

:ERROR # DEFINED BY BADSCT SUBROUTINE
160 TO 1908 IF ERROR
;USE

CYLINDER FOR DATA PATTERN

;60 GENERATE DATA BUFFER

20%:

004737
154130

;PREPARE DEVICE FOR DATA TRANSFER

033352

JSR

.MORD

PC,TSTPRP

154130

1
1396 023216

RO = UNIBUS ADDRESS

MOV
MOv

MOV
MOV

063120
023606

#STACK,SP

MOV

;sSCOPE CALL
sSTART OF TEST
sINITIALIZE STACK POINTER

:SETUP PARAMETERS FOR GENERATING DATA BUFFER

034276

000137

SCOPE
NOP
MOV
MOV

001226

000001
000000

NN NN NN NN N
00000

000404
000240
104000
000137

023606

012737

000063

001410

308

JMP

190%

NOP
EMT

;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 NCT VALID

:VERIFY PACK ACKNOWLEDGE
:RECALIBRATE IF ''SKI" OR "'PIP'' IS SET
:VERIFY RECALIBRATION
:60 TO 308 IF NO ERROR

:ne1ua~ HERE 1F ERRQR
:ERROR
# DEFINED BY“TSTPRP SUBROUTINE
:6G0 TO 1908 IF ERROR

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

000404

——

M
NNNNNNNNN

) d ettt
e T3
[ B
R
R eS
e o]
SrororvNNNNN
EBO

Noommrarw >
-~
O~N~N~N
OSSN OfO0OfrOroOorosrs

oo~
NN
=
VS

[ lelelelelelelelelelelelelNN
NN NN N NN N NN NN NN
WRONON PN

-t
et OO O

uN—DOOONg

i
i
i
i
i
e
i
e
—

MACRO v03.01

~N
N
W
(=]
~

037024

004737
004737
000404
000240
104000
000137

037722
037110

W
W

23350

104000
004736
000137

004737
000405
000240

80%:

004737
000405

90%:

;60 TO 80% IF NO ERROR
;RETURN HERE IF ERROR

;ERROR # DEFINED BY PUT SUBROUTINE

;60 TO 190% IF ERROR

PC,GETSTS

JSR
JSR
BR
NOP
EMT
JMP

PC,TIMOUT
PC,GET

90%

190%

sVERIFY RESULTS OF WRITE COMMAND

040106

023606

100%:

052622

023606

1108:

040740

—

——

b
-

H e

1208:

sWAIT FOR COMMAND TO COMPLETE

;GO READ REGISTER(S) WITH GET SUBROUTINE

;60 TO 908 IF NO ERROR
sRETURN HERE

ERROR

;ERROR # DEFINED BY GET SUBROUTINE
;60 TO 1908 IF ERROR

1908

;60 CHECK FOR PRIMARY ERRORS
;G0 _TO 100$ IF NO ERROR
;RETURN HERE IF ERROR
sERROR # DEFINED BY PRIERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;60 TO 1908 IF ERROR

JSR
BR
NOP
EMT
JSR
JMP

PC,DTASTS

;G0 VERIFY RESULTS OF DATA TRANSFER

1908

;GO TO 1908 IF ERROR

JSR
BR

PC,SECERR

1208

;G0 CHECK FOR SECONDARY ERRORS
;60 TO 1208 IF NO ERROR

PC,a(SP)+

sERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
;60 TO 1908 IF ERROR

JSR
BR
NOP
EMT
JSR
JMP

NOP

[=l=]

KMWN—‘—.
nNOSOO

s60 WRITE REGISTER(S) WITH PUT SUBROUTINE

;WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS

023606

JSR
BR
NOP
EMT
JMP

JSR

023606

000073
102212
037360

;SETUP INPUT REG ISTER BUFFER FOR READING STATUS

104000

004736
000137

;WRITE REGISTER INDEX TABLF

MOV
MOvB
MOVB
MOVB
MOvV8
MOvVB
MOvVB
MOVB

037360

004737

N 9
11-APR=B0 13:17:48 PAGE 12-45
/

023606

004737
000405
000240

OO00O0O0

s
b

d —D
b
B

Pl
o ol o o

P2l L]

B
©
D
B

MNAO RMO5/3/2

EMT
JSR
JMP

PC,PRIERR

100%

PC,a(SP)+

1108

PC,a(SP)+

1908

;60 TO 1108 IF NO ERROR
;RETURN HERE IF ERROR
:ERROR # DEFINED BY DTASTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

sRETURN HERE

ERROR

sREAD HEADER AND DATA FOR SECTOR JUST WRITTEN
#RH!GO,RMCS10
MOV
:READ HEADER & DATA COMMAND
MOV
#BUF TWO,RMBAO
: CHANGE BUS ADDRESS
PC,PUT
JSR
;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE
BR
NOP
EMT

1308

;60 TO 1308 IF NO ERROR

sRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

SEQ 0117

RMNAO RMO5/3/2 FCTINL TST 2
1
FORMAT PRIME CYLINDERS

000137

023606

004737

037722
037110

RELE

8 1

MACRO v03.01 11-APR=80 13:17:48 PAGE 13'46
JMP

130%:

JSR
JSR

NOP

023606

004737
000405
000240

040106

EMT
JMP

JSR

104000

023606

004737

052622

023550

036462

aad

001444
001444

16451 023602
1452 023606
1453
1454

023106

:6G0 TO 1508 IF NO ERROR
*RETURN HERE

1908

1698

:G0 TO 1608 IF NO ERROR
*RETURN HERE

ERROR

JSR

PC,SECERR

:60 CHECK FOR SECONDARY ERRORS

JMP

sVERIFY DATA

JSR
.WORD
.WORD

EMT
JMP

1908

1708

:6G0 TO 1908 IF ERROR

:G0 TO 1708 IF NO ERROR

‘RETURN HERE

ERROR

PC,a(SP)+

:ERROR # DEFINED BY SECERR SUBROUTINE
160 BACK FOR MORE ERROR CHMECKS

PC,CMPBUF
BUFONE
BUFTWO

;60 COMPARE WRITE, READ DATA BUFFERS
sSTARTING ADDRESS OF WRITE BUFFER
:STARTING ADDRESS OF READ BUFFER

190$

180%
190%

;G0 TO 1908 IF ERROR

;60 _TO 1808 IF NO ERROR

sRETURN HERE

ERROR

;ERROR # DEFINED BY CMPBUF SUBROUTINE
:60 TO 1908 IF ERROR

s INCREMENT ADDRESS AND FORMAT NEXT PRIME CYLINDER
ASL

001000

CMP
BGT
JMP

1908
MR

TRTEST 22
00000¢

ERROR

160 TO 1908 IF ERROR

RMDCO

RMDCO,#512.
190%
5%

sADVANCE CYLINDER COUNT

;DONE ALL PRIME CYLINDERS ?
;Y881
+G0 DO NEXT CYLINDER

22 Rl
2 222220 ]

READ HEADER & DATA IN LAST SECTOR

CCERRR R RN R RN R R RN R R R R RN RN RN RN RN R RN RN RN

023606
023606

PC,a(SP)+

EMT
JSR

1808%:

;G0 CHECK FOR PRIMARY ERRORS

:ERROR # DEFINED BY DTASTS SUBROUTINE
160 BACK FOR MORE ERROR CHECKS

023606

1508

EMT
JSR

JMP

PC,PRIERR

;G0 VERIFY RESULTS OF DATA TRANSFER

NOP

1446
1447
1448 023566
1449 023572
1450 023600

:ERROR # DEFINED BY GET SUBROUTINE
160 TO 1908 IF ERROR

PC,DTASTS

023562
16445 023566

:RETURN HERE 1F ERROR

JSR

NCP

004737

1908

:6G0 TO 1408 IF NO ERROR

PC,a(SP)+

JMP

040740

1441 023544
1442
1443
1444 023544

1408

:WAIT FOR READ TO COMPLETE
160 READ REGISTER(S) WITH GET SUBROUTINE

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

023606

PC,TIMOUT
PC,GET

EMT
JSR

NOP

000137

:60 TO 1908 IF ERROR

sVERIFY THE RESULTS OF READ OPERATION
NOP

004736
000137

:WAIT FOR READ TO COMPLETE AND GET STATUS

i
000137

1908

SEQ 0118

1s122:

SCOPE

RRR

:SCOPE CALL

AR RNRRRERARRRRRROERREY

r—

—

amcee—

. % lziHNAO RMO5/3/2 FCTNL TST 2

MACRO v03.01 11-APR-80 13:17:48 PAGE 12-67

READ HEADER & DATA IN LAST SECTOR

023610
023612

000240
012706

NOP
MOV

027100

023616
023622

81iroo
13:31

001276
001464

000022

001226

C
1457 023634
1458 023642
1459 023650

012737
013737
112737

001466
001332
000036

001444
001416
001416

1455 023626 012737

1456

1460 023656 012737

1461 023664
1665 023664
1463 023672

010000

012737
012737

012737

177376
102212

000073

L
1466
1467 023706

004737

033352

|
.
L

}22? 023700

023712

154130

001442

001412
001414

MOV
MOV

MOV

#STACK,SP

$BASE , RO
TSTQUE ,R1

#22,$TESTN

SEQ 0119

:START OF TEST
:INITIALIZE STACK POINTER

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

::SET TEST NUMBER IN APT MAIL BOX

;SETUP PARAMETERS FOR READING LAST SECTOR
MOV
MOV
MOVE

208:

001410

#822. ,RMDCO
LSTRK . RMDAO
#30.,RMDAO

MOV

#imif6,RMOFO

MOV
MOV

#-258. ,RMUCO
#BUFTWO,RMBAO

MOV

#RH'GO,RMCS10

;LAST CYLINDER
:SET LAST TRACK AND
:LAST SECTOR

:16 BIT FORMAT

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

:READ WEADER AND DATA

;PREPARE DEVICE FOR DATA TRANSFER
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TEST

.WORD

154130

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

;PACK ACKNOWLEDGE
l

*RECALIBRATE

023714
ossrle

023720
023722
1468 023726

000404
000240

BR
NOP

104000
000137

024112

1469 023726
1470 023732
1471 023736
147; 023742
1473 023746
1476 023752

012702
112722
112722
112722
112722
112722

001551
000006
000034
000032
000004
000002

1476 023762

112722

000200

1475 023756

}2;5 023766

112722

L1479
1480 023766

004737

023774

000240

y
|

024000
;:g; 024004

;

023772

023776

000404

104000

000137

037360

024112

037024
037722

1487 024014

004737

037110

024022
024026

000240
104000

000404

EMT
JMP

1908
#PUTINX,R2
WRMDA, (R2)+
WRMDC.(R2)+
WRMOF.(R2)+
WRMBA.(R2)+
#RMWC.(R2)+

MOVEB

#200,(R2)+

MOVB
1208 :

308

MOV
MOVB
MOVB
MOVB
MOVB
MOVB

VOLUME NOT VALID

#RMCST,(R2)+

''SKI" OR

"'PIP'*

SET

:VERIFY RECALIBRATION

:6G0 TO 308 IF NO ERROR
:RETURN HERE IF ERROR

JERROR # DEFINED BY TSTPRP SUBROUTINE
160 T0 1908 IF ERROR
;WRITE REGISTER INDEX TABLE

: TERMINATOR

;READ HEADER AND DATA OF LAST SECTOR
JSR
PC,PUT
;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

NOP

004737
0064737

024020

308:

000000

.
1483
1484 024006
}232 024010

SVERIFY PACK ACKNOWLEDGE

EMT

1308
:

JMP

1308
1908

:60 TO 1308 IF NO ERROR

:RETURN HERE IF ERROR

:ERROR # DEFINED BY PUT SUBROUTINE

160 TO 1908 If ERROR

;SETUP INPUT REGISTER BUFFER FOR READING STATUS
JSR
PC,GETSTS
JSR
PC.TIMOUT
:WAIT FOR READ TO COMPLETE

JSR

NOP
EMT

PC,GET

1408

;60 READ REGISTER(S) WITH GET SUBROUTINE

:G0 TO 1408 IF NO ERROR

:RETURN HERE If ERROR
:ERROR # DEFINED BY GET SUBROUTINE

MACRO v03.01 11-APR-80 13:17:48 PAGg 11g-48

RMNAO RMO5/3/2 FCTNL TST 2
READ HEADER & DATA IN LAST SECTOR

026026 000137 024112
1488 0360%
2

1489
1490
1491 024032

0240

1492
1493

026046

02405
024052

004737

000405

024112

004737

052622

1508

PC,A(SP)+

JSR

PC.DTASTS

JMP

150%:

026066

16494 024072
16495 0264072

024106

1496 024112
1497
1498 024112

024112

1908

1608

004737

040740

000137

EMT
JSR

PC,a(SP)+

JSR

PC,SECERR

JMP

:
1608

1908

1708

NOP
EMT
JSR

024112

PC,a(SP)+

JMP

1708:

;60 TO 1508 IF NO ERROR

NOP
EMT
JSR

NOP

004736
000137

;60 TO 1908 IF ERROR

190%

;VERIFY THE RESULTS OF READ OPER ATION
PC,PRIERR
JSR
;G0 CHECK FOR PRIMARY ERRORS

040106

004736
000137

JMP

1408:

SEQ 0120

1908

sRETURN HERE 1F ERROR
sERROR # DEFINED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

;60 TO 1908 IF ERROR

;G0 VERIFY RESULTS OF DATA TRANSFER
;60 TO 1608 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;G0 TO 1908 IF ERROR

;60 CHECK FOR SECONDARY ERRORS
;60 TO 1708 IF NO ERROR

sRETURN HERE IF ERROR
sERROR # DEFINED BY SECERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS

;60 TO 1908 IF ERROR

1908
:

1500

AR A

TATEST 23

]

READ HEADER & DATA W/ AOE ERROR

—

Sgg ~
SEEH o

3737
2737
2757

001332
000036
010000

001416
001416
001442

2737
2737
2737
2737

001466
176774

001444
001412
001414
001410

—h B
s

Nwwen

§°
(=il
O—-0O

o
~N

~N
&~

026140
024146
026154
024162

001226

&»

—
e

024132

001100
001276
001464
000023

OO000

\'::\”\”\”\”:;\”z;\”:;z;z;
A= 3BIETARARS

—

il i

N
£~

N
&~

::'""..'.'.'."0"""'"'""'..'.'....'."""'l.'."'Q'.""

TST123:

102212
000073

033352

SCOPE
NOP
MOV

MOV
MOV
MOV

#STACK,SP

$BASE ,RO
TSTQUE ,R1
#23,$TESTN

:SCOPE CALL
:START OF TEST
;INITIALIZE STACK POINTER
;RO = UNIBUS ADCRESS

:(R1)

= DEVICE BEING TESTED

:sSET TEST NUMBER IN APT MAIL BOX

;SETUP PARAMETERS FOR READING 2 SECTORS STARTING WITH LAST SECTOR
MOV
LSTRK
, RMDAO
sSET LAST TRACK AND
MOVEB
#30.,RMDAO
sLAST SECTOR
MOV
#inTi6,RMOFO
;16 BIT FORMAT
20%:
MOV
#822. ,RMDCO
sLAST CYLINDER
MOV
#-258.+2 ,RMICO ;READ 2 SECTORS
MOV
#BUF TWO, RMBAO sDATA BUFFER ADDRESS
MOV
#RH'GO,RMCS10
sREAD HEADER AND DATA
; PREPARE gSVlCE FOR DATA TRANSFER
PC,TSTPRP
J
;PREPARE DEVICE FOR TEST
sTASK DESCRIPTOR AS FOLLOWS:
LWORD
154130

sSELECT DEVICE € VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NCT VALID
;VERIFY PACK ACKNOWLEDGE

CIRMNAD RMO5/3/2 FCTNL TST 2
MACRO v03.01
123
READ HEADER & DATA W/ ADE ERROR

024220
024222
026226
ozazgo

000404
000240
104000
000137

024416

1515 024232
1516 024236
1517 0264262
1518 0264246
1519 026252
1520 024256

olzrog
112722
112722
112722
112722
112722

001551
000006
000034
000032
000002
000004

}ggg 026266

112722

000200

1514 024232

1521 026262

112722

000000

1524 024272

004737

024300
024302
026304

000240
104000
000137

024416

}ggg 024314

004737
004737

037024
037722

1531 024320

004737

037110

024326
024330
024332

000240
104000
000137

024416

1534
1535 024336

004737

040106

024344
024346
024350

000240
104000
004736

026276

1525 024310

1526
1527
1528 024310

024324

;ggg 024336
024342

024352

000404

000405

000137

1536 024356
1537 024356

004737

0243664
024366
026370

000240
104000
004736

024362

024372

000405

024416

:
052622

1538 024376
1539 024376

024416

004737

040740

024404
024406
024410

000240
104000
004736

024412

1540 024416
1541

000405

000137

024416

SEQ 0121

BR
NOP
EMT
JMP

1908

MOVEB

#200,(R2)+

JSR

NOP
EMT
JMP

JRECALIBRAT EL F ."'SK I'"OR "PIP"" IS SET
BRATION
JVERIFY REC
;60 TO 308 éf NO ERROR
;RETURN HERE

#PUTINX,R2
WRMDA, (R2)+
#RMDC,(R2)+
#RMOF ,(R2)+
WRMWC.(R2)+
#RMBA. (R2)+

1308
:

308

MOV
MOVE
MOVB
MOVB
MOVB
MOVB

MOVB

037360

000137

024402

308:

E 10

11-APR-80 13:17:48 PAGE 12-49

ERROR

Fl
;ERROR # DEFINED
BY TSTPRP SUBROUTINE

;GO TO 1908 IF ERROR

;WRITE REGISTER INDEX TABLE

#RMCST,(R2)+

PC,PUT

1308
1908

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;60 TO 1308 IF NO ERROR
sRETURN HERE

ERROPR

;ERROR # DEFINED BY PUT SUBROUTINE

;G0 TO 1908 IF ERROR

;SETUP INPUT REGISTER BUFFER FOR READING STATUS
JSR
PC,GETSTS
JSR
PC.TIMOUT
;WAIT FOR READ TO COMPLETE
JSR

PC,GET

NOP
EMT
JMP

1908

1408 :

1408

;GO READ REGISTER(S) WITH GET SUBROUTINE
;G0 TO 1408 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;G0 TO 1908 IF ERROR

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

1508
:

NOP
EMT
JSR

1508

;60 TO 1508 IF NO ERROR

PC,a(SP)
¥

sERROR # DEFINED BY PRIERR SUBROUTINE
.00 BACK FOR MORE ERROR CHECKS
;60 TO 1908 IF ERROR

JSR

PC,DTASTS

NOP
EMT
JSR

PC,alSP)+

JSR

PC,SECERR

NOP
EMT
JSR

PC,a(SP)+

JMP

1608:

JMP

1708
:

JMP

1908

1608

1908

1708
1908

;RETURN HERE

ERROR

;G0 VERIFY RESULTS OF DATA TRANSFER
;60 TO 1608 IF NO ERROR
;RETURN HERE IF ERROR
sERROR # DEFINED BY DTASTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
;60 TO 1908 IF ERROR
;60 CHECK FOR SECONDARY ERRORS
;60 TO 1708 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
:60 TO 190% IF ERROR

CZRMNAD RMOS/7372 FCTNL TST 2

123

MACRO v03.01 11-APR=-80 13:17:48 PAGE 12-50

READ MEADER & DATA W/ AOE ERROR

SEQ 0122

};2§ 024416

1908 :

1544

A A A

SeTEST 24

READ INVALID SECTOR ADDRESS

;;.

024416
024416
024420
024422
024426
024432
1545 0264436

000004
000240
012706
013700
013701
012737

001100
001276
001464
000024

001226

15646 024446

012737

000000

001444

1548
1549
1550
1551

012737
012737
012737
012737

000000
101206
177376
000073

001442
001414
001412
001410

1547 024452

024460
024466
024474
024502

}ggg 024510

1554
1555 024510

024514

012737

004737

154130

‘2222222222222

T81c..

000036

033352

001416

222222222 222

SCOPE
NOP
MOV
MOV
MOV
MOV

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

MOV

#0,RMDCO

MOV
MOV
MOV
MOV

#0,RMOFO
#BUFONE ,RMBAOD
#-258. ,RMUCO
#RH'!GO,RMCS10

MOV

108:

le..RHDhO

2222222222232

222322222%

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

;TRACK = 0, INVALID SECTOR = 30.
218 BIT FORMAT
;s CHANGE BUS ADDRESS
:2 * 256 WORDS (2°'S COMmMP)
JREAD HEADER AND DATA

sPREPARE 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
JVERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE

VOLUME

JVERIFY PACK ACKNOWLEDGE

024516
0264520
024522
024526
}22? 024530

000404
000240
104000
000137

024760

1558
1559 024530
1560 024534
1561 024540

012702
112722
112722

001551
000006
000034

1563 024550
1564 024556

112722
112722

000002
000004

1562 024544 112722 000032
1565 024560

112722

208:

024576
024600
024602
}2?8 024606

000240
104000
000137

024760

004737
004737

u37024
037722

1571
1572 024606
1573 024612

000404

90%

MOVB

#RMOF
. (R2)+

MOVB

#RMCST,(R2)+

MOVB
MOVB

000000

004737

024576

208

VALID

;RECALIBRATE IF ''SKI'' OR 'PIP'" IS SET
JVERIFY RECALIBRATION
160 TO 208 IF NO ERROR
;RETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
160 TO 908 IF ERROR

JSETUP AND EXECUTE READ HEADER AND DATA COMMAND
MOV
#PUTINX,R2
;LOAD REGISTER INDEX TABLE
MOVB
#RMDA, (R2)+
MOVB
#RMDC.(R2)+

ggmm:muwwo
1568 024570

BR
NOP
EMT
JMP

NGT

MOVB

037360

JSR

BR
308 :

NOP
EMT
JMP

#RMWC.(R2)+
WRMBA.(R2)+

#200,(R2)+

;SET TERMINATOR BYTE

PC,PUT

;60 WRITE REGISTER(S) WITH PUT

90%

;RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
:60 TO 90% IF ERROR

30$

260 TO 308 IF NO ERROR

JSETUP INPUT REGISTER BUFFER FOR READING STATUS
JSR
PC,GETSTS
JSR
PC,TIMOUT
JWALIT FOR COMMAND TO (OMPLETE

SUBROUTINE

CIRMNAO RMO5/3/2 FCINL TST 2
MACRO v03.01
1264
READ INVALID SECTOR ADDRESS
1574
1575 024616

004737

6 10

11-APR-B0 13:17:48 PAGE

037110

JSR
L

NOP

024760

EMT
JMP

40%:

PC,GET

40%

024760

ON
wWNowWw
O~NN
=N
NN

70%:

001416
000037

001416

——OwWw
NN—=N
—-YNO~N
WANN =N
NNNON

024730

JSR
BR
NOP
EMT
JSR

60%:

040740

92 024736
93 024740

EMT
JSR
JMP

50%:

052622

024760

024714
024720
89 024726

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

ERROR

;ERROR # DEFINED BY GET SUBROUTINE

;60 TO 908 IF ERROR

90%

sRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
;G0 TO 908 IF ERROR

PC,DTASTS

;G0 VERIFY RESULTS OF DATA TRANSFER

NOP

1580 024654

SEQ 0123

;VERIFY RESULTS OF READ COMMAND
PC,PRIERR
JSR
;G0 CHECK FOR PRIMARY ERRORS
BR
50§
;60 TO 508 IF NO ERROR

040106

1581 024654
024660
024662

12-51

010000

001442

000037
010000
024510

001416
001442

PC,a(SP)+

60$

PC,a(SP)+

JMP

90%

JSR
BR
NOP
EMT
JSR
JMP

PC,SECERR
70%

PC,a(SP)+

90$

;60 TO 608 IF NO ERROR
;RETURN HERE IF ERROR

;ERROR # DEFINED BY DTASTS SUBROUTINE

;G0 BACK FOR MORE ERROR CHECKS

;60 TO 908 IF ERROR

;60 CHECK FOR SECONDARY ERRORS
;GO TO 708 IF NO ERROR
JRETURN HERE IF ERROR

;ERROR # DEFINED BY SECERR SUBROUT INE

;60 BACK FOR MORE ERROR CHECKS
;G0 TO 908 IF ERROR

s INCREMENT ADDRESS AND READ NEXT SECTOR
RMDAO
INC
sADVANCE SECTOR COUNT
#31. ,RMDAD
CMP
:agflf'ALL SECTORS??
80%
BHIS

BIT

#FEMT16,RMOFO

Yggl16 BIT MODE

;TRACK = 0,

JMP

#31. ,RMDAO
FEMT16,RMOFO
108

BNE
MOV
MOV

80%:

90%

;SET

STEST

INVALID SECTOR

16 BIT MODE
AGAIN.

YET

31,

IN OFFSET AND

90%:
::'."".'.."'.""""'"'"'.""""."'."l..'..l...'".""

*TEST 25
a2

15125:

024760
024760

001276
001464
000025

001226

SCOPE
NOP
MOv
MOv
MOV
MOV

000000
001332

001444
001416

MOV
MOV

001100

024774
025000

1600
1601 025006
1602 025014

READ

INVALID TRACK

ADDRESS

il 2222222 AR
R
R R
R R R0 AN RN

#STACK,SP

:SCOPE CALL
;START OF TEST
SINITIALIZE STACK POINTER

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

;RO = UNIBUS ADDRESS

LSTRK ,RMDAOD

#0,RMDCO

sCYLINDER = 0
:LOAD LAST TRACK, SECTOR = 0

:(R1)

= DEVICE BEING TESTED

::SET TEST NUMBER IN APT MAIL BOX

%SRHNAO RMOS/372 FCTNL TST 2
MACRO v03.01
5
READ INVALID TRACK ADDRESS

1603 025022
1604 025026
1605 02503¢

1606 025042

1607 025050

}ggg 025056
1610
1611 025056

025062

105;37
012737
012737

001417
010000
177376

012737

000073

004737

033352

012737

154130

101202

INCB
MOV
MOV

001442
001412

001414

001410

N 10

11=APR=80 13:17:48 PAGE 12-52

MOV
108:

MOV

RMDAO*1
WEMT16,RMOFO
#-258. ,RMWCO

#BUFONE ,RMBAO
#RH'GO,RMCS10

SEQ 0124

; INCREMENT TO FIRST INVALID TRACK
:16 BIT FORMAT
;2 + 256 WORDS (2°'S COMP)

:DATA BUFFER ADDRESS

:READ MEADER AND DATA

:PREPARE DEVICE FOR DATA TRANSFER
JSR
PC,TSTPRP
:PREPARE DEVICE FOR TEST

LWORD

154130

STASK DESCRIPTOR AS FOLLOWS:
SSELECT DEVICE & VERIFY DEVICE AVAILABLE
:CLEAR CONTROLLER §& SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE

VOLUME NOT

SVERIFY PACK ACKNOWLEDGE

025064
025066
025070
025072

000404
000240
104000
000137

025302

1615 025076
1616 025102
1617 025106
1618 025112
1619 025116
1620 025122
1621 025126

012702
112722
112722
112722
112722
112722
112722

001551
000006
000034
000032
000002
000004
000000

1624 025136

004737

037360

}g}; 025076
1614

}gg§ 025132

025142
025144
025146
025150
}ggz 025154

112722

000404
000240
104000
000137

025302

004737
004737

037024
037722

1631 025164

004737

037110

}ggg 025202

000404
000240
104000
000137

1634
1635 025202

004737

025210
025212
025214

000240
104000
004736

025206

000405

025302

040106

208
80$

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

160 TO 208 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY TSTPRP SUBROUTINE
160 T0 808 IF ERROR

JSETUP AND EXECUTE READ HEADER AND DATA COMMAND

MOV
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

000200

1627
1628 025154
}ggg 025160

025170
025172
025176
025176

208 :

BR
NOP
EMT
JMP

VALID

MOVB
JSR

308 :

BR
NOP
EMT
JMP

#PUTINX,R2
#RMDA, (R2)+
WRMDC.(R2)+
WRMOF
. (R2)+
#RMWC.(R2)+
WRMBA.(R2)+
WRMCST,(R2)+

:LOAD REGISTER INDEX TABLE

#200,(R2)+

:SET TERMINATOR BYTE

PC,PUT

;60 WRITE REGISTER(S)
WITH PUT SUBROUTINE

30$

80%

160 TO 308 IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEFINED BY PUT SUBROUTINE
160 70 80% IF ERROR

;SETUP INPUT REGISTER BUFFER FOR READING STATUS
JSR
PC,GETSTS
JSR
PC.TIMOUT
:WAIT FOR COMMAND TO COMPLETE
JSR

408 :

BR
NOP
EMT
JMP

PC,GET

80%

:60 READ REGISTER(S) WITH GET SUBROUTINE

160 TO 408 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
160 T0 80% IF ERROR

:VERIFY RESULTS OF READ COMMAND
JSR
PC.PRIERR
:6G0 CHECK FOR PRIMARY ERRORS

NOP
EMT
JSR

50$

PC.a(SP)+

:6G0 TO 508 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE
160 BACK FOR MORE ERROR CHECKS

RMOS/3/2 FCINL TST 2

MACRO v03.01

READ INVALID TRACK ADDRESS

8%3533

000137

025302

025222

004737

052622

025230
025232
025234

000240
104000
004736

000137

025302

025262

004737

040740

025250
025252
0252564
025256
025262

000240
104000
004736
000137

025262
025266
0252764
025276
025302

105237
123727
101002
000137

025226

853523

3333333383

WNN=O

025246

000405

JMP

JSR

000200

025056

;G0 TO 80% IF ERROR

PC,DTASTS

;60 VERIFY RESULTS OF DATA TRANSFER

60§

JMP

80§

PC,a(SP)+

sRETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

;G0 CHECK FOR SECONDARY ERRORS

PC,a(SP)+
80%

JRETURN HERE IF ERROR
:ERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
160 TO 80% IF ERROR

NOP
EMT
JSR
JMP

708:

80%

SEQ 0125

NOP
EMT
JSR

025302

001417
001417

110

11-APR=80 13:17:48 PAGE 12-53

:G0 TO 608 IF NO ERROR
160 TO 80% IF ERROR

70$

:G0 TO 708 IF NO ERROR

s INCREMENT ADDRESS AND READ NEXT TRACK
INCB
RMDAO+1
;ADVANCE TRACK COUNT
(MPB
RMDAO+1,#128.
:DONE ALL TRACKS??
BHI
80%
SYES!!
JMP
108
160 DO NEXT TRACK
808
:
"."t"""t't""t"'t""tt"ttlt'tt'tt'.tt.t"""t'tt'ttt.tttt

;*TEST

READ

INVALID CYLINDER ADDRESS

::'.ttllt'.ttt'l'l"'!t't'"Qtt'ttt"'t.t'tttltttttl"tttt'.'t't'

025302
025302
025304
025306
025312
025316
025322

025330
025336
025344
025352
025360
025366
025374
3

025374
025400

15126:

C00004
000240
012706
013700
013701
012737

001100
001276
001464
000026

012737
012737
012737
012737
012737
012737

001467
00C000
010000
177376
101206
000073

004737
154130

033352

SCOPE
NOP
MOV

sSCOPE CALL
:START OF TEST
JINITIALIZE STACK POINTER

001226

MOV
MOV
MOV

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

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

001444
001416
001442
001412
001414
001410

MOV
MOV
MOV
MOV
MOV
MOV

#823..RMDCO
#0,RMDAD
#FMT16,RMOFO
#-258..RMUCO
#BUF ONE ,RMBAO
#RH'!GO,RMCS10

JSTART AT FIRST INVALID CYLINDER
sTRACK = 0, SECTOR = 0
:16 BIT FORMAT
:2 + 256 WORDS (2'S COMP)
;DATA BUFFER ADDRESS
JREAD HEADER AND DATA

108:
;PREPARE

DEVICE

JSR
.WORD

FOR DATA

PC,TSTPRP
154130

TRANSFER

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:
*SELECT DEVICE & VERIFY DEVICE AVAILABLE
:CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE

VOLUME NOT VALID

JVERIFY PACK ACKNOHLQDGE

025402
025404
025406
0256410

000404
000240
104000
000137

025620

BR
NOP
EMT
JMP

208
80%

*RECALIBRATE IF ''SKI"* OR '‘PIP"*
*VERIFY RECALIBRATION

IS SET

160 TO 208 IF NO ERROR
:RETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
160 10 80% If ERROR

J 10
CIRMNAD RMO5/3/2 FCINL TST 2
MACRO v03.01 11-APR-80 13:17:48 PAGE 12-54
126
READ INVALID CYLINDER ADDRESS
}221 025414

1b¢§

1664
1665
1666
1667
1668
1669

208:

025414
025420
0256264
025430
0256434
025640

012702
11272%
112722
112722
112722
112722

001551
000006
000034
000032
000002
000004

}g;; 025450

112722

000200

1673 0254564

004737

025462
025464
025466
}g;g 025472

000240
104000
000137

025620

004737

037024

1670 025444

025460

1676
1677 025472

112722

000404

000000

004737

037722

1680 025502

004737

037110

1683
1684 025520

025526
025526
025530
025532
02553¢

000404
000240
104000
000137

004737
000405

1685 025540
1686 025540

004737

052622

025546
025550
025552
025554

000240
104000
004736
000137

025620

004737

040740

025544

1687 025560
1688 025560

025564

025566
025570
025572

025574

}:33 025600
1691
1692 025600

1693 025606
1696 025612

000405

000240
104000
004736

000137

025620

005237

001444

023727
002002

001444

MOVB

#200,(R2)+

;SET TERMINATOR BYTE

PC,PUT

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

80$

:RETURN HERE IF ERROR
:ERROR # DEFINED BY PUT SUBROUTINE
:G0 TO 80% IF ERROR

JSR

308 :

NOP
EMT
JMP

#RMCST,(R2)+

30$

:LOAD REGISTER INDEX TABLE

:6G0 TO 308 IF NO ERROR

;SETUP INPUT REGISTER BUFFER FOR READING STATUS
JSR
PC,GETSTS

408:

JSR

PC,TIMOUT

;WAIT FOR COMMAND TO COMPLETF

JSR
BR
NOP
EMT
JMP

PC,GET

:GO READ REGISTER(S) WITH GE1

40%
80%

SUBROUTINE
:G0 TO 40$ IF NO ERROR
:RETURN MERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
:GO TO 80% IF ERROR

;VERIFY RESULTS OF READ COMMAND
JSR
PC,PRIERR
;G0 CHECK FOR PRIMARY ERRORS

040106

025620

#PUTINX,R2
#RMDA, (R2)+
W#RMDC,(RZ)+
#RMOF,(R2)+
#RMWC, (R2)+
W#RMBA,(R2)+

025620

000240
104000
004736
000137

MOV
MOVB
MOVB
MOVB
MOVB
MOVB

MOVB

037360

}2;3 025476

025506
025510
025512
025514
}23} 025520

;SETUP AND EXECUTE READ MEADER AND DATA COMMAND

508:

BR
NOP
EMT
JSR
JMP
JSR

608:

NOP
EMT
JSR
JMP
JSR

NOP
EMT
JSR
708

002000

JMP

508

PC,a(SP)+
80$

:6G0 TO 508 IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY PRIERR SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS
:G0 TO 80% IF ERROR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

PC,a(SP)+
80%

:RETURN HERE IF ERROR
:ERROR # DEFINED BY DTASTS SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS
:G0 TO 80% IF ERROR

PC,SECERR

;60 CHECK FOR SECONDARY ERRORS

PC,a(SP)+

:RETURN HERE IF ERROR
:ERROR # DEFINED BY SECERR SUBROUTINE
:6G0 BACK FOR MORE ERROR CHECKS

60$%

70$

80%

:GO TO 60% IF NO ERROR

:60 TO 708 IF NO ERROR

:6G0 TO 80$ IF ERROR

: INCREMENT ADDRESS AND READ NEXT CYLINDER
INC
RMDCO
;ADVANCE CYLINDER COUNT

CMP

BGE

RMDCO, #1024,
80$

:DONE ALL CYLINDERS??
TYES!!

SEQ 0126

K 10
CIRMNAO RMO5/3/2 FCTNL TST 2
MACRO v03.01 11-APR-B0 13:17:48 PAGE i2-55
126
READ INVALID CYLINDER ADDRESS

1695 025614
}gg? 025620

000137

025374

80%:

169‘

JMP

025620
025620
025622
025624
025630
025634
s 025640

18127:

001100
001276
001464
000027

001226

025646
025654
025662
025670
025676

012737
012737
012737
012737
012737

012737

000000
000000
010000
177376
101206

000063

001444
001416
001442
001412
001414

025712
025716
025720
025724
025726

004737
000405
104401
104000
000137

034276
063120

1710 025732
1711 025740
1712 025746

012737
012737
004737

001416
000001
036224

1715
1716 025752

004737

033352

025704

1709 025732

};}2 025752

025756

025760
025762
025764
025766
;;}g 025772

154130

026532

1719
1720 025772
1721 026000
1722 026004

012737
012762
112722

000015
001551
000006

1725 026020

112722

112722
112722

001410

000034
000032

000000

"'..

SCOPE
NOP
MOV
MOV
MOV
MOV

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

001174
001176

: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
#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
#WUH'GO,RMCS10
;WRITE HEADER AND DATA
;VERIFY THAT SECTOR IS NOT BAD

026532

000404
000240
104000
000137

1723 026010
1726 026014

FORMAT AT OFFSET

::"0".'."".""""""'""'.'0'.'..'l'"tl'l.t"'l.."

000004
000240
012706
013700
013701
012737

1708

;G0 DO NEXT SECTOR

;.".0"'"QQ""t'"""'"'0"".'...l.""Q""t""""t"."'

J*TEST 27

1700
1701
1702
1703
1704
1705
};8?

10%

SEQ 0127

108:

208:

JSR
gH
TYPE
EMT
JMP

PC,BADSCT
108
LSCTMSG

MOV
MOV
JSR

#RMDAD,$TMPO
#1,8THPY
PC,GENBUF

190%

;CALL BAD SECTOR MODULE
;60 TO 10$ IF NO ERROR
;TYPE BAD SECTOR MESSAGE
:ERROR # DEF INED BY BADSCT SUBROUTINE
;G0 TO 1908 IF ERROR
:USE SECTOR FOR DATA PATTERN
;G0 GENERATE DATA BUFFER

;PREPARE DEVICE FOR DATA TRANSFER
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TEST

WORD

30%:
001410

i
NOP
EMT
JMP

154130

308
190%

:TASK DESCRIPTOR AS FOLLOWS:
sSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE I1F VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE

;RECALIBRATE IF “'SKI'
OR "PIP'* IS SET
;VERIFY RECALIBRATION
;60 TO 30% IF NO ERROR
:RETURN HERE IF ERROR
;ERROR # DEF INED BY TSTPRP SUBROUTINE
;60 TO 1908 IF ERROR

;OFFSET DEVICE FOR WRITE
MOV
#OFFSET!GO,RMCS10
:CHANGE TO OFFSET COMMAND
MOV
#PUTINX,R2
JMRITE PUT INDEX TABLE
MOVB
#RMDA, (R2)+

MOVB
MOvVB

MOvB

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

#RMCST, (R2)+

CZRMNAD lfl05l3/2 FCINL TST 2

Te7

FORMATAT OFFSET

};gg 026024

112712

000200

1728 026030

004737

037360

026036
026040
026042
;;gg 026046

000240
104000
000137

026532

173
1732 026046
1733 026054
1734 026060
1735 026064

012737
012702
112722
112722

000063
001551
000002
000004

};gg 02607

112722

026034

1736 026070

000404

L 10

MACRO v03.01 11-APR-80 13:17:48 PAGE 12-56

MOVEB

#200, (R2)

JSR

PC,PUT

;60 Uflllg REGISTER(S) WITH PUT SUBROUTINE

1908

RETURN HERE IF ERROR
:ERROR # DEFINED BY PUT SUBROUTINE
160 T0 1908 IF ERROR

BR
35%:
001410

NOP
EMT
JMP

35¢

000000
000200

MOVB

#RMCST,(R2)+

004737
000404
000240
104000
000137

037360

JSR
BR
NOP
EMT
JMP

PC,PUT
80$

};zg 026122

004737
004737

037024
037722

1746 026126

004737

037110

1742
1743 026116

026532

026132
026134
026136
026140

000404
000240
104000
000137

026532

1749
1750 026144

004737

040106

026152
026154
026156

000240
104000
004736

};25 026144

026150
026160

000405

1751 026164
1752 026164

000137

026532

004737

052622

026172
026174
026176

000240
104000
004736

026170

026200

1753 026204
1754 026204

026210

026212
026214
026216
026220

1755 026224

000405

026532

004737

040740

000405

000240
104000
004726

000137

80$:

026532

#200,(R2)+

1908

560 WRITE REGISTER(S) WITH PUT SUBROUTINE
:GO TO 80% IF NO ERROR
JRETURN HERE 1F ERROR
JERROR # DEFINED BY PUT SUBROUTINE
160 70 1908 IF ERROR

sSETUP INPUT REGISTER BUFFER FOR READING STATUS
JSR
PC,GETSTS

908 :

JSR

PC,TIMOUT

JWAIT FOR COMMAND TO COMPLETE

J$%
BR
NOP
EMT
JMP

PC,GET
90$

;G0 READ REGISTER(S) WITH GET SUBROUTINE

1908

:6G0 TO 90$ IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
160 T0 1908 IF ERROR

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

1008:

1108:

PC,a(SP)+

JSR

PC,DTASTS

JMP

190%

1108

:60 TO 1008 IF NO ERROR

*RETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

:6G0 TO 1908 IF ERROR

560 VERIFY RESULTS OF DATA TRANSFER

:6G0 TO 1108 IF NO ERROR

NOP
EMT
JSR

PC,a(SP)+

:RETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

60 CHECK FOR SECONDARY ERRORS

PC,a(SP)+

JRETURN HERE IF ERROR
sERROR # DEFINED BY SECERR SUBROUTINE
G0 BACK FOR MORE ERROR CHECKS

JMP

NOP
EMT
JSR
120%:

1008

NOP
EMY
JSR

BR
~

000137

:60_TO 358 IF NO_ERROR

sSETUP AND EXECUTE WRITE HEADER AND DATA COMMAND AT OFFSET
MOV
#WH'!GO,RMCST10
JWRITE HEADER AND DATA COMMAND
MOV
IPUYINI R2
JWRITE REGISTER INDEX TABLE
MOVB
#RMWC, (R2)+
MOVB
#RMBA. (R2)+

112722

1739 026100
026104
026106
026110
026112
};z? 026116

:TERMINATE TABLE

JMP

1908
1208

1908

:60 TO 1908 IF ERROR

:60 TO 1208 IF NO ERROR

160 TO 1908 IF ERROR

SEQ 0128

CZRMNAO RMO5/3/2 FCTNL TST 2
Te7
FORMAT AT OFF JET
1756
1757 026224
1758 026232

012737
012702

000015
001551

1760 026242
1761 026246

1762 026252
};gz 026256

112722
112722

000034
000032

1765 026262

004737

037360

026270
026272
026274
1766 026300

000240
104000
000137

026532

026300
026306
026314
026320

012737
012737
012702
112722

000073
102212
001551
000002

1775 026330

112722

000000

1778 026340

004737

037360

026346
026350
026352

000240
104000
000137

026532

};g% 026356

004737

037722

1784 026362

004737

037110

026370
026372
026374
};gz 026400

000240
104000
000137

026532

1787
1788 026400

004737

040106

026406
026410
026412

000240
104000
004736

1759 026236

026266

1767
1768
1769
1770
1771
1772
1773

112722

000404

026344

};53 026356
1781

026366

026404

026414

1789 026420
1790 026420

0264264

026426
026430
026432

026434

112722

000404

000405

004737

052622

000240
104000
004736

000137

026532

MOVB

#RMDA, (R2)+

MOVB
MOVB

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

JSR

PC,PUT

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

1908

:RETURN HERE IF ERROR
;ERROR # DEFINED Y PUT SUBROUT INE
160 TO 1908 IF ERR

MOVB
MOVB

BR
1258
:

001410
001414

NOP
EMT
JMP

#RMDC.(R2)+
#RMOF . (R2)+

125%

:6G0 TO 1258 IF NO ERROR

sREAD HEADER AND DATA AT OFFSET
MOV
#RH'GO,RMCS10
;READ HEADER & DATA COMMAND
MOV
#BUF TWO,RMBAD
;s CHANGE BUS ADDRESS
MOV
#PUTINX,R2
‘WRITE PUT INDEX TABLE
MOVB
WRMWC, (R2)+

MOVB

#RMBA.(R2)+

MOVB

#200,(R2)+

MOVB

000200

026532

11-APR-80 13:17:48 PAGE 12=57

;OFFSET DEVICE FOR READ
MOV
0orrser'co RMCS10
:CHANGE TO OFFSET COMMAND
MOV
#PUTINX,R2
:WRITE PUT INDEX TABLE

000000
000200

000137

000405

001410

000006

1774 0263264 112722 000004
};;9 026334

MACRO v03.01

JSR

1308 :

NOP
EMT
JMP

#RMCST,(R2)+
PC,PUT

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

1908

RETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
160 TO 1908 IF ERROR

1308

:G0 TO 1308 IF NO ERROR

;WAIT FOR READ TO COMPLETE AND GET STATUS

JSR

PC,TIMOUT

JWAIT FOR READ TO COMPLETE

JSR

PC,GET

;G0 READ REGISTER(S) WITH GET SUBROUTINE

1908

*RETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
260 TO 1908 IF ERROR

- BR
1408 :

NOP
EMT
JMP

1408

160 TO 1408 IF NO ERROR

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

NOP
EMT
JSR

1508:

NOP
EMT
JSR

JMP

1508

160 TO 1508 IF NO ERROR

PC,a(SP)+

;RETURN HERE IF ERROR
;ERROR # DEFINED BY .PRIERR SUBROUTINE
;60 BACK FOR MORE ERROR Cr=CKS

PC,DTASTS

;G0 VERIFY RESULTS OF DATA TRANSFER

PC,a(SP)+

*RETURN HERE IF ERROR
SERROR # DEFINED BY DTASTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

1908

1608
1908

160 TO 190% IF ERROR

160 TO 1608 IF NO ERROR
260 T0 1908 IF ERROR

SEQ 0129

| CZRMNAO RMOS/3/2
127
FORMAT
1791
1792

JATNL TST 2
OFFSET
004737

000405

026460

1755
1796 026460

4
j
|

026464

026466
026470
026472
026474
026476
1797 026502
1798 026502
1799 026510
1800 026512
1801 026520
1802 026526

}ggz 026532

000137
004737

101206

102212
000404
000240
104000
000137
032737
001010
052737
012737
000137

JSR

;60 CHECK FOR SECONDARY ERRORS

NOP
EMT
JSR

PC,a(SP)+

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

036462

sVERIFY DATA
JSR

PC,CMPBUF

260 COMPARE WRITE, READ DATA BUFFERS

BUFTWO
180%

026532

.WORD
BR
NOP
EMT
JMP

sSTARTING ADDRESS OF READ BUFFER
GO TO 180% IF NO ERROR
RETURN HERE IF ERROR
:ERROR # DEFINED BY CMPBUF SUBROUTINE
;GO TO 190% IF ERROR

BIT
BNE
BIS
MOV

#0FD,RMOFO
190%
#0FD,RMOFO
#BUF ONE ,RMBAO
20%

170%:

JMP

.WORD

000200

001442

000200
101206
025752

001442
001414

180$:

190%:

1805

tTEST 30

t§130:

000004
000240
012706
013700
013701
012737

001100
001276
001464
000030

001226

1807
1808 026560
1809 026566
1810 026574
1811 026602
1812 026610

012737 000000
012737 000000
012737 010000
012737 177376
012737
101206

001444
001436
001442
001412
001414

}g}z 026616

012737

000062

026624

004737

034276

026632
026636
026640
1816 026644
1817 026644
1818 026652
1819 026660
}gg? 026664

104401
104000
000137

063120

012737
012737
004737
.

001416
000001
036224

026630

1822

1908

BUFONE

190%

;60 TO 1708 IF NO ERROR
:60 TO 1908 IF ERROR

sSTARTING ADDRESS OF WRITE BUFFER

DONE BOTH OFFSETS??
sYES!!
SET FORUARD OFFSET
;CHANGE DATA BUFFER

e e

e e’

IVC FORMAT TEST

2222223233333
T
IIIIIITITMTMS

026532
026534
026536
026542
026546
1806 026552

1815

1708

026532

SEQ 0130

PC,SECERR

026532
.

N 10

11-APR-80 13:17:48 PAGE 12-58

1608:

040740

000240
104000
004736

};9

MACRO v03.01

000405

001410

SCOPE
NOP
MCY
MOV
MOV
MOV

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

sSETUP PARAMETERS FOR GENERATING DATA BUFFER
MOV
#0,RMDCO
sCYLINDER = 0
MOV
#0,RMDAO
sTRACK = 0, SECTOR = 0
MOV
- IFHT16.RHOF0
:16 BIT FORMAT
MOV
#-258. ,RMWCO
;2 + 256 WORDS (2'S COMP)
MOV
#BUFONE , RMBAD
sDATA BUFFER ADDRESS

MOV

#WH ,RMCS10

sVERIFY THAT SECTOR IS NOT BAD
JSR
PC,BADSCT

027354
001174
001176

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

108:

20%:

TYPE
EMT
JMP

MOV
MOV
JSR

10§

,SCTMSG

JWRITE HEADER AND DATA

sCALL BAD SECTOR MODULE

;60 T0 108 IF NO ERROR

190%

sTYPE BAD SECTOR MESSAGE
ERROR # DEFINED BY BADSCT SUBROUTINE
160 T0 1908 IF ERROR

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

sUSE SECTOR FOR DATA PATTERN
:
;60 GENERATE DATA BUFFER

sPREPARE DEVICE FOR DATA TRANSFER

C8HNAO RM05/3/2 FCINL_TST 2
1VC FORMAT TEST

1823 026664

026670

004737

154130

MACRO v03.01 11-APR-80 13:17:48 PAGE 1"
12-59

033352

JSR

LWORD

PC,TSTPRP

154130

SEQ 0131

;PREPARE DEVICE FOR TEST

:TASK DESCRIPTOR AS FOLLOWS:

;SELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE

IF VOLUME NOT VALID

:VERIFY PACK ACKNOWLEDGE
|

|
|
|

:RECALIBRATE IF

026672
026676
026676
026700
;ggg 026704

000404

000240

104000

000137

027354

1826
1827 026704
1828 026712
}ggg 026720

012737
112737
112737

000001
000024
000200

1831 026726

004737

037360

026734
026736
026740

000240
104000
000137

027354

1834
1835 026744
1836 026752

012737
012737

000063
000000

1838 026764
1839 026770
1840 026776
1841 027000
1842 027004
1843 027010

112722
112722
112722
112722
112722
112722

000024
000006
000034
000032
000002
000004

112722

000200

;

026732

}ggg 026744

1837 026760

1844 027014

}g:g 027020

000404

012702

112722

001551

308:
001434
001551
001552

BR
NOP
EMT
JMP

1908

;VERIFY_RECALIBRATION

IS SET

;GO TO 308 IF NO ERROR
:RETURN HWERE IF ERROR
:ERROR # DEFINED BY TSTPRP SUBROUTINE
:60 TO 1908 IF ERROR

JSR

358:

NOP
EMT
JMP

PC,PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

1908

‘RETURN HERE IF ERROR
:ERROR # DEFINED BY PUT SUBROUTINE
160 TO 1908 IF ERROR

35¢

:60 TO 358 IF NO ERROR

;SETUP AND EXECUTE WRITE WEADER AND DATA COMMAND
MOV
#WH'GO,RMCS10
;WRITE HEADER AND DATA
MOV
#0,RMMR10
:RESET DIAGNOSTIC MODE

MOV

#PUTINX,R2

MOVB
MOVB
MOVE
MOVB
MOVB
MOVB

WRMMR1,(R2)+
WRMDA, (R2)+
WRMDC,(R2)+
WRMOF,(R2)+
WRMWC,(R2)+
WRMBA,(R2)+

:WRITE REGISTER INDEX TABLE

000000

MOVB
MOVB

#200,(R2)+

#RMCST,(R2)+

037360

JSR

PC,PUT

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

1908

:RETURN HERE IF ERROR
:ERROR # DEFINED BY PUT SUBROUTINE
:G0 TO 1908 IF ERROR

‘

1847 027026

004737

|
|
|
|

027032
027034
027036
}g:g 027042

000240
104000
000137

027354

1850
1851 027042

004737

037024

1854 027052

004737

037110

027060
027062
027064
1855 027070

000240
104000
000137

OR 'PIP''

;RESET VOLUME VALID BY SETTING AND RESETTING DIAGNOSTIC MODE
MOV
#DMD, RMMR10
;SET DIAGNOSTIC MODE
MOVB
WRMMR1,PUTINX
:WRITE REGISTER INDEX TABLE
MOVB
#200,PUTINX+1

001410
001434

308

''SKI"

027030

000404

}ggg 027046 004737 037722
027056

000404

027354

BR
808:

NOP
EMT
JMP

80$

;GO TO 808 IF NO ERROR

;SETUP INPUT REGISTER BUFFER FOR READING STATUS
JSR
PC,GETSTS

JSR

PC,TIMOUT

;WAIT FOR COMMAND TO COMPLETE

JSR

PC,GET

;G0 READ REGISTER(S) WITH GET SUBROUTINE

1908

:RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
:60 TO 1908 IF ERROR

BR
908:

NOP
EMT
JMP

90$

G0 TO 908 IF NO ERROR

CIRWNAD RMOS/3/2 FCINL TST 2
IVC FORMAT TEST

1856
°
1857
1858 027070

004737

027076
027100
027102

000240
104000
004736

027074

027106

000405

MACRO V03.01 11-APR-80 13:17:48 PAGE 12-60
;VERIFY RESULTS OF WRITE CUMMAND
JSR
PC,PRIERR
;G0 CHECK FOR PRIMARY ERRORS

040106

000137

027354

1859 027110
1860 027110
1861 027116
1862 027120
1863 0271%2
1864 027136
1865 027142
1866 027144
1867 027144

032737
001012
013737
013737
052737
104342

010000

001376

001376
001376
010000

001142
001140
001140

004737

040740

027152
027154
027156

000240
104000
004736

027150

027160

1868 027164
1869
1870
1871 027164

027170

000405

000137

027354

004737

033352

040100

027172
027174
027176
027200

000404
000240
104000
000137

027354

1874
1875 027204
}g;g 027212

012737
012737

000073
102212

1878 027220

004737

037360

027226
0
027232
:gzg 027236

000240
104000
000137

027354

}ggz 027242

004737

037024

1885 027246

004737

037110

027254
027256
85;532

000240
104000
000137

}g;g 027204

027224

1881
1882 027236

N§

—_—

027252

000404

037722

027354

1008:

1108:

1908

160 TO 1908 IF ERROR

BIT
BNE
MOV
MOV
BIS
EMT

#1VC,RMER2]
1108
RMER21 ,$BDDAT
RMER2] ,$GDDAT
#1VC,SGDDAT
342

;1S 1vC STATUS SET??
SYES!!
JRECEIVED STATUS FOR TYPEOUT
JEXPECTED STATUS

JSR

PC,SECERR

;G0 CHECK FOR SECONDARY ERRORS

PC,a(SP)+

JRETURN HERE 1F ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS

NOP
EMT
JSR

JMP

1208
1908

;CLEAR IVC ERROR
JSR
PC,TSTPRP

1258 :
001410
001414

:6G0 TO 1008 IF NO ERROR

PC,a(SP)+

JMP

1208
:

1008

NOP
EMT
JSR

.WORD

040100

BR
NOP
EMT
JMP

125%
1908

:RETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS

:60 TO 1208 IF NO ERROR

26O TO 1908 IF ERROR

;PREPARE DEVICE FOR TEST

STASK DESCRIPTOR AS FOLLOWS:

JCLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
160 TO 1258 IF NO ERROR
;RETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
160 T0 1908 IF ERROR

JREAD HEADER AND DATA FOR SECTOR JUST WRITTEN
MCY
#RH'GO,RMCS10
;READ HEADER & DATA COMMAND
MOV
#BUF TWO ,RMBAO
;s CHANGE BUS ADDRESS
JSR

BR
1308:

NOP
EMT
JMP

PC,PUT

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

1908

JRETURN HERE 1F ERROR
JERROR # DEFINED BY PUT SUBROUTINE
160 TO 1908 IF ERROR

1308

:G0 TO 1308 IF NO ERROR

JSETUP INPUT REGISTER BUFFER FOR READING STATUS
JSR
PC,GETSTS

JSR

PC,TIMOUT

sWAIT FOR READ TO COMPLETE

JSR

PC,GET

;G0 READ REGISTER(S) WITH GET SUBROUTINE

1908

JRETURN HERE If ERROR
JERROR # DEFINED BY GET SUBROUTINE
160 T0 1908 IF ERROR

BR
B

NOP
EMT
JMP

1408

160 TO 1408 IF NO ERROR

SEQ 0132

CIRMNAO ROS/3/2 ECTNL TST 2

130

1vC FORMAT TEST

1888

1889 027264

004737

027272
0272764
027276

000240
104000
004736

027270

027300

1890 027304
1891 osrsoa
1892 027312
1893 027314
1894 027322
1895 027330
1896 027336
1897 027340
1898 027340

027344

027346
027350
027352
1899 027354

000405

b 1

WACRO V03.01 11-APR=80 13:17:48 PAGE 12-61

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

040106

000137

027354

032737
001012
013737
013737
052737
104342

010000

001376

001376
001376
010000

001142
001140
001140

004737

000403

1608:

040740

1900

1903

1708:

:60 TO 1508 IF NO ERROR

PC,a(SP)+

BIT
BNE
MOV
MOV
BIS
EMT

#1VC,RMER2]
1608
RMER21,$BDDAT
RMERZ2] ,$GDDAT
#1VC,$GODAT
342

;1S 1VC STATUS SET??
SYES!!
JRECEIVED STATUS FOR TYPEOUT
JEXPECTED STATUS

JSR

PC,SECERR

;60 CHECK FOR SECONDARY ERRORS

PC,a(SP)+

JRETURN HERE IF ERROR
:ERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

JMP

000240
104000
004736

}383 027354

1508
:

1508

NOP
EMT
JSR

1908

1708

:RETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

160 TO 1908 IF ERROR

:G0 TO 1708 IF NO ERROR

1908 :
.':'"'.t".'l.t""""""""t'...'.t"'t'..tt""tt..""'.'Q'

;*TEST 31

FORMAT ERROR TEST

";.t""t.t".'.'t""""'"'t't.'."t""."".l"""""Qt".

027354
027354
027356
027360
027364
027370
Bas 027376

000004
000240
012706
013700
013701
012737

001100
001276
001464
000031

001226

1905
1906 027402
1907 027410
1908 027416

012737
012737
012737

000000
000000
000000

001444
001416
001442

1911 0276432
}g}% 027440

012737
012737

101206
000062

001414
001410

027446

004737

034276

0274564
027460
027462
1915 027466

104401
104000
000137

063120

012737

064620

}ggg 85;253

1914

027452

1916 027466

1917 027474
1918 027502

}3}3 027506
1921

012737

000405

012737
004737

15131

177376

001412

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

MOV

#-258.,RMUCO

:2 + 256 WORDS (2'S COMP)

MOV
MOV

#BUF ONE ,RMBAO
#WH,RMCS10

sDATA BUFFER ADDRESS
JWRITE HEADER AND DATA

JSR

PC,BADSCT

;CALL BAD SECTOR MODULE

TYPE
EMT
JMP

LSCTMSG

1808

sTYPE BAD SECTOR MESSAGE
JERROR # DEFINED BY BADSCT SUBROUTINE
160 TO 1808 IF ERROR

#ZEROS,$TMPO

JUSE ALL ZEROS DATA PATTERN

001174

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

sSETUP PARAMETERS FOR GENERATING DATA BUFFER
MOV
#0,RMDCO
;:CYLINDER = 0
MOV
#0.RMDAO
:TRACK = 0, SECTOR = 0
MOV
#0 RMOFO
118 BIT FORMAT

;VERIFY THAT SECTOR IS NOT BAD

030136
000001
036224

SCOPE
NOP
MOV
MOV
MOV
MOV

108:

001176

208:

MOV

MOV
JSR

10$

01, $THP1
PC,GENBUF

:G0 TO 108 IF NO ERROR

;G0 GENERATE DATA BUFFER

JPREPARE DEVICE FOR DATA TRANSFER

SEQ 0133

CIRMNAD RMO5/3/2 FCINL TST 2
1

FORMAT ERROR TEST

1922 027506

027512

004737

154130

033352

JSR

LWORD

PC,TSTPRP

154130

SEQ 0134

;PREPARE DEVICE FOR TEST

s TASK DESCRIPTOR AS FOLLOWS:

sSELECT DEVICE € VERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE

000404
000240

NOP

030136

000063
001551
000006
000034
000032
000002
000004
000000
000200

2882

—

— e

i i e OO

000137

027574
027600
027602
027604
027606
027612

NN
NONNNNNNNNSN
W
NNNNDNNNNO
W
N
VNN
SN

WWIIN
= OOV
~NOWVI
W
VIS

RERR

W
- OO

s e

00O

QU S

)

VOO OOOOOOOOOOVY

104000

—

00
000137

30%:
001410

030136

037024
037722

027622

037110

EMT
JMP

MOVB

MOVB
JSR

80%:

NOP
EMT
JMP

288t 81

027672

$S5SS %S5

004737
000405

040106

030136
052622

1808

VOLUME NOT VALID

G0 TO 308 IF NO ERROR
;RETURN HERE

IF ERROR

;ERROR # DEFINED BY TSTPRP SUBROUTINE

;GO TO 180% IF ERROR

WRMCST,(R2)+

#200,(R2)+
PC,PUT

80%

1808

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE
;60 TO 80$ IF NO ERROR
;RETURN HERE IF ERROR
sERROR # DEFINED BY PUT SUBROUTINE

;60 TO 180% IF ERROR

sSETUP INPUT REGISTER BUFFER FOR READING STATUS
JSR
JSR

PC,GETSTS
PC.TIMOUT

JSR
BR

PC,GET
90%

EMT
JMP

180%

NOP

030136

308

SVERIFY PACK ACKNOWLEDGE
:RECALIBRATE IF “'SKI" OR ‘PIP" IS SET
sVERIFY RECALIBRATION

;SETUP AND EXECUTE WRITE WEADER AND DATA COMMAND
MOV
#WH' GO,RMCS10
sWRITE HEADER AND DATA
MOV
#PUTINX,R2
sWRITE REGISTER INDEX TABLE
MOVB
WRMDA,{R2)+
MOVB
WRMDC.(R2)+
MOVB
WRMOF
. (R2)+
MOVB
WRMWC.(R2)+
MOVB
#RMBA.(R2)+

037360

027612
027616

333

MACRO v03.01 11-APR-80 13:17:48 PAGE 12-62

90%:

:VERIFY RESULTS OF WRITE COMMAND

;60 READ REGISTER(S) WITH GET SUBROUTINE
:60 TO 908 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE

;60 TO 180% IF ERROR

NOP
EMT
JSR

1008

;60 CHECK FOR PRIMARY ERRORS
;60 TO 1008 IF NO ERROR

PC,a(SP)+

;ERROR # DEFINED BY PRIERR SUBROUTINE
:60 BACK FOR MORE ERROR CHECXS
:60 TO 180% IF ERROR

JSR

PC,DTASTS

JSR

100%:

;WAIT FOR COMMAND TO COMPLETE

JMP

NOP
EMT
JSR

PC,PRIERR

1808

1108

PC,a(SP)+

;RETURN HERE

ERROR

;G0 VERIFY RESULTS OF DATA TRANSFER
;60 TO 1108 IF NO ERROR
;RETURN HERE

ERROR

;ERROR # DEFINED BY DTASTS SUBROUTINE

;60 BACK FOR MORE ERROR CHECKS

NIIIIISINE
SFRo&RE8H

o
NNNNNNNNN

[=l=l=lelelelel=l"]

VWALV

000137

MACRO v03.01

030136

1108:

040740

F 1
11-APR-80 13:17:48 PAGE 12-63

JMP

1808

;G0 T0 180% IF ERROR

JSR

PC,SECERR

;60 CHECK FOR SECONDARY ERRORS

NOP

EMT
JSR

030136

1208:

JMP

6 027720
7 027724
8 027732
9 027740

001442
167777
102212
000073

1 027746

037360

COM
BIC

001442
001414
001410

MOV

JSR

wnro

$83322

030136

037722

027770
027774
027776
030000
030002
968 030006

037110

-0

027764

s
e
i

1208

:60 TO 1208 IF NO ERROR

:RETURN HERE

IF ERROR

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

PC,a(SP)+

1808

:6G0 TO 1808 IF ERROR

;70 CHECK THAT "'FER'' SETS

NOP

—

SEQ 0135

;READ HEADER AND DATA FOR SECTOR JUST WRITTEN IN OPPOSITE FORMAT

VO OVOOVOO0O

P
—

—

C RMNAD RMOS5/3/ 2 FCINL T ST 2
1 1
FORMAT ERROR TES 1

030006
030012
030014

:
1308

EMT
JMP

JSR

030136

140%:

#RH'GO,RMCS10

EMT
JMP

; CHANGE BUS ADDRESS

PC,PUT

:READ HEADER © DATA COMMAND

;G0 WRITE REGISTER(S) WITH PUT SUBROUT INE

1308

:6G0 TO 1308 IF NO ERROR

:RETURN HERE

ERROR

:ERROR # DEFINED BY PUT SUBROUTINE
160 TO 1808 IF ERROR

1808

AND GET STATUS
;WAIT FOR READ TO COMPLETE

PC,GET

;G0 READ REGISTER(S) WITH GET

180%

;ERROR # DEFINED BY GET SUBROUTINE
:G0 TO 1808 IF ERROR

1408

:GO TO 1408 IF NO ERROR

:RETURN HERE

SUBROUTINE

ERROR

JVERIFY THE RESULTS OF READ OPERATION

040106

JSR

NOP

EMT
JSR

030136

1508:

001350

JMP

:60 CHECK FOR PRIMARY ERRORS

PC,a(SP)+

JERROR # DEFINED BY PRIERR SUBROUTINE
160 BACK FOR MORE ERROR CHECKS

1508

1808

ERROR

:G0 TO 1808 IF ERROR

;1S FORMAT ERROR SET??

JSR

PC,DTASTS

;60 VERIFY RESULTS OF

NOP

1608

1588

SYES!!

DATA TRANSFER

:G0 TO 1558 IF NO ERROR
:RETURN HERE

ERROR

EMT
JSR

PC,a(SP)+

:ERROR # DEFINED BY DTASTS SUBROUTINE
160 BACK FOR MORE ERROR CHECKS

MOV

RMER11,$BDDAT

:BAD DATA FOR TYPEOUT

BIS

#FER,S$GDDAT

JMP

155%:

JRETURN HERE

#FER,RMER1]

BNE

030136

:6G0 TO 1508 IF NO ERROR

BIT

001142
001140
001140

PC,PRIERR

JVERIFY THAT FORMAT ERROR IS SET

05¢622

001350
001350
000020

#BUFTWO,RMBAO

;WAIT FOR READ TO COMPLETE
JSR
PC,TIMOUT

NOP

000020

RMOF O
:CHANGE TO OPPOSITE FORMAT
#C<FMT16>,RMOFO

MOV

1808

RMER1].8GDDAT

:6G0 TO 1808 IF ERROR
:EXPECTED DATA

%i?fl“AO ?HOS/S/Z FCINL TST 2
ORMAT ERROR TEST

1983 030100
1984 030102
1985 030102

030106
030110
030112
030114
030116

1986 030122
1987 030122
1988
1989 030130
1990 030132
1991 030136
1992

MACRO v03.01

1608%:

040740

000405
000240
104000
004736
000137

030136

032737

010000

001402
000137

027432

001442

1708:

180%:

1993

EMT

343

JSR

PC,SECERR

PC,a(SP)+
180

BIT

#EMT16,RMOFO

BEQ
JMP

180%
5%

000004
000240
012706
013700
013701
012737

001100
001276
001464
000032

}ggg 030164

012737

000001

1997
1998 030172
1999 030172

2000 030200
2001 030206
2002 030214
2003 030222
sggg 030230
2006

030236

030242
030244
030250
030252
2007 030256
2008 030256
2009 030264
2010 030272
58:5 030276
2013
2014 030276
030302

012737

15132:

010000

012737
012737
012737
012737
012737

000000
000000
177376
101206
000062

004737

034276

000405
104401
104000
000137

063120

C12737
012737
004737

064620
000001
036224

004737
154130

033352

1708

:60 TO 1708 IF NO ERROR
sRETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
;GC BACK FOR MORE ERROR CMECKS
;60 TO 1808 I1F ERROR

A A

;*TEST 32

;60 CHECK FOR SECONDARY ERRORS

I
NOP
EMT
JSR
JMP

030136
030136
030140
030142
030146
030152
- 030156

12-64
SEQ 0136

104343
004737

11-APR=-80 13:17:48 PAGE

sTEST WRITE 16 BIT FORMAT AND
;READ 18 BIT MODE ?
sBR IF YES
sTEST AGAIN

I mmMmMmmTmT

FORMAT HCE, FIRST HEADER WORD
s

e e e

. I mnmmmmmmmmTTMT

001226

SCOPE °
NOP
MOV
MOV
MOV
MOV

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

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

031134

MOV

#1,230%

JINIT BIT POSITION

001442

001444
001416
001412
001414
001410

031306
001174
001176

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

MOV
MOV
MOV
MOV
MOV

#0,RMDCO
#0,RMDAO
l-éSG..RHUCO
#BUFONE ,RMBAO
#WH ,RMCST10

sVERIFY THAT SECTOR IS NOT BAD
JSR
PC,BADSCT
8R
20%
TYPE
.SCTMSG
EMT
JMP
270%
20%:
MOV
#ZEROS,$TMPO
MOV
(A ALIA)
JSR
PC,GENBUF
308:

sCYLINDER = 0
sTRACK = 0, SECTOR = 0
;2 + 256 WORDS (2'S COMP)
sDATA BUFFER ADDRESS
sWRITE HEADER AND DATA

sCALL BAD SECTOR MODULE

:6G0 TO 208 IF NO ERROR
:TYPE BAD SECTOR MESSAGE
sERROR # DEFINED BY BADSCT SUBROUTINE
;GO TO 270% IF ERROR
sUSE ALL ZEROS DATA PATTERN

;60 GENERATE DATA BUFFER

sPREPARE DEVICE FOR DATA TRANSFER
JSR
PC,TSTPRP
+PREPARE DEVICE FOR TEST
.WORD
154130
sTASK DESCRIPTOR AS FOLLOWS:
sSELECT DEVICE & VERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE

VOLUME NOT

;VERIFY PACK ACKNOWLEDGE

VvALID

RMNAO RMO5/37/2 FCTNL TST 2

FORMAT WCE, FIRST HEADER WORD

H 11
11-APR=-B0 13:17:48 PAGE 12-65

SEQ 0137

:RECALIBRATE IF ''SKI'' OR "PIP"* IS SET
000404
000240
104000

NOP

EMT

000137

031306

033737

03113¢

101206

031134

101206

031134

101206

40%:

JMP

408
2708

:VERIFY RECALIBRATION

160 TO 408 IF NO ERROR

*RETURN MERE

ERROR

*ERROR # DEFINED BY TSTPRP SUBROUT
INE

260 10 2708 IF ERROR

; COMPLEMENT DATA BIT IN FIRST HEADER WORD
BIT

2308 ,BUF ONE

;1S BIT

g;c

gggs.aurone

CRESET BIT

BIS

230% ,BUF ONE

BEQ

S08:

508

INO!!

;SET BIT

IN HEADER ON??
IN HEADER

IN HEADER

2040 030430
2041 030434
2042

2043 030440
030444

000063
001551
000006
000034
000032
000002
000004
000000
000200

—
il i i SNi T
e SRetSR
OOY
R
(=]

éggTUP AND EXECUTE WRITE HEADER AND DATA COMMAND

g ...°8

MACRO v03.01

001410

037024
037722

04C106

031132
052622

MOVB
MOVB

#RMDA, (R2)+
WRMDC.(R2)+

MOVB
MOVB
MOVB
JSR

PC,PUT

NOP
EMT

70%:

#PUTINX,R2

WRMOF.(R2)+
#RMUC, (R2)+
#RMBA, (R2)+
#RMCST,(R2)+
#200,(R2)+

MOvVB
MOvVB

JMP

70$

220%

sWRITE HEADER AND DATA
JWRITE REGISTER

INDEY

TABLE

;60 WRITE REGISTER(S) WITH PUT

:6G0 TO 708 IF NO ERROR

;RETURN HERE IF ERROR
:ERROR # DEFINED BY PUT

;60 TO 220% IF ERROR

SUBROUTINE

;SETUP INPUT REGISTER BUFFER FOR READING STATUS

037110

031132

#WH'GO,RMCSTO

MOV

037360

031132

MOV

JSR
JSR

PC,GETSTS
PC.TIMOUT

JSR

PC,GET

NOP
EMT

80%:

JMP

80%

2208

;VERIFY RESULTS OF WRITE COMMAND
JSR

BR
-

NOP
EMT
JSR

JMP
JSR

NOP
EMT

:WAIT FOR COMMAND TO COMPLETE
:60 READ REGISTER(S) WITH GET

160 TO 80% IF NO ERROR

;RETURN HERE IF ERROR
*ERROR # DEFINED BY GET

160 T0 2208 IF ERROR

SUBROUTINE

PC,PRIERR

;60 CHECK FOR PRIMARY ERRORS

PC,a(SP)+

:RETURN MERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE
160 BACK FOR MORE ERROR CMECKS

PC,DTASTS

;60 VERIFY RESULTS OF DATA TRANSFER

90%

2208

1008

:6G0 TO 908 IF NO ERROR
:G0 TO 220% IF ERROR

160 TO 1008 IF NO ERROR

:RETURN HERE IF ERROR
“ERROR # DEFINED BY DTASTS SUBROUTINE

anqu RMOS5/372 FCINL TST 2
FORMAT

MACRO v03.01 11-APR=80

WINNININ)
= — s

NOOC SO

j=l=lelelelelel]

MCE, FIRST MEADER WORD

2052 030536
2053
2054
2055 030536
2056 030544
2057
2058 030552
030556
030560
030562
030564
2059 030570
2060
2061
2062 030570
2063
2064 030574
030600
06
2065 030612
2066
2067
2068 030612

004736
000137
004737
000405
000240

031132

PC,a(SP)+

2208

;60 BACK_FOR MORE ERROR CHECKS
;60 TO 2208 IF ERROR

JSR

PC,SECERR

;60 CHECK FOR SECONDARY ERRORS

PC,a(SP)+

sRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK_FOR MORE ERROR CHECKS
;60 TO 220% IF ERROR

012737
012737

000073
102212

004737
000404
000240

037360

000137

031132

004737

037722

004737
000404
000240
104000
000137

037110

031132

004737

040106

EMT

JSR
110%:

JMP

JSR

NOP
EMT

120%:

2073 030650
2074
2075
2076 030652
2077 030660
2078
2079 030662

0666

JMP

JSR

NOP
EMT

130%:

JMP

JSR

140000

031134

032737
001456

010000

031134

032737
001107

000020

004737

052622

1208

220%

PC,GET

1308

220%

001350

1640%:

001142

1408

PC,a(SP)+

BIT
BNE
BIT
BEQ

#MSE 'USE , 2308
1608
#FEMT16,2308
180%

JMP

2208

:VERIFY THAT FER 1S SET

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;60 TO 1208 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;60 TO 220% IF ERROR

;GO READ REGISTER(S) WITH GET SUBROUTINE

;60 TO 1308 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;60 TO 220% IF ERROR

;G0 TO 140% IF NO ERROR
:RETURN HERE IF ERROR

sERROR # DEFINED BY PRIERR SUBROUTINE
.60 BACK FOR MORE ERROR CHECKS
;60 TO 220% IfF ERROR
;SHOULD BSE BE

SET

;1S THIS FER 2?2

INO

#FER,RMER]

200%

JSR

PC,DTASTS

;G0 VERIFY RESULTS OF

BNE

150%:

;G0 CHECK FOR PRIMARY ERRORS

BIT

031132

PC,PRIERR

EMT
JSR

NOP

001350

PC,PUT

;VERIFY THE RESULTS OFf READ OPERATION

032737,

013737

2208

;60 TO 1108 IF NO ERROR

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

031132

001033’

1108

;READ HEADER AND DATA FOR SECTOR JUST WRITTEN
MOV
#RH'GO,RMCSTO
;READ HEADER & DATA COMMAND
MOV
#BUF TWO, RMBAO
: CHANGE BUS ADDRESS

NOP

6
2069 030632
2070 030632
2071 030640
2072 030642

SEQ 0138

JSR

JMP
NOP

104000
004736
000137

104000

1008:

040740

B
80 13:17:48 PAGE 12-66
13:17:

1508

;1S FER SET 22
1!

DATA TRANSFER

;60 TO 1508 IF NO ERROR

:RETURN HERE

ERROR

EMT
JSR

PC,a(SP)+

:ERROR # DEFINED BY DTASTS SUBROUTINE
;G0 BACK _FOR MORE ERROR CHECKS

MOV

RMER1],$BDDAT

SRECEIVED STATUS

JMP

2208

;60 TO 2208 IF ERROR

RMNAQ RMO5/3/2 FCTNL TST 2

FORMATY "(E. FIRST HEADER WORD

030710
2085 030726
2086
2087
2088 030730
2089 030730
2090 030736
2091
2092 030740
030744

030754
2093 030760

032737
001060

100000

004737
000405
000240
104000
004736
000137

052622

013737
013737
052737
104345
000452

OO0
W

001376

031132

:
1708

001376
001376
100000

000200

001350
001350
000200
000001
03113¢

e
e

‘603:

;1S BSE SET ??
sVES !!

JSR

PC,DTASTS

NOP
EMT
JSR

PC,a(SP)+

2208

;GO VERIFY RESULTS OF DATA TRANSFER
;60 TO 1708 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;60 BACK_FOR MORE ERROR CMECKS
;60 TO 220% IF ERROR

MOV
MOV

RMER21,$BDDAT
RMER2] ,$GDDAT

sRECEIVED STATUS
SEXPECTED STATUS

EMT
BR

345
2208

:SKIP REST OF

JMP

N~
§;o~a-

<>l~hoc>siigig

i
i

040740

oro

i
i
—

031132

006337
001404
000137

031134

030172

1708

#BSE
, SGDDAT

sVES!!

JSR

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER
;60 TO 1908 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;60 BACK_FOR MORE ERROR CHECKS

1908

EMT
JSR

PC,a(SP)+

MOV

RMER11,$BDDAT

JMP

BIS

2208

RMER1],$GDDAT

#HCE ,SGDDAT

MOV

#1,$TMPO

EMT

344
220%

MOV

2308, $TMP1

:CHECK FOR OTHER ERRORS
J$
PC,SECERR

NOP
EMT
JSR

sADVANCE

:1S "WCE'" SET??

2008

MOV

210%:

TEST

BNE

001142
001140
001140
001174
001176

IS SET

#BSE ,RMER2]
2008

200%:

[ VT

—s
s
-

343

:VERIFY THAT WCE 1S SET
180%:
BIT
#HCE ,RMER1]

1908:

JEXPECTED STATUS

BIT
BNE

BIS

001350

SEQ 0139

220%

THAT BSE

031132

#FER,SGDDAT

EMT

NOP

RMER11,$GDDAT

BIS

VERIFY

R
D

(VI I

MOV

052622

i
— o

J 11

a
13:17:48 PAGE 12-67
80 13:17:

032737
001031

(VI IV IV TV TP V)

—

11-APR-80

001140
001140

IV [V TV TV LV T TV

OO0O0O0O00O00000O
(=lelelelelele]

\fl>\hJ~U“U-‘CJ30l‘iS!

D
s
e
e
) e
D
e
e
e
—

Bet TM 1= L = ]

NONRONON)
=
W)
= OOV

SIS LN ST NT NT NI ST NT N1, ST ¥

—, e

rororoNONON

(=lele]

OO0oOo
W

031004

001350
000020

MACRO v03.01

JMP

THE
ASL

BEQ
JMP

2108

PC,a(SP)+

2208
:

;60 TO 2208 IF ERROR

;RECEIVED STATUS FOR TYPEOUT
JEXPECTED STATUS

;GET WEADER WORD NUMBER
:GET FAILING BIT POSITION

;G0 CHECK FOR SECONDARY ERRORS

;60 TO 2108 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
:60 BACK_FOR MORE ERROR CHECKS
;G0 TO 2208 IF ERROR

Bszgggl‘lON AND FORMAT

2408
108

AGAIN IF

NOT

DONE

sSHIFT TO NEXT BIT POSITION
SEXIT IF DONE
260 DO NEXT SECTOR

gg*"~*° RMOS/3/2 FCTNL TST 2

MACRO v03.01

FORMAT HCE, FIRST HEADER WORD

124

5125 031132 000465
%}%9 031134

2208:

000000

K11

11-APR=80 13:17:48 PAGE 12-68

230%:

.WORD

270%

SEQ 0140

sJUMP TO NEXT TEST

JSTORAGE FOR BIT POSITION

2128

2129

s*REFORMAT SECTOR THAT WAS WRITTEN WITH BAD HEADER

2130

2131 031136

2132 031136
2133 031146
2136 031152
2135 031160
%}gg 031166

012737
012737
012737
012737
004737

010000
177776
101206
000062
036224

2138 031172
031176

004737
154130

033352

001442
001412
001414
001410

2408:

R R

R R R R

R R

Ty Y

R RS LI

MOV
MOV
MOV
MOV
JSR

#EMT16,RMNOFO
#-2,RMUCO
#BUFONE ,RMBAO
#WH,RMCST10
PC,GENBUF

;16 BIT MODE
JONLY TWO MEADER WORDS
;SELECT THE BUFFER
JWRITE HEAD AND DATA COMMAND
sGENERATE THE BUFFER PATTERN

JSR
.WORD

PC,TSTPRP
154130

sPREPARE DEVICE FOR TEST
sTASK DESCRIPTOR AS FOLLOWS:
sSELECT DEVICE €& VvERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT
JVERIFY PACK ACKNOWLEDGE

VALID

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

|
|
|
1
|
|
}

|
i
i

|
|

031200
031202
031204
031206

000404
000240
104000
000137

031212

21640 031212
2141 031220
2142 031226
2163 031230

012737
012702
112722
112722

000063
001551
000006
000034

2139 031212

2144 031236
2145 031240
21646 031244

112722
112722
112722

000032
000002
000004

2148 0312564
2149 031260

112722
004737

000200
037360

031266
031270
031272
2150 031276
215 031276
2152 031300
2153 031304
%}gg 031306

000240
104000
000137

2147 031250

031264

112722

000404

000240
004737
000240

001410

2508
:

000000

031306

BR
NOP
EMT
JMP

250%

MOV
MOV
MOVB
MOvVB
MOVB
MOVB

#WH!GO,RMCST10
#PUTINX,R2
#RMDA, (R2)+
#RMDC, (R2)+

MOVB

WRMCST,(R2)+

037722

;SET THE GO BIT
sPUT THE REGISTER ADDRESS INTO TABLE

MOVB

#RMOF
, (R2)+
FRMWC, (R2)+
#RMBA, (R2)+

MOvB
JSR

#200,(R2)+
PC,PUT

sTERMINATOR
;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

270%

JRETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
;60 TO 270% IF ERROR

PC,TIMOUT

JWAIT UNTIL IT FINISH

BR
260%:

250%

sVERIFY RECALIBRATION
;G0 TO 2508 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY TSTPRP SUBROUTINE
;60 TO 2508 IF ERROR

NOP
EMT
JMP

NOP
JSR

2608

:60 TO 2608 IF NO ERROR

270%:

2156

L
T R
R R
R Y

s*TEST 33

FORMAT HCE, SECOND HEADER WORD

R PR
R
Y

031306
031306
031310
031312
031316
031322

000004
000240
012706
013700
013701

1ST133:
001100
001276
001464

SCOPE
NOP
MOV
MOV
MOV

#STACK,SP
$BASE RO
TSTQUE R

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

’

CIRMNAD RMOS/3/2 FCTNL TST 2

MACRO v03.01

FORMAT HCE, SECOND HEADER WORD

11-APR-B0 13:17:48 PAGE 12-69

SEQ 0141

" 031326

012737

000033

001226

MOV

#33,8$TESTN

::SET TEST NUMBER IN APT MAIL BOX

g}gg 031334

012737

000001

032130

MOV

#1,1908

;INIT BIT POSITION

2160

2161 031342

2162 031342
2163 031350
2164 031356
2165 031364
2166 031372
g}g; 031400

:SETUP PARAMETERS FOR GENERATING DATA BUFFER

012737
012737
012737
012737
012737
012737

000000
000000
010000
177376
101206
000062

031406

004737

034276

031414
031420
031422
2170 031426
2171 031426
2172 031434
2173 031442
g};g 031446

104401
104000
000137

063120

012737
012737
004737

064620
000001
036224

004737
154130

033352

2169

031412

2176
2177 031446
031452

000405

001444
001416
01442
001412
001414
001410

i0s:

MOV
MOV
MOV
MOV
MOV
MOV

#0,RMDCO
#0 . RMDAO
#FMT16,RMOFO
#-258. ,RMUCO
#BUFONE ,RMBAO
#WH,RMCS10

sVERIFY THAT SECTOR IS NOT BAD
JSR
PC,BADSCT

032302
001174
001176

20$:

308 :

TYPE
EMT
JMP

MOV
MOV
JSR

20$

,SCTMSG

2308
#ZEROS,$TMPO
#1,8TMP
PC,GENBUF

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

260 TO 208 IF NO ERROR

sTYPE BAD SECTOR MESSAGE
JERROR # DEFINED BY BADSCT SUBROUTINE
160 TO 2308 IF ERROR
sUSE ALL ZEROS DATA PATTERN

;GO GENERATE DATA BUFFER

;PREPARE DEVICE FOR DATA TRANSFER
JSR
PC,TSTPRP
;PREPARE DEVICE FOR TEST
.WORD
154130
;TASK DESCRIPTOR AS FOLLOWS:
*SELECT DEVICE & VERIFY DEVICE AVAILABLE
:CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE

031454
031456
031460
s 031462

2179
2180 031466

2181 031466
2182 031474
2183 031476
2184 031504
g}gg 031506
2187
2188 031514

2189 031514
2190 031522
2191 031526
2192 031532
2193 031536
2194 031542
2195 031546

000404
000240
104000
000137

033737
001404
043737
000403
053737

012737
012702
112722
112722
112722
112722
112722

BR
NOP
EMT
JMP

032302

032130

101210

032130

101210

032130

101210

000063
001551
000006
000034
000032
000002
000004

001410

40%

2308

VOLUME NOT

VALID

;VERIFY PACK ACKNOWLEDGE
:RECALIBRATE IF ''SKI'' OR 'PIP'" IS SET
JVERIFY RECALIBRATION
160 TO 408 IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBRCUTINE
160 TO 2308 IF ERROR

;COMPLEMENT DATA BIT IN SECOND HEADER WORD
408:
BIT
190$,BUFONE+2
;1S BIT IN HEADER OW??
BEQ
508
-~
INO!!
BIC
1908 ,BUFONE+2
:RESET BIT IN HEADER
BR
60%
508:
BIS
1908 ,BUFONE+2
;SET BIT IN HEADER

;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
608:
MOV
#WH'GO,RMNCS10
JWRITE HEADER AND DATA
MCV
#PUTINX,R2
~ ;WRITE REGISTER INDEX TABLE
MOVB
#RMDA, (R2)+
MOVB
#RMDC.(R2)+
MOVB
#RMOF
. (R2)+
MOVB
#RMWC.(R2)+
MOVB
#RMBA.(R2)+

CZRMNAO RMOS/3/2 FCTNL TST 2
MACRO v03.01 11-APR=-80 13:17:48 PAGE 12-70
133
FORMAT WCE, SECOND HEADER WORD

2196 031552

112722

000000

g}gg 031556

112722

000200

2199 031562

004737

037360

031570
031572
0315764
%%8? 031600

000240
104000
000137

032126

2202
2203 031600
%ggg 031604

004737
004737

037024
037722

2206 031610
031614
031616
031620
031622

004737
000404
000240
104000
000137

037110

2209
2210 031626
031632
031634
031636
031640

004737
000405
000240
104000
004736

040106

031566

gggg 031626

031642

2211 031646
2212 031646
031652
031654
031656
031660

031662

000404

000137

032126

004737
000405
000240
104000
004736

052622

2213 031666
2214 031666

032126

004737

040740

031674
031676
031700

000240
104000
004736

031702

000405

000137

032126

2217
2218 031706
gg;g 031714

012737
012737

000073
102212

2221 031722

004737

037360

031730
031732
031734
gggg 031740

000240
104000
000137

53}2 031706

031726

2224
2225 331740

000404

004737

708 :

WRMCS1,(R2)+

#200,(R2)+

JSR

PC,PUT

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

1808

*RETURN HERE IF ERROR
:ERROR # DEFINED BY PUT SUBROUTINE
160 T0 1808 IF ERROR

NOP
EMT
JMP

70§

:6G0 TO 70% IF NO ERROR

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

032126

000137

031672

MOVB

808 :

JSR
BR
NOP
EMT
JMP

JVERIFY RESULTS
JSR
BR
NOP
EMT
JSR

908
:

1008:

JMP

OF WRITE COMMAND
PC,PRIERR
;G0 CHECK FOR PRIMARY ERRORS
90$
:6G0 TO 90 IF NO ERROR
:RETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE
PC,a(SP)+
;G0 BACK FOR MORE ERROR CHECKS

1808

:6G0 TO 180$ IF ERROR

PC,DTASTS
1008

;GO VERIFY RESULTS OF DATA TRANSFER
160 TO 1008 IF 'O ERROR
‘RETURN HERE If ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

PC,9(SP)+

1807,

:6G0 TO 180$% IF ERROR

JSR

PC,SECERR

:60 CHECK FOR SECONDARY ERRORS

PC,a(SP)+

JRETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
160 BACK FOR MORE ERROR CHECKS

JMP

NOP
EMT
JSR

001410
001414

1808

;60 READ REGISTER(S) WITH GET SUBROUTINE
:6G0 TO 80% IF NO ERROR
JRETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
160 70 180$ IF ERROR

JSR
BR
NOP
EMT
JSR

1108:

PC,GET
80$

JMP

1108

1808

:G0 TO 1108 IF NO ERROR

:60 TO 1808 IF ERROR

;READ HEADER AND DATA FOR SECTOR JUST WRITTEN
MOV
#RH'GO,RMCST0
;READ HEADER & DATA COMMAND
MOV
#BUF TWO,RMBAO : CHANGE BUS ADDRESS
JSR

NOP
EMT
JMP

PC,PUT

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

180%

*RETURN HERE IF ERROR
:ERROR # DEFINED BY PUT SUBROUTINE
160 T0 1808 IF ERROR

1208

:6G0 TO 1208 IF NO ERROR

032126
-

1208:

037722

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

SEQ 0142

|
CZRMNAO RMOS/3/2 FCTNL TST 2
MACRO V03.01
133
FORMAT HWCZ, SECOND HEADER WORD

335? 031744 004737 037110
031750

031752

JSR

000404

NOP

031736 000137 032126

gggg 031762

004737

031770
031772
031776

000240
104000
004736

031766 000405

040106

031776

000137

032126

2235 032002

032737

000200

2238 032012

004737

052622

032020
032022
0320246

000240
104000
004736

%ggg 032002
2234

gggg 032010

032016

032026

2239 032032
2240 032032
2241 032040
2242 0320646
2243 032056

2244 032062

001031

009405

000137

032126

013737
013737
052737
012737

001350
001350
000200
000002

013737

2245 032070
2246 032072
2247 032074
2248
2249
2250 032074

104344
000415

032102
032104
032106

000240
104000
004736

032100

032110

5325 032114

004737

000405

000137

032130

1308 :

NOP
EMT
JSR

1408 :
001350

2258 032126
%523 032130

000465
000000

JMP

1308

1808

001142
001140
001140
001174

aés

PC,a(SP)+

1808

BIT

#HCE ,RMER1 ]

JSR

PC,DTASTS

BNE

1508:

001176

1608

1508

NOP
EMT
JSR

PC,a(SP)+

MOV
MOV
BIS
MOV

RMER11,$BDDAT
RMER11,$GDDAT
#HCE, $GDDAT
#2,$TMPO

EMT

344
1808

JMP

MOV

1808

196$ $TMPI

:CHECK FOR OTHER ERRORS
JSR
PC,SECERR

040740

032126

031342

PC,GET

;60

RE READ REGISTER(S)
TE
ul 1 H GET SUBROUTINE

160 70 1308 IF NO ERROR
‘RETURN HERE IF ERROR

160710 1808
1r CRRORC. UBROUTINE

NOP
EMT
JSR

1708 :

:G0 TO 1408 IF NO ERROR

:RETURN HERE IF ERROR
:ERROR # DEFINED BY PRIERR SUBROUTINE
:60 BACK FOR MORE ERROR CHECKS

160 TO 1808 IF ERROR

JVERIFY THAT HEADER COMPARE ERROR IS SET

1608:

2254 032114 006337 032130
001404
000137

SEQ 0143

:VERIFY THE RESULTS or READ OPERATION
JSR
ERR
;G0 CHECK FOR PRIMARY ERRORS

2253

2255 032120
gggg 032122

000240

2230
2231 031762

11-APR-80 13:17:48 PAGE 12-71

JMP

1708

PC,a(SP)+

1808

;1S "HCE' SET?2?
SYES!!

;60 VERIFY RESULTS OF DATA TRANSFER

360 TO 1508 IF NO ERROR

*RETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS

160 TO 1808 IF ERROR

JRECEIVED STATUS FOR TYPEOUT
:EXPECTED STATUS
:GET HEADER WORD NUMBER

JGET FAILING BIT POSITION

;60 CHECK FOR SECONDARY ERRORS

:60 T0 1708 1F NO ERROR ____._

‘RETURN-HERE- 1§ ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
160 BACK FOR MORE ERROR CHECKS

260 TO 1808 IF ERROR

;ADVANCE THE BIT POSITION AND FORMAT NEXT SECTOR IF NOT DONE

ASL

1808:
1908:

BEQ
JMP

200%
108

190$%

:SHIFT TO NEXT BIT POSITION

BR
.WORD

230%
O

:JUMP OVER STORAGE
:STORAGE FOR BIT POSITION

CEXIT IF DONE
160 DO NEXT SECTOR

226‘

::l'ttlt.t'ttttttt"tt't"tt'ttttttltt.tt!t't'tl'ttttttt'ttttttl.

2262

;*REFORMAT SECTOR THAT WAS WRITTEN WITH BAD HEADER

2263

.'.'ttlltt.t'ttt'ttt"t"t't't'lt'tttt.tttt'ttttttt"ttittt'tt'tltl

e
| SJRMNAD
RMOS/3/2 FCTAL TST 2
| T

'
g
g
WACRO
V03.01
11-APR-B0
13:17:48
PAGE
1872
FORMAT MCE, SECOND HEADER WOR

|
|

%%66 03 1;5
65 032132

012737

010000

%%93 032162

004737

036224

L
|
|

2266 032140
2267 032146
2268 032154

2271 032166

032172

01%7 7
012737
012737

004737

154130

177776
101206
000062

001445

2008:

00141
001414
001410

MOV

#EMT16,RMOFO

JSR

PC,GENBUF

MOV
MOV
MOV

033352

JSR

.WORD

:2 HEADER WORDS ONLY
:BUFFER ADDRESS
:WRITE HEAD AND DATA COMMAND

PC,TSTPRP

;PREPARE DEVICE FOR TEST

154130

:TASK DESCRIPTOR AS FOLLOWS:

sSELECT DEVICE & VERIFY DEVICE AVAILABLE
;PACK ACKNOWLEDGE

000404
000240
104000
000137

032206

012737
012702
112722
112722
112722
112722
112722

000063
001551
000006
000034
000032
000004
000002

2281 032250

112752

2280 032244

112722

000000

2282 032254

004757

037360

032262
032264
032266

000240
104000
000137

032260

i
.
|
.

:SET UP THE BUFFER

:CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION

032176
032176
032200
032202
2272 032206
2273 032206
2276 032214
2275 032220
|
2276 032226
2277 032230
.
2278 032234
2279 032240

;16 BIT MODE

#-2,RMUCO
#BUFONE ,RMBAO
#WH,RMCS10

z
?

SEQ 0144

2283 032272

2284 032272

2285 032274
2286 032300
2287 032302
2288

000404

000240
004737
000240

001410

2108
:

037722

MOVB

#200,(R2)+

2208

NOP
EMT
JMP

NOP
JSR

2308:

2108

#WH!GO,RMCS10
#PUTINX,R2
#RMDA, (R2)+
#RMDC,(R2)+
W#RMOF,(R2)+
W#RMBA,(R2)+
#RMWC, (R2)+

JSR

2208:

2108

MOV
MOV
MOVB
MOVB
MOVB
MOVB
MOVB

MOVB

000200

032302

BR
NOP
EMT
JMP

#RMCST,(R2)+

PC,PUT

IF VOLUME NOT VALID

:VERIFY PACK ACKNOWLEDGE
:RECALIBRATE IF "'SKI' OR 'PIP'' IS SET
:VERIFY RECALIBRATION
:G0 TO 2108 IF NO ERROR
:RETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
160 T0 2108 IF ERROR

;SET GO BIT
:TABLE ADDRESS

; TERMINATOR

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

:60 TO 2205 IF NO ERROR

2308

JRETURN HERE IF ERROR
:ERROR # DEFINED BY PUT SUBROUTINE
:6G0 TO 2308 IF ERROR

PC,TIMOUT

;WAIT FOR TIME 0UT

CIZRMNAO RMO5/3/2 FCTNL TST 2

END OF SUB=PASS ROUTINE

MACRO v03.01 11-APR-B0 13:17:48 PAGE 11i

.SBTTL

SEQ 0145

END OF SUB=PASS ROUTINE

;THIS
1S THE END OF SUB-PASS ROUTINE. THIS ROUTINE 1S USED TO
;TERMINATE THE OPERATION OF THME CURRENT DEVICE UNDER TEST AND

;

;1S MADE TO 'READY' ROUTINE.

S
6

;SELECT THE NEXT DEVICE FOR TEST. IF THERE ARE NO MORE DEVICES
;70 TEST, EXIT IS MADE TO 'SEOP' ROUTINE. OTHERWISE, RETURN

9 032302
10 032304

000004
000240

14 032322

005710

11 032
12 032312
13 032316
15 032324

16 032326
17 032332

013700
062700
010037
oo14o§

000137

012737

$SEOSP:
001464
000002
001464

056756

001466

SCOPE
NOP
MOV
ADD
MOV

TSTQUE ,RO
#2,R0
RO, TSTQUE

;GET POINTER TO TSTQUE
:ADJUST POINTER TO NEXT DEVICE
:SAVE POINTER TO TSTQUE

BEQ

:BR IF NO

001464

JMP

(rG)

SHUT

18:

MOV

#TSTQUE+2, TSTQUE

.SBTTL

END OF PASS ROUTINE

:ANY MORE DEVICES FOR TEST ?

:JUMP TO SHUT AND CMECK FOR CONTROL C

;INITIALIZE POINTER TO FIRST DEVICE

:TEST QUE TABLE

::.'..'."..'.""""""""'.."..""'."'.""'.""'.Ql""

:*INCREMENT THE PASS NUMBER (SPASS)

:*TYPE "END PASS #XXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT yyyyy'

:*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS
:*1F THERES A MONITOR GO 10 IT
:#1F THERE ISN'T JUMP TO SHUT
032340
032340
032342
032346
032352
032356
032364
032366
032370
032372
032374

032376
032400
032604

000240
005037
005037
005237
042737
005327
000001
003063
012737
000001

$EOP:
001116
001206
001230
100000

032366
104401
07

032406

032624
032426

013746

001230

032430
032432
032436

104405
104401
000421

032440

032502
032502

013746

001126

032506
032510

104405
104401

001217

013700

000042

032514

032520

005037

001126

001230

NOP
CLR
CLR
INC
BIC
DEC
SEOPCT: .WORD
BGT
MOV
SENDCT: .WORD

::658:
648

::678:
668:

SEOPCT
TYPE
BR
LASCIZ

STSTNM
STIMES
$PASS
#100000,8PASS
(PC)+
1
$DOAGN
(PC)+,a(PC)+
1

::2ERO THE TEST NUMBER
::1ERO THE NUMBER OF ITERATIONS
i INCREMENT THE PASS NUMBER
::DON'T ALLOW A NEG. NUMBER
::L00P?
2 YES
:;RESTORE COUNTER

,658
::TYPE ASCIZ STRING
643
2:GET OVER THE ASCIZ
<12><15>/END PASS ¥/

MOV

$PASS,~(SP)

TYPDS
TYPE
BR
.ASCIZ

$:60 TYPE==DECIMAL ASCII WITH SIGN
,67%
::TYPE ASCIZ STRING
66%
::GET OVER THE ASCIZ
/
TOTAL ERRORS SINCE LAST REPORT /

MOV

$ERTTL,=(SP)

TYPDS
TYPE

CLR

$GET42: MOV

::SAVE SPASS FOR TYPEOUT
;sTYPE PASS NUMBER

SCRLF

::SAVE SERTTL FOR TYPEOUT
s:TOTAL NUMBER OF ERRORS
::60 TYPE==DECIMAL ASCI] WITH SIGN
::TYPE CARRIAGE RETURN, LINE FEED

anu2 RO

::GET MONITOR ADDRESS

$ERTTL

::CLEAR ERROR TOTAL

CZRMNAO RHOSISIZIFCYNL 18T 2

END OF PASS ROUTINE

Ogss &
032526
0325
032532
032536
032536
032540
032540
032542
032544
21

MACRO v03.01 11-APR-B0 13:17:48 PAGED1li-l

001405
000005
004710
000240
000240
000240
000137

056756
377

377

000

BEQ
RESET
SENDAD: JSR
NOP
NOP
NOP
$DOAGN:
JMP
SRTNAD: .WORD
SENULL: 'E'EE
.tV

$DOAGN
PC,(RO)

a(PC)+

SHUT
-1.,-1,0

s sBRANCH 1F NO MONITOR
::CLEAR THE WORLD
2:60 TO MONITOR
::SAVE ROOM
::FOR
sACTN
::RETURN
::NULL CHARACTER STRING

SEQ 0146

CZRMNAD RMO5/3/2 FCTNL TST 2
NO VNN —

SUBROUTINES

MACRO v03.01

SBTTL

SUBROUTINES

HAAAAA AL Al A

.SBTTL

SEQ 0147
a

T Y]

ERROR TYPEOUT ROUTINE

;*THE ERROR TYPEOUT ROUTINE ASSEMBLES AND PRINTS INFORMATION
:'REGARD]NG THE DETECTION OF AN ERROR AS FOLLOWS:
UNIT NUMBER, TEST NUMBER, ERROR NUMBER AND PROGRAM COUNTER ARE

OOV
WN = OOV

NOWVNWNN

PONUNON
=P i e
el
s e s

E 12

11-APR=-B0 13:17:48 PAGE 14

tPRlNTED ON THE FIRST LINE;

:®

.ERROR MESSAGE IS ASSEMELED, FORMATTED AND PRINTED ON

:*ONE OR MORE SUCCEEDING LINES;
;"
.PAIRED LINES OF ERROR HEADERS AND ERROR DATA
:*ARE PRINTED AFTER THE ERROR MESSAGE.

2
2550
2552
2560
2562

104414
032777
001402
000137

2 566
2 572
2576

104401
104401
013746

32602

104403
003

ERRTYP:

020000

146374

033300

104403
003
000
005037
113737
001406
104401
013746

TYPE

MOV

TYPOS

032660
032662
032663
33 032664
3% 032670

104403
00 3
000
104401
013746

032676
032676
5 032677

104403
0
001

36 032700
37 032704
@on,
38 032706
39 032712

005737
001575
104401
105037

&1 032722

013700

40 032716

105037

STESTN,TSTNMB

SITEMB.ERRNMB
2%

.BYTE
BYTE
TYPE

MOV

ERRNMB

LERTYO?2
ERRNMB,
- (SP)

3
0

001217
033312
033313

033306

;TYPE

AND PROGRAM (OUNTER

"UNTH''

::SAVE SUNIT FOR TYPEOUT
ssTYPE UNIT NUMBER
::TYPE 3 DIGIT(S)
: s SUPPRESS LEADING ZEROS
;LOAD TEST NUMBER FOR

;TYPE "'TSTN

::SAVE TSTNMB FOR TYPEOUT
::TYPE TEST NUMBER
::TYPE 3 DIGIT(S)
: sSUPPRESS LEADING ZEROS

;LOAD ERROR NUMBER FOR

;TYPEOUT
sSKIP IF NO ERROR CALLED
;TYPE _"ERRN'’

::SAVE ERRNMB FOR TYPEOUT
::TYPE ERROR NUMBER
::60 TYPE==OCTAL ASCIi

ERTY(3

$ERRPC,=(SP)

TYPOS

033306

ERROR NUMBER,

::60 TYPE--OCTAL ASCII

MOvB
BEQ
TYPE
MOV

2%:

LERTYOT
TSTNMB,-(SP)

3
0

TYPOS

033341
001132

TSTNMB

.BYTE
.BYTE

(LR

'INHIBIT TYPEOUTS??
NO!!
SYES!!

::60 TYPE-=OCTAL ASCII

MOv

TYPE
MOV

03
03

ERTYO0

$UNIT,=(SP)
3
0

CLR

033306

.BYTE
.BYTE

TYPOS

03
00

#SW13,aSuR
1%
21%

i;VPE UNI;PgUHBER‘C;EST NUMBER,

001217
033314
001234

033304

032630
032632
032633
28 032634
29 032640
30 032646
31 032650
32 032654

SAVREG
BIT
BEQ
JMP

S:TYPE 3 DIGIT(S)
: :SUPPRESS LEADING ZEROS
:TYPE 'PC=""

::SAVE SERRPC FOR TYPEOUT

::TYPE PROGRAM COUNTER
1360 TYPE--OCTAL ASCII

.BVTE
6
..YVPE 6 DIGIT(S)
1
:TYPE LEADING ZEROS
.BYTE
GENERAIE POINTER T0
SRROR TABLE UNLESS ERROI NUMBER 1S 0
8.
ST
ERRNM
:WAS AN ERROR CALLED?

aso

TYPE
C(LRB
CLRB

MOV

,SCRLF
BOTFLG
CHRCNT

ERRNMB,
RO

:NO!!

:YES=TYPE CRLF
;CLEAR BOT FLAG
sCLEAR CHARACTER COUNTER
;RO POINTS TO FIRST OFf

CZRMNAD RMO5/3/2 FCTNL TST 2

ERROR TYPEOUT ROUTINE

MACRO v03.01 11-APR-80 13:17:48 PAGE 1£°1

ai osz7§o 006300
42

032726

006300

4 032732
45 03273¢&

006300
062700

2? 032740

48 032742
49

011001

012102
001505
010237

5¢ 032760
§5 032762
56 032764

112203
001454
122703

§7 032770
58 032772
59 032776
60 033000
61 033004
62 033006
63 033012
64 033014
65 033020
66 033026
67 033030
68 033032
69 ossoss
70 033042
71 033044
72 033050
73 033056
764 033060
75 033064
76 033066
77 033072
78 033076
79 033102

80 0331064
81 033106
82 033114
83 033116
84 033120
85 0331264
86 033126
87 033132
88 033136
89 033142
90 033146
91 033152
92 033156

93 033160
9 033162
95

96 033162

97 033162
98 033166

ASL

005037

001003
105037
000770
122703
001765
122703
001007
105237
132737
001372
000407
105237
122703
001002

010237
122737
103340
013704
001007
104401
105037
013702
000726

105044
112737
106600
000000
105737
001707
104401
105037
105037
013702
010237
112742
105722
000677

016001
001444

;FOUR ENTRIES IN ERROR

(RO) R

;?lanINTS TO ERROR MESSAGE

BEQ
13%
sTYPE THE ERROR MESSAGE

sBRANCH IF NO ERROR MESSAGE

001570

MOV

MOV
BEQ
MOV

5%:

MOvB
BEQ
CMPB

033116

033310
000015

033313

000012

6%:

000011

033313
000007

033313

033313
000040
033310
000100

7%:

8%:

033313

9s:

033310

001217
033313
033116

177777
033312

033312

ASL
ADD

001507

50 032744
51 032746
52 032750

53 032754

ASL

SEQ 0148

90%:
10%:
11%:

001217
033312
033313
033310
033116
000040

RO
#SERRTB-8.,R0

(R2)+,R3
108
#CR,R3

JEND OF STRING??
SYES!!
sCARRIAGE RETURN??
IND!!
SYES=CLEAR CHAR COUNT
JGET NEXT CHARACTER
;LINE FEED??
JYES=GET NEXT CHARACTER
;HORIZONTAL TAB??
IND!'!
SADJUST CHARACTER COUNT

BNE
CLRB
BR
CMPB
BEQ
CMPB
BNE
INCB
BITB
BNE
BR
INCB
(MPB
BNE

6
CHRCNT
5%
#LF,R3
5%
#HT ,R3
8s
CHRCNT
#7,CHRCNT
7%
9%
CHRCNT
#' ,R3
98

MOVBE
TSTB

sR2=ADDRESS OF MESSAGE STRING
:BRANCH IF END OF MESSAGE
:LOAD ADDRESS OF STRING

BOTADR

CLRB
MOVB
TYPE
.WORD
1STB
BEQ
TYPE
(LRB
CLRB
MOV
MOV

(R1)+,R2
128
R2,11%

CLR

MOV
CMPB
BHIS
MOV
BNE
TYPE
CLRB
MOV
BR

S TABLE

R2,BOTADR
#64.,CHRCNT
5%
BOTADR R4
90%
JOCRLF
CHRCNT
118,R2
58

-(R4)
#-1,BOTFLG

BOTFLG
4
JOCRLF
BOTFLG
CHRCNT
BOTADR,R2
R2,11%

:CLEA
BOT ADDRESS
R

s INCREMENT CHARACTER COUNT
:SPACE??
INO!!
;SAVE ADDRESS OF SPACE
:END OF LINE??
IND!!

JGET ADDRESS OF LAST SPACE

JBRANCH IF SPACE DETECTED
;TYPE CRLF
;CLEAR CHARACTER COUNT
sSET UP R2 FOR TESTING

JREPLACE SPACE
sSET BOT FLAG
sTYPE ERROR MESSAGE STRING
sSTRING ADDRESS GOES HERE
;WAS STRING TRUNCATED??
INO!!
JYES=TYPE CRLF
:CLEAR BOT FLAG
:CLEAR CHARACTER COUNT
JSETUP R2 FOR TESTING
:SETUP 118 FOR TYPING

#' ,-(R2)
(R2)+

:RESTORE SPACE
:RESTORE R?

2(R0O) R
218

;R1 POINTS TO ERROR HEADER TABLE
*BRANCH IF NO MEADER

BR
5%
STYPE REST OF
128:
:TYPE ERROR HEADER AND ERROR DATA

000002

i3s:

MOV
BEQ

STRING

-0

F
>
il

—h —h —h —

il —lh

. —h

Dl —ll —h D -l -l -

— - —

b el il il il il il il

D il

D el

D el el il il il il

YPEOUT ROUTINE

P W= 0O0VO~N

D B

RMOS5/3/72 FCINL TST 2

033170
033174
033200
033204
033210

104401
01600§
016003
012137
001433

033212
033214
033216
033222
033224
033226
033230
033232
033234
033236
033240
033242
033244
033246
033250
033252
033254
033256
033260
033262
033264
033270
033272
033276
033300
033302

104401
000000
104401
005702
001767
012204
012305
105725
100407
001403
013446
104405
000405
013446
104402
000402
013446
104406
005714
001403
104401
000760
104401
000742
104415
000207

033304
033306
033310
033312
033313

000000
000000
00000C
000
000

033314
033322
033332
033341
033347

125
054
054
054
040

6 12
MACRO v03.01 11-APR=B0 13:17:48 PAGE 14=2

001217
000004
000006
033214

146%:

sHEADER ADDRESS GOES HERE

.WORD
.WORD
.WORD
.BYTE
.BYTE

O
O
0
0
O

ERTYO0:
ERTYQ1:
ERTY02:
ERTY03:
E:Igoaz

.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
LASCIZ

@QUNIT#3
@, TEST#a
@, ERR#a
3, PC=a
8 o

18%:
19%:
033347

208 :
21%:

111
126
105
120
000

0
LOCRLF
LY,
14%
(R2)+,R4
(R3)+,RS
(RS)+
18%
17%
d(RG)+,=(SP)

TSTNMB:
ERRNMB:
BOTADR:
BOTFLG:
CHRCNT:

17%:

116
040
040
040
040

s (ASSUME NO DATA)
:R2 POINTS TO DATA ADDRESS TABLE
sRS POINTS TO FORMAT TABLE
sPUT HEADER ADDRESS FOR TYPE
:BRANCH IF END OF MEADERS

16%:

001217

LSCRLF
4(RO) ,R
6(RO) R
(R1)+,15%
21%

TYPE
.WORD
TYPE
187
BEQ
MOV
MOV
1518
BM]
BEQ
MOV
TYPDS
EE
MOV
TYPOC
BR
MOV
TYPBN
187
BEQ
TYPE
B
TYPE
ae
RESREG
RTS

15%:

001217

TYPE
MOV
MOV
MOV
BEQ

SEQ 0149

;s CASSUME END OF

:DATA WITH
JNO!!
;R4 POINTS
:RS POINTS
;JWHAT KIND
:BINARY
:0CTAL
;DECIMAL

DATA)

HEADER??
TO DATA ADDRESS
TO FORMAT
OF DATA??

19%
3(RG)+,=(SP)
19%
3(RL)+,=(SP)
(R&)
208
LERTYO4
16%
JOCRLF
148

;MORE DATA??
:NO!!
JYES=TYPE 2 SPACES
sAND CONTINUE
;TYPE ONE BLANK LINE
;BEFORE NEXT HEADER

:TEST NUMBER
:ERROR NUMBER
:BEGINNING OF TEXT ADDRESS
:BOT FLAG
;CHARACTER COUNT

CIRMNAD RMO5/3/2 FCTINL TST 2

TEST

PREPARATION MODULE

MACRO v03.01 11-APR-B0 13:17:48 PAGE 1%

LSBTTL

SEQ 0150

TEST PREPARATION MODULE

; THIS MODULE PREPARES THE SUBSYSTEM FOR THE EXECUTION OF A TEST,

;

REPORTING AN ERROR

TO THE USER

AN ERROR

DETECTED.

SPECIFIES TASKS TO BE PERFORMED, WHICH THE MODULE EXECUTES

THE

USER

; USING SUSROUTINES.

sCALL:

9
10

;
:

JSR
.WORD

NOP

PC,TSTPRP
NNNNNN

TASK/VERIFY DESCRIPTOR

RETURN HERE IF NO ERROR

RETURN MERE

IF ERROR

;

:TASK/VERIFY DESCRIPTOR

BIT 15 = 1

SELECT DEVICE AND VERIFY DEVICE IS AVAILABLE

18
19

;
;

BIT
BIT

BIT 12 = 1

CLEAR CONTROLLER AND SELECT DEVICE
(RESERVED FOR DRIVE CLEAR)

PACK ACKNOWLEDGE IF VOILUME NOT VALID

:
3
2
;.

BIT 11 =1
BIT 10
BIT 9
eesccccces
BIT 8
BIT 7

RECALIBRATE IF POSITIONING IN PROGRESS

;

22
23
24
25
26
27

ERROR

14 = 1
13

BITe&
BIT §

;

BIT &

34
35

:
:
:

BIT 2
BIT 1
BIT 0

36
37
gg 033352
40
41 033352

017637

000000

062716
105076

000006
000000

46 033374
47 033400

004737
004737

037024
037110

49 033406

000401

48 033406

S0 033410
S1 033412

162716

000411

000004

22 033426

000137

034262

gs 033430

013737

113776

034272

VERIFY CONTROLLER CLEAR OPERATION

VERIFY PACK ACKNOWLEDGE

(RESERVED FOR DRIVE CLEAR)

VERIFY RECALIBRATION

;STORE TASK DESCRIPTOR AND CLEAR USER'S ERRCR CALL
MOV
a(SP),500%
;:STORE DESCRIPTOR

000004

000000
062716

52 033416

BIT3

TSTPRP:

42 033360
43 033364

2; 033370

ERROR DEFINED BY MODULE

ADD
CLRB

#6,(SP)
a(sP)

;MOVE SP TO USERS ERROR CALL
;CLEAR ERROR CALL

JSR
JSR

PC,GETSTS
PC,GET

;SETUP TO READ ALL REGISTERS
:GET RMER2

10%

;GET OVER ERROR NUMBER

10$-2,3(SP)

:GET ERROR NUMBER.

SuB

033410

000000

001376

034274

108:

15%:

#6,(SP)

15%

WORD
ADD

O
84, (SP)

JMP

400%

MOV

RMER21,505%

MOVB

;MOVE SP TO NO ERROR RETURN

:BR IF NO ERROR DETECTED

;ERROR DEFINED BY GET SUBROUT INE
:XFER ERROR TO USER AND

;GET RMER2 AND SAVE FOR LATER

;."l".'.!ltl't""ltt"'.'t'lt.l!!t..tt'ltl'llt.'t.t."t.!!t!tlt

CZRMNAO RMO5/3/2 FCTNL TST 2

TEST PREPARATION MODULE

58
§9 033436

005737

034272

62 033444

004737

045012

64 033452
65 033454
66 033456

000401
000000
062716

g? 033442

63 033450

67 033462

23 033470

100014

000411

113776

000137

000004

033454

034262

MACRO v03.01 11-APR-80 13:17:48 PAGEl11%-1

SEQ 0151

;SELECT DEVICE AND VERIFY DEVICE AVAILABLE IF BIT 15 SET IN TASK
181
5008
;SELECT DEVICE??
BPL
30%
JNO!!

JSR

PC,DEVSEL

BR
.WORD
ADD

208
0
#6,(SP)

000000

20%:

MOVB
JMP

;60 SELECT DEVICE

30$

:NO ERROR = CONTINUE

20%-2.,3(5P)

JERROR NUMBER FROM DEVSEL
;TRANSFER ERROR TO USER

400$

".'t't""t""""""""'t""t'tl"t"t""'.""tt.l't'.t't"

72 033474

:CLEAR CONTROLLER IF BIT

73 0334764
;2 033502

032737
001451

040000

76 033504
77 033510
78 033512
79 033514
80 033516

004737
000411
000401
000000
062716

046464

81 033522
gg 033530

113776
000137

000004
033514
034262

034272

40%:

000000

a‘

032737
001431

000100

90
91
92
93
94
95
3?

004737
000411
000401
000000
062716
113776
000137

037110

000004
033554
034262

004737

046602

98 033574

99 03

100 033602
10 033604
102 033606
103 033610

106 033614

}82 033622

000412

000401
000000
005726
062716

000004

000137

034262

113776

033604

034272

000000

BIT
BEQ

#B1114,5008
1208

:CLEAR CONTROLLER??
INO!!

JSR
BR
BR

PC,CNTCLR
60$
508
0
#4,(SP)

5G0 CLEAR CONTROLLER
:CONTINUE = NO ERROR

.WORD

ADD
MOVB
JMP

40%,3(SP)
400%

;ERROR NUMBER FROM CNTCLR

;TRANSFER ERROR TO USER

70%:
80%:

100%:
110%:

000000

JSR
BR
BR
.WORD
ADD
MOVB
JMP

PC,GET
90%
80%
0
#6,(SP)
70%,3(SP)
400$

JSR

PC,CLRSTS

;G0 VERIFY STATUS CLEAR

BR
.WORD
18T
ADD

1108
0
(SP)+
#5,(SP)

JERROR IN STATUS CLEAR
JSTRIP RETURN ADDRESS 10
;SUBROUTINE AND TRANSFER

JMP

400$

Move

1208

100%.a(sP)

;60 GET STATUS
sNO ERROR GETTING STATUS

JERROR FROM GETTING STATUS
s TRANSFER ERROR TO USER

:NO ERROR IN CLEAR

*ERROR TO USER

.':'l."l".'.t""'t"t'""t"ttt"."'itl't"'li"'t'tl'l.'t"t
JEXECUTE PACK ACKNOWLEDGE IF BIT12 SET IN TASK AND VOLUME IS
‘NOT VALID

111 033626

032737

010000

114 033636

004737

037110

;}g 03363¢

IN TASK

sVERIFY CONTROLLER CLEAR IF BIT6 SET IN TASK
608:
BIT
#B116,5008
:VERIFY??
BEQ
120%
INO' !

90%:

‘07
108
109

110 033626

50%:

14 1S SET

;;'"'t"".t'..'t""'t"'l't""t"t.l't'tt'tt.t"ttt't't.'tt't

85
86 033534
87 03353¢
gg 033542

033544
033550
033552
033554
033556
033562
033570

308:

001503

034272

1208:

BIT

#B1112,5008

JSR

PC,GET

BEQ

2408

:PACK ACKNOWLEDGE??

INO!!

CZRMNAO RMO5/3/2 FCTNL TST 2
NSO ~

OO0
NN

§ Fedeyg
76

001063

032737

000100

76
02

005037

001510
000023
000000
000200
037360

N~woOOoO
O

000000

001346

000004
033734

004737

037110

000004
033776

000000

000507

(SP)

;TRANSFER ERROR

1308 ,a(sP)

1508
:

03427¢

#VV,RMDS1

;1S VOLUME

2608

SYES!!

VALID??

#200,PUTINX+1

pC,PUT

;GO WRITE COMMAND

:
1608
170%:

;ERROR FROM PUT SuB

#4,

*NO ERROR LOADING REGISTER

(SP)

STRANSFER ERROR

1608,a(sP)

TO USER

400$

AR AR A

JSR
A

PC,TIMOUT
A

ARl

:WAIT
AR

FOR COMMAND TO COMPLETE

;VERIFY PACK ACKNOWLEDGE IF #BIT4 SET IN TASK
BEQ

#B174,5008

240%

PC,GET

1908%:

000000

10 USER

MEDENB
;CLEAR MEDIA ENABLE
#PAKACK ! GO,RMCS10
:LOAD PACK ACK COMMAND
FRMCST,PUTINX
:SETUP REGISTER INDEX TABLE

180%:

2008:

:VERIFY PACK ACKNOWLEDGE??

:NO!!

:60 GET

STATUS

gag:

*NO ERROR GETTING STATUS

;ERROR FROM GET SuB

¥4,

(SP)

1908 ,3(sP)

: TRANSFER ERROR

TO USER

400%

2108:

047462

000004
034024

4008

000020

N—-=O

_
-

[V IV
¥ 5

—

130%:
:
1408

SEQ 0152

;NO ERROR GETTING RMDS

}gg:

037722

032737
001427

1508
1408

VN
—

000004
033646
034262

oo
[=l=la]

012737

WWWWwWWN

NN
N NN NN NI NN

OO0O0O0O o
NN

000411
000401
000000
062716
113776
000137

PC,ACKSTS

:60 CHECK ACKNOWLEDGE

230%
0

:PACK ACKNOWLEDGE ERROR

2408

220%:
2308:

(SP)+
¥4, (SP)

2208 ,3(sP)

000000

*NO ERROR

*STRIP RETURN TO SUB AND
:TRANSFER ERROR TO USER

400%

':'l"...'..'..".""""""'."...'.....'.".lt"t..t""'l'..

*RECALIBRATE DRIVE IF BIT 11 IS SET IN TASK AND ''SKI'" IS SET
:OR "PIP'" IS ACTIVE.

OO VWVWVWVWVWVWIMWMWWABDWABWE RSN bWWMWWrMWWWNNNNNNNNNN-fl — e

dd‘dddddfld‘fl‘d—ddfidfld‘ddddddddddflddddd-dd‘fldddd‘dddddddd‘

TEST PREPARATION MODULE

MACRO v03.01 11-APR-B0 13:17:48 PAGEJ 112-2

34064

032737
001505

004000

004737
000410
000401
000000

037110

034272

2408:

250%:

BIT
BEQ

#B1111,5008
4108

:RECALIBRATE??
INO'!

JSR
BR
BR

PC,GET

;G0 GET

;ERROR FROM GET SuB

.WORD

528:

RMDS

*NO ERROR GETTING RMDS

CIRMNAO RMO5/3/2 FCTNL TST 2

TEST PREPARATION MODULE
172

034066

062716

};g 034100

000470

176 034102
177 034110
178 034112
181
182
183
184

173

034072

000004

034064

000000

032737
001004
032737

040000

034274

020000

001346

034122
034130
034136
034144

012737
112737
112737
004737

000007
000000
000200
037360

001410
001551
001552

186 034152
187 034154

000401
000000

};3 034120

185 034150

188 034156

189 034162

113776

MACRO v03.01 11-APR-80 13:17:48 PAGE l%-!

001462

000410
062716

113776

}g? 034170

000434

}gg 034172

004737

000004

034154

000000

037722

032737

000010

199 034206

004737

037110

201 034214
202 034216
203 034220

000401
000000
062716

205 034232

000413

|
|

207 034234
208 034240

004737
000412

‘

210 034244

000000

;

200 034212

204 0342264

209 034242

211 034246
212 034250

;

2164 034262

213 034254

001430

000410

113776

290%:

3008:

000004

034216

034272

400$

BIT
BNE
BIT

#SK1,505%
2808
#P1P,RMDSI

250%.a(sp)

;TRANSFER ERROR TO USER

:WAS SKI SET ?
*YES, GO RECALIBRATE
“1S PIP ACTIVE??

BEQ

4108

MOV
MOVB
MOVB
JSR

#RECAL !GO,RMCS10
:LOAD RECALIBRATE COMMAND
WRMCST.PUTINX
;AND REGISTER INDEX
#200,PUTINX+1
PC,PUT
;60 ISSUE RECALIBRATE

BR
LWORD

290$
0

ADD

MOVB

INO!!

3008

*NO ERROR

#4,(SP)

;ERROR IN REGISTER TRANSFER
;TRANSFER ERROR TO USER

2908-2,a(sP)

400$

JSR

PC,TIMOUT

:WAIT FOR COMPLETION

000000

050256

000004

162716

000002

113776 034244

218 034272
5;3 034274

000000
000000

000207

3108:
320%:

3308:
340%:

005726
062716

000240

JVERIFY RECALIBRATE IF BIT 3 SET IN TASK
BIT
#B113,5008
:VERIFY RECALIBRATE??

BEQ

4108

INO!!

JSR

PC,GET

;60 GETM STATUS

BR
.WORD
ADD

3208
0
#4,(SP)

:ERROR FROM GET
;TRANSFER ERROR TO USER

400%

JSR
BR

PC,RCLSTS
4108

;60 CHECK RECALIBRATE
*NO ERROR DURING RECALIBRATE

.WORD

;ERROR DURING RECALIBRATE

000401

215 034266

5}9 034270

280%:

#s,(SP)

::""".'Q.."."""""'t""...Qt't"lt.""tt.ttt't'.ttt'ttt

195
196 034176

;

2708:

ADD

move

19‘

}g; 034204

2608%:

350%:

000000

400%:

MOVB

18T
ADD

MOvB

3305

3108,a(SP)

3508

(SP)+
#4,(SP)

3408,a(sP)

:NO ERROR GETTING STATUS

;STRIP RETURN TO SUB AND
;s TRANSFER ERROR TO USER

SuB

#2,(SP)

:MOVE SP BACK BEFORE ERROR

4108:

NOP

RTS

:RETURN TO USER

5008:
505$:

.WORD
.WORD

0
0

:TASK/VERIFY DESCRIPTOR
:CONTAINS RMER?

SEQ 0153

CZRMNAO RMOS/3/2 FCTNL TST 2
VS WN—=OO0VONO
WS WN
OO0 NON NS W —

BAD SECTOR MODULE

MACRO v03.01

L1 2

11-APR=-80 13:17:48 PAGE 1 6

.SBTTL

SEQ 0154

BAD SECTOR MODULE

;THE MODULE 1S INTENDED TO BE CALLED PRIOR TO CALLING THE BUFFER
;GENERATOR SUBROUTINE, AND PRESERVES THE ''PUT BUFFER'' SO THAT THE
:gg:;i?lg§ED ONLY BE FILLED ONCE FOR THE EXECUTION OF A FORMAT

:THE_MODULE RETURNS TO THE CALLING TEST WITH THE APPROVED OR ASS IGNED

PORURININI
N b o
i i e h e s it

;SECTOR IN THE PUT BUFFER AND ALSO IN LOCATIONS ‘‘ASNDA'‘' AND ‘‘ASNDC'’
;S0 THAT A REFERENCE IS AVAILABLE TO THE TEST OUTSIDE OF THE PUT BUFFER.
:THE BAD SECTOR MODULE PERFORMS TWO MAJOR FUNCTIONS:
:

(1)

(2)

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

ELECTED IS NOT AVAILABLE FOR USE.

THE ONE

: INFORMATION REQUIRED BY THE MODULE INCLUDES:

:
:
:

(1)

_.RMDCO - THE DESIRED CYLINDER,

(3)
(&)
(5)

.RMJCO - THE WORD COUNT,
_RMCS10 = THE COMMAND,
_RMOFO - THE FORMAT MODE

(2)

sCALL

:
:

:
:
:
H

034276
034276
034302
034306

062716
105076
162716

BADSCT

000006
000000
000006

.RMDAD - THE TRACK AND SECTOR ADDRESS,

JSR
BR

PC,BADSCT
"7

ERROR

ADD

#6, (SP)

TYPE

(LRB
SuB

+MESSAGE

s CALL SUBROUTINE
;RETURN HERE IF NO ERROR

sRETURN HERE IF THE BAD SECTOR FILE
s CANNOT BE RECOVERED.
;THE EMT OFFSET NUMBER °'N' 1S DEF INED

:BY BAD SECTOR MODULE.

a(SP)
#6,(SP)

sCLEAR ERROR NUMBER

+ERROR CALL.

IN USER'S

;TEST "MEDIA ENABLE'' TO DETERMINE WHETHER OR NOT THE BAD SECTOR FILES

034312
034316
034320

005737
001402
000137

sHAVE BEEN RECOVERED.
187
MEDENB

001510

BEQ
JMP

035572

5%
3008

;HAS BAD SECTOR FILES BEEN RECOVERED ?

:BR _IF NO
sYES, BAD SECTOR FILE IS AVAILABLE

sRECOVER THE MANUFACTURES / USERS BAD SECTOR FiLE FROM CYLINDER = 822.,
sTRACK = LAST TRACK

034324
034324
48 034326
49 034330
50 034336
51 034342
52 034346
53
54
55
56 034350

g:UT BUFFER

010046
005000
016060
062700
022700
103370

001410
000002
000046

101206

108:

(RMO2/3 = & AND RMOS5 =

18.). ALSO,

MOV
(LR

RO,=(SP)
RO

:;PUSH RO ON STACK
:START WITH RMCS!

CMP
BHIS

#46,R0
108

;END OF BUFFER
:NO !!

MOV
ADD

SAVE THE USER'S

PUTBUF
(RO) ,BUFFER(RO)
#2,RO
sADVANCE TO NEXT BUFFER POSITION

sSET RETRY COUNT AND LOAD PUT BUFFER AND REGISTER INDEX TABLE
012737

000003

036210

;SETUP PARAMETERS TO READ SKIP SECTOR FILE FIRST
MOV
#3,500%
sRETRY COUNT

(3 SECTORS)

[ .

' CIRMNAO RM05/3/72 FCTNL TST 2
BAD SECTOR MODULE

57 034356

58 036364

59 034372

60 034400

012737

001466

001444

012737 177376

001412

012737

010000

63 034414
64 034420
65 034426
66 034430
67 0364434
68 034440

012700
112720
112720
112720
112720
112720

001551
000006
000034
000002
000032
000004

70 034450
;5 0344564

112720
012600

000200

112720

103216

001414

:DESIRED CYLINDER = 822.

#-258. RMWCO

;2 + 256. WORDS (2°S COMP)

LSTRK .RMDAO

MOV

#EMT16.RMOFO

MOV

000000

#822.,RMDCO

MOV
MOV

001442

FMFGFIL,RMBAO

MOV
MOVB
MOVB
MOVB
MOVB
MOVB

#PUTINX,RO
#RMDA, (RO)+
#RMDC.(RO)+
#RMWC.(RO)+
#RMOF
. (RO)+
#RMBA.(RO)+

MOVB
MOV

#200,(RO)+
(SP)+,R0

MOVB

74 034456

11~APR=80 13:17:48 PAGE 16~1

MOV

013737 001332 001416

2} 034406

69 034446

MACRO v03.01

:START
LASTING
TRACK, SECTOR
= 0

16 BIT FORMAT

:POINT TO MANUFACTURES FILE BUFFER

;RO POINTS TO REGISTER INDEX TABLE

#RMCST,(RO)+
:;POP STACK INTO RO

:SET GET INDEX TABLE FOR READING STATUS

208:

75 034456
76 034462
77 034466
78 034470
79 034472
80 034474
81 034500
gg 034506

004737
004737
000411
000401
000000
062716
113776
000137

000006
034472
035272

000000

gg 034512

013737

001376

036222

308:

86
87 034520
88 034526

012737
004737

000011
037360

001410

:CLEAR rue oevxce USING DRIVE CLEAR COMMAND
#DRVCLR'!GO,RMCS10
sLOAD COMMAND IN PUT BUFFER
an
PC,PUT
;OUTPUT COMMAND

90 034534
91 034536
92 034540

000401
000000
062716

96 034556
97 034562
98 034566
99 034570
100 034572
101 034574

004737
004737
000411
000401
000000
062716

037722
037110

}32 034606

000137

113776

034572

035272

105 034612

004737

052020

107 034620

000401

89 034532

93 034544
32 034552

102 034600

106 034616

000411

113775
000137

000412

037024
037110

000006

034536
035272

000006

108 034622
109 034624
110 034626

000000
005726
062716

000006

}}g 034640

000137

035272

111 034632

113776

034622

25%:

JSR
JSR
BR
BR
MORD
ADD
MOVB

PC,GETSTS
PC.GET
30$
25%
O
#6, (SP)
25§-2,3(SP)

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

MOV

RMER21,5508

:GET RMER2 AND SAVE FOR LATER

JMP

000000

35%:
408:

458:

000000

508 :
55%:

608:

658 :
708:

000000

2158

45%

:RETURN HERE IF NO ERROR

BR
MORD
ADD

40%
O
#6, (SP)

sGET AROUND ERROR #
:ERROR # GOES HERE
:MOVE SP TO USERS ERROR CALL

JSR
JSR
BR
BR
LMORD
ADD

PC,TIMOUT
PC,GET
60%
55%
O
#6,(SP)

:WAIT FOR COMPLETION
160 GET STATUS
:RETURN HERE IF NO ERROR
:GET AROUND ERROR #
:ERROR # GOES HERE
sMOVE SP TO USERS ERROR CALL

JMP

215¢$

JSR

PC,DRVSTS

;60 VERIFY DRIVE CLEAR COMMAND

708

:GET AROUND ERROR

MOVB
JMP

MOVB

.WORD
1ST
ADD

MOVB

JMP

35§,a(SP)
215%

50%,a(SP)

75$

0
(SP)+
#6,(SP)

65%,3(SP)

215¢%

:MOVE ERROR NUMBER TO USER

:MOVE ERROR # TO USERS ERROR CALL

:RETURN HERE IF NO ERROR

:ERROR # GOES HERE
:STRIP RETURN TO SUBROUTINE
:MOVE SP TO USERS ERROR CALL

*MOVE ERROR # TO USER CALL

SEQ 0155

| CZRMNAO RMOS/372 FCTNL TST 2

' BAD SECTOR MODULE
114

115 034644

N 12
MACRO v03.01 11-APR-80 13:17:48 PAGE 16-2
:1SSUE A PACK ACKNOWLEDGE IF VOLUME VALID IS RESET

116 034644

032737

000100

001346

119 034656
120 034662

012737
004737

000023
037360

001410

122 034670

000401

124 034674

062716

000006

}gg 034706

000137

035272

128 034712
129 034716

004737
004737

037722
037110

131 034724
132 034726
133 034730

000401
000000
062716

000006

137 034746

004737

047462

139
140
141
142

034754
034756
034760
034762

000401
000000
005726
062716

}22 034776

000137

}}g 034652

121 034666

123 034672

125 034700

130 034722

134 034736
}gz 034742

138 034752

143 034766

001052
000411

000000

113776

000411

113776
000137

000412

113776

034672

034726
035272

000006

034756
035272

000000

958 :
1008:

1108:
1158:

000000

#PACACK'GO,RMCS10
:LOAD COMMAND
PC,PUT
:60 PUT COMMAND TO DRIVE

020000

001346

158035020
154 035026

012737
004737

000007
037360

001410

156 035034

000401-

001452

:RETURN HERE IF NO OUTPUT ERROR

MORD

:ERROR # GOES MERE

ADD

MOVB

000411

000000
062716

000006

}g? 035052

000137

035272

162 035056
163 035062

004737
004737

165 035070
166 035072
167 035074

000401
000000
062716

000006

000137

035272

113776

000411

035036

000000

037722
037110

168 035100 113776 035072 000000

1358:

#6, (SP)

:MOVE SP TO USERS ERROR CALL

aoi a(sp)

:MOVE ERROR # TO ERROR CALL

215

:WAIT FOR COMPLETION
160 GET STATUS FOR PACK ACK

BR
WORD
ADD

100$
0
#6, (SP)

:GET AROUND ERROR #
:ERROR # GOES HERE
:MOVE SP TO USERS ERROR CALL

JSR

PC,ACKSTS

BR
.WORD
1ST
ADD

11ss
O
(SP)+
#6, (SP)

JMP

215%

MOVB
JMP

1088

:RETURN HERE IF NO ERROR

95%,3(SP)
215$

:MOVE ERROR # TO CALL

:60 VERIFY ACKNOWLEDGE STATUS

1208

:RETURN HERE IF NO ERROR

110%.a(sp)

:MOVE ERROR # TO USERS ERROR CALL

THE DRIVE

:GET AROUND ERROR #
:ERROR # GNES HERE
:STRIP RETURN TO SUBROUTINE
‘MOVE SP TO USERS ERROR CALL

''SKI'' OR 'PIP IS SET

BIT
BNE
BIT

#SK1,550%
1258
#P17,RMDSI

MOV
JSR

#RECAL !GO, RMCS10
:LOAD RECALIBRATE COMMAND
PC,PUT
:PUT THE RECAL COMMAND

1308

165%

:WAS SKI SET ?
*YES, GO RECALIBRATE
:1S PIP SET 22

IND !

1388

‘RETURN HERE IF NO ERROR

WORD
ADD

0
#6, (SP)

‘ERROR # GOES MERE
:MOVE SP TO USERS ERROR CALL

JMP

215

JSR
JSR

PC.IlHOUT
PC.GET

:WAIT FOR RECALIBRATE TO COMPLETE
160 GET RECAL STATUS

BR
.WORD
ADD

145%
O
96, (SP

:GET AROUND ERROR #
‘ERROR # GOES MERE
:MOVE SP TO USERS ERROR CALL

JMP

215%

MOVB

BR
140$:
1458:

:GET AROUND ERROR #

PC,TIMOUT
PC.GET

BR
1308:

85$

JSR
JSR

BEQ
125%:

INO !}

90§

move
1208:

;1S vV RESET 72

120§

;RECALIBRATE

036222

}?g 035106

MOV
JSR

JMP

1058:

040000

164 035066

#VV,RMDS]

032737
001004
032737

159 035044

858:

908:

147 035000
148 035000
149 035006
150 035010
}gg 035016

157 035036
158 035040

BIT

BNE

808 :

146

155 035032

758:

MOVB

136:-2 a(SP)

1508

146s(sp)

:GET AROUND ERROR #

:MOVE ERROR # TO USERS CALL

:RETURN HERE IF NO ERROR

:MOVE ERROR TO USERS CALL

SEQ 0156

| CZRMNAQ RHOS/S/ZEFCYNL TST 2
' BAD SECTOR MODUL

|
|
|
|

17§ o§s116 000412
171 035112

004737

17 o§s1 0
174 035122

000401
000

050256

175 035124
176 035126

005726
06%716

000006

};3 035140

000137

035272

177 035132

113776

}g? s

182 035144

012737

184 035156

000411

183 035152

185 035160
186 035162
187 035164

035122

004737

000073

037360

000006

}33 035176

000137

035272

191 035202
192 035206

004737
004737

194 035214
195 035216
196 035220

000401
000000
062716

000006

}33 035232

000137

035272

200 035236

004737

202 035244
203 035246

000401
00

205 035252

062716

000006

58; 035264

000137

035272

’
{
;

193 035212

197 035224

201 035242

113776

000411

113776

000412

204 035250 005726
206 035256

1508:
155:
1608:

000000

1688

JSR

PC,RCLSTS

BR
.WORD

1608
O

1ST
ADD

Move
JMP

(SP)+
#6, (SP)

1558.a(sP)

215%

:RETURN HERE IF NO ERROR

;60 VERIFY RECALIBRATE STATUS

:GET AROUND ERROR #

*ERROR # GOES MERE
:STRIP RETURN TO SUBROUTINE
:MOVE SP TO USERS ERROR CALL

:MOVE ERROR # TO USERS CALL

i2§2° THE SECTOR IDENTIFIED BY RMDAO, INCLUDING HEADER AND DATA

000401
000000
062716

188 035170

MACRO v03.01 11-APR-80 13:17:48 PAGE 16-3

113776

5?3 035270 000450

035162

001410

000000

037722
037110

035216

#RH'!GO,RMCST10

;LOAD READ HEADER AND DATA COMMAND

180%

:RETURN HERE IF NO ERROR

JSR

,
1708:
175%:

1808:

000000

1858:
190%:

195%:

2008:

205%:
000000

175%
O
#6,(SP)

JMP

158

Mmove

170%.a(sp)

:PUT COMMAND

:GET AROUND ERROR #
:ERROR # GOES MERE
sMOVE SP TO USERS ERROR CALL

:MOVE ERROR # TO USERS ERROR CALL

JSR
JSR

PC,TIMOUT
PC,GET

;WAIT FOR READ OPERATION TO COMPLETE
;60 GET STATUS FOR READ OPERATION

BR
.WORD
ADD

1908
O
#6,(SP)

:GET AROUND ERROR #
:ERROR # GOES MERE
sMOVE SP TO USERS ERROR CALL

JMP

2158

JSR

PC,DTASTS

;GO0 VERIFY RESULTS OF READ OPERATION

BR
.WORD

205%
O

:GET AROUND ERROR #
*ERROR # GOES HERE

ADD

#6,(SP)

;MOVE SP TO USERS ERROR CALL

JMP

2158

MOVB

18T

MOVB

2108:

PC,PUT

BR
.WORD
ADD

052622

035246

MOV

194¢

185%,a(sP)

2108

(SP)+

2063.3(SP)

2408

:RETURN HERE IF NO ERROR
:MOVE ERROR # TO CALL

:RETURN HERE IF NO ERROR

;STRIP RETURN ADDRESS TO SUBROUTINE
;MOVE ERROR # TO USERS CALL

:NO ERRORS DETECTED

RR
R R e Y

212
213

;AN ERROR HAS BEEN DETECTED IN TRYING TO READ THE BAD SECTOR FILE.
:THE SECTOR WILL BE RETRIED IF POSSIBLE.

214 035272

215 035272
S}? 035276

005337
100030

036210

218

219 035300

013746
042726
001027

001376
100000

224 035312

013746

001350

525 035316 042726
26

DEC
BPL

5008
225%

:YES, DECREMENT RETRY COUNT AND
JRETRY IF COUNT NOT NEGATIVE.

:THE RETRY COUNT HAS EXPIRED - SEE IF THE ERROR IS MEDIA RELATED

220 035300
221 035304
55% 035310

227 035322

2158:

001022

100720

2208:

MOV
BIC
BNE

RMER21,-(SP)
#BSE, (SP)+
230%

:GET ER2
*ANY NON-MEDIA ERRORS ?
JYES, EXIT AND REPORT ERROR ON RETURN

MOV

RMERT],=(S

:GET ER1

BNE

230%

BIC

#DCK 'HCRC'HCE 'FER'ECH, (SP)+

;ARE THERE ANY NON-MEDIA ERRORS ?

:YES, EXIT AND REPORT ERROR ON RETURN

SEQ 0157

CIRMNAD RMO5/3/2 FCTNL TST 2

BAD SECTOR MODULE

MACRO v03.01 11-APR-B0 13:17:48 PAGE 16=4

g29

:THE ERRORS DETECTED WHILE TRYING TO RECOVER THE BAD SECTOR FILE ARE

230
§§§

:DUE TO THE MEDIA, SEE IF THE BAD SECTOR FILE CAN BE RECOVERED FROM
;ANOTHER AREA ON THE LAST TRACK

035324

062737

zgg 035350

001407

zgg 832%%3 s%%z;; 000002
000012 001416
001416
%se 035342 122737 000040 001416

ADD
gg:s
(MPB

#2 ,RMDAD

5;8;-'"°‘°
#32.,RMDAD

;gg};oxr ALL MFG SECTORS MAVE BEEN
:QUIT IF ALL USER SECTORS MAVE BEEN

339 035352 012737 000003 036210

MOV

#3,5008

:REINSTATE RETRY COUNT FOR TTMIS SECTOR

JMP

20§

240 035360

521 035364

162716

000137

000006

034456

264 035370

245 035370
2646 035372
267 035400
248 035402

sgg 035406

00240
032777
001002
162716

000137

259 035436

012737

020000

143554

000004

036204

2358:

000137

106224

001414

010046
010146

000012
106224

000003

034456

266 035464
267 035472
268 035500
269 035502
s;? 035506

012760
012760
005720
005301
001367

000374
000014

272 035506 012701

000006

281

2408:

JMP

#5613, aSuR
2358
94, (SP)

4108

;INHIBIT MESSAGE ?
SYES
‘MOVE SP TO ERROR RETURN

:6GO TO MODULE EXIT

001416
001414

SUSRFIL,RMBAO
2608
#10.,RMDAO
SUSRFIL,RMBAO

:WAS THE USER FILE READ ??
:YES = READ IS COMPLETE
TREAD THE USER FILE LAST TRACK, SECTOR = 10.
:POINT TO USERS FILE BUFFER

036210

MOV

#3,5008

:RELOAD THE RETRY COUNT FOR THIS SECTOR

JMP

2508:

012701
012700

277 035526
278 035530
279 035532
B 035534

NOP
BIT
BNE
SuB

208

260 READ T (E USER FILE

:DUMMY THE BAD SECTOR FILES

035450
035452

573 035512
76 035514
grs 035520
76 035524

:MOVE SP BACK TO NO ERROR

:RETRY THE READ OPERATION

CMP
BEQ
MOVE
MOV

262

264 035454
265 035460

96 (SP)

STRIED.

;THE SECTOR WAS RECOVERED WITHOUT ERROR = READ THE USER FILE IF
:THIS 1S THE MGF FILE OR ELSE DONE.

022737
00144
112737
012737

263 035450

SUB

2308

:THE BAD SECTOR FILE CANNOT BE READ

256 035412
255 035420
256 035622
gg; 035430

Sg? 035444

225%:

2308:

251
252

253 035412

BEQ

:ADVANCE SECTOR ADDRESS BY 2

005000
005060
005060
005720

005301
001371
012601
012600

177777
177777

103216
104224

255%:

257%:

MOV
MOV

RO,=(SP)
R1.=(SP)

::PUSH RO ON STACK
S:PUSH R1 ON STACK

MOV
MOV

#252. R
#4,R0

‘R1 = NUMBER OF ENTRIES IN FILES
:RO = ADDRESS INDEX TO FILE S10RAGE

MOV

6. R

:CLEAR HEADER, CLEAR ID © SERIAL NUMBERS

MOV
MOV
13
DEC
BNE

CLR
CLR
CLR
13

DEC
BNE
MOV
MOV

#-1.MFGFIL(RO)
#-1,USRFIL(RO)
(RO)+
R
255%
RO
MF GF 1L (RO)
USRF IL (RO)
(RO)+

R
?
8
Cur )R
(SP)+.RO

:ENTER ALL ONES IN MFG FILE
:ENTER ALL ONES IN USER FILE
*ADVANCE ADDRESS
:DECREMENT COUNT
SCONTINUE IF NOT DONE

:ADVANCE ADDRESS

::POP STACK INTO RY
S:POP STACK INTO RO

:SET MEDIA ENABLE AND RESTORE THE USERS PUT BUFFER

SEQ 0158

CIRMNAO RMO5/3/2 FCTNL TST 2

BAD SECTOR MODULE

282 osss;g
ogss

010046

284 035542

012737

177777

062700

000002

283 035540

285 035550

286 035556

287 035562
288 035566
533 035570

005

016060

022700
103370

MACRO v03.07 11-APR-B0 13:17:48 PAGg 12-5
y

2608:

101206

001510

001410

MOV

RO,=(SP)

MOV

#-1,MEDENB

CLR

265$:

000046

012600

;:PUSH RO ON STACK

‘RO IS REGISTER INDEX

MOV

DgFfEI(IO).PUTIUF(RO)

CMP
BHIS

#6b RO
265§

ADD

MOV

SEG 0159

#2.R0

:ADVANCE RO

(SP)+,RO

::POP STACK INTO RO

:DONE 77

L
T T T T T T
T T

292
293
296

sVERIFY THAT THE DESIRED SECTOR IS NOT IN THE MFG BAD SECTOR FILE
sAND NOT IN THE USERS BAD SECTOR FILE. ASSIGN A NEW SECTOR IF THE
sSECTOR IS IN ANY OF THE FILES.

295

296
297

298 035572

Y T

:LOAD INITIAL VARIABLES AND COMPUTE THE NUMBER OF SECTORS

035572
0355764
035576
035600
300 035606
301 035614
302 035616
303 035622
304 0356264
5 0;5630
035636
307 035640
308 035644

010046
010146
010246
013737
013737
005002
013700
005400
012701
032737
001402
012701
020100

310 035650
311 035652
312 035654
313 035656
314 035
315 035662
316 035664
i}; 035666

005700
001405
005202
000403
160100
005202
000767
010237

309 035646

$00s:
001444
001416

001512
001514

001412
000400
000002

001410

000402

305%:

101404

3108:
036210

3158:

319
320

MOV
MOV
MOV
MOV
MOV
CLR
MOV
NEG
MOV
BIT
BEQ
MOV
CMP

RO,=-(SP)
R1,-(SP)
R2,=(SP)
RMDCO,ASNDC
RMDAQ,ASNDA
R2
RMWCO,RO
RO
#256..R1
#BIT1,RMCST10
305%
#258..R1
R1,RO

187
BEQ
INC
BR
SuUB
INC
BR
MOV

RO
315%
L4
315¢
R1,RO
R2
305%
R2,500%

BLOS

3108

;sPUSH RO ON STACK
;:PUSH R1 ON STACK
ssPUSH R2 ON STACK
sLOAD REQUESTED CYLINDER, TRACK,
sAND SECTOR ADDRESS IN ASSIGNED STORAGE
sR2 = NUMBER OF SECTORS
RO = WORD COUNT
sMAKE NUMBER POSITIVE
sR1 = NUMBER OF WORDS PER SECTOR
;1S THIS A HEADER AND DATA COMMAND ??
JNO !
s CHANGE WORDS PER SECTOR
s1S THERE A FULL SECTOR ??

JYES !

;1S RO ZERO ??
V€S !¢
s INCREMENT FOR PARTIAL SECTOR
JSUBTRACT ONE SECTOR FROM WORD COUNT
s INCREMENT SECTOR COUNT
sSAVE SECTOR COUNT

;LOAD PARAMETERS AND SEARCH THE MFG/USER SECTOR FILE FOR THE
sASSIGNED SECTOR. ALSO, SEARCH THE ADJACENT SECTORS IF THE

gg;

sSECTOR COUNT IS MORE THAN ONE.

323 035672

012737

103232

036220

MOV

JSR

WMFGFIL*14,5408 ;THE STARTING ADDRESS OF MFG FILE
;70 BASE ADDRESS STORAGE.
PC,320%
:GO SEARCH FILE
FUSRFIL*14,5408% ;LOAD STARTING ADDRESS OF USR FILE
270 BASE ADDRESS STORAGE.
PC,320%
;G0 SEARCH FILE

325 035700
326 035704
327
328 035712

004737
012737

035722
104240

036220

JSR
MOV

004737

035722

331 035722 013737 001512 036214 320%:

MOV

ASNDC,520%

;gz 035736

MOV

sgg 035716

332 035730

000137

013737

036162
001514

036210

036216

036212

JMP

MOV

4008

:DONE WITH ALL FILE SEARCHES '!

ASNDA,530%

sLOAD COMPARING TRACK, SECTOR ADDRESS

5005.510$

sLOAD COMPARING CYLINDER ADDRESS

sLOAD NUMBER OF SECTORS TO CONFIRM

CZRMNAO RMO5/3/2 FCTINL TST 2

BAD SECTOR MODULE

335
336

337 035744

013700
022710

036220
177777

341 035756
gzg 035762

021037
001012

036214

001446

§25%:

3308:

344
345

346 035764

126037
001004

000003

036217

350 035774
gg; 036002

126037
001402

000002

036216

353 036004
§§§ 036006

022020
000760

105237
122737
103337
105037
105237
123737
103327
005037
005237
022737
103317
005037
000714

8608:

001514
000037

001514

001514
001515
001333

001515

001514
001512
001466

001512

sLOAD THE BASE ADDRESS IN RO
;1S THIS FILE TERMINATOR ?

CMP
BNE

(RO),520%
3508

:DOES TABLE ENTRY = COMPARING CYLINDER ?
:BR
IF NO

BEQ

370§

:BR IF YES

SEE IF THE NEXT ENTRY EQUALS

C(MPB
BNE

3(R0O),5308+1
3508

:DOES TABLE ENTRY = COMPARING TRACK ?
:BR IF NO

CMPB
BEQ

2(R0),530%
360%

:DOES TABLE ENTRY = COMPARING SECTOR ?
:BR IF YES

CMP
BR

(RO)+,(RO)+
3308

;NO, ADJUST CYLINDER POINTER IN BAD FILE
*AND CONTINUE SEARCH.

INCB
CMPB
BHIS
CLRB
INCB
CMPB
BHIS
CLR
INC
CMP
BHIS
CLR
BR

ASNDA
#31.,ASNDA
320%
ASNDA
ASNDA+1
LSTRK*1,ASNDA+1
3208
ASNDA
ASNDC
#822. ,ASNDC
320%
ASNDC
3208

: INCREMENT SECTOR
JSECTOR Ok ??
SYES !
sCLEAR SECTOR AND ADVANCE TRACK

:TRACK OK ?
SYES !
JCLEAR TRACK AND SECTOR
- INCREMENT CYLINDER
*CYLINDER OK ??
SYES ')
sSTART AT CYLINDER 0
:SEARCH NEXT SECTOR

;THE COMPARING SECTOR IS NOT IN THE BAD SECTOR FILES.
DECREMENT THE
sNUMBER OF SECTORS TO COMPARE AND SEARCH THE NEXT SECTOR IF THE NUMBER
:1S NOT ZERO.

377 036072
g;g 036076

005337
001442

036212

380 036100
381 036106

105237
122737

036216
000037

383 036114
384 036120
385 0361;4
386 036132
387 036134
gg& 036140

10503
105237
123737
10301;
005037
0052;7

036216
036217
001333

390 036152
391 036154

103002
005037

suounztww;

9 036144

5408 ,R0
#-1,(R0)

sTHE COMPARING CYLINDER, TRACK AND SECTOR IS IN Tnfi BAD SECTOR FILE.
;:ADVANCE THE ASSIGNED SECTOR AND START THE SEARCH ALL OVER.

373
374
375

376 036072

8458

350%:

356
357

358 036010

MOV
(MP

sFILE ENTRY EQUALS COMPARING CYLINDER.
:THE COMPARING TRACK, AND SECTOR.

34,7 035764
gzg 035772

359 036010
360 036014
361 036022
Sbg 0360;8
363 036030
364 036036
365 036062
366 036044
367 036050
368 036056
369 036062
370 036064
;;} 036070

SEQ 0160

sSETUP FOR A BINARY SEARCH OF THE CURRENT FILE FOR THE COMPARING
:CYLINDER, TRACK AND SECTOR ADDRESS

338 035744
339 035750

3.0 035754

MACRO v03.01 11-APR-80 13:17:48 PAGE 16-6

022737

036216
036214
001466

036214

$70s:

036216

036217

036214

DEC
BEQ

510%
410%

;DECREMENT NUMBER OF SECTORS TO COMPARE
;DONE IF ZERO

INCB
(MPB

530%
#31.,530%

;INCREMENT THE COMPARING SECTOR
*SECTOR OK ??

CLRB
INCB
(MPB
BHIS
CLR
INC

530%
530841
LSTRK+1,5308+1
375%
5308
520%

sCLEAR SECTOR
*INCREMENT TRACK
;TRACK Ok ??
TYES !
:CLEAR SECTOR TRACK
s INCREMENT CYLINDER

BHIS
(LR

375%
5208

BHIS

CMP

3758

#822.,520%

SYES !

sCYLINDER Ok ??

TYES !
*START AT CYLINDER 0

CIRMNAD RMO5/3/2 FCTINL TST 2

BAD SECTOR MODULE

MACRO v03.01

gg% 036160 00067
295
013737
013737
012602
012601
012600

401 036204
28% 036206

000240
000207

28;
406
407
4«08
409
410
411
612

SEQ 0161

375%: BR
325%
sSEARCH NEXT SECTOR
;ASSIGN THE SECTOR AND RETURN TO USER

396 036162
397 036162
398 036170
399 036176
036200
08 036202

F13
11-APR=B0 13:17:48 PAGE 16-7

001512
001514

001444
001416

4008%:

410%:

MOV
MOV
MOV
MOV
MOV

ASNDC ,RMDCO
ASNDA ,RMDAO
(SP)+,R2
(SP)+,R1
(SP)+,RO

NOP
RTS

;LOAD
:LOAD
::POP
::POP
:;POP

CYLINDER
TRACK AND SECTOR
STACK INTO R?
STACK INTO R
STACK INTO RO

;THE FOLLOWING ARE STORAGE LOCATIONS FOR THE MODULE
036210
036212
036214
036216
036220
036222

000000
000000
000000
000000
000000
000000

5008:
510$:
5208%:
5308:
56408:
550%:

.WORD
.WwORD
.WORD
.WORD
.WORD
.WORD

O
O
O
O
0
0

;RETRY COUNT/ NUMBER OF SECTORS REQUIRED
:NUMBER OF SECTORS TO COMPARE
;COMPARING CYLINDER
:COMPARING TRACK AND SECTOR
;BASE ADDRESS OF BAD SECTOR FILE BEING SEARCMED
:CONTAINS RMER?

CZRMNAO RMO5/3/2 FCTINL TST 2

BUFFER GENERATOR SUBROUTINE

MACRO v03.01

613
11-APR=-B0 13:17:48 PAGE 17

SEQ 0162

.SBTTL

:THIS SUBROUTINE GENERATES A DATA BUFFER FOR WRITE COMMANDS.

:CONTAINS A REPETITIVE DATA PATTERN CONSISTING OF STMP1 WORDS

BUFFER GENERATOR SUBROUTINE

:BUFFER STARTS AT RMBA AND

IS RMWC WORDS LONG.

THE BUFFER

.
7

;FROM THE DATA PATTERN TABLE, BEGINNING AT ADDRESS $TMPO.
;HEADER INFORMATION FOR THE BUFFER 1S EXTRACTED FROM RMDC,

10
n
12

‘RO = ADDRESS OF DATA BUFFER
:R1 = LENGTH OF DATA BUFFER
:R2 = ADDRESS OF DATA PATTERN

:R& = SECTOR COUNT

16
17

sCALL:
2(1)

:RMDA AND RMOF.

:R3 = LENGTH OF DATA PATTERN

:(2)

20 036224
036226
036226
036230
036232
036234
21 036236
22 036242
23 036246
%g 036254

013700
013701
013737
013737

001414
001412
001444
001416

036456
036460

26 036262
27 036270

032737
001445

000002

001410

29 036276
g? 036302

052710
012702

140000
000035

28 036272

010046
010146
010246
010346
010446

GENBUF:

013710

036456

32 036306
33 036314
3, 036316

032737
001404
052710

010000

37 036326
gg 036330

005201
001443

40 036332
&1 036334
42 036340
43 03632
&6 036344
45 036350
46 036352

005720
013720
005201
001436
012703
105213
120213

48 036356
49 036360

105013
1u5263

gg 036322

47 03635¢

50 036364
51 036372
52 036374

THE

012702

PC ., GENBUF

MOV
MOV
MOV
MOV
MOV

RO,=(SP)
R1,=(SP)
R2,=(SP)
R3,=(SP)
R4 ,=-(SP)

::PUSH
;:PUSH
;:PUSH
::PUSH
::PUSH

BIT
BEQ

#BIT1,RMCS10
25%

:WRITE HEADER & DATA??
INO!!

#MSE 'USE, (RO)
#29..R2

:SET BAD SECTOR FLAGS FOR GOOD SECTOR
:R2 = MAXIMUM SECTOR ADDRESS (29.)

MOV
MOV
MOV
MOV
108:

001442

010000

000037

036460

001333
000001

000001

STACK
STACK
STACK
STACK
STACK

DATA BUFFER ADDRESS
WORD COUNT
STARTING CYLINDER ADDRESS
STARTING TRACK,SECTOR ADDRESS

#EMT16,RMOFO
158
#EMT16, (RO)

;18 BIT FORMAT??
TYES !
SSET 16 FORMAT BIT

INC
BEQ

R
508

s INCREMENT WORD COUNT
CEXIT IF DONE

3
MOV

(RO)+
65%,(RO)+

:MOVE RO TO HEADER WORD #2
:WRITE HEADER WORD #2
*INCREMENT WORD COUNT AND
CEXIT IF DONE
sADVANCE SECTOR ADDRESS

BHIS
000001

ON
ON
ON
ON
ON

BIT
BEQ
BIS

INC
BEQ
MOV
INCB
CMPB

036460

;LOAD
;LOAD
JLOAD
;LOAD

RO
R1
R2
R3
R4

608$ , (RO)

MOV
15%:

RMBAO,RO
RMWCO,R1
RMDCO,60%
RMDAO,65%

RETURN HERE

MOV

BIS
MOy

103013

123763
103004
105063

JSR

CLRB
INCB

(MPB
BHIS
C(LRB

#31. .82

R
508

#65%.R3

(R3)
R2,(R3)

25§

(R3)
1(R3)

LSTRK*+1,1(R3)
258
1(R3)

*WRITE HEADER WORD #1

IN HEADER

:CHANGE MAXIMUM SECTOR ADDRESS (31.)

;SECTOR OVERFLOW ??

INO ')

SYES = CLEAR SECTOR ADDRESS
JADVANCE TRACK ADDRESS

:-TRACK OVERFLOW ??
Y RE
*YES = CLEAR TRACK ADDRESS

CZRMNAD RMO5/372 FCTNL TST 2
105237

036456

MOV
MOV

«08$:

MOV

—a

—

INCB

25%:
30%:

MOV

INC
BEQ
DEC
BEQ
DEC
BEQ
BR

60%:
65%:

60%

#256. R4
$TMPO,R2
$TMP1,R3
(?2)0,(R0)0
R

50%

10%
R3

13
17- 1
CYLINDER ADDRESS

sLOAD SECTOR DATA COUNT
sLOAD PATTERN ADDRESS
:LOAD PATTERN COUNT
;WRITE DATA PATTERN
s INCREMENT WORD COUNT AND
SEXIT IF CONE
sDECREMENT SECTOR COUNT
sSTART NEXT SECTOR IF 0
sDECREMENT PATTERN COUNT

sRESTART PATTERN IF

(SP)+ R4

;:POP STACK
;:POP STACK

(SP)+ ,R1
(SP)+,RO

RPTS

.WORD
.WORD

sADVANCE

30%

40%

MOv
MOv
MOv
MOv
MOV

NOP

000207
000000
000000

11-APR=80 13:17:48 PAGE

SEQ 0163

50%:

fffffé
b
oW
oo

v s rrr

SO SANVOO

5% FYTfTraaaesg&

FROSIXNSFSR

OO0O0O0O0O o

239828

G2
wn
0.0= OV~
OA
WN

BUFFER GENERATOR SUBROUTINE

MACRO v03.01

(SP)+ ,R3
(SP)+ ,R2

;CONTINUE DATA PATTERN

;;POP STACK

INTO R4
INTO R3

INTO RZ

;:POP STACK INTO R?
;;POP STACK INTO RO

sCYLINDER ADDRESS STORAGE

;TRACK,

SECTOR

ADDRESS

STORAGE

CIRMNAD RMO5/372 FCINL TST 2

COMPARE BUFFER SUBROUTINE

MACRO v03.01

113

11-APR-80 13:17:48 PAGE 18

.SBTTL

SEQ 0164

(COMPARE BUFFER SUBROUTINE

:THIS SUBROUTINE COMPARES THE CONTENTS OF BUFONE AND BUF TWO,

;ASSUMING THAT BUFONE IS THE BUF FER FROM WHICH DATA WAS WRITTEN
sAND BUFTWO IS THE BUFFER TO WHI CH DATA WAS READ. ERRORS IN BUFFER

;COMPARISON ARE REPCRTED TO THE USER VIA THE USER'S ERROR CALL.

sCALL:
(1)

JSR

.WORD

: (2)

.WORD

WRITE BUFFER ADDRESS

;(3)

ERROR

YY)

. (6)

w
W
~
W~
~

032737

100000

001350

032737

000100

001350

032737

010000

001366

N
s s

000020

701

000020

(=l=l=]

701

§8338

000001

READ BUFFER ADDR ESS

RO,=(SP)
R1.=(SP)
R2,=(SP)
R3 =(SP)

1508

MOV
MOV

037022

BIS

RMBAO,RO
RMEC1] R

#B1T115,150%

sMCVE RO TO WORD BOUNDARY OF
108:
cMP
#6. .R1

BHIS
SUB

20%
6. .R1

BR
MOV
MOV

10%
#”,R2
R2.R3

187

20%:

(RO)+

:MOVE R2 TO STARTING BIT OF

030237

NO ERROR
ERROR

;sPUSH RO ON STACK
::PUSH R1 ON STACK
::PUSH R2 ON STACK
::PUSH R3 ON STACK

:CLEAR CORRECTION FLAG

;CORRECT DATA USING ECC INFORMAT ION

50$

036616

IF
IF

ERROR DEFINED BY SUBROUTINE

27?

MOV
MOV
MOV
MOV

RETURN HERE
RETURN HERE

;DETERMINE IF DATA SHOULD BE CORRECTED
BIT
ECI,RMOF|
ECC CORRECTION ALLOWED ??
:WAS
BNE
80%
BIT
#DCK ,RMER1]
;WAS THERE A DATA CHECK 27
80%
BEQ
sNO !!
BIT
WECH,RMERT]
:gésE?$0R CORRECTION HARD SET ?
BNE
80%
BIT
NEMT16,RMOF]
*1S THIS 16 BIT FORMAT 22
BEQ
80%
ND !

—

702

—

SR8
o

001414
0014C0
100000

o
(VL1 STV N
N
-~
o
~

~
~N

\fl\hg\l‘
~

700
701
737

004

etel=l=lelele]]
O0OO00O

001366

004000

001

NOP

CLR

037022

g e

»~
~N

OV~

WuguuumuWNNNNNNNNNN
—
VS W= O O0V®NO
WS W
=0 Om

:
CMPBUF

5037

PC,CMPBUF

CMP

R3,R1

ASL

BEQ
INC
BR
MOV

35§

Wl
308
M1, ,R3

000013

35%:

001402

;CORRECT THE ERROR BURST
40%:
BIT
R2,RMEC2]

:
:R1

STARTING BUFFER ADDRESS
ECC POSITION

sSET CORRECTION FLAG
ERR OR BURST

:#3 BIT POSITION > 1 WORD

*SUBTRACT 1 WORDS WORTH

*ADVANCE BUFFER ADDRESS 1 WORD

;R2 = BIT POINTER
:R3 = BIT NUMBER
ERROR BURST

;1S R3 SAME AS R1 22
IYES

*SHIFT BIT POINTER

“INCREMENT BIT NUMBER
:R3 = LENGTH OF

ERROR BURST

;1S THIS BIT SET IN ECC PATTERN 2?

= WONWNNO -=ONOW

—

33 FeEsrRrrey

OCOO0O0O0O0TDOO0O0O0O

ZEBIFAR

COMPARE BUFF

RNOoROSFRSETEN Do

CZRMNAD RMOS

TST 2

NNNN=O
—=O
NO
NN
NN
OO NNNNN

J 13

11-APR=8BC 13:17:48 PAGE 18-1

SEQ 0165

BEQ
BIT

60%
R2, (RO)

BIC

R2, (RO)

BEQ

000010

:NO

;RESET THE BIT

ASL

;SET THE BIT
sSHIFT TO NEXT BIT

MOV

”,R2

sCONTINUE WITH FIRST BIT OF NEXT WORD

DEC
BNE

R3
408

;END OF BURST ??
sNO !!

18T

000010

506

60$

BNE

000001

sNO = DO NOT CORRECT THI S BIT
;1S THE BIT PRESENTLY SE T 7n

BIS

000010
000002
000010
000002
001336
001412

—-000000
— O
e e el
NNVOOO
&

MACRO v03.01

R2,(RO)

708

(RO)+

: COMPARE WRITE BUFFER TO READ BUFFER
0%:
MOV
310(SP) ,RO
;RO =
ADD
#2,10(SP)
:MOVE
MOV
a1b(sp) .,
:R1 =
ADD
#2,10(SP)
;MOVE
MOV
RMWCI,R2
;R2 =

SUB
CMP
BNE
DEC
BNE
BR

RMWCO.R2
(RO)+.(R1)+
100$
R2
90%
1108

;DATA (OMPARE FAILED
100%:
MOV
=(R0),$GDDAT
MOV
~(R1) .$BDDAT
MOV
RO,$GDADR
MOV
R1.$BDADR

000336

000010
000010

100000

037022

000163
000002

000010
000010

MOV
ADD

move

R2.$TMPO
#4.10(SP)

#3%6,310(sP)

ERROR NUMBER IF

WRITE BUFFER

SP TO READ ADDRESS

READ BUFFER

SP TO RETURN ADDRESS
NUMBER OF WORDS TRANSFER

: COMPARE DATA WORDS
SEXIT IF NOT EQUAL
;DECREMENT WORD COUNT
sCONTINUE IF NOT DONE
;DONE COMPARE - NO ERROR

;STORE GOOD DATA FOR TYPEOUT
;STORE BAD DATA FOR TYPEOUT
;STORE ADDRESS OF GOOD DATA
;STORE ADDRESS OF BAD DATA
:STORE WORD COUNT OF ERROR
;MOVE SP TO USER'S ERROR CALL
:WRITE ERROR NUMBER IN CALL

ECC CORRECTION FAILED
::es.gcc CORRECTION USED ??

BIT
BEQ

#B1115,1508
105%

SUB

#2.,10(s5P)

#163,310(SP)

*ECC CORRECTION FAILED

MOV
MOV

(SP)+,R3
(SP)+.R2

;:POP STACK

g? 037020

012603
012602
012601
012600
000207

98 037022

000000

.WORD

000240

MOVE
NOP

MOV

RTS

(SP)+.RI

(SP)+.RO

*MOVE SP TO RETURN If ERROR
INTO R3

::POP STACK INTO R?
::POP STACK INTO R
:;POP STACK INTO RO
;RETURN TO USER

;ECC CORRECTION FLAG

CZRMNAO RMO5/3/2 FCTINL TST 2

GET

STATUS SUBROUTINE

MACRO v03.01

K 13
11-APR-80 13:17:48 PAGE 19

SEQ 0166

;

LSBTTL

:THIS SUBROUTINE SETS UP THE "'GET INDEX TABLE'' AND THE "'GET

sAND THEN RETURNS TO THE USER.

;BUFFER"'

7
g

;CALL:
S

10 037024

GETSTS:

0370264

010046

14 037036

012701

11 037026
12 037030
13 037032
15
16
17
18
19

037042
037046
037050
037052
037056

20 037060
21 037064
22 037066
23 037070
24 037072
25 037076
26 037100
27 037102
28 037104
gg 037106

010146
010246
012700
012702
110220
005041
162702
100405

022702
001370
005041
000770
112720
012602
012601
012600
000240
000207

001404

000002

2%:
3%:

000022

000200

FOR READING ALL

4%:

SUBSYSTEM REGISTERS VIA THE

JSR
77?

PC,GETSTS

MOV

RO,=(SP)

MOV

#RMEC21+42,R1

MOV
MOV
MOV

001522

000046

GET STATUS SUBROUTINE

MOV
MOVB
CLR
SUB
BM]

CMP
BNE
(LR
SR
MOVB
MOV
MOV
MOV
NOP
RTS

R1,=(SP)
R2,=(SP)
#GETINX,RO
#RMEC2,R2
R2,(RO)+
=(R1)
#2,R2
43

#RMDB,R2
2%
-(R1)
3%
#200, (RO)+
(SP)+,R2
(SP)+,R1
(SP)+,RO

GET

SUBROUTINE

RETURN HERE
::PUSH RO ON STACK

::PUSH R1 ON STACK
;:PUSH R2 ON STACK
;RO = ADDRESS OF INDEX TABLE

;:R1 = ADDRESS OF GET BUFFER

:R2 = REGISTER INDE
;WRITE REGISTER INDEX IN TABLE
;CLEAR CORRESPONDING LOCATION
:DECREMENT TO NEXT INDEX
;BRANCH OUT IF DONE

;DONT WRITE RMDB INDEX

:WRITE TERMINATOR
::POP STACK INTO R2
::POP STACK INTO RI
::POP STACK INTO RO

MACRO v03.01

N S NN = OO 00 O W IS NN —

CZRMNAD RMO5/37/2 FCTINL TST 2
GET SUBROUTINE

.SBTTL

GET SUBROUTINE

i
b
e e
e

: SUBROUTINE CALL:
; (1)

:(2)

N = O O 00 N

"'GET_INDEX TABLE'' HAS BEEN LOADED WITH REGISTER INDEX

VALUES AND TERMINATED WITH A CONTROL BYTE

"'GET INPUT BUFFER" IS AVAILABLE FOR USE.

UNUSED LOCATIONS,

$(3)
;

JSR
BR

;

ERROR

T0 REGISTERS NOT READ,

NOP

(NOTE THAT

1.E.,ENTRIES IN BUFFER CORRESPONDING

PC,GET
273

ARE NOT

CHANGED.)

RETURN HERE IF NO ERROR FOUND

RETURN HERE

ANY ERROR FOUND

SUB DEFINES ERROR NUMBER

‘RO = REGISTER BASE ADDRESS

:R1

= REGISTER ADDRESS

:R2 = BUFFER BASE ADDRESS

:R3 = BUFFER ADDRESS

037144
36 037150
37 037154
38 037160
39 037164

40 037172
41 037200

8°°°°°°O°°°°°°°°—‘

2716

[= R
TM . TM J
Bt
OO O
O OO N =t o e cld ) i it ) cd cad cd e i i O
N=OWVONN
=N
NNNNIWWNIWNO OO OO
NESF NS NNONOONNY

WWNON)
= =t s
oorNONNO

WIN N NN N NN NN

‘R = POINTER TO REGISTER INDEX
[elelelelelelelele]le]

N = O 000N
WV

SEQ 0167

:THIS SUBROUTINE READS THE REGISTERS WHICH ARE_LISTED IN THE
:"'GET_INDEX TABLE'' AND STORES THEIR VALUES IN THE CORRESPONDING
:LOCATION IN THE "'GET REGISTER BUFFER'.
FOR EXAMPLE, AN
;ENTRY
OF 04 IN THE TABLE WILL CAUSE THE SUBROUTINE 10
:READ "RMBA'* AND STORE ITS CONTENTS AT THE LOCATION IN
:THE BUFFER ASSIGNED TO THAT REGISTER.
THE NUMBER OF
;REGISTERS TO BE READ IS VARIABLE FROM 1 10 22: THE INDEX
:TABLE MUST BE TERMINATED WITH A CONTROL BYTE (200)
:WHICH SHOULD FOLLOW THE LAST ENTRY.

NN N NN NN NI PO NI PO PO NI NI RO N

L1 3

11-APR-80 13:17:48 PAGE 20

GET:

000004
000000
000004

000004

004000

000004
000006
001174
001176
001176

000004
000112

000016
000016

¥4, (SP)
a(SP)
¥4, (SP)
RO,=(SP)
R1,=(SP)
R2.=(SP)
R3,=(SP)
R&,=(SP)
ERRVEC,=(SP)
ERRVEC+2,-(SP)
$BASE
, RO
#GE TBUF ,R2
#GETINX
. R4

MOV

#PR6 ,ERRVEC+2

MOV

RMCST(RO) ;STMP1

MOV

1$:

MOV

BIT

#58 ERRVEC

:CLEAR ERROR NUMBER IN USER'S
*ERROR CALL

::PUSH
::PUSH
::PUSH
::PUSH

RO
R1
R2
R3

ON
ON
ON
ON

STACK
STACK
STACK
STACK

::PUSH R4 ON STACK
::PUSH ERRVEC ON STACK

::PUSH ERRVEC+2 ON STACK

;SETUP FOR TIMEOUT

RMCSS(RO),$TMPO ;GET "NED' STATUS
:GET '‘DVA"* STATUS

#DVA,STHP{

:DEVICE AVAILABLE??

ADD

¥4

‘WRITE ERROR NUMBER

TSTB
BM]
MOvB

(R&4)
9%
(R4) ,R1

BNE

ggva
38:

177700

NOP
ADD
CLRB
SUB
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

BIC

,16(SP)

;liz.alo(sp)

#*CIDXMSK
R

TYES!!

*ERROR CALL

IN USER'S

:DONE??
SYES!!

*R1 = REGISTER ADDRESS

*CLEAR ANY SIGN EXTENSION

' CZRMNAO RM0S5/3/2 FCTNL TST 2
OVO0O00O
0000

O O O VYW UV
N = O 000 ~NO VI WY

GET SUBROUTINE

MACRO v03.01

SEQ 0168

060001

ADD
move

177700

BIC

ADD
MOV

000764

022626
000002

630

11-APR=80 13:17:48 PAGE 20-1

000016
000016
000016

RO,R1
(R4)+,R3

;R3 = STORAGE ADDRESS FOR REGISTER

(n{),(R3)

sREAD REGISTER

l‘ClD!HSK R3

CMP

7%:
8%:

;RESTORE

ADD
Move

;USER'S ERROR CALL

sus
1STB
BMI

DONE CLEAR]NG”
;YES!
CLEAR REMAINING STORAGE

CLR

:LOCATIONS

ADD

71 037356
72

012637
012637
012604
012603
012602
012601
012600
000207

000006
000004

9%:

STACK

;WRITE ERROR NUMBER IN

Move

000771

;CLEAR ANY SIGN EXTENSION

CLR
8R
MOV
MOV
MOV
MOV
MOv
MOv
MOv
RTS

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

(SP)+ ,R3
(SP)+,R2
(SP)+,R1
(SP)+ RO

;:POP STACK INTO ERRVE(C+2

;:POP STACK

INTO ERRVEC
R4

::POP STACK INTO
:sPOP STACK INTO
;:POP STACK INTO
;sPOP STACK INTO

R3
R2
R1
;:POP STACK INTO RO
sRETURN

CZRMNAO RM0S5/3/2 FCINL TST 2
NN —

SUBROUTINE

.SBTTL

;THIS SUBROUTINE WRITES THE REGISTERS WHICH ARE LISTED IN THE

;"PUT_INDEX TABLE'' WITH THE CONTENTS OF THE CORRESPONDING
;LOCATION IN THE "'PUT REGISTER BUFFER''. THE NUMBER OF

= OO0~

:(2)

———

W
WV

;REGISTERS WRITTEN IS VARIABLE; THE INDEX TABLE MUST
;BE TERMINATED WITH A CONTROL BYTE (200) WHICH SHOULD
;FOLLOW THE LAST ENTRY.

"PUT INDEX TABLE'' HAS BEEN LOADED WITH INDEX VALUES

OF REGISTERS TO BE WRITTEN.

H
:
:

BR
NOP
EggOR

'PUT REGISTER BUFFER'' CONTAINS CONTENTS OF EACH

JSR

:(3)

VNS WN = OOV
VXN

SEQ 0169

PUT SUBROUTINE

+SUBROUTINE CALL:

LN N T T VT T NT N7 W7 N N P

PUT

N 13

MACRO v03.01 11-APR=80 13:17:48 PAGE 21

;RO
:R1
;R2
:R3
JR4&
037360

000240

037364
037366
037370
037372
037374
037400
30 037404
31 037410
32 037414
33 037420
3, 0376426

010146
010246
010346
010446
013746
013746
013700
012702
012704
012737
012737

000004
000006
001276
001410
001551
037530
000300

000004
000006

36 037442

016037

000000

001176

037362

35 037436

37 037450

38 037456
39 037460

40 037466

016037

032737

001007
062766

112776

41 037474
42 037476
43 037500
44 037502
45 037504
46 037510
47 037512
48 037514
49 037520

000424
105714
100425
1116401
042701
060001
111403
042703
060203

51 037524

105724

50 037522

PUT:

010046

011311

000010

004000

000004

000112
-

001174

1%:

001176

=
=
=
=
=

000016

NOP

MOV

177700
177700

(%:

RETURN HERE IF NO ERROR FOUND
RETURN HERE IF ANY ERROR FOUND
SUB DEFINES ERROR NUMBER

RO,=(SP)

::PUSH RO ON STACK

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

R1,=(SP)
R2,-(SP)
R3,-(SP)
R&,=-(SP)
ERRVEC,-(SP)
ERRVEC+2,-(SP)
$BASE
, RO
#PUTBUF ,R2
#PUTINX.RG
#5% ERRVEC
#PR6 ,ERRVEC+2

::PUSH
:sPUSH
:3PUSH
;:PUSH
2 sPUSH

MOV

RMCST(RO) .STMP1

:GET ''DVA"" STATUS

BNE
ADD

38
#6,16(SP)

SYES!!
;WRITE ERROR NUMBER IN

BR
1STB
BM]
MOVB
BIC
ADD
MOVB
BIC
ADD

7%
(RG)
9%
(R4) ,R1
#*CIDXMSK,R1
RO,R1
(R4) ,R3
#*CIDXMSK,R3
R2,R3

MOV

MovB
3%:

[ 4

BIT

000016

PC,PUT

MOV

1STB

R1-ON STACK
R2 ON STACK
R3 ON STACK
R4 ON STACK
ERRVEC ON STACK
::PUSH ERRVEC+2 ON STACK

:SETUP FOR TIMEOUT

RMCSS(RO),STMPO ;GET 'NED'* STATUS

#DVA,STMP1

#112,316(sP)

(R), (R1)

(R4) ¢

:DEVICE AVAILABLE??
:USER'S ERROR CALL

;DONE??
TYES!!
:R1 = REGISTER ADDRESS
:CLEAR ANY SIGN EXTENSION

:R3 = STORAGE ADDRESS
JCLEAR ANY SIGN EXTENSION

:WRITE REGISTER

sADJUST REGISTER POINTER

! CZRMNAQ RHOSISIZ FCTNL TST 2
PUI SUBROUT1

MACRO v03.01

B 14

11-APR-80 13:17:48 PAGE 21 -1

37
37
37
37
37
37
37
37
37

38
CMP

766
776
766

000004
000007
000002

ADD
MovB

2637
2637

000006
000004

MOv

SuB

MOV
MOV
MOV
MOV
MOV

MOv
RTS

(SP)+,
#6, 161
7,316
n2,16(

[ 7 N 7,
Vo
~ 0V~
0V

mv«wmmwgv’uViDL

37 30
37 32
37 40
3754

[eleleleleleleleleNelelel-]

oo
-0

Voo~NOorWV~

WVWWWWAWLDY

Sg 037526

SEQ 0170

)

sADJUST STACK

)

JUSER'S ERROR CALL

( SP )¢ ERRVE(C+2
( SP )+ ,ERRVEC
( SP)+ R4
( SP)+,R3
( SP)+,R2
( SP)+,R1

(SP)+,R0O
PC

sWRITE ERROR NUMBER IN

:sPOP STACK

INTO ERRVEC+2

;sPOP STACK INTO ERRVEC
;:POP STACK INTO Ré
;sPOP STACK INTO R3

;:POP STACK INTO R2

:sPOP STACK INTO R1

;:POP STACK
sRETURN

INTO RO

CZRMNAOD RMOS/3/2 FCTNL TST 2
SI1ZE CLOCK SUBROUTINE

€ 14
MACRO v03.01 11-APR=-B0 13:17:48 PAGE 22
\

i 037600

LSBTTL

& 037600

013766

000004

6 037610

012737

037646

S 0376064

7 037616

013746

000006

SIZCLK:

SIZE CLOCK SUBROUTINE

MOV

000004

MOV

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

#177546,CLKADR

;LOAD ADDRESSES FOR Kw1l=L

000006

MOV

¢rn3 ERRVEC+2

9 037632
10 037640
11 037644
12 037
13 037650

012737
005777
000421
022626
012737

000100
141652

001520

037700

000004

MOV
1S1
BR
CMP
MOV

#100, CLKVCT
CLKADR
38
(SP)+,(SP)+
#2% ERRVEC

15 037

012737

000104

001520

17 037676
18 037700
;3 83;;?3

000404
022626
062766

037710
21 037714
gg 037720

012637
012637
000207

14 037656

16 037672

012737

005777

177546

172540

141620

000002

000006
000004

001516

MOV

18:

;PUSH ERRVEC+2 ON STACK

:SET UP FOR BUS TIMEOUT

000300

012737

;sPUSH Envec ON STACK

#18 ERRVEC

012737

8 037626

SEQ 0171

;TEST FOR KW11-L PRESENT
SYES = KW1l=L IS PRESENT
‘RESTORE SP
:SET UP FOR BUS TIMEOUT

001516

MOV

#172540,CLKADR

18T

CLKADR

;TEST FOR KW11=P PRESENT

000004

BR
CMP
ADD

MOV
MOV
RTS

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

::POP STACK INTO ERRVE(C+2
;:POP STACK INTO ERRVEC
CRETURN TO USER

MOV

28:

#104,CLKVCT

3s
(SP)+,(SP)+
#2.4(5P)

:LOAD ADDRESSES FOR KW11=P CLOCK

SVES = KW11=P 1S PRESENT
*RESTORE SP
:MOVE RETURN TO ERROR

CIRMNAO RMO5/3/2 FCTNL TST 2

TIMEOUT SUBROUTINE

MACRO v03.01 11-APR-80 13:17:48 Png 23

SBTTL

SEQ 0172

TIMEOUT SUBROUTINE

;THIS SUBROUTINE WAITS FOR RDY = 1 AND GO = 0 OR FOR A TIMEOUT

sCALL:

;

sGREATER THAN APPROX. SO0 MSEC AND THEN RETURNS.

9 037722

037722
037726
037726
037730
037734
10 037740

11 037746
12 037754
13 037760

14 037764
15 037770

16 03777¢

17 037776
}3 040004

20 040010
21 060014
22 0640020
23 040024
264 060026
25 040032
26 040034
27 040036
28 040040
29
30 040042
31 040044
32 040052
gz 04

35 04
04
040072
040076
040100
040102
36 0640106

:
010046
010146
010246
013746
013749
012737

0\§737
013700
013701

012702
020127

001003

TIMOUT:

000004
0000
040042

000300
001276
001516

000036
172540

(12761
012711

000001
000005

016046
042716
022726
og1420
032711
001766
005302
001354
000412

000000
177576
000200

022626
062766
112776
162766
012637
012637
012602
012601
012600
000207

000004
000006

000006
000004

000012
000012
000012

MOV
MOV
MOV
MOV
MOV
MOV

RO.=(SP)
R1,=(SP)
R2,-(SP)
ERRVEC,=(SP)
ERRVEC+2,=(SP)
#48 ,ERRVEC

17?

MOV
CMP

BNE

#PRG,ERRVE(+2
$BASE RO
CLKADR,R1

#30. RS
R1,#172540
2%

RETURN HERE
;:PUSH RO ON STACK
:;PUSH R1 ON STACK
:;PUSH R2 ON STACK
::PUSH ERRVEC ON STACK
:;PUSH ERRVEC+2 ON STACK
;SETUP FOR BUS TIMEOUT = 04 TRAP
;RO=BASE ADDRESS
:R1=CLOCK ADDRESS

;R2=NUMBER OF CLOCK CYCLES
‘KW11=P CLOCK??
sNO!!

MOV
MOV

#,2(R1)
sSET COUNTER
#BIT2'BITO,(R1) ;START COUNTER

3%:

MOV
BIC
cMP
BEQ
BIT
BEQ
DEC
BNE
BR

6$:

CMP
ADD
MOvVB
SuB

RMCST1(RO) ,=(SP) :GET STATUS
#*C<RDY'!GO>,
(SP)
#RDY, (SP)+
:RDY=1,60=0??
5%
JYES!!
#BIT7,(R1)
;TIMER DONE??
38
:NO!!
R2
;DEC NUMBER OF CYCLES
1%
;CONTINUE IF NOT DONE
5%
:"RDY'' DID NOT SET OR *'60'* DID NOT RESET
:WITHIN SO0 MSEC AFTER THE COMMAND WAS 1SSUED.
(SP)+,(SP)+
:ADJUST STACK
#6,12(5P)
;MOVE SP TO USER'S CALL
#7,312(5P)
;WRITE ERROR NUMBER
#2,12(5P)

MOV
MOV
MOV
MOV
MOV
RTS

(SP)+ ,ERRVEC+2
(SP)+,ERRVEC
(SP)+,R2
(SP)+,R1
(SP)+,RO
PC

2%:

000200

000004
000007
000002

PC,TIMOUT

MOV
MOV
MOV

18:
000002

JSR

5%:

::POP STACK INTO ERRVE(C+?2
;:POP STACK INTO ERRVEC
::POP STACK INTO R?2
::POP STACK INTO R
::POP STACK INTO RO
JRETURN TO USER

E 14
MACRO v03.01 11-APR=-B0 13:17:48 PAGE 24

VN guwwwuuNNNNNNNNNNfl—.-‘-‘-o_o_.—o_.-‘
NS NN = OOV N
VS NN = OO0~
V8 NN = OO 00 O VIS NN —

CIRMNAD RMO5/3/2 FCTNL TST 2
ERROR CHECK SUBROUTINES

.SBTTL
AR

ERROR CHECK SUBROUTINES
A

PRIMARY ERROR CHECK SUBROUTINE

2222222222222

;FOLLOWING CHECKS ARE MADE:

THE

;

.CORRECT UNIT 1S SELECTED « 1.E., THE UNIT SELECT BITS OF RM(CS?2
1(BITS 0-2) EQUAL THE UNIT BEING TESTED;

-SELECTED UNIT IS AVAILABLE, 1.E., DVA (BIT 11 OF RMCS1) 1S SET

«LAST COMMAND WAS COMPLETED,

sAND NED

(BIT

12 OF RMCS2)

1S RESET;

1.E., THE MASSBUS CONTROLLER IS

;READY (BIT 7 OF RMCS1) AND THE GO BIT IS RESET (BIT 0 OF RMCS1) OR THE
;:DRIVE READY BIT (BIT 7 OF RMDS) IS SET.

:1 £

Hégg PASITV ERROR OCCURRED WHEN READING REMOTE REGISTERS,

:
.NO PARITY ERROR OCCURRED WHEN WRITING REMOTE REGISTERS,
;1.E., PAR = 0, OR, PAR = DPE = 1

*THE SUBROUTINE ASSUMES THAT:
:

.STATUS HAS BEEN STORED IN THE REGISTER INPUT BUFFER.

:IN PARTICULAR, RMCS1, RMCS2 AND RMDS HAVE BEEN STORED IN THEIR

THE "'GET'' BUFFER.

; CORRESPONDING LOCATIONS OF

.(SUNIT) CONTAINS THE DRIVE NUMBER

*THE SUBROUTINE 1S CALLED AS FOLLOWS:
S

JSR

:
3
:

NOP
ERROR
JSR

PC,PRIERR
m

PC,a(SP)+

RETURN HERE

NO ERROR

RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEF INED BY SuB
GO BACK TO SUB FOR MORE ERROR (MECKS

RETURN HERE IF NO MORE ERRORS

PRIERR:

sCLEAR USER'S ERROR CALL

&, 0640106
45 040112
4? 040116

062716
105076
162716

000004
000000
000004

48
49 060122

013737

001344

001142

123737

001140

001142

53 040152
5
55 040160
56 040162
57 040166

:THE _PURPOSE OF THIS SUBROUTINE IS TO VERIFY TWAT STATUS IS VALID AND

:; 040106

50 040130
51 040136
52 060144

; THAT FURTHER ERROR AND STATUS CHECKING SHOULD BE PERFORMED.

[

.SBTTL

3
3
30

SEQ 0173

042737
013737
042737
001415
062716
112776

177770
001234
177770

000004
000001

ADD
CLRB
sus

001142
001140
001140

000000

#s,(SP)
a(SP)
#6,(SP)

;MOVE (SP) TO ERROR CALL
sCLEAR ERROR NUMBER
sMOVE (SP) TO NO ERROR RETURN

sREPORT AN ERROR IF THE WRONG UNIT IS SELECTED
MOV
RMCS2]1 ,$BDDAT
;CORRECT UNIT SELECTED??

BIC
MOV
BlC

#*CUNTMSK ,SBDDAT
SUNIT,SGDDAT
:GOOD DATA FOR TYPEOUT
#*CUNTMSK ,SGDDAT

BEQ
ADD
MOvB

1%
#5,(SP)
#1.,3(5P)

CMPB

$GDDAT,$BODAT

;COMPARE EXPECTED AND RECEIVED
:DRIVE NUMBERS
sVES:!
;ERROR 1

CZRMNAD RMO5/3/2 FCTNL TST 2

PRIMARY ERROR CHECK SUBROUTINE

58 040176

59 040200

60 040202
61 040206
62 040210
63 040214

162716

000002

162716
000240
000137

000010

004736

MACRO v03.01

040730

1%:

;REPORT

67 060214
68 060222
69 060226
70 040232

71 0640240
72 0602646

73 040252

060260
060266
060270
060276
040
040312

80 040320
81 040324
82 060326

032737
001045
013737
052737

013737
062716

112776

032737
001414
013737
013737
042737
112776

162716
004736
162716

84 0403

000575

88 040336
89 040344
90 040346
91 040354
92
060362
93 040370
96 040376
95 040402
96 040410
97 060414
98 040416
99 040422
100 0404246

032737
001030
013737
052737
042737
013737
062716
112776
162716
004736
162716
240
000541

85 040336
g?

10° 060426
102
103
106 040426
105 040434
106 040436
107 040444
108 040446
109 040454
110 040462

111 060470
112 0640476
113 040502
114 040506

032737
001431
032737
001025
013737
06%73?
013737
062716
112776
162716
004736

004000

001334

001334
004000
001334
000004
000002
010000

001140
001140

001344
001344
010000
000003
000002

;MOVE SP TO RETURN FOR ERROR
;REPORT WRONG UNIT SELECTED

JMP

108

:SKIP OTHER CHECKS

001142

MOV

ADD

000000
001344
001140
001142
001140
000000

2%:

MOVE
BIT
BEQ
MOV
MOV
BIC
MOVB
SUB
JSR

382
.

000200

001334

001334
000200
160001
001334
000004
000004

001140
001140
001140
001142

;REPORT AN ERROR

001346

001334
160001
001334
000004
000005
000002

001140

001140
001142

000000

IS NOT

AVAILABLE OR

:DEVICE AVAILABLE??
YES!!
:EXPECTED STATUS

RMCST1,8BODAT

;RECEIVED STATUS

#2.3(5P)
#NED,RMCS21
28
RMCS21,$GODAT
RMCS21.$BDDAT
#NED, $GDDAT
#3,3(SP)
#2.(SP)

:ERROR #2
:WAS NED SET??
INO!!
;EXPECTED STATUS
:-RECEIVED STATUS

90, (sp)

CRESTORE (SP)

#, (SP)

PC.(SP)+

108
IF

IFf

:YES = CHANGE ERROR NUMBER
‘MOVE SP TO RETURN FOR ERROR
:REPORT DEVICE NOT AVAILABLE

;SKIP OTHER CHECKS
MASSBUS CONTROLLER

IS NOT

READY

MOVB
SUB

#4.3(SP)
#2,(SP)

;ERROR #4
*MOVE SP TO RETURN FOR ERROR

00, (sP)

*RESTORE (SP)

JSR

000200

THE DEVICE

#RDY,RMCS1]
:CONTROLLER READY??
7%
SYES!!
RMCS11,8GDDAT
:EXPECTED STATUS
#RDY, SGDDAT
#SC' TRE ' MCPE ' GO, $GDDAT
RMCS11,$BDDAT
:RECEIVED STATUS

382

000010

001334

*RESTORE (SP)

BIT
BNE
MOV
BIS
BIC
MOV

ADD

000000

000001

00, sp)

: THE DEVéE% IS NONEXISTANT
#DVA,RMCS1]
BNE
5%
MOV
RMCS11,8GODAT
BIS
#DVA,SGODAT

000010

000002

PC a(SP)+

AN ERROR

#2,(SP)

SEQ 0174

suB
JSR

agg

76
5
76
77
78
79

F 14
11-APR=-B0 13:17:48 PAGE 24~1

#4, (SP)

PC.A(SP)+

108

*REPORT CONTROLLER NOT READY

:SKIP OTHER CHECKS

:REPORT AN ERROR IF GO IS NOT ZERO AND DRY IS NOT ONE
BIT
#GO,RMCS1]
:60 RESET??
BEQ
84
TYES!!
BIT
#DRY,RMDS]
:DRIVE READY??
BNE
8%
sYES!!
MOV
RMCS11,8GDDAT
:EXPECTED STATUS

BIC

#SC' TRE 'MCPE ' GO, $GDDAT

ADD

95, (SP)

MOV

MOVB
SuB
JSR

RMCS11,$BODAT

;RECEIVED STATUS

#5.3(5P)
#2,(SP)
PC,a(SP)+

:ERROR #5

sMOVE SP TO RETURN FOR ERROR
+REPORT DRIVE NOT READY

CIRMNAD RMO5/3/72 FCTNL TST 2

PRIMARY ERROR CHECK SUBROUTINE

000240
000504

122 040520
123 040526
1264 040530
125 040536
126 060544
127 040552
128 040556
129
040564
130 040570
131 040572
132 040576
133 040600
134 040602
135
136
137 040602
138 040610
139 040612
140 060620
141 060622
16; 040630
163 040632

032737
001425
013737
042737
013737
062716
112776
162716
004736
162716
000240
000453

181

1644
1645
1646
147
148
149
150
151

060636
060640
060644
060646
040650
060652
040654
040656

152 040660
153 04
1564 060674
155 040702
156 040706
157 060714
158 040720
159 040722

160 040726
161 040730
162 040734

}gz 040736

032737
001451
032737
001045
032737
001413
010046
012700
122710
001002
012600
000431
105720
100371
012600
013737
042737
013737
062716
112776
162716
004736
162716
000240
062716
000240

000207

001334

001140
001140
001142

001334
000004
000013
000002

ADD

move

#2,(SP)

PC.(SP)+

SUB

010, (5P)

108

NOP

000010

001376

000010

001424

001551
000014

sREPORT

91%:

AN ERROR

BIT
BEQ
BIT
BNE
BIT
BEQ
MOV
MOV

CMPB
BNE
MOV

92%:

001140
001140
001142

93s:

SUB

NOP
ADD
NOP
RTS

THE

CONTROL BUS??

;sPOP STACK INTO RO
;PAR WAS SET BY TEST

#PAR,SGDDAT
RMERT1,$BDDAT

JSR

*NOT SURE'!
:aéq'resr SET PAR 77

(SP)+,R0

#RMER1, (RO)
92%

BIC
MOV

SUB

*WAS

:PUSH RO ON STACK

918
(SP)+,R0

MOV

INO!!

RO,=(SP)
#PUTINX,RO

BPL
MOV

1STB

:MOVE STACK TO USER'S ERROR
:ERROR M3
*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER
:RESTORE STACK

DETECTED A CONTROL BUS PARITY ERROR
;uss THERE A PARITY ERROR??

move

000010

#PAR,RMER1]
1%
#DPE ,RMER2]
1%
#PAR,RMER10
938

ADD

000000

(SP)

#1%.,3(5P)

SUB

9%:

000010

RMCS11,8GDDAT
‘EXPECTED STATUS
#SCT
' MCPE
RE
!GO, $GDDAT
RMCS11,$BDDAT
;RECEIVED STATUS

JSR

001350

;RESTORE (SP)

108

MOV
BIC
MOV

000000

000010

SEQ 0175

sREPORT AN ERROR IF THE RM CONTROLLER DETECTED BAD
sPARITY ON_THE MASSBUS CONTROL BUS
;PA?{TV ERROR ??
BIT
#MCPE ,RMCS 1]
BEQ
98
INO'!

000010

001350
000010
001350
000004
000050
000002

#10,(SP)

SUB
NOP
BR

020000

160001

6 14

11-APR=B0 13:17:48 PAGE 24=2

000010

—_
L X

162716

116 040514
117 040516
118 040520
119

——

115 040510

MACRO v03.01

(RO)+

RMER11,$GDDAT
94,

(SP)

#50.3(sP)
#2,(5P)

PC.a(SP)+

910, (SP)
910, (SP)
PC

‘RO POINTS TO INDEX TABLE
*SEARCH TABLE FOR RMER1

;END OF TABLE??

300!
!

2:POP STACK

INTO RO

JEXPECTED STATUS

;RECEIVED STATUS
sMOVE SP TO USER'S ERROR CALL
;WRITE

THE ERROR NUMBER

:MOVE SP TO RETURN FOR ERROR
;REPORT THE ERROR
:MOVE SP TO NO ERROR RETURN
sRETURN TO ERROR
;RETURN TO NO ERROR

CIRMNAD RMO5/3/2 FCINL TST 2
MACRO v03.01
SECONDARY ERROR CHECK SUBROUTINE
1

.SBTTL

2
3
5

6
7

8
9

;7O THE

10
1
12
13
14
15
16
17
18
19

30 040754
31 040760
g% 040764

38 040770
39 040776

40 041000
41 061006
&2 0641014
43 041022
&4 0641026
45 0641034
46 0641040
47 0641042
48 041046

51 041050
52 0641056
53 041060

56 0641066

55 041074
56 041100
57 0641104

SECONDARY ERROR CHMECK SUBROUTINE

TEST ROUTINE WHICH MAKES THE ERROR CALL.

AFTER THE

TEST ROUTINE

sMAKES THE ERROR CALL, IT RETURNS TO THE SUBROUTINE WHICH THEN LOOKS FOR
;OTHER ERRORS. WHEN ALL ERRORS HMAVE BEEN REPORTED, THE SUBROUTINE
;RETURNS TO THE ADDRESS FOLLOWING THE

SCALL:
3
;
;
;
:

JSR

PC,SECERR
7

BR
NOP
ERROR
JSR

PC,a(SP)+

272

SUBROUTINE CALL.

RETURN HERE
RETURN HERE

IF NO ERROR
TO REPORT AN ERROR

RETURN HERE

ERROR NUMBER DEF INED BY SuB
GO BACK TO SUB FOR MORE ERROR CHECKS
NO MORE

ERRORS

sNOTE:
THE SUBROUTINE ASSUMES THAT REGISTERS MAVE BEEN STCRED AT THE
s INPUT REGISTER BUFFER.
SECERR:
:.'"""."".'"'""""""'.'.'..."""."""'.'"""'Q"'

013737
042737
062716
105076
162716

001410
177701
000004
000000
000004

044574
044574

b2
35

SEQ 0176

:THE ERROR CHECK SUBROUTINE PROVIDES DETECTION OF SECONDARY ERRORS
:SUCH AS UNEXPECTED ERRORS AND UNEXPECTED REGISTER CONTENTS. THMESE
;ERRORS ARE DEEMED SECONDARY IN THAT THEY ARE NOT NECESSARILY
sASSOCIATED WITH THE OPERATION BEING PERFORMED.
;WHEN THE SUBROUTINE IDENTIFIES SUCH AN ERROR, 1T MOVES THE ERROR
;NUMBER TO THE ERROR CALL IN THE TEST ROUTINE AND THEN RETURNS

20
21
22
23
24 040740
25
26
27
28 040740
29 040746

H 14
11-APR-B0 13:17:48 PAGE 25

;STORE FUNCTION CODE AND CLEAR USER'S ERROR NUMBER
MOv
RMCS10,515%
; STORE FUNCTION CODE
BIC
P C<FO!F1!F2!F3!F&>,5158
ADD
#s,(SP)
;MOVE (SP) TO ERROR CALL
a(SP)
CLRB
;CLEAR ERROR NUMBER
suB
¥, (SP)
- sMOVE (SP) TO NO ERROR RETURN
'.".....".."."""'""""."'..""'.'."'."...."".Q'."'

*CHECK SECONDARY ERRORS COMMON TO ALL COMMANDS
032737
001024

013737
042737
012737
062716
112776
162716
004736
162716
000240

032737
001423
013737

042737
005037
062716
112776

000200

001346

001346
177577
000200
000004
000010
000002

001142
001142
001140

:REPORT ERROR IF DRIVE 1S NOT READY, I.F.. IF DRY = 0
BIT
#DRY ,RMDS|
:DRIVE "READY??
BNE
5%
MOV
RMDS1,$BDDAT
BIC
#*CDRY,$BDDAT
MOV
#DRY,SGDDAT
;600D DATA FOR TYPEOUT

fgio'bArA FOR TYPEOUT

000000

ADD

06,

SUB

#2,(SP)

SUB

00, (sp)

move

PC.a(SP)+

JSR

000010

NOP

000001

001334

001334
177776
001140
000004
000011

001142

001142
000000

-REPORT

§%:

ERROR

BIT

BEQ
MOV

(SP)

#10,3(sP)

GO BIT

IS NOT

#GO,RMCS1]

108
RMCS1i,$BDDAT

BIC

#°CG60,$BDDAT

ADD

94,

CLR

move

;ERROR NUMBER
:MOVE SP TO RETURN FOR ERROR
sREPORT NOT READY
sRESTORE (SP)
RESET

;60 BIT RESET??

TYES!!
:BAD DATA FOR TYPEOUT

$GDDAT

:6GOOD DATA FOR TYPEOQUT

#11,acsp)

:ERROR NUMBER

(SP)

TO ERROR N

CZRMNAO RMO5/3/2 FCTINL TST 2
MACRO v03.01
SECONDARY ERROR CHECK SUBROUTINE

58 061112
59 061116
60 061120
61 041124

162716
004736
162716
000240

66 041126
65 0641134
66 061142
67 061150
68 041156
69 061160

013737
042737
013737
023737
001413
062716

70 041164
71 061172
72 0641176
73 061200
76 041204
75 041206
76
77
78
79 061206

80 041212
81 041216
82 061220
83 041224
84 061226
85 061234

86 061262

87 061250
88 041256
89 0641260
90 041264
91 041272
92 041276
82 041300
95
96
97
98 041304
99 0641310
100 0641314
10° 041320
102 041322
103 041330
106 0641332
105 041340
106 0641342
107 041350
108 061356
109 041364
110 041372
111 0641374
112 061400
113 061406
114 041412

112776
162716
004736
162716
000240

1 14

11-APR-80 13:17:48 PAGE 25-1

000002

SUB
JSR

sSUB

000010

001334
177701
064574
001142

000004

000012
000002

#2,(SP)
PC.a(SP)+

00, (5P)

NOP

001142
001142
001140

-REPORT ERROR

10$:

MOV

RMCST1,$BDDAT
#~(76,$BDDAT
5158, $GDDAT

CMP
BEQ

000000

$BDDAT, $GDDAT
15%

ADD

04,

SUB

#2,(SP)

MOVE

PC.a(SP)+

SUB

90, (SP)

NOP

15%:

(SP)

#12,3(SP)

JSR

000010

sMOVE SP TO RETURN FOR ERROR
;REPORT DEVICE NOT AVAILABLE
;RESTORE (SP)

FUNCTION CODE READ FROM DEVICE

BIC
MOV

001140

SEQ 0177

:REPORT AN ERROR

IS NOT

CORRECT

;1S FUNCTION CODE CORRECT??

SEXPECTED FUNCTION CODE
sVES!!

. FOR ERROR
SP T0 RETURN
IMOVE

;REPORT WRONG FUNCTION CODE
;RESTORE (SP)

COMPOSITE ERROR

IS SET AND NO OTHER

;ERRORS ARE SET, OR IF COMPOSITE ERROR IS NOT SET AND

005037

005737
001003
005737
001403
052737
013737

042737

023737
001412
062716
112776
162716
004736
162716

:OTHER ERRORS ARE SET

001140

CLR

001350

BNE

001376

040000
001346
137777
001140

001140
001142
001142
001142

000004
000047
000002

000000

BEQ
BIS
MOV
BIC
(MP
BEQ

208:
258:

JEXPECT "ERR'' = 0

208

sNO!!

RMER21]

258
#ERR, $GDDAT
RMDS],$BDDAT
#*CERR,SBODAT
$GDDAT
. SBODAT
308

SUB

#2,(5P)

JSR

SUB

;1S RMER1 = 0??
[}

ADD

MOVB

000010

$GDDAT

RMER1]

,(SP)

#47,3(SP)
PC.a(SP)+

910, (sP)

;1S RMERZ = 0??

2VES!!

;"'ERR'" SOULD BE SET
;1S "'ERR'' 0k??
sVES!!
sMOVE SP TO USER'S ERROR
JWRITE ERROR NUMBER
sMOVE SP TO ERROR RETURN

JREPORT INVALID COMP ERROR

sREPORT AN ERROR I1F "'TRE'' IS SET AND NONE OF THE BITS WHICH SET
:TRE IS SET, OR IF TRE 1S NOT SET AND ONE OR MORE BITS WHICH
005037
013746
042726
001010
032737
001407
022737
103003
052737
013737

042737
023737
001413
062716
112776
162716
004736

“SET

508 :

001140
001344
000377
040000

001346

000030

064574

040000
001334
137777
001140

001140

000004
000014
000002

001142
001142
001142
000000

35%:

40$:

TRE

IS SET

CLR

$GDDAT

JEXPECT ""TRE'' = 0

BIC
BNE
BIT
BEQ
CMP
BHIS
BIS

#377.(5P)+
358
#ERR,RMDS]
408
#SEARCH,515%
40$
#TRE ,$GDDAT

:PgE:.HXF OR MDPE SET

3=3§:DAIA TRANSFERRED??
*TRE'* SHOULD BE SET

BIC
CMP
BEQ

#*CTRE ,$BODAT
$GDDAT
. $BODAT
45%

;1S "'TRE' 0k??
sVES!!

MOVB
SUB

#14,3(5P)
#2,(5P)

MOV

MOV
ADD

JSR

RMCS21,=(SP)

RMCST1,SBDDAT

84, (SP)

PC.a(SP)+

sWAS DLT, WCE,

UPE,

NED,

NEM

sWAS EXCEPTION RECEIVED??
.NOII

*BAD DATA FOR TYPEOUT

sMOVE SP TO USER'S ERROR CALL

sWRITE ERROR NUMBER
sMOVE SP TO RETURN FOR ERROR
sREPORT TRE ERROR

CIRMNAO RMO5/3/2 FCINL TST 2

SECONDARY ERRCR CHECK SUBROUTINE

115 061414

116 061420

}}; 061422

162716

000240

J 14
MACRO v03.01 11-APR-80 13:17:48 PAGE 25-2

000010

SUB

458:

NOP

910, (SP)

:RESTORE

SEQ 0178

(SP)

119

":"""'."""'"""""'"'l".'l"'."'..l."'..""Q'Q"'.'

120
121
122
123

;USING THE FUNCTION CODE TABLE, CHMECK FOR THE FOLLOWING ERRORS:
:
.STATUS BITS NOT SET THAT SHOULD BE SET, E.G., ATA AND ILF
:
.STATUS BITS SET THAT SMOULD NOT BE SET. E.G.. WCE AND ECH
:NOTE THAT SOME ERROR BITS ARE CONDITIONAL ON THE COMMAND AND OTHER

}gg

SWRITE LOCK 1S ON AND THE COMMAND IS A WRITE.

124

:STATUS CONDITIONS, E.G.,

127
128 041422

010046

130 061430
}gs 061436

016037
012600

129 041426

133
134

135
136
137
138
139
140
141
14%
143
144
145
146

013700

044574

064406

041440
041446
0414564
0641456
041464
041472
041500
061506
041514
041516
041522
0641530

013737
032737
001403
052737
042737
013737
042737
023737
001413
062716
112776
162716

148 041536

162716

000010

147 041534

149 041542
}g? 061544

004736
000240

100000
077777
001346
077777
001140

001140
001140
001142
001142
001142

000004
000006
000002

000000

162 041616

162716

000002

112776

163 061622

004736

166 061626

MOV
MOV

508:

000004

000254

MOV
BIT
BEQ
BIS
BIC
MOV
BIC
CMP
BEQ
ADD
MOVB
SUB

JSR

SUB

001140
001140
001142
001142
001142

000000

5188 ,R0

:GET FUNCTION CODE

FNCDTB(RO),5008 :STORE ENTRY
(SP)+,R0
::POP STACK INTO RO

JREPORT AN ERROR IF AN UNEXPECTED ATTENTION OCCURRED OR IF
SATA 1S NOT SET AND SHOULD BE SET.

558

044566
177776
001350
177776
001140

161 061610

MOV

064566

001140
001346

013737
042737
013737
062737
023737
001412
062716

NOP

500%,$GDDAT
#ERR,RMDS]
508
#ATA,SGDDAT
#~CATA,$GDDAT
RMDSI,$BODAT
#*CATA,SBDDAT
$GDDAT.SBODAT
55
#4,(SP)
#6,9(SP)
#2.(SP)
PC,a(SP)+

#0, (sP)

JGET EXPECTED ATA STATUS
:1S COMPOSITE ERROR SET 22
INO !!
sEXPECT AN ATTENTION
:STRIP DONT CARES
:GET RECEIVED ATA
;STRIP DONT CARES
:1S ATA OK 27
TYES !
;MOVE SP TO USERS ERROR CALL
JLOAD ERROR # IN CALL
:MOVE SP TO ERROR RETURN

JREPORT ERROR

*RESTORE SP

JREPORT ERROR IF ILF IS INCORRECT, 1.E., IF !LF DOES NOT COMPARE
:WITH FUNCTION CODE TABLE
MOV
5008, $GDDAT
:GET EXPECTED ILF
BIC
#*CILF,SGDDAT
:CLEAR ALL OTHER BITS
MOV
RMERT]1.$BDDAT
:GET RECEIVED ILF
BIC
#~CILF.$BODAT
:CLEAR ALL OTHER BITS
CMP
$GDDAT.$BDDAT
:IS ILF OK 2?
BEQ
608
SYES !
ADD
#4, (SP)
:MOVE SP TO USERS ERROR CALL

Move

#254.3(5P)

‘WRITE ERROR NUMBER IN CALL

JSR

PC.A(SP)+

*REPORT ERROR AND RE TURN

SUB

}gg 061630

005037

001140

608:

167
168 041634

013746

044566

;REPORT AN ERROR If WCE 1S SET AND SHOULD NOT BE SET
MOV
5008 ,-(SP)
:GET WCE STATUS ENABLE

170 061644

013737

001344

171 0641652

042637

001142

CLR

00, (sp)

:MOVE SP TO ERROR RETURN

000010

137777

SUB

#2,(SP)

162716

169 061640 052716

IFf

:GET AND STORE THE ENTRY FROM THE FUNCTION CODE TABLE
MOV
RO,=(SP)
;:PUSH RO ON STACK

044566
040000

152
153
154 0641546
155 061552
156 061560
157 041566
158 061574
159 061602
160 041606

WRITE LOCK ERROR SHOULD ONLY BE SET

$GDDAT

:MOVE SP TO NO ERROR

:CLEAR EXPECTED STATUS

BI1S

#*CWCE, (SP)

SSET ALL OTHER BITS

BIC

(SP)+,$BDDAT

:CLEAR WCE IF ENABLED

MOV

RMCS2].$BDODAT

:RECEIVED STATUS

K 14

CIRMNAD RMO5/3/2 FCTNL TST 2
MACRO v03.01 11-APR-B0 13:17:48 PAGE 25-3
SECONDARY ERROR CHECK SUBROUTINE
172 061656
173
041660
176 061664

175 041672
176 061676

177 061700

162716
004736

000004
000026

00000¢

162716

000010

061704

013746

044566

061722

042637

};3 041704
180
181
182
183
184
185
186
187
188
189

001412
062716
112776

061710
061714

041726
041730
061734
061742
041746

190 041750

}gg 041754

052716
013737

001412
062716
112776
162716
004736

162716

000000

908 :

157777
001350
001142

001142

000004
000164
000002

000000

000010

193

194
195 041756
196 061760

197 061766

198 061770
199 061774
200 042000

201
202
203
204
205
206

042006
042012
042014
042020
062026
042032

207 0620364

583 0462040

BEQ
ADD
MOVE
SUB
JSR

SUB

044566
000100

042716
052716
013737

010000
167777
001376

001402

062637
001412
062716
112776
162716
004736

162716

001142

000004
000165
000002

001346

001142

1008 :

00, sp)

SUB

"0, (sP)

:MOVE SP TO ERROR RETURN
*REPORT ERROR

‘RESTORE ERROR

BEQ

1058:

BIC
BIS
MOV

105¢

BIC
BEQ
ADD
MOVB
SUB
JSR

1108:

SUB

‘RESTORE SP

IVC IS SET AND IS NOT ENABLED OR IF

:SET AND vV IS NOT RESET
MOV
5008 ,-(SP)
BIT
#VV,RMDS
|

000000

000010

#2,(5P)
PC a(SP)+

:BRANCH IF WCE OK
sMOVE SP TO USER'S ERRCR CALL
‘WRITE ERROR NUMBER

;REPORT ERROR ]F OP1 STATUS IS SET AND SHOULD NOT BE SFT
MOV
08,=(SP)
;GET OP]1 STATUS ENABLE
BIS
#4COP1, (SP)
:SET ALL OTHER BITS
MOV
RMER1],$BODAT
;GET RECEIVED STATUS
BIC
(SP)+,$BDDAT
:CLEAR OPI IF ENABLED
BEQ
1008
"
:BRANCH IF OPI OK
ADD
#6,(SP)
JMOVE SP TO USER'S ERROR CALL
MOVB
#164,3(SP)
:WRITE ERROR NUMBER IN CALL
SUB
#2,(5P)
:MOVE SP TO ERROR RETURN
JSR
PC,a(SP)+
JREPORT ERROR

;REPORT ERROR IF
013746
032737

908
#6,(SP)
#26,3(SP.

SEQ 0179

#IVC, (SP)
#*CIVC, (SP)
RMER21,$BODAT

(SP)+,$BDDAT
1108
#6,(SP)
#165,3(SP)
#2,(SP)
PC,a(SP)+

#10, (SP)

IVC IS

:GET IVC STATUS ENABLE
SIS wv SET

INO !

SYES = IVC SHOULD BE 0
:SET ALL OTHER BITS
:GET RECEIVED STATUS

:CLEAR IVC IF ENABLED
:BRANCH IF IVC OK
sMOVE SP TO USERS ERROR CALL
:WRITE ERROR NUMBER IN CALL
‘MOVE SP TO ERROR RETURN
JREPORT ERROR

:RESTORE SP TO NO ERROR

210

;BIT 11

212
213
214
218

)
RMERT - WLE, WCF
:
RMER2 - DPE
:
RMCS2 - UPE.
;EACH OF THESE ERRORS 1S CHECKED TO SEE IF AN ERROR 1S SET WHEN THE

218

;REPORT AN ERROR IF WLE 1S SET AND WRITE ERRORS ARE NOT ENABLED, OR IFf

211

5}'7’
219

220 042040
221 062046

1.E.,

;WRITE ERROR ENABLE BIT 1S RESET.

012746
032737

222 0462052
223 062054
224 062062
225 062064

001404
032737
001002
042716

228 042102

001412

226 062070
227 062076

(WLE) OF THE FUNCTION CODE TABLE 1S THE ENABLING BIT FOR

ALL WRITE ERRORS,

013737
062637

:THE DRIVE

177777
004000

044566

004000

001346

004000

001350
001142

001142

MOV
BIT

1158:

1208:

IS NOT WRITE PROTECTED

#-1,-(SP)
#WLE 5008

sASSUME WRITE ERRORS ENABLED
*ARE WRITE ERRORS ENABLED ?7?

RMERT1,$BODAT
(SP)+,$BDDAT

:GET RECEIVED STATUS
:CLEAR WLE IF ENABLED

BEQ
BIT
BNE
BIC

1158
#WRL ,RMDS ]
1208
#WLE, (SP)

BEQ

125%

MOV
BIC

INO !
:1S THE DRIVE WRITE PROTECTED 2?
SYES !
TRESET WLE ENABLE
sBRANCH IF WLE Ok

e
CZRMNAO
RMOS/3/2 FCTNL TST | 2

SECONDARY ERROR CHECK SUBROUTINE

229 042104

062716

000004

231 062116
232 062122

162716
004736

000002

230 062110

233 062124

112776

000023

14
WACRO v03.01 11-APR-80 13:17:48 PAGE 25-4
000000

162716

000010

236
237 062130
238 062136
239 062142
260 062144
261 062150

012746
032737
001002
042716
013737

177777
004000

044566

000040
001350

001142

263 062162
266 062166

001412
062716

%gg 062130

262 062156

265 062170

266 062176
247 042202

248 0622064

ggg 062210
251
252 0642210
253 042214
254 062222
255 0622264

256 062230
257 042236

062637

112776

162716
004736

000025

000002

000010

012746
032737
001002
062716

177777
004000

013737
062637

001412
062716

261 062256
262 042262

162716
004736

263 062266

000004

162716

258 042242
259 042244

260 062250

001142

112776

000010

001376
001142
000004

000040
000002

162716

000010

268 042274
269 062302
270 042304

012746
032737
001002
042716

177777
004000

273 062322
274 062326
275 042330
276 042336
277 062342

001412
062716
112776
162716
004736

ggg 0462270
266
267 0642270

271 062310
272 062316

278 042344

013737
042637

020000

001344
001142

000004
000024
000002

162716

000010

281
282 042350

013746

044566

284 042360
285 042366

013737
042637

001350
001142

5;3 042350

283 062354 052716

175777

125%:

#2,(SP)
PC a(SP)+

:MOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN

SUB

#25.3(sp)

n0,(sP)

(SP)+,$BDDAT

BEQ
ADD

1358
0%, (SP)

SUB
JSR

#2,(SP)
PC,a(SP)+

5UB

#25.3(sP)
010, (SP)

‘WRITE ERROR NUMBER IN CALL

*RESTORE SP TO NO ERROR

WRITE ERRORS ARE NOT ENABLED
;ASSUME WRITE ERRORS ENABLED
‘ARE WRITE ERRORS ENABLED ?7?
SYES !!
:DISABLE WCF ERROR
:GET RECEIVED STATUS

:RESET WCF IF ENABLED

‘BRANCH IF WCF OK
:MOVE SP TO USERS ERROR CALL

‘WRITE ERROR NUMBER IN CALL

:MOVE SP TO ERROR RETURN
sREPORT ERROR

*RESTORE SP TO NO ERROR

sREPORT ERROR IF DPE 1S SET AND WRITE ERRORS ARE NOT ENABLED
MOV
#-1,-(SP)
;ASSUME WRITE ERRORS ARE ENABLED
BIT
#WLE ,S500%
;ARE WRITE ERRORS ENABLED ??
BNE
1408
SYES !
BIC
#DPE , (SP)
‘RESET DPE ENABLE

1408:

MOV
BIC

BEQ
ADD

RMER21,$BODAT
(SP)+,$BODAT

:GET RECEIVED STATUS
:RESET DPE IF ENABLED

145%
#4,(SP)

;BRANCH IF DPE 0K
;MOVE SP TO USERS ERROR CALL

#2,(SP)
PC,a(SP)+

*MOVE SP TO ERROR RETURN
JREPORT ERROR

Move

#40,3(5P)

SUB

#10, (sP)

SUB
JSR

1458 :

001142

SUB
JSR

Move

000000

044566

sMOVE SP TO USERS ERROR CALL

BIC

1358

001142

#4,(SP)

;REPORT ERROR IF WCF IS SET AND
MOV
#-1,-(SP)
BIT
#uLE, 5008
BNE
1308
BIC
#UCF, (SP)
1308:
MOV
RMER11,$BODAT

000000

044566

ADD

move

:WRITE ERROR NUMBER IN CALL

*RESTORE SP TO NO ERROR

JREPORT AN ERROR IF UPE IS SET AND WRITE ERRORS ARE NOT ENABLED
MOV
=1,=(SP)
;ASSUME WRITE ERRORS ARE ENABLED

1508:

000000

1558:

BIT
BNE
BIC

#WLE ,S500%
1508
#UPE , (SP)

:ARE WRITE ERRORS ENABLED ??
SYES !
:DISABLE UPE ERROR

BEQ
ADD
MOVB
SUB
JSR

1558
#, (SP)
#24,3(SP)
#2,(SP)
PC a(SP)+

:BRANCH IF UPE OK
:MOVE SP TO USERS ERROR CALL
‘WRITE ERROR NUMBER IN CALL
:MOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN

MOV
BIC

SUB

RMCS21,$BODAT
(SP)+,$BDDAT

90, (SP)

:GET RECEIVED STATUS
:RESET UPE IF ENABLED

:MOVE SP TO NO ERROR

:REPORT AN ERROR IF IAE 1S SET AND IS NOT ENABLED
MOV
5008, - (SP)
:GET IAE ENABLE

001142

BIS

MOV
BIC

#-CIAE, (SP)

RMER1I.$BODAT
(SP)+, SBDDAT

:SET ALL OTHER BITS

:GET RECEIVED STATUS
IF ENABLED

JCLEAR !AE

SEQ 0180

CZRMNAO RMO5/3/2 FCTNL TST 2
MACRO v03.01
SECONDARY ERROR CHECK SUBROUTINE

286 042372
287 0623764
288 0462400
289 042406
290 042412
291 062414
282 062420

001412
06 2716
11 2776
16 2716
00 4736
16 2716

000004
000166
000002

M 14
11-APR-80 13:17:48 PAGE 25-5

BEQ

000000

000010

1608

ADD

1608:

sMOVE SP TO USERS ERROR CALL

#2,(SP)

:MOVE SP TO ERROR RETURN
;REPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

#166,3(SP)

JSR

PC a(SP)+

SUB

IAE IS OK

#4,(SP)

MOVB
SUB

;BRANCH IF

SEQ 0181

‘WRITE ERROR NUMBER

n0, (sP)

;BIT 09 (AOE) OF THE FUNCTION CODE TABLE 1S THE ENABLING BIT FOR
; ALL READ/WRITE ERRORS, 1.E..

:
:

RMCS1

= TRE

RMCS2 = DLT,NEM, MXF
RMDS

= (BT

RMER1

;NOTE

AOE CANNOT BE SET

TRE IS CHECKED AS A FUNCTION OF OTHER ERROR CONDITONS ABOVE

- AOE

sNOTE:
:
LBT IS NOT CHECKED BECAUSE IT ONLY RESETS WHEN THE DESIRED
:fi'#éNDER REGISTER IS WRITTEN

100000
001344
001142

001142

062456
0626460
062466

062716
112776
162716

000004
000032
000002

062676

162716

000010

—

177777
001000

004000
001344
001142
000004

000167
000002

OoO~N~N
Ows
NN

- PN

=lele)
O
—

;REPORT AN ERROR IF DLT IS SET AND READ/WRITE ERRORS ARE NOT
MOV
#-1,-(SP)
;ASSUME ERRORS ARE ENABLED

165%:

BIT
BNE
BIC

#AOE , 5008
1658

#DLT,

000000

RMCS21,$BODAT
(SP)+,$BDDAT

ADD

1708

MOVB

(SP)

#32,3(SP)

SUB
JSR

1708:

(SP)

MOV
BIC
BEQ

#2,(SP)
PC.a(SP)+

SUB

#10, (SP)

ENABLED

:ARE ERRORS ENABLED ??
SYES !!

*RESET DLT ENABLE

:GET RECEIVED STATUS
:CLEAR DLT IF ENABLED

:BRANCH IF DLT IS OK

:MOVE SP TO USERS ERROR CALL

‘WRITE ERROR NUMBER IN CALL

:MOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN

‘MOVE SP TO NO ERROR

;REPORT ERROR IF NEM IS SET AND READ/WRITE ERRORS ARE NOT ENABLED
044566

001142

MOV

#=1,-(SP)

sASSUME ERRORS ARE ENABLED

BIC

#NEM, (SP)

;DISABLE NEM

BIC

(SP)+,$BDDAT

BIT
BNE

175%:

#AOE,500%
175%

MOV

RMCSS1,$BODAT

BEQ
000000

sARE ERRORS ENABLED ??
sVES I

:GET RECEIVED STATUS

:CLEAR NEM IF ENABLED
:BRANCH IF NEM 1S OK

ADD

04, (SP)

:MOVE SP TO USERS ERROR CALL

JSR

PC.a(SP)+

*REPORT ERROR AND RETURN

#167.3(SP)
#2,(SP)

SUB

;REPORT ERROR

044566

1808

MOVB
SUB

000010

(=2
o~

~NOO
NSO

VWA

orMooOsNOoOOMNN
o
brul\am—.dgg

VWA
WA WAV

roNoNNNNDNDNDNDNDNNON

o
o0

I333IIIIIIIIN

[=lele]e]

o000
FSF

—

042716
013737
042637

0626434
062440
062646

F )

064566

o
o

001000

032737

o
r s
N
F

062424

rnoroN

il —

) —d —l

- OOWOONO VNN -

o—

N = OOV ~NO W

uuuuwr

——

N N NN
(V]
NN LN N
(v

TRY

N N N N N N N NN NN

310 062620 012746 177777

IF LBT IS NOT ALSO SET

MOV

BIT
BNE

0, (sP)
IF

MXF

:WRITE ERROR NUMBER IN CALL
:MOVE SP TO ERROR RETURN

:MOVE SP TO NO ERROR

IS SET AND READ/WRITE ERRORS ARE NOT

#-1,-(SP)

#AOE ,500%
185%

+ASSUME ERRORS ARE ENABLED

ENABLED

sARE DATA ERRORS ENABLED ??
;VES 1!

|| CZRMNAO RMO5/3/2 FCTNL TST 2

' SECONDARY ERROR CHECK SUBROUTINE

|
|

|
|
|
;
|
|

|
|

3,3 042574

042716

001000

346 062612
3,7 062616

001412
062716

000004

344 042600
345 0462606

348 062620

349 042626
350 042632

351 042636

ggg 062640

354
355 042640
356 042644
357 062652
358 062656
359 042662
360 062664

361 042670

362 042676
363 042702
364 042704

365 062710

366 042716
367 062722

368 042726

ggg 042730
37
372
373
g;g

013737
0462637

001344
001142

MACRO V03.01

001142

112776

000033

162716

000010

012746
032737
001404
032737

177777
001000

044566

002000

001346

162716
004736

001002
062716

013737

042637
001412
062716

112776

162716
004736

162716

000002

001000

001350
001142
000004

000020

000002

001366

000200

044566

383 0462746

012746

177777

|
|

386 042762
387 042766

042716
013737

389 043000

5
l

‘

382

384 042752
385 062760

388 042774

390 043002

391 043006

392 043014
393 043020

394 063022

ggg 043026
397
398 043026
399 043032

032737
001002

042637

001412

000200

044566

000400
001350

001142

062716

000004

162716
004736

000002

112776

000035

162716

000010

012746
032737

177777
000200

BEQ
ADD

1908
#, (SP)

‘BRANCH IF MXF 1S OK
‘MOVE SP TO USERS ERROR CALL

SUB
JSR

¥2,(SP)
oC 2 (SP)+

SUB

RMCS21,$BODAT
(SP)+,$BDDAT

#3%,3(sp)
#10, (SP)

:GET RECEIVED STATUS
:CLEAR MXF IF ENABLED

‘WRITE ERROR NUMBER IN CALL
sMOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN

*MOVE SP TO NO ERROR

MOV

RHERfI.SBDDAT

;GET RECEIVED STATUS

move

#20.a(sP)

*WRITE ERROR NUMBER

BIC
BEQ
ADD

SUB

(SP)+,$BDDAT
2008
#4,(SP)
#2,(SP)
PC,a(SP)+

#10, (SP)

sCLEAR AOE IF ENABLED,
;BRANCH IF AOE IS OK
sMOVE SP TO USERS ERROR CALL
;MOVE SP TO ERROR RETURN
:REPORT ERROR AND RETURN

*MOVE SP TO NO ERROR

(HCE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR
ERRORS, 1.E.,
RMER1 = HCRC,HCE,FER
RMERZ2 - BSE

JRESET THE ENABLING BIT (HCE)
BIT
#HC1 ,RMOFI
BEQ
2018
BIC
#HCE ,S500%

201$:

IF HEADER COMPARE INMIBIT IS SET
;1S HCI SET ?2?
INO !
JYES = DISABLE ALL HEADER ERRORS

JREPORT AN ERROR IF HCRC 1S SET AND HEADER ERRORS ARE NOT ENABLED
MOV

#-1,-(SP)

;ASSUME ERRORS ENABLED

BIC
MOV

#HCRC, (SP)
RMERTI,$BODAT

sDISABLE HCRC
:GET RECEIVED STATUS

BEQ

2108

*BRANCH IF HCRC IS OK

MOVB

nsS.a<sp>

BIT
BNE
2058:

BIC

ADD

000000

SUB
JSR

2108 :
044566

:DISABLE MXF ERROR

SUB
JSR

;BIT 07
JHEADER
2
2
002000

;g? 042746

195%:

2008 :

032737
001403
042737

#MXEF , (SP)

SEQ 0182

sREPORT ERROR IF AOE IS SET AND DATA ERRORS ARE NOT ENABLED
MOV
#-1,-(SP)
JASSUME DATA ERRORS ARE ENABLED
BIT
#AOE,500%
sARE DATA ERRORS EANBLED ??
BEQ
191%
INO !
BIT
#LBT,RMDSI
:1S LBT ALSO SET 22
BNE
195%
TYES !
1918:
BIC
WAOE , (SP)
*DISABLE AOE

000000

000010

BIC

MOV
BIC

move
1908:

376
377 042730
378 042736
379 042740

1858:

000000

001142

N 14

11-APR-80 13:17:48 PAGE 29-6

SUB

#HCE,500%
205$

(SP)*.‘BDDAT

#4,(SP)

#2,(SP)
PC,a3(SP)+

00, (SP)

JARE HEADER ERRORS ENABLED ??
TYES !

JRESET HCRC IF ENABLED
sMOVE SP TO USERS ERROR CALL

JWRITE ERROR NUMBER IN CALL

sMOVE SP TO ERROR RETURN
JREPORT ERROR AND RETURN

:MOVE SP TO NO ERROR

JREPORT ERROR IF HCE 1S SET AND HEADER ERRORS ARE NOT ENABLED
MOV
#-1,-(5P)
:ASSUME ERRORS ENABLED
BIT

#HCE 5008

:ARE ERRORS ENABLED ??

—— el

| CZRMNAO RMOS/3/2 FCTNL TST 2

- SECONDARY ERROR CHECK SUBROUTINE

5
g

400 Oflggtg
401 04
602 043046
403 043054
404 04306g
405 043062
406 043066
407 063074
408 043100
409 0463102
410 042106
&1

001002
84 71?
O 7%
042637
001412
062716
112776
162716
004736
162716

613 0643106
616 063112
415 0643120
616 063122
417 063126
618 063134
619 063140

012746
032737
001002
04%716
013737
042637
001412

612

f
|
|
|

620
621
422
423
624

;
a

626
427
428 063166
29 043172
430 043200
431 043202
432 0643206

’
|

!
g
|
‘

063142
063146
0643154
0463160
0463162

425 0463166

433 043214

636 063220
435 043222
436 043226
437 043234
438 0643240
439 063262
460 063246

000200
001350
001142
000004
000035
000002

177777
000200
000020
001350
001142

000010

012746

177777

000037
000002

BNE

001142

225%:

95,

:MOVE SP TO USERS ERROR CALL

2208

#36,3(SP)

001142

001412
062716
112776
162716

000004
000354
000002

SFER,(SP)

RMERTI,$BDDAT
(SP)+,$BDDAT

ADD

0%,

SUB

BIT

BNE
BIC

:MOVE

SP TO ERROR RETURN

:REPORT ERROR AND RE TURN

sMOVE SP TO NO ERROR

(SP)

#3%.3c¢0)
02,0¢

PC.als, /o

010, (5¢;

;ASSUME FER 1S ENABLED

:ARE MEADER ERRORS ENABLED 77
sYES !!

;DISABLE FER

:GET RECEIVED STATUS
:RESET 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

;MOVE SP TO NO ERROR

IS SET AND HEADER ERRORS ARE NOT ENABLED

#-1,-(5P)

#WCE 5008

235%
#BSE, (SP)

;ASSUME ERRORS ENABLED

JARE

THEY ENABLED

JYES !!
:DISABLE BSE

RMERS],$BODAT
(SP)+,$BDODAT

:GET RECEIVED STATUS
:CLEAR BSE IF ENABLED

ADD

:MOVE

move
SUB

2308

IF BSE

:ualtegznaon NUMBER IN CALL

MOV
BIC

BEQ

000010

sggé.soos

MOV
BIC

JSR

SBRANCH IF MCE IS OK

1S SET AND WEADER ERRORS ARE NOT ENABLED

BiC

000000

FER

#-1,-(5P)

SUB

235%:

00, (5P)

MOV

sREPORT ESROR

100000
001376

(SP)

#2,(5P)
PC,a(SP)+

SUB

move
2308

JSR

2408

(SP)

#354.a(sP)
#2,(5P)

PC a(SP)+

00, (sP)

:BRANCH If BSE OK

SP TO USERS ERROR CALL

:WRITE ERROR NUMBER

:MOVE SP TO ERROR RETURN

:REPORT ERROR AND RETURN

:MOVE SP TO NO ERROR

;BIT 06 OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR DATA
sFIELD ERRORS, 1.E.,
3
RM(S2 = MDPE
RMERT - DCK,ECH
:

4463

445

L66

451 063246
65% 043252
453 043260
654 043262
455 063296
456 0632764

ADD

g&;

000000

&6
6462

&7
468
449
450

:GET RECEIVED STATUS
:CLEAR WCE IF ENABLED

BEQ

001002
042716
013737

004736
162716

RMERTI,$BDDAT
(SP)+,$BODAT

;REPORT ERROR IF

044566

:DISABLE WCE

MOV
BIC
SUB
JSR

220%:

JYES !

PHCE, (SP)

MOVE

000000

044566

001142

2158:

2158

BIC

BEQ

000200

0462637

B 15

11-APR-80 13:17:48 PAGE 25-7

SEQ 0183

000010

062716
112776
162716
004736
162716

032737

MACRO v03.01

;NOTE:

:
ECH CANNOT SET UNLESS IT IS ENABLED AND ECI IS RESET AND
:DCK IS SET.

01276?
032737
001002
0‘2719
013737
0462637

177777
000100
000400
001344
001142

044566

;REPORT ERROR IF MDPE IS SET AND IS NOT ENABLED
MOV
#-1,-(5P)
;ASSUME ENABLED
BIT
#ECH, 5008
:ARE DATA FIELD ERRORS ENABLED ??
BNE
2458
TYES !

001142

245%:

BIC

MOV

BIC

onops.«sr)

:DISBALE MDPE

(SP)+,$BODAT

:CLEAR MDPE IF ENABLED

RMCS21,SBODAT

:GET RECEIVED STATUS

€15
CZRMNAD RMOS/3/2 FCINL TST 2
MACRO v03.01 11-APR-80 13:17:48 PAGE 25-8
SECONDARY ERROR CHMECK SUBROUTINE
457 04

458 82
459

1412

2 82 716 000004
112776

000027

162716

000010

466 0£33§g
467 063332

012746
032737

177777
000100

469 063342

o«irlo

100000

472 043360
473 063362

001412
062716

475 063376
476 043400

162716
004736

460 063314
461 043320

aeg 043322

:2‘ 063326
465

468 043340

470 043346
471 063354

476 043366

477 063402
2;3 043406

162716
004736

001002

013737
062637

112776

162716

<80
481
482
483
484 oasaos
485 043412
486 0434620
487 063422
488 0463430
489 043432
490 043440
491 0643442

01%766
032737
001410
032737
001004
032737
001002
062716

496 043460
495 063462

001412
062716

492 063446
493 063456

496 063466
497 043476
498 043500

499 063502

500 043506
501

013737
062637

000002

001350
001142
000004

000030
000002

001142

000010

001142

BIC

MOV
BIC

BEQ
ADD

:BRANCH IF MDPE

:MCVE SP TO USERSOK ERROR CALL

csi.a(sr)

;WRITE ERROR NUMBER IN CALL

nb, (sp)

‘MOVE SP TO NO ERROR

#2,(SP)
PC A(SP)+

265%:

270%:

:MOVE SP TO ERROR RETURN
:REPORT ERROR AND RETURN

SYES !

RMERTI,$BODAT
(SP)+,$BDOAT

:GET RECEIVED STATUS
:CLEAR DCK IF ENABLED

2608
95, (SP)

SUB

10, (sp)

#2,(5P)
PC.(SP)+

:DISABLE DCK

:BRANCH IF DCK IS OK
:MOVE SP TO USERS ERROR CALL

:WRITE ERROR NUMBER IN CALL

:MOVE SP TO ERROR RETURN
:REPORT ERROR AND RE TURN

:MOVE SP TO NO ERROR

ERROR IF ECH 1S SET AND,
DATA FIELD ERRORS ARE NOT ENABLED. OR
ECI IS SET, OR
DCK 1S NOT SET.
MOV
#-1,-(SP)
;ASSUME ENABLED
BIT
#ECH, 5008
*ARE ERRORS ENABLED ??
BEQ
265%
INO !
BIT
#EC1,RMOF |
115 ECI SET 2?2
BNE
2658
SYES !
BIT
#DCK,RMERT]
115 DCK ALSO SET 22
BNE
2708
TYES !
BIC
#ECH, (SP)
*DISABLE ECH

MOV
BIC

RMERTI,SBODAT
(SP)+,$BDDAT

:GET RECEIVED STATUS
:CLEAR ECH IF ENABLED

275%
95, (SP)

*BRANCH IF ECH 1S OK
:MOVE SP TO USERS ERROR CALL

#2,(SP)
PC.a(SP)+

:MCVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN

Move

#31,3(sP)

SUB

00, (5P)

SUB
JSR

275%:

:ASSUME ENABLED
:ARE THEY ENABLED ??

2558

#OCK, (SP)

#30.a(sP)

BEO
ADD

000000

#-1,-(5P)
#ECH, 5008

move
SUB
JSR

;REPORT
:
:
:

001350

162716

2558:

2608 :

100000

000002

BNE

000000

001366

000031

SUB

MOV
BIT

064566

004000

000004

SUB
JSR

2508

95, (SP)

;REPORT ERROR IF DCK IS SET AND DATA FIELD ERRORS ARE NOT ENABLED

044566

001350
001142

MOVB

2508 :

177777
000100

000100

ADD

000000

000010

112776

162716
004736

BEQ

:WRITE ERROR NUMBER IN CALL
:MOVE SP TO NO ERROR

SEQ 0184

CIRMNAQ RMO5/3/2 FCTNL TST 2

SECONDARY ERROR CHECK SUBROUTINE

MACRO v03.01

i
o

D15

11-APR=B0 13:17:48 PAGE 26

& 4 RN RN RN RN R R R R R R R PR R RN R

022737
103402
000137

000030

9
10 043522
11 063530
12 043532
13 043540
16 06435642
15 043546
16 063554
17 063560
18 043564
19 043566

013737
0016%1
032737
001015
062716
112776
005037
162716
004736
162716

001336

001142

040000

001334

BEQ
BIT
BNE

000000

move

22
23 043574
26 043602
25 063610
59 063614

013737
163737
006337
063737

001336
001412
001140
001414

001140

28 0636§5
29 0436
g? 043632

032737
001403
013737

000010

001344

001414

001140

32 063640
33 063646

023737
001416

001140

001340

001340
000004
000016
000002

001142

36 063650
35 063656
36 0643662
37 063670
38 043674
39 0643676
2? 043702

000240

013737
062716
112776
162716
004736
162716
000240

000004
000015
001140
000002

012746
032737
001402

000400
000002

062716

000002

52 0643736
53 063742
56 063746
gz 043750

005266
161666
003373
022626

000004
000002

#SEARCH,5158
80%
55¢

MOV

RMWCI,$BODAT

ADD

95,

285%
STRE,RMCSTI
2858

CLR
SUB

$GDDAT
#2,(SP)

PC.a(SP)+

SUB

00, sp)

NOP
-REPORT

2858:

2908:

ERROR

MOV

SUB

RMBA

:REPORT WORD COUNT NOT ZERO

‘RESTORE (SP)
CORRECT

;GET WORD COUNT AT END OF TRANSFER AND

$GDDATY
RMBAO,SGODAT

BIT
BEQ
MOV

#BA1,RMCS2]
2908
RMBAO,SGODAT

:WAS BUS ADDRESS INWIBIT (BAI) SET 2?2
INO !
:ADDRESS SHOULD NOT HAVE CHANGED

CMP
BEQ
MOV

$SGDDAT,RMBAl
295%
RMBAI1,SBODAT

;BUS ADDRESS OK??
TYES!!
:BAD DATA FOR TYPEOUT

MOVBE
SUB

#16,3(SP)
#2,(SP)

:ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR

90, (5P)

:RESTORE (SP)

#4, (SP)

PC.a(SP)+

:COMPUTE NUMBER OF

v 2
:ADD STARTING BUS ADDRESS

*REPORT UNEXPECTED ADDRESS

SECTORS TRANSFERRED FROM WORD COUNT

(LR

-(SP)

:NUMBER OF SECTORS TRANSFERRED

SUB

RMWCO, (SP)

SSUBTRACT STARTING WORD COUNT.

MOV
BIT
BEQ

#256.,-(SP)
#BITI.RMCS10
3008

;ASSUME 256. WORDS PER SECTOR
:HEADER € DATA COMMAND 2?7
INO !!

INC
SUB
BGT

4(SP)
(SP),2(SP)

: INCREMENT SECTOR COUNT
:SUBTRACT ONE SECTOR'S WORTH

(SP)+,(SP)+

*RESTORE STACK

MOV

ADD

3008:

1GCOD DATA FOR TYPEOUT
SMOVE SP TO RETURN FOR ERROR

ASL

NOP

001410

;ERROR NUMBER

ADD

SUB

001336
001412

SYES
STRANSFER ERROR DETECTED??
SYES!!

:SUBTRACT STARTING WORD COUNT.

JSR

5958:

IS NOT

RMWCi,S$GODAT

IS ZERO

;WORD COUNT ZERO??

RMWCO.SGODAT

ADD

000000

(SP)

#15,3(sp)

JSR

001140

;WAS DATA TRANSFERRED ?
‘BR IF YES
:NO = EXIT

REPORT ERROR IF RMWC NOT ZERO AND TRE

280%:

000010

&7 043716
48 043722
49 043730

cMP
BLO
JMP

000010

005046
013746

163716

064574

044540

&2
43 063704
4, 0643706
:z 043712

g? 043732

R R R R RN R RN R RN RN RO RRRRROERRORORRORROPRRORRTS

:*PERFORM THE REMAINING ERROR CMECKS ONLY FOR DATA TRANSFER COMMANDS

5 063506
6 0643514
z 043516

5? 043572

SEQ 0185

(MP

RMWCI,=(SP)

#2,(SP)

3008

:GET WORD COUNT AT END OF

TRANSFER AND

:CHANGE TO 258. WORDS PER SECTOR

*CONTINUE IF NOT DONE

;COMPUTE EXPECTED SECTOR, TRACK AND CYLINDER ADDRESS FROM

CIRMNAD RMO5/3/2 FCTINL TST 2

SECONDARY ERROR CHECK SUBROUTINE

58
59 o«grsz
60 043760
61 0637?6
62 06437764
63 044002
gg 064006

013737
01 7;7
013737
013737
000337
005237

001444
001416
001416
001332
044576
044576

66 044012
67 0644020
68 044026
69 044032

042737
000337
0642737
062637

71 064036
72 044044
73 044046
76 0644052
;2 044060
77 064062
78 044070
79 0644072

80 044076
81 044104
g% 064106
84
85 044110
86 044110
87 0646114
88 044122
99 0441264
90 044132
91 044134
92 0644142
93 044150
96 044156
95 044164
96 044166
97 0644172
98 044200
99 044204
100 044206

10% 044212

108

106 044214
105 044220
109 064226
107 0442

108 044236
109 0644240
110 044244
111 0642646
112 044252
113 04425¢
116 064262

MACRO v03.01 11-APR-80 13:17:48 PAGE 26~ 1
064566

sNUMBER OF SECTORS
MOV

RMDCO, 500%

SEQ 0186

:STORE ORIGINAL CYLINDER

064570
064572
064576

MOV
MOV
MOV
SWAB
INC

RMDAO,505$
RMDAO, 5108
gsvn:.520$
208
5208

000377
044570
177400
4572

044570

BIC
SWAB
BIC

#*C<TADMSK>,5058
:SAVE TRACK ADDRESS BITS AND
505%
:SWAP TRACK ADDRESS TO LOW BYTE.
#~C<SADMSK>, 5108
:SAVE SECTOR ADDRESS BITS

023727
103409
005237
162737
000766

044572

000040

3108:

044570
000040

044572

CMP
BLO
INC
SUB
BR

510%,#32.
315%
505%
#32.,510%
3108

;SECTOR OVEFLOWED??
INO!!
*INCREMENT TRACK
*ADJUST SECTOR
STRY AGAIN

023737
103407
005237

044570

044576

3158:

044566
044576

044570

(MP
BLO
INC
SUB
BR

505%,520%
3208
5008
5208 ,505%
315¢

:TRACK OVERFLOWED??
:NO!!
S INCREMENT CYLINDER
SAD 'UST TRACK
STRY AGAIN

163737
000766
000240

064572

ADD

NOP

:STORE ORIGINAL TRACK
:STORE ORIGINAL SECTOR
:STORE LAST TRACK,
:GET TRACK ADDRESS TO LO BYTE AND
S INCREMENT TO GET TOTL # OF TRACKS.

($P)+,5108

53520"7 ERROR IF "'LBT"' IS NOT CORRECT

005037
023727
101407
032737
001003
012737
013737
042737
023737
001413
062716
112776
162716
004736
162716

000240

005037
032737
001031
023727

lOI&iS
005737
001012
005737
001007
032737
001413

001140
044566

001466

002000

001350

002000
001346
175777
001140

001140
001142
001142
001142

000004
000017
000002

000000

CLR
CMP

325%:

3258
#1AE ,RMERT]
3258
#LBT,SGODAT
RMDST,SBODAT
#~CLBT,SBODAT
$GDDAT,$BDDAT
3308

INO!!
‘WAS 1AE SET 22
SYES = LBT SHOULD NOT BE SET
SSET GOOD DATA FOR LBT = 1
:BAD DATA FOR TYPEOUT

MOVB

#17,3(5P)

:ERROR NUMBER

PC a(SP)+

*REPORT LBT

SUB

JSR

SUB

NOP

#4,(SP)

#2,(5P)

0, (sP)

;1S LBT CORRECT??
SYES!!

:MOVE SP TO RETURN FOR ERROR
IS WRONG

‘RESTORE (SP)

-REPORT ERROR 1F '‘AOE'* 1S INCORRECT

001140
002000

001350

0464566

001466

044570

$308:

CLR

$GDDAT

:SET FOR AOE = 0

BNE
CMP

34,08
5008 ,#822.

SYES=""AOE'* SHOULD BE ZERO
:SHOULD AOE BE SET??

BIT

BLOS

064574

#1AE,RMER1]

340%

505%

5108

BNE

044572
000010

:SET GOOD DATA FOR LBT = 0
:SHOULD LBT BE SET??

BLOS
BIT
BNE
MOV
MOV
BIC
CMP
BEQ
ADD

000010

$GDDAT
5008 ,#822.

BNE
BIT

BEQ

3358

335%
#52,515%

3408

:WAS "'IAE'' DETECTED??

INO!!

*MAYBE

TYES

JYES !
*WAS THIS READ OR WRITE CHECK 2?

INO !

CZRMNAO RflO;IS/Z FCINL TST 2

SECONDARY ERROR CMECK SUBROUTINE

115 044264

005737

C01336

117
044272
118 044
119 044304
12 7464312
121 06432
12; o«as§2
123 044336
126 044336

012737
oosogr
o1§7 7
013737
o«;rsr
023737
001413
062716

001000
044570
000001
001350
176777
001140

126 044350
127 064354

162716
004736

000002

}gg 064362

000240

n? 04é 7g oomg

125 064342

128 044356

132 044364

133 064372
134 064376
135 064402

136 044406

112776
162716

000020

044444
044450

162716
004736

}:g 064456

000240

000004

112776

000021

162716

000010

148 064460
149 044466

013737
062737

044566
176000

156 064516

112776

150
151
152
153

044474
044502
064510
064512

013737
023737
001413
062716

000002

001370
001140
000004

000022

155 064526
156 044530

162716
004736

}23 044536

000240

162716

000010

160 044540
161 044544

062716
105776

000004
000000

157 044532

162 044550
163 044552

166 064556

165 064560
;gg 064564
168
169
170
171

044566
044570
044572
064574

001403
062716

000402

162716
000207

000000
000000
000000
000000

000002

;WAS ALL DATA TRANSFERRED ??

MOV
CLR
MOV
MOV
BIC
CMP
BEQ
ADD

#AOE , $GDDAT
505$
#1,5108
RMER1],SBODAT
#*CAOE
, $BODAT
$GDDAT,$BDDAT
3458
06, (SP)

SSET FOR AOE = 1
:CLEAR EXPECTED TRACK
SEXPECT SECTOR = 1
:BAD DATA FOR TYPEOUT

SuB
JSR

#2,(S5P)
PC A(SP)+

move

001140

#20.3(sp)
#0, (sP)

SYES !

;IS AOE CORRECTY??
SYES!!

;ERROR NUMBER

:MOVE SP TO RETURN FOR ERROR
SREPORT AOE 1S WRONG

‘RESTORE (SP)

BIT

#1AE ,RMER1]

355¢
5058, $GDDAT
SGDDAT

MOV
CMP
BEQ
ADD

RMDA] ,$BDDAT
$GDDAT,SBODAT
3508
¥, (SP)

;SETUP RECEIVED DISK ADDRESS
:COMPARE EXPECTED & RECEIVED
:BRANCH IF EQUAL

SUB
JSR

#2,(SP)
PC,a(SP)+

:MOVE SP TO RETURN FOR ERROR
JREPORT BAD DISK ADDRESS

MOvB

SUB

NOP

510%,SGDDAT

#21,3(SP)

#0, (sP)

:REPORT ERROR IF RMDC

3508:

001142
001142

000000

MOV
BIC

RMDCI,$BDDAT
$GDDAT,$BDDAT
3558
¥4, (SP)

SUB
JSR

#2,(SP)
PC ASP)+

SUB

NOP

3608:
3658:
500%:
505%:
5108:
515¢:

:ERROR NUMBER

‘RESTORE (SP)

;SETUP EXPECTED CYLINDER

JSETUP RECEIVED CYLINDER
; COMPARE CYLINDERS
*BRANCH IF EQUAL

#22.,3(SP)

:ERROR NUMBER

10, sP)

*RESTORE (SP)

ADD
T1STB

¥4, (SP)
a(SP)

3688

BEQ
ADD

SYES = DONT CHECK RMDA,RMDC
*SETUP EXPECTED DISK ADDRESS

IS INCORRECY

5008 , $GDDAT
#~C1777,$GDDAT

MOV
CMP
BEQ
ADD

MOVB

355%:

:WAS THERE AN IAE ERROR ??

BNE
MOV
SWAB

MOVEB

000000

001140
001140

3408

:REPORT ERROR IF RMDA IS NOT CORRECT

3$458:

000004
000004

RMWCI

SUB

001142
001142

044572

SEQ 0187

187

BEQ

NOP

001342
001140

162
163

3408:

000010

001140

113737

3358:

000000

044570
001140

001062
013737
000337

013737
023737
001413
062716

147

044572
001142
001142
001142

001350

044414
064422
044430
064432

144 044452

001140

032737 002000

137
138
139
140

141 044636

000004

F 15
MACRO v03.01 11-APR=B0 13:17:48 PAGE 26-2

3608
#4,(SP)

*MOVE SP TO RETURN FOR ERROR
*REPORT BAD CYLINDER

;MOVE (SP) TO ERROR CALL
;WAS ERROR FOUND??

sMOVE

(SP)

TO ERROR RETURN

(SP)

TO NO ERROR RETURN

SUB
RIS

¥, (SP)
PC

:MOVE

.WORD
.WORD
.WORD
.WORD

0
O
0
O

sCYLINDER
S TRACK
*SECTOR
*FUNCTION CODE

CIRMNAO RMO5/3/2 FCTINL TST 2

SECONDARY ERROR CHECK SUBROUTINE

172 044576
};2

000000

MACRO v03.01
5208:

615
11-APR-80 13:17:48 PAGE 26-3
.WwORD

;# OF TRACKS FOR DEVICE UNDER TEST = LAST
sTRACK + 1 TRACK

SEQ 0188

CZRMNAD RMO5/3/2 FCTINL TST 2
NT NI WNN -

COMPOSITE ERROR CHECK SUBROUTINE

MACRO v03.01

.SBTTL

CHECKS THE

STORED CONTENTS OF

RMER1

AND

;RMER2 AFTER MASKING EACH REGISTER WORD WITH THE USER'S STATUS

;MASKS AND REPORTS AN ERROR
s THE MASKS ARE APPLIED.

—

OOV

;CALL:
(1)

VNOWVESWN

;
;
;
;
;
;
;

JSR

.WORD
.WORD
BR
NOP
ERROR
JSR
277

PC,CMPERRSTS

777
PC,a(SP)+

ANY BITS ARE

LEFT ON AFTER

MASK FOR ERROR REGISTER 1
MASK FOR ERROR REGISTER 2
RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEINED BY SUB
GO BACK TO SUB FOR MORE ERROR CMECKS
RETURN HERE 1F NO MORE ERRORS

:NOTE:
BITS TO BE MASKED SHOULD BE ONE; BITS TO BE TESTED SHOULD
;BE ZERO

044600

CMPERRSTS:

044600
044606
044614
044620
044626

013737
047637

32 044634
33 044640
34 044644
-y
=
NN N
OO NNO~N

F-S0-08
N

044664
044670
064674
044702
044706
044710
064714
064716

001350
000000

000002
001376
000000

004736

001176
001140
000004
000066
000002

;MASK AND STORE
MOV

BIC

ADD
MOV

001200
001200

BIC

ADD

CLRB
SUB

001200
001140
000004
000067
000002

#2,(SP)
RMER21,$TMP2

SMOVE SP TO NEXT MASK
:STORE RMER2 AT TEMP STORAGE

3(SP),$TMPI

a(SP),$TMP2

6, (SP)

a(SP)
#6, (5P)

IMASK

AND RMER2
RMER1 AT TEMP STORAGE

RMER1

IMASK RMER?2

:MOVE

SP TO USER'S ERROR

CALL

*CLEAR ERROR NUMBER
:LEAVE SP AT NO ERROR RETURN

18T

$TMP1

:ANY ERRORS TO REPORT??

MOV

$TMP1,8BODAT

:RECEIVED STATUS FOR TYPEOUT

ADD
MOVB

#4,(SP)
#66,3(5P)

BEQ

001142

CLR

000000

SUB

JSR

SUB

5%:

2
53 04472
56 044732
55 044736
56 044742
57 044750

RMER1
:STORE

;SEE IF THERE WERE ANY ERRORS IN RMER1, I.E.. STMP1

000010

001200

THE CONTENTS OF
RMER1I,$TMP1

:CLEAR USER'S ERROR CALL

001176

50 044716

21 044722

001176
001176

000006
000000
000004

NN RO VN =

37 044650
38 044654
39 044656

40
41
42
63
&4
65
46
47
48
&9

SEQ 0189

COMPOSITE ERROR CHECK SUBROUTINE

;THIS SUBROUTINE

W7 N

S WOV

25
26
27
28

N5
11-APR=80 13:17:43 PAGE 2 7

NOP

$GDDAT

#2,(SP)

PC.a(SP)+

010, (SP)

INO !

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

:SEE IF THERE ARE ANY ERRORS TO REPORT IN RMER2 (STMP2)

001142
000000

1St
BEQ

$TMP2
10%

:ANY ERRORS IN RMER2?
INO!!

MOV
(LR
ADD

$TMP2,$BDDAT
$GDDAT
94, (SP)

;RECEIVED STATUS FOR TYPEOUT
CEXPECTED 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

CZRMNAD RMOS/3/72 FCTNL TST 2

COMPOSITE ERROR CHECK SUBROUTINE

58 044754

004736

60 064762
g} 044764

000240

59 044756

63
64
65
66
67

162716

044764
064770
0644774
064776

062716
105776
001403
062716

69 065006
;? 045010

162716
00020 7

68 045002

000402

115

MACRO v03.01 11-APR=80 13:17:48 PAGE 27-1
JSR

000010

SUB

108:

NOP

PC,a(SP)+

010, (5P)

JREPORT ERROR VIA USER

:MOVE SP TO NO ERROR RETURN

000004

:AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED
ADD
05, (SP
:MOVE SP TO USER'S ERROR CALL
1STB
a($P)
UAS THERE AN ERROR CALLED??
BEQ
208
*NO
ADD
#4,(SP)
VES = MOVE SP TO ERROR RETURN

000004

208:

000004
000000

30%:

SUB

RTS

30§

7%, (SP)
PC

:MOVE SP TO NO ERROR RETURN
;RETURN TO USER

SEQ 0190

CZRMNAD RMO5/3/2 FCTNL TST 2
VIS NN —

DEVICE SELECT SUBROUTINE

MACRO v03.01

.SBTTL

= OOV
NN

JSR

PC,DEVSEL

:(2)

;(4)

ERROR

:(3)

NOP

RETURN IF
RETURN IF

NO ERROR
ERROR

ERROR DEFINED BY SUBROUTINE

6
6
6

000004
000000
000004

746
746
046

000004
000006

737

045162

;CLEAR USER'S ERROR CALL

ADD

CLRB
SUB

MOV

:;PUSH ERRVEC ON STACK

RO,=(SP)

::PUSH RO'ON STACK

#208 ,ERRVEC

:SETUP FOR BUS TIMEOUT

ERRVEC+2,=(SP)

MOV

R1,=(SP)

MO .

000004

ERRVEC,=(SP)

MOV

; ;;PUSH ERRVEC+2 ON STACK

1:PUSH R1

ON STACK

001176
001174

MOV
MOV

RMCS1(RO),$TMP1 :GET "DVA’* STATUS
RMCS2(R0) ,$TMPO :GET "'NED'' STATUS

(R1),RMCS2(RO)

;WKITE UNIT

010000

001174

BIT
BEQ
ADD
MOVB
BR

#NED,$TMPO
108
#4,10(SP)
#111,310(SP)
308

;1S DEVICE NONEXISTENT ?
INO!!
:MOVE SP TO USERS ERROR CALL
:WRITE ERROR NUMBER

BIT
BNE
ADD
MOVB
BR

#DVA,STMP
35%
#4,10(SP)
#112,310(SP)
308

;1S DEVICE AVAILABLE ?
SYES!!
:MOVE SP TO USERS ERROR CALL
:WRITE ERROR NUMBER

000006

000111

000004

000010
000010

004000

001176

000004

000010
000010

112776

062766

112776

000112

MOV
MOV
MOV

MOVB

108:

:HANDLE BUS

062766

000004

162766

000002

000113

000010

000010
000010

208 :

30$:
RESTORE

§5%
2637

000006

#PR6 .ERRVEC+2

$BASE , RO
TSTQUE ,R1

;RO = UNIBUS ADDRESS
*R1 POINTS TO DEVICE NUMBER

;SELECT DEVICE AND VERIFY THAT DEVICE IS AVAILABLE

112776

»
~N
~N

062766

172

— -

;SAVE USER'S INFORMATION AND SETUP REGISTERS

000010
000000
020010

022626

VVIWVAWVAVWAWY

CALL

60
37
37

162

200

:MOVE SP TO USER'S ERROR

:CLEAR LOW ORDER BYTE OF
:MOVE SP BACK

000300
001276
001464

032737

166

#6, (SP)

a($P)
94, (SP)

737
700
701

OWVES
W

NN~

oSN~ NbObg

b
b
and

~
~n

»
o

—

VOAWVAYY

FRRRRR RKRRRRR RRR
RRER

WWNINNO
O W

(=lelelelelelele)

—_——~y—

VN
NO~N

OOV®NO WV

DEVSEL:

[

o b d Y LN LS LN N NT N1 VT, N1 ¥
d
YY et
2k
2k ak 2k

DEVICE SELECT SUBROUTINE

TEST QUEUE.

(1)

W Al

SEQ 019

: THIS SUBROUTINE SELECTS THE DEVICE, GETTING THE DEVICE NUMBER FROM THE

;

s CALL:

= OORNOWVSWN2OV NOWVNS WN~=O 0NV
NN —

J 15

11-APR-80 13:17:48 PAGE 28

CMP

ADD

MOve
SUB

TIMEOUT

(SP)+,(SP)+

#4,10(SP)

#113,310(sP)
#2.10(sP)

SELECT BITS

;ADJUST SP

:MOVE SP TO USERS ERROR CALL
;WRITE BUS TIMEOUT ERROR NUMBER
sADJUST RETURN TO 'NOP' PRECEDING

:THE ERROR CALL

USERS DATA AND RETURN TO ADDRESS ON STACK

MOV

(SP)+
R

MOV

(SP)+ ,ERRVEC+?2

MOV

(SP)+,R0O

::POP STACK INTO R!
::POP STACK INTO RO
::POP STACK

INTO ERRVEC+?2

CIRMNAD RMO5/3/2 FCINL TST 2

DEVICE SELECT SUBROUTINE

065216
g% 045222

012637
000207

MACRO v03.01

K15
11-APR-80 13:17:48 PAGE 28-1
v

000004

MOV
RTS

(SP)+ ERRVEC
PC

;;POP STACK INTO ERRVEC
JEXIT

SEQ@ 0192

CZRMNAO RMOS/3/2 FCTNL TST 2

SEEK STATUS CHECK SUBROUTINE

MACRO v03.01

sEa 0193

.SBTTL

2
3

SEEK STATUS CHECK SUBROUTINE

:THIS SUBROUTINE VERIFIES THE RESULTS OF

SEEK TESTS USING STATUS

:STORED IN THE GET BWFFER AND TEST PARAMETERS STORED IN THE PUT BUFFER.

2
7
-

THE SUBROUTINE RETURNS TO THE CALLING ROUTINE IF AN ERROR IS DETECTED
:AFTER HAVING LOADED THE APPROPRIATE ERROR NUMBER IN THE "‘ERROR'’ TRAP

;OF THE CALLING ROUTINE.

1"
12

.CALL.
:(1)

13
14
15
16

;
;
;
;

53 045224

21
22
23
24
25
39

L 15

11-APR-80 13:17:48 PAGE 29

045224
045226
045232
045236
045242

28
29
30 045246
31 045254
32 045256

000240
062716
105076
162716
005037

000004
000000
000004
046462

000010

001350

gz 045264

000010

001376

35
36 045266
37 045272
38 045300

005037
013737
062716

001140
001350
000004

40 045312
41 045316

162716
004736

000002

22 0453264

000437

42 045320

112776

162716

000050

001142

000000

47 045326
48 045334

49 045342

50 045350
g; 065352

777

PC,a(SP)+

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEFINED BY SUB
GO BACK TO SUB FOR MORE ERROR CHECKS

RETURN HERE IF NO MORE ERRORS

SEKSTS:

:MOVE (SP) TO ERROR CALL
:CLEAR ERROR NUMBER
:MOVE (SP) TO NO ERROR RETURN
:CLEAR ERROR FLAGS

- _

;TEST FOR MASSBUS CONTROL BUS PAR]TV ERROR WHEN WRITING
:LOCAL REGISTERS, I.E., "PAR"* = 1 AND 'DPE'' = 0
BIT
#PAR,RMER1]
;WAS PARITY ERROR DETECTED??
BEQ
1%
:NO!!
BIT
#DPE ,RMER2]
:WAS IT DUE TO CONTROL BUS??
BNE
1%
:NOT SURE!!

:REPORT REGISTER PARITY ERROR VIA USER'S ERROR CALL
CLR
$GDDAT
;EXPECTED STATUS
MOV
RHER!I $BDDAT
:RECEIVED STATUS
ADD
#4, (SP)
‘MOVE STACK TO USER'S ERROR

move

#50,a(sP)

:ERROR #50

SUB

010, (sp)

;RESTORE STACK

SUB
JSR

000010

772

PC,SEKSTS

;CLEAR USERS' ERROR CALL
NOP
ADD
06, (SP)
CLRB
@(SP)
SUB
#6, (SP)
CLR
300%

032737
001424
032737
001020

39 065304

JSR

BR
NOP
ERROR
JSR

SEEK STATUS IS CHECKED AS FOLLOWS:

#2,(5P)
PC,a(SP)+

:MOVE SP TO RETURN FOR ERROR

;1AE SHOULD

BE ZERO

;:DETERMINE THE VALUE OF ''IAE'* STATUS BASED ON TRACK, SECTOR AND CYLINDER

012737

002000

001140

023727

003444

001466

052737

101025
062737

040000

046462

040000

046462

;ALSO,

1i$:

SET "'SK1" IF

MOV

CYLINDER ADDRESS IS T00 LARGE.

#1AE,$GDDAT

;SETUP FOR IAE
= 1

BIS

#5k1,3008

:SETUP FOR SKI = 1

BHI
BIC

3s
#5x1,300%

:YES = CYLINDER IS INVALID
;CLEAR SKI ERROR FLAG

CMP

RMDCO, #822.

:GREATER THAN LAST CYLINDER ?

53 065360
gg 045366

123737
101016

001417

001333

CMPB
BHI

RMDAO+1,LSTRK+1 ;GREATER THAN LAST TRACK ?
3s
:YES = TRACK IS INVALID

56 045370
57 045376

123727
101410

001416

000035

CMPB
BLOS

RMDAO,#29.
2%

:SECTOR > 29. ?
:BR IF NO

CZRMNAO RMO5/3/2 FCTNL TST 2

SEEK STATUS CHECK SUBROUTINE

M15
MACRO v03.01 11-APR=80 13:17:48 PAGE 29-1

S8 045400
59 045406
60 045410
22 045416

032737
001406
123727
101002

010000

001442

001416

000037

gz 065420

005037

001140

66 045424

013737

001350

001142

70
71
72
73
7«

045450
065456
045460

042737
000413

040000

046462

045460

062716

76 065472
77 045476

162716
004736

79 045504
g? 045506

000240

67 0645432
68 045440
69 045446

75 045464

78 045500

042737
023737
001004

175777
001140

000004

112776

000051

162716

000010

000002

28:

001142
001142

000000

032737
001427
005037
013737
062716

91 045542
92 045550
93 045552
94 045560
95 045564

032737
001403
112776
162716
004736

gg 045572

000240

162716

000010

99 045576
100 045602
10° 045610
102 065616
}82 045624

013737
042737
013737
042737
001417

001376
137777
046462
137777

001142
001142
001140
001140

106 045626
107 045634
108 065636

032737
001032
062716

040000

001142

111 045654

004736

113 065662
114 045664

000443

90 045534

96 045566

105

109 065642
110 045650

112776

112776
162716

010000

001376

001140
001376
000004

001142

000060

000000

000061
000002

000000

000100

000004

000267
000002

BIT
BEQ
CMPB
BH]

NEMT16,RMOFO
{1
RMDAO,#31.
3

;18 BIT FORMAT 7
:YES = SECTOR xs INVALID FOR 18 BIT MODE
SSECTOR
> 31,
YES - secron 1s INVALID

CLR

$GDDAT

:"'1AE"" SHOULD = 0

: COMPARE EXPECTED AND RECIEVED ''IAE'* STATUS

$s:

MOV

RMER11,$BODAT

;1S IAE 0K??

BIC
BR

#5K1,3008
5%

:CLEAR SKI FLAG
160 CHECK NEXT ERROR

MOVB

#51.3(sP)

:ERROR 51

SUB

#10, (SP)

BIC
CMP
BNE

#*CIAE.SBODAT
$GODAT .$BDDAT
358

:SAVE IAE BIT FOR COMPARE
:CORRECT "'IAE'* STATUS ?
:BR IF NO

35%:
sREPORT INCORRECT "'IAE'" STATUS VIA USER'S ERROR CALL
ADD
#4,(SP)
SUB
JSR

5%:

82
83
84
85 045506
86 045514
87 045516
88 045522
89 045530

NOP

#2,(5P)
PC,a(SP)+

:MOVE SP TO RETURN FOR ERROR
sREPORT INCORRECT lAE

:RESTORE (SP)

:REPORT ANY IVC ERROR AS
3
IVC ERROR WITH VOLUME VALID ZERO
;
ERRONEOUS IVC ERROR, VOLUME VALID 1S SET
BIT
#1VC,RMER2]
:1VC ERROR??
BEQ
52%
NO!
CLR
$GDDAT
expecveo STATUS
MOV
RMER21,$BODAT
:RECEIVED STATUS
ADD
&,(SP)
:HOVE SP TO USER'S ERROR

Move

001346
51%:

BIT
BEQ
MOVB
SUB
JSR

SUB

NOP
52%:

MOV
BIC
MOV
BIC
BEQ

#60,3(sP)

:ERROR 60 IF VvV = 0

#VV.RMDSI
51%
#61,3(SP)
", (SP)
PC.a(SP)+

;ERROR 61 IF v
= 1
;MOVE SP TO RETURN FOR ERROR
:REPORT ERROR VIA USER

RMER21,$BDDAT
#~CSK1,$BDDAT
3008, SGDDAT
#~CSK1,S$GDDAT
53¢

;RECEIVED STATUS
:CLEAR DONT CARES
‘GET EXPECTED SKI S” 'TuS
:CLEAR DONT CARES
*BRANCH IF 0 EXPECTED

#10, (sP)

:RESTORE SP

;REPORT ERROR IF SKI

BIT
BNE
ADD

000000

MOVB
SUB
JSR

112 065656 162716 000010

SUB

53%:

IS NOT SET (IAE WAS NOT DETECTED)
#SK1,$BDDAT
:WAS SKI DETECTED ??
54%
TYES 1!
94, (SP)
:MOVE SP TO USERS ERROR CALL

#267.a(SP)
nz (SP)
(SP)+

c16.<sp)

‘WRITE ERROR NUMBER
:MOVE SP TO ERROR RETURN

*REPORT ERROR. AND RETURN

*MOVE SP TO NO ERROR

160 TO NEXT ERROR CHECK

SEQ 0194

t—

—

| CZRMNAQ RMOS/3/2 FCTNL TST 2
O—=D—=—=O000
OO0 —=O0OW
OMNSNIMNIN
=N
NNNNNNESN
S =Nt
N =
N
[T o
o
Xo No
AV

032737
001420
005037
013737
062716
112776
162716
004736
162716
000240

o
o
o

045772
&

046056

o —=-O = =00 —-000 o o
o OO —=OW—0—=0O o W
o NS NON = NN
WD e ~N
n NNNNSNNNNO &~ ~
&~ - N = NO W~ — NN ~N W
o OO
WNOONN N ~

045722
065730
0645732
065736
065744
045750
0645756
045762
065764
045770

VS NN = OV
N
OV
N

NN 2O VO NO VS

o
&~
o
=

ONO VS WL =OVONO VNS NN =O VN

045664
045672
065674
045700
045706
045712
065714
045720

~NO W

| SEEK STATUS CHECK SUBROUTINE

040000

000004
000054
000002

MACRO v03.07

001142

N 15

11-APR-80 13:17:48 PAGE 29-2

;REPORT ERROR IF SK1 1S SET
#5K1,$BDDAT
BIT
Q
BE
548
ADD
Move

000000

SuB
JSR
SuB
NOP

000010

000200
001140
001376
000004
000055
000002

001376

BIT
BEQ
CLR

001142

MOV
ADD
MOvB

000000

001140
001350
000004
000052
010000

000053
000002

001350

suB
JSR
SuB
NOP

PC a(SP)+

#10, (sP)

22VC,RHER21

$GDDAT
RMER21,$BODAT
¥4,

(SP)

BIT
BEQ

6%:

CLR
MOV
ADD

000000
001346

MOvB

BIT
BEQ

MOvVB

7%:

:SEE

8s:

013746
042716
022726

001346
047677
110100

046076

000137

046432

032737

010000

001346

032737

020000

001350

001346
010000
001346
000004
000062
000002

001140
001140
001142
000000

INO = SKI IS OK
:MOVE

(SP)

TO ERROR

:LOAD ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR
:REPORT SEEK ERROR

*RESTORE (SP)

;WAS THERE DVC DURING SEEK??

INO!!

‘EXPECTED STATUS
:RECEIVED STATUS

;ERROR

710, (SP)

:RESTORE SP

#2,(SP)
PC.a(SP)+

#55

:MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

= 0, OR

#OP1,RMER1]

:"'OP1"* ERROR??

$GDDAT
RMER11,$BDDAT

*EXPECTED STATUS
:RECEIVED STATUS

#52,3(SP)

:LOAD ERROR NUMBER

8s
#4,

(SP)

OPI

INO!!

‘MOVE

(SP)

TO ERROR

;QOL.RHDSI

;:s§|neoxun ON LINE??

#53,3(SP)
#2,(SP)
PC.(SP)+

:YES = CHANGE ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR
:REPORT ''OP1'' ERROR

:RESTORE (SP)

0, AND ''ATA", "MOL'' AND "'w¥'' = 1

RMDSI,-(SP)
#*C<ATA!PIP!MOL!VV>,
(SP)
FATA'MOL'!VV,(SP)+

9%
14%
: REPORT ERROR

SET 22

#55.,3(5P)

#10, (SP)

000010

046060
066064
046070

;1S SK1

;REPORT ANY ''OPI'' ERROR AS OP1 WITH MOL
;BECAUSE ON CYLINDER LATCH DIDN'T RESET

001142

000000

#54,3(5P)
#2,(SP)

:REPORT ANY DEVICE CHECK

4$:
548

000010

020000

#,(SP)

SEQ 0195

BIT

BNE
BIT
BNE

MOV

B1S

MOV
ADD
Move

suB

sERROR IN RMDS
sRMDS IS OK

IF MOL = 0 AND OPI = 0
#MOL ,RMDS ]

10$

#0P1,RMER1]

;1S MOL RESET??

INO - MOL IS SET
‘WAS OP]

SET

108
RMDS1,$GDDAT

*YES - DONT REPORT ERROR
:EXPECTED STATUS

RMDST,$BODAT
¥, (SP)

:RECEIVED STATUS

#2,(SP)

+MOVE

#MOL
, $GDDAT
#62,3(SP)

SP TO RETURN FOR ERROR

r——

——————

CZRMNAQ RMOS/3/2 FCINL TST 2

SEEK STATUS CHECK SUBROUTINE

172

046162

004736

};g 046170

000240

o«o\ga

176

177 046172

178 046200
179 0646202

180 046210
181 066212

182 066220

183 046226
184 046234
185 046240
186 046246
187 046252

188 066256

}gg 046260
191

192 066262

193 046270
194 046272
195 046300
196 046306
197 046314

198 066320

‘

199 046326
53? 066332

202 046336

032737

020000

001346

040000

001376

(01346

001140

oo1o§4
013737

oagrsr

013737
062716
112776
162716
004736

001346
110600
001346
000004

001140
001140
001142

001024
013737
052737
013737
062716

112776

1672716
00«736

SUB

032737

000100

001346

010000

001376

001346
000100
001346
000004

001140
001140
001142

000240

001030
032737
ooto§c
013737
052737
013737
062716

215 066416
216 066422

162716
004736

218 066430
5}3 066432

000240

112776

162716

000064

000002

n6, (sP)

:REPORT ERROR VIA USER

#P1P,RMDSI

1%
#SK1,RMER2]

118
RMDS1,$GODAT

#P1P,$BODAT

RMDST,$BDDAT
0, (SP)
#56,3(SP)
#2,(5P)
PC.a(SP)+

10, sp)

;1S "PIP" STILL SET??

INO!!
SWAS ''SKI''SET??

*YES=DONT REPORT PIP
EXPECTED STATUS
;RECEIVED STATUS
:MOVE (SP) TO ERROR
:LOAD ERROR NUMBER
:MOVE SP TO RETURN FOR ERROR
:REPORT 'PIP'' SET AFTER SEEK

:RESTORE (SP)

REPORT AN ERROR IF "'ATA"* IS NOT SET

118:

000000

000010

207 046350
208 046352
209 046360
210 066362
211 066370
21; 066376
213 066406

221

000002

MOV
ADD
MOVB
SUB
JSR

NOP

162716

217 046426

000057

BEQ
BIT

BIC

000000

001346

BIT

BNE
MOV

001142

100000

PC,a(SP)+

SEQ 0196

:REPORT AN ERROR IF "PIP' IS STIL SET AND SKI NOT SET

108:

001142

032737

205

216 066410

001346
000004
000056
000002

NOP

000010

'
|

020000

SUB

162716

000240

582 066340

206 046342

JSR

000010

001430
032737

8 1

MACRO v03.01 11-APR-80 13:17:48 PAGE 29-3

162716

———

BIT

#ATA,RMDSI

:WAS "'ATA'' SET 22

#57,3(SP)

:LOAD ERROR NUMBER

BNE
MOV
BIS
MOV
ADD

138
SYES!!
RMDSI,SGDDAT
EXPECTED STATUS
#ATA'MOL'DPR'!DRY, SGDDAT
RMDSI,$BODAT
;RECEIVED STATUS
#4,(SP)
:MOVE (SP) TO ERROR

SUB
JSR

#2,(SP)
PC.a(SP)+

SUB

#10,(SP)

MOVB

NOP

sMOVE SP TO RETURN FOR ERROR
‘QEEQR}EQ}TE""°" NOT SET DURING

;RESTORE (SP)

:REPORT ERROR IF VOLUME VALID IS RESET AND IVC IS ZERO

138:

000000

BIT

148
#1VC,RMER2]
148
RMDSI,$GODAT
#VV,SGDDAT
RMDS1,$BDODAT
0, (SP)

SUB
JSR

#2,(SP)
PC.a(SP)+

MOVB

000010

SUB

148:

#VV,RMDS |

BNE
BIT
BNE
MOV
BIS
MOV
ADD

NOP

#&4,a(SP)

;IS wy = 0 22

INO!!
215 1vC ALSO 0 ??
‘N0 - IvC IS SET
:EXPECTED STATUS

;RECEIVED STATUS
:ERROR #64

:MOVE SP TO RETURN FOR ERROR

n0,sp)

:MODIFY THE RETURN ADDRESS IF AN ERROR WAS DETECTED

szg 066432
23 046434
224 066440

000240
062716
105776

000004
000000

NOP
ADD
1ST8

#6,(SP)
a($P)

;MOVE (SP) TO ERROR CALL
*WAS ERROR CALLED??

226 066466

062716

000004

ADD

94, (SP)

:MOVE TO ERROR RETURN

255 066444

001403

g;uuu 000402

BEQ

15%

16§

:NO!'!

(IRMNAD RMOS5/3/2 FCTNL TST 2

SEEK STATUS (WECK SUBROUTINE

8::56

60871?

046462

000000

000004

MACRO v03.01 11-APR-B0 13:17:48 PAGE 23-6
15%:

SuB

SEQ 0197

16%:

RTS

06, (SP)

;MOVE

3008:

.wORD

;ERROR FLAGS

(SP) TO NO ERROR RETURN

RETURN

CIRMNAD RMOS/3/72 FCTNL TST 2

CONTROLLER CLEAR SUBROUTINE

MACRO v03.01 11-APR-B0 13:17:48 PAGE 38

SBTTL

SEQ 0198

CONTROLLER CLEAR SUBROUTINE

;THIS SUBROUTINE CLEARS THME MASSBUS CONTROLLER, MASSBUS ADAPTERS,

sAND DRIVES, THEN SELECTS THE DRIVE.

6
7

JCALL:
:

JSR
BR

177

8
G

.
-

12 0466464
0464646
066466
066470
0466476
13 046500

14 0646506
15 0646514

010046
010146
013746
013746
012737

012737
013700

16 066520
17 066526
18 046532
;3
536

012760
013701
111160
000412

21 046540
22 066562
23 046550

022626
062766
112776

0466564
046570
06465764
046576

012637
012637
012601
012600

162766

4
g
3

5; 8:2222

CNTCLR:

000004
000006
046540

000300
001276

000004

000006

000040
001464
000010

000010

000004
000007
000002

000010
000010
000010

000006
000004

PC,CNTCLR
m

RETURN HERE IF NO ERROR FOUND

MOV
MOV

RO,=(SP)
R1,-(5P)
ERRVEC ,=(SP)
ERRVE(C+2,~-(SP)
#108 ,ERRVEC

;sPUSH RO ON STACK
;:PUSH R1 ON STACK
;sPUSH ERRVEC ON STACK
;:PUSH ERRVEC+2 ON STACK
;SETUP FOR BUS TIMEOUT

#PR6,ERRVEC+?2
$BASE RO

#CLR,RMCS2(RO)
TSTQUE R
(R1) ,RMCS2(RO)
208

;RO = UNIBUS ADDRESS

;CLEAR MASSBUS
sGET DEVICE UNDER TEST
;SELECT DEVICE

(MP
ADD
MOvB
SuB

(SP)+,(SP)+
#6,10(5P)
#7.,310(5P)
#2,10(SP)

;ADJUST STACK
sMOVE SP TO USER'S ERROR CALL
JWRITE THE ERROR NUMBER

;ADJUST SP TO RETURN TO ERROR

MOV
MOV
MOV
MOv

(SP)+ ERRVEC+?2
(SP)+ ERRVEC
(SP)+ R
(SP)+ RO

;:POP STACK INTO ERRVEC+?2
;:POP STACK INTO ERRVEC
::POP STACK INTO R1
;:POP STACK INTO RO

NOP
ERROR

MOv
MOV
MOV
MOV
MOV

MOV
MOV
MOvVB
B

108:
208

RETURN HERE IF ANY ERROR FOUND
SUB DEFINES ERROR NUMBER

CZRMNAD RMOS/3/2 FCTNL TST 2

STATUS CMECK SUBROUTINES

E 16
MACRO v03.01 11-APR=-80 13:17:48 PAGE 31

SEQ 0199

LSBTTL

STATUS CHMECK SUBROUTINES

.SBTTL

CONTROLLER CLEAR STATUS CHECK SUBROUTINE

;:"'..""Ql"'.""""'""'...'.!.l""'."'."""".".Q"'

2
5

;THIS SUBROUTINE VERIFIES THAT THE SUBSYSTEM IS INITIALIZED BASED ON

6
7

;STATUS STORED IN THE GET BUFFER.
TWIS SUBROUTINE SHOULD ONLY BE
;USED FOLLOWING A CONTROLLER CLEAR OPERATION, I.E., WRITING A 1 IN BIT

;STATUS PERTINENT TO THE DEVICE IS NOT CHECKED.

15
16
17
18
19
20

sCALL:
21
;
;
:

;

;S OF RMCS2, BECAUSE THE ERROR MESSAGES ARE BASED 0! THAT CONDITION.

};

;FOLLOWING STATUS BITS ARE NOT CHMECKED:

;

gg 0466602
062716
105076
162716

000004
000000
000004

013737
042737
012737
023737
001413
062716

001334
100000
004200
001140

38 066662
39 066666

162716
004736

000002

41 0666764
42

000240

4, 066702
45 066710
46 0646712

013737
001413
062716

40 046670

43 066676

47 066716

112776

000004

000126

162716

000010

005037

001140

112776

001340

000004

000127

48 066726
49 066730

162716
004736

51 046736

000240

162716

000010

53 066740

013737

001344

S0 066732

56 066746
55 066750
56 066752
57 066756

ATA,ERR,PIP,MOL ,WRL ,LBT,PGM,VV,0M,UNS,SKI,D\(

JSR
BR

NOP

ERROR

JSR

77?2

PC,CLRSTS
273

RETURN WERE IF NO ERROR

RETURN MERE TO REPORT AN ERROR

ERROR NUMBER DEFINED BY SUB

PC.a(SP)+

GO BACK TO SUB FOR MORE ERROR CHECKS

RETURN HERE IF NO MORE ERRORS

CLPSTS:

26
27 046602
28 046606
29 046612
30
31 046616
32 066626
33 066632
3, 066640
35 0466646
36 066650

37 066656

IN PARTICULAR, THE

010146
005046
013701
111116

000002

001464

001142
001142
001140
001142

000000

;CLEAR USER'S ERROR CALL
ADD
9, (SP)
:MOVE SP TO ERROR
C(LRB
@(SP)
:CLEAR ERROR NUMBER
SUB
#,(SP)
*MOVE SP BACK TO NO ERROR
;REPORT ERROR IF RMCS1 NOT INITIALIZED
4$:
MOV
RMCS11,$BODAT
;VERIFY RMCS!
BIC
#SC,SBODAT
:1GNORE SPECIAL CONDITION
MOV
#OVA'RDY,$GDDAT :EXPECT DVA & RDY
CMP
$GODAT,$BDDAT
:COMPARE EXPECTED, RECEIVED
BEQ
58
:BRANCH IF EQUAL
ADD
94, (SP)
:MOVE SP TO USER'S ERROR CALL

MOVB

#126,3(SP)

:WITE ERROR NUMBER IN CALL

SUB

00, (sp)

:MOVE SP BACK TO NO ERROR

SUB
JSR

#2,(SP)
PC.a(SP)+

:MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

NOP
-REPORT ERROR IF RMBA NOT RESET

001142

bs:

000000

CLR

MOV
BEQ
ADD

MOVB
SUB
JSR

SUB

NOP

001142

$GDDAT

RMBAI,SBDDAT
7%
2, (SP)

#127.3(SP)
#2,(5P)
PC.a(SP)+

MOV

MOV
CLR
MOV
MOVB

:WITE ERROR NUMBER IN CALL

:MOVE SP BACK TO NO ERROR
INITIALIZED

RMCS21,$BODAT

R1,-(SP)
-($P)
TSTQUE ,R1
(R1),(SP)

:BRANCH IF ZERO
:MOVE SP TO USER'S ERROR CALL

:MOVE SP 10 RETURN FOR ERROR
:REPORT ERROR VIA USER

00, (5P)

-REPORT ERROR IF RMCS2 NOT

7%:

;VERIFY RMBA IS ZERO

;VERIFY RMCS2 «

::PUSH R1 ON STACK
CEXPECT IR & UNIT NUMBER
*R1 = ADDRESS OF TEST QUE

CIRMNAO RMO5/3/2 FCTNL TST 2

MACRO v03.01
CONTROLLER CLEAR STATUS CHMECK SUBROUTINE

58 046760
§9 046764
60 046770
61 046772
62 047000
63 0647002
64 047006
65 047014
66 047020
67 047022
68 047026

052716
012637
012601
023737
001413
062716
112776
162716
004736
162716
000240

70
71
72
73
7%
75
76
77
78
79

047030
067034
067062
047050
047052
047056
067064
067070
067072
067076

005037
013737
062737
001413
062716
112776
162716
004736
162716
000240

81 047100
82 067106
83 047116
84 067122
85 047130
86 047132
87 047136
88 047144
89 047150
90 047152
91 047156

013737
062737
012737
023737
001413
062716
112776
162716
004736
162716
000240

93 047160
9% 047164
95 047172
9 047174
97 047200
98 047206
99 067212
100 047214
108 047220

005037
013737
001413
062716
112776
162716
004736
162716
000240

001140
001402

103 067222
106 067230
105 067236
106 067266
107 047252
108 047254
109 067260
110 067266
111 067272
112 067276

013737
062737
012737
023737
001413
062716
112776
162716
004736
162716

001374
140000
011777
001140

113 067300

000240

F 16
11-APR-80 13:17:48 PAGE 31-1

000100
001140
001140
000004
000130
000002

000004
000131
000002

001142

000004
000133
000002

000000

000010

::POP STACK INTO R1

BEQ

*BRANCH IF EQUAL

move

#130.3(sp)

JSR

PC.a(SP)+

332
:REPORT ERROR

001142
001142

9%:

CLR
MOV
BIC
BEQ
ADD

000000

move
SUB
JSR

sgg

sREPORT

001142

17%:

(SP)

:MOVE SP TO USER'S ERROR CALL

:WITE ERROR NUMBER IN CALL

#2,(SP)

:MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

#0, (sP)

IF RMMR1 NOT

:MOVE SP BACK TO NO ERROR
INITIALIZED-IGNORE WC,LS,LST

RMMR11,$BDDAT

;VERIFY RMMR

¥4,

sMOVE SP TO USER'S ERROR CALL

FUC:LS!LST, $BDDAT
s IGNORE WORD CLOCK, SCT, TRk
MWD, $GDDAT
sEXPECT WRITE DATA BIT
?920A1,SBDDAT
; COMPARE EXPECTED AND RECEIVED
(SP)

#133.a(sp)

#2,(SP)
PC.a(SP)+

910, (5P)

SUB

#2,(5P)

000000

#4,

¥,

sgg

sREPORT ERROR

19%:

:REPORT ERROR VIA USER

:MOVE SP BACK TO NO ERROR

1F RMER1 NOT RESET=-IGNORE
UNS
$GDDAT
:VERIFY RMER1
RMER11,$BDDAT
#UNS, SBDDAT
; 1GNORE UNSAFE
138
:BRANCH IF ZERO

ADD

JSR

001142
001142
001140
001142

:MOVE SP TO RETURN FOR ERROR

;BRANCH IF 0

:WITE ERROR NUMBER IN CALL

*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

:MOVE SP BACK TO NO ERROR

AN ERROR I1F RMEC2 1S NOT RESET
CLR
$GDDAT
;EXPECT ZEROS
323
?gchl.saooar
:VERIFY RMEC2:0

Move

000000

SP TO USER'S ERROR CALL

:WITE ERROR NUMBER IN CALL

10, (sp)

PC (SP)+

BIC
MOv
gg:

:COMPARE EXPECTED & RECEIVED

:MOVE

#2,(5P)

JSR

;REPORT ERROR
13%:
MOv

000000

(SP)

#1%1.3(sP)

332
001142
001142
001140
001142

move
SUB

000010

000004
000136
000002

$GDDAT,SBODAT

SUB

000010

000004
000135
000002

CMP

(SP)+,$GODAT
(SP)+ R

ADD

000010

001360
000046
000010
001140

#IR, (SP)

MOV
MOV

000010
001140
001350
040000

BIS

SEQ 0200

MOV

BIC

MOV

(SP)

#1%5,a(sp)
PC.a(SP)+

06, (sp)

:MOVE

SP TO USER'S ERROR CALL

‘WITE ERROR NUMBER IN CALL

‘MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

:MOVE SP BACK TO NO ERROR

IF RMMR2 NOT INITIALIZED-1GNORE RQA,RQB
RMMR21,$BDDAT

#RQA'RQB, SBDDAT

#TSTi177%,8GDDAI

;VERIFY RMMR?

:EXPECT TEST BIT ON

CMP

$GDDAT, $BODAT

ADD

94,

SUB

#2,(SP)

;MOVE SP TO USER'S ERROR CALL
;WITE ERROR NUMBER IN CALL
*MOVE SP TO RETURN FOR ERROR

10, sp)

:MOVE SP BACK TO NO ERROR

BEQ

MOVvB
JSR

SUB

NOP

218

(SP)

#1%6.a(sP)
PC a(SP)+

*REPORT ERROR VIA USER

sREPORT ERROR IF RMER2 NOT RESET-IGNORE SKI1,DvC

CZRMNAD RMOS/3/2 FCTNL ST 2
MACRQ v03.01
CONTROLLER CLEAR STATUS CHECK SUBROUTINE
115
116
117
118
119

047302
067306
067316

0647322
067326

120 047330

005037
013737
042737

001413
062716

000174

162716

000010

013737

001346

001142

162716

000004
000134
000002

000000

162716

000010

162716
004736

126 067350

000240

126 0647352

125

127
128
129
130
131
132

067360
067366
067374
067402
0474064
0676410

133 047416

042737
012737
023737
001413
062716
112776

134 067422

004736

136 067430
137 047432
138 047436
139 047442
140 047446
141 047450
142 047452
1643 047456

000240
062716
105776
001403
062716
000402
162716
000240

135 047624

1644 047460

000004

001142
001142

112776

121 067336
122 067342

123 067364

001340
001376
040200

000207

000002

177177
000600
001140

000004
000000

21%:

-REPORT

2158:

23%:
248:

SEXPECT ALL 5saos
:VERIFY RMER
: IGNORE DEVICE ERRORS
:BRANCH [F OTHER BITS 0
:MOVE SP TO USER'S ERROR CALL

#2,(5P)
PC (SP)+

*MOVE SP TO RETURN FOR ERROR
‘REPORT ERROR VIA USER

#174,3(5P)

SUo

00, sp)

NOP

ERROR

MOy

RMDS NOT

:WITE ERROR NUMBER IN CALL

*MOVE SP BACK TO NO ERROR

INITIALIZED

RMDSI,$BODAT

;TEST DRIVE STATUS REGISTER

SUB

#2,(SP)

*MOVE SP TO RETURN FOR ERROR

SUB

#0, (sP)

:MOVE SP BACK TO NO ERROR

BIC
MOV
CMP
BEQ
ADD
MOVB
JSR

228:

$GODAT
RMERZ1,$BDDAT
#SK1'DVC,SBODAT
215%
9 (3P)

MOVB
SUB
J0

000004
000004

(LR
MOV
81C

BEQ
ADD

000000

001142
001140
001142

G 16

11-APR-80 13:17:48 PAGE 31-2

NOP
ADD
ST
BEQ
ADD
BR
SUB
NOP
RTS

#*C<DRY'DPR>,$BDDAT
#DPR'DRY,SGDDAT ;EXPECTED DRIVE STATUS
$GDDAT,SBODAT
:COMPARE EXPECTED & RECEIVED
22%
:BRANCH IF EQUAL
s, (SP)
:MOVE SP TO USER'S ERROR CALL
#134.3(SP)
‘WRITE ERROR NUMBER

PC.ASP)+

0, (SP)
a(SP)
238
#5, (SP)
24$
#4,(SP)
PC

*REPORT ERROR TO USER

:MOVE SP TO ERROR CALL
*WAS AN ERROE DETECTED??
INO!!
*YES = MOVE TO ERROR RETURN
sMOVE SP TO NO ERROR RETURN

SEQ 0201

(I “TMNAC RMOS/3/72 FCTINL TST 2

PALK

ACKNOWLEDGE

STATUS (MECK

H 1

MACRO v03.01 11-APR-80 13:17:48 PAGE 33

SEQ 0202

.SBTTL

;THIS SUBROUTINE CHECKS THE RESULTS OF A PACK ACKNOWLEDGE
;COMMAND USING THE STATUS STORED IN THE GET BUFFER.
ERRORS ARE

2
3
5

PACK ACKNOWLEDGE STATUS CHECK

sREPORTED TO THE USER VIA THE USER'S ERROR CALL.

6
7

sCALL:

9
10

:
:

BR
NOP

JSR

12
13
14
15 047462

18 047462
19 047466

S? 047472

22
23 047476
26 047504
25 047506
26 0647514
27 047522
28 047530
29 047534
30 047562
31 047546
32 047550
33 047554
34 047556
35
36
37 047556
38 047564
39 047566
40 047574
41 047602
&2
63
&4
45
46
&7
48

047610
047614
047622
0647626
0647630
0647634
047636

JSR

ERROR
272

PC,ACKSTS

PC,a(SP)+

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEFINED BY SuB

GO BACK TO SUB FOR MORE ERROR CHECKS
RETURN HERE IF

NO MORE ERRORS

ACKSTS:

;CLEAR USER'S ERROR CALL

062716
105076

000004
000000

032737
001024
013737
052737
013737
062716
112776
162716
004736
162716
000240

000100

001346

001346
000100
001346
000004
000155
000002

162716

032737
001024
013737
052737
013737

062716
112776
162716
004736
162716
000240

ADD

CLRB
SUB

000004

:REPORT AN ERROR

a(SP)
#4, (SP)
IF

“'wv'' 1S 0

:MOVE

SP TO ERROR

CALL

:CLEAR LOW ORDER BYTE
:MOVE SP BACK

001140
001140
001142

BIT
BNE
MOV
BIS
MOV

#VV,RMDSI
13
RMDSI,$GODAT
PV, SGDDAT
RMDSI,$BODAT

;1S VOLUME VALID SET??
SYES!!
:EXPECTED STATUS

000000

Move

#155.a(sP)

*WRITE NUMBER IN ERROR CALL

JSR

PC.a(SP)+

ADD

SUB

000010

SUB

1%:

NOP

001346

001346
010000
001346

003140
001140
001142

BNE
MOV
BIS
MOV

000000

MOVB

2%:
060007

001350

54
55 047646
56 067654
57 047656

032737
001424
013737

040000

001350

001142

SP TO ERROR CALL

010, (SP)

‘MOVE SP BACK TO BRANCH

¥4,

NOP

:MOVE

*MOVE SP TO RETURN FOR ERROR

ADD

SUB

;RECEIVED STATUS

#2.(5P)

#MOL ,RMDS ]

JSR

(032737
001570

(SP)

BIT

SUB

000010

51 047636
g§ 047644

#s,

:REPORT AN ERROR IF ''MOL" IS 0

010000

000004
000041
000002

#6, (SP)

‘REPORT

THE ERROR

;1S MOL SET??

2%
RMDSI,$SGDDAT
#MOL, SGDDAT
RMDST,$BODAT

;RECEIVED STATUS

#41,3(SP)

*WRITE NUMBER OF ERROR IN CALL

(SP)

#2,(5P)

PC.a(SP)+

90, (sP)

SYES!!
:EXPECTED STATUS
*MOVE

SP TO ERROR CALL

:MOVE SP TO RETURN FOR ERROR
‘REPORT TH ERROR

*MOVE SP TO BRANCH

;SEE IF "UNS'',"'OPI'',"RMR'',"ILR'', OR "ILF'' IS SET
BIT
SUNS'OP]1'RMR!ILR'ILF,RMER1]
7%
BEQ

:REPORT AN ERROR IF "'UNS'' 1S SET
BT
BEQ
MOV

SUNS,RMER1]
3%
RMER11,$BDDAT

:WAS UNS SET??
JNO!!
:RECEIVED STATUS

CZRMNAO RMOS/3/2 FCT

NL TST 2

PACK ACKNOWLEDGE STATUS CHECK

047

013737

001350

047700

062716

000004

62 0647712
63 067716

162715
004736

000002

65 0647726
29 047726

000240

MACRO v03.01 11-APR-80 13:17:48 PAGE1133-1

§9 067672 oazrgr 040000 001140

001140

MOV

BIC

RMER11,SGODAT

;EXPECTED STATUS

61 047706

000000

ADD

SUNS, $GDDAT

MOVB

0, ($P)

#42,3(SP)

;MOVE SP TO ERROR CALL

#2,(SP)
PC.A(SP)+

‘WRITE NUMBER OF ERROR IN CALL
:MOVE SP TO RETURN FOR ERROR
*REPORT THE ERROR VIA USER

64 047720

68
69 047726
70 0647736
71 047736

112776

162716

032737

72 047746

001424
013737
013737

7% 067760

062716

73 067752

75 067764

062737

112776

76 047772
77 067776

162716
004736

79 0500064
g? 050006

000240

78 050000

83 050006

162716

032737

000062

000010

SUB

38:
020000

001350

001350
001350

001142
001140

020000
000004

000043
000002

001350

001350
001350
000004
000004
000044
000002

001142
001140
001140

000240

9%
97 05
98 050076
99 050076

032737
001424
013737

000002

001350

001142

10° 050112
102 050120

042737
062716

000002
000004

00140

100 050106

103 050124

013737

112776

104 050132
105 050136

162716
004736

107 050144

000240

110
111
112
113
114

032737
001424
013737
013737

106 050140

}83 050146
050146
050154
050156
050164

162716

ADD

SUB

5%:

000045

000002

NOP

:REPORT ANY
BIT
BEQ
MOV

MOV

BIC
ADD

000000

MOVB
SUB
JSR

000010

SUB

6% :
000001

001350

001350
001350

001142
001140

:MOVE SP TO ERROR CALL

#2,(5P)
PC.a(SP)+

*MOVE SP TO RETURN FOR ERROR
:REPORT THE ERROR VIA USER

010, (SP)

BEQ
MOV
MOV
BIC
ADD
MOVB
SUB
JSR

000000

001140

#4, ($P)

#OP1,$GDDAT

SUB

BIT

NOP

:REPORT ANY
BIT
BEQ
MOV
MOV

;WAS OP1 SET 77

RMER11,$GDDAT

#45,3(s5P)

NOP

:MOVE SP TO NO ERROR RETURN

INO!!
;RECEIVED STATUS
:EXPECTED STATUS

:REPORT ANY RMR ERROR

000010

001350

00, (5P)

MOVB
SUB
JSR

48:

93 050064

gg 050066

BIC

000010

001424
013737
013737
042737
062716
112776
162716
004736

162716

MOV

000000

000004

NOP

:REPORT ANY OP] ERROR
BIT
#OP1,RMER1]
BEQ
43
MOV
RMER11,$BDDAT

001140

050014
85 050016
86 050026
87 050032
88 050040
89 0500644
90 050052
91 050056

92 050060

SUB
JSR

SRMR ,RMER1 ]

:WRITE NUMBER OF ERROR IN CALL

:MOVE SP TO NO ERROR RETURN

:WAS RMR SET??

5%
RMER11,$BDODAT
RMER11.$GDDAT
#RMR, SGDDAT
06, (SP)
#44,3(SP)
#2,(SP)
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

ILR ERROR
#ILR,RMER1]
1
RMER11,$BDDAT

;WAS ILR SET??
INO!!
:RECEIVED STATUS

00, (SP)

RMER11,$GDDAT

#1LR,$GDDAT
#4, (SP)

INO!!
:RECEIVED STATUS
-EXPECTED STATUS

*MOVE SP TO NO ERROR RETURN

:EXPECTED STATUS

:MOVE SP TO ERROR CALL

#45,3(SP)

*WRITE NUMBER OF ERROR IN CALL

00, (sp)

:MOVE SP TO NO ERROR RETURN

#2,(5P)
PC.a(SP)+

ILF ERROR
#ILF,RMERT]
7%
RMER1]1,$BDODAT
RMER1].$GDDAT

*MOVE SP TO RETURN FOR ERROR
:REPORT THE ERROR VIA USER

:WAS ILF SET?2?
INO!
:RECEIVED STATUS
:EXPECTED STATUS

SEQ 0203

CZRMNAO RMOS/3/2 FCTNL TST 2

PACK

ACKNOWLEDGE STATUS CHECK

115 050172
116 050200

042737
062716

000001
000004

118 050212
119 050216

162716
004736

0000:2

121 050226

000240

117 050204

120 050220

}gg 050226
124

125 050226
126 050232

127 050236
128 050240
129 050244
130 050246
131 050252
}gg 050256

112776

162716

062716
105776
001403
062716
000402

162716

000240

000207

000044

MACRO v03.01 71-APR-80 13:17:48 PAGEJ 33’2
001140

000000

:MOVE SP TO ERROR CALL

SUB
JSR

#2,(5P)
PC a(SP)+

*MOVE SP TO RETURN FOR ERROR
*REPORT THE ERROR VIA USER

NOP

#4b,3(SP)

#10, (sP)

;AUGMENT RETURN ADDRESS

ADD
1STB

000004

#ILF,SGDDAT
95, ($P)

SUB

7%:
000004
000000

BIC
ADD

MOVE

000010

8%:

9% :

SEQ 0204

BEQ
ADD
BR

SUB

NOP

RIS

#6,(SP)
a($P)
8s
04, (SP)
9%

#4,(SP)
PC

‘WRITE NUMBER OF ERROR IN CALL

:MOVE SP TO NO ERROR RETURN
ERROR WAS FOUND

:MOVE SP TO ERROR CALL
*WAS ERROR FOUND??
INO'!
*YES = MOVE

TO ERROR RETURN

:MOVE SP TO NO ERROR RETURN

CZRMNAQ RMO5/3/2 FCTINL TST 2

RECALIBRATE

STATUS CHECK

MACRO v03.01 11-APR-80 13:17:48 PAGE 3?

SUBROUTINE

SEQ 0205

.SBTTL

3
g

;THIS SUBROUTINE CHECKS THE RESULTS OF A RECALIBRATE OPERATION
:USING THE STATUS STORED IN THE GET BUFFER.

sCALL:

B
9

:(1)
;

;

JSR
BR
NOP

;

ERROR

77?

;

}z 050256
17

062716

%? 050266

162716

22
23
26 050272

%2 050300

000000

032737
001553

022011

032737
001430
032737
001024
013737
042737
013737
062716

38 050356
39 050362

162716
004736

41 050370

000240

40 050364
:g 050372
44

45
46
47
48
49

112776
162716

ADD

CLRB

000004

SuUB

001350

000010

001350

000010

001376

001350
000010
001350
000004

001140
001140
001142

000050
000002

000000

000010

BEQ

GO BACK TO SUB FOR MORE ERROR CHECKS

RETURN HERE IF NO MORE ERRORS

;MOVE SP BACK TO BRANCH

JREPORT

ANY

001140
001140
001142

51 050430

112776

000071

000000

Move

§5 050450
g? 050452

000240

162716

:NONE ARE SET = GO TO NEXT CHECK

llé.(SP)

NOP

001350
000001
001350

000002

SuUB

BIT
BEQ
MOV
BIC
MOV

162716
004736

;MOVE SP BACK TO BRANCH

:WRITE ERROR NUMBER IN CALL

001350

52 050436
53 050442

:CLEAR USER'S ERROR CALL

#50,a(sP)

SuUB
JSR

18:

000004

#4,(SP)

move

000001

062716

#4, (SP)

a(SP)

sREPORT ANY MASSBUS CCNTROL BUS PARITY ERROR, 1.E.,
;"'PAR'" = 1 AND 'DPE'" = 0
BIT
#PAR,RMER1]
:WAS "PAR"’ SET??
BEQ
1%
INO!!
BIT
#DPE ,RMER2!]
:WAS 'DPE'' SET??
BNE
1%
SYES = NOT A REGISTER ERROR
MOV RMER11,$GDDAT
JEXPECTED STATUS
BIC
#PAR, SGDDAT
MOV
RMER11,$BDDAT
;RECEIVED STATUS
ADD
#6,(SP) ;MOVE SP TO USER'S ERROR CALL-

032737
001424
013737
042737
013737

54 050644

ERROR NUMBER DEFINED BY SUB

;SEE IF "PAR" OR "'ILF'' OR "'OPI' OR '‘IAE'' 1S SET
BIT
#OPI'PAR'ILF'IAE,RMER1]

050372
050400
050602
050410
050416

50 050426

PC,a(SP)+

;CALL SUBROUTINE
RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR

sCLEAR USER'S ERROR NUMBER

000004

105076

27
28
29 050302
30 050310
31 050312
32 050320
33 050322
3, 050330
35 050336
36 050344

37 050350

JSR

PC,RCLSTS
273

RCLSTS:

18 050256

19 050262

RECALIBRATE STATUS CMECK SUBROUTINE

ADD

SUB
JSR

000010

SUB

2%:

NOP

#2,(SP)
PC.a(SP)+

"'ILF'' ERROR

sMOVE SP TO RETURN FOR ERROR
160 REPORT ERROR

#ILF,RMER1]
2%
RMER11,$GDDAT
#I1LF,SGDDAT
RMERTI,$BODAT

;WAS "ILF'' SET??
INO!!

#71.a(sp)

*WRITE ERROR NUMBER IN CALL

#4, (SP)

#2,(SP)
PC,a(SP)+

00, (sp)

:EXPECTED STATUS

:RECEIVED STATUS

:MOVE SP TO USER'S ERROR CALL

sMUVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER

*MOVE SP BACK TO BRANCH

CIRMNAD RMO5/3/2 FCTINL TST 2

MACRO v03.01 11-APR-80 13:17:48 PAG% ;g-l

RECALIBRATE STATUS CHECK SUBROUTINE

sREPORT ANY "'OP1'' ERROR AS
O==00~=00000O0
OO —=OW—=0O
=
~0OWw
~ NN =N PININNI
N — N

58
59
60
61 050452
62 050460
63 050462
64 050470
65 050476
66 050504
67 050510
68 050516
69 050524
70 050526
71 050534
72 050540
73 050542
764 050546
75 050550
76
77
78 050550

001350

001350
020000
001350
000004
000072
010000

001140
001140
001142

000073
000002

BEQ

002000
001350
002000
001350
000004
000070
000002

MOVB

3%:

#72,3(SP)

#MOL ,RMDS |

MOVB
SUB
JSR

#73,3(SP)
#2,(SP)
PC.a(SP)+

E{)

SUB

001350

''IAE'' IS SET

BIT
BEQ

#1AE,RMER1]
48

BIC
MOV

#1AE,$GDDAT
RMER11,$BDDAT

MOV
ADD

move

000000

SUB
JSR

SUB

001376

#10, (sP)

NOP

JREPORT AN ERROR

001140
001140
001142

(SP)

BIT

BEQ

NOP

‘EXPECTED STATUS
sRECEIVED STATUS

sMOVE SP TO USER'S ERROR CALL
sWRITE ERROR NUMBER IN USER'S CALL

JWAS "MOL'' = 072?

SVES!:!

sNO = CHANGE ERROR NUMBER

sMOVE SP TO RETURN FOR ERROR
sREPORT ERROR VIA USER

sMOVE

SP BACK TO BRANCH

;1S "1AE'" SET??

JNO!!

RMER1],$GDDAT

JEXPECTED STATUS

#4,

;MOVE

(SP)

#70,a(sP)
#2,(5P)
PC.a(SP)+

#10, (5P)

sRECEIVED STATUS

SP TO ERROR CALL

;WRITE ERROR NUMBER IN USER'S CALL

sMOVE SP TO RETURN FOR ERROR

sREPORT

ERROR

:MOVE SP BACK TO NO ERROR RETURN

sSEE IF "'SKI'" OR ''IvC'' OR "‘DV(C"’ 1S SET
BIT
BEQ

sREPORT

O=O=—=00—=0O
OO0 =OW—=0
OSSN
—=MNOMNN
NONNNNS NYNNN
& == NO NN — NN
OO OO WNOONN

RMERT1,$BODAT

ADD

4%:

050200

#OP1 SGDDAT

MOV

000010

N
92 050630
gz 050636

RMER11,$GDDAT

BIC

000000
001346
000000

318

MOV

31%:

80 050560
81 050566
82 050574
83 050602
84 050606
85 050614
86 050620
87 050622
88 050626
38 050620

}}2 050736

020000

. OP1 DUE TO "MOL" = 0
. OP]1 BECAUSE ON CYLINDE R LATCH DIDN'T RESET
BIT
#OPI ,RMER1]
:=3§'0P1 SET??

000010

79 050556

95
96
97
98
99 050640
100 050646
10% 050650
102 050656
103 050664
104 050672
105 050676
106 050704
107 050712
108 050714
109 050722
110 050726
111 050730
112 050734

SEQ 0206

ggKl!lVC!DVC.RHERZI

:NONE OF THE BITS ARE SET

ANY "'IVC'' ERROR AS
JVE WITH W = 0

.ERRONEOUS IVC ERROR

010000

001376

001376
010000
001376
000004
000074
000100

001140
001140
001142

000000
001346

MOVB
BIT

#74,3(SP)
#VV.RMDS

000075
000002

000000

MOVB

#75.,3(SP)

BIT
BEQ
MOV
BIC

#1VC,RMER2]
68
RMER21,$GDDAT
#1VC,$GDDAT

ADD

#4, (SP)

MOV
BEQ

5%:

000010
6%:

RMERZ]
, $BDDAT
5¢

SUB

#2,(SP)

SUB

010, (spP)

JSR

NOP

PC a(SP)+

+WAS 1vC SET??
sNO!!
;EXPECTED STATUS

sRECEIVED STATUS
sMOVE SP TO USER'S ERROR CALL
sWRITE ERROR NUMBER IN CALL
sWAS vy = 0?7

JYES!!
sNO - CHANGE ERROR NUMBER
sMOVE SP TO RETURN FOR ERROR
sREPORT ERROR VIA USER
sMOVE

SP BACK

TO BRANCH

w—

.r-sra~e—unuuuann
OO NNNESN
oo

85852822282

N
NONONONNI
— N
NNNNNNNNNESN

il
)

001376

ADD

N = NN N N
CONNNESN

&S =
oo

NNNNNNNNNSN

8
v
c-SoR28
on
PO
NN N — N

oro

NN
=

SRFELF

NN~

oro

ot
il
o
o
i
il
s

CoO

OCO0O

-t
B
i it

VWA WVIWA VAW
VWA

odod=lellelolelelelele]
OCO00D
O

7%:

001376
000200
001376
000004
000077
000002

001376

000010

8%:

sSEE IF

- ONN~N

WO
N ==~
~NNvo oo

[olelelele]

Egc>haia-

SERE

.
TM J
o~
oo
-

VVWAWYWVWAWN

S ~
AWA WA WA VAW

MOvB
suB
JSR
SuB
NOP

MOV

BIC
CMP

110100

051530

85%:

BNE
JMP

J-nzg-a-w-tntntntutntutu
NNNSANON

NN
=N - N
NNNNNNNNNONO
N

- OO
-‘-‘ii‘b‘:fi):;(?()‘b
=N
OWOW

SERENERFESHESS

POPURUNY
b b b b b b s b b b

oo
N b s

OCO0OO0O0O0O0O0O0O0O0O0O0O0O

VAWV
VAN WAYWDA

;REPORT AN ERROR

VVWAWD

VAV

ADD

000000

—
o
—

(=1l

NN
-0

BIT
BEQ
MOV
BIC
MOV

001140

001346
047676

MOVB
suB
JSR
SuB
NOP

010000

001346

020000

001350

001346
010000
001346
000004
000100
000002

001140
001140
001142

BNE

BIT
BNE
MOV
BIS
MOV

ADD
MOvB

000010
9%:

001346

010000

001376

33-

SEQ 0207

:=3§.sxx SET??

:EXPECTED STATUS

RMERS],SBODAT

:RECEIVED STATUS

#76,3(5P)

‘WRITE ERROR NUMBER

PC a(SP)+

‘REPORT ERROR VIA USER

9%,

(SP)

#2,(5P)

00, sp)

:MOVE SP TO USER'S ERROR CALL

:MOVE SP TO RETURN FOR ERROR

SMOVE SP TO BRANCH

:2vc.nneazx

:=3§.'tVC"SE!??

RMER2]1,$GDODAT

:EXPECTED STATUS

#0VC,SGDDAT

RMERZ],$BODAT
9,

(SP)

#77,3(5P)

#2,(5P)

;RECEIVED STATUS

:MOVE SP TO USER'S ERROR CALL

:WRITE ERROR NUMBER

‘MOVE SP TO RETURN FOR ERROR

PC.a(SP)e

*REPORT ERROR VIA USER

RMDS1,=(SP)

;PUT RMDS ON STA(K

0, (sp)

SMOVE SP TO USER'S BRANCH

#*C<PIP'MOL:VV!OM!ATA>,
(SP)
FATA!MOL!VV,(SP)+

85%
138

IF MOL

= O AND OP]

= 0,

sLINE AF;E? RECALIBRATE WAS INITIATED

000000

000100

RMER2],8GDDAT
#5K1,$GODAT

JREPORT ANY "DvC'’ ERROR

001140
001142

s =D
B —h
D
b
b
b
B
b —d
b
s
s
0
s

BEQ
MOV
BIC
MOV

000010

000200

8 PacE 33-2
PAGE

;REPORT ANY "'SK1'" ERROR
;gtl.ll!lZl
BIT

001376
0‘0?00
001376
000004
000076
000002

-t

R —

,“'

—

N = OO0 VO W !'c:

ododei=llalelalalal1

040000

MACRO v03.01 11-APR-80 13:17:48

b
s =

‘

UBROUT INE
2

b — R~ — — s s

s i

s il

S il

OO NO WV

s il i

il sl

D il i

il il

ok aE =
S TMNr o
NIRNONININIRNINININ)
b b s
s
NOwnws e OW0 SLFIRUKZES
g232722°8 VNV W =00 Lok

—

NOP

1.E., MEDIUM WENT OFf

g:m.unosl

:%o‘m DROP??

#OP1 ,RMER1]

‘WAS OP1 ERROR REPORTED??

RMDS],SGODAT

:EXPECTED STATUS

#moL
, $GDDAT

SYES - DON'T REPORT MOL:=0

RMDSI,$BODAT
;RECEIVED STATUS
#6,(SP) :MOVE SP TO USER'S ERROR CALL

100,a(sP)

;WRITE ERROR NUMBER

PC (SP)+

*REPORT ERROR VIA USER

#2,(5P)

no, s

*MOVE SP TO RETURN FOR ERROR

:MOVE SP BACK TO USER'S BRANCH

;REPORT AN ERROR IF *'wv'' = 0 AND "'JvC' = 0
#VV ,RMDSI
;DID *'wv'' DROP??
BIT
BNE
10%
JNO!!
#IVC,RMERZ2]
JWAS THERE A 1v( ERROR??
BIT

1
MACRO v03.01 11-APR-80 13:17:48 PQGE 33-3

RMNAD RMOS5/3
CALIBRATE ST

FCINL TST 2
US CHECK SUBROUTINE

17§ 851 §§ 8g
1
001346 001140
172

051

1764 051
175 051244
176 051252
177 051256
178 051
179 051270

180 051272
181 051276
lti 051
18
184
185 051300
186 051306
187 051310
188 051316
189 051324
190 051332
191 051336
l9§ 051344
193 051350
196 051352
195 051356
196
197 051360
198
199

200
201 051360
202 051366
203 051370
204 051376
205 051404
206 051412
207 051416
208 051424
209 051430
210 051432

%11 051436
12 051440

213
214
215
216 051440
§‘7 051446
18 051450

219 051456
220 051460
521 051466
Zi 051474
223 051502
256 051506
225 851516
229 51520
227 051522
228 051526

137357
052737
?6 716
12776
162716
004736
162716
000240

032737
0010;4
013737
052737
013737
062716
112776

162716
004736
162716

000240

001346
000100
000004
000101
000002

108

RMDS1,SGODAT
RMDSI,$BODAT
#vy,SGODAT

001142
001140

(SP)

nb1.acse)

000000

#2,(5P)

PC.a(SP)+

nb, (sp)

000010

SEQ 0208

:YES = DONT REPORT vy=0

:EXPECTED STATUS
;RECEIVED STATUS
:MOVE

SP TO USER'S EPROR CALL

:WRITE ERROR NUMBER IN CALL

SMOVE SP T0 RETUPN FOR ERROR

;MOVE SP BACK TO USER'S BRANCM

108:

100000

001346
100000
001346
000004
000102

000002

001346

:REPORT
AN ERROR If ATA IS NOT SET
BIT
BNE

001140
001140
001142

MOV

:?Ia.nuosx

RMDSI,SGDDAT

#ATA,$GDDAT

RMDSI,$BODAT

(SP)

#102,3(5P)

000000

#2,(SP)

PC,a(SP)+

00, sp)

000010

;ueg ATA SET DURING RECALIBRATE??

SYRS!:}

:EXPECTED STATUS
;RECEIVED STATUS

:MOVE

SP T0 USER'S ERROR CALL

:WRITE ERROR NUMBER IN CALL
;MOVE SP TO USER'S BRANCH

118:

032737
001424
013737
0462737
013737
062716
112776
162716
004736
162716
000240

032737
001430
032737
001024
013737
042737
013737
062716
112776
162716
004736
162716
000240

000001

001346

001346
000001
001346
000004
000103
000002

001140
001140
001142

sREPORT AN ERROR IF "'OM'" IS NOT ZERO BECAUSE RECALIBRATE SHOULD
JALWAYS CLEAR OFFSET MODE
#OM,RMDS |
BIT
:WAS "'OM'* RESET??
BEQ
12%
:YES!'!
MOV
BIC
MOV
ADD

000000

MOvB
sus
JSR
SuB

000010
128:

020000

001346

040000

001376

001346
020000
001346
000004
000104
000002

001140
001140
001142

000010

000000

NOP

RMDSI,$GDDAT
#OM,SGDDAT
RMDSI,$BODAT
#6, (SP)

:EXPECTED STATUS

;RECEIVED STATUS
:MOVE SP TO USER'S ERROR CALL

103,3(5p)

*WRITE ERROR NUMBER

PC.a(SP)+

:REPORT ERROR VIA USER

#2,(5P)

010, (sP)

:MOVE SP TO RETURN FOR ERROR

:MOVE SP TO USER'S BRANCH

;REPORT AN ERROR IF "'PIP'* IS STIL ON, 1.E., DRIVE NOT ON
sCYLINDER
BIT

BEQ
BIT
BNE

1§£p.an051

#5K1 ,RMER2]

138

:zg'qaxve OFF

CYLINDER??

‘WAS ''SKI'* DETECTED??

*YES-DONT REPORT 'P]P"*

MOV

RMDSI,SGDDAT

MOV
ADD
MOovB
SuB

RMDSI,$BODAT
;RECEIVED STATUS
#4, (SP) ;MOVE SP TO USER'S ERROR CALL

BIC

JSR
SuB
NOP

#P1P,$GDDAT

0n0s,3(5p)

:EXPECTED STATUS

:WRITE ERROR NUMBER

#2,(SP)

‘MOVE SP TO RETURN FOR ERROR

nb, (sp)

:MOVE SP BACK TO USER'S BRANCH

PC A(SP)+

CZRMNAD RMOS/3/2 FCTINL TST 2
MACRO v03.01
RECALIBRATE STATUS CMECK SUBROUTINE

s9mum
032737
001514

040006

001350

051540

032737

000002

001350

013737

001350

40 051564
261 051572

013737
062716

001350
000004

263 051604
244 051610

162716
004736

000002

246

051616

000240

250 051620
251 051626
25% 051630
253 051636

032737
001424
013737
062737

000006

001350

001350
000006

001140
001140

062716

000004

237 051546

238 051550

gso 051556

z‘i 051576

245 051612

52‘ 051620
249

001424

o‘gr 7

112776

162716

000002

000105

;SEE IF "ILR" OR "RMR" OR "UNS'' IS SET
BIT
#ILR'RMR'UNS,RMERT]
BEQ
168

JREPORT AN ERROR IF ""ILR'" 1S SET
BIT

#ILR,RMERT]

001140

MOV

RMER1],SGODAT

001142

MOV
ADD

RMERTI,SBODAT
;RECEIVED STATUS
#6,(SP) ;MOVE SP TO USER'S ERROR CALL

SUB
JSR

#2,(SP)
PC,a(SP)+

BEQ

001140

BIC

000000

move

000010

SUB

148:

256 051644

013737

256 051656

112776

000106

162716

000010

255 051652

SEQ 0209

138:

1
g os1sg2
051536

D 1

11-APR=80 13:17:48 PAGE 334

001350

#ILR,SGODAT

;WRITE ERROR NUMBER IN CALL

00, sp)

:MOVE SP TO USER'S BRANCH

JMOVE SP TO RETURN FOR ERROR

BIT
BEQ
MOV
BIC

#RMR ,RMER1]
158
RMER1],SGDDAT
#RMR, SGDDAT

:WAS RMR SET??
INO!!
JEXPECTED STATUS

ADD

#4,(SP)

JMOVE SP TO USER'S ERROR CALL

#2,(SP)
PC,a(SP)+

*MOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER

MOV

000000

:EXPECTED STATUS

#105,a(sP)

sREPORT AN ERROR IF ''RMR'" IS SET

001142

JWAS ILR SET DURING RECALIBRATE??

;NO!!

MOVB

l166.a(SP)

JRECEIVED STATUS

JWRITE ERROR NUMBER IN USER'S CALL

162716
004736

260 051676
261 051700
262
263
264 051700
265 051706
266 051710
267 051716
268 051720
269 051726
270 051734
271 051742

000240

032737
001430
032737
001024
013737
042737
013737
062716

275 051754
274 051760

162716
004736

§’° 051766

000240

279
280 051770
281 051774
zag 052000
283 052002

062716
105776
001403
062716

000004
000000

000004

JAUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED
ADD
&, (SP)
JMOVE SP TO USER'S ERROR CALL
1STB
9(SP)
;WAS AN ERROR REPORTED??
BEQ
17%
INO!!
ADD
#4,(SP)
JYES = AUGMENT SP RETURN

285 052010

162716

000004

17%:

272 051746

275 051762

z;g 051770

284 052006

112776

162716

000402

SUB
JSR

RlERil.SBDDAT

257 051664
258 051670

259 051672

000002

NOP

14%

SUB

158:
040000

001350

000200

001376

001350
040000
001350
000004

001140
001140
001142

000107
000002

NOP

0, (sp)

:MOVE SP TO USER'S BRANCH
4

JREPORT AN ERROR IF "'UNS'" 1S SET AND ‘'DVC''
IS O
BIT
SUNS ,RMER1 ]
:WAS UNSAFE ON??
BEQ
168
INO!!
BIT
#DVC,RMERZ]
JWAS THERE A DEVICE CHECK??
BNE
16%
JYES = DON'T REPORT UNSAFE
MOV
RMER1] ,$GDDAT
JEXPECTED STATUS
BIC
#UNS, SGDDAT

000000

MOV
ADD

RMERT1,$BDDAT
04, (SP)

;RECEIVED STATUS
JMOVE SP TO USER'S ERROR CALL

SUB
JSR

#2,(5P)
PC,a(SP)+

JMOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER

move

000010

SUB

168:

NOP

SUB

#107.3(sp)

010, (SP)

18%

‘WRITE ERROR NUMBER

*MOVE SP BACK TO USER'S BRANCH

#4,(SP) :NO ERROR = RETURN SP 10 BRANCH

MACRO v03.01 11-APR-B0 13:17:48 PAGE S}-S

2 86 052014
2 87 052016
2 88

000240
000207

18%:

NOP
RTS

sSTATUS CECK IS COMPLETE

SEQ 0210

RMO5/3/2 FCINL TST 2

CZRMNA 0
REC AL 1 BR ATE STATUS CHECK SUBROUTINE

CIRMNAO RMO5/3/2 FCINL TST 2

MACRO v03.01 11-APR-80 13:17:48 PAGE 34

DRIVE CLEAR STATUS CHECK SUBROUTINE

SEQ 0211

.SBTTL

DRIVE CLEAR STATUS CMECK SUBROUTINE

:
:
;
;
H

BR
NOP
ERROR
JSR
n?

9 052020

DRVSTS:

12 052020
13 052024
}g 052030

062716
105076
162716

000004
000000
000004

16 052034
17 052042

013737
042737

001336
173700

18 052050
19 052056

012737
023737

20 052064
21 052066
22 052072
23 052100
26 052104
25 052106
%? 052112

001443
062716
112776
162716
004736
162716
000240

28 052114
29 052122
30 052130
31 052136
32 052144
gS 052146

013737
042737
012737
023737
001413
062716

35 052160
36 052164
37 052166
gg 052172

162716
004736
162716
000240

40 052174
&1 052200

005037
013737

4 052152

42 052206
43 052210
46 052214
45 052222
46 052226
47 052230
23 052234
50 052236

51 052244
52 052246
53 052250
54 052254
55 052260
56 052264
57 052266

112776

001413
062716
112776
162716
004736
162716
000240
013737

010146
010246
013701
116102
042702
005102
040237

004010
001140

000004
000141
000002

000004

000142

000002

000004
000143
000002

CLRB
SuB

001142
001142

;REPORT ERROR

6$:

001140
001142

001464
000001
177400
001142

MOV

¥, (SP)

BIC

CMP
BEQ

RMDS NOT

ERROR VIA USER

INITIALIZED

RMDSI,$BODAT

;CHECK RMDS

#PGM!OM!VV'PIP,SBDODAT

#MOL i DPR!DRY, SGDDAT

MOVB
SUB
JSR

#142,3(SP)
#2,(SP)
PC.a(SP)+

SUB

THE

:MOVE SP TO NO ERROR RETURN

$GDDAT,$SBODAT
6%

NOP

sMOVE SP TO ERROR CALL

:MOVE SP TO RETURN FOR ERROR

CMP
BEQ
ADD

SEXPECT DVA

;COMPARE EXPECTED & RECEIVED
sBRANCH IF EQUAL

:REPORT

010, (5P)

MOV

;CLEAR DONT CARES

PC,a(SP)+

agg
BIC

;CHECK RM(CS1

sWRITE NUMBER OF ERROR IN CALL

#2,(SP)

MOV

INITIALIZED

#s, (SP)
#141,3(5P)

SuB

:REPORT ERROR

000000

NOT

RMCS11,$BDDAT
$GDDAT,$BDDAT
6%

ADD
MOVB

§s:

RMCS1

;MOVE SP TO ERROR CALL

sCLEAR ERROR CALL
:MOVE SP TO USER'S BRANCH

#DVA!DRVCLR,$GDDAT

JSR

001142
001142
001140
001142

a(SP)
¥4, (SP)

#*C<DVA'FNCMSK>,8BDDAT

MOV

000000

#4,(SP)

00, (5P)

;CLEAR DONT CARES
:EXPECT DRY & DPR

;COMPARE EXPECTED & RECEIVED
*BRANCH IF EQUAL
: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

sREPORT ERROR IF RMER1 NOT INITIALIZED

001142
000000

6%:

CLR
MOV

$GDDAT
RMER11,$BODAT

ADD

#4, (SP)

BEQ

:BRANCH IF EQUAL

#143.3(SP)
#2,(5P)

#10, (SP)

sWRITE NUMBER OF ERROR IN CALL
:MOVE SP TO RETURN FOR ERROR
;REPORT THE ERROR VIA USER
:MOVE SP TO NO ERROR RETURN

MOV

R2.-(SP)

1:PUSH R2 ON STACK

BIC
COM
BIC

#*CATNMSK
,R2
R2
R2,$BDDAT

MOVB
SUB

SUB

001142

;EXPECT 0°S
:CHECK RMER1

JSR

000010

001352

PC,a(SP)+

ADD

000010
001140
001350

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEFINED BY SUB
GO BACK TO SUB FOR MORE ERROR CHMECKS
RETURN HERE IF NO MORE ERRORS

;CLEAR USER'S ERROR CALL

000010

001346
021101
010600
001140

PC A(SP)+

‘MOVE

SP TO ERROR CALL

NOP
;REPORT ERROR IF ATA NOT INITIALIZED
MOV
RMAS],$BODAT
;CHECK ATTENTION BIT
bS:
MOV
R1,-(SP)
1:PUSH R1 ON STACK
MOV
MOVB

1STQUE,R1
1(R1),R2

CZRMNAO RMO5/3/2 FCTNL TST 2

MACRO v03.01

DRIVE CLEAR STATUS CHECK SUBROUTINE

012602

012601
005737
001413
062716
112776
162716
004736
162716
000240

000004
000144
000002

69 052332
70 052340

013737
042737

001360
000046

001142

012737
023737
001413
062716
112776
162716
004736
162716

000010
001140

80
81 052412
82 0526420
83 052426
L
84 052434

013737
042737
012737

001374
140000
011777

023737

001413
062716
112776
162716
004736
162716
002240
005037

94 052476
95 052504

013737
001413

96 052506
97 052512
98 052520
99 052524

100 052526

062716
112776
162716
004736

000004
000145
000002

001140

000004
000146
000002

000000

001142
001142
001140
00 1142
000000

000010

001140
001402

001142

000004
000150
000002

000000

000240

162716

000010

103 052534
106 052542
105 052544
106 052550
107 052556
108 052562
109 052564
110 052570
111 052572

013737
001413
062716
112776
162716

001376

112
113 052572
114

sus
JSR
SuB

000004
000147
000002

bs:

PORT

001140
001142

000010

}85 052532

004736
162716
000240

ADD
Move

000000

000010

052346
052354
052362
052364
052370
052376
0526402
052404

85 052442
86 0526446
87 0526450
88 052456
89 0%5246¢
90 (5264664
91 052470
gg 052472

18T
BEQ

001142
001142

001142

NOP

(SP)+,R2
(SP)+ .R1

$BDDAT
98

0, (SP)

SEQ 0212

::POP STACK INTO R2
::POP STACK INTO R1

;1S ATTENTION CLEARED??
*BRANCH IF ATTENTION CLEARED

‘MOVE SP TO ERROR CALL

#144,3(5P)
#2,(5P)

‘WRITE NUMBER OF ERROR IN CALL
:MOVE SP TO RETURN FOR ERROR

010, (sp)

:MOVE SP TO NO ERROR RETURN

PC.a(SP)+

‘REPORT THE ERROR VIA USER

ERROR IF RMMR1 NOT INITIALIZED

MOV
BIC
MOV

RMMR11,$BDDAT
:CHECK RMMR
#CILSILST,SBDDAT
;CLEAR DONT CARES
#MUD, SGDDAT
;EXPECT WRITE DATA ON
$GDDAT,$BDDAT
:COMPARE EXPECTED AND RECEIVED

ADD
Move

#4, (SP)

CMP
BEQ

#145,3(5P)

:BRANCH IF ZERO

:MOVE SP TO ERROR CALL

:WRITE NUMBER OF ERROR IN CALL

suB
#2,(5P)
:MOVE SP TO RETURN FOR ERROR
JSR
PC.a(SP)+
:REPORT THE ERROR VIA USER
#10, (SP)
:MOVE SP TO NO ERROR RETURN
SuB
NOP
:RE PORT ERROR IF RMMR2 NOT INITIALIZED
11s
MOv
RMMR21,SBDODAT
;CHECK RMMR2
#RQA'RQB,$BODAT :CLEAR REQA, REQB
BIC
MOV
#TSTi1777,8GDDAT
;EXPECT TEST BIT ON
CMP
$GDDAT,$SBODAT
;COMPARE EXPECTED & RECEIVED
158
BEQ
*BRANCH IF EQUAL
ADD
#, (SP)
*MOVE SP TO ERROR CALL
MOovB
#146,3(SP)
*WRITE NUMBER OF ERROR IN CALL
#2,(SP)
:MOVE SP TO RETURN FOR ERROR
suB
PC.(SP)+
*REPORT THE ERROR VIA USER
JSR
#10, (sP)
:MOVE SP TO NO ERROR RETURN
SuB
NOP
15%
$GDDAT
CiR
;EXPECT ZEROS
;RE PORT ERROR IF RMEC2 NOT RESET
MOV
RMEC21,$BDDAT
;CHECK RMEC2
17%
BEQ
:BRANCH IF 0
ADD
#4, (SP)
‘MOVE SP TO ERROR CALL
Mova
#150,3(sP)
‘WRITE NUMBER OF ERROR IN CALL
#2,(5P)
:MOVE SP TO RETURN FOR ERROR
suB
JSR
PC a(SP)+
*REPORT THE ERROR VIA USER
#0, (sP)
:MOVE SP TO NG ERROR RETURN
SuB
NOP
PORT ERROR IF RMER2 NOT RESET
MOV
RMER21,$BDDAT
;CHECK RMER2
~N
e

71
72
73
76
75
76
77
78

MOV
MOV

—

58 052572

59 05% 76
60 05 §76
61 052302
6§ 052304
63 052310
66 052316
65 052322
66 052326
gg 052330

11-APR=B0 13:17:48 PAGE 34-1

BEQ

ADD
MOovB

000000

SuB
JSR
SuB

000010
18%:
19%:

NOP

18%

:BRANCH IF NO ERROR

#4, (SP)

:MOVE SP TO ERROR CALL

PC A(SP)+

*REPORT

#147,3(SP)
#2,(SP)

00, (5P)

*WRITE NUMBER OF ERROR IN CALL
*MOVE SP TO RETURN FOR ERROR
THE ERROR VIA USER

:MOVE SP TO NO ERROR RETURN

CZRMNAO RMO5/3/2 FCTNL TST 2

MACRO v03.01

DRIVE CLEAR STATUS CHECK SUBROUTINE

115
116
117
118
119

052572
052576
052602
052604

120 052610

121 052612
122 052616
}gz 052620

062716
105776
001403
062716

000402

162716
000240
000207

000004
000000

000004
000004

11-APR-80 13:17:48 PAGE 34-2

sAUGMENT RETURN
ADD
1STB
BEQ
ADD

ADDRESS IF ANY ERROR WAS FOUND
#s,(SP)
;MOVE SP TO ERROR CALL
@(5P)
;WAS AN ERROR DETECTED??
21%
INO!!
#4,(SP)
VES - MOVE SP TO ERROR RETURN

21%:
23%:

#4,(SP)

SuB
NOP
RTS

23$

;MOVE SP BACK TO NO ERROR RETURN

:RETURN TO USER

SEQ 0213

CZRMNAO RMO5/3/2 FCTNL TST 2

MACRO V03.01E11-APR-80 13:17:48 PAG% 351

0 WV IS NN —

DATA TRANSFER COMMAND STATUS CMECK SUBROUTIN

.SBTTL

W IS NN = O 000

:THE ERROR NUMBER IN THE USERS ERROR CALL.

;USER'S SUBROUTINE CALL:

VI NN = O 000N

eees

(1)

BR
NOP

: (5)

JSR

: (6)

052622

JSR

:(2)
:(3)
(&)

ERROR

PC,DTASTS

PC,a(SP)+

RETURN HERE IF NO DATA ERRORS
RETURN HERE TO REFORT 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
000000
000004
056216

ADD

CLRB
SUB

CLR

¥4, (SP)

;MOVE

5008

:CLEAR ERROR FLAGS

a(SP)
#4, (SP)

SP TO USER'S ERROR

*CLEAR LOW ORDER BYTE OF
*RESTORE SP TO NO ERROR

TRAP

‘?EE°"TH2§E CO?TROL BUS PARITY ERROR WHILE READING REMOTE REGISTERS,

AN AN N N N N N NN PO PO PO PN RO PO NI RO N =

032737
001422
013737
062737
013737
062716
112776
162716
004736
000466

NOWVSWN = OOV

020000

001334

001334
020000
001334
000004
000013
000002

001140
001140
001142

BIT
BEQ
MOV
BIC
MOV

000000

Move
.

#MCPE,RMCS1]
108
RMCS11,8GDDAT
#MCPE
, $GDDAT
RMCST1,$BDDAT

ADD

#4,

SUB

#2,(SP)

JSR

(SP)

#15,3(sp)
PC.A(SP)+

30§

:WAS THERE A PARITY ERROR??
INO!!
:EXPECTED STATUS
;RECEIVED STATUS

‘MOVE

SP TO USER'S ERROR

‘WRITE ERROR NUMBER

CALL

:MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN

OO0 ==00~=00000000
OO =OW—=O =H =OWOW
O
MNIN = PONINONNI
N = N — N
S NNNONNNNNNONSN
NN = NO
N = NN N NN NN
VOO
NO O NNN =NV

WO
N

sREPORT ANY CONTROL BUS PARITY ERROR WHILE WRITTING REMOTE REGISTERS,

OOOOONNNJNNNNNN
— s et OO
~NO O~
osrON SR%
NSO
S SSRGS

F )

NOWVMS
W =OVO~NO

DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

;THIS SUBROUTINE VERIFIES THE RESULTS OF ALL DATA TRANSFER COMMANDS
;USING STATUS STORED IN THE GET BUFFER AND TEST PARAMETERS
;STORED IN THE PUT BUFFER. ERRORS ARE REPORTED BY WRITING

VWA
S S

SEQ 0214

000010

001350

000010

:1.E., PAR = 1 AND DPE = 0
BIT

ss:n,anea11

::3§|THERE A PARITY ERROR??

001376

BIT

001350
000010
001350
000004
000050
001000

001140
001140
001142

MOV
BIC

#DPE ,RMER2]
20%
RMER1I,$GDDAT
#PAR, SGDDAT

:DATA PARITY ERROR ?
JYES!!

000000
001344

move

#4,

#50.3(sP)

*MOVE SP TO USER'S ERROR
*WRITE ERROR NUMBER
:eéglgxr GET SET??

000274
000002

000000

MOVB
SUB
JSR

#274.3(SP)
#2,(5P)
PC,a(SP)+

MOV
BIT

158:

RMERT1,$BDDAT
(SP)

fggr.nnc521

30§

:EXPECTED STATUS

;RECEIVED STATUS

: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

MACRO v03.01 11-APR=-80 13:17:48 PAGE 35-1
DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

SEQ 0215

sMECHANICAL POSITIONING
;FIRST TEST MXF WHICH WOULD INDICATE COMPOSITE ERROR SET WHEN FUNCTION
O==OO00000
OO =0 = —=0OW

SO
=N
NNNNNNNSN
WN = N = NN
W
OO NNNWNN

: CODE AND GO BIT WERE LOADED

001000

001344

001344
001000
001344
000004
000275
000002

001140
001140
001142

208

BIT
BEQ

zg;r.ancszx

::s§.’nxsseo TRANSFER'' SET??

BIC

#MXF ,$GDDAT

RMCS21,8GDDAT

:EXPECTED STATUS

ADD
MOVB

#4,

MOV
MOV

000000
30%:

SuB
JSR

RMCS21,$BDDAT
(SP)

#275,3(5P)
#2,(SP)

PC.A(SP)+

;RECEIVED STATUS

:MOVE SP TO USER'S ERROR CALL

:WRITE ERROR NUMBER

:MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN

;RESTORE SP TO NO ERROR RETURN AND BYPASS FURHTER STATUS CHECKING
#10, (SP)
suB
:MOVE SP TO NO ERROR
JMP
380 $
:SKIP T0 END OF SUB

000010
056170
78 053102

40$:
;REPORT AN ERROR IF

''OP1'' ERROR OCCURRED DUE TO ‘MOL'' = 0,

G
[
S
JPNIE PR S
i
P

= =O
orSsMNSSOONON

e
il
el
—ld
—

——

o Nfigov‘ub SN
) —
)
)
)
)

020000

001350

001350
020000
001350
010000

001140
001140
001142
001346

000100

001346

000004
000276
000002

oSN

(v VAWV
WAV
W NN N N N N N

-t et et = OO OO0OOOOOO0 VO
S W= OOVRNOWVNSWN-20O0 oo~

[+ ]
]

(=1=] [=lelelelelelelelelelelelel]

NN N NN NN

;AND ''MOL"" ARE SET, BUT "'wv'' IS RESET, INDICATING AN INTERMITTENT

000000

;''MOL’

MOV

BIC

MOV

45%:

000010
50%:

000004
000277
000002

000000

60%:

032737
001432

010000

0 53240

013737

001376

BIT
BEQ
BIT
BNE
ADD

MOVB
SUB
JSR
SuB

#OP1,RMER1]

;1S "'OPI'* SET??

#OP1,SGDDAT
RMERT1,$BDDAT

;RECEIVED STATUS

45%

SYES!!

60$
RMER11,$GDDAT

#MOL ,RMDS ]

#VV,RMDS]

50%

¥4,

(SP)

#276,3(SP)

INO!!
:EXPECTED STATUS
:WAS MEDIUM OFF

LINE??

*WAS "MOL'' INTERMITTENT??

JNO!!

:MOVE SP TO USER'S ERROR CALL

:WRITE ERROR NUMBER IN CALL

#2,(SP)

*MOVE SP TO RETURN If ERROR

gag.(sp)

:RESTORE SP TO NO ERROR

PC.a(SP)+

:REPORT ERROR AND RETURN

;REPORT "'OPI'' ERROR, WHICH IS DUE TO ''ON CYLINDER'' NOT DROPPING OR
:"RUN'" TIMEOUT (20 MS) OR SEARCH TIMEOUT (50 MS)

000010

053230
053236

BIT
BEQ

"'OPI"

001376

001140

ADD
MOVB
SuB
JSR
SuB
NOP

#4,(SP)

;MOVE SP TO USER'S ERROR CALL

#2,(SP)
:gbatgggo

:MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN

#277.,3(5P)

:WRITE ERROR NUMBER IN CALL
sRESTORE SP TO NO ERROR

;LOOK FOR ‘'IvC" ERROR DURING COMMAND INITIATION
;6¥C.RHER2l
:UA§|YHERE AN "'IVC'" ERROR??
BIT
BEQ

sNO!!

;REPORT "'Iv('' ERROR DUE TO ''vv'* = 0, OR REPORT ERRONEOUS '‘IVC'' ERROR
MOV

RMER2I,$GDDAT

;EXPECTED STATUS

" CZRMNAO RMOS/3/2 FCTNL TST 2

CZRMNAO RMO5/3/2 FCTNL TST 2

MACRO v03.01

- DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

115 053246

116 053254
117 053262

118 053266
119 053274
120 053302
121 053304
122 053312
123 053316
1264 053320
125 053324

126
127

128 053324
129 053332
130
131 053334

132 053342
133 053344

136 053352

135 053360
136 053366
137 053372
138 053400
139 053404
140 053406
141 053412
1642 053414
143

144

04%737

013737
062716

112776
032737
001403
112776
162716
004736
162716

001140

RMERS],$BDDAT

;RECEIVED STATUS

000300
000100

000000
001346

#300,3(sP)

‘WRITE ERROR NUMBER IN CALL

000301
000002

000000

65%
#301,3(SP)

:NO!!
:CHANGE ERROR NUMBER

000010

001350

032737
001424
013737
042737
013737
062716
112776
162716
004736
162716
000240

000002

001350

158
159 053474
160 053502
161 053506
162 053512
163 053520
164 053526
165 053532
166 053540
167 053544
168 053546
169 053552
};? 053554

032737
001424
013737
042737
013737
062716
112776
162716
004736
162716
000240

001350

000002

001350
000004
000302
000002

#4,

001140

65%:

MOV

BIC

MOv
ADD
MOovB

000000

000010
808:

001350
000001
001350
000004
000303
000002

001140
001140
001142
000000

000010

#0, (sP)

SP TO USER'S ERROR

*WAS VOLUME VALID??

*MOVE SP TO RETURN IF ERROR
*REPORT "'IVC'' ERROR AND RETURN

*RESTORE SP TO NO ERROR

FILR!ILF!RMR, RMER1]
BIT
100$
:NO ERRORS DETECTED
BEQ
;REPORT AN ERROR IF "ILR'' IS SET
#ILR,RMER1]
;WAS "'ILR"' DETECTED??
BIT
BEQ
808
INO!!

001142

001350

suB

#2,(SP)
PC.a(SP)+

:MOVE

;SEE IF

001140

000001

(SP)

#VV,RMDSI

708:

000007

032737
001424
013737
042737
013737
062716
112776
162716
004736
162716
000240

#1VC, SGDDAT

SEQ 0216

001142

001376
000004

032737
001510

145 053414
146 053422
147 053426
1648 053432
1649 053440
150 053446
151 053452
152 053460
153 053464
1564 053466
155 053472

}gg 053474

010000

K
.1
11-APR-80 13:17:48 PAGE 35-2

suB
JSR
SuB
NOP

RMER11,8GDDAT
#ILR,$GDDAT

:EXPECTED STATUS

RMERT1,$BDDAT

;RECEIVED STATUS

#302,a(sP)

:WRITE ERROR NUMBER IN CALL

910, (sP)

*RESTORE SP TO NO ERROR

¥,

(SP)

#2,(SP)
PC.(SP)+

:MOVE SP TO USER'S ERROR CALL

:MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN

sREPORT AN ERROR IF "ILF" IS SET
#ILF,RMER1]
;WAS “ILF'' DETECTED??
BIT
90$
INO!!
BEQ
MOV
RMER11,$GDDAT
;EXPECTED STATUS
#ILF,SGDDAT
BIC
MOV
RMERTI,$BODAT
;RECEIVED STATUS
ADD
¥4, (SP)
:MOVE SP TO USER'S ERROR CALL
MOvB
#303,3(sP)
*WRITE ERROR NUMBER IN CALL
#2,(SP)
*MOVE SP TO RETURN IF ERROR
SuB
PC.a(SP)+
*REPORT ERORR AND RETURN
JSR
#10, (5P)
*RESTORE SP T0O NO ERROR
SuB
NOP

908:
0000064

001350

001350
000004
001350
000004
000304
000002

001140
001140
001142

sREPORT AN ERROR IF ""RMR'' 1S SET

BIC

#RMR ,RMER1]
100%
RMER11,$GDDAT
#RMR ,SGDDAT

:WAS "RMR'* DETECTED??
JNO!!
:EXPECTED STATUS

ADD

¥4,

*MOVE SP TO USER'S ERROR CALL

BIT
BEQ

MOV

000000

MOovB
sus
JSR

000010

SuB

1008 :

NOP

RMERT1,$BODAT

;RECEIVED STATUS

#304,3(sP)

:WRITE ERROR NUMBER IN CALL

(SP)

#2,(SP)

PC a(SP)+

#10, (sP)

:MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN

*RESTORE SP 10 NO ERROR

;DETERMINE WHETHER OR NOT "'IAE'' SHOULD BE SET AND CHECK FOR ERROR

)

MACRO v03.01 11-APR-80 13:17:48 PAG% 3;-3

172
173
174
175

053556
053562
053570
053576

012737
052737
023727
101025

002000
040000
001444

001140
056216
001466

042737

040000

056216

178 053606

123737

001417

001333

176 053600
129 053614

181
182
183
184
185
186
187

101016

053616
053624
053626
053634
053636
053644
053646

123727
101410
032737
001406
123727
101002
005037

001140

189 053652

013737

001350

190 053660
191 053666
192 053674
193 053676
194 053704
195 053706
196 053712
197 053720
198 053724
199 053726

200 053732
201
202
203 053732
204 053740
205 053746
206 053754
207 053762
208 053770
209 053772
210 054000
211 054002
212 054006

213 054014
14 054020

215 056022
216 054026
218 054030
219
220

221 054030
222 054036
223 054040
224 054044
225 054052
226 054056
227 054060
228 054064

042737
023737
001004
042737
000412
062716
112776
162716
004736
162716

013737
042737
013737
042737
032737
001417
032737
001032
062716
112776

162716
004736

162716
000417

001416

001442

001416

000037

001142

175777
001140

001142
001142

040000

056216

000004
000305
000002

000000

#5K1.500%
RMDCO,#822.
1108
#SK1,5008

CMPB

RMDAO+1,LSTRK+1

1058:

CMPB
BLOS
BIT
BEQ
CMPB
BHI
CLR

RMDAO,#29.
105%
#FMT16,RMOFO
1108
RMDAO,#31.
1108
$GDDAT

1108:

MOV

RMER11,$BDDAT

BH]

1158:

BIC
CMP

BNE
BIC
BR

ADD

MOVB
SUB

JSR

000010

1208:

001376
137777
056216
137777
040000

001142
001142
001140
001140
001376

040000
000004
000306

#1AE,$GDDAT

BIS
CMP
BHI
BIC

000035

010000

000002

MOV

SUB

1108

#*C1AE
. SBODAT
$GDDAT
. SBDDAT

1158
#5K1,5008
1208

#4,

(SP)

#305,a(sP)
#2,(SP)

PC.a(SP)+

#10, (sP)

SEQ 0217

;SETUP FOR "'IAE'" = 1
;SETUP FOR ''SKI'' = 1
sGREATER THAN LAST CYLINDER ?
;YES = CYLINDER IS INVALID
;RESET SKI FLAG
;GREATER THAN LAST TRA(CK ?

;YES = TRACK

IS INVALID

;1S SECTOR > 29. ?

:NO

;18 BIT FORMAT ?
;YES = SECTOR_IS INVALID FOR 18 BIT MODE
;1S SECTOR > 31, ?
sYES = SECTOR IS INVALID
;"'IAE'" SHOULD = 0

:GET RECEIVED STATUS

;1S "'IAE'" STATUS 0K??
sNO!!

sJAE OK = SKI SHOULD BE 0
:MOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER
;MOVE SP TO RETURN IF ERROR

+REPORT

ERROR AND RETURN

;MOVE SP TO NO ERROR

;REPORT AN ERROR IF ''SK1'' IS SET AND ''IAE'' STATUS WAS OK
MOV
RMER21, SBDDAT
;RECEIVED STATUS

056216

BIC
MOV
BIC
BIT
BEQ
BIT

#*CSK1.SBODAT
5008, $GDDAT
#*CSK1,$GDDAT
#SK1,RMER2]
1408
#SK1,5008

000000

Mmove

ADD

#4,

SUB

#2,(SP)

SUB

#10, (SP)

BNE

JSR

000010

1508

(SP)

#306,a(sP)

PC.A(SP)+

150%

;EXPECTED STATUS
::8§‘”SKI" SET??

;WAS SK1 CAUSED BY IAE = 0??
;YES = DON'T REPORT SKI
:MOVE SP TC USERS ERROR CALL
sWRITE ERROR NUMBER
:MOVE SP TO RETURN éF ERROR
sREPORT ERROR AND RETURN
:MOVE SP TO NO ERROR

1408:

032737
001413
062716
112776
162716
004736
162716
000240

040000

056216

000004
000307
000002

000000

000010

;REPORT AN ERROR IF SKI = 0 AND IAE WAS NOT DETECTED
BIT
#5k1,500%
;389?LD SKI BE SET??
BEQ
1508
ADD
#4, (SP)
:MOVE SP TO USER'S ERROR CALL
Mmove
#307.a(sP)
;WRITE ERROR NUMBER IN CALL
SUB
#2,(5P)
+MOVE SP TO RETURN IF ERROR
JSR

SUB

NOP

PC a(SP)+

00, (sP)

sREPORT ERROR AND RETURN

sRESTORE SP TO NO ERROR

Fan T

CZRMNAO RMO5/3/2 FCTNL TST 2

DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

- CZRMNAO RMO5/3/2 FCTNL TST 2

MACRO v03.01 11-APR-80 13:17:48 PAGE 35-4

DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

ggg 054066

1508 :
032737
001512

006200

001376

032737
001424
013737
042737

000200

001376

001140

;LOOK FOR "'LSC'* OR "'LBC'' OR ''DVC"' IN ERROR REGISTER #?
BIT
#LSC'LBC!'DVC,RMER2]
BEQ
1808
:NO ERRORS SET

|
5

235
236 054076
237 054104
238 054106

240 054122

013737

001376

001142

MOV

RMERS],$BODAT

:RECEIVED STATUS

&2 054134

112776

000310

000000

MOVB

asio,a(sp)

sWRITE ERROR NUMBER IN CALL

162716

000010

00, (sP)

*RESTORE SP TO NO ERROR

239 054114

241 054130

63
244

062716

054142
05414

162716
004736

246 054154
gzg 054156

000240

245 056150

;

249

|
;
|

251 054164
252 054166
253 054174

001430
032737
001424

255 054206

042737

;

250 054156

256 054176

256 056212

013737

062716
112776
162716
004736

262 056244
%gz 054246

000240

265
266 054246

162716

272 054306

273 054312

274 054314

002000

001376

010000

001346

001376

002000

001376

000004
000311
000002

275 054320 000240

278
279 osasgs
280 054330
281
282 054332
283 054340
284 054342
285 054350

#LBC,$GDDAT

SUB

NOP

"DVC"
= 1
;18 "DVC'
= 122
INO!!
;EXPECTED STATUS

:MOVE SP TO USERS ERROR

JMOVE SP TO RETURN IF ERROR
sREPORT ERROR AND RETURN

I.E.; "LBC'" =1, IF '"MOL" = 1

RMER21,$GDDAT

RMER21,$BDDAT

#6,(SP)
#311,3(SP)
#2,(SP)
PC,a(SP)+

016.(SP)

;1S LBC SET??

*NO!!
;WAS LBC ERROR BY MOL = 0
TYES!!

;EXPECTED STATUS

:RECEIVED STATUS

:MOVE SP TO USER'S ERROR CALL
JWRITE ERROR NUMBER IN CALL
sMOVE SP TO RETURN IF ERROR
JREPORT ERROR AND RETURN

JRESTORE SP TO NO ERROR

sREPORT LOS OF SYSTEM CLOCK, I.E., "'LSC' =1
BIT
#LSC,RMER2]
(IS "Lsct = 172

BEQ

001142

:NO!!

RMER21,$GDDAT
#LSC,SGLDAT

:EXPECTED STATUS

ADD

#4,(SP)

JMOVE SP TO USER'S ERROR CALL

RMERZ1,BDODAT

;RECEIVED STATUS

Move

#312.a(sp)

‘WRITE ERROR NUMBER

SUB

016.(SP)

JSR

000010

180%

MOV
BIC

MOV

000000

5;; 054322

#LBC,RMERZ]

BIC

ADD
MOVB
SUB
JSR
1708:

000312

¥#2,(SP)
PL,a(SP)+

1708
#MOL ,RMDS
1708

MOV

000000

000004

#5, (SP)

BEQ
BIT
BEQ

MOV

001142

062716

!8*716

BIT

000010

001376

NOP

#DVC,SGDDAT

sREPORT LOSS OF BIT CLOCK,

001140

007140
001140

009736

SUB
SR

001140

001376
004000

112776

ADD

1608 :

013737
042737

013737

271 054300

BIC

SUB

001376

270 056272

000002

004000

001422

268 056256
269 054264

000004

001140

032737

267 054254

;
|

013737

257 054220
258 0564224
259 054232
260 054236

261 054240

032737

000200

;REPORT ANY DEVICE FAULT, I.E.,
BIT
#DVC ,RMER2]
BEQ
1608
MOV
RMER21,$GDDAT

PC,a(SP)+

JREPORT ERROR AND RETURN

sRESTORE SP TO NO ERROR

1808 :

032737
001527

054000

001350

032737
001427
032737
001023

040000

001350

000200

001376

;LOOK FOR "'UNS'' OR 'DTE'' OR ''WLE'' IN ERROR REGISTER M
BIT
#UNS 'DTE 'WLE ,RMER1]
BEQ
2208
:NO BITS SET
;REPORT "UNS'' ERROR IF ''DVC" = 0
=
BIT
#UNS ,RMER1]
;1S "UNS'' SET??
BEQ
1908
NOtY
g
BIT
#DVC,RMER2]
*WAS "UNS'' CAUSED BY ''DV(C''??
BNE
1908
TYES!!
g

231
232 054066
ggz 054074

SEQ 0218

CZRMNAQ RMOS/3/2 FCTNL TST 2

MACRO v03.01 11-APR-80 13:17:48 PAGE 35-5

' DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

286 054352
287 054360

013737
062737

001350
040000

001140
001140

MOV
BIC

RMER11,8GDDAT
#UNS ,SGDDAT

SEQ 0219

;EXPECTED STATUS

288 054366

013737

001350

001142

MOV

RMERT1,$BDDAT

:RECEIVED STATUS

290 056400

112776

000313

000000

move

#313.a(sp)

‘WRITE ERROR NUMBER

10, (sP)

*RESTORE SP TO NO ERROR

289 054376

291 054406
292 054412

293 054414

ggg 054420

062716

162716
004736

162716

296
297 054420
298 054426

032737
001423

301 054446

013737

303 054456

112776

299 054430
300 054436
302 054452
304 056466

305 054470

306 054472

ggg 054476
309
310
311 054476
312 054504

001350
010000

001140
001140

062716

000004

162716

004736

162716

032737
001441

062716

318 054542
319 054550
320 054552
321 054560
322 054562
323 054570
324 054576
325 054602

032737
001404
032737
001406
112776
042737
162716
004736

052737

112776

162716

001350
000314

000002

333 054620
334 054622

335 054626
;gg 054632
338
339

3,0 054636
341 054644

342 054652

SUB

;EXPECTED STATUS

ADD

#4, (SP)

:MOVE SP TO USER'S ERROR CALL

SUB

JSR

2008 :

001350
001350

001142
001140

SUB

;RECEIVED STATUS

#314,a(sP)

‘WRITE ERROR NUMBER IN CALL

#2,(SP)

PC,a(SP)+

#10, (5P)

:MOVE SP TO RETURN IF ERROR

JREPORT ERROR AND RETURN

:MOVE SP TO NO ERROR

MOV
MOV

RMER11,$BDDAT
RMER11,$GDDAT

:RECEIVED STATUS
:EXPECTED STATUS

ADD

;MOVE

BIT
BEQ
BIT
BEQ
MOVEB
BIC
SUB
JSR

#URL ,RMDS]
2058
#BIT3,RMCS10
2108
#316.3(SP)
#ULE
. SGDDAT
#2,(SP)
PC.a(SP)+

BIS

000315

000000

MOVB

000010

001410

000316
004000
000002

000000
001140

004000

RMERT1,$BODAT

;REPORT AN ERROR IF WRITE LOCK ERROR IS SET.
SEE IF DRIVE IS NOT
JWRITE PROTECTED, OR IF FUNCTION WAS NOT A WRITE
BIT
#WLE ,RMER1]
;WAS "MWLE'' SET??
BEQ
2208
INO!!

001140

000004

:MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN

RMER11,$GDDAT
#DTE,SGDDAT

MOVB

001350

#2,(SP)
PC.a(SP)+

:MOVE SP TO USERS ERROR CALL

MOV
BIC

000000

004000

#4, (SP)

;REPORT ANY DRIVE TIMING ERROR, I.E., 'DTE'
= 1
BIT
#DTE ,RMERT]
;1S DTE SET?2?
BEQ
2008
INO!!

MOV

001346

205$:
210%:

000010

SUB

ggg 054610
331 054610
332 054614

SUB
JSR

001142

000010

004000

ADD

1908 :

013737
042737

317 254530

ggg 0546064

000010
001350

013737
013737

317 054534

000002

010000

§‘5 054506
i% 054514

315 054522

000004

#WLE ,SGDDAT
(SP)

#315,3(SP)

00, (sP)

SP TO USERS ERROR CALL

‘WRITE ERROR NUMBER IN CALL

:WAS DRIVE WRITE PROTECTED??
INO!!
'
:WAS COMMAND A WRITE??
TYES!!
:CHANGE ERROR NUMBER
JMOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN

*MOVE SP TO NO ERROR

2208 :
062716
105776

001404
162716

000137

162716

013737
062737

022737

;OMIT DATA ERROR CHECKS IF ANY PRZ.10US ERRORS WAVE BEEN DETECTED

000004
000000

ADD
1STB

000004

055630
000004

001410
177700

000063

225%:

056220
056220

056220

BEQ
SUB

#4,(SP)
@(SP)
225%
95 (SP)

i#4VE SP T0 USER'S ERROR
‘wAS ERROR DETECTED??
‘NO - DO DATA CHECKS
"RESTORE SP

SUB

¥, (SP)

*RESTORE SP

JMP

3408

SSKIP DATA CHECKS

:CHECK HEADER ERRORS IF FUNCTION WAS NOT WRITE HEADER AND DATA, AND
:1F HEADER COMPARE 1S NOT INWIBITED
:

MOV
BIC

CMP

RMCS10,5108
#*CFNCMSK,5108

#uH'GO,5108

:STRIP AND STORE FUNCTION CODE

:WAS FUNCTION WRITE HEADER & DATA??

—

[

| CZRMNAD RMO5/3/2 FCTNL TST 2

MACRO v03.01 11-APR-80 13:17:48 PAG% 3%-6

. DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

3 054660

22«

isb
7

00151

BEQ

001106

BNE

03273; 002000 001366

3.8
ggg

032737
001533

000620

001350

351
ssg
gs
54

032737
001422
013737

000400

001350

001140

356
357

013737
062716

001350
000004

001142

162716
004736

000002

355

358
359
360

361

332%
364
365 0
366 054766

062737
112776

367 054766
368 054776
369 055002

71 055014
372 055022
373 055026

112776
162716
004736

g;z 0

;
|

g?O 055010

374 055030

377

000317

901140

062716

001350

001350
000020
001350

001140
001140
001142

000320
000002

000000

000004

000200

001350

001350
000200

001140
001140

383 05

062716

000004

384 05

385 05
386 05

387 05

388

389
390

013737

112776

162716
004736

001350

000321

000002

001350

393 055116

013737

001350

001140

062716

000004

396 055140

397 055146

398 055152
399 055156

042737
013737

112776

162716
004736

#HCRC,SGDDAT

RMER1],$BDDAT
9, (SP)

JRECEIVED STATUS
:MOVE SP TO ULLRS ERROR

SUB
JSR

#2,(SP)
PC,a(SP)+

JMOVE SP TO RETURN I1F ERROR
JREPORT ERROR AND RETURN

#317,a(sP)

‘WRITE ERROR NUMBER

2608

MOV
BIC
MOV

RMER1] ,SGDDAT
#FER,SGDDAT
RMERT1,$BDDAT

MOVB
suB

#320,3(SP)
#2,(SP)

2608

ADD

#HCE ,RMERT]
2708
RMER11,SGDDAT
#HCE ,SGDDAT

ADD

#6,(SP)

MOVB
SuUB
JSR

;RECEIVED STATUS

;MOVE SP TO USERS ERROR

:WRITE ERROR NUMBER
;MOVE SP TO RETURN If ERROR
;REPORT ERROR AND RETURN

PC,a(SP)+

BIT
BEQ
MOV
BIC

MOV

:WAS "'FER'' SET??
INO!!
JEXPECTED STATUS

#4,(SP)

JREPORT HEADER COMPARE ERROR

000620

go« 05512¢
95 055132

#HCRC'FER'HCE ,RMERT]
2708
:NO ERRORS SET

SET

:WAS "'HCE'' SET??
INO!!
:EXPECTED STATUS

RNER‘I.SBDDAT

JRECEIVED STATUS

#341,3(SP)

‘WRITE ERROR NUMBER

#2,(SP)
PC,a(SP)+

2608

JMOVE SP TO USER'S ERROR
JMOVE SP TO RETURN IF ERROR
JREPORT ERROR AND RETURN

:THERE SHOULD BE NO WEADER ERRORS BECAUSE

032737
001425

:YES = SKIP HMEADER CMECKS

JREPORT FORMAT ERROR IF SET
BIT
#FER,RMERT]
BEQ
2408

000000

000425

2508

MOV
ADD

Mmove

001142

got 055106
92 055114

BIC

2408:

032737
001453
013737
062737

;YES = SKIP HEADER CHECKS

‘WAS HCI SET??

;REPORT MEADER CRC ERROR IF SET
BIT
#HCRC,RMERT]
;WAS HCRC SET??
BEQ
2308
INO! !
MOV
RMER11,$GDODAT
;EXPECTED STATUS

JSR

000453

378 05
379 05
380 05
381 05

382 05

BIT
BEQ

2308:
000020

2508

#HC1,RMOF 1

;SEE IF ANY HEADER ERRORS ARE SET, I.E., "FER"
OR "MCRC' OR "MCE"

000000

000501

032737
001422
013737
042737
013737

;

000400

BIT

000620
001350

000322

000002

001140
001142

000000

;
.

2508:

.COMMAND WAS WRITE HEADER AND DATA, OR
.HEADER COMPARE INMIBIT WAS SET

BIT

#HCE 'FER'HCRC,RMERT]

MOV

RMER11,8GDDAT

BEQ
BIC
MOV

ADD

MOVB
SuUB
JSE

2708

:NO ERRORS WERE SET

JEXPECTED STATUS

#HCE 'FER'HCRC,$GDDAT
RMER1] ,$BDDAT
JRECEIVED STATUS

96, (SP)

:MOVE SP TO USER'S ERROR CALL

#2,(SP)
PC,a8(SP)+

JMOVE SP TO RETURN IF ERROR
JREPORT ERROR AND RETURN

#382.3(SP)

‘WRITE ERROR NUMBER

SEQ 0220

CIRMNAD RMO5/3/2 FCTINL TST 2

MACRO v03.01 11-APR-80 13:17:48 PAGE¢ 3i-7

DATA TRANSFER COMMAND STATUS CMECK SUBROUTINE

400 055160

281 055164

28% 055170
405
406
407
<08
409
2}?

055170

055176

055200
055204

612
413 055204
414 055212
415 055214
416 055222

162719

000137

000010

000137

055416

032737

100000

001350

001350
100000

001140
001140

001450
013737
062737

013737

001350

419 055262

112776

000323

420 055250
421 055256
422 055260
423 055266
424 055274
425
426 055276
427 055304
428 055306

429 055312
430 055314
431 055322
432 055326

:gz 055330

2708:

032737

001002

417 055230

618 055236

2608:

055630

062716

032737
001021
112776
032737
001007
032737
001406

000004

001366

000324
000100

000000
001350

000020

056220

000004

112776
162716
004736

000325
000002

162716

000000

000010

032737
001423
013737

000400

001344

001140

442 055360
443 055366

013737
062716

001344
000004

001142

445 055400
446 055404

162716
004736

000002

464 055372

447 055406
223 055412

042737

112776

162716
000137

000400

000326

001140

BEQ
MOV
BIC

2908
RMER11,$GDDAT
#DCK, SGODAT

ADD

04, (SP)

MOV

MOVB

RMERTI,$BDDAT

;DsTA CHECK ERROR??
sNO!!

;EXPECTED STATUS

#323,3(SP)

;RECEIVED STATUS
;MOVE SP TO USER'S ERROR
;WRITE ERROR NUMBER
;ugg'gcc CORRECTION DISABLED??

010, (5P)

sRESTORE SP TO NO ERROR

BIT
#ECI.RMOF]
BNE
2808
4.4
MOVB
#324,3(SP)
*CHANGE TO RECOVERABLE ERROR
BIT
#ECH.RMER1]
;13 ERROR RECOVERABLE??
BNE
2768
:NO
!!
;DO NOT REPORT RECOVERABLE ERROR IF READ COMMAND
BIT
#8114,5108
:USS'!HIS A READ COMMAND ??
BEQ
2808
sNO
!!
SUB
9, (SP)
;RESTORE SP
BR
2908
sSKIP ERROR = DATA WILL BE CORRECTED
276%:
MOVB
#325.3(SP)
s CHANGE TO NON RECOVERABLE
2808:
SUB
#2,(5P)
;MOVE SP TO RETURN IF ERROR
JSR
PC,a(SP)+
sREPORT ERROR AND RETURN

JREPORT DATA BUS PARITY ERROR IF SET, 1.E., MDPE = 1
BIT
#MDPE ,RMCS2]
:PS?{'V ERROR SET??
BEQ
3008
:NO!!
MOV
RMCS21,SGDDAT
SEXPECTED STATUS

000010
055630

BIC

IHDPE.‘GDDAI

MOVB

#326.3(SP)

MOV
ADD

000000

SUB
JSR

3008:

:gg 055416

SUB
JMP

RMCS21,$BDDAT
#6,(SP)
#2,(5P)
PC,a(SP)+

00, (sp)
340§

;RECEIVED STATUS
sMOVE SP TO USER'S ERROR
sWRITE ERROR NUMBER

sMOVE SP TO RETURN IF ERROR
;REPORT ERROR AND RETURN
+MOVE SP TO NO ERROR
;SKIP WRITE STATUS CHECK

3108:

452
453 055416

032737

000001

001346

455 055426
456 055434

013737
062737

001346
000001

001140
001140

454 055426

;MOVE SP TO NO ERROR
;OMIT FURTHER DATA (HECKS

2908:

436
437
438 055334
439 055342
440 055344

461 055352

340§

JREPORT DATA CHECK IF SET
BIT
#OCK,RMERT]

SUB

435 055334

010, (SP)

;1F COMMAND WAS A WRITE COMMAND, GO DO WRITE ERROR CHECKS, OTHERWISE
;00 READ ERROR CHECKS
BIT
#B113,5108
;:3§.TMIS A WRITE COMMAND?
BNE
75%
JMP
108
DO WRITE STATUS CHECK
160
2758

001142

004000

162716

000410

056220

SUB

JMP

SEQ 0221

001423

JTEST TO SEE THAT OFFSET MODE WAS RESET. REPORT ERROR IF
BIT
#OM,RMDS|
1
:&3 OFFSET ON??

BEQ

MOV
BIC

3208

RMDS],$GDDAT
#OM,SGDDAT

‘EXPECTED STATUS

"'OM" =

OO NNNWN

SNNNNNNNNESN
- N b N = NN NN N

-t
N s NN

oo NwN

— N = N = NN NN N
OO NNNWwWN

000010

320%:

000010

001376

001140
001140
001142

000002

001350

001350
000040
001350
000004
000331
000002

001140
001140
001142

001344

001140
001140
001142

001344
000004
000332
000002

;REPORT ERROR AND RETURN
:MOVE SP TO NO ERROR

#DPE ,RMER2]

BIC

#DPE ,SGDDAT

3308

RMER21,$GDDAT

RMERS],$BODAT

96,

(SP)

#3%0,3(5P)

#2,(SP)
PC.a(SP)+

SuB
JSR
SuB

00, (sP)

:DA?’ PARITY ERROR??
sNO!!

;EXPECTED STATUS

JRECEIVED STATUS
;MOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER
:MOVE SP TO RETURN IF ERROR
;REPORT ERROR AND RETURN
sMOVE SP TO NO ERROR

#WCF ,S$GDDAT
RMERT],$BDDAT

BIC

MOV
ADD
MOvVB
SUB
JSR

¥,

(SP)

0381, a(sp)

SP TO USERS ERROR CALL

#2,(SP)

sWRITE ERROR NUMBER
;MOVE SP TO RETURN IF ERROR

910, (SP)

sMOVE SP TG NO ERROR

PC.a(SP)+

SuB

;RECEIVED STATUS

;MOVE

;REPORT ERROR AND RETURN

;REPORT 'DATA LA TE'' ERROR_IF "'DLT'" = 1
#DLT,RMCS21
BIT
;1S "DLT'
3508

BEQ

MOv

RMCS21,8GDDAT

ADD
MOovB

#4,

#DLT,SGDDAT

BIC
MOV

RMCS21, SBDDAT
(SP)

#3582 3(sP)

#2,(SP)

suB
JSR

PC.a(SP)+

00, (SP)

SET??

sNO!!
JEXPECTED STATUS

sRECEIVED STATUS
;MOVE SP TO USERS ERROR CALL
sWRITE ERROR NUMBER
sMOVE SP TO RETURN IF ERROR
sREPORT ERROR AND RETURN
+MOVE SP TO NO ERROR

350%:
;LOOK FOR UNEXPECTED CHANGES IN DRIVE STATUS
MOV
RMDS1,=-(SP)
:STACK DRIVE STATUS

NS SOOO

NN~

KWN
LS
T

sRECEIVED STATUS
sMOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER IN CALL
sMOVE SP TO RETURN IF ERROR

sTEST FOR WRITE CLOCK FAILURE; REPORT ERROR IF "WCF'' = 1
#uCF ,RMER1]
BIT
;1S "WCF'' SET??
BEQ
3408
sNO!!
MOV
RMER11,SGDDAT
;EXPECTED STATUS

000000

000010

BIT
BEQ

MOvVB

:
3408

100000

PC (SP)+

n0, (sP)

MOV
ADD

000000

000010

#357,3(5P)

#2,(5P)

SuB
JSR
SuB

MOV

3308:

000040

RMDSI,$BDDAT
1S P)

;TEST FOR DATA B US PARITY ERROR; REPORT ERROR IF ''DPE'' = 1

000000

000010

100000

MOV
ADD
MOvVB

000000

- NN

-O—-‘OO?OOO

OO =0
=5 —-OW
NS NONONWNWN
=N
NNNNNNNNSN

WDNW
RV]
VAWAWAWDY
(S LV LV LV
VAWALN
VYWAWL

= OO0V
~NO W
WA

000002

001142

#*C<PIP!MOL!vV>,(SP)

BlC
CMP
BEQ

+REPORT
(=l=l=]

NAWAVWVWVAWNWA
AW

480 055560
481 055562
482 055570
483 055576
484 055604
485 (55610
486 055616
487 055622
488 055624
489 055630
490
9
492 055630
493 055636

OO
—
el
LY NIV N

479 055552

001346

SEQ 0222

020000

001346

040000

001376

ERROR

#MOL
VvV, (SP)+

380%

POSIT !0N1N6

;CLEAR DONT CARES

;1S DRIVE STATUS 0K??
1,113

IN PROGRESS AND NO SEEX

INCOMPLETE ERROR,

BIT

#P1P RMDSI

:#g'zle“ SET??

BIT

#S5K],RMER2]

*WAS "'SK1'* ERROR REPORTED??

BEQ

3608

OO
=0 —
LSY ST NT STV S T o)
NNNNNN
X
—_ N
O
ooooror
N

oo
-ag-g-Om
NS PNONININN
N — N

469 0

000

\fll‘l‘l‘tflNN—‘?

467 0

=000

=
OSSO
OSSN S

657 055644
458 05545
459 055454
460 055462
461 055466
662 055470
463 055474

MACRO v03.01 11-APR=-80 13:17:48 PAGg 3%'8

NL TST 2
STATUS CHECK SUBROUTINE

=0
=

CIRMNAD RMO5/3/

DATA TRANSFER C

522 056006
523 056012
526 056014

162716
000240

000002

541
562
563
5464 056102
545 056110
5646 056112
547 056120
5648 056122
549 056130
550 0561
551 056144
552 056150
553 056156
554 056162
555 056164

556 056170
557
558
559 056170
560 056174
561 056200
562 056202
563 056206
ggg 056210

032737
001027
032737
001023
013737
052737
013737
062716
112776
162716
004736
162716

032737
001027
032737
001033
013737
052737
013737
062716
112776
162716
004736
162716

062716
105776
001403
062716
000402
162716

:YES=DONT REPORT PIP

RMDS1,$GDDAT

:EXPECTED STATUS

MOV
ADD
Move

RMDSI,$BODAT

;RECEIVED STATUS

#1383 a(sp)

‘WRITE ERROR NUMBER

Sus
JSR
SuB

000010

3608

MOV

BIC

000000

#P1P,$GDDAT

0, (SP)
#2,(5P)

PC.a(SP)+

n0,sp)

:MOVE SP TO USERS ERROR CALL
:MOVE SP TO RETURN IF ERROR

‘REPORT ERROR AND RETURN

*MOVE SP TO NO ERROR

360%:

525
526

527
528 056014
529 056022
530 056026
531 056032
532 056034
533 056042
534 056050
535 056056
536 056062
537 056070
538 056074
539 056076
5640 056102

BNE

0114
0114
0114
-

001346

—

0010%4
013737
04%73?
013737
062716
112776
162716
004736

[=l=l=]

516 055742
515 055744
516 055752
517 055760
518 055766
519 055772
520 056000
521 056004

SEQ 0223

010000

001346

020000

001350

001346
010000
001346
000004
000334
000002

001140
001140
001142

001346

€10000

001376

001346
000100

001140
001140
001142

000010

000004
000000

;1S MEDIUM ON LINE??

BIT

BNE

#OP1,RMER1]

:WAS OP1

MOV

3708

RMDSI,$GDDAT
#MOL
, $GDDAT
RMDSI,$BODAT
#, (SP)

;RECEIVED STATUS
:MOVE SP TO USER'S ERROR

#2,(SP)

:MOVE SP TO RETURN IF

SuB
JSR
sus

sREPORT ERROR IF
sREPORTED, I.E.,

BIT
BNE

BIT

BNE
MOV
BIS

MOv
ADD
MOvVB

000000

380%:

SuB
JSR
suB

370%

#3%4.,3(5P)

PC.a(SP)+

#10, (sP)

VOLUME IS NOT
Vv = IVC = 0
#VV,RMDS

380§

#1VC,RMER2]

3908

JYES!!

TYES!!

ERROR REPORTED??

:EXPECTED STATUS

:WRITE ERROR NUMBER

ERROR

*REPORT ERROR AND RETURN

:MOVE SP TO NO ERROR

VALID AND ''IVvC'' ERROR WAS NOT

;1S VOLUME

SYES!!

VALID??

*WAS 1VC ERROR REPORTED??

TYES!!

RMDS1,$GODAT
#VV,SGDDAT
RMDSI,$BODAT
#4, (SP)

;RECEIVED STATUS
:MOVE SP TO USERS ERROR CALL

#2,(5P)

:MOVE SP TO RETURN IF

#355,3(sP)
PC.a(SP)+

00, (spP)

:EXPECTED STATUS

:WRITE ERROR NUMBER

ERROR

:REPORT ERROR AND RETURN

:MOVE SP TO NO ERROR

sAUGMENT THE RETURN ADDRESS IF ANY ERROR WAS FOUND
ADD
4,(SP)
;MOVE SP TO ERROR CALL
TST18

BEC

000004
000004

#MOL ,RMDS

MOV
ADD
MOvVB

3708:

000100

BIT
BNE

BIS

000000

000010

000002

;REPORT ERROR IF MEDIUM IS NOT ON LINE AND OP]l ERROR WAS NOT
;REPORTED, I.E., MOL = OP] = 0

ADD

390%:

BR
suB

22? 056214

000207

4008%:

RTS

568 056216
569 056220
570

000000
000000

500%:
510%:

.WORD
.WORD

a{sP)
3908
:86£SP)

:ANY ERROR??
:NO!!
:YES = MOVE SP TO ERROR RETURN

¥4, (SP)

;MOVE

;RETURN TO USER

SP TO NO ERROR RETURN

sERROR FLAGS

: TEMPORARY

STORAGE

MACRO v03.01 11-APR-80 13:17:48 PAGEE 3%-9

- CZRMNAO RMO5/3/2 FCTNL 1ST 2
DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

O W I NN —

MACRO v03.01
STATIC DRIVE STATUS CHECK SUBROUTINE

.SBTTL

NN = O O 00

TRU

;

LMOL = 0, INDICATES DRIVE WENT OFFLINE, NOTE

STHAT HOL

;

NN = OO0~

;
;

lS _ASSUMED TO WAVE BEEN SET

= 0, INDICATES THE DRIVE LOST VOLUME VALID

PIP = 1, INDICATES THAT THE DRIVE 1S OFF CYLINDER

.SK1 = 1. INDICATES THE DRIVE HAS AN UNEXPECTED SKI ERROR
.DVC = 1, INDICATES AN UNEXPECTED DEVICE FAULT

;THE SUBROUTINE 1S CALLED AFTER STORING STATUS IN THE GET BUFFER.
;1)

;
;
;
;
;

WV
N

= OV
owne WN —

STATIC DRIVE STATUS CHECK SUBROUTINE

: THE ;OELOUING CONDITIONS ARE TESTED AND REPORTED AS ERRORS

:1F

NN NN NN NN NN PONININOININININU
N b
e e e e d o

SEQ 0224

:THIS SUBROUTINE LOOKS FOR UNEXPECTED CHANGES IN DRIVE
;STATUS, 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 IN STATE.

056222

0
1
1

076

056236
056242
056246
37 056252
38
39
40 056254

0
0

716

000004

716

000004

746
716

001346
147677

41 056262

056264
056272
056274
056302
056310
056316

JSR

BR
NOP
ERROR
JSR
272

PC,STCDRVSTS

273

PC.A(SP)+

RETURN HERE IF NO ERROR
RETURN HERE TO REPOR1 AN ERROR
ERROR NUMBER DEFINED BY SUB
GO BACK TO SUB FOR MORE ERROR CHECKS
RETURN HERE IF NO MORE ERRORS

STCDRVSTS:

056222
056226
056232

42
43
44
45
46
47

11-APR-80 13:17:48 PAGE 36

05
01
06

7
7

; CLEAR usen S ERROR CALL
ADD
", (sp) ;MOVE SP TO USER'S ERROR CALL
CLRB
a(SP)
:CLEAR ERROR NUMBER
SUB
#4, (SP)
:MOVE SP BACK TO NO ERROR RETURN

000000

;SEE IF "MOL" = W' = 1, AND 'PIP" = 0
MOV
BIC
CMP

010100

BEQ

010000

001346

020000

001350

001346

001140
001140
001142

010000
001346

6
6
g

000004
000207
000002

000010

BIT

MOL = 0 AND ''OPI' = 0

#MOL ,RMDS

108
#OP1,RMER1]
108

BIS

#MOL, $GDDAT

;1S MOL ON ??

RMDSI,$GDDAT

SYES!!
‘WAS “'OPI'' SET??
.
SYES-DONT REPORT ‘MOL'' = 0
:EXPECTED STATUS

MOV

RMDS1,$BODAT

;RECEIVED STATUS

move

#207.a(sp)

:WRITE ERROR NUMBER IN CALL

ADD

SUB
JSR

sgg

;REPORT

YES!!

BNE
BIT
BNE

MOV

000000

001346

30%

;REPORT AN ERROR IF

10%:

000100

RMDS1,=(SP)
:PUT DRIVE STATUS ON STACK
#*C<PIP'MOL'VV>,
(SP)
#MOL'VV,(SP)+
;ARE MOL,VV AND PIP 0.K.??

AN ERROR

BIT

BNE

#4,

(SP)

#2,(5P)
PC a(SP)+

VOLUME

20%

SP TO USER'S ERROR CALL

*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

00, (sP)

#VV,RMDSI

:MOVE

:MOVE SP BACK TO NO ERROR RETURN
VALID

IS NOU ZERO AND "IV(C*" = 0

318
°

.NO"

0‘)7

—

- CZRMNAO RMO5/3/2 FCTNL TST 2

' CZRMNAO RMOS/3/2 FCTNL TST 2
NN NN W
NNNSN
5 =N = N =
OO

NNNNNNNNNO~N

58 056354
59 056362
20 056364

O—=O—=—=000000
OO0
=0 —=WN—=0OW
O NI
NINININNIWN
=N

MACRO v03.01
- STATIC DRIVE STATUS CHECK SUBROUTINE

010000

001376

001346

001140
001346
001142

000002

000000

020000

001346

040000

001376

001346
020000
001346
000004
000211
000002

001140
001140
001142

b
i
o
S NN —=O VD~
-

NN NN
—

—_

sSEE IF

40$%:

001376

001376
000200
001376
000004
000212
000002

001140
001140
001142

MOV

RMDS1,$GDDAT

308

BIC

#P1P,$GDDAT

ADD

04, (SP)

RMDSI,$BDDAT

#211,3(SP)
#2,(SP)
PC.a(SP)+

..SK]..

MOV
BIC

BEQ

sREPORT ERROR VIA USER

;MOVE SP BACK TO NO ERROR

SWAS ''SKI" SET2?

:YES=DONT REPORT ‘PIP"* = 1
:EXPECTED STATUS
;RECEIVED STATUS
;MOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER IN USER'S CALL
:MOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER
;MOVE SP TO NO ERROR RETURN

RMER21,
= (SP)
;PUT ERROR REG 2 ON STA(CK
#~C<SKI'DVC>,
(SP)+

608

sBRANCH IF NO ERROR

ADD

#4,

Mmove
SUB

50%:

000000'

Olecti

RMER21,$GDDAT
#DVC, $GDDAT

SUB

001140
001140
001142

MOV
BIC

JSR

001376
040000
001376
000004
000213

010, (sP)

NOP

MOV

000010

001376

sMOVE SP TO RETURN FOR ERROR

¢WRITE ERROR NUMBER IN CALL

JREPORT AN ERROR IF THERE IS A DEVICE FAULT
BIT
#DVC,RMER2]
:zngDEVlCE FAULT??
BEQ
508

000000

040000

;EXPECTED STATUS

#2,(SP)
PC.A(SP)+

#SK1,RMER2]

SUB

000200

JWAS "'IvC'' SET??
;YES=DONT REPORT "'wv'' = 0

;RECEIVED STATUS
;MOVE SP TO USER'S ERROR CALL

BIT

MOVB
SUB
JSR

o
o

NOP

SEQ 0225

RMDS],$BDDAT
9, (SP)

#10, (sP)

MOV

:
308

=t N =

056536
056544
056546
056254

SRIFIRER28E

94
95
96
97

#210,a(sp)

BNE

000000

013746
042726
001460

sREPORT AN ERROR IF DRIVE IS OFF CYLINDER AND ''SKI'' = 0
BIT
#P1P,RMDSI
;IS DRIVE OFF CYLINDER??
BEQ
308

85 056524

056524
056530
056534
056536

move

SUB

000010

88
89
90
91

#1VC,RMER2]
208
RMDS],$GDDAT
#VV,RMDS]

SUB
JSR

20%:

73 056442
74 056444

BIT
BNE
MOV
BIS
MOV
ADD

69 056434
72 056434

11-APR-80 13:17:48 PAGE 36-1

NOP

RMERS],$BDDAT
(SP)

#212,a(sp)
#2,(5P)

PC.a(SP)+

#10, (sP)

JREPORT AN ERROR IF "'SKI'* = 1
BIT
#SK1,RMER2]
BEQ
60%
MOV

RMER21,$GDDAT

MOV

RMERZ], SBDDAT

BIC

ADD

move

#SK1,$GDDAT
06,

(SP)

#213.a(sp)

*EXPECTED STATUS

;RECEIVED STATUS
:MOVE SP TO USER'S CALL
;WRITE NUMBER OF

ERROR

IN CALL

sMOVE SP TO RETURN FOR ERROR
sREPORT ERROR VIA USER
+MOVE SP BACK TO NO ERROR

‘gg.!"fflf A SEEK INCOMPLETE ERROR

*EXPECTED STATUS
;RECEIVED STATUS

+MOVE

SP TO USER'S ERROR CA LL

;WRITE ERROR NUMBER IN USER'S ERROR CALL

~
~

o
o

162716

000002

56676

SuB
JSR

000010

56676

60%:
000004
000000

SuB
NOP

#2,(SP)
PC.a(SP)+

1STB
BEQ

A(5P)
70%

80$

ADD

70%:
80%:

SUB
NOP

RTS

+MOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER
;MOVE SP BACK TO NO ERROR

010, (sP)

AUGMENTAgHE RETURN ADDRESS
¥4, (SP)

000004

11-APR-80 13:17:48 PAGE 36-2

#s,

(SP)

ANY ERROR WAS DETECTED
;MOVE SP TO USER'S ERROR CALL

;WAS
AN ERROR DETECTED??

5??5'- MOVE SP TO USER'S ERROR RETURN

¥4, (SP)

;NO = MOVE SP TO NO ERROR RETURN

;RETURN TO USER

SEQ 0226

-t

co0O0O

56662
56666
56670

=l=lelelelelele]

— D i D il D i il il D il D e e el

MO5/3/2 FCINL TST 2
MACRO Vv03.01
0 IVE STATUS CHECK SUBROUTINE

OOVONOWVINMWN—=OVO~NOW

WNONINNINNINNNIN
= s
s

—

- CIRM

' STOP AND SHUTDOWN SUBROUTINES

MACRO v03.01 11-APR-80 13:17:48 PAGEI 3;

.SBTTL

2
3 056726

STOP AND SHUTDOWN SUBROUTINES

STOP:

e
b
i
e
il
i
)
-

CO~NO
WV
N —

6 056726
056732
056736
056740
7 056740
8
9
10 056742
056746
056752
056754
056754

SEQ 0227

012746

000002

;DROP PRIORITY TO ALLOW CONSOLE INTERRUPT
MOV
#PR3,=(SP)
:sPUT NEW PS ON STACK
MOV
#64%,-(SP)
ssPUT NEW PC ON STACK

000140
056740

64%:

000240

012746
012746
000002

s CONTINUE

1ST
BNE
JMP
TST
BNE
TYPE

sWAS CONTROL C FLAGGED ?
sBR IF YES
s CONTINUE
JANY MONITOR PRESENT ?
;BR IF YES
..TVPE ASCIZ STRING

éigss:

BR
LASCIZ

CTLFG
5%
READY
ans2
10%
,65%

10%:

JMP
JMP

START
$EOP

;G0 TO START
JRETURN CONTROL TO MONITOR

SHUT2:

MOV

#-1,CTLFG

JSET

5%:

005420
032340

012737
000002

177777

001326

INTERRUPT

RTS

.58

007764
000042

000137
000137

CONSOLE

#PR6,-(SP)
#65%,-(SP)

SHUT:

057004

TO INMIBIT

MOV
MOV

001326

104401
000410

;:POP NEW PC AND PS

NOP

;RAISE PRIORITY

000300
056754

000207

005737
001002
000137
005737
001015

RTI

;sPUT NEW PS ON STACK
ssPUT NEW PC ON STACK
;sPOP NEW PC

AND PS

64%
sGET OVER THE ASCIZ
<CRLF><07>/TEST HALTED/<CRLF>

JEXIT

THE CONTROL=C FLAG
FROM

INTERRUPT

-t

" CZRMNAO RM0O5/3/2 FCTNL TST 2

[

CZRMNAO RM0S5/3/2 FCTNL TST 2

' SAVE AND RESTORE RO-RS ROUTINES

MACRO v03.01

11-APR=80 13:17:48 PAGE 38

.SBTTL

SEQ 0228

SAVE AND RESTORE RO-RS5 ROUTINES

.'t"t't.'tt"""'""""'i""t'."'l't'""'.'.l""'t""'

'SAVE RO=RS

s*CALL:
T
SAVREG
-upon RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
-TOP---(016)

v 42===(+18)

i +4===R5

;% +8-=<R3
i*410===R2
i#412-==R1
i#414--=R0

057044
057044

010046

057050
057052
057054
057056
057060
057064
057070
057074
057100

010246
010346
010446
010546
016646
016646
016646
016646
000002

057046

$SAVREG:

010146

MOV

RO,=(SP)

::PUSH RO ON STACK

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTI

R2,=(SP)
R3,-(SP)
R4, =(SP)
RS,=(SP)
22(SP),=(SP)
22(SP) .=(SP)
22(SP) .=(SP)
22(SP).=(SP)

::PUSH
::PUSH
::PUSH
::PUSH
::SAVE
::SAVE
::SAVE
::SAVE

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+.RS
(SP)+.R&
(SP)+.R3
(SP)+.R2

::RESTORE PC OF CALL
::RESTORE PS OF CALL
:RESTORE PC OF MAIN FLOW
::RESTORE PS OF MAIN FLOW
::POP STACK INTO RS
::POP STACK INTO Ré
::POP STACK INTO R3
::POP STACK INTO R2

MOV

000022
000022
000022
000022

R1.,=(SP)

::PUSH R1 ON STACK
R2
R3
R4
RS
PS
PC
PS
PC

ON
ON
ON
ON
OF
OF
OF
OF

STACK
STACK
STACK
STACK
MAIN FLOW
MAIN FLOW
CALL
CALL

:*RESTORE RO-RS

s*CALL:

057102

057102
057106
057112
057116
057122
057124
057126
057130

057132
057136
057136

‘v

012666
012666
012666
012666
012605
012604
012603
012602

000022
000022
000022
000022

012601
012600
000002

$RESREG:

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

MOV
(SP)+.R1
::POP STACK INTO R1
MOV
(SP)+.RO
::POP STACK INTO RO
RTI
BINARY TO ASCI1 AND TYPE ROUTINE

.SBTTL
AR

RESREG

AR AR

'THIS ROUTINE

ARl

R AR

!5 USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-BIT

:*BINARY-ASCI] NUMBER AND TYPE IT,

:'CALL:

057140
057142
057146

010146
016601
000261

000006

MOV

TYPBN

$STYPBN: MOV
MOV
SEC

NUMBER,~=(SP)
R1,-(SP)
6(SP) R

;:NUMBER TO BE TYPED

JsTYPE

22SAVE R1 ON THE STACK
;sGET THE INPUT NUMBER
JsSET *'C'" SO CAN KEEP TRACK OF

THE NUMBER OF BITS

—

~N
Po

112737

o
o

[elelelelelelelelelelele]

-t QONNNOO
OV
NOOCOO S NONNOOO

000060

18:

57212
57212

000002
000

057212

#'0,$BIN

:sSET CHARACTER TO AN ASCII ''0''.

BEQ

* :DONE?

ROL

000

2%:

$BIN:
.SBTTL

MOV
MOV

$BIN
,SBIN

(SP)+,R1
2(SP)
.4 (SP)

::GET THIS BIT

PINO==SET THE CHARACTER EQUAL TO THIS BIT
1260 TYPE THIS BIT

ssCLEAR ''C'' SO CAN KEEP TRACK OF BITS
2260 DO THE NEXT BIT
+sPOP THE STACK INTO R1
:sADJUST THE STACK

MOV
(SP)+,(SP)
RTI
::RETURN TO USER
.BYTE
0,0
;s STORAGE FOR ASCII
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

CHAR. AND TERMINATOR

;:.t'."'l.t'."""""""'"....t".'."..l"t't.'""""t't'

;*THIS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT
;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
;*NUMBER 1S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
:+BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE
:*REPLACED WITH SPACES.

s*CALL:
e
MOV

W
N

W
~
~N

057214

O=O0O0
-0 —-=000000O0
=4 P = L = P P P
——
W
o
o
o
o
o

2703
2723

$TYPDS:

000001

057430
000040

18:

2%:

057420

3s:

s
o0
o
~
o

000001
000060
000040
000010

177777

NUM,
= (SP)

:sPUT _THE BINARY NUMBER ON THE STACK
::60 TO THE ROUTINE

RO,=(SP)
R1,=(SP)

::PUSH RO ON STACK

MOV
MOV
MOV

R2.=(SP)
R3.=(SP)
RS . =(SP)

MOV

20(SP) .RS

#20200,-(SP)

BPL
NEG
MOVB

1%
RS
#'=,1(SP)

MOvB

#' ,(R%)+

MOV

$DTBL(RO),R1

CLR
MOV

CLR

SUB
BLT
INC
BR
ADD
ST

RO
#SDBLK ,R3

R1,RS
48
R2
38

R1,RS

BNE

BM]
ASLB
BCC

7%
(SP)
6%

BIS

#'0,R2

1STB

~o-v-m-cg
OoOWVONNON
W

e
b
OO =2 OO

AN
2 —s 2 s

:Ob& SO
oo

OCOO0O0O0O000O

VAWML

4$:

3
3
2
2
3
0
7

MOV
MOV

MOV

020200
000020
000055

TYPDS

MOVB

(SP)

1(SP),=1(R3)

BIS
MOVB

f .R2
R2,(R3)+

CMP

RO,.#10

(RO)+

::sPUSH R1 ON STACK

::PUSH R2 ON STACK
1iPUSH R3 ON STACK
$:PUSH RS ON STACK

::SET BLANK SWITCH AND SIGN
::GET THE INPUT NUMBER
::BR IF INPUT IS POS.
: ;MAKE

THE BINARY NUMBER POS.

s sMAKE THE ASCI] NUMBER NEG.
;s ZERO THE CONSTANTS INDEX
:sSETUP THE OUTPUT POINTER
:sSET THE FIRST CHARACTER TO A BLANK
:sCLEAR THE BCD NUMBER
;;GET THE CONSTANT

::FORM THIS BCD DIGIT

::BR IF DONE

: - INCREASE THE BCD DIGIT By 1
:sADD BACK THE CONSTANT

:sCHECK IF BCD DIGIT=0
:sFALL THROUGH IF 0
;sSTILL DOING LEADING 0'S?
(:BR IF YES

1IMSD?
;:BR IF NO
::YES==SET THE SI GN
1 iMAKE THE BCD DI GIT AS 4| l
DIG
SIMAKE 1T A SPACE IF NO T _ALREADY A DIGIT
S:PUT THIS CHARAC TER IN THE OUTPUT BUFFER

::JUST INCREMENTING
:sCHECK THE TABLE INDEX

fl-w

MOVE
ADCB
Elge

000004

SEQ 0229

— i~

' BINARY TO ASCI1 AND TYPE ROUTINE

MACRO v03.01 11-APR=80 13:17:48 PAGEK 3%-1

| CZRMNAO RMOS/3/2 FCTNL TST 2

—————————

{
|

————

CZRMNAO RM0O5/3/2 FCTNL TST 2

MACRO v03.01 11-APR-80 13:17:48 PAGEL 3%-2

' CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

057344

002746

|
|
|
'

057346
057350
057352
057354

003002
010502
000764
105726

|
5
|

057360
057366
057370

116663
105013
012605

057374
057376
057400
057402

012602
012601
012600
104401

057356

057372

|
|
|

057406
057414

057416
057420
057422
057424
057426
057430

100003

BLT

8s:
177777

177776

MOVB
CLRB
MOV

98:

MOV
MOV
MOV
TYPE

000004

000002
023420
001750
000144
000012

$DBLK:

1:BR IF NO

(SP)+.R3

::POP STACK INTO R3

RTI
10000.
1000.
100.
10.
.BLKW

STACK INTO R2
STACK INTO R1
STACK INTO RO
TYPE THE NUMBER

$:ADJUST THE STACK
::RETURN TO USER

BINARY TO OCTAL
A

::POP
::POP
::POP
SiNOW

2(SP),4(SP)
(SP)+.(SP)

.SBTTL
AAA A

::YES==SET THE SIGN FOR TYPING
::SET THE TERMINATOR
::POP STACK INTO RS

(SP)+.R2
(SP)+.R1
(SP)+.RO
$DBLK

MOV
MOV
$DTBL:

1:60
TO EXIT
P:GET THE LSD
1260 CHANGE TO ASCII
::WAS THE LSD THE FIRST NON=-ZERO?

=1(SP),=2(R3)
(R3)
(SP)+,RS

MOV

057430
000002

::60 DO THE NEXT DIGIT

8s
RS,R2
6%
(SP)+

BPL

012603

016666
012616

BGT
MOV
BR
TSTB

SEQ 0230

(ASCII)

AND TYPE

:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
s*OCTAL (ASCII) NUMBER AND TYPE IT.

;*$TYPOS===ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

s«CALL:

ot
]

MOV
TYPOS

NUM,=(SP)

o
i
:®

BYTE

.BYTE

s sNUMBER TO BE TYPED
ssCALL FOR TYPEOUT

2iN=1

T0 6 FOR NUMBER OF

DIGITS TO TYPE

sisM=1 OR 0
;:1=TYPE LEADING ZEROS
2 :0=SUPPRESS LEADING ZEROS

;*$TYPOS OR $TYPOC

s*CALL:
2
MOV

TYPON

NUM,=(SP)

s sNUMBER TO BE

TYPED

ssCALL FOR TYPEOUT

:':1YPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER
s

;

;
|

057440
057444

017646
116637

000000
000001

;
,
|
;
|

057456
057462
057464
057472
057500

062716
000406
112737
112737
112737

000002

]

057452

057506

057510

112637

010346
010446

057665

000001
000006
000005

*CALL:

MOV

TYPOC

NUM,-(SP)

;s sNUMBER TO BE TYPED
ssCALL FOR TYPEOUT

057663

$TYPOS: MOV
MOVB

a(SP),-(SP)
1(SP),SOFILL

;:PICKUP THE MODE
ssLOAD ZERO FILL SWITCH

#2,(SP)
$TYPON
#1,80FILL
#6,90MODE +1
#5,80CNT

s sADJUST RETURN ADDRESS

057663
057665
057662

ADD
BR
S$STYPOC: MOVB
MOVB
STYPON: MOVB

MOvVB

MOV
MOV

(SP)+,S0MODE+1

R3,=-(SP)
R4 ,-(SP)

;;NUMBER OF DIGITS TO TYPE
ssSET THE ZERO FILL SWITCH
ssSET FOR SIX(6) DIGITS
ssSET THE ITERATION COUNT

::SAVE R3
. sSAVE R4

—ZZ
-

>»n
VO

L TS

) AND TYPE

O—=2=sOO0—O
_e e OO ——
PUNONIVINDS
NSNS
OOWOOOSSH
VIS NSO

WYTATTLN

MACRO v03.01 11-APR-80 13:17:48 PAGE 3"3
MoV
MOove
NEG
ADD
MOVB
Move
Mov

057665

000006
057664
057663
000012
1%:

2%:

VWU

dodoielelelolelolelalalalale

ey
——————

CZRMNAO RMO

BINARY T

3%:

057664
177770

4%:

000060

5%:

057662

7%:

6%:
000002

000000

000004

;:SAVE RS
JsGET THE NUMBER Of DIGI." 10 “¥

R5,=(SP)
:0"00501.R4

ssSUBTRACT 1T FOR MAX. ALLOwED
ssSAVE IT FOR USE
JsGET THE ZERO FILL SwWwiTCw
s:PICKUP THE INPUT NUMBER
;sCLEAR THE OUTPUT WORD
s+ROTATE MSB INTO '
;.60 DO MSB
JsFORM THIS DIGIY

CLR

ROL

ROL
ROL
ROL
MOV
ROL

DECB
BPL
BIC
BNE
TST
BEQ
INC
BIS
BIS

;sGET LSB OF THIS DIGIT

$OMODE
7

;sTYPE

sGET RID OF JUNK
;3TEST FOR O
:sSUPPRESS THIS 0?
;sBR IF YES
2sDON'T SUPPRESS ANYMORE 0°'S

ssMAKE THIS DIGIT ASCII
ssMAKE ASCII IF NOT ALREADY

MOvB
TYPE

;sSAVE FOR TYPING
;360 TYPE THIS DIGIT

s sCOUNT BY 1

DECB
BGT
BLT
INC
BR

;sBR IF MORE TO DO
::BR IF DONE
;s INSURE LAST DIGIT I ?N'T A BLANK
2260 DO THE LAST DIGI

:sRESTORE RS
;sRESTORE R4

MOV
MOV
MOV
MOv
MOV
RTI

R R

THIS DIGIT?

;:BR IF NO

:sRESTORE R3
2sSET THE STACK FOR RETURNING
s RETURN
: s STORAGE FOR ASCII DIGIT
: : TERMINATOR FOR TYPE ROUTINE
:s0CTAL DIGIT COUNTER
ssZERO FILL SWITCH
: sNUMBER OF DIGITS TO TYPE

.BYTE
.BYTE
$OCNT:
.BYTE
SOFILL: .BYTE
: .WORD
$OMODE
.SBTTL
TYPE ROUTINE
RN

SEQ 0231

R R R RN N

R R

R R R RN

R RN RN

RN RN

AR AN AR AR

:*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.

;*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

s*NOTE1:
;*NOTE2:

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER,
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
S$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

;*NOTE3:

L ]

TYPE

i
.

TYPE
MESADR

———

:*0R

+MESADR

; sMESADR 1S FIRST ADDRESS OF AN ASCIZ STRING

[

]

s*1) USING A TRAP INSTRUCTION

e e

s*CALL:

R ouTl NE

57750

8°°°-‘°—.

105737
2

O=O—
O=0OWOO—-=0OWOoOnNrn

VIV VATV
A VWAL

v 0
m

MNA 0 RMO5/3/2 FCTNL TST 2

MACRO v03.01 11-APR-80 13:17:48 PAGE 3%-4

001173

$TYPE:

000002
000001

001242

000100

001243

057736
062660
000040

001243

S$TPFLG
1%

1}:

MOV

61%:
:

.WORD

2%:

MOVB

000002

60$:
3%:

000011

6$:

CMPB

001170

060034

105366

000001

#APTCSUP, SENVM

60%

(RO)+,=(SP)
6%

JSR
CMPB

060100
060216

DECB
DECB
BR

:+SAVE RO

+sAPT CONSOLE SUPPRESSED
ssYES,SKIP TYPE OUT

#CRLF, (SP)

: :BRANCH IF NOT <CRLF>

(SP)+

;sPOP <CR><LF> EQUIV
::TYPE A CR AND LF

PC,STYPEC
SFILLC,(SP)+

$NULL ,=(SP)

7%:

:s LEAVE
ssb

#HT, (SP)

* $CHARCNT
5%:
6%:

;215 THERE A TERMINAL?
IF YES
::BR
sHALT HERE IF NO TERMINAL

s sPUSH CHARACTER TO BE TYPED ONTO STACK
JsBR IF IT ISN'T THE TERMINATOR
ss1F TERMINATOR POP IT OFF THE STACK
;sRESTORE RO
;sADJUST RETURN PC
s sRETURN
JsBRANCH IF <HT>

060100
001172

£d 0232

ssGET ADDRESS OF ASCIZ STRING
ssRUNNING IN APT MODE
s+sNO,GO CHECK FOR APT CONSOLE
#APTSPOOL, SENVM ::SPOOL MESSAGE TO APT
62%
+sNO,GO CHECK FOR CONSOLE
RO,61%
;sSETUP MESSAGE ADDRESS FOR APT
SC.SATYS
::SPOOL MESSAGE TO APT
s JMESSAGE ADDRESS

#2,(sP)

060216

013746

RO,=(SP)
@82(SP) RO
lszTENV.$ENV
6

(SP)+
(SP)+,RO

000200

060030

1(SP)

PC.STYPEC

$CHARCNT
7%

:sCLEAR CHARACTER COUNT
ssGET NEXT CHARACTER
::G0 TYPE THIS CHARACTER
s:1S IT TIME FOR FILLER CHARS.?
s:1F NO GO GET NEXT CHAR.
::GET & OF FILLER CHARS. NEEDED

:sAND THE NULL CHAR.

::DOES A NULL NEED TO BE TYPED?
::BR IF NO=--GO POP THE NULL OFF OF STACK
::60 TYPE A NULL
::D0 NOT COUNT AS A COUNT
::LOOP

;HORJZONTAL TAB PROCESSOR
000040
060100
000007

060216

8%:
9%:

MOVB
JSR

121050
177600

000023

$TYPEC:

,(SP)

BITB
BNE

#7.$CHARCNT
9%

s sREPLACE TAB WITH SPACE
::TYPE A SPACE
: :BRANCH IF NOT AT
::TAB STOP
::POP SPACE OFF STACK
s:GET NEXT CHARACTER

1ST1B
BPL
MOV

asTKS
10%
a$TKB,=(SP)

::CHAR IN KYBD BUFFER?
::BR_IF NOT
:sGET CHAR

CMPB

#SXOFF, (SP)

: sWAS CHAR XOFF

187

121054

BIC

PC,STYPEC
(SP)+

#177600, (SP)

::STRIP EXTRANEOUS BITS

——

| CZRMNAO RMC3/3/2 FCTNL TST 2
TYPE ROUTINE

1018

s.a.‘_.qfl
ooownm~N

FRETRR

NNVNOOOMN

060122
061124
060126

%
B
MACRO V03.01 11-APR-80
13:17:48 PAGE 38-5

121030

121006

121000

000002

060216
000012

102%

;:BR IF NOT

T1STB

JsWALIT FOR CHAR

MOvVB

a%7ks
101%
a81kB, (SP)

CMPB
BNE

#SXON, (SP)
101%

ssWAS IT XON?
;:BR IF NOT

187

(SP)+

JFIX STACK

;gTB

?31PS

JsWALIT UNTIL PRINTER IS READY

2(SP),a%1PB
#CR,2(SP)
1%
SCHARCNT
STYPEX
#LF,2(SP)
$TYPEX
(PC)+
0
PC

JsLOAD CHAR TO BE TYPED INTO DATA REG.
231S CHARACTER A CARRIAGE RETURN?
s sBRANCH IF NO
ssYES==CLEAR CHARACTER COUNT
JIEXIT
s+1S CHARACTER A LINE FEED?
s sBRANCH IF YES
s sCOUNT THE CHARACTER
s s CHARACTER COUNT STORAGE

BIC
102%:
108

000002
000015

BNE
BPL

121024
177600
000021

000002

MOVB
CMPB
BNE
CLRB
BR
1%:
CMPB
BEQ
INCB
$SCHARCNT:
. WORD
$TYPEX: RTS
.SBTTL

SEQ 0233

:2GET CHAR

#177600,(SP)

:iSTRIP IT

SCOPE HANDLER ROUTINE

'.‘."""'"""""""""C"..'..."'.."'Q"Q"."..."'."'t

:*THIS ROUTINE

CONTROLS THE LOOPING OF

s*AND LOAD

ERROR FLAG

;*AND LOAD THE TEST NUMBER(STSTNM)
THE

(SERFLG)

SUBTESTS.

IT WILL

INCREMENT

INTO THE DISPLAY REG.(DISPLAY<7:0>)

INTO DISPLAY<15:08>

;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
LOOP ON TEST
;*SW14=]
;*SW11=]
INHIBIT ITERATIONS
LOOP ON ERROR
;*SW09=1
LOOP ON TEST IN SWR<7:0>
;*SW08=1
LL
s*CA
:*

:
$SCOPE

056726
040000

120716

1$:

SCOPE

CKSWR
JSR
BIT
BNE

;WRRRASTART OF

$XTSTR: BR

000004

5%:

000004

000400

120650

PC,STOP
#BIT14 ,3SWR
SOVER

ngi

FOR

THE

s TEST

XOR

@FERRVEC,-(SP)
#58 QFERRVEC

MOV

(SP)+,a#ERRVEC

an #7060

BR
CMP

$SVLAD
(SP)+,(SP)+

BIT
BEQ

#B1108,3SWR
2%

MOV

FOR CHANGE

IN SOFT-SWR

::LOOP ON PRESENT TEST?

MOV
MOV

000004

::SCOPE=]0OT

(SP)+,3#ERRVEC

DiYES IF SW1é=1

TESTERNANAS

::1F RUNNING ON THE ‘'XOR'* TESTER CHANGE
::THIS INSTRUCTION TO A ‘NOP" (NOP=240)
::SAVE THE CONTENTS OF
;:SET FOR TIMEOUT

THE ERROR VECTOR

::TIME OUT ON XOR?

::RESTORE THE ERROR VECTOR

1360 TO THE NEXT TEST
S:CLEAR THE STACK AFTER A TIME OUT
;:RESTORE THE ERROR VECTOR

::LOOP ON THE PRESENT TEST

6$:;MMMMNEND OF CODE FOR THE XOR TESTERNMNNN

::LOOP ON SPEC. TEST?
::BR IF NO

————

—_———

CZRMNAD RMOS/3/2 FCTIN

SCOPE MANDLER ROUTINE

060306
060310
060314
060316
060322
060324
060330
060332
334
060340
060344
060346
060350
060354
060356
060364
060366
060374
060376
060404
060406
060412
060416
060620
060426
060430
060434
0604
06044
060450
060452
060460
060466
060472
060500
060504
060510
060514
060522
060530
060534
060536
060540
060540
060542
060544
060546
060550
060552
0605
060556
0605
060562
060564
0605
060570
060572

L TST 2

005046
117716
001414
022716
002411
011637
005316
006316
06%216
013637
000466
005726
105737
001421
123737
101015
032777
001404
013737
000446
105037
005037
000415
032777
001011
005737
001406
005;;7
023737
002024
012737
013737
105237
113737
011637
011637
005037
112737
013777
013716
000002
000012
010132
010316

010502
010704
011546
012402
013172
014132
014752
015542
016500
017274
020106
020720

MACRO v03.01 11-APR-80 13:17:48 PAGE¢ 33-6

120640
000033
001116
060540
001122
001117
001131

001117

001000

120560

001124

001122

001117
001206
004000

120526

001230
001120
001206

000001
060536
001116
001116
001122
001124
001210
000001
001116
001122

001120
001120
001206
001226

001131
120426

CLR
MOvB
BEQ
CMP
BLT
MOV
DEC
ASL
ADD
MOV
B8R
8%:
187
2%:
T1ST1B
BEQ
CMPB
BHI
BIT
BEQ
7%:
MOV
BR
4s:
CLRB
CLR
B8R
3%:
BIT
BNE
TST
BEQ
INC
CMP
BGE
1%:
MOV
MOV
$SVLAD: INCB
MOVB
MOV
MOV
CLR
MOVB
SOVER:
MOV
MOV
RTI
SMXCNT: 10.
$SWOBTBL:
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD
LMWORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD

-(SP)
aSWR, (SP)
8%
#33,(SP)
8%
(SP) ,$TSTNM
(SP)
(SP)
#SSWOBTBL,(SP)
9(SP)+ SLPADR
SOVER
(SP)+
SERFLG
3
SERMAX ,SERFLG
38
#B1T09,3SWR
43
SLPERR,SLPADR
SOVER
SERFLG
$TIMES
1%
#BIT11,3SWR
1%
$PASS
1%
$ICNT
STIMES,SICNT
SOVER
#1,81CNT
SMXCNT,STIMES
STSTNM
STSTNM,STESTN
(SP) ,SLPADR
(SP) ,SLPERR
SESCAPE
#1,3ERMAX
STSTNM, SDISPLAY
SLPADR, (SP)

15!]02
T1ST12+42

TST13+2
TST442
TS1542
151642
TST7+¢2
TST10+2
TST11+2
!Sl\i‘Z
TST13+2
TST1442
TST15+42
TST1642

SEQ 0234

ssCLEAR A TEMP., LOCATION
ssPICKUP THE DESIRED TEST NUMBER
ssBRANCH IF BAD TEST NUMBER IN SWR
;sCHECK THE NUMBER IN THE SWR
ssBRANCH ]F TEST NUMBER IS OUT OF RANGE
;sUPDATE THE TEST NUMBER
s sBACKUP BY ONE
ssSCALE THE TEST NUMBER AS AN INDEX
;;FORM THE ADDRESS OF TEST POINTER
ssSET LOOP ADDRESS TO DESIRED TEST
2:G0 LOC® ON THE TEST
ssCLEAN THE BAD TEST NUMBER OFF OF THE STACK
JsHAS AN ERROR OCCURRED?
::BR IF NO
ssMAX. ERRORS FOR THIS TEST OCCURRED?
;:BR 1F NO
;:LO0P ON ERROR?
::BR IF NO
s+SET LOOP ADDRESS TO LAST SCOPE
;s lERO THE ERROR FLAG
::CLEAR THE NUMBER OF ITERATIONS TO MAKE
JsESCAPE TO THE NEXT TEST
ssINHIBIT ITERATIONS?
::BR IF YES
ss1F FIRST PASS OF PROGRAM
33
INKIBIT JTERATIONS
s INCREMENT ITERATION COUNT
ssCHECK THE NUMBER OF ITERATIONS MADE
ssBR IF MORE ITERATION REQUIRED
JsREINITIALIZE THE ITERATION COUNTER
ssSET NUMBER OF ITERATIONS TO DO
s sCOUNT TEST NUMBERS
ssSET TEST NUMBER IN APT MAILBOX
s sSAVE SCOPE LOOP ADDRESS
ssSAVE ERROR LOOP ADDRESS
ssCLEAR THE ESCAPE FROM ERROR ADDRESS
J3ONLY ALLOW ONEC(1) ERROR ON NEXT TEST
;:DISPLAY TEST NUMBER

ssFUDGE RETURN ADDRESS
::FIXES PS
ssMAX. NUMBER OF ]TERATIONS

ssSTARTING ADDRESS OF TEST 1
ssSTARTING ADDRESS OF TEST 2

ssSTARTING ADDRESS OF
ssSTARTING ADDRESS OF
ssSTARTING ADDRESS OF
ssSTARTING ADDRESS OF
ssSTARTING ADDRESS OF
ssSTARTING ADDRESS OF
JsSTARTING ADDRESS OF
ssSTARTING ADDRESS OF
JsSTARTING ADDRESS OF
s3STARTING ADDRESS OF
s3STARTING ADDRESS OF
::STARTING ADDRESS OF

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

3
&
S
6
7
10
11
12
13
14
15
16

= B NVNNVOONN
== O~
oo
O SO

OCOO0O0O0O0O0O0O0O0O0O0O 8

MACRO v03.01 11-APR-B0 13:17:48 PAGE0 33-7
.WORD
YST\?*%
.WORD
15720+
TST21¢
+WORD
.WORD
187 §0
.WORD
TST23¢
1572442
.WORD
1512542
.WORD
.WORD
1512642
.WORD
TST%?OZ
1S730+2
.WORD
.WORD
1513142
.WORD
1513242
1513342
.WORD
ERROR HANDLER ROUTINE

SEQ 0235

:sSTARTING ADDRESS OF TEST 17
;s STARTING ADDRESS OF TEST 20
: s STARTING ADDRESS OF

TEST 21

;:STARTING ADDRESS OF
s sSTARTING ADDRESS OF
: s STARTING ADDRESS OF

TEST
23
TEST 24
TEST 25

;s STARTING ADDRESS OF TEST SZ

: sSTARTING
;s STARTING
: ;STARTING
:sSTARTING
:sSTARTING
s sSTARTING

ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS

OF
OF
OF
OF
OF
OF

TEST
TEST
TEST
TEST
TEST
TEST

26
27
30
31
32
33

::""."'.'l'.""""'""""'""'.".'Q".""'Q""'t..l"'

;*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
:*THE SWITCH OPTIONS PROVIDED BY
s*SW15
HALT ON ERROR

;*SW13
;*SW10
;*SW09

NNNNN=NNNNO

NNNONS
S NNNNO S
NNWNNNO
O NN~
—

7%:

001116
002000
1%:

001132
001130

000001

001242

001130
062670

060746

032550
001217

O~N—
nNO

001000

BIT

BNE
JSR

20%:

21%:

22%:
2%:

120176

120162

TYPE
INC
MOV

MOovB

120242

001212
001126
001132
000002
120230
020000

CKSWR
INCB
BEQ

BIT
BEQ

=88
\Fflg;“ -t~
'r‘flgs
SNNNYN

28 80-—08—-8°°°--'
P Nt
SR NTOSR—IVY? S W—-=000
SIv vy
-—
"S{‘

001117

3%:

ARE:

INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR

ERROR
$ERROR:

THIS ROUTINE

TYPE

(MPB
BNE
MOvB
JSR
.BYTE
1§71
BPL
HALT
(KSWR

BIT
BEQ

: ;ERROR=EMT

AND N=ERROR

ITEM NUMBER

;s TEST FOR CHANGE IN SOFT-SWR

SERFLG
::SET THE ERROR FLAG
7%
:sDON'T LET THE FLAG GO TO ZERO
STSTNM,QDISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG

#BIT10,3SwWR

::BELL ON ERROR?

JiNO = SKIP

$ERTTL

::COUNT THE NUMBER OF ERRORS

$BELL

(SP) , SERRPC
#2,SERRPC
OSERRPC,SITEMB

#BIT13,35uWR
20%

PC,ERRTYP

LSCRLF

P:RING BELL

::GET ADDRESS OF ERROR INSTRUCTION

;;STRIP AND SAVE THE ENROR ITEM CODE

JsSKIP TYPEOUT IF SET

:SKIP TYPEOUTS

2260 TO USER ERROR ROUTINE

#APTENV,SENV

s sRUNNING IN APT MODE

SC.‘ATV‘

s sREPORT FATAL ERROR TO APT

2%
$I1TEMB,21%

JsNO,SKIP APT ERROR REPORT
JsSET ITEM NUMBER AS ERROR NUMBER

0
22%

::APT ERROR LOOP

;:SKIP IF CONTINUE

aSWR

#B1109,35uWR
4%

JsHALT ON ERROR

JHALT ON ERROR!
JsTEST FOR CHANGE IN SOFT-SWR
2sLO0P ON ERROR SWITCH SET?
J:BR 1F NO

L TST 2

.SBTTL

SCOPE HANDLER R

CIZRMNAO RMO5/3/

CZRMNAO RMO5/3/2 FCTNL TST 2

ERROR HANDLER ROUTINE

060774

013716

061004
82}8?3

001402
013716

061012
061020
061022
061024
061024

022737
001001
000000

061000

005737

MACRO v03.01 11-APR-B0 13:17:48 PAGE 33-8

001124

001210

032530

000042
6%:

000002

LSBTTL

SEQ 0236

MOV

$LPERR, (SP)

3sFUDGE RETURN FOR LOOPING

BEQ
MOV

5%
$ESCAPE, (SP)

::BR IF NONE
ssFUDGE RETURN ADDRESS FOR ESCAPE

CMP
BNE
HALT

#SENDAD , 342
6%

JsACT=11 AUTO=-ACCEPT?
JsBRANCH IF NO
1iVES

187

3ES(APé

ssCHECK FOR AN ESCAPE ADDRESS

RTI
TTY INPUT ROUTINE

:;RETURN

:;"".'..".."."""""""."'."'..'."'.."""".."""'

061026
061030
061032
061034

.ENABL
LSB
$TKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD
$TKQSRT: .BLKB
QEK25N0=.

000000
000000
000000

061035

0
0
O
1

s sNUMBER OF ITEMS IN QUEUE
;s INPUT POINTER
J:0UTPUT POINTER
;sTTY KEYBOARD QUEUE

.tV

s*TK INITIALIZE ROUTINE
:*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE
;*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

061036

061042
061050
061056
061064
061072
061076
0611064

005037

012737
013737
012737
012737
005777
012777
000207

061026

061034
061030
061106
000200
120064
000100

061030
061032
000060
000062

s*CALL:
JSR
.
RE TURN
.

PC,STKINT

$TKINT: CLR

$TKCNT

MOV
MOV
MOV
MOV
ST
MOV
RTS

120054

#STKQSRT,$TKQIN
$TKQIN,$TKQOUT
#STKSRV,a#TKVEC
#200,9#TKVEC+2
asTKB
#100,387KS
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
::ENABLE TTY KEYBOARD INTERRUPT
S:RETURN TO CALLER
TTY KEYBOARD

INTERRUPT

:*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
i#IT IN THE QUEUE.
i#]F THE CHARACTER IS A "'CONTROL=C'' (“C) STKINT

1S CALLED AND

:*UPON RETURN EXIT 1S MADE TO THE '‘CONTROL=C'' RESTART ADDRESS (SHUT2)

061106
061112
061116

117746
062716
021627

120050
177600
000003

$TKSRV: MOVB
BIC
CMP

a$TKB,-(SP)
#°C17%,(SP)
(sP), 08

061124
061130
061134
061136
061142
061146
061150
061156

104401
004737
005726
000137
021627
001004
022737
001500

062222
061036

TYPE
JSR
181
JMP
CMP
BNE
CMP
BEQ

LJOCNTLC
PC,STKINT
(SP)+
SHUT2
(SP),#7
2%
#SWREG, SWR
6%

061122

001007

BNE

057034
000007
000176

18:

001154

::PICKUP THE CHARACTER
S:STRIP THE JUNK
::1S 1T A CONTROL C?

::BRANCH IF NO
J:TYPE A CONTROL=C (*C)
::INIT THE KEYBOARD
::CLEAN UP STACK
::CONTROL C RESTART
::IS IT A CONTROL G?
:BRANCH IF NO
1315 SOFT=SWR SELECTED?
1360 TO SWR CHANGE

CZRMNAO RMOS/3/2 FCTNL TST 2

TTY

INPUT ROUTINE

061160
061160
061166
061170
061174
061176
061200
061204
061206
061212
061214
061220
061222

022737
001004
104401
005726
000451
021627
001021
005077
005726
105777
100375
117746

061232
061236
061240
061246
061250
061254
061260
061262
061266
061270
061276
061300
061304
061312
061314
061322

022627
001366
012777
000002
005237
021627
002405
021627
003002
042716
112677
005237
023727
001003
012737
000002

061226

042716

000001

MACRO v03.01 11-APR=-80 13:17:48 PAGE 33-9
061026

2%:

001212
000023

3%:

117746
117740

318:

117734

177600

TYPE
181
BR
CMP
BNE
CLR
ST
TSTB
BPL
MOVB

BIC

000021

000100

CMP
BNE

117712

061026
000140

32%:

000175
000040
177530
061030
061030

061035

061034

061030

(%:

CMP
BNE
MOV
RTI
INC
CMP
BLT
CMP
BGT
BIC
MOVB
INC
CMP
BNE
MOV
RTI

#1,8TKCNT
{1
L SBELL
(SP)+
5¢
(SP),#23
32
3sTKS
(SP)+
as$1k$
318
@$TKB,=-(SP)

#°C177,(SP)
(SP)+, 121
318
#100,987kS

SEQ 0237

::1S THE QUEUE FULL?
::BRANCH IF NO
S:RING THE TTY BELL
::CLEAN CHARACTER OFF OF STACK
(EXIT
$:1S 1T A CONTROL=S?
::BRANCH IF NO
$:DISABLE TTY KEYBOARD INTERRUPTS
::CLEAN CHAR OFF STACK
S:WAIT FOR A CHAR
::LOOP UNTIL ITS THERE
::GET THE CHARACTER

SIMAKE IT 7-BIT ASCII

3+1S 1T A CONTROL=-Q?
*:BRANCH IF NO
s sREENABLE TTY KEYBOARD INTERRUPTS
: SRETURN
$TKCNT
::COUNT THIS CHARACTER
(SP),#140
2315 IT UPPER CASE?
43
::BRANCH IF YES
(SP) ,#175
2315 IT A SPECIAL CHAR?
4
::BRANCH IF YES
#40, (SP)
JsMAKE IT UPPER CASE
(SP)+,a$TKQIN
J+AND PUT IT IN QUEUE
$TKQIN
::UPDATE THE POINTER
$TKQIN,#STKQEND ;:GO OFF THE END?
58
::BRANCH IF NO
#STKQSRT,STKQIN ;;RESET THE POINTER
: SRETURN

'tt'.t"t't"tt"t""""'t"t't.t'tt'tttttt'.'t'.'ttt't'tt't'

'SOFTUARE SWITCH REGISTER CHANGE ROUTINE.

:*ROUTINE

061326

061332
061334
061340
061342

061346
061352

061356

022737

001124
105777
100121
117746

042716
021627

001300

000176

001154

1S ENTERED

FROM THE TRAP HANDLER,

AND WILL

;*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP
:*CALL WHEN OPERATING IN TTY INTERRUPT MODE.

$CKSWR: CMP

117620

117614

177600
000007

#SWREG, SWR

::1S THE SOFT=SWR SELECTED

BNE
1STB
BPL
MOVB

15%
a$1KS
158
@$TKB,=-(SP

SIEXIT IF NOT
$:1S A CHAR WAITING?
::1F NOT, EXIT
YES

BNE

::1§o"g;irPUT IT IN THE TTY QUEUE

BIC
CMP

#oC177, (5P
(sP),#?

SIMAKE 1T 7-BIT ASCII
::1S IT A CONTROL=G?

l."."..""""""'"""'..'.""'.""'."lt"lt'l"'l'.l.

'CONTROL 1S PASSED TO THIS POINT FROM EITHER THE TTY

INTERRUPT

:*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL,

061360
061366
061370
061372
061376
061402

123727
001674
005726
004737
005077
112737

001150

000001

061036
117556
000001

001151

SERVICE

AS A RESULT

: *CONTROL=G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED.

68:

CMPB
BEQ
1871
JSR
(LR
MOvB

$AUTOB, #
2%
(SP)+
PC,STKINT
as1ks
#1,8INTAG

:sARE WE RUNNING IN AUTO-MODE?
: :BRANCH IF YES
::CLEAR CONTROL=-G OFF STACK
:sFLUSH THE TTY INPUT QUEUE
::DISABLE TTY KEYBOARD INTERRUPTS
::SET INTERRUPT MODE INDICATOR

::PICK UP CHAR

000003

CMP
BNE
TYPE

(SP),#3
9%

:31S 1T A CONTROL=C?
; sBRANCH IF NOT

CMPB
BNE

#6,SP

SINTAG,#1

+sCLEAN UP STACK

ADD

000002
000006
001217
001151

000001

000100

117354

060100
000060

117376

S —»
L

000004

18%:

INTERRUPTS?

(SP),#25
108
LSCNTLU

5:1S 1T A CONTROL=UL?
;;BRANCH 1F NOT
ssYES, ECHO CONTROL=U (*U)

19¢

JLET'S TRY IT AGAIN

TYPE
ADD

CMP
BNE
18T
BEQ

MOV
ADD
TYPE

MOv
RTI

JSR
CMP

BEQ

001216

TTY KEYBOARD

CMP
BNE

TST

17%:

s sREENABLE

(*C)

SHUTS

CMP

000002
177776

ECHO CONTROL=C

#100,381KS

BGT
BIC

000060
000002

ssYES,

MOV
JMP

BLT

000067

;sMAKE IT 7-BIT ASCII

:sBRANCH IF NO
ssALLOW TTY KEYBOARD INTERRUPTS
2 sCONTROL=C RESTART

CMPB
BNE

1
16%:

ASL
ASL
ASL

INC
BIS
BR

TYPE

#6,SP

). 115
$
S )
$
S P) ,aSWR
SP
C R LF
N1
$
p

8%:

JOONTLC

0 0,387kS
$TYPEC
), #60

) 467

108:

117450

#°C177,(SP)

(SP)+
)

[P0 « Rl

000001

000015

oo
i
Lt
—g---ogN-NNNMONON
ak s ol X« X« AV
OV NO NNNONWN

;sPROMPT FOR NEW SWR

d$TKB,~(SP)

20%:

. SMNEW

BIC

062227
000006

RSR08R8S
FOSSS
gzuuub NNO

=(SP)
=(SP)

s sSAVE SWREG FOR TYPEOUT
2360 TYPE=-=OCTAL ASCIICALL DIGITS)

Move

9%:

~
~

CLR
CLR

MOV
TYPOC
TYPE

117512
177600

000025

o0
(=1~

ssTYPE CURRENT CONTENTS

CE ALY
7%

021627
001005

-0
(=]

NN&OU‘\I‘J‘J‘J‘
NOOONO:

F33s

e
i
el
il
e
el
il
il
il el
il
il
il
il
s
i
il
il
s
il
il
s
i
i

sECHO THE CONTROL=G (*G)

. SMSWR
SWREG,=(SP)

1518
BPL

000100
057034

021627

+SCNTLG

TYPE

117516

012777
000137

104401

—

19%:

1YPE

SEQ 0238

:2CLEAR COUNTER
ssTHE NEW SWR
::CHAR THERE?
s31F NOT TRY AGAIN

062222
000006
001151

062706
000737
oo
[+ e e W We No Ne Ho Jo JV TV IV IV IV IV IV IV IV IV ]
(- VI
ooNNO
S NO
OSSO0
o~

062252

—_——

061500
061502
061510

$GTSWR:

2Py
NP -~
—t Nt PO~
~ O

061454
061460
061462
061466
061472

062234
0622641
000176

NINVAAAaDNIR
At mnT
PO~~~
DN
ANDDVOVOPRANOP®
DTM O

[«

0614446
061450

f =

d TM L= L

NN O\flmgbbwbb
&S

OO0O0O0O0O—-OO0

T - PR

INPUT ROUTINE

SEEEEIEIEEEEEEEEEIIIRRER

TTY

MACRO v03.01 11-APR=-80 13:17:48 PAGE6 33-10

)
P),(SP)

.SQUES

;s IGNORE PREVIOUS

INPUT

;1S IT A <CR>?

;sBRANCH IF NO

J3YES, IS 1T THE FIRST CHAR?
s sBRANCH IF YES
s sSAVE NEW SWR
;sCLEAR UP STACK
;:ECHO <CR> AND <LF>
JsRE=ENABLE TTY KBD INTERRUPTS?
s sBRANCH IF NOT
s sRE-ENABLE TTY KBD INTERRUPTS
s ;RETURN
;sECHO CHAR
;:CHAR < 0?
s sBRANCH IF YES
;:CHAR > 77
s sBRANCH IF YES

ssSTRIP=-0FF ASCII

2315 THIS THE FIRST CHAR
s JBRANCH IF YES
siNO,

SHIFT PRESENT

CHAR OVER TO MAKE
¥
ROOM FOR NEW ONE.
33
JKEEP COUNT OF CHAR
J3SET IN NEW CHAR
JiGET THE NEXT ONE
JsTYPE

?2<CR><LF>

CZRMNAOD RMO5/3/2 FCTNL 18T 2

INPUT ROUTINE

061664

000720

.DSABL

BR
LSB

20%

SEQ 0239

s s SIMULATE CONTROL=U

t"l."""t""""""""""'.t.'ll".'t""".'"""""'

'THlS ROUTINE

seCALL:
i

i
M

061666
061670
061676
061702
061704
061710
061712
061712
061716
061720
061724
061732
061736
061744
061746
061754

011646
016666
005066
005046
012746
000002

005737
001775
005337

117766

005237
023727
001003
012737
000002

000004
000004

000002

061026

1%:

061026
177102
061032
061032

061035

061034

061032

000004

RT1

TST
BEQ
DEC
MOVB

INC

CMP
BNE

ZS:

A SINGLE

MOV

RTI

CHARACTER FROM THE

TTy

J3GET A CHARACTER FROM THE QUEUE
s sCHARACTER 1S ON THE STACK
ssWITH PARITY BIT STRIPPED OFF

RETURN HERE

CLR
MOV

64%:

INPUT

RDCHR

SRDCHR: MOV
MOV
CLR

061712

WILL

(SP),=(SP)
4&(S .2 SP)
4(SP)

;:PUSH DOWN THE PC AND

;:THE PS

READY FOR A CHARACTER
NEW PS ON STACK
NEW PC ON STACK
NEW PC AND PS

-(SP)
#6458 ,-(SP)

ssGET
ssPUT
ssPUT
;:POP

$TKCNT
1%

s:WAIT ON A CHARACTER

$TKCNT

$TKQOUT

s :DECREMENT THE COUNTER
2sGET ONE CHARACTER
:UPDATE THE POINTER

: :BRANCH IF NO

a$TKQOUT ,4(SP)

SIKOOUT,ISTKQEND ::DID
#STKQSRT,$TKQOUT

IT GO OFF

::RESET

ETURN

THE END?

THE POINTER

..'tt'."...'l""""""".".'ltt.".'t'...'..t"""".""

'lef ROUTINE WILL

INPUT

A STRING FROM THE

TTY

:'
3
.

061756
061760

RDLIN
RETURN HERE

SRDLIN: MOV
CLR
1%:
MOV
2%:
CMP

062212
062222

rNO-‘QuO—oN———NNO = YN
N NN —

TTY

MACRO v03.01 11-APR-80 13:17:48 PAGEH 33-11

BLOS

#STTYIN+8.
,R3
4%

MOVB
CMPB

(SP)+,(R3)
#177,(R3)

RDCHR

000177

108:

BNE
187

000134
062210
177777

062212

062210
6%:

(SP)

6%
#'\,9%

DEC

TYPE
MOV

CMP

TYPE

5%:

BNE
MOvVB

BLO
MOVB

062210
062210

R3,-(SP)
-($P)
#STTYIN,R3Z

1S7
BEQ

,9%
#-1,(SP)

R3,#STTYIN

4%
(R3),9%
9%

(SP)
7%

s INPUT A STRING FROM THE TTY
:sADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
;s TERMINATOR WILL BE A BYTE OF ALL 0'S

::SAVE R3
;sCLEAR THE RUBOUT KEY
::GET ADDRESS
s sBUFFER FULL?
;:BR IF YES
2260 READ ONE CHARACTER FROM THE TTyY

;sGET CHARACTER
;218 1T A RUBOUT
;sBR IF NO
:+1S THIS THE FIRST RUBOUT?
;:BR IF NO
;sTYPE A BACK

SLASH

;sSET THE RUBOUT KEY
;sBACKUP BY ONE
JsSTACK EMPTY?
ssBR IF YES
..SEI¥PP;0 TYPEQUT THE DELETED (MAR,
6

::60 READ ANOTHER CHAR.
..RUBOUI KEY SET?
R IF NO

CIRMNAO RMO5/372 FCTNL 18T 2

HNAO RMO5/3/2 FCINL TST 2
Y

MACRO v03.01 11-APR-80 13:17:48 PAG% 33-12

INPUT ROUTINE

062056
062064
062070
062072
062076
062100

112737
106401
005016
122713
001003
104401

062106
062112
062114

122713
001011
105013

062104

062116
062122

000726

104401

062126

000717

062134

000712

062130

062136
062142

062146

062152
062156
062160
062164
062166
062170
062172
062200
062206
062210
062211
062212
062222
227
062234
062241
062252

000134
062210

062210

000025

7%:

062227
000022

8%:

001217
001216

A ¥

111337
104401

062210
062210

3%:

122723

136
136
136
015
040

#'\,9%
,9%
(SP)
#25, (R3)
13
$CNTLU

CMPB
BNE
CLRB

#22,(R3)
38
(R3)

TYPE

$TTYIN

TYPE

062212

104401

001305
105063
104401
005726
012603
011646
016666
012766
000002
000
000

MOVE
1YPE
CLR
(MPB
BNE
TYPE

000015

177777
001220

000004
062212

000002
000004
9%:

103
125
107
012
040

$TTYIN:
SCNTLC:
SCNTLU:
SCNTLG:
SMSWR:
sgng::

015
015
015
123
116
"

LEV

.SBTTL

SEQ 0240

;:TYPE A BACK SLASH
::CLEAR THE RUBOUT KEY
::1S CHARACTER A CTRL U?
::BR IF NO
::TYPE A CONTROL ''U"

::60 START OVER

,S$CRLF

SSTYPEA "'CRTM & "'LF"

::1S CHARACTER A '""TMR'"
::BRANCH IF NO
..CLEAR THE CHARACTER
::TYPE THE INPUT STRING

::60 PlCKUP ANOTHER CHACTER

::CLEAR rue BUFFER AND LOOP

CMPB

llS (R3)+

;sCHECK FOR RETURN

TYPE

MOVB
TYPE
BNE
CLRB
TYPE
TST
MOV
MOV
MOV
MOV
RTI
.BYTE
.BYTE
.BLKB
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
JASCIZ

$QUES

(R3),9%
,9%

28
=1(R3)
LSLF
(SP)+
(SP)+,R3
(SP) ,=-(SP)
4&(SP) ,2(SP)
#STTYIN,4(SP)

J:TYPE A

+sECHO THE CHARACTER

$:LOOP IF NOT RETURN
::CLEAR RETURN (THE 15)
ssTYPE A LINE FEED
;sCLEAN RUBOUT KEY FROM THE STACK
::RESTORE R3
s sADJUST THE STACK AND PUT ADDRESS OF
53
FIRST ASCII CHARACTER ON 1IT

THE

: ;RETURN
0
JsSTORAGE FOR ASCII CHAR. TO TYPE
0
;s TERMINATOR
8.
J:RESERVE 8 BYTES FOR TTY INPUT
/*C/<15><12>
;sCONTROL ''C"'
/*U/<15><12>
::CONTROL 'V
/*G/<15><12>
;:CONTROL ''G"'
<15><12>/SWR = /
/
'NEW = 7/

READ AN OCTAL NUMBER FROM THE TTY

't"t"t.tt""'"'tt"""'tt'ttt'tttt.ttttttt't'tttl'tltlttt'

-ms ROUTINE WILL READ AN OCTAL

“*CHANGE 1T TO BINARY.

:'CALL:
o

H
M

2264
062266
0622764
062276
0623
062302

062304
062306
062310
062312
062314

011646
016666
010046
010146
010246
104412

012600
005001
005002
112046
001412

000004

000002

RDOCT

RETURN HERE

$SRDOCT: MOV
MOV
MOV
MOV
MOV
18:
RDLIN

2%:

MOV
CLR
CLR
MOVB
BEQ

(SP) ,=(SP)
4(SP),2(SP)
RO,=(SP)
R1,=-(SP)
R2,-(SP)

(SP)+,R0O
R1
R2
(RO)+,=-(SP)
3%

(ASCII)

NUMBER FROM THE

TTY AND

;sREAD AN OCTAL NUMBER

;:LO0OW ORDER BITS ARE ON TOP OF
JsHIGH ORDER BITS ARE

IN $HIOCT

;:PROVIDE SPACE FOR THE
1 INPUT NUMBER
;3PUSH RO ON STACK
::PUSH R1 ON STACK
::PUSH R2 ON STACK
S:READ AN ASCIZ LINE

::GET ADDRESS OF 1ST CHARACTER
*:CLEAR DATA WORD
J:PICKUP THIS CHARACTER
(:1F 2ERO GET OUT

THE STACK

MACRO v03.01 11-APR=80 13:17:48 PAGE 33-13
.

READ AN OCTAL NUMBER FROM THE TTY

006301

177770

R1
R2
R1
R2
R1
R2

ADD

(SP)+,R1

BIC

BR
18T
MOV

3%:

000012
062364

062364

ASL
ROL
ASL
ROL
ASL
ROL

MOV
MOV
MOV
MOV

000000

$HIOCT:
.SBTTL
MR

iivl
Jivk

J.*8

#*C7,(SP)

ssSTRIP THE ASCII JUNK

2%
(SP)+
R1,12(SP)

s .LOOP
s3CLEAN TERMINATOR FROM STACK
ssSAVE THE RESULT

ssADD IN THIS DIGIT

R2,$HIOCT
(SP)+,R2
(SP)+ ,R1
(SP)+,RO

RTI

;sPOP STACK INTO R2
;sPOP STACK INTO R1
ssPOP STACK INTO RO

s sRETURN

,WORD
O
TRAP DECODER

AR A2

SEQ 0241

Al A

ssHIGH ORDER BITS GO HERE
A

s*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ''TRAP'' INSTRUCTION
s*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
:*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
;*GO TO THAT ROUTINE.

062424

016646
062716
012746
000002
010046
016600
005740
111000
006300
016000
000200

200002
000020
062404

STRAP:

1%:

000002

062440

MOV

2(SP),=(SP)

MOV

#1$,-(SP)

MOV
MOV
ST
MOVB
ASL
MOV
RTS

RO,=(SP)
2(SP),RO
-(RO)
(RO),RO
RO
$TRPAD(RO
,RO
)
RO

BIC

#20, (SP)

RTI

::ASSUME THE STATUS OF

s: THE CALLER==DO NOT ALLOW
::

T=BIT TRAPS

ssSET THE NEW STATUS

::SAVE RO
::GET TRAP ADDRESS
: ;BACKUP BY 2
:;GET RIGHT BYTE OF TRAP
;;POSITION FOR INDEXING
;;INDEX TO TABLE
::60 TO ROUTINE

;sTHIS IS USE TO HANDLE THE ''GETPRI'' MACRO
062426
062430
062436

011646
016666
000002

000004

000002

$TRAP2: MOV
MOV

(SP),=(SP)
4(SP) ,2(SP)

RTI

.SBTTL

::MOVE THE PC DOWN
: sMOVE THE PSW DOWN
:sRESTORE

THE PSW

TRAP TABLE

;*THIS TABLE

CONTAINS THE STARTING ADDRESSES OF

;*BY THE "'TRAP'' INSTRUCTION.
;

ROUT INE

$TRPAD: .WORD
062446
062450
062452

057440
057500
057214

THE ROUTINES CALLED

STYPE
$TYPOC
$TYPOS
STYPON
$TYPDS

STRAP2

;:CALL=TYPE
;;CALL=TYPOC
::CALL=TYPOS
::CALL=TYPON
;:CALL=TYPDS

TRAP#1(104401)
tnApo§<1oaao§)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

CZRMNAO RMO5/3/2 FCTNL TST 2

| CZRMNAD RMO5/3/72 FCINL TST 2

TRAP TABLE

11-APR=-80 13:17:48 PAGE 38-14

SEQ 0242

062454

057140

$TYPBN

s sCALL=TYPBN

TRAP+6(104406)

TYPE BINARY

062456

061414

$GTSWR

;s CALL=GTSWR

TRAP+7(104407)

GET SOFT=-SWR SETTING

062460
062462
062464
062466
062470
062472

061324
061666
061756
062264
057044
057102

$CKSWR
s s CALL=CKSWR
$SRDCHR
s sCALL=RDCHR
SRDLIN
s s CALL=ROLIN
$RDOCT
s s CALL=RDOCY
$SAVREG ;;CALL=SAVREG
SRESREG ;; CALL=RESREG
TRAP+1
POWER DOWN AND UP ROUTINES

.SBTTL

(ASCII)

NUMBER

) TEST FOR CHANGE IN SOFT-SWR
4411) TTY TYPEIN CHARACTER ROUTINE
) TTY TYPEIN STRING ROUTINE
) READ AN OCTAL NUMBER FROM TTY

(=lelelele]

o~~~
o~

MACRO v03.01

; SAVE RO-R5 ROUTINE

RESTORE RO=R5 ROUTINE

~NOoO
NONOO&OOONN
NN
H

062634
000340

000024
000026

POUER DOWN ROUTINE

$PWRDN: MOV

446

#340,a#PWRVEC+2 ;:PRIO:7
RO,=(SP)
::PUSH RO ON STACK

MOV
MOV

R2,=(SP)
R3,=(SP)

MOV

116424
062640
062546

MOV

MOV
MOV
ngvT

000024

#SILLUP,Q#PWRVEC ;;SET FOR FAST UP

MOV
MOV

MOV

046

[=i{=d=l=l=lelelololeleletx]
[ 1 o T
P-

ngOOJ‘NO

PNONIN)
= b ed e

'Qt".'."""'"""""'"Q'.'."'Q"".t'.""t".""'"".

HAL

R1.=(SP)

R4, =(SP)

::PUSH R1 ON STACK

::PUSH R2 ON STACK
::PUSH R3 ON STACK
::PUSH R& ON STACK

RS,=(SP)

::PUSH RS ON STACK

: HANG UP

aSWR,=(SP)
: iPUSH @SWR ON STACK
SP,$SAVRG
::SAVE SP
#SPWRUP, a#PWRVEC ::SET UP VECTOR

b
s D i o
D e b s (D 8822
8 ®
= NNV
O000O0O0000O
=
NN

"'.'t."..'.""""'"""'l.'...'l"'.."'..'ltl".'t.'tlt"

401

062634
062640
062640
062640

000024

“POWER UP ROUTINE

$PWRUP: MOV
1$:

116356

$SAVR6, SP
$SAVRG
$SAVRG

MOV
MOV

(SP)+,aSWR
(SP)+.RS

BNE

MOV

062474
000340

MOV
MOV
MOV
MOV
MOV

000024
000026

MOV

TYPE

$SPWRMG : §¥?R°
SILLUP: HALT

012
12

120

$SAVRG: 0
$POWER: .esgaz
LSBTTL

#SILLUP,3#PWRVEC ;;SET FOR FAST DOWN

MOV
CLR
INC

(:0F

(SP)+,Ré&

§ATy1:
SATY3:

WORD

::POP STACK INTO Ré&

1:POP STACK
1:POP STACK

TTY

INTO @aSWR
INTO RS

(SP)+.R3
::POP STACK INTO R3
(SP)+.R2
::POP STACK INTO R2
(SP)+.R1
::POP STACK INTO RI
(SP)+.RO
:POP STACK INTO RO
#SPWRON, a#PWRVEC ..ser UP THE POWER DOWN VECTOR

#340,30PWRVEC+2 ;:PR10:7

$POWER
=2
<15><12>"'POWER""

:REPORT THE POWER FAILURE

::POWER FAIL MESSAGE POINTER

::THE POWER UP SEQUENCE WAS STARTED

:: BEFORE THE POWER DOWN WAS COMPLETE
::PUT THE SP MERE

APT COMMUNICATIONS ROUTINE

2232202002320

000001
000001

::GET SP
S:WAIT LOOP FOR THE
S:WAIT FOR THE INC

move
MOVB

M JSFFLG

#1.8MFLG

3333332323333

::T0 REPORT FATAL ERROR
1:T0 TYPE A MESSAGE

- CZRMNAO RMO5/3/2 FCTNL TST 2

. APT COMMUNICATIONS ROUTINE

062666

000001

MACRO v03.01 11-APR-80 13:17:48 PAG% 33-15
063116

$SATYS:
SATY(:

063114
000001

001242

000100

001243

000004
000002
001222

000004

001236

1$:

2%:

001222
063026
000004

FEIIBRIIIIS
Soewssegy
FHrROERIN

005

el
b
D

063066

3%:

B AL

063116
001242
001222

000004
000002
001222
063116
063115
063114

11%:

001224
000004
12%:

RO,=(SP)
R1,-(SP)
SMFLG

ADD

TST
BNE
MOV
1§18
BNE
suB
ASR
MOV
MOV
BR
MOV

ADD
MOV

SMFLG:
SLFLG:
$FFLG:

APTSPOOL

APTCSULP

FAPTENV, SENV

::T0 ONLY REPORT FATAL ERROR

s+PUSH RO ON STACK
;sPUSH R1 ON STACK

2 sSHOULD TYPE A MESSAGE?
+s1F NOT: BR
s sOPERATING UNDER APT?
;21F NOT:

<§6)o

: s SHOULD SPOOL MESSAGES?
BR
::1F NOT:
:sGET MESSAGE ADCR.
: ;BUMP RETURN ADDR.
:sSEE IF DONE W/ LAST XMISSION?
WAIT
s:1F NOT:
::PUT ADDR IN MAILBOX
;:FIND END OF MESSAGE

$MSGAD,RO
RO
RO,SMSGLGT
g:.‘HSGTVPE

::SUB START OF MESSAGE
;sGET MESSAGE ILNGTH IN WORDS
::PUT LENGTH IN MAILBOX
;sTELL APT TO TAKE MSG.

34 (SP) 48
#2,4(5P)

::PUT MSG ADDR IN JSR LINKAGE
::CALL TYPE MACRO

#APTSP
,OOL
SENVM

84 (SP) ,RO
#2,4(SP)
?QSGTYPE
RO, SMSGAD

- :BUMP RETURN ADDRESS

JSR
.WORD

177776, (SP)

Sc.ttvps

;:PUSH 177776 ON STACK

TSTB

$FFLG

2 sSHOULD REPORT FATAL ERROR?
BR
s+1F NOT:
s sRUNNING UNDER APT?
BR
ss1F NOT:
ssFINISHED LAST MESSAGE?
WAIT
s+1F NOT:
s:sGET ERROR #

TST

12%
SENV
12%
$MSGTYPE

ADD

94 (SP) ,SFATAL
#2,4(SP)

BEQ
TST
BEQ

BNE
MOV
INC
CLRB
CLRB
CLRB

MOV

APTSIZE
APTENV

MOV
MoV

MOV

b=l
ol

2
—

000004
000002
177776
057666

SATYC
#1,8FFLG

1ST8
BEQ
CMPB
BNE
BITB
BEQ

001236

001240
000004

BR
MOvB

SEQ 0243

MOV
RTS
.BYTE
.BYTE
.BYTE
.EVEN

20 0
00 1
10 0
04 0

11%

SMSGTYPE
$FFLG
SLFLG
SMFLG
(SP)+,R1
(EP)O.RO
P

0
0
0

::BUMP RETURN ADDR.

ssTELL APT TO TAKE ERROR
ssCLEAR FATAL FLAG
ssCLEAR LOG FLAG
ssCLEAR MESSAGE FLAG
:+sPOP STACK INTO R1
J:POP STACK INTO RO
s sRETURN
s sMESSG. FLAG
2:L0G FLAG

JsFATAL FLAG

[

————

| CZRMNAO RMOS/3/2 FCTNL TST 2
| CONSOLE MESSAGES

MACRO v03.01 11-APR-80 13:17:48 PAGE 30

SEQ 0244

$06310

200

|
|

5063216
6063220

075
101

8 063231

10 063322
11 06310
12 063476
13 063560
14 063611
15 063611
16 063644
17 063677
18 063715
19 063757
20 063777
21 064033
22 064045

L 063177

7063225

9 06303

23 064076
26 064077
25 064164
26 066241
27 066262
28 066263
29 064277
30 066305
31 066325
32 066362
33066361
3064373
36
37

200

106

117

000
116

040

077

200

126

.SBTTL

101 SCTMSG: .ASCII <CRLF>3FAILED TO RECOVER THE BAD SECTOR FILE(DEC 144)d
116

114

EQUALS:
ALL:

.ASCIZ

.ASCIZ
.ASCIZ

040

QUES:

117

MSHELP: .ASCII

040

Q00

200
200
200
200

120
103
127
124

101
117
110
131

200
200
200
040
126
040

103
125
102
114
105
114

110
123
125
111
103
111

102
060
200
200
200
200
040
200
104
040
040
040
040
040

CONSOLE MESSAGES

122
114

040
111

12
101

131
116

077
104
122
111
116
116
117
117

111
122
111
123
117
117
106
116

COMMA:

UBUSQST:
CNSLOO:
CNSLO1:
CNSLO2:
CNSLO3:
(CNSLO4:

CNSLOS:
CNSLO&:
CNSLO7:

CNSLOB:
CNSLO9:
MSDRVS:
MSGDRV:
LODEV:
NOTPRS:
NOTAVL:
OFFLIN:
ONLINE:
.EVEN

.ASCIZ

<CRLF>30N THIS DRIVEQ

@=a
@ALL@<CRLF>

@ ? @

.ASCIZ

.ASCI]
.ASC1]
.ASCI]
.ASCIZ

<CRLF>3PACK,
THIS PROGRAM SHOULD BE HALTED BY TYPING A (*()a
<CRLF>@CONTROL C.
AS A RESULT,
THE PROGRAM WILL BE HALTED@
<CRLF>QWMEN THE DRIVE UNDER TEST WAS COMPLETED TESTING.a<CRLF>
<CRLF>3TYPE WELP TEXT (Y/N) ? @

LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

<CRLF>3CHANGE ADDRESSES (Y/N) ? @
<CRLF>QUSE SAME DEVICES (Y/N) ? 3
<CRLF>aBUS ADDRESS 2
@ LIMITS = LO= 160000, HI= 17XXXX3<CRLF>
QVECTOR ADDRESS @
@ LIMITS = LO= 0, HWI= 10008<CRLF><LF>

.ASCIZ
.ASCIZ
.ASCI]
ASCI1
JASCIZ
.ASCII
.ASCIZ
.ASCIZ
.ASC1Z
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
[ASCIZ

<CRLF>3T0

ENSURE THAT NO

BAD HEADERS ARE LEFT

ON THE DISKa

@BR LEVEL @
@ LIMITS = LO= 0, HI= 7a<CRLF><LF>
<CRLF>
<CRLF>ATYPE "A" TO TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S)3
<CRLF>3AND TERMINATE INPUT WITH A CARRIAGE RETURN.ad
<CRLF>
@ ?ILLEGAL INPUTA<CRLF>
<CRLF>/DRIVE(S): /
/DRIVE/
/ IS LOAD DEVICE/
/ NOT PRESENT/
/ NOT AVAILABLE/
/ OFF LINE/
7 ON LINE /

| CZRMNAD RMOS/3/2 FCTNL 15T 2
= O O 00~ O NV IS NN —

FUNCTION CODE TABLE

MACRO v03.0)

11<APR-80 13:17:48 PAGE 40

LSBTTL

SEQ 0245

FUNCTION CODE TABLE

TwE FUNCTION CODE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR
SEACw FUNCTION CODE.
BIT USAGE IS AS FOLLOWS:
ATA = BIT 15 1S SET_IN THE ENTRY FOR A GIVEN FUNCTION CODE

S1f ATA SMOULD BE SET WHEN THE FUNCTION CODE 1S EXECUTED, OTHERWISE,
‘81T 15 1S ZERO,

s b cd s e e s

NOTE

TMAT

ATA MAY

INDICATING THAT ATA SHOULD NOT NORMALLY BE SET.
BE

SET WHEN A COMMAND

1S EXECUTED EVEN THOUGH

;17T 1S NOT EXPECTED AS A RESULT OF THE COMMAND.

NN NI PN NI PO NI RO NN

NO VWA = O 000N

V'S (W

WCE = BIT 14 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
l! WRITE CMECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND.

OP] = BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

OP1 ERRORS ARE ENABLED DURING THE EXECUTION OF

THAT COMMAND.

IvC ERRORS ARE ENABLED DURING THE EXECUTION OF THAT CNMMAND.

IvC = BIT 12 1S SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

WLE = B 11

IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

lF WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.
:THE WRITE ERRORS WHICH ARE ENABLED ARE 'WLETM, 'WCF', "DPE", "UPETM.
IF

IAE = BIT 10 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND.

<= OOV

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 TMIS BIT ARE "'TRE'', "DLT'', 'NEM",

SMXF', LBT'', AND '‘ACE'.

BIT 08 IS NOT USED.

HCE = BIT 07 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
lF HEADER ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.
;HEADER ERRORS INCLUDE "'WCRC', "WCE'", ''FER'', AND 'BSE''.

ECH - BIT 06 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

TLoNIS FIFLD Shaues fof puidieh b, v ExéCign

itk

BIT 05 IS NOT USED.
BIT 04 IS NOT USED.

BIT 03 IS NOT USED.
BIT 02 IS NOT USED.

BIT 01

IS NOT USED.

ILF = BIT 00 IS SET IF THE FUNCTION CODE 1S ILLEGAL.
gg 064406

57 064406

FNCDTB:

020000

.WORD

;

OPI

;FUNCTION CODE

:NOP

TABLE

- FUNCTION CODE TABLE

58 064410
59 064412
60 064414
61 064416
6% 064420
63 064422
64 064424
65 064426
66 064430

130001

72 064444
73 064446
74 064450
75 064452
76 064456
77 064456

78 064460
79 064462

80 064464
81 064466
82 064470
83 064472
84 064474
85 064476
86 064500
87 064502
gg 064504

130001

MACRO v03.01
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
+WORD
.WORD
+WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

.WORD
.WORD
.WORD
.WORD
.WORD

11-APR=B0 13:17:48 PAGE 40-1

SEQ 0246

OPI!ATA!ILF!IVC

ATAIOPI!IVC!
1AE
ATA!OPI!IVC
0Pl

OPI!Iv(C
OP]!ATA!IVC
OPI!ATA!IVC
0Pl
0Pl
OPI!ATA!ILF!Iv(C
OP]!ATA!ILF!IvC
ATAIOPI!IVC!IAE

OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IvC
OPI!ATA!ILF!IvVC
OP]!ATA!ILF!IVC

WCE!OPI!IVC!IAE'AOE !HCE'ECH

WCE!OPI!IVC!IAE'AOE !HCE'ECH
OPI!ATA!ILF!IvVC
OP]!ATA!ILF!IVC
OPI!IVC!WLE!
IAE AOE'HCE
OPI!'IVC!WLE! 1AE'AOE
OP]'ATA!ILF!IVC
OPI'ATA!ILF!IVC
OPI!IVC!IAE'AOE 'HCE'ECH
OPI!IVC!IAE'AOE
' 'HCE'ECH
OPI!ATA!ILF!IVC

OPI!ATA!ILF!IVC

EGAL FUNCTION (2)

m<
»

CZRMNAD RMO5/3/2 FCTNL TST 2

LIBRATE
E CLEAR
ASE

sOFFSET

RETURN TO CENTERL INE
sREAD IN PRESET
;PACK ACKNOWLEDGE
s ILLEGAL FUNCTION

s ILLEGAL
:SEARCH
s ILLEGAL
s ILLEGAL
s ILLEGAL
sILLEGAL
s ILLEGAL
s ILLEGAL
s ILLEGAL

FUNCTION

FUNCTION
FUNCTION
FUNCTION
FUNCTION
FUNCTION
FUNCTION
FUNCTION
sWRITE CHECK DATA

sWRITE CHECK HEADER AND DATA
s ILLEGAL FUNCTION (54)
sILLEGAL FUNCTION (56)
;WRITE DATA
;WRITE HEADER AND DATA

sILLEGAL FUNCTION (64)
s ILLEGAL FUNCTION (66)
sREAD DATA
;READ HEADER AND DATA
s ILLEGAL FUNCTION (74)

;ILLEGAL FUNCTION (76)

CIRMNAD RMO5/3/2 FCTINL TST 2

ATTENTION (ATA)

g 064506

& 064507

5 064510
6 064511
7 0646512
8 064513

9 064514
}? 064515

TABLE

MACRO v03.01

C &
11-APR=80 13:17:48 PAGE &1

.SBTTL

ATTENTION (ATA)

001

ATNTBL- .BYTE

004
010
020
040

BYTE
.BYTE
.BYTE
BYTE

002

100
200

BYTE

BYTE
.BYTE

4.
8.
16.
32.

64,
128.

TABLE

SEQ 0247

CZRMNAD RMO5/3/2 FCTNL TST 2

DATA PATTERN TABLE

.SBTTL

i 064516

& 064516
S 064516

6 064520
7 064522
8 064524
“ 0645%6
10 064530

11 064532

12 064534
13 064536

14 064540

15
16
17
18
19

064542
064544
064546
064550
064552

RGDTPT:

000000
000001
000003
000007
000017
000037

000177
000377

000777

49 066643

gi 064654
064656
54 064660

55 064662

56 064664
57 064666

DATA PATTERN TABLE

LWORD
WORD
.MORD
LWORD
.WORD
.WORD

0.
1.
3.
7.
15.
31,

.WORD

63.

LWORD

511,

.WORD
LWORD

001777
003777
007777
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
000020
000040
000100
000200

S0 064650
51 064652

MIXED:

000077

20 064554
21 064556
22 064560
23 064562
26 064564
25 064566
26 064570
27 064572
28 064574
29 064576
30 064600
31 064602
32 064604
33 064606
34 064610
35 064612
36 064614
37 064616
38 064620
39 064622
40 064626
41 064626
&2 064630
4«5 064632
¢ 064634
45 064636
46 064640
47 064642

48 064644

MACRO v03.01 11-APR=-80 13:17:48 PAG% 62

.WORD
LWORD
LWORD
.WORD
.WORD

127.
255.

1023.
2047,
4095.
8191,
16383.

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD
LWORD
.WORD
.WORD
LWORD
.WORD
.WORD
.WORD
LWORD
.WORD
.WORD
.WORD
.WORD
.MORD
.WORD
LMORD
.WORD
.WORD
.WORD
LWORD
.MORD
.WORD

32767.
65535.
65535.
32767.
16383.
8191,
4095.
2047,
1023.
511,
255.
127.
63.
31,
15,
7.
3.
Ve
0.
0.
1,
2.
&,
8.
16.
32.
64,
128,

001000

.WORD

010000
020000
040000

LWORD
.WORD
LWORD

12.
10264.
2048,

4096.
8192.
16384,

100000
040000

.WORD
WORD

2768,
16384.

000400

002000
004000

100000

ONES:

JEROS:

.WORD

LWORD
LWORD

.WORD

gsa.

gzm.

SEQ 0248

CZRMNAO RMOS5/3/2 FCTNL TST 2

DATA PATTERN TABLE

58 064670
59 064672
60 064674
61 064676
62 064700
63 064702
64 064704
65 064706
66 064710
67 064712
68 064714
69 064716
70 064720
71 064722
72
73
764
75
76
77
78
79

064724
064726
064730
064732
004734
064736
064740
064742

80 064744
81 064746
82 064750
83 064752
84 064754
85 064756
86 064760
87 064762
88 064764
89 064766
90 064770
91 064772
92 064774
93 064776
94 065000
95 065002
96 065004
97 065006
98 065010
99 065012
100 065014
10° 065016
lOi 065020
103 065022
106 065026
105 065026
106 065030
107 065032
108 065034
109 065036
110 825040
111
065062
lli 065066
113
065046
114 065050

MACRO v03.01

&
E
11-APR-80 13:17:48 PAGE &2-1

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

.WORD
«WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
JWORD

000002
000001
000000
177777
177776
177774
177770
177760
177740
177700
177600
177400
177000
176000
174000
170000

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

160000
140000
100000
000000
000000
100000
140000
160000
170000
174000
176000
177000
177400
177600
177700
177740
177760
177770
177774
177776
177777
1;525%
1 25%
IZS; ;
17777
177776
177775
177773
177767

WORD
.WORD
.WORD
.WORD
.WORD
.WORD
+WORD
LWORD
.WORD
.WORD
.WORD

.WORD
.WORD

.WORD

EARLY:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD

,WORD
.WORD
.WORD
.WORD
.WORD
.WORD

LWORD
LWORD

8192,
4096.
2048.
1024.
512.
256.
128.
64.
32.
16,
8,
&,

2.
1.
0,
65535.
65534,
65532.
65528.
65520.
65504.
65472.
65408.
65280.
65024.
64512,
63488.
61440,

57344,
49152,
32768.
0.
0,
32768.
49152,
57344,
61440,
63488.
64512,
65024.
65280.
65408.
65472.
65504.
65520.
65528.
65532.
65534.
65535.
43690.
43690./2
43690.
65535.
65534.
65533.
65531,
65527,

SEQ 0249

vTSmaDnDN—VMO=TMNOO=TNNMOMvMAANePMTN0IWMONNOOTMVA=N
OaIoMliaOlMMao0lOaNlaIloMO’avNl—aO)OoIloNaOloONAlUAolO—RAoA0eMOIoNO[WaNoNTeOOLooWeaJdOadoMAGlOOoaNOleOloOANOlVAVloAOOlL—l

qTg—8aggT—Y_NOoT—.S_AN8gTeA—ragSNNeI—raA_oN8gSLrM—aogARNkl~—Na_"8q=AaN—)aAMN0lgN=aA8YNNlM=SoNMMNl0g=AoaN8NMLM=loaANl=-oMNa8MNlr=MaNoNlOANG¢aMeoAN8OltvNIaONLAlMNvdoRaM8NGAldNvaINiNlvTAOa8OlNreGVAoNeNMOltSNo8AealdMSUNAoNlkAONeAo8OlNNeAkdSANoldAeA8LoleSOAAaWl=edAPVAa8[Ll=dMeAloLlkeoAe3tllkAoAe=Ll8Pelk]
- DATA PATTERN TABLE

CZRMNAQ RMO5/3/2 FCTINL TST 2
MACRO v03.01
11-APR=-80 13:17:48 PAG E 42-2

ENRGDT:

f
6

SEQ 0250

OT\F=~eI—VeOOeNON7N2O3“=“NV73T‘N45I56O67=0W“0b1‘w1n2“3m70‘u“&‘abclzso.lb“bs
mYoNLSILmOANl8N0AN82LA8=N0A18M2OL8N1RIL8S2EO5IR38NI2AS5NR82A50N82L0R82‘S7802IR3‘813280P3S873O1W832578R;2Sr687‘O”38e70Rc28gl1’08.6l78R“58(3el2R8eo0lel78el6N3el1e]‘
—-s
o

MACRO v03.01

VxMwe MEOoOvN soN vONE-y -w
-o o

CWOXOE0OWEIOEO0OWEO0EEOWFEOSOIAS0NEWOSS0RTSOIF0SNOFS0VIIOFSIOS70II7OSS07FOI~FS~SFOS80IOWSSVF)OSSIMOSASOINSSOIMSOOSUIMOSNsINSOSCWONIUOIE0SOWOIOo=SOEeOSIOeEOIeOIeOEIOoOvSOvOWOOOTONVIOWOOV0=<V=v
NE Veo guo=

aOWOA0WWOWWMAMM)OSORTNI~FNWO8KM~OFRMW~NFOR8O~NAFO8NNMW3TA~WFFA~NFN<8APOMNN)AA~FND<8NLOISNNMOSAOOLNOLSONOANOANOROAOOeNOeeONOeeOeOeAeOVR~FN0Ao=R==APv
NoSWcDWiEEweVWolXXsI.eVAwWXlNEIcAioIEVXoINwwXSoAecDwAoa0»‘DwVMSOoweAA0ecVESNSsA8oTO—OW oWNI(elEEcALEVaDeVAoSND“AeAcWV)OYTIOsoAUMSVWcMDBeAEaNOUDSeoA8eWVNIceS=AE8UOoeYReS=8AcWENVESeaA8McNeSWA8VoEODAe4Lc8AMTEY*So9eAU8VWEawWDe%AUSc¢OE&u"SeaASV8EiwAcOwV eSeA8ENTNOWE eAAVAoTCcoeEATUEMNe.VAAcOTWENYWeAOTSEcVe.AAMNENTSeWWAaNVScMeWAEMaITsWWeNOAcSVNBAeEWOWaSSeWLSAOcVWINSAe08)aWSROEWMS)ce8)0VSa)ISOAe8Wc0SNM)SeOEaASV0MIcBOAWeW8EOY)IIS0eAEcMVOSDW6ae0WWOc)TSSEAe00VWYOBeuN8AaIESbcAeC8VWSSOe0Ab))UIOeaVLwB-=oI)SWMe0v—cOG)IOSVe8lNI)Sae8t)Ve8a-voO[I)e]oaV)leEIO)laeEDlUelEOaUeMclEBeLn])YvLL-S <DxOVTo
sWwWswX—[osO swVE~sVWN-NX wVWOI =wE—w.v-X o

OWsO)WwWOm~-eE—.IAVNN8DewOV-—OeAoA--&NEOTMO0DNWA)AVOsNS“w1—oMwN=w2AMNY-MDeD4ODN6N-T~3o"AICaOWS=V"1‘ONANvlM"OEAwassE1N53AVDxOO»WIoV06N2eIA7)OMYOsOvOWVIN73AEN1A0)weWAAV0AAO‘OMTyINNTV01eIA5A1["ssIsW(OE£wNVeYa2NWGEl6eR=Xy0"VxssOsva—VA3NeElOA)eSMs1sLONFEV‘NNv0=A2WssNMWOo-5NG=A30SswI‘O6VNGvOA‘NvNvoO+oWA17OV0=NT5+w)A»DoNM0OON=06NOO1VGA1TNONsNDU7MG5A)0OOV-LNwNT~o05O‘AdE=vNVA1=SUTWA5NVVOOINNDAA26S“N=N=RU71O3A7ElIN8e‘27AeA0‘lOSeL31U3NeN1)5VlEe‘T“Ae2Ol0Ie)5AU3Ne63VlI“LO)e6JAe‘5lIN3Ne7NAHeG5O‘UlNNE)'eAeVI6l75MNCM9eAUe)7NVlOe)0eNI0ElOMs“)“1eAUNC1NlV)0N2O5OeA2NlEUM8)356eNWM3OlV8)‘Ae3N0IH‘lN&L)5NOe00‘U5lE8)6Ae0;76lO.ON)SN7NI0eSU1A,'To)8N0A)O0;&)9N0VSNUN,?“&O0IA0WW56.V&6wNOoE)1=0AO"“O&6)2—NA0W5»)3“A0NU6O)6APN,(O[*NW)50A=o=eOIUIdl4)6oeO7A0=eVU—wOdlP)7oRW=e0[—IadlOsO)8oI=eEoNdulssO)9o=eXDP0dlVwOss0”Eo=eLD4]GS=1®Oe2-aM |wOw“R3=4P
ERROR MESSAGE TABLE

CZRMNAD RMO5/3/2 FCTNL TST 2
G &
11-APR=B0 13:17:48 PAG E 43

SEG 0251

O-

e1v“4Ov“vO7A6NA2NMNM30NA5MN26AM76AN5MA26NO0O0‘142‘2163a‘l4al60al1s5o1la6le2l163M641“061’056010621“1‘1“1612<321<325e2“2O“O2”3M7A3N23=2323M0M303M“=

mwmw«swrm.zumrm..oNIeoNRe209382882SBSARRSSARNS
OWNWVAOACO~VANe0DOAOW8=.NoI=TNo=OANTAONNRNANUNAVVOMINNWMIVDNMIOMVIANOhNdIANOVNOONVv~IONNOV—e=Iu5-OIVRYIYoogVTTVOOM=s~gIhF.AsgTnRNN.gnOON~WNgTOV.WgNN-O—NTT
v< .~

3VNOM[OO“0AANgY0]MNV0OOIAgVNO0N“IOAg0ANNVEOIz0VgN0N~MOIO-AFVAM0N%OOOIN0SVAOOmo2NNI=0DAVNOO%<A9E3D0OOTLNNA0NMMO%TO3NNA0O09NMOAS%~NAV3MLM0OA09ANOMAMAS80OAOMN0OEN”2AAOVAM0MmONAAN0MT02AAOVNEN0A3OR0OJANOVSNNOV3OAA0EmM2NONAN0IAO08AOANNENI%3OOAOVNEN02AO0AIMONNAOAAINLON0N%SOAAOAVN25SROAIONNaOSACAN0I5N860ONMAOA%3NCANASMVOANO63ACNMS8NNOAOAO6%AANMNASO3MIAANNON%6TOVAAOMN8OAAAMN6AAOOAS3)0TANOO8F7N7SNOWANS0MOOOAA7ON37ST~ONAAFNOR80J3WOAGFN7)EAOANOOM8)0ANN3T7AOAOAR8O0OANOA0M7)~NOANF20)ORMAOANOO38OMATNLoO0”)AOMSNOTN)8TODOMNN2%)AUOAM3V08OOA8"AN%MVOOMAA08“O)M2M0VON308MOOOUP5)%MOVIOOP5M0”0MOU)0
)SWNAAOWOVIgegEs—VV¥—EWqosOgWpwE=—AoIXsEESTsTg)OC—W—oaAg=ri—XoIsNSV—aOAOgIAV(VsOEVLsSE-—T-w~—SnY)yAszgAEFIsSMaER5N(IF<wO—«vA—=CgA,V3F]rEVSANF—8oPAgO=qITLsE)PO=—oJ8gAW=EV&s—MWAAggVNV%sY—IrOAAgWEqN8OOs%IAApgMSV8—OIMAGGAsqWV8&NASTO—GAgIR&8NOS—AsOMIAGVgW.SRASO—APGITUIS—OMAYGVTs8WT)SOMPgAIVL8S—OMAAsGOl8gOES—INMGAPVeVlL8sTSNO—ANMOeGVlI8XS—MOAeAgVSl8EIS—OeMOeAIAglLSTLSOeSAAggVVlNEsNSSeOAVOGgGlOISsNeAgAloSE&YeSOoLVGgGOlA&SASNOoeGG0NS]s&—MS)=MVPGSW&)ESOAMeN0TISs&MOSVeAV0PWNES%MSO=0WeWY=Es8&TSM=OOeMG0WEN8s&SDAW00G8%&OMMESU=OeLWY0M&sA&MSIVLG00YN&8O)eN00~U&MN%VSTOWvYG00&.o“oOOwO-=~¥—e—SWSe0t0w)&M=OOVuS0v)&ViSNF)v0MO&-O=W—WwNn—S)0I~v0=MwNV&-.YNow~-==~ITO~EN00=v—MFMU&s)WNIVNOP0JVwMDS)EEseeV0=W—0wI=V—N~.WOwoovvL=~UlW*FvUSyVw\EO~eDNAWNV0WTOoMS0s—=Y>sOE“OF0UWssswwAOoeVSEN—EDNTVIENwUrXOCNv.sEsTNW-—T—E~MM=PmWwVrT)V»WNMEOE—=AerTNNO—EWEU.~sws“~oooIwwvOONE£=—-MnvV\wvNOvEWoEMsAUIIEo=[.SWswOVwEO—NTIOT"ATMoaEow-.vVwsSYNhEOo"TWOa—MoDL)EAN=UMSoO)WOM EEN—OO VM
ERROR MESSAGE TABLE

CZRMNAO RMO5/3/2 FCTNL TST 2

eGgv

MACRO v03.01
11-APR =80 13:17:48 PAGE 43-1

H
4

SEQ 0252

644

6535
9535
275

w.“vw -wo~

MACRO v03.01

SNNOON N——

T=WlVeYlOeNleV)lOelNeVS)leMYNl)SeIMleNYlSelNSeTleMNOleT<l3NeT<lO3eTWl3eOMNl)NeOTlDeTOlAeTlDeATSlaTtAaOTtNAlOaSANl~eFlOeLlNe0lIo0NloIOlNoOleeTOlNeOlUoNIlNM=tI=MOT=WI1A=OS]
s.ev~=N.s-. WASASW)WWWwAxWw—-AvESVoT.wWwSWnWOowOWS8oWwwo -L Evw&E&WslE&W&WosoO s8n&sNss&&ss&ss%ss%S©=WWWWEWEIOXW
o ==

gR¥aa—N[IV—YwAVDAcN-OoIUAEEOoMONO8.AVMD}lL~eWYaXN]OoYaVo~—OeLww%Eov&l.bv—NO{WO—AENAaO]cV)—0rNTYIwEX0XLNVUaN48eeN~~{a]vyOANFF—nlVVR~oooSE~w0-“I4c.s“~OgO~—EODSlMF—aFtcEO.U8-beN—FOAsaTNo“e{~OAF—cEULb8(*T~{a(A»eFo—NEU."(~NgAM8ceF—OU.b8N2(N—v<L8oeB?RS"egFOcL8—TU.8e{MoA—YHS(.c—OVANe.UMS8oO1NNGY.WcS$g3OOA)e—NUo)8ee1SgNNGD—.MOeBI—AOMe)cSUO8eB1TqMAve—Na.eBS2gOU8AgNoIM8e—BQOGcS.)oVUeo2qOR=oA—U8OgS1eOOGNc—M.IO.e2S<8GagNSOo=UNNEFAvV.oSiv9)(OeA21CN~NA-OOc(GF—\F=IU.UECUN~&SUW5s8leSVOnT3T7EaOAoM8Gh\geOVWoEI&“O3V9l)72OM0e~OcNIAOM0v8)ngSA$EeFNV.OU&sTi8)lN«eS4MTONo0ME©MOVA)0)S\gEen~IES&sM0L5O9lcTe2)N3oOL<NAM0VvgMV3=eO0.NE0&s*3UTNaS8l~4OB3AUeINNN~TAv8oAMUNOaFNVO=6&cWE0WISN2lOEVeTWN30eAOLNvAAMEAglwemMI.Is5I&s-Uwn=NUEWO9OIlTW33NF—veFMAeMvvMAgMDOeVUrc0~VL&sAAS)8elSMWNIN—eO(<OA.T—vGTeO.UE5Ns-SVUoSL8O~UwVNTM2I)l3~T3eO=M7M<oW)AvM0vWFUAESey8\OVa6AMLsWEV87leTOE~~ANONSoTONY7WvOvAEEvGMUFF=elc.L&U0SMS)2TINlT“NWe=OBSeoANoMveTMO6soL*TVEs-E~WO8W4lT3FIAeSBve0VSrOIoANGcOue.TU0EOsEULVNM—OFM2o)3lTwNOITA08eNA)Lovv=0GeMeMMNn1WNLsUESNNSOMV6Ol3SNNF—eA~A—WoIayLTv0ELIFNe.80WM.sOsUVoVwMAS—S8)l6ToMSNF2TIeOcNONNAEvV~=AGIeO1JV0SsUWTWWNSVO36NIl4TNEAM©eOAWO(oO0.e)NYMoVUTLNOWSOE82NOMI6lIceNOOMMAAIATIUGN1eVOITOUMLOsSNSS2S4lTNWO=MINeOvA~0IOA.WONMeFAONVWUMNSSDLMaV8%WSFW4lrTTEAVOOAMOeSNAEOO03NeMI~YIWAMcOLMWIS53)SS4lOTAoeOOeNWO04.NVeWTIMaUWLO1ST%lrNPeOO=ONAAeAMI20eINOcWUSOo634OILl)~ANSTeWVOTA=.UFeWiIWUoLL~o= VwO=—-NE=M2NO“o)lTOMPeA)oe8aNOOl‘vN=V0OUal=NcXNoVULD1I)“SllOT—TWVUeSAO7vE.edU0oVeINNAMliUVRUMLN5OMl~TvoS—Pr8eIe3OOVO7aWN=IaA0LVdeOlEWUi5”loNALeWMoNIOeLO‘rVvOe.Xc=AUAetSlINATUE—~V2OEwiO5Ll)LOAo8eOeO4DMr7VNWoeSO—=tWMNDA5OlSiVNeLEe5ONa0.TGLNTAdeMOOUiOA2WINC“FlU8AMo~e=3ceNWoALNI=FoOWA0sOVL2N5)Ll00NeNia5~LoeTO.ATNAF=oMEWsVOO2“lo8ceVF3No~IAe—LtTW=OMFe0BUMOSW—2VO5TI lTOe‘ILNAe=.LNMOoUA=NOEsWO 0oMwLo—cVIW5V8T4—LUeIoiMU0)VLOASTN==O“t.0So~OteNON—EI5L%1EW=vMADAONB==
— ~N
CZRMNAO RMO5/3/2 FCTNL TST 2
. ERROR MESSAGE TABLE
5
l
11-APR-80 13:17:48 PAG E 43-2

SEQ 0253

= v ~ o~ o

634
636

000000

000000
000000

9538

”713“5”7Uy—~kanlq&“nwnkufl“w.lzwub0235“2657TNO—OTNNW
-o v= oo o

NW0Y~SANOoeEAA0NeAA0EN(AsAOaQeeNG0nAE(OcGeNaMsAA0o)=NENOsc=AMLa0NoONAcWSN(Ae0oIeNOcNA0Sa(NAOAeNON(IOaM0AsO)0(oAAe=IVS(NoA)e=ONV(ANIoA)e=ONV()IAe0OSA)eSo0GN=NVIe.o0AA)=N)OoeIoCA==N0VIeA7AOvA)R=VIeAAOvW)0NVI(WA)v\eONV(R7A)oe=NVI(M7ANOA)veV)Ie0FAr)RO))eNWAr)I~.B(eAAdO0S)e=(RAJAO(NeSAN—A\)V3=5eoSPAD—O8A)=O)~eIoA——LR=S)0O7Ae—N=M))e-3N—AS\—XOO5VeFN—LOvYYoSVeLMR—v)OMNoA)eNLIOeAvMCo)TOSONeSO=J8eNNMe0AOAo)O0)=IoAeeO8oBOOeAA8MlS0O2EOeAo8AWT)2OeOA8TOM0MoN2AeOAoC8NVTOS)OeAIe0o0OT)SIeLSOA8TCOoNOB)ILAe8MMoO0yLAOeVAOSo)SeAOLFOOL.IYAe0OO)SU)eT ONTOeAMIOINOeSAM0ONV)8No oeOSA0PNT)2IOAeNS00LNSSeL0OAI0OTN2NNoeU8RV0MSLNO8t0o
VN~o)WvOAE£WVAWsOEToVN&E-VASwDnWTVIAw)VYEMSWOUAlIOVEEB-EFW0[owVoe=VWS~~D¥V.N9vE)W1UOT=s-EVWF.EFXwwVDv(EEOMoESOOe=VWWAN1)lDV—sWAAOEVTwEs&N©WDEWWAVOEVswsMDeAEmWM~VwEAS»ieMlOINSZENoWoL ~SswwV =O—AAJElwV&IANSZiAwEMEW.S&*EISVlAsNSOSwNAlE&M)VMNWCSTAeEOsSWMS)=MVNsSNSWIAVUsoASE‘SWWIANlwN&sS5OLAAYENw«ssOWADETNAL--wwwWM=~=S—IIOLaARlNIW»sIAIAOMENEMsWIs*WOIS»LLSAMAsNEISS*VZIWWLAYSNWO-.s.SEIwoo v“v0M—==FVAWVSIW)EOMR*¢JVIlSAWVNWEOSNVMAVIOeWNUSLWSM)mEIeAWU*s“SNAE)U=WVWVMOZELDOsETMeNV—WC'wev STILOANoUYVEWODEeV¢E~ObSIMvFVVGwWWWEUATFM&%Oo)NISEOVWMWT%&EOIVE~WTVLF&ESW—)NRTeFE=&SVVwOEsMVV—MvSFTNIGWElSUWOU~eMsFDW=)IBVWVo—0ENMWErM\OOMsI)IOESNWNAW=Ws.OEEMSY)NSWVNWOEssE+INNr»LWlIEU)N=WSSTOOVISWV)\WSErNWWSEM)N=VIMIEs.sWVwWON—SEEVH==E]I)NT1iVMoIUY..wEsSNW)I—vVlW[UENas)IWMWE~O)NOL--[*s~w“Uw—==E)EI7vv,ON)nMS=*WWML)NTOONOI)MEWsEeFOT—MGV=ZssNIWOL—IIssO=VLVM-E(-Wow= wSowOvo( ~=~— —UTNEVL~]tOEWA ~HE

NMO1ME5OWP-5F~VTM1OEN54OeUV)M=-—NMADT-1.VTNW‘TVNON7TV41N7[-I1V6VoTNEI~5[VOoN=IMoNU=Y“TV~o)T=F-1OM)To=NNMV=oF)]OUVT8Tv)V[WOTFo)UVOT3VNMNRTVEo=)~VLW~TFv)NFUVw-TVOo3)v—=VTVFo))=ETVVoFE)=n)V)T=OUL~To3O=oVTUNOMDNToVVEnMT<3eN7OVTo38)=UEWOToS)G=V1=To.N~TNM1nTONNVNMDMTNENTM3VMVEOT7=IZ1&TMW~RMNOE1TTNS~OEF1TOAFV=T7NRVITMN~O1FVTNNNM3F~E1IT=MNOFvEWT=EOv)MNW—.EIOTMrV\NNAMO~[=TFVMMNFIIVNSAVMTLIO-I~—MNOO\eNWDIS—IvNwV=OTYTnMNS4=OID~FN=WELOIVW=MOSAT~w=T=LNCWNPvLeVO=—
<EEEE<qq@E<CqCEa<EaFCEI<<@<FCEqFqFqFIqFqF<q<qq<qqFSVUV

T“17N=0~}l373T1Me~=s‘“wOl02y=“sN7eO0,=0lW”»W1eN0Too~N7F=lN1Ve=O0lM5U7T0eeN5Wol0—A0m‘7NFoONYFlW10FTeNW‘370oNl=e5w“3=eG‘A—1l27N00eWIlR7‘o3e=0l00O3“T"JeMg7No0l=ol0073T‘oNo(==l02T5vMleW06TOOIlo\7Teoell=WNT0‘l7ToI=eaw06O5BMOI)lIeT27CoEe=NII“0OlT3ZTveI7MOOZleT0I5TO=eN3ZO7lANIONW0WeM&0ZVlIeOI7aZeM0IO0l3TTeAV7I‘MTNvIleZN0NI0WOe8ZTsO7lITOe&0lMI2TlO&7TMaeT0O0WIIlSNM)0eNIl7IIWNtAZ0&0lNO=TNeOIZ0S%ElOYONeTMT=WIOeTl7OI0EMNTlA*oTTI6eNAMPF7MTlNOZ0eWItooN©Te0Nt—7ZO3OWeoTT0&eoMIFlNeOZ5t&=7NTlTteI5wWO=FlN=eoOwI57O1tAv)eOw"I=0lSO=—1Nm7NZt0A"=INw==M1“ON=I7M"1=NM‘N=1oZTMO="I5Nww0MIVT1v"‘OI7A1NIVAM"w“.
CZRMNAO RMO5/3/2 FCTNL TST 2
4[«
4
[Ve)[+
—

—-

MACRO v03.01
11-APR-80 13:17:48 PAG

4&1:
42:

.WORD

.WORD
.WORD

.WORD

J
[

wv w (=} o ~N w a4

~ o~ o

aO2Oww}Ba&WEo0Ew&ILXo&8TEwa&I8EtLII8SawdDEasWieEIMSwAA EY ~~~”ie 5M

)VIRVVWIVIVOVEIVVEVIVIRVEIVVEIIVRVEVRIVRVEIVVURVEVOVVURRVRVVORVVEIVRVVONVAVVSVeRVVeVeVeVevT Ae Le

=e[l==ll==lleelleelleelleelteelleellee)

LA ALALLks Ld

NIOnULO=
e(NN=OOOTOITOO
lG
elMerOOllNoeeMlaleNOial-le=aoNlIle=Miea=lliFealliaTellOaelNa-Di T]l
| ERROR MESSAGE TABLE

366
366

EMT350:
EMT351:

MACRO v03.01
11-APR=80 13:17:48 PAG

O-wyw -W~N

-= EFOWWWO
EXT—NO
E
V
v
MNyOWnm .ON.0

NVOINNdV0[ |OsNNWeNODNV=OuWOMnfMNNI—==NNeN=e.= o

w w m w v m "al"s)

| CZRMNAO RMOS/3/2 FCTNL TST 2
4

.s= wowE=

= w N~ [¥a) o

wv wJ o o ~N w w

077735

100541

MACRO V03.01

11-APR-80 13:17:48 PAGE 44

SEQ 0256

100616

EWT1:

EMT2:

.WORD

,WORD

EM1,STSH1,STSH2,STSH4,0

EHT110:
EHT111:

.WORD
.WORD

EM110,0
ENW111,0

EMT114:

.WORD

EM114,0

100541

100616

077754
077763

000000
000000

100002

000000
100541
100541

100616
100616

EMT223:
EWT256:

.WORD
.WORD

EH223,STSH1,STSH2,STSH4,0
EW256,STSH1,STSH2,STSH4,0

100133
100172
100327

100541
100541
100541

100616
100616
100616

EHT336:
EWT337:
EHMT344:

.WORD
.WORD
.WORD

EW336,STSH1,STSH2,STSH4,0
EW337,STSH1,STSH2,STSH4,0
EM344,STSH1,STSH2,STSH4,0

100465

000000

EHT353:

.WwORD

EH353,0

100031
100057

100743

STSH1,STSH2,STSH4,0

FCTNL TST 2
3

mmmmmmmmmmmmmmmmmmm

OV WN=OOVONO
NN -

CZRMNAQ RMO5/3/2

-ewRVvm[SwUvEmSw-W-—iWwoW-Yv[-=—](M)[
-[oN.aLNOow3o-vav9«l)ras[=woMaOOia3oM-PlIUooaRssn3svVclcENo—maRa.3.0nMeV--wooYD)\-wTeB —WoNOa.3aoe—-—0Vooo.N0WOo-aOo3o=—ooo——-0—[..[w-.oV0=o—-e==~a2YYve30—r—3~=o-=m.))— LESw a~~- —o..<. (a44.s50[][l+«w
[a==waYv=omYwaav=om)[[ww o==])| oN[w=» So

IWVIVIVIVIVIVIVIVIVIVIVIVIVIVIVIVIVIVIVIVIVIVIVIVIVIVIVIVIVYIVIWP2424242402402444424244A44048484044S0404SA4A4A0LA"

ooo oo O 0 oo
OVO—o-OoO—0oOooO—OO-oo Oooo—— oo--OOo~ =- <
4LA ~ 0 ~

NOelO ONBr-~N NMIOVTOo—NNM~
' ERROR MESSAGE TABLE

4
7 3

7
7

4
4

7
7

7
7
7

071450

0
0

0
0
0

101066

NTM MOe .- M=eN- Oe—- 0N -—=
waNNoosnwv “. Now— w--o03— ~a<

' CZRMNAO RMOS/3/2 FCTNL TST 2
o -—

wdvmwvw ~wuvmwv b4~

wv w o o

|N—

LYa—-]d 23 -W— —e“

O
(= l

olele) — —o[lLole0 0 (= l-—-— Lo N

071536

101163

F,STSF

-— O

JWORD

«WORD

EF114
F
EF114 +STSF,STSF,STSF
.
.
o

EFT353:

.WORD

EF114

STSF,STSF,STSF
STSF,STSF,STSF
STSF,STSF,STSF

ooll Lol e

11-APR =80 13:17:48 PAGE 46

e.O-A-Eb—k.Eab-

oo oTo

NOO—NIMOgNTN~—ONeNN~M

- ERROR MESSAGE TABLE

MACRO v03.01

e
OOaooa oo0xex
Wi b WV- -

- CZRMNAO RMO5/3/2 FCTNL TST 2

SEQ 0258

5 071624
6 071667
7 071732

8 07\76;
9 07202
10 072074
11 072136
12 072147
13 072210

14 072221
15 072232
16 0722564

17 072304
18 072344
19 072367
20 072412
21 072426
22 072454
23 072503
24 072520
25 072541
26 072552
27 072562
28 072611
29 072640
30 072666
31 072737
32 072766
33 073015
34 073043
35 073072
36 073120
37 073147
38 073176
39 073251

40
41
&2
43
&4
45
46
&7
48

127
104

125
116
103
103
104
107
m
106
115

103
102
042

1264
123
127
102
042
042
104
103
101
123
042
062
042
127
042
042
042
062
042
042
042
110
106

122
105

116
117

117

117
122
117
116
125
101

117
125
115

122

110
117

125
114
101
m
131
104
1264
127
125
127
122
115
104
105
104
115
104
110
105
117

073314
073343
073372
073421
073447
073457
073471
073513
073542

042
042
042
042
124
104
101
m
m

m
117
123
120
110
105
126
116
116

S% 073707
53 C73725
56 073753
55 0737
56 074037

104
042
111
103
104

101
120
123
117
101

49 073617
50 073645
51 073660

57 074107

104
104
104

104

125
101
117

125

.SBTTL

ERROR MESSAGE STRINGS

117
126
101
116
115
116

EMS1:
EMS2:
EMS3:
EMS4:
EMSS:
EMS6:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@WRONG UNIT SELECTED (RMCS2, BITS 0-2) @
@DEVICE WENT @
@SUNAVAILABLE ‘'DVA'' (RMCS1, BIT 11) @
@NONEXISTENT "NED'' (RMCS2. BIT 12) @
@COMMAND NOT COMPLETED, @
@SCONTROLLER NOT READY (RMCS1, BIT 7) @

040
126

EMS10:
EMS11:

.ASCIZ
.ASCIZ

@GO NOT RESET ''GO'* (RMCS1, BIT 0) @
@INVALID @

111

116
123
11g
123
103
101

EMS7:

ens1§:
EMS13:
EMS14:
EMS1S:
EMS16:
EMS17:

.ASCIZ

ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

117
122
123
102

EMS20:
EMS21:
EMS22:
EMS23:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

123

EMS2S5:

.ASCIZ

117
114
106

101
114
120
103
111
106
103
103
114
130
126

103

101
122
101
120
113
111
105
126

040
103
126
122
126
105
126
101

040
115
126

122

EMS24:

EMS26:
EMS27:

.ASCIZ

.ASCIZ
.ASCIZ

@DRIVE NOT READY 'DRY'' (RMDS. BIT

@FUNCTION CODE (RMCS1, BITS 1-5) a
@MASSBUS @
@CONTROL @
@BUS PARITY ERROR @
@ MCPE' (RMCS1, BIT 13) a
@TRANSFER ERROR (RMCS1, BIT 14) 3

@SHOULD NOT BE SET a
@WORD COUNT (RMWC) @
@BUS (RMBA) @
@''LBT" (RMDS, B'T 10) @

@"'AOE'* (RMERT, BIT 09) @
@DISK (RMDA) @

@CYLINDER (RMDC) @
@SADDRESS @

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@STATUS @
@''WLE'' (RMER1, BIT 11) @
@'UPE' (RMCS2, BIT 13) @
@''WCF''
(RMERT. BIT 5) @
QWRITE CHECK ERROR=‘WCE'' (RMCS2, BIT
@ MDPE' (RMCS2, BIT 8) @
a''DCKTM (RMER1, BIT 15) @
@"ECH'' (RMER1. BIT 6) a
@''DLT" (RMCS2. BIT 15) a
@
MXF'' (RMCS2. BIT 9) a
@'DTE' (RMERT.
BIT 12) @

EMS44:
EMS4S:
EMS46:
EMS47:
EMSS0:
EMSS1:
EMS52:
EMSS3:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@HEADER COMPARE ERROR '‘MCE'' (RMER1, BIT
Q3FORMAT ERROR 'FER'' (RMER1, BIT 4) a
@''IAE' (RMERY, BIT 10) a
@''OPI' (RMER1. BIT 13) 3
@''SKI' (RMER2, BIT 14) @
@''PIP"" (RMDS, BIT 13) @
QTHE RM @
QDETECTED @

EMSS4:
EMS5S:
EMS56:
EMSS7:
EMS60:
EMS61:
EMS62:
EMS63:
EMS64:
EMS6S:
EMS66:
EMS67:

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

EMS30:
EMS31:
EMS32:
EMS33:
EMS34:
EMS35:
EMS36:
EMS37:
EMS&0:
EMS41:
EMS42:

EMS43:

SEQ 0259

@''MCRC'' (RMER, BIT 8) 3

14) @

@AT AN UNEXPECTED @
@INCORRECT DATA DURING 8
@INVALID COMMAND ERROR '‘IVC'' (RMER2, BIT 12) @
@DURING DATA TRANSFER @
@DATA READ @
@DOES NOT COMPARE WITH @
@DATA WRITTEN @
@''PAR' (RMER1, BIT 3) @
1S INCORRECT'®
=~
SCOMPOSITE ERROR "'ERR''
(RMDS, BIT 14) @
@DATA PARITY ERROR 'DPE'' (RMER2, BIT 3) @
@DURING SEEK COMMAND @

PRV RRRS

; 071540

& 071607

POAPPRRY

MACRO v03.01 11-APR=80 13:17:48 PAGE 4;

PPN

CIRMNAD RMOS5/3/2 FCTNL TST 2

' ERROR MESSAGE STRINGS

—VOW—3ENSvoEvOv—o—Jv-~r—D-ON][COo=Eo=<®eDE0vE=@O(D0=E=-WDE——VEN2@~YVE—-CCrw~e-E@—O—KWYrN-O—=‘~V_vEFbSJO=T—Z=~we~)aCME—@WrOxEwia‘DOr.VE?al-Mo&rmeZEVezOmVr!_OFe.I?E.e?(D—WeCeSuNuw’EwDuZVrawv“SEoXOXoZ"mBWetWSvNA“xEe=Ogo=OEoONdtVIw—lAM—o=='—Mlw—a

"_JV®2POMWo)lVmXr—aO2W“WaeM-XrEENXDa«XO“JU=Ow1<VK>FvRW«0OwXluMALaVotN—0fFuk&=Op-n.wDFOLuoLSrNm3l.wVo>taHQ(TFEaOl@mNaT.oT=-tROwm5wWWVzeF‘o-J-OTiD~3).e.owN@2-~ITZw1OLWTN0=01O-Vu~“Iv1W2ECIuw=J35‘“Od<Us-1S5l0uEVV@O0vWW2wm<lOSEX115K“EI0‘6TZW(N2s-=42-EvrI~S/016“W=lz}M0F77V.IZ‘O0V‘2I2Xr-;N°U.N“"7—rDXCOMwm25IVDoE“xE=0‘7OlCX~Ds-A71W.EZEVX[0w-lD“%2°AM3.W211E“lo1RJW67EDX2DJ:017EO—2“IW53VL2AEOY—26KW_N4T060VOXdCAE—Z/&213Rx-LTW(sE50cz»G2OLW105DOA.Ho2“WOtA.E~0.07“Ot=LLVB131fOvU1olLV0“7w~|O2Wd‘7Vw@LOeP<wX0sKAoWSEae1T»du~0X1teTAF«w~1MOESTJL«0ZWO.Oo-ltOoLwWV—@1—luR4WmyI—w-Eowolx2Wa—OhEf=aoV0d70IOZi0T[ww2qEo0m.]N
—o 4[OTepN @dSxue®w~eVgvv -NV wwa

e e 2e s

gOYVM<gN-TAlNEC—ANOR.gNs)—0IV—IgKglNOIN—.0EAAlw.EI—IgVvLyApp0NRb—.TgS—OVCINpf—lOE-NgL—A=RANeVIpiC.gIM—NNOVMgbIlARTEI-pOL—MvIV—“AVlIT.T—gg=OVvLC6~"NRELNLgpOAAV“v—OlPgEOLC-gV6—vTNIIAAO.O7—LgS“RID~M"VC.NF—O—36OVUITLAAlION.8g7LWGVC“S.8O—AS-AONNeIVGLoleI7OC.LgI8TVA]NATWg=g—8TVIlo~WRC7IO.NgSN—O(8NVloT_ONEslC3AATNI!—NV7RNV_O.GeICOAOT‘INOo—SVR~2NV_ee]AI7osURNCN—N=IeR3lWIIoe_NVA8REV.M—eANr8I(RGCmVNUIN-IAlON—MR=GTJTVgNCBCD8Og3"I=MoTVG—RMTY3N.MlTINeOeIVTWC“-gTO[eNRgOGAFS8O.lIJTeCIGgVTNN“oA-NT<=OYVDgI3MlC.LYTOGg8ASMMM.VYLN=OoOIO<NlAe.INNLoNtOMV%IIVo.ALTT=oCYIP9MMUlONY-<NoI0PVVAt.=LwOI9OONAoRSlC.N%=OV7T3NI0v»CNo.O9)eANIIOCOlWVN%N.2<tI00oI"DA9O.OWC.XNIOI0<tvSVlRNoN0vW”iLWDNM EOoNIA~Ae0,lWWNbXN—oOAT00=AIFVtNFTN0NlaWDtTONOOMeA00WVrtNoeTOW“l~s(NIO=NT0ATD=WlWiNeo IQ“TVNl=OstWdN0TSN0etOrFIlVTt=lJAo0MyWFNTl0IN=TAaWON1NdeDlAINaOSOA.tVWO0ASTasANOlNIWO‘tAM=TEoNATN.8AOdWNOl*NTSooNrNvlFAIOtYt"AEToo=P.WWNF=tOVlDAATeNolWTN=OEAWWa-=NtNlOYAWIOlo—Nt
I
o
I
g
T
N
I
N
N
P
N
P
N
P
N
—PEPO@ODoOM>B®=O<O®DOQ®UD[@®=m1D»¥e®.®]J>EVvOWeBDTE~@A-Z--~YDZ~NRON®NVOIFDEsEJNTNOOMt0BLWWxBZWo-VEW&wQmtDEoED@tZOD®W@w[-B-eOEOJ)\aDEZWeVO—tBVVDWrOM--HN~UpABEeW@XaPKVOxsHV=@DEWYEB-M®EOWPm>xX.EXWE=-r®ZIeZBVW-NK—®WNW-B@EDmBVXONWOerMOW-WvW m—®—I~IVDTOEWC®STOZB0O®W4J“]-E0-[(Bw¢®IBWU-JO®wW—]V—vrM[o-®]SvJTT@-Z=I(x¢IOOEB®oa€=~E4ZXWNEO®vOb~FU~~J-VEODKD&TQANMVOe—ZEe=—D-@Wl~iOO®EOE)D@CE(R[®O<=)NVEw— "ENVE—=—ME=O
ERROR MESSAGE STRINGS

CZRMNAO RMO5/3/2 FCTNL TST 2

geT

MACRO v03.01 11-APR-80 13:17:48 PAGE¢ ‘;-1
SEQ 0260

(]¢

CZRMNAO RMO5/3/2 FCTNL TST 2

ERROR MESSAGE STRINGS

115 076337
116 076367

117 076367

106

104

125

0D 5
MACRO v03.01 11-APR-80 13:17:48 PAGE &7-2
106

122

EMS161:
ens1e§:

.ASCIZ

EMS164:

@1S INTERMITTENT OR DRIVE DIDNT DROP ON @
QCYLINDER @
SUNEXPECTED @
SRECALIBRATE COMMAND 3
@''ATATM
(RMDS, BIT15) a
QERROR REGISTER #2, RMER2, 3
@NONRECOVERABLE @
@RECOVERABLE @
@DATA @
@DURING WRITE COMMAND a
@''OPE'' (RMERZ, BIT 13) @
@IN WRITE PROTECT @
@CAN NOT SET a
@DIAGNOSTIC MODE ''DMD'' (RMMR1, BIT 0) @
@DURING DIAGNOSTIC MODE a
@INCORRECT @
@''WRL'' (RMDS, BIT 11) &
SEXECUTED @
aWITH COMP ERROR SET a
@''GO"* (RMCST, BIT 0) @
QWRITING @
@WAS RESET BY @
SPROGRAM INTERRUPT 3
@WAS NOT GENERATED a
Q@SEEK COMMAND @
aPROGRAM TIMEOUT a
@DURING LOOK AMEAD TEST @
@LOOK AHEAD REGISTER,RMLA, 3
QSEARCH COMMAND @
@BAD SECTOR ERROR 'RSE''
(RMER2, BIT 15) @
@A DATA TRANSFER COMMAND
@
@HEADER COMPARE INHIBIT '‘MCI'*
(RMOF, BIT 1

EMS163: .ASCIZ

118 076413
119 076462
120 076474
121 076510
122 076535

5k
103
125
122
042

123
131
116
105
101

040
114
105
103
126

EMS165:
EMS166:
EMS167:

.ASCI]
JASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

126 076611
125 076644
126 076664
127 076701
128 076707
129 076735
130 076764
131 077006
132 077023
133 (77071
13¢ 077121
135 077134
136 077162
137 077174
138 077221
139 077246
140 077257
141 077275
14% 077320
143 077343
144 077361
145 077402
146 077432
147 077465
148 077505
149 077555
150 077606

105
116
122
104
104
042
11
103
104
104
1
042
105
127
042
127
127
120
127
123
120
104
114
123
102
101
110

122
17
105
101
125
17
116
101
m
125
116
127
130
5k
107
122
101
122
101
105
122
125
117
105
101
040
105

122
116
103
126
122
120
040
116
101
122
103
122
105
126
117
111
123
117
123
105
117
122
117
101
104
106
101

EMS171:
ens17§=
EMS173:
EMS174:
EMS175:
EMS176:
EMS177:
EMS200:
EMS201:
EMS202:
EMS203:
EMS204:
EMS205:
EMS206:
EMS207:
EMS210:
EMS211:
EMS212:
EMS213:
EMS214:
EMS215:
EMS216:
EMS217:
EMS220:
EMS221:
EMS222:
EMS223:

.ASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

123 076562

}2; 077663

127

116

110

117

105

116

SEQ 0261

EMS170: .ASCIZ

EMS224:

.ASCIZ

SOFFSET REGISTER (RMOF) 3
: CUNUSED>

@DURING RECALIBRATE @

QWHEN READING REGISTER @

SNONEXISTENT MEMORY '‘NEM'' (RMCS2, BIT

11)

CZRMNAD RMOS/7372 FCTNL TST 2

ERROR MESSAGE STRINGS

1 077735

105

2 077763

S 100002
6 100031
7 100057

2 077754

'
.
-

130

120

EHI:

LASCIZ

040

122

115

EW111:

122
105
105

105
130
130

103
120
120

EM114:
EH223:
EM256:

102

1%5

123

EW110:

g 100105

123

124

10 100133
}5 }885;%

107
}%;

104
};;

101
}g;

}2 100270

105

130

120

15
16
17
18
58

100327
100367
100425
100465
100504

122
137
105
105
074

115
137
130
130
103

105
137
120
120
122

EHW344:

21 100541
22 100606
23 100616

040
040
040

122
040
122

115
040
115

STSH1:

24 100663

25 100705
26 100743
gg

040

040
040

040

122
122

MACRO v03.01 11-APR=80 13:17:48 PAGE 48

101

040

115
115

EW336:
EH337

QEXPCTD

RECEVDa

LASCIZ

@ RMCS2

RMCS1a

,ASCIZ
.ASCIZ
.ASCI]

@RECEVD
QEXPCTD
@QEXPCTD

.ASCIZ

LASCIZ

QSTATUS

.ASCIZ
.:gg{}

QGDADRS
gancsz

EM353:

STSH2:
STSH3:
STSH4:
.EVEN

@QBUSADRa

SEQ 0262

SNGPRT
RECEVD
RECEVD

DULPRT3
DATA3
RGSTRa<CRLF>

STATUS

INDEXa

GDDATA
STATUS

BDADRS BDDATA3
FAILING
DATA2<E=t:>
<

LASCIZ

QEXPCYG
TM "RECEVS

_ASCI]
LASCII
LASCIZ
L.ASCI]
LASCIZ

QRMER!
STATUS
HMEADER
FAILINGA<CRLF>
@
—
WORD
BITa<CRLF>
QEXPCYS "RECEUD NUMBER POSITONa
@QEXPCTD
RECEVD@<CRLF>
@<CRLF> RMLA
RMLA
RMOF 3

.ASCII
LASCIZ
.ASCII

@ RMCS1
RMCS2
@
RMASS
@ RMWC
RMBA

LASCIZ

.ASCIZ
.ASCIZ

RMEC1

@ RMDA
@ RMMR1

~"BIT ""ABRES3a

RMDS

RMER1

RMER23

RMDA

RMOF

RMDCa

RMEC2a

RMDC
RMMR2

RMOF
RMDT

RMLAS
RMSNa

CZRMNAO RMO5/3/2 FCTINL TST 2

13
16
15
16

}

10
}

NN = OO0V

VIS NN —

ERROR MESSAGE STRINGS

F
5
MACRO v03.01 11-APR-80 13:17:48 PAGE 49

101002
101010
1010164

001140
001276
001174

001142
000000
001176

000000

101022
101032

001362
001140

101042

001134

10 105¢
101066

001140

001142

101076
101116
101130
101134

001334
001336
001402
001342

001344
001340
000000
001370

101146

001140

001360

000000

ED1:
ED110:
ED111:

«WORD
.WORD
.WORD

$GDDAT,$BDDAT,0
$BASE,
$TMPO,$TMP1,0

001176
001142

001200
001174

ED114:
ED223:

.WORD
.WORD

RMDTI,$TMP1,$TMP2,0
$GDDAT,$BDDAT,$TMPO,0

001140

001136

ED336:

.WORD

$GDADR,$GDDAT,$BDADR,$BDDAT,0

001142

001174

001442

ED337:
ED353:

.WORD

001346
001342

STSD1:
STSD2:

001374

001366

001362

STSD3:

STSD4:

.WORD

.WORD
.WORD
.WORD
.WORD

.WORD

$GDDAT,$BDDAT,$TMPO,STMP1,0
$GDDAT.S$BODAT.RMOFO.0

RMCS11,RMCS21,RMDSI,RMER1I,RMER2I.RMASI
O
RMWCI,RMBAI,RMDAI,RMOFI,RMDCI,.RMEC1]
RMEC21,0
RMDAI,RMDCI,RMOFI,RMLAI,O

RMMR11,RMMR31,RMDTI,RMSNI.O

SEQ 0263

MACRO v03.01 11-APR=-80 13:17:48 PAGg 53

SEQ 0264

000

STSF:

.EVEN

BYTE

o o
N

PAAAARIANA

000

o OD s

0
0
0

Y
Y
Y
Y
Y

PAAAANA

eBleleNlele

0
0
0
0

[S IVENVEVERVE)

eBNleololeleTlNel]e

CZRMNAQ RMO5/3/2 FCTINL TST 2
ERROR MESSAGE STRINGS

CZRMNAO RMO5/3/2 FCTNL TST 2
ERROR MESSAGE STRINGS

H 5
MACRO v03.01 11-APR=-80 13:17:48 PAGE 51
SEQ 0265

:STORAGE FOR GENERAL DATA TRANSFERRS

g 101206

BUFFER:

101206
g 102212

BUFONE:
BUFTWO:

“
7 103216

000000

18 106222

177777

12 104224

000000

}g 105230

177777

101206

18 101206
19 101206

.BLkw

WORD

USRFIL:

:256. WORDS OF DATA

STERMINATOR IF

FILE

IS FULL

.WORD

0,0

;2 HEADER WORDS

WORD

-1

STERMINATOR IF FILE

.BLkW

256,

:256. WORDS OF DATA
1S FULL

.=BUFFER
HELP:
LASCI1

200

200
14
055
124
124
124
124
124
124
124
124
124
124
124
124
124
124
124
124
124

5
055
061
062
063
064
065
066
067
061
061
061
061
061
061
061
061
062
062

50
51
52
§3
54
55
56
57

102612
102613
102647
102703
102720
102755
103001
103024

200
17
055
123
055
040
040
040

062
062
062
062
062
062
063
063
063
063

062
063
064
065
066
067
060
061
062
063

120
055
127
055
040
040
040

105
055
111
055
061
061
061

124
124
124
124
124
124
124
124
124
124

286,

;STORAGE FOR USERS 16 BIT MODE BAD SECTOR FILE

000000

101207
101210
101226
101244
101276
101327
101352
101372
101414
101442
101505
101525
101553
101617
101653
101710
101750
102003
102042
102100
102133
102201
102245
102305
102344
102406
102433
102457
102505
102547

258.
258.

;STORAGE FOR MANUFACTURES 16 BIT MODE BAD SECTOR FILE
MFGFIL: .WORD
0,0
:2 HEADER WORDS

000000

20
21
22
23
24
25
26
27
28
29
30
31
32
33
3,
35
36
37
38
39

40
41
42
43
4,
45
46
47
48
49

.BLKW
.BLKW

123
055
011
011
011
011
011
011
011
060
061
062
063
064
065
066
067
060
061

<CRLF>

JASCI1
.ASCII
.ASCI]
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCII
.ASCI]
.ASCI]
.ASCII
.ASCI]
.ASCI]
.ASCI]
.ASCI]

<CRLF>
@LIST OF TESTS@<CRLF>
@-====ccccac-- a<CRLF>
arT1
CONTROLLER ACCESS TEST@<CRLF>
ar2
DEVICE AVAILABLE TESTa<CRLF>
ar3
DRIVE TYPE TEST@<CRLF>
aTé
FORMAT ZEROS@<CRLF>
@15
ZERO FILL TESTA<CRLF>
aTé
FORMAT CHECK ZEROS@<CRLF>
ar7
FORMAT CHECK ZEROS W/ WCE ERROR@<CRLF>
@710
FORMAT ONES@<CRLF>
@T11
FORMAT CHECK ONES@<CRLF>
@T12
FORMAT CHECK ONES W/ WCE ERRORS@<CRLF>
@T13
FORMAT MULTIPLE SECTORS@<CRLF>
a@T14
FORMAT W/ HEAD SWITCHING@<CRLF>
@T15
FORMAT W/ MID TRANSFER SEEK@<CRLF>
a@T16
FORMAT W/ IMPLIED SEEK@<CRLF>
@T17
FORMAT EACH SECTOR ADDRESS@<CRLF>
@720
FORMAT EACH TRACK ADDRESS3<CRLF>
aT21
FORMAT PRIME CYLINDERS@<CRLF>

JASCI1
.ASCI]
.ASCl]
.ASCI]
.ASCI]
.ASCII
.ASCII
.ASCI]

<CRLF>
@OPERATIONAL SWITCH SETTINGS@<CRLF>
@===eecccccccccccccccccceces 3<CRLF>
@SwITCH
USE@<CRLF
>
@= = =
=
eccccccccccccccccccs A<CRLF>
@
15
HALT ON ERROR@<CRLF>
@
14
LOOP ON TEST@<CRLF>
a
13
INHIBIT ERROR TYPEOQUTS@<CRLF>

.ASCI]
.ASCI]
.ASCI]
.ASCII
.ASCI]
.ASCI]
.ASCII
.ASCI]
.ASCI]
.ASCI]

@722
@123
@T26
@125
@126
@127
@130
aT31
@132
aT33

READ HEADER & DATA IN LAST SECTOR®<CRLF>
READ HEADER & DATA W/ AOE ERRORA<CRLF>
READ INVALID SECTOR ADDRESS@<CRLF>
READ INVALID TRACK ADDRESS@<CRLF>
READ INVALID CYLINDER ADDRESS@<CRLF>
FORMAT AT OFFSET@<CRLF>
IVC FORMAT TESTa<CRLF>
FORMAT ERROR TEST@<CRLF>
FORMAT HCE, FIRST HEADER WORD@<CRLF>
FORMAT HCE. SECOND HEADER WORD@<CRLF>

¥ YT¥ TV PV PV PV PV TV PV PV PFRs Fo pes
Y
T* T Y
TE N"T"
b
5
5
5
5
5
5
5
5
5
b
5
5
5
b
5

200

a<CRLF>
INHIBIT ITERATIONS@<CRLF>
BELL ON ERROR®<CRLF>
LOOP ON ERROR@<CRLF>
LOOP ON TEST IN SWR<7:0>3<CRLF>
TN1283<CRLF>
TNGLA<CRLF>
TN328<CRLF>
TN16a<CRLF>
TNBa<(CRLF>
TN4A<CRLF>
TN2a<CRLF>
TN13<CRLF>

.END

12
1
10
9
8
7
6
5
&
3
2
1
O

@
@
@
@
@
@
@
@
@
@
@
@
@

.ASCIl
.ASCII
.ASCIl1
.ASCIl1
.ASCI]
.ASCI]
L.ASCII
L.ASCII
L.ASCII
.ASCI]
.ASCIl1
.ASCI]
.ASCIZ

061
061
061
0640
0640
040
060
060
040
040
040
040
0640

000200

040
040
040
040
040
040
040
040
040
040
040
040
040

SEQ 0266

040
040
040
040
040
040
040
040
040
040
040
040
040

103061
103070
103121
103145
103171
103230
103244
103257
103272
103305
103317
103331
103343

11-APR-80 13:17:48 PAGE 51-1

58
59
60
61
62
63
64
65
66
67
68
69
;?

MACRO v03.01

b >

CZRMNAO RMO5/3/2 FCTNL TST 2
ERROR MESSAGE STRINGS

. CZRMNAO RMOS/3/2 FCTNL TST 2

MACRO v03.01

SYMBOL TABLE

.
.

ABASE =
ACDW1 =
ACDW2 =
ACKSTS
ACPUOP=
ADDWO =
ADDW1 =
ADDW10=
ADDW11=

176700
000000
000000
047462
000000
000000
000000
000000
000000

ADDW12= 000000
ADDW13= 000000

ATNMSK=
ATNTBL
AUNIT =
AUSWR =
AVECT1=
AVECT2=
A16
=
A17
=
BACK
=

BADSCT
BADTMO

ADDW14= 000000
ADDW15= 000000

BAl
8800

ADDW& = 000000

BB03

ADDW2 = 000000
ADDW3 = 000000

ADDW5 = 000000
ADDW6 = 000000
ADDW? = 000000
ADDW8 = 000000
ADDW9 = 000000
ADEVCT= 000000
ADEVM = 000000
ADR
= 000001
AENV
= 000000
AENVM = 000000
AFATAL= 000000
ALL
06322
AMADR1= 000000
AMADR2= 000000
AMADR3= 000000
AMADR4= 000000
AMAMS 1= 000000
AMAMS2= 000000
AMAMS3= 000000
AMAMS4= 000000
AMSGAD= 000000
AMSGLG= 000000
AMSGTY= 000000
AMTYP1= 000000
AMTYP2= 000000

AMTYP3= 000000

AMTYP4= 000000

AOE
=
APASS =
APE
=
APRIOR=
APTCSU=
APTENV=
APTS1Z=
APTSPO=
ARGS
=
ASNDA
ASNDC
ASWREG=
ATA
=
. ATESTN=

001000
000000
100000
000000
000040
000001
000200
000100
000004
001514
001512
000000
100000
000000

000377
064506
000000
000000
120254
000000
000400
001000
000000

034276
005340

11-APR-80 13:17:48 PAGE 51-2
CHRCNT
CKSWR =
CLKADR
CLKVCT
CLR__
=
CLRSTS
CMNSTA
CMPBUF
CMPERR

033313
104410
001516
001520
000040
046602
007612
036462
044600

CNSLOO
CNSLO1

063644
063677

CNSLO4
CNSLO5

063777
064u33

SEQ 0267

EDTI
EDT110
EDTI1T
EDT114
EDT2
EDT223
EDT336
EDT337
EDT344

071362
071400
071402
071404
071372
071406
071416
071426
071436

EFS100
EMS101
EMS102
EMS103
EMS104
EMS105
EMS106
EMS11
EMS110

074312
074340
074366
074415
074424
074453
074502
072136
074521

EDT353
ED1

071450
101002

EMS111
EMS112

074550
074561

ED114
ED223

101022
101032

EMS115
EMS116

074721
074724

8801
8802

=
=
=
=

8804
B805
BB806
BB07
BBO8
BB09
BITO
BI1T00
BIT01
BIT02
BIT03
BIT04
BITO5
BITO06
BIT07
BIT08
BI1T09
BIT1
BIT10
BIT11
BIT12
BIT13
BIT14
BIT15
BIT2

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

CNSLO7 064076
CNSLOB 064241
CNSLO9 064242
CNTCLR 046464
COMMA
063231
CONT
= 000100
CR
= 000015
CRLF
= 000200
CTLFG
001326
CYLMSK= 001777
DBCK
= 100000
DBEN = 040000
DBL
= 002000
DCK
= 100000
DDISP = 177570
DEBL
= 020000
DEVSEL
045012
DISPLA 001156
DISPRE
000174
DLT
= 100000
DMD
= 000001
DPE
= 000010
DPEHI = 040000
DPELO = 020000
DPR
= 000400

ED337
101054
ED353
101066
EECC
= 000020
EFTI
071452
EFT110 071470
EFTI11
071472
EFT114
071474
EFT2
071462
EFT223
071476
EFT336 071506
EFT337
071516
EFT344
071526
EFT353
071536
EF110
101160
EF111
101161
EF114
101163
EF336
101166
EF337
101172
EHTI
071236
EHT110
071260
EHTI11
071264
EMT114
071270
EHT2
071250
EHT223 071274
EHT256
071306

EMS137
EMS14
EMS140
EMS141
EMS142
EMS143
EMS144
EMS145

BIT4

= 000020

DRVCLR= 000010

EHT337

EMS147

BIT3

000010
000001

CNSLO2
CNSLOS

= 000010

CNSLO6

000002
000004

= 000010

BIT5S =
BIT6 =
BIT7
=
BIT8
=
BIT9 =
BOTADR
BOTFLG
BPTVEC=
BSE
=
BUFFER
BUFONE
BUFTWO
cC
=
CH
=

000040
000100
000200
000400
001000
033310
033312
000014
100000
101206
101206
102212
004000

002000

DRQ

ED110
ED111T

064045

ED336

= 004000

DRVSTS
DRY
=
DSWR
=
DTASTS
DTE
=
D10
=
DULPRT=
DVA
=
pvC
=
EARLY
EBL
=
ECH
=
ECI
=

ECRC

063715
063757

052020
000200
177570
052622
010000
010000
024024
004000
000200
065032
020000
000100
004000

= 001000

101010
101014
101042

EHT336

071320

EHT344
EHT353
EH1
EH110
EH111
EH114
EH223
EH256
EH336
EH337
EH344
EH353
EMST

071344
071356
077735
077754
077763
100002
100031
100057
100133
100172
100327
100465
071540

EMS10

071332

072074

EMS113
EMS114
EMS117

074645
074675

074754

EMS12
EMS120
EMS121

074776
075017

EMS122
EMS123
EMS124
EMS125

075062
075117
075162
075214

EMS13

072210

EMS126
EMS127
EMS130

EMS131
EMS132

072147

075257
075322
075361

075417
075457

EMS133

075503

EMS135
EMS136

075570
075633
075660
072221
075715
075736
075764
076001
076027
076037

EMS134

075526

EMS146

076066

EMS15
EMS150
EMS151
EMS152
EMS153
EMS154
EMS155
EMS156
EMS157
EMS16
EMS160
EMS161
EMS162

072232
076122
076141
076165
076211
076233
076247
076267
076305
072254
076322
076337
076367

EMS163

076105

076367

073015
071667
073043
073072
073120
073147

EMT201
ENT202
EMT203
EMT204
EMT205
EMT206

071140
071154
065450
071166
071204
071214

KN
&
&
B
B
B
B
B

070166
070204
070222
070240
070256
070270
070304
065156
065400
070322
070342
070364
070376
070410
070422
070434
070444
065410
070464
070476
070510
070522
070542
070554
070566
070600
065420
070610
070620
070630
070636
070646
070660
070672
070710
065430
070722
070732
070744
070756
070774
071012
071032
071042
065440
071052
071064
071072
071104
071116
071130

EMT271
EMT272
EMT273
EMT274
EMT275
EMT276
EMT277
EMT3
EMT30
EMT300
EMT301
EMT302
EMT303
EMT304
EMT305
EMT306
EMT307
EMT31
EMT310
EMT311
EMT312
EMT313
EMT314
EMT315
EMT316
EMT317
EMT32
EMT320
EMT321
EMT322
EMT323
EMT324
EMT325
EMT326
EMT327
EMT33
EMT330
EMT331
EMT332
EMT333
EMT334
EMT335
EMT336
EMT337
EMT34
EMT340
EMT341
EMT342
EMT343
EMT344
EMT345
EMT346
EMT347
EMT35
EMT350
EMT351
EMT352

067420
065310
067432
067440
067454
067470
067500
067520
067532
067542
065320
067552
067562
067572
067602
067612
067614
067616
067620
065330
067622
067624
067626
067630
067632
067634
067636
067640
065340
067642
067644
067646
067650
067652
067654
067656
067666
065350
067700
067714
067722
067730
067746
067756
067766
067776
065360
070010
070022
070042
070052
070062
070102
070122
070134
065370
070152

ENT207
EMTZ1
EMTZ10
EMT211
ENTSTZ
EMT213
EMT214
EMT215
EMT216
EMT217
EMT22
EMT220
EMT221
EMT222
EMT223
EMT224
EMi225
EMT26
EMT237
EMT2S
EMT230
EMT231
EMT232
EMT233
EMT234
EMT235
EMT236
EMT237
EMT24
EMT240
EMT241
EMT242
EMT243
EMT244
EMT245
EMT246
EMT247
EMT25
EMT250
EMT251
EMT252
EMT253
EMT254
EMT255
EMT256
EMT257
EMT26
EMT260
EMT261
EMT262
EMT263
EMT264
EMT265
EMT266
EMT267
EMT27
EMT270

066516
Qee526
066340
Q65232
066552
006364
066576
066610
066622
066634
066646
066660
065244
066670
066700
066710
066720
066730
066740
066750
066760
065252
066770
067000
067012
067024
067042
067060
067072
067104
065260
067116
067126
067140
067152
067162
067170
067176
067204
065270
067212
067222
067232
067242
067252
067264
067272
067300
065150
065300
067312
067324
067336
067350
067362
067400
067410

EMT125
ENTIZ6
ENTIZ7
ENTI3
EMT130
ENTI3T
EMT132
EMT133
EMT134
EMT135
EMT136
EMT137
EMT14
EMT140
EMT141
EMT142
EMT143
EMT144
EMT145
EMT146
EMT147
EMTIS
EMT150
EMT151
EMT152
EMT153
EMT154
EMT155
EMT156
EMT157
EMT16
EMT160
EMT161
EMT162
EMT163
EMT164
EMT165
EMT166
EMT167
EMT17
EMT170
EMT171
EMT172
EMT173
EMT174
EMT175
EMTI76
EMT177
EMT2
ENT20
EMT200

073176
073251
073314
073343
071732
073372
073421
073447
073457
073471
073513
073542
073617
071762
073645
073660
073707
073725
073753
073771
074037
074107
072027
074134
074146
074161
074171
074206
074225
074233
074264
000030
065144
065214
066212
066230
066246
066256
066270
066306
066316
066326
065220
066346
066360
066366
066374
066410
066416
066426
066436
065224
066446
066456
066466
066476
066506

EMS44
EMS4S
EMS6E
EMS47
EMSS
EMS50
EMS51
EMS32
EMS53
EMSS54
EMS35
EMS56
EMSS7
EMS6
EMS60
EMS6]
EMS62
EMS63
EMS64
EMS65
EMS66
EMS67
EMS?
EMS70
EMS71
EMS72
EMS73
EMS74
EMS75
EMS76
EMS77
EMTVEC=
EMT1
EMTI0
EMTI00
EMT101
EMT102
EMT103
EMT104
EMTI05
EMT106
EMT107
EMT11
EMT110
EMTI11
EMT112
EMT113
EMT114
EMT115
EMT116
EMT117
EMT12
EMT120
EMT121
EMT122
EMT123
EMT124

SEQ 0268

076413
076474
076510
076535
072304
076362
076611
076644
076664
076701
076707
076735
076764
071607
072344
077006
077023
077071
077121
077134
077162
077174
077221
072367
077246
077257
077275
077320
077343
077361
077402
077432
072412
077465
077505
077555
077606
077663
072426
072454
072503
072520
072541
071624
072552
072562
072611
072640
072666
072737
072766

b >

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
EMNS217
EMS22
EMS220
EMS221
EMS222
EMS223
EMS224
EMS23
EMS24
EMS25
EMS26
EMS27
EMSS
EMS30
EMS31
EMS32
EMS33
EMS3L
EMS3S
EMS36
EMS37
EMSe
EMSL0
EMS41
EMS62
EMS43

11-APR-80 13:17:48 PAGE 51-3

- SYMBOL

MACRO V03.01

P22

CIRMNAO RMO5/3/2 FCTNL TST 2

| CZRMNAO RMOS/3/2 FCTNL TST 2

MACRO v03.01

| SYMBOL TABLE

- EMT353

- EMT354
EMT36
EMT37

071220

071230
065460
065470

EMTS
065164
| EMT40
065500
| EMT41
065506
EMTL2
065516
EMT43
065530
EMT4LL
065540
EMT4S
065550
EMT46
065560
EMT47
065570
EMTS
065172
EMT50
065576
EMT51
065606
EMT52
065620
EMTS3
065636
EMTS54
065654
EMT55
065664
EMT56
065676
065714
EMTI57
EMTE
065200
EMT60
065724
EMT61
065742
EMT62
065762
EMTE3
065776
EMT64
066000
EMTES
066020
EMT66
066040
EMT67
066052
EMT?
065206
EMT70
066064
EMT71
066074
EMT72
066104
EMT73
066122
EMT764
066140
EMT75
066150
EMT76
066170
EMT77
066200
ENRGDT 065144
EQUALS 063216
ERR
= 040000
ERRNMB 033306
ERROR = 104000
ERRTYP 032550
ERRVEC= 000004

ERTYO0 033314
ERTYO1 033322
ERTY02 033332
ERTYO3 033341
ERTYOL 033347
ESRC = 004000
FER
= 000020

}

[

FIND = 000001
FMT16 = 010000
FNCDTB 064406

FNCMSK= 000077
FO
= 000002
F1

= 000004

F2
=
F3
=
Fé&
=
GENBUF
GET
GETBUF
GETINX
GETSTS
GO
=
GTSWR =
HCE
=

000010
000020
000040
036224
037110
001334
001522
037024
000001
104407
000200

IR
Ive

LBC

= 000100
= 010000
= 002000

LBT
LF
LODEV
LS
LSC
LST
LSTRK
MCLK
MCPE
MDF
MDPE

= 002000
= 000012
064305
= 000004
= 004000
= 000002
001332
= 004000
= 020000
= 000100
= 000400

MOH

= 020000

HC1
HCRC
HELP
HT
IAE

= 002000
= 000400
101206
= 000011
= 002000

MEDENB
MFGFIL
M
=
MIXED
MOC
=

= 000100

MoL

IDXMSK= 000077

11-APR-80 13:17:48 PAGE 514

001510
103216
000004
064516
000400

= 010000

PHA
PIP

PIRQ

SEQ 0269
= 000200
= 020000
= 177772

PIRQVE=
PLFS =
PRIERR
PRO
=
PR1
=
PRZ
=
PR3
=
PR¢
=
PRS
=
PR6
=
PR7
=

PS
=
PSEL
=
PSW
=
PUT
PUTBUF

PUTINX

000240
002000
040106
000000
000040
000100
000140
000200
000240
000300
000340

177776
002000
177776
037360
001410

001551

PWRVEC= 000024

RMDAI
001342
RMDAO
001416
RMDB
= 000022

RMDBI
001356
RMDBO
001432
RMDC = 000034
RMDCI
001370
RMDCO
001444
RMDS
= 000012
RMDSI
001346
RMDSO
001422
RMDT
= 000026
RMDTI
001362
RMDTO
001436

RMECT1 =
RMECTI
RMEC10
RMEC2 =
RMEC2]

RMEC20

000044
001400
001454
000046
001402

001456

RMER1 = 000014

ILF__
= 000001
ILF02 = 000002
ILF24 = 000024
ILF26 = 000026
ILF30 = 000030
ILF32 = 000032
ILF34 = 000034
ILF36 = 000036
ILF40 = 000040
ILF&42 = 000042
ILF&4 = 000044
ILF46 = 000046
ILF56 = 000054
ILF56 = 000056
ILF64 = 000064
ILF66 = 000066
ILF74 = 000074
ILF76 = 000076
ILR
=
002
ILRG50= 000050
ILRG52= 000052
ILRG54=
054
ILRG56= 000056
ILRG60=
60
ILRG62= 000062
ILRG64= 000064
ILRG66= 000066
ILRG70= 000070
ILRG72=
072

MRD
= 002000
MS
= 000040
MSC
= 000002
MSDRVS 064263
MSE
= 100000
MSER = 000200
MSGDRV 064277
MSHELP 063234
MUR
= 001000
MWD
= 000010
MWwP
= 000010
MXF
= 001000
NDTMSK= 115760
NED
= 010000
NEM
= 004000
NOP
= 000000
NOTAVL 064342
NOTPRS 064325
NSA
= 100000
ocC
= 100000
OFD
= 000200
OFFLIN 064361
OFFSET= 000014
oM
= 000001
ONES
064556
ONLINE 064373
OPE
= 020000
OPI
= 020000
OR
= 000200

QUES
063225
RCLSTS 050256
RD
= 000070
RDCHR = 104411
RDLIN = 104412
RDOCT = 104413
RDY
= 000200
READY
007764
RECAL = 000006
RESREG= 104415
RESVEC= 000010
REX
= 010000
R
= 040000
RGDTPT
064516
RH
= 000072
RIP
= 000020
RLEASE= 000012
RMAS = 000016
RMASI
001352
RMASO
001426
RMBA = 000004
RMBAE = 000050
RMBAEI 001404
RMBAEO 001460
RMBAI
001340
RMBAO
001414
RMCS1 = 000000
RMCS11
001334
RMCS10 001410

RMERTI
001350
RMER10 001424
RMER2 = 000042
RMERZ2]
001376
RMER20 001452
RMHR = 000036
RMHRI
001372
RMHRO
001446
RMLA = 000020
RMLAI
001354
RMLAO
001430
RMMR1 = 000024
RMMR11
001360
RMMR10 001434
RMMR2 = 000040
RMMR21
001374
RMMR20 001450
RMOF
= 000032
RMOF1
001366
RMOFO
001442
RMR
= 000004
RMSN = 000030
RMSNI
001364
RMSNO
001440
RMWC = 000002
RMWCI
001336
RMWCO
001412
RGA
= 100000
RGB
= 040000

IPCK1 = 000002

PDA

RMCS31

SAVREG= 104414

ILRG74=
ILRG76=
I0TVEC=
IPCx0 =

000074
000076
000020
000001

iPCK2 = 000004
IPCkZ = 000010

PACACK=
PAKACK=
PAR
=
PAT
=
PGE
PGM

000022
000022
000010
000020

= 000400

= 002000
= 001000

RMCS2 =
RMCS2]
Rl(SiO
RMCS3 =

000010
001344
001420
000052
001406

RMCS30 001462
RMDA = 000006

RTC
=000016
)
=!000006
R7
=%000007
SADMSK= 000377
SA1
SA16

= 000001
= 000020

ey
——

CZRMNAO RHOE/S/Z FCTNL TST 2

SYMBOL TABL

MACRO v03.01 11-APR-80 13:17:48 PAGE 5?-5

SA2
= 000002
' SA&
= 000004
. SAB
= 000010
sC
= 100000
SCOPE = 000004
SCTMSG 063120
SCTMSK= 003700
SCO
= 000100
sC1
= 000200
sC2
= 000400
SC3
= 001000
sC&
= 002000
SEARCH= 000030
SECERR 040740
SEEXK_
= 000004
SEKSTS 045224

Sw3
= 000010
sSwe
= 000020
sW5
= 000040
swé
= 000100
SWw7
= 000200
Sw8
= 000400
sw9
= 001000
TADMSK= 177400
TAG
= 020000
TAGADR= 001114
TAP
= 040000
TA1
= 000400
TA16 = 010000
TA2
= 001000
TA&
= 002000
TAB_
= 004000

SHUT2
057034
S1ZCLk 037600
Skl
= 040000
SNGPRT= 020024
STACK = 001100
STANDA 006706
START
005420
STCDRV 056222
STKLMT= 177774
STOP
056726
STSD1
101076
STSD2
101114
STSD3
101134
STSD&4
101146
STSF
101177
STSH1
100541
STSHZ2
100616
STSH3
100705
STSH&
100743
SWR
001154
SWREG
000176
SW0
= 000001
Sw00 = 000001
Sw01
= 000002
sw02 = 000004
sw03 = 000010
Sw04 = 000020
Swo5 =
0
sw06 = 000100
Sw0? = 000200
Swog =
00
Sw09 = 001000
Wi
=0
2
Sw10 = 002000
Wil
= 804000
swi2 = 010000
Sw13 = 020000
SWwi4¢ = 040000
Swi5 = 100000
Sw2
= 000004

TIMOUT 037722
TKVEC = 000060
TPVEC = 000064
TRAPVE= 000034
TRE
= 040000
TRTVEC= 000014
ST
= 010000
TSTNMB 033304
TSTPRP 033352
TSTQUE 001464
TST1
010130
TST10
014130
IST11
014750
TST12
015540
TST13
016476
1ST14
017272
TST15
020104
TST16
020716
TST17
021540
1ST12
010314
15120
022302
TST21
023044
15122
023606
TST23
024112
TST264
024416
TS125
024760
15726
025302
1ST27
025620
1ST13
010500
TST30
026532
TST31
027354
15132
030136
1ST33
031306
TST4
010702
TST5
011544
1ST6
012400
1817
013170
TYPBN = 104406
TYPDS = 104405
TYPE = 104401

SHUT

056756

TBITVE= 000014

SEQ 0270

TYPOC = 104402
T1YPON = 104404
TYPOS = 104403
UBUSQS 063611
UNS
= 040000
UNTMSK= 000007
UPE
= 020000
USE
= 040000
USRFIL
104224
uo
= 000001
vl
= 000002
u2
= 000004
vV
= 000100
W
= 000040
WD
= 000050
WCE
= 040000

$DDW
$DDW
$DEVCT
$DEVM
$DOAGN
$DTBL
$SENDAD
SENDCT
SENULL
SENV
SENVM
$EOP
$SEOPCT
$SEOSP
SERFLG
$ERMAX

WCELO = 004000
WCF
= 000040
WCH
= 000052
WD
= 000060
WH
= 000062
WLE
= 004000
WRL
= 004000
XS1Z
006462
XXDP
001330
ZEROS
064620
$SAPTHD 001100
SATYC
062676
SATY1
062652
SATY3
062660
SATYL
062670
$AUTOB 001150
$BASE
001276
$BDADR 001136
$BDDAT 001142
$BELL
001212
$BIN
057212
$CoWw1
001302
$Chw2
001304
$CHARC 060216
$CKSWR 061324
SCMTAG 001114
$CM3 = 000000
$CM& = 000005
SCNTLC 062222
SCNTLG 062234
SCNTLU 062227
$CPUOP 001250
$CRLF
001217
$DBLK
057430
$DOWO
001306
$ODW1
001310
$DDW2
001312
$ODW3
001314
$DDW4
001316
$DDWS
001320

$ERRPC 001132
$SERRTB 001600
SERTTL 001126
SESCAP 001210
SETABL 001242
SETEND 001326
SFATAL 001224
$FFLG
063116
S$FILLC
001172
SFILLS 001171
$GDADR 001134
$GDDAT
001140
$GET42 032520
$GTSWR 061414
$HD
= 000000
$HIBTS 001100
$SHIOCT
062364
$ICNT
001120
SILLUP 062634
$INTAG 001151
$ITEMB 001130
SLF
001220
SLFLG
063115
SLPADR 001122
SLPERR 001124
$SMADR1
001254
$SMADRZ 001260
$MADR3 001264
$MADR4 001270
SMAIL
001222
$MAMS1
001252
$MAMS2 001256
$SMAMS3 001262
SMAMSS 001266
$SMBADR 001102
SMFLG
063114
SMNEW
062252
$SMSGAD 001236
$MSGLG 001240
SMSGTY 001222

WCEH]I = 010000

$ERROR

001322
001324
001232
001300
032540
057420
032530
032374
032544
001242
001243
032340
032366
032302
001117
001131
060626

SMSWR
SMTYP1
SMTYP2
SMTYP3
SMTYP4
SMXCNT
SNULL_
SNWTST=
SOCNT
SOMODE
SOVER
$PASS
SPASTM
SPOWER
SPWRDN
$PWRMG

062241
001253
001257
001263
001267
060536
001170
000001
057662
057664
060522
001230
001106
062642
062474
062630

$PWRUP

062546

$SQUES
001216
SRDCHR 061666
SROLIN 061756
SRDOCT
062264
$RDSZ = 000010
SRESRE 057102
SRTNAD 032542
$SAVRE
057044
$SAVR6 062640
$SCOPE
060222
$SETUP= 000137
$STUP = 177777
$SVLAD 060466
$SVPC = 000204
$SWR = 167400
$SWREG 001244
$SWRMK= 000000
$SWOBT 060540
$TESTN 001226
$TIMES 001206
$TKB
001162
S$TKCNT 061026
STKINT 061036
$TKQEN= 061035
$TKQIN 061030
$TKQOU 061032
$TKQSR 061034
$TKS
001160
$TKSRV 061106
$TMPO
001174
$TMP1
001176
$TMP2
001200
$TMP3
001202
$TMP4
001204
$IN
= 000034
$TPB
001166
$IPFLG 001173
$1PS
001164
$TRAP_
062366
$TRAP2 062426

—————

CZRMNAO RMOS5/7372 FCTNL TST 2
SYMBOL TABLE

MACRO v03.01

$TRP
=
$TRPAD
$TSTM
$TSTNM
STIYIN

000016
062440
001104
001116
062212

057140
057214
057666
060100
060220

. ABS.

105232
000000

ERRORS DETECTED:

S$TYPBN
$TYPDS
STYPE
S$TYPEC
S$TYPEX

11=APR=80 13:17:48 PAGE S51-6

000
001

VIRTUAL MEMORY USED:
55176 WORDS
( 216 PAGES)
DYNAMIC MEMORY AVAILABLE FOR
69 PAGES
CZRMNA.BIC,CZRMNA/C=CZRMNA.DOC,CZRMNA,SYSMAC/M

$TYPOC
$TYPON
$TYPOS
SUNIT
SUNITM

057464
057500
057440
001234
001110

SUSWR
SVECT1
SVECT2
$XOFF =
$XON =

;

‘.‘

————————

:
001246
001272
001274
000023
000021

SEQ 0271
$XTSTR
$$GET4=
$$5w08=
$SOFILL
.$X
=

060240
000000
000034
057663
001100

_._.V__.<.‘._.,‘.<<

& - ® -«

DWSmAaSwn0NOVTMW(o—o—-wu~]~1(LLLF=e)\n)ue4oO—~A]yeNSWA@@NWVS-G)E0—OYR=GeO0—Ue«OoG(L10GNLw~)—Y=OOooo-mVi4V0AVOOw©wvN~[BiBO—RWeTRMaO@-VTaGU%M0O®Lvw(e8e=-i1&R0)nTMNeWAGaAO3=n 6&&U00NLD0©D@0=aAi§ §H0\N~TOONVsON*WMOM—O—3WDODVbLeN—rATONGUOTGA—MNN0ONM—e.OOM—NA¢-MIJOT =-=R,NMNO&W&M3OFEO—Jo«JOANNFAO¢MORUOU=INNMMvMITAONM3M=-FoONGIU=MTINC+WO&v—vAvWvONOAINIJNO&rNOeOM=O&ON—nDSMMOTIN0MOONMeIDMV—ANVASOVJNNbOINOOVNOTIMA0NIDTNDNIN—RAIOVYNOMNO0RI0T—OTWN~NVMMBs00N®SNVWNTTOTTOs&0O0RNMTAN==G=NICN4VOMVI0NW0—5NNVNO—SWT0Re0B0VIW[IONN-AAOMVNNMR000INNIONONO=W=DEOM00N0OONGMTAMSO0S0IW0V=~TO=ONA~WG0NOM®ReV0EmAOmGD0RGI~AE00DG0eR00OLuGe0t0rVYom ~NosOJItA0RaV~OmBBG0OMGaMVMO=VWLam€0TE"0UI0M0ONB0OOaeSGLW=aG.R0T0C0MITL0@aMI¢A.@6D0OI000N0aMVGaE@00OId000MNOa@R@GPGaYOA000dDo8@GN@]000[
-o*ao——o—]]00J-0nol\0n2o—g—-~eO-O~l] Oo0=oo( ooa wwX o~ wo we o~ wM w< Sw=V wO "1 §" [' B" i" ¥ MOaYOV3OTAo3OM)NRRRA—OFLVA.sMMVONMl3N~FNJN=ae))aNO2TrNoTl—N-N—v=—YVVeAae—UNOIM)Jr\V—beNJO~OUU-NUvOWM0MESee0oNMMNM=NNItQO0Oo==——OeaMOON=NUI~ONTeOoOOAekOOev=tsIU—INI——eTMOMLNME)Mv1—YoONTOoNVVFeNEM=aIS«lMJ MOLTOUNNRAV)aIMODUNOTlEVN-MRAL«NaANNDl=Ov~1eNaA®QFNlWT&V2VvD—LI-=O@—TaNN-OnLD«toG@aNOnGt0—NgOMNrVO[N@w—oMoO (—oR1]"eV—r_NNo—e\-[OGD—[—yO=aaD¥¥ a=GeMVGOMO=lP0u.OP00OnOaeV6VM09wGl-G4010nOOYOOeOM0aaMGlV00wG0G0"n0OOeV0VOla@VGMGG1dOO00OeOMOMMlOGGO0O0LM@0oG0GP@Dl00
v- @OoODUEOODOOOO@ODOo RDUEDUOEOdDODouURD@ O W

m‘J»IWoBcI”3lBao-zl>L-—o—gT"aMlnao(~r=~RCI0>NOoWDcMoDm)aIoN-o~OJRys€-(o<2==ETOW“L[=ol]3NyUM1m(a[W2“7No2‘.S“BSVW“MYD-©lW33VOJOM&WaRDsYNVWCesOSVYOOONN-)—N«NM«)0&ATN«VMQVaIN3VN&NE))VOOT«I&VM&=MMN)EAN\VOnIMM)NBWTa0&&NNONEOv0NUWMIONN~ONONOOeI&OOOMNDNNT~DIOJFOsM—MU=OENMTOOOONITNO&CMFONOT—ONITNENWVONO\OONoEe¥—w=2oo&v===MO)OF8<o-LM=V.NNOo==WN*No—oo4M ]=OU=_~"L2TNV WO——DM‘L<l=A—&b«“<"NPA3P‘Ie“Sze‘N8C5B=‘33“ML5wEND2MM=OO=aM0I0VV%oM=aMn0OOIWMaONOdNMIM.OaONV0M0IOOVNMNO“o3&Y
| CROSS REFERENCE TABLE

{

(CREF V01-05 )

MACRO v03.01

= -- R R E E [
=E«&V-E« Oa=- O®&ITOsaenrs—ee-—NE-N«s Mo
O&[ Oe*- M XNS-«8&FT--«E«NON-= O5
- LI =

. $SGET4

e& -« «“« &--« K sR RE L-« e -«
&0--T« s &&=0 &a OOVXKeB[-« sN-&O« O
-« 3 = LI

| CZRMNAO RMOS/3/2 FCTNL TST 2
B 6
11-APR =80 13:17:48 PAG £ §-1

SEQ 0272

13-20

CIRMNAD RMO5/3/2 FCTINL TST 2

MACRO v03.01
CROSS REFERENCE TABLE (CREF vO01-05 )

¢
6
11-APR =80 13:17:48 PAG £ 5=2

10=115»

10=149¢

10150

11-3

11-30

38-6+

38-7

38=7+

38-7

38-12+

0VV5O&NYYYVI—YSVVOYYMRU)NTJMMDRYV)OE)aVSTT)M)ENEMTN&MYR\NFM&OIVOOERSOONO3O\0OOOOO(\3NTN=EvANOOIN——50

13-20#

10=122¢

SEQ 0273

ONNUM=OO0OTNN

OC&8OON—&NO&OW-N&J I&UTNM-OI—&T-OM0eE—OTNO&r—N&e—-—

OXDTMaOl—-MXLDOsNO&«WONOO0 &OTV—
OO—NUM3NNIe&PUUOMM&-s—«—AJNN&=ITMGOM=IOLTN=U MN.OL&A]NON—G NWUOWOOTNOO&=NNNW--AON

«
&
E
R
N
O
N
s
&
a
M
N
E
MO—A)\OY OT3IW7NMV V(ODN)—=Y oONTUWM=N eR &-£ sMSE&JFJONe—a
Lo-u—d

$GET42
$GTSWR
| $HD
| SHIBTS
$HIOCT
' SICNT
' $lLLup

38-8#
4-487
&-789#

38-9#
5=-0#
38-1

38-10

38-9¢
38-6
38-1

38-6
38-11#

4-487

&-487

38-6

38-6+

38-61

LIoag0VLIltVaN

5-286+
394+
516+

87+
15
32+

5=0#

38-8
38-8
38-8
38-8
38-8¢

oo o o co co oco o o oYo TIININININININITTNNNNlNNlNNNlNRT

$INTAG

SEQ 0274

CZRMNAO RMO5/3/2 FCTNL TST 2

CROSS REFERENCE TABLE

SMAMS1
SMAMS?2
SMAMS3
SMAMSL
$MBADR
SMFLG
SMNEW
$MSGAD
$MSGLG
SMSGTY
SMSWR
SMTYP
SMTYP2
SMTYP3
SMTYP4
SMXCNT
SNULL
SNWTST

SPASTM
SPOWER
$PWRDN
SPURMG
SPWRUP
$QUES
$R2A
SROCHR
SRDDEC
SROLIN
SRDOCT
$RDSZ
| SRESRE
SRTNAD

| $SAVR6
' $SAVRE

' $SCOPE

(CREF

MACRO v03.01
v01-05 )

1 =APR=B0 13:17:48 PAG £ 5-3

SEQ 0275

38-8

13-20+

38-6

38-8

5 -0n
5 -0n
5 -0n

&=789#

38-12
38-8
5=0n
5=0#
5-0#
38-8
5=0n
5=-0n
5=0n
5=0#

38-12#

38-12+

38-12
38-8#

38-12

38-12+

38-6

5=0n

&-789#
38-11
9-19
38-11#
38-11

5=-0#
38-10
38-8#

38-10
38-8#
38-9#

38-8

38-1#
13-200

38-11

38-1#
9-19

38-11»
38-11

38-11»

38-11#
38-5

38-5

38-10

38-7

38-6

(-782

4(-782

(-782

4-782

4=782#

4&-782#

L-782#

4=7828

4=782#

4-7824

9-19

SEQ 0276

f
T

(-782

mmmmmmmmmmmMmMmMmm
e O e

4-782

mmmmmmmmmmmmmmmm

$SETUP

CZRMNAD RMO5/3/2 FCTNL TST 2

CROSS REFERENCE TABLE

(CREF

MACRO v03.01
v01-05 )

6
6
1 ~APR=80 13:17:48 PAGE S=4

4-488

| STIMES
| $1KB
| STKCNT
| $TKINT

' STKQEN
' $TKQIN
| $TkQOU
|

4-488

38-6

38-8+

5=0#
38-8
10-4

38-8
38-8
38-8

38-8

5=0#

38-8

5=-0#

38-8

38-8+

)F —MN— OON—O—

GNG NOAINTOTNOMA~ YJ evN\ eTgTR—
&V£kl—WWM][Mn¥&aaNgaMmNNA\MNInvONNGNOON TMLLO@Drt—N—
VVT]®NeOTW-VOTBVOTWOSTOTTN—MTNe—[
B V- MO

$TKQSR
$7KS
| $TKSRV

4-488

SEQ 0277

$TRAP2
$TRP

9-19
38-10
38-10
38-10

G0NO

LI TO—0oOoo Del TO—WMONO ®=-TM [T¥Na ®—NONTO LB

—ee=—e—ee—e—

$1PB
$TPFLG
$TPS
$TRAP

Y —PA — — —e e —

UN -SRSO

NLalalLg NT N=T1NTllalTN TTNLN[N
V-Lael-aBLlOalO-JUL=M1e—
TBwNN TV-N TNLTTNMTNOLaN[OV
LU
3ON= Ny
OO~
-®
ODNN
WnOONITNO
N T Nh *OO
—MO
LU

NWVNO
~—

38-10

SEQ 0278

‘“W‘S ~" P =W
>‘O.IS“.)>WWWUWWWW=17=PPPPPP]]UCCFMSS>=r—¥Ooo
<NVOA(LDoOaTT—RgR——”-OYlOI“GgaogNO¥—%RNhAuC—OeTONW=VOeGSNM¥—YSGTIODO-B——NNwOO~.—AS»ISAOVWAWlVWAAwWAfAlF]VaWAlaAle’RWaAlNaW[lwA’=aWllAe’WamReAlwWAAmwVAWAR»WAwdYAVmeoYlWEeYAVwYWeIAV)L~~wY—WaaENMAlelmvValeAvalNXemV[Oe~aP~FlD~OmF~wFO~o~UFLa~.Gl0Nry“lG0LNeGaU0lLaG0l‘N(—.wIOo-w£ =_4.-}]—SWA‘oA~F—STo~N—vRW“B_MMRNGao0MdOM—mNAaFGd0nNaM“aYGNoO00VIaYAwd0eL(|a~a26M0]N0ldN)$~Oae@Gwd0OOOa6MwAa0d0aMeG0d“Laa%aoMMw0dle¥~e.'OOaN@$-lMG«00lO3“eO—M@U00LrLMBv[aoTaaw=a@30L0—0ll.aa-aa€—l0—0l0
NWAJr—0(TS3oooNOeLa—AJ——O"]l=eBIlODyW—DePee0T=VTL]OOV———elNey-OROM—TvleUO0e—OM0——u_e[»—+ RCawsT-TTSsTeeTSRSmBTwBTe -R~][e~o~]1H81M0N[ a]w—lU(aLL~oM=@oL-g—neloa1B)l]]N—=l1L
<—T=—AlY—T—=V—oS—Y85bt W=M3O5%833e
-F2RsMtO2TNal~3sOA3S—lO0N3BO~ibLJ w—Tv SWNeAw2IONSx<=nOMmN~mRo9-N-:1OuWERB~T7—u2N=UNOTUVr=X"OhNZa7iNlV'.awslmMLeuZM|rnM($9VM3"1%9\TOo=)Ce=OlO|Mo¥OaoTMM=2CU0YW2aMR0
=
—TONMBM0PN—O0—hN—OL~VO—N« LO[-Mo=21ib]0l s0MoB—lU"3—LL-oaa—0l
CZRMNAQ RMO5/3/2 FCTNL TST 2
MACRO v03.01
CROSS REFERENCE TABLE (CREF v01-05 )

=k3

LR3.

6
l
11-APR =80 13:17:48 PAG E $-5

SEQ 0279

-Wmwm

W-w

- N

Lw1

>-=1=1o~=]

kLa3

" AENVM

5=0
SEQ 0280

76‘22087875320965“5459
L100Ib’8000I
S
S
S
S
S
S
S
‘
00000000
000000
e 8 2 2 2 2 2 2 2 2 2 2 22 2 2 2 2

M2ONOOQe-)iNNYVOOOMVRWO2N-R—F—Nv_MRNOAOO2BRANCNN0OARD2ONNOOMRYNeOWAEN2MNoGeO=RAONNNVOMAE2OWRNNAROMeENMNJIORlIW2OTMEN*VoNaRIOIMVONNE2—MNO*ONIRIN—NOMEO2AMONONRGEONOBRCO2NOE=I0RNOONW3REOBP|RM2SNuMNO00EmNWR=7EO00ERm2ONRWEMN00RENM®0R0RIe6VI—0RV8MNE‘e§"WN
0625W33L32o1OMwM070N72=J<WTR7TI082OR5D62ER
.R1M5=2N62>5132O.3i-792s..3a'OV-772.*.«05N*|+—2~32..O"RMRO6TE.32.O5-NNN4.—.2S‘=F M.8.12NO3NV..352TO_76-N
Og2H05—.A<IN—R4g]—8SdTa2——N.OMt0-—MB—0O_AOO2£——.N9M0EMp£Ir.—CN—sl2O—NID—7OaVl.—N—N6_O2e.N—OI.7W—NOO—N.5MN.2br-3—O—.2N_O6s—M.N1.t28—MV.9V—6vI.7.A2‘ONv‘5T_.22RNMW.N‘2.92OeA.—A337NMI.“2OOU_T-M‘5Fe.3W2N—O60O"O7.62WoNV087O~eV=.996e
RN
O
I
T
O
N
C
YqON
N0A—O-3gMOqN—wOB2IFqEWWOCTOqNW—E0VINqNND—OV—OO—qNNNNqWONN3-0
III—NNiN~—sNN3VN—ITO*N—3N—NN—O2ONIMC—VNMONINONM0OI0UN0DVOTWMLNONFP
NO-qA-Tg—OCaSqNI0VG—N—BT—NEOS—CN—DOV—NTOgT—M—|O3N—Il3A“2*—NsIt3oVN3E0O.AgTNNVMINO~0WO0NAN0ID0MO~I8NNT

g‘.Jag>smh7goMeT=.>c——ee1o346me1.TeOg.A¢A*0>5ateu—go*(1t..*3Ng=.FIel—0gc?—31d-.ceoeGgTA°)2!¢—'Ge(Tge:r9°R3eA)].eTTgE.8ARAtGgggR.6EC'¢=W—ee§Re8EAGOiIIT=NeeRgtE7r*sI.=eReTgaaaoE5cesTV(§RvgGGmVaa—2V*VA.ETe*oT5gR1***N1E#T+e——T—S1—R0O‘RO§eOTeE—N80NT1TeTeOEOG—26OE2eB9GYgR35NE3LEUeeTeGTN‘“SMN‘I=egeEsoNN55VTI5S=3TeEegMM%6N=RegegD‘7MRgeegT47’=eeRT7a—9T—9
CZRMNAO RMO5/3/2 FCTNL TST 2

CROSS REFERENCE TABLE

APTENV
| APTSIZ

APRIOR
APTCSU

APTSPO
ARGS

ASNDA
ASNDC
ASWREG

38-5

38-5
9-19

MACRO v03.01
(CREF v01-05 )

5-0

25-31

25-326

38-12

38-12#

18765‘265'29079 Me—=

K
6
N =APR=80 13:17:48 PAGE S-6

25-341
25-356
25-360
26-117

SEQ 0281

26-121

5
3
0
9
7
9
7
5
6
‘
3
0
9
7
5
3
3
2
‘207676‘53093653211‘369

40-77
40-78
40-81
40-82
40-85

5<0
SEQ 0282

ee R

ATESTN

[

—*>\M9-.1D8le.dC“vu1w—.’a?.D89folia9.35.Pln4ua..-9"4q..A¢d)“a48—-.aAN.)8~B%—.1c‘C.wfsF—c.1CtW—Do..uNDN»3\-.r&I|s”—\O..,raAW\4..s.'N%|—a....Wn—IVVMNAN|.V4ID.HssV—\WnnE(csc.eNnaacscAeraaOe|WVVMssooneO0ssor+Nv#*e»ssI.Ov11Ne«1O~NeS11G2s2N2GOG22O2G33WO3UNOGO3N3|30W‘-O%VG“O4‘N055TO5®W05T5V5W0N5M5506636=N0666306%7|OON777O0N777O5N88I8N®5M8*8MN0949=T9493T999o
i

10-149
11-1

.- . . -.-.

v01-05 )

MACRO v03.01

-= - |- |, |- ‘e

34-55
9-96

[a¥]

4 BN B000S0
96%

(CREF

Ov o= e OM WO

N0NOI8OYUqWvW<—ANqgOg~7bp0ONT03——rM—Hq=q0~{F—Nv0OON—O—gvN—A."—~0q"W-Oa——N—ON—Ogv\x0.—"NMqNMaOqOAgNNI—Ig)v)NA——.—IpC0N—RepMIG{W—NON8——OISNNNMH——gMpNMOONOM0-vIv"—B"AWAN——WGW=A{0-g—NNN".I.OA0—0N—AN0.qN{O—IGGN.DO~OIWCN—MF——OCCGIIqG-A"q—OGEGNN~ODS—O—DAMCNO——~AN{——N=NM©MOED0O""IINOODM¥M"WG{qNRNoo——MBNOD|vOM—~=NGOCTqW{O(—0NNN(—M—O.NMOOWM—T1OAMMV|OqN|g—T—O-N00v-IC——"N{NSqIW0gGOO{Q|TGNAO—NN00—V—DI—NNM0NO|q(C{g——PA—OFOMO")ON—ISNTOAOWqg—|=TqNOoNoDOpIU=——ND}MO{—T|——NSM—TNNOOMIOTVM|U{V—|—NYNNsOI—MTa—RA{M(—gcN0AONRVOOLs—I—aTM|OF—pN—NagNrWNOWON—a|sT—ONO——qp=sNAAMEOAvVOaIN—{aeTGOWG——-W—NANANOAw0M0VVTMrONN{—gOOMN=-—AITAOwV—_THO—W=O—Ws—NON©AO—OO0NNN,TOM=s0NW%gIVN=A==OO8+—OTT—OMN—MN*|*—NOOsN0G#NM_AOLI-v¢—NGO=NNOO+0—O—NNG—TRN—=OOIv0r|OGION|—’TAOON——O=e-0GOONON—ONNM0WIILOO~o——N"OTGNNONO0O|GNOR—MGNTNONAAO0GGMWF0TOWeON0G|GDNNNO|RVN~N.|TE=T0wMGGMINWAN=GNNONITON0IOGLI—oT—ONOO|N|NO"LG—00I0G0oMGVV,NO-O®DOGAON000oIN0IMNOFGNO000|ULo_NNTNORTGOOWNT000NIG®MONDN[e=A000G0INGNANNOINSMNW[00G00O|—ISIFO|-|WRRTN00N0LG0wo.G=IOO00OW0N0OLNW|TNOAAOe000g|G0N=AONTGIMMRO0.00ON0OILOONCOOVNo00M00OLNOTAN|MWMMs00O00G/AVN=NNN—NOAW-i0No000GT=0G=O OOWA=oOo808TNNL0O0MT0oTO=RM'oLWVNV
AaqVYYOOHqqgT=WEY—pD00—=—"MAAUqw=qDTN3FgM—YIHpY—G.AnWEU=qg-—N0EqNYo——DWAMHq—NNR—p|T&OONI—q|MGEEwEOqqN—NRV.CM0——AEEONgqqNE3RBB—RE—.—OAOq=|MqqATLT—ME——SCNOCWFWqNRYTMS—qYESCGNO{M{O—gM—T—NOqSWDO—E"|gN<0O—M\Y—gCCIDqOBVMN—F|{N=<NE—8-—OOWOIY|"gNVN{NWL,gMDD—ToM—F—C{O"—RNRENgMoOv=NS—Tqe—G—=NOVOMCODv—N{TNY<MqVOOW0q—e—Mo.D—GOlDq=WggNNVOO_Ge———0-~DM0DN——GOM —=HOInOR®V»—TN——OIVOO00MNF—V=|{|V—ANHOOOI0—MNHIM|===WOOOoOEBpVDW"|pONsOAO\g——aIIs"—-8cNes—OaSWOra|MMNQaRVWg-sNpsO|a"—aWOeN——R|N0sI=sONPeOvVO(—ssoOVe\+WN|JOIVI|-sso*NMR=e0+=OMNWOOw-NVeI~=0N-NN0I—OFeewMNNOOAAO|W|MNeoMD-NDD—M|-NOOEOI00AN|‘NNOeOVI00I-NTNM—ONNW7IO0TWONMT|=|NO0O0R=O EINM"NN00O_TGNOMFOON3R-I0IW0.NTON=N00v.CNNTT=T|O00WVMNNN-O0IIG0VMANMAR|O0V0I,NNONSA=S|NO500WIONMSSR3S0T0N—ONMv0D500eN—AONWO|=A000DM|ONM=IVw00Ov05MNNMDOWBO|N0=0T0AMNONW0sTI00TA0VM0N00M-NO|0VeeN o.0BMN—NO|MN®IoV000TWAM/RVTOON.N®"§"
U5aAWg07UR0g1q~—5qO—8R0g~2AqGM—0~5nNqR—7gNW~20|A—Nq6gFI—2qA—7RgO~9qNR—3RO7qEM—9MqRN—‘=qO—7qW(—“IgA—8q-e—~0A-I5NM—8NO0O_w6—O9|—2NN7—9AAN5M—W7|O-N~2—N‘O8_N=A2—‘N—AI9_TA3N—E7N—=3A8A—M2_—NA=6A95ON9‘DGO7R11NNM o6
W|mWmw—N||0OO0WANW0NO0VW0M0®mEAI® wWR= N267302099
| CROSS REFERENCE TABLE

' CZRMNAO RMOS/3/2 FCTNL TST 2
6
N ~APR=80 13:17:48 PAGE $S -f

SEQ 0283

41-3n

12=D79

12-D79#

12-D92

12-D92# 12-D92# 12-50?

12=E05#

12-E05#

12-E17

12=E17#

12-E38

12-E 384
SEQ 0284

WXNQ=W-SVA..&QOltwwNlm.Al>.JeXlwmNnV<lr0o.lcmlrq~NlUaM.lNlT.IMlgAT.NlNAaMNOlo'waNlTp"WaOslu’IalTSY<IOOVT~gIVSTVAToVNI0aYSM.oYIIVoTTtgVI0oNXtO1oNAMNR2sItDA3ToOtAT%=StAU5=NOte=I6tlD789C0AD000ONm-OMNOmN[v—o<IoNIONWONoC=~wNm=vEo||
ox |

oPe2=k=u]OTTNaW1NOG—GA-gQNOIUL0"——MlaORO_W@2Aa—eYD-clgSNa—DMaNMMu—"l-ITGL—L0DNNl]Oo®UTLVOAD_1ILOv—a—AON21MOGSYlVINP0eMBaa-t'I—O&NI=RDgU9~=N~TT\LOO =N—NOLwOo—1N][T«“OA=lNTeLNON ——TTO -5=e-)&L"L“]I—3A)e~)GO-a—e—l&Ln“OoRNe=Ie‘LOoOA~gIeai)~llOo-Tg—yO‘gaOAOT—VIl0"g'“La\VO«N~ONIlao3ge[l—TIWAgVOO—oTNINO4I=)L")l0MB“MTMeOIOOlgION1DIMT[u~U.g00I0Tt—[Xg‘yLalOaMOTOVWIe4S“C(Ag"OElOO NW”NINONaIOINevglIROCRWSaI~-—L-oIlE=TNN0OVgaD—TIolOOM“IJ3OID="OOgSaIRyTVOlME="gTEODaNORTO)I—I3—bNOOgI—T=aOIAIO8l3IbDTORSg=NaNNOSOIlI3O=TRM0“gVYMaTOIXNWI2lYo=000gOOAOETACNNIIIl2Y=N000XeT3MNIaM2TOlON000“7I3AIR2IONNO VTOlIT0—00AE7D~LAXTNNlMIr—I2O00SIvEN—~IT0—e--[RI‘N——VO“NDOODNO“DAO‘OO6D2OOM~aN0EN02—®)@OrONMN—M—NNgT]—00LY0VSo—dW-oOOGo—VoN0eNeYw2RO[o=No4la—O0okLIOW=W-d=0=ya_-NL0=OVN“4NaTGWNWWl—F[O=lM.YaO—eFNF>~|2-—O ~.MBm0xY'O —LaL-O~=.-oP <4oN —.w~-8woEo[Poa'.N—[Vl+Q|_mI|
O]-1—e[<MNOON—(4«V—J[]UUL<~NoOF=aIwgVr=[——K1eOBClNN0lWMIaoIuVW®VN1N——e-&LTaTTo\OLRNoO-J—lNOy[ODao0eoODW[-—v—al—¥ OdOMO~VTACVIoAU0))0awONNlvCeOOOaMNiomlSR0NnOaU"ILVTV~’wOLL1—mn0Lge]R0AVVOTOAVIMNIIII V"U"]eN]MLNO~eO0LFMVOAOC4INIW)UANMTO=NNABLIRKIVAOANN2YNATMOU—MINOLLO2NROASTNSLVNeRISAON—OITMeCI0~O4O~a~TN N—$NoIV0NOWVAATNO~OOANNNNUU LU NOOI~~~IAoN3VT[B—Le eO~]N-NO--NOO—-4.00—[T0YW—ToVV=—IRENN(o—oO[=-“OV¥—0"VL0(ED(3YwT—o—VN\M~--[[Yu.y"3-LaV—.EV (ao<0&L]w
—-vNSLNROo—NB4V~NNoL—-—MML"~eT@e—\yN=M—mn— Loo]M—VogNIUaoPl(e\LYalM—&oK0elIS~-—OoOwo~MTIN"UNLLDeOa—l~M- 0SLU1TNNW~5O oWONON——V""H43vNo-—-O“0"N1mwGV\|0aS[—OumT— +woN]]\[[«
|

wvia
-l

= -

WN ~

{

(VY] |

wv w

=®

1440+

14-58+

14-64+

14-65

14-68+

14-72

C
1477+

14-88+

14=136#

SEQ 0286

mmmmmmmmmm

CHRONT

OMad“589“0157]8M)—OV=TvONe|-oMTnwN
"4—LL)I1R—LL[ iB ¥i 0oV)0NBB0WII00OI0NM.0O0L i

[RNaONSOVONGA(oIMb-¥''B©l=9IL).ONAOe~TYDMWw—U—NNNNDNOAToeec—OTO"LLROMeNVOO—lM—Xv-OOP0VNMN—o\MNe—~@~5ENoOF&S3oNxOM——o®[—R=yVxNw|ONvxoO~@MN-~NWvo—~=vW—A~-DOa1B]]5FMNx>RYT—T-OoMWVOM—P&O=RNe-iTOW—oWWLL~oN]M—w~-O-—OeTaNaN0iKiR52Nl[loWx=TVEAJPTOWoDNVLLO[~w- e— ~~Nw-o3NWNM0NeOTaa4!P5aM—l)l1GeDcTOV-oLMvwN5YOVTMaiSLe_SlN0=GRwTOoO-VJOLMaW~oIT>=i=«aT|H2Piwl-0N[lm«emOI~eo—MDNaE\NJaI3weMovNToTaOL]OV—La33(eLOo 5wvM)V-owwOo—~so4)wo——M a]..Yli§ ]' a]O4L2oX—v~v0N[ell5-NOT0woJ3eTWEOPY3exOwL>(o3O1W27FL-NO—Or-M—R]x]]aaNlAOVvo—M—WPMOlRNM]|aBV"m,laaMTFvDllFTOBo"B=V’eUgCaaVaTNT—lNNollVBBva’Oa="Ia1OaREV)NOe—NO=IBvR\lAoOVWOVM"oLAQNOn—NTBYaIdRLDNONMlNMOTOeL—OaNNM—"DNAlLN)AOoLGNOOVN—O"I=-eVOINltD[NOJE0LONM~MMoO—2W- =sDUewPN.I=POwJ=NW—JILMeI(T<LO~EMIOOwlwoA-N-NN2iinTN0=)EweeIOV0—TNe0—IrEMNowoo5~BOOO—-M'U ]0ie0—=3ZSN0ErEMICeI—ROXZODrNNM0eoIE—OIOeZreD0rNT—Mr0TZIOS—IDAMP0r~NZEII—L—Te0Oer~DNZI0—0eMIrTW=Z—NeVMIeDZo<R=—~~—o—Oo~o—oNmA]EO—OMvTe"3T4iN"0N~I~[0ZO00NDT\NZe=NO2J®—e02O—O"0OgoMW=_ 01o)VAen0—MWEVBTNNP*V—0DoxILo0—LoOeLOVra-x]U &3i WNUU0~aOl—~eLl~LyNa>YO=Vg]—anM[
2.oo~WNg[—o—""Tno—AaMe¥lsy-—aO-v dOoIMMON«N—V0—a~OlIVAev3yalV—ve8oLaW—lNU0O$QMaONekVOOOsM—WDNLNMAQNPULM0l
A3

o-NNOLUVeAa—N~¥Oe(o W-—&(¥eORORNNgL]OMLoVAOLYoaola[

(CREF

o~ —

' CROSS REFERENCE TABLE
MACRO v03.01
v01-05 )

]["ala¥]-

' CZRMNAO RMOS5/3/2 FCTNL TST 2
11-APR =80 13:17:48 PAG E §=9

7
SEQ 0287

+L]aV]

))WAAAAAA)AWAAAA)G)G)AG)W)WW)))))))))))))))))W)WW))WW)U

D10

SEQ 0288

L=6140

OgNMU=}1OIa¥=aNlead~®2lN®OLtCIN

ULI| =MGOFU“—3M002‘35
OTMNUO

oOWNOWVNOWA
2—Me—
VOORNo alol [a¥Oda ol Lala
IIRDIIDI LI
N o NS L LSl

7-517

L5-24

7-691

65-104

25-485

25-491

35-423
40-77

(O—=UNMN LUIONe=UMMN NV—ON—O NLSLUIoNOC=UOUMANWO—VOVONITOTFe—M=un ARNRASRANRNRANRANRNAMNANLIDN edoLal N[DILBNRI TO0VNWONONOMOW ARANRANA’AMN’AMA’AR’AR’AMA 0—OMONOM DLIBN =OTMN oeLNLIRB0FNI—OUM— LeRoYlLIBN

o)yJ¥—" BNAaPal~L(oMiOBMlIAo gO

25-467

40-78

~NO CO TONO

CROSS REFERENCE TABLE

MACRO v03.01
(CREF v01-05 )

A—TMOMWAN
RONINRuNOANyeR—IAeBR~ANODAM—O 0DNANIN=MDNRDAMBNRARM’LAAALNUAN

MNIMAODONM35OOMO
R
A
N
A
R
A
N
A
R
N
R
N
R
A
R
N
R
A
N
A
M
N
A
N
R
N
A
R
)
I
B
B
I
O
D
O
I
D
D
N
I
I
O
U
L
O
N
O
T
N
M
M
N
=
M
N
I
T
O
R
I
W
V
N
V
O
O
O
—
—
V
MO
O
0
N
3
W
|ORO|ANNVAOIIRAONNIIN’NNSOMOIINAWMIINAo’IRALONOADIMWWANRRNAMONIR’ANOMRINOA—Loo =MIN’ALLO—NALOAMALUULNRL
0OCIUUOMUNMYNNIoo==o—=MMIRA IOANN
—OMONVO—MIODOo~OO O

N4MhLaOnLDeaOlasTn1tO"eNaFnTtiOdN'M2OL'

NNNNo~o= ATO NVON OSNOWOW0ONSO OMNINIMNN= —N

NNOIS]INOe NNOUeN NS—I TeNMNNI)G)ON)3OTMoLUELNLDl [[
|OONNITNBN—B MNBB NBI METOMII OINOYRINOIMR=OI =oIINNOIINNIUL[—UU
VOO~
O
NN)NOINO—M NSeJNNNBB NII NMIB MMIOOD NBI NNRI ==OID LR]=LLS =ILOIUULL——[
OOOMONION
3 e~ OVMN ST N MAN
- CZRMNAO RMO5/3/2 FCTNL TST 2
F
7
N ~APR-80 13:17:48 PAGE S=-10

SEQ 0289

40-85
40-86

SONMI=NIM

7-532

7-535

7-538

7=541

7=544

6
7=547

7=550

7-553

7=557

7=560

7=564

7=567

7=570
SEQ 0290

)AAMDAAAAAAWAGMWGAAAAAAGA))))))))W))))))))))W)))WW)U

7526

bk L D Lbbb

IOMNN—GIWMNNO0 JFOOMNNIN==ANAMVON IMONOWV

D
)
W
W
)
)
)
)
)
)
)
)
)
)
)
T
I
T
I
I
I
T
I
I
T
I
T
T
T
.
e
e
e
e
e
e
e
o
a
l
a
l
a
l
a
1L
e
t
e
l
o
l
o
l
e
l
e
l
e
l
e
l
L
l
NN
=
e
=
M
==
O
N
O
N
M
AON)[NTNM—eNMOeNN.AIINANITNeIMNOeAA RN7OAIILNTANMN0U ~ULUU
OMO.NOMO—NN.N|)NNOIM.O.—NNGAM SDNBBUOIMFMII NeAN eGM=ONONVNII ONMIIM3O 7II NNO=J2II0OSII LNMOWLLSALUOUL—N OW [
U
OONOMAOM
N3O MAvNOU3=NNIMNNTMN NTN=R—MO= S— SN O—O
X[Ya

EMS102

EMS104

“9123‘5%

EMS10
EMS100
CEMS101

43-39
63-40

EMS103
43-56

43-3
63-7

43-177

43-136
43-210

~IONO.LoalVON&Ob~NaNlaNNeOON"B4NBtNNN=kIOYIOGLEI—ILLIANLOALUL

7-688

63-11
63-71
£3-59
63-178
63-57
63-211
43-180
L6=20

7-691

46=104

7-517
G420

7-691
G6=11n

. N N N N S L N L OLl

7-517

TMOMAON NOM=N IWNNM == A F

CROSS REFERENCE TABLE

MACRO v03.01
(CREF v01-05 )

OCN—OO
WVNOOWIVTMOOIITToWONN—OMOITVoOTOWoOVW~A
MNe——=F—M JTUO
.NONNNOSCOOO eNOeNNBVUMeRIONNBINSIOAALINMNNNAIUNAIRO==AIUNRee OAMLLUURNM= L
—OM O ODO NO

CZRMNAOD RMO5/3/2 FCTINL TST 2
H
7
N =APR=80 13:17:48 PAGE S-11

SEQ 0291

43-204

V)VORVEVIVEIVRVIVVUVRVVOVVRVIVVUVEIVRVRVEVUVOVERVERVEVOVURVUVeSARVeAVSeyeL bl

EMS105
SEQ 0292

—

L7=71#

-T3—s0‘e2eN35‘N5=~“LNo’[—«W5©3‘NM5]N[A«l7IATlA“NOAN0O9~30MLIAlONTONMO[oNVaO)MAONIOTMOO=N3OnOMM=I—TGN=O"ON0OOWN"aloalOTNT3ONr—0NM=No
A =

§ i

IBI3AOVvT—SL_XOVNB~~--r—’1vYN—VIN_T3VOO—ZA0V_"TNaeTMTNOM—AMUeV\QVE_AW0)~OeNI=~—N-oN—-~3TL—I’¥IEVMlNVyoS—UYiNLZTVM=erWANAOETgwONMNo—-Noo~3IoBYWi1S!=E~y=[NVTNEOSAWZL~OAL=—~IAA4N=MNv3I=NtaLULoVN0oeElYWWN)LMN0L\)\Y3A&NS—VoYXyVMA0EelS3BCRTNLROM~-5~NM—NOMIMIOJIPD3E-oaiV'U)b=5VWQAl\\TF~IoOCNO0“IWB—AVIMWRIOTTTD©DwLAB—4AO43=TogeT“VVMFQN3AoOI=O~IA—arIeMA“OoEVTo0—rTRNlOyAWI=OgINMMA3aIOLOIAAS—NSA0—MFVMl\L,OOIOAOA6=YMVITIONMrA0aTILeN=OWNNM-A4NAY3—yOL—OSNlMEIVAorIIeI=rAAO@Aa6oI2BrSmIUMPINNN—OYr0lD)0ANvo22AI34OMNSmMRM—=IgITaVR0SeETMg=ALMSLA6IFlSmVN~UNII3S=RDVgWTn~7MOT4NIOrNLMVrIQT—EWIOv~N©~N~—S~—3©“RB5IibTDMVOgEOT6B0IMNIGIsV~NT3NMn72WM5A—453OTM[U)UNOAI«YIM~RJTNNLYNRNeRa5Sys~TRAV[WOPO-RN—Na0OoA3eNTMIIbdVMNNoaOgVAIP~—MIUC~0OoMMTT)LyLOWSNaOA3VBYgeE5,0A~JoYV—E—WFa_MAOOITYkTOg0NXm—MML3NNI_PuArO0N—Ox_IE—IX)SAnM—F_3XOPgr—NMM4%OMX4—0NSOL0gAPTUEVOI4RMA3ASO)UMONgNZTLI—ARALNEMUNSLVVMO0I8OLNIAgo~A~—GL3AL)¢L a+OgNP)EN~OMNAS=OMEGAPUTXM@MOOO MNE3~LARWB!U OMOBgI)TESM)gTR3SuEOSeMTRWLN8EoWgLaw~TA A-a~—NNTGOnIt)l3I"=0e~L)0GEEa|oRFINN«l3NO06~MTT~—eT~IANa0OgIBL\Ta2sSo4~lO—4NM—TM47G=lILAAWONVL0oIamAeOA3MNMNa—XT)~O—les~eNNALAaIWWlDAEeFO—W.—lT3=AXARMINL~ANOO N-~T£NOEiO1eAAI3iNOtAeINVETM=NAM0eI——T3MO=TBIU0MnMTLoNNa—5NV0M"Oa"SLoLMN~ly\SynaO3gNIVeW%E—.Mu0yNleR¥.hIENoMWa=YIe~d
:~wL~ogo~~—-'atvNl] <a~~5~~—~o—]HKI)NM0[- ]ONOMw5©o~~-<~-'gi&N)oalNW@@AoL25Lo5—-=~4viA"UwNBlaVOnAlY~ eOON~3lB¢BONOM55o5—NVn5UUUTLLyOLnN55n5yLoNMW52Vg—@M5-—AL"ULlWU\YV~OUQ55055O0 Oo<A o~~wM~]i]Ml [Lo~~@~o~aaBiA)1 'Ny¥Nll] gL—ago424N—lUUlULawaMJLlylAAAA—anaLloo3)Lll-NbOOSAaals2\lTl LN2—7g=~"aelLgo1~~L ~S n5M ~b b5ga1—)l]~Nl
—oa2'0~]L425w'a)NMLl M-x¢3~~~ o4o~ M~S o~~ bt' ’NlL ag0~-2P~ 4weO- 4ll"LLNLL10)M)aaOA2Oll oo~Ow5g~M =o]]'biNM[[+ ag-~]1)n—[gMNgLO4Oo2llU)UaeoLo~N2—ayoaULLLnlloOyLL2raayyll w~O~~~L ~L B1)\N]N
CZRMNAO RMO5/3/2 FCTNL TST 2
MACRO v03.01
CROSS REFERENCE TABLE (CREF v01-05 )

-W

N ~APR=-80 13:17:48 PAGE S=-12

7
SEQ 0293

CEMS162 47-116W

SEQ 0294

B[=N~—NNN—- o]lolLAl--—o~~No-N~ANNeOO—
1ovNobeW2n—m3ROOR~N“wSW5YV“ON~]@7To[MwmRA(No2—~==nNa[1l~”ao0¥—L]~L=N-02>N»lmMO“5w0RnNV0Ro“—dLA0N%Oa00LW1V1NAN1INO1R-O\N1g—oT2MMlNIO2NN~MOS2RBondR-a—NM~-—3lNFe—LMSD‘~a=FlO5O6~--o7-]———[OOO@oaLB~t0MNANNW[~O~-AN"a—)ONNA~~-o~-NN—N—N—DNOo -~N—N@NLNO—~Ael~oO3O—
i

= s

dVo~N-7ALINlKi’)WvME)3LiSIOLeOX(adTNSl55MKVoEa)UbaY“llXL3TONOiav~oVIlTG(“aSbENlNN~MNVo--TI3eaToFXU¥)t=lM3OKTM#U)N=AOIMNI—w"LNI8“Ry\M3GATMeRNLoO)~So~3TOOIMNAAy—VVFOToIOUH-)AM=RYLL“V3To=NVN)A=eILV7OT(A=Ov)ArI“o(3TS=rAI)3RT=IOAAWIorMNoBOAI“3—T=ANALMIToOAyLeA=M3W5~—N T=OMiU OA\gOT=VeA“AM3I¥L(OOAANO4O7IyDeAMN—3S8NOeA=L“IW.7NeOSANI3ITLeAOBAMI=OFAIAU=3IN-T=“MOb1ANIo=R L=OAIS3N~e~=N.iOAROI=OAALU“NR3STTM3e©IMOUCvA—TI]R-geNA0NUOAL—=0)LMr3kRIS~Oe=—NL“=I=ATOe0»AT—3MTN—I@N=LMU0OA0Ao“ma—)~rLAILN0eOAoMa3MLI=)SAON0L~I7OMLe0ARNI~—“3~—5—TUA1UOLrAMl~nLI5w\0A3MO OIL-4eAN9leAOk0-3Lo~~J—NFAS=a1He)N)A—]Nl3LINfWre=|TrO3w=AAemTNl"O e)MIL3-~R~—B)o§1iTe‘—OaNl)INUrML3TAFN “MeRIMD4—TN)Tm'])e~TA3EoONeUSAeN~IML——NO)A'ieOIW“3NeTmIUMBM—M== N~ OOTI‘UA"LONML\U2~O3NIMMSTINRMtbLtt
EOU3TVN)‘0
g2g2M0AM4L5544P—7~—oLO~T5—lU"UlUAUallLsLLV\yNLA22NN5all(ySl=v—5L=~~iHal M-~~)—LaeL0[]~5~77-M—M5al'"U"Ua5vl=Lla.}LLQ)-5a5a3—OllLaL~L~~~wo~—-~oa&ia)'40ioNNMN~—ll) Low~MOwN~aO-o—-~M7—ai'H!~N0lmL@N-5~oNo~~o—5L1BN—alLeLe@L~~ eO~~ ~~~ w~~~~aao14 I] ii ]1lB4l]a5Mll
M.N-UeLV~A—B o-~1—)
CZRMNAO RMO5/3/2 FCTNL TST 2
MACRO v03.01
. CROSS REFERENCE TABLE (CREF v01-05 )
N ~APR-80 13:17:48 PAG E 5-13

7
SEQ 0295

]

~ ~ O=
U

wv - o o N

—U|

i EMS4

—

CZRMNAO RMO5/3/2 FCTNL TST 2

MACRO v03.01

CROSS REFERENCE TABLE (CREF v01-05 )

EMSL0
EMSLT
EMS4
EMS4
EMS4L
EMS45

43-28
43-29
43-30
43-31
43-32
43-33

63-220
43-190
43-206
63-209
63-211
63-210

EMSS
EMSS0

43-37
63-193
43-6
2;-23.

EMS51
EMS52

EMS53

EMS4E6
EMS47

47-38#
47-3%%

63-44
43-222
43-7
63-48

47-34H
43-191
47-364
47-374
43-230
43-229
63=120
43-45
47-41N
L7-74
43-64

43-48
43-55

43-55
63-1642

43-37

4£3-38

43-43

4£3-58

SEQ 0297

47-35#

43-145

43-177

43-185

43-199

43-201

47-40#

43-52

43-60

43-61

43-66

43-117

43-118

43-147

43-186

43-187

43-188

43-192

43-70

PR
43-132

43-135

43139

43-141

43-181

43-185

43-189

43-200

43-201

43-221

43-70
43-143

63-130
43-148

43-139
43-149

43-142
43-178

43-179
43-179

43-189
43185

43-221
43-201

47-434
43-228

43-229

43-230

43-231

43-233

4£3-39

43-40

63-44

63-45

43-47

43-62

43-64

4£3-65

£3-73

63-140

43-141

1
0

43192
43-226

43-193
47-45#

43-194

;

43-195

43-200

43-202

43-203

EMS54
EMS55
EMS56

43-226
43-227
43-50

43-51

43-54

43-62

43-63

43-67

63=119

43-143

43-144

47-i78

43-182

43-183

43-194

43-195

EMS57

43-190
63-206

43-191
43-205

43-192
43-206

43-193
43-207

43-194
43-208

43-195
43-209

43-196
43-210

43-197
43-211

43-198
43-213

43-199
43-214

43-200
43-215

43-201
43-220

43-202
43-221

43-203
43-222

EMS6
EMS60
EMS61
EMS62
EMS63
EMS64
EMS6S

43-6
43-224
43-2264
43-224
43-42
43-8
43-41

47-84
47-50#
47-51#
47-524
63-149
63-14
47-55#

43-190
43-41

47-53#
63-1644

43-145

43-146
‘

43-147

43-199

47-54K

EMS67

43-43

63-44

&3-45

63-46

43-47

43-48

63-49

43-50

43-51

43-52

43-54

L7-57#

EMS70

43-48

43-50

63-52

43-54

43-66

43-70

43-73

43-107

43-110

43-139

43-182

43-189

43-194

43-205

EMS71

43-51

43-59

63-63

43-183

43-195

43-208

47-59#

63-139

43-140

43-142

43-179

43-183

43-187

43-60

43-193

43-61

£3-63

63-108

43-109

43-134

43-135

43-188
47-620#
43-222

43-222

43-223

43-234

43-235

47-64

EMS72
EMS73
EMS764

43-36

43-49
43-69

EMS77

6;-33

CEMTI07

7-219

EMTY
EMTI0
EMTIO0
EMTIO1
EMTI02
EMTIOS
(EMTI06
EMTIOS
EMT106
CEMTI

47-4O6N
47-470

N 7
11-APR=-80 13:17:48 PAGE S=14

4£3-48

43-56
43-70

4£3-72

-4
7-25
7-198
7-201
7-2064
7-207
7-210
7-213
=216

&3-3
63-10#
43-66#
43-67#
43-68#
43-69#
43-70#
43-71#
43-72#

7-28

«3-114

43-73#

63-51

43-67
63-734

63-148

43-55

43-56

6£3-68
43-189

=136
=217
8

43-198

43-57

43-180
43-221
43-188
43-40

L7-644

43-195

43-223

43-232

43-234

47-60#

47-63#

~ M ~ ~5 T
]

wv wJ (=] o ~N oo

e = — -— — o

~N
~N
~N

S—

AOOOVAN=F<FMMNINMOvvOO0OINANODOPINCOCOOVTNNNTe~TNONUMMM

7NON727537578‘7“7TA7RO7MO7e77FIA7OMO7N7WN7OM7ON7WN7DOT7M7OI7NW7ND7—37I7NOM7“7VO
1V(OWgMbo-6U0)5LVeg0MAg)y—6eIgAo~0M“TOg=geAUo~8&V|I—egMgA)0~_OFO“IVwgoAg)LNNM~m—6VID0{MEg()—oVwJm7VIengA)F0gIeToAVN~7RWgV|IeOYey0)AOrVIeMNg)A~N0RV)IemgM1I—8ogO<A{R0-VIRO=eI—MA)8r1MNVIe{Og)AN0—I.RO)IT=—IMoAMO10M)TeDJ~VTI-eMA0T~)W1AVTeqDOMVP)—O0NVI=e=MTA)O1NVITe=MN)AO2Te<N-O01IA3RRW)ATe—0)NA2IBOEM)ITe0e)AT—rOMM)eeI2N0VVIRe)e_mTMD—VNVreI2)v)A0mOTOV)e-I7IVNOIe-2TM0AUS~VOO3eiOT0A)eNMrNVIAN3eOg0)AIIVT)eOgOMM3IT0ONeIVIR“0V)AGOeNTB3OIONeAV0ON“OI)AeU3IIPONeAOV4OII)Oe0GV4.MIRs0NeYGA4IO)MeOV0NNI4OeL0VMI)ONe0—~4I3INVe0GN‘4I)ONeO0INeMO0‘G40T)O0eA5~I)O4e50VT)—eO50TT)IM5Me0OR)eO50UNtOT)5eMA0MkTM)5e0IOtNT5)Me0NtN5)MONt0V6MTW NB
' CZRMNAO RM05/3/2 FCTNL TST 2
| CROSS REFERENCE TABLE

(CREF

vO01-05 )

MACRO v03.01

C
11-APR -80 13:17:48 PAGE S=15

SEQ 0299

IEIEIEIEIEZTZTZZOOOOOLIIAPEAEEIEIEIELEA-

caaccacoacaca

w & e — r~ M
~ M -— o~ w T

v L o o ~ oo

- CZRMNAO RMO5/3/2 FCTNL TST 2

~N)
v

(=]

pury

pr]

TM
TMm

CROSS REFERENCE TABLE

MACRO v03.01
(CREF v01-05 )

63-1484
63-1494

63-21#

EMT231
EMT232
EMT233
EMT234
EMT235
EMT236
EMT237
EMT24
EMT240
EMT241
EMT242

EMT243
EMT244
EMT245
'EHYZGO
| EMT247
| EMT25
| EMT250
| EMT251
| EM1252
| EMT253
EMT254

43-22#

63-168#
63-1694
63-234
63-170#
3-1710
&3-1720
63-173»
3-174n

11-APR-80 13:17:48 PAGE S$=16

SEQ 0301

&SyGySReS(eSa-4a-a----R-E-ogsg-i-SlsL
LA WA WA WA A WA WAbde be

7=526

Bik
SL

EMT255
43-175#

SEQ 0302

-e5LL3L2RN333L3L 31332323L33iiL3

AG—O1P0)ANe0II%N)VNTeAP)M20OA))IeJAAO1NM)TPeMAI0(ODV)eSTRUA)“‘IOTVOVeP-—A))01—FNV)OeNR=)A%I)VOo0A)1OPOVTVOe1ARv))MNNVIVNTeq1Av))OrR—VTPWVNSel2)AvT)TNPAVTV).e1NNrRlVIPTVe~NNrA))FIWIqV1PVI~TeMrA))FlAVVPIeFvOA)M)R11MVTIFN~roA))‘IVVIOTeOA))11VPVINTAo)A)INMVVTIeN)A1)A5MMOVT)PeTI2N2CFVVTTP)Ie21MTVVTPeMA)c)ONNVVT2IePNl)AO)~VT)TeN1O2VIOveIlNA)VIOcONeA)2NMI|V—erA)P)mMONQVIeTTA)M3TNOlVIONeDAM”)M‘IOIeNiR32TOIV=ANeA)TV)IANe3O2B)I“NeN~ROVIO)3NeI2N“IVMTNeA)IRTA)NeI2VNJ)IO2eNO=NNI2eONRIA2NIOeONMIW)2eOMPJ2I)4eONTOP2INOe—A2VI)N4OeNAO2NI)VNNeOt2ATIT)MNe2NII)NeOV24ANN)MeONI2B0I)Me42OOMI)Me20TNNOINI)IeA2DO0IIMe2VNtNM2eOOTL0)S2MNeOI2—AeMNVO2ANI)OtAMNMM6NPAV
CROSS REFERENCE TABLE

CZRMNAQ RMO5/3/2 FCTINL TST 2
(CREF

MACRO v03.01
v01-05 )

~ ~ ~N ~N < a
+

6
11 ~APR=B0 13:17:48 PAGE S=17
SEQ 0303

EM1337

7-685

(3=225#

SEQ 0304

866-R7?7877791"91“1'lc|uc|Rl.|R1|1|!lcll!l!Rl]!RlERlRil‘R!l(lRlOl“NQOlOchO.—iVlcMlR‘cIlNcOlcAlOcRl4R‘E5
R R R ER RE R

I)3TLROSAIoO]3DoeN5ToLA0IARO3LDoAO3LT)IoANRIeLAAR3IOTLeA—ATN3IAoAIIL-eMAARI3ROeLJATAI)eLLNA3OIOLeAARNTIeAA3O)TINIeLAVOSIIeA3IeTGA0“WNIIAeAV4I-LNeAIA—MRILeAAN4OT3)TeLo4IORTeLAA:)TeILJRAnNNTeALA:IMTeDRLn)eITONLR4NTTeOiMRL5IN—eATOL©o )IeA5MAL)eRtLNI0OeAL5RI)eATeLOMArIeAL5I~M)~IeLTIeO)4e5LMnR)eA6LT—eSON-Ie“—4Ts)e6IM)OeRe)TR4e60MIL)Ne“SL)Ae6IOM4LTN)“e~IRA)6e0MLS)R7eIe04OSD2e0eMIS)7eI:L)ISeO0TL)7se0tWIL)Aee0S)7IrTe0tI)fe0G7Le0NAMV)YTO0GNeltOIA4E
CROSS REFERENCE TABLE

CZRMNAQ RMO5/3/2 FCTINL TST 2
(CREF

v01-05

o -— o B

MACRO v03.01
)

l
11-APR =80 13:17:48 PAGE S-18

SEQ 0305

| ERR

4=5608

25-84

25-86

25=102

25-136
SEQ 0306

T5i'0i‘7i9r26y8firOraN4«45N5%ONAO7NO—NMRDARNIRMROR&OARONCRERONMNTRNORAONARVDR
WessOcot4.ON68N1‘9—g—9mau~qrrc8_%.51028p—NONmeca9—~rrc—9n8og5‘o1ameg~.rc30*‘2ee6{*o—NN5oss_—O.7“vg08No—0s—8N7‘_2-{83NI—1—M?.{6NNV-97-O2--—+«_6N292W—N8ODO91—7.6O2—N0_190986N2——N5O1I6.I8728O_0902MN—9N.—A3O2OO—3_25.o5N2N—ONN—7O6n-77NON—ONgO963._—2NNA2N—NO5I.N53~NA5N0bII73-7OO92OOTNNg9‘.OO~0‘ON5343VOOO2TINO“6‘.JO5TTNN—“5T_8NV7W2=eN—O5NNN2.N7552NMv3NO!I7O4SSN3O0GSS76TD3MIS2T~OOOJV9NN7NN4GNODOvIO169N26MTONNIvGO761UNNW=%TMMIV85ONNT2GMVIAMM770IMVNNO%GMAMM9852MONN4NM04N7INNG==50NN6M89DNMO=20I8PNM9O9==3N0I6WG“=6IM2MOD8“QTeO8932=TeM=ANNFNT7LT——l7'T0TDOmTo=RIO1TeN3N2I3gEC3I=gEOmFIE>oVbeODTOe&IN—lNRO—-O0WOIOxoUu\NeMNMn~NyM—&N)0AOMM—lTNO—*N=)&yuhCNM—MeI-aaZ——NM«O—lOw0orTLLO>-J~o~m-aoA—.—ll
3672570‘57257‘792570460“8%80379‘689 )al=T0
Exxcxaxwm oo

I
T
Y
)
T
V
Y
V
I
V
(
V
R
I
Y
V
I
Y
V
I
Y
)
(
V
e
4
[
+
3
*
e
l
o
t
L
t
x
x
o
o
[
=
]
l
=
T
=
]
>
l
a
c
=rO22{S3—=O|rTg.u—M-cs5{M—CewoMOc22W{eMo.—="2sO“=|e—N¢W2s2|{=V.g-—MM2‘5|{NT—2I2“|—=.AP0O225{®N®P1—2220|—..P12DO“|{=—O22O(-.—P1n23—ON=2221=N|—.=2“—O|vT-—2227|.0VT32”-—OP3222‘.W—|O=-32O9|—WTW|2“.23VO|—wT-O_2-42N|—T22.25—ew=NN_T—2|5=_.2—2O|O__2e—"05vN.22A|W6N0|2w|IFw.A22|mNv6\L2wG|=|vv7.-22|=O.2NO||072-2|ON|=.3-2ON|8.2N2A|—|—U02|V|OWO0.V922O|NIeO2N"VNqI.922oOORTN(2N[ai)2 O830O92Oe32—-3-1No30OM)ERSO[NOa0&&¥0N]OeO&2N“—0NeLN—&OMt00oB=-0I‘-~O -~~N ~#]i0 —
L0A*sNqgYSqO6N76OWOWC8‘—wW—W=-.LY.-ea—O—csN*2n93321qw=gAW1MqN.0enR.-—_—I|DcsReVq2w5555WqN-ON—Ne’—.awAo.-=—.cgMq6.2277—|77N—|eNooO.V—=={R.—q811WN08Oo{.—N—AAov0.=..|_.Wq0224‘|3I|—oOO—NAwOA.+V-1gq5.277_{66|W-¢{|—oNNo+.3—0.—==.T.288—|88{GNWgooOIOORvO.~—11==.‘—9g22333NN{e—NooN—-O1==g.q1MNON55M55|—N{OW—QI.A1.O.A.—27727|7qgWNO—~O’2212O2W10N(|—O.—N—T.05‘1‘q4|O|3NM©0—OT.772N2U—266We|| WNWO.—NN321W(F|1O=-3G.3—267—N66|~O|Y'AOOA.{0.WA-9922F87(W=Oe1VOv0—3|M—.30‘09TON|R—VOw—=OeE0.4ONOD4522‘‘‘—||NON<_MM‘-SG3G_I.772—75“O‘PWON{GOIq.1—0x4M9922AW-9N8|T5N|FRI“5N3‘—O2.OeMp|TOMO.5N66N2OI6W|N5AAG— -|V‘M892286—.WR=MA6wFO0~O.5NO156‘‘RFOS|NF0G0PO688~22‘N87NR|||| M.|—TPO6PO00.0091|O|NFO=I0O0O6y3‘22MNRM|N=.NF0NI07W-W7TAN7O76w—|=|M1OR000e.NAAN99229P8R0IT|=Oo-“007NM7N3NOo0N|==CAIT.lI0IB010.8O866Mo2—2M5eN5W||lB0-000“AOo8887|=V|=NOkov0B0.001.9NNO80o22M9MVN=ROlW000-0=‘Oo559N‘33M/RMkNNO0000..19=779B227|N7ONNW|NMM=o00ee8L-.‘99Y=—9L=VONaOTl)ad oN—]O=)0eoO[o1N~0—A—NO-«=]a3w.*P01YLo¥eGII]NNNGMOaON0a0—"O[eJoOty-1O0aTT10VM.QRNyyg@0[NNANOcTO&nE8U"O0~o.NeONDL1LMVO--NO—N[o"«yNO1(N—lVaMN ME§
sLYqgWWTpR~—w2VqNI.—AqWNpI—|qWONwR—|2ogqNu~—q|N—2WqNog|=—WqNoR—9=q2«oW——=eqWN—O|eq9Nw2GN—ORqDSO0MGN—0BqW2WN—vMO—0OON2NOAY—N="qAv—2W0—MRNOq2—O|MNOO—2OSRTJ_VRNW—2NV—MRNS2S-RNOSG2N|MVNVN2RMPTIO|oM2WMOOUYOD2NONNoB—==N0B2V—O0Te'M=02=V) ON--0)YOMYN&ONMON-—P«
W NM O
CROSS REFERENCE TABLE

-—

MACRO v03.01
(CREF v01-05 )

~—oerON=
O~ NO

CZRMNAO RM05/3/2 FCTNL TST 2
K
8
1 <APR=80 13:17:48 PAGE S$-19

SEQ 0307

AO=MI~N

12-<39H

12-<hb

12-<4bM

12-<46M

12-<50

12-<50#

SEQ 0308

EREAIAINRIAIAIAIAININRENREN
LML P T
TN un.

L 8

12-<39

12-<25H

12=<25H

NINLAsAnsnsn

12-<25

eALn

12=<170

IAlAIAIALALALALALALA

12=<170

AR IAntlAInIALA

12217

|W
|||
|||
|
||
=- =W we | ||||w ||| | | |W||| |
-W=|w -MTM ||| W|W |||| ||e|e ||||| |V||||W|
W=|-n eW |" |||||" |||eeR| _|||RWRR ||N_V|
un R R | R R R | V|

2oON~L~e~~oTWLO—[--7-ON~]B'a''iba50MNN—N3l[DlMW8oG,OrTNV0V2O—\MWe€O—MOTODIT1MOeoeITL820Lo.=.NNM~NMcN~T2OMo0L)eNFoNIOO0OIlI8V—oVL2MIMMFWOOo2VTN—W0oeOOY=NM‘0oT5NMCIVoM=®OYVee.N=LgN8O2WWS!GM—OON2NONYNMbI0~0)Or6V—51OVMDG60NMOIRbEU—03U~V0S‘MWIMI2O7O0eb08rT—8N=oO(N—wLM=a—TeAv—r(2L~1U 80VlOmImeAN1aO~eeDN-K)2rS"oLNSN00g.MQ=mO—N]—7e=rAWYOlO-SLO2O=(=N92NgBNMMTNT—N0c-—rWTe(gOo0..BM2eIsMAOOOONBVNle2oTeg—eMNMV—MRO—e——IIT0OOgO~b*O5A—IGVMNM2TWONNBoOg0OOO0ONYr=N—eWe8Wg0TVOSI2WM2NoMLLVNT—O00NNYI~RMOM—=TOrFJo.MAg0O2BW2D)3OSgo0mwOgu0VN)G—T——w3OO.2NL0mO000-p—wA(V1MVO—3WN)TT_MlO.—J\V—0@NN]N—.IoVg"NH—2TG=eTMIWNOC|I-0O—NM1gmN—NODM0WMETHNTgOE@owg—N0v|.NpONpmO0M-2ON-?MpE—=2TTNAWo(IIaw——vng0N)—TAqIO%NIO‘TWOOWLWgGLg0pMPNOEON——|——U22TaGANO|N<INv0GN00A~VTYOONAig—T——M6NOOOoNI0G00_OpATOTNTO FNTS5NFNAOO=—20G0OTATAESO—=‘TN-— —|NVy0AO0NGB—T~AOO=WN—O2TNMFNNCNg00v2O0MSTCON—OVFN—MW2N=TN=CG0iB0O§)0MTOMDM—T WH—NOTNN|COM0C0O2NTTTNONwTB—G=G—2OGNNCINI0NO0TONCD—NLBONN=P=MW—_A0I0N2TACMDN—-ONMO2[NMN|GO0IRNo0IO=0GBONDOADWNNTNOTeM0ICKWOCNA-EBDNOOG60[NNw=00IOACU0MFMTOMD=T0MN|NQLN00<0CBFTMA0oDA<VEOLTN—2U=NOO00<FAE0DPN0NLMoNOMO=VTGMAvN0|00A0DNo0<—ODWFTOWXD‘ONaO[0N|M000007aNMPD|NITOAIMVNWNO8LOM=[n00OR0e00oa1mVNSMDNND|NN=[L000MI00w-aoHAtNODMM|MOVT‘~[F<|T000oo0E0N3FONVCOV=M|2VCINo0[00o0W0ObSIaYVDOMIn—U—MMN0LO[00.00oVDAOoT0aIEOtNBNA0M2G|000.L0OI.0RLTo0DOAoMINVWVM[[A0OO0SN00O0a0NNn0.OUW‘TOA.T—L00Ae0O0a0IOar0AW|Ol9oWLNB00VPV00a8oN8WTrt.IACIWOA00TAoN‘L00MRLas
M~~~L3ww=<5o'A1+ii3]NNN~n=l0N-=MOIMNSNTD010\TOO0—~OgA0ACNuhI1L0OtSnO—0TO=~=YM~V0UNOMfOS—FIVDLOoNO—TNNOAHN=QI)0LLrrOCeoToV—lmOeUrN=a1UM=F—)d0OONs[TTeeV—D-)V\woNNMoO——NOJ1)Oe~-OS1—1VO—0ANVJOILUIO0O-MW—e1NVTeLAMO~0f0—ONMOFDOs0NOONg—-vHnbKii¢— NNSVe~=O0-AqNY'LL1v—O—aNaVUm—o0w-S2NVI—CNI—WO)I—VH—~-DN_NU<A>OVgMWO~e—IHMC—M2pNWE—_A—O<NAe7NI~R=—O——SM.NOETNAT2——IC?S—AIGOCNST—DNCO7M_NIMO—2=—M.T—vINC—NN~—I—ANVOOBT_B.2NvOM—N—O—S_A3VAIMTON_CO—NGvCV—N2SMEVgaKI_MCNOOQPN—IAAG<T22_OwNOSANAM—DWONDTCABBI00_GwWF2MBD—2—NCO00OW_DM<NuW0O0IN0DACVV2wV——2bN0I<MCOI———NAA0O00W<TMC2O—D—V)ND20VO.NWDA—r—EDOB.00.VSa—.2—N=EMLrBPAT002NVMFOn—C—O00G0ADAFW2A0=M—.00NO2AGWVWW0eA00Oni2NNV.e0IGh0M2nWGMMN.V00GDuO2R.NNTnhVoO08GL0IvIuR2AOOvDvnMWT

3a~wo4Tw—BLOW0N\aooeVN=lO9OW—]OWo)Nloo2aNVNV(=klgaOBy1aoOe~Nb~e*ook*7alClo9OM~3AoOa1F=OlTN8L—W=oQa.oN_l=o0oaMN=lY!2NOVv1.oN=5O]2~-OLT‘-Nv[OU.N*g0.03MoTeM2O3lD~=N—.Cw6.6Ou&na2@FNT=7r—NLMdOAOeVo—r—AlOlNeOAOeo—lkNMN*NLe—oo-OONlAlw~IoO*O-ONlnNl—TMCoOlOLN~-——TDMD-CalnD"ta>dm2DENM2I—ag‘—[-nOIva.5qY¥——N]0PM2AL8aO——oO--goVF—C—5.—g12—OA6OO—qB0N(1WNgE|—Q5TA—2O—05n.NQ6WgOS—7-I~NCB22SO—3e|O—MgN0.—17eeOIDC0—2N9_OAG7N—T.1|M~ODMCN‘O2—A0IEDNMST5OO7Q—WMV‘2S8.|ONNF_EGA5O).4—I.02V,~NFG_FW8—O'8O‘r00o—2=“)_O7NV“MOFI—‘GON.Dn62|MlvVA‘2—NMNvVIVOG5I2HMIE2HI—W2O|NGNE‘2TNG52ETONGW32O|GNGMM‘2ANMG72NNMAe2OA|GG=‘C2SOPWTT0~M9C—o-VMNT

v..\l.wv..l..lnrl.—rN‘.Cm
!
l' CZRMNAO RMO5/3/2 FCTNL
TST 2
MACRO v03.01
| CROSS REFERENCE TABLE (CREF v01-05 )

2wW

N =APR-80 13:17:48 PAG E 5-20

SEa 0309

-ePePeePPeePePeePPPTPWEIWIWIWIWIVIVIVIVIVIVIVIVIVIVIVIVIVIVIVIVIV)TN——
35-378
35-381
35-391
35-39¢
40-77
40-78
40-81
40-85
40-86

SEQ 0310

(.-w41]4.‘vRNw0~“6<[1c«V—l]%O[+‘6O24“C6al@WL—48~68LE459E438L67E43l963L7E4L~631F4L3V68O‘L667O0LY14R6L4256L72~5NL6L25L4e25eL6e265eL‘e365eL4e3‘5eO6e8P4e17eP46e165eR“"v63M1o”oMew1WJOXd16O«WL~C—96aO0w69Or-M4«<66«
-—

; CZRMNAO RMO5/3/2 FCTNL TST 2

000 P

DN.LAO0~NN(woIMTIemYa5"RN\=lwtoI1wO1nyY}MMTw>WOsaON~oLLAWMDMdo|oaiSLNN=mlOaMWOWN-—NoeM)NNMluSVwdWoOnOaNNW\VNYOTIVLooOM7e—~sOMOFS(LOFaWObWol—NMWA)~O"®V0pvWONR—LeoFoMv—(=spW——MVpX5V—"tX5VXDXoN 6ooO L—O«~ i=§)V6L“OVNL7TyV7LV7oNL5TY0O1TVO2ToV3NIoLMg~o2N—~o—(ovT—i]]tlNM~2IOCVTNOAIeNSTAOTNVPTAITTOILTLMOLTbOLTbMOeNeI«=M—MwwTOTW(NL"B~NnNmN\Y0—WMEV—enOgOONREMM3oMWONw=M—I0USOONM0TNGOEU30VIN~LDoS0=0wTBA|—T.ITMNORO0~NOLENlE~e[NMROAF2(aw0N[~MVT~ MNEWN42B]"5vY+Oe]eOEN=Tb®——D
a~o-~'3N~ aoTOOoMOo—MJNV—N=[L"lL|"O-o)oOM.N0gOTS1eyoNOaOOaoa~l[~~0N0 ., La~owo4o2wg~oOMoM—.]a[H')[)v~M}[l]+ aOQ~LwMwVWMMN—M)""a"N0"~rNn\3oo)\OawowLl3ga—N&~=X0yO] ~aNILwMoLa(~0oM—Oo=~1a[i)K\)©}s0A~~ll Y(~~Movo-owMv3]'”)5)—~M
NS4OO0NVL)1&0ok.MUIo~O~-—" ¢o2Qgw4]}00Oe"o1ooAe]a-A~NLl—[ owoo ~oo —oG )I B1 )1I \v
r

CROSS REFERENCE TABLE (CREF v01-05 )

MACRC v03.01 11-APR-80 13:17:48 PAG £ §-21

9
SEQ 0311

-3

L=6428

31-82

34-70
SEQ 0312

eieSeleeleeeeeetR

LSt

LoeBSi-ElESE

~ CZRMNAO RM05/3/2 FCTNL TST 2
| CROSS REFERENCE TABLE

(CREF

MACRO v03.01 11-APR-80 13:17:48 PAGE 5222

v01-05 )

11=47+

1155+

12=:14

12=:23

12==67

12->58

24-92

264=109

264=122

24=125

35-27

35-30

25-454
11=43»

35 -4 38
15-1 25

35-441

35-178

16266+

16274+

12-703

SEQ 0313

12-202

16-58

16-364

16-385

17=50

26-62

33-145
36-45

33-146

33-153

16-40
16-323

29-146
35-88

17-29

36-7
35-50

35-63

35-66

12=47

24=74

24-78

28-31

33-204

34-29

35-453

42=21#

29-164

16-150

32-51

40-59
40-73
4<0-87

40-60

32-69

35-456

32-73

33-24

33-64

40-74

40-61
40-75

40-62
40-76

40-63
40-77

24-153

29-30

33-24

33-29

33-34

35-41

35-46

29-156

29-177

29-182

33-145

33-216

33-221

34-29

40-88

40-65
40-79

33-155

L0-66

35-83

40-80

40-67
40-81

35-86
40-68
40-82

40-69
40-83

35-505

35-511

35-516

36-35

35-530

=698

SEQ 0314

PIRQ

R=3&NOnOV-—TNeWNAeOoN—yOMoOmMIo4—N]MBmFNMWoO—e[-NarN—yO-LtNRoOVuMLO¥W—n[oag-4—OM¥O]_LoOMYN—-—VlkM~0[-Ka@—¥L~N
& &

XooTN=ROoNeOTLm]-OP3VNoMIe[BOe=TOv——+ATw-g)SMN~|I-NOAO—OBTDN NRNNeI—BNOMOMw- L"RTN=N—-A-IaNNN~lOA—IRaNNTDlG—ANNaOOD=—lOND2OO T~—eNITDATO OI—NlANLBI—IoNNO—OlNWAe0BlVN—A0OO—RN~aRTmRN3®I-NVSLI3O==NRTMARN<\ON()Ae1NV=~NRALNoNAO—O(ONa—-Nl-4NO
L~a ooO 5-— +' 4i NU —OMO=N&M0)NLN0LV"LV1—N TAGLNOW‘LN0oANL0MNW0VDN N4(NL1L@DNy~l1"
ao—¢0 —0NOMN&U|MTeIO—LIe(ON0~LIcLIOM— OT-NM)EOLDN—YLVLNMV LL NLIO Mo~a—XLLN0O0—oN~—LL nF5
~ oN@Lna&LLLL M@D—=LLLOHANSC0IOON O@oLLDnOV\vaNV) 1[L
A)WWRRT DIDD~—NIWneIsoOwI]oOV¥nMloIrAoLel-U---l~A=]NW-AANSl-

NGON]0IVI—aN[aN0(a¥ 0N~4Xy(o@

WLL~M~oON—>OI.aaNllxUX-O—OxaLoL=—-L?—uOaad00xllLCaxLD-v2VlaxOD-~a]g—>x2cOo~0—DNO—O0(u&—&-lVMdyoVJNM—lAVOM[nE0OD]oCSvINnalVMN-N0F=V~OLDLM(—~——F=—aogY-vaF¥—loooV==OA0oNN-—VoNOO—eM-lOaWnOSON0ld—N—~ONOlaAoNMlO—Il\aNONyS1NN:—oNIOy0INOLN-eN~—rD-oO—OOT—FlDoDBa-@ NowVaonLoXoa—N~W-=@——odV]o0}wVowaM—v—L-nlMLaoOO—oeaV—gc-NMtw-L(o-n4O—o—aa LaaOl—V4aT[Y+L
9-23

| RESREG
RESVEC
- REX
| RG
' RGDTPT

1I0

' RH
4&=510#
14-129
4-491#
L-6314
=629
42-3#

&=5334
12-164
12-D55

34-50
49-13

11=41
12-8

12=41

12- =41

20-40

12=>25

21-34

12->64

—MON O O NN

CROSS REFERENCE TABLE

MACRO v03.01
(CREF v01-05 )

N ON TOWNOoO®- N — 5

CZRMNAO RMO5/3/2 FCTNL TST 2
F
9
11 =APR=-80 13:17:48 PAGE $-23

SEQ 0315

22-7

23-11

12-210
12-@5%6

g—MONMVa TOoNvAO NNy IL (L]N¥aeoNyLU

12-251

30-14

12-a07

37-10

12-A70
12-B75

AxEwvun un nwvm O T WOOVEEZ

RMBAEO

6-0#
SEQ 0316

—YTVNTTNTNaN[(aN~5NNNN

18\.6912594\4‘5‘5NS
W(—&\JVO——W<rM—VIN—TNN0OeM—Nr—NrN—OoeM@N=M=N-NOOM—OMe_—M—rM—OeArVD—
3@O1 NNNIAOD&0¢ VDO&1D0N&OOM&CNSN-«NIeN&~¥P4 ——MONTMNLNONOMOLL'IL NNWV)IAMAOoN=BNWWOO-O
AM©&] ANeNsNI"001 T&PO0OL"0O" NWB NO10M1"0 NW&11N0"LN~AO-1

=vTe
E=RMEBONMNROWVww AO~Ow= 4<4OONJ@MONJ@A&IONT—&L
NOTOOsTONOV—VNNOVI~sMN&INN&TISANO&UNINIOLII &«OVATONG300 ESAO.—MMOUA0NMMO0AMGDN=ANDSN O0OOA04TW00NOOL00ROOLOe-s e00OV—PA
OoTOoVMNNN—
O—ITkNOTO &&oOlO&MoOk&&OOVoONk&&ONoW—l&&OOVoNL-lIM&aNIMO~lMIL[Wa¥Vv&IMONOOOOFON&&&eONOr&&&—vTOr-—-&WN—rV—=
eNU0y~N&RNvoNN&=o&=o-=v=ONO8UANMNO0N-08 NFL1(r0—Lr—r
N
7©B OISOTD&xNOe&&—MM«&o*&*MoO«N&OO~&"& —OON bONVT0O—WSO0OW NWN&=OW&&tNAOOW-«LL “«
0N —M&)i ~N=ANA&UMNO&NWLA&N"O« N1 NFT0ON"1 OV"L&OV-«

OQNONE NRvsIvEENWEoTINoOL=NW(OMOVO=NHNOV==**NLMORNI=NO\OO 0

(~~L~—1~%a(-NNN=l-N)3.3vN-9—@—I0v7vN~—11vv—.O"=‘hvnv1—~3=gvvJv8FM—‘Oe3vvo—1=rWv-o—v5=O(oNU8O~MO~O~-NO-x(]NN)—UOAOMA-=UE1g1N=O=2O=11N~1—[—1aN-1N—WOM11Be——uO—1—Mw=o——4]]3oLo-l[[—-+
—e-l—DTMOWNrnarNIMTO—*wO-\WMvNOYVmDVnOg—MAUNAyvNVSv
O-

MACRO v03.01
(CREF v01-0
)

1 =APR=80 13:17:48 PAGE S=-24

[To3a&ON«]yT0. a~FONA—0MNuWN
35-50

12-795

N~ MNMOON~— N =M NWNe—

CROSS REFERENCE TABLE

CZRMNAO RMO5/3/2 FCTNL TST 2

SEQ 0317

OVNOMNC—uOnCM —¥VoO~nNVYE~ ANF0M—L
12-:38
12-D29
12-<32
12-€92

49-5

49-17

———y

12-81

SEQ 0318
-

el —d €

12-79

12=76

12=74

12-71

12-69

el el

12=67+

6-0n

RMDTI

ON —a0
Wa4Al"AXaOOL)sAl2LoaAlLLiAAUllMaILlL'aao[LNelOLL
ONOUM
MNOONOUMMNgANWVUV4QB0LMoNTMMo«T OOIMNVMlWWV"aNlaDMNOOOOlVNA(—~=—NYNA
NgUYONOUMNIMIOMQ=3}MolUoWgGl0aN—lMGa@lOLOOOalMaAMNNl=ONOLAWWeNL-NO —V
O e—uNTFN ON

oO—NaO0 LalaOt)NL~

oMo0ONDOlalaJlala4l.FT4[avM=LClada
MLMg0000) eF—l =O0NT0OMUTN00 MOM08MNNQeDO—
oOO0leal al alaTNlalRalL—[a¥NaOtLNt
31-94

34-9¢4

[IAoa«¥Te-VloY 0L RN LeaTlAialyiaa08 0L L FONcOM

MO0AN UMMMFTOMN O—
87595309
—g3TN
=l al aloal Lalal L4 eA

CROSS REFERENCE TABLE

MACRO v03.01
(CREF v01-05 )

3—ONOUUMWONNNV =INIMMMN& A N—
olalalalalaloVlLadat

CZRMNAO RMO5/3/2 FCTNL TST 2
N =APR=-80 13:17:48 PAGE $=25

9
SEQ 0319

49-15

12=:16+
B0O+
12=;11»
12-810+

12=F66*

16=59+

16-302

17=22

18-73

26=24

2645

SEQ 0320

=aNOO0M2OLNNNoV=NOAoX=ORoO=EoVVLo=IOMOWaNON-l't)-N—U~~N.-ANlONO%Y

eXWNOoIXNMOWV—YN)=YV"ILSal—ai(~l0&]-MInm-=(Oe—=3]
—oca@N-OM-— a-lLyole-—-—
eMe=N 0aow

NOAOO-WNXVARDgSn—[ ONRUxMgO—Nv—VIPRoo- w

WWD-VDOVUON= M MANEVvxwLINvE wTa
{

' SC&

SC2
SC3

WNNO-———FOOMWWnALNV=—NN~F —NO-"0 NN—M"urm\w—Ny
NNN[——~aNNaTO0NI—OTMOaM—[LL YaV N—LO=N-mS NMNo—"\NSO—
4TN——To00¥oA]1[VNNE—GOL.NOaaNVl00LJeNe—N¥O.0 lLa NT-OB]M No—o—""-\y~y—
NNONN—————O—N0M—IOIWT0—O NNO-o- NNw-o—-ySm—y
n[aLMOO—ol¥"a]al[Voa¥—Il—oLL'aalONL—(e N~—-eK NV—o0"_S—\0O@ oI
NMeVOOIN——TIAOFNW=O—mN N—-vB N—"DA@o LL
owno O v

14-16
L=7238
4=604¥
4-603#
4&=-602#
4-601¥
4-600#

24-92

38-10#

46-2

24-109

44-8

24-125

12-29

44-9

N =APR=-80 13:17:48 PAG E S-26

44-11
64-12
44-13
48-264

L
U
I
\
N
Oo=-MSW

46-10
46-10
46-10
46-11

t SC1

SCO
L=548#
4=5550

DO~V~F ~ N~

SADMSK
SAVREG
SC

0R 000—O0 N—0e—LV --II\ —oI"\

CZRMNAO RMO5/3/2 FCTNL TST 2
MACRO v03.01
CROSS REFERENCE TABLE (CREF v01-05 )

9
SEQ 0321

26-68

31-32

Ny -€

12-= 83

12-910
12-739

37-19

46-11

| sW02

=49

L=49
¥

SEQ 0322

CZRMNAO RMO5/3/2 FCTNL TST 2
MACRO v03.01
CROSS REFERENCE TABLE (CREF v01-05 )

N
9
11 =APR=-80 13:17:48 PAGE S-27

SEQ 0323

38-6

=691
&-672#¢

25-106
31-105

34-83

25-108

26-12

38-6

—————

1ST20

—

A————

12-<B9X 386

B 10
SEQ 0324

~ CZRMNAO RMO5/3/2 FCTNL TST 2
CROSS REFERENCE TABLE (CREF

2==720
2=>54#

MACRO v03.01
v01-05 )

¢ 1

11 ~APR=-8B0 13:17:48 PAGE S$-28

SEQ 0325

38-6
38-6

-634

P— ——

N=
-

9-99

25-240
12-459

10-70

10-91

14-23

14-27

14-32

14 34

38-10#

32-55

32-59

33-232

33-264

33-269

35-279

35-282

12-789

12=794

25-169

40-77

40-78

35-479
12-677

gLal EX47

12-894

12-989

12-:85

35-287

12-;81

556
12-<29

12-613

~NAN Yol

‘8(2120 2085278308125-—

-8==N0~2128e3=90M22

12-21

12-<98

~NANy L 0'

12=296

12-A06

12-A32

12-B13

12-B35

12-C12

D 10

12-C26

12-D04

12-D26

12-E35

:
12-E40

12-E67

12-E89 55325232

NN
— (NN
OWW =0
W * (NOD
—

NN
—

mvoc')vvuv

—_

35 34
& 59
5 22
0 12
9 30
2=20

V% (NWNOrN

(ZRMNAO RMO5/3/2 FCTNL TST 2
MACRO v03.01
CROSS REFERENCE TABLE (CREF v01-05 )

25=225
9-34
12-396

E 10

11-APR=-80 13:17:48 PAGE $-29

SEQ 0327

25-238

25+ 253

25-268

35 =279

35-311

9 -77
12 -:18

1 2=(C1 6

9-79

35-315

35-323

40-81

12-D08

12=E71

42-38n

40-82

OOMMDNGOR-O~00N0rO~MO0o
271“%ON—=NMO1339002112021019996"9690——0
L 39

TeiOSSTTT3TTT3T3T33L322LU 332 " H 33L3

qOa2AANO2—pBH——0OsIgaAeTJe4T5~Te..00—MMVA_-NMonE7a——NBFO—TISMI_—pCTB22cXAOB4MDG—6O—FN.—(.MEWCN0BoCyo—N—6—5.UNFlaMGEEODo22B.22K6oA.NDvkONNFMoat_—=+ONNNDM—VMT8‘O5oNo—-k0OUEA“NV—=ODVogD2N.2DNM—.90aD‘MOToeO=UAdIM~=R[MDON—gF452MINOAIVDN_iI‘M.2I2V.Teo1ANoNIsAOg2O—DVVVWi540SOO——LgWO2W.I2-2*VN5*N_OOVM»g»1*1N.—N—O29OGO4MTOgO\M2I.—2A2NOOe350NONGOgI33OO.22G166FOTiOgBFTOM043GV22Og34GONONg0054—.2VNTM“T6TPSOALOgAV652N_‘27O0—N«N[gAO—.6V2M’42DFNNVG=gT—U7G7OMN25OGNVO2NggAI98N2‘M4MNMgoGg—W— M0OTVN992=e3=e=OOI O—+'2B0—VI6WAOO2S\R0tG.G&OO6AAA2\LJ4OAADRG.A2IA40—MRN26MS4NGAO2T&RG0N4Ro606R60‘T0MRG0A41GRO6ToGOMR2R60A2GR02Mo—360S2aR02T60M2MOT60R0M2II6A0N2~AOR-2TM— 6A02TOD602Yow30N§A2TO@0R2AO2O-OTNMo—)o)w—IIN2—eOVoOM—P""lN)©3=—emeTNO]TnM-2A~0GoOh~©,0@=oI0OM~n=VMR7eT3ONo—2NM5—N0NTY—LoLTN2IONO2©(OTWOV'oVNS2ON
oOWVOOS~AYN622NA—W3q5—e.RR—y24eG—MM—NVN—OIVA'0OVMBS523LsAaGN—o—.g0=TOOB—E0N3221A0ONJ——IoC~"(qO0IM523O0N——.ME—OeDDNB321N0A0IVNOT—OeMODC—WENN12P9.0eNrJIITeTV—3O2g8OONIHeIOWN—lM‘.20NsAqse—=PeIa—aTIVVNG0N2O9=—erMIAIyeV-—N.=92—8MvvMNe—NNAge.*1OO827vg*gN*rOvrpGA1—2V—W.72N—6prONGNINMgg——023.ON52I5gCINGMggu03‘..TOV423—OeCNggMO‘5O62IN—ItMIgD0Ig.5OET827'6TNIM_Dg0gO0V6—NMO2O\_0gITggNN7—827=TNMUVe0§g_OONMV3902AAeF00ggeOVE95M2I9NGOTg o—OO=)N=E)No)Om@]""1[l_[=Iea—a(OwwTLTW—N-N=]0-1T(T=2n-.m0lenl0RVOLL[—oYyVTVVo
CROSS REFERENCE TABLE

CZRMNAO RMO5/3/2 FCTNL TST 2
(CREF

MACRO v03.01
v01-05 )
F 1
11 =APR=80 13:17:48 PAGE M=-1

Oe—N ~OMFT=N—O —eNtNYvINGOR!11 NYAvIeNR!10

SEQ 0328

\””YJOoJ..GAf~NelBfNeCllID*wNGEIiFNrIeN0IIgNwIRIsgvoeoealVeN*»oe+ITOTWTNGNIeeOOeNTNeSOTONOgeN-OTgOMOeNMeVNN
MOO—W\~ODIFGTO0TOV0OMNOMv«WNOGOANIT=MONM—CAONNrO=R=OMOOMT0=O0N0OOND0
YoN o(M)=o IEA GCD sV *» ONGON 0UM0 0TO
g——_YeG—eN_GN—eGI_eG—Nee_—eN_IeG—NeG_Ie—P_OPe—NIG_N—IGWOPPPGLe 1POOP1PPI1PRP1O
R
e
e
e
e
e
e
e
e
e
e
N
O
—
O
N
G
O
M
—
O
A
N
C
I
N
M
N
S
M
ooO(Nllooll¥aoAll0l(a¥11N11 11 O) e e e Me Me MB e e AeN NO INI IO TONOD L LAL (NL
W3OABNOIVCODWNVONO—VNMOINsVON*—OND—O0ON—O ONT—NUPMOW—

gWOOeASVNWNeOeINI=NNBOHeNNACIIegNMNINNIgOgBNN=AIeDNNINIIeCENeeDONINfOI—TNNOVeIeIW‘NITvwOsNOTe*Ne»OFIeOWIeOTNOWgNNeOWTNOeOeONNOeeOOeUITMMeMWT==eN
OeNcVantNe—0N M ONN
IYONAAA-MO0BBI—ICCNNSDIT<ADVNVO-IIONOIIBWWNANIIIOITT ss*sVVVOOOO***»»NVOOOOONNOOMOOOOOONN0MTTT0NNN0OOOO0NUUUMM0MM0O=O
N-~N111 wCuMO IsV DOONSNUM—
' PUTREG

- SETPR]
SETTRA
- SETUP
REPORT
RGBFMC

SK1P
SLASH
STARS

38-10
L=4L4L90
L=4918
4=770
&=4910

4=4L910
L=4L918
L&=4910
L=4910
12-91

12->5¢4

12-822

12-C03

—

12=F10

9-25#

12=F12

[o-d—

=91

12-F14

12-F21

38-10

12=F27

A0OVTNvMO0 aiReg— ~NOUMVWeIFONM~ NOG~UMSNOWeAFBNMIDV IOSWTVMNOWNMTVINeM—I 1PGg11—11111 LTIOe NO3W~e0O—N—IOM ei—BNN OFNW—NVNeM—N=e0— eDt
38-10

YOATNOV0MITNIMONFM—NOI0=ONANMNO N

(CREF

—0WO
NO —e— .11111
—NNV
OOR—TNNOO5 OO
OUL N N VLOST

CROSS REFERENCE TABLE

MACRO v03.01
v01-05 )

NINIMIWN M OV M-G0 G0 0 O6 OVMANIO OO

CZRMNAO RMO5/3/2 FCINL TST 2
N =APR=-80 13:17:48 PAGE M-2

6 10
SEQ 0329

12=F31

38-10

12-F38

38-10

12-F50

06
997

2-:87

38-10

12-F71

38-10

12-F82

0—- 8 NLIUN
38-10

926
:05
12-:99
93

=Pel

11=-27

N1MI1—1ON LOA —3MaFD [NToXVaea]T.I O~N N (o-]~

38-10#

15-84

15=107

5=139

15-161

15=194

16-211

H 10
16-291
16=295

24<2

25=26

25-34

25-119

26-1

26=3
SEQ 0330

NO.O.]e—u0nNM0TOBA—O BNNNNBOBVNUINONNMISTINNSROMSSLRTNMNSRTSNLNYUASNNSLeNSSUNSLU1oYR((oo
M—O—NMOMO—MNOONT
AMNANOAN.N|Gmu|NOIBNVI,OeBRIV,T~BBYO0VeeONOTJVOeeCNO3MIBOXNSgONIILONNIaODINDTLOS~ONeaDNM~lI—OTLRBoMtNNOBINOOkOONNDVIJiNLORBTWNROUUaMlSOeLNINMTNUMNlAL—NIA| MN NPLFO!1L A«
NNOOMR«ON|)—ANNNBBAIBNIRINTNNA—eeBeNOReeSTONBNWIANROV3NeOOAIINNNRASTMIBBODOM—YNNINIDNIDRMWOIMADIDNNIADDMOOOBNDNNOLNNAOS—MMDORIIAVNOMLSODOIRROIMOMNNToRMAoIBLONO=WNDIILAIWMLONARDINOVGLNLo ALY IONUNLOOLLALLNUWoLNRIloLUUUVVLLNLOgoOlLlo

ONNSTIVMM=MIN

.OAJOP0TMRJO—OTM3 MODNNOOOD——OWNNINOOTWNMONNVOA—O bNNNNIV—bO—O=0~M0NO0 0
ONON0ITON—3S MOINNNIMOMN0=T0 O= 0 0 N0AGOMNM
p—=Q.> -

TO0NeAN=MVMN

38-4

-4

38-5

38-6

38-7

-—

OTNU=M= ~ON—WTMNOMOPA TNO=MNVN NLAI)LRBeU

-—

N—SNNRO—AOINTBBRNONANBIONOMNe~MIA—NIINITMAOIMOAOIIOVAMeNN NDD~—OAATIDMNNOANDDIIMMNONNITR ANNNIINSONOANRBTOONII NNRROJINUOULL[T
OF"O0M—IOeNV=OIWNVO=INONMNN

MACRO v03.01
(CREF v01-05 )

38-8

Lal

CROSS REFERENCE TABLE

OVODONWVMNO—MNAN

' CZRMNAO RMO5/3/2 FCTNL TST 2
N =APR=8B0 13:17:48 PAGE M -3

11 0
SEQ 0331

38-8
38-8
38-8
38-8
38-9

| TYPBIN