Digital PDFs

AH-F922A-MC

June 1980

350 pages

Original

179MB

view download

OCR Version

265MB

view download

Document:	CZRMMA0 RM05-3-2 RM05-3-2 FCTNL TST1 JUN 1980 bw
Order Number:	AH-F922A-MC
Revision:	000
Pages:	350
Original Filename:	CZRMMA0__RM05-3-2__RM05-3-2_FCTNL_TST1__AH-F922A-MC__JUN_1980_gray.pdf

OCR Text

RM0S/3/2

T
cSRmmAg -

——
_—
T-N- TSTL RHARARZALHC, il
e HIHHR]

RM03/3/2

RMO5/3/2

CZRMMAO

FCTNL

TST1

FICHE 2 OF 2
AH-F922A-MC

N vea BBB@IB@
e
JON 1980

MACRO v03.01 11-APR-80 13:04:53 PAGE 1

SEQ 0001

.REM

b ot

e et

N=OOVENOWVSN
WOV NOWVNSNWN OOV NO WV W
-

" CZRMMAD RMOS/3/2 FCTNL TST 1

N NN NN NN NN PO RO NI N

e nbbrad s
PRODUCT CODE:

AC=F921A=-M(

PRODUCT NAME:

CZRMMAQ RMO5/3/2 FCTNL TST

DATE CREATED:

APRIL 1980

MAINTAINER:

(X DIAGNOSTIC GROUP

AUTHOR:

MIKE LEAVITT

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

CORPORATION.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY

FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL.

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER

UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
(WITH
INCLUSION OF DIGITAL'S COPYRIGHT NOTICE)
ONLY FOR USE IN SUCH
SYSTEM,
EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
g?fil?iLlAfllLllv OF 1TS SOFTWARE ON EQUIPMENT THAT 1S NOT SUPPLIED BY
L.

(C)

1980 DIGITAL EQUIPMENT CORPORATION

11-APR-B0 13:04:53 PAGE 2

CONTENTS
INTRODUCTION
1.

2.
3.

HARDWARE REQUIREMENTS

MEDIA REQUIREMENTS
PREREQUISITE DIAGNOSTIC PROGRAMS

OPERATING PROCEDURE

N
WN = OOV

NOWVES WN 2OV

WNWNNNNI
NI NI NI NI N RO NU NI N b b b

ABSTRACT

UNIT UNDER TEST

OPERATING REQUIREMENTS

HALTING

2.
3.
5.

SWITCH OPTIONS
STARTING

RESTARTING

OPERATOR INTERFACE
1.

PROGRAM 1.D.

PERFORMANCE REPORTS

ERROR REPORTS

2.
5.
5.

(CONSOLE DIALOGUE
PROGRESS REPORTS
PROGRAM HALTS

ENVIRONMENTAL SUPPORT
—

NOWVN

PROCESSOR COMPATIBILITY

TEST

MACRO v03.01

s s et e

VNN = O 000 N

WIS NN -

CZRMMAD RMO5/3/2 FCTNL TST 1

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

DESCRIPTION

SEQ 0002

AN AN AN NN N NNV RO N NI N NU N NI N

b b

s b

WV WN=OO0VONO
VS NN = OV N N

s s e e

N = O 000N

NS NN —

CZRMMAD RMO5/3/2 FCTINL TST 1

MACRO v03.01

11-APR=80 13:04:53 PAGE 3

1.0

INTRODUCTION

1.1

ABSTRACT

WHICH

THE

RM0O5/3/2

RMOS5/3/2

USES

DISK

SEQ 0003

SUBSYSTEM FUNCTIONAL TEST

FUNCTIONAL

SUBSYSTEM.

MEANS

FOLLOWING PURPOSES:

VERIFY

PARTICULAR,

IS A STAND ALONE PROGRAM

THE

OPERABILITY

THE

PROGRAM

THE

SERVES

THE

TO EXPLICITLY ESTABLISH CONFIDENCE IN TME BASIC OPERATIONS OF THE
géé:AYlgzgvf.
INCLUDING
MECHANICAL
POSITIONING
AND
DATA
TRANSFER

IMPLICITLY

ELECTRICAL INTERFACE;

ESTABLISH

CONFIDENCE

THE

DRIVE/ADAPTER

TO
VERIFY THE FUNCTIONALITY OF THE RMOS5/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 TESTS HOUSEKEEPING

AND MECHANICAL

WRITE

C(HECK

READ AND WRITE

1.2

POSITIONING OPERATIONS;

OPERATIONS
CHECK

USING

PART

TESTS WRITE,

HEADER AND DATA;

OPERATIONS USING DATA.

PART

READ

AND

3 TESTS WRITE,

UNIT UNDER TEST

THE UNIT UNDER TEST (UUT) IS THE RM05/3/2
DISK
SUBSYSTEM
WHICH
CONSISTS OF THE RHXX MASSBUS CONTROLLER, THE RM0O5/3/2 MASSBUS ADAPTER,
AND THE STORAGE MODULE DISK DRIVE.
NOTE THAT A DISK PACK IS
REQUIRED
;g? ETESTING
v

AND

IS CONSIDERED AN INTEGRAL

THE

STORAGE

MODULE

DISK

2.0

OPERATING REQUIREMENTS

2.1

HARDWARE REQUIREMENTS
THE

FOLLOWING

OPERATIONAL,

MINIMUM

HARDWARE

IS REQUIRED TO LOAD

FUNCTIONAL TEST:

AND

CONFIGURATION,

EXECUTE

ASSUMED

THE RMO5/3/2 SUBSYSTEM

PDP=11 PROCESSOR

8K MEMORY

KWwll=L OR KW1i=P CLOCK
PROGRAM LOADING DEVICE
TERMINAL

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

RMOS'S, RMO3'S OR RM02'S)

CZRMMAO RMO5/3/2 FCINL TST 1

MACRO v03.01 11-APR-B0 13:04:53 PAGE 3-1
2.2

SEQ 0004

MEDIA REQUIREMENTS
EACH UNIT BEING TESTED MUST BE LOADED WITH A

85;8SEAT}ESTING

2.3

BEGINS

THAT

UNIT.

SCRATCH

DISK

PA(K

THE DISK MAY BE FORMATTED OR

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

3.0

OPERATING PROCEDURE

3.1

1 § 2

THE PROGRAM MAY BE LOADED BY EITHER OF

THE

FOLLOWING MEDIA:

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

3.2
OF

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

SW15
SWis
Swi3
SW12

INHIBIT
BELL ON
LOOP ON
LOOP ON

SW09
Swo8

TEST ITERATIONS
ERROR
ERROR
TEST IN SW07-00

D
D —d
D e
b
e
b
e
B
e
e
e

-t it s 2 OOOOOOOOOC
SN =OOVNOWNEWN-+O

THE LOW ORDER 8 SWITCHES

Sggg OLO

3.3
TEST

SPECIFY

(SWO7-SW00),

THE OCTAL NUMBER OF

ARE

USED

CONJUNCTION

WITH

THE TEST WHICH THE PROGRAM WILL

STARTING
THE PROGRAM STARTS AT LOCATION 200,
CONDITIONS

RUNNING

IN AN AUTOMATIC

WHICH

PROVIDES

ENVIRONMENT.

A STAND-ALONE ENVIRONMENT, THE PROGRAM USES CONSOLE
THE OPERATOR TO CONTROL TEST CONDITIONS.

3.4

UTILITY

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

SWil
SW10

THE

WORST

DIALOGUE

CASE

RUNNING

ALLOW

HALTING
THE

PROGRAM (AN BE

HALTED BY

TYPING CONTROL

FROM THE

CONSOLE.

MACRO v03.01

¥
1
11-APR-80 13:04:53 PAGE 3-2

SEQ 0005

3.5

RESTARTING
THE PROGRAM CAN BE RESTARTED AT ADDRESS 200.

4.0

OPERATOR INTERFACE

4.1

PROGRAM ID
THE PROGRAM TYPES

i
—

ITS TITLE AND MAINDEC NUMBER THE

IS
STARTED AFTER BEING LOADED.
IF THE PROGRAM IS RESTARTED.

4.2

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

FIRST

TIME

PROGRAM IDENTIFICATION DOES NOT OCCUR

CONSOLE DIALOGUE
1T

ENTERS A

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

HELP MESSAGE WHICH WILL LIST

NOTE:

SWITCH OPTIONS,

ETC.

THE FIRST
QUESTION IS
ONLY ASKED
ON THE
START AND NOT ON SUBSEQUENT START-UP'S.

THE SECOND QUESTION TYPED iS,

''CHANGE ADDRESSES

INITIAL PROGRAM
(Y/N)

?''.

THE

UNIBUS
ADDRESS OF THE
RH/RM IS
NON STANDARD,
THE
OPERATOR SHOULD
RESPOND
WITH A ''Y"',
THEN
ANSWER SUBSEQUENT
QUESTIONS
TO
SPECIFY
THE

UNIBUS ADDRESS,

OPERATOR RESPONSE

VECTOR

IS A ''N'',

ADDRESS AND

INTERRUPT PRIORITY.

THE PROGRAM SKIPS TO THE

THIRD QUESTION.

THE
THIRD
QUESTION
TYPED IS, 'TYPE ''A"" TO TEST ALL DRIVES, OR
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''.
TYPE

NOTE:

THE
THE

THE

LONG
VERSION OF THE
INITIAL PROGRAM START.

°'DRIVE(S):"'

PROMPT

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

IS TYPED.

SAME

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

4.3

PROGRESS REPORTS

RESTARTED USING THE SAME
?EgEARIS
THE
DIALOGUE

. ol el

s il D ol ol il D el el il il il D e

il el il

) D el ol

D e o

il D il

D il

D il i el

D il D il i

D il il il

D il il il e

NNOOOCOOOOOOOWVNWVMWMUNWIWNWUNAWE
B 5800 BN
NI N N N N NN N N PO N RO N NI PO AU N b b s s
= OOVENOWVNS W —=OVOENOWVMSWN 2OV
NV
NN 2OV
N VSN
2OV
NO VS NN 2O 00~

CZRMMAG RMO5/372 FCTINL TST 1

1S,
‘‘USE
TEST
IS

DEVICES AS THE LAST TIME, OTHERWISE, THE TEST
AS
1F THE PROGRAM WERE STARTED FOR THE FIRST

MACRO v03.01 11-APR=80 13:04:53 mg 3-3
AN END OF

IN THE

TEST QUE.

MESSAGE AND AN ERROR SUMMARY,

4.4

NO PERFORMANCE
PROGRAM,

THE

PROGRAM

END OF

PASS REPORT

EXECUTED

INCLUDES A

PERFORMANCE REPORT
REPORTS ARE

GIVEN

DURING

THE

EXECUTION

THE

4.5

PROGRAM HALTS

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

EXECUTION OF

THE

PROGRAM,

4.6

—

) e

D il

)

D e

il el

SEQ 0006

PASS REPORT OCCURS EACH TIME

DEVICES

il el el e

ALL

) e

FOR

O O O O O O O O O 00 0o 00 0O 00 00 0000 O0 00 ~ N~ ~N~N~~~
ONOWVNSWN
O VNV WN 2OV
~NON IS NN

CZRMMAO RMO5/3/2 FCINL TST 1

199
200

201
202
203
204
582

58;

WNOWVESWN 2OV

W —=O

AN IAS LN N L NI ST ST NT ST NI ST NN LV NT ST, 1,¥)
POPORORO RO NUNUNOND b b d b e cd i s b b

209

UNIT

ERROR REPORTS

THE

FIRST LINE OF

THE ERROR REPORT

BEING TESTED, THE TEST NUMBER,

THE

PROGRAM COUNTER WHERE

YET

COMPREHMENSIVE DESCRIPTION OF

THE

ERROR MESSAGE:

THE

CONTAINS

ERROR WAS CALLED.

ONE OR MORE LINES OF

NORMALLY
FOLLOWED
BY
ONE
OR
HEADERS AND DATA PERTININENT TO

ACTUAL TEST RESULTS.

5.0

ENVIRONMENTAL SUPPORT

5.1

PROCESSOR COMPATIBILITY

THE

NUMBER

THE

THE ERROR NUMBER AND THE VALUE OF

THE

ERROR.

MORE
PAIRS
THE
ERROR,

THIS LINE

TEXT WHICH GIVE
THE

ERROR

FOLLOWED

A BRIEF,

MESSAGE

OF LINES CONTAINING DATA
INCLUDING
EXPECTED
AND

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

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

5.2

DUAL PORT CONFIGURATIONS

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

5.3

SWITCH

IS SET

TO THE APPROPRIATE

PORT

(A OR B).

MEMORY PARITY HARDWARE
MEMORY PARITY HARDWARE

IS NOT USED DURING THE

RM05/3/2 SUSBYSTEM FUNCTIONAL TEST.

EXECUTION

THE

CZRMMAQ RMO5/372 FCINL TST

MACRO v03.01

5.4

H
1
11-APR=80 13:04:53 PAGE 3-4

MEMORY MANAGEMENT HARDWARE
MEMORY

MANAGEMENT

HARDWARE

SUSBYSTEM FUNCTIONAL TEST.

5.5

SEQ 0007

ACT11, APT11

NOT

CAPABILITIES OF

USED

DURING

THE RM0S/3/2

THE MASSBUS CONTROLLER.

COMPATIBILITY

THE RMO5/3/2
SUSBYSTEM FUNCTIONAL TEST IS COMPATIBLE WITH
ACT11
AND APT11
IN
BOTH
DUMP
AND
AUTOMATIC MODES.
FURTHER, THE PROGRAM
WILL EXECUTE
A
QUICK
PASS DURING THE FIRST PASS IN SUPPORT OF QUICK
VERIFY MODE.

5.6

XXDP COMPATIBILITY

THE RM0O5/3/2 SUSBYSTEM FUNCTIONAL TEST IS COMPA1IBLE WITH XXDP IN
DUMP
AND CHAIN MODES, AND PROVIDES MEDIA PROTECTION IN THE CASE WHERE
THE RM05/3/2 1S THE XXDP LOADING DEVICE.

5.7

258

OPERATING SYSTEM COMPATIBILITY
THE

6.0

PROGRAM

IS NOT

COMPATIBLE

WITH ANY

SOF TWARE

OPERATING SYSTEM.

TEST DESCRIPTION

CONTROLLER ACCESS TEST

rornonNor oo
N
©o Oo Oo 0o QO NNNNNNNN
NN
- OOV
NO WV Wl

PURPOSE
:

USING

285

ADDRESS

TO
CORRECT,

VERIFY
THAT
AS DEFINED AT

THE
UNIBUS
ADDRESS OF
LOCATION $BASE.

THE

SUBSYSTEM

PROCEDURE
:
THE

TEST

THE

TRIES TO ACCESS ALL

$BASE

ADDRESS.

THE TEST, AND THE TEST
REGISTER TRANSFER.
ALONE

FAILS

MASSBUS

BUS

THE TEST FAILS AND THE PROGRAM

ENVIRONMENT,

1.E.,

CONTROLLER

LOCATION 42

TIMEOUT

1S 0,

TO LOCATION 204 WHICH ALLOWS THE OPERATOR
VIA CONSOLE DIALOGUE.

OTHERWISE,

OCCURS

RUNNING
THE

THE

REGISTERS

IGNORED DURING

FOR

ANY

STAND

THE

$BASE

PROGRAM WILL JUMP

CHANGE

PROGRAM ESCAPES

CZRMMAO RMO5/372 FCINL TST 1

MACRO v03.01

11-APR-80 13:04:53 PAGE 3-5
THE END OF

SEQ 0008

PASS HANDLER.

DEVICE AVAILABLE TEST
:
PURPOSE
AND

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

PROCEDURE:

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

e o
POND

.DEVICE NOT AVAILABLE - THE DEVICE EXISTS BUT

SEIZED

.BUS TIMEOUT - THE MASSBUS CONTROLLER

DETECT

THE ALTERNATE PORT

AND

IS NOT

AVAILABLE

FOR TESTING;

NONEXISTENT DEVICE;

e e

s e oo

= OV
WV
NN —

NN N NN NN NN NN

.NONEXISTANT DEVICE = THE DEVICE IS NONEXISTENT OR IS LOCKED
ON THE ALTERNATE PORT AND IS THEREFORE NOT AVAILABLE FOR TESTING:

.DEVICE AVAILABLE = THE DEVICE

FAILED

IS AVAILABLE FOR TESTING.

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

DRIVE TYPE

THE

TEST

PURPOSE:

VERIFY THAT THE UNIT UNDER TEST

IS AN RMO5, RMO3 OR RMOZ

PROCEDURE :

SELECTED DEVICE AND VERIFIES THAT THE DEVICE IS A SINGLE PORT OR
DUAL PORT RMO5/372 SUBSYSTEM.
IF THE SELECTED DEVICE 1S NOT AN

NN NN N AN N NN N
L NN NN N NN N

SUBSYSTEM.

N—=O VNN

SINGLE PORT OR DUAL PORT

THIS TEST READS

THE

DRIVE

TYPE

RMDT,

THE

RM05/3/2, THE
PROGRAM JUMPS
TO
THE SUBPASS HANDLER WHICH WILL
SELECT THE NEXT DEVICE FOR TESTING.

CZRMMAO RMO5/3/2 FCINL TST

MACRO v03.01

11-APR=-80 13:04:53 PAGE 3-6

SEQ 0009

UNIBUS INITIALIZE TEST
PURPOSE
:

TO
VERIFY
THAT
ALL
APPLICABLE
INITIALIZED BY THE RESET INSTRUCTION.

SUBSYSTEM

REGISTERS

ARE

PROCEDURE:

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

OCCUR;HE FOLLOWING REGISTERS ARE

RMCST1

= 003577

RMBA

= 777776

PRESET

BEFORE

THE

INITIALIZE

RMCS2 - 021037
RMERY

= 777777

RMER2 = 777777
RMMR

- 040001

IN ADDITION,

THE DATA BUFFER

TO A ONE AND TO FORCE

IS USED TO FORCE DLT,TRE,SC

TO A ZERO.

AND

CONTROLLER CLEAR TEST
PURPOSE
:

VERIFY

THAT

APPLICABLE

SUBSYSTEM

INITIALIZED BY A "'CONTROLLER CLEAR'' OPERATION.

REGISTERS

ARE

PROCEDURE
:

LIKE THE UNIBUS INITIALIZE TEST, THIS
TEST
WRITES
NONZERO
VALUES
IN
THOSE
REGISTERS
WHICH ARE INITIALIZED BY CONTROLLER
CLEAR.
THE SUBSYSTEM IS THEN CLEARED USING A
CONTROLLER
CLEAR,

1.E.,

BIT

IS READ TO

ERROR CLEAR TEST

CONTROL
INSURE

STATUS

IT WAS CLEARED.

2 (RMCS2), AND EACH

| CZRMMAD RMOS5/3/2 FCTNL TST 1

MACRO v03.01

K
1
11-APR-80 13:04:53 PAGE 3-7

SEQ 0010

PURPOSE
:

TO VERIFY THAT ALL APPLICABLE RH
MASSBUS CONTROLLER STATUS
AND ERROR CONDITIONS ARE INITIALIZED BY AN ERROR CLEAR OPERATION.
PROCEDURE:

AN ''RH ERROR CLEAR''

OPERATION,

I.E., WRITING A ONE

IN TRE,

BIT 14 OF RMCS1 WILL CLEAR THE FOLLOWING STATUS BITS:
.TRE, BIT 14 OF RM(CSI
.MCPE, BIT 13 OF RMCS1 - READ ONLY

.DLT, BIT 15 OF RMCS2 = READ ONLY
.WCE, BIT

14 OF RMCS2 - READ ONLY

.UPE, BIT

13 OF RMCS2

.NED, BIT

12 OF

.PGE, BIT

10 OF RMCS2 - READ ONLY

.MXF, BIT 09 OF

RMCS2 - READ ONLY

RMCSZ2

.MDPE, BIT 08 OF

RMCS2 - READ ONLY

THE TEST SETS UPE AND MXF STATUS BITS, THEN SETS TRE
(ERROR
CLEAR) AND VERIFIES THAT ALL THE ABOVE STATUS BITS ARE CLEARED.

DRIVE STATUS TEST
:
PURPOSE

TO VERIFY THAT THE STORAGE MODULE DISK DRIVE
THAT PERMITS FURTHER TESTING.

STATE

PROCEDURE:

THIS TEST

INITIALIZES THE MASSBUS AND EXAMINES STATUS OF

SELECTED DEVICE FOR THE FOLLOWING CONDITIONS:

.MOL, BIT 12 OF RMDS

ASSERTED BY THE DRIVE;

=1,

.WRL, BIT 11 OF RMDS =0,

A WRITE PROTECT STATE;

.DvC,

BIT

UNASSERTED BY THE DRIVE;

RMER3

|INDICATING

UNIT

READY

INDICATING THAT THE DRIVE

IS NOT

FAULT

=0,

THAT

THE

INDICATING

DRIVE

CZRMMAD RMO5/3/2 FCINL TST 1
657
458
459
460

MACRO v03.01

11-APR=-80 13:04:53 PAGE 3-8

SEQ 0011

.UNS, BIT 14 OF RMER1 SHOULD EQUAL DvC, OTHERWISE
IS LOW OR A FAILURE HAS OCCURRED WITH UNSAFE STATUS.

POWER

COMMAND

WITHOUT

461

462
463

464
465
466
467
468
46°
470
&N
472
473
L74
475
476
W77
478
479
480
481
482
483
484
485
486
487
488
489
490
691
492
493
494
495

PRIMARY/SECONDARY

ERROR

TEST

PURPOSE
:

TO VERIFY THAT THE RM05/3/2 CAN
INCURRING UNEXPECTED ERRORS.

EXECUTE

PROCEDURE:

THAT

THE TEST EXECUTES A PACK ACKNCWLEDGE COMMAND AND MAKES
SURE
GO RESETS AND THAT THERE ARE NO PARITY ERRORS, ETC.
VOLUME

VALID STATUS

IGNORED.

TEST

DIAGNOSTIC MODE
:
PURPOSE
TO

VERIFY

THAT

MAINTENANCE

HARDWARE

OPERATIONAL.

AND

RESET,

PROCEDURE
:

THE TEST THAT DIAGNOSTIC MODE

CAN BE

SET

THEN

VERIFIES
THAT
‘MOL,
PIP,
WRL, SKI, AND DVC'' CAN BE CONTROLLED
USING MAINTENANCE REGISTER 1.

PACK ACKNOWLEDGE

TEST

:
PURPOSE
TO VERIFY

COMMAND,
THE

THAT

VOLUME VALID CAN BE

SET BY A PACK ACKNOWLEDGE

LENDING CREDENCE TO THE EXECUTION OF

STABILITY OF

THE UNIT READY

SIGNAL FROM THE

THE COMMAND AND TO
DRIVE.

PROCEDURE:

A PACK ACKNOWLEDGE COMMAND IS ISSUED 10 THE SELECTED
DEVICE
AND VOLUME VALID STATUS, BIT 10 OF RMDS, IS CHECKED FOR ONE.

-y

= OOV APV

I
IV
vVWA AN WY VW W WYY
VI WD VWSS WWNIWNIWW W

W= O OVONO
VS WN 2OV

VS W

= OV~

Y VAW
VWY UYWAY
WWNINI NN NS NNV PO NP NI NN = b b b e s

CIZRMMAD RMO5/3/2 FCTINL TST 1

559

MACRO v03.01

n
11-APR=B0 13:04:53 PAGE 3-9

RECALIBRATE

SEQ 0012

TEST

PURPOSE:
THE PRIMARY PURPOSE

EXECUTE

USK1TM

RECALIBRATE

STATUS

BECOME

RECALIBRATE.
THE
KNOWN STATE SO THAT

IS TO

ASCERTAIN

OPERATION

UNASSERTED

THAT

THE

DRIVE

WILL

THE

THE EXTENT THAT “PIP'" AND

THE

COMPLETION

SECONDARY
PURPOSE
IS
T0 PUT THE DRIVE IN A
FURTHER TESTS CAN CHECK FOR UNEXPECTED
STATE

CHANGES IN THE DRIVE.

PROCEDURE:

RMDA,

THE RECALIBRATE TEST
AND
THE
DESIRED

PRESETS
CYLINDER

EXECUTES A RECALIBRATE COMMAND.
CONDITIONS:

THE
DISK
ADDRESS
REGISTER,
REGISTER, RMDC, TO ZERO, THEN

THE TEST VERIFIES THE

FOLLOWING

.SK1=0, "'SEEX ERROR'' IS INACTIVE;
.PIP=0,
'ON
CYLINDER''
IS
ACTIVE,
"POSITIONING IN PROGRESS'' BEING INACTIVE;

INDICATED

.JAE=0, NO "INVALID ADDRESS ERROR'' DURING RECALIBRATE;
.0OPI1=0, NO "'OPERATION

THAT
THE
Eahgxggfl

INCOMPLETE

DRIVE WAS READY Al THE
STATUS
WENT
INACTIVE

ERROR'‘,

INDICATING

THAT

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

LATA=1, ATTENTION IS SET BY RECALIBRATE.

ABORT RECALIBRATE

TEST

:
PURPOSE
ABORT

VERIFY

THAT

THE RMO5/3/2

CONDITION EXISTS AT

THE

INHIBITS A RECALIBRATE WHEN AN

START OF

THE

COMMAND.

PROCEDURE
:
THE TEST SETS AN ERROR IN THE ERROR REGISTER
AND
ISSUES
RECALIBRATE COMMAND, VERIFYING THAT '"'PIP'" REMAINS INACTIVE.

IVC RECALIBRATL TEST
PURPOSE
:

OO0
N VIS (NN —

MACRO v03.01

O NNNNNNNYN~N

(Y IV TV IV IV IV IV IV TV IV )

CZRMMAQ 2M05/3/2 FCTNL TST 1

N1
11-APR-80 13:04:53 PAGE 3-10

SEQ 0013

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

SETS

PROCEDURE:

THE PROGRAM SETS AND RESETS

VOLUME

DIAGNOSTIC

VALID, BIT 6 OF RMDS TO RESET.

A RECALIBRATE COMMAND AND VERIFIES THAT

THAT "'PIP'" REMAINS INACTIVE.

MODE

WHICH

CAUSES

THE PROGRAM THEN EXECUTES
'‘Iv('"

STATUS

SETS

AND

IAE RECALIBRATE TEST
:
PURPOSE
TO VERIFY THAT
RECALIBRATE COMMAND

INVALID ADDRESS ERROR DOES NOT
.

SET

DURING

PROCEDURE
:

THE TEST PRESETS THE DISK ADDRESS

CYLINDER ~ ADDRESS
RECALIBRATE COMMAND,
COMMAND.

RECALIBRATE

(RMDA)

AND

THE

DESIRED

(RMDC)
TO
ILLEGAL
VALUES
AND
ISSUES
A
VERIFYING THAT "'IAE'' DOES NOT SET DURING THE

OFFSET

:
PURPOSE

TO VERIFY THAT OFFSET

MODE

DOES

NOT

AFFECT

RECALIBRATE.

PROCEDURE:

THE

TEST

RECALIBRATE
RECALIBRATE.

DRIVE

EXECUTES

OFFSET

COMMAND AND VERIFIES THAT

COMMAND,

THEN

EXECUTES

THERE ARE NO ERRORS DURING

CLEAR TEST
:
PURPOSE

TO VERIFY THAT ALL APPLICABLE RMO5/3/2 MASSBUS ADAPTER ERROR
AND STATUS CONDITIONS ARE INITIALIZED BY A "DRIVE CLEAR'' COMMAND.
PROCEDURE
:

' CZRMMAQ RMO5/3/2 FCTINL TST 1

MACRO V03.01

11-APR-80 13:04:53 PAGE 3-11

SEQ 0014

THIS TEST WRITES ONES IN THOSE MASSBUS
ADAPTER BITS WHICH
ARE
INITIALIZED
BY
DRIVE
CLEAR
, THEN ISSUES THE DRIVE CLEAR
COMMAND AND VERIFIES THAT EACH BIT
IS
CLEARED.
ADDITIONALLY,

REGISTERS WHICH ARE NOT AFFECTED BY "DRIVE CLEAR'' ARE ALSO PRESET

AND VERIFIED.

THE FOLLOWING ITEMS ARE PRESET:

.RMER1, EFROR REGISTER 1

IS SET TO ALL ONES;

.DMD, DIAGNOSTIC MODE IS SET;

.RMER2, ERROR REGISTER 3, IS SET TO ALL ONES.
FOLLOWING THE DRIVE CLEAR COMMAND,
CHECKED:

THE FOLLOWING

ITEMS

ARE

.RMCS1, IS CHECKED FOR DVA=1, FO-F& AND GO=0, ALL OTHER BITS

ARE DONT CARES;

.RMDS,

IS CHECKED FOR O,

EXCEPT

FOR

MOL,DPR,DRY,

AND

WHICH SHOULD BE ONE, AND PGM WHICH IS A DONT CARE.

.RMER1, 1S CHECKED FOR O0;

.RMAS,

1S CHECKED TO INSURE THE APPROPRIATE ATA BIT IS 0;

.RMMR, IS CHECKED FOR O, EXCEPT FOR WORD CLOCK, LAST SECTOR,

AND LAST

SECTOR AND TRACK WHICH ARE DONT

CARES;

.RMMR2 1S CHECKED FOR O, EXCEPT FOR THE TEST
ONE, AND REQA, REQB WHICH ARE DONT CARES;

BIT

WHICH

.RMEC2 1S CHECKED FOR 0;

.RMER3 IS CHECKED FOR 0;

NOP TEST
:
PURPOSE

TO VERIFY THE EXECUTION OF 'NOP'' COMMAND.
:
PROCEDURE

A NOP COMMAND IS EXECUTED ON THE SELECTED DEVICE AND

CHECKED

VERIFY

CHANGES IN STATUS.

THAT

STATUS

THERE WERE NO ERRORS OR UNEXPECTED

| ¢

CZRMMAD RMOS5/372 FCTNL TST 1

MACRO v03.01 11-APR-80 13:04:53 PAGE¢ 3312

SEQ 0015

OFFSET TEST

:
PURPOSE
T

VERIFY THE EXECUTION OF "OFFSET'' COMMAND.

PROCEDURE:

RMDS

IS ALSO SET.

ADDITIONALLY,

CONTROLLER,

STATUS IS CHECKED FOR UNEXPECTED CMANGES.

ADAPTER,

AND

DRIVE

GO/ATA TEST
PURPOSE
:
TO

VERIFY

COMPOSITE ERROR

THAT

‘'ATA"

INACTIVE.

WILL

RESET

WITH

''GO'"

PROVIDING

W ey
0 N0

— ol i

NN NNNN

PROCEDURE
:
ATTENTION, BIT 15 OF RMDS,
AND RESET USING A NOP COMMAND.

SET

USING

OQFFSET

(OMMAND

WRITE ATA TESI
PURPOSE:

TO VERIFY
THAT
ATTENTION
CAN
ATTENTION SUMMARY REGISTER, RMAS.

RESET

WRITING

THE

PROCEDURE
:

ATTENTION IS SET USING
PROGRAM
WRITES
A O IN THE
THT ATTENTION REMAINS SET.
1 IN RMAS AND VERIFIES THAT

AN OFFSET
COMMAND
AFTER
WHICH
THE
ATTENTION SUMMARY REGISTER, VERIFYING
FOLLOWING THAT, THE PROGRAM WRITES
A
ATTENTION RESETS.

ERROR/ATA TEST
PURPOSE
:

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

WHEN

THERE

CIRMMAD RMOS/3/2 FCTNL TST 1

MACRO v03.01

11-APR-8B0 13:04:53 PAGE 3-13

SEQ 0016
76
74
764
745
746
767
748
749
750
751
752

753
756

755
756
757
758
759
760

761
762
763
764
765
766
767
768
769
770
44!
772
773
774
775

PROCEDURE
:

"ATAY 1S SET WITH AN OFFSET COMMAND AFTER WHMICH ONE
OF
THE
ERROR BITS
IS
SET.
THE PROGRAM THEN ]SSUES A NOP COMMAND AND
VERIFIES THAT THE ATTENTION BIT REMAINS SET.

PROGRAM INTERRUPT

TEST

PURPOSE
:

VERIFY

INTERRUPT ~ WHEN

PRIORITY AND

THAT

THE

PROCESSOR

INTERRUPT

SUBSYSTEM

PRIORITY

IS ENABLED.

WILL

GENERATE

LESS

THAN

PROGRAM

CONTROLLER

PROCEDURE
:

ATTENTION IS SET USING AN OFFSET

COMMAND.

WITH

INTERRUPT

ENABLED AND PROCESSOR PRIORITY SET BELOW CONTROLLER PRIORITY,

PROGRAM VERIFIES

INHIBIT

INTERRUPT

THAT

A PROGRAM

INTERRUPT

OCCURS.

THE

TEST

PURPOSE
:

TO VERIFY THAT A PROGRAM INTERRUPT DOES NOT OCCUR

PROCESSOR

AND

CONTROLLER PRIORITY ARE

THE

ENABLED OR (2) WHEN PROCESSOR PRIORITY IS

AND

INTERRUPTS ARE NOT

ENABLED.

SAME

LESS

AND

THAN

WHEN

(1)

INTERRUPT

CONTROLLER

PROCEDURE
:

ATTENTION IS SET USING AN OFFSET COMMAND WITH
THE
PRIORITY
OF
THE
PROCESSOR
SET
EQUAL TO THE PRIORITY OF THE CONTROLLER.
INTERRUPT IS
ENABLED
AND
THE
TEST
VERIFIES
THAT
A
PROGRAM
INTERRUPT
DOES NOT OCCUR.
INTERRUPTS ARE DISABLED AND PROCESSOR
PRIORITY
IS
LOWERED
AND
INTERRUPT DOES NOT OCCUR.

RETURN TO CENTERLINE

THE

TEST

VERIFIES

THAT

PROGRAM

TEST

PURPOSE
:
TO VERIFY

THE

EXECUTION OF

"RETURN TO CENTERLINE'' COMMAND.

CZRMMAD RMO5/372 FCTNL TST 1

MACRO v03.01

11-APR=80 13:04:53 PAGE 3-14

SEQ 0017
PROCEDURE:
THIS TEST

ISSUES AN RTC COMMAND

AND

VERIFIES

THAT

OFFSET

STATUS, BIT O OF RMDS IS RESET AND THAT ATTENTION, BIT 15 OF RMDS
IS SET.
UNEXPECTED STATUS OR ERROR CONDITIONS ARE ALSO VERIFIED.

IN PRESET TEST
PURPOSE:

PROCEDURE
:

s e

NN —

READ

00 Co Co 00 0o Co o Co 0o 0o

810

''READ

ot e

THE FOLLOWING REGISTERS ARE CHECKED:

IN PRESET'' COMMAND.

THIS TEST LOADS NON ZERO VALUES IN THOSE
ADAPTER
REGISTERS
ARE
INITIALIZED
BY
THE
READ
IN
PRESET
COMMAND, THEN

WHICH

b i

TO VERIFY THE EXECUTION OF

EXECUTES THE COMMAND AND VERIFIES THE CONTENTS OF

821

EACH

.RMDA,
THE DISK ADDRESS REGISTER, IS LOADED WITH
ONES AND VERIFIED TO BE ZERO AFTER THE RIP COMMAND;
RMDC,

ALL ONES

(001777)

RMOF ,

VERIFIED TO BE

RMDC

CLEAR OFFSET

THE

DESIRED CYLINDER REGISTER,

IS LOADED

ALL
WITH

AND VERIFIED TO BE ZERO AFTER THE RIP COMMAND;
THE OFFSET REGISTER,

ZERO AFTER THE

TEST;

IS PRESET

(T0 016200)

AND

TEST

PURPOSE
:

TO VERIFY

THAT

WRITING THE

WILL CLEAR OFFSET MODE.

DESIRED CYLINDER REGISTER

(RMD(C)

PROCEDURE:

OFFSET MODE
WRITING RMDC.

IS SET USING THE OFFSET

COMMAND,

THEN

RESET

ILLEGAL FUNCTION TEST
:
PURPOSE

TO VERIFY

THAT

THE RM05/3/2 SUBSYSTEM

DETECTS

ALL

ILLEGAL

CZRMMAO RMO5/372 FCTINL TST

MACRO v03.01

11-APR-80 13:04:53 PAGE 3-15

SEQ 0018
FUNCTIONS.
PROCEDURE
:

FOR EACH CODE.

THE

ILLEGAL FUNCTION TEST.

SUBSYSTEM

|INITIALIZED

PRIOR

EACH

INVALID COMMAND TEST
:
PURPOSE
TO VERIFY

IvC ERROR DETECTION.

PROCEDURE:

THEN EXECOTES. A NOP COMMAND AND VERSFIES THAT 1yC 18 SETT

PROCESS IS REPEATED
FOR
EACH
FUNCTION
CHECKED ACCORDING TO THE FUNCTION.

CODE,

WITH

IVC

BEING

INVALID ADDRESS ERROR TEST
:
PURPOSE
TO VERIFY

JAE

ERROR DETECTION.

PROCEDURE
:

WRITE

THE TEST EXECUTES EACH F??% Tl ON CODE WITH RMDA, AND RMD(C SET
ILLEGAL ADDRESSES, AND VER
ES l IAE ACCORDING TO THE FUNCTION.

LOCK ERROR TEST
PURPOSE
:

TO VERIFY WLE

ERROR DETECTION.

PROCEDURE
:

THE TEST SIMULA TES WRITE
PROTECT ~ AND
VERIFIES
WLE

EXECUTED.

EACH FUNCTION CODE

PRO TECT
USING
MAINTENANCE
ACCORDING
TO
THE
FUNCTION

IS TESTED.

WRITE
BEING

OVWO~NO VW

VOO OOVOOO

MACRO v03.01

11-APR-80 13:04:53 PAGE 3-16

ERROR ABORT

SEQ 0019

TESTS

PURPOSE:

921

TO TEST

COMMAND EXECUTION DURING AN ABORT

CONDITION.

PROCEDURE
:

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

RMR

UNSAFE

TEST

:
PURPOSE
TO VERIFY

THAT

RMR ERROR

IS DETECTED.

:
PROCEDURE

gé;g

THE

TEST

SET,

EXECUTES A NOP COMMAND WITH

THE

TEST

WRITES RMCSI,

DEBUG

C(LOCK

ENABLED.

VERIFYING THAT RMR ERROR

PARITY ERROR TEST

:
PURPOSE
TO VERIFY

THAT

PARITY ERRORS ARE

DETECTED.

PROCEDURE
:

WITH PAT SET TO CAUSE BAD PARITY ON
THE
CONTROL
BUS,
THE
TEST
WRITES A SHIFTING ONE BIT PATTERN TO RMDA AND VERIFIES THAT
AN ERROR 1S DETECTED BY THE RM05/3/2 FOR EACH PATTERN.

ILLEGAL REGISTER TEST
:
PURPOSE

TO VERIFY THE DETECTION OF

SUSBSYSTEM.

ILLEGAL REGISTER ADDRESSES BY

THE

CZRMMAQ RMO5/3/2 FCINL TST 1

CZRMMAD RMOS5/372 FCINL TST

MACRO v03.01

H 2
11-APR=80 13:04:53 PAGE 3-17

SEQ 0020
970
971

PROCEDURE:

EACH REGISTER
ADDRESS
IS
ACCESSED
AND
ILLEGAL
REGISTER
STATUS,
BIT 1 OF RMER1 1S CHECKED ACCORDING TO THE ADDRESS USED.

NOTE THAT THE EXECUTION OF THIS TEST IS DEPENDENT ON THE REGISTER
ADDRESS
JUMPER
IN
THE
RH
CONTROLLER
BECAUSE
THE RANGE OFf
ADDRESSES WHICH THE CONTROLLER WILL RESPOND TO IS LIMITED BY
THE

WAY

THE

JUMPER

IS CUT.

SEEK TESTS
PURPOSE
:

THE PURPOSE OF EACH OF THE FOLLOWING SEEK TESTS IS TO VERIFY
THE
EXECUTION OF SEEK OPERATIONS BY THE RM05/3/2 SUBSYSTEM USING
A SET OF ADDRESSES THAT TEST
THE
ADAPTER/DEVICE
INTERFACE
AND

ELECTROMECHANICAL HEAD POSITIONING HARDWARE.
PROCEDURE
:

EACH TEST WILL RECALIBRATE

ACTIVE.
FOLLOWING
ADDRESS OR SERIES OF

THE DRIVE

THAT, THE TEST
ADDRESSES.
AT

OPERATION,

SUBSYSTEM

STATUS

SEEK

CYLINDER TEST

''PIP'"

STORED AND THE

TEST

PONIRURUNUNOND
= s et et et et et et et e © o
OOVER WOVNN
NN —=O0 (o]

D
D el
D
ol
il
D
i
D
il
i
e
ol
il
il
D
—

slelelelelelslelelelelelelelolelels
)

PRIMARY ERRORS WMICH PRECLUDE FURTHER ERROR CHECKING.
ARE
NO PRIMARY ERRORS THE TEST CHECKS FOR OPERATIONAL
THEN SECONDARY ERRORS.

TO LAST
THIS

SEEK

TEST

TO FIRST
THIS

SEEK PRIME
THIS

TEST

SEEKS TO THE

LAST

‘''SkI''

EXECUTES A SEEK TO A CYLINDER
THE COMPLETION OF
EACH
SEEK

CYLINDER,

CHECKS FOR

IF
THERE
ERRORS AND

1.E.,

CYLiNDER 822.

1.E.

CYLINDER 0.

CYLINDER TEST
SEEKS TO THE

FIRST

CYLINDER,

CYLINDERS TEST
TEST

SEEKS FORWARD

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

TO EACH PRIME

CYLINDER ADDRESS,

I.E,

CZRMMAD RMO5/37/2 FCINL TST 1
1027
1028
1029
1030
1031

‘8%%

MACRO v03.01

}
11-APR-80 13:04:53 PAGE 3-18

SEEK ZERO DIFFERENCE TEST

}8;;
1036
1037
1038
1039

SEQ 0021

THIS TEST EXECUTES SUCCESSIVE SEEKS TO CYLINDER 0.

}82?

SEEK MAXIMUM DIFFERENCE FORWARD TEST

1042
1043

THIS TEST SEEXKS TO CYLINDER O FOLLOWED BY A SEEK TO THE LAST
CYLINDER.

}823

SEEK ADJACENT FORWARD TEST

1051
}82%

THIS TEST SEEXKS TO CYLINDER O, FOLLOWED BY
ADJACENT FORWARD CYLINDER, I1.E., CYLINDER 1.

1044
1045
1046
1047
1048

1054
1055
1056
1057

SEEXK

THE

}ggg

SEEK ADJACENT REVERSE TEST

1060
1061
1062
1063
1064
1065

THIS TEST SEEKS TO CYLINDER 1, FOLLOWED BY A SEEK TO THE ADJACENT
REVERSE CYLINDER, 1.E., CYLINDER O.

1066
}82%

SEEK TO INVALID SECTOR TEST

1069
1070
}8;;

WITH THE OFFSEYT REGISTER SET FOR 18 BIT FORMAT, THE
PROGRAM
SEEKS TO CYLINDER O, TRACK O, FOR EACH INVALID SECTOR ADDRESS AND
VERIFIES THAT INVALID ADDRESS ERROR SETS FOR EACH SECTOR.

1073
1074
1075
1076
}g;g

SEEK TO INVALID TRACK TEST

1079

1080
1081

1082

1083

AND

THE TEST SEEKS TO EACH INVALID TRACK ADDRESS

SECTOR

ADDRESS

SET

T0 O AND VERIFIES THAT

ERROR SETS FOR EACH TRACK ADDRESS.

WITH CYLINDER
INVALID ADDRESS

MACRO v03.01 11-APR-80 13:04:53 PAGEJ 3319

D el e

CZRMMAOD RMO5/3/2 FCTNL TST 1

SEQ 0022

SEEK TO INVALID CYLINDER TEST

089
090
91

THE PROGRAM SEEKS TO EACH INVALID CYLINDER ADDRESS WITH
THE
SECTOR
AND
TRACK
ADDRESS
SET
TO
O AND VERIFIES THAT INVALID
ADDRESS ERROR SETS FOR EACH CYLINDER ADDRESSS.

D il il il

D e el il

)

087

IvC SEEK TEST

S5 AN NN N W WW W W
N NONINNNVNININ) b = i e i ek 2 b 2 O O OO OO0 OO DY
OOV NOWVMSEWN =0V
VOOWVMNS W
—=O VNV
WO VRNV
WR—=OY

PURPOSE
:

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

THE

el i

TEST

JIAGNOSTIC

RESETS

MODE,

VOLUME

VALID

ABORT

SEEK

THEN EXECUTES A SEEK

"IvC'" STATUS 1S SET.

S il i e

D - —h — —
)

i e el e

D
D il

D il it D i e

D il il

S el

-l
il

—h —d —d

s it el il i il il i
s s

D il

SETS

SETTING

AND

RESETTING

COMMAND AND VERIFIES THAT

TEST

PURPOSE
:

T0 VERI FY THAT
CONDITION EX ISTS AT

THE RM05/3/2 INHIBITS A SEEK
THE START OF THE COMMAND.

WHEN

ABORT

PROCEDURE:
THE

TEST

SETS AN ERROR

iN THE

ERROR REGISTER

AND

SEEK COMMAND, VERIFYING THAT "'PIP'' REMAINS INACTIVE.

ISSUES

SEEK AT OFFSET
:
PURPOSE
S

TO VERIFY

THAT

OFFSET MODE

DOES

NOT

CAUSE

ERRORS

DURING

— —

s — —d il

RMER2

PROCEDURE
:

D il

D e

D il

D i i it it D e &

D i

097

PROCEDURE
:

THE
(JMMAND,

TEST EX ECUTES AN OFFSET COMMAND
THEN
VERIFYI NG THE RESULTS OF THE SEEK.

EXECUTES

SEEK

— e
e

VOOV

D il il
i
s

D e il
S il il

s el e il el il il el il i il D il el il il
it D el e el il i
i il il D il el i s

S i el i il e il D e
D e il e el D e i i

D el el e il D D el D i
i el D i i il i ) D i

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

OVOOVOOVROOOOOO
NN NNNNNNNYN~vNOoOOCOCrCrOr OO
(o RV LY LV AV IV IV IV IV TV IV D oW oW o o o o O
NOmbaNdoomNOm.\wmdoomNOwb
WN—‘OOONOV'buggoomNOmbMN-‘OOGNOwbwma

CZRMMAQ RMO5/3/2 FCTNL TST 1

MACRO v03.01 11-APR-80 13:04:53 PAGE 3320

SEQ 0023

LOOK AHEAD TEST
:
PURPOSE
TO INSURE

DRIVE
AND
IS
OPERATIONAL
.

THAT

THE

SECTOR

COUNT

WHICH

ORICINATES

VISIBLE THROUGH THE LOOK AHEAD REGISTER

(RMLA)

THE

PROCEDURE:

WITH THE OFFSET REGISTER SET FOR 18 BIT FORMAT, THE
PROGRAM
SAMPLES
THE
LOOK
AHEAD
REGISTER
AND
COLLECTS EACH DIFFERENT
SAMPLE UNTIL THE VALUE OF THE FIRST SAMPLE IS DETECTED
OR
UNTIL

31, SAMPLES ARE TAKEN. THE COLLECTION IS THEN TESTED TO DETERMINE

THAT THE SECTOR COUNT INCREMENTS
CORRECTLY
THROUGH
THE
ENTIRE
RANGE
OF
VALID
SECTORS.
THE SAME PROCEDURE 1S REPEATED FOR 16

BIT FORMAT, WHERE THE LIMIT ON THE NUMBER OF

SAMPLES 1S 33.

SEARCH EACH SECTOR ON CYLINDER
:
PURPOSE

TO VERIFY THE EXECUTION OF SEARCH OPERATIONS
MOTION USING THE SECTOR PULSE FOR SECTOR COMPARE.

WITH

HEAD

PROCEDURE
:

“'SKI'"

THE TEST INTIALIZES
AND RECALIBRATES THE DRIVE IF
1S

ACTIVE THEN SEEKS TO CYLINDER 0.

'PIP'"

THE TEST THEN DOES A

SEARCH TO EACH SECTOR AND
VERIFIES
THAT
THE
SEARCH
COMPLETES
WITHOUT
ERROR.
THIS TEST IS DONE ONCE IN 18 BIT FORMAT AND ONCE

IN 16 BIT FORMAT.

SEARCH OFF

CYLINDER

:
PURPOSE
TO VERIFY
HEAD MOTION.

THE

EXECUTION OF

COMMAND

WITH

[IMPLIED

PROCEDURE
:
THE

DRIVE

1S RECALIBRATED AND

INITIALIZED

THE

DRIVE

= 2 O O O O OO OO
OO
— O O 00 i On o 1= IR0 — S O O

2
2
2
2
2
%

N NN N NI NIRI A RN
= = s s bt s
AR = OO0 O N IS NN — © O 00 O N I~ N

MACRO v03.01 11-APR-80 13:04:53 PAGE 3221
OFF

SEQ 0024

CYLINDER OR HAS A SEEK ERROR.

THE PROGRAM THEN EXECUTES AND

EXPLICIT SEEK TO CYLINDER 410., FOLLOWED BY A SEARCH TO

CYLINDER

611., TRACK 0, SECTOR 0. THE FOLLOWING IS SEARCHED FOR BY AN
EXPLICIT
SEEK TO CYLINDER 409., FOLLOWED BY A SEARCH TO CYLINDER
412., TRACK O, SECTOR 1, ETC.,
UNTIL ALL THE
SECTORS HWAVE BEEN
SEARCHED.
THE
TEST
IS DONE__FOR 18 BIT FORMAT, WHERE THE LAST
SECTOR SEARCHED
IS SECTOR 29. THE TEST_IS REPEATED FOR 16 BIT
FORMAT, WHERE THE LAST SECTOR SEARCHED IS 31.

SEARCH INVALID SECTOR
PURPOSE
:

T0 VERIFY THE DETECTION OF
A SEARCH OPERATION.

AN INVALID SECTOR ADDRESS

DURING

AND

PROCEDURE
:

THE DRIVE

IS RECALIBRATED

INITIALIZED

OFF

CYLINDER
OR
HAS A SEEK ERROR.
WITH THE OFFSET REGISTER SET FOR
18 BIT FORMAT, THE PROGRAM EXECUTES
A
SEARCH
TO
EACH
INVALID
SECTOR, I1.E., SECTORS 30 AND 31 AND VERIFIES THAT INVALID ADDRESS
ERROR SETS FOR EACH SECTOR.

= O OO N

N - 2O 0N

VAWV SEBEBESSSNANNNWN NN

—

Dl —h

LN LN N N

s — —

) —lh —d il il il il

D ld

D il il D il

D il

N N N N L N N LN NI NN LN N N NN LS LN LN o

s el

D il

D ) el il il il

D il il

D e

D il

D el

D il

A N LS L ST NT NT NT NT ST N ST ST NS NT ST NT ST NT NT.NT ¥

D i el il

D e

D il il e

CZRMMAD RMO5/3/2 FCTINL TST 1

SEARCH INVALID TRACK
PURPOSE
:

TO VERIFY THE DETECTION OF
SEARCH OPERATION.

INVALID

TRACK ADDRESS DURING A

PROCEDURE:
THE DRIVE IS RECALIBRATED
AND
INITIALIZED
IF
IT
1S
OFF
CYLINDER
OR
HAS A SEEXK ERROR,
THE PROGRAM EXECUTES A SEARCH TO
EACH INVALID TRACK ADDRESS
WITH
THE
CYLINDER
ADDRESS
0,
AND
EEETO?R:EERESS O AND VERIFIES THAT INVALID ADDRESS ERROR SETS FOR
H

INVALID CYLINDER

:
PURPOSE

TO VERIFY THE
DETECTION
DURING A SEARCH OPERATION.

INVALID

CYLINDER

ADDRESS

il il

D il

D el il

D il

wruzsgoawo\p

D il il

D el

D e

NN
NN NN NN NN N NN
oo
(WV,
IV TV IV

CIZRMMAD RMOS5/3/72 FCINL TST 1

gg
?8
n

MACRO v03.01 11-APR-80 13:04:53 PAGEM 3322

SEQ 0025

PROCEDURE:

THE DRIVE IS RECALIBRATED
AND
INITIALIZED
IF
IT
IS
OFF
CYLINDER OR HAS A SEEK ERROR.
THE PROGRAM THEN EXECUTES A SEARCH
TO EACH
INVALID
CYLINDER
ADDRESS
AND
VERIFIES
THAT
INVALID
ADDRESS ERROR SETS FOR EACH CYLINDER.

IvC SEARCH TEST
PURPOSE :
TO VERIFY THAT

INVALID COMMAND STATUS SETS WHEN VOLUME VALID

IS INACTIVE DURING A SEARCH COMMAND.

PROCEDURE :

VOLUME VALID IS RESET BY SETTING
AFTER

AND

RESETTING

WHICH THE TEST EXECUTES A SEARCH COMMAND,

THAT "'Iv('" STATUS SETS.

DIAGNOSTIC

VERIFYING

D -

D e

78
279
280
281

MODE,

D il

D el

282
283
284
285

PURPOSE :

TO VERIFY THAT THE RM05/3/2 INHIBITS A SEARCH WHEN AN
CONDITION EXISTS AT THE START OF THE COMMAND.
PROCEDURE:

OVMONO
WV WA —

D il
il il
D
D
il il
D il S
)
D
il
D il il
— el il

O VOVOVOVOVOOOVO

288
%gg
wrhonrnrorNNONINO
N

D il

ggg

ABORT SEARCH TEST
-

301
gg%
ggg

THE

TEST

SETS AN ERROR IN THE

ERROR REGISTER

AND

SEARCH COMMAND, VERIFYING THAT "'PIP'" REMAINS INACTIVE.

ABORT

ISSUES

SEARCH AT OFFSET TEST

PURPOSE :
TO VERIFY THAT OFFSET MODE DOES NOT CAUSE SEARCH ERRORS.

gg?

PROCEDURE :

308
g?g

THE TEST EXECUTES AN OFFSET COMMAND, THEN EXECUTES A SEARCH
COMMAND, VERIFYING THAT THERE ARE NO ERRORS DURING THE SEARCH.

Vo W
Lol

il e

e
—

—

WKW

' CZRMMAQ RMO5/3/2 FCTNL TST 1

MACRO v03.01

11-APR-80 13:04:53 PAGE 3-23

SEQ 0026

' CZRMMAO RM05/3/2 FCTNL TST 1

MACRO v03.01

11-APR-80 13:04:53 PAGE &

3
SEQ 0027

;PROGRAM REVISION #001

1
478
479

LTITLE CZRMMAD RMO5/3/2 FCTNL TST 1
;*COPYRIGHT (C) 1980

;*DIGITAL EQUIPMENT CORP.
'HAVNARD MASS. 01754

'PROGRAH BY MIKE LEAVITY

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

482
483

B
R

BN
R
IR
BN BN BN B
BN BN B

.SBTTL

001100

BN B

NOOVO =MW

SWITCH

481

OPERATIONAL SWITCH SETTINGS

.-o..-...0-o.a0....................

SBTTL

O=MNVWSHI
VO

480

USE
HALT ON
LOOP ON
INHIBIT
UNUSED
INHIBIT
BELL ON
LOOP ON

ERROR
TEST
ERROR TYPEOUTS

ITERATIONS
ERROR
ERROR

LOOP ON TEST IN SWR<7:0>
TN128
TN64

TN32

TIN16
TN8
TNG
TN2
N1

BASIC DEFINITIONS

;*INITIAL ??BSESS OF THE STACK POINTER ##+ 1100 ##«

STACK

104000

000004

ERROR
SCOPE

000011

= 1

::CODE FOR HORIZONTAL TAB

STKLMT
PIRQ
DSWR

=
=
=
=

:sSTACK LIMIT REGISTER
: ;PROGRAM INTERRUPT REQUEST REGISTER
: sHARDWARE SWITCH REGISTER
: sHARDWARE DISPLAY REGISTER

000001
000002
000003

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

:*MISCELLANEOUS DEFINITIONS

LF
CR
CRLF
ggu -

DDISP
000000

= EMT
= 10T

=12
=15
= 200
= 177776

177774
177772
177570
177570

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

; *GENERAL PURPOSE REGISTER DEFINITIONS

RO
R1

= %0
= %

: sGENERAL REGISTER
: sGENERAL REGISTER

= 13

: ;GENERAL REGISTER

= X

: ;GENERAL REGISTER

CZRMMAD RMO5/3/2 FCTINL TST 1

BASIC DEFINITIONS

000004

MACRO v03.01

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

000040

SEQ 0028

= %6

s sGENERAL REGISTER

R6
R7

= %6
= X7

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

SP
PC

000000
000040
000100
000140
000200
000240
000300
000340

(

11-APR=B0 13:04:53 PAGE 4=1

z 35

= %6
= X7

s sGENERAL REGISTER

;*PRIORITY LEVEL DEFINITIONS

PRO
PR1

=0
= 40

PR?2

= 100

PR&
PRS
PR6
PR7

=
=
=
=

PR3

= 140

s*"'SWITCH
=
=
=
=
=
=
=

200
240
300
340

= 400

SW06
"1}
SW04
Sw03

=
=
=
z

SW0?2

::PRIORITY LEVEL 2

::;PRIORITY LEVEL 3
::PRIORITY
:;PRIORITY
;:PRIORITY
::PRIORITY

LEVEL
LEVEL
LEVEL
LEVEL

SW15
SWi4
Sw13
SW12
SW11
SW10
Sw09
Sw08

SwW0?

;;PRIORITY LEVEL 0
ssPRIORITY LEVEL 1

= 200
100
40
20
10

=z 4

SWo1
s 2
= 1
Sw00
SW9=Sw09
SW8=Sw08
SW7=Sw07
SW6=SwWw06
SW5=Sw05
SWé&=SW04
Sw3=Sw03
SW2=Sw02
SW1=Sw01
SW0=Sw00

;*DATA BIT DEFINITIONS (BITOO TO BIT1S)
= 100000
= 40000
= 20000
= 10000

BIT1S
BIT14
BIT13
BIT12
BITI1
BIT10
BIT0O9
BIT08
BIT0?
BITO6
BITOS

=
=
=
=

4000
2000
1000
400

= 200
= 100
= 40

&
S
6
7

®ooooomm

] —)

]

] — —] —
]
]
)

0D 0D 00 O G T T GO CO GO CD T

foe Sn s et et Bt o Bt ba b o
‘e ]

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

OO0 O0O0OO0OCOOONH h it h n
O=NWH
VO NO O

- oo

SEQ 0029

000010
000004
000002
000001

11-APR=-80 13:04:53 PAGE 4=2

D O

BASIC DEFINITIONS

MACRO v03.01

Bt et Bs Bt B Bt bt BoS Bt bt s Bt b5 b D3
o
o [+ I
R
D
e b e o R [
i iy i i
< PP
O=NWHSMVO NOOVOOOCO
mw
NN

CZRMMAD RMO5/3/2 FCTINL TST 1

RESVEC

TBITVEC
TRTVEC

"CPU” TRAP VECTOR ADDRESSES
;s TIME OUT AND GTHER ERRORS
..R$553¥$D AND 111 EGAL INSTRUCTIONS
;s TRACE

BPTVEC
I0TVEC

TRAP

: ;BREAKPOINT TRAP (BPT)
;s INPUT/0UTPUT TRAP (10T)

PWRVEC

; sPOWER FAIL

TRAPVEC
TKVEC
TPVEC
PIRQVEC

::'"TRAP'" TRAP

EMTVEC

.SBTTL

#«SCOPEew

s sEMULATOR TRAP (EMT) *+ERROR*+*

s:TTY KEYBOARD VECTOR
;:TTY PRINTER VECTOR
; PROGRAM INTERRUPT REQUEST

RM REGISTER BIT

VECTOR

DEFINITIONS

CONTROL STATUS REGISTER

004000
000040
000020
000010
000004
000002
000001
000077
000000
000002
000004
000006

BITN

BITO05

BIT04
BIT03
BIT02
BITO1
B1100
000077

;DEVICE AVAILABLE=-READ ONLY

:FUNCTION CODE

sFUNCTION
;FUNCTION
sFUNCTION
sFUNCTION
.GO BIT
;FUNCTION

CODE
CODE
CODE
CODE

CODE MASK

CODES (BITS 01-05 OF RMCS1)
080000
+NOP_COMMAND
000002
:ILLEGAL COMMAND
000004
s SEEK COMMAND
000006
;RECALIBRATE COMMAND
000010
;:DRIVE CLEAR COMMAND
000012
sRELEASE COMMAND
000014
;OFFSET COMMAND
000016
;RETURN TO CENTERLINE COMMAND
000020
;READ IN PRESET COMMAND

000010
000012
000014
000016
000020
000022

2222%5

:PACK ACKNOWLEDGE COMMAND

000026

000024
000026

: ILLEGAL COMMAND
: ILLEGAL COMMAND

VXNV

W= O OVONO VS W

540

ALY
N A WA

OO OO NNV
NN
WA = O VRNV
W
-

000030
000032
000034
000036
000040
000042
000044
000046

= 000050
= 000052

WD
WH

= 000060
= 000062

ILF54
ILF56

= 000054
= 000056

ILF64
ILF66
RD

= 000064
= 000066
= 000070

ILF7¢
ILF76

= 000074
= 000076

= 000072

DISK

000020
000010
000004
000002
000001

SA16
SA8
SA4
SA2
SA1

=
=
=
=

SEARCH COMMAND
; ILLEGAL COMMAND
LEGAL COMMAND
LEGAL COMMAND
LEGAL COMMAND
LEGAL COMMAND
LEGAL COMMAND
LEGAL COMMAND
EGAL COMMAND

TE CHECK DATA COMMAND
ITE CHECK HEADER AND DATA
lLLEGAL COMMAND
s ILLEGAL COMMAND

;WRITE DATA COMMAND

;WRITE HEADER AND DATA COMMAND

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

ADDRESS REGISTER

s TRACK ADDRESS DEFINITIONS
TA16
= BIT12

TA8
TA4
TA2
TA1

100000

=
=
=
=
=
=
=
=

wiD
WCH

010000
004000
002000
001000
000400

040000
020000
010000
004000
002000
001000
000400
000200
000100
000001

= 000030

—

ILF30
ILF32
ILF34
ILF36
ILF40
ILF42
ILF46
ILF&6

s*RMDA

177400
000377

“ew

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

SEQ 0030

b Ll
el
el el

=0V~

b ALY LV TV TV LV LV IV IV TV T T
TV TV W TV TV TV TV TV TV )
N N N N N N N NN NV RO AU N PO RO RO N = b s

512
515

MACRO v03.01 11-APR-80 13:04:53 PAGE 423
tthai—-.—.—nh—h-i—h—

CZRMMAO RMO5/3/72 FCTNL TST 1

RM REGISTER BIT DEFINITIONS

BITN
BIT10
BIT09
BIT08

; TRACK ADDRES S 1 6.
: TRACK ADDRES SB.

: TRACK ADDRESS &
s TRACK ADDRES
:TRACK ADDRES

sSECTOR ADDRESS DEFINITIONS
= BIT04
= BIT03
= BIT02
= BITO1
= BIT00

;SECTOR
;SECTOR
:SECTOR
+SECTOR
;SECTOR

sTRACK & SECTOR MASKS
TADMSK
=
177400

: TRACK ADDRESS MASK

SADMSK

= 000377

;*RMDS

DRIVE STATUS REGISTER

ATA
ERR
PIP
MOL

=
=
=
=

WRL
LBT

PGM

BIT15
BIT14
BIT13
BIT12

=BITMN
= BIT10

= BIT09

DPR
DRY
Vv
oM

=
=
=
=

BIT08
BI107
BIT06
BIT00

; *RMER?

ERROR REGISTER #1

ADDRES S 1 6.
ADDRES Sa.
ADDRESS 4
ADDRES
ADDRES

S §

:SECTOR ADDRESS MASK

SATTENTION ACTIVE
:COMPOSITE ERROR
;POSITIONING IN PROGRESS
;MEDIUM ON LINE
:WRITE LOCK
sLAST BLOCK TRANSFERRED
+PROGRAMMABLE
;DRIVE PRESENT
:DRIVE READY
:VOLUME VALID
;OFFSET MODE ACTIVE

CZRMMAO RMO5/3/2 FCTNL TST 1

RM REGISTER BIT DEFINITIONS

564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
gg?
582
583

ggg

11-APR-80 13:04:53 PAGE 4=4
SEQ 0031

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

DCK
UNS
0Pl
DTE
WLE
1AE
AOE
HCRC
HCE
ECH
WCF
FER
PAR
RMR
ILR
ILF

115760

NDTMSK
= DCK!DTE'!WLE'!AOE'HCRC!HCE'ECH!'WCF!'FER
:'NDTMSK'' IS USED TO MASK ERROR REGISTER 1 DURING NON - DATA

ggg

gg?

MACRO v03.01

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

BIT1S
BIT14
BIT13
BIT12
BITI
BIT10
BIT09
BIT08
BIT07
BIT06
BIT05
BIT04
BIT03
BIT02
BIT01
BIT00

;DATA CHECK ERROR
:DRIVE UNSAFE
sOPERATION INCOMPLETE
;:DRIVE TIMING ERROR
;WRITE LOCK ERROR
s INVALID ADDRESS ERROR
;ADDRESS OVERFLOW ERROR
;HEADER CRC ERROR
;HEADER COMPARE ERROR
;ECC "'HARD'' ERROR
;WRITE CLOCK FAILURE
;FORMAT ERROR
;PARITY ERROR
;REGISTER MODIFICATION REFUSED
s ILLEGAL REGISTER
:ILLEGAL FUNCTION

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

:*RMAS ATTENTION SUMMARY REGISTER

000377

ATNMSK

= 377

;MASK FOR ATTENTION BITS

592
593
594
595
gg?

002000
001000
000400
000200
000100

SCé
SC3
SC2
sC1
SCO

=
=
=
=
=

sSECTOR
;SECTOR
:SECTOR
;SECTOR
;SECTOR

ggg

003700

SCTMSK

= 003700

gg?

28?

602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
g}g
619

620

;*RMLA LOOK AHEAD REGISTER
BIT10
BIT09
BIT08
BITO7
BITO06

COUNT
COUNT
COUNT
COUNT
COUNT

=
=
=
=
=

16
8
&
2
1

;SECTOR COUNT MASK

;*RMMR1 MAINTENANCE REGISTER #1

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

;WRITE ONLY BITS
DBCK
= BIT15
DBEN
= BIT14
DEBL
= BIT13
DTO
= BIT1?2
MCLK
= BITN
MRD
= BIT10
MUR
= BIT09
MOC
= BiT08
MSER
= BIT07
MDF
= BIT06
MS
= BIT0S
MwP
= BIT03
Ml
= BIT02
MSC
= BITO1
DMD
= BIT00

100000

0cc

:READ ONLY BITS

= BIT1S

;DEBUG CLOCK
;DEBUG CLOCK ENABLE
;DIAGNOSTIC END OF BLOCK
:DIAGNOSTIC TIMEOUT
;MAINTENANCE CLOCK
sREAD DATA
sUNIT READY
:ON CYLINDER
: SEEK_ERROR
:DRIVE FAULT
:SECTOR PULSE
sWRITE PROTECT
: INDEX PULSE
;SECTOR COMPARE
:DIAGNOSTIC MODE

:0OCCUPIED

o
ba Bt b

EBL

D GO GO Co O T

RE
X
ESRC

s b0 bt b0 b

PLFS

ECRC
PDA
PHA

CONT

EECC

MwD

LS
LST
DMD

o OCOO0OO0OOOCOOO
—* = —t it
o =W VO N
VO =MW
S

A
——

SEQ 0032

B0 bt bt

010000

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

sRUN AND GO
;END OF BLOCK
;EXCEPTION
;ENABLE SEARCH
;LOOKING FOR SYNC
;ENABLE CRC OuT
;DATA AREA
sHEADER AREA
s CONTINUE
;WORD CLOCK

;ENABLE ECC OUuT
;WRITE DATA BIT
;LAST SECTOR
;LAST SECTOR AND TRACK
;DIAGNOSTIC MODE

s*RMDT

DRIVE

100000
040000
020000
004000

NSA
TAP
MOH
DRQ

=
=
=
=

020024

SNGPRT
DULPRT

= 020024
= 024024

; *RMOF

OFFSET REGISTER

FMT16
ECI
HCI
OFD

=
=
=
=

:*RMD(C

DESIRED CYLINDER ADDRESS REGISTER

CYLMSK

= 001777

024024

010000

004000
002000
000200

001777

TYPE REGISTER

BIT15
BIT14
BIT13
BITN

BIT12
BIT11
BIT10
BIT07

;NOT SECTOR ADDRESSED = 0
;TAPE DRIVE = 0
;MOVING HEAD = 1
;DRIVE REQUEST REQUIRED
sSINGLE PORT DRIVE TYPE (RMO2)
;DUAL PORT DRIVE TYPE (RM0OZ2)

OO0 O0OO0OOCOOOO—
— — —s — —
O—=NWS
VO NOOOVO —=NoWSsW

b
b

o O

— — —

e bs b

]
—

e be
e be

—] —

o O 0o 0o o G

] —
)

bt B

]
)

o 0o Go G

)
)
)

BB03
BB02
BBO1
8800

e St Bt B

BB09
8808
BBO7
BB06
BBOS
BBO4

00 0o

ST
cC
CH

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

;READ ONLY BITS
RQA
RQB
TAG

100000

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

; *RMMR
2 MAINTENANCE

670

- e

040000
020000

11-APR=80 13:04:53 PAGE &=5

— B0

RM REGISTER BIT DEFINITIONS

MACRO v03.01

CD o G0 0o Co G O

CZRMMAQ RMO5/3/2 FCINL TST 1

;MASK FOR CYLINDER ADDRESS
REGISTER #2
sPORT A REQUEST
sPORT B REQUEST
sTAG CONTROL

s COMMAND SEQUENCE TEST BIT
sCONTROL OR CYLINDER TAG
sCONTROL OR HEAD TAG
;TAG BUS
;TAG BUS
;TAG BUS
s TAG BUS

:TAG BUS

:TAG BUS
;TAG BUS

;s TAG BUS
;TAG BUS

;s TAG BUS

CZRMMAO RMOS5/3/2 FCINL TST 1

RM REGISTER BIT DEFINITIONS
g;;

£73%

674
675
676
677
678
679
gg?

100000

040000
020000
010000
004000
002000
000200
000010

100000
040000

ggg
689

690

691
692
693
694

11-APR-80 13:04:53 PAGE 4=6
SEQ 0033

s*RMER2 ERROR REGISTER 2

gg%

684
ggg

MACRO v03.01

000000

000006

BSE

= BIT1S

sBAD SECTOR ERROR

SK1
OPE
IvC
LSC
LBC
Dv(
DPE

=
=
=
=
=
=
=

.SBTTL

PROGRAM MNEMONICS

MSE
USE

= BIT1S
= BiT14

.SBTTL

RM REGISTER INDEX VALUES

RMCS1

= 00

RMDA

BIT14
BIT13
BIT12
BITI
BIT10
BIT07
BIT03

= 06

sSEEK INCOMPLETE
sOPERATOR PLUG ERROR
sINVALID COMMAND ERROR
sLOSS OF SYSTEM CLOCK
;LOSS OF BIT CLOCK
sDEVICE CHECK
:DATA PARITY ERROR

sMANUFACTURING DETECTED SECTOR ERROR
JUSER DETECTED SECTOR ERROR

sCONTROL STATUS REGISTER #1

sDISK ADDRESS REGISTER

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

RMDS
RMER1
RMAS
RMLA
RMMR1
RMDT
RMSN
RMOF
RMDC
RMHR
RMMR2
RMER?
RMEC1
RMEC2
ILRGS0
ILRGS2
ILRGS4
ILRG56
ILRG6D
ILRG62
ILRG6L
ILRG6E
ILRG70
ILRG72
ILRG74
ILRG76

12
14
16
20
= 24
= 26
= 30
s 32
= 34
= 36
= 40
= 42
= 44
= 46
= 50
= 52
= 54
= 56
= 60
= 62
= 64
= 66
= 70
= 72
= 74
= 76

;?8

000077

IDXMSK

= 77

;};

.SBTTL

RH CONTROLLER REGISTER BIT DEFINITIONS

;}2

;*RMCS1

CONTROL STATUS REGISTER #1

SC
TRE
MCPE
PSEL

=
=
=
=

695
696
697
698
699
700
701
702
703
704
707

715
716
717
718

100000
040000
020000
002000

=
=
=
=

BIT1S
BIT14
BIT13
BIT10

sDRIVE STATUS REGISTER
JERROR REGISTER #1
JATTENTION SUMMARY REGISTER
;LOOK AHEAD REGISTER

JMAINTENANCE REGISTER
;DRIVE TYPE REGISTER
sSERIAL NUMBER REGISTER
OFFSET REGISTER
sDESIRED CYLINDER REGISTER
sHOLDING REGISTER
sMAINTENANCE REGISTER #2
JERROR REGISTER #2
JECC POSITION REGISTER
JECC PATTERN REGISTER
;ILLEGAL REGISTER S0
sILLEGAL REGISTER S2
sILLEGAL REGISTER 54

sILLEGAL
;ILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL
sILLEGAL

56
60
62
64
66
70
72
74

sILLEGAL REGISTER 76

JMASK FOR REGISTER INDEX NUMBER

JSPECIAL CONDITION=-READ ONLY
;s TRANSFER ERROR
sMASSBUS CONTRCL BUS PARITY ERROR=-READ ONLY
;PORT B SELECT

CZRMMAO RMO5/3/2 FCTNL TST 1

MACRO v03.01
RH CONTROLLER REGISTER BIT DEFINITIONS

001000
000400
000200
000100

11-APR=80 13:04:53 PAGE 4=7

A6
RDY

SEQ 0034

= BIT09

= BIT08

= Bliv7

= BIT06

sADDRESS EXTENSION

JREADY=READ ONLY

:INTERRUPT ENABLE

s*RM(CS2 RH CONTROL STATUS REGISTER #2

100000

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

DLT

= BIT1S

sDATA LATE=READ ONLY

UPE

= BIT13

;UNIBUS PARITY ERROR

WCE

NED

NEM

PGE
MXF
MDPE

= BIT14

= BIT12
= BITN

= BIT10
= BIT09
= BIT08

sNONEXISTANT DRIVE=READ ONLY

JNONEXISTANT MEMORY=READ ONLY

= BIT04

= BIT0?

JUNIT SELECT

= BIT07
= BIT06
= BIT0S

BAl

= BIT03

ul
uo

= BIT01
= BIT00

CHECK ERROR=READ ONLY

;PROGRAM ERROR=READ ONLY
;sMISSED TRANSFER
;MASSBUS DATA BUS PARITY ERROR=READ ONLY
sOUTPUT READY=READ ONLY
s INPUT READY=READ ONLY
sCONTROLLER CLEAR
sPARITY TEST

OR
IR
CLR

PAT

JWRITE

JUNIBUS ADDRESS INCREMENT

INHIBIT

JUNIT SELECT
JUNIT SELECT

JUNIT SELECT MASK
000007

UNTMSK

= 7

JUNIT SELECT MASK

s*RMCS3 RH70 CONTROL STATUS REGISTER #3
100000

040000
020000
010000
004000
002000
000100
000010
000004
000002
000001

000000
000002
000004
000010
000022

000050
000052
176700
120254

APE
UPEH]

= BIT1S
= BIT14

DBL
1E
IPCK3
1PCK2
IPCK1
IPCKO

=
=
=
=
=
=

LSBTTL

RH11/RH70 CONTROLLER REGISTER INDEX VALUES

RMCS1
RMW(C
RMBA
RMCS2
RMDB
RMBAE

= 00
= 02
= 04
=10
s 22
= 50

sCONTROL, STATUS REGISTER #1
;WORD COUNT REGISTER

ABASE
AVECT1

= 176700
= 120254

sUNIBUS ADDRESS
JUNIBUS VECTOR ADDRESS AND PRIORITY

LSBTTL

TRAP CATCHER

DPELO
WCEH]I
WCELDO

RMCS3

= BIT13
= BIT1?2
= BITI

BIT10
BIT06
BIT03
BIT02
BITOI
BITO00

JADDRESS PARITY ERROR
;DATA PARITY ERROR HIGH WORD

sDATA PARITY ERROR LOW WORD
JWRITE CHECK ERROR HIGH WORD
JWRITE CHECK ERROR LOW WORD

;DOUBLE WORD TRANSFER
sINTERRUPT ENABLE
sINVERT PARITY CHECK
sINVERT PARITY CHECK
s INVERT PARITY CHECK
s INVERT PARITY CHECK

;BUS ADDRESS REGISTER
sCONTROL, STATUS REGISTER #2
;DATA BUFFER
sBUS ADDRESS EXTENSION

sCONTROL, STATUS REGISTER #3

CZRMMAOD RMO5/3/2 FCTINL TST 1

TRAP CATCHER

000000

MACRO v03.01

11-APR-80 13:04:53 PAGE 4-8

;*ALL UNUSED LOCATIONS FROM & =

SEQ 0035

776 CONTAIN A *' <42, HALT"

:*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

000174
000176

'LOCATION19‘C0NTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS

000174
000000
000000

DISPREG:
SWREG:
.SBTTL

777
778

000200

000137

005412

.WORD
.WORD

0
0

STARTING ADDRESS(ES)

JMP
.SBTTL

;s SOFTWARE DISPLAY REGISTER
;:SOFTWARE SWITCH REGISTER

ACT11

afSTART

::JUMP TO STARTING ADDRESS OF PROGRAM

HOOKS

LA Il

000204

HOOKS REQUIRED BY ACTI

000046
000052
779

000204
001100

781

.=1100
.SBTTL

SSXZC-

;SAVE PC

sfggAD

;:1)SET LOC.46 TO ADDRESS OF

.WORD
0
.=$SVPC

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

SENDAD

IN .$EOP

APT PARAMETER BLOCK

".'..t..Q.."""""I"""."'."".'..t".!"'.".l.'t't".

SET LOCATIONS 24 AND &4 AS REQUIRED FOR APT
R

000024

000044

001100
000024
000200
000044
001100
001100

SX=,

=24
200
=44

;s SAVE CURRENT LOCATION

s:SET POWER FAIL TO POINT TO START OF PROGRAM
;:FOR APT START UP
:;POINT

TO APT

INDIRECT ADDRESS PNTR.

SAPTHDR s sPOINT TO APT HEADER BLOCK
.$X
;sRESET LOCATION COUNTER

tttt.tt'tl'ttt""'t"'ttt"tttltt'tttttl.'t't'ttt'tttttt.ttttt

SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11

s INTERFACE SPEC.

782

000000
001222
000001
000002
000002
000042
001114

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

.WORD

SETEND-$SMAIL/2

.WORD
.WORD
_WORD
.WORD

SMAIL
1
2
2

::TWO HIGH BITS OF

DIAGNOSTIC

18 BIT MAILBOX ADDR.

;;ADDRESS OF APT MAILBOX (BITS 0-15)
::RUN TIM OF LONGEST TEST
;:RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
:;ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDED UNIT

;;LENGTH MAILBOX-ETABLE (WORDS)

CZRMMAO RMO5/3/2 FCTINL TST 1

COMMON T A GS

MACRO v03.01

K
3
11-APR-80 13:04:53 PAGE 5

.SBTTL

SEQ 0036

COMMON TAGS

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

;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS
:*USED IN THE PROGRAM.

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

SFILLS: .

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

377
000

377

.
.BYTE
.WORD
.WORD
.WORD

$TMP3:
.WORD
$TMP4:
_WORD
$TIMES: 0
$SESCAPE:0
$BELL:
.ASCIZ
$SQUES:
.ASCII
$CRLF:
.ASCII
$LF:
JASCIZ
RN

"SBTTL

;s CONTAINS SUBTEST ITERATION COUNT
2 sCONTAINS SCOPE LOOP ADDRESS
s sCONTAINS SCOPE RETURN FOR ERRORS
s sCONTAINS TOTAL ERRORS DETECTED
:sCONTAINS ITEM CONTROL BYTE
s sCONTAINS MAX. ERRORS PER TEST
;sCONTAINS PC OF LAST ERROR INSTRUCTION

;s CONTAINS ADDRESS OF 'GOOD' DATA
;:CONTAINS ADDRESS OF 'BAD' DATA
;s CONTAINS 'GOOD" DATA
;sCONTAINS 'BAD' DATA
: sRESERVED==NOT TO BE USED
:sAUTOMATIC MODE INDICATOR
;s INTERRUPT MODE INDICATOR

R RN RN

: sADDRESS OF SWITCH REGISTER
: sADDRESS OF DISPLAY REGISTER

own

DISPLAY:

COMMON TAGS

s sCONTAINS THE TEST NUMBER
;:CONTAINS ERROR FLAG

S
S
S
T

SWR:

;:START OF

.WORD
$STSTNM: .BYTE
$ERFLG: .BYTE
$ICNT:
.WORD
$LPADR: .WORD
SLPERR: .WORD
$SERTTL: .WORD
SITEMB: .BYTE
S$ERMAX: .BYTE
$ERRPC: .WORD
$GDADR: .WORD
$BDADR: .WORD
$GDDAT: .WORD
$BDDAT: .WORD
.WORD
.WORD
$AUTOB:
$INTAG: .BYTE

—

000000
000
000
000000

.=TAGADR
b =d=l=lelelelelelelePyelelelelelelele)]

$CMTAG:

::TTY
::TTY
::TTY
::TTY

KBD STATUS
KBD BUFFER
PRINTER STATUS REG. ADDRESS
PRINTER BUFFER REG. ADDRESS
s CONTAINS NULL CHARACTER FOR FILLS
s s CONTAINS # OF FILLER CHARACTERS REO?&RED

C)CNDCDCHD;:NKD

001114

OOfNV—=OO
ST NOOFTN—=OO N
~NO
Owavnaunatnrt~bwnuuuuuuhuhnugg—hd—MH

S ——

—.—.—.—.—.—l-‘—.—‘—.-‘g—d—.—.-‘—.—‘—d—‘—l—l

s INSERT FILL CHARS. AFTER A ''LINE FE

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

s sUSER
s sUSER
2 sUSER
s sUSER
s sUSER

s sMAX.

DEF INED
DEFINED
DEF INED
DEF INED
DEF INED

NUMBER OF

ITERATIONS

s sESCAPE ON ERROR ADDRESS

<207><377><37]> 2:CODE FOR BELL
/?/
2 sQUESTION MARK
<15>
:sCARRIAGE RETURN
<12>
ssLINE FEED
RN

R R R P

R RN NN AR AR RN AR

APT MAILBOX-ETABLE

AR RN RN R AR AR AR

AR ERR

':"...t..l'.'.""'""""'.'.t.'t."'l't'.'.."lt.tttt'tlt!'l.

001222
001222
001224
001226

000000
000000
000000

.EVEN
:
SMAIL
$MSGTY:
$FATAL:
$TESTN:

.WORD
.WORD
.WORD

AMSGTY
AFATAL
ATESTN

;sAPT MAILBOX

: sMESSAGE TYPE CODE
::FATAL ERROR NUMBER
s TEST NUMBER

(ZRMMAD RMO5/3/2 FCTNL TST 1

APT MAILBOX-ETABLE

001230

001244
001246
001250

000000
000000
000000
000000
000000
000
000
000000
000000
000000

000
000

MACRO v03.01 11-APR-80 13:04:53 PAG% 521
$PASS:
.WORD
$DEVCT: .WORD
SUNIT:
.WORD
$MSGAD: .WORD
$MSGLG: .WORD
SETABLE:
$SENV:
.BYTE
SENVM:
.BYTE
$SWREG: .WORD
SUSWR:
.WORD

:
:

.BYTE
YR

APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG
AENV
AENVM
ASWREG
AUSWR
ACPUOP

AMAMS1
AMTYP1

SEQ 0037

ssPASS ( OUNT

ssDEVICE COUNT
2+1/0 UNIT NUMBER
s sMESSAGE ADDRESS
s sMESSAGE LENGTH

:sAPT ENVIRONMENT TABLE

: sENVIRONMENT BYTE
s sENVIRONMENT MODE BITS
ssAPT

SWITCH REGISTER

s sUSER SWITCHES
;:CPU TYPE,OPTIONS
BITS 15- 11=CPU_TYPE

11/04=01,11/05=02,11/20=03,11/40=04,11/45=05
11/70=06,PDA=07,0=10
Bl T 10=REAL TIME CLOCK
9=FLOATING POINT PROCESSOR
Bl T
8=MEMORY MANAGEMENT
Bl T
:IGH ADDRESS ,M.S. BYTE
EM. T YPE ,BLKA1
MEM. M TYPE QINE
(HIGH BYTE)
=
900 NSEC CORE=001

300 NSEC BIPOLAR=002
500 NSEC MOS=003

001254

000000

.WORD

AMADR1

;sHIGH ADDRESS,BLK#1

001256
001257
001260
001262
001263
001264
001266
001267

000
000
000000
000
000
000008

SYIE

AMAMS2
AMTYP?2

;sHIGH ADDRESS,M.S. BYTE

AMTYP3
AMADR3

::MEM.TYPE ,BLK#3
s sMEM.LAST ADDRESS.,BLK#3

:
:
:

WORD

JBYTE
BYTE
.WORD

JBYTE
BYTE

: .WORD
:
:

000000

.WORD
.WORD

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

AMADR
AMAMS

AMAMSS
AMTYPS
AMADRS
AVECT]

AVECT2

ABASE
ADEVM

ACDWI
ACDW?2
ADDWO
ADDW1
ADDW?
ADDW3
ADDW&

ADDWS

ADDW6

ADDW7

MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF

ssMEM.TYPE ,BLK#?2

ssMEM.LAST ADDRESS.,BLKW#?

ssHIGH ADDRESS,M.S.BYTE

ssMEM.TYPE ,BLK#G

ssMEM.LAST ADDRESS,BLK#4

: s INTERRUPT VECTOR#1,BUS PRIORITY#1

s s INTERRUPT VECTORN2BUS PRIORITYA?
::BASE ADDRESS OF EQUIPMENT UNDER TEST
;:DEVICE MAP
: sCONTROLLER DESCRIPTION WORD#1
: sCONTROLLER DESCRIPTION WORD#?2
s:DEVICE DESCRIPTOR WORD#0
s:DEVICE DESCRIPTOR WORDA1
s:DEVICE DESCRIPTOR WORD#?2
ssDEVICE DESCRIPTOR WORDA3
s sDEVICE DESCRIPTOR WORDA4
;sDEVICE DESCRIPTOR WORD#S
s:DEVICE DESCRIPTOR WORD#6
s:DEVICE DESCRIPTOR WORD#7

''TYPE'' ABOVE

CIRMMAD RMO5/3/2 FCTNL TST 1§
USER DEFINED TAGS
0

MACRO v03.01

mn3
11-APR-80 13:04:53 PAGE 6

.SBTTL

USER DEFINED TAGS

000000
000000

CTLFG:

.WORD
.WORD

000
000

LSTRK:

XXDP:

0
0
0
0

;THE REGISTER

;CONTAINS CONTROL=C FLAG
;THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHI(CH

: THE PROGRAM WAS LOADED. THE MIGM BYTE CONTAINS THE
:'XXDP' DEVICE CODE FOR THE RMO5/3/2.

;LO BYTE = 0
Hl BYTE,

INPUT BUFFER

;STORING DRIVE STATUS
001334

CONYAINS LAST

TRACK ADDRESS OF

IS USED FOR

:
GETBUF

000000
000000
000000

JREGISTER INPUT BUFFER

RMCS1]:
RMWCI:
RMBAl:
RMDAl:

.WORD
.WORD
.WORD
.WORD

0
O
0
0

sCONTROL, STATUS REGISTER #1
;WORD COUNT REGISTER
;BUS ADDRESS REGISTER
;DISK ADDRESS REGISTER

RMDSI:
RMER1]:
RMASI:
RMLAI:
RMDB]:
RMMR1]:
RMDTI:
RMSNI:
RMOF]I:
RMDCI:
RMHRI:

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

O
O
0
O
0
0
0
0
O
O
0

;DRIVE STATUS REGISTER
;ERROR REGISTER M

RMCS21:

8338888
33

001334
001336
001340
001342
001344
001346
001350

SEQ 0038

000000

.WORD

RMMR2]:
RMER2]I:
RMEC1I:
RMEC2]:

.WORD
.WORD
.WORD
.WORD

0
O
O
0

RMCS3I:

.WORD

RMBAE]:

.WORD

;CONTROL, STATUS REGISTER #2

sATTENTION SUMMARY REGISTER

:LOOK AHEAD REGISTER
:DATA BUFFER
sMAINTENANCE REGISTER #1
;DRIVE TYPE REGISTER
;SERIAL NUMBER REGISTER
sOFFSET REGISTER
sDESIRED CYLINDER REGISTER
+HOLDING REGISTER
sMAINTENANCE REGISTER #2
;ERROR REGISTER #2
sECC 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

000000

;REGISTER OUTPUT BUFFER

RMCS10

RMWCO:

RMBAO:
RMDAOQ:

RMCS20:

RMDSO:

RMER10:
RMASO:
RMLAO:
RMDBO:

RMMR10:

RMDTO:

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

jelelelelelelelelelelele]

001410
001412
001414
001416
001420
001422
001424

:
PUTBUF

;CONTROL, STATUS REG ISTER #1
;WORD COUNT REGIS TER
:BUS ADDRESS REGI STE R
:D1SK ADDRESS REG ISTER

;CONTROL, STATUS REGISTER #2

;DRIVE STATUS REGISTER
;ERROR REGISTER 1
;ATTENTION SUMMARY REGISTER
;LOOK AHEAD REGISTER
;DATA BUFFER
;MAINTENANCE REGISTER M
:DRIVE TYPE REGISTER

UNIT

USER DEFINED TAGS

001440
001442
001444
001446
001450
001452
001454
001456
001460
001462

000000

MACRO v03.01

RMSNO:

.WORD

RMOFO:
RMDCO:
RMHRO:
RMMR20:

.WORD
.WORD
.WORD
.WORD

RMEC10:
RMEC20:
RMBAEO:
RMCS30:

.WORD
.WORD
.WORD
.WORD

RMER20:

000000

11-APR=-B0 13:04:53 PAGE 6~1

.WORD

[=lelelelelelelelele]

" CZRMMAO RMO5/3/2 FCTNL TST 1

SEQ 0039

;SERIAL NUMBER REGISTER
;OFFSET REGISTER
;DESIRED CYLINDER REGISTER
sHOLDING REGISTER
sMAINTENANCE REGISTER #2
;ERROR REGISTER #2
sECC POSITION REGISTER
;ECC PATTERN REGISTER

:BUS ADDRESS EXTENSION REGISTER

;CONTROL, STATUS REGISTER #3

;EACH WORD OF THE TEST QUE CONTAINS THE DEVICE NUMBER IN
;:THE LOW BYTE AND THE ATTENTION BIT IN THE HIGH BYTE. THE
;FIRST WORD CONTAINS THE ADDRESS OF THE DEVICE UNDER TEST
:IN THE TABLE. A ZERO WORD IS A BLANK AND REPRESENTS THE
;END OF THE QUE.

001464

000000

001506

000000

001510
001512

000000
000000

001514

TSTQUE:

CLKADR:
CLKVCT:

.WORD

.BLKW
WORD
.WORD
.WORD

8.
0
0
O

;CONTAINS DEVICE POINTER

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

;ALL 8. DEVICES ARE UNDER TEST.
;UNIBUS ADDRESS OF
sVECTOR ADDRESS CF

KW11
kW'?

CLOCK
rLoOCK

sTHE GET INDEX TABLE CONTAINS A BYTE LIST OF REGISTERS WHICH
;ARE READ BY THE GET SUBROUTINE.
THE LIST IS TERMINATED BY
;A NEGATIVE BYTE.
GETINX: .BLKB
23.
:GET INDEX TABLE
:THE PUT INDEX TABLE ICONTAINS A BYTE LIST OF REGISTERS WHICH

001543

;ARE WRITTEN BY

THE PUT

PUTINX:

23.

;A NEGATIVE BYTE.
.BLKB

sPUT TAGS HERE

SUBROUTINE.

sPUT

THE LIST

IS TERMINATED BY

INDEX TABLE

- CIRMMAD RMOS5/3/2 FCTNL TST 1

| ERROR POINTER TABLE

MACRO v03.01 11-APR-80 13:04:53 PAGE 7
.SBTTL

ERROR POINTER TABLE

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.

;*THE INFORMATION 1S OBTAINED BY USING THE INDEX NUMBER FOUND IN
;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
;*NOTE1:
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).
;*NOTE2:
EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:

;”

i
i
i

001572

;ERROR

001576
001600

067604
073676

067610
073676
074022
074112

13
067616
073676
074022
074112

n
}%

067624
073676
074022
074112

067632
073676
074022
074112

DEVICE WENT UNAVAILABLE

DEVICE WENT NONEXISTENT

CONTROLLER NOT READY

EMT4
EHTI
EDT1
EFT1

;ERROR
001632
001634
001636
001640

WRONG UNIT SELECTED

EMT3
EHTI
EDT1
EFT1
:ERROR

EMT2
EHTI
EDT1
EFTI

;ERROR

001622
001624
001626
001630

:;POINTS TO THE DATA HEADER
. :PCINTS 70 THE DATA
;;POINTS TO THE DATA FORMAT

EDT1
EFTI

;ERROR

001612
001614
001616
001620

;;POINTS TO THE ERROR MESSAGE

EMT1
EHTI

074022
074112

5
9

001602
001604
001606
001610

DH
1}
DF

$ERRTB:

001572
001574

§
EMTS
EHTI
EDTI
EFTI

DRIVE NOT READY AND GO NOT RESET

SEQ 0040

&
C
11-APR=-80 13:04:53 PAGE 7-1

001662
001664
001666
001670

001672
001674
001676
001700

29
30
b3

001702
001704
001706
001710

SEQ 0041

) —

"oIxIT=®

—d

UNEXPECTED VALUE FOR "'ATATM STATUS
— s
(O

001646
001650

001652
001654
001656
001660

6
mmmm

;ERROR

—

MACRO v03.01

:ERROR

BUS TIMEOUT

;ERROR

DRIVE NOT READY BUT GO IS RESET

sERROR

GO NOT RESET BUT DRIVE

:ERROR

INCORRECT FUNCTION CODE

;ERROR

PARITY

sERROR

TRANSFER ERROR

sERROR

INCORRECT WORD COUNT

TRYING TO READ OR WRITE REGISTER

067646
000000
000000
000000

067654
073676
074022
0746112
IS READY

067660
073676
074022
074112

067664
073676
074022
074112
ERROR READING REMOTE

001712
001714
001716
001720
IS

INCORRECT

001722
001724
001726
001730

REGISTERS

CZRMMAD RMO5/3/2 FCTNL TST
ERROR POINTER TABLE

MACRO v03.01 11-APR-B0 13:04:53 PAGg 722

s
—

"OoOIxIT =

16
»
5
—

INCORRECT BUS ADDRESS

"TTOoOIT =

mmmm

:ERROR

———

mmmm

:ERROR

001752
00175¢
001756
001760

067730
073676
074022
076112

067740
073676
074022
0746112

067750
073676
074022
074112

002012
002014
002016
002020

INCORRECT AOE

INCORRECT DISK ADDRESS

EMT21
EHTI

EDTI]
EFT1
;ERROR

002002
002004
002006
002010

EMT20
EHT
EDTI
EFT1
;ERROR

001772
001774
001776
002000

INCORRECT LBT STATUS

EMT17
EHTI
EDTI
EFT
;ERROR

001762
001764
001766
001770

067760
073676
074022
074112

INCORRECT CYLINDER ADDRESS

EMT22

.ERROR

INCORRECT WLE STATUS

;ERROR

INCORRECT UPE STATUS

067770
073676
074022
074112

SEQ 0042

3/
1

N
e e

—

"“oI=

—_————

SEQ 0043
mmmm

CZRMMAQ RMO
ERROR POINT

;ERROR

INCORRECT WCF

:ERROR

INCORRECT WCE STATUS

;ERROR

INCORRLLT MDPE

;ERROR

INCORRECT DCK

;ERROR

INCORRECT ECH STATUS

STATUS

002032
002034
002036
002040

002042
002044
002046
002050

002052
002054
002056
002060

002062
002064
002066
002070

002072
002074
002076
002100

0746112
STATUS

070030
073676
074022
074112
STATUS

070040
073676
074022
074112

070050
073676
074022
074112

EMT 31
EDT1
EFT1
;ERROR

DLT

SHOULD NOT BE

SET

MXF

SHOULD NOT

SET

;ERROR
002112

070070

EMT32
EHTI

EMT33

F
&
11-APR=80 13:04:53 PAGE 7-4
H

) —

SEQ 0044
mmm

ERROR POINTER TABLE

MACRO v03.01

—

CZRMMAO RMO5/3/2 FCTNL TST 1

1
1
1

;ERROR

DTE SHOULD NOT BE SET

;ERROR

INCORRECT HCRC STATUS

sERROR

INCORRECT HCE STATUS

;ERROR

INCORRECT

sERROR

DPE

;ERROR

LOST ""MOL'" DURING PACK ACKNOWLEDGE

:ERROR

UNSAFE

002122
002124
002126
002730

002132
002134
002136
002140

002142
002144
002146
002150
92
93
94

—
—

SET

(NOT A DATA COMMAND)

002172
002174
002176
002200

o000
W
—

—

SHOULD NOT BE

002162
002164
002166
002170

98
100

FER STATUS

002152
002154
002156
002160

95
97

070120
073676
074022
0746112

002202
002204

ERROR DURING PACK ACKNOWLEDGE

6 &
11-APR-80 13:04:53 PAGE 7-5

074022
074112
;ERROR
070170
073676
074022
074112

EMT43
EHTI
EDTI
EFT1

;ERROR
002222
002224
002226
002230

070200
073676
074022
074112

110
}}5

070210
073676
074022
074112

113
}}g

070220
073676
074022
074112

116

}}g
070230
073676
074022
074112

19
}%?

070236
073676
074022
074112

122
}sz

070246
073676
074022

"ILF'" ERROR DURING PACK ACKNOWLEDGE

COMPOSITE ERROR STATUS IS

INCORRECT

PARITY ERROR WRITING REMOTE REGISTERS

EMT50
EHT]
EDTI
EFTI
;ERROR

002272
002274
002276

EMT47
EHT]
EDTI
EFTI
;ERROR

002262
002264
002266
002270

"ILR"" ERROR DURING PACK ACKNOWLEDGE

EMT46
EHTI
EDTI
EFTI
;ERROR

002252
002256
002256
002260

EMT4S
EHTI
EDTI
EFTI
;ERROR

002242
002244
002246
002250

"RMR'* ERROR DURING PACK ACKNOWLEDGE

EMT44
EHT]
eDT1
EFTI
;ERROR

002232
002234
002236
002240

EM
EH
ED

INCORRECT
—

107

}83

"OP1"" ERROR DURING PACK ACKNOWLEDGE

s AN

002212
002214
002216
002220

—

104
}82

SEQ 0045

EDTI
EFTI

—

002206
002210

MACRO v03.01

—

CZRMMAD RMO5/3/2 FCTINL TST 1
ERROR POINTER TABLE

]JAE STATUS DURING SEEK COMMAND

CZRMMAO RMO5/3/2 FCTINL TST

ERROR POINTER TABLE

—
—

MACRO v03.01

H
&
11-APR-B0 13:04:53 PAGE 7-6

076112

oo
~NOorw

002300

SEQ 0046

EFTI

;ERROR

OP1 ERROR DURING SEEK = MEDIUM IS NOT ON LINE

;ERROR

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

;ERROR

SEEK

:ERROR

DEVICE

CHECK DURING SEEK

;ERROR

PIP

STILL

+ERROR

ATA DID NOT

:ERROR

IVC ERROR DURING SEEK COMMAND - LOST
VOLUME VALID

s
—
e
—

W
- OO0

002302
002304
002306
002310

W
S NN

070276
073676
074022
0746112
COMMAND

~NOoOwb»

070314
073676
074022
074112

W NN

—
—

002322
002324
002326
002330

INCOMPLETE ERROR DURING SEEK

COMMAND

—

002332
002334
002336
002340
9

002342
002344
002346
002350

SET

AFTER

SEEK

SKI

IS RESET

DURING

SEEK

COMMAND

070336
073676
074022
074112

142
143

144
145
146
147

SET

002352
002354
002356
002360

002362
002364

070364
073676

ASSUME

CZRMMAD RMO5/3/2 FCTINL TST 1

ERROR POINTER TABLE

el
e
—

07402 2
n
074112

v
e
- O 000

002366
002370

MACRO v03.01 11-APR-80 13:04:53 PAG% 7=7

SEQ 0047

EDT]
EFTI
;ERROR

ERRONEOUS I1vC ERROR DURING SEEK COMMAND VOLUME VALID

IS STIL SET

sERROR

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

;ERROR

UNUSED

;ERROR

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

—_—

s -

[V IV IV IV
(VP V)

002372
002374
002376
002400

070422
073676
074022
074112

—_— —

v
o~

000000
000000
000000

002442
002444
002446
002450

002452

mmmm

DRIVE EXECUTED A SEEK WITH ERROR SET

:ERROR

UNEXPECTED ERROR SET

IN RMER1

sERROR

UNEXPECTED ERROR SET

IN RMERZ2

070500
073676
074022
074112

168

169
170

H W

oo
~Noow

070460
073676
074022
074112

e
—
b
-

s ERROR

002432
002434
002436
002440
—
—

070440
073676
074022
0746112

002422
002424
002426
002430

el = |

000000

oow
— OO

002412
002414
002416
002420

"oOIT=

002402
002404
002406
002410

070512

CZRMMAO RMO5/3/2 FCTINL TST 1

ERROR POINTER TABLE

MACRO v03.01

&
J
11-APR-80 13:04:53 PAGE 7-8

WA
—

T
11
m

NN~

—_—

002454
002456
002460

SEQ 0048

;ERROR

ERRONEOUS "'IAE'' ERROR DURING RECALIBRATE

;ERROR

"ILF"" ERROR DURING RECALIBRATE

;ERROR

"'OP1'" ERROR DURING RECALIBRATE DUE

;ERROR

"'OP1'" ERROR DURING RECALIBRATE BECAUSE ON

;ERROR

"IvC'" ERROR DURING RECALIBRATE = "'wv'' = 0

:ERROR

ERRONEOUS “'IVC'' ERROR DURING RECALIBRATE = "‘wy''

;ERROR

"'SK1'" ERROR DURING RECALIBRATE

002462
002464
002466
002470

074022
076112

Voo~

002472
002474
002476
002500

NN~

—

175
176

070544
073676
074022
0746112

—

—=O

©o Oo Co 0o

002502
002504
002506
002510

TO 'MOL'' = 0

CYLINDER DIDNT

DROP

070562
073676
074022
0746112
184
185
186

002522
002524
002526
002530

070600
073676
074022
074112

187

—r
—

188
189

90
9N
92

002532
002534
002536
002540

002542

070630

CZRMMAQ RMOS/3/2 FCTNL TST 1
ERROR POINTER TABLE

002544
002546
002550

070640
073676
074022
074112

196

}gg
070652
073676
074022
074112

199

002572
002574
002576
002600

070670
073676
074022
074112

202

002602
002604
002606
002610

070706
073676
074022
074112

205

%8?
002612
002614
002616
002620

3?3
002624
002626
002630

“ATA" DID NOT SET DURING RECALIBRATE

;ERROR

"'OM'* DID NOT RESET DURING RECALIBRATE

EMT102
EHTI
EDTI
EFT1

103
EMT103
EHTI
EDT1
EFT1

104

EMT104

073676
074022
074112

070746
073676

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

;ERROR 102

EMT101
EHTI
EDT1
EFTY

EHTI
EDTI
EFTI
:ERROR

002632
002634

100

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

070730

21
5}%

"DVC'' OCCURRED DURING RECALIBRATE

:ERROR 101

:ERROR

002622

EMT100
EHTI
EDTI
EFT1

070716
073676
074022
074112

208

SEQ 0049

EMT77
EHTI
EDT1
EFTY

:ERROR
002562
002564
002566
002570

EHTI
EDT1
EFTI
;ERROR

002552
002554
002556
002560

11-APR=80 13:04:53 PAGE 7-9

073676
074022
074112

193
}32

%8?

MACRO Vv03.01

105
EMT105
EHT

“PIP'" 1S STIL SET AFTER RECALIBRATE
\

\
A

UNEXPECTED ""ILR'" ERROR DURING RECALIBRATE

CIRMMAQ RMO5/ 3/

MACRO v03.01

ERROR POINTER 1

&
L
11-APR-80 13:04:53 PAGE 7-10

SEQ 0050

1
1
1

o
e

Voo~

002636
002640

1
1
1

EDTI
EFTI

;ERROR

UNEXPECTED "'RMR'' ERROR DURING RECALIBRATE

;ERROR

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

;ERROR

CANNOT

s ERROR

NONEXISTENT DEVICE

sERROR

DEVICE NOT

sERROR

BUS TIMEOUT-NED STATUS FAILURE

sERROR

DEVICE NOT AN RM05/3/2

002642
002644
002646
002650

002652
002654
002656
002660

070766
073676
074022
076112
ACCESS MASSBUS CONTROLLER VIA UNIBUS

002666
002670

223
224
225

002672
002674
002676
002700

076132
AVAILABLE

071026
073724
074042
0746132

002712
002714
002716
002720

FOR

002722
002724
002726

CZRMMAQ RMO5/3/2 FCTNL TST 1

ERROR POINTER TABLE

002730

MACRO v03.01

L
11-APR=-8B0 13:04:53 PAGE 7-11

SEQ 0051

074134

EFT114
;ERROR
"o

mmm

RMCST

NOT

INITIALIZED BY UNIBUS

;ERROR

RMBA NOT

INITIALIZED BY UNIBUS

EMT116
EXWT

;ERROR

RMCS2 NOT

INITIALIZED BY UNIBUS

;ERROR

RMERT

INITIALIZED BY UNIBUS

;ERROR

RMAS NOT

sERROR

RMMR1

;ERROR

RMDS NOT

EMT117
ENTI

076112
NOT

071106
073676
074022
0746112

003016
003020

NOT

INITIALIZED BY UNIBUS

CZRMMAQ RMOS5/3/72 FCINL TET 1

ERROR POINTER TABLE

256

%g;

071146
073676
074022
074112

259
sg?

071156
073676
074022
074112

262

003042
003044
003046
003050

071166
073676
074022
074112

265

%29

003052
003054
003056
003060

071200
073676
074022
074112

268
593

003062
003064
003066
003070

5;2
071236
073676
074022
074112

INITIALIZED BY UNIBUS

:ERROR 127

RMBA NOT CLEARED BY CONTROLLER CLEAR

:ERROR

RMCS2 NCT CLEARED BY CONTROLLER CLEAR

EMT 126
EHTI
EDT1
EFT1

EMT127
EHTI
EDT
EFT1

130
EMT130
EHTI
EDTI
EFT1
131

RMER1 NOT CLEARED BY CONTROLLER CLEAR

EMT131
EHTI
EDTI
EFT1

:ERROR
003102
003106
003106
003110

RMMR2 NOT

RMCS1 NOT CLEARED BY CONTROLLER CLEAR

071224
073676
074022
074112

274

125

:ERROR 126

:ERROR

003072
003074
003076
003100

RMEC2 NOT INITIALIZED BY UNIBUS

EMT125
EMT1
EDTI
EFT1

071212
073676
074022
074112

2N
%;g

124

EMT124
EXTI
EDTI
EFT1
:ERROR

003032
003034
003036
003040

N &

11-APR=80 13:04:53 PAGE 7-12

:ERROR

003022
003024
003026
003030

%22

MACRO v03.01

132
EMT132
EHTI
EDTI
EFTI

RMAS NOT CLEARED BY CONTROLLER CLEAR

SEQ 0052

————————

| CZRMMAD RMO5/3/2 FCTNL TST 1
ERROR POINTER TABLE

277

%;g

003112
003114
003116
003120

071250
073676
074022
074112

280
%g}

003124
003126
003130

|
s
|
|

286

136

EMT136

003146

EDT1

074112

58‘,’

|
|

003156
003160

003154

EDT]
EF T

;ERROR
003162
003164
003166
003170

071330
073676
074022
074112

295

Sg?
071340
073676
074022
074112

140

RMCS2 NOT CLEARED BY ERROR CLEAR

EMT140
EHTI
EDT1
EF T

;ERROR
003172
003176
003176
003200

RMCS1 NOT CLEARED BY ERROR CLEAR

EHT1

074022
074112

292

137

EMT137

073676

RMMR2 NOT CLEARED BY CONTROLLER CLEAR

EF T

:ERROR

003152 071320

RMEC2 NOT CLEARED BY CONTROLLER CLEAR

EHT]

074022

289

298

135

EMT135
EHTI
EDT
EFT

073676

ME
EDT1
EF T

003142 071306
003150

134

EMT134

;ERROR
003144

RMDS NOT CLEARED BY ["NTROLLER CLEAR

071274
073676
074022
074112

%gg

;ERROR

EMT133
ENT1
EDT1
EF T

:ERROR

003132
003134
003136
003140

|
I

RMMR1 NOT CLEARED BY CONTROLLER CLEAR

073676
074022
074112

283

;

;ERROR 133

003122 071262

%gg

MACRO v03.01 11-APR-80 13:04:53 PAGg 7213

141
EMT141
ME
EDT
EF T

RMCS1 NOT CLEARED 8Y DRIVE CLEAR

SEQ 0053

307

b
b
-

nN=O

309

MACRO v03.01

;ERROR

RMDS NOT

sERROR

RMERT NOT CLEARED BY DRIVE CLEAR

:ERROR

RMAS NOT

;ERROR

RMMR1

;ERROR

RMMR2 NOT

CLEARED BY DRIVE

CLEAR

RMER2 NOT

CLEARED BY DRIVE

CLEAR

RMEC2 NOT

CLEARED BY DRIVE

CLEAR

MEDIUM NOT

ON LINE

"TOoI=®R

mmmm

-0 NN

LV
NT N

[+
TJ

OOO0O

NNNN

S —O0
&~

:ERROR

319
320

N
—
-0~
— N NN
oNOO

NNN~N

003262
003264
003266
003270

CLEARED BY DRIVE

CLEARED BY

NOT

DRIVE

CLEARED BY

CLEAR

DRIVE

CLEAR

147

EMT147
EHT]
EDTI
EFT1
;ERROR

[=l=TeTa

—
—

wHw

NN
NN

1
1
1

SEQ 0054

003242
003244
003246
003250

003252
003254
003256
003260

11-APR-80 13:04:53 PAGE 7-14

e e
s

CIRMMAD RMO5/3/2 FCTNL TST 1
ERROR POINTER TABLE

150

EMT150
EHTI
EDTI
EFT1
;ERROR

151

CIRMMAD RMO5/3/72 FCTNL TST 1
ERROR POINTER TABLE

b)
MACRO v03.01 11=-APR=-B0 13:04:53 PAGg 7=15

SEQ 0055

321

003330

003332
003334
003336
003340

sERROR

DRIVE FAULT

;ERROR

UNSAFE SHOULD BE SET BECAUSE DvC

;ERROR

UNSAFE

;ERROR

VOLUME VALID NOT

;ERROR

OFFSET MODE NOT

;ERROR

OFFSET MODE NOT RESET BY RTC

SHOULD NOT BE

SET,

IS SET

IS LOW

074022
074112
SET BY PACK ACK

071520
073676
074022
0746112
SET BY OFFSET

COMMAND

003342
003344
003346
003350

003352
003354
003356
003360

340
341
342

LFT1

;ERROR

160

RMOF

NOT

RESET BY RIP COMMAND

COMMAND

CZRMMAQ RMO5/3/2 FCTNL TST 1
ERROR POINTER TABLE

003362
003364
003366
003370

:ERROR
071566
073676
074022
074112

gzg

:ERROR
071600
073676
074022
074112

162

:ERROR 163
:
073472
073760
074056
074146

ggg

;ERROR
003422
003424
003426
003430

071622
073676
074022
074112

:ERROR
071630
073676
074022
074112

DATA WAS ECC CORRECTED BUT DOES NOT COMPARE WITH
WRITE BUFFER

164

OP1 SHOULD NOT BE SET

165

IVC SHOULD NOT BE SET

EMT165
EHT1
EDTI
EFT1

359

gg?

:ERROR

003442
003444
003446
003450

RMDC NOT RESET BY RIP COMMAND

EMT 164
EHT
EDT
EFT1

356
ggg
003432
003434
003436
003440

RMDA NOT RESET BY RIP COMMAND

EMT336
EHT336
EDT336
EFT336

353

362

161

EMT162
EHTI
EDTI
EFTI

349
350
gg;
003412
003414
003416
003420

SEQ 0056

EMT161
EHTI
EDTI
EFTI

346

003402
003404
003406
003410

EMT160
ENT]
EDT1
EFT1

gzg

003372
003374
003376
003400

11-APR-B0 13:04:53 PAGE 7-16

071556
073676
074022
074112

343

363
364

MACRO v03.01

071636
073676
074022
074112

166

IAE SHOULD NOT BE

SET

EMT166
EHTI
EDTI
EFTI

:ERROR

167

NEM SHOULD NOT BE SET

CZRMMAQ RMO5/3/2 FCTNL TST 1

ERROR POINTER TABLE

365
366
367

&
11-APR-B0 13:04:53 PAGE 7-17

071644
073676
074022
074112

mmmm

003452
003454
003456
003460

MACRG v03.01

000000
000000
000000
000000

003472

003474
003476
003500

003502
003504
003506
003510

FT1

UNUSED

“ATA'"" NOT

SET DURING RETURN TO CENTERLINE

;ERROR

"ATA'" NOT

SET BY OFFSET

;ERROR

RMERZ2 NOT

INITIALIZED BY UNIBUS

;ERROR

RMER2 NOT

INITIALIZED BY CONTROLLER CLEAR

;ERROR

SELECTED DEVICE

:ERROR

CANNOT

071662
073676
074022
074112
COMMAND

071672
073676
074022
074112
INIT

003512
003514
003516
003520

N -

S
wNw—
—O0~N

NNNN

rorooro

IN WRITE PROTECT

(=l=lel=]
NNNN
S
N—
—OO0~N
-0 NN
LS 1aNTe
o

003522
003524
003526
003530

elelele)

377
378

379

DT1

0
0
0
0

;ERROR

374
375
376

MT167
HT1

;ERROR 170
003462
003464
003466
003470

SEQ 0057

003542

071732

SET

DIAGNOSTIC MODE

CZRMMAOD RMO5/3/2 FCTNL TST 1

ERROR POINTER TABLE

003544
003546
003550

;ERROR

003562
003564
003566
003570

003572
003574
003576
003600

400

003602
003604
003606
003610

403

404
405
406

201

INCORRECT "'WRL'' STATUS DURING DIAGNOSTIC MODE

—_—

202

INCORRECT *'SKI'* STATUS DURING DIAGNOSTIC MODE

EMT202
EHTI
EPTI
EFTI

. ERROR

003612
003614
003616
003620

401
402

INCORRECT "'PIP"" STATUS DURING DIAGNOSTIC MODE

EMT201
EHTI

;ERROR

398
399

200
EMT200
EHTI]
EDT1
EFT?

;ERROR

395

397

INCORRECT "'MOL'" STATUS DURING DIAGNOSTIC MODE

003552
003554
003556
003560

392

394

7-18

073676
074022
074112
;ERROR

389
391

11-APR-80 13:04:53 PAGE

386
387
388

MACRO v03.01

203

INCORRECT "'DVC'" STATUS DURING DIAGNOSTIC MODE

EMT203

sERROR

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

sERROR

SELECTED DEVICE HAS A PERSISTENT ''SK1'' ERROR

003622
003624
003626
003630

003632
003634

SEQ 0058

EDT]
EFTT

;ERROR

003652
003654
003656
003660
613

b
b asb

Pl
P o

627

s et (N
—

UNEXPECTED LOSS OF

VOLUME

LINE

HT
DT
F1

210

VALID = "'wv'' =0

211

UNEXPECTED MECHANICAL MOTION = 'PIP'" =

EMT211
EHT]
EDTI
EFTI

003702
003704
003706
003710

212

UNEXPECTED DEVICE FAULT = 'Dv('"
= 1

EMT212
EHT]

UNEXPECTED SEEK

;ERROR

003722
003724
003726

"MOL'" = MEDIUM IS OFF

EDTI
EFT1

;ERROR

425

UNEXPECTED LOSS OF

EMT210
EHTI

sERROR

622
423
424

207
mmMmm

003662
003664
003666
003670

003672
003674
003676
003700
419
420
621

"LBC'" DID NOT SET DURING DIAGNOSTIC MODE

EMT207

;ERROR

oo~

414
615

—_——

003642
003644
003646
003650

206
"ToI=®

;ERROR

mmmm

407
408
409

074022
074112

SEQ 0059

—

003636
003640

MACRO v03.01 11-APR=80 13:04:53 PAGEH 7219

——

CZRMMAQ RMO5/3/2 FCTNL TST 1
ERROR POINTER TABLE

214

EMT214
EHT?
EDTZ

INCOMPLETE ERROR - ''SK1'' =

DRIVE EXECUTED A RECALIBRATE WITH ERROR SET

CZRMMAQ RMO5/3/2 FCTNL TST 1
ERROR POINTER TABLE

431
632
433

634
435
436

003742
003744
003746
003750

003752
003754
003756
003760

EFT2
sERROR

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

;ERROR

INCORRECT "'IvC'* STATUS

;ERROR

INCORRECT "'JAE'" STATUS

;ERROR 220

INCORRECT "'WLE'' STATUS

S S wo
e = N
W=
OO

003732
003734
003736
003740

SEQ 0060

NNN~N

428
429
430

11-APR-80 13:04:53 PAGE 7-20

074122

[elelele]

003730

MACRO v03.01

072172
073676
074022

074112

072202
073676
074022
074112

437
439

440
[y
442

003762
003764
003766
003770

EHT]

: ERROR
003772
003774
003776
004000

221

INCORRECT "'OPI'" STATUS

EMT221
EHT]
EDT1
EFTI

443

44!

445

sERROR

RM DID NOT

DETECT

:ERROR

RM DID NOT

DETECT PARITY ERROR ON MASSBUS CONTROL BUS

RMR ERROR

004002
004004
004006
004010

446

67
448

004012
004014
004016
004020

L49
450

:ERROR
004022
004024
004026
004030

000000
000000
000000
000000

652

458
459
460

;ERROR

000000
000000
000000
000000
;ERROR

004052
004054
004056
004060

000000
000000
000000
000000

461
462

463

;ERROR

004062
004064
004066
004070

000000
000000
000000
000000

464

465

467
468
469

sERROR

004072
004074
004076
004100

000000
000000
000000
000000
;ERROR

004102
004104
004106
004110

000009
000000
000000
000000

UNUSED

227

UNUSED

230

UNUSED

231

UNUSED

[=lelele)]

466

226
(=lelele]

004042
004044
004046
004050

UNUSED

(=]l
o)

000000
000000
000000
000000

225

oooco

455
656
457

:ERROR

004032
004034
004036
004040

UNUSED

=lelele)

653
654

2264
[=lelele]

651

MACRO v03.01 11-APR=-B0 13:04:53 PAGg 7221

232
(elelele]

CZRMMAQ RMO5/3/2 FCTNL TST 1

ERROR POINTER TABLE

UNUSED

SEQ 0061

CZRMMAD RMO5/3/2 FCTINL TST 1

ERROR POINTER TABLE

470
671
472

MACRO v03.01

K
5
11-APR-80 13:04:53 PAGE 7-22

:ERROR

473

sERROR

004122
004124
004126
004130

000000
000000
000000
000000

234

UNUSED

(elelele]

475

UNUSED

(olelele]

000000
000000
000000
000000

233

476

477

482
483
484

000000
000000
000000
000000
:ERROR

004152
004154
004156
004160

000000
000000
000000
000000

487

004162
004164
004166
004170

:ERROR

237

;ERROR

240

000000
000000
000000
000000

485
486

236

000000
000000
000000
000000

oooOo

004200

UNUSED

sERROR

000000
000000
000000
000000

UNUSED

j=lelele)

004142
004144
004146
004150

UNUSED

(=lelele]

004132
004134
004136
004140

235

(=lolele]

479
480
481

:ERROR

(=lelele]

478

SEQ 0062

CZRMMAO RMO5/3/2 FCTNL TST 1
ERROR POINTER TABLE

004202
004204
004206
004210

694
495
696

sERROR

242

;ERROR

243

UNUSED

;ERROR

244

UNUSED

sERROR

245

UNUSED

;ERROR

246

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

sERROR

2467

“ATA'" NOT RESET BY WRITING RMAS

000000
0

UNUSED

[=lelele]

492
493

MACRO v03.01 11-APR-80 13:04:53 PAG% 7223

000000

000000
000000
000000
000000

000000
000000
000900
000000

000000
000000
000000
000000

004246

EMT247
EHTI
EDTI
EFTI
sERROR

250

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

;ERROR

251

PROGRAM [NTERRUPT WAS NOT GENERATED

004262
004264
004266

004270

SEQ 0063

L
11-APR-80 13:04:53 PAGE 7-24

004272
004274
004276
004300

SEQ 0064

;ERROR

D
F

—_——

M1251

mmmm

514

MACRO v03.01

LN
VT NT W

CIRMMAD RMO5/3/2 FCTNL TST 1
ERROR POINTER TABLE

252

PROGRAM

INTERRUPT

SHOULD NOT HAVE BEEN GENERATED

EMT252
ENT?
EDT2
EFT2

;ERROR

253

OFFSET MODE WAS NOT RESET BY WRITING RMD(C

004312
004314
004316
004320
:ERROR

INCORRECT "'ILF"" STATUS

;ERROR

INCORRECT ""ATA"" STATUS

;ERROR

INCORRECT "'ILR"" STATUS

;ERROR

INVALID IAE STATUS DURING SEARCH COMMAND

sERROR

"IvC"" WAS NOT DETECTED DURING SEARCH COMMAND

074136

072436
073676
074022
074112

" CZRMMAO RM05/3/2 FCTNL TST 1

' ERROR POINTER TABLE

0046362
004364
004366
004370

072450
073676
074022
074112

536
gig
072462
073676
074022
076112

539

004402
004404
004406
004410

072502
073676
074022
074112

542

222

004412
004414
004416
004420

072512
073676
074022
074112

545

229

004422
004426
004426
004430

072522
073676
074022
074112

548

ggg
004432
004434
004436
004440

gg%

~NOoOwn

WAL
VoYW

DRIVE EXECUTED SEARCH WITH ERROR SET

:ERROR 262

“LBC'' ERROR NOT SET DURING DIAGNOSTIC MODE

:ERROR 263

"'SK1'' ERROR DURING SEARCH COMMAND

:ERROR 264

“IvC'' ERROR DURING SEARCH = LOST VOLUME VALID

:ERROR

ERRONEOUS IVC ERROR DURING SEARCH = VOLUME IS VALID

EMT262
EHT
EDTI
EFT1

EMT263
EHT
EDT1
EFT1

EMT264
EHT
EDT1
EFT1

265
EMT265
EHTI
EDT1
EFTY

;ERROR
004442
004444
004446
004450

261

EMT261
EHTI
EDTI
EFT1

072542
073676
074022
074112

551

EMT260
EWT]
EDTI
EFT
:ERROR

004372
004374
004376
004400

22?

MACRO v03.01 11-APR=-80 13:04:53 PAGE 7-25

072562
073676
074022
074112

266

DEVICE FAULT (DVC) DURING SEARCH

EMT266
EHTI
EDTI
EFTY

:ERROR

267

SK1 SHOULD HAVE BEEN SET BECAUSE CYLINDER

ADDRESS

1S TOO LARGE

SEQ 0065

ERROR POINTER TABLE

004452
004456
0044656
004460

MACRO v03.01 11-APR-80 13:04:53 PAG% 7-26

072574
073676
074022
0746112

558
gzg

EMT267
ENT]
EDT1
EFTY
:ERROR

004462
0044646
004466
0064470

072612
073676
074022
07611°

561
562

004472
006476
004476
004500

072626
073676
074022
074112

565

ggg

072644
073676
074022
074112

568

238
072662
073676
074022
074112

571
572

3
004522
0045264
004526
004530

072700
073676
074022
074112

575

576

004532
004536
004536
004540

072716
073676
074022
074112

DIDN'T DROP

272

LOST MOL DURING SEARCH, OPl

IS NOT SET

273

PIP STIL SET AFTER SEARCH

274

PARITY ERROR OCCURRED WHILE WRITING REMOTE

REGISTERS BUT MXF DID NOT SET

EMT274
EHTI
EDTI
EFTY

:ERROR

;;z

OP1 ERROR DURING SEARCH BECAUSE ON CYLINDER

EMT273
EWTI
EDTI
EFTY
:ERROR

g;z

271

EMT272
EMT
EDTI
EFTI

:ERROR
004512
004514
004516
004520

OP1 ERROR DURING SEARCH BECAUSE MOL = 0

EMT2N
EMTI
EDTI
EFT1
:ERROR

004502
004506
004506
004510

270

EMT270
ENT
EDT]
EFT1
:ERROR

ggz

SEQ 0066

275

EMT275
ENTI
EDTI
EFT1

MXF ERROR = COMPOSITE ERROR OCCURRED BEFORE DATA

COMMAND STARTED

CIZRMMAQ RMO5/3/2 FCTNL TST 1

MACRO v03.01

C
6
11-APR-80 13:04:53 PAGE 7-27

;ERROR

276

;ERROR

.Z.g:(l). ERRCR DURING DATA TRANSFER BECAUSE 'MOL'" WAS

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

3) RUN TIMED OUT

072744
073676
074022
0746112

588
589

:ERROR

591

"IvC"" ERROR DURING DATA TRANSFER BECAUSE VOLUME

WAS NOT

VALID

072762
073676
074022
076112

;ERROR

ERRONEOUS ‘‘IvC'' ERROR DURING DATA TRANSFER = VOLUME

sERROR

"ILR"" ERROR DURING DATA TRANSFER

;ERROR

“ILF'" ERROR DURING DATA TRANSFER

1S VALID

073002
073676
074022
0746112

076112
;ERROR

004622
004624

073050
073676

304

EMT 304
EWTI

"RMR’" ERROR DURING DATA TRANSFER

SEQ 0067

CZRMMAD RMO5/3/2 FCTNL TST 1

ERROR POINTER TABLE

004656
004630

MACRO v03.01 11-APR-B0 13:04:53 PAGg 7928

074022
074112

SEQ 0068

EDTI
EFTI
;ERROR

INCORRECT ""IAE"" STATUS DURING DATA TRANSFER

;ERROR

"'SK1'" ERROR DURING DATA TRANSFER

sERROR

DRIVE DID NOT DETECT

;ERROR

DEVICE FAULT DURING DATA TRANSFER

;ERROR

LOSS OF

;ERROR

LOSS OF SYSTEM CLOCK DURING DATA TRANSFER

;ERROR

UNSAFE ERROR DURING DATA TRANSFER

004632
004634
004636
004640

—
s

004642
004644
004646
004650

W
—

608
609
610

073074
073676
074022
074112
Sk

ERROR DUE

TO CYLINDER

—_—
s

[«
VP

004652
004654
004656
004660

—_
s
s

Ve~

004662
004664
004666
004670
BIT

CLOCK DURING DATA TRANSFER

004672
004674
004676
004700

620
621
622

623
625

004702
004704
004706
004710
(DvC = 0)

CIRMMAO RMO5/3/2 FCTNL TST 1

ERROR POINTER TABLE

004720

6
MACRO v03.01 11-APR-80 13:04:53 PAGE 7-29

0746112

SEQ 0069

EFTI

;ERROR

DRIVE TIMING ERROR DURING DATA TRANSFER

:ERROR

WRITE LOCK ERROR

;ERROR

ERRONEOUS WRITE LOCK ERROR

;ERROR

HEADER CRC

;ERROR

FORMAT

sERROR

HEADER COMPARE ERROR DURING DATA TRANSFER

;ERROR

HEADER ERRORS SHOULD NOT BE

004722
004724
004726
004730

004732
004734
004736
004740
632
633
634

635
636
637

638
639
640

004742
004744
004746
004750

004752
004754
004756
004760

073226
073676
074022
074112

073240
073676
074022
0764112

004772
004774
004776
005000

073260
073676
074022
074112

644
P VIV
-—OoonN
—NON~N
L1 NTe Nl

[elelele)

005002
005004
005006
005010

NNN~N

645

646

ERROR DURING DATA TRANSFER

004762
004764
004766
004770

641

642
643

ERROR DURING DATA TRANSFER

SET

CZRMMAQ RMO5/3/2 FCTINL TST 1

ERROR POINTER TABLE

647
648
649

SEQ 0070

:ERROR

DATA CHECK ERROR DURING DATA TRANSFER

;ERROR

CORRECTABLE DATA (HECK ERROR DURING DATA TRANSFER

;ERROR

UNCORRECTABLE DATA (CHECK ERROR DURING DATA TRANSFER

.ERROR

DATA PARITY

;ERROR

OFFSET MODE NOT

BY WRITE

COMMAND

;ERROR

DATA PARITY ERROR DURING WRITE

COMMAND

+ERROR

WRITE

005012
005014
005016
005020

650
652

MACRO v03.01 11-APR-80 13:04:53 PAGE 7930

005022

005024
005026
005030

653
654
655

005032
005034
005036
005040

074022
074112

656

657
658

659
660
661

005042
005044
005046
005050

RESET

005062
005064
005066
005070

665

666

667

073332
073676
074022
074112

005052
005054
005056
005060

662
663
664

ERROR DURING READ (OMMMAND

005072
005074
005076
005100

(LOCK

FALURE

DURING WRITE

COMMAND

CZRMMAD RMO5/3/2 FCTNL TST

ERROR POINTER TABLE

671
672
673

674
675
676

677
678
679

680
681
682

683
684
685

MACRO v03.01 11-APR-80 13:04:53 PAG? 7931
DATA LATE ERROR DURING DATA TRANSFER

sERROR

PIP STIL

073434
073676
074022
076112

334

005152
005154
005156
005160

TRANSFER = SKI

= 0

LOST MOL DURING DATA TRANSFER = OP]

= 0

LOST VOLUME VALID DURING DATA TRANSFER = Iv(

073452
073676
074022
074112

;ERROR
005142
005144
005146
005150

AFTER DATA

EMT334
EHTI
EDTI

;ERROR

005132
005134
005136
005140

SET

EFTI

sERROR
005122
005124
005126
005130

SEQ 0071

;ERROR

073416
073676
074022
0746112

005166
005170
689

073472
073760
074056
0746146

336

DATA READ DOES NOT

COMPARE WITH DATA WRITTEN

EMT336
EHT336
EDT336
EFT336
;ERROR

WRITE

CHECK

:ERROR

WRITE

CHECK ERROR AT UNEXPECTED ADDRESS

ERROR NOT

DETECTED

073502
073772
074066
074156

= 0

CZRMMAQ RMO5/3/2 FCTNL TST 1
ERROR POINTER TABLE
690
691

MACRO v03.01

11-APR=-80 13:04:53 PAGE 7-32

SEQ 0072

sERROR

INCORRECT DATA DURING WRITE C(HECK ERROR

;ERROR

"IvC"" ERROR NOT DETECTED DURING DATA TRANSFER

695
696
697

;ERROR

"FER' NOT DETECTED DURING DATA TRANSFER

698
699
700

:ERROR

005172
005174
005176
005200

692

005202
005204
005206
005210

701

704
705
706

—

EDT 344
EFT1344
;ERROR

005232
005234
005236
005240

005242
005244
005246
005250

707
709

EMT 344
EHT 344

"BSE'" NOT DETECTED DURING DATA TRANSFER

345

——

EMT 345
EHT]

703

"MCE"" NOT DETECTED DURING DATA TRANSFER

—_—

005230

073556
074004
074076
074166

344

-0

694

;ERROR

HEADER ERROR WAS DETECTED W/

HCI

:ERROR

DATA TRANSFER NOT

COMP ERROR SET

:ERROR

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

SET

073600
073676
074022
074112
ABORTED W/

005252
005254
005256
005260

~ CZRMMAQ RMOS5/3/72 FCTINL TST 1
ERROR POINTER TABLE

—
—

NN~

1
11-APR-B0 13:04:53 PAGE

6
7-33

SEQ 0073

005262
005264
005266
005270

wwHw

712

MACRO v03.01

;ERROR

351

"ATA" DID NOT

;ERROR

352

PROGRAM TIMEOUT

WHILE

LOOK

AHEAD TEST

FAILS

BSE

SHOULD NOT BE

SET DURING SEARCH

073654
000000
000000
000000

EMT352
0
0
0

722

;ERROR

724

005330
725
726

727

1
T
T
T

353
mmmm

;ERROR

719

720
721

005302
005304
005306
005310

"ToI=®

~N~N~

—_—

005272
005274
005276
005300

5
5
5
5

354
EMT35¢4
EHTI
EDTI
EFT1

sPUT ERROR TABLE HERE

SET

TESTING RMLA

LASI ST ST NI N 1 N1 T W1 WY N P

OO
N NI NN = O 000NN

S ———

(NN = O 000

O W S NN —

(ZRMMAD RMO5/3/2 FCTNL TST
ERROR TABLE USAGE

MACRO v03.01

J
6
11-APR=-80 13:04:53 PAGE 8

.SBTTL

SEQ 0074

ERROR TABLE USAGE

:THE ERROR TABLE ABOVE CONSISTS OF

:NUMBER, 1.E.,
:
:

EMT - ERROR MESSAGE TABLE ADDRESS
EHT = ERROR HEADER TABLE ADDRESS

:
:

;THE

FOUR WORD ENTRIES FOR EACH ERROR

EDT = ERROR DATA TABLE ADDRESS
EFT = ERROR FORMAT TABLE ADDRESS
EMT

ENTRY

1S THE ADDRESS OF

THE

TABLE

ERROR MESSAGE

STRINGS

:FOR THE PARTICULAR ERROR.
EACH ERROR MESSAGE TABLE LISTS THE ADDRESS
:0OF 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.

THE

EMT ENTRY

IS ZERO,

THERE

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

EACH ENTRY

:IN_THE ERROR HEADER TABLE MAY OR MAY NOT HAVE AN ASSOCIATED LINE OF

:DATA, HOWEVER, EACH DATA LINE MUST HAVE AN ASSOCIATED FORMAT AND

;HEADER.

THAT

1S,

A HEADER LINE MAY BE

PRINTED wITHOUT ANY DATA,

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

:IN SUMMARY,

:
:
:

EACH NONZERO ENTRY 1S THE ADDRESS OF A TABLE,
EACH TABLE IS A LIST OF ADDRESSES WHICH DEFINES THE LOCATIONS
OF MESSAGE STRINGS, HEADERS, DATA OR FORMAT,

CZRMMAD RMO5/3/2 FCTNL TST 1
ERROR TABLE USAGE

MACRO v03.01 11-APR-80 13:04:53 PAGE 9

2
3
&
S
6

SEQ 0075

:THIS ROUTINE HANDLES UNEXPECTED TIMEOUTS

005332
005334
005336
005340
005344
005404

7 005404

8 005406
9 005410

011600
005740
022626
104401
000417

BADTMO: MOV
ST
CMP
TYPE
BR

005346

;:658:

64$:

010046

104402
000240

}g 005422

000240
005227
001375

000000

012706
005026
022706
001374
012706

001100

005444
005452
005460

012737
012737
012737

063210
000340
063710

000020
000022
000030

005474
005502
005510

012737
012737
012737

065450
000340
065556

000034
000036
000024

005516
005526
005532
005536
005542

005550
005556

012737
013737
005037
005037
112737

012737
012737

005564
005570
005576
005604
005612
005620

013746
012737
012737
012737
022777
001012

005622

000403

005624
005630
005632
005640

012716
000002
012737
012737

001114

001154

000340
042172
001206
001210
000001

005550
005556

000004
005624
177570
177570
177777

:SETUP FOR TYPING OUT PC
;PUT

"HALT(0)*

INSTRUCTION HERE IF

;:TO STOP ON UNEXPECTED TIMEOUT.

NOP
INC
BNE

"0
=4

YOU WISH

;TTY LOOP, WAIT FOR INCREMENT
;OF WORD

:RESET THE WORLD

INITIALIZE THE COMMON TAGS

;;INITIALIZE A FEW VECTORS

000032

001131

001122

#$SCOPE ,a#10TVEC ;;10T VECTOR FOR SCOPE ROUTINE
#340,a10TVEC+2 ;:LEVEL 7
#SERROR, a#EMTVEC ..EHT VECTOR FOR ERROR ROUTINE

MOV
MOV
MOV

#STRAP,3# TRAPVEC :;TRAP VECTOR FOR TRAP CALLS
#340, 3 TRAPVEC+2; LEVEL 7
#SPURDN,3#PWRVEC ; ;POWER FAILURE VECTOR

MOV
CLR
CLR
MOVB

$ENDCT,SEOPCT
$TIMES
$ESCAPE
c1 ,SERMAX

MOV

062164

001124

MOV
MOV
MOV

MOV

000026

MOV

#340,MENTVEC+2 ;:LEVEL 7

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

.., SLPADR

::SETUP END-OF-PROGRAM COUNTER
;s INITIALIZE NUMBER OF ]TERATIONS
;:CLEAR THE ESCAPE ON ERROR ADDRESS
:;ALLOW ONE ERROR PER TEST

:iINITIALIZE THE LOOP ADDRESS FOR SCOPE

MOV
,SLPERR
:SETUP THE ERROR LOOP ADDRESS
::SIZE FOR A HARDUARE SWITCH REGISTER. IF NOT FOUND OR IT IS

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

005632
000176
000174

;GET OVER THE ASCIZ

;:CLEAR THE COMMON TAGS (SCMTAG) AREA
MOV
#SCMTAG,R6
;sFIRST LOCATION TO BE CLEARED
CLR
(R6) +
::CLEAR MEMORY LOCATION
CMP
#SWR,R6
: :DONE?
BNE
-6
::LOOP BACK IF NO
MOV
#STACK,SP
;2SETUP THE STACK POINTER

005424
005430
005432
005436
005440

000340

RO,=(SP)

START:

RESET

;SAVE PC WHERE THE TIME OUT OCCURED
:ADJUST PC =2
;RESTORE STACK POINTER
..TYPE ASCIZ STRING

<CRLF>/UNEXPECTED BUS TIMEOUT, PC=/

START OF PROGRAM

LSBTTL

012737

64$

.SBTTL

000005

005466

MOV

TYPOC
NOP

}%
14 005412
15 005414
16 005420

LASCIZ

(SP),RO
-(RO)
(SP)+,(SP)+
,658%

64%:
001154
001156

65%:

MOV
MOV
MOV
MOV
CMP
BNE

@#ERRVEC,=(SP)
#64S ,QFERRVEC
#DSWR, SWR
#ODISP,DISPLAY
#-1,35WR
66%

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

65%

::BRANCH 1F NO TIMEOUT

MOV
RT]
MOV
MOV

#65%, (SP)

::AND

THE HARDWARE SWR IS NOT

;:SET UP FOR TRAP RETURN

#SWREG, SWR
;:POINT TO SOF TWARE SWR
#DISPREG,DISPLAY

= =1

RMMAO RM0S/3/2 FCTNL TST 1
ITIALIZE THE COMMON TAGS

MACRO v03.01

L 6
11-APR=80 13:04:53 PAGE 9-1
SEQ 0076

005646

012637

000004

005652
005656
005664
8832?2

005037
132737
001403
012737

001230
000200

001243

001244

001154

20
21 005674
22 005702
23 005710
005714
005720
. 005722

012737
012737
012746
012746
000002

005332
000300
000300
005722

000004
000006

668:

MOV

(SP)+ ,@#ERRVEC

;;RESTORE ERROR VECTOR

(LR
BITB
BEQ
MOV

$PASS
WAPTSIZE,SENVM
67%
#SSWREG, SWR

::CLEAR PASS COUNT
;;TEST USER SIZE UNDER APT
::YES,USE NON=-APT SWITCH
:iNO,USE APT SWITCH RECISTER

;SETUP "'TIMEOUT'* TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS
MOV
#BADTMO,ERRVEC
;SETUP FOR UNEXPECTED TIMEOUT
MOV
#PR6,ERRVEC+2
:LEVEL 6
MOV
#PR6, = (SP)
:;PUT NEW PS ON STACK
MOV
#68$,-(SP)
::PUT NEW PC ON STACK
RT]
::POP NEW PC AND PS
68%:
LSBTTL

005722
005726
005730
005736
005740

005227
001056
022737
001452
104401

005744
005750
005752
005760
005762

005737
001012
123727
001406
023727

001242

000001

001154

000176

112737

000001

001150

005770
005772
005774

882552

006004

001005
104407
000403

177777

042326

THE NAME OF

.SBTTL

GET VALUE FOR SOFTWARE SWITCH REGISTER

000042

006006
000042

000427

TYPE PROGRAM NAME

;:TYPE

;;::

;:708:

THE PROGRAM IF

FIRST PASS

INC
BNE
CMP
BEQ
TYPE

-1
69%
#SENDAD,a#42
69%
708

JsFIRST TIME?
::BRANCH IF NO
::ACT=11?
::BRANCH IF YES
;:TYPE ASCIZ STRING

TST
BNE
CMPB
BEQ
CMP

FY Y
71%
SENV,
7%
SWR, #SWREG

;sARE WE RUNNING UNDER XXDP/A(T?
::BRANCH IF YES
ssARE WE RUNNING UNDER APT?
::BRANCH IF YES
::SOFTWARE SWITCH REG SELECTED?

MOVB

#1,$AUTOB

;:SET AUTO-MODE

69%

::GET OVER THE ASCIZ

BNE
GTSWR
BR

LASCIZ

72%

$:BRANCH IF NO
JsGET SOFT-SWR SETTINGS

INDICATOR

<CRLF>3CZRMMAD - RM05/3/72 FUNCTIONAL TEST, PART 13<(CRLF>

- 006064

698 :

JTHE FOLLOWING FINDS OUT THE PROGRAM CONTROL MODE:

sPAPER TAPE

30 006064
31 006070
32 006076

005037
122737
001160

001330
000016

000041

3, 006106
35 006114
36 006116
37 006122
38 006126
39 006130

122737
103002
105037
005737
001425
104401

000040

000007

001330

33 006100

006134

40
41
42
43

006162

006162
0061664
006170
006172

013737

000412

005046
113716
104403
001

001330
000042

CLR
CMPB
BNE

XXDP
#16,384)
38

:CLEAR *XXDP' LOAD DEVICE STORAGE
:LOADED FROM AN RM0S/3/2 ?
:BRANCH IF NOT

CMPB
BHIS
CLRB
ST
BEQ
TYPE

#7,XXDP
1%
XXDP
YY)
2%
74%

;1S 1T A VALID NUMBER ?
SYES
sNO, DEFAULT TO DRIVE 0
:CHAIN MODE OR ACT11 AUTO ACCEPT ?
:BR IF NEITHER
::TYPE ASCIZ STRING

.ASCIZ

<CRLF>/NOT

(LR
MOVBE
TYPOS
BYTE

-(SP)
XXDP,(SP)

MOV

001330

18:

006136
.- 74%:

7%s:
001330

(MANUAL), ACT11, XXDP CHAIN OR DUMP

anu0, xxppP

738

:GET DEVICE INDICATOR AND NUMBER

$:GET OVER TME ASCIZ

TESTING DRIVE /

sCLEAR WORD ON STACK
:GET DRIVE ADDRESS
:TYPE THE ADDRESS
JONLY 1 CHARACTER

CIRMMAD RMO5/3/2 FCTNL TST 1

MACRO v03.01
GET VALUE FOR SOF TWARE SWITCH REGISTER

&6 006173
45 006174

000

104401

000517

001217

BYTE

INC
BNE

#-1

1YPE

77777

2s:

006216
:-76%:

001330

006256

<CRLF>/T0 TESY

CLR

-(SP)

TYPE

::78%:

778

006346

BR
LASCIZ
TYPE

BR
L5012

BEQ

001300

000040

000010

010000

006644
000010

067002
004000

006644
000000

067021
010000

006644
000012

W=lliNNNN

067146

NOOO

—
O

001276

==
NN PN NNESWOOWWOW

OO0O—-=

001243

O ==MNOMN=NIN =PONIVNON)
S B NN NNONNN=N
WO

—

(VLW IV)
NO
OWw

S3X28R2852322 3x8828u 28 8a

[elelelelelelelelelelelel]

THRU MERE

:CLEAR WORD ON STACK

:GET DRIVE ADDRESS

:TYPE DRIVE ADDRESS

:ONLY 1 CHARACTER

:SUPRESS LEADING ZEROS
::TYPE ASCIZ STRING

788

::GET OVER THE ASCIZ

/. WALT PROGRAM, REMOVE RRDP PACK AND REPLACE

IT/<CRLF>

79%
;:TYPE ASCIZ STRING
$
;:GET OVER THE ASCIZ
/WITH A WORK PACK, CLEAR LOCATION 40 AND RESTART PROGRAM./<(RLF>

MOV

STANDALONE
#377,$DEVM

:PROGRAM IS RUNNING

79 006516

DRIVE

XXDP, (SP)

TIME

sNO
ssTYPE ASCIZ STRING
::GET OVER THE ASCIZ

sCHECK FOR AUTO MODE OR STANDLONE MODE
1STB
$AUTOB
JRUNNING IN AUTO MODE ?

001150

000200

SGET NUMBER OF DRIVES
;FIRST

BR
LASCIZ
MOVB
TYPOS
.BYTE
.BYTE

SEQ 0077

surness LEADING ZEROS
R=LF

SCRLF

TYPE

78s:

000377

11-APR-B0 13:04:53 PAGE 9-2

001300

066745
001330

006644

001330

XS1l

sBR IF NO

:SET DEVICE MAP FOR ALL DRIVES

IN AUTO MODE - SEE

SIZING IS ALLOWED

BITB
BNE

#B1T7,SENVM
7%

:SIZING ALLOWED ?
sNO

CLR
MOv

:START FROM DRIVE 0

BITB
BEQ

$BASE ,RO
ATNTBL(R1),$DEVM

*LOAD THE BASE ADDRESS
;1S DEVICE PRESENT

IN MAP ?

6%
#LODEV,5$
5:09

:8R IF NO
:GET ADDRESS OF LOAD DEVICE MESSAGE
L8ADED FROM RM05/3/2 2

XXDP,R1

‘1S THIS THE DRIVE ?

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

;CLEAR MASS BUS
:LOAD THE DRIVE ADDRESS
STRY TO ACCESS AN RM DRIVE REGISTER
*GET ADDRESS OF NOT PRESENT MESSAGE
:1S DRIVE PRESENT ?

MOV

#NOTAVL 5%
ggvn.ancs1(n0)

:GET ADDRESS OF AVAlLABLE ME SSAGE
ég ?nlvg AVAILABLE ?

MOV

FOFFLIN,SS

SGET ADDRESS OF OFF LINE MESSAGE

BR IF NO

MOV

TST
BEQ
CMPB
BEQ

MOv
MOV
1ST

MOV

BIT

BNE

BIT
BEQ
BIT
BEQ
BR

#MOL ,RMDS(RO)

*YES, TRY NEXT DRIVE

:BR IF NO

1S MEDIUM ON LINE

wn~s

2 FCINL TST 1

MACRO v03.01 11-APR-B0 13:04:53 PAGE 9-3

OF TWARE SWITCH REGISTER

146137
104401
1064401

010146

001300

3$:
48:

BICB
TYPE
TYPE

ATNTBL(R1),$DEVM
;CLEAR DEVICE FROM BIT MAP
LSCRLF
:CR=LF
"MSGORV
:TYPE 'DRIVE'

TYPOS
BYTE
.BYTE

2
0

::60 TYPE==0CTAL ASCII
::TYPE 2 DIGIT(S)
: :SUPPRESS LEADING ZEROS

MORD

:ADDRESS OF MESSAGE GOES HERE

INC
CMP
BLE

R1
R1,#7
1%

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

7%:

TYPE

CLR
DEC
BNE
DEC
BNE

,SCRLF
R&
R&
=2
R4
=2

:CR=LF

JMP

CMNSTART

:JUMP TO COMMON START

MOV

104403
002
000

—-—*—-—‘—'—-ooogoocoo

i
i
D anld
i
)
i
D
il
il
i
b
il
-

867169
00121
066737

104401

000000

005201
020127
003706

5%
000007

104401
005004
005304
001376
005304
001376

001217

000137

007604

SEQ 0078

TYPE

R1,=(SP)

*:SAVE R1 FOR TYPEOUT

:TYPE ERROR MESSAGE

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

177777

000131

82385

001176

000116

28:

066701

~
W

o
o
o

000131

001176

000116

103640

ggee

001217
066251

001176
001176
001176

000131

001176

000116

TYES !

MOV

(SP)+,$TMP1

*ECHO RESPONSE

TYPE
CMPE

sTMP{
$TMP1, @'Y

TYPE

,SCRLF

JMP

CMNSTART

CMPB
BEQ

STMP1,#°'N
5s
CNSLOS

:GET RESPONSE

:YES RESPONSE ?
INO!!

‘CR=LF

*KEEP PREVIOUS PARAMETERS

:NO RESPONSE ?
1YES, GET NEW PARAMETERS
INO, TYPE ' ILLEGAL INPUT

STRY AGAIN

IF OPERATOR WANTS HELP TEXT
+MSHELP

(SP)+ ,$THP1
$TMP1

CMPB

$TMPY, 0"y

BR
TYPE

$
+HELP

BEQ
CMPB
BEQ
TYPE
48:

:FIRST TIME THRU MERE ?

({3

;MAINTAIN PREVIOUS PARAMETERS ?

MOV
TYPE

066701

#-1

,CNSLOO

TYPE
RDCHR

001176
001176
001176

;INITIALIZE CONSOLE

TYPE

RDCHR

TYPE

066220

PC.STKINT

THE USER WANTS TO KEEP SAME DEVICES FOR TESTING

BR
ggee

066701

BNE

001217
007604

O -

e SHKOoovNn

geg

001176
001176
001176

NNNN

066304

NNNNNNNN

INC

BEQ
iiEE

SEQ 0079

STANDALONE INPUT ROUTINES

STANDALONE:
JSR

064120

OO0 (=1=]
WO ks
oSNR¥]

88888

VAV ES WLN)
—

RN =O0V0O~N

OWVESWN—=OO

WAVWAVWAWAWN
S

MACRO v03.01 11-APR-B0 13:04:53 PAGE 10
+SBTTL

NI
b b et

3
8883838888
533 gses gannnenn
B B.

5/3/2 FCINL TST 1
INPUT ROUTINES

3.
STMP1,#'N
5%
CNSLO8

sWANT HELP ?
;GET_RESPONSE

:SAVE AND ECHO RESPONSE

;WAS IT A YES RESPONSE ?

JYES
sWAS IT A NO RESPONSE ?
sYES
:NO, TYPE ' ILLEGAL INPUT'
s TRY AGAIN
sYES = TYPE HELP TEXT

IF USER WANTS TO CHANGE ADDRESSES
TYPE
TYPE
RDCHR

,SCRLF
,UBUSQST

cMPB

$TMPY, @'Y

;WAS 1T A YES RESPONSE ?

CNSLOS

INO, TYPE ' ILLEGAL INPUT °

MOV
TYPE

BEQ
CMPB
BEQ

T1YPE

(SP)+,$THP1
$THP1

63
STMP1,#'N
12%

844

:CR-LF
*WANT TO CHANGE ADDRESS ?
:GET RESPONSE

:SAVE AND ECHO RESPONSE

SYES
*WAS IT A NO RESPONSE ?
TYES

STRY AGAIN

éngLoeue T0 CHANGE THE UNIBUS ADDRESS, VECTOR ADDRESS AND INTERRUPT PRIORITY
066337
001276

TYPE

MOV

TYPOC

CNSLOY

$BASE
, = (SP)

:TYPE CURRENT BUS ADDRESS
::SAVE $BASE FOR TYPEOQUT

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

NOS

R
L
I IV IV IV R °°-W—.°8°°-‘-‘—'-‘-‘-‘
NNNNNNN=
NN Nw - N OO0
O
WwWwo
N
= W u-u-ogoo-bo
NNNN
= O WNO
O —

e
e

NSO

001276

(SP)+,$TMP1

8s
;160000.81!91

6844

7%:

MOV

8%:

TYPE

CLR

MOVB
TYPOS
.BYTE
.BYTE
TYPE
RDOCT

—

066211
001176

MOV

BEQ
cMP
BHI

001176

066437

NWWWWNWN
S S NSO

MOV
BEQ
cMp
BLOS
TYPE

001272

OO M VNN
N

—s

——
—

—

wwn

-t et DO=t

2 3353 83 283388233

—

wvn

s
z

WO
NN
WO OOW—W—-O
NO = NN
NN =

3283 =3 RSN SSEE

Cc~

—O

001176

066417

001000

LQUES

RDOCT

066355
001176

TYPE

001272

9%:

BR
MOVB

108:

TYPE

001273

CLR

MOvB
ASR
ASR
ASR
ASR
ASR
TYPOS

TYPE
RDOCT

MOV
BEQ
CMP
BLT

000007

TYPE

11%:

001273

ASL
ASL
ASL
ASL
ASL

MOvB

Dl ALOGUE

112 007356
113 007360

160000

066473

srON
oonN

108
109
110 007352
111 007352

7
MACRO v03.01 11-APR-80 13:04:53 PAGE 10-1

001176

28883233

83 007236
84 007242
85 007244
86 007250
87 007252
88 007254
89 007256
90 007260
91 007262
92 007264
93 007265
94 007266
95 007272
96 007274
97 007300
98 007302
99 007310
100 007312
101 007316
102 007320
103 007324
104 007330
105 007334
106 007340
107 007344

—

80 007226
g; 007230

(]

72 007175
73 007176
76 007202
75 007204
76 007210
77 007212
78 007220
79 007222

066211

gog

67 007160
68 007164
69 007166
70 007172
71 007174

—

61 007134
°§ 007142
63 007144
64 007150
65 007152

59 0071;3
60 0071

57 0071%0
58 007124

OO0

INP

ANDALONE

—

we
-~

RMMAD RMOS5/3

‘ZS:

INC
BNE

TYPE

,CNSLO2

$TMP1,$BASE

:t'Pc

SEQ 0080
"

;GET NEW BUS ADDRESS
sCARRIAGE RETURN ?
sYES=SKIP TO NEXT ENTRY
+BASE ADDRESS IN 1/0 PAGE ?
;YES

:TYPE WARNING MESSAGE
sTRY AGAIN

:STORE NEW BUS ADDRESS

.CNSLO3

=(SP)

SVECT1,(SP)

;GET CURRENT VECTOR ADDRESS

3
0
.QUES

;TYPE 3 DIGITS

(SP)+, $THP1

108

#1000,$TMP1

9%
ENSLOL

$TMP1,SVECT]

:SUPPRESS LEADING ZEROS

;GET NEwW VECTOR ADDRESS
:CARRIAGE RETURN?
sYES=SKIP TO NEXT ENTRY
;VECTOR ADDRESS < 1000 ?
JYES!!
;TYPE WARNING MESSAGE
:RETRY

sSTORE NEW VECTOR ADDRESS

.CNSLOS

=(SP)

SVECT1+1,(SP)

sGET CURRENT BR LEVEL

;ONLY 1 DIGIT
;sSUPPRESS LEADING ZEROS

(SP)
(SP)
(SP)
(SP)
(SP)

0
.QUES
(SP)+,$THPI

12%
07
STMP1
1%

.CNSLO6

10%
$THP1
$THPY
$THP1
$THPY
$THPI

sGET NEW PRIORITY
sCARRIAGE RETURN ?
JYES=SKIP TO NEXT ENTRY
JLEGAL PRIORITY ?
SYES!!

sTYPE WARNING MESSAGE
;TRY AGAIN

JSTORE NEW PRIORITY

$STMPT SVECTI#

INPUT DEVICE NUMBERS

-1

;FIRST

TIME

.CNSLO7

:TYPE

INPUT

13%

:BR IF NO

THRU ?
INSTRUCTIONS

—'NJ‘SNOJ‘I“OJ‘
WO
ONIW—=OWO

N NN Y NN -t Yt i

—
;
4

825882358 e
NOS

NOOWNIW=
WO
-‘OON?
NS WWWOO
YN
SN~
Nt
b NI NN=

MNNNIWNO

WA
W
SPNESNSSN
W NNO
-& N

—

OO0 —
S°
SR8
'3
=000
—

000060

16%:

000015

066215
001176
001176

000060

001176

000067

TYPE
TYPE

18%:

067146
000377
001217
006454

RDCHR

MOV
CMP

BEQ

001i7¢

177770

cMp
BEQ

CMP
BLT
cMP
BLE
BR

000067

001176
001176

TYPL
RDCHR

TYPE

NSNS

OO0
=

15%:

Of—=norNOW
=B NN=-=NN

-t~

g SR8Raa8R2
rwu
- NN

001300
000015

TYPE
(LR

MOV
cMp
BNE
TYPE
MOV
JMP

000101

17%:

—

OO‘OI‘O?

13%:
14%:

066701

O et
et OO
SOOIV
—

sswwbb
oorNn ¥

>»»

BRZ28R8 ¥ 3

X3
~

Pk ok 2l ak ak o

NNNNNN

WO
= =

w e

S WN=OOVONOVS
VN
WAV
IV IV IV P ¥ 2kaf oF oF oF WO
o F . 3 buuwxaruwuwNNNNNNNNNN—----n-—WN = OOV
NV
NN = OV~
WV
83883838388 383888883838888 8 8828828 2333332888

7574

MACRO v03.01 11-APR-80 13:04:53 PAGE 10-2

001300
001300
19%:

SCRLF

$DEVM

,MSDRVS
(SP)+ $THP1

STMP1 #'A
15%
A

a:%%.soevn
XS

STMP1, #CR
17%
$TMP1

$TMP1,2°0
17%
STMP1,8'7
18%
17%

(SP)+,$TMPI
. #CR
$TMP1
19%

,COMMA
$STMP1

SEQ 0081

sCR=LF
sCLEAR DEVICE MAP

;TYPE 'DRIVE(S):

;GET RESPONSE
;1S INPUT "'ATM
?
:NO
sYES, TYPE ""ALL'' AND GO
:SET DEVICE MAP FOR ALL DRIVES
sAUTO SIZE.
;CARRIAGE RETURN ?

s YES
sECHO RESPONSE
sNUMBER < 0 ?
sYES

;NUMBER > 7 ?

sNO

sILLEGAL INPUT

;GET RESPONSE
sCARRIAGE RETURN ?
sYES
:TYPE

sECHO RESPONSE
JNUMBER < 0 ?
JYES

CMP
BLT
CMP
BLE

$TMP1,2'0
17%
STMP1.#'7
18%

iss

;RETRY

MOV

$TMP1 R
07 ,R1

:R1

#377,$DEVM
16%

:DONE ?

XS1Z

GO SIZE DEVICES

TYPE

BIC
8158
CMPB
BHI
TYPE
JMP

LCNSLO8

ATNTBL(R1) ,$DEVM

+SCRLF

:NgflBER xrY

sTYPE "' ?ILLEGAL INPUT''
= DRIVE

SCR-LF

NUMSER

;SET DEVICE IN MAP

CIRMMAD RMO5/3/2 FCTNL TST 1
STANDALONE INPUT ROUTINES

MACRO v03.01

7 007624

ASSEHBLE TEST QUE FROM DEVICE MAP

013700

012701
010137
012702

005003

001466
001464
000001

030200
001406
010311

12
13
14
15
16
17
}3

007642
007646
007650
007652
007654
007656
007660

062701
006302
105702
001402
005203
000763
005011

000002

21 007662
22 007666
23 007670

004737
000413

044644

116361

007670
24 007672
007676

104000
104401
000405

007712
25 007712
26 007714
27 007716

000000
000765

1%:

067146

2%:

;:65%
648

5%:

000240
105737
001007
005737
001002
000137
000137

37 010004
38 010010
39 010014

105037
005037
005037

001116
001206
001326

010030

012746

010036

SBTTL

000042

001242

000001

001154

000176

000001

001150

001300

66%:
67%:

READY:

000042
005412
042136

064120
000300

1%:

2%:

$SDEVM,RO

RO = DEVICE MAP

MOV
MOV
MOV

lTSTOUE’Z.R1
R1,TSTQUE
#l,R2

R1 = ADDRESS OF FIRST ENTRY IN QUE
:INITIALIZE ENTRY POINTER
RZ = DEVICE POINTER

BIT
BEQ
MOV

R2.RO
2%
R3,(R1)

IS IHIS DEVICE IN MAP ?
:NO
!
VES = ENTER DEVICE NUMBER IN QUE

"2 .R1
R2
R2
3%
R3
1%
(R1)

:ADVANCE ENTRY POINTER
sADVANCE DEVICE POINTER
;DONE ALL DEVICES ?
;YES
sADVANCE DEVICE NUMBER
JENTER NEXT DEVICE
;TERMINATE TEST QUE

JSR
BR

PC,SIZ2CLK
5%

sSEE IF CLOCK PRESENT
JYES = CLOCK 1S PRESENT

EMT
TYPE
L
LASCIZ

,65%
;s TYPE ASCIZ STRING
64%
;3GET OVER THE ASCIZ
<CRLF>/PROG HLT/

HALT
BR

CLR

ADD
ASL
1STB
BEQ
INC
BR
CLR

sSIZE FOR CLOCK

007700

22 007756
30 007760
31 007764
32 007766
33 007772
34 0077764
32 010000

Hov

MOvVB

A¥

005737
001012
123727
001406
023727
001005
104407
000403
112737

004737
012746

000001

3%:

007716
007722
007724
007732
007734
007742
0077446
0077646
007750
2 007756

40 010020
41 010024

CMNSTAR

001300

8 007626
9 007630
10 007632

11 007634

{
SEQ 0082

2 007604
35 007604
& 007610
5 007614
6 007620

11-APR-80 13:04:53 PAGE 11

= DEVICE NUMBER

ATNTBL(R3),1(R1):ENTER ATTENTION BIT IN QUE

GET VALUE

:PROGRAM HALT
FOR SOFTWARE

SWITCH REGISTER

18T
BNE
CMPB
BEQ
CMP
BNE
GTSWR
BR
MOVB

‘67%
#1,8AUTOB

NOP
TSTB
BNE
1ST
BNE
JMP
JMP

SDEVM
2%
sl
1%
START
$EOP

JREADY TO START TEST
sANY DRIVES IN MAP ?
:BR IF YES
JANY MONITOR PRESENT ?
;BR IF YES
sJUMP TO START
sRETURN CONTROL TO MONITOR

CLRB
CLR
CLR

$TSTNM
$TIMES
CTLFG

JRESET TEST NUMBER
i
JINITIALIZE NUMBER OF ITERATIONS
sCLEAR CONTROL=C FLAG

MOV

648 ,-(SP)

JSR
MOV

NGl
66%
$SENV, ¥
66%
SWR,#SWREG
67%

PC,8TKINT
#PR6,-(SP)

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

AUTO-MODE INDICATOR

JINITIALIZE TTY
2:PUT NEW PS ON STACK

JsPUT NEW PC ON

STACK

CIRMMAQ RMO5/3/2 FCTNL TST

GET

MACRO v03.01

VALUE FOR SOFTWARE SWITCH REGISTER

01003¢
010036
2§ 010036

000002
117737

171422

001234

45
46 010064

47 010052
48 010056
49 010064

RT1]
MOVB

;CLEAR MASSBUS

012737

013700
012760
117760

002000

001276
000040
171374

S0 010072

016002

000026

52 010102
53 010106
2‘; 8}8”2

022702
001003
012737

000007

51 010076

64%:

7
11-APR-80 13:04:53 PAGE 11=1

042702

001332

‘OF

000010
000010

011000

001332

;:POP NEW PC AND PS
@TSTQUE,SUNIT
CONTROLLER,

;LOAD UNIT NUMBER

SELECT

THE DlFFERENT DRIVE TYPES
#TAL,LSTRK

DRIVE

AND DETERMINE

THE

LAST

TRACK

;ASSUME LAST TRACK FOR RM02/3 =

Hov
MOV
MOVB

$BASE, RO
:R0O= UNIBUS ADDRESS
#CLR,RMCS2(RO) :CLEAR MASSBUS
@TSTGUE,RMCS2 (RO}
:SELECT DEVICE UNDER TEST

BIC

#177770,R2

MOV

177770

SEQ 0083

CMP
BNE
MOV

RMDT (RO) ,R2

:GET RMDT
AND

:SAVE DRIVE TYPE BITS

#7,R2
;1S IT AN RMOS ?
3%
;NO, MUST BE AN RM0O2 OR RM03
#TA16'TA2,LSTRK ;YES==SET LAST TRA(CK = 18.

]

CZRMMAO RMO5/3/2 FCTNL IST 1

MACRO v03.01
GET VALUE FOR SOF TWARE SWITCH REGISTER

11-APR-80 13:04:53 PAGE 12

SEQ 0084

::"""""'.""'""""""."."'.'"".""'.."""Q"""

s*TEST

14
15
16
17
18
19

010212
010216
010222
010226
010232
010236

20 010242
21 010246
22
23 010250
24 010252
25 010256
26 010262

27 010264
28 010270
29 010272
30
31 010276
32 010302
33
34

—

002

o
o

13 010206

W
~

10 010172
11 010176
12 010202

001

purd

7 010156
3 010164

001100
001276
001464
000001

5 010146
6 010152

[=l=l=l=T=] OO0O000O0~
OO000O
o
o aondh edh
(=] — e s e e e o o
[« ]
oo ocoocoooO COO
NNWWWKY

& 010144

CONTROLLER ACCESS TEST

1ST1:

615

O—=000
OO
=t a0
w SN

010116
010116
010120
010122
010126
010132
3 010136

':"."."'.'..""""'"'Q"""""..".'Q."."'Q'""'."'.

000004
000006
010250
000300

SCOPE

001226

$BASE ,RO
1STQUE ,R1
#1,8TESTN

CLR

000004
000006

MOV
MOV
MOv
MOv

ERRVEC,=(SP)
ERRVEC+2,-(SP)
#3$ ERRVEC

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

MOvB
MOv
MOv
MOv
MOv
MOV
MOv
MOV
MOv
MOV
MOv

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

+MOVE Hl BYTE TO RM(SI
sMOVE WORD COUNT REGISTER

000001
000002
000002
000004
000004
000010
000010
000022
000022
000006
000004

3%:

000006
000004
000042
005412

042136

5%:

7%:

CMP

MOV
MOV

35
36 010330
010334
010336
010340

;START OF

FSTACK,SP

TEST

sINITIALIZE STACK PCINTER
;RO = UNIBUS ADDRESS

:(R1)

= DEVICE BEING TESTED

;sSET TEST NUMBER IN APT MAIL BOX

#PR6 ,ERRVEC+?2

;MOVE BUS ADDRESS REGISTER
:MOVE

CONTROL

STATUS REGISTER

R1,RMDB(R0)

:MOVE DATA BUFFER

;2P)0.ERRVEC

::POP STACK INTO ERRVEC+2
::POP STACK INTO ERRVEC
‘NO BUS TIMEOUT OCCURRED

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

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

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

EMT
1ST
BNE
JMP

110
ana?
5%
START

JMP

$EOP

:gsfqo ALONE MODE ?

*YES-GO GET $BASE
;G0 TO END OF PASS HANDLER

':"..'.t.'i"""""""""'..".".l'.'.'.".'t"'t"'t'."ti

s*TEST 2

DEVICE AVAILABLE

010302
010302
010304
010306
010312
010316
010322

:SCOPE CALL

NOP
MOV
MOV
MOV
MOV

000004
000240
012706
013700
013701
012737

004737
000404
000240
104000

1S12:

001100
001276
001464
000002
053530

001226

SCOPE

NOP
MOV
MOV
MOv
MOv

JSR
BR
NOP
EMT

R R

TEST

22222222

s SCOPE CALL
FSTACK,SP

$BASE ,RO
TSTQUE ,R1
#2,8TESTN
PC,CNTCLR

;START OF

TEST

sINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS

:(R1)

= DEVICE BEING TESTED

:sSET TEST NUMBER IN APT MAIL BOX
;60 ISSUE CONTROLLER CLEAR
:G0 TO 2% IF NO ERROR

+RETURN HERE

ERROR

;ERROR NUMBER DEFINED BY SUBROUTINE

OO
b bt
e
W
~NNv ~

11-APR=80 13:04:53 PAGE

12-1

SEQ 0085

JMP

;G0 TO 78 IF

MOV

ERRVEC,=(SP)

: ;PUSH ERRVEC

ERROR

000004
000006
010446
000300
000000
000010
000006
000004
010000

001176
001174

MOV
MOV

RMCS1(RO),$TMP1 ;GET DVA STATUS
RMCS2(RO)
., $TMPO :GET NED STATUS

001174

BIT

#NED,$TMPO

004000

001176

BIT

#DVA,S$TMP1

:DEVICE AVAILABLE ?

CMP

(SP)+,(SP)+

:ADJUST STACK

2 O NN

NN »
NN o

010462

MACRO v03.01

NN =NNNNNN

0440

000137

OO0 —=0O0O00O0O
OWOOO WSt cd it
=NO
S =NV
ONS
=S NOOCOO

FRERRRRRRZ
OSSO
KNWNN—'—‘gON
ON

VNNV
S S S S
S5
= OVRENOWVSWN—=O
VRN WV W
=0V~

(Z RMMAD RMOS5/3/2 FCTNL TST 1
12
DEVICE AVAILABLE TEST

000004
000006

000137

MOV
MOV

3$:

5% :

042100

ERRVEC+2,=(SP)
#58 ,ERRVEC

MOV

1064112

000006
000004

MOV
MOV

7%:
9%:

BEQ
EMT
BR
BNE
EMT
BR

MOV
MOV

EMT

JMP

ON STACK

;:PUSH ERRVEC+2 ON STACK

PR6,ERRVEC+2

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

::POP STACK INTO ERRVEC+?2
;:POP STACK INTO ERRVEC

38
1
141

INO!!

9%
12
7%

SYES!!

(SP)+.ERRVEC+2
(SP)+.ERRVEC

113

*NONEXISTENT DEVICE ?

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

$EOSP

:;....t'i'..'.."""t""""""."'.'....'!""""""."."'

S*TEST 3

DRIVE TYPE TEST

VYWD
S
OO0 OOOOOaOOOOOOO
Vi
OO
~
N
o
&R
o

NNNNOO
W
= O 000

OO0O0O0

O0O0O0OCOOVOO0O0O0O0O

OO0OO0O0O0O0O

::'."'.'tt"t"""t"t""'t'.t't..t""ti'lt'.'t..'!'Q"l.'tt'

000004
000240
012706

013700
013701
012737

1813:

001100
001276
001464
000003

004737
000404
000240
104000
000137

053530

112737

000026
000200
010670
044154

112737
012737
004737
000402
000240
104000

022737
001435
022737
001431

SCOPE
#STACK,SP

SSTART OF TEST
SINITIALIZE STACK POINTER

MOV

TSTQUE ,R1

:(R1)

MOV

001226

001514
001515
001362

$BASE ,R0

MOV

#3,$TESTN

JSR

PC,CNTCLR

010664

:SCOPE CALL

NOP
MOV

NOP
EMT

024024

001362

CONTROLLER CLEAR

:60 TO 28 IF NO ERROR

*RETURN HERE IF ERROR
:ERROR NUMBER DEF INED BY

WRMDT,GETINX
#200,GETINX+1
#58 ,RMDT

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

:G0 TO 3% IF NO ERROR

PC,GET

CMP
BEQ
CMP
BEQ

160 T0 4% IF

ERROR

SUBROUTINE

MOVB
MOVB
MOV
JSR

3$:

;60 ISSUE

EMT

001362

= DEVICE BEING TESTED

:;SET TEST NUMBER IN APT MAIL BOX

JMP

NOP

020024

:RO = UNIBUS ADDRESS

:GO READ RMDT VIA GET SUBROUTINE
*RETURN HERE

ERROR

:ERROR DEFINED BY GET

#SNGPRT,RMDTI
5%
#DULPRT,RMDTI
5%

;SINGLE PORT RMO3 ?
SYES !V
:DUAL PORT RMO3 2
TYES !

SUBRROUTINE

(2
13

RMMAO RMO5/3/2 FCINL TST 1
DRIVE TYPE TEST

MACRO v03.01 11-APR-80 13:04:53 PAG% 12=2

76 010606
75 010614
76 010616

022737
oo1«§s
022737

020025

001362

024025

001362

79 010626

022737

020027

001362

024027

001362
001176
001200

;g 010626

80 010634
81 010636
gg 010646

001421

001415
022737
001411

84 010646
85 010656
gg 010662

012737
012737
104114

020024
024024

88 010664
gg 010670

000137

042100

CMP
BEQ
CMP

#SNGPRT'BITO,RMDT]
5%
#DULPRT'BITO,RMDT]

SYES !

CMP

#SNGPRT!BIT1!BITO,RMDT]

;SINGLE PORT RMOS ?

MOV
MOV
EMT

#SNGPRT ,$TMP1
#DULPRT
. $TMP2
14

;LOAD ACCEPTABLE VALUES

JMP

$EOSP

;G0 TO SUBPASS HANDLER.

BEQ

BEQ
CMP
BEQ

A ¥
5%:

SEQ 0086

:SINGLE PORT RM02 ?
SYES !
;DUAL PORT RMOZ2 ?

5%
SYES !
#DULPRT'BITT1!BITO,RMDTI ;DUAL PORT RMQS ?
5%

;;t""tt'tt"""'t""""""tttttt"'t'ttttt"'t"'.ttt'tt"t

SeTEST &

UNIBUS INITIALIZE TEST

;;t'tt't"l.t.l't"t't"'t't't'tltt'tt'.'tttt'...t"tt"'t't""t

010670
010670
010672
010674
010700
010704
010710
92 010716
93 010724

000004
000240
012706
013700
013701
012737
012737

1874:
001100
001276
001464
000001
000004

004737
000404
000240
104000
000137

053530

012702
012737
112737
112737

000101
000000
000022
000200

100 010770

004737

044424

101 011006
102 011010

005302
001367

012737
012737
012737
012737
012737
012737

177777
177777
177777
040001
003577
021037

110 011056
111 011062

012702
112722

001543
000004

010730
010732
010734
010736
94 010742
95 010742
96 010746
97 010754
98 010762
99 010770

010774
010776
011000
011002

103
1046
105
106
107
}gg

011012
011020
011026
011034
011042
011050

112 011066

000404
000240
104000
000137

112722

001206
001226

011540

108:

001432
001543
001544

011540

000014

208
:

30%:

001414
001424
001452
001434
001410
001420

SCOPE
NOP
MOV
MOV
MOV
MOV
MOV

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

JSR
BR
NOP
EMT
JMP

2208

MOV
MOV
MOVB
MOVB

#65. ,R2
#0,RMDBO
#RMDB,PUTINX
#200,PUTINX+1

;SET OR AND RESET IR
JWRITE ZEROS IN DATA SILO
JSETUP REGISTER INDEX

JSR

PC,PUT

;G0 WRITE REGISTER(S) WITH PUT

DEC
BNE

R2
20%

JDECREMENT COUNT
JWRITE SILO AGAIN

MOV
MOVB

#PUTINX,R?2
#RMBA, (R2)+

;R2 = ADDRESS OF

BR
NOP
EMT
JMP
MOv
MOV
MOV
MOV
MOV
MOV

MOVB

PC,CNTCLR

;SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER
‘RO = UNIBUS ADDRESS
s(R1) = DEVICE BEING TESTED
2:D0 1 ITERATION
JsSET TEST NUMBER IN APT MA]IL BOX

108

30$

2208

;60 ISSUE CONTROLLER CLEAR
;G0 TO 10% IF NO ERROR
JRETURN HERE IF ERROR
sERROR NUMBER DEFINED BY SUBROUTINE
160 TO 2208 IF ERROR

:60 TO 308 IF NO ERROR
;RETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
160 TO 220% IF ERROR

#-1,RMBAO
;RMBA = ALL 1'S
#-1,RMER10
:RMER1 = ALL 1'S
#-1.RMER20
‘RMER2 = ALL 1'S
#DMD 'DBEN,RMMR10
JSET DIAGNOSTIC MODE
#003577,RMCS10
#021037.RMCS20

#RMER{, (R2)+

SUBROUTINE

INDEX TABLE

W
NNV

000042

MACRO v03.01

e
el
D
>

JSR
BR

011540

004737
004737
000403

40%:

064120
000010
044070
044154

—

V==ONO>

—_—d
D 2 s s
D
e P
S
PUONINUND
= o

SonoFRERS Fr&8

50%:

001142

60%:

70%:

001352

90%:

110%:

ERROR

;GO READ REGISTER(S) WITH GET SUBROUTINE

2208

sRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;SKIP REMAINDER OF TEST

MOv

BIC

220%
PC,S$TKINT
(R1) ,RMCS2(RO)

50%

;60 TO 508 IF NO ERROR

sVERIFY RMCS1
: IGNORE SPECIAL CONDITION
#DVA'!RDY,$GDDAT ;EXPECT DVA & RDY
RMCS11,$BDDAT
#SC,8BDDAT
$GDDAT,$BDDAT

BEQ
EMT

60%

: COMPARE EXPECTED, RECEIVED
;BRANCH IF EQUAL

CLR

$GDDAT

;VERIFY RMBA IS ZERO

BEQ
EMT

116

70%

:BRANCH IF ZERO

MOV

CLR

115

RMBA1,$BDDAT

RMCS21,$BDDAT
-(SP)

(R1),(SP)

CMP
BEQ
EMT

(SP)+,$GDDAT
$GDDAT,$BDDAT
90%
17

CLR
MOV

$GDODAT
RMER1],$BDDAT

MOV

CLR

000001

MOvB

001142

BIC
BEQ
EMT

SWAB
COM
NOP

;VERIFY RM(S2

;EXPECT IR & UNIT NUMBER

#1IR, (SP)

MOV

BIC
BEQ
EMT

001142

;ERROR # DEFINED BY PUT SUBROUTINE

PC,GET

BIS

001140
001350
040000

sRETURN HERE

JSR
BR

MOvVB

001142

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

PC,GETSTS

MOv
CMP

001142

SEQ 0087

JSR

EMT
BR

001334

;60 TO 2208 IF ERROR
sUNIBUS INITIALIZE
;INITIALIZE CONSOLE
;SELECT DEVICE
;GO SET UP FOR STATUS FETCH

RESET

NOP

— B
—h
—_—
A
PNONIRNOIN
WY
3 e et e —b
— b D e d e d b
—_— D b e s
b S D B e® D D —
WIWNWNWRINY . FNOMNONOMNOMNOMNININ.
N
NNOWVnWWVWNS
e
e
e i
e
R
e S
WL

VNS WN
—=OVONO

BeleleleleBleleleleleleleleielelele B elelelele]e]

NO VWA = O
= OOV

AV (W W T
2E 2l oF oF oF 2P 3B o

N=OOVBNO VNS W

[elelelelelelelele

VO ~NO W

N1, 91,5, %], %)
P W T T T IO

-‘—.—.—.-—‘-‘fldd—.-‘d-fl—.—l—!-‘-fl—.d-‘-‘-‘—.-‘d—‘-‘—.—‘—.—.-—.-‘—.-fl—‘—.

[« Yo Ho SV IV IV IV IV IV IV IV IV IV.F E

NOP
EMT
JMP

MovBe

044424

111160

11-APR=-80 13:04:53 PAGE 12-3
MOVB
MOVB
MOVB
MOVB
MOVB

D
e
i
Y
—
o
e e e o e e i i
oo
W
o~
NININ
= =
ON~N
C-

IsT .1
lE TEST

— et
s
i
e
ooowVW

AN
el el e

N Te AV ¥

il
—

S WN=00

o
i
D
b
i
-

NN
-

Be
I
Y

(eleloleleelelelelelelelelelolelele
e RN o

CZRMMAQ RMOS

: COMPARE EXPECTED & RECEIVED
sBRANCH IF EQUAL

sVERIFY RMER1

#UNS ,$BDDAT
1108

: IGNORE UNSAFE
sBRANCH If ZERO

RMAST,$BODAT

:VERIFY RMAS
;CLEAR ALL BUT THIS
;DRIVES ATTENTION BIT

120

R2
1(R1) ,R2
R2
R?

R2 $BODAT
130 $
121

;BRANCH IF

]TS 0

| & l RMMAQ RMO5/3/ 2
1“
UNIBUS IN

011540
011540
011542
011544
011550
011554

011560

197
198 011566

011572
011574
011576
011600

199 011604

200 011604
201 011610
202 011616

203 011624
204 011632
205 011632
011636

=S NNNN
NNOWIWNWIW
Ny~~~
=S NO
VO WKW
S ayYN
=S YNNN
NVOWWWW
WVayYNINN

190%:

oo WWNWWNOWWW

W= NNNNW=NNN

MOV

001346

215%:

177177
000600
001142

AR A

:COMPARE EXPECTED AND RECEIVED

;EXPECT ZEROS
:VERIFY RMEC2 = 0

MOV

RMMR21,$BDDAT

;VERIFY RMMR?

MOV
CMP

$GDDAT,$BDDAT

124

BIC

#RQA'!RQB,$BDDAT

#TSTi1777,8GDDAT
125

CLR

MOv

BIC
BEQ
EMT

SEXPECT ALL ZEROS
;VERIFY RMER?

%;gi

;BRANCH IF OTHER BITS 0

;IGNORE DEVICE ERRORS

RMDSI,$BDDAT
;CHECK DRIVE STATUS REGISTER
#*C<DPR!DRY>,$BDDAT
#DPR!DRY,SGDDAT ;EXPECTED STATUS

BIC

$BDDAT,$GDDAT
%%gS

BEQ
EMT

S*TEST §

$GDDAT
RMER21,$BDDAT

#SK1!DVC,$BDDAT

MOv

;EXPECT TEST,TAG BIT ON

2108

MOV
CMP

; IGNORE WORD CLOCK, SCT, TRK

$GDDAT
RMEC21,$BDDAT
1908

CLR

2208:

;EXPECT WRITE DATA BIT

*BRANCH IF 0

BEQ
EMT

210%:

#MJD , SGDDAT

1708
122

BEQ
EMT

001140
001376
040200

:VERIFY RMMR

$GDDAT,SBODAT

MOV

001140

RMMR11,$BDDAT

#UC'LSILST,$BDDAT

BIC
MOV
CMP
BEQ

EMT

S =WV

S = WNONWES =W
— o NNNN=ENYNO

=000

—O0O0O0O

OO—=0O

1708
:

OON—=f
=

S = oW

OON—=I
-

1308:

—-O0O0000

11-APR=-80 13:04:53 PAGE 12-4

SEQ 0088

OO =0000
sOOO
ON=F
=00 Hr =0

163
164 011352
165 011360
166 011366
167 011374
168 011402
169 011404
170
171 011406
172 011412
173 011420
176 011422
175
176 011424
177 011432
178 011440
179 011446
180 011454
181 011456
182
183 011460
184 011464
185 011472
186 011500
187 011502
188 011504
189 011512
190 011520
191 011526
192 011534
193 011536
194 011540
195
196

MACRO v03.01

222

;COMPARE EXPECTED & RECEIVED STATUS
sDRIVE STATUS IS Ok

R 2222222222222

CONTROLLER CLEAR TEST

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

1ST15:

000004

012737

001100
001276
001464
000005

004737

053530

001226

SCOPE
NOP
MOv
MOv
MOv
MOv

JSR
BR
NOP

012076
000101
000000
000022
000200
044424

10%:

001432
001543
001544

20%:

EMT
JMP

MOV

:SCOPE CALL
#STACK,SP

:START OF

TEST

SINITIALIZE

STACK POINTER

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

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

PC,CNTCLR

;60 I1SSUE

10$

80%

CONTROLLER CLEAR

:6G0 TO 108 IF NO ERROR

:RETURN HERE IF ERROR
:ERROR NUMBER DEF INED BY SUBROUTINE
160 T0 80% IF

ERROR

MOV
MOVB
MOvB

#0 . RMDBO

#RMDB,PUTINX

:SETUP REGISTER

JSR
BR

PC,PUT

:60 WRITE

#200,PUTINX+1

30$

;WRITE ZEROS IN DATA SILO
INDEX

:60 TO 308 IF NO ERROR

TABLE

WITH PUT

SUBROUTINE

MACRO v03.01 11-APR-B0 13:04:53 PAG% 12=5

% RMMAQ RMO5/3/72 FCINL TST

012026
012026

=38

012030
230 012034
231 012034
012040
012042
012044
012046
012050
232 012054
233 012054
236
235 012062
012066
012070
012072
012074
012076

—
~

EMT
JMP
DEC
BNE

:
308
001414
001424
001452
001434
001410
001420

MOv

MOV
MOV

MOv
MOv

MOV
MOv
MOvB

MOvB
MOvVB
MOvB

MOvB

MOvB
MOvB
JSR
BR
NOP
EMT
BR

SPESF

NOP

SR —
NN~

823
T

s e DOOOOOO

NN NNINONN NN NN N NN = U

il s s

011640
011642
011644
206 011650
207 011652
208 011654
209 011668
210 01167
211 011676
21; 011704
213 011712
216 011720
215 011724
216 011730
217 011734
218 011740
219 011744
220 011750
221 011754
222 011760
011764
011766
011770
223 011772
226
225 011774
226 011774
012000
012002
012004
012006
227 012012
228
229 012016
012022

O WININNWWNNO OWO
COOWNNNNNNNINNN
NNNN NN NN NO O

1
CONTROLLER CLEAR TEST

40%:

053530

JSR
BR
NOP

012076
044070

EMT
JMP
JSR

508:

0464154

JSR
BR

NOP

012076

EMT
JMP

60%:

053646

JSR
BR
NOP

012076

000000

001410

708:

046004

80%:
oTEST

SEQ 0089

;RETURN HERE

80%
R2
20%

#-1,RMBAO
#-1,RMERIO
#-1,RMER20

ERROR

;ERROR # DEF INED BY PUT SUBROUTINE
;60 TO 80% IF ERROR
;DECREMENT COUNT
;AND WRITE SILO AGAIN IF NOT DONE

#OMD
' DBEN, RMMR10

#003577,RMCS10
#021037,RNCS20

#PUTINX,R2
#RMBA, (R2)+

:R2 = ADDRESS OF

INDEX TABLE

#RMERT, (R2)+

#RMER2, (R2)+
FRMMRT
. (R2) +
FRMCST. (R2)+
#RMCS2,(R2)+

#200,(R2)+

PC,PUT
408

7C$
PC,ONTCLR

508

80%

PC,GETSTS
PC,GET

;60 WRITE REGISTER(S) WITH PUT SUBROUT INE
:G0 TO 408 IF NO ERROR

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

;60 ISSUE

CONTROLLER

CLEAR

;60 TO 508 IF NO ERROR

sRETURN HERE

ERROR

;ERROR NUMBER DEF INED BY SUBROUTINE
;60 TO 80% IF ERROR

;SETUP TO READ ALL REGISTERS
:G0 READ REGISTER(S)

WITH GET

SUBROUT
INE

60$

;G0 TO 608 IF NO ERROR

80%

CERROR # DEFINED BY GET SUBROUT
INE
160 T0 80% If ERROR

PC,CLRSTS

;G0 VERIFY CONTROLLER CLEAR OPERATION

70§

*RETURN MERE

ERROR

:6G0 TO 708 IF NO ERROR
:RETURN HERE

ERROR

EMT
JSR
JMP

PC,a(SP)+

80%

;60 TO 80$ IF ERROR

MOv

#NOP ,RMCS10

sCHANGE

JSR
BR
NOP
EMT
JSR

PC,SECERR

;G0 CHECK FOR SECONDARY ERRORS

80%

PC.a(5P)+

ERROR CLEAR TEST

ERROR # DEFINED BY CLRSTS SUBROUTINE
;G0 BACK FOR MORE

ERROR (HECKS

FUNCTION CODE FOR ERROR C(HECK

160 TO 80 IF NO ERROR
*RETURN HWERE

ERROR

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

ERROR (ME(KS

ggnanao RMOS5/3/2 FCINL TST

ERROR CLEAR TEST

015076
00000
01%100 000240

001100
001276
001464

2640 012124

004737

053530

012132
012134
t 835:23

000240
104000
000137

012302

262 012142
012150
012156
012164

112737
112737
012737
004737

000000
000200
040000
044424

012172
012176

000240
104000

012170

000403

000441

112737
112737
112737

000000
000010
000200

248 012522

004737

0644154

012230
012232
249 012234

000240
104000
000422

012226

250 012236
251 012244
252 012250
253 012256
ggg 012260

256 012262
257 012270
zsg 012276
520 012300

000403

ot NOP
SCOPE
001226

001543
001544
001410

JSR

PC,CNTCLR

;60 ISSUE CONTROLLER CLEAR

001334
001140
117777

001142

013737
042737
001401
104140

001344
104377

001142
001142

:G0 TO 108 IF NO ERROR

508

160 T0 SO$ IF ERROR

MOVB
MOvB
MOV
JSR

#RMCST,PUTINX
#200,PUTINX+]
#TRE ,RM(CS10
PC,PUT

JSETUP PUT INDEX TABLE
sSET TERMINATOR BYTE
JSET RMCSY OUTPUT BUFFER = TRE
;G0 WRITE RMCS! VIA PUT SUBROUTINE

JRETURN HERE IF ERROR
sERROR NUMBER DEFINED BY SUBROUTINE

20$

50%

#RMCS1.GETINX
#RMCS2.GETINX+1
#200,GETINX+2

JSR

PC,GET

NOP
EMT
BR

:6G0 TO 208 IF NO ERROR

:RETURN MERE IF ERROR
JERROR DEFINED BY PUl SUBROUTINE

MOVB
MOVE
MOVE

013737
005037
042737
001401
104137

10§

NOP
EMT
JMP

208:

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

B8R
001514
001515
001516

SCOPE CA

MOV
MOV
MOV
MOV

BR
-

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

NOP
EMT

243 012176

264 012200
245 012206
529 012214

12-6

".0"'0'."'..'""""""".'.0'..'.'0..'.'.."'.Q...""Q'.

01;706
013700
013701
012737

000404

11-APR-B0 13:04:52 PAGE

SEQ 0090

012102
012106
012112
- 012116

012130

MACRO v03.01

JSKIP REST OF

TEST

;G0 READ REGISTER(S) WITH GET SUBROUTINE

304

;G0 TO 308 IF NO ERROR

JRETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE
JSKIP REST OF TEST

30%:

MOV
CLR
BIC
BEQ
EMT

50%
RMCS11,$BDDAT
sCHECK TRE & MCPE
$GDDAT
JEXPECT 0'S
#*C<TRE'MCPE>,SBDDAT
40%
;BRANCH IF TRE & MCPE = 0
137

40%:

MOV
BIC
BEQ
EMT

RMCS21,9BDDAT
;CHECK RM(CS?2
#*C<WCE'UPE 'NED'PGE 'MXF 'MDPE>,$BDDAT
508
140

001142

525 012302

508 :

263

::'.'t"tltt.'t""'l"'t"'l't'.'.""t'.t'..'..tt.ltt"'t'tl..t

;*TEST

DRIVE

STATUS TEST

::tt't.".'.tt.t.""'l"tlt"t"'tltt.t.'tt"tt'."tt't"!.tti.t

012302
012302
012304
012306
012312

012216
_— 012322
265 012330

000004
000240
012706
013700

1$17:

013701
012737

001100
001276
001464
000007

004737

053530

;
001226

SCOPE
NOP
MOV
MOV

MOV
MOV

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

JSR

PC,CNTCLR

;SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER
:RO = UNIBUS ADDRESS

:(R1) = DEVICE BEING TESTED
::SET TEST NUMBER IN APT MAIL BOX
:60 1SSUE CONTROLLER CLEAR

' %;RHHAO RMO5/3/2 FCINL TST 1
DRIVE STATUS TEST

012616

108:

044070

044154

208:

010000

1008

JSR

PC,GETSTS

JSR
BR

PC,GET

EMT
BR
BIT

BNE
MOV

BIC
BIS

MOV

EMT
BR

308:

001376
001140

001142

MOov

040000

001350

001350
040000

001142
001140

BIT
BNE

001350

001350
001140

001142

O—=0000

001376

040000

==00000

000200

O=Hr=0W
SUWNW=N
= NYNNSN
NWWW=N
MWNINININN

OO0O—=O0OW
OSMWVILN=N
=2awONSN
WUV
=N
NN NNON

O—=0000

OO—— Ow
OfMfNiWwW-—-=N
S =aYNO~N
—=WVIWWNOW
VWNNNSN

OO
&~
=0
W
N

001346
162000
010000
001346

004000

001346

001346
001346

001140
001140
001142

040000

001376

001376
001140

001142

042100

166076

BIT
BEQ
CLR
EMT

MOv
MOV

EMT
BR

60%:

BIT
BEQ

MOv

70%:

80%:

CLR
EMT
JMP

BIT
BEQ

MOv

BIC

MOV

EMT

90%:

BIT
BEQ
MOV

100%:

10%

EMT
JMP

NOP

= OO0O00

292
293 012506
294 012514
295 012516
296 012524
297 012530
298 012532
299
300 012536
301 012544
302 012546
303 012554
304 012562
305 012570
306
307 012572
308 012600
309 012602
310 012610
311 012614
312 012616
313
314

11-APR=80 13:04:53 PAGE 12-7

NOP

OCO=0OW
S VN=N)
NONSN
OWWOW
WVININO'N

012334
012336
- 012340
012342
266 012346
267 012346
268
269 012352
012356
012360
012362
270 012364
271 012366
272 012374
273 012376
2764 012404
275 012412
276 012420
277 012426
278 012430
279
280 012432
281 012440
282 012442
283 012450
284 012454
285
286 012456
287 012464
288 012466
289 012474
290 012502
291 012504

MACRO v03.01

CLR
EMT

20$

1008

#MOL ,RMDS I

30%

SEQ 0091

;60 TO 108 IF NO ERROR
sRETURN HERE

IF ERROR

;ERROR NUMBER DEFINED BY SUBROUTINE
;60 TO 1008 IF ERROR

:GO READ REGISTER(S) WITH GET SUBROUTINE

160 T0 208 IF NO ERROR

:RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
:SKIP REST OF TEST

sMEDIUM ON LINE??

JYES!!

RMDSI,$GDDAT
JEXPECTED STATUS
FATA'ERR'PIP!LBT,S$GDDAT
#MOL ,$GDDAT
RMDSI,$BDDAT
JRECEIVED STATUS

151
708

#DVC,RMERZ2]

60%
RMER21,$BDDAT
$GDDAT
152
#UNS ,RMER1]

sMOL STATUS INCORRECT

;1S THERE A DEVICE CHECK??

sBR IF NO
sRECEIVED STATUS
JEXPECTED STATUS
sDRIVE FAULT
;1S UNS SET??

70%
RMER1]1,$BDDAT

JYES!!
;RECEIVED STATUS

153
70%

"'DvC' 1S SET BUT "'UNS'' 1S NOT

#UNS,SGDDAT

JEXPECTED STATUS

#UNS ,RMER1]

;1S UNS SET??

#WRL ,RMDSI

;1S WRITE PROTECT

80%
RMER11,$BDDAT
$GDDAT
154
$EOSP

JNO!!
;RECEIVED STATUS
JEXPECTED STATUS
"'DVC'" 1S NOT SET, BUT "UNS' IS
:SKIP REST OF TEST
ON??

90%
RMDSI,$GDDAT

sNO!!
sEXPECTED STATUS

175

;SELECTED DEVICE IN WRITE PROTECT

#*C<MOL !PGM'!DPR!DRY!VV!OM>,$GDDAT
RMDS1,$BDDAT
;RECEIVED STATUS

#SK1,RMERZ2]

100%
RMER2],$BDDAT
$GDDAT
205

;1S SKI SET??

:NO!!
;RECEIVED STATUS
+EXPECTED STATUS
;PERSISTENT SEEK INCOMPLETE ERROR

o ‘..".I'.'...'t"'."'.f"'l".'..l..lt.l'l"'."t."".l.t""l

TRTEST 10

PRIMARY/SECONDARY ERROR

TEST

PRIMARY/SECONDARY ERROR TEST

317 012662
318 012662
012670
012676
012704
012710
012712
012714
319 012716
320 012720
321 012724
322
323 012730
012734
012736
012740
324 012742
325 012744
326 012744
012750
012752
012754
012756
327 01760
328 012/62
329 012762
012766
012770
012772
012774
330 012776
331
332

-0

AR AR A2

ts110:

&~
w

[=lelel=)

83888
22228
SERY Mo
—

315
316 012644
012650
012652
012654
012656

0000
2

god CBEpd <SSR

013616
012616
012650
012622
0126%6
012632
012636

110

MACRO v03.01 11-APR=80 13:04:53 PAGEB 13'3

004737
004737
000403
000240

001100
001276
001464
000010

SCOPE
#STACK,SP

$BASE , RO

TSTQUE,R1

001226

#10,$TESTN

053530

PC,CNTCLR
1%

012776
000000
000200
000023
044424

001543
001544
001410

1%:

2%:

044070
044766

044154

000415

3%:

045152

104000

004736
000406
004737
000403
000240
104000
004736

104000

004737
000404
000240

AR AR

4%:

046004

5%
MOovB
MOvB
MOV

JSR
BR
NOP
EMT
BR
JSR
JSR

JSR
BR
NOP
EMT
BR
JSR
BR
NOP
EMT
JSR
BR

JSR
BR

NOP

5%:

EMT
JSR

SEQ 0092
222222222

])

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

;60 TO 1$ IF NO ERROR
;RETURN HERE

ERROR

;ERROR NUMBER DEFINED BY SUBROUTINE

;60 TO 5% IF ERROR

sSETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
#PAKACK!GO,RMCS10
;SET RMCS1 OUTPUT BUFFER = PAKACK!GO
PC,PUT
;60 WRITE RMCS1 VIA PUT SUBROUTINE
2%
;60 TO 28 IF ND ERROR
#RMCS1,PUTINX

#200,PUTINX+1

;RETURN HERE

ERROR

PC,GETSTS
PC,
T *0UT

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

PC,GET

;G0 READ REGISTER(S) WITH GET SUBROUTINE

;RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
sSKIP REST OF TEST IF ERROR

PC,PRIERR

PC,a(SP)+

PC,SECERR

PC.a(SP)+

;60 TO 38 IF NO ERROR

;G0 CHECK FOR PRIMARY ERRORS
;G0 TO 4$ IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;SKIP REST OF TEST IF ERROR
;GO CHECK FOR SECONDARY ERRORS
;60 TO 58 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS

:'""."tl.tt"""'"'""""t"t.'l't.l"'.'t..".'tt't'.t.t.

SRTEST 11

DIAGNOSTIC MODE TEST

':l.""'.l'.i""il"""t'"t'tt'.'.t"l'l'tl"t"l't.'.l'.l.'t

012776
012776
013000
013002
013006
013012
013016

75111
001100
001276
001464
000011

001226

SCOPE
NOP

MOV
MOV
MOV
MOV

:SCOPE CALL
:START OF

TEST

SINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
:sSET TEST NUMBER IN APT MAIL BOX

&
" CZRMMAO
RMOS/3/2 FCTNL TST 1

004737
000404

MACRO v03.01 11-APR-80 13:04:53 PAGE¢ 13-9

053530

014050
000024
000200
000001
064424

001543
001544
001434

014050
044070

1%:

JSR
BR
NOP
EMT
JMP
MOovB
MovB
MoV

JSR
BR
NOP
EMT

2%:

044154

JMP
JSR

JSR
BR

NOP

ouuu-uouuu—ououuu-ug

OO —-=00
WO
O = s
= N 8~ W
—NO SN

NONNSNNVNVONNS NNVNONNS NNINNNON=O
NN N =y~
NN N = N NN NN = NN NN
WNNN=-=
NN NNN= N = NYNN=-=NONNNNNNNNN=-YNO NN

001011

AR
== N 8 VRO N = N SN NN

01%030
013032
013034
013036
335 013045
336 01304
013050
013056
013064
013070
013072
013074
013076
337 013102
338
339 013106
013112
013114
013116
013120
340 013124
341 013132
342 013134
343 013142
344 013150
345 013152
346 013156
347 013164
348 013166
349 013174
350 013202
351 013206
352 013210
353 013216
354 013220
355 013226
356 013234
357 013242
358 013244
359 013252
360 013254
361 013262
362 013270
363 013274
364 013276
365 013304
366 013306
367 013314
368 013322
369 013326
370 013330
371 013336
372 013340
373 013346
374 013354
375 013360

22823882823 SR28RS2R28ISSR28

334 013024

oo
S VO
- N

—

RMMAO RMOS/3 /2 FCINL TST 1
1
D1AGNO STIC MODE TEST

014050
000001

001360

000001
001360

001140
001142

014050
010000

001346

001346
167777
001140

001142
001142

020000

001346

001346
157777
020000

001142
001142
001140

004000

001346

001346
173777
001140

001142
001142

040000

001376

001376
137777
001140

001142
001142

000200

001376

001142
001142

177577
001140

3%:

5%:

EMT
JMP

#OMD ,RMMR10
PC,PUT

22%

PC,GETSTS

PC,GET

22%

#DMD ,$GDDAT
RMMR11,$BDDAT
176

BIT

#MOL ,RMDS I

BNE

EMT
JMP

BEQ

22%

RMDS1,$BDDAT
#*CMOL ,$BDDAT

8ICCLR
EMT

$GDDAT
177

BNE

BIT

MOV

EMT

BIT

BEQ

MOv

BIC
CLR
EMT
BIT
BEQ

MOV

9%:

#200,PUTINX+1

MOv
MOV

BIC

8%:

#RMMR1,PUTINX

#DMD ,RMMR11

MOV

7%:

22%

BIT

MOv

6%:

PC,CNTCLR
1%

#P1P,RMDSI

RMDSI,$BDDAT
#*CPIP,SBDDAT
lPéP.‘GDDAI

#WRL ,RMDS]

RMDSI,$BDDAT
#*CWRL ,$BDDAT
SgDDAl
}

201

#SK1,RMERZ]

9%
RMER21,$BDDAT

#*CSK1,$BDDAT
$GDDAT

202

#OVC,RMERZ2]
10%
RMER21,$BDDAT
#*CDVC,S$BDDAT
$GODAT

203

;G0 ISSUE CONTROLLER CLEAR

:60 TO 18 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR NUMBER DEF INED BY SUBROUTINE
;G0 TO 22% IF ERROR
sSETUP PUT INDEX TABLE
sSET TERMINATOR BYTE
;SET RMMR1 OUTPUT BUFFER = DMD
;G0 WRITE RMMR1 VIA PUT SUBROUTINE
;60 TO 2% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR DEFINED BY PUT SUBROUTINE
;60 TO 22% IF ERROR
;SETUP FOR STATUS FETCH
;GO READ REGISTER(S) WITH GET SUBROUTINE
;60 TO 38 IF NO ERROR
;RETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE
;G0 TO 22% IF ERROR
:325l?lAGNOSTIC MODE SET??
SEXPECTED STATUS
;RECEIVED STATULS
sSKIP REST OF TEST IF DMD = 0
JIS 'MoL =0
72
STYES!!
:SETUP BAD DATA FOR TYPEOQUT
;SETUP GOOD DATA FOR TYPEOUT
;IS PP ST
2VES!!
:SETUP BAD DATA FOR TYPEQUT

JEXPECTED PIP SET

;1S WRITE LOCK OFF??
JYES!!
sSETUP BAD DATA FOR TYPEOQUT

JEXPECTED WRL = 0

;18 SKI = 0
JYES!!
;SETUP BAD DATA FOR TYPEOQUT
:SK1 SHOULD BE 0
;1S DEVICE CHECK = 0??
JYES!!
sSETUP BAD DATA FOR TYPEOUT

:DVC SHOULD BE 0

SEQ 0093

—

TMTM
(]

001543
001544
001434

014050

108:

11%:

0446154

S NNN=NWNNNNVINNNNNNNN
= NNNNNO N NN N NN NNNINNO NN -~y

400 013570
401 013576
402 013604
403 013612
404 013614
405 013622
406 013624
407 013632
408 013640
409 013646
410 013650
411 013656
412 013660
413 013666
414 013674
415 013702
416 013704
417 013712
418 013714
419 013722
420 013730
421 013734

MACRO v03.01 11-APR-80 13:04:53 PAGE0 13-10

O WNNWN
S NNNN

376 013362
377 013362
013370
013376
013404
013410
013412
013414
013416
378 013422
379 013422
013426
013430
013432
013434
380 013440
381 013446
382 013450
383 013456
384 013464
385 013466
386 013472
387 013500
388 013502
389 013510
390 013516
391 01352¢4
39% 0135;2
393 0135
394 013536
395 013544
396 013552
397 013556
398 013560
399 013566

SRS R28RS2R2BASSR28RS2R

D1AGNO

—=-O0000—=000
O=00000—=00000 =000
O =0
O0O0O0 =00
o
CONM =OWO
= = OWOO
— W
£SO
== N 85 NN LN == N 85 NOND N == N 8 NN N = N S VWO
= N 8~ PO WO SN — ~
NONNS NNINNNO NN NNNONNINNNONNO
NN
N - NNNON==YNO~N
O NN =
O N NN =
O
NN =
O NN N = N O N NN = N~ NN N = NN NN
- N

L
Eada®l

CIRMMAD RMOS5/3

014050
000001

001360

000001
001360

001140
001142

014050
010000

001346

001346
167777
010000

001142
001142
001140

020000

001346

001346
157777
001140

001142
001142

004000

001346

001346
173777
004000

001142
001142
001140

040000

001376

001376
137777
040000

001142
001142
001140

000200

001376

001376
177577
000200

001142

000100

001346

001346
177677
001140

001142
001142

12%:

MOvB
MOvB

MOV
JSR
BR
NOP
EMT
JMP

JSR
BR
NOP
EMT
JMP
BIT
BNE

MOv
MOV

EMT

125%:

JMP

BIT

BNE
MOv

BIC

MOV

138:

EMT
BIT
BEQ

MOV

14%:

BIC
CLR
EMT

BIT

BNE

MOv

BIC

MOv

15%:

EMT

BIT

BNE

MOv

BIC

MOV

16%:

EMT
BIT
BNE

;SETU?
-SET

#DMD ! MUR ! MOC ! MSE RYMDF!'

PC PUT

22%

;G0 WR
;60 10
;RETU
:
R
R
:

INDEX TABLE

NATOR BYTE
RMMR10
:SET RMMR1 OUTPUT BUFFER = DMD'MUR'M
RMMR1 VIA PUT SUBROUTINE
NO ERROR
R
F ERROR
I
BY PUT SUBROUTINE
3 RROR

PC,GET

STER(S) WITH GET SUBROUTINE
N0 ERROR
F ERROR
E D BY GET SUBROUTINE

12¢

#DMD ,RMMR11]

;G0 TO 22% IF ERROR
:ggs'?lAGNOSYIC MODE SET??

#DMD, SGDDAT

*EXPECTED STATUS

22%

125%

RMMR
11, $BODAT
176

22%

‘RECEIVED STATUS

RMDS1,$BDDAT

sSKIP REST OF TEST IF DMD = 0
;1S MOL = 1722
!
$YES!
;SETUP BAD DATA FOR TYPEOQUT

1?9L.SGDDA1

SEXPECTED MOL = 1

#PIP ,RMDSI

14%
RMDSI,$BDDAT

;IS PIP =02
3148
sSETUP BAD DATA FOR TYPEOUT

$GDDAT

JEXPECTED PIP STATUS

#MOL ,RMDS |

13¢%

#*CMOL ,$BDDAT

#*CPIP,$BDDAT

200

#WRL ,RMDSI

;1S WRL SET??

15%
RMDS1,$BDDAT

JYES!!

#WRL ,$GDDAT

JEXPECTED GOOD STATUS

#*CWRL ,$BDDAT

201
#SK1,RMER2]
169

RMER2] ,$BDDAT
#*CSK1,$BDDAT
#SK1,8GDDAT

202

;SETUP BAD DATA FOR TYPEOUT

1S SKI SET??
sYES!:!
;BAD DATA FOR TYPEOUT
JEXPECTED SKI

MOV

JEXPECTED DVC ON

BIT

#VV,RMDSI

sMUR SHOULD HAVE RESET

BIC

17%:

#200,PUTINX#1

#DVC,RMERZ2]
17%
RMER2] ,$BDDAT
#*CDVC,SBDDAT
#OVC,SGDDAT

MOv

001142
001140

FRMMRT ,PUTINX

SEQ 0094

EMT

BEQ
MOV

BIC
CLR
EMT

203

19%
RMDS1,$BDDAT
#*CVV,SBDDAT

$GDDAT
204

??
;1S DVC SET
sYES!!
sBAD DATA FOR TYPEOUT

JBRANCH IF IT DID
sBAD DATA FOR TYPEOUT

;GOOD DATA FOR TYPEOUT

VOLUME

VALID

RMOS/3/2 FCTNL TST 1

DIAGNOSTIC MODE TEST

azg 013736
423
013736

112737

000000

004737
000404

044426

013746
013752

112737
012737

013766
013770
013772
424 013776
425 013776

000240
104000
000137

014050

004737

044154

014006
014006
014010

000240
104000
000137

013760
013764

014002

000404

426 014014
427 014022
428 014026

032737
001012
013737

430 014040

062737

429 014032

431 014046

:gg 014050

012737

106262

000200
000011

014050

MACRO v03.01

001543

198 :

001544
001410

MOVB

WRMCS1,PUTINX

;SETUP PUT INDEX TABLE

JSR
BR

PC,PUT
20§

;60 WRITE RMCS1 VIA PUT SUBROUTINE
160 TO 208 IF NO ERROR

MOVB
MOV

208:

NOP
EMT
JMP
JSR

BR
21$:

NOP
EMT
JMP

#200,PUTINX+1
:SET TERMINATOR BYTE
#DRVCLR!GO,RMCS10
:SET RMCS1 OUTPUT BUFFER = DRVCLR'GO

22%

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

PC,GET

;G0 READ REGISTER(S) WITH GET SUBROUTINE

22%

:RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
160 TO 22% IF ERROR

21%

002000

001376

001142

BIT HLBC,RMER2I
BNE 22%
MOV RMER21,$BDDAT

002000

001142

BIC #LBC.

002000

001140

MOV #LBC, $GDDAT
22%:

‘3‘

11-APR-80 13:04:53 PAGE 12-11

EMT

SBODAT

:G0 TO 218 IF NO ERROR
:1S LBC SET 22
SYES!!
*BAD DATA FOR TYPEOUT

1G00D DATA FOR TYPEOUT

262

.';.'t""'.l't""""""'tt"'tt't."'.t'..'.t.'.t'.t'.'l."'l'

SeTEST

PACK ACKNOWLEDGE TEST

":l'.."t'lt'."".""""""t'lit"."fi'.".l"t..t.t.'.'t'."

014050

014052
01405¢
014060
014064

1$112:

000004

000240
012706
013700
013701

001100
001276
001464

. 014070 012737 000012
436 014076
014102
014104
014106
o 8}2}}2

004737
000404
000240
104000
000137

053530

438 014114

112737

000024

014122
014130
014136
014142
014144
014146
014150
439 014154
440 014154
014162
014170
014176
014202
014206
014206
014210

112737
012737
004737
000404
000240
104000
000137
112737

112737
012737
004737
000404
000240
104000
000137

001226

014350
000200
000001
044424

000024

000200
000000
044424

014350

MOV

001543

001544
001434

014350
001543

001544
001434

SCOPE

NOP
MOV
MOV
MOV

28:

:SCOPE CALL

#STACK,SP
$BASE , RO
TSTQUE ,R1

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

#12,8$TESTN

1:SET TEST NUMBER IN APT MAIL BOX

PC,CNTCLR
13

JSR
BR
NOP
EMT
JMP

:60 ISSUE CONTROLLER CLEAR
:60 TO 1$ IF NO ERROR
*RETURN HERE IF ERROR
*ERROR NUMBER DEFINED BY SUBROUTINE
260 T0 9% IF ERROR

MOVB

#RMMR1,PUTINX

:SETUP PUT INDEX TABLE

MOVB
MOV
JSR
BR
NOP
EMT
JMP
MOVB

MOVB
MOV
JSR
BR
NOP
EMT
JMP

#200,PUTINX+1
#DMD , RMMR10
PC,PUT
28

:SET TERMINATOR BYTE
:SET RMMR1 OUTPUT BUFFER = DMD
160 WRITE RMMR1 VIA PUT SUBROUTINE
160 TO 28 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR DEFINED BY PUT SUBROUTINE
260 T0 98 IF ERROR

#RMMR1,PUTINX

;SETUP PUT INDEX TABLE

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

:SET TERMINATOR BYTE
*SET RMMR1 OUTPUT BUFFER = 0
160 WRITE RMMR1 VIA PUT SUBROUTINE
160 TO 3% IF NO ERROR
*RETURN HERE IF ERROR
*ERROR DEFINED BY PUT SUBROUTINE
160 T0 9% IF ERROR

SEQ 0095

CIR MMAQ RMO5/3/2 FCTINL TST 1
T2
PACK ACKNOWLEDGE TEST
441 014214
442 0142164

112737

000000

004737

044424

014222
014230

112737
012737

014242
014244
014246
014250
4463 014254
22? 014269

000404
000240
104000
000137
004737
004737

044070
044766

446 016266

004737

0641564

447 0164276
448 014300
449 014300

000424

014236

014270
014272
014274

0143064
014306
014310
014312

450 014314
451 014316
452 014316

000403
000240
104000

004737

000404
000240
104000
004736

004737

000404
000240
104000
004736
000406

455 014334
456 014334
014340

004737

457 014350
458

000403
000240
104000
004736

11-APR-80 13:04:53 PAGE 12-12
SEQ 0096

001543

3%:

001544
001410

014350

MOVB

MOVB
MOV

JSR

5%:

045152

054526

7%:

046004

9%:

459

;SETUP PUT INDEX TABLE
#200,PUTINX+41
:SET TERMINATOR BYTE
#PAKACK'GO,RMCS10
:SET RMCS1 OUTPUT BUFFER = PAKACK'GO

PC,PUT

JSR

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

:SKIP REMAINDER OF

JSR

PC,PRIERR

JSR

;60 WRITE RMCS1 VIA PUT SUBROUTINE

PC,GETSTS
PC.TIMOUT

BR
NOP
EMT
JSR

WRMCS1,PUTINX

BR
NOP
EMT
JMP
JSR
JSR
BR
NOP
EMT

000415

014322
014324
014326
014330
222 014332

014342
014344
014346

000200
000023

MACRO v03.01

:6G0 TO 4$ IF NO ERROR
:RETURN HERE IF ERROR
:ERROR DEFINED BY PUT SUBROUTINE
:60 T0 9% IF ERROR
;WAIT FOR COMPLETION

:G0 TO 58 IF NO ERROR
*RETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
TEST

:60 CHECK FOR PRIMARY ERRORS

PC,a(SP)+

:60 TO 68 IF NO ERROR
‘RETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS

PC,ACKSTS

;60 VERIFY PACK ACKNOWLEDGE

BR
NOP
EMT
JSR
BR

PC,a(SP)+
3%

;G0 TO 7% 1F NO ERROR
;RETURN HERE IF ERROR
JERROR # DEFINED BY ACKSTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
JSKIP TO NEXT TEST

JSR

PC,SECERR

:60 CHECK FOR SECONDARY ERRORS

BR
NOP
EMT
JSR

:SKIP TO NEXT TEST

PC,a(SP)+

160 TO 9% IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY SECERR SUBROUTINE
.60 BACK FOR MORE ERROR CHECKS

::"t'.'t.llt"'t't't'i""'"""tt.l".'.."t't.lt'tt't'l't'ttt

S*TEST 13

RECALIBRATE TEST

:"tt'I"l"l't""""""""t"'l"l...'!.'.t'tt."'t."t"'l"

014350
014350
014352
014354
014360
0164364
014370

000004
000240
012706
013700
013701
012737

001100
001276
001464
000001

014404

004737

043150

i 014376

461

014410

012737
050020

15113:

000013

001206

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

#STACK,SP
$BASE ,R0
TSTQUE ,R1
#1,8TIMES

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

JSR

PC,TSTPRP

;PREPARE DEVICE FOR TEST

MOV

.WORD

8, $TESTN
050020

::SET TEST NUMBER IN APT MAIL BOX
:TASK DESCRIPTOR AS FOLLOWS:

:CLEAR CONTROLLER & SELECT DEVICE
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE

C l R MMAD RMO5/3/2 FCTINL TST
11 3
RECALIBRATE TEST

0146412
014414
014416
014420
463

104000

112737
112737
012737

000000
000200
000007
0464424

466

aF 2E 2k 2k 2k 2k aF >

w [V IV IV TV IV IV IV IV IV TV )
&~

470
«n

L2k 2k k2

468
469

NSO
gmeNN—o—-—-gg

467

000137
004737
004737

014566
044070
0464766

004737
000404
000240

044154

000137

014566

004737
000405
000240

045152

104000

001543
001544
001410

004737
000405
000240

672
473

004737
000403
000240

#RMCST,PUTINX
;SETUP PUT INDEX TABLE
#200,PUTINX+1
;SET TERMINATOR BYTE
#RECAL !GO,RMCST10
;:SET RMCS1 OUTPUT BUFFER = RECAL'!GO

JMP

014566

055322

046004

VIA PUT

SUBROUTINE

10%

;RETURN HERE IF ERROR
;ERROR DEFINED BY PUT SUBROUTINE
;G0 TO 108 IF ERROR

PC,TIMOUT

;WAIT FOR COMPLETION

;GO SETUP FOR STATUS FETCH

;60 READ REGISTER(S) WITH GET

;60 TO 78 IF NO ERROR
;RETURN HERE

ERROR

SUBROUTINE

EMT
JMP

10%

;ERRQOR # DEFINED BY GET
;60 TO 108 IF ERROR

JSR
BR

PC,PRIERR
8%

;G0 CHECK FOR PRIMARY ERRORS
:G0 TO 8% IF NO ERROR

EMT
JSR
JMP

PC,a(SP)+
10%

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

JSR

PC,RCLSTS

;RETURN HERE

SUBROUTINE

ERROR

;GO0 VERIFY RECALIBRATE OPERATION

;G0 TO 9% IF NO ERROR

EMT
JSR
JMP

PC,a(SP)+
108 ,

;ERROR # DEFINED BY RCLSTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
:G0 TO 108 IF ERROR

JSR

PC,SECERR

NOP
108

ERROR

;60 TO 6% IF NO ERROR

PC,GET

004736

;60 WRITE RMCS1

JSR

NOP

PC,PUT

PC,GETSTS

014566

;RETURN HERE

JSR

NOP

104000

474
475
476

MOvB
MOovB
MOv

NOP

104000

004736
000137

108

;ERROR # DEFINED BY TSTPRP SUBROUTINE
;60 TO 108 IF ERROR

104000

004736
000137

EMT
JMP

NOP
EMT

”

SEQ 0097

;60 TO 58 IF NO ERROR

JSR

6%:

12-13

NOP

014566

104000

11-APR-B0 13:04:53 PAGE

000137

004737

465

MACRO v03.01

000404
000240

000404
000240
464

EMTY

JSR

;RETURN HERE

10%

ERROR

;G0 CHECK FOR SECONDARY ERRORS

;G0 TO 108 IF NO ERROR
;RETURN HERE

PC,a(SP)+

ERROR

;ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK

FOR MORE

ERROR CHECKS

.‘;'l.....'t."".""""""".'.".l'..'.'I'.'l't.'.t.'."t't"

;*TEST

ABORT

RECALIBRATE

TEST

""".".""'..""""."""...'.'!""."'."".'l.'.'I'.'llt'

677

478

wWwo

—_—

TST14:

001100
001276
001464
000001
000014
043150

001206
001226

SCOPE
NOP
MOV
MOv
MOV

#STACK,SP

$BASE ,RO
TSTQUE ,R1

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

JSR

PC,TSTPRP

:PREPARE DEVICE FOR TEST

MOV
MOV

.WORD

¥, STIMES
#14,8TESTN

054130

::D0 1 ITERATION
::SET TEST NUMBER IN APT MAIL BOX

;TASK DESCRIPTOR AS FOLLOWS:

C 4 RMMAO RMO5/3/72 FCTINL TST 1
114
ABORT RECALIBRATE TEST

MACRO v03.01 11-APR-80 13:04:53 PAGEH 13-1‘

SEQ 0098

:CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTRGLLER CLEAR OPERATION

:PACK_ACKNOWLEDGE

VOLUME NOT VALID

000404
000240
104000
000137

4642

112737

D e

4702
4710
4716
4726
4730
4732
4734
736
742

112737
112737
012737
004737
000404
000240
104000
000137
004737

000000
000200
000007
044424

746
752
754

004737
000404
000240

— e e

YS
T T

D D D b D b s —

MOvB
MOovB
MOV

#RMERT,PUTINX
#200,PUTINX+1
#UNS ,RMER10
PC,PUT

JSR

756
760

104000
000137

064154

7764
776

104214
004737

044766

~
~

PC,GET

EMT

001346

118%:

12%:

#RMCS1,PUTINX

JSR
NOP

032737

15%

JMP
JSR

JSR

10%:

sSETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
:SET RMER1 OUTPUT BUFFER = UNS
;G0 WRITE RMER1 VIA PUT SUBROUTINE
;G0 TO 98 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR DEFINED BY PUT SUBROUTINE
;60 TO 15% IF ERROR

;SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
#RECAL !GO,RMCS10
:SET RMCS1 OUTPUT BUFFER = RECAL'!GO
PC,PUT
;G0 WRITE RMCS1 VIA PUT SUBROUTINE
10%
:G0 TO 108 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR DEFINED BY PUT SUBROUTINE
15%
;G0 _TO 158 IF ERROR
PC,GETSTS
;SETUP FOR STATUS FETCH

EMT

015074
044070

764

S ot R

MOVB
MOvB
MOv

NOP

015074
020000

001401

001543
001544
001410

9%:

EMT
JMP

15%

JMP

#200,PUTINX+1

#P1P ,RMDSI

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 118 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;60 TO 158 IF ERROR
:gé?'THE DRIVE RECALIBRATE??

PC,TIMOUT

;WAIT FOR

1%
15%

BIT
BEQ
EMT
JSR

12%
214

COMPLETION

> —B

001543
001544
001424

8%:

SRECALIBRATE IF ''SKI' OR "PIP'"
IS SET
:VERIFY RECALIBRATION
:60_T0 88 IF NO ERROR
:RETURN WERE IF ERROR
:ERROR # DEFINED BY TSTPRP SUBROUTINE
:60 T0 158 IF ERROR

002
006
010
012
014

004737
000404
000240
104000
000137

044154

JSR

PC,GET

015074

NOP
EMT
JMP

15%

;G0 READ REGISTER(S) WITH GET SUBROUTINE
;60 TO 13% IF NO ERROR
sRETURN HERE 1F ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;60 TO 158 IF ERROR

5020
5024
5026
5030
5032
5034

004737
000405
000240
104000
004736
000137

045152

PC,PRIERR

;G0 CHECK FOR PRIMARY ERRORS

5040
5044
5046
5050

004737
000405
000240
104000

061232

D B d b e
B b e
et e

L94
495

015074

e ed D

VOO0 O0O0O0O0O0O0O0O0CO0O0O0O00

492
493

000014
000200
040000
044424

000137

D e

4676

—

485

OCOO0O0O0O0O0O0T0

483
484

015074

BR
NOP
EMT
JMP

NOP

D e e el e

481
482

(=1=
O s

XES
SF&

D D e

D e e e e

479
480

(Vo LV
N~

4630
4632
4634
4636

D s

COOOCOCOOOOOOOOOOOOOOOOOO

:VERIFY PACK ACKNOWLEDGE

015074

13%:

14%:

JSR
NOP
EMT
JSR
JMP

JSR
NOP

EMT

13%

14%

PC,a(SP)+

15¢

PC,STCDRVSTS

iPEE

;G0 TO 148 IF NO ERROR

sRETURN HERE

ERROR

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

;60 TO 158 IF ERROR

;60 CHECK FOR CHANGES IN DRIVE STATUS
;G0 TO 1418 IF NO ERROR
sRETURN HERE IF ERROR

;ERROR # DEFINED BY STCDRVSTS SUBROUTINE

%%:HHAO RMO5/3/2 FCINL TST 1

ABORT RECALIBRATE TEST

015052

004736

496 015060
497 015060

000137

015074

004737

046004

015056

015066

015066
015070
015072
zgg 01507«

000403

MACRO v03.01 11-APR-B0 13:04:53 PAG% 13-15
1418

JSR

PC,a(SP)+

15¢

:6G0 TO 158 IF ERROR

JSR

PC,SECERR

;G0 CHECK FOR SECONDARY ERRORS

PC,a(SP)+

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

JMP

000240
104000
004736

158

Soo

NOP
EMT
JSR

15$

;G0 BACK FOR MORE ERROR CHECKS

:6G0 TO 158 IF NO ERROR

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

;*TEST

IvC RECALIBRATE TEST

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

015074
01507&
015076
015100
015106
015110
015114

000004
000240
012706
013700
013701
012737

015130
015134

004737
054130

015122

012737

1§115:
001100
001276
001464
000001

000015

001206

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

#STACK,SP
$BASE ,RO
TSTQUE ,R1
#1,8TIMES

;SCOPE CALL
:START OF TEST
JINITIALIZE STACK POINTER
:RO = UNIBUS ADDRESS
s(R1) = DEVICE BEING TESTED
::D0 1 ITERATION

JSR
.WORD

PC,TISTPRP
054130

sPREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

MOV

043150

l1§.SIESTN

ssSET TEST NUMBER IN APT MAIL BOX

sCLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE IF VOLUME NOT VALID
JVERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ''SKI'' OR 'PIP'' IS SET

015136
015140
015142
3}2133

000404
000240
104000
000137

015150
015156
015164
015172
015176
015200
015202
8}25?3

112737
112737
012737
004737
000404
000240
104000
000137

000024
000200
000001
044424

015210
015216
015224
015232

112737
112737
012737
004737

000024
000200
000000
044424

015240
015242
3};523

000240
104000
000137

015404

112737
112737
012737
004737

000000
000200
000007
044424

015236

015250
015256
015264
015272

000404

015404

#RMMR1,PUTINX
#200,PUTINX+1
#DMD ,RMMR10
PC,PUT
9%

MOVB
MOVB
MOV
JSR
BR
NOP
EMT
JMP

15%

JSETUP PUT INDEX TABLE
JSET TERMINATOR BYTE
;SET RMMR1 OQUTPUT BUFFER = DMD
;G0 WRITE RMMR1 VIA PUT SUBROUTINE
;GO TO 9% IF NO ERROR
JRETURN HERE IF ERROR
JERROR DEFINED BY PUT SUBROUTINE
160 TO 158 IF ERROR

MOVB
MOVB
MOV
JSR

#RMMR1 ,PUTINX
#200,PUTINX#+1
#0,RMMR10
PC,PUT

;SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
;SET RMMR1 QUTPUT BUFFER = 0
;G0 WRITE RMMR1 VIA PUT SUBROUTINE

15%

JRETURN HERE IF ERROR
;ERROR DEFINED BY PUT SUBROUTINE
160 TO 158 IF ERROR

001543
001544
001434

015404
001543
001544
001434

=
001543
001544
001410

JVERIFY RECALIBRATION
:G0 TO 88 IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
:6G0 TO 158 IF ERROR

BR
NOP
EMT
JMP

NOP
EMT
JMP
MOVB
MOVB
MOV
JSR

15%

10§

:G0 TO 108 IF NO ERROR

#RMCST,PUTINX
;SETUP PUT INDEX TABLE
#200,PUTINX+]
;SET TERMINATOR BYTE
#RECAL'GO,RMCS10
;SET RMCSY OUTPUT BUFFER = RECAL'GO
PC,PUT
;60 WRITE RMCS1 VIA PUT SUBROUTINE

SEQ 0099

MMAQ RMOS5/3 2 FCINL TST 1
IvC RE ALIBRATE TEST

015%76
015300
015302
015304
509 015310
510 015314
511
512 015320
015324
015326
015330
015332
513 015336
514 015336
015342
015344
015346
015350
015352
515 015356
516 015364
517 015366
518 015370
519 015370
015374
015376
015400
015402
520 015404
521
522

MACRO v03.01 11-APR-80 13:04:53 PAGEJ 13-16

000404
000240

004737

015404
044070
044766

004737
000404
000240

044154

000137

015404

004737
000405
000240
104000

045152

104000

015404
010000

11%:

12%:

001376

1046215

004737
000403
000240

13%:
14%:

046004

104000

004736

15%:

;60 TO 118 IF NO ERROR

BR
NOP
EMT
JMP
JSR
JSR

P(,GETSTS
PC.TIMOUT

JSR

PC,GET

BR
NOP
EMT
JMP

JSR
BR
NOP
EMT
JSR
JMP
BIT
BNE
EMT
JSR
BR
NOP
EMT
JSR

SEQ 0100

;RETURN HERE

ERROR

;ERROR DEFINED BY PUT SUBRGUT INE

158

12¢

;60 TO 158 IF ERRO

;SETUP FOR STATUS FEYCN

:WAIT FOR RECAL TO COMPLETE

;GO READ REGISTER(S) HITH GET SUBROUTINE

;60 TO 128 IF NO ERRO

:RETURN HERE

IF ERROR

;ERROR # DEFINED BY GET SUBROUTINE

158

:60 TO 158 IF ERROR

PC,PRIERR

13§

;60 CHECK FOR PRIMARY ERRORS

:GO TO 138 IF NO ERROR
;RETURN HERE

PC,a(SP)+

C.RMERZ2I

ERROR

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

;G0 TO 158 IF ERROR

;1vC SHOULD BE SET
;1T IS = GO CHECK SECONDARY ERRORS
;GO CHECK FOR SECONDARY ERRORS
;60 TO 158 IF NO ERROR
;RETURN HERE

PC,a(SP)+

ERROR

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

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

;*TEST
AL

015404
015404
015406
015410
015414
015420
015424
015432

TSY16

001100
001276
001464
000001
000016

523
524 015440
015444

043150

001206
001226

IAE RECALIBRATE TEST

AR 20222
RRRR 2]

SCOPE
NOP
MOv
MOV
MOV
MOV
MOv

JSR
.WORD

#1,8TIMES
#16,8TESTN

sSCOPE CALL
;START OF TEST
:INITIALIZE STACK POINTER
;R0 = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
::D0 1 ITERATION
::SET TEST NUMBER IN APT MAIL BOX

PC,TSTPRP

;PREPARE DEVICE FOR TEST

#STACK,SP

$BASE ,RO
TSTQUE ,R1

054130

sTASK DESCRIPTOR AS FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE

VOLUME NOT

;VERIFY PACK ACKNOWLEDGE

015446
015450
015452
015454
525 015460

526 015460
527 015466

VALID

000404
000240
104000

70%

000137

BR
NOP
EMT
JMP

sRECALIBRATE IF ''SKI1'" OR "PIP'" IS SET
;VERIFY RECALIBRATION
:60 TO 708 IF NO ERROR

120%

;60 TO 120% IF ERROR

012737
012737

MOv
MOv

#-1,RMDCO
#-1,RMDAD

;RMDC WILL BE ALL ONES
:RMDA WiLL BE ALL ONES

sRETURN HERE

ERROR

;ERROR # DEFINED BY TSTPRP SUBROUTINE

538 015554

015560
015562
015564
015566
539 015572
560 015572
015576
015600
015602
015604
015606
561 015612
562 015612
015616
015620
015622
015624
015626
563 015632
544 015632
015636
015640
015642
015644
545 015646
546
547

OO =ttt
OO
OO = b
d e s

528 015474
529 015502
530 015506
531 015512
532 015516
533 015522
534 015526
015532
015534
015536
015540
535 015544
536 015550
537

2b--SNNNSNNNN

%%:HHAO RMO5/3/2 FCINL TST 1
1AE RECALIBRATE TEST

000007
001543

MACRO v03.01 11-APR=80C 13:04:53 PAGEI 13-17
001410

MOV
MOV
([1:]

MOVB
MOVB

MOVB

064424

JSR
BR

NOP

015646
044070
044766
004737
000404
000240
104000
000137

044154

004737

045152

004736
000137

004737
000405
000240

80%:

015646

90%:

015646

1008
:

055322

004736
000137

004737
000403
000240

110%:

046004

104000

004736

120%:
A

548
549 015702
015706

043150

#200, (R2)+
PC,PUT

80$

;60 WRITE REGISTER(S)

160 T0 80% IF NO ERROR

WITH PUT SUBROUTINE

*RETURN HERE IF ERROR

;G0 READ REGISTER(S) WITH GET

1208

:ERROR # DEFINED BY GET SUBROUTINE
:6G0 TO 1208 IF ERROR

JSR
BR
NOP
EMT
JSR
JMP

PC,PRIERR

:60 CHECK FOR PRIMARY ERRORS

EMT
JSR
JMP
JSR
BR
NOP
EMT
JSR

PC,GETSTS
PC.TIMOUT

90$

1008

PC,a(SP)+

1208

PC,RCLSTS

110%

PC,a(SP)+

1208

:SETUP FOR STATUS FETCH
:WAIT FOR GO TO RESET

;G0 TO 908 IF NO ERROR
‘RETURN HERE

SUBROUT
INE

ERROR

260 TO 1008 IF NO ERROR
:RETURN HERE

ERROR

:ERROR # DEFINED BY PRIERR SUBROUT INE
160 BACK

FOR MORE ERROR CHECKS

260 TO 1208 IF ERROR

;60 VERIFY RECALIBRATE OPERATION

:6GO TO 1108 IF NO ERROR
‘RETURN HERE

ERROR

*ERROR # DEFINED BY RCLSTS SUBROUTINE
160 BACK

FOR MORE

ERROR CHECKS

160 TO 1208 IF ERROR

PC,SECERR
1208

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

PC,a(SP)+

160 BACK FOR MORE ERROR CHECKS

:RETURN HERE IF ERROR
:ERROR # DEF INED BY SECERR SUBROUTINE

ALARl
R 2R
RRRRRRRRRRRRR 2]

RECALIBRATE

AT OFFSET

222222 ARl
2R
RRRR R R ]

1S117:

001206
001226

#RMCST, (R2)+

PC,GET

TRTEST 17

001100
001276
001464
000001
000017

INDEX TABLE

JSR
BR
NOP
EMT
JMP

NOP

015646

:R2 POINTS TO PUT INDEX TABLE

SSETUP PUT

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

JSR

104000

#PUTINX, RS

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

1208

015646
015646
015650
015652
015656
015662
015666
015674

EMT
JMP
JSR
JSR

#RECAL !GO, RMCS10

SEQ 0101

SCOPE

NOP
MOV
MOV
MOV
MOV
MOV

JSR
.WORD

#STACK,SP

$BASE RO

TSTQUE ,R1
#1, STIMES

;sSCOPE CALL
sSTART OF TEST
JINITIALIZE STACK POINTER

;RO = UNIBUS ADDRESS
s(R1)

= DEVICE BEING TESTED

7, $TESTN

;:D0 1 ITERATION
5sSET TEST NUMBER IN APT MAIL BOX

PC,TSTPRP

;PREPARE DEVICE FOR TEST

050020

sTASK DESCRIPTOR AS FOLLOWS:
;CLEAR CONTROLLER & SELECT DEVICE
sPACK ACKNOWLEDGE

VOLUME NOT

VALID

557
558

000000
000200
000015
064424

NOOHMNNNN

—ON S NNNNN

000000
000200
000007
064624

01612¢

044070

016026

044766

559
560 C16032
016036
016040
016042
016044
561 016050
562 016050
016054
016056
016060
016062

016124

065152

016124

SEes Ciie

016116
016120
016122
567 016124

001543
001544
001410

5%:

108:

055322

016124

046004

NOP
EMT
JMP

MOvB
MOvB
MOV
JSR
BR
NOP
EMT
JMP

MOvVB
MOvB
MOV

JSR
BR

20%:

NOP
EMT
JMP

SEQ 0102

SVERIFY PACK ACKNOWLEDGE

160 TO 58 IF NO ERROR

RETUIN HERE

80%

ERROR

:ERROR
# DEF INED BY TSTPRP SUBROUTINE

;60 TO 80 IF ERROR

#RMCST,PUTINX
#200,PUTINX+]

;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE

108

:6G0 TO 108 IF NO ERROR

WOFFSET!GO,RMCST 0
PC,PUT
;60

80%
FRMCST,PUTINX

SET nnc51 OUTPUT BUFFER
= OFFSET:GO
WRITE RMCS1 VIA PUT SUBROUT INE

:RETURN HERE

ERROR

:ERROR DEF INED BY PUT SUBROUTINE

160 TO 80$ IF ERROR

#200,PUTINX+1

;SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE

208

WRITE RMCS1 VIA PUT SUBROUTINE
;60 TO 208 IF NO ERROR
sRETURN HERE IF ERROR

#RECAL :GO,RMCS10
PC,PUT
;G0

80%

;SET RMCS1

OUTPUT BUFFER = RECAL!'!GO

;ERROR DEFINED BY PUT

;GO TO B0S IF ERROR

SUBROUTINE

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
PC,GETSTS
JSR
;GO TO GETSTS SUBROUTINE
JWALT

0464154

35883 833888

016064
563 016070
564 016070
016074
016076
016100
016102
016104
565 016110
566 016110
016114

001543
001544
001410

016124

2
—
828885
g <x
oo

016124

016022

MACRO v03.01 11-APR-B0 13:04:53 PAG% 13-18
BR

556

015710
015712
015714
015716
550 01572%
551 0157%0
0157
015736
015744
015750
015752
015756
015756
SS% 015762
553 015762
015770
015776
016004
016010
016012
016014
016016
554 016022
555

SERIIIS U882

CIRMMAD RMOS5/3/2 FCTNL TST 1
RECALIBRATE AT OFFSET

FORS£0HHAND TO COMPLETE
PC,TIMOUT
J
PC,GET

50%

508:

60%:

80%

;60 TO 508 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;G0 TO 80% IF ERRCR

60%

;60 CHECK FOR PRIMARY ERRORS
;60 TO 608 IF NO ERROR
sRETURN HERE IF ERROR

PC,a(5P)+

;60 BACK FOR MORE ERROR CHECKS

PC,

;G0 VERIFY RECALIBRATE OPERATION

80$

RCLSTS

PC,a(SP)+

;ERROR # DEFINED BY PRIERR SUBROUTINE

;60 TO 80% IF ERROR

;60 TO 708 IF NO ERROR

RETURN HERE IF ERROR
;ERROR # DEFINED BY RCLSTS SUBROUTINE
;G0 BACK FOR MORE ERROR (MECKS

;60 TO 80% IF ERROR

PC,SECERR

;60 CHECK FOR SECONDARY ERRORS

80$
80%:

;G0 READ REGISTER(S) WITH GET SUBROUTINE

PC,PRIERR

70$

70%:

;G0 TO TIMOUT SUBROUTINE

PC,A(5P)+

:60 TO 80% IF NO ERROR
;RETURN HERE IF ERROR
SERRCR # DEFINED BY SECERR SUBROUT INE
;60 BACK FOR MORE ERROR (HME(KS

RMMAD RMOS/3/2 FLTNL 181 1
RECALIBRATE AT OFFSET

MACRO v03.01 11-APR=B0 13:04:53 PAGEL 1!-19

568
569

SeTEST 20

g
—‘§ NNNNN
8& %

231

DRIVE CLEAR TEST

t§120:

;SCOPE CALL
#STACK,SP

WO
~N-—-

$BASE , RO

TSTQUE ,R1

W
ON

—

[=l=leT~)

570
571 016152
016156

016124
016124
016126
0161
0161
016140
016144

SEQ 0103

;START OF

TEST

SINITIALIZE

STACK POINTER

;RO = UNIBUS ADDRESS

:(R1)

= DEVICE BEING TESTED

#20,8TESTN

:;SET TEST NUMBER IN APT MAIL BOX

PC,TSTPRP

;PREPARE DEVICE FOR TEST

054130

STASK DESCRIPTOR AS FOLLOWS:
;CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION

:PACK ACKNOWLEDGE

VOLUME NOT

016314
590 G16316
591 016320
592 016320
016324
016326
016330
016332
016334
593 016340

016374

SIS NTNT NT NTNT ST NT N7 ¥
NS
NNNNNNNN NNNN
S OwWrnrRrRONON O
NN
Ow~NNNNNNNN
N NNNN

001416
001410

2%:

VALID

:RECALIBRATE IF ''SKI'* OR "PIP'* IS SET
:VERIFY RECALIBRATION
:60 TO 28 IF NO ERROR

:RETURN MERE

ERROR

SERROR # DEFINED BY TSTPRP SUBROUT
INE
160 TO 218 IF ERROR

#0,RMDAO

#DRVCLR' GO,RMCS10

001424
001452

#-1,RMER10
#-1_RMER20
#LSC,RMER20
#PUTINX,R2
#RMDA, (R2)+

001452

#RMERZ, (R2)+

:DELETE FOR PASS 2 ETCH
:R2 POINTS TO INDEX TABLE
:RMDA CLEARS LBT

SRMERT
. (R2)+
#RACST. (R2)+

#200, (R2)+
PC,PUT

—

§ §—'-'---.°g°O°O

016160
016162
016164
016166
572 016172
573 016172
574 016200
575 016%06
576 016214
577 016222
578 016230
579 016234
580 016240
581 016244
582 016250
583 016254
584 016260
016264
016266
016270
585 016272
586 016274
587 016300
588
589 016304
016310
016312

SVERIFY PACK ACKNOWLEDGE

044070
044766

3%:

044154

045152

016374

5%:

JSR

JMP

SUBROUTINE

:6G0 TO 38 IF NO ERROR

218

:ERROR # DEFINED BY PUT SUBROUT
INE
:ESCAPE IF ERROR

*RETURN HERE

ERROR

PC,GETSTS
PC.TIMOUT

:SETUP FOR STATUS FETCH
:WAIT FOR DRIVE CLEAR TO COMPLETE

PC,GET

;G0 READ REGISTER(S) WITH GET

218

:RETURN HERE 1F ERROR
:ERROR # DEFINED BY GET SUBROUTINE
:SKIP REMAINDER OF TEST

PC,PRIERR

:60 CHECK FOR PRIMARY ERRORS

PC,a(SP)+

160 BACK FOR MORE ERROR CHECKS

4%:

:60 WRITE REGISTER(S) WITH PUT

21%

:60 TO 4% IF NO ERROR

SUBROUTINE

:60 TO 5% IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE

160 TO 218 IF ERROR

(IR
120

MMAO RMOS5/3/2 FCTNL TST 1
DRIVE CLEAR TEST

594 016340

004737

057064

016354

000137

016374

004737

046004

016344
016346
016350
016352

595 016360
596 016360

016364

016366
016370
016372
ggg 016374

000405
000240
104000
004736

000403

MACRO v03.01 11-APR-80 13:04:53 PAGE 13-20

JSR
BR
NOP
EMT
JSR

PC,DRVSTS
6

JMP

21§

160 TO 218 IF ERROR

JSR

PC,SECERR

260 CHECK FOR SECONDARY ERRORS

PC,a(SP)+

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

000240
104000
004736

218:

599

SEQ 0104

NOP
EMT
JSR

PC,a(SP)+

21§

;60 VERIFY DRIVE CLEAR

:60 TO 6% IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY DRVSTS SUBROUTINE
160 BACK FOR MORE ERROR CHECKS

:60 TO 218 IF NO ERROR

::'Q'tt'Q'l'tt't"t"'""""tt.tit"tl'.t'tt'tt't""tt't'."tt

S*TEST 21

NOP TEST

;;titl.'tt'tt.t""t""'"'ttit'tt.ttt't"l'tttttttt'tt't'ttttt'

016374
016374
016376
016400
016404
016410

000004
000240
012706
013700
013701

012737

000021

601 016422
016426

004737
054130

043150

- 016414

T§121:
001100
001276
001464

001226

SCOPE
NOP
MOV
MOV
MOV

#STACK,SP
$BASE , RO
TSTQUE ,R1

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

JSR
.WORD

PC,TSTPRP
054130

:PREPARE DEVICE FOR TEST
STASK DESCRIPTOR AS FOLLOWS:

MOV

#21,8$TESTN

::SET TEST NUMBER IN APT MAIL BOX

:CLEAR CONTROLLER & SELECT DEVICE
*VERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE IF VOLUME NOT VALID
SVERIFY PACK ACKNOWLEDGE

*RECALIBRATE

016430
016432
016436
016436
602 016442
603 016442
016450
016456
016466

000404
000240
104000
000137

016624

112737
112737
012737
004737

000000
000200
000001
044424

016472
016474
016476
28§ 016502

000240
104000
000137
004737

016624
044070

606 016506

004737

044154

016514
016516
016520
607 016524
608 016526

000240
104000
000137

016624

004737

045152

016532

000240

016470

016512

016530

000404

000405

001543
001544
001410

708:

708

130

:VERIFY RECALIBRATION
:G0 T0 708 IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEFINED BY TSTPRP SUBROUTINE
160 TO 1308 IF ERROR

MOVB
MOVB
MOV
JSR

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

:SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE
:SET RMCS1 OUTPUT BUFFER = NOP!GO
:60 WRITE RMCS1 VIA PUT SUBROUTINE

130$
PC,GETSTS

*RETURN HERE IF ERROR
:ERROR DEFINED BY PUT SUBROUTINE
160 T0 1308 IF ERROR
*SETUP FOR STATUS FETCH

PC,GET

:60 READ REGISTER(S) WITH GET SUBROUTINE

1308

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

PC,PRIERR

:60 CHECK FOR PRIMARY ERRORS

NOP
EMT
JMP
JSR
JSR

BR
908:

''SKI" OR 'PIP'' IS SET

BR
NOP
EMT
JMP

BR
80$:

NOP
EMT
JMP

JSR

NOP

80§

90%

1008

160 TO 80% IF NO ERROR

:60 TO 90% IF NO ERROR

160 TO 1008 IF NO ERROR
JRETURN HERE

1F ERROR

622

:
1008

016624

004737
000405
000240
104000
004736
000137

061232

004737
000403
000240

046004

JSR

.WORD
BR
NOP
EMT
JSR

000137

EMT
JSR
JMP
.WORD

051644

VWA

LV LV VWAL
SEEES o [VNN
~
o >~ooRR8 osrO S¥RE

—

e
il
e

016624

110%:

016624

1208:

104000

004736

11-APR-80 13:04:53 PAGE 12-21

1308:

JMP

PC,a(SP)+

130%

PC,CMPERRSTS
ND TMSK

DPE
110%

PC,a(SP)+

1308

JSR
BR
NOP
EMT
JSR
JMP

PC,STCORVSTS

JSR
BR
NOP
EMT
JSR

PC,SECERR

SEQ 0105

;ERROR # DEFINED BY PRIERR SUBROUTINE
;60 BACK_FOR MORE ERROR CHECKS
;60 TO 1308 IF ERROR
;CHECK ANY ERRORS NOT MASKED
;MASK FOR RMER1

;MASK FOR RMER2

;60 TO 1108 IF NO ERROR
;RETURN HERE IF ERROR

sERROR # DEFINED BY CMPERRSTS SUBROUTINE

;60 BACK_FOR MORE ERROR CHECKS
;60 TO 1308 IF ERROR

1208

;GO CHECK FOR CHANGES IN DRIVE STATUS
;60 TO 1208 IF NO ERROR

PC,a(SP)+

;ERROR # DEFINED BY STCDRVSTS SUBROUTINE
;G0 BACK_FOR MORE ERROR CHECKS
;G0 TO 1308 IF ERROR

1308
1308

PC,a(SP)+

;RETURN HERE

ERROR

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

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

e 2222222222222
222222222222 RRRRRRRRRRURR0R 2220

TRTEST 22
R

000004
000240
012706
013700
013701
012737

004737
054130

2222222222202

18122:
001100
001276
001464
000022

043150

2222222222222

JSR
.WORD

2222222

222222002

RRRRRRR 2R

)

:SCOPE CALL

SCOPE

NOP
MOV
MOV
MOV
MOv

001226

OFFSET TEST

#STACK,SP

$BASE RO
TSTQUE ,R1
#22,8TESTN
PC,TSTPRP

054130

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

:PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE

000404
000240
104000

000137

017150

e
D e
e

000240

001543
001544
001410

408%:

:VERIFY RECALIBRATION

;60 TO 408 IF NO ERROR

40%

EMT
JMP

100%

MOvB
MOovB
MOV
JSR

#RMCS1,PUTINX
;SETUP PUT INDEX TABLE
#200,PUTINX+1
:SET TERMINATOR BYTE
#OFFSET!GO,RMCS10
;SET RMCS1 OUTPUT BUFFER = OFFSET!GO
PC,PUT
;60 WRITE RMCS1 VIA PUT SUBROUTINE

NOP

000000
000200
000015
044424

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

—

b
-

NOAD

D e

i e

609

ocoooooorccorOrOrOrOrOMCOCOCTOT

NOP TEST
[elelelelelelelelelelelalelelelelelelelelelelelelele]

121

MACRO v03.01

NOP

508

;RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;60 TO 1008 IF ERROR

;60 TO 508 IF NO ERROR
;RETURN HERE IF ERROR

—

(SRHHAO RMO5/3/2 FCTINL ST 1

CZIRMMAO RMOS5/3/2 FCTNL ST 1
122
OFFSET TEST
0167%&
016726
622 016732
g%z 016736

104000
000137
004737
004737

625 016742
016746
016750
016752
016754
626 016760
627 016760
016764
016766
016770
016772
016774
628 017000
629 017006
630 017010
631 017016
632 017026
633 017032
634 017034
635 017042
636 017044
637 017052
638 017060
639 017066
640 017070
641 017070
017074
017076
017100
017102
017104
017106
017110
662 017114
643 017114
017120
017122
017124
017126
017130
644 017134
645 017134
017140
017142
017144
017146
646 017150
647
648

004737
000404
000240
104000
000137

044154

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

045152

9
MACRO v03.01 11-APR-80 13:04:53 PAGE 12-22

017150
044070
044766

50%:

017150

60%:

017150
000001

001346

001346
177776
000001

001142
001142
001140

100000

001346

001346
077777

001142
001142
001140

100000

004737
115760
000010
000405
000240
104000
004736
000137

051644

004737
000405
000240
104000
004736
000137

061232

004737
000403
000240
104000
004736

046004

017150

70%:

EMT
JMP
JSR
JSR

JSR
BR
NOP
EMT
JSR
JMP
BIT
BNE

PC,PRIERR

BIC

80%:

EMT
BIT
BNE

MOV

BIC

MOV

90$%:

91%:

92%:

100%:

EMT

JSR
.WORD
.WORD
BR
NOP
EMT
JSR
JMP

SUBRCOUTINE
RGR
S FETCH
PESET

PC,GETSTS
PC,TIMOUT
PC,GET

MOV

Y PI'T

100%

JSR
BR
NOP
EMT
JMP

MOV

SEQ 0106

60$

1008
708

PC,a(SP)+

1008

#OM,RMDS
1

RMDSI,$BDDAT
#*COM,$BODAT
#OM,$GDDAT

156

;60 TO 608 IF NO ERRO%
;RETURN HERE IF EPRPR

;ERROR # DEFINED BY GET SUBROUTINE
;G0 TO 100% IF ERROR
;GO0 CHECK FOR PRIMARY ERRORS
;GO TO 708 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
- ;60 BACK FOR MORE ERROR CHECKS
;G0 TO 1008 IF ERROR
;OFFSET MODE ON??
sVES!!
:BAD DATA FOR TYPEOUT
:GOOD DATA FOR TYPEOUT

#ATA ,RMDSI

;WAS ATTENTION SET

RMDSI,$BDDAT
#*CATA,$BDDAT
#ATA ,SGDDAT

;GOOD DATA FOR TYPEOUT

PC,CMPERRSTS
NDTMSK
DPE

sCHECK ANY ERRORS NOT MASKED
sMASK FOR RMER1
;MASK FOR RMERZ2

PC,a(SP)+
100%

;60 TO 1008 IF ERROR

90%

172

91%

sVYES!!
:BAD DATA FOR TYPEOUT

;60 TO 918 IF NO ERROR
;RETURN HERE IF ERROR
sERROR # DEFINED BY CMPERRSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

JSR
BR
NOP
EMT
JSR
JMP

PC,STCDRVSTS

;GO CHECK FOR CHANGES IN DRIVE STATUS

PC,a(SP)+

;60 BACK FOR MORE ERROR CHECKS
;60 TO 1008 IF ERROR

JSR
BR
NOP
EMT
JSR

PC,SECERR

100%

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

PC,a(SP)+

;ERROR # DEFINED BY SECERR SUBROUT INE
;60 BACK FOR MORE ERROR CHECKS

92%

100%

;G0 TO 928 IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY STCDRVSTS SUBROUTINE

;RETURN HERE

ERROR

a2 2222222222202t
0]

TRTEST 23

GO/ATA TEST

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

017150

15123:

(SgflHAO an021312 ;%YNL IsT 1

GO/ATA TE

017150
017152
01715¢
017160
017166

. 017170

000004
000240
012706
013700
013701
012737

650 017176
017202

004737
054130

D 9
MACRO v03.01 11-APR-80 13:04:53 PAGE 12-23
SEQ 0107

001100
001276
001464
000023

SCOPE
NOP
MOV
MOV
MOV

001226

043150

MOV

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

JSR
.WORD

PC,TSTPRP
054130

:SCOPE CALL
:START OF TEST
SINITIALIZE STACK POINTER
:RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
::SET TEST NUMBER IN APT MAIL BOX
sPREPARE DEVICE FOR TEST
STASK DESCRIPTOR AS FOLLOWS:
:CLEAR CONTROLLER & SELECT DEVICE

JVERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE IF VOLUME NOT VALID
SVERIFY PACK ACKNOWLEDGE
0172064
017206
017210
017212
651 017216
652 017216
0172264
017232
017240
017244
017246
017250
017252
ggz 017256
655 017262
017266
017270
017272
017274
656 017300
657 017306
658 017310
659 017316
660 017324
661 017332
662 017334
663 017334
017340

017}42
017344
017346
017350
017352
01735¢
664 017360
665 017360
017366
017374
017402

017406

017410

000404
000240
104000
000137
112737
112737
012737
004737
000404
000240
104000
000137
004737
004737
000404
000240
104000
000137
032737
001012
012737
013737
042737
104172
004737
000000

017570
000000
000200
000015
044424

017570
044070

017570
100000

001346

100000
001346
077777

001140
001142
001142

112737
112737
012737
004737

000000
000200
000001
044424

90$:

1008:

051644

017570

000240

80%:

044154

000000
000405
000240
104000
004736
000137

000404

001543
001544
001410

708:

001543
001544
001410

1108:

70%

*RECALIBRATE IF ''SKI"* OR ''PIP"* IS SET
:VERIFY RECALIBRATION
;G0 TO 708 IF NO ERROR

BR
NOP
EMT
JMP

1808

MOVB
MOVB
MOV
JSR
BR
NOP
EMT
JMP
JSR

#RMCS1,PUTINX
;SETUP PUT INDEX TABLE
#200,PUTINX#+1
;SET TERMINATOR BYTE
#OFFSET'!'GO,RMCS10
sSET RMCST1 QUTPUT BUFFER = OFFSET!'GO
PC,PUT
;G0 WRITE RMCS1 VIA PUT SUBROUTINE
80%
:60 TO 80% IF NO ERROR
*RETURN HERE IF ERROR
JERROR DEFINED BY PUT SUBROUTINE
180%
160 TO 1808 IF ERROR
PC,GETSTS
sSETUP 7O READ ALL REGISTERS

JSR
BR

PC,GET
90%

NOP
EMT
JMP
BIT
BNE
MOV
MOV
BIC
EMT

180%
#ATA,RMDS]
1008
#ATA,SGDDAT
RMDS1,$BDDAT
#*CATA,SBDDAT
172

JSR
.WORD

PC,CMPERRSTS
0

.WORD
BR
NOP
EMT
JSR
JMP
MOVB
MOVB
MOV
JSR

NOP

0
1108

JRETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
260 TO 1808 IF ERROR

;GO0 READ REGISTER(S) WITH GET SUBROUTINE
160 TO 90$ IF NO ERROR

:RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
:60 TO 1808 IF ERROR
:1S ATTENTION SET??
SYES!!
:600D DATA FOR TYPEOUT
;BAD DATA FOR TYPEOUT

sCHECK ANY ERRORS NOT MASKED
;MASK FOR RMER1

PC,a(SP)+
180$

sMASK FOR RMER?
260 TO 1108 IF NO ERROR
*RETURN HERE IF ERROR
JERROR # DEFINED BY CMPERRSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
160 TO 1808 IF ERROR

#RMCS1,PUTINX
#200,PUTINX+1
#NOP'GO,RMCS10
PC,PUT

;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE
;SET RMCS1 QUTPUT BUFFER = NOP'GO
160 WRITE RMCS1 VIA PUT SUBROUTINE

1208

:6G0 TO 1208 IF NO ERROR
JRETURN HERE IF ERROR

IRMMAQ RMO5/3/2 FC
123
GO/ATA TE
S

017412
017414
666 017420
667 017420
017424
017426
017430
017432
668 017436
669 017436
017442
017444
017446
017450
017452
670 017456
671 017464
672 017466
673 017474
674 017502
675 017506
676 017510
677 017510
017514
017516
017520
017522
017524
017526
017530

678 017534
679 017534

017540
017542
017544
017546
017550
680 017554
681 017554
017560
017562
017564
017566
682 017570
683
684

L IST 1

104000
000137

004737
000404
000240

104000

9
MACRO v03.01 11-APR-80 13:04:53 PAGE 12-24

017570

1208:

064154

000137

017570

004737

045152

130%:

001346

:
1408

001142
001142

1046246

150%:

004737
115760
000010
000405
000240

EMT
JMP

180%

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

JSR
BR
NOP
EMT
JMP

PC,GET

;GO READ REGISTER(S) UIYH GET SUBROUTINE

JSR
BR
NOP
EMT
JSR
JMP
BIT
BEQ
MOV
BIC
CLR
EMT

PC,PRIERR

JSR
.WORD
.WORD
BR

017570

004737
000405
000240
104000
004736
000137

061232

004737
000403
000240

046004

160%:

017570

170%:

104000

004736

180%:

1308

;60 TO 130% IF NO ERROR
RETURN HERE

180%
140%

PC,a(SP)+

1808

#ATA RMDSI

1508

RMDSI,$BDDAT
#*CATA,$BDDAT
$GDDAT

246

685
686 017616

;GO CHECK FOR PRIMARY ERRORS
;60 TO 140% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;G0 TO 180% IF ERROR
;1S ATTENTION RESET??
;YES
;BAD DATA FOR TYPEOUT
;GOCD DATA FOR TYPEOUT

sMASK FOR RMERZ2

EMT
JSR
JMP

;60 TO 1608 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY CMPERRSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
;G0 TO 180% IF ERROR

JSR
BR
NOP
EMT
JSR
JMP

PC,a(SP)+
180%

;G0 CHECK FOR CHANGES IN DRIVE STATUS
:60 TO 170% IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY STCDRVSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
;G0 TO 180% IF ERROR

PC,SECERR

:G0 CHECK FOR SECONDARY ERRORS

PC,a(SP)+

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

JSR
BR
NOP
EMT
JSR

160%

180%

s CHECK ANY ERRORS NOT MASKED
:MASK FOR RMER1

;GO TO 180% IF NO ERROR

A2t
R ]

'TEST 24

WRITE

ATA TEST

017570
017570
017572
017574
017600
017604
017610

IF ERROR

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

PC,CMPERRSTS
NDTMSK
DPE

NOP

000137

SEQ 0108

TSTZ‘

000004
000240
012706
013700
013701
012737

001100
001276
001464
000024

004737

043150

001226

SCOPE
NOP
MOv
MOV
MOV
MOV

JSR

222222222

:SCOPE CALL
#STACK,SP

$BASE ,RO

TSTQUE ,R1
#24 ,STESTN
PC,TSTPRP

;START

TEST

:IN ITIALIZE

STACK POINTER

:?g = UNIBUS ADDRESS
1)

= DEVICE BEING TESTED

*:SET TEST NUMBER IN APT MAIL BOX
:PREPARE DEVICE FOR TEST

CZRHHAO RMO5/3/2 FCINL TST 1

126

WRITE ATA TEST
017622

MACRO v03.01

11-APR-80 13:04:53 PAGE

12-25

SEQ 0109

054130

.WORD

054130

sTASK DESCRIPTOR AS FOLLOWS:

sCLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION

- ————

000404
000240
104000

020134

112737
112737
012737

000000
000200
000015
044424

000404
000240
104000
000137
004737

020134
044070

004737

044154

001543
001544
001410

70%:

80%:

e e

OO0O0O0O0O0O0OO

70%

EMT
JMP

150%

NOP

000137

004737

687
688

©oOo =lelelelelelelelelele)

:PACK ACKNOWLEDGE

MOvB
MOvB
MOv
JSR

NOP
EMT
JMP

D e e
e

-t et O LS

2 O = P

—

001346

001346
077777

001142
001142
001140

100000

000001

705
706

020134

004737
000404
000240

044154

104000
000137

707
708

004737
000405
000240

020134

;GO READ REGISTER(S) WITH GET SUBROUTINE

JMP

BIT
BNE

EMT

MOvB

BIC

NOP
MOV
MOvB
MOvB

JSR

045152

104000

020056

004736
000137

020134

120%:

ERROR

PC,GET

MOv

110%:

JSR

NOP

000137

sRETURN HERE

150%

BIC

001543
001544

;SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
#OFFSET!GO,RMCS10
;SET RMCS1 OUTPUT BUFFER = OFFSET!GO
PC,PUT
;GO WRITE RMCS1 VIA PUT SUBROUTINE
80%
;GO TO 80% IF NO ERROR

PC,GETSTS

MOv

100%:

177400

001426
000016
000200
044424

90%:

#RMCS1,PUTINX

#200,PUTINX+1

JSR

EMT

100000

VOLUME NOT VALID

;ERROR DEFINED BY PUT SUBROUTINE
;G0 TO 1508 IF ERROR
;SETUP TO READ ALL REGISTERS

NOP

020134

;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ''SKI'' OR "PIP'" IS SET
;VERIFY RECALIBRATION
;GO _TO 708 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;60 TO 1508 IF ERROR

90%

;GO TO 908 IF NO ERROR

;RETURN HERE

150%

#ATA ,RMDSI

ERROR

;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 150% IF ERROR
lgseITENTION SET?2?

100%
RMDSI,$BDDAT
#*CATA,$BDDAT
#ATA,$GDDAT

:GOOD DATA FOR TYPEOUT

#*CATNMSK
,R2

;CLEAR SIGN EXTENSION

R2 ,RMASO

sPUT RMAS BIT IN OUTPUT BUF
;WRITE REGISTER INDEX IN TABLE
;WRITE TERMINATOR
;60 WRITE REGISTER(S) WITH PUT SUBROUTINE
;G0 TO 110% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

172
1(R1),R2

#RMAS ,PUTINX

#200,PUTINX+1

PC,PUT

1108

:BAD DATA FOR TYPEOUT

;R2
= ATTENTION BIT

EMT
JMP

1508

JSR

PC,GET

NOP
EMT
JMP

1508

;60 _TO 120% IF NO ERROR
;RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
;GO TO 150% IF ERROR

PC,PRIERR

;60 CHECK FOR PRIMARY ERRORS

JSR
BR
NOP
EMT
JSR
JMP

1208

1308

PC,a(SP)+

1508

;G0 TO 1508 IF ERROR

;G0 READ REGISTER(S) WITH GET SUBROUTINE

;GO TO 1308 IF NO ERROR

+RETURN HERE

ERROR

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

:60 TO 1508 IF ERROR

huhhfl-‘-flsr3~0\“’
m~
onNON
~

(elelelelelelelele]
— i i i it e et O

3
—W

NNV

OO0 O0O0O0O0O0O0O

VS WN—=OV

—‘—ld—‘d—‘do

NNNNNNNN

IsT

MACRO v03.C!

100000

001346

001346
077777
001140

001142
001142

1308:

BIT
BEQ

BIC
CLR
EMT

—

NN~

Voo~

104000
:
1508
R

AR AR R

TRTEST 25
AR

020134
020134
020136
020140
020144
020150
020154

15125:

001100
001276
001464
000025

720
721 020162

001226

043150

020166

020170
020172
020174
020176
722 02020
723 02020

000000
000200
000015
044424

001543
001544
001410

70%:

724
725

004737

020260

727 020264
728 020272

004737
000404
000240

044154

000137
032737
001012

020526

104000

100000

80%:

001346

90%:

*BAD DATA FOR TYPEOUT
;GOOD DATA FOR TYPEOUT

SC.CHPERRSTS

;CHECK ANY ERRORS NOT MASKED

sMASK

0
150%
PC,a(SP)+

FOR RMER1

;MASK FOR RMER2
;60 TO 1508 IF NO ERROR
;RETURN HERE IF ERROR
:ERROR # DEFINED BY (MPERRSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

SCOPE

:(R1)

JSR
.WORD

054130

PC,TSTPRP

;PREPARE

KSTACK,SP

70%

EMT
JMP

1608

80%

EMT
JMP
JSR

PC,GETSTS

BIT

BNE

222¢%;

222

2222222222222

;START OF

TEST

sINITIALIZE STACK POINTER

;RO = UNIBUS ADDRESS

= DEVICE BEING TESTED

::SET TEST NUMBER IN APT MAIL BOX
DEVICE

FOR TEST

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

JRECALIBRATE IF ''SKI'* OR 'PIP'' 1S SET
;VERIFY RECALIBRATION
;60 TO 708 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;G0 TO 160% IF ERROR

#RMCS1,PUTINX
sSETUP PUT INDEX TABLE
#200,PUTINX+1
;SET TERMINATOR BYTE
WOFFSET!GO,RMCS10
;SET RMCS1 QUTPUT BUFFER = OFFSET!GO
PC,PUT
;G0 WRITE RMCS1 VIA PUT SUBROUTINE

JSR
BR

JSR
BR
NOP
EMT
JMP

2222222222222

:SCOPE CALL
$BASE ,RO
TSTQUE ,R1
#25,8TESTN

MOvB
MOVB
MOv

ERROR/ATA TEST

NOP
MOV
MOV
MOV
MOV

NOP

020526
044070

RMDS1,$BODAT
#*CATA,$BDDAT

247

NOP

020526

:sgsegre~710n RESET??

$GODAT

JSR
.WORD
.WORD
BR
NOP
EMT
JSR

SEQ 0110

FATA RMDS:

140%

MOV

140;:

051644

11-APR-80 13:04:53 PAGE 12-26

160%

:G0 TO 80$ IF NO ERROR
;RETURN HERE IF ERROR
;ERROR DEFINED BY PUT SUBROUTINE
;G0 TO 1608 IF ERROR

PC,GET

;G0 READ REGISTER(S) WITH GET SUBROUTINE

90%

160%

#ATA,RMDSI

100%

;SETUP TO READ ALL REGISTERS

GG TO 90% IF NO ERROR
sRETURN HERE

ERROR

JERROR # DEFINED BY GET SUBROUTINE
;60 TO 160% IF ERROR
;1S ATA SET??

sYES!)

735
736

OO0
[ PR

—SmyYyNN

[=l=l=]

NNNN

OO ==
O

001543
001544
001424

000404

0
0
0

044424

4
4

100%:

001543
001544
001410

000137

020526

;BAD DATA FOR TYPEOUT

MOVB
MOVB
MOV
JSR

WRMER1,PUTINX
#200,PUTINX+1

PC,PUT

:;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE
:SET RMER1 OUTPUT BUFFER = UNS
:6G0 WRITE RMER1 VIA PUT SUBROUTINE

NOP

*RETURN HERE

020420

004737

044154

100000

001140
001142
001142

001346
orr777

020472
020476
020500
020502
020504
020506

004737
000405
000240
104000
004736
000137

061232

748 020512

004737
000403
000240
104000
004736

046004

747

020516
020520
020522
020524
749 020526
750
751

1308:

140%:

WRMCS1,PUTINX

;SETUP PUT

MOV
JSR

#NOP
' GO,RMCS10
PC,PUT

:SET RMCS1 OUTPUT BUFFER = NOP'GO
160 WRITE RMCS1 VIA PUT SUBROUTINE

160 TO 1208 IF NO ERROR
*RETURN HERE

ERROR

1608

JSR

PC,GET

;G0 READ REGISTER(S)

EMT
JMP

BIT
BNE

1308

1608
#ATA,RMDSI
1408

MOV
MOV
BIC

#ATA,SGDDAT
RMDSI,$BDDAT
#*CATA,SBDDAT

JSR

PC,STCDRVSTS

EMT

1508

PC,a(SP)+

JSR

PC,SECERR

JMP
NOP

EMT
JSR

WITH GET

160 TO 1308 IF NO ERROR
:RETURN HERE

ERROR

:ERROR # DEFINED BY GET
160 TO 1608 IF ERROR

SUBROUTINE

*1S ATA STILL SET??
SYES!:

:G00D DATA FOR TYPEOUT
:BAD DATA FOR TYPEOUT

250

JSR

BR
i

1208

INDEX TABLE

:SET TERMINATOR BYTE

*ERROR DEFINED BY PUT SUBROUTINE
160 TO 1608 IF ERROR

#200,PUTINX+1

EMT
JMP

NOP

020526

IF ERROR

MOVB

001346

:6G0 TO 110% IF NO ERROR

1608

100000

1108

:ERROR DEFINED BY PUT SUBROUTINE
:6G0 TO 1608 IF ERROR

NOP

020526

#UNS .RMER10

;GOOD DATA FOR TYPEOUT

EMT
JMP

MOVB

SEQ 0111

RMDSI,$BDDAT
#*CATA,$BDDAT
1;5A,$GDDAT

NOP

020414

MOV
BIC
Eg¥

020526

000000
000200
000001
044424

11-APR=80 13:04:53 PAGE 12-27

ororn

MACRO v03.01
2

—_—

NN
= = O

CZRMMAD RMO5/3/2 F
125
ERROR/AT

1608
1608

PC,a(SP)+

;GO CHECK FOR CHANGES

IN DRIVE STATUS

260 TO 1508 IF NO ERROR
‘RETURN HERE

ERROR

:ERROR # DEFINED BY STCDRVSTS SUBROUTINE
160 BACK FOR MORE

ERROR CHECKS

160 TO 160 IF ERROR

;60 CHECK FOR SECONDARY ERRORS

160 TO 1608 IF NO ERROR
:RETURN HERE

ERROR

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

;:ttttt'tttttt""'i"lt't"t'tttlt'ltl'tttt'ttttttl'ttlitt"t"l

S*TEST 26

PROGRAM INTERRUPT TEST

;;l'lltltt'lt'Itt't""t't"'ltt'tlttitttfitt't't'ttt'l'll.tl'tltt

020526
020526
020530
020532
020536

000004
000240
012706
013700

1S126:

SCOPE
NOP

MOV

#STACK,SP
$BASE , RO

:SCOPE CALL
*START OF TEST

*INITIALIZE STACK POINTER
‘RO = UNIBUS ADDRESS

C%RHHAO RM05/3/2 FCINL TST 1

PROGRAM INTERRUPT TEST

020542

013701

- 020546

012737

753 020554
020560

004737
054130

001464

000026

MACRO v03.01 11-APR=-80 13:04:53 PAG% 12-28
MOV

001226

043150

SEQ 0112

MOV

#26,$TESTN

TSTQUE ,R1

;(R1) = DEVICE BEING TESTED

JSR
.MORD

PC,TSTPRP
054130

;PREPARE DEVICE FOR TEST
:TASK DESCRIPTOR AS FOLLOWS:
:CLEAR CONTROLLER & SELECT DEVICE

::SET TEST NUMBER IN APT MAIL BOX

;VERIFY CONTROLLER CLEAR OPERATION

;PACK ACKNOWLEDGE

VOLUME NOT VALID

:VERIFY PACK ACKNOWLEDGE

;RECALIBRATE

020562
020564
020566
020570
754 020574
755 020574

756 020600

000404
000240
104000
000137

021216

113702

001272

042702

757 020604

011204

759 020612
760 020616
761 0206264
762 020630
763 020634
764 020636
765 020640
766 020642
767 020644
768 020650
769 020652

012712
012762
113703
042703
000303
005303
100001
005003
042703
000240
012746

758 020606

770 020656
771 020662

772
773
774
;;g

016205

012746
010346

177400

021056
000300
001273
177400

777 020712

004737

044424

778 020730
779 020730

112737

000000

112737
012737
004737

020760
020762
020764

780 020770
781 020770
782 020774

000240
104000
000137

021216

004737
004737

044766
044070

784 021004

000002

783 021000

000404

012703

001426
001543
001543

000200
000115
044424

000205

001543

908:

001544
001410

SVECT1,R2

:R2 = INTERRUPT ADDRESS

(R2) R4

:SAVE HANDLER ADDRESS

#150% . (R2)
#PR6, 2 (R2)
SVECT1+1,R3
#*C<377> R3
R3
R3
80
R3
#*CPR7,R3

:WRITE HANDLER ADDRESS AND
:PRIORITY FOR THIS TEST
‘R3 = INTERRUPT LEVEL
*CLEAR SIGN EXTENSION

#°C<377>,R2

MOV

2(R2),RS

MOV
MOV
MOVB
BIC
SWAB
DEC
BPL
CLR
BIC
NOP
MOV

:CLEAR SIGN EXTENSION

:SAVE HANDLER PRIORITY

;DECREMENT

INTERRUPT LEVEL

MOV
MOV
MOVB
MOVB

#PR6, = (SP)
#120%,-(SP)
R3,-(SP)

#1108, -(SP)
#-1,RMASO
#RMAS,PUTINX
#200,PUTINX

::PUSH
::PUSH
;3PUSH
::PUSH
:WRITE

JSR

PC,PUT

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

BR
NOP
EMT
JMP
MOVB

90%

#PR6 ON STACK
#1208 ON STACK
R3 ON STACK

#110$ ON STACK
ONES IN RMAS T0
:CLEAR ALL ATTENTIONS

2108

:G0 TO 908 IF NO ERROR
:RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
160 TO 2108 IF ERROR

#RMCS1,PUTINX

;SETUP PUT

INDEX TABLE

MOVB
MOV
JSR

#200,PUTINX+1
:SET TERMINATOR BYTE
#OFFSET!GO'IE,RMCSTO
:SET RMCS1 OUTPUT BUFFER = OFFSET'GO!IE
PC,PUT
;60 WRITE RMCS1 VIA PUT SUBROUTINE

NOP
EMT
JMP

2108

:RETURN HERE IF ERROR
:ERROR DEFINED BY PUT SUBROUTINE
160 TO 2108 IF ERROR

JSR
JSR

PC, TIMOUT
PC.GETSTS

:WAIT FOR COMPLETION
:SETUP TO READ ALL REGISTERS

BR
1008
:

2108

708

BIC

MOV
MOV

021216

020736
020744
020752

020756

80$:

000300
021014

021006
177777
000016
000200

000404
000240
104000
000137

000002

177437

012746
012737
112737
112737

MOVB
MOV

000002

020666
020670
020676
020704

020716
020720
020722
020724

708:

BR
NOP
EMT
JMP

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

:VERIFY RECALIBRATION
:G0 TO 708 IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY TSTPRP SUBROUTINE
:6G0 TO 2108 IF ERROR

MOV
RTI

1008

#205.R3

:6G0 TO 1008 IF NO ERROR

:R3 = GROSS TIMEOUT
:DROP CP PRIORITY

CZRMMAQ RMO5/3/2 FCTINL TST 1
126
PROGRAM INTERRUPT TEST
785 021006
;gg 021010

005303
100376

1108:

;gg
000002

021022
021026
021026
793 021032

000240
104000
000137

021216

004737

045152

021020

796 021032

004737

000404

021036
021040
021042
021044
021046
795 021052
021052
;gg 021054

104251
000423

798 021056
799 021060

022626
012716

800 021064
801 021066
802 021066

021072

021074
021076
021100
021104
021104
021110
021112
021114
021116
021120
021124
021124
021130
021132
021134
021136
021140
021142

000405
000240
104000
004736
000137

000002

004737

000404

000240
104000
000137

044154

021216

021066

044154

021216

004737
000405
000240
104000
004736
000137

045152

004737

051644

807 021150
808 021150

000137

021216

004737

061232

021156
021160
021162

000240
104000
004736

805
806

J 9
11-APR-80 13:04:53 PAGE 12-29
DEC
BPL

R3
1108

;TIMEOUT THE INTERRUPT

;TIMEOUT BEFORE INTERRUPT

790 021012
791 021014
792 021014

803
804

MACRO v03.01

021144

021154

021166

809 021170
810 021170

115760
000010
000405
000240
104000
004736

000405

021216

000137

021216

004737

046004

1208

RTI

JSR

PC,GET

:60 READ REGISTER(S) WITH GET SUBROUTINE

NOP
EMT
JMP

2108

*RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
:6G0 TO 2108 IF ERROR

JSR

PC,PRIERR

;G0 CHECK FOR PRIMARY ERRORS

BR
1308:

1408:

150%:

1608:

BR
NOP
EMT
JSR
JMP

1808:

PC,a(SP)+
2108

:G0 TO 1408 IF NO ERROR
:RETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUTIiNE
;G0 BACK FOR MORE ERROR CHECKS
:G0 TO 210% IF ERROR

CMP
MOV

(SP)+,(SP)+
#160%. (SP)

;ADJUST STACK
:CHANGE RETURN ADDRESS

JSR

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

NOP
EMT
JMP

2108

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

JSR
BR

PC,PRIERR
1808

RTI

NOP
EMT
JSR
JMP
JSR

170$

PC,a(SP)+
2108
PC,CMPERRSTS
ND TMSK
DPE
190%

;RAISE CP PRIORITY

:6G0 TO 1708 IF NO ERROR

;60 CHECK FOR PRIMARY ERRORS
:6G0 TO 180% IF NO ERROR
JRETURN HERE I1F ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
:6G0 TO 2108 IF ERROR
sCHECK ANY ERRORS NOT MASKED

PC,a(SP)+

;MASK FOR RMER1
:MASK FOR RMER2
;GO TO 190% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY CMPERRSTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS

PC,STCORVSTS

;GO CHECK FOR CHANGES IN DRIVE STATUS

NOP
EMT
JSR

PC,a(SP)+

:RETURN HERE IF ERROR
:ERROR # DEFINED BY STCDRVSTS SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

;60 CHECK FOR SECONDARY ERRORS

JMP
JSR

2008
:

1408

:6G0 TO 1308 IF NO ERROR

251
180%

.WORD
.WORD
BR
NOP
EMT
JSR
1908:

130%

EMT
BR

BR
1708
:

:RAISE CP PRIORITY

JMP

2108
2008

2108

:60 TO 210$ IF ERROR

;G0 TO 200% IF NO ERROR

160 TO 2108 IF ERROR

SEQ 0113

gggflflAO RMO5/3/2 FCINL TST
PROGRAM INTERRUPT

811
812
813
3}2

021176
021176
021200
021202
021206
021210
021210
021212
021216

TEST

000405
000240
104000
004736
000137

021216

010412
010562

000002

MACRO v03.01

205%:
2108:

816

11-APR-80 13:04:53 PAGE

BR
NOP
EMT
JSR
JMP

2108

MOV
MOV

R4, (R2)
RS.2(R2)

205%
PC,a(SP)+

12-30

SEQ 0114

;60 TO 2058 IF NO ERROR
‘RETURN MERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
:G0 TO 2108 IF ERROR

""'t"'ttttt!t't't""""t""il".t"tt.tt"tt't't"t.""tt"t

;*TEST 27

INHIBIT INTERRUPT TEST

:"t..t"'tt'ttt'tt't"t'tt'tlI'Qtt"".tt'tt'tttt't'.t

021216
021216
021220
021222
021226
021232
o 021236

000004
000240
012706
013700
013701
012737

818 021244
021250

004737
054130

1§127:

001100
001276
001464
000027

001226

043150

t'tl't'ttt.

SCOPE
NOP
MOV
MOV
MOV
MOV

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

JSR
.WORD

PC,TSTPRP
054130

:SCOPE CALL
:START OF TEST
JINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS
s(R1) = DEVICE BEING TESTED
:;SET TEST NUMBER IN APT MAIL BOX
;PREPARE DEVICE FOR 1EST
sTASK DESCRIPTOR AS FOLLOWS:
sCLEAR CONTROLLER & SELECT DEVICE

JVERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE

021252
021254
021256
021260
819 021264
820 021264
821 021270

000404
000240
104000
000137

021564

113702

001272

822 021274
823 021276
824 021302

042702
011204
016205
012712

826
827
828
829

113703
042703
012746
012746

825 021306

021314
021320
021324
021330

012762

177400

000002
021524

000300

001273
177400
000300
021556

830 021334
831 021336
832 021340
833 021342
834 021344
835 021350
836 021354

010346
005316
100001
005016
042716
012746
010346

g;g 021362

004737

044070

112737
112737
012737

000000
000200
000115

837 021356

840 021366
021374
021402

012746

708:

2108
$VECT1,R2

#*C<377>,R2
(R2) ,R4
2(R2) RS
#130%, (R2)

VALID

:R2 = INTERRUPT ADDRESS

sCLEAR SIGN EXTENSION
;SAVE HANDLER ADDRESS
:SAVE HANDLER PRIORITY
sWRITE HANDLER ADDRESS AND

lPRb,é(RZ)

MOV
DEC
BPL
CLR
BIC
MOV
MOV

R3,=-(SP)
(5P)
80%
(SP)
#*CPR7,(SP)
#1208 ,-(SP)
R3,-(SP)

::PUSH #1208 ON STACK
;:PUSH R3 ON STACK

JSR

PC,GETSTS

sSETUP TO READ ALL REGISTERS

MOVB
MOvV3
MOV

WRMCS1,PUTINX
;SETUP PUT INDEX TABLE
#200,PUTINX+]
JSET TERMINATOR BYTE
#OFFSET'GO'1E,RMCS10
JSET RMCST QUTPUT BUFFER = OFFSET'GO!
IE

MOV
001543
001544
001410

708

VOLUME NOT

MOV

MOVB
BIC
MOV
MOV

80%:

021440

MOv3

BIC
MOV
MOV
MOV

000002

177437
021512

BR
NOP
EMT
JMP

JVERIFY PACK ACKNOWLEDGE
JRECALIBRATE IF ''SKI'' OR ''PIP'" IS SET
JVERIFY RECALIBRATION
:60 TO 708 IF NO ERROR
JRETURN HERE IF ERROR
sERROR # DEFINED BY TSTPRP SUBROUTINE
160 TO 2108 IF ERROR

SVECT1+1,R3
#*C<377>,R3
#PR6,-(SP)
#180%, - (SP)

#1008, - (SP)

JPRIORITY FOR THIS TEST

‘R3 = INTERRUPT LEVEL
JCLEAR SIGN EXTENSION
;:PUSH #PR6 ON STACK
$:PUSH #1808 ON STACK

::PUSH R3 ON STACK

::PUSH #1008 ON STACK

CIRMMAD RMO5/3/2 FCTINL TST 1

004737
000404
000240

064424

000137

021564

044766
000205

o
o

104000

11-APR-80 13:04:53 PAGE

JSR
BR
EMT

JMP

90%:

JSR

1008:

662
~
&~

PC,PUT

001543
001544
001410

MOV
RTI

#205,R3

PC,TIMOUT

sWAIT FOR GO = 0

DEC
BPL

R3
1008

sDELAY

MOvVB
MOvB

#RMCST,PUTINX

;SETUP PUT INDEX TABLE
;SET TERMINATCR BYTE
;SET RMCS1 OUTPUT BUFFER = NOP
;GO WRITE RMCS1 VIA PUT SUBROUTINE
;60 TO 1108 IF NO ERROR
;RETURN HERE IF ERROPR
;ERROR DEFINED BY PUT SUBROUTINE
;G0 TO 2108 IF ERROR

w~
~

—

021526
o

NVOOMNV

VWAV
NNt
e
WVIWVAWVAWVAWVIWAWA

NEERS NN
o

OO0O0O0O0O

854 0

MOv
JSR
BR

#NOP ,RMCS10
PC,PUT

1108

EMT
JMP

MOV
RTI

#205,R3

120%:
1258:

MOV

DEC
BPL

#1408, (R2)
R3
125%

CMP
(MP
MOv

(SP)+,(SP)+
(SP)+,(SP)+
#1608, (SP)

sADJUST

JSR
BR
NOP
EMT
JMP

PC,GET

;G0 READ REGISTER(S) WITH GET SUBROUTINE

EMT

252

MOv

R&, (R2)
R5,2(R2)

130%:
140%:

RTI

160%:

044154

021564

170%:

180%:

000002

AR AR AR AR A

AR A

15130:
001100
001276
001464
000030

sADJUST STACK

;RETURN HERE IF ERROR
:ERROR ¥ DEFINED BY GET SUBROUTINE

;60 TO 2108 IF ERROR

2108

AR AR AR

RETURN TO CENTERLINE
AR

STA(K

;GO TO 170% IF NO ERROR

222222222

TEST
R

SRR

:SCOPE CALL
#STACK,SP

$BASE RO

001226

sNO ERROR

1708

MOv

2108:

SeTEST 30

210%

‘

110%:

RTI

021536

:R3 = GROSS TIMER

#200,PUTINX+1

NOP

021564
000205

2108

;60 WRITE RMCS1 VIA PUT SUBROUTINE
;60 TO 908 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR DEFINED BY PUT SUBROUTINE
;60 TO 2108 IF ERROR

90$

NOP

000000
000200
000000
064424

12-31

SEQ 0115

ak af oF o F o
LRk

INTERRUPT TEST

oOooOoOo O0O00O
NONNNONR
OO0

N
.

V00 N VN

FRERRRRRER

&~ a:vuvnunnv-a—nu
rNoOCNVOO SO

INHIBIT

S3%

127

MACRO v03.01

TSTQUE ,R1

#30,8TESIN

sSTART OF

TEST

SINITIALIZE STACK POINTER

;RO = UNIBUS ADDRESS

:(R1)

= DEVICE BEING TESTED

s:SET TEST NUMBER IN APT MAIL BOX

RETURN TO CENTERLINE TEST

(%gflIAO RMO5/3/72 FCINL TST 1
872 021612
021616

004737
054130

MACRO v03.01

043150

11-APR=80

1280 13:04:53 PAGE 12-32
13:04:53

PAGE

JSR
.WORD

SEQ 0116

;PREPARE DEVICE FOR TEST
sTASK DESCRIPTOR AS FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE

VOLUME NOT VALID

sVERIFY PACK ACKNOWLEDGE

021620
021622
021626
021626
873 021632
876 021632

70%

022106
737

000000
000200

000017
044424

878 021702
021706
021710

000137

NN
=
W NN = e
=S NNNNVNNNNN-NN

gegse

N
W
N

004736

—-O00000—
O=Hf =0OWO
SO
=MN
NN =N
=S NYNNNON=NYNO
-

—
~
~N

#200,PUTINX+]

#RTC!GO,RMCST0
PC,PUT

1508

PC,GETSTS
PC,TIMOUT

044154

N
N

N
OO0

2 SZEESESE
3
~

022046

#RMCST,PUTINX

80%:

PC,GET

022106

90%:

001346

001140
001346
177776

001142
001142

100000

001346

001346
077777
100000

001142
001142
001140

051644

022106

1108:

.WORD
WORD
NOP
EMT
JSR
JMP

:60 TO 808 IF NO ERROR
sRETURN HERE 1F ERROR
;ERROR DEFINED BY PUT SUBROUTINE
;60 TO 1508 IF ERROR
sSETUP FOR STATUS FETCH

sWAIT FOR RECAL TO COMPLETE

;G0 READ REGISTER(S) WITH GET SUBROUTINE

PC,a(SP)+

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

110$
$GDDAT
RMDS1,$BDDAT
{;gOH.‘BDDAI

120%:

sSETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
:SET RMCS1 OUTPUT BUFFER
= RTC!GO
;GO WRITE RMCS1 VIA PUT SUBROUTINE

;60 CHECK FOR PRIMARY ERRORS

con RMDS 1

BIT

;60 TO 1508 IF ERROR

PC,PRIERR

1508

:
1008

;ERROR # DEFINED BY TSTPRP SUBROUTINE

1508
100%

022106
000001

sRETURN HERE IF ERROR

;60 TO 908 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY GEI SUBROUTINE
;60 TO 1508 IF ERROR

90%

045152

21746

708:

80%

022106
044070
044766

876 021676

021712
021714

001543
001544
001410

150%

;RECALIBRATE IF ''Sk1'* OR "PIP'" IS SET
;VERIFY RECALIBRATION
;60 TO 708 IF NO ERROR

;60 TO 1008 IF NO ERROR

;60 TO 1508 IF ERROR
sOFFSET MODE OFF??
;VES!!
:GOOD DATA FOR TYPEOUT
:BAD DATA FOR TYPEOUT

#FATA,RMDSI

:Ueg.eTTENTION SET 22

RMDS1,$BDDAT
#*CATA,SBDDAT
g;}k.‘GDDAT

:BAD DATA FOR TYPEOUT

120%

PC,CMPERRSTS
ND TMSK
DPE

130%

PC,A(SP)+

1508

sVES!!

:GOOD DATA FOR TYPEOUT

;CHECK ANY ERRORS NOT MASKED
:MASK FOR RMER]

:MASK FOR RMER?
;60 TO 1308 IF NO ERROR
+RETURN HERE IF ERROR
sERROR # DEFINED BY CMPERRSTS SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS
;G0 TO 150% IF ERROR

RMMAO RM0O5/3/2 FCINL TST 1
MACRO v03.01
RETURN TO CENTERLINE TEST

2 OO OO O0OO0O
-t et

oo
FREBINSIRES
oSO

899

[elelelelelelelelslelel=]

897
898

NN
NN
NN NN

895 02205
896 02205

004737
000405
000240
104000
004736
000137

061232

004737
000403
000240
104000
004736

046004

11-APR-80 13:04:53 PAGE 12-33

1308:

022106

140%:

:
1508

900
901

JSR
BR

PC,STCORVSTS

1408

NOP
EMT
JSR
JMP

S*TEST 31

;60 CHECK FOR SECONDARY ERRORS

:G0 TO 1508 IF NO ERROR

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

PC,a(SP)+

READ

ERROR

:G0 TO 1508 IF ERROR

1508

N A

:60 BACK FOR MORE ERROR CHECKS

PC,SECERR

IN DRIVE STATUS

:ERROR # DEFINED BY STCDRVSTS SUBROUTINE

1508

;GO CHECK FOR CHANGES

:6G0 TO 1408 IF NO ERROR

‘RETURN HERE

PC,A(SP)+

JSR
BR
NOP
EMT
JSR

SEQ 0117

;G0 BACK FOR MORE ERROR CHECKS

R R

IN PRESET

R AR AR AR

AR RN AR

NN AR AR

TEST

':tt.t't'ttt'ttt't""t"""t'tl.l..it....'...Q'tt.t!..ti"t't"

004737
054130

TST131:

001100
001276
001464
000031

043150

JSR
.WORD

e T

COOO
= ——usad

70%:

001416
001444
001442
001410

004737

80%:

#STACK,SP

$BASE RO

TSTQUE ,R1

TEST

STACK POINTER

;RO = UNIBUS ADDRESS

;(R1) = DEVICE BEING TESTED

ssSET TEST NUMBER IN APT MAIL BOX

PC,TSTPRP

;PREPARE DEVICE FOR TEST

054130

JMP

1608

MOV
MOvVB
MOovB
MOvB
MovB
MOvVB
MOV
MoV
MoV
MOV
JSR

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

EMT
JMP
JSR
JSR

;START OF

sINITIALIZE

#31,8TESTN

70%

NOP

022470
044070
044766

s SCOPE CALL

NOP
EMT

001543
000006

016200
000021
044424

SCOPE

NOP
MOV
MOV
MoV
MOV

001226

022470

N-’?oflfloou\fl\fl&
s
on
orosrorroo s

NN
NN NN N

o lelelelelelolslolelelelelelelala]

-b

wb ab ab

VOO0

2888

VIS WN—=O D0~

902
903 022134

000004
000240
012706
013700
013701
012737

sTASK DESCRIPTOR AS FOLLOWS:

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

;RECALIBRATE IF "'SKI'" OR 'PIP'' 1S SET
sVERIFY_RECALIBRATION
;60 TO 708 IF NO ERROR

;RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;G0 TO 160% IF ERROR

:R2 POINTS TO INDEX TABLE

#RMCST, (R2)+

#200, (R2)+
#-1,RMDAO
#-1.RMDCO
#FMT16'ECI'HCI'OFD,RMOFO
#RIP'GO,RMCSTO
PC,PUT

80$

160%

PC,GETSTS
PC,TIMOUT

;60 WRITE REGISTER(S)

:60 TO 80$ IF NO ERROR

WITH PUT

SUBROUTINE

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

;SETUP FOR STATUS FETCH
;WAIT FOR RIP TO COMPLETE

C RMMAO RMO5/3/2 FCTNL 1 ST 1
1 1
READ IN PRESET 1 EST
O NN

8 10

11-APR-80 13:04:53 PAGE 12-34

046154

S8FN3&

JSR

NOP

022470

N NN

90%:

[

1008:

SN-—-_-g~N

001342
001342
001140

1108:

001142

001370
001370
001140
051644

001142
130%:

939
940

061232

140%:

PC,PRIERR

NOP
EMT
JSR

PC,a(SP)+

MOV

RMOF
1, SBODAT

;60 BACK FOR MORE ERROR CHECKS
;60 TO 1608 IF ERROR
;1S RMOF RESET??

RMDA
], $BDDAT

*BAD DATA FOR TYPEOUT

TST

RMDC
1

;1S RMDC RESET??

MOV
CLR

EMT

RMDC1,$BODAT
$GDDAT
162

JSR
.WORD
.WORD

PC,CMPERRSTS
NDTMSK
DPE

NOP
EMT
JSR

PC,a(SP)+

JSR

PC,STCDRVSTS

JMP

BIC
BEQ
CLR
EMT

vh
942

022470

004737
000403
000240

046004

943 022470
944
945

022470
022470
022472

004736

BEQ

JMP

1308

1408

1608

1508

EMT
JSR

PC,a(SP)+

JSR

PC,SECERR

JMP

EMT
JSR

1608

PC,a(SP)+

2222222202202

SeTEST 32
000004
000240

15132:

;ERROR # DEFINED BY PRIERR SUBROUTINE

$GDDAT
161

NOP

160%:

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

CLR
EMT

151

104000

1608

;60 TO 1608 IF ERROR

BEQ

150%:

1008

;ERROR # DEFINED BY GET SUBROUTINE

#°C<FMT16'ECI'HCI'OFD>,$BDDAT
44438'
1108
$GDDAT
;GOOD DATA FOR TYPEOUT
160
RMDA]
;1S RMDA RESET??
1208
;YES!!

NOP

000137

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

JSR

022479

90$

160%

MOV

1208:

PC,GET

SEQ 0118

EMT
JMP

001140

wi
N

-0

022470
001366
161577

=ONSONSONE
NSO
NN—-N

045152

=8 28288
2828828288 R

NN NN NN W

33 S S A

MACRO v03.01

600D DATA FOR TYPEOUT
.'ESIl

*BAD DATA FOR TYPEOQUT

600D DATA FOR TYPEOUT
sCHECK ANY ERRORS NOT MASKED

;MASK FOR RMER!

;MASK FOR RMER?

;60 TO 1408 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY CMPERRSTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;60 TO 160% IF ERROR
;60 CHECK FOR CHANGES IN DRIVE STATUS
;60 TO 1508 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY STCDRVSTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;60 TO 160% IF ERROR
;G0 CHECK FOR SECONDARY ERRORS
;60 TO 160% IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

2222222 222222222220
RRRRRR Rl R

RMDC CLEAR OFFSET

TEST

222 2222222022220
RRRRRRRRRRRRRR R Rl

SCOPE
NOP

s SCOPE CALL
;START OF TEST

% SHHAO RMO5/3/72 FCINL TST 1
RMDC CLEAR OFFSET

043150

WNwWwWNO
N

949

(<=
L T T, 2

948

7
0473
1
5613

row

001100
001276
001464
000032

012706
013700
1 701
1273

946
947

104000

022634
955 022640
956 022646
957 022650
958 022656
959 022664
960 022672
961 022674
962 022676
963 022652

964 022736

001226

112737
112737

000000
000200
000015
044424

023006
044070

004737
000404
000240
104000
000137

044154

042737
012737
104156
000444
112737
112737

012737
004737
000404
000240
104000
000137

001543
001544
001410

70%:

MovBe
MOvB
MOV
JSR

#RMCS1,PUTINX

EMT

80%:

023006

90%:

045152

023006
000001

001346

001346
177776
000001

001142
001142
001140

000034
000200
000000
064424

023006

001543
001544
001444

100%:

JMP

JSR

PC,PRIERR

BIC

MOV

EMT
BR

MOvB
MOvVB
MOV

JSR

120%:

NOP
EMT
JMP

sTASK DESCRIPTOR AS FOLLOWS:
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ''SKI'" OR "'PIP'' IS SET
sVERIFY RECALIBRATION
;60 TO 708 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;G0 TO 140% IF ERROR

;SETUP PUT INDEX TABLE
;:SET TERMINATOR BYTE
FOFFSET!GO,RMCS10
;SET RMCS1 OUTPUT BUFFER = OFFSET!GO
PC,PUT
;G0 WRITE RMCS1 VIA PUT SUBROUTINE
80%
:60 TO 80$ IF NO ERROR
sRETURN HERE IF ERROR
;ERROR DEFINED BY PUT SUBROUTINE
140%
;G0 TO 1408 IF ERROR
PC,GETSTS
;SETUP FOR STATUS
PC,GET
90%

NOP
EMT
JSR
JMP
BIT
BNE

:(R1) = DEVICE BEING TESTED

#200,PUTINX+1

JSR
BR
NOP
EMT
JMP

MOV

110%:

70%

140%

;INITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS

:PREPARE DEVICE FOR TEST

JMP

NOP

000137
004737

004737
000405
000240

EMT

SEQ 0119

;sSET TEST NUMBER IN APT MAIL BOX

.WORD

NOP

023006

FSTACK,SP

$BASE ,RO

JSR

000137

104000

¢ 10

11-APR-80 13:04:53 PAGE 12-35
MOV
- MOV
MOv
MOv

000404
000240

012737
004737
000404
000240
0
950 022576
9351
952 022602
022606
022610
022612
022614
953 022620
954 022620

TEST

MACRO v03.01

140%

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

100%

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

PC,a(SP)+

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

1408

#OM,RMDS
]

1108

RMDS1,$BODAT
#*COM,$BDDAT
#OM, SGDDAT

156
140%

#RMDC
, PUTINX

#200,PUTINX+1
#0,RMDCO
PC.PUT

1208

140%

sRETURN HERE

ERROR

;G0 TO 140% IF ERROR
JOFFSET ON??

JYES

;BAD DATA FOR TYPEOUT

:GOOD DATA FOR TYPEOUT

:SKIP REST OF TEST

sSETUP PUT INDEX TABLE
sSET TERMINATOR BYTE
;SET RMDC OUTPUT BUFFER = 0
;60 WRITE RMDC VIA PUT SUBROUTINE
;60 TO 120% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR DEF INED BY PUT SUBROUTINE
;60 TO 1408 IF ERROR

CZRMMAD RMO5/3/2 FCTNL TST 1

132

RMDC CLEAR OFFSET TEST

965 022736

004737

022764
022746
022750
966 022754

000240
104000
000137
032737

022742

967 022762

968
969
970
971

022764
022772
023000
0230064

g;g 023006

000404

001411

013737
062737
005037
104253

MACRO v03.01

D10
11-APR=-80 13:04:53 PAGE 12-36

044154

023006
000001
001346
177776
001140

JSR

PC,GET

;G0 READ REGISTER(S) WITH GET SUBROUTINE

NOP
EMT
JMP
BIT

1408
#OM RMDS
]

‘RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
;60 TO 1408 IF ERROR
:DID OFFSET MODE RESET??

MOV
BIC
CLR
EMT

RMDS1,$BODAT
#*COM,$BDDAT
$GDDAT
253

BR
001346

1308:

001142
007142

1408 :

97‘

BEQ

1308

:6G0 TO 1308 IF NO ERROR

140§

;BAD DATA FOR TYPEOUT
;600D DATA FOR TYPEOUT

;".".'""'Q."""'""Q"""t."'l'.."""".'..tttt".'t"'

SeTEST 33

ILLEGAL FUNCTION TEST

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

023006
023006
023010
023012
023016
023022
- 023026

000004
000240
012706
013700
013701
012737

001100
001276
001464
000033

976 023034

004737

023042
023044
023046
023050
977 023054

023040

978
979
980
981

023054
023060
023064
023064

023070
023072
023074
023076
ggg 023102

15133

SCOPE
NOP
MOV
MOV
MOV
MOV

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

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

043150

JSR

PC,TSTPRP

:PREPARE DEVICE FOR TEST

000404
000240
104000
000137

023572

BR
NOP
EMT
JMP

004737
012702

044070
000000

JSR
MOV

PC,GETSTS
#NOP,R2

;SETUP FOR STATUS

004737

053530

JSR
BR
NOP
EMT
JMP

PC,CNTCLR

;60 1SSUE CONTROLLER CLEAR

040000

000404
000240
104000
000137

001226

.WORD

5%:
108:

023572

20$:

3g§

040000

STASK DESCRIPTOR AS FOLLOWS:

:CLEAR CONTROLLER & SELECT DEVICE
160 T0 5% IF NO ERROR
*RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
160 T0 1108 IF ERROR

1108

20%

160 TO 208 IF NO ERROR
‘RETURN HERE IF ERROR
:ERROR NUMBER DEFINED BY SUBRCUTINE
160 TO 1108 IF ERROR

1108

‘EE',°é£8"°S"° MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON

986 023102
023110
023116
023124

112737
112737
012737
004737

023132
02313¢
023136
987 023142
988 023142
023150
023156
023164

000240
104000
000137

023572

112737
112737

000024
000200

023130

000404

012737
004737

000024
000200
000001
044424

001401
044424

001543
001544
001434

JCYLIN

MOVB
MOVB
MOV
JSR

WRMMR1,PUTINX
#200,PUTINX+1
#DMD , RMMR 10
PC,PUT

NOP
EMT
JMP

001543
001544

001434

308:

MOVB
MOVB

MOV
JSR

30$

;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE
*SET RMMR1 OUTPUT BUFFER = DMD
160 WRITE RMMR1 VIA PUT SUBROUTINE

:G0 TO 308 IF NO ERROR

1108

:RETURN HERE IF ERROR
*ERROR DEFINED BY PUT SUBROUTINE
:60 T0 1108 IF ERROR

WRMMR1,PUTINX
#200,PUTINX+1

;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE

#DMD | MUR ' MOC , RMMR10
:SET RMMR1 OUTPUT BUFFER = DMD'MUR'MOC
PC,PUT
;60 WRITE RMMR1 VIA PUT SUBROUTINE

SEQ 0120

gannAo RMO5/3/2 FCINL TST

ILLEGAL FUNCTION TEST

023170
023172
023176
023176
ggg 023202
991
992 023202

000404
000240
10400
000137

023572

112737

000000

023210
023216

012737

023230

000404

023226

112737

004737

000200
000023

044424

023232
023234
023236
993 023242
994 023242
995 023250
996 0232564
997 023262
998 023270
999 023274
1000 023300
1001 023306
1002 023312
1003 023316
1006 023322
1005 023326
1006 023332

000240
104000
000137

023572

012737
050237
012737
012737
005037
005037
012737
012703
112723
112723
112723
112723
112723

000001
001410
103640
177777
001416
001444
010000
001543
000004
000002
000032
000006
000034

1008 023342

112713

000200

1007 023336
1009 023346
|

023352
023354
023356
023360
}8}? 023364

1012 023370

0233764
023376
023400
023402
1013 023406

112723

004737

000404
000240
104000
000137
004737
004737

000404
000240
104000
000137

023572

042737
013737
042737
023737
001402
104254

177776
001350
177776
001140

023436
023442
023450
023456
023464
023466

067046

BR
NOP
EMT
JMP

MOVB

408:

001442

40%

NOP
EMT
JMP
MOV
BIS
MOV
MOV
CLR
CLR
MOV
MOV
MOVB
MOVB
MOVB
MOVB
MOVB

508:

1108

:RETURN HERE IF ERROR
:ERROR DEF INED BY PUT SUBROUTINE
260 70 1108 IF ERROR

#GO,RMCS10
R2,RMCS10
#BUFONE ,RMBAO
#-1,RMWC0
RMDAO
RMDCO
WEMT16,RMOFO
#PUTINX,R3
WRMBA, (R3)+
WRMWC.(R3)+
#RMOF
. (R3)+
WRMDA.(R3)+
WRMDC.(R3)+

:60 TO 408 IF NO ERROR

;WRITE FUNCTION CODE IN BUFFER
:DUMMY BUS ADDRESS
:DUMMY WORD COUNT
:CLEAR DISK ADDRESS
:CLEAR CYLINDER ADDRESS
:16 BIT FORMAT
‘WRITE REGISTER INDEX TABLE

#RMCST,(R3)+

BR
NOP
EMT
JMP
JSR

50$

PC,PUT

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

1108
PC,TIMOUT

160 TO S0$ IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEFINED BY PUT SUBROUTINE
260 T0 1108 IF ERROR
:WAIT FOR GO TO RESET

PC,GET

;60 READ REGISTER(S) WITH GET SUBROUTINE

BR
NOP
EMT
JMP

60$

1108

160 TO 60% IF NO ERROR
‘RETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
260 TO 1108 IF ERROR

JSR

PC,PRIERR

:60 CHECK FOR PRIMARY ERRORS

BR
NOP
EMT
JSR

708:

;60 WRITE RMCS1 VIA PUT SUBROUTINE

#200, (R3)

JSR

608:

PC,PUT

MOVB

JSR

001140
001142
001142
001142

1108

;60 TO 358 IF NO ERROR
*RETURN HERE IF ERROR
:ERROR DEF INED BY PUT SUBROUTINE
:60 T0 1108 IF ERROR

#200,PUTINX+1
:SET TERMINATOR BYTE
#PAKACK
!
GO,RMCS10
:SET RMCS1 OUTPUT BUFFER
= PAKACK'GO

MOVB

001140

35%

SEQ 0121

MOV

JSR

001414
001412

023572

000137

1016
1017
1018
1019
1020
1021

001410

£ 10

11-APR-80 13:04:53 PAGE 12-37

;SET VOLUME VALID BEFORE ISSUING FUNCTION CODE BEING TESTED
MOVB
W#RMCS1,PUTINX
:SETUP PUT INDEX TABLE

044154

023422

016237

001544
001410

023572
064766

045152

1015 023426

001543

044424

004737

000405
000240
104000
004736

35%:

000900

1014 023406

023412
023414
023416
023420

MACRO ¥03.01

JMP

MOV

BIC
MOV
BIC
CMP
BEQ
EMT

PC,alSP)+

1108

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

160 TO 110% IF ERROR

FNCDTB(R2),$GDDAT

#~CILF,$GDDAT
RMERT].$BDDAT
#*CILF.$BDDAT
$GDDAT.$BODAT
80%
254

:GET ENTRY FROM FUNCTION CODE TABLE

:;BAD DATA FOR TYPEOUT
;1S ILF
TYES!'!

STATUS CORRECT?

CZRMMAD RMO5/3/2 FCINL TST 1
133
ILLEGAL FUNCTION TEST
1022 023470
1023 023472
1026 023500
1025 023506
1026 023510
1027 023516
1028 0235%4
1029 023532
1030 023540
1031 023546
1032 023550
1033 023552
1034 023554
1035 023560
1036 023564

1037 023566
1038 023572
1039

000440
016237
032737
001403
052737
04¢c737
013737
042737
023737
001402
104255
000407
062702
022702
103402

000137

MACRO v03.01

F 10
11-APR=80 13:04:53 PAGE 12-38

SEQ 0122

067046
040000

001140
001346

100000
077777
001346
077777
001140

001140
001140
001142
001142
001142

000002
000076

BR
MOV
BIT
BEQ
BIS
BIC
MOV
BIC
cMP
BEQ
EMT
BR
ADD
CMP
BLO
JMP

80$:

90%:

100%:

023064

1108:

1040

AR A
A

T1ST34:

023572
023574
023576
023602
023606
1041 023612

000004
000240
012706
013700
013701
012737

001100
001276
001464
000034

1042 023620

004737

043150

023624

1043
1044
1045
1046
1047

023626
023630
023632
023634

023640
023640
023644
023650
023650

023654
023656
023660
023662
}828 023666

040000

000404
000240
104000
000137

024316

004737
012702

044070
000000

004737

053530

000404
000240
104000
000137

001226

10%:

024316

20%:

}82?

sTEST NEXT FUNCTION

X R R R R 22

I I TMTMmMmr

INVALID COMMAND TEST
R

SCOPE
NOP
MOV
MOV
MOV
MOV
JSR

5%:

108

J*TEST 34

023572

110%
FNCDTB(R2) ,$GDDAT
#ERR,RMDSI
sWAS AN ERROR DETECTED??
90%
:NO!'!
FATA ,SGDDAT
JYES = ATA SHOULD BE ON
#*CATA ,SGDDAT
RHDSl.‘BDDAT
sGET DRIVE'S ATTENTION
#*CATA,SBDDAT
$GDDAT,$BDDAT
;IS ATA STATUS 0K??
1008
Ve8!
255
110%
"2,R2
;GO TO NEXT FUNCTION CODE
WILF76,R2
;DONE??
110%
sYES !!

I I

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

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

PC,TSTPRP

sPREPARE DEVICE FOR TEST

.WORD

046000

BR
NOP
EMT
JMP

JSR
MOV

PC,GETSTS
#NOP ,R2

JSR

PC,CNTCLR

BR
NOP
EMT
JMP

110%

20%

110%

sTASK DESCRIPTOR AS FOLLOWS:

sCLEAR CONTROLLER & SELECT DEVICE
;60 TO 5% IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 110% IF ERROR
sSETUP FOR STATUS

GO ISSUE CONTROLLER CLEAR

260 TO 208 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR NUMBER DEFINED BY SUBROUTINE
;GO TO 110% IF ERROR

:EETlgéegNOST!C MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON

1052 023666

023676
023702
023710
023714
023716
023720
023722

112737

112737
012737
004737
000404
000240
104000
000137

000024

000200
000001
044424

024316

001543

001544
001434

=CYL

MOvVB

MOVB
MOV
JSR
BR
NOP
EMT
JMP

#RMMR1 ,PUTINX

#200,PUTINX#+1
#DMD ,RMMR10
PC,PUT
308
110%

sSETUP PUT

INDEX TABLE

sSET TERMINATOR BYTE
sSET RMMR1 OQUTPUT BUFFER = DMD
;60 WRITE RMMR1 VIA PUT SUBROUTINE
;G0 TO 30% IF NO ERROR
JRETURN HERE ]F ERROR
;ERROR DEFINED BY PUT SUBROUTINE
;GO TO 1108 IF ERROR

%gznnAo RMO5/3/72 FCINL TST 1

INVALID COMMAND TEST

1053 023726

1054 023726

112737

000024

004737

044424

023734
0237642

112737
012737

023756

000404

023750

023756
023760
023762

1055 023766
1056
1057

000240
104000
000137

000200
001401

MACRO v03.01 11-APR-B0 13:04:53 PAGg 12-39
001543

001544
001434

024316

012737
050237
012737
012737
005037
005037
012737
012703
112723
112723
112723
112723
112723

1075 024066
1076 024072

112713
004737

1079 024114

024120
024122
024124
024126

112723

000404
000240
104000
000137
004737
004737

000404
000240
104000
000137

000001
001410
103640
177777
001416
001444
010000
001543
000004
000002
000032
000006
000034

:SETUP PUT

PC,PUT

;60 WRITE RMMR1 VIA PUT SUBROUTINE

1108

:RETURN HERE IF ERROR
:ERROR DEF INED BY PUT SUBROUTINE
160 70 1108 IF ERROR

INDEX TABLE

#200,PUTINX+1
:SET TERMINATOR BYTE
#DMD ! MUR ' MOC ,RMMR 10
:SET RMMR1 OUTPUT BUFFER = DMD'MUR'MOC

35¢

NOP
EMT
JMP

024316

067046
167777
001376
167777
001140

MOV
BIS
MOV
MOV
CLR
CLR
MOV
MOV
MOVBE
MOVB
MOVBE
MOVB
MOVB

MOVB

MOVB
JSR

508 :

BR
NOP
EMT
JMP
JSR
JSR

024316

000137

016237
062737
013737
042737
023737
001402
104216
000440

001442

044154

024146

024152
024160
024166
024174
024202
024210
024212
024214

001414
001412

024316
044766

045152

1082
1083
1084
1085
1086
1087
1088
1089

408:

000000

004737

000405
000240
104000
004736

001410

000200
044424

1080 024132
108% 024132

024136
024140
024142
024144

W#RMMR1,PUTINX

:60 TO 35 IF NO ERROR

;VOLUME VALID IS LEFT RESET FOR THE TEST

1060 023766
1061 023766
1062 023774
1063 024000
1064 024006
1065 024014
1066 024020
1067 024024
1068 024032
1069 024036
1070 024042
1071 024046
1072 024052
1073 024056

024076
024100
024102
024104
}8;; 024110

MOVB

MOVB
MOV

JSR

35%:

}823

1074 024062

308
:

SEQ 0123

608:

70$:

;WRITE FUNCTION CODE IN BUFFER
:DUMMY BUS ADDRESS
:DUMMY WORD COUNT
:CLEAR DISK ADDRESS
:CLEAR CYLINDER ADDRESS
:16 BIT FORMAT
:WRITE REGISTER INDEX TABLE

#RMCST, (R3)+

#200, (R3)
PC,PUT

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

1108
PC,TIMOUT

160 TO 508 IF NO ERROR
:RETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
:G0 T0 1108 IF ERROR
:WAIT FOR GO TO RESET

PC,GET

;GO READ REGISTER(S) WITH GET

SUBROUTINE

BR
NOP
EMT
JMP

60%

1108

:6G0 TO 60% IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
;G0 TO 110% IF ERROR

JSR

PC,PRIERR

;G0 CHECK FOR PRIMARY ERRORS

BR
NOP
EMT
JSR
001140
001140
001142
001142
001142

#GO,RMCS10
R2,RMCS10
#BUFONE ,RMBAO
#-1,RMWCO
RMDAO
RMDCO
#FMT16,RMOFO
#PUTINX,R3
#RMBA, (R3)+
WRMWC.(R3)+
#RMOF
. (R3)+
#RMDA. (R3)+
WRMDC,(R3)+

JMP

MOV
BIC
MOV
BIC
CMP
BEQ
EMT
BR

70$

PC,a(SP)+

1108

;GO TO 708 IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY PRIERR SUBROUT INE
:G0 BACK FOR MORE ERROR CHECKS

:G0 TO 110 IF ERROR

FNCDTB(R2),$GDDAT
:GET ENTRY FROM FUNCTION CODE
#4C1VC,SGDDAT
RMER2]1.$BDDAT
;BAD DATA FOR TYPEOUT
#*C1vC,$BDDAT
$GDDAT,$BDDAT
;IS IVC STATUS CORRE(CT?
80%
SYES!!
216
1108

TABLE

CZRMMAD RMO5/3/2 FCTINL TST 1

134

INVALID COMMAND TEST

MACRO v03.01

1090 024216
1091 024226
1092 024232
1093 024234

016237
032737
001403
052737

067046
040000

001140
001346

1095 024250

013737

100000
077777

001346

001140
001140

1094 024242

1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106

024256
024264
024272
024274
024276
024300
024304
024310
024312
024316

042737

042737
023737
001402
104255
000407
062702
022702
103402
000137

077777
001140

001142

H 10
11-APR-80 13:04:53 PAGE 12-40

80S%:

90%:

001142
001142

000002
000076

100%:

023650

1108:

1107

SEQ 0124

MOv
BIT
BEQ
BIS

FNCDTB(R2) ,$GDDAT
PERR,RMDSI
sWAS AN ERROR DETECTED??
90%
sNO!!
#ATA,SGDDAT
sYES = ATA SHOULD BE ON

MOV

RMDSI,$BODAT

BIC

BIC
CMP
BEQ
EMT
BR
ADD
CMP
BLO
JMP

#*CATA ,SGDDAT

#*CATA,$BDDAT
$GDDAT,$BDDAT
100%
255
110¢
#2,R2
WILF76,R2
110%
108

;GET DRIVE'S ATTENTION
;1S ATA STATUS 0Kx??
sVES!!

260 TO NEXT FUNCTION CODE
sDONE??
sVES !!
sTEST NEXT FUNCTION

;*TEST 35

000004
000240
012706
013700
013701
012737

001100
001276
001464
000035

1109 024344

004737

043150

024350

0246352
024354
024356
024360
1110 024364

040000

1S135:

000404
000240
104000
000137

025106

1111 0246364
1112 024370

004737
012702

044070
000000

1114 024374

004737

053530

1113 024374

024400
024402
024404
024406
}}}2 024412

000404
000240
104000
000137

001226

108:

025106

20%:

R RS R

AR R

SCOPE
NOP
MOV
MOV
MOV
MOV

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

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

JSR

PC,TSTPRP

sPREPARE DEVICE FOR TEST

.WORD

5%:

INVALID ADDRESS ERROR TEST

026316
024316
0264320
024322
0264326
024332
1108 024336

046000

sTASK DESCRIPTOR AS FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE
;GO TO 5% IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 110% IF ERROR

BR
NOP
EMT
JMP

JSR
MOV

PC,GETSTS
#NOP,R?2

JSETUP FOR STATUS

JSR

PC,CNTCLR

GO0 ISSUE CONTROLLER CLEAR

BR
NOP
EMT
JMP

1108

20%

110%

;G0 TO 20% IF NO ERROR
sRETURN HERE IF ERROR
sERROR NUMBER DEFINED BY SUBROUTINE
;G0 TO 110% IF ERROR

:Esrlgéegnosuc MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON

1119 0246412

112737

024420
024426
024434

112737
012737
004737

024442
024444
024446

000240
104000
000137

024440

1120 024452

000404

000024

000200
000001
044424

025106

001543

JCYL

001544
001434

MOvVB

MOvVB
MOV
JSR

30%:

NOP
EMT
JMP

#RMMR1 ,PUTINX

sSETUP PUT

308

:G0 T0 308 IF NO ERROR

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

110%

INDEX TABLE

;SET TERMINATOR BYTE
sSET RMMR1 QUTPUT BUFFER = DMD
;60 WRITE RMFR1 VIA PUT SUBROUTINE
sRETURN HERE IF ERROR
ERROR DEFINED BY PUT SUBROUTINE
;GO TO 110% IF ERROR

RMO5/3/72 FCINL TST 1
MACRO v03.01
INVALID ADDRESS ERROR TEST

024452
0264460
024466
024474

024500

024502
024504
024506
}}gg 024512
1124
1125 024512

000404

025106

112737

000000

112737
012737
004737

0264542
024544
024546

000240
104000
000137

024552
024552
024560
024564
024572
024600
024606
024614

000024
000200
001401
0644424

000240
104000
000137

024520
024526
024534

024540

1126
1127
1128
1129
1130
1131
1132
1133

112737
112737
012737
004737

000404

000200
000023
044424

024666
024670
024672
024674
}}22 024700

000001
001410
103640
177777
177777
177777
010000
001543
000004
000002
000032
000006
000034
000000
000200
044424

1145 024704

004737

044154

1138
1139
1140
1141
11642

024622
024626
024632
024636

024642
024646
024652
024656
024662

024710
024712
024714
024716
1146 024722

000404
000240
104000
000137

1147 024722

004737

024732
024734

104000
004736

024726
024730

024736

1148 024742
1149 024750
1150 024756

000405
000240

000137

016237
042737
013737

358
001543

001544
001410

RETURN HERE IF ERROR
;ERROR DEFINED BY PUT SUBROUTINE
:60 TO 1108 IF ERROR

MOVB
MOV
JSR

408
:

NOP
EMT
JMP

MOV
BIS
MOV
MOV
MOV
MOV
MOV

50%:

MOV
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
JSR
BR
NOP
EMT
JMP
JSR
JSR

025106

608:

045152

067046
175777
001350

NOP
EMT
JMP

1108

:60 TO 358 IF NO ERROR

70%:

#200,PUTINX+1
:SET TERMINATOR BYTE
#PAKACK'GO.RHCSIO
sSET RMCS1 OUTPUT BUFFER = PAKACK'GO
PC,PUT
;60 WRITE RMCS1 VIA PUT SUBROUTINE

40%

1108
#GO,RMCS10
R2,RM(CS10
#BUFONE ,RMBAO
#-1,RMWCO
#-1,RMDAO
#-1,RMDCO
#FMT16,RMOFO
#PUTINX,R3
#RMBA, (R3)+
#RMWC.(R3)+
#RMOF
. (R3)+
#RMDA.(R3)+
#RMDC, (R3)+
#RMCST,(R3)+
#200, (R3)
PC,PUT
50%

:6G0 TO 408 IF NO ERROR

JRETURN HERE IF ERROR
JERROR DEFINED BY PUT SUBROUTINE
160 TO 1108 IF ERROR
JWRITE FUNCTION CODE IN BUFFER
;DUMMY BUS ADDRESS
;DUMMY WORD COUNT
sUSE INVALID DISK ADDRESS
JUSE INVALID CYLINDER ADDRESS
;16 BIT FORMAT

WRITE REGISTER INDEX TABLE

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

110%
PC,TIMOUT

;G0 TO S0% IF NO ERROR
;RETURN HERE IF ERROR
sERROR # DEFINED BY PUT SUBROUTINE
;G0 TO 110% IF ERROR
JWAIT FOR GO TO RESET

PC,GET

;G0 READ REGISTER(S) WITH GET

SUBROUTINE

BR
NOP
EMT
JMP

60%

JSR

PC,PRIERR

EMT
JSR

PC,a(SP)+

MOV
BIC
MOV

FNCDTB(R2), SGDDAI
;GET ENTRY FROM FUNCTION CODE
#*C1AE,$GDDAT
RMER1].$BODAT
:BAD DATA FOR TYPEOUT

BR
NOP

001140
001140
001142

35¢

;SET VOLUME VALID BEFORE ISSUING FUNCTION CODE BEING TESTED
MOVB
#RMCS1,PUTINX
sSETUP PUT INDEX TABLE

001414
001412
001416
001444
001442

025106
044766

025106

#RMMR1,PUTINX
;SETUP PUT INDEX TABLE
#200, PU?INX*I
sSET TERMINATOR BYTE
IDHD'HUR'HOC RHHRIO
;SET RMMR1 OUTPUT BUFFER = DMD'MUR'MOC
PC,PUT
;60 URITf RMMR1 VIA PUT SUBROUTINE

001410

SEQ 0125

MOVB
MOVB
MOV
JSR

025106

012737
050237
012737
012737
012737
012737
012737
012703
112723
112723
112723
112723
112723
112723
112713
004737
000404
000240
104000
000137
004737

1134
1135
1136
1137

001543
001544
001434

110

11-APR-B0 13:04:53 PAGE 12=41

JMP

1108
70%

1108

;G0 TO 60% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
160 TO 1108 IF ERROR

;G0 CHECK FOR PRIMARY ERRORS

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

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

160 TO 1108 IF ERROR

TABLE

1168 025074
1169 025100
1170 025102

1171 025106
1172
1173

001100
001276
001464
000036

NN NN NWNNO
~ VIR

025672

004737
012702

044070
000000

025170
025172
025174
025176

004737
000404
000240
104000
000137

053530

025210
025216
025224

:WAS AN ERROR DETECTED??

INO!!

RMDSI1,$BODAT

;GET DRIVE'S ATTENTION

SYES = ATA SHOULD BE ON

;IS ATA STATUS OK??
:YES!'!

AR Al

AR A

000404
000240

10%:

000024
000200
000001
044424

20%:

001543
001544
001434

LOCK
R

ERROR
R

FUNCTION
R

2222222

TEST

#STACK,SP

PC,TSTPRP

sPREPARE

EMT
JMP

110%

JSR

PC,GETSTS

;SETUP FOR STATUS

JSR
BR

PC,CNTCLR

;GO0 ISSUE CONTROLLER CLEAR

040000

20§

110%

;RO = UNIBUS ADDRESS

= DEVICE BEING TESTED

::SET TEST NUMBER IN APT MAIL BOX
DEVICE

FOR

TEST

:TASK DESCRIPTOR AS FOLLOWS:
;CLEAR CONTROLLER & SELECT DEVICE
:60 TO 58 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE

;G0 TO 110% IF ERROR

;GO TO 208 IF NO ERROR
;RETURN HERE I1F ERROR
;ERROR NUMBER DEF INED BY SUBRNUTINE
;G0 TO 1108 IF ERROR

sSET DIAGNOSTIC MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON
sCYLINDER, AND DIAGNOSTIC WRITE LOCK
#RMMR1,PUTINX
MOvVB
sSETUP PUT INDEX TABLE
MOvVB
#200,PUTINX+1
:SET TERMINATOR BYTE
MOv
JSR

SRR

TEST

JSR
.WORD

EMT
JMP

sINITIALIZE STACK POINTER
:(R1)

MOv

:SCOPE CALL

;START OF

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

NOP

025672

:DONE??
:YES !!
STEST NEXT

SCOPE

NOP

5%:

WRITE
AR

NOP
MOv
MOv
MOV
MOv

001226

;60 TO NEXT FUNCTION CODE

#ILF76.R2
110%
108

043150

000137

1181 025202
1182
1183
1184
1185 025202

1108
FNCDTB(R2),$GDDAT

1108
#2,R2

110%:

15136:

025142
025144
025146
025150
1176 025154
1177 025154
1178 025160

104000

217

#*CATA,SBDDAT
$GDDAT,$BDDAT
100%

1008:

SEQ 0126

;1S IAE STATUS CORRECT?
JYES!!

#ATA,SGDDAT
#*CATA,SGDDAT

TRTEST 36

004737
040000

$GDDAT,$BODAT
80%

255

024374

025140

#*C1AE,$BDDAT

#ERR,RMDS]

077777
001346
077777
001140

000137

000004
000240
012706
013700
013701
012737

1179 025164
1180 025164

BIC
(MP
BEQ
EMT
BR

100000

000002
000076

025106
025106
025110
025112
025116
025122
025126

1174
1175 025134

067046
040000

062702
022702
103402

001
001

J 10

11-APR-80 13:04:53 PAGE 12-42

175777
001140
o =2 00000000 o
o OCOONS =L VO W —
o &N =2 ANNNNON
= No
» NS NNNNNSNN
o WO WWWWWNWNO
WS

1151 024764
1152 024772
1153 025000
1154 025002
1155 025004
1156 025006
1157 025014
1158 025022
1159 025024
1160 025032
1161 025040
1162 025046
1163 025054
1164 025062
1165 025064
1166 025066
1167 025070

—

CIR MMAO RMO5/3/2 FCTNL TST 1
MACRO v03.01
135
INVALID ADDRESS ERROR TEST

#DMD ,RMMR10
PC,PUT

;SET RMMR1 OUTPUT BUFFER = DMD
;G0 WRITE RMMR1 VIA PUT SUBROUTINE

CZRMMAD RMOS/ 372 FCINL TST 1
136
WRITE LOCK ERROR TEST

025230
025232
025234
025236

1186 025242
1187 025242

000404
000240
104000
000137

025672

112737

000024

004737

044424

025250
025256

112737
012737

025270

000404

025264

025272
025274
025276
}}gg 025302
1190
1191 025302

000200
001411

000240
104000
000137

025672

112737

000000

025310
025316
025324
025330
025332
025334
025336

112737
012737
004737
000404
000240
104000
000137

000200
000023
044424

1193 025342
1194 025350
1195 025354
1196 025362
1197 025370
1198 025374
1199 025400
1200 025406
1201 025412
1202 025416
1203 025422
1206 025426
1205 025432

012737
050237
012737
012737
005037
005037
012737
012703
112723
112723
112723
112723
112723

000001
001410
103640
177777
001416
001444
010000
001543
000004
000002
000032
000006
000034

1207 025442
1208 025446

112713
004737

000200
044424

025454
025456
025460
}S?g 025464

000240
104000
000137
004737

025672
044766

1211 025470

004737

044154

1192 025342

1206 025436

025452

025474
025476
025500
025502
1212 025506
1213 025506

025512
025514
025516

112723

000404

000404
000240
104000
000137

004737

000405

000240
104000

K 10
MACRO v03.01 11-APR-80 13:04:53 PAGE 12-43

001543

308:

001544
001434

MOVB

WRMMR1,PUTINX

JSR

PC,PUT

MOVB
MOV

35%:
001543

001544
001410

001410

NOP
EMT
JMP

1108

;G0 TO 308 IF NO ERROR
JRETURN HERE IF ERROR
sERROR DEFINED BY PUT SUBROUTINE
:G0 TO 1108 IF ERROR

;SETUP PUT INDEX TABLE
#200,PUTINX+1
:SET TERMINATOR BYTE
#DMD 'MUR 'MOC 'MWP,RMMR10 ;SET RMMR1 OQUTPUT BUFFER = DMD'MUR'MOC
'MWP

35¢

1108

;60 URlTé RMMR1 VIA PUT SUBROUTINE

:6G0 TO 35% IF NO ERROR

:RETURN HERE IF ERROR
JERROR DEFINED BY PUT SUBROUTINE
:G0 TO 1108 IF ERROR

sSET VOLUME VALID BEFORE ISSUING FUNCTION CODE BEING TESTED
MOvVB
#RMCS1,PUTINX
JSETUP PUT INDEX TABLE

408
:

001414
001412
001442

000000

045152

308

025672

BR
NOP
EMT
JMP

SEQ 0127

MOVB
MOV
JSR
BR
NOP
EMT
JMP

#200,PUTINX+1
:SET TERMINATOR BYTE
#PAKACK'GO,RMCS10
sSET RMCS1 OUTPUT BUFFER = PAKACK'GO
PC,PUT
;60 WRITE RMCS1 VIA PUT SUBROUTINE
4L0%
;GO TO 40% IF NO ERROR
;RETURN HERE IF ERROR
JERROR DEFINED BY PUT SUBROUTINE
1108
160 TO 1108 IF ERROR

MOV
BIS
MOV
MOV
CLR
CLR
MOV
MOV
MOVB
MOVB
MOVB
MOVB
MOVB

#GO,RMCS10
R2,RMCS10
#BUF ONE ,RMBAOD
#-1,RMUCO
RMDAO
RMDCO
#FMT16,RMOFO
#PUTINX,R3

#RMBA, (R3)+
WRMWC.(R3)+
#RMOF .(R3)+
WRMDA.(R3)+
WRMDC.(R3)+

MOVB
JSR

#200, (R3)
PC,PUT

MOVB

50%:

608:

JWRITE FUNCTION CODE IN BUFFER
sDUMMY BUS ADDRESS
;DUMMY WORD COUNT
sCLEAR DISK ADDRESS
sCLEAR CYLINDER ADDRESS
:16 BIT FORMAT
JWRITE REGISTER INDEX TABLE

#RMCST,(R3)+

50%

;GO0 WRITE REGISTER(S) WITH PUT SUBROQUTINE

:6G0 TO 508 IF NO ERROR

NOP
EMT
JMP
JSR

1108
PC,TIMOUT

JRETURN HERE 1F ERROR
JERROR # DEFINED BY PUT SUBROUTINE
160 TO 1108 IF ERROR
JWAIT FOR GO TO RESET

JSR

PC,GET

;G0 READ REGISTER(S) WITH GET

BR
NOP
EMT
JMP
JSR

NOP
EMT

60%

SUBROUTINE

1108

;GO TO 60% IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
260 TO 1108 IF ERROR

PC,PRIERR

;G0 CHECK FOR PRIMARY ERRORS

70§

:G0 TO 708 IF NO ERROR

JRETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE

/3 2 FCINL TST 1

0162
7
4

7
7
7
7
7

MACRO v03.01

—NNNOO
S NN~
ONO~NON

N NN

SEQ 0128

70%:

JSR
JMP

PC,a(SP)
¢

:6G0 BACK FOR MORE ennoa CHECKS

BIC

#*CWLE ,SGDDAT
RHER\I.‘BDDIT
#*CWLE ,SBDDAT

sBAD DATA FOR TYPEOUT

MOV

N =

MOV

067046
040000

80%:

100000

077777
001346
077777
001140

90%:

000002
000076
000137

L 10

11-APR=-B0 13:04:53 PAGE 12-44

—

7
7
7

O=O—-=00
O NO~NO'N

N NN NN O NN 8 NV O NN N NN
NNNNYNUWNNOONNNNNN

b s e

VNS UIN=OOONO
VS NN —=O VO~V

OCK ERROR TEST

N LN N NN N NN NN NI NI N NV NI N N NI NUN) b b e

s il il

AN LN T ST N

s el el el

s i

il i

s i e

D i

i e

D i

il ot

T N N ST ST ST ST NT ST ST STNTNT NT.NT ST NT ¥

CZRMMAQ
136

100%:

025164

1108:

BIC
CMP
BEQ
EMT
BR

MOv

1108
60 T0 1108 IF ERR
FNCDTB(R2),$GDDAT
;GET ENTRY rnon FUNCTION CODE TABLE

$GDDAT ,$BDDAT

80%
220

sg:R.RHDSI

BIC

#~CATA,SBDDAT

CMP
BEQ
EMT
BR

ADD

CMP
BLO
JMP

JYES!!

1108
FNCDTB(R2) ,$GDDAT

BIT
BEQ
BIS
BIC

MOV

;1S WLE STATUS CORRECT?

USS AN ERROR DETECTED??
"

#ATA,SGDDAT
#~CATA,SGDDAT

sYES = ATA SHOULD BE

RMDS 1, $BODAT

sGET DRIVE'S ATTENTION

$GDDAT, $BDDAT

;1S ATA STATUS 0k??

100%

255

1108
"2 ,R2
FILF76,R2
110%
108

sYES!!

:GO TO NEXT FUNCTION CODE
;DONE??
sYES !!
sTEST NEXT FUNCTION

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

'TEST

ERROR ABORT TESTS

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

025712

000004
000240
012706
013700
013701
012737

025720
025724

004737
054130

025726
025730

000404
000240
104000

i§137:

001100
001276
001464
000037

001226

043150

SCOPE
NOP
MOv
MOv
MOv

000137

026224

004737
012702

044070
000000

004737

053530

10%:

#STACK,SP

JINITIALIZE

PC,TSTPRP

sPREPARE

MOv

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

JSR
.WORD

054130

108

NOP

EMT
JMP

:SCOPE CALL
:START OF TEST

80%

STACK POINTER

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

FOR

TEST

sTASK DESCRIPTOR AS FOLLOWS:

sCLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
sVERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ''SKI'" OR "PIP'" 1S SET
sVERIFY RECALIBRATION
;60 TO 108 IF NO ERROR
;RETURN HERE

ERROR

;ERROR ¥ DEFINED BY TSTPRP SUBROUTINE
;60 TO 80% IF ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
PC,GETSTS
JSR
:60 1O GETSTS SUBROUTINE
MOv
#NOP ,R2
:R2
= FUNCTION CODE

20%:

JSR

PC,CNTCLR

;60 ISSUE CONTROLLER CLEAR

CZRMMAD RMO5/3/2 FCTNL TST 1

157

ERROR ABORT TESTS

MACRO v03.01 11-APR-B0 13:04:53 PAGEM11%-45
BR
NOP
EMT

026224

001543
01544
001424

000014
000200
040000
064424

308:

JMP

80%

MOvB
MOovB

#RMERT,PUTINX

MOV

JSR
8R

i \ SN

—h
e
i e e DOOOOOOO

i i

S
S

D o

S
P

—

~N
N

—

NN O N 8

(R S

oo NN
o
w

NOP

004737

EMT

026224
000001
001410
103640
177777
000000
000000
010000
001543
000004
000002
000032
000006
000034
000000
000200
044424

001410

40$%:

004737

044766

1 026154

004737
000404
000240
104000
000137

044154

004737

045152

026160
026162
026164

MOV

MOv
MOv
MOv
MOV
MOV
MOV
MOvB
MOvB
MovB

MOvB
MOovB
MOvB
MOvB
JSR
BR
NOP

45%:

026150

JMP

BIS

001414
001412
001416
001444
001442

000002
000076

#UNS .RMER10
PC,PUT

40%

80%
#GO,RMCS10

R2,RMCS10

#BU
ONE , RMBAO
F
#-1,RMCO

#0,RMDAO
#0.RMDCO
#FMT16,RMOFO
#PUTINX,R3
#RMBA, (R3)+
#RMUC, (R3)+
#RMOF
. (R3)+
#RMDA
. (R3)+
#RMDC . (R3)+

50%:

60%:
70%:

80%:

;60 TO 308 If NO ERROR

sRETURN HERE

ERROR

;ERROR # DEFINED BY CNTCLR SUBROUTINE

;60 TO 80% IF ERROR

:SETUP PUT INDEX TABLE
sSET TERMINATOR BYTE
sSET RMER1 OUTPUT BUFFER = UNS
;G0 WRITE RMER1 VIA PUT SUBROUTINE
;60 _TO 40$ IF NO ERROR
;RETURN HERE IF ERROR
;ERROR DEFINED BY PUT SUBROUTINE
;60 TO 80$ IF ERROR
sWRITE FUNCTION CODE

;DUMMY
;DUMMY
sCLEAR
sCLEAR

IN BUFFER

BUS ADDRESS
WORD COUNT
DISK ADDRESS
CYLINDER ADDRESS

;16 BIT FORMAT
;WRITE REGISTER INDEX TABLE

#RMCST, (R3)+

#200, (R3)

PC,PUT

45%

;WAIT FOR COMMAND TO COMPLETE

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

JSR

PC,TIMOUT

;GO TO TIMOUT SUBROUTINE

JSR
BR

PC,GET

;G0 READ REGISTER(S) WITH GET SUBROUTINE

EMT
JMP

JSR
BR

NOP

026224

#200,PUTINX+1

EMT

NOP

026224

308

SEQ 0129

80%

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

PC,PRIERR

:60 CHECK FOR PRIMARY ERRORS

50%

60$

;60 TO 608 IF NO ERROR
sRETURN HERE

ERROR

EMT
JSR
JMP

PC,a(SP)+

80%

<ERROR # DEFINED BY PRIERR SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS
;G0 TO 80% IF ERROR

ADD
CMP

#2,R2
NILF76,R2

sADVANCE FUNCTION CODE
:ggNg.ALL COMMANDS

BHIS

20%

(ZSHHAO RHOS/S/Z FCTNL IsT 1
RMR

MACRO v03.01

1281

N 10
11-APR=-80 13:04:53 PAGE 12-46

SEQ 0130

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

'TEST 40

RMR TEST

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

TST‘O

000004

013701
012737

1282

001100
001276
001464
000040

1283 026252

004737
040000

026260
026262
026264
026266
84 026272

000404
000240
104000
000137

026664

026272

004737

044070

112737
112737
012737
004737
000404
000240
104000

000024
000200
000001
044424

026256

0
1293 026436
1294 826436

1295 026454
1296 026454

000024
000200
001401
044424

000137

026664

112737
112737
012737
004737
000494
000240
104000

000000
000200
000023
044424

JSR

PC,TSTPRP

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

10%

EMT
JMP

100%

.WORD

108:

JSETUP GET

001543
001544
001434

20%:

JSR

EMT

001543
001544
001434

30%:

026664

004737
000404
000240

044154

000137

026664

308

sSETUP PUT INDEX TABLE
:SET TERMINATOR BYTE

:SET RMMR1 OUTPUT BUFFER
= DMD
;60 WRITE RMMR1 VIA PUT SUBROUTINE

:GO TO 308 IF NO ERROR
sRETURN HERE

ERROR

;ERROR DEFINED BY PUT SUBROUTINE
;60 TO 100$ IF ERROR

#RMMR1 ,PUTINX
;SETUP PUT INDEX TABLE
#200,PUTINX#+1
:SET TERMINATOR BYTE
#DMD ! MUR ! MOC ,RMMR10
;SET RMMR1 OUTPUT BUFFER = DMD!MUR'MOC
PC,PUT
;G0 WRITE RMMR1 VIA PUT SUBROUTINE
40%
;60 TO 408 IF NO ERROR

JMP

100%

MOVB

#RMCST1,PUTINX

MOvVB
MOV
JSR

EMT

JMP
JSR

NOP

EMT

60%:

#RMMR1 ,PUTINX
#200,PUTINX+1
#DMD ,RMMR10
PC,PUT

MOvVB
MOVB
JSR

50%:

;CLEAR CONTROLLER & SELECT DEVICE
;60 TO 108 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 100% IF ERROR

100%

NOP
EMT

001543
001544
001410

;:SET TEST NUMBER IN APT MAIL BOX

JMP

MOV

40%:

040000

;RO= UNIBUS ADDRESS

INDEX TABLE TO READ ALL REGISTERS
;GO TO GETSTS SUBROUTINE
PC,GETSTS

MOVB
MOVB
MOV
JSR

NOP

000137

000240

#40,8TESTN

(R1) = DEVICE BEING TESTED

NOP

112737
112737
012737

104000

MOV

TSTQUE
R

$BASE RO

NOP

026664

104000

#STACK,SP

MOV

001226

:SCOPE CALL

sSTART OF TEST
lNlTlALIZE STACK POINTER

MOV

043150

000137

004737
000404
000240

SCOPE
NCP

JMP

NOP

;RETURN HERE IF ERROR
;ERROR DEFINED BY PUT SUBROUTINE
;60 TO 1008 IF ERROR

:SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
#PAKACK'GO,RMCS10
;SET RMCS1 OUTPUT BUFFER = PAKACK':GO
PC,PUT
;60 WRITE RMCS1 VIA PUT SUBROUTINE
50%
;60 TO 508 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR DEFINED BY PUT SUBROUTINE
100%
;60 TO 1008 IF ERROR
#200,PUTINX+1

PC,GET

60$

100%

;GO0 READ REGISTER(S) WITH GET SUBROUTINE
;60 TO 608 iF NO ERROR
sRETURN HERE 1F ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;G0 TO 100% IF ERROR

0154
0154
0143

s SW

000024
000200
041401
044424

1297 026456
4
0

£H o

026664

1298 026516
1299 026516

000000
000200
000001
044424

001543
001544
001410

000137

026664

004737
000404
000240

044154

000137

026664

104000

80$%:

— g~

orWw

&S o

>
2
—_—

000000
000200
000015
044424

[ol=l=]
(=11]

026664

708:

85%:

90$%:

000004

001350

000004
001350

001140
001142

MOvB
MOovB
MOV
JSR
BR
NOP
EMT
JMP

WRMMRY,PUTINX

MOovB
MOvB
MOV

JSR
BR
NOP
EMT
JMP

MOovB
MovB
MOV

JSR
BR
NOP
EMT
JMP
JSR
BR
NOP
EMT
JMP

NOP

;SETUP PUT

INDEX TABLE

:SET TERMINATOR BYTE

#DMD | MUR ! MOC ' DBEN, RMMR 10
PC,PUT
;60 WRITE RMMR1

SET RMMR1 OUTPUT BUFFER
= DMD'MUR'MOC
' DBEN
VIA PUT SUBROUTINE

70$

:60 TO 708 IF NO ERROR

1008

*ERROR DEFINED BY PUT SUBROUTINE
160 T0 1008 IF ERROR

#RMCST,PUTINX
#200,PUTINX+1
#NOP!GO,RMCS10
PC,PUT

;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE
:SET RMCS1 OUTPUT BUFFER = NOP!GO
;G0 WRITE RMCS1 VIA PUT SUBROUTINE

80$

‘RETURN HERE

IF ERROR

160 TO 80% IF NO ERROR
‘RETURN HERE

ERROR

1008

:ERROR DEFINED BY PUT SUBROUTINE
160 TO 1008 IF ERROR

#RMCS1,PUTINX

;SETUP PUT

85$

160 TO 85% IF NO ERROR

INDEX TABLE

#200,PUTINX+1
;SET TERMINATOR BYTE
#OFFSET!GO,RMCS10
<SET RMCS1 OUTPUT BUFFER = OFFSET'GO
PC,PUT
:60 WRITE RMCS1 VIA PUT SUBROUTINE

1008
PC,GET

90§

100%

;RETURN HERE

ERROR

;ERROR DEFINED BY PUT SUBROUTINE
160 TO 1008 IF ERROR

:6G0 READ REGISTER(S) WITH GET

160 TO 908 IF NO ERROR
;60 TO 100% IF

ERROR

#RMR ,RMER1]

;1S RMR SET

MOV
MOv

#RMR ,$GDDAT
ggSRll.SBDDAT

;EXPECTED STATUS
;RECEIVED STATUS

EMT

100%

SUBROUTINE

sRETURN HERE IF ERROR
;ERROR # DEFINED By GET SUBROUTINE

BIT

BNE

100%:

#200,PUTINX+1

SEQ 0131

s¥ES

¢!

:."Qt"".".'."""'.""""l.'.""t"'l"."t"tt'."""t"

s*TEST 41

PARITY ERROR TEST

e 2222222222322
2 R
22
2R
Rl

—

-t

TST41:

026704

012737

026712
026716

004737
040000

026720
026722

000404
000240

001100
001276
001464
000041

043150

001226

SCOPE
NOP

:SCOPE CALL

MOv

#STACK,SP

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

sSTART OF TEST
SINITIALIZE STACK POINTER
:RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
S:SET TEST NUMBER IN APT MAIL BOX

JSR
.WORD

PC,TSTPRP

;PREPARE DEVICE FOR TEST

108

MOV
MOV
MOV

NOP

040000

STASK DESCRIPTOR AS FOLLOWS:

“CLEAR CONTROLLER & SELECT DEVICE
260 10 108 IF NO ERROR
;RETURN HERE

ERROR

—

RMR
T

—

140

MACRO v03.01 11-APR-80 13:04:53 PAGg 12=47
[=l=l=]

| CZRMMAO RAOS/3/2 FCTNL ST 1

i e ZRMMAD RMO5/3/2 FCTNL TST 1
T41

PARITY ERROR TEST

0267264
Soay 8523%3

104000
000137

027104

1317 026732
1318 026736
1319 026736

012702

000001

004737

053530

026742

000404

c "
MACRO v03.01 11-APR-80 13:04:53 PAGE 12-48

.
208:

SEQ 0132

EMT
JMP

708

JERROR # DEFINED BY TSTPRP SUBROUTINE
160 T0 708 IF ERROR

MOV

#,R2

:R2 = DATA PATTERN

JSR

PC,CNTCLR

;60 1SSUE CONTROLLER CLEAR

NOP
EMT
JMP

708

:RETURN HERE IF ERROR
*ERROR # DEFINED BY CNTCLR SUBROUTINE
260 TO 708 IF ERROR

(R1),R3
#~CUNTMSK
,R3
#PAT,R3
R3,RMCS20
R2,RMDAD

;SETUP RMCS2

30$

:60 TO 308 IF NO ERROR

026744
026746
026750
1320 026754
1321 026754
1322 026756
1323 026762
1324 0267
1325 026772
1326 026776
1327 027002
1328 027006
}ggwmu

000240
104000
000137

027104

111103
042703
052703
010337
010237

177770
000020
001420
001416

MOVB
BIC
BIS
MOV
MOV

1331 027016

004737

044424

JSR

PC,PUT

sG0 WRITE REGISTER(S) WITH PUT SUBROUTINE

004737

044154

JSR

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

012703
112723
112723
112723

001543
000010
000006
000200

MOV
MOVB
MOVB
MOVB

027022
0270264
027026
1332 027030
1333 027030
027034
027036
027040
027042
1334 027046
1335 027046

000404
000240
104000
000137

027104

032737

000010

001350

1337 027056
1338 027064
1339 027072

012737
013737
010237

000010
001350
001174

001140
001142

1336 027054

1340 027076

1341 027100
1342 027100
1343 027102
}gtg 027104

000402
000240
104000

308:

001011

104223

408
:

508:

708 :

13‘6

BR
NOP
EMT
JMP
BIT

40$

50%

160 TO 40% IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY PUT SUBROUTINE

708

;GO 70 50% IF NO ERROR
JRETURN HERE IF ERROR
*ERROR # DEFINED BY GET SUBROUTINE
160 TO 70$ IF ERROR

#PAR,RMER1I

;1S PARITY ERROR SET

#PAR,$GDDAT
RMERTI,$BODAT
R2,$TMPO

JEXPECTED STATUS
:RECEIVED STATUS
*DATA PATTERN

BNE

608

EMT

22%

ASL
BNE

R2
20%

MOV
MOV
MOV

608:

006302
001315

BR
NOP
EMT

#PUTINX,R3
WRMCS2,(R3)+
#RMDA, (R3)+
#200,(R3)+

sOUTPUT VALUE TO RMCSZ2
sVALUE TO RMDA
;WRITE REGISTER OUTPUT INDEX

TYES !

:ADVANCE DATA PATTERN
*BRANCH IF NOT DONE

.':l'l"'...t.""""'t"""'..tt.li'.t."l"...tt't't't"tt't.'

SRTEST 42

ILLEGAL REGISTER TEST

""t..'t'.lttl""t"'lt'"t"'t".t"'.'.tt."'tl'it".tt'.tltt't

027104
0271064
027106
027110
027114
027120
o 0271264

000004
000240
012706
013700
013701
012737

001100
001276
001464
000042

1348 027132

004737

043150

027136

040000

15142:

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

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

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

JSR

PC,TSTPRP

sPREPARE DEVICE FOR TEST

.WORD

040000

STASK DESCRIPTOR AS FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE

CZRMMAQ RMO5/3/2 FCTNL TST 1

162

027432

005005
004737

044070

000404
000240
104000
000137

~
~

POPOIPNININI
N b
it e e e o s b et —
NN L &~
L
o

Nt 2 O

8°°°°°OOOO°°OOO o

~
NN NN
N NN~
~ SNNNNNNNNNNNNNN -~ ~

VNNV
S

ONOWVSWNN—=OV

NN NN N N NN N N

— i i e s s e i P el

ILLEGAL REGISTER TEST

005002

004737
000404
000240
104000
000137

000300
053530

027344

052056

004737
000404
000240
104000
000137

044154

104256

108:

D11
11-APR-80 13:04:53 PAGE 12-49
BR
NOP
EMT
JMP

10%

CLR
JSR

MOV
MOV
MOV
MOV

000004
000006
20%:

CLR

JSR
BR
NOP

004737
000404
000240
104000
000137

004737
000405
000240
104000
004736
000137
010537
013737
042737
023737
001403
010237

MACRO v03.01

027432

027344
045152

027344
001140
001350

EMT

30%:

35%:

40%:

50%:

177775

001140

001174
70%:

JMP
MOv
ADD

CLR
JSR
BR
NOP
EMT
JMP

PC,GETSTS

ERRVEC,=(SP)
ERRVEC+2,-(SP)
#1108 ,ERRVEC

=SR6.ERRVEC02
PC,CNTCLR

30§

708
RO,R3
R2.R3

(R3)

PC,DEVSEL

120%

;60 TO 108 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;60 TO 1208 IF ERROR
;RS
= EXPECTED STATUS
SETUP FOR STATUS

::PUSH ERRVEC ON STACK

;:sPUSH ERRVEC+2 ON STACK
sSETUP FOR BUS TIMEOUT

:R2
= REGISTER INDEX

;GO ISSUE CONTROLLER CLEAR

;GO TO 308 IF NO ERROR

sRETURN HERE IF ERROR
;ERROR NUMBER DEF INED BY SUBROUTINE
;60 TO 708 IF ERROR

;R3 = REGISTER ADDRESS

;CLEAR THE REGISTER
;GO SELECT DEVICE

;60 TO 35% IF NO ERROR

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

;60 TO 120% IF ERROR

JSR
BR
NOP
EMT
JMP

PC,GET

JSR
BR
NOP
EMT
JSR
JMP

PC,PRIERR

;G0 CHECK FOR PRIMARY ERRORS

PC,a(SP)+

;60 BACK FOR MORE ERROR CHECKS

MOv
MOV

BIC
CMP
BEQ
MOV
EMT
ADD
CMP
BNE
MOV
MOV

BIC
CMP
BEQ

MOV

80%:

120%

SEQ 0133

CMP

40%
708

50%

70%
R5,$GDDAT

RMER11,$BDDAT
#*CILR,$BDDAT
$GDDAT,$BDDAT

;GO READ REGISTER(S) WITH GET SUBROUTINE

;60 TO 408 IF NO ERROR

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

;G0 TO 708 IF ERROR

;60 TO 508 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE

;G0 TO 708 IF ERROR

;GET DRIVE'S ILR STATUS
lS ILR STATUS 0k??
YES!

70%
R2,$TMPO

SAVE 'R2 FOR ERROR DATA

#RMBAE ,R2

:#g.qexv REGISTER RMBAE??

256
#2,R2

80%

#A16'A17,RMCST(RD) :

;SET A16 & A17

#*C<BITO'BIT1>,RS

:CLEAR ALL BUT

RMBAE (RO) ,R3

1S THIS AN RH70??

#BITO!BITT,R3
100%
FILR,RS
100%
FRM(S3+2,R2

Agg ADDRESS BITS ON ??

INO = EXPECT

ILR
=

+SHOULD ILR BE SET??

ADDRESS BITS

CZRMMAD RMOS5/372 FCTINL TST 1
142
ILLEGAL REGISTER TEST

E 11

MACRO v03.01 11-APR=80 13:04:53 PAGE 12-50

1385
1386
1387
1388

3
3
:
:908:

1390
1391

:100%:
BR
20%
;THE FOLLOWING CODING FOR HANDLE RH70

1389

1392

1393 027344
1394 027350

062702
022702

000002
000050

012760

001400

016003

000050

1395 027354
1396 027356
1397 027360

101314
103420
012705

1399 027372

012702

1398 027364

1400 027376

1401
1402
1403
1404
1405
1406

027402
027406
027412
027414
027420
027426

042703
022703
001402
012702
022702
101402

1409 027430
16410 027432

022626

}28; 027426

027432
}2}5 027436

000002

000054

BLO

90%
#ILR,RS
100%
#76,R2

120§

JNO!!
SYES!!
:DONE??

SYES!!

:REGISTER NUMBERS IS EITHER 22 OR 32

708 :

000000

ADD
CMP

20%
80%
#ILR,RS

MOV

#54 ,R2

MOV

177774
000003
000050
000074

808 :

000006
000004

1‘.]3

; INCREMENT THE REGISTER ADDRESS
;TIME TO CHECK THE EXTEND ADDRESS REG ?
sBRANCH IF NOT
sBRANCH IF ALREADY SET UP
:EXCEPT ILR HAPPEND

#AT6IA17,RMCST(RD)
S50(RO) ,R3

BIC
CMP
BEQ
MOV
CMP
BLOS

#177774 ,R3
#BITO'BITI,R3
80%
#50,R2
074 ,R2
120%

CMP

(SP)+,(SP)+

MOV
MOV

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

BR
1108:
120%:

#2,R2
#50,R2

BHI
BLO
MOV

MOV

000667

012637
012637

BNE
MOV
BR
(MP

SEQ 0134

20%

:SET EXTENDED ADDRESS BITS

;SET ADDRESS TO 54,IF 22 REGISTERS

:1S THIS 22 REG RH70 2

;LEFT ONLY BIT
;BIT O AND BIT
;:BRANCH IF SO
;OTHERWISE
,SET
;ALL REGISTERS
:BRANCH IF SO

O AND BIT 1
1 SET AT THE SAME TIME
ADDRESS TO 50
CHECKED ?

:NEXT REGISTER

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

".'tt.tt.t.'.k.'t't"t""""t"tttlt'tltt'.ttt't".tt"t"tt'ttt

;*TEST 43

SEEK LAST CYLINDER

;:ttttitl'.tttl"t'ttttt't"t't..ti'tt't'.tttttttt'tt't'tt'tttt.'

027442
027442
027444
027446
027452
027456
027462

000004
000240
012706
013700
013701
012737

1415 027476
1416 027476
027502

004737
054130

1y, 027470

027504
027506
027510
027512
1417 027516
1418 027516
1419 027524

012737

TST43:

001100
001276
001464
000001

000043

001206

001226

000404
000240
104000
000137

027730

012737
012737

001466
000000

001444
001416

#STACK,SP
$BASE ,RO
TSTQUE ,R1
#1,8TIMES

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

JSR
.WORD

PC,TSTPRP
054130

;PREPARE DEVICE FOR TEST
:TASK DESCRIPTOR AS FOLLOWS:

MOV
108:

043150

SCOPE
NOP
MOV
MOV
MOV
MOV

80%:

#.5,$TESTN

::SET TEST NUMBER IN APT MAIL BOX

;CLEAR CONTROLLER & SELECT DEVICE

BR
NOP
EMT
JMP

80%

140%

:VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
:RECALIBRATE IF "'SKI'* OR 'PIP'' 1S SET
;VERIFY RECALIBRATION
;G0 TO 80% IF NO ERROR
;RETURN HERE IF ERROR
:ERROR # DEFINED BY TSTPRP SUBROUTINE
;G0 TO 140% IF ERROR

MOV
MOV

#822.,RMDCO
#0,RMDAQ

:LAST CYLINDER
sTRACK = 0, SECIOR = 0

CZRMMAQ

MACRO v03.01
o.—.-a—..a_a—‘

143

000005
001543
000034
000006
000000
000200
0464424

001410

MOV
MOV
MovBe
MOvVB
MOvVB
Move

JSR
BR

NOP

004737
027612
027616
027620
027622
027624
027630
027630
027634
027636
027640
027642
027644
1433 027650
1434 027650
027654
027656
027660
027662
027664
1435 027670
1436 027670
027674
027676
027700
027702
027704
027706
027710
027714
027714
027720
027722
027724
027726
027730

027730
044070
044766

004737
000404
000240

044154

000137

027730

004737
000405
000240

045152

104000

90%:

100%:

104000

004736
000137

004737
000405
000240

027730

052270

110%:

104000

004736
000137

027730

004737

051644

115760

000010
000405
000240
104000
004736
000137

004737
000403
000240

027730
046004

120%:

130%:

104000

004736

11-APR-80 13:04:53 PAGE 12-51

140%:

EMT
JMP

#SEEK'GO,RMCS10 ;LOAD SEEK

COMMAND IN BUFFER,

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

:R2 POINTS TO REGISTER TABLE°
;WRITE REGISTER INDEX TABLE

#200,(R2)+

;WRITE TERMINATOR
;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE
;60 TO 908 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;GO _TO 1408 IF ERROR
;SETUP FOR STATUS FETCH

#RMCST, (R2)+

PC,PUT

90§

140%

JSR
JSR

PC,GETSTS
PC,TIMOUT

JSR
BR
NOP
EMI
JMP

PC,GET

140%

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

JSR
BR
NOP
EMT
JSR

PC,PRIERR

;60 CHECK FOR PRIMARY ERRORS

JSR
BR
NOP
EMT
JSR
JMP

SEKSTS
$

JMP

;WAIT FOR SEEK TO COMPLETE

100%

;60 TO 1108 IF NO ERROR
;RETURN HERE IF ERROR

110%

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

L(SP)+

;G0 TO 1408 IF ERROR

;GO VERIFY RESULTS OF

SEEK OPERATION
;60 TO 120% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY SEKSTS SUBROUTINE

PC,a(SP)+

1408

;GO BACK FOR MORE ERROR CHECKS
;G0 TO 140% IF ERROR

JSR
.WORD
.WORD
BR
NOP
EMT
JSR
JMP

PC,CMPERRSTS
ND TMSK
DPE

;MASK FOR RMER1
;MASK FOR RMER?2

JSR
BR
NOP
EMT
JSR

:CHECK ANY ERRORS NOT MASKED

130%

;60 TO 1308 IF NO ERROR

PC,a(SP)+

140%

;ERROR # DEFINED BY CMPERRSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
;60 TO 1408 IF ERROR

PC,SECERR

;G0 CHECK FOR SECONDARY ERRORS

;RETURN HERE

1408

ERROR

;G0 TO 140% IF NO ERROR
;RETURN HERE

PC,a(SP)+

ERROR

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

ARl
Rl
2R
REE]

SRTEST 44

SEEK

FIRST

CYLINDER

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

027730
027730
027732
027734

000004
000240
012706

15T44:
001100

SCOPE
NOP

MOV

#STACK,SP

s SCOPE CALL
;START OF TEST
;INITIALIZE STACK POINTER

SEQ 0135

1444 027764

043150

1442
1443 027764

027770

030216

000404

e
s
D e
o

WWWWNNN-‘—‘—‘—.g
S S N1 Yo 4 ST
oonoo sLo X« X ST T

VWA
SS B

o
e
o
o
e
—
—>
s —b
b
b

NN U NN N NN NN

[=lelelelelelele] elelelalelelelelelelele]

N NN NN

004737

=lelelelelelelelelelelelelelelelele]e]e]

10%:

000404
000240

Ottt
i OOOO
OO =
e i
SNONNONNNONON

027772
027774
027776
030000
030004
030004
030012
030020
030026
030032

—

001276
001464
000001
000044

027740

027744
027750
027756

MACRO v03.01

OO
oo

(ZRMMAQ RMO5/3/72 FCINL TST 1
144
SEEK FIRST CYLINDER

€00000
000000
000005
001543
000034
000006
000000
000200
044424

030216
044070
044766

001444
001416
001410

80%:

90%:

G 11
11-APR-80 13:04:53 PAGE 12-52
MOV
MOv
MOv
MOv

;RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
::D0 1 ITERATION
;sSET TEST NUMBER IN APT MAIL BOX

JSR
.WORD

;PREPARE DEVICE FOR TEST
s TASK DESCRIPTOR AS FOLLOWS:

80%

MOv
MOv
MOv
MOv
MOvVB
MOvB
MOVB
MOvB

#0.,RMDCO
#0,RMDAO
#SEEK!GO,RMCS10
#PUTINX ,R2
#RMDC, (R2)+
#RMDA, (R2)+
#RMCST, (R2)+

004736
000137

030216

004737

051644

115760

120%:

;CYLINDER = 0

;TRACK = 0,

SECTOR = 0

;LOAD SEEK COMMAND IN BUFFER

:R2 POINTS TO REGISTER TABLE

;WRITE REGISTER INDEX TABLE

;GO READ REGISTER(S) WITH GET SUBROUTINE
;G0 _TO 1008 IF NO ERROR

1408

;ERROR # DEFINED BY GET SUBROUTINE
;G0 TO 140% IF ERROR

PC,PRIERR

;G0 CHECK FOR PRIMARY ERRORS

JSR
NOP

104000

;G0 TO 140% IF ERROR

PC,GET
1008

045152

052270

sERROR # DEFINED BY TSTPRP SUBROUTINE

PC,GETSTS
PC,TIMOUT

004737
000405
000240

ERROR

NOP
EMT
JMP
JSR
JSR

030216

110%:

sWRITE TERMINATOR
;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;60 TO 908 IF NO ERROR
+RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;G0 TO 140% IF ERROR
;SETUP FOR STATUS FETCH
;WAIT FOR SEEK TO COMPLETE

NOP
EMT
JMP

030216

#200,(R2)+

sRETURN HERE

PC,PUT

JSR

004736
000137

140%

sRECALIBRATE IF ''SKI'" OR "'PIP'" IS SET
sVERIFY RECALIBRATION
;GO TO 80% IF NO ERROR

JSR

044154

104000

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

BR
NOP
EMT
JMP

004737
000404
000240
104000
000137

100%:

SEQ 0136

90$

140%

1108

;RETURN HERE

ERROR

;60 TO 110% IF NO ERROR
;RETURN HERE

ERROR

EMT
JSR
JMP

PC,a(SP)+

1408

;G0 TO 140% IF ERROR

JSR

PC,SEKSTS

;60 VERIFY RESULTS OF SEEK OPERATION
;60 TO 120% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR ¥ DEFINED BY SEKSTS SUBROUTINE

NOP
EMT
JSR
JMP

JSR
.WORD

1208

PC,a(SP)+

1408

PC,CMPERRSTS
ND TMSK

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

;60 BACK FOR MORE ERROR CHECKS

.60 TO 140% IF ERROR

;CHECK ANY ERRORS NOT MASKED

;MASK FOR RMER1

CZRMMAQ RMO5/3/2 FCINL TST 1
144
SEEK FIRST CYLINDER

000010
000405
000240
104000
004736
000137

1465
1466

004737
000403
000240

1467 030216
1468
1469

MACRO v03.01

030216

H 11
11-APR-80 13:04:53 PAGE 12-53
.WORD
BR
NOP
EMT
JSR
JMP

130%:

046004

104000
004736

140%:
AR

AR Al

TRTEST 45

DPE
130%

:MASK FOR RMER?2
160 TO 1308 IF NO ERROR

PC,a(SP)+

:6G0 BACK

PC,SECERR

;60 CHECK FOR SECONDARY ERRORS

*RETURN HERE IF ERROR

:ERROR # DEFINED BY CMPERRSTS SUBROUTINE

1408

JSR
BR
NOP
EMT
JSR

:RETURN HERE

ERROR CHECKS

:6G0 TO 1408 IF NO ERROR
IF

ERROR

:ERROR # DEFINED BY SECERR SUBROUTINE

PC,a(SP)+

FOR MORE

:6G0 TO 1408 IF ERROR

1408

SEQ 0137

:6G0 BACK

FOR MORE

ERROR

A E

CHECKS

SRR}

SEEK PRIME CYLINDERS

i
—

P ol o o
NNNN
W
—-=O

‘".l..'...."t""".""""""'.'..Q'....""'."'.tl"."".t

030216
030216
030220
030222
030226
030232
030236
030244
030252
030260
030260
030264

T1ST4S:

004737
054130

001100
001276
001464
000002
000045

001206
001226

000001

001444

043150

10%:

SCOPE
NOP
MOV
MOv
MOv
MOv
MOv

:SCOPE CALL
#STACK,SP

$BASE ,R0

;START OF

TEST

SINITIALIZE

STACK

POINTER

‘RO = UNIBUS ADDRESS

TSTQUE ,R1
#2,8TIMES

:(R1) = DEVICE BEING TESTED
1:D0 2 ITERATIONS

MOv

#1,RMDCO

;FIRST

JSR
.WORD

PC,TSTPRP

#45,$TESTN

054130

$:SET TEST NUMBER IN APT MAIL BOX
CYLINDER =

;PREPARE

DEVICE

FOR

TEST

STASK DESCRIPTOR AS FOLLOWS:

:CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION

:PACK ACKNOWLEDGE

VOLUME

SVERIFY PACK ACKNOWLEDGE

030266

000404

000000
000005
001543
000034
000006
000000
000200

80%:

EMT
JMP

1508

000137

030530

004737
004737

044070
044766

90%:

160 TO 80S IF NO ERROR

‘RETURN HERE IF ERROR
*ERROR # DEFINED BY TSTPRP SUBROUTINE
160 TO 1508 IF

ERROR

#0,RMDAO
#SEEK!GO,RMCS10
#PUTINX,R2
#RMDC, (R2)+
#RMDA | (R2)+

;TRACK = 0, SECTOR = 0
;LOAD SEEK COMMAND IN BUFFER
:R2 POINTS TO REGISTER TABLE
‘WRITE REGISTER INDEX TABLE

JSR

#200, (R2)+
PC,PUT

:WRITE

90$

160 T0O 90% IF NO ERROR

NOP
EMT
JMP

JSR
JSR

#RMCST, (R2)+

1508
PC,GETSTS
PC.TIMOUT

VALID

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

MOv
MOv
MOv
MOvB
MOvB
MOvB

MOvB

044424

1483 030356
1484 030356
1485 030362
1486

80%

NOP

030530

030352

NOT

TERMINATOR

160 WRITE

*RETURN HERE

WITH PUT

ERROR

SUBROUTINE

*ERROR # DEFINED BY PUT SUBROUTINE
160 TO 1508 IF

ERROR

:SETUP FOR STATUS FETCH
‘WAIT FOR SEEK TO COMPLETE

MMAQO RM05/3/2 FCINL TST 1
SEEK PRIME CYLINDERS

030366
030372
030374
030376
030400
030404
030404
030410
030412
030414
030416
030420

004737
000404
000240
104000
000137

0446154

004737
000405
000240

065152

MACRO v03.01

I 11
11-APR-80 13:04:53 PAGE 12-54
JSR
BR

004737
000405
000240

030530

100%:

004737
115760
000010
000405
000240

030530

1108:

052270

004737
000405
000240

030530

1208:

051644

030530

130%:

046004

104000

004736
000137

006337
022737
103402
000137

1508

JSR
BR

PC,PRIERR

EMT
JSR
JMP

030530
001444
001000

140%:

001444

030260

150%:
AL

;60 T0 150

IF ERR

SUBROUTINE

PC,SEKSTS

;G0 VERIFY RESULTS OF SEEK OPERATION

PC,a(SP)+

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

1208

EMT
JSR
JMP

;RETURN HERE 1 F ERROR
;ERROR # D EF IN ED BV GET

1508

PC,A(SP)+

JSR
BR

g IS TER(S) UlTH GET SUBROUTINE
;G0 READ REG
;60 _TO 100 IF NO ERR

;G0 CHECK FOR PRIMARY ERRORS
;60 TO 1108 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;60 TG 150% IF ERROR

1108

NOP

104000

004736
000137

EMT
JMP

NOP

104000

004736
000137

1008

NOP

104000

004736
000137

PC,GET

SEQ 0138

1508

;60 TO 1208 IF NO ERROR

;GO TO 1508 IF ERROR

JSR
.WORD
.WORD
BR
NOP
EMT
JSR
JMP

PC,CMPERRSTS
NDTMSK
DPE

JSR
BR
NOP
EMT
JSR
JMP

PC,SECERR

150%

;G0 CHECK FOR SECONDARY ERRORS
;GO TO 1408 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 150% IF ERROR

ASL
CMP

RMDCO

sSHIFT TO NEXT PRIME CYLINDER

130%

PC,a(SP)+

150%

140%

PC,a(SP)+

#512.,RMDCO
150%
108

BLO
JMP
RS2

'TEST 46

sCHECK ANY ERRORS NOT MASKED

;MASK FOR RMER1

;MASK FOR RMERZ2

;60 TO 1308 IF NO ERROR
+RETURN HERE IF ERROR
;ERROR # DEFINED BY CMPERRSTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;60 TO 1508 IF ERROR

IES]?E TEST DONE??

160 DO NEXT

CYLINDER

s 22222

SEEK ZERO DIFFERENCE

TSka

0540

~
~

elelelelelele]e)

WiNN uu\suuuum

l'il"li.t't"'.""t""t""t".tl‘".'tlt..ttttll!llt't't'tl'

0550

0564

001100
001276
001464
000001
000046

043150

001206
001226
10%:

SCOPE
NOP
MOv
MOV
MOV
MOV
MOV

JSR
.WORD

#STACK,SP

:SCOPE CALL
;START OF TEST
;INITIALIZE STACK POINTER

$BASE ,RO
TSTQUE ,R1
#1,8TIMES
#66,8TESTN

;RO = UNIBUS ADDRESS

PC,

sPREPARE D EVIC
l E FOR TEST
P
OR AS FOLLOWS:
: TASK DESCRIPT

054

:(R1)

= DEVICE BEING TESTED

::D0 1 ITERATION
::SET TEST NUMBER IN APT MAIL BOX

CZRMMAD RMO5/3/2 FCTINL TST 1
146

SEEK

ZERO DIFFERENCE

030572
03057¢
030576
030600

000404
000240
104000
000137

031036

012703
012737
012737
012737
012702
112722
112722
112722
112722

000003
000000
000000
000005
001543
000006
000034
000000
000200

004737

044424

1507 030604
1508 030604
1509 030610
1510 030616
1511 030624
1512 030632
1513 030636
1514 030642
1515 030646
1516 030652
1517 030656
1518 030656
030662
030664
030666
030670
1519 030674
}gg? 030700

000404
000240
104000
000137
004737
004737

1522 030704
030710

004737
000404

030712
030714
030716

1523 030722
1524 030722

030726
030730
030732
030734

030736

031036
044070
044766

031036

004737

045152

1525 030742
1526 030742
030746
030750

000137

031036

004737
000405
000240

052270

030756

000137

031036

004737

051644

030752
030754

1527 030762
1528 030762

030766
030770
030772
030774
030776
031000

031002

104000
004736

115760
000010
000405
000240
104000
004736

000137

031036

J 1
11-APR-80 13:04:53 PAGE 12-55
SEQ 0139

808
:
001444
001416
001410

908
:

1008 :

044154

000240
104000
000137
000405
000240
104000
004736

MACRO v03.01

1208
:

BR
NOP
EMT
JMP
MOV
MOV
MOV
MOV
MOV
MOVB
MOVB
MOVB
MOVB
JSR

BR
NOP
EMT
JMP
JSR
JSR

1408:

1708
#3,R3
#0.RMDCO
#0,RMDAQ
#SEEK'GO,RMCS10
#PUTINX,R2
WRMDA, (R2)+
WRMDC,(R2)+
#RMCST,(R2)+
#200, (R2)+
PC,PUT

1008

:R3 = NUMBER OF SEEKS
:CYLINDER = 0
;TRACK = 0, SECTOR = 0
:FUNCTION CODE FOR SEEK
:R2 POINTS TO REGISTER INDEX
:WRITE REGISTER INDEX TABLE
:TERMINATE TABLE
;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

1708
PC,GETSTS
PC,TIMOUT

:6G0 TO 1008 IF NO ERROR
:RETURN HERE IF ERROR
sERROR # DEFINED BY PUT SUBROUTINE
160 TO 1708 IF ERROR
sSETUP FOR READING STATUS
JWAIT FOR COMPLETION

JSR
BR
NOP
EMT
JMP

PC,GET
1208

;GO0 READ REGISTER(S) WITH GET SUBRQUTINE
:60 TO 1208 IF NO ERROR

1708

:RETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
:6G0 TO 1708 IF ERROR

JSR

PC,PRIERR

;G0 CHECK FOR PRIMARY ERRCRS

BR
NOP
EMT
JSR
1308
:

80%

;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ''SK1'" OR 'PIP*" IS SET
sVERIFY RECALIBRATION
:G0 TO 80S IF NO ERROR
:RETURN HERE IF ERROR
sERROR # DEFINED BY TSTPRP SUBROUTINE
:G0 TO 1708 IF ERROR

JMP

JSR
BR
NOP
EMT
JSR

JMP

JSR

.WORD
.WORD
BR
NOP
EMT
JSR

JMP

130%

PC,a(SP)+

:G0 TO 1308 IF NO ERROR
:RETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

1708

160 TO 170% IF ERROR

PC,SEKSTS
1408

PC,a(SP)+

;GO0 VERIFY RESULTS OF SEEK OPERATION
160 TO 1408 IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY SEKSTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

PC,CMPERRSTS

;CHECK ANY ERRORS NOT MASKED

1708

NDTMSK
DPE
150%

PC,a(SP)+

1708

:60 TO 1708 IF ERROR

sMASK FOR RMER1
:MASK FOR RMER?
;G0 TO 150% IF NO ERROR
*RETURN HERE IF ERROR
JERROR # DEFINED BY CMPERRSTS SUBROUTINE
.60 BACK FOR MORE ERROR CHECKS

:G0 TO 170% IF ERROR

WWNWWNINININ)
= b

i e QS SS

ooV
OO SO

o lelelelelelslalale
=]

NN NN NN N NN N NN

=l=l=lelelelelelelele]-]

NO VSN
-

e
D

VW
W
NN W

[=2Ve]

CZRMMAD RMO5/3/2 FCTINL TST 1
146
SEEX ZERO DIFFERENCE

004737
000405
000240

104000
004736
000137

005303
001402
000137

046004

150%:

031036

030656

EMT
JSR

DEC
BEQ
JMP

170%:

SRTEST 47

o
W
o

coocooooOo

001100
001276
001464
000002
000047

WWW

wh
N

15147:

oo®

JMP

160%:

3 AL AL

31040

e Iy

JSR
BR
NOP

K 11
11-APR-80 13:04:53 PAGE 12-56

MACRO v03.01

043150

108:

A Rl

SCOPE
NOP
MOv
MOv
MOv
MOv
MOv

JSR
.WORD

PC,SECERR

;60 CHECK FOR SECONDARY ERRORS

1608

:6G0 TO 1608 IF NO ERROR
*RETURN HERE

:60 BACK FOR MORE ERROR CHECKS

1708

:6G0 TO 170 IF ERROR

:DONE ALL SEEKS??

1708
90$

SYES!!
:NO = GO DO NEXT SEEK

SEEK MAXIMUM DIFFERENCE FORWARD

ERROR

:ERROR # DEFINED BY SECERR SUBROUTINE

PC,A(SP)+

SEQ 0140

#STACK,SP

$BASE , RO

TSTQUE ,R1

#2,8TIMES

847, $TESTN
PC,TSTPRP

054130

s s s

S LSS
NT N1 N N

== wsawOOoOO0Oo

— b b

(=]

ONNNNO%OO\I‘V‘&
SN
=OO000
COoOfrorosrccoONNOS~NNO
oo

b md b —d b —d d ed md d b b D D D b b b
b e
N =

il
D

NN N N N

D
i

D ald

N N N NN N N N

D
-

N N N

(P AV N

i e

NN N

=lelelelelelelelelelelelelelelelelelelele
-

LT
o X af 2k 2k 2 2t2k 2
= OV NOWV
W —

e
T
e
e
e
P

ViAWV
LA

VWAL
VWAV

——

000000
000000
000005
001543
000006
000034
000000
000200

0464424

80%:

90%:

004737
004737

044070
044766

100%:

22222222222

*INITIALIZE

STACK POINTER

‘RO = UNIBUS ADDRESS

:(R1)

= DEVICE BEING TESTED

::D0 2 ITERATIONS

1:SET TEST NUMBER IN APT MAIL BOX
:PREPARE

DEVICE

FOR TEST

STASK DESCRIFTOR AS FOLLOWS:

;:CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
IF

VOLUME NOT

80%

MOV
MOV
MOV
MOV
MOvVB
MOvB
MOvVB
MOovB

#0,RMDCO
#0,RMDAO
#SEEK!GO,RMCS10
#PUTINX,R2

#200, (R2)+

:STEUP TERMINATOR BYTE

JSR

PC,PUT

;60 WRITE REGISTER(S) WITH PUT

160%

#RMDA, (R2) +

#RMDC , (R2)+

#RMCST, (R2)+
1008

EMT
JMP

1608

JSR
JSR

PC,GETSTS
PC,TIMOUT

VALID

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

BR
NOP
EMT
JMP

NOP

031350

RSS2

:SCOPE CALL
;START OF TEST

:PACK ACKNOWLEDGE

031350

;60 TO 80% IF NO ERROR
sRETURN HERE

ERROR

;ERROR # DEFINED BY TSTPRP SUBROUTINE
;G0 TO 160% IF

ERROR

sSEEK TO CYLINDER 0
;TRACK = 0, SECTOR = 0
;FUNCTION CODE FOR SEEK
*R2 POINTS TO REGISTER TABLE

‘WRITE REGISTER INDEX TABLE

IN TABLE

:60 TO 100% IF NO ERROR
*RETURN HERE

ERROR

SUBROUTINE

:ERROR # DEFINED BY PUT SUBROUTINE
160 T0 1608 IF

ERROR

:SETUP TO READ ALL REGISTERS
:WAIT FOR SEEK TO COMPLETE

MACRO v03.01 11-APR-80 13:04:53 PAG% 12=57

(Z RMMAD RMO5/3/2 FCINL TST 1
14 7
SEEK MAXIMUM DIFFERENCE FORWARD
NN
NN NN NN NNN
NNNNO OOV
S
WWNNVININ) = b s

i e
e
D e

031300
1563
1564

044154

000137

031350

004737
000405
000240

045152

104000
004736
000137

004737
000405
000240

104000
004736
000137

004737
115760
000010
000405
000240
104000
004736
000137
004737
000405
000240
104000

JSR
BR

031350
052270

031350

JSR
.WORD
.WORD
BR
NOP
EMT
JSR
JMP

140%:

046004

JSR
BR
NOP
EMT
JSR
JMP

:
1508

001444

NNNOoOO
N=OOVO~N

1ST
BNE

001444

MOv

JMP

160%:
R

R R R

TRTEST 50
guuuu

WNW
VWAL
NN
0oroMNoCO
S80S
—_-O0
orr

—

2 —

NN
N N N NN
WWNN

jeleleBlelelelelelele]le]

AL
NN~

JSR
BR
NOP
EMT
JSR
JMP

130%:

051644

001466
031160

JSR
BR
NOP
EMT
JSR
JMP

1208:

—

NOP
EMT
JMP

110%:

031350

WVIWAWVVWAWBVWWAWWDA

004737
000404

NN NN

D el el
il el

NN N N N N

il el el
i
el

S i

N LN N U N N

1561
1562

il il

1559
1560

jedel=lelelelelelelelelelelelelelelelelelelelete]

oo~

—_

1556 031206

15150:
001100
001276
001464
000001
000050

043150

10%:

;GO READ REGISTER(S) WITH GET SUBROUTINE
;60 TO 1108 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;60 TO 1608 IF ERROR

1108

1608
PC,PRIERR

;60 CHECK FOR PRIMARY ERRORS
;60 TO 1208 IF NO ERROR
;RETURN HERE IF ERROR
sERROR ¥ DEFINED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
;GO TO 160% IF ERROR

1208

PC,A(SP)+

1608

PC,SEKSTS

1608

;GO VERIFY RESULTS OF SEEK OPERATION
;GO TO 1308 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY SEKSTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;G0 TO 160% IF ERROR

PC,CMPERRSTS

s CHECK ANY ERRORS NOT MASKED

1308

PC,A(SP)+

NDTMSK
DPE
140%

;G0 TO 1408 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY CMPERRSTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;G0 TO 1608 IF ERROR

1608

PC,SECERR

1508

;G0 CHECK FOR SECONDARY ERRORS
;G0 _TO 1508 IF NO ERROR

PC,a(SP)+

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

#822.,RMDCO

3VES!!
sNO - SEEK

sRETURN HERE

1608

ERROR

;G0 TO 160% IF ERROR
;1S TEST DONE ?

90%

N R R

ARl

TO LAST

R R R R R R N R R R R RN RN AR RN RN RN

SEEX ADJACENT
R

SCOPE

JSR
.WORD

sMASK FOR RMER1
;MASK FOR RMER2

PC,a(SP)+

R RN RN R RN

NOP
MOV
MOV
MOV
MOV
MOV

001206
001226

PC,GET

SEQ 0141

#STACK,SP

$BASE
, RO

TSTQUE ,R1
#1,$TIMES

#50,8TESTN

CYLINDER

RN RN RN

R RS

FORWARD

RRRRE]

;SCOPE CALL
sSTART OF TEST
JINITIALIZE STACK POINTER

RO = UNIBUS ADDRESS
s(R1)

= DEVICE BEING TESTED

2:D0 1 ITERATION
ssSET TEST NUMBER IN APT MAIL BOX
1CE FOR TEST
;PREPARE DEVICE
PTOR
AS S FOLLOWS:
s TASK DESCRIPT

%ggnnno RMO5/3/72 FCTINL TST 1
SEEK ADJACENT FORWARD

MACRO v03.01

11-APR-80 13:04:53 PAGE

12-58

SEQ 0142

;CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE

VOLUME NOT VALID

:VERIFY PACK ACKNOWLEDGE

031412
031414
031416
031420
1576 031424
1577 031426
1578 031432
1579 031440
1580 031446
1581 031452
1582 031456

000404
000240
104000
000137

031660

012737
012737
012737
012702
112722
112722

000000
000000
000005
001543
000034
000006

}232 8?‘293

112722

000200

1584 031472

004737

044424

031500
031502
031506
1587 031510
}ggg 031514

000240
104000
000137
004737
004737

1590 031520

004737

031526
031530
031532

1591 031536
1592 031536

000240
104000
000137

031660

004737

045152

031544
031546
031550

000240
104000
004736

1583 031462

031476

031524

031542

031552

112722

000404

000405

000000

031660

044070

044766

1593 031556
1594 031556

031660

004737

052270

031564
031566
031570

000240
104000
004736

031572

000405

1595 031576
1596 031576

000137

031660

004737

051644

031616

000137

031660

031602
031604
031606
031610
031612
031614

1597 031622

115760
000010
000405
000240
104000
004736

90‘

BR
NOP
EMT
JMP

80$

MOV
MOV
MOV
MOV
MOVB
MOVB

#0,RMDCO
#0,RMDAO
#SEEXK'GO,RMCS10
#PUTINX,R2
#RMDC, (R2)+
#RMDA.(R2)+

:CYLINDER = 0
:TRACK = 0, SECTOR = 0
;FUNCTION CODE FOR SEEK
:R2 POINTS TO REGISTER INDEX
JWRITE REGISTER INDEX TABLE

MOVB

#200,(R2)+

;TERMINATE REGISTER TABLE

JSR

PC,PUT

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

1608

PC,TIMOUT

:RETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
160 TO 1608 IF ERROR
JSETUP FOR STATUS FETCH
;WAIT FOR COMPLETION

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

NOP
EMT
JMP

1608

JRETURN HERE 1F ERROR
JERROR # DEFINED BY GET SUBROUTINE
160 T0 1608 IF ERROR

JSR

PC,PRIERR

;60 CHECK FOR PRIMARY ERRORS

NOP
EMT
JSR

PC,a(SP)+

JRETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

JSR

PC,SEKSTS

;GO VERIFY RESULTS OF

NOP
EMT
JSR

PC,a(SP)+

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

JSR

PC,CMPERRSTS

MOVB

BR
100%:

044154

000137

031562

001444
001416
001410

808
:

NOP
EMT
JMP
JSR
JSR
JSR

BR
1108:

1208:

JMP

1308:

JMP

.WORD
.WORD
BR
NOP
EMT
JSR
1408
:

:RECALIBRATE IF "'SKI" OR "PIP"* IS SET
:VERIFY RECALIBRATION

JMP

1608

WRMCST,(R2)+

1008

PC,GETSTS

1108

1208

1608

1308
1608

NDTMSK
DPE
1408

PC,a(SP)+

1608

:60 TO 80$ IF NO ERROR
*RETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
160 TO 1608 IF ERROR

160 TO 1008 IF NO ERROR

:60 TO 1108 IF NO ERROR

:60 TO 1208 IF NO ERROR
160 TO 1608 IF ERROR

SEEK OPERATION

:6G0 TO 1308 IF NO ERROR
160 T0 1608 IF ERROR

sCHECK ANY ERRORS NOT MASKED
JMASK FOR RMER1
:MASK FOR RMER?
160 TO 1408 IF NO ERROR
*RETURN HERE IF ERROR
JERROR # DEFINED BY CMPERRSTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS

160 TO 1608 IF ERROR

- CIRMMAD RMO5/3/2 FCTNL TST 1

- 150

SEEK ADJACENT FORWARD

31
31
31
31
3
31642
31
31
3
3
31

fdedel=lelelelelele]-]

={=1=]

[=l=l=]

i
i
—

1598 031622

004737
000405

MACRO v03.01

N 11
11-APR-80 13:04:53 PAGE 12-59

046004

000137

031660

005737
001004
005237
000137

001444

1508:

001444
031472

1608:

JSR
BR
NOP
EMT
JSR
JMP

PC,SECERR

1508

;60 CHECK FOR SECONDARY ERRORS
;60 TO 1508 IF NO ERROR

PC,a(SP)+

sERROR ¥ DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;GO TO 160% IF ERROR

sRETURN HERE

1608

TST
BNE
INC
JMP

SEQ 0143

ERROR

:z6g§7 TIME THROUGH??

RMDCO
160%
RMDCO

SYES= SEEK TO ADJACENT CYLINDER FORWARD

90%

:‘t.'.'t'l.".t""""""""'t..'..."'t'.."'."""'Q".'."

S*TEST 51
P

15151:
001100
001276
001464
000001
000051

1607
1608 03
1609 03
03

043150

SCOPE
NOP

MOV
MoV
MOV
MOV
MOv

00 1206
00 1226
108:

SEEK ADJACENT REVERSE
R

T R

NN AR

RN AN RN

;SCOPE CALL
;START OF

TEST

#STACK,SP

¢INITIALIZE STACK POINTER

TSTQUE ,R1

:(R1) = DEVICE BEING TESTED
::D0 1 ITERATION
s:SET TEST NUMBER IN APT MAIL BOX

$BASE ,RO

#1,STIMES
#51,8TESTN

JSR
.WORD

;RO = UNIBUS ADDRESS

sPREPARE DEVICE FOR TEST
s TASK DESCRIPTOR AS FOLLOWS:

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

NONNNNNNN ~
NN OWW W
NSNS ~

W
N

pay

R QU

—h i
[ )

(=]

—

RN ~N

s = OO o

000404
000240
104000
000137
NN
N NN

OCVOENOWVSMWNN—-=O

e
e
[2

>
—D
b
s
s
b
>
et
b
—

oooocoocrorO
O O

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

000404

NOP

032172

000001
000000
000005
001543
000006
000034
000000
000200

064424

004737

032172
044070
044766

004737

044154

80%:

90%:

100%:

EMT
JMP

MOv
MOV
MOV
MOV
MovB
MOvB
MOvB
MOvVB

80%
160%
#1,RMDCO
#0,RMDAO

;VERIFY RECALIBRATION
;GO TO 80% IF NO ERROR

sRETURN HERE

ERROR

sERROR # DEFINED BY TSTPRP SUBROUTINE

;G0 TO 160% IF ERROR
sCYLINDER = 1

:TRACK = 0, SECTOR = 0

#SEEK'GO,RMCS10 sFUNCTION CODE FOR SEEK

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

:R2 POINTS TO REGISTER INDEX
;WRITE REGISTER INDEX TABLE

#200, (R2)+

sTERMINATE TABLE

JSR

PC,PUT

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

NOP
EMT
JMP
JSR
JSR

PC,GETSTS
PC,TIMOUT

:60_TO 1008 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;G0 TO 160% IF ERROR
:SETUP TO READ ALL REGISTERS
;WAIT FOR SEEK TO COMPLETE

JSR

PC,GET

;G0 READ REGISTER(S) WITH GET SUBROUTINE

#RMCST, (R2)+

100%

160%

000404
000240
104000
000137

6
2

004737
000405

060
062

004736
000137

36
36
0
g

CZRMMAQ RMO5/3/2 FCTINL TST 1
151
SEEK ADJACENT REVERSE

&
6

e
e
e
e
el e
e
D
)
e
e
el el
e
il
) el
el
—

WV
= b

NN
NN

[elelelelelelelelelelelelelelelelelelelelele]
WA U L L W U L U N U U N LN U L
N N NN N N NN N

Rt
v S

1108

065152

032172

120%:

052270

004736
000137

032172

004737

051644

004736
000137

004737
000405
000240

130%:

032172

140%:

046004

104000

004736
000137
022737
001004
005337
000137

032172
000001

001444

001444
032002

150%:

160%:

S
o0

D
et
d
s
b
e
—

032172

104000

115760
000010
000405
000240
104000

110%

EMT
JMP

160%

NOP

000240
104000

004737
000405
000240

ococoococooo

1
MACRO v03.01 11-APR=80 13:04:53 PAGEB 1%-60

SEQ 0144

;60 TO 1108 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;60 TO 1608 IF ERROR

1208

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

PC,a(SP)+

1608

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

JSR
BR
NOP
EMT
JSR
JMP

PC,SEKSTS

;GO VERIFY RESULTS OF SEEK OPERATION

JSR
.WORD
.WORD
BR
NOP
EMT
JSR
JMP

PC,CMPERRSTS
NDTMSK
DPE

JSR
BR
NOP
EMT
JSR
JMP

PC,SECERR

JSR
BR
NOP
EMT
JSR
JMP

PC,PRIERR

CMP
BNE
DEC
JMP

;RETURN HERE

1308

1608

140%

PC,a(SP)+

1608

1508

PC,a(SP)+

1608

#1,RMDCO

1608

RMDCO

90$

ERROR

;60 TO 1308 IF NO ERROR
sRETURN HERE

PC,a(SP)+

ERROR

;ERROR # DEFINED BY SEKSTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;60 TO 1608 IF ERROR
sCHECK ANY ERRORS NOT MASKED
sMASK FOR RMER1

;MASK FOR RMER?
;60 TO 1408 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY CMPERRSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
;G0 TO 160% 'F ERROR
;60 CHECK FOR SECONDARY ERRORS
;GO TO 1508 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

;60 TO 1608 IF ERROR

:#S'IHIS THE FIRST SEEK??
:NO!!
;YES = SEEK TO ADJACENT

;GO SEEK

CYLINDER

a22222202220222
222222
22222222
RRRRRRRRRRRRRRRE R D)

TeTEST 52

SEEK

INVALID SECTOR

=leleliNelelelelele]e]

P P
&~
WD
—

oo o

—

;;"l..""'.""'"""""'t".l..."ll""'l."'.'.'..'t"'.t'

15152:

001100
001276
001464
000052

043150

001226
10%:

SCOPE
NOP
MOV
MOV
MOov
MOV

:SCOPE CALL
;START OF TEST
INITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS

JSR
.WORD

;PREPARE DEVICE FOR TEST

:(R1)

= DEVICE BEING TESTED

:sSET TEST NUMBER IN APT MAIL BOX

;TASK DESCRIPTOR AS FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVl% 3
;VERIFY CONTROLLER CLEAR OPERATION

CZRMMAO RMOS5/3/2 FCTNL TST 1
152
SEEK INVALID SECTOR

MACRO v03.01 11-APR-8B0 13:04:53 PAGE11%-61
;PACK ACKNOWLEDGE

032226

032230
032232
03223¢

1644 032240
1645 032240
1646 032246
1647 032254

1648 032262

1649
1650
1651
1652

032270
032274
032300
032304

1654
1655
1656
1657

032314
032320
032324
032324

1653 032310

032330
032332
032334
032336

1658 032342
1659 032342

032346

032350
032352
032354
1660 032360

000404

000240
104000
000137

032610

012737
012737
012737

000005
000000
000000

012737
012702
112722
112722
112722

112722

000036
001543
000032
000006
000034

000200
044070

004737

053530

000404
000240
104000
000137

032610

004737

044154

000240
104000
000137

032610

1661 032360

004737

053646

032366
032370
032372
032374

000240
104000
004736
000137

032610

1663 032400

004737

044424

032406
032410
032412
1664 032416
}ggg 032416

000240
104000
000137

032610

004737

044766

1667 032422

004737

044154

032430
032432
032434

1668 032440
1669 032440

000240
104000
000137

032610

004737

045152

032446

000240

032364

1662 032400

32404

032426

032444

000405

000404

000405

001416

MOV
MOV
MOV

MOV

MOV
MOVB
MOVB
MOVB

000000

112722
004737

000404

001410
001442
001444

80$:

NOP
EMT
JMP

MOVB

908:

958:

VOLUME NOT VALID

WRMCST,(R2)+

:R2 POINTS TO REGISTER TABLE
:WRITE REGISTER INDEX TABLE

:TERMINATE TABLE
:SETUP INPUT REGISTER INDEX
:60 1SSUE CONTROLLER CLEAR

180%
PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

NOP
EMT
JMP

1808

JRETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE
160 TO 180$ IF ERROR

JSR

PC,CLRSTS

5GO0 VERIFY CONTROLLER CLEAR OPERATION

NOP
EMT
JSR
JMP

PC,a(SP)+
1808

:RETURN HERE IF ERROR
:ERROR # DEFINED BY CLRSTS SUBROUTINE
160 BACK FOR MORE ERROR CHECKS
160 TO 1808 IF ERROR

JSR

PC,PUT

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

180%

JRETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
:G0 T0 1808 IF ERROR

JSR

PC,TIMOUT

:WAIT FOR GO TO RESET

JSR

PC,GET

:60 READ REGISTER(S) WITH GET SUBROUTINE

1808

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

PC,PRIERR

;G0 CHECK FOR PRIMARY ERRORS

JSR

NOP
EMT
JMP

NOP
EMT
JMP
JSR

NOP

95¢

SINVALID SECTOR = 30., TRACK = 0

:60 TO 958 IF NO ERROR
:RETURN HERE IF ERROR
sERROR NUMBER DEFINED BY SUBROUTINE
160 TO 180% IF ERROR

BR
125%:

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

PC,CNTCLR

BR
1208
:

#30. ,RMDAO

JSR

BR
NOP
EMT
JMP

*VERIFY PACK ACKNOWLEDGE
SRECALIBRATE IF ''SKI"* OR "'PIP'' IS SET
:VERIFY RECALIBRATION
:G0 TO 80S IF NO ERROR
:RETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
:60 TO 1808 IF ERROR

#SEEK'!GO,RMCS10 ;SEEK COMMAND
#0,RMOFO
:FORMAT 18 BIT
#0 RMDCO
*CYLINDER = 0

#200, (R2)+
PC,GETSTS

1108:

1808

MOVB
JSR

BR
1008:

80$

SEQ 0145

100%

1108

1208

128%

1308

:GO TO 1008 IF NO ERROR

:G0 TO 110$ IF NO ERROR

:60 TO 1208 IF NO ERROR

160 TO 1258 IF NO ERROR

:6G0 TO 1308 IF NO ERROR
*RETURN HERE IF ERROR

gaaaaao~w~
VWS W
—=O Vo~

e
D ed e

cooococrrrOrOr
O

(v W LN LN N N N NN NN NN N N NN NN
NN NN
NN NN NN
v VWA
AWVALY
W

460

O srooornvoo

1675
1676

o (=1~ el=lelelelelelelllelelelelelalalet-]

94KMAQ RMO5/3/72 FCINL TST 1
152
SEEK INVALID SECTOR

032556

—d e

032560
032566
032570
032576
032604
1687 032610

104000
004736
000137

004737
000405
000240
104000
004736
000137

1
MACRO v03.01 11-APR-80 13:04:53 PAGg 1%-62

032610

:
1308

052270

032610

140%:
150%:

004737
117760
000010
000405
000240
104000
004736
000137

051644

004737
000405
000240
104000
004736
000137

046004

005237

001416
000037

001416

010000

001442

010000
000037
032324

001442
001416

EMT
JSR
JMP

032610

160%:

170%:

JSR
.WORD
.WORD
BR

PC,CMPERRSTS

EMT
JSR
JMP

032636
032642

043150

001226

;CHECK ANY ERRORS NOT MASKED

IAE !NDTMSK
DPE
160%

;MASK FOR RMER1
sMASK FOR RMERZ2

;G0 TO 1608 IF NO ERROR
RETURN HERE IF ERROR
sERROR ¥ DEFINED BY CMPERRSTS SUBROUTINE

PC,a(SP)+

;G0 BACK FOR MORE ERROR (.'ECKS

EMT
JSR

PC,a(SP)+

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

INC
CMP
BHIS

#31.,RMDAO
90%

JMP

;60 TO 1708 IF NO ERROR

170%

;GO TO 180% IF ERROR

180%

RMDAO

s INCREMENT SECTOR ADDRESS
;DONE??
sNO = TEST NEXT SECTOR

#FMT16,RMOFO
180%
#EMT16,RMOFO

;WAS TEST DONE FOR 16 BIT MODE YET ?
:BR _IF YES
;SET 16 BIT FORMAT MODE
;SET INVALID SECTOR 31.
sNO = TEST NEXT SECTOR

#31.,RMDAO
90%

SEEK

RS RS R

]

INVALID TRACK

AR RSS2SRl
R
R
RSS2SR

15153:
001100
001276
001464
000053

;60 TO 180% IF ERROR

;G0 CHECK FOR SECONDARY ERRORS

T*TEST 53
R

;60 BACK FOR MORE ERROR CHECKS

180%

PC,SECERR

JSR
BR

MOV
MOV

ASEEAl

;ERROR # DEFINED BY SEKSTS SUBROUTINE

PC,a(SP)+

;60 TO 180% IF ERROR

BIT

b4 M

;G0 VERIFY RESULTS OF SEEK OPERATION
;60 TO 1408 IF NO ERROR
sRETURN HERE IF ERROR

1408

180%

BNE

180%:

180%

PC,SEKSTS

NOP

032610

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

PC,a(SP)+

JSR
BR
NOP
EMT
JSR
JMP

NOP

SEQ 0146

SCOPE
NOP
MOV
MOV
MOV
MOV

JSR
.WORD

#STACK,SP

$BASE ,RO

TSTQUE ,R1

#53,8TESTN
PC,TSTPRP

054130

:SCOPE CALL
;START OF TEST
sINITIALIZE STACK POINTER

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

VOLUME NOT

VALID

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

MMAO RMO5/3/2 FCINL TST
SEEK INVALID TRACK

1
MACRO v03.01 11-APR-80 13:04:53 PAGE 1%-63

g — s bbb 2 B (D)2 s = [=] o

W
WRONNNNI
O WNIWNWNWLIWN

NNONNNNNN NINNNYN

NNNNNNNNNNNN

—hd el et et OO = OO0

rNroNNNNDNOVIWIONS

SIS W

104000
137

~~woooooooo

33333
OCOO0OVOV
SSRE N—=O
(2
VT W
VO~ 30000

000404
0240

001410
001444
001416

80$:

044070

053530

90%:

EMT
JMP

2008

MOv
MOv

#SEEK!GO,RMCSTO : SEEK COMMAND
#0,RMDCO
;CYLINDER = 0

INCB

RMDAO+1
#0,RMOFO
#PUTINX,R2
#RMOF
, (R2) +
#RMDC
, (R2)+
#RMDA . (R2)+

MOV
MOv
MOvB
MOvB
MOovB
MOVB
MOvB
JSR

JSR
BR
NOP

033236

044154

EMT

95%:

053646

s
b
h

ownesw

—
-—

oo~

s
s —

NNNN

—_—
s

—

033236

004737
000404
000240
104000
000137

044424

033040

004737

044766

033044

004737
000404
000240
104000
000137

044154

004737
000405
000240

045152

104000

004736

1108:

033236

120%:

130%:

;60 TO 2008 IF ERROR

sLAST TRACK, SECTOR = 0

;SETUP FIRST INVALID TRACK
;18 BIT FORMAT
:R2 POINTS TO REGISTER TABLE
;WRITE REGISTER INDEX
:TABLE FOR OUTPUT
sTERMINATE

PC,CNTCLR

;G0 ISSUE CONTROLLER CLEAR

95%

PC,GET
1008

TABLE

sSETUP INPUT TABLE FOR STATUS

;60 TO 958 IF NO ERROR
sRETURN HERE

ERROR

;ERROR NUMBER DEFINED BY SUBROUTINE

;G0 TO 200% IF ERROR

;GO READ REGISTER(S) WITH GET SUBROUTINE

JMP

200%

;60 TO 1008 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;G0 TO 200% IF ERROR

JSR
BR

PC,CLRSTS

;G0 VERIFY CONTROLLER CLEAR OPERATION

PC,a(SP)+

;ERROR # DEFINED BY CLRSTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS

EMT
JSR
JMP

JSR
BR

1108

200%

PC,PUT

:60 TO 110% IF NO ERROR
;RETURN HERE IF ERROR

;GO TO 200% IF ERROR

EMT
JMP

200%

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE
;G0 _TO 120% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
:60 TO 2008 IF ERROR

JSR

PC,TIMOUT

;WAIT

JSR
BR
NOP
EMT
JMP

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

200%

;60 TO 1308 IF NO ERROR
:RETURN HERE 1F ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;60 TO 2008 IF ERROR

JSR
BR
NOP
EMT
JSR

PC,PRIERR

;GO CHECK FOR PRIMARY ERRORS

NOP

033236

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

#200, (R2)+

PC,GETSTS

JSR
BR

NOP

004736
000137

#RMCST, (R2)+

200%

EMT

:
1008

LSTRK,RMDAOD

JMP

NOP

033236

;60 TO 80% IF NO ERROR

80%

MOV

001442

;VERIFY RECALIBRATION

NOP

033236

SEQ 0147

1208

1308

1408

PC,a(SP)+

FOR GO TO RESET

;60 TO 1408 IF NO ERROR
;RETURN HERE IF ERROR
+ERROR # DEFINED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

RMOS/3/2 FCINL TST 1
SEEK

INVALID TRACK

82?933

000137

033236

033102

004737

052270

033110
033112
033114

000240
104000
004736

033106

£S5 NN N N N N NN N NN N O N
OVONO VNS WN—=OVO~NO

e
e
e
e
D
el el
D
el
el
el
el
el
—

NNNNNN\‘NNNNNNNN

[

033116

000405

MACRO v03.01

F 12

veH

2008

:60 TO 2008 IF ERROR

JSR

PC,SEKSTS

;GO VERIFY RESULTS OF SEEK OPERATION

PC,a(SP)+

*RETURN HERE IF ERROR
*ERROR # DEFINED BY SEKSTS SUBROUTINE
160 BACK FOR MORE ERROR CHECKS

NOP
EMT
JSR

033122
033122
033122
033126
033130
033132
03313¢
033136
033140
8;;}:2

033236

004737
117760
000010
000405
000240
104000
004736
000137

051644

033146
033152
03315¢
033156
033160
82;125

004737
000405
000240
104000
004736
000137

046004

033166
033172
033200

105237
123727
101414

001417
001417

000200

033202
033210
033212
033220
033226
033232

032737
001012
012737
013737
105237
000137

010000

001442

010000
001332
001417
032746

001442
001416

1508:
1608:

033236

JMP

1508

200%

:6G0 TO 1508 IF NO ERROR

160 T0 2008 IF ERROR

PC,CMPERRSTS
T1AE 'NDTMSK
DPE
1708

JSR
.WORD
.WORD
BR
NOP
EMT
JSR
JMP

PC,SECERR
1808

JSR
BR
NOP
EMT
JSR
JMP

PC,a(SP)+
200%

:60 CHECK FOR SECONDARY ERRORS
260 TO 1808 IF NO ERROR
:RETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
160 TO 2008 IF ERROR

INCB
(MPB
BLOS

RMDAO+1
RMDAO+1,#128.
195%

s INCREMENT TRACK ADDRESS
:DONE??
*NO-DO NEXT TRACK

BIT
BNE
MOV
MOV
INCB
JMP

#EMT16,RMOFO
200%
#FMT16,RMOFO
LSTRK,RMDAO
RMDAO+1
90%

;WAS TEST DONE FOR 16 BIT??
YES!
SET FORHAT 16
*LAST TRACK, SECTOR = 0
:SETUP FIRST INVALID TRACK ADDRESS
DO TEST FOR 16 BIT FORMAT

1958:

033236

SEQ 0148

JMP

000137

11-APR=80 13:04:53 PAGE 12-64

PC,a(SP)+
2008

;CHECK ANY ERRORS NOT MASKED
sMASK FOR RMERI1
:MASK FOR RMER2
260 TO 1708 IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEF INED BY CMPERRSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
260 T0 2008 IF ERROR

2008
:
"."t"'."'.".t"t""l."""'.'.t"'t.'.i't."."'t't"ttl".'

S*TEST 54
B

033236
033236
033240
033242
033246
033252
033256

000004
000240
012706
013700
013701
012737

033264
033270

004737
054130

16154
001100
001276
001464
000054

043150

001226

SEEK

INVALID CYLINDER

2222222222223 223232322232232322222333222223232332322232222022002200R0R1

SCOPE
NOP
MOV
MOV
MOV
MOV

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

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

JSR
.WORD

PC,TSTPRP
054130

:PREPARE DEViCE FOR TEST
“TASK DESCRIPTOR AS FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE

sVERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE

VOLUME NOT

;VERIFY PACK ACKNOWLEDGE

:RECALIBRATE

VALID

1F "'SKI'* OR "PIP" IS SET

—_

o
o
o

SNNNNNNNNNNN

Ottt
s s OOOOO
[
e I T
Y
S
Sy
S oo
NNNND

wrororN
ON~N~N
osfrosrocconNS~~ oo

i
il
il
D
i
i el
i
e
e

NNNNNNNNNNNNNN

(lRHflAO RMO5/3/72 FCINL TST 1
154
SEEK INVALID CYLINDER

033424
033424
033430
033432
033434
033436
033440
1761 033444
1762 033444
033450
033452
033454
033456
1763 033462
1764 033462

Y - ]
P
LY P T

oo~

1765
1766

—

033654
000005
001467
000000
000000
001543
000006
000034
000032
000000
000200
044070
053530

000137

033654

004737
000404
000240

044154

000137

033654

004737
000405
000240

053646

104000

MACRO v03.01

001410

80%:

001444
001416
001442

033654
064424

004737

044766

004737
000404
000240
104000
000137

044154

033654

045152

104000

004736
000137

MOV

MOV
MOVB
MOVB
MOVB
MOVB
MOVB

90%:

95%:

JSR

100%:

033654

110%:

120%:

130%:

12 65

80%

200%
WSEEX!GO,RMCS10

#823. ,RMDCO
#0,RMDAO
#0,RMOFO
#PUTINX,R2
#RMDA, (R2)+

#RMDC, (R2)+
#RMOF
, (R2)+
#RMCST,(R2)+
#200,(R2)+
PC,GETSTS

SEQ 0149

;VERIFY RECALIBRATION
;60 TO 80% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;60 TO 2008 IF ERROR
;SEEK _FUNCTION CODE

+START AT FIRST INVALID CYLINDER
;:TRACK = 0, SECTOR = 0
;18 BIT FORMAT

:R2 POINTS TO INDEX TABLE

;WRITE REGISTER TABLE

sTERMINATE TABLE
:SETUP FOR STATUS
;G0 ISSUE CONTROLLER CLEAR
;G0 TO 958 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR NUMBER DEFINED BY SUBROUTINE
;GO TO 200% IF ERROR

JSR
BR
NOP
EMT
JMP

PC,CNTCLR

JSR
BR

PC,GET
100%

EMT
JMP

200%

;60 TO 1008 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;60 TO 200% IF ERROR

JSR
BR
NOP
EMT
JSR
JMP

PC,CLRSTS

;G0 VERIFY CONTROLLER CLEAR OPERATION

PC,a(SP)+

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

JSR
BR
NOP
EMT
JMP

PC,PUT

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

2008

;G0 TO 2008 IF ERROR

JSR

PC,TIMOUT

;WAIT

JSR
BR
NOP
EMT
JMP

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

2008

;G0 TO 1308 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;60 TO 2008 IF ERROR

JSR
BR
NOP
EMT
JSR
JMP

PC,PRIERR

;60 CHECK FOR PRIMARY ERRORS

NOP

004737
000404
000240
104000
000137

004737
000405
000240

BR
NOP
EMT
JMP

MOV
MOV
MOV

104000

004736
000137

11-APR-80 13:04:53 PAGE

95%

200%

110%

200%
1208

1308

1408

PC,a(SP)+

2008

;60 READ REGISTER(S) WITH GET SUBROUTINE

;G0 TO 1108 IF NO ERROR
;RETURN HERE IF ERROR

;G0 TO 200% IF ERRCR

;G0 TO 1208 IF NO ERROR
;RETURN HERE

ERROR

;ERROR # DEFINED BY PUT SUBROUTINE
FOR GO TO RESET

;60 TO 140% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
260 BACK FOR MORE ERROR CHECKS
;60 TO 200% IF ERROR

cgnnmo RMO5/3/72 FCTINL TST
1
SEEK INVALID CYLINDER
1769 033524
1770 033524

033530
033532
033534
033536

000405
000240
104000
004736

000137

033654

033544
033559
033552
033554
033556
033560
033562
8%%293

004737
117760
000030
000405
000240
104000
004736
000137

051644

53570
0335764
033576
033600
033602
033606

004737
000405
000240
104000
004736
000137

033654

005237
023727

001444
001444

};;g 033622
033624
033632
033634
033642

};gg 033650

002412

032737
001010
012737
012737
000137

H 12
11-APR=-80 13:04:53 PAGE 12-66
SEQ 0150

1408:

052270

8?%222

1775 033610
1776 033610
1777 033614

1780
1781
1782
1783

004737

MACRO v03.01

033654

010000
001467

001442
001444

1786 033654
1787

PC,a(SP)+

;G0 VERIFY RESULTS OF

SEEK OPERATION

:60 TO 1508 IF NO ERROR
RETURN HERE IF ERROR
:ERROR # DEFINED BY SEKSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

200%

:6G0 TO 2008 IF ERROR

PC,CMPERRSTS
1AE !NDTMSK
DPE
170

JSR
.WORD
.WORD
BR
NOP
EMT
JSR
JMP

sCHECK ANY ERRORS NOT MASKED
sMASK FOR RMER1
;MASK FOR RMER?
;60 TO 1708 IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY CMPERRSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
160 TO 2008 IF ERROR

002000

001442

1508

JMP

1808:

010000

JSR

PC,SEKSTS

046004

033370

JSR

BR
NOP
EMT

JSR
BR
NOP
EMT
JSR
JMP

PC,SECERR
180%

PC,a(SP)+
2008

;60 CHECK FOR SECONDARY ERRORS
:6G0 TO 180% IF NO ERPOR
JRETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
:6G0 TO 2008 IF ERROR

INC
CMP

RMDCO
RMDCO, #1024.

s INCREMENT CYLINDER ADDRESS
:DONE??

BIT
BNE
MOV
MOV
JMP

#FMT16,RMOFO
200%
#FMT16,RMOFO
#823. ,RMDCO
90%

;16 BIT FORMAT TESTED??
SYES ')
JSETUP FOR 16 BIT TEST
JSTART AT FIRST INVALID CYLINDER

BLT

1958:

PC,a(SP)+
200%

195%

JNO=DO NEXT CYLINDER

2008:

1788

I'..ttlt"t"'tt't'tt""t'.ttt."ttl't"'.lltttlt"'l"l'tt!.t

'TEST

033654
033654
033656
033660
033664
033670
fous 03367¢

0C0004
000240
012706
013700
015701
012737

001100
001276
001464
000055

1790 033702

004737

053530

033706
033710
033712
033714

1791 033720
1792 033720

033726

033734

033742

IvC SEEK

TEST

lt.ltttl.ttttt't'i'ti'"!'t."'t'.."tl"'tt'lltt'tl't"'ttt

14155

001226

000404
000240
104000
000137

034214

112737

000024

001543

000001

001434

112737

012737
004737

000200
0464424

001544

108:

ttt

SCOPE
NOP
MOV
MOV
MOV
MOV

#STACK,SP
$BASE ,R0
TSTQUE ,R1
#55,8TESTN

JSR

PC,CNTCLR

;SCOPE CALL
JSTART OF TEST
JINITIALIZE STACK POINTER
:RO = UNIBUS ADDRESS
s(R1) = DEVICE BEING TESTED
::SET TEST NUMBER IN APT MAIL BOX
;60 ISSUE CONTROLLER CLEAR

BR
NOP
EMT
JMP

90%

160 TO 108 IF NO ERROR
:RETURN HERE IF ERROR
sERROR NUMBER DEFINED BY SUBROUTINE
;60 TO 90% IF ERROR

MOVB

#RMMR1,PUTINX

;SETUP PUT

#DMD . RMMR10

:SET RMMR1 OUTPUT BUFFER= DMD

MOvVB

MOV
JSR

10§

#200, PU11N! 1
PC,PUT

INDEX TABLE

JSET TERMINATOR BYTE

;G0 WRITE RMMR1 VIA PUT SUBROUTINE

RMO5/3/72 FCINL TST
IvC SEEK TEST

MACRO v03.01

NOP

EMT

004737

_»

s
— L N—
orro

cooco
ocooo

D and
il
i
b
s
-

O 0o

cad
i
i
i
b
il

0o 0o 0o Oo Oo 0o Co OO

s
—

Co 0o

034104
034106
034110
034112
034114
034120
034126
034130
034136
034144
034152
034154
034154
034160
034162
034164
034166
034170
034172
034174
034200
034200

034204
034206
034210
034212

JSR
BR

40%

EMT
JMP

90%

30%:

1820 034214
1821

NOP

034214

004737
000405

045152

40%:

JSR
BR

NOP

001376

50%:

001140
001142
001142

104064

004737
000403
000240
104000
004736

;GO TO 908 IF ERROR

034214

000137

004737
115760
010010
000405
000240
104000
004736
000137

90%

EMT
JMP

BR
NOP

000404
000240
104000

;60 TO 208 IF NO ERROR
sRETURN HERE IF ERROR

000200
044070
064424

004737 044154

1808 034100
1809 034100

20%:

JMP

20%

MOV
MOV
MOv
MOv
MOV
MovB
MovB
MOvB
MOvB
MOvB
JSR
JSR

—

Ottt
2 s DOOOO
[
I
e
T
i R S
SPONNNNNNNNN

NNNNNNNNNNN

WO
NIN O WINNW
NNNNNNNNINNNN

034214
000005

EMT
JSR
JMP
BIT
BNE

MOv
MOv
BIC

60%:

EMT

JSR
.WORD
.WORD
BR
NOP

034214
046004

12-67

SEQ 0151

033

034072
034074

1 12

11-APR-80 13:04:53 PAGE

80%:

90%:

EMT
JSR
JMP
JSR

BR
NOP
EMT
JSR

;ERROR DEFINED BY PUT SUBROUTINE

#SEEK'GO,RMCS10

#0,RMMR10
#0 RMDCO
#0 . RMDAO
#PUTINX,R2
FRMMR1, (R2)+
#RMDA, (R2)+
#RMDC , (R2)+

sCYLINDER = 0

JTRACK = 0,

SECTOR = 0

JWRITE REGISTER INDEX
: TABLE

#RMCST, (R2)+

#200, (R2)+

PC,GETSTS
PC,PUT

308

PC,GET

PC,PRIERR

508

PC,a(SP)+

90%

#1VC,RMERZI

60%

#1VC,$GDDAT

+SETUP FOR STATUS
;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;60 TO 308 IF NO ERROR
;RETURN HERE

ERROP

;ERROR # DEFINED BY PUT SUBROUTINE

;G0 TO 908 IF ERROR

;GO READ REGISTER(S) WITH GET SUBROUTINE
;G0 TO 408 IF NO ERROR
sRETURN HERE

ERROR

;ERROR # DEFINED BY GET SUBROUTINE

;G0 TO 908 IF ERROR

;60 CHECK FOR PRIMARY ERRORS
;G0 TO 508 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
;60 TO 908 IF ERROR
:eég|}NVALlD COMMAND SET??

RMERZ], $BODAT

.GOOD DATA FOR TYPEOUT
:8AD DATA FOR TYPEOUT

PC,CMPERRSTS
NDTMSK

sCHECK ANY ERRORS NOT MASKED

zZCIVC.SBDDAT

IVC!DPE
80%

PC,a(SP)+

90%

PC,SECERR

90§

PC,a(SP)+

;MASK FOR RMER]

:MASK FOR RMERZ2
;60 TO 80$ IF NO ERROR

sRETURN HERE

ERROR

;ERROR # DEFINED BY CMPERRSTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS

;G0 TO 908 IF ERROR

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

(%RHHAO RMO5/3/2 FCINL TST 1
ABORT

SEEK TEST

J 1

MACRO v03.01 11-APR-80 13:04:53 PAGE1%-68

1822

SEQ 0152

. t'."t"'tl""""""""'"tt.ttt'l'.'t""t.'tl""".tt't'

S*TEST 56

ABORT SEEK TEST

'Q"'l'l".."""""""""t""'."tl"'.t't""'."tt".t'

034214
034214
034216
034220
034224
034230
1823 034234

000004
000240
012706
013700
013701
012737

001100
001276
001464
000056

1824 034242

004737

043150

036246

054130

16156

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

#STACK,SP
$BASE , RO
TSTQUE ,R1
#56,8TESTIN

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

JSR

PC,TSTPRP

sPREPARE DEVICE FOR TEST

.MORD

054130

STASK DESCRIPTOR AS FOLLOWS:
:CLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION

:PACK ACKNOWLEDGE

VOLUME NOT

VALID

JVERIFY PACK ACKNOWLEDGE
*RECALIBRATE IF ''SKI" OR ‘'PIP'* 1S SET

034250
034252
034254
034256
034262
034262
034270
034276

1825
1826
1827
1828
1829 034304
1830 034312
1831 034316
1832 034322
1833 034326
1834 034332
1835 034336
1836 034342
1837 034346

034352
034354
034356
034360
1838 034364

000404
000240
104000
000137

034556

012737
012737
012737
012737
012702
112722
112722
112722
112722
112722
004737
004737

040000
000000
000000
000005
001543
000006
000034
000014
000000
000200
044070
044424

000404
000240
104000
000137

001424
001444
001416
001410

034556

908
:

1839 034364

004737

044154

1840
1841
1842
1843
1844
1845

032737
001411
013737
042737
005037
104065

020000

001346

001346
157777
001140

001142
001142

004737

044766

1848 034440

004737

044154

034446

000240

}gzg

034370
034372
0343764
034376
034402
034410
034412
034620
034426
034432
034434

034444

000404
000240
104000
000137

000404

034556

808:

1008:

110%:

BR
NOP
EMT
JMP
MOV
MOV
MOV
MOV
MOV
MOVB
MOVB
MOVB
MOVB
MOVB
JSR
JSR

80%
1608
#UNS ,RMER10
#0,RMDCO
#0.RMDAO
#SEEK'GO,RMCS10
#PUTINX,R2
#RMDA, (R2)+
#RMDC.(R2)+
WRMERT,(R2)+
#RMCS1.(R2)+
#200, (R2)+
PC,GETSTS
PC,PUT

JVERIFY RECALIBRATION
160 TO 80S IF NO ERROR
:RETURN HERE IF ERROR
sERROR # DEFINED BY 1STPRP SUBROUTINE
160 TO 1608 IF ERROR
:SET UNSAFE ERROR
SCYLINDER = 0
:TRACK = 0, SECTOR = 0
;SEEK COMMAND
sSETUP REGISTER INDEX TABLE
;AND OUTPUT BUFFER

;SETUP FOR STATUS FETCH

1608

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE
:6G0 TO 908 IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
160 T0 1608 IF ERROR

JSR

PC,GET

;G0 READ REGISTER(S) WITH GET SUBROUTINE

BIT
BEQ
MOV
BIC
CLR
EMT

#P1P,RMDSI
1108
RMDS1,$BDDAT
#*CPIP,SBDODAT
$GDDAT
65

PC,TIMOUT

JWAIT FOR GO TO RESET

JSR

PC,GET

;60 READ REGISTER(S) WITH GET

BR
NOP
EMT
JMP

JSR

NOP

90%

1008
160%

1208

160 TO 1008 IF NO ERROR
JRETURN HERE IF ERROR
*ERROR # DEF INED av GET SUBROUTINE
160 TO 1608 IF ERROR
:DID DRIVE START SEEK??
NO!!
BAD DATA FOR TYPEOQUT
;G00D DATA FOR TYPEOQUT

:6G0 TO 1208 IF NO ERROR
;RETURN HERE

IF ERROR

SUBROUTINE

CIZRMMAD RMO5/3/2 FCINL TST 1
156
ABORT SEEK TEST

034450
034452
1849 034456
1850 034456
034462
034464
034466
034470
034472
851 034476
852 034476
034502
034504
034506
034510
034512

1853 034516
1854 034516

034522
034524
034526
034530
034532
034534
034536

el
—

00
0o 0o

1855 034542
1856 034542

034546
034550
034552
034554
034556

104000
000137

004737
000405
000240

MACRO v03.01

034556

K 12
11-APR-80 13:04:53 PAGE 12-69

120%:

045152

104000

004736
000137

034556

004737
000405
000240
104000
004736
000137

061232

004737

051644

155760

1308
:

140%:

104000

004737
000403
000240

PC,PRIERR

JSR
BR

PC,STCDRVSTS

EMT
JSR

034556

150%:

046004

104000

004736

160%:

160%

JSR
BR
NOP
EMT
JSR
JMP

NOP

000010
000405
000240

004736
000137

EMT
JMP

JMP

SEQ 0153

;ERROR # DEF IN
;60 TO 1 60$ IF

1308

GO CHE ¢ K F 0? PRIMARY ERRORS
01 308

PC,a(SP)+

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

1608

1408

PC,A(SP)+

1608

JSR
.WORD
.WORD
BR
NOP
EMT
JSR
JMP

PC,CMPERRSTS
NDTMSK
! UNS
DPE

JSR
BR
NOP
EMT
JSR

PC,SECERR

150%

PC,a(SP)+

160%

RETURN HERE

;60 CHECK FOR CHANGES IN DRIVE STATUS
;G0 TO 1408 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY STCDRVSTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
;60 TO 160% IF ERROR
;CHECK ANY ERRORS NOT MASKED
:MASK FOR RMER1

;MASK FOR RMER?2

;60 TO 1508 IF NO ERROR

sRETURN HERE

ERROR

;ERROR # DEFINED BY CMPERRSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
;G0 TO 160% IF ERROR

160%

;GO CHECK FOR SECONDARY ERRORS
;60 _TO 1608 IF NO ERROR

PC,a(SP)+

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

:RETURN HERE

ERROR

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

'TEST 57

SEEK AT OFFSET

ARl
RRRRR 2]

034556
034556
034560
034562
034566
034572
034576
034604

TSTS?:

001100
001276
001464
000001
000057

1860
1861 034612
1862 034612
034616

043150

SCOPE
NOP

MOv
MOv
MOv
MOV
MOV

001206
001226
10%:

#STACK,SP

$BASE ,RO

TSTQUE ,R1
#1,8TIMES

#57,8TESTN

+SCOPE CALL
;START OF TEST
;INITIALIZE STACK POINTER

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

::D0 1 ITERATION
::SET TEST NUMBER IN APT MAIL BOX
. PREPARE DEV]CE!FOR TEST

JSR
.WORD

:TASK DESCRIPTO

AS FOLLOWS:

;CLEAR CONTROLLER € SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE

;RECALIBRATE IF ''Sk1'" OR "PIP'" IS SET

034620
034622
034624

000404
000240
104000

BR
NOP
EMT

20%

;VERIFY RECALIBRATION
;60 TO 208 IF NO ERROR
sRETURN HERE

ERROR

;ERROR # DEFINED BY TSTPRP SUBROUTINE

035110

NN~

000000
000000
000015
001543
000034
000006
000000
000200
044424

004737
012737
112737
112737
004737
000404
000240
104000

000005
000000
000200
044424

034766

004737

044766
044154

035004

004737
000404
000240
104000
000137

004737
000405
000240
104000
004736
000137

045152

=lelelelelelelelelelelelelelelelelelelaTx

uuuuuwwuuuauuuuuuuuuu

035110

004737 052270
000405
000240
104000
004736
000137 035110

104000

30%:
001410
001543
001544

40$%:

1408

;60 TO 1408 IF ERROR

MOV
MOV
MOV
MoV
MovB
MOvVB
MOvB
MOvB

#0,RMDCO
#0,RMDAO

:CYLINDER = 0
:TRACK = 0, SECTOR = 0

#PUTINX,R2

;R2 POINTS TO REGISTER TABLE

NOP
EMT
JMP
JSR
JSR

MOv
MOvVB
MOvB

JSR
BR

051644

50%:

EMT
JMP

#OFFSET!GO,RMCS10

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

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

PC,PUT

30$

140%
PC,GETSTS
PC,TIMOUT

110%:

COMMAND

;WRITE TERMINATOR

160 WRITE REGISTER(S)

:60 TO 308 IF NO ERROR
:RETURN HERE

WITH PUT SUBROUTINE

ERROR

JERROR # DEFINED BY PUT SUBROUTINE

;60 _TO 140% IF ERROR
;SETUP FOR STATUS FETCH
;WAIT FOR OFFSET TO COMPLETE
COMMAND

#RMCST1,PUTINX

;LOAD REGISTER INDEX TABLE

PC,PUT

;GO WRITE

#200,PUTINX+1
50%

140%

;60 TO 508 IF NO ERROR
;RETURN HERE

WITH PUT

ERROR

;G0 TO TIMOUT SUBROUTINE

JSR
BR
NOP
EMT
JMP

PC,GET

:6G0 READ REGISTER(S)

1408

:G0 TO 1408 IF

JSR
BR
NOP
EMT
JSR
JMP

PC,PRIERR

;G0 CHECK FOR PRIMARY

JSR
BR

PC,SEKSTS

EMT
JSR
JMP

JSR

.WORD
.WORD
BR
NOP
EMT

1108

PC,a(SP)+

1408

1208

PC,a(SP)+

WITH GET

160 TO 1008 IF NO ERROR

SUBROUTINE

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

ERRORS

160 TO 1108 IF NO ERROR

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

ERROR CHECKS

:6G0 TO 1408 IF ERROR

;60 VERIFY RESULTS OF

SEEK OPERATION

160 TO 1208 IF NO ERROR

:RETURN HERE IF ERROR
*ERROR # DEFINED BY SEKSTS SUBROUTINE
160 BACK FOR MORE

ERROR CHECKS

1408

160 TO 1408 IF ERROR

PC,CMPERRSTS
NDTMSK

:CHECK ANY ERRORS NOT MASKED
‘MASK FOR RMER1

DPE
1308

SUBROUTINE

;ERROR ¥ DEFINED BY PUT SUBROUTINE
;60 TO 140% IF ERROR

PC,TIMOUT

1008

IN BUFFER

;WRITE REGISTER INDEX TABLE

JSR

NOP

120%:

:LOAD OFFSET

#SEEK!GO,RMCS1O0 ;LOAD SEEK

sWAIT FOR COMMAND TO COMPLETE

1008
:

SEQ 0154

JMP

NOP

000137

004737
115760
000010
000405
000240

20%:

L 12

11-APR-80 13:04:53 PAGE 12-70

JSR
BR

035110
044070
044766

034762
034766

5030

Lol
op o
—
e PN
oo~

000137

—_—
s
s

0346%6

MACRO v03.01

(==l
(=]l

N=OOVRENOWVI
W

it
i

©o 0o 0o 0o 0o

e
i
i
i
—

©Oo
Co Co

CIRMMAO RMO5/3/2 FCINL TST 1
157
SEEK AT OFFSET

:MASK FOR RMER2
160 TO 1308 IF NO ERROR

+RETURN HERE 1F ERROR
;ERROR # DEFINED BY CMPERRSTS SUBROUTINE

CZRMMAD RMO5/3/2 FCTINL TST 1

157

NN N NN NN w
VWAV w
— s it s s OO o
—
oo~ N

1893
1894
1895

S&RR8RR o

[=l=lelelelelel] (=1

1308:

046004

004736

PC,a(SP)+

;G0 BACK FOR MORE ERROR CMECKS
;G0 TO 140% IF ERROR

JSR
BR

PC,

;60 CHECK FOR SECONDARY ERRORS
;60 TO 1408 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;60 BACK FOR MORE ERROR (MECKS

SNNNNNNNNNN ~

e
—

NN
N O NN NNo
NN
NN NN

s 2 OO OOO o

004737
000404
000240
104000
000137

\h\fl\fi\fi\fi\h\fi\fi\fi:: W

S
B

WWNIN
= = ONO VWV
S

013701

012737

001100
001276
001464
000060

AR A

000031
001543
000006
000034
000032
000000
000200
044070

035526
044766

004737
020404
000240
104000
000137

044154

004737
000405
000240
104000

045152

AR A

108:

001442
001444
001416
001410

20%:

30%:

SCOPE
NOP

R R

SRS}

:SCOPE CALL

#STACK,SP

$BASE , RO

TSTQUE ,R1
#60,8TESTN
PC,CNTCLR

MOV
MOv
MOv
MOv
MOv
MOV
MOvVB
MOvB
MOvB
MovB
Move

#31.,R3
#0,RMOF O
#0.RMDCO
#0 _RMDAO

;START OF

TEST

SINITIALIZE

STACK POINTER

:RO = UNIBUS ADDRESS

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

ISSUE

CONTROLLER CLEAR

10$

160 TO 108 IF NO ERROR

1608

160 T0O 160$ IF ERROR

:RETURN HERE IF ERROR
:ERROR NUMBER DEF INED BY SUBROUTINE
:R3 = SAMPLE COUNT FOR 18 BIT MODE
SSTART WITH 18 BIT MODE
SCYLINDER = 0
:SEARCH TRACK = 0, SECTOR = 0

#SEARCH'GO,RMCS10
#PUTINX ,R2
#RMDA, (R2) +
#RMDC, (R2)+
#RMOF . (R2)+

:RECALIBRATE

COMMAND

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

JSR

PC,GETSTS

JSR

PC,PUT

;60 WRITE REGISTER(S)

NOP
EMT
JMP
JSR

PC,TIMOUT

1508

160 T0 1508 IF ERROR

JSR

40%:

JSR
BR
NOP
EMT
JMP

NOP

035526

LOOK AMEAD TEST

MOV
MOv

001226

035536

044424

004737

AR AR A

MOv
MOv

053530

000037

PC,a(SP)+

AR AL A

SECERR

4
1408

AL A

15160:

000004

1408

NOP
EMT
JSR

:
1408

SEQ 0155

JSR

JMP

104000

—-—

s e
i i i
WA
b b et

(NN
N W N
WAV

VIWVAWVWVAWY
PNONIPONORNUNUNININD
= i i cd ad h i
s il

NN W
NN N
N
U W
N U
W U W U U
N N N LW
NN NN U

323I22532333
N=O
(¥ PYW
~No

004737
000403
000240

035110

TeTEST 60
jolelelelelelelelelBNelelelelel=lel=
=l = l=l=lolelelelelelelelelelelele- BNelelelelelelo]

;-‘
oo
s
D
i
S e
il
i
i
i
i
i
s

oo
0
oo
—

—
i

VOO

—

VOO0

—p—y

—

004736
000137

NN NN

oo 0o
O

SEEK AT OFFSET

MACRO v03.01 11-APR-80 13:04:53 PAGELB15-71

30$

PC,GET

40%

WITH PUT

SUBROUTINE

160 TO 308 IF NO ERROR
*RETURN MERE IF ERROR
:ERROR # DEFINED BY PUT SUBROUTINE
‘WAIT

FOR COMPLETION

:60 READ REGISTER(S)

WITH GET

160 TO 40$ IF NO ERROR

SUBROUTINE

*RETURN HERE IF ERROR

EMT
JMP

1508

*ERROR # DEFINED BY GET SUBROUTINE
160 TO 1508 IF ERROR

JSR

PC,PRIERR

:60 CHECK

NOP

EMT

FOR PRIMARY

160 TO S0% IF NO ERROR

ERRORS

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

000020
000020

000002

80%:

000020

90$%:

001373

D i i

(=l=lelol]

104352

035432
035436
035442
035444
035450
035452
035454
035456
035460
035462

003500
000036
103640
010000

o0
oo

;60 8 CK_FOR MORE ERROR CHECKS
;60TO 1508 IF ERROR

MOV
MOV
MoV
MoV

#=-1,R5
RMLA(RO)
, (R&)
RMLA(RO)
,R2

#BUFFER,R4

sR& = STORAGE ADDRESS

CMP
BEQ
DEC
BNE
BR

ADD
DEC
BEQ
CMP
BNE
DEC
BNE

110%
RMLA(RO)
,R2
70%
RS

90%

MOV
MOV
MOV
ADD
CMP

005303
001360

140%:

010000

001442

010000
000041

001442

: TIMEOUT??
:NO

#3500,R2

l30 ,R3

#BUFFER, R4

#EMT16,RMOFO
120%

#3700,R2

#32.,R3
(R&)+,RS

;R2 = MAXIMUM SAMPLE

;R3 = NUMBER OF COMPARES

;R4

= BUFFER ADDRESS

;1S SAMPLE FOR 18 BIT MODE ?
:BR IF YES
;R2 = MAXIMUM SAMPLE
;R3 = NUMBER OF COMPARES

*GET A SAMPLE AND INCREMENT
*FOR EXPECTED VALUE OF NEXT
:3899Lo NEXT BE 0 ?

*YES= CHANGE EXPECTED

:lésggxr SAMPLE CORRE(T??

:YES!

(R4) , $BDDAT

"EXPECTED VALUE
‘RECEIVED VALUE

53
150%
R3
120%

BIT

#EMT16,RMOFO
1508
#EMT16,RMOFO

sTEST DONE FOR 16 BIT MODE ?
:BR_IF YES

208

sTEST AGAIN

MOV
MOV

#33. RS

MOv
MOv

(SP)+ ERRVEC

160%:

: TIMEOUT??
iNO = TRY
AGAIN
:PROGRAM TIMEOUT
;ADVANCE STORAGE ADDRESS
sALL SAHPLES TAKEN??
sVES!
UegT"FOR CHANGE

EMT
BR
DEC
BNE
BNE

150%:

:GET ANOTHER LOOK

AgESAMPLES SAME??

160%

BHIS
CLR
CMP
BEQ

MOv
MOv

:R5 = GROSS TIMER
:STORE RMLA SAMPLE

352

16 BIT SAMPLE PARAMETERS

130%:
—

WWNONY

NN
=

o
o

W
W

il i e
ol il
i e
— e

1508

BIT
BEQ

000100

000006
000004

PC,a(SP)+

MOv
MOV
MOV

001442

SEQ 0156

JSR

JMP

18 BIT SAMPLE PARAMETERS

003700
000040

032737

N 12
11-APR-80 13:04:53 PAGE 12-72

EMT
JMP

035536

P
oo

i
il i il
D il
D i e
i il
il
il il il i

70%:

il il

50%:
60$%:

103640
177777

000137

035422
035430

MACRO v03.01

035526

go
WVAAASS BSO
3N WNIWNINV
NN —
N SSNNOOM
O SO

=lelelelelelelelelelelelelelelelelelels]

LN LN U U N N U N N N AN N N N AN N NN NN
[V IV IV IV IV AV IV IV IV IV AV IV IV IV AV IV W TV
N N LN N N N NN N N AN NN N

NN NN NN NN

VSN
- OV NV NN
= OV

W NN NN

004736
000137

VOO0 VOO
OOV OO0 VOO VO VOOVOOOOVOY
VIV s SRS
RN WWWW
W
—=OO ONOWVESWN—=O O 0o ~Nowne W =OVRNT

D i i

D i

D e

VOOV OVOVOVVOOOOVOOOVOOOO

CZSHHAO RMO5/3/2 FCINL TST 1
LOOK AHEAD TEST

(SP)+ ,ERRVE(+2

sALL SAMPLES CHECKED??
sNO = TEST NEXT SAMPLE

;SET 16 BIT MODE AND
sSET SAMPLE COUNT.

;POP STACK

INTO ERRVE(+?

::P0P STA(K INTO ERRVEC

MMAD RMOS5/372 FCINL TST
LOOK AHEAD TEST

MACRO v03.01

1971

1972

B 13

11-APR=80 13:04:53 PAGE 12-73

::"""t"".""'"""""""'Q'Q""O'.".""'QQQOI"'..".

SRTEST 61

SEARCH ON CYLINDER

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

035536
035536
035540
035542
035546
035552
1973 035556

000004
000240
012706
013700
013701
012737

001100
001276
001464
000061

1974, 035564

004737

043150

035570

054130

15161:

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

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

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

JSR

PC,TSTPRP

;PREPARE DEVICE FOR TEST

.WORD

054130

sTASK DESCRIPTOR AS FOLLOWS:

:CLEAR CONTROLLER & SELECT DEVICE

JVERIFY CONTROLLER CLEAR OPERATION

;PACK ACKNOWLEDGE IF VOLUME NOT VALID
JVERIFY PACK ACKNOWLEDGE

:RECALIBRATE IF ''SKI'' OR 'PIP'" 1S SET

1975
1976
1977
1978
1979
1980
1981
1982

035572
035574
035576
035600

035604
035604
035610
035616
035624
035632
035640
035644

000404
000240
104000
000137

036214

012703

000035

1983 035650
1984 035654

012737
012737
012737
012737
012702
112722
112722
112722

000000
000000
000000
000005
001543
000006
000034
000032

1986 035664
1987 035670
1988 035674

112722
004737
004737

000200
044070
044424

1985 035660

035700
035702
035704
035706
}ggg 035712

112722

000404
000240
104000
000137
004737

036214
044766

004737

035724
035726
035730
1992 035734
1993 035734

000240
104000
000137

036214

004737

045152

000404

035740 000405
035742
035744
035746

000240
104000
004736

035750 000137

1994 035754

001444
001416
001442
001410

85%:

000000

1991 035716

035722

80$:

808
2008

sVERIFY RECALIBRATION
:60 TO 808 IF NO ERROR
‘RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
160 TO 2008 IF ERROR

MOV

#29.,R3

:R3 = MAXIMUM SECTOR ADDRESS

MOV
MOV
MOV
MOV
MOV
MOVB
MOVB
MOVB

MOVB

MOVB
JSR
JSR

908:

044154

036214

BR
NOP
EMT
JMP

BR
NOP
EMT
JMP
JSR
JSR

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

90$

2008
PC,TIMOUT

;SETUP FOR STATUS FETCH
;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

260 T0O 90% IF NO ERROR
;RETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
160 TO 2008 IF ERROR

;GO READ REGISTER(S) WITH GET SUBROUTINE

NOP
EMT
JMP

2008

*RETURN HERE 1F ERROR
;ERROR # DEFINED BY GET SUBROUTINE
160 TO 2008 IF ERROR

JSR

PC,PRIERR

;G0 CHECK FOR PRIMARY ERRORS

PC,a(SP)+

JRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
:6G0 BACK FOR MORE ERROR CHECKS

NOP
EMT
JSR

1108:

SCYLINDER = 0
STRACK = 0, SECTOR = 0
:18 BIT FORMAT
:SEEK COMMAND
;SETUP REGISTER INDEX TABLE
*FOR SEEK TO CYLINDER 0

PC,GET

BR
1008:

#0,RMDCO
#0 . RMDAO
#0,RMOFO
#SEEK'GO,RMCS10
#PUTINX,R2
#RMDA, (R2)+
#RMDC.(R2)+
#RMOF . (R2)+

JMP

1008

1108

2008

160 TO 1008 IF NO ERROR

:60 TO 110$ IF NO ERROR
160 TO 2008 IF ERROR

SEQ 0157

CZRMMAD RMOS5/372 FCTNL TST 1

T61

SEARCH ON CYLINDER

1995 035754

004737

035762
035764
035766

000240
104000
004736

035760

035770

1996 035774

000405

000137

012737

052270

036214

000031

19597 036002

004737

036010
036012
0360164

1998 036020
5838 036020

000240
104000
000137

036214

004737

044766

2001 036024

004737

044154

036032
036034
036036
2002 036042
2003 036042

000240
104000
000137

036214

004737

045152

036006

036030

036046

036050
036052
036054
036056
20046 03606
2005 03606

036066

036070
036072
036074
036076
2006 036102
2007 036102
036106
036110

036112

000404

000405

044424

000240
104000
004736
000137

036214

004737

057666

000405

000240
104000
004736
000137
004737
115760
000010

1208:

1308
:

1408:

046004

036134
036136
036140

000240
104000
004736

2010 036146
2011 036146
2012 036152

000137

036214

005237
020337

001416
001416

2015 036160
2016 036166

032737
012737

010000
010000

103306

NOP
EMT
JSR

PC,a(SP)+

:RETURN HERE IF ERROR
*ERROR # DEFINED BY SEKSTS SUBROUTINE
:60 BACK FOR MORE ERROR CHMECKS

MOV

#SEARCH'GO,RMCS10

1308

JMP

JSR

1708
:

:STORE SEARCH COMMAND

200%

:RETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
:G0 TO 2008 IF ERROR

JSR

PC,TIMOUT

;WAIT FOR SEARCH TO COMPLETE

JSR

PC,GET

;G0 READ REGISTER(S) WITH GET SUBROUTINE

NOP
EMT
JMP

2008

JRETURN HERE 1F ERROR
JERROR # DEFINED BY GET SUBROUTINE
160 TO 2008 IF ERROR

JSR

PC,PRIERR

;60 CHECK FOR PRIMARY ERRORS

NOP
EMT
JSR
JMP

PC,a(SP)+
2008

‘RETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
:60 TO 2008 IF ERROR

JSR

PC,SCHSTS

1408

1508

1608

:6G0 TO 1308 IF NO ERROR

:6G0 TO 1408 IF NO ERROR

:6G0 TO 1508 IF NO ERROR

;G0 VERIFY SEARCH OPERATION

:G0 TO 1608 IF NO ERROR

NOP
EMT
JSR
JMP

PC,a(SP)+
2008

:RETURN HERE IF ERROR
JERROR # DEFINED BY SCHSTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
160 TO 2008 IF ERROR

JSR
.WORD
.WORD

PC,CMPERRSTS
NDTMSK
DPE

JCHECK ANY ERRORS NOT MASKED
;MASK FOR RMER1
JMASK FOR RMER?

1708

NOP
EMT
JSR
JMP

PC,a(SP)+
2008

JSR

PC,SECERR

1808

160 TO 1708 IF NO ERROR

JRETURN HERE 1F ERROR
JERROR # DEFINED BY CMPERRSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
:60 TO 2008 IF ERROR
;60 CHECK FOR SECONDARY ERRORS

:G0 TO 1808 IF NO ERROR

NOP
EMT
JSR

PC,a(SP)+

JRETURN HERE 1F ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

INC
CMP

RMDAO
R3,RMDAD

s INCREMENT SECTOR ADDRESS
;DONE ALL SECTORS??

BIT
MOV

#EMT16,RMOFO
FEMT16,RMOFO

;IS 16 BIT FORMAT DONE??
:SET 16 BIT FORMAT

JMP

BHlS
001442
001442

160 TO 2008 IF ERROR

NOP
EMT
JMP

1808:

2008

:6G0 TO 1208 IF NO ERROR

;60 URng REGISTER(S) WITH PUT SUBROUTINE

1608:

1208

PC,PUT

B8R

004737

000405

:60 VERIFY RESULTS OF SEEK OPERATION

1508:

SEQ 0158

PC,SEKSTS

000405

036214

58}2 036156

001410

051644

000240
104000
004736
000137

036142

JSR

036214

036114
036116
036120
036122
2008 036126
2009 036126

036132

¢ 13

MACRO v03.01 11-APR=-80 13:04:53 PAGE 12-74

2008
1208

:60 TO 2008 IF ERROR
INO! !

C l R MMAO RMO5/3/72 FCTINL TST 1
161
SEARCH ON CYLINDER

MACRO v03.01

D13

11-APR-80 13:04:53 PAGE 12-75

001007

BNE

001416

:BR IF

YES

MOV

#31. ,R3

‘R3 = MAXIMUM SECTOR ADDRESS

JMP

85§

160 TEST AGAIN

MOV

:
2008

2008

SEQ 0159

#0,RMDAO

:START AT TRACK = 0, SECTOR = 0

:"""""".'.""""""""""".".'."'.'."'."..""."Q

SRTEST 62

SEARCH OFF

CYLINDER

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

036234
2024
2025 036242
036246

000004
000240
012706
013700
013701
012737
004737
054130

T§162:

001100
001276
001464
000062

001226

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

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

JSR

PC,TSTPRP

:PREPARE DEVICE FOR TEST

MOV

043150

;SCOPE CALL

NOP
MOV
MOV
MOV

LWORD

#62,8TESTN

054130

::SET TEST NUMBER IN APT MAIL BOX
*TASK DESCRIPTOR AS FOLLOWS:

:CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION

:PACK ACKNOWLEDGE

VOLUME

*VERIFY PACK ACKNOWLEDGE

036250
036252

000404

NOP

036720
000000
000000
000035
000632
000633
000005
001444
001543
000032
000034
000006
000000
000200
044070
064424

—

001416
001442
.

001410

000137

036720

004737

044766

004737
000404
000240
104000
000137

044154

*RETURN HERE

ERROR

MOV
MOV

#0,RMDAO
#0 RMOFO

;START WITH 18 BIT MODE

MOV

#610.,R3

MOV

MOV
MOV
MOV

MOVB

MOVB
MOVB
JSR
JSR

EMT

#29. R4

#611..RS

‘R4 = MAXIMUM SECTOR ADDRESS
:R3 = SEARCH CYLINDER

‘RS

= SEEK

CYLINDER

#SEEK'!GO,RMCS10 ;LOAD SEEK COMMAND
RS,RMDCO
:LOAD CYLINDER ADDRESS
#PUTINX,R2
:R2 POINTS TO REGISTER TABLE

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

WRMDA.(R2)+

#RMCST,(R2)+

#200, (R2)+
PC,GETSTS
PC.PUT

1008

:SETUP REGISTER INDEX TABLE
‘FOR SEEK COMMAND

;TERMINATE TABLE
;SETUP FOR STATUS
;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

:60 TO 1008 IF NO ERROR

JRETURN HERE

ERROR

:ERROR # DEFINED BY PUT SUBROUTINE

JMP

230%

JSR

PC,TIMOUT

;WAIT FOR SEEK TO COMPLETE

JSR

PC,GET

;G0 READ REGISTER(S)

NOP

036720

160 TO 80S IF NO ERROR

2308

MOVB
MOVB

1008

*RECALIBRATE IF ''SKI' OR 'PIP'* IS SET
:VERIFY RECALIBRATION
*ERROR # DEFINED BY TSTPRP SUBROUTINE
‘60 TO 2308 IF ERROR

NOP

2042 036376
2043 036376
2044
2045 036402
036406
036410
036412
036414

VALID

EMT
JMP

MOV

90$:

808

NOT

EMT

JMP

1108

2308

;G0 TO 230% IF ERROR

WITH GET

160 TO 1108 1F NO ERROR
JRETURN HZRE

ERROR

SUBROUTINE

JERROR # DEFINED BY GET SUBROUTINE

160 T0 2308 IF ERROR

(ZRHHAO RMO5/3/2 FCINL TST 1
162
SEARCH OFF CYLINDER

036420

0
036510
036510

036514

c058 036532
2059 036532
036536
036540
036542
036544
036546
2060 036552
2061 036552
036556
036560
036562
036564
036566
2062 036572
2063 036572
036576
036600
036602
036604
036606
036610
036612
2064 036616
2065 036616

036622
036624

004737
000405
000240
104000
004736
000137

065152

004737
000405
000240
104000
004736
000137

052270

010337
012737
004737
000404
000240

001444
000031
044424

000137

036720

004737

044766

004737
000404
000240
104000
000137

104000

MACRO v03.01

1108:

036720

120%:

036720

130%:

001410

140%:

E 13

11-APR-80 13:04:53 PAGE 12-76

SEQ 0160

JSR
BR
NOP
EMT
JSR
JMP

PC,PRIERR

JSR
BR
NOP
EMT
JSR
JMP

? LS EKSTS

MOv
MOov

R3,RMDCO

:LOAD CYLINDER ADDRESS

140%

;60 TO 1408 IF NO ERROR

JSR
BR
NOP
EMT
JMP

1208

C,d (SP)+

6
2 308
308
6

PC,a(SP)+

2308

;G0 CHECK FOR PRIMARY ERRORS
;60 TD 1208 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
:60 BACK _FOR MORE ERROR CHECKS

;60 TO 2308 IF ERROR

;60 VERIFY RESULTS OF SEEK OPERATION

;60 TO 1308 IF NO ERROR
sRETURN HERE IF ERROR

;ERROR # DEFINED BY SEKSTS SUBROUTINE

;G0 BACK _FOR MORE ERROR CHECKS

;G0 TO 2308 IF ERROR

#SEARCH!GO,RMCS10
:LOAD SEARCH COMMAND
PC,PUT
;GO WRITE REGISTER(S) WITH PUT

2308

;RETURN HERE

SUBROUTINE

ERROR

;ERROR # DEFINED BY PUT SUBROUTINE

;GO TO 230% IF ERROR

JSR

PC,TIMOUT

;WAIT FOR SEARCH TO COMPLETE

044154

JSR

PC,GET

036720

NOP
EMT
JMP

2308

;GO READ REGISTER(S) WITH GET SUBROUTINE
;60 TO 150% IF NO ERROR
;RETURN HERE 1F ERROR
;ERROR # DEFINED BY GET SUBROUTINE

JSR

PC,PRIERR

004737
000405
000240
104000
004736
000137

045152

004737
000405
000240
104000
004736
000137

057666

004737
115760
000010
000405
000240
104000
004736
000137

051644

004737
000405
000240

046004

150%:

NOP

036720

160%:

170%:

EMT
JSR
JMP

180%:

;60 TO 230% IF ERROR

1608

;60 CHECK FOR PRIMARY ERRORS
;60 TO 160% IF NO ERROR

PC,a(SP)+

;ERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK_FOR MORE ERROR CHECKS

;RETURN HERE

ERROR

2308

;60 TO 230% IF ERROR

JSR
BR
NOP
EMT
JSR
JMP

PC,SCHSTS

;GO VERIFY SEARCH OPERATION
;60 TO 1708 IF NO ERROR

PC,a(SP)+

:ERROR # DEFINED BY SCHSTS SUBROUTINE
;GO0 BACK_FOR MORE ERROR CHECKS

JSR
.WORD

PC,CMPERRSTS
NDTMSK

;CHECK ANY ERRORS NOT MASKED
sMASK FOR RMER1

WORD

036720

150%

NCP
EMT
JSR
JMP

JSR
NOP

1708

230%

;RETURN HERE

ERROR

;G0 TO 2308 IF ERROR

:MASK FOR RMERZ2

;60 TO 180% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY CMPERRSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
;60 TO 2308 IF ERROR
;G0 CHECK FOR SECONDARY ERRORS
;60 TO 190¢ IF NO ERROR
;RETURN HEkc IF ERROR

CZRMMAO RH05€3/2 FCINL TST 1
SEAR H OFF CYLINDER
162

036720

190%:

010000

001442

010000
000037
000632
000633
000000
036312

001442

001416

11-APR-80 13:04:53 PAGE 1 2=77

ONO
Ottt
O

0366%6
036630
036632
2066 036636
2067 036636
2068 036640
2069 036642
2070 036646
20;1 036652
2072
2073 036654
2074 036662
2075 036664
2076 036672
2077 036676
2078 036702
2079 036706
2080 036714
2081 036720

MACRO vO03. 01

EMT
JSR
JMP

;ERROR # DEFINED BY SECERR SUBROUTINE
;GO BACK_FOR MORE ERROR CHECKS

2308

;G0 TO 2308 IF ERROR

DEC
INC
INC
CMP
BHIS

R3
RS

225%

;DECREMENT SEARCH CYLINDER
: INCREMENT SEEK CYLINDER
; INCREMENT SECTOR ADDRESS
;DONE ALL SECTORS??
:NO = DO NEXT SECTOR

BIT

#FMT16,RMOFO

;DONE 16 BIT MODE YET ?

MOv
MOv
MOV
MOv
MOv
JMP

#EMT16,RMOFC

BNE

225%:
230%:

P A(SP)+

SEQ 0161

RMDAO
R& ,RMDAO

2308

#31. R4

#410.,R3
#4611, ,RS
#0,RMDAO
90%

:BR _IF

YES

;SET 16 BIT FORMAT

:R4 = MAXIMUM SECTOR ADDRESS

;R3 = SEARCH CYLINDER

;R5 = SEEK CYLINDER
;START AT TRACK = 0,
;GO TEST AGAIN

SECTOR = 0

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

;*TEST 63
M

036720
036720
036722
036724
036730
036734
036740

2084
2085 036746
036752

000004
000240
012706

013700
013701

012737
004737
054130

TST63

001100
001276
001464
000063

SEARCH INVALID SECTOR

AAAEAAE 2SR
222002 RRRRRRRRRRR
)

001226

043150

SCOPE
NOP
MOv

#STACK,SP

MOV
MOv
MOv

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

JSR
.WORD

PL,TSTPRP

054130

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

= DEVICE BEING TESTED

;:SET TEST NUMBER IN APT MAIL BOX
;PREPARE DEVICE

FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE

VOLUME

;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE

NNNNNNNNNNN
WMLV
O NN NN
NN NNNN

037320
000000
000000
000036
000031
001543
000034
000032
000006
000000
000200
044070

004737

053530

Ottt
s OO OOO

2087 036766
2088 036774
2089 037002
2090 037010
2091 037016
2092 037022
2093 037026
2094 037032
2095 037036
2096 037042
2097 037046
2098 037052
2099 037052

80%

EMT
JMP

190%

NOP

[ I
e
S rororororornorornornn

036754
036756
036760
636762
2086 036766

001442
001444
001416
001410

80%:

90%:

MOV
MOV
MOV
MOV
MOV
MOvB
MOvVB

MOvVB
MOvVB
MOvB
JSR

JSR

#0,RMOFO
#0 RMDCO

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

;SET

18 BIT FORMAT

sCYLINDER =

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

;TERMINATE

PC,CNTCLR

;G0 ISSUE CONTROLLER CLEAR

PC,GETSTS

VALID

;VERIFY RECALIBRATION
;G0 TO 80% IF NO ERROR
:RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;60 TO 190% IF ERROR

;FIRST INVALID SECTOR = 30.
#30. ,RMDAOD
#SEARCH!GO,RMCS10
: SEARCH COMMAND
#PUTINX,R2
;WRITE REGISTER TABLE FOR
#RMDC, (R2)+
: COMMAND

#RMCST, (R2)+

NOT

TABLE

sSETUP STATUS FETCH

%égflHAO RMO5/372 FCINL TST

SEARCH INVALID SECTOR

037056
037060
037062
027064
2100 037070
2101 037070

037074

037076
037100
037102
2102 037106
%}82 037106

000404
000240
104000
000137

037320

004737

044424

000404

000240
104000
000137

037320

004737

044766

004737
000404
000240
104000
000137

044154

004737
000405
000240
104000
004736

045152

2105 037112
037116
037120
037122
037124
2106 037130
2107 037130
037134
037136
037140
037142
037144
2108 037150
2109 037150
037154
037156
037160
037162
0371664
2110 037170
2111 037170

037176
037200
037202

000240
104000
004736

037174

0372064

2112 037210
2113 037210
037214
037216
037220
037222
037224
037226

037230

2114 037234
2115 037234
037240
0372642
037244
037246

037250
2116 037254

2117 037254

037320

000137

037320

004737
000405
000240
104000
004736
000137

057666

037320

004737

061232

000405

000137

037320

004737
117760
000010
000405
000240
104000
004736

051644

000137

037320

004737
000405
000240
104000
004736

046004

000137

037320

005237

001416

MACRO v03.01

958:

11-APR-80

1208
:

1308:

1408:

95%

1908

;60 TO 95$ IF NO ERROR
‘RETURN HERE IF ERROR
:ERROR NUMBER DEFINED BY SUBROUTINE
160 TO 1908 IF ERROR

JSR

PC,PUT

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

NOP
EMT
JMP

1908

JERROR # DEFINED BY PUT SUBROUTINE
160 TO 1908 IF ERROR

JSR

PC,TIMOUT

;WAIT FOR GO TO RESET

JSR
BR
NOP
EMT

PC,GET
1208

JMP

1908

;G0 READ REGISTER(S) WITH GET SUBROUTINE
:60 TO 1208 IF NO ERROR
‘RETURN HERE IF ERROR
sERROR # DEFINED BY GET SUBROUTINE
260 TO 1908 IF ERROR

JSR
BR
NOP
EMT
JSR
JMP

PC,PRIERR
130%

ISR
BR
NOP
EMT
JSR
JMP

PC,SCHSTS
1408
PC,a(SP)+
1908

JSR

PC,STCDRVSTS

;G0 CHECK FOR CHANGES IN DRIVE STATUS

PC,a(SP)+

;RETURN HERE IF ERROR
SERROR # DEFINED BY STCDRVSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

NOP
EMT
JSR

1508:

1608:

1708 :

12-78

BR
NOP
EMT
JMP

1008
:

613

13:04:53 PAGE

JMP

1008

PC,a(SP)+
1908

1508
1908

:G0 TO 1008 IF NO ERROR
:RETURN HERE IF ERROR

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

:G0 TO 190% IF ERROR

;G0 VERIFY SEARCH OPERATION
160 TO 1408 IF NO ERROR
« “_'RETURN HERE IF ERROR
JERROR # DEFINED BY SCHSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
160 TO 1908 IF ERROR

:G€ T0O 1508 IF NO ERROR

:G0 TO 1908 I1F ERROR

JSR
.WORD
.WORD
BR
NOP
EMT
JSR

PC,CMPERRSTS
J1AE !NDTMSK
DPE
160%

JSR
BR
NOP
EMT
JSR

PC,SECERR
1708
PC,a(SP)+

;60 CHECK FOR SECONDARY ERRORS
:60 TO 1708 IF NO ERROR
JRETURN HERE IF ERROR
JERROR # DEFINED
BY SECERR SUBROUTINE
;60 BACK FOR MORE ERROR CHE(KS

INC

RMDAD

s INCREMENT SECTOR ADDRESS

JMP

PC,a(SP)+

1908

190%
_

sCHECK ANY ERRORS NOT MASKED
;MASK FOR RMER]
:MASK FOR RMER?
;G0 TO 160% IF NO ERROR
*RETURN HERE IF ERROR
JERROR # DEFINED BY CMPERRSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

160 TO 190% IF ERROR

SEQ 0162

000037

001416

010000

001442

010000
000037
037052

001442

<"‘
PO
m—
=T
Or

MACRO v03.01

—O
O
WY
ON
=N
NN

7266

1
S ECTOR

OO0O0O0O
O=—=0OWw
ONN=N)
—_-NYNO~N
WWNWN =N
NNNON

037260
WWNWWWW

D
e e
i e i i e

NNV
NN = s

CZRMMAO RHOS/S/Z
1
SEARCH
63

1 ST

001416

H13
11-APR=80 13:04:53 PAGE 12-79

CMP

#31.,RMDAD

;DONE ?

BIT
BNE
MOV
MOV

#EMT16,RMOFO
190%
#EMT16,RMOFO
31, RHDAO

sTEST FOR 16 BIT MODE YET ?
:BR IF YES
JSET 16 BIT MODE
sSET INVALID SECTOR = 31.

BHIS

175%:
190%:

JMP

175%

;BR IF NO

sTEST NEXT SECTOR

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

J*TEST 64

SEARCH INVALID TRACK

:.".."'."'.""'"""""".'".'.'..'.'..""Q"".".'.""'

000004
000240
012706
013700
013701
012737

004737
0546130

o
~NOo

s
—

001226

#STACK,SP
$BASE RO
TSTQUE ,R1

JSR
.WORD

PC,TSTPRP
054130

80%

EMT
JMP

180%

MOV
MOV

#SEARCH'GO,RMCS10
:SEARCH COMMAND
#0,RMDCO
:CYLINDER = 0

MOV

043150

037730
2 OOO
e e =t DO

004737

000031
000000
001332
001417
000000
001543
000006
000034
000032
000000
000200
044070

004737
000404
000240

053530

000137

037730

004737
000404
000240

0464424

104000

001100
001276
001464
000064

SCOPE
NOP
MOV
MOV
MOV

NOP

— e
i i () il s
LSTSTNT
ST ST NT NIV IV NN
NNNNNNNNNNN
OO
NIN O NN NN
NN NNINNYN

037354
037356
037360
037362
037366
037366
037374
037402
037410
037414
037422
037426
037432
037436

—h

VS NN - 200NN
LN =

NN
NWNWN N NN

LSLSTNTNTNTNT
ST NN NSNSV LY

2129
2130

1ST64:

104000

001410
001444

001416

MOV

001442

LSTRK,RMDAO

::SET TEST NUMBER IN APT MAIL BOX

;PREPARE DEVICE FOR 1EST
:TASK DESCRIPTOR AS FOLLOWS:
;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
:RECALIBRATE 1F ''SKI'* OR "PIP'' IS SET
;VERIFY RECALIBRATION
260 TO 808 IF NO ERROR
‘RETURN HERE IF ERROR

‘ERROR # DEFINED BY TSTPRP SUBROUTINE
260 TO 180$% IF ERROR

:LAST TRACK, SECTOR = 0

INCB
MOV
MOV
MOVB
MOVB
MOVB
MOVB
MOVB
JSR

RMDAOD+1
#0,RMOFO
#PUTINX,R2
#RMDA, (R2)+
#RMDC.(R2)+
WRMOF ,(R2)+
WRMCST,(R2)+
#200, (R2)+
PC,GETSTS

SSETUP FIRST INVALID TRACK
SSET 18 BIT FORMAT
‘WRITE REGISTER INDEX TABLE

JSR

PC,CNTCLR

160 I1SSUE CONTROLLER CLEAR

NOP

#6464 ,8TESTN

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

95%

:TERMINATE TABLE

260 TO 958 IF NO ERROR

*RETURN HERE IF ERROR

EMT
JMP

180%

*ERROR NUMBER DEF INED BY SUBROUTINE
160 TO 1808 IF ERROR

JSR

PC,PUT

:60 WRITE REGISTER(S) WITH PUT SUBROUTINE

NOP

EMT

1008

260 TO 1008 IF NO ERROR
*RETURN HERE IF ERROR

;ERROR # DEFINED BY PUT SUBROUTINE

SEQ 0163

CZRMMAD RMO5/3/2 FCINL TST 1

164

sfoo0srrnoor NN?
WA
=

—Owvoe

Al
AR
v

—

VLSV
V)

—_— s
s

SEARCH INVALID TRACK

000137

037730

004737

044766

004737
000404
000240

044154

000137

037730

004737
000405
000240

045152

104000

MACRO v03.01

:
1008

110%:

W
v

~No

[

—

104000

004736
000137
375564

037730

004737
000405
000240
104000
004736
000137

057666

004737
000405
000240

061232

:
1208

037730

130%:

104000

037730

004737

051644

117760

140%:

000010
000405
000240
104000

004736
000137
004737
000405

037730

150%:

046006

037730
=W

1608:

001417
001417

000200

010000

001442

010000
001332
001417
037456

001442
001416

180%

;60 TO 180% IF ERROR

JSR

PC,TIMOUT

;WAIT FOR GO TO RESET

JSR
BR
NOP
EMT
JMP

PC,GET

1108

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

1808

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

JSR
BR
NOP
EMT
JSR
JMP

PC,PRIERR

JSR
BR
NOP
EMT
JSR
JMP

PC,SCHSTS

JSR
BR
NOP
EMT
JSR
JMP

PC,STCDRVSTS

JSR
.WORD
.WORD

PC,CMPERRSTS
NDTMSK
! 1 AE
DPE

EMT
JSR
JMP

;RETURN HERE

ERROR

1208

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

PC,a(SP)+

;ERROR # DEFINED BY PRIERR SUBROUTINE
.60 BACK FOR MORE ERROR CHECKS
;60 TO 180% IF ERROR

1808

;RETURN HERE

ERROR

;GO VERIFY SEARCH OPERATION

1308

;GO TO 130% IF NO ERROR

PC,a(SP)+

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

180%

140%

PC,a(SP)+

180%

150%

PC,a(SP)+

180%

;:RETURN HERE

ERROR

;GO TO 180% IF ERROR

;GO CHECK FOR CHANGES IN DRIVE STATUS
;G0 TO 1408 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY STCDRVSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
;GO TC 180% IF ERROR

;CHECK ANY ERRORS NOT MASKED

;MASK FOR RMER1
;MASK FOR RMERZ2

;60 TO 150% IF NO ERROR

sRETURN HERE

ERROR

sERROR # DEFINED BY CMPERRSTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;G0 TO 180% IF ERROR
;GO CHECK FOR SECONDARY ERRORS
;G0 TO 160% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;60 TO 180% IF ERROR

JSR
BR
NOP
EMT
JSR
JMP

PC,SECERR

INCB
(MPB
BLOS

RMDAO+1
RMDAO+1,#128.
170%

s INCREMENT TRACK ADDRESS
:gg?g ALL TRACKS ?

BIT

#EMT16,RMOFO

;DONE 16 BIT MODE ?

#FEMT16,RMOFO
LSTRK ,RMDAO
RMDAO+1
90%

;SET 16 BIT FORMAT
;LAST TRACK, SECTOR = 0
;SETUP FIRST INVALID TRACK ADDRESS

BNE
MOV

MOV

170%:

SEQ 0164

JMP

NOP

WWNWWN—
N

2158
2159

004736
000137

113

11-APR-80 13:04:53 PAGE 12-80

INCB

JMP

1608

PC,a(SP)+

180%

“YES
!

sTEST

TRACK

CZRMMAD RMO5/3/72 FCTNL TST 1

164

INVALID TRACK

MACRO v03.01

J 13

11-APR=-80 13:04:53 PAGE 12-81
SEQ 0165

2173
2174 037730
2175

180%:

2176

;*TEST 65

000004
000240
012706
013700
013701
012737

2178 037756
037762

004737
054130

040104

1ST65:
001100
001276
001464
000065

000404
000240
104000
000137

040330

012737
012737
012737
012737
012702
112722
112722
112722
112722
112722
004737

000031
001467
000000
000000
001543
000032
000034
000006
000000
000200
044070

004737
000404
000240
104000
000137

053530

004737

044424

000404

040330

000240
104000
000137

040330

004737

044766

2198 040122

004737

0441564

040130
040132

000240
104000

000404

001226

043150

040106
040110
040112
2195 040116
%}3? 040116

040126

SEARCH INVALID CYLINDER

B Rt

037730
037730
037732
037734
037740
037744
2177 037750

037764
037766
037770
037772
2179 037776
2180 027776
2181 040004
2182 040012
2183 060020
2184 040026
2185 060032
2186 040036
2187 040042
2188 040046
2189 040052
2190 040056
2191 040062
2192 040062
040066
040070
040072
040074
2193 040100
2194 040100

001410
001444
001416
001442

80$:

908:

958%:

SCOPE
NOP
MOV
MOV
MOV
MOV

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

JSR
.WORD

PC,TSTPRP
054130

BR
NOP
EMT
JMP
MOV
MOV
MOV
MOV
MOV
MOVB
MOVB
MOVB
MOVB
MOVB
JSR

1908

;PREPARE DEVICE FOR TEST
sTASK DESCRIPTOR AS FOLLOWS:
;CLEAR CONTROLLER & SELECT DEVICE

sVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE IF VOLUME NOT VALID
sVERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ''SKI'" OR ''PIP'" IS SET
;VERIFY RECALIBRATION
;GO TO 80% IF NO ERRCOR
JRETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
160 TO 1908 IF ERROR

#SEARCH'!'GO,RMCS10
;SEARCH COMMAND
#823.,RMDCO
;START AT FIRST INVALID CYLINDER
#0,RMDAO
:TRACK = 0, SECTOR = 0
#0.RMOF O
:SET 18 BIT FORMAT
#PUTINX,R2
JWRITE REGISTER INDEX TABLE
#RMOF,(R2)+
#RMDC.(R2)+
WRMDA.(R2)+
#RMCST,(R2)+
#200, (R2)+
PC,GETSTS
JSETUP STATUS FETCH

JSR
BR
NOP
EMT
JMP

PC,CNTCLR
95$
190%

;60 ISSUE CONTROLLER CLEAR
:6G0 TO 958 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR NUMBER DEFINED BY SUBROUTINE
;GO TO 190% IF ERROR

JSR

PC,PUT

:60 WRITE REGISTER(S) WITH PUT SUBROUTINE

NOP
EMT
JMP

190%

JRETURN HERE IF ERROR
sERROR # DEFINED BY PUT SUBROUTINE
160 TO 1908 IF ERROR

JSR

PC,TIMOUT

JSR

PC,GET

BR
1008:

80%

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

NOP
EMT

1008

1108

:GO TO 100$ IF NO ERROR

;60 READ REGISTER(S) WITH GET SUBROUTINE

:6G0 TO 1108 IF NO ERROR

JRETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE

CégflHAO RMO5/372 FCINL TST 1
MACRO v03.01
SEARCH INVALID CYLINDER

040134
2199 040140
2200 040140
040144
060146
040150
040152
040154
01 040160
02 040160
040164
040166
040170
040172
040174
2203 040200
2204 040200
060204
040206
040210
040212
040214
2205 040220
2206 040220
040224
040226

000137

040330

004737
000405
000240

045152

K13
11-APR-80 13:04:53 PAGE 1282

1108:

004736
000137

040330

004737
000405
000240
104000
004736
000137

057666

004737
000405
000240

061232

120%:

004737
117760
000010
000405
000240

¥
PR
o

oo
N NN
NN = bbb et b b b s = O
N=OOVENOWVI WN—=O 0

040270
040276

040330

130%:

040330

140%:

051644

040330

150%:

046004

005237

001444
001444

002000

010000

001442

010000
001467
040062

001442
001444

040330

JSR
BR

PC,PRIERR

;G0 CHECK FOR PRIMARY ERRORS
;60 TO 1208 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
;60 TO 1908 IF ERROR

EMT
JSR
JMP

JSR
BR

JMP
JSR
BR

NOP

004737
000405
000240
104000
004736
000137

040300
040306
040310
040316
040324

;G0 TO 1908 IF ERROR

EMT
JSR

104000

004736
000137

190%

NOP

104000

004736
000137

JMP

NOP

104000

EMT
JSR
JMP
JSR
.WORD
.WORD
BR
NOP
EMT
JSR
JMP

JSR
BR

NOP

EMT

040330

160%:

170%:

SEQ 0166

1208

PC,a(SP)+

1908

PC,SCHSTS

1308

;GO VERIFY SEARCH OPERATION
;G0 TO 1308 IF NO ERROR

PC,a(SP)+

1908

;ERROR # DEFINED BY SCHSTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;60 TO 1908 IF ERROR

PC,STCDRVSTS

;G0 CHECK FOR CHANGES IN DRIVE STATUS

PC,a(SP)+

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

1408

1908

PC,CMPERRSTS
TAE !NDTMSK
DPE

1508

PC,a(SP)+

190%

PC,SECERR

160%

JSR
JMP

PC,a(SP)+

INC
CMP
BLT

RMDCO

BIT
BNE

#EMT16,RMOFO
190%
HEMT16,RMOFO
#823.,RMDCO

MOV
MOV

JMP

190%

RMDCO,#1024.
170%

90%

;RETURN HERE

ERROR

;G0 TO 140% IF NO ERROR
;RETURN HERE IF ERROR

;60 TO 190% IF ERROR

;CHECK ANY ERRORS NOT MASKED

:MASK FOR RMER1
:MASK FOR RMERZ2

;G0 _TO 1508 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY CMPERRSTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;G0 TO 190% IF ERROR
;60 CHECK FOR SECONDARY ERRORS
;G0 TO 160% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBRCUTINE
;GO BACK FOR MORE ERROR CHECKS
;G0 TO 1908 IF ERROR
: INCREMENT CYLINDER ADDRESS
:ggyg ALL CYLINDERS ?

;SET 16 BIT FORMAT

V83!

sSET 16 BIT FORMAT
sSTART AT

FIRST

INVALID CYLINDER

190%:
tIl.'tt.t"".""'""i'.'t"t..'l""'l"lt."lltll'.t'l"ltt

'YEST 66

IVC SEARCH TEST

t'..""t'l"..t.'""""".'.'l"l.l'i.."l.l't"'tt.'.t't't'

040330
040330
040332

000004
000240

TSTbb

SCOPE
NOP

:SCOPE CALL
;START OF TEST

~N—OO>

0473
5613

043150

OO00OoO

001100
001276
001464
000066

040362

1270
1370
1370
1273

040334
0460340
040344
040350

CZRMMAO RMO5/3/2 FCINL TST 1
166
IvC SEARCH TEST

MACRO v03.01

L 13

11-APR-B0 13:04:53 PAGE 12-83.
MOV
MOv

MOV
MOv

001226

JSR
.WORD

#STACK,SP

$BASE ,RO

TSTQUE ,R1
#66,8TESTN
PC,TSTPRP

054130

SEQ 0167

sINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS
:(R1)

= DEVICE BEING TESTED

;sSET TEST NUMBER IN APT MAIL BOX
;PREPARE DEVICE FOR TEST

s TASK DESCRIPTOR AS FOLLOWS:

sCLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE

VOLUME NOT VALID

sVERIFY PACK ACKNOWLEDPGE

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

NN NN NN O NN NN N
NNNONNNNN
NN NNSN

000024
000200
000001
044424

NNNNNNNNNNNNN

80%

EMT
JMP

160%

NOP

040710

Ottt h s s et O OO OOO
[ R
e
e
Y
S
S
S
SR
SNONNNONNNONONNONN

o
&~
o
o

(=]

WN =0V~

040364
040366
040370
040372
25 040376
26 040376
0460404
040412
040420

040710
000000
000000
000000
000000
000031
001543
000024
000034

001543
001544
001434

001434
001444
001416
001442
001410

80%:

MOvB
MOvB
MOv

JSR

90$%:

044070
044424

NOP
EMT
JMP
MOV

MOv
MOV
MOv
MOV
MOV
MOvB
MOvVB
MOvB
MOvB
MOVB
MovB
JSR

040600
040602
040604

104000

90%

160%
#0,RMMR10
#0,RMDCO
#0,RMDAO
sTRACK = 0, SECTOR = 0
#0,RMOFO
:18 BIT FORMAT
#SEARCH!GO,RMCS10
sSEARCH COMMAND
#PUTINX .R2
sLOAD INDEX TABLE
#RMMR1, (R2)+
#RMDC, (R2) +
#RMDA, (R2) +
FRMOF | (R2)+

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

EMT
JMP

160%

:ERROR # DEFINED BY PUT SUBROUTINE
;60 TO 160% IF ERROR

JSR

PC,TIMOUT

;WAIT FOR GO TO RESET

0464154

JSR

PC,GET

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

040710

NOP
EMT
JMP

1108
1608

;60 TO 1608 $1 IF ERROR

044766

004737
000405
000240

#DMD ,RMMR10
PC,PUT

sSETUP PUT INDEX TABLE
sSET TERMINATOR BYTE
;SET RMMR1 OQUTPUT BUFFER = DMD
;60 WRITE RMMR1 VIA PUT SUBROUTINE
;G0 TO 90% IF NO ERROR
sRETURN HERE 1F ERROR
sERROR DEFINED BY PUT SUBROUTINE
;G0 TO 1608 IF ERROR
sRESET DIAGNOSTIC MODE
sCYLINDER = 0

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE
;G0 TO 1008 IF NO ERROR

040710

2245 040574
2246 040574

#200,PUTINX+1

PC,GETSTS
PC,PUT
1008

JSR

NOP

2241 040552
22:% 040552
22
2264 0460556

#RMMR1,PUTINX

;VERIFY RECALIBRATION
;60 TO 80% IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 160% IF ERROR

045152

:
1008

110%:

JSR
BR
NOP
EMT

PC,PRIERR

1208

:RETURN HERE

ERROR

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

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

sRETURN HERE

ERROR

;ERROR # DEFINED BY PRIERR SUBROUTINE

CZRMMAQ RMOS/3/2 FCINL TST 1

T66

1VC SEARCH TEST

MACRO v03.01

SEQ 0168

040606

004736

2247 040614
2248 040614
2249 060622
2250 040626

000137

040710

032737
001012
01§737

010000

001376

010000

042737

167777

040610

2251 040632

013737

2253

104260

zzsg 060640

060646

2254 040650
2255 040650
04606564
040656
040660
040662
060664
060666

040670

2256 060674
2257 040674

040700

040702
040704
040706
gsgg 040710

004737
115760
010010
000405
000240
104000
004736

001376

JSR

PC,ASP)+

1608

:G0 TO 1608 IF ERROR

001140

BIT
BNE
MOV

#1VC,RMER2]
1308
#1vC,SGDDAT

:DID IVC SET??
SYES!!
CEXPECTED STATUS

001142

BIC

040710

004737

046004

1208:

001142

1308:

051644

000137

000403

M 13
11-APR=-80 13:04:53 PAGE 12-84

1508:

JMP

MOV

RMERS],$BODAT

EMT

260

JSR
.WORD
.WORD
BR
NOP
EMT
JSR

PC,CMPERRSTS
NDTMSK
IVC'DPE
1508
PC,a(SP)+

JCHECK ANY ERRORS NOT MASKED
;MASK FOR RMER1
‘MASK FOR RMER2
160 TO 1508 IF NO ERROR
:RETURN MERE IF ERROR
*ERROR # DEFINED BY CMPERRSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

;60 CHECK FOR SECONDARY ERRORS

PC,a(SP)+

JRETURN HERE IF ERROR
*ERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

JMP

B8R

000240
104000
004736

1608 :

2260

:60 BACK FOR MORE ERROR CMECKS

NOP
EMT
JSR

#*C1VC,$BODAT

1608

:-RECEIVED STATUS

:60 TO 1608 IF ERROR

160 TO 1608 IF NO ERROR

;:.'.'.t."tttt"""'.""."'ll'".Q'.t"..""'t'tl..l"".t't

;*TEST 67

ABORT SEARCH TEST

:.'"""'Ql'.""l"t""t't"t""..lt..l't'tt'.'.t."."".t"t

040710
040710
040712
040714
040720
060724

000004
000240
012706
013700
013701

2262 060736
040742

004737
054130

s 040730

060744
060746
040750
040752

2263 040756
2264 060756
2265 040766
2266 040772
2267 041000
2268 041006
2269 041012
2270 041016

012737

15167:
001100
001276
001464

000067

001226

041254

012737
012737
012737
012737
012702
112722
112722

040000
000031
000000
000000
001543
000034
000006

001424
001410
001444
001416

#STACK,SP
$BASE RO
TSTQUE ,R1

JSR
.WORD

PC,TSTPRP
054130

MOV

043150

000404
000240
104000
000137

SCOPE
NOP
MOV
MOV
MOV

808:

BR
NOP
EMT
JMP

MOV
MOV
MOV
MOV
MOV
MOVB
MOVB

#67,8$TESTN

80$

1608

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

::SET TEST NUMBER IN APT MAIL BOX

;PREPARE DEVICE FOR TEST
STASK DESCRIPTOR AS FOLLOWS:
:CLEAR CONTROLLER & SELECT DEVICE
sVERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE IF VOLUME NOT VALID
:VERIFY PACK ACKNOWLEDGE

*RECALIBRATE IF ''SKI" OR "PIP" IS SET
*VERIFY RECALIBRATION
160 TO 808 IF NO ERROR
:RETURN MERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE

160 TO 1608 IF ERROR

SUNS ,RMER10
:SET UNSAFE ERROR
#SEARCH!GO,RMCS10
:SEARCH COMMAND
#0,RMDCO
:CYLINDER 0
#0 . RMDAO
*SECTOR = 0, TRACK = 0
#PUTINX,R2
*WRITE REGISTER INDEX TABLE
#RMDC, (R2)+
#RMDA. (R2)+

¢ 4 R MMAO RMO5/3/2
i67

ABORT SEA

SEQ 0169

044424

041254
044154

000137

041254

032737

020000

001346

000000
001346
157777

001140
001142
001142

104000

1046261

2293
2294

2295
2296

004737

(66766

004737
000404
000240
104000
000137

044154

004737
000405
000240
104000
004736
000137

045152

004737
000405
000240
104000
004736
000137

061232

004737

051644

155760
000010

000405
000240
104000
004736
000137

041244
041246

90$:

004737
000404
000240

004737
000403
000240

041254

100%:

JSR
BR
NOP
EMT
JMP
BIT
BEQ
MOV
MOV

BIC

1108:

120%:

041254

041254
046004

140%:

150%:

;TERMINATE TABLE

sSETUP FOR STATUS
;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

;60 TO 908 IF NO ERROR

+RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;G0 TO 160 IF ERROR

;GO READ REGISTER(S) WITH GET SUBROUTINE

;60 TO 1008 IF NO ERROR
160%
#P1P ,RMDSI

1108

#0,$GDDAT
RMDSI,$BDDAT
#*CPIP,$BDDAT

;RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;G0 TO 1608 IF ERROR
:1S PIP SET??
sNO!!
;EXPECTED STATUS
;RECEIVED STATUS

261

JSR

PC,TIMOUT

;WAIT FOR GO TO RESET

JSR
BR
NOP
EMT
JMP

PC,GET

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

JSR
BR

PC,PRIERR

120%

1608

130%

;60 CHECK FOR PRIMARY ERRORS
:60.°TO 1308 IF NO ERROR

JSR
JMP

PC,a(SP)+
?
160 $

sERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FGR MORE ERROR CHECKS
;60 TO 160% IF ERROR

JSR
BR
NOP
EMT
JSR
JMP

PC,STCDRVSTS

1608

;GO TO 1608 IF ERROR

JSR
.WORD
.WORD

PC,CMPERRSTS
NDTMSK!UNS
DPE
1508

sCHECK ANY ERRORS NOT MASKED
:MASK FOR RMER1

EMT

130%:

EMT

NOP

041254

R2
R2)+

MOVB
MOVB
MOVB
JSR
JSR
BR
NOP
EMT
JMP

NOP
EMT
JSR
JMP

JSR
NOP

4
140%

PC,a(SP)+

PC.a(SP)+

1608

PC,SECERR

1608

;RETURN HERE IF ERROR

;GO CHECK FOR CHANGES IN DRIVE STATUS
;G0 TO 140% IF NO ERROR
sRETURN HERE IF ERROR
:ERROR # DEFINED BY STCDRVSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

;MASK FOR RMER?

;60 TO 1508 IF NO ERROR

+RETURN HERE I1F ERROR
+ERROR # DEFINED BY CMPERRSTS SUBROUTINE
;60 BACK FOR MORE ERRCR CHECKS

;60 TO 160% IF ERROR

;G0 CHECK FOR SECONDARY ERRORS
;60 TO 160% IF NO ERROR
sRETURN HERE

ERROR

B
AP FCINL
i RMO5/3/2
;HHAO
TST 1
ABORT

SEARCH TEST

041250
041252
gggg 041254

14
MACRO v03.01 11-APR-80 13:04:53 PAG% 12-86

104000
004736

1608:

2299

EMT
JSR

SEQ 0170

;ERROR # DEFINED BY SECERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
:
_

PC,a(SP)+

L
T T T T R T P T P T

;*TEST 70

041254
0412564
041256
041260
0412664
061270
2300 041274

000004
000240
012706
013700
013701
012737

2301 041302
041306

004737
054130

1S170:
001100
001276
001464
000070

001226

043150

SEARCH AT OFFSET
R

SCOPE
NOP
MOv
MOv
MOV
MOv

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

JSR
.WORD

PC,TSTPRP
054130

Ry
T

e
T

TRy

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

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

sCLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE

VOLUME NOT

JVERIFY PACK ACKNOWLEDGE

VALID

sRECALIBRATE IF ''SKI'* OR "'PIP'" 1S SET

041310
061312
041314
041316

000404
000240
104000
000137

041612

012737
012737
012737
012737
012702
112722
112722
112722

000000
000000
010000
000015
001543
000006
000034
000032

2312 041376
2313 061402
061406
041410
041412
047416
2314 061420
2315 061420
2316 061426
2317 041430
2318 041430
2319 041436
2320 041446
2321 061452

112722
004737
000404
00024N
1040°
0001 .

000200
064424

061460
061462

000240
104000

2302 041322
2303 061322
2304 041330
2305 04641336
2306 041346
2307 041352
2308 041356
2309 041362
2310 041366

2311 001372

041456

0641464
2322 041470
2323 041470

112722

000000

044070
044766

112737
112737
012737
006737

000000
000200
000031
044424

000137

041612

004737

044766

908:

001543
001544
001410

1208:

1808

sVERIFY RECALIBRATION
260 TO 80S IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEFINED BY TSTPRP SUBROUTINE
160 TO 1808 IF ERROR

#0,RMDCO
:CYLINDER = 0
#0 . RMDAO
:TRACK = 0, SECTOR = 0
#FMT16,RMOFO
:16 BIT FORMAT
#OFFSET!GO,RMCS10
:OFFSET COMMAND
#PUTINX ,R2
:SETUP REGISTER INDEX TABLE
#RMDA, (R2)+
:FOR SEEK TO CYLINDER 0
#RMDC.(R2)+
WRMOF . (R2)+

MOVB
JSR
BR
NOP
EMT
JMP

#200, (R2)+
PC,PUT
90$

JSR
JSR

PC,GETSTS
PC.TIMOUT

MOVB
MOVEB
MOV
JSR

#RMCS1,PUTINX
:;LOAD REGISTER INDEX TABLE
#200,PUTINX+1
#SEARCH'GO,RMCS10
:STORE SEARCH COMMAND
PC,PUT
;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

#RMCST,(R2)+

1808

:60 WRITE REGISTER(S) WITH PUT SUBROUTINE
260 TO 908 IF NO ERROR
JRETURN HERE IF ERROR
:ERROR # DEFINED BY PUT SUBROUTINE
260 10 180% IF ERROR
:SETUP FOR STATUS FETCH

1308

160 TO 1308 IF NO ERROR

JMP

1808

160 TO 1808 IF ERROR

JSR

PC,TIMOUT

NOP
EMT

1308:

80$

MOV
MOV
MOV
MOV
MOV
MOVB
MOVB
MOVB

MOVB

041612

004737
004737

000404

001444
001416
001442
001410

808:

BR
NOP
EMT
JMP

:RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE
:WAIT FOR SEARCH TO COMPLETE

CIR MMAQ RMO5/3/2 FCTNL TST 1
170
SEARCH AT OFFSET

041474
041500
061502
041504
041506
061512
0641512
061516
061520
041522
041524
041526
0641532
041532
061536
041540
061542
041544
041546
041552
041552
041556
041560
041562
041564
041566
041570
041572
041576
041576
041602
041604
041606
041610
041612

004737
000404
000240

044154

000137

061612

004737
000405
000240

045152

104000

MACRO v03.01 11-APR-B0 13:04:53 PAGE 12-87

140%:

104000

004736
000137
004737
000405
000240

041612

1508
:

057666

104000

004736
000137

041612

004737

051644

115760

1608:

000010
000405
000240
104000

004736
000137
004737
000403
000240

JSR
BR
NOP
EMT
JMP

PC,GET

JSR
BR
NOP
EMT
JSR
JMP

PC,PRIERR

JSR
BR
NOP
EMT
JSR
JMP

PC,SCHSTS

JSR
.WORD

PC,CMPERRSTS
NDTMSK
DPE

.WORD
BR
NOP

041612

170%:

046004

EMT
JSR
JMP

JSR
BR

NOP

104000

004736

180%:
A2

EMT
JSR

TRTEST 71

SEQ 0171

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

1408

1808

1508

;GO CHECK FOR PRIMARY ERRORS
;60 TO 1508 IF NO ERROR

sRETURN HERE

PC,a(SP)+

1808

IF ERROR

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

1608

;GO0 VERIFY SEARCH OPERATION
;60 TO 1608 IF NO ERROR

PC,a(SP)+

;ERROR # DEFINED BY SCHSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
;60 TO 180% IF ERROR

;RETURN HERE

1808

170%

ERROR

;CHECK ANY ERRORS NO1 MASKED
;MASK FOR RMER1

;MASK FOR RMER?
;60 TO 1708 IF NO ERROR
sRETURN HERE IF ERROR

;ERROR # DEFINED BY CMPERRS1S SUBROUTINE

PC,a(SP)+

;60 BACK FOR MORE ERROR CHECKS
;60 TO 180% IF ERROR

PC,SECERR

180%

;G0 CHECK FOR SECONDARY ERRORS
;60 TO 180% IF NO ERROR

PC,a(SP)+

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

1808

222222222222

sRETURN HERE

2Rt

HEAD ALIGNMENT

RRRRRRRRRRRRR

ERROR

RRRRR

ARl

SEEK

E'HEAD ALIGNMENT FOR AN RMO5/3/2 DRIVE, 1S PERFORMED AT CYLINLER

;#245 DECIMAL USING THE CE PACK. A 60 MINUTE WARMUP 1S REQUIRED IF
;*THE PACK WAS NOT

IN THE DRIVE PRIOR TO HEAD ALIGNMENT OPERATION.

i 2222222222222
2R 2R iR RRRRRRRRRRR Rl Rl d ]

[ O]

e P

15171
001100
001276
001464
000001
000071
043150

SCOPE
NOP

MOV
MOV
MOV
MOv
MOv

001206
001226
10%:

JSR
.WORD

:SCOPE CALL
#STACK,SP

$BASE ,RO
TSTQUE ,R1
#1,8TIMES

#71,8TESTN
PC,TSTPRP

054130

;START OF TEST
sINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
::00 1 ITERATION
:sSET TEST NUMBER IN APT MAIL BOX
;PREPARE DEV ICE FOR TEST
Rl
sTASK DESCRIPTOR
AS FOLLOWS:

CZRMMAQ RMO5/3/2 FCINL TST 1
m
HEAD ALiGNMENT SEEK

MACRO v03.01

D 14

11-APR-B0 13:04:53 PAGE 12-88

SEQ 0172

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

000404

000365
000000
000005
001543
000034
000006
000000
000200
064424

001444
001416
001410

80%:

80%

EMT
JMP

140%

#245.,RMDCO
#0,RMDAD

sTRACK = 0, SECTOR = 0

MOv
MOv
MOV

MOV
MOvB

MOvVB
MOvB
MOvB

JSR

NOP

004737
041762
041766
041770

042100
044070
044766

EMT
90%:

062060
2367 042064
2368 042064

#200,(R2)+
PC,PUT

90%

140%

JMP
JSR
JSR

PC,GETSTS
PC,TIMOUT

JSR

PC,GET

000137

042100

NOP
EMT
JMP

1408

004737
000405
000240
104000
004736
000137

045152

JSR

PC,PRIERR

004737
000405
000240

052270

NOP

EMT

042100

110%:

004736
000137

042100

004737
115760
000010
000405
000240
104000
004736
000137

051644

004737

046004

120%:

130%:

1108

PC,a(SP)+

JSR
BR

PC,SEKSTS

1408

;WRITE TERMINATOR
;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

;G0 _TO 908 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;60 TO 1408 IF ERROR
;SETUP FOR STATUS FETCH
;WAIT

FOR SEEK

TO COMPLETE

;GO READ REGISTER(S) WITH GET SUBROUTINE
;G0 _TO 1008 IF NO ERROR
;RETURN HERE IF ERROR
sERROR ¥ DEFINED BY GET SUBROUTINE
;G0 TO 140% ii ERROR
;G0 CHECK FOR PRIMARY ERRORS

;GO TO 1108 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;G0 TO 1408 IF ERROR

EMT
JSR
JMP

PC,a(SP)+

1408

;GO VERIFY RESULTS OF SEEK OPERATION
;60 TO 1208 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY SEKSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
;60 TO 1408 IF ERROR

JSR
.WORD
. WORD

PC,CMPERRSTS
ND TMSK
DPE

sMASK FOR RMER!
sMASK FOR RMERZ2

1208

130%

:CHECK ANY ERRORS NOT MASKED

;60 TO 1308 IF NO ERROR

EMT
JSR
JMP

PC,a(SP)+

1408

sRETURN HERE IF ERROR
;ERROR # DEFINED BY CMPERRSTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;60 TO 140% IF ERROR

JSR

PC,SECERR

;60 CHECK FOR SECONDARY ERRORS

NOP

042100

100%

JSR
JMP

NOP

104000

2365 0462040
2366 062040

#RMCST, (R2)+

044154

100%:

sCYLINDER = 245.

#SE
' GO,RMCS10
EK sLOAD SEEX COMMAND IN BUFFER
#PUTINX,R2
sR2 POINTS TO REGISTER TABLE
#RMDC, (R2)+
JWRITE REGISTER INDEX TABLE
#RMDA . (R2)+

004737
000404
000240
104000

VOLUME NOT VvALID

;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ''SK1'* OR "PIP'" IS SET
;VERIFY RECALIBRATION
;GO TO 80$ IF NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY TSTPRP SUBROUTINE
;G0 TO 140% IF ERROR

NOP

042100

CZRMMAQ RMO5/3/2 FCTNL TST 1§
m
HEAD ALIGNMENT SEEK

042070
042072
062074
0462076
2369 042100
2370
2374

000403
000240
104000
004736

MACRO v03.01

E 14

11-APR-80 13:04:53 PAGE

12-89

SEQ 0173
BR

NOP

140%:

EMT
JSR

140%
PC,a(SP)+

;60 TO 140% IF NO ERROR

;RETURN HERE

ERROR

;ERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR (HECKS

CZRMMAD RMO5/3/2 FCINL TST 1

END OF

SUB-PASS ROUTINE

MACRO v03.01

11-APR-80 13:04:53 PAGE 13

SEQ 0174

.SBTTL

;THIS IS THE END OF SUB=PASS ROUTINE. THIS ROUTINE IS USED TO

;SELECT THE NEXT DEVICE FOR TEST.

9
10
11
12
13

END OF

SUB=PASS ROUTINE

;TERMINATE

THE

OPERATION OF

;7O TEST,

EXIT

IS MADE TO

THE

'$SEOP'

;1S MADE TO 'READY' ROUTINE.
042100
042102
062104
062110
062114

000004
000240
013700
062700
010037

15 062122
16 042124
17 062130

001402
000137
012737

14 042120

005710

$EOSP:

CURRENT

DEVICE

UNDER TEST

AND

THERE ARE NO MORE DEVICES

ROUTINE. OTHERWISE, RETURN

001464
000002
001464

SCOPE
NOP
MOV
ADD
MOV

TSTQUE RO
#2,R0
RO, TSTQUE

007756
001466

18:

BEQ
JMP
MOV

1%
:BR IF NO
READY
:YES, JUMP TO READY
#TSTQUE+2,TSTQUE
;INITIALIZE POINTER TO FIRST

.SBTTL

END OF PASS ROUTINE

18T

001464

(RO)

:GET POINTER TO TSTQUE
;ADJUST POINTER TO NEXT DEVICE
:SAVE POINTER TO TSTQUE

;ANY MORE DEVICES FOR TEST ?

;TEST QUE TABLE

DEVICE

::tttt'tltt.'tt'tt'tt"'t'tt"t.'t'.i't.ttttt.'t.ttt'tt't't't't"

;*INCREMENT THE PASS NUMBER ($PASS)

;*TYPE "'END PASS #XXXXX TOTAL NUMBER OF

ERRORS SINCE

;*WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS
:*1F

;*IF
042136
042136
042140
042144
042150
042154
042162
042164
042166
042170
042172
0462174
042176
042202

000240
005037
005037
005237
042737
005327
000001
003063
012737
000001
042164
104401
000407

001116
001206
001230
100000

042204

001230

042226
042230
0462236

104405
104401
000421

042236

042300
042300

013746

001126

042304
042306

104405
104401

001217

013700

000042

042316

THERES A MONITOR GO TO IT

THERE ISN'T JUMP TO READY

001230

NOP
CLR
CLR
INC
BIC
DEC
$EOPCT: .WORD
BGT
MOV
$ENDCT: .WORD
$EOPCT
TYPE
BR

::65%:

013746

005037

yyyyy'

$EOP:

042222
042222

042312

LAST REPORT

001126

64%:

;:67%:
66%:

_ASCIZ

MOV

STSTNM
$TIMES
$PASS
#100000,$PASS
(PC)+
1
$DOAGN
(PC)+,a(PC)+
1
,65%
64%

::2ERO THE TEST NUMBER
;;JERO THE NUMBER OF ITERATIONS
: s INCREMENT THE PASS NUMBER
;:DON'T ALLOW A NEG. NUMBER
;:LOOP?
::YES
;;RESTORE COUNTER
;:TYPE ASCIZ STRING
::GET OVER THE ASCIZ

<12><15>/END PASS #/

TYPDS
TYPE
8R
LASCIZ

::SAVE $PASS FOR TYPEOUT
::TYPE PASS NUMBER
::6G0 TYPE=-=DECIMAL ASCII WITH SIGN
L67%
;:TYPE ASCIZ STRING
66%
::GET OVER THE ASCIZ
/
TOTAL ERRORS SINCE LAST REPORT /

MOV

$ERTTL,=(SP)

TYPDS
TYPE

(LR

$GET42: MOV

$PASS,=(SP)

::SAVE SERTTL FOR TYPEOUT

;;TOTAL NUMBER OF

ERRORS

$CRLF

;260 TYPE--DECIMAL ASCII WITH SIGN
::TYPE CARRIAGE RETURN, LINE FEED

afs2,RO

::GET MONITOR ADDRESS

$ERTTL

::CLEAR ERROR TOTAL

(ZRMMAD RMO5/3/2 FCTNL TST
END OF PASS ROUTINE

042322

042342
21

MACRO v03.01

13=1

SEQ 0175

001405
000005
004710
000240
000240
000240

000137
007756
377

6 14

11-APR=80 13:04:53 PAGE

$ENDAD:

$DOAGN:

377

000

$RTNAD:
SENULL:

BEQ

$DOAGN

JSR
NOP
NOP
NOP

PC,(RO)

RESET

JMP
.WORD
.BYTE
.EVEN

;sBRANCH IF NO MONITOR
:;CLEAR THE WORLD
;.60 TO MONITOR
::SA;E ROOM

TIACTI
d(P(C)+

s sRETURN

=1,21,0

s sNULL CHARACTER STRING

READY

CZRMMAQ RMO5/372 FCTNL TST 1

SUBROUTINES

.SBTTL

ERROR TYPEOUT ROUTINE

LUNIT NUMBER, TEST NUMBER, ERROR NUMBER AND PROGRAM COUNTER ARE

'PRINTED ON THE FIRST LINE;

.ERROR MESSAGE 1S ASSEMBLED, FORMATTED AND PRINTED CON

:*ONE OR MORE SUCCEEDING LINES;
e
.PAIRED LINES OF ERROR HEADERS AND ERROR DATA
:«ARE PRINTED AFTER THE ERROR MESSAGE.

042346
042346
042350
042356
042360

062364
042370
062374
042400
042402
042403
062404
042410
062416
062422

042426
042430
042431
28 042432
29 042436
30 042444
31 042446
32 042452
042456
042460
042461
33 042462
34 042466

.SBTTL

SEQ 0176

;*THE ERROR TYPEOUT ROUTINE ASSEMBLES AND PRINTS INFORMATION
:'REGARDlNG THE DETECTION OF AN ERROR AS FOLLOWS:

062472
042474
0462475

36 042476

104414

ERRTYP:

032777
001402
000137

020000

104401
104401

001217
043112
001234

013746

BFQ

is:

MOV

SUNIT,=(SP)

MOV

043102

TYPE

MOV

TYPOS

.BYTE
BYTE
CLR

; INWIBIT TYPEQUTS??
NO!!

JERTYOT

TSTNMB, = (SP)

;sTYPE UNIT NUMBER

;G0 TYPE=-OCTAL ASCII

::TYPE 3 DIGIT(S)
::SUPPRESS LEADING ZEROS
:LOAD TEST NUMBER FOR

;TYPE "'TSTA"

1:SAVE TSTNMB FOR TYPEOUT

S:TYPE

TEST

NUMBER

1360 TYPE--OCTAL ASCII

S:TYPE 3 DIGIT(S)
::SUPPRESS LEADING ZEROS
:LOAD ERROR NUMBER FOR

ERRNMB, = (SP)

1:SAVE ERRNMB FOR TYPEOUT
*:TYPE ERROR NUMBER

.BYTE
BYTE

3
0

::TYPE 3 DIGIT(S)
::SUPPRESS LEADING ZEROS

MOV

$ERRPC, = (SP)

::SAVE SERRPC FOR TYPEOUT
::TYPE PROGRAM COUNTER
;:60 TYPE--OCTAL ASCII
;3TYPE 6 DIGIT(S)
STYPE LEADING ZEROS

TYPE

TYPOS

104403

$TESTN, TSTNMB

*:SAVE SUNIT FOR TYPEOUT

MOV

TYPOS

3
0
TSTNMB

;TYPE "UNTA"

BEQ

TYPE

043130
043104

"ERTYO00

0
ERRNMB
SITEMB,ERRNMB
2%

MOVB

043104

104403

003
000
104401
013746

LSCRLF

TYPE
.BYTE
BYTE
CLR

104403

013746

TYPE

TYPOS

043104
001130

#SW13,aSWR

JMP
218
SYES!!
:TYPE UNIT NUMBER, TEST NUMBER, ERROR NUMBER, AND PROGRAM COUNTER

104403

013746

SAVREG

BIT

136576

043076

NN =W
— e [\
oo
oo

24
25
26
27

H 14

11-APR-80 13:04:53 PAG 14

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

(elelele]
Lk e
P ol

2OV

PORUNRUNY
= b o
s e
s e s et

NOVES W= OOV

W) —

SUBROUTINES

MACRO v03.01

JERTYO02

JERTYO03

.BYTE
BYTE

6
1

ERRNMB

:TYPEOUT

:SKIP IF NO ERROR CALLED

STYPE "‘ERRA"

::60 TYPE--OCTAL ASCII

:TYPE ‘PC="

GENERATE POINTER TO ERROR TABLE UNLESS ERROR NUMBER 1S 0

5%:

BEQ
TYPE
C(LRB
CLRB
MOV

21%
JSCRLF
BOTFLG
CHRCNT
ERRNMB RO

:WAS AN ERROR CALLED?

INO!!
‘YES=TYPE CRLF
:CLEAR BOT FLAG
*CLEAR CHARACTER COUNTER
‘RO POINTS 10 FIRST OF

CIZRMMAO RMO5/3/2 FCTNL ST 1
ERROR TYPEOUT ROUTINE

62 042524
43 042526

006300

zg 0462536

011001

" VWY
WA
WD
O V0NV WY

51 042544
042546
042552
042556
042560
042562
042566
042570
0462574
062576
61 042602
62 042604
63 042610
64 042612
65 042616
66 042624
67 0462626
68 042630
69 042634
70 042640
71
72
73
764
75
76
77
78
79

042642
042646
042654
0462656
042662
042664
042670
0462674
042700

80 042702
81 042704
82 042712
83 042714
84 042716
85 042722
86 042724
87 042730
88 042734
89 042740
90 042744
91 042750
92 042754
93 042756
8? 042760
96 042760
97 042760
98 042764

001562

001507

012102
001505
010237
005037
112203
001454
122703

;TYPE

4%:

042714
043106

5%:

000015

06431M
000012
CO—==O00—=—=0O0—=—0O Ot
O =
- OO0 —=0ON—=0NO OOWOoOoON

48 0462540
49
50 042542

MACRO v03.01

4401

6%:

000011

043111
000007

043111

7%:

8%:

043111

BEQ

13%

BEQ

12%

THE ERROR MESSAGE
MOV
(R1)+,R2

MOV
CLR

R2,11%
BOTADR

BEQ
CMPB
BNE
CLRB
BR
CMPB
BEQ

108
#CR,R3
6%
CHRCNT
5%
#LF ,R3
5%

MOvB

BNE
INCB
BITB
BNE
BR

043111
042714

90%:

118:

BOTADR,R&

TYPE
CLRB

LOCRLF
CHRCNT
11$,R2

CLRB
MOVB
TYPE
.WORD

000002

90%

-(R4)
#-1,BOTFLG

14
14~ 1

SEQ 0177

;FOUR ENTRIES
ABLE

sR1

IN ERROR

POINTS TO ERROR MESSAGE

;TABLE
sBRANCH IF NO ERROR MESSAGE
:R2 = ADDRESS OF MESSAGE STRING

;BRANCH IF END OF MESSAGE

:LOAD ADDRESS OF STRING
;CLEAR BOT ADDRESS
END OF STRING??
YES!
CSRRIAGE RETURN??
sYES=CLEAR CHAR COUNT

:GET NEXT CHARACTER

:LINE FEED??
sYES=GET NEXT CHARACTER

HS?{ZONTAL
:N
:ADJUST

TAB??

CHARACTER

COUNT

s INCREMENT CHARACTER COUNT

SPACE??

:SAVE ADDRESS OF
;END OF LINE??

SPACE

!
INO!
;GET ADDRESS OF LAST SPACE
;BRANCH IF SPACE DETECTED
:TYPE

CRLF

sCLEAR CHARACTER COUNT

;SET UP R2 FOR TESTING
+REPLACE SPACE

:SET BOT FLAG
:TYPE ERROR MESSAGE

STRING

:STRING ADDRESS GOES HERE
:WAS STRING TRUNCATED??
:NO!!

(R2)+

:CLEAR BOT FLAG
sCLEAR CHARACTER COUNT
;SETUP R2 FOR TESTING
:SETUP 118 FOR TYPING
;RESTORE SPACE
;RESTORE R2

1518

BOTFLG

TYPE
CLRB
CLRB
MOV

MOV
MOVB

LSCRLF
BOTFLG
CHRCNT
BOTADR,R?2
R2,11%
¥ ,-(R2)

1ST18

i;;PE

8%
CHRCNT
#7,CHRCNT
7%
9%

MOV

BEQ

12%:

#HT ,R3

CHRCNT
#' ,R3
9%
R2,BOTADR
#64.,CHRONT

MOV

043110

(R2)+,R3

INCB
CMPB
BNE
MOV
CMPB

BNE

001217

043110

RO
RO
RO
#SERRTB-8.,R0
(RO) R

BHIS

043106

177777

ASL
ASL
ASL
ADD
MOV

CMPB

063111
000040

043106
000100

11-APR-80 13:04:53 PAGE

;YES=TYPE

CRLF

:TYPE REST OF

STRING

ERROR HEADER AND ERROR DATA

MOV

BEQ

2(R0O) R

;R1 POINTS TO ERROR HEADER
;BRANCH IF NO HEADER

TABLE

CIRMMAO RMO5/3/72 FCINL TST 1
ERROR TYPEOUT ROUTINE
99 042766
100 042772
101 042776
102 043002
103 043006

104401
016002
016003
012137
001433

105 043010
106 043012
107 043014
108 043020
109 043022
110 043024
111 043026
112 043030
113 043032
114 043034
115 0463036
116 043040
117 043042

104401
000000
104401
005702
001767
012204
012305
105725
100407
001403
013446
104405
000405

104

118
119
120
121
122
123
124
125
126
127
128
129
}gg

063044
043046
043050
043052
043054
043056
043060
063062
043066
043070
043074
043076
043100

013446
104402
000402
013446
104406
005714
001403
104401
000760
104401
000742
104415
000207

132
133
134
135

043102
043104
043106
043110

000000
000000
000000
000

138
139
140
141
142
}22

043112
043120
043130
043137
043145

125
054
054
054
040

}gg 043111

MACRO v03.01

001217
000004
000006
043012

J 14
11-APR-B0 13:04:53 PAGE 14=2

14%:

15%:

001217

16%:

17%:

sHEADER ADDRESS GOES HERE

0
0
0
0

ERTY00:
ERTYO1:
ERTY02:
ERTY03:
ERTYO4:
.EVEN

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

QUNIT#3
@, TEST#3
@, ERR#3
Q, PC=d
@
2

21%:

CHRCNT:

.BYTE

s (ASSUME END OF DATA)

:DATA WITH
JNO!!
;R4 POINTS
:RS POINTS
sWHAT KIND
:BINARY
;OCTAL
JDECIMAL

HEADER??
TO DATA ADDRESS
TO FORMAT
OF DATA??

19%
d(R4)+,=(SP)

.WORD
.WORD
.WORD
.BYTE

20%:

111
126
105
120
000

O
LSCRLF
R2
14%
(R2)+,R4
(R3)+,RS
(RS)+
18%
17%
a(R4)+,-(SP)

TSTNMB:
ERRNMB:
BOTADR:
BOTFLG:

043145

116
040
040
040
040

; (ASSUME NO DATA)
:R2 POINTS TO DATA ADDRESS TABLE
sR3 POINTS TO FORMAT TABLE
sPUT HEADER ADDRESS FOR TYPE
:BRANCH IF END OF HEADERS

19%:

000

TYPE
MWORD
TYPE
1ST
BEQ
MOV
MOV
1ST8
BM]
BEQ
MOV
TYPDS
BR

LSCRLF
4(RO),R2
6(RO),R3
(R1)+,15%
21%

MOV
TYPOC
BR
MOV
TYPBN
ST
BEQ
TYPE
BR
TYPE
BR
RESREG
RTS

18%:

001217

TYPE
MOV
MOV
MOV
BEQ

SEQ 0178

19%
d(R&)+,=(SP)
(R4)
20%
LERTYO4
16%
LSCRLF
14%

;MORE DATA??
NO!!
JYES=TYPE 2 SPACES
sAND CONTINUE
sTYPE ONE BLANK LINE
sBEFORE NEXT HEADER

;TEST NUMBER
;ERROR NUMBER
JBEGINNING OF TEXT ADDRESS
:BOT FLAG

sCHARACTER COUNT

CZRMMAO RMOS5/3/2 FCTINL TST 1
NS NN —

TEST PREPARATION MODULE

MACRO v03.01

K 14
11-APR-80 13:04:53 PAGE 1 5

.SBTTL

= O 0V00 N0

:
:
:
;

VB WN = OO0V
WV
NN

TEST PREPARATION MODULE

THIS MODULE PREPARES THE SUBSYSTEM FOR THE EXECUTI ON OF A TEST,
REPORTING AN ERROR TO THE USER IF AN ERROR IS DETESTED.
THE USER
ECUTES
SPECIFIES TASKS TO BE PERFORMED, WHICH THE MODULE
USING SUBROUTINES.
CALL:

POPOURUNUNUND
b
s
i i s

SEQ 0179

JSR
.WORD
BR
NOP
ERROR

PC,TSTPRP
NNNNNN
"

TASK/VERIFY DESCRIPTOR
RETURN HERE IF NO ERROR
RETURN HERE IF ERROR

ERROR DEFINED BY MODULE

s TASK/VERIFY DESCRIPTOR

SELECT DEVICE AND VERIFY DEVICE

IS AVAILABLE

b
—

T T T

CLEAR CONTROLLER AND SELECT DEVICE

PACK ACKNOWLEDGE

RECALIBRATE

VERIFY CONTROLLER CLEAR OPERATION

1
1

VERIFY PACK ACKNOWLEDGE
VERIFY RECALIBRATION

(RESERVED FOR DRIVE

CLEAR)

VOLLUME NOT VALID

POSITIONING

IN PROGRESS

@
e
e

D @

—

—y —
—
—
) —

—
e

oo
o

(RESERVED

FOR DRIVE

CLEAR)

38 043150
41
&2
43
44

000000
000006
000000
000004

46 043172
47 063176
48 043202
49 043204
50 043206

044070
044154

WDN

5 043226

VoA

6
7

O —ro

———

TSTPRP:

043150
043156
063162
043166

51 043210
52 043214
52 043222

[Ny

T
NT

— —

O — —a
O -

AN IVIP

BIT 15 = 1

0440064

;STORE TASK DESCRIPTOR AND CLEAR USER'S ERROR CALL
MOV
a(sP),5008
:STORE DESCRIPTOR
ADD
CLRB

#6,(SP)

- SMOVE

SP 10 USERS ERROR CALL

#4,(SP)

:MOVE

SP TO NO ERROR RETURN

JSR
JSR
BR
BR
.WORD

PC,GETSTS

:SETUP TO READ ALL REGISTERS

15¢

*BR IF NO ERROR DETECTED

SuB

000137

000004
043206
044054

000000

013737

001376

0440066

108:

ADD
MOvB

JMP

15%:

MOv

a(sP)

PC.GET
108

#4,

*CLEAR ERROR CALL

*GET RMER2

:GET OVER ERROR NUMBER
(SP)

lgg;z.a(sp>
RMER21,505%

*ERROR DEFINED BY GET SUBROUTINE
*XFER ERROR TO USER AND

:GET ERROR NUMBER.

;GET RMER2 AND SAVE FOR LATER

';"t."l""l"""""""t"ttl.l'tllt'll.l"...t'l"tit."'Il

CZRMMAO RMO5/3/2 FCTINL TST 1

TEST PREPARATION MODULE

58
59 043234
g? 063240

005737
100014

044064

62 043242

004737

052056

64 043250
65 043252
66 043254

000401
000000
062716

000004

gg 043266

000137

044054

63 063246

67 063260

000411

113776

043252

MACRO v03.01

L 14
11-APR-80 13:04:53 PAGE 15-1

SEQ 0180

;SELECT DchCE AND VERIFY DEVICE AVAILABLE IF BIT 15 SET IN TASK
181
5008
;SELECT DEVICE??
BPL
308
INO!!

JSR

PC,DEVSEL

:60 SELECT DEVICE

BR
MORD
ADD

20
O
#4,(SP)

;ERROR NUMBER FROM DEVSEL
s TRANSFER ERROR TO USER

000000

20%:

MOVB
JMP

30$

:NO ERROR = CONTINUE

zoi2,3(5P)

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

72 043272

“ELEAR CONTROLLER IF BIT

73 043272

032737

040000

76 043302

004737

053530

;g 043300

77 063306
78 043310
79 043312
80 043314
81 063320
gg 063326

001451

000411
000401
000000
062716
113776
000137

000004
043312
044054

044064

000000

8‘.

308:

BIT

#B1T14,5008

JSR

PC,CNTCLR

BEQ

40%:
50$:

BR
BR
.WORD
ADD
MOVB
JMP

120%

60$
50%
0
#4, (SP)
40%,3(SP)
400$

1S SET

IN TASK

:CLEAR CONTROLLER??

INO!!

;60 CLEAR CONTROLLER

:CONTINUE = NO ERROR
sERROR NUMBER FROM CNTCLR
:TRANSFER ERROR TO USER

. ..t'.'t".lt"""t"'"'i"".t"'ltt"ti."t.tt'ttt..t't't'tt

86 043332

VERIFV CONTROLLER CLEAR IF BIT6 SET

87 043332

032737

000100

90
91
92
93
94

063342
043346
043350
043352
043354

004737
000411
000401
000000
062716

0441354

113776
000137

000004
043352
044054

98 043372

004737

053646

100
10?
102
103

043400
043402
043404
043406

000401
000000
005726
062716

000004

}82 043420

000137

044054

gg 063340

95 063360
gg 0643366

99 043376

106 043412

001431

000412

113776

043402

044064

000000

1008:
110%:

000000

#B116,500%

:VERIFY??

JSR
BR
BR
.WORD
ADD
MOVB
JMP

PC,GET
90%
80$%
0
#4,(SP)

:60 GET STATUS
;NO ERROR GETTING STATUS

sERROR FROM GETTING STATUS
s TRANSFER ERROR TO USER

JSR

PC,CLRSTS

;G0 VERIFY STATUS CLEAR

BR
.WORD
187
ADD

1108
O
(SP)+
#4,(SP)

;:ERROR IN STATUS CLEAR
;STRIP RETURN ADDRESS T10
;SUBROUTINE AND TRANSFER

JMP

400

MOVB

1208

70%,3(SP)
400$

1208

1oés a(sP)

INO!!

*NO ERROR IN CLEAR

*ERROR TO USER

.t'lt"'..t'l""""'l"'l".""ttl."'ltt't.tt"..'t"'.tt"

108
109

execure PACK ACKNOWLEDGE IF BIT12 SET
NOY VALID

111 043624

032737

010000

114 043434

006737

044154

}}g 043432

70%:
80%:

IN TASK

BIT

BEQ

90%:

107

110 043424

608:

001501

044064

208:

BIT

#B1112,5008

JSR

PC,GET

BEQ

2408

IN TASK AND VOLUME

:PACK ACKNOWLEDGE??

INO!!

E
s
t:xn:g;N”Ufidhflvfidfiflvfiufihd-‘—‘—hfl
v
VOV
W
=0 VO~NO W
DO

w
W
o wn
Ll

Ow
=N
ON
OO
=Ny

000100

001346

NNNN
WWWWW
NNNN

=88
Swng
=N~
W=
Noo 8

000000

000023
000000
000200
0444624

001410
001543
001544

000004
063444
044054

—-—0

000004
043526

000000

:NO ERROR GETTING RMDS

:TRANSFER ERROR TO USER

(SP)

1308 ,a(sP)

4008
:
1508

#VV,RMDS

#200,PUTINX+1

PC,PUT

:
1608
170%:

:ERROR FROM PUT SUB

(SP)

004737
000410

044154

004737
000411
000401
000000
005726
062716
113776
000507

000004
043616

JSR
AR AR

PC,TIMOUT
A

190%:

:
2008

:WAIT
A

FOR COMMAND TO COMPLETE

;ERROR FROM GET SuB

1908 ,3(sP)

SRR}

INO!!

;G0 GET

#6,(SP)

#BIT4 SET IN TASK
;VERIFY PACK ACKNOWLEDGE??

PC,GET

5682

054526

*TRANSFER ERROR TO USER

1608,3(sP)

000020

000523

;G0 WRITE COMMAND

‘NO ERROR LOADING REGISTER

032737
001427

000000

VALID??

}982

SVERIFY PA%K ACK NOWLEDGE IF
#8174,5008
Bl
BEQ
2408

000004
043570

VOLUME

SYES!!

#PAKACK ! GO,RMCS10
:LOAD PACK ACK COMMAND
FRMCST,PUTINX
:SETUP REGISTER INDEX TABLE

1808%:

044064

;1S

2408

0464766

004737

SEQ 0181

1508

aaos

1308:
1408%:

FINSFFR& R &

M1
11-APR=80 13:04:53 PAGE 15<2

MACRO v03.01

000411
000401

———
83
SN

R RRRPPRRRPR
22 PRRPRR
NN NN N W NN NN

FE FREEF z
Pol
rSNNN—'-‘ON
PEXERGSRS &Nz
o

3 ARATION MODULE

FREFIFRE
FRFPRRR |
FEEETTEE &

—

[aal
"]
Vo

MO5/3/72 FCTNL TST 1

STATUS

*NO ERROR GETTING STATUS

: TRANSFER ERROR TO USER

400$

210%:
220%:
230%:
000000

PC,ACKSTS

;60 CHECK ACKNOWLEDGE

230%
0

:PACK ACKNOWLEDGE ERROR

2408

ADD

MOvB

(SP)+
94, (SP)

2208 ,a(sP)

*NO ERROR

:STRIP RETURN TO SUB AND
:TRANSFER ERROR TO USER

4008

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

:RECALIBRATE DRIVE IF BIT 11 IS SET IN TASK AND "'SKI'" IS SET
:OR "PIP" IS ACTIVE.

032737
001505

004000

004737
000410
000401
000000
062716

044154

000004

044064

2408:

250%:
260%:

BIT

BEQ

#B1T11,5008

4108

;RECALIBRATE??

JSR
BR
BR
.WORD

PC,GET

:6G0 GET

;ERROR FROM GET SUB

ADD

ggg:

¥4, (SP)

INO!!

RMDS

:NO ERROR GETTING RMDS
s TRANSFER ERROR

TO USER

CZRMMAD RMO5/3/

43704

043656

000000

737
004
7

040000

064066

D el
D
i
D e
D
D D e e

020000

001346

000007
000000
000200
0464424

001410
001543
001544

000004
043746
004737

000000

044766

) e e
D e

2708:

280%:

N 14
11-APR=80 13:04:53 PAGE 15 3

290%:

SEQ 0182

MOVB
BR

4008

BIT
BNE
BIT
BEQ

#5K1,505%
280%
#P1P,RMDSI
4108

MOV
MOVB
MOVB
BR
BR
.WORD
ADD

#RECAL 'GO,RMCS10
;LOAD RECALIBRATE COMMAND
#RMCST,PUTINX
sAND REGISTER INDEX
#200,PUTINX+1
PC,PUT
;G0 ISSUE RECALIBRATE
3008
:NO ERROR
290%
0
sERROR IN REGISTER TRANSFER
#4,(SP)
: TRANSFER ERROR TO USER

400%

JSR

PC,TIMOUT

JSR

3008:

)

OO O 0OV O VOO

043744
043746

043764

MACRO v03.01

776
470

D e

D i el

NNNNNN~N
SEGRENZETEIZAR 00000000
WN = OV~

TEST PREPARATI

FC 1 NL TST 1
D ULE

MOVB

250%,3(SP)
;WAS SKI

032737
001430

000010

8 044000

004737
000410
000401
000000
062716
113776
000413

044154

201 044010
202 044012
203 044016
204 044024
205
206 044026
207 044032
208 044034

044064
044066

004737
000412
000401
000000
005726
062716
113776
162716
000240
000207
000000
000000

000004
044010

044064

290%-2,a(sP)

;WAIT

FOR COMPLETION

055322

000004

044036
000002

JSR

PC,GET

BR
.WORD
ADD

3208
0
#4,(SP)

4008

340%:
3508:

JSR
BR
BR
.WORD
1ST

PC,RCLSTS
4108
3508
0
(SP)+

4008:
410%:

MOVB
SUB
NOP

340%,3(SP)
#2,(SF)

310%:
320%:

3308:

000000

R 2222222
T

:VERIFY RECALIBRATE IF BIT 3 SET IN TASK
BIT
#8113,5008
;VERIFY RECALIBRATE??
BEQ
4108
sNO!!

000000

:hglelP ACTIVE??

;:.'t.""...."'i""""""'i LA AR

043770
063776

SET

;YES, GO RECALIBRATE

5008:
505¢:

MovB

ADD

3308

310%.a(sp)

#4, (SP)

;60 GET STATUS
:NO ERROR GETTING STATUS
;ERROR FROM GET

: TRANSFER ERROR

TO USER

;60 CHETK RECALIBRATE

sNO ERROR DURING RECALIBRATE

sERROR DURING RECALIBRATE
sSTRIP RETURN TO SUB AND
s TRANSFER ERROR TO USER

sMOVE SP BACK BEFORE ERROR

RTS

RETURN TO USER

.WORD
.WORD

0
0

;TASK/VERIFY DESCRIPTOR

;CONTAINS RMER?2

CIRMMAD RMO5/3/2 FCTNL TST 1

GET STATUS SUBROUTINE

:BUFFER' FOR READING ALL SUBSYSTEM REGISTERS VIA THE GET SUBROUTINE
sAND THEN RETURNS TO THE USER.

SCALL:

;

o
o

001514
001404
000046

o
o

GETSTS:

000002

Pl o

SEQ 0183

:THIS SUBROUTINE SETS UP THE ''GET INDEX TABLE'® AND THE "'GET

23 0464134
24 044136
25 044142
26 044144
27 044146
28 044150
29 044152
30

2%:
3%:

000022

PONUN

11-APR-B) 13:04:53 PAG 16

.SBTTL

il it

N=OOVONOWVESWN
=

—n

NO VI WNWNN -

GET STATUS SUBROUTINE

MACRO v03.01

000200

000207

JSR

PC,GETSTS

MOv
MOV
MOV
MOv
MOV
MOV

RO,=(SP)
R1,=(SP)
R2,=(SP)
#GETINX,RO
FRMEC2142,R1
#RMEC?,R2

272

MovBe
CLR
SuB
BM]
CMP
BNE
CLR

6$:

MOvB
MOv
MOV
MOV
NOP
RTS

R2,(RO)+
=(R1)
#2,R2
4%

g:HDB.RZ

=-(R1)
3%
#200, (RO)+
(SP)+,R2
(SP)+,R1
(SP)+,RO

RETURN HERE
;;PUSH RO ON STACK
::PUSH R1 ON STACK

:;PUSH R2 ON STACK

:;RO = ADDRESS OF INDEX TABLE
:R1
ADDRESS OF GET BUFFER
;R2
= REGISTER INDE
:WRITE REGISTER INDEX IN TABLE

sCLEAR CORRESPONDING LOCATION
:DECREMENT TO NEXT INDEX
:BRANCH OUT IF DONE
;DONT WRITE RMDB INDEX

;WRITE TERMINATOR
::POP STACK INTO R2
:.POP STACK INTO R}
;:POP STACK INTO RO

CZRMMAOQ RMOS/3/2 FCTNL TST 1

GET SUBROUTINE

15
MACRO v03.01 i3-APR-80 13:04:53 PAGE 17

.SBTTL

GEY SUBROUTINE

:THIS SUBROUTINE READS THE REGISTERS WHICH ARE LISTED IN THE

J"'GET

INDEX TABLE. AND STORES THEIR VAL!IES IN THE CORRESPONDING

;LOCATION IN THE ''GET REGISTER BUFFER''.

FOR EXAMPLE, AN

;ENTRY
OF 04 IN THE TABLE WILL CAUSE THE SUBROUTINE 0
;READ "'RMBA'* AND STORE ITS CONTENTS AT THE LOCATION IN

8
9
10

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

15
16
17
18
19
20

:
1(2)
3
:
(3
3

(1)

21
22
23
24
25
26
27
28

.
$
;
s
sRO
;R1
;R2
:R3

§8

"'GET INDEX TABLE'' HAS BEEN LOADED WITH REGISTER INDEX

VALUES AND TERMINATED WITH A CONTROL BYTE
"GET INPUT BUFFER'' IS AVAILABLE FOR USE.
(NOTE THAT
UNUSED LOCATIONS, 1.E..ENTRIES IN BUFFER CORRESPONDING
TO REGISTERS NOT READ, ARE NOT CHANGED.)
JSR
PC,GET
BR
Ty
RETURN HERE IF NO ERROR FOUND

NOP
ERROR
272

=
=
=
=

RETURN HERE IF ANY ERROR FOUND
SUB DEFINES ERROR NUMBER

;R4 = POINTER TO REGISTER INDEX

31 0441564
32 044156
33 044162
3, 064166
35 044172
044176
044176
044200
064202
044204
044210

000240
062716
105076
162716
010046
010146
010246
010346
010446
013746
013746

40 044236

012737

GET:

000004
GOO0OO
000004

013700
012702
012704
012737

000004
000006
001276
001334
001514
044336

&1 0464244

016037

000010

001174

43 044260

032737

004000

001176

36 044214
37 044220
38 044226
39 044230

&2 044252

44 044266
45 044270

46 064276

47
48
49
50
51

064306
044306
044310
044312
044314

016037

001007
062766

112776

000423
105714
100433
111401
042701

000300

000000
000004

000112

MOV
MOV
MOV
MOV

000004

000006

001176

1%:

MOV

000016

006016

#4,(SP)
9 (SP)
#4, (SP)
RO, =(SP)
R1,=(SP)
R2,-(SP)
R3,-(SP)
R4 ,-(SP)
ERRVEC,-(SP)
ERRVEC+2,-(SP)
$BASE
, RO
#GE TBUF ,R2
#GETINX.RG
#5% ,ERRVEC

#PR6 ERRVEC+2

sCLEAR ERROR NUMBER IN USER'S
JERROR CALL
::PUSH
;:PUSH
;sPUSH
::PUSH
;:PUSH
;sPUSH

RO ON STACK
R1 ON STACK
R2 ON STACK
R3 ON STACK
R4 ON STACK
ERRVEC ON STACK
;:PUSH ERRVEC+2 CN STACK

JSETUP FOR TIMEOUT

MOV

RHCSé(RO).%IHPO ;GET "'NED'' STATUS

BIT

#DVA,STMP{

MOV

BNE
ADD

MovB

3%:

177700

NOP
ADD
CLRB
SUB
MOV
MOV
MOV
MOV
MOY
MO/
MOv

BR
1STB
BMI
MOvVB
BIC

RMCST1(RO),$TMP1

;GET "'DVA'' STATUS

38
#6,16(SP)

SYES!!
JWRITE ERROR NUMBER IN USER'S

7%
(R4)
9%
(R4) ,R1
#*CIDXMSK R

;DONE??
TYES!!
:R1 = REGISTER ADDRESS
JCLEAR ANY SIGN EXTENSION

#112.316(sP)

:DEVICE AVAILABLE??

:ERROR CALL

‘

SEQ 0184

CZRMMAQ RMO5/3/2 FCTNL TST 1
GET SUBROUTINE

SEQ 0185

044320

ADD
mMove

177700

56 044332
57 044334

59 044336
60 044340
61 044346
62 044354
63 044362
64 044364
65 044366
66 044370
67 044372
68 044374
69 044376
70 044400
044400
044404
044410
044412
044414
044416
044420
71 044422
72

BIC

ADD
MOV

000764

022626
062766
112776
162766
105714
100405
005003
112403
060203
005013
000771
012637
012637
012604

012603
012602
012601
012600
000207

D 15

11-APR=80 13:04:53 PAGE 17-1

000004
000007
000002

000016
000016
000016

RO,R1
(RG)+,R3
#*CIDXMSK,R3
R2,R3

(RH), (R®)

7%:
8%:

9%:

;READ REGISTER

;WRITE ERROR NUMBER IN

;USER'S ERROR CALL

suB

1STB

;DONE CLEARING??

BM]
CLR

.'ESOI

*CLEAR REMAINING STORAGE

MOvB
ADD

000006
000004

;:R3 = STORAGE ADDRESS FOR REGISTER

;CLEAR ANY SIGN EXTENSION

;RESTORE STACK

CMP

ADD
MOovB

*LOCATIONS

CLR
BR
MOV
MOv
MOv
MOv
MOV
MOv
MOv
RTS

e N
e R

MACRO v03.01

SP)+ ERRVEC+2

SP)+ ERRVEC
SP)+ R4

;:POP STACK INTO ERRVE(C+2
;.POP STACK INTO ERRVEC
;+sPOP STACK INTO R4

SP)+,R1

;:POP STACK
;sPOP STACK

SP)+,R3
SP)+,R2

EP)o,RO

;;POP STACK INTO R3
INTO R2
INTO R1

;:POP STACK INTO RO
sRETURN

CZRMMAD RMO5/3/72 FCTNL TST 1

PUT

SUBROUTINE

MACRO v03.01 11-APR=80 13:04:53 PAGE 18

.SBTTL

2
3

:"'PUT INDEX TABLE'' WITH THE CONTENTS OF THE CORRESPONDING
;LOCATION IN THE ''PUT REGISTER BUFFER''.
THE NUMBER OFf

.
7

;REGISTERS WRITTEN IS VARIABLE; THE INDEX TABLE MUST
;BE TERMINATED WITH A CONTROL BYTE (200) WHICH SHOULD
:FOLLOW THE LAST ENTRY.

8
@
.10
1
12
13

:SUBROUTINE CALL:

(1)

14
15
16
17
18
19

(2)

(3)

20
21
22
23
24
25
26
27
28 044424
29 044426
044430
044432
044434
044436
044440
0444t
30 044450
31 044t56

32 044460
33 044bbl
34 044472
35 044500
36 044506
37 044514
38 044522
39 044524
40 044532

41
42
43
4o
45
46
47
48
49

PUT SUBROUTINE

:THIS SUBROUTINE WRITES THE REGISTERS WHICH ARE LISTED IN THE

.
s

SEQ 0186

044540
044542
044544
044546
044550
044554
044556
044560
044564

50 044566
51 044570

"PUT INDEX TABLE'' HAS BEEN LOADED WITH INDEX VALUES

OF REGISTERS TO BE WRITTEN.
"PUT REGISTER BUFFER'' CONTAINS CONTENTS OF
REGISTER TO BE WRITTEN.

JSR

BR
NOP
ERROR
777

PC,PUT
273

EACH

RETURN HERE IF NO ERROR FOUND
RETURN HERE IF ANY ERROR FOUND
SUB DEFINES ERROR NUMBER

‘RO = REGISTER BASE ADDRESS
‘R1 = REGISTER ADDRESS
‘R2 = BUFFER BASE ADDRESS

‘R3 = BUFFER ADDRESS

‘R4 = POINTER TO REGISTER

000240
010046
010146
010246
010346
010446
013746
013746
013700
012702

012704
012737
012737
016037
016037
032737
001007
062766
112776
000424
105714
100425
111401
062701
060001
111403
062703
060203

011311
105724

PUT:

000004
000006
001276
001410
001543
064574
000300
000010
000000
004000
000004
000112

000004
000006

001174

001176
001176

18:

000016

177700

RO,=(SP)
R1,=(SP)

RO ON STACK
R1 ON STACK
R2 ON STACK
R3 ON STACK
R4 ON STACK
ERRVEC ON STACK
;sPUSH ERRVEC+2 ON STACK

R2,=(SP)
R3,-(SP)

;:PUSH
;:PUSH
2sPUSH
::PUSH
;sPUSH
s sPUSH

#5% ERRVEC
#PR6 ,ERRVEC+2

sSETUP FOR TIMEOUT

MOv
MOv
MOV
MOV
MOV
MOV

R& ,=(SP)
ERRVEC,=(SP)
ERRVEC+2,-(SP)
$BASE ,RO
#PUTBUF ,R2
#PUTINX
. R4

MOV

RMCS2(RO), $TMPO ;GET ''NED'' STATUS

MOV
MOV

MOV
BIT
BNE
ADD

MOVB
3%:

177700

NOP

MOv
MOV
MOV
MOv

INDEX

RMCST(RO) ,$TMP1 ;GET "'DVA'" STATUS
#DVA,STMP1
sDEVICE AVAILABLE??
3%
sVES!!
#4,16(SP)
sWRITE ERROR NUMBER IN

#112,316(SP)

BR
TSTB
BM]

7%
(R&4)
9%

BIC
ADD
MOVB

#*CIDXMSK,R®
RO,R1
(R4),R3

MOV

(R$), (R1)

MOVB

BIC
ADD

TSTB

(R4),R1

;USER'S ERROR CALL

;DONE??
sYES!!
:R1 = REGISTER ADDRESS
:CLEAR ANY SIGN EXTENSION
:R3 = STORAGE ADDRESS

#*CIDXMSK,R3
R2,R3

:CLEAR ANY SIGN EXTENSION

(R&4)+

;ADJUST

;WRITE REGISTER

CZRMMAOD RMO5/3/2 FCTNL TST 1

PUT

SUBROUTIME

gg 044572

000763

56
55
56
57
58
59

022626
062766
112776
162766

044574
044576
044604
044612
044620
064620
0446264

064630
044632
044636
044636
044640
g? 044642

012637
012637
012604
012603
012602
012601
012600
000207

000004
000007
000002
000006
000004

MACRO v03.01

000016
000016
000016

5%:

7%:
9%:

11-APR-80 13:04:53 PAGE 18-1

CMP
ADD
MOvVB
SUB

(SP)+,(SP)+
#46,16(SP)
#7,916(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

SEQ 0187

JADJUST STACK

;WRITE ERROR NUMBER

;USER'S ERROR CALL

::POP STACK INTO ERRVE(C+?

;:POP STACK
;:POP STACK

;sPOP
;:POP
;sPOP
;sPOP

STACK
STACK
STACK
STACK

JRETURN

INTO ERRVEC
INTO R4

INTO
INTO
INTO
INTO

R3
RZ2
R1
RO

CZRMMAO RM05/3/2 FCTNL TST 1

SI1ZE CLOCK SUBROUTINE

MACRO v03.01

;

.SBTTL

3 044644
044644
044650

4 044656

013746
013746

012737

000004
000006

064712

SIZCLK:
000004

MOV
MOV

MOV

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

;SET UP FOR BUS TIMEOUT

#1775646,CLKADR

;LOAD ADDRESSES FOR KW11-L

aCLKADR
3s

sTEST FOR KW11=L PRESENT
SYES = KW1l=L IS PRESENT

000300

000006

MOV

7 064676

012737

000100

001512

MOV

#100,CLKVCT

044744

000004

BR
CMP
MOV

(SP)+,(SP)+
#2% ERRVEC

000104
134546

001512

8 044704
9 044710

005777
000421

177546

134600

10 044712
11 064714

022626
012737

13
146
15
16
}g

044730
044736
044742
044744
822;22

012737
005777
000404
022626
062766

000002

044754
044760

012637
012637

000006
000004

12 0644722

19 044764

012737

000207

172540

001510

MOV
ST

1%:

001510

000004

MOV

2%:

#PRG , ERRVEC+2

ll?éSLO.CLKADR

MOV
TST
BR
CMP
ADD

#104,CLKVCT
oCLKADR
3%
(SP)+,(SP)+
#2,4(SP)

MOV
MOV

(SP)+ ,ERRVEC+?
(SP)+ ,ERRVEC

RTS

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

#1% ,ERRVEC

012737

SEQ 0188

SIZE CLOCK SUBROUTINE

5 046662

6 064670

615
11-APR-80 13:04:53 PAGE 19

JRESTORE SP
;SET UP FOR BUS TIMEOUT

;LOAD ADDRESSES FOR KW11=P CLOCK
;TEST FOR KW11=P PRESENT
JYES = KW11=P IS PRESENT
JRESTORE SP
:MOVE RETURN TO ERROP
;sPOP STACK INTO ERRVEC+2
;:POP STACK INTO ERRVEC
JRETURN TO USER

CZRMMAQ RMOS/3/2 FCTNL IsT 1
SUBROUT INE

00 NN NV IS NN

—

TIMEOUT

MACRO v03.01

.SBTTL

ECALL:
010046
010146
010246
013746
013746
012737
012737
013700
013701
012702
020127
001003
012761
012711

045054
045060
045064
045070
045072
045076
045100
045102
27 045104

016046
042716
022726
001420
032711
001766
005302
001354
000412

045106
045110
045116
045124

022626
062766
112776
162766

045132
045132
045136
045142
045144
045146
35 045150
36

012637
012637
012602
012601
012600
000207

VS WN—=O0VONO NS WN—=0O
Y

SEQ 0189

TIMEOUT SUBROUTINE

1 AND GO = 0 OR FOR A TIMEOUT
;THIS SUBROUTINE WAITS FOR RDY
;GREATER THAN APPROX. 500 MSEC AND THEN RETURNS.

044766
044766
044770
044772
044774
045000
045004
045012
045020
045024
045030
045034
045040
045042
045050

PORNONOPNONININ
= b
b b b b b et e

H15
11-APR-80 13:04:53 PAGE 20

T1MOUT:
000004
000006
045106
000300
001276
001510
000036
172540

000001
000005

000004
000006

€00002

2%:

3%:

000000

177576
000200

000200

000004
000007
000002
000006
000004

000012
000012
000012

4%:

5%:

JSR
"

PC,TIMOUT

MOV
MOv
MOv
MOV
MOV
MOv
MOv
MOv
MOv
MOv

RO,=(SP)
R1.=(SP)
R2.=(SP)
ERRVEC,=(SP)

CMP
BNE
MOV
MOv

MOv
BIC
CMP
BEQ
BIT
BEQ
DEC
BNE
BR

ERRVEC+2,=(SP)

#4$, ERRVEC
#PR6,ERRVEC+2
$BASE ,RO
CLKADR,R1

#30. ,R3

R1,#172540

#1,2(R1)
#BIT2!BITO,(R1)

RETURN HERE

RO ON STACK
R1 ON STACK
R2 ON STACK
ERRVEC ON STACK
:sPUSH ERRVEC+2 ON STA(K
sSETUP FOR BUS TIMEOUT = 04 TRAP

;sPUSH
;:PUSH
;sPUSH
2 sPUSH

sRO=BASE ADDRESS

;R'=CLOCK ADDRESS
sR2=NUMBER OF CLOCK
JKW11=P CLOCK??
JNO!!

CYCLES

sSET COUNTER

;START COUNTER

RMCS1(RO) ,~-(SP)

;GET STATUS

5%
#BIT7,(R1)

s ¥YES!!
;TIMER DONE??

R2
1%
5%

*CONTINUE IF NOT DONE

#*C<RDY!GO>
(SP)
,
#RDY, (SP)+
sRDY=1,60=0??

CMP
ADD
MOvB
SuB

(SP)+,(SP)+

MOV
MOV
MOV
MOv
MOv
RTS

SP)+ ,ERRVE(C+?2

.NOII

*DEC NUMBER OF CYCLES

*“RDY'* DID NOT SET OR ''GO'* DID NOT RESET

;WITHIN 500 MSEC AFTER THE COMMAND WAS ISSUED.
sADJUST STACK
;MOVE SP TO USER'S CALL
;WRITE ERROR NUMBER

;:POP STACK INTO ERRVEC(+?2

SP)+ ,ERRVEC

:;POP STACK INTO ERRVEC

S
S
C

;RETURN TO USER

SP)+,R2

:;POP STACK
;;POP STACK

INTO R2
INTO R1

;sPOP STACK INTO RO

CZRMMAD RMO5/3/72 FCTINL TST 1
ERROR CHECK SUBROUTINES

MACRO v03.01

115

11-APR-80 13:04:53 PAGE 21

SEQ 0190

.SBTTL

ERROR CHECK SUBROUTINES

-SBTTL

PRIMARY ERROR CHECK SUBROUTINE

:THE PURPOSE OF THIS SUBROUTINE IS TO VERIFY THAT STATUS IS VALID AND

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

v
g

:THAT FURTHER ERROR AND STATUS CHECKING SHOULD BE PERFORMED.
FOLLOUING CHECKS ARE MADE:

9
}?

.CORRECT UNIT IS SELECTED, I.E.,
(BITS 0-2) EQUAL THE UNIT BEING TESTED:

12
}2

AND NED

.SELECTED UNIT 1S AVAILABLE,
(BIT 12 OF RMCS2) IS RESET:

.LAST COMMAND WAS COMPLETED, 1.E., THE MASSBUS CONTROLLER 1§

16
17

THE

THE UNIT SELECT BITS OF

1.E., DVA (BIT

READV (BIT 7 OF RMCS1) AND THE GO BIT IS RESET
;DRIVE READY BIT (BIT 7 OF RMDS) IS SET.

11 OF RMCS1)

;l :

"cgg PASITY ERROR OCCURRED WHEN READING REMOTE REGISTERS,

277777

UUNO PARITY ERROR _OCCURRED WHEN WRITING REMOTE REGISTERS,

; CORRESPONDING LOCATIONS OF THE "‘GET'* BUFFER.

:1.E., PAR = 0, OR, PAR
= DPE = 1

:THE SUBROUTINE ASSUMES THAT:

.STATUS HAS BEEN STORED IN THE REGISTER INPUT BUFFER,

:IN PARTICULAR, RMCS1, RMCS2 AND RMDS HAVE BEEN STORED IN THEIR

Zrne SUBROUTINE IS CALLED AS FOLLOWS:

E(1>

35
36
37
38

;
:
:
;

2} 045152
43
44, 045152
45 045156
29 045162

48
49 045166

50 045176
51 045202
52 065210
53 065216
54
55 045224
56 045226
§7 065232

IS SET

(BIT O OF RMCS1) OR THE

}g
21
22
23

RMCS2

.(SUNIT) CONTAINS THE DRIVE NUMBER

JSR

BR
NOP
ERROR
JSR

772

PC,PRIERR
277

PC,a(SP)+

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEF INED BY SUB
GO BACK TO SUB FOR MORE ERROR CHECKS

RETURN HERE IF NO MORE ERRORS

PRIERR:
062716
105076

000004
000000

013737

001344

001415
062716
112776

000004
000001

162716

042737
013737
042737
123737

:CLEAR USER'S ERROR CALL
ADD
#4, (SP)
CLRB
@(SP)
SUB
#4,(SP)

000004

177770
001234
177770
001140

001142

001142
001140
001140
001142

000000

:MOVE (SP) TO ERROR CALL
:CLEAR ERROR NUMBER

:MOVE

(SP)

TO NO ERROR RETURN

;REPORT AN ERROR IF THE WRONG UNIT 1S SELECTED
MOV
RMCS21,.$BODAT
;CORRECT UNIT SELECTED??

BIC
MOV
BIC
CMPB

BEQ
ADD
MOVB

#*CUNTMSK
, SBDDAT
SUNIT,SGDDAT
:GOOD DATA FOR TYPEOUT
#*CUNTMSK
, SGDDAT
$GDDAT,$BODAT
;COMPARE EXPECTED AND RECEIVED
:DRIVE NUMBERS
1%
TYES!!
#4, (SP)
#1.3(SP)
:ERROR 1

CZRMMAO RMO5/3/2 FCTNL TST 1

PRIMARY ERROR CHECK SUBROUTINE

58 0652640
59 045244
60 045246
61 065252
62 0652564
63 045260

162716
004736
162716
000240
000137

MACRO v03.01

000002
000010

045774

1%:

;REPORT

032737
001045
013737
052737
013737
062716
112776
032737
001414
013737
013737
042737
112776
162716
004736
162716
000240
000575

88 045402
89 045410
90 045412
91 065620
92 045426
93 045436
94 045442
95 045446
96 045454
97 045460
98 065462
99 045466
100 045470
10% 045472

032737
001030
013737
052737
042737
013737
062716
112776
162716
004736
162716
000240
0005641

045472
045500
045502
045510
045512
045520
045526
045534
045540
045546
045552

032737
001431
032737
001025
013737
042737
013737
062716
112776
162716
004736

102
103
104
105
106
107
108
109
110
111
112
113
114

004000

001334

001334
004000
001334
000004
000002
010000

001140
001140
001142

001344
001344
010000
000003
000002

001140
001142
001140
000000

AN ERROR

001334
000200
160001
001334
000004
000004
000002

001140
001140
001140
001142

sREPORT

7%:

000200

001346

001334
160001
001334
000004
000005
000002

001140
001140
001142
000000

THE DEVICE

sREPORT

IS NOT AVAILABLE

RMCS11,$GDDAT
#DVA,SGDDAT

*EXPECTED STATUS

ADD

#4, (SP)

RMCST1,$BDDAT

;RECEIVED STATUS

MOVB
BIT
BEQ
MOV
MOV
BIC
MOVB
SUB
JSR
SUB

#2.3(SP)
#NED,RMCS21
2%
RMCS21,$GDDAT
RMCS21,$BDDAT
#NED, SGDDAT
#3,3(SP)
#2.(SP)
PC.a(SP)+
#10, (SP)

;ERROR #2
;WAS NED SET??
:NO!!
;EXPECTED STATUS

108

AN ERROR

SELECTED

;RECEIVED STATUS

;YES = CHANGE ERROR NUMBER
sMOVE SP TO RETURN FOR ERROR

;REPORT

DEVICE NOT

AVAILABLE

sRESTORE (SP)

:SKIP OTHER CHECKS
MASSBUS CONTROLLER

IS NOT READY

BIT

#RDY,RMCST]

MOV
g}g

RMCS11,$GDDAT
#RDY, SGDDAT
#SC!TRE!MCPE!GO,$GDDAT
RMCS11,$BDDAT
;RECEIVED STATUS

:CONTROLLER READY??
sVES!!
;EXPECTED STATUS

MOV
ADD
MOVB

#4, (SP)
#4.a3(SP)

JSR

PC.a(SP)+

#10, (SP)

sREPORT CONTROLLER NOT
sRESTORE (SP)

108

:SKIP OTHER CHECKS

SUB

001334

;SKIP OTHER CHECKS

MOV
BIS

SUB

000010

000001

108

;RESTORE (SP)

;BE§{$E AVAILABLE??

BNE

000000

+MOVE SP TO RETURN FOR ERROR

#DVA,RMCS11

NOP

5%:

SEQ 0191

BIT

MOV

2%:

;REPORT WRONG UNIT

00, (SP)

NOP
JMP

BNE

000010

001334

PC a(SP)+

;THE DEVICE 1S NONEXISTANT

000000
001344

000200

#2,(SP)

SuB
JSR
SuB

65
66
67 045260
68 045266
69 045270
70 065276
71 0645306
72 065312
73 0645316
764 0653264
75 065332
76 0645334
77 0645342
78 045350
79 045356
80 045364
81 045370
82 045372
83 045376
84 045400
85 045402

11-APR-80 13:04:53 PAGE 2

NOP
BR
AN ERROR

#2.(SP)

IS NOT

:ERROR #4
:MOVE SP TO RETURN FOR ERROR

ZERO AND DRY

IS NOT

;GO RESET??
+YES!!
:DRIVE READY??
sYE3:1
:EXPECTED STATUS

BIT
BEQ
BIT
BNE
g?g

#GO,RMCST]
8s
#DRY ,RMDS]
8s
RMCS11,8GDDAT

MOV

RMCS11,$BDDAT

;RECEIVED STATUS

#5.3(SP)

:ERROR #5

PC.a(SP)+

;REPORT

ADD

MOVB

SUB

JSR

READY

ONE

#SC ' TRE 'MCPE ' GO, $GDDAT
¥4, (SP)

#2.(SP)

;MOVE SP TO RETURN FOR ERROR
DRIVE NOT READY

CZRMMAO RMO5/3/2 FCTNL TST 1

PRIMARY ERROR CHECK SUBROUTINE

115 045556
116 065560
117 065562

}}g 045564

162716
000240
000504

120
121
122 045564
123 065572
126 045574
125 045602
126 065610
127 045616

032737
001425
013737
042737
013737
062716

129 045630
130 045634

162716
004736

132 065642

000240

128 045622

131 045636
133 045644
}gg 045646

136
137 045646
138 045654

139 045656

112776

162716

032737
001451
032737
001045
032737
001413
010046
012700
122710

042737
013737
062716

157
158
159
160

162716
004736
162716
000240

045760
045764
045766
045772

161 045774
162 046000

}22 046002

SEQ 0192

000010

8s:

020000
001334

160001

001334
000004

000013
000002

001334
001140

001140

001002
012600
000431
105720
100371
012600
013737

112776

9062716
000240

000207

BIC

MOV
ADD

000000

9% :

001350

000010

001376

000010

001424

001543
000014

000002

RMCS11,$BDODAT
#4,(SP)

;RECEIVED STATUS
JMOVE STACK TO USER'S ERROR

#2,(SP)
PC,a(SP)+

sMOVE SP TO RETURN FOR ERROR
JREPORT ERROR VIA USER

#10, (SP)

108

BIT

93%:

000000

‘ERROR #47

‘RESTORE STACK

10%:
11%:

INO!!

#DPE ,RMERZ]

sWAS IT THE CONTROL BUS??

#50,a(sP)

;WRITE THE ERROR NUMBER

#10, (SP)

;RETURN TO ERROR
JRETURN TO NO ERROR

BNE
BIT
BEQ
MOV
MOV
CMPB
BNE
MOV
BR
T1STB
BPL
MOV
MOV
BIC
MOV
ADD

11%
sNOT SURE!'!
#PAR,RMER10
;DID TEST SET PAR ??
93¢
JNO!!
RO,=(SP)
;:PUSH RO ON STACK
#PUTINX,RO
JRO POINTS TO INDEX TABLE
#RMER1, (RO)
;SEARCH TABLE FOR RMER1
92%
(SP)+,RO
;:POP STACK INTO RO
11%
;
;PAR WAS SET BY TEST
(RO)+
;END OF TABLE??
918
INO!!
(SP)+ RO
;:POP STACK INTO RO
RMER1I,$GDDAT
JEXPECTED STATUS
#PAR,$GDDAT
RMER11,$BDDAT
JRECEIVED STATUS
#6,(SP) ;MOVE SP TO USER'S ERROR CALL

SUB
JSR
SUB
NOP

#2,(SP)
PC,a(SP)+
#10, (SP)

move

000010
000010

USC!TRE!HCPE!GO.iGDDAT

SUB

BEQ

92%:

000050

(SP)

sREPORT AN ERROR IF DETECTED A CONTROL BUS PARITY ERROR
BIT
#PAR,RMER1]
:WAS THERE A PARITY ERROR??

91%:

001140
001140
001142

:RESTORE

108

#15,3(sP)

NOP

000010

#10, (SP)

move
SuUB
JSR

000010

001350
000010
001350
000004

SUB
NOP
BR

sREPORT AN ERROR IF THE RM CONTROLLER DETECTED BAD
:PARITY ON THE MASSBUS CONTROL BUS
BIT
#MCPE ,RMCS1]
;PARITY ERROR ??
BEQ
9%
INO!!
MOV
RMCS11,8GDDAT
;EXPECTED STATUS

001142

000453

140 045664
1641 045666
142 045674
143 045676
144 045700
145 045704
146 045710
147 045712
148 045714
149 045716
150 045720
151 045722
152 045724
153 065732
154 045740
155 045746

156 065752

K 15
MACRO v03.01 11-APR-80 13:04:53 PAGE 21- 2

ADD
NOP

RTS

sMOVE SP TO RETURN FOR ERROR
JREPORT THE ERROR
sMOVE SP TO NO ERROR RETURN

CZRMMAO RMO5/3/2 FCTNL TST 1

SECONDARY ERROR CHECK SUBROUTINE

MACRO v03.01

.SBTTL

2
3

SEQ 0193

SECONDARY ERROR CHECK SUBROUTINE

:THE ERROR CHECK 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
;ASSOCIATED WITH THE OPERATION BEING PERFORMED.
;WHEN THE SUBROUTINE IDENTIFIES SUCH AN ERROR, IT MOVES THE ERROR
;NUMBER TO THE ERROR CALL IN THE TEST ROUTINE AND THEN RETURNS
;TO THE _TEST ROUTINE WHICH MAKES THE ERROR CALL. AFTER THE TEST ROUTINE

6
7

8
9
10

;MAKES THE ERROR CALL,

IT RETURNS TO THE

SUBROUTINE WHICH THEN LOOKS FOR

:OTHER ERRORS. WHEN ALL ERRORS HAVE BEEN REPORTED, THE SUBROUTINE

12
13

;RETURNS TO THE ADDRESS FOLLOWING THE SUBROUTINE CALL.

TCALL:

14
15
16
17
18
19

:
:
;
3

20
21
22
23
24 046004
25
26
27
28 046004
29 046012
30 046020
31 046024
g% 046030

JSR

PC,SECERR
773

BR
NOP
ERROR
JSR

PC,a(SP)+

227

RETURN HERE
RETURN HERE

IF NO ERROR
TO REPORT AN ERROR

ERROR NUMBER DEFINED BY SUB

GO BACK TO SUB FOR MORE ERROR CHECKS
RETURN HERE IF NO MORE ERRORS

THE SUBROUTINE ASSUMES THAT REGISTERS HAVE BEEN STORED AT THE
;NOTE:
*INPUT REGISTER BUFFER.

SECFRR:
s AR

013737
042737
062716
105076
162716

001410
177701
000004
000000
000004

051640
051640

:STORE FUNCTION CODE AND CLEAR USER'S ERROR NUMBER
MOV
BIC

SR R

RMCS10,5158
:STORE FUNCTION CODE
B C<FOIF11F2!'F3'F4>,5158

ADD

#4, (SP)

CLRB
SUB

34
35

a(SP)
#4, (SP)

:MOVE

(SP)

TO ERROR CALL

+MOVE

(SP)

TO NO ERROR RETURN

*CLEAR ERROR NUMBER

.':'l'l.'.."'t.""""""""lt'...."".".'."."t'l"""tt'

:CHECK SECONDARY ERRORS COMMON TO ALL COMMANDS

38 046034
39 046042

032737
001024

000200

001346
001142
001142
001140

40 046044
61 046052
42 046060
43 046066
44 066072
45 046100
46 046104
47 046106
48 046112

013737
042737
012737
062716
112776
162716
004736
162716
000240

001346
177577
000200
000004
000010
000002

51 046114
52 046122

032737
001423

000001

001334

001334
177776
001140
000004
000011

001142

0
53
54
55
56
57

L1 5

11-APR=80 13:04:53 PAGE 2 2

046126
046132
046140
046144
046150

013737
042737
005037
062716
112776

;REPORT ERROR IF DRIVE 1S NOT READY, I1.E., IF DRY = 0
BIT
#DRY ,RMDS
:DRIVE READY??
BNE
5%
SYES!!
MOV
RMDS1,$BDDAT
:BAD DATA FOR TYPEOUT
BIC
#*CORY,$BDDAT
MOV
#DRY, $GDDAT
;600D DATA FOR TYPEOUT
ADD

000000

¥4,

#10,a(sP)

JSR

PC A(SP)+

SUB

#2,(SP)

SUB

000010

00, (sP)

NOP

001142
000000

:REPORT ERROR

(SP)

move

BIT

BEQ
MOV

BIC

GO BIT

IS NOT

#GO,RMCS1]

108
RMCS11,$BDDAT

#*(G60, $BDDAT

:ERROR NUMBER

*MOVE SP TO RETURN FOR ERROR
*REPORT NOT READY

;RESTORE

(SP) TO ERROR N

RESET

;GO BIT RESET??

TYES!!
:BAD DATA FOR TYPEOUT

CLR

$GDDAT

:GOOD DATA FOR TYPEOUT

move

#1i.acsp)

:ERROR NUMBER

ADD

#4,(SP)

Mm15
CZRMMAD RMO5/3/2 FCTINL TST 1
MACRO v03.01 11-APR-80 13:04:53 PAGE 22-1
SECONDARY ERROR CHECK SUBROUTINE

58 046156
59 046162
60 046164
61 0466170

162716
004736
162716
000240

000002

64 046172
65 0646200
66 0646206
67 046214
68 066222
69 046226
70 046230

013737
042737
013737
023737
001413
062716
112776

001334
177701
051640
001142

71 046236
72 0662642
73 046244
764 046250
75 046252
76
77
78
79 046252
80 046256
81 046262
82 046264

83 046270
84 066272
85 046300
86 046306
87 046314
88 046322
89 046326
90 046330
91 046336
92 046342
32 046344

162716
004736
162716
000240

005037

005737
001003
005737
001403
052737
013737
042737
023737
001412
062716
112776
162716
004736
162716

103
106
105
106
107
108

001407
022737
103003
052737
013737
042737

109 046430
046436
066440
046444
046452
046456

110
111
112
113
114

210, (5P)

NOP

001142

001142
001140

-REPORT ERROR If

108:

RMCS11,$BDDAT

CMP
BEQ

$BDDAT,S$GDDAT
158

BIC
MOV

001140

#°(76,$BDDAT
5158, $GDDAT

ADD

000000

¥,

MOVB

#12,3(SP)

#2,(5P)

SUB

#10,(5P)

PC.ASP)+

NOP

15%:

(SP)

SUB

JSR

000010

001350

001376

040000
001346
137777
001140

001140
001142
001142
001142

000004
000047
000002

000000

208:
25%:

MOVB

#47,3(SP)

¥,

032737

023737
001413
062716
112776
162716
004736

1S SET,

040000

001346

000030

051640

040000
001334
137777

001140

001142

001140

001142
001142

000004
000014
000002

000000

35%:

40$:

(SP)

#2,(5P)

PC.a(SP)+

910, (5P)
OR

IS SET

SET

AND NO OTHER

;1S RMER1 = 0??

4
!
s¥ES!

;REPORT AN ERROR IF

50s:

25%
#ERR, SGDDAT
RMDS1,$BDDAT
#*CERR, SBDDAT
$GDDAT
. SBDDAT
308

SUB

001140
001344
000377

sRESTORE (SP)

SEXPECT "ERR'' = 0

RMER2]

SUB

“SET TRE

iggcgnsgu?gESEYURN FOR ERROR

sREPORT WRONG FUNCTION CODE

BEQ
BIS
MOV
BIC
CMP
BEQ

JSR

sTRE

sVES!!

:NO!!

ADD

000010

;EXPECTED FUNCTION CODE

208

;18 ?TERZ = 0?2

:"'ERR"" SOULD BE SET

;1S "ERR'' 0K??

sVES!!

sMOVE SP TO USER'S ERROR
;WRITE ERROR NUMBER
sMOVE SP TO ERROR RETURN
sREPORT INVALID COMP ERROR

"'TRE'' 1S SET AND NONE OF

TRE

IS NOT CORRECT

;1S FUNCTION CODE CORRECT??

COMPOSITE ERROR IS NOT SET AND

RMER1]

BNE

;RESTORE (SP)

COMPOSITE ERROR

:OTHER ERRORS ARE SET
CLR
$GDDAT

001140

;MOVE SP TO RETURN FOR ERROR
;REPORT DEVICE NOT AVAILABLE

FUNCTION CODE READ FROM DEVICE

mov

;ERRORS ARE SET, OR IF

005037
013746
042726
001010

046374
046376
046404
066406
046414
046422

SUB

000010

000004
000012
000002

#2,(5P)
PC ASP)+

sREPORT AN ERROR

95
96
97
98 046350
99 046354
100 046360
10% 046

102 046366

SUB
JSR

SEQ 0194

1S NOT

SET AND ONE

THE BITS WHICH SET

OR MORE

BITS WHICH

CLR

$GDDAT

BIC

BNE
BIT
BEQ
CMP
BHIS
BIS

#377,(5P)+

:cggf'nxr OR MDPE SET

#ERR,RMDS]
408
#SEARCH,515%
40%
#TRE ,$GDDAT

E:A§:EXCEPTION RECEIVED??

BIC
CMP
BEQ

#*CTRE ,$BODAT
$GDDAT
, $BDODAT
45%

MOV

ADD

MOVB
SUB
JSR

RMCS21,=(SP)

35%

RMCST1,$BDDAT
#4, (SP)

#14,3(5
#2,(SP)

)

PC.a(SP)+

:EXPECT “TRE" = 0

‘WAS DLT, WCE,

UPE,

NED,

NEM

INO!!

WAS DATA TRANSF ERRED??
:NO!!

:''TRE'' SHOULD BE SET

:BAD DATA FOR TYPEOUT

;1S "'TRE' 0K??
sVES!!
;MOVE SP TO USER'S ERROR CALL
sWRITE ERROR NUMBER
+MOVE SP TO RETURN FOR ERROR
sREPORT TRE ERROR

CZRMMAQ RMO5/3/2 FCTNL TST 1

SECONDARY ERROR CHECK SUBROUTINE

146 046576
147 0646600

148 066602
149 046606
150 046610
151
152
153
154 046610
155 066616
156 046624
157 046632
158 046640
159 046646
160 046650
161 046654
162 046662
163 046666
164 046670
165 046674

f
168
169
170
171

046700
0646704
0646710
046716

162716
000240

N 15

11-APR-8B0 13:04:53 PAGE 22-2

SUB

000010

45%:

#10,(SP)

NOP

MLAAA AL RS A

SEQ 0195

:RESTORE (SP)

iRl

d])

USlNG THE_FUNCTION CODE TABLE, CHECK FOR THE FOLLOWING ERRORS:
.STATUS BITS NOT SET THAT SHOULD BE SET, E.G.., ATA AND ILF
.STATUS BITS SET THAT SHOULD NOT BE SET, E.G., WCE AND ECH

INOTE THAT SOME ERROR BITS ARE CONDITIONAL ON THE COMMAND AND OTHER
;STATUS CONDITIONS, E.G., WRITE LOCK ERROR SHOULD ONLY BE SET IF

WRITE LOCK IS ON AND THE COMMAND IS.A WRITE.

010046
013700
016C37
012600

051640
067046

;GET AND STORE THE ENTRY FROM THE FUNCTION CODE TABLE
MOV
-(SP)
::PUSH RO ON STACK

MOV

051632

s1§s RO

MOV
MOV

:GET FUNCTION CODE

FNCDTB(RO),5008 :STORE ENTRY
(SP)+,R0
::POP STACK INTO RO

;REPORT AN ERROR I1F AN UNEXPECTED ATTENTION OCCURRED OR IF

162716
004736
162716
000240

100000
077777
001346
077777
001140

000004
000006
000002

s
2
—_—

001140
001346
S
NNONNO
O

051632
040000

—_—

013737
032737
001403
052737
042737
013737
042737
023737
001413
062716
112776

=d=i=l=]
=lelele]

115 066460
116 046464
117 046466
118
119
120
121
122
123
126
125
126
127
128 046466
129 046470
130 046474
131 066502
132
133
134
135 046504
136 046512
137 046520
138 046522
139 046530
1640 046536
1641 066564
1642 066552
1643 0646560
1646 0646562
145 066566

MACRO v03.01

JATA IS NOT

MOV
BIT

508:

SET AND SHOULD BE SET.

BEQ
BIS
BIC
MOV
BIC
CMP

BEQ
000000

;GET EXPECTED ATA STATUS
:1S COMPOSITE ERROR SET 2?

RMDS1,$BODAT
#~CATA,$BDDAT

:STRIP DONT CARES
;GET RECEIVED ATA
:STRIP DONT CARES
1S ATA OK 2?

50%
#ATA,SGDDAT
#~CATA,SGDDAT

TYES !

#2.(SP)

:MOVE SP TO ERROR RETURN

0, (SP)
#6.a(SP)

JSR

PC.a(SP)+

agg

:NO !!
SEXPECT AN ATTENTION

$GDDAT.$BDDAT
55%

ADD
MOVB

SUB

000010

5008, $GDDAT
#ERR,RMDS]

#10, (5P)

:MOVE SP TO USERS ERROR CALL
*LOAD ERROR # IN CALL

*REPORT ERROR

*RESTORE SP

55%:
sREPORT ERROR IF

013737
042737
013737
042737
023737
001412
062716
112776
162716
004736
162716
005037

051632
177776
001350
177776
001140

013746
052716
013737
042637

051632
137777
001344
001142

ILF

INCORRECT,

sWITH FUNCTION CODE TABLE
MOV
5009, $GDDAT
BIC
#*CILF,$GDDAT
MOV
BIC
CMP

000004
000254
000002

BEQ

60$

MovB

#254.a(sP)

ADD

SUB
JSR

000010
001140

60%:

RMERTI,$BDDAT
#~CILF.$BDDAT
$GDDAT.$BDDAT

SUB
CLR

#4,

(SP)

#2,(SP)
PC.a(SP)+

910, (sP)
$GDDAT

;REPORT AN ERRORSéa WCE IS SET
MOv
$,-(SP)

001142

BIS
MOV

BIC

#*CWCE, (SP)
RMCS2]1.$BODAT

(SP)+,$BDDAT

I1.E.,

ILF

DOES NOT

CCMPARE

;GET EXPECTED ILF
:CLEAR ALL OTHER BITS
:GET RECEIVED ILF
:CLEAR ALL OTHER BITS
:1S ILF OK ??

SYES !

*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
:CLEAR EXPECTED STATUS

AND SHOULD NOT BE SET

sGET WCE STATUS ENABLE
SSET ALL OTHER BITS
-RECEIVED STATUS

SCLEAR WCE IF ENABLED

CZRMMAO RMOS/3/2 FCTNL TST 1

SECONDARY ERROR CHECK SUBROUTINE

172
173

066722
066726

001412
062716

175 046776
176 046742

162716
004736

176 046730

177 046746

};3 046750
180
181
182
183
184
185

186
187
188
189

046750
046756
046760
046766
066772
046774
047000
047006
047012

190 047014

}g; 047020

112776

000004

000026
000002

162716

000010

013746
052716
013737
042637
001412

051632
157777
001350
001142

062716
112776
162716
004736

162716

000004
000164
000002

MACRO V03.01 11-APR-80 13:04:53 PAGE 29-3
000000

196 047024

013746
032737

001402
042716

200 047044
201 0647052
202 047056
202 047060
204 047064
205 047072
206 047076

013737
062637
001412
062716
112776
162716
004736

207 047100

583 047104

SUB
JSR

001142

052716

162716

051632
000100

ADD
MOVB
SUB
JSR

1008 :

001346

010000

167777

001376
001142
000004
000165
000002

001142

;BRANCH 1F WCE OK
:MOVE SP TO USER'S ERROR CALL

#2,(5P)
PC ASP)+

:MOVE SP TO ERROR RETURN
‘REPORT ERROR

#26,3(SP)

#10, (5P)

SUB

#s,(SP)
#164,3(SP)
#2,(SP)
PC.a(SP)+

#10, (sP)

‘WRITE ERROR NUMBER

*RESTORE ERROR

BIT

1058:

1108:

BEQ
BIC

BIS

MOV
BIC
BEQ
ADD
MOVB
SUB
JSR

SUB

sMOVE SP TO USER'S ERROR CALL
:WRITE ERROR NUMBER IN CALL
:MOVE SP TO ERROR RETURN
*REPORT ERROR

:RESTORE SP

IVC 1S SET AND IS NOT ENABLED OR IF

SSET AND VV IS NOT RESET
MOV
5008 ,-(SP)

000000

000010

90$
¥4, (SP)

;REPORT ERROR IF OP1 STATUS IS SET AND SHOULD NOT BE SET
MOV
00$,=(SP)
;GET OP1 STATUS ENABLE
BIS
#*COP1, (SP)
*SET ALL OTHER BITS
MOV
RMER11,$BODAT
:GET RECEIVED STATUS
BIC
(SP)+,$BDDAT
:CLEAR OPI IF ENABLED
BEQ
1008
:BRANCH IF OPI OK

000000

000010

SUB

JREPORT ERROR IF

197 047032
198 067034

199 047040

MOVB

908 :

193

194
195 047020

BEQ
ADD

SEQ 0196

1IvC IS

#VV,RMDS]

:GET IVC STATUS ENABLE
:1S vV SET

#-CIVC, (SP)

SSET ALL OTHER BITS

105$
#IVC, (SP)

RMER2].$BDODAT
(SP)+,$BDDAT
1108
#4, (SP)
#165,3(SP)
¥2,(SP)
PC,a(SP)+

#10, (SP)

INO !!
:YES = IVC SHOULD BE 0

:GET RECEIVED STATUS
:CLEAR IVC IF ENABLED
:BRANCH IF IVC OK
:MOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER IN CALL
;MOVE SP TO ERROR RETURN
;REPORT ERROR

:RESTORE SP TO NO ERROR

21
2°
o
213
214
215

:BIT 11 (WLE) OF THE FUNCTION CODE TABLE 1S THE ENABLING BIT FOR
: ALL WRITE ERRORS, 1.E.,
:
RMERT - WLE, WCF
;
RMER2 - DPE
:
RMCS2 - UPE.
*EACH OF THESE ERRORS 1S CHECKED TO SEE IF AN ERROR IS SET WHEN THE

218
219
220 047104
221 047110
222 047116

;REPORT AN ERROR IF WLE IS SET AND WRITE ERRORS ARE NOT ENABLED, OR IFf
*THE DRIVE IS NOT WRITE PROTECTED
.
MOV
#-1,-(SP)
:ASSUME WRITE ERRORS ENABLED
BIT
#ULE 5008
*ARE WRITE ERRORS ENABLED ??
BEQ
115%
INO !!

*WRITE ERROR ENABLE BIT IS RESET.

5}9

223 047120
224 047126
225 047130

012746
032737
001404
032737
001002
042716

228 047146

001412

226 047134
227 067142

013737
042637

177777
004000

051632

004000

001346

004000

001350
001142

001142

1158:

1208:

BIT
BNE
BIC

#WRL ,RMDS]
1208
#WLE, (SP)

1S THE DRIVE WRITE PROTECTED ??
TYES !
SRESET WLE ENABLE

BEQ

125%

‘BRANCH IF WLE OK

MOV
BIC

RMERT1,$BDDAT
(SP)+,$BDDAT

:GET RECEIVED STATUS
:CLEAR WLE IF ENABLED

CZRMMAD RMO5/3/2 FCTNL TST 1

SECONDARY ERROR CHECK SUBROUTINE

229 047150
230 047156
231 047162
232 047166
233 047170
236 067174
235
236
237 047174
238 047200
239 047206
240 047210
261 047214
262 047222
263 047226
26 047230
245 067534
246 0472642
247 047246
248 047250
249 047254
250
. 251
252 047254
253 047260
256 047266
255 047270
256 047274
257 047302
259 047310
260 047314
261 0473
262 047326
263 047330
264 047334
265
266
267 047334
268 047340
269 047346
270 047350
271 047354
272 047362
273 047366
276 047370
275 0473764
276 0476402
277 0476406
278 047410
279 0474614
280
281
282 047414
283 047420
284 047424
285 047632

062716
112776
162716
004736
162716

000004
000023
000002

012746
032737
001002
042716
013737
042637
001412
062716
112776
162716
004736
162716

177777
004000

012746
032737
001002
042716
013737
042637

MACRO v03.01 11-APR=-80 13:04:53 PAGEC12%-4

000004
000025
000002

125%:

000010
001376
001142

062716
112776
162716
004736
162716

000004
000040
000002

012746
032737
001002
042716
013737
042637
001412
062716
112776
162716
004736
162716

177777
004000

013746
052716
013737
042637

051632
175777
001350
001142

SUB

#5,

(SP)

#2%5.3(sP)

:MOVE SP TO USERS ERROR CALL

‘WRITE ERROR NUMBER IN CALL

#2.(SP)

:MOVE SP TO ERROR RETURN

#10, (sP)

:RESTORE SP T0 NO ERROR

PC a(SP)+

*REPORT ERROR AND RETURN

sREPORT ERROR IF WCF
051632

MOV
BIT

1S SET AND WRITE ERRORS ARE NOT ENABLED
#-1,-(SP)
:ASSUME WRITE ERRORS ENABLED
#WLE 5008
:ARE WRITE ERRORS ENABLED ??

001142

BIC
MOV

#UCF, (SP)
RMER11,$BDDAT

:DISABLE WCF ERROR
:GET RECEIVED STATUS

BEQ

1358

*BRANCH IF WCF OK

BNE

130%:

BIC

ADD

000000

000010

177777
004000

SUB

JSR

000010

000040
001350
001142

ADD

move

000000

SEQ 0197

(SP)+,$BDDAT

#4,

(SP)

SYES !

:RESET WCF IF ENABLED
‘MOVE

SP TO USERS ERROR CALL

Move

#25.,3(sP)

:WRITE ERROR NUMBER IN CALL

JSR

PC.(SP)+

‘REPORT ERROR

SUB

135%:

1308

SUB

#2,(SP)

"0, (sP)

:MOVE SP TO ERROR RETURN

*RESTORE SP TO NO ERROR

sREPORT ERROR IF DPE IS SET AND WRITE ERRORS ARE NOT ENABLED
051632
001142

MOV

#=1,-(SP)

:ASSUME WRITE ERRORS ARE ENABLED

BIC

#DPE , (SP)

‘RESET DPE ENABLE

BIT
BNE

140%:

MOV
BIC
BEQ
ADD

000000

000010

:GET RECEIVED STATUS
:RESET DPE IF ENABLED

#4,

‘MOVE SP TO USERS ERROR CALL

1458

(SP)

#40,3(SP)

JSR

PC.a(SP)+

SUB

:ARE WRITE ERRORS ENABLED ??
SYES !

RMER21,$BDDAT
(SP)+,$BDDAT

MOVB
SUB

145%:

#WLE 5008
1408

#2,(5P)

#10, (SP)

:BRANCH IF DPE OK

:WRITE ERROR NUMBER IN CALL
:MOVE SP TO ERROR RETURN
‘REPORT ERROR

‘RESTORE SP TO NO ERROR

sREPORT AN ERROR IF UPE IS SET AND WRITE ERRORS ARE NOT ENABLED
051632

020000
001344
001142

001142

000004
000024
000002

000000

MOV

#-1,-(SP)

:ASSUME WRITE ERRORS ARE ENABLED

BIC

#UPE , (SP)

:DISABLE UPE ERROR

(SP)+,$BDDAT
1558

;RESET UPE IF ENABLED
:BRANCH IF UPE OK

BIT
BNE
150%:

MOV

BIC
BEQ

155%:

¥4, (SP)

SUB

#2,(SP)

SUB

+REPORT AN ERROR

MOV

001142

RMCS21,$BDDAT

ADD

MOVB
JSR

000010

#uLE, 5008
1508

#24,3(SP)
PC a(SP)+

710, (sP)
IF

IAE

IS SET

00$,-(SP)

BIS

#-CIAE, (SP)

BIC

(SP)+, SBODAT

MOV

RMER1I.$BODAT

*ARE WRITE ERRORS ENABLED ??
SYES ')

:GET RECEIVED STATUS
: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
AND

IS NOT ENABLED

;GET IAE ENABLE

:SET ALL OTHER BITS

:GET RECEIVED STATUS

:CLEAR IAE

IF ENABLED

CZRMMAD RMO5/3/2 FCTNL TST 1

SECONDARY ERROR CHECK SUBROUTINE

286 047436
287 047440
288 047444
289 047452
290 047456
291 047460
292 047464
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310 047464
311 047470
312 047476
313 047500
314 047504
315 047512
316 047516
317 0647520
318 047524
319 047532
320 047536
321 047540
322 047544
323
324
325 047544
326 047550
327 047556
328 047560
329 047564
330 047572
331 047576
332 047600
333 047604
3364 047612
335 047616
336 047620
337 047624
338
339
340 047626
341 047630
342 047636

001412
062716
112776
162716
004736
162716

000004
000166
000002

MACRO v03.01

D 16

11-APR=80 13:04:53 PAGE 22-5

BEQ

000000

000010

160%

ADD
MOvB

160%:

;BRANCH IF

#s, (SP)

IAE IS Ok

:MOVE SP TO USERS ERROR CALL
:WRITE ERROR NUMBER
;MOVE SP TO ERROR RETURN

#166,3(SP)
#2,(5P)
PC ASP)+

SuB
JSR
SuB

SEQ 0198

:REPORT ERROR AND RETURN
+MOVE SP TO NO ERROR

00, (sp)

;BIT 09 (AOE) OF THE FUNCTION CODE TABLE 1S THE ENABLING BIT FOR

ALL

:
:

3
NOTE

READ/WRITE

ERRORS,

RMCS1 - TRE

I.E.,

RMCS2 = DLT,NEM, MxF
= LBT
RMDS

RMER1

LBT

= AOE

IS NOT CHECKED BECAUSE

.LVLINDER REGISTER IS WRITTEN

*NOTE:

012746
032737
001002
042716
013737
042637
001412
062716
112776
162716
004736
162716

012746
032737
001002

177777
001000

051632

100000
001344
001142

001142

000004
000032
000002

000000

000010

177777
001000
004000
001344
001142
000004

000167
000002

AOE CANNOT BE SET IF LBT IS NOT ALSO SET

;

TRE 1S CHECKED AS A FUNCTION OF OTHER ERROR CONDITONS ABOVE

;REPORT AN ERROR IF DLT IS SET
MOV
#-1,-(SP)

1658:

BIT
BNE
BIC

MOV

RMCS21,$BDDAT

BEQ

1708

#4,(SP)

:MOVE

SUB
JSR

#2,(SP)
PC.a(SP)+

:MOVE SP TO ERROR RETURN
:REPORT ERROR AND RETURN

ERRORS ARE NOT

:ASSUME ERRORS ARE ENABLED

#NEM, (SP)

:DISABLE NEM

ADD

0, (SP)

:MOVE

SUB

#2,(5P)

#167.3(SP)
PC.a(SP)+

SUB

;REPORT ERROR
MOV

BIT
BNE

00, (sp)
IF

MXF IS SET
#-1,-(SP)

#AOE , 5008
185%

ENABLED

:ARE ERRORS ENABLED ??
SYES !

:GET RECEIVED STATUS

(SP)+,$BDDAT
1808

JSR

051632

NEM IS SET AND READ/WRITE

RMCS21,$BODAT

BIC
BEQ

CALL

#-1,-(SP)

MOV
MOVB

180%:

SP TO USERS ERROR

:MOVE SP TO NO ERROR

#AOE, 5008
175%

BIC

ENABLED

:WRITE ERROR NUMBER IN CALL

010, (sP)
IF

:BRANCH IF DLT IS OK

#32,3(SP)

BIT
BNE

000000

:GET RECEIVED STATUS

ADD

SUB

ENABLED

:ARE ERRORS ENABLED ??
SYES !
*RESET DLT ENABLE

:CLEAR DLT

MOV

1758:

AND READ/WRITE ERRORS ARE NOT
;ASSUME ERRORS ARE ENABLED

(SP)+,$BODAT

MOVB

051632
001142

cAoe 5008
165%
#DLT, (SP)

BIC

;REPORT ERROR

000010

177777
001000

:nore

170%:

IT ONLY RESETS WHEN THE DESIRED

:CLEAR NEM I ENABLED
*BRANCH IF NEM 1S OK

SP TO USERS ERROR CALL

‘WRITE ERROR NUMBER IN CALL

:MOVE SP TO ERROR RETURN

*REPORT ERROR AND RETURN

:MOVE SP TO NO ERROR

AND READ/WRITE ERRORS ARE NOT ENABLED
;ASSUME ERRORS ARE ENABLED

*ARE DATA ERRORS ENABLED ??
JYES !

CZRMMAQ RMO5/3/2 FCTINL TST 1

SECONDARY ERROR CHECK SUBROUTINE

3,3 047640

042716

001000

042637
001412
062716

001142

344 047646

013737

348 047664

112776

345 047652
346 047656
3,7 047660
349 047672
350 047676

351 047700

162716
004736

001344

000004

000033
000002

MACRO v03.01 11-APR-B0 13:04:53 PAGE 23'6
001142
000000

162716

000010

354
355 047706
356 047710
357 047716

012746
032737
001404

177777
001000

051632

359 047726
360 047730
361 047734
362 047742
363 047746
364 047750

001002
042716
013737
042637
001412
062716

002000

001346

;gg 047704

358 047720

365 047754

366 047762
367 047766
368 047770

ggg 047774

032737

112776

162716
004736
162716

001000
001350
001142
000004

000020
000002

001142

001366

000200

051632

382
383 050012
384 050016
385 050026
386 050026
387 050032
388 050040
389 050044
390 050046

012746
032737
001002
042716
013737
042637
001412
062716

177777
000200

392 050060
393 050064

162716
004736

000002

391 050052

394 050066

ggg 050072

397
398 050072
399 050076

1918:
195%:

2008 :

002000

112776

000400
001350
001142

000004

000035

162716

000010

012746
032737

177777
000200

051632
001142

000000

BIC
BEQ
ADD

(SP)+,$BODAT
1908
#4, (SP)

:CLEAR MXF IF ENABLED
‘BRANCH IF MXF 1S OK
:MOVE SP TO USERS ERROR CALL

SUB

:GET RECEIVED STATUS

ISS.S(SP)

:WRITE ERROR NUMBER IN CALL

#2,(SP)
PC,a(SP)+

:MOVE SP TO ERROR RETURN
JREPORT ERROR AND RETURN

#10, (sP)

:MOVE SP TO NO ERROR

BIT

#LBT,RMDSI

115 LBT ALSO SET 22

Mmove

#20,3(sP)

‘WRITE ERROR NUMBER

BNE
BIC
MOV
BIC
BEQ
ADD
SUB
JSR
SUB

195
#AOE , (SP)
RMER11,$BDDAT
(SP)+,$BDDAT
2008
#4,(SP)

SYES !!
:DISABLE AOE
;GET RECEIVED STATUS
:CLEAR AOE IF ENABLED
*BRANCH IF AOE IS OK
:MOVE SP TO USERS ERROR CALL

#2,(SP)
PC,a(SP)+
#10, (SP)

*MOVE SP TO ERROR RE FURN
;REPORT ERROR AND RETURN
:MOVE SP TO NO ERROR

(HCE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR
ERRORS, 1.E.,
RMER1 = HCRC,HCE,FER
RMER2 - BSE

JRESET THE ENABLING BIT (HCE)
BIT
#HC1,RMOF
BEQ
201$
BIC
#HCE,S500%
201$:

IF HEADER COMPARE INHIBIT IS SET
;1S HCI SET 22
‘NO !
;YES - DISABLE ALL HEADER ERRORS

JREPORT AN ERROR IF HCRC IS SET
MOV
#-1,-(SP)
BIT
#HCE, 5008
8NE
205$
BIC
#HCRC, (SP)
205%:
MOV
RMER11,$BDDAT
BIC
(SP)+,$BDDAT
BEQ
2108
ADD
#4, (SP)

MOVvB
SUB
JSR

2108

051632

:DISABLE MXF ERROR

RMCSS] $BDDAT

sREPORT ERROR IF AOE 1S SET AND DATA ERRORS ARE NOT ENABLED
MOV
#=1,=(SP)
:ASSUME DATA ERRORS ARE ENABLED
BIT
#AOE , 5008
:ARE DATA ERRORS EANBLED ??
BEQ
191¢
INO
!!
:

;BIT 07
sHEADER
.
:
032737
001403
042737

#MXF , (SP)

MOV

SUB
JSR

000000

000010

BIC

MOVB

1908 :

371
372
373
§;§
376
327 047774
378 050002
379 050004
gg? 050012

185%:

SUB

#35,3(sP)

#2,(SP)
PC,a9(SP)+

#10, (SP)

AND HEADER ERRORS ARE NOT ENABLED
:ASSUME ERRORS ENABLED
:ARE HEADER ERRORS ENABLED ??
SYES !
:DISABLE HCRC
:GET RECEIVED STATUS
JRESET HCRC IF ENABLED
*BRANCH IF HCRC 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 MCE IS SET AND HEADER ERRORS ARE NOT ENABLED
MOV
#-1,-(SP)
;ASSUME ERRORS ENABLED
BIT
#HCE,500%
;ARE ERRORS ENABLED ??

SEQ 0199

CZRMMAOD RMO5/3/2 FCTNL TST 1

SECONDARY ERROR CHECK SUBROUTINE

400 050104
401 050106

001002
042716

404
405
406
407
408

001412
062716
112776
162716
004736

402 050112
403 050120

0501264
050126
050132
050140
050144

409 050146

:}? 050152

612
413 050152

414 050156
415 050164

013737
062637

162716

012746

000200

001350
001142

013737
062637
001412
062716

001350
001142

422 050220
423 050224

162716
004736

000002

421 050212

424 050226

112776

000037

162716

000010

428 050232
429 050236
430 050244

012746
032737
001002

177777
000200

432 050252

013737

001376

252 050232
427

431 050246

042716

433 050260
434 050264
435 050266

0462637
001412
062716

437 050300
438 050304

162716
004736

436 050272

439 050306

22? 050312

112776

162716

051632

000020

000004

100000

001142

000004

000354
000002

001142

2208
#4,(SP)
#36,3(SP)
#2,(5P)
PC.a(SP)+

*BRANCH IF HCE IS OK
:MOVE SP TO USERS ERROR CALL
:WRITE ERROR NUMBER IN CALL
:MOVE SP TO ERROR RETURN
:REPORT ERROR AND RETURN

SUB

#10, (sP)

235%:

:ARE HEADER ERRORS ENABLED ??
SYES !

MOV
BIC
BEQ
ADD

RMER11,$BDDAT
(SP)+,$BDDAT
2308
#6,(SP)

:GET RECEIVED STATUS
:RESET FER IF ENABLED
:BRANCH IF FER OK
sMOVE SP TG USERS ERROR CALL

SUB
JSR

#2,(SP)
PC.a(SP)+

BIC

#FER, (SP)

;

SUB

sNOTE:

;

BSE

;ASSUME ERRORS ENABLED
*ARE THEY ENABLED ??
SYES 1!

RMER21,$BDDAT

:GET RECEIVED STATUS

#354,3(sP)

‘WRITE ERROR NUMBER

BIC
BEQ
ADD

(SP)+,$BDDAT
2408
#4, (SP)

SUB
JSR

#2,(SP)
PC,a(SP)+

SUB

012746

453 050324

001002

177777

032737

000100

042716

000400

062637

001142

013737

001344

051632
001142

:MOVE SP TO NO ERROR

IS SET AND HEADER ERRORS ARE NOT ENABLED

:DISABLE BSE

:CLEAR BSE IF ENABLED
:BRANCH IF BSE OK
:MOVE SP TO USERS ERROR CALL
:MOVE SP TO ERROR RETURN
;REPORT ERROR AND RETURN

#10, (SP)

:MOVE 3P TO NO ERROR
TABLE

1S THE ENABLING BIT FOR DATA

MDPE

= DCK,ECH

ECH CANNOT SET UNLESS

:DCK 1S SET.

450
451 050312

:MOVE SP TO ERROR RETURN
:REPORT ERROR AND RETURN

#-1,-(SP)
#HCE 5008
235%

#BSE , (SP)

MOV

RMERT

:WRITE ERROR NUMBER IN CALL

#10, (SP)

BIC

RMCS2

:DISABLE FER

#37,3(SP)

;BIT 06 OF THE FUNCTION CODE
:FIELD ERRORS, I.E.,

zzg

:MOVE SP TO NO ERROR

#HCE, 5008
225%

MOVB

2408 :

447

:GET RECEIVED STATUS
:CLEAR HCE IF ENABLED

BIT
BNE

MOV
BIT
BNE

000000

L46

456 050340

JYES !
:DISABLE HCE

RMERTI,$BODAT
(SP)+,$BDDAT

MOVB

051632

000010

215%
#HCE, (SP)

MOV
BIC

JREPORT ERROR IF

445

455 050332

225%:

2308 :

001142

SEQ 0200

;REPORT ERROR IF FER 1S SET AND HEADER ERRORS ARE NOT ENABLED
MOV
#-1,=(SP)
;ASSUME FER 1S ENABLED

000000

L4k

454 050326

BNE
BIC

8EQ
ADD
MOVB
SUB
JSR

442
443

452 050316

215%:

2208 :

177777

417 050172
418 050200
419 0502064
420 050206

F 16
11-APR-80 13:04:53 PAGE 22 -7

000000

000010

000200

042716

001142

000004
000036
000002

032737
001002

416 050166

MACRO v03.01

IS ENABLED AND ECI

IS RESET AND

:REPORT ERROR IF MDPE xs SET AND 1S NOT ENABLED
MOV
#-1,-(SP
;ASSUME ENABLED

BIT

WECH, soos

:ARE DATA FIELD ERRORS ENABLED ??

BIC

#MDPE, (SP)

:DISBALE MDPE

BNE
245%:

MOV

BIC

245%

RMCS21,8BDDAT

(SP)+,$BDDAT

SYES

:GET RECEIVED STATUS

:CLEAR MDPE IF ENABLED

CZRMMAO RMO5/3/2 FCTNL TST 1

SECONDARY ERROR CHECK SUBROUTINE

457
458
459
460
461
462

050344
050346
050352
050360
050364
050366

001412
062716
112776
162716
004736
162716

466
467
468
469

050372
050376
050404
050406

012746
032737
001002
042716

471
472
473
474
475
476
477
478
479
480
481
482
483

050420
050424
050426
050432
050440
050444
050446
050452

042637
001412
062716
112776
162716
004736
162716

463 050372

464
465

470 050412

013737

484
485
486
487
488
489
490
491
492
493
494
495

050452
050456
050464
050466
050474
050476
050504
050506
050512
050520
050524
050526

012746
032737
001410
032737
001004
032737
001002
042716
013737
042637
001412
062716

497
498
499
500
501

050540
050544
050546
050552

162716
004736
162716

496 050532

112776

000004
000027
000002

MACRO v03.01

BEQ

000000

100000

001350

001142

000004
000030
000002

#4,(SP)

SUB

#2,(SP)

MOVB
250%:

MOV

051632
001142

255%:

177777
000100

051632

004000

001366

100000

001350

000100
001350
001142

001142

000004
000031
000002

000000

2658:
270%:

MOV

RMER11,$BDDAT

NOT ENABLED

(SP)+,$BODAT

ADD

:MOVE SP TO USERS ERROR CALL

SUB

#2,(SP)

BIC

SUB

#DCK, (SP)

260%

(SP)-

#30,3(sP)
PC.a(SP)+

#10, (sP)

sBRANCH IF

DCK

IS OK

" ;WRITE ERROR NUMBER IN CALL
;MOVE SP TO ERROR RETURN
sREPORT

ERROR AND RETURN

;MOVE SP TO NO ERROR

ERROR IF ECH IS SET AND,
DATA FIELD ERRORS ARE NOT ENABLED, OR
ECI IS SET, OR
DCK IS NOT SET.

MOV

#-1,=(SP)

BIT
BEQ
BIT
BNE
BIT
BNE
BIC
MOV

#ECH,500%
265%
#ECI,RMOF
]
2658
#DCK ,RMER1I
270%
#ECH, (SP)
RMER11,$BDDAT

BEQ

275%

MOVB
SUB

#31.,3(sP)
#2,(SP)

BIC

ADD

JSR

275%:

AND DATA FIELD ERRORS ARE
sASSUME ENABLED
sARE THEY ENABLED ??

s YES 1!
;DISABLE DCK
sGET RECEIVED STATUS
;CLEAR DCK IF ENABLED

BIC

JSR

;REPORT
:
;
;

IS SET

#ECH, 5008
255%

Move
260%:

DCK

#-1,-(SP)

BIT
BNE

BEQ

000000

PC.a(SP)+

#10, (sP)
IF

SEQ 0201

;BRANCH IF MDPE 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

#27,3(SP)

SUB

;REPORT ERROR

000010

2508

ADD
JSR

000010

177777
000100

61 6

11-APR-80 13:04:53 PAGE 2 2=

SUB

(SP)+,$BDDAT

#4,(SP)

PC.a(SP)+

#10, (sP)

sASSUME ENABLED
;ASElgRRORS ENABLED
sNO
!!

*1$§ EC1 SE1T M2
SYES

I¥ES

;1S DCK ALSO SET ??

;DISABLE ECH
JGET RECEIVED STATUS
sCLEAR ECH IF ENABLED
sBRANCH IF ECH IS 0K
sMOVE SP TO USERS ERROR CALL
sWRITE ERROR NUMBER IN CALL
sMOVE SP TO ERROR RETURN
sREPORT ERROR AND RETURN

;MOVE SP TO NO ERROR

CZRMMAOD RMO5/3/2 FCTNL TST 1
IS NN —

SECONDARY ERROR CHECK SUBROUTINE

MACRO v03.01

NN = OO0 N

000030

051640

e o
e
b

001334

000004
000015
001140
000002

b b b e
N
PO NI PO PO N

CMP
BLO
JMP

051604

040000

013737
163737
006337
063737

BEQ

FOR DATA

TRANSFER

COMMANDS

285%

ADD

¥4,

000010

001344

001414

001140

050704
33 050712
050714
050722
050726
050734
050740
050742
050746

001140

001340

001340
000004
000016
000002

001142

001140

PC.A(SP)+

*REPORT WORD COUNT NOT ZERC

#2,(SP)

#10, (SP)

ERROR

MOV

SUB
ASL

RMBA

005046
013746
163716

RMWCO,$GODAT
$GDDAT
RMBAO,SGDDAT

050762

012746
032737
001402
062716

000400
000002

005266

000004
600002

001410

3008:

:SUBTRACT STARTING WORD COUNT.
* 2
-ADD STARTING BUS ADDRESS

CMP
BEQ

$GDDAT,RMBAl
295%

;BUS ADDRESS OK??
SYES!!

JSR

PC.a(SP)+

#2,(5P)

#10, (sP)

:WAS BUS ADDRESS INHIBIT
‘NO !

(BAI) SET

:ERROR NUMBER

*MOVE SP TO RETURN FOR Eh (OR
*REPORT UNEXPECTED ADDRESS

‘RESTORE (SP)

SECTORS TRANSFERRED FROM WORD COUNT

-(SP)

:NUMBER OF SECTORS TRANSFERRED

SUB

RMWCO. (SP)

:SUBTRACT STARTING WORD COUNT.

MOV

RMWCI,=(SP)

:GET WORD COUNT AT

END OF

TRANSFER AND

MOV
BIT

#256.,-(SP)
#BITI.RMCS10

;ASSUME 256. WORDS PER SECTOR
:HEADER & DATA COMMAND 2?

ADD

#2,(SP)

CHANGE 70 258. WORDS PER SECTOR

INC
SUB
BGT

4(SP)

: INCREMENT SECTOR COUNT

(SP)+,(SP)+

*RESTORE STACK

CMP

2?2

:BAD DATA FOR TYPEOUT

CLR

BEQ

000002

;GET WORD COUNT AT END OF TRANSFER AND

:ADDRESS SHOULD NOT HAVE CHANGED

NOP

001336
001412

CORRECT

RMBAO,$GDDAT

RMBAI,$BODAT
#4, (SP)
#16,3(SP)

‘RESTORE (SP)

#BA1,RMCS21
290%

MOV
ADD
MOVR

g
K

*MOVE SP TO RETURN FOR ERROR

BIT
BEQ

SUB

295%:

IS NOT

RMWC1,$GDODAT

- COMPUTE NUMBER OF

050750
050752
050756

JSR

SUB

000010

SYES!!

:ERROR NUMBER
:GOOD DATA FOR TYPEOUT

MOV

000000

(SP)

YES

" TRANSFER ERROR DETECTED??

#15,3(SP)
$GDDAT

ADD

290%:

1S ZERO

MOVB
CLR
SUB

:REPORT

ZERO AND TRE

#TRE ,RMCS1]

BNE

285%:

RMWC NOT

;WAS DATA TRANSFERRED ?
‘BR IF YES
INO - EXIT

RMWCI,$BODAT ~ ;WORD COUNT ZER0??
285$

NOP

050666
050674
050676

003373
022626

SUB

001140
001140

161666

ERROR

MOV

#SEARCH,515%
280%
355¢

BIT

000010

050636
050640
050646
050654
050660

:REPORT

280%:

000000

001336
001412
001140
001414

NI PO N

REMAINING ERROR CHECKS ONLY

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

001142

N=OOVOENO VS WNN=O VNV

SEQ 0202

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

'PERFORH THE

001336

NN NN

H 16
11-APR-80 13:04:53 PAGE 23

3008

(SP),2(SP)
3008

:SUBTRACT ONE SECTOR'S WORTH
:CONTINUE IF NOT DONE

;COMPUTE EXPECTED SECTOR, TRACK AND CYLINDER ADDRESS FROM

CZRMMAO RMO5/3/2 FCTNL TST 1
MACRO v03.01
SECONDARY ERROR CHECK SUBROUTINE

58
59 051016
60 051024
61 051032
62 0510640
63 051046
gg 051052

013737
013737
013737
013737
000337
005237

001444
001416
001416
001332
051642
051642

051632
051634
051636
051642

66
67
68
98

051056
051064
051070
051076

042737
000337
042737
062637

000377
051634
177400
051636

051634

71 051102
72 051110

023727
103406

051636

000040

764 051116

162737

73 051112

005237

;Z 051126

000766

77
78
79
80
81
gg

023737
103407
005237
163737
000766
000240

051126
051134
651136
051142
051150
051152

051634

051636

051634

051642

051632
051642

051634

86
87
88
89
90
91
92
93
94
95
96

005037
023727
101407
032737
001003
012737
013737
042737
023737
001413
062716

98 051244
99 051250

162716
004736

}85 051256

000240

100 051252

112776

001140
051632

001466

002000

001350

002000
001346

001140
001142

175777
001140
000004

000017
000002

001142
001142

104 051260

005037

001140
002000

001350

107
108
109
110
111
112

051274
051302
051304
051310
051312
051316

023727
101425
005737
001012
005737
001007

051632

001466

114 051326

001413

113 051320

5108 ,#32.
3158

SUB

#32.,510%

310%

STRY AGAIN

CMP
BLO
INC
SUB
BR

505$,520%
3208
5008
5208 ,505%
315%

:TRACK OVERFLOWED??
INO!!
- INCREMENT CYLINDER
SADJUST TRACK
STRY AGAIN

BR
3158:

032737
001031

032737

CLR
CMP
BLOS
BIT
BNE
MOV
MOV

BIC
CMP
BEQ
ADD

505%

JSECTOR OVEFLOWED??
INO!
!

:INCREMENT TRACK
:ADJUST SECTOR

$GDDAT
500, #822.
325%
#1AE ,RMER1]
325%
#LBT,SGDDAT
RMDS1,$BDDAT
#~CLBT,$BDDAT
$GDDAT,$BDDAT
3308
¥4, (SP)

;SET GOOD DATA FOR LBT = 0
:SHOULD LBT BE SET??
INO!!
‘WAS 1AE SET 72
:YES = LBT SHOULD NOT BE SET
*SET GOOD DATA FOR LBT = 1
;BAD DATA FOR TYPEOQUT
;1S LBT CORRECT??
SYES!!

MOVB

#17,3(SP)

:ERROR NUMBER

SUB

#10, (sP)

*RESTORE (SP)

SUB
JSR

NOP

#2,(SP)
PC,a(SP)+

sMOVE SP TO RETURN FOR ERROR
JREPORT LBT IS WRONG

REPORT ERROR IF ""AOE'' IS INCORRECT

051634
051636
000010

325%:

000000

000010

105 051264
106 051272

CMP
BLO

INC

3208:

162716

103

#*C<TADMSK>,505%
sSAVE TRACK ADDRESS BITS AND
505%
sSWAP TRACK ADDRESS TO LOW BYTE.
#*C<SADMSK>,5108
:SAVE SECTOR ADDRESS BITS
(SP)+,5108

;REPORT ERROR IF "'LBT'' IS NOT CORRECT

051154
051160
051166
051170
051176
051200
051206
051214
051222
051230
051232

97 051236

310%:

:STORE ORIGINAL CYLINDER
:STORE ORIGINAL TRACK
:STORE ORIGINAL SECTOR
:STORE LAST TRACK,
:GET TRACK ADDRESS TO LO BYTE AND
:INCREMENT TO GET TOTL # OF TRACKS.

BIC
SWAB
BIC
ADD

NOP

85 051154

SEQ 0203

sNUMBER OF SECTORS
MOV
RMDCO, 5008
MOV
RMDAO, 505$
MOV
RMDAO,510%
MOV
LSTRK.5208
SWAB
5208
INC
5208

051636

000040

1 16
11-APR-80 13:04:53 PAGE 23-1

051640

3308:

(LR

SGDDAT

:SET FOR AOE = 0

CMP
BLOS
TST
BNE
TST
BNE
BIT

5008 ,#822.
340%
505%
335¢
5108
335¢

:SHOULD AOE BE SET??
INO!!
*MAYBE
YES

340

INO !

BIT
BNE

BEQ

#1AE ,RMER1]
340%

#F2,515%

‘WAS "'IAE''
DETECTED??
sYES="'AOE'' SHOULD BE ZERO

JYES !
;WAS THIS READ OR WRITE CHECK ??

CZRMMAD RMO5/3/2 FCTNL TST 1
MACRO v03.01
SECONDARY ERROR CHECK SUBROUTINE

Nt
2 O NN O WY
oSO
SSOON

001350
176777
001140
000004
000020
000002

001140

051636
001142
001142
001142

032737

002000

001350

013737
000337

051634
001140

001140

113737
7
7
3
6
6
6
6

051636
001342
001140

001140
001142
001142

000004
000021
000002

000000

;

001370
001140

00}}
00

6
6
g

000004
000022
000002

6
0

000010

6
6

000004
000000

062716

000004

162716

000004

000000
000000
000000
000000

VUV

VAV AV

— D D D D d b b b b b
OV
ONNNOWVWBS SN
OSSOSO
ONS

VWA WA

0011

051632

7
7

000207

176000

0011

SEQ 0204
TST

RMWC I

MoV
CLR
MOV
MOV

#AOE , $GDDAT

*SET FOR AOE = 1

#1,5108
RMER11,$BDDAT

(EXPECT SECTOR = 1
:BAD DATA FOR TYPEOUT

$GDDAT,$BODAT

;1S AUE CORRECTY??

BEQ

BIC
CMP
BEQ

ADD
MOovB
suB
JSR
SuB
NOP

000010

3408:

000000

000010

VWV

335%:

:REPORT

345%:

MovB

SUB
JSR
SuB
NOP
:REPORT

3508:

000000

355%:

ERROR IF

MOV
BIC
MOV
CMP
BEQ
ADD
MOvB
SuB
JSR
SUB
NOP
ADD
1S1B

BEQ

3608
:

:WAS ALL DATA TRANSFERRED 27

340%

505$

#*CAOE
, $BDDAT

345%

¥4,

(SP)

sYES !!

:CLEAR EXPECTED TRACK

JYES!!

#20,3(5P)

:ERROR NUMBER

PC.a(SP)+

:REPORT AOE

#2,(SP)

:MOVE SP TO RETURN FOR ERROR

#10, (SP)

1S WRONG

:RESTORE (SP)

ERROR IF RMDA 1S NOT CORRECT
#1AE ,RMERT]
BIT
:WAS THERE AN IAE ERROR ??
BNE
355§
*YES - DONT CHECK RMDA,RMDC

MoV
SWAB
MOvVB
MOV
CMP
BEQ
ADD

ADD
BR

5058, $GDDAT

$GDDAT

5108, $GDDAT

RMDAI,$BDDAT

:SETUP EXPECTED DISK ADDRESS

;SETUP RECEIVED DISK ADDRESS

$GDDAT,$BODAT
3508

:COMPARE EXPECTED & RECEIVED
*BRANCH IF EQUAL

#21,3(5P)
#2,(SP)

:ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR

#4, (SP)

PC.a(SP)+

*REPORT BAD DISK ADDRESS

#10, (SP)
RMDC

*RESTORE (SP)
INCORRECT

500%,$GDDAT

sSETUP EXPECTED CYLINDER

RMDCI,$BDDAT
$GDDAT,$BODAT

;SETUP RECEIVED CYLINDER
:COMPARE CYLINDERS

#~C1777,$GDDAT
355¢

¥4,

(SP)

‘BRANCH IF EQUAL

#22,3(5P)

;ERROR NUMBER

#10, (sP)

*RESTORE (SP)

#4, (SP)

:MOVE

(SP)

TO ERROR CALL

§2;§SP’

:MOVE

(SP)

TO ERROR RETURN

(SP)

TO NO ERROR RETURN

#2,(SP)
PC.a(SP)+

a(SP)

3608

*MOVE SP TO RETURN FOR ERROR
*REPORT BAD CYLINDER

*WAS ERROR FOUND??

365%:

RTS

SuB

gé,(sp)

:MOVE

5008:
05%:
108:
158:

.WORD
.WORD
.WORD
.WORD

0
0
0
0

sCYLINDER
s TRACK
*SECTOR
*FUNCTION CODE

D
D
i
i
e

O
O
o
o
o
Al 2k 2

D
e
D e el e

001000
051634
000001

—
s b b s —>
OO0
W=
2w D
OO
OSS

001336

—_—
s
oo
SW
oorN

= leleleleleleBelelelelelelelelele
-]

005737

O=O—=—=00
OO0 —=O

VAUV

i e
i

YUYV

sl
—

ViV

PRk
2 aF P o AV IV W TV TV TN
NN = O OO N NI NN
oo sSsorNvVOoONSoO
OSSO

[=l=lelelelelelelelelelelele]

il
D e

)

NNV NN

edod=l=lolololelelelelelel=]

VIV

=il

dddcfld-‘d—.dfldfldfl—.ddd—lflddfld-‘—‘—J-‘-‘—.-.—d—.fldd—‘d—‘-‘—.—‘d-‘_‘-fld—.—‘—l-fld_‘-‘fld
N~ C OO
O VNN
S BN 85 85 IS 55 05 5 55 55 08NN N NN N N N N N O D D O AU O AU AU D) b b et

=C OONOWVIAWN—=OOVONOWVSWN—=O
VRNV WA —=O VNN WA = OO0~ NI NN = OO0~

115 051330

J 16

11-APR=80 13:04:53 PAGE 232

(ZRMMAO RMOS5/3/2 FCTNL TST 1
MACRO v03.01
SECONDARY ERROR CHECK SUBROUTINE
172 051642
};E

000000

520%:

K 16

11-APR-80 13:04:53 PAGE 23-3
~
.WORD

;8 OF TRACKS FOR DEVICE UNDER TEST = LAST
;TRACK + 1 TRACK

SEQ 0205

CZRMMAQ RMO5/3/2 FCTNL TST

COMPOSITE ERROR CHECK SUBROUTINE

MACRO v03.01

L 16
11-APR-B0 13:04:53 PAGE 24

SEQ 0206

.SBTTL

;THIS SUBROUTINE CHECKS THE STORED CONTENTS OF RMER1 AND

sMASKS AND REPCRTS AN ERROR IF ANY BITS ARE LEFT ON AFTER

COMPOSITE ERROR CHECK SUBROUTINE

JRMER2 AFTER MASKING EACH REGISTER WORD WITH THE USER'S STATUS

:THE MASKS ARE

8
9
10

sCALL:
(1)
:

12
13

:
;

14
15

:
:

JSR
.WORD
.WORD
BR
NOP

ERROR
JSR

JNOTE:

3; 051644

CMPERRSTS:

;BE ZERO

23
24 051644
25 051652
26 051660

013737
047637
062716

%g 051672

047637

27 051664

001350
000000
000002

001176
001176

000000

001200

013737

001376

062716
105076
162716

000006
000000
000004

005737
001420
013737
005037

001176

001200

32 051700
33 051704
gg 051710
36
37 051714
38 051720
39 051722
40 051730
41 051734
&2 051740
43 051746
44 051752
45 051754
46 051760
&7 051762

062716
112776
162716
004736
162716
000240

001176
001140
000004
000066
000002

(01200

54 051770
55 051776
56 052002

013737
005037
062716

001200
001140
000004

57 052006

112776

MOV

BIC

ADD
CLRB
Sus

;SEE IF

001142
000000

5%:

005737
001420

000067

7
PC,a(SP)+

;SEE IF

001142

000000

MASK FOR ERROR
MASK FOR ERROR
RETURN HERE IF
RETURN HERE TO

ERROR NUMBER DEF INED BY SUB
GO BACK TO SUB FOR MCRE ERROR CHECKS

RETURN HERE IF NO MORE ERRORS

BITS TO BE MASKED SHOULD BE ONE; BITS TO BE

JMASK AND STORE
MOV
BIC
ADD

000010

51 051762
gg 051766

PC,CMPERRSTS

TESTED SHOULD

THE CONTENTS OF RMER1
AND RMER?
RMER1],$TMP1
:STORE RMER1 AT TEMP STORAGE
a(SP),$TMPI
s MASK
RMER1
#2,(SP)
:MOVE SP TO NEXT MASK

RMERZ21,$TMP?

a(SP),$TMP2

;CLEAR USER'S ERROR CALL

¢
50

APPLIED.

¥6, (SP)
a(SP)
#6,(SP)

:STORE RMERZ2 AT TEMP STORAGE
:MASK RMER2

sMOVE SP TO USER'S ERROR CALL
:CLEAR ERROR NUMBER
sLEAVE SP AT NO ERROR RETURN

THERE WERE ANY ERRORS IN RMER1, 1.E., $TMPI
1ST
$TMP1
;ANY ERRORS TO REPORT??
BEQ
5%
NO !
:
.
MOV
$TMP1,$BDDAT
:RECEIVED STATUS FOR TYPEOUT
CLR
$GDDAT
SEXPECTED STATUS FOR TYPEOUT
ADD
#4,(SP)
JMOVE SP TO USER'S ERROR CALL
MOVB
#66,3(SP)
;CORRECTABLE DATA CHECK ERROR #
SuUB
#2,(SP)
sMOVE SP TO RETURN FOR ERROR
JSR
PC,a(SP)+
JREPORT ERROR VIA USER
SuB
#10,(SP)
sMOVE SP BACK TO BRANCH
NOP

THERE ARE ANY ERRORS TO REPORT IN RMERZ2 ($TMP2)

TST
BEQ

$TMP?
10%

;ANY ERRORS IN RMER??
JNO!!

MOV
CLR
ADD

$TMP2,$BDDAT
$GDDAT
#6,(SP)

JRECEIVED STATUS FOR TYPEOUT
JEXPECTED STATUS FOR TYPEOUT
sMOVE SP TO USER'S ERROR CALL

MOVB

.67.3(SP)

;WRITE ERROR NUMBER IN USER'S CALL

CZRMMAQ RMUS5/3/2 FCTNL TST 1
MACRO v03.01
COMPOSITE ERROR CHECK SUBROUTINE

58 052014
59 052020

16.
6
004356

61 052026
2§ 052030

000240

60 052022

65
66
67
68
69
70
71

052030
052034
052040
052042
052046
052050
052054

162716

062716
105776
001403
062716
000402
162716
000207

000002

SUB
JSR

000010

SUB

108:
000004
000000

NOP

#2,(SP)
PC,a(SP)+

#10, (SP)

sAUGMENT THE RETURN ADDRESS IF

000004
000004

B .1
11-APR-80 13:04:53 PAGE 24=1

20$:

30%:

ADD
1STB
BEQ
ADD
BR
SuB
RTS

#s, (SP)
a(SP)
20%
#6,(SP)
30§
¥4, (SP)
PC

sMOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER

:MOVE SP TO NO ERROR RETURN

ANY ERROR WAS DETECTED

sMOVE SP TO USER'S ERROR CALL
;WAS THERE AN ERROR CALLED??
INO!!
JYES = MOVE SP TO ERROR RETURN
:MOVE SP TO NO ERROR RETURN
JRETURN TO USER

SEQ 0207

(ZRMMAO RMO5/3/2 FCTNL TST 1

DEVICE SELECT SUBROUTINE

MACRO vC3.01

.SBTTL

2
3

11-APR-80 13:04:53 PAGE 25

SEQ 0208

DEVICE SELECT SUBROUTINE

: THIS SUBROUTINE SELECTS THE DEVICE, GETTING THE DEVICE NUMBER FROM THE

6
7
8
9
10
11
12 052056

15 052056
16 052062
}g 052066

sCALL:
{1)

:(2)
:(3)
; (&)

JSR

PC,DEVSEL

BR
NOP

ERROR

RETURN IF
RETURN IF

NO ERROR
ERROR

ERROR DEFINED BY SUBROUTINE

DEVSEL:

062716
105076
162716

000004
000000
000004

20 052072
052076
052102
052104
21 052106
22 052114
23 052122
%g 052126

013746
013746
010046
010146
012737
012737
013700
013701

000004
000006

052226
000300
001276
001464

26
27 052132
28 052136
%8 052144

111160
016037

016037

000010
000000

31
32
33
34
gg

052152
052160
052162
052170
052176

TEST QUEUE.

;CLEAR USER'S ERROR CALL
ADD
CLRB
SUB

#4,(5P)
a($P)
#4,(SP)

:MOVE SP TO USER'S ERROR
:CLEAR LOW ORDER BYTE OF CALL
sMOVE SP BACK

;SAVE USER'S INFORMATION AND SETUP REGISTERS
MOV
ERRVEC,-(SP)
;sPUSH ERRVEC ON STACK
MOV
ERRVEC*Z -(SP)
sPUSH ERRVEC+2 ON STACK

MOV
MOV

000004

MOV

000006

MOV

RO,=(SP)

: :PUSH RO’ ON STACK

#20% ,ERRVEC

:SETUP FOR BUS TIMEOUT

R1,=(SP)

#PR6,ERRVEC+2

$BASE , RO

TSTQUE ,R1

::PUSH R1

ON STACK

;RO= UNIBUS ADDRESS
R1

POINTS TO DEVICE NUMBER

;SELECT DEVICE AND VERIFY THAT DEVICE IS AVAILABLE
MOV
MOV

(R1) ,RMCS2(R0O)

:WRITE UNIT SELECT BITS

000010

001176
001174

RHCS1(RO) $TMP1 :GET ''DVA'' STATUS
RHCSZ(RO).STHPO 'GET "'NED'' STATUS

032737
001407
062766
112776
000422

010000

001174

géa

1g§o.s1npo

13DEVICE NONEXISTENT ?

000004
000111

000010
000010

ADD
MOVB
BR

#4,10(SP)
#111,310(SP)
30

MOVE SP TO USERS ERROR CALL
URITE ERROR NUMBER

37 052200
38 052206
39 052210

032737
001021
062766

004000

001176

000004

000010
000010

BIT
BNE
ADD
MOVB
BR

#DVA,$TMP1
35¢
#4,10(SP)
#112,310(SP)
308

;1S DEVICE AVAILABLE ?
YES!!
MOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER

052226
052230

022626
062766

47 052244
48

162766

40
&%
42
43
44
45
46

052216
052224

052236

112776
000407

112776

000112

108:

:HANDLE BUS TIMEOUT

000004
000113

000002

49
50

51 052252
052252
052254
052256

MOVB

000010

000010
000010

éOS:

30$:

CMP

ADD

MOVB
SUB

(SP)+,(SP)+

[ I 10(SP)

#113,310(5P)
#2,10(sP)

;ADJUST SP

;MOVE SP TO USERS ERROR CALL
;WRITE BUS TIMEQUT ERROR NUMBER
:ADJUST RETURN TO 'NOP' PRECEDING
:THE ERROR CALL

:RE STORE USERS DATA AND RETURN TO ADDRESS ON STACK

012601
012600
012637

$5¢:
000006

MOV
MOV
MOV

(SP)+,R1
(SP)+,R0O
(SP)+ ERRVEC+2

:;POP STACK INTO R1
::POP STACK INTO RO
::POP STACK INTO ERRVEC+?

CZRMMAQ RMO5/3/2 FCTNL TST 1
DEVICE SELECT SUBROUTINE

052262
g% 052266

012637
000207

000004

MACRO v03.01

.1
D
11-APR=80 13:04:53 PAGE 25-1
MOV
RTS

(SP)+ ERRVEC
PC

;;POP STACK
JEXIT

SEQ 0209
INTO ERRVEC

CZRMMAO RMO5/3/2 FCTINL TST 1

SEEK STATUS CHECK SUBROUTINE

MACRO v03.01

.SBTTL

2
3
5

;AFTER HAVING LOADED THE

;
sCALL:

14
15
16

;
;
:

12
13

;1)
:

77?

IN THE

'‘ERROR'' TRAP

SEEK STATUS 1S CHECKED AS FOLLOWS:

PC,SEKSTS
777
PC,a(SP)+

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEFINED BY SUB
GO BACK TO SUB FOR MORE ERROR CHECKS

RETURN HERE IF NO MORE ERRORS

SEKSTS:

21
22 052270
23 052272

000240
062716

000004

25 052302
5? 052306

162716
005037

000004
053526

105076

032737

;CLEAR USERS' ERROR CALL
NOP
ADD
#4,(SP)

000000

CLRB
SuB
CLR

31 052320
32 052322
gz 052330

001424
032737
001020

000010

001350

000010

001376

35
36 052332
37 052336
38 052344

005037
013737
062716

001140
001350
000004

40 052356
41 052362

162716
004736

000002

22 052370

000437

112776

162716

000050

001142

000000

012737
052737

002000
040000

BIT

BEQ
BIT
BNE

50 052414
g; 052416

101025
042737

:
040000

023727

001444

001466
053526

;MOVE (SP) TO NO ERROR RETURN
:CLEAR ERROR FLAGS

#PAR,RMER1]

1%
#DPE ,RMER21
1%

:WAS PARITY ERROR DETECTED??
*NO!!
;WAS IT DUE TO CONTROL
:NOT SURE!!

BUS??

;REPORT REGISTER PARITY ERROR VIA USER'S ERROR CALL
CLR
$GDDAT
;EXPECTED STATUS
MOV
nnea11 $BDDA7T
;RECEIVED STATUS
ADD
#4,(SP)
*MOVE STACK TO USER'S ERROR
.

MOVB

#50,3(sP)

SUB

90, (sP)

SuB
JSR

001140
053526

(SP) TO ERROR CALL

:CLEAR ERROR NUMBER

#4, (SP)
3008

;ALSO,
1$:

:ERROR #50

#2,(5P)
PC,a(SP)+

:MOVE SP TO RETURN FOR ERROR

;1AE SHOULD

;DETERMINE THE VALUE OF

46
47 052372
48 052400

;MOVE

a(sSP)

;TEST FOR MASSBUS CONTROL BUS PARITY ERROR WHEN WRITING
:LOCAL REGISTERS, I.E., "‘PAR"
1 AND “'DPE' = 0

000010

49 052406

JSR
BR
NOP
ERROR
JSR

58 052270

42 052364

APPROPRIATE ERROR NUMBER

;OF THE CALLING ROUTINE.

10
11

39 052350

SEEK STATUS CHECK SUBROUTINE

:THE_SUBROUTINE RETURNS TO THE CALLING ROUTINE IF AN ERROR IS DETECTED

8
9

30 052312

SEQ 0210

VERIFIES THE RESULTS OF §S EEK T ESTS USI NG STATUS
;STORED IN THE GET BUFFER AND TEST PARAMETERS $S TORED IN THE PUT BUFFER.

6
7

28
29

:THIS SUBROUTINE

24 052276

11-APR-80 13:04:53 PAGE 26

;RESTORE STACK

BE ZERO

"'IAE'' STATUS BASED ON TRACK, SECTOR AND CYLINDER

SET *'SKI' TF CYLINDER ADDRESS IS TOO LARGE.
MOV
#1AE,SGDDAT
:SETUP FOR IAE
= 1
BIS
#5k1,300%
;SETUP FOR SKI
= 1

CMP

RMDCO, #822.

*GREATER THAN LASY CYLINDER ?

BHI
BIC

3
#5k1,3008

;YES = CYLINDER IS INVALID
;CLEAR SK1 ERROR FLAG

53 052424
gg 052432

123737
101016

001417

001333

(MPB
BHI

RMDAO+1,LSTRK+1
3%

;GREATER THAN LAST TRACK ?
:YES = TRACK IS INVALID

56 052434
57 052442

123727
101410

001416

000035

(MPB
BLOS

RMDAO, #29.
2%

:SECTOR > 29.
:BR IF NO

CZRMMAO RMO5/3/2 FCTNL TST 1

SEEK STATUS CHECK SUBROUTINE

MACRO v03.01

S8 052444

032737

010000

001442

60 052456
g; 052462

123727
101002

001416

000037

005037

001140

66 052470

013737

001350

001142

70 052514
71 052522
72 052524
73

042737
000413

040000

053526

062716
112776

000004
000051

162716

000010

59 052452

gz 052464
65

67 052476
68 052506
69 052512

76 052524
75 052530

76 052536
77 052542

78 052544

79 052550
g? 052552

001406

042737
023737
001004

162716
004736
000240

175777
001140

000002

001142
001142

NFMT16,RMOFO

;18 BIT FORMAT ?

CMPB
BHI

RMDAO,#31.
38

;SECTOR > 31.
:YES = SECTOR IS INVALID

CLR

$GDDAT

;"' 1AE'* SHOULD = 0

:YES = SECTOR 1s INVALID FOR 18 BIT MODE

- COMPARE EXPECTED AND RECIEVED "'IAE'' STATUS

3$:

BIL
CMP
BNE

358
;REPORT
000000

BIC
BR

;IS IAE 0K??

#SK1,300%
5%

:CLEAR SKI FLAG
:60 CHECK NEXT ERROR

#*~CIAE.$BDDAT
$GDDAT.SBDODAT
35¢

:SAVE IAE BIT FOR COMPARE
:CORRECT "‘IAE'* STATUS ?
:BR IF NO

INCORRECT "‘IAE'' STATUS VIA USER'S ERROR CALL

ADD
MOVB

#4,(SP)
#51,3(SP)

SUB

#10, (sP)

SUB
JSR

RMER11,$BODAT

NOP

#2,(SP)
PC.a(SP)+

;ERROR 51

:MOVE SP TO RETURN FOR ERROR
:REPORT INCORRECT IAE

;RESTORE (SP)

:REPORT ANY I1VC ERROR AS
;
IVC ERROR WITH VOLUME VALID ZERO

84,

85 052552

032737

010000

001376

052560
052562
052566
052574
052600
052606
052614
052616

001427
005037
013737
062716
112776
032737
001403
112776

95 052630

004736

8; 052636

000240

162716

000010

99 052640
100 052646
107 052654

013737
042737
013737

001376
137777
053526

001142
001142
001140

032737
001032
062716
112776
162716
004736

040000

001142

000004
000267
000002

000000

94 052626

96 052632

102 052662
}82 052670

105
106 052672

107
108
109
110
111

;

BIT

BEQ

2%:

82
83

86
87
88
89
90
91
92
93

F
o1
11-APR-80 13:04:53 PAGE 26-1

052700
052702
052706
052714
052720

112 052722

113 052726
114 052730

162716

001140
001376
000004
000060
000100
000061

000002

042737 - 137777
001417

162716

000443

;

001142
000000
001346

000000

518%:

ERRONEOUS I1VC ERROR, VOLUME VALID IS SET

. BIT

;ERROR 61

JSR

PC.a(SP)+

:REPORT ERROR VIA USER

SUB

001140

MOV
BIC
MOV

BIC
BEQ

#2,(SP)

= 1

:MOVE SP TO RETURN FOR ERROR
‘RESTORE SP

RMER21,$BDDAT
#~CSK1.$BODAT
300%, SGDDAT

;RECEIVED STATUS
:CLEAR DONT CARES
:GET EXPECTED SKI STATUS

#CSK1,$GDDAT
538

:CLEAR DONT CARES
:BRANCH I1F 0 EXPECTED

BNE
ADD
MOVB
SUB
JSR

54$
#4, (SP)
#267,a(SP)
#2,(SP)
PC.a(SP)+

(IAE WAS NOT DETECTED)
;WAS SK1 DETECTED ??
SYES !
»
:MOVE SP TO USERS ERROR CALL
‘WRITE ERROR NUMBER
:MOVE SP TO ERROR RETURN
:REPORT ERROR AND RETURN

:G0 TO NEXT ERROR CHECK

SUB

53¢

INO!!
:EXPECTED STATUS
:RECEIVED STATUS
:MOVE SP TO USER'S ERROR
:ERROR 60 IF VV = 0

#10, (sP)

:REPORT ERROR IF SKI IS NOT SET
BIT
#SK1,$BDDAT

000010

:1VC ERROR??

528
$GDDAT
RMER21,$BDDAT
#4, (SP)
#60,3(SP)
#VV.RMDS|
51%
#61,3(SP)

NOP
52%:

#1VC,RMER?2]

BEQ
CLR
MOV
ADD
MOVB
BIT
BEQ
MOVB

010, (sP)

:MOVE SP TO NO ERROR

SEQ 0211

CZRMMAD RMO5/3/2 FCTNL TST 1

[T Yo Yo Yo Ho
JWILNEN

NONNNNNSN
BN
—
N

O—=O—=—=000
OO0 —=0OW
OMNIS VNN =N

Oomm::bww
o oo
oo o

[=leleololelelals]

040000

001142

000004
000054
000002

000000

000200

001140
001376
000004
000055
000002

S
O

032737
001403

020000

001140
001350
000004
000052
010000

112776
162716

000053
000002

162716

000010

004736
000240

013746

JSR

SUB

NOP

001376

N = = ONOO VNS
oSOV

N L N N N N N N N N
NOPONINY
= b b et s —

BIT

BEQ
CLR

SEQ 0212

;1S SKI SET 22
‘NO - SKI IS OK
‘MOVE

(SP)

TO ERROR

#54,3(SP)
#2,(SP)

*LOAD ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR

010, (sP)

*RESTORE (SP)

PC.a(SP)+

CHECK

#DVC,RMER2]

6%
$GDDAT

*REPORT SEEK ERROR

;WAS THERE DVC DURING SEEK??

INO!!
*EXPECTED STATUS

001142

MOV

RMER21,$BDDAT

-RECEIVED STATUS

000000

MOVB

#55,3(sSP)

;ERROR

PC.a(SP)+

*REPORT ERROR VIA USER

ADD

SUB

JSR

SUB

NOP

001350
001142

BEQ
CLR
MOV

000000

MOVB

001346

000000

7%:

:SEE

8$:

001346

020000

001350

001346
010000
001346
000004
000062
000002

#2,(SP)

#10, (SP)

455

:MOVE SP TO RETURN FOR ERROR
*RESTORE SP

;

#52,3(SP)

:LOAD ERROR NUMBER

BEQ
MOVB

7%
#53,3(SP)

INO!!
:YES = CHANGE ERROR NUMBER

SUB

#10, (sP)

*RESTORE (SP)

ADD

#4,

81T

#MOL ,RMDS

SUB
JSR

(SP)

#2,(SP)
PC.a(SP)+

:RECEIVED STATUS
*MOVE

(SP)

TO ERROR

*WAS MEDIUM ON LINE??

*MOVE SP TO RETURN FOR ERROR
*REPORT ''OPI1'' ERROR

IF "PIP'' = 0, AND "'ATA', "MOL'' AND "‘WV'' = 1

MOV

RMDSI,=(SP)

CMP

#ATA'MOL
'V, (SP)+

BIC

:REPORT ERROR IF

#C<ATA'PIP'MOL!VV>,
(SP)

9%
148

;ERROR IN RMDS
SRMDS 1S OK

MOL = O AND OPI

= 0

BIT

#MOL ,RMDS ]

;1S MOL RESET??

001140

BIT
BNE
MOV

#OP1,RMER1]
108
RMDSI,$GDDAT

‘WAS OP1 SET
*YES - DONT REPORT ERROR
:EXPECTED STATUS

001142

MOV

RMDSI,$BODAT

001140
000000

9$:

OPI

INO!!
‘EXPECTED STATUS

BNE
JMP

010000

(SP)

8$
$GDDAT
RMER11,$BODAT

NOP

001346
047677

#4,

;REPORT ANY '‘OPI'' ERROR AS OPl WITH MOL = 0., OR
*BECAUSE ON CYLINDER LATCH DIDN'T RESET
6%:
BIT
#OP1,RMER1]
:"'OP1"" ERROR??

053476
VYA

¥, (SP)

;REPORT ANY DEVICE

548:

110100

j=l=lelelelelelelele]

Neo Ho SV IV IV IV IV IV IV TV IV IV U W
e

032737
001427
005037
013737
062716
112776

= OVONOWVSMWN=—=OV~NOW S NWNN—=OOVONOWVEWN=O

e B
Lokl
el e Lo oot

ADD

MOVB
SUB

000010

-t OO0O0O0O00O00
O = O =N
OWOW
PONLPLNNO
N =N =N
NNNNNNONO~N
—a N = LN NN
NN
OO NNNSNO~N

'
S

053036

:
6
1
11-APR-80 13:04:53 PAGE 26-2

;REPORT ERROR IF SKI 1S SET
BIT
#SK1,$BDDAT
BEQ
54%

000010

VNS WN =00V

N NN N NN N NN N NN NN NV NN NI N PO N =

flddddddddd—'dddddddddflddd—.-fld—.-‘fldd—.-‘—‘dd-‘—‘-‘-‘-‘—‘—.—‘—‘—.—.—.—J—lda‘dd —

s s s s

VS NN = OO0~ W

SEEK STATUS CHECK SUBROUTINE

MACRO v03.01

BNE

BIS
ADD

MOVB
SUB

108

#MOL
, $GDDAT
¥4,

(SP)

#62,3(SP)
#2,(5P)

INO - MOL IS SET

;RECEIVED STATUS
:MOVE

SP TO RETURN FOR ERROR

CZRMMAQ RMO5/3/2 FCTINL TST 1

SEEK STATUS CHECK SUBROUTINE

172 053226

004736

};g 053234

000240

173 053230

176

177 053236

178
179
180
181
182
183
184
185
186
187

000010

032737

020000

001346

040000

001376

001346
020000
001346
000004
000056

001140
001142
001142

000002

032737
001024
013737
052737
013737
062716

100000

001346
001140
001140
001142

199 053372
%8? 053376

112776

001346
110600
001346
000004

162716
004736

000057

202 053400
582 053404

162716
000240

000010

053406
053414
053416

032737
001030
032737

000100

001346

010000

001376

001346
000100
001346
000004
000064
000002

001140
001140
001142

192
193
194
195
196
197

198 053364

208

053426
210 053426
211 053436
212 053442
213 053450
214 053454
215 053462
216 053466

001024
013737
052737
013737
062716
112776
162716
004736

218 053474
553 053476

000240.

217 053470

221
222
223
224
225
226

053476
053500
0535064
053510
053512

gsg 053516

162716

000240
062716
105776
001403
062716

000402

000002

#P1P,RMDSI

BEQ
BIT
BNE
MOV
BIC
MOV
ADD
MOVB
SUB
JSR

1%
#SK1,RMER2]
1%
RMDS1,$GODAT
#P1P,$BDODAT
RMDSI,$BODAT
#4,(SP)
#56,3(SP)
#2,(SP)
PC,a(SP)+

SUB

#10, (SP)

sREPORT AN ERROR

11$:

000000

sREPORT ERROR VIA USER

:RECEIVED STATUS
;MOVE (SP) TO ERROR
:LOAD ERROR NUMBER
JMOVE SP TO RETURN FOR ERROR
:REPORT "'PIP'" SET AFTER SEEK

;RESTORE (SP)

''ATA'" 1S NOT SET

SUB
JSR

#2,(5P)
PC,a(SP)+

SuB
NOP

#10, (SP)

BIT
BNE
BIT

BNE
MOV
BIS
MOV
ADD
MOvVB
SUB
JSR

000000

*NO!!
SWAS '"'SKI''SET??
*YES=DONT REPORT PIP
:EXPECTED STATUS

#ATA,RMDSI
:WAS “'ATA"' SET 22
138
SYES!!
RMDS1,$GODAT
:EXPECTED STATUS
#ATA!MOL 'DPR'DRY . $GDDAT
RMDSI,$BDDAT
JRECEIVED STATUS
#4,(SP)
:MOVE (SP) T0O ERROR

;REPORT ERROR

13$:

;1S "PIP" STILL SET??

BIT
BNE
MOV
BIS
MOV
ADD

MOVB

SUB

148

000004

BIT

NOP

000010

000004
000000

SEQ 0213

:REPORT AN ERROR IF ''PIP'' IS STIL SET AND SKI NOT SET

10$:

000000

053326
053334
053336
053344
253352
053360

191

#10, (5P

NOP

000010

000240

PC,a(SP)+

SUB

162716

}33 053324

H
1
11-APR=-80 13:04:53 PAGE 26-3
JSR

162716

053244
001430
053246
032737
053254
001024
053256 013737
053264 042737
053272 013737
053300 062716
053304
112776
053312
162716
053316 004736

188 053320

MACRO v03.01

NOP

#57,3(SP)

VOLUME VALID

#VV,RMDS |
14$
#1VC,RMER2]

14$
RMDSI,$GDDAT
#VV,$GDDAT
RMDS1,$BDDAT
¥, (SP)
#64 ,2(SP)
#2,(5P)
PC,o9(SP)+

:LOAD ERROR NUMBER

*MOVE SP TO RETURN FOR ERROR
:gEEOR}Eg}TENTION NOT SET DURING
L

1S RESET

JRESTORE
AND

IVC

(SP)

1S ZERO

;IS W = 0 22
INO!!
215 IVC ALSO 0 22

INO - IVC IS SET
:EXPECTED STATUS
JRECEIVED STATUS

;ERROR W&4
:MOVE SP TO RETURN FOR ERROR

#10, (sP)

;MODIFY THE RETURN ADDRESS IF AN ERROR WAS DETECTED
NOP
ADD
#4,(SP)
;MOVE (SP) TO ERROR CALL
ISTB
a(SP)
*WAS ERROR CALLED??
BEQ
15%
INO!
ADD
#6,(SP)
:MOVE TO ERROR RETURN

166

CZRMMAO RMOS5/3/2 FCTNL TST 1

SEEK STATUS CHECK SUBROUTINE

229 053520
520 053524

162716
000207

23 % 053526
23

000000

000004

MACRO v03.01

-3

11-APR=80 13:04:53 PAGE 26-4

SEQ 0214

15%:
16%:

SuB
RTS

#4, (SP)
PC

;MOVE (SP)
;RETURN

TO NO ERROR RETURN

3008:

.WwORD

;ERROR FLAGS

CZRMMAO RMO5/3/2 FCINL TST 1
CONTROLLER CLEAR SUBROUTINE

J
MACRO v03.01 11-APR-B0 13:04:53 PAGE 27

;

.SBTTL

sTHIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTERS,

)
7

sCALL:
:

JSR
BR

10
1"

sAND DRIVES,

g
9

3
:

12 053530

010046

053534

013746

000004

012737
012737
013700
012760
013701
111160
000412

053604
000300
001276
000040
001464
000010

000004
000006

062766
112776
162766

000004
000007
000002

000010
000010
000010

053630

012637

000006

053642

012600

053540

13 053544
14 053552
15 053560
16 053564
17 053572
18 053576
58 053602

21 053604

22 053606
23 053614
%g 8;%2%8
053634
053640

~NOo

(NTCLR:

053530

053532

L1,
¥

CONTROLLER CLEAR SUBROUTINE

053644

010146

013746

022626

012637
012601
000207

000006

000004

PC,CNTCLR |
77
/

RETURN HERE IF NO ERROR FOUND

Moy

RO,=(SP)

::PUSH RO ON STACK

MOV

ERRVEC,=(SF)

:sPUSH ERRVEC ON STACK

NOP
ERROR

MOV

MOV
MOV
MOV
MOV
MOV
MOVB
BR

000010

10%:

208

THEN SELECTS THE DRIVE.

CMP

Rki,=(SP)

ERRVEC+2,=-(SP)

(SP)+,(SP)+

;ADJUST STACK

MOV

(SP)+ ,ERRVEC+?2

RTS

::PUSH ERRVEC+2 ON STACK

:SETUP FOR BUS TIMEOUT

#4,10(SP)
#7,310(SP)
#2,10(SP)

MOV

::PUSH R1 ON STACK

#10% ,ERRVEC
#PR6 ,ERRVEC+2
$BASE RO
#CLR,RMCS2(R0O)
TSTQUE ,R1
(R1),RMCS2(RO)
20%

ADD
MOVB
SuUB
MOV
MOV

RETURN HERE IF ANY ERROR FOUND
SUB DEFINES ERROR NUMBER

(SP)+ ,ERRVEC
(SP)+,R1

(SP)+,R0O

;RO = UNIBUS ADDRESS
;CLEAR MASSBUS
sGET DEVICE UNDER TEST
;SELECT DEVICE

:MOVE SP TO USER'S ERROR CALL
;WRITE THE ERROR NUMBER
;ADJUST SP TO RETURN TO ERROR

::POP STACK INTO ERRVEC+?2

;:POP STACK INTO ERRVEC
::POP STACK INTO RI

::POP STACK INTO RO

SEQ 0215

CZRMMAOQ RMO5/3/2 FCTINL TST 1

STATUS CHECK SUBROUTINES

MACRO v03.01

K
_1
11-APR-80 13:04:53 PAGE 28

SEQ 0216

.SBTTL

STATUS CHECK SUBROUTINES

«SBTTL

CONTROLLER CLEAR STATUS CHECK SUBROUTINE

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

:THIS SUBROUTINE VERIFIES THAT THE SUBSYSTEM IS INITIALIZED BASED ON
THIS SUBROUTINE SHOULD ONLY BE
:STATUS STORED IN THE GET BUFFER.

sUSED FOLLOWING A CONTROLLER CLEAR OPERATION, I.E., WRITING A 1 IN BIT
:5 OF RMCS2, BECAUSE THE ERROR MESSAGES ARE BASED ON THAT CONDITION.
;STATUS PERTINENT TO THE DEVICE IS NOT CHECKED.

IN PARTICULAR,

;FOLLOWING STATUS BITS ARE NOT CHECKED:
:

ATA,ERR,PIP,MOL,WRL,LBT, PGM,VV,0OM,UNS,SKI
,DVC

: CALL
2(1)

JSR

;
H

BR
NOP

;

JSR

3
:

2
24
%

053646

27
28
%

053646
053652
053656

062716
105076
162716

000004
000000
000004

31
32

053662
053670

013737
042737

001334
100000

33 053676
34 0537064
35 053712
36 053714
37 053720
38 053726
39 053732

40 053734

277

ERROR

IF NO ERROR
TO REPORT AN ERROR

RETURN HERE

ERROR NUMBER DEFINED BY SuB
GO BACK TO SUB FOR MORE ERROR CHECKS

PC,a(SP)+

272

RETURN HERE
RETURN HERE

NO MORE

ERRORS

CLRSTS:

012737
023737
001413
062716
112776
162716
004736

004200
001140
000004
000126
000002

25 053740

162716

000240

000010

43 053742
4, 053746
45 053754
46 053756
47 053762
48 053770
49 053774

005037
013737
001413
062716
112776
162716
004736

001140
001340

162716
000240

000010

53 054006
54 054012
55 054014
56 054016
57 054022

013737
010146
005046
013701
111116

001344

50 053776
g; 054002

PC,CLRSTS

000004
000127
000002

001464

;CLEAR USER'S ERROR CALL
ADD
CLRB

001142
001142
001140
001142

#4, (SP)
a(SP)
SUB
#4, (SP)
;REPORT ERROR IF RMCS1 NOT

4$:

000000

#126,3(SP)
PC.a(SP)+

SUB

NOP
REPORT ERROR

CLR

MOV
BEQ

RMBA NOT RESET

$GDDAT

RMBA1,$BDDAT
7%

*BRANCH IF EQUAL
:MOVE SP TO USER'S ERROR CALL
‘WITE ERROR NUMBER IN CALL
*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER
:MOVE SP BACK TO NO ERROR

;VERIFY RMBA IS ZERO

#2,(5P)

agg

#0, (sP)

:MOVE SP BACK TO NO ERROR

¥4,

(SP)

#127.3(SP)

PC.a(SP)+

-REPORT ERROR IF RMCS2 NOT

7%:

:COMPARE EXPECTED, RECEIVED

SUB

MOVB
JSR

001142

#0, (SP)

:VERIFY RMCS1
:1GNORE SPECIAL CONDITION
:EXPECT DVA & RDY

+BRANCH 1f ZERO
;MOVE SP TO USER'S ERROR CALL
;WITE ERROR NUMBER IN CALL
:MOVE SP TO RETURN FOR ERROR

ADD

000000

(SP)

#2,(SP)

JSR

001142

INITIALIZED

MOVB

¥,

SP TO ERROR

sCLEAR ERROR NUMBER
:MOVE SP BACK TO NO ERROR

RMCS11,$BDDAT
#5C,$BODAT
#DVA'RDY,SGDDAT
$GDDAT, SBDDAT
5%

SUB

;MOVE

MOV
BIC
MOV
CMP
BEQ
ADD

MOV

MOV
CLR
MOV
MOVB

;REPORT ERROR VIA USER

INITIALIZED

RMCS21,$BDDAT

R1,-(SP)
-($P)
TSTQUE ,R1
(R1),(SP)

THE

;VERIFY RM(CS2
:;PUSH R1 ON STACK
;EXPECT IR & UNIT NUMBER

;R1

= ADDRESS OF

TEST QUE

CZRMMAO RM0S/3/2 FCTNL TST 1

MACRO V03.01

CONTROLLER CLEAR STATUS CHECK SUBROUTINE

054026

59 054030
60 054034
61 054036

052716

012637
012601
023737

000100
001140
001140

62 054044
63 054046

001413
262716

65 054060
66 054066

162716
004736

68 054072

000240

054074
054100
054106
056114
056116

005037
013737
042737
001413
062716

001140
001350
040000

76 054130
77 056134

162716
004736

000002

79 054142

000240

64 054052

67 054066
69
70
71
72
73
74

75 054122

78 054136

112776

162716

112776

000004

000130
000002

000004

000131

000010

80
81 054144
82 054152
83 054180
84 054166
85 054174
86 054176

013737
042737
012737
023737
001413
062716

001360
000046
000010
001140

88 054210
89 054214

162716
004736

91
92
93
9%
95
96

054222

000240

162716

000010

054226
054230
054236
054240

005037
013737
001413
062716

001140
001402

99 054256

004736

107 054264
102

000240

106 056274

042737

90 054216

97 054244
98 054252

100 054260

112776

112776
162716

000000

000004

000133

000002

000004

000135
000002

000000

001142
001142
001140
001142

000000

001142

000000

001374

001142

105 054302

012737

011777

001140

109 054326

112776

110 054332
111 054336

162716
004736

113

000240

11; 054340
114

054344

162716

000004

000136
000002

000010

:MOVE SP TO RETURN FOR ERROR
:REPORT ERROR VIA USER

001142

000000

#1%0,a(sP)

#10, (sP)

*BRANCH IF EQUAL
‘MOVE SP TO USER'S ERROR CALL

*WITE ERROR NUMBER IN CALL

:MOVE SP BACK TO NO ERROR

:REPORT ERROR IF RMER1 NOT RESET-I1GNORE UNS
9% :
CLR
$GDDAT
;VERIFY RMER1
MOV
RMER11,$BDDAT
BIC
#UNS , SBDDAT
: 1GNORE UNSAFE
BEQ
138
:BRANCH IF ZERO
ADD
#4, (SP)
:MOVE SP TO USER'S ERROR CALL

Move

#131,3(sp)

*WITE ERROR NUMBER IN CALL

SUB

#10, (SP)

:MOVE SP BACK TO NO ERROR

SUB
JSR

#2,(SP)
PC.a(SP)+

*MOVE SP TO RETURN FOR ERROR
:REPORT ERROR VIA USER

:REPORT ERROR IF RMMR1 NOT INITIALIZED-IGNORE WC,LS,LST
138:
MOV
RMMR11,$BDDAT
;VERIFY RMMR
BIC
#UC!LSILST, SBODAT
: 1GNORE WORD CLOCK, SCT, TRK
MOV
#MWD , SGDDAT
:EXPECT WRITE DATA BIT
CMP
$GODAT,$BDDAT
:COMPARE EXPECTED AND RECEIVED
BEQ
17%
:BRANCH IF 0
ADD
#4,(SP)
:MOVE SP TO USER'S ERROR CALL

move
SUB
JSR

#133.a(sp)

‘WITE ERROR NUMBER IN CALL

010, (sP)

:MOVE SP BACK TO NO ERROR

#2,(SP)
PC,a(SP)+

‘MOVE SP TO RETURN FOR ERROR
JREPORT ERROR VIA USER

NOP
:REPORT AN ERROR IF RMEC2 1S NOT RESET
178:
(LR
$GDDAT
;EXPECT ZEROS
MOV
RMEC21,$BDDAT
:VERIFY RMEC2 = 0
BEQ
19¢
ADD
#4, (SP)
;MOVE SP TO USER'S ERROR CALL

Move
SUB

#135,a(sP)
#2,($P)

:WITE ERROR NUMBER IN CALL
*MOVE SP TO RETURN FOR ERROR

SUB

10, (sP)

*MOVE SP BACK TO NO ERROR

JSR

0137237

001140

#2,(SP)
PC.a(SP)+

SUB

103 054266

023737
001413
062716

SUB
JSR

NOP

000010

106 054310
107 054316
108 054320

::POP STACK INTO R1
:COMPARE EXPECTED & RECEIVED

SUB

162716

140000

#IR, (SP)
(SP)+,$GDDAT
(SP)+ R1
$GDDAT,$BDDAT
9%
#4, (SP)

NOP

001142
001142

SEQ 0217

BIS
MOV
MOV
CMP
BEQ
ADD

move

000010

162716

87 056202

001142

11-APR=-80 13:04:53 PAGE 281

PC,a(SP)+

JREPORT ERROR VIA USER

NOP
:REPORT ERROR IF RMMR2 NOT INITIALIZED-IGNORE RQA,RQB

19%:

Mov

RMMR21,$BDDAT

MOV

#TSTi1777,$GDDAT

BIC

CMP
BEQ
ADD

move
SUB
JSR

SUB

NOP

:REPORT ERROR IF

#RQA'RQB, SBDDAT

;VERIFY RMMR2

:EXPECT TEST BIT ON

$GDDAT,$BODAT
21%
#4, (SP)

:MOVE SP TO USER'S ERROR CALL

#2,($P)
PC a(SP)+

*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

#1%6.a(sP)
00, (sp)

*WITE ERROR NUMBER IN CALL
*MOVE SP BACK TO NO ERROR

RMER2 NOT RESET-I1GNORE SKI1,DVC

[

CZRMMAO RMOS/3/2 FCTNL TST 1

MACRO V03.01 11-APR=80 13:04:53 PAGE 28-2

CONTROLLER CLEAR STATUS CHECK SUBROUTINE

115
116
117
118
119

056346
054352
054360
054366
054370

005037
013737
042737
001413
062716

121 0564402
122 054406

162716
004736

124 054414

000240

120 054374

123 054410

125

126 054416

127
128
129
130
131

001140
001376
040200
000004

112776

000174

162716

000010

013737

000002

001346

054426
054432
054440
054446
054450

042737
012737
023737
O 1313
062716

177177
000600

133 054462
134 054466

162716
004736

000002

136 054474
137 054476
138 054502
139 054506
140 054510

000240
062716
105776
001403
062716

132 054454

135 054470

141 854314
142 054516
143 054522
}2g 0545264

112776

162716

000402
162776

00024
000207

001140

000004

000134

001142
001142

21%:

000000

SUB
JSR

#2,(SP)
PC.a(SP)+

SUB

NOP

001142

001142
001140

215%:

001142

000000

:EXPECT ALL ZEROS
:VERIFY RMER?
; IGNORE DEVICE ERRORS
:BRANCH IF OTHER BITS 0
:MOVE SP TO USER'S ERROR CALL

#174.,3(SP)

:WITE ERROR NUMBER IN CALL

00, (sP)

:MOVE SP BACK TO NO ERROR

:MOVE SP TO RETURN FOR ERROR
:REPORT ERROR VIA USER

:REPORT ERROR IF RMDS NOT INITIALIZED

MOV

BIC
MOV
CMP
BEQ
ADD

22%:

23%:

248:

RMDSI,$BODAT

;TEST DRIVE STATUS REGISTER

$GDDAT,SBODAT
22%
#6, (SP)

: COMPARE EXPECTED & RECEIVED
:BRANCH IF EQUAL
:MOVE SP TO USER'S ERROR CALL

#*C<DRY!DPR>,$BDDAT
#DPR!DRY,$GDDAT ;EXPECTED DRIVE STATUS

MOVB

#134.3(sP)

SUB

#10, (sP)

SUB
JSR

000004

$GDDAT
RMER21,$BDDAT
#SK1'DVC,$BDDAT
2158
#4, (SP)

MOVB

000010
000004
000000

(LR
MOV
BIC
BEQ
ADD

NOP
ADD
TSTB
BEQ
ADD

BR
SuB
NOP
RTS

#2,(SP)
PC.a(SP)+

#4,(SP)
a(S$P)
238
#4,(SP)

24$
#4,(SP)

*WRITE ERROR NUMBER

:MOVE SP TO RETURN FOR ERROP
‘REPORT ERROR TO USER

:MOVE SP BACK TO NO ERROR

sMOVE SP TO ERROR CALL
:WwAS AN ERROE DETECTED??
INO!!
JYES = MOVE TO ERROR RETURN

:MOVE SP T0O NO ERROR RETURN

SEQ 0218

CZRMMAD RMO5/3/2 FCTNL TST 1
NN —

PACK ACKNOWLEDGE STATUS CHECK

sCALL:

(1)
3
:
:
:
:

NO VNN = O V00N

b e e e cd o e i e

NOWVS BN = OOV

PO NN NI NI NI NI N
NN

WN = OOV

SEQ 0219

PACK ACKNOWLEDGE STATUS CHECK

;THIS SUBROUTINE CHECKS THE RESULTS OF A PACK ACKNOWLEDGE
: COMMAND USING THE STATUS STORED IN THE GET BUFFER.
ERRORS ARE
;REPORTED TO THE USER VIA THE USER'S ERROR CALL.

054526

S
:

JSR

054542

032737

000100

001346

001346
000100
001346
000004
000155

001140

BIT
BNE
MOV

001142

MOV

056640
0564646
056654
054660
054666
054672

4«7 054700
4«8 054702
49
50

PC,a(SP)+

;CLEAR USER'S ERROR CALL

000004
000000
000004

054606
054612

77?

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEF INED BY SuB
GO BACK TO SUB FOR MORE ERROR CHECKS
RETURN HERE IF NO MORE ERRORS

ACKSTS:

062716
105076
162716

054550
054552
054560
054566
054574
054600

PC,ACKSTS

BR
NOP
ERROR
JSR
17?

054526
054532
054536

46 054674

001024
013737
052737
013737
062716
112776

162716
004736
16271¢
000240

032737
001024
013737

052737
013737
062716
112776
162716
004736

162716

000240

000002

ADD

#6,(SP)

CLRB
SuB

a(SP)
¥4, (SP)

;REPORT AN ERROR

081140

000000

;1S VOLUME VALID SET??
SYES!!
;EXPECTED STATUS

RMDS1,$BODAT

;RECEIVED STATUS

#155,3(sP)

:WRITE NUMBER IN ERROR CALL

#VV,S$GDDAT

ADD

#4,

MOVB
SUB

agg

000010

IF "W IS 0

sMOVE SP TO ERROR CALL
:CLEAR LOW ORDER BYTE
:MOVE SP BACK

#VV,RMDS 1
1%
RMDSI,$GDDAT

BIS

JSR

(SP)

:MOVE

SP TO ERROR CALL

#2,(5P)

*MOVE SP TO RETURN FOR ERROR

#10, (SP)

*MOVE SP BACK TO BRANCH

PC.a(SP)+

‘REPORT

THE ERROR

1%:

010000

001346

010000
001346
000004
000041
000002
:

;REPORT AN ERROR IF '‘MOL'' IS 0

001140

BIT
BNE
MOV

#MOL ,RMDS 1
2%
RMDS1,$GODAT

;1S MOL SET??
TYES!!
:EXPECTED STATUS

001142

MOV

RMDSI,$BODAT

;RECEIVED STATUS

#41,a(SP)

‘WRITE NUMBER OF ERROR IN CALL

001140

BIS
ADD

000000

MOVB
SUB

JSR

SUB

000010
2%:

001350

51 054702
52 054710

032737
001570

060007

55 054712
5¢ 054720
57 056722

032737
001424
013737

040000

001350

001142

11-APR-80 13:04:53 PAGE 29

.SBTTL

32 054614
23 054620
34 054622
S
.
36
37 054622
38 054630
39 054632

40
41
42
43
4,
45

MACRO v03.01

NOP

BIT
BEQ

#MOL
, $GDDAT
#6,

(SP)

#2,(5P)

PC.a(SP)+

#0, (sP)

:MOVE SP TO RETURN FOR ERROR
:REPORT TH ERROR

*MOVE SP TO BRANCH

SUNS'OPI'RMR'ILR'ILF
,RMER1]
7%

:REPORT AN ERROR IF

"UNS'' 1S SET

SUNS ,RMER1]

MOV

RMERT],$BDDAT

BEQ

:MOVE SP TO ERROR CALL

b3 )

:WAS UNS SET??

JNO!!

:RECEIVED STATUS

' CZRMMAQ RMOS/3/2 FCTNL TST 1

' PACK ACKNOWLEDGE STATUS CHECK

58 054730
59 054736
60 054744

013737
062737
062716

001350
040000
000004

62 054756
63 054762

162716
004736

000002

65 054770
gg 054772

000240

61 054750

64 054764

|
|
|
|

68
69
70
71
72
73
74

162716

001142
001140
001140

76 055036

162716

000002

|
|

79 055050
g? 055052

000240

82
83 055052

;

|
|

3%:

001350
001350
020000
000004

78 0550644

162716

000043

001350

85 055062
86 055070
87 055076

001350
001350
000004

001142
001140
001140

MOV
MOV
BIC

89 055110
90 055116

112776
162716

000044
000002

000000

MOVB
SUB

162716

000010

91 055122

004736

|
|

93 055130
32 055132

000240

;

98 055140

|
|

92 0551264

97 055133

99 055142

032737
001424

013737

BEQ

001350

PC.a(SP)+

NOP

BIT

112776

000045

000000

Move

107 055210

000240

110
111
112
113
114

032737
001424
013737
013737

106 055204

}83 055212

055212
055220
055222
055230

162716

000002

000010

000001

001350

001350
001350

001142
001140

RMER11,$BDDAT

BIC
ADD

#ILR,$GDDAT
#4, (SP)

SUB
JSR

#2,(SP)
PC.a(SP)+

SUB

6% :

:MOVE SP TO RETURN FOR ERROR
:REPORT

THE ERROR VIA USER

:MOVE SP TO NO ERROR RETURN

:WAS RMR SET??
*NO!!
:RECEIVED STATUS
:EXPECTED STATUS

: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

:WAS ILR SET??

;EXPECTED STATUS

103 055170

162716
004736

‘WRITE NUMBER OF ERROR IN CALL

RMER11,$GDDAT

MOV

106 055176
105 055202

ILR ERROR

#ILR,RMER1]

:MOVE SP TO ERROR CALL

INO!!

001140

#10, (SP)

;WAS OPI SET 72
INO!!
:RECEIVED STATUS
:EXPECTED STATUS

001350

000002
000004

#4&,a(SP)
#2,(SP)

*MOVE SP T0 RETURN FOR ERROR
*REPORT THE ERROR VIA USER

BEQ

013737

042737
062716

RMER11,$B0ODAT
RMER11,$GDDAT
#RMR, SGDDAT

JSR

;REPORT ANY

001142

#4, (SP)

100 055150

107 055156
102 055164

#10, (SP)

ADD
SUB

5%:
000002

#2,(SP)

;REPORT ANY RMR ERROR
BIT
#RMR,RMER1]

000004

:MOVE SP TO NO ERROR RETURN

PC.a(SP)+

032737
001424
013737
013737
042737

84 055060

;MOVE SP TO ERROR CALL

010, (sP)

#2,(SP)
PC A(SP)+

JSR

SUB

;EXPECTED STATUS

‘WRITE NUMBER OF ERROR IN CALL

#45,3(sP)

NOP

SEQ 0220

#4¢,3(SP)

MOVB
SUB

48:

88 055106 062716 000004

000000

NOP

RMER11,$GDDAT
#UNS
, SGDDAT
06, ($P)

:REPORT ANY OPI ERROR
BIT
#OP1,RMER1]
BEQ
48
MOV
RMER11,$BDDAT
MOV
RMER1]1,$GDDAT
BIC
#OP1,$GDDAT
ADD
#4, (SP)

000010

|
|

SUB
JSR

SUB

001350

004736

MOVB

000010

020000

112776

MOV
BIC
ADD

000000

032737
001424
013737
013737
042737
062716

77 055042

000042

001140
001140

054772
055000
055002
055010
055016
055024

75 055030

112776

MACRO v03.01 11-APR-80 13:04:53 PAGEB 25-1

NOP

:REPORT ANY
BIT
BEQ
MOV
MOV

#45,3(sP)
#10, (sP)

ILF ERROR
#ILF,RMER1]
7%
RMER11,$BDDAT
RMER11,$GDDAT

:RECEIVED STATUS

: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

:WAS ILF SET??
INO!!
:RECEIVED STATUS
:EXPECTED STATUS

——————————————

———————————————

CZRHHAO RMO5/3/2 FCTNL TST 1

' PACK ACKNOWLEDGE STATUS CHECK

115 055236
116 055244
117 055250

118 055256
119 055262

|
|

121 055270
}gg 055272

124

120 055264

125 055272
126 055276

|
|
‘

127 055302
128 055304

;

130 055312

|
|

129 055310

131

055316

}gg 055320

042737
062716
112776

162716
004736

162716

000240

062716
105776

000001
000004
000046

000002

000004
000000

162716

000004

000207

C
11-APR-80 13:04:53 PAGE . 9-2

BIC
ADD
MOVB
SUB
JSR

000000

SUB

7%:

000004

000240

001140

000010

001403
062716

000402

MACRO v03.01

NOP

#ILF,$GODAT
#4, (SP)
#46,3(SP)

#2,(SP)
PC a(SP)+

#10, (sP)

;AUGMENT RETURN ADDRESS IF

ADD
TSTB

BEQ
ADD

8s:

9% :

SUB

NOP

RTS

#4, (SP)
a($P)

8$
#4, (SP)

#4, (SP)

SEQ 0221

;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!!
:YES = MOVE TO ERROR RETURN

:MOVE SP TO NO ERROR RETURN

CZRMMAO RMOS/3/2 FCTNL TST 1

MACRO v03.01

RECALIBRATE STATUS CHECK SUBROUTINE

D 2

11-APR-80 13:04:53 PAGE 30
SEQ 0222

;

.SBTTL

3
g

:THIS SUBROUTINE CHECKS THE RESULTS OF A RECALIBRATE OPERATION
;USING THE STATUS STORED IN THE GET BUFFER.

(7)

:CALL:

8
9

S(1)
;

10
1

:
;

}2 055322

RCLSTS:

17
18 055322
19 055326
g? 055332

062716
105076
162716

000004
000000
000004

22
23
24 055336
%g 055344

032737
001553

022011

27
28

29 055346

032737

30 055354
31 055356
32 055364
33 055366
3, 055374
35 055402
36 055410

001430
032737
001024
013737
042737
013737
062716

38 055422
39 055426

162716
004736

41 055434
zg 055436

000240

37 055414

40 055430

45
46
47
48

055436
055444
055446
055456

112776

162716

032737
001424
013737
042737

001350

000010

001376

001350
000010
001350
000004

001140
001140
001142

000002

JSR
BR

PC,RCLSTS
273

JSR

PC,a(SP)+

NOP
ERROR

27?

:CLEAR USER'S ERROR NUMBER
ADD
#4, (SP)
CLRB
a(SP)
SUB
#4,(SP)

000010

000050

RECALIBRATE STATUS CHECK SUBROUTINE

001140
001140

:CLEAR USER'S ERROR CALL
sMOVE SP BACK TO BRANCH

I.E.,

BIT

#PAR,RMER11]

:WAS "'PAR"* SET??

MOVB

lSé,G(SP)

sWRITE ERROR NUMBER IN CALL

SUB

#10, (SP)

:MOVE SP BACK TO BRANCH

BEQ
1%
INO!!
BIT
#DPE ,RMER2]
:WAS "'DPETM' SET??
BNE
1%
JYES = NOT A REGISTER ERROR
MOV RMER11,$GDDAT
JEXPECTED STATUS
BIC
#PAR, $GDDAT
MOV
RMER11,$BDDAT
;RECEIVED STATUS
ADD
#4,(SP) :MOVE SP'TO USER'S ERROR CALL
SUB
JSR

1$:

001350
000001

GO BACK TO SUB FOR MORE ERROR CHECKS

RETURN HERE IF NO MORE ERRORS

sREPORT ANY MASSBUS CONTROL BUS PARITY ERROR,
:"'PAR'"" = 1 AND 'DPE" = 0

000010

001350

RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEFINED BY SUB

;SEE IF "'PAR'' OR "'ILF'' OR ''OPI' OR "‘IAE'" IS SET
BIT
#OPI'PA
' R'ILF
1AE,RMER1]
BEQ
L%
JNONE ARE SET = GO TO NEXT CHECK

000000

000001

;CALL SUBROUTINE
RETURN HERE IF NO ERROR

NOP

¥2,(SP)
PC,a(SP)+

sREPORT ANY "'ILF'' ERROR

BIT
BEQ
MOV
BIC

#1LF,RMERT]
2%
RMER1]1,$GDDAT
#ILF,SGDDAT

sMOVE SP TO RETURN FOR ERROR
;GO REPORT ERROR

;WAS “ILF'' SET??
JNO!!
:EXPECTED STATUS

49 055462

013737

001350

001142

MOV

RMERTI,$BDDAT

;RECEIVED STATUS

51 055476

112776

000071

000000

Move

#71,a(sP)

‘WRITE ERROR NUMBER IN CALL

50 055470

062716

52 055502
53 055506

162716
004736

55 055514
29 055516

000240

54 055510

162716

000004

000002

ADD

SUB
JSR

000010

SUB

2%:

NOP

#4 . (SP)

#2,(5P)
PC (SP)+

00, (sP)

:MOVE SP TO USER'S ERROR CALL

:MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

:MOVE SP BACK TO BRANCH

CZRMMAD RMO5/3/2 FCINL TST 1

MACRO v03.01

- RECALIBRATE STATUS CHECK SUBROUTINE

61 055516
62 055524

‘

68 055562

69 055570
055572
055600
055604
055606

002000

80 055624

013737

001350

055612
055614

s
:
,

042737
37

002000
001350

716

000004

8
87 055666
88 055672
gg 055674

7;8

000002

162716
000240

000010

032737
001517

050200

92 055674
93 055702

102 055722

103 055730
104 055736

105 055742
106 055750

107 055756
108 055760
109 055766

110 055772
111 0557764
112 056000
}}2 056002

BIC

MOV

000000

3%:

000070

RMERT1,$BDDAT

BIT

#MOL ,RMDS

BEQ
MOVB
SUB
JSR

NOP

(SP)

#72,3(SP)

38
#73,3(SP)
#2,(SP)

PC.ASP)+

#10, (sP)

JREPORT AN ERROR IF ''IAE'' IS SET

001140

BIT
BEQ

#1AE,RMER1]
48

BIC
MOV

#1AE,$GDDAT
RMERTI, SBDDAT

MOV

001140
001142

#4,

SUB

#2,(SP)

SUB
NOP

#10, (SP)

JSR

4%:

RMER11,$GDDAT

ADD

Move

000000

001376

#OP1,$GDDAT

#4,

SUB

001350

RMER11,$GDDAT

ADD

MOVB

000000

100 055712
107 055714

MOV

001346

99 055704

. OP1 DUE TO "'MOLTM' = 0
. OPI BE CAUSE ON CYLINDER LATCH DIDN'T RESET
BIT
#OP1,RMERT]
;WAS OP] SET??
BEQ
318
sNO!!

31%:

112776

%
l

SEQ 0223

000010

86 055652

001140
001140
001142

032737

;
j

001350
020000
001350
000004
000072
010000

78 055614

001403

001350

000073
000002

032737

020000

112776
162716
004736
162716
000240

81 055632

;
e

032737
001433

63 055526 013737
664 055534 “042737
65 055542 013737
66 055550 062716
67 0555564
112776
70
71
72
73
74
75
76
77

sREPORT ANY "'OP1'' ERROR AS

0
‘

11-APR=-80 13:04:53 PAGE 30-1

(SP)

#70,3(sP)

PC.a(SP)+

;EXPECTED STATUS

JRECEIVED STATUS
sMOVE SP TO USER'S ERROR CALL

sWRITE ERROR NUMBER IN USER'S CALL

JWAS "MOL'' = 07?

$YES!]

sNO = CHANGE ERROR NUMBER
sMOVE SP TO RETURN FOR ERROR

sREPORT ERROR VIA USER

sMOVE SP BACK TO BRANCH

;1S "'1AE'' SET??
;NO!!
;EXPECTED STATUS

;RECEIVED STATUS
:MOVE SP TO ERROR CALL
;WRITE ERROR NUMBER IN USER'S CALL
:MOVE SP TO RETURN FOR ERROR

sREPORT ERROR

sMOVE SP BACK TO NO ERROR RETURN

sSEE IF "'SKI'' OR "'IVC'' OR ‘'DVC'' IS SET
BIT
BEQ

#SK1'1vC'DVC,RMER2]
8%
:NONE OF

THE BITS ARE SET

:REPORT ANY "'IVC'' ERROR AS

032737

010000

042737

010000

001433
013737

013737
062716

112776
032737
001403
112776
162716
004736
162716
000240

001376

001376
000004

LAVE WITH w = 0
-ERRONEOUS 1VC ERROR
BIT
#1VC,RMER2]
BEQ
6%
MOV
RMER21,$GDDAT
BIC
#1VC,$GDDAT

001376
001140

001140

001142

MOV

RMER21,$BDDAT

ADD

#4, (SP)

000074
000100

000000
001346

MOVB
BIT

#74,3(SP)
#VV.RMDS

000075
000002

000000

MOVB

#75.3(SP)

BEQ

5%:

SUB

JSR

SUB

000010

6%:

NOP

#2,(SP)

PC.a(SP)+

#10, (5P

sWAS 1vC SET??
:NO!!
SEXPECTED STATUS

;RECEIVED STATUS
;MOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER IN CALL
sWAS vv = 0?72
sVESLS
:NO - CHANGE ERROR NUMBER
+MOVE SP TO RETURN FOR ERROR

;REPORT ERROR VIA USER

:MOVE SP BACK TO BRANCH

~ CZRMMAQ RMO5/3/2 FCTINL TST 1

MACRO v03.01 11-APR=-80 13:04:53 PAGEf 3%-2

&S =N
N = NN
W
OO NNNSN

NNNNNNNNNESN

O—=0O0—=—=000000
OO0
=0 =5 —0OW
OMNIFNIMNININNIWN
— N

[=lelelelelelelelelelel-]

040000

001376

001376
040000
001376
000004
000076
000002

001140
001140
001142
000000

000010

056106
056114
056120
056126
056132
056134
056140
056142

032737
001424
013737
062737
013737
062716
112776
162716

004736

000200

001376

001376
000200
001376
000004
000077
000002

001140
001140
001142

162716
000240

000010

013746
042716
022726
001002
000137

001346
047676

056174

056202

= OOVBNOWVNSWN=OVONOWVNS

. ol
—h
il —h —
—

056252
056254

056254

056262
056264

& === NN
OO NNN

i
D —) ——d —h —h —ld
— —ld —d -l
) —) -

056164
056172

—h —h —h — —

~N~wooocorOr
O OO OO VYW

056142
056146
056152
056156
056160
056164

;REPORT ANY ''SKI1'' ERROR
#SK1,RMER2]
BITY
BEQ
7%
MOV
RMER21,$GDDAT
#SK1,$GDDAT
BIC
MOV
RMERS],$BODAT
ADD
¥4, (SP)
Move
#76,3(SP)
#2,(SP)
SUB
JSR
PC.a(SP)+
SuB
#10, (sP)
NOP
7%:
sREPORT ANY "DvC'"" ERROR

BIT
BEQ

000000

8%:

JSEE IF

) el el el el

D i

) il

D e

e e

—_—, e

o D

WA
SN S5 35 85 05 05 85 55 05 5
N N N NN N N N N N U N RO RO RO RO RO NI D = b s s pa—Y
W —=O VN VNS WN—=O VN
VS NN = OV
~NO NS NN = OO0~ wn

RECALIBRATE STATUS CHECK SUBROUTINE

110100

056574

85%:

010000

001346

020000

001350

001346
010000
001346
000004
000100
000002

001140
001140
001142

BIT

000010
9%:

001346

010000

001376

MOv

BIC
CMP
BNE
JMP

8%
RMER21,$GDDAT
#DVC,$GDDAT

RMERZ1,$BDDAT
#4,

(SP)

#77,3(5P)

:WAS SKI

SET??

JNO!!
:EXPECTED STATUS

;RECEIVED STATUS
:MOVE

SP TO USER'S ERROR CALL

‘WRITE ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR
‘REPORT ERROR VIA USER

‘MOVE SP TO BRANCH
L)

:WAS "DVC'' SET??

INO!
:EXPECTED STATUS

;RECEIVED STATUS

:MOVE SP TO USER'S ERROR CALL

:WRITE ERROR NUMBER

#2,(SP)

:MOVE SP TO RETURN FOR ERROR

#10, (SP)

*MOVE

PC.a(SP)+

:REPORT ERROR VIA USER

SP TO USER'S BRANCH

RMDS1,=(SP)
;:PUT RMDS ON STACK
#*C<PIP!MOL'!VV!OM!ATA>,
(SP)
FATAIMOL'!VV, (SP)+

85%
13%

;REPORT AN ERROR IF MOL = O AND OP] = 0, I.E., MEDIUM WENT OFF
;LINE AFTER RECALIBRATE WAS INITIATED

000000

000100

MOV
BIC
MOv
ADD
MOvB
SuB
JSR
SUB
NOP

#DVC,RMER2]

SEQ 0224

BNE
BIT
BNE
MOV
BIS
MOV
ADD
Move
SuB
JSR
SuB
NOP

sQOL.RHDSI

:gé?'HOL DROP??

#OP1,RMER1]
*WAS OP1 ERROR REPORTED??
9%
*YES = DON'T REPORT MOL = 0
RMDS1,$GDDAT
:EXPECTED STATUS
#MOL
, SGDDAT
RMDSI,$BODAT
;RECEIVED STATUS
#4,(SP) :MOVE SP'TO USER'S ERROR CALL

#100,3(sP)

:WRITE ERROR NUMBER

#10, (SP)

:MOVE SP BACK TO USER'S BRANCH

#2,(5P)
PC.a(SP)+

*MOVE SP TO RETURN FOR ERROR
:REPORT ERROR VIA USER

JREPORT AN ERROR IF "'vv'' = 0 AND "'IVC' = 0
BIT
BNE

BIT

#VV ,RMDSI
10%
#IVC,RMER?]

:DI1D "‘wv'' DROP??
sNO!!
;WAS THERE A Iv(C ERROR??

CZRMMAQ RMO5/3/2 FCTINL TST 1

MACRO v03.01

RECALIBRATE STATUS CHECK SUBROUTINE

172
173
174
175
176

056272
056274
056302
056310
056316

001024
013737
013737
052737
062716

178 056330
179 056334

162716
004736

181 056342
}gg 056344

000240

177 056322

112776

001346
001346
000100
000004

000101

000002

SEQ 0225

BNE
MOV
MOV
BIS
ADD

001140
001142
001140

000000

MOVB
SUB
JSR

180 056336 162716 000010

184
185 056344
186 056352
187 056354

032737
001024
013737

189
190
191
192
193
194
}gg

013737
062716
112776
162716
004736
162716
000240

188 056362

056370
056376
056402
056410
056414
056416
056422

052737

11-APR-80 13:04:53 PAGE 30-3

SUB

108:

NOP

10$
RMDSI,$GDDAT
RMDS].$BDDAT
#VV,SGDDAT
¥, (SP)

:YES = DONT REPORT VvV = 0
:EXPECTED STATUS
:RECEIVED STATUS

2 ($P)
A(SP)+

*MOVE SP TO RETURN FOR ERROR

a161,a<

a16,<sp

:MOVE SP TO USER'S ERROR CALL

:WRITE ERROR NUMBER IN CALL

:MOVE SP BACK TO USER'S BRANCH

100000

001346

001140

;REPORT AN ERROR IF ATA IS NOT SET
BIT
#ATA,RMDSI
UAS ATA SET DURING RECALIBRATE??
BNE
1%
YES!
MOV
RMDS1,$GDDAT
EXPECTED STATUS

001346
000004
000102
000002

001142

100000

001140

000000

000010

BIS

MOV
ADD
MOVB
SUB
JSR
SUB
NOP

#ATA,$GDDAT

RMDSI,$BDDAT
lk.(SP)
#102,3(SP)
#2,(SP)
PC,a(SP)+
#10,(SP)

;RECEIVED STATUS
sMOVE SP TO USER'S EPROR CALL
JWRITE ERROR NUMBER IN CALL
.
sMOVE SP TO USER'S BRANCH

}gg 056424

11%:

199
200
201 056424
202 056432

sREPORT AN ERROR IF "'OM'' IS NOT ZERO BECAUSE RECALIBRATE SHOULD
JALWAYS CLEAR OFFSET MODE
BIT
#OM,RMDSI
;WAS "'OM'' RESET??
BEQ
128
SYES!!

203 056434
204 056442
205 056450
206 056456

032737
001424
013737
042737
013737
062716

208 056470
209 056474

162716
004736

211 056502

000240

207 056462
210 056476

g}g 056504

112776
162716

000001

001346

001346
000001
001346
000004

001140
001140
001142

000103
000002

000000

MOV
BIC
MOV
ADD

RMDSI,$GDDAT
#OM,SGDDAT
RMDSI,$BDDAT
[ [ (SP)

;RECEIVED STATUS
JMOVE SP TO USER'S ERROR CALL

SUB
JSR

#2,(SP)
PC,a(SP)+

*MOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER

MOove

000010

SUB

12%:

NOP

214
215
216 056504
217 056512

032737
001430

219 056522
220 056524

001024
013737

001346

001140

BNE
MOV

222 056540

013737

001346

001142

MOV

000104

000000

020000

001346

218 056514 032737 040000 001376
221 056532
223 056546

062737

020000

062716

000004

225 056560
226 056564

162716
004736

000002

228 056572

000240

224 056552

227 056566

112776
162716

000010

001140

#103.3(sP)
l16 (SP)

:EXPECTED STATUS

‘WRITE ERROR NUMBER

sMOVE SP TO USER'S BRANCH

;REPORT AN ERROR IF "PIP"' IS STIL ON, I1.E., DRIVE NOT ON
SCYLINDER
BIT
#P1P,RMDSI
;1S DRIVE OFF CYLINDER??
BEQ
138
NO!!

BIT

#SK1,RMER2]

BIC

#P1P,$GDDAT

ADD

Mmove
SUB
JSR

SUB

NOP

138
RMDSI,$GDDAT

‘WAS SK1'* DETECTED?? .

:YES=DONT REPORT
:EXPECTED STATUS

'PIP

RMDS], $BODAT

;RECEIVED STATUS
#4,(SP) :MOVE SP'TO USER'S ERROR CALL

#104.3(sP)

#2,(5P)
PC a(SP)+

l\é (SP)

:WRITE ERROR NUMBER

*MOVE SP TO RETURN FOR ERROR

JMOVE SP BACK TO USER'S BRANCH

( ZRMMAO RM05/3/2 FCINL TST 1
MACRO v03.01
RECALIBRATE STATUS CHECK SUBROUTINE
ggg 056574

231
232 056574

138:

%gz 056602

032737
001514

040006

0601350

235
236 056604
237 056612
238 056614
239 056622

032737
001424
013737
042737

000002

001350

001350
000002

001140
001140

241 056636

062716

000004

240 056630

242 056642

013737

001350

112776 000105

2643 056650
244 056654

162716
004736

246 056662
gzg 056664

000240

245 056656

000002

001142

001350

001350
000004
001350
000004

001140
001140
001142

257 056730
258 056734

162716
004736

000002

260 056742
gg; 056744

000240

259 056736

263

264 056744

265 056752
266 056754

267 056762
268 056764
269 056772
270 057000
271 057006

272 057012

273 057020
274 057024

001430
032737

001024
013737
042737
013737
062716

000000

279

001350

000200

001376

001350
040000
001350

001140
001140
001142

000004
000000

285 057054

162716

000004

284 057052 000402

:MOVE SP TO USER'S BRANCH

#2,(SP)
PC,a(SP)+

:MOVE SP TO RETURN FOR ERROR

NOP

0166.8(SP)

:WRITE ERROR NUMBER IN USER'S CALL

#10, (sP)

*MOVE SP T0 USER'S BRANCH

£2,(5P)
PC,a(SP)+

‘MOVE SP TO RETURN FOR ERROR
:REPORT ERROR VIA USER

:REPORT AN ERROR IF "'UNS'' IS SET AND ''DVC'" IS O

BIT

#UNS ,RMER11]

:WAS UNSAFE ON??

BNE
MOV
BIC
MOV
ADD

168
RMER11,$GDDAT
, SGDDAT
#UNS
RMER11,$BDDAT

*YES - DON'T REPORT UNSAFE
;EXPECTED STATUS

BEQ
BIT

move
SUB
JSR

SUB

168:

062716
105776
001403
062716

#10, (SP)

NOP

SUB
JSR

000002

280 057034
281 057040
282 057044
283 057046

:WRITE ERROR NUMBER IN CALL

SUB

040000

000240

#105,a(sP)

MOVB

275 057026 162716 000010

276 057032
5;; 057034

move

#4,(SP) ;MOVE SP TO USER'S ERROR CALL

:REPORT AN ERROR IF ''RMR'' IS SET
BIT
#RMR,RMER1]
:WAS RMR SET??
BEQ
158
INO!!
MOV
RMER11,$GDDAT
JEXPECTED STATUS
BIC
#RMR, SGDDAT
MOV
RMERT1,$BDDAT
;RECEIVED STATUS
ADD
#4,(SP)
:MOVE SP TO USER'S ERROR CALL

112776 000107 000000

162716
004736

;RECEIVED STATUS

SuB
JSR

158

000004

RMERT1,$BDDAT

ADD

162716 000010

032737

MOV

SUB

000006

16$

;REPORT AN ERROR IF "'ILR' IS SET
BIT
#ILR,RMER1]
sWAS ILR SET DURING RECALIBRATE??
BEQ
148
INO!!
MOV
RMER11,8GDDAT
:EXPECTED STATUS
BIC
#1LR,SGDDAT

148

112776 000106

BEQ

162716 000010

032737
001424
013737
042737
013737
062716

‘

:SEE IF "ILR" OR ''RMR'' OR "'UNS'
IS SET
BIT
#ILR'RMR'UNS,RMER1]

000000

249
250 056664
251 056672
252 056674
253 056702
254 056710
255 056716

256 056722

H 2
11-APR=80 13:04:53 PAGE 30-4

NOP

16$
#DVC,RMER2]

#4,(SP)

#107.a(sP)

#2,(SP)
PC,a(SP)+

#10, (SP)

INO!!
*WAS THERE A DEVICE CHECK??

;RECEIVED STATUS

:MOVE SP TO USER'S ERROR CALL

‘WRITE ERROR NUMBER

:MOVE SP TO RETURN FOR ERROR
:REPORT ERROR VIA USER

*MOVE SP BACK TO USER'S BRANCH

:AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED

000004
17%:

ADD
1S1B
BEQ
ADD

#4,(SP)
a(SP)
17%
94, (SP)

SUB

#4,(SP) ;NO ERROR - RETURN SP TO BRANCH

18%

;MOVE SP TO USER'S ERROR CALL
:WAS AN ERRCR REPORTED??
INO!!
SYES = AUGMENT SP RETURN

SEQ 0226

’

CZRMMAO RMO5/3/2 FCINL TST 1
MACRO v03.01
RECALIBRATE STATUS CHECK SUBROUTINE
286 057060
287 057062
288

000240
000207

18%:

11-APR=80 13:04:53 PAGE 30-5
NOP
RTS

;STATUS CECK IS COMPLETE

SEQ 0227

CZRMMAQO RMO5/3/2 FCINL TST 1

MACRO v03.01

DRIVE CLEAR STATUS CHECK SUBROUTINE

.SBTTL

2
3
3

3
7

:
9 057064
000004
000000
000004

16 057100
17 057106
18 057114
19 057122
20 057130
21 057132
22 057136
23 057144
24 057150
25 057152
26 057156

013737
042737
012737
023737
001443
062716
112776
162716
004736
162716
000240

001334
173700
004010
001140

001142
001142
001140
001142

000004
000141
000002

000000

28 057160
29 057166
30 057174
31 057202
32 057210
33 057212
3, 057216
35 057226
36 057230
37 057232
38 057236

013737
042737
012737
023737
001413
062716
112776
162716
004736
162716
000240

001346
021101
010600
001140

001142
001142
001140
001142

000004
000142
000002

000000

40 057240
41 057244
42 057252
43 057254
4, 057260
45 057266

005037
013737
001413
062716
112776
162716

057272

50 057302
51 057310
52 057312
53 057314
54 057320
55 057324
56 057330
57 057332

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR

ERROR NUMBER DEFINED BY SuB
GO BACK TO SUB FOR MORE ERROR CHECKS

PC,a(SP)+

RETURN HERE IF NO MORE ERRORS

;CLEAR USER'S ERROR CALL

062716
105076
162716

47 057274

SEQ 0228

D RVSTS:

12 057064
13 057070
14 057074

DRIVE CLEAR STATUS CHECK SUBROUTINE
BR
NOP
ERROR
JSR
777

11-APR-80 13:04:53 PAGE 31

004736
162716

013737
010146
010246
013701
116102
042702
005102
040237

REPORT

001464
000001
177400
001142

ADD
MOVB

#4, (SP)
#141,3(SP)

:MOVE SP TO ERROR CALL
‘WRITE NUMBER OF ERROR IN CALL
‘MOVE SP TO RETURN FOR ERROR
‘REPORT THE ERROR VIA USER
‘MOVE SP TO NO ERROR RETURN

ERROR IF RMCS1 NOT INITIALIZED
:CHECK RMCS1
MOV
RMCS11,$BDDAT
;CLEAR DONT CARES
BIC
#*C<DVA'!'FNCMSK>, $BDDAT
MOV
#DVA'DRVCLR, SGDDAT
SEXPECT DVA
$GDDAT, $BDDAT
CMP
: COMPARE EXPECTED & RECEIVED
6%
:BRANCH IF EQUAL
BEQ

SUB

#2,(SP)

SUB

#10, (SP)

PC.A(SP)+

IF RMDS NOT INITIALIZED

BIC

#142,3(SP)
#2,(SP)
PC.a(SP)+

;REPORT THE ERROR VIA USER

010, (sP)

;MOVE SP TO NO ERROR RETURN
INITI ALIZED

MOV

RMER11,$BDDAT

ADD

¥4, (SP)

BEQ
MOVB
SUB
JSR
NOP

REPORT ERROR IF

sMOVE SP TO ERROR CALL
;WRITE NUMBER OF ERROR IN CALL
;MOVE SP TO RETURN FOR ERROR

#4, (SP)

REPORT ERROR IF RMER1 NOT
$GDDAT
$:
CLR

SUB

001142

;CLEAR DONT CARES

MOVB
SUB
JSR
NOP

000000

; CHECK RMDS

#PGM'OM'VV'PIP,SBDDAT

#MOL ' DPR'DRY,$GDDAT
;EXPECT DRY & DPR
$GDDAT, $BDDAT
;COMPARE EXPECTED & RECEIVED
6%
sBRANCH IF EQUAL

SUB

001142

RMDSI,$BODAT

MOV
CMP
BEQ
ADD

000010

001352

;MOVE SP TO ERROR CALL
sCLEAR ERROR CALL
;MOVE SP TO USER'S BRANCH

NOP
REPORT ERROR
$:
MOV

000010

000004
000143
000002

¥4, (SP)
a(SP)
#4, (SP)

JSR

000010

001140
001350

ADD
CLRB
SUB

MOV
MOV
MOV
MOV

MOVB
BIC
COM
BIC

#143,3(SP)
#2,(5P)
PC.a(SP)+

00, (sP)

JEXPECT 0'S
;CHECK RMER1
:BRANCH IF EQUAL
;MOVE SP TO ERROR CALL
;WRITE NUMBER OF ERROR N CALL
:MOVE SP 10 RETURN FOR ERROR
;REPORT THE ERROR VIA USER

;MOVE SP TO NC ERROR RETURN

ATA NOT INITIALIZED
;CHECK ATTENTION BIT

RMAS1,$BDDAT
R1,=(SP)
R2.=(SP)
TSTQUE,R1

1(R1),R2
,R2
#*CATNMSK
R2
R2,$BDDAT

::PUSH R1 ON STACK

::PUSH R2 ON STACK

:
:
-

CZRMMAQ RMO5/3/2 FCINL TST 1

MACRO v03.01 11-APR-80 13:04:53 PAGE 3%-1

DRIVE CLEAR STATUS CHECK SUBROUTINE

58 057336
§9 057340
%0 057342
61 057346
62 057350
63 057354
64 057362
65 057366

012602
012601
005737
001413
062716
112776
162716
004736

67 057374
68

000240

66 057370

69 057376
70
71
72
73
74
75
76
77

162716

013737

057406
0576412
057420
057426
057430
057434
057442
057446

062737
012737
023737
001413
062716
112776
162716
004736

79 057454
80
81 057456
82 057464

000240

78 057450

001142
000004
000144
000002

000000
.

000010

001360

SUB

001142

000046
000010
001140

001142
001140
001142

000004
000145
000002

000000

162716

000010

013737
042737

001374
140000

001142
001142

84 057500
85 057506
86 057510
87 057514
88 057522
89 057526

023737
001413
062716
112776
162716
004736

001140

001142

000004
000146
000002

000000

91 057534
92 057536
93
9% 057542
95 057550
96 057552

000240
005037
013737
001413
062716

001402

98 057564

162716

000002

83 057472

90 057530

97 057556

012737

162716

112776

99 057570

004736

000240

100 057572

011777

001140

000010
001140

000004

000150

001142

000000

10? 057576
102
103 057600
106 057606
105 057610
106 057614
107 057622
108 057626

162716

000010

013737
001413
062716
112776
162716
004736

001376

001142

000004
000147
000002

000000

110 057634

000240

109 057630

}}; 057636
113 057636
114

162716

MOV
MOV
TST
BEQ
ADD
MOVB
SUB
JSR

000010

(SP)+,R2
(SP)+ .R1
$BODAT
9%
#, (SP)
#144,3(SP)
#2,($P)
PC.a(SP)+

SEQ 0229

::POP STACK INTO R2
:*POP STACK INTO R
:1S ATTENTION CLEARED??
*BRANCH IF ATTENTION CLEARED
:MOVE SP TO ERROR CALL
:WRITE NUMDER OF ERROR IN CALL
*MOVE SP T0O RETURN FOR ERROR
*REPORT THE ERROR VIA USER

#10, (sP)

:MOVE SP TO NO ERROR RETURN

RMMR11,$BDDAT

;CHECK RMMR

SUB

#10, (SP)

*MOVE SP TO NO ERROR RETURN

MOV

#TSTi1777,$GDDAT

NOP
:REPORT ERROR IF RMMR1 NOT INITIALIZED

9S:

MOV

BIC
MOV
CMP
BEQ
ADD
MOVB
SUB
JSR

MWC!LS'LST,SBODAT
;CLEAR DONT CARES
#MWD , SGDDAT
;EXPECT WRITE DATA ON
$GDDAT,$BDDAT : COMPARE EXPECTED AND RECEIVED
1%
:BRANCH IF ZERO
#4, (SP)
*MOVE SP TO ERROR CALL
#145,9(5P)
JWRITE NUMBER OF ERROR IN CALL
#2,($P)
:MOVE SP TO RETURN FOR ERROR
PC.a(SP)+
‘REPORT THE ERROR VIA USER

NOP
sREPORT ERROR IF RMMR2 NOT INITIALIZED
11$:
Mov
RMMR2I,$BDDAT
;CHECK RMMR2
BIC
#RQA'RQB,$BDDAT ;CLEAR REQA, REQB

CMP
BEQ
ADD
MOVB
SUB
JSR

$GDDAT,$SBODAT
158
#4, (SP)
#146,3(SP)
#2,(SP)
PC,a(SP)+

SUB

#10, (SP)

MOVB

#150,3(SP)

JSR

PC.a(SP)+

;EXPECT TEST BIT ON

; COMPARE EXPECTED & RECEIVED
*BRANCH IF EQUAL
‘MOVE SP TO ERROR CALL
‘WRITE NUMBER OF ERROR IN CALL
sMOVE SP TO RETURN FOR ERROR
sREPORT THE ERROR VIA USER

:MOVE SP TO NO ERROR RETURN

NOP
158:
(LR
$GODAT
:EXPECT ZEROS
JREPORT ERROR IF RMEC2 NOT RESET
MOV
RMEC21,$BDDAT
;CHECK RMEC2
BEQ
178
*BRANCH IF 0
ADD
#4, (SP)
:MOVE SP TO ERROR CALL

SUB

#2.,(SP)

SUB

00, (sP)

SUB

llé.(SP)

‘WRITE NUMBER OF ERROR IN CALL

*MOVE SP TO RETURN FOR ERROR
:REPORT THE ERROR VIA USER

:MOVE SP TO NO ERROR RETURN

NOP
:REPORT ERROR IF RMER2 NOT RESET
17%:
MOV
RMER21,$BDDAT
;CHECK RMER2
BEQ
18%
:BRANCH IF NO ERROR
ADD
#4, (SP)
‘MOVE SP TO ERROR CALL
MOVB
#147.3(SP)
‘WRITE NUMBER OF ERROR IN CALL
SUB
#2,(SP)
:MOVE SP TO RETURN FOR ERROR
JSR
PC.a(SP)+
‘REPORT THE ERROR VIA USER

18%:
19%:

NOP

JMOVE SP TO NO ERROR RETURN

| CZRMMAO RMOS/3/2 FCTNL TST 1

MACRO v03.01
DRIVE CLEAR STATUS CHECK SUBROUTINE

000004
000000

A($P)
21%

000004
000004

SEQ 0230

;AUGMENT RETURN ADDRESS
¥4, (SP)
¥4,
Ll
o4

062716
105776
001403
062716
000402
162716
000240
000207

roro

115
116 057636
117 057642
118 057646
119 057650
120 057654
121 057656
122 057662
}%2 057664

11-APR-80 13:04:53 PAGE 31-2

23§

ANY ERROR WAS FOUND
:MOVE SP TO ERROR CALL

;WAS AN ERROR DETECTED??

iNO!!

(SP)

#4,(SP)

;YES = MOVE

;MOVE

SP BACK

SP TO ERROR RETURN

TO NO ERROR RETURN

:RETURN TO USER

‘

CZRMMAO RM0S5/3/2 FCTNL TST 1

SEARCH STATUS CHECK SUBROUTINE

MACRO v03.01 11-APR=80 13:04:53 PAGE 33

.SBTTL

2
3

SEQ 0231

SEARCH STATUS CHECK SUBROUTINE

;THIS SUBROUTINE VERIFIES THE RESULTS OF

SEARCH OPERATIONS USING

gL?TgSFEEgRED IN THE GET BUFFER AND TEST CONDITIONS STORED IN THE

6
7

:THE SUBROUTINE RETURNS TO THE CALLING ROUTINE IF AN ERROR 1S
:DETECTED AFTER HAVING LOADED THE APPROPRIATE ERROR NUMBER IN
:THE USER'S ''ERROR'' TRAP.

}}

;THE FOLLOWING CONDITIONS ARE CHECKED:

ANY ERROR WHICH OCCURRED WHILE READING OR WRITING REMOTE

.IAE' STATUS 1S CHECKED IN ACCORDANCE WITH THE VALUE DETERMINED

"'OPI'* DUE TO ON CYLINDER LATCH.

JOPI'', IF SET, 1S REPORTED AS 1) "'OPI'* DUE TO MOL = 0, OR 2)

UIVE', IF SET, 1S REPORTED AS 1) “IVC'* ERROR WITH VOLUME

."'SKI'* 1S REPORTED IF SET

."DVC" 1S REPORTED IF SET

:0R "'w' =0

32
33
34
35
36
37
gg

:CALL:
(1)
:(2)
:(3)
;(6)
:(5)
:(6)

z? 057666

SCHSTS:

‘REGISTERS 1S REPORTED,

29 057702

48
49

S0 057706
§1 057714
52 057716
22 057724

55
56 057726
57 057734

“BY THE PROGRAM, WHICH 1S BASED ON FORMAT AND ADDRESS.

42
43 057666
&, 057672
45 057676

1.E., "MCPETM = 1 OR
*

:VALID ZERO, OR 2) ERRONEOUS "'IVCTM ERROR WITH VOLUME VALID SET.

.AN ERROR IS REPORTED IF "MOL'' = 0, OR "PIP'" = 1, OR "ATA" = 0,

062716
105076
162716

005037
032737

JSR
BR
NOP
ERROR
JSR
2?

PC,SCHSTS
n

PC,a(SP)+
.

JCLEAR USER'S ERROR CALL
ADD
#4,(SP)
CLRB
B(SP)
SuUB
#4,(SP)

000004
000000
000004

061230

CLR

001431
032737
001025

000010

001350

000010

001376

013737
042737

001350
000010

001140
001140

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT ERROR
SUBROUTINE WILL LOAD ERROR #
GO BACK FOR MORE CHECKS
RETURN AFTER ALL ERRORS REPORTED

2008

JMOVE SP TO USER'S ERROR CALL
;CLEAR ERROR NUMBER
JMOVE SP BACK TO NO ERROR BR

SCLEAR STATUS FLAGS

;TEST FOR MASSBUS CONTROL BUS PARITV ERROR WHEN WRITING REMOTE
*REGISTERS, 1.E., 'PAR' = 1 AND 'DPE' = 0.

Blf

BEQ
BIT
BNE

#PAR,RMER1]
108
#DPE ,RMER2]
108

:WAS PARITY ERROR DETECTED??
INO!!
.UAS 1T CONTROL BUS ERROR??
:PROBABLY NOT!!

JREPORT CONTROL BUS PARITY ERROR VIA USER'S ERROR CALL
MOV
RMER11,$GDDAT
;EXPECTED STATUS
BIC
#PAR,$GDDAT

' CZRMMAO RMO5/3/2 FCTNL TST 1

~ SEARCH STATUS CHECK SUBROUTINE

S8 057742
§9 057750

013737
062716

001350
000004

61 057762
6% 057766

162716
004736

000002

64 057774
65 057776
g? 060000

000240
000430

60 057754

057770

68
69
70 050000

112776

000050

162716

MACRO v03.01 11-APR-B0 13:04:53 PAGEN 3%-1
001142

000000

108:

001334

764 060010

013737

001334

001140

76 060026
77 060032

013737
065716’

001334
00004

001142

79 060044

162716

75 060016
78 060036

80 060050
1 060052

‘82 060056
83 060060
gg 060064

001426

042737

112776 000013

94 060116
32 060124

97 060126
98 060134
99 060136

}82 060156
106

107 060162

108 060170
109 060176
110 060204
111 060206
112 060214

}}s 060216
&

#2,(5P)
PC,a(SP)+

:MOVE SP TO RETURN IF ERROR
JREPORT ERROR

NOP
BR

158

;SKIP FURTHER ERROR CHECKS

BEQ

#50,3(5P)

00, (sp)

:WRITE ERROR NUMBER IN CALL

*RESTORE SP TO NO ERROR

208

INO' !

JREPORT CONTROL BUS PARITY ERROR VIA USER'S ERROR CALL.
MOV

RMCS11,8GDDAT

JEXPECTED STATUS

MOV
ADD

RMCS11,$BDDAT
#4,(SP)

:RECEIVED STATUS
JMOVE SP TO USER'S ERROR CALL

#2,(SP)

;MOVE SP TO RETURN IF ERROR

1508

;OMIT STATUS CHECKING

001140

BIC

000000

MOvB
SUB

JSR
SUB

061202

SUB
JSR

sTEST FOR MASSBUS CONTROL BUS PARITY ERROR WHEN READING REMOTE
*REGISTERS, 1.E., '"MCPE' = 1.
BlT
#MCPE,RMCS11
;WAS PARITY ERROR DETECTED??

000010

000240
000137

012737
052737
023727
101025
042737

}8% 060154

000002

004736
162716

86
87
88 060064
89 060072
90 060100
91 060106
3§ 060110

100 (50144
107 0-0146

020000

;RECEIVED STATUS
‘MOVE SP TO USER'S ERROR CALL

SUB

020000

RMER11,$BODAT
96, (SP)

Mmove

000010

032737

MOV
ADD

158:
208 :

NOP
JMP

#MCPE
, $GDDAT
#135,3(sP)

PC,a(SP)+
llé.(SP)

‘WRITE ERROR NUMBER

JREPORT ERROR AND RETURN
JRESTORE SP TO NO ERROR

sDETERMINE THE VALUE OF ''IAE'' STATUS BASED ON TRACK, SECTOR AND CYLINDER
sALSO SET "'SKI'" FLAG IF CYLINDER ADDRESS 1S TOO LARGE.
MOV~ #IAE,SGDDAT
;SETUP FOR 1AE = 1
BIS
#SK1.2008
:SETUP FOR SKI = 1
CMP
RMDCO,#822.
JGREATER THAN LAST CYLINDER ?
BHI
308
:YES = CYLINDER 1S INVALID
BIC
#SK1,2008
1"'SK1'' SHOULD BE ZERO

002000
040000
001444

001140
061230
001466

040000

061230

123/37
101016

001417

001333

CMPB
BHI

RMDAO+1,LSTRK+1
3Ch

;GREATER THAN LAST TRACK ?
*YES = TRACK 1S INVALID

123727
101410
032737

001416

000035

010000

001442

CMPB
BLOS
BIT

RMDAO,#29.
25%
#FMT16,RMOFO

;SECTOR > 29. ?
sNO!!
:18 BIT FORMAT ?

001416

000037

BHI

30%

JYES = SECTOR IS INVALID

001406
123727

101002

005037

001140

013737

001350

042737
023737
001004
042737
000413

175777
001140
040000

BEQ
CMPB

258:

001142
001142
001142

CLR

30%
RMDAO,#31.

$GDDAT

JYES = SECTOR IS INVALID FOR 18 BIT MODE
*SECTOR > 31, ?

:"IAE" SHEULD = 0

- COMPARE EXPECTED AND RECIVED “'IAE'' STATUS

30$:

061230

408:

MOV

BIC
CMP
BNE
BIC
BR

RMER11,SBODAT

#*C1AE
. $BDDAT
$GDDAT ,$BDDAT
408
#5¢1,2008
508

;GET RECEIVED IAE

;1S IAE CORRECT??
N0
*SK1 SHOULD BE ZERO

SEQ 0232

————

——————————e

| CZRMMAO RMOS/3/2 FCTNL TST 1

| SEARCH STATUS CHECK SUBROUTINE

115
116
117
118
119

|
;

|
|
|
~
|
|
|
|

060216
060222
060230
060234

120 060236
121 060242
122 060244
123
124
125 060244

126 060252
127
128
129 060254
130 060262
131 060270
132 060276
133 060304
136
135
136
137
138
139
140
141

060312
060314
060320
060326
06033¢
060336
060344
060350

142 060352

|
|

144 060360
145

147

|
|
A
|

;

:
;

!
|
|

143 060356

062716
112776
162716
004736

000004
000257
000002

MACRO v03.01

000000

032737

050200

001376

013737
042737
013737
042737
023737
001422
062716
112776
032737
001403
112776

001376
137777
061230
137777
001140

001142
001142
001140
001140
001142

000004
000263
040000

000000
001140

000267

000000

149
150
151
152

060360
060366
060370
060376

153 060404
154 060412

155 060416
156 060426

157 060432
158 060434
159 060442
160 060446
161 060450
162 060454
163 060456

164
165
166 060456

167 060464
168 060466
169 060474

170 060502
171 060510

SUB

#2,(SP)

NOP

(SP)

SEQ 0233

;MOVE SP TO USER'S ERROR CALL

#257.a(sp)

‘WRITE ERROR NUMBER IN CALL
:MOVE SP TO RETURN IF ERROR

PC A(SP)+

*REPORT ERROR AND RETURN

#10, (sP)

*RETURN SP TO NO ERROR

JSEE IF ''SKI'' OR ''DVC'' OR ''IVC'' IS SET
BIT
#SK1'DVC!IVC,RMERZ]
BEQ
90%
sNO!!

sARE ANY BITS SET??

;REPORT ERROR IF ''SKI1'' 1S SET AND ''SKI'' FLAG IS NOT SET

MOV
BIC
MOV
BIC
CMP
BEQ

RMER21,$BODAT
#~CSK1,SBODAT
2008, $GDDAT
#~CSK1,SGDDAT
$GDDAT.SBDDAT
60$

MOVB
BIT
BEQ
MOVB
SUB

#263,a(SP)
#SK1,$GDDAT
55¢
#267,3(SP)
#2,(SP)

agg

#10, (sP)

ADD

55¢:

000010

JSR

;RECEIVED ''SKI'' STATUS
;EXPECTED ''SKI'* STATUS

;1S ''SKI'* OK??
:YES-CHANGE ERROR NUMBER

#4, (SP)

*MOVE

SP TO USER'S ERROR CALL

PC.a(SP)+

*REPORT ERROR AND RETURN

‘WRITE ERROR NUMBER
*SHOULD ''SK1'' BE SET??
:NO!!
:YES-CHANGE ERROR NUMBER
*MOVE SP TO RETURN IF ERROR

:RESTORE SP TO NO ERROR

60%:

146

#4,

SUB

50%:

000002

ADD

Move
JSR

000010

162716
004736
162716
000240

;REPORT INCORRECT IAE STATUS VIA USER'S ERROR CALL

162716
000240

001531

11-APR=-80 13:04:53 PAGE 32-2

;REPORT "'IVC'' ERROR AS
032737
001433
013737
042737

013737
062716

112776

032737
001403
112776
162716
004736
162716
000240

032737

001424
013737
062737

013737
062716

010000

001376

001376
010000
001376
000004

001140

;
;

MOV

001140

BIC

001142

000264
000100

000000
001346

000265
000002

000000

MOV

708:

80%:
000200

001376

001376
000200

001140
001140

001142

RMER21,8GDDAT

#1VC,$GDDAT

RMERJ],$BDDAT

ADD

#4, (SP)

JSR

PC.a(SP)+

MOVB
BIT
BEQ
MOVB
SUB

SUB

000010

001376
000004

.IVC DUE TO LOSS OF VOLUME VALID
"ERRONEOUS IVC WITH VOLUME VALID SET
BIT
#1VC,RMER2]
;1S 1VC SET??
BEQ
80$
INO!!

NOP

#264,3(SP)
#VV,RMDSI
708
#265,3(SP)
#2,(SP)

;RECEIVED STATUS

*MOVE SP TO USER'S ERROR CALL

:WRITE ERROR NUMBER IN CALL
*WAS VOLUME VALID??
INO!!
*YES = CHANGE ERROR NUMBER

:MOVE SP TO RETURN IF ERROR
:REPORT ERROR AND RETURN

#10, (SP)

:REPORT ANY DEVICE FAULT,

;EXPECTED STATUS

*RESTORE SP TO NO ERROR
1.E., 'DVC'
= 1

BIT

#DVC,RMER2]

;WAS THERE A DEVICE FAULT??

MOV
BIC

RMER21,8GDDAT
#DVC , $GDDAT

:EXPECTED STATUS

BEQ
MOV
ADD

90$%

RMERS],$BODAT
¥4, (SP)

INO!!

;RECEIVED STATUS

+MOVE SP TO USER'S ERROR CALL

CZRMMAO RMO5/3/2 FCTNL TST 1

SEARCH STATUS CHECK SUBROUTINE

060536

112776
162716
004736
162716
000240

000266
000002

000000

SEQ 0234

#266,3(SP)

;WRITE ERROR NUMBER IN CALL

PC.a(SP)+

*REPORT ERROR AND RETURN

SUB

#2,(SP)

agg

#10, (SP)

:MOVE SP TO RETURN IF ERROR

*RESTORE SP TO NO ERROR

90%:

;REPORT ANY "'OPI'' ERROR AS
."'OPI"" BECAUSE MEDIUM IS NOT ONLINE

060602
060610
060612
060620
060624

060626
060632
060634

WNOONNNWN

7 060570
8 060574

060536
060544
060546
060554
060562

O=O0O—==00—~000000
OO O —=OW—O—=f—=OW
O NS NN = NINININNIN
=N

i
i e
il
D e
i
i
i ol
i
i
i
e
i
e

MOVB

000010

020000

001350

001350
020000

001140
001140
001142

010000
000271
000002

060634

200 060640
201 060644

202 060650

."'OP1"*
BECAUSE '‘ON CYLINDER'' DIDN'T DROP
BIT =
#OPI,RMER1I
;WAS OPI SET??
BEQ
1108
INO!!
MOV
RMER11,8GDDAT
:EXPECTED STATUS
BIC
#OP1,$GDDAT

MOV

RMERTI,$BODAT

;RECEIVED STATUS

000000
001346

MOVB

#270,3(SP)

:SETUP ERROR FOR MOL = 0

000000

MOVB
SUB
JSR

105$

SYES!!

ADD

BIT

BEC
105%:

agg

000010

#4,

(SP)

#MOL ,RMDS

#271,a(SP)
#2,(SP)
PC.a(SP)+

#10, (sP)

:MOVE SP TO USER'S ERROR CALL

:WAS MOL 07?

:MOL WAS 1 = CHANGE ERROR
:MOVE SP TO RETURN IF ERROR
:REPORT ERROR AND RETURN

*RESTORE SP TO NO ERROR

1108:

e
— D

11-APR-80 13:04:53 PAGE 32-3

JSR

) e

i e

VOO0 NO O O O O ~O 00 00 00 00 00 00 00 00 00 00 NN~~~
VO~ VIS WN—=0O0
WV
NN =000
~NOr S

172 060514
173 060522
060526
060530
060534

MACRO v03.01

= "MOL'' = ‘'WW'' = 1 AND 'PIP' = 0
;SEE If UATA'

013746
042716
022726
001554

205 060652
206 oeoogg

MOV

BIC
CMP

BEQ
010000

001346

001346
010000
001346
020000

001140
001140
001142
001350

000004
000272
000002

RMDSI,=-(SP)

:GET

1508

JYES!!

DRIVE

STATUS

WAC<ATA!PIP!MOL!VV>,
(SP)
WATA!MOL!VV,(SP)+
:1S DRIVE STATUS CORRECT??

+REPORT AN ERROR IF MOL = 0 AND OPI ERROR WAS NOT REPORTED, 1.E.. OPI = 0
BIT

#MOL ,RMDS

:WAS MEDIUM OFF LINE??

MOV

RMDSI,$GDDAT

:EXPECTED STATUS

RMDSI,$BODAT
#OP1,RMER1]

;RECEIVED STATUS
:WAS OPI REPORTED BEFORE??

ADD

#5,

‘MOVE

SUB

#2,(SP)

BNE

BIS

MOV
BIT

BNE

MOVB

000000

JSR

agg

000010

1208

#MOL
, $GDDAT
1208

(SP)

#272.3(SP)
PC.a(SP)+

"0, (SP)

INO!!

:YES = DON'T REPORT MOL = 0

SP TO USER'S ERROR CALL

:WRITE ERROR NUMBER IN CALL

‘MOVE SP TO RETURN IF ERROR

*REPORT ERROR AND RETURN

:RESTORE SP T0 NO ERROR

O NNNSNON

[=lelelelelelele]
Ot
P = OO
W

LTV NPV
Y ¥
NNNNONS~N
- LN NN
NN N

120%:

020000

001346

040000

001376

001346

001140
001140
001142

000004

JREPORT AN ERROR

BIT

PIP IS STIL SET

RMDSI,$GDDAT

:EXPECTED STATUS

1308
#5KI,RMER2I
1308

BIC

#P1P,$GDDAT

MOV
ADD

IS RESET

;1S POSITIONING IN PROGRESS??

REQ
BIT
BNE

MOV

AND SKI

#PIP,RMDSI

RMDSI,$BODAT
#4, (SP)

iNOLE
T
;WAS ''SK1'' DETECTED??
:YES-DONT REPORT PIP

;RECEIVED STATUS
:MOVE SP T0 USER'S ERROR CALL

- CZRMMAO RMO5/3/2 FCTNL TST 1

SEARCH STATUS CHECK SUBROUTINE

—

(=] =]
S5
nNO

o
o
o

061050

NOOWV SN
N
OSSO ONON

e
e
e
e
—

e
D e
—

000273
000002

262 061174

000100

001346

010000

001376

7
7
7
6
6
6
6
162716

001346
000100
001346

000002

—

—_

061202
061206

o
o

agg

#10, (sP)

;WRITE ERROR NUMBER IN CALL
:MOVE SP TO RETURN IF ERROR

PC a(SP)+

‘REPORT ERROR AND RETURN

*RESTORE SP TO NO ERROR

;REPORT AN ERROR IF VOLUME IS NOT VALID AND IVC = 0
BIT
#VV,RMDSI
;1S VOLUME VALID??

BNE

140§

SYES!!

¥4,

*MOVE

001140
001140
001142

BIT
BNE
MOV
BIS
MOV

#1VC,RMER2]
1408
RMDSI,$GDDAT
#VV,SGDDAT
RMDS1,$BODAT

000000

Move

#350,a(sP)

JSR

PC.a(SP)+

ADD

SUB

agg

000010

032737

100000

001346

013737

001346

001140
001140
001142

7
7
6
6
6

100000
001346
000004
000351
000002

162716

000010

:WAS 1VC DETECTED??
*YES = DON'T REPORT vV = 0
:EXPECTED STATUS

;RECEIVED STATUS

(SP)

SP TO USERS ERROR CALL

‘WRITE ERROR NUMBER IN CALL

#2,(SP)

:MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN

#10, (SP)

:RESTORE SP TO NO ERROR

061214
061220
061222
061226

275 061230
276

;REPORT AN ERROR IF ATTENTION IS NOT SET
BIT
#ATA,RMDS]
;1S ATA ON??
BNE
1508
SYES!!
MOV
RMDSI,$GDDAT
:EXPECTED STATUS
BIS
#ATA, $GDDAT
MOV
RMDSI,$BODAT
;RECEIVED STATUS

000000

062716
105776
001403
062716
000402
162716
000207
000000

000004
000000

#4,

SUB

#2,(SP)

JSR

SUB

NOP

;ARGUMENT THE
ADD
1STB

BEQ

000004
000004

ADD

MOVB

150%:

#273,3(SP)
#2,(SP)

130%:

MOVB
SUB
JSR

000010

264 061202
265
267
268
26
270
271
272
5;2

000000

SEQ 0235

140%:

D e

o o (olelolelelele]
o ooocooccorO
O

N n NN

o > VIV
YA
LDY
o VWONOWVESWN—=O

249 06}

112776
162716
004736
162716
000240

OO =0 = WN—=0OWOW
SSPONININNIWN
=N =N

W
N

—

o
o

—_

(= ]=]
oo~

061032

o
o

NN NN

sS85 NN N NN NN NN W
OV
WN—O VOONO WV NN —=O

229 061010
061016
061022
061026
061030

MACRO v03.01 11-APR-80 13:04:53 PAGE0 33-4

160$:
170$:

2008:

(SP)

1608

#4, (SP)
PC

1708

CALL

ERROR

*REPORT ERROR AND RETURN

:RESTORE SP TO NO ERROR

RETURN ADDRESS
#4, (SP)
a($P)

SUB
RTS

.WORD

*MOVE SP TO RETURN IF

#10, (SP)

#.,(SP)

SP TO USER'S ERROR

‘WRITE ERROR NUMBER IN CALL

PC.a(SP)+

ADD

‘MOVE

#351,a(sP)

AN ERROR WAS DETECTED
:MOVE SP TO USER'S ERROR CALL
:WAS ERROR FOUND??

INO!!

*YES - CHANGE RETURN

:NO ERROR FOUND
:RETURN TO USER

:STORAGE FOR FLAGS

~ CZRMMAO RMO5/3/2 FCTNL TST 1

MACRO v03.01 11-APR-80 13:04:53 PAGE 3%

N IS NN —

STATIC DRIVE STATUS CHECK SUBROUTINE

.SBTTL

NN -2 OO0 00~

b s b s s s

:T?ET;SELOHING CONDITIONS ARE TESTED AND REPORTED AS ERRORS

b b d b

WN = OV~

WWNNINI NI NI NI NI NI NI NI N

|
1
|

33
34 061246
35 061252

000004

013746
042716

001346
147677

|
|
|

40 061264
41 061272
42 061274

032737
001030
032737

010000

001346

020000

00137

001346
010000
001346
000004

001140
001140
001142

OOVONO VN

.VV = 0, INDICATES THE DRIVE LOST VOLUME VALID
«PIP = 1, INDICATES THAT THE DRIVE 1S OFF CYLINDER

;1)

162716

—_

:
:

:THE

;:
:
:
;
:
061232

32 061242

36 061256
37 061262
39

43
44
45
46
47

.MOL = O, INDICATES DRIVE WENT OFFLINE, NOTE

:
:

062716
105076

:THAT MOL

061232
061236

]

STATIC DRIVE STATUS CHECK SUBROUTINE

;THIS SUBROUTINE LOOKS FOR UNEXPECTED CHANGES IN DRIVE
:STATUS, SUCH AS THE DRIVE LOSING VOLUME VALID.
THE SUBROUTINE
;CAN BE USED BY HOUSEKEEPING AND OTHER COMMANDS DURING WHICH THERE
:SHOULD NOT BE ANY DRIVE ERRORS OR CHANGES IN STATE.

|
|

SEQ 0236

061302
061304
061312
061320
061326

48 061332

49 061340

022726
001524

001024
013737
052737
013737
062716

112776
162716

004736

52 061352
33 061354

000240

56 061354

57 061362

ASSUMED TO HAVE BEEN SET

.SKI =1,
.DVC = 1,
SUBROUTINE

JSR

BR
NOP
ERROR
JSR
722

INDICATES THE DRIVE HAS AN UNEXPECTED SKI ERROR
INDICATES AN UNEXPECTED DEVICE FAULT

1S CALLED AFTER STORING STATUS

PC,STCDRVSTS
279

PC,A(SP)+

IN THE GET BUFFER.

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

STCDRVSTS:

50 061344

51 061346

162716

032737
001030

;CLEAR USER'S ERROR CALL

000004
000000

ADD ~
CLRB

SUB

;SEE IF "MOL'" =
MOV
BIC
CMP
BEQ

010100

000207
000002

BIT
BNE
BIT

000000

;MOVE SP BACK TO NO ERROR RETURN

"w'' = 1, AND "PIP" = 0
RMDS1,-(SP)
;PUT DRIVE STATUS ON STACK
#*C<PIP!MOL!VV>,
(SP)
#MOL!VV,(SP)+
;ARE MOL,VV AND PIP 0.K.??
308
SVES!!

108
RMDSI,SGDDAT
#MOL,$GDDAT
RMDSI,$BODAT
#4,(SP)

SUB

#2,(SP)

move

108:

#MOL ,RMDS ]
10$
#OP1,RMER1]

BNE
MOV
BIS
MOV
ADD

JSR

001346

#4,(SP)

;MOVE SP TO USER'S ERROR CALL
;CLEAR ERROR NUMBER

;REPORT AN ERROR IF MOL = 0 AND "‘OPI'' = 0

000010

000100

#4,(SP)
@(SP)

NOP

#207,a(sP)
PC,a(SP)+

#10,(sP)

;1S MOL ON ??
SYES!!
iWAS "OP]"' SET?2?
:YES=DONT REPORT 'MOL' = 0
:EXPECTED STATUS

;RECEIVED STATUS
:MOVE SP TO USER'S ERROR CALL

;WRITE ERROR NUMBER IN CALL

:MOVE SP TO RETURN FOR ERROR

:REPORT ERROR VIA USER

;MOVE SP BACK TO NO ERROR RETURN

;REPORT AN ERROR IF VOLUME VALID 1S NOW ZERQ AND “‘IVC'' = 0

BIT
BNE

#VV,RMDS ]
208

iNO!!

Y= 072

CZRMMAO RMO5/3/2 FCTNL TST 1

MACRO v03.01

58 061364

67 061436
68 061442
69 061444
0614446
061452
061454
061462
061464
061472
061500
061506

80 061512
81 061520
82 061524
83 061526
84 061532
85 061534
86
87
88 061534
89 061540

032737
001430
032737
001024
013737
062737
013737
062716
112776

001346
000100
001346
000004
000210
000002

001140
001346
001142

BIT
BNE

BIS

001376
001140
001140
001142

162716

001346
020000
001346
000004
000211
000002

162716

000010

000240

032737
001424
013737

Y
Y S

BIC

MOv
ADD
MOvB
SUB

40%:

001376
000200
001376
000004
000212
000002

001140
001140
001142

—-OO0O0000O
— O = N = OW

&»
~

:EXPECTED STATUS

001376

001140
001140
001142

000000

#211,3(5P)
#2,(SP)

#10, (SP)

;MOVE SP TO NO ERROR RETURN

PC.a(SP)+

:YES=DONT REPORT 'PIP'" =

;RECEIVED STATUS
;MOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER IN USER'S CALL
sMOVE SP TO RETURN FOR ERROR
;REPORT

ERROR VIA USER

“DVC = 0
RMER21
= (SP)
;PUT ERROR REG 2 ON STACK
#*C<SKIIDVE>, (SP)+
60%
:BRANCH IF NO ERROR

MOv

MOV
ADD
MOvVB
suB

RMER21,$GDDAT
#DVC , SGDDAT

RMERZ], $BDDAT

JREPORT AN ERROR IF ''SkI'' = 1
MOV

BIC

MOV
ADD
MOovB

sRECEIVED STATUS

;MOVE SP TO USER'S CALL
ERROR

IN CALL

;MOVE SP TO RETURN FOR ERROR
sREPORT ERROR VIA USER
+MOVE SP BACK TO NO ERROR

NOP

BIT
BEQ

*EXPECTED STATUS
;WRITE NUMBER OF

JSR
SuB

BIC
BEQ

BIC

50%:

000213

MOV

RMDS1,$GDDAT
#P1P,$GDDAT
RMDSI,$BDDAT

#4, (SP)

JSR
SuB
NOP

'.SK]..

SWAS 'SKI'* SET??

sREPORT AN ERROR IF THERE IS A DEVICE FAULT
#DVC,RMERZ]
BIT
:zgY'DEVlCE FAULT??
BEQ
509

000000

040000

TO NO ERROR

#SKI1 RMERZI

30%

MOv

;SEE IV

001376

:MOVE SP BACK

NOP

BIT
BNE

30%:

000200

sYES=DONT REPORT ‘“'wv'' = 0

JREPORT AN ERROR IF DRIVE IS OFF CYLINDER AND ''SKI'' = 0
#P1P,RMDSI
BIT
;18 DRIVE OFF CYLINDER??
BEQ
30%

000000

013746
062726
001460

JWAS "'IvC'" SET??

;REPORT ERROR VIA USER

JSR
SUB

040000

SEQ 0237

RMDS1,$GDDAT
JEXPECTED STATUS
#VV,RMDS
RMDSI,$BDDAT
;RECEIVED STATUS
#4 ,(SP) ;MOVE SP TO USER'S ERROR CALL
#210,a(sp)
;WRITE ERROR NUMBER IN CALL
;MOVE SP TO RETURN FOR ERROR

MOV
ADD
MOvB
SuB

000010

001346

004736

#1VC,RMERZI

20%

MOV

000000

020000

eSS aes

001376

000010

OO‘O?‘OOO

061546
061554
061556
o0
oo

S W =2OOENO
WV
W -2

and wd
i
D
i e
D
D
) wlh
D
il
D
-l

061544
061546

OO0 O0OCOO

90
91
92
93
94
95
96

010000

208%:

PONVNND
N — N
NNNNNSN
N = NN NN W
CONNNSN

70
71
72
73
74
75
76
77
78
79

O—=0O—=—=000000
COOO =0 —=WN—=0OW
OMN S NIMNIMNIWNNIWN
=N
NNNNNNNNNO~N
&S =N =N = NN
W
OO NNNSN

STATIC DRIVE STATUS CHECK SUBROUTINE

11-APR-80 13:04:53 PAGE 33-1

#SK1,RMER2]

60%
RMER21,$GDDAT
#SK1,$GDDAT

RMERZ],$BODAT
¥4,

(SP)

#213,a(5P)

‘LS.T”E“E A SEEK INCOMPLETE ERROR

*EXPECTED STATUS
:RECEIVED STATUS
sMOVE SP TO USER'S ERROR CALL
;WRITE ERROR NUMBER

IN USER'S ERROR CALL

CZRMMAO RMO5/3/2 FCTNL TST 1

MACRO v03.01

STATIC DRIVE STATUS CHECK SUBROUTINE

115 061672
116 061676

162716
004736

118 061704

000240

117 061700

};g 061706
121
122
123
124
125
126
127
128
}gg

061706
061712

162716

062716

000004

061724
061726
061732

000402
162716
000240

0617}4

000207

SUB

608 :
000004
000000

001403

SUB
JSR

000010

062716
105776

061716

061720

000002

000004

11-APR-80 13:04:53 PAGE 33-2

NOP

#2,(SP)
PC.A(SP)+

#10, (sP)

:MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

*MOVE SP BACK 70 NO ERROR

;AUGMENT THE RETURN ADDRESS IF ANY ERROR WAS DETECTED
ADD
#4, (SP)
:MOVE SP TO USER'S ERROR CALL
1STB
2 (SP)
sWAS AN ERROR DETECTED??
BEQ
708
INO!!ADD
#4,(SP)
JYES = MOVE SP TO USER'S ERROR RETURN
BR
80%
70%:
SUB
#4, (SP)
sNO = MOVE SP TO NO ERROR RETURN
80$:
NOP
RTS
PC
JRETURN TO USER

SEQ 0238

CZRMMAD RM0S/3/2 FCINL TST 1
STOP AND SHUTDOWN SUBROUTINES

MACRO v03.01

H 3
11-APR=-80 13:04:53 PAGE 34

;

LSBTTL

2 061736

STOP:

6 061736
061762
061746

061750
g 061750

9
10 061752

012746
012746
000002

012746

000207

13 061766

005737

062000

062022
16 062022

}g 062026

012746
000002

001015
104401

000410
000137

000137

000300

061764

000042

042136

MOV
MOV
RTI

#PR3,=(SP)
#64%,-(SP)

;
NOP

::PUT NEW PS ON STACK
::PUT NEW PC ON STACK
::POP NEW PC AND PS

;RAISE PRIORITY
MOV
MOV
RTI
65%:
RTS

TO INHIBIT CONSOLE INTERRUPT
#PR6,-(SP)
::PUT NEW PS ON STACK

SHUT:

062002

005412

STOP AND SHUTDOWN SUBROUTINES

sDROP PRIORITY TO ALLOW CONSOLE INTERRUPT

64%:

000240

061756
061762
061764
}; 061764
14 061772
15 061774

000140
061750

SEQ 0239

::65%:
64%:

10%:

#65%,-(SP)

;;PUT NEW PC ON STACK
::POP NEW PC AND PS

;CONTINUE

TST

ang?2

:ANY MONITOR PRESENT ?

BR
_ASCIZ

64%
::GET OVER THE ASCIZ
<CRLF><O7>/TEST HALTED/<CRLF>

BNE
TYPE

JMP

10%
,65%

START

$EOP

;BR IF YES
;:TYPE ASCIZ STRING

;G0 TO START

JRETURN CONTROL TO MCNITOR

CZRMMAQ RMO5/3/ 2 FCTNL 1 ST 1

SAVE AND RESTOR 3 RO-R5 R OUTINES

MACRO v03.01

LSBTTL

11-APR-80 13:04:53 PAGE 35

SEQ 0240

SAVE AND RESTORE RO=-R5 ROUTINES

:;'t".'.."".""""""""".".""""t.'..".""""'0"

;*SAVE RO-R5

s*CALL:

SAVREG

;*UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
'

PeTOP===(+16)

‘e 42===(418)

‘v +4===RS

;v +6=-=Ré

;% 48-==R3
;*+10=-==R2
;*412===R]

;*+14--=R0

062032
062032
062034
062036
062040
062042
062044
062046
062052
062056
062062
062066

062070
062070
062074
062100
062104
062110
062112
062114
062116
062120
062122
062124

$SAVREG:

000022
000022
000022
000022

MOv
MOv
MOV
MOv
MOv
MOv
MOv
MOV
MOv
MOV
RTI

;*RESTORE RO-R5
'CALL
RESREG
SRESREG
MOV
MOv
MOV
MOV
MOV
MOV
MOV
MOV
MOv
MOV

000002

.SBTTL

RTI

RO,=(SP)
R1,=-(SP)
R2,=(SP)
R3,=(SP)
R& ,=(SP)
R5,=(SP)

22(SP) ,=(SP)
22(SP) ,=(SP)
22(SP) ,=(SP)
22(SP) ,=(SP)

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,RS
(SP)+ R4

(SP)+ ,R3
(SP)+,R2
(SP)+,R1
(SP)+,RO

::PUSH RO ON STACK
::PUSH R1

ON STACK

::PUSH R2 ON STACK
;sPUSH R3 ON STACK
;sPUSH R4 ON STACK

RS
PS
PC
PS
PC

ON
OF
OF
OF
OF

;sRESTORE
;sRESTORE
:sRESTORE
;;RESTORE

PC
PS
PC
PS

::PUSH
::SAVE
::SAVE
;:SAVE
::SAVE

STACK

MAIN FLOW
MAIN FLOW

CALL
CALL

OF CALL
OF CALL
OF MAIN FLOW
OF MAIN FLOW

:sPOP STACK INTO RS
::POP STACK INTO R4
;:POP STACK INTO R3

::POP STACK INTO R?
INTO R1
;:POP STACK INTO RO

;:POP STACK

BINARY TO ASCII AND TYPE ROUTINE

Rl Rl
222
0RRRRRRRRlRR
2222222
22222222200
2222222233232 22322322322222

'IHIS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-BIlT
:*BINARY-ASCI] NUMBER AND TYPE IT.
e

062126

062130
062134

010146
016601
000261

000006

MOV
TYPBN

$TYPBN: MOV
MOV

SEC

(SP)
, =ER
NUMB
1~ S )

s*CALL:

(SP) ,R1

:;NUMBER TO BE TYPED
;3TYPE

;:SAVE R1 ON THE STACK

;sGET THE INPUT NUMBER
CAN KEEP TRACK OF
33581 ‘L

THE NUMBER OF BITS

112737

006101
001406
105537

104401
000241
000765
012601
016666
012616
000002
000

000060

062200

1%:

MOVB

000004

000

ADCB
TYPE
cLC
BR

2%:

,$BIN
$
S P )+ ,R1
( S P),&(S P)
) P )+,(SP)

MOV

$BIN:
.SBTTL
AR

$BIN

MOV
MOV
RTI

SEQ 0241

;sSET CHARACTER TO AN ASCII "0,
;:GET THIS BIT
v
: ;DONE?
: sNO==SET THE CHARACTER EQUAL TO THIS BiT
::G0_TYPE THIS BIT
;sCLEAR "'C'" SO CAN KEEP TRACK OF BITS
::60 DO THE NEXT BIT
:+POP THE STACK INTO R1
:sADJUST THE STACK

BEQ

062200
062200

000002

#'0,$BIN
R1

ROL

AN~

062136
062144
062146
062150
062154
062160
062162
062164
062166
062174
062176
062200

MACRO v03.01 11-APR-80 13:04:53 PAG% Sg-l

CZRMMAO RMO5/3/2 FCTNL TST 1

BINARY TO ASCI1I AND TYPE ROUTINE

JsRETURN TO USER

.BYTE
0
: 5 STORAGE FOR ASCII
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

AL AR AR

’

CHAR. AND TERMINATOR
e

;*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT
;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE I1T. DEPENDING ON WHETHER THE
:*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE

s*REPLACED WITH SPACES.

s*CALL:

o
e

062202
062202
062204
062206
062210
062212

$TYPDS:

00004

020200
000020

-t G

000055

000001

062416
000040

1%:

2%:

062406

4%:

MOV
TYPDS

NUM,=(SP)

::PUT THE BINARY NUMBER ON THE STACK
::60 TO THE ROUTINE

MOV
MOV
MOV
MOV
MOV
MOV
MOV
BPL
NEG
MOVB

RO,=-(SP)
R1,=(SP)
R2,=(SP)
R3,=(SP)
RS5,=(SP)

:sPUSH RO ON STACK
::PUSH R1 ON STACK
:sPUSH R2 ON STACK
:;PUSH R3 ON STACK
:PUSH RS ON STACK
s:SET BLANK SWITCH AND SIGN
;:GET THE INPUT NUMBER
::BR IF INPUT IS POS.

CLR
MOV
MOVB

CLR

MOV

SuUB

BLT
INC
BR
ADD

#20200,-(SP)
%g(SP).RS

RS
#'=-,1(SP)
RO
#SDBLK ,R3

# ,(R3)+

R2
$DTBL (RO) ,R1
R1,R5

000001
000060
000040
000010

ASLB

177777

7%:

BIS

;s ZERO THE CONSTANTS INDEX
:sSETUP THE OUTPUT POINTER
;sSET THE FIRST CHARACTER TO A BLANK
:sCLEAR THE BCD NUMBER
::GET THE CONSTANT
;:FORM THIS BCD DIGIT
::BR IF DONE
;s INCREASE THE BCD DIGIT BY 1

;;ADD BACK THE CONSTANT
ssCHECK IF BCD DIGIT=0
ssFALL THROUGH IF 0 .
sSTILL DOING LEADING 0'S?
;:BR IF YES

1ST

BNE

5%:

:;MAKE THE BINARY NUMBER POS.
:sMAKE THE ASCII NUMBER NEG.

JsMSD?

6
1(SP),=1(R3)

;:BR IF NO

¥ LR2
R2,(R3)+

A DIGITY
2sPUT THIS CHARACTER IN THE OUTPUT BUFFER

#'0,R2

ssYES=-=-SET THE SIGN
;sMAKE THE BCD DIGIT ASCII
JsMAKE IT A SPACE IF NOT ALREADY

(RO)+

2+ JUST INCREMENTING

RO,#0

ssCHECK THE TABLE

INDEX

CZRMMAQ RMO5/3/2 FCINL TST 1

MACRO v03.01
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

062332
06233¢
062336
062340
342
062364
062346
0623564
062356
062360
062362
062364
062366
062370

002746
003002
010502
000764
105726
100003
116663
105013
012605
012603
012602
012601
012600
104401

062402
0624064
062406
062610
062412
062414
062416

01261
000002
023420
001750
000144
000012

062374

016666

SEQ 0242

BLT
BGT
MOV
BR
TSTB
BPL
MOVB
CLRB
MOV
MOV
MOV
MOV
MOV
TYPE

8$:

177777

062416

000002

177776

11-APR-80 13:04:53 PAGE 35-2

9%:

000004

MOV

$DTBL:

$DBLK:

.SBTTL

MOV
RTI
10000.
1000.
100.
10.
.BLKW

BINARY

2%
1
RS,R2
6%
(SP)+
98
=1(SP),=2(R3)
(R3)
(SP)+,RS
(SP)+.R3
(SP)+.R2
(SP)+.R1
(SP)+.RO
$DBLK

2(SP),4(SP)
(SP)+,(SP)

TO OCTAL

(ASCII)

::60 DO THE NEXT DIGIT
2160 TO EXIT
PiGET THE LSD
1160 CHANGE TO ASCII
*'WAS THE LSD THE FIRST NON-ZERO?
P'BR IF NO
::YES==SET THE SIGN FOR TYPING
P'SET THE TERMINATOR
1:POP STACK INTO RS
::POP STACK INTO R3
1:POP STACK INTO R2
1:POP STACK INTO R1
::POP STACK INTO RO
*INOW TYPE THE NUMBER

PSADJUST THE STACK

;:RETURN TO USER

AND

TYPE

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

:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER T0 A 6=DIGIT
s*OCTAL (ASCII) NUMBER AND TYPE 1IT.

:'%;VEOS---ENYER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS 10 TYPE

s
e

*CALL:

M
i

MOV
TYPOS

.BYTE
BYTE

NUM, = (SP)

N
M

: :NUMBER TO BE TYPED
;:CALL FOR TYPEOUT

2iN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE
“iM=1 OR 0
;:1=TYPE

LEADING

ZEROS

::0=SUPPRESS LEADING ZEROS

- "

s*S$STYPON=-===ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;*$TYPOS OR $STYPOC

J*(ALL:
e
MOV
L

TYPON

NUM,=(SP)

: :NUMBER TO BE

J:CALL

FOR

TYPED

TYPEOUT

:-:xvpoc---eurea HERE FOR TYPEOUT OF A 16 BIT NUMBER
+*(ALL:

‘e

062626
062432
062640
062446
062450
0626452
062460
062466
062474
062476

017646
116637
112637
062716
000406
112737
112737
112737
010346
010446

000000
000001
062653
000002

000001
000006
000005

062651

062651
062653
062650

MOV

TYPOC

$TYPOS: MOV
MOVB
MOVB
ADD
BR
S$TYPOC: MOVB
MOVB
STYPON: MOVB
MOV
MOV

NUM, = (SP)
3(SP),=(SP)
1(SP),$OFILL
(SP)+,SOMODE+1
#2,(5P)
$1YPON
#1,$0FILL
#6.SOMODE
+1
#5.SOCNT
R3.-(SP)
Ré.=(SP)

: :NUMBER TO BE TYPED

::CALL FOR TYPEOUT

::PICKUP THE MODE
::LOAD ZERO FILL SWITCH
::NUMBER OF DIGITS 10 TYPE
*:ADJUST RETURN ADDRESS

;:SET THE 2ERO FILL SWITCH
SiSET FOR SIX(6) DIGITS
SSSET THE ITERATION COUNT
*:SAVE R3
PiSAVE R4

1) AND TYPE

W
=

O S~ ObOgNO

=000

BINARY TO OCTAL
(

L IST 1

MACRO v03.01 11-APR-80 13:04:53 PAGEL 3%-3

062653

MOV
MovB

000006
062652
062651
000012

ADD
MOvB
MovB
Mov

NEG

;.60 DO MSB
::FORM THIS DIGIT

ROL
ROL
ROL
MOV
ROL
DECB
BPL

177770

4%:

,.TVPE

7%:

..GEI RID OF JUNK
sTEST FOR 0
s sSUPPRESS THIS 0?
s:BR IF YES
ssDON'T SUPPRESS ANYMORE 0°'S

ssMAKE THIS DIGIT ASCII
ssMAKE ASCII IF NOT ALREADY

s :SAVE FOR TYPING
;360 TYPE THIS DIGIT

DECB
BGT
BLT
INC
BR

(SP)+,RS

MOV

MOv

(SP)+,R4

(SP)+,R3

000004

2(SP) ,4(SP)
(SP)+,(SP)

$OCNT:

$OFILL: .
$OMODE:
.SBTTL
LA A

AR AR

::COUNT BY 1
;sBR IF MORE TO DO
::BR 1F DONE
s INSURE LAST DIGIT ISN'T A BLANK
;.60 DO THE LAST DIGIT
;sRESTORE RS
;sRESTORE R4
s sRESTORE R3
:2SET THE STACK FOR RETURNING
s sRETURN

s sSTORAGE FOR ASCII DIGIT
ssTERMINATOR FOR TYPE ROUTINE
ssO0CTAL DIGIT COUNTER

ssZERO FILL SWITCH
; sNUMBER OF DIGITS TO TYPE

TYPE ROUTINE
A

THIS DIGIT?

sBR IF NO

BIS
BIS
MOvVB
TYPE

5%:

8%:

000000

ssGET LSB OF THIS DIGIT

R3
$OMODE
7%

BIC
BNE
1ST
BEQ
INC

6%:

000002

:;ROTATE MSB INTO ''C*'

3%:

000060
000040
062646
062646
062650

$OFILL,R4
12(SP) RS

;s SUBTRACT IT FOR MAX. ALLOWED
;sSAVE IT FOR USE
;sGET THE ZERO FILL SWITCH
:sPICKUP _THE INPUT NUMBER
;s CLEAR THE OUTPUT WORD

ROL

2%:

062652

;:SAVE RS
JsGET THE NUMBER OF DIGITS TO TYPE

R4
#6,R4
R4 ,$OMODE

CLR

1%:

SEQ 0243

RS,=(SP)
$UMODE+1,R4

(=lelele
-]

CZRMMAQ RHOS/SIZ

ARl

RRRR

]

'ROUT]NE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.
s*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.

:'NOTEI:

SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.

;*NOTE2:
;*NOTES:

$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

s*CALL

iel) USlNG A TRAP INSTRUCTION
"OR

TYPE

MESADR

+MESADR

;sMESADR

IS FIRST ADDRESS OF

AN ASCIZ

STRING

CZRMMAQ RMO5/3/2 FCTNL ST 1

TYPE ROUTINE

105737

—=OO0O0O0O—O—
8=8 WO
O—=0OWOnN

062654

MACRO v03.01

001173

$TYPE:

001242

000100

001243

..HALT HERE IF NO TERMINAL

..GET ADDRESS OF ASCIZ STRING
s sRUNNING IN APT MODE
62%
+sNO,GO CHECK FOR APT CONSOLE
#APTSP
,OOL
SENVM s sSPOOL MESSAGE TO APT
629
2sNO,GO CHECK FOR CONSOLE
RO,61%
ssSETUP MESSAGE ADDRESS FOR APT
SC.SATYS
s sSPOOL MESSAGE TO APT
s sMESSAGE ADDRESS

000002

60%:
3%:

000011

4%:

5%:
6%:

001170

RTI

CMPB
BEQ
CMPB
BNE
18T
TYPE
SCRLF

CLRB
BR
JSR
CMPB
BNE

MOV

7%:

063066
063204

#APTCSUP ,SENVM

s +sAPT

(RO)+,=(SP)
3
(SP)+
(SP)+,RO

s sPUSH CHARACTER TO BE TYPED ONTO STACK
JsBR IF IT ISN'T THE TERMINATOR
ss1F TERMINATOR POP IT OFF THE STACK
s sRESTORE RO
:sADJUST RETURN PC

60%

2%:

000001

2315 THERE A TERMINAL?
s:BR IF YES

RO,=(SP)

001243

063066
001172

SEO0 0244

82(SP) RO

062724
065742
000040

FAPTENV, SENV

063204

105366

$TPFLG
1%

1%:

000002
000001

000200

001350
013746

11-APR-80 13:04:53 PAGE 35-4

DECB
BLT
JSR
DECB
BR

#2,(SP)

CONSOLE SUPPRESSED

ssYES,SKIP TYPE OUT

#HT, (SP)

: sRETURN
: ;BRANCH IF

#CRLF, (SP)

;;BRANCH IF NOT <CRLF>

(SP)+

;:POP <CR><LF> EQUIV
ssTYPE A CR AND LF

SCHARCNT

s s CLEAR CHARACTER COUNT
s:GET NEXT CHARACTER
::60 TYPE THIS CHARACTER
s:1S IT TIME FOR FILLER CHARS.?
::1F NO GO GET NEXT CHAR.
:sGET # OF FILLER CHARS. NEEDED
::AND THE NULL CHAR.
::DOES A NULL NEED TO BE TYPED?
::BR IF NO--GO POP THE NULL OFF OF STACK

PC,STYPEC
SFILLC,(SP)+

2%
$NULL,=(SP)
1(SP)

PC,STYPEC
SCHARCNT
7%

<HT>

::00 TYPE A NULL
::D0 NOT COUNT AS A COUNT
::LO0P

OVn-—NoS~N
NNNOWM

063104

000040
063066
000007

116066

NS =00 goouo-

OO =O—

sHORIZONTAL TAB PROCESSOR

116062

177600

000023

8%:

063204

9%:

$TYPEC:

Move
JSR

BlTB
BNE
18T
BR
1STB

BPL

MOV

BlC
CMPB

,(SP)

98"

s :REPLACE TAB WITH SPACE
::TYPE A SPACE
s :BRANCH IF NOT AT
::TAB STOP

:sGET NEXT CHARACTER

PC $TYPEC

#7. SCHARCNT
(SP)+

asTIKS

108
a$TkB, = (SP)

#177600, (SP)
#SXOFF
, (SP)

::POP SPACE OFF

STACK

..CHA?'INOKVBD BUFFER?

11GET CHAR

*STRIP EXTRANEOUS BITS
*'WAS CHAR XOFF

Ottt Yy~

WM
= b b e
sfrOro0oo0vNVO

TYPE ROUTINE

MACRO v03.01 11-APR-B0 13:04:53 PAGE 3%-5
N

101%:

116042
116036
177600
000021

1028:
108:

116020

000002
000015

116012
000002

063204
000012

063206

000002

000207

SEQ 0245

BNE

102%

::BR IF NOT

1STB
BPL
MovB
BlC
CMPB
BNE

s TKS
101%
a$1KB, (SP)

;sWAIT FOR CHAR

18T

(SP)+

ssFIX STACK

1STB
BPL
MOVB
CMPB

as$TPS

;sWAIT UNTIL PRINTER IS READY

2(SP),a$TPB

;;LOAD CHAR TO BE TYPED INTO DATA REG.
;:1S CHARACTER A CARRIAGE RETURN?

BNE
CLRB
BR
1%:
CMPB
BEQ
INCB
$CHARCNT
: .WORD

#177600, (SP)
#$XON, (SP)
101%

108

qER.Z(SP)

SCHARCNT
$TYPEX
WLF ,2(SP)
STYPEX
(PC)+
o

CIRMMAC RMO5/3/72 FCTNL ST 1

$TYPEX:

RTS

.SBTTL

SCOPE HANDLER ROUTINE

::GET CHAR
s:STRIP_IT

;:WAS IT XON?

::BR IF NOT

: sBRANCH IF NO
::YES;-CLEAR CHARACTER COUNT
s EXI

::1S CHARACTER A LINE FEED?
: :BRANCH IF YES
;s COUNT THE CHARACTER
; s CHARACTER COUNT STORAGE

L L

;*THIS ROUTINE CONTROLS THE LOOPJNG OF SUBTESTS. LT WILL INCREMENT
;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
s*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
LOOP ON TEST
INHIBIT ITERATIONS
LOOP ON ERROR

;xSW14=1
;*SW1l=

LOOP ON TEST IN SWR<7:0>

:®

::SCOPE=]0OT

SCOPE

$SCOPE:

063210
061736
040000

000004
063254
177060
000004

115730

MOV
MOV
18T

000004

MOV

5%:

000004

000400

CKSWR
JSR
BIT
1$:
BNE
MANRNSTART OF
$XTSTR: BR

(MP

MOV

;sTEST

FOR CHANGE IN SOFT=SWR

#BI1T14,3SWR
::LOOP ON PRESENT TEST?
$OVER
::YES IF SW14=1
ngE FOR THE XOR TESTERAANAA

FERRVEC,~(SP)
#5$ , JFERRVEC

a1 #7060

(SP)+ ,@#ERRVEC
$SVLAD
(SP)+,(5P)+
(EP)’.OIERRVEC

;:1F RUNNING ON THE ''XOR'' TESTER CHANGE
::THIS INSTRUCTION TO A ''NOP'' (NOP=240)
:2SAVE THE CONTENTS OF THE ERROR VECTOR
::SET FOR TIMEOUT
::TIME OUT ON XOR?
:;RESTORE THE ERROR VECTOR
::G0 TO THE NEXT TEST
::CLEAR THE STACK AFTER A TIME QUT
::RESTORE THE ERROR VECTOR
::LOOP ON THE PRESENT TES!

7
OF
FOR THE XOR TESTERNANAN
ND
CODE
6% :;#NNRRE
#B1108
,35wR
l
B
;:L00P ON SPEC, TEST?
1F NO
;:BR
2%
BEQ
BR

115662

PC,STOP

MACRO v03.01 11-APR-80 13:04:53 PAGE 35-6
4

mMove

=(SP)
asSwR, (SP)

000071

CMP

#71,(SP)

001230

O = NN N NN NN NN
NN NNNNNNNNN

O O WWNWNIW
=
WU

S OWVNNOOO LN—Wn
O NNWVWVON o
ooorNNOO &~

et h b

063560

VIS S S WL

e b d de

h d e

=000

OO =t

[elelelelelelelelelelelelele B elelele Plelele Tl

s O e s s ) i it

002024

001120
001206

001120
001120
001206

001226

1$:

$SVLAD:

$OVER:

BNE
TST

BEQ
INC
CMP
BGE

MOv
MOV

INCB

MovB
MoV
MOv
CLR
Move
MOV
MOV
RTI

SMXCNT: 10.
:
$SWOBTBL
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

STIHES $ICNT
SOVER
#1,81CNT
SMXCNT,STIMES
STSTNM
$TSTNM,STESTN
(SP) ,SLPADR
(SP) ,SLPERR

SESCAPE

:sCLEAR THE NUMBER OF ITERATIONS TO MAKE
:;ESCAPE TO THE NEXT TEST
;s INHIBIT ITERATIONS?
..BR IF YES
IF FIRST PASS OF PROGRAM
INHIBIT ITERATIONS
INCREHENT ITERATION COUNT

..CHECK THE NUMBER OF ITERATIONS MADE
;:BR IF MORE ITERATION REQUIRED
s;REINITIALIZE THE ITERATION COUNTER
::SET NUMBER OF ITERATIONS TO DO
:sCOUNT TEST NUMBERS
:sSET _TEST NUMBER IN APT MAILBOX
::SAVE SCOPE LOOP ADDRESS
::SAVE ERROR LOOP ADDRESS

;:CLEAR THE ESCAPE FROM ERROR ADDRESS
TEST

#1,SERMAX
ssONLY ALLOW ONE(1) ERROR ON NEXT
$TSTN +aDISPLAY ::DISPLAY TEST NUMBER
SLPADR, (SP)
::FUDGE RETURN ADDRESS

::FIXES PS
: sMAX.

NUMBER OF

ITERATIONS

;s STARTING
;s STARTING
s STARTING
: s STARTING
::STARTING
s :STARTING

ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS

OF TEST
OF TEST
OF TEST
OF
OF
OF

: sSTARTING
::STARTING
: :STARTING
: s STARTING
:STARTING
::STARTING

ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS

OF
OF
OF
OF
OF
OF

::STARTING ADDRESS OF

TE
TE
TE
TE
TE

—

3%:

;s JERO THE ERROR FLAG

115540

$iSET LOOP ADDRESS TO LAST SCOPE

et et et et s a Y OM AN S
OV
NN —O

004000

4%:

4%
SLPERR,$LPADR
$OVER
S$ERFLG
S$TIMES
1%
#BIT11,3SWR
1%
$PASS
1%
$1CN

-l

001117
001206

7%:

- S
e sONOONONONONON
OO

001122

ON ERROR?
..LSO?

4 — —

001124

TEST POINTER

#BIT09,aSWR

—

115572

001000

sSCALE THE TEST NUMBER AS AN INDEX

::FORM THE ADDRESS OF

gERHAX.SERFLG

001117

— el il ol ol e e ) O AL AN
—
O NS NN = O 4+ + ¢ + + + &

001131

(SP)+

$ERFLG

) —d

001117

BR
1ST
1STB
BEQ
CMPB
BHI
BIT
BEQ
MOV
BR
CLRB
CLR
BR
BIT

e ol

8%:
2%:

;:CLEAR A TEMP. LOCATICON
s:PI1CKUP THE DESIRED TEST NUMBER
s ;BRANCH IF BAD TEST NUMBER IN SWR
s CHECK THE NUMBER IN THE SWR
s :BRANCH IF TEST NUMBER IS OUT OF RANGE
:sUPDATE THE TEST NUMBER
..BACKUP BY ONE

:sSET LOOP ADDRESS TO DESIRED TEST
::60 LOOP ON THE TEST
::CLEAN THE BAD TEST NUMBER OFF OF THE STACK
;sHAS AN ERROR OCCURRED?
::BR IF NO
..MAX ERSORS FOR THIS TEST OCCURRED?

a(SP)+,SLPADR
$OVER

ASL
ADD
MOV

(SP) ,$TSTNM
(SP)
(SP)
#$SWOBTBL, (SP)

et e

DEC

MOV

BLT

001116

wwuuvmmuvmunUrTuVUVuLVunnLIunnoom

BEQ

SEQ 0246

CLR

115652

ANt

s (N e e

NO OO N—O
SO

o OO0 O0O0O0O0— o
—
OO —-=ONO— o
W O N =N =~ W
o NWWHWO
NS N o

CZRMMAO RMO5/3/72 FCTNL ST 1
- SCOPE HANDLER ROUTINE

m
w

~ CZRMMAO RMO5/3/2 FCTNL TST 1
SCOPE HANDLER ROUTINE

063562
063564
063566
063570
063572
0635764
063576
063600
063602
063604
063606
063610
063612
063614
063616
063620
063622
063626
063626
063630
063632
063634
063636
063640
063642
063644
063646
063650
063652
063654
063656
063660
063662
063664
063666
063670
063672
063674
063676
063700
063702
063704
063706

015650
016126
016376
016626
017152
017572
020136
020530
021220
021566
022110
022472
023010
023574
024320
025110
025674
026226
026666
027106
027444
027732
030220
030532
031040
031352
031662
032174
032612
033240
033656
034216
034560
035112
035540
036216
036722
037322
037732
040332
040712
041256
041614

MACRO v03.01 11-APR-80 13:04:53 PAGE 35-7
4

.SBTTL

LWORD
LWORD
LWORD
LWORD
LWORD
LWORD
LWORD
LWORD
LWORD
LWORD
LWORD
.WORD
LWORD
.WORD
.WORD
LWORD
LWORD
.WORD
.WORD
LWORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WMORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
WORD
.WORD
.WORD
.WORD
.WORD
WORD

TST17+2
TST20+2
TST21+42
TS§T22+42
TST23+42
TST2442
TST2542
TST26+2
TST27+42
TST30+2
TST31+42
TST3242
TST33+42
TST34+2
TST3542
TST36+2
TST37+42
TST40+2
TST41+42
TST42+42
TST43+2
TST44+2
TST4542
TST46+2
TST47+2
TST50+2
TST51+42
TST52+2
TST53+42
TST54+42
TST55+42
TST56+2
TST57+2
TST60+2
TST61+2
TST6242
TST63+2
TST64+2
TST65+2
TST66+2
TSTE7+2
TST?O*Z
TST71+42

ERROR HANDLER ROUTINE

;s STARTING ADDRESS OF
: sSTARTING ADDRESS OF
s sSTARTING ADDRESS OF
: sSTARTING ADDRESS OF
:;STARTING ADDRESS OF
:sSTARTING ADDRESS OF
:sSTARTING ADDRESS OF
: sSTARTING ADDRESS OF
: s STARTING ADDRESS OF
;s STARTING ADDRESS OF
; ;STARTING ADDRESS OF
: ;STARTING ADDRESS OF
: sSTARTING ADDRESS OF
:sSTARTING ADDRESS OF
: ;STARTING ADDRESS OF
: ;STARTING ADDRESS OF
: sSTARTING ADDRESS OF
: sSTARTING ADDRESS OF
:sSTARTING ADDRESS OF
:;STARTING ADDRESS OF
: ;STARTING ADDRESS OF
: s STARTING ADDRESS OF
: sSTARTING ADDRESS OF
: :STARTING ADDRESS OF
;s STARTING ADDRESS OF
:sSTARTING ADDRESS OF
: ;STARTING ADDRESS OF
:;STARTING ADDRESS OF
: ;STARTING ADDRESS OF
:;STARTING ADDRESS OF
: ;STARTING ADDRESS OF
:;STARTING ADDRESS OF
: ;STARTING ADDRESS OF
;sSTARTING ADDRESS OF
;s STARTING ADDRESS OF
; sSTARTING ADDRESS OF
: sSTARTING ADDRESS OF
;s STARTING ADDRESS OF
:;STARTING ADDRESS OF
;s STARTING ADDRESS OF
: sSTARTING ADDRESS OF
: ;STARTING ADDRESS OF
:STARTING ADDRESS OF

SEQ 0247

TEST 17
TEST 20
TEST 21
TEST 22
TEST 23
TEST 24
TEST 25
TEST 26
TEST 27
TEST 30
TEST "31
TEST 32
TEST 33
TEST 34
TEST 35
TEST 36
TEST 37
TEST 40
TEST 41
TEST 42
TEST 43
TEST 44
TEST 45
TEST 46
TEST 47
TEST 50
TEST 51
TEST 52
TEST 53
TEST 54
TEST 55
TEST 56
TEST 57
TEST 60
TEST 61
TEST 62
TEST 63
TEST 64
TEST 65
TEST 66
TEST 67
TEST 70
TEST 71

t'.'l't.'.""""""""'l"il"l'tt.I.t"tlit'ttt'lt't"'.tt

tTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
:*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
:*AND GO TO ERRTYP ON ERROR

;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
HALT ON ERROR
;*SW15=1

;*SW13=1
;*SW10=1
s *SW09=1
s*CALL
o

INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR

ERROR

: ;ERROR=EMT AND N=ERROR ]TEM NUMBER

CZRMMAO RMO5/3/72 FCTINL TST 1

ERROR HANDLER ROUTINE

063710
063710
063712
063716
063720
063726
063734
063736

011637

001132

063752

162737

063746

001117
00i116
002000

7%:
115230
115220

001126

000002

1$:

001132

063760
063766
063774
063776
064002

117737
032777
001004
004737
104401

115146
020000

0664006
064014
064016
064024
064030
064031
064032
064034
064040
064042
064044
064046
064054
064056
064062
064066
8228;2

122737
001007
113737
004737
000
000
000777
005777
100002
000000
104410
032777
001402
013716
005737
001402
013716

000001

001242

001130
065752

064030

066074
064102
064104
064106
064106

022737
001001
000000

064006

001212

005237

000002

4
D
11-APR-80 13:04:53 PAGE 35-8

$ERROR:

104410
105237
001775
013777
032777
001402
104401

063742

MACRO v03.01

001130
115160

042346
001217

218:
22%:
2%:

115114

001000

208:

115100

3%:

001124
001210

A Y

001210

042326

000042
6%:
LSBTTL

(KSWR
INCB
BEQ
MOV
BIT
BEQ
TYPE

SERFLG
1
$STSTNM,aDISPLAY
#BIT10.3SWR
1%
$BELL

::TEST FOR CHANGE IN SOFT=-SWR
;iSET THE ERROR FLAG
:DON'T LET THE FLAG GO TO ZERO
::DISPLAY TEST NUMBER AND ERROR FLAG
::BELL ON ERROR?
SiNO = SKIP
P :RING BELL

(SP) ,SERRPC

JsGET ADDRESS OF ERROR INSTRUCTION

INC

$ERTTL

SUB

#2,$ERRPC

MOV

SEQ 0248

::COUNT THE NUMBER OF ERRORS

MOVB
BIT
BNE
JSR
TYPE

9SERRPC,SITEMB
#BIT13,3SWR
20%
PC,ERRTYP
,$CRLF

;;STRIP AND SAVE THE ERROR ITEM CODE
::SKIP TYPEOUT IF SET
;:SKIP TYPEOUTS
2260 TO USER ERROR ROUTINE

C(MPB
BNE
MOVB
JSR
.BYTE
BYTE
BR
T1ST
BPL
HALT
CKSWR
BIT
BEQ
MOV
TST
BEQ
MOV

WAPTENV,$ENV
2%
$ITEMB,21%
PC,8ATYS
0
0
22%
aSWR
38

;:RUNNING IN APT MODE
;sNO,SKIP APT ERROR REPORT
;sSET ITEM NUMBER AS ERROR NUMBER
;sREPORT FATAL ERROR TO APT

CMP
BNE
HALT
RTI
TTY

#B1T09,9SWR
4%
$LPERR, (SP)
$ESCAPE
5%
$ESCAPE, (SP)
#SENDAD ,a#42
6%

INPUT ROUTINE

::APT ERROR LOOP
;sHALT ON ERROR
1:SKIP IF CONTINUE
::HALT ON ERROR'
:sTEST FOR CHANGE IN SOFT-SWR
:LOOP ON ERROR SWITCH SET?
;:BR IF NO
;sFUDGE RETURN FOR LOOPING
;sCHECK FOR AN ESCAPE ADDRESS
S:BR IF NONE
;sFUDGE RETURN ADDRESS FOR ESCAPE
;;ACT=11 AUTO-ACCEPT?
; sBRANCH 1F NO
SIYES
: ;RETURN

tltttl"l.ttt'ittt't'tt"tt"'tt"l.tttttlt'tt'tltt"lt"!l'tti

064110
064112
064114
064116

000000
000000
000000
064117

ENABL

LSB

STKCNT .WORD
$TKQIN: .UORD
$TKQOUT: .WORD
$TKQSRT: .BLKB
$TKQEND=.

0
0
O
1

: sNUMBER OF ITEMS IN QUEUE
;s INPUT POINTER
;20UTPUT POINTER
;:TTY KEYBOARD QUEUE

.EVEN

;*TK INITIALIZE ROUTINE
s*THIS ROUTINE WILL INITIALIZE

'SETUP THE

.'CALL.

JSR

THE

TTY KEYBOARD

INPUT

INTERRUPT VECTOR AND TURN ON THE KEYBOARD

PC,STKINT

QUEUE

INTERRUPT

%%RHHAO RMO5/3/2 FCINL TST 1
Y

INPUT ROUTINE

MACRO v03.01

&
E
11-APR-80 13:04:53 PAGE 35-9

064120

005037

064110

066140
064146

012737
0127;7

064170
000200

000060
000062

000100

114772

066126
066132

012737
013737

064154

005777

064166

000207

064160

012777

064116
064112
115002

064112
064114

RETURN

$TKINT: CLR

MOV
MOV

::CLEAR COUNT OF ITEMS IN QUEUE

#STKQSRT,$TKQIN ::MOVE THE STARTING ADDRESS OF THE
$TKQIN,3TKQOUT
;:QUEUE INTO THE INPUT & OUTPUT POINTERS.

#STKSRV,a# TKVEC ..INITIALIZE THE KEYBOARD VECTOR
#200,a#TKVEC+2 ::'BR" LEVEL &

as$TKB

::CLEAR DONE FLAG

RTS

::RETURN TO CALLER

MOV

$TKCNT

#100,387KS

:;ENABLE TTY KEYBOARD INTERRUPT

;*TK SERVICE ROUTINE
;*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
:*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
:#1T IN THE QUEUE.
;*1F THE CHARACTER 1S A "'CONTROL=C'' (“C) S$TKINT IS CALLED AND
;*UPON RETURN EXIT 1S MADE TO THE '‘CONTROL=C'' RESTART ADDRESS (SHUT)
066170

066176
066200

117746

042716
021627

064204
064206
066212
0646216
066220
066224
064230
064232
0646240

001007
104401
004737
005726
000137
021627
001004
022737
001500

064242
064242
0646250
064252
064256
064260
066262
0646266
066270
066274
0646276
064302
066306

066314
066320
064322
064330
064332
066336
064342
064344
064350
064352
066356
064362

064310

114766

177600
000003

@$TKB,=-(SP)

::PICKUP THE CHARACTER

BNE
TYPE
JSR
ST
JMP
CMP
BNE
CMP
BEQ

1%
LSCNTLC
PC,STKINT
(SP)+
SHUT
(SP) ,#7
2%
#SWREG, SWR
6%

::BRANCH IF NO
S:TYPE A CONTROL=C (*C)
::INIT THE KEYBOARD
::CLEAN UP STACK
::CONTROL C RESTART
::1S 1T A CONTROL 6?
::BRANCH IF NO
2315 SOFT=SWR SELECTED?
1360 TO SWR CHANGE

CMP
BNE
TYPE
T1ST
BR
CMP
BNE
CLR
ST
1STB
BPL
MOVB

#1,8TKCNT
3%
L SBELL
(SP)+
5%
(SP),#23
328
asTKS
(SP)+
@$TKS
318
a$TKB,-(S

;1S THE QUEUE FULL"
::BRANCH IF NO
::RING THE TTY BELL
;sCLEAN CHARACTER OFF OF STACK
DIEXIT
,
::1S 1T A CONTROL-S?
::BRANCH IF NO
::DISABLE TTY KEYBOARD INTERRUPTS
S:CLEAN CHAR OFF STACK
::WAIT FOR A CHAR
::LOOP UNTIL ITS THERE
::GET THE CHARACTER

CMP
BNE
MOV
RTI
INC
CMP
BLT
CMP
BGT
BIC
MOVB
INC

(sp). :21
318
#100,3$7KS

::1S IT A CONTROL=-Q?
::BRANCH IF NO
::REENABLE TTY KEYBOARD INTERRUPTS
: *RETURN
::COUNT THIS CHARACTER
2315 IT UPPER CASE?
::BRANCH IF YES
::1S 1T A SPECIAL CHAR?
::BRANCH IF YES
::MAKE 1T UPPER CASE
::AND PUT IT IN QUEUE
::UPDATE THE POINTER

BIC
CMP

065304
064120
061766
000007

1$:

000176

001154

022737
001004
104401
005726
000451
021627
001021
005077
005726
105777
100375
117746

000001

064110

022627
001366
012777
000002
005237
021627
002405
021627
003002
042716
112677
005237

000021

042716

$TKSRV: MOVB

2%:

001212
000023

38:

114664
114656

318:

114652

177600

000100

BIC

114630

064110
000140

328:

000175

’

000040
177530
064112

4$:

#°C177,(SP)
(sP), #%

#AC177,(SP

$TKCNT
(SP),#140
4%

(SP),#175

43
#40, (SP)
(SP)+,a8TKQIN
$1KQIN

2:STRIP THE JUNK
::1S 1T A CONTROL C?

P:MAKE IT 7-BIT ASCII

SEQ 0249

CZRMMAO RMOS5/3/72 FCTINL TST 1
INPUT ROUTINE

064366
064374
064376
064404

064112

064117

064116

064112

F
&
11-APR-80 13:04:53 PAGE 35-10

5%:

CMP
BNE
MOV

RTI

SEQ 0250

gIKQlNLNSTKQEND ..GO OFF THE END?
sBRANCH IF NO
#STKQSRT,$TKQIN ,,RESET THE POINTER

ETURN

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

'SOFTUARE SWITCH REGISTER CHANGE ROUTINE.
IS ENTERED
FROM THE TRAP HANDLER, AND WILL
;*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP
; *CALL WHEN OPERATING IN TTY INTERRUPT MODE.

;*ROUTINE

064406

064414
064416
066422
064424
064430

0644 34

064440

OO0 -+—=—=00
ONS —=OO0OO0ON
—a PN NO W =N
WON
NN =N -~
OMN =S NONMNOW
ONOO =N~

TTY

MACRO v03.01

000176

001154

$CKSWR: CMP

114536

15%
asTKs

BIC
CMP
BNE

#1772, (S
(SP) 47

BPL
MOVB

114532
177600
000007

#SWREG, SWR

BNE
1ST8

158
a$TKB,=($S

;1S THE SOFT=-SWR SELECTED
JsEXIT IF NOT
::1S A CHAR WAITING?
s:iF NOT, EX1Y
S90S
7-BIT ASCII
iMAKE IT
;21S IT A CONTROL=G?
Js1F NOT, PUT IT IN THE TTY QUEUE
JsAND EXIT

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

:*CONTROL

IS PASSED TO THIS POINT FROM EITHER THE

TTY

INTERRUPT

SERVICE

;*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF

064442
064450
064452

064454

064460
064464

064472
064476
064502
064506
064510
064514
064516
064520
064524
064526
064532

064536
064542

064572
064576
064602
064604

123727
001674
005726
004737
005077

001150

064120
1146474

112737

000001

104401
104401

065316
065323
000176

013746
104402
104401

005046
005046

000001

001151

$GTSWR:

065334

105777
100375

114434

042716

117746

114430
177600

021627

000003

065304
000006
001151
000100
061766

000025

065311

: *CONTROL=G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED.
68:
CMPB
SAUTOB, #1
;sARE WE RUNNING IN AUTO-MODE?
BEQ
2%
s :BRANCH IF YES
18T
(SP)+
::CLEAR CONTROL=-G OFF STACK
PC,$TKINT
JSR
ssFLUSH THE TTY INPUT QUEUE
9$7KS
CLR
::DISABLE TTY KEYBOARD INTERRUPTS
MOvB
#1,8INTAG
s+sSET INTERRUPT MODE INDICATOR

19%:

7%:

TYPE
TYPE
MoV
TYPOC
TYPE

114366

MOvB

as$TKB, = (SP)

#°C177,(SP)

ssMAKE IT 7-BIT ASCII

CMP
BNE

(SP) ,#3
9%

CMPB

SINTAG,#1

MOV

JMP

#100,3%1kS
SHUT

::1S IT A CONTROL=-C?
: :BRANCH IF NOT
::YES, ECHO CONTROL=-C (*C)
s CLEAN UP STACK
s REENABLE TTY KEYBOARD INTERRUPTS?
: BRANCH IF NO
::ALLOW TTY KEYBOARD INTERRUPTS
: s CONTROL=C RESTART

CMP
BNE

(SP),#25
108

BNE

9%:

. SMNEW

:ECHO THE CONTROL-G (*G)
s TYPE CURRENT CONTENTS
;s SAVE SWREG FOR TYPEOUT
::60 TYPE=--OCTAL ASCIICALL DIGITS)
: :PROMPT FOR NEW SWR
;s CLEAR COUNTER
::THE NEW SWR
;s CHAR THERE?
1F NOT TRY AGAIN
s+

=(SP)
=(SP)

TYPE
ADD

8%:

. SMSWR
SWREG,=(SP)

CLR
CLR
1STB
BPL

BIC

000001

LSCNTLG

TYPE

a$TKs
7%

LJSINTLU

::PICK UP CHAR

2s1S 1T A CONTROL=-U?
;BRANCH IF NOT
JsYES, ECHO CONTROL=U (*U)

CZRMMAQ RMO5/3/2 FCTNL ST 1
INPUT ROUTINE

064610
064614

000006

20%:

064616
064622
064624

000015

10%:

064742
064746

000100

114272

063066
000060

000667
104401

000720

CMP

;318 1T A <CR>?
s sBRANCH IF NO

;sLET'S TRY IT AGAIN

BNE
18T
BEQ

J3YES,

15%:
16%:

BNE
MOV

17%:

001216

18%:
.DSABL

:;RE=ENABLE

:;RETURN
;sECHO CHAR

PC,S$TYPEC
(SP) ,#60
18%
(SP)
, w67
18%

::CHAR < 0?
s sBRANCH IF

YES

20%

;sSIMULATE CONTROL=U

=2(SP), (SP)

. SQUES

INTERRUPTS

s:STRIP=-0OFF ASCII
+31S THIS THE FIRST (HAR
; sBRANCH IF YES
siNO, SHIFT PRESENT
CHAR OVER TO MAKE
33
ROOM FOR NEW ONE.
;sKEEP COUNT OF CHAR
;iSET IN NEW CHAR
ssGET THE NEXT ONE

(S P)

7%
SP
SP
SP
(S )

INC
BIS
BR
TYPE
BR
LSB

TTY KBD

::CHAR > 7?
;sBRANCH IF YES

#60, (SP)+

ASL
ASL
ASL

CHAR?

s sRE=ENABLE TTY KBD INTERRUPTS?
s sBRANCH IF WNOT

#100,38TKS

RTI
JSR
CMP
BLT

BGT

177776

THE FIRST

YES

:2ECHO <CR> AND <LF>

BIC
TST
BEQ

000002

s sSAVE NEW SWR
;sCLEAR UP STACK

MOv
ADD
TYPE

CMP

000060
000002

s sBRANCH IF

CMPB

000067

042726
005766
001403
006316
006316
006316
005266
056616

: IGNORE PREVIOUS INPUT

000001

114314

ADD

NI~ ~—a N

064710
064714
064720
064722
064724
064726
064730
064734
064740

000002
000006
001217
001151

LS —»
L
4

000004

064630
064632
064640
064644
064650
064656
064660
064666

064670
064674
064700
064702
064706

4
6
11-APR-80 13:04:53 PAGE 35-11

SEQ 0251

TTY

MACRO v03.01

JsTYPE

?2<CR><LF>

2222222222222

22222227

;*THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY
s*CALL:

:®

RDCHR

RETURN HERE

064750
064752
064760
064764
064766
064772
064774
064774
065000
065002
065006
065014
065020
065026
065030

011646
016666

000004
000004

000002

$SRDCHR:

064774
64%:

064110
064110
177102
064114
064114
064116

1%:

MOV
MOV
CLR
CLR
MOV

(SP) ,=(SP)
4(SP),2(SP)
4(SP)
-(SP)
#64%,-(SP)

TST

$TKONT

;:WAIT ON A CHARACTER

@$TKQOUT,4
(SP)

: :DECREMENT THE COUNTER
::GET ONE CHARACTER
: sUPDATE THE POINTER

RT]

BEQ
DEC

000004

- MOVB

064117

CMP
BNE
MOV

064114

s:GET A CHARACTER FROM THE QUEUE
: s CHARACTER IS ON THE STACK
;:WITH PARITY BIT STRIPPED OFF

INC

1%
$TKCNT

:sPUSH DOWN THE PC

;s THE
;.GET
;sPUT
:sPUT

;:POP NEW PC AND PS

$TKQOUT
S;KQOUT.ISTKQEND ::DID IT GO OFF OF
2
: sBRANCH IF NO
#STKQSRT ,$TKQOUT

AND

PS
READY FOR A CHARACTER
NEW PS ON STACKNEW PC ON STALK

;;RESET

THE POINTER

THE END?

CZRMMAQ RMO5/3/2 FCTNL TST 1

TTY

INPUT ROUTINE

065036

MACRO v03.01 11-APR-80 13:04:53 PAGE 35-12

000002

2%:
e

RTI

2222222222222

; sRETURN

2222222222

SEQ 0252
2R

**THIS ROUTINE WILL INPUT A STRING FROM THE TTY

s*CALL:

o*
M

065040

010346

065042
065044
065050
065054
065056
065060
065062
065066
065070
065072
065074
065102
065106
065112
065114
065120
065122
065126
065132
065134
065136
065140
065146
065152
065154
065160

005046
012703
022703
101456
104411
112613
122713
001022
005716
001907
112737
104401
012716
005303
020327
103434
111337
104401
000746
005716
001406
112737
104401
005016
122713
001003

5166

000726

065162

065170
0651764
065176
065200
065204
065210
065212
065216
065220
065226
065230
065234

065236

SRDLIN: MOV
065274
065304

1%:
2%:

000177

10%:

000134
065272
177777

065272
065272

5%:
000134
065272

000025

065311

122713
001011
105013
104401

000022

105063

8%:

4%:

065272
065272
000015

3%:

065262
065270

012766
000002

065274

000004

000002
000004

R3,=-(SP)

-(SP)
#STTYIN,R3
#STTYIN+8.,R3
4%
(SP)+,(R3)
#177,(R3)
5%
(SP)
6%
#'\,9%
,9%
#-1,(SP)
R3
R3, #STTYIN
4%
(R3),9%
,9%
2%
(SP)
7%
#'\,9%
,9%
(SP)
#25,(R3)
8%

LOCNTLU

CMPB
BNE
CLRB
TYPE
TYPE
BR
TYPE
BR
MOVB
TYPE
CMPB
BNE

#22,(R3)
3%
(R3)
LSCRLF
$TTYIN
$
,$QUES
1%
(R3),9%
.9%
#15,(R3)+
2%

TYPE
187

LOLF
(SP)+

CLRB

177777

001220

CLR
MOV
(MP
BLOS
RDCHR
MOVB
(MPB
BNE
T1ST
BNE
MOVB
TYPE
MOV
DEC
CMP
BLO
MOvVB
TYPE
BR
1ST
BEQ
MOVB
TYPE
CLR
CMPB
BNE

TYPE

001216

104401
005726

012603
011646
016666

7%:

001217
065274

065242
065246

065250
065252
065254

6%:

065274

104401

104401
122723
001305

RDLIN
RETURN HERE

MOV
MOV
MOV

MOV
RTI

=1(R3)

(SP)+,R3
(SP) ,-(SP)
4(SP),2(SP)

#STTYIN,L(SP)

RRRRRRR

iRl

;2 INPUT A STRING FROM THE TTY
::ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
::TERMINATOR WILL BE A BYTE OF ALL 0°'S

::SAVE R3

:;CLEAR THE RUBOUT KEY
;sGET ADDRESS
;;BUFFER FULL?
;sBR IF YES
;260 READ ONE CHARACTER FROM THE TTY
::GET CHARACTER
;1S 1T A RUBOUT
::BR IF NO
::1S THIS THE FIRST RUBOUT?
::BR IF NO
::TYPE A BACK SLASH
::SET THE RUBOUT KEY
: ;BACKUP BY ONE
::STACK EMPTY?
::BR IF YES
::SETUP TO TYPEOUT THE DELETED (HAR.
::6G0 TYPE
::6G0 READ ANOTHER CHAR.
:;RUBOUT KEY SET?
;sBR IF NO
:sTYPE A BACK SLASH

;:CLEAR THE RUBOUT KEY
::1S CHARACTER A CTRL U?
;:BR 1F NO

::TYPE A CONTROL 'V
::60 START OVER

::1S CHARACTER A '"R'7?
::BRANCH IF NO
;:CLEAR THE CHARACTQR

:sTYPE A "'CR" & "'LF'
;:TYPE THE INPUT STRING
::6G0 PICKUP ANOTHER CHACTER
:sTYPE A '
::CLEAR THE BUFFER AND LOOP
:;ECHO THE CHARACTER
;:CHECK FOR RETURN
::LO0P IF NOT RETURN

:;CLEAR RETURN (THE 15)

:sTYPE A LINE FEED
::CLEAN RUBOUT KEY FROM THE STACK
:RESTORE R3
::ADJUST THE STACK AND PUT ADDRESS OF THE
FIRST ASCI1 CHARACTER ON I
::
::RETURN

%%cflflAO RMO5/3/2 FCINL TST
INPUT ROUTINE

MACRO v03.01

— N

[0 A WELN LV LV ]

-t OO0

11-APR-80 13:04:53 PAGE 35-13

9%:
OO
— it s
;s —=ONNO
o
NIWN

000
000

065272
065273
065274
065304
065311
065316
065323
065334

$TTYIN:
SCNTLC:
SCNTLU:
SCNTLG:
$MSWR :

$SMNEW:

LSBTTL

BYTE
BYTE

.BLKB
LASCIZ
.ASCIZ
.ASCIZ
ASCIZ

ASCIZ

0
0

8.
/7*C/7<15><12>
/7*U/<15><12>
/*G/<15><12>
<15><12>/SuWR

SEQ 0253

;sSTORAGE FOR ASCII CHAR. TO TYPE
;s TERMINATOR
ssRESERVE 8 BYTES FOR TTY

;sCONTROL ''C"'

INPUT

::CONTROL ''U"'
:sCONTROL ''G"'

NEW =/

READ AN OCTAL NUMBER FROM THE

TTY

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

;*THIS ROUTINE WILL READ AN OCTAL
:*CHANGE IT TO BINARY.

s*CALL:

065346
065350
065356
065360
065362
065364
065366
065370
065372
065374
065376
065400
065402
065404
065406
065410
065412
065414
065420

065446

6662

006301
006102
006301
006102
006301
006102
042716
062601
000764
005726
010166
010237
012602
012601
012600
000002
000000

000004

000002

BEQ

177770

000012
065446

ADD

(SP)+ ,R1

MOV
MOV
MOv
MOV

R2,$HIOCT
(SP)+ ,R2

RTI

.WORD

::PROVIDE SPACE FOR THE
;s INPUT NUMBER

;:PUSH RO ON STACK
:sPUSH R1 ON STACK
:sPUSH R2 ON STAC(K
:sREAD AN ASCIZ LINE
::GET ADDRESS OF 1ST CHARA(CTER
;:CLEAR DATA WORD
;:PICKUP THIS CHARACTER
::1F ZERO GET OuT
"2
L)

:.*8

#C7,(SP)

1ST
MOv

$HIOCT:
LSBTTL

(SP)+,RO
R1
R2
(RO)+,=(SP)
R1
R2
R1
R2
R1
R2

BIC
3%:

(SP),=(SP)

4&(SP),2(SP)
RO,=(SP)
R15=(SP)
"
R2,=(SP)

ASL
ROL
ASL
ROL
ASL
ROL

TTY AND

;sREAD AN OCTAL NUMBER
::LOW ORDER BITS ARE ON TOP OF THE STA(K
;sHIGH ORDER BITS ARE IN $HIOCT

RDOCT
RETURN HERE

$RDOCT: MOv
MOv
MOv
MOv
MOv
1%:
RDLIN
MOv
CLR
CLR
MOvB
2%:

(ASCII) NUMBER FROM THE

;+STRIP THE

ASCII

JUNK

;ADD IN THIS DIGIT
;.LO0P

;:CLEAN TERMINATOR FROM STAC(K
;sSAVE THE RESULT

(SP)+
R1,12(SP)

;sPOP STACK INTO R?2
2:POP STACK INTO R1

(SP)+,R1

(SP)+,RO

2sPOP STACK
: RETURN

INTO RO

;sHIGH ORDER BITS GO HERE

TRAP DECODER

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

;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF

THE ‘'TRAP'' INSTRUCTION

s*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*OF

THE DESIRED ROUTINE.

;*G0 TO THAT ROUTINE.
065450
065454

016646
042716

000002
000020

$TRAP:

MOV

BIC

THEN USING THE ADDRESS OBTAINED

2(SP),=(SP)

#20, (SP)

1T WiLL

s sASSUME THE STATUS OF
:: THE CALLER==DO NOT ALLOW

CZRMMAQ RMO5/3/2 FCINL TST

TRAP DECODER

065460
065464
065466
065470
065474
065476
065500
065502
065506

MACRO v03.01

&
J
11-APR=80 13:04:53 PAGE 35-14

SEQ 0254

012746
02

065466
1%:

000002

MOV
RTI
MOV

MOV

TST

MovBe

ASL
MoV
RTS

065522

#1%,-(SP)

RO,=(SP)
2(SP),RO

=(R0O)
(RO),RO

RO
$TRPAD(RO)
,RO
RO

;s T-BIT TRAPS
ssSET THE NEW STATUS
;sSAVE RO
;:GET TRAP ADDRESS

: ;BACKUP BY 2
;:GET RIGHT BYTE OF TRAP
;:POSITION FOR INDEXING
;;INDEX TO TABLE
::60 TO ROUTINE

;s THIS 1S USE TO HANDLE THE "'GETPRI'' MACRO
011646
016666
000002

000004

000002

$TRAPZ2: MOV
MOV
RTI

.SBTTL

(SP) ,=(SP
4(SP).2(SP)

::MOVE THE PC DOWN
::MOVE THE PSW DOWN
:sRESTORE THE PSW

TRAP TABLE

;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF

;*BY THE ''TRAP'' INSTRUCTION.

THE ROUTINES CALLED

ROUTINE

$TRPAD:

.WORD
$TYPE
$TYPOC
$TYPOS
$TYPON
$TYPDS
$TYPBN

$TRAP2
s CALL=TYPE
;;CALL=TYPOC
;;CALL=TYPOS
;;CALL=TYPON
;;CALL=TYPDS
;;CALL=TYPBN

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)
TRAP+6(104406)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)
TYPE BINARY (ASCII) NUMBER

;;CALL=GTSWR

TRAP+7(104407)

GET SOFT=-SWR SETTING

065522
065524
065526
065530
065532
065534
065536

065510
062654
062452
062426
062466
062202
062126

065540

064476

SGTSWR

065542
065544
065546
065550
065552
‘s 065554

064406
064750
065040
065346
062032
062070

SCKSWR
;;CALL=CKSWR
TRAP+10(104410) TEST FOR CHANGE IN SOF T-SWR
SRDCHR
; ; CALL=RDCHR
TRAP+11(104411) TTY TYPEIN CHARACTER ROUTINE
SRDLIN
;;CALL=RDLIN
TRAP+12(104412) TTY TYPEIN STRING ROUTINE
SRDOCT
;;CALL=RDOCT
TRAP+13(104413) READ AN OCTAL NUMBER FROM TTY
$SAVREG ;;CALL=SAVREG
TRAP+14(104414) SAVE RO-R5 ROUTINE
SRESREG ;;CALL=RESREG
TRAP+15(104415) RESTORE RO-R5 ROUTINE
POWER DOWN AND UP ROUTINFS

.SBTTL

000024
000026

000

AAEA 222222l
2R
R
0]

POUER DOWN ROUTINE

$PWRDN: MOV

MOV

000024

#SILLUP,Q#PWRVEC

RO,=(SP)
R1,-(SP)
R2.=(SP)

MOV

R4 ,=(SP)

MOV
MOv
MOv

MOV
HALT

;;SET FOR FAST UP

#340,3#PWRVEC+2 ;:PRIO:7

MOV
MOV
MOV

MOV

°°~°N°°8°O°NN
o~

065626

[=i{=i=l=l=lelelelelelele]"]
OO 4t 2t
2 s a h s

R3,-(SP)

:sPUSH RO ON STACK
::PUSH R1 ON STACK
:;PUSH R2 ON STACK

::PUSH R3 ON STACK

:sPUSH R4 ON STACK

RS,=(SP)
ASWR, = (SP)
SP,$SAVRG

:;PUSH RS ON STACK
..PUSH aSWR ON STACK
:SAVE SP

: :HANG UP

#SPURUP,Q#PWRVEC" :;SET UP VECTOR

CZRMMAO RMO5/372 FCINL TST 1

POWER DOWN AND UP ROUTINES

MACRO v03.01

AR A

065630

013706
005037
005237
001375
012677
012605

065664
065666
065670
065672
065674
065702
065710
065712
065714
065716
065720
065722
065724

012603
012602
012601
012600
012737
012737
104401
065724
000002
000000
000776
000000
015

065662

012737

065636
065662
065646
065652
065656
065660

065716

065722
065722
065722

000024

113274

012604

112737

112737
000403
112737

065770
065772
066000
066002
066010
066012
066016
066026
066030
066032

010046
010146
105737
001450
122737
001031
132737
001425
017600
062766
005737
001375
010037

066040
066042
066046
066050
06605¢
066062
066064
066072

001376
163700
006200
010037
012737
000413
017637
062766

066106

004737

066036

066100

105720

013746

000024
000026
$SPWRMG:
SILLUP:

012

120

000001

$SAVRG:
$POWER:

066176

066200

$ATY1:

000001

066200

$ATY4:
SATYC:

SATY3:

066176
001242

000100

001243

000004
000002
001222

000004

001236

18:

28:

001236
001240
000004

001222

000004
000002

066110
000004

177776

062654

SEQ 0255
R

222222222222

22%;

#SILLUP,Q#PWRVEC ;;SET FOR FAST DOWN

$SAVR6, SP
$SAVRG
$SAVRE
18
(SP)+,aSWR
(SP)+,RS

MOV
MOV
MOV
MOV
MOV
MOV
TYPE
.WORD
RT]
HALT
BR
0
'?sgfil

(SP)+,R3
::POP STACK INTO R3
(SP)+,R2
::POP STACK INTO R2
(SP)+,R1
::POP STACK INTO R1
(SP)+,R0
::POP _STACK INTO RO
#SPWRON,a#PWRVEC ;;SET UP THE POWER DOWN VECTOR
#360,3#PURVEC+2 ;;PRIO:7
:REPORT THE POWER FAILURE
$POWER
:sPOWER FAIL MESSAGE POINTER

(SP)+,Ré4

=2
<15><12>"'POWER""

;:GET SP
::WAIT LOOP FOR THE TTY
::WAIT FOR THE INC
::0F
WORD
::POP STACK INTO @SWR
::POP STACK INTO RS

::POP STACK INTO Ré4

:;THE POWER UP SEQUENCE WAS STARTED
;; BEFORE THE POWER DOWN WAS COMPLETE
::PUT THE SP HERE

.EV

APT COMMUNICATIONS ROUTINE

':ttt't"ttt'!t"t't""t""t"tt.tttt't't'tttt.tt."t'til'tttt'

000001

MOV
CLR
INC
BNE
MOV
MOV

MOV

065556
000340

$PWRUP: MOV

.SBTTL

065734

‘POWER UP ROUTINE

18:

065742
065750
065752
065760
065760
065762
065764

11-APR-80 13:04:53 PAGE 35-15

3%:

MOVB

#1,$FFLG

;:T0 REPORT FATAL ERROR

MOVB
G
MOVB

#1,$MFLG
SATY(
#1,$FFLG

;70 ONLY REPORT FATAL ERROR

MOV
MOV
ISTB
BEQ
CMPB
BNE
BITB
BEQ
MOV
ADD
1ST
BNE
MOV

RO,=(SP)
R1,-(SP)
SMFLG
5¢
WAPTENV,SENV
3
NAPTSPOOL,SENVM
38
34 (SP) RO
#2,4(SP)
SMSGTYPE
18
RO, SMSGAD

:;PUSH RO ON STACK
::PUSH R1 ON STACK
::SHOULD TYPE A MESSAGE?
::1F NOT:
BR
;;OPERATING UNDER APT?
::1F NOT:
BR
;:SHOULD SPOOL MESSAGES?
::1F NOT:
BR
::GET MESSAGE ADDR.
;;BUMP RETURN ADDR.
;:SEE 1F DONE W/ LAST XMISSION?
$:1F NOT:
WAIT
::PUT ADDR IN MAILBOX

BNE
SUB
ASR
MOV
MOV
BR
MOV
ADD

2%
$MSGAD RO
RO
RO, $MSGLGT
#4,SMSGTYPE
5¢
34 (SP) 48
#2,4(SP)

JSR

PC,STYPE

1STB

MOV

(RO)+

179776,-(SP)

::T0 TYPE A MESSAGE

:;FIND END OF MESSAGE

;:SUB START OF MESSAGE
s:GET MESSAGE LNGTH IN WORDS
::PUT LENGTH IN MAILBOX
;:TELL APT TO TAKE MSG.

:;PUT MSG ADDR IN JSR LINKAGE
: :BUMP RETURN ADDRESS

;;PUSH 177776 ON STACK
::CALL TYPE MACRO

CZRMMAQ RMOS5/3/ 2 FCINL TST 1

APT

COMMUNICATIONS ROUTINE

066110
066112
066112
066116
066120
066126
066126
066132
066134
066142
066150
066154
066160
066164
066170
066172
066174
066176
066177
066200

SEQ 0256

000000
105737
001416
005737
001413
005737
00137%
017637
062766
005237
105037
105037
105037
012601
012600
000207
000
000
000
000200
000001
000100
000040

48:
5%:
108:

066200
001242
001222

000004
100002
0C1222
066200
066177
066176

MACRO v03.01 11-APR-80 13:04:53 PAGE 35-16

118:

001224
000004
12%:

SMFLG:
SLFLG:
$FFLG:

.WORD

1STB
BEQ
TST
BEQ
TST
BNE
MOV
ADD
INC
CLRB
CLRB
CLRB
Mov
MOV
RTS
.BYTE
.BYTE
.Evgs

$FFLG
12%
SENV
12%
SMSGTYPE
11%
a4(SP) ,SFATAL
#2,4(SP)
$MSGTYPE
$FFLG
SLFLG
SMFLG
(SP)+ R
(SP)+,RO
PC
0
0
0

£V

APTSIZE =
APTENV
=
APTSPOOL=
APTCSUP =

200
001
100
040

: s SHOULD REPORT FATAL ERROR?
::1F NOT:
BR
: sRUNNING UNDER APT?
::1F NOT:
BR
ssFINISHED LAST MESSAGE?
so1F NOT:
WAIT
;;GET ERROR #
; :BUMP RETURN ADDR.
::TELL APT TO TAKE ERROR
;s CLEAR FATAL FLAG
::CLEAR LOG FLAG
+sCLEAR MESSAGE FLAG
::POP STACK INTO R1
::POP STACK INTO RO
: sRETURN
: sMESSG. FLAG
::L0G FLAG
. FATAL FLAG

(ZRMMAQ RMO5/3/2 FCTNL TST 1

- CONSOLE MESSAGES

MACRO v03.01

3 066202

075

000

5 066211
6 066215
7 066220
8 066251
9 066251
10 066304
11 066337

040
054
200

077
040
124

040
000
131

200
200
200
040
126
040
102
040
200
200
200
200
040
200
104
040
040

103
125
102
114
105
114
122
114

110
123
125
111
103
111
040
111

124
101

131
116

077
104
122
1
116
116
T
117

111
122
111
123
117
117
106
116

& 066204

12
13
14
15
16
17
18
19

066355
066417
066437
066473
066505
066536
066537
066624
20 066701
21 066702
22 066723
23 066737
24 066745
25 066765

26 067002
27 067021
gg 067033
30
3

101

040
040
040

114

11-APR-80 13:04:53 PAGE 36

.SBTTL

CONSOLE MESSAGES

EQUALS:

.ASCIZ

ALL:

ASCIZ

QUES:
.ASCIZ
COMMA:
.ASCIZ
MSHELP: .ASCIZ
UBUSQST:
JASCIZ
CNSLOO. .ASCIZ
CNSLO1: .ASCIZ
C(NSLO2:
CNSLO3:
CNSLO4:
CNSLOS:
CNSLO6:
CNSLO7:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCI]
ASCII
LASCIZ
.ASCI]
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

CNSLOB:
CNSLO9:
MSDRVS:
MSGDRV:
LODEV:
NOTPRS:
NOTAVL: .ASCIZ
OFFLIN: .ASCIZ
ONLINE: .ASCIZ
.EVEN

@a=a

SALLA<CRLF>

@ ? @
@, @
<CRLF>aTYPE HELP TEXT (Y/N) ? @
<CRLF>3CHANGE ADDRESSES (Y/N) ? @
<CRLF>QUSE SAME DEVICES (Y/N) ? 3
<CRLF>3BUS ADDRESS @
@ LIMITS = LO= 160000, HI= 17XXXX@<CRLF>
@VECTOR ADDRESS @
@ LIMITS = LO= 0, HI= 10009<CRLF><LF>
@BR LEVEL @
@ LIMITS = LO= 0, Hl= 79<CRLF><LF>
<CRLF>
<CRLF>@TYPE "'A"* TO TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S)a
<CRLF>3AND TERMINATE INPUT WITH A CARRIAGE RETURN.3
<CRLF>
@ ?ILLEGAL INPUT@<CRLF>
<CRLF>/DRIVE(S): /
/DRIVE/
/ 1S LOAD DEVICE/
/ NOT PRESENT/

7 #%OT AvAILABLE/
7 OFF LINE/
/ ON LINE /

SEQ 0257

CZRMMAD RMO5/3/2 FCTNL TST 1
S NWNV—=OOVONO
VNN =O OV~
VSN —

FUNCTION CODE TABLE

N
&
11-APR-80 13:04:53 PAGE 37

MACRO v03.01

SEQ 0258

.SBTTL

FUNCTION CODE TABLE

s THE FUNCTION CODE TABLE

:EACH FUNCTION CODE.

IS USED TO DEFINE STATUS CONDITIONS FOR

BIT USAGE 1S AS FOLLOWS:

ATA = BIT 15 IS SET_IN THE ENTRY FOR A GIVEN FUNCTION CODE

;1F _ATA SHOULD BE SET WHEN THE FUNCTION CODE 1S EXECUTED, OTHERWISE,

PORUONUNUND
o
o ccld
o o il o s

:BIT 15 IS ZERO, INDICATING THAT ATA SHOULD NOT NORMALLY BE SET.
:NOTE THAT ATA MAY BE SET WHEN A COMMAND IS EXECUTED EVEN THOUGH
;1T 1S NOT EXPECTED AS
A RESULT OF THE COMMAND.

WCE = BIT 14 1S SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
lF WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND.

OP] = BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

IF OP1 ERRORS ARE ENABLED DURING THE EXECUTION OF
IF

THAT COMMAND.

IvC = BIT 12 1S SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

IVC ERRORS ARE ENABLED DURING THE EXECUTION OF

THAT COMMAND.

WLE = BIT 11 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
IF WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND .

:THE WRITE ERRORS WHICH ARE ENABLED ARE "MLE",

"MCF'',

"DPE",

‘UPE".

IAE = BIT 10 IS SET IN THE ENTRY FOR A GIVEN FURCTION CODE

INVALID ADDRESS ERROR 1S ENABLED FOR THAT COMMAND.

AOE = BIT 09 1S SET IN THE ENTRY FOR A GIVEN FUNCTION CODE

:1F READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THE
:COMMAND.
THE ERRORS ENABLED BY THIS EIT ARE ''TRE'', "'DLT"', "'NEM",
SMXF', LBT'', AND '‘AOE'.

:
lF

BIT 08 IS NOT USED.
HCE = BIT 07 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
HEADER ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.

:HEADER ERRORS INCLUDE ''MCRC'', "MCE'', '‘FER'* AND 'BSE'"'.

ECH = BIT 06 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
lF DATA FIELD ERRORS ARE ENABLED DURING THE EXECUTION OF THAT
:COMMAND.
THESE ERRORS INCLUDE 'MDPE'’, 'DCK'', AND ''ECH'.

BIT 05 1S NOT USED.

BIT 04 IS NOT USED.

BIT 03 IS NOT USED.

BIT 02 IS NOT USED.

BIT 01 IS NOT USED.

22 067046
57 067046

ILF = BIT 00 IS SET

FNCDTB:

020000

.WORD

THE FUNCTION CODE

IS ILLEGAL.

;FUNCTION CODE

OP]

JNCP

TABLE

" CZRMMAQ RHOS/S/% FCTNL TST 1
FUNCTION CODE TABLE

58 067050
59 067052
60 067054
61 067056
62 067060
63 067062
64 067064
65 067066
66 067070
67 067072
68 067074
69 067076

70 067100
71 067102
72 067104
73 067106
764 067110
75 067112
76 067114
77 067116
78 067120
79 067122
80 067124
81 067126
82 067130
83 067132
84 067134

85
86
87
88

067136
067140
067142
067144

130001
132000
130000
020000
030000
130000
130000
020000
020000
130001
130001
132000

130001
130001
130001
130001
130001
130001
130001
073300
073300
130001
130001
037200
037000
130001
130001

033300
033300
130001
130001

MACRO v03.01 11-APR=80 13:04:53 PAGE 37-1
.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

SEQ 0259

OPI!ATA!ILF!IVC
ATA!OPI!IVC!IAE
ATA!OPI!IVC
OPI
OPI!IVC
OPI'!ATA!IVC
OPI!ATA!IVC
OPI
OPI
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
ATA!OPI!IVC!IAE

;ILLEGAL FUNCTION (2)
: SEEK
;RECALIBRATE
;DRIVE CLEAR
sRELEASE
sOFFSET
sRETURN TO CENTERLINE
sREAD IN PRESET
+PACK ACKNOWLEDGE
sILLEGAL FUNCTION (24)
;ILLEGAL FUNCTION (26)
s SEARCH

OPI!IVC!IAE'!AOE''HCE'ECH
OPI!IVC!IAE'!AOE'HCE'ECH
OPI!ATA!ILF!IVC
OPI'ATA!ILF!IVC

;READ DATA
;READ HEADER AND DATA
;ILLEGAL FUNCTION (74)
s ILLEGAL FUNCTION (76)

CPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!'ATA!ILF!IVC
OPI!'ATA!ILF!IVC
OPI'!ATA!ILF!IVC
WCE!OPI'!'IVC!IAE'!AOE'HCE'!ECH
WCE!OPI'!'IVC!IAE'!AOE'HCE'ECH
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!IVC!WLE'!IAE'AOE'HCE
OPI!IVC!WLE!'IAE'AOE
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC

;ILLEGAL FUNCTION (32)
sILLEGAL FUNCTION (34)
s ILLEGAL FUNCTION (36)
s ILLEGAL FUNCTION (40)
;ILLEGAL FUNCTION (42)
;ILLEGAL FUNCTION (44)
sILLEGAL FUNCTION (46)
sWRITE CHECK DATA
sWRITE CHECK HEADER AND DATA
;ILLEGAL FUNCTION (54)
;ILLEGAL FUNCTION (56)
:WRITE DATA
;WRITE HEADER AND DATA
:JILLEGAL FUNCTION (64)
;ILLEGAL FUNCTION (66)

- CIRMMAQ RMO5/3/2 FCTINL TST 1
" ATTENTION

(ATA)

TABLE

3 067146

001

002

7 067152

020

8 067153
9 067154
155

004
010
040
100
200

11-APR-80 13:04:53 PAGE 38

LSBTTL

& 067147

S 067150
6 067151

MACRO v03.01

ATNTBL:

ATTENTION (ATA)

.BYTE

.BYTE
.BYTE

&,
8.

BYTE
.BYTE
.BYTE

32,
64.
128,

.BYTE

16.

TABLE

SEQ 0260

CZRMMAO RMO5/3/2 FCTNL TST 1

DATA PATTERN TABLE

]

3 067156
067156
067160
067162
067164
067166
067170

11 067172
12 067176

13 067176

14
15
16
17
18
19

067200
067202
067204
067206
067210
067212

20 067214
21 067216
22 067220
23 067222
24 067224
25 067226
26 067230
27 067232
28 067234
29 067236
30 067240
31 067242
32 067244
33 067246
34 067250
35 067252
36 067254
37 067256
38 067260
39 067262
40 067264

41
42
43
4,
45
46

067266
067270
067272
067274
067276
067300

SEQ 0261

DATA PATTERN TABLE

RGDTPT:

000000
000001
000003
000007
000017
000037

MIXED:

000077
000177

000377

000002
000004
000010
000020
000040
000100

.WORD
WORD
.WORD
WORD
WORD
.WORD

ONES:

ZEROS:

0.
1.
3.
7.
15.
31.

‘WORD
WORD

63,
127

.WORD
WORD
WORD
"WORD
"WORD
.WORD

511,
1023.
2047.
4095.
8191,
16383.

.WORD

000777
001777
003777
007777
017777
037777

077777
177777
177777
077777
037777
017777
007777
003777
001777
000777
000377
000177
000077
000037
000017
000007
000003
000001
000000
000000
000001

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

255.

32767.
65535
65535
32767.
16383,
8191.
4095.
2047.
1023.
511.
255.
127.
63.
31.
15.
7.
3.
1.
0.
0.
1.

47 067302
4«8 067304
49 067306

000200
000400
001000

‘WORD
.WORD
'WORD

2.
4.
8.
16.
32.
64.
128,
256.
512.

51
52
53
54
55
56
57

004000
010000
020000
040000
100000
100000
040000

‘WORD
'WORD
.WORD
WORD
'WORD
.WORD
‘WORD

2048.
4096.
8192.
16384.
32768.
32768.
16384.

50 067310 002000
067312
067314
067316
067320
067322
067324
067326

11-APR-80 13:04:53 PAGE 39

.SBTTL

& 067156

§
6
7
8
9
10

MACRO v03.01

"WORD

1024.

CZRMMAO RMO5/3/2 FCTINL TST 1

DATA PATTERN TABLE

MACRO v03.01

SEQ 0262

58 067330
59 067332
60 067334
61 067336
62 067340
63 067342
64 067344
65 067346
66 067350
67 067352
68 067354
69 067356
70 067360

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

76
75
76
77
78

177776
177774
177770
177760
177740

.WORD
.WORD
.WORD
.WORD
.WORD

177600
177400
177000
176000
174000
170000
160000
140000
100000
000000
000000
100000
140000
160000
170000
174000
176000
177000
177400
177600
177700
177740
177760
177770

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

71 067362
72 067364
73 067366

067370
067372
067374
067376
067400

79 067402

80 067404
81 067406
82 067410
83 067412
84 067414
85 067416
86 067420
87 067422
88 067424
89 067426
90 067430
91 067432
92 067434
93 067436
94 067440
95 067442
96 067444
97 067446
98 067450
99 067452
100 067454
10 067456
102 067460
103 067462

104
105
106
107
108
109
110
111
112
113
114

067464
067466
067470
067472
067474
067476
067500
067502
067504
067506
067510

000001
000000
177777

.WORD
«WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

.WORD
.WORD
.WORD

177700

177774
177776
177777
125252
152525
125252
177777
177776
177775
177773
177767

11-APR=-80 13:04:53 PAGE 39-1

.WORD

EARLY:

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

8192.
4096.
2048.
1024.
512.
256.
128.
64.
32.
16.
8.
4
2.

1.
0.
65535.
65534.
65532.
65528.
65520.
65504.
65472,
65408.
65280.
65024.
64512.

63488.

61440.
57344,

49152,
32768.
0.
0.
32768.

49152.
57344,
61440.
63488.
64512,
65024.
65280.
65408.
65472.
65504.
65520.
65528.
65532.
65534.
65535.
43690.
43690./2
43690.
65535.
65534.
65533.
65531.
65527

y—|eXVS—T7yAL—=BT—LTeA==—o—o——e—ei-et-ee(eDDeleieoiooeleodalabeLl
gTgOGGTN—V_COAONT—N_ROS—TN_MgDAATOTyN—N0OS_VOgANRSO—qNO0gA—ONORNMVAg—NONASO0NTMANAONRVANI0MNOANMNMMAITNNOMTCANNMVNOOMVNONMVeNOONNOMAVIDTNMNVSTOOIANoROVONNT—SOGMVNNONeSAVMNITeSNNAMOMONIeJNOONOeNISOMNNeNITVOSeOINWMO=O VeAPOVO=eMNONVAOOoONGN=IOOF
DATA PATTERN TABLE

CZRMMAO RMO5/3/2 FCTINL TST 1

145

MACRO v03.01
f
11-APR =80 13:04:53 PAGE

ENRGDT:

5
39-2
SEQ 0263

.SBTTL

ERROR MESSAGE TABLE

EMTY:

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

EMTS4:

EMT61:

i£

EMT62:

EMT67:

EMTES:

EMT66:

. EMS10,0
EMSS

EMS167 ,EMS64 0

EMS110,EMS170,0

5
. EMS3
EMS11.EMS3S
EMS11.EMS36.EMS3
. EMS3
EMS11.EMS37
EMS11.EMS4L0.EMS3
EMS11.EMS41.EMS3
EMS11.EMS42.EMS3
L3
. EMS30
EMS11.EMS4
EMS11.EMS44
. EMS30.,
EMS11.EMS4S.EMS30.
EMS66.EMS20.0

=lelolelelolelelelolelelelelelelele)]

OCOO0O0O0OODOOONNOO~N

4. EMS3

NEEEEEEEEEEEEEE

MS15,EMS16,0

NNV

WWNWWNONONONNON
O — —
WM = OSSN
=
0

EMS7,0

Ems10,0
—

—a

o
e
e
e

EMTS3:

—s

— et NINNN

OO
—

LW NN
- N

L T

—

e et
= L= E PP Y - ]

OMNNLNNNINNNNONNNIN
= = NN
—

oD
NN

EMT

EMT64:

NNOON

OO OWV

VIWVAROWY

(== OO

W VIPORY

NN N =t e et

YNNI

NNNNNONNNNNNNNNNOONNNNNNNNNNNNNNNNNNNNY
o000 00O
WVSOOoOOo ooV
VATV
WAL
VRO O R =t yO & =
s = RN NONO O VNN S S
NN — = = OO O
3O 2 NN B b it it L
| b =t b b s Y N O = N O O WO VIR NN O NI O 8~ — O WD
NN —_0

NN OO0

el
eyYelelele l
P elelelelelelelelele Ll Jelelelelelelelelelelelelelelelelel=l={=

NNNNNNNNNNNN

[elelelelelelelelelelele]

140

146

NNNNN S =0 NONNWVWONOO—=NOWSHoONNN

mmmm m

EZE=ZT=Z= =

EMT?7

NOWVMS
W —=O -

EMT6:

EMTS:

EMSJ,EMS&
.0
EMSS,EMS6,0

vununnumunnunnnom w

EMTG:

SEQ 0264

EMS1,0
EMS2.EMS3,0

TMm

EMT2:
EMT3:

000000

11-APR-80 13:04:53 PAGE 40

mmmmm

O NNNS
SO

NI WA —
N
W= OV
NO VB W

= O VONO VNN W= OV

NO VNS WN—=O VNS W

VIWVAWAWVIWAWMWAWWMES BN OSSO SSS S S HWRNWWNWNW N NN NN N N NV NI PNV PO NI NI N

b b d e

—=O VNV

o ch o

(ol=d=lelelolelel=d=d"d

ERROR MESSAGE TABLE

67604

MACRO v03.01

mm
EXTEXTEXTEXEEXT®E ; ==

CZRMMAQ RMO5/3/2 FCTNL 1sT 1

EMS7S
. EMS141 ,EMS76,0
EMS144 ,EMS 145, EMS72,EMS76,0
EMS47,EMS53,EMS76,0
EMS77 EMSS3 EMS76.0

EMS100,EMS55,EMS76,0

EMS101.EMS53 EMS76.0
EMS6S5,EMS64,
EMS13.EMS15
. EMS63,0
EMS11.EMS4LH.EMS30.EMS67,0

EMS47 . EMSS3.EMS67.EMS115,EMS140,
EMS47 EMSS3 EMS67.EMS115.EMS14]
EMSSO EMSS3 EMS67 .0

EMS142,EMS143,EMSS3, EMS67,0

EMSS1,EMS72,EMS67EMS115,EMSS0,EMS70,0

emsie? Ems7S,Emse’?,0

EMSS6,EMS67,EMST15 EMS150,EMS152,EMS70,0
EMS71 EMSS6 EMS67,EMST15 ,EMS150, EMS152 .EMS72.0

EMs140,Emse? Ems115,EMs4? ,EMS70.0

EMS150,EMS152 ,EMS70,EMS115,EMSS6,EMS73,EMS67,0

EMS74,0
T,EMSS
EMSS2,EMS205 EMS214 . EMS206 EMS115,
EMS165,ENS108,EMS72.EMS124
.0

EMS165.EMS103,EMS72.EMS171,0

CZRMMAO RMO5/3/2 FCTNL TST 1

NAN MANNN
FOr =AM = OO = ONIT A =N T = ON A A RNRARNAAMNANANMNAAMNAAANANNNNNANNNNA

SEQ 0265

- . ~N . . o ~

w=v)

. o

11-APR=-80 13:04:53 PAGE 40-1

N > v w w v — e—

ERROR MESSAGE TABLE

MACRO v03.01

~NO

ee—NM)OVWA=APo=Wo=OOOo=o=o=o=veTNTAN
(Oel—PeO0lOyelMeOleu]lcMlOclWql7O7700V0OO0C7O0ON0o0VVOeM0N7-0~yOV7OV~I7ON0w—7OVweOANo7eOVNIOW7VNW7AOV77No7=t00000O0V00V0Oo—0Om
NiT0AONRUrAmMN0NNAANNANO0ANAONA0OMNAONAN0OANAONA0NAONNOA0NNOAONNOANW0ANNAINVAMIINAVNMNNOAMTNOIRUNNAONAVNOTNNNOANANN=AN=NA=N=OANTONNAAMAO—AM—AAONATAMNNMPeNPrN—=
OTNM —

—AOY—VY=VNLINW——OAEEl)1OMgr-ONYI—vT]M00IoOw~V~wrV=[EWe~V——NYOONNA—)T0IX—iONVTaNv-OW0—E]v6VXA)[DelNY—wAgEY0rOENyO0NeT0~XAS0p))eDXN(OY—0——O~VTEvYa=eWMEOO)eN)Y—IOM0N00LILe)rW)—NOOS5)NTL)e—DO0O2E)LeO—GL7E0OoMVe—OA)OOL)eN—)7EO)Ve—OA0)5O—OoNGEr0T)OeOY\O—0O)eOrV04eO—)SeYOOC6N—IO0eYAOVSO0G—eTOA6OA)LIeOO0VeNSIeOYOOG6PVIASN0)eOYOVMOIe0OO3GUIN~LSe0O.OOAVOOosJ'NeWFArOvV—OST)LeA<O~oT0NEVeFlEAUNEso0Ne)UOOSe—ATT6SWvAMoOlUOTVEDEVOseWO)OT0SeMNN’MOAvolU0ZSEOeo&s)OsNVE6T=7SVLNSlvIUATZOYeL00&soME)Ue2COTOMIFIMOlAVvv\VVSeSOs&»SE3OO)(UI0WlPrvvOLONNOae\0-&00Wso)~e~OTTVO]N—AOJv6EOWVFeNLN=SUOs&VMOwAOO)EIIOeAVPeLOvOvNIvoTSL0t=~~M&S0OI)ONeODAV—TTrHODUEGILUNMv=V)edaNVWo5NSoWTNONP=IS0NS—OlAELNWLMPve0WNaOOVYeAS\S2MEnEIErS)eVOMMNO—=MOOAElreNN0e0NV&N0~OISOOAT)O—ACeMaIMOEITDWMsO*sNOAMEWV=-OE)NS—ALOeel0MNWeWMISNAWV0~0MEOsVWOISNI)=—DATeOeSMENeMMMOF~V0dNYNSW~&ESW)OM—A—VMeeNIANM0UOlO&e"ESwTN[E=—TSeOMOM)—OeAeV3vAEMb0VSU8TNVlNsSM)V)MV—OOTrSNFOeAeUeaNN0WECWOOTNSOD-—MSV)AMMeFTNAUulUAO0ONU"M—-dVBOOsM)ESTMTSTO3NOeAVOael0MFU0OVIONMWSe)OAE—NeOh=YvMWII0NNlV-0OMCOoS~)S1IOeNN—DeMaIlAWV0ONlD-WI"0MOAoSIL0N~eOeAalMIM0)OOIMO-TOoNNMV))S1rO3NaeE—ldO"E0WhNIeTooLWvN O=«g0)NSOa=AWN—elIAVM0~ONblO"dTOIoME&T)1a0O=ET)ErNrelW0VoTM—t—AOONSdCMo0-M&W)~OMrAel"%AOEIOa—rNNJro0bEO1&WSMIVAde0MOOWOar—OWOO0E"RSStAM&OeO)g0VOreAaImNo—NM==WNA(ObNT1OE)WENT0elAaGerOOOrbANolEON)AWreaEeIOMW—IN3NOislENOr1T0VAAt0eMeLrdFmOoOIDMsEeNN7O0LF=EINeOLCrZlANMVmO>E1WeV—7ooWrNeNUG=ol—N)EWIsEDWMwoON7eUV—MmVreaAAOVrOl_wNMPd0E.iSE1N3—OeWNE—IENvaUrTlVd
Voe -wwvnso -wo~— v~
70:
71:

74:

73:

lolelelelelele]

w-v S~

w v o oOoOw O o N

ERROR MESSAGE TABLE

MACRO v03.01

s.sv~oONss.S w OSES0WwxWO=—EEwWATWOuWwnOWOSwo =—s ENWsEOWWO hOSssVe=.=EBOxBw.

CZRMMAO RMO5/3/72 FCTNL TST 1

5
l
11-APR=-80 13:04:53 PAGE 40-2
SEQ 0266

owJ

= v ~ ~N

OMALTWo=Mlw.)qlql.l67‘2642351543264“‘2“3702671626‘“057
6OA37“VO-0N“1WN2Oe“3506A%50N12AV‘eY—6ONNI7NO1MOM~2OU4OI6TOA0ONT1IONA3NOR‘W(NN6VDO0AvVN2Ov3vO5vO6v7OOv“MNS2AMN“NI5M6NO0OANI1OYO2VO=‘NNOO5VO6=7VOeMO%eVO2TlV3W5O—N“r7NN“N1M“oNTn5NO7TO01Ow2Mv3
MD~=oVvOoR—AO&UJWoIN=V&&-MOA-«ONVNMUWSRsV)NVONeAETs-W(oWVO—M"MN~so%Tv=)J)’NUOVSVNoFVAn=DUeMsNSYEO—Ti»EPVAbVOssAMOoN=ONSsVWOMoW)A=EVsSN)DWOeVMANN=ESIV3NMlOS)AdAOLNo[vwWV=~—oO*aW)=MVl]oIANNVA=M)MNEsNOV)AVI&MON)7FN=&DVNAOEv)MAs&sVoOVM=N)Ie&OAVoONN)=MMsSVoVNN=)WMosASEMO)ONNlSs&VEoAW—)=V~NSssMIOVoA)N=-wwSwOL==EW=—~NV3T)MltMUAWIVAVN)NNrMOAOIVT)VOMAARNIVMAVVOW)WNYARE“www=~—~)oLONvNv=ALssVANN)ZS*OSVlAIlEMMSWANIEWSVRe=r)NNVEAsrOVOVAN)VWOAVT~NDso~=we—MNlRIENyuVDVa&SOTvDOUWlVNynAV0VM%&IsVAVNFNMOVWNE%&.SNM2LAMOVL&MrsOAseV=&MeWNVE—VN~UAENoONUrOoDSVVOTLUwRAVUEVwMO-NUv&VTMW=INAEOVerw\NMO&sS=NUNTW—EEONOwWN&TMEIVAO—WFNN-N.T&UOE—EwNOeAVNIVaWWSVNVfO)AN\VMIWoJ.sw(OOVNE~—EIVONMANnUWa—&n-sVA—VNOVyU2vOWIO&NVONAMONMVI&VNNF.vSwVOw-=—=~MIvOyv—&¢VONDOvAI=N&EN—TTOANeM=NMN=N=eMIDA==NAOPMNWR.Nwow~TNS=e~I)OYANPVWN
MONO—NIMISNOND

NN1VNOTOlTOX<Ee)3oCV<eOEONO—AATT)eeEN)VO—USTNoAT)OOM=0l)NE)OVeW1M)PSwYOMENOV~e0)«eVAlS)ATVO)NelENA)0NlMEMVoeI(eLAO)MNI00MEEV)OeeNNlGv)O=M)OVe=v0lMTTLO)—NeEEOV))Ie=vvP)0ANeV)OO8OeOAvA)STNU0MNV)S)FDMONE)PvlOMN)VTOST0eNeIA)vOeHV)NOSENAeOWO)0NvATVSOINTONelAG)NlOV))SSveTNOOVO)0Iel-IMNSSVOOOTeLMA)rAN-l0ORmV)SlNAeveO)rOOlNN)SSL0eOAVrAgIleONS)IOOeAevO)V0lNSd)SOelOMGAvlNeCMSVI-+rAlAeeOvA)=OTAS—NV-=AIvGP)Nl0NNVLOrT3OANTPerOS))OMNV)INe0oeOAvA)=TlSOSV)LOoer)M0A=lNNV)SINeT7PNPIrOG)M=TOe)VSOIg—eNOOLA)dISO)OoOON0eAIAloMNVdD0NNrV)IilAe=IVeO)OyNNI0OeSAlIMLeOlNdOVNT)IAleIb)eONAl))NIOOeeLTNNl0)IVAA=Iee)NVOOSlNA))AIlONbeeOMI0lIV)ANbeeNNNlI)VObAeIONAll)SNOMIAeOJMONFlSL)INO)eOEINlAS)OeAC0UeIO—OlNlO)GeNO)OIdANbGMeNO)IMOLlNlIeOI))=OSMOT)S0oONI—AbNTNO)OOobGlOdNO)IS)eNlNe—OOO))SOIelDA)IOM—elSTLN0lO—LOI)Oge)MNdeNO)VLeAlOIO)VveAN=LN—l~g)I)eVlOvIle)OeNTAlvOOI=lONTNLlNeUaAtNOLNaLAV0dNOO=reMoOaUAOd
VW-OOWXS=No£&ieMl=WoO&E-N~eD—wOSLnseTwVW—E*OYM“-MVELFos=&Va=~NIAWT)lLeOOT’sE(V4=WeWWa~XwTUOlMA4—EweVN)MOIEW4VJweNIWs©SeMTNwOsVSOIELV»w~ssIO »oeZ=TWoUSoOwL oeI=VMEWoM=LTY*sSNEore=VUOMWVeMEOevV—oWMNFC3eTEsMWUO3e4VsWLYVsUN‘WWMeTLUsSO5OeVYOsTUeWNMVN~-wvooTe5=EEWOs*W»nvTN*ssLsOuNoIWLMnVO*ssT=eIuENO.SSMo“=5mWVTLO4WIMNLVRfs4EeNNUMQOIVWevVIEVOMMT=AeOVUWIN*sES~“=TWeVUOAV]ILsoTNTEEOWMWeVWTVNIVwsE3gMeWMWWNV—TsoUSTIEeOMVOWVsESeTMOIEAWNRTE)VMUNsALTOSSONVNWMlNFUMERsTMAWT0VNENMYNsWOVeWLNEA\E=sUMM'SMWYe“IEUT+SN4E»WeVAWFEWIS-54SMONWTBTVNWESMFWNIeW.sONwMOE—eNFE~S.i8srWTWVePM»&E4TeLW4SOeTEVO~NsWOU.eSNLO—sWOMSeU—wNoEOLWseFNU(o=MOVeOENoUssVOeOoNsSVNTeWoES.w ow Oovv =—~eoVSOeEV
MACRO v03.01
11-APR=-80 13:04:53 PAGE 40-3

eVEVVvEEVNVFNTIVENIONMTIVN~EMVOUNVEOEVIZEOVENFrVOEVY

-o w= SO o

ERROR MESSAGE TABLE

CZRMMAO RMO5/3/2 FCTNL TST 1

5
SEQ 0267

~ ~N o

OeiON]O=—YDg= NidiOW Od NTNNA
O ITY)TVYVTVIV(VW
NNdI=OleClOd—eO]TgO(=lOelNeNleNOOO l
&4N A MA OMMAA) %&&4&& M=—=————— TLNM—MIMAA S

NN(NNVOT=l=VOlelMiOeNN
MlTOMeNlMMOoIlMTVeMMMMleIleiMOleOM)

OTC—NOIMN

MACRO v03.01

wNX-— sWEVeME=NVuXInFVENWNEVeIL—CENNVDEOsE

g(=lelelelele
g

ERROR MESSAGE TABLE

CZRMMAOQ RMO5/3/2 FCTINL TST 1
11-APR=8B0 13:04:53 PAGE 40-4

5
SEQ 0268

MS56,EMS73,0

axDV--XleUXlvaXVlolwV<—0[LImFTrUNwA¥RI<v-V—lmX—RIiV—EXP)[X=VEXV-E—]~wy—Lr-Iv—iNawmwur]lc0Xovewxad»l
—©oONw—©eOvMA—M—o—OoNOo—O—VoOOOTNMi0MNM~N[oOOMN—O0Y0oa——M[ANl"w0a[O"lnJaal
074016

WOWnN WwEM-vIVXINEuvgEnSw WO——XVOXINVWvV OWO—0 VWXX— NYV
NN=E8EE. =NXNX-y sXwI—

O— — oe e

O —NNeOMrl—0erolOeeo]ONN(—OM=rOl+N0rM OO0 oMO——0

L-oal a-s—la&elL—.-al=30—N—.-N-~— --—.-=—-—|

MACRO v03.01

JWORD

EHT336:
EHT337 :
EMT344:

WORD
.WORD
. WORD

EHT353

WORD

OM—

3 o0 oo [=Y~=)

WORD

X-4OVv=e2-oxO-o -OO0wXm-5v -o~

~ CIRMMAQ RMO5/3/2 FCTNL TST 1
11-APR-80 13:04:53 PAGE &1

MOVe

5
SEQ 0269

—

) -

(7 X7,

v
=

ED353

.WORD

T S D1,ST5D2,STSD4
1 ) D1,STSD2,STSD4
1 S D1,STSD2,5TSD4,0

»vm
—O

— ks
O
—_
—n

mm
OO

.WORD

,$TSD2,STSD4

D2,5TSD4

TSD1,STSD2,STSD4

.WORD

mm
OO0

NO—
V=

JWORD
.WORD

WKW
WKW

103546
103546

103546

:
:

.WORD
.WORD

mmm
OO0

s s
s

NN = OV

s
—_—

M5
11-APR-80 13:04:53 PAGE &2

103434
03530

074032

~NO

NS W

1 074022

ERROR MESSAGE TABLE

MACRO v03.01

[

CZRMMAQ RMO5/3/2 FCTNL

SEQ 0270

CZRMMAQ RMO5/3/2 FCTNL TST 1

ERROR MESSAGE TABLE

MACRO v03.01

1 0764112

103613

& 074130
g 0764132

103612
103613

7 0764134

103615

103631

10 074146
11 074156

103620
103620

103631
103631
103631

}g 0764176

103615

% 0764122

g 074136

}% 0764166

103631

103620

103631

11-APR=-80 13:04:53 PAGE 43

EFT1:

EFT2

«WORD

.WORD

EF111,STSF,STSF,STSF

EFT110:
EFT111:

.WwORD
.WwORD

EF110
EF111

EFT114:

.WORD

EF114

EFT336:
EFT337:
EFT344:

.WORD
.WORD

.WORD

EF336,STSF,STSF,STSF
EF336,STSF,STSF,STSF
EF336,STSF,STSF,STSF

EFT353:

.WORD

EF114

EFT223:

.WORD

STSF,STSF,STSF

EF114,STSF,STSF,STSF

SEQ 0271

CZRMMAO RMO5/3/2 FCTNL TST 1

- ERROR MESSAGE

STRINGS

MACRO v03.01

122

117

EMS1:

_ASCIZ

@WRONG UNIT SELECTED (RMCS2, BITS 0-2) @

S 074264
6 074327

125
116

116
117

101
116

EMS3:
EMS4:

.ASCIZ
,ASCIZ

@UNAVAILABLE ''DVA'' (RMCS1, BIT 11) @
@NONEXISTENT ''NED'' (RMCSZ2, BIT 12) @

8 074422
9 074467
10 074534

103
104
107

117
122
117

116
111
040

EMS6:
EMS7:
EMS10:

11
12
13
14
15
16
17
18
19
20

;
;
|
;
|

23
24
25
26
27

‘

:
|
|

074576
074607
074650
074661
074672
074714
074744
075004
075027
075052

104

103

105

117

m
106
115
103
102
042
124
123
127
102

116
125
101
117
125
115
122
110
117
125

042

101

115

EMS2:
EMSS:

126
116
123
116
123
103
101
117
122
123

EMS11:
EMS12:
EMS13:
EMS14:
EMS15:
EMS16:
EMS17:
EMS20:
EMS21:
EMS22:

117

EMS24:

@COMMAND NOT COMPLETED, a

.ASCIZ
.ASCIZ
.ASCIZ

@CONTROLLER NOT READY (RMCS1, BIT 7) @
@DRIVE NOT READY ''DRY'' (RMDS, BIT 7) @
@GO NOT RESET ''GO'' (RMCS1, BIT 0) @

.ASCIZ

@''LBT'' (RMDS,

,ASCIZ
LASCIZ
LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
L,ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@INVALID @
@FUNCTION CODE (RMCS1, BITS 1-5) @
@MASSBUS @
@SCONTROL @
@BUS PARITY ERROR @
@'MCPE'' (RMCS1, BIT 13) @
@TRANSFER ERROR (RMCS1, BIT 14) @
@SHOULD NOT BE SET a
@WORD COUNT (RMWC) @
@BUS (RMBA) 3

104
103
101
123
042

111
131
104
' 124
127

123
114
104
101
114

EMS25:
EMS26:
EMS27:
EMS30:
EMS31:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
LASCIZ

a@DISK (RMDA) @
@CYLINDER (RMDC) @
@QADDRESS @
QSTATUS @
@'WLE'' (RMER1, BIT 11) @

29 075300
30 075326
31 075377

042
127
042

127
122
115

103
111
104

EMS33:
EMS34:
EMS35:

LASCIZ
.ASCIZ
.ASCIZ

@'WCF'' (RMER1, BIT 5) @
@WRITE CHECK ERROR-"'WCE'' (RMCS2, BIT 14) a
@''MDPE'' (RMCS2, BIT 8) @

042

105

103

EMS37:

.ASCIZ

Q'ECH'' (RMER1, BIT 6) a

115
104

130
124

EMS&1:
EMS42:

LASCIZ
.ASCIZ

@'MXF'' (RMCS2, BIT 9) a
@''DTE' (RMER1,
BIT 12) @

105
117
m

101
122
101

EMS&44:
EMS4S:
EMS46:

.ASCIZ
.ASCIZ
.ASCIZ

32 075426

042

34 075503

042

33 075455

35 075532
36 075560

37 075607

42 076032

41 076003

43 076061
&, 076107
45 076117
46 076131
47 076153
48 076202
49 076257
50 076305

51 076320
52 076347
53 076365
54 076413
55 0764631
56 076477
57 076547

042
042

042

110
106
042
042

042

042
124
104
101
m
m
104
104

104
104
062
11
103
104
104

125

104
104

110

117

123

120
110
105
124
116
116

125
101
117
101
120
123
117
101
125

120

103
114

103

120

113

111
105
124
040
103
126
122
124

105
124
101
040
115
124
122

EMS23:

.ASCIZ

@DEVICE WENT @

075143
075160
075201
075212
075222

0642

102

.ASCIZ

042

28 075251

114

126

075066

22 075114

38 075636
39 075711
40 075754

ERROR MESSAGE STRINGS

127

7 074372

{

.SBTTL

3 074200

& 076247

6
SEQ 0272

11-APR-80 13:04:53 PAGE 44

EMS32:

EMS36:

EMS40:

EMS43:
EMS47:

EMSS0:

EMSS51:
EMSS2:
EMS53:
EMSS4:
EMSSS:
EMSS56:
EMSS57:
EMS60:

EMS61:
EMS62:
EMS63:
EMS6H4
EMS65S
EMS66:
EMS67:

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
L.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
ASCIZ
ASCIZ
.ASCIZ
.ASCIZ

BIT

10)

@''AOE'' (RMER{, BIT 09) @

@''UPE'' (RMCSZ2, BIT 13) a

@''DCK' (RMER1, BIT 15) @

@''DLT'" (RMCS2, BIT 15) @

@''MCRC' (RMERT, BIT 8) @

QHEADER COMPARE ERROR '‘HCE'' (RMER1, BIT 7) @
@FORMAT ERROR "‘FER'' (RMER1, BIT 4) @
@''IAE'' (RMER1, BIT 10) a
@''OPI' (RMER1, BIT

13) @

@''SKI'' (RMER2, BIT 14) a

@&''PIP" (RMDS, BIT 13) @
QTHE RM 3
@DETECTED a
@AT AN UNEXPECTED @
@INCORRECT DATA DURING @
@INVALID COMMAND ERROR ‘'IVC'* (RMER2, BIT
@DURING DATA TRANSFER @
@DATA READ 3

@DOES NOT COMPARE WITH @
@DATA WRITTEN @
@''PAR''
(RMER1, BIT 3) @
Q1S INCORRECT @
@COMPOSITE ERROR 'ERR'' (RMDS, BIT 14) @
@DATA PARITY ERROR ''DPE''
(RMER2, BIT 3) a
@DURING SEEK COMMAND 3

12) @

N TN N N N N N N N N N
S N T
eI N I

0 N N N TN N N N N N N N N N

b it it O O O OO OO
NN—=OO0
WIS NN =2 O e oo oo oo oo oo oo

EMS70:

NN NG N N N N N N N N N N N N N N N N N N N N N N

= WW—=
O =
OWS O S WOWMNO NO WO = NS ==

C
6
11-APR-80 13:04:53 PAGE 44-1

S S SN
W W
NN NN NONNONIN)
b b bt b
N = ONO VS N = ONO VS NN = ONO VIS W

O—=—=O— =0 0090
2O — O
i e el
e el e
e
e
e e

= s NN N = s LINOAN

) = O O = NI N — =)=
O O—=OHfOONONONN
= = =NNNOO S NS

i el e
—

il il

) el ol el

) il el e el el

) el e

el e () e

NONVONON
= kO e =aNIN) 2 = O =t et Nt

e e e e

P
e P
B

s () D D e
e el e e
e el o e e
i el el ol e e el ol el el ol o
ol
e e e
e el e
e o e
.

AN WO O
S

D e ol e
el e el i) ) il ol
i
s ) =t D) e
s O
) et
O

00477

i e st e

0441
00467

— i

o
o

OOOgOOOO

OO0 O0O0OO0OOOONN~N
—_ et et 2 OO OO0OOO
S W= O0NOVSW

0376

S N0 8 N
—

042
04
110
102

NN NOONINONWNOWVIN
S NOWMES S NWWVMOC NN

077064
077113
077142
077161
077210
077221
077263
077305
077335
077361

105

) e

70
71
72
73
7%
75
76
77
78
79

042

= N NON=ONO
O OWVO S NOWVIVINUINI O NON N = NN = SN NI N N = ONNO S OSVIWNSE SN

e e
o e

104

69 077055

[ AP
———

o el e e
e

68 077026

67 077000

el e

042

e el [

66 076752

NNV = = = NIBSS=NOANVA
O
—=O0OO0ONON = =00 —=00OCOO—=ON—==NONO

11
105
11
104
104
114
104
042

i el e

58 076574
59 076606
60 076621
61 076631
62 076646
63 076665
64 076673
65 076724

—OF\D-GO—‘ON—‘No—'N—‘ON—‘ONN—'—'—‘—'OOOONN—‘N—'—io—'—‘—'—‘N—'ONO—'—‘NN—‘—‘NN—‘—'—'NNN

ERROR MESSAGE STRINGS

O WO S = VNOO VOIS W= WWNONN S S VINVWS S OO

MACRO v03.01

O WVNWMWIWMWUIWMUAWES S S B
ONOWVS NN —=ONO VS

" CZRMMAO RM05/3/2 FCTNL TST 1

9lS RESET @
oERRONEOUS @
alS SET @
aDID NOT SET 3
aDID NOT RESET @
aLOST @
aDURING PACK ACK COMMAND 3

@''RMR'' (RMER1, BIT 2) @
@"'ILR" (RMER1, BIT 1) @
®"'ILF'" (RMER1, BIT 0) 3

dDURING SEARCH COMMAND 3
oERROR @

@''LBC'" (RMER2, BIT 10) a

@''LSC'' (RMERZ2, BIT 11) 3
@HEADER ERRORS a

aBUS TIMEOUT (04 TRAP) &

aADDRESS @
OWHEN READING/WRITING RH REGISTERS @
oAT THE FOLLOWING @
oTHE SELECTED DEVICE IS @
ANONEXISTENT DEVICE @
<CR>SLF>

oTHE MASSBUS CONTROLLER a
oFAILED TO DETECT o
aNOT AN RM0S5/3/2 a
=
9CONTROL STATUS REGISTER 1, RMCS1,
aBUS ADDRESS REGISTER, RMBA, a
dCONTROL STATUS REGISTER 2, RMCSZ2,
9ERROR REGISTER 1, RMER1, 3

SATTENTION SUMMARY REGISTER, RMAS,
@MAINTENANCE REGISTER #1, RMMR #1,

oECC POSITION REGISTER, RMEC1, @
9ECC PATTERN REGISTER, RMECZ2, a
oMAINTENANCE REGISTER 2, RMMRZ2, 3
aNOT INITIALIZED BY @
aUNIBUS INITIALIZE @
@CONTROLLER CLEAR, I.E.
BIT 5 OF 3
oRH/RM ERROR CLEAR (RMCS1, BIT 14) a
aDRIVE CLEAR COMMAND o
aDRIVE STATUS REGISTER, RMDS 3
aMEDIUM OFF LINE @

@' 'MOL'" (RMDS, BIT 12) @
aDRIVE FAULT @

@''DVC'" (RMER2, BIT 7) a

SUNSAFE o

@' 'UNS'' (RMER1, BIT 14) 3

9SHOULD BE SET a
a0FFSET MODE a
@ VOLUME VALID @

@''oM'' (RMDS, BIT 0) 3
@''v'' (RMDS, BIT 6) 3
aPACK ACK COMMAND 3

aNOT SET BY @

90FFSET COMMAND 3
aNOT RESET BY a
aRTC COMMAND @
oRIP COMMAND 3

SEQ 0273

CZRMMAQ RMO5/3/2 FCINL TST 1

ERROR MESSAGE STRINGS

115 100777

106

EMS161:

117 101027

104

125

122

EMS163: .ASCIZ

116 101027

118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144

101053
101122
101134
101150
101175
101222
101251
101304
101324
101341
101347
101375
101424
101446
101463
101531
101561
101574
101622
101634
101661
101706
101717
101735
101760
102003
102021

111
103
125
122
042
127
105
116
122
104
104
042
111
103
104
104
1m
042
105
127
042
127
127
120
127
123
120

146
147
148
149
150
}2;

102072
102125
102145
102215
102246
102323

114
123
102
101
110
116

145 102042

104

123
131
116
105
101
110
122
117
105
101
125
117
116
101
11
125
116
127
130
111
107
122
101
122
101
105
122

040
114
105
103
126
105
122
116
103
126
122
120
040
116
101
122
103
122
105
124
117
111
123
117
123
105
117

117
105
101
040
105
117

117
101
104
104
101
116

125

MACRO v03.01 11-APR-80 13:04:53 PAGE 44=2

122

EHS16§:

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:

.ASCIZ
.ASCI]
.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

EMS217: .ASCIZ
EMS220: .ASCIZ
EMS221: .ASCIZ
EMS222: .ASCIZ
EMS223: .ASCIZ
EMS224: .ASCIZ

SEQ 0274

QOFFSET REGISTER (RMOF) @
: CUNUSED>

@DURING RECALIBRATE @

@IS INTERMITTENT OR DRIVE DIDNT DROP ON @
QCYLINDER @
QUNEXPECTED @
QRECALIBRATE COMMAND @
@"'ATATM (RMDS, BIT15) @
QWHEN READING REGISTER @
QERROR REGISTER #2, RMER2, @
QNONRECOVERABLE @
QRECOVERABLE 3
@DATA @
QDURING WRITE COMMAND 3
Q''OPE'’' (RMERZ2, BIT 13) @
@IN WRITE PROTECT @
@CAN NOT SET @
QDIAGNOSTIC MODE '‘DMD'' (RMMR1, BIT 0) @
QDURING DIAGNOSTIC MODE 3
QINCORRECT @
@'WRL'' (RMDS, BIT 11) @
QEXECUTED @
@WlTH COMP ERROR SET @
@''GO'' (RMCS1, BIT 0) @
QWRITING @
@WAS RESET BY a
QPROGRAM INTERRUPT @
@QWAS NOT GENERATED 3
QSEEK COMMAND @
QPROGRAM TIMEOUT a
QDURING LOOK AHEAD TEST a

@LOOK AHEAD REGIS1ER,RMLA, a
QSEARCH COMMAND 3
@BAD SECTOR ERROR 'BSE'' (RMER2, BIT 15) @
@A DATA TRANSFER COMMAND @
QHEADER COMPARE INHIBIT '‘HCI'' (RMOF, BIT 10)
QNONEXISTENT MEMORY ''NEM'' (RMCS2, BIT 11) a

CZRMMAQ RMO5/3/2 FCTINL TST 1
ERROR MESSAGE STRINGS
1

102375

105

130

MACRO v03.01
120

11-APR-80 13:04:53 PAGE 45

EHI1:

LASCIZ

QEXPCTD

SEQ 0275

RECEVDA

2 102414
2 102423

102
040

125
122

123 EH110:
115 . EH111:

.ASCIZ
_ASCIZ

@QBUSADRa
@ RMCS2

S
6
7
g

102442
102471
102517
102545

122
105
102
12

105
130
130
124

103
120
120
101

EH114:
EH223:
EH256:

.ASCIZ
.ASCIZ
.ASCI]
LASCIZ

QRECEVD
QEXPCTD
QEXPCTD
@STATUS

SNGPRT
RECEVD
RECEVD
STATUS

DULPRTa
DATA3
RGSTRA<CRLF>
INDEXa

10 102573

107

104

101

EH336:

.ASCIZ

QGDADRS

GDDATA

BDADRS

}2 102730

105

130

120

15 102767

122

115

105

17 103065
18 103125
;g 103144

105
105
040

130
130
122

120
120
115

21
22
23
24
25
26

040
040
040
040
040
040

122
040
122
040
122
122

115
040
115
040
115
115

}; }852;%

16 103027

103173
103240
103250
103315
103337
103375

}g;

137

};;

137

}g;

EH337:

.:22}{

gancsz

RMCS1a

STATUS

FAILING

BDDATA3

DATAg<E:L:>

137

<CRLF>

LASCIZ

QEXPTYO "RECEVD

~"BIT
" "ADRE33a

EH344:

_ASCI]

QRMER1

HEADER

EH353:

LASCIZ
LASCI]
LASCIZ

QEXPCYG
QEXPCTD
@ RMLA

.ASCI]
LASCIZ
.ASCII
LASCIZ
.ASCIZ
.ASCIZ

@
@
@
@
@
@

STSH1:
STSH2:
STSH3:
STSH4:
.EVEN

ASCII

LES

STATUS

WORD

FAILING@<CRLF>

BITa<CRLF>

"RECEVD NUMBER
POSITON3
RECEVDa<CRLF>
RMLA
RMOF 3

RMCS1
RMCS2
RMDS
RMASa
RMWC
RMBA
RMDA
RMEC1
RMEC23
RMDA
RMDC
RMOF
RMMR1
RMMR2
RMDT

RMER1

RMER23

RMOF

RMD(a

RMLAS
RMSNa

)

CZRMMAOQ RMOS/3/2 FCTNL TST 1°

NN -

ERROR MESSAGE STRINGS
103434
103442
103446

001140
001276
001174

001142
000000
001176

000000

1036454

001362

001176

103474

001134

103506
03520

03530
03546
03562
03566

P e

103464

ONO VS WN = OV

03600

MACRO v03.01 11-APR=80 13:04:53 PAGE &6
ED1:
ED110:
ED111:

.WORD
.WORD
.WORD

$GDDAT,$BDDAT,0
$BASE,
$TMPO,$TMP1,0

001200
001174

ED ED114:
ED 223:

.WORD

RMDII,STMP1,$TMP2,0

001140

001136

ED336:

.WORD

$GDADR,$GDDAT,$BDADR,$BDDAT,0

001140
001140

001142
001142

001174
001442

ED337:
ED353:

.WORD
.WORD

$GDDAT,$BDDAT,$TMPO,$TMP1,0
$GDDAT,$BDDAT,RMOFO,0

001334
001336
001402
001342

001344
001340
000000
001370

001346
001342

STSD1:
STSD2:

001366

STSD3:

.WORD
.WORD
.WORD
.WORD

RMCS11,RMCS21,RMDSI,RMER1I,RMER2I,RMASI,0
RMWCI,RMBAI,RMDAI,RMOFI,RMDCI,RMEC1]
RMEC21,0
RMDAI,RMDCI,RMOFI,RMLAI,0

001140

001360

001142

001374

000000

001362

STSD4:

.WORD

$GDDAT,$BDDAT,$TMPO,0

RMMR11,RMMRZ],RMDTI,RMSNI,O0

SEQ 0276

00 N

CZRMMAQ RMO5/3/2 FCINL
ERROR MESSAGE STRINGS

TST

MACRO v03.01

G
6
11-APR=B0 13:04:53 PAGE 47

SEQ 0277

103612
103613
103615
103620
103624

000

.BYTE
.BYTE
.BYTE
BYTE
.BYTE

103631

000

.BYTE

000

CZRMMAQ RMO5/3/2 FCTINL TST 1

ERROR MESSAGE STRINGS

MACRO v03.01

1 103640
2 103640

BUFFER:

BUFONE:

2 104644
2

BUFTWO:
103640

7 103640

HELP:

103640
103641
103642
103660

200
200
114
055

111
055

13
14
15
16

103730
103761
104004
104036

124
124
124
124

062
063
064
065

28
29
30
31

104505
104522
104542
104562

1264
124
124
124

44 105256

124

17
18
19
20
21
22
23
24
25
26
27

104067
104113
104140
104201
104232
104264
104311
104344
104375
104426
104460

32 104605
33 104630
34 104663
35 104716
36 104754
37 105004
38 105037
39 105071
40 105122
41 105161
42 105213
43 105261
45
46
47
48
49
50

51
52
53
56
55
56
57

105304
105336
105365
105415
105446
105477

105543
105575
105627
105657
105706
105740
105762

1264

1264
124
1264
124
1264
124
1264
124
124
124
124

.BLKW

258.

061

066
067
061
061
061
061
061
061
061
061
062

062
062
062
062

123
059

LASCII
LASCII
.ASCI1
ASLl]l

<CRLF>
<CRLF>
@LIST OF TESTSa<CRLF>
§occcescscccea o9<CRLF>

011
011
011
011

.ASCIl
.ASCI1
LASCII
.ASCII

QT2
Q13
QT4
QT5

DEVICE AVAILABLE TEST@<CRLF>
DRIVE TYPE TEST@<CRLF>
UNIBUS INITIALIZE TEST@<CRLF>
CONTROLLER CLEAR TEST@<CRLF>

aT2l
Q122
arT23
arT2é

NOP TEST@<CRLF>
OFFSET TESTa<CRLF>
GO/ATA TEST@<CRLF>
WRITE ATA TEST@<CRLF>

011

011
011
060
061
062
063
064
065
066
067
060

061
062
063
064

124
124
124
124
124
124
124
124
124
124
1264
124

062
062
062
063
063
063
063
063
063
063
063
064

065
066
067
060
061
062
063
064
065
066
067
060

124
124
124
1264
124
124

064
064
064
064
064
064

062
063
064
065
066
067

1264
124
124
124
124
124
1264

.=BUFFER

8
9
10
11

12 103676

11-APR-80 13:04:53 PAGE 48

064

065
065
065
065
065
065
065

061

060
061
062
063
064
065
066

L.ASCIl

.ASCII
.ASCIl
.ASCII
.ASCII
.ASCIl
.ASCIl
.ASCI1
.ASCII
.ASCIl
.ASCI1
.ASCII

.ASCIl
.ASCII
.ASCI1
.ASCI]

.ASCI1
.ASCII
.ASCI1
.ASCIl
.ASCI1l
.ASCI1
.ASCI1
.ASCIl
.ASCI1
.ASCI1
.ASCIl
.ASCII
L.ASCIl

.ASCIl
.ASCII
.ASCI1
.ASCI1
.ASCI]
.ASCI1

.ASCII
.ASCIl
.ASCI]
.ASCIl
.ASCI1
.ASCI1
.ASCI1

aTl

QTé
a17
aT10
aT1l
@aT12
@aT13
QaTl4
QT15
QaT16
QaT17
aT120

Q125
@T26.
@127
@130
QT3]
QaT32
Q7133
Q734
Q7135
QaT36
Q137
@140
arTél

aT42
@743
QT4é
@745
QTé6
@147

@750
@151
Q152
@153
Q156
QT5%5
QaT56

CONTROLLER ACCESS TESTQ<CRLF>

ERROR CLEAR TEST@<CRLF>
DRIVE STATUS TEST@<CRLF>
PRIMARY/SECONDARY ERROR TEST@<CRLF>
DIAGNOSTIC MODE TEST@<CRLF>
PACK ACKNOWLEDGE TEST@<CRLF>
RECALIBRATE TEST@<CRLF>
ABORT RECALIBRATE TEST@<CRLF>
IVC RECALIBRATE TEST@<CRLF>
IAE RECALIBRATE TESTa<CRLF>
RECALIBRATE AT OFFSETQ<CRLF>
DRIVE CLEAR TEST@<CRLF>

ERROR/ATA TESTa<CRLF>
PROGRAM INTERRUPT TEST@<CRLF>
INHIBIT INTERRUPT TEST@<CRLF>
RETURN TO CENTERLINE TESTa<CRLF>
READ IN PRESET TEST@<CRLF>
RMDC CLEAR OFFSET TEST@<CRLF>
ILLEGAL FUNCTION TESTQ<CRLF>
INVALID COMMAND TEST@<CRLF>
INVALID ADDRESS ERROR TEST@<CRLF>
WRITE LOCK ERROR TESTa@<CRLF>
ERROR ABORT TESTS@<CRLF>
RMR TEST@<CRLF>
PARITY ERROR TEST@<CRLF>

ILLEGAL REGISTER TESTQ<CRLF>
SEEK LAST CYLINDER®<CRLF>
SEEK FIRST CYLINDER@<CRLF>
SEEK PRIME CYLINDERS@<CRLF>
SEEXK ZERO DIFFERENCEQ<CRLF>
SEEK MAXIMUM DIFFERENCE FORWARD@<CRLF>
SEEK ADJACENT FORWARD@<CRLF>
SEEK ADJACENT REVERSEQ<CRLF>
SEEK INVALID SECTORa<CRLF>

SEEK INVALID TRACK@<CRLF>
SEEK INVALID CYLINDER®<CRLF>
IVC SEEK TESTa<CRLF>
ABORT SEEK TEST@<CRLF>

SEQ 0278

ars?
aT60

SEEK AT OFFSET@<CRLF>
LOOK AHEAD TESTQ<CRLF>
SEARCH ON CYLINDER@<CRLF>
SEARCH OFF CYLINDER@<CRLF>

aTél

aT62
aT63

SEARCH INVALID SECTOR@<CRLF>

aT64

SEARCH INVALID TRACK@<CRLF>

aT65

SEARCH INVALID CYLINDER®<CRLF>

aT66

aTé7
ar70
3{;1F

<CRLF>

IVC
. SEARCH TEST@<CRLF>

ABORT SEARCH TESTa<CRLF>
SEARCH AT OFFSET@<CRLF>
HEAD ALIGNMENT SEEK@<CRLF>

200

O—=TVWNS VO

NOOVO —=NWS W

gOPERATIONAL SWITCH SETTINGS@<CRLF>
2L 2R -3 )33 R3-SR R-3 Y- 3N 3N- 3N 3N R-30 -3 N3]

s st
Bt

b0 bt bt bt Bt Bt Do et bt Do B0 D

s Bt Bt Bt Bt Bt bt bt bt s B

0 Bt Bt bt bt Bt Bt B

Bt Bt Bt Gt Bt

e bt bt bt

e bt 5t 5t B
0

0 bt

et e bt b0 bt

000200

040

PN S

7047

11-APR=-80 13:04:53 PAGE 48-1

vuumumumumumnumumunnumuomunummunnuounnumnunnumunoom
lalalalalelale il
lalalalalalalalalalalalalala
el lalala il ln e

»
8
"
e
o
o
®

040

6402
6403

MACRO v03.01
PPl

106006

—
[ B
e N R
e e e e e I
)[
VIO
= OMNONINONONONONO
NNo
o
VNV NO S S P

CZRMMAO RMO5/3/2 FCINL TST 1
ERROR MESSAGE STRINGS

HALT ON ERROR@<CRLF>
LOOP ON TESTa<CRLF>

INHIBIT ERROR TYPEOUTS@<CRLF>

a<CRLF>
INHIBIT ITERATIONSQ<CRLF>
BELL ON ERRORQ<CRLF>
LOOP ON ERRORQ<CRLF>

LOOP ON TEST IN SWR<7:0>a<(CRLF>
TN128a<CRLF>
TN6LA<CRLF>

TN32a<CRLF>
TN16a<CRLF>
TNBa<CRLF>

TN&LA<CRLF>

TN2a<CRLF>
TN19<CRLF>

SEQ 0279

CZRMMAO RMO5/3/2 FCTNL TST 1

MACRO v03.01

SYMBOL TABLE

- ABASE = 176700
ACDW1 = 000000

J
6
11-APR-80 13:04:53 PAGE 48-2

SEQ 0280

- ACKSTS
054526
. ACPUOP= 000000

AUNIT =
AUSWR =
AVECT1=
AVECT2=
A16
=

- ADDW1 = 000000

BACK

= 000001

CNSLO1

066337

ED110

103434

EMS112

103442

EMS113

077305

8800
8801
BB0Z2
B8B03

=
=
=
=

000001
000002
000004
000010

CNSLO4
CNSLO5
CNSLO6
CNSLO7

066437
066473
066505
066536

ED223
ED336
ED337
ED353

103464
103474
103506
103520

EMS116
EMS117
EMS12

077364
077414
074607

EMS120

077436

B8B05
8806
8B07
BB08
8809
BIT0
81700
BIT01
BIT02
BIT03
BIT04
BI105

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

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

CNSLO9
CNTCLR
COMMA
CONT
=
CR
=
CRLF
=
CTLFG
CYLMSK=
DBCK
=
DBEN
=
DBL
=
DCK
=

066702
053530
066215
000100
000015
000200
001326
001777
100000
040000
002000
100000

EMS122
EMS123

077522
077557

EMS124
EMS125
EMS126

077622
077654
077717

EMS127
EMS13
EMS130
EMS131
EMS132
EMS133
EMS134

077762
074650
100021
100057
100117

BI1T07
BI1708
BI1T09
BIT1
BIT10
BIT11
BIT12
BIT13
BIT14
BIT15
BIT2
BIT3

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

000200
000400
001000
000002
002000
004000
010000
020000
040000
100000
000004
000010

DEBL_
=
DEVSEL
DISPLA
DISPRE
DLT
=
DMD
=
DPE
=
DPEH] =
DPELO =
DPR
=
DRQ
=
DRVCLR=

020000
052056
001156
000174
100000
000001
000010
040000
020000
000400
004000
000010

ACDW2 = 000000

' ADDWO = 000000

' ADDW10= 000000
' ADDW11= 000000

ADDW12=
ADDW13=
ADDW14=
' ADDW15=

000000
000000
000000
000000

ADDW3 =
ADDW4 =
ADDW5 =
ADDW6 =
ADDW? =
ADDW8 =
ADDW9 =
ADEVCT=
ADEVM =
ADR
=
AENV
=
AENVM =

000000
000000
000000
000000
000000
000000
000000
000000
000000
000001
000000
000000

ALL
AMADR1=
AMADR2=
AMADR3=
AMADR4=
AMAMS1=
AMAMS2=
AMAMS 3=
AMAMS4=
AMSGAD=
AMSGLG=
AMSGTY=

066204
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

| ADDW2 = 000000

AFATAL= 000000

000000
000000
120254
000000
000400

= 001000

BADTMO 005332
BAl
= 000010

B804

= 000020

81106 = 000100

AMTYP1= 000000

BIT4¢

AMTYP4=
AOE
=
APASS =
APE
=
APRIOR=

000000
001000
000000
100000
000000

BIT7
=
BIT8 =
BI1T9
=
BOTADR
BOTFLG

000200
000400
001000
043106
043110

APTS1Z=
APTSPO=
ARGS =
ASWREG=

000200
000100
000002
000000

BUFFER
BUFONE
BUFTWO
cC
=

103640
103640
104644
004000

AMTYP2= 000000
AMTYP3= 000000

APTCSU= 000040
APTENV= 000001

ATA
=
000
ATESTN= 000000
| ATNMSK= 000377
| ATNTBL
067146

BIT5S
BIT6

= 000020

= 000040
= 000100

BPTVEC= 000014
BSE
= 100000

CH
=
CHRCNT
CKSWR =
CLKADR

002000
043111
104410
001510

CLKVCT
CLR _ =
CLRSTS
CMNSTA
CMPERR

001512
000040
053646
007604
051644

EDT223
EDT336
EDT337
EDT344
EDT353

(074076
074110

CNSLOO

CNSLO2
CNSLO3

CNSLO8

066304

066355
066417

066701

DDISP = 177570

DRVSTS

DRY
DSWR

EECC

EFT1
EFT110
EFT111
EFT114
EFT2
EFT223
EFT336
EFT337
EFT344
EFT353
EF110
EF111
EF114
EF336
EF337
EHTI
EHT110
EHTI11
EHT114

103446
103454

= 000020

074112
074130
074132
074134
074122
074136
074146
074156
074166
074176
103612
103613
103615

077113
077142
074576°
077161
077210

EMS114
EMS115

EMS121

EMS135

077221

077335
077361

077457

100143
100166
100230
100273

EHT2
EHT223
EHT256
EHT336
EXT337
EHT344

EMS136
EMS137
EMS14
EMS140
EMS141
EMS142
EMS143
EMS144
EMS145
EMS146
EMS147
EMS15

100441
100467
100477
100526
100545
074672

057064

EHT353

074016

EMS150

100562

010000
010000
024024
004000
000200

EH111
EH114
EH223
EH256
EH336

EMS153
EMS154
EMS155
EMS156
EMS157

100651
100673
100707
100727
100745

= 000100
= 004000
= 001000
074022

EH353
EMS]
EMS10
EMS100

102423
102442
102471
102517
102573
102632
102767
103125
074200
074534
076752
077000
077026
077055
077064

= 000200
= 177570

EARLY
067472
EBL
= 020000

EDT110
EDT111
EDT114
EDT2

ED111
ED114

(074066

EMS105
EMS106
EMS11
EMS110
EMS111

103620
103624
073676
073720
073724
073730
073710
073734
073746
073760
(073772
074004

PTE
=
DTO
=
DULPRT=
DVA
=
bvC
=
ECH
ECI
ECRC
EDT1

ED1

074046
074056

074040
Q74042
074044
074032

EH1
EH110

EH337
EH344

EMS101
EMS102
EMS103
EMS104

102375
102414

EMS151
EMS152

100320
074661
100355
100376
100424

100601
100625

EMS16
EMS160

074714
100762

EMS165
EMS166
EMS167
EMS17

101134
101150
101175
074744

EMS161
EMS162
EMS163
EMS164

100777
101027
101027
101053

ONIMITNONONMITNONO~O=MNMITWNONot
O3—1MQv0IN~MaOlO2e'a=—NMl='aOlIOMalIMMAJNlSAONlOSN0aNT01NSt02aOiO3ae0lO“—aNl=A5aN0IlS“MNa0l7S0NoNSl1NMNIO1eOFTeN1e3OONA1IeNOOO1OeO2OO(=NUN2eMloI=e2lOTvVaWl=OeN2lN=OolNNv2eAl=3oOlTvoNlT3voTSlvoNlT3Oo=SlNaIO3lOMSaNlWOa3SOlONa"lOaNOlOfsONlMIaSlOM“aNlIaM=lfNalNMAslMNLfOaltMalIaAlMONiNItM
n

O—NMNS ONMJITONON VIO

EVO=E——OgDNW<OCY8—0NOTNEe)~NOAOOgAFOVUTEveO~N0AA0AYgFD=INNIENOeO~gAGAFDS00TTWr—Oo8AAgA—OAVEONEveIT)O=~0oAAON0EFMCAYeNAOM8oDAvAIO0TENN0OeANMN~EAovACAPFN0NIVeOrOA3oAAi—O=EDNOO Ee)r1WASgOA—3MEO~=NVErIe03AONMGAgGTX=O)IOO0AovvWAV0NO=eNoAvASVvMOTNNAe)SA=N0OMMgvVGONTOOeIAIONIBrMr1GgANDT=0SMIe)AVAv=gSMGOO0N1MVreV)I(NoAA0Ye~AMO)eOIOOvLNAMgr=V0~MeINWo1NASvAANT0=VNNO)OIeDAoA(OVNN=OOe)OALIN01OvgVAO=VVS0)TIe)3ALO1vgON=ONNOeIAIANV1O0AvA=O)NeI)A—AO0=CVAMeVOO)I0AOsANoROgOOOOMe)UIOVG0NGtAINVSIMIA—AoOC0OATrNNNEOrMoOGA0AmVAO)sO)NM)eO0IAOOOI)TMDI)M=bNO0VO)OON))SeOOb5NA~)VNOVI)VSIOGA)WONNIIANAOG)DMAANVS=W))IeORAONM)NMTO TI)eNeDAOAANOVNO)NFNOeOeNAIUMOAODS)NNIeONeMVJOMOO)S)ASNONOeLNVNOT)AI)LAWV=OOMNNSNTO)—ROIeANUOANSTVOAO)eAIOeAONOSAI—))OeRATOOVeNUNVN—NSIO)AOTFe)OeAMGTINNMI)TNANeOAENSANAOIOeOIeVUNNNTN)VT—O)AIIONeAMCSOOMA)OTTL)NDNNON)TOIVIANOAANDMNOO=)ONVIPAONNOVSSLNA)OWTOMe—NVOVATN—F)NAMAOeAODOMFONT)N)IARMOeNUVINOONe)TNDNIMVlLeFANWO)oANNDeTAONMkOVORlPVLLeNNIOONT)IATOUlNPOM0LNNN)VNNNt
ITLWN—YOWONjgrEAAOoyT=m0]OCUE(elNSrOWALe[«eva=E0SNON¥1lNwoAAW[a=OSe0LEOeNPeOlIAATLO0=EeNUu)e1L0oNRGlOoIt—SMOa)e0OOoASALl=N0oE)aeC©NOoNGLlMOO0N)eeEeOWALaINE—SU(ONelMOIAGT0eCaEOUNbNWeolATBIEaN0TOeMOotOGPlGRNaI)eSOeO0oNOAl~WIaOeeIrNOOWALlN0SOeeTIeSO(OMANl)TFeIONa0eOAGglCeN)UEeMI©eOAG0—NAl)Oe7OINIOeAAguW0lM)VIoRe8NeMGRSOOl)W=NIeeORANeUgaTM0)lUeeFIAAWNMeOlIeoOIGRLeOM)S0)NeUeMlNAOeTOeAINIelOANeVO)NOgIeOS0eDNAlUOAeTNe—Ie©0AIAGSl0\NSyeOUONeOeAGlATUSl0—)MMe3OOeyAoGUlONNITEeeFeOyN0GGMTIlEONNOSeaAOeLGTM0d))NOeSIAeeOIlN))MSSeOeNeOTVA0Ol))VOPOFeSeeMlNSeOAAeOGTe0I)NNONelSSAeAOeOMT)Nl0eeWITeN)O—SOAAeleGMe)N)OSeeOClOGUVNeT)))oeOeAIBlOO)oN-FeeGMASON lNeA)IO0oeTeGlIOAMeSSeOeLPNOl1ieoNOeACGeGNlIMIOSO)LNeeLBSOMlI)i)1TSOAGeBeO,T—Il)O)O)IeNeSMNe)l1)FeLAeOTOIOeC))lNMOeTLSeOeOFI1P)lTeOGeATR—ON =)N))TeINleOIoT1N)IO)SeelO=)E—NeONiMeAlMFOe1OIeAAMeIGlNNi)M1N=)FSTeMeOlTN11I=DLF=MePe)OW11NTOMe=eLLOPINl11OMLe=eAONl1N01AMTSTS —N—B=
oYNO0S02—oAI0S3oAMOOoAS0O3eNeS00O3oNNOSoA0UO3=OoRIE0T0oBSO3oA0OSNI3eTSN0ISoNI3NSoRT0IEMoRNN3N~oR0E(—ReOT0SoN03OoINTIe0NOSI3OI—oRNM0TIPOS3IeN0OMIeNAO3eSN0NIAoTON0eSRON3oAREOPON3MS0oANOoAIO03SeRMNTOReMO30ATNoMUONRSPVO0eOSAO3TNAoONMSAoOI3oRONSeORoO3SOAeNIDROrTeSmO3OIAeSNOOoAOIO0SAPOOM3A0SBONOAeOON3AoO0yOAo~OGTO3)NAOe0IOAOBGTROE)NBM7STIBLTOMNOrUBIOAbUF0—NPTBL
SYMBOL TABLE

CZRMMAQ RMO5/3/2 FCTNL TST 1
MACRO v03.01

6
11-APR=-80 13:04:53 PAG E 48-3
SEQ 0281

CZRMMAD RMO5/37/2 FCTNL TST 1

MACRO v03.01 11-APR-80 13:04:53 PAG% Lg-k

SYMBOL TABLE

EMTL0
EMT41
EMT4
- EMT4
EMTLL
CEMT4S
EMT46
- EMT47

070140
070146
070156
070170
070200
070210
070220
070230

EMTS
067632
EMT50
070236
EMT51
070246
EMT52
070260
EMTS3
070276
EMT54
070314
EMT55
070324
EMT56
070336
EMTS7
070354
- EMT6
067640
. EMT60
070364
| EMT61
070402
EMT62
070422
EMT63
070436
EMT64
070440
EMTE5
070460
EMT66
070500
EMT67
070512
EMT7
067646
EMT70
070524
EMT71
070534
EMT72
070544
EMT73
070562
EMT74
070600
EMT?5
070610
EMT76
070630
EMT77
070640
ENRGDT 067604
EQUALS 066202
ERR
= 0400
ERRNMB 043104
ERROR = 104000
ERRTYP 042346
ERRVEC= 000004
ERTYO0 043112
ERTYO1 043120
ERTY02 043130
ERTYO3 043137
ERTYOL 043145
ESRC = 004000
FER
= 000020
FIND =
01
FMT16 = 010000
FNCDTB 067046
FNCMSK= 000077
FO
= 000002
1
= 000004
F2
= 000010
F3
= 000020

Fé&
=
GET
GETBUF
GETINX
GETSTS
GO
=
GTSWR =
HCE

000040
064154
001334
001514
044070

000001
104407
= 000200

HC1
= 002000
HCRC = 000400
HELP
103640
HT
= 000011
IAE
= 002000
1DXMSK= 000077
1E
= 000100
ILF__
= 000001
ILF02 = 000002
ILF24 = 000024
ILF26 = 000026
ILF30 = 000030
ILF32 = 000032
ILF34 = 000034
ILF36 = 000036
ILF&0 = 000040
ILF&42 = 000042
ILF&4 = 000044
ILF&6 = 000046
ILF54 = 000054
ILF56 = 000056
ILF64 = 000064
ILF66 = 000066
ILF764 = 000074
ILF76 = 000076
ILR
= 000002
ILRG50= 000050
ILRG52= 000052
ILRG54= 000054
ILRG56= 000056
ILRG60= 000060
ILRG62= 000062
ILRG64= 000064
ILRG66= 000066
ILRG70= 000070
ILRG72= 000072
ILRG74= 000074
ILRG76= 000076
I0TVEC= 000020
IPCKO = 000001
IPCK1 = 000002
IPCK2 = 000004
IPCk3 = 000010
IR
= 000100
IvC
= 010000
LBC
= 002000
LBT
= 002000
LF
= 000012
LODEV
066745

LS
LSC
LST
LSTRK
MCLK
MCPE
MDF
MDPE

= 000004
= 004000
= 000002
001332
= 004000
= 020000
= 000100
= 000400

Ml
=
MIXED
MOC
=
MOH
=
MOL
=
MRD
=
MS
=
MSC
=
MSDRVS
MSE
=
MSER =
MSGDRV
MSHELP
MUR
=
MWD
=
MwP
=
MXF
=
NDTMSK=
NED
=
NEM
=
NOP
=
NOTAVL
NOTPRS
NSA
=
occ
=
OFD
=
OFFLIN
OFFSET=
oM
=
ONES
ONLINE
OPE
=
oP1
=
OR
=
PACACK=
PAKACK=
PAR
=
PAT
=
PDA
=
PGE
=
PGM
=
PHA
=
PIP
=
PIRQ =
PIRQVE=
PLFS =
PRIERR
PR
=
PR1
=

000004
067156
000400
020000
010000
002000
000040
000002
066723
100000
000200
066737
066220
001000
000010
000010
001000
115760
010000
004000
000000
067002
066765
100000
100000
000200
067021
000014
000001
067216
067033
020000
020000
000200
000022
000022
000010
000020
000400
002000
001000
000200
020000
177772
000240
002000
045152
000000
000040

PRZ
PR3
PR¢
PRS
PR6

SEQ 0282

=
=
=
=
=

000100
000140
000200
000240
000300

RMDS =
RMDSI
RMDSO
RMDT
=
RMDTI

PSW
=
PUT
PUTBUF
PUTINX
PWRVEC=
QUES
RCLSTS
RD
=
RDCHR =
RDLIN =
RDOCT =
RDY
=
READY
RECAL =
RESREG=
RESVEC=
REX
=
RG
=
RGDTPT
RH
=
RIP
=
RLEASE=
RMAS =
RMAS]
RMASO
RMBA =
RMBAE =
RMBAEI
RMBAEO
RMBAI
RMBAO
RMCS1 =
RMCS11
RMCS10
RMCS2 =
RMCS2I
RMCS20
RMCS3 =
RMCS31
RMCS30
RMDA =
RMDAI
RMDAO
RMDB =
RMDBI
RMDBO
RMDC
=
RMDCI
RMDCO

177776
044424
001410
001543
000024
066211
055322
000070
104411
104412
104413
000200
007756
000006
104415
000010
010000
040000
067156
000072
000020
000012
000016
001352
001426
000004
000050
001404
001460
001340
001414
000000
001334
001410
000010
001344
001420
000052
001406
001462
000006
001342
001416
000022
001356
001432
000034
001370
001444

RMEC10 001454
RMEC2 = 000046
RMEC2] 001402
RMEC20 001456
RMERT = 000014
RMERTI 001350
RMER10 001424
RMERZ = 000042
RMER2I
001376
RMER20 001452
RMHR = 000036
RMHRI
001372
RMHRO
001446
RMLA = 000020
RMLAI
001354
RMLAO
001430
RMMR1 = 000024
RMMR11
001360
RMMR10 001434
RMMR2 = 000040
RMMR21
001374
RMMR20 001450
RMOF
= 000032
RMOFI
001366
RMOFO
001442
RMR
= 000004
RMSN = 000030
RMSNI
001364
RMSNO
001440
RMWC = 000002
RMWC1
001336
RMWCO
001412
RGA
= 100000
RGB
= 040000
RTC
= 000016
R6
=2000006
R7
=%000007
SADMSK= 000377
SAVREG= 104414
SA1
= 000001
SA16 = 000020
SA2
= 000002
SA4
= 000004
SA8
= 000010
SC
= 100000
SCHSTS 057666
SCOPE = 000004
SCTMSK= 003700
SC0
= 000100

PR7
PS
PSEL

= 000340
= 177776
= 002000

000012
001346
001422
000026
001362

RMDTO
001436
RMECT1 = 000044
RMEC1]
001400

| CZRMMAO_RMOS/3/2 FCTNL TST 1
SYMBOL TABLE

MACRO VO03.01 11-APR-B0 13:04:53 PAGE 48-5

= 000200
sC2
= 000400
SC3
= 001000
SC&4
= 002000
SEARCH= 000030
SECERR 046004
SEEXK_ = 000004
SEKSTS 052270
SHUT
061766
SIZCLK 044644
Skl
= 040000
SNGPRT= 020024
STACK = 001100
STANDA 006700
START
005412
STCORV 061232
STKLMT= 177774
STOP
061736
STSD1
103530
STSD2
103546
STSD3
103566
STSD4
103600
STSF
103631
STSH1
103173
STSH2
103250
STSH3
103337
STSH&
103375
SWR
001154
SWREG
000176
sw0
= 000001
Sw00 = 000001
sw01
= 000002
sw02 = 000004
sw03 = 000010
Sw0é = 000020
SW05 = 000040

TA8
= 004000
TBITVE= 000014
TIMOUT
044766
TKVEC = 000060
TPVEC = 000064
TRAPVE= 000034
TRE
= 040000
TRTVEC= 000014
1ST
= 010000
TSTNMB 043102
TSTPRP 043150
TSTQUE 001464
TST1
010116
TIST10
012616
TST11
012776
TST12
014050
TST13
014350
TST14
014566
TST15
015074
TST16
015404
TST17
015646
1812
010302
15720
016124
1ST21
016374
15122
016624
15123
017150
1S126
017570
1ST25
020134
15126
020526
1ST27
021216

1ST6
012076
15760
035110
TST61
035536
15762
036214
15763
036720
TST64
037320
1ST65
037730
1ST66
040330
1ST67
040710
1817
012302
IST70
041254
IST71
041612
TYPBN = 104406
TYPDS = 104405
TYPE
= 104401
TYPOC = 104402
TYPON = 104404
TYPOS = 104403
UBUSQAS 066251
UNS
= 040000
UNTMSK= 000007
UPE
= 020000
USE
= 040000
uo
= 000001
Ul
= 000002
U2
= 000004
Vv
= 000100
Wl
= 000040
weD
= 000050
WCE
= 040000

sSw07
Sw08
Sw09
sWw1
Sw10
SWwil
swi2
Sw13
SWwié
sw15
Sw2
SW3
SWwe
WS
sSwé
Sw?
Sw8

= 000200
= 000400
= 001000
= 000002
= 002000
= 004000
= 010000
= 020000
= 040000
= 100000
= 000004
= 000010
=
20
= 000040
= 000100
= 000200
= 000400

TST30
TST31
TST32
TST33
15134
TST35
15136
1S137
TST4
TST40
TST41
1ST42
TST43
1ST44
TST45
1ST46
1ST47

021564
022106
022470
023006
023572
024316
025106
025672
010670
026224
026664
027104
027442
027730
030216
030530
031036

WCELO =
WCF
=
WCH
=
WD
=
WH
=
WLE
=
WRL
=
XS1Z
XXDP
ZEROS
$APTHD
SATYC
$SATY]
$ATY3
SATYL
$AUTOB
$BASE

004000
000040
000052
000060
000062
004000
004000
006454
001330
067260
001100
065760
065734
06574%
06575
001150
001276

= 020000

TST51

031660

$BELL

001212

Sw06

= 000100

W9
=
001000
' TADMSK= 177400

' TAG

SEQ 0283

TAGADR= 001114
TAP
= 040000

TSTS%
1875

032172
032610

$BIN
$COW1

062200
001302

TA16
TA2
TA¢

= 010000
= 001000
= 002000

1ST55
15756
1ST57

033654
034214
034556

$CHARC
$CKSWR
$CMTAG

063204
064406
001114

1ST13

010466

WCEHI = 010000

$ERROR

TA1

18715
1ST50

= 000400

011540
031350

15756

$BDADR
$BDDAT

033236

001136
001142

$COW2

$ITEM8
SLF

001130
001220

$LPADR
SLPERR
$MADR1

001122
001124
001254

$PWRUP

065630

001304

SLFLG

$CM3 =
$CM& =
S$CNTLC
$CNTLG
$CNTLU
$CPUOP
$CRLF
$DBLK
$ODWO0
$opwl
$ODW2
$ODW3
$DDW4
$ODWS
$DDW6
$DDW7
$DEVCT
$DEVM
$DOAGN
$DTBL
SENDAD
SENDCT
SENULL
$ENV
SENVM
$EOP
SEOPCT
$EOSP
$ERFLG
$ERMAX

000000
000005
065304
065316
065311
001250
001217
062416
001306
001310
001312
001314
001316
001320
001322
001324
001232
001300
042336
062406
042326
042172
042342
001242
001243
042136
042164
042100
001117
001131

$MADRZ
$SMADR3
$MADR4
SMAIL
$MAMS1
$MAMS2
$MAMS3
$MAMSSL
$MBADR
SMFLG
SMNEW
$MSGAD
SMSGLG
$MSGTY
SMSWR
SMTYP1
SMTYPZ2
SMTYP3
SMTYP4
SMXCNT
$NULL
SNWTST=
SOCNT
SOMODE
SOVER
$PASS
$PASTM
$POWER
$PWRDN
$PWRMG

$ERRPC
$ERRTB
$ERTTL
$ESCAP
SETABL
SETEND
SFATAL
$FFLG
$FILLC
$FILLS
$GDADR
$GDDAT
$GET42
$GTSWR
$HD
=
SHIBTS
SHIOCT

001132
001572
001126
001210
001242
001326
001224
066200
001172
001171
001134
001140
042316
064476
000000
001100
065446

$QUES
$SRDCHR
SRDLIN
$RDOCT
$RDSZ =
$RESRE
SRTNAD
$SAVRE
$SAVR6
$SCOPE
$SETUP=
$STUP =
$SVLAD
$SVPC =
$SWR =
$SWREG
$SWRMK=

001216
064750
065040
065346
000010
062070
042340
062032
065722
063210
000137
177777
063454
000204
167400
001244
000000

$INTAG

001151

$TIMES

001206

$ICNT
BILLUP

063710

001120
065716

$SWOBT
$TESTN

066177

001260
001264
001270
001222
001252
001256
001262
001266
001102
066176
065334
001236
001240
001222
065323
001253
001257
001263
001267
063524
001170
000001
062650
062652
063510
001230
001106
065724
065556
065712

063526
001226

:
R
| CZRMMAQ RMOS/3/2
FCTNL
TST 1

MACRO V03.01 11-APR-80 13:04:53 PAGEN 48-6

- $7kB

001174

. SYMBOL TABLE

001162

- STKCNT
$TKINT
| $TKQEN=
$TKQIN
| $TKQOU
- $TKQSR
$1KS
| $TKSRV

064110
064120
064117
064112
064114
064116
001160
064170

. ABS.

107146
000000

ERRORS DETECTED:

$TMPO

$TMP1
$TMP
$TMP
$TMPG
$TN
=
$TPB
$TPFLG
$TPS

001176
001200
001202
001204
000072
001166
001173
001164

000
001

VIRTUAL MEMORY USED:
55208 WORDS
( 216 PAGES)
DYNAMIC MEMORY AVAILABLE FOR
69 PAGES
CZRMMA.BIC,CZRMMA/C=CZRMMA.DOC,CZRMMA,SYSMA(C/M

$TRAP

$TRAP2
$TRP
=
$TRPAD
$TSTM
$TSTNM
S$TTYIN
$TYPBN
$TYPDS

065450

065510
000013
06552
001104
001116
065274
062126
062202

$TYPE

STYPEC
$TYPEX
$TYPOC
STYPON
$TYPOS
SUNIT
SUNITM
SUSWR

SEQ 0284
6%654

06 086
0632 S
06245
062466
062426
001234
001110
001246

$SVECT1

SVECT2
$XOFF =
$XON_
=
$XTSTR
$$GET4=
$$5w08=
SOFILL
.$x
=

001272

001274
000023
000021
063226
000000
000072
062651
001100

wOULO(NUO=—=O0N\MvOvNFOIM)TvWNVGON1}OoM1ON1—N27J4T9O7.5o8123‘79—NOVROuOmOuOnOOOOOOOINN
NLw@ail MgNN&aUlLoMOAl&0&eWa9l&e0—0le—v7MeRl©.OeNVGO&OT0G0M—NG&&ONL0NSTOIOIWTATVOOOTNOOVeAIA—NONV—ITYOOOVMIT&MOLOAAg—&—IVO—MeNoRMTNlOEVATONNOMoNRlN—oOOOMlASYR0NOoLVl0NNReLOAlO~INIE0LlVECVNAOOIoeOTRlOeBNOOLN>VINtOSIINN*LORINLA&W‘RNN.RRNN-N.NNS.MNRNMN-MR.VVMN.NDIB NMR
&INN
OeOB-e—e O=QsO B0ONI=DTeSONEO DOIETROODODE—RIOeOIEUOTROOD KRMEDRDTED DLOXLVU NN~ANGLOIMLOIYLU N)NNN NDNULN
AN(O&)eYONUMV=MeNeI*Oe—UeNtIeON«VevIMVNNt©®eU*INO0OMFN0I«TM0NNTe0rY&OF8—T&eNeFO&UWMNOVe0eTODNOOIOMDOYONVW(&®o&O*«ONE==NSOe~evOONBevVIMRee0NNLOIeI0MMLITe0AELNe00OMAWE0LIL e—NAOeO—)N\LOrFl—8LU—aelNL—reUonIeNm——lN\eL0 UUyeBILLM&=l- 2TNl.aaNl2%laal2&A.NlaBalLlaalNN.lalLaiBla.aNMllalMNlaIla.MllM0baallMMa0al.lVaMIA LLlLallIMMatLB )l
-~~Ne=O3~sNN~NNON

R[~MwwaCw3-2=a''?Mall-N8~W%E3U2OAN5o=)&N.DaMV3FOM-U5NDlNYN—aOI0e\vOVOMOMOV—YNJA&lMuWN—WMOUOaVTTUrN—==NEI&VOVNII9«NeNlC—Y-=eR=e\WN—OOTS8—NIo0—OM—IN0NuOlNOO—————aMNU*NvTvMOIU0MoM.NeT"MMs32ONSOOIOlA©O©=OA©eOvJn—IA0NUUITON—NNN&NNIO2VOGMIOJMMOTMODvI0N«MNAU=~MNNN0OOVO00I&NGGoNOFxLeMeVNOVM0=D0OIMMTMNT—&0TO02—TONNM~OOekO-OII(~OSNN0T—\—MNO—NI=VIOO6OVNVOO&OT—TMTOWOITNONNSE2OON=IJUOT&NOeWI—MTWI[WDN0aOINTMTMVNIOVN0OO==&TNIMO"VOaUIIINTTNOMNN2O—~O[J-u&MNW(aTMNYOOEONM2N=MO“OLI"T«A~ROANNYF~OMOFN—e—5Ie—UrO\IN°~MNOIaa(—2OAONA=——=MTNN*==n&@INeVI®=tVNeMANNIYNNsiOa2oV"—en0vNOAM=tOROOEo*~OIAI2*“—a*¢sN=eI—0**InNvNtOINaV~——INM——NeA—=TnOxe0PeMe—dON—OVOINeeOO1~O0MN&IMU0IeOOsDvAD———I~eNMII2NEUONNxOe0~ge0tMIMMM0=MOMMBOM-—FNIeIe0MOe~I~eITO—2ATOMR=RNOONO000OWtUTMNET0—O—ONe2<w—AEo=LMWe03sN\aSJUAHTMNT60*Oe——AeVAFB—NVeN0B+meOOOOOLo0MoDgo8N(OrUa=USeVoMBWlNV—NNN0—TMeOAOWTTOY"—eHgNNOeaa0LIONMIANONl—WLC—MN=0OMVNOLaa=YT—MT,e~VDONo0lFV~TON—NaO-IO~N1OLSO[Ws)Nl5To—WaIaI0]¥VWN(0EWYO—2Mw3NI“pRNOeMNM5“PNMJN20FP$NMT5eONA$oLN3V$~5NOW-=R$NNSL=$T3—MDMwa)OOAMlNNR’EaMaV~2LllMM’3BaOaOaOONaOO3aONM5a‘3Ru%M|uNlRlllEll’’VE3a"MwR’ViNEOaaVnalaa3)l2nlEMOO’mlEOlVO’O"aOL"Oa’aaMVE33la3&aW2Vl‘ll‘R)—E’lNlV|iLu0OLa"EaA’"waOMRMlNalLOalOA|nlE3OR’lOlO’LrAMVRa"’AaVV3O3)MalslMEMlVVVOeOaaEAOENaAaDOlllNllRMOOlOVMMVAAEaaAaO3OMLll3lOllE0lAVORE0VNAARaCNeAaOleOlOOlMMRMlOOl0lMNNAAaMA0ALM00r3O3lllM)lOIaEMM]AAAlrAVVMV0VllVMlVAlMNaNOOOAAAlOAM3NO3MAVOlMlaBE lVABMMOlLlOMLVVNVVaMaV2w-LAVNVlL0LlNXO034<B oL T— ~INN)F
l
l

| $CHARC
i

35-5

(CREF

v01-05 )

N =APR=80 13:04:53 PAGE S-1

EEIKL3ENRERE ERL=»I"NK

OaVOM*JVUWveN+O\s*V—O@0MeOO

- = L] enes "“«-

- CROSS REFERENCE TABLE

MACRO v03.01

=- - & & " L-“ xas LR «&

| CZRMMAO RMOS/3/2 FCTNL TST 1
7
SEQ 0285

" CZRMMAO RM05/3/2 FCTNL TST 1
CROSS REFERENCE TABLE

- SCKSWR

- $CM3
(MG

| SCMTAG
| $CNTLC

- SCNTLG
. SCNTLU

| $CPUOP

| SCRLF

| $DBLK

$DDWO
l
$ODW1
!
$DDW2
$ODW3
$DDW4
$0DWS
$0DW6

$0DW?7

35-8#
5=0
5
5=0n
5-0#

11 ~APR=-80 13:04:53 PAG g §=¢

SEQ 0286

5-0

35-8

5<0

5=0

9-19

5=0

5<0

5-0#

5-04

5-0#

35-8
35-8

5=-0#
5=0n

14 99

3 5-3
5=0n
5=0n
5=0#
5=0n
5=0n
5=0n
5=0n
5=0n
5=0#
5=-0#
13-20
35-3
4-778
9-19

9-64r
13-20
35-34
9-25
13-20#

13-20#
g-Ol

9-74
13-20#

9-96+

13-20#

35-7

10=115+

10-122+

35-7+

OOO-gO-&O&\rOOV&a\&MYJDNN&&NI1—seTO«MN—*TOOONNO—NTIMY

$DEVCT
$DEVM
$DOAGN
$DTBL
SENDAD
SENDCT
$ENULL
SENV
SENVM
$EOP
S$EOPCT
$EOSP
SERFLG
S$ERMAX
S$ERROR
$ERRPC
SERRTB
SERTTL
$ESCAP
$ETABL
$ETEND
SFATAL
$FFLG

MACRO v03.01
(CREF v01-05 )

10-150

11-3

11-30

35-7

35-7+

LR —UNV

1»

7*
O

8¢

b
o=

*&= AONNMNIM "&=

—NV O0N&ONONN OVO=NUIV

LIBB| LL (L

O-= V— LR
NN

MNN
NOJVNF—JeYT"A&—NITU MOV—OM(ILONUN—

)eOOJ(VN —-O
OYgIOOIYOOONV ggT

ca@ONON e —OMN

—ON MOIN—AN LRU 0MNOMNIOITO

10-149+

"&=

23-136+

23-138

23-148¢

23=149+

23-151

24=40r

24=55¢

26-36+

26=47+

26-63+

26-68

26-87+

26=101+

26-102¢
SEQ 0287

CZRMMAQ RMO5/3/2 FCTNL TST 1
(CREF

v01-05

)

7
3
N ~APR=80 13:04:53 PAGE $-3

SEQ 0288

$GET4L2
- SGTSWR

| $HD

| SHIBTS

13-20#
35-8#
4=479
4-781#

35-94
50

' SLFLG

5-0W
5-0#
500
35-120
50N
-0¥

| $LPADR
| SLPERR

| SMADR1

35-10
L=479

35-10

4=479

35-6+

35-11

&
®
<
«
0
L
P
0
L
N
O—MNIVYW(8"-alVoalde NOOIMONMVNINIOMN U.L EN«&WVWDeEwnL] |L
&

28-34
o ~N O =
340
?

=158+

269+

3Laiatle

OO008‘22'9.=M O —
N=0O M —
OOMO0O0N3IWW
NO< IMN WO

46-6

L SH1OCT
|- SICNT

CSILLUP
' SINTAG
| SITEMB
. SLF

BOVN—ORNOU—\0 «&- O—NV

ke3 & & UL& &

s= -

SONONVONIMMNMMN

N
e
—
0
O
7
g=lal—aOlDalal\LIaNIaN(—V¥
o
l
a
l
a
l
o
l
o
l
]
a
N
I
V
l
(
V
¥
—
e
—
e
—
OANMITONMONV oNo&}2l——JOaYl&NaNOlNa=lvAoloe=MIO=VNlMr[a=¥
O
M
U
I
e
~
gLlallaalal'
NN

CROSS REFERENCE TABLE

MACRO v03.01

w\ &=
07+
7+

28=43¢
29-39+
30=47+
30-173+
31-18»
32-88+
32-208+
33-110+

28-59+
29-40+
30-43+
30-175+
31-19
32-104+
32-225+
33-111+

35-6+

35-8

| $MADR2

| $FMADRY
!SHADRA
SMAIL

M—=e

O—TN~ -AMONTUVNON AONTNVNONV

N =JvFON [ITo]aNVINa[LI o—=ge— OVA"*vMW0V eP

=N\OSO —e

TA“OoDMOODNOINFTTWVNNO |
TNTNTNTNTNTNLN[V
NNNM=oVOOVNM—

OMIINO—

x>
Jr- O

“NNoR

35-12«

O N0 —MO
OOO—J e— MNNO—
—O0"ROU

wnNININeeNy

35-1¢+

RT-w

28-61 *
29-58+
30-63+
30-187+
31-30+
32-109
32-226+
46-1

12=203%

12-2030

12-237

12-2378

12-272

12-7728

12=2728

12-306

12-306#

12-340

12-3400“;263;80

BNNA&N&-VSOVE¢-A3=ARalASLA ANN=NR
MoMoOMwAosN&NO——-bZJ—Na«On&ONO=NnMeIhW&O—MT@yOW“m~oNO]o35XbONANANMOOoVNNA~alANlN—aIV=eOMA]WI1VLNVTWaOLlNMdeWVIaNVlWeTO@>lNe3eA~V<FR~2O5T-dOA—Rx~~[O~»55iENO>NCAx=Nx|AONIIrI—OrN—ORC(OAR-]OROi3W=FRrO—CNM~SI5OWOogOOMWNoODraMulanaNOoNYML
T-MOvieBueyO~—JO~CNMOOWNOMON~ ~N5-~5 a*leEsLF(e
A0OOLNooeN(uMJNM—--aUL)|ls.|.GROM0—NAeAY-AONNreTO—MAWoSeLJ—Ove.Bo2RR=OMITN0eN=--0A=eLNMWN—eNA}NNDVO0MTWOFM=So=-V«N®@eWnRITDNwYLBeo——boOM«=-&&NOCvON=N|DAMAe3oNeV“I&BN=NeROOI-OOeY—M—(TeA=o=nMeO—nNBTrNFTV=oNu&=O"Bo&aDOGTORrIN0An3——B&--O=&WvWVNMDrN-AV"Vvo2--“NB—D&=-A«OaArNe=MMNWMUUe=)RLLWGo@~OT 0TTeeHOwo3DW5wNWSOLxEA~ANNMSNOOA]RN@OND.SM0aNN}lAILRoNOWONWI—Oe—d==OvNAMnL~((O-OOeIO=L@uNBaAOIeTDtOInNlMRROOFO=kW—ID-L—B"eNIL=D~OOD—NUU—uOYLW(WOo-SV~An3L~="ANaNN2<A~01K@=RRoNUaMMATRh£N4S=NUAdnXN4NOvAa))Rd~5BLRbMNLMN-ogJIa=NNAL0—lVNa~NeLUUOU0—NOOoLeLeND[~~TOFATJRwNN05IIS5R0u]IoNOR0VwaNwsv—=lWlI0W_DAL—o~eMv-i——wVBaaMDl-OLln}lo|NTTDoNZdaO«LNooR>P—EsoANoll0RZ0Oa0o®No-NEll<Pee][ |rDooVMoNxll0=EOaZNDlRBaOaMoNN-—-EolA'UANlTDWNELgNwTMoW~FD)]] B] U]Ll~NZ)lOe3SVNa—BEENlxVBXAIVTaw|-Ae—RZ0l'ytEF~LoXL2TRAzWlZNa=BON="gWOR-@o—AO—ON}aR|)=]"1EVlLe~O'MNlMD0OyaNS0DlNwMTMTweWA=a«RNIV&LO-TlWM}VPYND&RAIV0g<omC—OO=V[NI" TlNuA[]1M—AgWO=OaoW==NoLLVNmN[VvTwW—YRSgNNn[=onlV10-R-T]aMNOYOI~TNTn-WL¥=B——SNa(F[o¥a
—a-30 NWOAnMAL(DNGnMCT=Y(LOW|VLOONN-5DoeAA]N—--AU—ooNBcN=O—0MNOAN—W@WMT=&&||oDVrOaVNO1I0owN—-M&BIBOo[ToTow0M~ALYN(M¥"&IOBLIooeWSNAyWV[oOUO—¥JK—I-o-"BIOLr=VoBBNNL~OOOoWNgaON=ooRIa)2iU|0YlTNeNNaFOOOADMaCD|D)ToiuVTLNlNMNIOVoOIIII\AaaVNNlNVI—roVIeAUIIOSAMlIuN—VOI—No2O~eonIor[e=O[IIDaIsooAN"WVNNwOaQDA=o—Io—0OIn0IIVeNONMOLLAOc0—I3IIILDIVViVMNoNOWWOJa—U—OatDIUOMBl0aNOLKNoTvNMLGLYIDU .s0ES5A~0sNNN~~s®N)|="U 3|55~O3oLgaMT0To~NaB]IIlOMlOL~O~~~—Bo—oUUNNNOLOO~Oa.~T=~L=[A=NNLLUeddY5h53 gwoaoa]]]v3l0-r[[ LOMOvNvoW—.a])' )? l) [LOVNaVOIwL=—wIgwW2—O]VlLa1~Lo ]1LN=gaV}Y[l"I0aS0l~cDW<=]—LVL[=oONo=IaNN]VVOOOa—L"'=[=L[—""P—+[o[a«oe«
ST-~B'Le]M—ANO—-O|Lo—OTINO—UCNLOCOL= LaNl2[LlNA-||YBIIDNYeNOO0e-eMN0OLoO=oVILM~Mg—LUOLL k4<L~NN=|i]d~~RzolNgo[e+No¥1lLLa\e~i(Lao [N1g-—WW1LoC}ya\NwlML—noaUVttOBuLlnleY
CZRMMAOD RMO5/3/2 FCTNL TST 1

CROSS REFERENCE TABLE

{

|
l
(CREF

MACRO v03.01
v01-05 )
N =APR=80 13:04:53 PAGE S=-4

6
7
SEQ 0290

$TkQOU

35-8

35-8#

35-8+

35-8¢

SEQ 0291

1]|AII|eeeeeeeOILLL10)
wUVXeeeeeeeB~e=M—IN—MINY—N—Y——gwWg)GDRSIQUPBEDULPIROUOI0NIVUOPRINPIiDTNUVDN—r————Fegu—n=J-na~0N
v

- - -, |, |- - | -

-= |--- , ||

BLwvYWDAr]alNNWromOOoa©LOa-Cowo~AoO-~-]-oVs-3'MUoBi|N0N—A—l][—DLu+WReb—AmO2R=—F>MuVOT-—~omNa-)]0NMlTua2oABOEka—)nA| aoRm=lFlNRoN0'a2OoAlC"lROvAAaEaOWlN>WlRD0Z\NAaLwL—~lNlWaa")—y0DllaANAsF\.uO=lWDlDNael0mACaeElluodvDAeaAL0)LND>larnUIW]lBAoasa0M=La]lLRl)""AoPilLaOUVAewaNW\0~Y"va©l)aae-O]oLR)iL-BL&0NLMlll.>lTLOYN=-AonD>eAwas[VROV}llB00’ajaOaeaalMcNrO-M2wncT—=M—=N=lll||3]|eLDmzl2«’—'n"—’—’CoRowCaaaaael—en—lrrlIIeOl’clcA""r’O'e—saaaiao—llolMeM )OenIel—e’"AAiLalOccaae—na1—IleMlLCMLmlolvo'o—]ePelsL.CLalT—M!OOuIaleaD-SNUTeL]l]nT—TPOxa2uae=aDAlan~s|N =BlODenMn=e 2o=BaN@DlYIBo)L@agDAYND-WAND2OOA~<AlNDYa&NTANONTyAAUUNO—=IO—AMIOMAJ-TNeo0]})o=W_CVMTLO-WYAeAON]O—A—eNOOTeNleeoNOBMI@N_Y@—NIDAEkoM=o[JeeM—eeEOONlNaTIOVWN2NDeMRONMI<KNo—LOTeeWALNeleAoNENTNYVONOIOUK—NIRANN=eDLOA[e—UNOMOoe—LNIV—NoOOINl[eeWNM—TNVLeOAaWOIAoeUVVNNODTOOoT.=eeeTR[o—NNNN—0IaNlO—ALA—IoeOI0TSlT[—eOMM"AsMe*olslNNOOaVIoLMN—osslMsle—NOA=T[N“NLOIAAIlIANoMNOe0MMNNNCTVSOIRNNIlONIeaLoTOoOeYeIS—NeOO=O[—OlRb[=DLa—aTMTNS—0OVQOLNOoD[IOoM0ILaMOtoMOAWlM=NoOITLIO0NDOatMIONeoLANTW0EToLO—8lWI0MRNVSNo0oTMeVMe—aLNI~=MLTlIEOO0L0Io—0FaNLOO0taLL~1OO—OMa00L(NoLS0LnaotlTt—LTOTOROOOoE=DMWLL(ST[aoAXALoDarlRBREos0S0Moe0HWI—=VMOOT\z]-R=P0WJINeIIBMNOONN-3gx~)(—LAneROJM\GMONn=or\~ae0OoR—VN+O=B=ABeeW0e—NXoglAOUO0e—oe——DBIOaOroovMMeleO——0OuaNoV\D&MXa(~eN&——M—M7Ow0nL—OOTITno0MOFouAOaA-&—HIJNA—«mePC~~l~NNwMNWW—R0NnaMN V~VaMsMWaEWT VN-"[wLlLU]0Pi"i"NN00iMlvL0TMWaNBNanVml
ON~O~Fw=a'yNyLl.gOel|’2s—alMO((w3lleo=O’’a—'lllaloOlare—eeI"Ol"’llaal'".a’lase’elolav’.]—lMlLl"saOOee.'))a(—Lo]]sTl=lDL@ T[MJYMJO-NYOO——Mo|NT]VO=OWTO—WaRMB»OMNNONVN—“NeIIO<[oLTOaoI—AFI=NI-[eOMOa[VANOCOCN2M—NNIeSaoOBN®o0I_OOWIN[—NClIeOOL[N—oBNTsMMN—T[NleeIaO[M_ANaCO=l[AduSa[~—NOCNRN®~IONoMIToAO—Na—lTOILNMMoCNOMO=TN[lJI»oOCNONTOITN[lROLMa—MIOoNMkENTlO=—NRpaOLVO3oNODLOIN—NMlOaILNNaoAINN—L=ON-lNMgNOo=NNaoOLLMl—oAAIaoLNIANVLODUI—NNOONola(VN OWfVFg=O&)eeoFlgaONas&lM0Oleg—0~ae—-ln(oIlTeNONeOlWY—&loV0=0FyyFNPN)(L~A~sMwA*e-.>o-)atNNL]).
U)h |L]UL |BeeeeeeeOO0ILR8R0L0L0L0(IfL )A BL|L [

MCXNLoC£-=W>e}~S
= = - - - - |- ‘T *
= - - - |- |- ‘T -

CZRMMAO RMO5/3/2 FCTNL TST 1
MACRO
CROSS REFERENCE TABLE (CREF v01-05 )

v03.01 11-APR-80 13:04:53 PAGE S$=5

7
SEQ 0292

VIOR-ATOgVMN3«MN

oOMkOVID3&ODNO-|"=.l,

$XON

35=5

SEQ 0293

-—T——e=———e—Te=eT——r— ~—NM
UNWIO ArcNMONSUTONULO i|
OWN—NNNNMooyMIONToMNTN)AOoNNeNI——oONOoNrTaoNOeTOCNMTVNAAMeTA~NeBYT—ANICIaSNToTAaNO’N(R
OTaNTo—N]M—TNO[—NBTeaIN[FeaNT[ONRoeV——[FaNTLeoOVNLoetoL—t

——

W———O———M———N———O———N=—=O—eV—-rA—eGeOeDeeO—

= | | | w-n

—-~

JA>AS-EBOENDWWLEEONOWEOXAEEOXO0EZ—NEETOOWEDA=V0ELAVOMONE0DCEEOL~=—Oa»l0-eIE AOOD0SNLOTA@NOW‘F~OOMBYFT—e/IoN|D—AOINN-MOMw—W—=NWOmVNDNNOe—Oe=—SOORNTTWMJeN|Te-&MMOIOONWe=MDOesg1eFnODlOe'esN=gO+InOTMSewCT|ANgTI~NcWe-=lMeONO0T=AOeeOM0OIVNeT=MWM|IT0ONNOTxN=eAOO—iO0OWNeexA0TJANVN0Oa®-ONcNO-0NOdoTVP]0o,UNOlYoVoE0lTcVeOMNlaoT0eVNacOlIeV-lNae[VOT8NI8O8NOe8NOr-2NO8NM2NVOBOo3YOAV3Ow—YN2mVoLwoo0—wa~3tV2NNOoNYT2V0NWM[02NaV(oOTN30"VI3oVlaa~-7—l303NV=.0aOa3FN-Le0—.A-—O4F~NA—LR4<oV.NMaLl%Nx=0/=
MACRO vO03 .01
v01-05 )

—|/l" rr——NLNW<MsONSTDlNOINTMNTOO—NMONOWNO eg— LDOeB BMOON—MANONY|-y LINOeBU OMNTOe—INhe—N OMITINOVACOW |‘nl"
| A eB BA II O O I NILe L(LL(UIL
eN |A-NwMNJ|ee ee F}O N|OLWLL OO!L LLM~"II
Fo-VNTTINNTMIoNN[|NO[N[oNN|[a—
O
O F— NN Lo"TaNRNLa L
N
N“J~O|L=BMOUN®OL*IN
)FN|AIB;OMnND0|O0y,eON
wONV=M
00

(CREF

NONO—ON—M
I T

CROSS REFERENCE TABLE

CZRMMAQ RMO5/3/2 FCTNL TST
K
7
11-APR-80 13:04:53 PAGE S=6

SEQ 0294

AMTYP1

5<0

SEQ 0295

OWVNO0950957892846“2464272
O—NOO—O—NONIMO—N0N—TONONO

TORa9.NaO8NdO8RAA“N.*U9TQ—C7NCOD6DTEO0WEN5fFI9TFOGG5NW6AVNCAO‘ICM8sSVN2"=“OMMII2TNT7NNOO2NOO“NMND5DON9ODM“ONObENNN
ONYITNONNTNTNNONIWNOOMNTONNr—ANMNAMNINATIN
N—MMOANNNOONMTNOPTOOTOOOT
xR
R
R
00
0
0
0
0
0
0
0
-OWNO WV|.W IMONMRININO OWMTVOITNOWOUVNMOMUO N=
—e
—————————— eT e T

NNOONON0*——“F=—RNULN_OVN
NV——N—\vIIO-——NNWEANN=A-——NM0|NN—N—WCNCNN——OMUBONNN—MNC—IIOMONT——NIRNRNNNN~—eIICFC(NN|O—OIO¢IIMNDN——NDINvIOI—OOI¢NCNWOVONTIIAI|TCOOMwUNAN0YeI—GNN0WONW<MTTGI\WOWTGL\—OTvG®LTOTGIOAOTTGGTM|OTI0NVNNORTOT0NGDOMOTO00VMTTT0MR=NTROT050DRAOTT5NO00NTO700NRMNWTN000EN5OIeTReOV)VOM
RSINT,M0ROTVONYd—wVANN
BVLNxwOIT.gNRSOATRINW—oCWw NONWTETOM0MMNRNIO—NOORH|TNOCNGMBRNN—NO—TATYOCNNGReCST—M|NIgC_OOWNIgTOT—ONBNVI4ODRpLIdNDTNBN—TRdTIOWNORONdeTVNOINoRNNlTeTOoNs="TlIR—VNgNOPNlRTINTOMTTRNoTONO[leNNEIOaONRTMdRGTVNNeIMNNeRRToMNOTlO0TNNoEETNle0ORTNdTIET0NTNgRTT0MONONNI=RTT0TON/VdN[—EeWNL
NO—YMAOe
NmP
TTU
TNVNuw—NNBpOnN—NOWTNN—NVTNNT—NCNNOe—TIN—OO—NTNNM—NONOLoWO—NNWeLVoVA[NNMeN—NO|N[CeNOO[VORNNNLoOLIOONLTtMNVOPO NLITV INLNOMMOINLNOLONVNNe=|NLNNN=OLVO=O NNALDAOLONMAOOLVNIO—IWLEN~L
R
gwISY——RYO=ReTNJOINOA(-_NWC—NNN.MOH—NNIOTB{_WONNON—AN—NVNCTN_=~OeRIW—NDNONIMAA RN_NOuN—OnO_W~N—NO=ANR_N-OAROD—NO_~NN—NNV_MAONN—OO~_NNN=D—ONOMA—R~MNWO
| APRIOR
| APTCSU

" ARGS

APTENV
APTS12
APTSPO

35-5

N.(O 31111‘11’1111‘111‘1 -g—PTG_—
2
2
2
2
2
2
2
2
2
2
2

5
5
5
5
2
2
2
2
2
2
2
2
2
2
2
2
2
2

(CREF

v01-05

35-12

)

22-326

12-118#

22-341

12=124

22-356

12-1240

22-360

12-205

23-117

RExREER

12-205#

23-121

12-222

n| | |

' CROSS REFERENCE TABLE

MACRO v03.01

' CZRMMAO RMO05/3/2 FCTNL TST 1
#
7
11 =APR=80 13:04:53 PAGE S=-7

SEQ 0296

37-77

12-222#

37-78

12-229

37-81

12-229#

37-82

12-231

37-85

35-12#

FOWNM—NDMOND=INTI0NOTVMIN

5=0
12-23»

12=231»

12-235

12=235#

12-235#

12-248

12-2488

12-269

12-269#

12-323

12-323#

12-326

123264

12-326#

12-329
SEQ 0297

-OOS|mVOpE—WNw—-ImIpenN—HpW—A|O—WLM—AO—N—OCNgO—OgN—CSOTgCIg—NBOT-BTROCR-OANeDOeONReOOeCMeOVeWCeNOLOOANWGUOOWUO|I0WO—OO=DuNnwnM0DOOONOOwOOn=TTOINOONIOVSMWMN

9QNOQ21If5Wl9NA‘%9*41%24B1638C1165D3067D80E34E0768F10F869F15G6636.u08.7u0.n62\8.16709\.2,2A032%I90V82s362*74O2N5N4N8O12O93O07O4N6O3O0730O59TmV:TW~ONe2—4NI76M
-wwwwOONNJSYNSOHATASDN—p——=n2®b00NN0N000L—x..VmOVOI%VAWR{W————ANOOMnO=n—.|NVMIw-AONwg{G————wOIVp.I~n_IN—OYITVYNA{mVIOGN—0——TNWWW—OHA.NHYERNCCWCTW‘—{———WWWWWEMI®O—I|-CAOO|=————NnAWTW3NIIwWwWOLLA{TOwN—-NO|—M——vNAGMNCOAAkLONN|LO{|——"=4IC—AO—=S3NNOG=|G——eSNIA3IS_SYMNBT———OCIGGOCNC—TBOrRW3{-=G|——NOWNg—MAWODOOR|BO{—P—CG¢(O—RBRC—IIC=—-{WO‘1eN—TGgz—MLIMAOIMO—N{——eEM—|BOTWC<MRG=wO—{B¢—UeOp/—V—OOTIn<FO R————eOCOWGOAAD<TM=-IT———O—WAGDO{E~OOOo|—eW<e——PT=L=A<P|DVIOA@———-OGwLTnUVpOANC—w=]B———OGOnV<<<OYD|0———|ROGOOAAVOOWO——W—GITDO—|OLN—3bY——O_TGrOOIWVOe3—W3OW—OGTOO_—MLO|MDNRTWwOV3AeG_CRON=|=—F—G_CBVOpWOTOB=A=—=TPlOIICDWN—®A=|PTTCO0OVOIP=CbOwnTGI—OTTGOTn0WW"—W=OOOOOWG00A|MCN_-TMWO"eP-T0wW—LHEwmROlIG|TOOITPO0G.UuRIW|=—WO=IWIVTT—O0-lWnN*TMVVV*eITOWO0GIOI—.-_sONIMER—O==sWLWTVTGI0O-V~N|*Oe—=“OPIOGM0Ru.enV5*_—*T0»O=*TTI0G*3D—N_kOO‘OTOTI=TOT=0G3G0N_~N.O=|3OAOWO=—ITNG0M2N-I|O=3—WSO=DTIP0WUe002UVDPO|O—M.~VRN=mAT=0OO00GBNL_DVEIN%NO|U3AO—T=uG00O0N—OWONOOm.w—NNueNO=G000WUMmxOIONN-N—n-O=MwRTTWT00GN0m—NO—NOe.OWO==EOFITT000n«U|Nm—OOOTGTWE=WVNFOT0R00|rOwIO|—OTW.O=MTwT000mvOONWO—TO=|OM-wOoTG0T00=N|,N_—OIIT&WFw|-0V00=T—mOTVNRTb-|MO_OnN.M0T0E0W-OGAO.Rl—INW|VNTOE|T000mwNNTWI!|R|OuT—oTo0.T0e0MN-NMNNVsW0T|INV0.0TP0OMIOTI|/=eMMeoTN-00O0-,-==N=W0INOTIeTeOIM
57x9u1n‘69W1“6b815079‘3.7L376=16368=92536]93.0L33602%N67N‘5%81N90“W6W0wNn35]032L5922‘=6
NOIYONNONNNN=ION—TNNNNOVINNOININNTOOLNeON~OONOOMINONTOMDeNO—NNONWNNOONIMOONTONOOONTOINOIOONDNONMANINNIO=OMNAOIN=ONONONIDOSOAOWNVNOINOANINNNINONNN=NOAINTIMNONNOIOIMONINNOMANO
TwvwOJNq9VYY2AgT7q86S=pY00000000000
NT———ON\167UpGqA)TIv—NuOJV——DNO—IWMNAw817—2EqRINTNTeVOeHSv.——OTIAE20GNMqO0qNNNOVY—0—EeMTTREC8Y3G2N0g—NTW0N——NMARY_TGN5=q—2EJNOMDWOp"L—TMT9408J—OYqNVNNIOMFG=—RNE0WOMTT8NTA10GIqq2NTMOORY——WONBTE—5N‘1—=TMW2NNeIT.OWDTITO54—TRWNeOYOCN_NE~7T96=——TT2INNeOGNYAD—6ROTTE—‘0q8TNNO—PG—SNTCRIO83pN—T2ONOMG—<NRT—49{~MTeNT2OeO.CF—NA8TIB01——O_NOTN2GRNA—6NT——49N—TRONMGO.DINVA1NTO91O(R—=TeN2OA—‘TN(74=OI{e_ONI—2RVNB—O.NNL41{—TDNOO2GO—A5—ITN24|—{MOTONGpOI1CT—31—pVTNOG_2_—V6NNLA7{IF—CTOPNMpD8—OTIN—33TpOCTNOO2—TT62O|—TMAONO@_‘NNL8C3N—NoOO2V6ONTMTO46—pNNVW3NsTNO—3|NNW-19——OMNILLevOn24_N~22FTTIO6OTN—WNN0O4P|YvT—[T5M2N=VI46CALPTTO—06lVNU_WT9-TAITI08L2—NOoLO_N62FTTTL—O0G1oN—tNOMM95NTINOGI06_LU2N.a0O_N47DT[VOO—IGIT8NIIMN21O=sRNTTIG0—2NNO——52TNT[MG01TNOO_N86M*|—V*eNO7I0DLI2ToTN9N0O4—[[0OOI0GI—NN~TA3p.TNON00—ooN2N654O‘—O[I0VO0G0LNoO885—IT8TOFT0G0LN—2DoMON071O—N3T[.G0DRNNONN—59O1MTL00Goa2tOONNB90—TTD9MIGoO_N—635NVL1T—P0O00ODN2NA56NL|3OTWWP0000_NNMI61O1LF5—OTP0000VoMNA_N235LN4[0IP—000NN716W6LTTNOTU00000Vo—eN~N2O40I5|IW_Tl0P000ONN—N8T064=NTPO000_0oNNTG2N3—77LIDOT00000NNV8—1N69LO|MP[00000ORN~92LL92TVW[PW000080a~AN.O26=LT|LPONWGN
2ODuHYI—00O2N0—BIOTEN—NoDHe2N—IWTe—NVAn2e—WOAN—OIC2TN—WNSON—WNCD2—W0_—BO—C2—OM_RON—TAB2—NM—ONRO2=—NMKIC—OMNAO2—NTC0N—AN2<——=IPN—AOTI2D—NNV—I<NI2D—NOON—NV2IDNVTINMO2NNOOAM2CO—NVP2NOTNWN2ONBRI2NVON0PV2T“0IO‘0TMF25I0TOTN0VN25OT0DVON2PV06ITNN0IOIN20T6=~IM02eO0T7=NO0NO2IO0M8D—0O2NP0I8OS=090POo
| CZRMMAO RMOS/3/2 FCTNL TST 1
- CROSS REFERENCE TABLE (CREF v01-05 )

MACRO v03.01
B8
1 =APR-80 13:04:53 PAGE S-8

SEQ 0298

| BADTMO

9-3#

9-21
SEQ 0299

-NT--VBM—<~VW=—-gN-OOr)N—<5-x—eov-L~W5=Na-"0—Ra0RL—NLdONOII.Nal~—a_S0l—kANe—ONNTIAETRNNE-I—NW~mATEW4TOORION4OINNNIeO4IGIN04IGVOI~4NY~—I-—
0MoNDNA—O3y~N~o-O-—nH0N~o-5N—-—e~N)nNLao—L=-l}L[k4N-w—va=lX¥3]5—Ao—K-=3—~Nwo0WOVMN4oA0IRSON0T—2MO~UI—VL—BO0ANTMNO<SNOUI5NFo-M~—N4LAOaVMNWOlA0OarWl~ANUOa—LOlVAWAarNlOaIl—OalNVMOOT—a0lOVMaeNlOaLV—Nl~seVl-— 0000
R

eOo - o~~][+ Mw@N 3O4AN0R20O2 N—5WOO~5NNNeOi—i—VMSOOMNMAOMAOAONMANOA—DOO
- ONO VO NOOO OON
4O£o0 OvUL= 34UL2 w|Bo- U

ONO<MNTIOl3RN—LdOWDMN~VWIX—20U¥-0NrNIO0NWA0WV-eoE~@@NV(e——Vx'O=IO—=kOe—3rOMTIO2O-B=Ix@WONJTN||Xi3LXNNoOITWVOOU>V—)~LA~a MM5N~YD-NO&=< orW[BJi §OMDORIND0OI@DUREwbVIUTOIe@NNXooeeO—aIIitU¥rxYN]AOLWDO—eU-Ow[LNNLWDU)O>TQXYnNOObATmJ.A7O~TI(S)"FBVNDrw\0O@~e—5OM5[IDFr2ROoetreoeooAOOoBt~IITOeeMeetINONeeWteNetIOGbNVVNVO4OIM)USU)YbWVADMnRVOOIaNIOGbOTAyLILS2WIAY~ICUUIUSbTNV0LYbg—IWLe2NILV2TlV5OOTWIIIOOOM="".R$IYer NTTTVOSMN~)&eVLM0LITVOAOI<==TINNVNT—IMIO)OIoebTY0VOONI=—TAOOMAITGbINIVON0SIN$TAN0bMVfVMOIVIM2ITTIe0AAONMbLVTVATONOINIVIeMTb0INONOOIITIVTW4IV=O=GItNCNI0N4IM0I=ITII=OOOtOTNAOIT+IU0LRC=NMV8=IMOATTUITNIO#TOIU0OOL=L04ENONNNOA=O0—OLIMI0OII3R#[=.Ot1CC003MD.OO0D30CNDVO30OD3NEYO3o3VO33Oo30VVb
OaiANX——M)olV—OA~[t£][o a4NONl)aV~MwA.i)NgRV—NL-N2]oeCA~2a—lULrNOAO24LU"alAa)L'NLlLaLlBaWT4ONMolUVLAlaMAvNaKL~AANnvNyANlL—B[daOR~~BLalela—l)Nal~vo~L4e
" CZRMMAO RMOS/3/2 FCTNL TST 1
CROSS REFERENCE TABLE (CREF

4(-7384

MN~F—&O0e0e0IeaeTOeTONMA

MACRO v03.01
v01-05 )

)]
11 -APR=80 13:04:53 PAGE S-9

o=
-—

SEQ 0300

23-28

Lo—al

—

[)L']

12=631

12666

24=21#
SEQ 0301

MACRO v03.01
CZRMMAOQ RMO5/3/2 FCTINL TST 1
CROSS REFERENCE TABLE (CREF v01-05 )

10-144

10-50

11-APR-80 13:04:53 PAGE $-10

SEQ 0302

36-20#
12-,;80

O-W0V \—

OUMWANOOJTON—O—VWO\
gLBa2lN XLXalt

MIT IT T

M) NOONON N@ oN o MITTTTT
-—

DPE

DPEHNI
DPELO
DPR
DRQ

DRVCLR
DRVSTS
DRY
DSWR
DTE
D10

12-:52

4-6804
12-374
12-G66
4=-7504
4=751#
=558
L=64L20
4=503#
12-594
4=5554
4-4L83N
4-568#

12-:5¢4

o~-N ~5—-N -Lo—

|o~mNd oa0 O~

Yougvveo)nLo o oao oLao

—La-l"~OsN)D@V—=D~IDv—AOW-—=

waoJV IOTTSNTEREEONE.O)VNONMNIYOVNOWVOVORN— "RL3 wO=M—o

LABibgoRN eUO—M OWoV MITITIT MIT

- JONOOS

[«XalaL.3l

«— O 00 G0 GO GO a0 G0

R-3

35-6+

357+

2
2
2
2
0

26-195

28-127

28-128

31-30

21-106

22-38

22=41

22-42

2
2

12-610
12-A23

21-139
12-189

12-190

12-303

12-423
31-9#
12-189
5-0
4-582

12=-574

31-18

1 2 1 90
9 19

12-303

12-986

26-195

28-127

28-128

31-30

12-988

EBL

L=6228

SEQ 0303

NO—NFMeON—.3NMUWNMTNMON—e——O OONNUMO——M OOO
ONUMe—=OF
'

(LOIB —IOJ=FAMNODISTMONITMANOTNIT

O
N
O
N
I
M
M
N
=
N
O
OOIV||OBININOO OTBITIOS3IBNOBNONFA TUMIDINRORIMMIVRITOORR OVeIRMO—RLeW—=—I MONIMLL—U~LRN SO NMN3 N
OI. NUIA BNNOI BNOI DNNIUNRDoMRDOIRI NMNDB ONNRD O—DR =DI IBMLLITNU
—TIOMA MuBNOBYNONDNODNMMIR NDDODeDN—IO CR I LIS —O\NTMIO 0 N= eI~ N
.O) NBNOByNNyRNNND NFN RR SNDRIADDNINRDNMARD =BR DRe0II0LNFL[
OI—yOON—MOPN—M—A OANMNOANN—IN OyO—M—NINMANANIN

UDIeLR [.NN O5~CADWNA0OFINM

OONUOOWNVNOIIMMToOTMIOo—TO— = O —
onVWA
7-517

42=2n

LNol

LDBI ILBDO OT—N0 UIDNBL TNO—O0O [Ne .N[ NOCUM=—URMNANONOI~N YNiS =O—NNeN SNYL
ONINIMM
O F == O TO

MACRO v03.01
v01-05 )

OONN
MN T MF WNIAN

(CREF

MOMOANION
— A N ~F =M

A SA B

ABN

OO(UOMRO3SGNAONo=MMMDU OMF VOONUTOUVMOA~N=M3—— AN=—OAMN0—O —

B0NNOO|OBINTBIOUNVOO~II NID NDD YMMRD )RB OOoRB oIR NRI LoU—LLL
OMONON
—MOF)O3BNM—B NReIN~RON—IMOVODFTeB DONNVOD OMBNAMLR aUOLMl
o—FO0MWN—KNAOoMIoINNOWBI—nDONTOoDNNOBTOoIMOD NNITeo—VUWLA
ON ONITWND OR TNIRMND VR OR ONI G—I —N=NMSU—LM[N
NOO—NONII| II MYBI ONBI LNNDOID NMMNDDINRDDOODD OIR NN=BII=LOO MILUNLL
ROONNARANRNRANNRMMARANANANANNR=N=SRRT

OOrAO—OMNeNGNMO—NAONNMIOMUOMO—yN=O3 eWOMO——0

—
(
M
=
=
I
T
M
O
N
M
O
N
N
N
)
Y
O
L
o
l
o
l
O
N
G
V
T
N
N
T
T
a
N
T
o
T
[
V
T
e
Y
I
T
T
I
T
T
R
N
S
OT
M
N
N
MO
O(FN—WMAOND.IOMNAMeON0AVNM O OOMNANN—MNAIOMN NF—MOA0NAN~F
Yoowooooooo
CROSS REFERENCE TABLE

CZRMMAO RMO5/3/2 FCTNL TST 1
11 =APR=80 13:04:53 PAGE S=-11

SEQ 0304

L2=4

[ALSOoNel UID|ABNLO OTNOWNO-o A=NOON—0O [N.GN NOLDIBRA TONOV UIe —ONOA—ONMON—

62-10%

EFTI10

7=222

43=4»

SEQ 0305

AOVNNANMADNBNYAOS]NAAoNN~SoMoSRlNoOHAlIARNLMRNoBAl§NAONRONASNORNRNAAN@MR-II~NSA

—VOAONMOO)00ANNNIN0SNNNMSTGOeUNM—TeCNMIOINMTTUAMI.NNMA~NUFG—MNNO=N<—30NMWUANL—ON—4NBENO=3BBNN05=EMMLMNN2BANONBNVOEN~O=BNMN=TWRgNRVaBNBmT—]0EBmaN2®OlO0/RNa®BRlR~M0I<aRW0TlOl10ONBe[TolN%R0a¥eN-~Oal"0—®~(N~N40oN@ILOt
OOW—Ne0OO—NTONONIONWINMNOMNN
AO~N—ANAOAR—AMNRARRIAR
W
)
L
)
W
W
)
X
T
I
T
I
T
I
I
X
T
T
T
T
T
.
e
e
e
e
ee
a
L
a
l
a
l
a
l
1
e
t
e
o
o
l
o
l
o
l
L
o
l
. NN NNY S L»a4edBNaeNanBNaEN[)" Bg tRNalsRntalB22 | U N NULS L

[RVEVERE]

EHT337
EWT344
EWT353

EMS]

EMS10
|EMS100
| EMS101
EMS102
| EMS103

| EMS104
CEMS105
EMS106
EMS11
|

EMS110

OO.OOO0TVLNN)03BNNNeB—OONNeBBA~NOIBIUIeIIIMNMMeIRI eNSDIINANNeRIIN=I=IRI =NNOMIII=—ee NRRI=INLOIIULLLN—D —I[[
O—TNVF—MNO|MWORNNBIIAOON.NTNIoIOONNeIIN—WOVNDITNMNOoWBDNoNNOLDDOTSRDoToOOMDINlMeVIRNIONo—IDeNL—W—TR=OOIUoL—NNLI[N
OIO|—BNO3BVNN ONI NONIoDOONN MNOIIoODINMNIND ON—RNO—~IULMT[

7-700
7-721
40-3
40-7

40-39

40-40

40-177
40-56

40-210

40-12
4£0-28

40-136
40-204
40-212

40-9

(CREF

L1-120
41-134
41-154

40-11
40-71
4<0-59
40-178
40-57
40-211
4<0-180
4-714
40-232
40-15
40-29
40-74
L4=720
40-16
40-30
40-77

7=517

G3-24

7=691

43-104

5
1

7-517
L1-24

7-691
L1-114

L4731

ON NSIM = MN

CROSS REFERENCE TABLE

MACRO v03.01
v01-05 )

NN—NNOUMM
NA—RNORBMARBI’ORINYRFMVANRN—NIANDIOORNYAMRDAOLDMIAD’NADLIAMDOAN~D’AM’DDNNMAIMOD’AMDDA’OBABMLAFIL[A
|OONIN
SANONIMM
NROO N NFN ROROL o—oO0O—J0 L
3—O —~—ON —

CZRMMAOQ RMO5/3/2 FCTNL TST 1

11-APR-80 13:04:53 PAGE S=12

SEQ 0306

40-2¢4

OTMWN— QNOCOOITN

40-25
40-26

*
.

44-30

40-27

EMS111

40-74

40-226

44-T4n

SEQ 0307

CZRMMAO RMO5/3/2 FCTNL TST 1

——

oW
N —
VIS

—

S
s

W=
0O

[« Yo Yo Neo Yo AV IV IV IV IV IV ]

—
ey

58
40-72

40-112
40-51
446-109#
40-112
40-12¢4
40-114
40-123
L4-164
40-115
&4=115#
40-59
40-73
44-118#
40-57

40-78

40-127

G4=778

40-48

40-50
40-108
40-188
L4=794
40-225
40-149

40-51
40-109
40-189

40-54
40-134
40-192

40-6!
40-140
40-195

40-66
40-179
40-205

40-67
40-182
40-221

46-80#
40-178

40-201

40-229

40-231

L4-81n

40-99

44-83H

40-90
40-101
40-169
44-88#

40-90
L4-86H
L4874

40-234
40-191
40-148
40-97
LL-B4N
4£0-89
40-91
40-102
40-103
40-216
40-106

40-10¢4

44130
L4-904
L6=910
40-82
40-96
40-169
40-82
40-91

40-70
40-183
40-222

40-91

40-92

40-93

40-94

40-95

40-96

40-98

40-126

64-854

40-84
40-98

40-85
40-99

40-86

40-87

40-101

40-88
40-102

40-89
40-103

40-90
40-104

40-91
40-105

40-92
4C-106

40-84
40-93

4£0-85
40-94

40-86
40-95

40-87
40-96

40-125
40-126

L4-934
L6=-94n

40-105

40-106

L4-964

40-192
40-129

44-984
40-137

40-187

40-188

40-193

60-222

L6=-95

40-140

40-184

40-202

40-205

44-101#

40-223

60-23¢4

40-70

40-71

40-81
40-95
40-168
4£0-81
40-90
L4954
40-101
40-100

40-102
L4=978

40-104

40-60
40-45
40-108
40-73
40-109
40-109
40-190
40-113
40-216
40-54

40-107
40-60
40-140
40-108
40-110
40-110
40-201
40-173
L4154
40-63

40-137
40-66
40-202
40-110
44-102#
44-103#

40-113
40-5¢4

40-187

4C-107

EMS133
EMS134
EMS135
EMS136
EMS137
EMS14
EMS140
EMS141
EMS142
EMS143
EMS144
EMS145
EMS146
EMS147
EMS15
EMS150

40-42
40-95
40-96
40-80
40-94
40-126
4<0-80
4£0-89
40-98
40-100
40-94
Gh=140
40-52
40-44
40-65
40-65
40-73
40-73
40-185
40-112
60-42
40-51

SEQ 0308

—

~N
~

—

| EMS132

40-73
40-185
40-223
60-74
40-77
40-12
4£0-78
40-79
4<0-80
4£0-81
40-56
40-83
40-84
44-89%
40-13
40-86
40-87
40-79
40-93
40-125
40-79
4£0-88
40-97
40-99
40-85
40-13
60-44
40-35
40-47
60-47

) =2 2

60-44

L4=75#
40-76
L4-78n
40-45
40-77
4,0-186
40-232
40-77
40-143
La=120
44820
40-88
40-89
40-88
40-82
40-92
40-93

WO OO0
WO ~NO

L0-74
40-7%
40-77

(CREF

11-APR-B0 13:04:53 PAGE S$=13

CROSS REFERENCE TABLE

MACRO v03.01
v01-05 )

40-100

44-105#

40-1M

t0=134

40-138

40-182

40-183

40-194

40-195

40-173
40-63

44-107#
40-134

40-182

40-183

40-194

40-195

40-223

44-108#

40-122
Le=1114
40-115
44=-1134

40-123

44=110#

40-116

G4=1124

40-116

Lé=1144

40-60
40-117

40-61
40-143

40-62
=174

40-63

40-64

40-65

40-66

40-67

40-68

40-69

40-71

40-72

40-172

40-196

40-197

40-198

44-1200

EMS166

40-122

40-142

L6=121n

SEQ 0309

CZRMMAQ RMO5/3/2 FCTNL TST 1

CROSS REFERENCE TABLE

(CREF

EMS167

40-8

40-49

EMSI70

40-9

L6-1230

- EMS17

40-14

|
|

40-68

40-122

40-123

40-125

40-126

44=-1244

40-218

40-219

44-128#

XN
-

40-131
40-131

40-57
40-215
40-214
40-216
40-216
44-129#
40-127

60-105
44-125#
44-1264
44-127#
40-217

EMSZ00
EMS201
EMS202
EMS203

40-128
40-128
40-129
40-129

44-131W
44-132#
40-130
40-130

EMS205
EMS206
EMS207
EMS21
EMS210
EMS211
EMS212
EMS215
EMS214
EMS21S
EMS216
EMS217
EMS22
EMS220
EMS331
EMS222
EMS223
EMS224
EMS2S
EMS24
EMS25
EMS26
EMSI7
EMS3

40-55
40-55
40-168
40-15
40-189
40-170
40-171
40-171
40-55
40-236
40-337
40-237
40-16
40-179
€0-231
40-233
40-232
40-121
40-17
40-18
40-19
40-20
40-16
L0-4

40-142
40-143
40-170
44-19#
40-170
44-1408
40-172
44-1428
44-143K
44-144K
44-145#
44-1468
44-20#
44-147#
40-238
44-149K
44-150#
44-151#
44-214
44-328
40-115
40-116
40-19
40-76

40-33
60-177

40-43
40-199

| EMS206

EMS30

EMS31
EMS32
EMS3S
EMS3L
EMS3S
EMS36
EMS3?
EMSG
EMSA0
EMSAl
EMSG2
EMSES

40-131

40-17

40-21
40-22
40-25
40-24
40-25
40-26
&0-27
40-5
40-28
40-29
40-50
40-%1

)

L4=171

EMS171
EMS172
EMS173
EMS176
EMS175
EMS176
EMS177

b
X4
,
-

MACRO v03.01 11-APR-80 13:04:53 PAGE SEIL

v01-05

44-130#

Wh
-

44-135#

40-18

40-146
44-28#
40-219
40-225
40-216
40-213
L6-332
40-75
40-220
40-190
40-206
40=209

SEQ 0310

40-124

40-168

40-169

40=170

40=175

40-235

40-232

40-238

44=18W

44-1334
40-237

44-134n

40-27

40-28

40-

40-120

40-121

40-212

40-1 2
40-1 2

40-133
40-133

40-134
40-174

40-136
40-175

80
76

40-179
40-170
441384

40-2 3
407 9

44-1364
40-233

44-137#

40-173

44=1394

44=24#
40-115

40-116

40-173

4&=25#

40-21

40-22

40-23

40-26

40-25

40-207

40-208

44-27#

40-227

44-30W

40-215

44-328

44&=122#

4b=1418

44-1484

44=234
40-173
40-200
L4=-54
40-129
44-26#

44-29#
40-226
44-31#
40-2164
4k-o#
44-34#
40-191
4-36#
4&4&-37#

40-130

44=358

40-131

40-132

40-133

40-26

40-144

40-145

40-146

40-29

40-147

40-30

40-176

40-31

40-175

40-32

40-176

r—-

CEMSLL

40-32

40211

40-230

44-38#

SEQ 03N

" CZRMMAO RMO0S5/3/2 FCTNL TST 1
CROSS REFERENCE TABLE

EMS4S

| EMS&6
EMSL7

- EMSS
- EMSS0

EMSS

EMS52

| EMSS3

| EMSS4
| EMSSS
| EMS56

| EMS57
EMS6

EMS60
EMS61
EMS62
EMS63
EMS64

EMS65

EMS66
EMS67

40-33
40-43
40-37
40-193
40-6
40-46

11-APR-80 13:04:53 PAGE $=15

SEQ 0312

40-210
40-58
60-44
40-222
40-7
40-48

40-229
40-120
60-45
L4=410
L4=70
40-64

L6-394
40-145
40-52

40-177
40-60

40-199
40-66

40-147

40-186

40-187

40-138

40-192

40-70

40-132

40-139

40-185

40-189

40-200

40-201

40-221

40-55
40-142

40-70
40-143

40-130
40-148

40-139
40-149

40-179
40-179

L4=-43H
40-228

40-229

40-230

40-231

4£0-233

40-38
40-182

40-39
40-184
40-207

40-40
40-186
40-216

40-44
40-187
40-218

40-46
40-191
40-220

40-64
40-19¢4

40-65
40-195

40-73
40-200

40-140
40-202

40-141
40-203

40-54
40-234
40-192
40-206

40-62
L4-4BH
40-193
40-207
40-230

40-63

40-119

40-178

40-182

40-183

40-194

40-195

40-194
4£0-208
L&=494

40-196
40-210

40-199
40-214

40-200
40-215

40-201
40-220

40-202
40-221

40-203
40-222

40-206

LL=L6N

L4=47N
40-51
40-228
40-191
40-205
40-228
4484
44=504
G4=514
L4=524
40-149
40-14
L4=554
40-218
40-44
L4-94
40-50
L4-584
40-59
40-48
40-140
40-54
40-70
40-66

— i i s s = OOOO
SWNN=O
NOWBWS

MACRO v03.01
(CREF v01-05 )

40-36
40-72
40-3#
40-104
40-664
40-67#
40-68#
40-69#
40-70#
40-714
40-72#
40-734
40-114
40-740
40-75#
40-76#
40-774
40-78#

40-229

40-190
40-41

40-146

40-147

L4=564
60-45

40-48

40-49

40-52

40-54

L4=574

40-52

40-70

40-73

40-139

40-182

40-189

60-19¢4

40-205

40-63
40-51
40-142
40-67
40-13¢4
40-67
40-37
40-148

40-208
40-57
40-187
40-180
40-221
40-188
40-40

L4-59#
40-60
40-193
40-188
L4-620
40-222

40-63
44-604
40-234

40-108

40-109

40-134

40-135

40-235

L4-614

L4-640

L4-634

EMTI1S

7-237

40-79#

SEQ 0313

CZRMMAD RMO5/3/2 FCTNL TST 1

CROSS REFERENCE TABLE

EMT116
EMT117
EMT12
EMT120
EMT121
EMT122
CEMT123
EMT1264
' EMT12S

7-240
7-243
7-31
7-246
7-249
7-252
7-255
7-258
7-261

EMT13
'EMTI30
EMTI31
EMT132
EMT133

7-34
7-270
7-273
7-276
7-279

| EMT126
| EMT127

7-264
7-267

(CREF

40-80#
40-B1#
40-12#
40-82#
40-B83#
40-84#
40-85#
40-86#
40-B7#

40-B88#
40-BS#

40-13#
40-90#
40-91#
40-92#
40-93#

CEMT134

7-282

40-94N

CEMT136

7-288

40-96#

| EMT141

7-297

EMT145
EMT146
EMTI47
EMT1S
EMTIS0
EMT152
EMT1S3
EMT154
EMTISS

7-309
7-312
7-315
7-40
7-318
7-321
7-324
7-327
7-330
7-333

40-103#
40-104#
40-105#
40-15#
40-106#
40-107#
40-108#
40-109#
40-110#
40-111#

| EMT1S7

7-339

40-113#

CEMT135

| EMT137
EMT14
| EMT140
| EMT142
' EMT143
| EMT144

EMTIS1T

EMT156
' EMT16
'EMT160
CEMT161
EMT162

7-285

7-291
7-37
7-294

40-97#
40-14#
40-98#

7-300
7-303
7-306

40-100#
40-1014
40-102#

7-336

7-358

40-119#

7-364

40-1214

CEMT166

7-361

EMT17
EMT170
EMT171
EMT172
EMTI73
EMT176
EMT175
EMTI76
EMTI77

40-112#

40-164
40-1144
40-115#4
40-116#

40-117#
7-355

CEMT167

40-99#

7-43
7-342
7-345
7-348

CEMT163
EMT164

EMT165

40-95#

7=646
40-122#
7-370
7-373
7-376
7-379
7-382
7-385
7-388

40-118#
40-120#

40-17#

40-123#
40-124#
40-125#
40-126#
40-127#
40-128#
40-129#

MACRO v03.01

v01-05

)

11-APR-80 13:04:53 PAGE S=16

SEQ 0314

EmM12

7-7

60-4n
SEQ 0315

CZRMMAD RMO5/3/2 FCTNL TST 1
MACRO v03.01
CROSS REFERENCE TABLE (CREF v01-05 )

7-400
7-403
7-406
7-409
7-412
7=52
7-415
7-418
7-421
7-424
7-427
7-430
7-433

40-18#
40-130#
40-131#
40-132#
40-133#
40-134K
40-135#
40-136#
40-137#
40-19#
40-138#
40-139#
40-140#
40-1412
40-142
401434
40-144N

7-439
7=-442
7-445
7-44B

40-146W
40=1474
40-14BW
40-149#

| EMT23

7-58

40-21»

;EHTZSb

40=-160#

EMT20
EMT200
EMT201
EMT202

7-49
7-391
7-39%4
7-397

7-436
7-55

EMT03
EMT04
EMT05
EMT206
EMT207
EMT2]
CEMT210
EMT211
EMT212
CEMT213
EMT214
EMT21S
EMT216
CEMT220
;
1
EMT222
|
EMT223

[ EMT237
| EMT24

40-161#
7-61

| EMT240
| EMT241
CEMT242
CEMT243

40-162#
40-163#
40-1640
40-165#4

| EMT245

40-167#

EMT247

7-508

L EMT244

' EMT246

' EMT25S

7-505

40-168#

7-64

40=-23#

EMT252
EMT253
CEMT254

EMT256
CEMT257
EMT26
EMT260

7-529
7-532
7-67
7-535

CEMT255

40-22#

40-1664

7-511
7-514
7=517
7-520
7-523

' EMT250

CEMT251

40-145#
40-20%

7-526

40-169#

40-170#
40-171n
40-172#
40-173#
40-174H
40-1754

40-17¢64
40-177#
60-24#
40-178#

6 9
11-APR=-B0 13:04:53 PAGE S=17

SEQ 0316

EMI261

7-538

40-179#
SEQ 0317

CZRMMAOQ RMO5/3/2 FCTNL TST 1

CROSS REFERENCE TABLE

(CREF

- EMT262
EMT263
EMT264

7-541
7-544
7-547

40-180#
40-181#
40-182#

EMT266
EMT267
. EM127

7-553
7-557
7-70

40-184H
40-185#
40-25#

CEMT265

CEMT270

7-550

7-560

40-186#

7-567

40-188#

7-564

| EMT273
CEMT274
EMT275
| EMT276

7-570
7-574
7-578
7-582

40-189#
40-190#
40-191#
40-192#

EMT3
EMT30
CEMT300

7-10
=73
7-591

40-5#
40-26#
40-194#

7-601

40-197#

7-610

40-200#

7-76

40-27#

CEMT277

7-587

EMT301
EMT302

7-595
7-598

‘Enxsoa
EMT30S

7-604
7-607

'EMT307

7-613

EMT303
‘EHTSOb
£n131

'EMT310

‘en1311

|EMT312

7-616
7-619

40-187#

40-193#

40-195#
40-19¢6#

40-198#
40-199#

40-201#

40-202#

40-203#

7-622

40-204#

EMT314
EMT315

7-628
7-631

40-206#
40-207#

|EMT317

7-637

40-209#

' EMT313

|EMT316
| EMT32

EMT320
'EMT321

'EMT322
' EMT323
(EMT324
| EMT325

' EMT326

CEMT327
EMT33
"EMT330
CEMT331
EMT332
EMT333
EMT334
EMT33S
EMT336
EMT337
EMT34
EMT340
EMT341
EMT342

7-625

7-634
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-352
7-685
7-85
7-688
7-691
7-694

v01-05
)

40-183#

CEMT271

'EHTZ?Z

MACRO v03.01

40-205#

40-208#
40-28#

40-210#
40-211#

40-212#
40-213#
40-214H
40-215#

40-216#

40-217#
40-29#
4&0-218#
40-219#
40-220#
40-221#
40-222#
40-223#
7-682
40-225#
40-30#
40-226#
40-227#
40-228#

40-2248

9
:
11-APR=-80 13:04:53 PAGE S-18

SEQ 0318

EMT343

7-697

40-229#

SEQ 0319

CZRMMAO RMO5/3/2 FCTNL TST 1

CROSS REFERENCE TABLE

MACRO v03.01
(CREF v01-05 )

K
9
11-APR-80 13:04:53 PAGE S$=19

SEQ 0320

EMT 344
- EMT34S
| EMT346
- EMT347
- EMT35
| EMT350
| EMT 351
EMT352
EMT353
EMT 354
EMT36
EMT37
EMTS

EMT4LO
EMT4Y
EMT42

| EMTL3
| EMT4S
| EMT4S

EMT4LE

EMT4L7
EMTS
EMTSO
EMTSI
EMTS?2
EMTS3
EMTS4
EMTSS
EMTS6
EMTS?7

EMTS

EMT60
EMT61
EMT62
EMT63

EMT64
EMT65
EMT66
| EMT67

EMT?
| EMT70
EMT7
EMTT72
EMT73
EMT74

| EMT75

EMT76
EMT77

EMTVEC
ENRGDT
EQUALS
fRR
" ERRNMB

12-:24
14-32

12-:91
14-36

" ERRTYP
ERRVEC

9=19¢

9=19+

| ERROR

9=19+

9-21+

22-86

22-102

22-136

12-6

12=7+

12-8+

12=19»

12=20+

12=24+

12250

)

12-38

12-39

12=40%

12=41+

12-45*

12-46*

12=57¢

1258+

12-252

12-253

12-=54¢

12-255¢

12->10¢

12->11e

SEQ 0321

NHAAOVAOCFOCM~=H0FVIVcr9a2‘2031“8‘“5%5“5O%NW4N.M0O%6N7OM78NN9NO9
WOMOTJUWOM|m=vO_|NTOMOWIONMONOONTv=MF~<F80AbR FN=LNTO_NvwROOrOTMN—"ONMMN|ONFTOO—|NO—ONVRSTNI—N5OO0VN=NO0~~V—0RO0kN0NM0AOR0AN=N0MNONO
2OO—YNONqqTW—W0
200——-IIMU_~wg—gwO——IO—NO——NNIeT2SISN(FWMpFOI——NO2_WqW({IOMUpOp———2—MeMp—N——NOp(|(|ONM———2—TqO———UOOI|2AMO——{ON.—N—M—qFRN—0GOO).0—NgM—{ONMO_I)|p——pNM—OG——oN.oOOW==—VO—2o—Gv=TIN-gTWNMFOINGO——2—0VNI—OvGO20e|—p—OGN—2O-I—NO~G|"G——NMOv0GI2—|-O|NNO0O2GGO—FNOO0G|2VNMOe0OG—VRNNM|OI0GI\2OTO0NoI0A|OO20MOG|NNoWO«0G=—|OR2Ne=oMw0NN—MVOTI0OOO2IRNO|O0FT<0M0Nv0vN|2INOITO 300~~TN||O0I0US-2NN—|ATVI0U0M—NNO|F|T00MG_~A2O-NPVOO ——00OWROIGNMoN00TO2TO11||Oo0e0OANAN2T00NNO11|o0M0OA/2T=NoT00IN"11|0NOTTM§R
\OSYNYVqgTW=Jpp0L1|——OwUgqNTON3JppVn——~I(W|qOENNIeo——EUgOWqNONN<"I——EHq—NNTON—AINqqWNNENpVI—oATO—NNMqR(N©=gIoI——ENNAqGg—OpyIG0T—~.OMNNqCo—NYOI—A=IMTVTM(Rg—GNOO-—YYCq(—ONN—OM—TC—U-Mg(WNNOV—M~qIr—W+aNo=AOsq-UFNNoOO—\aTNo= |V—NoOovIIROW(s*~NeOToO\—FJTgF~OoNoOO—FVOI—TWeMNeo0ON|A=UI%0WINGeoNDVnT—MOOGN_ogVINTMReeN—N0I0OGNM~-eNNT0HoIOF5OINN01o~5NTNO|OIN-0O0I5VNwOe1F51~NNN1OI0A15PNIN"T5MOT01.M~V|NNoI01FATOVNO01ND—3O0T~ONN|N—0UBO—OTe0NVIITMAR—0BNMNAN—5TL0BNOITNIA%—|R 0BNON-AI—50VND—IN50RLOBVA—NUNN WNOO0MNP=AMVNW0LOIITBIR
HOAIA0AGCIMCOCrJWJIVWONV—sCIT*NIM—-T0YA~MIOT=~ONODCN0O0ON00O00=I0N0=T0OMF

NqAOYENO=T{2-g00—Sp—A3wqL_1gNS—AO—3_qWN1NV——Aq|VTN=—NN—AY—n—I-1CR®HW——NNNTEM-H—|L—N=FN1CNNA—WN—gN\‘-R|I—C—WNwJN1A—R—N‘vAY|NqNVg—O1I—IAVqONNN—CYgA=s—=1—Vg3A-NNOO——XqW*NLN—1LqNNT*|—N=#—1R{OyOT—NO—1Ng=—NT—N%—TN|g—NO1WN(OTA—0NMM—1R—NWOug—TO1IN—|AO=NVGe®—=RNDeOO0‘NO—N==NIvg1TN|=AeO’INOO—WAe|1AOONWWWnNOIg-GROw—O|NInG1NM®TTGNOW—N‘WTeIN_A0V0N1NN0OGNO‘=IA»0TRNM1OONNNWOA0VNO|‘I®NTOVww0UTNN1AWwOOP0O0IIuFMNROT|=0TNOUA‘=—INNAOR0ION1wNA—WON0GNONAD=xNN80NTNMI01N3—V|OMIOToTN“SNNN
LRW=n%NunBbwn==N=o=3==Bun-L3%un=
CROSS REFERENCE TABLE

CZRMMAO RMO5/3/2 FCTNL TST 1
MACRO v03.01
(CREF v01-05 )

=655
=677
704

726
753

804
-863
894
919
947

=976

|Ww

1 ~APR=80 13:04:53 PAGE $-20

3
2
2

6
7
)
1

6
7
9
1

2
5
7
0
2
14
0

6
9
1

-:76
-:45

9
SEQ 0322

12=796#

12=296#

12-798

12=298#

12-798#

12-209

12-309#

12-320

12-220#

12-320#

12-924

12-9248

12-9244
SEQ 0323

NIMwg~~~N.e]iO4)1lNNTOY—V—NNMFNJNeUMO—TO—M=ArBIB~u—MNenN=OAeevI—LN—NMONANnOV=BABUvMNIIWoO=T=eODMVyARONMMDIWNNMOVNIUDOQAI\M—WNoOlOT=ILAVOI—-=TNNODIMN<N—A=eND"IL—OI—3N—.=MDNDIL1C~0—OWIT—DNI—ULT-LM—Oe—oR|LO][NN—~oUBLNN]0O—TU[NILAoNVINI-LULaNIN0LO1[IyLaU—VNVU—[-—M-LLVN—oE>E3~W05N-O—Ji4iVM—AOTLYYGON—YO—-—Moe)0NO]_—T[—0wV_—ACNNL—NO—e[eNIeMwAo__V—ON0G—In=ee——OLoeNAVVBINWITeCN———TNPoAM_NVAYN—eW[e—~O‘DeNaONNLeew—~[eIeeOonW—WONOAN<OeLTe[=eVo0NMTNNeAOTVD—|eINVINOTeSeIONOTM—e=NFeeNILoTOONe[—|=eeaNA—INTOeOe=zNMe—OD[=eOoDNIOTTeFONN—OVTDMVNea—NCAOTNGL"OIaTNOM=— NNTNRoDaIO0ANCS=DoNNoOVM—NCATLNIIMOaNONOMLUQIaCG0NINNA|6DN05NDAoMTII0O0NNNOW[MMD0GW0NEANNNL|0IW0NOOTONI00yLWNMoWNRLLIINI00NoyVS’-L=TNWM0L0aRMLW=W=NL0o0V~LNIOTI=LT
~OMOMO 0ITO—M=ONOITVO=MO

gRN~VNvgJeO=eJ=TgNMPOP—_oAN—Oo—RLog—UOM—AY0——e)—bgW)“—Ge]—ge9e_1ee—5e6"e—03—5—7—9_7—9—0_‘—5—0—1_=5—6—0_I2—I5_I9P0I26L68L0IT

nOBN3\l.0—.1.t“NO1VOr=‘QON31e0oH—32O1NVe.m—e-aIJgl=eF]egOa)NlguvnIa*gW—lTDVGoNOlO—MOgA‘vNg&ORTCVRROTSMPGRSn—OrPTN.:3mO.©o.«lAVLM8OV9mRLV1oAOMV0oDCOIo—oW0elCbT2diN9dUoDOWlLo6NTWlo‘OlW2oNDlOU8dPNoM1lMRVM9dADONo’AV3Co5TOlLNgO5Wlg8OlIg4OlFo‘WlMA2INoMl1<INglGW2oDIwoGtOWosl~L
(CREF v01-05 )

MACRO v03.01

UL " L L eeeeeeeeeeee N IR

CROSS REFERENCE TABLE

=-n y ee"| |||R- R| W| NW| M|

& |-w\ } |||| |||R|W RW-w||-Wm W|W R ||

o D2 - 0

<NOO2V(.RIgO\NoNy©TIO&!VMbEN2OOWN—WNONMOIAuMMLVIMWNToO—2NeOUI3elNaMNIrGroION=—MdO—NeIdIeO23OOIMBbOr0IeWA[=S.OOCMC—O—)NNLSJ20rWWVIbO-aAWT—lAADNAaWQeaOIl0=02OOLUOMOYAAFA—N0renTT—2O—NLf—rN—NOINON—NU~VreN2[NO—I—L"WCIr—IDTTI ON"&C=1I2OC)OM@@MQNe—NNWUOO2.WOIUO.I=_N—LTOWAI—Oe0~VVNNLNI1NA.NRIO_VMM2ONITL—UGFUONWYW[.SOOO.N2STssOOO OC oO( NV —(MFO qV«O.Noi1-8—2\O—5-+O2OOAA—gT.N0-N@VIN75OQO-3—<ONWI2GC_.7~gOOOMIN—I—VA0AnNM_IOVOwAYVA—NVC—.22OINn_M.—AIO6WL-NCNOeNMIWxAO-O2I7WeTNLenNMOIL.GU‘0SUCUNCODATN53|OOINAN.IINIV55e—NDMI.LDT028AOINNODO.N29NOICOMNOM.AI28|T0QCOOONIU.O—MI2O9CMIOONLDAT2O0|YMNR.WWOA1‘IeNOE0RNOA‘6ORMIOWNON2V0AIACTNW1TO|AOANL5OWIN0WNO7AO~NNW0TWWIOOO‘IWN|Ow0O0MNWA6NRN—IIe<00WOOO—L9=MI00WWN-N=1|O0IN0WL3ANM00IIO6MA|N00IVW<2OWT08GOTRL0D60NOo.T
NMN0~Lo—3''alA\—ONWMLNNMVOBJareOIUl—W=aDNIrOdeWOo—TEoSaDLLOVrleNO——B=oN~O1-UU=NC~FN"t0—=a—OOyN~O@lBINAN@aNON0NlRUILNu=—aMTNOl0—oN3S®-N=IRDnLOL3—T—LeOUVBNOM—eN—eVANOOY—R~-[n-NOrNI0—gO5——U0)eTNe—IoC—O——OM—ANOVO—VMB-0LI~ohIO—WO—OuB0CW~Menn-—WeN—-A—xN—~YN NO UeMN ©N V«3VM N~NVNLTNOIOANNI—LA&——OOeNTMTI—[WBVeoV0N——eeG—TTNR~oWONVN—MeeTVeLDoCW—NIWBON—[eeeLe_TINOAMVW]e—[e—e—N—NICWLOLe—TCeaWWNA—TI[eL—LDOeo~INSNOD—IT<eTWTaDWNVOW——[OAMNVNOg—NeeTI~MIeT—A—eNINNNN0I—NeoeITDNAoW_T—eLO—NOo—VUDVOMNe—WOTeaDNNNMYNVO—TI—TOIeONNOO—TOIOOONVMI—ONFeLIOTNLaONO—oOALOLo—NV—[WDNCNAVWT—DOW—NICAONTMNVaANTN=ORLeOoNVNWNMM—LDOONOoTWl0—[NIINW0L=OVNeW[—ANWNVN=—MLLON_oIVRTO =OM—NIN[WaWNNONeRL-oLLI—MNN—LWo
' CZRMMAO RMOS5/3/2 FCTNL TST 1
1 =APR=-80 13:04:53 PAGE S§-21

B 10
SEQ 0324

|We-lw |ReN-;Wn

HCRC

L=5720

(=582

22-386

c10
SEQ 0325

O~— O<
l >e MO—OWO.VNNTBTOVAONNTOVNNTV OVONITOONTOTOITOTONI w1vV

I[~c(oNO~MNv<e--O5—0eeN+AOOaO&)V|1-UU|)y~l———eu)Iy0L@Sg4Wn+M—ML—u|M4DenOuoAN=-uaDNLGNoOA%—noO2|)nBO0}N=lwM~T4iOm)d—gNo0oM5-4UP~IWNWe0IeNTo)]1J lXO—D=eTOdno~oOTW—6OAU—oWMNAL=NMIN0OMMo?IAeIdMN¢)—OAN0—MNON4—NM|(VMMLLNY—Nu0VeOOTF—MNIOCMAILL~YO—UMNVMMNLNGo~—3oO4—a=0IM@oOI0NIYNU)OnO[NIOLOLOe~av—R4MVN—oO—ORR—=ULVaEUANtIL0NSTlWVLSaT—aW—OMm[NPY0:4NXesDOVtAV4gTWOXNO4PTWVXyVDNTWM>SLY4N-ooo—WN--V§1S—V4NSELOye4VoOtLgESTtVg4ASTOtLEgISTOOtRg4MeLvtEVToOtL4NSTtORTOrSL4NeTVtAOTeLR6YTPL~0oMOMo—0w4M3T3os—-MTN.)N¢"LLN~LyS[(Nl0oaaO-.]oO~¥¥YOvOIL—oVy[e_s—N]T5vaeeT¥M4VSNAAToISNN4IeOMNRTRSAA4YIeeetRAMSTTGetTA4IGTRetNNIeeSR4TeITetMNTeeRtI4IeeNMtSRMeTeYtO4TeRMetN%Oee[tRN”eMet~eNeTo2[0—O—-NO4WUA——MNN)Uo]]O1LT1L)_uaOlM([[N0N)\oT0~Ma]aVLO—oTnoVne]—¥a¥wNSs)]]\RanN-4N&aws——TEUXm0a(tVoRaTN—<9AJN—«MO1=rL(EFMO~ew@wNwOo~-oG—4NV¥=eT1_"Ml0VILINue0NLoOO~O~M-[<-MorTIGnMRaO——~~UMOLL5—D—Rl¥=N4tE=PWaSTvM[V6WO-aFWT
~a©<woL[N°}lL oaM.F[MWVNN])|00TPgoa—(VOAN—0lIOL|o|IM<\NaVlNIaM]MUVooNoNla=IILYUONLlUw[I~UoMa“-“—RaL.w.L0((w¥N.o@ aol]~L GgLOaoMaO3NOol]ll"aL0L0lnLaa\~OI~¥.~~al~vN@iN(]0Frl"l=.la~WoaoVOoGM—MeONlU]U"00L0NnL](LL1wR~Mw((a—O~ON)Vaa.00—]¥¥
CROSS REFERENCE TABLE

CZRMMAD RMO5/3/2 FCTNL TST 1
(CREF

MACRO v03.01
v01-05 )
11-APR-80 13:04:53 PAGE S-22

D 10
SEQ 0326

MCLK

4=607n

SEQ 0327

CZRMMAO RMO5/3/2 FCTNL TST 1

CROSS REFERENCE TABLE

(CREF

MACRO v03.01

v01-05

12-988

)

21-109

21-122

21=-125

32-70

32-75

12=:5¢4

12=;21

12-;87

12-<90

12=<97

12-,87

12=-<90

12-<97

12-257

' ONLINE

. OPE

OP1

F 10
11-APR=80 13:04:53 PAGE $-23

21-74

21-78

25-31

12-736

12-849

12-979

12=:45

SEQ 0328

12=;12

12->93
12-E59

12-228
12-F06

12=762
12 F55

12-;78

12=-<45

12-<99

30-34

32-50

32-57

36-28#

L=6750
L4=567#

33-42

22-182

12-796
12-F94

12-a330

12-631

PIROVE

&-4B3w

610
SEQ 0329

H 10
11-APR-B0 13:04:53 PAGE S-2¢4

12-61

12-760

&MOO ~ — V MN O

12-562

12-564

12~ 55

MNVT*WA"V+DONDN~ =M@NI'VATDW«UOVDA—YN~OMJNTONUOMAIOOJMOOW&NOeNO—WIA0ON—OD— «BT[NoIiaVaTNTNVP)TToSEoT.

Cur—N—ViONTONONOVWMsN—

W a

NOOIIIINIANINININB—TsWeOMNIVTODO—NOMONVO

&“«

12-828

12-825

BE=E

15-206

30-15#

10-117

10-134

35-8

35-10#

12-528

12-553

15-180

17-40

18-34

W g ———_— —_—_—_p—_— o————_—

12=769

SEQ 0330

e + “&¥&4

MACRO v03.01
CZRMMAQ RMO5/3/2 FCTINL TST 1
CROSS REFERENCE TABLE (CREF v01-05 )

19-5

-"&=« "&-=«

RMAS

4=693%

12-702

12-774

SEQ 0331

w—OIN4M2~Tya0VvEXaV0NOTaNtlal-nSvnnVONA—]rI0BaNc=[waOyAWOYLR~aO*IAN~=a0¥]Oyx<I(oXooN~sMR<<SOT~~UNNo—-—¢~N—D0-—s0o—1rg—0—=voI=—.ON~N—]MNN1el1—v1-=L—1“=y—N1r—vO
XTIO
£M—O—OvO0NvNOGVw0EAVUN NWNOvXOT wEOCNONRAIN—INOIOrNg—= &VV&
A
N
e
b
0
0
0
-l
NON N ~"B~|NN ITATOMDOo NLONTO&ON&D*&OM&OeO“ONNN—B OLOe=WWNINTMNOUOA-NL
O
NN
——ANFOLONNLMOJ O—OnOeU) -DYUL 4NoI-O\YY @)OowWoNLLBe UL v- I\ O~|IAOeI|MeO&N&&ION&ION-O*®~LOOLIMIOAOOLNLULROLLA

40O0-—eI—Te\I\—NrONMN—00M=MM (JBOMeN0ONMOs—NF—IOMaD--lA.La-N-«l——O—o—ON}o=oN==—vTF=l[—a=¥]Iea—N) O—~—O~R«N5[JMRO~"N\OJN\Oao\LNNO—oV4J][~[+aN—dNOO¥tIA[Ar-M\Fo4AJT[N~+eMNN—M-—EON—=DvOM—IN—~eIRO=MvIv—N¢NEeO—RD=0-O¢I0N=BMEn—vveN—rRNNe0-Ta(esT[M\N—mJroN~M=OrB—~—NNMNIO—a—RePN-NOrVeNO—MOVM—O=IAC=Nr—MNI=OCIMN-UA—NW—OMrI0NNr-DN—NOIr&SnT- DOx«Ne0Sa=MOOOT-—x———oNe
—Y\oo—N—ONNIa-M]JL-—Mle«—ANa2MN.—NONOly.\TsGFJONtMV[oAv—g]a]a&N[dO@eBTalla¥od—0-V=TwlNaa]eybWl“[o~——G(-«a—[o¥ "L[oNAN~V—aaJ¥AlIoy—0aa-l—yVOl—] V—~WoW[TOe—]VNNaNN[[VaaIVNNaOON[—TV¥O[NaaN[[NNaaV¥ LL]Ia~1-a[aaVVo—lVNo]ia-¥a-O(’w(N(——e)eg] [~oa[N—J|¥lN¥]L]N—o-U_|—~—OM(N|VOBO—INoovO—IIOIMNTIvNIOOONy=oIO0JINOILMLN—IImM<V—MNT]Io—WI—lr—VOILO—av—¥lO—Tv_NeLal—N——Lval—Oat
v@WOLyMOyVIMTeUMOMO~0OO[NgA—aL¥~IaNOg¥TaOV[0]c]rOTMo~¥uy9L~kdol O~ Lal:
O ONO—) O0O0O0O0 NO Ne— NO —5 O © O¥V&T&MA&N-INOY VIS0&
——\J-— ggO —— O I— ~3O
—N — — g-N_~JMN—o0 N~NA-OY—

oI[ eR
IU101 Ov)—=e\~
[=(aYo[Y]=aY)= OgNONN~INIMN 23%O91~VNOVNONOONO -—TLIU\ oTNONOTN aNoONAyNO vM~(IBN ~aO02JlO~OM—FO
OoIL0O—L ) N—L VLOL oy—LN OOM———[NMOaN}N4NNXXoLI——aLNOILCaaNlNeO NyM-NN~Lo ON0Og3 —&Neeu—O&I N-IeL-IM O0«~0—O0 N.0-~
ANO0— L D5LO ONNRNUL(L oLIy0 v@eaaULUoouwwL vmLI\v O— NN —!U sNNA=&cv&Ier&I O&I &I ISU sNNBlLVNOUOLN~
5N
M
O
N
N
—
T
M
O
F
—
M
O
MmN
LoMO-L L L A((BLLO AIIl\ —NNyAOwNdo—)——— 1-LLLL — NyoA————LLon NI—~ AO——U' N NN
|
I
I
I
I
D
U
ON@JOBFMOI—TOJOT0FOO *WA«OB—uL MMUO—LO
ONONL—L MLUO oL0 —A—SLO L A-UO—LD N ANN OO ~=1U N —OI¥TMFM&Aee—NB&—IOB&TNnA&«NI@—O NNSM0LI IMOTMOIO1NW0~eD——
LLIa¥lonYaloal- —oyI1 L— —WO~AOOw1|Ia—N—noALoN—rfgF oANo-LL— 9 AA &3 "4 1i ON4 —WVnIoNWvaNoSOTe NN~iLL — OJMLURNOEOVNO@~NONWDNSn—T
-B65*
E34r

k-3

“&

UXogaO¥X]le. &« -& =- &

&&-

“-&

®*

"=&«

G—=NOI AOUONWM*&NNO

NN NN

12-:69

B@OoOuw—

12-;35
12-<01

-&@

AV—NWnvYvdauw NA—N

«"

s " " .«

13=:02

&&“

12=215%

Co\ONe oM

(CREF

MACRO v03.01
v01-05 )

= LR

CROSS REFERENCE TABLE

CZRMMAO RMO5/3/2 FCTNL TST 1
N -APR=80 13:04:53 PAGE S$=25

J 10
SEQ 0332

12-<59

22-358

23-92

26-91

26146

26-155

26-162

K 10
26-166
26-168

26-177

26-181

26-183

26-192

26-194 55565;?.3

ON—OOWIFN-MO
UTMN~-o~MNMFOeU—MeO—Ng=—
JMoO.ROORBNONMG0Gww O0IGOOG0RDDNMO6—0O©—a0w€)0
N ANOWITWN —MO
N0CNo—OOOoAMNO~F - 0SgTNOoOnHANMNye—M—OO0nWO
V—ONNO—NOO 0o—-0~OglVMalaO=tT
aT6P=ctS‘MON2To3ONLM3NT6xTNO EOaX‘oT—6N2O2NOO T2NV2NO3SI3—oEN6XN
NWcOOOoo—«LRn—OTNMveYNN"MVo\INOYO((ovUUOIWMNM\—NM=7vN=N0oIeo=INPOOoovI=0NNoOo&=S==IO~WMTNM\)MW—TO=INMNIOYW—AOO O\ON—NO0OWNOM0V—AN==OBNO~0NN——
=3 VFOJOUNO\oN=ONVIF=--0MIOO=NNeTON—OIOOuNN\MONOwN0nOUNONM0.OANo=WN0IO—TM
NNv"—-BRIJNIONOMU0LvNWI—MIwvNON0I\VNW*=M~»OISN
=»

eSOB IVNIMMMNeONIINI =o V—LL
NrT0N0—NVOe— 0\NOM FONONONI~
oOO~M0eAN—eM0—nrC0unCOMo Y¥=— NNMF—g3 |' TONOBVOI OR3IO—O—-LI
MM) (L— NNV.00—

MACRO v03.01
(CREF v01-05 )

12-176

28-103
31-81

12=:03

12=74
12=76

31-94
46-15

12-:70

12-79
12-81

12-<03
12-<61
12-350

12-;36
12-<02
12-<60

46-5

12-399

L0 10 LUL
T—000FMeO—MNO =HL.I0Ne0—oOwnN

CROSS REFERENCE TABLE

CZRMMAO RMO5/3/2 FCTNL TST 1
N =APR=B0 13:04:53 PAGE S-26

L 10
SEQ 0334

46-17

NONAN L[oeMaV—l} Oown0 NOANOCO

46-17
12-AS1
12-C07
12-C84&
12-:54
12-:19

12-D35
12-D93

RMWCI

6-0¥

23-10

23-23

23=44

23-115

46-14

Mm10

SEQ 0335

CZRMMAO RMO5/3/2 FCTNL TST 1
(CREF

v01-05

)

21-109

SEG 0336

21-125

12-260

28-32

LA24

12-B29

12-B76

12-294

12-228

12-a71

12-A20

12-A70

12-B88

12-095

12-D49

12-G64

12-808

12-896

12-940

12-B52

12=E11

12-E57

12-F04

12-£9?2

33=27#

3-8

43-8

63=10

43=10

43=11

431

-|e -—

CROSS REFERENCE TABLE

N1
N ~APR-80 13:04:53 PAGE S-27

MACRO v03.01

65+¢
45<

———

| STSH3
|

45-25#

T—

SEQ 0337

CZRMMAQ RMO5/3/2 FCTNL TST 1

CROSS REFERENCE TABLE

(CREF

MACRO v03.01

v01-05

641-8

)

41-9

N =APR=80 13:04:53 PAG E 5-28

SEQ 0338
41-11

641-12

61-13

45-264

35-6

4=5334
L4=54L6F

23-66

21-109

21-125

22-106

22-108

23-12

35-6

1S115

12-500#

35-6

SEQ 0339

33333333631¢3'\¢33333333333333331.l1lcl.|ol
2
2
2

12-2

12-34
<

12-63
6

’

12-91
12-196

W AW

N ~NAW

1ST4

(CREF

MACRO v03.01
v01-05 )

~N ~NADSD

CROSS REFERENCE TABLE

~-~N[0aV]~laN¥eLa—v

OTJyRNTVTM[aOlaYO—AaTS&aVlTRaOlaNON~tOaMNOlIVoNlOMalMal—ONoVlIONoTlOMRaTRlOVolOTVoAlOalONaVlOolVOaNMlIWolOVNaAlolIOoMlONValONoAlOVaVARlOaRlJOa3VlTOolTVONal~OalVIalOTUaVlOAlR—OMAlVOARRlOOANlVR—AlOAVlMROTAOlARONelMVRORER—OMTVAOMAlVOeAOlR—AOVLTOMONRALNIVN

AeRSAARRARRARARRARBAIRAAASNARO
oNX7,otNeXVo,edXVodNeXVdetXoVteNXVedMRVoeOXtVOeoRteROdeRVoeOO tXeoOXteoXVeloLOel\La=edLi—ol
CZRMMAQ RMO5/3/2 FCTNL TST 1
11-APR-80 13:04:53 PAGE $=29

EN
SEQ 0340

15136

18137

18741

158140

15142
1ST43
TST44
| TST45

OIMIJTSNON

T1ST46

1ST47
TST5
1ST50
TST51
1ST152
| TST53
TST54
TST55
| TST56

| TST57

TS160
1ST61
15162
| 1ST63
1ST64
1ST65

1576

15766

1S167
1817
15170
1S171

4go[Y)aRN "0U —e-nO-MtO0 "i1\[NoT~+M=~NON

12=6364

12-459

12-476

12500

12-522

12-547

F 1
12-569
12-599

12-617

12-648

12-684

12-719

12-751

Sfazag}.?

=NNQ0~— —OSeyo—Mo=v~MhadMoA=)L—lOlaylL—oglVeol
2V|]&No(2T2NOAa‘leMV]3L90~3N‘5~N9MO5oO-On90—N_n—“‘N0N(‘a¥IL9Oa.Nal]‘4"OO~“—“lVfiwMie.—N6nN4e‘4—9N(O6B=9Ln
oa0 OCOoOoOITVno]LoVLa¥
O~wdOMONOeN-NWVA~&Wi||l5L—WAVe—laOAANeM—v-NeN—oL-"Lo"N—O\Oy\0NSTLNaeNmOvMv—Vo T[aoo~YO0¥5a~])w-ioMNoOo0nN~]twy—N—ONMe-MlOoTgoNOa—"yVO]e\\MM~ONv—P2—WMOIBO@—oe—=NLL a~MOONON~Ve4WNLooNVu5~aNwOMOID—y-n0(~—»W2owNVv MOo[~—- oO-TNa)U" i)=eMolaeT=aSMN0No—O-5eL]o)]\N—TWMT——TI=O0ROrVMNJOO~\U—N0WT0MMrAOOI—ONe=N—MN5oNE—NOOW—e~O0F—0vMO-0N—0RWO@OoOWBOu\NOVO—=Ma©n—wMIB~AWN—4A—OW—NaL. L0 "VX@ro]MP0l[(—Oam1Ouyt=N¥r——w—1(5YN=a.«e¥
OowA~1dJNWa~ML"ooyi\~eI~aLOP].¥U]a0yN~el oao]gCO[OoONObLowo—ll)]}lVoaa0ITal([(Y~\UVLOLyo9Va-VagVML¥o]l¥(l]LL]a. ~~M b~~aOw-v—--[ ~r5oM oi[ N—-U" IU 4NN~5 (ga=o—-5~oslY)1UL ]J" JUU n5—L] M0—MN0NONSTMNTTJR000aNNMONN0OWAVV0.~OONNo———=——ye00I—N0oO<O—~--oO—=M0IauA~~———~—n-0N0.03M—Ve0—oONa~V1—.~[—oY0A-LQoMD——-N—)a)&&LLL)yNhQN—auTLoyeL—0~NOwOMVnaVMs———a—eaLvNnl0unlwlNl-LQcaIoOUAmv[——NLOnanyLe"—N-aoN0DV]lV
30aJ4v=O]LETRU¢3VS—NIXOL"RIIWNCOZWYVIURN—OIL~§ULMIUN-L0NIUMN-|XLITxANMNT=ReO—MU~LRZDO—'AOUNWVDVTMeN>(—R%2=INTe0>OARA —NDrUOo—DWV>Ro0DOISr=OMNOV.L N2AD|TR0,Z—OeVMONN|-N)IT2=SN9=IN0=N0O->—R—Z~—>wrNvo>—"nIOrM—=aNM—SoVJR en—Oy
L LL' | U 00 0T "1
(o%)

(CREF

MACRO v03.01
v01-05 )
11-APR-80 13:04:53 PAGE S=30

Io\MO oi O0O0~N~. —LNoN~—

CROSS REFERENCE TABLE

CZRMMAO RMO5/3/2 FCTNL TST 1

6 N
SEQ 0342

0~LligaOTvNVo}\]l "0[2ah-\D¥ln«N1 ULP1) ~bAaO8lNte I(LA1

N AOD —

MoN—oLcmvaov8v@yMan,moNam OON-—!~

35-10

N NON IY

2
2
2
2

ANOM TM| 0 — OM

2
2
2
2

NANTVNONO N VIA- BaCS@D

M0TCNLT—ROLOT OoAttAINata~OOtFIL+o—OTtrNN(a0tTGDoONtoA—OVt\.vo+V—VF—tMMlaIItNLGAAoON0t—CCITU--OTCONcN-T-—O@VBTBMNAIVITA—@DVL)
TNNI NINN
MOTOO OOOMOYORNMOWVAONIOVAWV

SRAETRAAVR AR AR AR AR R AR AR AR A AAR TSR AN A A R IRORRAN

5=0
5<0

2
2
2
2
M

(CREF

CROSS REFERENCE TABLE

5<0
5-0

SEQ 0343
H 11
11-APR=-B0 13:04:53 PAGE M-1

MACRO v03.01
v01-05 )

CIRMMAD RMO5/3/2 FCTINL TST 1

NOMCORONMVOMINTONOWONAVNION—NTONOAIIT—OIT—F—Owwn

O—MONOMOOVONOOOANNOOO=ANMANOMNVo]aleToelSele

NOM—NOON0OMOMNNOFRONITMONOWIVTMOA—NO~ENMTNMONI—IOOOVNWIVTOO—NOMAOOMTNMNOMNOINN NWIVOJIFFO—N0O-

-BNNT——VO—NWUOIMgp—NwO00OW——MCOOMNUAg3pqWNNCWCOegWGO——tA0ANN—(WT—=ONBWOee-MIO—NAAISWNO—NNIIggBgUOggeWIANMNNTMD—S—oNogCMGOCNMANWOO—BV—NMNoTeoOGGVCOIII—NDMTOCNOOONeeeeIGNGNSCNOITAO=AOeoeoGIoOOMVN—UOWONT—eoOOGooNDTDWNDOIOYOoOeOGNgGICMDM—ONNOTNeVIOOGAGOMgOOONONAAITN=oOGIGGT~ONTO0Q=ONIIGG0"N=NWNOMNITI=W—VoVOVI0O0I@OMOTOssWssNIo0OO0OGN0ANVFJ~IOvoO0O0GaVMOMNO,*VO***75OOIN0»»0OC0ANNNO—OSM*IITT—AONT5000OU0N7NORTNIONO3NNoI0UUU00ONTAoNMIO—U0INN00IOOMOoOU0INUNO—TTOWoo~05MO00M5INON~NNOT=7TOUINMNNIOoM5oNoTDOINToOII OoOoDBBNIOTWNBTToBBTMBNON~TOO—OOWMNIBBBBBBAONIOOSOMVIIN0oTS0MBBTAWOONTBCOA0T00IOTINNOOOBWMNM0N00BOTINBBMMVAMNN NOeW0T0O0BBUIN——~OVB-ONBMeW008NTAOON0MT3—NoM.3I3YO 0NWgOgT000—OTNVeONOTNOOg—gNooAl—T100vMNTaoNVW)eGoFdT~wOoOlTNTg-mWg0NFiuWNTNyNa—vod0MwTooDTINwCOSeb=gl0go0I0eWMNaNT\NoVodaMAMlO—TTTgNlglGL00OuwOcATTM0WlOaoW0TT(gNa(oea’uN.uOG.dAVNNVnWwIoeLw0sT0lTTT[uoNOOP—[|flaNNV
OOJOOOVF-—ANUA—g-0Y
.Yp.
YOONWWApIBVqgIOY—qBIA—A—0000—TOVyNNOOUVTp—C—TwWCMIVTVTOpq—NTO—OWTWCWNSO—Oo0VVBL—qT—NON—NWoDgBVDNOMNSTTT——NAMOoCITOTN——=NVNUWgVTTIMANNTTNC——NNSTOMOoOYI'TTIAOp-——SNONNAONgVNLTTCMpO—OeNoNeJI—OOWNTTTIO—DeMeONATA—L_W0TMV—-N—NONGgNONTTIY0AVDAONeNGGOC—LIT=NeNoOONOOLLI=T=NNIoIIOLlNNLLNFMF**VVeVLLoNGOIIOANNssNT=ssNLe0VV0TINOMLTOLNsF-NN500OMITMIN*OTO**5LNI001CITILTOFLANI00U0~IRNTOTTLOV [TTLVO7UU1VNNA—N03ONOTT5O1aN—INONTMMOOT=LoL5O5UMoNOVO00=NONFT[oOoNI1TOaOAMNON=LTOooNLOAoTBoNDIVMINOTIMLT[ooODOIBaON—NOTOOO[eoONT0BIMNNCNONDOTTOM[oOeI0BONNIONTNIW0De0N0PBaoNVVONMNOTOTOI0L00BBMoNNUVOOUTI00T0B0MBaa-MNNOMNO~MOI IToN—0T0W0BLNoOMNOTTLoIVL0BaOoN0OBONEOLLo NNTNooODNvOONgOeOg—g11}00 }0B 000 —NTNNd—ITTNe=TVLVoTWDMP_o\aNNTTlaoa0AO—TVa—NC[NTOe0GdoG0OAoaNTT—T.—No—wNOTTNoaTlogOO_0g0Nu—NNeTwwVNTO—W[lo[TgaC"G—a0MwN0NNNTLa0NO.—wOYLLouPNW— PA[lVYVL
ODOYITVVOqNq—ggLYY—II——NwwOOAMN0qqAW-p—T—IWOIu(qgANO——IM0NqqNCO——CO—pT—JBMBOIgA—O——NAp—C0OCONp—ID—NIpp—O—DNTpI—IeDDNO——AON—_I_VTVN——IIOO—N—eSV—ssMT_—N-OI*“O«N*—V——NTYOANO_NNUOIAN0—AMINUNMMeUNII0OIIOTpTNONV~TE—NMWAV—O1NNOIOT010UNO50NNA50OPOMO00INTONOTJ NwTNW——N0NNAdOkE—gwyo—RTl—TVVggoMaNoOTa[ARlggNaWwdLTOWggaowLONaPTLVYad
CROSS REFERENCE TABLE

(ZRMMAO RMO5/3/2 FCTNL TST 1

g—e

(CREF

v01-05

MACRO vO3 .01
)

11-APR=-80 13:04:53 PAGE M-2

SEQ 0344

12=:40

12-;07

12-;73

12-<39

12-<81

12-=13

J 1

12==46

12->13

12=>41

12=>69

12=703

12-237

12-272

12-306

SEQ 0345

K 11
11-APR-80 13:04:53 PAGE M-3

12-B95

12-C72

12-D23

. SETUP
SK1P
SLASH
| STARS

L-483N

35-10

4-4LB83N
4=-4B3N

35-10

vNO oM= ANINO==== NNv=N = =o

12-F22

12-F60

35-10

35 10

35-10#

870
-<39

203

9-19#

13-20
4-4834
o

-—

L al el Ja VX Lol Tt Lal

— ORe—=MNODONTN

FSNOM—IIUN

NTO
—NO—MNR0

Y YT I VT eI T eeY

TNootieey

TYPBIN
| TYPDEC
| TYPNAM
| TYPNUM

9-19
5-0

12-E76

TRMTRP

4-4LB83N
&-1114
35-10#
4=4830
4=-4B3N
=470
4-483N

— IO JoONT