Digital PDFs

AH-F925A-MC

June 1980

333 pages

Original

15MB

view download

OCR Version

14MB

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

CIRMNAQ RM05/3/2 FCTINL TST 2

MACRO v03.01

11-APR-80 13:17:48 PAGE

-REM

= OO0 NN

b e ol ed oed e

= OO 00NN NS

SEQ 0001

NI NN

PIRUPOPONINY
b et o

IDENTIEICATION
PRODUCY

CODE:

AC-F924A-M(

PRODUCT

NAME:

CZRMNAQ RM05/3/2 FCINL

DATE

CREATED:

APRIL

MAINTAINER:

AUTHOR:

MIKE

TST

1980

DIAGNOSTIC

GROUP

LEAVITT

THE
AND

INFORMATION
IN THIS DOCUMENT IS SUBJECT TO CHANGE W]THOUT NOTICE
SHOULD
NOT BE
CONSTRUED AS A
COMMITMENT
BY DIGITAL EQUIPMENT
CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.
THE

SOFTWARE

DESCRIBED

UNDER A LICENSE
(WITH

SYSTEM,

INCLUSION OF

EXCEPT AS

DIGITAL EQUIPMENT
g?GI$ELJABILiTY OF
L.

IN THIS DOCUMENT

IS FURNISHED

TO THE

PURCHASER

FOR USE ON A SINGLE COMPUTER SYSTEM AND (AN BE

(C)

DIGITAL'S

MAY OTHERWISE

BE PROVIDED

ONLY

FOR USE

(OPIED

IN SUCH

IN WRITING BY DIGITAL.

(CORPORATION ASSUMES
NO RESPONSIBILITY FOR THE USE
ITS
SOFTWARE ON EQUIPMENT THAT 1S NOT SUPPLIED BY

1980 DIGITAL EQUIPMENT CORPORATION

MACRO v03.01

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

CONTENTS

INTRODUCTION
1.

ABSTRA(CY

UNIT UNDER TEST

OPFRATING REQUIREMENTS

NN = O 000 NN S NP

—

CIZRMNAO RM0S/3/2 FCTNL TST 2

HARDWARE REQUIREMENTS

MEDIA REQUIREMENTS
PREREQUISITE DIAGNOSTIC PROGRAMS

OPERATING PROCEDURE

s
e
o
s

—
WSS NN

O NS NN =

OPERATOR

TEST

LOADING
SWITCH OPTIONS
STARTING

HALTING
RESTARTING

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

ERROR REPORTS

ONMENTAL SUPPORT

NOCWNES
NN —

ENVI

(L], V], N7, VT, V1, VY, VY, P

NOWVEWN
= OV
N
VN

2.
3.

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

OPERATING SYSTEM COMPATIBILITY

DESCRIPTION

SEQ 0002

VNN~ O VOO NO VNS

PONIPINININY
= = e s el b et s =D

NN = OO0 N

NN —

CZRMNAO RM0S/3/2 FCTINL TST 2

MACRO v03.01

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

1.0

INTRODUCTION

1.1

ABSTRACT

THE

RMO05/3/2

WHICH ~ USES

RM05/3/2

DISK

SEQ 0003

SUBSYSTEM FUNCTIONAL TEST

FUNCTIONAL

SUBSYSTEM.

MEANS

FOLLOWING PURPOSES:

VERIJFY

PARTICULAR,

TO EXPLICITLY ESTABLISH CONFIDENCE

gégsATlgzéVE'

INCLUDING

IMPLICITLY

cLECTRICAL INTERFACE;

MECHANICAL

ESTABLISH

IS A STAND ALONE PROGRAM

THE

OPERABILITY

THE

PROGRAM

SERVES

IN THE BASIC OPERATIONS OF

POSITIONING

CONFIDENCE

AND

THE

DATA

THE

THE
THE

TRANSFER

DRIVE/ADAPTER

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

INCLUDING

THE TEST 1S COMPRISED OF 3 PARTS, WHICH WOULD NORMALLY BE RUN
IN
SEQUENCE,
STARTING
WITH
PART 1.
BRIEFLY, PART 1 1ESTS HOUSEKEEPING
AND MECHANICAL POSITIONING OPERAT'ONS;
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) 1S THE RM05/3/2
DISK
SUBSYSTEM
WHICH
CONSISTS OF THE RH MASSBUS CONTROLLER,
THE RM05/3/2 MASSBUS
ADAPTER,

AND THE STORAGE MODULE DISK DRIVE.
Eg? ETESTING
AND 1S CONSIDERED AN
v

2.0

OPERATING REQUIREMENTS

2.1

HARDWARE REQUIREMENTS
THE

FOLLOWING

OPERATIONAL,
FUNCTIONAL

[V IV

W SV TV IV 1V

NO NS W)
-

NOTE THAT A DISK PACK IS
REQUIRED
INTEGRAL OF THE STORAGE MODULE DISK

MINIMUM

HARDWARE

IS REQUIRED TO LOAD

TEST:

AND

CONFIGURATION,

EXECUTE

ASSUMED

T0O

THE RM0S5/3/2 SUBSYSTEM

PDP-11 PROCESSOR
16K MEMORY
KWll-L OR KW11-P CLOCK

PROGRAM LOADING DEVICE
TERMINAL

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

RMO5'S, RMO3'S OR RM0Z2'S)

CZRMNAO RM0S5/372 FCTINL TST 2

MACRO v03.01

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

SEQ 0004

2.2

60
61

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

MEDIA REQUIREMENTS

CONTAIN A KEADABLE COPY OF THE MFG AND USR BAD SECTOR FILES.

65
2?

2.3

RM05/3/2 DISKLESS DIAGNOSTIC, PART 1 8§ 2

RMO5/3/2 FUNCTIONAL TEST, PART

72
73
;g

3.0

OPERATING PROCEDURE

3.1

PREREQUISITE DIAGNOSTIC PROGRAMS

THE PROGRAM MAY BE LOADED BY EITHER OF

80
g;

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

83
84
gg

3.2

THE FOLLOWING MEDIA:

SWITCH OPTIONS

87
33

OFf

90
91
92
93

SW15
SWi14
SW13
SW12

HALT ON ERROR
LOOP ON TEST (CURRENTLY BEING EXECUTED)
INHIBIT ERROR TYPEQUTS
UNUSED

SW10
Sw09

BELL ON ERROR
LOOP ON ERROR

95
96

THE FOLLOWING SWITCH OPTIONS ARE PROVIDED TO ENHANCE
THE PROGRAM.

SWwil

INHIBIT TEST

THE

UTILITY

ITERATIONS

SwW08

99
100
10°
102
103
104

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

LOOP ON TEST IN SW07-00

LOOP ON.

}82

3.3

107
108
109

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

}}?

112
113
114

STARTING

THE OPERATOR TO CONTROL

3.4

HALTING

TESY

CONDITIONS.

MACRO v03.01

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

SEQ 0005

THE

R RTe Yo Yo Xo o Xo Yo No Yo No JV IV IV LV IV IV IV IV IV IV.E 2E 2E 2P 2 0 o oF
2Po JVTPN PPV TVIIVITUSTVITVIT VT NT,9Y, U1, WY, U1, N7, WY Y, U P
Sl
= OOVONONE NN = OO
NV
W 2OV
NN
WSOV
~NOWVE WA OV
NO WS WNIN OO0~

gl
WD

CIZRMNAO RM05/3/2 FCTNL TST 2

PROGRAM SHOULD BE HALTED BY TYPING CONTROL C

b o

NOTE:

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

e
el el e

CONSOLE.

LT.

3.5

) el

FROM THE

RESTARTING
PROGRAM CAN BE

RESTARTED AT

ADDRESS

200.

4.0

OPERATOR

4.1

PROGRAM ]D
THE

D el
i
il
D el el o
i el
e
o el
il el e
il

INTERFACE

PROGRAM TYPES

1TS

NUMBER

THE

FIRST

HALTED
IMPROPERLY.
THE PRCGRAM IDENTIFICATION AND
OCCUR IF THE PROGRAM IS RESTARTED.

THE

WARNING DC NOT

1S STARTED
AFTER BEING
NOTIFING THE OPERATOR OF

&.2

TITLE AND MAINDEC

TIME

LOADED.
ALSO,
A WARNING
MESSAGE IS
TYPED,
POSSIBLE HEADER CORRUPTION IF
THE PROGRAM IS

CONSOLE DIALOGUE

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

THE FIRST QUESTION TYPED QUT IS:
‘'TYPE HELP TEXT
(Y/N) 7',
THE
OPERATOR
RESPONDS WITH A ''Y'', THE PROGRAM WILL TYPE A BRIEF

HELP MESSAGE WHICH WILL LIST

NOTE:

D el e

i AR e

il oD e

s o

i e B e

D e

Tkt

SWITCH OPTIONS,

ETC.

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 ''v'',
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.
THE

THIRD

NOTE:

THE
THE
THE

QUESTION

TYPED IS,

'TYPE '‘A"' TO TEST ALL DRIVES, OR

TYPE
DRIVE NUMBER(S)
AND TERMINATE
INPUT WITH
A CARRIAGE RETURN.'
THEN, °'DRIVE(S):' IS TYPED AND WAITS FOR THE OPERATOR TO 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''.

LONG
VERSION OF THE
INITIAL PROGRAM START.

'DRIVE(S):'

PROMPT

THIRD QUESTION IS ONLY TYPED ON
ON ALL SUBSEQUENT STARTS, ONLY
]S TYPED.

CIZRMNAD RMOS/372 FCTINL TST 2

MACRO v03.01

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

SAME

THE PROGRAM IS RESTARTED,

DEVICES

(Y/N)

?"',

THE

THE FIRST QUESTION
OPERATOR

TYPED

TYPES ''vy"',

THE

1S,

TEST

'‘USE

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

4.3

PROGRESS REPORTS

AN END OF PASS REPORT OCCURS EACH TIME THE
FOR
ALL
DEVICES
1IN THE TEST QUE.
THE END OF
MESSAGE AND AN ERROR SUMMARY.

4.4

PERFORMANCE

PROGRAM
IS
EXECUTED
PASS REPORT INCLUDES A

REPORT

NO PERFORMANCE
PROGRAM,

REPORTS

ARE

GIVEN

DURING

THE

EXECUTION

THE

d o

b el et ol

i el el i

od e

ol o

el e

O ~O O O O 0 00 00 00 0D 00 00 00 00 00 OB ~N ~ ~ ~J ~J ~J ~J ~J
W
NNV =2 O 000NN N = O 000 ~NO NS NN

SEQ 0006

196

4.5

PROGRAM HALTS

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

4.6

UNIT
THE

O
NONS LN
OO NN

2OV

NIPORNVRNORNURNORUND
N = et aed et = el

NONLNLNLNLNLALNLAL
NPV N AU PNV NN RO N

EXECUTION OF

THE

PROGRAM.

ERROR REPORTS

THE

FIRST

LINE OF

BEING TESTED,

THE ERROR REPORT

THE TEST NUMBER,

PROGRAM COUNTER WHERE

THE

ERROR MESSAGE:

CONTAINS

THE

CALLED.

THIS

THE ERROR WAS

ONE OR MORE LINES OF

YET COMPREHENSIVE DESCRIPTION OF
NORMALLY
FOLLOWED
BY
ONE
OR
HEADERS AND DATA PERTININENT TO
ACTUAL TEST RESULTS.

5.0

ENVIRONMENTAL SUPPORT

5.1

PROCESSOR COMPATIBILITY

NUMBER

THE

THE ERROR NUMBER AND THE VALUE OF

THE
MORE
THE

ERROR.
PAIRS
ERROR,

THE RM05/3/2 SUBSYSTEM FUNCTIONAL TEST

LINE

IS FOLLOWED

TEXT WHICH GIVE A BRIEF,

THE
ERROR
MESSAGE
IS
OF LINES CONTAINING DATA
INCLUDING
EXPECTED
AND

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.

5.2

DUAL PORT CONFIGURAT]IONS
THE RM05/3/2 SUBSYSTEM FUNCTIONAL

TEST DOES NOT

SPECIFICALLY

TEST

[aSTaC1 OI N1, 81,81,
V7,V1,97,¥71,
LN U AN LN N N AN N NN

OO NN
WA —O 0

CZRMNAO RMOS/3/2 FCTINL TST 2

MACRO v03.01

11-APR-B0 13:17:48 PAGE

3-4

SEQ 0007
DUAL
PORT
LOGIC
IN
THE
RMO5/3/2
ADAPTER
BUT
IS
EXECUTABLE
ON
RM05/3/2
SUBSYSTEMS
HAVING
THE
DUAL PORT OPTION PRCV IDING THE DUAL
PORT

5.3

SWITCH

IS SET

TO THE APPROPRIATE

MEMORY PARITY HARDWARE

IS NOT

USED DURING THE

EXECUTION

THE

MEMORY MANAGEMENT HARDWARE

MEMORY
MANAGEMENT
HARDWARE
IS
NOT
SUSBYSTEM FUNCTIONAL TEST.
CAPABILITIES OF

5.5

(A OR B).

MEMORY PARITY HARDWARE

RM05/3/2 SUSBYSTEM FUNCTIONAL TEST.

5.4

PORT

ACT11, APT11

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

COMPATIBILITY

THE RM05/3/2
SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH
ACTI
AND APT11
IN
BOTH
DUMP
AND
AUTOMATIC MODES.
FURTHER, THE PROGRAM
WitL 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
AND

(HAIN MODES,

TEST

IS COMPATIBLE WITH XXDP IN

AND PROVIDES MEDIA PROTECTION

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

5.7

CASE

WHERE

OPERATING SYSTEM COMPATIBILITY
THE

6.0

IN THE

PROGRAM

S NOT

COMPATIBLE

WITH ANY

SOFTWARE

OPERATING

SYSTEM,

TEST DESCRIPTION

CONTROLLER ACCESS TEST
PURPOSE:

VERJFY

THAT

THE

UNIBUS

ADDRt>S OF

CORRECT, AS DEFINED AT LOCATION $BASE.
:
PROCEDURE

THE

SUBSYSTEM

CIZRMNAO RM0S/3/2 FCINL TST 2

MACRO v03.01

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

USING

THE

TEST

THE

TRIES

$BASE

SEQ 0008

TO ACCESS ALL

ADDRESS.

THE TEST, AND THE TEST
REGISTER TRANSFER.

FAILS

MASSBUS

(CONTROLLER

BUS

TIMEOUT

REGISTERS

IGNORED DURING

OCCURS

FOR

ANY

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

DEVICE AVAILABLE

OTHERWISE,

THE

PROGRAM ESCAPES

TEST

PURPOSE:

AND

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

TESTING,

= OO0
N
NI
Ny —

THIS TEST
SELECTS
THE
DEVICE
REGISTERS 1 AND 2 TO VERIFY THAT THE
FOR TESTING,
ééATgSé
BIT
LLOWS:

AS INDICATED BY
12
OF
RM(CS2.

AND
READS
CONTROL
STATUS
SELECTED DEVICE 1S AVAILABLE

DVA STATUS, BIT
THE RESULTS OF

11 OF RMCST AND
NED
THE TEST CAN VARY AS

N AN N G AN N N N

PROCEDURE
:

W AN L

[ ] N PPN

.NONEXISTANT DEVICE - THE DEVICE IS NONEXISTENT OR IS LOCKED
ON THE ALTERNATE PORT AND IS THEREFORE NO' AVAILABLE FOR TESTING;
THE

.DEVICE NOT

ALTERNATE

AVAILABLE - THE DEVICE EX]STS BUT

PORT

AND

IS NOT

AVAILABLE

.BUS TIMEOUT - THE MASSBUS
NONEXISTENT DEV!CE;

CONTROLLER

.DEVICE AVAILABLE - THE DEVICE

N~ OOV ~NO NN

SEIZED

DETECT

TESTING:

FAILED

IS AVAILABLE FOR TESTING.

THE PROGRAM JUMPS TO THE SUBPASS HANDLER WHICH
SELECTS
DRIVE TO BE TESTED IF THE DEVICE IS NOT AVAILABLE.

THE

H o~ B

NNAN

N AN AN N N

N N N N N NN

FOR

DRIVE

TYPE

TEST

:
PURPOSE

T0 VERIFY
THAT THE UNIT UNDER TEST
SINGLE PORT OR DUAL PORT SUBSYSTEM.
:
PROCEDURE

IS AN RMOS, RMO3 OR RMQ?

CIZRMNAO RM0S5/3/2 FCTINL TST 2
343
344
345
346

MACRO v03.01

11-APR-80 13:17:48 PAGE

3-6

SEQ 0009

THIS TEST READS
THE
DRIVE
TYPE
REGI STER,
RMDT,
OF
THE
SELECTED
DEVICE AND VERIFIES THAT THE DEVIC E IS A SINGLE PORT OR
DUAL
PORT
RM05/3/2 SUBSYSTEM.
IF THE SELE CTED DEVICE IS NOT AN
RM05/3/2, THE
PROGRAM
JUMPS
TO
THE SUBPA SS S HANDLER 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
FUNCTIONALITY OF THE RM05/3/2 SUBSYSTEM
USING A SET OF

gg#gTT{g£§UDE WORD COUNT,

HEAD MOTION,

HEAD SWITCHING

AND

DATA

VARIABLES

AND

ERROR

PROCEDURE:

ALTHOUGH EACH
TEST
EXERCISES
A
DIFFERENT
VARIABLE,
THE
GENERAL
PROCEDURE
OF
EACH
TEST
IS
THE
SAME.
THE DRIVE IS
INITIALIZED AND RECALIBRATED IF ''PIP"" OR ''SK1'' 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

1S EXECUTED.
WHEN THE WRITE COMMAND IS COMPLETE, THE TEST STORES
ALL SUBSYSTEM STATUS AND CHECKS FOR PRIMARY ERRORS WHICH PRECLUDE
OTHER STATUS CHECKS.
IF THERE ARE NO PRIMARY
ERRORS,
THE
TEST
VERIFIES
THE
RESULTS
OF
THE WRITE COMMAND AND THEN CHECKS FOR
SECONDARY ERRORS.
LOOP
ADDRESSES
ARE
MODIFIED
FOLLOWING
THE
SUCCESSFUL
COMPLETION
OF
THE WRITE COMMAND IN ORDER TO SHORTEN
EXECUTION TIMES AND
ENHANCE
SCOPING
LOOPS,
THEN
THE
PROGRAM
EXECUTES
THE READ HEADER AND DATA PORTION OF THE TEST, VERIFYING
THE SAME TYPE OF 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

;gsg:i

FORMAT

UNLESS

ZEROS

THE

SPECIFIED OTHERWISE,

ALL

TESTS

ARE

IN 16 BIT

TEST

SEEKS TO CYLINDER O,

THEN WRITES HEADER AND DATA ON

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

AND

DATA

ARE

READ

AND

COMPARED

WITH

INITIAL SEEK POSITIONS THE HEAD SUCH THAT

THE WRITE BUFFER.

THERE

THE

IMPLIED

CIRMNAO RMOS5/3/72 FCTINL TST 2
400
401
402
403
604
405
406

607

408
409
610
o
612

63
614

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
THE TEST EXECUTES A SEEK TO CYLINDER O TO INSURE THAT
THERE
IS
NO
HEAD
MOTION DURING DATA /RANSFER.
THIS IS FOLLOWED BY A
WRITE HEADER AND DATA COMMAND WITH THE WORD COUNT
EQUAL
TO
THE

SIZE
OF
THE
HEADER WHICH CAUSES YHE RH
TO ZERO FILL
FITID.
THE READ HEADER AND DATA COMMAND
THAT
FOLLOWS
FULL SECTOR AND VERIFIES THAT DATA WAS ZERO FILLED.

THE DATA
READS
A

615

416
617
618
«19
620
621
422
623

626

FORMAT

(HECK

ZEROS

TEST

THE TEST WRITES HEADER AND AN ALL
PERFORMS A WRITE CHECK HEADER AND DATA
ARE NO ERRORS.

ZEROS
DATA
FI ELD,
COMMAND AND VERI FIES

THERE

ZEROS

AFTER

THEN

625
626
627
628

429

430
631
632

433
634
435
436
637
438
639
440
461
L2

443
L44

645

446

FORMAT

CHECK

THE

ZEROS W/

TEST

w(E

ERROR

TEST

WRITES HEADER AND AN ALL

DATA

FIELD.

COMPLEMENTING
THE
LAST
WORD
OF
THE
WRITE
BUFFER,
THE
PERFORMS A WRITE CHECK HEADER AND DATA COMMAND AND VERIFIES
THE

CORRECT

WRITE

CHECK

ERROR

1S DETECTED.

TEST
THAT

FORMAT ONES TEST
THE

TEST

WRITES

HEADER

AND

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 NOURMAL WRITE GATE.

447

648
4469
450

651

FORMAT

654
655
€56

gzésgs CHECK HEADER AND DATA COMMAND,

652
653

CHECK ONES TEST

THE

TEST

FORMATS AN ALL

ONES

F I E%D [
THE
VERI FYING THAT

DATA

PERFORMS
A
THERE ARE NO

CIRMNAO RMO5/3/72 FCINL TST 2
657
458
459
660

461

462
663
464
465

466

467
468
469
470
134!
72
473
674
675
676
Y44
478
679
480
481
482
483
484

MACRO v03.01

FORMAT

489
490
9N
492
493
494
695
496
497

SEQ 0011

(HECK ONES W/ WCE ERROR

TEST

THE TEST FORMATS AN ALL ONES DATA
FI ELD,
THEN
COMPLEMENTS
LAST WORD OF THE WRITE BUFFER.
A WRIT E CHECK HEADER AND DATA
COMMAND IS EXECUTED, AND THE TEST VERIFIES THAT THE CORRECT WRITE
THE

CHECK ERROR

FORMAT

IS DETECTED.

MULTIPLE

THE

TEST

SECTORS

SEEKS

TEST

TO CYLINDER O

INSURE

THERE

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

485

486
487
488

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

THE

MOTION

TEST

DURING

SEEKS TO CYLINDER O TO
DATA TRANSFER.

THE

INSURE

WRITE

THERE

HEADER AND DATA

HEAD

COMMAND

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

ARE
WRITTEN.
THE SAME
gg??g: AND DATA COMMAND,

SECTORS
ARE VERIFIED WITH A WRITE CHECK
USING THE
SAME
WORD COUNT AND STARTING

FORMAT WITH MID-TRANSFER SEEK TEST

LAST

THIS TEST WRITES MULTIPLE

TRACK AND SECTOR 31.,

SECTORS STARTING WITH CYLINDER

FIRST SECTOR IS WRITTEN, THE SAME
CHECK HEADER AND DATA COMMAND.

FORMAT

WiTH

IMPLIED SEEK

CAUSING A MIDTRANSFER SEEK AFTER THE
SECTORS ARE

VERIFIED WITH WRITE

TEST

THIS TEST SEEKS TO THE LAST CYLINDER PRIO R T0 WRITING HEADER
AND
DATA
ON
CYLINDER
0.
THE EXPLICIT SEEK | NSURES THAT THERE
WILL BE MAXIMUM HEAD MOTION DURING THE IMPLIED S EEXK OF THE
WRITE

CZRMNAO RMO5/3/2 FIINL TST 2

514
%}2

MACRO v03.01

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

SEQ 0012

COMMAND, ~ THE
SAME
OPERATION,
INCLUDING
REPEATED FOR READ HEADER AN~ DATA,

THE EXPLICIT SEEK IS

517

518
519
520
g%}

FORMAT EACH SECTOR ADDRESS TEST

523
g%g

HEADERS AND DATA OF EACH SECTOR ON CYLINDER 0, TRACK
0
ARE
FORMATTED AND READ WITH THE PROGRAM VERIFYING HEADERS AND DATA,

526
327
528
529
g%q

FORMAT EACH TRACK ADDRESS TEST

532

2%2

READS EACH SECTOR WITH THE PROGRAM VERIFYING HEADERS AND DATA,

AND

FORMAT FrRIME CYLINDERS TEST
THIS

CYLINDER,

TEST

I.E.,

FORMATS AND READS

CYLINDERS

SECTOR 0,

1,2,4,8,...,512.

TRACK

O ON EACH

PRIME

A
VIS

VIWALANAL

bl al u
- O

535
936
537
538
539

THIS TEST FORMATS SECTOR O OF EACH TRACK OM CYLINDER

566

567

gzg
OO0 "NO £ (N

eSV IV IV, IV IV IV TV TV A

WAV
WA VVA AL

550
951

READ HEADER & DATA IN LAST SECTOR TEST
DISK,

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

READ HEADER & DATA W/
THIS

SECTOR 31.

TEST

AOE ERROR

READS MULTIPLE

THE,

TEST
SECTORS

AND VERIFIES THAT AOE

STARTING

STATUS SETS.

566

READ INVALID SECTOR ADDRESS TEST

568
369

THIS TEST USES AN JLLEGAL SECTOR ADDRESS AND
TAE STATUS SETS.

WITH

THE

LAST

VERIFIES

THAT

ARSI
ALY AIV IV TV Lo(Y Al Al Sl V AV I LV LW AV LV LV IV [V ]

~O ~0 0o 0o 0o OO OO OO0000 (000 N~ NNVNNN~
— OV
~NO N WA~ DO 00 NN
(NAD —

CIRMNAO RM05/3/2 FCTNL TST 2

MACRO v03.01

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

READ

TAE

READ

IAE

INVA_ID

TRACK

ADDRESS

THIS TEST USES AN

STATUS SETS.

INVALID

CYLINDER

THIS TEST USES AN
STATUS SETS.

FORMAT AT OFFSET

SEQ 0013

TEST

ILLEGAL

ADDRESS

ILLEGAL

TRACK ADDRESS

AND

VERIFIES

THAT

TEST

CYLINDER ADDRESS AND VERIFIES

THAT

TEST

THE PROGRAM SETS OFFSET MODE AND EXECUTES A WR ITE
TE
HEADER AND
?GLQANSOMHAND.
VERIFYING
THAT OFFSET MODE IS RESE T BY THE WRITE

1vC

FORMAT

TEST

VOLUME VALID IS RGBET BY SETTING

AND

RESETTING

DIAGNOSTIC

MODE.
THE TEST THEN EXECUTES A WRITE HEADER AND DATA (OMMAND AND
VERIFJES THAT INVALID COMMAND STATUS SETS.
THE TEST 1S
REPEATED
FOR READ HEADER AND DATA COMMAND.

FORMAT ERROR TEST
A SINGLE SECTOR IS FORMATTED WITH TME
OFESET
REGISTER
SE 1
16
BIT FORMAT AFTER WHICH THE SAME SECTOR IS READ IN 18 Bl 1
FORMAT WITH THE PROGRAM VERIFYING THAT
FORMAT
ERROR
STATUS
|S

FOR

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

FORMAT HCE

TEST

(1ST

AND ZND HEADER WORDS)

CIRMNAQ RM05/372 FCTNL TST 2

628
629
630
631

g%%
634
635
636
637

MALRO 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 O AND USE THE

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

SEQ 0014

CZRMNAD RMOS/3/2 FCINL TST 2

MACRO v03.01

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

2
SEQ 0015

. PROGRAM REVISION #001

)
486
<87

JTITLE

CZRMNAO RM05/3/2 FCTNL TST 2

:'COPYRIGHT (C)

1980

:*DIGITAL EQUIPMENT CORP,
'MAYNARD MASS. 01754
'PROGRAM BY MIKE

LEAVITT

'THIS PROGRAM WAS ASSEMBLED USING THE
'PACKAGE (MAINDEC-11-DZQAC-C4), 1980.

O —=MNINS VO

TEST

IN SWR<7:0>

TN64

TN4

TN2
TN1

EMT
107

::BASIC DEFINITION OF
;;BASIC DEFINITION OF

ERROR CALL
SCOPE CALL

P1RQ

DSWR

bod

1) o
T
T
[T

[aal

[

o~ N
— O *

P o 0

NNV

PSW=PS
STKLMT

oo~

NO WA
~NO

LF
(R
CRLF

—

s*MISCELLANEOUS DEFINITIONS

DDISP

000002
000003

ITERATJIONS
ERROR
ERROR

c*INITIAL ??BSESS OF THE STACK POINTER #x+ 1100 #we

STACK
ERROR
SCOPE

b () el el b

00001
000012
000015
000200
177776
177776
7774

TEST
ERROR TYPEOUTS

TN32
TN16
TN8

NNNN
NNV

000004

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

BASIC DEFINITIONS

— D e wadd

104000

USE

NODOO —MPNILNS WD

BN B
N
BN 2R 2N BE BE NE NN NN N
N
2
B
R

.SBTTL

001100

SYSMA(

HALT ON ERROR

490
9N

SWITCH

489

MAINDEC

OPERATIONAL SWITCH SETTINGS

)

-.~.-...-.~...~..-.-.n...-.-......-o

SBTTL

>0
>0 >2 O
W)=t OC

«88

PDP-11

RPOSE

;;CODE FOR HOR]ZONTAL TAB
..CODE FOR LINE FEED
.. CODE FOR CARRIAGE RETURN
.. CODE FOR CARRIAGE RETURN-LINE FEED
: :PROCESSOR STATUS WORD
¢ STACK LIMIT REGISTER
: :PROGRAM INTERRUPT REQUEST REGISTER
: ;HARDWARE
. HARDWARE

SWITCH REGISTER
DISPLAY REGISTER

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

REGI STER
REGI STER
REGI STER
REGI STER

CZRMNAO RMO5/3/2 FCTNL TST 2

BASIC DEFINITIONS

000004
000005
000006
000007
000006
000007
000000
000040
000100
000140
000200
000240
000300
000340
100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020

000010
000004

000002
000001

001000

000400
000200
000100
000040
000020

000010
000004
000002
000001

100000

040000
020000
010000
004000
002010
001000
000400
000200
000100
000040

MACRO v03.01
R4

RS
R6
R7
SP
PC

= X4

=
=
=
=
=

;*PRIORITY

X5
%6
X7
X6
X7

PRO

PR2
PR3
PR&
PRS
PR6
PR7

=
=
=
=
=
=

PR1

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

SEQ 0016

; sGENERAL REGISTER

s sGENERAL REGISTER
;;GENERAL REGISTER
;s GENERAL REGISTER
;s STACK POINTER
; ;PROGRAM COUNTER

LEVEL DEFINITIONS

= 40

100
140
200
240
300
340

¢ :PRIORITY LEVEL 0
::PRIORITY LEVEL

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

2
3
4
5
6
7

;;PRIORITY
;sPRIORITY
;:PRIORITY
::PRIORITY
;;PRIORITY
;:PRIORITY

;*''SWITCH REGISTER' SWITCH DEFINITIONS

SW15

W14

‘W13
Swi2

= 100000

= 40000

= 20000
= 10000

SWwi
SWw10

= 4000
= 2000

SW06

= 100

Sw09
Swo8
SWo7

= 1000
= 400
= 200

SW05
= 40
SWos
= 20
SW03
=10
Swi2
= 4
SW01
=2
Sw00
=1
SW9=5w09
Sw8-5w08
SW7=5w07
SW6=5w06
SW5=5w05
SW&=5W04
SW3=5w03
SW2=5w0?2
SW1=5w01
SW0=sw00

:*DATA BIT DEFINITIONS (BITOO0 10 BIT15)
= 100000

BIT'S
BIT14
BIT13
BIT12
BIT11
BITI0
81109
81108
81107
81106
BITOS

= 40000

=
=
=
=
=
=
=
=
=

20000
10000
4000
2000
1000
400
200
100
40

=
) —ad
—
el
il
il crl
D
—

OO~
NS NN = O

WAV IV IV IV IV IV IV IV 1V}

509

000024

000026

—4
—
—
et —t —t —t —4 —
—

QOO OOOOOOON I h
I i
Q= NINES
N0
DO
SN
S =N
(&1 e

HO=PNINS

et Pt

B
h

i) God P
St fuet Pt Pus

NI YVOOOOO

et
0l

O =N NS N

o =
— ] ] ) ) )

G 00 0 0o 0 oo

) ] ) =~ —4

0
T

Pt Pt Bt o) Do) B

O G0 O CD T
O

SEa 0017

>»

[v o]

*BASIC ”CzU" TRAP VECTO R ADDRESSES
;:;TIME OUT AND OTHER ERRORS
RESVEC
::R%&ESY;D AND ITLLEGAL INSTRUCTIONS
;

ERRVEC

TBITVEC
TRTVEC

. TRACE

TRAP

:BREAKPOINT TRAP (BPT)
:: INPUT/0UTPUT TRAP (10T) #«SCOPEwe
; ;POWER FAIL
:;EMULATOR TRAP (EMT) ~«ERROR®*

BPTVEC
JOTVEC
PWRVEC

EMTVEC

::""TRAP'' TRAP

TRAPVEC
TKVEC
TPVEC
PIRQVEC

;. TTY
::T1TY

KEYBOARD VECTOR
PRINTER VECTOR

; ;PROGRAM INTERRUPT REQUEST VECTOR

LSBITL

RM REGISTER BIY

J*RM(CST

CONTROL

DEFINITIONS

STATUS R EGISTER

;DEVICE AVAILABLE-READ ONLY

004000
000040
000020
000010
000004
000002
000001
000077
000000
000002
000004
000006
000010
000012
000014
000016
000020
000022
000022

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

o
W

—

[

+FUNCTION CODE
@

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

Bt Pt P

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

Gt Gt Pt Dt G

BASIC DEFINITIONS

MACRO v03.01

G0 00 0o OG0 Cd 4

CZRMNAO RM05/3/2 FCTNL TST 2

RIP
PAKACK
PACACK

ILF26
ILF26

000077

sFUNCTION CODE

sFUNCTION CODE
;FUNCTION CODE
;G0 BIT
sFUNCTION CODE MASK

CODES (BITS 01 -05 OF RM(CS1)
000000
+NOP_COMMAND
000002
s ILLEGAL COMMAND
000004
: SEEK COMMAND
000006
;RECALIBRATE COMMAND
000010
;DRIVE CLEAR COMMAND
;RELEASE COMMAND
000012
000014
;OFFSET COMMAND
000016
sRETURN TO CENTERLINE COMMAND
000020
;READ IN PRESET COMMAND
sPACK ACKNOWLEDGE COMMAND
000022
PAKACK

000024
000026

s JLLEGAL COMMAND
; ILLEGAL COMMAND

CIRMNAO RMOS5/3/2 FCINL TST 2

RM REGISTER BIT

VOO NO NS NN 2OV

~NO NS

AU
A TSN AU
L LN
LN LN NN N NN N N NN PO PO RO PO N

520
523

IV TV IV IV IV IV IV IV IV ] NN VAUA AN

N YW
~ooooo0oo0o0o0o0o AN
QOOWONO
WV
WA —=O OO NO- & wir

551

571

DEFINITIONS

000030
000030
000032
000034
000036
000040
000042
0000446
000046

000050
000052
000054
000056
000060
000062
000064
000066
000070
000072
000074
000076

MACRO v03.01

SEQ 0018

ILF30
ILF32
ILF36
ILF36
ILF40
ILF&2
ILF&6

ILF&6
wCD
WCH

ILFS4¢
ILF56

WD
WH

ILF64
ILF66

RD
RH

ILF7¢
ILF76

;*RMDA
s TRACK
TA16

= 000030

=
=
=
=
=
=
=

= 000060
= 000062

= 000064
= 000066

:ILLEGAL COMMAND
s ILLEGAL COMMAND
¢READ DATA COMMAND

= 000070
= 000072

;READ HEADER AND DATA

= 000074
= 000076

DISK

ADDRESS

; ILLEGAL COMMAND

SA16
SA8
SAL
SA2
SA1

177400

JTRACK & SECTOR MASKS
TADMSK
= 177400

BITI
BIT10
BIT09
B1708

;SECTOR ADDRESS DEFINITiONS
=
=
=
=
=

BITO4
BIT03
BI102
81101
BIT00

SADMSK

= 000377

;*RMDS

DRIVE STATUS REGISTER

ATA

= BIT15

ERR
PIP
MOL

= BIT14
= BlT13
= BIT12

LBT

= BI1T10

WRL

= BITI

PGM

= 81109

;J*RMER]

ERROR REGISTER M

DPR
DRY
Vv
oM

=
=
=
=

(OMMAND

: ILLEGAL COMMAND

ADDRESS DEFINITIONS
= BIT1?2

=
=
=
=

COMMAND
COMMAND
COMMAND
COMMAND

ITE CHECK DATA (OMMAND
ITE CHECK HEADER AND DATA
LEGAL COMMAND
LEGAL COMMAND
ITE DATA COMMAND
URITE HEADER AND DATA COMMAND

= 000054
= 000056

000020
000010
000004
000002
000001

060000
020000
010000
004000
002000
001000
000400
000200
000100
000001

; ILLEGAL
: ILLEGAL
LLEGAL
LEGAL

= 000046
= 000050
= 000052

TA8
TAL
TA2
TA1

100000

; SEARCH COMMAND
: ILLEGAL COMMAND
; ILLEGAL COMMAND
; JLLEGAL COMMAND
; ILLEGAL COMMAND

000030
000032
000034
000036
000040
000042
000044

010000
004000
002000
001000
000400

000377

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

B]108
B1107
BIT06
81100

: TRACK
s TRACK
s TRACK
: TRACK

ADDRESS 16.
ADDRESS 8.
ADDRESS 3
ADDRESS

; TRACK ADDRESS

;SECTOR
:SECTOR
;SECTOR
s SECTOR
;SECTOR

ADDRES S 1 6.
ADDRES S 8.
ADDRESS &
ADDRES
ADDRES

s TRACK

ADDRESS MASK

;SECTOR ADDRESS MASK

SJATTENTION ACTIVE
;COMPOSITE ERROR
;POSITIONING IN PROGRESS
MEDIUM ON LINE

JWRITE LOCK

<LAST BLOCK TRANSFERRED
+ PROGRAMMABLE
:DRIVE PRESENT
:DRIVE READY
;VOLUME VALID
;OFFSET MODE ACTIVE

115760

—4
—
—

o OOOOOOOOO———b—d—s—
o = PNON
S NO ND OO — NN
DN

) —
—f
=
et

Pt Dt Pt P

ILR
ILF

)

Pt Pt Ponect Pt Dot St B

RMR

)

OP1
DTE
WLE
1AE
AOE
HCRC
HCE
ECH
wWCF
FER
PAR

)

000200
000100
000040
000020
000010
000004
000002
000001

DCK
UNS

Pt P

100000

060000
020000
010000
004000
002000
001000
000400

-—t e

(O LV LU TV LV LV LU LV LU LV, ]AV ]
00000000
NN ~NN~N~N ~
WA = O 000~ w

572

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

[ ot S

RM REGISTER BIT DEFINITIONS

MACRO v03.01

w@ [eedoefosRoe oelooRosReoRoodoodooReodoekoodeo

CIRMNAO RMOS5/3/2 FCINL TST 2

SEQ 0019
;DATA (HECK ERROR

;DRIVE UNSAFE
;OPERATION INCOMPLETE
;DRIVE TIMING ERROR
;WRITE LOCK ERROR

s INVALID ADDRESS ERROR
;ADDRESS OVERFLOW ERROR
sHEADER CRC ERROR
sHEADER COMPARE ERROR

;ECC "'HARD'' ERROR

;WRITE CLOCK FAILURE

:FORMAT ERROR
;PARITY ERROR

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

ND TMSK

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

1.E., HOUSEKEEPING AND POSITIONING COMMANDS

: *RMAS

ATTENTION SUMMARY REGISTER

ATNMSK

= 377

;*RMLA

LOOK AHEAD REGISTER

002000
0010C0
000400
000200
000100

SC4

s
SCO

=
=
=
=
=

003700

SCTMSK

= 003700

: *RMMR1

MAINTENANCE

000377

SC3
SC2

BIT10
BIT09
BIT08
B1107
BIT06

;WRITE ONLY BITS

100000

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

DBCK
DBEN
DEBL
D10
MCLK
MRD
MUR
MOC
MSER
MDF
MS
MwP
Ml
MS(C
DMD

100000

o146

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

;MASK FOR ATTENTION BITS

BIT15
BIT14
BIT13
BIT12
B8ITN
BIT10
BIT109
BIT108
81107
Bl106
81105
BI1103
BI102
BITO
81100

.READ ONLY BITS

= BIT1S

;SECTOR
;SECTOR
;SECTOR
;SECTOR
;SECTOR

COUNT
COUNT
COUNT
COUNT
COUNT

= 16
= 8
= ¢4
= 2
=1

:SECTOR COUNT MASK
REGISTER M

;DEBUG CLOCK
sDEBUG CLOCK ENABLE
;DIAGNOSTIC END OF BLOCK
;DIAGNOSTIC TIMEOUT
SMAINTENANCE CLOCK
<READ DATA
JUNIT READY
:ON CYLINDER
:SEEK_ERROR
;DRIVE FAULT
sSECTOR PULSE
;WRITE PROTECT
s INDEX PULSE
;SECTOR COMPARE
<DIAGNOSTIC MODE

;OCCUPIED

= = =t — — — — — — — —¢
OCOO0O0O0CO0OO0OO—————
O= NN
N0 NOO OO =M
MM

SNGPRT
DULPRT

001777

O
O 00 00 GO 0O O 00

O 0o 0o
G

TR TR TR TR

St Gt Gt Bt Bt

;LAST SECTOR
sLAST SECTOR AND TRA(K
sDIAGNOSTIC MODE
REGISTER

0264
T

sNOT

SECTOR ADDRESSED

:TAPE DRIVE = 0
;MOVING HEAD

;SINGLE PORT DRIVE

TYPE

(RM0O2)

;DUAL PORT DRIVE TYPE (RMOZ2)

FMT16
ECl

HCI
OFD

; *RMD(

DESIRED CYLINDER ADDRESS REGISTER

CYLMSK

= 001777

;DRIVE REQUEST REQUIRED

010000
004000
002000
000200

;WRITE DATA BIT

024

OFFS

CLOCK

;ENABLE ECC OuT

; *RMOF

b
b

020024
024024

;WORD

- NS

NSA
TAP
MOH
DRQ

TYPE

—

040000
020000
004000

—dmdadmd

LST

SEQ 0020

;RUN AND GO
;END OF BLOCK
SEXCEPTION
;ENABLE SEARCH
sLOOKING FOR SYNC
;ENABLE CRC OuT
sDATA AREA
JHELCIR APEA
s CONTINUE

MWD

EECC

CONT

PHA

ECRC
PDA

ESRC

PLFS

s*RMDT

REX

et Pt Bant Pmect Prnch Pt Pt ot Bt

DMD

EBL

100000

000010
000004
000002
000001

000020

049000
020000
010000
004000
002000
001000
000400
000200
000100
000040

DEFINITIONS

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

[

RM REGISTER BIT

MACRO v03.01

CZRMNAQ RMOS5/3/2 FCTNL TST 2

2
1

0
B1107

:16 BIT WORD FORMAT
sECC

INHIBIT

sHEADER COMPARE INHIBIT
;OFFSET FORWARD

¢MASK FOR CYLINDER ADDRESS

; *RMMR? MAINTENANCE REGISTER #2

678

QOOOOOOOOO
—4—0 b ~s s b
O = PNINENO
N
OO — NN

e
e

N
Y

s
N

ey
e

R
e R
R

ey
e

BBO3
BBO2
BB01
8800

e R

8809
8808
8807
BB06
BBOS
BBO4

cc
CH

RQB
TAG
ST

677

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

égEAD ON LY BITS
DDOODDODODOODDODODOODDD

100000

;PORT A REQUEST
;PORT B REQUEST
:TAG CONTROL

;COMMAND SEQUENCE TEST 811
JCONTROL OR CYLINDER TAG
;CONTROL OR HEAD TAG
;TAG BUS

;TAG BUS

:TAG
;TAG
;TAG
;TAG
;TAG
;s TAG

BUS
BUS
BUS
BUS
BUS
BUS

[

1vC
LSC
LBC
Dv(C
DPE

.SBTTL

100000
040000

MSE

USE
.SBTTL

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

000077

100000

040000
020000
002000

RMCS1
RMDA
RMDS
RMER1
RMAS
RMLA
RMMR1
RMDT
RMSN
RMOF
RMDC
RMHR

RMMR?
RMER?

et Bt

Bomct

Skl
OPE

BSE

Pt Gt Bt Bt B

100000

; *RMER? ERRO R

040000
020000
010000
004000
002000
000200
000010

11-APR~B80 13:17:48 PAGE 4-6

1
1
T
T
T
T
1
T

SEQ 0021

EGISTER 2

RM REGISTER BIT DEFINITIONS

MACRO v03.01

OO
b add ot e ed
WNO =MWV

CIZRMNAO RM05/3/2 FCTNL TST 2

;BAD SECTOR ERROR
sSEEK INCOMPLETE

sOPERATOR PLUG ERROR

s INVALID COMMAND ERROR
;LOSS OF SYSTEM CLOCK
;LOSS OF BIT CLOCK
;DEVICE CHECK
;DATA PARITY ERROR

PROGRAM MNEMCNICS

BIT15

+MANUFACTURING D ET ECTED SECTOR ERROR
;USER DETECTED S EC TOR ERROR

BIT14
RM REGISTER

00
06
12
14
16

24
26

30
32
34
36

INDEX VALUES

;CONTROL STATUS REGISTER #1
;DISK ADDRESS REGISTER
;DRIVE STATUS REGISTER
;ERROR REGISTER M
SATTENTION SUMMARY

sLOOK AHEAD REGISTER
sMAINTENANCE

;DRIVE TYPE REGISTER
;SERIAL NUMBER REGISTER
;OFFSET REGISTER
;DESIRED CYLINDER REGISTER
+HOLDING REGISTER

;MAINTENANCE REGISTER #2

;ERROR REGISTER #2

ILRG70
ILRG72
ILRG74
ILRG76

;ECC POSITION REGISTER
¢ECC PATTERN REGISTER
s ILLEGAL REGISTER 50
s JLLEGAL REGISTER
;s JLLEGAL REGISTER
;s TLLEGAL REGISTER
s ILLEGAL REGISTER
s JLLEGAL REGISTER
s JILLEGAL REGISTER
s ILLEGAL REGISTER
s ILLEGAL REGISTER
s JILLEGAL REGISTER
s ILLEGAL REGISTER
s ILLEGAL REGISTER

IDXMSK

sMASK

RMEC1
RMEC?2

ILRGS0
ILRGS?2
ILRGS&
ILRGS6
ILRG6O
ILRG6Z2

ILRG6S
1LRG66

LSBTTL

RH CONTROLLER REGISTER BIT

;*RM(S1

CONTROL STATUS REGISTER M1

The

MCPE
PSEL

FOR REGISTER

INDEX NUMBER

DEFINITIONS

sSPECIAL COND]ITION-READ ONLY
. TRANSFER ERROR
;MASSBUS CONTROL BUS PARITY

;PORT B SELECT

ERROR-READ ONLY

— o
—

OO0
O o0
O

Ll
o Y )

0 0O M

JREADY=-READ ONLY
s INTERRUPT ENABLE

—d

o OCOOOOOOOO—————
s
o =N NS VO N0 OO
NN SN

[ )
— St Pt B

Bt Bt Bt Bt B

Dt Dt St Bt ot ot Bt

esReloefoeRoctocRoi
o oo oo oodoefoodoo oodo]

niitoowwyuuaynny

100000
040000
020000
010000
004090
002000
001000
000400
000209
000100
000040
000020
000010
000004
000002
000001

;ADDRESS EXTENSION
;ADDRESS EXTENSION

ONTROL STATUS REGISTER #2
—h —

) —

RDY

—

A7
A6

750

SEQ 0022

—

001000
000400
000200
000100

DEFINITIONS

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

— — e

RH CONTROLLER REGISTER BIT

MACRO v03.01

ninn

CZRMNAO RM05/3/2 FCINL TST 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
;OUTPUT READY=-READ ONLY
s INPUT READY=READ ONLY

;CONTROLLER CLEAR
sPARITY

TEST

;UNIBUS ADDRESS INCREMENT
JUNIT SELECT
SUNIT SELECT
JUNIT SELECT

INHIBIT

SUNIT SELECT MASK
000007

UNTMSK

SUNIT SELECT MASK

.SBTTL

784

—4

o QOOQOQO
=
b od e wd
o = AINO
O —PNIN SN

O (O O

)

et Bunct Gt o) G

) e

O 0O

et Bt

—_ —

IPCK3
IPCK?2
1PCK1
1PCKO

[ Bt Gt

APE
DPEHI
DPELO
WCEH]
WCELO
DBL
1E

o] Qo o G0 0o

100000
040000
020000
010000
004000
002000
000100
000010
000004
000002
000001

;*RM(S3 RH70 CONTROL STATUS REGISTER #3

RMCS1
RMW(
RMBA
RM(CS?2
RMDB
RMBAE

RM(S3

176700
120254

ABASE

76700
20254

LSBTTL

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

RH11/RH70 CONTROLLER REGISTER INDEX VALUES

000000
000002
000004
000010
000022
000050
000052

AVECT

;ADDRESS PARITY ERROR

:DATA PARITY ERROR HIGH WORD

00
02
04
0
8

TRAP

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

:CONTROL, STATUS REGISTER #3

CAT(CHER

:UNIBUS ADDRESS
;UNIBUS VECTOR ADDRESS AND PRIORITY

CIRMNAO RM0S5/3/2 FCTINL TST 2

TRAP

CATCHER

000000

MACRO v03.01

K
2
11-APR-80 13:17:48 PAGE 4-8

.=0

;*ALL UNUSED LOCATIONS FROM & =

SEG 0023

776 CONTAIN A ''.+2,HALT"

;*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

000174
000176

:'LOCATION194CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

000174
000000
000000

DISPREG: .WORD
SWREG:

.SBTTL

785
786

000200

000137

005420

.WORD

::SOFTWARE SWITCH REGISTER

STARTING ADDRESS(ES)

JMP
.SBTTL

:;SOFTWARE DISPLAY REGISTER

IFSTART

ACT11

::JUMP TO STARTING ADDRESS OF

PROGRAM

HOOKS

. i'fit'"'....'l""""""""'.t."."lt"t.t'.t't.l."".'l"

000046

000052
787
788
789

000204
000046
032530
000052
000000
000204
001100

HOOKS REQUIRED BY

SSZZC-.

.=1100
.SBTTL

ACT11

+SAVE

SE?%AD

;:1)SET LOC.46 TO ADDRESS OF

.WORD
0
.=$SVP(

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

APT

SENDAD

.$EOP

PARAMETER BLOCK

.'"t.ttt'tt'.tttt't'"""l't"i"ttl'..'itt.'tt.'.".'l'l’l..tl'l.

;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT
T

000024

000044

001100
000024
000200
000044
001100
001100

L$X=.
.=24

200

.=hé
SAPTHDR

=.8X

ISR

;s SAVE CURRENT LOCATION
::;SET POWER FAIL TO POINT TO START OF
::FOR APT START UP
::POINT
;;POINT

PROGRAM

TO APY INDIRECT ADDRESS PNITR,
TO APT HEADER BLOCK

ssRESET LOCATION COUNTER
R

;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC
sINTERFACE SPEC.
000000

001222
000001

790

000002
000002
000042
001114

SAPTHD:
$HIBTS:
$MBADR:
$TSTM:
$PASTM:
SUNITM:
TAGADR=,

.WORD
.WORD
.WORD
_WORD
.WORD
.WORD

0
;:TWO HIGH BITS OF 18 BIT MAILBOX ADDR.
SMAIL
;sADDRESS OF APT MAILBOX (B]TS 0-15)
1
ssRUN 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-$MAIL/2
;,LENGTH MAILBOX-ETABLE (WORDS)

CZRMNAO RM0S5/3/2 FCTNL TST 2

COMMON TAGS

MACRO v03.01

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

SBTTL

2
SEQ 0024

COMMON T AGS

;;tt't."'l't!ti"""""""'."'.'fit.tt""."tt'ttt"t"""t

;*THIS

TABLE

CONTAINS

$CMTAG:

000000
000
000
000000
000000

.=TAGADR

.WORD
$TSTNM: .BYTE
$ERFLG: .BYTE
$ICNT:
.WORD
SLPADR: .WCRD
$LPERR: .WORD
$ERTTL: .WORD
SITEMB: .BYTE
SERMAX: .BYTE
$ERRPC: .WORD
$GDADR: .WORD
$BDADR: .WORD
$GDDAT: .WORD
$BDDAT: .WORD
.WORD
.WORD
$AUTOB: .BYTE
$INTAG: .BYTE
.WORD
SWR:
.WORD
DISPLAY: ,WORD

$TKS:
$TKB:
$TPS:
$1P8:
$NULL:
$FILLS:
$FILLC:
$TPFLG:
$TMPO:
$STMP1:
$TMP2:

$TMP3:

377
000

377

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

.WORD

$TMPL:
.WORD
$TIMES: O
$ESCAPE:
0
$BELL:
.ASCIZ
$QUES:
.ASCII
$CRLF:
.ASCII
SLF:
LASCIZ

COMMON STORAGE

LOCATIONS

;. START Of COMMON TAGS

DOUOO0OO0OO0OO0OO0OOOOOO—=OOOO0OOOOO

001114

:;CONTAINS THE TEST NUMBER
s ;CONTAINS ERROR FLAG
;s CONTAINS SUBTEST ITERATION COUNT
;s CONTAINS SCOPE LOOP ADDRESS
:; CONTAINS SCOPE RETURN FOR ERRORS
;;CONTAINS TOTAL ERRORS DETECTED
: sCONTAINS ITEM CONTROL BYTE
;s CONTAINS MAX. ERRORS PER TEST
;;CONTAINS PC OF LAST ERROR INSTRUCTION
;s CONTAINS ADDRESS OF 'GOOD' DATA
;s CONTAINS ADDRESS OF °'BAD' DATA
;s CONTAINS ‘600D DATA
;:CONTAINS 'BAD' DATA
: RESERVED=--NOT TO BE USED
;sAUTOMATIC MODE INDICATOR
.« INTERRUPT MODE INDICATOR
; sADDRESS OF SWITCH REGISTER
;sADDRESS OF DISPLAY REGISTER

SWR
DISP

J:TTY KBD STATUS

;:TTY KBD BU:FER

J:TTY PRINTER STATUS REG. ADDRESS
J:TTY PRINTER BUFFER REG. ADDRESS
;s CONTAINS NULL CHARACTER FOR FILLS
:;CONTAINS # OF FILLER CHARACTERS REQUIRED

OOOOOO;NO

h
D e

el el

NNV
LSS 85 3 B LA NN NN NI N N b — 2 —
OB N=SOSTNOOSTN—OCSTNVO~NO
S~

i
el

e
e

D
e

o
o

i
e

e
e

e
i

e
e

i
D
el

sl e
e

i
el
o

e
e
e
e

i el i
D

(=4
OO0OO0O0OOOOOOOO

;*USED IN THE PROGRAM,

VARIOUS

s INSERT FILL CHARS. AFTER A ''LINE FEED''

;s 'TERMINAL AVAILABLE'' FLAG (B1T1<07>=0=YES)

:sUSER
:;USER
2;USER
:JUSER
JsUSER
s sMAX.

DEFINED
DEFINED
DEFINED
DEF INED
DEF INED

NUMBER OF

JTERATIONS

;;ESCAPE ON ERROR ADDRESS
<R07><377><31]»> ;:CODE FOR BELL
/?/
2;QUESTION MARK
<15
;s CARRIAGE RETURN
12>
;sLINE FEED

:;.t.tt'ttl't'tt"'t"'"tt"t't"'tt....'lti.ttl"l'i"..ili""

.SBTTL

APT MAILBOX-ETABLE

::l"tlltl"'.t"."i'tt""""t.l.t.tll.i.l'..i"'.i't""'l"t

001222
001222
001224
001226

000000
000000
000000

$SMA]IL:
$MSGTY:
$SFATAL:
$TESTN:

.WORD
.WORD
.WORD

AMSGTY

AFATAL
ATESTN

;s APT MAILBOX
;s MESSAGE TYPE CODE

;:FATAL ERROR NUMBER

;s TEST NUMBER

CIRMNAO RMOS/372 FCTINL TST 2

APT MAILBOX-ETABLE

001230
001232
001234
001236
001240
001242
001242
001243
001244
001246
0c 250

000000
000000
000000
00C000
0006000
000
000
000000

000000
000000

MACRO v03.01

$PASS:
.WORD
$DEVCT: .WORD
SUNIT:
.WORD
$MSGAD: .WORD
$MSGLG: .WORD
SETABLE:
SENV:
BYTE
$ENVM:
_.BYTE
$SWREG: .WORD
$USWR:
.WORD
$CPUOP: .WORD

APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG
AENV
AENVM
ASWREG
AUSWR
ACPUOP

e
"t

——

[e]=]
oo

SMAMS1:
SMTYP1:

.BYTE
.BYTE

AMAMS]
AMTYP1

e
001254

000000

SMADR1:

.WORD

AMADRI

001256
001257
001260
001262

000
000
000000
000

SHAHSZ:
$SMTYP2:
$SMADR2:
SMAMS3:

BYTE
.BYTE
.WORD
.BYTE

AMAMS?
AMTYP?
AMADR?
AMAMS3

.WORD
.WORD

AMAMS4
AMTYP4
AMADRSG
AVECT

.WORD
_WORD

ABASE
ADEVM

.WORD

ADOW3

001326

000
000000
¢00
000
000000

SMTYP3:
$SMADR3:

000000
176700
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

SVECT2:

120254

SMAMS4:
SMTYP4:
$MADRGL:
SVECT1:
$BASE:
$DEVM:

$CDW1:
$CDW2:
$0DW0:
$DDW1:
$DDW2:

$ODW3:

$DDW4:

$ODWS:

$0DW6:
$DDW7:
S$ETEND:
CMEXIT

+:DEVICE COUNT
2:1/0 UNIT NUMBER
s sMESSAGE ADDRESS
s sMESSAGE LENGTH
;:APT ENVIRONMENT TABLE
: sENVIRONMENT BYTE
;s sENVIRONMENT MODE BITS
;;APT SWITCH REGISTER

s sUSER SWITCHES

::CPU TYPE,OPT]ONS

BITS 15-11=CPU TYPE

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

IGH ADDRESS,M.S. BYTE

EM. TYPE, BLK#1
.TYPE BYTE

-«

(HIGH BYTE)

900 NSEC CORE=001

0012¢3
001264
001266
001267
001270

:sPASS COUNT

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

000
000

SEQ 0025

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

52
53

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

.BYTE
.WORD
_BYTE
.BYTE

.WORD

.WORD
.WORD
.WORD
.WORD
.WORD

.WORD

.WORD
.WORD
.WORD

AMTYP3
AMADR3

AVECT?

ACDWY
ACDW2
ADDWO
ADDW1
ADDW2
ADDW4

ADDWS

ADDW6
ADDW?

300 NSEC BIPOLAR=00?2
500 NSEC M0S=003
::HIGH ADDRESS,BLK#!

MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF
:sHIGH ADDRESS,M.S. BYTE

s MEM.TYPE ,BLKN?

s sMEM.LAST ADDRESS,BLK#?2
;sHIGH ADDRESS,M.S.BYTE
s sMEM.TYPE ,BLKAN3
s sMEM.LAST ADDRESS,BLKA3
ssHIGH ADDRESS,M.S.BYTE
G
.
,BLKNS
EM
TYPE
2 :M
s sMEM.LAST ADDRESS ,BLK#4
;o INTERRUPT VECTOR#1,BUS PRIORITYM
s INTERRUPT VECTOR#2BUS PRIORITYS?2
; ;BASE ADDRESS OF EQUIPMENT UNDER TEST
;:DEVICE MAP
s CONTROLLER DESCRIPTION WORDA1
:sCONTROLLER DESCRIPTION WORDA?
::DEVICE DESCRIPTOR WORDAO
..DEVICE DESCRIPTOR WORDA1
;:DEVICE DESCRIPTOR WORDA?2
:sDEVICE DESCRIPTOR WORDA#3
s:DEVICE DESCRIPTOR WORDA4
::DEVICE DESCRIPTOR WORDAS
s:DEVICE DESCRIPTOR WORDNG
;DEVICE DESCRIPTOR WORDA?

'‘TYPE'' ABOVE

CIRMNAQ RM0OS5/3/2 FCTINL TST 2

USER DEFINED TAGS

oo
Wwir

—
—

o0
Qo

(=l
oo

MACRO v03.01

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

.SBTTL

USER DEFINED TAGS

000000
000000

CTLFG:
XXDP:

.WORD
.WORD

O
0

:CONTAINS CONTROL=C FLAG
:THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHI(M

000
000

LSTRK:

.BYTE
.BYTE

0
0

:LO BYTE
=
HI BYTE, CONTAINS LAST TRACK ADDRESS OF
:UNDER TEST. RM02/3
= 4., RMO5
= 18.

:THE

INPUT

: THE PROGRAM WAS LOADED. THE HIGH BYTE
;' XxDP* DEVICE CODE FOR THE RM0S/3/2.

BUFFER

;STORING DRIVE STATUS
001334

IS USED

FOR

GETAUF:

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

000000

000000
000000
000000
000000
000000
000000
000000
000000

JREGISTER INPUT BUFFER
RMCS1]1: .WORD
RMWCI:
.WORD
RMBAl:
.WORD
RMDA]:
.WORD
RMCS21: .WORD
RMDSI:

RMER11:
RMAS]:
RMLAl:

.WORD

.WORD
,WORD
.WORD

RMDBI:

.WORD

RMDTI:
RMSNI:

.WORD
.WORD

RMMR1]1:

.WORD

RMOF]:

.WORD

RMMR21:
RMER2]:
RMEC1I:
RMEC2]:

.WORD
.WORD
.WORD
.WORD

RMCS3]:

.WORD

RMDC]:
RMHRI:

RMBAEI:

.WORD
,WORD

.WORD

OO0 O0COOOOOO0OOOOOOCOOOOOOO

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

SEQ 0026

sCONTROL, STATUS REGISTER m
;WORD COUNT REGISTER
;BUS ADDRESS REGISTER
;DISK ADDRESS REGISTER
;CONTROL, STATUS REGISTER #?2
;DRIVE

STATUS REGISTER

;ERROR REGISTER M
sATTENTION SUMMARY REGISTER
:LOOK AMEAD REGISTER
¢DATA BUFFER
sMAINTENANCE REGISTER M

:DRIVE TYPE REGISTER
:SERIAL NUMBER REGISTER
;OFFSET REGISTER
;DESIRED CYLINDER REGISTER
;HOLDING REGISTER
;MAINTENANCE REGISTER #2
;ERROR REGISTER #2
;ECC POSITION REGISTER
sECC PATTERN REGISTER

;BUS ADDRESS EXTENSION REGISTER

:CONTROL, STATUS REGISTER #3

sTHE REGISTER OUTPUT BUFFER IS USED FOR
sASSEMBLING DATA GOING TO REGISTER
001410
001410

001412

001414

001422
001426
001426
001430
001432
00°434
001436

PUTBUF:

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

;REGISTER QUTPUT BUFFER

RMCS10:
RMWCO:
RMBAO:
RMDAO:
RMCS20:
RMDSO:
RMER10:
RMASO:
RMLAO:

RMDBO:
RMMR10:

RMDTO:

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

.WORD
.WORD
.WORD

0
0
0
0
0
O
0
O
8

0
0

;CONTROL, STATUS REGISTER M
:WORD COUNT REGISTER
+BUS ADDRESS REGISTER
;D1SK ADDRESS REGISTER
;CONTROL, STATUS REGISTER W2
;DRIVE STATUS REGISTER
;ERROR REGISTER #1
;ATTENTION SUMMARY REGISTER
:LOOK AHEAD REGISTER

;DATA BUFFER
¢MAINTENANCE REGISTER #1
;DRIVE TYPE REGISTER

CONTAINS THE

UNIT

CIRMNAQ RMO5/372 FCINL TST 2
USER DEFINED TAGS

J01440
001442
001446
001446
001450
001452
001454
001456
001460
001462

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

MACRO v03.01

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

SEQ 0027
RMSNO:
RMOFO:
RMDCO:
RMHRO:

RMMR20:
RMER20:
RMEC10:
RMEC20:

RMBAEO:

RMCS30:

.WORD
.WORD
.WORD
.WORD

0
0
0
0

.WORD
.WORD
.WORD
.WORD

.WORD

0
0
0
O

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

:CONTROL, STATUS REGISTER #3

.WORD

;SERIAL NUMBER REGISTER
;OFFSET REGISTER
;DESIRED CYLINDER REGISTER
sHOLDING REGISTER

:BUS ADDRESS EXTENSION REGISTER

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

:THE LOW BYTE AND THE ATTENTION BIT
:FIRST WORD CONTAINS THE ADDRESS OF

;IN THE TABLE.

001464

000000

001506

000000

001510

000000

A ZERO WORD IS A BLANK AND REPRESENTS THE

:END OF

THE QUE.

TSTQUE:

.WORD

.BLKW
.WORD

IN THE HIGM BYTE. THE
THE DEVICE UNDER TEST

;CONTAINS DEVICE POINTER

8.
O

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

;ALL 8. DEVICES ARE UNDER TEST.

JMEDIA ENABLE IS SET IF THE BAD SECTOR FILES HAVE BEEN RECOVERED
cFOR THE UNIT UNDER TEST, OTHERWISE IT IS ZERO.

MEDENB:

.WORD

sMEDIA ENABLE

sLOCATIONS ''ASNDC'' AND ‘'ASNDC'' CONTAIN THE CYLINDER,

i2
14
16

000000
000000
000000

000000

;ADDRESS ASSIGNED BY THE BAD
ASNDC:
.WORD
0
ASNDA:
.WORD
0

CLKADR:
CLKVCT:
;THE

GET

.WORD
.WORD

INDEX

0
0

TABLE

SECTOR MODULE.
;ASSIGNED DESIRED CYLINDER
:ASSIGNED TRACK, AND SECTOR

001522

001551

GETINX:

.BLKB

23.

;UNIBUS ADDRESS OF
sVECTOR ADDRESS OF

CONTAINS A BYTE

;ARE READ BY THE GET SUBROUTINE.

;A NEGATIVE BYTE,

TRACK AND SECTOR

LIST

KW11
KW11

(CLOCK
(CLOCK

REGISTERS WHICH

THE LIST IS TERMINATED BY

;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
:A NEGATIVE BYTE.

PUTINX:

.BLKB

;PUT TAGS HERE

23.

;PUT

INDEX

TABLE

CIRMNAO RM0S5/3/72 FCTNL TST 2
ERROR POINTER TABLE

MACRO v03.01

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

3
SEQ 0028

.SBTTL

ERROR POINTER TABLE

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
:*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE 1S PERTINENT.
;*NOTE1:
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).

:*NOTE?2:
o

o
o
oY

001600

:;POINTS TO THE ERROR MESSAGE

;;POINTS TO THE DATA HEADER

;;POINTS

;:POINTS TO THE DATA
TO THE

DATA FORMAT

$ERRTB:

;ERROR
001600
001602
001604
001606

EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:

065144
071236
071362
071452

WRONG UNIT SELECTED

EMT
EHTI
EDT1
EFTI

;ERROR

001610
001612
001614

001616

065150
071236
071362

:ERROR
001620
001622
0016264
001626

065156
071236
071362
071452

}%
065164
071236
071362
071452

065172
071236
071362
071452

UNAVAILABLE

DEVICE WENT NONEXISTENT

CONTROLLER NOT READY

EMTS
EHTI
EDTI
EFT1

;ERROR
001640
001642
001644
001646

WENT

EMT3
EHTI
EDT1
EFT

:ERROR
001630
001632
001634
001636

DEVICE

EMT?2
EHT
EDT)
EFT

071452

S
EMTS
ENT
EDT!
EF
T

DRIVE NOT READY AND GO NOT RESET

CIRMNAOQ RMO05/3/2 FCINL TST 2

ERROR POINTER TABLE

i O

—t——t—

"o IR

— e

;ERROR

BUS TIMEOUT

;ERROR

DRIVE NOT

:ERROR

GO NOT

;ERROR

INCORRECTY

:ERROR

PARITY

sERROR

TRANSFER ERROR

sERROR

INCORRECT WORD COUNT

TRYING TO READ OR WRITE REGISTER

IS RESET

DRIVE

IS READY

Pl W 1,N],§)
NON
N —
oo

\JN

READY BUT

il e
—

BUT

b \ N

£H wWronr
NOM NN
[L¥1,8T0
¥ o

RESET

001700
001702
001704
001706

UNEXPECTED VALUE FOR '"'ATA'" STATUS

—

26
27
28

[olelele]
NNNO

001670
001672
001674
001676

065206
000000
000000
000000

[=]eTole)
NN

001660
001662
001664
001666

6
mmmm

— e

[e]elole]
~N~N~NO

£ wmroro
VIO
O
OO

e \ PV

:ERROR
001650
001652
00165¢4
001656

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

SEQ 0029

rOPNON
N —C,

18
19

MACRO v03.01

FUNCTION CODE

065224
071236
071362
071452
ERROR

READING REMOTE

001720
001722
001724
001726
IS

INCORRECT

001730
001732
001734
001736

38
39

REGISTERS

CZRMNAD RM0S5/3/2 fC ITNL TST 2

ERROR POINTER TABLE

001740
001742
001746
001746

MACRO v03.01

EMT1S
EHTI
EDT?
EFTI

;ERROR

001750 065260
001752
001754
001756

7-2
SEQ 0030

065252
071236
071362
071452

11-APR-80 13:17:48 PAGE

INCORRECT BUS ADDRESS

EMT16

071236
071362
071452

EHTY
EDTI
EFTI

IAA

;ERROR
001760

001762
001764
001766

065270

Zg
065300
071236
071362
071452

065310
071236
071362
071452

065320
071236
071362
071452

INCORRECT DISK ADDRESS

INCORRECT CYLINDER ADDRESS

EMT22
ENTY
EDTI
EFT
:ERROR

002020
002022
002026
002026

INCORRECT AOE

EMT2N
ENT
EDT1
EFTI

;ERROR
002010
002012
00201¢
002016

20
EMT20
EHTY
EDTI
EFT

;ERROR

002000
002002
002004
002006

59
60
61

ENTI
EDT)
EFT

;ERROR
001770
001772
001776
001776

INCORRECT LBT STATUS

EMI17

071236
071362
071452

065330
071236
071362
071452

INCORRECT WLE

STATUS

INCORRECT UPE

STATUS

EMT23
EHTI
EDM
EFT
;ERROR

CIZRMNAO RMO5/3/2 FCTNL TST 2

ERROR POINTER TABLE

MACRO v03.01

11-APR-80 13:17:48 PAGE

7-3

SEQ 0031

002030
002032
002034
002036
62
64

:ERROR

002040
002042
002064
002046
L

65
67

71
72
73

76
75
76

002060
002062
002064
002066

INCORRECT WCE STATUS

:ERROR

INCORRECT MDPE

;ERROR

INCORRECT

;ERROR

INCORRECT ECH STATUS

:ERROR

DLT

SHOULD NOT BE

SET

:ERROR

Mxt

SHOULD NOT

SET

STATUS

065370
071236
071362
071452
DCKx

STATUS

002070
002072
002074
002076

002100
00212
002104
002106

77
79

:ERROR

002050
002052
002054
002056

68
70

INCORRECT UCF‘§TAYUS

002120

065430

CIRMNAQ RMO5/3/2 FCINL TST 2

ERROR POINTER TABLE

002122
002126
002126

MACRO v03.01

EXT
EDT
EFT

;ERROR
002130
002132
0021364
002136

065440
071236
071362
071452

gg
065450
071236
071762
071452

89
g?

DTE SHOULD NOT BE SET

INCORRECT HMCRC STATUS

EMT3S
EXTI
EDT}
EFTI

:ERROR
002150
002152
002154
002156

34
EMT 34
EMTI
EDN
EFT

;ERROR
002140
002142
002146
002146

SEQ 0032

071236
071362
071452

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

065460
071236
071362
071452

INCORRECT HCE STATUS

EMT36
EMT
EDTY
EF T

:ERROR
002160
002162
002164
002166

065470
071236
071362
071452

33
065500
071236
071362
071452

183

002206

065506
071236
071362

101

065516
071236

¢0ST ""MOL’" DURING PACK ACKNOWLEDGE

EFTI
;ERROR

002210
002212

DPE SHOULD NOT BE SET (NOT A DATA COMMAND)

EMT41
tHT1
EOT

071452

}8§

40
EMTLO
EHTI
EDTI
EFT

;ERROR
002200
002202
002204

INCORRECT FER STATUS

EMT37
EHT
EDT
EFT

;ERROR
002170
002172
00217&
002176

&2
EMTG2
EHTI

UNSAFE ERROR DURING PACK ACKNOWLEDGE

2 FC

ABLE

002214
002216

SEQ 0033

071362
071452

EDT!
EFT1

;ERRCR
002220
002222
002224
002226

065530
071236
071362
071452

N —O

—

W8N

—Y

il mnsd
—

—

0o ~NO

—t

—

HwWr0

L1\
] V]

b
s

"ILR'" ERROR DURING PACK AUKNOWLEDGE

"ILF'" ERROR DURING PA(CK ACKNOWLEDGE

(OMPOSITE ERROR STATUS IS INCORREC(Y

EMTS7
EHT
128
EFT

065576
071236
071362
071452

065606
071236
071362

EMT46
EHT)
EDT
EFTY

065570
071236
071362
071452

NN
- O

—

065560
071236
071362
071452

PARITY ERROR WRITING REMOTE REGISTERS

EMTSO
EMTI
EDTY
EFTI
JERROR

002300
002302
002304

"'RMR’'' ERROR DURING PACK ACKNOWLEDGE

EMT4S
EMTI
EDT]
EFT

JERROR

002270
002272
002274
002276
—l

065550
071236
071362
071452

TRROR
002260
002262
002264
002266

EMT4G
ENMTI
EDTI
EFN

JERROR
002250
002252
002254
002256

—

065540
071236
071362
071452

JERROR
002240
002242
002244
002246

"OPI'" ERROR DURING PACK ACKNOWLEDGE

EMT43
EHTI
EDT
EFM
JERROR

002230
002232
002234
002236

EMTST
EMT
ton

INCORRECT

JAE

STATUS DURING SEEK (OMMAND

CIRMNAO RMO5/3/2 FCTINL TST 2

ERROR POINTER TABLE

11-APR-80

071452

13:17:48 PAGE

7-6

SEQ 0034

EF T
JERROR

OP1

:ERROR

OP1 ERROR DURING SEEK - MEDIUM ]S ON LINE,
ON CYLINDER LATCH DIDN'T RESET

;ERROR

SEEK

;ERROR

DEVICE

CHECK

DURING SEEK

s ERROR

PIP

STILL

SET

;ERROR

ATA DID NOT

sERROR

IvC ERROR DURING SEEK
VOLUME VALID

ERROR DURING SEEK - MEDJUM IS NOT ON LINE

—b e

H oo
VO~ (NN
[aS 1o e Yo 3

OCOO0O
NNNO

—

AN
PV,

e el

002320
002322
002324
002326

e \JN

— nndd ol

WINPNOND
— OO 00

QOO0
NNNO

P IV T ST 3
VO NN
[[ST,STo
¥ =

D
e \JY

— e

rONIAY
~NOoO

002306

MACRO v03.01

~NOwb

—

WNN

002330
002332
002334
002336

INCOMPLETE

ERROR DURING SEEK

(NMMAND

065654

071236

071362
071452

(OMMAND

OO0

b
b
—

&H NN

002340
002342
002344
002346
IS

AFTER

SEEK

SKI

DURING

SEEK

COMMAND

002350
002352
002354
002356
16
142
143

SET

002360
002362
002364
002366

002370
002372

COMMAND - LOST

RESET

ASSUME

CIRMNAQ RM05/3/

FCTNL TST 2

ERROR POINTER TAB LE

- OO
00

et \ SV

ERRONEOUS
VOLUME

1vC ERROR DURING SEEK COMMAND -

VALID

IS STIL

SET

—

— e

b O

S wro~
(V,Te JUTP 5
[LST,
€T ¥ )

mmmm

MOL IS ZERO, BUT OPIl WAS NOT
REPORTED DURING SEEK COMMAND
TOI R

S WO~
[¥ale
JW To 8
[,
N].87.
N .§)

b \ Y
d
—

oo ~NO

- OO

;ERROR

UNUSED

sERROR

DRIVE DID NOT DETECT "'Iv(’'" EKRROR DURING SEEK

;ERROR

DRIVE

sERROR

UNEXPECTED ERROR SET

[N RMER!

;ERROR

UNEXPECTED ERROR SET

IN RMER?

000000
000000
000000
000000

(o J BV,
o

002420
002422
002424
002426
—

OOOQ
NNNO

AN
N NN

U
b
—

(L LAV, IV, ]

002410
002412
002414
002416

7-7

EDT)
EFT

sERROR
NNNO

—d e

002400

—

071362
071452

:ERROR

002402
002404
002406

17-APR~8B0 13:17:48 PAGE

SEQ 0035

(W IV, Pl

002374
002376

MACRO v03.01

002430
002432
002434
002436
162
164

002440
002442
002444
002446

066020
071236
071362
071452

165
166

167

002450
002452
002654
002456

002460

EXECUTED A SEEKX WITH ERROR SET

066040
071236
071362
071452

066052

CIZRMNAQ RM0S5/3/2 FCTINL TST 2

ERROR POINTER TABLE

7-8

071236
071362
071452

INPD
—

—
—

11-APR-80 13:17:48 PAGE

SEQ 0036

~ -~~~

002462
002464
002466

MACRO v03.01

;ERROR

ERRONEOUS ''IAE'' ERROR DURING RECALIBRATE

;ERROR

“ILF"" ERROR DURING RECALIBRATE

sERROR

"OP1'" ERROR DURING RECALIBRATE DUE

;ERROR

"'0P]'* ERROR DURING RECALIBRATE BECAUSE ON

;ERROR

“IvC'" ERROR DURING RECALIBRATE = ‘'vww'' = 0

:ERROR

ERRONEOUS "'IVC'' ERROR DURING RECALIBRATE = "'vy'' -

.ERROR

“'SK1'" ERROR DURING RECALIBRATE

o-wnes

—a
— ot

~N NN

002470
002472
002474
002476

002500
002502
002504
002506
177

ikt
—

TU 'MOL'' - 0

066104
071236
071362
071452

0o 0o 00 0o
W
—O

—

179

CYLINDER

DIDNT

DROP

O
OO

— et et O
& NN
—

NNNO

—r
D
—

000
N—O

002540
002542
002544
002546

—

066140
071236
071362
071452

©o
0o 0o
D00~

002530
002532
002534
002536

OO0
O

—t
il ol

Qo
0o Co
[« XY,
P

002520
002522
002524
002526

002550

066170

;ERROR
002570
002572
002574
002576

—

el
= 4

—

~
~
—.—a—.w

mmmm

0O
oo ~NO

—r
b

002560
002562
002564
002566

"DVC'' OCCUR-ED DURING RECALIBRATE

——

;ERROR

)

VellolVel
(VL P oy V1

mmm

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

"TOIXIT
R

CIRMNAO RM0S5/3/2 FCTNL TST 2

ERROR POINTER TAB

100

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

EMTI100
EHT
EDTI
EFTI

199

002600
002602
002604
002606

066246
071236
071362
071452

D
—

H Lo
\NON NN
oo
O

OOO0O
NNNO
— it s O

103

002630
002632
002634
002636

—

EMTI103
EHTT

“PIP'" IS STIL SET AFTER RECALIBRATE

066270
071236
071362
0714652
+ERROR

002640
002642

SET DURING RECALIBRATE

"'OM’* DID NOT RESET DURING RECALIBRATE

sERROR

(VL SR

[V1,91,
V)

208
209
210

“ATA" DID NOT

EMT102
EHTI
EDT1
EFT1

;ERROR
002620
002622
002624
002626

102

——

205

207

LOST "'vVv'' DURING RECALIBRATE = "'Iv(' = 0

EMTI01
EHTI
EDT!
EFTI
;ERROR

002610
002612
002614
002616

101

202
203
204

.ERROR

200
201

066306
071236

105

EMT10S
EHTI

UNEXPECTED "'ILR'' ERROR DURING RECALIBRATE

SEa 0037

CZRMNAQ RM05/3/2 FCINL TST 2

ERROR POINTER TABLE

002644
002646

MACRO v03.01

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

071362
0714652

214
%}2

EDT
EFT1
;ERROR

002650
002652
002654
002656

066316
071236
071362
071452

217
%}g
066326
071236
071362
071452

220

%%}

066346
071260
071400
071470

223
%Sg
066360
071264
071402
071472

226
%Sg
066366
071264
071402
071472

227
%%?
066374
000000
000000
000000

232

S%S

002730

002732

002734

066410
071270
071404

111

NONEXISTENT DEVICE

112

DEVICE NOT AVAILABLE

113

BUS TIMEOQUT-NED STATUS FAILURE

EMT113
0
0
0
JERROR

CANNOT ACCESS MASSBUS CONTROLLER VIA UNIBUS

EMT112
EHTIN
EDTIN
EFTIN
;ERROR

002720
002722
002724
002726

110

EMTIN
EHTIN
EDTIN
EFTIN
;ERROR

002710
002712
002714
002716

"'UNS'" ERROR DURING RECALIBRATE - AC POWER ]S LOW

EMT110
EHTI10
EDT110
EFT110

;ERROR
002700
002702
002704
002706

107
EMTI107
EHT
EDT1
EFTI

;ERROR
002670
002672
002674
002676

UNEXPECTED ''RMR'' ERROR DURING RECALIBRATE

EMT106
EHTI
EDT)
EFTI
;ERROR

002660
002662
002664
002666

106

114

EMTT14

EHT1I14

EDT114

DEVICE NOT

AN RM0S5/3/2

SEQ 0038

CIRMNAQ RM0S5/3/2 rCTINL TST

ERROR POINTER TABLE

2641
262
243

2064
265
266

247
248
249

— ek e O
£Huero
b
NO
AN —
OO

115

RMCST

NOT

INITIALIZED BY UNIBUS

EHTI
EDT1
EFM

OOO0CO
NN~NO
— ek e O
LV
1AW Y o
O Ny
[aN1,8
1o Yo

116

RMBA NOT

INITIALIZED BY UNIBUS

EMT116
EHT
EDT1
EFT
117

RMCS2 NOT

INITIALIZED BY UNIBUS

;ERROR

RMER1

INITIALIZED BY UNIBUS

;ERROR

RMAS NOT

sERROR

RMMR1

;ERROR

RMDS

;ERROR

002760
002762
002764
002766

SEQ 0039

EMT11S

sERROR

002750
002752
002754
002756

7-11

EFT114

~N~N~NO

OO0
O

238
239

11-APR-80 13:17:48 PAGE

;ERROR

002740
002742
002744
002746

240

MACRO v03.01

071474

~NO

(29129 1,1
NN

002736

EMT117
EHTI

066436

NOT

002770
002772
002774
002776

003000

INITIALIZED BY UNIBUS

066456
071236

071362

N-2O

ALY
N

071452

NOT

INITIALIZED BY UNIBUS

066466

253
254
255

003020
003022
00302¢
003026

QOO0
NNNO
P
T
Y e
&S NS
VIO NN
oo

071236
071362
071452

NOT

INITIALIZED BY

UNIBUS

CIRMNAQ RMO5/3/2 FCTINL TST 2

262
263
264

SEQ 0040

;ERROR

RMEC2 NOT

INITIALIZED BY UNIBUS

;ERROR

RMMRZ2 NOT

INITIALIZED BY UNIBUS

RMCS?

CLEARED BY

OO0

NNNo
— el e (P
£ wrow
VO
N —
oo

003040
003042
003044
003046

;ERROR
003050
003052
003054
003056

7-12

OO0

003030
003032
003034
003036

11-APR-80 13:17:48 PAGE

NN~NO
— e s O
£ wrown
VOO
oo

ERROR POINTER TABLE

MACRO v03.01

066526
071236
071362
071452

126

NOT

CONTROLLER CLEAR

EMT126
EHTI
EDT
EFT1

265

267

003060
003062
003064
003066

066540
071236
071362
071452

003070
003072
003074
003076

~N~N~

RMBA NOT

CLEARED BY

RMCS2 NOT

CLEARED BY CONTROLLER CLEAR

RMER1

CLEPRED BY

CONTROLLER

CLEAR

130

EMT130
EHT
EDT1
EFi

+ERROR
003100
003102
003104
003106

274
275

127

EMT127
EHTI
EDTI
EFTI
;ERROR

N
—

268
269
270

;ERROR

131

NOT

CONTROLLER (LEAR

EMTI3N
EHTI]
EDTI
EFM

:ERROR

132

EMT132
EHTY
EDTI
EFTY

RMAS NOT

CLEARED BY

CONTROLLER

CLEAR

CIRMNAO RMO5/372 FCTNL TST 2

ERROR POINTER TABLE

MACRO v03.01

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

SEQ 0041

QOO0
NN~V
— i i O
Hwroor
O
—
N
O

;ERROR

283
284
285

286
287
288

066622
071236
071362
071452

292
293
294

003140
003142
003144
003146

297

003150
003152

298

CONTROLLER

CLEAR

134

RMDS NOT

CLEARED BY

CONTROLLER

CLEAR

135

RMEC2 NOT

CLEARED BY

CONTROLLER CLEAR

136

RMMR2 NOT

CLEARED BY

CONTROLLER CLEAR

RMCS1

CLEARED BY ERROR

EMT136
EHTI
EDTI
EFT1

:ERROR
066660
071236
071362
071452

137

NOT

(CLEAR

EMT137
EHTI
EDT
EFT

+ERROR
003170
003172
003174
003176

140

RMCS2 NOT

CLEARED BY ERROR (LEAR

EMT140
EHTI
EDT
EFT1

;ERROR

003200
003202
003204
003206

CLEARED BY

EMT135
EHT
EDT
EFT

sERROR

295

NOT

EMT134

;ERROR

003160
003162
003164
003166

RMMR1

EHT?
28
EFT

00315¢4
003156
289
290
291

133

EMT133
EHT
EDT]
EFTT
;ERROR

003130
003132
003134
003136

&
7-13

EMTI14T
EHT
EOT
EFTY

RMCSY

NOT CLEARED BY DRIVE

CLEAR

CIRMNAO RMO5/3/2 FCTNL TST 2

ERROR POINTER TABLE

S0~
VO
N —
NN
O

[=]e
e ]
NN~
b s et O

306

003230
003232
003234
003236

(LEAR

S wro~N
WO
OO

OOO0O
NNNO
— e s ON

———

|
0 1
F 1
H

143

RMER1

NOT

CLEARED BY

164

RMAS NOT

CLEARED By

DRIVE

C(LEAR

DRIVE

CLEAR

sERROR

145

RMMR1

:ERROR

146

RMMRZ2 NOT

CLEARED BY DRIVE

CLEAR

RMERZ2 NOT

CLEARED B¥

DRIVE

CLEAR

<ERROR

RMEC2 NOT

CLEARED BY DRIVE

(LEAR

;ERROR

MEDIUM NOT

ON LINE

NOT

CLEARED BY

DRIVE

CLEAR

EMTI146
EHT
EDT
EFT

0o ~NO

003266

066760
071236
071362
071452

003270
003272

003274
003276

147

EMT147
EHT

OOO0O
NNNO
-t
=t O
SN0~
WO N~
N1,
ST ¥ o

L
ANN
—
b
b

DRIVE

EMT 144
EHT)
EDTY
EFTI

071452

(VP L J VY]

003264

—

066730
071236
071362
071452

s ERROR

003260
003262

(VLW
IV ]

CLEARED BY

003240
003242
003244
003246

003250
003252
003254
003256

319

RMDS NOT

EMT143
EHT
EDT
EFTY

:ERROR

~N—O

(VA
LV
—
b

307
308
309

mmm

ol
g
el
—

osrro

NN NN
[ N1,
V7,¥1.¥]

304

162

EMT 142

JERROR

003220
003222
0032264
003226

.4
7-1¢

SEQ 0042

301
303

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

. ERROR
[=]elele]
[elolole]

299
300

MACRO v03.01

CIZRMNAQ RMOS5/3/2 FCTNL TST 2

S WO

67 0
71 3
71
"

SEQ 0043

sERROR

DRIVE FAULT

;ERROR

UNSAFE

SHOULD BE

UNSAFE

SHOULD NOT BE

VOLUME

VALID NOT

—

067060
071236
071362
071452

340

342

OO0
O
NNNO

—‘—.—‘\

SrwWrOC
WO NN
[,91,8Te 4,V

25N
—
VOO
(a1,
V7o 3 o)

155

SET BY

PACK

156

OFFSET MODE NOT

SET BY OFFSET

157

OFFSET MODE NOT

RESET

By RT(

EMT157
EHTI
EDTY
EFTI

-‘-‘—.N

003360
003362
003364
003366

SET,

IS LOW

A(CK

COMMAND

EMT156
EMT]
EDT!
EFT
;ERROR

[e]ele]e)
NNNO

337
338
339

154

EMT155
ERT
EDT1
EFT1

:ERROR
003350
003352
00335¢4
003356

IS SET

EMT154
EHT
EDT
EFT1
:ERROR

003340
003342
003344
003346

DVC

—D—J—ON
b b~y

OOO0O
NN

S wWOO
O~ NS
[aN1,9
70 J ¥}

sERROR

003330
003332
003334
003336

SET BECAUSE

S NNOO
(S, T6 XV 1,8
LN ST. ¥ &

003320
003322
003324
003326

OO0
NNNO

[e]elele]
NN~

—D-J—.N

SN0
NON
(N —
[a9 1,8 Te
¥,V

003300
003302
003304
003306

COOO

321

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

CRROR POINTER TABLE

MACRO v03.01

sERROR

160

RMOF

NOT

RESET

RIP

COMMAND

MACRO v03.01

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

S Nny
—
VO~ NP
[a91,9Te
Xe 3

— et~y

NNNO

003400
003402
003404
003406

M
M

0
F

] el aed

mmmm

OOOQ
NNNO

346
347
348

:ERROR
[ololole]

343
344
345

4
7-16

SEQ 0044

—

TST

B
|
Pl
W T, R
NON
N —
oo

ERROR POINTER TAB

TNL

TM
me

CZRMNAO RMQ5/3/2

161

RMDA NOT

RESET BY RIP COMMAND

RMDC

RESET

EMT161
EHTI
E0N
EFT
:ERROR

003410
003412
003414
003416

162

NOY

RIP COMMAND

EMT162
EHT

349

351
352

362
363
364

. ERROR

OP1

SHOULD NOT

SET

;ERROR

IvQ

SHOULD NOT BE

SET

JERROR

IAE

SHOULD NO! BE

SET

JERROR

NEM SHOULD NOT

CORRECTED BUT

003450
003452
003454
003456

067170
071236
071362
071452

8P
—
VO W~
OO

003440
003442
003444
003446

0 67162
07 1236
071362
07

— b
"y

359
360
361

003430
003432
003434
003436

[eele]w]
~N~NNO

356
357
358

DATA WAS ECC
WRITE BUFFER

003420
003422
003424
003426

353
355

;ERROR

SET

DOES NOT

COMPARE WITH

;ERROR

UNUSED

;ERROR

"ATA"" NOT

SET DURING RETURN TO CENTERLINE

:ERROR

"ATA'" NOT

SET BY OFFSET

sERROR

RMERZ NOT

INITIALIZED BY UNIBUS

:ERROR

RMERZ2 NOT

INITIALIZED BY

;ERROR

SELECTED DEVICE

000000
000000
000000
000000

S wrono
VO wNrL
(a1
V10 Y 0]

003500
003502
003504
003506

T
1
T
T

SEQ 0045

—.d-—.~

368
369
370

003470
003472
003474
003476

[e]eleTe)
NN~NO

365
366
367

mmrmm

003460
003462
003464
003466

)

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

ERROR POINTER TABLE

MACRO Vv03.01

O
IT R

CIRMNAQ RMO5/3/2 FCTNL TST 2

(OMMAND

— ) N

[e]leTelw)
NN~

£ wror0
VO NN
NONO
N

3N
372

— b
G

Eal
v 1,92, ¥
(Vo Jo JV IV, ]
L1,
NTe 3 ¥

OOO0O
NNNO

—‘—‘—‘N

OO0
~N NN

383
385

JERROR

003550

IN WRITE PROTECT

2weronre
WO O
[LV1, VT ¥ 3

003540
003542
003544
003546

(ONTROLLER CLEAR

- ol e N

380
381
382

003530
003532
003534
003536

[e]eloe
o]
NNNO

377
378
379

003520
003522
003524
003526

INIT

P RV 1,V]
¥
(¥ Je JVOP
o
[a91,8Te 1,8}

374

375
376

067272

176

EMTI76

CANNOT

SET

DIAGNOSTIC MODE

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

MACRO v03.01

11-APR-80 13:17:48 PAGE

7-18

SEQ 0046

003552
003554
003556
386
388

sERROR

INCORRECT ""MOL'" STATUS DURING DIAGNOSTIC MODE

:ERROR

INCORRECT "'PIP'" STATUS DURING DIAGNOSTIC MODE

sERROR

INCORRECT "*WwRL'® STATUS DURING DIAGNOSTIC MODE

+ERROR

INCORRECT "'SK1'" STATUS DURING DIAGNOSTIC MODE

;ERROR

INCORRECT "DV('" STATUS DURING DIAGNOSTIC MODE

JERROR

"'VV'' WAS NOT RESET BY MAINTENANCE

;ERROR

SELECTED DEVICE HAS A PERSISTENT ''SKI'' ERROR

003560
003562
003564
003566

389

391

003570
003572
003574
003576

392
393

39¢

395
396
397

003600
003602
003604
003606

067324
071236
071362
071452

003610
003612
003614
003616

398
399

400

003620
003622
003624
003626

401
402

403

604
405
406

UNIT READY

003630
003632
003634
003630

003640
003642

067400
071236

CIRMNAO RM0S5/3/2 FCTNL TST 2

ERROR POINTER TABLE

MACRO v03.01

11-APR-80

oM
EFT
:ERROR

sl =l

“LBC'" DID NOT SET DURING DIAGNOSTIC MODE
mmmm

003650
003652
00365¢
003656

mmmm

003660
003662
003664
003666
:ERROR

003700

003702
003704
003706

067432
071236
071362
071452

UNEXPECTED LOSS OF

"'MOL'' - MEDIUM IS OFF

UNEXPECTED LOSS OF

VOLUME

LINE

"ToIxIT X

;ERROR

003670
003672
003674
003676

7-19

SEQ 0047

003644
003646
407
408
409

13:17:48 PAGE

VALID - *'vv'' = 0

EMT210

<ERROR

UNEXPECTED MECHAN]CAL MOTION = ‘PIP' =

;ERROR

UNEXPECTED DEVICE

sERROR

UNEXPECTED SEEK

067440
071236
071362
071452

419

620
621

INCOMPLETE

ERROR - ''Sk]'"

& Letho
WO N~
OO
~NwVO
OO

[V, N1V

003730
003732
003734

= 'Dv('"
= 1

-—.—‘-‘N

;ERROR
fldN

425
426
627

003720
003722
003724
003726

OO
~NVO

624

COO0O
~N~N~NO

622
423

FAULT

214

EMT214
EHT?
EDT2

DRIVE EXECUTED A RECALIBRATE WITH ERROR SET

003736

634
435
636

637
638
639

440
061
662

003760
003762
003764
003766

NNNO

Pl
[a v,
O~
rONVO

215

ORIVE DID NOT DETECT

"'IvC'" ERROR DURING RECALIBRATE

EMT215
ENT?
EDT?
EFT?

S wmroun
VO NN
NNV
N

JERROR

216

INCORRECT "'Iv('" STATUS

i ek

EMT216
mm

EHT!

—

003750
003752
003754
003756

&
7-20

EFT?

— et~y

[=lelele)

003740
003742
003744
003746

J
13:17:48 PAGE

SEQ 0048

;ERROR

[o]eleTo)
NN~

63
632
633

11-APR-80

071462

428
629

630

MACRO v03.01

CZRMNAQ RMOS5/3/2 FCTNL TST 2
ERROR POINTER TABLE

;ERROR

INCORRECT "'[AE'" STATUS

;ERROR

INCORRECTY

;ERROR

INCORRECT "'OPI'" STATULS

067542
071236
071362
071452

"'WLE'" STATUS

003770
003772
003774
003776

004000
004002
004004
004006

643
L4¢

645

;ERROR
004010
004012
004014
004016

222

RM DID NOT

DETECT

RMR ERROR

RM DID NOY

DETECT

PARITY ERROR ON MASSBUS CONTROL BUS

EMT222
EHT

EDTI
EFTI

446

(A1
N1, V1, ¥
[ W1 N1,
81,
(VT
TV T

—t g o —y

004020
004022
004024
004026

223
TOIT R

sERROR

mmmm

467
448

ERROR POINTER TABLE

658
659
460

226

004060

000000

004064
004066

000000
000000

OOOO

000000

;ERROR

004070
004072
004074
004076

000000
000600
000000
000000
;ERROR

004100
004102
004104
004106

000000
000000
000000
000000
;ERROR

004110
004112
004114
004116

000000
000000
000000
000000

UNUSED

OOOO

000000
000000
000000
000000

465

467
468
4«69

:ERROR

000000
000000
000000
000000

464

466

225

sERROR

004062

461
662
463

. ERROR

000000
000000
000000
000000

UNUSED

elelele]

004050
004052
004054
004056

226

227

UNUSED

OO0

655
656
657

004040
004042
004044
004046

:ERROR

230

UNUSED

OCOOO

652
653
654

004030
004032
004034
004036

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

UNUSED

QOO0

449
450
451

MACRO v03.01

232
OOOO

CIRMNAQ RMO5/3/2 FCINL TST 2

UNUSED

SEQ 0049

CIRMNAO RMO5/3/2 FCTNL TST 2
ERROR POINTER TABLE
470
671
672

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

;ERROR

233

:ERROR

234

UNUSED

[elele
o]

000000
000000
000000
000000

004130
004132
004134
004136

000000
000000
000000
000000

UNUSED

488
489
490

691

OODOCO

:ERROR

000000
000000
000000
000000

.ERROR
000000
000000
000000
000000
sERROR

004170
006172
0046174
006176

000000
000000
000000
000000
sERROR

004200
004202
004204
004206

000000
000000
000000
000000

UNUSED

237

UNUSED

OO0OO0OO

004160
004162
004164
004166

236
OOOO

004150
004152
004154
004156

UNUSED

240

UNUSED

QOO0

485
486
487

000000
000000
000000
000000

—

482
483
484

004140
004142
004144
004146

479
480
481

;ERROR

[=lelele]

478

(A V]

676

677

&
7-22

SEQ 0050

OOOO

473
674
675

MACRO v03.01

UNUSED

;ERROR

503
504
505

OOOO

;ERROR

004240
004242
004244
004246

000000
000000
000000
000000
:ERROR

245

sERROR

246

200000
000000
000000
000000

004250
004252
004254
004256

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

EDT1
T
EF

247

"ATA'" NOT RESET BY WRITING RMAS

EMT247
EHTI
EDT1
EFTI

004260
004262
004264
004266

-t O

UNUSED

EHT

;ERROR

(W LV 1V,]
— b O
—

(V1
¥

UNUSED

EMT246

sERROR

250
mmrmm

004270
004272
004274
004276
NN

264
OOOO

004230
004232
004234
004236

506

508

000000
000000
000000
000000

UNUSED

;ERROR

M
H

D
f

251

“ATA'" WAS RESET BY GO WHEN '‘ERR'' = 1
b PN\ )

500
501
502

004220
004222
004224
004226

243

OOOO

497
498
499

sERROR

—

494

495
49¢

UNUSED

[elelele)

000000
000000
000000
000000

262

492
493

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

) v

ERROR POINTER TABLE

MACRO v03.01

—

CZRMNAQ RM0S5/3/2 FCTINL TST 2

PROGRAM INTERRUPT WAS NOT GENERATED

SEQ 0051

CIRMNAQ RMO5/3/2 FCTNL TST 2

MACRO v03.01

ERROR POINTER TABLE

514

004300
004302
00464304
004306

067714
071250
071372
071462

004310
004312
004314
004316

;ERROR 252

067722
071250
071372
071462

EMT252
EHT?
EDT?
EFT?

518

2%3

;ERROR
004320
004322
004324
004326

057730
071236
071362
071452
:ERROR

067746
071236
071362
071452
;ERROR
067756
071236
071367
071452

004350
004352
004356
004356

067766
071306
071406
071476

530

gg}

004360
004362
004364
004366

533
ggg

OFFSET MODE WAS NOT RESET BY WRITING RMD(

254

INCORRECT "'ILF'" STATUS

255

INCORRECT "'ATA'" STATUS

EMTZ2SS
EHTI
EDTI
EF T

527

ggg

253

PROGRAM INTERRUPT SHOULD NOT HAVE BEEN GENERATED

EMT25¢6
EHT®
EDT
EF
T

524
252

004340
004342
004344
004346

SEQ 0052

EMT?
EHT
EDTI
EFT1

521
g%g

004330
004332
006336
004336

EMT251
EMT?
EDT?2
EFT2

515

219

11-APR~B0 13:17:48 PAGE 7-24

:ERROR 256

INCORRECT "'ILR'' STATUS

;ERROR

INVALID IAE STATUS DURING SEARCH COMMAND

EMT256
EHT256
EDT223
EFT223

067776
071236
071362
071452

257
EMT2S57
EHTI
EDT
EFT

;ERROR

260

"1vC"" WAS NOT DETECTED DURING SEARCH (OMMAND

W NN

— e st O
SN0
(9aTe
JU TN
[LS1,STs
X V¥

NN~

[elelele]

(U LV LV ]

;ERROR
004400
004402
004404
004406

539
560
961

pLY:
543
564

545
566
547

004410
004412
0044614
004416

070042

;ERROR
004430
006432
0044346
004436

————

261

DRIVE EXECUTED SEARCH WITH ERROR SET

262

"LBC'" ERROR NOT SET DURING DIAGNOSTIC MODE

263

"'SKI'" ERROR DURING SEARCH COMMAND

264

"IVC'" ERROR DURING SEARCH = LOST VOLUME VALID

EMT264
EHT
EDTI
EFTI

— b b O
Sy
—
WO O
LS1,NVT. 4,9

NNNN

elelele]

:ERROR

N
—

~NO N

D
F

EMT263
EHT
EDTI
EFTY

(V1Y TV
[V RV, 1V,

(O LV LV LV, ]

(W LV LV LV, }

EMT262
EHTI
EDT1
EFT

071236
071362
071452

006420
006422
006426
004426

ERRONEQUS

1VC ERROR DURING SEARCH = VOLUME

EDTI
EFTI

— ot =t O
£ NN
=
NO NP0
[,81,8Te
X, 8]

OO0

265

EMT265
EHT

+ERROR
004450
0046452
004454
004456

266

DEVICE FAULT

(DVC)

DURING SEARCH

EMT266
EHT
EDT!
EFTY

;ERROR

SK1 SHOULD HAVE BEEN SET BECAUSE
ADDRESS IS TOO LARGE

CYLINDER

IS VALID

TM~

SEQ 0053

EHT
EDTI
EFTT

;ERROR

004440
004442
004444
004446

EMT261

;ERROR

548
549

550

mmrmm

OOO0O

— D
S NNO

7001
7123
7136
7145

oo ~NO~

004370
004372
004374
004376

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

ERROR POINTER TABLE

MACRO v03.01

e
e P\

CIRMNAO RM05/3/2 FCTNL TST 2

CIRMNAQ RMO5/3/2 FCINL TST 2

ERROR POINTER TABLE

004460

004462
006464

004466

070134

EHTI
EDT

071452

EFTI

070152
071236
071362
071452

:ERROR

070166
071236
071362
071452

565

229

004510
004512
004514
0064516

070204
071236
071362
071452

568
293
004520
004522
004524
004526

070256
071236
071362
071452

EMT271
EHTY
EDTI
EFT1

PIP STIL SET

273

AFTER SEARCH

EMT273
EHTI
EDTI
EFT1

274

PARITY ERROR OCCURRED WHILE WRITING REMOTE

REGISTERS BUT MXF DID NOT SET

EMT274
EHTI
EDT
EFTI

004540
004542
004544
004546

DION'T DROP

;ERROR

g;g

OP1 ERROR DURING SEARCH BECAUSE ON CYLINDER

EMT272
EXTI
EDTY
EFTY

070240
071236
071362
071452

575
576

271

LOST MOL DURING SEARCH, OPI IS NOT SET

004530
004532
004534
004536

OP1 ERROR DURING SEARCH BECAUSE MOL = 0

;ERROR 272

:ERROR

g;z

579

070222
071236
071362
071452

571
572

270
EMT270
EMTI
EDTY
EFTI

561
562

004500
004502
004504
004506

7-26

EMT267

:ERROR
004470
004472
004474
004476

11-APR-80 13:17:48 PAGE

071236
071362

558
228

222

MACRO v03.01

275

EMT275
EHTI
EDT
EFTI

MXF

ERROR - COMPOSITE ERROR QCCURRED BEFORE DATA

COMMAND STARTED

SEQ 0054

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

gg?

582

004550
004552

070270
071236

583

004560
004562
004564
004566

070304
071236
071362
071452

588

070322
071236
071362
071452

592
593
594

595

0064600
004602
004606
004606

070364
071236
071362
071452

599

004620
004622
004626
0046626

070376
071236
071362
071452

602
683

004630
004632

070410
071236

;gsé” ERROR DURING DATA TRANSFER BECAUSE 'MOL'' WAS

EMT276
EHTI

277

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

3) RUN TIMED OUT

EMT277
EHTY
EDTY
EFTI
300

“IVC'' ERROR DURING DATA TRANSFFR wECAUSE

WAS NOT VALID

301

VOLUME

ERRONEOUS ''IVC’' ERROR DURING DATA TRANSFER - VOLUME
1S VALID

EMT301
ENTI
EDTI
EFTI

:ERROR
004610
004612
004614
004616

276

SEQ 0055

EMT300
EHTI
EDTI
EFTI

070342
071236
071362
071452

596

604

;ERROR
:

gg;

28?

;ERROR

004570
004572
004576
004576

EDTI
EFTI
:ERROR
:

589

28?

’

071362
071452

584
585

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

:ERROR

004554
004556

23?

MACRO v03.01

302

“ILR'"" ERROR DURING DATA TRANSFER

EMT302
ENT
EDTI
EFTI

;ERROR 303

“ILF'" ERROR DURING DATA TRANSFER

;ERROR

“'RMR'' ERROR DURING DATA TRANSFER

EMT303
EHT
EDTI
EFTI
304

EMT304
ENTI

CIRMNAO RM05/3/2 FC1

ERROR POINTER TABLE

—

c oo

INCORRECT "'IAE'" STATUS DURING DATA TRANSFER

:ERROR

"'SK1'' ERROR DURING DATA TRANSFER

.ERROR

DRIVE DID NOT

. ERROR

DEVICE

FAULT

sERROR

LOSS OF

BIT

LOSS OFf

SYSTEM CLOCK DURING DATA TRANSFER

— d et O
Hwero
NO
i
OO

[=]eleole)

:ERROR

DETECT

SKI

ERROR DUE

TO CYLINDER

004660
004662
004664
004666

[0
AV
P o

611
612
613

004650
004652
00465¢6
004656

328
EFTI

—
s O
PV
T, O W
O NN
ook
o~

608
609
610

004640
004642
0046644
004646

SEQ 0056

NNNN

605
606
607

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

071362
071452

OO0

004634
004636

- TST 2

DURING DATA TRANSFER

—

Vo~

oco

004670
004672
004674
004676

004700
004702
004704
004706
620
621

622

623
624
625

EMTIN
EHTI
EDT
EFTI
sERROR

004710
004712
004714
004716

312

EMT 31?2
EXT]
EDT
EFT1

;ERROR
004720
004722
004724

CLOCK DURING DATA TRANSFER

313

EMT313
EHTI
EDT!

UNSAFE ERROR DURING DATA TRANSFER

(DV(

= O)

CIRMNAQ RMO5/3/2 FCINL TST 2

ERROR POINTER TABLE

004726
626
627
628

629
630
631

632
633
6346

635
636
637

004740
0047642
004746
004746

004750
004752
004756
004756

641
642
643

004770
004772
004774
004776

005000
005002
0050064
005006

DRIVE

TIMING ERROR DURING DATA TRANSFER

;ERROR

WRITE LOCK

:ERROR

ERRONEOUS WRITE LOCK ERROR

ERROR

070566
071236
071362
071452

317

HEADER

CRC

;ERROR

FORMAT

ERROR

;ERROR

HEADER COMPARE

JERROR

HEADER

070600
071236
071362
071452

ERROR

DURING

DATA

TRANSFER

EMT317
ERTI
EDTI
EFTI
DURING DATA

TRANSFER

070610
071236
071362
071452
ERROR DURING DATA

070620
071236
071362
071452

644

005010
005212
005014
005016

314

070554
071236
071362
071452

645

666

SEQ 0057

070542
071236
071362
071452

;ERROR
004760
004762
004764
004766

7-29

EFT1

:ERROR
004730
004732
004734
004736

11-APR-80 13:17:48 PAGE

0714652

638
639

640

MACRO v03.01

070630
071236
071362
071492

{RRORS

SHOULD NOT

SET

TRANSFER

CIRMNAQ RMO5/3/2 FCTINL TST 2

ERROR POINTER TABLE

656
657
658

005040
005042
005044
005046

— et et O
S wroor
(S ale JV IV ]
PR

:ERROR

CORRECTABLE

.ERROR

UNCORRECTABLE

005050
005052

005054

DATA (HECK ERROR DURING DATA

O NS
(a1,
T Yo

DATA (HECK

ERROR DURING DATA

326

DATA PARITY

ERROR DURING READ (OMMMAND

;ERROR

OFFSET MODE

NOT

RESET BY WRITE

(OMMAND

sERROR

DATA PARITY

ERROR DURING WRITE

(OMMAND

:ERROR

WRITE

FALURE

070672
071236
071362

EMT 326
EXT
EoMN
EFTI

071452

005060
005062
005064
005066

662
663
005070
005072
005074

005076

665

666

667

005100
005102
005104
005106

TRANSFER

Hwroor

— kit
O

SNNNYN

[=]eolela)

EMT323
EHTI

JERROR

005056
659
660
661

[elelele]

005030
005032
005034
005036

DATA CHECK ERROR DURING DATA TRANSFER

— ok s O
S wroor
VO
O
OO

653
656
655

005020
005022
005024
005026

323

SEQ 0058

NNNNY

650
651
652

:ERROR

QOO0

647
648
649

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

(LOCK

DURING WRITE

COMMAND

TRANSFER

CIRMNAQ RM0S/3/2 FCTINL TST 2

ERROR POINTER TABLE

668

298

070744
071236
071362
071452

671

g;%
070756
071236
071362
071452

674
g;z

070774
071236
071362
071452

677
g;g

005144
005146

071012
071236

680

;ERROR
005150
005152
005156
005156

071032
071320
071416
071506

683

005160

005162
005164
005166

071042

686
6

689

071052
071320
071416
071506

334

335

336

:ERROR 337

LOST MOL DURING DATA TRANSFER = OP]

= 0

LOST

VOLUME

VALID DURING DATA TRANSFER =

Iv(

DATA READ DOES NOT COMPARE WITH DATA WRITTEN

WRITE CHECK ERROR NOT DETECTED

EMT337

EHT337
EDT337
EFT337
;ERROR

005170
005172
005174
005176

PIP STIL SET AFTER DATA TRANSFER = SKI = 0

EMT336
ENT336
EDT336
EFT1336

071332
071426
071516

63;

333

EMT335
EHTI
EDTY
EFTY

071362
071452

gg;

DATA LATE ERROR DURING DATA TRANSFER

EMT33¢
EHT
EDTY
EFTY
;ERROR

005140
005142

332

SEQ 0059

EMT333
EHTI
EDTY
EFTI
:ERROR

005130
005132
005134
005136

EMT332
EMTY
EDTY
EFTY

;ERROR
005120
005122
005126
005126

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

:ERROR
005110
005112
005114
005116

23?

MACRO v03.01

340

EMT 340
ENT336
EDT336
EF1336

WRITE

CHECK

ERROR

UNEXPECTED

ADDRESS

CIRMNAO RM0OS5/3/2 FCTINL TST 2

ERROR POINTER TABLE

gg?

005200
005202
005 e
005¢iLs

071064
071320
071416
071506

692

232

005210
005212
005214
005216

071072
071236
071362
071452

695

239
005220
005222
005224
005226

MACRO v03.01

ggg

INCORRECT DATA DURING WRITE CMECK ERROR

;ERROR 342

"1vC'" ERROR NOT DETECTED DURING DATA TRANSFER

ERRUR

“FER'' NOT DETECTED DURING DATA TRANSFER

EMT 341
EHT 336
EDT336
EFT336

EMT 342
EHTI
EDT
EFT

005236

071116
071344
071436

;8%
071130
071236
071362
071452

704
;82

071140
071236
071362
071452

707

;83

"'BSE'' NOT DETECTED DURING DATA TRANSFER

346

HEADER ERROR WAS DETECTED W/ HCI

SET

EMT 346
EHTY
EDT
EFT1

;ERROR
005260
005262
005264
005266

345
EMT 345
EHTI
EDTY
EF
T

:ERROR

005250
005252
005254
005256

""HCE'' NOT DETECTED DURING DATA TRANSFER

EFT344

;ERROR
005240
005242
005244
005246

344
EMT 344
EHT 344
EDT344

071526

701

343
EMT343
EHTI
EDT1
EF
T

;ERROR
005230
005232
005234

;ERROR 341

071104
071236
071362
071452

698

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

071154
071236
071362
071452

347

DATA TRANSFER NOT ABORTED W/ (OMP ERROR SET

EMT347
EHTI
tbM
(128

710

;ERROR

350

LOST

VOLUME

VALID DURING SEARCH = “Iv('" - 0

SEQ 0060

725
726

727

——

b \ g

— o

—b cand
i
—

————

mmm

WO NN
[p8]
V1o J o]

LV 1,81 ,¥)

AN N N

AV
IV TV

—y =g —

LOOK AHEAD TEST FAILS
M AN N

—d

353
mmrr m

[l ele Yo

Ao
VS

) i
el

OCOOO

NN~V

i
i

SNNNN

—

PROGRAM TIMEOUT WHILE TESTING RMLA

EMT352

;ERROR
005330
005332
005334
005336

352
0
0
0

;ERROR

OOOO

722
723
7264

"OoOIxIT R

mmmmm

F v 1,9,
U]
VO NO
NNOO

;ERROR

005320
005322
005324
005326

"ATA'" DID NOT SET DURING SEARCH

EMT351

071214
000000
000000
000000
719
720
N

7-33

351
el
i 4

e
il o
—

[elelele]

NNV~

el
el el
—

oo ~NOo

et
b
—

005300
005302
005304
005306

NNNW

;ERROR
[olelale]

— bk

(VP XV ]

~NN~N

712

11-APR-B0 13:17:48 PAGE

NP
—
VOM O
rorOONOr

ERROR POINTER TABLE

MACRO v03.01

o1 3R

CZRMNAQ RMOS5/3/2 FCTNL TST 2

BSE SHOULD NOT BE SET

354
EMT354
EHTI
EDTI
EFT1

sPUT

ERROR

TABLE

HERE

SEQ 0061

CIRMNAQ RMO5/3/2 FCTINL TST 2

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

—

SEQ 0062

.SBTTL

ERROR TABLE USAGE

MACRO v03.01

;THE ERROR TABLE ABOVE CONSISTS OF FOUR WORD ENTRIES FOR EACH ERROR

VNV W= OOV

PORNVPONORNVAVAINININD
b cnd ad ecd o o o et i ed

NO VNS WA= OO0~

ERROR TABLE USAGE

E MT
E HT
E DT
E FT

ERROR
ERROR
ERROR
ERROR

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

:THE EMT ENTRY IS THE ADORESS OF THE TABLE OF ERROR MESSAGE STRINGS
;FOR THE PARTICULAR ERROR.
EACH ERROR MESSAGE TABLE LISTS THE ADDRESS
:OF ONE OR MORE ERROR MESSAGE STRINGS WHICH ARE TO BE FORMATTED AND
:TYPED BY

THE

ERROR

TYPE

SUBROUTINE.

:NO MESSAGE TO BE TYPED FOR THE ERROR.

;SIMILARLY, THE EMT,
:OF HEADER, DATA AND
:IN THE ERROR HEADER
:DATA, HOWEVER, EACH

¢HEADER.

THAT

1S,

THE

EMT

ENTRY

ZERO,

THERE

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

A HEADER LINE MAY BE

PRINTED WITHOUT ANY

DATA,

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

SIN SUMMARY,

;
:
:

EACH NONZERQ ENTRY 1S THE ADDRESS OF A TABLE,
EACH TABLE IS A LIST OF ADDRESSES WHICH DEFINES THE LOCAT]ONS
OF MESSAGE STRINGS, HEADERS, DATA OR FORMAT,

CIZRMNAQ RMO5/3/2 FCTINL TST 2

ERROR TABLE USAGE

MACRO v03.01

5
SEQ 0063

;THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS

3 005340

& 005342
S 005344

6 005346

005352
005412

7 005412

8 005414
9 005416

011600

005740
022626

104401

000417

BADTMO: MOV
005356

;:658:

£6%:

010046

104402
000240

0056420
005422
005426
005430

000240
005227
001375
000005

012706
005026
022706
001374
012706

001114

005452

012737

060222

000020

005466
005474
005502
005510
005516
005524
005532
005540
005544
005550
005556
005564

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

060626
000340
062366
000340
062474
000340
032374
001206
001210
000001
005556
005564

000030
000032
00003¢
000036
000026
000026
032366

012737

013746
012737
012737

000004
005632
177570

005620
005626

022777
001012

177777

005612

005630
005632
005636
005640
005646

012737

000403
012716
000002
012737
012737

MOV

RO,=-(SP)

_ASCIZ

177570

000022

001131
001122
001124

<CRLF>/UNEXPECTED BUS TIMEOUT, PC=/

:SETUP FOR TYPING OUT PC
;PUT

"HALT(0)*

INSTRUCTION HERE

;70 STOP ON UNEXPECTED TIMEOUT.

START:

NOP
INC
BNL
RESET

.SBTTL

INITJALIZE THE

20
=4

:TTY LOOP, WAIT FOR
:0F WORD
;RESET THE WORLD

YOU WISH

INCREMENT

COMMON TAGS

#SCMTAG,RG
(R6)+
#SWR,R6
-6
#STACK,SP

::FIRST LOCATION TO BE CLEARED
::CLEAR MEMORY LOCATION
: ;DONE?
:;LOOP BACK IF NO
;:SETUP THE STACK POINTER

..INITIALIZE A FEW VECTORS
MOV
#$SCOPE,a#10TVEC ;;10T VECTOR FOR SCOPE ROUTINE

MoV

MOV
MOV
MOV
MoV
MOV
MOV
MOV
CLR
CLR
MOVB
MOV
MOV

#340,a8[0OTVEC+2 ;:LEVEL 7

#SERROR,QNEMTVEC ;;EMT VECTOR FOR ERROR ROUTINE
#3L0,30EMTVEC+2 ;;LEVEL 7
#STRAP,Q#TRAPVEC ;:TRAP VECTOR FOR TRAP CALLS
#340,80TRAPVEC+2;LEVEL 7
#SPWRDN,3#PWRVEC ;;POWER FAILURE VECTOR
#340,3#PWRVEC+2 ;;LEVEL 7
SENDCT,SEOPCT
;;SETUP END-OF~PROGRAM COUNTER
STIMES
:;INITIALIZE NUMBER OF ITERATIONS
SESCAPE
:;CLEAR THE ESCAPE ON ERROR ADDRESS
#1,$ERMAX
::;ALLOW ONE ERROR PER TEST
#.,SLPADR
:INITIALIZE THE LOOP ADDRESS FOR SCOPE
#.,SLPERR
::SETUP THE ERROR LOOP ADDRESS

;:SIZE FOR A HARDWARE SWITCH REGISTER.

IF NOT FOUND OR IT IS

;sEQUAL TO A *'=1'", SETUP FOR A SOF TWARE SWITCH REGISTER.
000004
001154
001156
173326

005640
000176
000174

;GET OVER THE ASCIZ

START OF PROGRAM

MOV
CLR
CMP
BNE
MOV

001100

005572
005576
005604

..TYPE ASCIZ STRING

648

.SBTTL

001154

000340

,65%

:ADJUST PC =2
;RESTORE STACK POINTER

:;CLEAR THE COMMON TAGS (SCMTAG) AREA

005432
005436
005440
005444
005446

005460

:SAVE PC WHERE THE TIME OUT OCCURED

-(RO)
(SP)+,(SP)+

TYPOC
NOP

000000

(SP),RO

TST
CMP

TYPE

}%
14
15
16
}g

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

SFERRVEC,-(SP)
#64S ,QFERRVEC
#DSWR, SWR

;;SAVE ERROR VECTOR
;. SET UP ERROR VECTOR
:sSETUP FOR A HARDWARE SWICH REGISTER

cMp
BNE

#-1,35WR
66%

;. TRY TO REFERENCE HARDWARE SWR
: :BRANCH 1F NO TIMEOUT TRAP OCCURRED

MOV

64%:
001154
001156

MOV
MOV
MoV

65%:

8R
MOV
RTI
MOV
MOV

#ODISP,DISPLAY

65%
#658, (SP)

;;AND A HARDWARE DISPLAY REGISTER

;sAND

THE HARDWARE SWR IS NOT = -1

: :BRANCH IF NO TIMEOUT
;.SET UP FOR TRAP RETURN

FSWREG, SWR
:POINT TO SOF TWARE SWR
#OISPREG,DISPLAY

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

MACRO v03.01

005654

012637

000004

005660
005664
005672
882?53

005037
132737
001403
012737

001230
000200

001263

001244

0011564

21 005702
22 005710
23 005716
005722
005726

012737
012737
012746
012746
000002

005340
000300
000300
005730

000004
000006

" 005730

005227
001056
022737
001452
106401

005752
005756
005760
005766
005770
005776
006000
006002

005737
001012
123727
001406
023727
001005
104407
000403

006012

000427

8828?3

(SP)+,a#ERRVEC

;;RESTORE ERROR VECTOR

075

CLR
BITB
BEQ
MOV

SPASS
WAPTSIZE,SENVM
67%
#SSWREG, SWR

;CLEAR PASS COUNT
;;TEST USER SIZE UNDER APT
S:YES,USE NON-APT SWITCH
::NO,USE APT SWITCH REGISTER

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

112737

;;TYPE

177777
032530

000042

006016

.SBTTL

000042
001242

000001

001154

000176

000001

001150

;;::
::708:
698 :

% 006072

MOV
MOV
MOV
MOV
RTI

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

TYPE PROGRAM NAME

THE NAME OF

INC
BNE
CMP
BEQ
TYPE
GET

THE

PROGRAM

n-1
698
NSENDAD,aN62
69$
,70%

VALUE

ST
BNE
CMPB
BEQ
CMP
BNE
GTSWR
BR

FOR SOFTWARE

Y1,
718
SENV,#1
718
SWR, #SWREG
728
728

;SETUP FOR UNEXPECTED TIMEOUT
:LEVEL 6
1iPUT NEW PS ON STACK
©:PUT NEW PC ON
STACK
1:POP NEW PC AND PS

FIRST

PASS

::FIRST TIME?
: *BRANCH IF NO
;:ACT=11?
: iBRANCH IF YES
:TYPE ASCIZ STRING

SWITCH REGISTER

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

MOVB

#1,$AUTOB

::SET AUTO-MODE

698

:GET OVER THE ASCIZ

.ASCIZ

INDICATOR

<CRLF>3CZRMNAD - AM05/3/2 FUNCTIONAL

TEST.

PART

23<CRLE>

:THE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE:

:PAPER TAPE

30 006072

40
41
42
43

MOV

.SBTTL

005730
005734
005736
005744
005746

SEQ 0064

668:

688 :

31
32
33
36
35
36
37
38
39

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

006076
006104
006106
006114
006122
006124
006130
006134
006136

006142

006170

006170
006172
006176
006200

005037

122737
001160
013737
122737
103002
105037
005737
001425
104401

000412

005046
113716
104403
001

001330

000016

000041

000040
000007

001330
001330

001330
000042

CLR

18:

006144
.. 748:

73s:
001330

(MANUAL),

ACT11,

XXDP CHAIN OR DUMP

(MPB
BNE
MOV
CMPB
BHIS
CLRB
ST
BEQ
TYPE

XXDP
#16,a841
38
anL0, xxpP
#7,XXDP
18
XXDP
ane?
2%
748

.ASCIZ

<CRLF>/NOT TESTING DRIVE
/

CLR
MOVB
TYPOS
.BYTE

-(SP)
XXDP,(SP)

738

;CLEAR "XXDP' LOAD DEVICE STORAGE

*LOADED FROM AN RM05/3/2 ?
*BRANCH IF NOT
:GET DEVICE INDICATOR AND NUMBER
$1S 1T A VALID NUMBER ?
SYES
*NO, DEFAULT TO DRIVE 0
*CHAIN MODE OR ACT11 AUTO ACCEPT ?
:BR IF NEITHER
;:TYPE ASCIZ STRING

1GET oven THE ASCIZ

:CLEAR WORD ON STACK
:GET DRIVE ADDRESS
STYPE THE ADDRESS
SONLY 1 CHARACTER

CIRMNAO RMO5/3/2 FCTNL 18T 2

MACRO v03.01

GET VALUE FOR SOF TWARE SWITCH REGISTER

00051

006210
006214
006216
006222

000
106401

0052
ooNn

o=sr~

006201
006202
006206

001217
2%:

177777

006224

000431

006346
006346
006352

000435

001330

104401

006264

55g0%

006354

:79%:

8.
NN

AN
=

N —e N
NN

O
~NNWw
e~
NO
OO
O
B NESENNS—,
WOOWWOW
W=W~NNNIN

000377

[V
=2 AP = O

:GET NUMBER OF DRIVES

INC
gNE
TYPE
BR
LASCIZ

§;1

rénsr

CLR
MOovB
TYPOS
.BYTE
.BYTE
TYPE
BR

.ASCIZ

TYPE

BR
LASCIZ
1518

BEQ

001300

001243

Mov
;PROGRAM
XSIZ:

]

000200

;SUPRESS LEADING ZEROS
*CR-LF

$CRLF

76%

<CRLF>/TO TEST

XXDP, (SP)
1

:CLEAR WORD ON STACK

:GET DRIVE ADDRESS
:TYPE

SONLY

DRIVE ADDRESS

CHARACTER

*SUPRESS LEADING ZEROS

78%

S:TYPE ASCIZ STRING

HALT

PROGRAM,

79%

::GET OVER THE ASCIZ
REMOVE

RRDP PACK AND REPLACE

001276

S:GET OVER THE ASCIZ

/WITH A WORK PACK,

064506

001300

064305
001330

006652

2%:

#377,$DEVM
IN AUTO MODE

;2117,SENVH

CLR

BlTB
BEQ

ATNTBL(R1) ,$DEVM

187
BEQ
(MPB
BEQ

s:DP

MOv

001330

$AUTOB
STANDALONE

Bl1B
BNE
MOv

000040
000010
000012
064325
010000

000010

006652
000010

MOV

064342
004000

006652
000000

MOV

064361
010000

006652
000012

MOv
MOV

1ST

BIT
BNE

8IT
BEQ
MOV

BIT
BEQ
BR

IT/<CRLF>

::TYPE ASCIZ STRING

141

IS RUNNING

“GET OVER THE ASCIZ

DRIVE

-(SP)

THRU HERE

,,rvPE ASCIZ STRING

TIME

CLEAR LOCATION 40 AND RESTART

sCHECK FOR AUTO MODE OR STANDLONE MODE

601150

—

— N

Q ~
=1V]

B NNEDENNVONNN=NY
OO WO W= WNOOO
D=2 O NOONNONOOO

006532
006540
006544
006559
006556
006564
006566
006574
006602
006604
006612
006620
006622

—0O

006500
006506
006510
006516
006522
006524
006530

OoONOO—-OW

?1 006472
72 006474

O—OCO0O0—

006470

OQOW—OW—OW—=O
—
O = NINI == NON) = PONOWVNO
N

006462

OO0OOOOOOOOOO0O0

006462

OO
—
—O0O0

006446

SEQ 0065

.BYTE

1YPE

006244
006264
006246
006252
006254
006255
006256
006262

006446
006452
006454

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

$BASE RO

sRUNNING IN AUTO MODE
;BR _IF NO

PROGRAM./<CRLF>

¢SET DEVICE MAP FOR ALL DRIVES
- SEE

SIZING

IS ALLOWED

;SIZING ALLOWED ?

;NO

;START

FROM DRIVE

JLOAD THE BASE ADDRESS
;1S DEVICE PRESENT

IN MAP ?

6%
#LODEV,5%

;JBR IF NO
;GET ADDRESS OF LOAD DEVICE ME SSAGE

XX0P,R1

;1S THIS THE ORIVE

#CLR,RMCS2(RO)
R1,RMCS2(RO)
RMDS (RO)
#NOTPRS, 5%
ANED ,RMCS2(RO)

;CLEAR MASS BUS
sLOAD THE DRIVE ADDRESS
:TRY TO ACCESS AN RM DRIVE REGISTER
¢GET ADDRESS OF NOT PRESENT MESSAGE
;1S DRIVE PRESENT ?

NOVA,RMCS1(RO)

;1S DRIVE AVAILASLE

3%
#NOTAVL, 5%
3%

FOFFLIN,SS
#MOL ,RMDS(RO)

LgADED FROM RMQ5/3/2
?
?

JYES, TRY NEXT DRIVE

:BR_IF NO
;GET ADDRESS OF AVAILABLE MESSAGE
;BR _If NO

;GET ADDRESS OF OFF LINE MESSAGE
;1S MEDIUM,ON LINE ?

:BR IF NO

CIRMNAO RMO5/3/2 FCINL TST 2

MACRO v03.01

GET VALUE FOR SOF TWARE SWITCH REGISTER

95
96
97
98
99

006626
006632
006636
006642
006644
006646
006647
100 006650
}8; 006652

146137
104401
104401
010146
104403
002
000
104401
000000

103 006654
104 006656
}82 006662

005201
020127
003706

107
108
109
110
111
}}%

006664
006670
006672
006674
006676
006700

104401
005004
005304
001376
005304
001376

001217

}}g 006702

000137

007612

064506
001217
066277

001300

SEQ 0066

38:
63

BI(B
TYPE
TYPE
MOV
TYPOS
.BYTE
.BYTE
TYPE
.WORD

ATNTBL(R1) ,$DEVM
;CLEAR DEVICE FROM BIT MAP
JSCRLF
s CR=LF
. MSGORV
;TYPE °'DRIVE'
R1,-(SP)
::SAVE R1 FOR TYPEOUT
::60 TYPE-=-OCTAL ASCII
2
;s TYPE 2 DIGIT(S)
0
: : SUPPRESS LEADING ZEROS
:TYPE ERROR MESSAGE
O
;ADDRESS OF MESSAGE GOES HERE

6% :

INC
CMP
BLE

R1
R1,#7
1%

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

78:

TYPE
(LR
DEC
BNE
DEC
BNE

SCRLF
R&
R4
.~2
R&
.~2

;CR=LF
;THESE TWO LOOPS ARE ADDED T0
;WAIT FOR TTY TO FINISH TYPING.

JMP

CMNSTART

:JUMP TO COMMON START

5%:
000007

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

CIRMNAO RM0S5/3/2 FCINL TST 2
INPUT ROUTINES

.SBTTL

006706
006706

004737

061036

006712
006716

005227
001426

177777

006720
006720
006724
006726
006732
006736
006744
006746
006752

001176
001176
001176

;S EE
is:

000131

000116

063234
001176
001176

000131

001176

000116

WNANNN
= N b b b

001217
063611

104401
000756

064241

001176
001176
001176

000131

001176

000116

TYPE

104401

104402

063677
001276

_CNSLO8

;MAINTAIN PREVIOUS PARAMETERS

:GET RESPONSE
sECHO RESPONSE

JYES RESPONSE ?
JNOY!

:CR-LF

JKEEP PREVIOUS PARAMETERS

sNO RESPONSE ?
;YES, GET NEW PARAMETERS
:NO, TYPE ' ILLEGAL INPUT

s TRY AGAIN

LMSHELP

(SP)+,$THPI
,$THP1

$TMP1. #'Y
43

STMP1,#'N

5§

JWANT HELP ?

;GET RESPONSE
sSAVE AND ECHO RESPONSE
JWAS

IT A YES RESPONSE

1YES
‘3@2 IT A NO RESPONSE ?

CNSLO8

*NO, TYPE ' ILLEGAL INPUT'

JHELP

:YES = TYPE HELP TEXT

*TRY

AGAIN

USER WANTS TO CHANGE ADDRESSES
TYPE
TYPE

RDCHR
MOV
TYPE
CMPB

BEQ
CMPB
BEQ
TYPE

BR
églALOGUE

013746

THRU HERE

OPERATOR WANTS HELP TEXT

BR
IF

CMPB

-SEE

(SP)+,$TMPI
$TMP{

BEQ

55:

,CNSLOO

S$TMP1,#'N
5¢

CMPB
BEQ

JFIRST TIME
YES !!

CMPB
BEQ

TYPE

101206

N-1
38

,SCRLF
CMNSTART

RDCHR
MOV
TYPE

064241

;INITIALIZE CONSOLE

TYPE
JMP

TYPE

001176

PC,STKINT

$TMPY @'Y

TYPE

égee

INPUT ROUTINES

cMPe

BNE

28:

StQ 0067

THE USER WANTS TO KEEP SAME DEVICES FOR TESTING
TYPE
RDCHR
MOV
TYPE

064241

NNVONOW—0OO

007044
007044
007050
007054
007056

001176

Qe Qe e Ot =
ONONO —OO

006774
006774
007000
007002
007006
007012
007020
007022
007030
007032
007036
007040

INC
BEQ

001217
007612

006756
006764
006766
006772

STANDALONE

STANDALONE:
JSR

063644

QO
vl e O b il =
ONONO =000
Pt
Py I T I T

OO NO VN

(LT, V1,87, N1,VT VT ¥Y VT,V ¥ P

Sl i S S

NN = OO0 NO VL

Oy G

NN = OO 0D ~O NS NAD —

STANDALONE

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

,$CRLF
~UBUSQST

(SP)+,$TMPY
,$THP1
$TMP1,#'Y

TYPE
TYPOC

UAS

IT A YES RESPONSE

63
$TMP1,#'N
12%

s YES

844

:TRY AGAIN

CNSLO8

TO CHANGE

MOV

s CR-LF
sWANT TO CHANGE ADDRESS ?
;GET RESPONSE
:SAVE AND ECHO RESPONSE
YES
:WAS 1T A NO RESPONSE

INO, TYPE

THE UNIBUS ADDRESS,

CNSLOY

$BASE, - (SP)

< TYPE

ILLEGAL INPUT

VECTOR ADDRESS AND

°
INTERRUPT

CURRENT BUS ADDRESS

::SAVE $BASE FOR TYPEOUT

;.60 TYPE=--OCTAL ASCII(ALL DIGITS)

PRIORITY

CZRMNAO RMO5/3/2 FCTNL TST 2

STANDALONE

INPUT ROUTINES

57 007126
58 007132
59 00713¢
60 007140
61 007142
62 007150
63 007152

106401
104413
012637
001612
022737
101403
104401

063715

gg 007160

013737

001176

67
68
69
70
71
72
73
76
75
76

104401
005046
113716
104403
003
000
104401
104413
012637
001412

063757

64 007156

007166
007172
007176
007200
007202
007203
007206
007210
007212
007216

77 007220
78 007226
79 007230

000760

022737
101003
104401

063777

001000

83
84
85
86
87
88
89
90

104401
005046
113716
006216
006216
006216
006216
006216

064033

007260

93 007273

106401
104413
012637
001424
023727
002403
104401

063225

102
103
106
105
106

007326
007332
007336
007342
007346

006337
006337
006337
006337
006337

001176
001176
001176
001176
001176

101 007324

}85 007352

109
110 007360
111 007360
112 007364
113 007366

TYPE
CLR
MOVB
TYPOS
.BYTE
.BYTE
TYPE
RDOCT
MOV
BEQ

LCNSLO3
2(SP)
SVECT1,(SP)

:GET CURRENT VECTOR ADDRESS

CMP
BH]
TYPE

000747

113737

005227
001002
106401

177777
064076

STMP1,SVECTI

108 :

TYPE
CLR
MOVB
ASR
ASR
ASR
ASR
ASR

,CNSLOS
Z(sP)
SVECT1+41,(SP)
(SP)
(SP)
(SP)
(SP)
(SP)

BYTE

1YPE
RDOCT
MOV
BEQ
CMP
BLT
TYPE

000007

118:

001273

(SP)+,$TMPI
108
#1000,8TMP1
9¢
CNSLOG

MOVB

064045

001176

3
0
,QUES

9%:

001176
001176

STRY AGAIN

8s:

1YPOS
.BYTE

007274
007300
007302
007306
007310
007316
007320

6844

:STORE NEW BUS ADDRESS

001273

9%
95
96
97
98
99
100

(SP)+,$TMP
8$
#160000,8TMP1
7%

$STMP1,$BASE

104403
001

000

,CNSLO2

JTYPE " 2 "
:GET NEW BUS ADDRESS
:CARRIAGE RETURN ?
SYES=SKIP TO NEXT ENTRY
:BASE ADDRESS IN 1/0 PAGE ?
SYES
:TYPE WARNING MESSAGE

MOV

001176

001272

LQUES

7$:

001176

007262
007264
007266
91 007270
92 007272

001276

063225

113737

007252
007256

001176

001272

000754

007264
007250

TYPE
RDOCT
MOV
BEQ
CMP
BLOS
TYPE

001176
160000

D
6
11-APR-80 13:17:48 PAGE 10-1
SEQ 0068

063225

80 007234

g; 007236

MACRO v03.01

B8R

ASL
ASL
ASL
ASL
ASL

MOVE

,QUES
(SP)+,$TMP}
128
$THP1, 87
1s
LCNSLO6

108

$TAP1
$STHPY
$THPY
STHPY
$TK1

:TYPE 3 DIGITS
:SUPPRESS LEADING ZEROS
STYPE
2
*GET NEW VECTOR ADDRESS
:CARRIAGE RETURN?
SYES-SKIP TO NFxT ENTRY
:VECTOR ADDRESS < 1000 ?
JYES!!
STYPE WARNING MESSAGE

‘RETRY

SSTORE NEW VECTOR ADDRESS

:GET CURRENT BR LEVEL

;ONLY

DIGIT

:SUPPRESS LEADING ZEROS
:GET NEW PRIORITY
:CARRJAGE RETURN ?
SYES=SKIP TO NEXT ENTRY
-LEGAL PRIORITY ?
SYES!!
STYPE WARNING MESSAGE

SIRY AGAIN

SSTURE NEW PRIORITY

STMP1.SVECT1+1

:DIALOGUE TO INPUT DEVICE NUMBERS
12¢:
INC
-1
;FIRST TIME
BNE
138
:BR IF NO
TYPE

LCNSLO7

STYPE

INPUT

THRU ?
INSTRUCTIONS

CIRMNAQ RMOS/5/2 FCTINL TST 2
i
i
D ol e
el e
) i
e
D e
S
il
e
D
e
il
e
i
e
e
el
o
e
e
e

B B U
&S =2 OV

b o

H e £

—

A N N N R AN N N NI PO PO PO PV PO NI PO NI N b b b e e et
NO VNN
= OOV
NO VN
NN~ OO0 ~NO NS

STANDALONE

INPUT ROUTINES

MACRO v03.01

13%:

007372
007376
007602
0076406
0076410
007416
007422
007626
007430
007436

104401
005037
104401
104611
012637
023727
001007
106401
012737
000137

001217
001300
064263

063220
000377
006462

001300

007642
007450
007452
0076456
007664
0076466
007474
007476

023727
001436
104401
023727
002430
023727
003427
000423

001176

000018

001176
001176

000060

001176

000067

007500
0067502
007506
007514
007516
007522
007526
007534
007536
007544
0075646
007552

104411
012637
023727
001432
104401
104401
023727
002404
023727
003403
104401
000711

007554
007560
007564
007572
1 007600
2 007602
2 007606

001176
001176

14%:
000101

15%:

001176

000067

18$:

177770

0646506
000377

001217
006462

001300
001300
19%:

;GET RESPONSE

JALL

JYES,

CMP
BEQ

$STMPY,#(R
17%

CMP

$STMP1,#'0

CMP

STMPY,2'7

RDCHR
MOV
CMP
BEQ

(SP)+,8TMP
$TMP1,#CR
19%

CMpP
BLT

$TMPY .40
17¢%

TYPE
TYPE

001176

(SP)+,8THMPY

037 LSDEVM

BLE
B8R

17%:

JTYPE

MOV

BLT

064241

.MSDRVS

STMP1,#'A
15%

TYPE

CMP
BLE
TYPE
BR
MOV

BIC
81s8
(MPB
BHI

TYPE

JMP

SEQ 0069

JCR=LF

CMP
BNE

TYPE
RDCHR
MOV

10-2

$CRLF

$DEVM

JMP

000015

000060

TYPE

13:17:48 PAGE

(LR

TYPE

16%:

063231
001176
001176

11-APR=-80

;CLEAR DEVICE MAP
'DRIVE(S):

;1S INPUT A" 2
;NO
TYPE

"'ALL'' AND GO

JSET DEVICE MAP FOR ALL DRIVES
JAUTO SIZE.

CARRIAGE RETURN ?
YES

L$THPI

Ecno RESPONSE

17¢%

JYES

18¢%
17¢%

:NUMBER < 0 ?
*NUMBER > 7 ?

;NO
.ILLEGAL INPUT
;GET RESPONSE
:CARRIAGE RETURN ?
JVES

,COMMA
LST¥P1

;TYPE *, *
;ECHO RESPONSE

STMPY,8'7
18%

LCNSLOS8
14%

:NUMBER > 7 ?
:NO
;TVPE " 7ILLEGAL
JRETRY

$TMP1,R1

:R1

;NUMBER < 0 °
JYES

INPUT"

= DRIVE NUMBER

#4C7 R
ATNTBL(RY) ,$DEVM
#377,8DEVM
;DONE

JSET DEVICE

16%

;NO

¥Sl12

;60 SIZE DEVICES

LSCRLF

;CR=LF

IN MaP

CIZRMNAO RMO5/3/2 FCTINL TST 2
INPUT

007612
007612
007616
007622
007626
007632
007634
007636
007640
007642
007650
007654
007656
007660
007662
007664
007666

007670
007674
007676
007676
007700
007704
007720
007720
007722

007724

007724
007730
007732
007740
007742
007750
007752
007754
007756
007764

007764
007766

ROUTINES

11-APR-80 13:17:48 PAGE

SEQ 0070

;ASSEMBLE TEST QUE FROM DEVICE MAP

:
CMNSTART
MOV
MOV
MOV
MOV

001300
0014666
001664
000001

18:

064506
000002

000001

004737
000413
104000
104401

000405

(LR
8lT
BEQ
MOV

MOVB

2%:

1%:

00501

ADD
ASL
1878

BEQ
INC
BR
(LR

;SIZE FOR CLOCK

037600

JSR

007706

EMT

TYPE

;:65%:
6469:

000000
000765
WOOOMNON
— N
NWNWVNO NV
N

V1 V1,V

~NOoOw

~no

=2 OO0V

[a V], V], T, W T DI W

~NO VN

2O 0V00NON NS

NN —

STANDALONE

MACRO v03.01

5%:

LSBTTL

000042

001242

000001

001154

000176

BR
LASCI2
HALT

B8R

001300

001150

001116
001206
001326
061036
000300
010044

R2
P

3%
R3
1%

DEVICE

NUMBER

;ENTER NEXT DEVICE

;SEE IF CLOCK PRESENT
JYES = CLOCK [S PRESENT

,65%

;s TYPE ASCIZ STRING

TEST

QUE

648
;;GET OVER THE ASCIZ
<CRLF>/PROG HLT/

66%:
67%:

MOv8

READY:

NOP
1578

$DEVM

151

JMP
JMP

START
$EOP

(LRB
(LR
(LR
JSR

$TSTNM
$STIMES
CTLFG
PC,STKINT

MoV

2648 ,-°5P)

MOy

ADVANCE

5¢

67%

POINTER

PC,S12CLK

1%:

DEVICE

DONE ALL DEVICES
YES
:TERMINATE

67%

BNE

;ADVANCE

(R1)

VALUE FOR SOFfTWARE
ane?
66%
BNE
91
SENV,
(MPB
66%
BEQ
CMP
SWR, #SWREG

BNE

;RO = DEVICE MAP
sR1 = ADDRESS OF FIRST ENTRY [N QUE
JINITIALIZE ENTRY POINTER
;R2 = DEVICE POINTER
;R3 = DEVICE NUMBER
:Lg qus CEVICE IN MAP ?

R3,(R1)
;YES - ENTER DEVICE NUMBER IN QUE
ATNTBL(R3),1(R1);ENTER ATTENTION BIT IN QUE
"2 .R1
;ADVANCE ENTRY POINTER

BNE

000042
005420
032340

R3
R2,RO
2%

GET

GTSWR

000001

$SDEVM,RO
#TSTQUE+?2,RY
R1,TSTQUE
#1,R2

#1,3AUT08

#PR6,-(SP)

:PROGRAM HALT

SWITCH REGJSTER

JsARE WE RUNNING UNDER XXDP/A(CT?
;;BRANCH

YES

;;ARE WE RUNNING UNDER APT?

s ;BRANCH IF YES
;:;SOFTWARE SWITCH REG SELECTED?
J:BRANCH 1F NO

J:GET SOFT-SWR SETTINGS

++SET AUTO-MODE INDICATOR
;READY

START

TEST

sANY DRIVES IN MAP ?
;BR IF YES
sANY MON]TOR PRESENT

;BR IF YES
;JUMP TO START
;RETURN CONTROL 7O MONITOR

JRESET TEST NUMBER
JINITIALIZE NUMBER OF [TERATION>
JCLEAR CONTROL-C FLAG
SJINITIALIZE TTY
:sPUT NEW PS ON STAC(K
;.PUT

NEw PC

STACK

CIRMNAQ RMOS5/3/2 FCINL TST 2

GET

MACRO v03.01

VALUE FOR SOFTWARE SWITCH REGISTER

010042
0174

000002

:2 010052

005037

62 010064

45
)

«7 010056
«8 010064

69 010070

50
51
52
53

010076
0101064
010110
010114

5¢ 010120
25 8:8}%8
6

117737

012737
013700
012760

117760
016002
042702
022702
001003
012737

1714146

001510

002000
001276
000040

001234

001332

SEQ 0071

64%:

000010

011000

001332

RT]
mMovs

(LR

;.POP NEwW PC AND PS
8TSTQUE ,SUNIT

MEDENB

JLOAD UNIT NUMBER

JCLEAR MEDIA ENABLE

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

000010

171362
000026
177770
000007

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

MOvB
MOv
BIC
(mp
"

BNE
MOV

THE LAST

TRACK

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

JASSUME LAST TRACK FOR RMO2/5 = &,
JRO = UNIBUS ADDRESS
;CLEAR MASSBUS

b33
BTAYG TA2,LSTRK

JNO, MUST BE AN RM(OZ2 OR kMQ3
;YES==SET LAST TRA(K = '8.

STSTQUE ,RM(S2(RD)
JSELECT DEVICE UNDER TEST
RMDT (RO) ,R2
;GET RMDT AND
#M77770,R2
;SAVE DRIVE TYPE BITS
”,R2
;IS 1T AN RMOS 2

CIRMNAO RMOS5/3/2 FCTINL 18T 2
MACRO v03.01
VALUE FOR SOF TWARE SWITCH REGISTER

GET

11-APR-80 13:17:48 PAGE

SEQ 0072

M """""."""""""""'.".'".".'.""""...""Q'Q.'

264

".'

(=4
o

-—

001100
001276
00146¢
000001
000004
000006
010262
000300

o
o

NN nJ

liNoelala) o

000240

002

SNOMNON

264
250

CONTROLLER ACCESS TEST

ts11:

OO00O0O (=l=lelololel N olelelele
Q) = b e s [ S
S
[ Qv pur P Y = ]
OO CO0OO0O QOO
NN

NN OV
CCOSrOO
NN
—= = O
SFOHLrO0S

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

—-O0O00
Q) =t b )

DN NI
OroOoNrNOO

)
i

o
i
d

sl
—d

b cod

OO0OO0O0O

[o]e] OOOSOOO OO0 OCOO0O0O0O0O000

O VNS

OO0

WA = OO0
NN

OO0O0O0O0OOOOCOOO

S W= OV

OO0
—

OO0O0O0O0O0OT0
i e
i
i
e

PORINININY
= b o s ot e o b s s

[dlelelolelols]

SeTEST

SCOPE
NOP

MOv

BSTACK,SP

:START OF

TEST

;INITIALIZE STACK POINTER

001226

MOv
MOv
MOv

000004
000006

MOv
MOv
MOv
MOv

ERRVEC,-(SP)
ERRVE(+2,-(SP)
#39%,ERRVEC

;:PUSH ERRVEC ON STA(K
;:PUSH ERRVE(C+2 ON STA(K

MOvB
MOV
MOv
MOV
MOv
MOV
MOV
MOv
MOv
MOv
MOV

R1,RMCS1+1(RO)
R1,RMWC(RD)
RMWC (RO) ,R2
R1,RMBA(RD)
RMBA (RO) ,R2
R1,RMCS2(RO)
RMCS2(RO)
,R2
R1,RMDB(RO)
RMDB(RO)
,R2

JMOVE M] BYTE T0O RM(CST
;MOVE WORD COUNT REGISTER

(LR

000001
000002
000002
000004
000004
000010
000010
000022
000022
000006
000004

5%:
78:

= DEVICE BEING TESTED

;:SET TEST NUMBER IN APT MAIL BOX

#PRG,ERRVE(+?2

.MOVE BUS ADDRESS REGISTER
JMOVE

CONTROL STATUS REGISTER

;MOVE DATA BUFFER

JADJUST STACK

(SP)+ ERRVEC

;.POP STACK

INTO ERRVEC

1St
BNE
JMP

ane?
5%

zTAND ALONE

MODE

START

JYES-GO GET

$BASE

JMP

$EOP

;60 YO END OF

EMT

032340

;(R1)

(SP)+,(SP)+

MOv
MOV

005420

TSTQUE ,R1
#1,8TESTN

;RO = UNIBUS ADDRESS

;.POP STACK INTO ERRVE(+?
;.POP STACK INTO ERRVEC
;JNO BUS TIMEOUT OCCURRED

(MP

000006
000004

$BASE RO

(SP)+ ERRVE(+?
;EP)*.ERRVEC

000042

000137

sSCOPE CALL

(SP)+ ERRVEC+?2
110

J.POP STACK

INTO ERRVE(+?

PASS HANDLER

* ."l"'.'.".."'.""'.""".'.."t'...."".'t""'""""'

THTEST

DEVICE

AVAILABLE

TEST

olelele] <>52CDCDCDCDC>

—

OOO00

35
36

i
—

314

OO0OO0O000CO

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

342

000004
000240
012706
013700
013701
012737

004737
000404
000240
104000

is12:

001100
001276
001464
000002
046464

001226

SCOPE
NOP
MOv

#STACK,SP

sSCOPE CALL
SSTART OF TEST
SINITIALIZE STACK POINTER

MOv

TSTQUE ,R1

#2,8TESTN

;(R1)

JSR
BR
NOP

PC,INTILR

:60 JSSUE CONTROLLER CLEAR

MOv
MOV

$BASE ,RO

EMT

;RO = UNIBUS ADDRESS

= DEVICE BEING TESTED

;:SET TEST NUMBER IN APT MAIL BOX

;60 T0 2% IF NO ERROR
;RETURN HERE 1F ERROR

;ERROR NUMBER DEF INED BY SUBROUTINE

RMO5/3/72 FCINL TST 2
DEVICE AVAILABLE TEST

0103564
010360
010360
010364
010370
010376

000137

010474

013746
013746
012737
013737

000004
000006
010460
000300

010404
010612
010420
010624

016037
016037
012637
012637

000000
000010
000006
000004

010430
0106436
010440
010442
010444
010452

032737
001402
1064111
000414
032737
001012

010454
010456

104112
000406

010460
010462
010466
010472
010474
010500

022626
012637
012637
104113
000137

I
17-APR-80 13:17:48 PAGE

MACRO v03.01

6
12-1
SEQ 0073

2%:
000004
0000C»

001176
001174

010000

00'17¢

004000

001176

3%:

JMP

;60 10 7% IF ERROR

MOV
MOv
MOV
o]

ERRVEC,=(5P)
ERRVE(C+2,~-(SP)
#58 ERRVEC
PR6,ERRVE(C+?2

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

MOV
MOV
[ [0]"
MOV

RMCST(RO) ,$TMPY -GET DVA STATUS
RMCS2(RO),$TMPO .GET NED STATUS
(SP)* ERRVE(+2
;.POP STA(K [NTO ERRVEC(C+?2
(SP)e ERRVE(
::POP STACK INTO ERRVEC

817
BEQ
EMT
BR
817
BNE

ONED ,S$TRPQ
3%
111
7%
SDVA,$TRPY
9

(mp
mOv
"0y
Em?
Jnp

(SP., o, (SP)e
(SPie EMRyZ (e
(SP)e ERRVE(
113
$E0SP

gmy
BR

000006
000004
032302

7%:
9%:

JNONEXISTENT DEVICE

INO:!

JDEVICE AVAJLABLE
JVES

112
143

°?

;ADJUST STA(K
;.POP STACK INTO ERRVE(+?
c:POP STA(CK NTO ERRVE(

. 00."'."0.......'....'.'.....0..O.....'0.'.....'.0"...'..""

'TESY
.- A

010500
010500
010502
010504
010510
010514

010520

000004
000240
012706
013700
013701

012737

3
A

DRIvE
A

A d 2

TvPg
R

TE9°
Y

R R

X X

XXX XX

1513:

001100
001276
001464
000003

SCoPE
NOP
MOV
mOv
mOv
mov

001226

010526
010532
010534
010536
8}8222

004737
000404
000240
104000
000137

046464

010544
010552
010560
010566
010572
010574
010576

112737
112737
012737
004737
000402
000240
104000

000026
000200
010702
037110

001522
001523
001362

010600
010606
010610
010616

022737
001435
022737
001431

020024

001362

024024

001362

010676

3%:

#STA(K SO
$8ASE RO
T1STQuUE R
#3,.87ES°w

XXXXXXXZXXXr)

JSCOPE (ALL
STARY OF TEST
INIYIALII! STACK POINTER
RO = uuxaus ADDRESS
(Ri)
DEVICE BEING TESTED

:;SEY YESY NUMBER IN APT MA]_L BOX

JSR
BR
NOP
EMT
JMP

PCONTCLR
2%

[10)"] ]
MOvB
MOV
JSR
BR
NOP
EMT

#RMOY ,GE VINX
#200,GETINX
#58 ,RMDT]
P(,GET
3

JSETUP GET INDEX TABLE
JSETUP TERMINATOR BYTE
;SET RMDT INPUT BUFFER - 9%
;G0 READ RMDT VIA GET SUBROUTINE
;G0 TO 3% IF NO ERROR
JRETURN MERE IF ERROR
;ERROR DEFINED BY GET SUBROUTINE

(P
BEQ
(MpP
BtQ

#SNGPRT ,RMDT]
5¢
#OULPRT RMDT]
5%

;SINGLE PORT RMQ3 °?
JYES '
DUAL PORT RMQ3 °
JYES !

;60 ISSUE CONTROLLER CLEAR
;6D 10 2% 'F NO ERROR
JRETURN MERE 1Ff ERROR
;ERROR NUMBER DEF INED BY SUBROUTINE
;60 TO 4% If ERROR

RMO5/3/2 FCINL TST
DRIVE TYPE TEST

010620

022737

0200¢5

MACRO v03.01

001362

010626

001425

022737
001421

024025

001362

010640
010646
010650
010656

(€22737
001415
022737
001611

020027

001362

024027

001362

010660
010666
010676

012737
012737
104114

020026
02402¢

001176
001209

010676
010702

000137

032302

010630
010636

11-APR-80

[

6
12-2

#SNGPRT BITO,RMDT]

BEQ

63
5%

J
13:17:,8 PAGE

SEQ 0074

:SINGLE PCRT RMQ?2 ?

CMP
BEQ

5¢

#ODULPRT BITO,RMDT]
5%

JYES

CMP
BEQ
CMp
BEQ

#SNGPRT BIT1 BITO,RMDT]
5¢
#OULPRY'BIT1'BITO,RMDT]
5%

;SINGLE PORT RMQS ?
JYES 1!
:DUAL PORT RMQOS ?

MOV
MOV
EMT

#SNGPRY,$TMPY1
SDULPRY,$TMP?
114

:LOAD ACCEPTABLE VALUES

JMP

$EOSP

;60 TO SUBPASS HANDLER.

:DUAL PORT RMQ?2 ?
JYES '

.';'t't".".t"t""""'t"""’Q.t"t'"tf.'.'"'t"tt"ttl"t'

SeTEST 4

FORMAT ZEROS

;"t"t't"t.'t"'""'""'"'""t'.""'I.'tttl'."'.tttt"t"'

010702
010702
010704
010706
010712
010716
010722

000004
000240
012706
013700
013701
012737

001100
001276
001666
0000064

001226

8}8;32

012737

000000

001442

010736
010744

012737
012737

000000
000000

010760
010766

012737
012737

101206
000062

0107764
011000
011002
011006
8}}8}2

004737
000405
104401
104000
000137

034276

011014
011022
011030
011034

012737
012737
0064737

064620
000001
036224

011034
0110640

004737
154130

033352

010752

012737

1874

177376

SCOPE
NOP
MOV
MOv
mOv
[ [s]']

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

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

;SETUP PARAMETERS FOR GENERATING DATA BUFFER

MOV

#0,RMOFOD

;18 BIT FORMAT

001466
001416

MOV
L 0]"]

#0.,RMDCO
#0,RMDAQD

;CYLINDER = 0
;TRACK = 0, SECTOR = 0

001414
001410

MOV
MOV

#BUFONE ,RMBAO
WK ,RMCS10

:DATA BUFFER ADDRESS
:WRITE HEADER AND DATA

001412

MOV

VERIFY

063120
011544

108
001174
001176

20%:
;PREPARE

THAT

JSR
B8R
TYPE
EMT
JMP

#-258. ,RMICO

SECTOR

MOV
mMov
JSR
DEVICE

JSR
.WORD

1S NOT BAD

PC,BADSCT
10%
LSCTMSG
190%

#IEROS,$TMPO
21.,81MP1
PC,GENBUF
FOR

DATA

PC,TSTPRP
154130

;2 ¢+ 256 WORDS (2°'S COMP)

:CALL BAD SECTOR MODULE
;GO TO 10% IF NO ERROR
;TYPE BAD SECTOR MESSAGE
;ERROR # DEFINED BY BADSCT SUBROUTINE
;60 T0 190% IF ERROR
;USE ALL ZEROS DATA PATTERN
;GO GENERATE DATA BUFFER

TRANSFER

;PREPARE DEVICE FOR TEST
:TASK DESCRIPTOR AS FOLLOWS:

JSELECT DEVICE € VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE

VOLUME NOT

;VERIFY PACK ACKNOWLEDGE

VALID

CIRMNAO RMOS5/3/72 FCINL TST 2

FORMAT

ZERQS

MACRO v03.01

11-APR-80 13:17:48 PAGE 12-3
;RECALIBRATE

011062
011044
011046
011050
}}; 011056

000404
0002490
104000
000137

011544

011054
011062
011066
011072
011076

012737
012702
112722
112722
112722

000005
001551
000006
000034
000032

}g? 011106

112722

000200

13
114
115
116
117
118
119

011102

122 011112

011116
011120
011122
011126

;gz 011130

125
126 011130
127 011134
}gg 011140

130
131 011140
011144
011146
011150
011152

}gg 011156

134
135 011156
011162

011164
011166
011170
011172
}i? 011176

112722

004737

000404
000240
104000
000137

004737
000404
000240

037110

011176
011204
011210
011216

012737
012702
112722
112722

000063
001554
000002
000004

}22 011226

112722

000200

112722

146 011230

004737

011236

000240

011234

000404

408 :

000000

037360

190$

''SKI'° OR 'PIP'' IS SET

JRETURN HERE ]F ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
260 T0 1908 IF ERROR

BR
NOP
EMT
JMP

#200, (R2)+
PC,PUT

(0%

1908

;G0 WRITE REGISTER(S)

WITH PUT

SUBROUTINE

:60 T0 40% IF NO ERROR
*RETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
160 TO 1908 IF ERROR

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

;60 READ SEEK STATUS
JSR
PC,GET
BR
60%
NOP
EMT
JMP
1908

608 :

;G0 READ REGISTER(S) WITH GET
:60 TO 60% IF NO ERROR
JRETURN HERE JF ERROR

SUBROUTINE

JERROR # DEFINED BY GET SUBROUTINE
260 TO 1908 IF ERROR

JVERIFY THE RESULTS OF THE SEEX COMMAND
JSR
PC,SEKSTS
;60 VERIFY RESULTS OF SEEXK OPERATION
BR
70§
260 TO 708 IF NO ERROR

045224

011544

163 011220

JSR

011544

000240
104000
004736
000137

138
139
140
141
162

MOVB

011544

308

*VERIFY RECALIBRATION
260 T0 308 IF NO ERROR

;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER
MOV
#SEEK'GO,RMCSI0 ;CHANGE COMMAND TO SEEK
MOV
#PUTINX,R2
JWRITE REGISTER INDEX TABLE
MOVB
#RMDA, (R2)+
MOVB
#RMDC.(R2)+
MOVB
WRMOF
. (R2)+
MOVB
#RMCST, (R2)+

037360

037024
037722

004737
000405

00410

000000

004737
004737

104000
000137

308 :

BR
NOP
EMT
JMP

SEQ 0075

708 :
001410

NOP
EMT
JSR
JMP

PC,a(SP)¢
190$

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

:SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
MOV
#WH'GO,RNCS10
JWRITE MEADER AND DATA
MOV
FPUTINX+3,R2
JEXTEND REGISTER INDEX TABLE
MOVB
#RMWC, (R2)+
MOVE
FRMBA. (R2)+

MOV

MOVB
JSR

NOP

#RMCST, (R2)+

#200, (R2)+
PC,PUT

80§

;60 WRITE REGISTER(S) WITH PUT

260 70 808 IF NO ERROR

‘RETURN HERE

IF ERROR

SUBROUTINE

104000
000137

011544

0112646

004737

037722

252
256
260
262
%64

004737
000404
000240
104000
000137

037110

004737
000405
000240
104000
004736
000137

040106

004737
000405
000240

052622

004737

040740

037110

104000
000137

—r

—

B
Y
i

—

004737
000404
000240

H o

406
12
&

102212

1208:
£

037722

[=] o~

NN
v
o (=]

004737

104000

110%:

—

011602

011544

000137

d cnld and

100%:

011544

SN NN
ONNNNYO>

NN
[«

011544

000405
000240
104000
004736
000137

EMT
JMP
FOR WRITE

JSR

JSR
BR
NOP
EMT
JMP

;60

PC,GET

;60 READ REGISTER(S)

90€

PC,DTASTS

NOP
EMT
JSR
JMP

SUBROUTINE

100%

PC,a(SP)+

190%

1108

PC,a(SP)+

1908

PC,SECERR

120%

PC,3(SP)+

190%

WITH GET

260 T0 908 IF NO ERROR
:RETURN HERE

SUBROUTINE

ERROR

*ERROR # DEFINED BY GET SUBROUTINE

1908

JSR
BR

JSR
B8R

NED BY PUT
F 3 ERROR

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

PC,PRIERR

EMT
JSR
JMP

SEQ 0076

.ER

190%

JSR
BR
NOP
EMT
JSR
JMP

160 TO

1908

;60 CHECK

ERROR

FOR PRIMARY

;60 TO 1008 IF
;RETURN HERE

ERRORS

NO ERROR
ERROR

;ERROR # DEFINED BY PRIERR SUBROUTINE
;60 BACK

FOR MORE

;60 TO 190% IF
:60 VERIFY

ERROR

RESULTS OF

CHECKS

DATA TRANSFER

;G0 TO 110% IF NO ERROR
;RETURN HERE

ERROR

<ERROR # DEFINED BY DTASTS SUBROUTINE
:GO BACK

FOR MORE

ERROR

260 TO 190% IF ERROR
;G0 CHECK

CHECKS

FOR SECONDARY ERRORS

;60 TO 1208 IF NO ERROR
;RETURN HERE

I1F

ERROR

;ERROR # DEFINED BY SECERR SUBROUTINE

:60 BACK

FOR MORE

;60 TO 1908 IF

ERROR

CHECKS

sREAD HEADER AND DATA FOR SECTOR JUST WRITTEN
MOv
MOv

#RH!GO,RMCS10
#BUFTWO,RMBAO

JSR
BR

PC,PUT

:60 WRITE

1908

SRETURN HERE IF ERROR
-ERROR # DEFINED BY PUT SUBROUTINE
260 TO 1908 IF ERROR

NOP

011544

6
12-¢

JVERIFY RESULTS OF WRITE COMMAND

VTV T PTOV T
T O TP T T
WV T T
T
[V LTV

ol
i
il

—
—
"
Sy

il e

)
)
il
)

JO i Sy ST N

il
D s
el

ol
e
e
I

ad ol el el

—

L
arh

004736
000137

—

90%:

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

NOP

037360

(olelolelall

;WAIT

104000

004737
000404
000240

6
2

80%:

011544

000073

MACRO v03.01

011544

012737
012737

oo~y

NO NN
-

el
)
el
il
e )
e

oor-rO0r0r
O

—
it
D
S
s
i

NNNNOO>
Wy
— O 000

174

112640
}}%AZ

NT ST, N )

ZEROS

elelelolelelololelalolalalelelolololeo
oY)

ORMAT

BB NNNINNININ
=
=2 =2 OO O NN
L NTals P Jeolel 4 Nlel. ¥F YoleP N VoY, ¥ el

M05/3/2 FCINL TST 2

[o V. PLTV

—

[VLIV IV Do) o o)
=20V~

il
il

(VU VLIV
IV ]

—
—

159
160

-—d

RMNAO

130%:

EMT
JMP

1308

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

WITH PUT

160 TO 1308 IF NO ERROR

SUBROUTINE

;WAIT FOR READ TO COMPLETE AND GET STATUS

140%:

JSR

PC,TIMOUT

SWAIT

JSR
BR
NOP
EMT
JMP

PC,GET

:60 READ REGISTER(S)

140%

190%

FOR READ TO COMPLETE
WITH GET

:60 TO 1408 IF NO ERROR

*RETURN HERE

ERROR

SUBROUTINE

“ERROR # DEFINED BY GET SUBROUTINE
260 TO 190% IF

ERROR

W 8
ol aF o P o P ol o

P oF S

QO NNNNOOO
O NN NS S D NWNWNWNND
SOOI NOST OO NOITSOOIrNOS

VAT

BB NWANNON
= st s 2O
S ONNONNOO O
SN

el o

D ot
)

il
e
o

D e

el
i

D il

) e

i
)
i

D e
il
D

il el el

D e

) ol

e
) i

D
D

o
nd

e e

e
i
e

i
—

—

i e

i arh

[olelelelelelelelelelaYe]

004737
000405
000240
104000
004736
000137

004737
000405
000240
104000
004736
000137
004737
000405
000240

MACRO v03.01

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

SEQ 0077
;VERIFY THE RESULTS OF READ OPERATION
JSR
PC,P RIERR
;G0 CHECK FOR PRIMARY ERRORS
150%
BR
;60 TO 1508 IF NO ERROR
NOP
:RETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY PRIERR SUBROUTINE
JSR
PC,a(SP)+
;G0 BACK FOR MORE ERROR CHECKS
JMP
190s
;60 TO 1908 IF ERROR
150%:
PC,DTASTS
JSR
;60 VERIFY RESULTS OF DATA TRANSFER
1608
BR
;60 TO 1608 IF NO ERROR

040106

011544
052622

NOP

011544

16CS:

040740

004737
101206

1908

JSR
BR

PC, SECERR

;GO CHECK FOR SECONDARY ERRORS

170%

011544

EMT
JSR
JMP

1708:

JVERIFY DATA

036462

JSR
.WORD
.WORD
BR
NOP
EMT

102212

000402
000240
104000

032737
001005
012737
000137

PC,a(SP)+

NOP

104000

004736
000137

JSR
JMP

sRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;GO TO 190% IF ERROR

EMT

010000

001442

010000
010736

001442

180%:

BIT

BNE
MOV
JMP

190%:

= OOV
~NO

b and wd

-0

00 0o

—

s
e
e

00 Oo 0o 0o
WS wino

—
d
e
e
e
e
—

~O OO O 0o 0o OO QO

LVl YAl ol LV IV IV LV [V IV 1V 1V}

~NO~W

[=lelolalalelelalelelololelelalaloleololola]

~N~N~

—

178
179

R R

'TEST 5

;G0 TO 1708 IF NO ERROR
+RETURN HERE IF ERROR
:ERROR # DEFINED BY SECERR SUBROUTINE

PC ,0(SP)+

190%

.60 BACK FOR MORE ERROR CHECKS
;G0 TO 1908 IF ERROR

PC,CMPBUF

:60 COMPARE WRITE, READ DATA BUFFERS

BUFONE
BUF TwO
180$

sSTARTING ADDRESS OF
;STARTING ADDRESS OF

WRITE BUFFER
READ BUFFER

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

;ERROR # DEFINED BY CMPBUf
FEMT16,RMOFO
190%
#FMT16,RMOFO

R R RN N

N T

N RN

R N RN R

TEgT

;SET

16 BIT MODE

YET

SUBROUTINE

16 BIT MODE AND

;TEST AGAIN.

R RN NN NN NN NI N RN

N RN RN AN

NRY

ZERO FILL TEST

[=]eleloelelele]

anch

tItttttl.'t.t"""'""""t"i"'l.titti"'.tltt.tttlt'ifi't"

TSTS

000062

el
e
o
el

177376
101206

P o ol o o
— el
St P
OO

000000
010000

—d

el
il cmdd
—

000000

001226
[=l=d=l=d=l=]
elelelelele)

—
ol

cad

)

—

001100
001276
001464
000005

[elelelelole)

OO0 VOOVOVOO
N =O V00NV

PONIA)
= it et b b

—

RMNAO RMOS5/3/72 FCINL TST 2
FORMAT ZEROS

SCOPE
NOP
MOV
Mov
MOV
MOV

#STACK,SP

$BASE RO
TSTQUE .R1
#5,8TESTN

:SCOPE CALL
sSTART OF TEST
SINITIALIZE STACK POINTER

:RO = UNJBUS ADDRESS
:(R1)

= DEVICE BEING TESTED

¢oSET TEST NUMBER IN APT MAIL BOX

:SETUP PARAMETERS FOR GENERATING DATA BUFFER

MOV

MoV
Mov
MOV
MOV
MOV

#0,RMDCO
#0,RMDAO
'FHT‘O RMOFQ

#BUFONE ,RMBAO

#WH,RMCS10

CYLINDER =0
:TRACK
= 0, SECTOR = 0
116 BIT FORMAT
2 + 256 WORDS (2°SS COMP)
+DATA BUFFER ADDRESS
{WRITE HEADER AND DATA

—

(Ol
]

RMNAOQ RMO5/3/2 FCINL TST 2
2ERO FILL TEST

203

011636

004737

034276

011646
011650

106401
104000

063120

011642

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

;VERIFY THAT SECTOR IS NOT BAD
JSR
PC,BADSCT

B8R

10§

JMP

1808

MOV
MOV
JSR

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

TYPE
EMT

000137

012400

012737
012737
004737

064620
000001
036224

210
211 011676
011702

004737
154130

033352

011704

000404

104000

EMT

204
205
206
207
ggg

011652
011656
011656
011664
011672
011676

000405

MACRO v03.01

001174
001176

108:

20$:

,SCTMSG

011712
g}g 011716

000137

012400

012737

000005

112722
112722
112722

000006
000034
000032

MOVB
MOVB
MOVB

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

112722

000200

MOVB

#200,(R2)+

215 011716
216 011724

012702

220 011746

112722

¢17 011730
218 011734
219 011740
SS} 011750

NOP

30%

000240

214

001551

004737

011762
011764
011766

000240
104000
000137

012400

226
227 011772
228 011776
§§3 012002

004737
004737

037024
037722

231
232 012002

004737

037110

012010
012012
8:5853

000240
104000
000137

011760 000404

ggg 011772

012006

000404

308 :

001410

JMP

MOV
MAY

MOVB

037360

012400

260 TO 108 IF NO ERROR

:TYPE BAD SECTOR MESSAGE
JERROR # DEFINED BY BADSCT SUBROUTINE

260 T0 1808 IF ERROR

;USE ALL ZEROS DATA PATTERN

;60 GENERATE DATA BUFFER

180%

SSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE JF VOLUME NOT VALID
SVERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF ''SKI1'' OR ''PIP'" IS SET
:VERIFY RECALIBRATION
:60 TO 308 IF NO ERROR

JRETURN HERE IF ERROR

;ERROR # DEFINED BY TSTPRP SUBROUTINE

160 T0 1808 IF ERROR

JSETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER

000000

223 011754

;CALL BAD SECTOR MODULE

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

(11706

011710

SEQ 0078

JSR

B8R

408 :

NOP
EMT
JMP

#SEEK'GO,RMCS10 ; CHANGE COMMAND TO SEEK
FPUTINX,R2

"WRITE REGISTER

INDEX

TABLE

WRMCST,(R2)+

PC,PUT

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

1808

;RETURN HERE ]F ERROR
JERROR # DEFINED BY PUT SUBROUTINE
260 T0 1808 IF ERROR

40%

260 TO 408 IF NO 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 :

;60 READ SEEK STATUS
JSR
PC,GET

005

NOP
EMT
JMP

60§

180%

;G0 READ REGISTER(S) WITH GET SUBROUTINE

:G0 TO 608 IF NO ERROR

JRETURN HERE ]F ERROR
JERROR ¥ DEFINED BY GET SUBROUTINE
260 10 1808 IF ERROR

235
236 012020

004737

012026
012030

000240
104000

012026

012032

01203¢

000405

004736

012040
012046
012056
012060
012064

012737
012737
012702
112722
112722

177776
000063
001554
000002
0000C-

529 012076

112722

000200

245 012070

248 012100
012104
012106
012110
012112
ggg 012116

112722

000000

004737
000604
000240
104000
000137

037360

004737

037722

004737
0004604
000240
106000
000137

037110

012400

257
258 012140

004737

040106

012146
012150
012152

000240
104000
004736

251
%g% 012116

2564 012122
012126
012130
012132
012134
5;2 012140

012144

01215¢

259 012160
260 012160
012164
012166
012170
012172

0121764

000405

012400

000137

012400

004737
0004CS
000240
104000
004736

052622

261 012200
262 012200

000137

012400

004737

040740

012206
012210
012212

000240
104000
004736

C12206

012214

263 012220

000405

000137

012400

70§

160 TO 70$ IF NO ERROR

JSR

PC,a(SP)+

;60 BACK FOR MORE ERROR (CHECKS

708 ;

001412
001410

JMP

180s

;SETUP AND EXECUTE WRITE HEADER
MOV
#-2,RMWCO
MOV
#WH!GO,RMCS10
MOV
#PUTINX+3,R2
MOVB
#RMWC,(R2)+
MOVB
#RMBA, (R2)
¢+

MOV

MOVB

80$:

JSR
B8R
NOP
EMT
JMP

*RETURN HERE IF ERROR
JERROR # DEFINED BY SEKSTS SUBROUTINE

:GO TO 180% IF ERROR

AND DATA COMMAND
;FORMAT PARTIAL SECTOR
WRITE HEADER AND DATA
:EXTEND REGISTER INDEX TABLE

WRMCST,(R2)+

#200, (R2)+
PC,PUT
80%
1808

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE
;G0 TO 80% IF NO ERROR
;RETURN HERE IF ERROR
JERROR ¥ DEFINED BY PUT SUBROUTINE
160 TO 1808 IF ERROR

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

90$:

JSR
BR
NOP
EMT
JMP

PC,GET
90%
180%

;60 READ REGISTER(S) WITH GET SUBROUTINE
;60 TO 90% If NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
260 TO 1808 IF ERROR

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

NOP
EMT
JSR

1008:

1108:

JMP

PC,a(SP)¢

1808

160 TO 1008 IF NO ERROR

JRETURN HERE ]F ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE
;60 BACK FOR MORE ERROR (MECKS

260 TO 1808 IF ERROR

JSR
BR
NOP
EMT
JSR

PC,DTASTS
1108

PC,a(SP)¢

;30 VERIFY RESULTS OF DATA TRANSFER
260 TO 1108 IF NO ERROR
*RETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE
;60 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 (HECKS

JMP

NOP
EMT
JSR

1208:

1008

JMP

180%

1208
1808

160 TO 180% If ERROR

260 TO 1208 IF NO ERROR
260 TO 180% IF ERROR

SEQ 0079

12-7

NOP
EMT

012400

239
260
261
262
263
266

11-APR-80 13:17:48 PAGE

;VERIFY THE RESULTS OF THE SEEK COMMAND
JS
PC SEKSTS
;60 VERIFY RESULTS OF SEEK OPERATION

045224

000137

gig 012040

MACRO v03.01

—

2 RMNAO RMOS5/3/2 FCTINL TST 2
15
2ERO FILL TEST

RMNAOQ RMO5/3/2 FCINL TST 2
ZERO FILL TEST

264
265
266 012220
267 012226
523 012234

012737
012737
012737

177376
000073
102212

270 0122642

004737

037360

012250
012252
01225¢
5;3 012260

000240
104000
000137

012400

273
%;g 012260

004737

037722

276 012264

0064737

037110

012272
012274
012276
g;g 012302

000240
104000
000137

012246

012270

279
280 012302
012306
012310
012312
012314

012316
281 012322
282 012322
012326
012330
012332
012334
012336
283 012342
2864 012342

012346

012350
012352
012354
012356
285 012362
286
287
288 012362
012366
012370
012372
012374
012376

533 012400
291

000404

004737
000405
000240
104000
004736

012400

040106

000137

012400

004737
000405
000240
104000
004736
000137

052622

004737

040740

000405

000240
104000
004736
000137

004737
101206
102212
000402
000240
104000

012400

036462

MACRO v03.01

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

SEQ 0080

001412
001410
001414

;READ HEADER AND DATA FOR SECTOR JUST WRITTEN
MOV
#-258. ,RMWCO
;2 + 256 WORDS (2'S COMP)
MOV
#RH' GO, nnc51o
JREAD HEADER £ DATA COMMAND
MOV
#BUF TWO,RMBAO
:CHANGE BUS ADDRESS
JSR

B8R

NOP
EMT
JMP

1308

PC,PUT

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

1808

JRETURN HERE ]F ERROR
:ERROR # DEFINED BY PUT SUBROUTINE
160 TO 1808 IF ERROR

1308

260 TO 1308 IF NO ERROR

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

NOP
EMT
JMP

1408 :

PC,GET

;60 READ REGISTER(S) WITH GET SUBROUTINE

1808

JRETURN HERE IF ERROPR
JERROR # DEFINFED BY GET SUBROUTINE
160 10 1808 IF ERROR

1408

160 TO 1408 IF NO ERROR

JVERIFY THE RESULTS OF READ OPERATION
JSR
PC,PRIERR
;G0 CHECK FOR PRIMARY ERRORS
BR
1508
260 TO 1508 IF NO ERROR
NOP
‘RETURN HERE IF ERROR
EMT
JERROR # DEFINED BY PRIERR SUBROUTINE
JSR
PC,a(SP)+
;60 BACK FOR MORE ERROR CHMECKS

1508:

1608:

JMP

1808

:GO TO 1808 IF ERROR

JSR
B8R
NOP
EMT
JSR
JMP

PC,DTASTS
160%
PC,a(SP)+
180%

;60 VERIFY RESULTS OF DATA TRANSFER
;60 TO 160% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
:60 TO 1808 IF ERROR

JSR

PC,SECERR

;60 CHECK FOR SECONDARY ERRORS

PL,a(SP)¢
1808

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

NOP
EMT
JSR
JMP

1708:

VERIFY DATA
JSR
.MORD
.WORD
BR
NOP
EMT

1768

PC,CMPBUF
BUFONE
BUF TWO
1808

1808 :
A

'IESI

A R

FORMAT

A A

:G0 TO 1708 IF NO ERROR

;60 COMPARE WRITE, READ DATA BUFFERS
:STARTING ADDRESS OF WRITE BUFFER
;STARTING ADDRESS OF READ BUFFER
:60 TO 1808 IF NO ERROR
:RETURN HERE If ERROR
:ERROR # DEF JNED BY CMPBUF SUBROUTINE

R A

CHECK

ZEROS

R R

A R R RS

]

RMO5/372 FCTNL TST 2
FORMAT

CHECX

ZEROS

MACRO v03.01

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

SEQ 0081

A L Lt A L W L L A AN AN
POA) b ol e e e e o =l il

—=OOVONO
NS NN
O

012400
012400
012402
012404
012610
0126414
012620

1876:

000004
000240
012706
013700
013701
012737

001100
001276
001464
000006

001226

012426
012434
0126442
012450
0126456
0126464

012737
012737
012737
012737
012737
012737

000000
000000
010000
177376
101206
000062

001444
001416
001442
001412
001414
001410

012472
012476
012500
012504
3}32?3

004737
000405
104401
104000
000137

034276

063120

012512
012520
012526
012532

012737
012737
004737

064620
000001
036224

012532
012536

004737
154130

033352

000404
000240
104000
000137

013170

012552
012560
012564
012570
012576

012737
012702
112722
112722
112722

000005
001551
000006
000034
000032

012606

112722

000200

012600

112722

012610

00464737

012616

000240

012614

000404

000000

037360

SCOPE
NOP
MOV
MoV
MOv
MOV

Nyt

#STACK,SP
$BASE RO
TSTQUE ,RY
#6,8TESTN

001174
001176
208:
JPREPARE

308:
001410

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

sSETUP PARAMETERS FO:DgSNERATING DATA BUFFER
MOV
,
;CYLINDER = 0
MOV
#0,RMDAO
JTRACK = 0, SECTOR = 0
MOV
#FMT16,RMOFO
:16 BIT FORMAT
MOV
#-258..RMWCO
:2 + 256 WORDS (2'S COMP)
MOV
#BUFONE , YMBAO
;DATA BUFFER ADDRESS
MOV
#WH,RMCST1O
JWRITE HEADER AND DATA
JVERIFY THAT SECTOR 1S NOT BAD
JSR
PC,BADSCT
BR
108
TYPE
,SCTMSG
EMT
o8
JMP
2608

013170

0125640
012542
012544
012546
012552

12-9

MOV
MOV
JSR

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

DEVICE

JSR
.WORD

BR
NOP
EMT
JMP

Move
MOVB
JSR

NOP

;USE ALL ZEROS DATA PATTERN
;60 GENERAIE DATA BUFFER

FOR DATA TRANSFER

PC,ISTPRP
154130

b0} 9
2608

JSETUP PARAMETERS AND EXECUTE

MOV
MOV
MOvVB
MOVB
MOVB

sCALL BAD SECTOR MODULE
260 TO 108 IF NO ERROR
JTYPE BAD SECTOR MESSAGE
JERROR # DEFINED BY BADSCT SUBROUTINE
260 T0 2608 IF ERROR

JPREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:
*SELECT DEVICE & VERIFY DEVICE AVAILABLE
*CLEAR CONTROLLER © SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
JPACK ACKNOWLEDGE IF VOLUME NOT VALID
JVERIFY PACK ACKNOWLEDGE

JRECALIBRATE IF ''SK1' OR ''PIP'" 1S SET
JVERIFY RECALIBRATION

;60 TO 30% IF NO ERROR
*RETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBRCUTINE
160 TO 2608 IF ERROR
SEEK

TO GET

DRIVE

ON CYLINDER

#SEEK'GO,RMCS10 ; CHANGE COMMAND TO SEEK
#PUTINX,R2
WRITE REGISTER INDEX TABLE
FRMDA, (R2)+
#RMDC.(R2)+
FRMOF . (R2)+

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

40$

;60 WRITE REGISTER(S) WITh PUT

260 T0 40% IF NO ERROR

SRETURN HERE

ERROR

SUBROUTINE

RMNAO RMJS5/3/2 FCINL TST 2
FORMAT

012620
012622
ggg 012626

CHECK

ZEROS

104000
000137

013170

004737
004737

037024
037722

329
330 012636
012642
0126464
012646
012650
gg; 012654

004737
000604
000240
104000
000137

037110

333
334 012654
012660
012662
012664
012666
012670
ggg 012676

004737
000405
000240
104000
004736
000137

045224

337
338 012674
339 012702
340 012706
361 012712
3,2 012716
ng 012722

012737
012702
112722
112722
112722
112722

000063
001554
000002
000004
000000
000200

345 012726

004737

037360

012734
012736
012740

000240
104C00
000137

013170

348
ggg 012744

004737

037722

351 012750
012756
012756
012760
012762

004737
000404
000240
104000
000137

037110

354
355 012766

004737

040106

012776
012776
013000

000240
104000
0046736

324
325 012626
326 012632

ggg 012636

012732

%2? 012764

ggg 012766

012772

000404

000405

MACRO v03.01

408 :

EMT
JMP

2608

12-10

ERROR # DEFINED BY PUT SUBROUTINE
160 TO 260% IF ERROR

JSETUP FOR READING STATUS AND THEN WAIT FOR SEEKXK TO COMPLETE
JSR
PC,GETSTS
JSETUP FOR STATUS
JSR
PC,TIMOUY
;WAJT FOR SEEK TO COMPLETE

508 :

;G0 READ SEEK STATUS
JSR
PC,GEY
BR
60%
NOP
EMT
JMP
2608
608 :

013170

;60 READ REGISTER(S) WITH GET SUBROUTINE
;60 TO 60% If NO ERROR
JRETURN HERE IFf ERROR
JERROR # DEFINED BY GET SUBROUTINE
:GO TO 260% IF ERROR

JVERIFY THE RESULYS OF THE SEEX COMMAND
JSR
PC,SEKSTS
;60 VERIFY RESULTS OF SEEK OPERATION
BR
70$
260 TG 708 1F NO ERROR
NOP
SRETURN MERE 1F ERROR
EMT
ERROR # DEFINED BY SEKSTS SUBROUTINE
JSR
PC,a(SP)e
;60 BACKX FOR MORE ERROR (MECKS
JMP
2608
:6G0 T0 260% IF ERROR
708 :

013170

11-APR-80 13:17:48 PAGE

001410

JSETUP AND EXECUTE WRITE HEADER AND DATA (OMMAND
MOV
#un'GO,RNCST10
WRITE MEADER AND DATA
MOV
#PUTINX+3,R2
JEXTEND REGISTER INDEX TABLE
MOVB
SRMWC, (R2)+
MOVB
#RMBA.(R2)+¢
MOVB
#RMCST, (R2)+
MOVB
#200,(R2)+
JSR

B8R
808 :

NOP
EMT
JMP

PC,PUT

;60 WRITE REGISTER(S) WlTW PUT SUBROQUTINE

2608

:RETURN HMERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
260 TO 2608 IF ERROR

80$

:G0 TO 80% IF NO ERROR

JWAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS
JSR
PC,TIMOUT
;WAJT FOR COMMAND 1O (OMPLETE

908 :

JSR
BR
NOP
EMT
JMP

PC,GET
90%
2608

;60 READ REGISTER(S) WITH GET SUBROQUTINE
160 70 90% IF NO ERROR
SRETURN HERE IF cRROR
JERROR # DEFINED BY GET SUBROUTINE
160 TO 260% IF ERROR

SVERJFY RESULTS OF WRITE COMMAND
JSR
PC ,PRIERR
;60 CHECK FOR PRIMARY ERRORS

NOP
gEmt
JSR

1008

PC.a(SP) ¢

$60 TO 1008 IF NO ERROR

CRETURN HERE If ERROR
SERROR # DEFINED BY PRIERR SUBROUTINt
;G0 BACK FOR MORE ERROR (WECKS

SEQ N0B2

RMOS/3/2 FCTNL TST 2
fORMAT (HECK ZEROS

IV IV [V V)
VI

[elelololalalale)

1
1
1
1
1
1
1
1
1
1
1
1

(vl

elelelalelalelelelelalslals]

013002
013006
1 3006
1
12

000137

013170

004737
000405
000240

052622

004736
000137

004737
000405
000240

104000
004736

013054
013060
013062
013064
013066
013072

004737

037360

013170

004737

037722

004737
000404
000240

037110

000137

013170

004737
000405
000240

040106

OO OO \NWVNAL & 8 S WO
=
OrNOS
SOOI NOST
OO
NO S

D
s
D
i
il
il e
D
e
s
i
il e
i
i
e
—

i
i
oD el
il
el
D
D
il
il
i
el
D el
il
il
e

1208:

0014610

104000

004736

JSR
BR

JMP

052622

013170
040740

;G0 TO 2608 IF ERROR
;G0 VERIFY RESULTS OF

DATA

1108

:GO T0 1108 IF NO ERROR

PC,a(SP)+

160 BACK

‘RETURN HERE

2608

PC,SECERR

1208

260%

ERROR

FOR MORE

ERROR

160 T0 2608 IF ERROR

;60 CHECK

CHECKS

FOR SECONDARY ERRORS

:6G0 TO 1208 IF NO ERROR

;RETURN HERE

PC,a(SP)+

TRANSFER

CERROR # DEFINED BY DTASTS SUBROUTINE

ERROR

;ERROR # DEFINED BY SECERR SUBROUTINE

;00 BACK

FOR MORE

ERROR

;GO TO 260% IF ERROR

MOv

#WCH!GO,RMCS10

;WRITE

JSR
BR

PC,PUT

;GO WRITE

EMT

130%:
JWAIT

:
1408

JMP

FOR WR]ITE

1308

CHECK

CHECKS

;G0 TO 1308 IF
;RETURN HERE

ERROR

TO COMPLETE

AND GET

STATUS

PC,TIMOUT

SWAIT

JSR
BR

PC,GET
1408

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

EMT
JMP

2608

FOR READ

EMT
JSR

160%:

PC,PRIERR

1508

COMPLETE

PC,a(SP)
e

;60 CHECK

FOR PRIMARY

;RETURN HERE

ERROR

;ERROR # DEFINED BY PRIERR SUBROUTINE

FOR MORE

ERROR

JSR
B8R
NOP
EMT
JSR
JMP

PC,DTASTS

:60 VERIFY

2608

160 TO 260% IF ERROR

JSR
BR
NOP
EMT
JSR

PC,SECERR

;60 CHECK

PC,a(SP)+

170¢

PC,a8(SP)¢

ERRORS

;60 TO 1508 IF NO ERROR

160 TO 2608 IF ERROR

160%

SUBROUTINE

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

2608

JMP

SUBROUT]NE

SUBROUTINE

JSR

JSR
BR
NOP

150%:

WITH PUT

NO ERROR

;ERROR # DEFINED BY PUT
;GO TO 260% IF ERROR

260%
(HECK

COMMAND

JVERIFY THE RESULTS OF WRITE CHECK OPERATION

104000

004737
000403
000240

JMP

NOP

013170

12-11

;WRITE CHECK HEADER AND DATA FOR SECTOR JUST WRITTEN

104000

004736
000137

PC,DTASTS

NOP

104000
000137

004737
000405
000240

JSR
BR

JSP

000240

004736
000137

2608

NOP
EMT

000053

—

110%:

040740

012737

104000

JMP

EMT
JSR

013170

013046

(VL LV LV LV AV LV LV TV TV TV VLV IV IV LV TV LV VLV )

100%:

NOP

013170

000404

11-APR-80 13:17:48 PAGE

Sea 0083

106000

000137

alelelelelalelelolalelelolalelololala)

MACRO v03.01

RESULTS OF

CHECKS

DATA

;60 TO 160% IF NO ERROR

TRANSFER

sRETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
160 BACK

FOR MORE

FOR

ERROR CHECKS

SECONDARY ERRORS

;GO TO 1708 IF NO ERROR
sRETURN HERE

ERROR

;ERROR # DEFINED BY SECERR SUBROUITINE
.60 BACK FOR MORE ERROR (MECKS

(2 RMNAO RMOS/3/2 FCTINL TST

FORMAT

(HECK

ZEROS

MACRO v03.01

11-APR-80 13:17:48 PAGE

12-12

SEQ 0084

380 013170
381
gg% 013170

1708:

260%:

38‘,

,'.".'""'"'l"""""""""""".'..."'I.'."'."""".'.

SeTEST

FORMAT

CHECK ZEROS W/ WCE ERROR

;.'""."'"..."'""""""'.'""'."."0'..."""""""'.

013170
013170
013172
013176
013200
013206
85 013210
386
387
388
389
390
391
gg%
394

395
396
397
398
288

013216
013226
013232
Q13240
013246
013256
013262
013266
013270
013274
013276
013302
013302
013310
013316
013322

401

402 013322
013326

000004
000240
012706
013700
013701
012737
012737
012737
012737
012737
012737
012737

i$17:
001100
001276
001464
000007

000000
000000
010000
177376
101206
000062

004737
000405
104401
104000
000137

014130

012737
012737
004737

064620
000001
036224

004737
154130

033352

001226
001444
001416
001442
001412
001414
001410

SCOPE
NOP
MOV
MOV
MOV
MOV

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

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

;SETUP PARAMETERS FOR GENERATING DATA BUFFER
MOV
#0,RMDCO
sCYLINDER = 0
MOV
#0,RMDAD
:TRACK = 0, SECTOR = 0
MOV
NEMT16,RMOFO
;16 BIT FORMAT
MOV
#-258. ,RMWCO
;2 ¢ 256 WORDS (2'S (OMP)
MOV
#BUFONE ,RMBAO
:DATA BUFFER ADDRESS
MOV
#uH,RMCS10
:WRITE HEADER AND DA1A
;VERIFY THAT SECTOR IS NOT BAD
JSR
PC,BADSCT
BR
108
TYPE
,SCIMSG
EMT
JMP
2608

034276
063120

001174
001176

108:

20%:
:PREPARE

MOV
MOV
JSR
DEVICE

JSR
.WORD

#IEROS,$TMPO
#,$THP1
PC, GENBUF
FOR DATA

PC,TSTPRP
154130

;CALL BAD SECTOR MODULE
GO _T0 108 IF NO ERROR
:TYPE BAD SECTOR MESSAGE
:ERROR # DEFINED BY BADSCT SUBROUTINE
160 TO 2608 IF ERROR
;USE ALL ONES DATA PATTERN
;60 GENERATE DATA BUFFER

TRANSFER

:PREPARE DEVICE FOR TEST
:TASK DESCRIPTOR AS FOLLOWS:

:SELECT DEVICE & VERIFY DEVICE AVAILABLE
:CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
:PACK_ ACKNOWLEDGE

VOLUME

SVERIFY PACK ACKNOWLEDGE
:RECALIBRATE

013330
013332
013334
013336
282 013342

000404
000240
104000
000137

014130

405
406 013362
«07 013350

012737
012702

000005
001551

6«09 013360
10 0133664

112722
112722

000034
000032

<08 013356

112722

000006

30%:
001410

BR
NOP
EMT
JMP

308
2608

MOovB

#RMDA, (R2) ¢

#RMDC, (R2) ¢
#RMOF
, (R2) ¢

VALID

"'SKITM OR "'PIP'* 1S st1

VERIFY _RECALIBRATION
160 T0 308 IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY TSTPRP SUBROUTINE
:60 TO 2608 If ERROR

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

MOVB
MovB

NOT

RMNAD RMQS/3/2 FCY NL TST 2
MACRO v03.01
FORMAT CHECK ZEROS W/ WCE ERROR

411 013370

:}g 01337¢

112722

000000

414 013400

004737

037360

013406
0136410
013412
:}2 013416

000240
104000
000137

014130

004737

037024

013604

000404

004737

037722

L2
423 013426

004737

037110

:g? 013426
013432
013434
013436
013440

‘§§ 013644

000406
000240
104000
000137

MOVEB
JSR

004737

014130

0136464
013472
013476
013502
013506

012737
012702
112722
112722
112722

000063
001554
000002
000004
000000

438 013516

004737

037360

453 013464

608 :

zgg 013512

013522
0135264
013526
013530

438 013534

112722

000404
000240
104000
000137

000200

014130

441

LL% 01353&

004737

037722

44k 013540

004737

037510

(YA

013544
013546
013550
013552

465 013556

446

0004604
000240
104000
000137

014130

2608

SRETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
160 TO 2608 IF ERROR

260 TO 408 IF NO ERROR

BR
NOP
EMT
JMP

;GO READ REGISTER(S) WITH GET

60%

SUBROUTINE

:G0 TO 608 IF NO ERROR
JRETURN HERE !F ERROPR
JERROR # DEFINFD BY GET SUBROUTINE
160 10 2608 IF ERROR

2608

JVERIFY THE RESULTS OF THME SEEX COMMAND
JSR
PC,SEKSTS
;60 VERIFY RESULTS OF SEEX JPERATION
BR
70$
160 TO 708 IF NO ERROR
NOP
JRETURN HERE IF ERROR

708 :

630
431
632
433
434
435

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

;G0 READ SEEK STATUS
JSR
PC,GET

045226

013454
013456
0136460

NOP
EMT
JMP

PL,PUT

40§

508 :

014130

000405
000240
104000
004736
000137

WRMCS1,(R2)+

sSETUP FOR READING STATUS AND THEN WAIT FOR SEEK TO COMPLETE
JSR
PC,GETSTS
SSETUP FOR STATUS
JSR
PC,TIMOUT
JWALT FOR SEEK TO COMPLETE

426
427 013644
013450
013452

12-12

#200, (R2)+

408 :

SEQ 0085

MOVB

000200

L7
418 013416
<19 013422

11-APR=B0 13:17:48 PAGE

0014610

EMT
JSR
JMP

PC,a(SP)e
2608

;ERROR # DEFINED BY SEXSTS SUBROUTINE
.60 BACK FOR MORE ERROR (HECKS
160 T0 2608 IF ERROR

JSETUP AND EXECUTE WRITE MEADER AND DATA COMMAND
MOV
#un'GO,RM(CST10
JWRITE HEADER AND DATA
MOV
NPUTINX+3,R?
JEXTEND REGISTER INDEX TABLE
MOVB
WRMWC, (R2)+
MOVRE
#RMBA.(R2)+
MOVB
WRMCST, (R2)+

808 :
JWAIT

908:

MOVB

#200,(R2)+

JSR

PC,PUT

BR
NOP
EMT
JMP
FOR WRITE

;G0 WRITE REGISTER(S)

80$

2608
COMMAND

TO COMPLETE

PC,TIMQUY

WALT

JSR

PC,GET

;60 READ REGISTER(S)

90%

2608

SUBROUTINE

SURROUTINE

AND READ STATUS

JSR

B8R
NOP
EMT
JMP

WITH PUT

:G0 10 80$ IF NO ERROR
‘RETURN HERE IF ERROR
JERROR # DEFINED BY PUT
160 TO 2608 IF ERROR

FOR COMMAND TO COMPLETE
WITH GET

SUBROUTINE

;60 10 90% IF NO ERROR
*RETURN HERE [F ERROR
*ERROR # DEFINED BY GET SUBROUTINE
160 10 2608 IF ERROR

449
450

651

L At L Al AN NN M LM LN U N
oocoooo [V AV IV TV W IV IV IV
-0 ~ NNNOOOWVN
OO SN e gl e JJ ST To P oy N 1o

7
448

616

U A

RMNAQ RMOS5/3/2 FCINL TST 2
FORMAT (HECK ZEROS W/

004737
000405
000240

MACRO v03.01

WCE

ERROR

11-APR-B0

004737
000405
000240

;VERIFY RESULTS OF WRITE COMMAND

040106

004737
000405
000240

0146130

100$:

052622

013654
013656
013660
013662
462 013666
463

014130

110%:

040740

004736
000137

014130

005137

102210

012737

000053

004737

037360

014130

465

004737

037722

467

004737
000404
000240
106000
000137

0371190

004737
000405
000240

040106

466

468
469

470
“N

PC,a(SP)+

JSR

PC,DTASTS

JMP

120%:

NOP
EMT
JSR

PC,a(SP)
e

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

JSR

PC,SECERR

;60 CHECK FOR SECONDARY ERRORS

060000

;RETURN HERE

2608

JMP

EMT
JSR
JMP

ERROR

;60 10 120% IF NO ERROR
;RETURN HERE

ERROR

;ERROR # DEFINED BY SECERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;G0 TO 260% If ERROR

PC,a(SP)

260%

;COMPLEMENT LAST DATA WORD

JSETUP AND WRITE CHECK HEADER AND DATA (OMMAND

180%:
;WAIT

MOV

#WCH!GO,RMCS10

;WRITE

JSR
BR

PC,PUT
180%

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE
;G0 TO 180% IF NO ERROR
;RETURN HERE I[F ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

JMP
FOR WRITE
JSR

190$

EMT

:
1908
:CHECK

2008

NOP
EMT
JSR

200%:
sMAKE

SURE

8IT

2608

THE

WRITE

ERROR

;60 CHECK FOR PRIMARY ERRORS

;60 TO 200% IF NO ERROR
;RETURN HERE

PC,a(sP)+

JMP

;60 TO 1908 IF NO ERROR

;ERROR # DEFINED BY GET SUBROUTME
.60 TO 260% IF ERROR

FOR PRIMARY ERRORS
PC,PRIERR
JSR

;60 READ REGISTER(S) WITH GET SUBROUTINE
sRETURN HERE

2608

JMP

COMMAND

(HECK COMMAND TO COMPLETE AND READ STATUS
PC,TIMOUT
;WAIT FOR COMMMAND TO COMPLETE

PC,GET

JSR

CHECK

;60 10 260% IF ERROR

260%

001344

.60 TO 260% IF ERROR

1208

EMT

014130

032737

.60 TO 260% If ERROR

;G0 VERIFY RESULTS OF DATA TRANSFER
;60 TO 110% IF NO ERROR

NOP

014130

:60 BACK FOR MORE ERROR (HECKS

1108

NOP

004736
000137

SERROR # DEFINED BY PRIERR SUBROUTINE

JALTER DATA BUFFER
(oM
BUF TWO-2
0014610

;G0 CHECK FOR PRIMARY ERRORS

.60 TO 100% IF NO ERROR
;RETURN HERE IF ERROR

2608

104000

672
673
674
675

NOP
EMT
JSR

1008

NOP

000404
000240
104000
000137

464

PC,PRIERR

104000

453
454
455
456
457
458
459 013642
460
661 013650

J SR

104000

004736
000137

12-14

SEQ 0086

104000

004736
000137

13:17:48 PAGE

CHECK

PuCE ,RMCS2I

ERROR

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

;60 TO 260% IF ERROR

ERROR WAS DETECTED

;1S WRITE CHECK ERROR SE1??

~N~

RMNAO RMO5/3/2 FCINL TST 2
MACRO v03.01
FORMAT CHMECK ZEROS W/ WCE ERROR

2;? 013736

001023

478 0137640

004737

0137646
013750
013752

000240
104000
0064736

000137

014130

480 013760
481 013766

013737
052737

001344
040000

483 014002
484 014004
232 014006

104337
000451

013746

75 013756¢

482 013776

000405

013737

11-APR-80

001344

JSR

205S:

001142

PC,DTASTS

206s

JMP

2608

MOV
BIS

RMCS21,8GDDAT
#wCt ,SGDDAT

MOV

2108 :

2108

NOP
EMT
JSR
001140
001140

12-15
SEQ 0087

BNE
052622

13:17:48 PAGE

EMT
BR

PC,a(SP)+

RMCSS1,$BDDAT
337
2608

SYES!!
:60 VERIFY RESULTS OF

DATA TRANSFER

:60 TO 205% IF NO ERROR

*RETURN HERE IF ERROR
SERROR # DEFINED BY DTASTS SUBROUTINE
:60 BACK FOR MORE ERROR CMECKS

160 TO 2608 IF ERROR

;LOAD EXPECTED STATUS

;LOAD RECEIVED STATUS

L87
488 016006
489 014016
23? 016022

012737
013737
162737

102210
001340
000002

001136
001136
001136

JVERIFY THE ADDRESS OF THE WRITE CHECK ERROR
MOV
#BUF TWO-2,$GDADR;
LOAD EXPECTED ADDRESS
MOV
RMBAI,S$BDADR
L OAD RECEIVED ADDRESS
SuB
#2,88DADR
;DECREMENT RECFIVED ADDRESS

492
493 014030
2gg 014036

112737
112737

000022
000200

001522
001523

;GET WCE DATA AND VERIFY IT IS OK
MOVB
#RMDB,GE TINX
;SETUP FOR READING RM(B
MOVB
#200,GETINX+1

496 016044

004737

037110

497

498
499

500
501
502
503
50&
505
506
ggg

014050
014052
014054
014056
014062
014070
014076
014102
014110
014112
014114
014116
01412¢
014126
014130

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

014130
001356

102210
001140

JSR

001142

001140

001134

001136

001140

001142

230%:

220%:
2608 :

509

BR
NOP
EMT
JMP
MOV
MOV
COM
(MP
BEU
EMT
BR
CMP
BEQ
EMT

PC,GET

230%

;60 READ REGISTER(S)

WITH GET

SUBROUTINE

;60 TO 230% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
2608
160 TO 2608 IF ERROR
RMDBI,$BODAT
:LOAD RECEIVED DATA WORD
BUF TWO-2,$GDDAT :LOAD EXPECTED DATA WORD
$GDDAT
$GDADR,$BOADR
;1S ADDRESS 0K??
2208
TYES!!
340
2608
$GODAT,$BDDAT
;1S DATA WORD 0k??
260$
SYES!!
341

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

;*TEST

FORMAT ONES

""'....."'.l'.'t'."""'t.""'.""'ll'l".'t""'.'t'tt"tll'

014130
014130
016132
014134
014140
014146
“10 014150
511
$12 014156

513 014164
516 0146172

1$110:

000004
000240
012706
013700
013701
012737

001100
001276
001464
000010

001226

012737
012737
012737

000000
000000
010000

001444
001416
001442

SCOPE
NOP
MoV
MOV
MOV
MOV

#STACK,SP
$BASE , RO
TSTQUE R
#10,$TESTN

: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
MOv

#0,RMDAO
#FEMTY16,RMOFO

:TRACK = 0, SECIOR - 0
;16 BIT FORMAT

016262
014266

004737
000405

034276

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

7
12-16

SEQ 0088
177376
101206
000062

MACRO v03.01

104401
104000

001
001
001

Lol
ol ol

73
73

TST

1
1
1

[P
4 V)

=lole]

TNL
NN

[o AV IV P oW JVITV TV ] V1,V
OO
SOOI

olol
ol o

[, O], 1,01, V1,81 .V1 V1 VT V1.V

il
D ek i
e
el
)

[elololelololeolelole]

- O

Lol alV IV IV LV IV
ORI

C14200
016206
0162146

)
sl
el

RM0S5/3/2 f
FORMAT O NE

MOV

MOV
MOV

;VERIFY THAT
JSR

063120

000137

016750

012737
012737
004737

064556
000001
036224

004737
154130

033352

TYPE

001174
00176

208

#-258. ,RMWCO

#BUFONE ,RMBAO
MM, RMCS10

SECTOR 1S NOT BAD
PC,BADSCT

10$

,SCTMSG

EMT
JMP

180%

MOV
MOV

NONES,$TMPO
#1,8TMP1

JSR

PC . GENBUF

;2 + 256 WORDS

;CALL BAD SECTOR MODULE

:6GO TO 108 IF NO ERROR

:TYPE

JWORD

PC,TSTPRP

154130

BAD

SECTOR MESSAGE

:ERROR # DEFINED BY BADSCT
:G0 TO 180% IF ERROR

;USE

SUBROUTINE

ALL ONES DATA PATTERN

:60 GENERATE

JPREPARE DEVICE FOR DATA TRANSFER
JSR

(2'S COMP)

:DATA BUFFER ADDRESS
IWRITE MEADER AND DATA

;PREPARE

DATA BUFFER

DEVICE

FOR

TEST

STASK DESCRIPTOR AS FOLLOWS:

SSELECT DEVICE & VERIFY DEVICE AVAILABLE
:CLEAR CONTROLLER € SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION

:PACK ACKNOWLEDGE

VOLUME

000404
000240

000137

014750

EMT
JMP

oo
N

SVERIFY PACK ACKNOWLEDGE

000005
001551
000006
000034
000032
000000

560
561
962
543
564
565
966
567
568

—d b

OO ~NO NS

. I

bt b OO

0= O O 0o

WAAA NNV
AW N
W L AN L N U
N NN

104000

NOP

001410

004737
004737

37024
37722

014366
014372
014374

004737
000404
000240

037110

30%

160 T0 308 IF

1808

JERROR # DEFINED BY TSTPRP SUBROUTINE
:6G0 TO 1808 IF ERROR

JRETURN HERE

NO ERROR

#SEEK'GO,RMCS10 : CHANGE COMMAND
#PUTINX,R2
‘WRITE REGISTER
#RMDA, (R2)+

MOVB
MOVB
MOVB

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

JSR

NOP

014356
014362
014366

014356

TRECALIBRATE IF ''SKI" OR "PIP'* IS SET
“VERIFY RECALIBRATION

MOV
MOV
MOVB

MOvVB

037360

014750

VALID

ERROR

:SETUP PARAMETERS AND EXECUTE SEEX TO GET DRIVE ON CYLINDER

000200

104000
000137

NOT

40%:

EMT
JMP

TO SEEK
INDEX TABLE

#RMDC,(R2)+

PC,PUT

40%

1808

:60 WRITE REGISTER(S)

160 10 408 IF NO ERROR

*RETURN MERE

ERROR

WITH PUT

CERROR # DEFINED BY PUT
260 T0 180% IF ERROR

SUBROUTINE

:SETUP FOR READING STATUS AND THEN WAIT FOR SEEXK 1O COMPLETE
JSR

50%:

JSR

PC.GETSTS

PC.T1IMOUT

;G0 READ SEEK STATUS
JSR

NOP

PC,GET

60§

;SETUP FOR STATUS

‘WAIT FOR SEEK TO COMPLETE
;60 READ REGISTER(S)

WITH GET

160 TO 608 IF NO ERROR
‘RETURN HERE

ERROR

SUBROUTINE

RMOS/3/2 FCTINL TST 2
FORMAT

el
mtd
o
ol
e
—

Lk af ok 2k ok X N
AP AR W W
W
POIN)
t et ct a O
s, 00
NO S

[e]elolelelels]

014376
0146400
0144606

ONES

104000

000137

014750

004737
000405
000240

065224

MACRO v03.01

60%:

JSR

EMT
JSR

014750

000137

014750

004737

037722

004737
000404
000240

037110

000137

014750

004737
000405
000240
104000
004736
000137

042106

004737
000405
000240

052622

965

70%:

001410

(=)

(=]

I
AR
R

purd
)
-l
el
—l

——b

Il
ra
N

004737
000405
000240
104000

I
R
L
L2k 2k 2R

AR AR

D
el
il
el
il el

) S

014750

JMP

MOv
MOv

MOvB
MOVB
MovBs
MOvVB

80%:
;WAIT

JSR
BR
NOP
EMT
JMP
FOR WRITE

JSR

JSR
BR
NOP

90%:

EMT
JMP

040740

THE
PC,SEKSTS

SEEK

70$

PC,a(SP)+

180%

MWH!GO,RMCS10

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

COMMAND
;60 VERIFY RESULTS OF

:6G0 TO 708 IF NO ERROR

SRETURN HERE

SUBROUTINE

SEEK OPERATION

ERROR

“ERROR # DEFINED BY SEKSTS SUBROUTINE
160 BACK FOR MORE ERROR CHECKS

160 TO 180% IF ERROR

100$:

110$:

PC,PUT

80%

180%

PC,GET

90$

180%

JSR
BR

PC,OTASTS

NOP

EMT

;60 WRITE

260 TO 80% IF NO ERROR

:RETURN HERE

WITH PUT

SUBROUTINE

ERROR

SERROR # DEFINED BY PUT SUBROUTINE
260 10 1808 IF

ERROR

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

PC,PRIERR

JSR
BR

HEADER AND DATA

EXTEND REGISTER INDEX TABLE

#200, (R2)+

JSR
BR
NOP
EMT
JSR
JMP

EMT
JSR
JMP

;WRITE

#RMCST, (R2)+

JVERIFY RESULTS OF WRITE COMMAND

NOP

014750

;ERROR # DEFINED BY GET
160 TO 1808 IF ERROR

;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND

104000

004736
000137

—t e

Ao
alV
)

104000

)

-l wod

(aloleloleloelelelelelalololalalolele)

—=O
W

NAVAAWVA
SNNN~N

574
575

P aZ aX2kl
2 o~

568
569

OOO0OO o

567 014474

12-17

180%

JVERIFY THE RESULTS OF

037360

564 016474

EMT
JMP

NOP

000063
001556
000002
000C )&
000000
000200

13:17:48 PAGE

SEQ 0089

104000

004736
000137

11-APR-B0

;60 READ REGISTER(S)

WITH GET

260 10 908 IF

NO ERROR

160 TO 1808 IF

ERROR

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

:60

CHECK

FOR PRIMARY

ERRORS

1008

160 TO 1008 IF NO ERROR

PC,a(SP)+

160 BACK FOR MORE ERROR CHECKS

180%

1108

PC,a(SP)+

1808

PC,SECERR

1208

SUBROUTINE

‘RETURN HERE IF ERROR
CERROR # DEFINED BY PRIERR SUBROUTINE
260 TO 1808 IF

ERROR

;60 VERIFY RESULTS OF

DATA TRANSFER

160 TO 1108 IF NO ERROR

*RETURN HERE IF ERROR
“ERROR # DEFINED BY DTASTS SUBROUTiNE
160 BACK

FOR MORE

ERROR

160 TO 180% IF ERROR

CHECKS

:60 CHECK FOR SECONDARY ERRORS

160 TO 1208 IF NO £RROR

;RETURN HERE IF ERROR
;ERROR ¥ DEFINED BY SECERR SUBROUTINE

RMOS5/3/2 FCTINL 1ST 2
ONES

014570
014572
014576

11-APR-80 13:17:48 PAGE

JSR

014750

—

102212

1208:

P i

000073

JMP

JSR

NOP

014750

004737

037722

014634
014640
014642
014644
014646
014652

004737
000404
000240

037110

000137

014750

4652
4656
4660

004737
000405
000240
104000
004736
000137

040106

—
)
auld
el mnd

el o

597
598

b wnd cod

&»H

b e

595
596

l) il

)

[elelelelelelelelolalelolalelelolalelelate]

014630

130%:
;WAIT

004737
000405
000240
104000
004736
000137

052622

004737
000405
000240

040740

:
1408

014750

004737

036462

104000

;60 BACK FOR MORE ERROR CHE(KS
;60 TO 180% IF ERROR

180$

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;G0 _TO 1308 IF NO ERROR

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

JMP

180%

;G0 READ REGISTER(S) WITH GET SUBROUTINE

;G0 TO 1408 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;G0 TO 180% IF ERROR

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

150%:

1508

EMT
JSR
JMP

PC.a(SP)+
180%

;60 BACK FOR MORE ERROR CHECKS

JSR

PC,OTASTS

:60 VERIFY RESULTS OF

160%:

PC,3(SP)+
180$

JSR

PC,SECERR

EMT
JSR

170%:

JMP

;VERIFY DATA

JSR
.WORD
.MORD

NOP

180%:

160%

JSR
JMP

000402
000240
603
604

1308

PC,GET
140%

NOP

004736
000137

PC,PUT

JSR
BR

NGP
EMT

014750

180$

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

NOP
EMT

104000

101206
102212

EMT
JMP

NOP

014750

PC,a(SP)+

;READ HEADER AND DATA FOR SECTOR JUST WRITTEN
MOV
#RH'GO,RMCS10
;READ HEADER & DATA COMMAND
MOV
#BUF TWO, RMBAQ
s CHANGE BUS ADDRESS

037360

106000

12-18

SEQ 0090

FORMAT

MACRO v03.01

EMT

1708

PC,a(SP)+

1808

PC, CMPBUF
BUFONE
BUF TWO

180%

;60 _TO 150% IF NO ERROR

RETURN HERE

ERROR

;ERROR # DEFINED BY PRIERR SUBROUTINE

;GO TO 180% IF ERROR

DATA TRANSFER

;GO TO 160% IF NO ERROR

sRETURN HERE

ERROR

;ERROR ¥ DEFINED BY DTASTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;G0 TO 180% IF ERROR
;60 CHECK FOR SECONDARY ERRORS
.60 TO 1708 IF NO ERROR

RETURN HERE

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
;STARTING ADDRESS OF READ BUFFER
;60 TO 180% IF NO ERROR
¢RETURN HERE [F ERROR
;ERROR # DEFINED BY CMPBUF SUBROUTINE

CIR MNAO RMO5/3/2 FCTINL TST 2
FORMAT CHECK ONES
TMm

MACRO v03.01

N
7
11-APR-80 13:17:48 PAGE 12-19
SEQ 0091

605

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

'TEST

FORMAT CHECK ONES

"...tt'."""'t"t"'"""'l'.'tl".'.""t""""t."lt'.'

014750
014750

606
607
608
609
610
611
612
613
614
615

616
617
618
619

620

TST11

014752
014754
014760
014764
014770

001100
001276
001464
000011

014776
015004
015012
015020
015026
015034

000000
000000
010000
177376
101206
000062

015042
015046
015050
015054
015056
015062
015062
015070
015076
015102

034276

621
622
623 015102
015106

001226
001444

001416
00144

MOV

MOV
MOV

001412
001414
001410

156130

#11,8TESTN

MOV
MOV
MOV

#0 . RMDAO
NFMT16,RMOF0

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

:VERIFY THAT SECTOR IS NOT BAD

08
001174
001176

208
:PREPARE

033352

1:SET TEST NUMBER IN APT MAIL BOX

“TRACK = 0, SECTOR = 0
;16 BIT FORMAT

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

JSR

PC,BADSCT

:CALL BAD SECTOR MODULE

TYPE

,SCTMSG

STYPE

015540

004737

#STACK,SP
$BASE , RO
TSTQUE ,R1

:SCOPE CALL
SSTART OF TEST
:INITIALIZE STACK POINTER
‘RO
= UNIBUS ADDRESS
*(R1) = DEVICE BEING TESTED

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

063120

064556
000001
036224

SCOPE
NOP
MOV
MOV
MOV

EMT

106

260 TO 108 IF NO ERROR

2608

MOV
MOV

NONES, $TMPO
#1,8THPI

DEVICE

JSR

WORD

160 TO 2608 IF ERROR

PC . GENBUF
FOR

SECTOR MESSAGE

*ERROR # DEFINED BY BADSCT

JMP

JSR

BAD

DATA

PC,T1STPRP

SUBROUTINE

;USE ALL ONES DATA PATTERN
;GO GENERATE DATA BUFFER

TRANSFER

154130

:PREPARE DEVICE FOR TEST

STASK DESCRIPTOR AS FOLLOWS:

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

VOLUME NOT

*VERIFY PACK ACKNOWLEDGE

VALID

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

037360

MIMLRNLNUNS
O N
NN~

015540

000005
001551
000006
000034
000032
000000
000200

NONNNTNNNTNY

308

SVERIFY RECALIBRATION
260 TO 308 IF NO ERROR

EMT
JMP

260%

*ERROR # DEFINED BY TSTPRP SUBROUTINE
260 T0 2608 IF ERROR

NOP

)
) ald

b =t

)

el
—l

—

000404
000240
104000
000137

o
o
S

015110
015112
015114
015116
624 015122
625
626
627 015122
628 015130
629 015134
630 015140
631 015144
632 015150
633 015154
634
635 015160

30%:
001410

*RETURN HERE

;SETUP PARAMETERS AND EXECUTE SEEK

ERROR

TO GET DRIVE ON CYLINDER

MOV
MOV
MOVB
MOVB
MOVB

#SEEK'GO,RMCS10 ; CHANGE COMMAND TO SEEK
#PUTINX,R2
‘WRITE REGISTER INDEX TABLE
#RMDA,:(32)+
WRMDC.(R2)+¢
#RMOF . (R2)+

MOVB

#2200, (RZ)*

MOVB
JSR

#RMCST, (R2)+
PC,PUT

160 WRITE REGISTER(S) WITH PUT

SUBROUTINE

5/3/2 FCTNL TST 2

CZRMNAD

TMm

CHECK ONES

MACRO v03.01 11-APR-80 13:17:48 PAGE8 1%-20

000404
000240

NOP
EMT

1046000

SO0
srOo0

B NN
SO0
NNO S

—

k:unfinn\nun

OO~

NN
—

RORORIAO ALY
NN
= — = O

il
il

065224

VAN

—

[V IVIV]

004737
000405
000240

OO0

[olele]

037110

50$:

JSR

015540

60$:

666

667
668
669

NON
OO

PC,TIMOUT

PC,GET

60§

EMT
JMP

260$

ERROR

;ERROR
# DEFINED BY PUT SUBROUTINE

;GO TO 260% IF ERROR

EMT
JSR

015540

70%:

001410

015540

004737

037722

004737
000404
000240

037110

000137

015540

004737
000405
000240

040106

FOR SEEK

TO COMPLETE

;60 READ REGISTER(S) WITH GET SUBROUTINE

;60 _TO 60% ]F NO ERROR
RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 260% IF ERROR

JMP

PC,a(SP)+

2608

SEEK OPERATION

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

;GO TO 260% IF ERROR

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

MOV
MOVB
MOVB

#PUTINX+3,R2
WRMWC,(R2)+
W#RMBA. (R2)+

MOVB

#200,(R2)+

JSR

PC,PUT

MOvB

037360

000137

;WAIT

;G0 _TO 708 IF NO ERROR
+RETURN HERE IF ERROR

NOP

001554

104000

RETURN HERE

SVERIFY THE RESULTS OF THE SEEK COMMAND
JSR
;8£SEKSTS
;GO VERIFY RESULTS OF

000002
000004
000000
000200

104000

JSR

NOP

000063

IV IV IV v N

i
e
e
o
e

664

665

—

)

O0O0OO0O0O0OO0

660
661
662
663

104000
004736
000137

260%

;60 READ SEEK STATUS

646

647
648

JMP

;60 T0 408 IF NO ERROR

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

004737
000404
000240
106000
000137

elelelelolole]

645

40%:

004737
004737

(P AV LV LV LV 1V 1V, |

640
641
642
643
644

000137

OO0OO0O0OO

636
637
638
639

40%

Sea 0092

NOP
EMT

80%:
;WAIT

JMP

FOR WRITE
JSR

JSR

NOP

EMT

90%:

JMP

WRMCST, (R2)+

80%

260%

JSR

NOP

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

;60 TO B80S IF NO ERROR
;RETURN HERE ]F ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 260% IF ERROR

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

PC,GET

90%

260%

;VERIFY RESULTS OF WRITE COMMAND

SEXTEND REGISTER INDEX TABLE

PC,PRIERR

1008

;60 READ REGISTER(S) WITH GET SUBROUTINE

;60 TO 90$ IF NO ERROR
RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE

;60 TO 260% IF ERROR

;GO CHECK FOR PRIMARY ERRORS
;G0 _TO 100% IF NO ERROR
;RETURN HERE

ERROR

CHECK ONES
104000

004736
000137

670
671

004737
000405
000240

015540

100$:

052622

104000

004736
000137

672

004737
000405

674
675

676

WWWNNINIA)
— bt =t s OO (=
OSSO
FNOSS oo

)
D
D
i
D
il
—

692
693

)

690
oNn

W AN VUA WA
AW NN AW
A VALV AW WA VWAL »

[eleleleloelalelelalelelelelalele
L)

677 015416
678
679 015424
015430
015432
015434
015436
680 015442
681
682
683 015442
684
685 015646
015652
015454
015456
015460
015464

015540

000240
104000
004736
000137

015540

012737

000053

004737
000404
000240
104000
000137

037360

004737

037722

004737
000404
000240

037110

000137

015540

004737
000405
000240

040106

104000

EMT
JSR
JMP

:
1208
0014610

SWRITE

2608

JSR
B8R
NOP
EMT
JSR
JMP

PC,DTASTS

;G0 VERIFY RESULTS OF DATA TRANSFER

JSR
BR

PC,SECERR

EMT
JSR
JMP

JSR

015540

004737
000405
000240
104000
004736
000137

052622

004737
000403
000240

040740

:WAIT

EMT
JMP

2608

ERROR

sERROR # DEFINED BY DTASTS SUBROUTINE

;GO BACK FOR MORE ERROR CHECKS
;60 TO 260% IF ERROR

1208

:G0 CHECK FOR SECONDARY ERRORS
;60 TO 1208 IF NO ERROR

PC,a(SP)+

SERROR # DEFINED BY SECERR 5SUBROUTINE
;60 BACK FOR MORE ERROR C(HECKS

2608

;RETURN HERE

ERROR

;G0 TO 2608 IF ERROR

PC,PUT

1308

260%

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE
;60 TO 1308 IF NO ERROR
:RETURN HERE

ERROR

;ERROR # DEFINED BY PUT SUBROJUTINE

;G0 TO 260% IF ERROR

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

JSR

PC,GET

NOP
EMT

JMP

1408

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

2608

;ERROR # DEFINED BY GET SUBROUTINE
;60 TO 260% IF ERROR

RETURN HERE

ERROR

;VERIFY THE RESULTS OF WRITE CHECK OPERATION
PC,PRIERR
JSR
;60 CHECK FOR PRIMARY ERRORS
BR
1508
;60 TO 150% IF NO ERROR
NOP
;RETURN HERE 1F ERROR
EMT
;ERROR # DEFINED BY PRIERR SUBROUTINE
JSR
PC,a(SP)+
;G0 BACK FOR MORE ERROR CHECKS
150%:

JMP

2608

.60 TO 260% IF ERROR

JSR

PC,DTASTS

:GO VERIFY RESULTS OF DATA TRANSFER
:60 TO 160% IfF NO ERROR
;RETURN HERE 1F ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;G0 TO 260% IF ERROR

NOP

015540

PC,a(SP)+

;60 TO 1108 IF NO ERROR

RETURN HERE

JSR

FOR WRITE

BR
140%:

108

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

130%:

SEQ 0093

;ERROR # DEFINED BY PRIERR SUBROUTINE
;60 BACK FOR MORE EPROR CHECKS
;60 TO 260% IF ERROR

NOP

015540

12-21

PC,a(SP)+

NOP

104000

004736
000137

1108:

040740

11-APR-80 13:17:48 PAGE

—

MACRO v03.01

EMT
JSR

160%:

1608

PC,a(SP)¢

JMP

2603

JSR

PC,SECERR

NOP

1708

;60 CHECK FOR SECONDARY ERRORS
.60 TO 170% IF NO ERROR
sRETURN HERE

ERROR

CIRMNAD

015534
015536
694 015540
695

MACRO v03.01

11-APR-80

13:17:48 PAGE

12-22

SEQ 0094

104000

004736

EMT
JSR

170%:

PL,a(SP)s

;ERROR # DEFINED BY SECERR SUBROUTINE

.60 BACK

FOR MORE

ERROR

(MECKS

696 015540

2608:

698

‘;""'."".'.""""l'"'"".'"."."'."'..'.."'.""""'

SRTEST 12
. LAAAA

1ST12:

001100
001276
001464
000012

707
708

md
i
)

706
705

OOO0OO0O

700
701
702

OO NN

699

000000
000000
010000
177376

101206
000062

004737
000405
104401

012737
012737
004737

066556
000001
036224

004737

033352

FORMAT
AR

CHECK ONES W/ WCE
Al

SCOPE

ERRORS
X

R R R

#STACK,SP
$BASE RO
TSTQUE ,R1

mMov

MOV

#12,8TESTN

#-258. ,RMUCO

#BUFONE ,RMBAO

#uM ,RMCSI10

JVERIFY THAT SECTOR IS NOT BAD
JSR
BR

TYPE

105

20%:

EMT

PC,BADSCT
10%
LSCTMSG

JMP

260%

MOV
MOv
+SR

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

;:SET

TEST NUMBER

JSR

.WORD

NOP

O
RO~

)
—

-0

000005
001551
000006

EmT

30%:
001410

[N APT MA]IL BOX

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

;DATA BUFFER ADDRESS

JWRITE HEADER AND DATA
;CALL BAD SECTOR MODULE
;G0 TO 10% IF NO ERROR

;TYPE

BAD

SECTOR MESSAGE

JERROR # DEFINED BY BADSCT

;60 TO 2608 If
JUSE

PC,TSTPRP

154130

ERROR

JMP

30%
260%

;G0 GENERATE

DATA BUFFER

;PREPARE DEVICE

FOR TEST

JTASK DESCRIPTOR AS FOLLOWS:

JSELECT DEVICE & VERIFY DEVICE AVAILABLE
JCLEAR CONTROLLER & SELECTY DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
1F

VOLUME

MOV

SPUTINX ,R?2

ARMDA, (R2) ¢

NOT

VALID

JRECALIBRATE IF ''SKI'' OR "'PIP'* IS SET
JVERIFY RECALIBRATION
.60 T0 30% IF NO ERROR
JRETURN HERE

ERROR

JERROR # DEFINED BY

;60 TO 260% IF

ERROR

TSTPRP SUBROUTINE

JSETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER
MOV
#SEEX'GO,RMCS1I0 ;CHANGE COMMAND 10 SEEK
Move

SUBROUTINE

ALL ONES DATA PATTERN

;PREPARE DEVICE FOR DATA TRANSFER

BR
016476

;SETUP PARAMETERS FOR GENERATING DATA BUFFER
MOV
#0,RMDCO
sCYLINDER = 0
MOV
#0,RMDAO
JTRACK = 0, SECTOR = 0
MOV
#FMT16,RMOFO
;16 BIT FORMAT

000404
000240
000137

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

JVERIFY PACK ACKNOWLEDGE

104000

;SCOPE CALL

JPACK ACKNOWLEDGE

[a91,¥1],
V]

— il o

MOV

063120

016476

154130

001444
001416
001442
001412
0014614
001410

NOP
MOV
MOV
MOV

001226

034276

000137

e = (O

OV
NN —=O O

1064000

NNNSNNSNNN

— Py

-t

MNAQ RMO5/3/2 FCINL TST
FORMAT CHECK ONES

JWRITE REGISTER INDEX TABLE

18T 2
MACRO v03.01
NES W/ W(CE ERRORS

000034
000032
000000
000200
037360

~
(V]

0
0
0
0
0
0

&»
o

(U
V]

015730
0 }S?SL
0
01
[V LV LV JU LV LV,

RMOS5/3/ 2
FORMAT CH

MmovB
MOVR

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

PC,PUT

40§

EMT
JMP

2608

NOP

016476

104000

408%:

JSR
JSR

JSR

757

SUBROUTINE

ERROR

SSETUP FOR STATUS
‘WAIT FOR SEEK TO COMPLETE

PC,GET

NOP

004737
000405
000240

065224

EMT
JMP

60%:
;VERIFY

THE RESULTS OF THE
JSR
PC,SEKSTS

70$

EMT
JSR

016476

70%:

0014610

004737

037722

004737
000404
000240

037110

000137

016476

JRETURN HERE

MOV

ERROR

SEEK COMMAND
;G0 VERIFY RESULTS OF

JSR

EMT

80%:
;WAIT

JMP
FOR WRITE
JSR

JSR

NOP

EMT
JMP

#WH'GO,RMCS10

#PUTINX+3,R2
WRMWC, (R2)+
#RMBA.(R2)+
#RMCST, (R2)¢
#200,(R2)+

PC,PUT

80$

2608

WITH GET

NO ERROR

:ERROR # DEFINED BY GET
;60 TO 260% IF ERROR

PC,a(SP)+
2608

JMP

MOV
MOVB
MOVB
MOvB
MOVB

037360

016476

260 TO 608 IF

:60 T0 708 IF NO ERROR
*RETURN HERE

SUBROUTINE

SEEK

QPERATION

ERROR

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

$G0 TO 2608 IF

ERROR

;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND

000004
000000
000200

000137

;60 READ REGISTER(S)

260%

NOP

000063
001554
000002

104000

WITH PUT

:ERROR # DEFINED BY PUT SUBROUTINE
160 TO 2608 IF ERROR

60$

NOP

758

:RETURN HERE

PC.GETSTS
PC.TIMOUT

104000

753
756
755

:G0 TO «0% IF NO ERROR

;60 READ SEEK STATUS

016476

743
764
745
746
747
748
749
750
751
752

;60 WRITE REGISTER(S)

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

000137

004736
000137

12-23

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

JSR

004737
000404
000240

742

13:17:48 PAGE

SEQ 0095
MOVB
MOVB

004737
004737

738
739
740
761

11-APR-80

:WRITE

HEADER

AND

:EXTEND REGISTER

;60 WRITE

DATA

INDEX

160 TO 80% IF NO ERROR
:RETURN HERE

TABLE

WITH PUT

ERROR

:ERROR # DEFINED BY PUT

160 TO 2608 IF

ERROR

SUBROUTINE

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

PC,GET

90$

260%

;60 READ REGISTER(S)

WITH GET

G0 10 908 IF NO ERROR
*RETURN HERE

ERROR

:ERROR 4 DEFINED BY Ct!
;60 TO 260% IF ERROR

SUBROUTINE

RMO5/3/72 FCINL 75T 2
MACRO v03.01
FORMAT (HECK ONES W/ W(E ERRORS

OO N~N~NOO o ANANN
S S 8 B NN NN
oSO
N[@ Yo 0 oY V1o Yo X WTaTo W ¥ STe

e
cd s e
PIN) =

adh

e
el

el
D

el
i
D
o

B e
el

774

775

770
144
772
773

e
i
ol
)

il el

767
768
769

765
766

e e

763
764

cooooooocoocoocococococococ
oo

=lelelelelalefelelolololalelolololelelals]

759 016126
760
761
762

779
780
781

004737
000405
000240
104000
004736
000137

040106

004737
000405
000240

052622

784
785

016476

100%:

004736
000137

004737
000405

PC,PRIERR

JSR
BR

PC.DTASTS

EMT
JSR

016476

110%:

040740

000240
104000
004736
000137

016476

005137

102210

012737

000053

004737
000404
000240

037360

000137

016475

004737

037722

004737
000404
000240

037110

000137

016476

004737
000405
000240

040106

004736
000137

JSR
BR
NOP
EMT
JSR
JMP

NGP

1208:

016476

JSR
BR
NOP
EMT
JSR
JMP

1008

;60 CHECK FOR PRIMARY [RRORS
;60 TO 1008 IF NO ERROR

PC,a(SP)e

;ERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR (MECKS
.60 T0 260% IF ERROR

;RETURN HERE

260s

COM

001410

ERROR

2608

;G0 VERIFY RESULTS OF DATA TRANSFER
.60 7O 110% IF NO ERROR
RETURN HERE IF ERROR
;ERROK # DEFINED BY DTASTS SUBROUTINE
;60 BACK FOR MORE ERRCR (HE(CKS
.60 TO 2608 IF ERROR

PC,SECERR

;GO0 CHECK FOR SECONDARY ERRORS

1108

PC,a(SP)+

1208

PC,a(SP)+

260%

JALTER DATA BUFFER

BUF TWO=-¢

;60 TO 1208 IF NO ERPOR
;RETURN HERE IF ERROR

ERROR # DEFINED BY

SECERR SUBROUTINE

;60 BACK FOR MORE ERROR CHEC(KS

;60 TO 260% IF ERROR

;COMPLEMENT DATA WORD

JSETUP AND WRITE CHECK HEADER AND DATA (OMMAND
MOV
#W(H.GO,RMCS10
JWRITE CHECK COMMAND

180%:
JWAIT

190%:

JSR
BR
NOP
EMT
JMP
FOR WRITE

PC,PUT

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

;60 TO 180% IF NO ERROR

180%

;RETURN HERE

(HECK

200%:

COMMAND

PC,T1IMOUT

'SR
8R
NOP
EMT
JMP

PC,GET

190%

260%

PC,PRIERR

2008

PC,O(SP)¢

2608

ERROR

.60 TO 260% IF ERROR

JSR

JSR
BR
NOP
EMT
JSR
JMP

.ERROR # DEFINED BY PUT SUBROUTINE

260%

;CHECK FOR PRIMARY ERRORS

104000

786

SEQ 0096

;VERIFY RESULTS OF WRITE COMMAND

104000

782

8
12-24

90%:

104000

776
777
778

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

TO COMPLETE AND READ STATUS
SWAIT FOR COMMMAND TO COMPLETE

;GO0 READ REGISTER(S) WITH GET SUBROUTINE

;G0 TO 1908 IF NO ERROR
+RETURN HERE IF ERROR
;ERROR # DEFINED BY GET

.60 T0 260% IF ERROR

SUBROUTINE

;60 CHECK FOR PRIMARY ERRORS

;60 10 200% IF NO ERROR

RETURN HERE If ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINt
<60 BACK FOR MORE ERROR (MElr>
.60 T0 260% IF ERROR

€ R MNAO RMOS/3/2 FCINL TST
1
"1

FORMAT

788
789 016300
790 016306
791
792 016310

793
794
795
796
797
798
796
800
801

016314
016316
016320
016322
016324

016330
016336
016344
016352
016354

MACRO v03.01
2
(HECK ONES W/ W(E ERRORS

032737
001022

040000

004737
000405
000240

052622

004736
000137
013737
052737
013737
104337

SUS? THE

016476
001344
040000
001344

001140
001140
001142

PC,DTASTS

102210

001134
001136
001136

000022

001522
001523

;VERIFY

001356
102210
001140
00113¢

RMCS21,8GDDAT
#WCE,$GDODAT
RMCS2],$BDDAT

2608
337

JSR

NOP
EMT

001142
001140

JMP
MOV
MOV

2308:

001136

000405

001140

MOV
BIS
MOV

ADDRESS OF

001142

106341

DETECTED

;1S WRITE CHECK ERROR SET7?
YES.!
:60 VERIFY RESULTS OF

THE WRITE

DATA TRANSFER

260 T0 2058 IF NO ERROR
*RETURN HERE

PC,a(SP)+

THE

SEQ 0097

ERROR

“ERROR # DEFINED BY DTASTS SUBROUTINE
160 BACK FOR MORE ERROR CHECKS

;60 TO 260$ IF ERROR

:LOAD EXPECTED STATUS
;LOAD RECEIVED STATUS

CHMECK

ERROR

#BUF TW0-2,$GDADR
:LOAD EXPECTED ADDRESS
RMBAL,$BDADR
;LOAD RECEIVED ADDRESS
#2,$BDADR
-DECREMENT RECFIVED ADDRESS

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

037110

016476

ERROR WAS

EMT
JSR

MOV
MOV
SUB

12-25

205%

EMT

210%:

000200

023737
001401

JSR

JMP

¢05%:

CHMECK

BNE

BR
i

WRITE

#wCE ,RMCS21
2108

NOP

001340
000002

016424

016430
016436
016444
016450
016456
016460
016462
016464
016464
016472
016474
016476

s MAKE

104000

016354
016362
802 016370
803
806
805 016376
806 016404
807
808 016412
016416
016420
016422
809
810
811
812
813
814
815
816
817
818
819
820
821
822

001344

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

260$:

2308

;60 READ REGISTER(S)

WITH GET

160 TO 2308 IF NO ERROR
*RETURN HERE IF ERROR
“ERROR # DEFINED BY GET

260%
160 TO 2608 IF ERROR
RMDB1,$BODAT
;LOAD RECEIVED DATA WORD
BUF TW0-2,$GDDAT :LOAD EXPECTED DATA WORD

COM

$GDDAT

$SGDADR,$BDADR
2208
340
260%

;IS ADDRESS OK??
SYES!'!

CMP
BEQ
EMT

$GDDAT,$BDDAT
260%

;1S DATA WORD OK??
SYES!!

(MP
BEQ
EMT
BR

220%:

PC,GET

341

SUBROUTINE

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

016476
016476
016500
016502
016506
016512
016516

823
824
825 016524
826 016532

SeTEST

2222222222222 232222222222223222222232222222222232222222222]

15113

001100
001276
001464
000013

001226

010000
000000

001442
001444

FORMAT MULTIPLE SECTORS

SCOPE
NOP
MOV

#STACK,SP

MOV

#13,$TESTN

MOV
MOV

$BASE , RO
TSTQUE.R1

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

2:SET TEST NUMBER IN APT MAIL BOX

:SETUP PARAMETERS FOR GENERATING DATA BUFFER

MOV
MOV

#EMT16,RMOFO
#0,RMDCO

;16 BIT FORMAT
SCYLINDER = 0

RMO5/3/2

FORMAT My

181 2
MACRO v03.01
E SECTORS

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

016540

#0,RMDAD

:TRACK = 0,

MOV
MOV

#BUFONE ,RMBAO
AWM, RMCS10

:DATA BUFFER ADDRESS
‘WRITE WEADER AND DATA

017272

012737
012737
004737

064620
000001
036224

JSR

PC,BADSCT

TYPE

,SCTMSG

063120

000137

#-258.+2 RMWCO

;VERIFY THAT SECTOR IS NOT BAD

034276

001176
001176

10$

1708

208

MOV
MOV
JSR

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

DEVICE

FOR DATA

;CALL BAD SECTOR MODULE
:TYPE

JSR
LWORD

SECTOR = 0

-WORD COUNT FOR 2 SECTCRS (2'S COMP)

:G0 TO 108 IF NO ERROR

EMT
JMP

:PREPARE

033352

SEQ 0098

MOV

1046000

8
12-26

BAD

SECTOR MESSAGE

:ERROR # DEFINED BY BADSCT SUBROUTINE
;60 TO 1708 IF ERROR
;USE

ALL 2EROS DATA PATTERN

;60 GENERATE

DATA BUFFER

TRANSFER

PC,TSTPRP
154130

:PREPARE DEVICE FOR TEST
STASK DESCRIPTOR AS FOLLOWS:

JSELECT DEVICE & VERIFY DEVICE AVAILABLE
:CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
JPACK

ACKNOWLEDGE

VOLUME

“VERIFY PACK ACKNOWLEDGE

000404
000240

104000
000137

NOP

017272

000005
001551
000006
000034
000032
000000
000200

10%:

001410

EMT
JMP

MOV
MOV

0046737
000404

*RECALIBRATE IF ‘'SKI'° OR 'PiP'* IS SET
*VERIFY RECALIBRATION
260 TO 308 IF NO ERROR
*RETURN MERE

ERROR

:ERROR # DEFINED BY TSTPRP SUBROUTINE
160 TO 1808 IF ERROR

#RMDA, (R2)+
WRMDC.(R2)+
#RMOF . (R2)+

MOVB

#200,(R2)+

MOVE
JSR

EMT

40%:

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

MOVB
MOVB
MOVB

NOP

004737
004737

1808

VALID

;SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER

037360

000137

308

NOT

JMP

#RMCST, (R2)+
PC,PUT

40$

1808

;60 WRITE

160 TO 4«08 IF NO ERROR
:RETURN HERE

ERROR

WITH PUT

:ERROR # DEFINED BY PUT

:GO TO 180% IF

ERROR

SUBROUTINE

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

50%:

:60 READ SEEK STATUS
JSR

PC,GET

60§

;60 READ REGISTER(S)

WwiTH GET

260 10 608 IF NO ERROR

SUBROUTINE

RMO5/372 FCTINL
FORMAT

MULTIPLE

016742
016744
016746
862 01€752
863
864
865 016752
016756
016760
016762
016764

000240
10400C
000137

8}2766

004737
000405
000240
104000
004736

000137

7026

TST

SECTORS

MACRO v03.01

11-APR-80
NOP

017272

60%:

EMTY
JMP

JSR
BR
NOP

017272

000063

00155¢
000002
000004
000000
000200

004737

037360

7036

000137

017272

017042

004737

037722

017046
017052
017056
017056

004737
000404
000240
104000

037110

NOMSO orNNO
OSSO

e
e
e
e
o
e
D
i
el
el
el
il
D e
el

889
890

NN NNNNNNNNNNNNNNN
— e
el e
ol el
il
b
s el
i
OOO0OO
WAMNININ)
bt et 0 = OO o NNNN

OOO0O0O0OOOOOOOOOOO0O

887
888

064

004737
000405
000240

017272

060106

70%:

001410

004737
000405
000240

017272

052622

80%:
;WAIT

EMT
JSR
JMP

004737
000405
000240

040740

SEEK

PC,a8(SP)e

1808

IRHUC.(RZ)O
#RMBA, (R2) ¢
#RMCST,(R2)¢

JSR
BR

PC,PUT

EMT
JMP

FOR WRITE
JSR

90%:

NOP
EMT
JMP

ERROR

COMMAND
;60 VERIFY RESULTS OF

160 _TO 708 IF NO ERROR

sRETURN HERE

SEEX OPERAT]ION

ERROR

:ERROR # DEFINED BY SEKSTS SUBROUTINE
;60 BACK FOR MORE ERROR CHE(KS

;60 TO 180% IF ERROR

#200,(R2)+

80%

180%

100%:

JSR
BR
NOP
EMT
JSR
JMP

JSR
BR

110%:

;00 WRITE REGISTER(S) WITH PUT SUBROUTINE
;60 TO 80% IF NO ERROR

RETURN HERE

ERROR

:ERROR # DEFINED BY PUT

;G0 TO 180% IF ERROR

SUBROUTINE

COMMAND TO COMPL ETE AND READ STATUS
PC,TIMOUT
;WAIT FOR COMMAND TO COMPLETE
PC,GET

90%

;60 READ REGISTER(S) WITH GET SUBROUTINE

;60 TO 908 IF NO ERROR

;RETURN HERE

180%

JVERIFY RESULTS OfF WRITE COMMAND

ERROR

;ERROR ¥ DEFINED BY GET SUBROUTINE
.60 TO 180% IF ERROR

PC,PRIERR

.60 CHECK FOR PRIMARY ERRORS

PC,a(SP)+

;RETURN HERE IF ERROR
:ERROR # DEFINED BY PRIERR SUBROUTINE
.00 BACK FOR MORE ERROR CHECKS

1008

1808

PC,DTASTS

;G0 TO 1008 If NO ERROR

.60 TO 180% IfF ERROR

EMT
JSR
JMP

PC,a(SP)+

1808

;G0 VERIFY RESULTS OF DATA TRANSFER
;60 _TO 1108 IF NO ERROR
:RETURN HERE [F ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
.60 TO 1808 [F ERROR

JSR

PC,SECERR

;60 CHECK FOR SECONDARY ERRORS

NOP

017272

70$

THE
SEKSTS

MOvB
;)
MovB
MOvB

JSR
8R

104000

004736
000137

180%

.ERROR
# DEFINED BY GET SUBROUTINE
.60 TO 180% IF ERROR

;SETUP ANg EXECUTE WRITE WEADER AND DATA (OMMAND
#ur'GO,RMCSIO
;WRITE HEADER AND DATA
MOv
lPUYlNX‘B R2
;EXTEND REGISTER INDEX TABLE

104000

004736
000137

;RETURN MERE

JVERIFY THE RESULTS OF

045226

2
2
2
2
2

000137

12-27

SEa 0099

NOP

8}7060

13:17:48 PAGE

NOP

1108

1208

;60 TQ 1208 If NO ERROR
+RETURN HERE IF ERROR

RMO5/3/72 FCINL TST
F ORMAT MULTIPLE

SECTORS

MACRO v03.01

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

104000

891
893
894
895
896

004736
000137

017272

012737

200053

004737

037360

000404
000240
104000

897
898
899
900
901
902

N1 ST, VT,V
[ASTAS AN

)
il
el
il

LNV 1, P

il
—

004737

037722

004737

037110

004737
000405
000240
104000
004736
000137

004737
000405
000240

120%:

001410

;WRITE

017272

040106

JWAIT

052622

004737
000405
000240

017272
040740

1408
:

017272

JUST

WRITTEN

;WRITE CHECK COMMAND

;60 TO 1308 IF NO ERROR
JRETURN MERE |F ERROR

LERROR # DEFINED BY PUT

;60 TO 180% IF ERROR

180%
CHECK

TO COMPLETE AND GET STATUS
;WAIT FOR WRITE CHECK

PC,TImMOUT

JSR

PC,GET

EMT
JMP

SECTORS

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

130s

JSR

SUBROUTINE

TO FINISH

;60 READ REGISTER(S) WITH GET SUBROUTINE
;GO 7O 140% IF NO ERROR
RETURN HERE IF ERROR

140%

;ERROR # DEFINED BY GET

;G0 TO 180% IF ERROR

180%

SUBROUTINE

CVERIFY THE RESULTS OF WRITE CHECK OPERATION
PC,PRIERR
JSR
;60 CHECK FOR PRIMARY ERRORS

B8R

150%

EMTY
JSP

PC.8(SP)¢

JSR

PC,DTASTS

JMP

150%:

NOP
EMT
JSR

PC,a(SP)+

SERROR # DEFINED BY DTASTS SUBROUTINE
;650 BACKk FOR MORE ERROR (HECKS

JSR

PC,SECERR

NOP
EMT
JSR

JMp

170%:

.GO TO 180% IF ERROR

180%

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

JMP

:
1608

;G0 _TO 150% IF NO ERROR

sRETURN HERE IF ERROR
<ERROR # DEFINED BY PRIERR SUBROUTINE
;60 BACK FOR MORE ERROR CHE(CKS

160%

B8R

104000

004736
000137

PC,PUT

FOR WRITE

NOP

017272

#W(H:GO,RMCSTO

JMP

130%:

.60 TO 180% IF ERROR

HEADER AND DATA FOR

NOP
EMY

SECERR SUBROUTINE

.60 BACK FOR MORE ERROR (HECKS

1808

JSR

SEQ 0100

ERROR # DEFINED BY

PC,a(SP)+

104000

004736
000137

CHECK
MOv

NOP

sRETURN HERE

ERROR

;G0 TO 180% IF ERROR

180%

;GO CHECK FOR SECONDARY ERRORS

;60 TO 1708 IF NO ERROR

1708

;RETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;60 BACK FOR MORE ERROR (HECKS

PC,8(SP)+

;60 TO 180% If ERROR

180%

180%:

(V.

VOO0

—

910

)

907
908

017272

000404
000240
104000
000137

903
904
905
906

000137

EMT
JSR
JMP

12-28

.'"'l.'.."".l"""'"'."'."".""..'l'.."l'.tl".""i.lll'

JoTEST
a2

000004
000240
012706

?gllk:
001100

SCOPE
NOP

MmOV

FORMAT
AR

HEAD SWITCHING

RRRRRRR

NN RRRRRl

< SCOPE CALL

#STACK,SP

JSTART OF

TEST

JINITIALIZE STACK POINTER

CIRMNAQ RMO5/3/72 FCINL TST 2

FORMAT

HEAD

SWITCHING

MACRO v03.01

017302
017306
016 017312

013700
013701
012737

001276
001464
000014

001226

917
918 017320
919 017326

012737
112737

000000
000000

001444
001417

012737
012737
012737

1767764
101206
000062

001412
001414
001410

920 01733¢
921 017342

922 017350
923 017356
g%g 017366
926

000037
010000

001416
001442

034276

017412
017412
017420
017422
017630

123727
001345
012737
012737

001616

000037

064620
000001
036226

001174
001176

935 017442
0174466

004737
154130

033352

3§§ 017436

934

004737

MOV
MOV
MOV

$BASE ,RO
TSTQUE R
#16,8TESTN

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

5%:

movB
MOV
MOV
MOV
MOV

#3{. RmOAO
lFHbe.RHOFO

#-258.¢2,RMUCO
#BUFONE,RMBAO
#UH,RNCS10

108:

BR
TYPE
EMY

108
,SCTNMSG

JMP

180%

C(MPB
BNE
MOV
MOV

RMDAO,#31.
5¢
NIEROS.$TMPO
#1,8TMPY
PC . GENBUF

JSR

SSECTOR = 31,
;16 BIT FORMATY

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

000404
000240
104000
000137

020104

017462
017670
0176764
017500
017504

012737
012702
112722
112722
112722

000005
001551
000006
000034
000032

g:g 017516

112722

000200

938
939
940
961
962
963

96& 017510

112722

947 017520

004737

017526
017530
017532
948 017536

000240
104000
000137

017526

000404

000000

;1S LAST SECTOR ASSIGNED ?
:BR IF NO
:USE ALL ZEROS DATA PATTERN

;G0 GENERATE DATA BUFFER

:PREPARE DEVICE FOR DATA TRANSFER
JSR
.WORD

308 :
001410

PC,TISTPRP
154130

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

SSELECT DEVICE & VERIFY DEVICE AVAILABLE
SCLEAR CONTROLLER & SELECT DEVICE
*VERIFY CONTROLLER CLEAR OPERATION

BR
NOP
EMT
JMP

308
180%

ACKNOWLEDGE

VOLUME

NOT

VALID

JVERIFY PACK ACKNOWLEDGE
*RECALIBRATE IF ‘'SKI"' OR ‘'PIP"* IS SET
*VERIFY RECALIBRATION
260 10 308 If NO ERROR
*RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
160 T0 1808 IF ERROR

JSETUP PARAMETERS AND EXECULTE SEEK TO GET DRIVE ON CYLINDER
MOV
#SEEK'GO,RMCS10 ; CHANGE COMMAND 10 SEEK
MOV
#PUTINX,R2
SWRITE REGISTER INDEX TABLE
MOVB
WRMDA,(R2)+¢
MOVB
NRMDC.(R2)+¢
MOVB
#RMOF . (R2)+

MOVB

037360

020106

(2°'S COMP)

;CALL BAD SECTOR MODULE
260 10 108 IF NO ERROR
JTYPE BAD SECTOR MESSAGE
;ERROR # DEFINED BY BADSCT SUBROUTINE
260 TO 1808 IF ERROR

:PACK

017450
017452
017454
017456
ggg 017462

SEQ 0101

JSETUP PARAMETERS FOR GENERATING DATA BUFFER
MOV
#0,RMDCO
;CYLINDER = 0
MOVB
#0 . RMDAO*!
STRACK = 0

063120
020104

12-29

JVERIFY THAT SECTOR IS NOT BAD
JSR
PC,BADSCT

004737
000405
104401
104000
000137

927
928
929
930
931

017372
017376
017640"
0174064
0176406

112737
012737

11-APR-80 13:17:48 PAGE

JSR

B8R
408:

NOP
EMT
JMP

WRMCST,(R2)+

#200, (R2)+
PC,PUT

;G0 WRITE REGISTER(S) WITH PUT

180%

*RETURN HERE IF ERROR
:ERROR # DEFINED BY PUT SUBROUTINE
260 T0 1808 IF ERROR

40%

260 TO 4«0% IF NO ERROR

SUBROUTINE

MNAO RMOS5/3/2 FCINL TST
FORMAT

949
950
951 017536
952 0175642
322 017546

HEAD

SWITCHING

004737
004737

037024
037722

955
956 017546

004737

037110

01755¢
017556
017560

000240
104000
000137

020104

004737

045226

017552

325 017564
959
960 017564

017570

017572
017574
017576
017600
gg; 017604

000404

000405

000240
104000
004736
000137

020104

017604
017612
017616
017622

012737
012702
112722
112722

398 017632

112722

000063
001554
000002
000004

112722

000000

971

004737
000404

037360

963
964
965
966
967

968 017626
017636
017642

017644
017646
017650

020104

g;g 017654

004737

037722

977 017660
017664
017666
017670
017672

004737
000404
000240
104000
000137

037110

004737
000405

040106

000137

020104

004737

052622

974

3;3 017676

980
981 017676

017702
017704
017706
017710

017712

982 017716
983 017716

000240
104000
004736

020104

11-APR-80 13:17:48 PAGE

12-30

SEQ 0102

: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 :

;GO READ SEEK STATUS
JSR
PC,GET

608 :

NOP
EMT
JMP

60§

1808

;60 READ REGISTER(S) WITH GET SUBROUTINE

260 TO 60$ IF NO ERROR

*RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
-60 TO 1808 IF ERROR

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

B8R

708 :
001410

NOP
EMT
JSR
JMP

70$

PC,a(SP)+
1808

260 TO 708 IF NO ERROR

SEEK OPERATION

‘RETURN HERE IF ERROR
ERROR # DEFINED BY SEKSTS SUBROUTINE
160 BACK FOR MORE ERROR CHECKS
260 TO 1808 IF ERROR

;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
MOV
#WH!GO,RMCS10
;WRITE HEADER AND DATA
MOV
#PUTINX+3,R2
-EXTEND REGISTER INDEX TABLE
MOVB
#RMWC,(R2)+
MOVB
#RMBA, (R2)¢

MOVB

000200

000240
104000
000137

g;g 017654

MACRO v03.01

808 :

#RMCST, (R2)+

MOVB

#200,(R2)+

JSR
BR
NOP
EMT
JMP

PC,PUT
80§

1808

;60 WRITE REGISTER(S) WITH PUT
260 TO 80% IF NO ERROR

SUBROUTINE

‘RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
260 TO 1808 IF ERROR

:WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS

908 :

JSR

PC,TIMOUT

;WAIT 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
*RETURN HERE IF ERROR
“ERROR # DEFINED BY GET SUBROUTINE
260 10 180% 1F ERROR

1808

:VERIFY RESULTS OF WRITE COMMAND
JSR
PC,PRIERR
:60 CHECK FOR PRIMARY ERRORS

1008:

BR
NOP
EMT
JSR

PC,a(SP)+

160 TO 1008 IF NO ERROR
*RETURN HERE IF ERROR
“ERROR # DEFINED BY PRIERR SUBROUTINE
160 BACK FOR MORE ERROR CHECKS

JSR

PC,DTASTS

;60 VERIFY RESULTS OF

JMP

1008

180%

260 10 1808 IF ERROR

DATA TRANSFER

SNSNSNNNN ~N -~~~ NN~
(UL P o o
4V W WO
OO SO oo o

i —t
i
el
i

9 86
9 87
9 88

—

9 84
9 85

NNN‘NNNNflN“ -~~~

[elelololaolaleloleolelols] o

RMO5/3/72 FCINL 1ST 2
MACRO v03.01
FORMAT W/ HEAD SWITCHING

017756

9 90
9 91 017764
017770

017772
017774
017776
9 92 020002
994
9 95 020002
9 96
997 020006

020012
020014
020016
020020
998 020024

999
1000
1001 020024

020030
020032
020034
020036
020040
020044
020044
020050
020052
020054
020056
020060
020064
020064
020070
020072
020074
020076
020100
020104

000405
000240
104000
004736
000137

004737
000405
000240

NOP

020104

1108$:

060740

104000

004736
000137

020104

012737

000053

004737
000404
000240

037360

000137

020104

004737

037722

004737
000404
000240

037110

000137

020104

004737
000405
000240

040106

104000

120%:

001410

JWRITE

130%:
¢WAIT

1640%:

004737
000405
000240

020104
052622

150%:

104000

004736
000137

004737
000405
000240

020104
040740

160%:

104000

004736
000137

020104

EMT
JSR
JMP

JSR
BR
NOP
EMT
JSR
JMP

SEQ 0103

1108

;60 YO 1108 IF NO ERROR

PC,a(SP)+

;ERROR # DEFINED BY DTASTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHE(CKS
;60 TO 180% IF ERROR

¢RETURN HERE

180$

ERROR

1208

;GO0 CHECK FOR SECONDARY ERRORS
;60 TO 1208 IF NO ERROR

PC,a(SP)+

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

PC,SECERR

;RETURN HERE

180$

ERROR

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

JSR
BR
NOP
EMT
JMP
FOR WRITE

PC,PUT

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;60 TO 1308 IF NO ERROR

1308

;RETURN HERE

TO COMPLETE AND GET STATUS
;WAIT FOR WRITE CHECK TO FINISH

JSR

PC,TIMOUT

JSR
BR

PC,GET

NOP
EMT
JMP

ERROR

;60 TO 1808 IF ERROR

180%
CHECK

;ERROR # DEFINED BY PUT SUBROUTINE

1408

180%

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

;RETURN HERE

ERROR

;ERROR # DEFINED BY GET SUBROUTINE

;GO TO 180% IF ERROR

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

104000

004736
000137

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

170%:

1508
180%

;60 TO 1508 IF NO ERROR
;RETURN HERE 1F ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;G0 T0 180% IF ERROR

JSR
BR
NOP
EMT
JSR
JMP

PC,DTASTS

;GO VERIFY RESULTS OF DATA TRANSFER

PC,a(SP)+

180$

;60 BACK FOR MORE ERROR CHECKS

;GO TO 1808 IF ERROR

JSR
BR
NOP
My
JSR
JMP

PC,SECERR

.60 CHECK FOR SECONDARY ERRORS
.60 TO 170% IF NO ERROR
;RETURN HERE 1F ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS
;60 TO 180% IF ERROR

BR
NOP
EMT
JSR
JMP

PC a(SP)+

160%

1708

PC,a(SP)+

180$

;G0 TO 160% IF NO ERROR
sRETURN HERE I1F ERROR
:ERROR ¥ DEFINED BY DTASTS SUBROUTINE

CZRMNAQ RMO5/3/2 FCINL 1ST 2

114

e
—

[l le]

FORMAT W/ HEAD SWITCHING

MACRO v03.01

0 8 020104
09
10

N 8
11-APR-80 13:17:48 PAGE 12-32

SEQ 0104

180%:
M

A2 R

TeTEST

sdAdd

XXX

FORMAT W/ MID TRANSFER SEEK

b
o

~no

o
Qo
o

NNSNNNNN

wWo o
~N—0

e
—

QN V1V ]

[elole]

012706

WNIN

NN = =2 OO O
2 O8O0
SS

—d el

)

lololelolelols)

8115

000004

001100
001276
001464
000015

e
s
d oo
i
—

020204
020210
020212
020216
020220
020224

RPN

OQOOO0O—00

d e

020176

004737
000405
1064401

104000
000137

101206

000062

:;SET TEST NUMBER IN APT MAIL BOX

MOV
MOV
MOVB

#0,RMDCO
LSTRK,RMDAO
#31.,RMDAO

:CYLINDER = 0
*START LAST TRACK AND
:LAST SECTOR

MOV

#-258.+2 ,RMWCO

:WORD COUNT FOR 2 SECTORS

NEMTi6,RMOFO

#BUFONE,RMBAO
#WH,RMCS10

063120
020716

108

001174
001176

508
;P 1 PARE

033352

:16 BIT FORMAT

:DATA BUFFER ADDRESS
*WRITE HEADER AND DATA

JSR

PC,BADSCT

;CALL BAD SECTOR MODULE

TYPE

.SCTMSG

JTYPE

B8R

064620
000001
036224

004737
154130

$BASE, RO
TSTQUE,R1

;VERIFY THAT SECTOR IS NOT BAD

034276

020234

020254
020260

#15,8TESTN

MOV
MOV

001333

004737

MOV

001417

020242
020250
020254

FSTACK,SP

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

;SETUP PARAMETERS FOR GENERATING DATA BUFFER

000000
001332
000037
010000
176774

020224

020232

SCOPE
NOP
MOV

MOV
MOV

NN —

v
o

NO N

b d e

= OV

PION)

WWNONONNON NN

—_ O 000NN
NN

ah
i
D
ol
ol
D
D
e
D rd e
d
D
i
0od o
i
el
e

jelelolololalolelole]

[elelalolelolalelolalel

S N1 NT NI, NT, N T

QOO0

,':ttt".".tt'".'"""t"""'..'ttl'.'t""""""'."".'."

EMT

10$%

;60 TO 108 ]JF NO ERROR
BAD

SECTOR MESSAGE

JERROR # DEFINED BY BADSCT

JMP

180%

CMPB
BNE

RMDAO+1,LSTRK+1
5%

;1S LAST TRACK ASSIGNED ?
;BR IF NO

PC.,GENBUF

;G0 GENERATE DATA BUFFER

MOV
MOV

JSR

DEVICE

JSR

.WORD

#ZEROS ,$TMPO
#1,8TMPT

(2°'S COMP)

;G0 TO 1808 IF ERROR

SUBROUTINE

JUSE ALL ZEROS DATA PATTERN

FOR DATA TRANSFER

PC,TSTPRP

154130

JPREPARE DEVICE FOR TEST

:TASK DESCRIPTOR AS FOLLOWS:
JSELECT DEVICE & VERIFY DEVICE AVAILABLE
JCLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE

VOLUME NOT

JVERIFY PACK ACKNOWLEDGE

VALID

NN
N L

i N

¥Te SV P JV ], ¥}
s

—
)
) el
—

oleloloelelole)

) cdd

JRECALIBRATE IF ''SKI'' OR ‘'PIP'' IS SET
020262
020264
020266
020270
020274

020274
020302
020306

020312

000404
000240
104000

000137

30%

JVERIFY RECALIBRAT]ION
;GO TO 30% IF NO ERROR

JMP

180%

;60 TO 180% If

NOP
EMT

020716

000005
001551
000006
000034

B8R

30%:
001410

JRETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE

ERROR

JSETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE ON CYLINDER
MOV

MOV

MOvB
MovB

#SEEK'GO,RMCSI0 ;CHANGE COMMAND TO SEEK

#PUTINX,R?2

#RMDA, (R2) ¢
#RMDC, (R2) ¢

JWRITE REGISTER INDEX TABLE

CZRMNAO RM0S/3/2 FCTNL 1 ST 2

MACRO v03.01

FORMAT W/ MID TRANSFER SEEK

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

SEQ 0105

1039 020316
10640 020322
}825 020326

112722
112722
112722

000032
000000
000200

1043 020332

004737

037360

020340
020342
020346

000240
104000
000137

020716

020350
0203564
020360

004737
004737

037024
037722

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

020360

004737

037110

;60 READ SEEK STATUS
JSR
PC,GET

020336

;gzg 020350
1046
1047
1048
1049
1050
1051
1052

020364
020366
020370
020372

}822 020376

000404

000404
000240
104000
000137

004737
000405
000240
104000
004736
000137

020716

1059
1060
1061
1062
1063
1064
}822

020416
020626
020630
020634
020640
0204646

012737
012702
112722
112722
112722
112722

000063
001554
000002
000004
000000
000200

1067 020450

004737

037360

020456
020460
020462

000240
104000
000137

020716

}8;; 020466

004737

037722

1073 020472
020476
020500
020502
020504
1074 020510

004737
000404
000240
104000
000137

037110

020454

}823 020466
1070

000404

JSR

408 :

020716

1055
1056 020376
020402
020404
020406
020410
020612

}825 020416

MOVB
MOvEB
MOVB

608 :

BR
NOP
EMT
JMP

PC,PUT

40§

180%

60$

180%

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

160 TO 40S IF NO ERROR

“RETURN HERE IF ERROR
:ERROR # DEFINED BY PUT SUBROUTINE
160 TO 1808 IF ERROR

;60 READ REGISTER(S) WITH GET SUBROUTINE

260 TO 608 IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
160 TO 1808 IF ERROR

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

045224

020716

NOP
EMT
JMP

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

708 :
001410

;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
MOV
#WH'GO,RMCS10
;WRITE HEADER AND DATA
MOV
NPUTINX+3,R2
:EXTEND REGISTER INDEX TABLE
MOVB
WRMWC,(R2)+
MOVB
WRMBA, (R2)+
MOVB
WRMCST,(R2)+
MOVB
#200, (R2)+
JSR

B8R
808 :

NOP
EMT
JMP

PC,PUT

:60 WRITE REGISTER(S)

1808

*RETURN HERE IF ERROR
:ERROR # DEFINED BY PUT SUBROUTINE
160 TO 180% IF ERROR

80$

160 TO 80% IF NO ERROR

WITH PUT

SUBROUTINE

;WAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS

90%:

JSR

PC,TIMOUT

:WAIT FOR COMMAND TO COMPLETE

JSR
BR
NOP
EMT
JMP

PC,GET
90%

:60 READ REGISTER(S) WITH GET SUBROUTINE
160 70 908 IF NC ERROR
*RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
160 70 1808 IF ERROR

180%

MNAO RMOS/3/2 FCTINL TST 2

NRONVN)
=2 b b

FORMAT

W/ MID TRANSFER

004737
000405
000240

004737

052622

000405
000240

1084
1085 020570
1086
1087 020576

020602
020604
020606
020610
1088 020614

1089
1090
1091 020614

1092
1093 020620
020624
020626
020630
020632
1094 020636
109¢
1096
1097 020636

020642
020644
020646
020650
020652

1098 020656
1099 020656

020662
020664
020666
020670

JSR
BR

NOP

020716

EMT
JSR

1008:

020716

110%:

040740

104000

004736
000137

020716

012737

000053

004737
000404
000240
104000
000137

037360

004737

037722

004737
000404
000c«0

037110

000137

020716

004737
000405
000240

040106

104000

120%:

001410

JWRITE

004737
000405
000240
104000

004736

JSR
BR
NOP
EMT
JSR
JMP

¢WAIT

140%:

JMP
FOR WRITE
JSR

JSR
BR
NOP
EMT
JMP

052622

:6G0 CHECK FOR PRIMARY ERRORS

.60 TO 1008 IF NO ERROR
;RETURN HERE

a(SP)+

1808

PC,DTASTS

1108

ERROR

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

.60 TO 1808 IF ERROR

;60 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
;60 CHECK FOR SECONDARY ERRORS
.GO TO 1208 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
:60 BACK FOR MORE ERROR CHECKS
;60 TO 1808 IF ERROR

PC,PUT

;50 WRITE REGISTER(S) WITH PUT SUBROUTINE
;60 TO 130% IF NO ERROR
;RETURN HERE 1F ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;G0 TO 180% IF ERROR

130s

180%
CHECK

TO COMPLETE AND GET

STATUS

PC,TIMOUT

;WAIT

PC,GET
140%

:60 READ REGISTER(S) WITH GET SUBROUTINE
;G0 TO 1408 IF NO ERROR
RETURN HERE 1F ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;60 TO 180% IfF ERROR

180%

FOR WRITE

CHECK

TO FINISH

SVERIFY THE RESULTS OF WRITE CHECK OPERATION
PC,PRIERR
JSR
;60 CHECK FOR PRIMARY ERRORS
BR

150$

EMT
JSR
JMP

PC,a(SP)+

NOP

020716

1008

SEQ 0106

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

EMT
130%:

PC,PRIERR

JSR
BR
NOP
EMT
JSR
JMP

JSR
BR

104000

004736
000137

JmP

NOP

020716

12-34

;VERIFY RESULTS OF WRITE COMMAND

040106

0C4736
000137

004737

020562
020564
1082 020570
1083

SEEK

11-APR-80 13:17:48 PAGE

104000

000605
000240
104000
004736
000137

1080
1081

MACRO v03.01

150%:

JSR
BR
NOP
EMT
JSR

1808

;G0 _TO 1508 IF NO ERROR
;RETURN HERE If ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;60 TO 180% IF ERROR

1608

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

PC,a(S5P)+

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

PC,DTASTS

;RETURN HERE

ERROR

CIRMNAO RMOS5/372 FCINL TST 2

MACRO v03.01

FORMAT W/ MID TRANSFER SEEK

1100 020676
1101 020676

020672

000137

020716

004737

040740

020704
020706
020710

000240
104000
004736

020702

020712

1102 020716
1103

000405

000137

11-APR-80 13:17:48 PAGE

1608:

JMP

1808

JSR

PC,SECERR

B8R

NOP
EMT
JSR

020716

1708:

JMp

12-35

SEQ 0107

;60 TO 180% IF ERROR
;60 CMECK FOR SECONDARY ERRORS

1708

160 TO 1708 IF NO ERROR

JRETURN HERE ]F ERROR
SERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

PC,a(SP)+

1808

$60 TO 180$ IF ERROR

}}8g 020716

1808 :

1106

:. 1 4223222 2 XX A XX R A A R R R R R R R R R R R E R R R R R R R R

SeTEST
B

020716
020716
020720
020722
020726
020732
1107 020736
1108
1109
1110
1111
1112
1113
}}}é
1i16

1117
1118
1119
1120

020744
020752
020760
020766
2077264

000004
000240
012706
013700
013701
012737

001100
001276
001464
000016

001226

012737
012737
012737
012737
012737

000000
000000
010000
176774
101206

001444
001416
001642
001412
001414

021002

012737

000062

021010
021014
021016
021022
021026

004737
000405
104401
104000
000137

034276
063120

012737
012737
004737

064620
000001
036224

004737

033352

021030
021030
021036
021044

}}g; 021050

1122
1124 021050
021056

154130

iii2

TSle

001410

001174
001176

FORMAT

2222422

SCOPE
NOP
MOV
MOV
MOV
MOV

W/
A

IMPLIED
R

R R R ZE R R R

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

R E R R R R XX R R RS R R RN R R RN}

SEEK
X

R E Z

ZEZ R

108:

208 :

THAT

JSR
BR
TYPE
EMT
JMP
MOV
MOV
JSR

SECTOR

IS NOT B8AD

PC.BADSCY
10%
,SCTIMSG
1808

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

XXX}

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

JSETUP PARAMETERS FOR GENERATING DATA BUFFER
MOV
#0,RMDCO
:CYLINDER = 0
MOV
#0,RMDAD
JTRACK = 0, SECTOR = 0
MOV
lFHle.RHOFO
;16 BIT FORMAT
MOV
#-258.+2 ,RMWCO
:WORD COUNT FOR 2 SECTORS
MOV
#BUF ONE ,RMBAO
;DATA BUFFER ADDRESS
MOV
#uH,RMCS 10
:WRITE HEADER AND DATA
JVERJFY

021534

(2'S COMP)

;CALL BAD SECTOR MODULE
;GO TO 108 IF NO ERROR
;TYPE BAD SECTOR MESSAGE
JERROR # DEFINED 8Y BADSCT SUBRCUTINE
260 TO 1808 IF ERROR
;USE ALL ZEROS DATA PATTERN
;60 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 AVAJLABLE

;CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
sPACK

ACKNOWLEDGE

VOLUME

*VERIFY PACK ACKNOWLEDGE

NOT

VALID

;RECALIBRATE IF *'SKI'* OR ''PIP'" IS SET
021056
021060
021062
021064

000404
000240
104000
000137

021534

B8R
NOP
EMT
JMP

0%
180%

SVERJFY RECALIBRATION
;60 TO 30% IF NO ERROR
JRETURN HERE 1F ERROR
ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 180% IF ERROR

RMOS5/3/72 FCINL TST 2
IMPLIED

SEEK

13:17:48 PAGE

12-36

SeEa 0108

000404
000240
104000

021160
021164
021170

004737
004737

037024
037722

021170
021174
021176
021200

004737
000404
000240

037110

000137

021534

004737
000405
000240

065226

104000
004736
000137

— AN
oro

el
el

:SETUP PARAMETERS AND EXECUTE SEEK TO GET DRIVE OFF CYLINDER
MOV
RMDCO, 1908
:SAVE CYLINDER ADDRESS
MOV
#822..RMDCO
sSEEK TO LAST CYLINDER
MOV
#SEEK'GO,RMCS10 + CHANGE COMMAND TO SEEK
MOV
MOVB
MOVB

MOVB

MovB

037360

021534

104000

&H &

001444
001466
000005
001551
000006
000034
000032
000000
000200

[elele]
oOoOnry

NNONONONONININW

NONNNNSNNNNN
W
NN
O WNINWN
~N
NN
NN

OO0

i i e e e e e

NS0
o

NN
= = O N~

osrrnoony

(> B Vol P ol o

i d o el e

— el i et e e e OO

NN
NRONOTNINON

11-APR-80

30%:

000137

NN NN

OO0O0O0O0O0O0O0OO
OCOO0O0O00

00 NO VN

L2 a2k o af 2R 2R V)
NOWES WA= O O
- O O

021070

OCOO0O0O000

N A M LN AN AN N N PO NI NI N
AN U

i
it

el
s

D
e

) e

D il i

D s
D

s
e
b
B

b
S

el
il

sl v

o
il

il ol

i
)

ol
-l o
il
b

— i

(VP
oP

(o gl Yo Xo SV IV TV TV IV LV IV IV }
WA = OO0 ~NO N
Wi

b
il
D

el e
b
)

il
el

ol
el

el andd

el
il

ol
el

)

el el

—

= OO0
NO N

FORMAT

MACRO v03.01

JSR
BR
NOP

PC,PUT
40%

JMP

180%

50%:

;G0 TO 408 ]F NO ERROR
;RETURN HERE 1F ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;6C TO 180% IF ERROR

JSR

PC.TIMOUT

;60 READ SEEK STATUS

60%:

JSR
BR

PC.GET
60§

EMT
JMP

1808

;VERIFY THt RESULTS OF
JSR

NOP
EMT
JSR

021534

70%:

001444
001410

JMP

TO COMPLETE

;GO TO 180% IF ERROR

THE SEEK COMMAND
;60 VERIFY RESULTS OF

PC,al(SP)+

1808

FOR SEEK

.60 READ REGISTER(S) WITH GET SUBROUTINE
;G0 TO 60% ]F NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE

PC,SEKSTS

70$

;WAIT

;GO TO 708 IF NO ERROR

;RETURN HERE

SEEXK OPERATION

ERROR

;ERROR # DEFINED BY SEKSTS SUBROUTINE
;60 BACK FOR MORE ERROR C(HECKS

;GO TO 180% IF ERROR

;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
MOV
1908, RMDCO
sRESTORE DISK ADDRESS
MOV
#WH'GO,RMCS10
JWRITE HEADER AND DATA
MOV
#PUTINX+3,R2
SEXTEND REGISTER INDEX TABLE
MOVE
#RMWC, (R2)+
MOVB
#RMBA.(R2)+
MOVB
#RMCST,(R2)e
MOVB
#200,(R2)+

JSR

NOP

021534

;60 WRITE REGISTER(S) WITH PUT SURROUTINE

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

037360

000137

INDEX TABLE

#RMCST, (R2)+

#200, (R2)+

NOP

021536
000063
001554
000002
000004
000000
000200

;WRITE REGISTER

WRMOF . (R2)+

MOVB

EMT

40%:

#PUTINX,
R2
#RMDA, (R2)+
W#RMDC.(R2)+

80%.

EMT
JMP

PC,PUT

80$

180%

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

.60 TO 80% IF NO ERROR

;RETURN HERE 1f ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

;60 TO 180% IF ERROR

RM05/3/2 FCINL TST 2
s
ed d

coocooo
Lo fo
IaNTeo
JV]

—d
e
ek
s

FORMAT

IMPLIED

004737

037722

004737
000404
000240

037110

000137

021534

004737
000405
000240

040106

Wi
= O

~N NN~

il
) el ol

el ool nd

106000

—

SEEK

MACRO v03.01

;WAIT

—

004737
000405
000240

~NO

~N-~

—

——

004737
000405
000240

052622

021534
040740

90%:

GO OD 0000
~N -~
WA
— OO0

0o Qo On O U 0o
00
~NO N
0000

wh—=O

s
el

D e
s

i
il

—

)

Dl
il
il

)
il
sl

—

il
il
ol

el
—

—

021406

012737

000053

0214614
021420
0214622
0214626
021426
021432

004737
000404
000240

037360

000137

021534

021432

004737

037722

021436
021442
021444
021446
021450
021454

004737
000404
000240

037110

000137

021534

021454
021460

004737
000405

040104

104000

NOP
EMT
JMP

PC,GET

;60 READ REGISTER(S) WITH GET SUBROUTINE

;60 _TO 908 IF NO ERROR

90%

;RETURN HERE 1F ERROR
;ERROR # DEFINED BY GET SUBROUTINE

;GO TO 180% IF ERROR

180%

JVERIFY RESULTS OF WRITE COMMAND
JSR
BR

100%:

110%:

PC,PRIERR

100%

120%:

.60 CHECK FOR PRIMARY ERRORS

;60 TO 1008 IF NO ERROR
;RETURN HERE

EMT
JSR
JMP

ERROR

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

;GO TO 180% IF ERROR

JSR
BR
NOP
EMT
JSR
JMP

;G0 VERIFY RESULTS OF DATA TRANSFER
;60 TO 1108 IF NO ERROR
;RETURN HERE
(SP)+

JSR
BR

104000

021534

9
12-37

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

ECERR

NOP

004736
000137

021402
021406

JSR

JSR
BR

104000

004736
000137

FOR WRITE

NOP

02153¢4

F
13:17:48 PAGE

SeEQ 0109

104000

004736
000137

11-APR~80

ERROR

;ERROR # DEFINED BY DTASTS SUBROUTINE

.60 BACK FOR MORE ERROR CHECKS

;G0 TO 180% If ERROR

:60 CHECK FOR SECONDARY ERRORS

;G0 _TO 1208 IF NO ERROR

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

EMT
JSR
JMP

;GO TO 180% IF ERROR

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

130%:
JWAIT

NOP
EMT
JMP

FOR WRITE
JSR

JSR
BR

NOP

1640%:

EMT
JMP

PC,PUT

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE
.60 70 1308 IF NO ERROR

130%

:RETURN HERE

ERROR

;ERROR # DEFINED BY PUT SUBROUTINE

;GO TO 1808 IF ERROR

180%

CHECK

TO COMPLETE AND GET

STATUS

PC,TIMOUT

;WAIT FOR WRITE CHECK TO FINISH

PC,GET

1408

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

180%

:ERROR # DEFINED BY GET SUBROUTINE
;GO TC 1808 IF ERROR

;RETURN HERE

ERROR

JVERIFY THE RESULTS OF WRITE CHECK OPERATION
PC,PRIE RR
JSR
;60 CHECK FOR PRIMARY ERRORS
BR

1508

;G0 TO 1508 If NO ERROR

CZRMNAQ RMOS/3/2 FCINL TST 2
FORMAT

021662
0216464
021666
1194
1195

021470

021674
021476

021500
021502
021504
021506

021510

1196 021514
1197 021514

021520

IMPLIED

000240
104000
004736

SEEK

000137

021534

004737

052622

000405
000240
104000
004736

000137

021534

004737

040740

000405

MACRO v03.01

11-APR-80

13:17:48 PAGE

SEQ 0110

1508:

1608
:

NOP
EMT
JSR

PC,a(SP)¢

1808

:GO TO 180% IF ERROR

JSR

PC,DTASTS

;60 VERIFY RESULTS OF

JMP

PC,a(S5P)+

JSR

PC,SECERR

;60 CHECK FOR SECONDARY ERRORS

NOP
EMT
JSR
JMP

PC,a(SP)+
180%

JRETURN HERE IF ERROR
*ERROR # DEFINED BY SECERR SUBROUTINE
;GO0 BACK FOR MORE ERROR (CHECKS
160 TO 1808 IF ERROR

JMP

1608

1808

1708

000240
104000
wuL736
000137

}%8? 021534

000401

1808:

2008

}%8§ 021536

000000

190%:

.WORD

1708 :

1204 021540
1205

;«TEST

:G0 TO 1708 IF NO ERROR

:TEMPORARY STORAGE

A A RS A s AR

d s

EACH SECTOR ADDRESS

FORMAT

N R

“'-t't'.'t".tt.t"""""t't"'.t't".'t.t'tlt"ttl'ttt.t'tt"l'

021540
021540
021542
0215644
021550
021554
1207 021560

000004
000240
012706
013700
013701
012737

001100
001276
001464
000017

001226

1208
1209 021566
1210 021576
}§}5 8312?5

012737
012737
012737

000000
000000
010000

001444
GOl4l6
001442

1213 021610
1214 021616
}g:g 0216264

012737
012737
012737

177376
101206
000062

001412
001414
001410

021632
021636
021640
021644
021646

004737
000405
104401
104000
000137

034276

1220 021660
1221 021666

012737
012737
004737

001416
000001
036224

1222 021672

:6G0 TO 1808 IF ERROR

2008
:

]206

1218 021652
1219 021652

DATA TRANSFER

:G0 TO 160% IF NO ERROR
‘RETURN HERE IF ERROR
SERROR # DEFINED BY DTASTS SUBROUTINE
;60 BACK FOR MORE ERROR CMECKS

021534

;RETURN HERE IF ERROR
SERROR # DEFINED BY PRIERR SUBROUTINE
;60 5ACK FOR MORE ERROR CHECKS

BR
NOP
EMT
JSR

021522
021524
021526
021530
}}gg 021534

1217

12-38

1$117:

SCOPE
NOP
MOov
MOV
MOV
MOV

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

;SETUP PARAMETERS FOR GENERATING DATA BUFFER
MOV
#0,RMDCO
:CYLINDER = 0
MOV
#0.RMDAO
:TRACK = 0, SECTOR = 0
o
MOV
#FMT16,RMOFO
:16 BIT FORMAT

MOV
MOV
MOV

#-258. ,RMWCO
#BUF ONE ,RMBAOD
#WH,RACS10

;VERIFY THAT SECTOR IS NOT BAD
JSR
PC.BADSCT

063120

022302
001174
001176

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

108
:

208:

BR
TYPE
EMT
JMP

10$
,SCTMSG

MOV
MOV
JSR

#RMDAD,$TMPO
01,8TMP1
PC,GENBUF

1908

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

;CALL BAD SECTOR MODULE
:60 TO 108 IF NO ERROR
:TYPE BAD SECTOR MESSAGE
JERROR # DEFINED BY BADSCT SUBROUTINE
160 TO 1908 IF ERROR
;USE SECTOR FOR DATA PATTERN
;60 GENERATE DATA BUFFER

RMO5/3/72 FCINL TST 2
S
PV

A% 121,

MACRO v03.01
FORMAT EACH SECTOR ADDRESS

004737
154130

;PREPARE

033352

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

DEVICE

JSR

JWORD

FOR DAT A

PC,TSTPR

SEQ 0111

TRANSFER

154130

;PREPARE DEVICE FOR TEST

STASK DESCRIPTOR AS FOLLOWS:

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

VOLUME

*VERIFY PACK ACKNOWLEDGE

NOT

VALID

SRECALIBRATE IF ''SKI"” OR 'PIP"* 1S SET

NN
O W
NNV
~N

gy
o
R
R

el e

021754

NN
AN N
NNNNNNNNN

i i et O O

000404
000240
104000
000137

— e

OO NO VNS WA —=OVO~NO

D el
)
i
)
il
D
el
il
el
el

[aSAaS TN T VT NT V1,81, 87 8], V1,91, V1 ,81,§]
L ol ad el o ol ol ol Y LV LV TN I S 1 S T,

021700
021702

021760

NOP

022302

000063
001551
000006
000034
000032
000002
000004
000000
000200

000137

022302

021776
022002

004737
004737

037024
037722

022006
022012
022014
022016
022020
022024

004737
000404
000240

037110

000137

022302

022024
022030
022032
022034

004737
000405
000240

040106

022036
022040
022044
022044
022050
022052

0014610

106000

104002

004737
000405
000240

ERROR

:WRITE HEADER AND DATA
SWRITE REGISTER INDEX TABLE

JSR

PC,PUT

;60 WRITE

B80S:

EMT
JMP

80$

1908

:G0 TO 80$ IF NO ERROR
:RETURN HERE

WITH PUT

ERROR

-ERROR # DEFINED BY PUT
260 TO 190$ IF ERROR

SUBROUTINE

;SETUP INPUT REGISTER BUFFER FOR READING STATUS
JSR
JSR

PC,GETSTS
PC.TIMOUT

:WAIT

JSR

PC,GET

;GO READ REGISTER(S)

NOP

EMT

90%:

JMP

90$

1908

;VERIFY RESULTS OF WRITE COMMAND
JSR

NOP

052622

*RETURN HERE

“ERROR # DEFINED BY TSTPRP SUBROUTINE
260 TO 1908 IF ERROR

#WH'GO,RMCS10
#PUTINX,R2
#RMDA,(R2)+
WRMDC.(R2)+
#RMOF
. (R2)+
WRMWC.(R2)+
#RMBA.(R2)+
#RMCST,(R2)+
#200,(R2)+

NOP

022302

160 TO 308 IF NO ERROR

MOy
MOV
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB

104000

004736
000137

190%

*VERIFY RECALIBRATION

:SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND

037360

021764
021766
021770
021772
021776

30s:

EMT
JMP

308

1008

PC,PRIERR

1008

FOR COMMAND TO COMPLETE
WITH GET

:GO TO 908 IF NO ERROR
"RETURN HERE

ERROR

*ERROR # DEFINED BY GET

260 TO 190% IF

ERROR

SUBROUTINE

:60 CHECK FOR PRIMARY ERRORS

160 TO 1008 IF NO ERROR
:RETURN HERE

ERROR

EMT
JSR

PC,a(SP)+

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

JSR

PC,DTASTS

:60 VERIFY RESULTS OF

JMP

NOP

1908

1108

260 T0 1908 IF ERROR

DATA TRANSFER

:G0 TO 1108 IF NO ERROR
"RETURN HERE

ERROR

CZRMNAOQ RMO5/3/72 FCINL TST 2

FORMAT

MACRO v03.01

EACH SECTOR ADDRESS

104000

nro

004736
000137

004737
000405
000240

022302

1108
:

060740

[o N e SV, IV IV IV IV ]
= OO0
~NI W

il
D
el
el
o

L1, %1, VT, 91,
V1,81,V

022120
022124
022126
022130
022132
1262 022136

(V. ],V

[«
BT

i
il
-

~N~NO
O
— OV
N~

NN~

[V,

—

il congld

rornonN

—

[AV 1,1,
V1, %)

1263
1264
1265 022136
1266
1267 022142

022146
022150
022152
022154
022160

022160
022164
022166
022170
022172
022174
022200
022200
022204
022206
022210
022212
022214
022220
022220
022224
022226
022230
022232

022234
022240

004737
000404
000240

037360

102212

022302

004737

037722

004737
000404
000240

037110

000137

022302

006737

040106

120%:

00141 0
00141 3

004737
000405
000240

JSR

130%:
:WAIT

004737
000405
000240

FOR READ
JSR

JSR

NOP

160%:

1208

PC,a(SP)+

1908

EMT
JMP

PC,PUT

1308

1908
TO COMPLETE
PC,TIMOUT

PC,GET

1408

1908

NOP

022302

052622

150%:

EMT
JSR
JMP

PC,a(SP)+

JSR

PC,DTASTS

NOP

022302

040740

1608:

1608

PC.a(SP)+

JSR

PC,SECERR

JMP

EMT
JSR

1708:

1908

EMT
JSR

NOP

022302

SEQ 0112

JERROR # DEFINED BY DTASTS SUBROUTINE
.60 BACK FOR MORE ERROR CHECKS
;60 TO 190% If ERROR

;GO CHECK FOR SECONDARY ERRORS
;G0 _TO 120% IF NO ERROR
;RETURN HERE ]F ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;60 TO 190% IF ERROR

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

;60 TO 130% IF NO ERROR
;RETURN HERE

ERROPR

;ERROR # DEFINFD BY PUT SUBROUTINE

;G0 TO 1908 IF ERROR
AND GET STATUS
JWAIT FOR READ

TO COMPLETE

;6O READ REGISTER(S) WITH GET SUBROUTINE
;60 TO 140% IF NO ERROR
RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;G0 TO 190% IF ERROR

;VERIFY THE RESULTS OF READ OPERATION
PC,PRIERR
JSR
;60 CHECK FOR PRIMARY ERRORS
BR
1508
;60 TO 1508 IF NO ERROR

104000

004736
000137

EMT
JMP

1064000

004736
000137

JMP

1908

12-40

;READ HEADER AND DATA FOR SECTOR JUST WRITTEN
MOV
#RH!GO,RMCSTO
sREAD HEADER § DATA COMMAND
MOV
#BUF TWO, RMBAD
: CHANGE BUS ADDRESS

104000

004736
000137

PC,SECERR

NOP

000137

000405
000240

JSR

JMP

EMT
JSR

022302

000073

104000

PC,a(SP)+

NOP

012737
012737

104000

EMT
JSR

104000

004736
00G137

11-APR-80 13:17:48 PAGE

JMP

JVERIFY DATA

1908

1708

PC,a(SP)¢

196%

RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;G0 TO 1908 IF ERROR
;G0 VERIFY RESULTS OF DATA TRANSFER
;G0 TO 1608 IF NO ERROR
;RETURN HERE

ERROR

;ERROR # DEFINED BY DTASTS SUBROUTINE

;60 BACK FOR MORE ERROR (CK:(KS

;60 TO 1908 If ERROR

.60 CHECK FOR SECONDARY ERRORS

;GO 10 1708 IF NO ERROR

;RETURN HERE

ERROR

;ERROR # DEFINED BY SECERR SUBROUTINE
.60 BACK FOR MORE ERROR CHECKS

.60 10 1908 If ERROR

MACRO v03.01
FORMAT EACH SECTOR ADDRESS

1279

004737

101206
102212

11-APR-80 13:17:48 PAGE

036462

JSR
LWORD
"WORD

000404
000240
(o Lo do Te Jo Yo Jo Yo To.To ]
Yele - BT QU P AV TSP e)

NOP

EMT
JMP

022302

O==O
oOOoONO
OwroW
ee, 1Y
WO (NN

; INCREMENT

001416
000037

001416

021610

190%:

12-41

PC.CMPBUF
BUFONE
BUFTWO

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

1808

‘6L TO 1808 IF NO ERROR
"RETURN MERE

INC

C(MPB
BLO
JMP

AND

ERROR

"ERROR # DEFINED BY CMPBUF
60 T0 1908 IF ERROR

1908
ADDRESS

SEQ 0113

FORMAT

RMDAD

SUBROUTINE

SECTOR

;ADVANCE SECTOR COUNT

#31..RMDAC
1908
5¢

*DONE ALL SECTORS??
TYES!!
G0 DO NEXT SECTOR

;""".."."""""""""".".'....".'...'."""..'.'."'.

SRTEST

FORMAT

EACH

TRACK ADDRESS

".'.""i'...tt"""t"'t'"""".'...'.""'.".""""'.'."'

022302
022302
022304
022306
022312
022316
022322

001100
001276
001464
000020

022330
022336
022344
022352
022352
022360
022366

001644

012737
012737
004737

001416
000001
036224

023044

033352

CALL

#STACK,SP

:START OF TEST
sINITIALIZE STACK

TSTQUE ,R1

J(R1)

$BASE RO

MOV

#20,8TESTN

POINTER

;RO = UNIBUS ADDRESS
;:SET

= DEVICE

BEING TESTED

TEST NUMBER

[N APT MAIL BOX

JSETUP PARAMETERS FOR GENERATING DATA BUFFER
s

MOV
MOV

#0,RMDCO
#0,RMDAO

;CYLINDER = 0
;TRACK = 0, SECTOR = 0

MOV

#-258. ,RMWCO

;2 + 256 WORDS

MOV

MOV
MOV

#EMT16,RMOFO

#BUFONE ,RMBAO
#WH,RMCS10

JVERIFY THAT SECTOR IS NOT BAD
JSR

PC,BADSCT

TYPE

,SCTMSG

063120

000137

;SCOPE

MOV

001226

000062

034276

SCOPE

NOP
MOV

177376
101206

—_~

022634
022440

000000
000000
010000

022374
022400
022402
022406
022410
022414
022414
022422
022430
022434

1S720:

000004

—_
wWo

P sl
il
)
D
)
) el

000137

21,81, S, N1, ST,N1, V].N1,¥1.N1

104000

CZRMNAD RMO5/3/72 FCINL TST 2

108

20%:

:16 BIT

FORMAT

(2'S COMP)

;DATA BUFFER ADDRESS
JMRITE HEADER AND DATA

sCALL BAD SECTOR MODULE

10%

;60 TO 10% IF NO ERROR

EMT
JMP

190%

;ERROR # DEFINED BY BADSCT
;G0 TO 1908 If ERROR

MOV
MOV
JSR

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

;TYPE

:USE

BAD

SECTOR MESSAGE

SUBRC TINE

TRACK FOR DATA PATTERN

;60 GENERATE DATA BUFFER

:PREPARE DEVICE FOR DATA TRANSFER
JSR

.WORD

PC,TSTPRP

154130

;PREPARE DEVICE FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:

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

I1F

VOLUME

SVERIFY PACK ACKNOWLEDGE

NOT

VALID

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

RMOS/3/72 FCINL TST 2
MACRO v03.01
fORMAT EACH TRACK ADDRESS

000404
000240

NOP

004737
000404
000240

037360

000137

023044

022540
022544

004737
004737

037024
037722

022550
022554
022556
022560
022562
022566

004737
000404
€ )0240

037110

000137

023044

022566
022572
022574
022576
022600
022602
022606
022606

004737
000405
000240

040106

022612
022614
022616
022620
022622
022626
022626
022632
022634
022636
022640
022642

el
el
b

[elalelelolelNelole]

BV
VT N1,
VT
T )
[N, N7 VT VY V] VI
VT T VT V)
VIWMWAVAWA
VWA
VI
IV N1, ¥
— et OO

d 2 OO

[AF I ST N1 N1 N1 V1, V] V], V]
NNNNNNNNN
ORI
O W
ANIPRONIPONINININ
~

OrNOONN

023044

000063
001551
000006
000034
000032
000002
000004
000000
000200

O 00 ~NO WV S

000137

LA AN T R
eP
Ve ]
N=OO0VNO
NS WWN—O O

VW)

W
— O

D
el
il e
il
D
D
D el

LY AV IV LV [V TV LWV
et ad Yok

D
s
e
s
el
et

M LN AN U NN N
(AN 1 ST, 1 V1, V], ¥],§)

b
ad cndd
b
—

AN
N
AN NN

104000

30%:
0014610

MOV
MOV

004737

052622

023044

004737
000405
000240

040740

JSR
BR
EMT

80%:

023044

#UH'GO,RMCS10
#PUTINX,R2

WRMCST,(R2)+

MOVB

JMP

*RETURN HERE

ERROR

;WRITE HEADER AND DATA
“WRITE REGISTER INDEX TABLE

#RMBA.(R2)+

#200,(R2)+
PC,PUT
80%

1908

;60 WRITE REGISTER(S) WITH PUT
160 TO 808 IF NO ERROR
:RETURN MERE

ERROR

:ERROR # DEFINED BY PUT

560 TO 1908 IF

ERROR

SUBROUTINE

JSETUP INPUT REGISTER BUFFER FOR READING STATUS
JSR
JSR

PC,GETSTS
PC.TIMOUT

:WAIT

JSR
BR

PC,GET
90$

:60 READ REGISTER(S) WITH GET
:GO TO 908 IF NO ERROR

JMP

190%

NOP
EMT

90%:

;VERIFY RESULTS OF WRITE COMMAND
JSR

1008

TO COMPLETE

"RETURN HERE IF ERROR
;ERROR # DEFINED BY GET

160 TO 1908 IF

ERROR

:RETURN HERE

ERROR

160 TO 1908 IF ERROR

JSR

PC,DTASTS

;G0 VERIFY RESULTS OF

1108

SUBROUTINE

260 TO 100$ IF NO ERROR

1908

JMP

SUBROUTINE

;60 CHECK FOR PRIMARY ERRORS

PC,a(SP)+

BR
1108

PC,PRIERR

FOR COMMAND

EMT
JSR

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

:6G0 TO 1108 IF NO ERROR
:RETURN HERE

ERROR

EMT
JSR

PC,alSP)+

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

JSR

PC,SECERR

;60 CHECK FOR SECONDARY ERRORS

JMP

NOP

104000

1908

“ERROR # DEFINED BY TSTPRP SUBROUTINE
260 TO 1908 IF ERROR

MOVB

MOVEB

NOP

000137

svERIFY RECALIBRATION
:GO TO 308 IF NO ERROR

WRMDA, (R2)+
#RMDC.(R2)+
#RMOF
. (R2)+
W#RMWC.(R2)+

NOP

023044

SEG 0114

308

MOVB
MOVB
MOVB
MOVB

NOP

004736
000137

EMT
JMP

9
12-42

;SETUP AND EXECUTE WRITE HEADER AND DATA COMMAND

104000

000405
000240
104000
004736

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

EMT
JSR

JMP

1908

1208

PC,a(SP)+

190¢

:GO TO 1908 IF ERROR

260 TO 120% IF NO ERROR
*RETURN HERE

ERROR

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

260 TO 1908 If ERROR

RMOS/3/2 FCTINL TST 2

MACRO v03.01

—h
i i
D e
b

WNAN
AN NN NN
o a2l
b VAl

FORMAT EACH TRACK ADDRESS

022646
022646
022654

012737
737

000073

004737
000404
000240

037360

000137

023044

004737

037722

004737
000404
000240

037110

000137

023044

004737
000405
000240
104000
004736

040106

~NO W
OV

o
e
b
e
e

NN NN NN
(VP 2l o a¥ ol o

—

PN
NN N
[ASTAS T ST ST NT,NT, €1, 81,8

OO0O0O0O0OO0O00O

e
b
-

WN NN
(W AV IV TV |
SN
—

104000

022770
022772
022774
022776
023002
023002
023006
023010
023012
023014
023016
023020

1363
1364
1365 023024

12-43

SEa 0115

120%:

104000

022750

11-APR-80 13:17:48 PAGE

102212

000137

023044

004737
000405
000240

052622

104000
004736

000137

023044

004737
000405
000240

040740

sREAD HEADER AND DATA FOR SECTOR JUST WRITTEN

001416

023044

004737

036462

104000

#RH'GO,RMCS10
#BUF TWO,RMBAD

JSR

PC,PUT

NOP
EMT

130%:
JWAIT

JMP

FOR READ

JSR

NOP
EMT

1408:

JMP

1308

190%
TO COMPLETE

PC,TIMOUT

PC,GET

1408
190%

sREAD HEADER & DATA (OMMAND
; CHANGE BUS ADDRESS
;60 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
AND GET STATUS
;WAIT FOR READ

TO COMPLETE

;60 READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 140% IF NO ERROR
;RETURN HERE IF ERROPR
;ERROR # DEFINED BY GEI SUBROUTINE
;60 TO 1908 IF ERROR

JVERIFY THE RESULTS OF READ OPERATI]ION
JSR
PC,PRIERR
;60 CHECK FOR PRIMARY ERRORS
BR
150%
;60 TO 1508 IF NO ERROR
NOP
;RETURN HERE I1F ERROR
EMT
sERROR # DEFINED BY PRIERR SUBROUTINE
JSR
PC,a(SP)+
;60 BACK FOR MORE ERROR CHECKS
JMP
190%
.GO TO 190% IF ERROR

150%:

NOP
EMT
JSR

160%

:60 VERIFY RESULTS OF DATA TRANSFER
;60 TO 160% IF NO ERROR

PC,a(SP)+

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

JSR

PC,SECERR

JSR

160%:

JMP

EMT

JSR

170$:

JMP

JVERIFY DATA

JSR
.WORD
.WORD

B8R

000240

000137

MOV
MOV

NOP

104000
004736
000137

101206
102212
000404

001410

NOP

EMT
JMP

023044

PC,DTASTS

190%

170%

PC,a(SP)+

190%

PC,CMPBUF
BUF ONE
BUF TWO

180%
190%

;RETURN HERE

ERROR

.60 TO 190% IF ERROR

;GO CHECK FOR SECONDARY ERRORS
;60 TO 1708 IF NO ERROR
;RETURN HERE 1F ERROR
¢ERROR # DEFINED BY SECERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;G0 TO 190% IF ERROR

;G0 COMPARE WRITE, READ DATA BUFFERS
;STARTING ADDRESS OF
¢STARTING ADDRESS OF

WRITE BUFFER
READ BUFFER

;60 TO 180% IF NO ERROR
¢RETURN HERE 1F ERTM "
<ERROR # DEFINED B- .MPBUF SUBROUTINE
.60 TO 1908 IF ERROR

. INCREMENT ADDRESS AND FORMAT NEXT TRACK
180%

CIR MNAO RM0S5/3/2 FCTNL TST 2
MACRO v03.01
120
FORMAT EACH TRACK ADDRESS

1366
1367
1368
1369
}g;?

023026
023030
023036
023040
023044

105237
123737
101002
000137

0014617
001417

11-APR-80

INCB
(MPB
BHI
JMP

190%:

1372

023044
023044
0230646

023050

023054
023060
1573 023064
1374
1375
1376
1377
1378
1379
1380
}gg;

001276
001464
000021

001226

001100

023072
023100
023106
023106
0231164
023122
023130

012737
012737

000001
000000

001444
001416

012737
012737
012737
012737

010000
177376
101206
000062

001442
001412
001414
001410

023136

004737

034276

023144
023150
023152
1384 023156
1385 023156
1386 023164
}ggg 023172

104401
104000
000137

063120
023606

012737
012737
004737

001444
000001
036224

1383

023142

1389 023176
1390
1391
1392 023176
023202

000405

1§121:

000004
000240
012706
013700
013701
012737

RMDAQ+1
RMDAO+1,LSTRK+1
190%
5%

R R R R R R R

X I

FORMAT PRIME CYLINDERS
N

SCOPE
NOP
MOV
MOV
MOV
MOV

#STACK,SP

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

R it

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

sSETUP PARAMETERS FOR GENERATING DATA BUFFER
MOV
#1,RMDCO
sCYLINDER = 1
MOV
#0,RMDAD
sTRACK = 0, SECTOR = 0
5%:
MOV
#FMT16,RMOFO
;16 BIT FORMAT
MOV
#-258. ,RMWCO
;2 + 256 WORDS (2'S COMP)
MOV
#BUFONE ,RMBAO
;DATA BUFFER ADDRESS
MOV
#WH,RMCS10
;WRITE HEADER AND DATA

sVERIFY THAT SECTOR IS NOT BAD
JSR
PC,BADSCT

0011764
001176

JADVANCE TRACK COUNT
;LAST TRACK ?
JYES!!
.60 DO NEXT SECTOR

'TEST 21
e

1244

SEQ 0116

001333

022352

13:17:48 PAGE

10$:

10$

sCALL BAD SECTOR MODULE

;60 TO 108 IF NO ERROR

TYPE
EMT
JMP

.SCTMSG
"
190%

sTYPE BAD SECTOR MESSAGE
JERROR # DEFINED BY BADSCT SUBROUTINE
;GO TO 190% IF ERROR

MOV
MOV
JSR

#RMD(O,$TMPO
#1,9TMP1
PC,GENBUF

JUSE CYLINDER FOR DATA PATTERN

;G0 GENERATE DATA BUFFER

20%:

0064737
154130

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

033352

sCLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NC~TM VALID
JVERIFY PACK ACKNOWLEDGE

023206
023206
023210

023212

000404
000240
104000
000137

023606

1395
1396 023216

012737

000063

}ggz 023216

30%:
001410

BR
NOP
EMT
JMP

30%

190%

JRECALIBRATE IF ''SKI'' OR ''PIP'' IS SET
JVERIFY RECALIBRATION

;60 TO 30% IF NO ERROR
RETURN HERE IF ERRQR
JERROR
# DEFINED BY“TSTPRP SUBROUTINE
;GO TO 190% IF ERROR

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

- —

Bal
-]
O

N 9
11-APR-80 13:17:48 PAGE 12-45
MOV

[[0}Y:]
MOvB

MOvB

MOV8
MOVB
MOv8
MOVB
JSR
BR
NOP

000200
037360

023606

0233C2

004737

023306
023312
023316

004737
004737
000404
023606

90%:

004737
000405

000240
104000
004736
000137

004737
000405
000240

023606

100%:

052622

023606

1108:

040740

023606

1208:
SO

012737
012737
004737
000404
000240
104000

JSR
JSR
BR
NOP
EMT
JMP

INDEX TABLF

#200,(R2)+
PC,PUT

80§

1908

;
GO WRITE REGISTER(S)

WITH PUT

SUBROUTINE

;60 T0 80$ IF NO ERROR
‘RETURN HERE IF ERROR
“SRROR # DEFINED BY PUT SUBROUTINE
S0 T0 1908 IF

ERROR

PC,GETSTS

PC,TIMOUT
PC,GET

90%

190%

JWAIT FOR COMMAND TO COMPLETE
;60 READ REGISTER(S) WITH GET

;60 TO 90% IF NO ERROR

sRETURN HERE

;ERROR # DEFINED BY GET SUBROUTINE
.60 TO

190% IF

ERROR

PC,PRIERR

JSR
JMP

PC,a(SP)+

190$

160 TO 1908 IF

JSR
BR
NOP
EMT
JSR
JMP

PC,DTASTS

;60 VERIFY RESULTS OF

JSR
BR
NOP
EMT
JSR
JMP

PC,SECERR

100%

1108

PC,a(SP)+

190%
1208

PC,a(SP)+

1908

SUBROUTINE

ERROR

JSR
BR
NOP
EMT

104000

004736
000137

#RMCST, (R2)+

JVERIFY RESULTS OF WRITE COMMAND

040106

104000

004736
000137

:WRITE

JWAIT FOR WRITE COMMAND TO COMPLETE AND READ STATUS

—

023410
023416
023424
023430
023432
023434

004737
000405
000240

JSR

023330
023334
023336
023340
023342
023344
418 023350
419 023350
023354
023356
023360
023362
023364
023370
023370
023374
023376
023400
023402
023404
023410

EMT
JMP

#PUTINX,R2
#RMDA, (R2) +
NRM
, (RD)+
DC
NRMOF
, (R2) +
#RMUC
. (R2) +
FRMBA . (R2)+

SEQ 0117

;SETUP INPUT REG ISTER BUFFER FOR READING STATUS

—

023330

000240
104000
000137

80$%:

[elolelalelelelolelolelelole
NN

MACRO v03.01

;G0

CHECK

FOR PRIMARY

ERRORS

160 TO 1008 IF NO ERROR
:RETURN HERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE
260 BACK

FOR MORE

ERROR

CHECKS

DATA TRANSFER

160 TO 1108 IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY DTASTS SUBROUTINE
;60 BACK

FOR MORE

ERROR

CHECKS

FOR SECONDARY

ERRORS

260 TO 1908 IF
;60 CHECK

ERROR

160 TO 120% IF NO ERROR

*RETURN HERE IF ERROR
*ERROR # DEFINED BY SECERR SUBROUTINE
260 BACK

FOR MORE

ERROR

160 TO 1908 IF ERROR

CHECKS

sREAD HEADER AND DATA FOR SECTOR JUST WRITTEN
MOV
#RH!GO,RMCS10
;READ HEADER & DATA COMMAND
#BUF TWO,RMBAO
:CHANGE BUS ADDRESS
MOV
PC,PUT
260 WRITE REGISTER(S) WITH PUT SUBROUTINE
JSR
130s
260 TO 1308 IF NO ERROR
BR
NOP
;RETURN HERE IF ERROR
EMT
;ERROR # DEFINED BY PUT SUBROUTINE

RMO5/3/2 FCINL TST 2
FORMAT PRIME

023436
023442

CYLINDERS

000137

MACRO v03.01

023606

130%:
;WAIT

004737
004737
000404
000240
106000
000137

004737
000405
000240

104000
004736

14641 023544
1442
14643
1644 023544

023550
023552
0235564
023556
023560
023562
023566

160%:

EMT

000137

023606

004737
000405
000240
104000
004736
000137

040740

023606

004737

036462

150%:

1908

:ERROR
¥ DEFINED BY GET SUBROUTINE
;60 TO 1908 IF ERROR

JSR

PC,DTASTS

160%:

JSR

PC, SECERR

EMT
JSR

JMP

:VERIFY DATA

JSR
.WORD
.WORD

NOP

EMT

023606

180%:

001000

1608

PC,a(SP)+

:
1708

1908

EMT
JSR
JMP

NGP

023106

RETURN HERE

PC,al(SP)+

JMP

NOP

001444
001444

023566
023572
023600
023602
023606

:G0 TO 1408 IF NO ERROR

JSR

000404
000240

104000

EMT
JMP

1408

NOP

052622

;GO TO 190% IF ERROR

ERROR

;VERIFY THE RESULTS OF READ OPERATION
JSR
PC,PRIERR
:60 CHECK FOR PRIMARY ERRORS
BR
1508
;G0 TO 1508 IF NO ERROR

040106

004737
000405
000240

000137

1908

SEQ 0118

FOR READ TO COMPLETE AND GET STATUS
JSR
PC,TIMOUT
;WAIT FOR READ TO COMPLETE
JSR
PC,GET
;G0 READ REGISTER(S) WITH GET SUBROUTINE
NOP

023606

101206
102212

JMP

B8R

000137

104000
004736

8 10

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

JMP

1908

170s

PC,a(SP)+

1908

PC,CMPBUF
BUFONE
BUFTWO

1808
1908

ERROR

;ERROR # DEFINED BY PRIERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;60 TO 190% IF ERROR
;GO VERIFY RESULTS OF DATA TRANSFER
;GO TO 160% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;60 TO 1908 IF ERROR
;G0 CHECK FOR SECONDARY ERRORS
;GO TO 1708 IF NO ERROR
¢sRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;G0 TO 1908 IF ERROR

:60 COMPARE WRITE, READ DATA BUFFERS

;STARTING ADDRESS OF WRITE BUFFER

;STARTING ADDRESS OF READ BUFFER

.60 TO 180% IF NO ERROR

sRETURN HERE ]F ERROR
;ERROR # DEFINED BY CMPBUF

;GO TO 1908 IF ERROR

SUBROUTINE

¢ INCREMENT ADDRESS AND FORMAY NEXT PRIME CYLINDER
ASL
RMDCO
;ADVANCE CYLINDER COUNT
cMP
RMDCO,#512.
:gggglALL PRIME CYLINDERS ?
190%
BGT
5¢
JMP
160 DO NEXT CYLINDER
190%:

t't"."tt"""""""""."."'"t".lt'.'t"'."tl"ltl"'

-rfsr 22
AR

023606
023606

000004

15122

SCOPE

READ HEADER & DATA IN LAST SECTOR
RRARARRRRRRRR2

222202

:SCOPE

CALL

RRRRRRRRRRRR

]

RMOS/3/2 FCINL TST 2

MACRO v03.01
READ HEADER € DATA ,N LAST SECTOR

023610
023612
023616
023622
023626

000249
012706
015700
013/01
012737

055100
001276
001464
000022

001226

023636
023642
023650

012737
013737
112737

001466
001332
000036

001444
001416
001416

023656

023664
023664
023672
023700
023706
023712

012737

010000

001442

012737
012737
012737

177376
102212
000073

001412
001414
001410

004737
154130

033352

c 10
11-APR-80 13:17:48 PAGE 12=47

SEQ 0119

NOP
MOV
MOV
MOV
MOV

#STACK,SP
$BASE ,RO
TSTQUE
R
#22,$TESTN

208:

JPREPARE

#822.,RMDCO
LSTRK .RMDAD
#30. RMDAO

STACK

POINTER

UNIBUS ADDRESS
= DEVICE BEING TESTED
TEST NUMBER

;SETUP PARAMETERS FOR READING LAST

MOV
MOV
MOVB

TEST

ALIZE

IN APT MAIL BOX

SECTOR

sLAST CYLINDER

sSET LAST TRACK AND

:LAST SECTOR

MOV

#inti6,RMOFO

216 BIT FORMAT

MOV
MOV
MOV

#-258. ,RMWCO
#BUF TWO, RMBAO
#RH'GO,RMCSTO

;2 ¢ 256 WORDS (2'S (OMP)
<DATA BUFFER ADDRESS
sREAD HEADER AND DATA

DEVICE

JSR
JWORD

FOR DATA

PC,TSTPRP
154130

TRANSFER

;PREPARE DEVICE FOR TEST
sTASK

DESCRIPTOR AS

FOLLOWS:

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

;PACK ACKNOWLEDGE

VOLUME

;VERIFY PACK ACKNOWLEDGE

023714
23716
023720
023722
023726
023726
023732
023736
023742
023746
023752

023756

023762
023766

000404
000240
104000
000137

024112

012702
112722
112722
112722
112722
112722

001551
000006
000034
000032
000004
000002

112722

000200

112722

000000

023766

004737

023774
023776
024000
024004

000240
104000
000137

024112

0264004
024010

004737
004737

037026
037722

0264014

004737

037110

026022
024026

000240
10400(

023772

0264020

000404

308:

037360

BR
NOP
EMT
JMP

1208:

308
1908

#PUTINX,R2
#RMDA, (R2)+
WRMDC.(R2)+
WRMOF. (R2)+
WRMBA.(R2)+
WRMWC. (R2)+

MOVB

#200, (R2)+

#RMCST,(R2)+

JREAD HEADER AND DATA QOF
JSR
PC,PUT

B8R

1308:

NOP
EMT
JMP

1308

1908

VALID

sRECALIBRATE IF °'SK1'' OR "PIP'" 1S SET
SVERIFY RECALIBRATION
;60 TO 308 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;G0 TO 190% IF ERROR

MOV
MOVB
MOVB
MOVB
MOVB
MOVB

MOVB

NOT

;WRITE

INDEX

TABLE

;TERMINATOR

LAST SECTOR
;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 1308 IF NO ERROR
;RETURN HERE ]F ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;G0 TO 190% 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

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 1408 IF NO ERROR
<RETURN HERt

ERROR

;ERROR # DEFINED BY GET SUBROUTINE

CIRMNAO RM0S5/3/2 FCTNL TST 2

MACRO v03.01
READ HEADER & DATA IN LAST SECTOR

122

024026

1488 024032
1489
1490
1691 024032

024036
024040
024042

024046
024066
024052
024052
024056
0246060
024062
024064
024066
024072
024072
024076
024100
024102
026104
024106
1496 026112

000137

024112

004737
000405
000240

040106

1640%:

004737
000405
000240

JSR

004737
000405
000240

1508

024112
052622

1608

026112

040740

PC,a(SP)e

JSR

PC.DTASTS

;G0 VERIFY RESULTS OF

JMP

PC,SECERR

EMT
JSR
JMP

DATA TRANSFER

260 TO 1608 IF NO ERROR

"RETURN MERE |F ERROR
“ERROR # DEFINED BY DTASTS

SUBROUTINE

:60 BACK FOR MORE ERROR CHECKS

1908

:G0 T0 190% IF ERROR

;60 CHECK FOR SECONDARY ERRORS

1708

260 TO 1708 IF NO ERROR

PC,a(SP)+
1908

:ERROR # DEFINED BY SECERR SUBROUTINE
260 BACK FOR MORE ERROR CHECKS
260 TO 1908 IF ERROR

SRETURN MERE

ERROR

. '.."t"".t""'"""'"""'l.""""t".""'t""'t".'tl

LeTEST 23

O—O

dd
—t

OOO00

i
e
D
D
i
sl
i
e
i
el

ERROR

160 TO 1908 IF ERROR

1608

JSR

JMP

190%:

TST?S:

1908

PC,al(SP)+

READ HEADER & DATA W/ AOE ERROR

2223323222232

*RETURN MERE

JSR

NOP

1708:

;60 CHECK FOR PRIMARY ERRORS

SERROR # DEFINED BY PRIERR SUBROUTINE
©60 BACK FOR MORE ERROR CHECKS

026112

PC PRIER

EMT
JSR

NOP
EMT

1497
1498 024112
1499
1500

(VA LNV IV TV LV IV LU IV LV IV IV 1V AV,

;60 TO 190% IF ERROR

260 TO 1508 IF NO ERROR

104000

004736
000137

1908

SEQ 0120

1508

NOP

104000

004736
000137

JMP

12-48

;VERIFY THE RESULTS OF asuo OPERATJON

104000

004736
000137

D10

11-APR-80 13:17:48 PAGE

001226

001332
000036
010000

001416
001416
001442

001466
176774

001444
001412
001414
001410

102212

000073
033352

SCOPE

NOP
MOV

001100
001276
001464
000023

22222222222222222

MOV
MOV

MOV

2222222222222

XXX}

:SCOPE CALL

SSTART OF TEST
CINITIALIZE STACK

#STACK,SP

POINTER

$BASE ,RO

‘RO = UNIBUS ADCRESS

#23,8TESTN

2:SET

TSTQUE ,R1

:(R1)

= DEVICE BEING TESTED

TEST NUMBER [N APT MAIL BOX

;SETUP PARAMETERS FOR READING 2 SECTORS STARTING WITH LAST SECIOR
208

MOV

LSTRK,RMDAQ

SSET

MOV

#FMTI6,RMOFO

;16 BIT

MOVB
MOV
MOV
MOV
MOV

;PREPARE

DEVICE

JSR

.WORD

#30.,RMDAO

#822.,RMDCO
#-258.+2 ,RMUCO
#BUFTWO,RMBAD
#RH'GO.RMCSIO0
FOR

DATA

PC,TSTPRP

154130

LAST

TRACK AND

SLAST SECTOR
;LAST
:READ
:DATA
:READ

FORMAT

CYLINDER
2 SECTORS
BUFFER ADDRESS
HEADER AND DATA

TRANSFER

:PREPARE DEVICE FOR TES

STASK DESCRIPTOR AS FOL LOUS

JSELECT DEVICE & VERIFY DEVICE AVAILABLE
SCLEAR CONTROLLER € SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
JPACK ACKNOWLEDGE 1F VOLUME NCT VALID
JVERIFY PACK ACKNOWLEDGE

MNAO RMOS5/3/2 FCINL TST

000404

NNNSNNNNN
OO
NN
~
W
~N

037360

b d e e
el

001551
000006
000034
000032
000002
000004
000000
000200

s O

— el i e e el el

[Q VI ST VI N1, N1, O] V], V]

024416

[]

[o J V1o Y

N1 N VT NY. W ¥ VT o)

[eleleloloelololololals]
LN 1,1, N1 T N1 NT NT VT NT VTV
Pl o o O o OV L I S S
[,S1,ST,N1
VT N1 VT NT ST N1 ST §)
VIV P
X VVTVITONT
VT VT, N7, V)

LV L,V

Yo lVel. ENT, JV J )

POPOPININ)
= et bt e e

e
D
e
D e
i
i
i
—

gl VIV IV IV IV IV JV IV ]V IV ]

READ HEADER € DATA W/

MACRO v03.01
AOE ERROR

11-APR-80

308

JMP

1908

MOV
MOVB
MOVB
MOVB
MOVB
MOVB

#PUTINX,R2
WRMDA,(R2)+
#RMDC.(R2)+
WRMOF
. (R2)+
FRMWC.(R2)+
#RMBA,(R2)+

MOVB

#RMCST,(R2)e

JSR

PC,PUT

MOVB

i
il
i
el
i
D

= OV
~NO W

(VP
J V] )

(U AV LV IV )
(v AV IV V]

e
e

A ALV LV LV LV LV 1V ]
WP
N

NOP

024310
026310
024314

004737
004737

037024
03772¢

024320
024324
024326
024330
024332
024336

004737
000404
000240
104000
000137

037110

024336
024342
024344
024346
024350
024352
024356
026356
024362

004737
000405
000240

024364
024366
024370
024372
024376
024376
024402
024404
024406
024410
024412

4? 024416

024616

004737
000405
000240

024416

040106

024416
0526¢2

004737
000405
000240

040740

190%

JSR

PC,GET

140%:

EMT
JMP

;WRITE REGISTER

INDtX

TABLE

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

;60 TO 130% IF NO ERROR
;RETURN HERE IF ERROP
;ERROR # DEFINFD BY PUT

;GO TO 190% IF ERROR

SUBROUTINE

1408

1908

;WAIT

FOR READ

TO COMPLETE

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

;RETURN HERE IF ERROR
;ERROR # DEFINED BY GET

;G0 TO 190% IF ERROR

SUBROUTINE

;VERIFY THE RESULTS OF READ OPERATION
PC,PRIERR
JSR
:60 CHECK FOR PRIMARY ERRORS
BR
1508
;G0 TO 1508 IF NO ERROR
NOP
;RETURN HERE 1F ERROR
EMT
;ERROR # DEFINED BY PRIERR SUBROUTINE
JSR
PC,a3(SP)
¥
.00 BACK FOR MORE ERROR CHECKS
JMP
190$
;G0 TO 190% IF ERROR
150%:

JSR

160%:

EMT
JSR

PC,a(SP)+

1908

JSR

PC,SECERR

;60 CHECK FOR SECONDARY ERRORS

PC,a(SP)+

;60 BACK FOR MORE ERROR CHE(KS

JMP
BP

EMT
JSR

1708:

PC,DTASTS

;60 VERIFY RESULTS OF DATA TRANSFER
.60 TO 160% IF NO ERROR
;RETURN HERE ]F ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
;G0 TO 190% IF ERROR

NOP

024416

1308

PC.GETSTS
PC.TIMOUT

104000

004736
000137

;60 T0 308 IF NO ERROR
JRETURN HERE ]F ERROR
JEFROR # DEFINED BY TSTPRP SUBROUTINE
;C0 T0 1908 IF ERROR

#200,(R2)+

JSR
JSR

NOP

026416

JRECALIBRATE [F ''SKI'" OR ''PIP'" IS SET
JVERIFY RECALIBRATION

:SETUP INPUT REGISTER BUFFER FOR READING STATUS

104000

004736
000137

EMT
JMP

NOP

104000

004736
000137

130%:

12-49

SEQ 0121

NOP
EMT

310%:

E 10

13:17:48 PAGE

JMP

1608

1708

1968

:60 TO 170% If NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;GO TO 1908 IF ERROR

RMO5/3/72 FCTINL TST 2

READ HEADER & DATA W/

MACRO v03.01

ADE ERROR

024416

F 10
11-APR-80 13:17:48 PAGE 12-50

SEQ 0122

190%:
;:'."'..""."""""""'.'"""""""."".."'"'"""‘

;*TEST 24

il
i
el
el
i
il
e
el
—

NASNASNNAN
NN NN
(VoA
ALV LV IV, P o B o o) o~
VWA
= O V00~ oW

;;'

024416
024616
0264420
024422
024426
024632
024436

000004
000240
012706
013700
013701
012737

001100
001276
001464
000024

02464446

012737

024460
024466
024474
0264502
024510

012737
012737
012737
012737

026510
024514

004737
154130

024452

012737

READ INVALID SECTOR ADDRESS

| 2222222222222

TST¢...

X R

R E E

E R E

KON

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

#STACK,SP
$BASE RO
TSTQUE R
#24,9TESTN

;SCOPE CALL
JSTART OF TEST
JINITIALIZE STACK POINTER
JRO = UNIBUS ADDRESS
J(R1) = DEVICE BEING TESTED
JsSET TEST NUMBER IN APT MAIL BOX

000000

001444

MOV

#0 ,RMDCO

;CYLINDER = 0

000000
101206
177376
000073

001442
001414
001412
001410

MOV
MOV
MOV
MOV

#0,RMOFO
#BUFONE ,RMBAD
#-258. ,RMWCO
#RH'GO,RMCS1O

;18 BIT FORMAT
;s CHANGE BUS ADDRESS
;2 + 256 WORDS (2°'S COMP)
JREAD HEADER AND DATA

000036

033352

001416

MOV

10%:
;PREPARE

DEVICE

JSR
.WORD

'36..RHDAO

FOR DATA

PC,TSTORP
154130

sTRACK = 0, INVALID SECTOR = 30.

TRANSFER

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

JSELECT DEVICE & VERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
;PACK

ACKNOWLEDGE

VOLUME

NGY

VALID

e
=
ol
) el
)
——

[V IV 1V IV IV IV IV IV |
o [« Yo X
SV IV IV SV}
w N=OOONO

JVERIFY PACK ACKNOWLEDGE
SRECALIBRATE IF ''SKI' OR ''PIP'" IS SET

024516
024520
024522
024524
024530

000404
000240
104000
000137

024760

024530
0264534
0264540
024544

012702
112722
112722
112722

001551
000006
000034
000032

024554

112722

000004

024550
024560
0264564

112722
112722

20%:

024570
024574
024576
024600
024602
024606

004737
000404
000240
104000
000137

037360

0264606
024612

004737
004737

u3702 4
03772 P

024760

90%

MOV
MOvVB
MOv8
Move

#PUTINX,R?2
#RMDA, (R2) ¢
#RMDC, (R2) ¢+
#RNOF ,(R2) ¢

MOVB

#RMBA, (R2) ¢+

MovB8

000000

000200

20%

JVERIFY RECALIBRATION

;60 TO 208 IF NO ERROR
:RETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
;60 TO 90% IF ERROR

JSETUP AND EXECUTE READ HEADER AND DATA COMMAND

000002

112722

BR
NOP
EMT
JMP

MOvVB

MOVB

30%:

JSR
BR
NOP
EMT
JMP

JLOAD REGISTER INDEX TABLE

#RMWC,(R2)¢
FRMCST, (R2) ¢
#200,(R2) ¢

;SET TERMINATOR BYTE

PC,PUT
30%

;60 WRITE REGISTER(S) WITW PUY SUBROUTINE
;60 T0 30% IfF NO ERROR
JRETURN MERE IF ERROR
JERROR # DEFINED 8Y PUT SUBROUTINE
;60 TO 90% IF ERROR

90%

;SETUP INPUT REGISTER BUFFER FOR READING STATUS
JSR

JSR

PC,GETSTS

PC.,1ImMOUT

:WAIT FOR COMMAND TO (OMPLETE

(IRMNAQ RMOS5/3/72 FCINL TST 2
MACRO v03.01
126
READ INVALID SECTOR ADDRESS

024616
024622
024624
024626
024630
024634

004737
000404
000240

037110

000137

024760

024634
024640
024642
026644
024646
024650
80 024656
81 024656
024660
024662
024664
026666
026670

004737
000405
000240

040106

5
5
587 026714
588 024720

289 024726

291
92
993
94
95

024730
026736
024740
024746
024754

NOP
40%:

104000

004736
000137

024760

004737

052622

000405
000240

50%:

004737
000405
000240

024760

60%:

040740

104000

004736
000137

PC,GET

024760

r0%:

001416
000037

001416

010000

001442

000037
010000
024510

001416
001442

1597 024760

SEQ 0123

260 READ REGISTER(S) WITH GET SUBROUTINE
.60 TO 408 IF NO ERROR

40§

JRETURN MERE

ERROR

;ERROR # DEFINED BY GET

;G0 TO 908 IF ERROR

90%

JSR
B8R
NOP
EMT
JSR
JMP

90%

JSR
BR

60%

JSR
JMP

PC,a(SP)+
90%

JSR
BR
NOP
EMT
JSR
JMP

PC,SECERR
s

NOP
EMT

104000

004736
000137

EMT
JMP

12-51

SVERIFY RESULTS OF READ COMMAND

024700
024702
024704
024706
024710
P, 84 024714

JSR
BR

NNNO~N

1582 026674
1583 024674

104000

6 10

11-APR-80 13:17:48 PAGE

PC,PRIERR

50%

PC,a8(SP)+

PC,DTASTS

PC,a(SP)e

90§

SUBROUTINE

;60 CHECK FOR PRIMARY ERRORS

;60 TO SO% IF NO ERROR

JRETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE
;60 BACK FOR MORE ERROR (HECKS
;60 T0 90% ]F ERROR
;60 VERIFY RESULTS OF DATA TRANSFER
.60 TO 608 IF NO ERROR
;RETURN HERE IF ERROPR

;ERROR # DEFINED BY DVTASTS SUBROUTINE

;GO BACK FOR MORE ERROR (MHECKS

;G0 TO 908 IF ERROR

;60 CHECK FOR SECONDARY ERRORS

;GO TO 708 [F NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY

SECERR SUBROUT INE

;60 BACK FOR MORE ERROR (MEC(YS

;G0 TO 90% IF ERROR

s INCREMENT ADDRESS AND READ NEXT SECTOR
RMDAO
INC
sADVANCE SECTOR COUNT
#31. ,RMDAD
(MP
.DONE ALL SECTORS??
BHIS

80%

817

SFMT16,RMOFO

BNE

80%:

MOV
MoV

JMP

JNO

90%
#31. ,RMDAQO

FERT16,RNOFO
108

;TEgT

16 BIT

JSET

16 Bl

JTRACK

STEST

AGAIN,

MODE

YET

INVALID

MODE

SECTOR

M QOFFSET AND

90%:
e

2222222222222

TeTEST 25

READ

INVALID

22222

TRACK

RNERN]

ADDRESS

a2 2222222222222
AR
AR
NN ANENN)

024760
024760
024762
024764

024770
024774
025000

16 00
16 01 025006
16 02 025014

15125:

001100
001276
001464
000025
000000
001332

001226
001444

001416

sSCOPE CALL

SCOPE

NOP
Mov
MOV
MOV
MOV
MOv
MOv

#STACK,SP

$BASE ,RO

R
1STQUE
#25,8TESTN

#0,RMDCO
LSTRK,RMDAO

;START OF

TEST

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

= DEVICE BEING

TESTED

s.SET TEST NUMBER IN APT MAlL BOX
;CYLINDER = 0

;LOAD LAST TRACK, SECTOR

1603
1604
160 p)

(=lolelel

0
1
1
1
1

1606
160 7
1608
160 9
161 0
161 1

ST ST, VT I
~N N NN
NN NN
NNNNN

(IR MNAO RMOS/3/2 FCINL TST 2
MACRO v03.01
125
READ INVALID TRACK ADDRESS

004737

154130

11-APR-80

001417
010000

IN(B

177376
101206

000073

033352

10$:

MOV
MOv
MOV
MOV

13:17:48 PAGE

12-5¢2

RMDAQ+1

FEMT16,RMOF0
#-258. ,RMW(O
#BUFONE ,RMBAD
#RH.GO,RMCS10

SEQ 0124

;INCREMENT TO FIRST INVALID TRA(K
:16 BIT FORMAT
;2 ¢ 256 WORDS (2°'S COMP)
;DATA BUFFER ADDRESS
JREAD HEADER AND DATA

.PREPARE DEVICE FOR DATA TRANSFER
JSR
.WORD

PC,ISTPRP
194130

;PREPARE DEVICE FOR
:TASK DESCRIPTOR AS

TEST
FOLLOWS:

JSELECT DEVICE & VERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
;PACK

ACKNOWLEDGE

VOLUME

NI
O
A1, N1, N1,N1,07,§7,¥]
V)

NNNNNNNY

R
W
R

[AVSI1aN1,ST1,N1,8]1,8],V],
V)

it O

el e

S
S

025076

— i e e

000404
000240
104000
000137

[

VR Yo XVels R NT. SV P JUIT V)

025064
025066
025070
025072
025076

POPINININ)
=t e b b b e

mnd
+
o
e
el
)
) el
el
il
et
—

cocoocoocococoocoococoo

;VERIFY PACK ACKNOWLEDGE

004737
000404
000240
104000

BR
025302

001551
000006
000034
000032
000002

004737
004737

037024
037722

025164
025170
025172
025174

004737
000404
000240

037110

000137

025302

004737
000405
000240
104010

004736

ERROPR

.60 TO 808 IF ERROR

MOvB

#200,(R2)+

sSET TERMINATOR BYTE

JSR

PC,PUT

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

NOP
EMT

30%:
;SETUP

JMP

INPUT
JSR
JSR

JSR

EMT

40%:

TABLE

PRMWC, (R2) ¢+
#RMBA, (R2) ¢

NOP

040106

80%

;RETURN HERE

;ERPOR # DEFINFD BY TSTPRP SUBROUTINE

MOvB
MOVB

[ [01]7:]

037360

025154
025160

JMP

20%

VALID

;RECALIBRATE IF ''SK1'' OR 'PIP'" ]S SET
;VERIFY RECALIBRATION
.60 70 208 IF NO ERROR

;SETUP ANg EXECUTE READ HEADER AND DATA (OMMAND
PPUTINX,R2
JLOAD REGISTER INDEX
Mov8
#RMDA, (R2)
+
MovB
FRMDC
, (R2) ¢
MOv8
#RMOF
, (R2) ¢

000000
000200

025302

104000

20%:

000004

000137

025156

NOP
EMT

NOT

JMP

PRM(CST,(R2)¢

30%

80%

NOP
EMT
JSR

ERROR

;ERROR # DEFINED BY PUT SUBROUTINE

;60 T0 80$ IF ERROR

PC,GET

40%

80%

JVERIFY RESULTS OF READ COMMAND
JSR

;60 _TO 308 IF NO ERROR

JRETURN HERE

P(,PRIERR

50%

PC,a(SP)¢

;60 READ REGISTER(S) WITH GET SUBROUTINE

;G0 10 408 IF NO ERROR
;RETURN HERE

ERROR

;ERROR # DEFINED BY GET SUBROUTINE
.60 TO 80S$ If ERROR

;60 CHECK FOR PRIMARY ERRORS
.60 TO 508 IF NO ERROR
;RETURN HERE

ERROR

;ERROR # DEFINED BY PRIERR SUBROUTINE

;GO BACK FOR MORE ERROR (HECKS

MNAQO RMOS5/3/2 FCINL TST 2
MACRO v03.01
READ INVALID TRACK ADDRESS

025216

000137

025302

1637 025222

004737

052622

025230
025232
025234
025236

000240
104000
004736
000137

025302

004737

040740

1636 025222

025226

1638 025242
1639 025242

025246
025250
025252
025256
025256
}22? 025262
1642

16643 025262

1666
1645
1646
1647
1648

025266
025274
025276
025302

000405

000405
000240
104000
004736
000137

105237

123727
101002
000137

508:

001417

13:17:48 PAGE

608:

708 :

12-53
SEQ 0125

JMP

80%

JSR

PC,DTASTS

025302

001417

110

11-APR-80

;60 TO 808 IF ERROR
;60 VERIFY RESULTS OF

60§

$G0 TO 608 IF NO ERROR

NOP
EMT
JSR
JMP

PC,a(SP)+
80§

*RETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
;60 BACK FOR MORE ERROR (CHECKS
260 TO 808 IF ERROR

JSR

PC,SECERR

;60 CHECK FOR SECONDARY ERRORS

BR
NOP
EMmY
JSR
JMP

70$

:G0 TO 708 IF NO ERROR
*RETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
;60 BACK FOR MORE ERROR CHMECKS
260 TO 808 IF ERROR

PC,a(SP)¢
80$

JINCREMENT ADDRESS AND READ NEXT

INCB

000200

025056

80$:

1649

RMDAQ+1

C(MPB
BH]
JMP

AR A AR A A A RN

(*TEST

DATA TRANSFER

RMDAO*1,#128.
80$
10$
AR

R Al A

READ

INVALID

TRACK

;ADVANCE
:DONE

TRACK COUNT

ALL TRACKS??

SYES!!
160 DO NEXi
R

TRACK

R R R R R R R X

CYLINDER ADDRESS

.'.'t'Ittl'tlt""'t'"'t't"t""!'tlt.ttt"t"tt"'t'tttlttt'tt.'

025302
025302
025304
025306
025312
025316
1650 025322
1651
1652
1653
1656
1655
1486
}og;
6

025330
025336
025344
025352
025360
025366
025374

1659
1660 025374

025400

15126:

(00004
000240
012706
013700
013701
012737

001100
001276
001464
000026

012737
012737
012737
012737
012737
012737

0016467
00C000
010000
177376
101206
000073

004737
154130

033352

#STACK,SP
$BASE ,RO

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

TSTQUE R
#26,$TESTN

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

001644
001416
001442
001412
001414
001410

MOV
MOV
MOV
MOV
MOV
MOV

#823..RMDCO
#0,RMDAD
#FAT16,RNOFO
#-258. .RMWCO
#BUF ONE ,RMBAO
#RH'!'GO,RM(CS10

JSTART AT FIRST INVALID CYLINDER
;TRACK = 0, SECTOR = 0
:16 BIT FORMAT
:2 + 256 WORDS (2°'S COMP)
;DATA BUFFER ADDRESS
JREAD HEADER AND DATA

108 :

;PREPARE DEVICE
JSR

LWORD

FOR DATA TRANSFER
PC, TSTPRP
:PREPARE DEVICE FOR TEST

154130

STASK DESCRIPTOR AS FOLLOWS:

SSELECT DEVICE & VERIFY DEVICE AVAILABLE
:CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
JPACK ACKNOWLEDGE

I1F

VOLUME

*VERIFY PACK ACKNOWLEDGE

025602
025604
025406
0256410

000404
000240
104000
000137

025620

BR
NOP
EM?
JMP

208
80%

NOT

*RECALIBRATE IF "'SKI'* OR '"'PIP""
*VERIFY RECALIBRATION

VvALID

1S SET

160 TO 208 I1F NO ERROR
“RETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
.60 TO 80$ IF ERROR

CIRMNAD RMOS/3/2 FCINL TST 2
READ

INVALID

CYLINDER

ADDRESS

025614
NNNNNNNVYY

NN
~N

NN
O

001551
000006
000034
000032
000002
000004
000000
000200

o
i
i
ol
i
e
—t

[pVI, ST, N1, V1,81, Sl N1, V)

025434
025640
0256446
025450

e,
=J

025614
025620
025624
025630

037360

0
000404
000240

000137

025620

025472
025476

004737
004737

037024
037722

004737
000404
000240

037110

000137

025620

004737
000405
000240

040106

025456
025660
025662
025464
025666
025472

104000

1693 025604
1694 025612

004736
000137

004737
000405
000240

12-54

;SETUP AND EXECUTE READ HEADER AND DATA (OMMAND
MOV
#PUTINX,R?
:LOAD REGISTER INDEX TABLE
MOVB
MOVB
MOVB

004736
000137

004737
000405
000240

00523
02372
00200

MOVB

#200, (R2)+

;SET

PL,PUT

;60 WRITE REGISTER(S)

JSR

NOP

30%:

EMT
JMP

JSR
JSR

30$

TERMINATOR BYTE

260 TO 308 IF NO ERROR
“RETURN HERE

WITH PUT

ERROR

:ERROR # DEFINED BY PUT
260 T0 80$ IF ERROR

80%

JSR

:WAIT

PC,GET

;60 READ REGISTER(S)

40%

JMP

80$

NOP
EMT

40%:

PC.GETSTS
PC.TIMOUT

;VERIFY RESULTS OF
JSR

NOP

025620

052622

SUBROUTINE

040740

260 10 80$ IF

READ COMMAND

PC,PRIERR

50%

SUBROUTINE

;60 CHECK FOR PRIMARY ERRORS

260 TO SO$ IF NO ERROR
:RETURN HERE

ERROR

PC,DTASTS

;G0 VERIFY RESULTS OF

60%

160 10 608 IF NO ERROR
:RETURN HERE

DATA TRANSFER

ERROR

EMT
JSR
JMP

PC,a(SP)+

80%

"ERROR # DEFINED BY DTASTS SUBROUTINE
:60 BACK FOR MORE ERROR CHECKS
260 10 80$ If ERROR

JSR

PC,SECERR

;60 CHECK FOR SECONDARY ERRORS

PC,a(SP)+

*RETURN HERE IF ERROR
SERROR # DEFINED BY SECERR SUBROUTINE
260 BACK FOR MORE ERROR CHECKS

JMP

80$

260 10 708 IF NO ERROR

260 10 80% IF

: INCREMENT ADDRESS AND READ NEXT CYLINDER
002000

ERROR

JSR

NOP
EMT
JSR

70%

*RETURN HERE IF ERROR
:ERROR # DEFINED BY GET

SUBROUTINE

PC,a(SP)+
80%

B8R

025620

WITH GE1

260 TO 408 IF NO ERROR

"ERROR # DEFINED BY PRIERR SUBROUTINE
260 BACK FOR MORE ERROR CHECKS
250 TO 80% IF ERROR

025620

FOR COMMAND TO COMPLETF

EMT
JSR
JMP

NOP

001444
001444

#RMCST,(R2)+

;SETUP INPUT REGISTER BUFFER FOR READING STATUS

104000

004736
000137

MOVB
MOVB

#RMDA, (R2)+
WRMDC
. (R¢)+
W#RMOF. (R2)+
WRMWC
. (R2)+
WRMBA. (R2)+

MOVB

104000

NN~

1690
1691
1692 025600

13:17:48 PAGE

SEQ 0126

104000

025540
025540
025544
025546
025550
025552
025554
025560
025560
025564
025566
025570
025572
025574
1689 025600

11-APR=-B0

20$8:

126

MACRO v03.01

INC

(MP
8GE

RMDCO

RMDCO, #1024,
80%

:ADVANCE

ERROR

CYLINDER

COUNT

SDONE ALL CYLINDERS??
SYES!!

K10

CZRMNAQ RMO5/3/2 FCINL ST 2

126

MACRO v03.01
INVALID CYLINDER ADDRESS

READ

1695 0256164

1696 025620
1697
1698

000137

02537¢

11-APR-80 13:17:48 PAGE

SEQ 0127
JMP

80%:
M

AR A

TeTEST 27
A

1§127:
700

12
16

OV
NN = OO

i
il
) el
i
—

NNNN NNN~N
—‘“-‘—‘—‘-‘—‘O

025746
025752
025752
025756

[pS 1,1,
O], U1 N1,V

000000
000000
010000
177376

006737
000405

034276

— i e i e

101206

000063

104401

063120

000137

026532

012737
012737
004737

001416
000001
036226

004737

033352

104000

1546130

108
A

001444

R X

:SCOPE

R X

XXX 2

X2XX2XxX)

R X

XX 2

XXX

2X22XZ%)

CALL

sSTART OF TEST
SINITIALIZE STACK POINTER

#STACK,SP

$BASE RO

MOv
MOv

AT QFFSET
R

SCOPE

MOov

001226

.60 DO NEXT SECTOR

FORMAT
A

NOP
MOv

001100

737
737
737
737
737
737

OCOOOOO

o
o

(=]

~no

1699
1700
1701
1702
1703
1704
1705
1706
1707
1708

001276

001464
000027

2-55

TSTQUE R
#27,8TESTN

;RO = UNJIBUS ADDRESS
;(R1)
::SET

= DEVICE BEING TESTED
TEST NUMBER IN APT MAIL BOX

;SETUP PARAMETERS FOR GENERATING DATA BUFFER

001416
001442
001412
0014614
001410

Mov
MOv

MOv
MOv

#0,RMDCO
#0,RMDAO
SFMT16,RMOFO
#-258. ,RMWCO

JCYLINDER = 0
:TRACK = 0, SECTOR = 0
;16 BIT FORMAT
;2 ¢ 256 WORDS (2°'S COMP)

MOV
MOv

#BUFONE ,RMBAO
#wH GO,RMCSI0

;DATA BUFFER ADDRESS
;WRITE HEADER AND DATA

SVERIFY THAT SECTOR 1S NOT BAD
JSR

PC,BADSCT

;CALL BAD SECTOR MODULE

1YPE

LSCTMSG

;TYPE

10%:

10$

;PREPARE

BAD

NO ERROR

SECTOR MESSAGE

EMT
JMP

190%

;ERROR # DEFINED BY BADSCT
;60 10 190% IF ERROR

MOv

#RMDAOD,$TMPO

sUSE

JSR

PC,GENBUF

;60 GENERATE

MOV

20%:

;60 TO 108 IF

#1,87MPY

DEVICE

JSR

.WORD

FOR

DATA

PL,TSTPRP

SECTOR FOR DATA PATTERN

TRANSFER

154130

SUBROUTINE

;PREPARE

DATA BUFFER

DEVICE

FOR

TEST

sTASK DESCRIPTOR AS FOLLOWS:

JSELECT DEVICE & VERIFY DEVICE AVAILABLE
sCLEAR CONTROLLER & SELECT DEVICE
JVERIFY

CONTROLLER CLEAR OPERATION

) e
D
)
il
i
—

NN NNNNNNNY

JPACK ACKNOWLEDGE 1F VOLUME NOT VALID
JVERIFY PACK ACKNOWLEDGE
025760
025762
025764
025766
025772

000404
000240

025772
026000
026004
026010
026014
026020

0
?

104000

B8R

NOP

000137

026532

000015
001551
000006
000034
000032
000000

1
1
1

2
2
2
2
4

30%:
001410

EMT
JMP

308

JRECALIBRATE IF ''SKI'" OR "'PIP'" IS SE1
JVERIFY RECALIBRAT]ON
;60 7O 308 IF NO ERROR

190%

SERROR # DEFINED BY TSTPRP SUBROUTINE
;60 TO 190% IF ERROR

JOFFSET DEVICE FOR WRITE
MOV

MOV
MOVB
MOVB
MOVB

movB

;RETURN HERE

SOFFSET!GO,RMCSI0

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

#RMCST, (R2)+

:CHANGE

:WRITE PUT

ERROR

TO OFFSET

INDEX TABLE

COMMAND

RMO5/3/72 FCINL TST 2

W) — OO

LV IV IV TV TV TV [V 1)

OO0 ~NO N

F 2 2k a af 2 a3
WV
W —=O

VL Al

el
i
e
il el
i
o

O P W W~
OV~

SN
P
[

NNNNNN~N
NN~~~

— il

TNNNNNSNSNSNNNN

D e

FORMAT

L 10

13:17:48 PAGE

12-56

SEQ 0128

112712

000200

move

8200, (R2)

:TERMINATE

026030
02€034
026036
026040
026042
026046

004737
000404
000240

037360

JSR
B8R
NOP
EMT
JMP

PC,PUT

;60 WRITE

190%

.ERROR # DEFINED BY PUT
;G0 TO 190% If ERROR

104000

000137

026532

026046
026054
026060
026064
026070
026074

000063
001551
000002
000004
000000
000200

026100
026104
026106
026110
026112
026116

037360

000137

026532

026116
026122

006737
004737

037024
037722

026126

004737
000404
000240

037110

000137

026532

004737
000405
000240

040106

026132
026134
026136
026140
026144

OFFSET

11-APR=80

026024

026144
026150
026152
026154
026156
026160
026164
026164
026170
026172
026174
026176
026200
1753 026204
1754 026204
026210

-—

MACRO v33.01

026212
026214
026216
026220
1755 026224

104000

35%:
001410

MOv
MOv
MOvB
MOve
Mov8e

move

80%:

004737
000405
000240
104000
004736
000137

004737
000405
000240

052622

026532

040740

;RETURN HERE IF ERROR

#WH'GO,RMCS1O0

#PUTINX,R?
#RMYC, (R2)+
NRMBA . (R2)+

:WRITE

‘WRITE

SUBROUTINE

HEADER AND DATA (OMMAND

INDEX

TABLE

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

80%

190%

;60 WRITE

;GO TO 80%

;RETURN HERE

NO ERROR

WITH PUT

SUBROUTINE

ERROR

;ERROR # DEFINED BY PUT SUBROUTINE
;G0 TO 190%

ERROR

JSR
JSR

PC,GETSTS
PC,TIMOUT

;WAIT

JS§n
BR

PC,GET

:6G0 READ REGISTER(S)

EMT

90%:

JMP

90%

190%

JVERIFY RESULTS OF WRITE COMMAND
JSR
B8R
NOP

EMTY
JSR

100$:

110%:

JMP

JSR
BR
NOP
EMT
JSR
JMP

JSR
B8R

NOP

EMT

026532

WITH PUT

:SETUP INPUT REGISTER BUFFER FOR READING STATUS

104000

004726
000137

JSR
BR
NOP
EMT
JMP

NOP

026532

;GO TO 358 IF NO ERROR

cSETUP AND EXECUTE WRITE MEADER AND DATA COMMAND AT OFFSET

104000

004736
000137

35§

TABLE

120%:

JSR
JMP

PC,PRIERR

100%

PC,a(SP)¢

190%

PC,DTASTS

FOR

COMMAND

;GO TO

1908

:6G0 CHECK

ERROR

FOR PRIMARY ERRORS

:G0 TO 1008 IF

NO ERROR

RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE

;G0 BACK

FOR MORE

;G0 TO 1908 IF

;60 VERIFY RESULTS OF

:G0 BACK FOR MORE

PC,SECERR

;60 CHECK

190%

ERROR

PC,a(SP)+

SUBROUTINE

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

;G0 TO 1108 IF

1208

WITH GET

;60 TO 908 IF NO ERROR

110%

1908

TO COMPLETE

CHECKS

DATA

TRANSFER

NO ERROR

;RETURN HERE IF ERROR
;ERROR # DEFINED BY DTASTS SUBROUTINE
ERROR CHECKS

:6G0 TO 190% IF ERROR

FOR SECONDARY ERRORS

;60 TO 1208 IF NO ERROR

*RETURN HERE

ERROR

*ERROR # DEFINED BY
160 BACK

FOR MORE

SECERR SUBROUTINE

ERROR

16O TO 190% IF ERROR

CHECKS

OO
W

NN
~N

NINNNO W
NONONINNI
N~

— e

o o

— e e D i e e

[AS TSI N1 N ST V],V
SNSNSNSNSNNY
H»
-~

037360

0
00040¢
000240
104000
000137

026356

004737

037722

026362
026366
026370
026372
026374
026400

004737
000404
000240

037110

000137

026532

026400
026404
026406
026410
026412
026414
026420

004737
000405
000240

040106

026420
026424
026426
026430
026432
026434

b e el il il i

OO NON

SNONNSNNNN
-~

037360

026350
026352

0
000406
000240
104000
000137
£

W
~

-t
et 2 OOO

026340
026344
026346

104000

001410

026532

000073
102212
001551
000002
000004
000000
000200

026356

MACRO v03.01

;OFFSET DEVICE f OR READ

026532

125%:

001410
001414

004737
000405
000240

JSR
BR

PC,PUT

MOv
MOV
MOV
MOvB
MOVB
Mov8
Movse

026532

052622

026532

#PUTINX
R
#RMDA, (R2) +
FRMDC
. (R2)+
#RMOF | (R2)+

#RACST, (R2)+
#200,(R2)¢+

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

1256s

;60 7O 125% IF NO ERROR

sRETURN HERE

;WAIT

;ERROR # DEFINED BY PUT SUBROUTINE
;G0 TO 1908 IF ERROR

190%

#RH!GO,RMCS10
#BUF TWO,RMBAO

;READ HEADER § DATA COMMAND
: CHANGE BUS ADDRESS

JSR
BR
NOP

PC,PUT

1308

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE
;60 _TO 1308 IF NO ERROR

JMP

190%

;G0 TO 1908 IfF ERROR

FOR READ

JSR

JSR
BR

140%:

ERROR

;WRITE PUT

EMT

130%:

#PUTINX,R2
FRMWC, (R2)+
#RMBA, (R2)+
NRMCST,(R2)+
#200,(R2)+

NOP

104000

004736
000137

#OFFSET!GO,RMCS10

EMT
JMP

SEQ 0129

s CHANGE TO OFFSET COMMAND
JWRITE PUT INDEX TABLE

MoV
MoV
Move
MOvB
Mmove
MOVB
MOvVB

:READ HEADER AND DATA AT OFFSET

EMT
JMP

TO COMPLETE
PC,TIMOUT
PC,GET

140%

190%

INDEX TABLE

sRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

AND GET STATUS
JWAIT FOR READ

TO COMPLETE

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

JVERIFY THE RESULTS OF
JSR
BR

104000

004736
000137

M 10
11-APR-80 13:17:48 PAGE 12-57

NOP

026300
026306
026314
026320
026324
026330
026334

[]

= O
NN
OO NO NS

b wnd
d o
ead e
e

NNNNNSNSNNN
NNNNNSNSNNN

026300

— e

000015
001551
000006
000034
000032
000000
000200

(@]

SN
L BN
NN
oo NoON N S

[o oo ol oo ol o Yo JU IV 1V, IV}
VN
= O VO ~NO

il
i
P el
el il
el
)

NN SNNSNNSNSNSN

ClR MNAO RMOS/3/2 FCINL TST 2
127
FORMAT AT OFFET

READ OPERATION
PC,PRIERR
;60 CHECK FOR PRIMARY ERRORS

1508

190%

;60 _TO 1508 IF NO ERROR
;RETURN HERE I1F ERROR
ERROR # DEFINED BY PRIERR SUBROUTINE
:GO BACK FOR MORE ERROR (r=-(CKS
.60 TO 1908 IF ERROR

PC,DTASTS

:GO VERIFY RESULTS OF DATA TRANSFER

PC,a(SP)¢

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

PC,a(SP)+

150%:

1608
1908

;60 TO 1608 IF NO ERROR
;RETURN HERE IF ERROR
;60 TO 1908 IF ERROR

LINL TST 2
OFFSET

FORMAT

004737
000405
000240

MACRO v03.01

160%:

040740

6 026460
026464
026466
026470
026472
026474
026476
026502
026502
026510
026512
026520
026526
026532

026532

004737

036662

101206
102212

000404
000240
106000
000137

JSR

NOP
EMT
JSR

104000

004736
000137

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

170¢%:

JMP

;VERIFY DATA

JSR
.WORD
.MORD

B8R

NOP
EMT

026532

000200
000200

101206

025752

001642

180$:

001642
0014614

1708

;G0 CHECK FOR SECONDARY ERRORS
;60 70 170% IF NO ERROR

PC,a(SP)+

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

PC,CMPBUF
BUFONE
BUFTWO

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

190s

180%

JMP

1908

BIT
BNE
BIS

#OFD,RMOFO
190$
#OFD,RMOFO

JMP

20$

MOV

190%:

PC,SECERR

SEQ 0130

#BUF
ONE , RMBAO

;RETURN HERE

ERROR

;GO TO 190% IF ERROR

;G0 _TO 180% IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY CMPBUF SUBROUTINE
;G0 TO 1908 IF ERROR
:Dggg‘BOTH OFFSETS??

JYES!!

;SET FORWARD OFFSET
;CHANGE DATA BUFFER

'.Qt"'t't.tttttt"""t""'t.t.'ltt.t'.tt.'.ttt'...tttittt"'

tTEST 30

IVC FORMAT TEST

M 2222200222222
Rd 220222
2222222202 X202
RRXR RS

t4130:

026532
026532
026534
026536

001100
001276
001464
000030

026624
026630
026632
026636
026640
026644
026644
026652
026660
026664

—d
D
)
el

026560
026566
026574
026602
026610
026616

—

026552

—

ek
il
il
el el
il
i
)

026542
026546

000000
000000
010000
177376
101206

000062

MOV
MOV
MoV

001226
001444
001476
001442
001412
001414
001410

027354

012737
012737
004737

001416
000001
036224

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

MOV

#0 .RMDAO

MOV

#-258. ,RMWCO

MOV
MOV

MOV

#EMT16,RMOFO

#BUF
ONE , RMBAO

SWH,RMCS10

JSR

PC,BADSCT

TYPE

,SCTMSG

001174
001176

:SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER
:RO = UNIBUS ADDRESS
:(R1)

= DEVICE BEING TESTED

;oSET TEST NUMBER IN APT MAIL BOX

;SETUP P:gAMETERS FORDgENERATING DATA BUFFER

063120

000137

NSTACK,SP

;VERIFY THAT SECTOR IS NOT BAD

034276
104000

SCOPE

NOP
MOV

108
:

20%:
.PREPARE

10§

EMT
JMP

190%

MOV
MOV
JSR

¥RMDAO,$ TMPO
¥1,8TMP1
P( . GENBUF

DEVICE

;CYLINDER
= 0

: TRACK = 0,

SECTOR =

116 BIT FORMAT
;2 + 256 WORDS (2'S CoMP)
:DATA BUFFER ADDRESS
<WRITE HEADER AND DATA
;CALL BAD SECTOR MODULE

;GO TO 10% IF NO ERROR
;TYPE BAD

SECTOR MESSAGE

;ERROR ¥ DEFINED BY BADSCT

;60 TO 190% IF ERROR

SUBROUTINE

;USE SECTOR FOR DATA PATTERN

;GO0 GENERATE DATA BUFFER

FOR DATA TRANSFER

MNAOQ RMO5/3/2 FCTINL TST 2
IVC FORMAT TEST

1823 026664
026670

004737
154130

MACRO v03.01

033352

B 1]

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

JSR
.WORD

PC,ISTPRP
154130

SEQ 0131

;PREPARE DEVICE FOR TEST
s TASK DESCRIPTOR AS FOLLOWS:

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

sPACK ACKNOWLEDGE

VOLUME

sVERIFY PACK ACKNOWLEDGE

NOT

VALID

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

026672
026674
026676
026700
}gsg 026704

000404
000240
104000
000137

027354

1826
1827 026704
1828 026712
}ggg 026720

012737
112737
112737

000001
000024
0C0200

1831 026726

004737

037360

02673¢
026736
026740
;ggg 026744

000240
104000
000137

027354

1834
1835 026746
1836 026752

012737
012737

000063
000000

1838
1839
1840
1841
1842

112722
112722
112722
112722
112722

000024
000006
000034
000032
000002

MOVB
MOVB
MOVB
MOVB
MOVB

WRMMRY, (R2)+
WRMDA,(R2)+
WRMDC.(R2)+
#RMOF,(R2)+
WRMWC.(R2)+

112722

000000

MOVB

#RMCST,(R2)+

026732

1837 026760
026764
026770
026774
027000
0270064

1843 027010
1864 027014

000404

012702

112722

001551

112722

1847 027024
027030
027032
027034
027036

004737
000404
000240
104000
000137

037360

1850
1851 027042
}gg% 0270646

004737
004737

037024
037722

1854 027052

004737

037110

027060
027062
027064
1855 027070

000240
104000
000137

027056

000404

001434
001551
001552

JSR

B8R
35%:
001410
001434

027354

1908

;VERIFY RECALIBRATJON

160 TO 308 IF NO ERROR
JRETURN HERE 1F ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
160 TO 1908 IF ERROR

NOP
EMT
JMP

PC,PUT

;60 WRITE REGISTER(S) WITH PUT

1908

*RETURN HERE [F ERROR
JERROR ¥ DEFINED BY PUT SUBROUTINE
260 T0 1908 1F ERROR

35%

260 TO 35% IF NO ERROR

SUBROUTINE

JSETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
MOV
#WH'GO,RMCSI10
;WRITE HEADER AND DATA
MOV
#0,RMMR10
SRESET DIAGNOSTIC MODE

MOV

MOVB

000200

027354

308

;RESET VOLUME VALID BY SETTING AND RESETTING DIAGNOSTIC MODE
MOV
#DMD ,RMMR10
:SET DIAGNOSTIC MODE
MOvVB
IRHHR1 PUTINX
URITE REGISTER INDEX TABLE
MOVB
#200,PUTINX+1

000004

}gzg 027020

}gzg 027042

308 :

BR
NOP
EMT
JMP

MOVB

808 :

JSR
BR
NOP
EMT
JMP

#PUTINX,R2

‘WRITE REGISTER INDEX TABLE

#RMBA.(R2)+
#200,(R2)+
PC,PUT
80$

1908

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

JSETUP INPUT REGISTER BUFFER FOR READING STATUS
JSR
PC,GETSTS
JSR
PC,TIMOUT
JWAJT FOR COMMAND TO COMPLETE
JSR

BR
90%:

NOP
EMT
JMP

PC,GET

;60 READ REGISTER(S) WITH GET SUBROUTINE

190%

RETURN HERE ]F ERROR
JERROR # DEFINED BY GET SUBROUTINE
.60 TO 1908 IF ERROR

90§

;60 10 908 IF NO ERROR

i r¥ o

MACRO v03.01

1008

EMT
JSR

PC,a(SP)¢

010000

001376

001376
001376
010000

001142
001140
001140

100%:

BIT
BNE
MOV
MOV
BIS

#IVC,RMER2]
110$
RMER21,$BDDAT
RMER21,$GDDAT
#1VC,SGDDAT

lgIVC STATUS SET??

110%:

JSR

PC,SECERR

;G0 CHECK FOR SECONDARY ERRORS
;60 TO 1208 IF NO ERROR
;RETURN HERE IF ERROP
sERROR # DEFINED BY SECERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;GO TO 190% IF ERROR

JMP

EMT

NOP

027160
1868 027164

1869
1870
1871 027164
027170

027172
027174
027176
027200
027204

000137

027354

004737
040100

033352

120%:
:CLEAR

000404
000240
104000

000137

027354

027204
027212

012737
012737

000073

027220
027224
027226
027230
027232
027236

004737
000404
000240

037360

000137

027354

027236
027242

004737
004737

037026
037722

027246
027252
027254
027256
027260
027264

004737
000404
000240

037110

000137

027354

104000

102212

SEQ 0132

NOP

04C740

12-60

sVERIFY RESULTS OF WRITE CUMMAND
P ,PRIERR
;60 CHECK FOR PRIMARY ERRORS

040106

027354

NP ale Jole JolaP Y

c N

11-APR-80 13:17.48 PAGE

N1t

004737
)

Eo Ll

1859
1860
1861
1862
1863
1864
1865
1866
1867

jeli=iol=lslololelalalelalalels]

56
57
58

[aSIANI N1 N1 U1 W1 O], 61,87 W) T ,NT,0],¥], ¥
NN NNNNNNNNNNNNN
—
e b
e e
e o s 2 OO
S » SNAMNIN)
= = 2 OO0 NN ~

2
b
—

oo
OO 00

ggHNAO RMO5/3/2 FCINL TST
IvC FORMAT TEST

EMT
JSR
JMP

PC,a(SP)+

190%

040100

125%

JMP

190%

JSR

NOP
EMT

130%:

1208

.WORD

;READ HEADER
MOV
MOV

JMP

S!
RECEIVED STATUS FOR TYPEOUT
;EXPECTED STATUS

342

IvC ERROR
JSR
PC,TSTPRP

NOP
EMT

125%:

1908

;GO _TO 100% IF NO ERROR
:RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;60 TO 1908 IF ERROR

;PREPARE DEVICE FOR TEST
s TASK

DESCRIPTOR AS

FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION

;G0 TO 125% IF NO ERROR
;RETURN HERE IF ERROR
SERROR # DEFINED BY TSTPRP SUBROUTINE
.60 TO 190% If ERROR

AND DATA FOR SECTOR JUST WRITTEN
;READ HEADER & DATA COMMAND
#RH'GO,RMCS10
#BUF TWO, RMBAD
. CHANGE BUS ADDRESS

PC,PUT

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

190%

sRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;60 TO 190% If ERROR

1308

;60 TO 1308 IF NO ERROR

;SETUP INPUT REGISTER BUFFER FOR READING STATUS
JSR
JSR

PC,GETSTS
PC,TIMOUT

JSR

PC GET

NOP

1408-

EMT
JMP

140¢
1908

;WAIT

FOR READ TO COMPLETE

;60 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

N= = QOO NNN~NO
VY W1 VP o F e Te ¥ 1 VTPl

[=leleloleolelololelala]

1888
1889

1 TN 1 VT NT NT VT NT T T, )
NNNNNNNN
NN
WNAN
NN NN PO NI NI N

CIRMNAO RMOS5/3/2 FCINL TST 2
130
IVC FORMAT TEST

027340
027344
027346
027350
027352
1899 02735¢4

004737

MACRO v03.01

11-APR-80 13:17:48 PAGE

SEQ 0133
JVERIFY TgE RESULTS OF

040106

027354
010000

001376

001376
001376
010000

001142
001140
001140

150%:

160%:

040740

170%:

;60 TO 1508 IF NO ERROR

PC.3(SP)+
190%

:6G0 BACK FOR MORE ERROR (MECKS
;60 TO 190% IF ERROR

BIT
BNE
MOV
MOV
BIS

#1VC,RMER2I
1608
RMER21,$BODAT
RMER2],$GDDAT
#1VC,$GDDAT

ISS{YC STATUS SET??

JSR

PC,SECERR

EMT

:RETURN MERE

ERROR

;ERROR # DEFINED BY PRIERR SUBROUTINE

:RECEIVED

STATUS FOR

TYPEOUT

SEXPECTED STATUS

342

NOP

EMT
JSR

;60 CHECK FOR SECONDARY ERRORS

1708

;G0 TO 170% IF NO ERROR

PC,a(SP)+

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

sRETURN HERE

ERROR

190%:
t."".'.'.'""'"""""'"t'..'.'."."'t'.'."t"""""'

-resr

027354
027354
027356
027360
027364
027370
027374

027446

1508

NOP
EMT
JSR
JMP

004736

READ OPERAT]ON
;G0 CHECK FOR PRIMARY ERRORS

PC,PRIERR

1901 027354
1902
1903

15131:

—

027402
027410
027416
027624
027432
027632
027440

12-61

001226

000000
000000
000000
177376

001444
001416
001442
001412

000063

001414
0014610

034276

MOV
MOV

MOV

064620
000001
036224

ERROR TEST
Al

#STACK,
5P
$BASE
, RO
TSTQUE,R1

#31,8TESTN

:SCOPE CALL
sSTART OF TEST
sINITIALIZE STACK POINTER

;RO = UNIBUS ADDRESS

:(R1)

= DEVICE BEING TESTED

;oSET TEST NUMBER IN APT MAIL BOX

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

MOV
MOV

#0. RMDAO
#0 RMOF
O

;TRACK = 0,

MOV
MOV

#BUF
ONE , RMBAO
#WH,RMCS10

;DATA BUFFER ADDRESS

MOV

#-458. ,RMWCO

;VERIFY THAT SECTOR 1S NOT BAD

:
108

20%:

SECTOR = 0

;18 BIT FORMAY
;2 + 256 WORDS (2'S COMP)
;WRITE

HEADER AND DATA

JSR

PC,BADSCT

sCALL BAD SECTOR MODULE

TYPE

LSCTMSG

;TYPE BAD

063120
030136

SCOPE

NOP
MOV

001100
001276
001464
000031

FORMAT
dd

10$

EMT
JMP

180%

MOV
MOV
JSR

#IEROS,$TMPO
#1.$THPI
PC.GENBUF

;GO TO 108 IF NO ERROR

SECTOR MESSAGE

;ERROR # DEFINED BY BADSCT SUBROUTINE
.60 TO 180% IF ERROR
;USE ALL ZEROS DATA PATTERN

;00 GENERATE DATA BUFFER

JPREPARE DEVICE FOR DATA TRANSFER

MNAO RMOS5/3/2 FCINL TST 2
FORMAT

1922 027506

027512

ERROR

TEST

004737

154130

MACRO v03.01

E 11

11-APR-80 13:17:48 PAGE

033352

JSR

LWORD

PC,TSTPRP

154130

12-62

SEQ 0134

:PREPARE DEVICE FOR TEST

STASK DESCRIPTOR AS FOLLOWS:

SSELECT DEVICE & VERIFY DEVICE AVAILABLE
SCLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE

VOLUME NOT

“VERIFY PACK ACKNOWLEDGE

VALID

IS SET
TRECALIBRATE IF ''SKI' OR 'PIP""
027514
027516
027520
027522

000404
000240
104000
000137

030136

027526
027534
027540
027546
027550
027554
027560
027564

012737
012702
112722
112722
112722
112722
112722
112722

000063
001551
000006
000034
000032
000002
000004
000000

1936 027574

004737

037360

027604
027606

104000
000137

030136

}gz; 027616

004737

0064737

037024

1943 027622

004737

037110

027630
027632
027634

000240
104000
000137

030136

1946
1947 027640

004737

040106

027646
027650
027652
027656

000240
104000
004736
000137

030136

1949 027660

004737

052622

027666
027670
027672

000240
104000
004736

}ggz 027526
1925
1926
1927
1928
1929
1930
1931
1932
1933
}ggg

027570

027600
027602

}ggg 027612

1939
1940 027612

027626

}gafi 027640

112722

000406
000240

000406

000200

1948 027660
027664

000405

001410

308

180%

SVERIFY RECALIBRATION
260 TO 30% IF NO ERROR
JRETURN HERE ]F ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
160 T0 1808 IF ERROR

JSETUP AND EXECUTE WRITE HEADER AND DATA COMMAND
MOV
#WH'GO,RMCS10
;WRITE HEADER AND DATA
MOV
SPUTINX,RZ2
WRITE REGISTER INDEX TABLE
MOVB
#RMDA,{R2)+¢
MOVB
#RMDC.(R2)+
MOVB
W#RMOF
. (R2)+
MOVB
#RMWC.(R2)+
MOVB
WRMBA.(R2)+
MOVB
WRMCST,(R2)+
MOVB
#200,(R2)+
JSR

PC,PUT

EMY
JMP

180%

BR
NOP

808 :
:SETUP

037722

‘4

027644

308 :

BR
NOP
EMT
JMP

;60 WRITE

260 TO 80% If NO ERROR
‘RETURN HERE [F ERROR

W]ITH PUT

JERROR # DEFINED BY PUT
160 TO 1808 IF ERROR

SUBROUTINE

INPUT REGISTER BUFFER FOR READING STATUS
JSR
PC,GETSTS

JSR

PC,TIMOUT

WAIT FOR COMMAND TO COMPLETE

JSR

PC,GET

;G0 READ REGISTER(S)

180%

RETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
260 TO 180% IF ERROR

B8R
908 :

80$

NOP
EM1
JMP

90$

WITH GET

160 TO 908 IF NO ERROk

SUBROUTINE

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

1008 :

1008

:6G0 TO 1008 IF NO ERROR

NOP
EMT
JSR
IMP

PC.8(SP)¢
1808

*RETURN HERE |F ERROR
ERROR # DEFINED BY PRIERR SUBROUTINE
;60 BACK FOR MORE ERROR C(HMECXS
60 TO 180% If ERROR

JSR

PC,DTASTS

;60 VERIFY RESULTS OF

PC,3(S5P)

*RETURN MERE IF ERROR
ERROR # DEFINED BY DTASTS SUBRQUTINE
;60 BACK FOR MORE ERROR (HECKS

NOP
EMT
JSR

1108

DATA TRANSFER

260 10 1108 IF NO ERROR

ST, ST NT,VT VI, V] N1
LS

TST
ERROR TEST

000137

030136

004737
000405
000240

060740

006736
000137

001442

167777
102212

037360

1208
:

;60 70 1808 IF

JSR
BR

PC,SECERR

;60 CHECK

NOP
EMT
JSR
JMP

030022
1972 030026
1973
197¢
1975 030026
1976 030034
1977
1978 030036

030042
030044
030046
030050
030052

1980 030056
1981 030064
1982 030072

037722

004737
000404
000240
104000
000137

037110

004737
000405
000240

;WAIT

FOR READ
JSR

NOP

030136

140%:

1208

EMT
JMP

JSR
BR
NOP

EMT
JSR

030136

032737
001022

000020

004737
000405

05¢622

150%:

001350

FOR SECONDARY ERRNRS

JRETURN HERE

PC,a(SP)e

160 BACK

1808

155%:

FOR MORE

SECTOR JUST WRITTEN

RMOFO
;CHANGE
#2C<FMT16>,RMOFO
#BUF TWO,RMBAD
;CHANGE

BUS

CHECKS

IN OPPOSITE

FORMAT

ADDRESS

#RH'!'GO,RMCSTO

JREAD HEADER & DATA COMMAND

PC,PUT

;G0 WRITE

130%

;GO TO 1308 IF

;RETURN HERE

180%
TO COMPLETE
PC,TIMOUT

WITH PUT

NO ERPOR

ERROR

;ERROR # DEFINED BY PUT
;60 TO 180% IF ERROR
AND GET STATUS
;WAIT FOR READ

PC,GET

1409

180%

PC,PRIERR

1508

PC,a(5P)¢

180%

;60

CHECK

ERROR

FOR PRIMARY

GET

SUBROUTINE

ERRORS

NO ERROR

;RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
.60 BACK

FOR MORE

;G0 TO 1808 IF

PC,DTASTS

;60 VERIFY

MOV

RMER1I,$BODAT
RMER11,8GDDAT
JFER,SGDOAT

1808

;G0 TO 1508 IF

JSR
BR
NOP
Em7
JSR

PC,a(SP)+

WITH

;ERROR # DEFINED BY GET

JYES!!

155¢

SUBROUTINE

;60 TO 1408 IF NO ERROR
sRETURN HERE IF ERROR

;G0 TO

SUBROUTINE

TO COMPLETE

;60 READ REGISTER(S)

160%

BIS

ERROR

TO OPPOSITE

SFER,RMER]

MOv

ERROR

:6G0 TO 180% IF ERROR

BIT
BNE

JMP

SERROR # DEFINED BY SECERR SUBROUTINE

JVERIFY THAT FORMAT ERROR S SET

030136

001350
001350
000020

Jnp

ERROR

:60 TO 1208 IF NO ERROR

JVERIFY THE RESULTS Of READ OPERATION

040106

104000

004736
000137

EMT
JMP

JSR
BR

030012
030014
030016
030020

004737

130%:

OONy

1969
1970
1971 030006

MOv
MOV

JSR
BR

-t

027774
027776
03000¢C
030002
1968 030006

(OM
BIC

001442
001414
001410

P ok o

1963
1964
1965 027764
1966
1967 027770

030136

12-63

1808

NOP

000137

JMP

;10 CHECK THAT "'FER'" SETS

PRI

)

13:17:48 PAGE

.READ HEADER AND DATA FOR

027746
027752
027754
027756
027760
1962 027764

)

1108
:

030136

000073

—

11-APR-80

SEQ 0135

104000

027740

1979

MACRO v03.01

OO
QOO

-0

= O0V0B~NO
NS

—

]

[elololololalelole

—

ORMAT

OOV OO OOV OO0 0O
ONN
NN ULWN

—

MNAO RMOS/73/72 FCTNL

;1S

FORMAT

ERROR

SET??

RESULTS OF

DATA

:60 TO 155% IF NO ERROR
:RETURN HERE

(HE(KS

TRANSFER

ERROR

:ERROR # DEFINED BY DTASTS SUBROUTINE
160 BACK

FOR MORE

ERROR

:G0 TO 180% IF ERROR

;BAD DATA FOR TYPEOUT
JEXPECTED DATA

CHECKS

YS?HNAO RMOS/3/2 FCINL
(L

FORMAT

SOOI
NN
OO

i
il
il
il
sl
i

NNt
et e 0 OO

—

ol
—

OO0O0O0O0OOO

NN NN
AN N NN

OO0Oo0OOoOOCO

WMNN
(=] OO

1986
1987
1988
1989
1990
1991
1992
1993

MACRO v03.01

11-APR=-80

004737
000405
000240

160%:

060740

343

JSR

PC,SECERK

NOP

030136

032737

010000

001402
000137

EMT

104000

004736
000137

G 11

13:17:48 PAGE

17-64

SEQ 0136

106343

OO0

1983
1984
1985

ERROR

TST
TEST

1708

027432

SRETURN MERE

ERROR

PC,alSP)e

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

BIT

MEMTI6,RMOF0

;TEST WRITE

1808
5$

‘BR IF YES
STEST AGAIN

BEQ
IMP

180%:

;60 TO 1708 IF NO ERROR

EMT
JSR

JMP

001442

;60 CHECK FOR SECONDARY ERRORS

1708

1808

:60 TO 1808 IF ERROR

16 BIT FORMAT AND

;READ 18 BIT MODE °?

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

-vesv

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

FORMAT

HCE,

FIRST MEADER WORD

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

1994
1995 030164
1996
1997
1998 030172
1999 030172

2000
2001
2002
2003
2004
2005
2006

000004
000240
012706
013700
013701
012737

001100
001276
001464
000032

001226

012737

000001

031134

".'.""'"."""t""'

SCOPE
NOP
MOV
MOV

#STACK,SP
$BASE , RO

:SCOPE CALL
SSTART OF TEST
SINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS

MOV

#32,$TESTN

;;SET TEST NUMBER IN APT MAIL BOX

MOV

#1,230%

;INIT BIT POSITION

MOV

TSTQUE ,R1

iggrup PARAMETERS

010000
000000
000000
177376

030200
030206
030214
030222
030230

101206

000062

030236
030242
030244
030250
030252
2007 030256
2008 030256
2009 030264
2010 030272
2011 030276
2

2013
2014 030276
030302

YSTSZ

001442
001444
001416

001412

001410

006737
154130

033352

208

001174
001176

30%:
;PREPARE

TESTED

DATA BUFFER

MOV

#BUFONE ,RMBAO

:DATA BUFFER ADDRESS

#-258. ,RMWCO

#uH,RMCS10

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

:WRITE HEADER AND DATA

JSR

PC,BADSCT

;CALL BAD SECTOR MODULE

TYPE

,SCTMSG

;TYPE

B8R

031306

BEING

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

MOV

063120

DEVICE

#FMT16,RMOFO
#0.RMDCO
#0 RMDAO

;VERIFY THAT SECTOR 1S NOT BAD

034276

064620
000001
036224

GENERATING

MOV
MOV
MOV

MOV

001414

FOR

;(R1)

EMT

20%

160 TO 208 IF NO ERROR

JMP

2708

MOV
MOV

#ZERDS,$TMPO
#1.8THPI

JSR

DEVICE

JSR
JWORD

SECTOR MESSAGE

160 TO 270%

PC.GENBUF
FOR

BAD

;ERROR # DEFINED BY BADSCT

DATA

PC,TSTPRP
154130

ERROR

SUBROUTINE

:USE ALL ZEROS DATA PATTERN
;60 GENERATE DATA BUFFER

TRANSFER

;PREPARE DEVICE FOR TEST
STASK DESCRIPTOR AS FOLLOWS:

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

¢PACK

ACKNOWLEDGE

VOLUME

;VERIFY PACK ACKNOWLEDGE

NOT

VALID

RMOS/3/2 FCTINL TST
FORMAT

HCE,

FIRST

MACRO v03.01

HEADER WORD

K 1
11-APR-80 13:17:48 PAGE 12-65

SEQ 0137

;RECALIBRATE [F 'SKI'" OR "'PIP'" ]S SET

000404
000240
106000

BR
NOP
EMT
JMP

40%

;VERIFY RECALIBRATION
;60 TO 408 IF NO ERROR

270%

;60 T0 270% IF

RETURN MERE IF ERROR
;ERROR # DEFINED BY

TSTPRP SUBROUTINE

000137

031306

033737
001404
043737
000403
053737

031134

101206

031134

101206

; COMPLEMENT DATA BIT IN FIRST HEADER WORD
BIT
2309 ,BUF ONE
;1S BIT IN HEADER ON??
BEQ
50%
JNO!!
gggi.BUFONE
JRESET BIT IN HEADER
Bl(

031134

101206

50%:

40$%.

BR
BIS

230% ,BUFONE

JSET BIT

ERROR

IN HEADER

037360

NNNNNNNNY

NN
O W
NN
N
W
N

e
i
D
e
el

h e e

e
—

— e

000063
001551
000006
00003«
000032
000002
000004
000000
000200

2040 030430
2041 030434
2042
2043 030440
030444
030446
030450
030452
2044 030456
2045
2046
2047 030456
030462
030664
030466
039470
030472
2048 030476
2049 030476

004737
004737

037024
037722

0usa737
000404
000240

037110

000137

031132

030502
030504

030506

030412
030416
030420
030422
030424
2037 030430

030406

NNV

et =2 OO

SETUP AND EXECUTE WRITE HEADER AND DATA (OMMAND

031132

104000

004737
000405
000240

04C106

001410

60%:

:
708

004737
000405
000240
104000

031132
052622

#WH'GO,RM(S10
#PUTINX ,R2
#RMDA, (R2)+
#RMDC, (R2) ¢
#RMCF
, (R2) +
FRMWC, (R2) ¢
#RMBA, (R2)+
FRMCST,(R2)+
#200,(R2)+

;WRITE
JWRITE

JSR
BR
NOP
EMT
JMP

PC,PUT

;60 WRITE

70$

2208

mEADER AND DATA
REGISTER INDEY TABLE

160 10 708 IF NO ERROR

WITH PUT

;RETURN MERE IF ERROR
:ERROR # DEFINED BY

160 10 2208 IF

ERROR

PUT

SUBROUTINE

;SETUP INPUT REGISTER BUFFER FOR READING STATUS

80%:

JSR
JSR

PC,GETSTS
PC,TIMOUT

;WAIT

JSR
BR
NOP
EMT

PC,GET

;6O READ REGISTER(S)

JMP

80%

220%

SVERIFY RE SV LTS OF WRITE COMMAND

104000

004736
000137

MOV
MOV
MOvVB
MovB
MOVB
Move
MOvB
MOvB
MOvB

90%:

JSR
BR
NOP
EMm7
JSR
JMP

PC,PRIERR

JSR
BR
NOP
EMI

PC,DTASTS

90%

PC,a(SP)+

2208

1008

FOR

COMMAND

TO COMPLETE
WITH GET

.60 TO 80% IF NO ERROR
;RETURN HERE

SUBROUTINE

ERROR

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

;GO CHECK

FOR PRIMARY

;G0 10 90% If
sRETURN HERE

NO ERROR

ERRORS

ERROR

“ERROR # DEF INED BY PRIERR SUBROUTINE
260 BACK

FOR MORE

ERROR

260 10 2208 IF ERROR

;60 VERIFY

RESULTS OF

DATA

160 TO 100% IF NO ERROR
sRETURN HERE

ERROR

CHECKS

TRANSFER

ERROR # DEFINED BY DTASTS SUBROUTINE

RMO5/3/2 FCTINL TST 2

oo SN

ONO

WAL IV IV IV IV IV IV, IV TV
WNININNIROND
= bt s s

(={elelelelolalalole)

N LN

=l=lelololelelolele)

N N N N NN NN

FORMAT

HIE,

FIRST

004736
000137

004737
000405
000240
104000
006736
000137

MACRO v03.01

HEADER WORD

040740

JSR

PC,a(SP)
e

;GO BACK FOR MORE ERROR (HECKS

JSR

PC,SECERR

;60 CHECK FOR SECONDARY ERRORS

JMP

NOP

EMT

JSR

031132

000073
102212

110%:

00'410
001614

JMP

030579

004737

037722

2064 030574
030600
030602
030604
030606
2065 030612
2066
2067
2068 030612
030616
030620
030622
030624
030626
2069 030632
2070 030632
2071 030640
2072 030642
2073 030650
2074
2075
2076 030652
2077 030660
2078
2079 030662
030666
030670
030672
030674
030676
2080 030702
2081 030702

004737
000404
000240
104000
000137

037110

2059 030570

0064737
000405
000240

10400C
004736
000137

032737,
001033
032737
001436

1108

1208
:
JWAIT

PC,a(SP)+

130%:

220%

FOR READ
JSR

JMP

1208

JSR

NOP

EMT

031134

032737
00110/

000020

001350

004737
000405
000240
104000
004736
000137

052622

PC,GET

013737

001350

SUBROUTINE

10O COMPLETE
WITH GET

ERROR

SERROR # DEFINED BY GET

2208

:60 TO 220% IF

READ OPERAT]ON

PC.PRIERR

1408

2208

JVERIFY THAT FER 1S SET

.
001142

JRETURN HERE

#FER,RMERT]

;60 CHECK

ERROR

FOR PRIMARY

SUBROUTINE

ERRORS

:G0 TO 1408 IF NO ERROR

*RETURN HERE

ERROR

SERROR # DEFINED BY PRIERR SUBROUTINE
160 BACK

FOR MORE

260 TO 2208 If

:SHOULD BSE BE SET
SYES !
:1S THIS FER 7?
INO !
;1S

FER

SET

ERROR

CHECKS

BNE

200%

SYES

JSR

PC,DTASTS

;GO VERIFY RESULTS OF

1508

SUBROUTINE

ERROR

:GO TO 1308 IF NO ERROR

#MSE 'USE, 2308
160%
#EMT16,2308
180%

NOP

WITH PUT

NO ERROR

;GO READ REGISTER(S)

130%

BIT
BNE
BIT
BEQ
811

AND GET STATUS
;WAIT FOR READ

PC,a(SP)+

031132

*RETURN HERE

JSR

JMP

:READ HEADER © DATA COMMAND
: CHANGE BUS ADDRESS

260 TO 1208 IF

TO COMPLETE
PC,TIMOUT

;VERIFY THE RESULTS OF

010000

ERROR CHECKS

160 T0 220% IF ERROR

:ERROR # DEFINED BY PUT
;60 TG0 220% IF ERROR

EMT
JMP

EMT

031134

:GO BACK FOR MORE

220%

:60 WRITE REGISTER(S)

NOP

140000

ERROR

PC,PUT

JSR

031132

:ERROR # DEFINED BY SECERR SUBROUTINE

JSR

040106

260 TO 110% IF NO ERROR

*RETURN MERE

#RH!GO,RMCST0
#BUF TWO,RMBAO

031132

:G0 TO 2208 IF ERROR

MOV
MOV

NOP

031132

2208

;READ HEADEK AND DATA FOR SECTOR JUST WRITTEN

037360

000137

12-66

SEQ 0138

1008

031132

I 1N

11-APR-80 13:17:48 PAGE

DATA TRANSFER

:GO TO 1508 IF NO ERROR
‘RETURN HERE

ERROR

EMT
JSR

PC,alSP)e

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

MOV

RMER1],$BODAT

;RECEIVED

JMP

2208

160 T0 2208 IF ERROR
STATUS

CIR MNAQ RMOS/3/2 FCINL TST 2
MACRO v03.01
132
FORMAT HCE, FIRST WMEADER WORD

2082
2083
2084
5832

030710
030716
030724
030726

013737
052737
104343
000501

001350
000020

001140
001140

2087

2088 030730

032737
001060

100000

2092 0307640

004737

052622

030746
030750
030752

000240
104000
004736

030754

2093 030760
2094 030760
2095 030766
2096 03077¢
2097 031002
sggg 031006
2100
2101 031006
2102 031006
5182 031014
2105 031016
031022
031024
031026
031030
031032
2106 031036
2107 031036
2108 031044
2109 031052
2110 031060

2111 031066

2112 0310764
2113 031076
5}}§ 031100
2116

000405

000137

031132

013737
013737
052737

001376
001376
100000

104345

032737
001031

000200

004737
000405
000240
104000
004736
000137

052622

031132

013737
013737
052737
012737

001350
001350
000200
000001

013737
1064344
000415

004737

031106
031110
031112

000240
104000
004736

031114

5}}3 031120

2120
2121 031120

2122 031124
2123 031126

001142
001140
001140

1708:

000405

031134

001142
001140
001140
001174

040740

031132

006337

031134

030172

1S SET
;1S BSE SET
SYES 1

JSR

PC,DTASTS

;60 VERIFY RESULTS OF DATA TRANSFER

NOP
EMT
JSR

PC,a(SP)+

JRETURN HERE IF ERROR
SERROR # DEFINED BY DTASTS SUBROUTINE
;60 BACKX FOR MORE ERROR (MECKS

MOV
MOV
B1S

RMERZ21 ,$BDODAT
RMER21.$GODAT
#BSE,$GODAT

JRECEIVED STATUS
:EXPECTED STATUS

2208

;SKIP REST OF

JMP

EMT

1708

2208

345

:VERIFY THAT MCE 1S SET
1808:
81T
#HCE RMERT]
BNE
200%

1908:

001176

JSR
BR
NOP
EMT
JSR
JMP

PC,a(SP)+
2208

MOV
MOov
BIS
MOV

RMER1] ,$BDDAT
RMER1],$GDDAT
NHCE ,$GDDAT
#1,8TMPO

EmT

344
2208

MOV

PC,DTASTS
1908

2308, 81MP1

;CHECK FOR OTHER ERRORS
JSR

NOP
EMT
JSR
2108 :

JADVANCE

:EXPECTED STATUS

#BSE ,RMER2]
2008

2008 :

000137

001404
000137

001350

RMER11,8G0DAT
NFER,$GDDAT
343
2208

BIT
BNE

000452

2117 031100

03110¢

001376

12-67

SEQ 0139

MOV
BIS
EMT
BR

1608:

13:17:48 PAGE

-VERIFY THAT BSE

2089 030730
Sgg? 030736

030744

11-APR-80

JMP

:G0 70 1708 IF NO ERROR

160 TO 2208 IF ERROR

TES!

;1S "HCE'* SET??
SYES!!
;60 VERIFY RESULTS OF DATA TRANSFER
:60 TO 1908 IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY DTASTS SUBROUTINE
;60 BACK FOR MORE ERROR CHE(CKS
160 TO 2208 IF ERROR

JRECEIVED STATUS FOR TYPEQUT
JEXPECTED STATUS
:GET HEADER WORD NUMBER

SGET FAILING BIT POSITION

PC,SECERR

;60 CHECK FOR SECONDARY ERRORS

PC,a(SP)¢

:RETURN HERE |F ERROR
SERROR # DEFINED BY SECERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS

2108

2203

160 70 2108 If NO ERROR

160 TO 220% IF ERROR

THE BIT POSITION AND FORMAT AGAIN If NOT DONE
ASL
2308
SSHIFT TO NEXT BIT POSITION

BEQ
JMP

2408
108

CEXIT IF DONE
250 DO NEXT SECTOR

CIRMNAO RM0OS5/3/2 FCTINL TST 2
MACRO v03.01
132
FORMAY MCE, FIRST HEADER WORD

2124
2125 031132
S}S? 03113

000465
000000

KN
11-APR=-B0 13:17:48 PAGE 12-68

2208:
230%:

BR
.WORD

2708
0

SEQ 0140

;JUMP TO NEXT TEST
;STORAGE FOR BJT POSITION

2]28

. !"t'.."tt'tt""t'""""'0"'."""t.t""'tt"""l"'tt.

2129

:*REFORMAT SECTOR THAT WAS WRITTEN WITH BAD MEADER

2]30

2131 031136

2132 031136
2133 0311644
2134 031152

012737
012737
012737

010000
177776
101206

g}gg 031166

004737

036224

2135 031160

2138 031172

031176

012737
004737

154130

000062

001442
001412
0014164

2408:

A AR

001410

R A

R R AR

X A R XA R R R R

R R X X A R

R XX R

MOV
MOV
MOV

#EMT16,RMNOFO
#-2,RMUCO
#BUFONE ,RMBAO

;16 BIT MODE
JONLY TWO MEADER WORDS
JSELECT THE BUFFER

JSR

PC,GENBUF

;GENERATE THE BUFFER PATTERN

JSR

PC,TSTPRP

MOV

033352

R A

LWORD

#WH,RM(CS10

)

:WRITE HEAD AND DATA (OMMAND
;PREPARE DEVICE FOR TEST

154130

;TASK DESCRIPTOR AS FOLLOWS:

JSELECT DEVICE & VvERIFY DEVICE AVAILABLE
;CLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
JPACK

ACKNOWLEDGE

VOLUME

:VERIFY PACK ACKNOWLEDGE

NOT

VALID

RECALIBRATE IF ''SKI'' OR 'PIP'" IS SET
031200
031202
031204
031206
2139 031212
2140 031212

000404
000240
104000
000137

031212

2141 031220

012737
012702

000063
001551

2143 031230

112722

000034

2146 031244
2147 031250

112722
112722

000004
000000

21462 031224

21464 031236
2145 0312640
2148 031254

112722

112722
112722
112722

2149 031260

004737

031266
031270
031272
031276
031276
031300
031304
031306

000240
104000
000137

031264

2150
215%
2152
2153
g}gg

000404

000240
004737
000240

001410

250%:

000006

BR
NOP
EMT
JMP

2508

sVERIFY RECALIBRATION
;60 TO 2508 IF NO ERROR
;RETURN HERE ]F ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;6O TO 2508 IF ERROR

MOV
MOV

#WH'GO,RM(S10
PPUTINX,R2

;SET THE GO BIT
:PUT THE REGISTER ADDRESS INTO TABLE

250%

MOvVB

SRMDA, (R2) ¢+

000032
000002

MOvVB
MOvB8

#RMOF
, (R2)+
FRMUC, (R2)+

000200

MovBe

MOvB

037360

031306

037722
270%:

2]56

MovB
Move

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

JSR

PC,PUT

;60 WRITE REGISTER(S)

270%

;RETURN HERE ]F ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;60 TO 270% IF ERROR

PC,TIMOUT

JWAIT UNTIL IT FINISH

260%:

#RMDC, (R2)+

NOP
EMT
JMP
NOP
JSR
NOP

AR RS

#200,(R2)+
260%

SAaARARRaRdd A

;eTEST 33

; TERMINATOR

;GO TO 2608 IF

WITH PUT

NO ERROR

SUBROUTINE

ARl

FORMAT HCE, SECOND HEADER WORD

.':"ttttti'tlttt'.t't!"t'tt"ttttt.tlt.tt'.tttt.t'ttttttttlttt't

031306
031306
031310
031312
031316
031322

000004
000240
012706
013700
013701

1S133:

001100
001276
001464

SCOPE
NOP
MOV
MOV
MOV

#STACK,SP
$BASE ,RO
TSTQUE R

;SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS
JCR1) = DEV'(t BEING TESTED

RMO5/372 FCTINL TST 2

SECOND HEADER WORD

12-69

001226

MOV

#33,8TESTN

;;SET

031334

012737

000001

032130

MOV

#1,1908

;INIT BIT POSITION

b
e
i
e
o
e

TUP PARAMETERS

P
O IV IV 1V [V ]
O ~NO NS
oSO

—

s
d
o
e

Fal ol ol o P o P o

OCOO0OOO0O

NN
NN NN N

000033

104000

1436
14642
1446

031446
031452

000000
000000
010000
177376
101206
000062

MOV

NEMT16,RMOFO0

16 BIT

004737

033352

#0 RMDAO

MOV

;PREPARE

;CALL BAD SECTOR MODULE

208

260 TO 208 IF NO ERROR

,SCTMSG

*TYPE

2308

MOV
MOV
JSR

#IEROS,S$TMPO
P, STMPI
PC.GENBUF

DEVICE

JWORD

FOR

000404
000240
106000

000137

(ol Te A NTe

NP o o

£ B AN
- —

ANV
WA

—

)

N AM AN N N NN

033737
001404
043737
000403
053737
jelelelelalela]o

el oo alVelvole - Jo Jo -To Jo To Jo To Yo To B VL N
VNN
= OO0
NO NS WO —0OV0o

NI NT SIS T NI N1 N V], ¥

)
il
Dl
i el
il
—

031454
031456
031460
031462

NOP

EMT

032302

DATA

;USE

032130

101210

032130

DATA BIT

T8It

ERROR

2EROS DATA PATTERN

DATA BUFFER

:PREPARE

DEVICE

FOR TEST

*TASK DESCRIPTOR AS FOLLOWS:

“SELECT DEVICE & VERIFY DEVICE AVAILABLE
*CLEAR CONTROLLER & SELECT DEVICE
*VERIFY CONTROLLER CLEAR OPERATION
ACKNOWLEDGE

VOLUME

160 TO 408 IF
‘RETURN HERE

ERROR

*60 TO 2308 IF ERROR
IN

TSTPRP SUBRGUTINE

SECOND HEADER WORD

190%,BUFONE+2

101210

508
Aggs,aurousoz

101210

BIS

1908 ,BUFONE+2

000006
000034

000032
000002
000004

MOv
MCv
MOvB
MOVB
MOVB
MOvB
MOvB

VALID

NO ERROR

"ERROR # DEFINED BY

BEQ
géc

001410

NOT

*VERIFY PACK ACKNOWLEDGE
‘RECALIBRATE IF "'SKI" OR "PIP"" 1S SET
*VERIFY RECALIBRATION

;1S BIT IN HEADER OW??
NO!!
'RESET BIT

;SET BIT

IN HEADER

:ggTUP AND EXECUTE WRITE HEADER AND DATA COMMAND
000063
001551

SUBROUTINE

TRANSFER

40%

iS?"PLE"E"T

ALL

;G0 GENERATE

154130

2308

SECTOR MESSAGE

60 TO 2308 IF

PC,TSTPRP

JMP

BAD

“ERROR # DEFINED BY BADSCT

JMP

JSR

"WRITE HEADER AND DATA

SECTOR IS NOT BAD
PC,BADSCT

EMT

(2'S COMP)

:DATA BUFFER ADDRESS

#uH,RACS10

SECTOR = 0

FORMAT

32 + 256 WORDS

#BUFONE,RMBAO

MOV

001174
001176

“TRACK = 0,

#-258..RMWCD

MOV

TYPE

064620
000001
036224

1564130

:CYLINDER = 0

063120

012737
012737
004737

GENERATING DATA BUFFER

#0,RMDCO

MOV

;VERIFY THAT
JSR

032302

TEST NUMBER IN APT MAIL BOX

Moy

034276

000137

FOR

*PACK

[aSTaSI N1, ST NT N1, S NI N

SEQ 0141

012737

NO VNI~
O

NNNNNNYNN

—

i o

[aSIaSI
ST N1 N1.N1, 87 V]

HCE,

L N

11-APR-80 13:17:48 PAGE

031326

[=lelololslelololele]
AN N AN N NN NN NN

e
t®
ol
el
i
il
il
D e
il
i
o
il

OO
OO O NN
V00NN
NN~ OO0~

STNINT.NT
O NT ST, ST, ST, VT, N1, V7, ¥}

FORMAT

MACRO v03.01

#WH'!GO,RNCS10
#PUTINX,R2
#RMDA, (R2)+
#RMDC, (R2) ¢+
#RMOF
, (R2)+
#RMWC, (R2)+
FRMBA, (R2)+

;WRITE HEADER AND DATA

;WRITE REGISTER INDEX TABLE

104000
000137

032126

031600
031604

004737
004737

037024
037722

031610
031614
3161
3162
3162
3162

004737
000404
000240
106000
000137

037110

031626
031632
031634
031636
031640
031642
031646

004737
000405
000240

037360

004737
000405
000240

032126

90%:

100%:

040740

JSR
BR

PC,GET
80$

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

JMP

—

&SH O

037360

:
1108

032126

004737

037722

90§

PC,a(SP)+

JSR
BR

PC.OTASTS
1008

180%

NOP
EMT
JSR

PC.3(SP)+

JSR

PC,SECERR

NOP
EMT
JSR

PC,a(SP)+

JMP

180"

1108

180%

TO COMPLETE

ERROR

;ERROR ¥ DEFINED BY GET SUBROUTINE

;60 70 180% IF ERROR

;GO CHECK FOR PRIMARY ERRORS
;G0 T0 908 IF NO ERROR
sRETURN HERE IF ERROR
:ERROR # DEFINED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHE(KS
;G0 TO 180% IF ERROR
;G0 VERIFY RESULTS OF DATA TRANSFER

;G0 _T0 1008 If 9 ERROR

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

;60 TO 180% IF ERROR

.60 CHECK FOR SECONDARY ERRORS
;G0 TO 1108 IF NO ERROR
;RETURN HERE 1f ERROR
;ERROR # DEFINED BY SECERR SUBHIUTINE
;G0 BACK FOR MORE ERROR CHE(K:
;GO TO 180% IF ERROR

;READ HEADER AND DATA FOR SECTOR JUST WRITTEN
MOV
#RH'GO,RMCS10
;READ HEADER & DATA COMMAND
MOV
#BUF TW0, RMBAD
: CHANGE BUS ADDRESS
JSR

NOP

000137

PC,PRIERR

FOR COMMAND

RETURN HERE

180%

EMT
JSR
JMP

032126

004737
000404
000240

;GO TO 180% IF ERROR

¢WAIT

JSR

032126

031722

180%

PC,GETSTS
PC,TIMOUT

052622

102212

RETURN HERE IF ERROR

;ERROR
# DEFINED BY PUT SUBROUTINE

;VERIFY RESULTS OF WRITE COMMAND

032126

000073

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE
;G0 _TO 708 IF NO ERROR

70§

JSR
JSR

NOP

012737
012737

v3i740

80%:

040106

031706
031714

104000

PC,PUT

NOP
EMT

104000

004736
000137

SEQ 0142

WRMCS1,(R2)+

JSR

EMT
JMP

2=70

;SETUP INPUT REGISTER BUFFER FOR READING STATUS

104000

004736
000137

8 PAG

#200, (R2)+

NOP

70%:

MOvB8

104000

004736
000137

11-APR-80 13:17:4
MOVB

031646
031652
031654
031656
031660
031662
031666
031666
031672
031674
031676
031700
031702
031706

000000
000200

—

004737
000404
000240

[e X¥T=Te)

112722
112722

l=l{=lola]

OO
Wi

HCE, SECOND HEADER WORD

OO0
NN

MACRO v03.01

TMMTM
O3
— e D i e
—
D0
(e
VIV
IV IV IV NV IV N IV,
ONN~NOOr
WV
osrrnoony
oo

/3/2 FCINL TST 2

EMT

120%:
;WAIT

JMP
FOR READ
JSR

PC,PUT

1208
180%

TO COMPLETE
PC,TIMOUT

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

;60 TO 120% IF NO ERROR
;RETURN HERE

ERROR

;ERROR # DEFINED BY PUT SUBROUTINE

.60 TO 180% IF ERROR
AND GET

STATUS

SWAIT FOR READ TO COMPLETE

it KK

we man w hRE s

w e

N1
MACRO v03.01 11-APR-80 13:17:48 PAGE 12
-1
CIR MNAO RMO5/3/2 FCTINL 1ST 2
133
FORMAT HCE, SECOND HEADER WORD

2226
2227 031744

031750

031752
031754
031756
%ggg 031762

004737

000404

037110

000240
104000
000137

032126

2231 031762

004737

040106

031770
031772
031774

000240
104000
004736

2230

031766
031776

000405

000137

032126

2234
2235 032002
%5%9 032010

032737
001031

000200

2238 032012

004737

052622

032024

004736

ggg% 032002

032016
032020
032022

032026

2239 032032

2240 032032

000405
000240
104000

000137

032126

013737

001350

2241 032040
2242 032046
2243 032054

013737
052737
012737

2245 032070
2246 032072
g%zg 032074

104344
000415

2244 032062

2249

2250 032074

032100
032102

032104
032106

032110

013737

004737

000405
000240

104000
004736

001350
000200
000002

032130

006337
001404
000137

032130

2258 032126
5528 032130

000465
000000

2261

2262

2263

JSR

031342

PC,GET

260 READ REGISTER(S) WITH GET SUBROUTINE

180%

:RETURN HERE IF ERROR -¢ERROR # DEFINED BY GET SUBROUTINE
;GO TO 180% IF ERROR

1308

001350

¢RETURN HERE IF ERROR
sERROR # DEFINED BY PRIERR SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS

1808

;GO TO 1808 IF ERROR

sVERIFY THAT HEADER COMPARE ERROR IS SET
BIT
#HCE ,RMER1]
;1S "HCE'' SET??
BNE
1608
SYES!!

PC,DTASTS

JSR

PC,a(SP)+

180

;GO TO 1808 IF ERROR

001140
001140
001174

MOV

RMER11,$BDDAT

;RECEIVED STATUS FOR TYPEOUT

MOV
BIS
MOV

001176

MOV
EMT
BR

1608:

+<GO TO 1508 IF NO ERROR
sRETURN HERE 1F ERROR
¢ERROR # DEFINED BY DTASTS SUBROUTINE

;GO BACK FOR MORE ERROR CHECKS

RMER11,8GDDAT
HHCE,SGDDAT
#2,$TMPO

1965 $TMPY

344
180%

sCHECK FOR OTHER ERRORS
°

JSR

BR
__NoP

EMT
JSR

170%:

JMP

;EXPECTED STATUS

sGET HEADER WORD NUMBER

sGET FAILING BIT POSITION

PC,SECERR
.

+60 CHECK FOR SECONDARY ERRORS

PC,a(SP)+

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

1708

:GO TO 1708 IF NO ERROR ___
: RETURN-HERE~1fERROR -

1808

;GO TO 180% IF ERROR

sADVANCE THE BIT POSITION AND FORMAT NEXT SECTOR IF NOT DONE
ASL
190%
sSHIFT TO NEXT BIT POSITION.
BEQ
200%
sEXIT 1F DONE
JMP
10%
:GO DO NEXT SECTOR
1808:
1908:

BR
.WORD

230%
0

:JUMP OVER STORAGE
:STORAGE FOR BIT POSITION

tttttttttttttt'tti'ttt'tttttt'ttllltttlttttlttltttttttltttllttl

'REFORMAT SECTOR THAT WAS WRITTEN WITH BAD HEADER
R

)

:GO VERIFY RESULTS OF DATA TRANSFER

1508

JMP

1508:

‘

JSR

BR
NOP
EMT

001142

:60_TO 1408 IF NO ERROR

PC,a(SP)+

JMP

1408:

;GO CHECK FOR PRIMARY ERRORS

1408

NOP
EMT
JSR

SEQ 0143

:G0_T0 1308 IF_NO ERROR

C,PRIERR

2253
2254 032114
2255 032120
5%29 032122

¢VERIFY THE RESULTS OF READ OPERATION

040740

032126

NOP
EMT
JMP

1308:

)

000137

ggg; 032114

JSR

)

e e,

‘

—~

o
Y
P

o Hrurn

el
il
il

PP
P
.

QOO0
[elelele)

NN~

O~N

OO0O00O0
—_0

~NO
O

—

0473
A
5613

0473

)

=
>

— i o e e
OOWVNE
S NN
SOOI

=TM
O
OO0COO0OO
LN

NN
O

OO
W

= OOV~

~N~ooo oo

(2SI, 81,81, ST N1, N1 N1,
LSS VT, N1 ST VT N1 )

1273
1273
1273
1273

2008:

MOov
MOv
MOv
MOV

JSR
.WORD

NEMT16,RMOFO
#-2,RMWCO

SEQ 0144

;16 BIT MODE

#BU
ONE ,RMBAO
F
#WH,RMCS10
PC,GENBUF

:2 HEADER WORDS ONLY
;BUFFER ADDRESS
JWRITE MEAD AND DATA (OMMAND
;SET UP THE BUFFER

PC,TSTPRP

;PREPARE DEVICE FOR TEST

154130

;TASK

DESCRIPTOR AS

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

QOO b e il e e etk
O
[=lel=] e e e el el D e
[oleF NININRI
NN
NON
LY o)) NNNNNNNNN
SO0
DRV
O N
CH~N NI
N

COOO 00N NNNNNN~
N—=OO00 NV
NN

NS IAS AN A AN A 1 N ] S 1, ST, VT, ¥}
NNV
PRININI RNV

;PACK ACKNOWLEDGE

000404
000240
104000
000137

104000

2283
2284 032272
2285 032274
2286 032300
2287 032302
2288

032206

000063
001551
000006
000034
000032
000004
000002
000000
000200
037360

000137

032302

000240
004737
000240

037722

001410

108:

230%:

VOLUME NOT

VALID

B8R
NOP
EMT
JMP

210%

;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ''SKI'' OR '"'PIP'" ]S SET
;VERIFY RECALIBRATION
;G0 TO 2108 IF NO ERROR

210%

;GO TO 210% IF ERROR

MOv
MoV
MOvB
MOvB
MOvVB
MOvB
MOvB
MovBs
MOvB

#WH'GO,RMCS10
#PUTINX,R2
#RMDA, (R2) +
#RMDC
. (R2) +
#RMOF
, (R2) +
#RMBA
., (R2)+
NRMC | (R2)+

:SET GO BIY

#200,(R2)+

s TERMINATOR

220%
230%

;G0 TO 2203 IF NO ERROR
¢RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
.60 T0 230% IF ERROR

PC,TIMOUT

;WAIT

JSR

220%:

FOLLOWS:

NOP
EMT
JMP
NOP
JSR

#RMCST, (R2)+

PC,PUT

;RETURN HERE 1F ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE

s TABLE

ADDRESS

;GO WRITE REGISTER(S) WITH PUT

FOR

TIME

OUT

SUBROUTINE

[
P

MACRO v03.01 11-APR-80 13:17:48 PAGE8115-72

IR MNAO RMOS5/3/2 FCTNL TST 2
33
HCE, SECOND HEADER WORD

CIRMNAD RMOS/3/2 FCTINL TST 2

END OF

—

SUB-PASS ROUTINE

MACRO v03.01 11-APR-80 “3:17:48 PAGE11%

.SBTTL
;THIS

000004
06

1S THE END OF

$EOSP:

001464
000002
001464

WO
— —

OO0 ~NO

[oleolelolelalalola)

N = O

SUB-PASS ROUTINE
SUB-PASS ROUTINE.

THIS ROUTINE

1S USED

;TERMINATE THE OPERATION OF THE CURRENT DEVICE UNDER TEST AMD
;SELECT THE NEXT DEVICE FOR TEST. IF THERE ARE NO MORE DEVICES
;7O TEST, EXIT IS MADE TO °'SEOP' ROUTINE. OTHERWISE, RETURN
;1S MADE TO °'READY' ROUTINE.

056756
001466

SCOPE
NOP
MOV
ADD
MOV

TSTQUE ,RO
#2.R0
RO, TSTQUE

;GET POINTER TO TSTQUE
*ADJUST POINTER TO NEXT
*SAVE POINTER TO TSTQUE

BEQ

‘BR

001464

OO0

et ol

NO N

sl oo el ol el ol

END OF

SEQ 0145

JMP

18:

MOV

.SBTTL

END OF

(RO

SHUT

#TSTQUE+2,TSTQUE

*ANY MORE DEVICES FOR TEST ?
IF

SJUMP TO SHUT
JTEST

QUE

000001
003063
012737
000001
032366
104401

000407
032626
032626

013746
104405
104601

000421

013746
1046405
10440

005037
013700

100000

001230
$SEOP(T:

SENDCT-

032406
é;&Si:

001230

001217
001126
000042

NOP

TOTAL NUMBER OF ERRORS
ARE DECIMAL NUMBERS

SINCE

LAST

REPORT

CLR
CLR
INC
BIC

STSTNM
$TIMES
$PASS
#100000,8PASS

::JERO THE TEST NUMBER
;. JERO THE NUMBER OF JTERATIONS
;s INCREMENT THE PASS NUMBER
2;DON'T ALLOW A NEG. NUMBER

B8GT

$DOAGN

JIYES

.WORD
$EOPCT
TYPE

DEC
.WORD

Mov

vvyvvyy'

(PC)+,a(P()+¢
.65%

J.L00P?

;:RESTORE COUNTER
J:TYPE

ASCIZ

STRING

649

MOV

$PASS,=-(SP)

;2 :SAVE SPASS FOR TYPEOUT

,67%

s TYPE ASCIZ STRING

LASCIZ

TYPE

;;g?S:
66%:

(PC)¢
1

B8R

TYPDS

032440

001126

TABLE

THERES A MONITOR GO TO |7
THERE ISN'T JUMP TO SHUT

$EQP:

001116
001206
001230

FOR CONTROL

22222442 2222222222222
XXX
22222 KRR,

;*]F
;*]F

005037
005037
005237
062737
005327

CHECK

PASS ROUTINE

;*TYPE "'END PASS #XXXXX
s *WHERE XXXXX AND YYYYY

000240

AND

;INITIALIZE POINTER TO FIRST DEVICE IN

S*INCREMENT THE PASS NUMBER ($PASS)

032340

DEVICE

<12><15>/END PASS #/

66%

MOv

SERTTL,-(SP)

JASCIZ

TYPDS
TYPE

CLR

$GET4L2: MOV

:;GET OVER THE ASCI2

;s TYPE PASS NUMBER
;.60 TYPE-=-DECIMAL ASCI]

:;GET OVER THE ASClZ

TOTAL ERRORS SINCE LAST

$CRLF

$ERTTL

ar62,RO

WITH SIGN

REPORT

::SAVE SERTTL FOR TYPEOUT

::TOTAL NUMBER OF ERRORS
;.60 TYPE=--DECIMAL ASCI] WITH
;:TYPE CARRIAGE RETURN, LIN

;s CLEAR ERROR TOTAL
;:GET MONITOR ADDRESS

CIRMNAOD RMOS/3/2 FCINL TST 2

END OF

PASS ROUTINE

0325264
032526
032530
032532
032534
032536
032540
032540
032542
032544
21

MACRO v03.01 11-APR-B0 13:17:48 PAGED11%-1

001405
000005
004710
(00240
000240
000240
000137
056756
377

377

000

BEQ
RESET
SENDAD: JSR
NOP
NOP
NOP
$DOAGN:
JMP
SRINAD: .WORD
S$ENULL: .Evge

$OOAGN

PC,(RO)

a(P()e
SHUT
-1,-1,0

:;BRANCH ]F NO MONITOR
;;CLEAR THE WORLD
;.60 TO MONITOR
;s SAVE ROOM
:;FOR
JJACTH
:;RETURN
::NULL CHARACTER STRING

SEQ 0146

CIZRMNAO RMOS5/3/2 FCINL TST 2
N8N —

SUBROUTINES

MACRO v03.01

.SBTTL

SEQ 0147

SUBROUTINES

.SBTTL

ERROR TYPEOUT ROUTINE

= O OO0~

:*THE ERROR TYPEOUT ROUTINE ASSEMBLES AND PRINTS INFORMATION
:*REGARDING THE CETECTION OF AN ERROR AS FOLLOWS:
.

.UNIT NUMBER, TEST NUMBER, ERROR NUMBER AND PROGRAM (OUNTER ARE

'PRINTED ON THE

FIRST

.ERROR MESSAGE

LINE;

IS ASSEMELED,

FORMATTED AND PRINTED ON

'ONE OR MORE SUCCEEDING LINES;
"
.PAJRED LINES OF ERROR HEADERS AND ERROR DATA

: *ARE

104414

032630
032632
032633
032634
032640
032646
032650
032654

020000

104401
104400
013746

001217
033314
001234

146374

033300

SAVREG

BIT
;TYPE

1$:

104403

BEQ
JMP

UNIT

.BYTE

.BYTE
CLR

033304

013746

MOV
TYPE
MOV

104403

TYPOS

104401

033306
001130

013746

032660
032662
032663
032664
032670

013746

032674

104403

104403
003
000
104401

TEST

NUMBER,

$CRLF
,ERTYOO
SUNIT,-(SP)

TYPE

.BYTE

.BYTE
TYPE
MOV

STESTN,TSTNMB
LERTYO!
TSTNMB, -(SP)

TYPE

C(LRB

CLRB
MOV

AND

PROGRAM (OUNTER

;:SUPPRESS LEADING ZEROS
;LOAD TEST NUMBER FOR
;TYPE 'TST#*

;;SAVE TSTNMB FOR TYPEOQOUTY
;:TYPE TEST NUMBER
;:60 TYPE--OCTAL ASCII

;sTYPE 3 DIGIT(S)
;s SUPPRESS LEADING ZEROS

ERRNMB

;LOAD ERROR NUMBER FOR

JSKIP IF NO ERROR CALLED

ERRNMB,-(SP)

:;SAVE

LERTYO?

ERRNMB
1%

LSCRLF

BOTFLG

CHRCNT
ERRNMB, RO

;TYPEOUT

JTYPE "'ERRN

ERRNMB FOR

TYPEOQUT

;:TYPE ERROR NUMBER

::060 TYPE=--OCTAL ASCI;

0
.
LERTY(S
$ERRP( ,-(SP)

LBYTE
6
1
.BYTE
GEHERATES$OINTER
T0 ERROR

BEQ

ERROR NUMBER,

;TYPE 3 DIGIT(S)

0
TSTNMB

TYPOS

JNO!.
JYES!!

:TYPE "'UNTH''
;SAVE SUNIT FOR TYPEOUT
;:TYPE UNIT NUMBER
;.60 TYPE=-=OCTAL ASC!]

SITEMB,ERRNMB

TYPOS

033306

;INHIBIT TYPEQUTS??

MOVB
MOV

2%:

1%
21%

3
0

BEQ

033332
033306

ERROR MESSAGE.

.BYTE
.BYTE

CLR

033306

THE

#SW13,35WR

NUMBER,

TYPE
TYPE
MOV

TYPOS

003
000
005037
013737

(VI
LV 1, N ]
[
R ]
O~

032602
032604
032605
032606
032612
032620
032626

032777
001402
000137

Al
—

032576

PRlNTED AFTER

ERRTYP:

[=lelele)]
WWWO

WA =2 OO 00N

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

PORNIAIN)
=2 ot cmd o ol e ol b ol —d

NN
~NO WS

E 12

11-APR-80 13:17:48 PAGE

ssTYPE 3 DIGIT(S)

;s SUPPRESS LEADING ZEROS
;TYPE '"PC="'
;:SAVE SERRPC FOR TYPEOQOUT

;:TYPE PROGRAM COUNTER
;.60 TYPE--OCTAL ASCI!
;;TVPE 6 DIGIT(S)
:TYPE LEADING ZEROS
TABLE UNLESS ERRO? NUMBER 1S 0

:WAS AN ERROR CALLED?
INO!!

“YES=TYPE

CRLF

*CLEAR BOT FLAG

“CLEAR CHARACTER COUNTER
*RO POINTS 1O FIRST Of

CIRMNAQ RMO5/3/2 FCTINL 18T 2
ERROR TYPEOUT ROUTINE

62 032726
63 032730

032742

001507

) — PO
PO N =

032744
032746
032750
032756
832760

-, OOt OO
NOOONO
—=O

032732
032736
032740

001570

;TYPE
(Y

5¢:

033313
000012

(3 ¥

033313

oy
oo
NOOMNNONONO
oow\nbbguNNN-‘-‘o
MO0 s~

(VLS
IV RV LV IV [V VAV AV VIV VIV VIV IV [V IV TV V]
[V LV IV RV LV TV [V VIV IV IV AV IV IV IV IV VIV 1V ) W
— b
el
il el el
il
D
D il il i il
D il
4
OO~

1007
44601

033310
000100

BEQ

13¢

8EQ

12%

12
14-1

033313

JYES=GET NEXT CHARACTER

CMPB

#LF,R3
#HT R

CHRONT

#7,CHRCNT
7%
9%
CHRCNT

,R3

CMPB
BHIS

#64.,CHRONT
5%

R2,BOTADR

MOV

BOTADR,R4

TYPE
CLRB
MOV

LOCRLF
CHRONT
11$,R2

(LRB
Move

90%

-(R4)
#-1,BOTFLG

TYPE
.WORD
1578

BOTFLG

TYPE

JOCRLF

B8EQ

CLRB
(LRB
MOV

BOTFLG
CHRONT
BOTADR,R?

MOVE
1518

#' ,-(R2)
(R2)+

MOV

(R2)+,R3
108
#CR,R3

BNE

MOV

108 :
11%:

JR2=ADDRESS OF MESSAGE STRING

;BRANCH JF END OF MESSAGE
;LOAD ADDRESS OF STRING

JGET NEXT C(MARACTER

BNE

033312

JBRANCH JF NO ERROR MESSAGE

6%
CHRONT
5%

INCB

90%:

TO ERROR MESSAGE

BNE
CLRB
BR

BIT8B
BNE
BR
INCB

9%:

:R1 POINTS
:TABLE

IN ERROR

R2,11%
BOTADR

BNE

8%:

JFOUR ENTRIES
;TABLE

MOV
CLR

BEQ

7$:

RO
RO
RO

THE ERROR MESSAGE
MOV
(R1)+,R?

CMPB

033310

5
3
0
5

#SERRTB-8.,,R0
(RO) R

(MPB

000040

0
2
3
3

ASL
ASL
ASL
ADD
MOV

MovB
BEQ
CMPB

000015

033313
000007

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

SEQ 0148

000011

e]loleliNelelelelolelelelelelolalaleloleloloTw)

006300
006300
006300
062700
011001

MACRO v03.01

R2,11%

5¢

JCLEAR BOT ADDRESS

JEND OF STRING??
JYES!!
JCARRIAGE RETURN??
;NO!!

;YES=CLEAR

CHAR

COUNT

JLINE FEED??
JHORIZONTAL

JNO!!

:ADJUST

TAB??

CHARACTER

COUNT

s INCREMENT CHARACTER COUNT

:SPACE??

INOY!
s SAVE ADDRESS OF SPACE
JEND OF LINE??
JNO!!
;GET ADDRESS OF LAST SPA(CE
JBRANCH IF SPACE DETECTED
;TYPE

CRLF

sCLEAR CHARACTER COUNT
;SET UP R2 FOR TESTING
JREPLACE SPACE
JSET BOT FLAG

;TYPE ERROR MESSAGE STRING
sSTRING ADDRESS GOES HERE
;WAS STRING TRUNCATED??

JNOY!

:YES=-TYPE

CRLF

;CLEAR BOT FLAG
sCLEAR CHARACTER COUNT
sSETUP R2 FOR TESTING

SSETUP 118 FOR TYPING

“RESTORE SPACE
:RESTORE R?

STYPE REST OF

STRING

i;;és ERROR HEADER AND ERROR DATA
000002

MOV
BEQ

2(RO) R
21

;RY

POINTS

JBRANCH [f

TO ERROR MHEADER

NO HEADER

TABLE

CIRMNAD RMO5/3/2 FCINL TS 2

ERROR TYPEOUT ROUTINE

—

AURUNY
—
OO

O8O

NIRITORUNIAUINIAY
WA
= = o

OSSN SNY

ettt
iad L IV LV IV TV TV (W IV I R VTV
TV T

OCOO0O0COO0O0OOOOOOOOO [=]leolelolelolaloloe BNoleolel
e

11-APR=-R0

104401

016002
016003
012137
001433

146%:

104401

005702
001767

15%:

001217

BEQ

14%
(R2)+,RG

;DATA WITH HEADER??
JNOY!
JR& POINTS TO DATA ADDRESS

MoV
MoV
1$18
BM]
BEQ

NN
N NN N

MOV

d(RL)+ ,=-(SP)

187

(R4G)
20%
LERTYO4
16%
JOCRLF
14%

o
o

TYPBN

BEQ

20%:

21s:
.

.
.
.

ERTYQO:
ERTYQ1:
ERTY02:

.
.,
.

.EVEN

19¢

;MORE DATA??
;NO!.

JYES-TYPE 2 SPA(ES
JAND CONTINUE
;TYPE ONE BLANK LINE

JBEFORE NEXT HEADER

ERRNMB:
BOTADR:
BOTFLG:
CHRCNT:

ERTY03:
ERTYOG:

;RS POINTS TO FORMAT
JWHAT KIND OF DATA??
:BINARY
;O0CTAL
JDECIMAL

19%

18%:

TYPE

QO ~—t =t et s
OMNNON)
—
QO
-

125

05¢
05%¢
05¢6
040

(R3)+,RS
(RS)
18%
17¢
S(RGL)+ ,=-(SP)

0
0
0

0
0
aUN]T#g
8, TEST#R
8., ERR2I
e, P(=3
e
3

SEQ 0149
TABLE

sPUT HEADER ADDRESS FOR TYPE

sHEADER ADDRESS GOES MERE

LOCRLF
RZ

8(RLG)+ ,=(SP)

TSTNMB:

;R3 POINTS TO FORMAT TABLE

MOV
TYPOC

033347

00{ 000
000000
00000C
000
000

(R1)+,15%

17%:

19%:

000207

6(R0O),RY

; (ASSUME NO DATA)
;R2 POINTS TO DATA ADDRESS

.WORD

TYPE

TYPDS

001217

LOCRLF
4 (RO) %2

14=2

:BRANCH IF END OF MEADERS
; (ASSUME END OF DATA)

T1YPE
181

16%:

6 12

13:17:48 PAGE

21%

BEQ

104401

000000

TYPE
MOV
MOV
MOV

MOv

VAV IV TV IV ) uuu\a

O0O000

NG
AN

VONOWVNEH

33256
33260

OCOO0O0O0

Pt
o 8 8 B
[XV 0= O

il il

AN N

) il

)

B ol

ol el

el e

NN AN N AN AN NI N NI

) el

NI NI NIPNO NI N

) il

b b

D il

D i el el

il el

b et b [elelololelolololelolV.
NN —=OO0VONOWVNEIUWNN—=OV
NN W —=O VO ~NO N W=
O

9 033170

MACRO v03.01

:TEST NUMBER
:ERROR NUMBER
;BEGINNING OF TEXT ADDRESS
:BOT FLAG
. “HARACTER C(OUNT

CIRMNAO RMOS5/3/2 FCTINL TST 2
NS WP —

PREPARATION MODULE

11-APR-80

.SB8TTL
.
.

TEST

H 12
13:17:48 PAG E 15

SEQ 0150

PREPARATION MODULE

THIS MODULE PREPARES THE SUBSYSTEM FOR THE EXECUTION OF A
REPORTING AN ERROR TO THE USER IF AN ERROR ]S
DETECTED.

= OO0~

: SPECIFIES TASKS TO BE PERFORMED, WHICH THE MODULE EX ECUTES
; USING SUSROUTINES.
;CALL:

:
:
:
;

NUIPINUNIRUND
b = e o ol e o
s et =

OO VN

JSR
"WORD
BR
NOP

PC,TSTPRP
NNNNNN
p)

TEST,
THE USER

TASK/VERIFY DESCRIPTOR
RETURN HERE IF NO ERROR
RETURN HERE IF ERROR

ERROR

ERROR DEFINED BY MODULE

BIT

:
:

BIT 14 = 1

=2 O

DESCRIPTOR

BIT 13
BIT 12 = 1

(RESERVED FOR DRIVE CLEAR)
PACK ACKNOWLEDGE IF VOLUME NOT VALID

;TASK/VERIFY

g§; }8 = 1

RECALIBRATE IF POSITIONING IN PROGRESS

BIT 9

TEST

MACRO v03.01

15 = 1

:
;

1S AVAILABLE

CLEAR CONTROLLER AND SELECT DEVICE

BIT 8

BIT 7
BIT 6

BIT

;

SELECT DEVICE AND VERIFY DEVICE

BIT 4

BIT 3

VERIFY

VERIFY PACK ACKNOWLEDGE

CONTROLLER CLEAR OPERAT]ON

(RESERVED FOR DRIVE CLEAR)

VERIFY RECALIBRAT]ON

BIT 2

BIT 1
BIT O

TSTPRP:

017637
062716

000000
000006
000000
000004

004737
004737
000411
000401
000000
062716

037024
037110

105076
162716

034272

;STORE

TASK

MOV
ADD
CLRB
SUB

000137

000004
033410
034262

000000

013737

001376

034276

3(SP), 5008
26 (SP)
@($P)
5, (SP)

CLEAR USER'S ERRCR CALL

:STORE DESCRIPTOR
*MOVE SP 10 USERS ERROR (ALL
'CLEAR ERROR CALL
*MOVE SP T0 NO ERROR RETURN

JSR
JSR

PCLGETSTS
PC.GET

:SETUP TO READ ALL REGISTERS
‘GET RMER2

108:

8R
JWORD
ADD
MOVB
JMP

108
0
., (SP)
10$-2.3(SP)
400

*GET OVER ERROR NUMBER
*ERROR DEFINED BY GET SUBROUTINE
*XFER ERROR TO USER AND
‘GET ERROR NUMBER.

158:

MOV

RMER21,505%

:GET RMER2 AND SAVE FOR LATER

B8R

113776

DESCRIPTOR AND

15$

*BR IF NO ERROR DETECTED

;;t"'..'..."l'.'t"""""'I..t....."'"'.'..'...............

CIRMNAQ RMOS5/3/2 FCTNL TST 2
TEST

PREPARATION MODULE

005737
100014

034272

62 033444

0064737

045012

64 033452
65 03345¢
66 033456

000401
000000
062716

67 033462

23 033470

000611

113776

000137

112

11-APR-80 13:17:48 PAGE 15-1
SEQ 0151

58
59 033436
g? 033442

63 033450

MACRO v03.01

000004

033454

034262

(SELECT DEVICE AND VERIFY DEVICE AVAILABLE IF BIT
157
5008
:SELECT
DEVICE??
BPL
30¢
*NO!!
JSR

PC,DEVSEL

;60 SELECT DEVICE

BR
JWORD
ADD

208
0
0, (SP)

;ERROR NUMBER FROM DEVSEL
STRANSFER ERROR T0 USER

B8R
000000

208:

30$

MOVB

:NO ERROR - CONTINUE

zo£2,3(5P)

JMP

IN TASK

. .'0'tt""'t."""""""'t"'"t'l't"t"t"'.tt"t"i'tti"

72 033474

SCLEAR CONTROLLER

73 033476

032737

040000

76 033506

004737

046464

062716
113776
000137

000004
033514
034262

;g 033502

77 033510
78 033512
79 033514

80 033516
81 033522
gg 033530

001451

000411
000401
000000

034272

508:

BIT

B8R
B8R
WORD

408 :
000000

50$:

BIT

1S SET

#81714,5008

BEQ
JSR

;CLEAR CONTROLLER??

1208

INO'! .

PC,CNTCLR

:60 CLEAR CONTROLLER

60$
50
0

ADD
MOVB
JMP

IN TASK

:CONTINUE - NO ERROR

;ERROR NUMBER FROM (NTCLR

¥4, (SP)
40%,3(SP)
400$

STRANSFER ERROR TO USER

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

86 033534
87 033534

SVERIFY CONTROLLER CLEAR

gg 033542

001431

032737

000100

90 033544

004737

037110

91
92
93
96
95
gg

033550
033552
033554
033556
033562
033570

000411
000401
000000
062716
113776
000137

98
99
100
10°
102
103
106
}82

033574
033600
033602
033604
033606
033610
033614
033622

004737
000412
000401
000000
005726
062716
113776
000137

000004
033554
034262

034272

608:

BIT

JSR

000000

046602

70$:
BOS:

908:
1008:

000004
033604
034262

108
109
110 033626

SEXECUTE PACK ACKNOWLEDGE
*NOT VALID
1208:

033626

032737

010000

114 033636

004737

037110

}}g 03363¢

001503

034272

AR A

;60 GET

PC,CLRSTS
1208
1108
O
(SP)+
84, (SP)
100%.a(SP)
400$

JMP

A A

R g

SVERIFY??

PC,GET

JSR
BR
BR

Move

JERROR FROM GETTING STATUS
;TRANSFER ERRQR T0O USER

;60 VERIFY STATUS CLEAR
*NO ERROR IN CLEAR
:ERROR

IN STATUS CLEAR

;STRIP RETURN ADDRESS 10
;SUBROUTINE AND TRANSFER
*ERROR 10 USER

#B1112,500%

JSR

PC,GET

2608

STATUS

*NO ERROR GETTING STATUS

BIT

BEQ

IN TASK

INO! !

90$
80%
0
#4,(SP)
70%,3(SP)
400$

187
ADD

000000

BIT6 SET

1208

BR
BR
.WORD
ADD
MOVB
JMP

.WORD

110%:

#B116,500%

BEQ

107

111

15 SET

BIT12 SET
:PACK

NO. .

IN TASK AND VOLUME
ACKNOWLEDGE
??

CIRMNAQD RM0S/3/2 FCTINL TST 2

TEST

PREPARATION MODULE

115
116
117
118

033642
033644
033646
033650

000611
000401
000000
062716

}59 033662

119 033654

113776

MACRO v03.01

SEQ 0152

000004

000137

033646

034262

000000

122 033666
}52 033676

032737
001063

000100

001346

125
126
127
128
129
130
131
132
133
13¢
}gg

033676
033702
033710
033716
033726
033730
033732
033734
033736
033742
033750

005037
01./37
112737
112737
004737
000410
000401
000000
062716
113776
000544

001510
000023
000000
000200
037360

001410
003551
001552

}gg 033752

004737

037722

000004
033734

000000

130$:
1408:

1508:

1608:
1708:

1808:

139

BR
BR
.WORD
ADD

150%
1408
U
86, (SP)

JMP

4008

BIT
BNE

#VV,RMDS |
260%

CLR
MOV
MOVB
MOVB
JSR
BR
BR
.WORD
ApD
MOVB

MEDENB
;CLEAR MEDIA ENABLE
#PAKACK'GO,RMCS10
SLOAD PACK ACK COMMAND
WRM(S1,PUTINX
;SETUP REGISTER INDEX TABLE
#200,PUTINX¢1
PC,PUT
;60 WRITE COMMAND
1808
:NO ERROR LOADING REGISTER
170%
0
:ERROR FROM PUT SUB
2, (SP)
*TRANSFER ERROR T0 USER
160%.a(SP)
400$

JSR

PC,TIMOUT

Move

:NO ERROR GETTING RMDS
;TRANSFER ERROR

130%.a(sP)

10 USER

;1S VOLUME VALID??
SYES!!

:WAIT FOR COMMAND TO COMPLETE

";..Q"tl'.tl.""""""""'...'t""."".'tl.t"'tttt"t't't

140
141 033756

}2§ 033764

032737

001427

000020

144
145
146
147
148
149
}2?

033766
033772
033774
033776
034000
034004
034012

004737
000410
000401
000000
062716
113776
000523

037110

152
153
154
155
156
157
158
}58

034014
034020
034022
0340264
034026
034030
034034
034042

004737
000411
000401
000000
005726
062716
113776
000507

12‘

J 12
11-APR-B0 13:17:48 PAGE 15-2

000004
033776

_
034272

000000

047462

000004
034024

2208:
2308:
000000

032737

004000

168 034054

004737

037110

170 034062
171 034064

000401
000000

169 034060

BEQ

2408

JSR
BR
BR
.WORD
ADD
MOVE
BR

PC,GET
2108
200%
0
04, (SP)
190%.3(sP)
4008

:60 GET STATUS
*NO ERROR GETTING STATUS

JSR
BR
BR
.WORD
TST
ADD
MOvB
BR

PC,ACKSTS
2408
2308
O
(SP)+
#4,(SP)
220%.a(sP)
400$

;60 CHECK ACKNOWLEDGE
:NO ERROR

*RECALIBRATE DRIVE 1F BIT
‘OR "PIP"" IS ACTIVE.

001505

000410

#BIT4 SET IN TASK
;VERIFY PACK ACKNOWLEDGE??

INO! !

:ERROR FROM GET SUB
:TRANSFER ERROR TO USER

:PACK ACKNOWLEDGE ERROR
SSTRIP RETURN TO SUB AND
STRANSFER ERROR T0 USER

.';".......".""""""'."".."Itlltt..ttl'!l"tlt't't'ltttt

165 034044

}gg 034052

190$:
2008:

2108:

162
163

164 034044

IVERIFY PACK ACKNOWLEDGE IF
BIT
#B1T4,5008

034272

2408:

BIT

IS SET

IN TASK AND "'SKI'' IS SET

BEQ

4108

#B1111,5008

:RECALIBRATE??

JSR

PC,GET

:60 GET RMDS

BR
.WORD

260$
O

;ERROR FROM GET

BR
2508:

2708

*NO!!

:NO ERROR GETTING RMDS
SUB

CIRMNAQ RMOS5/3/2 FCINL TST 2

TEST

PREPARATION MODULE

1 72 034066

062716

};g 034100

000470

176 034102
177 0364110
178 034112

032737
001004
032737

181

034122

012737

185 034150

000410

173 034072

}gg 034120

182 034130
183 034136
186 034146
186 034152
187 0361564

188 034156

189 034162

113776

001462

112737
112737
004737
000401
000000

062716

113776

}g? 034170

000434

}35 034172

004737

000004

MACRO v03.01

034064

000000

060000

034274

020000

001346

000007

001410

000000
000200
037360

000004

034154

001551
001552

000000

037722

260%:

2708:

280$:

2908:

3008:

19‘

K 12
11-APR-80 13:17:48 PAGE 15-3

ADD

400%

BIT
BNE
BIT

#SK1,505%
280%
#P1P,RMDSI

move

(SP)

2508.a(sp)

BEQ

410%

MOV

NRECAL'GO,RMCS10

3008

MOVB
MOVB
JSR
BR
LMORD

ADD

MOVB

WRMCST,PUTINX
#200,PUTINX+1
PC,PUT
290%
O

86,

(SP)

2908-2,3(SP)

B8R

400%

JSR

PC,TIMOUT

SEQ 0153

;TRANSFER ERROR TO USER

:WAS SKI SET ?
SYES, GO RECALIBRATE
"1S PIP ACTIVE??

*NO! !

:LOAD RECALIBRATE

;AND REGISTER INDEX

COMMAND

;60 ISSUE RECALIBRATE

*NO ERROR

;ERROR IN REGISTER TRANSFER
“TRANSFER ERROR TO USER

;WAIT FOR COMPLETION

.'.'""'..ttt"'."""""'t""tt.lt.tttt."'.".ttltt't.'ttttt'

195
196 034176

032737

000010

199 034206

004737

037110

201
202
203
206
ggg

034214
034216
034220
0362264
034232

000401
000000
062716
113776
000413

207 034234

004737

209
210
211
212

000401
000000
005726
062716

000004

162716

000002

}g; 03462064

200 034212

208 034240

034242
034244
034246
034250

213 034254

214 034262

001430

000410

000412

113776

215 034266
%}? 034270

000240
000207

218 034272
558 034274

000000
000000

000004
034216

034272

BEQ

4108

*NO! !

JSR

PC,GET

;60 GETM

BR
.WORD
ADD
MOov8
BR

3208
O
24, (SP)
310%.a(sP)
400$

JSR

PC,RCLSTS

;60 CHECK RECALIBRATE

BR
.WORD
1ST
ADD

350%
O
(SP)+
#e, (SP)

:ERROR DURING RECALIBRATE
SSTRIP RETURN TO SUB AND
:TRANSFER ERROR TO USER

000000

050256

034244

IVERIFY RECALIBRATE If BIT 3 SET IN TASK
BIT
#8173,5008
:VERIFY RECALIBRATE??

310$:
3208:

3308:

3,08:
3508:

000000

4008:

MOVB

SUB

4108:

NOP
RTS

500%
505%

MORD
WORD

330¢

4108

3408 ,3(5P)

STATUS

*NO ERROR GETTING STATUS
;ERROR FROM GET
STRANSFER ERROR T0 USER

*NO ERROR DURING RECALIBRATE

#2.,(5P)

:MOVE SP BACK BEFORE ERROR

:RETURN TO USER

0
0

;TASK/VERIFY DESCRIPTOR
SCONTAINS RMER?2

CIRMNAO RM0S5/3/72 FCTNL TST 2

BAD SECTOR MODULE

MACRO v03.01

L 1 12

11-APR-80 13:17:48 PAGE

.SBTTL

SEQ 0154

BAD SECTOR MODULE

O N S

;THE MODULE 1S INTENDED TO BE CALLED PRIOR TO CALLING THE BUFFER
: GENERATOR SUBROUTINE, AND PRESERVES THE ''PUT BUFFER'' SO THAT THE
;BUFFER NEED ONLY BE FILLED ONCE FOR THE EXECUTION OF A FORMAT
;OPERATION.

NN = OO 00

:THE_MODULE RETURNS TO THE CALLING TEST WITH THE APPROVED OR ASSIGNED

PUORIPOIRININD
ot =P b et e e od e e ek

;SECTOR IN THE PUT BUFFER AND ALSO IN LOCATIONS ‘'ASNDA‘' AND ‘‘ASND(C"’
;S0 THAT A REFERENCE IS AVAILABLE TO THE TEST OUTSIDE Of THE PUT BUFFER.

= OO0 NO NS

;

THE BAD

(1)

(2)

SECTOR MODULE

PERFORMS TWO MAJOR FUNCTIONS:

RECOVER THE BAD SECTOR FILES AND

APPROVE THE USAGE OF
THE

BAD

A SECTOR BASED ON INFORMATION IN

SECTOR FILES OR ASSIGN A NEW SECTOR

ELECTED 1S NOT AVAILABLE FOR USE.

THE

ONE

; INFORMATION REQUIRED BY THE MODULE INCLUDES:
;
(1)
.RMDCO - THE DESIRED CYLINDER,
(2)
.RMDAD - THE TRACK AND SECTOR ADDRESS,

(3)

(6)
(5)

;
;

CALL:

—.Nd

NO~N

— —t D
oo

034276
034276
034302
034306

[aSAV
1, 8]

BADSCT:

000006
000000
000006

.RMWCO - THE WORD COUNT,

.RMCS10 - THE COMMAND,
.RMOFO - THE FORMAT MODE

JSR
BR

PC,BADSCT
m

ERROR

ADD

#6, (SP)

TYPE

(LRB
SuB

.MESSAGE

;CALL SUBROUJTINE
;RETURN HERE IF NO ERROR
RETURN HERE ]F THE BAD SECTOR FILE
. CANNOT BE RECOVERED.
:THE

EMT

OFFSET

NUMBER

;BY BAD SECTOR MODULE.

8(5P)

86, (SP)

sCLEAR ERROR NUMBER
JERROR CALL.

°'N'

DEFINED

[N USER'S

STEST "MEDIA ENABLE'' TO DETERMINE WHETHER OR NOT THE BAD SECTOR FILES
034312
034316
034320

005737
001402
000137

;HAVE BEEN RECOVERED.

001510

151

MEDENB

BEQ
JMP

035572

5%
300%

*YES, BAD SECTOR FILE 1S AVAILABLE

+RECOVER THE MANUFACTURES /

034324
034324
034326
034330
034336
034342
034346

sTRACK = LAST
:PUT BUFFER

010046
005000
016060

062700
022700
103370

3
001410
000002
000046

101206

10%:

MOy

CLR
MOV

ADD
(Mp

BH]S
sSET RETRY

034350

012737

000003

036210

TRACK

:gaslgAaosec1on FILES BEEN RECOVERED ?

(RMQ2/3

SERS BAD SECTOR FiLE FROM CYLINDER = 822.,
& AND RMOS5 =

18.).

SAVE

THE USER'S

RO,=(SP)
:;PUSH RO ON STACK
RO
;START WITH RM(S!
PUTBUF
(RO) ,BUFFER(RO)
#2,R0
;ADVANCE TO NEXT BUFFER POSITION
#66,RO
:5SD|9F BUFFER

10%

COUNT AND LOAD PUT BUFFER AND REGISTER

;SETUP PARAMETERS TO READ SKIP SECTOR FILE FIRST
MOV

ALSO,

#3,500%

<RETRY

COUNT

INDEX

TABLE

(3 SECTORS)

CIZRMNAOQ RM0OS5/3/2 FCTNL TST 2

BAD SECTOR MODULE

MACRO v03.01

SEQ 0155

57
58
59
60
25

034356
034366
034372
036400
034406

012737
013737
012737
012737
012737

001466
001332
177376
010000
103216

63
64
65
66
67
68
69
70
;;

034414
034420
034426
034430
036434
036440
036444
034450
034454

012700
112720
112720
112720
112720
112720
112720
112720
012600

001551
000006
000034
000002
000032
000006
000000
000200

001444
001416
001412
001442
001414

004737
004737
000411

79 034472
80 034474
81 034500

000000
062716
113776

gg 0364512

gg 034506

87
88
89
90

034520
034526
034532
034534

000137

01373

001376

036222

012737
004737
000411
000401

000011
037360

001410

004737
004737
000411

113774
000137

000401
000000

000006

034536
035272

000006
034572

105 034612

004737

052020

107 034620
108 034622

000401
000000

110 034626

062716

000006

}}g 034640

000137

035272

106 034616

109 034624

111 034632

000137
000612

005726
113776

000000

037722
037110

062716
113776

}82 034606

¥PUTINX,RO
#RMDA, (RO)+
WRMDC.(RO)+
#RMWC.(RO)+
WRMOF
. (RO)+
#RMBA.(RO)+
WRMCST,(RO)+
#200, (R0)+
(SP)+,RO

:DESIRED CYLINDER = 822.
:STARTING LAST TRACK, SECTOR = 0
:2 + 256. WORDS (2°S COMP)
:16 BIT FORMAT
:POINT TO MANUFACTURES FILE BUFFER

RO POINTS TO REGISTER INDEX TABLE

:,POP STACK INTO RO

JSR
JSR
BR

PC.GETSTS
PC.GET
30$

WORD
ADD
MOVB

0
#6, (SP)
25$-2,3(SP)

:ERROR DEFINED BY GET SUB
*XFER ERROR TO USER AND
:GET ERROR NUMBER.

MOV

RMER21.,550%

:GET RMER2 AND SAVE FOR LATER

B8R
000000

96 034556
97 034562
98 034566

101 034574
102 034600

037024
037110

000006
034472
035272

000000
062716

99 034570
100 034572

208:

000401

91 034536
92 034540

93 0364544
gg 034552

#822.,RMDCO
LSTRK.RMDAO
#-258_ ,RMWCO
NFMT16,RMOFO
#MEGFIL,RMBAO

.SET GET INDEX TABLE FOR READING STATUS

75 036456
76 034462
77 034466

78 034470

MOV
MOV
MOV
MOV
MOV

MOV
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOV

74 034456

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

035272

258:

JMP

30%:

358
408:

508 :

55¢:

608:

65$:

034622

70$ :

000000

2158

:JUMP OVER ERROR NUMBER

;CLEAR THE DEVICE USING DRIVE CLEAR COMMAND

458:

000000

258

:SETUP GET INDEX REGISTER FOR STATUS
:GET REGISTERS
:BR IF NO ERROR

MOV
JSR
BR
BR

#DRVCLR' GO, RMCSTO
;LOAD COMMAND IN PUT BUFFER
PC,PUT
:OUTPUT COMMAND
45$
:RETURN HERE IF NO ERROR
408
:GET AROUND ERROR #

JWORD
ADD

0
#6,(SP)

‘ERROR # GOES HERE
:MOVE SP TO USERS ERROR CALL

SR
JSR
BR

PC,TIMOUT
PC.GET
60$

:WAIT FOR COMPLETION
260 GET STATUS
:RETURN HERE If NO ERROR

MOVB
JMP

35%,a(SP)
215$

B8R
.WORD

55¢
0

JMP

215¢%

ADD
MOVB

86, (SP)
50%,a(SP)

*MOVE ERROR NUMBER TO USER

:GET AROUND ERROR ¥
"ERROR # GOES HERE

:MOVE SP TO USERS ERROR CALL
:MOVE ERROR # TO USERS ERROR CALL

JSR

PC,DRVSTS

;60 VERIFY DRIVE CLEAR COMMAND

BR
WORD

708
0

:GET AROUND ERROR
:ERROR ¥ GOES HERE

ADD

¥6,

JMP

215¢

181

MOVB

75¢

:RETURN HERE IF NO ERROR

(SP)+

‘STRIP RETURN TO SUBROUTINE

65%,3(SP)

*MOVE ERROR # TO USER CALL

(SP)

:MOVE

SP TO USERS ERROR CALL

CZRMNAOQ RM05/3/72 FCTNL TST 2

BAD SECTOR MODULE
114

115 034644

MACRO v03.01

. 1SSUE

116 034644

032737

000100

001346

119 034654
120 034662

012737
004737

000023
037360

001410

122 034670

000401

}}g 034652
121 034666

123 034672

124 034674

001052
000611

000000

062716

000006

359 034706

000137

035272

128 034712

004737

130 034722

000411

125 034700

129 034716
131 034726

132 034726

113776

004737

034672

000006
034726
035272

137 034746

004737

047462

139
140
141
142

0347564
034756
034760
034762

000401
000000
005726
062716

000006

;22 034774

000137

035272

143 034766

146

147
148
149
150
}2;

000412

113776

034756

1008:

1108:
115%:

000000

040000

036222

020000

00346

158 035020
154 035026

012737
004737

000007
037360

001410

156 035034
157 035036
158 035040

000401
000000
062716

001452

000611

1308:

}g? 035052

000137

035272

162 035056
163 035062

004737
004737

037722
037110

135¢:

165 035070
166 035072
167 03507¢

000401
000000
062716

000006

000137

035272

164 035066

000411

000006

168 035100 113776 035072 000000
}?8 035106

90$

WORD

move

80%.a p)

ADD

INO !

:RETURN HERE ]F NO OUTPUT ERROR

85
T

:5ET AROUND ERROR #

‘ERROR # GOES HERE

:MOVE SP TO USERS ERROR CALL

‘MOVE ERROR # TO ERROR CALL

21ss

JSR

PC,TIMOUT

:WAIT FOR COMPLETION

104$

*RETURN HERE IF NO ERROR

JSR

PCGET

160 GET STATUS FOR PACK ACK

1008

:GET AROUND ERROR #

WORD

JSR

PC,ACKSTS

;60 VERIFY ACKNOWLEDGE STATUS

BR
.WORD
187
ADD

115s
O
(SP)+
#6, (SP)

:GET AROUND ERROR #
‘ERROR # GNES HERE
;STRIP RETURN TO SUBROUTINE
‘MOVE SP TO USERS ERROR CALL

JMP

215%

ADD
MOVB
JMP

"ERROR # GOES HERE

86, (SP)
95¢%.,a(SP)
215$

*MOVE SP TO USERS ERROR CALL
;MOVE ERROR # TO CALL

1208

:RETURN MERE IF NO ERROR

116S a3 (SP)

THE DRIVE

IFf

JMOVE ERROR ¥ TO USERS ERROR CALL
°

OR 'PIP

IS SET

BIT
BNE
BIT

#SK1,550%
1258
#P1-,RMDSI

MOV
JSR

#RECAL !GO,RMCS10
:LOAD RECALIBRATE
PC,PUT
;PUT THE RECAL COMMAND

BR
WORD
ADD

130%
O
06

JMP

215

JSR
JSR

PC,TIMOUT
PC.GET

:WAIT FOR RECALIBRATE
160 GET RECAL STATUS

BR
.WORD
ADD

145%
O
06, (S

:GET AROUND ERROR #
“ERROR # GOES HERE
*MOVE SP TO USERS ERROR CALL

JMP

215%

MOVB
BR

1408:
1458:

;1S vV RESET

120§

159 035044 113776 035036 000000

IS RESET

lPACACK'GO.RHCSlO
,LOAD COMMAND
PC,PUT
260 PUT COMMAND TO DRIVE

BEQ

125%:

VALID

MOV
JSR

:RECALIBRATE

032737
001004
032737

VOLUME

#VV RMDSI

MOv8
1208

SEQ 0156

BIT

JMP

105%:

035000
035000
035006
035010
035016

155 035032

85$:

958 :
000000

A PACK ACKNOWLEDGE

BNE

908 :

037110

062716
113776
00N'37

138 034752

000000

037722

133 034730
134 034734
}gg 034742

758

808 :

000401

000000

N 12
11-APR-80 13:17:48 PAGE 16-2

MOVB

1658

;WAS SKI SET ?
:YES, GO RECALIBRATE
Y1S PIP SET 77

INO

COMMAND

1358

*RETURN HERE IF NO ERROR

136s-z a(SP)

‘MOVE ERROR ¥ TO USERS CALL

1508

1465sp>

:GET ARQUND ERROR #
:ERROR # GOES HERE
*MOVE SP TO USERS ERROR CALL

TO COMPLETE

:RETURN HERE IF NO ERROR

*MOVE ERROR TO USERS CALL

CIRMNAO RM05/3/2 FCTNL TST 2

BAD SECTOR MODULE

171 035112

004737

173 035120

000401

172 035116

000612

050256

174 035122
175 035124
176 035126

000000
005726
062716

000006

};3 035140

000137

035272

177 035132

113776

MACRO v03.01

035122

1508:
1558:
1608:

000000

}g? 03514t
012737
004737

185 035160
186 035162

000401
000000

188 035170

113776

187 035164

000411

000073
037360

062716

000006

}gg 035176

000137

035272

191 035202
192 035206

004737
004737

194 035214
195 035216
196 035220

000401
000000
062716

000006

}gg 035232

000137

035272

200 035236

004737

202
203
204
205

035244
035246
035250
035252

000401
000000
005726
062716

000006

ggg 035264

000137

035272

ng 035270

000450

193 035212

197 035226

201 035262

206 035256

PC,RCLSTS

:60 VERIFY RECALIBRATE STATUS

B8R

1608

*GET AROUND ERROR #

155%.a(sP

*MOVE ERROR # TO USERS CALL

1648

.WOPD
TST
ADD

0
(SP)+
#6, (SP)

JMP

215%

Mov8

000411

113776

000412

113776

035162

001410

:RETURN HERE IF NO ERROR

SERROR # GOES HERE
*STRIP RETURN TO SUBROUTINE
“MOVE SP TO USERS ERROR CALL

000000

037722
037110

035216

180%:

000000

052622

035246

#RH'GO,RMCS10
PC,PUT

;LOAD READ HEADER AND DATA COMMAND
:PUT COMMAND

BR
.WORD

1758
0

:GET AROUND ERROR #
"ERROR # GOES HERE

MOVB

176s 3(SP)

ADD

195%:
2008:
2058:

000000

86, (SP)

:RETURN HERE IF NO ERROR

;MOVE SP TO USERS ERROR CALL

:MOVE ERROR # TO USERS ERROR CALL

215%

JSR
JSR

PC,TIHOUT
PC,GETY

JWAIT FOR READ OPERATION TO COMPLETE
;60 GET STATUS FOR READ OPERATION

BR
.WORD
ADD

1908
0
86, (SP)

:GET AROUND ERROR »
:ERROR # GOES HERE
;MOVE SP TO USERS ERROR C(CALL

JMP

215%

JSR

PC,DTASTS

;GO VERIFY RESULTS OF

B8R
.WORD
TST
ADD

205%
O
(SP
T <sp>

:GET AROUND ERROR #
"ERROR # GOES MERE
-STRIP RETURN ADDRESS TO SUBROUTINE
*MOVE SP TO USERS ERROR CALL

JMP

MOVB

2108:

180$

JMP

1858:
190$:

INCLUDING HEADER AND DATA

MOV
JSR

BR
1708:
175%

SEQ 0157

JSR

i2§2° THE SECTOR IDENTIFIED BY RMDAO,

182 035144
183 035152

184 035156

B 13

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

194¢

1sés 3(SP)

2108

6s a(SP)
2408

:RETURN HERE IF NO ERROR
‘MOVE ERROR # TO CALL

READ OPERATION

:RETURN HERE IF NO ERROR

“MOVE ERROR # TO USERS CALL
:NO ERRORS DETECTED

211

'."tt't't.'..tt""""""""tttt't""t.ttt'tttttt|tt'tttt'tt'

212
213

;AN ERROR HAS BEEN DETECTED IN TRYING TO READ THE BAD SEC'OR FILE.
* THE secron WILL BE RETRIED IF POSSIBLE.

214 035272

215 035272
539 035276

005337
100030

036210

218

219 035300

215¢

DEC
8PL

5008
225%

:YES, DECREMENT RETRY COUNT AND
CRETRY IF COUNT NOT NEGATIVE.

:THE RETRY COUNT HAS EXPIRED - SEE IF

220 035300
221 035306
s%% 035310

013746
042726
001027

001376
100000

226 035312
225 035316
226
227 035322

013746
042726

001350
100720

001022

2208:

THE ERROR 1S MEDIA RELATED

MOV
BIC
BNE

RMER2],=(SP)
#B5E. (SP)+
230%

MOV
BIC

RMER1],=(SP)
:GET ER1
#DCK 'HCRCHCE 'FER'ECH, (SP)+
:ARE THERE ANY NON-MEDIA ERRORS ?
2308
SYES, EXIT AND REPORT ERROR ON RE TURN

BNE

;GET ER2
*ANY NON-MEDIA ERRORS ?
JYES, EXIT AND REPORT ERROR ON RETURN

CZRMNAD RMOS/3/2 FCTINL TST 2

BAD SECTOR MODULE

MACRO v03.01

228
229
230

SANOTHER AREA ON THE LAST TRACK

233 035326

062737

235 035340
236 035362
ggg 035350

001413
122737
001407

239 035352
260 035360

012737
162716

236 035332

%2; 035366

122737

000137

000002

001416

ADD

#2 ,RMDAO

;ADVANCE SECTOR ADDRESS BY 2

000040

001416

BEQ
(MPB
BEQ

230%
#32.,RMDAO
230%

STRIED.
SQUIT IF ALL USER SECTORS WAVE BEEN
STRIED.

000003
000006

036210

#3,500%
86, (SP)

JREINSTATE RETRY (OUNT FOR Tw]S SECTOR
;MOVE SP BACK TO NO ERROR

000012

001416

034456

2643

264 035370

035370
035372
035400
035402
035406

253 035412

000240
032777
001002
162716
000137

020000

1435564

000004
036204

2358:

104226

001414

000012
104224

001416
0014614

259 035436
Sg? 035444

012737
000137

100003
U34456

036210

262

266
267
268
269
g;g

010046
010146

035464
035472
035500
035502
035506

012760
012760
005720
005301
001367

273 035512
276 035514
275 035520

276 035524
277
278
279
280
281

035526
035530
035532
035534

Jmp

20§

CRETRY THE READ OPERAT]ON

NOP
BIT
BNE
SuB
JMP

#SW13,35WR
235%
#6,(5P)
4108

CINHIBIT MESSAGE ?
SYES
;MOVE SP TO ERROR RETURN
160 TO MODULE EXIT

2608:

IFf

CMP
BEQ
MOvB
MOV

SUSRF 1L ,RMBAD
2608
#10.,RMDAO
SUSRF 1L ,RMBAD

JWAS THE USER FILE READ ??
SYES - READ 1S COMPLETE
JREAD THE USER FILE LAST TRACK, SECTOR = 10.
;POINT TO USERS FILE BUFFER

MOy
JMP

#3,500%
20%

JRELOAD THF RETRY COUNT FOR TMIS SECTOR
;60 READ T € USER FI]LE

-DUMMY THE BAD SECTOR FILES

035450
035452

272 035506

MOv
suB

SQUIT IF ALL MFG SECTORS MAVE BEEN

JTHE SECTOR WAS RECOVERED WITHOUT ERROR = READ THME USER FILE
“THIS IS THE MGF FILE OR ELSE DONE.

022737
001446
112737
012737

266 035454
265 035460

225%:

#10.,RMDAO

:THE BAD SECTOR FILE CANNOY BE READ

035412
035420
035422
035430

263 035450

cvP8

2308:

251
252

256
255
256
ggg

SEQ 0158

:THE ERRORS DETECTED WHILE TRYING TO RECOVER TME BAD SECTOR FILE ARE
:DUE TO THE MEDIA.
SEE IF THE BAD SECTOR FILE CAN BE RECOVERED FROM

%g;

245
266
267
248
ggg

€13

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

2508:

012701
012700

000374
000014

012701

000006

005000
005060
005060

005720

005301
001371
012601
012600

177777
177777

103216
104224

2558:

MoV
MOV

RO,-(SP)
R1 =(SP)

;;PUSH RO ON STAC(K
;sPUSH R1 ON STACK

MOV
MOV
ST
DEC
BNE

#-1.MFGFIL(RO)
#-1.USRFIL(RO)
(RO)*
R
255%

ENTER ALL ONES IN MFG FILE
-ENTER ALL ONES IN USER FILE
:ADVANCE ADDRESS
:DECREMENT COUNT
:CONTINUE 1F NOT DONE

MoV
MOV

MOV

257%:

#252. R1
#14,R0

6. .R1

;CLEAR HEADER, ZLEAR !D & SERIAL NUMBERS

{(RO) +

:ADVANCE ADDRESS

$
t.r e R
(SP)+,RO

;:POP STACK INTO R}
;;POP STACK INTO RO

CLR
(LR
CLR

RO
MFGF
1L (RO)
USRF
1L (RO)

DEC
BNE
[, [0]"]
MOV

:R1 = NUMBER OF ENTRIES IN FILES
;RO = ADDRESS INDEX T0 FILE S1ORAGE

;SET MEDIA ENABLE AND RESTORE

THE USERS PUT BUFFER

CIRMNAQ RMOS/3/72 FCTINL TST 2

BAD SECTOR MODULE

282 035536
035536
283 035540
284 035542
285 035550
286 035556
287 035562

010046
005000
012737
016060
062700
022700

%gg 035570

012600

288 035566

103370

MACRO v03.0°

2608:
177777
101206
000002
000046

(GO1510
001410

265%:

D13
11-APR-8G 13:17:48 PAGE 16-5

SEQ 0159

MmOV
(LR
MOV
MOV
ADD
CMP

RO,=(SP)
;:PUSH RO ON STA(K
RO
RO 1S REGISTER INDEX
#-1,MEDENB
BUFFER(RO) ,PUTBUF (RO)
#2.R0
:ADVANCE RO
946 RO
:DONE ??

MOV

(SP)+ RO

BHIS

265§

;:POP STACK INTO RO

291

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

292
293
296

JVERIFY THAT THE DESIRED SECTOR IS NOT IN THE MFG BAD SECTOR FILE
JAND NOT IN THE USERS BAD SECTOR FJLE. ASSIGN A NEW SECTOR IF THE
:SECTOR 1S IN ANY Of THE FILES.

295

.'.'t"'t".""""'t""""'"'Ql'."t!""""t"'l't't'tttt"'

296

297

298 035572

035572
035574
035576
299 035600
300 035606
301 035614
302 035616
303 035622
304 035624
305 035630
306 035636
307 035640
308 035644
309 035646
310 035650
311 035652
312 035654
313 035656
316 035660
315 035662
316 035664
g}g 035666

:LOAD INITIAL VARIABLES AND COMPUTE THE NUMBER OF

010046
010146
010246
013737
013737
005002
013700
005400
012701
032737
001402
012701
020100
101404
005700
001405
005202
000403
160100
005202
000767
010237

$00s:
0014446
001616

001512
001514

001412
000400
000002

001410

000402

3058:

310%:
036210

3158:

319
320

RO,=(SP)
R1.-(SP)
R2.=(SP)
RMDCO,ASNDC
RMDAO,ASNDA
R2
RMWCO,RO
RO
#256..R1
#81T1,RMCS10
305%
#258. ,R1
R1.RO
3108
RO
3158
R2
3158
R1,RO
R
305%
R2.500%

J;PUSH RO ON STACK
S:PUSH R1 ON STACK
$:PUSH R2 ON STACK
JLOAD REQUESTED CYLINDER, TRA(CK,
;AND SECTOR ADDRESS IN ASSIGNED STORAGE
:R2 = NUMBER OF SECTORS
‘RO = WORD COUNT
*MAKE NUMBER POSITIVE
:R1 = NUMBER OF WORDS PER SECTOR
;1S THIS A MEADER AND DATA (OMMAND ??
*NO !
; CHANGE WORDS PER SECTOR
215 THERE A FULL SECTOR 2?
SYES !
:1S RO ZERQ 7?
SYES 1
“INCREMENT FOR PARTIAL SECTOR
;SUBTRACT ONE SECTOR FROM WORD COUNT
- INCREMENT SECTOR (OUNT
;SAVE SECTOR COUNT

:LOAD PARAMETERS AND SEARCH THE MFG/USER SECTOR FJL.E FOR THE
;ASSIGNED SECTOR. ALSO, SEARCH THE ADJACENT SECTORS IfF THE

i%z

323
324
325
326
327
328

mov
MOV
MOV
MOV
MoV
CLR
MOV
NEG
MOv
817
BEQ
MOV
CMP
BLOS
ST
BEQ
INC
BR
SUB
INC
BR
"0y

SECTORS

SECTOR COUNT 1S MORE THAN ONE.
035672

012737

103232

035700

004737

035722

035712

004737

035722

331 035722
332 035730

013737
013737

001512
001514

035704

ggg 035716

g%z 035736

012737

000137

013737

104240

036220

MOV

036220

MOV

4008

:DONE WITH ALL FILE SEARCHES .

MOV
MOV

ASNDC,520%
ASNDA,S530%

;LOAD COMPARING CYLINDER ADDRESS
;LOAD COMPARING TRACKX, SECTOR ADDRESS

JSR

036162

036210

JSR

UMFGFIL*14,5408 ;THE STARTING ADDRESS OF MFG FILE
;70 BASE ADDRESS STORAGE.
PC, 3208
160 SEARCH FILE
FUSRFIL*14,5640% ;LOAD STARTING ADDRESS OF USR FILE
110 BASE ADDRESS STORAGE.
PC,320%
160 SEARCH FILE

JMP
036214
036216

036212

320%:

MOV

SOO$.§10$

;LOAD NUMBER OF SECTORS TO (ONFIRM

CIRMNAOD RMOS/3/2 FCTINL TST 2

BAD SECTOR MODULE

MACRO v03.01

SEQ 0160

339
336

337 035746

;SETUP FOR A BINARY SEARCH OF THME CURRENT FILE FOR THE COMPARING
:CY_INDER, TRACK AND SECTOR ADDRESS

338 035744
339 035750

013700
022710

036220
177777

341 035756

021037

036214

340 035754

gzi 035762

001646
001013

$25%:
3308:

126037
001004

000003

036217

350 035774
gg; 036002

126037
001402

000002

036216

353 036006

022020

358 036010

105237
122737
103337
105037
105237
123737
103327
005037
005237
022737
103317
005037
000714

001514
000037

$60$:
001514

001514
001515
001333

001515

001514
001512
001466

001512

001512
;THE

374
375

376 036072

$70s:

005337
001442

036212

380
381
382
383
384
385

036100
036104
036112
036114
036120
036124

105237
122737
103022
105037
105237
123737

036216
000037

036216

036216
036217
001333

036217

387 036134

005037

036216

036140
036144
036152
036154

(RO),520%

370§

‘BR IF YES

3508

IBR IF NO

:DOES TABLE ENTRY = (OMPARING CYLINDER ?
SEE

TME NEXT ENTRY EQUALS

(MPB
BNE

3(RO),530%+1
3508

:DOES TABLE ENTRY = COMPARING TRACK
:BR IF NO

CMPB
BEQ

2(R0),530%
3608

:DOES TABLE ENTRY = COMPARING SECTOR ?
‘BR IF YES

(MP

(RO)+, (RO)*

:NO, ADJUST CYLINDER POINTER IN BAD FILE

3308

SAND CONTINUE SEARCH.

INCB
CMPB
BH!S
(LRB
INCB
CMPB
BHIS
(LR
INC
CMP
BHIS
CLR
BR

ASNDA
#31.,ASNDA
3208
ASNDA
ASNDA+1
LSTRK+1,ASNDA+1
320%
ASNDA
ASNDC
#822. ,ASNDC
3208
ASNDC
3208

COMPARING SECTOR IS NOT

: INCREMENT SECTOR
SSECTOR OK 22
SYES !
JCLEAR SECTOR AND ADVANCE

TRA(K

;TRACK OK ?
SYES !
;CLEAR TRACK AND SECTOR
- INCREMENT CYLINDER
SCYLINDER OK 2?2
TYES '
SSTART AT CYLINDER 0
SSEARCH NEXT SECTOR

IN THE BAD SECTOR FILES.

DECREMENT

JNUMBER OF SECTORS TO COMPARE AND SEARCH THE NEXT SECTOR IF
1S NOT Z2ERO.

377 036072
g;g 036076

386 036132

CMpP

BEQ

;LOAD THE BASE ADDRESS IN RO
:1S THIS FILE TERMINATOR ?

;THE COMPARING CYLINDER, TRACK AND SECTOR 1S IN THE BAD SECTOR FILE.
:ADVANCE THE ASSIGNED SECTOR AND START THME SEARCH ALL OVER.

373

388
389
390
391

$45%:

3508:

000760

356
357

359 036010
360 036014
361 036022
362 036024
363 036030
364 036036
365 036062
366 036044
367 036050
368 036056
369 036062
370 036064
g;; 036070

5408 ,R0
#-1,(RO)

;FILE ENTRY EQUALS COMPARING CYLINDER.
THE COMPARING TRACK, AND SECTOR.

347 035764
g:g 035772

%2? 036006

MOV
(MP

BNE

344
345

366 035764

€ 13

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

103012

005237
022737
103002
005037

036214
001466

036214

THE NUMBER

DEC
BEQ

510%
4108

;DECREMENT NUMBER Of
:DONE If ZERD

INCB
(MPB
BHIS
C(LRB
INCB
(MPB
BHIS

530%
#31.,530%
3758
530%
530841
LSTRK+1,5308+1
3758

;INCREMENT THE COMPARING SECTOR
SSECTOR OK ??
SYES 'Y
SCLEAR SECTOR
S INCREMENT TRA(K
:TRACK OK ??

INC
(MP
BHIS
(LR

5208
#822.,5208
375%
5208

- INCREMENT CYLINDER
SCYLINDER OK ??
SYES !
SSTART AT CYLINDER 0

(LR

5308%

SYES

SCLEAR SECTOR TRA(K

THE

SECTORS TO (OMPARE

BAD SECTOR MODULE

036160

000671

MACRO v03.01

11-APR-80

375%:

JASSIGN

THE

SECTOR

MOV

MOV
MOV
MOV

410%:

412

036222

000000
000000
000000
000000
000000
000000

RETURN

USER

ASNDC,RMDCO
ASNDA ,RMDAQ

;LOAD
JLOAD

(SP)+ R
(SP)+ RO

;:POP STACK
::POP STACK

(SP)+,R?2

CYLINDER
TRACK AND

SECTOR

;;POP STACK INTO R?

INTO RI
INTO RO

FOLLOWING ARE

500%:
510%:

.WORD
.WORD

530%:
5608 :
550%:

.WORD
.WORD
.WORD

520%:

AND

;SEARCH NEXT SECTOR

NOP
RTS

:THE

036210
036212
036214
036216
036220

16-7

325%

MOV

036204
036206

SEQ 0161

600%:

400

13:17:48 PAGE

.WORD

OOO0O0O

CIRMNAQO RMOS/3/2 FCINL TST 2

STORAGE

LOCATIONS

FOR

THE

MODULE

sRETRY COUNT/ NUMBER OF

SECTORS REQUIRED

sNUMBER OF SECTGRS TO (OMPARE
s COMPARING CYLINDER
s COMPARING TRACK AND SFCTOR
;BASE ADDRESS OF BAD SECTOR FILE BEING SEARCHED
;CONTAINS RMER?2

CIRMNAQ RMOS5/3/2 FCTINL TST 2

BUFFER GENERATOR SUBROUTINE

613

MACRO v03.01

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

SEQ 0162

;

.SBTTL

:THIS SUBROUTINE GENERATES A DATA BUFFER FOR WRITE COMMANDS.

;CONTAINS A REPETITIVE DATA PATTERN CONSISTING OF

BUFFER GENERATOR SUBROUTINE

;BUFFER

6
7

STARTS

RMW(

WORDS

LONG.

THE

BUFFER

$TMP1

THE

WORDS

:RMDA AND RMOF
.

10
"
12
13

;RO
;R
;R2
;R3

=
=
=
=

ADDRESS OF DATA BUFFER
LENGTH OF DATA BUFFER
ADDRESS OF DATA PATTERN
LENGTH OF DATA PATTERN

;R4 = SECTOR COUNT

16
17

s CALL
(1)

:(2)

20 036224
036226
036226
036230
036232

036234

036236
036242
0362646
036254

GENBUF:

010046
010146
010246
010346

010646

JSR

PC,GENBUF

MOV
MOV
MOV
MOV

RO,=(SP)
R1,-(SP)
R2,=(SP)
R3,-(SP)

;;PUSH
;:PUSH
;;PUSH
;:PUSH

MOV
MOV
MOV
MOV

RMBAO, RO
RMWCO,RY
RMDCO,60%
RMDAO,65%

:LOAD
:LOAD
:LOAD
;LOAD

#BIT1,RMCS10
25%
60%, (RO)
#29.,R2

;WRITE MEADER & DATA??
;NO'!
:WRITE HEADER WORD #1
;SET BAD SECTOR FLAGS FOR GOOD SECTOR
:R2 = MAXIMUM SECTOR ADDRESS (29.)

817
BEQ
BIS
MOV

FEMT16,RMOFO
15%
#EMT16, (RO)
31, %2

;18 BIT FORMAT??
JYES !
;SET 16 FORMAT BI' IN HEADER
;CHANGE MAXIMUM SECTOR ADDRESS

INC
BEQ

R1
50%

:INCREMENT WORD COUNT
SEXIT IF DONE

(RO)+

;MOVE RO TO HEADER WORD #?

R1
50%
#65% ,R3
(R3)
R2,(R3)

: INCREMENT WORD COUNT AND
;EXIT 1F DONE
:ADVANCE SECTOR ADDRESS

MOV

013700
013701
013737
013737

0014146
001412
001446
001416

036456
036460

26 036262
27 036270
28 036272

032737
001445
013710

000002

001410

036456

BIT
BEQ
MOV

gg 036302

012702

000035

MOy

036306
036314
036316
036322

032737
001604
052710
012702

010000

37 036326
gg 036330

005201
001443

40 036332

(05720

42
63
&6
&5
6

005201
001436
012703
105213
120213

29 036276
32
33
34
gg

AND

;FROM THE DATA PATTERN TABLE, BEGINNING AT ADDRESS $TMPQO.
SHEADER INFORMATION FOR THE BUFFER IS EXTRACTED FROM RMDC,

21
22
23
sg

RMBA

41 036334

036340
036342
036344
036350
036352

47 036356

48 036356
49 036360
50 C36364&

51 036372

52 03637«

052710

013720

140000

BIS
001442

010000
000037
15%:

157

(366460
0366460

105013
105263
123763

00000

105063

000001

001333

000001

#MSE'USE, (RO)

MOV

659, (RO) ¢+

BHIS

25$

INC
BEC
MOV
INCB
(MPB

103013
103004

10%:

R4 ,=-(SP)

(LRB
INCB
(MPB

BHIS

(LRB

(R3)
1(R3)
LSTRK*Y,1(R3)

25%

1(R3)

RETURN nERE
RO
R1
R2
R3

ON
ON
ON
ON

STACK
STAC(K
STACK
STA(K

;PUSH R4 ON STACK

DATA BUFFER ADDRESS
WORD COUNT
STARTING CYLINDER ADDRESS
STARTING TRACK,SECTOR ADDRESS

:WRITE MEADER WORD #2

:SECTOR OVERFLOW ??

INO !

SYES - CLEAR SECTOR ADDRESS
;ADVANCE TRACK ADDRESS
:TRACK OVERFLOW ??

;NO !

;YES = CLEAR TRACK ADDRESS

(31.)

CZRMNAO RMOS5/3/72 FCINL TST 2

BUFFER GENERATOR SUBROUTINE

036400

05237
2706

036456
000400

3103

001176

036404
0364610
036614
036420
036622
036424
036426
036430
0364632
0364634
036436
036440
036440
036442
036446
C36446
036450
036452
036454

000207

036456
036460

000000
000000

3702

000770

012604
012603
012602
012601
012600
000240

MACRO v03.01

11-APR-80

13:17:48 PAGE

17-1

SEQ 0103
INCB

YOV

001174

60%:

50%:

MOv
MOv
MOv

(R2)¢+,(RO)»

INC
BEQ
DEC
BEQ
DEC
8tQ
BR

MOV
MOov

(SP)+,R3

;WRITE DATA PATTERN

: INCREMENT WORD COUNT

JEXIT

108

;START NEXT

40$

;CONTINUE DATA PATTERN

Ré

R3
308

(SP)+,R&

(SP)+,R2
(SP)+,R]
(SP)+,RO

PTS

.WORD
.WORD

sADVANCE CYLINDER ADDRESS
JLOAD SECTOR DATA COUNT
;LOAD PATTERN ADDRESS
;LOAD PATTERN COUNT

50%

MOV

MOV
MOV
NOP

60%:
65%:

60%
n256. R
$TMPO,R2
$TMP1,R3

CONE

AND

JDECREMENT SECTOR (OUNT
SECTOR

JDECREMENT PATTERN COUNT
;RESTART PATTERN |F 0
STACK

INTO R4

;:POP STACK

;:POP

INTO R3

::POP STACK
;:POP STACK
::POP STACK

INTO R?
[NTO R?
INTO RO

JCYLINDER ADDRESS STOURAGE

JTRACK,

SECTOR

ADDRESS

STORAGE

CIRMNAQ RMOS5/3/72 FCINL TST 2

ol avd
il
i
k) el
el
—

PIPLAUNININ
s —

N i)
— O O 0

NOWVES
WA
O 0V00 O N WA
—

COMPARE BUFFER SUBROUTINE

MACRO v03.01

11-APR-80

.SBTTL

13:17:48 PAGE

SEQ 0164

(COMPARE BUFFER SUBROUTINE

:THIS SUBROUTINE COMPARES THE CONTENTS OF BUFONE AND BUF TWO,
SASSUMING THAT BUFONE IS THE BUFFER FROM WHI(CH DATA WAS WRITTEN
;AND BUF TWO

THE

BUFFER

TO WHICH DATA WAS

READ.

ERRORS

IN BUFFER

:COMPARISON ARE REPCRTED TO THE USER VIA THE USER'S ERROR CALL.

:CALL:
(N

T(2)
‘(&)

NOP

;(6)

277

036556
036560
036562
036566
036570
036572
036576

001366

100000

001350

000100

001350

010000

001366

100000

022701

103004
162701

005720
000771
012702
010203

000020

CLR

1508

BIT

108:

20%:
-MOVE

$0s:

ERROR

S:PUSH R1 ON STACK
S:PUSH R2 ON STACK
S:PUSH R3 ON STACK

SCLEAR CORRECTION FLAG

ECI,RMOF |

:WAS ECC

CORRECTION ALLOWED

BNE
BIT
BEQ

80$
#DCK,RMERT]
80%

INO !
;WAS. ruene A DATA CHECK ??
‘NO

BNE
BIT
BEQ

80$
#FMT16,RMOF |
80%

SYES !
©1S THIS 16 BIT FORMAT
INO !

NECH,RMERT]

RMBAO, RO

BIS

#B1T15.1508

TO WORD BOUNDARY

m6. ,R1

;g!

%82)0

BHIS
SuB

MOV

ASL

000013

35%:

036616

001402

;CORRECT THE
40%:
8IT

INC
BR
MOV

35%

R3
308
#11.,R3

ERROR BURS!
R2,RMEC2]

= ECC

POSITION

:SET CORRECTION FLAG
ERROR BURST

;1S BIT POSITION > 1 WORD
1 WORDS WORTH
;ADVANCE BUFFER ADDRESS 1

#,R2

R3,R1

:R1

INO !
;SUBTRACT

WORD

;R2 = BIT POINTER

R2,R3

CMP

BEQ

20%
"6, R

R2 TO STARTING BIT

036600
036602
036604
036606
036610
036612

1S ennon CORRECTION HARD SET ?

;RO = STARTING BUFFER ADDRESS

RMECT],R1

(MP

INFORMATION

MOV

MOV
;MCVE

NO ERROR

DATA SHOULD BE CORRECTED

;CORRECT DATA USING ECC
037022

RETURN HERE

;:PUSH RO ON STACK

R1.=(SP)
R2.=(5P)
R3,=(SP)

81T

000020
000001

RO,=-(SP)

:DETERMINE

RETURN HERE

ERROR DEFINED BY SUBROUTINE

MOV

MOV
MOV
MOV

004000

WRITE BUFFER ADDRESS

ERROR

037022

001414
0014C0

READ BUFFER ADDRESS

:
(MPBUF

036536
036542
036546

-WORD

H(3)
1 (5)

036476
036504
036506
036514
036516
26 036524
036526
036534

PC.CMPBUF

.MORD

;

036462
036462
036464
036466
036470
036472

JSR

;R3 = BIT NUMBER
OF

ERROR BURST

;1S R3 SAME AS R1 22
YES

SHIFT BIT POINTER

: INCREMENT BT NUMBER
:R3 = LENGTH OF ERROR BURST
¢1S THIS BIT

SET

[N ECC PATTERN

CIRMNAOQ RMQOS5/372 FCINL TST 2
COMPARE BUFFER SUBROUT INE
036622
036624
036626
036630
036632

036654
036660
036666
036672
036700
036704
036710
036712
036714
036716
036720

017600
062766
017601
062766
013702
163702
022021
001003
005302
001374
000433

036722
036726

036732
036736

036742
036746
036754

NOMM
NN N NN
OO NN~N~NN

036634

000000
L Y o U W SR QY i
O
OO S~ &
NNV
O = O

036636
036640
036642
036646
036650
036652

001405
030210
001402
060210
000401
050210
006302
001003
012702
005720
005303
001361

036762
036770
036772
037000
037006
037010
037010
037012
037014
037016
037020

032737
001403

037022

000000

112776
162766

000240
012603
012602
012601
012600
000207

MACRO v03.01

11-APR-BC

18-1

SEQ 0165
BEQ
BIT

608
R2, (RO)

:NO - DO NOT CORRECT TWIS BIT
;1S THE BIT PRESENTLY SET ??

BIC

R2,(RO)

"RESET THE BIT

B1S

R2, (RO)

SSET THE BT

BEQ

50$ :

608 :
00000
708 :

000010
000002
000010
000002
001336
001412

13:17:48 PAGE

000010

ASL

BNE

ADD

MOV

1008:

000010
000010

;CONTINUE

(RO+

;END OF

408

INO

WITH FIRST

BURST

BIT

a1d(sp) R

‘R1 = READ BUFFER

RMWCI,R2

‘R2= NUMBER OF WORDS TRANSFER

#2.10(SP)

RMWCO.R2

BNE
DEC
BNE

100%
R2
908

(MP

mov
MOV

MOV

000163
000002

“SHIFT TO NEXT BIT

,R?

SUB

:DATA COMPARE

037022

708

DEC

B8R

100000

R2
0

MOV

908 :

000010
000010

60§

MOV

- COMPARE WRITE BUFFER TO READ BUFFER
08 :
MOV
210(SP),RO
:R0= WRITE BUFFER
ADD
#2,10(SP)
SMOVE SP TO READ ADDRESS

000010

000336

50%

(RO)+. (R1)+

1108

FAILED

:STORE GOOD DATA FOR TYPEOUT

RO,$GDADR

;STORE

¥4

;MOVE

-(R1).$BDDAT
R1,$BDADR
RZ,$TMPO

move

#3%6.310(5P)

10(SP)

;STORE
;STORE

ADDRESS OF

TYPEOUT

GOOD DATA

ADDRESS OF BAD DATA
WORD COUNT OF ERROR
SP TO ULSER'S ERROR (CALL

‘WRITE ERROR NUMBER IN CALL

ECC CORRECTION FAILED

#BI115,1508

;WAS ECC

Move
SuB

#163,810(SP)
#2,10(5P)

JECC CORRECTION FAILED
sMOVE SP TO RETURN If ERROR

MOV

(SP)+,R3

NOP

MOV
MOv
MOv
RTS

1508 :

"STORE BAD DATA FOR

BIT

8tQ

110%:

CEXIT IF NOT EQUAL
*DECREMENT WORD COUNT
SCONTINUE 1F NOT DONE

-(R0O),$GDDAT

: CHANGE ERROR NUMBER IF

105%:

: COMPARE DATA WORDS

SDONE COMPARE - NO ERROR

MOv
MOV

ADD

:MOVE SP TO RETURN ADDRESS

.WORD

105%

(SP)+ ,R2
(SP)+ R
(SP)+,RO
PC

JNO

CORRECTION USED

;;POP STACK

INTO R3

;.POP STACK INTO R2
;sPOP STACK INTO R!
;.POP STACK INTO RO
sRETURN TO USER
;ECC

CORRECTION FLAG

WORD

CIRMNAO RM0OS5/3/2 FCINL 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

AND THEN RETURNS TO THE USER.

;BUFFER'' FOR

:CALL:

10 037024
11
12
13
14

037026

037026
037030
037032
037036

15 037042

16
17
18
19

GET STATUS SUBROUTINE

037046
037050
037052
037056

20 037060
21 037064
22 037066
23 037070
24 037072
25 037076
26 037100
27 037102
28 037104
29 037106

GETSTS:

010046

010146
010246
012700
012701

012702

110220
005041
162702
100405

022702
001370

005041
000770
112720
012602
012601
012600

000240

000207

000046
000002

2%:
3%

000022

000200

JSR

PC,GETSTS

MOV

RO,=~(SP)

MOV

#FRMEC2,R2

77?

MOV
MOV
MOV
MOV

001522
0014064

6%.

READING ALL

MOVB
CLR
SUB
BM]

CMpP
BNE
(LR
BR
MOVB
MOV
MOV
MOV
NOP
RTS

INDEX TABLE'' AND THE '‘GET

SUBSYSTEM REGISTERS

R1,-(SP)
R2,=(SP)
#GETINX,RO
#RMEC21+2,R1

VIA

THE

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

R2,(RO)+
-(R1)
"2,R2
43

;WRITE REGISTER INDEX IN TABLE
;CLEAR CORRESPONDING LOCATION
:DECREMENT TO NEXT IMDEX
;BRANCH OUT IF DONE

-(R1)
38
#200,(RO) ¢
(SP)+,R2
(sP)+,R1
(SP)+,RO

:WRITE TERMINATOR
::POP STACK INTO R2
;:POP STACK INTO R1
;:POP STACK INTO RO

#RMDB,R?2
23

;DONT WRITE RMDB INDEX

SEQ 0167

GET SUBROUTINE

;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 TO

;READ ''RMBA'' AND STORE

17S CONTENTS AT THE LOCATION IN

:THE BUFFER ASSIGNED TO THAT REGISTER.
THE NUMBER OF
;REGISTERS TO BE READ IS VARIABLE FROM 1 TO 22; THE INDEX
:TABLE MUST BE TERMINATED WITH A CONTROL BYTE (200)
;WHICH SHOULD FOLLOW THE LAST ENTRY.

*SUBROUTINE CALL:

s (1)

"'GET_INDEX TABLE'' HAS BEEN LOADED WITH REGISTER

VALUES AND TERMINATED WITH A CONTROL BYTE

; ()

INDEX

"GET INPUT BUFFER"' IS AVAILABLE FOR USE.

(NOTE THAT

NOP

ERROR

:
;
:(3)
:

UNUSED LOCATIONS, 1.E.,ENTRIES IN BUFFER CORRESPONDING
TO REGISTERS NOT READ, ARE NOT CHANGED.)
JSR
PC,GET
BR
m
RETURN HERE IF NO ERROR FOUND

gggOR

RETURN HERE

ANY

SUB DEFINES ERROR NUMBER

FOUND

;RO = REGISTER BASE ADDRESS
;R1 = REGISTER ADDRESS
BUFFER BASE ADDRESS

;R3 = BUFFER ADDRESS
JR& = POINTER TO REGISTER INDEX
037110

037112

037116

037122
037126
037130
037132
037134
037136
037140
037144

000240

062716

105076

162716
010046
010146
010246
010346
010446
013746
013746

037150
037154
037160
037164

013700
012702
012706
012737

41 037200

016037

40 037172

42 037206

43 037214

&6
65
46
&7
48
49

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

.SBTTL

NI~ O 000 NN NI NN = OO0 00
VW= O 000NN

WA AN LN AN LN LN NI NI PO R PO NI RU NN N o et cd ed ot d i od e

36
37
38
39

L 13

MACRO v03.01

O N I WNRU —

CIZRMNAQ RMOS5/3/2 FCINL TST 2
GET SUBROUTINE

037222
037226
037232
037240
037242
037244

50 037246
51 037250

012737

016037

032737

001007
062766
112776
000423
105714
100433

111401
042701

GET:

000004

000000

SuB
MOV
MoV
MOV
MOV
MOV
[ [0]%
MOV

000006

000000

001176

006000
000004
000112

MOV
MOV
MOV
MOV

000004

000300

000010

001174

1%:

001176

000016
000016
3%:

177700

ADD

CLRB

000004

000004
000006
001276
001334
001522
037272

NOP

MOV

"4, (SP)

a(SP)

¥, (SP)
RO,=-(SP)
R1,-(SP)
R2,-(SP)
R3,-(SP)
R4 ,-(SP)
ERRVEC,-(SP)
ERRVEC+2,=-(SP)

$BASE RO
#GE TBUF ,R2
#GETINX,RL
#58 ERRVEC

#PR6 ,ERRVEC+2

;CLEAR ERROR NUMBER

;ERROR CALL
;sPUSH
::PUSH
;sPUSH
::;PUSH
;sPUSH
;:PUSH

RO ON STACK
R1 ON STACK
R2 ON STACK
R3 ON STACK
R4 ON STAC(CK
ERRVEC ON STA(CK
;PUSH ERRVEC+2 CON STA(K

;SETUP FOR TIMEOUT

MOV

Rncsé(RO).s1nPO JGET ''NED'' STATUS

BIT

#DVA,STHP{

MOV

BNE
ADD
MOVB
BR
1STB
BM]

MOVB
BiIC

IN USER'S

RMCS1(RO),$TMP1

;GET ''DVA'' STATUS

3
#4,16(SP)
#112,316(SP)
7%
(R&)
9%
(R4) ,R1
#-CIDXMSK,R]

JYES!!
JWRITE ERROR NUMBER
JERROR CALL

sDEVICE AVAILABLE??
IN USER'S

:DONE??
JYES!!
JR1 = REGISTER ADDRESS
JCLEAR ANY SIGN EXTENSION

CZIRMNAO RM0S5/3/2 FCTNL 1ST 2
SUBROUTINE

M1 3
11-APR-80 13:17:48 PAGE 2 0-1
ADD

177700

000004
000007
00000¢

(P4)+ ,R3
¥ CIDXMSK,R3
R2,R3

(RT)
S (R3)

:READ REGISTER

000207

000016

5¢:

CMP
ADD
MOVB

(SP)+,(SP)+
#4,16(SP)
#7.316(SP)

sRESTORE STACK
;WRITE ERROR NUMBER

78%:
8$:

SUB
1518
BMI
CLR
MOVB
ADD

#2.16(SP)
(R&)
9%
R3
(R&)+,R3
R2,R3

CLR

000771

012637
012637
012604
012603
012602
012601
012600

000016
000016

000006
000004

9¢:

RO,R1

SEQ 0168

mMove
BIC
ADD

MOV

O
SO~ NNOOCOMNISNY

et
e iad Y ad Ll LV IV [V 1 V1 V)
WINWNACIVONIN
= = O ~N~N

N N NN N NN

RN NN

oleoleololololelalolalelalelolalololaleole BNelolole)

N NN

pY- 037254
037256

AN N LN (N AN N AN W

GET

MACRO v03.01

MOV

;CLEAR ANY SIGN EXTENSION

;USER'S ERROR CALL

;DggE'CLEARING??
JYES!!

JCLEAR REMAINING STORAGE
JLOCATIONS

R$)

(SP)+,ERRVEC+2

MOV
MOV

(SP)+,ERRVEC
(SP)+.R4

MOV
MOV
RTS

(SP)+.R1
(SP)+.RO
PC

MOV
MOV

;R3 = STORAGE ADDRESS FOR REGISTER

(SP)+.R3
(SP)+.R2

:sPOP STACK

INTO ERRVE(+?

;:POP STACK

INTO ERRVEC

J:;POP
;:POP
;;POP
:;POP

INTO
INTO
INTO
INTO

;:POP STACK INTO R4
STACK
STACKR
STACK
STACK

JRETURN

R3
R?
R1
RO

CZRMNAQ RMO5/3/2 FCTNL TST 2

PUT

SUBROUTINE

MACRO v03.01

N 13
11-APR-80 13:17:48 PAGE 21

.SBTTL

2
3

SEQ 0169

PUT SUBROUTINE

:THIS SUBROUTINE WRITES THE REGISTERS WHICH ARE LISTED IN THE

J"'PUT INDEX TABLE' WITH THE CONTENTS OF THE CORRESPONDING
sLOCATION IN THE '"'PUT REGISTER BUFFER''.
THE NUMBER OF

6
7

;REGISTERS WRITTEN IS VARIABLE; THE INDEX TABLE MuST
;BE TERMINATED WITH A CONTROL BYTE (200) WHICH SHOULD
JFOLLOW THE LAST ENTRY,

9
}?

:
:SUBROUTINE CALL:

12
13

)
;

"'PUT INDEX TABLE'' HAS BEEN LOADED WITH INDEX VALUES
OF REGISTERS TO BE WRITTEN.

15
16
17
18
19
20

;
(3
.
;
;
:

REGISTER TO BE WRITTEN.
JSR
PC,PUT
B8R
27
RETURN HERE IF NO ERROR FOUND
NOP
RETURN HERE IF ANY ERROR FOUND
ERROR
SUB DEFINES ERROR NUMBER
177

()

"PUT REGISTER BUFFER'' CONTAINS

21
22

;
‘RO = REGISTER BASE ADDRESS

;R4 = POINTER TO REGISTER INDEX

23
24
25

CONTENTS OF

EACH

*R1 = REGISTER ADDRESS
:R2 = BUFFER BASE ADDRESS
:R3 = BUFFER ADDRESS

28 037360
29 037362
037364
037366
037370
037372
037374
037400
30 037406
31 037410
32 0374164
33 037420
34 037426

000240
010046
010146
010246
010346
010446
013746
013746
013700
012702
012704
012737
012737

36
37
38
39

037442
037450
037456
037460

016037
032737
001007
062766

41
42
43
44
45
46
47
43
49

037474
037476
037500
037502
037504
037510
037512
037514
037520

000424
105714
100425
111401
042701
060001
111403
042703
060203

037524

105724

35 037436

40 037466

50 037522

016037

112776

011311

PUT:

000004
000006
001276
001410
001551
037530
000300

000004
000000

000000
004000

001176
001176

000010

000004

000112

;

001174

1%:

000016

177700

177700
4$:

NOP
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

RO, =(SP)
R1,=(SP)
R2,=(SP)
R3,-(SP)
R&,=-(SP)
ERRVEC,=(SP)
ERRVEC+2,=(SP)
$BASE
, RO
#PUTBUF ,R2
#PUTINX.RG
#5$ ERRVEC
#PR6 ERRVEC+2

::PUSH
:;PUSH
:sPUSH
::PUSH
::PUSH
+:PUSH

MOV
BIT
BNE
ADD

RMCST(RO) .$TMP1
#DVA,STMP]
38
#4,16(SP)

:GET ‘'CVA"' STATUS
‘DEVICE AVAILABLE??
SYES!!
‘WRITE ERROR NUMBER IN

MOV

MO/B
3s:

’

:SETUP FOR TIMEOUT

RMCSC(ROY,$TMPO ;GET ''NED'' STATUS

#112,316(5P)

BR
1518
BM]
MOVB
BI(
ADD
MOVB
BIC
ADD

7%
(R&)
9%
(R4),R1
#ACIDXMSK R
RO,R1
(R4) ,R3
#*CIDXMSK.,R3
R2,R3

1518

(R4)+

MOV

RO ON STACK
R1 ON STA(CK
R2 ON STACK
R3 ON STACK
R4 ON STACK
ERRVEC ON STACK
::PUSH ERRVEC+2 ON STACK

(R$), (R

SUSER'S ERROR CALL

;DONE
2?
SYEST!
*R1 = REGISTER ADDRESS
SCLEAR ANY SIGN EXTENSION
:R3 = STORAGE ADDRESS
:CLEAR ANY SIGN EXTENSION

:WRITE REGISTER

:ADJUST REGISTER POINTER

CZRMNAQ RM05/3/72 FCTNL TST 2

PUT

SUBROUTINE

MACRO v03.01

B 14
11-APR-80 13:17:48 PAGE 21-1
SEQ 0170

g% 037526

000763

54
55
56
gg

037530
037532
0375640
037546

022626
062766
112776
162766

59 037554
037554
037560
037564
037566
037570
037572
037574
60 037576
61

012637
012637
012604
012603
012602
012601
012600
000207

000004
000007
000002
000006
000004

000016
000016
000016

5%:
7%:
9%:

(Mp
ADD
MovB
sus

(SP)+,(SP)+
N6, 16 SP)
#7,316(SP)
#2,16(SP)

MOV
MOv
MOV
MOV
MOV
MOv
MOV
RTS

(SP)+ ERRVEC+2
(SP)+ ERRVEC
(SP)+ R4
(SP)+,R3
(SP)+,R2
(SP)+ ,R1
(SP)+ RO
PC

sADJUST STACK
;WRITE ERROR NUMBER IN
;USER'S ERROR CALL

;.POP
;:POP
;:POP
::POP
::POP
;:POP

:;POP STACK INTO ERRVE(+?
STACK INTO ERRVEC
STACK INTO R4
STACK INTO R3
STACK INTO R?
STACK INTO R1
STACK INTO RO

sRETURN

CIFMNAQ RM05/3/2 FCTNL TST 2
SIZF CLOCK SUBROUTINE

MACRO v03.01

;

C 14
11-APR-80 13:17:48 PAGE 22

LSBTTL

3 037600

& 0376CO0

S 037604
6 037610

013746

013746
012737

000006
037646

7 037616

012737

000300

9 037632

012737

000100

8 0376264

012737

10
11
12
13

037640
037644
037646
037650

005777
0004621
022626
012737

15
16
17
18
;9
V]

037664
037672
037676
037700
8%;;98

012737
005777
000604
022626
062766

037710
21 037714
g% 037720

012637
012637
000207

16 037656

012737

SIZCLK:

0000064

177546
141652

MoV

001520

MoV

000004

000104
141620

001520

000002

000006
000004

Moy

000006

001516

037700

172540

SIZE CLOCK SUBROUTINE

MoV
L[]

000004

1%:

001516

000004

ERRVEC,=-(SP)

ERRVE(C+2,-(SP)
#18 ERRVEC

#PRG ERRVEC+?2

J:PUSH ERRVE(C ON STA(K

s PUSH ERRVE(C*2 ON STA(K
JSET UP FOR BUS TIMEOUT

MOV

#177546, CLKADR

;LOAD ADDRESSES FOR xwll-f

187
BR
(mpP
MoV

oCLKADR
3%
(SP)e,(SP)e
#2% ERRVEC

JTEST FOR KWll=L PRESENT
JYES = KWll=L IS PRESENT
JRESTORE SP
;SET UP FOR BUS TIMEOUT

MOV
1871
BR
], [
ADD

£106,CLKVCT
@CLKADR
119
(SP)+,(SP)e
#2.4(SP)

JTEST FOR kWl1=P PRESENT
JYES = XWi1l1=P ]S PRESENT
:RESTORE SP
;MOVE RETURN T0O ERROPR

MOv
MOv
RTS

(SP)¢ ,ERRVE(C+2
(SP)+ ERRVEC
PC

;:POP STACK INTO ERRVE(Ce+¢
;:POP STACK INTO ERRVEC
:RETURN T0 USER

[0}

2s:
3
:

SEQ 0171

#100,CLKVCT

l17é560,(LKADR

JLOAD ADDRESSES FOR KkWll=P (LO(CK

CZRMNAOQ RMOS/3/2 FCINL TST 2

D 14

13:17:48 PAGE 23

SEQ 0172

LSBTTL

1 AND GO = 0 OR FOR A TIMEOQUT
;THIS SUBROUTINE WAITS FOR RDY
;GREATER THAN APPROX. 500 MSEC AND THEN RETURNS.

040010
0460014
040020
040024
040026
040032
040034
040036
040040
040042
040044
040052
040060
040066
040066
040072

040076
040100
040102
040104

-0 ONOOOW
b et NN
-2 O~N

OCOOO0O0OO0OODOOOO
-t s CI\) P D ol e o ol e e e et
NN = ONINNNNINHNINO
OO

T1mMoUT:
000004
000006
060042
000300
001276
001516
000036
172540
000001
000005

QOO0
ONI
& —
=IO

TCALL:

VW=
OO0
NO VNS W —O

POPRIPUIRAININY
—2 b ed od et e e e
b s

Pele - T VTo SV, W

SUBROUTINE

11-APR-80

XV 1

T1MeOuT

MACRO v03.01

000000
177576
000200

032711

000200

000004
000006

1$:

000002

PC,TIMOUT

MOv
MOv
MOv
MOV
MOv
Mov
MOV
MOv
MOV
MOv

RO.-(SP)
R1.=(SP)
R2.=(SP)

J:PUSH
;:;PUSH
;sPUSH
J;PUSH

#4S ERRVEC
#P
, ERRVE
RE
(42
$BASE ,RO

JSETUP FOR BUS TIMEOUT - 04 TRAP

(MP
BNE

MOv
Mov

3%:

MOv

BIC
(MP
8tQ

BIT
BtQ

RETURN HERE

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

112776
162766

01
012637

000006
000004

000012
000012
000012

A ¥

R1,#172540
2%

JKWl1=P CLOCK??
;NO!!

#30.
RS

M ,2(R1)
#BIT2'BITO,(RY)

RMCST1(RO) ,=(SP)

RTS

sR2=NUMBER OF (CLOCK CYCLES

JSET COUNTER
;START

;GET

COUNTER

STATUS

#*C<RDY!GO
(SP)
>,
#ROY, (SP)+
;RDY=1,60=0??
.
[}
JYES!!
5%
#B117,(RY)
< TIMER DONE??

JNO!!
:DEC NUMBER OF CYCLES
;CONTINUE IF NOT DONE

:"'RDY'' DID NOT SET NR '*30'° DID NOT RESET
sWITHIN 500 MSEC AFTtR THE COMMAND WAS SSUED.

;ADJUST STACK
;MOVE SP TO USER'S CALL
;WRITE ERROR NUMBER

(mP
ADD
MOve

MOv
MOV
MOv
MOv
MOV

s sPUSH ERRVE(C+2 ON STA(K

;sR0O=BASE ADDRESS
;R1=CLOCK ADDRESS

sus

5%:

RO ON STAC(K
R1 ON STA(CK
R2 ON STA(K
ERRVEC ON STA(K

CLKADR ,R1

DEC
BNE
B8R

000004
000007
000002

SUBROUTINE

JSR
TM

2%:

000612
022626
062766

TIMEOUT

(SP)+ ERRVEC+?
(SP)+ ERRVEC

(SP)+ ,R2

(SP)+ R
(SP)+,RO

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

;sPOP STACK

INTO R?2

.. POP STACK

INTO RO

;:POP STACK INTO R
sRETURN

TO USER

CIRMNAO RMOS/3/2 FCINL TST 2

ERROR C(HECK

SUBROUTINES

MACRO v03.01

E 14
11-APR-80 13:17:48 PAGE 26
SEQ 0173

.SBTTL

ERROR CHECK

-SBTTL

PRIMARY ERROR CHECK SUBROUTINE

;THE PURPOSE OF

SUBROUTINES

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

TMIS SUBROUTINE IS TO VERIFY THAT STATUS IS VALID AND

6
g

;THAT FURTHER ERROR AND STATUS CHECKING SHOULD BE PERFORMED.
:FOLLOWING CHECKS ARE MADE:

THE

LCORRECT UNIT IS SELECTED, I.E.., THE UNIT SELECT BITS OF RM(S?2

S(BITS 0-2)

.SELECTED UNIT 1S AVAILABLE, I.E., DVA (BIT 11 OF RMCST) IS SET

;

.LAST COMMAND WAS COMPLETED, I1.E., THE MASSBUS CONTROLLER 1S

AND NED

16
17

EGUAL THE UNIT BEING TESTED:

(BIT

12 OF

RMCS2)

IS RESET:

“READY (BIT 7 OF RMCS1) AND THE GO BIT IS RESET
:DRIVE READY BIT (BIT 7 OF RMDS) S SET.

(BIT O OF

RMCST)

"cggPARITY ERROR OCCURRED WHEN READING REMOTE REGISTERS,

UND PARITV ERROR OCCURRED WHEN WRITING REMOTE REGISTERS,

21
22
23
Sg

:
STHE SUBROUTINE ASSUMES THAT:

:1.E., PAR= 0, OR, PAR = DPE = 1

.STATUS WAS BEEN STORED IN THE REGISTER INPUT BUFFER,

;IN PARTICULAR, RMCS1, RMCS2 AND RMDS HAVE BEEN STORED IN THEIR

:rne SUBROUTINE 1S CALLED AS FOLLOWS:

3(1)

317

;

; CORRESPONDING LOCATIONS OF THE "'GETTM* BUFFER.

35
36
38
38

4; 040106

44, 060106

062716

000004

060130
040136
060144
060152

013737

042737
013737
042737
123737

001344

0640160
060162
060166

001415
062716
112776

000004
000001

45 060112
49 040116
4

48
49 040122

.(SUNIT) CONTAINS THME DRIVE NUMBER
JSR

:
:

BR
NOP

;
:

JSR
279

ERROR

PC,PRIERR
273

PC,a(SP)+

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR

ERROR NUMBER DEF INED BY SUB

60 BACK TO SUB FOR MORE ERROR CMECKS
RETURN HERE IF NO MORE ERRORS

PRIERR:

S0
51
52
§3
54
55
56
57

OR THE

105076
162716

:CLEAR USER'S ERROR CALL
ADD

000000
000004

177770
001234
177770
001140

CLRB
SUB

001142

001142
001140
001140
001142

000000

#6, (SP)

3(SP)
84, (SP)

:MOVE

(SP)

TO ERROR

CALL

“CLEAR ERROR NUMBER
:MOVE (SP) TO NO ERROR RETURN

;REPORT AN ERROR IF THE WRONG UNIT IS SELECTED
MOV
RMCS21,$BODAT
;CORRECT UNIT SELECTED??

8I(
MOV
BIC
CMPB

BEQ
ADD
MOVB

#*CUNTMSK
, $SBDDAT
SUNIT,SGDDAT
;600D DATA FOR TYPEOUT
#ACUNTMSK, SGDDAT
$GDDAT,$BODAT
;COMPARE EXPECTED AND RECEIVED
:DRIVE NUMBERS
1%
TYES!!
05, (SP)
#1.3(SP)
:ERROR |

(IRMNAQ RMOS5/3/2 FCTNL TST 2
PRIMARY ERROR CHECK SUBROUTINE

060174
040200
060202
040206

040210
060214

162716

004736
162716
000240

000137

MACRO v03.01

11-APR-B0

SEQ 0174

000002

SuB

JSR

000010

040730

1%:

Ot =O0000~0O000O00C
OO =
=t OW—O =N —=O W
Pl V1, S STV IV R N1 8T NIV T SV g )
NNNNNNSNNNNNVNO~N
N =2
N AN — Ll N = L L
8
OO NNNENOO VN~V

040336
060344
0640346
040354
040362
040370
040376
040402
040410
0604614
040416
040422
060424

NNNNNNNNO~N
N = N = L N AN AN AN N
QO OO NNNNON

;REPORT

040214
060222
060224
040232
040240
040246
060252
040260
060266
060270
040276
040304
040312
040320
040324
060326
040332
040334
040336

162716

00133¢

001334
004000
001334
000004
000002
010000

001140
001140
001142

MOV
BIS
MOV

000000
001344

MOVE

001344
001344
010000

001140
001142
001140
000000

001334

001334
000200

001140
001140
001140
001142

160001

001334
000004
000004
000002

2%:

;REPORT

S RNORNONONNDN
— N —
NNNNNNNO NS
N =0 N =2 L L NP L
N
O OO NNV~

O=0—=O000000O0
OO =0 =5 = OWOW

001140
001140
001142
000000

DEVICE

IS NOT

AVAILABLE

#DVA,RMCST]

:DE!ICE AVAILABLE??

RMCS11,$GDDAT
#OVA,SGDDAT
RMCS11,$BDDAT

JEXPECTED STATUS

5¢

#2.3(SP)

RMCS2],$BDDAT
#NED,SGDDAT
#3,3(SP)

JYES!!

JRECEIVED STATUS
;ERROR #?

;WAS NED SET??

JNO!!
SEXPECTED STATUS
+RECEIVED STATUS

#2.(SP)

;YES = CHANGE ERROR NUMBER
sMOVE SP TO RETURN FOR ERROR

o, sp)

;RESTORE (SP)

PC.alsP)e

108

+REPORT

DEVICE

NOT

AVAILABLE

:SKIP OTHER CHECKS

.vESll

"EXPECTED STATUS

MOV

RMCS11,$GDDAT
NRDY,SGDDAT
#SC!TRE!MCPE !GO,$GDDAT
RMCS11,$BDOAT
SRECEIVED STATUS

SUB

#2,(SP)

NOP

001334

THE

SRESTORE (SP)

SELECTED

AN ERROR ]F MASSBUS CONTROLLER IS NOT READY
BIT
#RDY,RMCS1]
;CONTROLLER READY??

SUB

001346

001334
000004
000005
000002

JSR

ADD
MOVB

7$:

160001

MOV
81
MOVB
SUB

JSR

000200

IFf

#NED ,RMCS2]
28
RMCS21,$GDDAT

MOV
gig

000010

001334

:SKIP OTHER CHECKS

BIT
BEQ
MOV

BNE

000000

000001

10$

#0,sp)

0, (SP)

NOP

000200

;REPORT WRONG UNIT

ADD

SUB

N
YO NS

2 = OOO0O0O00OO0

S NN = OO

P
S
S
e

040506

8IT
BNE

000010

' 040426
102

060426
040434
040436
040464
040446
040454
04604662
040470
040674
040502

AN ERROR

;MOVE SP TO RETURN FOR ERROR

92, (SP)
PC,8(SP)¢

;THE DEVICE IS N ONEXISTANT

5¢%:

162716

SUB
NOP
JMP

004000

000003
000002

F 14
13:17:48 PAGE 24-1

¥4, (SP)
#4.3(SP)

PC.a(SP)+

;ERROR ¥4
sMOVE SP TO RETURN FOR ERROR

010, (sP)

sREPORT CONTROLLER NOT
sRESTORE (SP)

108

JSKIP OTHER CTHECKS

READY

;REPORT AN ERROR 1f GO IS NOT ZERO AND DRY IS NOT ONE
BIT
#GO,RMCS
1]
;60 RESET??
BEQ
8%
JYES!!
BIT
#DRY ,RMDS |
;DRIVE READY??
JYES!!
BNE
83
g?g

RMCS11,$GDDAT

:EXPECTED STATULS

MOV

RMCS11,$BDDAT

;RECEIVED STATULS

#5.3(SP)

:ERROR #5

PC.alSP)e

;REPORT DRIVE NOT READY

ADD

MOVE

SUB

JSR

#SC TRE 'MCPE ' 6O, SGDDAT
84, (SP)

#2.(5P)

sMOVE

TO RETURN FOR ERROR

CIRMNAD RMO5/372 FCINL TST 2

ERROR CHECK SUBROUTINE

162716

000240
000504

8%:

O OO0 NNNWNN

NNNNNNNS N
N =2 g =2 NN NN

O-+4—2000000
OO~
—=5H —=OWw
SOOI
N — N

il
D
il
i
il
) it
)
D
il

11-APR-80

000010

AP e

)

el o

[o o Yo Yo Xo SC IV IV IV IV IV IV IV IV IV.F ¥ 2R E o o o o oI o NV T TV V IV TV TV
PN TON U1, W1 VT VY, U1 ST, VT, ST, U WP e g
g
S NN = OO0V
NOWVNS LW —=O VNV
WA~ OOV
NS WA 2OV
NV
WA
OO0 ~NO W

PRIMARY

MACRO v03.01

020000

00133¢

001334

001140
001140
001142

160001

001334
000004
000013
000002

BEQ

MOv

81C

MOv
ADD
MOvB
SuB

000010

;RESTORE

(SP)

10%

9%:

sNO'!

RMCS11,9GDDAT

;EXPECTED STATUS

#SCTRE
'MCPE ' 6O, $GDDAT

JRECEIVED STATUS
;MOVE STACK TO USER'S ERROR
;ERROR #13
;MOVE SP TO RETURN FOR ERROR

RMCS11,$BDDAT

06,

(SP)

n$.a0sp)

#2,(SP)

JSR
SuB

010, (sp)

108

AN ERROR

1F DETECTED
SPAR ,RMER1]

NOP

#10,(SP)

SEQ 0175

PC.alSP)e

;REPORT ERROR VIA USER
;RESTORE STACK

—

)

040622

040630
040632
040634

060640
0460644
040646
040650
040652
040654
040656
040660
040666

060674
040702
040706
040714
040720
040722
040726
040730
040734
040736

032737
001451
032737
001045
032737
001413
010046
012700
122710

001002
012600
000431
105720

000010

001350

000010

001376

000010

00142¢

001551

000014

112776
162716

004736

162716
000240

062716
000240
000207

BIT

BEQ

BIT

BNE

8lT
BEQ

91%:

MOV
MOV

(MPB
BNE

MOV

92%:

100371

012600
013737
062737
013737
062716

sREPORT

001350
000010
001350
000004
000050
000002

001140
001140
001162

93%:

1518

BPL

MOV
MOV

BlC

ADD

000000

MOvVB
SuB

JSR
SuB

000010
000010

MOv

040602
040610
040612
040620

D el

) Sl el

)

-l

—

D el

)

—

suB
NOP
B8R

242

;REPORT AN ERROR IF TME RM CONTROLLER DETECTED BAD
JPARITY ON THE MASSBUS CONTROL BUS
;PGRIYV ERROR ??
S:CPE.RHCS1I
8l7

000000

040602

6 14

13:17:48 PAGE

NOP
ADD
NOP
RTS

118

#DPE ,RMERZ]
11%
#9ARRMER1O

38
RO,-(SP)
#PUTINX,RO
SRMER1, (RO)

92%
(SP)+ RO

18
(RO)+
918
(SP)+,RO
RMER11,$GDDAT
#PAR,$GDDAT
RMERT],$BODAT
06,

(SP)

#50.3(5pP)
#2,(SP)

PC.A(SP)
e

CONTROL BUS PARITY ERROR
:UGS THERE A PARITY ERROR??
sNO!!

;WAS

THE

CONTROL BUS??

sNOT SURE!!
;DID TEST SET PAR ??

JNO!!

::PUSH RO ON STA(K
;RO POINTS TO INDEX TABLE
;SEARCH TABLE FOR RMER1
;;POP STACK
JPAR WAS

JEND OF

JNO!!

SET

INTO RO
By

TABLE??

TEST

J;POP STACK INTO RO
JEXPECTED STATUS
JRECEIVED STATUS
;MOVE SP TO USER'S ERROR CALL
sWRITE

THE

ERROR NUMBER

:MOVE SP TO RETURN FOR ERROR

00, (sp)

sKEPORT THE ERROR
¢MOVE SP TO NO ERROR

710, (SP)

JRETURN 10 ERROR

sRETURN

TO NO ERROR

RETURN

CIRMNAQ RMOS5/3/2 FCINL TST 2

SECONDARY ERROR (MECK

SUBROUTINE

MACRO v03.01

.SBTTL

2
3

11-APR-80 13:17:48 PAGE 25
SECONDARY ERROR (MECK

SEQ 0176

SUBROUTINE

:THE ERROR (HECK SUBROUTINE PROVIDES DETECTION OF SECONDARY ERRORS
:SUCH AS UNEXPECTED ERRORS AND UNEXPECTED REGISTER CONTENTS. THESE
;ERRORS ARE DEEMED SECONDARY IN THAT THEY ARE NOT NECESSARILY
sASSOCIATED WITH THE OPERATION BEING PERFORMED.
;WHEN THE SUBROUTINE IDENTIFIES SUCH AN ERROR, IT MOVES THE ERROR
cNUMBER TO THE ERROR CALL IN THE TEST ROUTINE AND THEN RETURNS

[

6
7

;7O

THE

TEST

ROUTINE

WHMICH MAKES

;MAKES THE ERROR CALL,

THE

ERROR

CALL.

AFTER

THE

TEST

ROUTINE

IT RETURNS TO THE SUBROUTINE WHICH TMEN LOOKS FOR

;OTHER ERRORS. WHEN ALL ERRORS MAVE BEEN REPORTED, THE SUBROUTINE

;RETURNS

;CALL:

;

16
17
18

TO THE

JSR

NOP
ERROR
JSR

777

ADORESS FOLLOWING THE

PC,SECERR
177

PC,a(SP)+

SUBROUTINE

CALL.

RETURN HERE

NO ERROR

RETURN HERE

NO MOPE ERRORS

RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEFINED BY SUB
GO BACK TO SUB FOR MORE ERROR CME(KS

;NOTE:

Sg 040740

SECERR:

."-"t't.'t'.t""'.l""""""".t..'t."t.'tt.ttt't't"l""t'

;STORE

28
29
30
31
g%

THE SUBROUTINE ASSUMES THAT REGISTERS MAVE BEEN STCRED AT

;INPUT REGISTER BUFFER.

060740
0607646
040754
040760
060764

013737
062737
062716
105076
162716

001410
177701
000004
000000
000004

064574
044574

FUNCTION CUDE

MOV
BIC
ADD
(LRB
SUB

AND CLEAR USER'S ERROR NUMBER

RMCS10,515%
;STORE FUNCTION CODE
#AC<FO'F1'F2'F31F4>,5158
24, (SP)
:MOVE (SP) 10 ERROR (CALL
3(SP)
:CLEAR ERROR NUMBER
06, (SP)
:MOVE (SP) TO NO ERRNR RETURN

3(,

:"'t.ll..ttl'.""'t""""""tlt"tt'.t'.'ttt't't'.t'tlt't.'t'

:CHECK SECONDARY ERRORS COMMON TO ALL C(OMMANDS

37
38 040770
39 040776

40 041000
61 061006

42 0641014

63 041022

4, 061026

032737
001024

000200

001346

013737
042737

001346
177577

001142
001142

062716

000004

012737

112776

45 041034
46 041040

162716
004736

zg 041046

000240

47 041062
50

162716

000200

000010
000002

000000

53
5¢
55
56

013737
042737
005037
062716

001334
177776
001140
000004

001142
001142

112776

000011

ADD

06,

MOV

SUB
JSR

NOP

001334

§7 0411064

RMDS],$BDDAT
#*CDRY,$BDDAT

SUB

000001

0641060
061066
041074
0641100

MOV
BIC

move

000010

032737

001423

001140

51 0641050
52 061056

;REPORT ERROR ]F DRIVE 1S NOT READY, 1.F., IF DRY = Q
BIT
#DRY ,RMDS]
:DRIVE READY??
BNE
5%
SYES!'!

000000

EPORT ERROR IF

§%:

#DRY,S$GODAT

;GOOD DATA FOR TYPEOQU!

#10,a(sp)

:ERROR NUMBER

(SP)

02,(5P)
PC,a(SP)¢

00, (sp)
GO BIT

#G0,RACST]

MOV
BIC
(LR
ADD

RMCS1i,8BDDAT
#°C60,$BDDAT
$GDDAT
86, (SP)

move

:MOVE SP TO RETURN FOR ERROR
;REPORT NOT READY

CRESTORE (SP) TO ERROR N

IS NOT RESET

BIT

BEQ

:BAD DATA FOR TYPEOUT

10%

#11,a(sp)

;GO BIT RESET??

SYES!!

;BAD DATA FOR TYPEOQUT

;600D DATA FOR TYPEQU!

:ERROR NUMBER

THE

CIRMNAOD RMO5/3/72 FCINL TST 2
CHECK

SUBROUTINE

162716

000002

& =0
= N
OO

N NNNNNS

000010

000004

000012
000002

e
e

Eka2l
o

0644574
001142

177701

NOP

001334

:REPORT

fos:

000000

000010

0641320

YO
S W= OO0

—

041322
041330
106 041332
041340
041342
041350
041356
041364
041372
041374
041400
0461406
041412

—-OQ=—=O0000
OO —~O0OMN N —
NS PONORY
= NN
NNNNNS
NN
S

001140
001350

CLR
TST
BNE

BEQ
BIS

208:
25%:

MOv

BIC

001140

2106, (5P)
]F

COMPOSITE

ERROR

$GDODAT

LEXPECT

RMER1]

SET

508

001140
001344
000377

IS SET

MOV

BIC
BNE

001346

000030
35%:

40%:

BIT
BEQ
CMP
BHIS
BIS

MOV

BIC
CMP
BEQ

ADD
MOVB

SUB
JSR

NO OTHER

"'ERR'' = 0

115 RMERZ = 07?
JYES!!

*ERR" SOULD BE SET

FERR,$GDDAT
RMDS
], $BDDAT
#~CERR,SBDDAT

¥,

CLR

AND

*NO'
!

30%

;1S "'ERR' 0k 2?
JYES!!
MOVE SP TO USER'S ERROR

(SP)

#67,3(5P)

;WRITE

92,(5P)

PC.alSP)e¢

IFf

''TRE''

TRE

ERROR NUMBER

JMOVE SP 10O ERROR RETURN
JREPORT INVALID COMP ERROR

00, (sp)

15 SET, OR IF

TRE

SET

;1S RMERY = 0?2

ADD
MOvB

AN ERROR

COMPOSITE ERROR 1S NOT SET AND

SGDDAT ,SBODAT

SuB
JSR
SuB

0000190

000002

;MOVE SP TO RETURN FOR ERROR
;REPORT WRONG FUNCTION CODE
JRESTORE (SP)

PC.alSP)+

(MP

BEQ

000004
000047
000002

000004
000014

;ERROR NUMBER

1ST

040000
001346
137777

060000
001334
137777
001140

JYES:!

(SP)

#2,(SP)

AN ERROR

CORRE(T

JEXPECTED FUNCTION CODE

#12,3(5P)

NOP

001376

040000

¥,

;ERRORS ARE SET, OR ]F
;OTHER ERRORS ARE SET

:TRE

?220AT,$GDDAT

IS NOT

«1S FUNCTION CODE CORRE(CT??

#~C76,$BDDAT
515%,$GDDAT

SuB
JSR
SUB

15%:

005037
013746

MOV
CMpP

ADD
MOvB

;REPORT

041304
041310
041314

FUNCTION CODE READ FROM DEVICE

RMCST],$BDDAT

BIC

;REPORT

ERROR IF

MOV
BEQ

041206

041206
041212
041216
0461220
041224
041226
041234
041242
041250
041256
041260
041264
041272
041276
041300

;MOVE SP T0 RETURN FOR ERROR
JREPORT DEVI CE NOT AVAILABLE
;RES TORE (SP)

JSR
SuB

—

=2 2 NN
N~N~N~N~N

O NI SPOMNINY
— NP

Q—=2O==000000C0C

QOOO~
ON =
—

004736

1 14

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

SeEQ 0177

[oleolele]
OOOO

SECONDARY E R

MACRO v03.01

SET

AND NONE

THE

BITS WHICH

IS NOT SET AND ONE OR MORE BITS WHI(H

$GDDAT
RMCS21,=(SP)
#377,(5P)¢

JEXPECT “'TRE' = 0
JWAS DLT, WCE, UPE, NED, NEM
:ng,

MXF

OR MDPE

SET

35%

JYES!!

40%
#SEARCH,515%
40%

.Noll

EUSS'DATA TRANSFERRED??

RMCS11,9BDDAT

*BAD DATA FOR TYPEOUT

SERR,RMDS]

#TRE ,$GDDAT

#°CTRE ,$BDDAT

$GDDAT,$BDDAT
45%
86, (SP)

#14,3(SP)
#2.(SP)

PC,a(SP)
¢

SET

JWAS

IND!

EXCEPYION RECEIVED??

STRE'* SHOULD BE SET
:IES"IRE" 0x??

JYES!!

JMOVE SP TO USER'S ERROR (AL.
JWRITE

ERROR NUMBER

JMOVE SP T0 RETURN FOR ERROR
JREPORT TRE ERROR

CIRMNAO RMO5/3/2 FCTINL TST 2

SECONDARY ERRCR C(HECK SUBROUTINE

115 041614

116 061420
117 0461422
118
119
120

121
122
123
124
125
126
127
128 061422
129 041426

130 041430
131 0641436
132
133
134
135 0641440
136 041646
137 041456
138 041456
139 0614646
1640 0416472
141 041500
1642 0641506
143 041514
1644 0641516
145 041522
146 0641530
147 0641536
148 041536
149 0641542
150 041544
151
152
153
156 061544

155
156
157
158
159
160
161
162
163
166
165
166
167
168
169
170
171

162716

000240

11-APR-80

000010

J 14
13:17:48 PAGE 25-2

sus
NOP

65%:

#10, (SP)

SEQ 0178

:RESTORE

(SP)

M '.".'"""'.""I'"""""""".'.""'.""'""".."".

:USING THE FUNCTION CODE TABLE,

NOTE

CMECK FOR THE FOLLOWING ERRORS:

.STATUS BITS NOT SET THAT SHOULD BE SET, E.G., ATA AND ILF
.STATUS BITS SET

THAT

THAT SHOULD NOT BE SET, E.G., WCE AND ECM

SOME ERROR BITS ARE

CONDITIONAL ON THE

COMMAND AND OTHER

:STATUS CONDITIONS, E.G., WRITE LOCK ERROR SHOULD ONLY BE

SET

SWRITE LOCK 1S ON AND THE COMMAND IS A WRITE.
010046
013700
016037
012600

013737
032737
001403
052737
0462737
013737
042737
023737
001413
062716
112776
162716
004736
162716
000240

013737

042737
013737
042737
023737
001412
062716
112776
162716
004736
162716
005037

061636
061640

013746
052716
013737
062637

[Ff

:GET AND STORE THE ENTRY FROM THE FUNCTION CODE TABLE
044574

064406

MOV

RO,=(SP)

MOV
MOV

ENCDTB(RO),5008 :STORE ENTRY
(SP)+,R0
::POP STACK INTO RO

MOV

044566

;:PUSH RO ON STACK

5158 ,RO

SGET FUNCTION CODE

;REPORT AN ERROR IF AN UNEXPECTED ATTENTION OCCURRED OR
JATA IS NOT SET AND SHOULD BE SET.

044566
040000

MOV
811

MOV
BIC
CMP

500%,$GDDAT
NERR ,RMDS]
50$
FATA,SGDDAT
#°CATA,$GDDAT
RMDS ], $BODAT
#~CATA,$BODAT
SGDDAT,$BDDAT

000004
000006
000002

ADD
MOVB

SUB

¥4, (SP)
#6.3(SP)

#2.(SP)

000010

SUB

210, (SP)

100000
077777
001346
077777
001140

508 :

ERROR

JLF

177776
001350
177776
001140

"REPORT ERROR

INCORRECT,

DOES NOT

:CLEAR ALL OTHER BITS
:IS ILF OK ??

SUB

001142

ILF

#~CILF,SBDDAT
$GDDAT.SBODAT

JSR

;REPORT

81
CMP

Move

608 :

I.€.,

;GET EXPECTED ILF
:CLEAR ALL OTHER BITS

ADD

SUB
CLR

AN ERROR

MOV

RMERT].$BDDAT

60%
06

(SP)

SP TO USERS ERROR

*REPORT ERROR AND RETURN

N0, (sp)
$GDOAT

SYES

ILF

:MOVE SP TO ERROR RETURN

PC.alSP)+

WCE

RECEIVED

:MOVE SP 10 NO ERROR
:CLEAR EXPECTED STATUS
SET

AND

SHOULD NOT

SGET WCE

SET

STATUS ENABLE

B81S

#4CWCE, (SP)

SSET ALL OTHER BITS

BIC

(SP)+,$BDDAT

SCLEAR WCE IF ENABLED

MOV

RMCS2]

COMPARE

CALL

*WRITE ERROR NUMBER IN CALL

82, (SP)

:GET

*MOVE

#254.3(sP)

5008, - (SP)

CALL

*RESTORE SP

500%,$GDOAT
#°CILF,$GOOAT

BEQ

000010
001140

TYES

MOV
BI(

MOV

000004
000254
000002

*NO !
CEXPECT AN ATTENTION
:STRIP DONT CARES
:GET RECEIVED ATA
:STRIP DONT CARES
:IS ATA OK ??

:MOVE SP TO ERROR RETURN

PC.a(SP)

NOP

:GET EXPECTED ATA STATUS
:1S COMPOSITE ERROR SET ??

*MOVE SP TO USERS ERROP
SLOAD ERROR # IN CALL

;WITH FUNCTION CODE TABLE

044566

001344
001142

55¢

JSR

55¢:

044566
137777

BEQ
BIS
BIC

BEQ

;REPORT

041552
041560
041566
041574
041602
041604
061610
0641616
041622
0641626
0641630

0416464
0641652

MACRO v03.01

.$BDDAT

-RECEIVED STATUS

CIRMNAQ RMO5/3/2 FCINL TST 2

SECONDARY ERROR CHECK SUBROUTINE

172
173
176
175
176

041656
061660
061664
041672
061676

177 041700

};g 041704
180
181
182
183
184
185
186
187
188
189

061704
041710
041714
041722
041726
041730
041734
041742
041746

190 041750

}g; 061754

193
194
195
196
197
198
199

200
201
202
203
204
205
206

041754
061760
061766
0641770
0417764

042000
042006
062012
042014
042020
042026
042032

207 062036

583 062040

001412
062716
112776
162716
004736

000004
000026
930000

162716

000010

013746
052716
013737
042637
001412
062716
112776
162716
004736

044566
157777
001350
001142

162716

013746
032737
001402
042716
052716

013737
042637
001412
062716
112776
162716
006736

162716

000004
000164
000002

MACRO v03.01

908 :

000000

000010

044566
000100
010000
167777

001376
001142

000004
000165
000002

BEQ
ADD
MOVE
Sus
JSR

000GO0

001142

SUB

90%
96, (SP)
#26,3(SP.
#2,(5P)
PC,a8(SP)

nd,(sp)

SEQ 0179

:BRANCH [F WCE OK
:MOVE SP T0 USER'S ERRCR CALL
‘WRITE ERROR NUMBER
JMOVE SP TO ERROR RETURN
;REPORT ERROR

‘RESTORE ERROR

SUB

#10, (sP)

"RESTORE SP

;REPORT ERROR [F IVC 1S SET AND IS NOT ENABLED OR If IVC
SSET AND VV 1S NOT RESET
MOV
5008 ,-(SP)
:GET IvC STATUS ENABLE
BIT
AVV,RMDS ]
SIS vV SET
BEQ
105$
INO !
BIC
#IVC, (SP)
*YES = 1VC SHOULD BE 0
105%:
BIS
#ACIVC, (SP)
SSET ALL OTHER BITS

MOV
BIC
BEQ
ADD
MOVB
SuB
JSR

000000

000010

;REPORT ERROR IF OP] STATUS IS SET AND SHOULD NOT BE _°T
MOV
5008 ,=(SP)
SGET OP1 STATUS ENABLE
BiS
#-COPI, (SP)
SSET ALL OTHER BITS
MOV
RMER1] ,$BDDAT
:GET RECEIVED STATUS
BIC
(SP)+,$B0ODAT
:CLEAR OPl IF ENABLED
BEQ
1008
*BRANCH IF OPI OK
ADD
#6,(SP)
JMOVE SP TO JUSER'S ERROR (ALL
MOVB
#1664,3(5P)
;WRITE ERROR NUMBER IN CALL
SUB
#2,(5P)
JMOVE SP TO ERROR RETURN
JSR
PC,a8(SP)e
;REPORT ERROR
1008 :

001346

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

110$:

SUB

RMER2].$BODAT
(SP)+,8BDDAT
1108
84,(SP)
#165,a8(5P)
#2,(SP)
PC,a(SP)¢

910, (sP)

:GET RECEIVED STATUS
JCLEAR IvC IF ENABLED
*BRANCH IF IvC OK
JMOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER IN CALL
;MOVE SP TO ERROR RETURN
;REPORT ERROR

SRESTORE SP TO NO ERROR

210
21
212

;BIT 11 (WLE) OF THE FUNCTION CODE
: ALL WRITE ERRORS, 1.E.,
:
RMERT - WLE, WCF

214
218

:
RMCS2 - UPE.
JEACH OF THESE ERRORS IS CHECKED TO SEE

213

S}?

062052
0420564
062062
0462064

012746
032737
001404
032737
001002
062716

228 042102

001412

222
223
224
225

226 062070
227 042076

013737
042637

177777
0064000

044566

004000

001346

004000

001350
001142

001142

TABLE

IS THE ENABLING BIT

FOR

RMER2 - DPE

:WRITE ERROR ENABLE BIT

218
219
220 042040
221 042044

AN ERROR IS SET WHEN THE

IS RESET.

;REPORT AN ERROR IF WLE 1S SET AND WRITE ERRORS ARE NOT ENABLED. OR
“THE DRIVE IS NOT WRITE PROTECTED
MOV
#-1,-(SP)
:ASSUME WRITE ERRORS ENABLED
817
#ULE,S500%
JARE WRITE ERRORS ENABLED ??

1158:

1208:

BEQ
BIT
BNE
BIC

1158
#URL ,RMDS]
1208
MLE , (SP)

BEQ

1258

MOV
BIC

RMERT1,$BDOAT
(SP)+,$BDDAT

‘NO !
*1S THE DRIVE WRITE PROTECTED 22
SYES !
TRESET WLE ENABLE

:GET RECEIVED STATUS
:CLEAR WLE IF ENABLED
‘BRANCH IF WLE OK

CZRMNAO RM0S5/3/2 FCINL TST 2
H

(=]

Po
~N

(e 1V

[aV
1 V]
winy

SECONDARY ERROR CHECK SUBROUTINE

062110
062116
042122
062126
042130

231
232
233
236
235
236
237 062130
238 0462136
239 042142
260 0621644
261 042150
242 042156
263 042162
264 062166
265 062170
266 062176
247 042202
268 0422064
269 042210
250
2N
252 062210
253 042214
256 062222
255 062226
256 062230
257 062236
258 062242
259 04622644
260 042250
261 062256
262 062262
263 062264
264 042270
265
266
267 042270
268 062274
269 042302
270 042306
271 042310
272 042316
273 042322
274 0423264
275 042330
276 042336
277 062342
278 042344
279 042350
280
281
282 042350

283 042354
284 042360
285 042366

062716
112776
162716
004736
162716

000004
000023
000002

012746
032737
001002
042716
013737
062637
001412
062716
112776
162716
004736
162716

177777
004000

012746
032737
001002
042716
013737
042637
001412
062716
112776
162716
004736
162716

MACRO v03.01

SEQ 0180

000000

000004
000025
000002

125%:
:REPORT

064566
001142

000010
001376
001142
000004
000040
000002

177777
004000

013746
052716
013737
042637

044566
175777
001350
001142

1308:

000000

(SP)

:MOVE

SUB

(SP)

“MOVE SP TO ERROR RETURN

#2%,3(sp)

SUB

ERROR
MOV

:REPORT

064566

001142

MOV

RMERT1,$BODAT

BIC

(SP)+,$BODAT

135¢

ADD

SUB

92, (SP)

ERROR

MOV
BIC

BEQ
000000

SET

#-1,-(SP)

CALL

*MOVE SP 10 ERROR RETURN

‘REPORT

ERROR

SRESTORE SP TO NO ERROR
AND WRITE

ERRORS ARE

“ASSUME WRITE

NOT

ENABLED

ERRORS ARE

ENABLED

*ARE WRITE ERRORS ENABLED ??
TYES !

RMER21,$BODAT
(SP)+,$BDDAT

:GET RECEIVED STATUS
‘RESET DPE IF ENABLED

#DPE , (SP)

‘RESET DPE ENABLE

1458

*BRANCH IF

#40,3(sP)
#2,(5P)

‘WRITE ERROR NUMBER IN CALL
:MOVE SP TO ERROR RETURN

JSR

PC.alSP)+

SUB

SP T0 USERS ERROR

#WLE 5008
1408

ADD

Move
SUB
145%:

:RESET WCF IF ENABLED
"WRITE ERROR NUMBER IN CALL

210, (SP)
DPE

ERROR

:GET RECEIVED STATUS
*MOVE

PC.aSP)+

:DISABLE WCF

‘BRANCH IF WCF OK

(SP)

#25.,3(sP)

>UB

ENABLED
ENABLED

*ARE WRITE ERRORS ENABLED ??
TYES !

YuCF, (SP)

BIT
BNE

1408:

AND WRITE ERRORS ARE NOT
;ASSUME WRITE ERRORS

#uLE,5008
1308

BIC

CALL

*RESTORE SP TO NO ERROR

BIT
BNE

Move
135%:

WCF IS SET
#-1,-(SP)

TO USERS ERROR

*REPORT ERROR AND RETURN

06, sp)
IF

‘WRITE ERROR NUMBER IN CALL

PC a(SP)+

JSR

000010

012746
032737
001002
042716
013737
042637
001412
062716
112776
162716
004736
162716

BEQ

000010

177777
004000

ADD

move
JSR

000010

000040
001350
001142

L 14

11-APR-80 13:17:48 PAGE 25-¢

(SP)

#10, (sP)

*MOVE

‘REPORT

DPE OK

TO USERS

ERROR

CALL

ERROR

“RESTORE SP 1O NO ERROR

:REPORT AN ERROR IF UPE IS SET AND WRITE ERRORS ARE NOT ENABLED
064566

020000
001344
001142

001142

000004
000024
000002

000000

000010

#-1,-(5P)

BIC

#UPE , (SP)

BIT
BNE

1508:

MOV

BIC
BEQ

:REPORT

-GET RECEIVED STATUS

(SP)+,$BODAT
1558

PC.(SP)

AN ERROR

ENABLED

RMCSS1,$BDDAT

JSR

MOV
BIS
MOV
BI(

ERRORS ARE

*ARE WRITE ERRORS ENABLED ??
SYES !

¥, (SP)

SUB

CASSUME WRITE

#uLE 5008
1508

ADD

MOVB
SUB
155%:

001142

MOV

#24,3(5P)
#2,(SP)

10, (sp)
1f

IAE

1S SET

5008, - (SP)
R~CIAE, (SP)
RMER1] .$BDDAT
(SP)+, $BDDAT

:DISABLE UPE ERROR

RESET UPE IF ENABLED
-BRANCH IF UPE OK
*MOVE

SP TO USERS ERROR

CALL

*WRITE ERROR NUMBER IN CALL
*MOVE SP 10 ERROR RETURN
*REPORT ERROR AND RE TURN

*MOVE SP 10 NO ERROR
AND

IS NOT

ENABLED

:GET IAE ENABLE
*SET ALL OTHER BITS
-GET RECEIVED STATUS
;CLEAR !AE IF ENABLED

CIZRMNAO RMOS5/3/2 FCTNL TST 2

SECONDARY ERROR

286
287
288
289
290

062372
042374
042400
042406
042412

291 0626146

gg§ 042420

CHECK

SUBROUTINE

001412
062716
112776
162716
004736

000004
000166
000002

162716

MACRO v03.01

BEQ
ADD
MOVB
SUB
JSR

000000

000010

M 14
11-APR-80 13:17:48 PAGE 25-5

1608 :

SUB

1608
96, (SP)
#166,a(SP)
#2,($P)
PC,a(SP)+

00, sp)

SEQ 0181

:BRANCH IF IAE IS OK
IMOVE SP T0 USERS ERROR CALL
‘WRITE ERROR NUMBER
:MOVE SP TO ERROR RETURN
JREPORT ERROR AND RETURN

:MOVE SP TO NO ERROR

29¢
295
296
297
298
299
300
301
302
303

;BIT C9 (AOE) OF THE FUNCTION CODE
. ALL READ/WRITE ERRORS, 1.E.,
.
RM(CSY - TRE
:
RMCS2 = DLT,NEM,MXF
:
RMDS
= BT
s
RMER1 - AOQE
JNOTE:
:
LBT IS NOT CHECKED BECAUSE
:CYLINDER REGISTER IS WRITTEN
JNOTE:

;NOYE

AOE CANNOTY BE SET If LBT IS NOT ALSO SET

ggg

;

TRE

ggg

308
309
310
311
312
311

062420
062624
042432
062636

012746
032737
001002
042716

315 042646
316 042452
317 0626456

042637
001412
062716

319 062666
320 042472

162716
004736

314 0462440

318 042460

321 042674

ggg 0462500
324
225
326
327
328

062500

112776
162716

012746

042504
062512
042514

032737
001002
062716

042526
042532
062534
042540
0425646
042552

042637
001412
062716
112776
162716
004736

329 0642520
330
331
332
333
334
335

013737

336 062554

g;g 042560

339
360 042560
341 042564
342 042572

013737

162716

012746
032737
001002

177777
001000
100000

001344

001142

000004

000032
000002

046566

001142

177777
001000

004000

001344

001142

000004
000167
000002

000000

001142

000010

177777
001000

165%:

IT ONLY RESETS WHEN THE DESIRED

IS CHECKED AS A FUNCTION OF OTHER ERROR CONDITONS ABOVE

BIC
BEQ
ADD

RHCSél,SBDDAT

(SP)+,$BDDAT
170%
¥, (SP)

MOVB

ISé,S(SP)

SUB

#10, (SP)

#2,(SP)
PC,a(SP)+

JGET RECEIVED STATUS

:CLEAR DLT IF ENABLED
*BRANCH IF DLT IS OK
:MOVE SP TO USERS ERROR CALL

JWRITE ERROR NUMBER IN CALL!

:MOVE SP TO ERROR RETURN
;REPORT ERROR AND RETURN

:MOVE 5P TO NO ERROR

JREPORT ERROR IF NEM IS SET AND READ/WRITE ERRORS ARE NOT FNABLED
MOV
#-1,-(SP)
;ASSUME ERRORS ARE ENABLED
BIT
#AQE,500%
JARE ERRORS ENABLED ??
BNE
175%
SYES !
B¢
#NEM, (SP)
:DISABLE NEM

1758:

1808 :

044566

MOV

SUB
JSR

1708 :
044566

1S THE ENABLING 81T FOR

sREPORT AN ERROR IF DLY 1S SET AND READ/WRITE ERRORS ARE NOT ENABLED
MOV
#-1,-(SP)
;ASSUME ERRORS ARE ENABLED
BIT
#AQE ,500%
*ARE ERRORS ENABLED ??
BNE
1658
SYES !
BIC
#DLT, (SP)
*RESET DLT ENABLE

000000

000010

TABLE

MOV

RMCSS1,$BDDAT

SUB

#10, (sp)

BIC
BEQ
ADD
MOVB
SUB
JSR

(SP)+,$8DDAT
1808
06, (SP)
#167.a(SP)
#2,(SP)
PC.a(SP)+

-GET RECEIVED STATUS

:CLEAR NEM IF ENABLED
*BRANCH IF NEM 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 MXF 1S SET AND READ/WRITE ERRORS ARE NOT ENABLED
MOV
#-1,-(SP)
;ASSUME ERRORS ARE ENABLED
BIT
#AQE ,5008
:ARE DATA ERRORS ENABLED ??
BNE
185%
TYES I

CZRMNAO RM0OS/3/2 FCTNL TST 2

SECONDARY ERROR CHECK SUBROUTINE

363 042574

364 042600
345 062606
346 042612
347 062614

348 0462620

369 042626
350 042632

351 062636

ggg 062640

042716

013737
042637
001412
062716

112776

162716
004736

000033
000002

177777
001000

044566

002000

001346

001000
001350
001142

001142

012746
032737
001404
032737
001002
042716
013737
042637
001412
062716

366
367
368
398

042716
0462722
042724
042730

162716
004736
162716

377

112776

000004

000020
000002

382
383
384
385
386
387
388
389
390

000000

000010

001366

000200

044566

042746

012746

177777

042766
042774
043000
043002

013737
042637
001412
062716

394 043022

ggg 043026

397
398 043026
399 043032

BEQ
ADD

1908
06, (SP)

SuUB
JSR

#2,(5P)
oC,a(SP)+

SUB

;DISABLE MXF ERROR

RMCS21,$BDDAT
(SP)+,6BODAT

:GET RECEIVED STATUS
:CLEAR MXF IF ENABLED

#3%,3(sp)

*WRITE ERROR NUMBER IN CALL

‘BRANCH IF MXF IS OK
:MOVE SP TO USERS ERROR CALL
JMOVE SP TO ERROR RETURN
JREPORT ERROR AND RETURN

00, (spP)

:MOVE SP T0 NO ERROR

JREPORT ERROR 1F ACE 1S SET AND
MOV
#-1,=-(SP)
BI7
#AQE,S500%
BEQ
191%
BIT
NLBT,RMDSI
BNE
1958
1918BIC
#AOE, (SP)
195¢:
MOV
RMER1!,$BCDAT
BIC
(SP)+,$BDDAT
BEQ
2008
ADD
N4, (SP)

move
SUB
JSR
SUB

#20,acsp)

#2,(SP)
Pr,a(SP)¢
#10,(SP)

DATA ERRORS ARE NOT ENABLED
;ASSUME DATA ERRORS ARE ENABLED
;ARE DATA ERRORS EANBLED ??
JNO !
115 LBT ALSO SET 22
SYES !
*DISABLE AOE
;GET RECEIVED STATUS
;CLEAR AOE IF ENABLED
‘BRANCH IF AOE 1S OK
;MOVE SP TO USERS ERROR CALL

‘WRITE ERROR NUMBER

;MOVE SP TO ERROR RETURN
;REPORT ERROR AND RETURN
;MOVE SP 10 NO ERROR

;BIT 07 (HCE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR

002000

392 043014
393 043020

MMXF . (SP)

MOV
BIC

;HEADER ERRORS, 1.E.,
N
RMER] - HCRC,MCE,FER

032737
001403
042737

391 043006

BIC

move

2008 :

042730
062736
042740
062746

042752
042760
042762

185%:

1908 :

g;g

376
377
378
379
gg?

N 14
11- APR-80 13:17:48 PAGE 25-6

000000

000010

042640
042644
042652
042654
042662
062664
042670
042676
042702
042704

372
373

000004

001142

162716

354
355
356
357
358
359
360
361
362
363
364

365 042710

001000

001346
001142

MACRO v03.01

032737
001002
042716

112776

162716
004736

000200

044566

000400
001350
001142

001142

000004

000035

000002

162716

000010

012746

177777

032737

000200

000000

RMER? - BSE

JRESET

THE ENABLING BIT (HCE)
BIT
#HC1,RMOF |
BEQ
2018
BIC
#HCE ,500%

2018

JREPORT AN ERROR IF HCRC 1S SET
MOV
#-1,-(5P)
BIT
#HCE,S00%
BNE
205%
BIC
#HCRC, (SP)
205%:
MOV
RMER11,$BDDAT
8IC
(SP)+,88DDAT
BEQ
2108
ADD
#4,(SP)

MOvVB

vsé.a(sp)

SUB

04, (sP)

SuB
JSR

2108 :

044566

IF HEADER COMPARE INHIBIT IS SET
;1S HCI SET 22
INO !
JYES = DISABLE ALL HEADER ERRORS

#2,(SP)
PC,3(SP)+

AND HEADER ERRORS ARE NOT ENABLED
;ASSUME ERRORS ENABLED
JARE HEADER ERRORS ENABLED ??
SYES !
;DISABLE HCRC
;GET RECEIVED STATUS
JRESET HCRC IF ENABLED
‘BRANCH IF HCRC IS OK
;MOVE SP TO USERS ERROR CALL

JWRITE ERROR NUMBER [N CALL
JMOVE SP TO ERROR RETURN
JREPORT ERROR AND RETURN

‘MOVE SP TO NO ERROR

JREPORT ERROR lF HCE IS SEYT AND HEADER ERRORS ARE NO1 ENABLED
MOV
#-1,-(SP)
;ASSUME ERRORS ENABLED
BIT

#HCE 5008

*ARE ERRORS ENABLED 2?

SEQ 0182

CIRMNAQ RM0S5/3/72 FCINL TST 2

SECONDARY ERROR CHECK SUBROUTINE

400
401
402
603
604
605
406
407
408
609
:}?

043040
063042
(63046
043056
0643060
0643062
043066
043074
0643100
043102
042106

612
413 063106
616 0643112
615 063120
616 063122
617 0643126
618 0643134
619 043140
620 063142
621 043146
622 043154
423 0643160
626 043162
625 0463166
626
627
428 063166
629 063172
6430 0643200
431 0643202
632 063206
433 063214
436 063220
635 0643222
436 043226
437 263236
438 0632640
639 043242
440 043246

001002
042716
013737

042637

001412
062716
112776
162716
004736
162716

000200
001350
001162

000004
000034
000002

177777
000200

000010

012746
032737

177777
000200

000020
001350
001142
000004
000037
000002

B 15
11-APR-80 13:17:48 PAGE 25-7
SEQ 0183
BNE

001142

2158:

000COO

001162

000004
000354
000002

000000

MOV

RMERT],$BDDOAT

:GET

RECEIVED

#HCE . 5GO8

044566

001142

ENABLED

SFER, (SP)

"DISABLE

FER
STATUS

CRESET FER IF

ADD

:MOVE

SP TO USERS ERROR CALL

SUB

9.0

:MOVE

SP TO ERROR RETURN

Sus

810, (SF;

;MOVE

SP TO NO ERROR

ADD

2308

:BRANCH ]F

(SP)

#3%.3(¢p)

BSE IS SET
#-1,=-(SP)
(e ,500%

:REPORT ERROR AND RETURN

AND HEADER ERRORS ARE NOT ENABLED
JASSUME ERRORS ENABLED
JARE

235¢

JYES

#BSE , (SP)

THEY

ENABLED

:DISABLE BSE

RMERS],$BODAT

-GET RECEIVED STATUS

(SP)+,$BODAT
2408

24,

FER OK

SWRITE ERROR NUMBER IN CALL

PC RS, +o

ENABLED

:CLEAR BSE [F ENABLED
:BRANCH I1f BSE OK

(SP)

SMOVE

TO USERS ERROR

#354.a(sP)

‘WRITE ERROR NUMBER

ISR

PC.a(SP)+

‘REPORT ERROR AND RE TURN

SUB

06 OF TME
E RRORS,

#.,(5P)

JMOVE SP TO ERROR RETURN

210, (sP)

FUNCTION CODE
1.E.,

SMOVE SP TO NO ERROR
TABLE

IS THE

ENABLING BIT

FOR DATA

RMCS2 - MDPE
RMERY - DCK,ECH

EE? CANNOT

SET UNLESS IT

IS ENAB.ED AND ECI

IS RESET

sREPORT ERROR IF MDPE ]S SET AND ]S NOT ENABLED
#-1,-(S P)
MOov
sASSUME ENABLED

811
BNE

245%:

CALL

move
SuB

Dex 1S

FER

:ARE HEADER ERRORS ENABLED 77

(SP)e ,$BDDAT

MOV

“48

FER ]S SET AND HEADER ERRORS ARE NOT ENABLED

SYES

BI{

*NOTE:

ERROR AND RETURN

225%

BNE

46b

[N CALL

;MOVE SP TO NO £RROR

BNE

BIT

JFLELD

sREPORT

CASSUME

JREPOR” ERROR
[0}

2408
:

ERROR NUMBER

;MOVE SP TO ERROR RETURN

#-1,-(5P)

BIC
BEQ

000010

;WRITE

MOV

move

235%:

*BRANCH IF HCE 1S OF
;MOVE SP TO USERS ERROR CALL

91§, (spP)

JSR

044566

:GET RECEIVED STATUS
:CLEAR HCE IF ENABLED

#36,3(SP)
#2,(SP)
PC RSP+

BIC

2308:

‘DISABLE MCE

2208

BIC

225%:

;811

[e]lelelelela)

956, (SP)

BIT

000000

001162

000400
001344
001142

ADD

BEQ

100000
001376
001142

177777
0C0100

RMERT1, $BDDAT
(SP)+,$BODAT

sREPORT ERROR IF

463

063246
063252
043260
043262
043266
043274

MOV
BIC

SuB

044566

SYES

#HCE, (SP)

MVB
SUB
JSR

220%:

450
651
652
653
656
655
656

215%

B81¢

BEQ

000010

012746
032737
001002
042716
013737
062637
001412
062716
112776
162716
004736
162716

001002
042716
013737
042637
001412
062716
112776
162716
004736
162716

MACRO v03.01

B1C
MOV

BIC

#ECH,500%
2458

#MDPE , (SP)
RWCS2] $BODAT

(SP)+,$BODAT

AND

sARE DATA FIELD ERRORS ENABLED ??
JYES !

*DISBALE MDPE
:GET RECEIVED STATUS

SCLEAR MDPE [F ENABLED

CIRMNAD RMOS/3/2 FCINL TST ¢

SECONDARY ERROR CMECK SUBROUTINE

457 043300
658 0643302

001412
062716

460 063314
661 043320

162716
004736

459 0643306

662 063322
222 063326

112776

000004

000027
000002

162716

000010

063326
063332
0433,0
063362
043346
063356
063360
0643362

012746
032737
001002
042716
013737
0642637
001412
062716

177777
000106

475 043374
&76 043400

162716
004736

465
466
467
468
469
470
471
472
673

476 063366

477 063402

2;8 043406
480
(81
482
483
484
485
486
487
488
489
490
491
492
493
69
495
496
497
498

063406
063412
043420
063622
043430
043432
063440
063442
063446
063456
043460
043462
043466
0634764
043500

499 063502

500 043506

112776

162716

012746
032737
001410

032737
001004
032737
001002
042716
013737
062637
001612
062716
112776
162716
004736

162716

100000
001350
001142

000004

000030
000002

MACRO v03.01

ste 015

BEQ
ADD

000000

MOvB
SuB
JSR

2508

064566
_
001142

000000

000010

move
SUB
JSR

;REPORT
:
:
:
044566

004000

001366

100000

001350

000100
001350
001142

001142

000004
000031
000002

000000

SUB

2508
86, (SP)

;8RANCH IF MDPE OK
JMCVE SP TO USERS ERROR CALL

#2,(5P)
PC,a(SP)e

JMOVE SP TO ERROR RETURN
JREPORT ERROR AND RETURN

#27.3(5P)

nd, sp)

JREPORT ERROR ]F DCK IS SET AND
mov
f-1,=-(SP)
BIT
#ECH,5008
BNE
255%
BIC
#DCK, (SP)
255%:
MOV
RMERT],$BDDAT
8¢
(SP)+,$BDLAT
BEQ
2608
ADD
84, (SP)

260$:

177777
000100

000010

€19
11-APR-80 13:17-48 PAGE 25-8

2658:
2708:

275%:

SUB

#30.3(sP)

#2,(SP,
PC,(SP)e

1o, sp)

:WRITE ERROR NUMBER IN CALL

:MOVE SP 10 NO ERROR

DATA FIELD ERRORS ARE NOT ENABLED
JASSUME ENABLED
SARE THEY ENABLED ??
SYES !
:DISABLE DCK
:GET RECEIVED STATUS
SCLEAR DCK IF ENABLED
:BRANCH IF DCK 1S OK
JMOvE SP TO USERS ERROR (AL

:WRITE ERROR NUMBER IN CALL
JMOVE SP TO ERROR RETURN
JREPORT ERROR AND RE: IRN

:MOVE SP TO NO ERROR

ERROR IF ECH IS SET AND,
DATA FIELD ERRORS ARE NOT ENABLED, OR
ECI 1S SET, OR
DCK 1S NOT SET.
MOV
#-1,-(SP)
;ASSUME ENABLED
817
#ECH,S500%
;ARE ERRORS ENABLED ??
BEQ
265%
JNO !
BIT
#EC],RMOF ]
215 ECI SET 22
BNE
265%
SYES 1!
81T
#DCK,RMER1]
215 DCK ALSO SET 22
BNE
2708
SYES !
BIC
#ECH, (SP)
:DISABLE ECM
MOV
RMER11,$BDDAT
:GET RECEIVED STATUS
BIC
(SP)¢+,$BODAT
:CLEAR ECH IF ENABLED
BEO
275%
SBRANCH IF ECH IS OK
ADD
85, (SP)
_MOVE SP TO USERS ERROR CALL
move
#3i.a(sp)
:WRITE ERROR NUMBER IN CAL!
SuB
#2,(5P)
:MCVE SP TO ERROR RETURN
JSR
P(,a(SP)¢
JREPORT ERROR AND RETURN

SUB

"0, (sp)

*MOVE SP TO NO ERROR

CIRMNAC RMO0S/3/2 FCINL TST 2

SECONDARY ERROR (HECK

13:17:48 PAGE 26
A

AR R

SEQ 0185
R

-~
WO W

~NAO
N

001142

040000

001334

O =0
oon
Oy

001336

063506
043514
063516
063522
043530
063532
043540
063562
063546
063554
043560
043564
043566
063572

—0Q-+0000QO0
CO—=0OWO—

000030

RNONRURY
— R — N
NONNO NS~
=
N =t = NN
ONO-OOWVNN—~N

;;."."'".'""."""""""".'.'".""'."'."""""'"'

(mp

044574

044540

000004
000015
001140
000002

OO—~O

063622
043630
043632

OO0

063640
043646
0643650
043656
0463662
043670
043674
043676
043702

043704
043706
043712

005046
013746
163716

063716
063722
043730
043732

012746
032737
001402
062716

000400
000002

043736
043742
043746
043750

005266

000004
000002

—OW
W=D

~N S~

NN NN

OO0
-—
WO
N

0643574
043602
043610
043614

NNNNNESN

001336

001412
001140
001414

-REPORT

2808:

003373
022626

BEQ

285%

KTRELRMCST

ADD

CLR
SUB

$GDDAT
#2,(SP)

285%

JSR

SUB

001140
001140

-REPORTY

285$:

001140

001344

001414

001140

001340

001142

290%:

ERROR

MOV

SuB

:YES

*TRANSFER ERROR DETECTED??

SYES!!

#15,3(5P)

:ERROR NUMBER

PC.aSP)e

:REPORT WORD COUNT NOT

RMBA

1S NOT

RMWCi,$GDDAT

RMW(),$GDDAT

1GCOD DATA FOR TYPEOUT
SMOVE SP TO RETURN FOR ERROR

‘RESTORE (SP)
CORRECT

GET

WORD

sSUBTRACT

COUNT

ZERO

END OF

TRANSFER

STARTING WORD COUNT,

ASL
ADD

$GDOAT
RMBAO,SGUDAT

;v 2
sADD STARTING BUS ADDRESS

BIT
BEQ

#B21 . RMCSC]
2908

;WAS BUS ADDRESS INMIBIT
;NO !!

(BAl)

SET

MOV

RMBAQ, $GDDAT

SADDRESS SHOULD NOT HAVE CHANGED

CMP
BEQ

$GDDAT,RMBAI
295%

:BUS ADDRESS OK??
TYES!!

SuB

#2,(SP)

MOV
ADD
MOVB

000000

(SP)

00, (5p)

NOP

:WAS DATA TRANSFERRED ?

;BR IF YES
JNO - EX]T

RMWC NOT ZERO AND TRE IS ZERO
RMWC1,$BODAT
sWORD COUNT ZERO??

BIT

move

JSR

SUB

000010

161666

ERROR
MOV

280%
355%

BNE

000000

000010

000004
000016
000002

#SEARCH,S515%

BLO
JMP

000010

OO =0 - ON
S NOMNVMNN—
N

0D 15

11-APR-80

:*PERFORM THE REMAINING ERROR CHECKS ONLY FOR DATA TRANSFER COMMANDS

O==0000

OWVNES

[LVT, VY, VY, V], V1, VY

= OV

i S

NO VNI (NN

= OO0

VS (NN

—

SUBROUTINE

MACRO v03.01

NOP

RMBA1,$BODAT
26, (SP)
#16,3(SP)

:BAD DATA FOR

PC.ALSP)e

*REPORT UNEXPECTED ADDRESS

#10, (SP)

AND

TYPEOUT

:ERROR NUMBER

“MOVE SP 10 RETURN FOR ERROR

*RESTORE (SP)

. COMPUTE NUMBER OF SECTORS TRANSFERRED FROM WORD COUNT
CLR
-(SP)
:NUMBER OF SECTORS TRANSFERRED
MOV
RMWCI, = (SP)
*GET WORD COUNT AT END OF TRANSFER AND

2958

001336
001612

SUB

RMWCO, (SP)

SSUBTRACT STARTING WORD COUNT.

MOV

#256.,-(SP)

;ASSUME 256. WORDS PER SECTOR

ADD

#2,(SP)

:CHANGE TO 258. WORDS PER SECTOR

BIT
8tQ

001410

000002
300%:

#B111,RMCS10
300%

:HEA??R € DATA COMMAND ??
sNO !!

INC

& (SP)

s INCREMENT SECTOR COUNT

(mp

(SP)+,(SP)+

;RESTORE

suB
BGT

(SP),2(SP)
300%

:SUBTRACT ONE SECTOR'S WORTH
;CONTINUE IF NOT DONE
STACK

. COMPUTE EXPECTED SECTOR, TRACK AND CYLINDER ADDRESS FROM

CIRMNAQ RMOS5/3/2 FCTNL TST 2

SECONDARY ERROR CMECK

SUBROUTINE

58
§9 043752
60 043760

013737
013737

001444
001416

gg 0644006

005237

044576

61 063766
62 063776
63 066002

013737
013737
000337

001416
001332
044576

MACRO v03.01

044566
0464570

044572
064576

0664012
044020
044024
064032

042737
000337
042737
062637

000377
064570
1776400
044572

044570

71
72
73
76

066036
066046
04646046
064052

023727
103406
005237
162737

064572

000040

064570
000040

044572

77 066062

023737

064570

044576

78 044070
79 044072

80 064076
81 064104
gg 064106

000766

107 07
005237

163737
000766
000240

044566

044576

044572

005037

001140

044566

001466

39 044126

032737

002000

001350

002000
001346
175777
001140

001140
001142
001142
001142

044132
044134
044142
064150
044156
044164
0644166

97 0644172

023727
101407

0C1003
012737
013737
062737
023737
001413
062716

112776

98 044200
99 044204

162716
004736

:8; 066212

000240

100 044206

103

104 044214
105
106
107
108
109
110

044220
064226
066230
064236
064240
044244

111 066266
112 064252
113 064254
116 066262

000004

000017
000002

162716

000010

005037

001140

032737
001031
023727
101425
005737
001012

005737
001007
032737
001413

208:

BIC
SWAB
8IC
ADD

#4C<TADMSK>,505%
;SAVE TRACK ADDRESS BITS AND
505%
;SWAP TRACK ADDRESS T0 LOW BYTE.
#4C<SADMSK>,5108
JSAVE SECTOR ADDRESS BIT1S
(sP)+,5108

(MP
BLO
INC
SUB

5108,#32.
315¢
€05%
#32.,510%

:SECTOR OVEFLOWED??
INO!!
JINCREMENT TRA(CK
*ADJUST SECTOR

(MP

505%.,520%

:TRACK OVERFLOWED??

<yB
BR
NOP

520%,505%
315¢

SAD UST TRACK
STRY AGAIN

000000

3108

3208
500%

''LBT'' IS NOT

CLR

$SGODAT

81T

#IAE,RMERT]

500%,#822.
325%

*STORE ORIGINAL SECTOR
SSTORE LAST TRA(CK,
:GET TRACK ADDRESS TO LO BYTE AND
JINCREMENT TO GET TOTL # CF

*NO!!
;INCREMENT

CYLINDER

CORRE(CT

:SET GOOD DATA FOR LBT = 0
:SHOULD LBT BE SET??
INO!!
:WAS

IAE

SET

?2?

3258
#LBT,8GDDAT
RMDS]1,$BODAT
#°CLBT,$BDDAT
$GODAT ,SBDDAT
3308
86 ,(SP)

SYES - LBT SHOULD NOT BE SET
;SET GOOD DATA FOR LBT =1
;BAD DATA FOR TYPEOQUT

sus
JSR

#2,(SP)
PC,a(SP)¢

;MOVE SP TO RETURN FOR ERROR
JREPORT LBT IS WRONG

MOVB
SUB

TRAC(CKS.

STRY AGAIN

BNE
MOov
MOV
BIC
C(Mp
BEQ
ADD

NOP

;1S LBT
SYES!!

CORRECT??

#17.3(sP)

:ERROR NUMBER

1o, (sp)

‘RESTORE (SP)

-REPORT ERROR If “"AOE'' 1S INCORRECT

002000

001350

064566

001466

044570

044572
000010

520%

8LO
INC

CMP
BLOS

325%:

:STORE ORIGINAL CYLINDER
:STORE ORIGINAL TRA(K

RMDAO.510$
LSTRK .520$
5208

3158:

SEQ 0186

MOV
MOV
SWAB

:REPORT ERROR

85 044110
86 044110
90
91
92
93
96
95
96

3108:

044570

87 066114
88 064122

:NUMBER OF SECTORS
MOV
RMDZ0,500%
MOV
RMDAO,S05%

INC

66
67
68
?8

;2 044060

E 15

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

0644574

$308:

(LR

$GDDAT

151
BNE
817
BEQ

510
335¢
#52,515%

BIT
8NE
CMP
BLOS
151
BNE

#1AE ,RMERT]
340%
500%,#822.
340%
505%
3358

340%

:SET FOR AOE = 0

*WAS “IAE' DETECTED??
SYES=""AOE'' SHOULD BE ZERO
SSHOULD AOE BE SET??
INO!!
‘MAYBE
SYES

JYES !
;WAS THIS READ OR WRITE
INO .

(MWE(CK

CIRMNAQ RMOS/3/72 FCINL TST 2

SECONDARY ERROR CHMECK

SUBROUTINE

115
116
117
118
110
12¢
121
122
123
126
125
126
127
128
129

0646264
046270
0644272
044300
0463064
76312
0644320
0646326
044334
044336
044342
044350
0643564
044356
044362

005737
001410
012737
005037
012737
013737
042737
023737
001413
062716
112776
162716
004736
162716
000240

132
133
136
17,

044364
044372
0644376
0644602

032737
001062
013737
000337

002000

137
138
139
160
141
142
1643
16446
145

0444614
044622
0446430
064432
044636
04446446
0644450
044452
064456

013737
023737
001413
062716
112776
162716
004736
162716
000240

001342
001140

000004
000021
000002

147
148
149
150
151

044460
064466
044474
044502

013737
0462737
013737
023737

044566
176000
001370
001140

131

'36 0446406

146

113737

152
153
156
155
156
157

044510
064512
044516
0645264
064530
044532

160
161
162
163
164
165

044540
0446544
044550
0644552
044556
044560

062716
105776
001403
062716
000402
162716

168
169
170
171

044566
044570
044572
044574

000000
000000
000000
000000

}gg 044536

}g? 064564

001413
062716
112776
162716
004736
162716

000240

000207

MACRO v03.01

11-APR=80

C01336
001000
064570
000001
001350
176777
001140

000004

000020
000002

1ST

001140

044572
001142
001149
001142

335%:

3408:

000000

0464572

ADD

SUB

#2,(SP)

SUB

.REPORT

3%45%:

001140

001140
001142
001142

ERROR

BIT

000004
000022
000002

.REPORT

$50s:

001142
001142

000004
000000

000004

ERROR

500%:
505%:
5108:

5195%:

CORRECT

PC.a(SP)+

RMDC

;WAS
;YES

THERE

= DONT

AN ]AE

CHECK

ERROR

;SETUP EXPECTED DISK ADDRESS
sSETUP RECEIVED DISK ADDRESS
s COMPARE EXPECTED & RECEIVED
<BRANCH IF

EQUAL

INCORRECT

500%,$GODAT
#~C1777.8GDDAT

sSETUP EXPECTED CYLINDER

355%

;SETUF RECEIVED CYLINDER
;COMPAPE CYLINDERS
;BRANCH [F EQUAL

#22.3(SP)

;ERROR NUMBER

ADD

SUB

#2,(SP)

(SP)

PC.a(SP)+

SUB

710, (sP)

ADD

¥4, (SP)

RMDA RMD(

:ERROR NUMBER
:MOvE SP TO RETURN FOR ERROR
sREPORT BAD DISK ADDRESS
;RESTORE (SP)

RMDC1,$BDDAT
$GDDAT,SBDDAT

;MOVE SP TO RETURN FOR ERROR
sREPORT BAD CYLINDER
JRESTORE (SP)

@(SP)

sMOVE (SP)
;WAS ERROR

ADD

(SP)

;MOVE

(SP) TO ERROR RETURN

SuB
RIS

#6, (SP)
PC

;MOVE

(SP)

.WORD
.WORD
LWORD

0
0
0

. CYLINDER
: TRACK
;SECTOR

1STB

BEQ
3608:
365%:

NOT

MOV
CMP

NOP

000004

#IAE,RMER1]

#10, (sP)

JSR

355¢:

sMOVE SP TO RETURN FOR ERROR

suB

MOVB

000010

;REPORT AOE IS WRONG
JRESTORE (SP)

#21.3(sP)
#2, (SP)

BEQ

000000

PC.alSP)+

MOVB
SUB

mov
BIC

;1S AOE CORRECTY??
SYES!!

¥, (SP)

NOP

001140
001140

;SET FOR AOE = 1

;ERROR NUMBER

RMDA

.WORD

3608

3668

CLEAR EXPECTED TRA(K
;EXPECT SECTOR = 1
;BAD DATA FOR TYPEOUT

(SP)

355¢
505$,$GDDAT
$GDDAT
510%,$GDOAT
RMDA],SBDDAT
$GDDAT,SBDDAT
3508

JSR

000010

#20.3(sP)

BNE
MOV
SWAB
MOVB
MOV
CMP
BEQ
ADD

000000

210, (sp)

NOP

SEQ 0187

;Ueg A%L DATA TRANSFERRED

3408
#AOE ,$GDDAT
505$
71,5108
RMER1],$BDDAT
#°CAOE ,$BODAT
$GDDAT .$SBDDAT
345%

JSR

001350

RMW(]

BEQ
MOV
CLR
MOV
MOV
BIC
CMP
BEQ

move

000010

044570
001140

13:17:48 PAGE 26-2

TO ERROR
FOUND??

CALL

TO NO ERROR RETURN

;FUNCTION (ODE

CIRMNAOQ RMO5/3/2 FCINL TST 2

SECONDARY

ERROR CMECK

172 044576
173

17«

000000

SUBROUTINE

MACRO v03.01
5208:

615

11-APR-B0 13:17:48 PAGE 26-3
.WORD

:# OF TRACKS FOR DEVICE
STRACK + 1 TRACK

SEQ 0188
UNDER

TEST

= LAST

CZRMNAQ RMOS/3/2 FCINL TST

COMPOSITE

ERROR (MECK

SUBROUTINE

MACRO v03.01

15
11-APR-80 13:17:43 PAGE 27

SEQ 0189

;

LSBTTL

;THIS SUBROUTINE CMECXS THE STORED CONTENTS OF

;MASKS AND REPORTS AN ERROR IF ANY BITS ARE LEFT ON AFTER

;RMER2

COMPOSITE ERROR CHMECK SUBROUTINE
AFTER MASKING EACH

;THE

;CALL:

;

B8R

;

ERROR

MASKS

;1)

JSR

;

.WORD

;

NOP

;

JSR

777

;NOTE:

:BE lERO

5} 064600

CMPERRSTS :
013737
047637
062716
013737

001350
000000
000002
001376

32 044634
33 044640
gg 04466446

062716
105076
162716

000006
000000
000004

36
37 044650
38 064656
39 044656

005737
001620
013737

0C1176

26 044614

27 064620

53 044626

047637

000000

001176
001176

40
&1
62
63
6L
65
46
4;

044664
0464670
0646764
044702
064706
064710
064714
044716

005037
062716
112776
162716
004736
162716
000240

001176

001140
000004
000066
000002

AND

USER'S

STATUS

PC,CMPERRSTS

MASK FOR ERROR REGISTER 1
MASK

777

FOR ERROR REGISTER 2

RETURN HERE IF NO ERROR
RETURN MERE

PC.a(SP)+

TO REPORT AN ERROR

ERROR NUMBER DF" INED BY

SUB

GO BACK TO SUB FOR MORE ERROR CHE(KS

RETURN HERE ]F NO MOSE ERRORS
BITS TO BE

TESTED SMOULD

;MASK AND STORE THE CONTENTS OF RMER!
AND RMER?2
MOV
RMER1],$TMP1
;STORE RMER1 AT TEMP STORAGE
BIC
3(SP),$TMPI
;MASK
RMER1

001200

ADD

#2,(5P)

;MOVE

8IC

3(SP),8TMpP?

;MASK RMER?

MOV

001200

RMER!

THE

APPLIED.

BITS TO BE MASKED SHOULD BE ONE;

23
26 0644600
25 064606

ARE

RMER2],$TMP2

:CLEAR USER'S ERROR CALL
ADD
(LRB
SUB

:SEE

001142

000010
5% :

;MOVE SP TO USER'S ERROR CALL
:CLEAR ERROR NUMBER
;LEAVE SP AT NO ERROR RETURN

THMERE WERE ANY ERRORS IN RMER1, ].E., $TMPI
187
$TMPI
;ANY ERRORS TQO REPORT??
BEQ
5%
INO !
MOV
$TMP1,3BDDAT
;RECEIVED STATUS FOR TYPEOUT
(LR
ADD
MOVB
V]
JSR
SuB
NOP

000000

06, (SP)
asp)
86, (SP)

SP TO NEXT MASK

;STORE RMER? AT TEMP STORAGE

$GDDAT
#4,(SP)
#66,3(SP)
#2,(SP)
PC,a(SP)*
710, (SP)

;EXPECTED STATUS FOR TYPEOQUT
: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

50 044716
g; 044722

005737
001420

001200

53 064726

013737

001200

55 044736

062716

000004

54 044732

56 064742

57 044750

005037

112776

162716

001140

000067
000002

:SEE

THERE

157
BEQ

ARE

ANY ERRORS TO REPORT

$TMP?
10%

001142

MOV

$TMP2,$BDDAT

000000

MOvV8

ADD

26,

(LR

SUB

IN RMER2

($TMP?2)

;ANY ERRORS IN RMER??
:NO'!

;RECEIVED STATUS FOR TYPEQUT

$GDDAT

SEXPECTED STATUS FOR TYPEOUT

267 ,3(5P)

;WRITE ERROR NUMBER IN USER'S (ALL

(SP)

#2,(5P)

;MOVE SP TO USER'S ERROR CALL
:MOVE

SP 1O RETURN FOR ERROR

CIRMNAO RMOS5/3/2 FCTNL TST

(OMPOSITE ERROR C(MECK

064754
044756
044762
044764
044764
046770
044776
064776
045002
045004

045010

004736

162716

000240

SUBROUTINE

MACRO v03.01

11-APR-80

10%:
; AUGMENT

JSR
SuB
NOP

PL,a3(SP)¢

THE
ADD
1518

RETURN ADDRESS
#6,(SP)

ADD

ggi(SP)

BEQ

00000¢
000004

27-1

SEQ 0190

000010

000004
000000

13:17:48 PAGE

20%:
30%:

BR
SuB

RTS

JREPORT ERROR VIA USER

#10,(SP)

a(SP)

20%

86, (SP)
PC

;MOVE

SP TO NO ERROR RETURN

ANY ERROR WAS DETECTED
JMOVE SP T0 USER'S ERROR

;WAS

THERE

;YES

= MOVE

;NO'!

AN ERROR
SP

CALL

CALLED??

TO ERROR RETURN

JMOVE SP TO NO ERROR
RETURN TO USER

RETURN

CIRMNAO RMOS5/3/2 FCTNL TST 2
DEVICE SELECT SUBROUTINE

MACRO v03.01

11-APR-B0

.SBTTL

;

T(1)

2(3)

sCALL:

10
11
12 045012

}g 065022
19

20 065026
045032
065036
045040
21 06450642
22 045050
23 045056
Sg 045062
26

27 045066

SELECT SUBROUTINE

QUEUE.

JSR

PC.DEVSEL

1 (2)

B8R

L(4)

ERROR

NOP

RETURN IF NO ERROR

RETURN [F

ERROR

DEFINED BY

;MOVE

SUBROUTINE

DEVSEL:

16 045016

DEVICE

THIS SUBROUTINE SELECTS THE DEVICE, GETTING THE DEVICE NUMBER FROM THE

TEST

6
7

15 0645012

SEQ 0191

2
3

J 15

13:17:48 PAGE

062716
105076

000000

013746
013746
010046
010146
012737
012737
013700
013701

000004
000006

045162
000300
001276
001464

m 160

000010

162716

;CLEAR USER'S ERROR CALL

000006

ADD

(LRB
SUB

000004

06, (SP)

a(SP)
24, (SP)

10 USER'S

ERROR

SCLEAR LOW ORDER BYTE
*MOVE SP BACK

CALL

;SAVE USER'S INFORMATION AND SETUP REGISTERS
MOV
MOV

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

MOV

R1.=-(SP)

MC
000004
000006

MOV
MOV

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

RO,=(SP)

::PUSH RO ON STACK

#208 ERRVEC
#PR6 ERRVE C+2

:SETUP FOR BUS TIMEOUT

$BASE , RO
TSTQUE ,R1

S:PUSH R1 ON STACK

;RO = UNIBUS ADDRESS
‘R1 POINTS 10 DEVICE NUMBER

JSELECY DEVICE AND VERIFY THAT DEVICE
MOvB

STA(K

(R1) ,RMCS2(RO)

;WKITE

IS AVAILABLE
UNIT

SELECT

BITS

28 0645072
29 045100

016037
016037

000000
090010

001176
001174

MOV
MOV

RMCST(RO),$TMPY GET ''DVA’’ STATUS
RMCS2(RO),$TMPO :GET "'NED"' STATUS

31
32
33
34
35

045106
045114
045116
0645126
045132

032737
001407
062766
112776
000422

010000

001174

000004
000111

000010
000010

BIT
BEQ
ADD
Mov8
BR

#NED,$TMPO
108
#6,10(SP)
#111.310(SP)
30$

;1S DEVICE NONEXISTENT 2
INO!!
:MOVE SP TO USERS ERROR CALL
‘WRITE ERROR NUMBER

37 0645134
38 045142
39 065144

032737
001021
062766

004000

001176

10%:

BIT

#DVA,S$TMPI

;15 DEVICE AVAILABLE ?

000004

000010
000010

66
65
46
&7

022626
062766
112776
162766

:MANDLE

BUS

60 045152
4 045160

045162
065164
065172
045200

51 065206
045206
045210
0<5212

112776
000407

000112

000004
000113
000002

000010
000010

000010

208 :

30$:

BNE
ADD
MOVB
BR

CMP

ADD
MOVE

SUB

35%
#4,10(SP)
#112.310(SP)
308
TIMEOUT

(SP)+, (SP)+

#4,10(SP)
#1113 310(SP)

#2,10(sP)

JYES!!
:MOVE SP TO USERS ERROR CALL
‘WRITE ERROR NUMBER

;ADJUST SP

*MOVE SP TO USERS ERROR CALL
:WRITE BUS TIMEOUT ERROR NUMBER

SADJUST RETURN 1O 'NOP' PRECEDING

s THE

ERROR

CALL

gggsronf USERS DATA AND RETURN TO ADDRESS ON STACK

012601
012600
012637

)
000006

MOV

MOV
MOV

(SP)+,R1

(SP)+.RO
(SP)+.ERRVEC+?

;:POP STACK [NTO R1

L:POP

STACK INTO RO
..POP STACK

INTO ERRVE(CS?

CIRMNAO RM0OS5/3/2 FCINL TST 2

DEVICE

SELECT

SUBROUTINE

065216
2% 065222

012637
000207

MACRO v03.01

K 15
11-APR=-8B0 13:17:48 PAGE 28-1
SEQ 0192

000004

MOV
RTS

(SP)+ ERRVEC
PC

;;POP STACK
JEXIT

INTO ERRVEC

CIRMNAQ RM0S5/3/2 FCTNL TST 2

SEEK STATUS (HECK SUBROUTINE

MACRO v03.01

L 19

11-APR-80 13:17:48 PAGE 29
SEQ 0193

;

.SBTTL

;THIS SUBROUTINE VERIFIES THE RESULTS OF SEEK TESTS USING STATUS
;STORED IN THE GET BuFFER AND TEST PARAMETERS STORED IN THE PUT BUFFER.

g
6
7

SEEK STATUS CMECX SUBROUTINE

THE SUBROUTINE RETURNS TO THE CALLING ROUTINE IF AN ERROR 1S DETECTED
SAFTER HAVING LOADED THE APPROPRIATE ERROUR NUMBER IN THE ''ERRORTM TRAP
;OF THE CALLING ROUTINE.
SEEK STATUS IS CHECKED AS FOLLOWS:

8
18
"

sCALL:

;1)

14
15
16

:
:
;

JSR

B8R

772

58 045224

SEKSTS:

21
22 0645224
23 045226
24 045232

000240
062716
105076

000006
000000

%9 045242

005037

046462

25 045236

162716

;CLEAR USERS'
NOP
ADD
(LRB

000004

SuUB
CLR

29
30 045246
31 065256

032737
001626

001350

032737

000010

001376

37 045272
38 045300

005037
013737
062716

001140
001350
000004

60 065312
41 0645316

162716
004736

000002

43 045326

000427

32 045256

35
36 045266

39 045304

42 045320
&

001020

112776

162716

000050

001142

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

ERROR CALL

86, (SP)
3(SP)

:MOVE (SP) TO ERROR CALL
:CLEAR ERROR NUMBER

nG, (SP)

;MOVE (SP) TO NO ERROR RETURN -~ _

300%

BIT

BNE

;CLEAR ERROR FLAGS

#DPE ,RMER?2]
1%

012737
052737

MOV
ADD

50 045350
g; 045352

101025
042737

023727

00i644

001666

040000

046462

;NOT SURE!''

RMER11,$BDDAT
24, (SP)

:RECEIVED STATUS
;MOVE STACK TO USER'S ERROR

#50,3(5P)

:ERROR #50

SUB

00, sk

;RESTORE STACK

001140
0466462

‘WAS 1T DUE TO CONTROL BUS??

MOVB
SUB
JSR

000010

002000
040000

= 1 AND ''DPE'
= 0
;WAS PARITY ERROR DETECTED?
NO!!

;REPORT REGISTER PARITY ERROR VIA USER'S ERROR CALL
CLR
$GDDAT
;EXPECTED STATUS

#2,(SP)
PC,a3(SP)+
3%

;DETERMINE THE VALUE OF

47 045326
48 045334

49 045342

PC,a(SP)+

;LOCAL REGISTERS, I.E., "PAR"
BIT
#PAR,RMER1]
BEQ
1%

000000

777

;TEST FOR MASSBUS CONTROL BUS PARITY ERROR WHEN WRITING

000010

gz 045264

NOP
ERROR
JSK

PC,SEKSTS

:MOVE SP TO RETURN FOR ERROR

;1AE SHOULD

BE ZERO

''IAE'' STATUS BASED ON TRACK,

;ALSO, SET "'SKI'* IF CYLINDER ADDRESS IS 100 LARGE ,

1$:

SECTOR AND CYLINDER

MOV
BIS

#1AE,SGDDAT
#SK1,300%

;SETUP FOR 1AE
= 1
;SETUP FOR SKI = 1

BHI
BIC

3%
#Sx1,300%

SYES = CYLINDER 1S INVALID
;CLEAR SKI ERROR FLAG

CMP

RMDCO, #822.

:GREATER THAN LAST CYLINDER ?

53 065360
gls. 045366

123737
101016

001417

001333

(MPB
8H]

RMDAO+1,LSTRK+1
b33

:GREATER THAN LAST TRACK ?
;YES = TRACK IS INVALID

56 045370
57 045376

123727
101410

001416

000035

(MPB
BLOS

RMDAO, #29.
23

:SECTOR > 29.
:BR 1f NO

CIRMNAQ RMOS5/3/2 FCTNL TST 2

SEEK

STATUS CHECK SUBROUTINE

58
59
60
g;

MACRO v03.01

045600
045406
045410
0456416

032737
001406
123727
101002

010000

001442

001416

000037

gz 045620

005037

001140

013737

001350

001142

040000

046662

66 065624
67
68
69
70
71
72
73
¢
75
76

065632
0654640
065446
065450
045456
045460

042737
023737
001004
042737
000413

0645460
065664
0645472
77 045476

062716
112776
162716
004736

79 045504
g? 045506

000240

78 065500

162716

175777
001140

000004
000051
000002

28:

001142
001142

85
86
87
88
89
90
91
92
93
94
95

SEQ 0194

BIT
BEQ
CMPB
BHI

NEMT16,RMOF0
3
RMDAO,#31.
{3

;18 BIT FORMAT
SYES - SECTOR lS INVALID FOR 18 BIT MODE
SSECTOR > 31.
SYES - SECTOR xs INVALID

(LR

$GDDAT

:"'IAE"’ SHOULD = 0

: COMPARE EXPECTED AND RECIEVED "'IAE'’ STATUS

3§:

358
sREPORT

000000

000010

MOV

BIC
CMP
BNE
BIC
BR

RMER11,$BDDAT

#~CIAE.$BODAT
$GODAT.SBODAT
358
#SK1,3008
58

;IS IAE OK??

:SAVE IAE BIT FOR COMPARE
:CORRECT "'IAE'* STATUS ?
:BR IF NO
*CLEAR SKI FLAG
160 CHECK NEXT ERROR

INCORRECT “'1AE'" STATUS VIA USER'S ERROR CALL
ADD
#6,(SP)
MOVB
#51,a3(SP)
;ERROR 51
SUB
#2,(5P)
‘MOVE SP TO RETURN FOR ERROR
JSR
PC,a(SP)+
sREPORT INCORRECT ]AE

SUB

8¢
83

84,

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

NOP

#10, (SP)

:RESTORE (SP)

JREPORT ANY ]Vv( ERROR AS
:
IVC ERROR WITH VOLUME VALID ZERO
045506
045514
045516
045522
045530
045536
045542
045550
045552
045560
045564

032737
001427
005037
013737
062716
112776
032737
001403
112776
162716
004736

gg 045572

000240

162716

000010

99
100
107
102
}82

045576
045602
045610
045616
045626

013737
062737
013737
042737
001417

001376
137777
046462
137777

001142
001142
001140
001140

105
106 045626
107 065634

032737
001032

040000

001142

109 045642
110 045650
111 045656

112776
162716
004736

000267
000002

96 045566

108 045636

112 065656
113 045662
114 045664

010000
001140
001376
000004
000060
000100
000061
000002

062716

000004

162716

000010

000443

001376

;

001142
000000
001346
000000

518

ERRONEOUS 1VC ERROR, VOLUME VALID 1S SET

BIT
BEQ
CLR
MOV
ADD
MOVB
BIT
BEQ
MOVB
SUB
JSR

SUB

NOP
52%:

MOV
BIC
MOV
BIC
BEQ

N1VC,RMER2]
52%
$GDDAT
RMER21,$BDDAT
¥, (SP)
#60,3(SP)
#VV.RMDS
51%
#61,3(SP)
#2,(SP)
PC.a(SP)+

;ERROR 61 IF vv
=1
*MOVE SP TO RETURN FOR ERROR
‘REPORT ERROR VIA USER

RMER21,$BDDAT
#~CSK],$BDDAT
3008, $GODAT
#*CSKI,SGDDAT
538

;RECEIVED STATUS
:CLEAR DONT CARES
SGET EXPECTED SKI §
'1S
:CLEAR DONT CARES
:BRANCH IF 0 EXPECTED

010, (sp)

;REPORT ERROR IF SKI IS NOT SET
BIT
#SK1,$BDDAT
BNE
54%

ADD

000000

MOVB
SUB
JSR

SUB

53¢

¥, (SP)

#267.a(SP)
#2,(SP)
PC.al(SP)+

M0, (sP)

;IVC ERROR??
SNO!!
SEXPECTED STATUS
:RECEIVED STATUS
JMOVE SP TO USER'S ERROR
:ERROR 60 IF vV = 0

*RESTORE SP

(IAE WAS NOT DETECTED)
;WAS SKI DETECTED ?7
SYES

*MOVE sp TO USERS ERROR CALL
‘WRITE ERROR NUMBER
*MOVE SP TO ERROR RETUrN
*REPORT ERROR. AND RETURN

*MOVE SP TO NO ERROR

260 TO NEXT ERROR CHECK

CIRMNAQ RMO5/3/2 FCTNL TST 2

SEEK STATUS CHECK SUBROUTINE

115
116

117 045664
118
119
120
121
122

065672
065676
045700
0645706
045712

123 045714

032737

001413
062716
112776
162716
004736

MACRO v03.0%

040000

001142

000004
000054
000002

000000

}Sg 045720

000240

162716

000010

126
127
128
129
130
131

0645722
065730
0645732
045736
065746

032737
001420
005037
013737
062716

000200

001376

001140
001376
000004

001142

133 045756
134 045762

162716
004736

};9 045770

000240

132 045750

135 045766

138
139
140 065772

141 046000
142 066002

112776

162716

032737
001427
005037

000055

000002

001140

143 046006
164 0646014

013737
062716

001350
000004

146 046026

032737

010000

149 046044
150 046050

162716
004736

145 046020
147 0646034
148 046036

151 046052

112776

001403
112776

JREPORT ERROR IF

000052

000053
000002

;1S SKI SET 22

SUB

010, (sP)

*RESTORE (SP)

:REPORT ANY DEVICE CHECK
648:
BIT
#OVC,RMER2]
BEQ
6%
CLR
$GDDAT
MOV
RMER2],$BDDAT
ADD
¥, (SP)

:ERROR

5UB

#10, (sP)

SRESTORE SP

BEQ
CLR

000000

#MOL , RMDS 1

SUB
JSR

#2,(SP)
PC.a(SP)+

BEQ
MOVB

046060
066064
046070
046074

013746
042716
022726
001002

001346
047677
110100

000137

046432

162 046102

032737

010000

001346

020000

001350

001346

001140

BNE
BIT
BNE
MOV

001346

001142

MOV

167 0646130

052?37

168 046136

013737

170 046150

112776

169 V46146

171

046156

062716

162716

010000
000004

000062
000002

#52,3(SP)

BIT

155
156
157
158

001030
032737
001024
015737

RMER1],$BDODAT
84, (SP)

MOVB

001346

000010

046110
046112
046120
0606122

8$
$GDDAT

MOV
ADD

162716

163
164
165
166

#2,(SP)
PC.a(SP)+

SUB

NOP
8s:

MOV
BIC
CMP
BNE

000000

:REPORT ERROR

9$:

BIT

BIS
ADD

MOVB
SUB

OPI

INO"!
"EXPECTED STATUS

:RECEIVED STATUS
‘MOVE (SP) TO ERROR

*LOAD ERROR NUMBER

*WAS MEDIUM ON LINE?:

7%
#53,a3(SP)

JNO!
:YES = CHANGE ERROR NUMBER

210, (sP)

*RESTORE (SP)

*MOVE SP TO RETURN FOR ERROR
*REPORT ''OP1'' ERROR

RMDSI,=(SP)
#*C<ATAIPIPIMOL!VY>,
(SP)
#ATA'MOL
'V, (SP)+
9%
;ERROR IN RMDS

JMP

001140

#55

*MOVE SP TO RETURN FOR ERROR
‘REPORT ERROR VIA USER

JREPORT ANY ''OP1'' ERROR AS OPI WITH MOL
= 0, OR
*BECAUSE ON CYLINDER LATCH DIDN'T RESET
6$:
BIT
#OP1 ,RMER1]
:"'0P1"* ERROR??

000240

161

:WAS THERE DVC DURING SEEK??
INO!!
CEXPECTED STATUS
:RECEIVED STATUS

#55,a(sp)

SUB
JSR

001142

000000

‘NO - SKI IS OK
‘MOVE (SP) TO ERROR
:LOAD ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR
JREPORT SEEKX ERROR

move

}gg 066056

}23 046076

548
¥, (SP)
#54,3(SP)
#2,(SP)
PC,a(SP)+

NOP

001350

IS SET

#SK1,S$BDDAT

NOP

000000

SKI

SEQ 0195

BIT

BEQ
ADD
MOVB
SUB
JSR

000010

020000

N 15
11-APR-80 13:17:48 PAGE 29-2

148

*RMDS 1S OK

MOL = O AND OPI

#MOL ,RMDSI

108
#OP1,RMER1]
108
RMDSI,SGODAT

#MOL
, $GDDAT

RMDST $BDDAT
0,

(SP)

#64,3(SP)
#2,(SP)

= 0

;1S MOL RESET??

*NO - MOL IS SET
‘WAS OP] SET
*YES - DONT REPORT ERROR
:EXPECTED STATUS
:RECFIVED STATUS
:MOVE

TO RETURN FOR ERROR

CIRMNAQ RMOS5/3/2 FCTINL TST 2

SEEK STATUS CHECK SUBROUTINE

172 066162

004736

};g 066170

000240

173 066166

176

177 066172

MACRO v03.01

B 16
11-APR-B0 13:17:48 PAGE 29-3
JSR

162716

000010

SUB

032737

020000

001346

NoP

:REPORT AN ERROR

108:

BIT

PC,(SP)+

06, (sp)
IF

001430
032737

040000

001376

BEQ
BIT

181

013737

1346

001145

MOV

RMDSI1,$GDDAT

013737
062716
112776

001346
000004
000056

MOV
ADD
MOVB

RMDS{,$BDDAT
96, (SP)
#56,3(SP)

SUB

00, sp)

066212

182 046220
183 046226
186 046236
185 066240

186 046246
187 046252

188 046256

001024

04, °37

162716
004736

020000

000002

001142

000000

000010

100000

001346

195 066300
196 046306
197 04¢314

032737
001024
013737
052737
013737
062716

001346
110600
001346
000004

001140
001140
001142

199 066326

1¢6-716

000002

191
192 04c 62
193 046,70
196 066272

198 046320

000240

112776

000057

202 066334
582 066340

162716
000240

000010

046342
046350
046352
046360
046362
046370
066376
046404

032737
001030
032737
001024
013737
052737
013737
062716

000100

001346

010000

001376

001346
000100
001346
000004

001140
001140
001142

215 066416
216 066622

162716
004736

000002

218 066430
553 066432

000240

214 046410

217 066626

112776

162716

000064

000004
000000

¢26 04664646

062716

000004

225 046444

?*; 046452

001403

000402

#P1P,$BODAT

#2,(SP)
PC,a(SP)+

‘YES-DONT REPORT PIP
:EXPECTED STATUS

;RECEIVED STATUS
*MOVE (SP) TO ERROR
*LOAD ERROR NUMBER

*MOVE SP TO RETURN FOR ERROR
:REPORY "'PIP'' SET AFTER SEEK

:RESTORE (SP)

#ATA'MOL
'DPR ' DRY . SGDDAT
RMDS1,$8DDAT
:RECEIVED STATUS
86, (SP)
;MOVE (SP) TO ERROR

SUB

#2.,(SP)

JSR

SUB
NOP

#5/,3(SP)

PC.a(SP)+

710, (SP)

*LOAD ERROR NUMBER

;MOVE SP TO RETURN FOR ERROR

:QEZOR}EQ}TENTION NOT SET DURING
:

CRESTORE

(SP)

:REPORT ERROR IF VOLUME VALID IS RESET AND IVC IS ZERO
i38:
BIT
#VV.RMDS]
SISy = 0 22
BNE
148
INO!!
BIT
NIVC,RMER2]
1S IvC ALSO 0 2?2
BNE
148
‘NO - IVC IS SET

000000

MOV
BIS
MOV
ACD

RMDS1,$GODAT
#VV,$GDOAT
RMCST,$BODAT
#4,(5P)

SuUB
JSR

#2.(5P)
PC.(SP)e

MOVB

SUB

148

000240
062716
105776

118

INO!!
‘WAS "'SKI''SET??

BIS
MOV
ADD

MOVB

000010

221
222 046432
223 066434
224 066440

1$
#SK1,RMER2]

SET

J1S “PIP" STILL SET??

;REPORT AN ERROR IFf "'ATA'" 1S NOT SET
118:
817
#ATA,RMDSI
:WAS "'ATA'' SET 72
BNE
138
TYES!!
MOV
RMDSI,$GODAT
:EXPECTED STATUS

000000

00-736

210
211
212
213

SUB
JSR

NOP

58? 066332

205
206
207
208
209

BIC

001142

162716

}gg 066260

BNE

:REPORT ERROR VIA USER

"'PIP'' IS STIL SET AND SKI NOT

#P1P,RMDSI

178 066200
179 066202

180 046210

SEQ 0196

NOP

#€4,3(SP)

:EXPECTED STATUS

:RECEIVED STATUS
:ERROR #64

;MOVE SP TO RETURN FOR ERROR

00, (sp)

;MODIFY THE RETURN ADDRESS IF AN ERROR WAS DETECTED
NOP
ADD
#4,(5P)
:MOVE (SP) TO ERROR CALL
1518
@($P)
*WAS ERROR CALLED??
BEQ

ADD

B8R

15%

86, (SP)

166

NO!

:MOVE TO ERROR RETURN

CIPMNAD RMOS/3/2 #CTNL TST 2
SEEK STATUS (MECK SUBROUTINE

229 046454

162716

Sg? 066460

000207

5%% 066462

000000

000004

MACRO v03.01

€ 16
11-APR-80 13:17:48 PAGE 29-4
SEQ 0197

19%:

SuB

16%:

RTS

26,(SP)

JMOVE

I00%:

.WORD

:ERROR FLAGS

(SP)

:RETURN

TO NO ERROR RETURN

CIRMNAD RMOS/3/72 FCTNL TST 2
SUBROUTINE

VT WIS

(ONTROLLER CLEAR

MACRO v03.01

11-APR-80

LSBTTL

SEQ 0198

CONTROLLER CLEAR SUBROUTINE

.THIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTERS,

NTa XN U

SAND

DRIVES,

TCALL:

JSR
BR

NOP

@R el
b
—

W= OOV

~NO

PORIPOPORNIND
b ot it et et vt s

D 16

13:17:48 PAGE

THEN

SELECTS

THE

PC,CNTCLR
173

ERROR

(NTCLR:

000004
000006
046540
000300
001276
000040
001464
000010

046532
0466536

046540
0465642
046550
0466556
046564
066564
066570
0466574
046576

26 046600
27

112776
162766

012637
012637
012601
012600
000207

000004
000007
000002

000006
000004

000010

10$:

RO,=(SP)
R1,=-(SP)

:sPUSH RO ON STA(K
:sPUSH R1 ON STA(K
:.PUSH ERRVEC ON STA(CK
;:PUSH tRRVE(+2 ON STA(K
JSETUP FOR BUS TIMEOUT

MOv
MOv
MOv
MOv
MOv
MOvBe

#108 ERRVEC
#PRG,ERRVEC+?
$BASE RO
SCLR,RMCS2(RO)
TSTQUE
R
(R1) ,RMCS2(RD)

;GET DEVICE UNDER TEST
JSELECT DEVICE

(up

(SP)¢ (S5P)¢
#6,10(5P)
#7,310(5P)
#2,10(SP)

sADJUST STACK
;MOVE SP TO USER'S ERROR (ALL
;WRITE THE ERROR NUMBER
;ADJUST SP TO RETURN TO ERROR

ADD
MOVB

20%:

NO ERROR FOUND
Ak« ERROR FOUND

ERRVEC,=(SP)

000010
000010
500010

]F
IF

MOv
MmOV
Mov

Mov

000004
000006

RETURN HERE
RETURN HERE

SUB DEFINES ERROR NUMBER

066464
066664
0664666
066470
0466474
046500
0466506
0466514
0466520
0466526

DRIVE.

SUB

MOv
MOV
MOV
MOv
RTS

ERRVE(+2,~(SP)

20%

(SP)+ ERRVEC+?2
(SP)+ ERRVEC
(SP)+ R
(SP)+,RO

;RO = UNIBUS ADDRESS
;CLEAR MASSBUS

;.POP

JsPOP STACK

STACK

INTO ERRVEC+?

INTO ERRVEC

;:POP STACK INTO R1
;.POP STACK INTO RO

CIRMNAQ RMOS/372 FCTINL TST 2
NP —

STATUS (HWECX SUBROUTINES

MACRO v03.01

11-APR-80

LSBTTL
M

O N I

SEQ 0199

STATUS (HECK SUBROUTINES

AAA AR AR

.SBTTL

E !6
13:17:48 PAGE 3 1

CONTROLLER CLEAR 5STATUS CMECK SUBROUTINE

RN E

RN}

= OO0

;THIS SUBROUTINE VERIFIES THAT THE SUBSYSTEM IS INITIALIZED BASED ON
THIS SUBROUTINE SAOULD ONLY BE
sSTATUS STORED IN THE GET BUFFER.
cUSED FOLLOWING A CONTROLLER CLEAR OPERATION, I.E., WRITING A 1 IN BIT

;5 OF RM(S2, BECAUSE THE ERROR MESSAGES ARE BASED O
;STATUS PERTINENT TO THE DEVICE

IS NOT CHECKED.

CONDITION.

IN PARTICULAR,

;FOLLOWING STATUS BITS ARE NOT (HECKED:

THE

THAT

ATA ERR,PIP MOL ,WRL,LBT,PGM,VvV,0M,
UNS,SK],D\ (

gl (s piD SR

;

B8R

_._ao
OOO

PO
NO~N

000004
000000
000004

046616
046624
046632
046640
046646
046650
046654
046662
046660
046670
046674

WMNNIY~N

001334

046740
5¢ 0466746
55 046750
56 046752
57 046756

1627

—

046602
046606
046612

066676
046702
046710
046712
046716
0467264
066730
066732
51 046736

PC.CLRSTS

273

NOP
ERROR
JSR

RETURN WERE IF NO ERROR

RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DFFINED BY SUB
GO BACK 10 SUB FOR MORE ERROR CHECKS

PC.a(SP)

RETURN HERE

NO MORE

:MOVE

ERROR

ERRORS

CLPSTS

Q—=—=0O00000O0
OO =0 ON—=f—uw
SOOI
=
NN
NNNNENNNNV

WV
OO0 N

0466602

JSR

;

;
;
;

[V, VT, V1, V], V1, VT, U7, V)], U],V P

= OO0 N

:CALL

(1)

100000

004200
001140

000004
000126
000002

001142
001142

;REPORT

&$:

000004
000127
000002

001464

24, (SP)

C(LRB
SUB

@(SP)
84, (SP)

ERROR

MOV
BIC

RMCSY

NOT

INITIALIZED

:VERIFY RMCSI
- 1GNORE SPECIAL CONDITION

- COMPARE EXPECTED, RECEIVED
"BRANCH IF EQUAL

$GDDAT,.SBDDAT
5¢

000000

MOVB

#126.a(SP)

sgg

210, (SP)

-REPORT

001142

#OVA'RDY,$GDDAT

24,

SUB
JSR

N
ERROR

(LR

MOV
BEQ

MOVB

001142

-REPORT ERROR

7%:

MOV

MOV
CLR

MOV
MOVB

RESET

(SP)

RMCS2 NOT

TO USER'S

:BRANCH IF
:MOVE

2ERO

TO USER'S

ERROR

CALL

:MOVE SP 10 RETURN FOR ERROR
:REPORT ERROR VIA USER

‘MOVE SP BACK TO NO ERROR
INITIALIZED

;VERIFY RMCS2

-($P)

SEXPECT

TSTQUE R
(R1),($P)

CALL

:VERIFY RMBA IS ZERD

RMCS21,$BODAT
R1,-(SP)

ERROR

:WwITE ERROR NUMBER IN CALL

nd,(sp)
IF

*MOVE SP BACK TO NO ERROR

#2,(5P)
PC.a(SP)
¢

sgg

IMOVE

:MOVE SP 1O RETURN FOR ERROR
SREPORT ERROR VIA USER

#187.3(SP)

SUB
JSR

RMBA NOT

$GDDAT

:EXPECT DVA § RDY

:WITE ERROR NUMBER [N CALL

RMBAI,$BDDAT
7%

ADD

000000

(SP)

#2,(SP)
PC.a(SP)
¢
|F

RMCS1]1,$BDDAT
#SC,$BDDAT

CMP
BEQ
ADD

‘CLEAR ERROR NUMBER
‘MOVE SP BACK TO NO ERROR

MOV

001142

000010

001344

ADD

001140

000010

001140
001340

004736

:CLEAR USER'S ERROR CALL

::PUSH R1
“R1

ON STACK

IR € UNIT

= ADDRESS OF

NUMBER

TEST

QUE

CIRMNAD RMOS/3/2 FCTNL TST 2

CONTROLLER CLEAR STATUS CMECK

S8
59
60
61
62

066760
0667664
046770
066772
047000

052716
012637
01260°
023737
001413

64 047006

112776

A3 067002

001140
000004

65 067016
66 047020

162716
004736

000002

68 047026
69

000240

000130

162716

000010

047030
0470364
047062

005037
013737
062737

001140
001350
040000

047052

06716

76 0647064
77 047070

162716
004736

79 047076
80

000240

70
71
72
73
76

047050

75 047056

001413

000004

112776

000131

162716

000010

047100
067106
0471164
067122
047130
067132

013737
042737
012737
023737
001413
062716

001360
000046
000010
001140

88 047146
89 047150

162716
004736

78 047072

81
82
83
86
85
86

87 0647136

00000¢

000004

112776

000133

90 047152
91 047156
92
93 0647160

162716
000240

000010

9% 067164
95 047172
96 067176

001140
001402

97 067200

005037
013737
001413
062716

98 067206
99 047212

112776

162716
004736

000002

10° 047220
102
103 047222
106 067230

000240

106 047244
107 047252
108 047254

023737
001413
062716

110 067266
111 067272

162716
004736

113 047300

000240

100 047216

105 047236

109 067260
112 047274

SUBROUTINE

000002

000004

000135

000000

001142
GO1142

001142
001142
001140
001142

001142

000000

001142
001142

001140

001142

162716

000136
000002

#1%0.a(5P)

:WITE ERROR NUMBER IN CALL

10, (sP)

‘MOVE SP BACK TO NO ERROR

SUB
JSR

92, ($P)
PC.aLSP)+

001140

(LR
MOV
BIC
BEQ
ADD

(SP)

SEQ 0200

SMOVE SP TO USER'S ERROR CALL

SMOVE SP T0 RETURN FOR ERROR
*REPORT ERROR VIA USER

$GDDAT
"
RMER1],$BDDAT
FUNS , $BDDAT

138

04,

: 1GNORE UNSAFE
*BRANCH IF ZERO
:MOVE SP TO USER'S ERROR CALL

#1%1.a(sp)

‘WITE ERROR NUMBER IN CALL

SUB

#10, (sP)

*MOVE SP BACK TO NO ERROR

NOP
;REPORT ERROR

138:

(SP)

.VERIFY RMER1

move
SUB
JSR

000000

001376
140000

000004

000000

013737
062737

112776

31-1

;:POP STACK INTO R1
:COMPARE EXPECTED & RECEIVED
*BRANCH IF EQUAL

86,

SUB

#IR, (SP)
(SP)+,$GODAT
(SP)+.R1
$GDDAT,$BDDAT
98

ADD

move

NOP
;REPORT ERROR IF RMER1 NOT RESET-1GNORE
UNS

000010

011777

BIS
MOV
MOV
CMP
BEQ

001142

162716

012737

1°-APR=-80 13:17:48 PAGE

000100
001140

062716

67 0647022

MACRO v03.01

MOV
BIC
MOV
CMP
BEQ
ADD

92, (5P)
PC.alSP)+

‘MOVE SP TO RETURN FOR ERROR
‘REPORT ERROR VIA USER

IF RMMR1 NOT INITIALIZED-IGNORE WC.LS.LST
RMMR11,$BODAT
:VERIFY RMMR
#C.LS'LST,$BDDAT
: 1GNORE WORD CLOCK, SCT,
#MJD, $GODAT
;EXPECT WRITE DATA BIT
$GDDAT,$BDDAT : COMPARE EXPECTED AND RECEIVED

17%
0, (SP)

*BRANCH IF 0
*MOVE SP TO USER'S ERROR CALL

SUB
JSR

82, (SP)
PC.a(SP)+

:MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

move

#1%5.a(sp)

"WITE ERROR NUMBER IN CALL

SUB

00, (sp)

move

#1%3.3(5p)

:WITE ERROR NUMBER IN CALL

SUB
70, (SP)
*MOVE SP BACK TO NO ERROR
NOP
:REPORT AN ERROR IF RMEC2 1S NOT RESET
178
CLR
$GDDAT
;EXPECT ZEROS
MOV
RMEC21,$BDDAT
:VERIFY RMEC2=0
BEQ
19¢
ADD
24, (SP)
:MOVE SP TO USER'S ERROR CALL

SUB
JSR

92 (5P)
PC.al(SP)+

‘MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

"MOVE SP BACK TO NO ERROR

NOP
:REPORT ERROR IF RMMR2 NOT INITIALIZED-1GNORE RQA,RGB
19%:
MOV
RMMR21,$BDDAT
:VERIFY RMMR?
BIC
#ROA'RQB, SBODAT

MOV

000000

#TISTi177%,8GDDA

$SGDDAT,$BDDAT
21
94, (SP)

:MOVE SP TO USER'S ERROR CALL

SUB
JSR

2, (SP)
PC a(SP)+

*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

Move

000010

#1%6.a(5P)

SUB

;REPORT

(EXPECT TEST BIT ON

CMP
BEQ
ADD

NOP

ERROR

nf,sp)
1f

RMER2 NOT

*WITE ERROR NUMBER IN CALL
*MOVE SP BACK TO NO ERROR

RESET-1GNORE

SKI.DV(

TRK

(IRMNAO RMOS/3/2 FCINL YST 2

161
162
1643
1646

0467324
047330
047336
067342

067344

047350

067352

047360

0647366

047374
047402

0467404

047410
047616
047422

04674264

047430
0647632
0647436
067442

047446

0476450
0476452
0476456
047460

ON S PNININ
— PN
N NNNNNESNNO
B 0
D N b s LN
OO
W~N~N~N

0467322

O—0O—=200000
OO0 —0Or—-o0O

047306
067314

OMNENMNIN
= NN
NNINNNNNENNNN
N b P
b N =t s AN
OO0
WNNNN

047302

STATUS CHECK

Q=0
—=—=O0O00000
QOO
-0 ON =M -

b
ok o
e
e
e
s
D
e
s
D
e
o
e
e
b
i
D
e
el
e
e
et e

LR VA L
IV IVIIV IV IV TV TV T, 01 WY V1,8 1,91, VY U1, VT U P P
P
e
OOVW®NO NS W= OOV
N
VWA
OV~

CONTROLLER CLEAR

0013140

001376
060200

000004
000176
000002

001346
177177

000600
001140

000004

000134
000002

001142
001142

SEQ 0201

218

000000

001142

062716

000004

000000

000004

CLR

$GODAT

RMERZ] ,$BDDAT
:VERIFY RMER?
#SK]'DvC,$BDDAT :JGNORE DEVICE ERRORS

ADD
MOVB

86, (,4P)
#174.3(SP)

JMOVE SP TO USER'S ERROR CALL
:WITE ERROR NUMBER [N CALL

Suo

00, sp)

:MOVE SP BACK TO NO ERROR

2158

SUB
JeR

:REFORT

215%:

001140

ERROR

MOV
BIC

INITIALIZED

;TEST DRIVE STATUS REGISTER

#°C<DRY'DPR>,$BDDAT

#OPR'DRY ,S$GDDAT ;EXPECTED DRIVE STATUS

sCOMPARE EXPECTED & RECEIVED
JBRANCH IF EQUAL

L 0]Y:]
SuB
JSR

#1.46,3(SP)
#2.,(SP)
PC,a(SP)+

;WRITE ERROR NUMBER
sMOVE SP TO RETURN FOR ERROR
:REPORT ERROR TO USER

NOP
ADD

0L, (SP)

?10,(SP)
0L, (SP)

JMOVE SP TO USER'S ERROR CALL

:MOVE SP BACK TO NO ERROR
;MOVE SP TO ERROR CALL

1578
BEQ

9(SP)
3%

BR
SuB
NOP
RTS

04, (SP)

;WAS AN ERROE DETECTED??
JNOY!
:YES - MOVE TO ERROR RETURN

268
¥, (SP)

;MOVE

ADD

23s:
248

RMDS NOT

RMDSI,$B0DAT

$GOCAT ,$BDDAT
22%

SuB

22%:

‘MOVE SP TO RETURN FOR ERROR
JREPORT ERROR VIA USER

cMp
BEQ

ADD

000000

‘BRANTH [F OTMER BITS 0

#2,(SP)
PC,a(SP)

NOP

MoV

001142

;EXPECT ALL ZEROS

MOV
81

BEQ

000010
000004

000402
162716
000240
000207

SUBROUTINE

G 16
11-APR-80 13:17:48 PAGE 31-2

000010

062

1057
001403

MACRD v03.01

TO NO ERROR RETURN

CZ "NAQ RMOS/3/2 FCINL 'ST 2

PACK

ACKNCWLEDGE

STATUS

(MECK

MACRG v03.01

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

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
b)

;REPORTED

6
7

:
s CALL

8
9

ACKNOWLEDGE

TO THE

JSR

10
1N
12
13

NOP

ERROR
JSR
M

15 0474662

18 047462
19 047466

23 047476
26 047506
25 047506
26 0647514
27 047522
28 047530
29 047534
30 047562
31 047546
32 047550
33 047554
34 047556
35

032737
001024
013737
052737
013737
062716
112776
162716
004736
162716
000240

000100

001346

001346
000100
001346
000004

001140
001140
001142

047556
047564
047566
047574

032737
001024
013737
052737

0647602
067610
0647614
047622
047626
0647630
067634
047636

047636
047644

53
54
55 047646
56 067654
57 047656

USER VIA

THE USER'S ERROR

PC,ACKSTS

CALL.

RETURN HERE

PC,a(SP)+

ERROR NUMBER DEFINED BY SUB
GO BACK 1O SUB FOR MORE ERROR (HE(KS
RETURN HERE 1f NO MORE ERRORS

RETURN HERE

;CLEAR USER'S ERROR CALL

000004
000000

S? 067472

STATUS CHECK

[F NO ERROR

TO REPORT

AN ERROR

ACKSTS:

062716
105076

36
37
38
39
60
1
62
63
4L
45
46
67
8
49
50
51
52

PACK

162716

013737
062716
112776
162716
004736
162716
000240

ADD

000004

000155

000002

N5, (SP)

;MOVE

BIT
BNE
MOV
BIS

IF ''ww'' IS 0
#VV RMDSI
1%
RMDS],$GDDAT
#VV,$GDDAT

215 VOLUME VALID SET??
JYES.!
JEXPECTED STATUS

ADD

#s,

;MOVE

#2,(SP)

;MOVE

SP TO RETURN FOR ERROR

#10, (SP)

;MOVE SP BACK TO BRANCH

CLRB
suB

;REPORT AN ERROR

MOV

000C00

010000

001346

001346
010000
001346
000004
000041
000002

001140
001140
001142

#155,a(sP)

;WRITE NUMBER IN ERROR CALL

JSR

PC,a(SP)+

BNE

BIS

#MOL ,$GDDAT

MOV
ADD
MOvB

(32737
001570

060007

001350

032737
0014626
013737

040000

001350

001142

JSEE

THE

ERROR

CALL

ERROR

.15 MOL SET??
JYES!!
SEXPECTED STATUS

RMDS],$BDDAT
86, (SP)
#41,3(SP)

;RECEIVED STATUS

PL.al(SP)+

‘REPORT

;MOVE

SP TO ERROR

CALL

#2,(SP)

:WRITE NUMBER OF ERROR IN CALL
sMOVE SP TO RETURN FOR tRROR

sgg

010, (sP)

*MOVE SP TO BRANCH

2%:

RMDS1,$GDCAT

;REPORT

STATUS

SuB

JSR

000010

(SP)

AN ERROR [f 'MOL'" IS O
BIT
#MOL ,RMDS]
MOV

000000

CALL

MOvB

;REPORT

TO ERROR

SRECEIVED

Sgg

1%:

SPf

sCLEAR LOW ORDER BYTE
;MOVE SP BACK

RMDSI,$BODAT

SuB

000010

a(SP)
¥4, (SP)

'UNSII'CCOPll...lR"R..'l.lLR.l'

Bl1

8eQ

TH ERROR

.llLFII

SET

SUNS!OPI!RMR!JLR'ILF
,RMER1]

sREPORT AN ERROR IF °"‘UNS'' IS SET
B 1
SUNS ,RMERT]
::ASlUNS SET??
BtQ
3%
:NO!
MOv
RMER11,$BDDAT
;RECEIVED STATUS

CIRMNAQ RM05/3/2 FCINL TST 2

PACK

ACKNOWLEDGE

STATUS

CHECK

S8 067664
§9 067672
60 047700

013737
062737
062716

001350
040000
000004

62 047712
63 047716

162716
004736

000002

65 047726
29 067726

000240

61 047704

64 047720

68
69
70
71
72
73
7%

112776

162716

000042

MACRO v03.01
001140
001140

G00000

032737
001424
013737

020000

001350
001142
001140
001140

75 047764

112776

001350
001350
020000
000004

000043

013737
042737
062716

000000

76
77
78
79
g?

067772
067776
050000
050004
050006

162716
006736
162716
000240

000002

8¢
83
84
85
86
87
88
89
90
91
92
93
3;

050006
050014
050016
050026
050032
050040
050044
050052
050056
050060
0500664
050066

032737
001424
013737
013737
042737
062716
112776
162716
004736
162716
000240

000004

001350

001350
001350
00004
000004
000044
000002

001142
001140
001140

050066
050074
050076

032737
001424
013737

050124
050132
050136

112776
162716
004736

96
97
98
93
100
10*
102
103
106
105

050106
050112
050120

106 050140

013737
042737
062716

162716

107 050144

000240

110
111
112
113
114

032737
001424
013737
013737

}83 050146
050146
05015¢
050156
050166

RMERT],$GDDAT
NUNS,SGDDAT
0, (§P)

;EXPECTED STATUS

SUB
JSR

#2,(SP)
PC.a(SP)+

*MOVE SP TO RETURN FOR ERROR
‘REPORT THE ERROR VIA USER

SUB

move

000000

000010

000002

001350

001350
001350
000002
000004
000045
000002

001142
00140
00°140

000000

000010

NOP

:REPORT ANY OP]
BIT
BEQ
MOV
MOV
BIC
ADD

000010

SUB
JSR
sUB
NOP

001350
001350

001142
001140

#10, (spP)

ERROR
#OP],RMER1]
48
RMER1],$BDDAT
RMER1].$GDDAT
#OP1,$GDDAT
06, (SP)

#4%,3(sp)

#2,(SP)
PC.ASP)+
#10, (SP)

;MOVE SP TO ERROR CALL

“WwRITE NUMBER OF ERROR [N CALL

*MOVE SP TO NG ERROR RETURN

:WAS OP1 SET ?2?
INO!!
:RECEIVED STATUS

:EXPECTED STATUS
:MOVE

SP TO ERROR CALL

SWRITE NUMBER OF ERROR IN CALL
*MOVE SP TO RETURN FOR ERROR
‘REPORT THE ERROR VIA USER
*MOVE SP TO NO ERROR RETURN

ERROR
SRMR,RMER1]
5$
RMER1],$BDDAT
RMER1].$GDDAT
#RMR, $GDDAT
06, (SP)
#4&&,3(SP)
#2,(SP)
PC.aSP)+
010, (SP)

;REPORT ANY
BIT
BEQ
MOV
MOV
BIC
ADD
MOVB
SUB
JSR

ILR ERROR
#ILR,RMERT]
6%
RMER11,$BDDAT

_WAS ILR SET??
INO!!
:RECEIVED STATUS

#45,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

ILF ERROR
#ILF,RMERT]
7%
RMER1]1,$BDDAT
RMERT].$GDDAT

;WAS ILF SET??
INOY!
:RECEIVED STATUS
EXPECTED STATUS

6% :
001350

#42,3(SP)

;REPORT ANY RMR
BIT
BEQ
MOV
MOV
BIC
ADD
MOVB
SUB
JSR
SUB
NOP
5¢:

SUB

000001

SEQ

MOV
BIC
ADD

MOVB

000010

047726
067734
067736
067746
067752
067760

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

;REPORT

NOP

ANY
BIT
BEQ
MOV
MOV

RMERYI.SGDDAT
#ILR,$GODAT
N, (SP)

010, (sP)

:WAS RMR SET??
INO!!
:RECEIVED STATUS
:EXPECTED STATUS
:MOVE SP TO ERROR CALL
‘WRITE NUMBER OF ERROR IN CALL
*MOVE SP T0 RETURN FGR ERROR
‘REPORT THE ERROR VIA USER
*MOVE

SP TO NO ERROR RETURN

EXPECTED STATUS

*MOVE SP TO NO ERROR RETURN

0203

CZRMNAD RM0S/3/2 FCTNL TST 2

PACK

ACKNOWLEDGE

STATUS

115
116
117
118
119

050172
050200
050204
050212
050216

062737
062716
112776
162716
004736

121

050226

000240

050226
050232
050236
050240
050244
050246
050252

062716
105776
001403
062716
000402
162716
000240

120 050220

}§§ 050226
124

125
126
127
128
129
130
131

}gg 05025¢

162716

000207

CHECK

000001
000004
000044
0000-¢

MACRO v03.01

J 16
11-APR=-80 13:17:48 PAGE 32-2

001140

BIC
ADD
MOvB
SUB
JSR

000000

000010

SUB

7%
000004
000000

JAUGMENT

000004
000004

8%:

98 :

NOP

#ILF,$GODAT
R4, ($P)
#46,3(SP)
#2,(5P)
PC,a(SP)+

#10, (sP)

RETURN ADDRESS

ADD
15718
BEQ
ADD
BR
SuB
NOP

RTS

86, (SP)
a(SP)
8s
86, (SP)
9%
84, (SP)

IFf

:MOVE SP TO ERROR CALL
;WRITE NUMBER OF ERROR IN CALL
*MOVE SP TO RETURN FOR ERROR
;REPORT THE ERROR VIA USER

‘MOVE SP TO NO ERROR RETURN

ERROR WAS FOUND

;MOVE SP TO ERROR CALL
;WAS ERROR FOUND??
INO!!
JYES = MOVE TO ERROR RETURN

;MOVE SP TO NO ERROR RETURN

SEQ

0204

CIRMNAO RMOS/3/2 FCTINL TST 2

RECALIBRATE

STATUS

CHECK

MACRO v03.01

SUBROUTINE

11-APR-80 13:17:48 PAGE 33
SEQ 0205

;

.SBTTL

3
g

;THIS SUBROUTINE CHECKS THE RESULTS OF A RECALIBRATE OPERATION
;USING THE STATUS STORED IN THE GET BUFFER.

;CALL:

8
9

1)
;

JSR
BR
NOP

;

ERROR

;

77?

;

}2 050256
17
18 050256
19 050262
g? 050266

22
23
26 050272

%2 050300

o7
28

062716

000000

032737

022011

162716

001553

38
39
40
41
z%

050356
050362
050364
050370
050372

162716
004736
162716
000240

050372
050400
0506402
0506410
050416

032737
001424
013737
042737
013737

45
46
47
48
49

50
51
52
53

050424
050430
050436
050442

54 050644

55 050450
29 050452

PC,al(SP)e

112776

062716
112776
162716
004736

162716

000240

;CLEAR USER'S ERROR NUMBER
ADD
44, (SP)
CLRB
a(SP)
SUB
84, (SP)

000004

105076

032737
001430
032737
001024
013737
042737
013737
062716

JSR

PC,RCLSTS
277

;CALL SUBROUTINE
RETURN MERE 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

RCLSTS:

29 050302
30 050310
31 050312
32 050320
33 050322
34 050330
35 050336
36 050344

37 050350

RECALIBRATE STATUS CMECK SUBROUTINE

000004

001350

000010

001350

000010

001376

001350
000010
001350
000004

001140
001140
001142

000050
000002

BEQ

001140
001140
001142

000004
000071
000002

;NONE ARE SET = GO TO NEXT CHE(K

I.E.,

BlT
SPAR,RMER1]
:WAS '‘PAR'' SET??
BEQ
18
INO!!
BIT
#DPE ,RMER2]
:WAS "‘DPE'' SET??
BNE
18
:YES = NOT A REGISTER ERROR
MOV RMER11,$GDDAT
;EXPECTED STATUS
BIC
#PAR,$GDDAT
MOV
RMER1],$BDDAT
;RECEIVED STATUS
ADD
#4,(SP) ;MOVE SP TO USER'S ERROR CALL
-

MOVB

1%:

001350
000001
001350

;REPORT ANY MASSBUS CONTROL BUS PARITY ERROR,
:"PAR'* = 1 AND ''DPE'' = 0

000010

001350

IMOVE SP BACK TO BRANCH

;SEE IF "'PAR' OR ''ILF'' OR "'OPI'' OR "'IAE"' IS SET
BIT
#OPI'PAR!ILF.1AE,RMER1]

000000

000001

;CLEAR USER'S ERROR CALL

;REPORT

SUB
JSR
SUB
NOP
ANY

BIT
BEQ
MOV
BIC
MOV

ADD
MOVB
SUB
JSR

000000

000010

SUB

2%:

NOP

#50.3(sP)

#2.(SP)
PC,a(SP)+
#10, (SP)

'‘ILF'' ERROR

;WRITE ERROR NUMBER IN CALL

:MOVE SP TO RETURN FOR ERROR
160 REPORT ERROR
IMOVE SP BACK TO BRANCH

#ILF,RMER1]
2%
RMER1],8GODAT
NILF,SGDDAT
RMER1],$BDDAT

;WAS "'ILF'' SET??
INO'!
;EXPECTED STATUS

010, (sP)

“MOVE SP BACK TO BRANCH

#4,(SP)
#71,3(SP)
#2.(SP)
PC.a(SP)+

;RECEIVED STATUS

;MOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER IN CALL
:MuvE SP TO RETURN FOR ERROR
:REPORT ERROR VIA USER

CZRMNAD RHOS/? % FCINL TST 2

RECALIBRATE

STATUS

58
59
60
61 050452
62 050460

CHECK

64 050670

032737
001433
013737
042737

66 050506

062716

63 0506462

65 050476

67 050510

68 050516
69 050526

013737

112776

032737
001403

70 050526
71 050534
72 050540

112776
162716
004736

74 050546

000240

73 0505642

;2 050550
77

78
79
80
81
82
83

162716

MACRO v03.01

SUBROUTINE

020000

001350

001140

001350

001142

020000

000004

001140

000072

000000

000073
000002

000000

010000

001350

001350
002000
001350
000004

001140
001140
001142

85 050614

162716

000002

88 050626
gg 050619

91
92 050630
gs 050636
&4

95
96
97
98
99
100
10'
102

050640
050646
050650
050656

103 050664

104 050672
105 050676

106
107
108
109
110

050704
050712
050714
050722
050726

111 050730

112 050734

}}2 050736

004736
162716

000240

032737
001517

032
001
013
042

013

062
112

032
001
112
162
004

162

000

#75.,3(SP)

MOVB
SUB
JSR

#73,a(SP)
02, (SP)
PC.al(SP)+

000000

AN ERROR

010000

001376

001376
010000

001140
001140

001376

001142

000100

001346

000075
000002

000000

"'IAE'' IS SET

#1AE ,RMER1]
48
RMER1],8GDDAT
#1AE,SGDDAT
RMER11,$BDDAT
I IA (SP)

SUB

#2,(SP)

move

;SEE

00, (sp)

81T
BEQ
[ [o]"]
BIC
MOV
ADD

JSR
SUB

001376

(SP)

#MOL ,RMDS1
38

NOP

:REPORT

000004
000074

MOVB

¥,

BIT
BEQ

000010

050200

RMERTI,$BODAT

ADD

318

000070

MOV

SUB

002000

86 050620
87 050622

;REPORT ANY "'OPI'' ERROR AS
:
. OP] DUE TO 'MOLTM" = 0
:
- OP] BECAUSE ON CYLINDER LATCH DIDN'T RESET
BIT
#OP1,RMERT]
;WAS OP] SET??
BEQ
3¢
INO!!
MOV
RMER11,$GDDAT
.EXPECTED STATUS
BIC
#OP1 $GDDAT

000010

032737
001424
013737
042737
013737
062716

112776

SEQ 0206

001346

050550
050556
050560
050566
050576
050602

84 050606

L 16
11-APR-80 13:17:48 PAGE $3 -1

NOP

000010

INO - CHANGE ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

:MOVE SP BACK TO BRANCH

;1S IAE'' SET??
INO!!
JEXPECTED STATUS

;RECEIVED STATUS
;MOVE SP TO ERROR CALL

:WRITE ERROR NUMBER IN USER'S CALL

PC.a(SP)+
#10, (sp)

‘REPORT ERROR
‘MOVE SP BACK TO NO ERROR RETURN

MOV

RMERS],$BDDAT

BIT
BEQ
MOVB
SUB
JSR

#VV.RMDS |
5¢
#75,3(SP)
#2.(SP)
PC a(SP)+

SUB

6% :

‘WAS "MOL'' = 02?
SYES!!

:MOVE SP TO RETURN FOR ERROR

IF *'SKI'* OR ''IvC'' OR ''DVC" IS SET
BIT
#SKI'1VC'DVC,RMER?]
BEQ
8%
;NONE OF

ADD
MOVB

;WRITE ERROR NUMBER IN USER'S CALL

#70,a(sp)

;REPORT ANY ''IVC'' ERROR AS
:
LIVC WITH W = 0
:
-ERRONEOUS 1VC ERROR
BIT
#1VC,RMER2]
BEQ
6%
MOV
RMER21,$GDDAT
BIC
#1VC,$GDDAT

000000

;RECEIVED STATUS

:MOVE SP T0 USER'S ERROR CALL

NOP

THE BITS ARE SET

(WAS IVC SET??
*NO!!
:EXPECTED STATUS

:RECEIVED STATUS

)

#4
., (SP)
#74,3(SP)

:MOVE SP TO USER'S ERROR CALL
‘WRITE ERROR NUMBER IN CALL

00, (sp)

*MOVE SP BACK TO BRANCH

TWAS WV =
07?
SYES!!
INO - CHANGE ERROR NUMBER
:MOVE SP 1O RETURN FOR ERROR
‘REPORT ERROR VIA USER

CIRMNAD RMOS/3/72 FCTNL TST 2

RE CALIBRATE

STATUS

118

CHECK

MACRO v03.01

SUBROUTINE

116 050736
117 050746
118 050746

032737
001426
013737

040000

001376

120 050762

013737

001376

119 050756

121 050770
122 050774

123 051002

062737

062716
112776

16271¢

1264 051006

004736

126 051014

000240

125 051010

}Sg 051016
129
130 051016

131 05102¢
132 051026
133 051034

134 0510642

135 051050

136 051054

162716

032737
001426
013737
042737

013737
062716

112776

137 051062
138 951066

162716
004736

1.0 051074

000240

39 051070

}:1 051076

162716

040000

000004
000076

000002

164
165
1646
167
148

251076
051102
051106
05°112
051 164

}gg 051120
191
152
153
1564
155
156
157

013746
042716
022726
001002
000137

001140

001142

MOV

RMERS],$BDDAT

001140

001376
000200

001140
001140

001376
000004

000077

000002

#77.3(sP)

“WRITE ERROR NUMBER

JSEE

051530

858 :

013737
062716

001346
000004

001142

168
169 051210
170 051216

032737
001030

}2? 051210

171

051220

162716

032737

SuB
JSR

SUB

159 051156
160 051162

000240

;WAS "DVC' SET??
INO!!
:EXPECTED STATUS

Move

001140

165 051206

‘MOVE SP TO BRANCH

000000

001346

164 051202

010, (sP)

;RECEIVED STATUS

001346
047676
110100

000002

;MOVE SP TO RETURN FOR ERROR

ANY 'DVC('' ERROR
BIT
#DVC ,RMER2]
8EQ
8s
MOV
RMER21,$GODAT
BIC
#DVC,$GDDAY

ADD

NOP

8s:

000100

‘REPORT ERROR VIA ULER

#2,(SP)

RMERJ],$BDDAT

001350

162716
004736

PC a(SP)e

MOV

020000

112776

JSR

001142

001346

162 051174
163 051200

;REPORT

000010

010000

SMOVE SP TO USER'S ERROR (ALL
‘WRITE ERROR NUMBER

NOP

7%:
001376

;RECEIVED STATU>

8, (SP)
#76,3(SP)

SUB

000200

#5K],$GDOAT

(WAS SC] SET??
INO'!
EXPECTED STATUS

ADD
MOVE

SUB

000010

010000

161 051166

BIC

000000

032737
001030
032737
001024
013737

052737

:REPORT ANY "'SKI'' ERROR

#SK1,RMER2]
7%
RMER2],$GODAT

051120
051126
051130
051136
0511640

158 051146

SEQ 0207

BIT
BEQ
MOV

14,

.1
8
11-APR-80 13:17:48 PAGE 33-2

001140

I1F

B1S

9% :

001376

SP TO USER'S ERROR CALL

TMOVE SP TO USER'S BRAN(H

AND

'"ATA'',"MOL'" AND ''vV'' ARE

RMDS],-(SP)
:PUT RMDS ON STACK
84 <PIP'MOL'VY OM'ATA>, (SP)
FATA'MOL'VV,(SP)e
858
133

#moL
, $GDDAT

RMDS],$BDDAT
#4,(SP) ;MOVE

SuB
JSR

#2,(SP)
PC,a8(SP)e

SUB

010000

b, sp)

''OM'" ARE

:MOVE

;MOVE SP TO RETURN FOR ERROR
:REPORT ERROR V]A USFER

MOV
ADD

move

000010

001346

#2.,(5P)
PC,8(SP)e

“PIP'" AND

MOV
BIC
(Mp
BNE
JMP

(SP)

)

JREPORT AN ERROR IF MOL = 0O AND OP] = 0, 1.E., MEDIUM WENT QOFF¢
SLINE AFTER RECALIBRATE WAS INITIATED
BIT
#MOL ,RMDS |
:DID MOL DROP??
BNE
9%
"NO!
817
#OP] ,RMER1]
‘WwAS OP1 ERROR REPORTED®?
BNE
98
*YES - DON'T REPORT MOL:=0
MOV
RMDS],$GDDAY
JEXPECTED STATUS

000000

000100

86,

NOP

#100,a(sP)
0, sp)

CRECEIVED STATUS
SP TO USER'S ERROR CALL

:WRITE ERROR NUMBER

JMOVE SP 1O RETURN FOR ERROR
JREPORT ERROR VIA USER

IMOVE SP BACK TO USER'S BRANCM

SREPORT AN ERROR I1f "'wv'' = 0 AND ""IVC'' = 0
BIT
#V\ ,RMDS |
:DID 'vv'' DROP??
BNE
108
INO!!
Bl

#IVC.RMER]

‘WAS

THERE

1v(

ERROR??

(IRMNAQ RMOS/3/2 FCINL TST 2

RECALIBRATE

172
173
176
175

STATUS

051226
051230
051236
0512464

CHECK

001024
013737
013737
052737

SUBROUTINE

001346
001346
000100

001140
001142
001140

000101

000000

176 051252

062716

090004

178 051264
179 051270

162716
004736

000002

181

051276

000240

051300
051306
051310
051316
05132¢
051332

032737
001024
013737
052737
013737
062716

192 051344
193 051350

162716
0064736

;gg 051356

000240

177 051256

180 051272

}gg 051300
1984

185
186
187
188
189
190

191 051336

194 051352

112776

162716

112776

162716

MACRO v03.01

001346

001346
100000
001346
000004

001140
001140
001142

000102
000002

108
RMDS],$GODAT
RMDS] ,$BDDAT
#vV.S$GODAT

;MOVE SP TO USER'S EPROR (ALL

SUB

010, (sp)

;MOVE SP BACK T USER'S BRANCM

NOP

f~TA RMDS
118
RMDS] ,$GDDATY
SATA,$GODAT
RMDS ], SBODAT
86,(SP)

SUB
JSR

#2,($P)
PC.a(SP)e

032737

001426
013737
042737
013737
062716

208 051424
209 051430

162716
004736

211 051436
g}g 051440

000240

210 051432

SUB

112776
162716

000001

001346

001346
000001
001346
000004

001140
001140
001142

000103
000002

051446
051450
051456
051460

221 051466

SWRITE ERROR NUMBER IN CALL

;MOVE SP TO USER'S BRANCH

001430
032737
001024
013737

042737

020000

001346

040000

001376

001346

001140
001142

020000

001346
000004

225 051514
226 051520

162716
004736

000002

228 051526

000240

112776

162716

000104

000010

001140

000000

''OM'" 1S NOY

#OM,RMDS |

128
RMDS ] ,$GDDAT
#OM,$GDDAT
RMDSI ,$BODAT
#s&,(SP)

SuB
JSR

#2,(SP)
PC,a(S5P)¢

SUB

JREPORT

032737

BEQ
MOV
BIC
MOV
ADD

move

128

013737
062716

227 051522

BIT

000010

222 051474
223 051502

226 051506

;RECEIVED STATUS
JMOVE SP TO USER'S EPROR CALL

10, (sP)

JALWAYS C.EAR QOFFSET MODE

000000

216

215
216 051440

JWAS ATA SET DURING RECALIBRATE??
IVES !
SEXPECTED STATUS

#102.a(sP)

NOP

SP TO RETUPN FOR ERROR

ATA IS NOT SET

817
BNE
1, [01"]
B1S
MOV
ADD

mova

:MOVE

18:

051366
051370
051376
051604
051412

207 051416

‘WRITE ERROR NUMBER IN CALL

#2,(SP)
PC a(SP)e

JREPORT AN ERROR

201 051360

yv=0

0, (SP)
#101.a(sp)

JREPORT AN ERROR IF

000010

SYES - DONT REPORT
CEXPECTED STATUS
SRECEIVED STATUS

ADD
move
SuB
JSR

000000

199

200

217
218
219
220

BNE
MOV
MOV
BIS

108 :
100000

33-3
SEQ 0208

000010

}gg 051360

202
203
206
205
206

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

NOP

AN ERROR

JCYLINDER
BIT

2ERO BECAUSE

RECALIBRATE

:WAS "OM'' RESET??

SYES!!
CEXPECTED STATUS

JRECEIVED STATUS
JMOVE SP TO USER'S ERROR CALL

#103.a(sp)

‘WRITE ERROR NUMBER

70, (sP)

:MOVE SP TO USER'S BRANCH

'PIP'" IS

#P1P,RMCSI

JMOVE SP TO RETURN FOR ERROR
;REPORT ERROR V]IA USER

STIL

ON,

1.E.,

DRIVE

NOT

CYLINDER??
INO'!
;WAS ''SKI** DETECTED??
*YES-DONT REPORT '‘P]P'
CEXPECTED STATUS

138
#5K1,RMER2]
138
RMDST,$GODAT

MOV
ADD

RMDS I, $BODAT
;RECEIVED STATUS
#4,(SP) ;MOVE SP TO USER'S ERROR CALL

move
SUB
JSR

SuB

NOP

#P1P,$GODAT

;1S DRIVE OFF

BEQ
BIT
BNE
MOV

BIC

SHOULD

#104,a(5P)

:WRITE ERROR NUMBER

016.(SP)

sMOVE SP BACK TO USER'S BRAN(H

#2,(SP)
PC a(SP)¢

:MOVE SP TO RETURN FOR ERROR

—
WV~
_au

NNNNNNNNES
N
— N
N = L NN
N
OO
NNNES~N

QO
O

001350

000002

001350

001350
000002
001350
000004
000105
000002

001140
001140
001142

., Ot = OO0
OO
=0 —5H =Ow
PO S POPNORDNNIN
— N

LYl

(W
LV]

—

R
S
S
S
N R
U
J
[

040006

000240

;SEE

IV
VI IV
IV
IV
I

IF "'ILR' OR "'RMR'' OR "'UNS'' IS SET

sREPORT

000000

001350

001140
001140
001142

000010
15%:

040000

001350

000200

001376

001350
040000
001350
000004
000107
000002

001140
001140
001142

JREPORT

MOv

RMER{1,$BODAT

NOP

AN ERROR

817
BEQ

#I1LR,$GDDAT

#4,

(SP)

.MOVE

0105,a(sp)

;RECEIVED STATUS

;WRITE ERROR NUMBER IN CALL
:MOVE

PC.a(SP)+

b, sp)

SP TO RETURN FOR ERROR

:MOVE SP TO USER'S BRANCH

'"'RMR'" [S SET

SRMR ,RMER1]

:WwAS RMR

15¢

SET??

JNO.!

:EXPECTED STATUS

MOV
ADD
MOvB

RMERT],$BDODAT

:RECEIVED STATUS

01063 (sp)

:WRITE ERROR NUMBER IN USER'S CALL

#RMR ,$GDDAT

(SP)

‘MOVE

TO USER'S

suB
JSR

02, ($P)
PC.a(SP)e

AN ERROR

If "'UNS'' IS SET AND "DvC'" IS 0
7ggs,anea11
;uas UNSAFE ON??

SuB
NOP

BI1
BEQ
BIT

ADD
MOVB
suB
JSR
SuB
NOP

1518

o, (sp)

(ALL

:MOVE SP TO USER'S BRANCH

JNO!

#DVC , RMER2]
16%
RMER1],$GDDAT
NUNS,SGODAT
RMERT],$BODAT

:WAS THERE A DEVICE CHECK??
SYES - DON'T REPORT UNSAFE
EXPECTED STATUS

n07.3(sP)

‘WRITE ERROR NUMBER

05,

(SP)

#2.(5P)

PC.a(SP)+

6, (SP)

8ta
BR
suB

#6,(SP)

;RECEIVED STATUS
‘MOVE

SP TO USER'S ERROR

*MOVE

SP TO RETURN FOR ERROR

"REPORT

00, (sp)

8(5P)
17%

ADD

ERROR

*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

ERROR

VIA USER

ANY ERROR WAS DETECTED
:MOVE

TO USER'S

ERROR

<WAS AN ERROR REPORTED??
sNO!!

:gi(SP)

;YES

;NO

CALL

*MOVE SP BACK TO USER'S BRANCH

:AUGHENTABSE RETURN ADDRESS |f

17%:

DURING RECALIBRATE??

RMER1],$GDDAT

BIC

000004

SET

SP TO USER'S ERROR CALL

#2.(5P)

ILR

MOv

MOV

16%:

000004

EXPECTED STATUS

MOV

000010

000004
000000

RMER1],8GDDAT

BNE

000000

'‘ILR'' IS SET

MOv

8lcC

000000

;:as

Move
suB

JREPORT

16%

1£§R'R"ER11

JSR
SuB

000004

FILR.RMR'UNS ,RMER1]

AN ERROR

BIT
BEQ

ADD

14%:

000004
001350
000004
000106
000002

Bl7
BEQ

8l1¢

SEQ 0209

J00010

11-APR-80 13:17:48 PAGE 33-¢

13%:

[ X0 o Xo Yo AV IV IV IV IV IV TV ]

[=le]

(¥
LV

—

S TV

WVANN DDA L

[2lelelelelelelola)
d=ddzdelel=lalolalalolal]

oo Al Al ol Vol V B IV RV, )
Wy
— O O 00 O W&
v

(a8 1,91,¥1.¥} AN 1, N1 N1, V], V], V], V], §)

251

LV IV R IV TV T TV RV TV DV

YO NN
—O )
WO

051530

OCOO0O0O0O0O0O0OO0O0OO

V1, ST, VT N1, V1, VT N1 V1, V1, ¥} ~o
L LA LN
L
AN AN N

(IRANAD RMOS/3/2 FCTINL TST 2
MACRO v03.01
RECALIBRATE STATUS CHECK SUBROUTINE

ERROR

AUGMENT

RETURN

SP RETURN

TO BRAN(H

CALL

CIRMNAQ RMOS5/3/2 FCINL TST 2

RECALIBRATE

STATUS CHECK

286 052014
287 052016
288

000240
000207

MACRO v03.01

SUBROUTINE

.}
E
11-APR-80 13:17:48 PAGE 33-5
SEQ 0210

18$%:

NOP
RTS

JSTATUS CECK IS (OMPLETE

CIRMNAOQ RMO5/3/2 FCTNL TST 2

MACRO v03.01
DRIVE CLEAR STATUS CHECK SUBROUTINE
1

Fod
11-£7R-80 13:17:48 PAGE 34

.SBTTL

P4
3
5

9 052020

000004
000000
000004

16
17
18
19

013737
062737
012737
023737

001534
173700
004010
001140

001142
001142
001140
00114¢

000004
000141
000002

000000

052066
052066
052072
052100
0521064
052106

001443
062716
112776
162716
004736
162716

5? 052112

000240

28 052114

013737

052122
052130
052136
052144

33 052166

364
35
36
37
gg

052152
052160
052164
052166
052172

60 052174
61 052200

42 052206
43 052210
&6 052214

042737
012737
023737
001413

062716

001346

021101
010600
001140
000094

000142
000002

005037
013737

001140
001350

001413
062716
112776

052222
052226
052230
052234

162716
004736
162716
000240

50
51
52
53

052236
052264
052246
052250

013737
010146
010246
013701

0522564
052260
052264
052266

IF NO ERROR
TO REPORT AN ERROR

ERROR NUMBER DEFINED BY SuB

PC,a(SP)+

116102
042702
005102
040237

ADD

GO BACK TO SUB FOR MORE ERROR
RETURN HERE IF NO MORE ERROR.

001142

001142
001140
001142

ADD
MOVB

, REPORT

000010

001352

001464
000001
177400
001142

001142

SUB
JSR
SUB
NOP

ERROR

MOV

#6, (SP)

#141,3(sP)
#2,($P)
PC.a(SP)+

TO ERROR

CALL

I1F

BIC
MOV
CMP
BEQ

SUB
JSR
SUB
NOP

ERROR

CLR
MOV

8%:

MOV

MOV
MOV
MOV
MovB
B8l1C
COM

BiC

:MOVE

SP TO ERROR

CALL

*MOVE SP TO NO ERROR RETURN
INITIALIZED

RMDSI ,$BDDAT

;s CHECK RMDS

#PGM!OM!VV!IPIP ,$BDDAT

;CLEAR DONT

CARES

#MOL 'DPR!DRY,$GDDAT
;EXPECT DRY & DPR
$GODAT,$BDDAT
;COMPARE EXPECTED & RECEIVED

:BRANCH IF

¥4, (SP)

#142,3(SP)
#2,(SP)
PC,a(SP)+

00, (sp)

BEQ

ADD
MOVB
SuB
JSR
SuB
NOP
;REPORT ERROR

RMDS NOT

SEXPECT DVA

; COMPARE EXPECTED & RECEIVED
:BRANCH IF EQUAL

‘WRITE NUMBER OF ERROR IN CALL
*MOVE SP TO RETURN FOR ERROR
:REPORT THE ERROR VIA USER

010, (sP)

ADD
MOVB

JREPORT

000000

SgDDAT.iBDDAT
6

BEQ

000010

000004
000143
000002

+MOVE

#DVA'DRVCLR,$GDODAT

MOV
CMP

000000

001142

#4,(SP)

CLRB
8(SP)
+CLEAR ERROR CALL
#4,(SP)
:MOVE SP TO USER'S BRAN(H
Sus
i:EPORT ERROR 1F RMCS1 NOT INITIALIZED
MOV
RMCS1]1,$8DDAT
:CHECK RMCS?
#~C<DVA'FNCMSK>,$8BDDAT ;CLEAR DONT CARES
BIC

00001C

112776
162716
004736
162716
000240

45
66
47
23

564
55
56
57

RETURN HERE
RETURN HERE

;CLEAR USER'S ERROR CALL

062716
105076
162716

052034
0520642
052050
052056

SUBROUTINE

DRVSTS:

12 052020
13 052026
}g 052030

29
30
31
32

CLEAR STATUS CHECK

BR
NOP
ERROR
JSR
m

20
21
22
23
26
25

DRIVE

SEQ 0211

EQUAL

SP TO ERROR

CALL

;WRITE NUMBER OF ERROR IN CALL
sMOVE SP TO RETURN FOR ERROR
;REPORT THE ERROR V]A USER

:MOVE SP TO NO ERROR RETU®SN

_RMER1 NOT INITIALIZED
$GDDAT
;EXPECT 0°'S
RMER1I,$BDDAT
;CHECK RMER!
8$
;BRANCH IF EQUAL

¥4, (SP)

;MOVE

SP TO ERROR

CALL

#143,3(SP)
#2,(SP)

;WRITE NUMBER OF ERROR IN CALL
sMOVE SP TO RETURN FOR ERROR

10, (sP)

‘MOVE SP TO NO ERROR RETURN

PC a(SP)+

;MOVE

ATA NOT

THE

ERROR V]A USER

INITIALIZED

RMAS] ,$BDDAT
R1,-(SP)

R2,-(SP)

sREPORT

TSTQUE ,R1
1(R1),R2
#*CATNMSK
,R2
R2
R2,$BDDAY

JCHECK ATTENTION BIT

;;PUSH RY ON STACK
:sPUSH R2 ON STACK

(HME(CKS

MACRO v03.01
DRIVE CLEAR STATUS CHECK SUBROUTINE

012602

052412
052420
052426
052634
052642
052444
0526450
052426
09246¢
52464

013737
042737
012737
023737
001613
062716
112776
162716
004736
162716

000004
000145
000002

000000

001402

103
104
105
106
107
108
109
110
111

05253«
055542
052544
052550
052556
052562
052564
052570
052572

113 052572
114

000240

013737
001413
062716
112776
162716
004736
162716
000240

:REPORT

11%:

000004
000150
000002

000004
000147
000002

:MOVE SP TO ERROR CALL
‘WRITE NUMBER OF ERROR

910, (SP)

:MOVE SP TO NO ERROR RETURN

ERROR
MOV
BIC
MOV
CMP
BEQ

#2,(5P)
PC a(SP)+
IF

JSR

PC.a(sP)+

*REPORT

ADD

sgg

001142

#145,3(SP)
#2,(5P)

210, (sP)
IF

RMMR2 NOT INITIALIZED
RMMR21,$BDDAT ; CHECK RMMR?
#RQA'RQB,$BODAT :CLEAR REQA, REQB

pISTUITTY, SGDDAT

$GDOAT,$BODAT
15¢

0, (SP)

#146.a(SP)
#2,(SP)
PC.a(SP)+

SP TO ERROR

CALL

:WRITE NUMBER OF ERROR IN CALL
*MOVE SP TO RETURN FOR ERROR
‘REPORT THE ERROR VIA USER

;EXPECT ZEROS

MOV

RMEC21,$BDDAT

;CHECK RMEC2

ADD

¥,

*MOVE

SUB

#2.(SP)

sgg

10, (sp)

17%

(SP)

#180,a(spP)

PC.a(SP)+

*BRANCH IF 0

SP TO ERROR

CALL

‘WRITE NUMBER OF ERROR IN CALL
:MOVE SP TO RETURN FOR ERROR
‘REPORT THE ERROR VIA USER

:MOVE SP TO NG ERROR RETURN

ERROR IF RMER2 NOT RESET
MOV
RMER2],$BDDAT
;CHECK RMER2

18$

:BRANCH IF NO ERROR

#147,3(SP)
#2,(5P)

*WRITE NUMBER OF ERROR IN CALL
:MOVE SP TO RETURN FOR ERROR

ADD

#6,(SP)

JSR

PC.a(SP)+

MOVB
SUB

sgg

19%:

‘MOVE

$GDDAT

BEQ

18%:

;EXPECT TEST BIT ON

; COMPARE EXPECTED & RECEIVED
;BRANCH IF EQUAL

C.R

JSR

000010

ERROR VIA USER

:MOVE SP TO NO ERROR RETURN

move

000000

THE

:MOVE SP TO NO ERROR RETURN

0, (sP)

BEQ

,REPORT

SP TO ERROR CALL

‘WRITE NUMBER OF ERROR IN CALL
:MOVE SP TO RETURN FOR ERROR

JREPORT ERROR IF RMECZ2 NOT RESET

000000

001142

RMMR1 NOT INITIALIZED
RMMR11,$BDDAT
;CHECK RMMR
#WC'LSILST,$BDDAT
:CLEAR DONT CARES
#MD, SGDDAT
;EXPECT WRITE DATA ON
SGDDAT,$BDDAT
;COMPARE EXPECTED AND RECEIVED
1
*BRANCH IF ZERO
*MOVE

ERROR
MOV
BIC

IN CALL

*MOVE SP TO RETURN FOR ERROR
-REPORT THE ERROR VIA USER

#6, (SP)

MOVB
SUB
JSR
15%:

‘BRANCH 1F ATTENTION CLEARED

ADD

CMP
BEQ

000010
001376

0, (SP)
#144.a(SP)

MOV

000010

013737
001413
062716
112776
162716
004736
162716

ADD
MOVB

MOVB
SUB

000004
000146
000002

052476
052504
052506
052512
052520
052524
052526

;:POP STACK INTO R2
S:PLP STACK INTO R1
215 ATTENTION CLEARED??

332

001374
140000
011777
001140

001140

101 052532

; REPORT

9s:

000010

005037

9
9%
95
96
97
98
99
100

(SP)+,R2
(SP)+ R
$BDDAT

sgg

001360
000046
000010
001140

92 052472

MOV
MOV
ST

SUB
JSR

000010

81
82
83
86
85
86
87
88
89
90

000000

£
O

013737
042737
012737
023737
001413
062716
112776
162716
004736
162716
000240

SEQ 0212

BEQ

—d

052332
0523640
0523646
052356
052362
052364
052370
052376
0526402
0524064
052410

000004
000144
000002

69
70
71
72
73
74
75
76
77
78
gg

001142

012601
005737
001413
062716
112776
162716
004736
162716
000240

—

052274
052276
052302
052304
052310
052316
052322
0523264
052330

—

59
60
61
62
63
66
65
66
gg

[olelele]
leoleolele]

58 052272

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

010, (sP)

‘MOVE

SP TO ERROR

‘REPORT

THE

CALL

ERROR VIA USER

TMOVE SP TO NO ERROR RETURN

CIRMNAO RM0S5/3/2 FCTINL TST 2

CIRMNAQ RMOS5/3/2 FCINL TST 2

DRIVE

CLEAR

STATUS CHECK

115
116 052572
117 052576
118 052602

119 052604

120 052610

121 052612
122 052616

}%2 052620

062716
105776
001403

SUSROUTINE

000004
000000

062716

000004

162716
000240
000207

000004

000402

MACRO v03.01

;AUGMENT RETURN
ADD
TSTB
BEQ
ADD

21s:
238:

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

Sus
NOP
RTS

ADDRESS
04, (SP)
a(SP)
218

23$

(SP)

N6 ,(SP)

ANY ERROR WAS FOUND
:MOVE SP TO ERROR CALL
:WAS AN ERROR DETECTED??
INO!!
SYES = MOVE SP TO ERROR RETURN

.MOVE SP BACK TO NO ERROR RETURN

:RETURN T0 USER

SEQ 0213

MACRO v03.01

DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

;

]
11-APR-80 13:17:48 PAGE 35

.SBTTL

DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

:THIS SUBROUTINE VERIFIES THME RESULTS OF ALL DATA TRANSFER CGMMANDS

sUSING STATUS STORED

:THE ERROR NUMBER

g
9
10

.USER S SUBROUTINE CALL:
;1)
JSR
PC DTASTS

12
13

:(4)
:(5)

:(2)
:(3)

: (6)

}g 052622

DTASTS:

20 052622

062716

000004

22 052632
52 052636

162716
005037

000004
056216

21 052626

105076

000000
’

032737
001422
013737
042737
013737
062716

020000

001334

001334
020000
001334
000004

001140
001140
001142

34 052706

162716

000002

33 052700
35 052712

36 052716
gg 052716
39
40

41 052716

112776

004736

032737

001435
032737
001031
013737
042737

48 052760

062716

47 052752

49 052764

50 052772
51 053000

053002
053010
053014
053016

000013

000000

IF NO DATA ERRORS
TO REFORT AN ERROR

SUB WRITES ERROR NUMBER
USER RETURNS FOR MORE CHECKS
SUB RETURNS HERE AFTER ALL

ERRORS ARE REPORTED

ADD

"4, (SP)

:MOVE SP TO USFR'S ERROR

SuB
CLR

86, (SP)
500%

;RESTORE SP TO NO ERROR
:CLEAR ERROR FLAGS

CLRB

a(spP)

013737

112776

032737
061003

112776
162716
004736
000425

000010

001350

000010

001376

001350
000010

001140
001140

000004

;CLEAR LOW ORDER BYTE OF TRAP

SUB

#2,(SP)

000000

000274
000002

000000

UAS THERE A PARITY ERROR??
NO!
EXPECTED STATUS
;RECEIVED STATUS
;MOVE SP TO USER'S ERROR CALL

15,3(5p)

:WRITE ERROR NUMBER

PC.a(SP)+

;REPORT ERROR AND RETURN

308

;MOVE SP TO RETURN IF

ERROR

;REPORT ANY CONTROL BUS PARITY ERROR WHILE WRITTING REMOTE REGISTERS,
:1.E., PAR = 1 AND DPE = 0

BIT

#PAR,RMER11]

MOV

RMERTI,$BDDAT

MOVB

#50,3(sp)

BEQ
BIT
BNE
MOV
BIC

001142

000050

001000
.

#MCPE ,RMCSTI
10%
RMCS11,9GDDAT
#MCPE ,$GDDAT
RMCS1],$BDDAT
8y, (SP)

MOVB

108:

001350

BIT
BEQ
MOV
BIC
MoV
ADD

JSR

000466

052724
052726
052734
052736
052746

PC,a(SP)+

RETURN HERE
RETURN HERE

:?EEORYM?gE CO?TROL BUS PARITY ERROR WHILE READING REMOTE REGISTERS,
052642
052650
052652
052660
052666
052674

52
53
5¢
gz

PARAMETERS

IN THE USERS ERROR CALL.

BR
NOP

ERROR
JSR

TEST

ERRORS ARE REPORTED BY WRITING

;CLEAR USER'S ERROR (ALL AND tRROR FLAGS

&2
&3
46
65
46

IN THE GET BUFFER AND

;STORED IN THE PUT BUFFER.

27
28
29
30
31
32

SEQ 0214

ADD

001346

BIT
BNE

15%:

MOVB
SUB
JSR
B8R

20%
#DPE ,RMERZI
20%
RMER1]1,$GDDAT
#PAR ,$GODAT

(SP)

WAXF ,RMCS2]
15%

#274,3(S5P)
#2,(SP)
PC,a(SP)+
30%

°HAS THERE A PARITY ERROR??
:NO!
DATA PARITY ERROR ?
YES!
EXPECTED STATUS

;RECEIVED STATUS

;MOVE SP TO USER'S ERROR

:WRITE ERROR NUMBER
DID MXF GET SET??
YES!!

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

whe

CIRMNAQ RMOS5/%/2 FCTINL TST 2

MACRO v03.01

DATA TRANSFER COMMAND STATUS CHECK SUBROUT INE

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

sMECHANICAL POSITIONING

60
61

;FIRST TEST MXF WHICH WOULD INDICATE
-CODE AND GO BIT WERE LOADED

62 053020
63
64
65
66

053020
053026
053030
053036

032737
001425
013737
042737

001000

001344

001344
001000

001140
001140

68 053052

062716

000004

67 053046

69 053056
70 053066
71 053070
;3 053072

74
75 053072
;9 053076

013737

112776

001346
000275

162716
004736

000002

162716
000137

000010
056170

08:

001142

AMXF ,RMCS2]
40$
RMCS21,8GODAT
¥MXF , $ODDAT

:WAS 'MISSED TRANSFER'' SET??
*NO.!
;EXPECTED STATUS

ADD

(SP)

‘MOVE SP TO USER'S ERROR CALL

#2,(SP)
PC.a(SP)+

*MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN

MOVB
SUB
JSR

308
;RESTORE

COMPOSITE ERROR SET WHEN FUNCTION

BIT
BEQ
MOV
BIC

MOV

000000

SEQ 0215

RMCSS1,$BDDAT
#275,3(5P)

:;RECEIVED STATUS

‘WRITE ERROR NUMBER

SP TO NO ERROR RETURN AND BYPASS FURHTER STATUS CHECKING
SUB
#10, (SP)
:MOVE SP TO NO ERROR
JMP
380%
*SKIP 10 END OF SUB

;g 053102

408 :

80
g;

JREPORT AN ERROR IF ''OPI'' ERROR OCCURRED DUE TO 'MOL'' = 0, OR IFf ''OP1"
;5#8 "MOL'' ARE SET, BUT ''WV'' IS RESET, INDICATING AN INTERMITTENT

83
84
85
86
87
88

053102
053110
053112
053120
053126
053134

032737
001447
013737
042737
013737
032737

90 053144
91 053152
92 053154

94
95
96
97

89 053142

93 053160

053166
053172
053174
053200

gg 053202

020000

001350

001350
020000
001350
010000

001140
001140
001142
001346

032737
001013
062716

000100

001346

162716
004736
162716
000413

000002

001404

112776

000004

000276

000004

106 053214
105 053220

162716
004736

000002

107 053226
}83 053230

000240

106 053222

110
111 053230
112 053236
13
114 053240

162716

45%:

508 :

062716

112776

BIT
BEQ
MOV
BIC
MOV
BIT

000010

100
10°
102 053202

103 053206

000000

000277

000000

001376

013737

001376

001140

;RECEIVED STATUS
*WAS MEDIUM OFF LINE??

#VV,RMDS I
50
¥, (SP)

*WAS “MOL'' INTERMITTENT??
*NO'!
*MOVE SP TO USER'S ERROR CALL

#2,(SP)
PC,a(SP)+
010, (sP)
60$

*MOVE SP TO RETURN IF ERROR
;REPORT ERROR AND RETURN
:RESTORE SP TO NO ERROR

BEQ

(5%

MOVB

#2%6.a(SP)

BIT
BNE
ADD

SUB
JSR
SUB
BR

1S "'OPI'* SET??
IND!!
EXPECTED STATUS

JYES!!

*WRITE ERROR NUMBER IN CALL

MOVB

#277.3(5P)

*WRITE ERROR NUMBER IN CALL

SUB

#0, (sp)

*RESTORE SP T0 NO ERROR

SUB
JSR

608 :
010000

¥OP1,RMER1]
60$
RMER11,$GDDAT
#0P1,$GDDAT
RMER11,$BDDAT
#MOL ,RMDS |

;REPORT "‘OPI'' ERROR, WHICH IS DUE TO "'ON CYLINDER'' NOT DROPPING OR
SURUN'' TIMEOUT (20 MS) OR SEARCH TIMEOUT (50 MS)
ADD
¥, (SP)
;MOVE SP TO USER'S ERROR CALL

000010

032737
001432

Lll

NOP

#2,(SP)
PC.a(SP)+

*MOVE SP T0O RETURN If ERROR
*REPORT ERROR AND RETURN

:LOOK FOR "'IvC'' ERROR DURING COMMAND INITIATION
,
BIT
#1VC,RMER2]
:WAS THERE AN ''IVC'' ERROR??
BEQ
708
. INO!!
_
;REPORT “'IvC'* ERROR DUE TO
"'vV''
= 0, OR REPORT ERRONEOUS
''IVC''
ERROR
MOV
RMER2],$GDDAT
;EXPECTED STATUS

CIZRMNAO RM05/3/2 FCTNL TST 2

MACRO v03.01

NN~ O 000NN NS WA = OO0 00~
WV
N
OV
NN

053246
053254
053262
053266
053274
053302
053304
053312
053316
053320
053324

042737
013737
062716
112776
032737
001403
112776
162716
004736
162716

010000
001376
000004
000300
000100

001140
001162

000301
000002

000000

053324
053332

032737
001510

000007

001350

053334
053342
0533644
053352
053360
053366
053372
053400
053404
053406
053412
053614

032737
001426
013737
0642737
013737
062716
112776
162716
004736
162716
000240

000002

001350

001350
000002
001350
000004
000302
000002

001140
001140
001142

053414
053422
0534264
053432
053440
0534646
053452
053460
053464
053466
053472
053474

032737
001424
013737
042737
013737
062716
112776
162716
004736
162716
000240

053474
053502
053504
053512
053520
053526
053532
053540
053544
053546
053552
053554

032737
001424
013737
042737
013737
062716
112776
162716
004736
162716
000240

= OOVONOWVNS W= OOVMONOWVNSWN—O V0NN

i
i
i
)
S el el ol il el Sl el il el
il
il i
il
D el
i el
e
— e el

BIC

000010

65%:

:SEE IF

;RECEIVED STATUS

move

#300,a(sP)

‘WRITE ERROR NUMBER IN CALL

BEQ

65%

INO!!

#10, (sP)

:RESTORE SP TO NO ERROR

MOV
BIC
MOV

RMER11,8GDDAT
#ILR,$GDDAT

RMERT1,.$BODAT

:RECEIVED STATUS

move

#302.a(sP)

“WRITE ERROR NUMBER IN CALL

RMER1]

(SP)

2, (SP)

PC.A(SP)+

#10, (sP)

EXPECTED STATUS

*MOVE

SP TO USER'S ERROR

:MOVE SP TO RETURN IF
*REPORT

CALL

ERROR

ERROR AND RE TURN

SRESTORE SP TO NO ERROR

MOV
BIC
MOV

RMER11,$GODAT
#ILF ,$GDDAT
RMER11,$BDDAT

;EXPECTED STATUS

Move

#303.a(sp)

*WRITE ERROR NUMBER IN CALL

ADD

SUB

JSR

sgg

000010
90%:

001140
001140
001142

{CHANGE ERROR NUMBER
:MOVE SP TO RETURN IF ERROR
*REPORT "'IVC'' ERROR AND RETURN

:REPORT AN ERROR IF °''ILF'" IS SET
BIT
NILF RMER1]
;WAS “'ILF' DETECTED??
BEQ
90%
JNO!!

000000

001350
000006
001350
000004
000304
000002

*WAS VOLUME VALID??

FILR!ILF'!RMR,

SUB

80$:

001350

SP TO USER'S ERROR

BIT

SUB

sgg

000004

#VV,RMDS

*MOVE

#301,a(SP)
#2,(SP)
PC a(SP)+

ADD

000010

001140
001140
001142

(SP)

MOVB
SUB
JSR

JSR

001350
000001
001350
000004
000303
000002

BEQ
100$
sNO ERRORS DETECTED
sREPORT AN ERROR IF '‘ILR'' IS SET
BIT
#ILR,RMER1]
::g§'”ILR“ DETECTED??
BEQ
808
TN
!

000000

001350

#1VC,SGDDAT

SEQ 0216

RMERS],SBODAT

BIT

70%:

000001

MOV
ADD

000000
001346

D D e

) il i

NNOOCOC OO PO O OO NN VIWNNANNN
S B5 85 5 55 8 85 5 2 5 U NN N N W

D el i

D i el

N N

i el el

D o

i e

D el e

el e

U NI PO AU PO RO RO AU N — b —a = —a

DATA TRANSFER COMMAND STATUS C(HECK SUBROUTINE

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

sREPORT

PC (SP)+

710, (sP)

SMOVE

SP TO USER'S ERROR

:MOVE SP TO RETURN If

CALL

ERROR

*REPORT ERORR AND RETURN

"RESTORE SP T0 NO ERROR

RMER{1,$BDDAT

:RECEIVED STATUS

move

#304.a(sp)

*WRITE ERROR NUMBER IN CALL

SUB

sug

100%:

#2,(SP)

;RECEIVED STATUS

MOV
JSR

000010

(SP)

AN ERROR IF ''RMR®' IS SET
BIT
#RMR,RMER1]
:WAS "'RMR'' DETECTED??
BEQ
1008
*NO!!
MOV
RMER11,$GDDAT
:EXPECTED STATUS
BIC
#RMR, $GDDAT
ADD

000000

¥4,

(SP)

#2,(SP)

PC.a(SP)+

010, (SP)

:MOVE

SP TO USER'S ERROR

:MOVE SP TO RETURN IF
:REPORT

CALL

ERROR

ERROR AND RETURN

*RESTORE SP TO NO ERROR

;DETERMINE WHETHER OR NOT "'[AE'' SHOULD BE SET AND CHECK FOR ERROR

[¢ s Nan]

(ZRMNAO RMO5/3/2 FCINL TST 2

DATA TRANSFER COMMAND STATUS CHECK

172
173
174
175
};g

SUBROUTINE

053554
053562
053570
053576
053600

012737
052737
023727
101025
042737

002000
040000
001444

001140
056216
001466

040000

056216

178 053606

123737

001417

001333

181
182
183
184
185
186
}gg

001416

000035

053634
053636
053644
053646

123727
101410
032737

001406
123727
101002
005037

010000

001442

001416

000037

189
190
191
192
193

053652
053660
053666
053674
053676

013737
042737
923737
001004
042737

001350
175777
001140

001142
001142
001142

040000

056216

195 053706

062716

000004

197 053720
198 053724

162716
004736

000002

}gg 053614

053616
053626
053626

194 053704
196 053712

199 053726

101016

000612

112776

001140

000305

162716

0u0010

053732
053740
053746
053754
053762
053770
053772
054000
054002

013737
042737
013737
042737
032737
001417
(2737
001032
062716

001376
137777
056216
137777
040000

001142
001142
001140
001140
001376

040000

056216

213 056014
214 054020

162716
004736

000002

58? 053732
202
203
204
205
206
207
208
209
210
211

212 0564006

215 054022
319 056026

112776

162716
000417

000004

000306

000000

NIAE,$GDDAT
#SK1.5008
RMDCO,#822.
1108
#SK1,5008

:SETUP FOR "'IAE" =
SSETUP FOR "'SKI'' =
:GREATER THAN LAST
SYES = CYLINDER 1S
SRESET SKI FLAG

(MPB

RMDAO+1,LSTRK+1

;GREATER THAN LAST TRACK

CMPB
BLOS
BIT
BEQ
CMPB
BH]
CLR

RMDAO,#29.
105%
NFMT16,RMOFO
1108
RMDAO,#31.
1108
$GDDAT

;1S SECTOR > 29.
*NO
18 BIT FORMAT ?
*YES - SECTOR IS
:1S SECTOR > 31,
SYES - SECTOR IS
*"'IAE'' SHOULD =

MOV
BIC
CMP
BNE
BIC

RMER11,$BDDAT
#*C1AE,$BDDAT
SGDDAT,$BDOAT
115%
#SK1,500%

:GET RECEIVED STATUS
;IS "'IAE" STATUS OK??
NO!
STAE OK - SKI SHOULD BE 0

ADD

¥,

:MOVE SP TO USER'S ERROR CALL

SUB
JSR

#2,(SP)
PC.a(SP)+

B8R

Mmove
SUB

1108

1208

(SP)

#305,a(sp)

0, sp)

1
1
CYLINDER ?
INVALID

SYES - TRACK IS INVALID

7
INVALID FOR 18 BIT MODE
2
INVALID

‘WRITE ERROR NUMBER

:MOVE SP T0 RETURN IF ERROR
*REPORT ERROR AND RETURN

:MOVE SP TO NO ERROR

;REPORT AN ERROR IF ''SKI'' IS SET AND ''IAE'' STATUS WAS OK
MOV
RMER21,$BDDAT
;RECEIVED STATUS
BIC
#*CSK1,$BODAT
MOV
5008 ,$GDDAT
;EXPECTED STATUS
BIC
#*CSK1,SGDDAT
BIT
#SK1,RMER2]
;WAS "'SKI'' SET??
BEQ
1408
NO!!
BIT
#SK1,5008
UAS SK1 CAUSED BY JAE
= 0?7
BNE
1508
SYES - DON'T REPORT SKI
ADD
8%, (SP)
*MOVE SP TC USERS ERROR CALL

Mmove

#306.a(sP)

SUB
BR

b, (sp)
150%

SUB
JSR

000010

#2,(SP)
PC,a(SP)+

:WRITE ERROR NUMBER

:MOVE SP TO RETURN IF ERROR
JREPORT ERROR AND RETURN

*MOVE SP TO NO ERROR

1408 ;

221 056030
222 054036
223 0564040

032737
001413
062716

225 056052
226 056056

162716
004736

228 054064

000240

224 056044

1158:

1208

g}g 054030
220

1108:

SEQ 0217

MOV
BIS
CMP
BHI
BIC

BH]

1058:

000000

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

112776

040000
000004

000307
000002

227 0564060 162716 000010

056216

000000

;REPORT AN ERROR IF

SKI = O AND IAE WAS NOT DETECTED

BIT
BEQ
ADD

#5K1,590%
1508
04, (SP)

;SHOULD SKI BE SET??
*NO!!
‘MOVE SP TO USER'S ERROR CALL

SUB
JSR

az.(sp>
C.a(sP)e+

‘MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN

move

SUB

NOP

#307.a(sp)

6.(sp

:WRITE ERROR NUMBER IN CALL

*RESTORE SP TO NO ERROR

Yan)

MACRO v03.01

[

CIRMNAOQ RMG5/3/2 FCTNL TST 2

CIRMNAD RM0S/3/¢ FLTNL TST 2

MACRO v03.01

DATA TRANSFER COMMAND STATUS CHECK

SUBROUTINE

ggg 054066

231
232 054066
sgz 056076

006200

001376

237 054104
238 054106
239 056116

032737
001424
013737
042737

000200

001376

001376
000200

001140
001140

241 054130

062716

260 054122

262 054134

263 056172

013737

601376

112776

000310

162716

2& 054546

Q04736

266 0564154
gzg 054156

000240

265 054150

249

250 054156

142716

032737

000004

000002

002000

001376

013737
042737

001376
002000

001140
001140

013737

062716
112776
162716
004736

262 0564244
ggz 054246

000240

261 054240

265
266
267
268
269

162716

001376

000004
000311
000002

001376
004000

071140
001140

271 054300

062716

000004

112776

273 0564312

004736

275 054320
5;9 054322

000240

274 054314

278
279
280
281
282
283
284
285

716

000312

001142

:RECEIVED STATUS

#310.a(sP)

*WRITE ERROR NUMBER IN CALL

#2,($P)

SUB

#10, (sP)

NOP

MOV

ADD
MOVB
SuUB
JSR

1708 :
001376

RMERS],$BDDAT

SUB

SuB

004000

272 054306

:MOVE SP TO USERS ERROR

BEQ
BIT
BEQ
MOV
BIC

000010

001376

¥, (SP)

BIT

000000

032737
001422
013737
042737

013737

ADD

NOP

;REPORT LOS OF
BIT
BEQ
MOV
BIC

MOV
ADD

000000

MOvB
JSR

000010

SuUB

*MOVE SP T0 RETURN IF ERROR

PL,a(SP)+

JREPORT LQSS OF BIT CLOCK,

001142

056246
054254
054256
054264

270 056272

INO!!
;EXPECTED STATUS

move

1608 :

254 054176
255 054204

054220
056226
054232
054236

1608
RMER2:,$GDDAT
#DVC, $GDDAT

MOV

000010

001346

257
258
259
260

BEQ
MOV
BIC

010000

256 054212

;REPORT ANY DEVICE FAULT, 1.E., 'DVC" = 1
BIT
#DVC, RMER2]
;1S DVC''
= 122

000000

001430
032737

001424

;LOOK FOR ''LSC'* OR *'LBC'' OR ''DVC'' IN ERROR REGISTER #2
BIT
#LSC'LBC'DVC,RMER2]
BEQ
1808
:NO ERRORS SET

001142

251 054164
252 054166

253 054176

SEQ 0218

1508 :

032737
001512

235
236 054076

n
A
1°-APR-80 13:17:48 PAGE 35-4

FLBC,RMERZ

;REPORT ERROR AND RETURN

‘RESTORE SP TO NO ERROR

1.E.;

1708
#MOL ,RMDS

1708

RMER21,$GDDAT
#LBC,S$GDDAT

RHERéI.SBDDAT

¥4, (SP)
#311,3(SP)
#2,(5P)
PC,a(SP)+

#16.(SP)

"LBC'' = 1,

;1S LBC SET??

"MOL'' = 1

*ND!!
;WAS LBC ERROR BY MOL = 0
SYES!!
:EXPECTED STATUS

JRECEIVED STATUS

:MOVE SP TO USER'S ERROR CALL
‘WRITE ERROR NUMBER IN CALL
sMOVE SP TO RETURN IF ERROR
JREPORT ERROR AND RETURN

JRESTORE SP TO NO ERROR

SYSTEM CLOCK, I.E., "'LSC'' =1
#LSC,RMERZ]
(1S TLsc = 172
1808
*NO!!
RMERZ] ,$GDDAT
JEXPECTED STATUS
#LSC,SGEDAT

RMERA]I,%BDDAT
#4,(SP)

#312.3(sP)
PC,a(SP)+

l16,(SP)

;RECEIVED STATUS

sMOVE SP TO USER'S ERROR CALL

‘WRITE ERROR NUMBER

JREPORT ERROR AND RETURN

;RESTORE SP TO NO ERROR

180$:

0543;~
05433

032737
001527

054000

001350

054332
054340
054342
054350

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 I1F
''DVC'* = 0
.
BIT
#UNS ,RMER1]
;1S UNS''
SET?2?
BEQ
1908
INOLE
L
BIT
#DVC ,RMER2]
*WAS "UNS''
CAUSED BY
''DV('"??
BNE
1908
SYES!!

N
MACRO v03.01 11-APR-80 13:17:48 PAGE 35-5
DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

CZRMNAQ RMOS5/3/2 FCTINL TST 2
286 054352

001350
0460000
001350
000004
000313

000002

304
305
306
307

MOV
BIC

RMER1],$GDDAT
FUNS , $GDDAT

000000

ADD

move

000010

296 056420

297
298
299
300
301
302
303

001140
001140
001142

054420
054426
054430
054436
054444
054452
054456
054664
054470
054472
054476

010000

001350

001550
010000
001350
000004
000314
000002

001140
001140
001142

001142
001140
001140

000000
001346

0 054552

000010

001410

322 054562

000316
004000
000002

000000
001140

*54530

/056534
8 054542
9 054550
1

054560

323
324
325
326

054570
054576
054602
054604

004736

(SP)

#313.a(sp)
#2,(SP)
PC.a(SP)+

10, (sp)

SUB

#DTE ,RMERT
2008
RMER1],$GDDAT
#DTE,SGDDAT
RMERTI,$BODAT

8, (SP)

#314.,a(sP)
#2,(SP)
PC.a(SP)+

710, (sP)

;EXPECTED STATUS
;RECEIVED STATUS
;MOVE SP TO USERS ERROR (CALL
;WRITE ERROR NUMBER
;MOVE SP TO RETURN IF

I1.E., 'DTE" = 1
:IS'?TE SET??
sNO!!

;EXPECTED STATUS

;RECEIVED STATUS
;MOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER IN CALL
sMOVE SP TO RETURN IF ERROR

;REPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

;REPORT AN ERROR If WRITE LOCK ERROR IS SET.
SEE
:WRITE PROTECTED, OR IF FUNCTION WAS NOT A WRITE
#WLE ,RMERT]
8IT
JWAS "WLE'' SET??
BEQ
220%
sNO!!
MOV
RMER1],$BDDAT
;RECEIVED STATUS
MOV

BIS

ADD
MovB8

205%:
210$:

8IT
BEQ
BIT
BEQ

MOVB
BIC

SuB

JSR
SuB

RMER1],S$GDDAT
#WLE ,$GDDAT
¥, (SP)
#315,3(SP)
#WRL ,RMDS]

205%

#B1T3,RMCS10

ERROR

;REPORT ERROR AND RETURN
;RESTORE SP TO NO ERROR

DRIVE

;EXPECTED STATUS

sMOVE SP TO USERS ERROR CALL

;WRITE

ERROR NUMBER

IN CALL

::8§.DRIVE WRITE PROTECTED??

#316,3(5P)

+WAS COMMAND A WRITE??
JYES!!
s CHANGE ERROR NUMBER

00, (sp)

sREPORT ERROR AND RETURN
<MOVE SP TO NO ERROR

2108

#ULE
. $GDDAT
#2,(SP)
PC.a(SP)+

IS NOT

;MOVE SP TO RETURN IF ERROR

220%:

;OMIT DATA ERROR CHECKS IF ANY PRE_JOUS ERRORS HAVE BEEN DETECTED

000004
000000

ADD
1518

BEQ
Sus

000004
055630
000004

\NSUWAAN

NN
NN
QOO

001410
177700
000063

225%:

QOO

AN AN N LN NNN
Ll
2 3 o AN L L UM AN AN AN
N
= O O 00
O W (L

054636
054644
054652

MovBe
SUB

000010

328 054610
331 0546610
054614
054620
054622
054626
054632

ADD

:
2008

001350
001350
004000
000004
000315
004000

BIT
BEQ
MOV
BIC
MOV

JSR

001350

vy 054522

SUB

RMER{1,SBODAT

;REPORT ANY DRIVE TIMING ERROR,

000000

004000

13 054506
054514

SUB
JSR

190%:

000010

11 054476
12 054504

MOV

SEQ 0219

JMP

SuB

06, (SP)

a($P)

2258

86,

(SP)

3408

76, (SP)

;rd,¥E SP 10 USER'S ERROR
.wAS ERROR DETECTED??
;N0 - DO DATA CHECKS
RESTORE SP
:SKIP DATA CHECKS
;RESTORE

;CHECK HEADER ERRORS IF FUNCTION WAS NOT WRITE HEADER AND DATA, AND
;1F HEADER COMPARE IS NOT INMIBITED
MOV

BlC

Cmp

RMCS10,510%
#*CENCMSK 5108

#uh' 60,5108

sSTRIP AND STORE FUNLTION CODE

;WAS FUNCTION WRITE HEADER & DATA??

DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

343 054660
366 056662
222 056670

001512
032737
001106

002000

001366

347
348 054672
ggg 054700

032737

000620

001350

032737
001422
013737
042737
013737
062716
112776
162716
004736

000400

001350

001350
000400
001350
000004
000317
000002

001140
901140
001142

361
352 054702
353 054710
35¢ 054712
355
356
357
358
359
360

054720
054726
0564734
054740
054746
054752

361 0547564

%2% 054756
364
365
366
367
368
369
370

001533

054756
054766
054766
054774
055002
055010

032737
001422
013737
062737
013737
062716

373 055026
374 055030
g;g 055032

(04736
000453

371 055014
372 055022

377
378 055032
379 055040
380 055042

112776
162716

001350

001350
000020
001350
000004

001140
001140
001142

000320
000002

000000

000200

003350

381 055050
382 055056
383 055064

001350
000200
001350
000004

001140
001140
001142

385 055076
386 055102

162716
004736

000002

387 055104

338
389
390

391 055106
392
393
394
395
396

112776

032737

001425
013737
042737
013737
062716

398 055152
399 055156

162716
004736

112776

B8R

001350

001350
000620
001350
000004

001140
001140
001142

000322

000002

000000

#HCRC,$GDDAT
RMERT{,$BODAT
#6,(SP)
#3i7.a(sP)
#2,(5P)
PC,a(SP)

2608

JREPORT FORMAT ERROR IFf SET
BIT
#FER,RMERT]
BEQ
2408
MOV
RMER11,$GDDAT
BIC
#FER,SGDDAT
MOV
RMERT],$BDDAT
ADD
" (SP)

MOVB
SUB

JSR
BR

#330.a(SP)
", (SP)
PC,Q(SP)*
2608

JREPORT HEADER COMPARE ERROR IF
BIT
#HCE,RMERT]
BEQ
2708
MOV
RMERY],SGDDAT

BIC
MOV
ADD

#HCE ,$GODAT
RMERT],SBDDAT
"% (SP)

5UB
JSR

22, (5P)
PC,a(SP)¢

MOVB

000620

:YES = SKIP HEADER CHECKS
:WAS HCI SET??
SYES - SKIP HMEADER CHECKS

1F ANY WEADER ERRORS ARE SET, I.E., "'FER" OR "MCRC'' JR "MCE"
817
#HCRC'FER'HCE,RMERT]
BEQ
2708
SNO ERRORS SET

BIC
MOV
ADD
Move
$UB
JSR

000000

000425

055114
055116
055124
055132
055140

397 055144

000321

2508
#HC1,RMOF |
2508

;REPORT HEADER CRC ERROR IF SET
BIT
PHCRCRMERTLTM
;WAS WCRC SET??
BEQ
2308
NO'
MOV
RMER1],$GDDAT
ExPECTED STATUS

2408 :

032737
001453
013737
042737
013737
062716

384 055070

;SEE

2308 :
000020

SEQ 0220

BEQ
BIT
BNE

000000

000501

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

#321.3(5P)

2608

:RECEIVED STATUS
;MOVE SP TO U..RS ERROR
‘WRITE ERROR NUMBER
:MOVE SP 10 RETURN IF ERROR
JREPORT ERROR AND RETURN

SWAS FER' SET??
NO.
expecreo STATUS
:RECEIVED STATUS
;MOVE SP TO USERS ERROR

*WRITE ERROR NUMBER
JMOVE SP 10 RETURN ¢ ERROR

JREPORT ERROR AND RETURN

SET
SWAS "'HCE'' SET??
NO.'
:EXPECTED STATUS

:RECEIVED STATUS
sMOVE SP TO USER'S ERROR

*WRITE ERROR NUMBER

:MOVE SP TO RETURN If {RROR
;REPORT ERROR AND RETURN

:THERE SHOULD BE NO HEADER ERRORS BECAUSE
:
.COMMAND WAS WRITE WEADER AND DATA, OR
-HEADER COMPARE INMIBIT WAS SET

5508:

MACRO v03.01

811

#HCE 'FER'HCRC,RMERT]

8EQ
MOV
BIC
MOV
ADD

2708
:NO ERRORS WERE SET
RMERYI,$GDDAT
:EXPECTED STATUS
#HCE'FER'HCRC, SUDDAT
RMERT],$BDDAT
RECEIVED STATUS
26, (SP)
‘MOVE SP TO USER'S ERROR CALL

SuB
JSF

#2,(SP)
PC,a(SP)¢

MOVB

#382.a(SP)

‘WRITE ERROR NUMBER

;MOVE SP TO RETURN IFf ERROR
;REPORT ERROR AND RETURN

CIRMNAQ RMO5/3/2 FCTNL TST 2

MACRO v03.01 11-APR-80
DATA TRANSFER COMMAND STATUS C(HMECK SUBROUTINE

600 055160
601 055164
602
403 055170
404
405
606
607 055170
4«08 055176
409 055200
410 055204
611
612
613 055204
614 055¢12
615 055214
616 055222
617 055230
618 055236
619 055242
620 055¢50
621 055256

622
623
624
625
426
627
428
629

162716

000137

000010
055416

001350

001140
001140
001142

001350
000004
000323
004000

000000
001350

055276
055304
055306
055312

000020

056220

000004
000325
000002

055322
055326
055330

;MOVE SP TO NO ERROR

340¢$

BNE
JMP

JOMIT

DATA

BIT
BEQ

275%
310%

CHECK

MOV

BIC

MOV
ADD

MOVB
BIT

BNE

MOvB
817
BNE

FURTHER DATA (ME(CKS

000000

JNO

;G0 DO WRITE STATUS (ME(K

SET

#DCK,RMERT]
2908

:DGYA CHECK ERROR??
JNO!!

RMER1],$GODAT

JEXPECTED STATUS

#DCK,$GDOAT

RMERT], SBDDAT
96, (SP)

JRECEIVED STATUS
JMOVE SP T0O USER'S EPROR

#333.3(SP)

JARITE ERROR NUMBER

#EC1.RMOF
|

:Ueg.gcc CORRECTION DISABLED??

2808

JYES!H!

#324 ,8(SP)
#ECH,RMER1]
276%

;sCHANGE TO RECOVERABLE ERROR
;1S E?ROR RECOVERABLE??

N, (SP)

;RESTORE

:NO !
;DO NOT REPORT RECOVERABLE ERROR IF READ COMMAND
BIT
#B1746,5108
;USSl!HIS A READ COMMAND ??
8eaQ
280%
HL
suB

276%$:

280§$:

000010

B8R

290%

n2,(SP)

#10, (SP)

;RESTORE SP TO NO ERROR

#325,a(SP)

JSR

PC,a(SP)¢

SuB

;SKIP ERROR - DATA wiLL BE CORRECTED
; CHANGE TO NON RECOVERABLE
+MOVE SP TO RETURN IF FRROR

MOvVB
sus

055334

REPORT

ERROR AND RETURN

= NN NNNNNNES
N
g o
) b Y =0 L L M D
NOO OO NNNWNWN

290%:
:REPORT

DATA BUS

PARITY

ERROR

000400

001344

001344
000400
001344
000004
000326
000002

001140
001140
001142

MOV

3008
RMCS21,8GDDAT
#MDPE ,$GDDAT
RMCS21,$BODAT

000000

MOVB

#326.a(SP)

JSR

PC.a(SP)+

000010
055630

BlT

BEQ
MOV
BIC
ADD

SUB

3008:

055416
055416
055424
055426
055434

:REPORT

000000
001366

000324
000100

055344
055352
055360
055366
055372
055400
055404
055406
055412

#10,(5P)

JMP

SEQ 0221

J1F COMMAND WAS A WRITE COMMAND, GO DO WRITE ERROR C(HECKS, OTHERWISE
;00 READ ERROR (HE(CKS
BT
#8113,510%
;USS THIS A WRITE COMMAND?
275%:

100000
100000

= O = —O0000O0
QOO
O —H ~O'w
O NI PRI NINNL W — N

460
441
462
443
464
465
666
447
448
449
450
651
652
653
654
655
656

056220

055260
055266
055274

637
438 055334
639 055342

SuUB

35-7

270%:

630 055314

631
632
433
636
435
636

260%:

000010
055630

13:17:48 PAGE

SUB
JMP

#MOPE ,RM(CS2]

24,

(SP)

#2,(SP)

210, (SP)
340

SET,

1.E., MDPE

;PARITY

ERROR

SET??

‘NO!!
JEXPECTED STATUS

SRECEIVED STATUS
;MOVE SP TO USER'S ERROR
:WRITE ERROR NUMBER
;MOVE SP TO RETURN ]f ERROR
;REPORT ERROR AND RETURN
;MOVE SP 10 NO ERROR
:SKIP WRITE

STATUS CHECK

110%:

000001

001346

001346
000001

001140
001140

STEST TO SEE THAT OFFSET MODE WA S RESET, REPORT ERRCR IF ''OM'"
T
#OM, RMDS|
A
:1S OFFSET ON??

BEQ
MOV

BIC

3206

RMDS],$GDDAY

#OM,$GDDAT

sNO

JEXPECTED STATUS

w e

CIRMNAD RMOS/3/72 FCTNL TST 2

CIRMNAQ RMOS/3/2 FCINL TST 2

MACRO v03.01 11-APR-80 13:17:48 PAGE
DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

657 055642
458 055450

659
660
461
662
663

664

055454
055462
055466
055470
055474

665
666
667
468
669
670
671
672

055674
055502
055504
055512
055520
055526
055532
473 055540

674 055544
675 055546

676 055552

677
478
479 055552
480 055560
481 055562
482 055570
483 055576
486 055604
485 (55610
486 055616
487 055622
488 0556264
489 055630
490
9N
692 055630
493 055636
694 055640
495 055646
496 055654
697 055662
498 055666
699 055674

500 055700
501 055702
gg% 055706

504 055706
505 055712
506 055716
507 055722
508
509
510
511 055726
512 055732
513 055734

013737
062716

001346
000004

001142

112776
162716
004736
162716

000327
000002

032737
001423
013737
042737
013737
062716
112776
162716

000010

001376

001376
000010
001376
000004
000330

001140
001140
001142

004736
162716

032737
001423
013737
042737
013737
062716
112776
162716
004736
162716

000002

001423
013737
042737
013737
062716
112776
162716
004736
162716

013746
042716
022726
001522

;TEST

ERROR;

Bl7
BEQ
MOV
BIC

gggE,RHERZI

RMER2] ,$GDDAT
#DPE ,$GDDAT

ADD

#G,

suB
JSR

#2,(SP)
PC,a(SP)¢

RMERZ], $BDDAT

move

FOR

CLOCK

TO USER'S ERROR

FAILURE;

001140
001140
001142

BIC
MOV

#WCF,SGDDAT
RMER11,$BDDAT

000000

Move

#3%1.a(sP)

REPORT

ERROR

"WCF'*
=

BIT

#WCF ,RMERT]

S1S "WCF'' SET??

MOV

RMER11,$GDDAT

EXPECTED

26,

:MOVE

SP TO RETURN IF

*MOVE

SP TG NO ERROR

BEQ

3408

ADD

SUB

(5P)

PC.a(SP) e+

SUB

''DATA LATE'' ERROR

STATUS

;RECEIVED STATUS

TO USERS

ERROR

'DLT"" =

001344

001344
100000
001344
000004
000332
000002

001140
001140
001142

BEQ
MOv

RMCS21,$GODAT

;EXPECTED STATUS

MOV

RMCS21, $BODAT

SRECEIVED STATUS

000000

move

#3%52.a(sp)

*WRITE ERROR NUMBER

#OLT,RMCS2I
3508

#DLT,$GDDAT

ADD

SUB
JSR

000010

24,

(SP)

($P)

CALL

ERROR

100000

BIC

*REPORT ERROR AND RETURN

70, (sP)

BIT

CALL

*NO!!

*WRITE ERROR NUMBER

#2(SP)

JSR

sMOVE SP TO NO ERROR

001350
000040
001350
000006
000331
000002

JREPORT

''DPE'’
=

:MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RE TURN

001350

3005

‘WRITE ERROR NUMBER

000040

000010

ERROR

;DGTA PARITY ERROR??
.
1t
sNO!!
;EXPECTED STATUS
*MOVE

00, (sp)

WRITE

REPORT

;RECEIVED STATUS

(SP)

#3%0.a(sP)

SuB

330%:

sREPORT ERROR AND RETURN
sMOVE SP TO NO ERROR

nd, sp)

MOV

000000

¢WRITE ERROR NUMBER IN CALL
+MOVE SP TO RETURN IF ERROR

PC.a(SP)+

FOR DATA BUS PARITY

SIS "DLT" SET??
:NO!!

:MOVE

SP TO USERS

ERROR

:MOVE SP T0 RETURN IF

PC,8(S5P)¢

*REPORT

MOV

RMDS1,-(SP)

:STACK

BEQ

3809

JYES!!

CALL

ERROR

ERROR AND RE TURN

suB
710, (SP)
*MOVE SP TO NO ERROR
:
3508
;LOOK FOR UNEXPECTED CHANGES IN DRIVE STATUS

001346
147677
010100

Bl(
(MP
;REPORT

032737
0ul1430
032737

#2,($P)

SUB

40%:

032737

SUB

SEQ 0222

;RECEIVED STATUS
;MOVE SP TO USER'S ERRCR CALL

#327.a(SP)

JSR

3208

000010

RMDS1,$BDDAT
0, 1SP)

MOVB

000000

000010

MOV
ADD

35-8

020000

001346

040000

001376

ERROR

DRIVE

STATUS

#2C<PIP'MOL 'vV>,(SP) ;CLEAR DONT CARES
MMOL'VV,(SP)+
;1S DRIVE STATUS 0k??
1f

POSITIONING

;1.E, PIP = 1 AND SKI = 0

IN PROGRESS

AND NO

SEEXK

INCOMPLETE

BIT

#P1P,RMDS]

;1S "PIP" SET2?

BIT

2ok 1. RMER]

"WwAS "‘SKI'* ERROR REPORTED??

BEQ

3608

NO'

ERROR,

514 055742
515 0557644

001024
013737

001346

001140

517 055760
518 055766

013737
062716

001346
000004

001142

520 056000
521 056004

162716
004736

000002

§23 056012

000240

516 055752

§19 055772

522 056006

§§§ 056014
526
527
528
5§29
530
531
532
§33
§34
535

042737

112776
162716

056014
056022
056024
056032
056034
056062
056050
056056

032737
001027
032737
001023
013737
052737
013737
062716

537 056070
538 056074

162716
004736

536 056062

539 056076

22? 056102
542
543
544
545
546
547
548
549
550
551

112776

162716

056102
056110
056112
056120
056122
056130
056136
056144

032737
001027
032737
001033
013737
052737
013737
062716

553 056156
554 056162

162716
004736

552 056150

555 056164

112776

020000

000333

001140

010000

001346

020000

001350

001346
010000
001346
000004

001140
001140
001142

000000

000010

001346

Q10000

001376

001346
000100
001346
000004

001140
001140
001142

000002

MOV
ADD

RMDS] ,$BDDAT
N6, (SP)

JRECEIVED STATUS
JMOVE SP TO USERS ERROR CALL

SUB
JSR

#2,($P)
PC,a(SP)+

:MOVE SP T0 RETURN IF ERROR
JREPORT ERROR AND RETURN

000000

NOP

#P1P,$GODAT

#3%3.a(sp)

00, sp)

‘WRITE ERROR NUMBER

*MOVE SP TO NO ERROR

JREPORT ERROR If MEDIUM ]S NOT ON LINE AND OP] ERROR WAS NOT
;REPORTED, I.E., MOL = OPI = 0
BIT
#MOL ,RMDS
;1S MEDIUM ON LINE??
BNE
3708
SYES!!
BIT
#0P] ,RMER1]
;WAS OP] ERROR REPORTED??
BNE
3708
SYES!!
MOV
RMDS1,$GDDAT
JEXPECTED STATUS
BIS
#MOL
, $GDDAT
MOV
RMDSI,$BDODAT
;RECEIVED STATUS
ADD
#s,(SP)
;MOVE SP TO USER'S ERROR

Mmove
SUB
JSR

3708 :

000100

000335

;YES=-DONT REPORT PIP
EXPECTED STATUS

SUB

3608 :

000002

360%
RMDSI , $GDDAT

move

000010

000334

BNE
MOV

BIC

000000

SEQ 0223

SUB

#3%4.a(sP)

‘WRITE ERROR NUMBER

010, (sP)

*MOVE SP TO NO ERROR

#2,($P)
PC,a(SP)+

:MOVE SP TO RETURN If ERROR
JREPORT ERROR AND RETURN

JREPORT ERROR IF VOLUME 1S NOT VALID AND "'IV(C'' ERROR WAS NOT
JREPORTED, I.E., VW = JvC = 0
BIT
#VV,RMDST
;1S VOLUME VALID??
BNE
380%
SYES!!
BIT
#IVC,RMERZI
;WAS IVC ERROR REPORTED??
BNE
3908
SYES!!
MOV
RMDS],$GDDAT
JEXPECTED STATUS
BIS
#VV,$GDDAT
MOV
RMDS1,$BODAT
;RECEIVED STATUS
ADD
#4,(SP)
JMOVE SP TO USERS ERROR CALL

Move

#3%5.a(sP)

SUB

l16.(SP)

SUB
JSR

#2,(SP)
PC,a(SP)+

‘WRITE ERROR NUMBER

;MOVE SP TO RETURN IF ERROR
JREPORT ERROR AND RETURN

162716

000010

056170
056174
056200
056202

062716
105776
001403
062716

000004
000000
000004

JAUGMENT THE RETURN ADDRESS IF ANY ERROR WAS FOUND
ADD
25,'SP)
:MOVE SP TO0 ERROR CALL
ST
aiép)
*ANY ERROR??
BES
390%
*NO!!
ADD
#4,(SP)
:YES - MOVE SP TO ERROR RETURN

ggg 056210

162716

000004

390%:

ggg 056170
558
559
560
561
562

563 056206

000402

3808 :

JMOVE SP TO NO ERROR

4008

¥s, (SP)

JMOVE

:RETURN TO USER

SUB

229 056216

000207

4008:

RTS

568 056216
569 056220

000000
000000

5008:
5108:

.WORD
.WORD

SP TO NO ERROR RETURN

:ERROR FLAGS
*TEMPORARY STORAGE

mMmee

CZRMNAO RMO5/3/2 FCINL TST 2
MACRO v03.01 11-APR-80 13:17.48 PAGE 35-9
DATA TRANSFER COMMAND STATUS CHECK SUBROUTINE

NI NN —

MACRO v03.01
STAII( DRIVE STATUS CHECK SUBROUTINE

.SBTTL
:THIS

SEQ 022¢4

STATIC DRIVE STATUS CHECK SUBROUTINE
SUBROUTINE

LOOKS

FOR UNEXPECTED

CHANGES

IN DRIVE

= OO0~

;STATUS, SUCH AS THE DOPIVE 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.

:THE FOLLOWING CONDITIONS ARE TESTED AND REPORTED AS ERRORS

PORONININUND
ccd e
d b el s e e b

:1F

TRUE:

VNN

:THAT

WVNE WO 0DV

:
:
:
:

INDICATES DRIVE WENT OFFLINE, NOTE

ASSUMED

TO HAVE

BEEN

SET

.VV = 0, INDICATES THE DRIVE LOST VOLUME VALID
PIP = 1, INDICATES THAT THE DRIVE IS OFF CYLINDER
.SK1 = 1, INDICATES THE DRIVE HAS AN UNEXPECTED SK] ERROR
.DVC = 1, INDICATES AN UNEXPECTED DEVICE FAULT

:THE

SUBROUTINE

(D
:

JSR
BR
NOP
ERROR
JSR

CALLED

AFTER

PC,STCORVSTS
m

STORING

STATUS

THE

GET

BUFFER.

RETURN HERE IF NO ERROR
RETURN HERE TO REPOR1 AN ERROR
ERROR NUMBER DEFINED BY SUuB
GO BACK TO SUB FOR MORE ERROR CHE(CKS

PC.a(SP)+

;CLEAR USER'S ERROR CALL

062716
105076
162716

000004
000000
000004

34
35
36
37

056236
056242
056246
056252

013746
042716
022726
001524

001346
147677
010100

40
41
42
63
66
45
46
47
48
49

056254
056262
056264
056272
056276
056302
056310
056316
056322
056330

032737
001030
032737
001024
013737
052737
013737
062716
112776
162716

010000

001346

020000

001350

001346
010000

001140
001140

056344
056352

RETURN HERE

NO MORE ERRORS

STCDRVSTS:

30 056222
31 056226
32 056232

056334
056336
056342
056344

.MOL = 0,

MOL

26
27 056222

50
51
52
53
56
55
29

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

004736
162716
000240

032737
001030

001346

000004

000207
000002

ADD

CLR8B

;SEE

MOV

RMDS],-(SP)

;PUT

cMP

MOL!VV,(SP)+

;ARE MOL,vv AND PIP 0.K.??

AN ERROR

SP BACK

move
NOP

AN ERROR

Bl
BNE

DRIVE

TO NO ERROR RETURN

STATUS ON STA(CK

JYES!!

MOL = 0O AND ''OPI'' =

RMDS1,$GDDAT
#MOL
, $GODAT
RMDS T, $BODAT

SUB

+REPORT

MOV
BIS
MOV

JSR

001346

308

#MOL ,RMDS

SUB

1 0s:

#2C<PIP!MOL!VV>,
(SP)

BIT

ADD

000000

CALL

;CLEAR ERROR NUMBER

:MOVE

BNE
BIT
BNE

001142

SP TO USER'S ERROR

¥4, (SP)

BEQ
;REPORT

;MOVE

'MOL'" = ''vwv'' = 1, AND 'PIP" = 0

BI(C

000010

000100

sus

¥4, (SP)

a(SP)

;1S MOL ON ??

108
#OP] ,RMER1]
10$

JYES!!
IWAS "'OP1"* SET?2?
:YES-DONT REPORT "MOL'"

#207.3(sP)

:MOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER IN CALL

PC alSP)+

+REPORT

(SP)

#2.(SP)

VOLUME

;RECEIVED STATUS

+MOVE SP TO RETURN FOR ERROR

10, (sP)

#VV,RMDS|
20%

:EXPECTED STATUS

ERROR

VIA USER

;MOVE SP BACK TO NO ERROR RETURN

VALID

IS NOU ZERO AND *‘IVvC'" -

D18
:NO. '

= 0”2

—

CIZRMNAO RMO5/3/2 FCINL TST 2

9 056362

056364
056372
056400
056406
056412
056420
056424
056426
056432
056434

NI NNNNNNNNO~N
£t AN =
N =2 NN NN
OO0 O OO NNNS~N

58 056354

O—=O0O—=—=0O000000
OO
=0 —=WV—_20OW
ORI LPONINIINNIN
— P

CIRMNAO RMOS5/3/2 FCTNL TST 2
MACRO v03.01
STATIC DRIVE STATUS CHECK SUBROUTINE

001346
000100
001346
000004
000210
000002

001140
001346
001142

013746
062726
001460

056536
056544
056546
056254
056562
056570
056574
056602
056606
056610
056614
056616

032737
001424
013737
062737
013737
062716
112776
162716

004736

162716
000242

001346

040000

001376

001346
020000
001346
000004
000211
000002

001140
001140
001142

;REPORT

#VV,RMDS]

MOV
ADD

RMDS],$BODAT
¥, (SP)

SUB

#2,($P)

AN ERROR

001376

001376
000200
001376
000004
000212
000002

001140
001140
001142

BIC

#P1P,$GDDAT

RMDS1,$BODAT
4, (SP)

BEQ

BIT
BEQ
MOV
81C

N
LN AN

001140
001140
001142
000000

SRECEIVED STATUS
sMOVE SP TO USER'S ERROR CALL

010, (sp)

+MOVE SP TO NC ERROR RETURN

IIDVCOI

IN USER'S CALL

;MOVE SP TO RETURN FOR ERROR
sREPORT

ERROR

VIA USER

RMER21,
= (SP)
;PUT ERROR REG 2 ON STA(K
#AC<SKIIDVC>,
(SP)+
608
sBRANCH IF NO ERROR
THERE

#DVC,RMER2]
508
RMER21,$GDDAT
#DVC, SGDDAT

A DEVICE

FAULT

:zgYIDEVICE FAULT??

‘EXPECTED STATUS

Move
SUB

#212.a(sP)
#2,(SP)

¢MOVE SP TO USER'S CALL
;WRITE NUMBER OF ERROR IN CALL
+MOVE SP TO RETURN FOR ERROR

0, (sp)

:MOVE

SUB

JREPORT

TEXPECTED STATUS

RMERJ], SBODAT

ADD

50%:

SYES=DONT REPORT 'PIP'* =

MOV
JSR

001376
040000
001376
000004
000213

TWAS 'SKI'' SET??

sWRITE ERROR NUMBER

PC.R(SP)+

NOP

CYLINDER AND ‘'SKI'' = 0

:#8'?R1vs OFF CYLINDER??

#211,a(SP)
#2,(SP)

JREPORT AN ERROR If

000010

IS OFF

RMDSI,$GDDAT

MOVB
SUB
JSR

000000

DRIVE

#P1P,RMDSI]
308
#SK1,RMER2]
308

SUB

000200

IN CALL

;REPORT ERROR VIA USER
+MOVE SP BACK TO NO ERROR

0§, (sP)

ADD

40%:

:WRITE ERROR NUMBER

:MOVE SP TO RETURN FOR ERROR

BIT
BEQ
BIT
BNE

MOV
BIC

;RECEIVED STATUS
;MOVE SP TO USER'S ERROR (CALL

PC.a(SP)+

NOP

l.SKl..

;EXPECTED STATUS

#210,a(sp)

MOV

JSEE IF

JWAS Iv('' SET??
;YES=DONT REPORT "'vyv'' = 0

RMDS],$GODAT

MOV

000000

001376

N =

BIS

SUB

040000

OO NN~

#1VC,RMER2]
208

JSR

000010

:
308

056524
056530
056534
056536

BIT
BNE

move

000000

020000

SEQ 0225

MOV

000010

—OOO0O00O0O0
—_O =P OW
PRV
NN LN — N
NUNNNNS
N

e
el
il
D e
D e
e
e
e
el
e
e

et it et = OO OOOCOOOO o
B NN = O O®NO
NS Wt
o

056442
056444
056452
056454
056462
056470
056476
056502
056510
056514
056516
056522
056524

001376

20$:

056434

056616
056624
056626
056634
056642
056650
056654

010000

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

NOP

06, (SP)

PC.a(SP)+

AN ERROR IF ''SKI' = 1
BIT
#SK1,RMER2]
BEQ
608
MOV
RMER21,$GODAT
BIC
#SK1,8GDDAT

MOV

RMERS
], $BODAT

move

w213 a(sp)

ADD

(SP)

;RECEIVED STATUS

;REPORT ERROR VIA USER
SP BACK

TO NO ERROR

:#glyneae A SEEK INCOMPLETE ERROR

*EXPECTED STATUS
;RECEIVED STATUS

+MOVE SP TO USER'S ERROR (AL L
;WRITE ERROR NUMBER [N USER'S ERROR

(ALL

MACRO v03.01

STATIC DRIVE STATUS CHECK SUBROUTINE

115 056662
116 056666

162716
004736

118 056674

000240

117 056670

}58 056676
121
122 056676

123
124
125
126
127
128
}gg

056702
056706
056710
056714
056716
056722
056726

162716

062716
105776
001403
062716
000402
162716
000240
000207

H
2
11-APR-80 13:17:48 PAGE 36-2
SEQ 0226

000002

SUB
JSR

000010

SUB

608 :
(00004
000000

;AUGMENT

000004
000004

70%:
80$:

NOP

#2,(SP)
PC.a(SP)+

00, (sP)

THE RETURN ADDRESS If
ADD
4, (SP)
1STB
a($P)
BEQ
708
ADD
0, (SP)
BR
80§
SUB
#o, (SP)
NOP
RTS
PC

:MOVE SP TO RETURN FOR ERROR
:REPORT ERROR VIA USER

:MOVE SP BACK TO NO ERROR

ANY ERROR WAS DETECTED
:MOVE SP TO USER'S ERKOR CALL

*WAS AN ERROR DETECTED??
INO!!
SYES = MOVE SP TO USER'S ERROR RETURN
:NO - MOVE

SP TO NO ERROR RETURN

;RETURN TO USER

CIRMNAO RM05/3/2 FCINL TST 2

STOP AND SHUTDOWN SUBROUTINES

MACRO v03.01

;

.SBTTL

2 056726

STOP:

6 056726
056732
056736
056740
g 056740

9
10 056742
056746
056752
056754
}5 056754

13
14
15
16
17
18

056756
056762
056764
056770
056774
056776
057002

057024

012746
012746
€00002

64%:

001326

SHUT:

007764
000042

5%:

057004

19 057026

000137

032340

22 057034
52 057042

012737
000002

177777

S? 057030

SEQ 0227

STOP AND SHUTDOWN SUBROUTINES

MOv
MOV
RTI

;:65%:
64%:

005420

10%:
001326

SHUT2:

#PR3,-(SP)
¥64%,-(SP)

::PUT NEW PS ON STA(CK
::PUT NEW PC ON
STACK
;:POP NEW PC AND PS

NOP

;RAISE PRIORITY
MOV
MOV
RTI
65%:
RTS

000300
056754

000207
005737
001002
000137
005737
001015
104401
000410

;DROP PRIORITY TO ALLOW CONSOLE INTERRUPT

000140
056740

000240
012746
012746
000002

]

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

TST
BNE
JMP
1ST
BNE
TYPE
BR
(ASCIZ
JMP

TO INHIBIT CONSOLE INTERRUPT
#PRG, - (SP)
:sPUT NEW PS ON STA(CK
#65%,-(SP)
;:PUT NEW PC ON
STACK
;;POP NEW PC AND PS

s CONTINUE

CTLFG
;WAS CONTROL C FLAGGED ?
5%
;BR IF YES
READY
s CONTINUE
G2
sANY MONITOR PRESENT ?
10$
:BR IF YES
,65%
;:TYPE ASCIZ STRING
649
;.GET OVER THE ASCIZ
<CRLF><O7>/TEST HALTED/<CRLF>
START

:GO TO START

JMP

$EOP

;RETURN CONTROL TO MON]TOR

MOV
RTI

#-1,0TLFG

;SET THE CONTROL-C FLAG
;EXIT FROM INTERRUPT

—

CZRMNAO RM05/3/2 FCTNL TST 2

CIZRMNAO RM0S5/3/2 FCTNL TST 2

SAVE AND RESTORE RO-R5 ROUTINES

MACRO v03.01

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

.SBTTL

SEQ 0228

SAVE AND RESTORE RO-R5 ROUTINES

t'lti"'.'t"i'.""'f"t"'"'.t."'t"'t"""'.'"Q."'"tt'

'SAVE RO-RS

s*CALL:

SAVREG

:*UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
. ¥

;2 TOP===(4+16)

;¥ 42--=(+18)

;% $4==<R5
x

+b=-==R¢

;% +8--=R}3

;*410---R?
;*+12--=R1
;*+14---R0

057046
0570446
057046
057050
057052
057054
057056
057060
057064
057070
057074
057100

$SAVREG:

000022
000022
000022
000022

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTI

RO, =(SP)
R1,-(SP)

;;PUSH
J:PUSH
:;PUSH
;sPUSH
::PUSH
:;PUSH

J:SAVE
;:SAVE
::SAVE
;s SAVE

RO
R1
R2
R3
R&
RS

PS
PC
PS
PC

ON STA(CK
ON STACK
ON STACK
STACK
ON STACK
ON STACK
OF MAIN FLOW
OF MAIN FLOW
OF CALL
OF CALL

000002

.SBTTL

NUVNVUVITVWNW

: :RESTORE
; :RESTORE
: ;RESTORE
;sRESTORE

VMOV UVOVVOVOVOOO

NNNN~
o~

MOv
MOv
Mov
MOV
MOv
MOV
MOV
MOV
MOv
MOV
RTI

SRESREG

NNV

VAWM

000022
000022
000022
000022

NN L

j=lelelololelelolalalwls]

:*RESTORE RO-R5
'CALL
RESREG

PC OF
PS OF
PC OF

PS OF

CALL
CALL
MAIN FLOW
MAIN FLOW

J:POP STACK INTO RS
;.POP STACK INTO R4
s :POP STACK INTO R3

INTO R2
INTO R1
;;POP STACK INTO RO

J.POP STACK
:sPOP STACK

BINARY TO ASCIT

AND TYPE ROUTINE

;:l"t'l.lt.t"t"t"'tti""t'i.ll'ttttltttt'it.t'tltttttltltttt

;*THIS ROUTINE

:*BINARY=-ASC1]

OO0

(L IV

swCALL:
MOV
o

010146
016601
000261

000006

TYPBN

$STYPBN:

MOV
MOv

SEC

!5 USED

TO CHANGE

NUMBER AND TYPE

IT.

16-BIT

BINARY NUMBER

NUMBER,
- (SP)

:NUMBER TO BE TYPED
S.TYPE 1T

R1.- P)
6(SP) R1

;. SAVE R1 ON THE STACK
;.GET THE INPUT NUMBER

10 A

16-BI1T

;oSET ("' SO CAN KEEP TRACK OF

THE NUMBER OF BILTS

CZRMNAO RMO5/3/2 FCTINL TST 2

BINARY 10 ASCIlI

AND TYPE ROUTINE

057150
057156
057160
057162

112737
006101
001406
105537

057172
057174

000241
000765

057166

057176
057200
057206
057210
057212

104401

012601
016666
012616
000002
000

000060

MACRO v03.01

057212

K
2
11-APR-80 13:17:48 PAGE 38-1

1%:

057212
057212

000002

MOVB
ROL
BEQ
ADCB

#'0,$BIN
R1
28
$BIN

TYPE

000004

000

28:

$BIN:

.SBTTL

::SET CHARACTER TO AN ASCII *'0''.
2:GET THIS BIT
::DONE?
::NO=-=SET THE CHARACTER EQUAL TO THIS BIT

,$BIN

cLC
BR

1260 TYPE THIS BIT

1%
(SP)+,R1
2(SP),4(SP)
(SP)+, (SP)

MOV
MOV
MOV
RT]
.BYTE

SEQ 0229

0,0

::CLEAR ""C'' SO CAN KEEP TRACK OF BITS
1260 DO THE NEXT BIT
::POP THE STACK INTO R1
:ADJUST THE STACK

;:RETURN TO USER
::STORAGE FOR ASCIl CHAR. AND TERMINATOR

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

t.t"tt...'tt'it"""""'t'.t't't".t.t't'tl'tt.fi't"'.t'ttt'

-rnxs ROUTINE

IS USED TO CHANGE

:«SIGNED DECIMAL

(ASCII)

16-BIT BINARY NUMBER

NUMBER AND TYPE

IT.

TO A

5-DIGIT

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
:'?EPLACED WITH SPACES.

s*CALL:

e
B

214

057214

010046

057220

010246

057216

010146

057222
0572264

010346
010546

057232
057236
057240
057242
057250
057252

016605
100004
005405
112766
005000
012703

057262
0572664
057270
057272
0572764
057276
057300
057302
057304
057306

005002
016001
160105
002402
005202
000774
060105
005702
001002
105716

057226

057256

057310
057312
057314
057316

012746

112723

100407
106316
103003
116663

057326

052702

057336

005720

057330
057334
057340

$TYPDS:

052702
110223
020027

MOV
TYPDS

NUM, - (SP)

::PUT THE BINARY NUMBER ON
;.60 TO THE ROUTINE

MOV

RO,=-(SP)

::PUSH RO ON STACK

MOV

R2.=-(SP)

1:PUSH R2 ON STACK

MOV

MOV
MOV

020200

000020
000055

000001

057430

000040

1$:
2%:

057420

000001

000060
000040

000010

177777

68 :
7% :

RY.-(SP)

::PUSH R3 ON STACK
*:PUSH RS ON STACK

20(SP) .RS
%
RS
#'-,1(SP)
RO
#$DBLK ,R3

::GET THE INPUT NUMBER
::BR IF INPUT IS POS.
:MAKE THE BINARY NUMBER POS.
::MAKE THE ASCI] NUMBER NEG.
::2ERO THE CONSTANTS INDEX
{:SETUP THE OUTPUT POINTER

R2
$DTBL(RO) ,R1
R1,RS
4%
R2
38
R1.RS
R2
5¢
(SP)

1:CLEAR THE BCD NUMBER
P:GET THE CONSTANT
::FORM THIS BCD DIGIT
::BR IF DONE
: - INCREASE THE BCD DIGIT BY

#20200, - (SP)

MOVB

#' ,(R%)+

CLR
MOV
SUB
BLT
INC
BR
ADD
ST
BNE
TSTB

STACK

::PUSH R1 ON STACK

R3.=(SP)
RS, ~(SP)

MOV

MOV
BPL
NEG
MOVB
CLR
MOV

THE

::SET BLANK SWITCH AND SIGN

2*SET THE FIRST CHARACTER 10 A BLANK

BM]
ASLB
BCC
MOVB

7%
(SP)
6%
1(SP;,-1(R3)

;:ADD BACK THE CONSTANT
:CHECK IF BCD DIGIT=0
S:FALL THROUGH IF 0
$:STILL DOING LEADING 0'S?
::BR IF YES
SIMSD?
$:BR IF NO
SSYES=-SET THE SIGN

BIS
MOVB

0 OR2
R2,(R3)+

S:MAKE IT A SPACE 1F NOT ALREADY A DIGIT
1:PUT THIS CHARACTER IN THE OUTPUT BUFFER

(MP

RO,#10

BIS

#'0,R2

(RO) +

::MAKE THE BCD DIGIT ASCII

2:JUST INCREMENTING
P:CHECK THE TABLE

INDEX

CZRMNAO RMO5/372 FCINL TST 2
MACRO v03.01
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

057344
057346
057350
057352
05735&
057356
057360

002746
003002
010502
000764
105726
100003
116663

057370
057372
057374
057376
057400

012605
012603
012602
012601
012600

057366

057402
057406

057414
0576416
057420
057422
057424
0576426
057430

105013

106401
016666

012616
000002
023420
001750
000144
000012

8$:
177777

057430
000002

177776

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

98 :

BLT
BGT
MOV
BR
TSTB
BPL
MOVB

28
8$
RS,R2
6%
(SP)+
9%
-1(SP),-2(R3)

::60 DO THE NEXT DIGIT
1160 TO EXIT
PIGET THE LSD
1160 CHANGE TO ASCII
;iWAS THE LSD THE FIRST NON-ZERO?
:BR IF NO
,,ves--ser THE SIGN FOR TYPING

MOV
MOV
MOV
MOV
MOV

(SP)+,RS
(SP)+.R3
(SP)+.R2
(SP) ¢ .R1
(SP)+.RO

1:POP
1 POP
*:POP
2:POP
::POP

CLRB

TYPE
MOV

000004
$DTBL:

SEQ 0230

MOV
RTI

(R3)

$DBLK
S(SP),4(SP)
(SP)+. (SP)

*SET THE TERMINATOR
STACK
STACK
STACK
STACK
STACK

INTO
INTO
INTO
INTO
INTO

RS
R3
R2
R1
RO

S NOW TYPE THE NUMBER
*:ADJUST THE STACK

::RETURN TO USER

10000.
1000.

$DBLK:

100.
10.
.BLKW

.SBTTL

BINARY

&
TO OCTAL

(ASCIl)

AND

TYPE

:,'titttt'tttt'.t'tt't"t.tt'ti'tttttt'tt'ttt'tttittt"ttttttttttl

:*THIS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER T0 A 6-DIGIT

2+OCTAL (ASCII) NUMBER AND TYPE IT.
-g;vpos---s~1en HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF
se(CALL:

MOV

NUM, - (SP)

.BYTE

TYPOS

BYTE

1iM=1

FOR

OR 0

DIGITS TO TYPE

::1=TYPE

LEADING

THE

PARAMETERS AS

ZEROS

;;0=SUPPRESS LEADING Z2EROS

;*STYPON-=-=-=-ENTER HERE

;*$STYPOS OR $TYPOC

TYPEOUT

T0 6 FOR NUMBER OF

.¥

;vCALL:
o ”
ot

MOV
TYPON

TO TYPE

NUM,-(SP)

OUT

WITH

SAME

; :NUMBER TO BE TYPED
;:CALL FOR TYPEOUT

;~%vaoc---e~rea HERE FOR TYPEOUT OF A 16 BIT NUMBER
soCALL:

057440
0576446
057452

017646
116637
112637

057462

000406

057456

057466
057472
057500
057506
057510

062716
112737
112737
112737
010346
010446

000000
000001
057665

057663

000002

000001
000006
000005

MOV

TYPOC

$TYPOS: MOV
MOVB
MOVB

ADD

057663
057665
057662

TO TYPE

: :NUMBER TO BE TYPED

*:CALL

2:N=1

DIGITS

B8R

$TYPOC: MOVB
MOVB
S$TYPON: MOVB
MOV
MOV

NUM, = (SP)

: :NUMBER TO BE TYPED

3(SP),=(SP)
1(SP),$OFILL
(SP)+,$0MODC+1

;:PICKUP THE MODE
::LOAD ZERO FILL SWITCH
::NUMBER OF DIGITS TO TYPE

*:CALL

FOR

TYPEOUT

#2,(SP)

:ADJUST RETURN ADDRESS

#1,$0FILL
#6.S$OMODE
+1
#5.$OCNT
R3.-(SP)
R&.=(SP)

::SET THE ZERO FILL SWITCH
PSSET FOR SIX(6) DIGITS
*:SET THE T1TERATION COUNT
SiSAVE R3
iSAVE Ré

$TYPON

THE

LAST

CZRMNAQ RM0S5/3/2 FCTINL TST 2

BINARY TO OCTAL

(ASCI1)

057512
057514
057520
057522
057526
057532
057536
057542
057546
057546

057550
057552
057554
057556

010546
113704
005404
062704
110437
113704
016605
005003
006105
000404
006105
006105
006105
010503

057562
057566
057570
057574
057576
057600
057602
057604
057610
057614
057620
057624
057630
057632
057634
057636
057640
057642
057644
057646
057654
057656
057660
057661
057662
057663
057664

105337
100016
042703
001002
005704
001403
005204
052703
052703
110337
104401
10532
003347
002402
005204
000744
012605
012604
012603
016666
012616
000002
000
000
000
000
000000

057560

006103

AND TYPE

MACRO v03.01

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

MOV
movB
NEG
ADD
MOVB
MOovB
MOV
CLR
ROL
BR
ROL
ROL
ROL
MOV

057665
000006
057664
057663
000012
1%:
2%:

3s:

057664
177770

000060
000040
057660
(57660
(057662

000002

000004

ROL

RS5,=-(SP)
$OMODE+1,R4
R&
#6,R4
R4 ,$OMODE
$OFILL,RG
12(SP),RS
R
RS
1%

RS
RS
RS
RS,R3

DECB
$OMODE
BPL
7%
BIC
#177770,R3
BNE
A 3
ST
R&
BEQ
5%
A ¥
INC
R4
BIS
#'0,R3
5%:
BIS
# ,R3
MOv8
R3,8%
TYPE
,8%
7%:
DECB
$OCNT
BGT
2%
BLT
6%
INC
R4
B8R
2%
6%:
MOV
(SP)+,RS
MOV
(SP)+,R4
MOV
(SP)+,R3
MOV
2(SP),4(SP)
MOV
(SP)+, (SP)
RT]
8%:
.BYTE
0
.BYTE
0
$OCNT:
.BYTE
0
$OFILL: .BYTE
0
$SOMODE: .WORD
0
LSBTTL
TYPE ROUTINE

SEQ 0231

;SAVE RS
J;0ET THE NUMBER Of DiGi.”

°. °

JsSUBTRACT 1T FOR MAX. ALLOwED
:SAVE IT FOR USE
J:GET THE ZERO FlLL SwiT(w
.PICKUP THE INPUT NUMBER
;s CLEAR THE 0UTPUT wORD
;;ROTATE MSB INTO ('
;.60 DO MSB
;:FORM THIS DIGIY

;:GET LSB OF

THIS DIGIT

;. TYPE THIS DIGIT?
;B8R 1F NO
::GET RID OF JUNK
J;TEST FOR O
;s SUPPRESS THIS 0?
;sBR IF YES
;;DON'T SUPPRESS ANYMORE 0°'S
;sMAKE TH]IS DIGIT ASCII
ssMAKE ASCII IF NOT ALREADY
;:SAVE FOR TYPING
;.60 TYPE THIS DIGIT
::;COUNT BY 1
;sBR IF MORE 10 DO
J:BR IF DONE
;o INSURE LAST DIGIT ISN'T A BLANK
;.60 DO THE LAST DIGIT
J:RESTORE RS
;;RESTORE R4
JJRESTORE R3
:;SET THE STACK FOR RETURNING
::RETURN
;. STORAGE FOR ASCII DIGIT
;:TERMINATOR FOR TYPE ROUTINE
ssO0CTAL DIGIT COUNTER
J;lERO FILL SWITCH
s +NUMBER OF DIGITS TO TYPE

":tlt'.lt"..l.tt"'"t"""t"."it""lt...t"it".l'l't""llt

;*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.
;*THE

ROUTINE

;*NOTE):

;*NOTE?2:

WILL

INSERT

A NUMBER OF

SNULL CONTAINS THE

NuLL

CHARACTERS AFTER A LINE

FEED.

CHARACTER TO BE USED AS THE FILLER CHARACTER,

$SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.

J*NOTE3:

$SFILLC CONTAINS THE CHARACTER TO FILL AFTER.

. ¥

s*CALL:

:*Y) USING A TRAP INSTRUCTION
;e R

TYPE

o
.t

TYPE
MESADR

:*0

LMESADR

JsMESADR

FIRST

ADDRESS OF

AN ASCIZ

STRING

CZRMNAQ RM05/3/2 FCTNL TST 2

TYPE ROUTINE

105737
2

MACRO v03.01 11-APR-80 13:17:48 PAGEN 3%-4

001173

$TYPE:

—‘NONN\J\—'S—‘NOI‘O—‘N
&»

QOOO0OOC
OWE NIV
NN NNWN

003

1%:

000002
000001

001242

000100

001243

057736
062660
000040

001243

61%:

000002

60%:
38

000011

4%:

000200

060216
5%:
6%:

060100
001172

001170
000001

7%:

060100
060216

OO0O0O—O—

000040
060100
000007

=S OO —=—=

121054

060216

ADD
RTI

CMPB
BEQ
(M-8
BNE
IS8T
TYPE
$CRLF
CLRB
BR
JSR
(MPB
BNE

8%:
9%:

000023

$TYPEC:

NO TERMINAL

(SP)+

::POP_ <CR><LF> EQUIV
;. TYPE A CR AND LF

$CHARCNT

;:CLEAR CHARACTER COUNT
¢:GET NEXT CHARACTER
::G0 TYPE THIS CHARACTER
;:1S 1T TIME FOR FILLER CHARS.?
;o1F NO GO GET NEXT CHAR.
:;GET & OF FILLER CHARS. NEEDED

PC,8TYPEC
$FILLC,(SP)+

1(SP)
69
PC,STYPEC
SCHARCNT
78

;sAND THE NULL CHAR.

+.DOES A NULL NEED TO BE TYPED?
;:BR IF NO--GO POP THE NULL OFF OF
::060 TYPE A NULL
:.DO NOT COUNT AS A COUNT
.. LOOP

STACK

TAB PROCESSOR

¥, (SP)
PC.STYPEC

JSR
BI1B
BNE

#7,8CHARCNT
9%

1518
BPL

asTKs
108
a$TKB,~ (SP)

BIC
(mMPB

. ;BRANCH JF NOT <CRLF>

DECB
BLY
JSR
DECB
BR

MOV

ssHALT HERE

#CRLF, (SP)

$NULL,-(SP)

MOvB

;1S THERE A TERMINAL?
sBR IF YES

s sLEAVE
RO,=(SP)
:sSAVE RO
a2(sP),RO
;3GET ADDRESS OF ASCIZ STRING
FAPTENV,SENV
s sRUNNING IN APT MODE
629
:iNO,GO CHECK FOR APT CONSOLE
#APTSPOOL, SENVM ::SPOOL MESSAGE TO APT
62%
::NO,GO CHECK FOR CONSOLE
RO,61$
:sSETUP MESSAGE ADDRESS FOR APT
PC,S8ATY3
;s SPOOL MESSAGE T0 APT
0
s JMESSAGE ADDRESS
FAPTCSUP,SENVM
:sAPT CONSOLE SUPPRESSED
60%
s YES,SKIP TYPE QUT
(RO)+,=(SP)
;sPUSH CHARACTER TO BE TYPED ONTO STA(CK
49
J:BR IF IT ISN'T THE TERMINATOR
(SP)+
;:1F TERMINATOR POP IT OFF THE STACK
(SP)+,RO
J:RESTORE RO
#2,(SP)
2 ;ADJUST RETURN PC
:JRETURN
#HT, (SP)
J:BRANCH IF <HT>

MOV

TST

121050
177600

CmMPB
BNE
BITB
BEQ
MOV
JSR
.WORD
BlT8
BNE
MOvB
BNE
TST
MOv

;HOR]ZONTAL

060054
(60060
060064
060072
060074
060076
060100
060100
060104
060106
060112
060116

S$TPFLG
1%

MOov
MOv

2%:

OO0—O0O0-O—=O00—0O0—-0DTVOO0—-O—=0O0000—=O

060034
060040
060042
060046
060052

~ONOOOOOOON ONOUN =00 ~=0OWOO—-=0OWO
(N NSOV
SN N
NNNNNONI
S NO N

060030

O—=00—=

== OOO

15718

BPL
HALT
BR

Fa 0232

(SP)+

0177600, (5P)
¥$XOFF
, (SP)

s ;REPLACE TAB WITH SPACE

.. TYPE A SPACE

::BRANCH IF NOT AT
;. TAB STOP

. :POP SPACE OFF STACK
¢.GET NEXT CHARACTER
;;CHAR IN KYBD BUFFER?
;:BR JF NOT

:.6ET CHAR
;STRIP EXTRANEOUS BITS
2 WAS CHAR XOFF

06)122
06124
06 124
06,130
060132
060136
050162

001012
105777

101$:

121030
121026
177600

102%

;.BR IF NOT

1STB
BPL

asTKS

J:WALIT

38 TKB, (SP)

::GET CHAR
:.STRIP 1T

101$

MOvB

0177600, (SP)

#SXON, ($P)
102%:

050152
000152

10$:

121006

060156
160160
060166

000002
000015

260174
060176
J60202
o206

121000

000002

18:

(mMPB

INCB
$CHARCN
: .WORD
T
$TYPEX: RTS

000207

J:WAS

.SBTTL

FOR (HAR

XON?

101

;B8R

(SP)+

s FIX STACK

a8TPS
10%

;WAIT UNTIL PRINTER IS READY

2(SP),as1PB

000002

060216
000012

SEQ 0233

BNE

000021

050146
050150
050150

160212
J60214
060216
060220

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

IF NOT

;:LOAD CHAR TO BE TYPED INTO DATA REG.
;. 1S CHARACTER A CARRIAGE RETURN?

#CR,2(SP)
1%
SCHARCNT
STYPEX
#LF,2(SP)
STYPEX
(PC)+

:;BRANCH

;:EE?F-CLEAR CHARACTER COUNT
. 1S CHARACTER A LINE FEED?

; :BRANCH

YES

;. COUNT THE CHARACTER
. CHARACTER COUNT STORAGE

SCOPE HANDLER ROUTINE

LIy
R
R R R RN R
R
Ry

'YHlS ROUTINE
'AND LOAD THE
;'AND LOAD THE

*THE

SWITCH

OPTIONS

J*SWI6=]

:'
060222
060222
060224
060230
060236

:
$SCOPE

056726
040000
000416

060242
060246
060254
060260
060264
060266

013746
012737
005737
012637
000500
022626
012637
000440

000004
060266
177060
000004

032777

000400

001e¢1

1$:

SCOPE
(KSWR
JSR
8l17
BNE

SMNARASTART

060240

060270
060274
060276
060276
060304

120716

$XTSTR:

TST
MOV

5%:

000004
10657

MOV
MOV

000004

PROVIDED BY

LOOP ON
INHIBIT
LOOP ON
LOOP ON

-su11 1
-SU09 1
-SUOS 1
seCALL

CONTROLS THE LOOPING OF SUBTESTS. 1T WILL INCREMENT
TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
ERROR FLAG (SERFLG) INTO DISPLAY<15:08>

ROUTINE

ARE:

; +SCOPE=107

;. TEST

PC,STOP

MBIT14,aSWR
$OVER

CODE

FOR

THE

XOR

an1 #7060

(SP)¢,@NERRVEC

$SVLAD

B8R

FOR CHANGE IN SOFT-SWR

..LOOP ON PRESENT TEST?

SF#ERRVEC,~(SP)
#5$ QNERRVEC

BR
(MpP

MOV

THIS

TEST
JTERATIONS
ERROR
TEST IN SWR<7:0>

(SP)+, (SP)+
(SP)¢.3MERRVEC

JYES IF SWl4=1
TESTERMANAN

;s
1F RUNNING ON THE "'XOR'' TESTER (HANGE
::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

1260 TO THE NEXT TEST

S:CLEAR THE STACK AFTER A TIME
::RESTORE THE ERROR VECTOR

::LOOP ON THE PRESENT

68 : . NANENEND OF CODE FOR THE XOR TESTERNNNNN
#B1108,3SWR
::LOOP ON SPEC.
8I1
2%
J:;BR IF NO
8tQ

TEST?

TEST
\

OUT

CIRMNAQ RM(>/3/2 FCTNL TST 2

TYPE ROUTINE

J:CLEAR A TEMP, LOCATION
JsPICKUP THE DESIRED TEST NUMBER

ssBRANCH [F BAD TEST NUMBER IN SWR

JCHECK THE NUMBER IN THE SWR
;;BRANCH JF TEST NUMBER IS OUT OF RANGE
;sUPDATE THE TEST NUMBER

;;BACKUP BY ONE
JsSCALE THE TEST NUMBER AS AN INDEX
;;FORM THE

ADDRESS OF

TEST

POINTER

2sSET LOOP ADDRESS TO DESIRED TEST
;.60 LOG® ON THE TEST
;;CLEAN THE BAD TEST NUMBER OFF OF THE STACK

J.HAS AN ERROR QCCURRED?

;i8R IF NO
;;MAX,

ERRORS

FOR

THIS

;:BR IF NO
;. LOOP ON ERROR?
;:BR

TEST

OCCURRED?

2sSET LOOP ADDRESS TO LAST SCOPE
;;JERO THE ERROR FLAG
:CLEAR THE NUMBER OF ITERATIONS TO MAKE
;.ESCAPE TO THE NEXT TEST
::INHIBIT ITERATIONS?
;BR IF YES
sIF FIRST PASS OF PROGRAM
X
INRIBIT JTERATIONS

:INCREMENT

ITERATION COUNT

..CHECK THE NUMBER OF ITERATIONS MADE
;:BR 1F MORE ITERATION REQUIRED
;sREINITIALIZE THE ITERATION COUNTER
;:SET NUMBER OF ]TERATIONS TO DO
:COUNT TEST NUMBERS
:oSET TEST NUMBER IN APT MA]LBOX

;;SAVE

SCOPE LOOP ADDRESS

sMAX.

NUMBER OF

::SAVE ERROR LOOP ADDRESS
::CLEAR THE ESCAPE FROM ERROR ADDRESS
:;ONLY ALLOW ONE(1) ERROR ON NEXT TEST
:.DISPLAY TEST NUMBER
:;FUDGE RETURN ADDRESS
. FIXES PS
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF
OF

;s STARTING ADORESS OF
:STARTING ADDRESS UF

TESY
TEST
TEST
TEST
TEST
TEST
TEST
TESYT
TEST
TEST
TEST
TEST
TEST
TEST

g C NI B AP

ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS

s
]

: cSTARTING
:sSTARTING
:sSTARTING
s STARTING
:sSTARTING
;s STARTING
::STARTING
;s STARTING
: sSTARTING
: sSTARTING
: s STARTING
:;STARTING

JTERATIONS

b
_Tanl

SEQ 0234

— el el il sl il
[+ XV P BV T VI

—d
)

S @
e SMNMNIMNIMNNIMNNNY
V1, T, 81,8 1,¥], 91,V

P
W

.WORD
.WORD
.WORD
.WORD

SMX(NT: 10.
$SWOBTBL:
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

$SOVER:

)

(LR

mMove
MOV
MOV
RTI

]

120426

INCB

MovB
MOV
MOV

#1,S1CNT
SMXCNT STIMES
STSTNM
STSTNM,STESTN
(SP) ,SLPADR
(SP) ,SLPERR
S$ESCAPE
#1,SERMAX
STSTNM SDISPLAY
SLPADR, (SP)

)

00113

$SVLAD:

MOV
MOV

]

001226

18:

STIMES,SICNT
SOVER

e
e
e
B
R
T

001120
001206

001120

)

OOWWNIWV—
NNl
OO NNNOOO NN~
= OO ==
Lt L W W L
L
NNNNNNNNNNN

002024

001120
001206

)

001230

120526

BR
CLRB
CLR
B8R
BIT
BNE
TST
8tQ
INC
CMpP
BGE

B R
e b T
VP L VT, SV F PV
)
VBN
¢ ¢ ¢ ¢ ¢ ¢+ &

MOV

e |

7$:

#B1709,aSuWR
63
SLPERR,SLPADR
$OVER
SERFLG
STIMES
1%
#BIT11,aSwWR
1%
SPASS
1%
$ICNT

001122

gERHAX.SERFLG

00112¢

120560

(SP)+

SERFLG

001000

8(SP)+ SLPADR
$OVER

001117

BEQ
(MPB
BHI
BIT
BEQ

(SP),$TSTNM
(SP)
(SP)
#$SWOBTBL,
(SP)

001131

1518

8%:
2%:

BR
ST

#33,(sP)

ADD
MOV

DEC
ASL

=(SP)

aSWR, (SP)

e R

060540

004000

QONOWVE
S W —=2O000
N =0 AU AN N Ny =t et AN NN
—
O NO S VU NDOD S OO —Ww
OO & OMNPININIMNLO
B NON)

060566
060570
060572

MOv

001117
001206

060540
060540
060542
060544
060546
060550
060552
060554
060556
060560
060562
060564

001116

001117

060404
060406
060412
060416
060420
060426
060430
060634
060436

060536

BEQ
(MP
BLT

001122

060376

060466
060472
060500
060504
060510
060514
060522
060530
060534

mMOv8

000033

060364
060366
060374

060442
060450
060452
060460

CLR

120640

060306
060310
060314
060316
060322
060324
060330
060332
060334
060340
060344
060346
060350
060354
060356

SCOPE MANDLER ROUTINE

MACRO v03.01 11-APR-80 13:17:48 PAGEC Sg-b

wnunNnunnNnUVnnNnVvnnnnnnwn

CIRMNAQ RM0S5/3/2 FCTINL TST 2

- O NO NN S BB NNN) —
N = NN = OO
W
— BNV
O N — = O
OO
NNESsNO SO0 N

ST T N T VT VT T

T, VT

[olelelolelolelalelolelele]

060624

.WORD
.WORD
.WORD
.WORD
.WORD

[(WITVET N

06057¢
060576
060600
060602
060604
060606
060610
060612
060614
060616
060620
060622

11-APR-80 13:17:48 PAGE

TV}

SCOPE HANDLER ROUTINE

MACRO v03.01

.SBTTL

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

38-7

1S117+2
1572042

SEQ 0235

:sSTARTING ADDRESS OF
;;STARTING ADDRESS OF

TEST
TEST
::STARTING ADDRESS OF TEST
;;STARTING ADDRESS OF TEST
:sSTARTING ADDRESS OF TEST
:sSTARTING ADDRESS OF TEST
+:STARTING ADDRESS OF TEST
;. STARTING ADDRESS OF TEST
;:STARTING ADDRESS OF TEST
:;STARTING ADDRESS OF TEST
;s STARTING ADDRESS OF TEST
:sSTARTING ADDRESS OF TEST

1512142
1572242
1572342
1572442
1572542

1572642
1572742
1573042
1573142
1573242

TST733+2

17
20
21
22
23
24
25
26
27
30
31
32

;s STARTING ADDRESS OF TEST 33

ERROR WA NOLER ROUTINE

"""Q"'"."""""""'"""."""..'."t'."".""""t"'

:*THIS ROUTINE

WILL

INCREMENT

THE

ERROR

FLAG AND

;*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF

¢*AND GO TO ERRTYP ON ERROR
:*THE SWITCH OPTIONS PROVIDED BY
;*SW15=1
HALT ON ERROR

;eSW13=1
;eSW10=1
;*SW09=1
JeCALL
a2

060626
060626
060630
060634
060636
060644
060652
067654
060660
060664
060670
060676
060704
060712
060714
060720
060724
060724
060732
060734
060742
060746

060747
060750
060752
060756
060760
060762
060764
060772

$ERROR:

(VARRN

7%:

001116
002000
001212
001126
001132
000002
120230
020000

001132
001130
120242

032550
001217
122737

001007

113737

004737

000001

001242

001130
062670

060746

001000

(KSWR
INCB
BEQ

22%:
2%

120162

(OUNT,

ARE:

: ERROR=EMT

AND N=ERROR

]TEM NUMBER

ssTEST FOR CHANGE [N SOFT-SWR

BIT
BEQ

SERFLG
7%
STSTNM, aDISPLAY
#B1710,a5WR
1%

JoSET THE ERROR FLAG
J:DON'T LET THE FLAG GO TQ 2ERO
;;DISPLAY TEST NUMBER AND ERROR FLAG
J.BELL ON ERROR?
;N0 - SK]P

INC

SERTTL

;o COUNT

BIT

OSERRPC,SITEMB
#BIT13,3SWR

TYPE

20%
PC,ERRTYP
LOCRLF

;;STRIP AND SAVE THE ERROR
J:SKIP TYPEOQUT IF SET

(MPB

SAPTENV,SENV

;;RUNNING

MovB8

$I1TEMB,21%

oSET 1TEM NUMBERP AS ERROR NUMBER

TYPE

MOV
SuUB
MOvVB

BNE

21%:

120176

001402

ERROR

BNE
JSR

20%:

ROUTINE

ERROR

INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR

MOV

1%:

THIS

THE

THE ERROR CALL

JSR
.BYTE
.BYTE
BR

187
B8PL
HALT
(KSWR

817
BEQ

LSBELL

(SP) ,$ERRP(
#2,3ERRPC

8(,$ATYL

JsRING BELL
;:GET

THE NUMBER OF

ADDRESS OF

[TEM (ODE

IN APT MODE

;;REPORT

FATAL ERROR 10 APT

:sSKIP JF

#B1109,a5WR

INSTRuUCT]ON

;sNO,SKIP APT ERROR REPORT

;:APT ERROR LOOP

ERRORS

21SKIP TYPEOQUTS
;.60 TO USER ERROR ROUTINE

0
22%

FRYL

ERROR

;:HALT

ON ERROR

CONTINUE

JsHALT ON ERROR!
JoTEST FOR (MANGE IN SOFT1-SWR
;.LO00P ON ERROR SWIT(M SET?
;:BR

CIRMNAO RMO5/37/2 FCTNL TST 2

CIRMNAQ RMOS5/3/2 FCINL TST 2
ERROR HANDLER ROUTINE

MACRO v03.01

001124
001210

000042

MOV

SESCAPE, (SP)

(MP
BNE

.SBTTL

RTI]

TTy

38-8

#SENDAD ,a#42

HALT

:
6%

000002

SLPERR, (SP)
SESCAPE

BEQ

5%:

13:17:48 PAGE

187

MOV

001210

032530

11-APR-80

INPUT ROUTINE

SEQ 0236

;FUDGE RETURN FOR LOOPING
;sCHECK FOR AN ESCAPE ADDRESS
;:BR ]F NONE

;;FUDGE RETURN ADDRESS FOR ESCAPE
JsACT=11 AUTO-ACCEPT?
; sBRANCH [F NO
JIVES
s sRETURN

061026
061030
061032
061034

.ENABL
LSB
$TKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD
$TKQSRT: .BLKB
$TKQEND=.
.EVEN

000000
000000
000000
061035

—-O0O0O0

:;.""""Q"""""""""".'l."".".""l""""..'"'1'

. -NUMBER OF

JTEMS IN QUEUE

;s INPUT POINTER
+:OUTPUT POINTER

;. TTY

KEYBOARD

QUEUE

;*TK INJTIALIZE ROUTINE
¢*THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE
¢*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD [NTERRUPT

;'CALL:
"

NNNNNNNN

061036
061042
061050
061056
061064
061072
061076
061104

=l=l=lolelelol]
Qt O e et et e O
ONIVNRAU
NI NN N
NI NNNNVNO
O N NN N N NN

061026
061034
061030
061106
000200

061030
061032
000060
000062

000100

120056

120064

$TKINT:

:*TK

JSR

PC,STKINT

(LR

$TKCNT
#STKQSRY,$TKQIN
$TKQIN,$TKQOUT
#STXKSRY,a#TKVEC

RETURN

MOv
MOV
MOv
MOV
1ST
MOV
R1S

SERVICE

#200,30TKVEC+2
937kB
#100,a87xsS

;. CLEAR COUNT OF JTEMS IN QUEUE
;.MOVE THE STARTING ADDRESS OF THE
:;QUEUE INTO THE INPUT & OUTPUT POINTERS.
s INITIALIZE THE KEYBOARD VECTOR
:s"BR' LEVEL &
;. CLEAR DONE FLAG
J;ENABLE TTY KEYBOARD INTERRUPT
JsRETURN TO CALLER

ROUTINE

;*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
;*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
;1T IN THE QUEUE.

—h

AN B B
M PO
— — O
COONO SO~V
NO

—

i
el

=l
il

=l
)

)

]
il

il
—

)

cad

[slelelelolelelelelelole]
oococoooco0coococoo

;*]F THE CHARACTER IS A "'CONTROL-C'' (*C) STKINT IS CALLED AND
;*UPON RETURN EXIT IS MADE TO THE ''CONTROL-C'' RESTART ADDRESS (SHUT?)
117746

042716
021627
001007
104401

004737
005726
000137
021627
001004
022737
001500

120050

$TKSRvV:

177600

000003
062222
061036

TYPE
JSR
187

057034
000007
000176

MOVB
81C
cMP
BNE

1%:

001154

JMP
(MP
BNE
(MP
BEQ

as$1xB,-(SP)

9177, (SP)
(sP),a¥
1%

LSONTLC

PC,STKINT
(SP)e

SHUT?2
(SP) .07
2%

#SWREG,
SWR

J;PICKUP THE CHARACTER
J:STRIP THE JUNK
;015 1T A CONTROL (2
;BRANCH IF NO
J:TYPE

A CONTROL=-C

(*O)

;o INIT THE KEYBOARD
s sCLEAN UP STACK
. sCONTROL C RESTART
2018 1T A CONTROL G?
; sBRANCH IF NO
5319 SOFT=-SWR SELECTED?
;60 TO SWR (HANGE

4 RMNAQ RMOS5/3/2 FCTINL TST 2
ROUTINE

022737

000001

061026

001212
000023

117734
177600
000021

O N

O NNO N =~

061166

N NN NNV

061160
061160

N — 85

INPUT

3 $:

117746
117740

000100

3 1%:

117712

3 2%:

(LR
187
1878
BPL

177530

4 $:

061035

061034

061030

5%:

JsRING THE

5%
(SP),#23

JEX]

::1S 1T A CONTROL-S?
;sBRANCH IF NO
J:DISABLE TTY KEYBOARD INTERRUPTS
J:CLEAN CHAR OFF STACK
J:WAIT FOR A CHAR
:;LOOP UNTIL ITS THERE
;:GET THE CMARACTER

328

13L&
(SP)+

a$Tks

31%

$TKB,-(SP)

#AC177, (SP)

JIMAKE

MOVB
INC
(MP
BNE

MOV

RTI

7-BIT ASCII

JsRETURN

BGT
BIC

;:1S 1T A CONTROL=-Q?
JsBRANCH IF NO
s sREENABLE TTY KEYBOARD INTERRUPTS

S$TXCNT
(29),:140

CMp

TTY BELL

::CLE?N CHARACTER OFF OF STACK

(SP)+

31s

INC

SEQ 0237

;2 1S THE QUEUE FuLL?
JsBRANCH IF NO

3
,$BELL

#100,a87TxsS

MOV
RT]

CMP

061030
061030

M1, 8TKONT

(SP)+,#21

BLY

000040

000002

(MP
BNE
TYPE
187
BR
cmp
BNE

BIC
(mp
BNE

000175

061322

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

MOvVB

061026
000140

(SP),#175
3
#40,(SP)
(SP)+,a$TKQIN
$TXQIN
$TKQIN,#STKQEND

;s COUNT THIS CHMARACTER
;1S 1T UPPER CASE?
JsBRANCH ]Ff YES
2018 1T A SPECIAL CHAR?

;.BRANCH IF YES
;sMAKE IT UPPER CASE
s:AND PUT IT IN QUEUE

J;UPDATE THE POINTER
;60 OFF THE END?
5%
;cBRANCH [F NO
FSTKQSRT,$TKQIN JJRESET THE POINTER
s :RETURN

M ..'l"".'t..""""""""l...."l"'tl".'.'lt"'t"tt'ttl'

:*SOF TWARE

;*ROUTINE

SWITCH REGISTER CHANGE ROUTINE.

IS ENTERED

FROM THE

001154

000176

117620

—

061324
061332
061334
061340
061342
061346
061352
061356

~NNI
N
~NS~N

:*SERVICE THE TEST FOR CHANGE

Ot
= OO
PH=2OOON
~NOW =

MACRO v03.01

746
6

021627
001300

1176146
177600

;:*CALL WHEN OPERATING IN TTY
s CKSWR: (MP
#SWREG, SWR
15%
BNE
1ST8
asTKs
15%
BPL
MOvVB

BIC
(MP
BNE

000007

TRAP HANDLER,

INTERRUPT

a$TxB,-(SP)

1T (SP)
(sP) .07
2%

AND W]LL

IN SOF TWARE SWITCH REGISTER TRAP
MODE.

;31S THE SOFT-SWR SELECTED
JoEXIT IF NOT
;1S A CHAR WAITING?

1F NOT,
;.

JoYES

J:MAKE

EXIT

7-BIT

ASCII

J31S 1T A CONTROL=-G?
Jo1F NOT, PUT IT IN THE TTY QUEUE
;. AND EXIT

;;t"".".'."t""""""'li".."".!"'."'."'.'."'l"'..'

:*CONTROL
:*ROUTINE

061360
061366
061370
061372
061376
061402

123727

001674
005726
004737
005077
112737

001150

000001

061036

117556

00000

001151

1S PASSED TO THIS POINT

FROM

THE

SOFTWARE

FROM EITHER

SWITCH REGISTER

THE

TTY

TRAP

INTERRUPT

(CALL,

SERV]CE

A RESULT

6;CONTROL G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED.
(MPB
$AUTOB, #1
:sARE WE RUNNING IN AUTO-MODE?
BEQ
2%
s :BRANCH IF YES
187
(SP*+
::CLEAR CONTROL-G OFF STACK
PC,STKINT
JSR
;.FLUSH THE TTY INPUT QUEUE
88 1ksS
(LR
«:DISABLE TTY KEYBOARD INTERRUPTS
Move
1, SINTAG
;.SET INTERRUPT MODE INDICATOR

INPUT

ROUTINE

062234
062241
000176

$GTSWR:

062252

19%:

117516

061442

11-APR-80

7%:

1YPE

13:17:48 PAGE

LSCNTLG

38-10

SEQ 0238

;cECHO THE CONTROL=-G (*G)

TYPE

SMSWR
SWREG,=(SP)

(LR
CLR

-(SP)
=(SP)

;:CLEAR COUNTER

MOV
TYPOC
TYPE

1S718
BPL

. SMNEW

3% 7ks
7%

;TYPE

CURRENT

CONTENTS

;;SAVE SWREG FOR TYPEOUT
;.60 TYPE-=OCTAL ASCIICALL DIGITS)
;;PROMPT

;. THE

FOR NEW SWR

NEW SWR

. CHAR THERE?
1F NOT TRY AGAIN
;.

061444
061450

117512
177600

Move

a$TKB, - (SP)

;.PICK UP CHAR
;sMAKE 1T 7-BIT ASCII

061454
061460
061462
061466
061472
061500
061502
061510

000003

MP
BNE

(SP),#3
9¢
LSCNTLC
6 ,5P

2018 1T A CONTROL=C?
J;BRANCH ]F NOT
:sYES, ECHO CONTROL=C (*C)
;3CLEAN UP STA(CK
J;REENABLE TTY KEYBOARD INTERRUPTS?
J:BRANCH IF NO

021627
001022
005766
001403
016677
062706
104401
123727

061660

001003
012777
000002
004737
021627
002420
021627
003015
062726
005766
001403
006316
006316
006316
005266
056616
000667
106401

#100,381xS

SHUT

2 CONTROL=C RESTART

(MP
BNE

(SP),#25
10%
LSCNTLU

:+1S 1T A CONTROL-UL?
. :BRANCH ]F NOY

19¢

soLET'S TRY IT AGAIN

JMP

000025

9%:

062227
000006

20%:

000015

108:

000004

000002

117376

001217
001151

000001

000100

117356

000006

MOV

TYPE
ADD

(mMP8
BNE

MOV
RTI

JSR
(MP
BLT
(MP
BGT
BIC
151
BEQ

000067
000060
000002

000002
177776

17%:

001216

18%.

ASL
ASL
ASL

INC
BIS
BR

TYPE

JsALLOW

TTY

KEYBOARD

J:YES, IS IT THE
:;;BRANCH IF YES

LSTYPEC
P).#60

), 467
(SP)+
)

)
P),(SP)

.$QUES

INTERRUPTS

;. YES, ECHO CONTROL-U (*U)
;. IGNORE PREV]OUS INPUT

5018 1T A <CR>?
;JBRANCH [F NO

CMP
BNE
1ST
BEQ

MOV
ADD
TYPE

060100
000060

#6,SP

000737

117450

SINTAG,#1

104401

062706

(MPB
BNE

(Vo ln « RS

021627
001005

000100
05703¢

000001

Wy —» P

000137

TYPE
ADD

#°C177, (SP)

NINA~AAA LR —~A—~T

062222
000006
001151

BIC

PO A~AN NN N~ DNDN
ANV OOVPANOP OTM

TTY

MACRO v03.01

FIRST

(HAR?

;. SAVE NEW SWR
;s CLEAR UP STACK
;:ECHO <CR> AND <LF>
;;RE=ENABLE TTY KBD INTERRUPITS?
;;BRANCH JF NOT
:;RE=-ENABLE TTY KBD INTERRUPTS
;;RETURN
;JECHO CHAR
;:CHAR < (?

;;BRANCH F

J;CHAR > 17

YES

;JBRANCH IF YES
JiSTRIP=-0OFF ASCII
Jo1S THIS THE FIRST (HAR
;sBRANCH 1F YES
;sNO, SHIFT PRESENT
CHAR OVER TO MAKE
M
ROOM FOR NEW ONE.
M
JKEEP COUNT OF (HAR
::SET IN NEW CHAR
JiGET THE NEXT ONE
S TYPE

2<(RO<LE>

CIRMNAO RMO5/3/2 FCTNL TST 2

INPUT

ROUTINE

061664

000720

20$

.DSABL

LSB

;*THIS ROUTINE

:'CALL:

* &

061666
061670
061676
061702
061704
061710
061712
061712
061716
061720
061724
061732
061736
061744
061746
061754

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

SEQ 0239

011646
016666
005066
005046
012746
000002

005737
001775
005337
117766

005237
023727
001003
012737
000002

000004
000004

000002

$SRDCHR:

061712
:
648
1%:

061026

061026
177102
061032
061032

061035

061034

061032

000004

2%:

WILL

;:SIMULATE CONTROL=U

INPUT

SINGLE

RDCHR

E X

CHARACTER FROM THE

RS R

TTy

RETURN HERE

;:GET A CHARACTER FROM THE QUEUE
;s CHARACTER 1S ON THE STACK
;;WITH PARITY BIT STRIPPED OFF

MOV
MOV
CLR

(SP),=-(SP)
L(SP),2(SP)
L(SP)

;:THE

TST
BEQ
DEC
MOVB
INC

$TKCNT
1%

(LR
MOV
RT]

CMP
BNE
MOV

RT]

-(SP)
#6468 ,-(SP)

;sPUSH DOWN THE PC AND
PS

READY FOR A CHARACTER
NEW PS ON STA(K
NEW PC ON STACK
NEW PC AND PS

;.GET
;3 :PUT
;:PUT
;:;POP

;WAIT ON A CHARACTER

$TKCNT

a$TKQOUT ,4(SP)

$TKQOUT

3IKQOUT.ISTKQEND
#STXQSRT,$TKQOUT

; ;DECREMENT THE COUNIER
;:GET ONE CHARACTER
s :UPDATE THE POINTER
:.0ID

GO OFF

;;BRANCH IF NO
;;RESET

THE

END?

POINTER

s sRETURN

. ttiittt.i.fi.tti""'t't't"".it"fi.i'.t".'t.t"tt"ttt'tt"'t

'E:IS ROUTINE
;*CALL:

te
L

061756
061760
061762
061766
061772
061774
061776
062000
062004
062006
062010
062012
062020
062024
062030
062032
062036
062040
062044
062050
062052
062054

S NN NES NONONO
& SN NO W
WO =2 OQOWO =)~ s = NO O S S
NN
= YO NI NN = O NN
O

MACRO v03.01

INPUT

A STRING FROM THE

RDLIN

$RDLIN:
1%:

2%:

MOV
CLR
MOV
CMP
BLOS

R3,-(SP)
-(SP)
#STTYIN,R3
#STTYIN+B.
,R3
43

JsSAVE R3
;. CLEAR THE RUBOUT KEY
::GET ADDRESS
J:BUFFER FULL?

MOvVB

(SP)+,(R3)

(MPB

BNE

187

062210
6%:

#177,(R3)

(SP)

BNE

DEC
(MP
8L0

RY
R3,#STTYIN
4%

MOVB
TYPE
MOV

MOvVB
TYPE

5% :

¢ INPUT A STRING FROM THE TTY

« . ADDRESS OF FIRST C(HARACTER wiLL BE ON
;s TERMINATOR WILL BE A BYTE OF ALL 0°'S

RDCHR

10%:

TTY

RETURN HERE

337

001406

WILL

#'\,9%
,9%
#-1,(SP)

(R3),9%
9%

BEQ

1S1

(SP)

;:BR IF YES
;.60 READ ONE CHARACTER FROM THE
2:GET CHARACTER

;18
J:BR
1S
;o
;:BR

TTv

1T A RUBOUT
1F NO
THIS THE FIRST RUBOUT?
IF NO

;sTYPE

A BACK

SLASH

;:SET THE RUBOUT KEY
;;BACKUP BY ONE
JSTACK EMPTY?
;:BR IF YES
J:SETUP 1O TYPEOQUT THE DELETED (MAR.
;.60 TYPE
;.60 READ ANOTHER (MAR.
. ;RUBOUT KEY SET?
.:BR |F NO

THE

STA(K

€2 RMNAO RMOS/3/2 FCTNL TST 2

%%sflNAO RMO5/3/2 FCINL TST
INPUT ROUTINE

062056
062064
062070
062072
062076
062100

112737
104401
005016
122713
001003
104401

062106
062112
06211,
062116
062122

122713
001011
105013
106401
1064401

000022

106401
000712
111337

001216

48:

062210
062210
000015

3%:

062106

062126
062130
062134
062136

062142
062146
062152
062156
062160
0621664
062166
062170
062172
062200
062206
062210
062211
062212
062222
062227
062234
062241
062252

000726

000717

106401
122723
001305
105063
104401
005726
012603
011646
016666
012766
000002
000
000
136
136
136
015
040

000134
062210

MACRO v03.01

062210

000025

7%:

062227
8$:

001217
062212

103
125
107
012
040

015
015
015
123
116

::CLEAR THE RUBOUT KEY
::1S CHARACTER A CTRL U?
::BR IF NO
::TYPE A CONTROL ‘U

CMPB
BNE
CLRB
TYPE
TYPE

#22,(R3)
38
(R3)
,$CRLF
$TTYIN

::1S CHARACTER A ''“R'“?
::BRANCH IF NO
;:CLEAR THE CHARACTER
SSTYPE A ''CRTM R 'LF"
;:TYPE THE INPUT STRING

TYPE
BR
MOVB

, $QUES
is
(R3),9%

S:TYPE A *2°
;;CLEAR THE BUFFER AND LOOP
:;ECHO THE CHARACTER

;:TYPE A BACK SLASH

1260 START OVER

1260 PICKUP ANOTHER CHACTER

.EVEN
.SBTTL

READ AN OCTAL NUMBER

SEQ 0240

£'\,9%
,9%
(SP)
#25, (R3)
8s
$CNTLU

$TTYIN:
SCNTLC:
S$CNTLU:
SCNTLG:
$MSWR:
SENEH:

900002
000004

38-12

MOVB
1YPE
CLR
CMPB
BNE
TYPE

TYPE
CMPB
BNE
CLRB
TYPE
181
MOV
MOV
MOV
MOV
RT]
.BYTE
BYTE
.BLkB
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ

177777
001220

000004
062212

11-APR-B0 13:17:48 PAGE

,9%
#15,(R3)+
2%
<1(R3)
LSLF
(SP)+
(SP)+,R3
(SP),=(SP)
4(SP),2(SP)
WSTTYIN,4L(SP)

::CHECK FOR RETURN
::LOOP IF NOT RETURN
::CLEAR RETURN (THE 15)
;:TYPE A LINE FEED
;:CLEAN RUBOUT KEY FROM THE STACK
::RESTORE R3
;;ADJUST THE STACK AND PUT ADDRESS OF
¥
FIRST ASCI1 CHARACTER ON IT

;:STORAGE FOR ASCII

: :RETURN

CHAR.

THE

TO TYPE

0
: :TERMINATOR
8.
;sRESERVE 8 BYTES FOR TTY INPUT
/*C/<15><12>
LSCONTROL ‘¢
/*U/<15><12>
::CONTROL ‘U
/*6/<15><12>
::CONTROL ''G""
<15><12>/SWR = /
/7
NEW = /
FROM THE

TTY

"."".tttttt.tt"'"""'t""!ltt'it.'!t'tttttlltttttt'ttttttt't

;*THIS

ROUTINE

WILL

READ

:*CHANGE IT TO BINARY.

;oCALL:
e
e

062264

011646

062302
062306
062306
062310
062312

104412
012600
005001
005002
112046

062266
062276
062276
062300

0623164

016666
010046
010146
010246

001412

000006¢

000002

RDOCT
RETURN HERE

$SRDOCT: MOV

1%:

2%:

AN OCTAL

MOV
MOV
MOV
MOV

ROLIN
MOV
CLR
CLR
MOVB
BEQ

(SP),=-(SP)

4(SP),2(SP)
RO,-(SP)
R1,-(SP)
R2,-(SP)

(SP)+,RO
R1
R?
(RO)+,~(SP)
3

(ASCII)

NUMBER

FROM

TTY

AND

;;READ AN OCTAL NUMBER
::LOW ORDER BITS ARE ON TOP OF

THE

:;HIGH ORDER BITS ARE

THE

IN $HIOCT

;;PROVIDE SPACE FOR THE
: INPUT NUMBER
::PUSH RO ON STACK
::PUSH R1 ON STACK
;;PUSH R2 ON STACK

;:READ AN ASCIZ LINE
::GET ADDRESS OF 1ST CHARACTER
::CLEAR DATA WORD
;:PICKUP THIS CHARACTER
;:1F 2ERO GET OQUT

STA(K

READ AN OCTAL NUMBER

FROM THE

MACRO v03.01

TTY

ASL

3
062332

042716

062362
10 062364

010166
010237

177770
3% :

000012
062364

R2
R1
R?
R1
R2
#AC7,05P)

BR
TS7
MOV
MOV

23
(SP)+
R1,12(SP)
R2,$H1OCT

MOV
MOV

MOV

000002
000000

$HIOCT:
LSBTTL
R

ROL
ASL
ROL
ASL
ROL
BIC
ADD

062346
062350

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

RT]
.WORD

io%l

s.*8

;:STRIP THE ASCII

(SP)+,R1

JsSAVE

THE RESULT

INTO R2
INTO R1

;:POP STACK INTO RO

:;RETURN
;:HIGH ORDER BITS GO HERE

0
TRAP DECODER
T

IN THIS DIGIT

;;POP STACK
;;POP STACK

(SP)+,R0O

T RN N

AN RN

AR AR RN

NN RN

¢*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF
¢*AND USE 1T TO INDEX THROUGH THE TRAP TABLE

:*OF

THE

DESIRED ROUTINE.

;*G0 TO THAT ROUTINE.
062365
002372

062376
062402
062404
062406
0626412
062414
262416
062420
062424

016646
042716

012746
000002
010046
016600
005740
111000
006300
016000
000200

000002
000020

$STRAP:

062404

1%:

000032

THEN USING THE ADDRESS OBTAINED

2(SP),=(SP)

:;ASSUME

MOV
RTI
MOV
MOV
TST
MOVB

#s$,-(SP)

;. T-BIT TRAPS
;:SET THE NEW STATUS
::SAVE RO
::GET TRAP ADDRESS
: ;BACKUP BY 2
;;GET RIGHT BYTE OF TRAP
;;POSITION FOR INDEXING
;;INDEX TO TABLE

BIC

RTS

#20, (SP)

RO,-(SP)
2(SP),RO
- (RO)
(RO) RO
RO
$TRPAD(RO)
,RO

THE

THE '‘TRAP'* INSTRUCTION
FOR THE STARTING ADDRESS

MOV

ASL
MOV

042440

JUNK

;sADD

. .LOOP
;:CLEAN TERMINATOR FROM STA(CK

(SP)+,R?
(SP)+ ,R1

TR AN AR R R

SEQ 0241

1T WILL

STATUS OF

THE CALLER=<DO NOT ALLOW

::60 TO ROUTINE

;sTHIS 1S USE TO HANDLE THE ''GETPRI'' MACRO
0626426
062430
062436

011646
016666
000002

000004

000002

$TRAP2:

MOV
MOV
RTI

.SBTTL

(SP),=(SP)
4(SP),2(SP)

.;MOVE
;:MOVE

THE PC DOWN
THE PSW DOWN

¢ ;RESTORE

THE

PSW

TRAP TABLE

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF

;*BY THE ''TRAP'' INSTRUCTION.
;

062440
062442
062644
062446
062450
062452

062426
057666
057464
057440
057500
057214

THE ROUTINES CALLED

ROUT INE

$TRPAD: .WORD

$TYPE
$TYPOC
$TYPOS
STYPON
$TYPDS

STRAP2

;:CALL=TYPE
;;CALL=TYPOC
;. CALL=TYPOS
;:CALL=TYPON
;;CALL=TYPDS

TRAP# 1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(1044605)

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 (W1TH SIGN)

CIRMNAO RMOS5/3/2 FCTINL TST 2

CIZRMNAQ RM05/3/2 FCTNL TST 2

TRAP TABLE

MACRO v03.01

11-APR-80 13:17:48 PAGE 38-14
SEQ 0242

062454

057140

$TYPBN

s CALL=TYPBN

TRAP+6(104406)

TYPE BINARY

062456

061414

$GTSWR

+ . CALL=GTSWR

TRAP+7(104407)

GET SOFT=-SWR SETTING

062460
062462
062464
062466
062470
" 062472

061324
061666
061756
062264
057044
057102

$CKSWR
TRAP+10(104410 )
: s CALL=CKSWR
$RDCHR
TRAP+1
1 )
;s CALL=RDCHR
$RDLIN
2)
+ s CALL=ROLIN
$RDOCT
3)
s CALL=RDOCT
4)
$SAVREG ;;CALL=SAVREG
SRESREG ;;CALL=RESREG
TRAP+1
5)
POWER DOWN AND UP ROUTINES

.SBTTL

(ASCII)

NUMBER

TEST FOR CHANGE IN SOF T-SWR
TTY TYPEIN CHARACTER ROUTINE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTvy
SAVE RO-R5 ROUTINE
RESTORE RO-R5 ROUTINE

::'.'t'..'t.tifi"'t""t't""""ttt.t'ttt'.ttt.t't'l""'t't'tt

062634
000340

116424
062640
062546

000024
000026

:POWER DOWN ROUTINE
MOV
#SILLUP,Q#PWRVEC ;,;SET FOR FAST UP
MOv
#340,9#PWRVEC+? ;:PRIO:7
MOV
RO,=(SP)
;:PUSH RO ON STA(CK
MOV
R1,-(SP)
:sPUSH R1 ON STA(CK

$PWRDN:

R2,=(SP)
R3,=(SP)

MOV
MOV
MOv
MOv
MOV
MOV
MOV
HALT

00002¢

062564

R&,=-(SP)

¢ sPUSH R4 ON STA(K

aSWR,=-(SP)

SP,$SAVRG

::PUSH dSWR ON STA(CK
;. SAVE SP

. sMANG UP

RS,=(SP)

NSPWRUP ,3#PWRVEC

: sPUSH R2 ON STACK
::PUSH R3 ON STA(CK

;sPUSH R5 ON STA(K
;;SET

UP VECTOR

::"'.""'lt!."""""'"""'.'t't".'.'."ltl'ltitt.t.ttttit

062546
0625564
062560

062564
062570
062572
062576
062600
062602
062604
062606
062610
062612
062620
062626
062632
062632
062634
062636
062640
062642

062634

062640
062640
062640

000024

:POWER UP ROUTINE

$PWRUP:

CLR

1%:

INC

BNE

116356

062474
000340

MOV
MOV
MOV
MOV
MOV
MOV
MOv
MOV
MOv

000024
000026
$PWRMG:
$ILLUP:

012

120

$SAVRG:
$POMER:
.SBTTL
S

062652
062660

000001
000001

#SILLUP,3#PWRVEC :;S$TS£0R FAST DOWN
$SAVR6,SP
$SAVRG
::WAIT LOOP FOR THE TTY
$SAVRG
JoWALT FOR THE INC
1%
WORD
M

MOV
MOV

‘ATYI:

(SP)+ RS
(SP)+,R4

(SP)+,R3
(SP)+,R2

HALT
BR

.=2

RT1

.ASCIZ
3

APT

MOvVB
MOvVB

STACK

INTO aSWR

;:POP STACK INTO RS
;:POP STACK INTO R4

;sPOP STACK
;:POP STACK

INTO R3
INTQ RZ2

#340,9#PWRVEC+2 ;;PR]IO:7
$POWER

;.POP

(SP)+,R1
;:POP STACK INTO RI
(SP)+,RO
J:POP STACK INTO RO
NSPWRON,INPWRVEC ;;SET UP THE POWER DOWN VECTOR

TYPE
.WORD

SATYS:

(SP)+,aSuwR

<15><12>"'POWER"’

;REPORT

THE POWER FAILURE

. ;POWER FAIL MESSAGE POINTER

.. THE POWER UP SEQUENCE WAS STARTED
.. BEFORE THE POWER DOWN WAS COMPLETE
::PUT THE SP HERE

COMMUNICATIONS ROUTINE
AR

RS RRERRRRRRRRRRERRRRRRXE
R
E K]

¥ L,8FFLG
M LIMFLG

;.10 REPORT FATAL ERROR
;.10 TYPE A MESSAGE

000001

063116

$SATYS:
SATY(:

063114
000001

001242

000100

001243

000004
000002
001222

000004

001236

1%:

2%:

105737
001416

005737
001413
005737
001375
017637
062766
005237
105037
105037
105037

012601
012600
000207

063026
000004

3%:

001242
001222

11$:

001226
000004
12%:

$MFLG:
SLFLG:
$SFFLG:

000290
000001
000100
000040

BNE

MOv
T1S1B
BNE

MOV
MOv

001222

063116

000004
000002
001222
063116
063115
063114

MOv
ADD
18T

suB
ASR

— N

000000

000004
000002
177776
057666

MOv
MOv
1518

BNE
B1T18
BEQ

001236
001240
000004

BR
move

BEQ
(MPB

062666
062670
062676
062676
062700
062702
062706
062710
062716
062720
062726
062730
062734
062742
062746
062750
062754
062756
062760
062764
062766
062772
063000
063002
063010
063016
063022

MACRO v03.01 11-APR-80 13:17:48 PAG% 33-15

APTSIZE
APTENYV
APTSPOOL
APTCSUP

BR
MOv

ADD
MOv

JSR
.WORD

1S18

8EQ
1ST
BEQ
TST

BNE

MOV
ADD
INC

CLRB
CLRB

CLRB
MOv
MOv
RTS

.BYTE
.BYTE
.BYTE
.EVEN

20 0
00 1
10 0
046 0

SATYC

SEQ 0243

#1,$FFLG

:.TO ONLY REPORT FATAL ERROR

RO,=(SP)
R1,-(SP)
gHFLG
$

. +PUSH RO ON STA(CK
;sPUSH R1 ON STACK

FAPTENV, SENV

..SHOULD TYPE A MESSAGE?
:1F

NOT:

s1F NOT:

..OPERATING UNDER APT?

#APTSPOOL ,SENVM ..SHOULD SPOOL MESSAGES?

3%
34 (SP) ,RO

#2,4(SP)
SMSGTYPE
13
RO, $MSGAD

BR
Js1F NOT:
;JGET MESSAGE ADDR.
J;BUMP RETURN ADDR.
;:SEE ]1F DONE W/ LAST XMISSION?
WAIT
JolF NOT:

(RO)+

;:PUT ADDR [N MA]LBOX
;;FIND END OF MESSAGE

SMSGAD
, RO
RO
RO,S$MSGLGT

s.GET MESSAGE ILNGTH IN WORDS

a4 (SP) 48
¥2,L(SP)

;;PUT MSG ADDR IN JSR LINKAGE

g:.SHSGTYPE

;:SUB START OF MESSAGE

;:PUT LENGTH IN MAILBOX

;. TELL APT TO TAKE MSG.

-BUMP RETURN ADDRESS

177776,-(SP)
8C.S1YPE

; s PUSH 199776 ON STACK

$FFLG

;s SHOULD REPORT FATAL ERROR?
BR
s:1F NOT:
;s ;RUNNING UNDER APT?
BR
s:s1F NOT:
JFINISHED LAST MESSAGE?
WAIT
Jo1F NOT:
J:GET ERROR #
:;BUMP RETURN ADDR,
;s TELL APT TO TAKE ERROR
s CLEAR FATAL FLAG
;:CLEAR LOG FLAG
;s CLEAR MESSAGE FLAG
JsPOP STACK INTO R1
J:POP STACK INTO RO

12%
SENV
129
$MSGTYPE
11%
84 (SP) ,$FATAL
#2,L(SP)
$MSGTYPE
$FFLG
SLFLG
SMFLG
(SP)+,R1

(SP)+,RO
o

COMMUN]ICATIONS ROUTINE

(=lelely.]

CIZRMNAOQ RM05/3/2 FCTNL TST 2

APT

::CALL TYPE MACRO

2 ;RETURN

JsMESSG. FLAG
J.L0G FLAG

JsFATAL

FLAG

CIRMNAQ RM05/3/2 FCINL TST 2

CONSOLE MESSAGES

MACRO v03.01

;
3 063120
& 063177
5 063216

6 063220
7 063225

8
9
10
11
12
13

14
15
16
17
18
19

063231
063234
063322
063410
063476
063560

063€11
063611
063644
063677
063715
063757

20 063777
21 064033
22 064045
23 064076
26 066077
25 0646164
26 064241
27 064242
28 064263
29 064277
30 064305
31 064325
32 064342
33 064361
gg 064373
36

200
200
075
101

040

106
117
000
114

101
116

116

054
200
200
200
200
200

077

040
124
120
103
127
1264

040

200
200
200
040
126

103
125
102
114
105

110
123
125
111
103

040
102
040
200
200
200
200
040
200
104
040
040
040
040
040

000
117
101
117
110
13

114
122
114

111
04C
111

124
101

131
116

077
104
122
m
116
116
117
117

111
122
111
123
117
117
106
116

M3
11-APR-80 13:17:48 PAGE 39

.SBTTL

CONSOLE MESSAGES

SCTMSG:

.ASCI1
.ASCIZ
.ASCIZ

<CRLF>AFAILED TO RECOVER THE BAD SECTOR FILE(DEC
<CRLF>30ON THIS DRIVEQ
a-=a

ASCIZ

@ ? @

.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ

<CRLF>3CHANGE ADDRESSES (Y/N) ? @
<CRLF>QUSE SAME DEVICES (Y/N) ? a
<CRLF>aBUS ADDRESS a
@ LIMITS - LO= 160000, HI= 17XXXX@<CRLF>
@VECTOR ADDRESS @

EQUALS:

ALL:

QUES:

COMMA:
MSHELP:

UBUSQST:

(NSLOO:
CNSLO1:
CNSLOZ2:
CNSLO3:

CNSLO4:
CNSLO5:
(NSLO6:
CNSLO7:
CNSLOB:
CNSLO9:
MSDRVS:
MSGDRv:
LODEV:
NOTPRS:
NOTAVL:
OFFLIN:
ONLINE:
.EVEN

CASCIZ

_ASCIZ
.ASCI]
LASCI1
«ASCI1
LASCI1
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCI1
LASCI1
LASCIZ
.ASCII
.ASCIZ
.ASCIZ
,ASCIZ
.ASCIZ
,ASCIZ
.ASCIZ
,ASCIZ
.ASCIZ

SEQ 0244

144)3

QALLA<CRLF>

a, d
<CRLF>aT0
ENSURE THAT NO BAD HEADERS ARE LEFT
ON THE DISKa
<CRLE>QPACK,
THIS PROGRAM SHOULD BE HALTED BY TYPING A (*()a
<CRLF>@CONTROL C.
AS A RESULT,
THE PROGRAM WILL
BE HALTED]
<CRLF>QWHEN THE DRIVE UNDER TEST HAS COMPLETED TESTING.3<CRLF>
<CRLF>QTYPE HELP TEXT (Y/N) ? @

@ LIMITS - LO= 0, HI= 10008<CRLF><LF>
@BR LEVEL @
& LIMITS = LO= 0, HI= 7@<CRLF><LF>
<CRLF>
<CRLF>QTYPE ''A"' TO TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S)a
<CRLF>3AND TERMINATE INPUT WITH A CARRIAGE RETURN.Q
<CRLF>
@ ?ILLEGAL INPUTR<CRLF>
<CRLF>/DRIVE(S): /
/DRiVvE/
/ 1S LOAD DEVICE/
/ NOT PRESENT/
/ NOT AVAILABLE/
/ OFF LINE/
/ ON LINE /

CZRMNAQ RM05/3/2 FCTINL 1§17
TABLE

NN —

FUNCTION CODE

RACRC v03.0'

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

38°'¢

SEQ 0245

FUNCTION CODE TABLE

O VNV

"wE FUN(TION CODE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR
ct&(w FUNCTION CODE.
BIT USAGE IS AS FOLLOWS:
*

VNS (NN =2 OO 00

..+

.81 T

ATA = BIT

IS SET

IN THE ENTRY FORA GIVEN FUNCTION CODE

ATA SMOULD BE SET WHEN THE FUNCTION CODE 1S EXECUTED, OTHERWISE,
19

1S lERO, ANDICATING THAT ATA SHOULD NOT NORMALLY BE SET.

PORNIPININIAY
—b e b b e e b e b

NCTE THAT ATA Ml BE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH
.

WS NN = O V00~

THE COMMAND.

WCE - BIT 14 ]S SET IN THE ENTRY FORA GIVEN FUNCTION CODE
WRITE (WECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND.

OP] - BIT 13 IS SET

IN THE ENTRY FORA GIVEN FUNCTION CODE

OP1

1vC ERRORS ARE ENABLED DURING THE EXECUTION OF

WLE - BITM 11 IS SET IN THE ENTRY FORA GIVEN FUNCTION CODE
WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.

IAE = BIT 10 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND.

AOE - BIT 09 1S SET IN THE EL.TRY FOR
A GIVEN FUNCTION CODE
READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THE

:THE

19 NOT EXPECTED AS
A RESULT OF

ERRORS ARE ENABLED DURING THE EXECUTION OF

THAT

COMMAND.

Iv( = BIT 12 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

WRITE

;COMMAND.

ERRORS WHICH

THE

ARE

ENABLED ARE

ERRORS ENABLED BY

STMXFY, CLBT', AND “'AOE’.

'MLE'',

TH!S BIT

ARE

THAT

'WCF'',

'‘TRE',

CNMMAND.

"'DPE'',

'DLT",

'‘UPE'’.

''NEM",

BIT 08 IS NOT USED.
HCE - BIT 07 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
IF HEADER ERRORS ARE ENABLED DURING THE EXECUTION OF THAT (OMMAND.
HEADER ERRORS INCLUDE '‘WCRC', "MCE'‘, '‘'FER'', AND 'BSE"

ECH - BIT 06 IS SET

IN THE ENTRY FOR A GIVEN FUNCTION (ODE

lF DATA FIELD ERRORS ARE ENABLED DURING THE EXECUTION OF
;COMMAND.
THESE ERRORS INCLUDE 'MDPE'', ''DCK'‘, AND "'ECH''.

THAT

BIT 05 IS NOT USED.
BIT 04 IS NO" USED.
BIT 03 IS NOT USED.
BIT 02 IS NOT USED.
BIT 01
ILF
064406
064406

FNCDTB:

020000

.WORD

IS NOT USED.

- BIT 00 IS SEY

THE FUNCTION CODE

1S ILLEGAL.

FUNCTION (ODE

OPI

.NOP

TABLE

TAB

58 0644610
59 064412
60 064414
61 064416
62 066420
63 064422
64 064424
65 064426
66 064430
67 064432
68 064634
69 064436
70
71
72
73
74
75
76
77
78
79

80
81
82
B3
84
85
86
87
88

0646440
064442
064444
064446
064450
064452
064456
064456
064460
0646462

064464
064466
064470
064472
064474
064476
064500
064502
064504

130001
130001

037200
037000
130001
130001

033300
033300
130001
130001

/03.01

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

SEQ 0246
.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

OP]'ATA'ILF!IV(

ATA!OPII' VC
IAE
ATA!OP]
! IVC
0Pl

oPI!IvC
OP]!ATA!Iv(
OP]'ATA!IV(
OPl
OPl
OP]'ATA'ILF!IV(C
OPI'!ATA'ILF!Iv(
ATAIOPI!IVC!IAE
OPI!ATA!ILF!]IVC
OPI!ATA!ILF!]V(C
OPI!ATA!ILF!]IVC
OPI!ATA'ILF!]V(
OP]!ATA!ILF!IVC
OPJ!ATA!ILF!IVC
OP]!ATALILF!IVC
WCE!OPI!IVC!IAE'AOE
'HCE 'ECH
WCE!OPI!IVC!IAE'AOE'HCE
ECH
OP]'ATALILF!IVC
OP]!ATA!ILF!Iv(
OP]!IVvC!WLE!'1AE.AOE
'HCE
OPI']VC'!WLE
! 1AE'AOE
OPI'!ATA!ILF!IV(C
OPI!ATA!ILF!IVC(
OPI'1VC!IAE!AOQE
' HCE! ECH
OPI!IVC'IAE!AOE'HCE! ECH
OP]'ATA'ILF'IVC
OP]!ATA!ILF'IVC

FUNCT'ON CODE

MACRO

—CITV

CIZRMNAQ RMOS5/3/ 4

:RETURN TO CENTER( INE
+READ IN PRESET
:PACK ACKNOWLEDGE

sJLLEGAL FUNCTION (24)

sILLEGAL FUNCTION (26)
ILLEGAL
LLEGAL
LEGAL
LEGAL
LEGAL
LEGAL
LEGAL

FUNCTION
FUNCTION
FUNCTION
FUNCTION
FUNCTION
FUNCTION
FUNCTION

(32)
(34)
(36)

(40)
(42)
(44)
(46)

{TE CHECK DATA
TE CHECK HEADER AND DATA
LEGAL FUNCTION (54)
ILLEGAL FUNCTION (56)

SWRITE DATA
;WRITE

HEADER AND DATA

sILLEGAL FUNCTION (64)
s ILLEGAL FUNCTION (66)
sREAD DATA
;READ HEADER AND DATA
sILLEGAL FUNCTION (76)
s ILLEGAL FUNCTION (76)

NP
N
-t O OO0 ~NO

TABLE

SEQ 0247
.SBTTL

0646506
066507
064510
066511
066512
064513
0645146
064515

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

ATNTBL
-

ATTENTION

BYTE

.BYTE
.BYTE

(ATA)

TABLE

mMmee

(ATA)

—

ATTENTION

MACRO v03.01

— O N —OD SN —
OO
o
o
@

CIRMNAD RMOS/3/2 FCTINL TST 2

11-APR-80

lEROS:

064666

100000

040000

LMNWVIWING
o o o
L]
.
0

S WA OOV

w2 AN N NNNN—-OO

POPVPVRIND
ot md cod ed ol ) el el o b

ONES:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
. WORD
.WORD
+WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

RGDTPT:
MIXED:

NN~ OO0 N0

000000

DATA PATTERN TABLE

LSBTTL

13:17:48 PAGE &2

= NN =) S OO = NO O
—2 00 £ N —2 AN —2 OF N = YN — O
N = OO0 =
NNV
v OOO = \NNIN— e o o o
NN
NS VO WNWVWVMNINO
O N) = N e o o
¢
N NWN—=OP*
NNO 0D —= N~
s

NS NN —

DATA PATTERN TABLE

MACRO v03.01

= MM =2 QD B N) 2NN = O N — 00PN = OO = N~
N
O PN
= OO NPUSRIDe
o
o
o
o
o
o o
¢
VM=
NN OO S POPVO0De
o
o
e s
o OO0 OO
o
o
oo
0D £~ .

CIRMNAQ RMOS/3/2 FCINL TST 2

384

SEQ 0248

CIRMNAO RMOS5/3/72 FCTNL TST 2

DATA PATTERN TABLE

58 064670
59 064672
60 064674
61 064676
62 066700
63 066702

64
65
66
67
68
69
70
71
72
73
764
75
76
77
78
79

0667064
064706
066710
066712
0664714
064716
064720

064722
0664724
064726
064730
066732
0064734
064736
06647640
064742

80 064744
81 064746
82 064750
83 064752
84 064756
85 064756
86 064760
87 064762
88 064764
89 064766

90 064770
91 064772
92 064774

93 064776

94
95
v6
97
98
99
100
107
102
103
106
105
106
107
108
109
110
111
112
113
114

065000
V65002
065004
065006
065010
065012
065014
065016
065020
065022
065026
065026
065030
065032
065034
065036
065040
065042
065046
065046
065050

MACRO v03.01

SEQ 0249

020000
010000
004000
002000
001000
000400

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

000200
000100
000040
000020

.WORD
WORD
.WORD
.WORD

000010
000004

.WORD
.WORD

000002
00000
000000
177777
177776
177774
177770
177760
177740
177700
177600
177400
177000
176000
174000
170000
160000
140000
100000
000000
000000
100000
140000
160000
170000
174000
176000
177000
177400
177600
177700

.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

177740

177760
1177770
177774
177776
177777
125252
152525
125252
177777
177776
177775
177773
177767

&
E
11-APR-80 13:17:48 PAGE 42-1

.WORD

EARLY:

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

.WORD
.WORD
LWORD

8192.
4096.
2048.
1026¢.
512.
256,

128.
64.
32,
16.
8.
&,
2.

1,
0,
65535
65534
65532
65528.
65520.
635504.
65472.

65408.
65280.
65024.
64512.
63488.
61440.
57344,
49152.
32768.
0.

0,
32768.
49152.

57344,

61440.
63488,
64512,
65026.
65280.
65408.
65472.
65504,
65520.
65528.
65532.
635534.
65535.
43690.
43690./2
43690.
65535.
65534.
65533.
659531,
65527,

Dal’aO5l"a6ONl"CVa7O)NOa8l0NO9alOO0alOO1aOlO02VaOOl30VaOl1O0a‘l0a5OlO0AV6l07alO08VaOlO90sl=O0aOO l=O1a0V!Ol0=2aO03VaOL

—SrO2—D—A.NVg2—ROreWArSN——rMNWNT—rTVFWStM—NT|rNO—AoOXRNe"N-MT—IANVr—ORM1INrL—eA—TMRleO"—AaXCrVNN2OR—OM=NNeAONT—oNRI1o=NNROM"=TOVMaACRN=NVeOATNoNF~L(RONDNoOAArNlRe—ATIaelRmTN—LAorIO*leVOrAsNtVr—AaYMnlrNdAOer—YItTlYAOrOlgeA2Or4NPgLNPOretILs —lo
DATA PATTERN TABLE

CIRMNAO RMOS5/3/2 FCTINL TST 2
MACRO v03.01
*1-APR-8U

ENRGDT:

A
f
13:17:48 PAGE 42-2

SEQ 0250

CIRMNAQ RMO5/3/2 FCTNL TST 2

ERROR MESSAGE

TABLE

MACRO v03.01

;

.SBTTL

3 065144

& 065150

S 065156
6 065166

071540

071607

071607
071732

000000

071624

071667
071762

000000

000000
000000

7 065172

071732

072076

000000

9 065206

074521

076562

000000

8 065200
10 0652164

11 065220

12
13
14
15
16
17

0652264
065232
065264
065252
065260
065270

18 065300
19 065310

20
21
22
23
26
25
26
27
28

065320
065330
065340
065350
065360
065370
065400
065410
065420

076535

073753

072027

000000

072136
072210
072304
072136
072136
072136

072147
072221
073753
072367
072412
072426

072074

072136
072136

000000

0724564
072503

000000

072136
074037
074225

072552
000000
074233

37 065530
38 065540

073343
074264

073457
073457

36 065516

39 065550

076027

074312

076037

073657

.WORD

EMS110.EMS170.0

EMTI10:

EMTI1:

EMT20:
EMT21:

EMT43:
EMT44:

.WORD
.WORD

EMS47,EMSS3,EMS76.0
EMS77 EMSS3'EMS76.0

074233

EMT42:

EMT4S:

073725
072552

EMTSO:
EMTS1:

45 065636
46 065656

073343
073372

48 065676

49 065714

50 065724
51 065742

52 065762

075764
073621

076535

073542
0741646

075715

53 065776
54 066000

000000
076122

57 066052

076474

55 066020
56 066060

073447
076476

076001
074161

074171

074107
073562

074107

000000
074107

076107
074107

073457
074107

074107
074721
074107

074721

.WORD

EMS11.EMS4L).EMS30.0
EMS11.EMS42.EMS30.0
EMS11.EMS43 EMS30.0
EMS11.EMS44.EMS30.0

EMS14&,EMS145
. EMS75,EMS76.0

EMS100.EMSSS, EMS76.0

EMS101.EMSS3 EMS76.0

.WORD

EMS6S,EMS64.0

EMT52:

.WORD

EMS4L7.EMSS3.EMS67.EMS115.EMS140,EMS141,0

EMIS3:
EMT54:

.WORD
.WORD
.WORD
.WORD

EMTSS:

.WORD

EMTS57:

.WwORD

EMTS6:

EMT60:
EMT6T:

EMT62:

076165

074134

074415

074161

EMT67:

077343
0764161

.WORD
.WORD
.WORD
.WORD

EMT47:

EMT63:
EMT6&:

077162
076415

EMS11.EMS24.EMS30.0
EMS11.EMS25.EMS27.0

EMS11.EMS12.0
EMSI3.EMS14 EMSIS.EMS16.0
EMS17.EMS64.0
EMS11.EMS21.0
EMS11.EMS22.EMS27.0
EMS11.EMS23.EMS30.0

076233
076233

076161

072232
073314

47 065664

.WORD
.WORD

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

EMS11.EMS45.EMS30.0
EMS66.EMS20.0
EMS7?S.EMS141 .EMS76.0

072210
072136

073457
073457

EMS10.0

.WORD
.WORD
.WORD

EMT33:
EMT34:
EMT35:
EMT36:

42 065576
43 065606

073457

EMS?,0

.WORD

EMT37:
EMT40:
EMT41:

072552
072552
072552
072552

EMT46:

073343

.WORD

EMS167,EMSA4 .0

EMS11.EMS26.EMS27.0
EMS11.EMS31.EMS30.0
EMS11.EMS32.EMS30.0
EMS11.EMS33 EMS30.0
EMS11.EMS34. EMS30.0
EMS11.EMS3S EMS30.0
EMS11.EMS36.EMS30.0
EMS11.EMS37 EMS30.0
EMS11.EMSL0.EMS30.0

074233

4, 065620

.WORD

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

073457

073753

EMSZ.EMS4.0
EMSS.EMS6.0

EMT7:

074340

073771

.WORD
.WORD

EMS1.0

EMS2.EMS3.0

EMS5.EMS10.0

40 065560

41 065570

.WORD

TABLE

.WORD

EMTJ2:
EMT23:
EMT24:
EMT2S5:
EMT26:
EMT27:
EMT30:
EMT31:
EMT32:

33 065470
34 065500
35 065506

073072

ERROR MESSAGE

EMTS:

EMT6:

072541
072552
072552
072552
072552
072552
072552
072552
072552

072552
072541

073120
073147
073176
073251
072344
075736

072136
072136
072136
072136

EMT3:
EMT4:

EMT12:
EMT13:
EMT14:
EMT1S:
EMT16:
EMTI7:

072520
072562
072611
072640
072666
072737
072766
073015
073043

065430
065440
065450
0656460

EMT1:

EMT2:

000000
072232
000000
000000
0725641
072552

072136
072136
072136
072136
072136
072136
072136
072136
072136

29
30
31
32

4
G
11-APR-80 13:17:48 PAGE 43

EMT6S:
EMT66:

.WORD

EMSIS.EMS1S EMS63.0
EMS11.EMS4L6. EMS3O.EMS67.0

EMSL7.EMSS3
EMS67 . EMS115 EMST14T . EMST64 .0
EMSSO EMSS3 EMS67 0

EMS148,EMSI4L3,
EMSS3 . EMS67.0

EMSST,EMST2,EMS67 EMS115,EMSSO,EMS70.0

EMS167,Ems7?S
. Emse’.0

.WORD
.WORD

EMSS6,EMSH7.EMSI15 EMS150,EMS152.EMS70,0
EMS71.EMSSE.EMS67,EMS115 EMSTS0,EMS152 EMS72.,0

.WORD
.WORD

EMS1SO,EMS152,EMS70,EMS115,EMSS6,EMS?S EMS67 .0

.WORD
.WORD
.WwORD
.WORD

EMS14O.EMS6P
EMS11S MLt EMS70.0

EMSS2,EMS205,EMS214.EMS206
EMST15. EmSST Ems73.0
EMS165,EMS10%.
EMS72 EMST124 0
EMS165.EMS103
EMS72 EMSIT1 0

SEQ 0251

M.0~ ~NMXVOY]YVbwo-w
g—Pp—

x wvvL [¥a) wvuv v~-— -—

MACRO v03.01

O N NIM = O

—o—o—r—~O\)—r———— -—e————r— .——wO\=vMOXOONXMMMEYXOMNM

g==OW(O—(OE——CRPMAOWOOA)1ONMeV=N=-NXL0—yOI—3A—<OL—N1—MlP1)0l8OAR-0IVeNO(—O—T18—M=A—TM10PsNOtE1NfVOAI—O0=IrNOr-—eRTP>—mMeOYArN0RlUVm~~——NONA-e1LPlIFFA—eY=IORMNv<O—-VsOOlA1PA081=AlaN~hO—MFA==dPNTNlReR0O-MMT=OO—NaMlP)YIAl-OeLNNOPoARNVg1"CSal-OAAN)Ol0Io=M—TNP1Oa=No0=VOeS)AONYlAPlROP0~1aNeCOTAPPDGNNR"~VMllOU)OV—]NOON0MoleIOC-~)TNAAOlOOMYPMPNoUoNOeMIA0ASlTRNOlVTo=RtOMOA—ITIoPAlIRMN—(lANoAOONOeM~R0oMlNLIOtNOvAWPVeAlRICSNCROP—lLNAa0PPAeNNlLeORON—RTPGlOeAONOVMOIo—ILAPRNlNA0alVNI=OIeMaLAOPOaA-ANll—YNTOAVANPRPORoaOAVMNO=elILlORNeeo~NVA—oAOOPNNl0AAl—IYNON=LNOaMAPAeNCIl~)OINNAROlPToVNOeNINAlbMPRNNlIaO—SNIYN—r—RMr=elRVA0IeAlAeg0NOAl—aNM)==AeRoMlIRNIl=N—TOMNAeIoN0NMleAeoALtNOINoVMe1NRANReTLlt~ORONN=WeORooAVNOtM)VlNITN—NbIVPoAC~oOA)O—OTMSeVetDblOONeFIo<eNARRVO7tO—tTN=oOIbAVRNoOlN~AN)—oTOeOteOO~N)NVa3Y=TAe01bINANelAMO)TOABN7NYVo0MN)VNeVRIAIIeNl0OIlIA)VaSAOIVeM—M0yoMNlUT)OIeOMOAAeVB\INarIMAMOOVF=eAteM0AlGMOVNioaIPMMOVLAMe0NAllIVO0MAN)OIeMOe=TNEVaI0liNSINVOtATeMYMPAFVN"OeiyN)IEDMlAOeNAVl—oM)ONAIVTeNSOaVlIOMNLAYNMVOg=bV)OA1eUNF0gIMAVGO=VtOOSMOI1N0MQLVeANl=TLrMiSOlNOBM0VeA1AOaE=MOOVITNWeNAtOtVMEP0TTOPP~e=OMUV=F
—o=oDO2)OWVrEw.oo&isSUENw—AWL0HDwEW~&VSsLO——ENVlLNorAXWTOO&*%U—DNAbiENN0OE&%O~)MgVw8WOWgwlIiSNeVnAY%NL(W~OT—PlObvgE)]EFAC&YAONON<VISGPoG8XN0VOS.%N)GFIYEAe—gt8WNNN%rO)M=AANVYOISA%E)eODBRSNWRi%ODY=OGASVUIRX®%O)ObSAUUMN%0MAO8)YSS=NVGSfVW%NR)SIOSOrWAOE)NEN&AVVeSOrAGPDY)SIUWR%T)OrOS=iGVVWIYMN%e)OS"ISLNA)INMO&%D)SMDNAGIWrOYsVa]%SNo-SI=VMXOGOl)TVISrR,2aM&V&JNVDeOXG)lEIYNVLEr0a&VN¢D=OTVAOOAerYX)MSNRVDl&M¢)erOLANTaXNR0Tl%AVT&T)eIOUbeOOGD)aLXN2lT%8r%)SeNeOARaX0IW8lA%AO=eOILeOGV%DeTNYVTr%leOVNFLeLreAT8%)SMDOOl%AP%T&O2ON)(=LMINDTS&WNAsAMT&%ONIrMNWGY%W&IDsOMVGE%x@GWOSOW)A%NSVINbW=M&OMIQOGL1IU&INU7MS0M&%TNUW0&MONIWU0M[LvA&WOvOx¥-—~S'r_Gy%—e—V]M=&OS)WOs&NITbM[%¢—EWw-WV~enINNO0eTv)—NN[E(*&wN~-Do~—WLX28MV)0a7O]blIs&SNNVuWOCPMetwNN&ElEWVW—ewNVE[[L.OM]O~S-WK~VFS=DiVv[A4]—yOoX))NIBV7FYoWT—s=AUe&*W“ErOM—VOWJ[oY&&OovWAOG-NYENSSAUVMIrXYEN.LM&&seRWVFOW~EMEYV—TW)E»NVSNFOIY[EEMAMKOTOULVJMW~-M-WLwsP]0ovNwI(xXx—ENrNI)V[2EeWssOTIOIEr0MWQO.Yo.sNwvO[N—eNXEASROPVImaARW~ws.OVSoEY—WYwI-"vNYO0AMNaOWXSIAELIWOOM O—E)M
ERROR MESSAGE TABLE

CIRMNAOQ RM0S5/3/2 FCTNL TST 2
11-APR-80 13:17:48 PAGE 43-1

H
4

SEQ 0252

~-S—Fo8wsu—n

- V][V(V8]
Oe\gOeX[w0wAoEE0lF}yVaoI%OO(Xdo[&\VVM'E2nNaI—y&WB%VlO%Ewl2Oe}AR&XM.VW—On(—ENV_]eNMANA0O0OOIVWoNo—sNYAYOV)]eoErIW&AFvDeSTNNNVJ&ETFAV[N—OeMrS=XROV&[NlAANESDeXMoErONVRAlWXUT0eaDNN&lVOAUDAesNoREOf——NJPlOAVAIUWDmoeTMWSoN@l—AMrASL)}ODNYVaNU¢llN—AA<LDeVsLow4nrNIl=A]O—ERNUAeyo(LVNlVO—AlvUs]DoCeIl4OVAPNUNo04a(s@(~x—lISXyM=ABVONAraU]’eVo'xMlV0NvL=—AReNIaC[lNEsMD—VaOINeAQ(N-olWsEvW—AIVVOAMVOo~D]eWUN&lWSIrFMOVAeNDINrOl8NWOOUMVIAIesDaOEUl&V0NVOW—OrANNIaINc\ElN&VrMWUTOAeOIOVNoNsVl«M~CNAWeIrNMIOloFOUsORWNeNVo,ls&IONWvAePUl&oL-xIV=WIEOMaA~@—RINelM&TUOrTNSeAM=IOVoNlD&Ee~IMV=oANWOelM&OVIorANORaVlE—&IWNoAMeDvl&N—WI=oNOOAalENMCOTWSeDTIaVNlIMO¢’TeNDNPoOBN~%DAIlIEaNoND—=W%NIXlTAIOoe.NvE%eINlTPOAO}oeISN%NAl(A-TE7eo2
[VY]
|-W72 -v~

11-APR-B0

YV B JV L=, ow O O N

MACRO v03.01

OWOO—ogNTN(PFX~OWA20NVO]y)—=VMOoCNA)lONNW¢PlSINeOOoNlTgIRPlVeOCOOTOl~k~goN0PsFeA|SolON080LOlPNkeAA0oN0O)Ml~bNIFlIaCMNlTSA0PNOeTV0CANl<oANP8DeA(OI—O0l8oP)De8oO0lO8lPG0NSo0o~OllPAU0NeTeMNOMl0lAPIooTN—SMVO0YllPGOAaOIoN0lObPlMIoSOoNOO0lNVMPlADACcOoglOA0PVloINMOIONlCPGYoO)OelIoOANVa0SINOMelboOO0OIeDINeTbeNVCl=llyo0OOONOlPUe0O)NDloTPMaAVNFOTONATelOG0MaU)OIOCOATLWOeTNNlGoIUleN)OO0I—TNIlPMIoMVMSOION—ONlAAUPN0oSIISOIATAlPL~oNSMPOONiNAOlAo—PNMANOVAY-AOelVANoTOOOISN—tMPONOLeMeMAVNNINOIlGAINaVINOI7SIATPOANOoMNRTNTSe=8OlGINyeAONVOipONNMSlGTm~AeP)OOFWyI—TlNSPVNON)AMASV—elOPRINaYVWO—ONNMSeOTylPiAeOIOFTOtNlAPMUDeWNN)VYOMOPlVOAAoSt)PONMVPlOMNIOeVM~LNTOeONli)IeWOOO)—VYNAFeNIlNOTNCMOoNONWO—eMoIILlOMINMaVRM)I1OeTetOOl-oNM«1M)ONONNOoBFlVSIVo0NIJVAOo—ALWblAOMOOOaN1NtIeerGNlFeaAOV)OOIMrNMeLilITreO1NMONVeOiLlNrMIOoOOtONIVeMUrblVo1ON—OeLiANlMeaIO)VTOeIibl0rNe1VOTOTDeTeiA—l~ONMMOaL—I—LeeAN)lINMVD1=AVL—eSNA)lNOO=OIOteT=UIAOlVO1MeNMOeNCVT
)sVoYNNLloOowL—eog[~wxXOVdbeasl.V]J)NVsORlmWeObl1DS—bV[I sowvO)—OWNssw—AV&gOWbM0UYO&vLVAWNo&&OWMDAIs&OA0W&0WSoAEONM=.OXs&vS-X=eM—ONrI&sEO—AVeNW[ooT&SNAMDA\Ww.O]LSw~EWWSNmVA)sU&IATWv&oOEW-NAMwe¢oOATWe&EAM—O[-sOoW~(NMx—-VE+AEa2—lOIsW)TNNADMOWSsVLMANOEFOoIVANDWM=AWPOWNOTSrYW—ASeNOA—ENOAIMsoox wN Te%=-N]AyIIo%lMAOAo%PlLNVAaNsNO%lLTAIVRasO%YAVBRL.LP[DA=0D=OA0OsG0sSb0OSEOw—WA0O—[NWEVL0~IVO.uiUOyIARE
ERROR MESSAGE TABLE

CZRMNAQ RMO5/3/2 FCTNL TST 2
A
I
13:17:48 PAGE 6£3-2

SEQ 0253

x (Ve ~ N

]

Li <I ALA vg

O O & -G-8 G & G G S NS

—S

[ve

—

.o vx oo o

4N
&- [-t

o+se—oEowIOO~MOOTUNWMOTOooTWIOMNMOoNAO-wWEVsoTLXsEW)WESM*WPWOIWS&W.=V3[ONoO -w

NNONONINON—ereermrme O0O0O0O0OOO 0 VO 0a00a0a0a000 AP~ <

V..—NVoN~WOwOUWL)NFNM.0S—X~(Z(MCSUCeXYeOON7.OgA))VTY=oe1DTyOMsMVVM=w8JTlWAYPNNAOU)=oEV0O=IeOW.*oONV~FOoVIDDA-)K‘--«Y=AYIlYPWY—UYNAAlP=—F0N—o0=w&=NOVLMYNNSVeSWADENTSa=—beTgRGnMF0OVEDATP)OOlNo)=NMWY%IIS-TNLNA)T*)eO0NYVN)OlNAY0VMD=WP)TWLoTEIlSoEOWN0oSAv=U~([N[aYeLNe~X—~)ONOYOTUOWANTV\o8—oei—7AVIDGD2—alAYoL=]T0NaW0ED-NlOIV"T»eS0XOW=TeNSS—LoO.E—TAXNIIl71aMNwFePYUA~Xnw=tDOI0YVVo2D~O)-TOLCINXel)OyWSV@PVN—,NSo0MITeAT7%WN7i0eDUP)NEYRD~—Ne)IZ=olMuS-VOVTTsWOAV)ESOlFAMOT0N2o7ONMAAl)DAdCO=oXa-YwS0TsVDsvRMM@W)PESIINOT=R0=N7MOlVOPUGNe)EoNTO-O0aZtVTvIVsMWMe@D)WOFON1NOPbaPllE)A0TNY-NNXSFWtAVVDwe®)=FW)NOlTo8YMT7oO—IAR0eAIPD0Ea==olV-OOR0XloA..[WWv~\swI—RxE ~SWe—TNVUIeoOTeNM7VYGa9OoOAa=0lklIOolAI-))lDEtVNoVA0Mw[D)ToTY2NAONMeRFVoONMaOaLG0NVP)=WAe=oE-Y0—[tlMNI&vVMV/)UeYWLNFoNSOoEO8TEo1UOa)IMPRNe)O==lIAoOYD0NslSOeW)MWO1oTNF=VIeNMNVA)0=VeaIM1NROtEZL&MWOP)VOCDDOlNM7YAGSA)SPWIAEMlo1NAeOt0PV&o0ATOIT)TI0IM~ONoNo(oaNWlTNGDPAF==NeOQOtasOOAOMYVeFWMNNATSoo—8N=7NSGM)lARN=00=l0UAEMIsSOVWaBLW1BYeTENWooNBNYOP9DGAvM~~0==l}0TaWOMN1o&NEsOAWUX6)IINMI=WT(NeOOTLMYOM))A0IeVVNVEtNllSSs&POINTVON8N0IMIA0NWooGYeCGPRU)OE2=kMVNNWTIV0asl~ZITOW8)1FSNMeNIY=-OATNO79Ei0LAeuOOWTCYUSDNWMlnv4.Nw"wAww-xxAxD8—l6~NL)LoOI"NN—-NOOMEP§A)veiNy0Xs)2DeAv—=E)AVuOOMoI1IRIT[0a»—Vs0nN®)I(LAe"TOu-WMoFUlIN3NN=MWODeRa=)WYFINAoYOMRls!wSA*IIIvAVNT)T0-OTA~N="W0r2$LNZlSGP02mAVWNNY1I0A0EYso*a~V)DWXIo&AOUI=TOAY"SIrOeARV)LMRNlAYOaoWNND‘TOweNo(S.Ywsl(w-“XNgx~M6T)aIIW=VNA—TNAZ—lOeE8IaW%0l2vGAYV—WTARO|2X]IDl\MOTo2SeMWS8VNDL)V0NSIOaAOYoWNG)OAINRC4NVIlMEO%WM~OQrD6MNYP)IlENNATIMVMIoTAeLP5OUMWNAolPFesIY6Oo))lOV0OTWSeLXI<2IC1elMYAO=78oVCONRr,VIWAsZTDS&S)IV)lSIXFeoOMNNonA0eYvMRNO7RV~0PW,eoEWNO*D“SSKeA6IO))EAI~II)LNN,lO0MVolUlOesOSeAwA=MDNEeoVoENRWNVMw—eI8Y“OnXM))NeTeOZ0ONElIAAWOVAtBNLYN—TWwXO,VOenE—o¢eIM6W~ETrVMN\vLNEMleI0YOAalLBN~W4GOY)RWlNR—oUS~ZMDVNI—XOLo¢W20O%TD)0MN~FAV“)oAIenMaMelAOFUVNVTNwE}L~0It—VO¢&NCWM5oY6N)~VISODOI8eEMVNeevlMMGlASNFOFIOETWM-Mtl¢‘eIVee@YNNVTI=EeeIbiOMaAAlIAaDMLNONCODeV.&eAWOW)ENMelNMEN®+i—PIUFDIeND0eIobloIyNTMAlYOqyeV.4YtNOLNWMOsSWM&WSL8Te)UUA~lIAeeNZVPYNiNOAa4l0NTFINIeWWEEONa.0OfINNo&oWIFP\XEEDLeoOOeTO=eOWtiyAlIlA)SD0EA2\ONNLSe.eXEM&VOXO8=4TIUTIMMNOVee=WNNEiTSDIoAGbtODaA4MaoN.LNsO*&~ae°WWEWIUMlATYOXe0d8OOIeOeI4LANE)ISll—OTCoMr.VVV.S&NVMNS~)NZ4VYaOoNeDNEeO—N—SY8eniiOAZEAYe4DdAXOLNID.I=NoTMWSr&0eN)LTOlTsAoU=AM—I~4PAIMZ}VTIOV[o..vwwVMNONOMW—MtNE©UO)YaELOeIYIOTeSiO®0LV4IBA_SDclNwWWeTYO.I&«wXVUVS.N—~*oV0DcIeTWNOOLIvM-OVTVLN=T<YJNir4AEASO—W8]IolWNr.P&O&MNeODWFMeVFNIWAAMYFIieiIOlLQAND—ZwYaEeNI0AVOTS~Ni0oOF84)ILMAeAr—R-eellWLNlMDOIODobs&evo[0vwEw=~wOe-—x°Z)O4IVNINOTAOVEWlSiOAMtL,Q}MmNNeMeNO&I¢a0IAD&WoWa=4OILNIOmirTASLOdOAN—O)Dl0MOTZ’NNy=lD&MEiNIYNmi)8N4)IMwSe—OCeAel—iMOenOIOUVNNd—TlWiW0VaO—EIZ=oVVI4RNDngn=oATGLdTOd4IlUINMMVNN.sOMeNOeiLXOe=IIiOOT=Sell)G4W=IVMO=-PsoO0IiMNeVTIYNN—LelLiSPNIAOlONOeoE[Ae[.M-W0(N—wLt3wOoi-¢x=D~UOs=D4aMaPeeOEe—2TYLllAML¥VUI—YSe]b]]Rr0NloNLOOOTeON ONe=E=AOOMAU—2oo[l[|NBOZSNA TEOZoQ(2~a]A-—(~w,-«<aI ..VooN Vm-[ex|A~~—O€]E o40%xc][E504—]p+—)][
il ~Nao

o —

w w o o N [Va) ~3

~ ~N o

VUVRVUAVRVVURVRVVAVVUVVURVEVUVUVUVESVIVUVUTUVOTUNVESVOVUVURVUVRVRVEVORVERVEVOEAVSRVAAAYAReReRAoL"2L
~O0 NNANLl
—N=FOlNONeIlTMe—NOloNIMMlONMeTilOoNO loOMNl-oOAIloIeOPtalr)
OYVMODY)0NYOWVOO~VON 0NRIVWOENONN0IVOe0NVOU—P0VOMoe0O=IONOOV0
oMM
—§——M— =%%&&& —M&b%—%—|
NsLPOOlaO)[-NlJeaOllOOaJeIlNlOLoaTOlToloO=alINoOlALleaIIaelMll~LoIa-lOleiOlaoTl—l[

NTOV

MACRO v03.01
K

£2'2b"al"tal"s)

w WO
ONo

ERROR MESSAGE TABLE

CIZRMNAQ RM0S5/3/2 FCTNL TST 2
11-APR-80 13:17:48 PAGE 43-4

SEQ 0255

EX [R, «= oW

x %) ~ ~” o

100616

07775¢

000000

100002

000000

100541
100561

100616
100616

11 071320
12 071332

100133
100172

100327

100541
100541

100541

100616
100616

}2 071356

100465

000000

& 071260

2 071264

7 071270

8 071274
18 071306

}2 071344

077763
100031
100057

100743

000000

EHTI:

EMT2:

.WORD

WORD

EH1,STSH1,STSH2,STSH4,0

EHT110:

.WORD

EH110,0

EHT114:

,WORD

.WORD
.WORD

EH114,0

EH223,STSH1,STSH2,STSH4,0
EH256,STSHI,STSH2,STSH4,0

EHT336:
EHT337:

EHT344:

.WORD
.WORD

.WORD

EH336,STSHI,STSH2,STSH4,0
EH337,STSH1,STSH2,STSH4,0

EHT353:

.WORD

EH353,0

EHT111:

100616

EHT223:
EHT256:

.WORD

STSH1,STSH2,STSH&,0

EH111,0

EH344,STSH1,STSH2,STSH&,O

Taata ot Talaloda laoloslaalolaslastaslaslacloalaslaalasloala laalaalaalaalaataakaalaalaaleola slaa¥e ok o ataalaolaalaalaolaataalata,l

100541

T o Mo o

077735

To T

071236

SEQ 0256

% 071250

&
L
11-APR-B0 13:17:48 PAGE 44

ERROR MESSAGE TABLE

MACRO v03.01

CIRMNAO RM05/3/2 FCTNL TST 2

O[V][-VEV\ORV—E)O0YOV[FU[4OSVRN~V][
—V-ge—e—d—v-4e’g2aR—l—’Sa-~-RB—S N—5-7~— —-4N—~S—L -MO-=M~-—
—[o(4~=Vy)[42-oY[44]aa0aX.Y4x)laaa-Y—l0[l[a~L« [OL4]~[«Yg-Q.O&o~—)Oeoo[—ol—~LNwVeoo]sdey(e0LL]x=v—ooYk

WIVIVIVIVIVIVIVIVIVIVIVIVIVIVIVIVIVIVIVIVIVIVIVIVIVIWVIWIWIWDYIVIWICIWIVCIVIVIVSIIVIIIOIIWIWIWIWIWIWIWIWIWIIWW

O 0OOA~NgOe0O0O— ONV0 O ONOoe> —OY
—- 4O-LA—0 = = Oo&-—
=
—
r
—
3 3 3 3 =-3— -323

NOoOOOoOOOor0-OIOoNOOIMOO0SNO0TONOONOOM
ERROR MESSAGE TABLE

101076

071450

MACRO v03.01

101114

EDT223:

EDT114:

.WORD

ED3
ED3
ED3

ED35)

Nwed

CZRMNAQ RMOS5/3/2 FCINL TST 2
11-APR =80 13:17:48 PAGE 45

-0

1 D2,57SD4
1SD4

[TXV}

ED223,STSD1,ST1SD2,STSD4

ED114

o 15D2,575D4

.S 15D2,STSDé
S 15D2,57504,0

SEQ 0257

-[OVV~—][O-YaVYIVaEY0VaY-l)VoY]0VO-—RyV-IV-B[=I-e,l[—=~S—]YV
~)—-34[-V[—+)]&asVXM[3ovi-g——glEVR),Vaso&3VlOi—GX,i.Va3.—L«xl(][I[--[VVTRLe—V,]-(W-2S4—~--~7[V24—eiNV—,—.3~ht[—--TV—I-~SS—V—D[-[—VV—W]3wx—--(DIJYi2V7—rLw,owe]N-3[LVd—T——|
©O©-NNN—V OOOO-ATV0oY0—VOSRVOO-SNAO0SROO-XA00RNNOO-L0O0
O oOVLaS0n OV~O OV oo[
OV-e V—OrVAO—0VA[ Vo—~iVi VeU VA RPOS.—O~—[V
Nw gMOMMMM -TM00Ny -Ov—r— 0eNe
~5 -V0——«iV-g-O[—V -—7-5 O s—-u--

gN—M-OgNVdMgoOIl[OoFdTM-NYOAO-00Oo——Co-d
NA~[n -r— -—

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

(¥

.WORD

LT(XwUV7,e wIvVwnwm (w%mm]v

>0 ) * o4o)olLol

MACRO v03.01

—e— —

ERROR MESSAGE TABLE

CIRMNAO RMO5/3/72 FCTNL TST 2
4

SEQ 0258

50
51
52
53
54
55
56
§7

073645
073660
073707
C73725
073753
073771
074037
074107

115
116

EMSS:
EMS6:
EMS?:
EMS10:
EMS11:
EMS12:
EMS13:

.ASCIZ
.ASCIZ

@COMMAND NOT COMPLETED, a
@CONTROLLER NOT READY (RMCS1, BIT 7) @
QDRIVE NOT READY 'DRY'' (RMDS. BIT 7) a
@GO NOT RESET ''6O'' (RMCS1, BIT 0) @
RINVALID @
@FUNCTION CODE (RMCS1, BITS 1-5) 3
aMASSBUS @

102
042
042
104
103
101
123
042
Q42
042
127
042
042
0642
042
062
062
062
110
106

042
042
042
042
12
104
101
M
111
104

104
106
104
042
11
108
104
106

125
114
10
111
13
106
1264
127
125
127
122
115
104
105
104
115
104
110
105
117

i
117
123
120
110
105
126
196
116
125

101
117
101
‘20
123
117
101
125

123
102
117
123
114
104
101
116
120
103
111
104
103
103
116
130
124
103
101
122

101
120
113
111
105
124
040
103
126
122

124
105
126
101
040
115
126
122

EMSQ2:
EMS23:
EMS24:
EMS2S:
EMS26:
EMS27:
EMS30:
EMS31:
EMS32:
EMS33:
EMS34:
EMS35:
EMS36:
EMS37:
EMSA0:
EMS41:
EMS42:
EMS43:
EMSek:
EMSeS:

EMS68:
EMS47:
EMSS0:
EMS51:
EMS52:
EMS53:
EMSS&.
EMS5S:
EMS56:
EMS57:

EMS60:
EMS61:
EMS62:
EMS63:
EMS64:
EM365:
EMS66:
EMS67:

.ASCIZ
.ASCII
.ASCIZ
.ASCIZ
.ASCIZ
ASCIZ
.ASCIZ
ASCIZ
.ASCIZ
[ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

J¥°)
X
X

.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

EMS17:
EMS20:
EMS21:

EMS1é:

101
117
122

103

122
110
117

115

Q@CONTROL @
@BUS PARITY ERROR @
@ MCPE' (RMCS1, BIT 13) @
@IRANSFER ERROR (RMCS1, BIT
Q@SHOULD NOT BE SET a
@WORD COUNT (RMWC) @

124
123
127

062

EMS14:
EMSIS:

.ASCIZ
.ASCIZ
ASCIZ
[ASCIZ
.ASCIZ
.ASCIZ

14)

040
126
116
123
116
123

11) @
12) @

C X

117
116
125
101
117
125

.ASCIZ

@UNAVAILABLE '‘DVA" (RMCS], BIT
@NONEXISTENT "NED'' (RMCS2, BIT

@BUS (RMBA) @
@''LBT"' (RMDS, B'T 10) a
@“AOE' (RMERi, BIT 09) a
@DISK (RMDA) @
@CYLINDER (RMDC) @
WADDRESS @
@STATUS @
@WLE" (RMER1, BIT 11) a
@'UPE'' (RMCS2. BIT 13) a
@'WCF'' (RMERT. BIT 5) @
@WRITE CHECK ERROR-‘W(E'' (RMCS2, BIT 14) @
@' MOPE' (RMCS2, BIT 8) @
@'DCK" (RMERI, BIT 15) a
@"ECH' (RMER1. BIT 6) @
@'DLT' (RMCS2. BIT 15) @
@'WXF'' (RMCS2. BIT 9) a
@"DTE" (RMERT, BIT 12) @
@'MCRC' (RMER, BIT 8) @
@HEADER COMPARE ERROR 'WCE'' (RMER1, BIT 7) 3@
3FORMAT ERROR "FER'' (RMERT, BIT 4) @

@'"IAE'" (RMER, BIT 10) @
@"OPI" (RMER1. BIT 13) a
@''SKI'' (RMERZ. BIT 14) @
@“PIP' (RMDS, BIT 13) a
QTME RM @
QDETECTED @
@AT AN UNEXPECTED @
SINCORRECT DATA DURING @
SINVALID COMMAND ERROR “'IVC'* (RMER2, BIT
@DURING DATA TRANSFER @

@DATA READ @
@DOES NOT COMPARE WITH @
@DATA WRITTEN @
% PAR" (RMER1, BIT 3) a
@IS INCORRECT @ ~
Q@COMPOSITE ERROR '‘ERR'* (RMDS, BIT 14) @
@DATA PARITY ERROR 'DPE'"
(RMER2, BIT 3) @
@DURING SEEK COMMAND @

111

[ASCIZ
.ASCIZ

122

107
1N
106
115
103
102

EMS3:
EMSL:

104

101
116

o® on

117
117

116
117

073251
073316
073343
073372
073421
073647
073457
073471
073513
073542
073617

103
103

125
116

39
&0
61
2
43
4,
S
46
7
48
€9

@DEVICE WENT @

37 073147
38 073176

.ASCIZ

20 072412
21 072426
22 072454
23 072503
26 072520
25 072541
26 072552
27 072562
28 072611
29 076640
30072666
11072737
32 072766
33 073015
3 073043
35 073072
36 073120

@WRONG UNIT "ELECTED (RMCS2, BITS 0-2) @

EMS2:

17072304
18 072344
19 072367

.ASCIZ

126

16 072254

EMS1:

105

12)

14 072221
15 072232

117

104

7071752
8 071762
9072027
10 072076
11 072136
12 0722147
13 072210

122

ERROR MESSALE STRINGS

5071626
6 071667

127

SEQ 0259

.SBTTL

3071560

!
6 071607

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

TN 4

MACRO v03.01

L od oX

CIRMNAOQ RMOS/3/2 FCTINL TST
ERROR MESSAGE STRINGS

CIZRMNAO RM0OS5/3/2 FCTNL TST 2

ERROR MESSAGE

STRINGS

58
59
60
61
62
63
64
65
66
67

0746134
074146
074161
076411
076206
074225
076233
076264
074312
074340

138
105
11
106
106
114
104
042
042
042

70
71
72
73
764
75
76
77
78
79

076424
0746453
074502
074521
074550
074561
974623
074645
074675
074721

042
042
110
102
101
127
101
126
116
015

68 074366
69 074415

80 074724
81 074754
82 0764776
83 075017
84 075062
85 075117
86 075162
87 075214
68 075257
89 075322
90 075361
91 075617
92 075457
93 075503
94 075526
95 075570
96 075633
97 075660
98 075715
99 075736
100 075764

10°
102
103
106
105
106
107
108
109
110

106
105

‘23
122
123
11
m
117
125
122
IR
i
125
122

114
114
105
125
106
110
1264
110
117
012

060
122
0640
106
106
123
122
115
116
116
122
122

102
123
101
123
106
105
040
105
116
000

110
101
117
117
125
117
122
124
101
103
103
101
117
116
117
110
122
122
105
115
122

105
111
126
116
123
116
122
126
111
103
103
111
126
111
116
057
111
111
104
117
111

117

106

042
125
042
123
117
040
042
042
120
116

112 076267
113 076305
116 (76322

116
122
122

C
3
11-APR=-80 13:17:48 PAGE «&7-1
SEQ 0260

126
106
116
103
102
103
105
101
115
105
105
115
116
125
103
122
104
104
115
042
104

076001
07¢027
076037
076066
076105
076122
076141
076165
076211
076233

111 076247

MACRO v03.01

104
116
125
110
106
126
117
126
101
117
117
124
LR

126
123
116
117
106
117
115
126
103
126
124
103
120

EMS70:
EMS?71:
EMS72:
EMS73:
EMS74:
EMS75:
EMS76:
EMS?77:
EMS100:
EMS101:
EMS102:
EMS103:

EMS104:
EMS105:
EMS106:
EMS110:
EMS111:
EMS112:
EMS113:
EMS114:
EMS115:
EMS116:

EMS117:
EMS120:
EMS121:
EMS122:
EMS123:
EMS1264:
EMS125:
EMS126:
EMS127:
EMS130:
EMS131:

EMS132:
EMS133:
EMS134:
EMS135:
EMS136:
EMS137:
EMS140:
EMS141:
EMS142:
EMS143:
EMS144:
EMS145:
EMS146:
EMS147:
EMS150:
EMS151:
EMS152:
EMS153:
EMS154:
EMS155:
EMS156:
EMS157:
EMS160:

.ASCIZ
_ASCIl
.ASCIZ?
_AS(IZ
.ASCIZ
.ASCIZ
.ASCIZ
,ASCIZ
.ASCIZ
ASTIZ
.ASCI2
_ASCI2

.ASCIZ
.ASCIZ
.ASCI2Z
.ASCIZ
_ASCIZ
.ASCI1
CASCIZ
_ASCIZ
_ASCIZ
.ASCIZ

.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

Q1S RESET @
@ERRONEOUS @
QIS SET @
Q0ID NOT SET @
@DID NOT RESET @
@LOST @
QDURING PACK ACK COMMAND 3
@''RMR'' (RMERI, BIT 2) @
®''ILR' (RMERY, BIT 1) @
@ILF'' (RMER1, BIT 0) 3
SDURING SEARCH COMMAND a
@ERROR 3

Q''LBC'' (RMER2, BIT 10) @
@''LSC'’ (RMERZ2, BIT 11) a
@HEADER ERRORS @
@BUS TIMEOUT (04 TRAP) @
@ADDRESS @
QWHEN READING/WRITING Rn REGISTERS &
QAT THE FOLLOWING @
@THE SELECTED DEVICE IS @
@NONEXISTENT DEVICE @
<CR><LF>
@THE MASSBUS CONTROLLER @

@FAILED TO DETECT @
@NOT AN RM05/3/2 @
@CONTROL STATUS REGISTER 1, RM(CST,
@BUS ADDRESS REGISTER, RMRA, 3
QCONTROL STATUS REGISTER 2, RMCS2,
@ERROR REGISTER 1, RMER1, @
SATTENTION SUMMARY REGISTER, RMAS,
SMAINTENANCE REGISTER #1, RMMR #1,
SECC POSITION REGISTER, RMEC1, 3
@ECC PATTERN REGISTER, RMEC?2,
d
SMAINTENANCE REGISTER 2, RMMRZ, @

3
a
3

@NOT INITIALIZED BY @
@UNIBUS INITIALIZE @
SCONTROLLER CLEAR, ].E.
BIT S OF @
QRH/RM ERROR CLEAR (RM(S1, BIT 14) @
SORIVE CLEAR COMMAND @
QDRIVE STATUS REGISTER, RMDS @
SMEDIUM OFF LINE @
@'MOL'' (RMDS, BIT 12) 3
@DRIVE FAULT @
@'DVC' (RMER2, BIT 7) @
SUNSAFE @
@'UNS'' (RMERY, BIT 14) @
QSHOULD BE SET @
QOFFSET MODE @
@ VOLUME VALID @
Q''OM’ (RMDS, BIT 0) @
@ vv''
(RWDS, BIT 6) @
@PACK ACK COMMAND 3
@NOT SET BY @
@OFFSET COMMAND @
@NOT RESET BY @
@RTC COMMAND @
QRIP (OMMAND 3

CZRMNAQ RMO5/3/2 FCINL TST 2

ERROR MESSAGE STRINGS

115 076337
116 076367
117 076367
118 076413
119 076462
120 076474
121 076510
122 076535
123 076562
124 076611
125 076644
126 076664
127 076701
128 076707
129 076735
130 076764
131 077006
132 077023
133 G7707
1364 077121
135 077134
136 077162
137 077174
138 077221
139 077246
140 077257
141 077275
142 077320
143 077343
146 077361
145 077402
146 077432
147 077465
148 077505
149 077555
150 077606

}g; 077663

MACRO v03.01

117

106

104
11
103
125
122
042
127
105
116
122
104
104
042
i
103
104
104
11
042
105
127
042
127
127
120
127
123
120
104
114
123
102
101
110

125
123
13
116
105
101
110
122
117
105
101
125
117
116
101
11
125
116
127
130
11
107
122
101
122
101
105
122
125
117
105
101
040
105

122
040
114
105
103
126
105
122
116
103
124
122
120
0640
116
101
122
103
122
105
124
117
111
123
117
123
105
117
122
117
101
1064
104
101

116

117

116

0
5
11-APR-80 13:17:48 PAGE 47-2

EMS161:
EMS162:
EMS163:
EMS164:
EMS165:
EMS166:
EMS167:
EMS170:
EMS171:
EMS172:
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:

EMS224:

.ASCIZ
.ASCIZ
.ASCI]
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
._ASCIZ
.ASCIl
._ASCIZ
,ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCI2
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

SEQ 0261

SOFFSET REGISTER (RMOF) 3
; CUNUSED>
@DURING RECALIBRATE @
@IS INTERMITTENT OR DRIVE DIDNT DROP ON 3
QCYLINDER @
QUNEXPECTED @
QRECALIBRATE COMMAND 3
@"ATA" (RMDS, BIT15) @
SWHEN READING REGISTER @
QERROR REGISTER #2, RMER?, a
@GNONRECOVERABLE 3
QRECOVERABLE @
QDATA @
QDURING WRITE COMMAND a

Q@''OPE' (RMERZ2, BIT 13) 3
@IN WRITE PROTECT @
SCAN NOT SET a
@DIAGNOSTIC MODE °''DMD'' (RMMR1, BIT 0)

@DURING DIAGNOSTIC MODE a
@INCORRECT @
@'WRL'' (RMDS, BIT 11) &
QEXECUTED a
&WITH COMP ERROR SET @&
@''G0"' (RMCS1, BIT 0) @
@WRITING @

@WAS RESET BY @
SPROGRAM INTERRLPT 3
@WAS NOT GENERATED &
QSEEK COMMAND @
QPROGRAM TIMEOUT @
QDURING LOOK AHEAD TEST @
@&LOOK AHEAD REGISTER,RMLA, 3
QSEARCH COMMAND @
@BAD SECTOR ERROR 'BSE'' (RMER2, BIT 15) a
@A DATA TRANSFER COMMAND a
@HEADER COMPARE INMIBIT '‘WCI'' (RMOF, BIT 10)

QNONEXISTENT MEMORY “‘NEM'' (RM(S2, BIT

11) 3

CIZRMNAQ RM05/3/2 FCINL TST 2

ERROR MESSAGE STRINGS

077735

105

130

2 077754
2 077763

102
040

125
122

5 100002
6 100031
7 100057

122
105
105

105
130
130

g 100105

123

124

10 100133
11 100172
12 100231

107
122
137

104
115
137

}2 100270

105

15
16
17
18
;8

100327
100367
100425
100465
100504

122
137
105
105
074

100561

040

23
24
25
26
gg

100616
100663
100705
100743

040
040
040
040

22 100606

040

130

115
137
130
130
103

122

040

122
040
122
122

MACRO v03.01
120

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

EHY:

123
115

EH110:
EM111:

103
120
120

EHWI14:
EH223:
EM256:

101

101
103
137

EM336:
EH337:

120

LASCIZ

.ASCIZ
_ASCIZ

QEXPCTD

@QBUSADRa
@ RMCS2

SEQ 0262

RECEVDQ

RM(CS1a

_ASCIZ
.ASCIZ
.ASCI1

@QRECEVD
QEXPCTD
QEXPCTD

SNGPRT
RECEVD
RECEVD

DULPRTA
DATAa
RGSTRA<CRLF>

LASCIZ

QSTATUS

STATUS

INDEXa

.ASCI2Z
.ASCI1
LASCID

QGDADRS
GDDATA
BDADRS
BDDATAa
QRMCS2
STATUS
FAILING
DATAR<CRLF>
@
.
e
a<CRLF>

LASCIZ

QEXPUYO

.ASCI]
ASCIT
ASCI2
_ASCI1
LASCIZ

QRMER1
STATUS
HEADER
FAILINGR<CRLF>
8
.
WORD
BITa<CRLF>
QEXPUTDO""RETEVD
NUMBER
POSITONS
QEXPCTD
RECEVDA<CRLF>
@<CRLF> RMLA
RMLA
RMOF 3

"RETEVD

BYT

105
137
120
120
122

EM344:

115

STSHY:

L_ASCI]

@ RMCS1

115
040
115
115

STSH2:

.ASCII
ASCIZ
.ASCIZ
.ASCIZ

3 RMWC
RMBA
RMDA
@
RMEC1
RME(C23
@& RMDA
RMDC
RMOF
@ RMMR1
RMMR2
RMDT

040

EM353:

STSH3:
STSH&:
.EVEN

LASCIZ

RMAS]

RMCS2

RMDS

""ABDRESSa

RMER1

RMER23

RMOF

RMD(a

RMLAR
RMSNa

CZRMNAQ RMOS/3/2 FCIN L TST 2

ERROR MESSAGE STRINGS

101002

2 101010

001140

001276

2 101014

001174

5 101022

001362

9 101032

MACRO v03.01

F
5
11-APR-80 13:17:48 PAGE 49
SEQ 0263

001142

000000

EDIV:

.WORD

001176

000000

EDI111:

.WORD

000000

001176

001200

ED110:

ED114:

.WORD

$GDDAT ,$BDOAT,O

$BASE,0

$TMPO.$TMP1.0

RMDTI,STMP1,$TMP2,0

001140

001142

001174

ED223:

.WORD

$GODAT,$BDDAT,STMPO.O

g 101042

001134

001140

001136

ED336:

.WORD

$GDADR,S$GDDAT,S$BDADR,S$BDDAT.O

10 101056
}; 101066

001140
001140

001142
001142

001174
001442

ED337:
ED353:

.WORD
.WORD

$GDDAT ,$BDDAT,S$TMPO,$TMP1,0
$GDDAT ,$B8DODAT,RMOF0,0

13
16
15
16

001334
001336
001402
001342

001344
001340
000000
001370

001346
001342

STSD1:
STSD2:

.WORD
.WORD
"WORD
.WORD

RMCS1]1,RMCS2] ,RMDS],RMERT] ,RMER2] ,RMAS],0
RMWC] ,RMBA] ,RMDA] ,RMOF] ,RMDC],RME(C1]
RMEC2{.0
RMDAL ,RMDCI ,RMOf
] ,RMLAL,O

101076
101114
101130
101134

}g 101146

001360

0013764

001366

001362

STSD3:

STSD4L:

.WORD

RMMR11,RHHR§I.RMDTI,RMSNI,O

000

STSF:

.EVEN

.BYTE

0.0,0,0,0,0,0

SEQ 0264

AN AP o

000

13:17:48 PAGE

[
o

PBRPA AR A RRA

101177

1 -APR-80

AARR

O—ONM
OO

ERROR MESSAGE STRINGS

MACRO v03.01

ARAAAN P

CIZRMNAQ RM05/3/2 FCINL TST 2

CIRMNAQ RMOS/3/2 FCTINL TST 2

ERROR MESSAGE STRINGS

MACRO v03.01

SEQ 0265

:STORAGE FOR GENERAL DATA TRANSFERRS

2 101206
3 101206

BUFFER:
BUFONE:

g 102212

000000

18 106222

177777

n
12

000000

104224

13
}g 105230

18 101206
19 101206

258.

;STORAGE FOR MANUFACTURES
MFGFIL: .WORD
0,0

000000

.Bikw

WORD

2%6.

-1

16 BIT MODE BAD SECTOR FILE
:2 HEADER WORDS

:256. WORDS OF DATA

STERMINATOR IF

FILE

IS FULL

177777
101206

.=BUFFER

000000

HELP:
LASCI1

200

101207
101210
101226
101244
101276
101327
101352
101372
101414
101442
101505
101525
101553
101617
101653
101710
101750
102003
102042
102100

200
14
055
124
124
124
124
124
124
124
124
124
124
124
124
124
124
124
124
124

50
51
52
§3
54
55
56
57

102612
102613
102647
102703
102720
102755
103001
103024

200
17
055

102133
102201
102245
102305
102344
102406
102433
102457
102505
102547

.BLKW

;STORAGE FOR USERS 16 BIT MODE BAD SECTOR FILE
USRFIL: .WORD
0,0
;2 HEADER WORDS
.BLKW
256.
:256. WORDS OF DATA
WORD
-1
STERMINATOR IF FILE IS FULL

20
21
22
23
26
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

BUFTWO:

6
7 103216

H
S
11-APR-80 13:17:48 PAGE S

124
124
124
124
124
124
124
124
124
124

123
055
040
040
040

11
055
061
062
063
064
065
066
067

061
061
061
061
061
061
061
061
062
062

123
055
011
011
017
017
011
011
011

060
061
062
063
064
065
066
067
060
061

<CRLF>

LASCI1
.ASCII
.ASCI]
.ASCI1
.ASCI1
.ASCI]
.ASCll
.ASCI1
.ASCII
.ASCII
.ASCI]
.ASCI1
.ASCI]
.ASCI]
.ASCI1
.ASCII
.ASCI]
.ASCI]
.ASCI]
.ASCI]

<CRLF>
SLIST OF TESTS@<CRLF>
@-=-==-=coccac a<CRLF>
am
CONTROLLER ACCESS TEST@<CRLF>
ar12
DEVICE AVAILABLE TESTa<CRLF>
ar3
DRIVE TYPE TESTa<CRLF>
aTé
FORMAT ZEROS@<CRLF>
ars
ZERO FILL TEST@<CRLF>
aTé
FORMAT CHECK ZEROS@<CRLF>
at7
FORMAT CHECK 2EROS W/ WCE ERROR@<CRLF>
aT10
FORMAT ONESa@<CRLF>
@T11
FORMAT CHECK ONES@<CRLF>
@T12
FORMAT CHECK ONES W/ WCE ERRORS3<CRLF>
@aT13
FORMAT MULTIPLE SECTORS@<CRLF>
@aT16
FORMAT W/ HEAD SWITCHING@<CRLF>
aT15
FORMAT W/ MID TRANSFER SEEK@<CRLF>
aT16
FORMAT W/ IMPLIED SEEK@<CRLF>
@T17
FORMAT EACH SECTOR ADDRESS@<CRLF>
@720
FORMAT EACH TRACK ADDRESS@<CRLF>
aT21
FORMAT PRIME CYLINDERS@<CRLF>

CASCI]
.ASCI]
.ASCI]

<CRLF>
@OPERATIONAL SWITCH SETTINGS@<CRLF>
@e-=ce-=cemcccccmcecicemaaa- a<CRLF>
aSwITCH
USER<CRLF
>
@e= = =
=
ecccemeccmccaciacaca- a<CRLF>
&
15
HALT ON ERRORA<CRLF>
&
14
LOOP ON TEST@<CRLF>
a
13
INHIBIT ERROR TYPEOUTS@<CRLF>

062
062
062
062
062
062
063
063
063
063

062
063
064
065
066
067
060
061
062
063

.ASCI]
.ASCI]
.ASCI]
.ASCI]
.ASCII
.ASCI]
.ASCI]
.ASCI]
.ASCI]
.ASCI]

120
055
127
055
040
040
040

105
055
111
055
061
061
061

.ASCI]
.ASCI]
.ASCII
.ASCII
.ASCII

@aT22
@723
@726
@aT25
aT26
aT127
aT130
aT31
aT32
@aT33

READ HEADER & DATA IN LAST SECTOR®<CRLF>
READ HEADER € DATA W/ AOE ERROR@<CRLF>
READ INVALID SECTOR ADDRESS@<CRLF>
READ INVALID TRACK ADDRESS@<CRLF>
READ INVALID CYLINDER ADDRESS3<CRLF>
FORMAT AT OFFSET@<CRLF>
IVC FORMAT TESTa<CRLF>
FORMAT ERROR TESTa<CRLF>
FORMAT HCE, FIRST HEADER WORD@<CRLF>
FORMAT HCE. SECOND HEADER WORDa<CRLF>

040

.ASCIl
.ASCI]

12
11
10
9
8
7
6
5
&
3
2
1
O

a<CRLF>
INHIBIT JTERATIONS@<CRLF>
BELL ON ERROR®<(RLF>
LOOP ON ERRORA<CRLF>
LOOP ON TEST IN SWR<7:0>3<(RLF>
TN1288<CRLF>
TNG4LI<CRLF>
TN328<CRLF>
TN163<CRLF>
TNBa<CRLF>
TNLQ<CRLF>
TN2a<CRLF>
TN1a<CRLF>

S r~

040

.ASCII
.ASCII
.ASCIlI
.ASCII
.ASCII
.ASCIZ

040
0640
060
0640
060
060
060

&
@
&
&
@
&
@
®
@
@
@
@

.ASCII
.ASCIlI
.ASCI]
.ASCIl1
.ASCIl1

NVY

040
040
040
040
040
040
040

061
061
061
060
060

¥
X
X
X
X
K

200

.END

000200

P>
PP
P
D DRI

;? 103343

040
040
040
040
040
040
040

040
040
040
040
040

103230
103244
103257
103272
103305
103317
10333

040
040
040
040
040

SEQ 0266

63
64
65
66
67
68
69

103061
103070
103121
103145
10317

58
59
60
61
62

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

ERROR MESSAGE STRINGS

MACRO v03.01

CIRMNAO RM05,3/2 FCINL TST 2

CZRMNAO RMOS/3/2 FCTINL TST 2

MACRO v03.01

SYMBOL TABLE

ABASE =
ACDW1 =
ACDOWZ2 =
ACKSTS
ACPUOP=
ADDWO =
ADDMW1 =

176700
000000

000000
047462
000000

ADDWS =
ADDW6 =
ADDW? =
ADDW8 =
ADDW9 =
ADEVCT=

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

AENV
=
AENVM =
AFATAL=
ALL

000000
000000
000000
063220

ADDW10=

ADDW11=

ADDW12=
ADDW13=

ADDW14=
ADDMW15=

ADDMWZ =
ADDW3 =
ADDW4 =

ADEVM = 000000
ADR
= 000001

AMADR1= 000000

AMADRZ2= 000000
AMADR3= 000000

SEQ 0267

ATNMSK=
ATNTBL
AUNIT =
AUSWR =
AVECT1=
AVECTZ2=
A6
=

000377
064506
000000
000000
120254
000000
000400

CHRCNT
(KSWR =
CLKADR
CLKVCT
CLR
=
CLRSTS
CMNSTA

033313
104410

001516

001520
000040

8804
BBOS
8B06
8807
8808
8809

=
=
=
=
=
=

000020
000040
000100
000200
000400
001000

046602
007612
CMPBUF
036462
CMPERR
044600
CNSLOO 063644
CNSLOY
063677
CNSLO2
063715
CNSLO3
063757
CNSLO&
063777
CNSLOS
064033
CNSLO6
064045
CNSLO7
064076
CNSLO8
064241
CNSLO9
064242
CNTCLR
046464
COMMA
063231
CONT
= 000100

81701
81702
81703
81704

=
=
=
=

000002
000004
000010
000020

CTLFG
CYLMSK=
DBCK
=
DBEN
=

A17

BACK

= 001000

BADSCT
BADTMO

= 000000

034276
005340

BAl
B8B00

= 000010
= 000001

8803

= 000010

8801
BB02

= 000002
= 000004

8IT0
= 00000
81700 = 000001

BIT05 = 000040

EFT114
EFT2

DBL

= 002000

EFT353

001326
001777
100000
040000

81710 = 002000

DISPRE

APASS = 000000

BI1T6

DRY

APTENV=
APTS12=
APTSPO=
ARGS
=
ASNDA
ASNDC
ASWREG=

BOTADR
BOTFLG
BPTVEC=
BSE
=
BUFFER
BUFONE
BUFTWO

81708 = 000400
81709 = 001000
8IT1
= 000002

AMAMS4=
AMSGAD=
AMSGLG=
AMSGTY=
AMTYP1=
AMTYP2=
AMTYP3=
AMTYP4=
AOE
=

8I1T11
81712
811713
8I1T14
BIT1S
8112
8113
8174
BITS

000000
000000
000000
000000
000000
000000
000000
000000
001000

APE
= 100000
APRIOR= 000000
APTCSU= 000040

000001
000200
000100
000004
001514
001512
000000

ATA
= 100000
ATESTN= 000000

8177
8118
8119

cC
(H

=
=
=
=
=
=
=
=
=

004000
010000
020000
040000
100000
000004
000010
000020
000040

= 000100

= 000200
= 000400
= 001000

033310
033312
000014
100000
101206
101206
102212

= 004000
= 002000

EMS105
EMS106
EMS11
EMS110
EMS111
EMS112
EMST113
EMS114
EMS115
EMS116
EMS117
EMS12

074453
074502
072136
(74521
(074550
074561
074645
074675
074721
074724
074754
072147

EMS120
EMS121

074776
075017

EMS122
EMS123
EMS124

075062
075117
075162

EMS127
EMS13
EMS130
EMS131

075322
072210
075361
075417

EMS133
EMS134

EMS132

101160
101161

075214
075257

075457

101163
101166
101172

EMS135
EMS136
EMS137

EHT110
EHTT11
EHTI14
EHT?
EHT223
EHT256
EHT336
EHT337
EHT344

071260
071264
071270
071250
071274
071306
071320
071332
071344

EMS140
EMS141
EMS142
EMS143
EMST144
EMS145
EMS146
EMS147
EMS1S

075503
075526
075570
075633
075660
(72221
075715
075736
075764
076001
(076027
076037
076066
076105
072232

EHT3S3

071356

EMS150

076122

100000
000001
000010
040000
020000
000400
004000
000010
052020

= 000200

EHT

071236

DSWR
= 177570
DTASTS
052622
DTE
= 010000

EHI
EH110
EHI1T

077735
077754
077763

EC]
ECRC

EMSI
EMS10

071540
072074

= 004000
= 001000

EMS103
EMS106

071536

EF110
EF111

DLT
=
DMD
=
DPE
=
DPEHI =
DPELO =
DPR
=
DRQ
=
DRVCLR=
DRVSTS

010000
024024
004000
000200
065032
020000
000100

EMS102

074312
(74340
074366
074415
074424

EMS125
EMS126

071476
071506
071516
071526

EF114
EF336
EF337

DTO
=
DULPRT=
DVA
=
pve
=
EARLY
EBL
=
ECH
=

EMSI00
EMS101

071474
071462

EFT223
EFT336
EFT337
EFT344

DEBL
= 020000
DEVSEL
045012
DISPLA
001156

000174

071362
071400
071402
071404
071372

071406
0714616
EDT337
071426
EDT344
071436
EDT353
071450
ED1
101002
EDT10
101010
EDIN
101014
ED114
101022
ED223
101032
ED336
101042
ED337
101054
ED353
101066
EECC
= 000020
EFTY
071452
EFT110
071470
EFTI11
071472

= 000015
= 000200

DCK
= 100000
DDISP = 177570

AMADRG
= 000000
AMAMS1= 000000
AMAMS2= 000000

EDTT
EDTI10
EDT11Y
EDT114
EDT?
EDT223
EDT336

CR
CRLF

81706 = 000100
BIT07 = 000200

AMAMS3= 000000

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

EHIYG
EH223
EH256
EH336
EH337
EH344
EH353

100002
10001
100057
100133
100172
100327
100465

EMS14

EMS151
EMS152
EMS153

EMS154
EMS15S
EMS156
EMS157
EMS16
EMS160
EMS161
EMS162
EMS163

076141
076165
(076211

076233
Q76247
076267
076305
072254
076322
076337
076367
076367

070166
070204
070222
070240
070256
070270
070304
065156
065400
070322
070342
070364
070376
070410
070422
070434
0704456
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
071140
071154
065450
071166
071204
071214

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
EMT364
EMT345
EMT346
EMT347
EMT3S
EMTI350
EMT351
EMT352

b B

067420
065310
067432
067440
067456
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

EMT207
EMT21
EMT210
EMT211
EMT212
EMT213
EMT214
EMT215
EMT216
EMT217
EMT22
EMT220
EMT221
EMT222
EMT223
EMT224
EMI225
EMT 26
EMT227
EMT2:
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
066526
066540
065232
066552
066564
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
EMT126
EMT127
EMTI3
EMT130
EMT131
EMT132
EMT133
EMT134
EMT135
EMT136
EMT137
EMT14
EMT140
EMT141
EMT142
EMT143
EMT144
EMT145
EMT146
EMT147
EMT15
EMT150
EMT151
EMT152
EMT153
EMT154
EMTI55
EMT156
EMT157
EMT16
EMT160
EMT161
EMT162
EMT163
EMT164
EMT165
EMT166
EMT167
EMTI7
EMT170
EMT171
EMT172
EMT173
EMT174
EMT175
EMT176
EMT177
EMT2
EMT20
EMT200
EMT201
EMT202
EMT203
EMT204
EMT205
EMT206

073176
07325
073314
073343
071732
073372
073421
073447
073457
073471
073513
073542
073617
071762
073645
073660
073707
073725
073753
073771
074037
074107
072027
07413¢6
074146
074161
Q74171
074206
074225
074233
074266
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
EMS45
EMS46
EMS47
EMSS
EMS50
EMS51
EMS52
EMSS3
EMS54
EMS55
EMS56
EMS57
EMS6
EMS60
EMS61
EMS62
EMS63
EMS64
EMS6S
EMS66
EMS67
EMS7
EMS70
EMS71
EMS72
EMS?73
EMS74
EMS?5
EMS76
EMS77
EMTVEC=
EMT
EMTI0
EMT100
EMT101
EMT102
EMTI03
EMT104
EMTI05
EMT106
EMTI107
EMTI1
EMTI10
EMT111
EMT112
EMTI13
EMT116
EMTI15
EMTI16
EMTI17
EMTI2
EMT120
EMT121
EMT122
EMT123
EMT12¢

076413
076474
076510
076535
072304
076562
076611
076644
076664
076701
076707
076735
Q76764
071607
072344
077006
077023
07707
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
071626
072552
072562
072611
072640
072666
072737
072766
073015
071667
073043
073072
073120
073147

SEQ 0268

b B

EMS164
EMS165
EMS166
EMS167
EMS17
EMS170
EMS171
EMS172
EMS173
EMS174
EMS175
EMS176
EMS177
EMS?
EMS20
EMS200
EMS201
EMS202
EMS203
EMS204
EMS205
EMS206
EMS207
EMS21
EMS210
EMS211
EMS212
EMS213
EMS214
EMS215
EMS216
EMS217
EMS22
EMS220
EMS221
EMS222
EMS223
EMS224
EMS23
EMS24
EMS25
EMS26
EMS27
EMS3
EMS30
EMS31
EMS32
EMS33
EMS34
EMS3S
EMS36
EMS37
EMS4
EMS4O0
EMS4Y1
EMs4?
EMS43

K
5
11-APR-80 13:17:48 PAGE 51-3

I N9

SYMBOL

MACRC v03.01

b 3

CZRHNA012SEE/3/2 FCINL TST 2

CIRMNAO RMO5/3/2 FCTNL TST 2

MACRO v03.01

SYMBOL TABLE

EMT353
EMT35¢
EMT36
EMTI37
EMT4

071220
071230
065460
065470
065164

L
5
11-APR-80 13:17:48 PAGE 51-4
SEQ 0269

FNCMSK=
FO
=
F1
=
Fo
=
F3
=

000077
000002
000004
000010
000020

IR
Ive
LBC
LBT
LF

=
=
=
=
=

000100
010000
002000
002000
000012

PHA
=
PIP
=
PIRQ =
PIRQVE=
PLFS
=

000200
020000
177772
000240
002000

EMIL0
EMTLY
EMT4L2
EMTL3
EMTAL
EMTLS
EMT46
EMTIL7
EMTS
EMIS0
EMTIS51
EMT52
EMTS3
EMTIS6

065500
065506
065516
065530
065540
065550
065560
065570
065172
065576
065606
065620
065636
065654

Fé&
=
GENBUF
GEY
GETBUF
GETINX
GETSTS
GO
=
GTSWR =
HCE
=
HC1
=
HCRC
=
HELP
HT
=
IAE
=

000040
036224
037110
001334
001522
037024
000001
104407
000200
002000
000400
101206
000011
002000

LODEV
LS
=
LSC
=
LST
=
LSTRK
MCLK
=
MCPE
=
MDF
=
MDPE
=
MEDENB
MFGFIL
M]
=
MIXED
MOC
=

064305
000004
004000
000002
001332
004000
020000
000100
000400
001510
103216
000004
064516
000400

PRIERR
PRO
=
PR1
=
PRZ
=
PR3
=
PR4
=
PRS
=
PR6
=
PR7
=
PS
=
PSEL
=
PSW
=
PUT
PUTBUF

EMTE
EMTE0
EMTOY
EMT62
EMT63
EMTOL
EMT6S
EMTE6
EMT67

065200
065724
065742
065762
065776
066000
066020
066040
066052

ILFO2
ILF24
ILF26
1LF30
ILF32
ILF34
ILF36
ILF40
ILF&2

=
=
=
=
=
=
=
=
=

000002
000026
000026
000030
000032
000034
000036
000040
000042

MS
=
MSC
=
MSDRVS
MSE
=
MSER
=
MSGDRV
MSHELP
MUR
=
MWD
=

000040
000002
064263
100000
000200
064277
063234
001000
000010

050256
000070
104411
104412
104413
RDY
= 000200
READY
007764
RECAL = 000006
RESREG= 104415

RMHRO
001446
RMLA
= 000020
RMLA]
001354

ILF&46 =
ILF54 =
ILF56 =
ILF64 =
ILF66 =
ILF74 =
ILF76 =
ILR
=
ILRG50=
ILRG52=
ILRGS54=
ILRG56=
ILRG60=
ILRG62=
ILRG64=
ILRG66=
ILRG?70=
1LRG72=
ILRG74=
ILRG76=
J0TvEC=
IPCx0 =

000046
000056
000056
000064
000066
000074
000076
000002
000050
000052
000056
000056
000060
000062
000064
00006¢
000070
000072
000074
000076
000020
000001

MXF
=
NDTMSK=
NED
=
NEM
=
NOP
=
NOTAVL
NOTPRS
NSA
=
ocC
=
OFD
=
OFFLIN
OFFSET=
oM
=
ONES
ONLINE
OPE
=
OoP1
=
OR
=
PACACK=
PAKACK=
PAR
=
PAT
=

001000
115760
010000
004000
000000
064342
064325
100000
100000
000200
064361
000014
000001
064556
064373
020000
020000
000200
000022
000022
000010
000020

REX
=
RG
=
RGDTPT
RH
=
RIP
=
RLEASE=
RMAS
=
RMASI
RMASO
RMBA =
RMBAE =
RMBAE]
RMBAEO
RMBAI
RMBAO
RMCS1 =
RMCS1]
RMCS10
RMCS2 =
RMCS2]
RMCS20
RMCS3 =

RMMR1 = 000024
RMMR1I
001360
RMMR10 001434
RMMRZ = 000040
RMMR2]1
001374
RMMR20 001450
RMOF
= 000032
RMOFI
001366
RMOFO
001442
RMR
= 000004
RMSN
= 000030
RMSNI
001364
RMSNO
001440
RMWC
= 000002
RMWCl
001336
RMWCO
001412
RQA
= 100000
RAB
= 040000
RTC
= 000016
R6
=%000006
R7
=%000007
SADMSK= 000377

EMISS
EMTI56
EMIS?

EmMT?

EMT70
EMT71
EMT72
EMT7?73
EMT74
EMT?S
EMTI76
EMT?77
ENRGDT
EQUALS
ERR
=
ERRNMB
ERROR =
ERRTYP
ERRVEC=
ERTYO0
ERTYO1
ERTYG2
ERTYO3
ERTYOL
ESRC
=
FER
=

065664
065676
065714

065206

066064
066074
066104
066122
066140
066150
066170
066200
065144
063216
040000
033306
104000
032550
000004
033314
033322
033332
033341
033347
004000
000020

FIND
= 000001
FMT16 = 010000
FNCDTB
064406

1DXMSK= 000077
IE
= 000100
ILF
= 000001

ILF44 = 000044

IPCK1 = 000002
sPCK2 = 000004
IPCk2 = 000010

MOH
MOL
MRD

= 020000
= 010000
= 002000

MwP

= 000010

PDA
PGE
PGM

= 000400
= 002000
= 001000

PUTINX
PWRVEC=
QUES
RCLSTS
RD
=
RDCHR =
RDLIN =
RDOCT =

040106
000000
000040
0060100
000140
000200
000240
000300
000340
177776
002000
177776
037360
001410

RMDAI
001342
RMDAO
001416
RMDB = 000022
RMDBI
001356
RMDBO
001432

001551
000024
063225

RESVEC= 0060010

010000
040000
064516
000072
000020
000012
000016
001352
001426
000004
000050
001404
001460
001340
001414
000000
001334
001410
000010
001344
001420
000052

RMCS31
001406
RMCS30
001462
RMDA
= 000006

RMDC
=
RMDCI
RMDCO
RMDS
=
RMDSI
RMDSO
RMDT
=
RMDTI
RMDTO
RMECT =
RMECTI
RMECI0
RMEC2 =
RMEC2]

000034

RMHRI

001372

RMLAO

001430

001370
001444
000012
001346
001422
000026
001362
001436
000044
001400
001454
000046
001402
RMEC20 001456
RMER1 = 000014
RMER11
001350
RMER10
001424
RMER2 = 000042
RMER2I
001376
RMER20
001452
RMHR
= 000036

SAVREG= 104414
SA1
= 000001
SA16
= 000020

CZRMNAO RMO5/3/2 FCTINL TST 2

SYMBOL TABLE

SA2
SA4
SA8

= 000002
= 000004
= 000010

MACRO v03.01

sw3
Sw6
Sw5

M
S
11-APR-80 13:17:48 PAGE 51-5

SEQ 0270

SECERR
SEEK
=
SEKSTS
SHUT
SHUT2
S1ZCLK
SKl
=
SNGPRT=
STACK =
STANDA
START
STCORV
STKLMT=
STOP
STSD1
STSD2

100000
000004
063120
003700
000100
000200
000400
001000
002000
000030
040740
000004
045224
056756
057034
037600
040000
020024
001100
006706
005420
056222
177774
056726
101076
101114

= 000010
= 000020
= 000040
sSwé
= 000100
SWw7?
= 000200
Sw8
= 000400
Sw9
= 001000
TADMSK= 177400
TAG
= 020000
TAGADR= 001114
TAP
= 040000
TA1
= 000400
TA16
= 010000
TA2
= 001000
TA4
= 002000
TAB
= 004000
TBITVE= 000014
TIMOUT
037722
TKVEC = 000060
TPVEC = 000064
TRAPVE= 000034
TRE
= 040000
TRTVEC= 000014
ST
= 010000
TSTNMB
033304
TSTPRP
033352
TSTQUE
001464
TSTY
010130
TST10
014130

STSD4
STSF
STSH1
STSHZ
STSH3
STSH&

101146
101177
100541
100616
100705
100743

TST12
IST13
IST16
TST15
T1ST16
TST17

015540
016476
017272
020104
020716
021540

$SATY3
$ATY4
$SAUTOB
$BASE
$BDADR
$8DDAT

062660
062670
001150
001276
001136
001142

$GTSWR
$HD
=
$HIBTS
$HIOCT
$ICNT
SILLUP

061414
000000
001100
062364
001120
062634

SWREG
000176
w0
= 000001
sw00 = 000001
sw0l
= 000002

TST120
1ST21
15122
TST23

022302
023044
023606
024112

$BIN
$COW1
$CDW2
$CHARC

057212
001302
001304
060216

S$ITEMB
SLF
SLFLG
$LPADR

001130
001220
063115
001122

SC
=
SCOPE =
SCTMSG
SCTMSK=
SCO
=
SC1
=

SC2
=
SC3
=
SC4
=
SEARCH=

STSD3

SWR

101134

00115¢4

Sw02
sw03
sw04
w05
Sw06
sw07
SWw08
Sw09

=
=
=
=
=
=
=

000004
000010
000020
000040
000100
000200
000400
001000

W10
SWw1l
swi2
SWw13
SWi4
Sw15
Sw2

=
=
=
=
=
=
=

002000
004000
010000
020000
040000
100000
000004

sWwi

= 000002

IST11

1ST2

TST24
TST25
157126
15127
15713
1ST30
TST31
15132
15133

014750

010314

024416
024760
025302
025620
010500
026532
027354
030136

031306

1574
010702
1ST5
011544
TSTé
012400
1517
013170
TYPBN = 104406
TYPDS = 104405
TYPE
= 104401

TYPOC = 104402
T1YPON = 104404
TYPOS = 104403

W
=
Wwed
=
WCE
=
WCEH] =
WCELO =
WCF
=
WCH
=
WD
=
WH
=
WLE
=
WRL
=
XSl
XXDP
ZEROS
$APTHD
SATYC

063611
040000
000007
020000
040000
104224
000001
000002
000004
000100
000040
000050
040000
010000
C04000
000040
000052
000060
000062
004000
004000
006462
001330
064620
001100
062676

$ODWe
$ODW7
$DEVCT
$DEVM
$DOAGN
$DTBL
$ENDAD
SENDCT
SENULL
SENV
SENVM
$EOP
$SEOPCT
$EOSP
$ERFLG
$ERMAX
$ERROR
$ERRPC
$ERRTB
SERTTL
SESCAP
SETABL
SETEND
$SFATAL
SFFLG
$FILLC
S$FILLS
$GDADR
$GODAT

001322
001324
001232
001300
032540
057420
032530
(032374
032544
001242
001243
032340
032366
032302
001117
001131
060626
001132
001690
001126
001210
001242
001326
001224
063116
001172
001N
001134
001140

UBUSQS
UNS
=
UNTMSK=
UPE
=
USE
=
USRFIL

uo
ul
U2
Al

=
=
=
=

SATY]

$BELL

$CKSWR
$CMTAG
$CM3
=
$CM6
=
SCNTLC
$CNTLG
$CNTLYU
$CPUOP
$CRLF

$DBLK
$OOW0
$ODWY1
$0DW2
$0DW3
$DDW4
$ODWS

062652

001212

$GET42

$INTAG

032520

001151

061324
001114
000000
000005
062222
062234
062227
001250

SLPERR
SMADR1
$MADRZ2
$MADR3
$MADR4
SMAIL
$MAMS1
$MAMS2

001124
001254
001260
001264

057430
001306
001310
001312
001314
001316
001320

SMAMSS
$MBADR
SMFLG
SMNEW
$MSGAD
SMSGLG
$MSGTY

001217

$MAMS3

$MSWR
SMTYP1
$MTYP2
SMTYP3
SMTYP4
SMXCNT
SNULL
SNWTST=
$OCNT
$SOMODE
$OVER
$PASS
$PASTTM
S$POWER
$PWRDN
$PWRMG
$PWRUP
$QUES
$RDCHR
SROLIN
SRDOCT
$RDSZ =
SRESRE
SRTNAD
$SAVRE
$SAVRG
$SCOPE
$SETUP=
$STUP =

$SVLAD

062241
001253
001257
001263
001267
060536
001170
000001
057662
057664

060522
001230
001106
062642
062474
062630
062546
001216
061666
061756
062264
000010
057102
032542
057044
062640
(60222
000137
177777

060466

$SVPC =
$SWR
=
$SWREG
$SWRMK=
$SWO8T
$TESTN

000204
167400
001244
000000
060540
001226

$7x8
$TKCNT
$TKINT
$TKQEN=

001162
061026
061036
061035

$TIMES

001206

001270
001222
001252
001256

$TKQIN
$TKQOU
$TKASR
$TKS
$TKSRV
$TMPO
$TMP1
$TMP2

061030
061032
061034
001160
061106
001174
001176
001200

001266
001102
063114
062252
001236
001240
001222

$TMP4
$IN
=
$1PB
$1PFLG
$TPS
$TRAP
$TRAP2

001204
000034
001166
001173
001164
062366
062426

001262

$TMP3

001202

CZRMNAO RMO5/372 FCTNL TST 2

SYMBOL TABLE

$TRP
=
$TRPAD
$1STM
$TSTNM

00001
0624
0O
0011

STIYIN

0622

. ABS.

8052

ERRORS DETECTED:

$TYPBN
$TYPDS
$TYPE
$TYPEC
$TYPEX

MACRO v03.01

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

057140
057214
057666
060100
060220

VIRTUAL MEMORY USED:
55176 WORDS
( 216 PAGES)
DYNAMIC MEMORY AVAILABLE FOR
69 PAGES
CZRMNA.BIC,CZRMNA/C=CZRMNA .DOC,CZRMNA,SYSMA(/M

$TYPOC
$TYPON

$TYPOS
SUNIT
SUNITM

057464

057500
057440
001234
001°10

SUSWR
SVECT1

SEQ@ 0271
001246
001272

$VECT2 001274
$XOFF = 000023
$XON
= 000021

$XTSTR
$$GET4=
$$5W08=
$OFILL

.$x

060240
000000
000034
057663

= 001100

~”-—oOLaSlaOMNOIOPeNIOANL[OAM—»&UONCAMMTMNO&T—Oo=oWN
(CREF

v01-05

)

N[[[ O-LKMNM&S.E8&JL-E«-a]NION-[L -« O2

CROSS REFERENCE TABLE

MACRO v03.01

&&« « -- -. -[ a& & -« s s& «-«
. « - [ LR -

s - - L)

sMeaO-M«N-«&«O&&M--«- «&8&—sNsOe«U«-« &V&(K]-M« O &0---T« s & 6--O & N]V& Q&IO[- s s& -a ON
& -« s a & " «

~- =« «OMOv._9O-20T86OM4WN0WNI3O.4o2N(e Wun

AUMWMaINuOQoWBA~anW—IArooOvDO—WNGoL0m[o)O(—P(o—wR]~"'2LLT~oF})J R]"eo-~—NAL~JEFWI[—yFVBIZrODWLA0—aG~WoMsw8IATQ)n0rUOamZw=OGeA YO—0eaNWaNV[~oOO«IoGNr[1l=A0WV—w=Ooo]o—0a€uxVNYI]~[NeA=OLnB[OovAMA%OZWV[]|]Va|)lDA0BqWNIRUAITRBM-Oa(NNNNwWGBML0Vea2«([]AO2®kENwV[6]—1'OIL1lao[A0}A)[lTL3WUNIBYmVMWANEWLIwTAV0A0NGDDNANW=G-[NU)0RLNLayROa=a)-WAn0A][00|D,SJ—O30BWONZNAVMDM—O-)2VNTNBI|0)I_NTORYNM)TeeV"MTO00_ANNN,VA—NNRAI6«AI9IO.yMYDIOMReWTSgeI3eNM(EI0W)—F~—IMRONNUeNMoAMII&MMIMO"PeNMoIM——~NTIRA—V—I=IA2OOEION—O—eTO=—=rIDIM7N—NUII4NMOOOFeMeONROIO-OOeXNM-rUQMV5INIT—NAFaSM0OIIAI—OOYDer—VEII7I—TaNSNN—TIOMRrMVVONLON0NaI—AM0EI—TeNFTDVe~NN3N—NIOIMYLA—MVVIOOVNNo8NVLVJMNVLFMWTNTAOSNMII2OVEOTNINC=L=W—O[OMN<ro=AoNW0Is1IN—VOeNIYYN<RVToN=I0VaII0OIoo5INx=]ONXAWOM—=oILO0IO—7ITINMOSO= LNa==NEoN—I0VrI=WT4eSONaIMAWNW—)PD—ORs0Vr[MyE0LROeNLN=Wo=N<WIs]IODXbN—]«[UAI<-[5OMV>0NMDA%DLM>N0O—2D>AU0-0MLRtNGN>0IANFMW—6=e0N0aATG~ON1O0.oFQ—GNAOMaaLaWA——wO0eNU0Md0ES1OAaOTM=WRaI&GA00&O0LTMO8yeaw0wIaweOO8LdnCDM0ueMa0etaMGaM880d0dO0OONeO0IaSaa0al0EUdNd0M0O0MVe4a€aa6NI~R0dL00(POOM€sVea-2[0AaGwGAo¢N1Do0l0M07"0N3o=o ~MAN[J
—--ao-[—o—]]0L!0[gla]¥0.—ne4[-[X]~.Vn)L—[Fa.-Ll oO-|BN(==w[]wM [owV]=]]1 ]" V|»t=|[][a aO)0MOO]OeMR0M—CWYsNNNa-I'O]V)—1],}OM.Y—NMOYaMMOTINYO,UeoVMU)YsN—eVOBRYWV—MJIUVoOTN)ANOIORRNNPVLNYA)DNNRo—U(IR(IINI]IUYMTo)NANTMOaDTRMWIJLDVOlWDX—C——E&&RPOERRNRNUNO—X-FNOROe@—IR[DINN—yaJYrJO.OlUVV—NO—NMOa0LIDIYrMr0NoClVV—OT—FIvOoMMDIR0S-IeaYOYrlAVLNUUNovF—aOODIR0WlAMMrWVLNOg7ioNVOLR0ImLNl—XieNIMe@—OoORAI0IL=VRlmgMtVeOTQNr—oaWO0II\J=T—2taNTN0NO0DNo—VOeNeRD|=E[~NDX=RLIIOT1Mo.—oNN—Oo)R&A@_N\[r—n[aLeA)X~=a=eVNIN&LIaL=5VMIaOlTQ]Y0RoOaNNF=——PIVT|[N[O]]«o.MMU aOaO6IMaMn0YB==0D000Owa=aGOad0nLO00OMMV0aGa00UdO8ddOLGOaaGa00OddOdOMmMM09"aaao0dd0N0Vaaa.1dd00
6[0a7-4L~[0FesBSseowR o]’ [}¥]o e8R9)NoNo—]L|V~],00QNO)D<AYoaVN)Y—AY7JVosP=7IR0NLo6ONoMYIOLo=—FV0Y1IWIcDMdaMDS=1aNIOCI&Xa=TOELNIM6oNOaODVMoIDlaLCeNNNvOO—ToIIaESL8NMVOGtLN¥TWIOaalOOL0NNvD]a—LW=lIOU0aVWVWOO7ee0\VV~oL[lWNaN—=D|$LdaULDVo]wNOo-—O]]1LVUTo]YL]0o[X[-e"-a[DaYq—VVEODOWDWODEWo€w)OooVYG6V3Y]uL00O0oo800llaAdaW0galaM18A0daL00lGM46a00d.lLMa0QaaLo0ll0
CIRMNAO RMO5/3/2 FCTNL TST 2
6
N =APR=-80 13:17:48 PAGE S-1

SEQ 0272

O&sN3EM—Cr=YyaM

W4ooYotoloYolololo7V]VIIVIVIaAVndLl

gOFM—ONIMe—r—r—DMWNTO
O&FOENNOFMNA—U IWOTONNOINIS&OM&D—NOQ—rOm=eN—U&WnO&FNKOOYNON
oONaO——~]&]ONNeVl&OYoMUNTeNlI&UMVaNla&~eeol—"V—eAOOl8I\NoJOFOlO&DaDNOINIr—loM—VMo—0=M—lNOe IWoNE =N =Dle&AaW—OO«0VOrF®L0«—iOO OeM0—aT=MW0eNVO&m0O—iA&W0LN0u«LL k
-0o—N*N]&MVaJe&5l4lO&a’¥="TeaOUoMAl&NL=&ao-=lL]LtFe 2Va)LaVIESLN
$GET4?2
$GTSWR
$HD
$SHIBTS
$HIOCT
$ICNT
$ILLUP

58-94
5-0#

38-11

38 9 *
38 6
38 1 1

[ g aVT VINToNT VT a1 ol ol ol ol al al al al ol

[YoaILVTVl1TaNToNT ]LoaNK6 LaVoBXIlT1]VIa

38-8#
(=487
47894

(CREF

9-96+

38-7

38-6
38-114

38-6

10-115+

38-6¢

10-122¢

O«

38-6¢

10=149¢

10-150

11-3
11-30

38-6

38-7
38-7

38-7+

LnAIoaNTNTdVl1YAIQN]

s—N
&ANMMN-«MNaNs NOO"&& ~
B LI s - >

TABLE

MACRO v03.01
v01-05)

——FOOONVON
ONMM
—
FO NTMIN O PTO —M

CROSS REFERENCE

a o -« - & -

CIZRMNAO RMOS5/3/2 FCTNL TST 2
1 =APR-80 13:17:48 PAGE S$-2

SEQ 0273

38-7

[ao4VIlYtWV¥

5-0#

38-8
38-8
38-8
38-8
38-8+

IIATDWDNad\dNd"\dCudCd(eVandNVetNeSelStSNt

$INTAG

SEQ 0274

|
|

(0 O0a !1 Uo] BWO|BIL—A0LNAo—LIooMMILWOOL| (oMWL]o]AROL gO—@Ogg%eA—~~ngrA—OgIggLuOmQO=eWIgneI—-||Lgg=/ ooe———(L_]3—[—
og[Nr)0VPa1OOgoVgVL—0oIVMOPa&0OL NOO110—a

][roVaO¥TNTOaV0TaON [4a¥(i=aV2]

go=aOJO“R—I—}UNWTOa—OoY—Eau—l"0VL_0w——RooL--.=g0aW]uYa'1aO0—[0]lNwToO3Wh7“MuEdNoN—OewDia¥—Ln0Sao"Ng00la1IL0EDaoO>g-arOlYGMLs0<0—aOoDz4al1—aLe0xXNarZs1Sae05—aO—MozO--16oAg[WU——0O-sanOIl8roLY0RNo—WL~~[waaa~-oeD])a')]O“T0M”y0vN0IalU[RlA-=V6—U—0NExsLwW6RX0LeMAaL-n-OEOa)Uty~0—z“lZaLs0LOwl6-OE0Wo—Nuoa=“E~QF—ILL=0a ~~c(NoaOo—~ -MO—YAoOG[-]W!! ]1'.=UUba0[NXA)lL~1a4N1oOaG}LLMOl10N.0oU7a~awgo.~YE6-a-Y]&“y0l0AXY.aosVVM3y1D&YGBI0FRJOTg/o(YNOMN~Te—MSe—WWgdWOolO80]|DO0eaNoVVNTCIFJBOO.w&oX—TNArOgMI0N=~N8V~CINTNaIoIOONa—C]lOIo—aVoXO=hDOVVaag0kIaA0r00TNTNNNtIlVTVoO—lMIoXae0MQeIORNg0—kIae0OO[0AN0rd6daak«—TMV=kXe0—XS—TSOO—0NINT0dS0I[«aaaIV~aOBNOVN|OAXXFOJI_3—AIg..lT—|T00LaNaIdoaVea—OTXXElGbrNW0.A3-LoL0GOOlMBsa—aB>EO0ll[OA0E3WZA0ae8NJ2A0O.WRN3O.AENa=LM.NoLZRaOGI}.U00Aan)aooaMoNN—P-NWQl&=-AU[|~m0)}0nSBaRloal—VW-OBN>0NeN-N—l>aoR[OU—AdNa»LrIl00ATRS0a00NND>Ll[LoAi®N=--Ra]G—Oaa2[V!Yn—]—0[l0l)ONoEbXFNdAoAN—UEE—ONVRXRNIsVNEAMO:ACRLNJV—OaN[Vo—oTNONn-(Wa~aN]A-I|Vl"|R0LV|_]RII[—[NlOogNeaal0OO(O0~~"ORLVV¥Y—IaeuII—0Va4]TN~VRrN—_VlMaI—]~VMmW~—X~oRgJv—OCAOoLOSLLYT1[I~V\[¥[[.Oo]+VNo4ECAoLNoRNaOkAixORaETOAOlxooaso06MCEaNo—LU]UV.L1oRe0a0O24AoO~aR10LOV)1Ylal3LD)aO]—oy)oxo[«eO-BaN3M"=Nrl~—a~AeaacM5MLaNOTNN'LL!0UAoM]UDno0[AaIeaYLIA~3nLMow]~-¥—"lNsd~dJ[+
~a0Y oLMa]l0y V0[-ROoTg-]V—V—ANVgN(-—gTagBoOOBOeTg-Og¥aWVNVo\PTIRgaINV/O=RWONNORo[NaNOMOV—OIe [[[MMOL-o¢~——aa—oVmYy¥_(V_]I1-oo——ua—~a[VVoz-acnl]]¥
TABLE

(CREF

%Wk

"W®R

xWRk

11-APR-80 13:17:48 PAGL

x*Rxk

L3n%

6
S-3

%W-zWw

®W

L=R

W% N

CROSS REFERENCE

MACRO v03.01
v01-05 )

&= =x & n

CZRMNAO RMO5/3/2 FCTINL TST 2
SEQ 0275

—

(-782

4-782

(-782

4-782¢#

4(-782#

L-782#

4-7820

4-782#

4-7824

9-19

SEQ 0276

S r~

(-782

MMMMMMMMMMMmAMMm
O e

6-782

mmmmmmmmmmmmmmmmmm

$SETUP

CZRMNAQ RMO5/3/2 FCTNL TST 2
(CREF

SEQ 0277

° —O O | WO 0000 O

G0GOadS0606DA0O AON~F ON=|46\W18L—2e2—O—8M38NM89N8ecNgJlO1—~"S rO85—W8N8‘88825880‘027293“8‘8‘9289

CROSS REFERENCE TABLE

6
6
1 ~APR=80 13:17:48 PAGE $-4

MACRO v03.01
v01-05)

(-488

4-488

38-6

38-8

38-8+

38-8¢

38-8

38-8»

-gV—gBgg—MgeO—0 O~WO 5O

O O—NM&& NeI—ONONO—&&

NW0oN—ANMA&NNIO-uCONNMINONMO- N¢0080

-s« go—ev=NON [oN&afnV)h. ONIMIGONI|Oe -& NL @AWNT—MD0\

38-8

gg—g—g-e—

NRO"ROo—O~M—MOO JO
B|Lal BaNl aB leR XN=JLIa LI

(B V- O 0 Me—

—g-ANo[aTV1QIaVT)EQN.ODN-|IBN g— g— g——g(ITNoVaaIg}TLDIB| b=»n N VQNT[aIa]TaILTaI|ON TO—WOO w=»n g— gp—e—

-B0S

38-10
38-10
38-10

38-10
H
6

38-10
38-10
38-10
38-10

38-10
38-10

(ool aalaalaalaalaale
N aala T o Naola Na o
o ¥
No N
T
¥, ]

38-10

laaYaalaalaalaalaalaalaata
laalaala Taalaatasla,l

38-10

38-10
38-10
SEQ 0278

ggggg— Lal.alLalal
—=Wvwn— -—»uMM—MNWMDPM=MM
<DVO[>IV(lR[e——=WaTV¥aIN—NaOTNg-TYW—IaaC"TV—=aLIeONna8TsaIY]NFToae—TNO]¥N1VB—aIBIaOYNVaYDOVaIYCVaOyBvOayI0T(VOoEIYJTVIo1BNZTgIaVI]ZToIX[F=OYBTVIOYV~8IJ7VOg~»aY0MNlVILOal0Va>X4V[ReDOV[aVNLN]e(~Q-9«51rAx—RVeAaW—>R~0[-O-oeA—N—]00AE=0o-o4«r03~—RAN—0OmAr0oGM6R—0OIAanN~M0AW—aVdAMNJMaoA0rBOaGMA—UdNEaGRJO0dZAa—VLdV0IAuMMaY0AZTYO©«MVN~—=ANn—V0NOraMMODo—V0Ya—d
~ADO ~.-—
-MOTxNOMgN[FM&NOOVR—CDVI||NaOVOOTg—V¥INIIMGeTWVrOaSYNONDV©V=NFIIgIBOOT~OLAN0OaYIBgL0EAMSNGTO0—MN—eIIILMaDDIGUON-—nw—AI[[TPW-wOWANW-wKY0Oa[-T=OA-UNTA-DDTOL=O)-TAI-TOSo=AI-NTWI=A-OYUWI=AN-0TL-—TV=M-AT=N-TAO-U%-VW0-AtPW]0-VOAU>Bw-ow-—W]NI[—A~—N>AAWOeINV=>SA(\rOI~]U=FZOL~RFrA~NFOy)AA]u~U.IFoLUMrGD0—W-L|Gr0ONG0UoMLr—G0E3mNrOdu[a<]w~—--Ee-w ])]]om0x[—.]VroX—Oxwo~On=FO~[nT-CVW-[ ][|JaM]—DN%)sFeAw}Cr0aLtO—eTOGr20ZtalO"GIsO0—OtAeGaeIOK0NtNMao—LeA]\d1Lry0u0M[ot]wAOaL1Wm—GRe¥n[0NE-tOuaoRvIN0tM0n>e6N7L0OtoMaI)N]laeEULUo0P.0Ge]AyIeGoawlL-OO[]N~.[o-COATr¥OtNO-BM0ECM13O=o—=N-3®W]GUUnR01—w.]YLOLae0—R10[0VY¥oVNDORO(.[=Ig|1pZMOT—]]V0]UL]aV6oa—WT¥VgVBoY0OOLT¥]A|IIJJaIJoV4TOaoYTo.0~~IeVNAaI=BBNB0gggXVTNTXO¢SPQRNONMevNg"——IBIV—BVYgBe0OgvIeoV==aTRlVyOVeOTNX@NBVIB"eLe[NS[LoVRaoaOLIV0O——lMVTONX~_L[gek[oTR[eL—Jaaa a="oLaVMaoo0M1Oa~M]a-[LY][L]}0YY0]0l0[[Q[gaawMOM—LaO-n=-lU[Le'0uo0L3»)Ll(oa—I~oO=M)0a]aa=eu!L—0]M0n0)[l
[a-BMpO-o)0V]][—a[gr¥aoe[¥—nYaI-0VaOIVJ—MaIL0aYaIoaT—edN.a(_TNo - M]~Y!lMo~--b!]——
CROSS REFERENCE

CIRMNAQ RMO5/3/2 FCTNL TST 2
TABLE

(CREF

MACRO vO03 .01
v01-05 )

é
I
11-APR-80 13:17:48 PAGE S-5

W"n%

mWWwm

SEQ 0279

2 O O>

|SARVYSRVEESL Ve[V

5-0

VY VeRVEVISVe VURISVSRV R [T

AENVM

5-0
SEQ 0280

~FON~FB—CLGCGDMGOGWPUPMPPARPIPlGeRSVe¢G-P=GOPNPOGNMgFeNGOPNGPO2][~a¥”]
4v2[1Xa-0~V)FE¥~N-}[X—4M—MOP)oeyOO0eeXe—aXeNeW0oOeekWGoMAJDeelOWoOeNfGXVO(MNIGoODeeX0oGKI—eMXeWGANoBOGNoOeIelPtMceoNIPaPoW~OlOPf¢Pe—Io¢PXOBOM—oPIPOoIAPsoT=OIONFoIIoeOPINoOkDIPXPIPIo=IlIPLOoIINLOXM[[aTalLwaU»lal((M©~=V1])3]] M
AOOOVePSAN[L0I44®oOVVOFOLRE2OoOXI@O—o]N-N[[[DapbOMOOBONNQ——PFORROK|eeNCNNNO~NUYOeICO—IOM—NNMAI—GMO3N—BO.IAONKOWLO—ONeGP~GMINLDO0ARNOoONeeODIGG3=—2IWNVVeONCeGCGeNIO=TOMIeLNNeO@NNGPeOIADIIVO(ePeVeNNNG7WBMIMAOON=oAeiMMPN=NN~MAAN8INeOOGGTAyONOCN5OII=®OIPIOG.V0~NNDOOMMOHVIOGPAIVIDNNIAMoNeeOOceOGG0IeNVOVe—OINNOOPAIPNMOMOIW*MN¢~sR0IAPINN2OMMNN3—vOOITOPOIeP¢ICWAONIM—NOIOPMI-NO2NOAIPNGNNNOODINN2PeTONOSIIIP0AO—IMNO3cMTCPN0OI OII—O—OS3OPrM0GOON—NENOIeSMOI0OOMLAm—MNOeM0NeRNMAbIT0—0OBN—LSONer MMM0E0leOOeTeRTIN—0—x0DTOWI0>[NN -o0Y—~]S—RN/0ON~O]OC[oOg~0N (M(oN-e va -—Va][ Y'=~[[ RNNal~—l2l4VNOO>0~OI0OVOM0OOAONOWo—o N-V
e444gMoO]4M-TaVa=o-—CV-vLU"'[2)araXN4klnRRll0L]noho<a~]awal~aO¥.¥Np|00[rsleL([NLL9e]W]aOAWO—p3V)|TV|0—RIVMVVaNaCIGm,N,—0eR]ANg—MV0VV,W— -MVAOANOBEIATTW—e2W— iOOoe0gPTNCVNCcoVCaM27NTTkeSOeyO-eG0—IGA-VOOVNVCDMTNOo—T3TTITNN—JBPBGoABaVVNBMSeOlTTEE—NTNIOGgGeaEOVV¥NNADCNVOOeTBOTl75MVeDggaKVSTVVCMEONUMNUgMTT0=eONIQSABGVGPDOteIADVoNVNORT0eNUTTN1EeMGgONPAOUNVWWAVTIOAoWOORTYNee1PgGgGNVoRN2NoTV[NOT8l1NhIeHIoIAGOGPgOoMYNTLSN3TOeNAVoceTeMQVeIcAOPNNPIlNNNSe.oTTVTIVorOsoNQNO1OAlIOPIeNVLTVaVaTNQRNHAPONNM¢eATOAlV—O0PNIWoaLYeNDTVNN~Oo*'T»TO¢l*-oF—eOveNOIa30G*NF¢NoVoT¥eVTQl——TNOV—OlIoNM—-eP0O0P~TNNOoTkTeVNOoAOMOOSeIMToRlOeIG0eI0PPNWkvoNTNTolNaOlIAOOoNTlNOeM00GGNION[MiMTaNNaNoNAOPEDoT—AdlO=0PFIO0NVNaIVR.NoINPT—NeaXOOPO0TSOlNlAAI8NIO0GN0NYNNTOeooCENMleOTrOFIlGOON0a0OGVaTN—aAVbaOVoF—L~AAvOONi—lWIT—MlOO003PGITOa[gaNIeIaoNNolSE0AOll—NSVN.=0M8GIITG—TADIVdaaao—AnONNROaNMGSdiOlOM&O0L0INlMTdN[LI0NRoaLiaNVINCONLoa0OP[(0tdoge o(oaWaa<oL -<o0oo( sNe 0L <~~--~—[o][)][]—]00}—]
xRN
R
B
P
R
E
R
R
E
-RRN RR xRtN ‘R R
3.R.E1BRLR3ERRERRRRRERERERRREERRERRRRRRTRReR R ==W x
B8—M-.1OR38L.OU330b5NAGO2WNBOVMRNARORRRtVRARNRNNR NORV
-0TTTT3 233333. t

-OmOOWnmOO-«JZV2<NOcN«ONLOo<IIxO«ON~IRNONNI0NNIIONIIRINNIIEONRNIAROONNIRNIEIONNIIMRNNIIENIRNNOIRNNIEOINRINNREIIDNNEANNANINNORONINCAONOOKVCaAA8O0qaW=CM8OV0~XqN€ao+C0Z—Wa—@aDC~0WaV<naLL) CxNNOSlv0 VoN LI=AL3i|dJ>1ONE—NLNTa—0NTOCEaISoNNOIaCIDNxEINIEZXONEINXOS—TOENINdALN CILN>NVdENAdTdL>NENOC=aN“A~4dw
CROSS REFERENCE TABLE

CIRMNAO RM0S5/3/2 FCTNL TST 2
(CREF

~LDoN.PGeg—aN)]

MACRO v03.01
v01-05 )
N -APR=-80 13:17:48 PAGE

K
6
S$-6

SEa 0281

5-0

WAMMWAWALAJBAJWAJWAJGAJLAJAGAJGAJAJAJGAJLAGhJMNSNdSlSlSlilNtStUlolS0NlVBlAl

ATESTN

5-0
SEQ 0282

iWLAblJ

0gq5g—g—3gG—85g—0i—12T(0p——3—1—0p3—7——15—&—9g5—6g8GG9G8e7GGOe—PMNGOGWOGNMFPONAONGPEPP0GNGooOO
OYOHqOnWPe—AOq2—p—R—OM-qNfNATPp—NM—NCgGOyTgG=OWApB—INORqAAV—GgNL8WNpR0—G|CNmM8(OgL—0eO—RWCNgGmS—VOMgMWCAgOG—VO—0MMOTWgRDBMG\—ONAGB=—GUOW.M—UOOP\CMRNNO(PM—ADE|OOG(iCPGGMWMUI(OgpN—WANc(LGeAIaVOVMGgc\N—aWOeOYNPfWe—NMaOgOPNG—WMUWMgVAIGANH—R—O=GOAMIsOM—AcUNV—Oc7LN—RoU=WM2OS*ONgeD-TGA(oeNeSMO=0gWeOXOIeOO3ANW3TeGNLDOe03WWOOGeMmNOONweRIAVEOLGANG3ONMWO0PNNOMTOIAOMONTO3INGOI.N3ABOPVOM3POOATLNO.MTNRWOFNOmSSNTwAOO—OOPwNMS|G\IYWIAOOOMNTAOMTDAWRPWOmOON\DGwOOW=NSVMVW|%EPNNONT—DAAT=0nw4nJX=n[«
AIgHRoNUgHRNOAqRUpAOgCRq—U(BN=OLNO-LRUCOYO-OgUDNOe—OPOVOPgAROPDOPUDRVPI.UOPVRGOPS=OPreoO=OPkeNOON=OPRO1NoO(Go2V0P&oO2(O3ROOPOO3O04WONN %=OxO5OO=NON5=6"=oOI=oS6Oo7NWOIwNP8NoPWo9oS4RePO9o
Y3Oa0BSU)W=L00»=8OAUTIM6~.nYT6OAE00WLYAIO~N|0ENMOwG0ANYOJWS0EOMn=|LTT8DYO~3YF0N0MOBVAG=W0OM<R1OBNDNU8AO&NIMC\WA0NRS8OM02eHWA0—O_I/w0UMATO0RNAO=|CV0M-V—0OBI|OMVA0.sS0OWM|VO0S|NRO8IRYAO0VW|oO0WNI\MOI00RVNWAOMLNnOAO®=|_-0ODRVEIION&eOONIOAISe=x0N]OIRoN0TIO0OVWe RAIM00O0T=—AbI0Ax|I00VI0hM3NALORW40nNO60OA0L0MN0O0NW|0LO8M=M00LNMWW08VLNW MReW0ONeAu—/[N

OHNOHOvgARW70N—ANa—OO=NO0A,=O=o—NAAgOYCoNNCW\NIOGJ—mAIoOWNOIG0~—CCBuV0H—OMAnIGOOLNBnw(COAwNONIAY00»—CO%R0ONOWINPOGAVARNDO=GNOQOCCCA0—PNBWWMMMOLNOGDYNADOCMRIOE=iBOY0DCRRNYMNVMONNOOG—AONI=OWPNDCODvG—tUAVOyEN.—NO(OODCNIPMDO=R—ADIOMOg.VMARON"NA—=OO0-VIIeT VAONFiP6—OONIIG.RtMD0NnOMU|VNOHIAIOgVlMwWRVS—NWVcNNWPOOO.0VNoIOMPVRNWcGscOPcOOVk—Neea0NecA—OOPOs.rVSRAeaBO=OcSANLOG-VsaWSNs—|=NVa(OO0O.meSO2Wvs5wNOOsO(AGeOVeO0w-veAM50OAPAO.0VNNIxO=M-GO®¢#¢OORGt+Ia\s0AOwOAeOAOvGO-NO5eOOO=VMGON.I.PNXN|OOOeO0OOG3W=ONNe5L.N.~O0NeOS0OOG|EN6VLNOXOOI—OO3G0@O.VO,NyNA=ReOOONLON—0N&NWIOVkNGRO-VOIDANOWMOONn0ONN ~GOO—.OODOOO0OOGA-VOOWDSN"IN3OOO0G&MIV.V1MSNO NAS=.OAGOA-R0NNOONRXOONO0VNg.AV3.NWNTO0—IONeOILV.RS2SW=SSOO0OIGVn.—O|SWNO(OOOA0eGONON=NNWNIO0yGnO-M|AOOOTNONEP0GOY.NMOMNTIWONSORFO0GNIVMMOOMNN==OO08z.MkOMNAPN0ONM0MOOSNNWNOeO—=Nl0oNrM=GNTOAXWA—e.E0.V30ONNNEOoIN—N$LISNOMOAL-—’O-a——T
NMH0AYgOANqWgNpe0000—0—L3OpUqWgO=~O——-g—VNFIAAON=g—OONJgNCv—UMORMRAOOgAMAg)—C.C—0qMgOO—IONMG-JNI-gev—BBTI—GGGNNNDAgOOOJ—MI—.WLDRAOWOOG—SBLN0NAGV—OeIgGLCCINMQWGOOOCASO)s\—KNW~|eNOoDO\GGvF—=,ANDNW0OWMPPOLG,SUVA|VfTBOoNO8GG—=\OR—MOMOrRYONGGM&—OOONOG(PYV0tDDW—RO—o=iORGS=G—OO=NROOMMOTW—NUUOTIVs|gMNSae—sIPONORrGOlNeNS~W—=eAWOaGVeNFWWac—INeOOGvVMaWIOMWN| (0GOecOV®0—VMaOIWV(—GOONNGselaOORoOE—O=egG=NkIeOeC—t(e(MOAGeIiJeOOR2¢NveeIOO05\M¢|—#*OOe0*Gv¢GU-—O=rMOOGYvV—NNON0|OOP@GNOAAOOO|erVePIP0M—NO-kOeOOG0ANAee0OOPOCOO|.~eOG0,FNONAONOOTPOYGMMDNNWNeOO0N@G0O0O.O&NSeOWPGNN0V—.WIOO0TNGG0MT0-T|SPNOeTOGNNO0-AAOWIeOAOPG0NNNVMk8|OVNO0NGGWENASeNDORO0O0ARVE=~NPSIOO0IR0NFP-WMOO=OTv€0MN=NONO|SNOOUNe0AAWI.||DUMPO0-MINAD|MeTOOM8GMMMONO||NNMPG0NOSANMNeRr==—NTWPT0@—A=ON==M—OToO0OOO8Oke—0=ex—MVT0
CROSS REFERENCE TABLE

CIRMNAQ RMOS/3/2 FCTNL TST 2
(CREF

v01-05

MACRO v03.01
)

1I 1|

6
11-APR-80 13:17:48 PAGE S-7
SEQ 0283

5-0

12-D79

12-D794

12-D92

12-D92¢ 12-D92# 12-E0§

12-E05#

12=E17

12-E17#

12-E174

12-E38

12-E 384
SEQ 0284

oo—Y w NN
WW

o"2XWT.kA=o.2LN—O4oN—aVYGeGNrNoO0g[ANg-gAAaSL|M||lo2aV—vVoOMOMna2QOo2Oa>oElV(—2aOB-WIABoIgX<V)O.—RADu0oNe9N1tAOQSreFOGSV~lOeeeBRt-gIIg—mAn“PeN—IO]WNIM~OL1—03VOA—Ne=I1RgWIPF.OqYEYT“v.2ENOO(D—DaAW—e—=eRo[lILN[.‘oyrYNdLNAYA—lD&CewaLO.o\DNO~f3Io~g=—TNVN)mNWO—Iy-|[)Ai~[7DaOwQAxmell.L6YONrafWLAA¥—V~-O——ND-&o]1.rTbNa—reiV3Ww~A6~—5aMlg-=|"[‘.eOFDb0e3lmro6f—Ne8O-rtPlMeoN—ONgA~%l6]].tbPfOOe-%eN[.t—l6o%Oet®NaLOoNfeIFN—2eYa].t‘—]lTDlOAMeN.)~R0og2e0a|[yl—.NllIO3="2fOWLb(-tToilOVO—O¢4I4NONCTMOVJ2I|0gPbJX.TNTEAlgMXNOOiW2gAPbBIINIfeNJgLtOeN2OEoEN0R0X0Al~SIWMuIieAI1RbLLUDgMt.0TLlEn0NASO——lTg~~>I2y[[gfLLSY~i”.oyalOM4~7bM—WO"Is4ATVSIJIO3—lrOONt|)0|)aBfWTNWVNIM[2VNCVXST]~—gee&Va—Ll7OfOvFOo¥Q.VOIBILOS2N]NRVI¥-ONlX]-tIXrVTNeVIeo—NOJLe—fOOVAoIOLYV—O4IOrM3OVNTV]iOe—t.aOSOTMfI0—YXNXXOMC—Nl8I4BOeRIOAeRNLDXiONTOKeVnMNN—DV&=eBRM/NI=gtAI.‘0IYiIDNNVIVXOXO0LrOVIAef0%RTl0TgYLOgtN-hORYENiVSVNfXWII—g£oOe—RBVO0gIYCJLINRt.OEiOElVTOOOMXMNVITILgXoWYBN0g‘NINMgY0tfTiOEVStXNA—NAWOIIV&eeNO0OOFNDDoIi0DGgUtAS-RIENMNNSVYXNVWVOIOTRIMbMOIV0TIoI2SNlUN.0YORN0Mf—OEOg2VCTw.I-—OI8=NLTO-=YLBNITi0NelOV0RAO—=NAOO Y2|FOD—0Rt[I4.-2[wOaI0o[ VR0—TOIOOVS-W1rVa“0[=E——SIOl4QND3.O0wN.1MOlC&A0Dw3EM6.NOAlOOSM340fDA“3OlOD.N0‘COA43O0o“N.DOO“OA0‘C“3rN4.‘DAO3“OOL5}[O—aN3R0M3¥V-‘rV],@Oe=®O6ON.a]To)NYO~1&w3V2o=)M1O—N6-eon¥NT)0a0.d]TVY)S]dVOroOToNmoE‘V1WY0]T—’VO(gN0o-€|IlNgrM"S}VuXVaa2TOo]—.—8OX9aTovYkIa1er[1NaOL.Ee,oA[V[IbOyMlILa[e0TT0(aOlXa—(aYVaVo—Ee=VooV2aL1aOT[¥=Y¥n&NSGT[OdRl0a=IYVaTb~gI0dD0T«aalNVu‘N5.oaW.LNEtN1LT1CWP-WdOO[T-O¥OWuLISDaE|oV4l.Y[ao[(|~nNPo¥loNa
(WVo—¥NoaOO—SO]]|1|D!VNleN——0V[QO[A"gtBNTN'WOa¥OVC\I—]I-gALaOao«VWTRaN~o—4NTNoollALgaLUnVoXO]D0OIDaoNd—eO-UggVL[ [LoOgMOoJNCS—V)'0|0JgXaa0oEEY9lYNOoV~..~IIOaRy1FagNlE1lE.MY0nNN~oaNM.I1gK’F0aV~AEN)LYgY0-,.I-T1NLL—RS—S[RRVaM~wOROOAAaYrYL1"]0LrT]0V)N0YOt}o~M~~o[BB(FJoNValP0e04AigOMaa1]||XOVRL—LlNXN0AaOLlIIA.AViT]toVNO0SoR3N~2II"MIL¥«~NAAOAAL~NI[btIVtIRO~54~¢0N|I|r}ANOOOoIgN~Nt0gSIML0~LOA~A~Ia][OULl YV¥gWooo—-~O-vS]L)¢|NLo}o\VY=V.RITRTa{-—O-(Ov[AS“—OnaNIVIL0VL]21oTe}ywVEo]-n~=LYu$[¥[-[A—yw.2a3(|n|a[(—VEYo¥¥g
NI3[1-~Vvv|a—ko)a—]")rc~NX-oLYy— ()oM-"]0]N[—eY[Mal[YNde- Oa7—U|nLoMw~|L)YIlo~~Y)} oN]O1nJ]][—[oNAa)V]Smae1Nl—]
CIRMNAO RMO5/3/2 FCTNL TST 2
MACRO v03.01
CROSS REFERENCE TABLE (CREF v01-05 )
N =APR-80 13:17:48 PAG E S-8

SEQ 0285

=NW

1440

14-58+
14-64r

14-65
14-68+
14-72
¢
1477+

7
14-88¢

14-136#
o

SEQ 0286
(aaYaalaalaalaalaalaalaalaalaalaalaslastnalaalaataalaslaalaslaalaalaalanlaslostaalaalaslaslaalaclaalaataalaalaalaalaalaataalaalaalaalaataslastaalaslaalaslaalaalaalaaks,l

CHRCNT

—aIOYVaMlVAIINa—OV-Ja[YeOaX*~5Nw-—[NM"ala¥O1~"aN)oe~wnNO(~=]s0-doYVo,aolfVaXl¥alVYaolNLeoYoW-\[—
[NMA"v|ao!)yIoB—~aWN[M—UIaw¥NIYNWaIAIVMo]O—OaNA3NOIV]L=I[~gSO7[aN)WLo)WEa~O-[05M]—D>D~LMa>o)yolnIwg-|ONa~-N]o=Do[—o)<VIaHIJOW—&|M58OIYO—=N3—9NMII1+—vI—WOJ29rMNFoNDI—OW0W1—NNNOe3OWW~L——OOe51—JNLI6M[-£
UL IR LI .

SOI]])TAW~NINAOI8NVIDO[NILO]" ]TUO O[]) ¢1L]XXJ]VoYo[U+Je-AT]oA]'] '[E 4|olR1okIXI0ookI00LX0Yo9L0YoU0YoL)[@
wno ~O O M

[OALNOVTOAT=I—NaEN=»V]oYN0O—-VV—N[ONeVAoW(-e—aO)]]ov¥M—1B)[—t—kNVOaM¥eIITONogO—N]L1M—~aNY8JoYDN—OV——o[LL[¥(ImV)ouS>ONT—VNRo0I~OMM~--N-oo[A-0]_][YNyoaI}—]—N—~OaR~oOO~vRONboOow~LLaoN--O.o]aa——Lll.a—oTaN_[L"~O5[a )4NwSTOOMLVnNa[]’ay}MVJl)}To¥0oIvo3foeoaTcOlVgOoaLoN-mTNdoONoaIoaNaT5—xoLa”[g[-NgoM—-OLXoa1]V]V[0a—lY—)NaTaMI&xo)I8OxnIL=No2QTePaNo~MO—o}8yTaokOA]Nlaer8F8l"|]|RNov2r—VMJal9Yg~N-alv—VO"A]B|raFVoa2olotaYoYNA1—=YOVTI"BI0—VIRaVaON9aVoEYIY,XlREOYVe"MRIIVINvXaklaNV1aWleYeANirOO.TlINLIRAaNoYNX—Rl"LeoNO~aLRaNMOI2OI1OAlNAXYOLl2Va[oGNAAWo"NMM 'Io(—euROOLU|aLkldOWoO1L—~-x0LI2o—N[Saun
N-WO~—g~—"O~OA)yI——A["YP &aJJOV—¥lVV|eva)lO&v—VBWaRaNllvArVMlRa0—aVeMLlalaO0—YD0AlavLaXaaMN¥l.WlS0T0Leaa~OlAVR|1LlL
12-<79
12- =62

10-50
10-144

39-264

15-76

30=-12#

13:17:48 PAGE

12=>44

12-A96

N—

N -APR=-80

aYe oY

—DNO|OReOMBe—YWO—NOO-ID—NL~
|I I I [

La—laleg"aY"aY"aY"aY [ON"0-~Mar—) -(2VoNOYaX—N]e Yo[eVaXRV
[o[Taa)¥lTage¥NL]aVL[]o
"1

(CREF

MACRO v03.0'
v01-05 )

o[] YaXa
¥l

CROSS REFERENCE TABLE

CZRMNAD RMO5/3/2 FCTNL TST 2
S-9

7
SEQ 0287

18-17#

O—

Ny~NJaD

LWDAWL))AA)AAMAAALLALkAAALAAAWAALSAW)A))GGG)UUee)D))UU))W)UL

010

SEQ 0288

=614

O\JOJMIM—er—OS—POVNRINOooU—lIMaVPiaNVM]T—Ig—SANalaJL NOAo~O—I—NDIOMRO—NANNAA

NO MAY—S0NASTToMoOo0oFNo\NW[o

NOMIOMNOOO~

O
O
N
N
eA
N
N
—
O4RXooYVN1oVOlMXXNka1Ll OOCOMONIONSA'|)OOO—MWANNNNBGVNOIIN3A NRI0ONRNONBORAO0 ——M ORNMSN NSUUN=OeRUO—IPUOSS OINNUO—[[UU N
.O3ONIN')]WOOO INYeBIOB—NNIBNOIVIMR2 RMMNDMSRRNOBI S=NIRR MRI =NNOIL NOOLLIU—S—[[
MMNF§]WYTNqB OYRJVNRRNDONRVRN«NoNOY.SMeR"N¥OYLR1SV+MARoaTJdI-DTioRlOI IO|L
3
O—OON—N
TOWNOON—ONTNMITNAO0MAIOQPOONVOALo

OIMONIM —— AN
NMMOUYNMNMOUMADO\O—r— —A\—O —
25-467

L5-24

7-691

45-104

TMYNO [LNS MONIPF—A0. 3-YOWM0AL.VO—O OTMNIN—N
25-485

25-491
35-423
40-77
40-78

oSONJvUM=NINY IDRB|ON WVOLOANFIMr—= LoSLRDNBI OVWO LNoOiSlDRIBLN|RS eOoM—N APNRCLG ~NORO PePArNerC

OO
y —A AU MR V

7-517

4sNNNVOO~oKX0olNol aN2ViaONA]0OoWNPMoS=tNLa[—lNa
NOON IOAe N= = MNIPOG
|PUMM
NN YB N No SYN =— IIDDR e R0I 2LL|l
)NMN
BNOBN =BBN N N PLNBR
OO

5-5#

OFNSAMFIN~LAM

||eORNOV~OIe]YOJ—IVoIONNRIVeRROWXMaRRTaYSlRAOaOlRINIaNVRROiFaUVeMRUlNNi—I eeONM~RR—kWLUO[[UL 3V
RIMROWA
VCNFe—M
VO.|BN) N2OO OB 0NIOTMNB OONNR TOIMWYNIWNKNASOIIOMI OO=LU M[LIN—U
MOOWOMNOMOVO
NRNO)|AQNoT]RNRIA0VBeRNIYNVYRN—JRVAB_NORRDXNTMoAR RoYONlAaNNVIDTRaOVNARI]NDMRXAI ReINlIADRNAD LLNl[II0
—oAOO0
OOW|SN— I W—I ANOBMOeNONB~SRONNT0RARN=e~NARINN=—RNNLNL ~LD MUMNWL[NU
N—ONO—ON
NO O 3NNN MNCINNMOOIIMN—G—NQG0 JL

(CREF

Vla1g lgao Z=DalelVolalX

CROSS REFERENCE TABLE

MACRO vO03 .01
v01-05)

o}ala'E
=1V & X Lol

No gENJEN gEN gEN RN S bR
CIRMNAO RMO5/3/2 FCINL TST 2
f
7
11-APR-80 13:17:48 PAGE $-10

SEQ 0289

40-85
40-86

MOy—N RON

7-532
7-535

7-538

7=-541

7=544
6
7=547

7
7-550

7-553
7=557
7=560
7-564
7-567
~

7-570
SEQ 0290
[aalaalaalaalaalaalnalaskaalaataataslaalaalaalaalaalaslaalaslaalaslaakaalaalaalaalaataalaalaakaakaataakaalaslaakaalaakaalasReatnalaaaalaakaakaslaalkaskaalaslaslnalastas

7-526

=~)[Py OOOO~N—NOONINMONAN=IeNETA —O_—nNo
-—o=oo=o=o=o=W)A\M\M\OJO\)O\Jo=o— —NFWM(N=-ooYoYotaVTaVToloklaf

eo—NO‘=L34(VO)wX44—l]=-2aR)No2aYT2Br0-MLOTw4—A—DlNO]IvVLa.XyAXW\]moAllaMnL—NNL[be.—OAWTAIOIWIARS~aD-Va(SXloAFEO—XLBWmYMYN~lgRNeI="O.AQLVllEOVY¥oI—eORt~lENVFNOaIORIURSAUr0XNASIVVNMO—nNeWlo—OOIT.MO|XILR)l[NOENAVo—e2ABI[XLRRNABIVMN.IYgNERNSMV.NW—T-I|BIINNOB2eg.T<PVORIg=OREMILNVLa~<veNo—-=~I=.OANM]D5g0—VOENeIMAEINDT.bTN~IN=EOM[N~-Ow~AS<VNFV—e[|L}a]—L)AEN~Q-N.=IIrIAIaN~[=XNFOVU|wneRIA5—E.=N—gI4-—OLWBOOSAMF.NRNRD.FRO]])]eJAOOTN8O—PNRAOTI.YIM~IGMNFAK.AvNBBDRINRL—NOITWI~L—RUAINOFALNMNMNNO.0—OR—ITIATPFMPNAMOOARNODIAVRPNMNNUNCN.LABORBADOFIONROrMMYUNRSNIBAIOATMMMOINWN.RO<BeNAIMNOBVD—NYRO7=N—NGBNAFM0DY.ATNO==NOIIRINU[MNOReAIJORAN.ODROFRINLRLU[V[~D—II—NL<YNN]T.BN14RNYvMBIgVNENTB=MTBYRNIVRN.XO&rRIg—LEDVFETXON—BRVvI\OWgEEXJ.STNROOVIXgUJETONMBNTTXLVRIEN-MGV—FUgBIE.XXNVBRT—SgOALOgBTB—VRE2O.TNR—ToRVg~E.V|3MN=—VBImU.TR&NRleTROV2.&MM2NIse0OI0V.NEA(G©5dO@o——=M~soMeR)|00IV]N.NOIaOw~MM%[0iYN.AON'Oa=~<eI—~RILyn0|OoVI.O~NQIeS0Vr.EOO»[L~IN—o|V0nVeOl.aER~eO—Vr.ESNe~.e0)3O~LSOVGAF])|1a.TX]AeWlOoLNN—I~TO.[a[NOVYVl[—O<"[OL.aTLa"N[lko|OVQM"U—~J~aoOW-~o0M~[XoW[M\OLr—eN]U"U0_aLN0»IV[r—l]~]OCLYVNarog-y2N~y[[yo0l[ MN—oOgQTF—.NAOO.NWM]|]|e|RNOVNVoONO—COATBTRAVWMT,ONSNONRTOP—OO—ITOTMO\VTN3NYFN3AIRBRANJO—VONVOINTRAIOBORINWMR2XOR—NN=WN—oAROLMRDVDIIaNMOTTNNWPNNO—NOlMRWNFOOWRIILoCNUOTNeNeROOlRRLRINOORAMDDRRV—MOOIUNVNMNONNANWR2rOiWMIN0OUARR—I—aMNNRNYYMVNOOMoBGRIM0OVANMYMOYR=0NNPi—O—=OINRAID0RPOONG—IONNNOF—NNW—UIRIRIAo0~~JMT—LSSNOIMNMIAND0AWLeII[~R[MMS—T9—N[E|[[||VNE oMOO~eNOOON0OOW]MI|]|]||JVmyR~ol0.NoINIII~G2OLNTLLL~K0—[o[O-OyI[~I—I[OL|l—N(3ko
CROSS REFERENCE

CIRMNAO RMO5/3/2 FCTNL TST 2
TABLE

(CREF

MACRO v03.01
v01-05 )

H
7
N -APR-80 13:17:48 PAGE S-11

SEQ 0291

~7F

L4RS

~rF

L-4

L
4

63-20¢4

IVE]RVVERVRVERVVUVSRVEVUJVERVURVERVEVRVSVVUVVIVVEVIVERVENVSRVRVJVEVUVSRVESRVNRReil

EMS105
L7-714
SEQ 0292

CZRMNAOQ RMOS5/3/2 FCINL TST 2
MACRO v03.01
CROSS REFERENCE TABLE (CREF v01-05 )

EMS106
EMS11

EMS110

EMSI1T1
EMS112
EMS113
EMS114
EMS11S

EMS116
EMS117
EMS12
EMS120
EMS121
EMS122
EMS123
EMS124
EMS125
EMS126
EMS127
EMS13
EMS130
EMS131

EMS132

EMS133
EMS134

EMS135

43-212
43-12
(£3-28
43-9
43-7¢

43-74
43-75
43-77
43-44

6£3-73

63-185
63-223

43-74
43-77
43-12
43-78
43-79
43-80
43-81
43-56
43-83
43-84
&47-89#
63-13
43-86
43-87

43-186
£3-232

6£3-77
63-143
G7-12#4
G7-8204
4«3-88
3-89
43-88
63-82
63-92
4£3-93
43-42
463-95
63-96

63-17
63-31
47-734

63-18
63-32

63-78

63-127

47=-774

63-48

63-50

43-187
43-234

43-188
47-794

43-107

43-108

63-19
63-33

63-20
63-43

(3-21
43-177

63-22
47-11#

6£3-23

63-24

63-25

63-26

63=-27

63-51

63-52

63-5¢6

63-55

63-60

63-61

63-63

63-6

63-67

63-70

4£3-189

43-190

43-192

43-193

43-194

43-195

43-201

63-205

43-221

63-222

43-185

63-201

63-225

63-228

63-229

61230

643-231

47-814

43-109

43-110

43-134

43-137

43-139

43-140

43-142

43-179

47-80#
63-178

63-97

4£3-99

“7-834

63-90
63-101
43-169

63-90
47-864
47-87#4

43-91

43-92

63-93

43-94

6¢3-95

43-96

6£3-98

43-126

47-85#4

6¢3-83
6£3-97
4&7-92#
(3-83

63-84
63-98

(3-85
43-99

63-86
43-100

(3-87
63-101

6¢3-88
63-102

3-89
43-103

63-90
63-104

43-91
43-105

6£3-92
63-10%

63-125
43-126

47-93
47-94n

63-222

47 -99»

43-22%

43-23¢

47-84N
43-89
63-91
63-102

63-103
63-216
63-106
63-104

47-88#4
47-134
47-90#
47-91n

43-97

6£3-98
«3-100
63-9¢4

43-91

43-9?2

63-84
43-9%

63-85
6£3-94

63-86
6£3-95

(3-87
6£3-96

43-101

63-102

43-103

63-104

63-105

63-106

47-964

63-60
63-45
63-108
6£3-73%
63-109
3-109
43-190
43-113

63-107
¢3-60
43-160
63-108
43-110
43-110
63-201
43-173

63-117
63-61
63-184
63-109
43-205
43-205
47-1040
43-217

£3-137
63-66
43-202
43-110
47-102#
4&7-103#

43-186
63-107
47-100#
43-133

43-192
63-129

47-98#
63-137

643-187

43-188

63-193

43-140

43-184

43-202

43-205

47-101w

63-67

63-111

63-134

43-138

43-182

43-183

43-194

43-195

63-182

43-1B3

43-194

43-195

43-223

47-108#

43-13
63-44
43-35
&3-47
43-47
43-36
43-36
43-109
43-69

43-85

43-13
6;-?86'
L7~

43-69
43-50
43-111
43-111
43-112
43-113
43-113
43-13
43-114
43-114

43-89

G7-140
43-52
63-44
63-65
43-65
63-7%
43-73
43-185
63-112

43-4?2
63-51

63-112
43-51
&7-109#
63-112
43-124
43-114
63-123
“7-164
«3-115
47-115#4

43-183

63-225
63-149

43-90

43-88

43-182

63-191
63-148

63-81
63-95
43-168
(3-81

EMS14
EMS140
EMS141
EMS142
EMS143
EMS144
EMST4S
EMS146
EMS147

EMSI51
EMS152
EMS153
EMSIS4
EMSISS
EMSI56
EMS157
EMS16
EMS160
EMS161

63-77

47-72#
63-16
6£3-30
6£3-77
47-74A

SEQ 0293

4¢3-80
63-9¢4
43-126
43-80

43-99

EMS1S
EMS150

47-754
63-76
67-78#
63-45

43-79
43-93
63-125
43-79

EMS136

EMS137

43-232
6£3-15
6£3-29
6£3-74
£3-226

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

47-954
¢3-100

63-216
63-5¢4

63-82
63-96
43-169
63-82

47-97#

47-15#4
63-63

47-105#

43-113
63-5¢4

43-173
63-63

43-217
63-111

47-107#
63-134

63-122
47-111#
43-115
&7-1134

43-123

43-124

47-1104

63-116

43-173

“7-112#

43-116

&7-1140

W P

FTY AR PR

47-1164

EMS162
SEQ 0294

CIRMNAO RM0S5/3/2 FCTNL TST 2

MACRO v03.01

6E 513

63-61_
d-tes

43-62
03-357

43-63

43-64
6

43-65
6

43366

coONY
—

SEQ 0295

(3-72

43-172

43-196

43-197

43-198

47-120#

43-122

63-123

43-124

43-168

43-169

43-125

43-126

47-1244

63-218

43-219

47-1284

43-118

43-119

63-120

43-121

63-134
63-174

43-136
43-175

33.

7
7=121#
|
36

43-67

-68
43-68

4343-69

43-170

43-175

43-235

47-122#

43-212

43-232

43-238

47-18#

4(3-180
43-176

¢
&

47-1340

63-26
43-166

§3-27
463-145

£3-28
43-146

L B

60
117

Pl
0P LB 2T
2

LN\.IN\IWV\MNU‘LN\I
U
]
]
Lot

N2k b ek b e S\ NV 2 ~y\N
=2 PININD
O NI N0 S N~ (N0
NNO-WVnWWDNNR
~no
[od

S ~r
N
N
N
N
N
W

l°d
=

47-1374

63173

47-139#

G7-1412

NNNNW?U‘NWWW NN NN NN

'
'
)
N — il e el i ) e el il e el e ) ol e o e \JVN\J —ad
o H S-S
NES~N O NS NN
NDD
W
= o w o~ WINOORBRONNWVOON
—
o
L] = L R
R
=
==
=

o~ o~ Attt
ol 2t 2t 2t a2t 28 2t 2l 2T 2V Y YN

)
NPV PURNONIND =

|]
s

1
~N

47-1484

43-116

43-173

47-25#

63-21

(3-22
63-130

63-23
43-131

63-24
4£3-132

43-25
43-133

43-208

47-27»

63-227

&7-304

43215

4&7-324

47-244
63-115

—

63-173
43-20
N

. —b N

Nt =2 PO = QD& ONOOON O = =N ovian
WANONORO
O

s PO

L7-14694
&7-1504
L7-151#

»
(¥ ]
]

»
V]
(]
~N
W
[«

L7-1474

P o O O A L I
O 2R R o R R
N AN NN
N NN NN NN N NN N N

[a¥]

NOOOr
W
=

-~ <O O 0o 0o

~N~NO
=N —=O
~

Xl at ol aF oW
0P o ¥ Y
P oB o
[ ol ol 2P 2P o
N
W
A
AP W W W
T
P
0P P o ol o
o
P
B
o R N AR P
2ok al o
A
W
W
o

EMS3)
EMS32
EMS33
EMS34
EMS3S
EMS36
EMS37

uwuuwuuuuuuuuwuuu?uuwwuwuuuwuuwwuu
Ll
U‘U‘L‘OU‘
J WWWWNWWW?WWWWWWWWM
L
'
!

EMS164

EMS165
EMS166
EMS167
EMS17
EMS170
EMsS171
EMS172
EMS173
EMS174
EMS175
EMS176
EMS177
EMS2
EMS20
EMS200
EMS201
EMS202
EMS203
EMS204
EMS205
EMS206
EMS207
EMS21
EMS210
Ems211
EMS212
EMS213
EMS214
EMS215
EMS216
EMS217
EMS22
EMS220
EMS221
EMS222
EMS223
EMS224
EMS23
EMS24
EMS25
EMS26
EmMS27
EMS3
EMS30

EaR AP oW o

EMS163

NORNVRURNOROVRNIND
a2 PN P\ b et b s NININD) = = POPVINI N b e it et s s NSNS b e e e et \ ) B = =2 AINI AININ O — 00—\ S~ ~y N
NOWVB
NN =~y N
OOV
NN NINN N NN NN Y~ ~NO W O NN
NN &
POND
— — s~y
b
OO~ OO0

CROSS REFERENCE TABLE (CREF v01-05 )

11-APR-80 13:17:48 PA

’

£3-29
43-147

63
43-

43-70

43-71

[ la]

SEQ 0296

OTM

L7-64

§3-75

63-5

EMS4

CZRMNAQ RM05/3/2 FCTNL TST 2

CROSS REFERENCE TABLE

EMSG0
EMS4l
EMS42
EMS63
EMS64
EMS4S
EMS46
EMS47

(CREF

v01-05

EMSS
ENSS0

43-28
43-29
43-30
43-31
43-32
43-33
43-43
43-37
63-193
43-6
43-46

43-220
43-190
43-206
43-209
43-211
43-210
43-58
4344
43-222
43-7
G348

47-34H
43-191
47-36N
47-374
43-230
43-229
43120
43-45
47-41
47-7W
43-66

EMSST
ENSS2

43-48
43-55

43-55
43-142

EMSS3

43-37
43-181
63-2064
43-206
43-227
43-50
63-223
43-190
43-204
43-223
43-6
43-224
43-224
43-204
43-42
43-8
43-41
43-34
43-43

43-38
43-182
43-206
47-46F
47-47#
43-51
43-228
43-191
43-205
43-228
47-B
47-50M
47-51N
47-524
43-149
43-14
47-554
43-218
43-4h’

EMS54
EMSSS
EMS56

EMSS7
EMS6
EMS60
EMS61

EMS62
EMS63
EMSOL
EMS6S

EMS66
EMSE7

MACRO v03.01
)

N
7
11-APR-80 13:17:48 PAGE S-14
SEQ 0297

47-35#
47-38#
47-39#
43-145
43-527

43-177
43-60

43-185
43-61

43-199
43-66

43-201
43-117

47-408
43-118

43-147

43-186

43-187

43-188

43-192

43-70

:
43-132

43-135

43-139

43141

43-181

43-185

43-189

43-200

43-201

43-221

43-70_
43-143

43-130
43-148

43139
43109

43-142
43-178

43179
43-179

43-189
43-185

43-221
43-201

47-434
43-228

43-229

43-230

43-231

43-233

43-39
43-184
43-207

43-40
43-186
43-216

4344
43-187
43-218

43-45
43-190
43-219

4346
43-191
43-220
:

43-47
43-192
43-226

4362
43-193
47-45K

43-64
43-194

4365
43-195

43-73
43-200

43-140
43-202

43-141
43-203

43-54
43-234
43-192
43-206
43-229

43-62
47-48N
43-193
43-207
43-230

43-63

43-67

43-119

43-143

43-144

4%-1/8

43-182

43-183

43-194

43-195

43-194
43-208
47-454

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-202

42-203

43-220

43-221

43-222

43-190
43-41

47-53#
43-T44

43145

43-146

43-147

43-199

47-544

47-56
4345

43-46

4347

43-4B

43-49

4350

4351

43=52

4354

47-5TH

ENS7O

4348

43-30

4352

43-54

4366

43-70

43-73

43107

43-110

43-139

43-182

43-189

43-194

43-205

EMS71
EMS72

43-51
43-36
63-139
43-49
43-69

43-59
43-48
43-1640
43-54
43-70

43-63
43-51_
43-142
43-57
43-134

43-183
43-55
43-179
43-68
43-189

43-195
43-56
43-183
43-136
43-217

43-208
43-57
43-187
43-180
43-221

47-59#
4360

43-61

43-63

43-108

43-109

43-134

43-135

43-222

43-223

43-234

43-235

47-61A

43-234

47-634

7-4
7-25
7-198
7-201
7-204
7-207
7-210
7-213
7-216
7-219
7-28

43-38
43-10#
43-664
43-67#
43-684
43-694

EMS?3
EMS74
EMS7S
EMS76
EMS77
EMT1
EMTI0
EMTI00
EMTI01
EMT102
EMTI03
EMT104
EMTI0S
EMTI06
EMTI07
EMTIT

l‘-

43-35
43-35
43-38

43-66
4336
43-72

43-704
43-71#
43-728
43-73#
43-11#

43-67
43-37
43-748

43-137
43-38
43-198

43-138
43-39
47-654

43-188
43-40

43-193

43-188
47-628
43-222
47-64#

43-195

43-223

43-232

47-60#

od—ded- SSmagSungPumGumgGunl)GegPmngGuag))PumG()Prg(gPun)OPungGPePun)GPasgGGyGG)QUGgyPangpongetOgyggoXXLTT]X'(&

EMT110
7-222
43-74n

SEQ 0298

WnwRNk]3.505.3.323.33.L813525L.
1—|\Igcg|g-e1—|1o1=2o=v2v=2==2r—2-3v37v3vv3o3v‘rlOfOl“‘IOW"4P5O55P5A5W55M55~66a0600606—6006006A6P77A7P7

= "

EVONLTMAo0L)a)U2gVaNG)Oy0SY~MBGo2EL=ITOOUG<aTENVOaP0I)lWNPVTOG)L6OFTV0ENNe)GM—SVAIO6G)0MTEY~=oPTN6W=tr0TNNRVISa~Qee6FIGLWT8EoD)yeGV6leOR8INO$‘eNYTEST8aMGo0El6YONaeGTI0RNlIAINEV8aeNP)lRTLDNaRPY0IOtyEOaN8PWMTSlII~0PaONNT>MIlA8EOSIaoTWl0AIM)=nPSOI 6STEIN=eNOP0MQNLO—<IP03Ia'NEOoO8IeNNTAITN0XmBNGIaIEOD)N=TMN0mOWsoPAIOEO)R'OT=IlMYOoNMI0)LSEOAGWU—T0LO~NNU0AINLENM00MYL—T O8O=IElSe0LMEGBTOI0—LIO0OIETNNOOMNILDJS0YO0IFTLESRNN0I0yOLSOAIPUTMENDgONIO0LTALMN0EYO0I0NSLRT8BMO0L0E—OINVIg0RTETYoOSLBASNEOSgR0O‘INERMoy0TNOIELReIo—NRLEIeTMt0SOR.ELeo0ot~L‘EIOFog0iTEMSOY0OLIoEAyNLAVo0N"gOEIRFl8TOaENIelM0Oa=MEOIlLT0aVMEyANL§
CROSS REFERENCE

CIZRMNAO RMO5/3/2 FCTNL TST 2
TABLE

(CREF

v01-05

MACRO v03.01
)

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

(
8
SEQ 0299

%) ~ O
¢
[X ~Y
[

Z2TZ2Z2ZO000CO0OQ0OIEIRIAYTXTIXTIITE2FT EFTERILE22TFZ2FT2 -

aaaaaaaaa

EMI173
W wi o o v [=) o

- ~o=

CIRMNAO RM0S5/3/2 FCTNL TST 2

CROSS REFERENCE

TABLE

EMII74
EMII?S
EMTI76
EMTI77
EMY¢

43-1264
43-127#
4(3-128#
43-129#
“3-4H

EMT20
EMT200

7-379
7-382
7-385
7-388
7-7

(CREF

EMT201
EMT202
EMT203
EMT204
EMT205
EMT206
EMT207
EMT21
EMT210

7-49
7-391
7-394
7-397
7-400
7-403
7-406
7-409
7-412
7-52
7-415

43-131n
43-132#
43-133«
63-134n
43-135#
43-1364
4&3-137#
643-19#
43-138«#

EMT213
EMT214
EMT215
EMT216

7-621
7-424
7-427
7-430
7-433

43-141n
43-1420
43-1434
43-1440

7-439
7-442
7=445

43-20#
43-1464
43-147N
43-148#

EMT21?
EMT212

EMT217
EMT22

EMT220
EMT221
EMT222

7=-418

7=-436
7-55

7=4L48

«3-18#
43-1304

43-136#
43-1404

43-1454

EM7223
EMT224
EMT225
EMT226
EMT227
EMT23
EMT230
EMT231
EMT232
EMT233
EMT234

43-150#
43-151#
43-152#
43-153%
7-58
43-154»#
43-155#
43-1564
43-157«#
43-158%

43-1492

EMT24

7-61

43-220

EMT247
EMT25
EMT250
EMT251
EMT252
EMT253
EMT254

7-508
7-64
7-511
7-514
7-517
7-520
7-523

43-169#
63-234
43-170#
43-1714
W3-172#
43-173#
43-174a

63-214

MACRO v03.01 11-APR-80 13:17:48 PAGE S=16

v01-05

)

SEQ 0301

&XXX(XKUCTETTETETEXEETEXEXTL
e Gl e e

LA A GW WAbdeGheGdeke bl ele

EMT255
7-526
43-175#

SEQ 0302

CZRMNAO RM0S5/3/2 FCTINL TST

CROSS REFERENCE

TABLE

EMT256
EMI257
EMT26
EMI260
EMTZ61
EMT262
EMT263
EMT264
EMI265
EMT266
EMT267
EMT27
EMT270
EMT271
EMTI272
EMT273
EMTI274
EMT275
EMT276
EMT277
EMT3
EMT30
EMI300
EMT301
EMT302
EMTI303
EMT304
EMTI305
EMT306
EMT307
EMTN
EMT3I0
EMT311
EMT312
EMI313
EMTI314
EMT315

43-176#
4L3-177#
(3240
43-178#
4(3-179#
43-180#
43-181#
43-1824
43-183#
43-184n
43-185#
63-25#
43-1B6#
43-187#
43-188#
43-189#
43-190#
43-1914
43-192#
43-193«#
63-54
63-264
43-194
43-195#
43-19¢64
43-197#
43-198#
43-199#
43-200#
43-201#
63-274
43-202#
43-203#
43-2044
43-205#
43-206#
43-207#

EMT316
EMT317
EMT32
EMT320
EMT321
EMT322
EMT323
EMT324
EMT325
EMI326
EMTI327
EMT33
EMT330
EMT331
EMT332
EMTI333
EMTI34
EMT335
EMT336

7-529
7-532
7-67
7-535
7-538
7-541
7-544
7-547
7-550
7-553
7-557
7-70
7-560
7-564
7-567
7-570
7-574
7-578
7-582
7-587
=10
7-73
7-591
7-595
7-598
7-601
7-604
7-607
7-610
7-613
7-76
7-616
7-619
7-622
7-625
7-628
7-631

7-634
7-637
7-79
7-640
7-643
7-646
7-649
7-652
7-655
7-658
7-661
7-82
7-664
7-667
7-670
7-673
7-676
7-679
7-35¢2

(CREF

43-208#
43-2094
43-284
43-2104
43-2114
43-212#
43-2134
63-2144
43-2154
43-2164
&3-217#
63-294
43-218#
43-2194
43-220#
(3-221#
43-222#
43-223#
7-682

MACRO v03.01

v01-05)

43-224n

11-APR-B0 13:17:48 PAGE S-17
SEQ 0303

(3-225#

SEQ 0304

7-685

Emi33y

CIZRMNAQ RM05/3/2 FCTINL TST 2
MACRO v03.01
CROSS REFERENCE TABLE (CREF v01-05 )

EMT34
EMTI3L0
EMI34Y
EMTI362
EMTI343
EMTI344
EMI34S
EMTI366

7-85
7-688
7-691
7-694
7-697
7-700
7-703
7-706

(3-30#
(3-226#
4(3-227#
(3-228#
43-229#
43-230#
43-231#
£3-232#4

EMT35
EMT350
EMT351
EMTI352

7-88
7-712
7-715
7-718

63-314
43-234H
43-235#
£3-236#

EMT347

7-709

43-2334

EMTIS3
EMTI354
EMT36

7-721
7-724
7-9N

43-237#
(3-238#
63-324

EMTS

7-13

63-64

EMT37

7-9¢4

EMT4L0

=97

EMT4L?

7-103

EMT4N

7-100

(3-334

63-34H
43-35#

43-36#

EMTA3

7-106

&3-37»

EMT4S

7-112

43-I94

EMT4LL

EMT4LO

7-109
7=115

EMT47
EMTS
EMT50
EMTSY
EMT52
EMTS3

7-118
7-16
7=121
7=124
7-127
/=131

EMTSS
EMT56
EMTS?
EMT6
EMT60
EMT61
EMT62
EMTES
EMT6L
EMT65
EMT66
EMTG?
EMT?
EMT70
EMT7
EMT72
EMT73
EMT74

7=137
7-140
7=143
7-19
7=147
7=151
7-155
4&3-534
7-161
7-164
7-167
7-170
7-22
7-173
7=176
7-179
7-183
7-186

EMT76
EMT77
EMIVEC
ENRGDT
EQUALS

7-192
7-195
4=4918
42-1440
39-5#

EMTS56

EMT?S5

=134

7-189

43-38#
43-404

43-412
§3-74
43-42#4
43-434
43-44
43-454

L3-464
4L3-472
43-48#
43-492
43-84
43-50#
43-51#
43-52#

43-54#
43-55#4
43-56#
43-57#

4£3-94
43-58#
43-594
43-604
43-614
43-624

43-634

43-644
43-654
9-19¢

9-19.

11-APR-80 13:17:48 PAGE S-18
SEQ 0305

25-136

o le c B

c i

SEQ 0306

e ale c B

25-102

25-86

25-8¢

6=5608

—ew

tERR

GSAAROc2O—MTNeYaIVYcORtPLGVaRCMNAc23eoEeVGG3IN*NLMOGsYIM2GNMG~eNT—GGM2Oer33GN-—AL0G‘I11GvM2—eOP‘10OG—GP10N2IOGe—P20O20N—GG02.GN22—O<AGOIM2O(PGOfNN3—30IONPOP3IA2I—OOO3N3AIO—OMN‘4N“2LfIOPG—N‘WMO~gPVF42D5ON—GGVN5GO—eONPI25O—NWASO5JO8TNE6O—NO6I2N3AAIg6NOSG6Og2VO—AG6ONNNeT7GOO72NOe—INROMOe7PON72WGIO80NM8NeIMO2N——eP998NQO=OPPN92A=OPW902NVQTVWD92Fo=ONOO0Y~-](2—N—Noo8o¢Oo¢—oOZF—0oMo]OVN1OWIMAV0OOa\&e0NVy)]oAIOeN¥—aO[—NlaNM0nV=~OIda—aSPyNX.\CX~-—=—~--&r—M—
Rt AR

NtecD70N87N8OOg——OOXV,=n...|q~cVMrex1k11UnR—YTCRO-geV-—OcrV554‘NxTw—Mee.NGBG.VO.Nr6N76OR1W=INOAeNG0MV888kRWTkoO.eOGT.MNOo.VR333RIOT2PGOo0E.NASO666TW"¢.NePO.L-oIV888kPTOCRANeNoGMoNO..NRO22P0RVURSN LT.OGNTOO555AOON.UNNIGN.NI-77O76DRWR.TNNPOIGTMNSN0009-RAOT.AReVG.OTNk3‘3N-|N.OWQeOeTGDW-Q666O5Rk.ORNWNA=GOP].R119-g0ROOT.OGPoOVoNN56k5.TOS|NNRO-PGPO.oTAA777P|NOeOoNNOoG.GrWN99-9O-RATOOOoGGN.oN.34kO3eeRSOT"WGPORGT.oONW666NyeTVRVPOGRII.oI.888UMRNOTOROAPGGOIo.NVNA21.1NS"TPNPWIG.AN.N555WOReR2TOGGeOINIoN88I7YB0SR——eA3P<TG.NI..S433NQNOI8AoeSOAGNJD-7776INRRSNDMGIIT.o.99N.9eNOR1—MeOTGORVN21e1MIvLRrN7OGO.—.ON666IN5W.TR=MTONOIDOMNV88O8INO=VNIPGMTn..a000NRON|—R.OPOMoMWO55N5‘XNNEI-ONTN.1.aDO777NNO|=|A—OOLAINlVaI99t9GRQoODTR=NIB.I=..NVN3O33N2ON&N=O—ITDMNaN77=6M®NL»L‘OAPu[B.n.-aM98E8=ON~TOR2PINLVa30NLTAozOMW —VSFO]L~DNTRtTTOOWMOTRD]IO TTNOIIWeTNWTM TS«TIo—MO—&]]|&)t|NuINaOanVNNN=&IMTelIIusaVmOa—IRDNAs&&]wln’OONILy—aB&O"[&LL.lrNeN[=2—--M&C\[|FR[«RMDDN=OOAML0=-M-~o5eNoFPI]'!]Uor—[
6eAcWS5ONASg6N69A‘1-‘M=W—.s.-D.—ccNtY2N2233722W—|rA=—gOwega.n~ucrcVkn55585Wga=oA-N—Omeegg..-.=ocr2N7—277227RW—eon=eeOgIGGGt|.=Lw202m1160W*—RsoAOO.WGPAGP-t=.p2‘—k54824NWRONeOAGGPGP.7R277‘6|—WN=oNoO.GGGY.G-‘=T.288882|WN(eeo=OAANPDMP1e.S2-3kk23O393WR=.Oe—GPgQG.‘0.25Mk2525O25G|NON-AeeOOPPP1-7V-O777|R.NOgPPP.R\2N;.12821HO21OWD-Ae0GPGPGOVNN_l.02445‘OWIR.NoeOIOPPGG—.2Pw2-5%7726L.RsOvNOAOGGO—N6.I732WN2TF.WSR~NePOPP.\2V23A-966726-n|GOAROOPGP026WN.‘99h2.8-OORe—V—RO.OePvt.28N7130w2=20.REeOO=v&OOG-0VOON944.5.“&‘OMAW~T=eP-2‘.F0772274"OERGoOPeOO27M.0AM9R9O.29.LN~W5R<OPG29F.0FN33‘222—OWOWA-u~OOOT3n.N.O66k26NTkn——.RT5AOO2T.%e982N8P—=SRM——-—n.6AOO8eR-.55e62‘3—OW=uk—TO25<Oon-r.82k8MW—FW|FU8.FOO86.—.O0020-W|On—A2O—0rWOM|N-3N3‘2.2ONWIW—3rORFw.e7I—.w.7727rIWWO2|—=—T—OOrNNW-—I9929TW~T—.RR9FA=eIR.FOU7r.O-I23k20kI=N2-®ONO—.MI8omA66O—2525|M—=—OrINOWV¢-IM.e8828M8&&OoN|—NOW0I-M.=L—9N00—1O2920o==Nen=—eI.¢O—Wr~A552‘‘M%ONMROoNn——OI¢"=—.I9e7722727—OrRuMoIo—eL]).1—=—-99992MGWMNNA——|NY)OY —oO|oaIO0NFVoAN——-V«0a&].-)[(0]I]gNV—VGe[]VO«OgKaT—KOeu&VILyOa[TVTgNaMQXyo"[—l~a&N-VM0aI2)L)¥MT0NQyOLOL—-N[LL-IO1olT|—.
NeRA95eSFbNW-.cI3N7oacSR5LNsRwA0MeO.c7NOWO|ei4I-2s*n6¢.M5NOB0-7eWo—OO6.-L=0oO=P-A O8-0=3MWvOe.0—5WwoOP4»0mI7ew.8200%oO-050R=—OOG.n370OO—73O8OANP79OWOOP-.LF9M\GN=Pn]06AOWo~O.T58OSOLNoM793NOP.9SSFWO04ONwOOP0N6n.=MOO9INWOORO60-N=SO-8DP.OGO=O0PNWMO‘O—.NNR=M8OOON9nNON-AN%MOIP3NM.R%7nOOMMVIM8NuOOABN.NnMN0bNMOB-O‘==WI.0W6rNnOB—N7'—MWA.9=O YNTT—-LMOONsM0G—neY0NMO.O«L1
CROSS REFERENCE TABLE

CIRMNAQ RM05/3/2 FCTNL TST 2
(CREF

MACRO vO03 .01
v01-05)

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

SEQ 0307

12-¢25#

12-<39

12-<39#

12=-<39#

12=<4b

12=<464

12=-<4bH

12-<50

12=-<504

SEQ 0308

EARIAIAIRIAIAIAIAIAIRIALIALIA
LA TN W
e

12-<254

ALNALILAsAsAca

12-<25

[V X7,

12=<17#

EARLALAIARIALALAIALALA

12-<\7#

INRIALALAIATALA

12=-<17

<Ao—oeNOMAY-ONGBNOMOONOG0G0Mvv—MONIOFOMN
=
y
RR
V
eRN
RRR
N
k
Re
eR|R
NRRR
-- nxnRy .RRw R e RRRR RVBR R RRN|
=unnRy ky RRR RR| WRRR \ |eRRW ||RRR ||eRN /|
wR"RR"R R RRRe|u RRRRR" W||RRRRRR" ERRV N| |}

2VoO[M[NOowPN(W(MOo-~--0—-WON]=—)Va14’U|laz~~V[]l[o\I(\GeO—IoA0WJ0TM—20)OvI|NLY\lM—NVo0OIOO@AoMV——o—O=TNo)NIeT|=aYUNMNVoMrWV8\oLeoA€i2M—S=N(M—klBRoIVIvgIO—TI—BeOl0o0WNoNO)NOoveTr=MkOV—=ok¢INIIVVOeDoTo=O—ooIooNNNS2NVNMWN=k—=lIMeWoOIrMoROOLrAOIvTIN=FoT_IVIOM—LNNXAW—IXo="o=IOITIIL—W==NrRoLDe\LTGMAMT2aLONGa8—oo—ONODNaNOCMlL0eMl)F01oYlB—r.fAOYa.c0YaVeG.AalRVyoR\IN——00—0lBR=lWM¥YLN...LWDr2LOXoNMONOON0OMNAW=rI[—IA~aGat4dYLe———VgA-—VoANOvaIFLNITN00TYrerO.—al~O]My(2NOAN—LMoNGGVV=—Ia——OILeA r=TOOgN.aLLsa—rELV——OAO;NO~YAOoR—2-—LMC——[gT|LLS8—]\No2N(—g0OF\N0)IIOMAMToc—NFO*—0TNg3WOB—NOA=l0|)|V|sLIcOeO2TRNVOO——Al—O—WEoIB@ITIeNNB0IM0R0No=esA~N8—p-Nee—IM—BAONgITI—GAM0I-oNO2LLOGoWAO8o—4—0Re—IVNTOI0IPDAvVNCQIOON8OO—0L0LENTAIENUW——eROIMIDgOgTNWV—MW82MMLWAOdMPNOOTLAOIINBVA[6N0OM0VaAINONOUN-MVP0XO-—D=—8M.2DLMOeLSo|(aA2VOS0»W~Q—TN0)FnMNOgNTW)e2Ou(OuN-OVVwOMgOBVA—gTO0=Qg\eNr0]NAI0.—A}.@IpIM"M0NOON%IT-gWn6—TVMSd)eeNJoSH-yUE—N0II2—VBVHMIWNe0gTTNN—08NVCTRIbOgOIOgIgN8Bg—AOIMHIMVINVM—OWDgTeTULO MgCveNegNNSg00—NUH—AH2OOIHV—Ng-UgXT—TA=e0U—W=eNgMIP60vL0—IEMH~‘WEVVC_MpUOOOTNT—SerA~—P—GIg8UOL2NUN.HIO—SONRWWTGTW0HeNgNgEI0GgN0POTNOOL—E3PCTA6sN=VIHeM—gOgIPg9o0NIU5.ONB0RANVNeIgTTBFNTTATO0LGeODGGI—Ig‘oOA0.LNONSRWOONTRNeOIeegGRgILV0ooO20ANE~NAY0NONAW—IMTT0=OAOPGOPIvoo«ACDNM0~NNQ~TT.ON=OGGIGMNAPWo2ACOO—OQY0OeoOWNORMGVNYGGB02CECMINON—AoWMNnTOEeDNOAPGOOgV2ToDCOBN0NOYQ—FeOAq=MeBV0O—GNPG2ONr»SAATONNOR=AoOeT—YCgNNPGGMBOON2o<MM0NAOBCST0LFW=ONeAOGAWOoG6oOyLOVCD0NPoGOA—NGeNN=O=VO6PSI00OBoNoMNOIOX0AN<~LTBAOODRoG2OVTF03IACDOTOMOGSNWLaVaMANLMOMNGGN2P)OD00o.DNTOICOMMONoNIV——oWOOG‘GDGM0IvAVNP00MTAMA<MVONoLHGENAMONODROGG8TVOG0IOo000ONNWXVSMOT.HON[=NN)MOCG80eOGEBGo0=OP0LV—<DCMNCNUMYOMNVPD‘OIOG8=MoBG0OAT0o0nO~ANDVAAAWTSVORN280aB<P0SD6I[FCVaCNOVAOOMIMEN[=C2GIOTOO0OW[0aVH0O0UONaA.EANONQAMTQ2=MeOG0GT0I0OO8VIN~aANO4AErOODO]ANVM2G-M|PNHG0oOCT000OWNWaN.CNXNTOIDAN‘OGG00W8QD1EI0PLOAMaoCOMNWNMNS9AVIN=8GD0O8iWo0OaOOCCTG=T%Q0lOWRN4WG0eV[&LA0VPVEVNWaoICBNODNO=OL~ANANoG ATTCeEoM[(Lnao
M[~~~oCL<[gNw-L—~4~o]NNaAL|V)''}Nr—J¥0AoJlll]\0TSMOoOOOFNAP—MIDJ\}4|)MJSrU—O0=evAIAyLOLOr—oe——1|IvAVLNNN~=DAy2QN0~MN—-IIIeLLFo02OL—OO~w—-~NO||_0—FIReTO0o"LNN0MONaAV-)U00LOJrNN—SoOeyYM901LAmNOOlGe—AeUI—OO4NND[d—aNO]MMegI4v0sLe_a0[AAE8OaL0-T.e—~—L—VND1DO1]JI3.[(SNMAONe3g—0\)00|NJO&O1—WOSNVVeLVNaVO—OvNNVR<oHIVA080ANO—IX7rOMNOaIM—ION21wIVN~LO0NMn—W.IeFD1.|Oo¢~0NONNO ooM-vR"n[J4NyV|——]M~¢[NV-(oVIIe~0VO——W1]g3[1(Y]aa3&TALO0NTO)yVM0kr—m.YROWNOMASquOgWVV—ONN00INTT—oMVON-ANWWNoIWg~TVIMHoAOVNO——W—WTNTNHNESCO—V—~MNNMTNA~IEoNMTTOM-RV——N—UECoNTINIM—SLDA—AMNMgGNHBHoTMIN—IOW(NoiGATeVOAANTITR.AN—eRGGNCIRNTNO.—oITKeH—GNIBCAETHNNCo—CTeIOISGGMVENNlMANBNWRA—~|IeINQPIGFNDOOTS[CNBN—sOaeIPNAAMrTDITNIe—oYGMNOWA0KOTRATNOGRDoTAQAMIGPIGNNCTTAMQSO—eoO0@GAGNWNVTCCTCOONMNNMTeVQGVPHCOMVINDOAR.DPQN0GMV<L—oMENON=OQ—ONAGAPIYV0IoMKVDNAVOSToTI8G0VNoDTOVTNNNRWa——aAeP0W8Y6ANCOTTDWMG=aVNoOeSP008UNWTTOLMAMoNVO08G00W[DWLTDLaOR.oNANVMN0GN0T0oTAMWEDAThUTVVP0G00ONNEWMRMAO[aVVP0I00UN-OTNOOONANMPTML00I0[aAUNa—NNOVLoSD06¢&G¢IPttaaADOWWMOO—N$P0(T0Lo
CROSS REFERENCE TABLE

CZRMNAQ RMO5/3/2 FCTNL TST 2
(CREF

MACRO v03.01

v01-05

=D47

)

M
1 -APR-80 13:17:48 PAGE 5-20

SEQ 0309

0M~o=OSeAN—OPOIrWMNM—ND~OIMANMeO

35-381

35-391

35-394

40-77

40-78

40-81

40-85

40-86

SEQ 0310

IWINIVININVIVIVIVIVIVIVIVIVIVIVIVIVIVIVIVIV)?WIS

35-378

P=Be

1PCK3

IR
IvC

L8C
NIV
Yo ]

)

V¥¥,

N—

]

COWVIiN

&S00
—

(A
P o
(P

V0O OoOWwW
=0

ooc'ron
]

NSNS

orn —.-00
-~ —>

PV I

~N—
—\N

£S5

?V'

Nt NN YN O — NN
OWVOr
— 000N
O~
NN
W
O~

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

[ Jo )
—_~no

=8~
!

[}

SN0

OWVESBOOWVNES

CROSS REFERENCE TABLE (CREF v01-05 )

MACRC v03.01

Lk Y, ]
OO

[V o1Ve
1 N

—

9-19+

9-19¢

32-97

32-51

-\
0D £~ 0O
fo8
o

WNVON0
NN D

oo
o

mow.nooom
L

Oorv

NN
S I
—

WMl

~no

ANV OO NO PV OB ~ N (D W
WO
O WM~
O 0

JOTVEC
1PCKO
1PCK1
1PCK2

ILRG70
ILRG72
ILRG74
ILRG76

ILRG6OG
ILRG66

Ly N

ILRGSO
ILRGS2
ILRGS4
ILRGS6
ILRG60
ILRG62

ILR

N =2 D

ILF74
ILF76

V= O S NWNO O NN —

ILF&4
ILF66
RERRERERERERRER R

1DXMSK
lE
ILF

ILFS&
ILF56

OWU‘WWWWML:
R

ILFGG
ILF&6

TLFO2
1LF24
ILF26
ILF30
ILF32
ILF34
1LF36
ILF&O
ILF&2

VAN AWMWWWMWMWMWAWMIWAYNALS O~

CIRMNAO RMOS5/3/72 FCTNL TST 2

9
SEQ 0311

40-69

40-71
40-85

35-111

L-6420

31-82

34-70
SEQ 0312

e e e g e e e e e e g e Ve

LST

I—r—rIdIA rd

—

-~.5.5.35_

CIRMNAO RMOS5/3/2 FCTNL TST 2

CROSS REFERENCE TABLE

LSTRK
MCLK
MCPE
MDF
MDPE
MEDENB
MEGFIL
Ml
MIXED
MoC
MOH
MOL
MRD
MS
MSC
MSORVS
MSE
MSER
MSGDRvV
MSHELP
MUR
MWD
MwP
MXF
NDTMSK
NED

NEM
NOP
NOTAVL
NOTPRS

(CREF

MACRO v03.01
v01-05 )

1155

12-:14

12-:23

12-:=67

12->58

24=-122

24-125

35-27

35-30

35-441

16-40
16-323

11-APR-80 13:17:48 PAGE §-22

12-203

SEQ 0313
12-302

16-58

16-364

16-385

17-50

26-62

33-146

33-153

16-284+

S51-7x

29-157
35-505

29-162

35-506

17-29

36-7

35-50

35-63

35-66

12-47

2674

24-78

28-31

NSA

0CC
OfD

’

OFFLIN
OFFSET
oM

34-29

ONES
ONL INE
OPt
oPl

OR
PACACK
PAKACK
PAR
PAT
PDA
PGE
PGM
PHA
PIP

32-51

16-150

29-156

35-453

32-69

35-456

32-73

33-24

33-61

33-64

40-60
40-74
4«0-88

40-61
40-7%

40-62
40-76

40-63
40-77

40-64
40-78

60-65
40-79

29-30

33-24

33-29

33-34

35-41

35-46

29-177

29-182

33-145

33-216

33-221

3429

33-155

35-83

35-86

35-530

40-66
40-80

40-67
40-81

40-68
40-82

60-69
40-83

35-50%

35-9511

35-516

36-35

=491

SEQ 0314

~
m e

PIRQ

xO.IrRA°aLxJaNCOIMLnGT~A1NoL—IMo—T-NxVX,NOa?MxIMA.NIFxOXINar—xRSnO——M[[ IoN‘QNJO—])[ \OCIeOO—NoIOZONTrSx—M—a‘RN—OoNGnNL'aBOSx-aAa-QsMo'O1Lo0,RCIaO-aZ—tAyOSaOo-Rx]W))]—rN‘PIaWD6oM ANOxTWr3O—}MOSa—)5VMIexTLI(OYoMNI«5-—x0N]OVT0—aICLAS]MVMI7IOVOI0IaYN0.I02LaIO AOVDI2Na.[a7n—Dd<NINSOT—IaEI0S—IO7eaOILNNlI0VvIARIRNFM02SLIeDOD[aTS.|—aVoINcO3aINe3S—ROTN[M(NITa1¢48¥eI0IGOo—aNCTIOgNc—"¢1nVOI]T~a—_IJM<NA —cM1!]Iexa—NIorocI—aaroIM—aTIrxa—anNIrxoNT—aarxN—oXcOAraa—oNrc
][[(W~MOoo|a}LL«r8V1II«—OyaV¥\0N}] ~-.~ £o—- ~~—- Aw ]| J[ ]" ][ -—NN o[ ~——rO—&U]ySN—-IAVOwN—N@]1IeI1TIDMaO=00vLV[¥—I0NRVaVP~[NI-"I1LaF"NI—V0AOON4e—|\SM®[O—@a]IDLBA\VI[NONa"I1IVI0tarVTXOLMOaaBNII—¢VOoTigTgN~oLLVLV1OIF]] [o~Me—aL]1|n¥VNr1OIhOaw0BoIVN—~N]nWgva5e—LLPV"L\NI}]VLo~~M~—o]4))|')y0[lg
~4oJ~ggg2)]XIN1Wo)NrV¥V—lyy[[o0 ~N ~aX ]o~ —w—— ~-— ~Y ]J[ [ [~—oa—gOW—NaL)NV_Iet0—a—egoyVVNn1lw—yegPoL"V)I—L] VVNTMO—L)0¥~0—T[—Na0NdO-M—oOALe0VGU~WD[O—9a¥ IL[Ag——gN—aa1aNV]lOW9a——OM[eNIaM1lV—gyON=EKGV"a]O]VL~o-.Y]L a—yl

oe-<«avwe»]]ONa[-——)0Ia~o1MsVeVoo[<O—0[g~—2-AD]l]VYa-VNLeIa¥eL}Ia¥lr1~—N—7leaDll[bN|——oyv«a|saa)t].L¥L:=T;0AN~Lo-a1'yrn2Ul5n]VAv]n(L9m3w¥—aoNY-—[[0—[a=[o~V[[p--oVL-— -[- VVw—=v]V]a[l"y~}a-I—a[¥~]o—n0)[)U—glaa]O‘a—-7>8&CDO)O>LVNN——kUNo0M-w-——Ud)L»V—>I(LLo~N0-oOXbMLlyINN—la)o=TO1Vxo—yMN—ZIM)3TMU~rEO~aowaA1-o-~<]——nY1y00—]—[=a~O---Vwg-lY]]I—L——y.3LO—-[°R||M-O4-—>iAI*——7a(oO-0]NYON(Lr)awV&[OWsAV]\O[9—-]JyN.V-0—e—-(MII[OaVWOM4—[==O0BVO—]]UvN<MIIgI>—VNaRmMM—]AV0eNO-LTIOvl~I1M(aUQIO-NaOV¥-—N=I~4——ENNI1[g7e—RoV-ON—[DApeIJVoVOV.MeOaLIM—oOEeO0Iv(=0eMo5&0NaG—]Ll—NO)MOW-eVBoaDoM20NlK—OM<RSI_[NNaW—MNVVOIOeeNO0O[—IL\VKaA0a~WOJINOeN——~L¥—wOT_\e|Le[¥—a9=R3-=44—e]X0eVV\OEgo4~[WLWokVgW—e—]N—O]O]oaV}[o1I]gVsNy~rla}Ve[IO—RVVoMlraTVIa[—AIOY¥-O—aN[M-OaN1e—To¥aVN[O—DMI¢aegV1¥—]LMa[[—]N(4——.—oImV[ILg[r-0V]~)[e-aN4a+]3O~VO~o-[—(aN~]—N-¢]8JN)[[¥)—}[a]oT8N8V~O~XeLlIEMRQOoLEwAWu>v
CROSS REFERENCE TABLE

CIRMNAQ RM05/3/2 FCTNL TST 2
(CREF

MACRO v03 .01
v01-05)

[]

F
9
11-APR-80 13:17:48 PAGE S$-23

T&aO<GNA0M4IN TIYONO]WA}L
-

SEQ 0315

ax wvVwvnVn wm Q Z WOVIOIE Z

RMBAEO

6-0#

SEQ 0316

Ne~VAW(BweVICalZG-LaYCaXeAN—OBOC—AINOVEWTIWNOTDN
- -- &)&R&L&R a&8&&&&&&&"-« &&&-&

3%oOONJNO6FReVL)NFoaoOrOS[W3o[gO(o(TNMWOg2M[UV+NMl]AllNkR)||O]|Va|]OYalVX2laamo2£a3aVv~eI—oeOlD¥IlllIIRILROWNVeldDR—One¥¥oN¥I2oalIoaaSMNMOl3NFlllYeOOlA.WIIIIR'Ua1TN)aNV[Uea—YILoVTA2LMJL¥NVN—Ool—l—alIIINdNaTVaOAA.MalMYaSeNO[3l0WlVINOIole—IIoNAL[ea~R¥eVaMFAe]w.rTNN5lN(——vN3lO—&=|aLYI[O]aNLe¥Ce=—3gWN&Y~I—W[tN+I0oVdAeaINOMoLMVOO——g1]N&&RV&|a&)|LD0—|}L«1I—TO]VVOoY~lBASNa—Aa—1——Nr&]o—o&YI&=O&MOW[_0Wo1LTO0—8Iaed~a—LNOYN--¥E1~LY[V—[—A(Io-L—nos-LM«LT-L1[I—]MoaLeUaO——0DaCeO0¥YN)L0)RDL—_O&xaT[|[[S)|o1NNS[LLcO~oM—V-O[—<0«M(e—Ne--AAa]1LOa"L7UO)!TXV[¥gV—li‘1aV1O1]oM]L.g[=~ON¥=»~yQO3—a[mx~-4~(V1[t5Ha=Rw2—NW”]3¥]XY-&axO6oY0oaOOYF—SQAo&a|)U=2AYxoSo(aW-vOO—eN—Yaw]&lVoB|o]I|~5O)=]-atR[DLXlaMO—mONINIII}—0J6\lI0VOaVI@~[2@(OO—NVNMEa=NooMoO«l|a]&1ILOOe]V‘¢NO=3=’VeDMnwMMBiOItOoN]aILRA-—-VN—oO-Ay«IISIeX6Leo[WNN=]NRL['—aWTONoa0L—MIVVOaC}w—1&bIOBo=SVYB¢&~yDIvTVLbGIV=<NaEIrIyAaL1~ON-MV[OPa=—MO&ox«Oo4‘AoL.I~—L—V¥«LeTn—U|]RLa0~—a—(T)-NYtr0aNO1TV&=oF-OE[[R)«}“NS[IlVV~"AMY-OoV¢M-—<o@6OMO-N]-aV—o—]a]9LL«NVEN¥U[['[—~]r—PEaaaL]lLyt-O]L¥aOVA¥aC-L=<44ax("Va-¥"Ih1Tt—~F[00R0:T—le]Xaa—0aaR"1UOM&xXVVoS&x-X0V~O1a,U=L&Nx0X»S2VoOM(&xA[]|‘Vo[-ON~MNYMR]VL]FNAa6VToV0lO3A[oN6AgrOe0N40SXo~ ]'|]a]M[1R1—l\O—NsYKVVD[o()XN[MiTVLoNw~a-a—~N)N(a3o——V-4yLL0o¥_F[[$V[Yy‘0]—XoleEVS[DOs=1.NR]VYeow2OU~-~—CNO]e8-OJVO[ax-MrI|&Y|&||y[))'—N«N«o—MnONV,D—TNMOOI(BBgVIAs(6YOaRNBM—uoIV—OR+-NNBaoe&d&RT—LRI,N-B&I&s=A]—IoO=MIVVVWMNMsI8—Y€rNNN&MToODRI—1RO&Mo—IoTrAI=I—BV0VOSTeA—NW+MV1—rAR&Hoo&!Te&IQBTN~I&v&FB&IvsVRVVo—N==IOVTSMeNN—FaONrMNT—V=0RR&&N3+&ITeeDU&R=&DV&O&oAI—oOOT0NV—V0GMMNO—F—O'roNT-&R&0IR&ATO&MA&B8«¢I—8vvVIYVOCNVOMAYFO—NIM(&—o]]—D"O@NNITrNO--IrDoXA«oO0R«I¢R¢«@[—OM—YSV}e]VAoNN\O0(—TNMOO6OJ—oOVOL0IIJR\W\\NeMYNJJ—oFN1~(ONMOIYOMSNMO([-xOX0rL\<IINITBK)T\V7NJ—IUNAOVDO\ge———rEOMN]R~=MNeVMu0LDOLOI!LIYNRaoVAAOATO@~==VVe—TR1==OOILAO0LLOYrLC~JIIUaV=BwONo‘~AVGWSM=O\SANnGI—0—L0ND[MgOOTaeN-1IVoPNT—7—Nw»—TNO2Oa-[o]A2&I[OILN|o[~n»]R}rV|TMB\——eO!NSoRRIJeL[oONAVNV——O1a=Wg—OvO—sl&M&=oL&0OV|&&O0-reamTL—IIo'MeVROR«Aa0-Ie&O—=o—MNI&eu0I-INI—6rAL«TawW~WaANVMMO—y—&OS&-d]-—N—LeO2xEO(—¢U"a«0«LR2N«]—0TRoV[erLosRIDVOE~M—03XaWINe1o—P—-JT|O]|OL«s
o<oaao4[O[VrO}|ll)0]l&16LaoVmolaoYaoIOG4FLW—1VllOT]ReVVV¥—¥0Do*aae0INPONl]LMllVI\ooTIs—O2aAaoNaNSOllOolIaUDk=oaa]NLTXWO=—NoA¥¥WlV=L([r’LVYM—l]Va0aTOO-oL"OYxlNeT—oNeO4oA)LNT0VX]~[)w)oe-O(—aa[&N"]A¢,XVL¢—\o1B[YnoaaOgyL-JuLLLV~(])«0Nl]o M[“1IbNM]oO"—NM—agaw2]1|~¥VVoJ!OY][oL1PgY-¥ay~vV(L—LV"aFN[4X]a NNa)0QOcO©4Oa—N&}]0)]|NV\A-mFWO—T]&N-IeDIIa-MaVl~MnN¥oN]B-- 1B&—I0LNOa[BIalU—OAOO~aL&_.L]L|N[—sa+ [L[Yui0—Q"M-oMaa]1LLo"doV—Io]lP])ogaa3-[-LVV*ai—]]}¥ 2soa[oLNoO~43OO]]l]1"|||Na-U~l[[SiX~Vaaar—~NNBB¥¥F[Ol]]0ANRa[(LO~oo—~W—<]]a-IaA=RR¥Ng+~L[]]eVaQJN—M—e—eMoDAMIRRaIINVAFODnI\0—O8O)NTaARRRgOANW8YarONeo&E"I)&RDnV—NroyrVOoI-ee&R&DD0rDADaT«DNNVNGMMOI"&O&DBDy—RVNNN—A*W~[NN.J—R“RI«0aOLVe—YN[ORW)OW~Ne-~-a—IUVyV—y5—]L0NNIhLVJ2‘MN-AL—g=0—RODaeRN8Loal@dOI).eOO——&/-a2LLdN[uMolaL—nMy,—nLV~MMN3aLE|Lyb[\lNNgANoKNP>M—Nw3&&&0L)Ld.]AVaOONWN0dO—)(&—[R &OXSeNBN¢aWIL\a—oE—OoA-*L1+-lL[(L|K«0l—~[o
CROSS REFERENCE TABLE

CZRMNAD RMO5/3/2 FCINL TST 2
(CREF

MACRO v03.01
v01-0° )
11-APR 80
H
9
13:17:48 PAGE $-2¢

SEQ 0317

12-81

49-5

£9-17

SEQ 0318

b €

12-79

12=76

12=74

12-71

12-69

12-67+

6-0#

RMDT]

—eN~M—WVy—M—ue-OW-—@<<al24laVaElXaAla¥lLeL[o4lXaola«XlToaV]ladlVaYlaVaTlaVCT.adLaoV[IaY¥-l—L4
—un O Fe—O0NONAMNO —YN0DQD NOGNFN\—OAM
I~-Nlr[ o—1N—1 0-—]gO0—[ LO—]A—[l Al]203lI210a1OI[*aL¥] ogN))241VIaN1aIYo2O~lI[Oa1IalO.DLLI0dea—v¥-MLi_aT¥“~lw

=RA
0
0
o
=
O
O
—
O
e- RRSARa.«RSARR-eRRARA

-0~LIrV——a-_[IO4a¥[VTY](aMlXVR]N~oNDe——yMN"-mooo~ O—NSNO=~NM&NO~=OM—STOO—NIF—MAWNNAMONOONWFJOF—T—OO

3Y[@][VW~4[~oOe—-7—(YAVLO0[-Coy—NrOLvaa—N—b]Ha¢D]LK]IN"=aL¢&a)VVO¥¥VN=1]NOO]¥1l1OA1l«—lVaoaaI[~NXT8X-xoOekau¥~«VA[[oO0yeNS~)]R]¥}Nl3eNN0F—DAny&"gIh[—[e|NONN=r=RIO4W[V—~3~o~@OVNPagaM-«NNI@OM—og—-N]B=—e|]N!N"I|r]~a_NTV1m]Neoeooa—N«MOXANnOO~~N[~—~~2IE-Xb=gX5Ly[—L—Dya|L0aNeI[L[oF[—yyoFl}—e¥0saxO—O&_aND~-OoA&I0+OxO~0O&VR—2ooaOTMoNNe—NV¥OWoDANM]x—Sl))])|T|n|YWeD]_|O_oNA[a[NOO-0eM—PoN—TCNYO4—~(eN]aN4o"d&—g]|INNROBVh—@IerVLOeJYVoay—«¥aVXONoRoVWa]QLBTNl<Oo—~=Il—aX6QIorAIa18It~I«R0MNAYVe¥oNO=r~I—[Lil1LVO—OlVNoN~(o-LL@T.a[aT———2UNM-IyoM—LBa|Iv~gM|(IvLAO0OV0aLeaMIXyYDlOliOJeWT)NY.Y)ao0~-a3Tgm—&IB=Ix-—y[VNLSUy|[F[dV]]llIoBVRNAlV=N[@W74MaN—[[a—TM—-OI«N08OV—N30deV—o~)a1]l"Ya]]]"M]L|dl)yO)¥1Y¥aT(IaT0..N]lI\4m=¥~aON—oO[—aO3Ag5alaVoIwTE~-fLL|[—aL(NBI[|(0en[LNX[[1rN—a]oa]sJaNX6sxNEZ[4-oO~~~—=VIEIIa|X—~)ZsaR6owELxOVXOMN~—]ITTVaCeE4~ogYRI]ZO@[—LxaTM~6oOF=R—]CTQ[»EmnXB[DLeRIaC4OV<-O=|x~DXEI6N=OSwRWXOxI4OXyT6xaRw0IOcNwT4aMaO~—NV]M—oO1)0NV\ga21MOodooOMO4OY4Ny1a—OL-elaMl]Vl|oN|0aON<|'|Yg50Va0NGN_EdVJaaN—RNYoNVoaoXOAYO1[oolKlVO¥RN]NRarF—l—RUAIOOI0IM.XIdNaO0VI—T\VVMY2.aoaMeTYO3NeJ0ar6=lNM~AO].4——OllaOXII0VaIM]YMS1—I—[o0PL[NIYM"NlLMe0IY(XVeaSXXVNMLOaOQN—(NeaIIlLRIl—RNP¢YoY2[V.NVUN@VRdVe[aL—La]W~OLa—1aQo—YWk~¥<NlO1N\DOYO—I2[V—N.l.A—|xa4Va.rY,]N[o0a+|a"N|Vl=LeeReYxO=x&av—»oaoYT—FY&—B]xO]Ot~,oaoO—4VNNIdOYeNWM—}4oNlV)|N|,|I)oM—Uoa]RoDAoogaIMVMaFW,)aOO—\Mo1V}X)OYT1ll6BB|I0YVUBlNOBLVYVNYvTooLaoeIAa-y3MWaVMNgOa—NY2llONYaNB6OlBNBJBVlYO—RViIVD0IV[gVaaoooYooOMNaTNaMNlAlY1Il,aO—.4O—IBRDNBYlAIMRBVIVMoNoM0LaoeNoNE\aMOUOTogYlYIOQllWULOMM6VlUITNRIyl—II<AOWJIVoMAooaaaooIaDMNOT2lMMaFoO3lO&lONlUTWRSl6Ne~I-IIIlR0NTvW00rOMNMoa—aVrNIaMINaRNNAoOloRlVa4lWORS2R8AMlvVMD0IYDYNB—0ONDA0lDaV0LlL\aaVR[NIORATV0OeaMOUOJOB6N—WOdo1VGI=N0BI\ACIMIVi[IVd[2aNaA01aNEMlaWValVlOLOKV4NRNRV—I¥AQ\]1~NVNIieVFTal.]JN1l81MYIWyMI0CrOia[MLLVMoVYLeVaW0OaNa=XaNa[wI—-2oLWi[V~OO—GNIlO¥N-YV|o—TYr4oLE—[.V0=0|([lLelel[V—¥Le§-aNoOUo.2[l])»&—V—G=[LoaaTR)l3S&xMWTEa~~w3oM—oeo-O5I)&LYz]5[F1)}—xe.3~~[=&—SbaNVx3IR&rIU1NmaS—V3raMo4—LR&.xIm]0RoY—43a§-W=1—oSIVORxOSe
TABLE

(CREF

O—MLasN=e<Ylya’Vl
aaL a -e -«
o@=a & & a-&& ea && -L[N & -J)NL &.oe

CROSS REFERENCE

CIZRMNAO RMOS5/3/2 FCTINL TST 2
MACRO v03.01
v01-05 )

-ea -.a

11 -APR-80 13:17:48 PAGE

$-25

9
SEQ 0319

12=F66r

16-59¢

16-302

17-22

18-73

26-24

26-45

9
SEQ 0320

CIRMNAO RM05/3/2 FCTNL TST 2

CROSS REFERENCE TABLE

9%
O#

(CREF

MACRO v03.01
v01-05)

1 -APR-80 13:17:48 PAGE $-26

SEQ 0321

31-104
31-104

24-109

26-125

31-32

MY e— o= r— &= o= O\

12-926

12=;16

12-<17

12-=00

STANDA
START

STCORV

STKLMT
STOP
STSD

—

STSD2
STSD3

STSDé
STSF

STSHI
STSHZ
STSH3

STSH&

Swo
Sw00
SwO1

12-29

36-27#

4=4L918

37-34

65-1
65-1
L9-16#4
45-1
46-1
46-11
461

44~
48-254
46
=491
=491

=49

12~ =83

)

46-8

46-10

-—~

- [aVIaV1gV] Aa0 ownNo -0\ UL

LI] OFM

e—

Ncee—OVONAON ON
TO=m VO

—p
—gg—

LV."JaSTaNTo]VTNT

12-:21

37-19

38-

45~
45~
46-8

46-2

44-8

“4-9

-1

L4-12

44-13

48-206#4

46-10

46-11

SwW02

6-469

=698
SEQ 0322

CIRMNAO RM05/3/2 FCTNL TST 2
MACRO vO03 .01
CROSS REFERENCE TABLE (CREF v01-05)

1
7

1
8

9
8

38-6

2
2
2
2

1
6
L4

2
6
Ll

2
7

2
2

26=125

25-106

25-108

96
8

9-19¢

24-109

g—UEe

SEQ 0323

12-24

N
9
11-APR-80 13:17:48 PAGE S-27

<
1

26-12

2
2~
2

2
2
2

15720

12-<B9#

38-6

B 10
SEQ 0324

V20V9‘~18—0\2y18Zwv.&-.-NlOeO@Mo¥Oe=rumnTPOOLNM
W
%
N
"R
R
L—M8o—)MMON90NV00V—1oa=0~2-eOal03"Rea1l‘LI8L-OL—1—MU8LYOR1O8N—o[1"OMNaOeYlW,—INXMe1E7A——e(NO—&MLe
'=—]0 QeDOO—IN(OOO)WN=OMONLOWoLAOMY|WO —oOYWNIOIV—aBINER~NIaNO¥OMeNOL1[VeO—
15‘ 6L2181 1— LN1V OLIL|

—&N8OTNeC=aOloA0>laaLoeaOW‘)>Re]aN0Ml9MA0.0NaI0\GlN0BI01T=ANN0OO2][(=IDaIAO¥O~O=NR]1M‘FNINIr8OYOON——IIe—ANw1a>—ON4E~MVoo>IOLMaaALaI—>ol1wO=oO—vO}DiNrXV0-NNnOlIOL*)O=1aT~On[dF~a6NOOVS1INOa6ONeN—oVEIO6STS&DZAMO6NNJ—S2t~DLSN06NNNOkIo6DSlITNINoo6UNlOUt0D6—SONoILto6DWl0NON6o0l0ODI0oS6NNltVORD6OoNAroNo6—DtlIA—N6oOtlM0R6NoMtNl00IFOo6oIltH0WEO2ooMNBAtl¢0E2oCoNVDtl0MDlE~LVaO—aOt8 ldl
90OO—NM90oDNNO0O}gyI2o~=—N23CNeMOr3‘e48AWO-M—8ONN o\ooSO0]}]}a[[VNMNaa]~e]V.VTIOToaoaeV\VVN—JTI[Va~aM—NVVFTTTI—NOaa——NVN[TaTl
M01Nc0O0a6wMN0I1O—2M(N=—NN/~3‘U~4M\8-~—— OeoN¢VVaeE1NN42—g5OV[]0aNTOVoW-IVVNaNlMMV[—LTNIOatVVO1N—aIeNOo
UNS
UNTMSK
UPE

USE
USRFIL

w(
w(D
wCE

WCENMI
WCELO
wCF

4=7364
4-6934
16-254
4&-568#

4-638#
=524
6-7354
4-7604
-7614

V—M-Y)PWDoNvIeM

12-475

@ON01tIaN—00laVOs¢e]geN~O e00—}100V—[¢= A&0)NN8A OOOO IQ1 weMB¢mteoN—L.Iy
o]0oF.&f.—¢8ToV41EN—T0ene8Y1(o N——|)rOAI—LNIIrI—22—||
—:35ee—8Ne—Oq|e61| @—O—r"—Vr———NrO—
SO—NJT® ANy

(CREF

MACRO v03.01
v01-05 )

9-99

12-481

10-70

12-789

11-APR-80 13:17:48 PAGE

10-91

14-23

14-27

14-32

14-34

38-10#

32-59
33-232

33-264
33-269

35-279
35-282

12-794

25-169
40-77
40-78

12-989
12-:85

ITVMOeo oeBNVl~,

—M—g- OVON

CROSS REFERENCE TABLE

N| MLI 1—I LRI11v L-L—1[ 11) R 11R 0R 11L.
UMOA G N Y e

CIRMNAQ RMO5/3/2 FCTNL TST 2

¢ 10
S-28

SEQ 0325

12-,81

aMmo—0 ~OgF |]L[
35-287

12596

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-£89 l2-res

35-3
5=-34

pey

(=59
5

5-22
0-12
1
9-30
3
2=20

R (NNO
N

(ZRMNAO RM0S5/3/2 FCINL TST 2
MACRO v03.01
(ROSS REFERENCE TABLE (CREF v01-05 )

25-225

E 10

11-APR-80 13:17:48 PAGE

$-29

Seq 0327

25-238

25-253

3 br

Q41
1 2- 930

Q-

1 2= 8 34

25-268

35-2 79
9-7 7
12-; 18

35-311

35-315

35-323

40-81

12-£71

42-384

40-82

—AOLN—SN—FN=O=N=SO=Ng——NM——gA0g0=IOA=0CgOMgQ—NgeN&a}[al.al.al.alYMYMYMYMN—MValNpva—oW
gN APPOM=-POPWPPWPAPTPMGAP—GOPUNPMPNPN
YAORI
——RN

X
=
Y
=
}
[
AW2OsVSBIO—NR)Ya.TMEOV—0gDIMOgLVNLT—gO—NoEMVI0AT0eOPgDMCVTEON-TNegFaNVTaYO0MgAPPI0EVTOPgN0AVTM|IggVMOGsrcTINe0gaoVevrOTeIOeCVvVeTeOrg-RNAOVTO>vYe»g2VOTO——TeegTM=WeOgOTAMNogSTTeiODoSMPITeOggNTVATTNggUNMTAoOeggVTN—WOLeeOMgNNMW—A—eeON ~—-—N)a(o_e[eOa—"XoAOVN)=_WaSTWnGwNOly~00YaYoTd.o

IIIB| I L

—!' MA'—OL)M '

I0DHO—AOWOOH—H2TE—eITNgOO)y|y3AACNACUOF——N0—M~WBT-AyC-MUNrNO(DMO—JT—NN(OR(OIJ—NUNBM—BIONGVNBpAOFrMNDPOLIAIN—REoIOHNSICeA——CN—MIMgNPSDDtAIDDANN—NM—=NSUOR—gOOBYAV—UVWOwIWN—OMCeNAAIgOeDPWeNDM-OIOTW—=M0INOPlDyMNOsONosIsOOeOTAOAPDMVVIVVMVNON—OOARPBeNNOIW*--N-N**OAIMOOAVD°f°+MYNIMNMNGO0OOOTPDN—IIYeAOMO0RDLN~IOOITO0PNWeORDt0ENEONIVPAe—OOTMARNIOSPOIS2VeOOeOROODNRNNNO—eOONA—TDgMNONOUP—U7Oe—IDRAOgNAOAWMNMO0—GeeVROOTeONNNNNONMOVNBO—OAeeDg0rUW—O—LNM—AWNOeeMM[MOrA—TOuGIO1~TATTVFW7~ITMIF2N~AIISFReA3<0I8O”IN~TAI0F—0TOARAL26WU0NTMMA0INLTAST0(II3W]IMOGSIA]03IA0T03RA030Id0RIAT3G.-Ia—IR0—3I0I3I.RIEMIC3MNAOOIaI50NNdAI—A3DIM0IN5g0IETR3RSNTIAONII3AMIo=AI0ONILaOI2OI0LNA=oAUI|x0NTN~o)—O——OaNeM}0VAeGVoNN0euXe—1~IY~AVOo0.0MLOaB—NMneTNVr~MTTomOo—31[TIeM.R«NOXVOVoOCOONRNESa[IRL.
-VOuDAW—O—]RNRdNCV—NAG—TA00VS—Da0TPVAOg0DBVeAaA—Y0N—g0L(VDIFM(EO—OpT0BLYB—SAVW—TUOOMAgCADNWV-GLTPVgO0MSINOVe<TIIWoIS¢NM8AT--os“cWINOAgoaVYVVVgAN+YORrr¢AgNG*TCO—»RI00TOONOOMNVG—TAe0eNNMTOIAOeIMRTI0—FOyTOPNPUNMW—egVTNOOMteeNWV—AWTO~MO—TMggeFNNVUOWVNIOMOeeAUI0SAeeMV| <—X)oO—TWL—C}"e[}oTe—aw3<@=M¥[[—oTOYaNaoX0¥OVNOMlYTTsa-ae
CZRMNAQ RMOS5/3/2 FCINL TST 2

CROSS REFERENCE
TABLE

(CREF

MACRO v03.01
v01-05 )

F 10
11-APR=80 13:17:48 PAGE M 1

SEQ 0328

NOwISyN!AL R!1N1

aA—fl—.—(.—DpF—-A—Pit-vVg.—I—FTTN—O—NOO—N—M—M—Je——W
oo(V]][a¥]ao0o-O—=-M—INBCM-N—A—S oNJWW—A.AWAgA>V|}—S)—o7C4B—WNBgW—YM.-C7po—N—ONg—GBV—BAOD8—YYoDCBGV——IAOADE5V———NRGBgoV—CVF01D——ODPGOoN3BE—A——TUPDV0GoONF6IPATN———eRoGCON-5T——G—AR)Yo~M“——TlIIBVIcPlIaMNo2—coresNPPPgOraeV8Va—Vo———WDVNg—O+***°¢IgP°f»»VOVOOFgOG—RPVN—GNo—DMgPGWV—NNM—DPgOOTOAONe—PR0MPTONa—GTSOTYoNNTSPOINYgV—NoONOPIe-gTaNOOOIOIGiNNUNNaMOII1geMI—MMoMDVMe—g—IG~TNaNP—MN—Y Loo[o~
WA|VBCOR-BBDCBDDRIDcDaVD»DADRNDFRWRNORCAD=RDM2L|

OON3)|.I1—BBOBOO.AN1R N.DD1NIDIN6—.RD5IOADO3—.AR2ONRD0N.eODMN9IRRUN
.NIIR7-6TDI.NRILO-N5NI.1NI‘OOUN3.OLN&LOI1T.LD0ML—UO.9NLO8[L
OYM()Oe——M(YO\NY—=e.—e — oVTV]00}aNVVMIoLS]]O|VooOaNoo-J—AMV3oVONVToLRiVTogVTNOoJDooVGNaOMTNOVIDOQioANgVTVMNA—oRgoVIMAToe—oNMRNVVo~IVoYooMOROVVIWVMYoOVNRSiVoRNaOITNQoOTDNVoOIINooo—RNTVVM—NoIoeAOWaVNWTOIgTYRVoNToVoTMIVTaMNNsOOOoTO0VoVTOiR0ogNNoIOoI0aVNNNNMgIN4TVMaOTIQNoR8AIVN—aoMIN[I0NTaIOOaVNII0TTWaPaINTLOINN0IaNaL0OI—([a|eaN
VgOOONINOONI—
]IN]0VOTTIAoNTOo—R—3 AIgVNgoIROVVOVMVoMIDVoVNOOVRIogMVoOPARRVoOVoNRTOVVSoIMRaAVVMN—2oVDIVTONVORIoDoW—NNsIoVIaCVNNgONVNOOMooTVVOO oLIoVNMV—oIiVgooIAVVONooAVVIaIaNNDLTNoaVP[TIPaVONAOIaIaVNiLa(9V
R
R
R
I
L
L
L
|
00O)NA 0OI —AI—FAINAOIONIWMN2ODIANO AMI OI —I OU FNA —O0I0NIOLOQOOIWWNLOVIONMeL—N[

-ACBADNOIsVvOOMNNONONIM—

|X o ]3[V w— O0IN0TNOMVD—MNO00OOVNIOONWIOONNIUNOIDNOMNOORNONOOCNOANIONMONNVOM—N’NS
CZRMNAQ RMO5/3/2 FCTNL TST 2

CROSS REFERENCE TABLE

Z&a 2OENDINIO—
[]-V,

SETUP
SKIP
SLASH
STARS
—

PUTREG
REPORT
RGBFMC

SETPR]

SETTRA
C=4L490
=694

38-10
“-774
&=4910

4-4912
4-4912
4=4912

(CREF

MACRO v03.0i
v01-05 )

12-F06

9-254

12-F10

Le]IATNROB FONVOTAM—IN NQO-MU—SUNI

oL1aX11aVl LIBeA]M—OhNYe —YerWV—Y LI) —AO~N0FLDORIA]N
NO8

11-APR-80

12-F12

13:17:48 PAGE M-?

12-f1¢

6 10

12-F21

38-10

12-F27

38-10

SEQ 0329

12-F31

11-27

38-10

12-F38

38-10

12-F50

38-10

12-F71

38 10

12-F82

gPY—e- WATOUCcL-B¢GaINM—CVDO gP—eY-oNIVg[aVIaVIaIgIaIaSWA—OsCIN-BOfNCVDUOMD g—eGYP=o[ToIViY1agNaVgIT]o NFA—TOUITMOO g—GP- e—-222222222(I222L0NA1B)8 ANOM—AOI

~5r

38-10

318-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

Segbagso

ON4]R¥eRVYVegVTJEXORNMoAaloOladaVNiavlMoAlXFaOlamlVaoleTMOy O-—
IAAMAOAAOAVNOANAAAR—AMRNNIR—FOrO—ONNrN—rM—O—R Oa0a0
OOFO| YIONB ETNIOINY—MIONY3I OAFB TIONRAY OUO NOIDiMMDtURIMRoO=RUAO= eI eN—R L~It
|—OORNO|~NON AIFNMOOID WNBBVI2NMBAyOS0RBMRNNN &ONBAAOWVON
RO WNO MON7RNIAIDN3RNRRNAONeeVLR—OUALOOTRMNIL—AWLTRNLOOAOoo ARMA=UNARLOL=oANRLoONlLRIANAUUVNLLRORN
|a—ON|0NBIWBONNABRMNDAYSROOO—O NBRMMPRDYANBDNRY.RRANLD DRNID 2ANRR ONRN WRD =eIB WSNBoLAL[IOLLD S
]—W| NOBAIBIONTDRBNSNNN NONO—
NONO—YNNBBIMNNOVNORRWMNRRDNNDR VRIoNLOIR NRRSNUORLNNSIRL[I[N
R—ANOMIONNRDOUWVN ON LONRANUMN

MACRO v03 .01
v01-05 )

M—N OLO MNAN—NGO

(CREF

O— MO—MNA
~m N0 S3S OJOBONT
NIM N e WNe— WV

33 8 % 2. X LE

0
0
0
0
0
3N—OOeRCOIOMMO0OMNN—NAMIDNNOM—NNAOONILIONTUNOOMOOTNSTIVO~—ONNOOMPOOAMA NS r——=O"0O
.VANOOVOVONeONTN|Y—OINNYOe0IIONe—TMANeOMANNeSON—INNLNOIOONLWIPO0MVNR0MNMOOINFANR0MOMMGNU0NAOYNWIL0NMANNNG0eNeeY—OlAU0NMOSeIO0WSAYeONU0N—8A(|([ooo
CROSS REFERENCE TABLE

CIRMNAO RMO5/3/2 FCTNL TST 2
l 1
11-APR-80 13:17:48 PAGE M-3

38-4

38-5

1427

14-32

14-34

38-6

-—

38-7

-—

SEQ 0331

38-8

-—

38-8
38-8

38-8

38-8
38-9

V[N.G —TO0MANMAONT