Digital PDFs

AH-F922A-MC

June 1980

350 pages

Original

16MB

view download

OCR Version

14MB

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

CIRMMAQ RMOS5/3/2 FCINL TST

2
3

MACRO v03.01

1
B
11-APR-80 13:064:53 PAGE 1

SEa 0001

LREM

6
7

9
10
1M
12
13
14
15
16
17
8
19

IDENTIFICATION
ecessceccsces-

20
%}

PRODUCT

PRODUCT NAME:

CZRMMAQ R#NS/3/2 FCINL TST

DATE CREATED:

APRIL 1980

MAINTAINER:

(x DIAGNOST]IC GROUP

29
30

AUTHOR:

MIKE LEAVITY

CODE:

AC=F921A=M(

3
32
13
34

37
18
39

THE INFORMATION
IN THIS DOCUMENT IS SUBJECT TO CHANGE W]THOUT NOTICE
AND
SHOULD NOT BE
CONSTRUED AS A
(OMM]TMENT
BY DIGITAL EQUIPMENT
CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY

42
43
&4
42

THE SOFTWARE DESCRIBED IN THIS DOCUMENT 1S FURNISHED TO THE PURCHASER
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND (AN 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.

&7
48

DIGITAL EQUIPMENT
OR
RELIABILITY OF

FOR ANY ERRORS THAT MAY APPEAR

DIGITAL.

(C)

IN THIS MANUAL.

C(ORPORATION ASSUMES
NO RESPONSIBILITY FOR THME USE
11S
SOFTWARE ON EQU]PMENT THAT IS NOT SUPPLIED BY

1980 DIGITAL EQUIPMENT (ORPORATION

11-APR-B0

13:04:53 PAGE 2

CONTENTS

INTRODUCTION
1.

ABSTRA(T

UNIT UNDER TEST

OPERATING REQUIREMENTS
1.

2.
3.

HARDWARE

REQUIREMENTS

MEDIA REQUIREMENTS
PREREQUISITE DIAGNOSTI( PROGRAMS

OPERATING PROCEDURE
] .

2.
3.

6 .

OPERA TOR
1

SWITCH OPTIONS
STARTING
HALTING
RESTARTING
INTERFACE

PROGRAM

].0.

CONSOLE DIALOGUE

PROGRESS REPORTS

PERFORMANCE

REPORTS

PROGRAM HALTS

ERROR REPGRTS

NO NN
—

ENVIRONMENTAL SUPPORT
PROCESSOR

COMPATIBILITY

DUAL PORT

CONFIGURATJONS

MACRO v03.01

NN -2 O V00N

POIRIPIRININY
b b b b et it d ad

NN = O OO0 NN B (NN —

CZRMMAO RMOS/3/72 FULINL TST

TEST

MEMORY PAR]ITY HARDWARE
MEMORY MANAGEMENT HARDWARE
ACT, APT COMPATIBILITY

XXDP COMPATIBILITY
OPERATING SYSTEM COMPATIBILITY

DESCRIPTION

SEQ 0002

OOV

NP N

WA= O OB N

NI NN

NNVNUAUNUNININI
NI NIND b =t il s el el i e e

O O00 NN

(NN —

CIZRMMAD RMOS/3/2 FCINL TST

MACRO v03.01

11-APR-80

13:04:53 PAGE

1.0

INTRODUCTION

1.1

ABSTRA(T

THE

RM0S5/3/2

WHICH ~ USES

RM05/3/2

DISK

SEQ 0003

SUBSYSTEM FUNCTIONAL

FUNCTIONAL

SUBSYSTEM.

MEANS

FOLLOWING PURPOSES:

PARTICULAR,

TO EXPLICITLY ESTABLISH CONFIDENCE

g;é;ATlgnévE.
NS:

INCLUDING

MECHMANICAL

TO
IMPLICITLY
ESTABLISH
ELECTRICAL INTERFACE,

TEST

VERIFY

IS A STAND ALONE PROGRAM

THE

OPERABILITY

PROGRAM

IN THE BASIC OPERATIONS Of

POSITIONING

(ONFIDENCE

AND

THE

DATA

TME

THE
THE

TRANSFER

DRIVE/ADAPTER

TO
VERIFY THE FUNCTIONALITY OF THE RMOS/3/2 SUBSYSTEM,
MASSBUS C(ONTROLLER, MASSBUS ADAPTER AND THE DISK DRIVE.

THE

SERVES

INCLUDING

THE TEST IS COMPRISED OF 3 PARTS, WHICH WOULD NORMALLY BE RUN
N
SEQUENCE,
STARTING
WITH
PARY 1,
PBRIEFLY, PART 1 TESTS WHOUSEXKEEPING
AND MECMANICAL POSITIONING OPERATIONS;
PART 2 TESTS WRITE,
READ
AND
WRITE
(HECK
OPERATIONS
USING
HEADER AND DATA;
PART 3 TESTS WRITE,

READ

AND

1.2

UNIT

WRITE

UNDER

(HECK

OPERATIONS

USING

DATA,

TEST

THE UNIT UNDER TEST {(UUT) IS THE RM05/3/2
DISK
SUBSYSTEM
WH](H
CONSISTS OF THE RMXX MASSBUS CONTROLLER, THE RM05/3/2 MASSBUS ADAPTER,

AND THE STORAGE MODULE DISx DRIVE.
gg? EYEST]NG
AND IS CONSIDERED AN

NOTE THAT A DISK PACK |S
REQUIRED
INTEGRAL OF THE STORAGE MODULE DSk

vt.

2.0

OPERATING REQUIREMENTS

2.1

HARDWARE REQUIREMENTS

THE FOLLOWING
MINIMUM
HARDWARE
OPERATIONAL, IS REQUIRED TO LOAD
AND
FUNCTIONAL TEST:

PDP=-11

C(ONFIGURATION,
ASSUMED
10
BEF
EXECUTE
THE RM05/3/2 SUBSYSTEM

PROCESSOR

8K MEMORY

KWwill=L OR KW1i=P (LOCK

PROGRAM LOADING DEVICE
TERM]INAL

RH11 OR RH70 CONTROLLEN
1 10 8 DISK DRIVES (ANY

(OMBINATION OF

RMOS'S,

RMO3'S OR RMO2'S)

CIZRMMAO RMOS/3/2 FCTINL TST

MACRO v03.01

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

SEQ 0004

2.2

MEDIA REQUIREMENTS

60
61
62
63

EACH UNIT BEING TESTED MUST BE LOADED WITH A
SCRATCM
DISK
PA(K
BEFORE
TESTING
BEGINS
ON
THAT
UNIT.
THE DISK MAY BE FORMATTED OR
UNFORMATTED.

65
g?

2.3

PREREQUISITE DIAGNOSTIC PROGRAMS

gg
70
71

RM05/3/2 DISKLESS DIAGNOSTIC, PART

3.0

OPERATING PROCEDURE

3.1

§ 2

THE PROGRAM MAY BE LOADED BY EITHER OF

.PAPER TAPE,

gg
81
82

3.2

85
g?

STANDARD PAPER TAPE LOADING PROCEDURE.

.XXDP MEDIA, USING THE APPROPRIATE LOADING DEVI(E.

88
89
90
91
92
93

USING THE

THE FOLLOWING MEDIA:

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

SW15
SWis
Swi3

HALT ON
LOOP ON
INHIBIT
UNUSED
INHIBIT
BELL ON

Swi2

SWwil
Sw10

SW09
Swo8

THE

UTILITY

ERROR
TEST (CURRENTLY BEING EXECUTED)
ERROR TYPEOUTS

TEST ITERATIONS
ERROR

LOOP ON ERROR

LOOP ON TEST

IN SW07-00

97
98
99
100
10°
102

THE LOW ORDER 8 SWITCHES (SW07-SW00), ARE
USED
IN
CONJUNCTION
WITH
SWOB
TO
SPECIFY
THE OCTAL NUMBER OF THE TEST WHICH THE PROGRAF WILL
LOOP ON.

%82

3.3

105
106
107
}88

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

110
"

}}%
114

3.4

STARTING

HALTING
THE

PROGRAM (AN BE

HALTED BY

TYPING CONTROL

FROM

THE

CONSOLE.

MACRO v03.01

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

SEQ 0005

3.5

RESTARTING
THE

4.0

OPERATOR

4.1

PROGRAM ]D
THE

INTERFACE

PROGRAM

TYPES

1TS

TITLE

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

AND MAINDEC

NUMBER

THE

FIRST

TIME

ENTERS

PROGRAM [DENTIFICATION DOES NOT OCCUR

4.2

CONSOLE DIALOGUE

D el e
i
el i e
D i Tl e
el

STAND

IS:

RESPONDS WITH A ‘'v'',

WHICH WILL LIST

ALONE

MODE,

PROGRAM 1.D..

''TYPE

THE

SWITCH OPTIONS,

WelP

TEXT

PROGRAM WILL

SECOND QUESTION TYPED

''CHANGE

(Y/N)

TYPE

A BRIEF

ETC.

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

THE

UNIBUS ADDRESS,

OPERATOR RESPONSE

ADDRESSES

INITIAL PROGRAM

(Y/N)

?''.

THE

VECTOR

1S A ''N''.

ADDRESS AND

INTERRUPT

THE PROGRAM SKIPS TO THE

PRIORITY.

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:

e el

D il e

RUNNING

QUESTION TYPED QUT

THE
THE

THE

SAME

IF_THE

LONG
VERSION OF THE
INITIAL PROGRAM START.

°'ORIVE(S):'

(Y/N)

7',

RESTARTED USING THE SAME
?%ggARIS
THE
DIALOGUE

4.3

PROMPT

PROGRAM IS RESTARTED,

DEVICES

i e
— e

SEQNENCE AFTER TYPING THE

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

D e
s
e

FIRST

OPERATOR

NOTE:
THE

PROGRAM

i e

THE

DIALOGUE

HELP MESSAGE

D e

D o e

WHEN

CONSOLE

D el

D e

e o

i e

) e

PROGRAM CAN BE RESTARTED AT ADDRESS 200.

D e o

i o

Pl AR
NNOCOO
OO
VNWNUVIIWNUNNW
S
AR ARAR AR W
I TV VI VIV IV TV TOTONY Y, V1,87, U1, VT, ¥7, U1, VT U7 W R0 P p pur pii
= OV
NO VN WN=2OOVONO
NS W
=000 ~ VBN =200V
NN
NN 2O OO NO VNS WNAN OO0~

CIRMMAG RMOS/3/72 FCINL TST

PROGRESS REPORTS

THE

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

S TYPLD,.

THE

FIRST QUESTION

OPERATOR

TYPED

TYPES "'v'',

THE

IS,

TEST

‘'USE

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

MACRO v03.01

13:04:53 PAGE

3-3

SEQ 0006

4.4

PERFORMANCE

PROGRAM
IS
EXECUTED
PASS RFPORT INCLUDES A

REPORT

NO PERFORMANCE

REPORTS

PROGRAM,

ARE

GIVEN

DURING

THE

EXECUTION

THE

4.5

PROGRAM HALTS

THERE ARE NO SCHEDULED HALTS DURING THE
PROCESSOR HALTS ARE DUE TO THE TRAP CAT(HER.

EXECUTION OF

THE

PROGRAM,

4.6

—

)

id el el

D et

e e

11-APR-80

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

)

el el ol

ed e

O O 0 OO OO O 000000000000 00000000 ~J N~~~ ~J~J~y
NOWVNESWN
= O V00 NO WS NN = OO 00 N0 NN

CZRMMAQ RM0O5/3/2 FCINL TST

UNIT
THE

ERROR REPORTS

THE

FIRST

LINE

BEING TESTED,

THE

ERROR MESSAGE:

AND

THE

CALLED.

THIS

NUMBER

THE

ONE OR MORE

LINES OF

THE

ERROR WAS

YET COMPREHENSIVE DESCRIPTION OF
NORMALLY
FOLLOWED
BY
ONE
OR
HEADERS

CONTAINS

THE ERROR NUMBER AND THE VALUE OF

PROGRAM COUNTER WHERE

THE

ERROR REPORT

TEST NUMBER,

DATA PERTININENT

ACTUAL TEST RESULTS.

5.0

ENVIRONMENTAL SUPPORT

5.1

PROCESSOR COMPATIBILITY

THE
MORE
THE

ERROR.
PAIRS
ERROR,

FOLLOWED

A BRIEF,

THE
ERROR
MESSAGE
IS
OF LINES CONTAINING DATA
INCLUDING

EXPECTED

AND

IS EXECUTABLE ON ANY PDP-11

noroNo MNONLMNLNLNLRNL
NN NN NN PO N
(291,97,
8] PNIPOUNUNROND
=t =t ed b ed D e o e D
~NOWw S NN = OV NS NP — O

THE RMO5/3/2 SUBSYSTEM FUNCTIONAL TEST

LINE

TEXT WHICH GIVE

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

228

RM0S5/3/2 SUSBYSTEM FUNCTIONAL

SUSTAIN DATA TRANSFER OPERATIONS.

5.2

DUAL PORT CONF]GURATIONS

THE RM05/3/2 SUBSYSTEM FUNCTIONAL TEST DOES NOT SPECIF 1 CALLY TEST
DUAL
PORT
LOGIC
IN
THE
RMO5/3/2
ADAPTER
BUT
IS
EXE EIABLE
ON
RMOS/3/72
SUBSYSTEMS
HAVING
THE
DUAL PORT OPTION PROVIDI NG
THE DUAL
PORT

5.3

SWITCH

SET

TO THE

APPROPRIATE

PORT

(A OR B).

MEMORY PARITY HARDWARE
MEMORY

PARITY

HARDWARE

IS NOT

TEST,

USED DURING

THE

EXECUTION

THE

CZRMMAQ RMOS/3/2 FCINL

TST

MACRO v03.01

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

OO ~NO NS W

— OO

PO AN A AU N AU NN AU A
AN N N NN AN N N NN D

SeQ 0007

5.4

MEMORY MANAGEMENT HARDWARE
MEMORY

MANAGEMENT

HARDWARE

SUSBYSTEM FUNCTIONAL TEST.

5.5

ACT11, APT11

NOT

CAPABILITIES OF

USED

DURING

THE

RM05/3/2

THE MASSBUS CONTROLLER.

COMPATIBILITY

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

5.6

XXDP COMPATIBILITY

THE RM05/3/2 SUSBYSTEM FUNCTIONAL TEST ]S COMPATIBLE WITH XXDP IN
DUMP
AND CHAIN MODES, AND PROVIDES MEDIA PROTECTION IN THE (ASE WHERE
THE RMO5,3/2 1S THE XXDP LOADING DEVICE.

5.7

OPERATING SYSTEM COMPATIBILITY
THE

6.0

PROGRAM

IS NOT

COMPATIBLE

WITH ANY

SOF TWARE

OPERATING SYSTEM,

TEST DESCRIPTION

(ONTROLLER ACCESS TEST

[LN1,¥]1,
%1,V ],¥1,81, V1, ¥ ~n
OO NN NNNNN ~

PURPOSE
:

CORRECT,

VERIFY

THAT

AS DEFINED AT

THE

UNIBUS

ADDRESS OF

LOCATION $BASE.

THE

SUBSYSTEM

PROCEDURE:

USING

THE

TEST

THE

TRIES TO ACCESS ALL

$BASE

ADDRESS.

THE TEST, AND THE TEST
REGISTER TRANSFER,
ALONE

FAILS

BUS

THE TEST FAILS AND THE PROGRAM

ENVIRONMENT,

1.E.,

LOCATION 42

10 LOCATION 204 WHICH ALLOWS

ADDRESS

MASSBUS

VIA CONSOLE

(ONTROLLER

THE

DIALOGUE.

TIMEOUT

1S O,

OPERATOR

OTHERWISE,

OCCURS

RUNNING
THE

THE

REGISTERS

IGNORED DURING

FOR

STAND

THE

$BASE

PROGRAM WILL

(HANGE

ANY

JUMP

PROGRAM ESCAPES

CIRMMAQ RMOS/3/72 FCTINL TST

MACRO v03.01

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

DEVICE

END OF

3-5

SEQ 0008

PASS HANDLER.

AVAILABLE

TEST

PURPOSE:

AND

TO VERIFY THAT THE UNIT UNDER
IS NOT LOCKED OR PROGRAMMED TO

TEST IS AVAILABLE FOR
THE ALTERNATE PORT.

TESTING,

PROCEDURE
:

THIS TEST
SELECTS
THE
DEVICE
AND
READS
CONTROL
STATUS
REGISTERS 1 AND 2 TO VERIFY THAT THE SELECTED DEVICE IS AVAILABLE
FOR TESTING, AS INDICATED BY DVA STATUS, BIT 11 OF RM(S! AND
NED

STATUS,

FOLLOWS:

BIT

O0OF

RM(S2.

THE RESULTS OF

THE TEST

CAN VARY AS

NS NND —

THE

.DEVICE NOT AVAILABLE - THE DEVICE EXISTS BUT

SEIZED

.BUS TIMEOUT - THE MASSBUS CONTROLLER

DETECT

ALTERNATE

PORT

AND

IS NOT

AVAILABLE

FOR

TESTING;

e od e

AN LN AN AN LN AN AN AN N AN AN

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

NONEXISTENT

DEVICE;

et OO0

et ol e

.DEVICE AVAILABLE - THE DEVICE

IS AVAILABLE FOR TESTING.

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

THE

FAJLED

DRIVE

TYPE

TEST

PURPOSE:

W AN AN N NN NN
N AN AN AN N AN NN

OO~
N NN
—

VERIFY THAT

THE UNIT UNDER TEST

SINGLE PORT OR DUAL PORT

PROCEDURE :

THIS TEST READS

SELECTED

DUAL

PORT

IS AN RMO5, RM0O3 OR RMOZ

SUBSYSTEM,

THE

DRIVE

TYPE

DEVICE AND VERIFIES THAT THE DEVICE

RMO0S5/3/2 SUBSYSTEM.

RMDT,

THE

IS A SINGLE PORT OR

THE SELECTED DEVICE

1S NOT AN

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

CZRMMAO RMOS5/3/2 FCTINL TST

MACRO v03.01

UNIBUS

11-APR-80

13:04:53 PAGE

INITIALIZE

3-6

SEQ 0009

TEST

PURPOSE
:

VERIFY

INITIALIZED BY

THAT

ALL

THE RESET

APPLICABLE

SUBSYSTEM

INSTRUCTION.

REGISTERS

ARE

PROCEDURE:

RESET

NONZERO VALUES ARE WRITTEN IN EACH APPLICABLE
REGISTER.
INSTRUCTION
IS
EXECUTED, AND THE REGISTERS ARE TESTED

INSURE

APT

oce

THEY WERE

COMPATIBILITY

RgHE
URS:

INITIALIZEC.

REQUIREMENTS.

THIS

FOLLOWING REGISTERS ARE

RMCS1

- 003577

RMBA

TEST

IS DONE ONCE BECAUSE

PRESET

BEFORE

THE

INITIALIZE

777776

RM(S2 - 021037
RMERY

777777

RMER? -

777777

RMMR

- 040001

IN DD]TION

TO
A ONE

THE DATA BUFFER

AND

CONTROLLER CLEAR

TO FORCE

1S USED

TO FORCE

DLT,TRE,SC

AND

T0 A ZERO.

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 (ONTROLLER
C(LEAR,

1.E.,

BIT

IS READ

ERROR (LEAR TEST

CONTROL
INSURE

STATUS

WAS

CLEARED.

2 (RM(S2), AND EA(H

CZRMMAQ RM0S5/3/2 FCTNL TST

MACRO v03.01

11-APR-80

K
13:04:53 PAGE

1
3-7

SEQ 0010
PURPOSE
:

AND

TO VERIFY THAT ALL APPLICABLE RH
MASSBUS CONTROLLER STATUS
ERROR CONDITIONS ARE INITIALIZED BY AN ERROR (LEAR OPERATION.

PROCEDURE
:

N
W

b el

.MCPE, BIT

PORY

AN ''RH ERROR CLEAR'' OPERATION,
I.E., WRITING A ONE
14 OF RM(CSY WILL CLEAR THE FOLLOWING STATUS BITS:

.TRE, BIT

s et o

= OOV
NN
NN —

BIT

14 OF

IN TRE,

RM(S

13 OF

RMCS1

- READ ONLY

.DLY, BIT

15 OF

RM(CS2 - READ ONLY

.WCE,

BIT

14 OF

RM(S2 - READ ONLY

LUPE, BIT

13 OF

RM(S2

.NED, BIT

12 OF

RM(S2 - READ ONLY

.PGE,

BIT

10 OF

RMCS2 - READ ONLY

MXF,

BIT 09 OF

RM(S?2

.MDPE, BIT 08 OF

RM(CSZ2 - READ ONLY

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

DRIVE

STATUS

TEST

:
PURPOSE

THAT

TO VERIFY THAT THE STORAGE
PERMITS FURTHER TESTING.

MODULE

DISK

DRIVE

STATE

PROCEDURE
:

THIS TEST INITIALIZES THE MASSBUS AND EXAMINES STATUS Of
SELECTED DEVICE FOR THE FOLLOWING CONDITIONS:

.MOL, BIT

12 OF RMDS

.WRL, BIT

ASSERTED BY

A WRITE

655
456

THE

PROTECT

.DvC,

BIT

DRIVE;

=1,

RMDS -0,

STATE;

UNASSERTED BY THE DRIVE;

RMER3

INDICATING

THAT

INDICATING THAT

=0,

THE

UNIT

READY

THE DRIVE

1S NOT

FAULT

INDICATING

DRIVE

CIRMMAQ RM0S/372 FCTINL TST

MACRO v03.01

1
L
11-APR-80 13:06:53 PAGE 3-8

0011
SEQ

657
658

.UNS, BIT

228

461
662
663
664

222

14 OF RMER1

SHOULD EQUAL Dv(, OTHERWISE

POWER

(OMMAND

W]THOUT

1S LOW OR A FAILURE HAS OCCURRED WITH UNSAFE STATUS.

PRIMARY/SECONDARY ERROR TEST

667
468
66°
2;?

PURPOSE:

z;%

PROCEDURE :

674
475
476
677
478
679
480
481
482
483
232

THE TEST EXECUTES A PACK ACKNGWLEDGE COMMAND AND MAKES
SURE
THAT
GO RESETS AND THAT THERE ARE NO PARITY ERPORS, ET(.
VOLUME
VALID STATUS IS IGNORED.

TO VERIFY THAT THE RM0S5/3/2 (AN
INCURRING UNEXPECTED ERRORS.

DIAGNOSTIC MODE

EXECUTE

"EST

PURPOSE :

2%9

VERIFY

THAT

MAINTENANCE

HARDWARE

OPERATIONAL.

zgg

PROCEDURE :

490
69
492
463
694
695
496
97
438

THE TEST TWAT DIAGNOSTIC MODE CAN BE
SET
AND
RESET,
THEN
VERIFIES
THAT
'WMOL,
PIP,
WRL, SKI, AND DV(C'' CAN BE (ONTROLLED
USING MAINTENANCE REGISTER 1,

PACK

ACKNOWLEDGE

TEST

gg?

PURPOSE :

502
503
504

TO VERIFY THAY VOLUME VALID CAN BE SET BY A PACK ACKNOWLEDGE
COMMAND,
LENDING CREDENCE TO THE EXECUTION OF THE COMMAND AND TO
THE STABILITY OF THE UNIT READY SIGNAL FROM THE DRIVE.

506

PROCEDURE:

508

A PACK ACKNOWLEDGE

AND VOLUME

VALID STATUS,

COMMAND IS
BIT

10 OF

ISSUED

RMDS,

10 THE

SELECTED

DevICE

IS (HECKED FOR ONt.

CIZRMMAOQ RM05/3/2 FCTINL TST

MACRO v03.01

"
13:06:53 PAGE 3-v

11-APR-80

RECALIBRATE

TESTY

PURPOSE:

= OV

~NG N~

(VRN ALV T
LU LU LV LV IV TV IV LV LV LV IV IV IV IV IV IV IV IV IV [V IV IV }
N AN N N U N NN LA
NS NV PO AU AU PO AU PO A = b b b b s

SEQ 0012

THE

PRIMARY

PURPOSE

RECALIBRATE.
Twf
KNOWN STATE SO THAT

NO NS

CHANGES

OO NO NI NN =2 OOV

VNN

THE

DRIVE

WILL

10 PUT THE DRIVE [N A
FOR UNEXPECTED
STATE

PROCEDURE
:

RMDA,

THE RECALIBRATE TEST
AND
TME
DESIRED

EXECUTES A RECALIBRATE
CONDITIONS:

PRESETS
CY_INDER

C(OMMAND.

THE

TWE
D IS K
REGIST ER,

TEST

ADDRESS
REGISTER,
RMDC, TO ZERO, THEN

VERIFIES THE

FOLLOWING

LSK1=0, ''SEEK ERROR'' IS INACTIVE;
.PIP=0,

"'ON

CYLINDER''

"POSITIONING IN PROGRESS'' BEING

ACTIVE,

INACTIVE;

INDICATED

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

ABORT

INCOMPLETE

DRIVE WAS READY Al THE
STATUS
WENT
INACTIVE

LATA=1,

O v
WA
OV
-JOWNEH
N

THAT

SECONDARY
PURPOSE
IS
FURTHMER TESTS CAN (MECK

.0P1=0, NO "'OPERATION

ASCERTAIN

IN THE DRIVE.

THAT
THE
Eéh#fifiSR

951

EXECUTE
A
RECALIBRATE
OPERATION
TO
THE EXTENT THAT "'PIP'* AND
'SKI'' STATUS
BECOME
UNASSERTED
AT
THE
(OMPLETION
Of
THE

RECALIBRATE

ERROR'',

INDICATING

THAT

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

ATTENTION IS SET BY RECALIBRATE.

TEST

:
PURPOSE

ABORT

VERIFY

THAT

CONDITION EXISTS

THE RMO0S5/3/2
AT

THE

START

INHIBITS A RFCALIBRATE
OF

THE

COMMAND.

WHEN AN

PROCEDURE
:

THE TEST SETS AN ERROR IN THE ERROR REGISTER
RECALIBRATE COMMAND, VERIFYING THAT ''PIP'' REMAINS

Iv(C RECALIBRATE TEST
PURPOSE:

AND
[SSUES
INA(TIVE.

MACRO v03.01

D00~
N LS (NP —

(W IV W LV IV IV IV [V, IV ]
SNNSNSNSNSNSNISN
N

CZRMMAQ ©%035/3/72 FCTINL TST

N
1
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
DIAGNOSTIC
MODE
WHICH
CAUSES
VOLUME
VALID, BIT 6 OF RMDS TO RESET.
THE PROGRAM THEN EXECUTES

A RECALIBRATE

COMMAND

THAT ''PIP'' REMAINS

580

IAE RECALIBRATE

AND VERIFIES

INACTIVE.

THAT

‘‘Iv('"

STATUS

SETS

AND

TEST

PURPOSE:
TO VERIFY THAT
RECALIBRATE COMMAND

INVALID ADDRESS ERROR DOES MOT
.

SET

DURING

PROCEDURE
:

THE TEST PRESETS THE DISK ADDRESS
(RMDA)
AND
THE
DES!RED
CYLINDER ~ ADDRESS
(RMDC)
TO
ILLEGAL
VALUES
AND
ISSUES
A
RECALIBRATE COMMAND, VERIFYING THAT ''IAE'' DOES NOT SET DURING THE
COMMAND.

RECALIBRATE

OFFSET

PURPOSE:

TO VERIFY

THAT

OFFSET

MODE

DOES

NOT

AFFECT

RECALIBRATE.

PROCEDURE
:

THE

TEST

RECALIBRATE
RECALIBRATE.

DRIVE

EXECUTES

OFFSET

COMMAND AND VERIFIES

THAT

(COMMAND,
THERE

ARE

THEN

EXECUTES

NO ERRORS DURING

CLEAR TEST
:
PURPOSE

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

CIRMMAQ RM0S5/3/2 FCINL TST 1

MACRO v03.01

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

ARE

SEQ 0014

THIS TEST WRITES ONES IN THOSE MASSBUS
ADAPTER
BITS
WHICH
INITIALIZED
BY
DRIVE
CLEAR
, THEN ISSUES TME 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
.DMD, DIAGNOSTIC MODE

IS SET TO ALL ONES:

IS SET;

.RMER2, ERROR REGISTER 3,

IS SET TO ALL ONES.

FOLLOWING THE DRIVE CLEAR COMMAND,
CHECKED:

.RMCS1,

ARE DONT

FOLLOWING

ITEMS

ARE

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

CARES;

.RMDS,

1S CHECKED FOR O,

MOL,DPR,DRY,

AND

.RMER1,

IS CHECKED FOR O;

.RMAS,

1S CHECKED TO INSURE THE APPROPRIATE ATA BIT

IS 0;

RMMR,

[S CHECKED FOR 0, EXCEPT FOR WORD CLOCK, LAST SECTOR,

WHICH SHOULD BE ONE,

AND LAST

ONE,

THE

EXCEPT

AND PGM WHICH

SECTOR AND TRACK WHICH ARE

FOR

IS A DONT

DONT

CARE.

CARES;

.RMMR2 1S CHECKED FOR O, EXCEPT FCR THE TEST

AND REQA,

REQGB WHICH ARE DONT

VvV

CARES;

BIT

WHICH

.RMEC2 1S CHECKED FOR O;

.RMER3 1S CHECKED FOR O;

NOP TEST
:
PURPOSE

TO VERIFY THE EXECUTION OF

''NOP'' COMMAND.

PROCEDURE
:

A NOP COMMAND

C(HECKED

(HANGES

IS EXECUTED ON THE

VERIFY

IN STATUS.

THAT

SELECTED DEVICE

AND

STATUS

THERE WERE NO ERRORS OR UNEXPECTED

CIRMMAQ RMOS5/3/2 FCINL TST

MACRO v03.01

11-APR-80

13:04:53 PAGE

3-12

SeEa 0015

685
686
687
688
689
690
691
692
693
696

OFFSET

TEST

PURPOSE:
T

VERIFY

THE

EXECUTION OF

'‘OFFSET'' COMMAND.

PROCEDURE
:

OFFSET STATUS. BIT 00 AMDS IS"SET AND TWAT ATTEN]
10N 551 14701

695
696

RMDS

1S ALSO

STATUS

697
698
699

SET.

ADDITIONALLY,

CONTROLLER,

IS CHECKED FOR UNEXPECTED CMANGES.

ADAPTER,

AND

DRIVE

700

701
702
703
704
705
706

GO/ATA TEST
PURPOSE:
TO
VERIFY
(OMPOSITE ERROR

THAT
‘ATA"
1S INACTIVE.

WILL

RESET

WITH

''GO'"

PROVIDING

PROCEDURE
:

AND

WRITE

ATA

ATTENTION, BIT 15 OF RMDS,
RESET USING A NOP (OMMAND.

SET

USING

OQFFSET

(OMMAND

TgSI

PURPOSE
:

TO VERIFY
THAT
ATTENTION
(AN
ATTENTION SUMMARY REGISTER, RMAS,

RESET

WRITING

THE

PROCEDURE
:

ATTENTION IS SET USING AN OFFSET
COMMAND
AFTER
WHICH
THE
PROGRAM
WRITES
A O IN THE ATTENTION SUMMARY REGiSTER, VERIFYING
THT ATTENTION REMAINS SET.
FOLLOWING THAT, THE PROGRAM WRITES
A
1 IN KMAS AND VERIFIES THAT ATTENTION RESETS.

ERROR/ATA TEST
PURPOSE:

TO VERIFY THAT
(OMPOSITE ERROR.

*'60°" DOES NOT

RESET

'‘ATA'"

WHEN

THERE

(IRMMAQ RMOS/3/2 FrTNL TST

MACRO v03.01

11-APR-80

13:04:53 PAGE

3-13

SEQ 0016
762

763
766

765
746
767
748
749
750

751
752
755
756

755
756
757
758
759
760

761
762
763
764
765
766
767
768
769

:
PROCEDURE
"ATA 1S SET WITH AN OFFSET COMMAND AFTER WwHI(H ONE
OF
THE
ERROR
BITS
IS
SET.
THE PROGRAM THEN ISSUES A NOP (OMMAND AND
VERIFIES THAT THE ATTENTION BIT REMAINS SET.

PROGRAM

INTERRUPT

TEST

PURPOSE:
TO

INTERRUPT

PRIORITY

VERIFY

~ WHEN

AND

THAT

THE

PROCESSOR

INTERRUPT

SUBSYSTEM

PRIORITY

wilLL

GENERATE

LESS

THAN

PROGRAM

C(ONTROLLER

IS ENABLED.

PROCEDURE
:

ATTENTION

SET

USING AN OFFSET

ENABLED AND PROCESSOR PRIORITY

PROGRAM VERIFIES

THAT

A PROGRAM

(OMMAND.

WITH

INTERRUPT

SET BELOW CONTROLLER PRIORITY,
INTERRUPT

THE

OCCURS.

770

771
772
773
774
775
776

777

778

779
780
781
782
783
784
785
786
787
788

789
790
791
792
793
794
795
796
797
798

INHIBIT

INTERRUPT

TEST

PURPOSE
:

TO VERIFY THAT A PROGRAM INTERRUPT
PROCESSOR
AND
CONTROLLER PRIORITY ARE

ENABLED OR

AND

(2)

INTERRUPTS

WHEN PROCESSOR PRIORITY
ARE

NOT

DOES NOT
THE SAME

LESS

OCCUR
WHEN
(1)
AND INTERRUPT ]S

THAN

(ONTROLLER

ENABLED.

PROCEDURE
:

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

RETURN

TO CENTERLINE

TEST

:
PURPOSE
TO VERIFY

THE

EXECUTION OF

''RETURN TO CENTERLINE'' (OMMAND.

CZRMMAQ RMOS5/3/2 FCTINL TST

MACRO v03.01

11-APR-80 13:06:53 PAGE 3-1¢4
SEQ

ggg

PROCEDURE :

801
80¢

THIS TEST ISSUES AN RT(C COMMAND
AND
VERIF] ES
OFFSET
THAT
STATUS, BIT O OF RMDS IS RESET AND THAT ATTENTIGN , BIT 15 OF RMDS

382

IS SET.

UNEXPECTED STATUS OR ERROR CONDITIONS AR E ALSO VERIFIED.

(281, N et ed b o e s e d
—_
Ny — OOV
NV
NN — o0

©o Co00 0o 0o 00 0o 0o Oo GO 0o 0o 0o 00

805
806
807
808

READ

IN PRESET

TEST

PURPOSE:

TO VERIFY

THE

EXECUTION OF

''READ

IN PRESET'' COMMAND.

PROCEDURE
:

WHICH

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

EXECUTES THE
THE

COMMAND AND VERIFIES

FOLLOWING REGISTERS ARE

.RMDA,

THE

CONTENTS OF

EACH

THE DISK ADDRESS REGISTER,

1S LOAUED WITH

823

ONES AND VERIFIED TO BE ZERO AFTER THE RIP COMMAND;

825
826

RMDC,
ALL ONES (001777)

828
829

.RMOF,
THE OFFSET REGISTER,
VERIFIED TO BE ZERO AFTER THE TEST;

835

CHECKED:

THE DESIRED CYLINDER REGISTER, IS LOADED
WITH
AND VERIFIED TO BE JERO AFTER THE RIP COMMAND;

IS PRESET

(T0 016200)

PURPOSE:

839
840

TO VERIFY THAT WRITING THE DESIRED CYLINDER REGISTER
WILL CLEAR OFFSET MODE.

842

PROCEDURE:

844
845

OFFSET MODE
WRITING RMDC.

gg;

ILLEGAL FUNCTION TEST

855

AND

RMDC CLEAR OFFSET TEST

837

ggz

ALL

IS SET USING THE OFFSET COMMAND,

THEN

(RMD()

RESET

PURPOSE :
TO VERIFY

THAT

THE RMOS/3/2 SUBSYSTEM

DETECTS

ALL

ILLEGAL

0017

CZRMMAQ RM0S5/3/2 FCINL TST

MACRO v03.01

11-APR-80 13:06:593 PAGE 3-15
SEQ 0018

856
857

FUNCTIONS.

ggg

PROCEDURE :

860
861
862
863
864
865
866
867
868
998

EACH ILLEGAL FUNCTION CODE
IS
EXECUTED
WITH
THE
PROGRAM
VERIFYING
THAT
‘"'ILLEGAL FUNCTION'' STATUS, BIT 0 OF RMERY ]S SET
FOR EACH CODE.
THE
SUBSYSTEM
IS
INITIALIZED
PRIOR
TO EACH
ILLEGAL FUNCTION TEST.

INVALID COMMAND TEST

871
872
g;z

PURPOSE
:

g;g

PROCEDURE :

877
878
879
gg?

THE TEST RESETS VOLUME VALID USING MAINTENANCE
UNIT
READY,
THEN
EXECUTES
A
NOP (OMMAND AND VERIFIES THAT JvC IS SET.
THE
PROCESS IS REPEATED
FOR
EACH
FUNCTION
CODE,
WITH
IVC
BEING
CHECKED ACCORDING TO THE FUNCTION.

882
883
884
885

ggg

TO VERIFY

JvC ERROR DETECTION.

INVALID ADDRESS ERROR TEST

888
889
gg?

PURPOSE
:

gg%

PROCEDURE :

894
ggg

T0O

TO VERIFY

1AE ERROR DETECTION.

THE TEST EXECUTES EACH FUNCTION CODE WITH RMDA, AND RMD( SET
ILLEGAL ADDRESSES, AND VERIFIES IAE ACCORDING TO THE FUNCTION.

897

898

890
900
901
90?2
903
904
382

WRITE LOCK ERROR TEST

PURPOSE:
YO VERIFY WLE ERROR DETECTION.

38;

PROCEDURE :

909
910
911

THE TEST SIMULATES WRITE
PROTECT
USING
MAINTENANCE
PROTECT
AND
VERIFIES
WLE
ACCORDING
TO
THE
FUNCTION
EXECUTED.,
EACH FUNCTION CODE IS TESTED.

WRITE
BEING

MACRO v03.01

11-APR-80

ERROR ABORT

13:04:53 PAGE

3-16

SEQ 0019

TESTS

PURPOSE:

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

DETECTED.

PROCEDURE
:

WITH
SETS.

PAR]ITY

THE

ERROR

TEST

SET,

EXECUTES A NOP

THE

TEST

COMMAND WITH

WRITES RMCSI,

DEBUG

VERIFYING

CLOCK

THAT

ENABLED.

RMR ERROR

TEST

:
PURPOSE

TO VERIFY

THAT

PARITY ERRORS ARE

DETECTED.

PROCEDURE
:

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

THE
THAT

ILLEGAL REGISTER TEST
PURPOSE:

TO VERIFY
SUSBSYSTEM.

THE DETECTION OF

JLLEGAL REGISTER ADDRESSES BY

Tht

CIZRMMAO RMOS5/3/2 FCINL TST

CIRMMAD RMOS/3/2 FCINL TST

MACRO v03.01

11-APR-80 13:04:53 PAGE

3-17

SEQ 0020
970
971
972
973
974
975
976
977

978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005

PROCEDURE:

EACH REGISTER
ADDRESS
IS
ACCESSED
AND
JLLEGAL
REGISTER
STATUS,
BIT 1 OF RMER! IS 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 Of
ADDRESSES WHICH THE CONTROLLER WILL RESPOND TO IS LIMITED BY
THE
WAY THE JUMPER IS (UT.

SEEK TESTS

PUR®OSE
:
THE PURPOSE OF EACH OF THE FOLLOWING SEEK TESTS IS TO VERIFY
THE
EXECUTION OF SEEX 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.
ADDRESS

ARE
NO PRIMARY ERRORS
THEN SECONDARY ERRORS.

NONIRAURUPOPNUNY
b et bt et —t b b et s 0 O

DRIVE

‘'PIP'*

TO LAST

TEST

CHECKS

FOR

OPERAT]ONAL

CHECKS FOR
IF
THERE

ERRORS

AND

CYLINDER TEST

TEST

SEEKS TO THE

LAST

CYLINDER,

I.E.,

FYLiNDER

822.

THIS

THE

‘''SKI''

EXECUTES A SEEK TO A CYLINDER
THE COMPLETION OF
EACH
SEEK

SEEK

TO FIRST
THIS

TEST

CYLINDER
SEEKS

TEST

TO THE

FIRST

CYLINDER,

1.E.

CYLINDER O.

=2 OOV
QWP AN

=
el el
==
=l cndd
=l
Dl
)
il
)
) el
) el
—

THE

THAT, THE TEST
ADDRESSES.
AT

OPERATION,
SUBSYSTEM
STATUS
IS
STORED AND THE TEST
PRIMARY ERRORS WHICH PRECLUDE FURTHER ERROR (HECKING.

SEEX
OOOO0OOOOCOOOOOOOOOOOOO

FOLLOWING
OR SERIES OF

SEEX PRIME
THIS

CYLINDERS

CYLINDERS TEST
TEST

SEEKS

FORWARD

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

TO EACH PRIME

C(YLINDER ADDRESS,

I.E,

d
el
e
i
il
B
D i
il
e
D
e el
D
D
il
il ol
—

QOO OO0OOOOOOOOOOOOOOOO
IS8 8B £ N N N N N NN N N N NI O N
SNV OOVONO
NS WOV~

CZRMMAQ RM05/3/2 FCTINL TST

MACRO v03.01

11-APR-B(G 13:04:53 PAGE 3-18

SEEX

ZERO DIFFERENCE
THIS

TEST

EXECUTES SUCCESSIVE

SEEK MAXIMUM DIFFERENCE
THIS TEST
CYLINDER.

SEEXS

SEQ 0021

SEEKS

TO CYLINDER O.

FORWARD TEST

TO CYLINDER O FOLLOWED BY

SEEK ADJACENT

1051

THIS TEST SEEXS TO CYLINDER O, FOLLOWED BY
ADJACENT FORWARD CYLINDER, I.E., CYLINDER 1.

SEEK

TO THE

LAST

FORWARD TEST
A

SEEK

THE

SEEK ADJACENT

REVERSE

TEST

THIS TEST SEEXS TO CYLINDER 1,
REVERSE CYLINDER, 1.E., CYLINDER O.

FOLLOWED BY A SEEX

TO THE

ADJACENT

NN
WD et OOV

— e e

D et i e e

e e

QOO OOOOOOOOOOOO

QOO 00 NNNNNNNNN~

N = OO

s il el

D i

) el il i

s i

S i

il e

[olele [olelelaleleleloleololole]e]
oo o OO
O NN NN NN wn
~NO » WA = OO0 ~NO NS N no

ol cnnd

1049

SEEK

TO INVALID SECTOR TEST

WITH THE OFFSET 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.

SEEK

TO INVALID TRACK

TEST

THE TEST SEEKS TO EACH INVALID TRACK ADDRESS
AND)
SECTOR
ADDRESS
SET
TO O AND VERIFIES THAT
ERROR SETS FOR EACH TRACK ADDRESS.

WITH
CfLINDER
INVALID ADDRESS

CZRMMAO RMOS5/3/2 FCTINL TST

MACRO v03.01

11-APR-80 13:04:53 PAGE

3-19

SEQ 0022
1084
1085
1086
1087
1088
1089
1090

SEEK

TO INVALID CYLINDER TEST

THE PROGRAM SEEKS TO EACH INVALID CYLINDER ADDRESS WITH
THE
SECTOR
AND
TRACK
ADDRESS
SET
TO
O AND VERIFIES THAT INVALID

ADDRESS ERROR

SEEKX

NO NS WA 2OV

VO NS W

=O VBN

VNS WN—=2O OB NO VN

NN —OV

AN NN N N AN N N NN NI NI NN NONINUNIN) bt et b et el et et 2 s O OO OO OCOOONDO

£~

)
i
) el
D
el
el e
D e
i
D el Tl el
D el
il
i el
D e
)
ol el
) e e
e
i
il el
)
S
—

_._._4.‘_‘._.—-_.—-_._.._._o_n_._._._a_‘_a_.d—a_o—a_a—n—a_o.-._a_a_‘_‘—-_n—a_._.—-l_no

D il

Iv(

SETS

FOR

EACH CYLINDER ADDRESSS.

TEST

PURPOSE:
10 VERIFY THAT INVALID COMMAND STATUS, B'T 12 OF
WHEN VOLUME VALID IS INACTIVE DURING A SEEK ( JMMAND.

RMERZ2

SETS

PROCEDURE
:
THE

TEST

DIAGNOSTIC

RESETS

MODE,

VOLUME

VALID

"IVC'' STATUS 1S SET.

ABORT

SEEK

THEN EXECUTES A SEEK

SETTING

COMMAND AND

AND

RESETTING

VERIFIES

THAT

TEST

PURPOSE
:

TO VERIFY THAT
CONDITION EXISTS AT

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

WHEN

ABORT

PROCEDURE
:
THE

TEST

SEEK COMMAND,

SEEK AT

SETS AN ERROR

jiN THE

ERROR REGISTER

VERIFYING THA( ''PIP'' REMAINS

AND

INACTIVE.

ISSUES

OFFSET

PURPOSE:

TO VERIFY

THAT

OFFSET MODE

DOES

NOT

CAUSE

ERRORS

DURING

PROCEDURE
:

THE
LJMMAND,

TEST EXECUTES AN OFFSET COMMAND
THEN
VERIFYING THE RESULTS OF THE SEEK.

EXECUTES

SEEK

MACRO v03.01

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

SEQ 0023

el e e
s i D e e e e e i el e i il e it
— s el el e
S el el el i el
) il e il D el )

D sl e e el
D s
il il i

D D D i il S D D D i ) i e i i i
D b el D sl e il el el ) e e il D el i

i
)

D
D

D e D el ) D o il il i il e il o
) B e e el D D D e
D il el e e

OO OV OVOOOVOOOOEOMAWOOODD
NN NNNYNNNNNOOOCOCOTOOOONNNVDWMIAWNMWNMANWNME SN DNSSS
NOWVMEB
NN =OOVONOWVNN WA = OOV NO WS W
= O VO NO VNS NN = OO
NO VNS WA = OO0~V
IS NN —

CIRMMAQ RMO5/3/2 FCINL TST 1

LOOK AHEAD TEST
PURPOSE:
TO

INSURE

DRIVE
AND
IS
OPERATIONAL
.

THAT

THE

VISIBLE

SECTOR

(OUNT

THROUGH THE

WHICH

ORICINATES

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 ]S DETECTED
OR
UNTIL

31.

SAMPLES ARE TAKEN.

BIT

FORMAT,

THE COLLECTION IS THEN TESTED TO DETERMINE

THAT THE SECTOR COUNT INCREMENTS
CORRECTLY
THROUGH
THE
RANGE
OF
VALID
SECTORS.
THE SAME PROCEDURE IS REPEATED

WHERE

THE

LIMIT

ON THE NUMBER OF

SAMPLES

ENTIRE
FOR 16

33.

WITH

'PIP'"

SEARCH EACH SECTOR ON CYLINDER
PURPOSE:

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

HEAD

PROCEDURE
:

“'SKI''

THE

TEST

INTIALIZES AND RECALIBRATES

ACTIVE THEN SEEKS TO CYLINDER 0.

SEARCH TO EACH SECTOR AND
WITHOUT
ERROR.
THIS TEST

IN 16 BIT FORMAT,

SEARCH OFF

THE

DRIVE

THE TEST THEN DOES A

VERIFIES
THAT
THE
SEARCH
COMPLETES
IS DONE ONCE IN 18 BIT FCRMAT AND ONCE

CYLINDER

PURPOSE:
TO VERIFY
HEAD MOTION.

THE

EXECUTION OF

COMMAND

WITH

IMPLIED

PROCEDURE
:

THE

DRIVE

1S RECALIBRATED AND

INITIALIZED

THE

DRIVE

— OO0
NS N
NO VNS WA= OV~
WA= OOV
NN
NO NS NN 2OV
2OV
W

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

SEQ 0024

OFF
CYLINDER OR HAS A SEEX ERROR.
THE PROGRAM THEN EXECUTES AND
EXPLICIT SEEK TO CYLINDER 410., FOLLOWED BY A SEARCH TO
CYLINDER
411,, TRACK O, SECTOR O. THE
FOLLOWING
IS
SEARCHED
FOR
BY AN
EXPLICIT
SEEXK TO CYLINDER 409., FOLLOWED BY A SEARCH TO CYLINDER
612,, TRACK O, SECTOR 1, ET(.,
WUNTIL
ALL THE
SECTORS HAVE BEEN
SEARCHED.
THE
TEST
IS
OONE
FOR 18 BIT FORMAT, WHERE THE LAST
SECTOR
SEARCHED
IS
SECTOR
29. THE TEST IS REPEATED FOR 16 BIT
FORMAT,

WHERE

INVALID

THE

LAST

SECTOR

SEARCHED

31.

SECTOR

PURPOSE:

10 VERIFY THE DETECTION OF
SEARCH OPERATION.

INVALID

SECTOR ADDRESS

DURING

PROCEDURE
:
THE

DRIVE

IS RECALIBRATED

AND

THE

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, ].E., SECTORS 30 AND 31 AND VERIFIES THAT INVALID ADDRESS
ERROR SETS FOR EACH SECTOR.

INVALID

TRACK

PURPOSE
:
TO VERIFY

SEARCH OPERATION.

DETECTION OF

INVALID

TRACK

ADDRESS

DURING

PROCEDURE
:

THE DRIVE IS RECALIBRATED
AND
INITIALIZED
IF
[T
IS
OFFf
CYLINDER
OR
HAS A SEEK ERROR,
THE PROGRAM EXECUTES A SEARCH 10
EACH INVALID TRACK ADDRESS
WITH
THE
CYLINDER
ADDRESS
0O,
AND

SECTOR ADDRESS O AND VERIFIES
EACH TRACK.

THAT

INVALID ADDRESS ERROR SETS FOR

NN
OOV
NN

—

it el el

D el e Gl il sl

) o

il e P

il el ol

)

P el

D e

) el el o

D el o

il el

D el il s

)

) il i

D i

il el i e

el s

e’

) i

D i

AONURLNUALRORURURNLNLNL
ALV AL NL NPV AL PN NNV PO NN N PPNV NI AL AU R AL NI PV PN PUNI AN RN NI AL I NI NI NI NI PINI NI N — s
ANANPAAAN
S 8 8 B8 222 8 5 \N N N NN NN NN NN NN NN PONINININ bt b bt bt it 0 = =2 O OO OO
OOOOOVY

CIRMMAO RM0S5/372 FCINL TST 1

INVALID CYLINDER

:
PURPOSE
TO VERIFY

THE

DETECTION

DURING A SEARCH OPERATION,

INVALID

CYLINDER

ADDRESS

THE DRIVE IS RECALIBRATED
AND
INITIALIZED
If
IT
IS
OFF
CYLINDER OR HAS A SEEX ERROR.
THE PROGRAM THEN EXECUTES A SEARCHM
TO EACH
INVALID
CYLINDER
ADDRESS
AND
VERIFIES
THAT
INVALID

ADDRESS

Iv(

%%é

289
308
09

ERROR

SETS

FOR

EACH CYLINDER.

SEARCH TEST

NO NS WA= OV
NO NS WN = OV
~=OOVMONO
NS WN—O OO

302

SEQ 0025

PROCEDURE
:

NN = OO0

D e
s
s
i
el
b
il o
el
el e
i
i
D
e
D e
el el ol i
e
il
el e
D il
)
il
D et
i
D il el il
el
el
D i
il
D
)

VIV L

el
i
i T
D
D il
et
e e

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

~NO W

LSS N S LS LN L 0 AN IS IS 1A R N1 N1, N1, V] VT, NT ST, V1, V], ST, VT N1, 1 VT, ST, U1, N1, O1, V1, V1 VT, VT, ST, 91, V1, V1, ST, VT ¥
OO VOV OVOVOVOVOOVOY OO0 NNNNNNNYNNOOCOOOTOTOOCO
O NN

CIRMMAQ RMO5/3/2 FCTNL TST 1

PURPOSE
:

TO VERIFY

THAT

INVALID COMMAND

INACTIVE DURING A SEARCH COMMAND.

STATUS SETS WHEN VOLUME

VALID

PROCEDURE
:

MODE,

THAT

ABORT

VOLUME VALID IS RESET BY SETTING
AND
RESETTING
DIAGNOSTIC
AFTER
WHICH THE TEST EXECUTES A SEARCH COMMAND, VERIFYING
“'IvC'" STATUS SETS.

TEST

PURPOSE:

TO VERIFY THAT

CONDITION EXISTS AT

THE RM0S5/3/2 INHIBITS A SEARCH WHEN AN
THE

START OF

THE

COMMAND.

ABORT

PROCEDURE
:

THE

TEST

SETS AN ERROR

IN THE

ERROR REGISTER

AND

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

ISSUES

SEARCH AT OFFSET TEST

PURPOSE:

TO VERIFY THAT OFFSET MODE DOES NOT CAUSE SEARCH ERRORS.
PROCEDURE :
THE TEST EXECUTES AN OFFSET COMMAND, THEN EXECUTES A
SEAR(H
COMMAND, VERIFYING THAT THERE ARE NO ERRORS DURING THE SEARCH.

(VP
MYV T,V

e
e

P SN

—

NN (NN

1
CIZRMMAQ RM05/372 FCINL
TST 1

MACR
.01
CRO v03.0

11-APR-80 80

13:04:53
13:04:53 PAGE PAGE

3-23

SEQ 0026

MACRO v03.01

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

3
SEQ 0027

.PROGRAM REVISION #001

1
(78
479

LTITLE
CIRMMAQ RM0S5/3/2 FCTINL TST 1
;*COPYRIGHT (C) 1980
;*DIGITAL EQUIPMENT CORP.
;*MAYNARD,

MASS,

01754

. *PROGRAM BY MIKE LEAVITY
X

IvTHIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC
; *PACKAGE
X

J
N

YTy
Wy Sy

ON ERROR

LOOP ON
INHIBIT
UNUSED
INHIBIT
BELL ON
LOOP ON

TEST
ERROR TYPEOUTS

JTERATIONS
ERROR
ERROR

LOOP ON TEST IN SWR<7:0>

TN128

WH N0

TN6S

TN32

TN16
TN8
TN4

O =2

T
TR
T

.SBTTL

001100

HALT

N
I

LR
R TRT

482
483

481

BE 2N 25 BE BN BN

OPERATIONAL SWITCH SETTINGS

BN NE 2N BE B

.SBTTL

OO — NN

480

(MAINDEC-11-DZQAC-C4), 1980,

TN
TN1

BASIC DEFINITIONS

C*INITIAL ??BSESS OF THE STACK POINTER #»+ 1100 wre

000004

104000

STACK
ERROR
SCOPE

000011

EMT
107

c:BASIC DEFINITION OF
;.BASIC DEFINITION OF

:*MISCELLANEOUS DEFINITIONS
;. CODE
.. CODE
::CODE
:.CODE

“Ww

nwn

776
4

2
0
0

FOR
FOR
FOR
FOR

HORIZONTAL TAB
LINE FEED
CARRIAGE RETURN
CARRIAGE RETURN-LINE FEED

; :PROCESSOR STATUS WORD
¢sSTACK LIMIT REGISTER

: ;PROGRAM INTERRUPT REQUEST REGISTER
: ;HARDWARE SWITCH REGISTER
; ; HARDWARE DISPLAY REGISTER

RPOSE REGISTER DEFINITIONS

000002
000003

ERROR CALL
SCOPE CALL

: ;GENERAL
: ;GENERAL
: sGENERAL
: ;GENERAL

CIRMMAD RM0S/3/2 FCTINL TST 1

BASIC DEFINITIONS

000004
000005
000006
000007
000006
000007

000000
000040
000100
000140
000200
000240
000300
000340
100000

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

002000
001000
000400
000200
000100
000040

MACRO v03.01

11-APR-80

13:04:53 PAGE &-1

Sea 0028
R4

R6&

SP
PC

;s GENERAL REGISTER

= X7

s ;GENERAL REGISTER

= X6

1)
EN ¥4

-PRIORITV

PRI

LEVEL

= 40

PR?2

= 100

PR&
PRS
PR6

= 200
s 240
= 300

PR3

PR7

. ;GENERAL REGISTER

= 15

140

= 340

s GENERAL REGISTER
;. STACK POINTER
; ;PROGRAM COUNTER

DEFlulTIONS

;:PRIORITY LEVEL

;:PRIORITY LEVEL 3
::PRIORITY
,,PRIORITV
;PRIORITY
S:PRIORITY

LEVEL 4
LEVEL S
LEVEL 6
LEVEL 7

s*"'SWITCH REGISTER'' SWITCH DEFINITIONS

SW1s
SWi4
Sw13

SwWi2

SWit
SW10
SW09
Sw08
Sw07
SW06

SW05S

SW04
SW03

Sw0?2

= 100000
= 40000
= 20000

= 10000

=
=
=
=
=
=

4000
2000
1000
400
200
100

= 40

= 20
=10

SWO1
= 2
Sw00
=
SW9=Sw09
SwW8=5Sw08
SW7=Sw07
SW6=5w06
SW5=SW05
SW4=SW04
SW3=Sw03
Sw2=5w0?2
SW1=Sw01
SWw0=Sw00

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

BIT1S
BIT14
BIT13
BIT12
BITN
BITI0
BITO9
BIT08
BITO?
BITO6
BIT0S

=
=
=
=
=
=

4000
2000
1000
400
200
100

= 40

;;PRIORITY LEVEL 2

(2
a¥an

CIRMMAQ RM05/3/2 FCTINL TST

) =l —q —4
)
]
]
)
)

Pt
Qo
Pt Pl P

T
TR
TR
TR
O
T
O
T
T

::"TRAP'' TRAP

;:T1Y KEYBOARD VECTOR
;:1TY PRINTER VECTOR
; ;PKOGRAM INTERRUPT REQUEST

PIRQVEC

.SBTTL

RM REGISTER BIT

:*RMCST

CONTROL STATUS REGISTER

VECTOR

DEFINITIONS

;DEVICE AVAILABLE~READ ONLY

:FUNCTION

T
L

TRAP

;;BREAKPOINT TRAP (BPT)
s INPUT/0UTPUT TRAP (]0T) s«SCQOPE®e
;:POWER FAIL
;sEMULATOR TRAP (EMT) #<ERRORwe

TRAPVE(
TKVEC
TPVEC

;. TRACE

PWRVEC

EMTVEC

U'" TRAP VECTOR ADDRESSES
;:TIME OUT AND GTHER ERRORS
:;R$§Eg¥$0 AND Ti1 FGAL INSTRUCTIONS

BPTVE(
I0TVEC

- —
Q0O

" VTVy
.
=
U

ODDDODODODDO®OD

mwn

Pt Pt B

et
[ o]

RESVEC
TBITVEC
TRTVEC

004000
000040
000020
000010
000004
000002
000001
000077

000000
000002
000004
000006
000010
000012
000014
00001¢
000020
000022
000022
000024
000026

13:04:53 PAGE &=2

OOOOOOOCOOON
O = PN
N
YOO O

O=NIWNS
N
N OVOOOCO

= — =~ —t — — —4 —

O @

Dot Pt Prossh Pl P
Q) D
Bt Gt B

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

11-APR=-80

SEQ 0029

el Bt G

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

MACRO v03.01

<0 0o o G GO 0D O ¢ TD CD O O M

BASIC DEFINITIONS

CIRMMAD RMOS/3/2 FCTINL TST

;FUNCTION
sFUNCTION
;FUNCTION
;FUNCTION
;60 BIT
sFUNCTION

CODE

CODE
CODE
CODE
CODE

CODE MASK

JFUNCTION (ODESO(BITS 01-05 OF RM(S1)
+NOP COMMAND
ILFO2
; ILLEGAL COMMAND
SEEK
; SEEK COMMAND
RECAL
RECALIBRATE COMMAND
DRVCLR
:DRIVE CLEAR COMMAND
RLEASE
:RELEASE COMMAND
OFFSET
;OFFSET COMMAND
NOP

RTC
RIP
PAKA(CK
PACACK

ILF24
ILF26

;RETURN TO CENTERLINE

COMMAND

;READ IN PRESET COMMAND

PAKACK

000024
000026

.PACK ACKNOWLEDGE

; JLLEGAL COMMAND
; ILLEGAL COMMAND

COMMAND

536
537

538
539
540
561
542

563

544
545
566
567
548
549
550
551
552

953
554
555
956
557
958
959
560
561
562
563

wD
WH
1LF64
ILF66
RD
RH

ILF74
ILF76

;TRACK
TA16

=
=
=
=

000060
000062
000064
000066

= 000070
= 000072

= 000074
= 000076

ADDRESS DEFINITIONS
= BIT12

TA8
TAL
TA2
TAl

000020
000010
000004
000002
000001

SAl6
SA8
SA4
SA2
SA1

177400
00c377

;TRACK & SECTOR MASKS
IADMSK
= 177400
SADMSK
= 000377

=
=
=
=

BIT1
BIT10
BIT09
BIT08

JSECTOR ADDRESS DEFINITIONS
=
=
=
=
=

BITO04
BIT03
BIT0?
BIT01
BIT00

;*RMDS

DRIVE

ATA
ERR
PIP
MOL
WRL

=
=
=
=
=

LBT

DPR
DRY
vV
oM

CHECK DATA (OMMAND
CHECK HEADER AND DATA

LLEGAL COMMAND
LLEGAL COMMAND

RITE DATA COMMAND
RITE HEADER AND DATA (OMMAND
LLEGAL COMMAND
ILLEGAL COMMAND

;READ DATA COMMAND
;READ HEADER AND DATA

; ILLEGAL
; ILLEGAL

COMMAND
COMMAND

COMMAND

DISK ADDRESS REGISTER

010000
004000
002000
001006
000400

PGM

RITE
RITE

= 000054
= 000056

= 000050
= 000052

YR IR T

ILFS4
ILF56

wCD
WCH

000032
000034
0092036
000040
000042
000044
000046

=
=
=
=
=
=
=

ILF32
ILF34
ILF36
ILF&0
ILF&2
ILF&4
ILF&6

; SEARCH COMMAND
; ILLEGAL C(OMMAND
: ILLEGAL COMMAND
: JLLEGAL COMMAND
; ILLEGAL COMMAND
: ILLEGAL COMMAND
LLEGAL COMMAND
LLEGAL COMMAND
LLEGAL COMMAND

= 000030
= 000030

SEQ 0030

SEARCH
iLF30

: *RMDA

100000
060000
020000
010000
004000
002000
001000
000400
000200
000100
000001

516
517
518
519
520
521
522
SSS
524
525
526
527
528
529
530
S
532
533
534
535

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

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

512
515

DEFINITIONS

MACRO v03.01

R® REGISTER BIT

CIRMMAO RMOS/3/2 FCTNL TST

s TRACK ADDRESS &

s TRACK ADDRES
. TRACK ADDRES

;SECTOR
;SECTOR
sSECTOR
sSECTOR
;SECTOR
s TRACK

ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS

16.
8.
4
2
1

ADDRESS MASK

;SECTOR ADDRESS MASK

STATUS REGISTER

BIT15
BIT14
BIT13

BIT12
8ITMN

= BIT10

= BIT09

=
=
=
=

s TRACK ADDRES S 1 6.
: TRACK ADDRES 58.

BIT08
BI107
BIT06
81100

;*RMERY ERRO% REGISTER M1

JATTENTION ACTIVE

;COMPOSITE ERROR
;POSITIONING IN PROGRESS
SMEDIUM ON LINE
SWRITE LOCK
sLAST BLOCK TRANSFERRED

s PROGRAMMABLE

:DRIVE PRESENT
;DRIVE READY
:VOLUME VALID
;OFFSET MODE

ACTIVE

CZRMMAO RMO5/3/2 FCINL TST

RM REGISTER BIT

DEFINITIONS

100000

040000
020000

Q0 ~N O

NN —

AW ALV LU LV LV, LV LV, 1V, ]
NNNNNNNN

010000

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

115760

MACRO v03.01

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

SEQ 0031
DCK
UNS
OP]

DTE
WLE
1AE
AOE

=
=
=
=
=
=
=

= BIT08
= BIT07

+HEADER CRC ERROR
+HEADER COMPARE ERROR

WCF
FER
PAR
RMR
ILR

=
=
=
=
=

;WRITE CLOCK FAILURE
; FORMAT ERROR
;PARITY ERROR
REGISTER MODIFICATION REFUSED
sJLLEGAL REGISTER

NDTMSK

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

ECH

ILF

= BIT06

el et

OO0
O WV &
i

= BIT00

;ILLEGAL FUNCTION

:''NDTMSK'' 1S USED TO MASK ERROR REGISTER 1 DURING NON - DATA
1.E.,

HOUSEKEEPING AND POSITIONING COMMANDS

:*RMAS

ATTENTION SUMMARY REGISTER

ATNMSK

= 377

«*RMLA

LOOK AHEAD REGISTER

+MASK

FOR ATTENTION BITS

SC4

= BIT10

sC
SCo

= BIT107
= BIT06

;SECTOR COUNT = 2
;SECTOR COUNT =1

003700

SCTMSK

= 003700

;SECTOR COUNT MASK

. *RMMR1

MAINTENANCE

SC3
SC2

SWRITE

DBCK

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

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

100000

0CC

et el e e

oocooococococoo

;ECC ''HARD'' ERROR

BIT105
BIT04
BIT03
BIT0Z
BITO

002000
001000
000400
000200
000100

100000

611

;DATA CHECK ERROR
;DRIVE UNSAFE
;OPERATION INCOMPLETE
;DRIVE TIMING ERROR
;WRITE LOCK ERROR
s INVALID ADDRESS ERROR
;ADDRESS OVERFLOW ERROR

HCRC
HCE

; COMMANDS,

000377

BIT1S
BIT14
BIT13
BIT12
BITN
BIT10
BIT109

DMD

;SECTOR COUNT =

= BIT09
= BIT08

ONLY BITS

= BIT15

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

BIT14
8IT13
BIT1?2
BITN
BIT10
BIT09
BiT08
BIT07
BIT06
BITOS
BIT03
BIT102
81101

= BI1100

JREAD ONLY BITS

= BIT1S

;SECTOR COUNT = 8
;SECTOR COUNT = 4

.DEBUG CLOCK

;DEBUG CLOCK ENABLE
;DIAGNOSTIC END OF BLOCK
;DIAGNOSTIC TIMEOUT
;MAINTENANCE CLOCK
;READ DATA
;UNIT READY
:ON CYLINDER
;SEEK ERROR
;DRIVE FAULT
;SECTOR PULSE
;WRITE PROTECT
s INDEX PULSE
;SECTOR COMPARE

;DIAGNOSTIC MODE
;OCCUPIED

670

001777

JWORD

OFFSET

;NOT SECTOR ADDRESSED - 0

;TAPE

HCI
OFD
:*RMD(

DESIRED

CYLMSK

= 001777

;16 BIT WORD FORMAT
JECC INMIBIT

I1T10

HEADER COMPARE INHIBIT

BITO7

OOOOOOOOOOO——
v
O = NIHNMS VNN
OVO — NN
N

] —f — —

St Pemet Gy et Bumes

] e
] e
]

Dt Pt Gt St S

) o]
]
]

et Bt G
e}

]
]

]

[eodocfochocRocRocduofosRooRooRoodoo
oodooReodosl

1]
T
[ I
T

B8B09
BBO8
8807
BBO6
8805
8804
8803
BB0?2
8801
8800

cC
CH

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

= 0

:SINGLE PORT DRIVE TYPE (RMO?2)
.DUAL PORT DRIVE TYPE (RM02)

1112
BITI

;READ ONLY BITS
RQA
RQB
TAG
18T

DRIVE

:MOVING HEAD = 1
;DRIVE REQUEST REQUIRED

;OFFSET FORWARD
CYLINDER ADDRESS REGISTER

: *RMMR? MAINTENANCE
100000

FMT16

EC]

CLOCK

JENABLE ECC OuT
JWRITE DATA BIT
JLAST SECTOR
JLAST SECTOR AND TRA(K
;DIAGNOSTIC MODE

et Breet Bt St Bt

OOOOOOOOOOO—
——4——
O=MNOWNES
VO N0 O — NN &

— )
—d — — —t 4 —

JHEADER AREA
; CONTINUE

=N SWVN

e
e
—

to o 00 O o o O O O O
—

(e o Xoedooos)

;DATA AREA

020024
024024

004000
002000
000200

;RUN AND GO
;END OF BLOCK
JEXCEPTION
JENABLE SEAR(CM
sLOOKING FOR SYNC(
sENABLE CRC OuT

YPE

. *RMOF

SNGPRT
DULPRT

Po)

LS
LST
DMD

————t

MwD

020024
024024

010000

0 0 0o 0o G

EECC

NSA
TAP
MOH
DRQ

Gt Bt Bt Dt Dt Bt Bt Gt Bt Bt

100000
040000
020000
004000

CONT

s *RMDT

PDA
PHA

669

ECRC

666

PLFS

665

RE
X

ESRC

646

647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663

EBL

7 T

645

643

644

'3:064:53 PAGE 4-5

Sea 0032

T T

640
661
642

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

11- APR-80

621
622
623
626
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639

DEFINITICNS

MACRO v03.01

RM REGISTER BIT

wou

CIRMMAQ RMOS/3/2 FCINL TST

;MASK FOR CYLINDER ADDRESS
REGISTER #2

JPORT A REQUEST
;PORT B REQUEST
;TAG CONTROL
; COMMAND SEQUENCE

TEST

BIT

;CONTROL OR CYLINDER TAG
;CONTROL OR HEAD TAG
;TAG BUS

s TAG BUS

;TAG
. TAG
:TAG
;TAG
;TAG
;TAG

BUS
BUS
BUS
BUS
BUS
BUS

;TAG BUS

DEFINITIONS

MACRO v03.01

SEQ 0033

ILRG6SG
ILRG66

ILRG70
ILRG72
ILRG74
ILRG76

g —d —4
—t
— )

1]
I

O @

T I
T
T

QOO =2 e e el b
WNNO —=MrNINSN

INDEX

VALUES

PR T

SATTENTION SUMMARY

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

;MAINTENANCE

sMAINTENANCE

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

S oo

;ERROR REGISTER #?
;ECC POSITION REGISTER
JECC PATTERN REGISTER
;TLLEGAL REGISTER 5
s TLLEGAL REGISTER 5
s ILLEGAL REGISTER 5

s ILLEGAL
;TLLEGAL
;ILLEGAL
s TLLEGAL

s JLLEGAL
s ILLEGAL
s TLLEGAL
s ILLEGAL
s ILLEGAL
;MASK

RH CONTROLLER REGISTER BIT

; *RMCST

CONTROL

] —
—

MCPE
PSEL

—

.SBTTL

TRe

;LOOK AHEAD REGISTER

[y
Wy —

sl
il
il
)
—

OO ~NO W&y

NNNNNNN

ILRG50
ILRGS2
ILRGS4
ILRGS6
ILRG6O
ILRG6?

RM REGISTER

IDXMSK

RMDA
RMDS
RMER1
RMAS
RMLA
RMMR1
RMDT
RMSN
RMOF
RMD
(
RMHR

sMANUFACT URING D ET ECTED SECTOR ERROR
JUSER DET ECTED S EC TOR ERROR

BiT14

000077

RMCST

;DATA PARITY ERROR

BIT1S

USE

RMMR?
RMER?
RMEC!
RME (2

100000

MSE

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

040000
020000
002000

T
LI

PROGRAM MNEMONICS

LSBTTL

00 0D OO 0O 0D

.SBTTL

100000
040000

;BAD SECTOR ERROR
;SEEK INCOMPLETE
;OPERATOR PLUG ERROR
s INVALID COMMAND ERROR
.LOSS OF SYSTEM (LOCK
.LOSS OF BIT CLOCK
:DEVICE CHECK

DPE

004000
002000
000200
000010

EGISTER 2

010000

BSE
SK]
OPE
Iv(
LSC
LBC
Dv(

[eeloedocdo)

100000

ot Bt Bt Dt Gt Gt Bt S

po]

; *RMER? ERRO
040000
020000

11-APR~80 13:04:53 PAGE 4=6
D

RM REGISTER BIT

1
1
1
1

Owed~
WD

CZRMMAOQ RMOS5/3/2 FCTINL TST

FOR REGISTER

56
60
62

64
66
70
72
74
76

INDEX NULMBER

DEFINITIONS

STATUS REGISTER M

;SPECIAL CONDITION-READ ONLY
. TRANSFER ERROR
+MASSBUS CONTRCL BUS PARITY
;PORT B SELECT

ERRQOR=READ ONL
Y

CZRMMAO RMOS5/3/2 FCTINL TST
CONTROLLER

001000
000400
000200
000100

MACRO v03.01

DEFINITIONS

SEQ 0034
A7

A6
RDY

=
=
=
=

BIT09
817108
Bliv/
BIT06

OO OQOOOOOOO
— =t —t s s —a
O = MNIHNS N0 NI OO =PI NS N

—4 —

—q —4 —

;UNIBUS PARITY ERROR
sNONEXISTANT DRIVE-READ ONLY
;NONEXISTANT MEMORY-READ ONLY

;DATA LATE-READ ONLY

Dt P

STATUS REGISTER #2

B} Dt Bt Pu

;ADDRESS EXTENSION
;ADDRESS EXTENSION
;READY=-READ ONLY
s INTERRUPT ENABLE

—

TR T
TR
TR TR
TR
T
L

T I

PGE
MXF

Pt bt Gt Dt Pt Do) Dt P

742

DLY

w(E
UPE
NED
NEM

o
eNocRoofoodoo
ook oo oo oodoeRooRooooRooRoodoo

:*RM(S?2 RH CONTROL

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

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

;WRITE

CHECK

ERROR=-READ ONLY

:PROGRAM ERROR=-READ

;MISSED TRANSFER

ONLY

sMASSBUS DATA BUS PARITY ERROR-READ ONLY
;OUTPUT READY=READ ONLY
s INPUT READY-READ ONLY

;CONTROLLER CLEAR
;PARITY

TEST

JUNIBUS ADDRESS INCREMENT
SUNIT SELECT
JUNIT SELECT
JUNIT SELECT

[NHIBIT

SUNIT SELECT MASK
000007

UNTMSK

JUNIT

176700
120254
776

RMCS?

RMDB
RMBAE

RMCS3

ABASE

QOO
OCO — et ed e et
O ==PNOINO
O — NI

Gt B
B
et Bl Pt G
Bt

= ————t
—

Pt G
S

i
ol
I
T
F O

RMCS1

RMW(
RMBA

SELECT MASK

STATUS REGISTER #3

sADDRESS PARITY ERROR
;DATA PARITY

ERROR HIGH WORD

;WRITE

ERROR HIGH WORD

;DATA PARITY ERROR LOW WORD
CHECK

;WRITE CHECK ERROR LOW WORD
;DOUBLE WORD TRANSFER
:INTERRUPT ENABLE
s INVERT PARITY CHE(K
: INVERT PARITY (HECK
s INVERT PARITY CHECK
. INVERT PARITY

C(HE(K

RH11/RH70 CONTROLLER REGISTER INDEX VALUES

000000
000002
000004
000010
000022
000050
000052

1PCK3
1PCK2
IPCK1
IPCxO
.SBTTL

763
764

DPELO
WCEH]
WwCELO
DBL

—

UPEH]

ODDODODDODODDODDODD

APE

TI T

100000

040000
020000
010000
004000
002000
000100
000010
000004
000002
000001

;*RM(S3 RH70 CONTROL

00
02
04
0
2

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

;BUS ADDRESS EXTENSION
;CONTROL, STATUS REGISTER #3

AVECT

LSBTTL

TRAP

00
56
CATCHER

;UNIBUS ADDRESS
;UNIBUS VECTOR ADDRESS AND PRIORI[TY

CZRMMAQ RM0S5/3/2 FCTINL TST

TRAP

CATCHER

000000

000174
000176

MACRO v03.01

000200

:'LOCAT10N194C0NTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS

000174
000000
000009

000137

DISPREG: .WORD
SWREG:

005412

000046
000052
779
780
781

001100

.WORD

::SOFTWARE DISPLAY REGISTER

::SOFTWARE

AFSTART

ACT11
SRl

PROGRAM

RN RS

sszzc=.

:SAVE P(

iegng

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

WORD

T =8SVPC

.=1100

::JUMP TO STARTING ADDRESS OF

HOOKS

*HOOKS REQUIRED BY ACT11

.SBTTL

SWITCH REGISTER

STARTING ADDRESS(ES)

JMP
LSBTTL

000204
000046
062326
000052
000000
000204

SEQ 0035

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

.SBTTL

777

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

APT

,.2)SET LOC.S2 TO ZERO
.

"RESTORE PC

PARAMETER BLOCK

:;tfi"'t..t'tl""'""""""'t"'t'.t.'l"""t'ti'!"tttt.tt'

JSET LOCATIONS 24 AND &4 AS REQUIRED FOR APT

B R
N N
R
R R R R R AR R R,

000024

000044

001100
000024
000200
000044
001100
001100

LHX=,
=26
200

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

.=.8X

ssRESET LOCATION COUNTER

.Sh4
SAPTHDR
R

¢ sPOINT
;;POINT

PROGRAM

TO APT INDIRECT ADDRESS PNITR.
TO APT HEADER BLOCK

;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11
sINTERFACE

782

000000
001222
000001
000002
000002
000042
001114

$SAPTHD:
$HIBTS:
$SMBADR:
$TSTM:
$SPASTM:
SUNITM:
TAGADR

SPEC.

.WORD
.WORD
.WORD
.WORD
_WORD
.WORC

AR R

DJAGNOSTIC

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

CIRMMAO RM0S/3/72 FCTINL TST
COMMON TAGS

MACRO v03.01

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

.SBTTL

SEa 0036

COMMON TAGS

"".'t.".."t""'""'""".'."Q'.."".ll""""""""

'THIS TABLE

001114

SCMTAG:

000000
000
000
000000
000000
000000
000000

$TSTNM:
$ERFLG:
$ICNT:
SLPADR:
SLPERR:
$ERTTL:
$ITEMB:
SERMAX:
$ERRP(C:
$GDADR:
$BDADR:
$GDDAT:
$8DDAT:

(=}
(=4
(=)
(=)
(=)
o

s —a

OrNN—SOO
T NOO SN~ OO I NO~NO

A
wed
d
e
i
e
e
e
s
o
e
i
e
d
e
i
b e

ANIARNN
LS 8 8 B NN ANANINNI NI PO — —

D i

;*USED

$AUTOB:
$INTAG:

CONTAINS VARIOUS COMMON STORAGE

IN THE PROGRAM,

.=TAGADR
.WORD
BYTE
.BYTE
_WORD

0
O
0
O

.WORD
.BYTE
.BYTE
.WORD
.WORD
.WORD
_WORD
.WORD
.WORD
.WORD
.BYTE
.Bégg

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

.WORD
.WORD

SWR:
.WORD
DISPLAY: ,WORD

001212

207
077

377

001220

012

000

377

$TKS:
177560
$7KB:
177562
$TPS:
177564
$1PB:
177566
$NULL:
.BYTE
$FILLS: .BYTE
$FILLC: .BYTE
$STPFLG: .BYTE
$TMPO:
WORD
$TMP1:
WORD
$TMP?:
WORD
$TMP3:
WORD
$TMPS4:
_WORD
$TIMES: O
$ESCAPE:0
$SBELL:
SQUES:
$SCRLF:
$LF:

.ASCIZ
LASCII
.ASCI]
LASCIZ

J:START OF

LOCATIONS

COMMON TAGS

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

O
0

;s AUTOMATIC MODE
;. INTERRUPT MODE

DSWR
DDISP

INDICATOR
INDICATOR

. ADDRESS OF
;;ADDRESS OF

SWITCH REGISTER
DISPLAY REGISTER
;:TTY KBD STATUS
J:TTY KBD BUFFER
J:TTY PRINTER STATUS REG. ADDRESS
:TTY PRINTER BUFFER REG. ADDRESS
0
;s CONTAINS NULL CHARACTER FOR FILLS
2
2o CONTAINS # OF FILLER CHARACTERS REQUIRED
12
;o INSERT FILL CHARS. AFTER A ‘'LINE FEED''
0
;o"'"TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)
O
JJUSER DEFINED
O
:sUSER DEFINED
O
;USER DEFINED
O
;sUSER DEFINED
O
JJUSER DEFINED
;sMAX. NUMBER OF ]JTERATIONS
:;ESCAPE ON ERROR ADDRESS
<207><377><377> ;:.CODE FOR BELL
/?/
:;QUESTION MARK
«<15>
;s CARRIAGE RETURN
Ao
J:LINE FEED

. l'ttt"t'.tt'i"i""""'t"'.'.l'llttlt..ttt"tt'ttt'ttttt!lt

"SBTTL

APT MA]LBOX-ETABLE

. t.tt.'tttl.tl"'""""'l"'l.'tt'lt'tt"tl.ttt!ttttttl'ttt'.!

001222
001222
001224
001226

EVEN

000000
000000
000000

SMAIL :

$MSGTY:
$FATAL:
STESTN:

,WORD
.WORD
.WORD

AMSGTY
AFATAL
ATESTIN

:APT MAILBOX

;:MESSAGE TYPE CODE
;:FATAL ERROR NUMBER
;;TEST NUMBER

000000
000000
000000
000000
000000
000
000
000000
000000
000000

MACRO v03.01

11-APR-80 13:04:53 PAGE

$PASS:
.WORD
$DEV(T: .WORD
SUNIT:
.WORD
$MSGAD: .WORD
$MSGLG: .WORD
$ETABLE:
$ENV:
SENVM:
$SWREG: .WORD
SUSWR:
-WORD
$CPUOP: .WORD

APASS
ADEVCT
AUNIT
AMSGAD
AMSGLG
AENV
AENVM
ASWREG
AUSWR
ACPUOP

5-1

::PASS

X%}

——

BN SN N
Sx 3

JBYTE

.BYTE

AMAMS
AMTYP1

+ %,

LR IR B

—

[a%1aV)

o0
oo

000
000

001254

000000

$MADR1:

COUNT

:;APT ENV]RONMENT

001263

000
000
000000
000

001264
001266
001267
001270
001272
001274

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

$SMAMS?2:
SMTYP?2:
$MADR?:
$SMAMS3:

SMTYP3:

$SMADR3:
SMAMSS:
SMTYPL:
$SMADRSG:
$VECT1:
$VECTZ:
$BASE:
$SDEVM:
SChW:
$CDWe:

000000

$0DWO0:
$ODW1:
$DDWe:
$ODW3:
$DDW4:
$DDWS:
$DDW6:
$00W7:
SETEND:
LMEX]T

TABLE

; sENVIRONMENT BYTE
;ENVIRONMENT MODE BITS
J:APT

SWITCH REGISTER

JsUSER SWITCHES
.. CPU TYPE,OPTIONS
BITS 15-11=CPU TYPE
BIT
BIT
BIT

11/04=01,11/05=02,11/20=03,11/40=04,11/45=05
11/70=06,PDQ=07,0=10

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

;;HIGH ADDRESS,M.S.

BYTE

MEM.TYPE

(HIGH BYTE)

:;MEM. TYPE,BLKA
BYTE

=--

900 NSEC CORE=001
300 NSEC BIPOLAR=002
500 NSEC M0S=003

.WORD

AMADR1

;HIGH ADDRESS,BLKA

.BYTE

AMAMS?
AMTYP?
AMADR?
AMAMS3
AMTYP3
AMADR3

;sHIGH ADDRESS,M.S.

[

001256
001257
001260
001262

SEQ 0037

;:DEVICE COUNT
:2:1/0 UNIT NUMBER
s sMESSAGE ADDRESS
s sMESSAGE LENGTH

001230
001232
001234
001236
001240
001242
001242
001243
001244
001246
001250

TST

. ““0- e " ®s v®

(IRMMAGC RMOS5/3/2 FCTINL
APT MAILBOX-ETABLE

.WORD
.BYTE

.BYTE

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

AMAMSS
AMTYP4

AMADRG
AVECT
AVECT?

ABASE
ADEVM

ACDW1
ACDW?
ADDWO
ADDW1
ADDW?
ADDW3
ADDWG

ADDWS

ADDW6

ADDW7

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

J:MEM.TYPE ,BLKA¥Z2
ssMEM_LAST ADDRESS.BLKA?
s sHIGH ADDRESS,M.S.BYTE
s:MEM_TYPE,BLKN3

s sMEM_LAST ADDRESS,BLKA3
ssHIGH ADDRESS,M.S.BYTE
J:MEM.TYPE ,BLKANS

s sMEM_LAST ADDRESS,BLK#4
;s INTERRUPT VECTOR#1,BUS PRIORITYNM

;o INTERRUPT VECTOR#2BUS PRIORITYA®?
;;BASE ADDRESS OF EQUIPMENT UNDER TES?T
;sDEVICE MAP
; s CONTROLLER DESCRIPTION WORD#1
;s CONTROLLER DESCRIPTION WORDA?
;sDEVICE DESCRIPTOR WORDA(
;:DEVICE DESCRIPTOR WORDM1
;;DEVICE DESCRIPTOR WORDA?2

:sDEVICE DESCRIPTOR WORDA3
+DEVICE DESCRIPTOR WORDA4
;:DEVICE DESCRIPTOR WORDAS

;:DEVICE DESCRIPTOR WORD#6
J:DEVICE DESCRIPTOR WORDA7

''TYPE'' ABOVE

CIRMMAQ RMOS5/3/2 FCTNL TST
USER DEFINED TAGS
0

MACRO v03.01

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

.SBTTL

USER DEFINED TAGS

000000
000000

CTLFG:

.WORD

000

LSTRK:

.BYTE
.BYTE

0
0

000

XXDP:

.WORD

SEQ 0038

JCONTAINS CONTROL=C FLAG

;THE LOW BYTE CONTAINS THE DRIVE NUMBER FROM WHICH
;s THE PROGRAM WAS LOADED. THE HIGHM BYTE (ONTAINS THE
;"XXDP* DEVICE CODE FOR THE RMOS/3/2.

;L0 BYTE = 0
;H] BYTE, CONTAINS LAST

TRACK ADDRESS OF

JUNDER TEST. RM02/3 = 4., RMOS - 18.

:THE REGISTER INPUT BUFFER IS USED FOR
;STORING DRIVE STATUS
001334

001406

000000
000000
000000
000000
000000
000000
006000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

JREGISTER INPUT BUFFER

RMCS1]1:

.WORD

RMCS2I:

.WORD

RMWCI:
RMBAl:
RMDAI:

RMDSI:

RMER11:

RMAS]:
RMLAL:
RMDB]:
RMMR1I:
RMDT]:
RMSN]:
RMOF]:
RMDCI:
RMHRI:

.WORD
.WORD
.WORD

.WORD

_.WORD
.WORD
.WORD
.WORD
.WORD
,WORD
.WORD
.WORD
,WORD

RMMR2]:
RMER2]:
RMEC1]:
RMEC2]:

.WORD
.WORD
.WORD
.WORD

RMCS3I:

.WORD

RMBAE]:

.WORD

[elelelololololalelelatelolelolalalolololeole]

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

GE TBUF:
;CONTROL,

STATUS REGISTER M

sWORD COUNT REGISTER
;sBUS ADDRESS REGISTER
;DISK ADDRESS REGISTER

;CONTROL, STATUS REGISTER #2
;ORIVE STATUS REGISTER
;ERROR REGISTER #1

;ATTENTION SUMMARY

;LOOK AHEAD REGISTER
;DATA BUFFER
:MAINTENANCE

;DRIVE TYPE REGISTER
;SERIAL NUMBER REGISTER
;OFFSET REGISTER

;DESIRED CYLINDER REGISTER
+HOLDING REGISTER

;MAINTENANCE REGISTER #2

;ERROR REGISTER #2

;ECC POSITION REGISTER
JECC PATTERN REGISTER
:BUS ADDRESS

;CONTROL,

EXTENSION REGISTER

STATUS REGISTER #3

s THE REGISTER QUTPUT BUFFER 1S USED FOR
+ASSEMBLING DATA GOING TO REGISTER
001410

001410
001412
001414
001416
001420
001422
0014624
001426

001430
001432
001434
001436

:
PUTBUF

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

sREGISTER OUTPUT

RMCS10:
RMWCO:
RMGAO:
RMDAOQ:
RMCS20:
RMDSO:
RMER10:
RMASO:
RMLAO:
RMDBO:
RMMR10:
RMDTO:

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

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

BUFFER

;CONTROL, STATUS REGISTER M1
;WORD COUNT REGISTER
:BUS ADDRESS REGISTER
;D1SK ADDRESS REGISTER
;CONTROL, STATUS REGISTER #?
;DRIVE STATUS REGISTER
:ERROR REGISTER M
sATTENTION SUMMARY REGISTER
;LOOK AHEAD REGISTER
;DATA BUFFER
;MAINTENANCE REGISTER M
;ORIVE TYPE REGISTER

UNIT

CIRMMAQ RM05/3/2 FCINL TST
USER DEFINED TAGS

001440
001442
001444
001446
001450
001452
001454
001456
001460
001462

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

MACRO v03.01

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

RMSNO:
RMOFO:
RMDCO:
RMHRO:

.WORD
.WORD
.WORD
.WORD

RMBAEO:
RMCS30:

.WORD
.WORD

RMMR20:
RMER20:
RMEC10:
RMEC20:

,WORD
.WORD
.WORD
.WORD

0
0
0
0

O
0
0
O

0
O

SEQ 0039

;SERIAL NUMBER REGISTER
JOFFSET REGISTER
;DESIRED CYLINDER REGISTER
;HOLDING REGISTER

sMAINTENANCE REGISTER #2
;ERROR REGISTER #2
;ECC 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.

—

000000

001506
[V 1V, ]

000000

O
oo

001464

00151¢

000000
000000

TSTQUE:

(LKADR:
CLKVCT:

.WORD

.BLKW
.WORD

8.
0

,WORD
.WORD

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
JVECTOR ADDRLSS CF

KW11
KUY

CLOCK
rLoCk

sTHE GET INDEX TABLE CONTAINS A BYTE LIST OF REGISTERS JHICH
;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
;ARE WRITTEN BY THE PUT SUBROUTINE.
THE LIST IS TERMINATED BY

001543

:A NEGATIVE

PUTINX:

BYTE.

.BLKB

;PUT TAGS HERE

23.

sPUT

INDEX TABLE

CIRMMAOQ RM05/3/2 FCINL TST

ERROR POINTER TABLE

MACRO v03.01

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

SEQ 0040
.SBTTL

ERROR POINTER TABLE

;*THIS TABLE

CONTAINS THE

INFORMATION FOR EACH ERROR THAT

CAN OCCUR.

EACH

ITEM

001572

CONTAINS & POINTERS EXPLAINED AS FOLLOWS:

T0
TO
70
TO

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

THE
THE
THE
THE

] gy
—

O 000

DEVICE WENT

UNAVAILABLE

DEVICE WENT

NONEXISTENT

—

SELECTED

card)

-t —t —

—

mmmm

mmmm
TOoOI
=X

001602
001604
001606
001610

WRONG UNIT

— it
N\ )

;ERROR

"ToIxT 3R

;ERROR
067604
073676
074022
0764112

~NO W

001572
001574
001576
001600

TABLE

$ERRTB:

P RV1,8
)

EM
DH
vi
DFf

—

J*NOTEZ2:

ESZTEZ

:*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN
;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
;¢NOTE:
IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).

;ERROR

—f —d

mcd S

— o

mmmm

oI
X

— o
b acd \Y
—

[V,]

DRIVE
—r -t

067632
073676
074022
074112

CONTROLLER NOT

—

001632
001634
001636
001640

;ERROR

067624
073676
074022
074112

(o
VP
)

001622
001624
001626
001630

JERROR

mmmmm

b
—
—

WY —

EMT3
EHTI
EDT!
EFT1

NOT

READY

READY AND GO NOT

RESET

001652
001654
001656
001660

23
24
25

26
27
28

29
30
3

001662
001664
0C1666
001670

001672
001674
001676
001700

001702
001704
001706
001710

001712
001714
001716
001720

001722
001724
001726
001730

7-1

SEQ 0041
UNEXPECTED VALUE FOR ''ATA'" STATUS
) —4

067640
073676
0746022
076112

6
— et it O

:ERROR
001642
001644
001646
001650

11-APR-80 13:04:53 PAGE

mmrmrm

18
19

MACRO v03.01

—f —

ERROR POINTER TABLE

O IR

CIRMMAQ RMOS/3/2 FCTINL TST

;ERROR

BUS TIMEOUT

sERROR

DRIVE NOT

:ERROR

GO NOT

JERROR

INCORRECTY

sERROR

PARITY

;ERROR

TRANSFER

sERROR

INCORRECT WORD COUNT

TRYING TO READ OR WRITE REGISTER

067646
000000
000000
000000
READY BUT

IS RESET

RESEY BUT DRIVE

IS READY

067656
073676
076022
074112

067660
073676
074022
076112
FUNCTION (ODE

067664
073676
074022
074112

ERROR

READING REMOTE

067672
073676
074022
076112
ERROR

INCORRECY

067706
073676
074022
0746112

REGISTERS

CIRMMAQ RMOS5/3/2 FCTNL TST

ERROR POINTER TABLE

MACRO v03.01

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

4
7-2

SEQ 0042

001732
001734
001736
001740

001742
001744
001746
001750

:ERROR

INCORRECT BUS ADDRESS

;ERROR

INCORRECT LBT

;ERROR

INCORRECT

AOE

. ERROR

INCORRECT

DISK

:ERROR

INCORRECT

CYLINDER ADDRESS

;ERROR

INCORRECT WLE

STATUS

;ERROR

INCORRECT

STATUS

067720
073676
074022

076112

002000

002002
002004
002006
002010

002012
002014

002016
002020

076022
0746112

067740
073676
074022
0764112

ADDRESS

D NN

001772
001774
001776

067730
073676

—

001762
001764
001766
001770

STATUS

LN NTe N}

67
48
49

001752
001754
001756
001760

OO0O0O
NN~NO
N~
— OO0~

067760
073676
074022
074112

067770
073676
074022
074112
UPE

CIRMMAQ RMO5/3/2 FCTNL TST

ERROR POINTER TABLE

002022
002024
002026
002030

002032
002034

002036
002040

002042
002044
002046
002050

71
72
73

002052
002054
002056
002060

002062
002064
002066
002070

002072
002074
002076
002100

7-3

SEQ 0043

;ERROR

INCORRECT WCF

STATUS

;ERROR

INCORRECT WCE

STATUS

. ERROR

INCORRLLT MDPE

sERROR

INCORRECT

DCK

:ERROR

INCORRECT

ECH STATUS

:ERROR

DLT

SHOULD NOT BE

SET

;ERROR

MXf

SHOULD NOT

SET

073676
074022
074112

070020
073676
074022
076112

68
70

11-APR-80 13:04:53 PAGE

070010

65
67

MACRO v03.01

070000
073676
074022
074112

62
66

STATUS

070030
073676
074022
074112
STATUS

070040
073676
074022
074112

070050
073676
074022
074112

002102
002104
002106
002110

002112

070070

MACRO v03.0%

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

&
7-4

“OoOXx

———

SEQ 0044
mmm

ERROR POINTER TABLE

—t
c—
b

CIRMMAQ RMOS5/3/2 FCINL TST

83
85

002122
002124
002126
002130

;ERROR

INCORRECT HCRC STATUS

:ERROR

INCORRECT

HCE

;ERROR

INCORRECT

FER STATUS

;ERROR

DPE

;ERROR

LOST ""MOL'' DURING PACK ACKNOWLEDGE

sERROR

UNSAFE

SET

H B NO
—_ OO
—
—N
N —
OO

NNNN

=Jolele]

002132
002134
002136
002140

DTE SHOULD NOT BE

070100
073676
074022
074112

86
88

JERROR

89
N

92
93
94

002142
002144
002146
002150

070120
073676
074022
076112

002152
002154
002156
002160

STATUS

SHOULD NOT

SET

(NOT

A DATA (OMMAND)

002162
002164
002166
002170

002172
002174
002176
002200

O00O
NN
—

100

002202
002204

070156
073676

ERROR DURING PACK ACKNOWLEDGE

CIRMMAQ RM05/3/2 FCINL TST
ERROR POINTER TABLE

002206
002210

MACRO v03.01

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

074022
076112

106
‘82

DT
EFTI
;ERROR

002212
002214
002216
002220

070170
073676
074022
074112

107
}83

070200
073676
074022
074112

110
}1;

070210
073676
074022
076112

113

}}g

070220
073676
074022
074112

}:g
070230
073676
074022
074112

110

}S?

070236
073676
074022
074112

122

}SS

002272
002274
002276

07 0246
073676
07

"ILF'" ERROR DURING PACK ACKNOWLEDGE

COMPOSITE ERROR STATUS IS

INCORRECT

PARITY ERROR WRITING REMOTE

REGISTERS

EMTS0
EHTI
EDTI
EFTI
JERROR

“'1.R"" ERROR DURING PACK A(CKNOWLEDGE

EMT47
EHTI
EDTI
EFTI
.ERROR

002262
002264
002266
002270

EMT4
EHTI
EDT1
EFTI

JERROR
002252
002256
002256
002260

"'RMR’" ERROR DURING PACK ACKNOWLEDGE

EMT4LS
EHT]
EDTI
EFT
JERROR

002242
002244
002246
002250

44
EMT4S
EHTI
tDT
EFT

;ERROR

002232
002234
002236
002240

"'OP1'" ERROR DURING PACK ACKNOWLEDGE

EMT43
EHTI
EDT
EFT
;ERROR

002222
002224
002226
002230

EMT51
EHTI
EDT

INCORRECT

IAE

STATUS DURING SEEK COMMAND

CZRMMAO RMCS/3/2 FCINL TST

ERROR POINTER TABLE

s
—

EFT
;ERROR

OP]

JERROR

OP1 ERROR DURING SEEK - MEDIUM
ON CYLINDER LATCH DIDN'T RESET

;ERROR

SEEX

;ERROR

DEVICE

CHECX

DURING SEEK

;ERROR

PIP

STILL

SET

;ERROR

ATA

DID

NOT

JERROR

IVC ERROR DURING SEEK
VOLUME VALID

ERROR DURING SEEK

- MEDIUM

]S NOT

ON LINE

— oo
N
—a PN ~NO
OO

— OO

~NOWn

—

002332
002334
002336
002340

SEQ 0046

[S ON LINE,

INCOMPLETE

ERROR DURING SEEK

C(OMMAND

070314
073676
074022
074112

002322
002324
002326
002330

7-6

070276
073676
074022
074112

NN
N
PV 1,V

002312
002314
002316
002320

11-APR-B0 13:04:53 PAGE

SN0

[oleolele]

NN~

~NO

—
— e
——

) i

NN PO

002302
C0230¢
002306
002310

MACRO v03.01

074112

[ (N1, %1, %]

002300

COMMAND

070324
073676
074022
076112

138
140

141
142
143

SEEK

SK]

DURING

SEEK

COMMAND

002342
002344
002346
002350
SET

002352
002354
002356
002360

144

145

146

AFTER

0u23e62
002364

070364
073676

EMT60
EHTI

COMMAND - LOST

RESET

ASSUME

CIRMMAOQ RM0OS5/3/2 FCINL TST

ERROR POINTER TABLE

002366
002370

MACRO v03.01

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

074022
0746112

148

149
}2?
070402
073676
074022
076112

152

153

;

002402
0024064
002406
002410

070422
073676
074022
076112

156
}2;

000000
000000
000000
000000

159

}g?

070440
073676
074022
074112

162

}gz
070460
073676
074022
074112

165
}6?

070500
073676
074022
074112

168
}gg

070512

IS ZERO, BUT OP]

WAS NOT

REPORTED DURING SEEK (OMMAND

UNUSED

DRIVE DID NOT DETECT *'IVC'' ERROR DURING SEEK

DRIVE EXECUTED A SEEK WITH ERROR SET

UNEXPECTED ERROR SET

IN RMER!

UNEXPECTED ERROR

[N RMER?

EMT66
EHTI
EDT1
EFTI
:ERROR

002452

MOL

EMT6S
EHTI
EDT1
EFTI
:ERROR

002442
002444
002446
002450

EMT64
EHTI
EDT
EFTY

:ERROR
002432
002434
0026436
002440

ERRONEOUS Iv( ERROR DURING SEEK COMMAND VOLUME VALID IS STIL SET

0
0
0
0

;ERROR
002422
002424
002426
002430

EMT62
EHTY
EDTI
EFTI

:ERROR
002412
002414
002416
002420

SEQ 0047

EMT61
EHTI
EDTI
eFT1
:ERROR

}gg

&
7-7

EDTI
EFTI

:ERROR
;
002372
0023764
002376
002400

EMTG7

SET

CIRMMAQ RM0S5/3/2 FCTINL TST

ERROR POINTER TABLE

002454
002456
002460

MACRO v03.01

073676
(74022
074112

17
};%

0705264
073676
074022
074112

174

};2
070534
073676
074022
074112

177
};g

070544
073676
074022
074112

180
181
}g%

:
070562
073676
074022
074112

184

}gg
070600
073676
074022
074112

187
}gg

070610
073676
074022
074112

190

}3}

070630

“'OP1'' ERROR DURING RECALIBRATE DUE

"'OP1'" ERROR DURING RECALIBRATE

CYLINDER DIDN1

DROP

TO 'MOL' = 0

BECAUSE

“'IVC"" ERROR DURING RECALIBRATE - ''vv'' - 0

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

EMT75
EHTI
EDT
EFT

:ERROR
002542

“ILF'' ERROR DURING RECALIBRATE

EMT74
EHT
EDTI
EFT
;ERROR

002532
002534
002536
002540

EMT73
EHTI
EDT
EFTI

;ERROR
002522
002524
002526
002530

ERRONEOUS ''IAE'' ERROR DURING RECALIBRATE

EMT7?
EMTI
EDTI
EFT1
;ERROR

002512
002514
002516
002520

EMTZ
EHTI
EDT1
EFTI
;ERROR

002502
002504
002506
002510

SEQ 0048

EMT70
EHTI
EDTI
EF T
:ERROR

0026472
002474
002476
002500

EHT
EDT
EFT1

;ERROR
002462
002464
002466
002470

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

76
EMT76

“'SK1°'' ERROR DURING RECALIBRATE

11-APR-80 13:04:53 PAGE 7-9
SEQ 0049

073676
074022
074112

memrn

002544
002546
002550

MACRO v03.01

-t
—

ERROR POINTER TABLE

(ZRMMAQ RMO5/3/2 FCINL TST

1
1
1

193

;ERROR
070652

—.—.—-‘N

100

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

—

——

EMT100
EHTI

073676
074022
0746112

002562
002564
002566
002570

el
g

074022
074112

“oIxTR

mmmm

070640
073676

002552
002554
002556
002560

oo ~NO

—

"DvC'" OCCURRED DURING RECALIBRATE

;ERROR

00O

195

199
sERROR

070670
073676
074022
0764112

202

205
206
207

070706
073676
074022
076112

102

"ATA" DID NOT SET DURING RECALIBRATE

EMT102
EHTI

;ERROR

——

002602
002604
002606
002610

"'OM"* DID NOT RESET DURING RECALIBRATE

002612
002614
002616
002620
[ 4

;ERROR

002622
002624
002626
002630

sERROR

002632
002634

“PIP'" IS STIL SET AFTER RECALIBRATE

Wi
-

—r

[LV1, V], V]

208
209
210

<ERROR

204

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

EMTI01
EHT1
EDTI
EFTI

——

002572
002574
002576
002600

101

200
201

070746
073676

UNEXPECTED "'ILR'' ERROR DURING RECALIBRATE

CIRMMAQ RMOS/2/2 FCTNL TST

ERROR POINTER TABLE

— el

MACRO v03.01

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

&4
7-10

SEQ 0050

074022
0746112

[a
912V
], V)

002636
002640

;ERROR

UNEXPECTED "'RMR'' ERROR DURING RECALIBRATE

:ERROR

"UNS"' ERROR DURING RECALIBRATE

;ERROR

CANNOT

sERROR

NONEXISTENT

DEVICE

;ERROR

DEVICE NOT

AVAILABLE

V00~

—

[Q 912V 1,8

002642
002644
002646
002650

002652
002654
002656
002660

002662
002664
002666
002670

223
224
225

226
227
228

074022
074112

ACCESS MASSBUS C(ONTROLLER VIA UNIBUS

071006
073720
074040
074130

002702
002704
002706
002710

229
230

:ERROR

113

BUS TIMEOUT-NED STATUS FAILURE

[aV1a 9], ¥]
Lre i
PRV 1,V

071034
000000
000000
000000

S w—
O ~NO
&N
H OO0

NN~

002724
002726

=lele

JERROR

002722

S LOW

070766
073676

002672
002674
002676
002700

- A( POWER

DEVICE

NOT

AN RM0S5/3/2

CIRMMAQ RMOS/3/2 FCTINL TST

ERROR POINTER TABLE

MACRO v03.01

~NOwn

EFT114

:ERROR

;ERROR

071066
073676
074022
074112

244
265
246

002762
002764

002766
002770

NOT

INITIALIZED BY UNIBUS

116

RMBA NOT

INITIALIZED BY UNIBUS

EMT116
EHTI
EDT!
EFTY

sERROR

117

RMCS2 NOT

INITIALIZED BY UNIBUS

:ERROR

RMERY

INITIALIZED BY UNIBUS

;ERROR

RMAS NOT

JERROR

RMMR1

:ERROR

RMDS NOT

071076
073676
074022
0746112

-0

EMT117
EHTI

mrn

002752
002754
002756
002760

RMCST

EHT
Eon
EFT1

2461

263

115

EMTI1S

238

002742
002744
002746
002750

7-11

SEQ 0051

002732
002736
002736
002740
239
260

11-APR-80 13:04:53 PAGE

074134

(a9 12V
1, V]
AMNNN

002730

NOT

071106
073676
074022
076112
INITIALIZED BY

UNIBUS

002772
002774
002776
003000
NOT

INITIALIZED BY UNIBUS

003002
003004
003006
003010

254
003012
00301¢
003016
003020

EMT123

EHTI
EDT
EFT1

INITIALIZED BY

UNIBUS

CIZRMMAOQ RM0S5/3/72 FCINL TET

ERROR POINTER TABLE

256

%gg

003032
003034
003036
003040

071156
073676
074022
074112

262

003042
003044
003046
003050

071166
073676
074022
074112

265

%g?
003052
003056
003056
003060

;ERROR 126

RMCS1 NOT CLEARED BY CONTROLLER CLEAR

:ERROR

RMBA NOT CLEARED BY CONTROLLER CLEAR

EMTi26
EHTI
EDTI
EFTY

003106
003110

071236
073676
074022
074112

130

RMCS2 NCT

(LEARED BY CONTROLLER CLEAR

RMERT

CLEARED BY CONTROLLER CLEAR

EMT130
EHT]
EDT
EFT1
131

NOT

EMT131
EHT
EDTI
EFT1
;ERROR

003102
003104

127
EMT127
EHT
EDT!
EFTI

071224
073676
074022
076112

274
5;2

INITIALIZED BY UNIBUS

EMT125
EHTI
EDT1
EFTI

;ERROR

003072
003074
003076
003100

RMEC2 NOT

RMMR2 NOT INITIALIZED BY UNIBUS

071212
073676
074022
074112

271
%;g

124

;ERROR 125

;ERROR

003062
003064
003066
003070

EMTI24
EHT
EDT
EFTI

071200
073676
074022
074112

268
sgg

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

071146
073676
074022
074112

259

%22

MACRO v03.01

;ERROR

003022
003024
003026
003030

%g?

132

EMT132
EHT
EDT!
EFT1

RMAS NOT CLEARED BY CONTROLLER CLEAR

SEQ 0052

277
278
279

MACRO v03.01

— N NI

133

RMMR1

NOT

7-13

SEQ 0053

CLEARED BY (ONTROLLER CLEAR

rmnmm

EMT133
EHTI

;ERROR

RMDS NOT

;ERROR

RMECZ2 NOT

CLEARED BY

CONTROLLER CLEAR

;ERROR

RMMRZ NOT

CLEARED BY

CONTROLLER CLEAR

+ERROR

RMCS1

NOT

CLEARED BY ERROR CLEAR

RMCS2 NOT

CLEARED BY ERROR CLEAR

RMCS1

CLEARED 8y

CLEARED

[ NTROLLER

CLEAR

NN~

OO0

S S N—
—Ooon
~NO
RO
N

& 8-

NN N

003132
003134
003136
003140

-0

[=]elele]

;ERROR

003126
003130

11-APR-80 13:04:53 PAGE

071274
073676
074022
074112

003142
003144
003146
003150

003152
003154
003156
003160
292
293
294

;ERROR

003162
003164
003166
003170

071330
073676
074022
074112

295

298

EMT140
EHT
EDTI
EFT

S
N—
—_, OO

NNN~N

003172
003174
003176
003200

— P~
L¥],
¥ Y o}

sERROR
[latleTe]

297

140

141

EMT 141
EHTI
EDT1
EFT1

NOT

DRIVE

CLEAR

[aalen)

CIRMMAQ RMO5/3/72 FCINL TST
ERROR POINTER TABLE

CIRMMAD RMOS5/3/2 FCINL TST
ERROR POINTER TABLE

SEQ 0054
RMDS

NOT

CLEARED BY

DRIVE

CLEAR

D N

1642

—

RMER1

;ERROR

RMAS

sERROR

RMMR1

NOT

CLEARED BY DRIVE

(LEAR

B
- OO
N
— I ~NO
OO

:ERROR

CLEAR

[e]elele)

073676

CLEARED BY

DRIVE

CLEAR

NNV~

NOT

~N—=O

CLEARED BY

DRIVE

CLEAR

RMERZ NOT

CLEARED BY

DRIVE

CLEAR

;ERROR

RMEC2 NOT

CLEARED BY DRIVE

C(LEAR

:ERROR

MEDIUM NOT

ON LINE

& n—
—OO0
&~
— N N oo

RMMRZ2 NOT

NNN

lololele

146

EMT146
EHT
EDT1
EFT

N
ANN
—
) ——d

DRIVE

074022
074112

:ERROR

003242
003244
003246
003250

CLEARED BY

H BN
—_O0
—NNO
L1,
VT ¥

003232
003234
003236
003240

NGT

071370

[eTelele]

003222
003224
003226
003230

NN
— —

307
308
309

7-14

NNV~

303

11-APR-80 13:04:53 PAGE

NN~

PN
— OON

003202
003204
003206
003210

301

304
305
306

MACRO v03.01

sERROR
[elelele]

299
300

;ERROR

147

—

el el

003252
003254
003256
003260

003262
003264
003266
003270
319

003272
003274
003276
003300

7144
7367
6 02
764
4
7611

[elelolo]

321

MACRO v03.01

11-APR-80

13:04:53 PAGE

7-15

SEQ 0055

(IRMMAQ RMOS/3/2 FCINL TST
ERROR POINTER TABLE

:ERROR

DRIVE FAULT

;ERROR

UNSAFE

SHOULD BE

;ERROR

UNSAFE

SHOULD NOT BE

SET,

;ERROR

VOLUME

VALID NOT

BY PA(K

;ERROR

OFFSET MODE NOT

;ERROR

OFFSET MODE

JERROR

RMOF

340

342

IS SET

IS LOW

ACK

NNNN

H S —
- OO\
A
e 1A Y]
RO
O

SET

SET BY OFFSET

C(OMMAND

S -

OO0
— PN~
NPOORY

003342
003344

OOO0O

003332
003334
003336
003340

DVC

071502
073676
074022
0764112

NNNN

003322
003324
003326
003330

SET BECAUSE

074112

elelele]

[eolelale]
OOOO

NN NN
AN NN
N
[\ JE PR
)

003302
003304
003306
003310

NOT

NOT RESET

RESET

RIP

BY RTC

(OMMAND

CIRMMAQ RM05/3/ 2

362
363
364

RIP

COMMAND

RMDC

RESET

RIP

COMMAND

S
p—
— OO\
—PN~NO

HN—
-0
—rNNO
OO
A
L
oo
O

&H —OO0
O

NOT

DATA WAS ECC
WRITE BUFFER

164

OP1

165

CORRECTED BUT

SHOULD NOT BE

SET

IvC SHGULD NOT BE

SET

IAE

SET

EMT165
ERTI
EDTI
EFTI

D AN

166

SHOULD NOT BE

—

sERROR

D
f

et —

167

—
il
b

[aS 1,8 Yo Yo 3

EMT166
—

OO0

SNNNN

5
N—
—_OO0O

OOOO

EMT164
EHT
EDT
EFT

sERROR
003442
003444
003446
003450

RESET

EMT336
EHT336
EDT336
EFT336

sERROR

003432
003434
003436
003440

RMDA NOT

EHTI
EDT1
EFT1

:ERROR
003422
003424
003426
003430

SEQ 0056

EMT162

073472
073760
074056
074146

356
357

359
360
361

162

;ERROR 163

003412
003414
003416
003420

7-16

[2%1,STe
o

— OO

NN~

OOCOCO
[ololele]

003402
003404
003406
003410

NNN~N

;ERROR

mmm

353
354
355

003372
003374
003376
003400

S
N—
—_OoOoo
Eed A B 12 %]
[aS 1,8 1o 3,V ]

349
350
351
352

11-APR-80 13:04:53 PAGE

NNNN

346
347
348

MACRO v03.01

;ERROR

OO0

343
344
345

NNSNN

003362
003364
003366
003370

[elelele]

ERROR POINTER T AB

- NS~

TNL TST

NEM SHOULD NOT

SET

DOES NOT

C(OMPARE

WITH

CIRMMAOQ RM05/3/2 FCTNL TST

ERROR POINTER TABLE

;ERROR

UNUSED

;ERROR

“ATA'" NOT

SET

DURING RETURN TO CENTERLINE

“ATA'" NOT

SET

By OFFSET

RMERZ2 NOT

INITIALIZED BY UNIBUS

RMER2 NOT

INITIALIZED BY

:ERROR

003502
003504
003506
003510

P o (YWY
—OoOo0~
— P ~NO
OO

NN~

OO0

:ERROR
003512
003514
003516
003520

AN NN
~N N~

[aSTa¥
10 4, )

174

CONTROLLER CLEAR

—

EHT
EDT]
EFTI

003532
003534
003536
003540

175

SELECTED DEVICE

IN WRITE

EMT175
EHTI
EDT)
EFTT
:ERROR

003542

071732

INIT

EMT174

sERROR

383

385

173

EHTI
EDTI
EFTI

) N —

—Oo0~

P i

NSNNN

OOOO

380
382

COMMAND

EMT173

sERROR

003522
003524
003526
003530

172

EMT172
EHT]
EDT!
EFTI

O 00~

374
375
376

SEQ 0057

S —
—OooO
—r~NO
[hS1,¥7.
N V)

003472
003474
003476
003500

7-17

000000
000000
000000
000000

NN
—

M ANN

368
369
370

003462
003464
003466
003470

11-APR-80 13:04:53 PAGE

NN~

365
366
367

MACRO v03.01

071644
073676
074022
074112

OOOO

003452
003454
003456
003460

176

EMT176

CANNOT

SET

DIAGNOSTIC MODE

PROTECT

CIRMMAQ RM0S5/3/2 FCINL TST

ERROR POINTER

003544
003546
003550

TABLE

071752
073676
074022
074112

392

003572
003574
003576
003600

071764
073676
074022
074112

395

003602
003604
003606
003610

071776
073676
074022
074112

398

zgg
003612
003614
003616
003620

003622
0036264
003626
003630

406

072040
073676

INCORRECT "'PIP'* STATUS DURING DIAGNOSTIC MODE

;ERROR 202

INCORRECT *'SKI"" STATUS DURING DIAGNOSTIC MODE

;ERROR

INCORRECT "'DVC'' STATUS DURING DIAGNOSTIC MODE

EMT201
EHTI
EDT1
EFTI

EMT202
EHTI
EDT1
EFTI

203
EMT203
EHT
EDT]
EFTI
204

“'VV'' WAS NOT

RESET

BY MAINTENANCE UNIT

READY

EMT204
EHT
EDTI
EFT
;ERROR

003532
003634

200

INCORRECT ""WRL'' STATUS DURING DIAGNOSTIC MODE

072022
073676
074022
074112

606
485

INCORRECT "'MOL'" STATUS DURING DIAGNOSTIC MODE

;ERROR 201

:ERROR

177

EMT200
EXT
EDT1
EFT?

072010
073676
074022
074112

0
48%

SEQ 0058

EMT177
EHTI
EDTI
EFT
;ERROR

003562
003564
003566
003570

7-18

EHT
EDT
EFTI

071740
073676
074022
074112

389
gg?

11-APR-80 13:04:53 PAGE

;ERROR

003552
003556
003556
003560

gg?

MACRO v03.01

073676
076022
074112

386
%gg

%32

205

EMT205
EHTI

SELECTED DEVICE HAS A PERSISTENT ''SKI'' ERROR

CZRMMAQ RM05/3/2 FCTINL TST

ERROR POINTER TABLE

13:04:53 PAGE

7-19

“LBC'' DID NOT SET DURING DIAGNOSTIC MODE

;ERROR

UNEXPECTED LOSS OF

"MOL'' - MEDIUM IS OFF

LINE

sERROR

UNEXPECTED LOSS OF

VOLUME

VALID - "'wv''

+ERROR

UNEXPECTED MECHAN]CAL MOTION - 'PIP' -

;ERROR

UNEXPECTED DEVICE

sERROR

UNEXPECTED SEEK

nNNOONO

— N NN

:ERROR

EDTY
EFT

]

003652
003656
003656
003660

NNNN

003642
003644
003646
003650

11-APR-80

SEQ 0059

E il RV [ ]
— OO

407
408
409

MACRO v03.01

074022
076112

O0OO0O

003636
003640

072060
073676
074022
074112

—N)~NO
[aS 1,8 1o e}

NNNN

[olelele)

003672

003674
003676
003700

Lol 2V 12"

003662
003664
003666
003670

622
623
424

— ) N =
OO
S

INCOMPLETE ERROR - °'SK1'' =

003712
003714
003716
003720

425
626

627

FAULT - "Dv(C'" =

&H S
—_ OO
—

003702
003704
003706
003710

SNSNNN

621

o]lelele)

619
420

;ERROR

003722
003724
003726

214
EMT214

EHT?
EDT2

DRIVE

EXECUTED A RECALIBRATE WITH ERROR SET

CIRMMAQ RM0OS5/3/72 FCTNL TST
ERROR POINTER TABLE

003730

MACRO v03.01

11-APR-80

13:04:53 PAGE

7-20

SEQ 0060

076122

EFT2

428

429

003732
003734
003736
003740

EMT21S

072172
073676
074022
0746112

634
635

INCORRECT "'IAE'" STATUS

EMT217
EHTI
EDTI
EFT?

003762
003764
003766
003770

;ERROR
003772
003774
003776
004000

6463
64!

645

072202
073676
074022
076112

217

;ERROR 220

440
1

642

EHTI
EDTI
EFT

INCORRECT ""WLE'' STATUS
T
T
!
f

b N )

637
438
439

INCORRECT "'IvC'" STATUS

EMT216

;ERROR

003752
003754
003756
003760

216

"TOoOIT
=R

636

ORIVE DID NOT DETECT ''Iv('" ERROR DURING RECAL IBRATE

EHT¢
EDT2
EFT2
;ERROR

003742
003744
003746
003750

215

— —

431
432
633

;ERROR

mmmm

430

221

INCORRECT ''OP1"" STATUS

EMT22N
EHTI
EDTI
EFT1

:ERROR

RM DID NOT

DETECT

RMR ERROR

s ERROR

RM DID NOT

DETECT

PARITY

004002
004004
004006
004010

446

448

004012
004014
004016
004020

ERROR ON MASSBUS

(ONTROL

BUS

CIZRMMAQ RMOS/3/2 FCINL TST

ERRCR POINTER TABLE

449
450

458
459
460

661
462
463

000000
000000
000000
000000

sERROR
000000
000000
000000
000000
;ERROR

004042
004044
004046
004050

000000
000000
000000
000000
;ERROR

004052
004054
004056
004060

000000
000000
000000
000000
<ERROR

004062
004064
004066
004070

225

UNUSED

OOOO

004032
004034
004036
004040

UNUSED

lelelele]

004022
004024
004026
004030

224

226

UNUSED

OOOO

655
456
457

:ERROR

227

UNUSED

[elolele]

652
453
654

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

000000
000000
000000
000000

230

UNUSED

OOOO

651

464

465

467
468
469

ERROR

000000
000000
000000
000000

OOOO

004072
004074
004076
004100

.ERROR

004102
004104
004106
004110

000009
000000
000000
000000

UNUSED

232
OOOO

466

UNUSED

SEQ 0061

CIRMMAOQ RM05/3/2 FCINL TST

ERROR POINTER TABLE
470
(N
672

482
483
484

JERROR
000000
000000
000000
000000

004132
004134
004136
004140

488
489
490

491

.ERROR

234

:ERROR

235

000000
000000
000000
000000

000000
000000
000000
000000
;ERROR

004162
004164
004166
004170

236

237

000000
000000
000000
000000

260

000000
000000
000000
000000

UNUSED

:ERROR

004172
004174
004176
004200

UNUSED

OOOO

000000
000000
000000
000000
;ERROR

004152
006154
004156
004160

UNUSED

[=]lelele]

000000
000000
000000
000000

485
486

487

0
0
0
0

:ERROR

006142
004144
004146
004150

UNUSED

OOOO

006122
004124
004126
004130

4 33

K
13:04:53 PAGE

OOOO

679
480
481

11-APR-80

OOOO

476
477
478

MACRO v03.01

OO0

673
L4
475

5
7-22

SEQ 0062

CZRMMAQ RM05/3/2 FCTNL TST

ERROR POINTER TABLE

694
495
696

497
498
499

004202
004204
004206
004210

004212
004214
004216
004220

004222
004224
004226
004230

503
504
505

004242
004264
004246
004250

004252
004254
004256
004260

—O0

506
507
508

004232
006234
004236
004240

11-APR-80 13:04:53 PAGE

:ERROR

000000
000000
000000
000000

242

7-23

SEQ 0063

UNUSED

;ERROR

UNUSED

. ERROR

UNUSED

JERROR

UNUSED

;ERROR

"'ATA" NOT

.ERROR

“ATA"" NOT RESET BY WRITING RMAS

000000
000000
000000
000000

000000
000000
0009200
000000

500
501

502

MACRO v03.01

lelelele]

692
493

000000
000000
000000
000000
RESET BY GO WHEN "ERR'' -

072316
073676
074022
074112

072326
073676
074022
074112
;ERROR

250

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

[V
"1,
8]

—

004262
004264
004266
004270
NN

sERROR

PROGRAM

INTERRUPT

WAS NOT

GENERATED

CIRMMAD RMOS/3/2 FCTINL TST

ERROR POINTER TABLE

s
——

004272
004274
004276
004300

13:04:53 PAGE

7-24

SEQ 0C64

sERROR

PROGRAM

:ERROR

OFFSET MODE WAS NOT RESET BY WRITING RMD(

:ERROR

INCORRECY "'ILF'" STATUS

;ERROR

INCORRECTY '"'ATA"" STATUS

;ERROR

INCORRECT "'ILR"" STATUS

;ERROR

INVALID

sERROR

“IVC"' WAS NOT DETECTED DURING SEARCH COMMAND

INTERRUPT

SHOULD NOT

HAVE

BEEN GENERATED

WSS
N—.—‘

072370
073676
074022
076112

W IV IV,
[p¥ 1oV
] V]
NNy
—

004312
004314
004316
004320

11-APR-80

072362
073710
074032
076122

004302
004304
004306
004310

MACRO v03.01

072356
073710
074032
0746122

~NO

(W LV, LV}

514

004322
004324
0046326
004330

004332
004334
004336
004340

[TV IV

[L¥], 9],V

V0o~

524
525
526

[AE

STATUS DURING SEARCH COMMAND

ALV,

N NN
N—O

004342
004 344
004346
004350

004352
004354
004356
004360

533
534

072636
073676
074022
0746112

CIRMMAQ RMO5/3/2 FCTINL TST 1

oo ~NO~

b ()

=
—

—

"TOoOIT =X

EXECUTED SEARCH WITH ERROR

SET

il =l o

mmmm

DRIVE

<ERROR
004402
004404
004406
004410

7-25

:ERROR

004372
004374
004376
004400
539
560
561

—y o

mmmm

roroOoNO

7 265
7 367
7 402
7R

11-APR-80 13:04:53 PAGE

SEQ 0065

(W AV 1V,
WKW

004362
004364
004366
004370

[e]lelele]

ERROR POINTER TABLE

MACRO v03.01

072502
073676
074022
076112

"LBC'' ERROR NOT SET DURING DIAGNOSTIC MODE
EMT262
EHTI

542

543
544

945
566
567

:ERROR
004412
004414
004416
004420
;ERROR

004422
004424
004426
004430

Wy
—

WAL
AN

N
~NO

"“IVC'' ERROR DURING SEARCH - LOST VOLUME VALID

EHTI
EDTI
EFTI

072542
073676
074022
076112

265

ERRONEOUS

IVC ERROR DURING SEARCH - VOLUME

EMT265
EHT
EDT1
EFTI

;ERROR
004442
004446
004446
004450

(U T LV LV ]
(O LU R0 LV,

264

EMT264

;ERROR

0046432
004434
006436
004440

"'SKI'" ERROR DURING SEARCH COMMAND

EMT263
EHTI
EDT
EFTI

548

550

263

266

DEVICE

FAULT

(DVC)

DURING SEARCH

EMT266

JERROR

SK] SHOULD HAVE BEEN SET
ADDRESS 1S TOO LARGE

BECAUSE

CYLINDER

IS VALID

CIRMMAQ RMOS/3/2 FCTNL TST

ERROR POINTER TABLE

558
959
560

561
562
563
564

565
566
567

006662
004464
006466
004470

0046472
004474
004476
004500

004502
0045064
004506
004510

ERROR DURING SEARCH BECAUSE MOL

:ERROR

OP]

ERROR DURING SEARCH BECAUSE ON CYLINDER

.ERROR

LOST MOL DURING SEARCH, OP]

:ERROR

PIP

;ERROR

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

:ERROR

MXF

- 0

DIDN'T DROP

IS NOT SET

764022
76112

STIL

SET

AFTER

072662
073676
074022
076112

072700
073676
074022
074112

oD~
O W

579

OP1

072644
073676

N —

8 umih
—_OO~

-— P\

NNNN

[@lelele)

(W IV YV
IV}
NNV

004532
004534
004536
004540

;ERROR

072626
073676
074022
076112

NANWA
NNNN

004522
004524
004526
004530

SEQ 0066

072612
073676
074022
07411

by
—

006512
004514
004516
004520

8 6
11-APR-80 13:064:53 PAGE 7-26

072574
073676
074022
076112

568
570

MACRO v03.01

004452
0044656
0046456
004460

ERROR - COMPOSITE

COMMAND STARTED

ERROR OCCURRED BEFORE

DATA

(IZRMMAD RMOS/3/2 FCINL TST

ERROR POINTER TABLE

580
581
582

592
993
594
599

596
597
598

599
600
601

602
603
604

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

.6
7-27

SEQ 0067

276

;g:é” ERRCR DURING DATA TRANSFER BECAUSE 'MOL’' WAS

004542
006546
004546
004550
:ERROR

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

3) RUN TIMED OQUT

004552
004554
004556
004560

072744
073676
074022
0764112

588
590
591

MACRO v03.01

:ERROR

583
584
585
587

“Iv(’" ERROR DURING DATA TRANSFFR BECAUSE

:ERROR

004562
004564
004566
004570

004572
004574
004576
004600

WAS NOT

VvALID

072762
073676
074022
074112
;ERROR

ERRONEOUS ''Iv(’'" ERROR DURING DATA TRANSFER - VOLUME

;ERROR

“ILR"" ERROR DURINS DATA TRANSFER

;ERROR

"ILF"" ERROR DURING DATA TRANSFER

IS VALID

073002
073676
0764022
074112

004602
004604
004606
004610

004612
004614
004616
004620

073036
073676
074022
076112
:ERROR

004622
004624

VOLUME

073050
073676

504

EMT304
EMTI

"'RMR’‘ ERROR DURING DATA TRANSFER

(IRMMAQ RMOS/3/2 FCTINL TST

ERROR POINTER

004626

004630

TABLE

605

608
609
610

004642
004644
004646
004650

004652
004654
004656
004660

11-APR-80

004664
004666
004670

:ERROR

"'SK1'" ERROR DURING DATA TRANSFER

JERROR

DRIVE DID NOT

NNV

073074
073676
074022
074112

FAULT

Sk]

ERROR DUE

TO CYLINDER

LOSS OF

BIT

;ERROR

LOSS OF

SYSTEM CLOCK

;ERROR

UNSAFE

EHT]
EDT
EFT

CLOCK

DURING DATA

TRANSFER

—

D NN

»H NN
— OO
—

DURING DATA

TRANSFER

Pl 1V
OO
—
NN
oo

- NI NN

[k 2V IV ]
—_ OO
—

NNNN

[=]lelela)]

SNNNN

DURING DATA TRANSFER

EMT310

074022
074112

OCOOO

310

DEVICE

073124
073676

NN~

623
624
625

004702
004704
004706
004710

DETECT

073104
073676
074022
074112

620
621
622

SEQ 0068

INCORRECT ""IAE"" STATUS DURING DATA TRANSFER

;ERROR
004672
004674
004676
004700

7-28

;ERROR

004662

13:04:53 PAGE

f i QNTV
-0
0O
— N~
O
OO

004634
004636
0046640

OOO0O

004632

MACRO v03.01

074022
076112

606

607

EMT313
EDT]

ERROR DURING DATA TRANSFER

(DvC

CIRMMAQ RM05/3/2 FCINL TST

ERROR POINTER TABLE

004720
626
627
628

629
630
631

632
633
634

635
636
637

641
640
643

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

6
7-29

SEQ 0069

EFTI
;ERROR

004722
004724
004726
004730

314

DRIVE TIMING ERROR DURING DATA TRANSFER

EMT314

;ERROR

WRITE LOCK

:ERROR

ERRONEOUS WRITE LOCK ERROR

;ERROR

HEADER

CRC

;ERROR

FORMAT

ERROR

;ERROR

HEADER

COMPARE

;ERROR

HEADER ERRORS

ERROR

004732
004734
004736
004740

004742
004744
004746
004750

004752
004754
004756
004760

073226
073676
07464022
074112
ERROR

DURING DATA

TRANSFER

073240
073676

074022
074112

DURING DATA

TRANSFER

004762
004764
004766
004770

004772
004774
006776
005000

644

645

646

MACRO v03.01

0746112

638
639

640

005002
005004
005006
005010

ERROK DURING DATA

073260
073676
074022
0746112
SHOULD NOT

SET

TRANSFER

CIZRMMAQ RM05/3/2 FCINL TST

ERROR POINTER TABLE

647
648
649

650
651
652

653
654
655

656
657
658

005032
005034
005036
005040

6
7-30

Sea 0070

:ERROR

DATA (HECK ERROR DURING DATA TRANSFER

.ERROR

CORRECTABLE

:ERROR

UNCORRECTABLE

sERROR

DATA PARITY

ERROR DURING READ

(OMMMAND

;ERROR

OFFSET

NOT

BY WRITE

(OMMAND

<ERROR

DATA PARITY

ERROR DURING WRITE

C(OMMAND

sERROR

WRITE

FALURE

DATA (HECK

ERROR DURING DATA

005042
005044
005045
005050

TRANSFER

073332
073676
074022
074112

—s PND NN

Pl VIV ]
— OO0

NNNN

RESET

EalP
W RV IV ]
— OO
N
— PN~
O
OO

elelele

NNNN

S SN
— OO0
W
— NN~
LAV 1, e 3, )

666

005072
005074
005076
005100

MODE

NNNN

OO0OO0O

005062
005064
005066
005070

ERROR DURING DATA

074022
074112

OOOO

005052
005054
005056
005060

DATA (HECK

073320
073676

665

667

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

005022
005024
005026
005030

662
663

664

MACRO v03.01

005012
005014
005016
005020

659

660
661

(LOCK

DURING WRITE

COMMAND

TRANSFER

CIRMMAQ RMOS5/3/2 FCTINL TST
ERROR POINTER TABLE

668

2?8

MACRO v03.01

6
6
11-APR-80 13:04:53 PAGE 7-31
SEQ 007

;ERROR
005102
005104
005106
005110

073404
073676
074022
074112

332

DATA LATE ERROR DURING DATA TRANSFER

EMT33?
EHT
EDT1
EFT

‘

671

g;%

;ERROR

005112
005114
005116
005120

073416
073676
074022
074112

674
2;2

073434
073676
074022
074112

677

g;g

005132
005134
005136
005140

073452
073676
074022
074112

680

2%;

005142
005144
005146
005150
683

689

073512
073760
074056
074146

334

LOST MOL DURING DATA TRANSFER = OP]

= 0

;ERROR

DATA READ DOES NOT COMPARE WITH DATA WRITTEN

EMT335
EHT
EDT1
EFTY

336
EMT336
EHT336
ED1336
EFT1336
337

WRITE

CHECK

ERROR NOT

DETECTED

EMT337
EHT33?
EDT337
EFT337
;ERROR

005162
005164
005166
005170

= 0

LOST VOLUME VALID DURING DATA TRANSFER = Iv( = 0

073502
Q73772
074066
074156

686
bgg

AFTER DATA TRANSFER = SKI

:ERROR 33§

:ERROR

005152
005154
005156
005160

SET

EMT33¢
EHTI
EDT1
EFT

073472
073760
074056
074146

ggg

PIP STIL

EMT333
EHTY
EDTI
EFT
:ERROR

005122
005124
005126
005130

333

340
EMT 340
EHT336
EDTS36
EFT1336

WRITE (HECK ERROR AT UNEXPECTED ADDRESS

CIRMMAQ RMO5/3/2 FCINL TST

ERROR POINTER TABLE

11-APR-80 13:04:53 PAGE

:ERROR

005172
005174
005176
005200

341

INCORRECT

7-32

SEQ 0072

DATA DURING WRITE

(HECK ERROR

EMT 341
EHT336
EDT336
EFT336

695
696
697

:ERROR

) -

005202
005204
005206
005210

342

—

:ERROR

"TOIXT
R

692
693
694

MACRO v03.01

mmmm

690
691

“IVC"' ERROR NOT DETECTED DURING DATA TRANSFER
3 62
1
1
1

343

"'FER'" NOT DETECTED DURING DATA TRANSFER

EMT343
EHTY
EDT
EFT
:ERROR

701
702
703

704
705
706

EMT344
EHT344

EDT344
EFT344
sERROR

005232
005234
005236
005240

345

"BSE'' NOT DETECTED DURING DATA TRANSFER

EMT 345
EHT

:ERROR

HEADER ERROR WAS DETECTED W/

HCI

;JERROR

DATA TRANSFER NOT

C(OMP ERROR

JERROR

LOST VOLUME

SET

005242
005244
005246
005250
ABORTED W/

005252
005254
005256
005260

O
-

—

707
708
709

DETECTED DURING DATA TRANSFER

005230

073556
074004
074076
074166

"MCE'" NOT

—

005222
0052264
005226

344

700

——

698
699

VALID DURING SEARCH = *'lv("’

SET

NN~

anad
il

i
—

13:04:53 PAGE

7-33

1
1

)
e

1
I

—

mrmrmre

oI X

— PN NN

SEQ 0073

NNNN

11-APR-B0

073644
073676
0764022
074112

719
720
721

725
726
727

MACRO v03.01

351

“ATA' DID NOT

SET DURING SEARCH

EMT 351

EHTI
EDTI
EFT1

JERROR
005302
005304
005306
005310

722
723
724

;ERROR
005272
005274
005276
005300

~N -~~~

£ N
—_Oo0O0

005262
005264
005266
005270

(V. PYW

712

OOOO

(ZRMMAQ RMGS5/3/2 FCTINL TST
ERROR POINTER TABLE

073654
000000
000000
000000

352

PROGRAM TIMEQUT WHILE TESTING RMLA

EMT352

;ERROR

353

LOOK AMEAD TEST FAJILS

;ERROR

354

BSE SHOULD NOT BE SET

073660
074016
076110
0746176

005322
005324
005326
CJ5330

sPUT ERROR TABLE HERE

MACRO v03.01

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

SEQ 0074

.SBTTL

ERROR TABLE USAGE

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

ABOVE

CONSISTS OF

FOUR WORD ENTRIES FOR EACH ERROR

EMT - ERROR MESSAGE TABLE ADDRESS

EHT

.
.

- ERROR HEADER TABLE ADDRESS

EDT - ERROR DATA TABLE ADDRESS
EFT - ERROR FORMAT TABLE ADDRESS

.THE

EMT

ENTRY

THE

PARTICULAR ERROR.

THE

ADDRESS

THE

TABLE

:TYPED BY THE ERROR TYPE SUBROUTINE.
IF
:NO MESSAGE TO BE TYPED FOR THE ERROR.

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

PPV

OO NN

ANVRNINININD —

NN = OO0 NN

;FOR

b b b

b b

WA — OO 00~

NP —

(IRMMAQ RMOS/3/2 FCTINL TST
ERROR TABLE USAGE

EACH ERROR MESSAGE

ERROR MESSAGE

TABLE

LISTS

STRINGS

THE

ADDRESS

ZERO,

TMERE

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

.HEADER.

THAT

IS,

THE

EMT

ENTRY

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

A HEADER LINE MAY BE

PRINTED wITHOUT

ANY

DATA,

;BUT A DATA LINE IS NOT PRINTED WITHOUT A HEADER, AND EACH DATA LINE

;MUST

ALSO HAVE

A FORMAT,

:IN SUMMARY,
:
EACH NONZERO ENTRY

;

HEADERS,

‘

EACH TABLE

MESSAGE

THE

IS A LIST OF

STRINGS,

ADDRESS OF

A TABLE,

ADDRESSES WHICH DEFINES THE LOCATIONS
DATA OR

FORMAT,

CIRMMAOQ RM05/3/2 FCTNL ST

ERROR TABLE USAGE

MACRO v03.01

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

:THIS ROUTINE

BADTMO:

005346

005410

010046
104402
000240

SEQ 0075

HANDLES UNEXPECTED TIMEOUTS

MOv
18T
CMP
TYPE

(SP) ,RO
=(RO)

(SP)+,(SP)+
,65%

;SAVE PC WHERE
sADJUST PC =2

THE

TIME

;RESTORE STACK POINTER
::TYPE ASCIZ STRING

BR
LASCIZ

64%
;s GET OVER THE ASCIZ
<CRLF>/UNEXPECTED BUS TIMEOUT, PC=/

?Ogoc

RO,-(SP)

NOP

OUT OCCURED

;SETUP FOR TYPING OUT PC
;PUT

"HALT(0)'

INSTRUCTION HERE

YOU WISH

;70 STOP ON UNEXPECTED TIMEOUT.

005412
005414
005420
005422

000240
005227
001375
000005

000000

.SBTTL

START OF

START:

NOP

) — [a SRV, ],V ]

CO—=OOO00OOOOOOD

PNV
NN
NN NOONNNSNSNNNNN

NN NN N NN WN NN N NN
NNNNNNNNNNNNNNYN

QUL DRNF QU QR QP
[
P

O
NTMNN~NN
— NN
S

NONNNNO

PRFPEFIENY o Y o T T

NNO NS~

005622
005624
005630
005632
005640

WWNO
— O
NNV

005564
005570
005576
005604
005612
005620

ON)
b b b
-t PNV
N

005524
005532
005536
005542
005550
005556

— et O s D
OO MNO

005460
005466
005474
005502
005510
005516

N WNO~N
O NONO
O soo0nonr

0000 o

005444
005452

- NO =

005424
005430
005432
005436
005440

INC
BNE

RESET

LSBTTL

elololalaelelealolele]

OO NN

NN =2 OO0~

éi25$:

001154

001100

000004

000020
000022
000030
000032
000034
000036
000024

INITIALIZE

;TTY LOGP, WAIT FOR
;OF WORD
;RESET

THE

INCREMENT

WORID

COMMON TAGS

000026
042164

00113
001122
001124

Mov
CLR
CMP
BNE
MOV

#SCMTAG,RE
(R6) +
FSWR,R6
.=b
#STACK,SP

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

MOv
MOov

#340,8#PWRVEC+2 ;;LEVEL 7
S$ENDCT,SEOPCT
;;SETUP END-OF -PROGRAM COUNTER

MOvB
MOv
MOV

#1,SERMAX
#.,SLPADR
¥. ,SLPERR

;o INITIALIZE A FEW VECTORS
MOV
#$SCOPE ,@#10OTVEC ;10T VECTOR FOR SCOPE ROUTINE
MOv
#340,8#10TVEC+2 ;;LEVEL 7
MOV
#SERROR,S#EMTVEC ;,EMT VECTOR FOR ERROR ROUTINE
MOv
#3640, INEMTVEC+2 ;LEVEL 7
MOV
#STRAP ,@#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS
MOv
#340,8#TRAPVEC+2;LEVEL 7
MOv
NSPWRON,3#PWRVEC ;;POWER FAILURE VECTOR

CLR
CLR

S$TIMES
S$ESCAPE

;s INITIALIZE NUMBER OF ITERATIONS
«CLEAR THE ESCAPE ON ERROR ADDRESS

sALLOW ONE ERROR PER TEST
¢ INITIALIZE THE LOOP ADDRESS FOR SCOPE
;. SETUP THE ERROR LOOP ADDRESS

::SIZE FOR A HARDWARE SWITCH REGISTER.

IF NOT FOUND OR IT IS

:;EQUAL TO A *'-1'', SETUP FOR A SOF TWARE SWITCH REGISTER.
000004

001156

64%:

001156
001156

OFERRVEC,-(SP)

;;SAVE ERROR VECTOR

MOv

#DSWR,SWR

::SETUP FOR A HARDWARE SWICH REGISTER

MOV

173334

005632

MOV

MOv

00115¢6

000176
000174

»0
.<b

;;CLEAR THE COMMON TAGS ($CMTAG) AREA

001114

063210
000340
063710
000340
065450
000340
065556
000340
062172
001206
001210
000001
005550
005556

PROGRAM

658:

M6LS ,QFERRVEC

#ODISP,DISPLAY

;;SET UP ERROR VECTOR

;;AND A HARDWARE DISPLAY REGISTER

CMP
BNE

#-1,3SWR
66%

65%

MOv
MOv

#SWREG, SWR
;;POINT
#DISPREG,DISPLAY

=?¥

#65%, (SP)

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

THE HARDWARE

SWR

; ;BRANCH 1F NO TIMEOQUT

::SET UP FOR TRAP RETURN

TO SOF TWARE

SWR

IS NOT

-1

CZRMMAQ RM0OS5/3/2 FCTNL TST
INITIALIZE

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
882292

005037
132737
001403
012737

001230
000200

001243

001244

0011564

20
21 005676
22 005702
23 005710
005716
005720
" 005722

012737
012737
012746
012746
000002

005332
000300
000300
005722

000004
000006

66%:

MOV

(SP)+,@#ERRVEC

;:RESTORE ERROR VECTOR

LR
Bl 18
BEQ
MOV

$PASS
BAPTSIZE SENVM
67%
#SSWREG, SWR

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

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

005722
005726
005730
005736
005740

005227
001056
022737
001652
106401

005744
005750
005752
005760
005762
005770
005772

005737
001012
123727
001406
023727
001005
104407

005776

005776
006006
006004

000403
112737

s TYPE

177777
042326

000042

006006

.SBTTL

000042
001242

000001

001154

000176

000001

001150

000627

71$:
72%:
;:708:

TYPE PROGRAM NAME

THE

NAME

INC
BNE
CMP
BEQ
TYPE
GET

THE

PROGRAM

#-1
69%
FSENDAD , 3042
69%
708

VALUE

FOR SOFTWARE

#1,8AUT08

;:SET AUTO-MODE

69%

;:GET OVER THE ASCIZ

_ASCIZ

72%

005037
122737
001160
013737
122737
103002
105037

38 006126
39 006130

001425
104401

37 006122
006134

40
41
42
43

006162

006162
006164
006170
006172

005737
000412

005046
113716
104403
oo

001330
000016

000041

000040
000007

001330
001330

001330

000042

1$:

006136
.- 768:

7%
001330

TAPE

;.ARE WE RUNNING UNDER XXDP/A(Y?
P:BRANCH IF YES
;:ARE WE RUNNING UNDER APT?
::BRANCH IF YES
::SOFTWARE SWITCH REG SELECTED?
::BRANCH IF NO
::GET SOFT-SWR SETTINGS
INDICATOR

<CRLF>3CZRMMAQO - RM0S5/3/2 FUNCTIONAL

:THE FOLLOWING FINDS OUT

006064
006070
006076
006100
006106
006116
006116

SWITCHM REGISTER

MOVB

B8R

30
31
32
33
3¢
35
36

PASS

ane?
78
$ENV, ¥
7%
SWR , #SWREG
72%

698 :

JPAPER

FIRST

::FIRST TIME?
::BRANCH [F NO
SIACT-112
::BRANCH IF YES
::TYPE ASCIZ STRING

IS8T
BNE
CMPB
BEQ
CMP
BNE
GTSWR

% 006064
gg

(MANUAL),

TEST,

PART

1@<(RLF>

THE PROGRAM CONTROL MODE:

ACT11,

XXDP CHAIN OR DUMP

CLR
CMPB
BNE
MOV
CMPB
BHIS
CLRB

XXDP
016,041
b1 9
e840, xXDP
#7,XX0P
1%
XXDP

;CLEAR 'XXDP' LOAD DEVICE STORAGE
“LOADED FRCM AN RM0S5/3/2 2
:BRANCH IF NOT
JGET DEVICE INDICATOR AND NUMBER
$1S 1T A VALID NUMBER °
TYES
*NO, DEFAULT TO DRIVE 0

8EQ
TYPE

2%
74%

:BR IF NEITHER
::TYPE ASCIZ STRING

YI¥,]
738

_ASCIZ

<CRLF>/NOTV

CLR
MOVB

-(5P)
XXDP, (SP)

TYPOS
.BYTE

SCHAIN MODE OR ACT'1 AUTO ACCEPT
S:GET OVER THE ASLIZ

TESTING DRIVE

;CLEAR WORD ON STA(K
:GET DRIVE ADDRESS

STYPE TME ADDRESS
JONLY 1 (HARACTER

CIRMMAQ RMO5/3/2 FCTINL IST 1

MACRO v03.0Y
GET VALUE FOR SOF TWARE SWITCH REGISTER
L1 006173

65 006174

000

104401

006200

000517

006202
006206
006210
006214

005227
001114

006236
006236
006240
006244
006266
006247
006250
006254
006340
006340
0063446

104401

000410
0 05046

001217

1066401

006256

000431
104401

000435

?7;as

006346

N —
~NW

N
NN

(=l =
OO0

006464
006466

005001
C13700

006472
006500
006502
006510
006514
006516
006522

006524
006532
006536
06542
06550
006556
006560
006566
006574
006576
006604
006612
006614

000200

001243

000040
000010
000012
066765
0100C0

000010

067002
004000

006644
000000

067021
010000

006644
000012

—s o

067146

001300

066745
001330

006644

1%:

?ss

SUPRESS LEADING ZEROS

SCRLF

GEY NUHBER OF
FéRST

(LR

-(SP)

BYTE
.BYTE
TYPE

1
0

LASCIZ

/. WALT

25011

THRU HERE

,GET OVER THE ASCIZ

<CRLF>/T0 TEST DRIVE /

B8R

TIME

DRIVES

..TVPE ASCIZ STRING

76%

LASCIZ

XXoP, (SP)

8¢

:CLEAR WORD ON STA(K

;GET DRIVE ADDRESS
;TYPE DRIVE ADDRESS
;ONLY 1 (HARACTER
;SUPRESS LEADING ZEROS

;s TYPE

PROGRAM,

ASCIZ

STIRING

::GET OVER THE AS(!Z
REMOVE

RRDP PACK

AND REPLACE

]T/<(RLF>

;. TYPE ASCIZ STRING
.:GET OVER THE ASCIZ

79%

7WITH A WORK PACK.

001330

CLEAR LOCATION 40 AND RESTART PROGRAM, /<(RLF>

006644
000010

IN AUTO MODE

-~ SEE

;BR

:SET DEVICE MAP FOR ALL DRIVES
SIZING IS ALLOWED

BIT18B
BNE

#B117,9ENVM
14 )

CLR
MOV

R
$BASE RO

8118
BEQ
MOV

ATNTBL(R1) ,$DEVM
2 1S DEVICE PRESENT IN MAP ?
6%
:8R IF NO
#LODEV,5%
*GET ADDRESS OF LOAD DEVICE MESSAGE

BEQ

(MPB

2%:

STANDALONE

#377,80EVM

1S RUNNING

1S7

—

g =t N

MOV

001276

SN NS —
WOOWWO (V]
W=~ ~

132737
001075

#-1
38

BEQ

001300

OQOO0O0O0O0O0O0O0O0O0O0
OOW=OW—OW~O
——
O =—PINL = PLNL = NUNWVON
BB NNENNONNNSN
= O
N— O W=
WO
Bt ONOONNECE NOOO

006454
006462

INC
BNE

SEQ 0077

.CHECK FOR AUTO MODE OR STANDLONE MODE
1ST8
$AUTOB
JRUNNING IN AUTO MODE ?

001150

:g??GRAH

O—-0000 -—t
ONNOO—O LY

006456

TYPE

Siros

000377

Move
TYPOS

006440

006440
006444
006446

TYPE

$§;6s:
001330

001
000

2%:

006216

1 13716
1 04403

.BYTE

1YPE

177727

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

MOV
MOV
TS7
MOV
BIT

BNE
MOV
BIT
BEQ
MOV
BIT
8EQ
BR

JSIZING ALLOWED ?

;NO

;START

FROM DRIVE 0

;LOAD THE BASE ADDRESS

XxXopP

;kngeo FROM RM05/3/2 2

XX0P,R1

1S THIS THE DRIVE ?

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

sCLEAR MASS BUS
;LOAD THE DRIVE ADDRESS

3%
#NOTAVL,SS
#DVA,RMCST1(RO)
3%
WFOFFLIN,SS
#MOL ,RMDS(RO)
b33
6%

LYES, TRY NEXT DR]VE

sTRY

TO ACCESS AN RM DRIVE

;GET ADDRESS OF NOT PRESENT MESSAGE
:1S DRIVE PRESENT ?
:BR _IF NO
sGET ADDRESS OF AVAILABLE MESSAGE
;1S DRIVE AVAILABLE ?
:BR _1F NO
;GET ADDRESS OF OFF LINE MESSAGE
;1S MEDIUM ON LINE ?
:BR 1F

CIRMMAQ RMO5/3/2 FCTINL TST 1

MACRO v03.01
GET VALUE FOR SOFf TWARE SWITCH REGISTER

il
S
e
e
D
D el
i
e
e
e
i
o
D
b

—_—t et e et s OO OOOOOOOO
VS W= OO0V
NO VS WA =0

95
96 006616
97
98
99

067146
001217
066737

001300

3%:

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

SEQ 0078

ATNTBL(R1),$DEVM
;CLEAR DEVICE FROM BIT MAP
SCRLF
:CR-L
;TYPE °'DRIVE'
,MSGDRV
R1,-(SP)
;s SAVE R1 FOR TYPEOQUT

.60 TYPE-=OCTAL ASCII
;s TYPE 2 DIGIT(S)

006640
006661
006642
006644

: ; SUPPRESS LEADING ZEROS

006646
006650
006654

005201
020127
003706

006656
006662
006664
006666
006670
006672

104401
005004
005304
001376
005304
001376

001217

006674

000137

007604

000007

; TYPE ERROR MESSAGE

5%:

sADDRESS OF

6%:

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

MESSAGE

GOES HERE

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

CMNSTART

;JUMP TO (OMMON START

INPUT ROUTINES

006700
006700

004737

064120

006704
006710

005227
001426

177777

066304

006750
006756
006760
006764

123727
001627
104401
000752

001176

26
27
28
29
30
31
32

006766
006766
006772
006774
007000
007004
007012

NO WV

104401
104411
012637
104401
123727
001004
104401
000137

VNN = OO0

007014
007022
007024
007030
007032

40 007036
41 007036
42 007042
43 0070646
44 007050
45 007054
46 007060
47 007066
48 007070
49 007076

50 007100
51 007104

54 007106
55 007106
56 007112
007116

001176
001176
001176

INC

000131

000116

28:

066220

? 2637

001176
001176
001176

000131

001176

000116

000756

066701
103640

066701

;FIRST

b33

JYES !

TIME

THRU MERE

(SP)+,8TMP1
sTMPi

*ECHO RESPONSE

*NO'!

;GET RESPONSE

PARAMETERS

cMPB

$TMPY, @'y

:YES RESPONSE ?

TYPE
JMP

SCRLF
CMNSTART

SCR=LF
*KEEP PREVIOUS PARAMETERS

C(MPB

STMPI.#'N

:NO RESPONSE

TYPE
BR

CNSLO8
is

*NO, TYPE '
*TRY AGAIN

5S¢

“YES, GET NEW PARAMETERS
ILLEGAL

INPUT

OPERATOR WANTS HELP TEXT
JMSHELP

(SP)+,$TMPI
,$TMP]

CMPB
BEQ
CMPB
BEQ
TYPE

$TMP1, @'Y
43
S$TMP1,A'N
5¢
CNSLO8

TYPE

JHELP

SWANT HELP ?
*GET RESPONSE

“SAVE AND ECHO RESPONSE

:WAS IT A YES RESPONSE ?
SYES
‘WAS IT A NO RESPONSE ?
SYES
*NO, TYPE ' ILLEGAL INPUT'

STRY AGAIN
JYES =

TYPE

HELP TEXT

USER WANTS TO CHANGE ADDRESSES
TYPE
TYPE
RDCHR

L$CRLF
“UBUSAST

cMP8

S$TmMPY, @'Y

;WAS 1T A YES RESPONSE ?

CMPB
BEQ
TYPE

STMP1,#'N
12%
CNSLOS

‘WAS IT A NO RESPONSE ?
YES
*NO, TYPE * ILLEGAL INPUT

BEQ

000116

-1

MOV
TYPE

000131

001176

JINITIALIZE CONSOLE

;MAINTAIN PREVIOUS

PC,8TKINT

.CNSLOO

TYPE
RDCHR
MOV
TYPE

éiEE

104411
0O
1 4
1 3727
O 1407
1 3727
O 1525
1 6401
O 0756

INPUT ROUTINES

TYPE

BEQ

066701

SEQ 0079

THE USER WANTS TO KEEP SAME DEVICES FOR TESTING

BNE

001217
007604

4601

1 3727
0
1 3727
0

RDCHR

égee
}

STANDALONE

BEQ

is:

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

:
STANDALONE
JSR

;OEE

006712
006712
006716
006720
006724
006730
006736
006740
006744

33
34
35
36
37

MACRO v03.01

.SBTTL

PORDPININI
N b b o s b e e e e s

= OO0

W) —

STANDALONE

(SP)+,$TMP1
$TMPI

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

*SAVE AND ECHO RESPONSE

YES

“TRY AGAIN

°*

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

104401
013746
104402

066337
001276

TYPE

MOV

TYPOC

CNSLOY

$BASE,-(SP)

:TYPE

CURRENT BUS ADDRESS

::SAVE $SBASE FOR TYPEOUT

2360 TYPE--OCTAL ASCIICALL DIGITS)

—r

CIRMMAD RMOS/3/2 FCTINL TST

CIRMMAO RMOS/3/2 FCTINL TST

STANDALONE

$7
S8
59
60

INPUT ROUTINES

007120
007126
007126
007132

1046401
104413
012637
001412

64 007150
gg 007152

000760
013737

67 007160
68 0071664
69 007166

1064401
005046
113716

61 00713¢
62 007142
63 0071464

70
71
72
73
76
75
76
77
78
79

007172
007174
007175
007176
007202
007204
007210
007212
007220
007222

022737
101403
104401

001176
160000

066437

83
84
85
86
87
88
89
90

106401
005066
113716
006216
006216
006216
06216
006216
106403
001
000
104401
104413
012637
001424
023727
002403
104401
000747
006337
006337
006337
006337
006337

066473

95 007272
96 007274

97
98
99
100

101
102
103
106
105
106

007300
007302
007310
007312

007316
007320
007326
007330
00733¢
007340

}83 007344

113737

111 007352
112 007356
113 007360

TYPE
CLR
MOv8

LCNSLO3
<(SP)
SVECTY, (SP)

$STMP1,SVECT!

;STORE NEW VECTOR ADDRESS

108 :

TYPE
CLR
MOVB
ASR
ASR
ASR
ASR
ASR
TYPOS
.BYTE
BYTE
TYPE
RDOCT
MoV
BEQ
CMP
BLT
TYPE
BR
ASL
ASL
ASL
ASL
ASL

000007

11%:

001273

MOVB

-DIALOGUE

005227
001002
104401

177777

066536

fs:

3
0
LQUES

,CNSLOS
Z(SP)
SVECT1¢1,(SP)
(SP)
(SP)
(SP)
(SP)
(SP)
1

:GET

CURRENT BR LEVEL

DIGIT

:SUPPRESS LEADING ZEROS

(SP)+,8TMP1
12%
STMP1 .87
18
,CNSLOG
108
STMP1
$TMP1
$STMP1
$TMPI
$STMPI

STMP1

‘RETRY

SONLY

0
LQUES

;GET NEW PRIOR]TY
;CARRIAGE RETURN ?

JYES=SKIP TO NEXT ENTRY
*LEGAL PRIORITY ?
SYES!!
;TYPE WARNING MESSAGE
STRY AGAIN
;STORE NEW PRIOR]ITY

SVECT1+1

TO INPUT DEVICE NUMBERS

INC
BNE
TYPE

g-1
138
LONSLO?

;GET CURRENT VECTOR ADDRESS

MOvB

066505

001176

STRY AGAIN
:STORE NEW BUS ADDRESS

9%:

001176

001176
001176
001176
001176
001176

6844
$STMP1,$BASE

:BASE ADDRESS IN 1/0 PAGE
SYES
;TYPE WARNING MESSAGE

(SP)+,8TMP1
10%
#1000,$TMP1
98
CNSLOG

066211

001176

B8R
MOV

#160000,8TMP1
7%
,CNSLO2

:TYPE 3 DIGITS
*SUPPRESS LEADING ZEROS
Typg
7
:GET NEW VECTOR ADDRESS
;CARRIAGE RETURN?
JYES=SKIP TO NFXT ENTRY
*VECTOR ADDRESS < 1000 2
SYES!!
;TYPE WARNING MESSAGE

001176

001272

(SP)+,$THP]
8s

;TYPE
2
:GET NEW BUS ADDRESS
:CARRIAGE RETURN ?
SYES=SKIP TO NEXT ENTRY

,QUES

TYPOS
.BYTE
BYTE
TYPE
RDOCT
Moy
BEQ
CMP
BH]
TYPE

001273

109

110 007352

8s:

001176

93 007265
9% 007266

7%:

066211

001000

10-1

TYPE
RDOCT
MOV
BEQ
CMP
BLOS
TYPE

001272

104403
003
000
104401
104413
012637
001412
022737
101003
104401

113737

91 007262
92 007264

001276

066417

000756

007236
007242
007244
007250
007252
007254
007256
007260

001176

066355

001176

11-APR-80 13:04:53 PAGE

SEQ 0080

066211

80 007226
g; 007230

MACRO v03.0"

JFIRST TIME
:BR IF NO
STYPE INPUT

THRU ?

INSTRUCTIONS

>»

(=4
i

i el il o

il el

il el el

D il

il el

il ol

ol i el ol i

858 8 8 B NN
N AN N M N N NN PO P AU PRI PO PO NI NI A b b et et e
S WOV
NN NN 2 OO N
N
NP = OO0~
N

N ALONE

—

AO RMOS/3/2 FCTNL
INPUT

ROUTINES

007364
007370
007374
007400
0076402
007606
007414
0076416
007422
007430

104401
005037
104401
104411
012637
023727
001007
104401
012737
000137

0074634
0076442
007444

023727
001636
104400

007450
007456
0076460
0076466
0076470

023727
002430
023727
003427
000423

007472
007676
007500
007506
007510
007514
007520
007526
007530
007536
007540

104411
012637
023727
001632
104401
104401
023727
002404
023727

007546
007552
007556
007564

151 007572
152 007574
153 007600
154

0427
1
1
1
1
0

MACRO v03.01

001217
001300
066723
001176
001176

13%:
14%:

TYPE
(LR
TYpP(

00010

066204
000377
006456

001300

001176

000015

001176
001176

000060

001176

000067

(mp

BNE

TYPE

MOV

JMpP

15%:

(mp

BEQ

TYPE

cMp
BLT
(mp
BLE
B8R

001176
001176

16$:

000015

000060
001176

000067

1
1
7

001i7¢
177770
067146

18%:

1
7

001217

000377

006454

RDCHR

MOV

+MSDRVS

(SP)e

$THPY

STMP1 #°'A
15¢
JALL
#377,8DEVM
XS1l

$STMPY, #(R
17¢
K311
$TMP1,4'0
17%
STMP1,8'7
18%
17%

(SP)+,$TMP]

(MP
BLT
(mP

MOV

B1S8
(MPB
19¢:

SCRLF

STMPY
$TMP1
. #'0
17%
STMPY 47
18%

BLE
TYPE
B8R

BH]
TYPE
JMP

10-2

$DEVM

STMP1,#(R
19%

81C

001300
001300

13:04:53 PAGE

(MP
BtQ

TYPE
TYPE

17%:

;

11-aPR-80

RD(HR
MOV

066701

1645 007544
147
1648
149
150

TST

. COMMA

LCNSLO8

SEQ 0081

:CR=LF
;CLEAR DEVICE MmaAP

;TYPE 'DRIVE(S):

JGET RESPONSE
;1S INPUT A" 2

:NO

JYES,

TYPE ""ALL’' AND GO

:SET DEVICE MAP FOR ALL DRIVES
JAUTO SIZE.

:ngRlAGE RETURN ?
.Y

JECHO RESPONSE
JNUMBER < 0 ?
JYES

JNUMBER > 7 ?

JNO

JILLEGAL INPUT

JGET RESPONSE
sCARRJAGE

JYES

;TYPE

RETURN

JECHO RESPONSE
JNUMBER < 0 ?
JYES

;NUMBER > 7 ?

;NO
;TYPE "' ?]LLEGAL

INPUT'

16%

JRETRY

$TMP1
R
407 ,R1

;R1 = DRIVE NUMBER

#377,8DEVM
16%
+SCRLF

;DONE ?

ATNTBL(R1) ,$DEVM

XSl

JSET DEVICE

:NO

;CR=LF

;G0 SIZE DEVICES

[N MAP

N
E

WA = OO 00NN

007662
007666
007670
007670
007672
007676
007712
007712
007714
007716

MACRO v03.01

11-APR-80 13:04:53 PAGE

SEQ 0082
CMNSTART:
MOV
MOV
MOV
MOV
CLR
1%:
BIT

001300
001466
001464
000001

BEQ

067146
000002

000001

2%:

005011

004737
000413
106000
104401
000405

3%:

007700

000000
000765

5¢%:

LSBTTL

000042

105737

001242

000001

001154

000176

000001

001150

001300

001116
001206
001326
064120
000300
010036

;YES - ENTER DEVICE NUMBER

"2 ,R

sADVANCE

ASL

ADD

1578

BR
CLR
JSR
BR

EMT

BR
LASCIZ
HALT

TERMINATE

PC,ST2CLK
5%

;SEE I1F CLOCK PRESENT
JYES = CLOCK IS PRESENT

,65%

;. TYPE ASCIZ STRING

;ADVANCE DEVICE NUMBER
;ENTER NEXT DEVICE

GET
TST

VALUE FOR
any?

:PROGRAM HALT
SOFTWARE

66%
$ENV,
¥
66%
SWR,#SWREG
67%

MOvVB

67%
#1,%A0708B

READY:

NOP
1518

$DEVM

1ST

Y IV

BNE
1%:

2%:

TEST

QUE

648
::GET OVER THE ASCIZ
<CRLF>/PROG HLT/
49

BNE

IN QUE

POINTER

3%
R3
1%
(R1)

BNE
(MPB
BEQ
CMP
BNE
GTSWR
BR

ENTRY

IN QUE

:ADVANCE DEVICE POINTER
:eggf ALL DEVICES ?

66%:
67%:

000042
005412
062136

R3, (R1 )

(INITIALIZE ENTRY POINTER

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

TYPE

;659
646%:

;R2 = DEVICE POINTER
:R3 = DEVICE NUMBER
;58 {715 DEVICE IN MAP ?

;RO = DEVICE MAP
:R1 = ADDRESS OF FIRST ENTRY

MOvVB

sSI12E FOR CLOCK

0464646

SOEVM,RO
FTSTQUE+Z2,R1
RY1,TSTQUE
f,R2
R3
R2.RO

MOV

BEQ
INC

007716
007722
007724
007732
007734
007742
007744
007746
007750
007756

007756
007760

;ASSEMBLE TEST QUE FROM DEVICE MAP

h ot

007604
007604
007610
007614
007620
007624
007626
007630
007632
007634
007642
007646
007650
007652
007654
007656
007660

O et et OUND =

PUORNINIAD
ot b b o od b e o et

NN = OO 00 ~NO WS

NN —

CIRMMAQ RMOS5/3/72 FCTINL TST
STANDALONE INPUT ROUTINES

SWIT(CH REGISTER

;sARE WE RUNNING UNDER XXDP/ACT?
;;BRANCH ]F YES
;;ARE WE RUNNING UNDER APT?

s BRANCH JF

YES

;. SOFTWARE SWITCH REG SELECTED?
;;BRANCH JF NO
;sGET SOFT-SWR SETTINGS

..SE. AUTO-MODE INDICATOR
;READY

START

TEST

;ANY DRIVES IN MAP ?
:BR IF YES

+ANY MON]ITOR PRESENT

JMP
JMP

START
$EOP

;BR IF YES
¢JUMP TO START
;RETURN CONTROL TO MONITOR

CLRB
(LR
CLR
JSR

$TSTNM
$TIMES
CTLFG
PC,3TKINT

MOV

#6648 ,-(SP)

;RESET TEST NUMBER
¢INITIALIZE NUMBER OF JTERATIONS
:CLEAR CONTROL-C FLAG
JINITIALIZE TTY
::PUT NEW PS ON STA(K
;sPUT NEW PC ON STACK

MOV

#PR6,-(SP)

CIRMMAQ RMO5/372 FCTNL TST

GET

VALUE

FOR SOF TWARE

010034
010036
2§ 010036

MACRO v03.01

SWITCH REGISTER

000002
117737

171422

001234

45
46
47
48
49
50
51

66$:

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

RT1
MOVB

7
11-1

SEQ 0083

;;POP NEW PC AND PS
aTSTQUE,SUNIT

;LOAD UNIT NUMBER

;CLEAR MASSBUS CONTROLLER, SELECT DRIVE AND DETERMINE THE LAST TRACK

010064
010052
010056
010064

010072
010076
52 010102
53 010106
54 8}8}}2

012737
013700
012760
117760

016002
042702
922702
001003
012737

002000
001276
000040
171374

000026
177770
000007
011000

001332

:OF

000010
000010

001332

THE DIFFERENT DRIVE TYPES
MOV
#TAL,LSTRK
;ASSUME LAST TRACK FOR RM02/3 = &.
MOV
$BASE ,RO
:RO_= UNIBUS ADDRESS
MOV
#CLR,RMCS2(R0)
:CLEAR MASSBUS
MOvB
oTSTQUE ,RM(S2 (RO)
JSELECT DEVICE UNDER TEST
MOV
RMDT(RO) ,R2
;GET RMDT AND
BIC
#177770,R2
:SAVE DRIVE TYPE BITS

CMP
BNE
MOV

N7 ,R2
;1S 1T AN RMOS 2
38
:NO, MUST BE AN RMO2 OR RMO3
FTA16.TA2,LSTRK ;YES==SET LAST TRA(K = 18.

]

CIRMMAOQ RMOS/3/2 FCTINL 1ST 1
MACRO v03.01
GET VALUE FOR SOF TWARE SWITCH REGISTER

11-APR-B0 13:04:53 PAGE

SEQ 0084

OO
OO0

w—

002

—
—

OO0

el
el
i
e
il

R R

X2 X2XXXx))

CONTROLLER ACCESS TEST

013701
012737

004737
000404
000240

CLR

R1
ERRVEC,~(SP)

000004
000006

CMP

104000

001226

;MOVE H] BYTE TO RM(S1
:MOVE WORD COUNT REGISTER

;MOVE BUS ADDRESS REGISTER
;MOVE

CONTROL

STATUS

;MOVE

DATA BUFFER

:.POP STACK INTO ERRVE(C+?2
::POP STACK INTO ERRVEC(
;NO BUS TIMEOUT OCCURRED

(SP)+,(SP)+
(SP)+ ,ERRVEC(+?
(SP)+ ERRVEC

sADJUST STA(K
..POP STACK INTO ERRVE(+2
.:POP STACK INTO ERRVEC

110
ane?

START

JNO!!
;YES=GO GET $BASE

JMP

$SEOP

.60 TO END OF

sSTAND ALONE

SRR

ERd

ODEVICE

AR R

JSR
BR

NOP

EMT

AVAILABLE
RS

SCOPE

NOP
MOV
MOV
MOV
MOV

;EP)‘.ERRVEC

EMT
15T
BNE
JMP

TESTED

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

R1,RMCS1+1(RO)
R1,RMWC(RO)
RMW(C (RO) ,R2
R1,RMBA(RO)
RMBA(RO)
,R2
R1,RMCS2(RO)
RMCS2(RO)
,R2
R1,RMDB(RO)
RMDB(RO)
,R?
(SP)+ ERRVEC+?

MOV
MOV

1ST12:

BEING

#PR6 ,ERRVEC+2

5% :
7%:

= DEVICE

;.SET TEST NUMBER IN APT MAIL BOX

N3$ ERRVEC

MovB

3%:

:(R1)

ERRVE(+2,-(SP)

MOv
MOov
MOv
MOV
MOv
MOV
Mov
MOV
MOV
MOv

000042

053530

;RO = UNIBUS ADDRESS

MOV
MOV
MOv
Mov

000006
000004

001100
001276
001464
000002

$BASE RO

001226

000001
000002
000002
000004
000004
000010
000010
000022
000022
000006
000004

TEST

SINITIALIZE STACK PCINTER

#STACK,SP

1STQUE
R
#1,8TESTN

062136

000004
000240
012706
013700

:SCOPE CALL

sSTART OF

MOV
MOV

—

MOV

005412

OO0O0O0O0O0O
R
ANAN N
= =000
MNOMNO SN

SCOPE

TeTEST 2

[

NOP
MOV

O =000

OO =
)
VSO

OO0O0O0O0O0OOOOO—~

o
o

— e

b O

T1ST1:

QO el el ol e e e e e e e
ONONOO el Z=LJ=1=]

i
o
i
el
sl
il
el

N PNIMNPORNIPONIN)
b el
H e (V] NN = = OO NN
oo ~N ooV

ed e

WNWWNNININ)
=
ooNvOCNVVOO
O

il
i
el
ol
il
)

i
s
e
—

OO0

NN
sHoonvors~

O [elolele Nololelololola)

s
e
el
i
e
i
el
b e
o
D

OO0OO0O0O0O0O0

QOO0 O00O0O0

OOO0OOODOOOOOO

000004
000006
010250
000300

302

001100
001276
001464
000001

OO0O00
MM
B
OO rO

WA = OO0 ~O VN
NO VNI
WA = OV

AR A

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

vlelaleololelelalele]

PORUININY
= bt b b ed o el d o b

SeTEST 1

FSTACK,SP

$BASE RO

AR R

MODE

PASS HANDLER
R E X

RN RN R

TEST
X

R R R

R F R

R R

s SCOPE CALL
;START OF TEST
SINITIALIZE STACK POINTER

TSTQUE
R
#2,8TESTIN

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

PC,CNTCLR

;60 ISSUE CONTROLLER CLEAR

:GO TO 2% IF NO ERROR
;RETURN HERE

ERROR

;ERROR NUMBER DEFINED BY SUBROUTINE

000004
000006
010446
000300

PRONS
=N NNNNN

—

010462

OO0OOO

424
426

000137

OO0 —O0OO0O0O0O0O0
OWOOOW———
—

——

OOOOO o

ih
e
e
e
ol o
e
e

616

COQOOOCOOO
£
—= OO~
OO

OOO0O0O0OCOOOOOO

OOOOO o
NN (V]
Oy Patl
SO0 oro

RMOS/3/72 FCINL TST 1
DEVICE AVAJLABLE TEST

MACRO v03.01

11-APR=-80

i
i

JMP

;60 TO 7% IF

MOV

ERROR

ERRVEC,=-(SP)

ERRVE(C+2,-(SP)
#5% ,ERRVEC(
PR6,ERRVEC+2

s sPUSH ERRVEC ON STACK

000004
000006

MoV
MOV
MOV

000000
000010
000006
000004
010000

001176

MOV

RMCST(RO),$TMPT

:GET DVA STATUS

(SP)+ ,ERRVEC

J:POP STACK

004000

001176

001174

MOV
MOV

MOV

001174

3%:

106112

OCOO0O0O0OO0

12-1

SEa 0085

000406
022626
012637
012637

000006
000004

000137

042100

1064113

13:04:53 PAGE

5%:

#NED ,$TMPO
3
IRR!
7%
#OVA,$TMPI
9%
112
7%

CMP

(SP)+,(SP)+

EMT

78 :
:
9%

RMCS2(RO),$TMPO ;GET NED STATUS
(SP)+ ,ERRVE(C+?
;.POP STACK INTO ERRVEC+?

8IT
8EQ
EMT
BR
817
BNE
EMT
BR
MOV
MOV

JMP

;sPUSH ERRVE(+2 ON STA(K

INTO ERRVEC

JNONEXISTENT DEVICE
JNO!!
JDEVICE AVAILABLE
JYES!!

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

113

JADJUST STA(CK

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

$EOSP

;'-ttttttlt'tl'tl""'t"""t't!lttttttt.t..t.'t"t'ttt'tt."'t't

;*TEST

DRIVE

TYPE

TEST

'-;ttttttttt.'t.tttt't"""t'ttttttltttttttl..tttttttt'tt"t"'tt

000004
000240
012706

NN
N
~N

506

013700
013701
012737
004737
000404
000240
104000
000137

532

1813:

001100
001276
001464
000003

MOV
MOV

001226

053530

001514
001515
001362

TSTQUE ,R1

s(R1)

$BASE ,RO

#3,8TESTN

JSR

PC,CNTCLR

B8R

010664

#STACK,SP

:SCOPE CALL
.START OF TEST
JINITIALIZE STACK

MOV

576

001362

024024

001362

DEVICE BEING

TEST NUMBER

;60 ISSUE

TESTED

IN APT MAIL BOX

CONTROLLER CLEAR

JERROR NUMBER DEF INED BY
;GO TO 4% IF ERROR

MOVB
MOVB
MOV

#RMDT ,GETINX
#200,GETINX+
#5% ,RMDT1

JSETUP GET INDEX TABLE
JSETUP TERMINATOR BYTE
sSET RMDT INPUT BUFFER = 5%

;GO TO 3% IF NO ERROR

JSR

3%:

EMT
JMP

PC,GET

EMT

020024

JoSET

;60 TO 2% IF NO ERROR

NOP

022737
001435
022737
001631

POINTER

JRO = UNIBUS ADDRESS

NOP

000026
000200
010670
066156

566

SCOPE
NOP
MOV

(MP
BEQ
(MP
BEQ

JRETURN HERE

ERROR

;G0 READ RMDT VIA GET
JRETURN HERE

ERROR

JERROR DEFINED BY GET

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

;SINGLE PORT RMO3 ?
JYES V!
:DUAL PORYT RMQO3 ?
JYES !

SUBROUTINE

SUBROUTINF

SURROUTINE

RMOS/3/2 FCINL TST
DRIVE TYPE TEST

MACRO v03.01

010606
010614
010616
010626

022737
001425
022737
001421

020025

001362

024025

001362

010626
010634
010636
010646

022737
001415
022737
001411

020027

001362

024027

001362

010646
010656
010662

012737
012737
104114

020024
024024

001176
001200

010664
010670

000137

042100

11-APR-80 13:04:53 PAGE

4$:
5%

12-2

SEQ 0086

CMP
BEQ
CMP
BEQ

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

;SINGLE PORT RMO2
‘YES
DUAL ponr RMO2 ?
SYES !

CMP
BEQ
CMP
BEQ

#SNGPRT!BIT1!B1TO,RMDTI
5¢
#DULPRT'BIT1'BITO.RMDT]
58

;SINGLE PORT RMOS ?
YES
DUAL Ponr RMOS ?

MOV
MOV
EMT

#SNGPRT,$TMP1
#DULPRT .$TMP2
114

;LOAD ACCEPTABLE VALUES

JMP

$EOSP

;60 TO SUBPASS HANDLER.

. t'lt'ttt't'tt't'"tt""tt""t'.""t..".."'Q"'."I.I.""'

TeTEST 4

UNIBUS

INITIALIZE

TEST

.' t't""tttttl't"t"'l'ttttt'tt."tltl.l""..."'.""".'Q'.'

010670
010670
010672
010674
010700
010704
010710
010716

000004
000240
012706
013700
0613701
012737
012737

0107264
010730
010732
010734
8}8;23

004737
000404
000240
104000
000137

053530

010742
010746
010754

012702
012737
112737

000101
000000
000022

010770
010774
010776
011000
011002
011006

004737
000404
000240
104000
000137
005302

064424

i
e
el e
e
e
e
e
e
e

e = QOO0 O0OO00O00O0
N = OO0 NO N
N —

8}8;93

011010
011012
011020
011026
01103¢
011042
011050

011056
011062

011066

112737

TSTL:
001100
001276
001464
000001
000006

011540

000200

0
001432
001543
001544

011540

001367
012737
012737
012737
012737
012737
012737

177777
177777
177777
040001
003577
021037

012702
112722

001543
000004

112722

001206
001226

000014

308 :
001414
001424
001452
001434
001410
001420

SCOPE
NOP
MOV
MOV
MOV
MOV
MOV

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

JSR
BR
NOP
EMT
JMP

2208

;60 ISSUE CONTROLLER CLEAR
260 TO 108 IF NO ERROR
JRETURN HERE IF ERROR
:ERROR NUMBER DEFINED BY SUBROUTINE
160 TO 2208 IF ERROR

MOV
MOV
MOvVB

#65. ,R2
#0,RMDBO
#RMDB,PUTINX

:SET OR AND RESET IR
*WRITE ZEROS IN DATA SILO
;SETUP REGISTER INDEX

JSR
BR
NOP
EMT
JMP
DEC
BNE
MOV
MOV
MOV
MOV
MOV
MOV

PC,PUT
30%

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE
;60 TO 30% If NO ERROR
*RETURN HERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
160 TO 2208 IF ERROR
*DECREMENT COUNT

MOV
MOVEB

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

MOVB

PC,CNTCLR
10$

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

#200,PUTINX+1

220%
R
208
‘WRITE SILO AGAIN
#-1,RMBAO
JRMBA = ALL 1'S
#-1.RMER10
CRMER1 = ALL 1°S
#-1.RMER20
‘RMER2 = ALL 1°
#DMD ' DBEN, RMMR10
:SET DIAGNOSTIC MODE
#003577,RMCS10
#021037.RMCS20

#RMER{, (R2)+

:R2 = ADDRESS OF

INDEX TABLE

e d e o

OO WU
SO
N

000404

0464424

104000

011540

004737

064120

408$:

40§

2208

JSR

PC,STKINT

SEQ 0087

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

:60 TO 40% IF NO ERROR
*RETURN HERE

IF ERROR

:ERROR # DEFINED BY PUT

160 T0 2208 IF ERROR

SUBROUTINE

SUNIBUS INITIALIZE

SINITIALIZE CONSOLE

000010

MOVB

JSR

PC.GETSTS

(R1) ,RMCS2(RO)

:SELECT DEVICE

004737
000403
000240

0441564

JSR
BR
NOP

PC,GET
50%

;GO READ REGISTER(S) WITH GET SUBROUTINE
:G0 TO S0$ IF NO ERROR
*RETURN HERE IF ERROR

2208

MOV
BIC
MOV
CMP

RMCS11,$8DDAT
#SC,$BODAT
#DVA'RDY,$GDDAT
$GDDAT,$BDDAT

:VERIFY RMCS1
: 1GNORE SPECIAL CONDITION
:EXPECT DVA & RDY
:COMPARE EXPECTED, RECEIVED

CLR

$GDDAT

:VERIFY RMBA IS ZERO

BEQ
EMT

708
116

:BRANCH

MOV
CLR
MOVB
BIS
MOV
CMP
BEQ
EMT

RMCS21,$BDDAT
-(SP)
(R1),(SP)
#IR, (SP)
(SP)+,$GDDAT
$GDDAT,$BDDAT
90$
17

:VERIFY RMCS2
SEXPECT IR & UNIT NUMBER

CLR

$GDDAT

004737

044070

104000

EMT

=220~
OO0
WD)
oSO
NNOWVMWINWNESES
NONONNOOCO

000565

013737
005046
111116
052716
012637
023737
001401
104117

001346

001142

000100
001140
001140

001142

005037

001140

OO+ O0O0

PC,PUT

JMP

RESET

12-3

111160

001142

PRORNORUNY

WRMER2,(R2)+
WRMMRT.(R2)+
WRMCST.(R2)+
WRM(S2.(R2)+
#200, (R2)+

EMT

001340

OOV

MOVB
MOVB
MOVB
MOVB
MOVB

NOP

000137

000005

13:04:53 PAGE

JSR

000240

11-APR=80

=2t OON
O
0OS

PORNINIAD
— —

—ro

C~
NN

[o « XV}
D i i i el e ed OO

&SN NN = = OO N~
OO SO STNoONONOMNY

—
— d el il i sl il il D e el e e

D el e sl D D D e
o
e

004737

000042
000024
000000
000010
000200

005037

C X

D s

OCOOOOCOOOOOOO0O0OOC

OOOOOO
OOO0O0
b

)

i
el
el

—d ol ol

)

COCOO0O0OO0OO0

cml

vl cndd —
—

) ol
—

COO0O0O0

el
v

e
e

e
il

e
el

i
et
i
it

—

OOO0O0O0OO0O00

~NO W
VNS WA= OV
—=O VRN
N—=OOV®NOWVNE WA —=O DB NO VNS W

—

il el

£
-~ OO

OO OO0

00 ~O NI~

e
e
e

i e

i
—d

—d

PNIOPININI
N =

e
e
et i

el el —

)

b e

i el e

WAV TV [V TV I VIV TV TOTON T IV, VY, V1,61 N7, N}

el —D e

el i
el

o B oF ol o

ld
sl o

B ok 2l o

il —
—

) ——

) ——ll

l —m

h —

d cl —h

[e Yo Yo SV IV IV IV IC LV IV IV JC VP

112722
112722
112722
112722
112722

MACRO v03.01

013737
042737
012737
023737

WML
(Vo Bk 2l IV IV 1,91, 8]

FCTNL TST 1
NITIALIZE TEST

001401
106115

013737
001401
104116

013737
042737
001401

001334
100000
004200
001140

001140

001350
040000

001142
001142
001140
001142

001142
001142

50%:

BEQ
EMT

608 :

70$:

908 :

104120

013737
005002

116102
000302
005102
000240
040237

001401

104121

MOV

MOV
BIC
BEQ
EMT

001352
000001

001142

110%:

60$
115

RMBA],$BDDAT

RMER1],$BDDAT
SUNS , SBDDAT
110%
120

MOV
CLR

RMAS],$BODAT
RZ

NOP
BIC

R2,$BDDAT

MOVB
SWAB
CoM

BEQ
EMT

1(R1),R2
R?2
R2

1308
121

260 SET UP FOR STATUS FETCH

SERROR # DEFINED BY GET

SSKIP REMAINDER OF

:BRANCH IF

TEST

SUBROUTINE

EQUAL

ZERO

:COMPARE EXPECTED & RECEIVED
‘BRANCH IF EQUAL

;VERIFY RMERI
: IGNORE UNSAFE
*BRANCH I+ ZERO
SVERIFY RMAS
sCLEAR ALL BUT THIS

:DRIVES ATTENTION BIT

;BRANCH IF 115 0

011526
011534
011536
011540

B S WNNINOWNES
=2 PO

011502
011504
011512
011520

—
—

—

muv

—

~—

Y
-t

——y

—

=S yNNN
PO
NN
Ny~

011460
011464
011472
011500

MACRO v03.01

11-APR-80 13:04:53 PAGE

12-4

Sea 0088

2
2

130%:

001142

001374

011777
001140

2
2
0
2

001140
001376
040200

2
2

1640000

001346

001142

177177
000600

42
40

MOV
BIC

MOV

1708:

;COMPARE EXPECTED AND RECE]VED
:BRANCH IF 0

(LR

$GDDAT
RMEC21,$BDDAT

;EXPECT ZEROS
;VERIFY RMEC2 = 0

RMMR21,$BDDAT

;VERIFY RMMR2

MOv

MOV
8IC
MOV
CMP

BEQ
EMT

210%:

215%:

220%:
S

SCT,

$GDDAT,$BDDAT
170%
122

BEQ
EMT

190$:

RMMR11,$BDDAT
;VERIFY RMMR
PuC!LS'LST,SBODAT
: IGNORE WORD (LOCK,
MWD ,$GDDAT
;EXPECT WRITE DATA BIT

CMP

BEQ
EMT

011424
011432
011440
011446
011454
011456

=LNNNN=
S YN
NIONINNINNO
NN
W=NINNNN
= NN

= LN
W

—OQ0O0O
—-OO0000
CO—=-=0O
OON
s~ —
L el VLV, B
R VT N N1V ]
=P NO
NN
O W
NDO NN
St NN
NN

#RQA 'RGB, $BDDAT

#TSTi177F,$GDDAT
2108
125

#SK1'0VC,$BDDAT

Bi(
MOV

#*(C<DPR!DRY>,$BDDAT
#DPR'DRY,$GDDAT ;EXPECTED

BEQ
EMT
MOV

CMP
BEQ
EMT

AL S22

TRk

;EXPECT TEST,TAG BIT ON

$GODAT,$BDDAT

CLR
MOV
8IC

SeTEST &

$GDDAT
RMER2] ,$BDDAT

JEXPECT ALL ZEROS
JVERIFY RMER?
;IGNORE

%;%3

DEVICE

;BRANCH IF

ERRORS

OTHER BITS 0

RMDS] ,$BDDAT

s CHECK

$BDDAT,$GDDAT
$§g$

s COMPARE EXPECTED & RECEIVED
;DRIVE STATUS IS 0K

CONTROLLER

CLEAR

DRIVE

STATUS REGISTER

STATUS

R R R

R R

STATUS

2R XX

TEST

':'lt".."..."""'"'""""...lltl".'t"'..tt't"'ltll""'

001100
001276
001464
000005

004737

053530

001226

012076

044424

L ol2V
Hmr

20%:

#STACK,SP

. SCOPE CALL
:START OF TEST

sINITIALIZE

STACK

POINTER

$BASE RO
TSTQUE ,R1
#5,8TESTN

;RO = UNIBUS ADDRESS
:(R1) = DEVICE BEING TESTED
;oSET TEST NUMBER [N APT MAIL BOX

JSR
BR

PC,CNTCLR

260

JMP

80%

MOv
MOv
MOvB
MovB

n65. ,R2
#0,RMDBO

JSR
BR

PC,PUT

MOV

10%:

000101
000000
000022
000200

SCOPE
NOP
MOV
MOV
MOV

NOP
EMT

—

011566
011572
011574
011576
011600
011604
011604
011610
011616
011624
011632
011632
011636

1S715:

000004
000240
012706
013700
013701
012737

(S LV P

011540
011540
011542
011544
011550
011556
011560

OO
OO0

NI NN = OO 00~
NO NI NN = OO 00N
NN =2 OOV
N

011406
011412
011420
011422

—O0O000O0
OO
—

N
N

s
e
e
ed
—

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

011352
011360
011366
011374
011402
011404

N
A

= O00O00O
— QOO0
o0 Nt P = OQOH
=2 O

>»
o

=
=

O O 0 0O 0o 0O OO OO O0O00000 NN NN NNNNNNOOTOO
OO

d
e

—

S~
Pl

RMOS5/3/ 2
UNIBUS IN

108

#RMDB,PUTINX

#200,PUTINX¢]

30%

ISSUE

CONTROLLER

CLEAR

;60 TO 108 IF

NO ERROR

;60 TO BOS

ERROR

;RETURN HERE IF ERROR
:ERROR NUMBER DEF INED BY SUBROUTINE

;WRITE

ZEROS

IN DATA SILO

;SETUP REGISTER

<60 WRITE

INDEX

.60 1O 30% IF

NO ERROR

TABLE

WITW PUT

SUBROUTINE

(W
al
)

RMMAQ RMOS/3/2 FCINL TST 1
CONTROLLER CLEAR TEST

011640
011642
011644
011650
011652
011656
011662
011670
011676
011704
011712
011720
011724

000240
104000
000137
005302
001367
012737
012737
012737
012737
012737
012737
012702
112722

011736
0117640
0117644
011750
011756
011760
0117646
011766
011770
552 011772

112722
112722
112722
112722
112722
0047
000403
000240
104000
000430

000042
000024
000000
000010
000200
064426

225 011774
226 011774
012000
012002
0120064
012006
ggg 012012

004737
0004604
000240
104000
000137
004737

053530

229 012016
012022
012024
012026
012030

004737
0004604
000240
104000
000137

0464156

006737
000405
000240
104000
004736
000137

053646

012737

000000

235 012062

004737

0466004

012070
012072
012074
5;9 012076

000240
104000
004736

206
207
208
209
210
211
212
213
216
215

216 011730

17
218
219
220
221
222

230 012034
231 012034

012040

012042
012064
012046
012050
232 012054
S§S 012054
&

012066

258

112722

000403

MACRO v03.01

012076
177777
177777
177777
060001
003577
021037
001543
000004

11-APR-80

NOP
EMT
JMP
DEC
BNE
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOVB

308 :
001414
001424
001452
001434
00410
001420

000014

MOVB

408:

012076
044070

508 :

012076

608:

012076
001410

PC,CNTCLR
50$

808 :
TR0

'-rtsr 6

7c8

80%
PC.GETSTS

JSR
BR
NOP
EMT
JMP

PC,GET
60%

JSR
BR

PC,CLRSTS
70§

JSR

NOP
ENT
JSR

INDEX TABLE

#RMERT,(R2)+

JSR
BR
NOP
Em
JMP
JSR

B8R

SEQ 0089

80%
R2
20%
#-1,RMBAO
#-1.RMER1D
#-1 RMER20
#DMD ' DBEN, RMMR10
#003577,RMCS10
#021037.RNCS20
#PUTINX, R
;R2 = ADDRESS OF
#RMBA,(R2)e

WRMER2. (R2)+
#RMMR1.(R2)+
#RMCS1.(R2)+
SRM(S2.(R2)+
#200, (R2)+
PC,PUT
40%

nov

12-5

JRETURN MERE IF ERROR
ZERROR # DEFINED BY PUT SUBROUTINE
260 TO 80$ I1F ERROR
:DECREMENT COUNT
AND WRITE SILO AGAIN ]F NOT DONE

MOVB
MOVE
MOVB
MOVB
MOVB
JSR
BR
NOP
EMY
BR

NOP
EMT
JSR
JNP

708:

13:04:53 PAGE

80$

;00 WRITE REGISTER(S) W]lTw PUT SUBROUTINE
;60 TO 40% ]F NO ERROR
JRETURN HERE JF ERROR
JERROR # DEFINED BY PUT SUBROUTINE

;60 1SSUE CONTROLLER CLEAR
160 T0 SOS IF NO ERROR
;RETURN MERE ]F ERROR
JERROR NUMBER DEFINED BY SUBROUTINE
260 TO 80% If ERROR
SSETUP TO READ ALL REGISTERS
:60 READ REGISTER(S) WlTM GET SUBROUT INE
260 T0 608 IF NO ERROR
;RETURN MERE ]F ERROR
ZERROR # DEFINED BY GET SUBROUTINE
260 10 808 IF ERROR

PC,a(SP)¢
80%

;60 VERIFY CONTROLLER CLEAR OPERATION
:60 10 708 IF NO ERROR
SRETURN HERE ]F ERROR
;ERROR # DEFINED BY CLRSTS SUBROUTINE
;60 BACK FOR MORE ERROR (ME(KS
160 TO 80% IF ERROR

#NOP ,RM(S10

;CHANGE

PC,SECERR

80$

P(,8(SP)¢

FUNCTION CODE FOR ERROR (ME(K

:60 CHECK FOR SECONDARY ERRORS

:60 TO 808 IF NO ERROR

*RETURN WERE |F ERROR
“ERROR # DEF INED BY SECERR SUBROUT INE
;60 BACK FOR MORE ERROR (ME(KS

ORNCR OO0 C 00 CCORRRCRORROCORORRRRCRORERRORRRGRORROSORORETDTS

ERROR (LEAR TEST

RMMAQ RMOS/3/72 FCINL

ERROR (LEAR

012076

TST

TEST

MACRO v03.01

tsre:

012076
012100
012102
012106
012112

000004
000240
012706
013700
013701

260 012124
012130
012132
012134
201 8}%}22

004737
000404
000240
104000
000137

262 012142
012150
012156
012166
012170
012172
012174

112737
112737
012737
006737
000403
000240
104000

000000
000200
040000
064424

001543
001544
001410

001514
001515
001516

239 012116

012737

001100
001276
001464
000006

112737
112737
112737

000000
000010
000200

248 012222

004737

0641564

012230
012232
249 012234

000240
104000
000422

251
252
253
ggg

012244
012250
012256
012260

005037
042737
001401
104137

001140
117777

256
257
258
523

012262
012270
012276
012300

013737
042737
001401
104140

001344
104377

250 012236

000403

013737

001226

012302

000441

012226

SCOPE
NOP
MOV
MOV
MOV
MOV

053530

263 012176

266 012200
245 012206
S:? 012214

11-APR-B0

001334

105

MOvVB
MOVB
MOV
JSR
BR
NOP
EMT

ARN(ST ,PUTINX
#200,PUTINXel
#TRE ,RMCS10
PC,PUT
208

MOVB
MOVB
MOVB

SRMCST,GETINX
ORMCS2 ,GETINX®1
#200,GETINX+?2

JSR

PC,GET

NOP
EMT
BR

30%:

MOV

001142

001142
001142

40$:

PSTACK,SP
$BASE RO
TSTQUE ,RI
#6,8TESTN
PC,CNTCLR
10$

001142

12-6

JSR
BR
NOP
EMT
JMP

B8R

20$:

13:04:5% PAGE

50%

508

SEG 0090

;SCOPE CALL
JSTART OF TEST
CINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS
;(R1) = DEVICE BEING TESTED
S;SET TEST NUMBER IN APT MAIL BOX
;60 ISSUE CONTROLLER CLEAR
;60 T0O 108 IF NO ERROR
;RETURN MERE ]F ERROR
;ERROR NUMBER DEF INED BY SUBROUTINE
;60 T0 S0% IF ERROR

JSETUP PUT INDEX TABLE
:SET TERMINATOR BYTE
:SET RMCS1 OUTPUT BUFFER = TRE
;60 WRITE RMCS) VIA PUT SUBROUTINE
;60 TO 208 IF NO ERROR
;RETURN HERE ]F ERROR
;ERROR DEFINED BY PUl SUBROUTINE

;SKIP REST OF TEST

;60 READ REGISTER(S) WITH GET SUBROUTINE

304

160 TO 308 IF NO ERROR

50%

RMCS11,8$BDDAT

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

;CHECK TRE & MCPE

CLR
BIC
BEQ
EMY

$GDDAT
JEXPECT 0°S
#~C<TRE'MCPE>,$BDDAT
40%
;BRANCH IF TRE & MCPE
137

MOV
BIC
BEQ
EMT

RMCS2]1,8BDDAT
;CHECK RM(CS2
#*C<WCE'UPE
'NED ' PGE 'MXF 'MDPE >, $BDDAT
508
140

= 0

Sg; 012302

50%:

263

.'.'ll.'t."ttttt".'0'!""""'.i"".'.l"t""ltlll."'t"ttt't

JvTEST

DRIVE

STATUS TEST

,':t.'l'.."".""'lt""'t"'.'l'.l'.l'tl'tt".'."t.l'lll"t.'.

012302
012302
0123064

000004
000240

012322

012737

012306
012312
0127°6

265 012330

1517:

012706
013700
013701

001100
001276
001464

004737

053530

000007

001226

SCOPE
NOP

MOV
MOV
MOV

#STACK,SP
$8ASE ,RO
TSTQUE ,R1

JSR

PC,CNTCLR

MOy

#7.8TESTN

:SCOPE CALL
JSTART OF TEST

SINITIALIZE STACK POINTER
JRO = UNIBUS ADDRESS
;(R1) = DEVICE BEING TESTED

J:SET TEST NUMBER IN APT MAIL BOX

;60 I1SSUE CONTROLLER CLEAR

-y

RMMAO RMO5/3/2 FCINL TST
DRIVE STATUS TEST

MACRO v03.01

N
7
11-APR-80 13:04:53 PAGE 12-7
SEQ 0091

012334
012336
012340
012342
266 012346
%gg 0123646

000404
000240
104000
000137

012616

004737

064070

269 012352
012356
012360
012362
270 012364
271 012366
272 012374
273 012376
2764 012406
275 012412
276 012620
277 012426
%;g 012430

004737
000403
000240
104000
000514
032737
001016
013737
042737
052737
013737
104151
000440

044156

280
281
282
283
%gg

012432
0126440
0126442
012450
012454

032737
001422
013737
005037
104152

000200

001376

001376
001140

001142

MOV

286
287
288
289
290
53;

012456
012464
012466
0126474
012502
012504

032737
001022
013737
012737
104153
000412

040000

001350

001350
040000

001142

BIT
BNE
MOV
MOV
EMT
BR

293
294
295
296
297
ggg

012506
012514
012516
012526
012530
012532

032737
001410
013737
005037
104154
000137

040000

300
301
302
303

012536
012544
012546
012554

032737
001412
013737
042737

004000

001346

001346
166076
001346

001140
001140
001142

040000

001376

001376
001140

001142

304 012562
ggg 012570

307
308
309
310
311
312
313
314

012572
012600
012602
012610
012614
012616

013737
104175

032737
001406
013737
005037
104205

NOP

10%:

010000

208%:

001346
162000
010000
001346

001350
001140

100%

JSR

PC,GETSTS

JSR
BR
NOP
EMT
BR

PC,GET

BIT

BNE
MOV

MOv

EMT
BR

001350

60%:

001142

042100

BIT
BEQ
CLR
EMT

001140

BIT
BEQ

MOv
CLR

70%:

80%:

90%:

EMT
JMP

BIT

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

20$

JRETURN HERE

100%

;SKIP REST OF

ERROR

TEST

JMEDJUM ON LINE??

#MOL ,RMDS]

30%

JYES!!

RMDS1,$GODAT

JEXPECTED STATUS

FATA'ERR!PIP!LBT .SGDDAT

#MOL ,$GDDAT
?2?SI,$BDDAT

+RECEIVED

STATUS

sMOL STATUS INCORRECT

70%
#DOVC,RMERZ2I

;1S THERE A DEVICE CHECK??
:BR IF NO
SRECEIVED STATUS
;EXPECTED STATUS
;DRIVE FAULT

60%
RMERZ21,$BDDAT
$GDDAT
152

;1S UNS SET??

#UNS ,RMER1I

70%
RMER1],$BDDAT
:ggS.SGDDAT

JYES!!

JRECEIVED STATUS
JEXPECTED STATUS
;"'DVC'" 1S SET BUT ‘'UNS'' IS NOT

70%

;1S UNS SET??

#UNS ,RMER1]

80%
RMER11,$BDDAT

JNO!!

$GODAT
154
$EOSP

JRECEIVED STATUS
JEXPECTED STATUS
J"DVC'' IS NOT SET, BUT "UNS'' IS
;SKIP REST OF TEST

#WRL ,RMDS]

:§S|HRITE PROTECT ON??

#SK1,RMERZ]

TeTEST 10

sERROR # DEFINED BY GET SUBROUTINE

BIT
BEQ

22222222222

ERROR

;GO TO 100% IF ERROR

90%
RMDSI,$GODAT

CLR
EMT

;ERROR NUMBER DEFINED BY SUBROUTINE

BEQ
MOV
BIC
MOv
EMT

MOV

100$:

+RETURN HERE

EMT
JMP

BIC
BlS

30%:

;60 TO 108 IF NO ERROR

10%

“EXPECTED STATUS

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

;SELECTED DEVICE IN WRJTE PROTECT

175

;1S SKI SET??

100%
RMER2] ,$BDDAT
$GDDAT

;RECEIVED STATUS
JEXPECTED STATUS
;PERSISTENT SEEXK INCOMPLETE ERROR

205

PRIMARY/SECONDARY

RN R

ERROR

TEST

RERRRER RN

PRIMARY/SECONDARY

ERROR

MACRO v03.01 11-APR-80 13:04:53 PAGE 13'8
TEST

";.'".."""Q"'"'."Q"""'.""'."."...'..'."""t"""

012616
012616
010620
012622
012626
012632
s 012636

000004
000240
012706
013700
013701
012737

316 012644
012650

004737
000404

317
318

319
320
gg;

012652
012656
012656
012662
012662
012670
012676
012706
012710
012712
012716
012716
012720
012726

323 012730
012736
012736
012740
324 012742
325 012744
326 012744
012750
012752
012754
012756
327 01°760
328 01¢.62
329 012762
012766
012770
012772
012774
gg? 012776

000240
104000
000137

1§110:
001100
001276
001464
000010

001226

053539

012776

112737
112737
012737
004737
000403
000240
104000
000427
004737
006737

000000
000200
000023
044424

004737
000403
000240
104000
000415

044154

004737
000404
000240
104000
004736
000406

045152

004737
000403
000240
104000
004736

046004

001543
001544
001410

044070
046766

18:

SCOPE
NOP
MOV
MOV
MOV
MOV

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

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

JSR
BR
NOP
EMT
JMP

PC.CNTCLR
18

:60 1SSUE CONTROLLER CLEAR
160 TO 18 IF NO ERROR

MOVB
MOVB
MOV
JSR
BR
NOP
EMT
BR
JSR
JSR

WRMCS1,PUTINX
;SETUP PUT INDEX TABLE
#200,PUTINXs1
:SET TERMINATOR BYTE
#PAKACK ' GO,RMCS10
;SET RMCS1 OUTPUT BUFFER = PAKACK !GO
PC,PUT
;60 WRITE RMCS1 VIA PUT SUBROUTINE
2%
160 TO 28 IF NO ERROR
:RETURN WERE IF ERROR
:ERROR DEFINED BY PUT SUBROUTINE
5%
*SKIP REST OF TEST IF ERROR
PC.GETSTS
*SETUP FOR STATUS FETCH
PC.T 0uT
:WAIT FOR COMPLETION OF NOP

JSR
BR
NOP

PC.GET
38

5¢

JSR
BR
NOP
EMT

PC.PRIERR
X3

JSR
BR

PC.A(SP)+
5

JSR
BR
NOP
EMT
JSR

PC.SECERR
5¢

EMT

332

PC.a(SP)+

*RETURN HERE IF ERROR
:ERROR NUMBER DEFINED BY SUBROUTINE
160 10 58 IF ERROR

;60 READ REGISTER(S) WITH GET SUBROUTINE
160 TO 38 IF NO ERROR
‘RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE

*SKIP REST OF TEST IF ERROR

;60 CHECK FOR PRIMARY ERRORS
16O TO 4$ IF NO ERROR
*RETURN HERE IF ERROR
"ERROR # DEFINED BY PRIERR SUBROUTINE

G0 BACK FOR MORE ERROR CHECKS
*SKIP REST OF TEST IF ERROR

;GO CHECK FOR SECONDARY ERRORS
160 TO 58 IF NO ERROR
:RETURN HERE IF ERROR
‘ERROR # DEFINED BY SECERR SUBROUTINE
160 BACK FOR MORE ERROR CHECKS

""t'.'lttlt.t't"""Q"""'t't't't"l..'.t".t"'ilt""'ttt.t'

SRTEST 1

DIAGNOSTIC MODE TEST

.'"'l.t'."l't.""t!i""'"ti"l'tt.t'tl'.t.ltt't."i.t'ttilt!'t

333

012776
012776
013000
013002
013006
013012
013016

000004
000240
012706
013700
013701
012737

18111

001100
001276
001464
000011

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

FSTACK,SP
$BASE , RO
TSTQUE, R
#1,$TESTN

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

SEQ 0092

-t

MMAQ RMOS/3/2 FCTINL TST )

—

MMAQ RMO5/3/2 FCINL TST 1
DIAGNOSTIC MODE TEST

334 013024
013030
013032

004737
000404
000240

053530

335 8}%828

000137

014050

336 013042
013050
013056
0130664
013070
013072
013074
013076
g%g 013102

112737
112737
012737
004737
000404
000240
104000
000137
004737

000024
000200
000001
044426

339 013106
013112
013114
013116
013120
340 013124
341 013132
342 013134
343 013142
346 013150
345 013152
3646 013156
347 013164

004737
000404
000240
104000
000137
032737
00101
012737
013737
104176
000137
032737
001611

013034

348
349
350
351
352
353
356
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
376
375

013166
013176
013202
013206
013210
013216
013220
013226
013234
013242
013244
013252
013254
013262
013270
013274
013276
013304
013306
013314
013322
013326
013330
013336
013340
013346
013354
013360

104000

013737
042737
005037
104177
032737
001012
013737
0462737
012737
104200
032737
001411
013737
062737
005037
104201
032737
001411
013737
042737
005037
104202
032737
001411
013737
042737
005037
104203

MACRO v03.01

001360

000001
001360

001140
001142

014050
010000

001346

001346
167777
001140

001142
001142

020000

001346

001346
157777
020000

001142
001142
001140

006000

001346

001346
173777
001140

001142
001142

040000

001376

001376
137777
001140

001142
001142

000200

001376

001376
177577
001140

001142
001142

SEQ 0093

PC,ONTCLR
1%

;GO0 ISSUE CONTROLLER CLEAR
;G0 _TO 18 IF NO ERROR
;RETURN HERE IF ERROR

22%

;60 TO 22% IF ERROR

#RMMR1,PUTINX
#200,PUTINX+1
#OMD ,RMMR10
PC,PUT
2%

2%:

Move
MOovB
MoV
JSR
B8R
NOP
EMT
JMP
JSR

;SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
:SET RMMR1 QUTPUT BUFFER = DMD
;G0 WRITE RMMR1 VIA PUT SUBROUTINE
;60 TO 28 IF NO ERROR
;RETURN HERE IF ERROR
:ERROR DEFINED BY PUT SUBROUTINE
;60 TO 228 IF ERROR
;SETUP FOR STATUS FETCH

JSR
BR
NOP
EMT
JMP
BIT
BNE
MoV
MOV
EMT
JMP
BIT
BEQ

PC.GET
3%

044154

014050
000001

12-9

JSR
BR
NOP
EMT
JMP

001543
001544
001634

014050
044070

11-APR-80 13:04:53 PAGE

3%:

5S:

6$:

78:

8$:

9%:

MOV
BIC
CLR
EMT
BIT
BNE
MOV
BIC
L)
EMT
BIT
BEQ
MOV
BIC
(LR
EMT
BIT
BEQ
MOV
BI(
CLR
EMT
BI17
BEQ
MOV
BI(
(LR
EMT

22%
PC,GETSTS

22%
#OMD ,RMMR11]
5%
#DMD ,$GDDAT
RMMR11,$BDDAT
176
22%
WMOL ,RMDS |
6%
RMDS1 ,$BDDAT
#*CMOL
, $BDDAT
$GODAT
177
#P1P ,RMDS]
7%
RMDSI,$BODAT
#*CPIP,$BDDAT
#P1P,$GDDAT
200
#WRL ,RMDS]
8$
RMDS] ,$BDDAT
#*CWRL ,$BDDAT
$GDDAT
v
201
#SK1,RMERZ]
9$
RMER2],$BDDAT
#*CSK]1,8BDDAT
$GDDAT
202
#DVC ,RMER?]
10%
RMER21,$BDDAT
#°COVC,9BDDAT
$GODAT
203

;ERROR NUMBER DEF INED BY SUBROUTINE

;G0 READ REGISTER(S) WITH GET SUBROUTINE
;G0 TO 38 IF NO ERROR
;RETURN HERE IF ERROP
;ERROR # DEFINED BY GET SUBROUTINE
;60 TO 228 IF ERROR
;1S
DIAGNOSTIC MODE SET??
JYES!!
;EXPECTED STATUS
;RECEIVED STATLS

:SKIP REST OF TEST IF DMD = 0
;1S 'MoL'" =0
7
JYES!!
;SETUP BAD DATA FOR TYPEOUT
;SETUP GOOD DATA FOR TYPEOUT
;IS PIP
SET??
JYES!!
;SETUP BAD DATA FOR TYPEOUT
;EXPECTED PIP SET

;1S WRITE LOCK OFF??
JYES!!
;SETUP BAD DATA FOR TYPEOUT
EXPECTED WRL = 0
;1S Skl = 0
JYES.!
;SETUP BAD DATA FOR TYPEOQUT
;SK1

SHOULD BE 0

;1S DEVICE CHECK = 0?7
JYES!!
;SETUP BAD DATA FOR
TYPEOU!
;DvC SHOULD BE 0

RMOS/3/72 FCINL TST

DIAGNOSTIC MODE

TEST

013362
013362
013370
013376
013604

112737
112737
012737
004737

000024
000200
001711
064424

0136412
013414
8%%253

000240
104000
000137

014050

013622

004737

044156

013430
013432
01
01
01
01
01
01
01
013472
013500
013502
013510
013516
013524
013526
013534
013536
013544
013552
013556
013560
013566
013570
013576
0136
013
013
013
o
01
01
01

000240
104000
000137
032737
001011
012737
013737
104176
000137
032737
001012
013737
042737
012737
104177
032737
001411
013737
042737
005037
104200
032737
001012
013737
042737
012737
104201
032737
001012
013737
042737
012737
104202

01
612 01
013666
013
013
013

001012
013737
042737
012737
104203
032737

313610

013426

Pl all AN ol N0 o
[ U]\ PR PRV G
P

)

~ OO0
~NO NS

013
013
013
013
013

000404

032737

001411
013737
042737
005037
104204

MACRO v03.01

001543
001544
(CO0143¢

108:

11-APR-80 13:04:53 PAGE

MOVB
MOVB
Mmov
JSR

BR
-

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
001142
001140

000100

001346

001346
177677
001140

001142
001142

12%:

125%:

13$:

14%:

15%:

16%:

17%:

SEQ 0094

WRMMR,PUTINX
;SETUP PUT INDEX TABLE
#200,PUTINX+1
:SET TERMINATOR BYTE
#OMD .MUR 'MOC 'MSER'MDF ' MWP ,RMMR10
;SET RMMR1 QUTPUT BUFFER = DMD MUR M
PC,PUT
;G0 WRITE RMMR1 VIA PUT SUBROUTINE

11§

160 TO 118 IF NO ERROR

NOP
EMT
JMP

228

*RETURN MERE IF ERROR
*ERROR DEFINED BY PUT SUBROUTINE
260 TO 228 IF ERROR

JSR

PC,GET

;60 READ REGISTER(S) WITH GET SUBROUTINE

014050
000001

12-10

NOP
EMT
JMP
BI7
BNE
MOV
MOV
EMT
JMP
BIT
BNE
MOV
BlC
MOV
EMT
BIT
BEQ
MOV
BIC
CLR
EMT
BIT
BNE
MOV
BIC
MOV
EMT
BIT
BNE
MOV
BIC
MOV
EMT

BIT

BNE
MOV
BIC
MOV
EMT
BIT

BEQ
MOV
BIC
CLR
EMT

126

22%
#DMD .RMMR1 ]
1258
#DMD, SGDDAT
RMMR11,$BODAT
176
22%
#MOL ,RMDS ]
138
RMDS1,$BDDAT
#~(CMOL ,$BDDAT
#MOL , SGDDAT
177
#P1P,RMDSI
148
RMDS]1,$BDDAT
#*~CP1P,SBDDAT
$GDDAT
200
#WRL ,RMDS |
15
RMDSI ,$BDDAT
#*CWRL ,$BODAT
FURL ,$GDDAT
201
#SK1,RMER2]
16%
RMERZ] ,$8DDAT
#*CSK1,SBODAT
#SK1,$GDDAT
202

#DVC ,RMER?2]

17%
RMER21,$BODAT
#*COVC,$BODAT
#0VC,SGDDAT
203
#VV,RMDS |

19%
RMDS1,$BODAT
#*CVV,$BODAT
$GDDAT
206

160 TO 128 IF NO ERROR

:RETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
260 TO 22% 1F ERROR
;1S
DIAGNOSTIC MODE SET??
SYES!!
CEXPECTED STATUS
-RECEIVED STATUS
;SKIP REST OF TEST IF DMD = 0
SIS MoL = 122
SYES!!
;SETUP BAD DATA FOR TYPEOQUT
;EXPECTED MOL = 1

;1S PIP = 0 2
TYES!!
;SETUP BAD DATA FOR TYPEOUT
JEXPECTED PIP STATULS

;1S WRL SET??
TYES!!
;SETUP BAD DATA FOR TYPEOQUT
JEXPECTED GOOD STATUS
;1S SKI SET??
SYEST!
;BAD DATA FOR TYPEQUT
;EXPECTED SKI

;15 DVC SET

SYES!!
:BAD DATA FOR TYPEQUT

;EXPECTED DVC ON
:MUR SHOULD HAVE RESET VOLUME VALID
:BRANCH IF IT DID
*BAD DATA FOR TYPEOUT
;600D DATA FOR TYPEOUT

— Py

MMAO RMOS5/3/2 FCINL TST 1
DIAGNOSTIC MODE TEST

422 013736
423 013736

112737

000000

004737
000404

044426

013744
013752

112737
012737

013766
013770
013772

424 013776
425 013776

000240
104000
000137

014050

004737

0464154

426
427
428
429
430
431

032737
001012
013737
012737
062737
104262

013760
013764

014002
014004
014006
014010

01464014
0164022
014026
014032
0164040
016046

:gg 014050

000404
000240
104000
000137

000200
000011

014050

MACRO v03.01

001543

198

001544
001410

001376

001376
002000
002000

001142
001140
001142

21%:

22%:

43‘

12-11

SEQ 0095

MOvB

NRMCST,PUTINX

JSETUP PUT

JSR
BR

PC,PUT
20§

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

MOVB
MOV

208:

002000

11-APR-80 13:04:53 PAGE

INDEX TABLE

#200,PUTINX+)
JSET TERMINATOR BYTE
#DRVCLR!GO,RMCS10
-SET RMCS1 OUTPUT BUFFER = DRVCLR.GO

NOP
EMT
JMP

22%

‘RETURN HERE IF ERROR
JERROR DEF INED BY PUT SUBROUTINE
160 TO 22% IF ERROR

JSR

PC,GET

.GO READ REGISTER(S) WITH GET SUBROUTINE

BIT
BNE
MOV
MOv
BIC
EMT

#LBC,RMERZI
228
RMERZ21,$BDDAT
#LBC, $GDDAT
#LBC., $BDDAT
262

BR
NOP
EMT
JMP

21%
22%

260 TO 218 IF NO ERROR
;RETURN HERE IF ERROR
JERROR ¥ DEFINED BY GET SUBROUTINE
160 10 228 IF ERROR
;IS LBC SET 27
SYES!!
;BAD DATA FOR TYPEOUT
;GO0D DATA FOR TYPEOUT

:"it"tt'tt'ttt"""t"tttttt'tl"tt.t'ttt.'ttttttttttttttt't!tt

;*TEST

PACK

ACKNOWLEDGE

TEST

;.'tt.tlttttttt.'t't""'t"ttttttttt'.tltt'tttt"ttt"'ttt'tt"tt

014050
014050
014052
014056

014060
014064
035 014070
436 014076

016102
014106
014106
014110
437 014114

438 014114

016122
014130
014136
014142
014144
014146
014150
439 014154
440 0146154

016162
014170
01464176
014202
0146206
014206
014210

000004
000240
012706

18112:

013700
013701
012737

001100
001276
001464
000012

004737

053530

000404
000240
104000
000137
112737

112737
012737
004737
0004604
000240
104000
000137
112737

112737
012737
004737
000404
000240
104000
000137

001226

014350
000024

000200
000001
044424

001543

001544
001434

014350
000024

000200
000000
044424

014350

001543

001544
001434

2%:

SCOPE
NOP
MOV
MOV
MOV
MOV

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

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

JSR

PC,CNTCLR

;60 ISSUE

;60 TO 1% IF NO ERROR
:RETURN HERE ]F ERROR
;ERROR NUMBER DEFINED BY SUBROUTINE
260 TO 9% IF ERROR

MOVB

¥RMMR1,PUTINX

JSETUP PUT

INDEX TABLE

JSET TERMINATOR BYTE
;SET RMMR1 OUTPUT BUFFER = DMD
;60 WRITE RMMR1 VIA PUT SUBROUTINE
;GO TO 2% IF NO ERROR
RETURN HERE 1F ERROR
JERROR DEFINED BY PUT SUBROUTINE
260 T0 9% IF ERROR

#RMMR1,PUTINX

JSETUP PUT

INDEX TABLE

MOvVB
MOV
JSR
B8R
NOP
EMT
JMP
MOVB

MOVB
MOV
JSR
BR
NOP
EMT
JMP

CONTROLLER CLEAR

BR
NOP
EMT
JMP

#200,PUTINX+1
#DMD ,RMMR10
PC,PUT
2%

#200,PUTINX®T
#0,RMMR10
PC.,PUT
3
9%

JSET TERMINATOR BYTE
SSET RMMR1 OUTPUT BUFFER = 0
;60 WRITE RMMR! VIA PUT SUBROUTINE
260 TO 3% IF NO ERROR
;RETURN HERE ]F ERROR
:ERROR DEFINED BY PUT SUBROUTINE
G0 T0 9% IF ERROR

MMAQ RMO5/3/2 FCINL TST 1
PACK ACKNOWLEDGE TEST

441 016214
442 016214

112737

000000

663 0164256
::g 014260

006737
004737

044070
044766

446 0164266

0064737

044154

447 016276
448 014300
449 016300

000426

016222
014230
014236
016242
016264
016246
0164250

016270
014272
0164274

0143064
014306
014310
0164312

112737
012737
004737
000404
000240
104000
000137

000403
000240
104000

004737

000404
000240
104000
004736

450 014314
451 014316
452 014316

004737

014324
0164326
014330

000240
104000
004736

0164322

422 014332

000200
000023
044424

MACRO v03.01

13:04:53 PAGE

12-12
SEQ 0096

001543

MOVB

001544
(01410

014350

WRM(S1,PUTINX

;SETUP PUT

JSR
JSR

PC.GETSTS
PC.TIMOUT

;WAIT FOR COMPLETION

JSR

PC,GET

;GO READ REGISTER(S)

SSKIP REMAINDER Of

JSR

PC,PRIERR

MOVB
MOV
JSR
BR
NOP
EMT
JMP

BR
NOP
EMT
5¢

045152

BR
NOP
EMT
JSR

000415

000404

11-APR-80

6%:

054526

JSR

B8R

NOP
EMT
JSR

000406

INDEX TABLE

#200,PUTINX+1
:SET TERMINATOR BYTE
#PAKACK ' GO,RMCS10
SSET RMCS1 OUTPUT BUFFER = PAKACK.GO
PC,PUT
;60 WRITE RMCS1 VIA PUT SUBROUTINE
43
:GO TO 4$ IF NO ERROR
"RETURN HERE IF ERROR
*ERROR DEFINED BY PUT SUBROUTINE
9%
260 TO 98 IF ERROR

5¢

WITH GET

:G0 T0 5% IF NO ERROR
SRETURN HERE IF ERROR
ZERROR # DEFINED BY GET
;60 CHECK

TEST

SUBROUTINE

FOR PRIMARY ERRORS

PC,a(SP)+

260 TO 68 IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEFINED BY PRIERR SUBROUTINE
260 BACK FOR MORE ERROR CHECKS

PC,ACKSTS

;60 VERIFY PACK ACKNOWLEDGE

PC,a(SP)+

*RETURN HERE IF ERROR
*ERROR # DEFINED BY ACKSTS SUBROUTINE
160 BACK FOR MORE ERROR CHECKS

9¢

:SKIP TO NEXT

TEST

260 T0 78 IF NO ERROR

SSKIP TO NEXT

JSR

PC,SECERR

:60 CHECK

JSR

PC,al(SP)e

TEST

455 014334
456 016334

004737

0164346

004736

014340
014342
014344

457 014350
458

000403
000240
104000

7%:

046004

BR
NOP
EMT
9%

459

FOR SECONDARY

ERRORS

:6G0 TO 9% IF NO ERROR
*RETURN HERE IF ERROR
SERROR # DEFINED BY SECERR SUBROUTINE

160 BACK FOR MORE ERROR CHECKS

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

SeTEST

RECALIBRATE

TEST

"“".'.'.l.'."l"""""""."i"'..."'l'.l'.".'"..'.'t."'

014350
014350
014352
014356
014360
0164364
014370

000004
000240
012706
013700
013701
012737

001100
001276
001464
000001

016604

004737

043150

. 014376

461

014410

012737
050020

15113

000013

001206

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

#STACK,SP
$BASE ,RO
1STQUE ,RY
#1 STIMES

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

JSR

PC,TSTPRP

:PREPARE DEVICE

MOV

.WORD

018, 8TESTIN
050020

2:SET TEST NUMBER IN APT MAL BOX
FOR

TEST

:TASK DESCRIPTOR AS FOLLOWS:

sCLEAR CONTROLLER & SELECT DEVICE

JPACK

ACKNOWLEDGE

vOLUME

SVERIFY PACK ACKNOWLEDGE

NOT

VvALID

RMOS/3/2 FCINL

RECALIBRATE

014412
016614
016416
014420
016626
0164264
016632
014440
016646
014452
014456
014456
014460
464 016466
465 014470
466

667 014474

TEST

NSO
ON

N
A oAl VA IV IV IV ]
NN
NN A = —

S 88000000

470
N

MACRO v03.01

11-APR-80

014566
000000
000200
000007
0464426

001543

0015644
0014610

N~
o

&5~

MOvB

#RMCS1 ,PUTINX

004737
000404
000240

0446154

000137

014566

;SETUP PUT INDEX TABLE

PC,PUT

004737
000405
000240

065152

004736
000137

004737
000405
000240
004736
000137

004737
000403
000240

046004

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

67¢

;WAIT

ERROR

FOR COMPLETION

;RETURN HERE

.60 T0 10%

ERROR

SUBROUTINE

ERROPR

;ERROR # DEFINFD BY GET SUBROUTINE

JMP

10%

JSR

PC,PRIERR

;60 CHECK

FOR PRIMARY ERRORS

;60 TO 8% IF NO ERROR

EMT
JSR
JMP

PC,a(SP)+
10$

;ERROR # DEFINED BY PRIERR SUBROUTINE
.60 BACK FOR MORE ERROR (HECKS
;G0 TO 108 IF ERROR

JSR
BR

PC,RCLSTS
9%

;G0 VERIFY RECALIBRATE OPERATION
;60 TO 9% IF NO ERROR

EMT
JSR
JMP
JSR

;RETURN HERE

EMT
JSR

ERROR

;RETURN HERE

PC,a(5P)¢
108 ,

;ERROR ¥ DEFINED BY RCLSTS SUBROUTINE
.60 BACK FOR MORE ERROR CHECKS
;60 TO 108 IF ERROR

PC,SECERR

;60 CHECK

SECONDARY ERRORS

10%

NOP

108

SUBROUTINE

PC.GET
7%

B8R

104000
004736

V]A PUT

JSR
BR

JRETURN HERE

PC,TIMOUT

NOP

014566

RMCS1

109
PC,GETSTS

NOP

055322

;60 WRITE

;ERROR DEFINED BY PUT SUBROUTINE
;60 7O 108 IF ERROR
;6O SETUP FOR STATUS FETCH

EMTY

ERROR

EMT
JMP
JSR

B8R

014566

;60 TO 6% IF NO ERROR

NOP

104000

NO ERROR

JSR

’g

IfF

;RETURN HERE

#200,PUTINX¢Y
;SET TERMINATOR BYTE
#RECAL .GO,RMCST10
;SET RMCS1 OUTPUT BUFFER = RECAL.GO

JSR

104000

674
675

10%

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

NOP

004737

SEQ 0097

EMT
JMP

MOvB
MOV

6%:

12-13

;60 TO 5%

B8R

014566
044070
044766

13:04:53 PAGE

NOP

104000

4«68
469

TST

FOR

;G0 TO 108 IF NO ERROR
;RETURN HERE

PC,a(SP)¢

ERROR

;ERROR # DEFINED BY SECERR SUBKOUTINE
;60 BACK FOR MORE ERROR CHECKS

Mt't'l""'...""'"""t.""'t...l!'.Qll"t"'t."it'..l.'ttl

TeTEST
S

ABORT
E

RECALIBRATE

ARl

TEST

RSRR

RR RR

EEEE R

18T14:

677
478

001100
001276
001464
000001
000014

043150

001206
00122¢

SCOPE
NOP
MOv

#STACK,SP

MOv
MOV

ML, STIMES
14 ,8TESTN

MOV
MOV

JSR

.WORD

$BASE RO
TSTQUE ,R1

s SCOPE CALL
;START OF TEST
JIMITIALIZE STACK POINTER
;RO = UN]IBUS ADDRESS
;(R1) = DEVICE BEING TESTED

PC,TSTPRP

;PREPARE

054130

::D0 1 ITERATION
;oSET TEST NUMBER IN APT MAIL BOX
DEVICE

FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:

RMOS5/3/2 FCINL TST
ABORT

RECALIBRATE

TEST

MACRO v03.01

11-APR-80

13:04:53 PAGE

12-1¢

SEQ 0098

;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTRCLLER CLEAR OPERATION

;PACK

ACKNOWLEDGE

VOLUME

000404
000240

alelelelalelelelelelelolaleloleleeolalololololololeolelolacleleloleloleololelelalolololelolololeole]
i o
d o
i
b
s

sVERIFY PACK ACKNOWLEDGE

H
o

e
il

NNNOO NN
oSNNS
Oo SN

O X

(3 %)

—-—

)
D
ld
il

692
493

NNSNNSNNSNN

U‘\I\\fi\fl\fl\h\fi\fl\l\\l\\fi\fl\fl\fl\fl\fig
[l o o o o
elele] o
lel=lela]
~
o

006

486
487
488
489
490
N

483
484
485

Pl o ol o O

481
482

el e

479
480

1064000
000137
112737
112737
012737
004737
000404
000240

000014
000200
040000
044424

000137

015074

112737
112737
012737
004737
000404
000240
104000

000000
000200
000007
066424

104000

000137
006737

015074
044070

004737
000404
000240
104000
000137
032737
001401

0646154

004737

044766

004737
000404
000240

044154

000137

015074

004737
0006405
000240

045152

104214

104000

034

050

004737
000405
000240
104000

S
oro0o o

001543

8%:

001544
001424

001543
001544
001410

9%:

MOvB
MOvB
MOv

JSR

#RMER1,PUTINX
#200,PUTINX#1
#UNS ,RMER10
PC,PUT

NOP
EMT
JMP

15%

MOVB
MOvB
MOV

JSR

10%:

BR
NOP
EMT
JMP
JSR

JSR
BR

015074
020000

001346

11%:

12%:

13%:

061232

14%:

9¢

;RECALIBRATE IFf ''SKI'' OR ''PIP'' IS SET
SVERIFY RECALIBRATION
;G0 _TO 8% IF NO ERROR
;RETURN HERE

ERROR

;ERROR # DEFINED BY

;G0 TO 158 IF ERROR

TSTPRP SUBROUTINE

;SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
;SET RMER1 OUTPUT BUFFER = UNS
;60 WRITE RMER1 VIA PUT SUBROUTINE
;G0 TO 9% IF NO ERROR
RETURN HERE IF ERROR
;ERROR DEFINED BY PUT SUBROUTINE
;GO TO 158 IF ERROR

#RMCS1,PUTINX

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

15%

PC,GETSTS

PC,GET

;GO T0 108 IF NO ERROR
RETURN HERE IF ERROR
;ERROR DEFINED BY PUT SUBROUTINE
;G0 _TO 158 IF ERROR
;SETUP FOR STATUS FETCH

#P1P RMDS]

PC,TIMOUT

sWAIT FOR

JSR
BR
NOP
EMT
JMP

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

JSR
BR

PC,PRIERR
1649

EMT
JSR
JMP

PC,3(SP)+

EMT
JMP
BIT
BEQ
EMT
JSR

NOP

015074

15%

VALID

;60 READ REGISTER(S) WITH GET SUBROUTINE
;60 TO 11$ IF NO ERROR
;RETURN HERE IF ERROR
;ERROR ¥ DEFINED BY GET SUBROUTINE
;60 TO 15% IF ERROR
:géD|THE DRIVE RECALIBRATE??

NOP

104000

004736
000137

il
i
il
i
il
i
—

494
495

015074

BR
NOP
EMT
JMP

NOT

JSR
BR
NOP
EMT

15%

12%
214

13%

15%

PC,STCDRVSTS
W19

COMPLETION

;G0 TO 13% IF NO ERROR
;RETURN HERE

ERROR

SERROR # DEFINED BY GET SUBROUTINE

;60 TO 15% IF ERROR

;60 CHECK FOR PRIMARY ERRORS
;G0 TO 148 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
.60 BACK FOR MORE ERROR CHECKS
.60 TO 158 IF ERROR
.00 CHECK FOR CHANGES IN DRIVE STATUS

.60 TO 1418 IF NO ERROR

;RETURN HERE 1F ERROR
;ERROR # DEFINED BY STCDRVSTS SUBROUTINE

(ZRMMAQ RMOS5/3/2 FCINL TST

1146

496
697

ABORT

RECALIBRATE

015052
015054

004736
000137

15060
15064
15066
15070

004737
000403
000240
104000

12072

498
499
500

TEST

MACRO v03.01

01507¢4

161%:

066004

004736

15%:
S

PC,a(SP)

JSR
BR
NOP

PC,SECERR

15¢

260 TO 158 IF NO ERROR

JSR

PC,a8(5P)¢

:GO BACK FOR MORE ERROR CHECKS

TRTEST 15

ek
—

W
S£O

rd
e

o
e
i
-t

b
—

18115

e ek b OO O
N
= OO NN
NSO rOoOoOs

NN
AN

OO0OOCOO0OO0O0O
OO

12-15

JSR
JMP

043150

SCOPE
NOP

JSR
.WORD

;60 CHECK

ERROR

(MECKS

FOR

SECONDARY ERRORS

RETURN HERE 1F ERROR
JERROR # DEFINED BY SECERR SUBROUTINE

FOR MDRE

160 T0 15% If ERROR

X222

IvC RECALIBRATE
AR

MOv
MOV
MOv
MOv
MOv

001206
001226

;G0 BACK

15¢

EMT

001100
001276
001464
000001
000015

13:04:53 PAGE

SEQ 0099

501
502

11-APR-B0

s SCOPE CALL
;START OF TEST

RS X

NSTACK,SP

CINITIALIZE

TSTQUE ,R1
#1,8TIMES

S(R1) = DEVICE BEING TESTED
2:00 1 ITERATION

PC,1STPRP

:PREPARE

215, $TESTN
054130

Nlat. N V¥ Yo JolaP ¥ ,$laTe

b b
b

e JolaP Y

NTwl. 1,.VF

. Jolo P J

PUNLALNININININVPNININININININI
NI N =2 b b et oo eed b
SNOOVANES I B MNNN = = =2 O OO NN
NN

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

508

507

NV, LV 1V ]

[elelelelelelelwlelelelelelalelolalolalelelelolelolele)

505
506

(L LV LV LW LV TV WV LW IV IV LV LU LV LV IV LV LV IV LV LV LV LV LV LV

503
504

104000

NOP

000137

015404

112737
112737
012737
004737

000024
000200
000001
0646624

000404
000240
104000
000137
112737
112737

012737
004737
000404
000240

001543
001544
001434

8%:

EMT
JMP

MOvB
MOvB
MOV

JSR

NOP

015404
000024
000200
000000
064424

001543
001544
001434

9%:

EMT
JMP

MOVB
MOv8B
MOV

JSR

NOP

0154064
000000
000200
000007
064626

001543
001544
001410

10%:

8%
15%
#RMMR1,PUTINX
#200,PUTINX+1

XN X

STACK

POINTER

:R0 = UNIBUS ADDRESS

P:SET TEST NUMBER IN APT MAIL BOX
DEVICE

FOR

TEST

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

;PACK ACKNOWLEDGE IF VOLUME
sVERIFY PACK ACKNOWLEDGE

000404
000240

TEST

$BASE ,RO

NOT

VALID

;RECALIBRATE IF ''SKI'' OR 'PIP'' IS SET
sVERIFY RECALIBRAT]ON
;GO TO 8% IF NO ERROR

;RETURN HERE

ERROR

;ERROR ¥ DEFINED BY TSTPRP SUBROUTINE
;GO TO 158 IF ERROR

#DMD ,RMMR10
PC,PUT

;SETUP PUT INDEX TABLE
sSET TERMINATOR BYTE
;SET RMMR1 QUTPUT BUFFER = DMD
;60 WRITE RMMR1 VIA PUT SUBROUTINE

15%

;60 TO 158 IF

FRMMR1 ,PUTINX
#200,PUTINX+1

;SETUP PUT INDEXx TABLE
;SET TERMINATOR BYTE

PC,PUT

;GO WRITE

#0,RMMR10
10%

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

;ERROR DEFINED BY PUT SUBROUTINE
ERROR

;SET RMMR1 OUTPUT BUFFER = 0
RMMR1

;60 TO 108 IF

VIA PUT

NO ERROR

RETURN HERE

.60 TO 158 IF

ERROR

SUBROUTINE

ERROR

EMT
JMP

15%

MOVB
MOvSB
MOv
JSR

NRMCS1,PUTINX
;SETUP PUT INDEX TABLE
#200,PUTINX+1
SET TERMINATOR BYTE
#RECAL !GO,RM(STO
sSET RMCS1 OUTPUT BUFFER PC,PUT
;60 WRITE RMCSY VIA PUT SUBROUTINE

;ERROR DEFINED BY PUT SUBROUTINE

RECAL!GO

S w

B NTo JV ]
Lo

—

VIV

— et et O
N —=O0

(AL
LV, V]

RMO5/3/2 FCINL TS7 1
IVC RECALIBRATE TEST

015276
015300
015302
015304
015310
015314

000404
000240
104000
000137
004737
004737

015320
015324
015326
015330
8}2%%%

004737
000404
000240
104000
000137

044154

015336
015342
015344
015346
015350
015352
015356
015364
015366
015370
015370
015374
015376
015400
015402
015404

004737
000405
000240
104000
00473
000137
032737
001001
104215

045152

004737
000403
000240
104000
004736

046004

MACRO v03.01

11-APR-80 13:04:53 PAGE

015404
044070
044766

18:

015404

015404
010000

001376

138:
148

158

NOP
EMT
JMP
JSR
JSR

12-16

1ns

SEQ 0100

;60 T0 118 IF

15%
PLLGETSTS
PC.TIMOUT

JSR
BR
NOP
EMT
JMP

PC,GET
128

JSR
BR
NOP
EMT
JSR
JMP
BI7
BNE
EMT

PC,PRIERR
13§

JSR
BR
NOP
EMT
JSR

PC,SECERR
15%

158

PC,a(SP)+
154
#1VC,RMER2]
148
215

PC.a(SP)+

NO ERROR
‘RETURN HERE If ERROR
:ERROR DEFINED BY PUT SUBRGUTINE
160 T0 158 IF ERROR
:SETUP FOR STATUS FETCH
:WAIT FOR RECAL TO COMPLETE

;GO READ REGISTER(S) WITH GET SUBROUTINE
160 10 128 IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
:60 TO 158 IF ERROR
;60 CHECK FOR PRIMARY ERRORS
160 TO 138 IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY PRIERR SUBROUTINE
G0 BACK FOR MORE ERROR CHECKS
GO 10 158 IF ERROR
:IVC SHOULD BE SET
(1T 1S = GO CHECK SECONDARY ERRORS
:GO CHECK FOR SECONDARY ERRORS
60 T0 158 IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY SECERR SUBROUTINE
GO BACK FOR MORE ERROR CHECKS

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

SeTEST

IAE

RECALIBRATE

TEST

.'.’."...'.'.'.""""""""".t"t!.'.l".Ittt'ttttlll.ttt'.t'

015404
015404
0156406
015410
015414
015420
015624
015432

000004
000240
012706
013700
013701
012737
012737

015440
015444

004737
054130

1$116:
001100
001276
001464
000001
000016

001206
001226

043150

SCOPE
NOP
MOV
MOV
MOV
MOV
MOV

FSTACK,SP
$BASE ,RO
TSTQUE ,R1
#1,8TIMES
#16,$TESTN

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

JSR
.WORD

PC,TSTPRP
054130

:PREPARE DEVICE FOR TEST
:TASK DESCRIPTOR AS FOLLOWS:

:CLEAR CONTROLLER & SELECT DEVICE
:VERIFY CONTROLLER CLEAR OPERATION
:PACK

ACKNOWLEDGE

VOLUME

VERIFY PACK ACKNOWLEDGE

NOT

VALID

IRECALIBRATE IF ''SKI" OR "'PIP*" IS SET
015446
015450
015452
015454
015460
015460
015466

000404
000240
104000
000137

015646

012737
012737

177777
177777

001444
001416

708:

BR
NOP
EMT
JMP

708

1208

VERIFY_RECALIBRATION
60 TO 708 IF NO ERROR
:RETURN HERE IF ERROR
ERROR # DEFINED BY TSTPRP SUBROUTINE
160 T0 1208 IF ERROR

MOV
MOV

#-1,RMDCO
#-1.RMDAD

RMDC WILL BE ALL ONES
RMDA WILL BE ALL ONES

MMAOD R M05/3/2 FCINL TST 1
IAE RECALIBRATE TEST

528 015676

012737

000007

529 015502

012702

001543

§32 015516

112722

000000

530 015506
531 015512

§33 015522
536 015526

015532
015534
015536
015540
535 015544
g%g 015550
538 015554
015560
015562
015564
015566
539 015572
560 015572
015576
015600
015602
015604
015606
541 015612
5642 015612

015616

015620
015622
015624
015626
543 015632
544 015632
015636
015640
015642
015644
545 015646
546

112722
112722

112722
004737

000404
000240
104000
000137
004737
004737

001410

004737
000405
000240
104000
004736
000137

045152

015646

004737

055322

015646

004737

046004

MOVB
MOVB

ARMDC, (R2)¢
#RMDA. (R2)+

MOVB
JSR

80%:

015646

000240
104000
004736
000137

#RECAL'GO,RMCS10

MOVB

015646
044070
044766

908:

1008:

lPUYlNl,Ré

1208:

Sl.?

BR
NOP
EMmMT
JMP
JSR
JSR

:R2 POINTS TO PUT INDEX TABLE

LSETUP PUT

INDEX TABLE

#200,(R2)+
PC,PUT

;60 WRITE REGISTER(S) W]TH PUT SUBROUTINE

80§

160 TO 808 IF NO ERROR
JRETURN HERE [F ERROR
JERROR # DEFINED BY PUT SUBROUTINE
160 TO 1208 IF ERROR
JSETUP FOR STATUS FET(CH
:WALIT FOR GO TO RESET

1208
PC,GETSTS
PC,T1IMOUT

JSR
BR
NOP
EMT
JMP

PC,GET
90$

JSR
BR
NOP
EMY

PC,PRIERR
1008

JSR
JMP

PC,a(SP)+
1208

;G0 CHECK FOR PRIMARY ERRORS
:60 TO 1008 JF NO ERROR
JRETURN HERE [F ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;60 BACK FOR MORE ERROR (MECKS
160 TO 1208 IF ERROR

JSR

PC RCLSTS

;60 VERIFY RECALIBRATE OPERAT]ON

NOP
EMT
JSR
JMP

PC,a(SP)e
1208

‘RETURN HERE IF ERROR
;CRROR # DEFINED BY RCLSTS SUBROUTINE
;60 BACK FOR MORE ERROR (HECKS
160 TO 1208 If ERROR

JSR

PC,SECERR

BR
NOP
EMT
JSR

NN RN

STEST

SEQ 0101

#RMCST, (R2)+

1108

8
12-17

MOV

000200
0464424

066154

000403
000240
104000
004736

K
11-APR-8C 13:04:53 PAGE

00003¢
000006

004737
000404
000240
104000
000137

000405

MACRO v03.01

RN RN R

:60 READ REGISTER(S) WITH GET SUBROUTINE
:GO TO 90% IF NO ERROR
“RETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
260 TO 1208 IF ERROR

1208

1108

260 TO 1108 IF NO ERROR

;60 CHECK FOR SECONDARY ERRORS

1208

260 TO 1208 IF NO ERROR
CRETURN HERE IF ERROR
JERROR # DEFINED BY SECERR SUBRCUTINE
;60 BACK FOR MORE ERROR C(HECKS

PC,a(SP)¢
P

P P R S P

RECALIBRATE

AN RN NN

NN RSN RN

TR OO

SR ROCECETITETY

OFFSET

.':'l't.tl'..'l.t"'!"""t"t'ittttt"tttttt'lt"t'tt'tt"t'ltlt

015646
015646
015650
015652
015656
015662
015666

000004
000240
012706
013700
013701
012737

001100
001276
001464
000001

5649 015702

004737

043150

o8 015676
[A

015706

012737

050020

18117

000017

001206

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

#STACK,SP
$BASE , RO
TSTQUE ,R1
#1 STIMES

;SCOPE CALL
SSTART OF TEST
JINITIALIZE STACK POINTER
‘RO = UNIBUS ADDRESS
S(R1) = DEVICE BEING TESTED
©.p0 1 ITERATION

JSR

PC,TISTPRP

:PREPARE DEVICE FOR TEST

MOV

.WORD

P STESTN

050020

SSSET TEST NUMBER IN APT MAIL BOX

“TASK DESCRIPTOR AS FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE
;PACK

ACKNOWLEDGE

VOLUME

NOT

VALLD

%%RHHAO RMOS/3/72 FCINL TST 1
7
RECALIBRATE AT QFFSET

015210
015712
015714
015716

016126

112737

000000

001543

015736

012737

000015

001410

015750

000404

015730
015766

015752
01575¢
015756
552 015762
553 015762

015770

015776
016006
016010
016012
016014
016016
222 016022
556
.57 016022

112737

004737

000200
064424

000240
104000
000137

016126

112737

000000

012737
006737
000404
000240
104000
000137

000007
0464426

112737

000200

01612¢

004737

044070

<59 016026

006737

044766

560 C16032

004737

044154

558

016036
016040
016042
016044
016050

562 016050

016054
016056
016060
016062
016064
%63 016070
564 016070
01607¢
016076
016100
016102

016106

000404
000240
104000
000137
004737

000405
000240
104000
004736
000137
004737
000405
000240
104000
004736

016124
045152

016124
055322

565 016110
566 016110

000137

016124

004737

0466006

016116

000240

016122

004736

0161164

016120
567 016124

000403

11-APR-B0

13:04:53 PAGE

12-18

SEQ 0102

000404
000240
104000
000137

550 015722
591 015722

561

MACRO v03.01

5%:

001544

001543

BR
NOP
EMT
JMP

80$

JVERJFY PACK ACKNOWLEDGE
:60 TO 58 IF NO ERROR
;RETURN MERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;60 TO 80% IF ERROR

Move

FRMCSY,PUTINX

;SETUP PUT INDEX TABLE

PC,PUT

;60 WRITE RMCSY VIA PUT SUBROUTINE

80%

;RETURN MERE IF ERROR
;ERROR DEFINED BY PUT SUBROUTINE
;GO TO 808 IF ERROR

#RMCST, PUTINX

;SETUP PUT INDEX TABLE

MOvB

MOV

:SET TERMINATOR BYTE
#OFFSET !GO, RMCST10
;SET RMCSY OUTPUT BUFFER = OFFSET.GO

B8R

106

JSR

10%:

001546

NOP
EMT
JMP

move

MOvVB

001410

208 :

MOV
JSR
BR
NOP
EMT
JMP

#200,PUTINXe1

#200,PUTINXeY1

160 TO 108 IF NO ERROR

:SET TERMINATOR BYTE

#RECAL 'GO,RM(S10
;SET RMCS1 QUTPUT BUFFER = RECAL.GO
PC,PUT
;60 WRITE RMCSY VIA PUT SUBROUTINE
208
;60 T0 20% ]F NO ERROR
:RETURN MERE IF ERROR
;ERROR DEFINED BY PUT SUBROUTINE
803
;60 TO 80% IF ERROR

;SETUP GET INDEX TABLE TO READ ALL REGISTERS
JSR
PC.GETSTS
;GO TO GETSTS SUBROUTINE
;WAIT

50%:

60$:

70%:

FGR COMMAND TO COMPLETE

JSR

PC, TIMOUT

JSR

PC,GET

8R
NOP
EMT
JMP
JSR

PC,PRIERR

;60 CHECK FOR PRIMARY ERRORS

JSR
BR
NOP
EMT
JSR

PC,RCLSTS
70%

JSR

P(,SECERR

NOP

ENT
80%:

803
60$

JMP

JSR

;G0 READ REGISTER(S) WITH GET SUBROLTINE

;60 T0 S0% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY GET
;GO TO 80% IF ERRCR

BR
NOP
EMT
JSR
JMP

B8R

104000

50%

;GO TO TIMOUT SUBROUTINE

PC,a(SP)e
80%

PC,a(SP)e

8of

80%

PC.a(SP)e

SUBROUTINE

;60 TO 60% IF NO ERROR
:RETURN HERE If ERROR
:ERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS
;60 TO 80% IF ERROR
;60 VERIFY RECALIBRATE OPERATION
;60 TO 708 IF NO ERROR
;RETURN MERE If ERROR
:ERROR # DEFINED BY RCLSTS SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

160 TO 808 IF ERROR

;60 CMECK FOR SECONDARY ERRORS

;60 TO 80% If NO ERROR
RETURN HERE

ERROR

SERROR # DEFINED BY SECERR SUBROUTINE
:60 BACK FOR MORE

ERROR (HE(KS

CIRMMAD RMOS/3/2 $(TNL ST 1

117

RECALIBRATE AT OFFSET

MACRO v03.01

LY LYl i
oroo

e
e

red
d

it
b

006737
0546130

152
156

ocooococooo

—

(ol

1464

013700
013701
012737

elolelelelola]

SeTEST 20
000004
000240
012706

igTZO:
001100
001276
001464
000020

13:04:53 PAGE

12-19

SEQ 0103

568
569
126

11-APR-80

0463150

DRIVE

X Y

X X

XXX XXX

CLEAR TEST

SCOPE

NOP

001226

;SCOPE CALL

:START OF

TEST

MOV
MmOV
MOV

#STACK,SP

mOv

#20,8TESTN

TSTQUE R

:(R1)

JSR
.WORD

PC,TISTPRP
054130

;PREPARE DEVICE FOR TEST
sTASK DESCRIPTOR AS FOLLOWS:
JCLEAR CONTROLLER & SELECT DEVICE
JVERIFY CONTROLLER CLEAR OPERATION

$BASE RO

SINITIALIZE

STACK POINTER

;RO = UNIBUS ADDRESS
::SET

sPACK

= DEVICE

BEING

TESTED

TEST NUMBER [N APT MAJL BOX

ACKNOWLEDGE

VOLUME

JVERIFY PACK ACKNOWLEDGE

NOT

VvALID

000404
000240

OrNNOO LSOO NO

NOP

000137

016374

000000
00001

LR
] NNNNVNNNNNNY
S O AL
AN A [\ S =1V VTV IV TV
Ow~ PNONIPRORNONIN NN

[V, 67,67, €7, €7, €1 1, 91,€1, 41 47, €141, ¢}
O NNNO OO WL Sy
QOrMNNOOLHrOLrOIrOSIrOMN
L N
s
A Lt Lt Lt Ut A A o L L U
£
AN NI PNONON) =8 et =

ooooooocoocoooo

593

—

— el

)

il el

) ol

) el

il i

il o

ooocoror0r0o0oro0r0cco00cococococoo

ek e

104020

B8R

[=3=3"4 et et et e OO OOOQO
[ol=1=] — il i el it i P ) i e
[=l=P [aVIpNI V1,1,V V1, ¥1 V1, V], V1 V)

elelelelelelelolalelaleleolalolololelelelololololololalelelalalelolole)

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

177777
172777

004000
001543
000006
000042
000014
000000

EMT

001416
001410
001424
001452
001452

2%:

MOv
MoV
MOv

20 ,RMDAO

Mov
Move
MOovB
MOv8
MOv8
MOv8

JSR
B8R
NOP

044070
0464766

004737
000403
000240
104000
000426

044154

006737
000405
000240

045152

38:

4%:

016374

ERROR

JERROR # DEFINED BY

160 10 218 IF

ERROR

TSTPRP SUBROUTINE

#DRVCL
GO, RMCS10
R'

#-1_RMER1D
#-1.RMER20
#LSC,RMER20
#PUTINX,R2
#RMDA, (R2)
¢

SRMERZ, (R2) ¢

:DELETE FOR PASS 2 ETCH
‘R POINTS TO INDEX TABLE
IRMDA (LEARS LBT

FRMERT, (R2)+
FRMCST, (R2)+

#200, (R2) +

PC,PUT

:60 WRITE

$60 TO 38 IF NO ERROR
:RETURN HERE

WITH PUT

SUBROUTINE

ERROR

PC.GETSTS
PC.TIMOUT

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

JSR
BR

PC,GET
48

EMT
BR

218

;G0 READ REGISTER(S) WITH GET SUBROUTINE
:G0 TO 4% IF NO ERROR
*RETURN HERE [f ERROR
:ERROR # DEFINED BY GET SUBROUTINE

JSR

PC,PRIERR

NOP
EMT
-SR

5¢:

;60 TO 2% ]F NO ERROR

JRETURN HERE

EMT
BR
JSR
JSR

NOP

104000

004736
000137

218

MOV

104000

000440
006737
004737

JMP

8I1C

000200
0464424

JVERIFY RECALIBRATION

JMP

218

5¢

PC,a(SP)
¢+

21§

:ERROR # DEFINED BY PUT SUBROUIINE
SESCAPE IF ERROR

:SKIP REMAINDER OF
;60 CHECK

TEST

FOR PRIMARY

$6G0 TO S8 IF

:RETURN HERE

NO ERROR
If

ERRORS

ERROR

SERROR # DEFINED BY PRIERR SUBROUTINE

16O BACK

FOR MORE

ERROR

160 TO 218 IF ERROR

CHECKS

MMAQ RMOS5/3/2 FCTNL TST
DRIVE CLEAR TEST

594 016340

004737

016346
016350
016352

000240
104000
004736

016344

016354

595 016360
596 016360

016366

016366
016370
016372
23; 016374

000405

11-APR-80 13:04:53 PAGE

057064

000137

016374

004737

0466004

000403

MACRO v03.01

JSR

B8R

JMP

6%:

000240
104000
004736

JSR

599

PC,a(SP)+

*RETURN HERE IF ERROR
:ERROR # DEFINED BY DRVSTS SUBROUTINE
160 BACK FOR MORE ERROR CHECKS

PC,SECERR

;60 CHECK FOR SECONDARY ERRORS

PC,a(SP)+

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

21§

NOP
EMT
JSR

218

;60 VERIFY DRIVE CLEAR

21§

RR N

SeTEST 21

SEQ 0104

PC,DRVSTS

NOP
EMT
JSR

12-20

160 TO 68 IF NO ERROR
260 TO 21$ IF ERROR

160 TO 218 IF NO ERROR

R P R A N R AN R AN AN AN NN N AN AR R AN RN AR

R R

NOP TEST

.':'tt'l't.tt"t.""t't""'t""'t.t.".ttt"tt"'t"titttttt.'t

016374
0163764
016376
016400
016406
0166410
600 016614
601

016422
016426

000004
000240
012706
013700
013701
012737
004737
054130

TST21:
001100
001276
001464
000021

001226

043150

SCOPE
NOP
MOV
MOV
MOV
MOV

NSTACK,SP
$BASE ,RO
TSTQUE ,R1
#21,8TESTN

:SCOPE CALL
:START OF TEST
SINITIALIZE STACK POINTER
:R0 = UNIBUS ADDRESS
:(R1) = DEVICE SEING 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
*VERIFY CONTROLLER CLEAR OPERATION
:PACK ACKNOWLEDGE 1F VOLUME NOT VALID
SVERIFY PACK ACKNOWLEDGE
‘RECALIBRATE

016430
016432
016434
016436
602 016442
603 016442
016450
016456
016664
016470
016472
016476
016476
ggg 016502

000404
000240
104000
000137
112737
112737
012737
004737
000404
000240
104000
000137
004737

000000
000200
000001
044424

606 016506
016512
016514
016516
016520
607 016524
608 016524

004737
000404
000240
104000
000137

044154

004737

045152

016532

000240

016530

000405

016624

016624
044070

016624

001543
001544
001410

708:

80$:

90$:

''SKI"TM OR 'PIP"' IS

SET

:VERIFY RECALIBRATION
260 TO 708 IF NO ERROR
:RETURN HERE IF ERROR
"ERROR # DEFINED BY TSTPRP SUBROUTINE
260 10 1308 If ERROR

BR
NOP
EMT
JMP

708

MOVB
MOVB
MOV
JSR
BR
NOP
EMT
JMP
JSR

WRMCS1,PUTINX
#200,PUTINX+1
#NOPGO,RMCS10
PC,PUT
80§

JSR
BR
NOP
EMT
JMP

PC,GET
90$

130%

;60 READ REGISTER(S) WITH GET SUBROUTINE
160 TO 908 IF NO ERROR
*RETURN HERE IF ERROR
:ERROR ¥ DEF INED 8Y GET SUBROUTINE
260 70 1308 IF ERROR

JSR

PC,PRIERR

;60 CHECK FOR PRIMARY ERRORS

NOP

1308

130
PC,GETSTS

1008

;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE
:SET RMCS1 OUTPUT BUFFER = NOP'GO
160 WRITE RMCS1 VIA PUT SUBROUTINE
:G0 TO 80S If NO ERROR
*RETURN HERE IF ERROR
:ERROR DEFINED BY PUT SUBROUTINE
260 T0 1308 IF ERROR
SSETUP FOR STATUS FETCH

260 TO 1008 IF NO ERROR
;RETURN HERE

ERROR

NOP TEST

MACRO v03.01

1046000

W
o

564

004736
000137

016624

004737

051644

115760

100%:

000010
000405
000240
104000

004736
000137
004737
000405
000240

016624

110%:

061232

104000

004736
000137
004737
000403
000240

016624

120%:

046004

104000

004736

615

130$:

616

617

11-APR-80 13:04:53 PAGE

EMT
JSR
JMP

12-21

SEQ 0105

PC.a(SP)+

130s

;ERROR # DEFINED BY PRIERR SUBROUTINE
.60 BACK FOR MORE ERROR CMECKS
;60 TO 1308 IF ERROR

JSR
.WORD
.WORD
B8R
NOP
EMT
JSR

PC,CMPERRSTS

;CHECK ANY ERRORS NOT MASKED

1308

.60 BACK _FOR MORE ERROR CHECKS
.60 TO 1308 IF ERROR

JSR
BR
NOP
EMT
JSR
JMP

PC,STCORVSTS

;GO0 CHECK FOR CHANGES IN DRIVE STATUS

PC,a(SP)+
¢ ?

130 $

;60 BACK FOR MORE ERROR (HECKS
;G0 TO 1308 IF ERROR

JSR
BR
NOP
EMT
JSR

PC, SECERR
130 $

;GO CHECK FOR SECONDARY ERRORS
;60 T0 1308 IF NO ERROR

PC.a(SP)+

sERROR ¥ DEFINED BY SECERR SUBROUTINE
;60 BACK FOR MORE ERROR (HECKS

JMP

ND TMSK
DPE

;MASK

FOR RMER1

;MASK FOR RMER?

;60 T0 1108 IF NO ERROR

1108

JRETURN HERE

PC,a(SP)+

1208

ERROR

SERROR # DEFINED BY CMPERRSTS SUBROUTINE

;60 TO 1208 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY STCDRVSTS SUBROUTINE

;RETURN HERE

ERROR

'.'".t.tittt'tt'i*'tt"""t"ttttt"tttt'.!tt"tt't'tttt"'t'.t'

TeTEST 22

OFFSET

TEST

";'tt".'ltt'lfit"""t'"i't"'ttlttlt.ttttttitttt'tttti'tttttt'

—

001100
001276
001464
000022
o
o

—

O 0o

18122:

NOP
MOV
MOv
MOV
MOV

001226

0643150

SCOPE

JSR
.WORD

;SCOPE CALL

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

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

PC,TSTPRP

;PREPARE DEVICE

#STACK,SP

054130

FOR TEST

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

I1F

VOLUME NOT

sVERIFY PACK ACKNOWLEDGE

;RECALIBRATE IF ''SKI"°

620
621

017150
000000
000200

000015
064424

001543
001544
001410

40%:

VALID

OR ''PIP'' IS SET

;VERIFY RECALIBRATION
;G0 TO 408 IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE

BR
NOP
EMT
JMP

40%

MOVB
MovB
MOV

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

JSR

NOP

100%

PC,PUT

50%

.60 TO 1008 IF ERROR

.60 WRITE RMCS1 VIA PUT SUBROUTINE
.60 TO 508 IF NO ERROR
;RETURN HERE [F ERROR

Y
)

RMO5/3/2 FCINL TST

RMOS5/3/72 FCTNL 1ST
OFFSET TEST

016724

000137
004737
004737

017150
044070
044766

6742
6746
6750
6752
6754

004737
000404
000240

0464154

000137

017150

004737

045152

50%:

=2 NNNO
Nt YNNO~N
SNUNN AN = N AN N NN — N
O NNNNNINO NN N

000001

001346

000001

001142
001142
001140

100000

001346

001346
77777

001142
001142
001140

177776

100000

051644

70%:

80%:

2 2Kkl s oW
[« Yo 0 ) O
S

004736
000137

017150

004737
000405
000240
104000
004736
000137

061232

004737
000403
000240

046004

104000

004736

918

D
el
-

JSR

PC,GET

;60 READ REGISTER(S)
JRETURN HERE

EPROAH

100%

JSR
BR

PC,PRIERR
70%

;60 CHECK FOR PRIMARY ERRORS
;G0 TO 70% IF NO ERROR

EMT
JSR
JMP
BIT
BNE
MOV
BIC

PC,a(SP)+
100%
¥#OM,RMDSI
80%
RMDSI ,$BDDAT
#*COM,$BDDAT

sRETURN HERE

ERROR

JERROR # DEFINED BY PRIERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;G0 TO 1008 IF ERRCR
:OFFSET MODE ON??
JYES!!
JsBAD DATA FOR TYPEOQUT

Eg¥

qg:,SGDDAT

;600D

BlT
BNE

FATA, RMDSI
90%

JWAS ATTENTION SET
JYES!.

MOV

#ATA,8GDDAT

;GOOD

PC,CMPERRSTS
NDTMSK
DPE
91%

sCHECK ANY ERRORS NOT MASKED
JMASK FOR RMERI1

EMT

JSR
.WORD
NOP
EMT
JSR
JMP

JSR

1008

WiTH GET SUBROUTINE

;60 TO 608 IF NO ERRO%

JERROR # DEFINED BY GET SUBROUTINE
;60 TO 100% IF ERROR

928

60%

JSETUP FOR STATUS FETCH

EMT
JMP

NOP

017150

;ERROR DEFINED BY P'T SUBROUTINE
;G0 TO 1008 IF ERRMR
JWAIT FOR GO TO PRESET

MOV
BIC

90$:

100%

PC,TIMOUT

NOP

017150

SEQ 0106

PC,GETSTS

JSR

B8R
608

12-22

JSR

.WORD

wn NN
= = s OO
oo SO0

i
)

s
e

D el

i
i amd
b —

) il
el

—

il i

ol
—

i il

647
648

646

EMT
JMP

136

—

645

il o

644

NNN N NN NNNNNNNNNNNNN

642
643

11-APR-80 13:06:53 PAGE

NOP

N
N

D o
d o
D el
D el ed
i
i
D
i
D i el
i
d il
D

l=leololeole]
~
(o
X
W
Yo W)
snosr000
»oyST
NOO
W
oocOoOnN

0000

d ol el

7042
7044

104000

MACRO v03.01

b e

640
641

—D el

633
634
635
636
637
638
639

NNNNN ~N~wooooo
o
QO
NNNNN
NN
— — OO ~ N~N~NOO>

16726
16732
16736

[=Jelelelalelalalelolelelelololelolalalolalalalelalelelelelolalolelolalolelolfolalolololololele M olele)

628
629
630
631

106000

RMDS] ,$BDDAT
#*CATA,$BDDAT

172

DATA FOR

TYPEOUT

;BAD DATA FOR TYPEQUT

;MASK

DATA

FOR

TYPEOQUT

FOR RMER?

;G0 TO 918

NO ERROR

PC,a(SP)+
100%

sRETURN HERE IF ERROR
JERROR # DEFINED BY CMPERRSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
;60 TO 1008 IF ERROR

PC,STCDRVSTS

;GO0 CHECK

92%

FOR CHANGES

;60 TO 92% IfF
JRETURN HERE

NO ERROR

IN DRIVE

STATUS

ERROR

EMT
JSR
JMP

PC,a(SP)+

100%

SERROR # DEFINED BY STCDRVSTS SUBROUTINE
.60 BACK FOR MORE ERROR CHECKS
;60 T0 1008 IF ERROR

JSR
BR

PC,SECERR
100%

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

NOP
EMT
JSR

PC,9(SP)+

;RETURN HERE ]F ERROR
SERROR # DEFINED BY SECERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS

.'.'l't."..""'t".""""""".ti'.t"'t"t.l"'l'."!"titi'l

;*TEST 23

GO/ATA TEST

AR
R
22200 220202222222 ]

017150

TSTZS

MACRO v03.01

—

001100
001276
001464
000023

649
650

11-APR-80

SCIPE
NP
MOv

18T

Mov
MOv
MOV

001226

0643150

JSR
.WORD

13:04:53 PAGE

12-23

SEQ 0107

;SCOPE CALL
FSTACK,SP

$BASE RO

TSTQUE ,R1

#23,$TESTN
PC,TSTPRP

054130

;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
SVERIFY CONTROLLER CLEAR OPERATION

NN IO
NN N
(VAL
I
o
W) = bt s s OO
OO~
O NSO

S WNNNI
—= =2 OO N~NNO
OoOr LN OCOCOSr,rNOO

b —
=
) ——d
—l
=
D
=
el
i
D
)
el el
Tl
i
e
et
el

665

664

)

656
657
658
659
660
661
662
663

SNNNSNSNNNSNNNNNNNNNNNNNNNNNNNNN
AN N NN N N W NN NN N

653
654
655

651
652

NN NNNNSNNNNNNNY

aleloelelelelolelelelelololalelololololalololaleoleleloilololelelololelolololalole
=]

;PACK ACKNOWLEDGE

000404
000240
104000
000137
112737
112737

012737
004737
0004604
000240
104000

017570

000000
000200
000015
044424

001543
001542
00141¢

70%:

MOvB
MOvB
MOV

000137
004737

044070

004737

046154

017570

80%:

100000

001346

100000

001140
001142
001142

001346
0r7777

90%:

000000

000200
00000
064624

000240

001543
001544
001410

ERROR

SERROR # DEFINED BY TSTPRP SUBROUTINE
;G0 TO 180% IF ERROR
;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE

#OFFSET!GO,RMCS10
;SET RMCS1 OUTPUT BUFFER =
PC,PUT
;00 WRITE RMCS1 VIA PUT SUBROUTINE

OFFSET'GO

;SETUP 70 READ ALL REGISTERS

JSR
BR

90¢

PC,GET

;60 READ REGISTER(S) WITH GET SUBROUTINE
;G0 _TO 90% IF NO ERROR
;RETURN HERE IF ERROR
:ERRCR # DEFINED BY GET SUBROUTINE

EMT
JMP
BIT
BNE
MOV

BIC
EMT

NOP

110%:

#200,PUTINX+1

PC,GETSTS

JSR
.WORD
WORD

017570

;60 7O 708 IF NO ERROR

EMT
JMP
JSR

MOV

100%:

051644

#RMCS1,PUTINX

VALID

SVERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ‘'SK1'* OR ''PIP'* IS SET
sVERIFY RECALIBRATION
;RETURN HERE

180%

NOT

80%

NOP

017570

70%

VOLUME

JSR
BR
NOP

346

602
406

BR
NOP
EMT
JMP

180%

FATA ,RMDS]

JYES!!
.6G00D DATA FOR TYPEOUT
;BAD DATA FOR TYPEOUT

SC,CHPERRSTS

sCHECK ANY ERRORS NOT MASKED

0
110%

;MASK FOR RMER?
;60 TO 1108 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY CMPERRSTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;G0 TO 180% IF ERROR

PC,a(SP)+

MOvB
MOvB
MOV

#RMCS1,PUTINX
#200,PUTINX+1
#NOP GO, RMCS10

NOP

;GO TO 1808 IF ERROR
;1S ATTENTION SET??

100%

FATA,$GDDAT
RMDS],$BDDAT
:;SATA.SBDDAT

EMT
JSR
JMP

JSR

;60 TO 808 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR DEFINED BY PUT SUBROUTINE
.60 TO 1808 IF ERROR

180%

PC,PUT

1208

¢MASK

FOR RMER1

;SETUP PUT INDEX TABLE
+SET TERMINATOR BYTE

;SET RMCS1 QUTPUT BUFFER = NOP!GO
;G0 WRITE RMCS1 VIA PUT SUBROUTINE
;GO TO 1208 IF NO ERROR
;RETURN HERE IF ERROR

MACRO v03.01

11-APR-80 13:04:53 PAGE

12-2¢
SEQ 0108

004737
000404
000240

i el e

elelelalelelololalalalolelolalelelelelelolalelolelolelalalalololelololololelolate]

104000
000137

el el

O0NNO

NOSSTO oSrNNOOSHOOoOO (a8 s

D
)
i
s

NSO

)

D il ol

i oD

B e

el o

682
683
684

el el

680
681

678
679

) il e

670
671
672
673
674
675
676
677

NN TSNTNSNNYN NN NNNNNNNNNN NN NNNNNN
[V AVAVAVAV
IV AV IV AV IV IV IV IV AV Y WNMAN WA
IWAWDS W Ll o o ol ol 3
(o Yo Yo Yo IV IV IV ¥ W
W
W
SV TV TV PNOPNVININ)
=t o ed d O o ~NO
O NN

668
669

D i

104000

017570

120%:

066154

000137

017570

004737
000405
000240

065152

130%:

104000

004736
000137
032737
001411
013737
062737
005037
106246

001346

:
1408

001142
001142
150%:

004737

000010
000405
000240

004736
000137

PC,GET

JSR
BR
NOP
EMT
JSR
JMP
BIT
BEQ
MOv
BIC
CLR
EMT

PC,PRIERR

NOP

104000

017570

004737
000405
000240
104000
004736
000137

061232

004737
000403
000240

046006

JSR
BR
NOP
EMT
JSR
JMP

170%:

JSR
B8R

NOP
EMT
JSR

104000

004736

.60 TO 1808 IF ERR

;G0 READ REGISTER(S) WITH GET SUBROUTINE

1308

;60 TO 1308 IF NO ERROR
;RETURN HERE

180%:

ERROR

;ERROR # DEFINED BY GET SUBROUTINE

;GO TO 180% IF ERROR

180%

1409

PC,a(SP)+

180$

#FATA RMDS]

150%
RMDSI,$BODAT
#*CATA,$BDDAT
$GDDAT

246

PC,CMPERRSTS
NDTMSK
DPE
160%

;60 CHECK FOR PRIMARY ERRORS
;60 TO 1408 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;GO TO 180% IF ERROR
:IESATTENTION RESET??
.Y

:BAD DATA FOR TYPEOUT
.GOGD DATA FOR TYPEOUT

;CHECK ANY ERRORS NOT MASKED
¢MASK FOR RMER1

;MASK

FOR RMER?

;60 TO 1608 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR ¥ DEFINED BY CMPERRSTS SUBROUTINE
.60 BACK FOR MORE ERROR CHECKS
;G0 TO 180% IF ERROR

EMT
JSR
JMP

160%:

017570

;ERROR DEF INED BY PUT SUBROUTINE

180%

JSR
BR
NOP
EMT
JMP

JSR
.WORD
.WORD
BR

115760

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

;RETURN HERE

ERROR

;ERROR # DEFINED BY STCDRVSTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS

PC,a(SP)+

180%

;GO TO 180% IF ERROR

PC,SECERR
180%

260 CHECK FOR SECONDARY ERRORS

;GO TO 1808 IF NO ERROR

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

PC,a(SP)+

. '.tt'tlllttltt'ti"i""'"'Il‘.'tt'i*titt'ttttttltti.'ttt't't't

SATEST 24
S

685
686

EMT
JMP

220

15124

000004
000240
012706
013700
013701
012737

001100
001276
001464
000024

004737

043150

SCOPE
NOP

MOV
MOV

001226

WRITE ATA TEST

28282008l

MOv
MOV

JSR

RRRdRdRR

#STACK,SP

$BASE RO
TSTQUE R

22000

22222

:SCOPE CALL
;START OF TEST

sINITIALIZE STACK POINTER
;RY = UNIBUS ADDRESS

#24L ,$TESTN

;(R1)
;.SET

= DEVICE BEING TESTED
TEST NUMBER IN APT MAIL BOX

PC,TSTPRP

;PREPARE DEVICE FOR TEST

CZRMMAQ RMOS/3/2 FCTINL ST
124
WRITE ATA TEST

017622

MACRO v03.01

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

9
12-25

SEQ 0109

054130

.WORD

054130

;TASK

DESCRIPTOR AS

FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE

;VERIFY CONTROLLER CLEAR OPERATION

:PACK ACKNOWLEDGE

000404

020134

687
688

000000
000200
000015
066424

001543
001564
001410

70%:

MOVB
MOvB
MOv

JSR
BR

000240
104000

689
690
69N

NOP
EMT
JMP

NOP

000137
004737

020134
044070

004737
000404

044154

80%:

N 8

O O

NN NN —

~ NNSNONNN
NI ~N~NN

~ NNNNIN
= =YY NO

N NN

754
760

o —_—_OOO0O—= =00
o — ek e O fS 2 O b
£~ NNV OOMNION
NN

736
744

000404
000240

104000
000137

705
706

004737
000404
000240
104000

707

708

020054
020056

020134

100000

001346

001346
077777
100000

001142

001140

000001

020134
044154

110%:

EMT
JMP
BIT
BNE
MOv
BlC
EMT

MOvB

BIC
NOP

JSR
BR
NOP
EMT
JMP
JSR

020134

004737
000405
000240
104090
004736
000137

045152

020134

EMT

120%:

NOT

VALID

ERROR

;ERROR # DEFINED BY TSTPRP SUBROUTINE

;G0 TO 1508 IF ERROR

:SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE

#OFFSET.GO,RMCS10
:SET RMCS1 OUTPUT BUFFER =
PC,PUT
;00 WRITE RMCS1 VIA PUT SUBROUTINE

80%

90%

NOP

000137

#200,PUTINX+1

JSR
BR

MOV
MOvB
Move

001543
001544

#RMCS1,PUTINX

PC,GETSTS

MOV

100¢%:

177400

001426
000016
000200
044424

90¢%:

1509

VOLUME

;60 TO 70% IF NO ERROR

;RETURN HERE

EMT
JMP
JSR

NOP

032737

70%

JVERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ''SKI'' OR "PIP'' IS SET
;VERIFY RECALIBRAT]ON

150%

PC,GET

150%

NATA ,RMCSI

100$
RMDS1,$BDDAT
N*CATA,$BDDAT
#ATA,$GDDAT

172
1(R1),R2
#*CATNMSK
,R2
R2,RMASO

#RMAS ,PUTINX

#200,PUTINX+1
PC,PUT

1109

OFFSET.GO

;GO _TO 80% IF NO ERROR
;RETURN HERE IF ERROR

;ERROR DEFINED BY PUT SUBROUTINE

;GO TO 1508 IF ERROR
;SETUP TO READ ALL REGISTERS

.60 READ REGISTER(S) WITH GET

;G0 TO 90% IF NO ERROR

SUBROUTINE

sRETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE

;G0 TO 1508 IF ERROR
;1S ATTENTION SET??
JYES!!
:BAD DATA FOR TYPEOQUT

;600D DATA FOR TYPEOUT

;R2 = ATTENTION BIT

;CLEAR SIGN EXTENSION

;PUT RMAS BIT IN OUTPUT BUF

;WRTTE

INDEX

IN TABLE

;WRITE TERMINATOR
;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

150%

;G0 TO 1108 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 1508 IF ERROR

PC,GET

;G0 READ REGISTER(S) WITH GET SUBROUTINE

1209

;G0 TO 1208 IF NO ERROR

;RETURN HERE

JMP

150%

JSR
BR
NOP
EMT
JSR
JMP

PC,PRIERR

130%

PC,a(SP)+

1508

ERROR

;ERROR # DEFINED BY GET SUBROUTINE

;GO TO 1508 IF ERROR

;60 CHECK FOR PRIMARY ERRORS

;GO TO 1308 IF NO ERROR
;RETURN HERE If ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
.60 BACK FOR MORE ERROR C(HECKS
;G0 TO 1508 IF ERROR

CZRMMAQ

12 A

MACRO v03.C*

11-APR-80

13:04:53 PAGE

12-26

NN NN
N N N
—hfl_hfl—hfl—“:

O NPt
= OO0

SEQ 0110
100000

001346
Q77777
001140

001346

130%:

001142
001142

#ATA RMDS:

;1S ATTENTION RESET??

MOV
BIC

RMDS1,$BDDAT
#ACATA,$BDDAT

;BAD DATA FOR TYPEOUT

EMT

247

CLR

:
16408

051644

BIT

BEQ

JSR
.WORD
.WORD

B8R

NOP

—

NN~

O 00~y

104000

020134

150%:

EMT
JSR

140%

JYES.!

$GDDAT

;600D DATA FOR

PC,CMPERRSTS
O
0

JCHECK ANY ERRORS NOT MASKED
JMASK FOR RMER1
JMASK FOR RMER?

150%

PC.a(SP)+

TYPEOUT

;60 TO 1508 IF NO ERROR
JRETURN HERE

ERROR

JERROR # DEFINED BY CMPERRSTS SUBROUTINE
;G0 BACK FOR MORE ERROR (CHECKS

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

J«TEST

ERROR/ATA TEST

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

020134
020134
020136
020140
020144
020150
020154

15725:

001100
001276
001464
000025

720
721 020162
020166

020170
020172
020174
020176
722 020202
723 02020¢
020210
020216
020224
020230
020232
020234
020236
724 020242
726 020246

020252
020254
020256
020260
727 020264
728 020272

SCOPE
NOP
MOV
MOV
MOV

001226

MOV

043150

JSR

000404
000240

104000

000137

020526

112737
112737
012737

000000
000200
000015
064424

708

001543
001544
001410

004737
04737
000404
000240
104000
000137
032737
001012

70%

100000

90%:

;PREPARE

DEVICE

IN APT MAIL BOxX

FOR

TEST

sTASK DESCRIPTOR AS FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ''SKI'' OR ''PIP'" IS SET
;VERIFY RECALIBRAIION

;00 TO 708 IF

NO ERROR

MOvB
MovB
MOV

NRMCS1,PUTINX
;SETUP PUT INDEX TABLE
#200,PUTINX+]
;SET TERMINATOR BYTE
#OFFSET!GO,RMCS10
:SET RMCS1 OUTPUT BUFFER = OFFSET!GO

80%

PC,PUT

JMP
JSR

160%
PC,GETSTS

JSR

PC,GET

B8R

001346

TEST NUMBER

160%

NOP

020526

;3SET

NOP
EMT
JMP

EMT

044154

PC,TSTPRP

054130

JSR

80%:

#25,8TESTN

.WORD

NOP

020526
044070

#STACK,SP
$BASE ,RO
TSTQUE R

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

EMT
JMP

BIT
BNE

90%

160%
FATA ,RMDSI
100%

;RETURN HERE IF ERROR
;ERROR ¥ DEFINED BY TSTPRP
;G0 TO 160% IF ERROR

;60 WRITE

RMCS1

VIA PUT

;G0 TO 80% IF NO ERROR
;RETURN HERE

ERROR

:ERROR DEF INED BY PUT

SUBROUTINE

;G0 1O 1608 IF ERROR
;SETUP TO READ ALL REGISTERS

:60 READ REGISTER(S) WITH GET

.GG TO 908 IF NO ERROR
;RETURN HERE

ERROR

:ERROR # DEFINED BY GET
;G0 TO 1608 [F ERROR

;1S ATA SET??
JYES!!

SUBROUTINE

MMAOQ RMOS/3/2 FCTINL

ERROR/ATA TEST

729
730
731
732
733
734

MACRO v03.01

020276
020302
020310
020316
020320
020320
020326
020334
020342

013737
042737
012737
104172

001346
077777
100000

001142
001142
001140

112737
112737
012737
004737

000014
000200
060000
044424

001543
001544
001424

020350
020352
020354

000240
104000
000137

020526

112737

000000

004737
000404
000240
104000
000137

044426

020346

735 020360
736 020360

020366
020374

020602
020406
020610
020412
020414
737 020420
738 020420

020424
020626
020430
020432
739 020436

740
761
762
763
764
745
766

1ST

020444
020446
020454
020662
0206470
020472
0206472

020476
020500
020502
020504
020506
747 020512

000404

112737
012737

004737

000404
000240
104000
000137
032737

020526

100000
001346
077777

001140
001142
001142

004737

061232

020524

004736

000403
000240
104000

046004

130%:

140$:

1508:

751

:BAD DATA FOR TYPEOUT

MOVB
MOVB
MOV
JSR

#RMER1,PUTINX
#200,PUTINX+1
FUNS .RMER10
PC,PUT

;SETUP PUT INDEX TABLE
:SET TERMINATOR BYTE
:SET RMER1 OUTPUT BUFFER = UNS
:G0 WRITE RMER1 VIA PUT SUBROUTINE

NOP
EMT
JMP
MOVB

JSR
BR
NOP
EMT
JMP
JSR

BR
NOP
EMT
JMP
BIT

1108

;600D DATA FOR TYPEOUT

:6G0 TO 1108 IF NO ERROR

1608

*RETURN HERE IF ERROR
*ERROR DEFINED BY PUT SUBROUTINE
160 TO 1608 IF ERROR

WRMCS1,PUTINX

;SETUP PUT

PC,PUT
1208

1608

26O WRITE RMCS1 VIA PUT SUBROUTINE
260 TO 1208 IF NO ERROR
:RETURN HERE IF ERROR
:ERROR DEFINED BY PUT SUBROUTINE
260 TO 1608 IF ERROR

PC,GET

:6G0 READ REGISTER(S)

#200,PUTINX+1
#NOP
' GO,RMCS10

130$

160%
#ATA,RMDSI

INDEX TABLE

:SET TERMINATOR BYTE
:SET RMCS1 OUTPUT BUFFER = NOP'!GO

WITH GET

140%
#ATA,$GODAT
RMDS1,$BDDAT
#~CATA,$BDDAT
250

SYES!:
:600D DATA FOR TYPEOUT
;BAD DATA FOR TYPEOQUT

JSR

PC,STCDRVSTS

;GO CHECK

BR
NOP
EMT
JSR
JMP

1508

SUBROUTINE

:60 TO 1308 IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROLTINE
160 TO 1608 IF ERROR
S1S ATA STILL SET??

BNE
MOV
MOV
BIC
EMT

FOR CHANGES

IN DRIVE

STATUS

PC,a(SP)+
1608

260 TO 1508 IF NO ERROR
:RETURN HERE IF ERROR
*ERROR # DEFINED BY STCDRVSTS SUBROUTINE
160 BACK FOR MORE ERROR CHECKS
160 TO 1608 IF ERROR

JSR

PC,SECERR

:6G0 CHECK FOR SECONDARY ERRORS

JSR

PC,al(SP)+

160 BACK FOR MORE ERROR CHECKS

BR
NOP
EMT
1608 :

SEQ 0111

RMDS1,SBODAT
#°CATA,SBODAT
#ATA,SGDDAT
172

MOVB
MOV

120%:

044154

020526

1108

001544
001410

001012
012737
013737
042737
104250

004737

;gg 020526

001543

001346

000405
000240
104000
004736
000137

100$:

12-27

MOV
BIC
MOV
EMT

020526
100000

748 020512

020516
020520
020522

000200
000001

11-APR-80 13:04:53 PAGE

1608

:G0 TO 1608 IF NO ERROR
"RETURN HERE IF ERROR
:ERROR # DEFINED BY SECERR SUBROUTINE

""tttttl’ttttlttti"i'i"'l"'ttltttt'ttttt'tttttli'tlttlttt'tlt'l

SRTEST

PROGRAM

INTERRUPT

TEST

""ItQl'ttt'tttltti"'ttt'tt"tttttttttttlltt'ttttl..l'!litttttttl

020526
020526
020530
020532
020536

000004
000240
012706
013700

15126:

001100
001276

SCOPE
NOP
MOV
MOV

#STACK,SP
$BASE ,RO

;SCOPE CALL
SSTART OF TEST
SINITIALIZE STACK POINTER
*R0O - UNIBUS ADDRESS

CZRMMAQ RMO5/3/2 FCINL TST 1
126
PROGRAM INTERRUPT TEST

020542
020546

013701
012737

001464
000026

020560

004737
054130

043150

752
753 020554

MACRO v03.01

11-APR-80 13:04:53 PAGE

12-28

SEQ 0112

001226

MOV
MOv

:(R1)

JSR
.WORD

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:
sCLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION

= DEVICE BEING TESTED

;:SET TEST NUMBER IN APT MAIL BOX

:PACK ACKNOWLEDGE

020562
020564

020566

020570
756 020574
020574
020600
020604
020606
020612
020616
020624
020630
020634
020636
020640
020642
020644

000404
000240
104000
000137

780
781
782
783

784

70%:

001272
177400

000002
021056
000300
001273

MOvB

BlC
MOV

MOV
MOV
MOv
MOvB

000002

177400

17746437

020650
020652
020656
020662
020664
020670
020676
020704

020712
020716
020720
020722
020724
020730
020730
020736
020744
020752
020756
020760
020762
020764
020770
020770
020774
021000
021004

021216

80%:

000300
021014
021006
177777
000016
000200

BR
NOP
EMT
JMP

001426
001543
001543

0444246

BI(C
SWAB
DEC
BPL
CLR
BIC

NOP
MOV
MOv
MOV
MOv
MOV
MOvVB
Move

JSR
BR
NOP

021216

000000
000200

90%:

000115

064426

EMT
JMP

MOvVB
rYOvB
Mav

JSR

NOP

000137

021216

004737
004737
012703
000002

044766
044070
000205

EMT

100%:

70%

210%
$VECT1,R2
#2(<377>,R2
(R2) R4

2\R2),RS

#1509, (R2)
#PR6,2(R2)
$VECT1+1,R3
#2(C<377>,R3

VOLUME NOT

VALID

;GO 70 708 IF NO ERROR
;RETURN HERE ]F ERROR

;ERROR # DEFINED BY TSTPRP SUBROUTINE

;G0 TO 2108 IF ERROR

;R2 = INTERRUPT ADDRESS
;CLEAR SIGN EXTENSION

s SAVE

HANDLER ADDRESS

;SAVE HANDLER PRIORITY
;WRITE HANDLER ADDRESS AND

;PRIORITY

:R3 =

FOR

THIS

TEST

INTERRUPT LEVEL

;CLEAR SIGN EXTENSION

R3
R3
80%
R3

;DECREMENT

¥PR6,-(SP)

;.PUSH #PRo ON STA(K

INTERRUPT LEVEL

#*“CPR7,R3

#120%,-(SP)
R3,-(SP)
#110%,-(SP)
#-1,RMASQO

FRMAS ,PUT INX

#200,PUTINX
PC,PUT

90%

210%
NRMCS1,PUTINX

#200,PUTINX+1

;;PUSH #120% ON STACK
;;PUSH R3 ON STACK
;:PUSH #1108 ON STACK

JWRITE ONES

IN RMAS

sCLEAR ALL ATTENTIONS

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE
;60 TO 908 IF NO ERROR
RETURN HERE 1F ERROR
;ERROR # DEFINED BY PUT SUBROUTINE

;60 TO 2108 IF ERROR

sSETUP PUT INDEX TABLE
:SET TERMINATOR BYTE

NOFFSET!GO!IE,RMCSIO
sSET RMCS1 OUTPUT BUFFER = OFFSET!GO'I1E
PC,PUT
:60 WRITE RMCSY VIA PUT SUBROUTINE

100%

;G0 _TO 1008 IF NO ERROR

;RETURN HERE

JMP

210%

JSR
JSR
MOv

PC,TIMOUT
PC.GETSTS

RTI]

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

#205.R3

ERROR

;ERROR DEFINED BY PUT SUBROUTINE

;GO T0 2108 IF ERROR
;WAIT

FOR COMPLETION

;SETUP TO READ ALL REGISTERS
;R3 = GROSS TIMEOUT

;DROP (P PRIORITY

SN, N
no OO

) il el
el
el
sl
ol
Al
i
d
b

o elolelololololelelole
» SNNNNINININ)
— — —

[elelolelelolclololelole)

793
794

795
796
797
798
799
800
801
802

021054
021056
021060
021064
021066

805
806

807
808

810

NN
OO WML 5 S WA
INIININ =t s 2 O
QOrMLOOO SOOI
NOOSITNOH
OO
NOS

803 021104

804

005303

1108:

100376

s TIMEOUT
USHSTNT
ST VLN ST,V 1 V1,87,V

787
788
789
790
791
792

TEST

000002
004737
000404
000240
104000
000137

004737
000405
000240
104000
004736
000137

066154

021216
045152

021216

1046251
000423

022626
012716
000002

004737
000404
000240

104000
000137

004737
000405
000240

021066
046154

021216
045152

120%:

130¢%:

140%.

150%:
160%:

170%:

104000

004736
000137

021216

004737

051644

115760

000010
000405
000240
104000
004736
000137

004737
000405
000240

021216

061232

180%:

190%:

104000

004736
000137

021216

006737

046004

200%:

DEC
BPL

13:04:53 PAGE

12-29
;TIMEOUT

SEQ 0113
THE

INTERRUPT

BEFORE

RT]

;RAISE CP PRIORITY

JSR
BR
NOP
EMT
JMP

;60 READ REGISTER(S) WITH GET SUBROUTINE

JSR
BR
NOP
EMT
JSR
JMP

;G0 TO 1308 IF NO ERROR

210$
PC,PRIERR

140%

EMT
BR
cmp
MOV
RT]
JSR
BR
NOP
EMT
JMP

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

;GO TO 2108 IF ERROR

;60 CHECK FOR PRIMARY ERRORS
;G0 TO 1408 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTiNE
;60 BACK FOR MORE ERROR CHECKS

.G0 7O 2108 IF ERROR
O—

785 021006

786 021010

INTERRUPT

11-APR-80

PROGRAM

MACRO v03.01

126

—

(ZRMMAQ RMOS/3/72 FCINL TST

)¢+ ,(SP)+

0%, (SP)

€,GET

+ADJUST

STAC(K

s CHANGE RETURN ADDRESS

;RAISE CP PRIORITY

2108

;GO READ REGISTER(S) WITH GET SUBROUTINE
;GO TO 1708 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 210% IF ERROR

JSR
BR
NOP
EMT
JSR
JMP

PC,PRIERR

;60 CHECK FOR PRIMARY ERRORS

PC,a(SP)+

RETURN HERE IF ERROR
SERROR # DEFINED BY PRIERR SUBROUTINE
.60 BACK FOR MORE ERROR CHECKS

JSR
.WORD
. WORD
BR
NOP
EMT
JSR
JMP

PC,CMPERRSTS
NDTMSK
DPE

PC,a(SP)¢+

;60 TO 1908 IF NO ERROR
;RETURN HERE If ERROR
;ERROR # DEFINED BY CMPERRSTS SUBROUTINE
.60 BACK FOR MORE ERROR CHECKS

JSR
BR
NOP
EMT
JSR
JMP

PC,STCDRVSTS

;G0 CHECK FOR CHANGES IN DRIVE STATUS

PC,a(SP)+

210s

;ERROR # DEFINED BY STCODRVSTS SUBROUTINE
.60 BACK FOR MORE ERROR CHECKS
;60 TO 2108 IF ERROR

JSR

PC,SECERR

.60 CHECK FOR SECONDARY ERRORS

70s

180%

210%

190%

210¢
200%

;G0 TO 180% IF NO ERROR

;G0 TO 210% IF ERROR

;CHECK ANY ERRORS NOT MASKED
;MASK FOR RMER1

:MASK FOR RMER?

;G0 TO 210% IF ERROR

;G0 TO 2008 IF NO ERROR
+RETURN HERE

ERROR

TST

PROGRAM

INTERRUPT

021174
021176

000405
000240

1
TEST

MACRO v03.01

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

000
———

NOP

021216

010412
010562

000002

205%:
210%:

;60 _TO 2058 IF NO ERROR

RETURN HERE

PC,a(SP)+

2108

ERROR

;ERROR ¥ PEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR (HECKS
;G0 TO 2108 IF ERROR

MOv
MOv

t't."t".""

021

CNAANNININ)
=

[AC I N1 N1 N] NI N1, V]
(a1, V]

—

o olele]
(=]
OO0
[aSIaVT,S1,01,0],
V] ¥}
~n

INHIBIT

INTERRUPT

TEST

M .'.t"'t.'tt"'t't""""t'""."'"""

000004
000240
012706
013700
013701
012737
004737
054130

ts127:

001100
001276
001464
000027

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

SCOPE
NOP

MOv
MOv
MOV
MOV

001226

043150

JSR
.WORD

s SCOPE CALL
N#STACK,SP

$BASE RO

TSTQUE ,R1

N27,8TESTN
PC,TSTPRP

054130

;START OF

TEST

INITIALIZE STACK POINTER

;RO = UN]IBUS ADDRESS

;(R1)

= DEVICE BEING TESTED

;.SET TEST NUMBER IN APT MAIL BOX
;PREPARE

DEVICE

FOR

1EST

:TASK DESCRIPTOR AS FOLLOWS:
;CLEAR CONTROLLER & SELECT DEVICE
SVERIFY CONTROLLER CLEAR OPERATION

;PACK

ACKNOWLEDGE

VOLUME

021402

000137

021564

EMT
JMP

001272

jelelelelele
e d>d>l>l>Dlelolele]e) Ottt et P OO
=t 0t
el e b
J —
S OONINIWVOWVOMNNIMNINNNDO
- (V]

104000

NN
NNN
WNMANAN
NNN

021366
021374

021330
021334
021336
021340
021342
021344
021350
021354
021356
021362

000404
000240

—

021252
021254
021256
021260
021264
021264
021270
021274
021276
021302
021306
021314
021320
021324

NNWNNOO
W
N NN NN NN N ~ N
WSS
=t O
OO0 —=00 ole]
NOOOOO—=O0O0
OO WwWwWNINOWN S oo

;VERIFY PACK ACKNOWLEDGE

O ——

oo~

—

EMT
JSR
JMP

205%

* "'.t.t..""'t"""'"""Q".""ttl"ttt'.Q"

SeTEST

0o 0o

9
12-30

5€Q 0114
BR

104000
004736
000137

oNOO
S NVO

—t

el el

[el=t=t=Y=YoT=)

il el o

[pS1 W1 N1 W] V] 57,V

b—a
b
s
b
—

OB
—

00 0o 00 0o 00 00

%SRHHAO RMO5/3/2 FCINL

NOP

70%:

MOv3

177400

000002
021526
000300
001273
177400
000300
021556

BlC

MOV

000002

80%:

000000
000200
000115

001543
001544
001410

MOv
MOV
MOv
MOvB
BIC
MOv
MOv
MOV
DEC
BPL
CLR

SVECT1,R2
#2C<377>,R2
(R2) R4

2(R2),RS

ERROR

;ERROR # DEFINED BY TSTPRP SUBROUTINE

;G0 TO 2108 IF ERROR

sR2 = INTERRUPT ADDRESS

JCLEAR SIGN EXTENSION
;SAVE HANDLER ADDRESS
;SAVE HANDLER PRIORITY

JCLEAR SIGN EXTENSION

R3,-(SP)

;:PUSH R3 ON STACK

(SP)

JWRITE HANDLER ADDRESS AND

;PRIORITY FOR THIS TEST

JR3 = INTERRUPT LEVEL

;.PUSH #PR6 ON STA(K

J:PUSH #1808 ON STACK

80$

(SP)

BIC

#-CPR7. (SP)
#1208,-(SP)
R3,-($P)

JSR

PC,GETSTS

MOvB8
MOvS3
MOV

#RMCST,PUTINX

MOV
MOV
MOV

;G0 TO 708 IF NO ERROR

#1308, (R2)
#PR6,
2 (R2)
SVECT1+1,R3
#*C<377>
.R3
#FRG,-(SP)
#1808 ,-(SP)

VALID

;RECALIBRATE IF ''SKI'' OR ‘'PIP'' |S SET
;VERIFY RECALIBRATION

;RETURN HERE

210%

NOT

#1008, -(sP}

s sPUSH
;sPUSH
J:PUSH
JSETUP

#1208 ON STACK
R3 ON STACK
#1008 ON STACK
TO READ ALL REGISTERS

;SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
#OFFSET!GO!1E,RMCS10
;SET RM(S1 OQUTPUT BUFFER
#200,PUTINX+Y

OFFSET!GO!
1t

[RMMAQ RMOS/3/2

127

2R aF aF aF ol ol ol o o)
WNWNNINININ)
— —
onNvorornvOoOoroO

004737
000404
000240

064624

000137

021564

004737

0446766
000205

106000

853 021512
856 021516
855 021520
856 021522
857
858 021524
859 021526
860 021530
861 021534
862 021536
863 021536
021542
021544
021546
021550
864 02155¢
021554
865
866 021556
021560

868 021564
869

JSR
BR
NOP
EMT
JMP

90%:

012703
000002
012712
005303

JSR

001543
001544
001410

021536

004737
000404
000240

064156

000137

021564

104000

104252

010412
010562

1808
:

000002

;SETUP PUT INDEX TABLE
:SET TERMINATCR BYTE
;SET RMCS1 OUTPUT BUFFER = NOP
;60 WRITE RMCS1 VIA PUT SUBROUTINE
;G0 TO 1108 IF NO ERROR
;RETURN HERE IF ERROPR

021564
021564
021566
021570
02157¢
021600
021604

#200,PUTINX®)

#NOP ,RM(S10
PC,PUT

110%

15130:
001100
001276
001464
000030

001226

SUBROUTINE

;G0 TO 210% IF ERROR

#205,R3
#1408, (R2)

R3
125%

(MP

:NO ERROR

CMP
MOV

(SP)e+, (SP)e

(SP)¢ ,(SP)¢
#1608, (SP)

sADJUST STA(K

JSR
B8R
NOP
EMT
JMP

PC,GET
170%

;G0 TO 170% If NO ERROR

210%

;60 TO 2108 IF ERROR

EMT

252

MOv

R4, (R2)
RS,2(R2)

;ERROR DEFINED BY PUT

2108

DEC
BPL

SeTEST 30
M

SWAIT FOR GO = 0

SUBROUTINE

#RMCSY,PUTINX

MOV

210%:

PC,TIMOUT

;ERROR DEFINED BY PUT

MOVB
MOVB
MOV

RT]

170%:

;G0 TO 210% IF ERROR

JDELAY

RT]

022426

210%

R3
100%

MOV

100376

;60 WRITE RMCS! VIA PUT SUBROUTINE
;60 _TO 908 IF NO ERROR
;RETURN HERE ]F ERROR

DEC

MOV
RT]

021526

PC,PUT

;R3 = GROSS TIMER

NOP
EMT
JMP

021564
000205

90$

#205,R3

JSR
BR

000002

022626
012716
000002

12-31

MOv
RT]

BPL

000000
000200
000000
064424

13:04:53 PAGE

SEQ 0115

870

11-APR-80

100$:

848

849 021644
021452
0214660
021466
021472
021474
021476
021500
850 0215064
851 021510

MACRO v03.01

~ DR
» £
~o o

il
i
D
i
)

b
-

LaSTSTN O 1 N1, N

841
842
843
844
845
846
847

il s el

lolololeleleolole]

T NT V)

INHIBIT

FCINL TST 1
INTERRUPT TEST

AR R

;G0 READ REGISTER(S) WITH GET

TO
R

SCOPE

NOP
MOV
MOv
MOV
MOV

SUBROUTINE

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

RETURN
AR AR AR

sADJUST STA(K

CENTERLINE
R

R R R

AR K]

TEST
2

. SCOPE (ALL
#STACK,SP

$BASE RO

1STQUE R
#30,8TESIN

:START OF

TESTY

SINITIALJZE STACK POINTER

;RO = UN]JBUS ADDRESS

;(R1)
;oSET

= DEVICE BEING TESTED
TEST NUMBER [N APT MAIL

BOX

CIRMRAQ RMOS/3/72 FCTINL TST

130

RETURN TO CENTERLINE

872 021612
021616

004737
054130

MACRO v03.01
TEST

063150

11-APR-8B0

"
13:04:53 PAGE 12-32

JSR
.WORD

SEQ 0116

;PREPARE DEVICE FOR TEST

sTASK

DESCRIPTOR AS FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION

:PACK ACKNOWLEDGE

VOLUME

sVERIFY PACK ACKNOWLEDGE

021620

021622
021626

021626
873 021632
874 021632
021640
021646
021654
021660
021662
021664
021666
875 021672
876 021676
877
878

000404
000240
104000
000137
112737
112737

012737
004737
000404
000240
104000

004737
000404
000240

0464154

000137

022106

004737
00040C5

045152

SEPNOROAN
= PO S NN

—_=NNNNO
NS NYNO SN
N NN
= NN N NN - N
—
NN
NN NN N - N
~

P 8

022040
022042
022044
022046

000000
000200
000017
046424

022106
044070
044766

—=OO00O00O0—-000 (=4
O—=H =OWOr—-O o

880

022106

000137
004737
004737

104000

879

000137

001543

70%:

NOP
EMT
JMP
MOVB
MOVB

001544
001410

MOV

80%:

JSR
BR
NOP
EMT
JMP
JSR
JSR
JSR

001140
001346

177776

001162
001142

100000

001346

001346
077777

001142
001142
001140

100000

051644

0221006

120%:

ERROR

;60 T0 1508 IF ERROR

150%
PC,GETSTS

;SETUP PUT INDEA TABLE
;SET TERMINATOR BYTE
;SET RMCS1 OUTPUT BUFFER = RTC(C.GO
;60 VRITE RMCS1 VIA PUT SUBROUTINE
;G0 TO 80% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR DEF INED BY PUT SUBROUTINE
;60 TO 1508 IF ERROR
JSETUP FOR STATUS FEICH

PC,GET

;6O READ REGISTER(S) WITH GET SUBROUTINE

#200,PUTINX®

#RT(C'GO,RMCSIO
PC,PUT

80%

PC,TIMOUT

sWAIT

FOR RECAL

TO COMPLETE

PC,PRIERR

;60 CHECK FOR PRIMARY ERRORS

JMP

BIT
8ea
CLR

MOV

110%:

<ERROR # DEFINED BY TSTPRP SUBROUTINE

JSR

BR
NOP
EMT
JSR

100$:

RETURN HERE

150%

EMT

001346

#RMCSY ,PUTINX

;RECALIBRATE IF ''SKI'' OR 'PIP'" [S SET
;VERIFY RECALIBRAT]ON
;60 TO 708 1F NO ERROR

JMP

NOP

022106
000001

1509

VALID

;G0 TO 908 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY GEf SUBROUTINE
;G0 TO 1508 IF ERROR

90%:

70%

NOT

BIC
EMT
BIT
BNE
MOv
BI1C
MOv
EMT

JSR
.WORD
. WORD
BR
NOP
EMT
JSR
JMP

90$

1008

PC,a(SP)+

150%

#0OM,RMDS!

110%
$GDDAT
RMDS] ,$BDDAT
#%COM,$BODAT
157

#FATA,RMDS]

120$

RMDS1,$BODAT
#*CATA,S$BDDAT
1;}A,$GDDAT

;GO TO 1008 IF NO ERROR

sRETURN HERE

ERROR

SERROR # DEFINED BY PRIERR SUBROUTINE
.60 BACK FOR MORt ERROR CHECKS

;60 T0 1508 IF ERROR
;OFFSET MODE OFF??
JYES!!

:GOOD DATA FOR TYPEOUT
;BAD DATA FOR TYPEOUT

:Uég.eTTENTlON SET ??
JYES!!

:BAD DATA FOR TYPEOUT
:6GOOD DATA FOR TYPEOUT

PC,CMPERRSTS
ND TMSK
DPE

¢MASK FOR RMER?

7 C,d (SP)+

¢RETURN HERE 1F ERROR
;ERROR # DEFINED BY CMPERRSTS SUBROUTINE
:60 BACK FOR MORE ERROR CHECKS

130%

sds

s CHECK ANY ERRORS NOT MASKED
+MASK FOR RMER1

;G0 TO 1308 IF NO ERROR

.60 T0 150% IF ERROR

FCINL TST

TO CENTERLINE TEST

~
~n

Nmmmwgmmmwm o

T V]

004737
000405
000240
106000
004736
000137
004737
000403
000240

MACRO v03.01

11-APR-80 13:04:53

130%:

061232

JSR
BR
NOP

022106

140%:

046004

:
1508

PAGE

PAGE 12-33
1

PC STCORVSTS

1408

SEa 0117

;60 CHECK FOR CHANGES IN DRIVE STATUS
:60 TO 1408 IF NO ERROR

sRETURN HERE

ERROR

EMT
JSR
JMP

PC,a(SP)+
¢ 3

150 $

;ERROR ¥ DEFINED BY STCDRVSTS SUBRCUTINE
;60 BACK FOR MORE ERROR CHECKS
;GO TO 1508 IF ERROR

JSR
BR

PC S SECERR
15 $
156

;60 CHECK FOR SECONDARY ERRORS
;G0 TO 150% IF NO ERROR

PC,a(SP)+

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

NOP

104000
004736

NSNS

899
900
901

(elololelolelolalololola)

897
898

T NT T NT NT T V)

895

896

EMT
JSR

;RETURN HERE

ERROR

:;t"'ttl‘"t.t.t""""t"'""'tt't"'t.'t'tttttttt"ttt'ttt"'

J*TEST

READ

IN PRESET

TEST

tttl.ttl‘tttttfit'tt"'t"tt'il"'t.l'tt.tt.'.'.ttt.'ttittttt't't

000004
000240
012706
013700
013701
012737

902
903

004737
056130

TSTSl

001100
001276
001464
000031

001226

043150

SCOPE
NOP
MOv
MOv
MOv
MOv

$BASE RO
TSTQUE ,R1
#31,8TESTN

;RO = UNIBUS ADDRESS

JSR
.WORD

054130

PC,TSTPRP

;PREPARE

#STACK,SP

;SCOPE CALL
:START OF TEST
sINITIALIZE STACK POINTER

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

FOR

O =t b b i e e e el d b
SHrorororornororoNONN

70%

EMT
JMP

160%

NOP

022470
OOO0O0OO——=—
=D

ofrroo s

O\VVAWNSE

022164

000404

001543
000006
000034
000032
000000
000200
177777
177777

016200
000021
044424

70$:

001416
001444
001442
001410

MOV
MOvVB
MOvB
MOovB
MOvB
MOvSB
MOV
MOV
MOV
MOV

JSR

NOP

022252
022256

004737

022470
044070
044766

80%:

EMT
JMP
JSR
JSR

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

TEST

;TASK DESCRIPTOR AS FOLLOWS:

:CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE

[olelelelelele)

Wir

—

MMAQ RMO5/3/72
RETURN

VOLUME

NOT

VALID

;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ''SKI'' OR '‘PIP'" IS SET
;VERIFY RECALIBRATION

;G0 _TO 708 IF NO ERROR

;RETURN HERE ]F ERROR
SERROR # DEFINED BY TSTPRP SUBROUTINE
;G0 TO 160% IF ERROR

:R2 POINTS TO INDEX TABLE

#RMCST, (R2)+

#200, (R2)
+
#-1,RMDAO
#-1.RMDCO
NFMT16'ECI!HCI!OFD,RMOFO
#RIP!GO,RMCSTO
PC,PUT

80%

1609

PC,GETSTS
PC,TIMOUT

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO _TO B80S IF NO ERROR
;RETURN HERE

ERROR

;ERROR # DEFINED BY PUT SUBROUTINE

.60 TO 1608 IF ERROR
;SETUP FOR STATUS FET(H

;WAIT FOR RIP TO COMPLETE

022374

18T

TEST

004737
000404
000240

0464156

000137

022470

004737
000405
000240

065152

1046000

MACRO v03.01

106160

001342

005737
001406
013737
005037

001370

004737

051644

104162

115760

—

100%:

001140

005737
001406
013737
005037
1046161

—r

161577

022470
001366

»»
[,V ],V

106000

004736
000137
013737
062737
001403
005037

001342
001140

001370
001140

1108:

001142
1208
:

001142
130%:

104000

939

004737
000405
0002640

940

022479

061232

140%:

104000

004736
000137

»6
94?2

004737
000403
000240

022470
046004

150%:

104000

943 022470
944
945

022470
022470
022472

004736

JSR
BR
NOP
(3,
JMP

PC,GET

JSR
BR
NOP
EMI
JSR
JMP

PC,PRIERR

MOV

81C
BEQ
CLR
EMT

181

BEQ

MOv

00C010
000405
000240

004736
000137

8 10

11-APR-80 13:04:53 PAGE

90%:

[l
oo

920
921

[elelalelelololelolelolelalaloleololeolelololole o
[ N1, ST NT N1 NT VT VT V7T VT 1.1 N1 VT VT VT V1 V1 V1, VT VT VT N1 V) ~
[T, VT, ¥7 N7, T N1 V1 VT T NT NT VT NT VT VT VT VT VT U7 VY V1, V1 ) ~
L
Al Lt At Ul N L U U L L A U A AN AN AN N O RO PO D ~

919

NOOQPOPWNWVE
S NUNNIN = 2 = OO0 O N~N~NO o~
NS OO
NSO NN
SO0
NNOO ~no

(IRMMAQ RMOS5/3/2 FCINL
T
READ IN PRESET

160%:

(LR
EMT
1S7

8taQ

;G0 READ REGISTER(S) WITH GET SUBROUTINE

;60 7O 908 ]F NO ERROR
IF

ERIOR

;ERROR # DEFINED BY GET SUBROUTINE

;60 TO 160% IF ERROR

1608

1008

PC,a(SP)+

1608

;60 CHECK FOR PRIMARY ERRORS
;60 TO 100% IF NO ERROR
;RETURN HERE 1F ERROR

;ERROR # DEFINED BY PRIERR SUBROUTINE

;G0 BACK FOR MORE ERROR CMECKS
;GO T0 160% IF ERROR
. 1S RMOF RESET??

RMOF
|, $BODAT
#°C<FMT16 ECI'HCI!OFD>,$BDDAT
1108
JYES!!
$GDDAT
:GOOD DATA FOR TYPEOUT
160
RMDA]

1208
RMDAI ,$BODAT
$GDDAT
161

RMD(
]

130%

RMDC1,$BDDAT
$GDDAT
162

JSR
.WORD
.WORD
BR
NOP
EMT
JSR
JMP

PC,CMPERRSTS
ND TMSK

JSR
BR
NOP
EMT
JSR
JMP

PC,STCORVSTS
1508

JSR
BR
NOP
EMT
JSR

PC,SECERR

CLR
EmT

SEQ 0118

;RETURN HERE

MOV

DPE
140%

;1S RMDA RESET??
JYES'!

;BAD DATA FOR TYPEOUT

;600D DATA FOR TYPEOUT
;IS RMD(

RESET??

JYES!!
;BAD DATA FOR TYPEOUT
.GOOD DATA FOR TYPEOUT

sCHECK ANY ERRORS NOT MASKED

sMASK

FOR RMER!

;MASK FOR RMER?

;60 TO 1408 IF NO ERROR

PC,a(SP)+

1608

PC,alSP)e

1608

JRETURN HERE IF ERROR
;ERROR # DEFINED BY CMPERRSTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS

;G0 TO 1608 IF ERROR

;60 CHECK FOR CHANGES IN DRIVE STATUS

;60 TO 1508 IF NO ERROR
;RETURN HERE I1F ERROR
;ERROR # DEFINED BY STCDRVSTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
.60 TO 160% IF ERROR

1608

;60 CHECK FOR SECONDARY ERRORS
;G0 TO 160% IF NO ERROR

PC,a3(SP)¢

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

;RETURN HERE

ERROR

2222222222 22222222R22RRRRRRRRRRRRRRRRRR2R0
R 2RRRRRRRRRRRRRd R R

2222222222222

TeTEST 32
000004
000240

90§

12-36

15132:

SCOPE

NOP

RMDC

CLEAR OFFSET

TEST

22222 RERRRRRRRARRRRdRRRRRRRRRRRRRR220220
] ]

sSCOPE CALL

JSTART OF TEST

RMOS5/372 FCINL TST

RMDC

CLEAR

TEST

001100
001276
0014664
000032

225 1
225 2

043150

roNor

OS8O

OO0

022474
225 0
225 0
225 1

OO0

946
947

OFFSET

MACRO Vv03.01 11-APR=-80 13:04:53 PAGE 12+ 35

00122¢

SEQ 0119

MOV
MOV
MOV

#STACK,SP
$BASE ,RD
TSTQUE ,R1

#32,8TESTN

;sSET TEST NUMBER IN APT MAIL BOX

JSR
WORD

PC,TSTPRP
054130

;PREPARE DEVICE FOR TEST
s TASK DESCRIPTOR AS FOLLOWS:

MOV

JINITIALIZE STACK POINTER
;RO = UNIJBUS ADDRESS

;(R1)

= DEVICE BEING TESTED

;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION

sPACK ACKNOWLEDGE

VOLUME NOT

;VERIFY PACK ACKNOWLEDGE

£ NN
S00NOO

elelolelalolole]

948
949

PNIRIRNIRNONINI
NN
oo
NN
A
i Al L IV IV TV

¢RECALIBRATE

000404
000240
104000

023006

112737
112737

000000
000200
000015
0646424

012737
004737
000404
000240
104060

000137
004737

023006
044070

022602
022606
022610
022612
022614
953 022620
95¢6 022620
022624
022626

004737
000404
000240

0464156

000137

023006

004737

045152

000

LAl VoLV

N
= O

022572
022576

955

956

957
958
959
961
962
963

964

022630
022632
022634
022640
022646
022650
022656
022664
022672
022674
022676
022676
022704
022712
022720
022724
022726
022730
022732
022736

104000

001543
001544
001410

70$:

70%

.60 TO 708 IF NO ERROR

EMTY
JMP

1408

;60 TO 1408 IF ERROR

MOvB
MOvVB
MOV

#RM(CST ,PUTINX
:SETUP FUT INDEX TABLE
#200,PUTINX®*1
:SET TERMINATOR BYTE
#OFFSET
. GO,RM(CS10
;SET RMCS1 OUTPUT BUFFER = OFFSET:GO

80%

JMP
JSR

140%
PC,GETSTS

JSR

PC,GET

JSR

NOP
EMT

80%:

JSR

PC,PRIERR

;G0 CHECK FOR PRIMARY ERRORS

PC,a(SP)+

JRETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE
;60 BACK FOR MORE ERROR (ME(KS
;GO TO 140% IF ERROR
;OFFSET ON??

NOP

112737
112737

012737
004737
000404
000240
104000

000137

EMT
JSR

001346
177776
000001

001142
001142
001140

000034
000200
000000
064424

023006

001543
001544
001444

100%:

110%:

90%

100%

;GO TO 1008 IF NO ERROR

JMP
8IT
BNE
MOV
BIC
MOV
EMT

140%
#OM,RMDST
110%
RMDSI,$B0ODAT
#*COM,$BDDAT
#OM,SGDDAT
156

1408

;SKIP REST OF

MOVB
MovB
MOV

#RMDC,PUTINX
#200,PUTINX+1
#0,RMDCO

;SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
;SET RMDC OUTPUT BUFFER = 0
;G0 WRITE RMDC VIA PUT SUBROUTINE

B8R

JSR

NOP
EMT

120%:

RETURN HERE ]F ERROR
;ERROR DEF INED BY PUT SUBROUTINE
;60 T0 140% IF ERROR
;SETUP FOR STATUS

140%

0071346

;00 WRITE RMCS1 VIA PUT SUBROUTINE
;G0 TO 808 IF NO ERROR

EMT
JMP

NOP

023006
000001

PC,PUT

sRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE

;60 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

B8R

90%:

''SKI'' OR ''PIP'" IS SET

;VERIFY RECALIBRATION

NOP

000137

VALID

JMP

PC,PUT

1208

140%

JYES

JBAD DATA FOR TYPEOQOUT

.GOOD DATA FOR TYPEOUT

TEST

;G0 TO 1208 IF NO ERROR
;RETURN HERE

ERROR

;ERROR DEFINED BY PUT
;60 TO 1408 IF ERROR

SUBROUTINE

RMOS5/3/2 FCTINL TST
RMDC

CLEAR OFFSET

004737

TEST

MACRO v03.01

0 10

11-APR-80 13:04:53 PAGE

06415¢

JSR
BR
NOP

023006
000001

966
967
968
969

001346

177776
001140

970
9N
972
973
974

001346

130%:

001142
007142
140%:
A

023006
023006
023010
023012
023016
023022
023026

000004
000240
012706
013700
013701
012737

023040

004737
040000

—h
)
)
il
)
el
e
il
)
)
e
e
—

O NN S BN N NN = = O
S OONNNOHMTNOSOON

NORLRLNIRLNU
RN RNV NI NO N
U L L L U AN AN A A N L N

987
988

023042
023044
023046
023050
023054
023054
023060
023064
023064
023070
023072
023074
023076
023102

[elelelelelelelelelelolo
el

984
985
986

81C
(LR
EMT

TeTEST 33

975
976 023034

982

Bl7
BEQ

MOv

. I AARAS

977
978
979
980
981

EMT
JMP

15133
001100
001276
001464
000033

043150

000404
000240
104000
000137

023572

004737
012702

044070
000000

004737
000404
000240

053530

000137

023572

104000

001226

10%:

000024
000200
000001
064626

001543
001544
001434

023572
000024
000200
001401
066424

001543
001544
0014634

SEQ 0120

:60 READ REGISTER(S)

1308

SUBROUTINE

;RETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE

:QS‘RHDSI

140%

;60 10 1408

;DID

OFFSET

MODE

RMDS,$BODAT
#*COM,$BDDAT

;BAD

DATA

3?%DAT

WiTH GET

160 T0 1308 IF NO ERROR

ERROR

FOR

RESET??

TYPEOUT

;GO0OD DATA FOR TYPEQUT

ILLEGAL FUNCTION TEST
SRR

SCOPE
NOP

ARl

AR R

XN 2

;START OF

JSR
.WORD

PC,TSTPRP

;PREPARE

;60 10 5% IF

EMT
JMP

1108

$BASE RO
TSTQUE ,R!
#33,8TESTN

040000

JINITIALIZE

DEVICE

FOR

TEST

;CLEAR CONTROLLER & SELECT DEVICE

RETURN HERE

NO ERROR
IF

ERROR

SERROR ¥ DEFINED BY TSTPRP SUBROUTINE
;GO T0O 1108
;SETUP FOR

JSR
B8R

PC,CNTCLR

;60

110%

POINTER

:TASK DESCRIPTOR AS FOLLOWS:

PC,GETSTS
#NOP,R2

20%

STACK

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

JSR

EMT
JMP

TEST

FSTACK,SP

MOv

. SCOPE CALL

MOV
MOv
MOV
MOV

NOP

20%:

PC,GET

NOP

5¢:

12-36

ISSUE

ERROR

STATUS

CONTROLLER CLEAR

;G0 T0 208 IF NO ERROR
sRETURN HERE 1F ERROR
;ERROR NUMBER DEFINED BY SUBRCUTINE
;G0 TO 1108 IF

ERROR

+SET DIAGNOSTIC MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON
:CYLINDER
MOvVB
Movs
MOV
JSR
BR
NOP

30%:

EMT
JMP

MOVB
MOvB
MOv

JSR

NRMMR1,PUTINX
#200,PUTINX+Y
#DMD ,RMMR10
PC,PUT

308

110%
#RMMR1 ,PUTINX

#200,PUTINX+1

;SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
:SET RMMR1 QUTPUT BUFFER = DMD
;G0 WRITE RMMR! VIA PUT SUBROUTINE

;GO _TO 308 IF NO ERROR

¢RETURN HERE

ERROR

.ERROR DEFINED BY PUT SUBROUTINE
:GO TO 1108 IF

;SETUP PUT

ERROR

INDEX TABLE

:SET TERMINATOR BYTE

#DMD 'MUR ! MOC ,RMMR10

PC,PUT

:SET

RMMR1

;GO WRITE RMMR1

OUTPUT

VIA PUT

BUFFER

~ DMD'MUR.MO(

SUBROUTINE

RMOS/3/2 FCINL TST 1
ILLEGAL FUNCTION TEST

000404
000240
104000
000137

MACRO v03.01

E 10

11-APR-80 13:04:53 PAGE

SEQ 0121
BR

023572

000000
000200
000023
044426

35%:
001543
001544
001410

NOP
EMT
JMP

— e el
i e et O OOOOOO
— el b il el il e e s O O =t \ N

023572

004737

177777

001416
0014644
010000
001543
000004
000002
000032
000006
000034
000200
000200
044424

0014610

JSR
BR

40%:

EMT
JMP

MOV
B!S

001614
001412

MOV
rFOV

001442

CLR
CLR

MOV
MIVB
MovB
MOVB
MOvB
MOVB
MOvVB
MOVB

JSR
BR

NOP

023572
0644766

023364

004737

023370
023374
023376
023400
023402
023406
023406
023412
023414
023416
023420
023422
023426
023434
023442
023450
023456
023464
023466

004737
000404
000240

044154

000137

023572

004737

045152

104000

508%:

EMT
JMP

60%:

2
2
l

110%

70¢%:

PC,PUT

40$

110$

;60 70 35% IF NO ERROR
;RETURN HERE

ERROR

;ERROR DEFINED BY PUT SUBROUTINE
;60 TO 1108

ERROR

#GO,RMCS10

;ERROR DEFINED BY PUT SUBROUTINE
;G0 TO 110%

ERROR

;G0 WRITE

50¢

110%

PC,GET

PC,PRIERR

70%

PC,a(SP)+

SUBROUTINE

ERROR

PC,PUT

NRMDA, (R3)+
#RMDC, (R3)+
#RMCST, (R3) ¢
#200, (R3)

EMT
JMP

BIC
CMP
BEQ
EMT

¢RETURN HERE

;DUMMY WORD COUNT
sCLEAR DISK ADDRESS
sCLEAR CYLINDER ADDRESS
;16 BIT FORMAT

60%

MOV

VIA PUT

#-1,RMWCO
RMDAQ
RMDCO
NEMT16,RMOFO
#PUTINX,R3
#RMBA, (R3)+
FRMUC, (R3)+
#RM
, (R3)+
OF

JSR
BR

MOV
BIC

RMCS1

260 TO 408 IF NO ERROR

sWRITE

#BUFONE ,RMBAO

PC,TIMOUT

JSR
BR
NOP
EMT
JSR
JMP

;60 WRITE

R2,RMCS10

JSR

NOP

0
0

35%

;SET VOLUME VALID BEFORE ISSUING FUNCTION CODE BEING TESTED
MOVB
NRMCS1,PUTINX
;SETUP PUT INDEX TABLE
MOvB
#200,PUTINX+1
SSET TERMINATOR BYTE
MoV
#PAKACK ' GO,RMCS10
;SET RMCS1 OUTPUT BUFFER = PAKACK'GO
NOP

000001
001410
103640

12-37

FUNCTION CODE

;DUMMY BUS ADDRESS

IN BUFFER

;WRITE REGISTER INDEX TABLE

;G0 T0 508 IF NO ERROR

WITH PUT

SUBROUTINE

;RETURN HERE IF ERROR
SERROR # DEFINED BY PUT SUBROUTINE
;60 TO 110% IF
;WAIT

ERROR

FOR GO TO RESET

;G0 READ REGISTER(S)

;GO TO 608

WITH GET

NO ERROR

SUBROUTINE

;RETURN HERE 1F ERROR
;ERROR ¥ DEFINED BY GET SUBROUTINE
;60 TO

1108 IF

;60 CHECK

ERROR

FOR PRIMARY

;60 TO 70% IF

SsRETURN HERE

NO ERROR

ERRORS

ERROR

;ERROR # DEFINED BY PRIERR SUBROUTINE
:60 BACK

FOR MORE

ERROR

1108

260 TO 1108 IF ERROR

ggz

JYESH!

CHECKS

FNCDTB(R2),$GDDAT
:GET ENTRY FROM FUNCTION CODE
#*CILF,SGDDAT
RMER1],$BDDAT
;BAD DATA FOR TYPEOU?
N CILF ,$BDDAT
$GDDAT ,$BDDAT
J1S ILF STATUS (ORRECT?

TABLF

el
o

023630
023632
023634
023640
023640
023644
023650
023650
023654
023656

NN NNSNWNN

60
60

42
.
42

12-38

90%:

023064

BIC

#ATA,SGDDAY

;YES = ATA SHOULD BE

AN ERROR

DETECTED??

;GET DRIVE'S ATTENTION

$GDDAT,$BDODAT
100%

;IS ATA STATUS 0K??
JYES!!

1108
¥2,R2
FILF76,R2
110%
10$

:GO TO NEXT FUNCTION CODE
;DONE??
JYES !
;TEST NEXT FUNCTION

255

:NO!!

RMDSI,$BDDAT

#*CATA SBDDAT

BR
ADD
CMP
BLO
JMP

<WAS

#CATA,$GDDAT

MOV
BIC
CMP
BEQ
EMT

110%:

#ERR,RMDS]

90%

BEQ
BIS

100%:

INVALID COMMAND TEST

';'tt..t.'."'l."""t""'""t..'."'..."tl'.'.'""t'Q'."

000004
000240
012706
013700
013701
012737

004737
040000

TST134:

001100
001276
001464
000034

SCOPE
NOP
MOV
MOV
MOv

001226

043150

000404
000240
104000

000137

024316

004737
012702

044070
000000

004737
000404
000240
104000
000137

053530

5¢%:
10%:

20%:

000024
000200
000001
044424

000137

024316

001543
001544
001434

;INITIALIZE

STACK

POINTER

;RO = UNJBUS ADDRESS

MOV

N34 ,STESTN

:.SET

JSR

PC,TSTPRP

TSTQUE R

.WORD

040000

EMT
JMP

:(R1)

DEVICE

BEING

TEST NUMBER

;PREPARE DEVICE

FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:
;CLEAR CONTROLLER & SELECT DEVICE
NO ERROR

110%

;G0 TO 1108

JSR
MOv

PC,GETSTS
#NOP,R2

;SETUP FOR

JSR
BR

PC,CNTCLR

;GO

EMT
JMP

;SET DIAGNOSTIC
; CYLINDER
MovB
MOovB
MOV
JSR
BR
NOP
EMT
JMP

20%

110%

TESTED

IN APT MAIL BOX

;G0 TO 5% IF

NOP

024316

FSTACK,SP

;SCOPE CALL
;START OF TEST

$BASE RO

NOP

RV P

023660
023662
023666

13:04:53 PAGE

1108
FNCDTB(R2) ,$GDDAT

BR
MOV
BIT

80%:

S NNNNNNES NN
AN O N INIAN N N O NN

2 LNNJNNIND
=N o

023626

= OO
00

0
46

TYTEST 34

023624

ol o

100000

07777
001346
07?777
001140

11-APR-B0

SEQ 0122

023620

QOO0

067046
040000

MACRO v03.01

000002
000076
000137

023572
023572
023574
023576
023602
023606
023612

1043
1044
1045
1046
1047

QOO DO0O0OO0O o
o a2 a2V
T o) v —

AN AL A

A YAl

LY IV IV TV

COCWVNWVNE
B W= =200
OHrVOCONSOCO0O

000440

[ASIaSIASTANT
ST NI N1, S1,81 81, ] ,§],¥)

OO0
NO NS NN

D ol

D el

D e’ e

2 OO 00 ~O N S

D e

elelelale] olelelololelolololalolololo]
NN Yt
L
IV LT N LT N T V1, 1 NT ¥

RMO5/3/2 FCINL TST 1
ILLEGAL FUNCTION TEST

;RETURN HERE |F ERROR
:ERROR # DEFINED BY TSTPRP SUBROUTINE

ISSUE

ERROR

STATUS

CONTROLLER

CLEAR

;G0 TO 20% IF NO ERROR
sRETURN HERE IF ERROR
;ERROR NUMBER DEFfINED BY SUBROUTINE
;60 TO 1108 IF

MODE AND DIAGNOSTIC UNIT READY,

ERROR

DIAGNOSTIC ON

#RMMR1,PUTINX

;SETUP PUT

#OMD ,RMMR10
PC,PUT

:SET RMMR1 OQUTPU1 BUFFER - DMD
.60 WRITE RMMR1 VIA PUT SUBROUTINE

#200,PUTINX+1

30%

110%

INDEX TABLE

;SET TERMINATOR BYTE

;60 TO 308 IF NO ERROR
;RETURN HERE

ERROR

;ERROR DEFINED BY PUT SUBROUTINE
.60 TO 1108

ERROR

(IRMMAQC RMOS5/3/2 FCTINL TST
134

MACRO v03.01

INVALID COMMAND TEST

1053 023726

1054 023726

02373«
0237642
023750

023756

023756
023760
023762

1055 023766
1056
1057

112737

112737
012737
004737

000404

000240
104009
000137

)

000024

000200
001401
044424

001543

012737
050237
012737
012737
005037
005037
012737
012703
112723
112723
112723
112723

1074 024062

112723

1075 024066
1076 024072

024076
024100
024102
024104
}8;5 024110
1079 024114

024120
024122
024126
024126

112723

112713
004737

000404
000240
104000
000137
004737
004737

000404
000240
104000
000137

000001
001410
103640
177777
001416
001446
010000
001543
000004
000002
000032
000006

358

000440

MOVB

024316
064766

MOVB
JSR

508 :

0641564

JSR

024316

1089 024214

001442

BR
NOP
EMT
JMP
JSR

000137

016237
062737
013737
062737
023737
001402
104216

001414
001412

000200
0464626

024146

000405
000240
104000
004736

MOV
BIS
MOV
MOV
CLR
(LR
MOV
MOV
MOVB
MOVB
MOVB
MOVB

MOVB

065152

0264152
0264160
024166
024176
024202
026210
024212

WRMMR1,PUTINX

;SETUP PUT

35¢

:6G0 T0 358 IF NO ERROR

INDEX

TABLE

#200,PUTINX¢1
:SET TERMINATOR BYTE
#OMD ! MUR 'MOC ,RMMR10
;SET RMMR1 OUTPUT BUFFER = DMD.MUR.MOC
PC,PUT
;G0 WRITE RMMR1 VIA PUT SUBROUTINE

110%

*RETURN HERE IF ERROR
*ERROR DEFINED BY PUT SUBROUTINE
260 70 1108 [F ERROR

408:

001410

000034

004737

1082
1083
1084
1085
1086
1087
1088

NOP
EMT
JMP

000000

1080 024132
108 024132

024136
024140
024142
024144

MOVB
MOV
JSR

;VOLUME VALID IS LEFT RESET FOR THE TEST

023766
023766
023774
0264000
024006
024014
024020
024024
024032
024036
024042
024046
024052

1073 024056

MOVB

B8R

024316

SEQ 0123

308
:

001544
GO1434

}823

1060
1061
1062
1063
1064
1065
1066
1067
1068
1069
1070
1071
1072

G 10
11-APR-80 13:064:53 PAGE 12-39

067046
167777
001376
167777
001140

60$:

70$:

;WRITE FUNCTION CODE
:DUMMY BUS ADDRESS
:DUMMY WORD COUNT

IN BUFFER

SCLEAR DISK ADDRESS
“CLEAR CYLINDER ADDRESS
216 BIT FORMAT
‘WRITE REGISTER INDEX TABLE

WRMDC . (R3)+

#RMCST, (R3)+

#200, (R3)
PC,PUT

50%

;GO WRITE REGISTER(S)

WITH PUT

SUBROUTINE

110%
PC,TIMOUT

160 TO 508 IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEFINED BY PUT SUBROUTINE
:60 TO 1108 IF ERROR
:WAIT FOR GO TO RESET

PC,GET

;G0 READ REGISTER(S) WITH GET

SUBROUTINE

BR
NOP
EMT
JMP

60%

1108

;G0 TO 60% IF NO ERROR
‘RETURN HERE If ERROR
:ERROR # DEFINED BY GET SUBROUTINE
:GO TO 1108 IF ERROR

JSR

PC,PRIERR

;GO CHECK FOR PRIMARY ERRORS

BR
NOP
EMT
JSR
001140
001140
001142
001142
001142

#GO,RMCS10
R2.RMCS1O
#BUFONE ,RMBAO
#-1,RMWCO
RMDAO
RMDCO
NFMT16,RMOFO
#PUTINX,R3
#RMBA,(R3)+
WRMWC.(R3)+
WRMOF
. (R3)+
#RMDA.(R3)+

JMP

MOV
BIC
MOV
BIC
CMP
BEQ
EMT
BR

70%

PC,a(SP)+

1108

:6G0 T0 708 IF NO ERROR
:RETURN HERE I1F ERROR
:ERROR # DEFINED BY PRIERR SUBROUTINE
:G0 BACK FOR MORE ERROR CHECKS

:G0 TO 110% IF ERROR

FNCDTB(R2),$GDDAT
:GET ENTRY FROM FUNCTION CODE
#°CIVC,SGDDAT
RMER21.$BDDAT
:BAD DATA FOR TYPEQUT
#*CI1VC,$BDDAT
$GDDAT,$BDDAT
;1S IvC STATUS CORRECT?
80$
SYES
!
216
110%

TABLE

&~ — NP NPON)
— PO O
N NNNNNES NN
O O WVNONININININO
NN
PO N
N NNNNW
NN

024216
024224
024232
024234
024242
024250
024256
024264
024272
024274
024276
024300
024304
024310
024312
024316

—
[el=lolololalelels]
o O = P NOW—

NO NS WA —O
= OV
NOWVEB WA

e
o
o
i o’ o
e
e
D
D e
el el
o
e
b
b

ol o e e el d ed () [elelolololaololols]
o [elelelololelelleVolVe
lelVe Ve IVe XV IVe IV |

CIR MMAOQ RMOS5/3/2 FCINL TST 1
134
INVALID COMMAND TEST

067046
040000

MACRO v03.01

40
46

60
40
42
42
42

000002
000076

80%:

—-O

QO
O 0o
e
il
il
il
——l®

V00 ~NO W

—

—
d

e
b

e
o

e
b

il
—

—

—tt

—t

MOV
BIT
BEQ
BIS
BIC

90%:

023650

S*TEST 35
024316
024316
024320
024322
024326
026332
024336

000004
000240
012706
013700
0370
012737

024 344
024350

004737
040000

024352
024354
024356
024360
024364
024364
024370
024374
024374
026400
026402
024404
024406
024412

000404
000240

104000

001100
001276
001464
000035

001226

004737
012702

044070
000000

004737
000404
000240

053530

000137

025106

5¢%:
10%:

000024
000200
000001
0464426

001543
001544
001434

025106

;GET DRIVE'S ATTENTION
JYES!!

110¢
"2 ,R2
FILF76,R2
110%
10%

;60 TO NEXT FUNCTION CODE
sDONE??
JYES !
JTEST NEXT FUNCTION

255

INVALID ADDRESS ERROR
dd

Rl R

N#STACK,SP
$BASE RO
TSTQUE R

JSR
.WORD

040000

PC,TSTPRP

BR
NOP
EMT
JMP

JSR
MOv

PC,GETSTS
#NOP ,R2

JSR
BR

PC,CNTCLR

EMT
JMP

R R R

RN R

TEST
R

R R NN

s SCOPE CALL

#35,8TESTN

EMI
JMP

;IS ATA STATUS 0k??

100%

MOV

JSR
BR

;YES = ATA SHOULD BE ON

S$GODAT,SBDDAT

;SET DIAGNOSTIC
JCYLINDER
MOVB
MOVB
MOV

30%:

RMDSI,$BODAT

SCOPE

NOP

000137

sWAS AN ERROR DETECTED??

sNO!!

#2CATA,$BDDAT

NOP

20%:

SEQ 0124

90%

#ATA,SGDDAT
#*CATA,SGDDAT

NOP
MOV
MOV
MOV

043150

025106

026412
024420
024426
024434
024440
026442

024444
024446
1120 024452

1S735:

000137

104000

2SS

12-40

FNCDTB(R2) ,$GDDAT

CMP
BLO
JMP

110%:

H 10

13:04:53 PAGE

#ERR,RMDS]

MOV
BIC
(MP
BEQ
EMT
BR
ADD

100%:

—d

11-APR-80

20%

:(R1)

;. SET

= DEVICE

BEING

TEST NUMBER

;PREPARE

DEVICE

TESTED

IN APT MAIL BOX

FOR

TEST

; TASK DESCRIPTOR AS FOLLOWS:
;CLEAR CONTROLLER & SELECT DEVICE
:60 TO 58 IF

NO ERROR

;GO TO

1108

;SETUP FOR

;60

ISSUE

ERROR

STATUS

CONTROLLER

CLEAR

;60 TO 208 IF NO ERROR
:RETURN HERE IF ERROR

<ERROR NUMBER DEFINED BY
;GO TO 1108 IF ERROR

110%

AND DIAGNOSTIC

NRMMRT,PUTINX

#200,PUTINX+1
#DMD ,RMMR10
PC, PUT
30%
110%

SINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS

sRETURN HERE 1F ERROR
SERROR # DEFINED BY TSTPRP SUBROUTINE

110%

MODE

TEST

:START OF

UNIT

READY,

;SETUP PUT

SUBROUTINE

DIAGNOSTIC

INDEX TABLE

;SET TERMINATOR BYTE
;SET RMMR1 QUTPUT BUFFER = DMD
;60 WRITE RMFR1 VIA PUT SUBROUTINE
;60 70 308 IF NO ERROR
;RETURN HERE

ERROR

;ERROR DEFINED BY PUT
;G0 10

1108

ERROR

SUBROUTINE

RMOS/3/72 FCINL TST 1
MACRO v03.01
INVALID A
S ERROR TEST

000024
000200
001401
064426

024502
024504
024506
024512

024704
024710
024712
024714
0264716
024722
024722
024726
026730
024732
024734
024736
024742
024750
024756

000000
000200
000023
064624

001543
001544
001410

012737
NNNNNNNNSNSNSNNNNNN

004737

004737
000404
000240
104000

000001
001410

103640
177777
177777
177777

010000
001543
000004
000092
000032
000006
000034
000000
000200
044424

025106
044766

JSR
BR
NOP
EMTY

025106

004737
000405
000240

045152

MOvB
MOvB
MOV
JSR
BR
NOP

#200,PUTINX+1

001410

40%:

PC,PUT

35¢

50%:

60%:

70%:

1108

;SET

160 T0

RMMR1

OUTPUT

vIA PUT

BUFFER

SUBROUTINE

ERROR

1108 IF

ERROR

;SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE

#PAKACK'GO,RMCS1O
:SET RMCS1 OUTPUT BUFFER =
PC,PUT
;60 WRITE RM(CS1 VIA PUT SUBROUTINE

40%

#BUFONE ,RMBAO

R2,RMCS10

#-1,RMWCO
#-1,RMDAO
#-1,RMDCO
NFMT16,RMOFO
#PUTINX,R3
NRMBA, (R3) +
NRMWC, (R3)+
#RMOF
, (R3)+
#RMDA, (R3)+
NRMDC, (R3)+
#RMCST, (R3)+
#200, (R3)
PC,PUT

:60 TO 408 IF

NO ERROR

;60 TO 1108 IF

ERROR

;WRITE

FUNCTION CODE

IN BUFFER

;DUMMY BUS ADDRESS

<DUMMY WORD COUNT
sUSE INVALID DISK ADDRESS
sUSE INVALID CYLINDER ADDRESS
;16 BIT FORMAT
;WRITE REGISTER INDEX TABLE

;60 WRITE

;60 _TO 508 IF

NO ERROR

110%

GO TC 1108

ERROR

JSR
BR
NOP
EMT
JMP

PC,GET

JSR
BR
NOP
EMT
JSR
JMP

PC,PRIERR

60%

70$

PC,a(SP)+

110¢

WITH PUT

SUBROUTINE

;RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
JWAIT

FOR

GO TO RESET

26O READ REGISTER(S)

;60 TO 608

sRETURN HERE

110%

PAKA(K'GO

JRETURN HERE IF ERROR
;ERROR DEFINED BY PUT SUBROUTINE

50%

PC,TIMOUT

DMD'MUR .MOC

ISSUING FUNCTION CODE BEING TESTED

NRMCST,PUTINX
#200,PUTINX+1

MOV
MOv
MOV
MOV
MOv
MOV
MOvVB

MOV

TABLE

:ERROR DEFINED BY PUT SUBROUTINE

#GO,RM(S10

B1C

INDEX

TERMINATOR BYTE

:G0 TO 35% IF NO ERROR

MOV

:SET

*RETURN HERE

110%

MovB
MOVB
MOvB
MOvB
MOVB
MOvB
JSR
BR
NOP
EMT
JMP
JSR

;SETUP PUT

;G0 WRITE

JMP

BIS

001614
001412
001416
001444
001442

12-41

#DMD _MUR 'MOC , RMMR 10

EMT

104000

004736
000137
016237
042737
013737

JMP

NRMMR1,PUTINX

;SET VOLUME VALID BEFORE

044154

000137

110

13:04:53 PAGE

SEQ 0125
MOVB
MOvB
MOV

35%:

025106
AN === NI AL D NI NV O N N N NN N
NANININ
NN N NN N N NI N NN

024512
024520
024526
0246534
024540
024542
026544
026546
024552
024552
024560
024564
024572
024600
024606
024614
024622
026626
024632
024636
024642
026646
024652
024656
024662
024666
024670
024672
024674
024700

001543
001544
001436

025106

Ottt b s b s 2 OO OOOOO
o—.—.—.—a—o—._a_a_..—a_o-.—a\l\
S NNV
O

p
b ek
—

rorNOrON
NS NP

£ B B N AN AN N NN N AN NN RO N PO A
N=O VRN NS WA —=OOVO~NNO

D el

D
id
D

il e
D

d e
e

d e
el

d o

el e

D
el

) el

i
b o
—

i
i

P
el
D

024452
024460
024466
024474
024500

11-APR-80

WITH GET

NO ERROR

ERROR

;ERROR # DEFINED BY GET
;G0 TO 1108 IF
;G0 CHECK

ERROR

SUBROUTINE

FOR PRIMARY ERRORS

:60 TO 70% IF

‘RETURN HERE

NO ERROR

ERROR

:ERROR # DEFINED BY PRIERR SUBROUTINE

160 BACK FOR MORE

ERROR

:GO 10 1108 IF ERROR

FNCOTB(R2),$GDDAT
#*C1AE,$GDDAT
RMER1],$BDDAT
;BAD

:GET

DATA FOR

CHECKS

ENTRY FROM FUNCTION CODE
TYPEQUT

TABLE

WVIND N N NN NN N

AN S NN
NS NN S

N ANNININ
O NN &

042737
023737

Bl leloleololeolole)
OOMNE = NON-—
55 2 UNRNPNON
= PO

NNNNOOTOOOO
OO O NN
NN
NN = OO 00NV
NN = OO 00 NN NV S (NN —

—‘.—J._‘_‘—A_J—.—J_-‘—D—l—.—‘_—‘.—l_‘_fl—‘—‘_—l—‘—‘_—l

—.-._l—0—._‘—‘—‘—‘—‘—‘—‘—._‘—._—‘—.—0—‘—._‘-—.‘

RMOS/3/2 FCTINL TST 1
MACRO v03.01
INVALID ADDRESS ERROR TEST

000407

025106

000137

175777
001140

001142
001142

Bl(
(MP
BEQ
EMT
BR

067046
040000
100000

077777
001346
077777
001140

MOv

BIT
BEQ
BlS
BIC

001140

001140
001142
001142
001142

000002
000076

MOV

BlC

CMP

026374

110¢%:

b
md
e
e
d
e

NN~
OO
OO

o
B

PN
O

—

001276
001464
000036

004737
040000

043150

000404
000240

025202

12-42

#*CIAE,$BDDAT

SGDDAT.$BODAT

80%
217

;1S

SEQ 0126
IAE

JYES!H!

STATUS CORRECT?

1108
FNCDTB(R2),$GDDAT

#ERR,RMDS |

:WAS AN ERROR DETECTED??

90$

#ATA,$GODAT
#~CATA,SGDDAT

RMDS1,$BODAT

#*CATA,SBDDAT
$SGDDAT,$BDDAT

100¢

255

1108
"2 ,R2

INO!

SYES - ATA SHOULD BE

:GET DRIVE'S ATTENTION
;IS ATA STATUS 0x??

JYES!!

;60 TO NEXT FUNCTION CODE

NILFT6,R2
110%
108

001226

025672

004737
012702

044070
000000

004737
000404
000240
104000
000137

053530

5%:
10%:

*DONE??
SYES 1
STEST NEXT

FUNCTION

20%:

NNNN

000024
000200
000001
044424

001543
001544
001434

LOCK

ERROR

TEST

ARl

IR R

RN R

#STACK,SP

sSTART OF TEST
INITIALIZE STACK

JSR
.WORD

PC,TSTPRP

;PREPARE DEVICE FOR
s TASK DESCRIPTOR AS

EMT
JMP

110%

040000

;(R1)

= DEVICE

BEING

TESTED

;:SET TEST NUMBER IN APT MAIL BOX
TEST
FOLLOWS:

sCLEAR CONTROLLER & SELECT DEVICE
;60 TO 5% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;60 TO 1108 IF ERROR

JSR

PC,GETSTS
#NOP ,R2

;SETUP FOR STATUS

JSR
BR

PC,CNTCLR

;60 ISSUE CONTROLLER CLEAR

JMP

POINTER

;RO = UNIBUS ADDRESS

MOV

s SCOPE CALL
$BASE ,RO
TSTQUE ,R1
#36,8TESTN

NOP
EMT

025672

WRITE
R

SCOPE

NOP

000137

OO ——
QO =t
b
Hroronr

025202
025210
025216
0252264

NOP
MOV
MOv
MOV
MOV

001100

013700
013701
012737

104000

TST36:

OVNWNESSE
SOSrrOO0SNN

OOOOOOO
nono
[AF1aN 1,81, N1,,§],¥],
¥
RV V. BV IV IV IV IV TV T
IV I
A

—

000004
000240
012706

NN
NS

(MP
BLO
JMP

SRTEST 36

VAV IV I

00 ~N~N~N~N
OD00~NO

0D 0o 00 0 Co

i
il

ADD

13:04:53 PAGE

';"'.Q'.'.'Ill"'iiiiil.lt'"tt.'fl*"""'tt.""."""'t"'l'Q

[ole]

~N~

—

—
b

-l

cumd
el

—

umih
el
)

D i
el

)
—

8EQ
EMT
8R

100%:

—

11-APR-80

20%

110%

.60 TO 208 IF NO ERROR
;RETURN HERE

ERROR

;ERROR NUMBER DEFINED BY SUBRNUTINE

;G0 TO 1108 IF ERROR

sSET DIAGNOSTIC MODE AND DIAGNOSTIC UNIT READY, DIAGNOSTIC ON
;CYLINDER, AND DIAGNOSTIC WRITE LOCK
#RMMR1 ,PUT INX
MOvB
sSETUP PUT INDEX TABLE
Move
#200,PUTINX+]
;SET TERMINATOR BYTE
MOV

JSR

#DMD ,RMMRI10
PC,PUT

;SET RMMR1 QUTPUT BUFFER - DMD
;G0 WRITE

RMMR1

VIA PUT

SUBROUTINE

CZRMMAQ RMOS/ 3/2 FCINL TST 1
136
WRITE LOCK ERROR TEST

025230
025232
025236
025236

1186 025242
1187 0252642

000404
000240
104000
000137

025672

112737

0000264

025250
025256
025264

112737
012737
004737

025272
025274
025276
}}gg 025302

000240
104000
000137

025672

112737

000000

025270

1190
1191 025302

000404

025310
025316
025324

112737
012737
004737

025332
025334
025336

000240
104000
000137

025672
000001
001410
103640
177777

025330

000404

1192
1193
1194
1195
1196

025342
025342
025350
025354
025362

012737
050237
012737
012737

1198
1199
1200
1201
1202
1203
1204
1205
1206
1207
1208

025374
025400
025606
025412
025416
025422
0256426
025432
025636
025442
025446

005037
012737
012703
112723
112723
112723
112723
112723
112723
112713
004737

1197 025370

025452
0254564
025456
025460
}5?3 025466

1211

000200
001411
044424

025470

025474
025476
025500
025502

1212 025506
1213 025506
025512
025514
025516

005037

000404
000240
104000
000137
004737
004737

000404
000240
104000
000137

004737

000405
000240
104000

000200
000023
044424

001416

001444
010000
001543
000004
000002
000032
000006
000034
000000
000200
064424

025672
064766

MACRO v03.01

001543

308
:

001544
001434

;SET

001544
001410

045152

MOVB

WRMMR1,PUTINX

:;SETUP PUT

35¢

160 TO 358 IF NO ERROR

NOP
EMT
JMP

001414
001412

NOP
EMT
JMP

(LR

CLR
MOV
MOV
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
JSR

001442

508 :

BR
NOP
EMT
JMP
JSR
JSR

608:

INDEX TABLE

#200,PUTINX+1
:SET TERMINATOR BYTE
#DMD | MUR ! MOC 'MwP,RMMR10 ;SET RMMR1 OUTPUT BUFFER = DMD.MUR'MOC
'MwP
PC,PUT
:60 WRITE RMMR1 VIA PUT SUBROUTINE

1108

*RETURN HERE IF ERROR
:ERROR DEFINED BY PUT SUBROUTINE
260 TO 1108 IF ERROR

VOLUME VALID BEFORE ISSUING FUNCTION CODE BEING TESTED
MOVB
#RMCS1,PUTINX
:SETUP PUT INDEX TABLE

MOV
BIS
MOV
MOV

044154

025672

110$

:60 70 308 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR DEFINED BY PUT SUBROUTINE
260 10 1108 IF ERROR

B8R

001410

SEQ 0127

308

MOVB
MOV
JSR

408:

BR
NOP
EMT
JMP
MOVB
MOV
JSR

35%:
001543

11-APR-B0 13:04:53 PAGE 12-43

BR
NOP
EMT
JMP
JSR

BR
NOP
EMT

#200,PUTINX+1
:SET TERMINATOR BYTE
#PAKACK ' GO,RMCS10
;SET RMCS1 OUTPUT BUFFER = PAKACK'GO
PC,PUT
;60 WRITE RMCS1 VIA PUT SUBROUTINE

40%

260 T0 408 IF NO ERROR

1108

*RETURN HERE IF ERROR
:ERROR DEFINED BY PUT SUBROUTINE
260 10 1108 IF ERROR

¥GO,RMCS10
R2,RMCS10
#BUFONE ,RMBAO
#-1,RMWCO

:WRITE FUNCTION CODE
:DUMMY BUS ADDRESS
*DUMMY WORD COUNT

RMDAO

RMDCO
NFMT16,RMOFO
#PUTINX,R3
#RMBA, (R3)+
NRMWC.(R3)+
WRMOF
. (R3)+
WRMDA.(R3)+
WRMDC.(R3)+
WRMCST, (R3)+
#200, (R3)
PC,PUT

50%

IN BUFFER

:CLEAR DISK ADDRESS

:CLEAR CYLINDER ADDRESS
;16 BIT FORMAT
‘WRITE REGISTER INDEX TABLE

:60 WRITE REGISTER(S)

WITH PUT

SUBROUTINE

1108
PC,TIMOUT

160 TO 508 IF NO ERROR
*RETURN HERE IF ERROR
ZERROR # DEFINED BY PUT SUBROUTINE
260 70 1108 IF ERROR
“WAIT FOR GO TO RESET

PC,GET

;GO READ REGISTER(S)

60%

WITH GET

SUBROUTINE

110%

260 T0 608 IF NO ERROR
*RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
260 10 1108 IF ERROR

PC,PRIERR

;60 CHECK FOR PRIMARY ERRORS

70§

:G0 TO 708 1f NO ERROR
*RETURN HERE IF ERROR
"ERROR # DEFINED BY PRIERR SUBROUTINE

M
NN

LOCK ERROR TES?T

MACRO v03.01

70$:

067046
040000

001140
001346

B80S$:

100000

001140
001140
001142
001142
001142

077777
001346
7777
001140

000002
000076

908
:

1008:

025164

025672

L 10

11-APR-80 13:04:53 PAGE

12-44

SEQ 0128

001140
001140
001142
001142
001142

OOV
VO NOWVNEB NN

gy
g

2OV~

372 FCINL TST

V%LV LV I TV VWA TOTTWVT ST VT NT WY T, W1 U7, U1, VT W

—!-J—.—._._‘—.—.—.—‘-‘—.—‘_‘-—.—‘-—l—.—l-‘—‘—.—!—._.—‘

AL 1aNT, ST, N1, ST, ¥T,81, 91,7, V7, ¥7 VT, V7 §1,N7 §7, ¥7, V71, ¥7 V7 N1, V71, VT, VTV, V)

CZRMMAQ
136

110%:

JSR

PC,a(SP)
¢

MOV
BIC
MOV
BIC
CMP
BEQ
EMT
BR
MOV
BIT
BEQ
BIS
BIC
MOV
BIC
CMP
BEQ
EMT
BR

FNCDTB(R2),8GDDAT
;GET ENTRY FROM FUNCTION CODE
#*CWLE,$GDODAT
RMER1],$8B0DAT
;BAD DATA FOR TYPEOUT
#*CWLE ,$BDDAT
$SGDDAT.$BDDAT
;IS WLE STATUS CORRECT?
808
SYES!.
220

JMP

ADD

CMP
BLO
JMP

1108

;60 BACK

FOR MORE

ERROR CHECKS

260 TO 1108 IF ERROR

1108
FNCDTB(R2),$GDDAT
#ERR,RMDS]
:WAS AN ERROR DETECTED??
90%
;NO!!
#ATA,SGDDAT
SYES - ATA SHOULD BE ON
#~CATA,SGDDAT
RMDS],$BODAT
;GET DRIVE'S ATTENTION
NACATA,$BDDAT
SGDDAT,$BODAT
;IS ATA STATUS OK??
1008
SYES!!
255
1108

#2,R2

NILFT6,R2
1108
108

;60 TO NEXT

FUNCTION CODE

-DONE??
SYES 1
STEST NEXT FUNCTIGN

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

SeTEST

ERROR ABORT

TESTS

:.".'!."..l""i"""""""'lll""."'.'..'l.'."iti'ttt'i.t

025672
025672
025674
025676
025792
025706
025712

18137:

001100
001276
001464
000037

025720
0257264

025726

1242
1243
1244

1245
1266
1267

001226

MOV

#37,87ESTIN

JoSET TEST NUMBER IN APT MAIL BOX

JSR

PC,TSTPRP

:PREPARE

108

“VERIFY CONTROLLER CLEAR OPERATION
*PACK ACKNOWLEDGE IF VOLUME NOT VALID
SVERIFY PACK ACKNOWLEDGE
TRECALIBRATE IF "'SKI'* OR 'PIP"' IS SET
:VERIFY RECALIBRATION
160 10 108 IF NO ERROR

NOP

000137

026224

004737
012702

044070
000000

004737

053530

EMT
10%:

CALL

#STACK,SP

.WORD

000404
000240

;SCOPE

SSTART OF TEST
SINITIALIZE STACK

MOV
MOV

0643150

104000

SCOPE

NOP
MOV

JMP

$BASE , RO
TSTQUE ,R1

054130

80%

POINTER

*RO = UNIBUS ADDRESS
$(R1) = DEVICE BEING TESTED
DEVICE

FOR TEST

STASK DESCRIPTOR AS FOLLOWS:
SCLEAR CONTROLLER & SELECT DEVICE

:RETURN HERE

ERROR

260 TO 80% IF

ERROR

:ERROR # DEFINED BY

TSTPRP SUBROUTINE

;SETUP GET INDEX TABLE T0O READ ALL REGISTERS
JSR
PC,GETSTS
;60 10 GETSTS SUBROUTINE
208
MOV
#NOP ,R2
*R2 - FUNCTION CODE
JSR

PC,CNTCLR

;60

ISSUE

CONTROLLER CLEAR

TABLE

RMOS/3/2 FCTINL TST
ERROR ABORT TESTS

MACRO v03.01

000404
026224
000014
000200
060000
064426

001543
001544
00424

30%:

M0
11-APR-80 13:04:53 PAGE 12-45
BR
NOP
EMT
JMP
MOv8
Movs
MOV

JSR
B8R

Ottt 4t s 2 OO OCOOOOO
P= P S
S
D P
s s
o e
<
P ¥, N1, N1 N1 VT, 97,87, UY VY, UY, VT, VY, V] VY 1,9]

V] N=OO®NO
N W —O

e
e
s
e
s e
e
el e
D
el

000001
001410

103640
177777

000000
000000
010000
001543
000004
000002
000032
000006
000034
000000
000200
046424

OOV
~NO W

el amel
=
wadd
il
el
—

0014610

40%:

026150

004737

044766

026154
026160
026162
026164
026166
026172
026172
026176
026200
026202
026204
026206
026212
026212
026212
026216
026222
02622¢

004737

044154

000404

;WAIT

1046000
000137

004737
000405
000240

045152

50%:

104000

004736
000137

026224

062702
022702

000002
000076

103252

60%:
70%:

80%:

40%

MOv
MOV
MOV
MOv
MOV
MOv
MOvB8
MOv8
MOvVB
MOvB8
Movs
MovB
MovB

#BUFONE ,RMBAO

R2,RMCS10

#-1,RMWCO
#0,RMDAO
#0,RMDCO
#EMT16,RMOFO
#PUTINX,R3
NRMBA, (R3) ¢
ARMUC, (R3) +
#RMOF
, (R3) +
#RMDA, (R3)+
#RMDC, (R3)+
#RMCST, (R3) ¢

#200, (R3)
PC,PUT

45%

EMT

EMT
JMP

JSR
BR
NOP
EMT
JSR
JMP
ADD
(MP

BHI1S

;G0 TO 308 If NO ERROR

sRETURN HERE

ERROR

;ERROR # DEFINED BY CNTCLR SUBROUTINE

;60 TC 808 IF ERROR

:SETUP PUT INDEX TABLE
;SET TERMINATOR BYTE
;SET RMER1 OUTPUT BUFFER = UNS
;60 WRITE RMER1 VIA PUT SUBROUTINE
:60 TO 408 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR DEFINED BY PUT SUBROUTINE

;G0 TO 80% IF ERROR
;WRITE

.DUMMY
;DUMMY
sCLEAR
+CLEAR

FUNCTION CODE

IN BUFFER

BUS ADDRESS
WORD COUNT
DISK ADDRESS
CYLINDER ADDRESS

:16 BIT FORMAT
;WRITE REGISTEDR INDEX TABLE

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE
;G0 TO 45% IF NO ERROR
+RETURN HERE

ERROR

;ERROR # DEFINED BY PUT SUBROUTINE

FOR COMMAND TO COMPLETE
PC,TIMOUT
JSR

NOP

026224

#UNS ,RMER10
PC,PUT

#GO,RM(S10

JSR
BR

000240

#200,PUTINX+]

MOV

JSR
BR

45%:

#RMERY ,PUTINX

80%

BIS

001414
001412
001416
001444
001442

80%

JMP

NOP

026146
026150

AY1 N1, N1, W1, V1,81 ,§)
O NN~

EMT

026224

NIRNININRNININI
RPN NN
N
o O O " NN VWA
NN LN

NOP

30%

SEQ 0129

PC,GET

50%

80%

;GO TO TIMOUT SUBROUTINE
;60 READ REGISTER(S) WITH GET SUBROUTINE

;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

PC,a(SP)¢

;RETURN HERE 1F ERROR
;ERROR ¥ DEFINED BY PRIERR SUBROUTINE
.60 BACK FOR MORE ERROR CHECKS

60%

;G0 7O 608 IF NO ERROR

.GO TO 80% IF ERROR

;ADVANCE FUNCTION CODE
:ggNglALL COMMANDS

CIR MMAQ RMO5/3/2 FCINL ST
140
RMR TEST

MACRO v03.01

1281

N 10
11-APR-80 13:04:53 PAGE 12-46

SEQ 0130

A AR
R022282 2R X222
202 2R
]

SATEST 40

RMR TEST

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

000004
000240
012706
013700
013701
012737

1S140:

001100
001276
001664
000040

026252
026256

004737
040000

026260
026262
026264
026266
1284 026272

000404
000240

000137

026664

026272
1287 026276
1288 026276
026304
026312
026320
026324
026326
026330
026332
1289 026336
1290 026336
026344
026352
026360
026364
026366
026370
026372
026376
026376
026404
0266412
026420
026424
026426
026430
026432
1293 026436
1294 026436
026442
026444
026446
024450
1295 026454
1296 026454

004737

044070

112737
112737

000024
000200
000001
0664264

1285
1286

104000

012737
004737
000404
000240
104000
000137
112737
112737

012737
004737
000404
000240
104000
000137

112737
112737
012737

004737
000494
000240

104000

043150

10%:

JSR
.WORD

PC,TSTPRP
040000

10%

000024
000200
001401
0646424

001543

208:

066154

000137

026664

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

+PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE
;60 TO 10$ IF NO ERROR

sRETURN HERE

ERROR

JERROR # DEFINED BY TSTPRP SUBROUTINE
;G0 TO 1008 IF ERROR

PC,GETSTS

;60 TO GETSTS SUBROUIINE

MOovB8

#RMMR1 ,PUTINX

;SETUP PUT INDEX TABLE

JSR
BR

PC,PUT
30%

;60 WRITE RMMR1 VIA PUT SUBROUTINE
;60 TO 30% IF NO ERROR

30
001543
001544
001436

NOP
EMT

¥RMMR1 ,PUTINX

MOV
JSR

#DMD 'MUR 'MOC ,RMMR 10
;SET RMMR1 QUTPUT BUFFER = DMD'MUR'MOC
PC,PUT
;60 WRITE RMMR1 VIA PUT SUBROUTINE

;SETUP PUT

INDEX TABLE

;SET TERMINATOR BYTE

;60 TO 408 IF NO ERROR

JMP

100%

;GO TO 100% IF ERROR

MOVB
MOvB
MOV

#RMCST,PUTINX
JSETUP PUT INDEX TABLE
#200,PUTINX+1
:SET TERMINATOR BYTE
#PAKACK'GO,RMCS10
JSET RMCS1 OQUTPUT BUFFER = PAKACK!GO

50%

PC,PUT

;RETURN HERE ]F ERROR
;ERROR DEFINED BY PUT SUBROUTINE

;60 WRITE RMCS!

VIA PUT SUBROUTINE

JRETURN HERE

ERROR

;GO TO 508 ]F NO ERROR
]F

EMT
JMP

100%

;ERROR DEFINED BY PUT SUBROUTINE
;GO TO 100% IF ERROR

JSR
BR

PC,GET
60%

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

100%

JERROR ¥ DEFINED BY GET
;GO 10 100% IfF ERROR

NOP

60%:

#200,PUTINX#

;60 TO 1008 IF ERROR

40%

NOP
EMT

JSR

$0s

;RETURN HERE IF ERROR
:ERROR DEFINED BY PUT SUBROUTINE

MOVB

001543
001544
001410

:SET TERMINATOR BYTE
:SET RMMR1 QUTPUT BUFFER = DMD

100$%

MOvVB

408

#200,PUTINX#
#DMD ,RMMR10

JMP

NOP

004737
000404
000240

100%

;RO = UNIBUS ADDRESS

JSR

MovB
MOV

001544
0014634

026664
000000
000200
000023
0646424

EMT
JMP

:SCOPE CALL
'START OF TEST
“INITIACIZE STACK POINTER

sSETUP GET INDEX TABLE 7O READ ALL REGISTERS

026664

000240

FSTACK,SP
$BASE RO
TSTQUE ,R1
#60,$TESTN

NOP

000137

104000

001226

SCOPE
NCP
MOV
MOV
MOV
MOV

EMT
JMP

NOP

JRETURN HERE

ERROR

SUBROUTINE

CIRMMAO RM05/3/2 FCTINL TST

140

RMR TEST

1297 026456

112737

000026

026464
0266472
026500

112737
012737
004737

026506
026510
026512
1298 026516
1299 026516
0265264
026532
0265640

000240
104000
000137

026664

112737

000000

026506

026544

026546
026550
026552

1300 026556
1301 026556

026564
026572
026600
026604
026606
026610
026612
1302 026616

000404

112737
012737
004737

000406

026666

112737

000000

112737
012737
004737
000404
000240
104000
000137
004737

026624
026626
026630
026634
026634
026636
026644
026646
026654

000240
104000
000137

1304
1305
1306
1307
1308
1309

1310 026662
}g}; 026664

000200
000001
044424

000240
104000
000137

1303 026616

026622

000200
0414601
044426

000404

000240
032737
001007
012737
013737
104222

000200
000015
044424

MACRO v03.01

B 1

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

001543

001544
001434

001543

70$

:6G0 TO 708 IF NO ERROR

80$:

1008

MOVB

#RMCST,PUTINX

:SETUP PUT

80§

160 TO 808 IF NO ERROR

#200,PUTINX¢1
#NOP'GO,RMCS10
PC,PUT

000006

001350

000006
001350

001140
001142

MOVB

NRMCS1,PUTINX

;SETUP PUT

JSR

PC,GET

:60 READ REGISTER(S) WITH GET

100%

:RETURN HERE IF ERROR
;ERROR # DEFINED By GET SUBROUTINE
:GO TO 1008 IF ERROR

#RMR ,RMER1]
100$
#RMR ,$GDDAT
RMER1I,$BODAT

;1S RMR SET 2?
SYES !
;EXPECTED STATUS
;RECEIVED STATUS

1313

90¢

NOP
BI7
BNE
MOV
MOV
EMT

SeTEST 41

INDEX TABLE

#200,PUTINX+1
;SET TERMINATOR BYTE
NOFFSET'GO,RMCS10
©SET RMCS1 OUTPUT BUFFER = OFFSET.GO
PC,PUT
;60 WRITE RMCS1 VIA PUT SUBROUTINE
85%
;GO TO 858 IF NO ERROR
:RETURN HERE IF ERROR
SERROR DEFINED BY PUT SUBROUTINE
100$
:GO TO 1008 IF ERROR

NOP
EMT
JMP

100$:

;SET TERMINATOR BYTE
;SET RMCS1 OUTPUT BUFFER = NOP!GO
;G0 WRITE RMCS1 VIA PUT SUBROUTINE

100$

MOVB
MOV
JSR
BR
NOP
EMT
JMP

90$:

INDEX TABLE

:RETURN HERE IF ERROR
;ERROR DEFINED BY PUT SUBROUTINE
;60 TO 1008 IF ERROR

026664

INDEX TABLE

:RETURN HERE ]F ERROR
:ERROR DEFINED BY PUT SUBROUTINE
;60 T0 1008 IF ERROR

NOP
EMT
JMP

85%:

044154

;SETUP PUT

#200,PUTINX+T
;SET TERMINATOR BYTE
N
#DMD ' MUR 'MOC ' DBEN, RMMR 10
SSET RMMR1 QUTPUT BUFFER = DMD'MUR'MOC'DBEN
PC,PUT
;G0 WRITE RMMR1 VIA PUT SUBROUTINE

MOVB
MOV
JSR

001544
001410

026664

#RMMR1,PUTINX

NOP
EMT
JMP

001564
001410

001543

MOV8

MOVB
MOV
JSR

708:

SEQ 0131

260 1O 90% IF NO ERROR

222
R

T R

R P N RO A R RN

RN R RN RSN TR AN ORI TN

SUBROUTINE

R O OETEOTOOY

PARITY ERROR TEST

.'"tt'.tltll.l't"l""'t"t"'it'ttt!l""'tttt"tttt."'t!t'tt!t

026664
026664
026666
026670

026674
026700
0267064

1315 026712

026716
026720
0¢6722

000004
000240
012706

15741

013700
013701
012737

001100
001276
001464
000061

004737

043150

040000
000406
000240

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

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

JSR

PC,TSTPRP

:PREPARE DEVICE FOR TEST

10%

SCLEAR CONTROLLER € SELECT DEVICE
;60 10 10% IF NO ERROR
;RETURN HERE [f ERROR

.WORD

BR
NOP

040000

;SCOPE CALL
:START OF TESIT
SINITIALIZE STACK POINTER

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

STASK DESCRIPTOR AS FOLLOWS:

/2 F CINL TST
3 RROR TEST

Voo ~NO~

027104

012702

000001

004737
000404

053530

MACRO v03.01

ed e \ N

OO ONIN —

== o O00000

NN —O

108:

20%:

ad e
e

JSR
BR

PC,ONTCLR

;G0 ISSUE CONTROLLER CLEAR

027132
027136

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

;60 TO 708 IF ERROR

70$

(R1),R3

#*CUNTMSK
,R3
#PAT ,RY
R3,RM(S20

;SETUP RM(S?2

064426

JSR
BR
NOP
EMT

PC,PUT

.60 WRITE REGISTER(S) WITH PUT SUBROUTINE
;60 TO 40% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR ¥ DEFINED BY PUT SUBROUTINE

JSR
BR
NOP
EMT
JMP

PC GET

;G0 READ REGISTER(S) WITH GET SUBROUTINE

40%:

027104

032737
01
12
1 3
10
04

000010

001350

000010
001350
001174

001140
001142

50%:

60%:

043150

40%

RMER1],SBDDAT
R2,$TMPO

ASL

R2
20%

SRRl

SCOPE
NOP
MOv
MOV
MOv
MOV
JSR
. wOkD

MOV
MOV

SRR

INDEX

:IESPeRITY ERROR SET ??

#PAR,$SGDDAT

;G0 TO 708 IF ERROR

#PAR,RMER1]

22%

¢WRITE

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

708

EMT

;OUTPUT VALUE TO RM(CS?
sVALUE TO RMDA

;G0 70 508 IF NO ERROR

50%

60%

SRS

15142:

001226

FRMCS2, (R3)+
#RMDA, (R3)+
#200,(R3)+

BNE

70$:

001100
001276
001464
000042

R2,RMDAOD
#PUTINX ,R3

BIT
BNE
MOV

TRTEST 42
027104
027104
027106
027110
027114
027120
027124

;60 TO 308 IF NO ERROR

30%

MOv
MOv
MOV
MOvB
MOvB
MOvB

000137

06
01

;R2 = DATA PATTERN

001420
001416
001543
000010
000006
000200

064154

104000

.60 T0 708 IF ERROR

" ,R2

BlC
BIS

004737
000404
000240

NN ~N~NO
NINN
N —
NN
-

027016
027022
027024
027026
027030
027030
027034
027036
027040
027042
027046
027046
027054
027056
027064
027072
027076
027100
027100
027102
027104

;ERROR # DEFINED BY TSTPRP SUBROUTINE

MOV

MovB

177770
000020

SEQ 0132

708

EMT
JMP

30%:

12-48

JMP

NOP

WN
—= O
WVIRNY

027012

11-APR-80 13:04:53 PAGE

EMY

027104

~NO NS
—= OV

—O0VNO
NS
VNS W

000137

—OO0O00O

e
—l el

—l

D
e
e
e
e
e
el
i
b
e

%ol IV IV TV TV O LV Jv (v [V ]
NN
NN RN NN NI PO N

—
—
sl
il
o
el
sl
el
el
il
)
el
—

A U U A A
AN
AN N AN M
[k al aF 2k 2k ol XV IV TVIIVIIV TV

104000

JEXPECTED STATUS
JRECEIVED STATUS
;DATA PATTERN
+sADVANCE

.BRANCH

DATA PATTERN

NOT

DONE

R EE

RES RN

ILLEGAL REGISTER TEST
RN

SRR

RRRRRRER RN

#STACK,SP

s SCOPE CALL
;START OF TEST
;INITIALIZE STACK POINTER

TSTQUE ,R1

;(R1)

PC,TSTPRP

;PREPARE DEVICE FOR TEST

$BASE RO

NG2 ,STESTN

040000

;R0 = UNIBUS ADDRESS

= DEVICE BEING TESTED

;:SET TEST NUMBER IN APT MAIL BuX

s TASK

DESCRIPTOR AS FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE

—e

MMAOQ RMOS/3/2 FCINL

TST

ILLEGAL REGISTER TEST

1349
1350
1351
1352
1353
1354
1355
1356
1357
1358

027140
027162
027166
0271646

027152
027152
027154
027160
027164
027170
027176
027204
027206
027206

027212
027214
027216
027220
1359 027226

000404
000240
104000
000137

027432

005005
004737
013746
013746
012737
012737
005002

044070
000004
000006
027430
000300

004737

053530

000404
000240
104000
000137
010003

060203
005013
004737

027240
027242
0272644
1363 027250

000240
104000
000137

027432

1364 027250

004737

0441564

027256
027260
027262

000240
104000
000137

027272
027276
027276
027300
027302
027306
027312
027320
027326
027334
027336
027342

004737
000405
000240
104000
004736
000137
010537
013737
042737
023737
001403
010237
104256

027254

1365 027266
1366 027266

1367
1368
1369
1370
1371
1372
1373
1374
1375
1376

1377

1378

1379

1380
1381
1382
1383
1384

000404

108:

000004
000006
20$:

027344

1360 027226
1361 027230
1362 027232

027236

MACRO v03.01

308 :

052056

35%:

045152

001142
001142
001142

RS
PC,GETSTS
ERRVEC,=(SP)
ERRVEC+2,-(SP)
#1108, ERRVEC
#PR6,ERRVEC+2
R2

;R2 = REGISTER INDEX

JSR

PC,CNTCLR

;60 ISSUE

ADD
(LR
JSR

NOP
EMT
JMP
JSR

NOP
EMT
JMP

30$

70$
RO,R3

1208
PC,GET

;GO READ REGISTER(S)

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

40%

MOV

RMBAE (RO) ,R3

;

;
:
:
:
:80%:

BIC

CMP
BEQ
MOV
BR
(MP

CONTROLLER CLEAR

$6G0 T0 308 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR NUMBER DEFINED BY SUBROUTINE
260 TO 708 IF ERROR
:R3 = REGISTER ADDRESS

*RETURN HERE IF ERROR
*ERROR # DEFINED BY DEVSEL SUBROUTINE
260 TO 1208 IF ERROR

35%

MOV

;RS = EXPECTED STATUS
SSETUP FOR STATUS
::PUSH ERRVEC ON STACK
:;PUSH ERRVEC+2 ON STACK
;SETUP FOR BUS TIMEOUT

:CLEAR THE REGISTER
160 SELECT DEVICE

:70%:
:
;

;

;60 TO 108 IF NO ERROR
:RETURN HERE IF ERROR
:ERROR # DEFINED BY TSTPRP SUBROUTINE
160 TO 1208 IF ERROR

R2,R3
(R3)
PC.DEVSEL

PC,a(SP)+
70$
RS,$GDDAT
RMER1],$BODAT
#“CILR,$BDDAT
$GDDAT,$BODAT
70
R2,$TMPO
256
#2,R2
#RMBAE ,R2
80%

001174

SEQ 0133

(LR
JSR
MOV
MOV
MOV
MOV
(LR

BR
NOP
EMT
JMP
MOV

108

JSR
BR
NOP
EMT
JSR
JMP
MOV
MOV
BIC
CMP
BEQ
MOV
EMT
ADD
CMP
BNE

508 :

N
12-49

1208

B8R
408$:

D
13:04:53 PAGE

BR
NOP
EMT
JMP

B8R

027344

027344
001140
001350
177775
001140

11-APR-80

PC,PRIERR
50%

:6G0 TO 358 IF NO ERROR

WITH GET

160 TO 408 IF NO ERROR

SUBROUTINE

;G0 CHECK FOR PRIMARY ERRQRS
:GO TO SO$ IF NO ERROR
SRETURN HERE IF ERROR
:ERROR # DEFINED BY PRIERR SUBROUTINE
;60 BACK FOR MORE ERROR C(HECKS
260 TO 708 IF ERROR
:GET DRIVE'S ILR STATUS
;1S ILR STATUS 0K??
SYES!!
<SAVE R2 FOR ERROR DATA
;1S NEXT REGISTER RMBAE??
NO!!

#A16' A7 ,RMCST1(RD)

SSET Al6 & A17

¥~C<BIT0'BIT1>,RS

;CLEAR ALL BUT ADDRESS BITS

1S THIS AN RH70??

#B1T0'BIT1,R3 ~ :ARE ADDRESS BITS ON ??
100%
TYES
#ILR,RS
INO - EXPECT JLR - 1
100%
FRMCS3¢2 ,R?
;SHOULD [LR BE SET??

MACRO v03.01

RMO5/3/2 FCINL TST 1
ILLEGAL REGISTER TEST
i

90%

:NO.!

CMP

#76 ,R2

:DONE??

;1008:

208

708:

ADD
CMP

#2 R2
#50,R2

e
el

1908:

D e

001400

016003

000050

027372

012702

0276402
0276406
027612
027414

042703
022703
001402
012702

027424
027426

101402
000667

0276420

000054

BLO

#ILR,RS
100%

SYES
!

120$

SYES!

000000

BH]
BLO
MOV

208
808
#ILR,RS

MOV

#54 ,R2

MOV

177774
000003
000050

000074

808 :

; INCREMENT THE REGISTER ADDRESS
:TIME TO CHECK THE EXTEND ADDRESS REG 2
*BRANCH IF NOT
:BRANCH IF ALREADY SET UP
"EXCEPT ILR HAPPEND

#A16!A17.RHCS1(R6)

50(R0),R3

BIC
CMP
BEQ
MOV

M77774,R3
#BITO'BITI,R3
80$
#50,R2

B8LOS
B8R

120%
20%

CMP

JSET EXTENDED ADDRESS BITS

:SET ADDRESS TO 54,IF 22 REGISTERS

#74.R2

115 THIS 22 REG RH70 ?

SLEFT ONLY BIT O AND BIT 1
:BIT O AND BIT 1 SET AT THE SAME
*BRANCH IF SO
:OTHERWISE,SET ADDRESS TO 50

TIME

*ALL REGISTERS CHECKED ?
;BRANCH IF SO
JNEXT REGISTER

022702

000002

MOV
BR

SEQ 0134

:THE FOLLOWING CODING FOR HANDLE RH70
:REGISTER NUMBERS 1S EITHER 22 OR 32

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

012760

101314
103420
012705

027376

000002
000050

027356
027356
027360

027364

el e

062702
022702

12-50

BNE

;
.

027344
027350

E 11

11-APR-B0 13:04:53 PAGE

022626
012637
012637

110%:
1208:

000006
000004

—

—l

027430
027432
027432
0276436

CMP

(SP)+,(SP)+

MOV
MOV

(SP)+,ERRVE(+?
(SP)+ ERRVEC

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

""tt'flQtt.ttfitt'ttt""t't't'tt'it.t.fitt.t.'tfitltt"ttttttttttt't

JoTEST 43

SEEK LAST

CYLINDER

[0 RV, I

—

P P

—t
e
p

":ttttttt'ttttt't't"t""'"t"tltttttt'l't.tttt.itttttttttttt"

027442
027642
027444
027446
027452
027456
027462

000004
000240
012706
013700
013701
012737

027476
027476
027502

004737
054130

C27470

012737

1S7143:

001100
001276
001464
000001

000043

001206

001226

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

JSR
.WORD

PC,ISTPRP
054130

MOV
108:

043150

SCOPE
NOP
MOV
MOV
MOV
MOV

#43.STESTN

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

;oSET TEST NUMBER IN APT MAIL HOX
;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:
:CLEAR CONTROLLER & SELECT DEVICE

JVERIFY CONTROLLER CLEAR OPERATION
JPACK ACKNOWLEDGE IF VOLUME NOT VALID
SVERIFY PACK ACKNOWLEDGE

OO~y

—
—

il
—

~ e

SRECALIBRATE IF ‘'SKI" OR 'PIP'' 1S SET
027504
027506
027510
855215

000404
000240
104000
000137

027730

027516

012737

001466

027526

012737

000000

80
001444

001416

BR
NOP
EMT
JMP

80%

1408

:VERIFY RECALIBRATION
:6G0 TO 80% IF NO ERROR
*RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBRQUTINE
260 10 1408 If ERROR

MOV

#822.,RMDCO

:LAST CYLINDER

MOV

#0,RMDAOQ

:TRACK = 0, SECIOR - 0

027576

(=l =4 -0 Ot
s s OO
o0 [elele] [an I T IO QY I S
HO 5200 £ rorOrNrNOrNOND
~ — o~ NNTNSNNNNY
(V1] [« QWML
OWN
~N~ oo S5NN~

v
onrny

OOOCOOO0O0O o

AINUNL
NI
NIPONINY ~no
~-~~

RMOS5/3/2 FCINL TST 1
SEEK LAST CYLINDER

004737
027612
027616
027620
027622
027626
027630
027630
027634
027636
027640
027642
027644
027650
027650
027654
027656
027660
027662
027664
027670
027670
027674
027676
027700
027702
027704
027706
027710
1437 027714
1438 027714
027720
027722
027724
027726
1439 027730

000005
001543
000034
000006
000000

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

001410

MOv
MOV
Move
MOvB

MOVB
MOvB

000200
064424

027730

044070
044766

004737
000404
000240

0446154

000137

027730

004737
000405
000240

045152

104000

MACRO v03.01

50%-

1028

027730

004737
000405
000240
104000
004736
000137

027730

004737

051644

115760
000010
000405
000240
104000

004736
000137

004737
000403
000240

052270

027730
046004

120%:

130%:

104000

004736

140%:

1440

1441

AR R

AR A

000004
000240
012706

1ST44:

001100

#RMCS
T, (R 2)+

#200,(R2) +
PC,PUT
90$

;WRITE TERMINATOR
;60 WRITE REGISTER(S) WITH PUT SUBROLTINE
;60 TO 908 IF NO ERROR
¢RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;60 TO 140% IF ERROR

1408
PC,GETSTS

JSR
BR
NOP
EMI
JMP

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

JSR
BR

PC,PRIERR

;60 CHECK FOR PRIMARY ERRORS

PC,a(SP)+

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

PC,SEKSTS

;G0 VERIFY RESULTS OF

JMP

JSR
BR
NOP
EMT
JSR
JMP

;60 T0 1008 If NO ERROR
;RETURN HERE IF ERROR

1008

;ERROR # DEFINED BY GET

140%

;G0 TO 140% IF

ERROR

SUBROUTINE

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

1108

;G0 TO 1408 IF ERROR

1408

SEEK OPERATION
;60 TO 120% IF NO ERROR
RETURN HERE IF ERROR
;ERROR # DEFINED BY SEKSTS SUBROUTINE

1208

PC,al(SP)+

1408

;60 BACK FOR MORE ERROR (HECKS
;GO TO 140% IF ERROR

JSR
.WORD
.WORD
BR
NOP
EMT

PC,CMPERRSTS
NDTMSK
DPE

;MASK FOR RMER]

JMP

;CHECK ANY ERRORS NOT MASKED

;MASK FOR RMER?

130%

;60 TO 1308 IF NO ERROR

JSR

PC,a(SP)+

1409

;ERROR ¥ DEFINED BY CMPERRSTS SUBROUTINE
:GO BACK FOR MORE ERROR CHECKS
;G0 TO 140% IF ERROR

JSR
BR
NOP
EMT
JSR

PC,SECERR

;G0 CHECK FOR SECONDARY ERRORS

PC,a(SP)+

.60 BACK FOR MORE ERROR (HECKS

NSRS

SRTEST 44
027730
027730
027732
027734

WSEEK'GO,RMCS10 sLOAD SEEK COMMAND IN BUFFER,
#PUTINX,R?
:R2 POINTS TO REGISTER TABLE°
#RM,DC
(R2 )+
;WRITE REGISTER INDEX TABLE
#RMDA . (R2 )+

;SETUP FOR STATUS FET(H
;WAIT FOR SEEK TO COMPLETE

EMT
JSR
110%:

SeEQ 0135

PC,TIMOUT

NOP

104000

004736
000137

JSR
BR
NOP
EMT
JMP
JSR
JSR

1N
12-51

SRR

ARl

SCOPE
NOP
MOv

FIRST
Rl

#STACK,SP

ERROR

;60 TO 1408 IF NO ERROR
:RETURN HERE 1F ERROR
;ERROR # DEFINED BY SECERR SUBROUTINt

140%

SEEK
RS

;RETURN HERE

NSRS

RRERRRRRER]

CYLINDER
R

¢ SCOPE CALL
;START OF TEST
JINITIALIZE STACK POINTER

TST 1
CYLINDER
NNNN

004737
056130

0643150

—

N~N—O

1664

0
0
3
3

001276
001464
000001
000044

lelolole]

1642
1443

PNINO NN

SEEK FIRST

MACRO v03.01

11-APR-80
MOv
MOv

001206
C01226

MOv
MOV

10%:

G 11

13:04:53 PAGE

12-52

$BASE,RO
TSTQUE ,R1

M1,STIMES
FLG ,8TESTN

JSR
.WORD

SEQ 0136

;RO = UNI BUS ADDRESS
J(RY) =D EVICE BEING TESTED
2:00 1 IT ERATION
J:SET TES T NUMBER IN APT MAIL BOX
;PREPARE DEVICE FOR
;TASK DESCRIPTOR AS

TEST
FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION

;PACK

ACKNOWLEDGE

VOLUME

;VERIFY PACK ACKNOWLEDGE

» NNNNNNNNN
o (W T 81 81,8 S TalVAV
IV
~ NNV
NN NI~ ~N

030020
030026
030032
030036
030042

000404
000240
104000
000137
o Ot et 2 0 OOOO
o o-‘—‘.—..—._—.—l—l—‘
[=] P NS 1, N1, N1 ,NY V1, §1,81 V]

027772
027774
027776
030000
030004
030004
030012

004737
004737

b b =

[p¥Te
Yo J V1w ]

el
il
D i

004737
000404

—

MMAQ RMOS5/3/2 FCINL

000240
104000
000137

004737
000405
000240

104000
004736
000137

030216
€00000
000000
000005
001543
000034
000006
000000
000200
044426

030216
044070
064766

90%:

030216
045152

030216

052270

004737

051644

030216

100%:

110%:

120%:

VvALID

BR
NOP
EMT
JMP

80%
140%

JRECALIBRATE IF *'SK]'" OR 'PIP'' IS SET
;VERIFY RECALIBRAT]ON
;G0 TO 80% IF NO ERROR
;RETURN HERE IF ERROR
<ERROR # DEFINED BY TSTPRP SUBROUTINE
;G0 TO 140% IF ERROR

MOv
MOV
MOV
MOV
MOvB
MOvB
MOvB

#0..RMDCO
#0.RMDAO

:TRACK

#SEEK'GO,RMCS10
#PUTINX,
R?
NRMDC, (R2)+

NRMDA,(R2)+
FRMCST, (R2)+

#200, (R2)+

;CYLINDER = 0
= 0,

SECTOR = 0

;LOAD SEEK COMMAND [N BUFFER

;R2 POINTS TO REGISTER TABLE
;WRITE REGISTER INDEX TABLE

PC,GETSTS
PC,TIMOUT

WRITE TERMINATOR
:60 WRITE REGISTER(S) WITH PUT SUBROUTINE
;60 TO 908 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 140% ]F ERROR
;SETUP FOR STATUS FETCH
;WAIT FOR SEEK TO COMPLETE

JSR
BR
NOP
EMT
JMP

PC,GET

;60 READ REGISTER(S) WITH GET SUBROUTINE

140%

;60 TO 100% IF NO ERROR
¢RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;G0 TO 1408 IF ERROR

JSR

PC,PRIERR

;60 CHECK FOR PRIMARY ERRORS

MOvB
JSR

044154

004737
000405
000240
104000
004736
000137
115760

001444
001416
001410

80%:

NOT

NOP
EMTY
JMP
JSR
JSR

NOP
EMT
JSR
JMP

JSR
BR
NOP
EMT
JSR
JMP

JSR
.WORD

PC,PUT

90$

140%

100%

110%

;60 TO 1108 IF NO ERROR

sRETURN HERE

ERROR

,8(SP)+

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

SEKSTS
$

;G0 VERIFY RESULTS OF SEEK OPERATION
;60 TO 1208 IF NO ERROR

PC,a(SP)+

.60 TO 1408 IF ERROR

RETURN HERE

ERROR

;ERROR # DEFINED BY

SEKSTS SUBROUTINE

;60 BACK FOR MORE ERROR CHECKS

1408

;60 TO 1408 IF ERROR

PC,(MPERRSTS
ND TMSK

+CHECK ANY ERRORS NOT MASKED
;MASK

FOR RMER1

CIR MMAQ RMO5/3/2 FCINL ST

144

SEEK

FIRST

1465

1466

SN0

~~~

—

el e

QOO

OOO0OOCOOO0O0O

030164
030166

1467
1468
1469

CYLINDER

MACRO v03.01

000010
000405
000240

104000
004736
000137

004737
000403
000240

030216

130%:

046004

e
o

Pl
ol IV
NN~
WY
— O

.WORD
BR
NOP
gEMT
JSR
JMP

DPE

JSR
BR

PC,SECERR

NGP

104000
004736

EMT
JSR

140%:
R

TeTEST 45
A

—

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

030216
030216
030220
030222
030226
030232
030236
030244
030252
030260
030260
030264

TST4S:

004737
056130

001100
001276
001464
000002
000045

001206
001226

000001

001444

043150

10%:

SCOPE
NOP
MOv
MOv
MOv

;MASK FOR RMER?

;G0 TO 130% IF NO ERROR

130%

;RETURN HERE IF ERROR
;ERROR # DEFINED BY CMPERRSTS SUBROUTINE
;60 BACK FOR MORE ERROR (HE(CKS
;GO TO 1408 IF ERROR

PC,a(SP)+

140¢

;60 CHECK FOR SECONDARY ERRORS
;G0 TO 1408 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
.60 BACK FOR MORE ERROR (HECKS

1608

PC,a(SP)+

ARl

SEEX

LA AR RS2SR

SEQ 0137

PRIME
R

—

000000
000005
001543
000034
000006
000000
000200
064424

»H e

030530

80%:

1483
1484
1485
1486

030530

004737
004737

044070
044766

90%:

RN R

E R E

E F

R R R

RN R

#STACK,SP

$BASE RO

;START

EE TR

RN R R RN R

RN R

JINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS

;(R1)

MOV

#1,RMDCO

;FIRST CYLINDER = 1

JSR
.WORD

PC,TSTPRP

;PREPARE DEVICE FOR
s TASK DESCRIPTOR AS

MOv
MOv
MOV
MOvVB
MOVB
MOvB
MOvVB

TEST

TSTQUE
R

NOP
EMT
JMP

;SCOPE CALL

n2,8TIMES
#LS5,$TESTN

054130

80%
150%

= DEVICE BEING

TESTED

;.D0 2 ITERAT]ONS
;.SET TEST NUMBER IN APT MAIL BOX

TEST
FOLLOWS:

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

VOLUME

NOT

VALID

;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ''SKI'' OR 'PIP'" IS SET
;VERIFY RECALIBRATION
;G0 TO B80S IF NO ERROR
;RETURN HERE F ERROR
SERROR # DEFINED BY TSTPRP SUBROUTINE
;60 TO 1508 IF ERROR

#0,RMDAO
#SEEX !GO,RMCS10
#PUTINX,R2
#RMDC, (R2)+
#RMDA, (R2)+
#RMCST, (R2) ¢

;TRACK = 0,

SECTOR = 0

:R2 POINTS

TO REGISTER

PC, PUT

;60 WRITE REGISTER(S) WITH PUT SUBROUTINt
;60 T0 90% ]F NO ERROR

#200, (R2)+

JSR
BR

90%

EMT
JMP

150%

JSR
JSR

PC,GETSTS
PC,TIMOUT

NOP

000137

MOV
MOv

000404
000240
104000
000137

CYLINDERS
R

;PACK

030266
030270
030272
030274
1474 030300
1475 030300
16476 030306
1477 030314
147
1479
1480
1481
1482

<LOAD SEEK COMMAND IN BUFFER
TABLE

;WRITE REGISTER INDEX TABLE
¢WRITE

TERMINATOR

¢RETURN HERE

ERROR

;ERROR # DEFINED BY PUT SUBROUTINE

;GO TO 1508 IF ERROR

JSETUP FOR STATUS FET(H
SWAIT

FOR

SEEXK

10 COMPLETE

RMOS/3/2 FCINL TST
SEEK PRIME

030366

030372
030374
030376
030400
030404
030404
030410
030412
030414
030416
030420
030424
030424
030430
030432
030434
030436
030440
1492 030444
1493 030444
030450
030452
030454
030456
030460
030462
030464

1494 030470
1495 030470

030474
030476
030500
030502
030504
1496 030510
1497 030510
1498 030514
1499 030522
1500 030524
1501 03053C
1502
1503

CYLINDERS

004737
000404
000240

046154

000137

030530

004737
000405
000240

065152

104000

MACRO v03.01

030530

004737

052270

000405
000240
104000
004736
000137

004737
115760
000010
000405
000240

1008:

110%:

030530

120%:

05164¢

004737
000405
000240

030530

130%:

046004

104000

030530

006337
022737

001444
001000

103402
000137

140%:

001444

030260

150%:

JSR
BR
NOP
EMT
JSR
JMP

PC,PRIERR

JSR
BR
NOP
EMY
JSR
JMP

PC, SEKSTS

150%

.60 BACK FOR MORE ERROR (HECKS
;G0 TO 1508 IF ERROR

JSR
.WORD

PC,CMPERRSTS
ND TMSK
DPE

+MASK

;MASK FOR RMER?

JSR
JMP

PC,a(SP)+

1508

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

;GO 10 1508 IF ERROR

JSR

PC,SECERR
140%

;00 CHECK FOR SECONDARY ERRORS

1008

;60 TG 1508 IF ERROR

;GO VERIFY RESULTS OF

SEEK OPERATION
;GO TO 1208 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR ¥ DEFINED BY SEKSTS SUBROUTINE

PC,a(SP)+

;CHECK ANY ERRORS NOT MASKED
FOR RMER1

.60 TO 1308 IF NO ERROR

130%

;G0 TO 140% IF NO ERROR

PC,a(SP)+

sRETURN HERE IF ERROR
¢ERROR # DEFINED BY SECERR SUBROUTINE
.60 BACK FOR MORE ERROR C(HECKS

RMDCO

sSHIFT TO NEXT PRIME CYLINDER

;G0 TO 1508 IF ERROR

150%

#512.,RMDCO
150%
10%

REd

ERR

;60 BACK FOR MORE ERROR (HECKS

120 $

;60 TO 1509 l

;G0 TO 110% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE

C,a(SP)+
3
150 $

MP
BLO
JMP

If F E ERROR

;60 CHECK FOR PRIMARY ERRORS

1108

ASL

JRETURN ME RE

?
D BY GET SUBROUTINE
JERROR # D EF INE

150%

BR
NOP
EMT
JSR
JMP

S*TEST

l ST ER (S) WITH GET SUBROUTINE
.60 READ REGIS
.60 TO 100% l F NO ERROR

PC,GET

EMT

004736
000137

12-5¢

JSR
BR
NOP
EMTY
JMP

.WORD
BR
NOP

104000

004736
000137

SEQ 0138

104000

004736
000137

11-APR-80 13:04:53 PAGE

SEEX

ldRdl

;1S THE

YESII

TEST DONE??

.60 DO NEXT
Rl

CYLINDER

RRRRRRRRRRNRR

ZERO DIFFERENCE

"l't".l"."'.'t"""""""'.'.'t'l"tlttl"tl'tllt!i"ttttt

iéTLb:

1504
1505

1506

001100
001276
001464
000001
000046

043150

SCOPE
NOP

MOV
MOv
MOV
MOV
MOV

001206
001226
10%:

JSR
.WORD

:SCOPE CALL
;START

TEST

s INITIALIZE STACK POINTER

;RO = UNIBUS ADDRESS
;(R1)

= DEVICE BEING TESTED

::D0O 1 ITERATION
s.SET TEST NUMBER IN APT MAIL BOX
;PREPARE D EVICE FOR T ES 1
. TASK

DESCRIPTOR AS

f OLLOWS:

CZRMMAQ RM0S5/3/2 FCINL TST 1
1646
SEEK ZERO DIFFERENCE

MACRO v03.01

11-APR-80

J 1

13:04:53 PAGE

12-55

SEQ 0139

;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION

:PACK ACKNOWLEDGE

VOLUME

;VERIFY PACK ACKNOWLEDGE

nN—=O0

030704
030710
030712
030714
030716
030722
030722
030726
030730
030732
030734
030736
030742
030742

000003
000000
000000
000005
001543
000006
000034
000000
000200

004737
000404
000240

04464624

and

d el

031036

MNIPVNONIN)
NI NN

106000

000137

—

030636
030642
030646
030652
030656
030656
030662
030664
030666
030670
030674
030700

000404
000240

-t
=2 O OO0 O

030572
030574
030576
030600
030604
030604
030610
030616
030624
030632

[aS 1 ST, 81, V], 81,
G1,¥1,8],¥)
NN SN NN NN NN
NIV
NIONINLNO

e
e
i e
il
d el
el e

CO~NO VNN
= OV~

o
d md

(ALY
IV IV )
RO
—

—

LV, IV IV IV IV IV IV IV IV IV ]

;RECALIBRATE

106000
000137

004737
004737
004737
000404
000240

106000
000137

031036
044070
044766

90¢%:

100%:

004737
000405
000240
104000
004736
000137

052270

004737

051644

031036

000010
000405
000240

120%:

130%:

031036

;ERROR # DEFINED BY TSTPRP SUBROUTINE

;60 TO 170% IF ERROR

#SEEK!GO,RMCS10 JFUNCTION CODE FOR SEEK
FPUTINX,R2
sR2 POINTS TO REGISTER INDEX
#RMDA, (R2)+
JWRITE REGISTER INDEX TABLE
#RMDC, (R2)+
NRMCST,(R2)+
#200,(R2)+
:TERMINATE TABLE

JSR

PC,PUT

;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE

100$

170%

PC,GETSTS
PC,TIMOUT

JSR

PC,GET

EMT
JMP
JSR
B8R
NOP
EMT
JSR
JMP
JSR

120%

;G0 TO 1008 IF NO ERROR

PC,PRIERR

130%

PC,a(SP)+

170%

PC,SEKSTS

1408

ERROR

:ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 170% IF ERROR
:SETUP FOR READING STATUS
;WAIT FOR COMPLETION
;60 READ REGISTER(S) WITH GET SUBROUTINE
;G0 TO 1208 IF NO ERROR

;RETURN HERE

170%

SEEKS

JCYLINDER = 0
;TRACK = 0, SECTOR = 0

;RETURN HERE

JMP
JSR
JSR

ERROR

:ERROR # DEFINED BY GET SUBROUTINE
;G0 TO 1708 IF ERROR

;G0 CHECK FOR PRIMARY ERRCRS

;G0 _TO 1308 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;60 BACK_FOR MORE ERROR CHECKS
;G0 TO 1708 IF ERROR
:60 VERIFY RESULTS OF SEEK OPERATION
;G0 _TO 1408 IF NO ERROR

NOP
EMT
JSR

PC,a(SP)+

;ERROR ¥ DEFINED BY SEKSTS SUBROUTINE
;G0 BACK _FOR MORE ERROR CHECKS
;G0 TO 1708 IF ERROR

JSR
.WORD
.WORD
BR

PC,CMPERRSTS
NDTMSK
DPE
150%

;CHECK ANY ERRORS NOT MASKED
;MASK FOR RMER!
;MASK FOR RMER?

EMT
JSR
JMP

PC,R(SP)¢

JMP

NOP

104000

:60 TO 808 IF NO ERROR
;RETURN HERE 1F ERROR

JR3 = NUMBER OF

B8R

140%:

170%

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

;VERIFY RECALIBRATION

#3,R3
#0,RMDCO
#0,RMDAO

NOP

031036

80%

VALID

MOv
MOv
MOV
Mov
MOv
MOVB
MOvVB
Move
MOvVB

EMT

066156

0645152

004736
000137

00444
001416
001410

NOP

004737
000405
000240
104000
004736
000137

115760

80%:

NOP
EMT
JMP

NOT

;RETURN HERE

170$

170¢

ERROR

;60 TO 1508 IF NO ERROR
;RETURN HERE If ERROR

.ERROR # DEFINED BY CMPERRSTS SUBROUTINE
.60 BACK_FOR MORE ERROR CHECKS

;60 TO 1708 IF ERROR

CIRMMAQ RM0S5/3/2 FCTINL TST

146

SEEXK

ZERO DIFFERENCE

1529 031006
1530 031006

004737

031014
031016
031020

000240
104000
004736

031012

1531
1532
1533
1534
}ggg

031022

031026
031026
031030
031032
031036

000405

000137

MACRO v03.01

1
12-56
SEQ 0140

1508
:

046004

JSR

PC SECERR

;60 CHECK FOR SECONDARY ERRORS

NOP
EMY
JSR

PC,a(SP)+

JRETURN HERE IF ERROR
sERROR # DEFINED BY SECERR SUBROUTINE
;60 BACK FOR MORE ERROR (CHECKS

DEC

;DONE ALL SEEKS??

1708
90%

JYES!!
;NO - GO DO NEXT

031036

160%:

005303

001402
000137

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

030656

1708:

1537

JMP
BEQ
JMP

A R

1608

1708

seTEST &7

:60_TO 1608 IF NO ERROR

:60 T0 1708 IF ERROR

SEEK

N R R R

R R S R R R

SR R

X L

SEEK MAXIMUM DIFFERENCE FORWARD

R
Y
R
R
R
R
R
R
R
iy

031036
031036

031040
031042
031046
031052
031056
1538 031064
1539 031072
1540 031072
031076

1ST47:

000004

000240
012706
013700
013701
012737
012737

004737
056130

001100
001276
001464
000002
000047

001206
001226
108:

063150

SCOPE

sSCOPE CALL

NOP
MOV
MOV
MOV
MOV
MOV

#STACK,SP
$BASE RO
TSTQUE R
"2, ,8TIMES
#47,3TESTN

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

JSR
.WORD

PC,TISTPRP
054130

;PREPARE DEVICE FOR TEST
sTASK DESCRIFTOR AS FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION

+PACK

ACKNOWLEDGE

VOLUME

sVERIFY PACK ACKNOWLEDGE

NOT

VALID

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

031100
031102
031106
031106
1561 031112
1562 031112

000404
000240
104000
000137

031350

012737

000000

001444

1564
1545
1546
1547

012737
012702
112722
112722

000005
001543
000006
000034

001410

112722

000200

1563 031120

031126
031134
031140
031144

1548 031150

}2?8 8;}}23

1551 031160
031164
031166
031170
031172
1552 031176
1553 031176
}ggg 031202

012737

112722

000000

004737
000404
000240
104000
000137

044424

004737

044070

004737

031350
044766

80$:

001416

BR
NOP
EMT
JMP

80$

160%

;VERIFY RECALIBRAT]ON
G0 TO 808 IF NO ERROR
*RETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
160 TO 1608 IF ERROR

MOV

#0,RMDCO

;SEEK TO CYLINDER 0

MOV

MOV
MOV
MOVB
MOVB
005

1008:

MOVB
MOVB

#0 RMDAOD

:TRACK = 0, SECTOR = 0

#SEEK'GO,RMCS10 -FUNCTION CODE FOR SEEK
#PUTINX,R?
*R2 POINTS TO REGISTER TABLE
WRMDA, (R2)+
*WRITE REGISTER INDEX TABLE
WRMDC.(R2)+

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

;STEUP TERMINATOR BYTE

JSR
BR
NOP
EMT
JMP

PC,PUT
1008

1608

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE
260 TO 1008 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY PUT SUBROUTINE
60 TO 1608 1F ERROR

JSR

PCLGETSTS

:SETUP TO READ ALL REGISTERS

JSR

PC.TIMOUT

IN TABLE

‘WAIT FOR SEEK TO COMPLETE

RMO5/3/72 FCINL TST 1
MACRO v03.01
SEEX MAXIMUM DIFFERENCE FORWARD

031206

031212

004737

000406

044154

031214
031216
8%1552

000240
104000
000137

031350

031224

004737

045152

031232
031234
031236

000240
104000
004736

000137

031350

0312644
031250
031252
031254
031256
031260
031264
031264
031270
031272
031274
031276
031300
031302
8;};93

004737
000405
000240
104000
004736
000137

052270

004737
115760
000010
000405
000240
104000
004736
000137

051644

031230

8%%%22

031310
031314
031316
031320
031322
031324
031330
031330
031334
031336
031344
031350

000405

11-APR-B0 13:04:53 PAGE

JSR

1308:

031350

046004

005737
001005
012737
000137

001444

005

031350

1508;

001466
031160

1608:

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

110s

260 TO 1108 IF NO ERROR

NOP
EMT
JMP

1608

RETURN HERE IF ERROR
*ERROR
# DEF INED ev GEY SUBROUT
INE
:60 TO 1608 IF ERR

JSR

PC,PRIERR

;G0 CHECK FOR PRIMARY ERRORS

PC,a(SP)+

*RETURN HERE ]F ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS

031350

004737
000405
000240
104000
004736
000137

SEQ 0141

BR
10

12
=57

NOP
EMT
JSR

JMP

1208

:GO TO 1208 IF NO ERROR

1608

JSR
BR
NOP
EMT
JSR
JMP

PC,SEKSTS
130¢

JSR
.WORD
.WORD
BR
NOP
EMT
JSR
JMP

PC,CMPERRSTS
NDTMSK
DPE
140%

:60 70 1608 IF ERROR

;60 VERIFY RESULTS OF SEEK QOPERATION
:GO TO 130% IF NO ERROR
JRETURN HERE IF ERROR
:ERROR # DEFINED BY SEKSTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;G0 TO 160% IF ERROR

PC,a(SP)+
160%

;CHECK ANY ERRORS NOT MASKED
;MASK FOR RMER1
;MASK FOR RMER?
;GO TO 1408 IF NO ERROR
;RETURN HERE IF ERROR
JERROR # DEFINED BY CMPERRSTS SUBROUTINE
;G0 BACK FOR MORE ERROR CHEC(KS
160 TO 1608 IF ERROR

PC,a(SP)+
160%

JSR
BR
NOP
EMT
JSR
JMP

PC,SECERR
1508
PC,a(SP)+
160%

187
BNE
MOV
JMP

RMDCO
1608
#822.,RMDCO
90$

:6G0 CHECK FOR SECONDARY ERRORS
160 TO 1508 IF NO ERROR
JRETURN HERE IF ERROR
:ERROR # DEFINED BY SECERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
160 TO 1608 IF ERROR
;1S TEST DONE ?
TYES!!
;NO - SEEK TO LAST CYLINDER

. ttt'tt'l.tt'ttl't'""'tttt't"t.t"t'..tl"tt.tt""'ttt'ttltl

SeTEST
e

031350
031350
031352

000004
000240

031376

012737

-l
—

[V IV 1V}
NN~

03135¢
031360
031364
031370

031406
031404
031410

15150

012706
013700
013701
012737

001100
001276
001464
000001

004737
054130

043150

000050

SEEK

2222222202222

001206

001226

XX R R X

X R R

FORWARD
Z

R R R R

E R R

X R

R R A

AR XA X2 REXR

SCOPE
NOP
MOV
MOV
MOV
MOV

NSTACK,SP
$BASE ,RO
TSTQUE ,R1
M, STIMES

SINITIALIZE STACK POINTER
‘RO = UNIBUS ADDRESS
$(R1) = DEVICE BEING TESTED
.00 1 ITERATION

JSR
.WORD

PC,ISTPRP
054130

;PREPARE DEVICE FOR TEST
JTASK DESCRIPTOR AS FOLLOWS:

MOV
108:

ADJACENT
2

#50,$TESTN

;SCOPE CALL
:START OF TEST

S:SET TEST NUMBER IN APT MA[L BOX

CIR MMAQ RMOS5/3/2 FCINL TST 1
150
SEEXK ADJACENT FORWARD

MACRO v03.01

11-APR-B0

m1
13:04:53 PAGE 12-58

SEQ 0142

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

ACKNOWLEDGE

VOLUME

031660
000000
000000
000005
001543
000034
000006
000000
000200

W
~N

Moo

(o)

— e e

el
-

SNNSNNNNNN

000137
OO
O NN
NN
NN ~

—
o
oo
b o
on
(=) ‘\
oo

o
il el
e
el il o
il
el

000404

d el e D

)
d

[eleleloleolololololololelole)

[V LV LV IV TV IV IV v VIV VT

0
000404
000240
£

00 00 0D 00 0D 00 00 ~J ~ ~N ~J
PN
NN =0V
~NO

B
)
nnd
il
el
i
e
el
sl
e

(VALY IV IV IV TV IV IV IV 1V}

£H
e
£
80
oorn s srO00NV

;VERIFY PACK ACKNOWLEDGE

104000

SN
S 8 B NN
O N
OO
SN
OO SO

VIV IV IV IV TV
WAL LV IV IV IV

M A AN N N [V}

i
=
il
el cad cmd
b ol

1593
1594

L L L L W A A

1591
1592

(=lelelelelolelololeleYa) (=]

1587
1588
1589
1590

000137
004737
004737

1597

572
576
602
604

o
o
o

D
—

1595
1596

104000
000137

004737
000405
000240

10
12
14
16

90$:

031660

044070
044766

100%:

046154

031660
0645152

1108:

004737
000405
000240
104000
004736
000137

052270

004737
115760
000010
000405

051644

000240
104000
004736
000137

JMP

160%

MOV
MOV
MOV
MOv
MovB
MOvB
MOVB
MovB

#0,RMDCO
#0,RMDAO

;TRACK = 0, SECTOR = 0
#SEEK!GO,RMCS10 JFUNCTION CODE FOR SEEK
#PUTINX
,R2
JR2 POINTS TO REGISTER ]NDEX
#RMDC, (R2)+
JWRITE REGISTER INDEX TABLE
#RMDA, (R2)+
#RMCST,(R2)+

sCYLINDER = 0

#200,(R2)+

sTERMINATE

JSR
BR

PC,PUT
100%

;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

031660

140%:

;60 TO 1008 IF NO ERROR
;RETURN HERE

ERROR

PC,GETSTS
PC,TIMOUT

JSR

PC,GET

;60 READ REGISTER(S) WITH GET SUBROUTINE

160%

;RETURN HERE IF ERROR
;ERROR ¥ DEFINED BY GET SUBROUTINE
;60 TO 160% IF ERROR

PC,PRIERR

;60 CHECK FOR PRIMARY ERRORS

PC,a(SP)+

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

JSR
BR
NOP
EMT
JSR
JMP

PC,SEKSTS

;GO VERIFY RESULTS OF

JSR
.WORD
.WORD

PC,CMPERRSTS
NDTMSK
DPE
1409

BR
NOP
EMT
JMP

EMT
JSR
JMP

NOP

031660

TABLE

;60 TO 160% IF ERROR
;SETUP FOR STATUS FETCH
¢WAIT FOR COMPLETION

JSR

130%:

EMT
JMP
JSR
JSR

120%:

;RECALIBRATE IF ''SKI'' OR ''PIP'' IS SET
;VERIFY RECALIBRATION
;G0 TO 80% IF NO ERROR
JRETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;G0 TO 160% IF ERROR

80%

NOP

031660

VALID

B8R
NOP
EMT

NOP

104000

004736
000137

j=lelelelelolelelelole]
]
At L Lt A Lt Ll L o N A i

031566

004737
000404
000240

064626

001664
0014616
0014610

80%:

NOT

EMT
JSR
JMP

160%

110%

120%

160$
130%

PC,a(SP)+

160%

PC,a(SP)+

1608

:ERROR # DEFINED BY PUT

SUBROUTINE

;60 TO 1108 IF NO ERROR

;60 TO 1208 IF NO ERROR

.60 TO 1608 IF ERROR

SEEK OPERATION

;GO _TO 1308 IF NO ERROR

;RETURN HERE

ERROR

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

.60 TO 160% IF ERROR

: CHECK ANY ERRORS NOT MASKED

sMASK FOR RMER!

;MASK FOR RMER?

;G0 _TO 140% IF NO ERROR
;RETURN HERE

ERROR

SERROR # DEFINED BY CMPERRSTS SUBROUTINE
.60 BACK FOR MORE ERROR CHECKS

.60 T0 1608 1F ERROR

%%SHHAO RMO5/3/2 FCTINL TST

SEEK ADJACENT FORWARD

1598 031622

004737

031630
031632
031634

000240
104000
004736

031626

1599
1600
1601
1602
1603

031636

031642
031642
031646
031650
031656

}ggg 031660

000405

MACRO v03.01

046004

000137

031660

005737
001004
005237
000137

001444

11-APR-80 13:04:53 PAGE

JSR

1508:

001444
031472

1608 :

1606

PC,SECERR

150¢

NOP
EMT
JSR

PC,a(SP)+

TST
BNE
INC
JMP

RMDCO
1608
RMDCO
90$

JMP

12-59

1608

SEQ 0143

;G0 CHECKX FOR SECONDARY ERRORS

$G0 TO 1508 IF NO ERROR

;RETURN HERE ]F ERROR
*ERROR # DEFINED BY SECERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS

:GO TO 160% IF ERROR

JFIRST TIME THROUGH??
*NO!!
JYES = SEEX TO ADJACENT CYLINDER FORWARD

:;tttt.l'tltt.t""t"tttt"t"tttt'ttttt'ttl'tt't't'.t'ttttttttt

;*TEST

SEEK ADJACENT REVERSE

.'.'tttttt"tttttt"tt'ttt't'tttitttttttt'ttt't"tt'tt'tttttli"ttt

031660
031660
031662
031664
031670
031676
031700
1607 031706
1608 031714
1609 031714
031720

75151:

000004
000240
012706
013700
013701
012737
012737

001100
001276
001464
000001
000051

004737

043150

0564130

001206
001226
108:

SCOPE
NOP
MOV
MOV
MOV
MOV
MOV

#STACK,SP
$BASE RO
TSTQUE ,R1
M ,STIMES
#51,8TESTN

;SCOPE CALL
*START OF TEST
JINITIALIZE STACK PQOINTER
;RO = UNIBUS ADDRESS
J(R1) = DEVICE BEING TESTED
2:D0 1 ITERATION
;;SET TEST NUMBER IN APT MAIL BOX

JSR

PC,TSTPRP

;PREPARE

.WORD

054130

DEVICE

FOR TEST

;TASK DESCRIPTOR AS FOLLOWS:

JCLEAR CONTROLLER & SELECT DEVICE

JVERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE

VOLUME

JVERIFY PACK ACKNOWLEDGE
031722

1610
1611
1612
1613
1616
1615
1616

0317264
031726
031730

031734
031736
031742
031750
031756
031762
031766

1617 031772

000404

032172

012737
012737
012737
012702
112722
112722

000001
000000
000005
001543
000006
000034

112722

000200

112722

1618 031776
1619 032002
1620 032002

004737

032010
032012
032014

000240
104000
000137

032006

1621 032020
}6%% 032026

6
1624 032030

B8R

000240
104000
000137

000404

001444
001416
001410

808
:

000000
044424

004737
004737

032172
044070
044766

004737

046154

NOP
EMT
JMP

MOV
MOV
MOV
MOV
MOvVB
MOVB

MOVvB
90$:

MOVB
JSR

B8R
100¢:

NOP
EMT
JMP

80%

160%

;60 TO 80% IF

NO ERROR

JRETURN HERE IF ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
160 TO 1608 IF ERROR
:CYLINDER = 1
;TRACK = 0, SECTOR = 0
;FUNCTION CODE FOR SEEK
:R2 POINTS TO REGISTER INDEX
;WRITE REGISTER INDEX TABLE

#200,(R2)+

JTERMINATE TABLE

PC,PUT

;60 WRITE REGISTER(S)

100

JSR
JSR

1608
PC,GETSTS
PC,TIMOUT

JSR

PC,GET

VALID

;RECALIBRATE IF ''SKI'' OR ''PIP'" IS SET
JVERIFY RECALIBRATION

#1,RMDCO
#0,RMDAO
FSEEX'GO,RMCS10
#PUTINX,RZ2
#RMDA, (R2) ¢
#RMDC, (R2)+

#RMCST, (R2)+

NOT

WITH PUT

:60 T0 1008 If NO ERROR

SUBROUTINE

JRETURN HERE IF ERROR
JERROR # OEFINED BY PUT SUBROUTINE
260 10 1608 IF ERROR
JSETUP TO READ ALL REGISTERS
JWAIT FOR SEEK TO COMPLETE
;G0 READ REGISTER(S)

WITH GET

SUBROQUT INE

CIRMMAQO RMOS5/3/2 FCTNL TST 1

151

SEEK ADJACENT

032036
032036
032040
032042
1625 032046

REVERSE

000404
000240
104000
000137

032172

1626 0320646

004737

045152

032054
032056
032060

000240
104000
004736

032052

032062

000405

000137

032172

1628 032066

004737

052270

032076
032076
032100
032102

000240
104000
004736
000137

03¢172

004737

051644

1627 032066

032072

1629 032106
1630 032106

1631

032112
032114
032116
032120
032122
032124
032126

032132

1632 032132
032136
032140
032142
032144
032146
1633 032152
1634
1635
1636
1637

032152
032160
032162
032166

}ggg 032172

000405

115760
000010
000405
000240
104000
004736
000137

MACRO v03.01

1108:

1208

046004

022737
001004
005337
000137

000001

1108
1608

;60 TO 1108 IF NO ERROR
‘RETURN HERE IF ERROR
"ERROR # DEFINED BY GET SUBROUTINE
160 TO 1608 IF ERROR

JSR

PC,PRIERR

:G0 CHECK FOR PRIMARY ERRORS

NOP
EMT
JSR

PC,a(SP)+

:RETURN HERE ]F ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE
160 BACK FOR MORE ERROR CHECKS

JSR

PC,SEKSTS

;60 VERIFY RESULTS OF

NOP
EMT
JSR
JMP

PC,a(SP)+
1608

*RETURN HERE IF ERROR
*ERROR # DEFINED BY SEKSTS SUBROUTINE
160 BACK FOR MORE ERROR CHECKS
160 TO 1608 IF ERROR

JSR

PC,CMPERRSTS

:CHECK ANY ERRORS NOT MASKED

JMP

1308:

1408:

032172
001444

001444
032002

1508:

1608 :

16‘.0

SEQ 0144

BR
NOP
EMT
JMP

032172

004737
000405
000240
104000
004736
000137

B 12
11-APR-B0 13:04:53 PAGE 12-60

.WORD
.WORD
BR
NOP
EMT
JSR
JMP

1208

1608
1308

ND TMSK
DPE
1408

PC,a(SP)+
1608

260 TO 1208 IF NO ERROR

160 TO 1608 IF ERROR

SEEK QOPERATION

260 TO 1308 IF NO ERROR

;MASK FOR RMER1
*MASK FOR RMER2
160 TO 1408 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR ¥ DEFINED BY CMPERRSTS SUBROUTINE
:60 BACK FOR MORE ERROR CHECKS
260 TO 1605 'F ERROR

JSR
BR
NOP
EMT
JSR
JMP

PC,SECERR
1508
PC,a(SP)+
160%

;60 CHECK FOR SECONDARY ERRORS
260 TO 1508 IF NO ERROR
‘RETURN HERE IF ERROR
;ERROR ¥ DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS
;G0 TO 1608 IF ERROR

CMP
BNE
DEC
JMP

#1,RMDCO
1608
RMDCO
90%

;1S THIS THE FIRST SEEK??
*NO!!
JYES - SEEK TO ADJACENT CYLINDER
160 SEEK

.'.‘tt'ttttt'ttl.'tit"'""""ttt'l"t.tl.tttttttl'ttt'.'lt.t’itt

TeTEST

SEEK

INVALID SECTOR

:"t'"'"'l.t.'t"""ttt't"t'ttt.tttttt.t!""tt"lt't"tt"tt.

032172
032172
032176
032176
032202
032206
et 032212

000004
000240
012706
013700
013701
012737

001100
001276
001464
000052

1662 032220
1643 032220

004737

043150

032224

054130

15152:

001226
108:

SCOPE
NOP
MOV
MOV
MOV
MOV

NSTACK,SP
$BASE , RO
1STQUE ,R1
#52 ,$TESTN

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

JSR

PC,TSTPRP

:PREPARE DEVICE FOR TEST

LWORD

054130

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

RMO5/3/2 FCINL TST 1
SEEK INVALID SECTOR

MACRO v03.01

11-APR-80 13:04:53 PAGE

12-61
SEQ 0145
;PACK

ACKNOWLEDGE

VOLUME NOT

VALID

WM
O NN
NN
NNNN

N
N

NNNNNNNNNNN

Ottt
2 s OO OOO
[an I I
P
R
e
R
RV I i )
PFad SIS N1 N1, ST,NT,8],91,¥],§)

NN PO N NN NI NN NN

NN = =2 OO NNONES
B
NN
[l =P Jol JoP Nal NP J. JoloP N $TeT, N

AN AN NN AR

NOWVES
NN —=O

(VAW LV JVAAV LV LV, 1V ]

e
s e
— el e

cooococococo

SVERIFY PACK ACKNOWLEDGE

032610
000005
000000
000000
000036
001543
000032
000006
000034
000000
000200
064070
053530

001410
001442
001444
001416

80$:

90%:

BR
NOP
EMT
JMP
MGV
MOv
MOv
MOv
MOV
MOvB
MovB
MOvB
Move
MOovB

JSR

JSR
BR

032610

004737
000404
000240

0441546

000137

032610

032360
032364
032366
032370
032372
032374
032400
032400
032404
032406
032410
032412
032416
032416

004737
000405
000240

053646

1667 032422

104000

1662
1663

1664
1665

1666

032426
032430
032432
032434
1668 032440
1669 032440
032444
032446

104000
004736
000137

032610

000137

032610

004737

044766

004737
000404
000240

046154

000137

032610

004737
000405

045152

000240

110%:

18 BT

#0 . RMDCO

SCYLINDER = 0

#PUTINX,R?
NRMOF , (R2) +
#RMDA
. (R2)+
NRMDC
. (R2) +
SRMCST, (R2)+
#200, (R2)+
PC,GETSTS

:R2 POINTS TO REGISTER TABLE
*WRITE REGISTER INDEX TABLE

#30. ,RMDAD

PC,CNTCLR

SINVALID SECTOR = 30., TRACK = 0

:TERMINATE TABLE
:SETUP INPUT REGISTER
:60

ISSUE

CONTROLLER

INDEX
CLEAR

1808

260 T0 1808

ERROR

JSR

PC,GET

1008

:RETURN HERE IF ERROR
*ERROR NUMBER DEFINED BY SUBROUTINE
IF

;60 READ REGISTER(S)
:RETURN HERE

180%

160 TO 180$ IF

JSR

PC,CLRSTS

;G0

110%

EMT
JSR
JMP

PC,a(sP)+

JSR

PC,PUT

180%

1208

WITH GET

160 T0 1008 IF NO ERROR

EMT
JMP

SUBROUTINE

ERROR

:ERROR # DEFINED BY GET SUBROUTINE
VERIFY

ERROR

CONTROLLER

CLEAR OPERATION

260 TO 1108 IF NO ERROR

*RETURN HERE IF ERROR
:ERROR # DEFINED BY CLRSTS SUBROUTINE
160 BACK

FOR MORE

26O TO 1808 IF
;60 WRITE

ERROR

CHECKS

WITH PUT

160 TO 1208 IF NO ERROR
*RETURN HERE

SUBROUTINE

ERROR

EMT
JMP

180%

SERROR ¥ DEFINED BY PUT SUBROUTINE
:G0 10 1808 IF ERROR

JSR

PC,TIMOUT

:WAIT

JSR
BR

PC,GET

:60 READ REGISTER(S)

NOP

125%:

COMMAND

;FORMAT

EMT
JMP

NOP

120%:

.60 TO 180% IF ERROR

NO ERROR

NOP

064426

104000

100%:

ERROR

;ERROR # DEFINED BY TSTPRP SUBROUTINE

ASEEK!GO,RMCS10 s SEEK

#0,RMOFO

160 TO 95% IF

NOP

004737
000404
000240
104000

95%:

180%

;RETURN HERE

95$

NOP

000137

80%

JRECALIBRATE IF ''SKI'" OR ''PIP'" IS SET
;VERIFY RECALIBRATION
;60 TO 80% IF NO ERROR

126%

EMT
JMP

180%

JSR

PC,PRIERR

NOP

130s

FOR GO TO RESET
WITH GET

160 T0 1258 IF NO ERROR

SUBROUTINE

*RETURN HERE IF ERROR
:ERROR # DEFINED BY GET SUBROUTINE
260 10 180% IF
:60 CHECK

ERROR

FOR PRIMARY

ERRORS

260 TO 1308 IF NO ERROR
;RETURN HERE

ERROR

l=lelolololelolelelolelalolololelolaololalolelolalo BNTD
-]

M0S/3/2 FCINL TST 9
EEK INVALID SECTOR

—

£ wir0

—

el
=
)
el
il
D
)
—

oooocoocror0rOr
0000 00 0000 00 ~ ~N =~
WV
NN = OO0~y

1675
1676

D 12

MACRO v03.01

11-APR-B0 13:04:53 PAGE

104000

460
460
664

670

032556
032560
032566
032570
032576
032604
032610

004736
000137
004737
000405
000240

EMT

032610

052270

104000

004736
000137

032610

004737

051644

117760

000010
000405
000240
104000
004736
000137

160%:

004737
000405
000240
104000
004736
000137

046004

005237
022737

001416
000037

001416

032737

010000

001442

010000
000037
032324

001442
001416

103262

032610

170%:

1808

;60 TO 180% IF ERROR

JSR
BR
NOP
EMT
JSR

PC,SEKSTS

;00 VERIFY RESULTS OF

180%

SEEK OPERATION
;G0 TO 140% IF NO ERROR
RETURN HERE IF ERROR
SERROR # DEFINED BY SEKSTS SUBROUTINE
.60 BACK FOR MORE ERROR (HECKS
;GO TO 180% IF ERROR

JSR
.WORD
.WORD
BR
NOP
EMT
JSR
JMP

PC,CMPERRSTS

; CHECK ANY ERRORS NOT MASKED

180%

.GO TO 180% IF ERROR

JSR
BR
NOP
EMT
JSR
JMP

PC,SECERR

;GO0 CHECK FOR SECONDARY ERRORS

INC
(MP
BHIS

RMDAO

#31.,RMDAO
90%

s INCREMENT SECTOR ADDRESS
+DONE??
sNO - TEST NEXT SECTOR

NFMT16,RMOFO

JWAS

1408

C,B(SP)‘

TAE !NDTMSK
DPE
160%

;MASK FOR RMER1
;MASK FOR RMER?

;60 TO 160% IF NO ERROR
RETURN HERE IF ERROR
;ERROR # DEFINED BY CMPERRSTS SUBROUTINE

PC,a(SP)¢

;GO BACK FOR MORE ERPOR ( 'ECKS

;GO TO 170% IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE

170%

PC,a(5P)+

;60 BACK FOR MORE ERROR CHECKS

;GO TO 180% IF ERROR

180%

8IT
BNE

180%
NEMT16,RMOFO
#31.,RMDAO
90%

MOv
MOV

JMP

180%:

;ERROR # DEFINED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERROR (ME(CKS

PC,a(SP)e

JMP

032610

SEQ 0146

JSR

JMP

130%:

12-62

TEST

:BR IF

YES

DONE

FOR

16 BIT

MODE

YET

;SET 16 BIT FORMAT MODE
;SET INVALID SECTOR 31.
¢NO - TEST NEXT SECTOR

. '.."'tl'tl"""t"""tt"lt'ttlt"'tl"tl"t."tt"tt'tlttt'

S+TEST
M

15153:

1690
1691 032636

032642

001100
001276
001464
000053

043150

001226

SRS

SEEK
d

SCOPE
NOP

MOV
MOV
MOv
MOv

JSR
.WORD

INVALID TRACK

REaR

RSl

RRRRRRRRR R

NFSTACK,SP

:SCOPE CALL
;START OF TEST
;INITIALIZE STACK POINTER

TSTQUE ,R1

;(R1)

PC,TSTPRP

;PREPARE DEVICE FOR TEST

$BASE RO

#53,$TESTN

054130

;RO = UNIBUS ADDRESS

= DEVICE BEING TESTED

;.SET TEST NUMBER IN APT MAIL BOX
;TASK

DESCRIPTOR AS FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE I1F VOLUME NOT VALID
;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF *'SKI'* OR "'PIP'"" IS SET

MACRO v03.01

—

W
N
WWNONIPONI
N O NN
N
NNVNVNMNIMNIN
N NNNN

NNNNSNSNNNANINNNY

Ot
2
OO —OCO
(e B R
R
e
o T Y o P P
Y}
S oV
NONOWLNININD

PIRNIAI NN N

o
o

RN NN PO NI PO N

RM05/3/2 FCINL TST
SEEK INVALID TRA(K

033236
0000905
000000
001332
001417
000000
001543
000032
000034
000006
000000
000200
044070

004737
000404
000240

053530

000137

033236

004737
000404

0466154

104000

001410
001444
001416

80%:

033040
033040
033044

MOV
MOV
MOv

001442

MOV
MOv

MOvVB
MOvVB

90%:

95%:

13:04:53 PAGE

80%

200%

004737
000405
000240
104000
006736
000137

053646

004737
000404
000240

044624

1008-

PC,CNTCLR

JSR
BR

NOP

033236

104000
000137

033236

004737

0664766

004737
000404
000240
104000
000137

046154

004737
000405
000240

045152

110%:

1208:

EMT
JSR
JMP

95%

2008
PC,GET

100$

;LAST TRACK,

SECTOR = 0

;SETUP FIRST INVALID TRACK

;18 BIT FORMAT

;R2 POINTS TO REGISTER TABLE
;WRITE

INDEX

TABLE

sSETL® INPUT TABLE FOR STATUS
:GO ISSUE CONTROLLER CLEAR

;G0 _TO 95% IF NO ERROR
;RETURN HERE 1F ERROR
;ERROR NUMBER DEF INED BY SUBROUTINE
;G0 TO 2008 IF ERROR
;60 READ REGISTER(S) WITH GET SUBROUTINE
;G0 TO 1008 IF NO ERROR
;RETURN HERE 1F ERROR
:ERROR # DEFINED BY GET SUBROUTINE

200%

.60 TO 200% IF ERROR

PC,CLRSTS

;G0 VERIFY CONTROLLER CLEAR OPERAT]ON

1108

PC,a(SP)+

;G0 T0 1108 IF NO ERROR
RETURN HERE F ERROR

;ERROR ¥ DEFINED BY CLRSTS SUBROUTINE
;60 BACK FOR MORE ERROR (HECKS

;GO TO 200% IF ERROR

JSR
BR
NOP
EMT
JMP

PC,PUT

200%

:60 WRITE REGISTER(S) WITH PUT SUBROUTINE
.60 TO 1208 IF NO ERROR
;RETURN HERE 1F ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;60 T0 2008 IF ERROR

JSR

PC,TIMOUT

;WAIT FOR GO TO RESET

JSR
BR

PC,GET

;60 READ REGISTER(S) WITH GET SUBROUTINE

EMT

130%:

COMMAND
;CYLINDER = 0

200%

NOP

033236

;60 TO 80$ IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED By TSTPRP SUBROUTINE
.60 TO 2008 IF ERROR

sTERMINATE

JSR
BR

EMT
JMP

;VERIFY RECALIBRAT]ON

#200,(R2)+

PC,GETSTS

NOP

033236

SEQ 0147

:TABLE FOR OUTPUT

JSR

JSR
BR

12-63

FSEEK:GO,RMCS10 ;SEEK

#RMDA, (R2)+
#RMCST, (R2)+

EMT
JMP

#0,RMDCO
LSTRK ,RMDAO
RMDAO+1
#0,RMOFO
#PUTINX,R2
#RMOF
, (R2)+
FRMDC, (R2)+

Move

MOVB
mMove

NOP

000137

104000
004736

BR
NOP
EMT
JMP

INCB

000240
104000

11-APR-80

1208

1308

JMP

2008

JSR
BR
NOP
EMT
JSR

PC,PRIERR

.60 TO 1308 IF NO ERROR

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

;60 TO 2008 IF ERROR

1408

;60 CHECK FOR PRIMARY ERRORS
.60 TO 1408 If NO ERROR

PC,a(SP)
¢

¢ERROR # DEFINED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERROR (HECKS

;RETURN HERE

ERROR

RMMAQ RM05/3/2 FCTNL TST
3
SEEK INVALID TRACK

033076

1719 033102
1720 033102

000137

033236

004737

052270

033110
033112
033114

000240
104000
004736

033106
033116

1721 033122
1722 033122
1723 033122

033126
033130
033132
033134
033136
033140
033142

1724 033146
1725 033146

033152
033154
033156
033160
033162

1726 033166
1727 033166
1728 033172

};gg 033200
1731
1732
1733
1734

033202
033210
033212
033220

1735 033226
};gg 033232

000405

000137

033236

004737

051644

117760
000010
000405
000240
104000
004736
000137
004737

000405
000240
104000
004736
000137

MACRO v03.01

1408:

1508:
1608:

033236

170%:

046004

033236

1808:

001417
001417

000200

032737
001012
012737
013737

010000

001442

010000
001332

001442
001416

105237
000137

001417
032746

JMP

2008

JSR

PC,SEKSTS

105237
123727

101414

F 12

11-APR-80 13:04:53 PAGE

1738 033236
1739

SEQ 0148

;60 TO 2008 IF ERROR

1508

:60 VERIFY RESULTS OF

SEEK OPERATION

160 TO 1508 IF NO ERROR

NOP
EMT
JSR

PC,a(SP)+

*RETURN HERE IF ERROR
JERROR # DEFINED BY SEKSTS SUBROUTINE
;60 BACKX FOR MORE ERROR (CHECKS

JSR

PC,CMPERRSTS

;CHECK ANY ERRORS NOT MASKED

JMP

.WORD
.WORD
BR
NOP
EMT
JSR
JMP
JSR

BR
NOP
EMY
JSR
JMP

2008

1AE 'NDTMSK
DPE
170%

160 T0 2008 IF ERROR

;MASK FOR RMERI
:MASK FOR RMER?

260 TO 1708 IF NO ERROR

PC,a(SP)+
200$

;RETURN HERE |F ERROR
;ERROR # DEFINED BY CMPERRSTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
160 TO 2008 IF ERROR

PC,SECERR

;60 CHECK FOR SECONDARY ERRORS

PC,a(SP)+
200%

160 TO 1808 IF NO ERROR
*RETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;o0 BACK FOR MORE ERROR (CMECKS
260 TO 2008 IF ERROR

INCB
(MPB

RMDAD+1
RMDAO+1,#128.

195%

;INCREMENT
:DONE??

*NO-DO NEXT TRACK

BIT
BNE
MOV
MOV

NEMT16,RMOFO
2008
#EMT16,RMOF0
LSTRK,RMDAO

:WAS TEST DONE FOR 16 BIT??
SYES!!
:SET FORMAT 16
;LAST TRA(CK, SECTOR = 0

BLOS

1958:

12-64

INCB
JMP

180%

RMDAQO+1
90%

TRACK ADDRESS

:SETUP FIRST INVALID TRACK ADDRESS
‘DO TEST FOR 16 BIT FORMAT

2008
:

17‘,0

""ttttttttt'.tlltt""tt"t"t"l.'t.'tttl'tt!tl'tttttttltttttttt

;TEST

SEEX

INVALID CYLINDER

""tl'tll'tttttt"tt'tttt"t!'t'tttl"ttt!'tltt'tttittttttt.tttttt

033236
033236
033240
033242
033246
033252
1701 033256

000004
000240
012706
013700
013701
012737

001100
001276
001464
000054

1762 033264

004737

043150

033270

054130

1S154:

001226

SCOPE
NOP
MOV
MOV
MOV
MOV

#STACK,SP
$BASE , RO
1STQUE ,R!
#54 ,8TESTN

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

JSR

PC,TSTPRP

:PREPARE

.WORD

054130

DEViCE

FOR

TEST

;TASK DESCRIPTOR AS FOLLOWS:

sCLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE

VOLUME NOT

VALID

;VERIFY PACK ACKNOWLEDGE
;RECALIBRATE IF ''SK1'' OR "PIP"" IS SEI

MACRO v03.01

000404

NOP

NN NN
NN

SNNSNSNSNSNSNSNSNNSN

WD AL NN N O
SNONINNININ

000005
001467
000000
009000
001543
000006
000034
000032
000000
000200
044070

006737
000404
000240
104000
000137

053530

004737
000404
000240
104000
000137

044154

004737
000405
000240

053646

033654

001410
001444
001416
001442

80%:

90%:

95%:

100%:

104000

1761
1762

1763 033462
1764
1765
1766

006736
000137

1767
1768

033654

004737
000404
000240
104000
000137

0446426

004737

044766

004737
000404
000240

0661564

000137

033654

004737
000405
000240

045152

000137

033654

104000

104000
004736

11-APR-80

033654
SENONINMNINRNINPO
NN

VS
W —=O OV

e
el
el
il
el
i
i
e
Al

SNONSNSNSN
NN YN
(YAl IV IV IV TV, TV 3 O .

SEEK

Ottt
2 2 OOOOO
QO el d oo e o e e i e

154

1
INVALID CYLINDER

NN P NN =2 O OO~~~
S1r2O0OS08S0O0ONOSSO0O
SNV

CZRMMAQ RMO5/3/c FCINL TST

110%:

EMT
JMP

MOv
MOV
MOv
MOV
MOv
MOvB
MOvB
MOvB
MOVB
MOVB

JSR

JSR
BR
NOP
EMT
JMP

120%:

130%:

12-65

80%
200%
#SEEK.GO,RMCS1O

#823, ,RMD(O
#0,RMDAO
#0,RMOFO

#PUTINX,R?
#RMDA, (R2)+
#RMDC, (R2)+
#RMOF
, (R2) ¢
FRMCST, (R2)+
#200,(R2)+
PC,GETSTS
PC,CNTCLR

95%

200%

SEQ 0149

;VERIFY RECALIBRAT]ON

.60 7O 808 IF NO ERROR

;RETURN HERE

ERROR

JERROR # DEFINED BY TSTPRP SUBROUTINE

:60 TO 2008 IF ERROR

sSEEK FUNCTION CODE

sSTART AT FIRST INVALID
;TRACK = 0, SECTOR = 0

CYLINDER

;18 BIT FORMAT

;R2 POINTS TO INDEX TABLE
;WRITE REGISTER TABLE

;sTERMINATE

TABLE

JSETUP FOR STATUS

;60 ISSUE CONTROLLER CLEAR

;G0 TO 95% IF NO ERROR
RETURN HERE IF ERROR
;ERROR NUMBER DEFINED BY SUBROUTINE
;G0 TO 2008 IF ERROR

JSR
BR
NOP
EMT
JMP

PC,GET
1008

JSR
BR
NOP
EMT
JSR
JMP

PC,CLRSTS

200$

;G0 VERIFY CONTROLLER CLEAR OPERAT]ON
:GO TO 1108 IF NO ERROR
;RETURN HERE [F ERROR
SERROR # DEFINED BY CLRSTS SUBROUTINE
.GO BACK FOR MORE ERROR CHECKS
;60 TO 2008 IF ERROR

JSR
BR

PC,PUT

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

EMT
JMP

200%

;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 2008 IF ERROR

JSR

PC,TIMOUT

;WAIT FOR GO TO RESET

JSR
BR
NOP

PC,GET

;60 READ REGISTER(S) WITH GET SUBROUTINE

NOP

033654

G 12

13:04:53 PAGE

EMT
JMP

JSR
BR
NOP
EMT
JSR
JMP

200%
1108

PC,a(SP)+

120%

130%

200%
PC,PRIERR

140%

PC,a(SP)¢

2008

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

;GO TO 1208 IF NO ERROR
:RETURN HERE

ERROR

;GO TO 1308 IF NO ERROR

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

;60 T0 2008 IF ERROR

;60 CHECK FOR PRIMARY ERRORS
;60 T0 1408 IF NO ERROR

sRETURN HERE

ERROR

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

.60 10 2008 IF ERROR

CIR MMAQ
154

(VY IV [VIV IV IV I

NN NN NN N NNWNINWNWIWN,
TV AV AV IV IV I S
o AN
S B B NN NN
N
oo~ NOS SO0
NO S

5/3/2 FCINL TST 1
INVALID CYLINDER

004737
000405
000240

MACRO v03.01

SEQ 0150
140%:

052270

JSR
BR

03365¢

004737

051644

117760

150%:

004737
000405
000240

170%:

046004

o o OO0 00~ ~N~N~N~N
v N = OV
~NO N

gl
D
D el

NN NN

) e
gl
el
il

~N~ NN

004736
000137
033614
033622

005237
023727
002412

033624
033632
033634
033642
033650

010000
001467
033370

180%:

002000

001442
001442
001444

195%:

PC,CMPERRSTS

s CHECK ANY ERRORS NOT MASKED
;GO TO 170% IF NO ERROR
¢RETURN HERE IF ERROR
;ERROR ¥ DEFINED BY rMPERRSTS SUBROUTINE

PC,a(SP)¢

.60 BACX FOR MORE ERROR CHECKS

200%

;G0 TO 2008 IF ERROR

PC,SECERR

;G0 CHECK FOR SECONDARY ERRORS
;G0 TO 1808 IF NO ERPOR
;RETURN HERE 1F ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;6O BACK FOR MORE ERROR (HECKS
;G0 TO 2008 IF ERROR

180%

EMT
JSR
JMP

PC,a(SP)+

200%

INC
(mMp
BLT

RMDCO
RMDCO,#102¢.

BIT
BNE

#EMT16,RMOFO

s INCREMENT CYLINDER ADDRESS
:DONE??
sNO-DO NEXT CYLINDER

195%

:12 BIT FORMAT TESTED??

2008

JYES

#823. ,RMDCO
90%

JSTART

NEMT16,RMOFO

MOV
MOV

JMP

:MASK FOR RMER1
FOR RMER?

;MASK

TEST

JSETUP FOR 16 BIT
AT

FIRST

INVALID

CYLINDER

200%:

—

001444
001444
010000

1785
1786 033654

NOP
EMT
JSR
JMP

NOP

033654

2008

;60 _T0 1508 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY SEKSTS SUBROUTINE
.00 BACK FOR MORE ERROR CHECKS
;G0 TO 200% IF ERROR

TAE !NDTMSK
DPE
170%

JSR
BR

104000

;60 VERIFY RESULTS OF SEEK OPERATION

PC,a(SP)+

JMP

033654

SEKSTS

1508

JSR
.WORD
.WORD

000010
000405
000240

104000
004736
000137

NOP
EMT
JSR

104000

004736
000137

H 12
13:04:53 PAGE 12-66

11-APR-80

1788

':"tt".'.'lt.""".l'"""""tttt'il'!ll."'t'.."t.".t'l

SRTEST 55
M

NNV
s et 0 O o
NSO OOSTNNOO N

SNNNNNNSNNYY ~

=leloleleleleloele) =

A e Ul A L e A L A W
AN AN AN NN N NN N

033654
033654
033656
033660
033664
033670
033674

000004
000240
012706
013700
015701
012737

004737
000404

IvC
R

SEEX

Al R

TEST
R

)

TST55:

001100
001276
001464
000055

SCOPE
NOP
MOV
MOV
MOV
MOV

001226

053530

JSR
BR

034214

000024
000200
000001
064624

001543
001544
001634

10%:

NOP
EMT
JMP
MOvVB
MOVB
MOV

JSR

:SCOPE CALL

#STACK,SP

$BASE ,RO

TSTQUE ,R1

#55,8TESTN
PC,ONTCLR

10%

:START OF

TEST

JINITIALIZE STACK POINTER

;RO = UNIBUS ADDRESS

:(R1)

= DEVICE BEING TESTED

:;SET TEST NUMBER IN APT MAIL

;G0 ISSUE CONTROLLER CLEAR
:60 TO 108 IF NO ERROR

sRETURN HERE

90%
NFRMMR1 ,PUTINX

#200,PUTINX+1

#OMD ,RMMR10
PC.PUT

BOX

ERROR

.ERROR NUMBER DEFINED BY SUBROUTINE

;GO TO 908 IF ERROR

sSETUP PUT INDEX TABLE
:SET TERMINATOR BYTE
;SET RMMR1 QUTPUT BUFFER - DMD
.00 WRITE RMMR1 VIA PUT SUBROUTINE

MACRO v03.01

NN NN NN N N

004737
000404
000240

044156

000137

034214

0064737
000405
000240

045152

001410
001436
001444
001416

20%:

30%:

40%:

b
b

£H

NOWVH
W
—O

i
e

b
el

e
e

e
el

i
e

d
—

—

00 00 0o 0o 0o 0o 0o 00

004736
000137
032737
001012
012737
013737
042737

50%:

60%:

004737

o
o

N
~
N

O oo

s
—

—

115760

Co 0o

JMP

90%

;60 TO 90% IF ERROR

MOv
MOV
MOv
MOov
MOov
MOvVB
MOvVB
MOvVB
MOVB
Move

JSR
JSR
BR
NOP
EMT
JMP

0346214
046004

80%:

104000

90%:

JRETURN HERE [F ERROR
JERROR DEFINED BY PUTM SUBROUTINE

FSEEX.GO,RMCS10

#0,RMMR10
#0,RMDCO
#0,RMDAO
#PUTINX,R2
FRMMR1, (R2)+

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

#200,(R2)+

PC,GETSTS
PC,PUT

JCYLINDER

;TRACK = 0
JWRITE REG

JTABLE

30%

sSETUP FOR STATUS
;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE
;G0 TO 308 IF NO ERROR

90%

;ERROR # DEFINED BY PUT SUBROUTINE
;GO TO 908 IF ERROR

;RETURN HERE

ERROP

JSR
BR

40%

EMT
JMP

90%

;GO READ REGISTER(S) WITH GET SUBROUTINE
;G0 TO 408 IF NO EKROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;GO TO 908 IF ERROR

PC,PRIERR

;60 CHECK FOR PRIMARY ERRORS

JSR
BR
NOP

104064

182 ? 036214
182

;60 T0 20% ]F NO ERROR

NOP

104000

004736

20%

[T}

NPV
NV NN O NN NN
NAVMNVRNRININOIN
NN NN

000000
000000
000000
001543
000024
000006
000034
000000
000200
044070
064426

034214

004737
000403
000240

12-67

o
©
O b b
b e b D e b b
S oD

Oeded
et s 2 DO OOO

000005

000137

010010
000405
000240
104000
004736
000137

BR
NOP

EMY

0346214

104000

[

13:04:53 PAGE

SEQ 0151

000404

004737

11-APR-80

—_

0 RMOS5/3/2 FCTINL
IvQ SEEK TEST

EMT
JSR
JMP
BIT
BNE

PC,GET

50%

PC,a(SP)+

90%

#1VC,RMER2]

¥1VC,$GDDAT

;60 TO 508 IF NO ERROR

JRETURN HERE

ERROR

JERROR # DEFINED BY PRIERR SUBROUTINE
;60 BACK FOR MORE ERROR (HE(CKS

;60 TO 90% IF ERROR

:Dég'¥NVALlD COMMAND SET??

JYES!!

RMERZ1, SBODAT

.6G00D DATA FOR TYPEOQOUT
;BAD DATA FOR TYPEOQUT

JSR
.WORD
.WORD
BR
NOP
EMT
JSR
JMP

PC,CMPERRSTS
NDTMSK

s CHECK ANY ERRORS NOT MASKED
sMASK FOR RMER]

JSR
BR
NOP
EMT
JSR

MOV
MOv
BIC
EMT

ZZCIVC.SBDDAT

80%

;MASK FOR RMER?
;G0 TO 80% IF NO ERROR

PC,a(SP)+

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

PC,SECERR

;00 CHECK FOR SECONDARY ERRORS

1VC!DPE

90%

PC,a(SP)+

;RETURN HERE

ERROR

;G0 TO 908 IF ERROR

;G0 _TO 90% IF NO ERROR
;RETURN HERE

ERROR

;ERROR # DEFINED BY SECERR SUBROUTINE
.60 BACK FOR MORE ERROR CHECKS

CIRMMAQ RMO5/3/2 FCINL TST

156

ABORT

SEEK

TEST

J 12

MACRO v03.01

11-APR-80 13:04:53 PAGE

12-68

SEQ 0152

822

;"""""'l"."""""'""'.."".".'tl"""'l"'t"t""t

SeTEST 56
A

RSl

iéYSb:
001100
001276
001464
000056

001226

043150

SCOPE
NOP
MOv

ABORT

SEEK

TEST
R

R R

FSTACK,SP

TEST

JINITIALIZE STACK POINTER

$BASE RO

TSTQUE ,R1
#56,8$TESTN

;J(R1)

JSR

PC,TSTPRP

.PREPARE DEVICE FOR TEST
:TASK DESCRIPTOR AS FOLLOWS:
sCLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION

054130

;RO = UNIBUS ADDRESS
= DEVICE

BEING

TESTED

;:;SET TEST NUMBER [N APT MAIL BOX

ACKNOWLEDGE

VOLUME

1 840
1 841
1 842
1 843
1 844
1 845

034612
034420
034426
034432
846 034434
847
848 034440
034446
034446

w
~

SNNSNSNNSNNSNNNNY ~

—

e
e
o
il s
e
e
—

AN V1,V1,N1,01,¥7,8T,87,8),
¥~

O—=—
= e e OO0 o

T T

1 838
1 839

034316

034322
034326
034332
034336
034342
034346
034352
034354
034356
034360
034364
034364
034370
034372
034374
034376
034402
034410

T 9T 8

NOWVES
WA = O000 O W

VIV IV TV IV VTV TV

il
—
il —
el
sl
el
) cod el

To -To -To To To Yo To Yo Yo Yo To )

—r el

[0 T

JVERIFY PACK ACKNOWLEDGE

034556
040000
000000
000000
000005
001543
000006
00003¢
000014
000000
000200
0644070
064424

001424
001444
0014616
0014610

80%:

BR
NOP
EMT
JMP
MOv
MOv
MOV
MOV
MOV
MOvB
MovB
MOvB
MOvVB
Mov8e
JSR

034556

004737
000404
000240

0464154

104000

000137
032737
001411
013737
062737
005037
106065
004737

004737
000404
000240

034556
020000

001346
157777
001140

044766

066154

90¢%:

001346

1008:

001142
001142

160%
NUNS ,RMERTO

#0,RMDCO
#0,RMDAO

NSEEK!GO,RMCS10

JSR
BR

EMT
JMP

160%

JSR

PC,GET

BR
NOP
EMT
JMP

BI17
8EQ

MOv
BIC
CLR

110%:

80%

#PUTINX,R?
#RMDA, (R2)+
#RMDC,(R2)+
#RMERT,(R2)+
#RM(CST,(R2)+
#200,(R2)+
PC,GETSTS
PC,PUT
90%

NOP

000137

;SCOPE CALL

;START OF

;PACK

000404
000240
104000
000137

MOv
MOV
MOv

.WORD

034250
034252
034254
034256
034262
034262
034270
034276
034304
034312

EMT
JSR

JSR
NOP

100%

160%

#P1
, RMDS]
P

110%
RMDS],$BDDAT

#*CPIP,$BDDAT

NOT

VvALID

;RECALIBRATE IF ''SKI'' OR '"'PIP'' IS SET
;VERIFY RECALIBRAT]OM
;G0 TO 80% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR ¥ DEFINED BY 1STPRP SUBROUTINE
;60 TO 1608 IF ERROR
;SET UNSAFE ERROR

JCYLINDER = 0
sTRACK = 0, SECTOR = 0

;SEEX COMMAND
JSETUP REGISTER INDEX TABLE
sAND

OUTPUT

BUFFER

JSETUP FOR STATUS FETCH
:60 WRITE REGISTER(S) WITH PUT SUBROUTINE

;60 TO 90% IF NO ERROR
;RETURN HERE IF ERROR

;ERROR ¥ DEFINED BY PUT SUBROUTINE

;60 TO 1608 IF ERROR

:60 READ REGISTER(S) WITH GET SUBROUTINE

;GO TO 1008 IF NO ERROR
;RETURN HERE

ERROR

;ERROR # DEFINED BY GET

;G0 TO 1608 IF ERROR

SUBROUTINE

:gé?IDRlVE START SEEK??

.BAD DATA FOR TYPEOQUT

$GDDAT

.GOOD DATA FOR TYPEQUT

PC,T1IMOUT

;WAIT FOR GO TO RESET

PC,GET

;GO READ REGISTER(S) WITH GET SUBROUTINE

1208

;G0 TO 1208 IF NO ERROR
sRETURN HERE

ERROR

CIR MMAQ RMOS5/73/72 FCINL TST
156
ABORT SEEK TEST

s
—

00 0o

034450
034452
1849 034456
1850 034456
034462
034464
034466
034470
034472
034476
034476
034502
034504
034506
034510
036512
1853 0346516
1854 034516
034522
034526
034526
034530
034532
034534
034536
034542
034542
034546
034550
034552
034554
034556

104000
000137

004737
000405
000240

MACRO v03.01

11-APR-B0

EMT

034556

120%:

0645152

104000

004736
000137

034556

004737
000405
000240
104000
004736
000137

061232

0064737

051644

155760
000010

130%:

034556

160%:

000405
000240

104000

004736
000137
004737
000403
000240
104000
004736

034556

150%:

046004

12
12-69

SEQ 0153

;ERROR
# DEFINED 8Y GET

SUBROUTINE

JMP

160%

JSR
BR
NOP
EMT
JSR

PC,PRIERR

JSR
BR
NOP
EMT
JSR
JMP

PC,STCDRVSTS

160%

;G0 TO 1608 IF ERROR

JSR
.WORD
.WORD
BR
NOP
EMT
JSR
JMP

PC,CMPERRSTS
NDTMSK !UNS
DPE

;CHECK ANY ERRORS NOT MASKED

JSR
BR
NOP

PC,SECERR

JSR

PC.a(SP)+

JMP

EMT

160%:

K
13:04:53 PAGE

130%

PC,a(SP)+

1608

140%

PC,a3(SP)+

150%

PC,a(SP)+

160%

;GO 70 1608 IF ERR

:60 CHECK FOR PRIMARY ERRORS

;60 70 1308 IF NO ERROR
;RETURN HERE

ERROR

;ERROR # DEFINED BY PRIERR SUBROUTINE

;60 BACK FOR MORE ERROR CHECKS

160 TO 1608 IF ERROR

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

sRETURN HERE

ERROR

;ERROR # DEFINED BY STCDRVSTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS

;MASK FOR RMER1
:MASK FOR RMER?

;GO TO 1508 IF NO ERROR
RETURN HERE IF ERROR
;ERROR # DEFINED BY C(MPERRSTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
;G0 TO 160% IF ERROR

;GO CHECK FOR SECONDARY ERRORS
;G0 _TO 160% IF NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

:'"'..".Itttlt"""""l""'tt"tttl.'.'ti'tltltt"tllt"l"i

S*TEST 57

SEEK AT OFFSET

‘;t'l.t'.'t't.'t'tt""'""""".l'tt'.'lt'tl'tltttll'.'tttt'l'

15157:

034556
034556
034560
034562
034566
034572
034576
034604

001100
001276
001464
000001
000057

034612
2 034612
034616

043150

001206
001226
10%:

:SCOPE CALL

SCOPE

NOP
MOV
MOV
MOV
MOV
MOV

JSR
.WORD

#STACK,SP

$BASE ,RO
1sxou5 RY
$TIMES

157 $TESTN
PC,TSTPRP

054130

sSTART OF

TEST

SINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS
:(R1)

= DEVICE BEING TESTED

::D0O 1 ITERATION

¢oSET 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

;VERIFY PACK ACKNOWLEDGE

VALID

;RECALIBRATE IF ''SKI'' OR 'PIP'' 1S SET
034620
034622
034624

000404
000240

104000

NOP

EMT

20%

cVERIFY RECALIBRATION
.60 T0 208 IF NO ERROR
;RETURN HERE F ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE

CIRMMAO RM0S/3/2 FCTINL 1sT

873
875
1876
1877
1878
1879

034654
034660
034664
034670
034674
034700
034704
034706
034710
036712
034716
034722
034726
034726
034734
034742
034750

034756
034756
034760
034762
1880 034766

1881
1882

034766

1883
1884 034772

034776
035000
035002
035004
1885 035010
1886 035010
035014
035016
035020
035022
035024
188°
1888

1889
1890

004737

035110
044070
044766

012737
112737
112737
004737
000404
000240

000005
000000
000200
046426

000137

035110

004737

044766

004737
000404
000240
104000
000137

044154

00737
006405
000240

045152

104000

20%:

[ To ¥

000000
000000
000015
001543
000034
000006
000000
000200
0464624

035110
S
— b P

£H NNNSNSNNN
NN

1867
1868
1869
1870
1871
1872

QUMMM
O WNINN
S NN NN

1864 034632
1865 034640
1866 034646

000137
o Ot et
s OO OO
o [an B
e
X
=
P
PO
o SN

034626

1863 034632

—
el

SEEK AT OFFSET

MACRO v03.01

[elele]
OO0

157

30%:
001410
001543
001544

40%:

035110

004737

05164¢

104000

MOv
MOV
MOv
MOv
MovB
Move
MOvVB
MOVB
JSR
BR
NOP
EMT
JMP
JSR
JSR

#0,RMDCO

;CYLINDER = 0

;WAIT

EMT
JMP

FOR

035110

110%:

120%:

EMT
JMP

JSR
BR
NOP

EMT
JSR
JMP

JSR
BR

NOP
EMT
JSR
JMP

JSR
.WORD
.WORD
BR
NOP
EMT

STRACK = 0,

ERROR

SECTOR = 0

NOFFSET!GO,RMCS10
:LOAD OFFSET COMMAND
#PUTINX .R2
:R2 POINTS TO REGISTER TABLE
#RMDC, (R2)+
*WRITE REGISTER INDEX TABLE

IN BUFFER

#RMDA . (R2)¢

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

PC,PUT

30§

;WRITE

TERMINATOR

160 WRITE

260 70 308 IF NO ERROR
‘RETURN HERE

WITH PUT

ERROR

SUBROUTINE

1408

*ERROR # DEFINED BY PUT
160 T0 1408 IF ERROR

#SEEK!GO,RMCS10
#RMCST,PUTINX

;LOAD SEEK COMMAND
;LOAD REGISTER INDEX TABLE

PC,PUT

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE
;G0 TO 508 IF NO ERROR
sRETURN HERE IF ERROR

PC,GETSTS
PC.TIMOUT

#200,PUTINX+Y

50%

140%

COMMAND TO COMPLETE
PC,TIMOUT

JSR
BR

100%:

#0.RMDAD

JSR

NOP

052270

000010
000405
000240

;60 TO 1408

NOP

00473%7
000405
000240
104000
004736
000137
115760

1408

JSR
BR

50%:

SEQ 0154

JMP

MOV
MOvB
MovB

104000

004736
000137

L 12
12- 70

11-APR=-80 13:04:53 PAG E

PC,GET

100%

140%

SUBROUTINE

“SETUP FOR STATUS FETCH
*WAIT FOR OFFSET TO COMPLETE

;ERROR ¥ DEFINED BY PUT

;60 TO 140% IF ERROR

SUBROUTINE

;GO TO TIMOUT SUBROUTINE
:GO READ REGISTER(S) W]TH GET SUBROUTINE

;G0 TO 1008 IF NO ERROR
;RETURN HERE IF ERROR
.ERROR # DEFINED BY GET SUBROUTINE
;G0 TO 140% IF ERROR

1408

;60 CHECK FOR PRIMARY ERRORS
;GO TO 1108 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
.60 BACK FOR MORE ERROR CHECKS
;G0 TO 140% ]F ERROR

PC,SEKSTS

;60 VERIFY RESULTS OF SEEK OPERATION

PC,PRIERR

110%

PC,a(SP)+

1208

PC,a(SP)
¢

1408

PC,CMPERRSTS
ND TMSK
OPE

130%

;60 TO 120% IF NO ERROR
sRETURN HERE

1fF

ERROR

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

;60 TO 140% If ERROR

+CHECK ANY ERRORS NOT MASKED
;MASK FOR RMER]

;MASK FOR RMER?

;G0 7O 1308 IF NO ERROR
RETURN HERE

ERROR

ERROR # DEFINED BY (MPERRSTS SUBROUTINt

MMAO RMOS/3/2 FCTINL
SEEK AT OFFSET

235066

035070

004736

TST

1891 03507¢
1892 035076

035110

004737

046004

035102
035104
035106

000240
104000
004736

1893 035110
1894

000403

11-APR-80

1308:

JSR

PC,a(SP)e

;60 BACK FOR MORE ERROR (MECKS

JSR

PC,

;60 CHECK FOR SECONDARY ERRORS

JMP
BR

16408

1895

NOP
EMT
JSR

J*TEST 60

035110
035110
035112
035114
035120
0351264
1896 035130

000004
000240
012706
013700
013701
012737

001100
001276
001464
000060

1897 035136

004737

053530

1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908
1909

035154
035156
035160
035166
035174
035202
035210
0352164
035220
035226
035230
035234

1910 035240
1911 035244
1912 035264

035250
035252
035254
035256
}g}z 035262

1915 035266

035272
035274
035276
035300

1916 035304
1917 035304

035310
035312
035314

000404
000240
1046000
000137
012703
012737
012737
012737

012737

15160:

035536
000037
000000
000000
000000

000031

012702
112722
112722
112722
112722
112722
004737

001543
000006
000034
000032
000000
000200
044070

004737

0644424

000404
000240
104000
000137
004737
004737

090404
000240
104000
000137
004737

000405
000240
104000

001226

035526
044766

10%:
001442
001444
001416

001410

20%:

30%:

0464156

035526
0645152

G0 T0 1408 IF ERROR

SECERR

1408

:60 T0 1408 1F NO_ERROR

JRETURN HERE ]F ERROR
JERROR # DEFINED BY SECERR SUBROUTINE
;60 BACK FOR MORE ERROR (HE(KS

PC,a(SP)¢

LOOK AHEAD TEST
R

Yy
N

Y
R

R R
R

R R R R R SR R

AR R R R

)

SCOPE
NOP
MOV
MOV
MOv
MOV

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

;SCOPE CALL
:START OF TEST
JINITIALIZE STACK POINTER
;RO = UNJBUS ADDRESS
;(RY1) = DEVICE BEING TESTED
;sSET TEST NUMBER IN APT MAIL BOX

JSR

PC,CNTCLR

;G0

BR
NOP
EMT
JMP

108

160$

ISSUE

CONTROLLER CLEAR

;60 TO 108 If NO ERROR
JRETURN HERE IF ERRCR
sERROR NUMBER DEFINED BY SUBROUTINE
;60 TO 160% IF ERROR

MOV
MOV
MOV
MOv
MOV
MOV
MOvVB
MOVB
MOVB
MOvB
MOvB

#31.,R3
JR3 = SAMPLE COUNT FOR 18 BIT MODE
#0,RMOFO
JSTART WITH 18 BIT MODE
#0,RMDCO
sCYLINDER = 0
#0,RMDAO
:SEARCH TRACK = 0, SECTOR - 0
#SEARCH!GO,RM(CS10
sRECALIBRATE (OMMAND
#PUTINX,R2
#RMDA, (R2) ¢
#RMDC, (R2)+
#RMOF ,(R2) ¢+
#RM(CST,(R2)+
#200,(R2)¢

JSR

PC.GETSTS

JSR

PC,PUT

B8R
NOP
EMY
JMP
JSR
JSR

40%:

1408

035142
035144
035146
035150

m12
13:04:53 PAGE 12-71

SEQ 0155

000137

035100

MACRO v03.01

30%

;G0 WRITE

WITH PUT

SUBROUTINE

1508
PC,TIMOUT

;60 TO 308 If NO ERROR
sRETURN HERE IF ERROR
sERROR # DEFINED BY PUT SUBROUTINE
;60 TO 1508 IF ERROR
;WAIT FOR COMPLETION

PC,GET

;GO0 READ REGISTER(S) WITH GET

SUBROUTINE

BR
NOP
EMT
JMP

«0%

1509

;G0 TO 40% IF NO ERROR
sRETURN HERE IF ERROR
ERROR # DEFINED BY GET SUBROUTINE
;G0 TO 1508 ]F ERROR

JSR

PC,PRIERR

.60 CHECK FOR PRIMARY ERRORS

BR
NOP
EM1

50%

;G0 TO 50% [F NO ERROR
sRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE

—

()
-]

MMAO RMOS5/3/2 FCINL TST
LOOK AHEAD TEST

035316

035320

1918 035324

1919 035324

1920 035330
1921 035334

1922 035340

1923
1924
1925
1926
1927
1928
1929
1930
1931
1932
1933
1934
1935

035344
035346
035350
035352
035354
035356
035362
035364
035366
035372
035374
035376
035400
035400
}ggg 035402
1938
1939
1940
1941
1942
}gzz
1945
1946
1947
1948
1949
1950
1951
1952
1953
1954
1955
1956
1957
1958
1959
}gg?

004736

000137

035526

012704

103640

012705
016014

016002

020214
001403
005305
001370
000411
062704
005303
001410
026002
001360
005305
001373

000020

908 :

1008:

003500
000036
103640

035432
035636
035442
035444
035450
035452

012702
012703
012405
062705
020205
103001

003700
000040

005005
020514
001406
010537
011437
104353
000414
005303
001360

1962 035502
1963 035510
1964 035512

032737
001006
012737

}32? 035524

000647

1965 035520

1968 035526

035526

1969 035532
1970 035536

010000

001442

010000

001442

010000

001442

012637

000006
000004

12-72

JSR

PC,a(SP)+

;G0 BACK FOR MORE ERROR CHECKS

MOV

#BUFFER, R4

;R4 = STORAGE ADDRESS

JMP
MOV
MOV

150¢

‘RS = GROSS TIMER
:STORE RMLA SAMPLE

(MP
BEQ
DEC
BNE
BR
ADD
DEC
BEQ
CMP
BNE
DEC
BNE

RZ, (R4)
80§
RS
70
100$
¥2,R4
R3
1108
RMLA (RO) ,R2
70
RS
90%

;ARE SAMPLES SAME??
SYES!!
T TIMEOUT??
*NO - TRY AGAIN
*PROGRAM TIMEOUT
JADVANCE STORAGE ADDRESS
JALL SAMPLES TAKEN??
SYES!!
‘WAIT FOR CHANGE
SYES!!
T TIMEOUT??
*NO

EMT
JMP

352
160%

MOV

RMLA(RO) R2

:SET 18 BIT SAMPLE PARAMETERS
1108:
Mov
#3500,R2
MOV
#30.,R3
MOV
#BUFFER, R4

817
BEQ

#FEMT16,RMOFO
1208

1608:

SGET ANOTHER LOOK

:R2 = MAXIMUM SAMPLE
:R3 = NUMBER OF COMPARES
‘R4 = BUFFER ADDRESS

;1S SAMPLE FOR 18 BIT MODE
‘BR IF YES

SYES - CHANGE EXPECTED
;IS NEXT SAMPLE CORRECT??
JYES!!
TEXPECTED VALUE
:RECEIVED VALUE
JALL SAMPLES CHECKELD??
*NO - TEST NEXT SAMPLE

NFMT16,RMOFO
150%
#FMT16,RMOFO

;TEST DONE FOR 16 BIT MODE
:BR IF YES
:SET 16 BIT MODE AND

20%

STEST AGAIN

MOV
MOV

#33..R$

(SP)+,ERRVE(+?2
(SP)+ ,ERRVEL

:R2 = MAXIMUM SAMPLE
*R3 = NUMBER OF COMPARES
;GET A SAMPLE AND INCREMENT
:FOR EXPECTED VALUE OF NEXT
$SHOULD NEXT BE 0 ?
*NO!!

BIT
BNE
MOV

MOV
1508:

160 TO 1508 IF ERROR

#-1,RS
RMLA(RO),(R&)

16 BIT SAMPLE PARAMETERS
MOV
#3700,R2
MOV
#32.,R3
120%:
MOV
(R&4)+,RS
ADD
#100,R5
CMP
R2,RS
BHIS
130$
(LR
RS
130%:
CMP
RS, (R&)
BEQ
140%
MOV
RS, $GDDAT
MOV
(R4) ,$BODAT
EMT
353
BR
150%
1640%:
DEC
R3
BNE
120%

001140
001142

000041

N 12

13:04:53 PAGE

JSET

000100

012703

012637

70$:

80%:

012702
012703
012704

035454
035456
035460
035462
035466
035472
035474
035476
035500

608 :

000002

035406
035412
035416

032737
001404

508:

000020

035536

11-APR-80

SEQ 0156

177777
000020

104352
000137

035422
035430

MACRO v03.01

SSET SAMPLE COUNT.

:;POP STACK INTO ERRVE(#?

;:POP STACK

INTO ERRVEC

RMO5/3/72 FCINL TST
LOOK AHEAD TEST

B 13

MACRO v03.01

11-APR-80 13:04:53 PAGE

. | A2 AR

SeTEST 6
N

VNS
oo
o

RV TV IV IV IV IV IV ]

001100
001276
001464
000061

NNNNNNNNNNN

NINPVNIPND
O NN NILND
PNV
PIND N~~~ ~HN

—
=l e
)
)
el
el
el ol
—d ol

[L,S1,ST,NT,87,N7,81,N1,¥1,87,N7,¥1

—t b e ek et OO OOOO

000404
000240
104000
000137

004737

AV IV IV

S LN o

SO0 SNOTSTOO SO

004737

(S0P

001226

000035
000000
000000
000000
000005

001543

BR
NOP
EMT

80%:

001444
001416
001442
0014610

85%:

000006
000034
000032
000000
000200
044070
044424

036214
044766

004737
000404
000240
104000
000137

044154

004737
000405
000240

045152

036214

100%:

110%:

XX ]

SEARCH ON CYLINDER

:SCOPE CALL

#STACK,SP

$BASE RO

TSTQUE
R
#61,8TESTN
PC,TSTPRP

056130

80%

;START OF

TEST

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

= DEVICE BEING

TESTED

;:SET TEST NUMBER IN APT MAIL BOX
;PREPARE DEVICE FOR TEST
s TASK 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
;VERIFY RECALIBRAT]ON
.60 TO 80% IF NO ERROR

200$

MOv
MOov
MOv
MOv
MOV
MOv
MOvB
MOvB8
MOvB
MOvB
Movs

#0,RMDCO
#0,RMDAD
#0,RMOFO
#SEEK!GO,RMCS1D
#PUTINX ,R2
#RMDA, (R2)+
#RMDC, (R2) ¢
#RMOF
, (R2)+
#RMCST, (R2)¢+

#29.,R3

:R3 = MAXIMUM SECTOR ADDRESS

JMP
JSR

#200,(R2)+

PC,GETSTS
PC,PUT

90%

200%

PC,TIMOUT

sCYLINDER = 0
sTRACK = 0,

SECTOR = 0

:18 BIT FORMAT
;s SEEK COMMAND
;SETUP REGISTER INDEX TABLE
;FOR SEEK TO CYLINDER O

;SETUP FOR STATUS FETCH
;60 WRITE REGISTER(S) WITH PUT SUBROUTINE
;60 TO 90% IF NO ERROR
;RETURN HERE

ERROR

;ERROR # DEFINED BY PUT SUBROUTINE

;G0 TO 2008 IF ERROR

JSR
BR
NOP
EMT
JMP

PC,GET

200%

;G0 READ REGISTER(S) WITH GET SUBROUTINE
;60 TO 1008 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE
;G0 TO 2008 IF ERROR

JSR

PC,PRIERR

;60 CHECK FOR PRIMARY ERRORS

NOP

036214

2222202222222

JMP

NOP
EMT

90%:

;RETURN HERE IF ERROPR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;G0 TO 200% IF ERROR

JSR
JSR

104000

004736
000137

SCOPE
NOP

JSR
.WORD

036214

SEQ 0157

AR AR AR
22
R0
Rt XA )

MOv
MOv
MOv
MOv

043150

[V LV

OO0

NN N N

1994

18161

N
or

N NN

RV IV IV TV TV TV, IV ]

OOO0O0OO0O

00000080’000000

035640
035644
035650
035654

88 035674

— OO0

i S
S
S
Y
P
[P
—
il

035572
035574
035576
035600
035604
035604
035610
035616
035624

80 035632

ol ol
O 000

1974

[V LV,

1973

12-73

EMT
JSR
JMP

1008

1108

PC,a(SP)¢

2008

;60 TO 1108 IF NO ERROR
;RETURN HERE 1f ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;GO BACK FOR MORE ERROR CHECKS

;G0 TO 2008 If ERROR

CIRMMAO RMOS5/3/2 FCINL TST
161
SEARCH ON CYLINDER
1995

004737
000405
000240

MACRO v03.01

052270

JSR
BR
NOP

036214
000031
064424

000240
104000
000137

036214

036020

004737

0464766

2001 036024
036030
036032
036034
036036
2002 036042
2003 036042
036046
036050
036052
036054
036056
2006 036062
2005 036062
036066
036070
036072
036074
036076
2006 036102
2007 036102
036106
036110
036112
036114
036116
036120
036122
036126

004737
000404
000240

0441564

000137

036214

004737
000405
000240

045152

000137

036214

004737

057666

1998 036020

104000

104000
0064736

000405
V00240
104000

004736
000137
004737
115760
000010
000405
000240

001410

1208
:

130%:

:
1408

150%:

004737
000405

EMT
JSR
JMP

MOv
JSR

B8R
NOP
EMT
JMP

160%:

051644

036214

170$:

046004

036214

180%:

001416
001416
010 000
010 000

001442
0016442

1208

PC,a(SP)+

200s
1308

2008

JSR
BR
NOP
EMT
JMP

PC,GET

JSR
BR
NOP
EMT
JSR
JMP

PC.PRIERR

JSR

PC,SCHSTS

EMT
JSR
JMP

:60 VERIFY RESULTS OF

1408

2008
1508

PC,a(SP)+

2008
160%

SEEK OPERATION

260 TO 1208 IF NO ERROR
*RETURN HERE IF ERROR

*ERROR # DEFINED BY SEKSTS SUBROUTINE
160 BACK FOR MORE ERROR CMECKS

260 T0 2008 IF ERROR

#SEARCH!GO,RMCS10
PC,PUT

PC,TIMOUT

NOP

036214

PC,SEKSTS

JSR

104000

004736
000137

12-74

SEQ 0158

104000

004736
000137
012737
004737
000404

c 13

11-APR-80 13:04:53 PAGE

STORE SEARCH COMMAND

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

260 TO 1308 IF NO ERROR

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

260 T0 2008 IF ERROR

;WAIT FOR SEARCH TO COMPLETE

;60 READ REGISTER(S) WITH GET SUBROUTINE

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

;G0 CHECK FOR PRIMARY ERRORS
;60 TO 1508 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUTINE
;G0 BACK FOR MORE ERROR CHECKS

;GO TO 200% IF ERROR

;60 VERIFY SEARCH OPERATION

;G0 TO 160% IF NO ERROR

sRETURN HERE

ERROR

PC,a(SP)
¢

;ERROR # DEFINED BY SCHSTS SUBROUTINE
;60 BACK FOR MORE ERROR CHE(CKS

JSR
.WORD
.WORD
BR
NOP
EMT
JSR
JMP

PC,CMPERRSTS
NDTMSK
DPE

;CHECK ANY ERRORS NOT MASKED
;MASK FOR RMER1
;MASK FOR RMERZ2

PC,a(SP)+

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

JSR
BR
NOP
EMT
JSR
JMP

PC,SECERR

;60 CHECK FOR SECONDARY ERRORS

INC
(MP
BHIS

8117

MOv

2008

170%

200%
180%

PC,a8(SP)¢

;G0 TO 200% If ERROR

;G0 TO 1708 IF NO ERROR

;G0 TO 2008 IF ERROR

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

200%

;60 TO 2008 IF ERROR

R3 _RMDAO

RMDAO

; INCREMENT SECTOR ADDRESS
:Rgvg ALL SECTORS??

FEMT16,RMOFO
FEMT16,RMOFO

;1S 16 BIT FORMAT DONE??
;SET 16 BIT FORMAT

1208

ClR MMAO RMOS5/3/2 FCTINL TST

161

001007
1 270
1 273
0 013

olele]

= O000~

036174
036176
036202
036210
036214

000037
000000
035632

MACRO v03.01

D 13

11-APR-80 13:04:53 PAGE

12-75

SeQ 0159
BNE

MOv
MOv

001416

200%:

[ololeolololols]

S 1,81, N1, ST, V1,87,
¥)

SEARCH ON CYLINDER

JMP

200%

;BR ]F YES
JRY = MAXIMUM SECTOR ADDRESS

#31,,R3
#0 RMDAO

JSTART AT

85§

TRACK = 0,

SECTOR = 0

;60 TEST AGAIN

';'"t"""."'""""'"'"'t"."'t""""'Q"."""."""

SeTEST 62
R

036214
036214
036216
036220
036224
036230
036234

2026
2025 036242
036246

000004
000240
012706
013700
013701
012737

004737
056130

AAAA LSS

iéTbZ:
001100
001276
0014664
000062

001226

043150

SCOPE
NOP
MOV
MOv
MOV
MOov
JSR
.WORD

SEARCH OFF
R

CYLINDER

#STACK,SP

BR
NOP
EMT

036720

004737

044766

2045 036402
036406
036410
036412
036414

004737
000404
000240
104000
000137

0441564

NN NNNNWMINNNN ~

NN
OWWWNO O O
NININVMNVRNVRN
N NN S~

000137

NIV
O NN NN

036262
036262
036270
036276
036302
036306
036312
036320
036324
036330
036334
036340
036344
036350
036354
026360
036364
036366
036370
036372
2042 036376
036376

004737

000000
000000
000035
000632
000633
000005
001444
001543

001416
001442

80%:

$BASE RO

001410

90$:

000032
000034
000006
000000
000200
064070
066424

PC,TISTPRP

;PREPARE DEVICE FOR TEST
;TASK DESCRIPTOR AS FOLLOWS:

#62,8TESTN

054130

#0,RMDAO

NOP

036720

EMT

100%:

80%

MOV
MOV
MOV

MOvB
JSR
JSR
BR

)

;RO = UNIBUS ADDRESS

;(R1)

230%

MOV
MOv
MOV
MOv
Movs
Move
MOvVB
MOvVB

TEST

TSTQUE
R

JMP

MOV

;INITIALIZE STACK POINTER
= DEVICE BEING TESTED

;:SET TEST NUMBER IN APT MAIL BOX

;CLEAR CONTROLILER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
ACKNOWLEDGE

VOLUME

;VERIFY PACK ACKNOWLEDGE

000404

;SCOPE CALL

;START OF

;PACK

036250
036252
036254
036256

#0 RMOFO
#29. R4
#610.,R3
#611. RS

#SE
! GO,RMCS10
EK

RS ,RMDCO

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

#RMCST, (R2)+

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

100%

NOT

VALID

;RECALIBRATE IF ''SKI'' OR "'PIP'" 1S SET
;VERIFY RECALIBRATION
;G0 TO 80% IF NO ERROR
RETURN HERE

ERROR

;ERROR # DEFINED BY TSTPRP SUBROUTINE

.60 TO 230% IF ERROR

;START WITH 18 BIT MODE
;R4

= MAXIMUM SECTOR

;R3 = SEARCH CYLINDER
;RS = SEEK CYLINDER

ADDRESS

sLOAD SEEK COMMAND
sLOAD CYLINDER ADDRESS

:R2 POINTS TO REGISTER TABLE
;SETUP REGISTER INDEX TABLE

;FOR

SEEX

COMMAND

;TERMINATE TABLE
;SETUP FOR STATUS
;GO WRITE REGISTER(S) WITH PUT SUBROUTINE

;60 TO 100% IF NO ERROR
;RETURN HERE

ERROR

;ERROR # DEFINED BY PUT SUBROUTINE

;60 TO 230% IF ERROR

JMP

2308

JSR

PC,TIMOUT

;WAIT

JSR
BR

PC,GET

;60 READ REGISTER(S) WITH GET SUBROUTINE

NOP
EMT
JMP

110¢

230%

FOR

SEEXK

TO COMPLETE

;60 TO 1168 IF NO ERROR

;RETURN HcRE 1F ERROR
;ERROR # DEFINED BY GET SUBROUTINE

.60 TO 2308 If ERROR

CZRMMAQ RMO5/3/2 FCINL TST

162

SEARCH OFF

036420
036420
036424
036426
036430
036432
036434
036440
036440
036444
036646
036450
036452
036454
036460
036460
036464
036472
036476

036500
036502
036504
036510
036510

036514
036520
036522
036524
036526
036532
036532
036536
036540
036542
036544
036546
036552
036552
036556
036560
036562
036564
036566
036572
036572
036576
036600
036602
036604
036606
036610
036612
2064 036616
2065 036616
036622
036624

CYLINDER

004737
000405
000240
104000
004736
000137

045152

004737
000405
000240

052270

104000
004736
000137

120%:

036720

000137

036720

004737

044766

004737
000404
000240
104000
000137

044154

036720
045152

130¢%:

001410

1460%:

150%:

036720

004737
000405
000240
104000
004736
000137

057666

004737
115760
000010
000405
000240
104000
004736
000137

051644

004737
000405
000240

046004

036720

JSR
BR
NOP
EMY
JSR
JMP
MOv
MOv

JSR
BR
NOP
EMT
JMP

1208

160%:

170%:

180%:

SEQ 0160

;60 CHECK FOR PRIMARY ERRORS

;60 TN 1208 IF NO ERROR

sRETURN HERE IF ERROR
;ERROR # DEFINED BY PRIERR SUBROUI INE
;60 BACK _FOR MORE ERROR CHECKS

;60 TO 2308 IF ERROR

;60 VERIFY RESULTS OF SEEK OPERATION
;60 TO 1308 IF NO ERROR
PC,a(SP)+

;RETURN HERE 1F ERROR
;ERROR # DEFINED BY SEKSTS SUBROUTINE
;GO BACK_FOR MORE ERROR (HECKS

R3,RMDCO

:LOAD CYLINDER ADDRESS

2308

;60 TO 2308 IF ERROR

NSEARCrH.GO,RMCS10
:LOAD SEARCH COMMAND
PC,PUT
;60 WRITE REGISTER(S) WITH PUT

230%

SUBROUTINE
;G0 TO 1408 IF NO ERPOR
;RETURN HERE ]F ERROR
;ERROR # DEFINED BY PUT SUBROUTINE
;G0 TO 230% IF ERROR

JSR

PC,TIMOUT

;WAIT

JSR
BR
NOP
EMT
JMP

PC,GET

;60 READ REGISTER(S) WITH GET SUBROUTINE
;60 TO 1508 IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY GET SUBROUTINE

JSR
BR

140%

1509

230%
PC,PRIERR

160%

EMT
JSR
JMP

JSR
BR
NOP
EMT
JSR
JMP

JSR
.WORD
. WORD
BR
NOP

036720

PC,PRIERR

JMP

NOP

104000

004736
000137

JSR
BR
JSR

036720

001444
000031
044424

004737
000405
000240

110%:

NOP
EMT

010337
012737
004737
000404
000240
104000

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

EMT
JSR
JMP

JSR
BR

NOP

FOR

SEARCH TO COMPLETE

;60 T0 2308 IF ERROR

;60 CHECK 7FOR PRIMARY ERRORS
;G0 TO 1608 IF NO ERROR
;RETURN HERE IF ERROR
.ERROR # DEF!NED BY PRIERR SUBROUTINE
;GO BACK _FOR MORE ERROR (HECKS
;G0 TO 230% IF ERROR

;GO VERIFY SEARCH OPERATION
;60 TO 1708 IF NO ERROR

sRETURN HERE

ERROR

PC,a(SP)+

;ERROR # DEFINED BY SCHSTS SUBROUTINE
;G0 BACK_FOR MORE ERROR CHECKS

PC,CMPERRSTS
NDTMSK
DPE

+MASK FOR RMER1
;MASK FOR RMER?

2308

180%

PC,a(SP)¢

2%0s

PC,SECERR

190¢

.60 TO 2308 IF ERROR

;CHECK ANY ERRORS NOT MASKED

:GO TO 180% IF NO ERROR
;RETURN HERE

ERROR

;ERROR # DEFINED BY CMPERRSTS SUBROUTINE
.GO BACK _FOR MORE ERROR CHECKS

;G0 TO 2308 IF ERROR

.60 CHECK FOR SECONDARY ERRORS
;60 T0 190° IF NO ERROR
;RETURN HEhc

ERROR

FCINL TST 1
SEARCH OFF CYLINDER

036654
036662
036664
036672
036676
036702
036706
036714
036720

036720
00

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

190%:

ONO

036626
036630
036632
2066 036636
036636
036640
036642
036646
036652

MACRO v03.01

001416
0014616

O—t—rtet
s 2O

noxX

010000

001442

010000
000037
000632
000633
000000
036312

001442

001416

2083

EMT
JSR
JMP

a4l

2084
2085 036746
036752

000004
000240
012706

013700

013701

012737

004737
056130

15163
001100
001276
001464
000063

001226

043150

;GO BACK _FOR MORE ERROR CHECKS

R3
RS

;DECREMENT SEARCH CYLINDER
s INCREMENT SEEK CYLINDER

2258

;DONE ALL SECTORS??
:NO - DO NEXT SECTOR

BIT

#EMT16,RMOFO

;DONE 16 BIT MODE YET °

MOV
MOV
MOv
MOV
MOV
JMP

#EM116,RMOFC

;SET 16 BIT FORMAT

DEC
INC
INC
(MP
BHIS

TRTEST 63
036720
036720
036722
036724
036730
036734
036740

;ERROR # DEFINED BY SECERR SUBROUTINE

@(SP)¢

;60 TO 230% IF ERROR

RMDAQ
R4 ,RMDAQ

31, R4

02222l

YES

;R4

= MAXIMUM SECTOR ADDRESS

;60 TEST AGAIN

sRlRRRisRsRd

SECTOR -

RRRRSRRRERRRRRR

]

INVALID SECTOR

SRRl

SCOPE
NOP
MOV

RS = SEEK CYLINDER
;START AT TRA(K = 0,

90$

;BR

:R3 = SEARCH CYLINDER

#610. ,R3
11, RS
#0 ,RMDAO

SEARCH
AS

s INCREMENT SECTOR ADDRESS

230%

BNE

225%:
230%:

SEQ 016!

2308

A4S0

RRldR

Rild

RARRRRARRRRARERR]

;SCOPE CALL

FSTACK,SP

MOV
MOV
MOV

$BASE RO
VSTQUE ,R1

JSR
.WORD

PL,TSTPRP

#63,$TESTN

054130

TEST

;START OF

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

TESTED

;oSET TEST NUMBER IN APT MAIL BOX
;PREPARE

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

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

000404

80%

EMT
JMP

190%

;VERIFY RECALIBRATION
;GO TO 80% IF NO ERROR
;RETURN HERE IF ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;G0 TO 190% IF ERROR

#0,RMOFO
#0 RMDCO

;sSET 18 BIT FORMAT
;CYLINDER = 0

NOP

037320
NNNNNNNNNNN
(WL ST SIS N V=iV IV [V [V ]
SNPOPOPNINIPORNS
NN NN

036754
036756
036760

Ottt
et et = OO OOO
Q) =t e il e
e
) d d
S ONONMNLNONINININ
N

Y
-

MMAQ RMOS5/3/2

000000
000000
000036
000031

004737

053530

001543
000034
000032
000006
000000
000200
044070

001442
001444
001416
0014610

80%:

MOV
MOV
MOV
MOV
MOv
MOvB

MovB
MOVB
MOVB
MovB

90%:

JSR

sFIRST INVALID SECTOR = 30.
#30.,RMDAD
#SEARCH!GO,RMCS10
:SEARCH COMMAND
#PUTINX,R2
:WRITE REGISTER TABLE FOR
#RMDC, (R2) +
; COMMAND
#RMOF
, (R2) +

#RMDA (R2)+

#RMCST, (R2) ¢
#200,(R2)¢

TERMINATE

PC,CNTCLR

;G0 ISSUE CONTROLLER CLEAR

PC,GETSTS

TABLE

;SETUP STATUS FETCH

—

—
(% 1,V

—

~no

o
>

o S OO sr~rNO0NY

D
s
b
d
d
D e
e
—

W WNANNNININ)
— —

AN
N NN NN NN
NN NN NN N NN N
SNNNNNSNNNNN S NNNNNNNNN N

[slelololaleleolololoolelololelolelolole]

~NO~

QOO0
(SR
RV ],V

(281,
]

—

ek
i
e
—

oo PO

—

roro

—_—

no~n

—

[aV], V]

nono

—

104000

MACRO v03.01

NOF

037320

004737
000404
000240

066424

104000
000137

037320

004737

044766

004737
000404
000240
104000
000137

044154

004737
000405
000240

037320
045152

95%:

100%:

120%:

004737
000405
000240
104000
004736
000137

037320

057666

037320

004737
000405
000240
104000
004736
000137

061232

004737

051644

004737
000405
000240

130%:

~NO

—

JSR
BR

NOP
EMT
JMP

140%:

046004

160%:

037320

005237

001416

170%:

100%

‘RETURN HERE

NO ERROR

ERROR

:ERROR NUMBER DEFINED BY SUBROUTINE
260 TO 1908
;60 WRITE

ERROR

WITH PUT

:GO 70 1008 IF NO ERROR

SRETURN HERE

ERROR

JSR
BR
NOP
EMT
JMP

PC,GET

;60 READ REGISTER(S)

1908

160 TO 1908 IF

JSR
BR

PC,PRIERR

;60

1208

130¢

PC,a(SP)+

ISR

PC,SCHSTS

NOP
EMT
JSR
JMP

EMT
JSR
JMP
JSR
.WORD

BR
NOP
EMT
JSR
JMP
JSR
BR

160 TO 1208 IF

*RETURN HERE

190%

140¢

PC,a(SP)+

190%

PC,STCDRVSTS

1508

PC,a(SP)+

CHECK

160 TO

FOR

130%

160 BACK

160 TO
;GO0

VERIFY

;60

CHECK

:GD TO

FOR

1508

CHECKS

CHANGES

IN DRIVE

NO ERROR

STATUS

:RETURN HERE IF ERROR
;60 BACK

FOR MORE

ANY

ERROR

ERRORS

NOT

(HECKS

MASKED

;MASK FOR RMER1
:MASK FOR RMER?
:6G0 TO 1608 IF NO ERROR

:RETURN HERE

ERROR

*ERROR # DEFINED BY CMPERRSTS SUBROUTINE
160 BACK

FOR MORE

ERROR

CHECKS

FOR SECONDARY

ERRORS

;60 CHECK

RMDAQ

ERROR

‘ERROR # DEFINED BY STCDRVSTS SUBROUTINE

PC,SECERR

INC

ERROR

SEARCH OPERATION

160 TO 1908 IF

190¢

ERRORS

NO ERROR

160 TO 140% IF NO ERROR
*- 'RETURN HERE [F ERROR
:ERROR # DEFINED BY SCHSTS SUBROUTINE
.60 BACK FOR MORE ERROR (HECKS
260 TO 1908 IF ERROR

190%

PC,a(sP)

PRIMARY

:CHECK

EMT
JSR
JMP

SUBROUTINE

ERROR

FOR MORE

190%

PC,CMPERRSTS

170%

WITH GET

NO ERRCR
ERROR

26O TO 190% IF

PC,a(SP)+

SUBROUTINE

JERROR # DEFINED BY PRIERR SUBROUTINE

190%

JAE 'NDTMSK
DPE
160%

SUBROUTINE

*ERROR # DEFINED BY GET SUBROUTINE

;RETURN HERE

EMT
JSR
JMP

NOP

004736
000137

PC,PUT

;60 TO 95% IF

:WAIT FOR GO TO RESET

-WORD

037320

190%

SEQ 0162

PC.,TIMOUT

JSR

JSR
BR

150%:

95$

12-78

190%

NOP

037320

613

13:04:52 PAGE

:ERROR # DEFINED BY PUT
160 TO 190% IF ERROR

104000

[
Jpe—y

EMTY
JMP

NOP

104000

004736
000137

11-APR-80
BR

000137

000010
000405
000240
104000
006736
000137

—

[a¥ ], N

TST 1
SECTOR

000404
000240

117760

AV W

—

MMAQ RMOS5/372 FCTNL
SEARCH INVALID

160 TO 1708

ERROR

NO ERROR

:RETURN HERE If ERROR
:ERROR # DEFINED BY SECERR SUBROUTINE
160 BACK

FOR MORE

ERROR

160 T0 1908 If ERROR
JINCREMENT

SECTOR

CHE(KS

ADDRESS

— O D000
NP
N

MACRO v03.01

H13
11-APR=-80 13:04:53 PAGE 12-79

001416

CMP
BHIS

#31.,RMDAO
175%

;DONE ?
;BR IF NO

010000

6014462

Bl7

010000
000037
037052

001442
001416

MOV

NEMT16,RMOFO
190%
NEMT16,RMOFO

;TEST FOR 16 BIT MODE
:BR IF YES
;SET 16 BIT MODE

30%

;TEST NEXT SECTOR

BNE

175%:

190%:

MOV
JMP

001100
001276
001464
000064

004737

043150

054130

;SET

INVALID SECTOR = 31,

X222 222222322222220222222222222222
22222022 2R RR AR E sl
lnE RN

2222222222222

iéTbk:

000004
000240
012706
013700
013701
012737

#31.,RMDAO

YET

TRTEST 64

2129
2130 037346
037352

SEQ 0163

000037

OO0~

i
i
D

L1, T, 01,81, VT, V1, U1, ST, S Ppun

e
e
i
e
e
e
—

ORI NONNON

NIV

RMOS/3/2 FCINL 1ST 1
SEARCH INVALID SECTOR

001226

SCOPE
NOP

SEARCH INVALID TRACK
ARl

;SCOPE CALL

MOV
MOv
MOV
MOV

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

;START OF TEST
JINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS
s(R1) = DEVICE BEING TESTED
;;SET TEST NUMBER IN APT MA[L BOX

JSR
.WORD

PC,TSTPRP
054130

;PREPARE DEVICE FOR 1EST
;TASK DESCRIPTOR AS FOLLOWS:

sCLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT
;VERIFY PACK ACKNOWLEDGE

VALID

;RECALIBRATE IFf ''SKI'' OR ''PIP'" IS SET
000404
000240
104000

037730
000031
000000
001332
001417
000000
001543
000006
000034
000032
000000
000200
044070

Ottt
0 s OO = O OO
C) et d et e et e 2 D) b b b

000137
SPOMPLIVNL
NPV RN NNV N
SNNNSNSNSNSNNAONSNYN
NN PLNL NN O NN NN N
NNIPROARONININI
N NNNYN

VBN -2O0O0V00
NN
N —

BN N N N N N N NN
B8

053530

(VI TV LV VLV )

Ll
o

[aV1,
V)

—‘—.-—.—0—.—‘—.—‘—.—0—‘—.—0—0—!

PORLANLALNLAL
AL AL RLRV LN NN

037354
037356
037360

000137

037730

004737
000404
000240

044424

104000

80%

;60 TO 80% IF NO ERROR
;RETURN HERE [F ERROR

JMP

180%

;60 TO 180% IF ERROR

MOv
MOV
MOV
INCB
MOV
MOV
MOvB
MOvB
MOvB
MOvVB
MOvB
JSR

#SEARCH!GO,RMCS10

RMDAO+1
#0,RMOFO
#PUTINX,R?
#RMDA, (R2)+
#RMDC, (R2) ¢
#RMOF
, (R2)+
#RMCS1, (R2) ¢+
#200,(R2)+

sSETUP FIRST INVALID TRA(K
;SET 18 BIT FORMAT
;WRITE REGISTER INDEX TABLE

JSR

PC,CNTCLR

;G0 ISSUE CONTROLLER CLEAR

EMT

001410
001444
001416

80%:

001442

90%:

95%:

;VERIFY RECALIBRATION

BR
NOP

NOP
EMT
JMP

JSR
BR
NOP
EMT

#0,RMDCO

LSTRK ,RMDAO

PC,GETSTS

95¢

180%

PC,PUT

100%

;ERROR # DEFINED BY TSTPRP SUBROUTINE
s SEARCH COMMAND

;CYLINDER = 0

;LAST TRACK, SECTOR - 0

:TERMINATE

TABLE

260 TO 95% IF NO ERROR
*RETURN HERE

ERROR

“ERROR NUMBER DEFINED BY SUBROUTINE
160 T0 180% IF

ERROR

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

-60 10 1008 IF NO ERROR
sRETURN HERE 1f ERROR

;ERROR # DEFINED BY PUT SUBROUTINE

2N VYoJENEVT,V

w [V IV IV IV 1V BV
V)

~ o (o 3

—
w W NONIRY

QOO OO0OO0CO0O0O0O0O

— O 000

37
37
37
37
37
37
3 7536
37540

[V
o

ek
il
o

037506
37
37

—

SV
R o
SN

—
s

[a
V],
V]

—

[aVT
V1, V1,§]

(ZRMMAQ RMOS/3/2 FCINL ST 1
164
SEARCH INVALID TRACK

000137

037730

004737

044766

004737
000404
000240

0446154

000137

037730

004737
000405
000240

045152

106000

MACRO v03.01

100%:

110%:

004737
000405
000240

037730

120%:

057666

—

[aV1,
8]

104000

004736
000137

004737
000405
000240

037730

130%:

061232

104000

004736

2158
2159

000137

037730

004737

051644

117760

140%:

ad =/

004736
000137

s
—

(AN 1,9

104000

004737
000405
000240

037730

150%:

046004

AN
SNSNSNSNNON

- PNOAN

NN
AN N — N

— LN AN

b
—

O—=000C0
OO —=—=OwWw
O WVNIiNN
— N
NI NNON

OMNO

WNWNNNNWD

004736
000137

DOO0O00O

~N~N~wOoOOoO>OoO oo
)= OO 00NN
WY

—

) ol

D el

el el

L], WY, N1, V1, €] VL, U1,
¥1,¥],¢1,N]

104000

037730

160%:

001417
001417

000200

010000

001442

010000
001332
001417
037456

001442

;60 TO 180% IF ERROR

JSR

PC.TIMOUT

;WAIT

JSR
BR
NOP
EMT

PC,GET

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

JMP

180%

JSR
BR

PC,PRIERR

170%:

1108

FOR GO TO RESET

;RETURN HERE

ERROR

;ERROR # DEFINED BY GET SUBROUTINE

.60 TO 1808 IF ERROR

1208

;60 CHECK FOR PRIMARY ERRORS
.60 TO 1208 IF NO ERROR

PC,al(SP)
¢

;ERROR # DEFINED BY PRIERR SUBROUTINE
.00 BACK FOR MORE ERROR (MHECKS

JSR
BR
NOP
EMT
JSR
JMP

PC,SCHSTS

;60 VERIFY SEARCH OPERATION

PC,al(SP)+

.60 BACX FOR MORE ERROR (MECKS

JSR
BR
NOP
EMT
JSR

PC,STCDRVSTS

;60 CHECK FOR CHANGES IN DRIVE STATUS

PC,a(SP)+

;ERROR # DEFINED BY STCDRVSTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS

EMT
JSR
JMP

JMP

180%

1308

180%
1408

;RETURN HERE

ERROR

;GO TO 180% IF ERROR

;60 TO 130% IF NO ERPOR
;RETURN HERE IF ERROR
ERROR # DEFINED BY SCHSTS SUBROUTINE
;G0 T0 180% IF ERROR

;GO TO 140% IF NO ERROR
RETURN HERE

ERROR

180$

;GO TC 180% IF ERROR

PC,CMPERRSTS
NDTMSK
. ] A€
DPE

;CHECK ANY ERRORS NOT MASKED

150%

;MASK

FOR RMER1

;MASK FOR RMER?2
;G0 TO 1508 IF NO ERROR
;RETURN HERE [F ERROR
;ERROR # DEFINED BY CMPERRSTS SUBROUTINE
;60 BACK FOR MORE ERROR C(HE(KS
;GO TO 180% IF ERROR

JSR
JMP

PC,a(SP)+

JSR
BR
NOP
EMT
JSR
JMP

PC, SECERR

180%

;GO TO 180% IF ERROR

INCB
(MPB
BLOS

RMDAQ+1
RMDAO+1,#128.
170%

s INCREMENT TRACK ADDRESS
:ggvg ALL TRACKS ?

BIT
BNE

#FMT16,RMOFO
180%
NEMT16,RMOFO
LSTRK ,RMDAO
RMDAQ+1
90%

:DONE 16 BIT MODE ?
JYES!!
;SET 16 BIT FORMAT
;LAST TRACK, SECTOR = 0
;SETUP FIRST INVALID TRACK ADDRESS
JTEST NEXT TRACK

MOV
MOV

001416

SEQ 0164

1808

JSR
.WORD
.WORD
BR
NOP
EMT

000010
000405
000240

12-80

JMP

NOP

104000

004736
000137

113

11-APR-80 13:04:53 PAGE

INCB

JMP

180%

160%

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

PC,a(SP)+

;ERROR # DEFINED BY SECERR SUBROUTINE
;G0 BACK FOR MORE ERROR (HECKS

;RETURN HERE

I1F

ERROR

CIRMMAO RMOS5/3/2 FCTINL TST

164

INVALID

TRACK

MACRO v03.01

J 13

11-APR-80 13:064:53 PAGE 12-81
SEQ 0165

2173
2174 037730
2175

1808$:

2176

AR R

PTEST 65
A

037730
037730
037732
037734
0377640
0377644
5177 037750

000004
000240
012706
013700
013701
012737

2178 037756
037762

004737
054130

1ST65:
001100
001276
001464
000065

00°226

043150

R R R R R R R

R R R R N RN R R

INVALID CYLINDER

AR RRE

SCOPE
NOP
MOv
MOv
MOv
MOv

FSTACK,SP
$BASE ,RO
TSTQUE ,RY
#65,8TESTN

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

JSR
.WORD

PC,TSTPRP
054130

:PREPARE DEVICE FOR TEST
sTASK DESCRIPTOR AS FOLLOWS:

;CLEAR CONTROLLER & SELECT DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
;PACK ACKNOWLEDGE IF VOLUME NOT VALID
¢VERIFY PACK ACKNOWLEDGE
;RECALIBRATE

037764
037766
037770
037772
2179 037776
2180 027776
2181 040004

2182
2183
2184
2185
2186
2187
2188
2189
2190
2191
2192

040012
040020
040026
040032
0460036
060042
040046
060052
040056
040062
040062

000404
000240
104000
000137

040330

012737
012737

000031
001467

012737
012737
012702
112722
112722
112722
112722
112722
004737

000000
000000
001543
000032
000034
000006
000000
000200
044070
053530

040074

004737
000404
000240
104000
000137

2194 040100

004737

064424

040066
040070

040072

2193 040100

040104
040106
040110
040112
2195 040116
%}gg 040116

000404
000240
104000
000137

040330

004737

0464766

2198 040122

004737

044154

040130
040132

000240
104000

040126

000404

001410
001444

808:

001416
001442

908:

1008:

''SKI'' OR ''PIP'" IS SET

BR
NOP
EMT
JMP

80%

MOV
MOV

#SEARCH'GO,RMCS10
;SEARCH COMMAND
#823..RMDCO
JSTART AT FIRST INVALID CYLINDER

190%

MOV
MOV
MOV
MOVB
MOVB
MOVB
MOVB
MOVB
JSR

#0,RMDAO
#0.RMOFO
#PUTINX,R2
#RMOF, (R2)+
#RMDC.(R2)+
#RMDA.(R2)+
W#RMCST,(R2)+
#200, (R2)+
PC,.GETSTS

JSR
BR
NOP

PC,CNTCLR
95%

JMP

190%

;60 1SSUE CONTROLLER CLEAR
:GO TO 958 IF NO ERROR
*RETURN HERE IF ERROR
:ERROR NUMBER DEFINED BY SUBROUTINE
260 TO 190% IF ERROR

JSR

PC,PUT

;G0 WRITE REGJSTER(S)

EMT

95$:

;VERIFY RECALIBRATION
;60 TO 80% IF NO ERRCR
JRETURN HERE ]F ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
260 TO 1908 IF ERROR

BR
NOP
EMT
JMP

100%

190%

JSR

PC,TIMOULTY

JSR

PC,QET

NOP
EMT

110%

:TRACK = 0, SECTOR = 0
:SET 18 BIT FORMAT
‘WRITE REGISTER INDEX TABLE

JSETUP STATUS FETCH

WITH PUT

SUBROQUTINE

;GO TO 1008 IF NO ERROR
;RETURN HERE IF ERROR
:ERROR # DEFINED BY PUT SUBROUTINE
160 TO 1908 IF ERROR

;G0 READ REGISTER(S) WITH GET

:6G0 10 1108 IF NO ERROR
*RETURN HERE [f ERROR
.ERROR # DEFINED BY GET

SUBROUTINE

RMO5/3/2 FCTINL IST 1
MACRO v03.01
SEARCH INVALID CYLINDER

040134

040140
040140
0640144
0640146
040150
040152
040154
040160
060160
040164
060166
040170
060172
040174
040200

040200

040204
060206
040210
040212
040214
040220

060220

A AASIASIAS VI ST N1 S 1S ST ST NI, S\
ORI
RN RN NN NN N
[ V], ], V= paraireib i gl v piirpir gl giiry oY
N=O VNN
WN 2O

040226
040226
0640230
060232
040234
040236
040240
2207 040244
2208 040244
060250
060252
0402564
060256
060260
060264
040264
040270
040276
040300
040306
040310
040316
040324

000137

060330

004737
000405
000240
104000
004736
000137

065152

004737
000405
000240
104000
004736
000137

057666

004737

061232

1108

190%

;60 T0 1908

JSR

PC,PRIERR

:60 CHECK

1208

004737

PC,SCHSTS

:60 VERIFY SEARCH OPERATION

1308

051644

JSR

PC,al(sP)+

JSR

PC,STCORVSTS

JMP

190$

1408

NOP

117760
000010
000405
000240
104000
004736
000137

040330

004737

046004

ERROR

:ERROR ¥ DEFINED BY SCHSTS SUBROUTINE

160 BACK FOR MORE ERROR CHECKS
160 T0 1908 IF
;GO CHECK

ERROR

FOR CHANGES

260 TO 1408 IF
*RETURN HERE

IN DRIVE

NO ERROR

STATUS

ERROP

PC,a(SP)+
190$

JSR
.WORD
.WORD

PC,CMPERRSTS
T AE ' NDTMSK
DPE

;CHECK ANY ERRORS NOT MASKED
;MASK FOR RMER1
:MASK FOR RMER?

1508

EMT

160 TO 1508 IF

*RETURN HERE

NO ERROR
ERROR

:ERROR # DEFINED BY CMPERRSTS SUBROUTINE

JSR
JMP

PC,a(SP)+
190$

:60 BACK FOR MORE ERROR CHECKS
260 TO 1908 IF ERROR

JSR

PC,SECERR

;60 CHECK

EMT
JSR
JMP

PC,a(SP)¢
1908

*ERROR # DEFINED BY SECERR SUBRCUTINE
160 BACK FOR MORE ERROR CHECKS
260 T0 1908 IF ERROR

160%

NOP

605

*RETURN HERE

*ERROR # DEFINED BY STCDRVSTS SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
260 TO 1908 IF ERROR

NOP

040330

260 TO 1308 IF NO ERROR

EMT
JSR
JMP

508

*RETURN HERE IF ERROR
:ERROR # DEFINED BY PRIERR

JSR

1008

FOR PRIMARY ERRORS

:60 TO 120% IF NO ERROR

SUBROUTINE
160 BACK FOR MORE ERROR CHECKS
260 TO 1908 IF ERROR

EMT

040330

ERROR

PC,a(SP)¢
190%

NOP

130

JSR
JMP

040330

JMP

040330

12-82

SEQ 0166

NOP
EMT

000405
000240
104000
004736
000137

K13

11-APR-80 13:04:53 PAGE

FOR SECONDARY ERRORS

260 TO 1608 IF NO ERROR
*RETURN HERE

ERROR

005237
023727
002612

001444
001444

002000

CMP
BLT

INC

RMDCO

: INCREMENT

0327
001
012
012
000

010000

001442

010000
001467
040062

001442
001444

BIT
BNE
MOV
MOV

NFMT16,RMOFO
190%
FFMT16,RMOFO
#823. ,RMDCO

;SET 16 BIT FORMAT
SYES!!
:SET 16 BIT FORMAT
:START AT FIRST INVALID CYLINDER

040330

1708:

RMDCO, #1024
170$

JMP

90$

CYLINDER ADDRESS

:DONE ALL CYLINDERS ?
INO!!

190%:
A2 a0ttt
22222202202000]

TRTEST 66
A

040330
040330
040332

000004
000240

15166:

SCOPE

NOP

IVC SEARCH TEST

00 Rl
20)

:SCOPE
“START

CALL

TEST

CIZRMMAO RM0S/3/2 FCINL TST
IvC SEARCH TEST

166

040334
040340
040344
040350

001100
001276
001464
000066

040356
040362

043150

MACRO v03.01

601226

L 13

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

$BASE RO
TSTQUE
R
#66,8$TESTN

JSR
.WORD

054130

#STACK,SP

PC,TSTPRP

12-83

SEQ 0167

;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
SVERIFY CONTROLLER CLEAR OPERATION
sPACK ACKNOWLEDGE

VOLUME

sVERIFY PACK ACKNOWLEDGE

NOT

VALID

040530
040534

040540
040542
040544
040546
060552
040552

040556
040562
060564
040566
040570

2245 060574
2246 040574
040600
040602
040604

040710

112737
112737
012737
004737
000404

000024
000200
000001

000137

040710
000000
000000

SNNNNNSNNSNSNSN
NN

060474
040500
040504
040510
040514
040520
040524

000404
000240
104000
000137

(VIS LSS TSN LS L IV [V VIV VY]
NNORONONNOMNOIN
NN NN

040364
040366
040370
040372
040376
040376
040404
040412
040420
0404264
040426
040430
040432
040436
040444
040452
040460
0460466

Ottt
s s 2 O OO OO0OO
[ R
R
e
e
R
Qo U
iy
S NNONONININNNINI
NN N

OOV

AN IASIASIANI
N1, ST, N1 N1 N1 N VT, V1,
N7,V
EIASIANIAN
I, V1, C1 N1 V1,01 V] ,N),C1,N1,¥)
Ll
A
Y IV TV IV IV VIV T
N1, N1, )

NO NS NN —=O VD~

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

004737

064426

000000
000000
000031
001543
000026
000034

001543
001544
001434

001634
001444
001416
001442
001410

80%:

90%:

000006
000032
000000

000200
044070
064424

BR
NOP
EMT
JMP

80%

MOVB
MOVB
MOV

#RMMR1 ,PUTINX

JSR
BR
NOP
EMT
JMP
MOV

MOV
MOV
MOV
MOV
MOV
MOVB
MOVB
MOVB
MOVB
MOVB
MOVB
JSR

JSR
BR
NOP
EMT
JMP

160%

#200,PUTINX+1

#DMD ,RMMR10
PC,PUT

;VERIFY RECALIBRATION

;60 TO 808 IF NO ERROR
¢RETURN HERE 1F ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;G0 TO 160% IF ERROR
sSETUP PUT INDEX TABLE
sSET TERMINATOR BYTE
;SET RMMR1

QUTPUT BUFFER = DMD

:GO0 WRITE RMMR1 VIA PUT SUBROUTINE
90%
;G0 TO 908 IF NO ERROR
sRETURN HERE [F ERROR
+ERROR DEFINED BY PUT SUBROUTINE
160%
;60 TO 160% IF ERROR
#0,RMMR10
sRESET DIAGNOSTIC MODE
#0,RMDCO
sCYLINDER = 0
#0,RMDAO
:TRACK = 0, SECTOR = 0
#0,RMOFO
;18 BIT FORMAT
#SEARCH'!GO,RMCS10
s SEARCH COMMAND
#PUTINX,R2
¢LOAD INDEX TABLE
#RMMR1, (R2) ¢

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

#RMOF
, (R2)+
MRMCST,(R2)+
#200,(R2)+
PC,GETSTS
PC,PUT

100%

;60 WRITE REGISTER(S) WITH PUT SUBROUTINE

;GO TO 1008 IF NO ERROR
sRETURN HERE

ERROR

1608

SERROR # DEFINED BY PUT SUBROUTINE
;GO TO 1608 IF ERROR

JSR

PC,TIMOUT

;WAIT

0446154

JSR

PC,GET

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

000137

040710

NOP
EMI
JMP

110%

160%

;ERROR # DEF INED BY GET SUBROUTINE
;60 TO 160% IF ERROR

004737
000405
000240

045152

000137

040710

004737

044766

004737
000404
000240
104000

104000

100$:

110%:

JSR
BR
NOP
EM1

PC,PRIERR

1208

FOR GO TO RESET

<RETURN HERE

I1f

ERROR

.60 CHECK FOR PRIMARY ERRORS
.60 TO 1208 IF NO ERROR
sRETURN HERE

ERROR

;ERROR # DEFINED BY PRIERR SUBROUTINE

—4

oOre
oD

RMOS/3/2 FCINL TST

~NO~

oAy
N
wwuon

IS LA ANl 1 ST NT N1 N} N
AINIPVNONININD
NP
AR Al YalV IV IV, D ol o o
NI NN = OO~

IvC SEARCH TEST

040606
0640610
0460614
040614
060622
060624
040632
040640
060646
0460650
040650
040654
040656
040660
040662
060664
040666
040670
040674
040674
040700
040702
040704
040706

2258 040710
2259
2260

MACRO v03.01

11-APR-B0

M3
13:04:53 PAGE 12-8¢

SEQ 0168

040710

010000

601376

010000
001376

001140
001142
001142

167777

JSR

PC,a(SP)e

;60 BACK FOR MORE ERROR (MECKS

BIT

FIVC,RMERZ]

;0ID IvC SET??
JYES!!
SEXPECTED STATUS
;RECEIVED STATUS

1608

JMP

1308
#1vC, $GDOAT

BNE

MOv
MOV

RMERZT,$BDDAT

8l(

#*CIVC.SBODAT

JSR
.WORD

PC,CMPERRSTS
ND TMSK

260

EMT

051644

.WORD

NOP

000137

040710

004737
000403
000240

046004

TeTEST 67

ERROR

CMPERRSTS SUBROUTINE

.60 BACK FOR MORE ERROR CHECKS

160%

;GO TO 160% IF ERROR

PC,SECERR

;60 CHECK FOR SECONDARY ERRORS
;GO 10 1608 IF NO ERROR

AR X

ABORT

ERROR

ERROR # DEFINED BY SECERR SUBROUTINE
.60 BACK FOR MORE ERROR (MHECKS

PC,a3(SP)+

;ERROR # DEFINED BY

JRETURN HERE

EMT
JSR

160%:

FOR RMER1

FOR RMERZ2

;G0 TO 1508 IF NO ERROR

160%

NOP

004736

;MASK

Iv(.DPE
150%
PC,a(SP)+

JSR
BR

104000

sCHECK ANY ERRORS NOT MASKED

+MASK

;RETURN MERE

EMT
JSR
JMP

150%:

;60 TO 160% IF ERROR

E R R

TEST

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

040710
040710
040712
040714
040720
040724
040730

2261
2262 040736
040742

1ST67:

000004
001100
001276
001464
000067

001226

063150

SCOPE
NOP
MOV
MOV
MOV
MOV

$BASE RO
TSTQUE ,R1
#67,$TESTN

JSR
.WORD

054130

:SCOPE CALL
#FSTACK,SP

PC,TSTPRP

;START

TEST

JINITIALIZE STACK POINTER
;RO = UNIBUS ADDRESS

;(R1)

= DEVICE

BEING

TESTED

:oSET TEST NUMBER IN APT MAIL BCX

;PREPARE DEVICE FOR
s TASK DESCRIPTOR AS

TEST
FOLLOWS:

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

I1F

VOLUME

sVERIFY PACK ACKNOWLEDGE

NOT

VALID

cRECALIBRATE IF ''SKI'* OR "PIP'* 1S SET

p¥ o B o
(o 0

——
—
e

040000
000031
000000
000000
001543
000034
000006

Pl
P ol o
— P
e N

041254

—

2266 040772
2267 041000
2268 041006
2269 041012
2270 041016

80%

EMT
JMP

160$

NOP

OOOO
OOOO

040744
040746
040750
040752
2263 040756
2264 040756
2265 040764

80%:

MOv
MOv
MOv
MOV
MOv
Move
MOvB

SVERIFY RECALIBRATION

;GO TO 80$ IF NO ERROR
RETURN HERE F ERROR
;ERROR # DEFINED BY TSTPRP SUBROUTINE
;GO TO 1608 IF ERROR

#UNS ,RMER10
JSET UNSAFE ERROR
#SEARCH!GO,RMCS10
;SEARCH COMMAND

#0,RMDCO
#0,RMDAD
#PUTINX,R2
#RMDC, (R2) ¢
#RMDA, (R2)+

JCYLINDER 0O
JSECTOR = 0, TRA(CK = 0

sWRITE REGISTER INDEX TABLE

CZRMMAO RMO5/3/2 FCTNL TST

167

2271
2272
2273
2274
2275

ABORT

SEARCH TEST

041022
061026
061032
041036
061042

112722
112722
112722
004737
004737

0461050

000240

041046

061052
061054
2276 041060
2277 061060
041064

041066

000404

104000
000137

004737
000404

MACRO v03.01

000014
000000
000200
044070
046424

MOVB
MOVB
MOVB
JSR
JSR

NOP

041254

908:

044156

000240

041070
061072
2278 041076
2279 041076
2280 041104
2281 061106
2282 061114
2283 0641122
2284 041130
2285 041132
gggg 041132

032737
001412
012737
013737
042737
104261

020000

001346

000000
001346
157777

001140
001142
001142

004737

(44768

2288 061136
041142

004737
000404

044154

041146
041150
2289 061154
2290 041154
041160
041162
041164

104000
000137

061144

061166

041170
2291 061174
2292 061174
0461200
0461202

041206
041206
041210
2293 041214
2294 041214
041220
041222
061224
041226
0461230

0461232

041234
2295 041240
2296 0412640
061244
061246

104000
000137

041254

1008:

1108:

000240

041254

004737
000405
000240
104000

045152

000137

041254

004737
000405

061232

004736

1208:

1308
:

000240

104000
004736
000137

041254

004737
155760
000010
000405
000240
104000

051644

000137

041254

004737
000403
000240

046004

004736

11-APR-80 13:06:53 PAGE 12-85

140%:

1508:

EMT
JMP

WRMER1,(R2)+
WRMCS1.(RZ2)+
#200, (R2)+
PC,GETSTS
PC . PUT

90§

SEQ 0169

:TERMINATE TABLE
*SETUP FOR STATUS
160 WRITE REGISTER(S) WITH PUT SUBROUTINE

160 T0 908 IF NO ERROR
‘RETURN HERE

IF ERROR

1608

‘ERROR # DEFINED BY PUT SUBROUTINE
;60 TO 1608 IF ERROR

JSR
BR
NOP
EMT
JMP

PC,GET
1008

:G0 READ REGISTER(S) WITH GET SUBROUTINE
260 TO 1008 IF NO ERROR

1608

“ERROR # DEFINED BY GET SUBROUTINE
260 TO 1608 IF ERROR

BIT
BEQ
MOV
MOV
BIC
EMT

#P1P,RMDSI
1108
#0,$GDDAT
RMDS],$BDDAT
N*CP1P,SBODAT
261

;1S PIP SET??
INO!!
CEXPECTED STATUS
:RECEIVED STATUS

JSR

PC,TIMOUT

;WAIT FOR GO TO RESET

JSR
BR
NOP
EMT
JMP

PC,GET
1208

:60 READ REGISTER(S) WITH GET SUBROUTINE
260 TO 1208 IF NO ERROR

JSR
BR
NOP
EMT

PC,PRIERR
1308

1608

*RETURN HERE

ERROR

*ERROR # DEFINED BY GET SUBROUTINE
260 1O 1608 IF ERROR
;60 CHECK FOR PRIMARY ERRORS
260 “TO 1308 IF NO ERROR
*RETURN HERE IF ERROR
*ERROR # DEFINED BY PRIERR SUBROUTINE

JSR

PC,al(SP)+

JSR
BR
NOP
EMT
JSR
JMP

PC,STCDRVSTS
1408

;GO CHECK FOR CHANGES IN DRIVE STATUS
260 TO 1408 IF NO ERROR

PC,a(SP)+
1608

;ERROR M DEFINED BY STCDRVSTS SUBROUTINE
160 BACK FOR MORE ERROR CHECKS
160 10 1608 IF ERROR

JSR
.WORD
.WORD
BR
NOP
EMT

PC,CMPERRSTS
NDTMSK'UNS
DPE
1508

JMP

160

JMP

160%

JSR

PC,al(SP)+

JSR
BR
NOP

PC,SECERR
1608

160 BACK FGR MORE ERROR CHECKS
260 TO 1608 IF ERROR

*RETURN HERE

ERROR

:CHECK ANY ERRORS NOT MASKED
:MASK FOR RMER1
;MASK FOR RMER?
260 TO 150% IF NO ERROR
*RETURN HERE IF ERROR
SERROR # DEFINED BY CMPERRSTS SUBROUTINE

60 BACK FOR MORE ERRCR CHECKS
260 10 1608 IF

ERROR

;60 CHECK FOR SECONDARY ERRORS
260 TO 160% 1f NO ERROR
RETURN HERE |F ERROR

~N2

ABORT

041250
041252
2297 041254
2298
2299

TEST

041302

MACRO v03.01

104000
006736

8 14
11-APR-80 13:04:53 PAGE 12-86

1608

EMT

JSR

004737
0546130

;ERROR # DEFINED BY SECERR SUBROUTINE

;60 BACK FOR MORE ERROR (HECKS

A AR
22202 22222
RARRRRRAR XX

AR AR
RARRRR 2R
XN

18§170:
001100
001276
001466
000070

PC.a8(SP)+

SEQ 0170

TRTEST 70
000004
000240
012706
013700
01370
012737

SCOPE

NOP
MOV

001226

043150

:SCOPE
#STACK,SP

MOv
MOv
MOv

$BASE RO
TSTQUE ,R1
#70,$TESIN

JSR

PC,TSTPRP

.WORD

SEARCH AT OFFSET

054130

CALL

;START OF TEST
s INITIALIZE STACK

POINTER

;RO = UNIBUS ADDRESS
;(R1)

soSET

= DEVICE

BEING

TEST NUMBER

TESTED

IN APT MAIL BOX

;PREPARE DEVICE FOR TEST

;TASK

DESCRIPTOR AS

+PACK

ACKNOWLEDGE

FOLLOWS:

sCLEAR CONTROLLER & SELECY DEVICE
;VERIFY CONTROLLER CLEAR OPERATION
IF

VOLUME

;VERIFY PACK ACKNOWLEDGE
cRECALIBRATE

0461612

[ASTANI ST ST NT ST N1, V1, 8] ~N
NNNNSNSNSNSNN ~
NIRNUNININD
O NN N (¥)
NOMRONNONINI
NN -~ -~

000000
000000
010000
000015
001543
000006
000034
000032
000000
000200
044424

OO O o

e —

000137

—

—ed e et =

[AST ST ST N1, ST NI NI, ST, V1 V1,91,

W) = O 000N
WV
R

000404
000240
104000

004737

808
001444
001416
001442
001410

;VERIFY RECALIBRATION
160 TO 808 IF NO ERROR

JMP

180%

260 TO 1808 IF

MOV
MOV

#0,RMDCO
#0 . RMDAQ

NOP
EMT

MOV
MOVB
MOVB
MOVB
MOVB
MOVB
JSR

NN
=t et s

—= OV~

b i

LS],SLS1,N1,87,§¥1,8
1, ¥
(VAW VLV IV TV LV RV ]

044070
044766

208

000000
000200
000031
066426

001543
001544
001410

EMT

[a¥1,8]
[V 1,8

0461470

004737

044766

:CYLINDER = 0
:TRACK = 0, SECTOR = 0
FORMAT
:OFFSET

COMMAND
SSETUP REGISTER INDEX TABLE
“FOR SEEK 10 CYLINDER 0

;60 WRITE REGISTER(S)

260 TO 908 IF NO ERROR
*RETURN HERE

WITH PUT

ERROR

SERROR # DEFINED BY PUT

JSR
JSR

PC,GETSTS
PC.TIMOUT

MOVB
MOVB
MOV

#RMCS1,PUTINX
;LOAD REGISTER INDEX TABLE
#200,PUTINX+!
#SEARCH' GO,RMCS10
:STORE SEARCH COMMAND

130s

PC,PUT

260 TO 1808 IF ERROR

SUBROUTINE

1808

JSR

508

ERROR

JMP

NOP

041612

90$

VvALID

‘RETURN HERE IF ERROR
*ERROR # DEFINED BY TSTPRP SUBROUTINE

#FMT16,RMOF0
:16 BIT
#OFFSET'GO,RMCS10

#PUTINX ,R2
WRMDA,(R2)+
WRMDC.(RQ)+
WRMOF
. (R2)+
#RMCST,(R2)+
#200, (R2)+
PC,PUT

NOT

''SK1'' OR ''PIP'' IS SET

808

MOV
MOV

041612

NOP

[a¥
1, 8]

—

MMAQ RMOS5/3/2 FCINL TST

SSETUP FOR STATUS FETCH

260 T0 130% IF NO ERROR
*RETURN HERE

ERROR

EMT
JMP

180%

“ERROR # DEFINED BY PUT SUBROUTINE
:60 TO 1808 IF ERROR

JSR

PC,TIMOUT

:WA'T

FOR SEARCH TO COMPLETE

(W LV ALV IV

NN AN NININ) =t = et O
NN S NVOONNO

VU LV LV LV LV LV IV, ]

RMO5/3/2 FCINL TST
SEARCH AT OFFSET

041540

004737
000404
000240

0464154

000137

061612

004737
000405
000240

045152

104000

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

MACRO v03.01

JSR

NOP

1008

004737
000405
000240

IS0

057666

041612

004737

051644

115760

000010
000405
000240
104000
004736
000137

004737
000403
000240

1608

1708

046004

041612

180$%:
IR

260 TO 180% IF ERR

150¢

SUBROUT INE

;G0 CHECK FOR PRIMARY ERRORS

260 TO 1508 IF NO ERROR
SRETURN HERE

ERROR

PC,a(SP)+

1808

JSR

PC,SCHSTS

:60 VERIFY SEARCH OPERATION

1608

160 TO 1608 IF NO ERROR
“RETURN HERE

ERROR

EMT
JSR

PC,a(SP)+

“ERROR ¥ DEFINED BY SCHSTS SUBROUTINE
1GO BACK FOR MORE ERROR CHECKS

JSR
.WORD
.WORD

PC,CMPERRSTS
NDTMSK
DPE

;CHECK ANY ERRORS NO1
:MASK FOR RMER1
*MASK FOR RMER2

NOP
EMT
JSR

PC,a(SP)+

*RETURN HERE IF ERROR
“ERROR # DEFINED BY CMPERRS1S SUBROUTINE
©60 BACK FOR MORE ERROR CHECKS

JSR

PC,SECERR

JMP

NOP

004736

ERROR

“ERROR # DEFINED BY PRIERR SUBROUTINE
160 BACK FOR MORE ERROR CHECKS
260 TO 180% IF ERROR

104000

CERROR # DEFINED ev GET

SUBROUTINE

EMT
JSR
JMP

041612

*RETURN HERE

PC,PRIERR

NOP

004736
000137

WITH GET

260 TO 1408 IF NO ERROR

JSR

104000

SEQ 0171

:6G0 READ REGISTER(S)

1408

180%

NOP

041612

PC,GET

JMP

B8R

104000

004736
000137

EMT

14
12-87

EMT
JSR

180%

1708

180s

260 TO 180% IF

ERROR

MASKED

260 TO 1708 IF NO ERROR

160 TO 180% IF ERROR

;60 CHECK FOR SECONDARY ERRORS

1808

260 TO 180% IF NO ERROR

PC.a(SP)+

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

*RETURN MERE

ERROR

X2 X223 222222Z2X222223222222223232222222222222222222222222R222R20R)

-resx

HEAD ALIGNMENT

SEEK

'HEAD ALIGNMENT FOR AN RM05/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.

* W

2222222222222

15171

2344

2345 0461646
2346 061646
0641652

043150

SCOPE

——

rON

:SCOPE CALL
#STACK,SP

SSTART OF TEST
“INITIALIZE STACK POINTER

MOV

TSTQUE ,RY

“(R1)

$BASE , RO

MOV

#1,8TIMES

JSR
JWORD

PC,TSTPRP
054130

MOV
10%:

RRRRRRRRRRRRRRRRRl

NOP
MOV

MOV
o0

001100
001276
001464
000001
000071

2222222222

#71,8TESTIN

‘R0 = UNIBUS ADDRESS
2:00 1

= DEVICE BEING TESTED

ITERATION

SSSET TEST NUMBER IN APT MAIL BOX
:PREPARE DEVICE FOR TEST
STASK DESCRIPTOR AS FOLLOWS:

CZRMMAQ RM05/3/2 FCINL TST

171

HEAD ALiGNMENT

SEEK

MACRO v03.01

D 14
11-APR-80 13:04:53 PAGE 12-88
SEQ 0172

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

VOLUME

SVERIFY PACK ACKNOWLEDGE

061656
041656

2347
2368
23649
2350
2351
2352
2353
2356

0641660
0641662

061666
041666
041676
041702
0641710
061714
061720
041724

2355 061730
2356 041734
0617640
0641742
061744
041746

000404
000240

1046000
000137

042100

012737
012737
012737
012702
112722
112722
112722

000365
000000
000005
001543
000034
000006
000000

%ggg 041756

112722
004737
000404
000240
104000
000137
004737
004737

2360 041762

004737

041770
041772
041774
042000
042000
042004
042006
042010
042012
042014
042020
042020
0462024
0462026
042030
042032

000240
104000
000137

2357 041752

061766

2361
2362

2363
2364

042036

2365 062040
2366 042040
062044
0462046
042050
042052
062056
042056

042060

2367 042064
2568 062064

000404

001444
00°416
001410

808:

000200
044424

042100
0644070

044766

90%:

064154

062100

004737
000405
000240
104000
004736
000137

045152

004737
000405
000240
104000
004736

052270

042100

000137

042100

004737
112760
000010
000495
000240
10460CO
004736

051644

000137

0-2100

004737

046004

BR
NOP
(.M
JMP

MOV
MOV
MOV
MOV
MOVB
MOVB
MOvVB

MOVB
JSR
B8R
NOP
EMT
JMP

110$:

1208:

130%:

1408

#245. ,RMDCO
#0,RMDAO
#SEEK'GO,RMCS10
#PUTINX,R2
#RMDC, (R2)+
WRMDA.(R2)+
#RMCST,(R2)+
#200, (R2)+
PC,PUT
90%

JSR

1408
PC,GETSTS

JSR

PC,GET

JSR

1008:

80%

NOP
EMT
JMP

PC,TIMOUT

100$

1408

JSR
BR
NOP
EMT
JSR
JMP

PC,PRIERR
110%

JSR
BR
NOP
EMT
JSR

PC,SEKSTS
1208

PC,a(SP)¢
140%

PC,a(SP)+

1408

NOT

VALID

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

;60 TO 80% IF NO ERROR
SRETURN MERE ]F ERROR
JERROR # DEFINED BY TSTPRP SUBROUTINE
260 TO 1408 IF ERROR

:CYLINDER = 245.
STRACK = 0, SECTOR = 0
:LOAD SEEK COMMAND IN BUFFER
:R2 POINTS TO REGISTER TABLE
“WRITE REGISTER INDEX TABLE
:WRITE TERMINATOR
;G0 WRITE REGISTER(S) WITH PUT SUBROUTINE
:60 TO 90% If NO ERROR
‘RETURN MERE IF ERROR
JERROR # DEFINED BY PUT SUBROUTINE
160 TO 1408 IF ERROR
;SETUP FOR STATUS FET(CH
;WAIT FOR SEEK TO COMPLETE

;60 READ REGISTER(S) WITH GET SUBROUTINE

:6O TO 1008 IF NO ERROR

:RETURN HERE IF ERROR
JERROR # DEFINED BY GET SUBROUTINE
260 TO 1408 .: cRROR
;60 CHECK FOR PRIMARY ERRORS
;60 TO 110% IF NO ERROR
SRETURN HERE IF ERROR
JERROR # DEFINED BY PRIERR SUBROUTINE
;60 BACK FOR MORE ERROR CHECKS
26O T0 1408 IF ERROR
;G0 VERIFY RESULTS OF SEEK OPERATION
260 TO 1208 IF NO ERROR
*RETURN HERE IF ERROR
ERROR # DEFINED BY SEXKSTS SUBROUTINE
;G0 BACK FOR MORE ERROR (CHECKS

160 TO 1408 IF ERROR

JSR
.WORD
.WORD
BR
NOP
EMT
JSR

PC,CMPERRSTS
ND TMSK
DPE
130%
PC,a(SP)+

JCHECK ANY ERRORS NOT MASKED
;MASK FOR RMER!
*MASK FOR RMER?
260 TO 1308 IF NO ERROR
*RETURN HERE IF ERROR
JERROR # DEFINED BY CMPERRSTS SUBROUTINE
160 BACK FOR MORE ERROR CMECKS

JSR

PC,SECERR

;60 (HECK FOR SECONDARY ERRORS

JMP

1408

:60 TO 1408 IF ERROR

£090

[AS1, VT, ¥}
NN

CZRMMAQ RM05/372 FCINL 1ST
T
HEAD ALIGNMENT SEEK

062070
0462072
0642074
062076
042100

MACRO v03.01

12-89

Sea 0173

000403
000240

NOF

104000

004736

E 14

11-APR-80 13:04:53 PAGE

140%:

EMT
JSR

1409

;G0 TO 1408 IF NO ERROR

;RETURN HERE

PC,a(SP)+

ERROR

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

CIRMMAD RMOS5/3/2 FCINL TST

END OF

SUB-PASS ROUTINE

MACRO v03.01

;

.SBTTL

THIS IS THE END OF

END OF

;TERMINATE

THE

2TO TEST,

EXIT

SEQ 0174

SUB=-PASS ROUTINE
SUB-PASS ROUTINE.

OPERATION OF

THE

IS MADE

'S$EOP'

;1S MADE TO 'READY' ROUTINE.
042100
042102
0621064
062110
042116
042120
042122
0621246
042130

000004
000240
013700
062700
010037
005710
001402
000137
012737

$EOSP:

1$:

SCOPE
NOP
MOV
ADD
MOV
18T
BEQ
JMP
MOV

.SBTTL

END OF

001464
000002
001464
007756
001466

001464

THIS ROUTINE

CURRENT

SSELECT THE NEXT DEVICE FOR TEST.

9
10
11
12
13
14
15
16
17

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

DEVICE

IS USED 10

UNDER

TEST

AND

THERE ARE NO MORE DEVICES

ROUTINE.

OTHERWISE,

RETURN

TSTQUE ,RO
"2 ,R0
RO,TSTQUE
(RO)

;GET POINTER TO TSTQUE
JADJUST POINTER TO NEXT DEVICE
:SAVE POINTER T0O TSTQUE
;ANY MORE DEVICES FOR TEST »
1%
;BR IF NO
READY
JYES, JUMP TO READY
#TSTQUE+2,TSTQUE
JINITIALIZE POINTER TO FIRST

JTEST QUE

TABLE

DEVICE

PASS ROUTINE

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

;*INCREMENT THE PASS NUMBER

($PASS)

J*WHERE

DECIMAL

;*TYPE
;*]IF
J*1F

042136
0642136
0642140
042164
042150
062154
0642162
042164
042166
0642170
042172
062174
0462176
042202

005037
005037
005237
042737
005327
000001
003063
01273%7
000001
042164
104401
000407

001116
001206
001230
100000

042222
062222

013746

001230

042226
0462230
042234

104405
104401
00041

062236

042300
042300

013746

001126

042304
042306
042312
042316

104405
104401
005037
013700

000240

XXXXX

AND

YYYYY

TOTAL NUMBER OF

ARE

THERES A MONITOR GO TO I7
THERE ISN'T JUMP T0O READY

$EOP:

001230
$EQPCT:
$ENDCT:

042204

001217
001126
000042

''END PASS #XXXXX

5:65%:
64%:

;.67%:
66%:

NOP

CLR
CLR
INC
BIC
DEC
.WORD
B8GT
MOV
,WORD
$EQP(T
TYPE
BR
JASCIZ

$TSTNM
$TIMES
$PASS
#100000,8%PASS
(PC)+
1
$DOAGN
(PC)+,a(PC)+
1

MOV

$PASS,~-(SP)

ERRORS

NUMBERS

SINCE

LAST

REFORT

vvvyy'

;s LERD THE TEST NUMBER
;. lERO THE NUMBER OF ]TERAT]ONS
J INCREMENT THE PASS NUMBER
J;DON'T ALLOW A NEG. NUMBER
;:L00P?

JIYES
;JRESTORE COUNTER

,65%
;. TYPE ASCIZ STRING
64%
;:GET OVER THE ASCI2
<12><15>/END PASS #/
;:SAVE SPASS FOR TYPEQUT
;s TYPE

PASS NUMBER

TYPDS
TYPE
BR
_ASCIZ

;.60 TYPE~=-DECIMAL ASCI] WITH SIGN
L67%
;. TYPE ASCIZ STRING
66%
;;GET OVER THE ASCIZ
/
TOTAL ERRORS SINCE LAST REPORT /

MOV

SERTTL,=-(SP)

TYPDS
TYPE
CLR
$GET4L2: MOV

LSCRLF
$ERTTL
afs? ,R0

;sSAVE SERTTL FOR TYPEOUT

;;TOTAL NUMBER OF ERRORS
;.60 TYPE--DECIMAL ASCII] WITH SIGN
;sTYPE CARRIAGE RETURN, LINE FEED
;;CLEAR ERROR TOTAL
;;GET MONITOR ADDRESS

(IRMMAQ RMOS5/3/2 FCINL
END OF PASS ROUTINE

062322
062324
062326
062330
062332
042334
062336
0642336
042340
042342
21

TST

MACRO v03.01

SEQ 0175

001405
000005
004710
000240
000240
000240
000137
007756
377

6 14
13-1

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

$ENDAD:

$DOAGN:

377

000

$RTNAD:
S$ENULL:

BEQ

$DOAGN

JSR
NOP
NOP
NOP

PC, (RO)

JMP
.WORD

A(P()e

s ;RETURN

-1,-1,0

JsNULL

RESET

BYTE
LEVEN

J;BRANCH JF NO MONITOR
J:;CLEAR THE WORLD

;260 TO MONITOR
:;SA;E ROOM
JJACT

READY

(HARACTER

STRING

CIRMMAQ RM0OS5/3/2 FCTINL TST 1

MACRO v03.01

—

SUBROUTINES

.SBTTL

SUBROUTINES

LSBTTL

ERROR TYPEOUT ROUTINE

SEQ 0176

;""t""."t"t"""""'""""'..""."'""".I""'Q"'.'

;*THE ERROR TYPEQUT ROUTINE ASSEMBLES AND PRINTS INFORMATION
:*REGARDING THE DETECTION OF AN ERROR AS FOLLOWS:

NN —= OO0 NO

.UNIT NUMBER, TEST NUMBER, ERROR NUMBER AND PROGRAM COUNTER ARE

'PRINTED ON THE FIRST

LINE;

o
.ERROR MESSAGE 1S ASSEMBLED, FORMATTED AND PRINTED CN
'ONE OR MORE SUCCEEDING LINES;
PAIRED LINES OF ERROR HEADERS AND ERROR DATA
'ARE

032777

001402
000137
104401
104401

013746

042426
042430
0642631
042432
042436
042444
042446
042452

106403
003
000
005037
113737
001406
104401
013746

0462456
042460
042461
042462
042466

104403

062472
0462474
042475

020000

136576

0643076

001217
043112
001234

1%:

MOV

TSTNMB,-(SP)

;;SAVE TSTNMB FOR TYPEOUT

043130
043104

3
0

BEQ

MOV

—

TYPOS

$TESTN, TSTNMB
LERTYON

.BYTE
.BYTE

TYPE

104403

005737

3
0
TSTNMB

CLR
MOVB

043104

;TYPE ''UNTH''

.BYTE
.BYTE
(LR

1YPOS

043104
001130

SCRLF
,ERTYOO
$UNIT,=(SP)

::SAVE SUNIT FOR TYPECQUT
;:;TYPE UNIT NUMBER
;.60 TYPE=--OCTAL ASCII
:;TYPE 3 DIGIT(S)
;: SUPPRESS LEADING ZEROS
;LOAD TEST NUMBER FOR

MOV
TYPE

043102

104401

006
001

TYPE
TYPE
MOV

TYPOS

005037
013737

003
000
104401
013746

SAVREG

#5W13,aSWR
BIT
SINHIBIT TYPEOUTS??
1%
B8fQ
JNOY!
JYES.!
21%
JMP
:TYPE UNIT NUMBER, TEST NUMBER, ERROR NUMBER, AND PROGRAM (OUNTER

104403
003
000

042400
042402
042403
042404
042410
042416
042422

PRINTED AFTER THE ERRGR MESSAGE.

ERRTYP:

—

062364
042370
062374

1044614

(v
LV]

042346
042346
062350
042356
042360

o0
O

= OOV

NT VNS

POPUIRINY
bt b et —cd b b s ed s —

~NOwnN
e

[gV1o V1,071, §)

H 16

11-APR-80 13.04:53 PAG

ERRNMB
$1TEMB,ERRNMB
LERTYO?

ERRNMB,-(SP)

:TYPE “'1STA

::TYPE

TEST

NUMBER

;.60 TYPE--OCTAL ASCII]

;:TYPE 3 DIGIT(S)
::SUPPRESS LEADING Z2EROS
:LOAD ERROR NUMBER FOR
;s TYPEQUT

;SKIP 1F NO ERROR CALLED
:TYPE "'ERRN"

::SAVE ERRNMB FOR TYPEOUT
::TYPE

ERROR NUMBER

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

.BYTE
.BYTE

3
0

;s SUPPRESS LEADING ZERO.

MOV

$ERRPC,-(SP)

::SAVE SERRPC FOR TYPEOUT

;:60 TYPE--OCTAL ASC!lI
..TYPE 6 DIGIT(S)

TYPE

T1YPOS

BYTE

.BYTE

LERTYO3

::TYPE PROGRAM COUNTER

;TYPE LEADING ZEROS

GENERATES$OINTER 10 ERROR TABLE UNLESS ERROR NUMBER 1S 0

BEQ

TYPE

(LRB
(LRB

MOV

ERRNMB

:3§|AN ERROR CALLED?

LOCRLF

SYES-TYPE CRLF
;CLEAR BOT FLAG

219

BOTFLG
CHRCNT

ERRNMB,RQ

;CLEAR CHARACTER COUNTER
;RO POINTS TO FIRST OFf

CIRMMAQ RM0O5/3/2 FCTINL TST
ERROR TYPEOUT ROUTINE

&2 042524
43 042526

062530
062532
062536

006300
006300
006300
062700
011001

062540

001507

062562
0625644
062546
062552
042556
042560
062562
042566
042570
062574
0642576
0642602
042604
042610
042612
042616
042624
062626
042630
062634
0642640
042642
062646
042654
042656

042760
042760
042764

MACRO v03.01 11-APR-80 13:04:53 PAG% 16
14- 1

001562

;TYPE

4%:

5%:

000015

043111
000012

6%:

000011

043111
000007

06311

0643111
000040

043106

000100

7%:

8%:

043111

:
9%

043106

062662
042664

177777

ASL
ASL
ASL
ADD
MOV

RO
RO
RO
#SERRTB-8.,R0
(RO) ,R1

BEQ

13¢

BEQ

129

TH E ERROR MESSAGE
MOV
(R1)+,R?2

MOV
CLR

MOvB

R2,11%
BOTADR
(R2)+,R3

CLRB

CHRONT

BEQ
LMPB
BNE

Bl18
BNE
BR

#7,CHRCNT
7%
9%

(MPB
BNE

¥
9%

INCB

MOV
CMPB

BHIS

90%:

1%:

000002

LR3

R2,BOTADR
#64. ,CHRONT

TYPE
CLRB

LOCRLF
CHRONT

;FOUR ENTRIES IN ERROR
s TABLE
;R1 POINTS
:TABLE

TO ERROR MESSAGE

JBRANCH IF NO ERROR MESSAGE

sR2 = ADDRESS OF MESSAGE STRING
;BRANCH IF END OF MESSAGE
;LOAD ADDRESS OF STRING
;CLEAR BOT ADDRESS
JEND OF STRING??
JYES!!
sCARRIAGE RETURN??

90%

JYES=CLEAR CHAR COUNT
JGET NEXT CHARACTER
;LINE FEED??
JYES-GET NEXT CHARACTER
JHNR]ZONTAL TAB??
!
JNO!
JADJUST CHARACTER COUNT

JINCREMENT CHARACTER COUNT
;SPACE??
;NO!!
;SAVE ADDRESS OF SPACE
JEND OF LINE??
JNO!!
JGET ADDRESS OF LAST SPACE
JBRANCH If
sTYPE CRLF

SPACE

DETECTED

JCLEAR CHARACTER COUNT

11$,R2

JSET UP R2 FOR TESTING

CLRB
MOVB
TYPE
.WORD
1518

BOTFLG

sSTRING ADDRESS GOES HERE
:USS|STRING TRUNCATED??

TYPE

JOCRLF

-(R4)
#-1,B0TFLG

JYES-TYPE

BOTFLG
CHRONT
BOTADR,R?
R2,11%
¥ ,-(R2)

(R2)¢

ERROR HEADER

MOV
BEQ

AND

;REPLACE SPACE
:SET BOT FLAG
: TYPE ERROR MESSAGE

«NO!!

CLRB
(LRB
[0}
MOV
MOVB

15718

i;;PE

CHRONT

BOTADR,R&

BEQ

12%:

CHRCNT

MOV

SEa 0177

JNO!!

5%
#LF,RY
5%
#HT R}
8%

MOV

043110

10%
#CR,RY
6%

BR
(MPB
BEQ
(MPB
BNE

BNE

001217
04311
042714

OO~
=
OOO

062670
062674
042700
042702
042704
042712
062714
062716
042722
042724
042730
042734
042740
042744
062750
062754
042756
062760

STRING

CRLF

;CLEAR BOT FLAG
;CLEAR CHARACTER COUNT

;SETUP R2 FOR TESTING
;SETUP 11% FOR TYPING
;RESTORE SPACE

;RESTORE R?

sTYPE

REST

STRING

ERRQOR DATA

2(R0O)
M
218

;R1

POINTS

TO ERROR HEADER

;BRANCH IF NO HEADER

TABLE

CIRMMAO RM05/3/2 FCTINL TST

ERROR TYPEOUT ROUTINE

99 062766

100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120

104401

062772
042776
043002
043006

016002
016003
012137
001433

043010
043012
043014
043020
043022
043024
0643026
043030
043032
043034
043036
043040
043042
043044
043046
043050

104601
000000
104401
005702
001767
012204
012305
105725
100407
001403
013446
104405
000405
013446
104402
000402

123 043056
124 043060
125 063062

005714
001403
104401

121 043052
122 043054

043066
043070
043074
043076

}g? 043100

000207

132
133
134
135

043102
043104
043106
043110

000000
000000
000000
000

138 043112
139 043120

125
054
056
054
040

140 043130
141 043137
142 043145
}43
44

MACRO v03.01

000760
104401
000742
104415

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

001217

TYPE

000004
000006
043012

148

15%:

001217

16%:

17%:

013446
104406

126
127
128
129

}g? 043111

18%:

19%:
063165

105
120
000

;HEADER ADDRESS GOES HERE

.ASCIZ
ASCIZ

aQUNIT#a
@, TEST#3

.ASCIl
,ASCIZ
.ASCIZ

sNO!!
;R4 POINTS TO DATA ADDRESS
sR5 POINTS TO FORMAT
;WHAT KIND OF DATA??
;BINARY
;OCTAL
JDECIMAL

19%

ERTYQ0:
ERTYQ1:
ERTYQ2:
ERTY03:
ERTYO4:
.EVEN

;DATA WITH HEADER??

(R&)+,-(SP)

0
0
0
0

.BYTE

;R2 POINTS TO DATA ADDRESS TABLE
;R3 POINTS TO FORMAT TABLE
;PUT HEADER ADDRESS FOR TYPE
;BRANCH IF END OF HEADERS
; (ASSUME END OF DATA)

19%
d(RL)+,=(SP)

.WORD
.WORD
.WORD
.BYTE

CHRCNT:

111
126

0
,$CRLF
R2
14%
(R2)+,R4
(R3)+,R5
(RS)+
18%
17%
a(R4)+,-(SP)

TSTNMB:
ERRNMB:
BOTADR:
BOTFLG:

21%:

116
040
040
040
040

MOv
TYPBN

s (ASSUME NO DATA)

20%:

000

TYPE
.WORD
TYPE
187
BEQ
MOV
MOv
1518
BM]
BEQ
MOV
TYPDS
BR
MOV
TYPOC
BR

CSCRLF

4(RO) ,R2
6(R0O),R3
(R1)+,15%
21%

18T
BEQ
TYPE
BR
TYPE
BR
RESREG
RTS

001217

MOv
MOV
MOv
BEQ

16
14-2

(R&)
20%
LERTYO4
16%
SCRLF
14%

sAND CONTINUE
;TYPE ONE BLANK LINE
;BEFURE NEXT HEADER

;TEST NUMBER
;ERROR NUMBER
;BEGINNING OF TEXT ADDRESS
;BOT FLAG

@,
a,
3

;MORE DATA??
;NO!!
;YES-TYPE 2 SPACES

: CHARACTER COUNT

ERR#3
P(C=a
23

SEQ 0178

CIRMMAQ RM0S5/3/2 FCINL TST
—

11-APR-80

LSBTTL

PREPARATION MODULE

MACRO v03.01

K
13:04:53 PAGE

14
15

SEQ 0179

TEST PREPARATION MODULE

THIS MODUL E PREPARES THE SUBSYSTEM FOR THE EXECUTION OF A
REPORTING AN ERROR TO THE USER IF AN ERROR IS DETECTED.

TEST,

= OO0 ~NO

THE USER
.
BG?TaEgo
BE
PERFORMED,
WHICH
THE
MODULE
EXECUTES
: SPECIFIES
. USING SUBR

:CALL:

:
.
:
.
:

NN UNANTUNIPNOND
NI PO RO NIRNDNY cmb b s b el et
e b d b

JSR
.WOR D
BR
NOP
ERRO R

;TASK/VERIFY

BIT

PC,TSTPRP
NNNNNN
77

= OV
NN

TASK/VERIFY DESCRIPTOR
RETURN HERE IF NO ERROR
RETURN HERE ]F ERROR
ERROR DEFINED BY MODULE

DESCRIPTOR
15 =1
SELECT DEVICE AND VERIFY DEVICE
16 =

CLEAR CONTROLLER AND

SELECT

IS AVAILABLE

DEVICE

13
12 =1

(RESERVED FOR DRIVE CLEAR)
PACK ACKNOWLEDGE 1F vOIUME NOT VALID

}6 =1

RECALIBRATE

POSITIONING

IN PROGRESS

043150

et
st Pt

———

St
G

—_———

St St

—f
e

—

0o 0o

[oeXooloo]

WA = OO0 NN

TEST

’

6
5

VERIFY CONTROLLER CLEAR OPERATION

VERIFY PACK ACKNOWLEDGE

(RESERVED FOR DRIVE

(LEAR)

VERIFY RECALIBRATION

2
1

TSTPRP:

043150
043156
043162
043166

000000
000006

043172
043176
043202
043204
043206
043210
063214
043222

044070
044154

063226

044064

;STORE TASK DESCRIPTOR AND CLEAR USER'S ERROR CALL

000000
000004

000137

000004
043206
044054

000000

013737

001376

044066

10%:

15%:
e

[

MOv
ADD
CLRB
SuB

a3(SP),500%

:STORE DESCRIPTOR

a(SP)
¥4, (SP)

;CLEAR ERROR CALL
;MOVE SP TO NO ERROR RETURN

JSR
JSR
BR
BR
.WOR D
ADD
MOVB
JMP

PC,GETSTS
PC,GET
15%
10

;SETUP TO READ ALL REGISTERS
:GET RMERZ2
sBR IF NO ERROR DETECTED
;GET OVER ERROR NUMBER

¥4, (SP)

:XFER ERROR

MOV

RMERZ21,505%

A EEEE
N4 I F

¥6,(SP)

lgB;Z.B(SP)

SRS

EERARRERRRS

+MOVE

TO USERS

ERROR

CALL

sERROR DEFINED BY GET SUBROUTINE
TO USER AND

;GET ERROR NUMBER.

;GET RMERZ2 AND SAVE FOR LATER
AR RRRRRRRlRRRRRRRRRRRRARRRENN)

CZRMMAO RM0S5/3/2 FCINL TST 1

TEST

PREPARATION MODULE

005737

044064

62 043262

004737

052056

64
65
66
67
23

000401
000000
062716
113776
000137

63 063266
043250
043252
0432564
043260
043266

100014

000611

000004
043252
0440564

;SELECT o:vxce AND VERIFY DEVICE AVAILABLE IF BIT
187
5008
;SELECT DEVICE??

000000

032737

040000

76 063302
77 063306

004737
000411

053530

79 043312

000000

;g 043300

78 043310

80 043314
81 043320
gg 043326

001451

044064

000401

20$:

062716
113776
000137

000004
043312
044054

808:

JSR

PC,DEVSEL

;60 SELECT DEVICE

BR
WORD
ADD
MOVB
JMP

20%
0
26, (SP)
20$-2,a(SP)
400%

30$

IN TASK

*NO ERROR - CONTINUE
;ERROR NUMBER FROM DE /SEL
*TRANSFER ERROR TO USER

000000

508 :

BIT

IS SET

IN TASK

BIT

#B1T14,500%

:CLEAR CONTROLLER??

JSR
BR

PC,CNTCLR
60$

;60 CLEAR CONTROLLER
SCONTINUE - NO ERROR

.WORD

;ERROR NUMBER FROM (NT(CLR

BEQ

40%:

8‘.

B8R

ADD
MOVB
JMP

1208

N6, (SP)
40%,a(SP)
400$

INO. !

:TRANSFER ERROR T0 USER

. ll"t'l.'t.t"t'tt""""t't'tt.ttttttl!it'ttttt'ttt'ttit!t'tt

SVERIFY CONTROLLER CLEAR

86 043332
87 043332

032737

000100

90 063342

004737

064754

gg 043340

043346
043350
043352
0433546
043360
063366

98 043372
99 063376
100 043400

043402
043604
043406
0436412
043420

001431

000411
000401
000000
062716
113776
000137

004737
000412
000401

000000
005726
062716
113776
000137

000004
043352
064054

044064

000000

053646

000004
043402
0440564

110 063424

#B176,5008

JSR

PC,GET

BEQ

708 :
80%:

1008:
1108:
000000

032737

010000

114 043434

004737

044154

001501

BIT

BIT6 SET

IN TASK

:VERIFY??

1208

*NO. !

;60 GET

STATUS

BR
BR
.WORD
ADD
MOVvB
JMP

90$
80%
0
N6 ,(SP)
70%,3(SP)
400$

*NC ERROR GETTING STATUS

JSR
B8R
B8R

PC,CLRSTS
1208
1108

;60 VERIFY STATUS CLEAR
*NO ERROR IN CLEAR

.WORD
T1ST
ADD
MovB

JMP

JERROR FROM GETTING STATUS
;TRANSFER ERROR T0O USER

O
(SP)+
8, (SP)
100%.a(SP)
400$

:ERROR IN STATUS CLEAR
:STRIP RETURN ADDRESS 10
*SUBROUTINE AND TRANSFER
"ERROR TO USER

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

execure PACK ACKNOWLEDGE
*NOT VALID

043626

}}g 043432

608:

908 :

108
109

111

INO!!

<CLEAR CONTROLLER

73 063272

109

308

15 SET

. "."""l"tt"""""""ttt""tltlt"t'.t!fit"'ttt't'tt"'

72 043272

10°
102
103
106
}85

BPL

91
92
93
94
95
39

L 14
11-APR-80 13:04:53 PAG 15-1
SEQ 0180

58
59 063236

g? 043240

MACRO v03.01

044064

208

BIT

#81112,500%

JSR

PC,GEY

BEQ

2408

BIT12 SET

IN TASK AND VOLUME

:PACK ACKNOWLEDGE??

NO."

CZRMMAQO RMOS/3/2 FCTNL TST

TEST

PREPARATION MODULE

115
116
117
118

063640
063642
063444
063646

000611
000401
000000
062716

119 063452

MACRO v03.01

SEQ 0181

000004

}5? 063660

113776

000137

043446

000000

122 063464

032737

000100

001346

125
126
127
128
129
130
131
132
133
}gg

04634764
063502
063510
063516
063522
063526
063526
063530
063536
0643542

012737
112737
112737
006737
000410
000401
000000
062716
113776
000544

000023
000000
000200
064426

001410
001543
00°544

1%9 043546

004737

}52 063472

001061

0440564

000004
043526

000000

044766

130$:
1408:

1508:

1608:
1708:

1808:

138

139
140 043550

032737

000020

143 063560

004737

0441564

145
146
147
148

063566
043570
063572
063576

}gg 043606

000401
000000
062716
113776

000523

151
152
153
154
155
156

0643606
0643612
043614
043616
063620
063622

004737
000411
000401
000000
005726
062716

}gg 043634

000507

;:; 043556

144 063564

157 043626

001427

000610

113776

000004
043570

044064

000000

054526

000004

043616

400%

BIT

#VV RMDS
]

MOV
MOVB
MOVB
JSR
BR
BR
.WORD
ADD
MOVB
BR

#PAKACK'GO,RM(CS10
:LOAD PACK ACK (OMMAND
WRMCST,PUTINX
;SETUP REGISTER INDEX TABLE
#200,PUTINX+1
PC,PUT
:60 WRITE COMMAND
1808
*NO ERROR LOADING REGISTER
170$
O
:ERROR FROM PUT SUB
84, (SP)
STRANSFER ERROR TO USER
1608 ,a(SP)
4008

JSK

PC,TIMOUT

BNE

R RN

130$,a(SP)

260$

R NN R R

190$:
2008:

2108:
2208:
2308:

000000

;1S VOLUME

SYES!!

VALID??

:WAIT FOR COMMAND TO COMPLETE

N N P P S P S R R E C A AN AR AN NN NN RN A RN E PR RN O N OIREEROETOEOORY

#BIT4 SET IN TASK
;VERIFY PACK ACKNOWLEDGE??

BEQ

2408

JSR

PC,GET

;60 GET STATUS

BR
.WORD
ADD
MOVB

200%
O
#4, (SP)
190%.3(SP)

;ERROR FROM GET SUB
-TRANSFER ERROR TO USER

2108

400%

JSR
BR
BR
.WORD
T1ST
ADD

PC,ACKSTS
2608
2308
O
(SP)+
05, (SP)

4008

move
A

:TRANSFER ERROR 10 USER

220%.a(sp)

2222208000202

INO! !

*NO ERROR GETTING STATUS

;G0 CHECK ACKNOWLEDGE
:NO ERROR
:PACK ACKNOWLEDGE ERROR
SSTRIP RETURN TO SUB AND
STRANSFER ERROR TO USER

2022222

R R R F R

:OR "PIP'" IS ACTIVE.

0064000

167 063646

006737

0644154

169 043654

000401

};9 043656
043660

JMP

mMovB

;NO ERROR GETTING RMDS

:RECALIBRATE DRIVE IF BIT 11 IS SET IN TASK AND "'SKI'' IS SET
032737
001505

168 043652

1508
1408
O
94, (SP)

;VERIFY PACK ACKNOWLEDGE IF
BIT
#8174 ,5008

164 063636
}gs 043646
6

BR
BR
.WORD
ADD

160
161
162

163 043636

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

000410

000000
062716

000004

044064

2408:

BIT
BEQ

#B1T11,500%
4108

:RECALIBRATE??
*NO! !

JSR

PC,GET

;GO GET RMDS

2608

BR
2508:
2608:

.WORD
ADD

2708

O
#s,(SP)

:NO ERROR GETTING RMDS
;ERROR FROM GET SUB
. TRANSFER ERROR TO USER

]

CIRMMAQ RM0S/3/2 FCTNL TST

TEST

PREPARATION MODULE

172 06436646

MACRO v03.01

N 14
11-APR-80 13:04:53 PAGE 15-3
SEQ 0182

};2 043672

000470

113776

043656

000000

175
176
177
};g

0463674
043702
063704
063712

032737
001004
032737
001462

040000

044066

020000

001346

180
181
182
183
184
185
186
187
188
}gg

0643716
043722
063730
063736
043742
043744
043746
0643750
043756
043762

012737
112737
112737
004737
000410
00040
000000
062716
113776
000434

000007
000000
000200
044424

}3; 063764

004737

000004
043746

001410
001543
001544

000000

MOVB

2708:

280$:

290$:

2508 ,3(SP)

400%

BIT
BNE
BIT
8EQ

#5K1,505¢
280%
#P1P,RMDSI]

4108

MOV
MOvB
MOvB
JSR
BR
BR
.WORD
ADD
MOVB
BR

#RECAL 'GO,RM(CS10
;LOAD RECALIBRATE COMMAND
FRMCST,PUTINX
;AND REGISTER INDEX
#200,PUTINX+1
PC,PUT
260 ISSUE RECALIBRATE
300%
;NO ERROR
290%
0
JERROR IN REGISTER TRANSFER
#6,(SP)
;s TRANSFER ERROR T0O USER
2908-2,3(SP)
600%

PC.TIMOUT

;WAS SK]I SET ?
;YES, GO RECALIBRATE
;1S PIP ACTIVE??

JNO.!

044766

300%:

JSR

193

194
195 043770
}gg 063776

032737
001430

000010

VERIFY RECALIBRATE 1F BIT 3 SET IN TASK
BIT
#B8113,500%
JVERIFY RECALIBRATE??
BEQ
410%
NO"

198 044000
199 044004

004737
000410

044154

201
202
203
Sgg

200 044006
044010
0644012
044016
044026

000000
062716
113776
0006413

206 044026
207 044032
208 044034
209 044036
210 044040
211 0664042
212 0644046
213 044054
216 044060
%}5 044062

004737
000412
000401
000000
005726
062716
113776
162716
000240
000207

217 044064
g}g 044066

000000
000000

044064

JSR
BR

000401

000004
044010

000000

055322

000004
044036
000002

310%:
320%:

330%:
340%:
350%:
000000

600¢%:
£10%:
500%:
505¢%:

JWAIT FOR COMPIETION
Ry

S R N N R R Ry

PC,GET
330%

;G0 GET STATUS
;NO ERROR GETTING STATUS

O
#4,(SP)
310%,a(SP)
400¢

:ERROR FROM GET
; TRANSFER ERROR TO USER

JSR
BR
BR
.WORD
1ST
ADD
MOVB
sus
NOP
RTS

PC,RCLSTS
410%
3509
0
(SP)+
¥4, (SP)
340%,9(5P)
#2,(SF)

;60 CHE"K RECALIBRATE
sNO ERROR DURING RECALIBRATE

JRETURN TO USER

.WORD
.WORD

0
0

JTASK/VERIFY DESCRIPTIOR
;CONTAINS RMER?

BR
.WORD
ADD
MOvB
BR

3209

sERROR DURING RECALIBRATE
;STRIP RETURN TO SUB AND
;TRANSFER ERROR TO USER
JMOVE SP BACK BEFORE ERROR

CIRMMAQ RM05/3/2 FCTINL 1T 1

SBTTL

SEa 0183

GET STATUS SUBROUTINE

:THIS SUBROUTINE

SETS UP THE

'‘GET

INDEX

TABLE'' AND

THE

''GET

;BUFFER'' FOR READING ALL SUBSYSTEM REGISTERS VIA THE GET SUBROUTINE

;AND THEN RETURNS TO THE USER.

044070
044070
044072
044074
044076
064102
044106
046112
0446114
044116
046122
044126

GETSTS:

001514
001404
000046
000002

2%:
3%:

000022

044130
044132
044134
0464136

000200

006207

4%:

JSR
77?

PC,GETSTS

Mov
MOv
MOv
MOov
MOV
MOv
MOvVB

RO,=(SP)

;:PUSH RO ON STACK

R2,=SP)
#GETINX,RO

:sPUSH R2 ON STACK
;RO = ADDRESS OF INDEX

TABLE

;R2 = REGISTER INDE
JWRITE REGISTER INDEX

IN TABLE

CLR
SuB
BM]
CMP
BNE
CLR
BR

MOvVB
MOV
MOV
Mov
NOP
RTS

RETURN HERE

R1,=-(SP)

;:PUSH R1 ON STACK

FRMEC2]1+2,R1

JR1 = ADDRESS OF GET BUFFER

#RMEC? ,R2
R2,(RO)+
=(R1)
"2 ,R2
X
gznoe.nz

JCLEAR CORRESPONDING LOCATION
JDECREMENT TO NEXT INDEX
;BRANCH OUT IF DONE
:DONT WRITE RMDB INDEX

-(R1)

b33

#200, (RO)+
(SP)+,R2
(SP)+,R1
(SP)+,RO

;WRITE TERMINATOR
:;POP STACK INTO R2
::POP STACK INTN R}
;;POP STACK INIO RO

ECALL:

0446142
0446144
0464146
044150
29 064152
(=]

B 15

11-APR-80 13:04:53 PAGE

W~ WV

NN N PONOPVNIRINY

WN = OOV

NOWVMES W

b b e i el e e d o

—

NO VNS WA —

STATUS SUBROUTINE

GET

MACRO v03.01

€15

MACRO v03.01

7-APR-80 13:06:53 PAGE

SEQ 0184

—

.SBTTL

N S NN = OO 00 ~ O W 8 N

CIRMMAQ RMOS5/3/2 FCTNL TST
GET SUBROUTINE

;THIS SUBROUTINE READS THE REGISTERS WHICH ARE

LISTED

[N THE

et s s

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

b b s b et ad e

*SUBROUT INE CALL:
:(1)

"'GET INDEX TABLE'' HAS BEEN LO/DED WITH REGISTER INDEX

VALUES AND TERMINATED WITH A (ONTROL BYTE

)

"'GET INPUT BUFFER'' IS AVAILABLE FOR USE.

NOP

’

TR TR ]

ERROR
7

63 (44260

044266
044270
0464276
044304
0464306
044310

50 044312
51 044314

D e e
et cd e e e o

000004
000006
001174
001176
001176

POINTER

000004
000112

000016
00G016

177700

ANY

TO REGISTER

fOUND

ERROR

FOUND

INDEX

N6, (SP)
a(SP)
N6, (SP)
RO,=(SP)
R1,-(SP)
R2,=(SP)

R3,-(SP)

;CLEAR ERROR NUMBER
;ERROR CALL

:;PUSH R3 ON STA(K

MOV

#PRG ERRVE C+2

MOV

RMCST(RO) .STMP1

:GET '‘DVA"* STATUS

24,

*WRITE

MOV

ADD

#5$ ERRVEC

s :PUSH R4 ON STACK
::PUSH ERRVEC ON STACK
::PUSH ERRVEC+2 CN STACK

;SETUP FOR TIMEOUT

RMCSS(RO),STMPO :GET ''NED'' STATUS
#DVA,STMP{
3
16(5P)

MOVB

;liz,ato(sp)

8M]
MOvB
8IC

9¢
(R4) ,R1
#4CI1DXMSK ,RY

BR
1518

IN USER'S

::PUSH RO ON STA(K
::PUSH R1 ON STA(K
;:PUSH R2 ON STACK

R4 ,-(SP)
ERRVEC,-(SP)
ERRVEC+2,~(SP)
$BASE
, RO
#GETBUF ,R2
#GETINX
. Ré

BIT
BNE

3%:

NO ERROR

MO/
MO /
MOV
MOV
MOV
MOV

MOV

1%:

IF
IF

SUB DEFINES ERROR NUMBER

BUFFER BASE ADDRESS
BUFFER ADDRESS

MOV
MOV
MOV

000004
000006
001276
001334
001514
064336
000300
000010
000000
004000

RETURN HERE
RETURN HERE

NOP
ADD
CLRB
SuB
MOV

000004
(00000
000004

000240

P =2 OOQOOQO 2O~

0464154
0464156
044162
044166
044172
044174
044176
044200
044202
044204
044210
044214
044220
044224
044230

(NOTE THAT

UNUSED LOCATIONS, I.E.,ENTRIES IN BUFFER CORRESPONDING
TgRREGIS;ERgE¥OT READ, ARE NOT CHANGED.)

(3)

40 0464236
41 064244
42 044252
L4
65
46
&7
48
49

SUBROUTINE

:"'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 TO
;READ "'RMBA'* AND STORE I1TS CONTENTS AT THE LOCATION IN
;THE BUFFER ASSIGNED TO THAT REGISTER.
THE NUMBER OFf

NN = OO 00~
WV

NN = O 000NN

ANANAN AN NN PNINI NI NI NI PO RO AU NI N

36
37
38
39

GE1

(R4)

*DEVICE AVAILABLE??
SYES!!

ERROR NUMBER

*ERROR CALL
;DONE??

IN USER'S

JYES!!
;R1 = REGISTER ADDRESS
:CLEAR ANY SIGN EXTENSION

CIRMMAQ RMOS5/3/2 FCINL TST
GET SUBROUTINE

52
53
56
55

044320
066322
0464326
064330

060001
112403
042703
060203

56 064332

011113

59
60
61
62
63
64
65
66
67

022626
062766
112776
162766
105714
100405
005003
112403
060203

gg 044334
04646336
064340
044346
064354
044362
044364
064366
064370
044372

68 044374

69 044376

70 044400
044400
064404
044410

044412
044414
044416
06444620

044422

MACRO v03.01

177700

ADD
MOVB
BIC
ADD

RO,R1
(RG)+,R3
#*CIDXMSK,R3
R2,R3

MOV

000764

000006
000007
000002

000016
000016
000016

5¢:
7%:
8$:

005013

000006
000004

9%:

:R3 = STORAGE ADDRESS FOR REGISTER
SCLEAR ANY SIGN EXTENSION

(R, (r3)

;READ REGISTER

CMP
ADD
MOVB
SUB
1S1B
BM]
CLR
MOVB
ADD

(SP)+,(SP)+
#6,16(SP)
#7.316(SP)
#2.16(SP)
(R4)
9$
R3
(R&)+,R3
R2,R3

;RESTORE STACK
“WRITE ERROR NUMBER IN
SUSER'S ERROR CALL

MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTS

(SP)+ ,ERRVE(+2
(SP)+,ERRVEC
(SP)+.R4
(SP)+.R3
(SP)+.R2
(SP)+, R,
(SP)+,R0
PC

CLR

000771

012637
012637
012604
012603
012602
012601
012600
000207

D 1%
11-APR-80 13:04:53 PAGE 17-1

:DONE CLEARING??
SYES!!
:CLEAR REMAINING STORAGE
*LOCATIONS

(r3)

::POP STACK INTO ERRVE(+2
;:POP STACK INTO ERRVEC
S:POP STACK INTO R4
L:POP STACK INTO R3
1:POP STACK INTO R2
;:POP STACK INTO R1
;;POP STACK INTO RO
;RETURN

SEQ 0185

CZRMMAQ RM0S/3/2 FCTNL TST
SUBROUTINE

MACRO v03.01

1
1
1
1
1
1
1
1

2
2
S
2
2
g

28
29

PUT SUBROUTINE

;"'PUT INDEX TABLE'' WITH THE CONTENTS OF THE CORRESPONDING
LOCATION IN THE '"'PUT REGISTER BUFFER''.
THE NUMBER Of
REGISTERS WRITTEN 1S VARIABLE; THE INDEX TABLE MUST

;BE TERMINATED WITH A CONTROL BYTE
JFOLLOW THE LAST ENTRY,

(200) WHICH SHOULD

; SUBROUTINE CALL:
XD
:
:(2)
.
:(3)
;
:
:

;

"PUT INDEX TABLE'' HAS BEEN LOADED WITH INDEX VALUES
OF REGISTERS TO BE WRITTEN.
"PUT REGISTER BUFFER'' CONTAINS CONTENTS OF EACH
REGISTER TO BE WRITTEN.
JSR
PC,PUT
BR
772
RETURN HERE IF NO ERROR FOUND
NOP
RETURN HERE IF ANY ERROR FOQUND
ERROR
SUB DEFINES ERROR NUMBER

77?

RO = REGISTER BASE ADDRESS
REGISTER ADDRESS

;R2 = BUFFER BASE ADDRESS
;R3 = BUFFER ADDRESS
;R4 = POINTER TO REGISTER INDEX

044424
044426
044430
044432
044434

000240
010046
010146
010246
010346

30
31
32
33
34

044440
044444
064450
0446456
044460
044464
044472

0137646
013746
013700
012702
012704
012737
012737

000004
000006
001276
001410
001543
044574
000300

000004
000006

36
37
38
39
40

044506
044514
044522
044526
044532

016037
032737
001007
062766
112776

000000
004000

001176
001176

0464436

35 044500

41
62
&3
64
45
46

)

:THIS SUBROUTINE WRITES THE REGISTERS WHICH ARE LISTED IN THE

NN =2 OO0 NO NS NN = OO 00

}

OO NN

E 15
11-APR-80 13:04:53 PAGE 18

.SBTTL

O N B NN

PUT

044540
044542
04-544
044546
044550
044554

47 044556

010446

016037

000424
105714
100425
111401
042701
060001

111403

48 044560
49 044564

042703
060203

105724

50 044566

044570

011311

PUT:

000010
000004
000112

177700

RO,=(SP)
R1,=(SP)
R2,=(SP)
R3,-(SP)

;:PUSH
::;PUSH
;:PUSH
:;PUSH

MOV
MOV
MOV
MOV
MOV
MOV
MOV

ERRVEC,-(SP)
ERRVEC+2,=(SP)
$BASE ,RO
#PUTBUF ,R2
#PUTINX,
RS
#5% ERRVEC
#PR6 ,ERRVEC+?

;;PUSH ERRVEC ON STACK
;;PUSH ERRVEC+2 ON STACK

MOV
BIT
BNE
ADD
MOvVB

RMCS1(RO),$TMP1
#DVA,$TMPI
3%
#4,16(SP)
#112,316(5P)

MOV

001174

1%:

000016
000016
3%

177700

NOP
MOV
MOV
MOV
MOV

MOV

R4 ,-(SP)

7%
(RG)
9%
(R&) ,R1
#~CIDXMSK,R"
RO,RY

BIC
ADD

#*CIDXMSK,R3
R2,R3

1S1B

(R4)+

MOV

ON
ON
ON
ON

STACK
STA(CK
STACK
STACK

;;PUSH R4 ON STACK

:SETUP FOR TIMEOUT

RMCSS(RO),$TMPO ;GET ''NED'* STATUS

BR
1ST8
BM]
MOVB
BIC
ADD

MOVB

RO
R1
R2
R3

:GET ''DVA'' STATUS
;DEVICE AVAILABLE??
JYES!'!
;WRITE ERROR NUMBER IN
JUSER'S ERROR CALL
:CONE??
JYES!!
;R1 = REGISTER ADDRESS
;CLEAR ANY SIGN EXTENSION

(R&4) ,R3

;R3 = STORAGE ADDRESS

(R$), (R1)

:WRITE REGISTER

;CLEAR ANY SIGN EXTENSION

;ADJUST REGISTER POINTER

SEQ 0186

CZRMMAQ RMO5/3/2 FCTINL TST

PUT

SUBROUTIME

g% 044572

000763

954
55
56
gg

022626
062766
112776
162766

044574
044576
0644604
044612

59 044620
044620
064624
044630
044632
044634
064636
044640
60 044642
61

012637
012637
012604
012603
012602

012601
012600
000207

000004
000007
000002

000006
000004

MACRO v03.01

(C00016
000016
000016

5%:

7%:
9%:

F 15
11-APR-80 13:04:53 PAGE 18-1

b31

CMP
ADD
MOvB
SuB

(SP)+,(SP)+
#6,16(SP)
N7,316(5P)
#2,16(SP)

;ADJUST STACK
;WRITE ERROR NUMBER IN
;USER'S ERROR CALL

MOv
MOv
MOV
MOv
MOv

(SP)+ ERRVEC+?2
(SP)+ ERRVEC
(SP)+ R4
(SP)+,R3
(SP)+,R2

. .POP STACK INTO ERRVEC(C+?
;;POP STACK INTO ERRVEC
;.POP STACK INTO R4
;:POP STACK INTO R3
;;POP STACK INTO RZ
. .POP STACK INTO R
;.POP STACK INTO RO
sRETURN

MOV
MOV
RTS

(SP)+,R1
(SP)+,RO
PC

SEQ 0187

—

rrd

)

OO NN

MACRO v03.01

044644
044644
0464650
044654
0464662
044670
044676
0464704
044710
044712
0464714
064722
064730
044736
0464742
044744
0464746
044754
044756
044760
0464764

000004
000006
064712
000300

177546

000100
134600

012637
012637
000207

000006
000004

SEa 0188

SIZCLK:

000004
000006
001510
001512
1%:

044744
172540
000104
134546
000002

11-APR-80 13:04:53 PAGE

LSBITL
NNNNO
S N NNNNCNN
NN NN PO N
NN NN & 5
NNNNO
S NNNNNOO

)

NN = OO 00 ~O N

WA
—

( LR MMAQ RM0S/3/2 FCINL TST
S 17 £ CLOCK SUBROUTINE

000004

2%:
3%:

SIZE
MOV
MOv
MOV
MOV
MOv
MOV
1ST

BR
CMP

MOV
MOv
MOV

1ST
BR
CMP
ADD

MOv
MOv

RTS

CLOCK SUBROUTINE

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

#1$ ,ERRVEC
#PR6,ERRVEC+?

#177546,CLKADR

#100, CLKVCT
angAoR

(SP)+, (SP)+
#2% ERRVEC

#1728540,CLKADR

#104,CLKVCT
3CLKADR

(SP)+,(SP)+

#2,4(SP)

(SP)+ ERRVEC+?

éEP)*,ERRVEC

;sPUSH ERRVEC ON STA(CK
;sPUSH ERRVE(C+2 ON STACK
JSET UP FOR BUS TIMEOUT

sLOAD ADDRESSES FOR KW1l-L
;TEST

FOR KWl1-L PRESENT

JYES = KWll=L IS PRESENT
JRESTORE

;SET UP FOR BUS TIMEOUT
;LOAD ADDRESSES FOR KW11=-P (LOCK
;TEST

FOR KW11=P PRESENT

JYES = KW11=P S PRESENT
;RESTORE SP
;MOVE RETURN TO ERROP

:.POP STACK INTO ERRVE(+?
:.POP STACK INTO ERRVEC
JRETURN TO USER

CZRMMAQ RMOS/3/2 FCINL TST
SUBROUT INE

MACRO v03.01

—

T1IMEOUT

LSBTTL

TIMEOUT

SEQ 0189

SUBROUTINE

1 AND GO = 0 OR FOR A TIMEOUT
:THIS SUBROUTINE WAITS FOR RDY
;GREATER THAN APPROX. 500 MSEC AND THEN RETURNS.

NN~ NNNNNNN ~N—=O

H e
=P ONOOOWWS
— et NN
2 O NN
O oo

S N~NO

NOND
— £

e e

el e o

i e

=2 ONWNWNNINIANWO
OO

CIN) cod

— e

045054
045060
045064
045070
045072

N~
—

064766
044766
044770
044772
044774
045000
045004
045012
045020
045024
045030
045034
2465045
045042
045050

OO0V OO0O0OO0O0OO0O0O

SCALL:

OO0

OO NN N L

W —=OO
VNS
NN = OV
N

PNOPIPUNONININD
= b b el e ek oed ed ed

H 1 5
11-APR-80 13:04:53 PAGE 2 0

045106

045110

045116
045124

045132
045132
045136
045142
0465144
045146
35 045150
36

000004
000006
045106
000300
001276
001510
000036
172540

000001
000005

000004
000006

€00002

000000
177576
000200

112776
162766

000004
000007
000002

012637
012637

000006
000004

012602
012601
012600
000207

000012
000012
000012

MOv
MOv
MOv
MOV
MOV
MOv
MOv
MOv
MOv
MOV

RO,-(SP)
R1,-(SP)
R2,=(SP)
ERRVEC,=(SP)

2%:
3%:

MOV

000412

022626
062766

PC,TIMOUT

CMP
BNE
MOV
MOv

000200

0645076

045100
045102
27 045104

TIMOUT:

JSR
M

4%:

BIC
CMP
8tQ
BIT
BEQ
DEC
BNE
BR

ERRVEC+2,=(SP)

N6S ERRVEL
#PR6,ERRVEC+2
$BASE RO

CLKADR,R1
#30.,R2
R1,#172540
2%

#1,2(RY)
#BIT2!BITO,(R1)

RMCS1(RO) ,-(SP)

¥*C<RDY!GO>,
(SP)

#RDY, (SP)+

#BIT7,(R1)

Cmp

MOV
MOV
MOV
MOV
RTS

s sPUSH R2 ON STA(K
;:PUSH ERRVEC

ON STACK

;sPUSH ERRVE(+2 ON STA(K
sSETUP FOR BUS TIMEOUT - 04 TRAP
;R0O=BASE ADDRESS

sRY=CLOCK ADDRESS
JR2=NUMBER OF CLOCK CY(CLES

JKW1t=P CLOCK??

JNO!!

sSET COUNTER
;START

;GET

COUNTER

STATUS

JRDY=1,60-02?

JYES!!

;TIMER DONE??
;NO.!
;DEC NUMBER OF

CYCLES

RESET

;WITHIN 500 MSEC AFTER THE COMMAND WAS ]SSUED.
;ADJUST STACK
;MOVE SP TO USER'S CALL
;WRITE ERROR NUMBER

ADD
MOvB

MOV

;:PUSH RO ON STACK
::PUSH R1 ON STACK

JCONTINUE IF NQOT DONE
:RDY'' DID NOT SET OR '‘GO'' DID NOT

Sus

5%:

RETURN HERE

SP)+ ,ERRVEC+?2
SP)+ ,ERRVEC

SP)+,R2
SP
SP
C

.;POP STACK INTO ERRVE(+?2

:;POP STACK INTO ERRVEC
;.POP STACK INTO RZ
;.POP STACK

INTO R!

;.POP STACK INTO RO
JRETURN TO USER

CZRMMAQ RM0S5/3/2 FCINL TST
ERROR C(HECK SUBROUTINES

MACRO v03.01

115

11-APR=-80 13:06:53 PAGE 21

SEQ 0190

.SBTTL

ERROR CHECK

-SBTTL

PRIMARY ERROR CHECK SUBROUTINE

;THE PURPOSE OF

SUBROUTINES

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

:THAT

THIS SUBROUTINE

1S TO VERIFY

THAT STATUS

FURTHER ERROR AND STATUS CHECKING SHOULD BE

*FOLLOWING CHECKS ARE MADE:

IS VALID AND

PERFORMED.

THE

S(BITS 0-2)

.CORRECT UNIT IS SELECTED, I.E., THE UNIT SELECT BITS OF RM(S2

.SELECTED UNIT 1S AVAILABLE, 1.E., DVA (BIT 11 OF RMCS1) IS SET

.LAST COMMAND WAS COMPLETED, I.E.., THE MASSBUS CONTROLLER IS

“AND NED

16
17

EQUAL THE UNIT BEING TESTED:

(BIT

12 OF

RMCS3)

1S RESET:

:READY (BIT 7 OF RMCS1) AND THE GO BIT IS RESET
:DRIVE READY BIT (BIT 7 OF RMDS) IS SET,

(BIT O OF

RMCST)

Mcgg PASITY ERROR OCCURRED WHEN READING REMOTE REGISTERS,

27777

NO PARITY ERROR OCCURRED WHEN WRITING REMOTE REGISTERS,

21
22
23

;

: CORRESPONDING LOCATIONS OF

:THE SUBROUTINE 1S CALLED AS FOLLOWS:

2(1)

37
38
53

:
:
:

“1.E., PAR = 0, OR, PAR = DPE = 1

*THE

SUBROUTINE ASSUMES THAT:

.STATUS HAS BEEN STORED IN THE REGISTER INPUT BUFFER,

*IN PARTICULAR, RMCS1,

35
36

;
:

z; 045152
43
4l 045152
45 065156
6 065162

000004
000000
000004

065174
065202
065210
065216

013737

042737
013737
042737
123737

001344

045224
065226
0645232

001415
062716
112776

000004
000001

4«8

49 045166

RMCS2 AND RMDS HAVE BEEN STORED

THE ''GET'* BUFFER.

IN THEIR

.(SUNIT) CONTAINS THE DRIVE NUMBER
JSR

PC,PRIERR

ERROR
JSR
277

PC.a(SP)+

BR
NOP

279

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

PRIERR:
062716
105076
162716

SO
51
52
53
54
55
56
57

177770
001234
177770
001140

:CLEAR USER'S ERROR CALL
ADD
¥4, (SP)
CLRE
a($P)
SUB
¥4, (SP)

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

BIC
MOV
BIC
(MPB

BEQ
ADD
MOVB

RMCS21.8BDDAT

:CORRECT UNIT

SELECTED??

#*CUNTMSK
, SBDDAT
$UNIT,$GDDAT
:GOOD DATA FOR TYPEOUT
#~CUNTMSK, $GDDAT
$GDDAT,$BDDAT
;COMPARE EXPECTED AND RECEIVED
*DRIVE NUMBERS
18
TYES!!
¥, (SP)
#1.3(SP)
:ERROR 1

THE

CZRMMAQ RMO5/3/2 FCTINL TST 1
PRIMARY ERROR CHECK SUBROUTINE

065240
065264
065266
045252
065254
045260

162716

004736

J 1 5
11-APR-80 13:04:53 PAGE 2 1-1

000002

162716

000010

000137

045774

000240

MACRO v03.01

1%:

045342
045350
0645356
045364
045370
045372
045376
045400
045402

Q== OO0O0O0O0—O0O0O0O0OO
Ot et 2 ON— O
N2 OWN

045260
045266
065270
045276
045304
045312
045316
045324
045332
045334

NIPOAI NN — PORNININNI
N — N

;REPORT

004000

001334

001334
004000
001334
000004
000002
010000

001140
001140
001142

001344
001344
010000
000003
000002

001140
001142
001140
000000

001334
000200

001140
001140
001140
001142

001334
000004
000004
000002

000200

001346

001334

001140
001140
001142

160001

000000

JREPORT

THE DEVICE

#DVA,RMCS11

5¢

#DVA,SGDDAT
%4, (SP)

#2.3(SP)
ANED,RMCS21
2%
RMCS21,8GDDAT
RMCS21.$BODAT
#NED,SGDDAT
#3,a(SP)
#2.(SP)

IS NOT

AVAILABLE

;DEVICE AVAILABLE??

JYES!!

JEXPECTED STATUS
SRECEIVED STATUS
;ERROR #?

sWAS NED SET??

«NO!!

;EXPECTED STATUS

JRECEIVED STATUS

;YES - CHANGE ERROR NUMBER
¢MOVE SP TO RETURN FOR ERROR

PC.a(SP)+

#10, (SP)

;REPORT DEVICE
;RESTORE (SP)

10$

+SKIP OTHER CHECKS

NOT

AVAI_LABLE

ARDY,S$GDDAT

ADD
MOVB

#SC!TRE!MCPE'GO,S$GDDAT
RMCS11,$BDDAT
;RECEIVED STATUS
4, (SP)
#4.3(SP)
ERROR #4

JSR

PC.a(SP)+

NOP

001334

AN ERROR IF MASSBUS CONTROLLER IS NOT READY
BIT
#RDY,RMCST]
;CONTROLLER READY??
BNE
7%
JYES!!
MOV
RMCS11,$GDDAT
JEXPECTED STATUS

SUB

000001

001334
000004
000005
000002

SUB

7%
S PONLNVNNUAN
= N = N
NONNNNNNONSN
N =2 N == U ANANND
N NN
OO OO NNNWNIN -~

0645520
045526
045534
0645540
065546
045552

JSR

MOV

000010

O—=—=0Q00000000
OO =0 =
=2 OWOW

il el
ol
e
i
el
e
e

—_—t,
s 2 OO OO0 OO0
S NN = OOV
NO NN

—

045510
045512

MOVB
BIT
BEQ
MOV
MOV
BIC
MOVB
SUB

S}E

000000

:SKIP OTHER CHECKS

RMCST],$BDDAT

ADD

;REPORT

108

MOV

NOP

001334

+MOVE SP TO RETURN FOR ERROR
;REPORT WRONG UNIT SELECTED
;RESTORE (SP)

RMCS11,$GDDAT

SUB

000200

PC.a(SP ) +
#0, (sp )

MOV

BIS

2%:

#2,(SP)

1S NONEXISTANT

BNE

000000
001344

102

045472
045500
045502

BIT

5¢%:

160001

AN ERROR

;THE DEVICE

000010

045402
045410
045412
045420
045426
045434
045442
045446
045454
045460
045462
045466
045470
' 045472

SuB
JSR
sus
NOP
JMP

SEQ 019

AN ERROR

#2,(SP)

sMOVE SP TO RETURN FOR ERROR

#10, (SP)

;RESTORE

10%
IF

IS NOT

#GO,RMCS11
8%

BNE

S?g

MOV
ADD
MOVB

SUB

JSR

CONTROLLER NOT

(SP)

s SKIP OTHER

BIT
BEQ
8IT

sREPORT

#DRY ,RMDSI

RMCS11,$GDDAY

ZERO AND DRY

;G0 RESET??

READY

CHECKS
IS NOT

ONE

JYES!!

:DR%Y? READY??

JYES!!
:EXPECTED STATUS

#SC! TRE'MCP
!GO, $GDDAT
E
RMCS11,$BODAT
#4,(SP)
#5.3(SP)

;RECEIVED STATUS

PC.al(SP)+

;REPORT

#2.(SP)

;ERROR #5
;MOVE SP TO RETURN FOR ERROR
DRIVE

NOT

READY

CZRMMAO RMO5/3/2 FCTNL TST

PRIMARY

115
116
117
}}g

ERROR

045556
045560
065562
045564

120
121
122 065564
123 045572
124 0645574

CHECK

SUBROUTINE

162716
000240
000504

126 045610
127 045616

032737
001425
013737
042737
013737
062716

129 045630
130 045634

162716
004736

132 045642

000240

125 0645602

128 045622

131 045636
133 045644
}gg 045646

136
137
138
139
140

112776

162716

152
153
154
155

032737
001451
032737
001045
032737
001413
010046
012700
122710
001002
012600
000431
105720
10037
012600
013737
042737
013737
062716

157
158
159
160
161
162
}23

0645760
045764
045766
045772
0645774
046000
046002

162716
004736
162716
000240
062716
000240
000207

1643

146
145
146
147
148
149
150
151

156 045752

MACRO v03.01

000010

8$:

020000
001336

160001

001334
000004

000013
000002

001334

112776

BIT
BEQ
MOV
BIC
MOv
ADD

001140

001142

000000

001350

000010

001376

000010

001424

93%:

000000

10, (SP)

;RESTORE STACK

10¢

MOv
(MPB
BNE
MOv
BR
1STB
BPL
MOV

MOV
BIC
MOV
ADD

mMove

000010
000010

AMCPE ,RMCST]
;PARITY ERROR ?7?
9%
;NO!!
RMCS11,9GDDAT
;EXPECTED STATUS
#SC! TRE 'MCPE !GO, $GDDAT
RMCS11,$B0DAT
;RECEIVED STATUS
¥ (SP)
sMOVE STACK TO USER'S ERROR

SUB

BIT
BEQ

92%:

000002

10%

N2, (SP)
PC a(SP)+

:MOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER

;REPORT AN ERROR 1F DETECTED A CONTROL BUS PARITY ERROR
BIT
#PAR ,RMER1]
;WAS THERE A PARITY ERROR??
BEQ
11%
;NO!!
BIT
#DPE ,RMERZ2]
sWAS IT THE CONTROL BUS??
BNE
118
sNOT SURE
!

91%:

001140
001140
001142

(SP)

+ERROR #47

MOV

001543
000014

JRESTORE

715,3(sP)

NOP

000010

#10,(SP)

MovB
sus
JSR

9%:

000050

SuB
NOP
BR

;REPORT AN ERROR IF THE RH CONTROLLER DETECTED BAD
;PARITY ON THE MASSBUS CONTROL BUS

000010

001350
000010
001350
000006

K 15
11-APR-80 13:06:53 PAGE 21- 2
SEQ 0192

000453

045646
045654
045656
045664
0645666
0456764
045676
045700
045704
0645710
045712
045714
0645716
045720
045722
045724
045732
0457640
045746

141
142

10$:
11%:

suB
JSR
SuB
NOP
ADD
NOP
RTS

#PAR,RMER10
;DID TEST SET PAR ??
93¢
sNO!!
RO,=(SP)
:;PUSH RO ON STA(K
#PUTINX,RO
;RO POINTS TO INDEX TABLE
#RMERT, (RO)
;SEARCH TABLE FOR RMERI
92%
(SP)+ RO
;.POP STACK INTO RO
11%
;PAR WAS SET BY TEST
(RO)+
;END OF TABLE??
91%
:NO!!
(SP)+,RO
;.POP STACK INTO RO
RMER11,8GDDAT
;EXPECTED STATUS
#PAR,$GDDAY
RMER11,$BDDAT
;RECEIVED STATUS
A6, (SP) ;MOVE SP TO USER'S ERROR CALL

#50,a(sP)

;WRITE THE ERROR NUMBER

#0,(sP)

:RETURN TO ERROR
RETURN TO NO ERROR

#2,(SP)
PC,a(SP)+
#10, (SP)

;MOVE SP TO RETURN FOR ERROR
+REPORT THE ERROR
:MOVE SP TO NO ERROR RETURN

CIRMMAO RMOS5/3/2 FCTINL TST

—

SECONDARY ERROR CHECK SUBROUTINE

MACRO v03.01

.SBTTL
. THE

SECONDARY ERROR CHECK SUBROUTINE

ERROR CHECK

SUBROUTINE PROVIDES DETECTION OF

SECONDARY ERRORS

= O D00 ~NO N

;WHEN THE SUBROUTINE IDENTIFIES SUCH AN ERROR, 1T MOVES THE ERROR
:NUMBER TO THE ERROR CALL IN THE TEST ROUTINE AND THEN RETURNS
;7O THE TEST ROUTINE WHICH MAKES THE ERROR CALL. AFTER THE TEST ROUTINE

;MAKES

THE

ERROR

CALL,

RETURNS

TO THE

SUBROUTINE

:OTHER ERRORS. WHEN ALL ERRORS HAVE BEEN REPORTED,

:RETURNS

NPV
~NO NS WA= OV
= OOV
W

SEQ 0193

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

N ANAN A ANNOPO RO NIPNOPNINININOAD
= —t b b b b bbb

L 15

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

TO THE

;CALL:
;
:
:
:
:

JSR
BR
NOP
ERROR
JSR
m

;NOTE:

THE

ADDRESS

PC,SECERR
m
PC,a(SP)+

SUBROUTINE

; INPUT REGISTER BUFFER.
046004

FOLLOWING THE

ASSUMES

SUBROUTINE

WHICH

THEN LOOKS

THE SUBROUTINE

CALL.

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEFINED BY SUB
60 BACK TO SUB FOR MORE ERROR CHECKS
RETURN HERE IF NO MORE ERRORS
THAT

REGISTERS HAVE

BEEN STORED

SEL RR:
.':t.tt'ttt.'t.tltt""""t"'tttltt.'tttl't't't.'ttl'tl'ttlt"'t

046004
066012
066020
046024
046030

013737
042737
062716
105076
162716

001610
177701
000004
000000
000004

051640
051640

JSTORE

FUNCTION CODE

MOV
BIC
ADD
CLRB
SuB

AND CLEAR USER'S ERROR NUMBER

RM(S10,515¢%
;STORE FUNCTION CODE
FACCFO'FITF2'F3IFL>,5158
#4,(SP)
;MOVE (SP) TO ERROR CALL
a(sSP)
;CLEAR ERROR NUMBER
¥4, (SP)
;MOVE (SP) TO NO ERROR RETURN

;:t'tl't..'..'t"'i"""'""t't'l.'ttttt'tttitttt'ttt'tttt"tt'

JCHECK SECONDARY ERRORS COMMON TO ALL COMMANDS

37
38 066034
39 066062

000200

001346

013737
042737
012737
062716

001346
177577
000200
000004

001142
001142
001140

45 046100
46 046104

162716
004736

000002

:g 046112

000240

40
41
&2
43

046044
046052
046060
046066

&L 066072

47 0646106
50

51 066114
52
53
54
55
56

046122
046124
066132
046140
046144

57 046150

032737
001024

112776

000010

000000

162716

000010

032737

000001

001334

001334
177776
001140
000004

711142
001142

001423
013737
042737
005037
062716

112776

000011

JREPORT ERROR IF DRIVE IS NOY READY, [.E., IF DRY = 0
BIT
#DRY ,RMDS]
:DRIVE READY??
BNE
5%
SYES!!
MOV
BIC
MOV
ADD

RMDSI,$BDDAT
#~CORY,$BODAT
#DRY,SGDDAT
4, (SP)

suB
JSR

#2,(SP)
PC,a(SP)+

MOvB

SUB

NOP

000000

REPORT ERROR ]F

5&s:

BIT

BEQ
MOV
BI(
(LR
ADD

move

#10.3(SP)

00, sp)
GO BIT

;BAD DATA FOR TYPEOUT

;600D DATA FOR TYPEOQUT

:ERROR NUMBER

;MOVE SP TO RETURN FOR ERROR
;REPORT NOT READY

CRESTORE (SP) TO ERROR N

IS NOT RESET

#GO,RMCS1]

108
RMCS1]1,9BDDAT
#*(GO,$BDDAT
$GODAT
N4, (SP)

#1{,a(sp)

560 BIT RESET??

SYES!!
;BAD DATA FOR TYPEOQUT
;GOOD DATA FOR TYPEOQUY

:ERROR NUMBER

THE

FOR

CIRMMAO RM0S5/3/2 FCINL TST

SECONDARY ERROR CHECK

SUBROUTINE

58 066156
59 066162

162716
004736

000002

23 066170

000240

60 066166

64 046172

65 046200
66 046206

162716

013737

042737
013737

67 046214
68 046222
69 046224

023737
001413
062716

71 066236
72 066262

162716
004736

74 066250
75 066252
76
77
78
79 066252

000240

005037

81
82
83
84
85
86
87
88
89

066262
066264
046270
066272
046300
046306
046314
046322
046324

001003
005737
001403
052737
013737
042737
023737
001412
062716

91 046336
92 046342

162716
004736

70 046230
73 0462646

80 046256

90 046330

32 046344

112776
162716

005737

112776

162716

MACRO v03.01

SUB
JSR

000010

001336

177701
051640
001142
000004

000012

000002

SUB

NOP

001142

001142
001140

108:

Mov

BIC
MOV

(MP
BEQ
ADD

000000

MOVB
SUB
JSR

000010

SUB

NOP

001350

001376

137777
001140
000004

000047
000002

#10, (sp)

;MOVE SP TO RETURN FOR ERROR
*REPORT DEVICE NOT AVAILABLE

SRESTORE (SP)

FUNCTION CODE READ FROM DEVICE

RMCSTI,$BDDAT

#~(76,$BDDAT
515, $GDDAT

IS NOT CORRECT

;1S FUNCTION CODE CORRECT??

SEXPECTED FUNCTION CODE

$BDDAT, $GDDAT
15¢
¥, (SP)

SYES!!

#2,(SP)
PC.a(SP)+

“MOVE SP TO RETURN FOR ERROR
*REPORT WRONG FUNCTION CODE

#12,3(SP)

010, (sP)

;ERROR NUMBER

SRESTORE (SP)

158
;REPORT AN ERROR 1F COMPOSITE ERROR IS SET AND NO OTHER
:ERRORS ARE SET, OR IF COMPOSITE ERROR 1S NOT SET AND
:OTHER ERRORS ARE SET
CLR
$GDDAT
SEXPECT "ERR" = 0

001140

040000
001346

#2,(5P)
PC a(SP)+

SEQ 0194

001140
001142

001142
001142

20$:
258:

000000

11S RMER] = 0??

208
RMER2]
25%
#ERR,$GDDAT
RMDST,$BDDAT
#~CERR,SBDDAT
SGDDAT.$BDDAT
30$
¥4, (SP)

;IS "ERR'' OK??
SYES!!
:MOVE SP TO USER'S ERROR

SUB
JSR

#2,(SP)
PC.a(SP)+

:MOVE SP TO ERROR RETURN
*REPORT INVALID COMP ERROR

MOVB

000010

RMER1 |

BNE
ST
BEQ
BIS
MOV
BIC
CMP
BEQ
ADD

SUB

#47.3(SP)
#10, (sP)

INO.!
115 RMERZ = 072
TYES!!
S"ERRTM SOULD BE SET

‘WRITE ERROR NUMBER

;REPORT AN ERROR IF "‘TRE'' IS SET AND NONE OF THE BITS WHICH SET
STRE 1S SET, OR IF TRE 1S NOT SET AND ONE OR MORE BITS WHICH

046350

06463564
046360
046364
046366
066376

106 046376
105 0464064
106 066406

107 046416

108 0646422

109
110
111
112
113

:REPORT ERROR 1F

001140

95
96

100
10%
102
103

M 15
11-APR-80 13:04:53 PAGE 22-1

046430
066436
066440
06644t
046452

114 066456

005037

013746
0642726
001010
032737
001407

'SET

001140

508

001344
000377
040000

001346

022737
103003
052737

000030

051640

040000

001140

062737

137777

001142

013737
023737
001413
062716
112776
162716
004736

00133¢

001140
000004
000014
000002

001142
001142

000000

35%:

40$:

TRE

1S SET

CLR

$GODAT

SEXPECT "“TRE'" = 0

CMP
BHIS
BIS

#SEARCH,515%
40$%
#TRE,$GDDAT

>WAS DATA TRANSFERRED??
*NO'!
S“TRE'' SHOULD BE SET

BIC

#*CTRE ,SBDDAT

MOV
BIC
BNE
BIT
BEQ

MOV

CMP
BEQ
ADD
MOVB
SUB
JSR

RMCS21,-(SP)
#377,(SP)+
35%
#ERR,RMDSI
408

RMCST1.$BDDAT

$GDDAT .$BDDAT
45$
£, (SP)
#14,a(< |
#2,(SP)
PC.alSP)+

:WAS DLT, WCE. UPE, NED, NEM
‘PGE, MXF OR MDPE SET
SYEST!
*WAS EXCEPTION RECEIVEL??
*NO'!

:BAD DATA FOR TYPEOUT
)

;1S "‘TRE'' 0K??
SYES!!
:MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR
‘REPORT

TRE ERROR

CIRMMAD RMO5/3/2 FCINL TST 1

SECONDARY ERROR CHECKX SUBROUTINE

115 0646460

1 6 046464

117 046466

162716
000240

MACRO v03.01

000010

SuB

45%:

118
119
120
121
122

139
140
141
1642
1643

164
145
146
147
148
149
150
151
152

153
154
155
156
157
158
159
160
161
162
163
164
165

166
167
168
169
170
171

#10,(SP)

NOP

SEQ 0195

;RESTORE

(SP)

"'"'."."'.""""""""'."".""".".""'.""'""'

USING THE FUNCTION CODE TABLE,
’

123
124
125
126
127
128 046466

129
130
131
132
133
134
135
136
137
138

N 15
11-APR-B0 13:04:53 PAGE 22-2

066470
0646474
046502

CHECK FOR THE

FOLLOWING ERRORS:

.STATUS BITS NOT SET THAT SHOULD BE SET, E.G., ATA AND ]LF
.STATUS BITS SET THAT SHOULD NOT BE SET, E.G., WCE AND ECH

NOTE THAT SOME ERROR BITS ARE CONDITIONAL ON THE COMMAND AND OTHER
. STATUS CONDITIONS, E.G., WRITE LOCK EchTTEHOULD ONLY BE SET IF

‘WRITE LOCK 1S ON AND THE COMMAND IS.A

010046
013700
016C37
012600

;GET AND STORE THE ENTRY FROM THE FUNCTION CODE TABLE
051640
067046

MOV

RO,-(SP)

MOV
MOV

FNCOTB(R0),5008 :STORE ENTRY
(SP)+,RO
S:POP STACK INTO RO

MOV

051632

515%,R0

::PUSH RO ON STACK

SGET FUNCTION CODE

;REPORT AN ERROR IF AN UNEXPECTED ATTENTION OCCURRED OR IF

0646504
046512
046520
046522
046530
0646536
066564
046552
046560
046562
0646566
046574
046600
046602
046606
046610

013737
032737
001403
052737
042737
013737
042737
023737
001413
062716
112776
162716
004736
162716
000240

JATA

051632
040000
100000
077777
001346
077777
001140

50%:

IS NOT

MOV
BIT

BEQ
8IS

BIC
MOV
BIC
CMP

50%
NATA,SGDDAT
#~CATA,$GDDAT

SET.
:GET EXPECTED ATA STATUS
215 COMPOSITE ERROR SET ?7?

;NO !
SEXPECT AN ATTENTION
:STRIP DONT CARES
:GET RECEIVED ATA
:STRIP DONT CARES
1S ATA OK ??

ADD
MOVB

84, (SP)
#6.a(SP)

:MOVE SP TO USERS ERROR CALL
*LOAD ERROR # IN CALL

JSR

PC.a(SP)+

‘REPORT ERROR

SUB

agg

000010

AND SHOULD BE
500%,$GDOAT
NERR,RMDS]

RMDSI,$BDDAT
#~CATA,$BDDAT
$GDDAT.SBODAT

BEQ

000004
000006
000002

SET

55¢

#2.(SP)

210, (sP)

SYES

‘MOVE SP TO ERROR RETURN

*RESTORE SP

55¢%:

046610
046616
0466264
046632
0646640
046646
046650
046656
0646662
066666
046670
0646674

013737
042737
013737
042737
023737
001412
062716
112776
162716
004736
162716
005037

051632
177776
001350
177776
001140

0646700
0467064
046710
046716

013746
052716
013737
042637

051632
137777
001344
001142

JREPORT ERROR IF JLF IS INCORRECT, I.E., IF ILF DOES NOT CCMPARE
;WITH FUNCT:ON CODE TABLE
MOV
500$,$GDDAT
;GET EXPECTED ILF
#~CILF,$GDDAT
BIC
:CLEAR ALL OTHER BITS
MOV
RMERT] ,SBDDAT
<GET RECEIVED ILF
BIC
#~CILF.SBDDAT
:CLEAR ALL OTHER BITS
CMP
$GDDAT,$SBDDAT
215 ILF 0K ?2?
608
BEQ
SYES '

000004
000254
000002

ADD

¥,

SUB

#2.($P)

SUB
(LR

010, (sP)
$GDDAT

MOVB
JSR

000010
001140

60%:

(SP)

#254.,a(5P)

PC.al(SP)+

JREPOR?T AN ERROR I1F WCE
001142

MOV
BIS
MOV

BIC

IS SET
5008 ,-(SP)
¥*CWCE, (SP)
RMCS21,$BDDAT

(SP)+,$BDDAT

*MOVE SP TO USERS ERROR CALL
*WRITE ERROR NUMBER IN CALL

:MOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN

:MOVE SP 10 NO ERROR
:CLEAR EXPECTED STATUS
AND SHOULD NOT BE SET
;GET WCE STATUS ENABLE
;SET ALL OTHER BITS
;RECEIVED STATUS

;CLEAR WCE

ENABLED

CIRMMAO RMO5/3/2 FCINL TST 1

SECONDARY ERROR CHECK SUBROUTINE

172 066722
173 066724

174 066730
175 066775
176 06674¢

177 066746

};g 046750
180
181 046750
182 0467564

183
184
185
186
187
188
189

046760
066766
046772
046774
047000
047006
067012

190 047014

}g; 047020

001412
062716

112776
162716
004736

000004

000026
000002

162716

000010

013746
052716

051632
157777

013737
042637
001412
062716
112776
162716
004736

162716

001350
001142

000004
000164
000002

MACRO v03.01

‘95
196
197
198
199
200

201
202
202
204
205
206

SUB

ADD
MOVB
SUB
JSR

1008 :

SUB

047020
047026
047032
047034
047040
047044

047052
047056
047060
047064
0647072
047076

207 047100

ggg 047104

013746
032737
001402
042716
052716
013737

042637
001412
062716
112776
162716
004736

162716

051632
000100
010000
167777

001376
001142

000004
000165
000002

001346

001142

1058:

BIC
BEQ
ADD
MOVB
SUB
JSR

000000

000010

MOV
BIT
BEQ
BIC
8IS
MOV

110%:

SUB

1S SET AND SHOULD NOT BE SET
;GET OPI STATUS ENABLE
:SET ALL OTHER BITS

RMERI1.SBDDAT
(SP)+,$BODAT
100$

:GET RECEIVED STATUS
:CLEAR OPI IF ENABLED
*BRANCH IF OPI1 OK

8, (SP)
#164.a(SP)
#2.(SP)
PC.alsP)+

:MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER IN CALL
:MOVE SP TO ERROR RETURN
*REPORT ERROR

IVC

1S NOT

:RESTORE SP

IS SET AND IS NOT ENABLED OR

RESET

5008, - (SP)
NVV,RMDS |
105$
#IVC, (SP)
#*CIVC, (SP)
RMER21.$BDDAT

(SP)+,$BODAT
1108
#4, (SP)
#165,a3(SP)
#2,(SP)
PC.a(SP)+

010, (sP)

IvC

;GET IVC STATUS ENABLE
SIS vV SET
‘N0 !
*YES = IVC SHOULD BE 0
:SET ALL OTHER BITS
-GET RECEIVED STATUS

:CLEAR IVC IF ENABLED
:BRANCH IF I1VC OK
‘MOVE SP TO USERS ERROR CALL
:WRITE ERROR NUMBER IN CALL
*MOVE SP TO ERROR RETURN
‘REPORT ERROR

:RESTORE SP T0 NO ERROR

1
2°
2.
213
214
215
g}g

;BIT 11 (WLE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR
: ALL WRITE ERRORS, 1.E.,
:
RMERT - WLE, WCF
:
RMER2 - DPE
:
RMCS2 - UPE.
SEACH OF THESE ERRORS 1S CHECKED TO SEE IF AN ERROR IS SET WHEN THE
:WRITE ERROR ENABLE BIT IS RESET.

218
219
220 047106

:REPORT AN ERROR IF WLE IS SET AND WRITE ERRORS ARE NOT ENABLED, OR
:THE DRIVE IS NOT WRITE PROTECTED
MOV
#-1,-(SP)
:ASSUME WRITE ERRORS ENABLED

221
222
223
224
225
226

0647110
047116
047120
0647126
047130
067136

227 047142
228 047146

012746
032737
001404
032737
001002

042716
013737

042637
001412

177777
004000

051632

006000

001346

004000
001350

001142

1158:
1208:

BIT
BEQ
811
BNE
BIC
MOV

#ULE 5008
115¢
#WRL ,RMDS]
1208
#ULE, (SP)
RMERT1,$BODAT

*ARE WRITE ERRORS ENABLED 7?
INO !
;1S THE DRIVE WRITE PROTECTED 27
SYES
.RESET "WLE ENABLE
:GET RECEIVED STATUS

BEQ

125%

;BRANCH IF WLE 0K

BIC

(SP)+,$BDDAT

:RESTORE ERROR

010, (sp)

;REPORT ERROR IF
SSET AND VV

*WRITE ERROR NUMBER
:MOVE SP TO ERROR RETURN
‘REPORT ERROR

b, o)

MOV
BIC
BEQ

SEQ 0196

;BRANCH JF WCE OK
:MOVE SP TO USER'S ERROR CALL

#26,3(SP)
#2,(5P)
PC asP)+

:REPORT ERROR IF 0PI strus
MOV
5008 ,-(SP)
8IS
¥ACOP1, .SP)

000000

000010

908
8, (SP)

MOVB
SUB
JSR

908 :

193
194

BEQ
ADD

000000

001142

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

SCLEAR WLE IF ENABLED

IFf

CIRMMAQ RMO5/3/2 FCTINL TST 1
MACRO v03.01
SECONDARY ERROR CHECK SUBROUTINE

229 067150

062716

231 067162
232 067166

162716
004736

230 047156

000004

112776

000023

162716

000010

067174
047200
047206
067210
047216
067222
067226
067230

012746
032737
001002
042716
013737
042637
001412
062716

177777
004000

266 067262
267 067246

162716
004736

233 047170

ggg 067174

236
237
238
239
260
261
262
263
264

265 0472364

268 067250

ggg 047254

112776

162716

000002

000040
001350
001142
000004

000025

000002

067254
047260
067266
047270

258
259
260
261
262
263
ggg

047306
047310
0473164
047322
067326
047330
067334

001412
062716
112776
162716
004736
162716

067334
067340
047346
047350

012746
032737
001002
042716

177777
004000

272 047362
273 067366

062637
001412

001142

256 067274
257 047302

266

267
268
269
270

271 047356

274 067370

275 047376
276 047602
277 067606

278 047410

ggg 067414
281
282
283
284
285

047414
067420
047626
047432

012746
032737
001002
062716

013737
062637

013737

177777
004000
000010

001376
001142
000004
000040
000002

000000

051632

001142

020000

001344

000004

162716

000010

013766
052716
013737
062637

051632
175777
001350
001142

000024
000002

#2%.3(sp)

SUB

06, (sp)

move

#25.3(sP)

SUB

010, (sp)

SUB
JSR

1408:

1458

MOV
BIC

BEQ
ADD
MOVB
SUB
JSR
SUB

;REPORT AN ERROR

051632

1508:

000000

:MOVE SP TO USERS ERROR CALL

*WRITE ERROR NUMBER IN CALL

*MOVE SP TO ERROR RETURN
*REPORT ERROR AND RETURN

*RESTORE SP 10 NO ERROR

WRITE ERRORS ARE NOT ENABLED
:ASSUME WRITE ERRORS ENABLED
*ARE WRITE ERRORS ENABLED 77
SYES !
‘DISABLE WCF ERROR
:GET RECEIVED STATUS
:RESET WCF IF ENABLED
*BRANCH IF WCF OK
*MOVE SP TO USERS ERROR (ALL

‘WRITE ERROR NUMBER IN CALL
*MOVE SP TO ERROR RETURN
‘REPORT ERROR

*RESTORE SP TO NO ERROR

RMER21,$BDDAT
(sP)+,$BODAT

145
¥, (SP)
#40,3(SP)
#2,(3P)
PC.R(SP)+
#10, (SP)
IF UPE

:GET RECEIVED STATUS
-RESET DPE IF ENABLED

*BRANCH IF DPE OK
*MOVE SP TO USERS ERROR CALL
‘WRITE ERROR NUMBER IN CALL
*MOVE SP TO ERROR RETURN
‘REPORT ERROR
*RESTORE SP TO NO ERROR

IS SET AND WRITE ERRORS ARE NOT ENABLED

MOV
81T
BNE
8IC

#-1,-(5P)
#uLE 5008
1508
#UPE , (SP)

:ASSUME WRITE ERRORS ARE ENABLED
*ARE WRITE ERRORS ENABLED ??
TYES !
:DISABLE UPE ERROR

BIC
BEQ

(SP)+,$BDDAT
155%

:RESET UPE IF ENABLED
:BRANCH IF UPE OK

MOV

RMCS21,$BODAT

ADD

SUB

90, (sP)

MOVB
SuB
JSR

155%

001142

#2,(SP)
PC.a(SP)+

SEQ 0197

;REPORT ERROR IF DPE IS SET AND WRITE ERRORS ARE NOT ENABLEC
MOV
#-1,-(SP)
:ASSUME WRITE ERRORS ARE ENABLED
BIT
#WLE, 5008
*ARE WRITE ERRORS ENABLED ??
BNE
1408
SYES !
BIC
#DPE , (SP)
‘RESET DPE ENABLE

000000

001142

#2.(SP)
PC.a(SP)+

;REPORT ERROR IF WCF 1S SET AND
MOV
#-1,-(SP)
BIT
#WLE, 5008
BNE
1308
BIC
#UCF, (SP)
1308:
MOV
RMERTI,$BODAT
BIC
(SP)+,$BDDAT
BEQ
1358
ADD
¥, (SP)

1358

000010

062716

112776
162716
004736

001142

4, (SP)

move
SUB
JSR

1258

000010

251
252
253
254
355

ADD

000000

05'632

cC 16
11-APR-80 13:046:53 PAGE 22-4

(SP)

#24,3(SP)
#2,(SP)
PC A(SP)+

:GET RECEIVED STATUS
:MOVE

SP TO USERS ERROR CALL

"WRITE ERROR NUMBER IN CALL
“MOVE SP T0 ERROR RETURN
*REPORT ERROR AND RETURN

*MOVE SP TO NO ERROR

;REPORT AN ERROR If IAE IS SET AND IS NOT ENABLED
MOV
5008, - (SP)
:GET I1AE ENABLE
BIS
¥ACIAE, (SP)
*SET ALL OTHER BITS
MOV
RMERTI.$BODAT
:GET RECEIVED STATUS
BIC
(SP)+, $BDDAT
:CLEAR IAE IF ENABLED

(IRMMAD RMOS5/3/72 FCTINL TST

SECONDARY ERROR CMECK SUBROUTINE

286
287
288
289
290
291
292
293
294
295

047436
047440
047446
047452
047456
067460
047464

001412
062716
112776
162716
004736
162716

000004
000166
000002

MACRO v03.01

SEQ 0198

BEQ

1608

ADD

000000

000010

MOVB
SUB

#166,3(SP)
#2.(SP)

;WRITE ERROR NUMBER

;MOVE SP TO ERROR RETURN
;REPORT ERROR AND RETURN
;MOVE SP TO NO ERROR

PC.A(SP)+

SUB

160%:

;BRANCH IF TAE 1S OK
;MOVE SP TO USERS ERROR CALL

05, (SP)

JSR

910, (sP)

;BIT 09 (AOE) OF THE FUNCTION CODE TABLE IS THE ENABLING BIT FOR
:

296
297
298

299
300
301
302
303
304
305
306
307
308
309
310 047466
311 047470
312 0647476
313 047500
314 0647506
315 047512
316 047516
317 047520
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
334 047612
335 047616
336 047620
337 047624
338
339
340 067626
341 047630
3.2 067636

D 16
11-APR-80 13:04:53 PAGE 2 2- 5

;

ALL

READ/WRITE

;

;NOTE:

ERRORS,

RM(S2 - DLT,NEM,
MXF
- (BT
RMDS

RMER1

- AOE

LBT

IS NOT

AOE

CANNOT BE SET

TRE

;hs%éNDER REGISTER

;

:NOTE

012746
032737
001002
042716
013737
042637
001412
062716
112776
162716
004736
162716

012746
032737
001002

177777
001000

:REPORT

051632

100000
001344
001142

001142

000004
000032
000002

000000

000010

177777
001000
004000
001344
001142

000004
000167
000002

;REPORT

051632

001142

#DLT,

BIC
8EQ

(SP)+,$BDDAT
1708

MOV

ADD

¥4,

SUB
JSR
SUB

#2,(SP)
PC.a(SP)+
010, (SP)

ERROR

MOV

IS NOT ALSO SET

SET

(SP)

(SP)+,$BDDAT

1808

N4, (SP)

#167.3(SP)
#2,(SP)
PC.alSP)e+

SUB

nb, sp)
[F

MXF

[S SET

#-1,-(5P)

#AQE ,5008
185%

OTHER

AND READ/WRITE

ERROR

CONDITONS ABOVE

ERRORS ARE

NOT

+ASSUME ERRORS ARE ENABLED
;ARE ERRCRS ENABLED ??
JYES !!
JRESET DLT ENABLE
;GET RECEIVED STATUS
;CLEAR DLT JF ENABLED
sBRANCH IF DLT IS OK

SNABLED

sMOVE SP TO ERROR RETURN
;REPORT ERROR AND RETURN

;MOVE

SP TO NO ERROR

AND READ/WRITE

ERRORS ARE NOT

;ASSUME ERRORS ARE ENABLED
sARE ERRORS ENABLED ??

JYES

RMCSS1, $BDDAT

BI(

BIT
BNE

NEM

#-1,-(SP)
INEM,

MOV

ERROR

IT ONLY RESETS WHEN THE DESIRED

sMOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER IN CALL

¥AOE
, 5008
175%

BIC

MOV

(SP)

#32,a(SP}

JSR

051632

(SP)

RMCS21,$BODAT

MOVB
SUB

:REPORT

LBT

#AQE
, 5008
165%

ADD

180%:

BIT
BNE
BIC

BEQ
000000

IS WRITTEN

AN ERROR IF DLY IS SET
MOV
#-1,-(SP)

81T
BNE

175%:

CHECKED BECAUSE

CHECKED AS A FUNCTION OF

MOVB
170%:

000010

17727
001000

165%:

1.E.,

RMCS1 - TRE

ENABLED

:DISABLE NEM
JGET RECEIVED STATUS
sCLEAR NEM 1¢ ENABLED
JBRANCH IF NEM IS 0K
;MOVE SP TO USERS ERROR CALL

JWRITE

ERROR NUMBER

IN CALL

sMOVE SP TO ERROR RETURN

JREPORT ERROR AND RETURN
JMOVE SP 1O NO ERROR

AND READ/WRITE

ERRORS ARE

NOT

;ASSUME ERRORS ARE ENABLED
;ARE

JYES

DATA ERRORS ENABLED

ENABLED

CZRMMAQ RMOS/3/2 PCINL TST

SECONDARY ERROR CHECK SUBROUTINE

343
3644
345
366
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369

370
3N

MACRO v03.01

047640
047644
047652
047656
047660
047664
047672
047676
047700
0647704

042716
013737
062637
001412
062716
112776
162716
004736
162716

001000
001344
001142

067704
047710
047716
047720
047726
047730
047734
047742
047746
047750
047754
0647762
047766
047770
047774

012746
032737
001404
032737
001002
042716
013737
062637
001412
062716
112776
162716
004736
162716

177777
001000

051632

002000

001346

001000
001350
001142

001142

000004
000033
000002

001162

000000

000010

000004
000020
000002

190%:

000000

000010

387
388
389
390
391
392
393
394
395
396

397

BIC
MOV
BIC
BEQ
ADD
MOvVB
SuB
JSR
suB

SEQ 0199

AMXF , (SP)

:DISABLE MXF

(SP)+,$BDDAT

:CLEAR MXF

RMCSS] SBODAT
0o,

#3%,.3(sP)

032737
001403
042737

050012
050016
050024
050026
050032
050040
050044
050046
050052
050060
050064
050066
050072

012746
032737
001002
042716
013737
062637
001412
062716
112776
162716
004736
162716

398 050072
399 050076

012746
032737

002000

001366

000200

051632

177777
000200
000400

001350
001142

000004
000035
000002

051632

001142

PC a(SP)+

SP TO USERS ERROR CALL

:MOVE

SP TO ERROR RETURN

*REPORT

00, (sp)

177777
000200

DATA ERRORS ARE NOT ENABLED
;ASSUME DATA ERRORS ARE ENABLED
JARE DATA ERRORS EANBLED ??
JNO !
;1S

JYES

LBT

;DISABLE

ALSO SET

AOE

;GET RECEIVED STATUS
;CLEAR AOE IF ENABLED

sBRANCH IF AOE
;M VE

1S 0K

TO USERS ERROR CALL

sWRITE ERROR NUMBER

+MOVE SP TO ERROR RETURN
sREPORT ERROR AND RETURN
;MOVE SP TO NO ERROR
TABLE

THE

ENABLING BIT

FOR

RMERZ - BSE

HEADER COMPARE

;1S HCI

:NO

SET

INHIBIT

[S SET

JYES - DISABLE ALL HEADER ERRORS

;REPORT AN ERROR If HCRC IS SET AND HEADER ERRORS ARE NOT ENABLED
MoV
#-1,-(SP)
sASSUME ERRORS ENABLED
MHCE,500%
sARE HEADER ERRORS ENABLED ??
BIT
aNE
205%
JYES !
BIC
#HCRC, (SP)
;DISABLE HCRC

205%:

210%:

MOV
BIC
BEQ
ADD
MOvB
SuB
JSR
sus

;REPORT ERROR

051632

ERROR AND RETURN

*MOVE SP TO NO ERROR

FUNCTION CODE

JRESET THE ENABL ING BIT (HCE)
BIT
#HC] ,RMOF ]
BEQ
201%
BIC
#HCE,500%
2018:

000000

000010

1S OK

“MOVE

;HEADER ERRORS, I.E.,
RMER1 - HCRC,HCE,FER

047774
050002
050004
050012

ENABLED

*WRITE ERROR NUMBER IN CALL

#2,(SP)

;REPORT ERROR 1F AOE 1S SET AND
MOV
#-1,-(SP)
BIT
#AOE ,500%
BEQ
191%
BIT
#LBT,RMDSI
BNE
195%
1918:
BIC
#AQE, (SP)
1958:
MOV
RMER11,$BDDAT
BIC
(SP)+,$BDDAT
BEQ
200%
ADD
¥, (SP)
MOVB
#20,3(SP)
S11B
#2,(SP)
JSR
PC,a(SP)+
SuB
#10, (SP)
2008
:

‘BRANCH 1F MXF

(SP)

THE

ERROR

-GET RECEIVED STATUS

190%

;BIT 07 (HCE) OF

%;g

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

185%:

E 16

11-APR-80 13:04:53 PAG E 22-6

MoV
BIT

RMER1]1,$BDDAT
(SP)+,$BODAT

;GET RECEIVED STATUS
JRESET HCRC 1F ENABLED

¥4,

*MOVE

2108

(SP)

#35.,3(5P)

#2,(SP)

PC a(SP)+

210, (SP)
If

HCE

‘BRANCH IF HCRC IS 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

1S SET AND HEADER ERRORS ARE NOT ENABLED

¥-1,-(SP)
MHCE,500%

;ASSUME ERRORS ENABLED
;ARE ERRORS ENABLED ??

CZRMMAOQ RMOS5/3/2 FCTNL TST

SECONDARY ERROR CHECK SUBROUTINE

400
401
602
603
604
405
406
407
408
409
410

050104
050106
050112
050120
050124
050126
050132
050140
050144
050146
050152

612
413 050152
614 050156
615 050164
616 050166
417 050172
418 050200
619 050204
620 050206
421 050212
422 050220
423 050226
424 050226
425 050232
626
627
428 050232
429 050236
430 050244
431 050246
632 050252
433 050260
634 0502664
435 050266
436 050272
437 050300
438 050304
439 050306
440 050312

001002
042716
013737
042637
001412
062716
112776
162716
004736
162716

012746

032737
001002
042716
013737
042637
001412
062716
112776
162716
004736
162716

012746
032737
001002
042716
013737
042637
001412
062716
112776
162716
004736
162716

000200
001350
001142

000006
000036
000002

MACRO v03.01

SEQ 0200

001142

000000

JREPORT

051632

000020
001350
001142

001142

100000

HCE
:GET RECEIVED STATUS
:CLEAR HCE IF ENABLED

ADD

¥, (SP)

‘MOVE

2208

225%:

#36,3(SP)
#2,(SP)
PC.al(SP)+

SUB

ERROR
MOv

BIT
BNE
BIC

MHCE,500%
225%
#EER, (SP)

BIC

(SP)+,$B0ODAT

MOV

JREPORT

000004
000354
000002

000000

PC,a(SP)+

ERROR
MOV

BNE

235¢%:

FER 0K

TG USERS

ERROR

JWRITE ERROR NUMBER

sMOVE SP TO ERROR RETURN

JREPORT

ERROR AND RETURN

;MOVE SP TO NO ERROR

AND HEADER ERRORS ARE NOT ENABLED
sASSUME ERRORS ENABLED

235%

JARE THEY ENABLED ??
JYES

;DISABLE BSE

BIC
BEQ

(SP)+,$BDDAT
240%

;CLEAR BSE IF ENABLED
;BRANCH ]JF BSE 0K

MOV

RMERZ21,$BDDAT

ADD

#6,(SP)

SUB

#2,(SP)

SUB

JGET RECEIVED STATUS

#354.a3(SP)

;sMOVE SP TO USERS ERROR
;WRITE ERROR NUMBER

PC.a(SP)+

;REPORT

#10, (SP)

e’ RMCS2 - MDPE
OF THE
RRORS,

FUNCTION
I.E.,

RMERT

- DCK,ECH

CALL

IN CALL

#BSE, (SP)

MOVB
2640%:

#HCE,S500%

STATUS

ENABLED

Bil

JSR

000010

BSE IS SET
#-1,-(SP)

RECEIVED

JRESET FER IF
JBRANCH IF

#10, (SP)
1F

;GET

sMOVE

¥2.,(SP)

SuB

BIT

051632
001142

JSR

SUB

230%:

001376
001142

230%

#37,9(SP)

1S OK

SP TO USERS ERROR CALL

AND HEADER ERRORS ARE NOT ENABLED
sASSUME FER IS ENABLED
+ARE HEADER ERRORS ENABLED ??
JYES !!
;DISABLE FER

#4,(SP)

MOVB

*BRANCH IF HCE

*MOVE SP TO NO ERROR

RMER1]1,$BDDAT

ADD

000000

FER IS SET
#-1,-(5P)

;Y
;D

‘WRITE ERROR NUMBER IN CALL
*MOVE SP TO ERROR RETURN
‘REPORT ERROR AND RETURN

#10, (SP)

BEQ

000010

177777
000200

MOV
BIC

215%
#HCE, (SP)
RMER11,$B0ODAT
(SP)+,$BDDAT

MOVB
SUB
JSR

220%:

000200

000004
000037
000002

215%:

BNE
BIC

8EQ

000010

177777

F 16
11-APR-80 13:06:53 PAGE 22-7

CODE

CALL

;MOVE SP TO ERROR RETURN
ERROR AND

RETURN

;MOVE 5P TO NO ERROR
TABLE

THE

ENABLING BIT

FOR DATA

N AN N N NN
S ANMNIND
=t —2
OO SO N

j=lelelele
o]

455
456

=l=lelelelal

(¥

éNOTE:
EE? CANNOT SET UNLESS IT IS ENABLED AND ECI IS RESET AND
iDCK IS
177777

;REPORT ERROR IF MDPE 1S SET AND IS NOT ENABLED

000100

051632

000400
001344
001142

001142

245%:

MOV

#-1,-(SP)

MOV

RMCS21,$BDDAT

BIT
BNE
BIC

BIC

;ASSUME ENABLED

¥ECH,500%
245%
#MDPE , (SP)

*ARE DATA FIELD ERRORS ENABLED ??
SYES '

(SP)+,$BDDAT

:CLEAR MDPE IF ENABLED

*DISBALE MDPE
:GET RECEIVED STATUS

CZRMMAD RMOS5/3/2 FCINL TST

SECONDARY ERROR CHECK

6457
458
6459
6460
461
662

050344
050346
050352
050360
050364
050366

463 050372

001412
062716
112776
162716
004736
162716

SUBROUTINE

000004
000027
000002

MACRO v03.01

BEQ

000000

500 050552
501

0127646
032737
001002
042716
013737
042637
001412
062716
112776
162716
004736
162716

177777
000100

100000
001350
001142
000004
000030
000002

250%:
;REPORT

051632
001142

255%:

SUB

#10, (sP)
IF

#ECH,5008
255%

BIC

051632

004000

001366

000100
001350
001142

001142

000004
000031
000002

000000

265%:
270%:

AN D DATA FJELD ERRORS
sASSUME ENABLED
JARE THEY ENABLED
JYES !!

ARE

¥4, (SP)

;MOVE SP TO USERS ERROR CALL

;BRANCH

DCK

]S OK

#30.a(sp)
N2, (SP)

JWRITE ERROR NUMBER

SuB

#10,(SP)

;MOVE

ECH

SET

IN CALL

JMOVE SP TO ERROR RETURN
JREPORT ERROR AND RETURN

PC,a(SP)+

ENABLED

(SP)+,$BDDAT

2608

ERROR

NOT

Move
SUB

TO NO ERROR

AND,

DATA FIELD ERRORS ARE NOT ENABLED, OR
ECI

BIT
BEQ
BIT
BNE
BIT
BNE
bIC
MOV

81C

IS SET, OR

IS NOT SET.
#-1,-(SP)

RECH,500%
265%
#ECI ,RMOF]
265%
#DCK,RMER1]
270%
NECH, (SP)
RMER11,$BDDAT

JYES

SET ??

;IS DCK ALSO SET 77

PC,3(SP)+

JREPORT

MOvB
SuB

#31,3(SP)
N2, (SP)

SuB

;1S EC]

JYES

?7?

N6, (SP)

(SP)+,$BDDAT

275%

JSR

JASSUME ENABLED
;ARE gRRORS ENABLED
JNO !

;DISABLE ECH
sGET RECEIVED STATUS
sCLEAR ECH IF ENABLED
sBRANCH IF ECH IS 0K
JMOVE SP TO USERS ERROR CALL

BEQ
ADD

275%:

:MOVE SP TO NO ERROR

RMER11,$BDDAT

BIC

DCK
MOV

001350

;WRITE ERROR NUMBER [N CALL
;MOVE SP TO ERROR RETURN
sREPORT ERROR AND RETURN

sDISABLE DCK
JGET RECEJVED STATUS
sCLEAR DCK IF ENABLED

#DCK, (SP)

MOV

JSR

260%:

DCK IS SET
#-1,=-(SP)

MDPE OK

;MOVE SP TO USERS ERROR CALL

PC a(SP)+

ERROR
MOV

SEQ 0201

;BRANCH IF

(SP)

#27,3(SP)

ADD

000000

177777
000100

000010

#2,(SP)

BIT
BNE

‘

004736
162716

SuUB

BEQ

000010

100000

N6,

MOVB

;REPORT

012746
032737
001410
032737
001004
032737
001002
042716
013737
042637
001412
062716
112776
162716

2508

ADD

JSR

000010

464

665
666 050372
6467 050376
468 050404
569 050406
470 050612
471 050420
472 050624
673 050426
474 050432
675 0506440
476 050444
477 050446
478 050452
479
480
«81
4,82
483
684 050452
485 050456
486 050464
487 0506466
488 050474
489 050476
490 050504
491 050506
692 050512
6493 050520
494 0505264
495 050526
496 050532
497 050540
498 050544
499 050546

61 6
11-APR-80 13:04:53 PAGE 2 2- 8

70, (SP)

JWRITE ERROR NUMBER IN CALL
;MOVE SP TO ERROR RETURN
ERROR AND

RETURN

JMOVE SP TO NO ERROR

CZRMMAQ RM05/3/2 FCTINL TST

SECONDARY ERROR C(HECK

SUBROUTINE

MACRO v03.01

H 16

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

SEQ 0202

* """'."'."""""""""."'.""fi""""."""""""

:*PERFORM THE REMAINING ERROR CHECKS ONLY FOR DATA TRANSFER COMMANDS

" I A A RS

RSl

2R R AR

A R R E A

AR R RN RN X

5 050552
6 050560
g 050562
9

10 050566

11 050574
12 050576

022737
103402
000137

000030

013737

001336

00'142

040000

001334

13 050604
14 050606

001421
032737
001015
062716

17 050626
18 050630
19 050632

162716
004736
162716

15 050612
16 050620

S? 050636

112776
005037

000240

051640

CMP
BLO
JMP

05160¢

000004

000015
001140

;REPORT ERROR IF

280%:

000000

000002

;WAS DATA TRANSFERRED ?
;BR If YES
sNO = EXIT

RMWC NOT ZERO AND TRE

IS ZERO

MOV

RMWC1,$BODAT

<WORD COUNT ZERO??

MOvB
CLR

#15,3(SP)
$GDDAT

:ERROR NUMBER
;600D DATA FOR TYPEOQUT

BEQ
BIT
BNE
ADD

suB
JSR
SuB

000010

NSEARCH,515%
280%
355%

NOP

285%
#TRE ,RM(ST]
285%
rs, (SP)
N2, (SP)
PC,a(SP)+
#10, (SP)

JYES
; TRANSFER ERROR DETECTED??
JYES!!

;MOVE SP TO RETURN FOR ERROR
;REPORT WORD COUNT NOT ZERC
;RESTORE (SP)

22
23 050640
24 050646

013737
163737

001336
0016412

001140
001140

%9 050660

063737

001414

001140

ADD

ASL

$GDDAT

i 2

BIT
BEQ
MOV

NBA] ,RM(CSZ2I
290%
RMBAO, $GDDAT

;WAS BUS ADDRESS INHIBIT (BAI) SET
.NO !!
sADDRESS SHOULD NOT HAVE CHANGED

(MP
BEQ
MOv
ADD
MOVR
SuB
JSR
suB

$GDDAT ,RMBA]
295%
RMBAI,$BDDAT
#4, (SP)
#16,3(SP)
¥2,(SP)
PC,a(SP)+
#10, (SP)

;BUS ADDRESS 0K??
JYES..
;BAD DATA FOR TYPEOUT

25 050654

006337

001140

28 050666
29 050674
%? 050676

032737
001403
013737

000010

001344

001414

001140

32
33
34
35
36
37
38
39

050704
050712
050714
050722
050726
050734
050740
050742

023737
001416
013737
062716
112776
162716
004736
162716

001140

001340

001340
000004
000016
000002

001142

42
43 050750
44 050752
42 050756

005046
013746
163716

47 050762
48 050766
49 0507764

012746
032737
001402

000400
000002

062716

000002

52 051002
53 051006
54 051012

005266
161666
003373

900004
(00002

4? 050746

000240

K
)

;REPORT ERROR IF RMBA ]S NOT CORRECT
285%:
MOV
RMWC],$GDDAT
;GET WORD COUNT AT END OF TRANSFER AND
suB
RMWCO,$GDDAT
;SUBTRACT STARTING WORD COUNT,

290$:

000000

000010

NOP

RMBAO,$GDDAT

:ADD STARTING BUS ADDRESS
??

;ERROR NUMBER
;MOVE SP TO RETURN FOR EF (OR
;REPORT UNEXPECTED ADDRESS
;RESTORE (SP)

g? 050776

25 051014
6

022626

; COMPUTE NUMBER
295%:
(LR
MOV
suB

001336
001412
001410

Mov
BIT
BEQ

#256.,-(SP)
#BIT1,RMCS10
300%

+ASSUME 256. WORDS PER SECTOR
HEADER £ DATA COMMAND ??
:NO

INC

4 (SP)
(SP),2(SP)
3009

s INCREMENT SECTOR COUNT
:SUBTRACT ONE SECTOR'S WORTH
. (ONTINUE IF NOT DONE

ADD

3008$:

OF SECTORS TRANSFERRED FROM WORD COUNT
=(SP)
+NUMBER OF SECTORS TRANSFERRED
RMWC],=(SP)
;GET WORD COUNT AT END OF TRANSFER AND
RMWCO, (SP)
:SUBTRACT STARTING WORD COUNT.

SuB
BGT

(mp

#2,(SP)

(SP)+,(SP)+

;COMPUTE EXPECTED SECTOR,

CHANGE T0 258. WORDS PER SECTOR

;RESTORE

STA(K

TRACK AND CYLINDER ADDRESS FROM

CZRMMAO RM0S5/3/2 FCTNL TST

SECONDARY

ERROR CHECK

58
59 051016
60 051026

SUBROUTINE

MACRO v03.01

SEQ 0203

013737
013737

001444
001416

013737
000337
005237

001332
051642
051642

001416

051636

051056
051064
051070
051076

042737
000337
062737
062637

000377
051634
177400
051636

051634

71 051102
72 051110

023727
103406

051636

76 051116

162737

000040

051636

051634

051642

051632
051642

051634

61 051032

62 051040
63 051046
gg 051052
66
67
68
gg

73 051112

013737

005237

;2 051124

000766

77 051126
78 051134
79 (51136

023737
103407
005237

80 051142
81 051150
g§ 051152

163737
000766
000240

051634

051632
051636

86
87
88
89
90
91
92
93
94
95
96

000040

005037
023727
101407
032737
001003
012737
013737
042737
023737
001413
062716

98 051246
99 051250

162716
004736

}85 051256

000240

100 051252

103

104 051260

105
106
107
108
109
110
111
112
113
114

051264
051272
051274
051302
051304
051310
051312
051316
051320
051326

RMDAO.510$

BIC
SWAB
BIC
ADD

#*C<TADMSK>,505%
;SAVE TRACK ADDRESS BITS AND
505%
:SWAP TRACK ADDRESS TO LOW BYTE.
#AC<SADMSK>,5108
:SAVE SECTOR ADDRESS BITS
(SP)+,510%

(MP
BLO

510%,#32.
315¢

;SECTOR OVEFLOWED??
INO!
!

SUB

#32..,5108
3108

*ADJUST SECTOR

STRY AGAIN

CMP
BLO
INC
SUB
BR
NOP

505%,520%
3208
500

;TRACK OVERFLOWED??
INO!!
*INCREMENT CYLINDER

MOV
SWAB
INC

051636
3108:

INC

BR
215%:

112776

001140
051632

001466

002000

€01350

002000
001346
175777
001140

001140
001142
001142
001142

000004

000017

000002

162716

000010

005037

001140

032737
001031
023727
101425
005737
001012
005737
001007
032737
001413

5208:

000000

CLR
CMP
BLOS

BIT
BNE
MOV
MOV

BIC
CMP
BEQ
ADD

:REPORT

001350

051632

001466

051634
051636
051640

505%

:STORE ORIGINAL SECTOR

SSTORE LAST TRACK,
;GET TRACK ADDRESS TO LO BYTE AND
*INCREMENT TO GET TOTL # OF TRACKS.

S INCREMENT TRACK

520%,505%
315%

SADJUST TRACK
STRY AGAIN

"‘LBT'* IS NOT (ORKECT
$GDDAT
5008 ,#822.
325%
#1AE ,RMER1]
325%
NLBT,$GODAT
RMDSI,$BDDAT
#~CLBT,$BDDAT
$GDDAT,$BDDAT
330$
¥4, (SP)

;SET GOOD DATA FOR LBT = 0
:SHOULD LBT BE SET??
*NO!!
‘WAS IAE SET 27
$YES - LBT SHOULD NOT BE SET
:SET GOOD DATA FOR LBT = 1
:BAD DATA FOR TYPEOUT

:IS LBT CORRECT??
SYES!!

#17.,3(SP)

:ERROR NUMBER

SUB

210, (sP)

*RESTORE (SP)

SUB
JSR

$30%:

LSTRK,5208
5208
5208

MOVB

NOP

002000

000010

325%:

:STORE ORIGINAL CYLINDER
:STORE ORIGINAL TRACK

MOV

-REPORT ERROR IF

051154
051160
051166
051170
051176
051200
051206
051216
051222
051230
051232

97 051236

:NUMBER OF SECTORS
MOV
RMDCO, 5008
MOV
RMDAO.505$

051642

8¢

85 0511564

1 16
11-APR=80 13:04:53 PAGE 23-1

ERROR 1F

CLR

BIT
BNE
CMP
BLOS
ST
BNE
ST
BNE
BIT
BEQ

#2,(SP)
PC.a(SP)+

''AOE' 1S

$GDDAT

:MOVE SP 70O RETURN FOR ERROR
:REPORT LBT IS WRONG

INCORRECT

#1AE ,RMER1]
340$
5008 ,#822.
340%
505%
3364
5108
335%
#F2,515%
3406

:SET FOR AOE = 0

‘WAS "'IAE'' DETECTED??
:YES-""AOE'* SHOULD BE ZERO
:SHOULD AOE BE SET??
INO!!
*MAYBE
SYES
SYES !
*WAS THIS READ OR WRITE
‘NO ..

CHECK

?7?

CIRMMAOC RM0S5/3/2 FCINL TST

[a V1, W], 8]

—

051636
0
0
0

001350

013737
000337

051634
(01140
051636
001342
001140

001140

s NN

[o JV R NE NE N}

002000

—

N
NO

000010

(o o Yo No
BWANWN
OO

—

el ol

(SaRV LV AV, ]

335%:
340%:

RMWCI

;WAS ALL DATA TRANSFERRED

MOV

#AQE ,$GDDAT

sSET

MOV

RMER11,$BDDAT

;BAD DATA FOR

BEQ

3409

CLR
MOv
BIC
CMP
BEQ

#20,a(sp)

;ERROR NUMBER

SUB

710, (sP)

:RESTORE (SP)

¥,

ERROR
BI1

BNE

CMP
BEQ
ADD

(=]
[=]
o

3
6
6
2

000004
000022
000002

6
0

000010

6
6

000004
000000

3
062716
162716

000000
000000
000000

000000

£
RO
O

—
)
—

—

——
) c—
—

QOO0
OOOO

7
7
7

ERROR
MOV

BIC

#10, (SP)

#4,(SP)

JSR

PC,a(SP)+

NOP

000004

500%:
505%:
510%:
515%:

:ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR
*REPORT BAD DISK ADDRESS

:RESTORE (SP)

355%

CYLINDER

;SETUP RECEIVED CYLINDER
;COMPARE CYLINDERS

;BRANCH IF EQUAL

#22,3(SP)
#2,(SP)

;:ERROR NUMBER
;MOVE SP TO RETURN FOR ERROR

#10, (SP)

;RESTORE

;REPORT BAD

CYLINDER

(SP)

ADD
1518

¥4, (SP)
a(SP)

;MOVE (SP)
:WAS ERROR

TO ERROR CALL
FOUND??

ADD

¥4,

(SP)

;MOVE

(SP)

TO ERROR

(SP)

TO NO ERROR RETURN

BEQ

3608:
365%:

¥~C1777,8GDDAT

ADDRESS

:COMPARE EXPECTED & RECEIVED
:BRANCH If EQUAL

RMDC 1S INCORRECT
500%, $GDDAT
;SETUP EXPECTED

ADD

SUB

000004

;SETUP RECEIVED DISK

RMDCI,$BDDAT
$GDDAT,$BODAT

MOVB
SUB

355%:

RMDAI,$BDDAT

MOV
CMP

BEQ
000000

:SETUP EXPECTED DISK ADDRESS

#4,(SP)

SYES - DONT CHECK RMDA,RMD(C

505%,8GDDAT

#21,a(sP)
#2,(5P)
PC.a(SP)+

SUB

CORRECTY??

CORRECT
:WAS THERE AN IAE ERROR ??

$GDDAT,$BDDAT
350¢

MOvB
SUB
JSR

JREPORT

RMDA 1S NOT
N1AE,RMER1]

TYPEOUT

:MOVE SP TO RETURN FOR ERROR
*REPORT AOE 1S WRONG

$GDDAT
5108 ,98GDDAT

MOV

350%:

(SP)

355¢

NOP

051632
176000
001370
001140

SYES!!

82, (SP)
PC.a(SP)+

SWAB
MOvVB

000000

Move

MOV

001140
001142
001142

FOR AQOE

;CLEAR EXPECTED TRA(K
;EXPECT SECTOR = 1

;1S AUE

NOP
:REPORT

#~CAOE ,$BDDAY
$GDDAT,$BODAT
3458

SUB
JSR

345%:

JYES

505%
”1,510%

ADD

000000

000004
000020
000002

001140
OOoO

OO WNWNNNNNNO b

NN NNNNS NNNNO
NS ~
Bt
= N b — LN N NN N — w

O—=O—=—-000C0CO0O0O0OO o
OO —C0ONSL
=2 —O—O o
QORI L~ PUNIND — NNV NPOANNY
— wn

001140

TST

032737

~
~

=2 ONNO OV
S
PO~
ONOOTO

176777

162716

SEQ 0204

000010

~
w

w
v,

—

sd
d
ed
e
o
e
e
e
e
s
e
ed
-

VIV
S S S
S

001000
051634
000001
001350

000004
000021
000002

—

il e

AVALV LV LV LU LV LV LV LV LV, 2V, }

(UM
LV RV)LVelLVwdLV,b.}
— el ol

OO0O0O0OO0OO0OOOOCO
OOC0O0OO0O0O0O
QOO0

I
3

D e
i S

) ol it el O

D el

el i

el il

) el

il il

RNl Yo Yo Yo Xo Yo No Yo No N JV TV TV IV IV IV IV IV TV TV I

il el

J 16
11-APR-80 13:04:53 PAGE 23-2

001336

e Yo Yo Yo Yo Yo Yo BNe SV TV IV IV IV IV IV IV IV IV ]
NNV =t e O
ONNNO
VNS
NN
OMrNNOSOS
NSNS OOMNS

) i

il el

W TV IV LV IV IV IV IV IV |

SUBROUTINE

112776
162716

) el

CO000ODDOO0OOOD

85BN B 8BS 8 BN NININNN

lelelelolalelalelolalelelols)
(SR VALV LV LV LV LV IV IV LV IV IV, LV IV, IV ]

(PR RV IV LV

WS NN —= OO 00~
NS WA= OO0~
—=C 0ONOWVNEWN—=O VNV R W —OOVONO NS WNI—OO0VO N

ERROR CHECK

MACRO v03.01

30 3

d o

e e

¥ 5 58 BB

d el el o

D e e

ish

D s

nd s b

D end

d e

NN N NN N N N N N N PO N PO P PO PO RO NN — — —

s 2

SECONDARY

SUB

360%

365¢

RTS

#G6, (SP)

;MOVE

.WORD
WORD
WORD
WORD

O
0
0
0

sCYLINDER
: TRACK
;SECTOR
;FUNCTION CODE

RETURN

CZRMMAO RM05/3/2 FCINL TST

SECONDARY

ERROR CHECK

172 051642
1;3

174

000000

SUBROUTINE

MACRO v03.01

K 16
11-APR-80 13:04:53 PAGE 23-3
SEQ 0205

520%:

.WORD

:# OF TRACKS FOR DEVICE UNDER TEST = [AST
sTRACK + 1 TRA(K

CZRMMAQ RM0OS/3/2 FCINL TST
CHECKX

SUBROUTINE

L 16

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

—

ERROR

MACRO v03.01

LSBTTL

COMPOSITE

:THIS

SEQ 0206

COMPOSITE ERROR CHECK SUBROUTINE
SUBROUTINE

CHECKS

THE

STORED

CONTENTS OF

RMER1

AND

;RMER2 AFTER MASKING EACH REGISTER WORD WITH THE USER'S STATUS
;MASKS AND REPCRTS AN ERROR IF ANY BITS ARE LEFT ON AFTER

NS WA= OO~

: THE

MASKS ARE

e g}

;CALL:
(D

JSR

.WORD
.WORD
BR
NOP
ERROR
JSR
M7

PC,CMPERRSTS

MM
PC,a(SP)+

MASK FOR ERROR REGISTER 1
MASK FOR ERROR REGISTER 2
RETURN HMERE IF NO ERROR
RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DEFINED By SUB
GO BACK TO SUB FOR MCRE ERROR CHECKS
RETURN HERE IF NO MORE ERRORS

JNOTE:
BITS TO BE MASKED SHOULD BE ONE; BITS TO BE TESTED SHOULD
;BE lERO
051644

047637

001350
000000
000002
001376
000000

000006
000000

005737
001420
013737
005037
062716

001176

~NO~

— Ty —b

062716
013737
047637

— -

[egl =T

b
—

—_O0
=¥ Y

NNSNNNNN

——
=
=l
e
D
)
)
el
il
el

VAN
NS WA VAN NN

=lelelolalelololelele)

013737

QOO

051644
051652
26 051660
051664
051672

[a AV ], V)

CMPERRSTS:

AV
ALV
LV ]

[RV],N]1,9 1,0 ], ¥ ]

NS WN =00

i G-

;
.
;
.
.
.
.

APPLIED.

112776
162716

004736

JMASK

AND STORE
MOV

8IcC

ADD

MOV

001200
001200

BIC

001176
001140
000004
000066
000002
000010

005737
001420

G01200

013737
005037
062716

001200
001140
000004
000067

THE CONTENTS OF
RMERTI ,$TMPI

RMER1
;STORE

#2,(SP)

JMOVE

a(SP),sTMP1

RMERZ2]I ,$TMP?2

a(SP),8TMP?

;CLEAR USER'S ERROR CALL
ADD
CLRB
Sus

000004

162716
000240

112776

001176
001176

;SEE

18T

MOV

5%:

;SEE IF

;STORE RMERZ2 AT TEMP STORAGE
:MASK RMER?

;MOVE SP T0 USER'S ERROR CALL
;CLEAR ERROR NUMBER
;LEAVE SP AT NO ERROR RETURN
;ANY ERRORS

$TMP1,$BDDAT

JRECEIVED STATUS FOR

$GDDAT

MOvVB
suB
JSR
suB

#66,3(SP)
¥2,(SP)
PC,a(SP)¢
#10,(SP)

NOP

1.E., $TMPI

$TMP1

CLR

ADD

000000

RMER1

SP TO NEXT MASK

THERE WERE ANY ERRORS IN RMER1,
BEQ

001142

N6, (SP)
a(SP)
86, (SP)

;MASK

AND RMER?
RMER1 AT TEMP STORAGE

#4,(SP)

JNO

TO REPORT??
TYPEOUT

JEXPECTED STATUS FOR TYPEOUT
sMOVE

SP T0 USER'S ERROR CALL

;CORRECTABLE DATA CHECK ERROR #
;MOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER
;MOVE SP BACK TO BRANCH

THERE ARE ANY ERRORS TO REPORT IN RMERZ ($TMP?2)
TST

$1MP2

;ANY ERRORS IN RMER??

001142

MOV

000000

MOvVB

$TMP2,$BODAT
$GDDAT
¥4, (SP)

;RECEIVED STATUS FOR TYPEOUT
;EXPECTED STATUS FOR TYPEQUT
;MOVE SP TO USER'S ERROR CALL

BEQ
CLR

ADD

108

#67,3(5P)

JNO!!

*WRITE ERROR NUMBER IN USER'S (ALL

CIRMMAQ RM0S5/3/2 FCTINL TST 1

COMPOSITE ERROR CHECK

SUBROUTINE

58 052014
59 052020

16.
6
004/ $6

000002

61 052026
2% 052030

000240

60 052022

65
66
67
68
69
70
71

052030
052034
052040
052062
052046
052050
052054

162716

062716
105776
001403
062716
000402
162716
000207

MACRO v03.01

1
B
11-APR-80 13:04:53 PAGE 24-1
SUB
JSR

000010

SUB

108 :
000004
000000

;AUGMENT

000004
000004

20%:

30 :

NOP

#2,(5P)
PC a(SP)+

010, (sP)

THE RETURN ADDRESS

ADD
1518
BEQ
ADD
BR
SUB
RTS

:MOVE SP T0 RETURN FOR ERROR
:REPORT ERROR VIA USER

i, (SP)
a(SP)
208
84, (SP)
30$
G, (SP)
PC

:MOVE SP TO NO ERROR RETURN

ANY ERROR WAS DETECTED

;MOVE SP TO USER'S ERROR CALL
;WAS THERE AN ERROR CALLED??
*NO!
.
*YES - MOVE SP TO ERROR RETURN
:MOVE SP TO NO ERROR RETURN
‘RETURN TO USER

SEQ 0207

CZRMMAQ RMO5/3/2 FCTINL TST

DEVICE SELECT

MACRO vC3.01

—

SUBROUTINE

052056
? 62716
05076
1 62716

000004
000000
000004

NNV
O O WA

000004
000006

000004
00011

000010
000010

200
06
10

032737
001021
062766

004000

001176

000407

000004
000112

000010
000010

052226
45 052230

022626
062766

——

—

AL LN
AUV
VIV

—

062766
~
~

001174

010000

NRLNRNIN

RETURN IF
RETURN IF

NO ERROR
ERROR

ERROR DEFINED BY SUBROUTINE

112776

112776
162766

000004
000006

000113
000002

10%:

ERRVEC,=(SP)

;;PUSH ERRVEC

R1,-(SP)

:.PUSH R1 ON STACK

ERRVEC+2,-(SP)
RO,=(SP)

MOV
MOv
MOV
Mov

#20% ,ERRVEC
¥PR6,ERRVEC+2
$BASE RO
TSTQUE ,R1

000010
000010
000010

20%:

508:

CALL

STACK

; cPUSH ERRVEC+2 ON STA(K
: sPUSH RO ON STA(K

;SETUP FOR BUS

TIMEOUT

;RO = UNIBUS ADDRESS
;R1 POINTS TO DEVICE NUMBER

IS AVAILABLE

MOvB
MOV
MOV

(R1) ,RMCS2(RO)
;WRITE UNIT SELECT BITS
RMCS1(RO),$TMP1 ;GET ''DVA'' STATUS
RMCS2(R0O),$TMPO ;GET ''NED'' STATUS

BIT
BEQ
ADD
MOov8
BR

#NED,$TMPO
10$
¥4 ,10(SP)
#111,310(SP)
30%

;1S DEVICE NONEXISTENT ?
.NO!!
;MOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER

BIT

#DVA ,$TMPI

:1S DEVICE

ADD
MOvB

¥4, 10(SP)
#112,310(SP)

sMOVE SP TO USERS ERROR CALL
;WRITE ERROR NUMBER

BNE

S§§STORE

000006

:MOVE SP TO USER'S ERROR
:CLEAR LOW ORDER BYTE OF
;MOVE SP BACK

JSELECT DEVICE AND VERIFY THAT DEVICE

;HANDLE

000004

K4, (SP)
a(SP)
¥4, (SP)

MOv
MOv

MOov

e
e
o
d e

-t

(=]

2737

[=loleleoloBolaleloloBNolels

ERROR

MOV

001176
00%17¢4

052236
052244

PC,DEVSEL
7?

sSAVE USER'S INFORMATION AND SETUP REGISTERS

000010
000000
000010

JSR
BR
NOP

ADD
CLRB
sus

PONMNNUNY

746
746
—

NS 1aN 101,01,
V1, ], ¥
MO ~NO NI NN
—

QUEUE.

;CLEAR USER'S ERROR CALL

160
037
037

162

SUBROUTINE

DEVSEL:

COOOOOOO

d cd cscd e
=D crd

052056
052062
052066

SEQ 0208

THIS SUBROUTINE SELECTS THE DEVICE, GETTING THE DEVICE NUMBER FROM THE

TEST

. (&)

052226
000300
001276
001464

W
»

DEVICE SELECT

:(1)
:(2)
:(3)

d s

NN = OO 00 NO

N LSNP

.SBTTL

37
37
00
01

.1
¢
11-APR-80 13:04:53 PAGE 25

BUS

CMP

ADD
MOvB

SuB

35%

30%

TIMEOUT

(SP)+,(SP)+

¥4 ,10(SP)
¥113,310(SP)

#2,10(sP)

JYES!!

AVAILABLE

;ADJUST SP

;MOVE SP TO USERS ERROR CALL
;WRITE BUS TIMEOUT ERROR NUMBER

;ADJUST RETURN TO 'NOP' PRECEDING

;THE

ERROR

CALL

USERS DATA AND RETURN TO ADDRESS ON STA(K

MOv
MOV
MOv

(SP)+,R1
(SP)+,RO
(SP)+ ,ERRVE(+2

:.POP STACK INTO R1
;;POP STACK INTO RO
:;POP STACK INTO ERRVE(C+?

CIRMMAO RM05/3/2 FCTNL TST

DEVICE SELECT

052262
2% 052266

SUBROUTINE

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

CIRMMAQ RM0S5/3/2 FCINL TST

SEEK

STATUS

CHECK

SUBROUTINE

MACRO v03.01

1
E
11-APR-80 13:04:53 PAGE 26

SEQ 0210

.SBTTL

;:THIS SUBROUTINE VERIFIES THE RESULTS OF

;AFTER HAVING LOADED THE APPROPRIATE ERROR NUMBER IN THE ''ERROR'' TRAP

SEEK STATUS CHECK SUBROUTINE

;STORED

;THE

;OF

IN THE

THE

sCALL:

CALLING ROUTINE.

: (1)
:

JSR
BR

15
16

;
:

ERROR
JSR

21
22
23
24
25
5?

NOP

58 052270

052270
052272
052276
052302
052306

28
29
30 052312
31 052320

000240
062716
105076

162716
005037

03273
001424

000004
053526

000010

001350

001376

000010

35
36 052332
37 052336
38 052344

005037
013737
062716

0C1140
001350
000004

40 052356
41 052362

162716
004736

000002

2; 052370

000437

62 052364

001020

112776
162716

45
46
47 052372
48 052400

012737
052737

50 052414

101025

49 052406

77?

023727

;CLEAR USERS'
NOP
ADD
CLRB
SUB
CLR

000004
000000

032737

39 052350

SEEK

TESTS USING STATUS

PARAMETERS

STORED

SEEX

STATUS

IN THME

PUT BUFFER.

AN ERROR

IS DETECTED

IS CHECKED AS FOLLOWS:

PC,SEKSTS
772

RETURN HERE

PC,a(SP)+

ERROR NUMBER DEFINED BY SUB
GO BACK TO SUB FOR MORE ERROR

RETURN HERE

NO ERROR

TO REPORT

AN ERROR

RETURN HERE IF NO MORE ERRORS

[HECKS

SEKSTS:

32 052322

gz 052330

BUFFER AND TEST

SUBROUTINE RETURNS TO THE CALLING ROUTINE

12
13

GET

000050

001142

000000

000010

002000
040000

001444

001466

#4,(SP)
A(SP)
#s,(SP)
300%

;MOVE (SP) TO ERROR CALL
;CLEAR ERROR NUMBER

;MOVE (SP) TO NO ERROR RETURN
;CLEAR ERROR FLAGS

;TEST FOR MASSBUS CONTROL BUS PARITY ERROR WHEN WRITING
;LOCAL REGISTERS, I1.E., "PAR" = 1 AND 'DPE'' = 0
BIT
#PAR,RMER1]
uAs PARITY ERROR DETECTED??
BEQ
1%
NO.!

BIT
BNE

#DPE ,RMER?2]
1%

*WAS IT DUE TO CONTROL BUS??
:NOT SURE!'!

;REPORT REGISTER PARITY ERROR VIA USER'S ERROR CALL
CLR
$GDDAT
:EXPECTED STATUS
MOV
RMER11,$BDDAi
;RECEIVED STATUS
ADD
06, (SP)
;MOVE STACK TO USER'S ERROR
_

MOVB

#50,a(sP)

SuB

06, (sp)

SuB
JSR

001140
053526

ERROR CALL

#2,(SP)
PC,R(SP)+
3s

:ERROR #50
:MOVE

SP TO RETURN FOR ERROR

;RESTORE STACK

;JAE SHOULD

ZERO

;DETERMINE THE VALUE OF °‘'IAE'' STATUS BASED ON TRACK,
JALSO, SET ''SKI'' IF CYLINDER ADDRESS IS TOO LARGE.
1$:
MOV
#1AE,$GDDAT
;SETUP FOR JAE = 1
BIS
#5x1,300%
JSETUP FOR SKI = 1

SECTOR AND CYLINDER

CMP

RMDCO, #822.

“GREATER THAN LAST CYLINDER ?

BIC

#5k1,300%

;CLEAR SK] ERROR FLAG

BHI

sYES = CYLINDER IS

INVALID

g; 052416

042737

060000

053526

53 052424
gg 052432

123737
101016

001417

001333

CMPB
BHI

RMDAO+1,LSTRK+1
3%

;GREATER THAN LAST TRA(CK ?
:YES - TRACK IS INVALID

56 052434
57 052642

123727
101410

001416

000035

CMPB
BLOS

RMDAO, #29.
2%

:SECTOR > 29.
:BR IF NO

CZRMMAO RM05/3/2 FCTNL TST

SEEK

STATUS

58
59
60
g;

CHECK

SUBROUTINE

MACRO v03.01

052644
052452
052456
0526462

032737
001406
123727
101002

010000

001442

001416

000037

gz 052664

005037

001140

66 0526470

013737

001350

001142

70
71
72
73
74
75

042737
000413

040000

053526

052524
052530

062716
112776

000004
000051

77
78
79
g?

052542
0525644
052550
052552

004736
162716
000240

67 052476
68 0525064
69 052512
052514
052522
052524

76 052536

82
83
84

85 052552

86
87
88
89

90
91
92
93
94
95

052560
052562
052566
052574

042737
023737
001004

162716

032737

001427
005037
013737
062716

175777
001140

000002

2%:
001142
001142

000000

010000

001376

001140
001376
000004

001142

3; 052636

000240

162716

000010

99
100
10°
102
}82

052640
052646
05265¢
052662
052670

013737
062737
013737
042737
001417

001376
137777
053526
137777

001142
001142
001140
001140

052672
052700

032737
001032

040000

001142

000004
000267
000002

000000

052702
052706
052714
052720

112 052722

113 052726
114 (52730

062716
112776
162716
004736

162716

000443

000060
000100

000000
001346

000061
000002

000000

000010

817
BEQ
CMPB
BHI

NFMT16,RMOFO
3
RMDAO,#31.
{3

;18 BIT FORMAT ?
:YES - SECTOR 1s INVALID FOR 18 BIT MODE
“SECTOR > 31.
JYES - SECTOR 1s INVALID

CLR

$SGDDAT

;"'1AE"' SHOULD = 0

EXPECTED AND RECIEVED "'IAE'' STATUS

MOV

RMER11,$BODAT

;1S IAE OK??

BIC
BR

#5K1,3008
5¢

:CLEAR SKI FLAG
:60 CHECK NEXT ERROR

Bl.
CMP
BNE

#~CIAE.SBODAT
$GODAT.SBODAT
35¢

:SAVE [AE BIT FOR COMPARE
:CORRECT "'IAE'’ STATUS ?
‘BR IF NO

INCORRECT ''IAE'" STATUS VIA USER'S ERROR CALL
ADD
MOVB

#4,(SP)
#51,3(sP)

JSR
SUB
NOP

PC,a(SP)+
010, (sP)

SUB

000010

112776
032737
001403
112776
162716
004736

105
106
107
108
109
110
111

. COMPARE

3$$:

35
JREPORT

052600
052606
052614
052616
052624
052630

96 052632

F
11-APR-80 13:04:53 PAGE 26-1

#2,(SP)

:ERROR 51

*MOVE SP TO RETURN FOR ERROR
JREPORT

INCORRFCT ]AE
:RESTORE (SP)

JREPORT ANY 1v( ERROR AS
M
IvC ERROR WITH VOLUME VALID ZERO
;
ERRONEOUS IVC ERROR, VOLUME VALID

. BIT

#1VC,RMER?2]

BEQ
CLR
MOV
ADD
MOVB

51%:

52%
$GDDAT
RMER21,$BDDAT
N4, (SP)

#60,3(SP)
NVV.RMDS
1
51
#61.3(SP)
N2, (SP)
PC,a(SP)+

BIT
BEQ
MOVB
SUB
JSR

SUB

NOP
52%:

MOV
BIC
MOV
BIC
BEQ

;REPORT ERROR
BIT
BNE
ADD
MOVB
SUB
JSR

SUB

53¢

IS SET

S1VC ERROR??

INO!!
TEXPECTED STATUS
:RECEIVED STATUS
;MOVE SP TO USER'S ERROR
CERROR 60 IF

VV - 0

:ERROR 61 IF vV
= 1
;MOVE SP TO RETURN fOR ERROR
;REPORT ERROR VIA USER

010, (5P)

:RESTORE SP

RMER21,$BDDAT
#~CSK],$BDDAT
300$,$GDDAT
#°CSK1,$GDDAT
53¢

;RECEIVED STATUS
:CLEAR DONT CARES
:GET EXPECTED SKI1 STATUS
:CLEAR DONT CARES
;BRANCH IF O EXPECTED

SKI ]S NOT SET
#SK1,$BODAT
54

(IAE WAS NOT DETECTED)
;WAS SKI DETECTED ??
SYES 1!

¥, (SP)
#267,3(SP)
#2.(SP)
PC.alsP)+

‘MOVE SP T0 USERS ERROR CALL
‘WRITE ERROR NUMBER
:MOVE SP TO ERROR RETURN
“REPORT ERROR AND RETURN

;60 TO NEXT ERROR (HECK

#10, (5P)

:MOVE SP 10 NO ERROR

SEQ 0211

CIZRMMAQ RM0S5/3/2 FCTINL TST 1
SEEK STATUS CHECK SUBROUTINE

116

117
118
119
120
121
122

052730
052736
0527640
052746
052752
052756

032737
001413
062716
112776
162716
004736

}Sg 052764

000240

162716

000010

126
127 052766
128 052774

032737
001420

000200

123 052760

129 052776

005037

040000

001142

000004
000054
000002

000000

001140

130 053002
131 053010

013737
062716

001376
000004

133 053022
134 053026

162716
004736

000002

}gg 053034

000240

132 053014

135 053030

112776
162716

MACRO v03.01

000055

003376

146
147
148
149
150

053072
053100
053102
053110
053114

032737
001403
112776
162716
004736

}gg 053122

000240

162716

000010

154
155
156
157
158
}28

053124
053130
053134
053140
053142

013746
042716
022726
001002
000137

001346
047677
110100

162
1453
104
165
166
167
168
169

053146
053154
053156
0531664
053166
053174
053202
053210

032737
001030
032737
001024
013737
052737
013737
062716

010000

001346

020000

001350

001346
010000
001346
000004

001140
001140
001142

171

053222

162716

000002

161

170 053214

112776

001140
001350
000004

001142

000000

010000

001346

000053
000002

000000

*RESTORE (SP)

;WAS THERE DVC DURING SEEK.?
*NO.!

$SGDDAT

SEXFECTED STATUS

MOvB

#55.a(sP)

;ERROR

SUB

#10, (SP)

SRESTORE SP

RMER21,$BDDAT
0, (SP)

¥2,(SP)
PC,a(SP)+

MOVB

#52,a(SP)

817
BEQ
MOVB
SUB
JSR

7%:

#MOL ,RMDSI
7%
#53,a(SP)
#2,(SP)
PC,a(SP)+

SUB

#10, (sP)

NOP
JSEE
8s:

000000

;1S SK1 SET 72
*NO - SKI 1S OK
*MOVE (SP) TO ERROR
:LOAD ERROR NUMBER
“MOVE SP TO RETURN FOR ERROR
JREPORT SEEK ERROR

;RECEIVED STATUS

#55

JMOVE SP TO RETURN FOR ERROR
JREPORT ERROR VIA USER

;REPORT ANY ''OPI'' ERROR AS OP] WITH MOL
= 0, OR
OPI]
*BECAUSE ON CYLINDER LATCH DIDN'T RESET
6$:
BIT
#OPI ,RMER1]
:"'OP1"" ERROR??
BEQ
8%
INO!!
CLR
$GDDAT
JEXPECTED STATUS
MOV
RMER1] ,$BDDAT
JRECEIVED STATUS
ADD
¥4, (SP)
:MOVE (SP) TO ERROR

053476

000062

IS SET

SEQ 0212

CLR

NOP

001350

SKI

#SK1,$BDDAT
54%
¥, (SP)
#54,3(SP)
#2,(SP)
PC,a(SP)¢

00, (sp)

SuB
JSR

000010

000052

MOV
ADD

000000

020000

;REPORT ANY DEVICE CHECK
548:
BIT
#DVC,RMER?]
BEQ
6%

001142

032737
001427
005037
013737
062716

151 053116

BIT
BEQ
ADD
MOVB
SUB
JSR

SUB

053036
053044
053046
053052
053060

112776

JREPORT ERROR

NOP

138
139
140
141
142
143
144

145 053064

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

;WAS MEDIUM ON LINE??
*NO!!
:YES = CHANGE ERROR NUMBER
;MOVE SP TO RETURN FOR ERROR
;REPORT ''OP1'' ERROR

‘RESTORE (SP)

"'PIP'' = 0, AND ''ATA'', '"MOL'' AND ''vv'' =
MOV
RMDSI,
= (SP)
BIC
¥ C<ATA'PIP'MOL'VY>, (SP)
C(MP
NATA'MOL'VY, (SP)+
BNE
9%
;ERROR IN RMDS
JMP
14
*RMDS IS OK

:REPORT ERROR

9$:

:LOAD ERROR NUMBER

BIT
BNE
BIT
BNE
MOV
BIS
MOV
ADD

MOVB
SuB

MOL = O AND OPI

= 0

#MOL ,RMDS |
10%
¥OP1,RMER1]
108
RMDS1,$GDDAT
#MOL
, SGDDAT
RMDSI,$BDDAT
86, (SP)

;1S MOL RESET??
‘NO - MOL 1S SET
‘WAS OP1 SET
SYES - DONT REPORT ERROR
:EXPECTED STATUS

#2,(SP)

:MOVE

#64.3(SP)

;RECEIVED STATUS

SP TO RETURN FOR ERROR

CIRMMAQ RM0OS/3/2 FCTNL TST 1
SEEK STATUS CHECK SUBROUTINE

172 053226

004736

173 053230

MACRO v03.01

JSR

};g 053234

162716

000240

000010

176
177
178
179
180
181
182
183
184
185
186
187

053236
053244
053246
053256
053256
053264
053272
053300
053304
053312
053316

032737
001430
032737
001024
013737
042737
013737
062716
112776
162716
004736

020000

001346

040000

001376

001346
020000
001346
000004
000056
000002

001140
001142
001142

}gg 053324

000240

188 053320

191

192 053326

193
194
195
196
197

000000

000010

032737

100000

001346

001346
110600
001346
000004

001140
001140
001142

SUB

199 053372
58? 053376

162716
004736

202 053400
582 0534064

162716
000240

000010

053406
053414
053416
053424
053426
053434
053442
053450
053454
053462
053466

032737
001030
032737
001024
013737
052737
013737
062716
112776
162716
004736

000100

001346

010000

001376

001346
000100
001346
000004
000064
000002

001140
001140
001142

218 053474

000240,

205

206
207
208
209
210
211
212
213
216
215
216

217 053470

533 053476

221
222
223
224
225
226
227

053476

053500

053504
053510
053512
053516

162716

000240

062716

105776
001403
062716
000402

000002

000000

000004

BIT

000000

''ATA'' 1S NOT SET

#ATA,RMDS ]

SWAS "ATA' SET 22

13¢
SYES!!
RMDSI,$GDDAT
:EXPECTED STATUS
¥ATA!'MOL 'DPR.DRY,SGDDAT
RMDS1,$BODAT
‘RECEIVED STATUS
vL, (SP)
;MOVE (SP) TO ERROR

SuB
JSR

N2,(5P)
PC,a(SP)¢

SuB
NOP

#10, (SP)

;REPORT ERROR ]F

13%:

:RESTORE (SP)

BNE
MOV
BIS
MOV
ADD

MOVB

BIT
BNE
BIT
BNE
MOV
BIS
MOV
ADD
MOVB
SUB
JSR

SUB

148

000000

JREPORT ERROR VIA USER

#10, (sP)

JREPORT AN ERROR

11$:

000010

000004

SEQ 0213

;REPORT AN ERROR IF "PIP'' IS STIL SET AND SK]I NOT SET
10$:
BIT
#P1P,RMDSI
;1S "PIP STILL SET??
BEQ
11%
JNO!!
BIT
#SK1,RMER2I
JWAS ''SKI''SET??
BNE
18
SYES-DONT REPORT PIP
MOV
RMDSI,SGDDAT
JEXPECTED STATUS
BIC
#PIP,$BDDAT
MOV
RMDST,SBDDAT
;RECEIVED STATUS
ADD
06, (SP)
JMOVE (SP) TO ERROR
MOVB
#56,3(SP)
*LOAD ERROR NUMBER
SUB
#2,(SP)
*MOVE SP TO RETURN FOR ERROR
JSR
PC,a(SP)+
JREPORT "'PIP'' SET AFTER SEEK

NOP

001024
013737
052737
013737
062716

000057

016, (sp)

NOP

162716

112776

PC,a(SP)+

SUB

053334
053336
053344
353352
053360

198 053364

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

NOP

#57,3(SP)

:LOAD ERROR NUMBER

;MOVE SP T0 RETURN FOR ERROR
:QEEOR}EQ}TENTION NOT SET DURING
M

JRESTORE

VOLUME VALID 1S RESET AND IVC

NVV,RMDS I
14$
N1VC,RMERZ]
14%
RMDS],$GDDAT
#VV,$GDOAT
RMDS],SBDDAT
#o,(SP)
#64.,3(SP)
#2,(5P)
PC,a(SP)+

(SP)

1S ZERO

(IS yv = 0 22
INO!!
;1S IvC ALSO O 7
JNO - IvC IS SET
“EXPECTED STATUS
;RECEIVED STATUS

:ERROR W64
;MOVE SP TO RETURN FOR ERROR

00, (sP)

;MODIFY THE RETURN ADDRESS IF AN ERROR WAS DETECTED
NOP
ADD
r4, (SP)
:MOVE (SP) TO ERROR CALL
1STB
a(SP)
‘WAS ERROR CALLED??
BEQ
15%
INO'.
ADD
¥4, (SP)
*MOVE TO ERROR RETURN
BR
16$

CIRMMAQ RM0S/3/2 FCTINL TST

SEEK

STATUS CHECK

229 053520
550 053524
3
2 %% 053526
2

SUBROUTINE

162716
000207
000000

000004

MACRO v03.01

1
I
11-APR-80 13:04:53 PAGE 26-4

SEQ 0214

15%:
16%:

SuB
RTS

¥4, (SP)
PC

sMOVE (SP)
;RETURN

TO NO ERROR RETURN

300$:

.WwORD

;ERROR FLAGS

CIRMMAQ RM05/3/2 FCINL TST

CONTROLLER CLEAR SUBROUTINE

NN —

LSBTTL

SEQ 0215

CONTROLLER CLEAR SUBROUTINE

;THIS SUBROUTINE CLEARS THE MASSBUS CONTROLLER, MASSBUS ADAPTERS,
;AND DRIVES,

®,

;CALL:
s

000004
000007
000002

000G06
000004

PC,CNTCLR
m

-t

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOvB
BR

000004
000006
000010

108:

20%:

DRIVE.

RETURN HERE
RETURN HERE

IF
IF

NO ERROR FOUND
ANY ERROR FOUND

SUB DEFINES ERROR NUMBER

h'\u

000004
000006
053604
000300
001276
000040
001464
000010

THEN SELECTS THE

ERROR
m

®ewe

053604
053606
053614
053622
053630
053630
053634
053640
053647
053644

JSR
BR
NOP

053530
053530
053532
053534
053540
053544
053552
053560
053564
053572
053576
053602

——
e
s

N = O OCONT

POPNVPIPNIMNINY
= b b b et et
VNN~
O 000 ~NO NN

1
J
11-APR-80 13:04:53 PAGE 27

MACRO v03.01

RO,=(SP)
Ri,=(SP)
ERRVEC,=(SF)

ERRVEC+2,-(SP)

#10$ ERRVE(
#PR6 ,ERRVEC+2

$BASE RO
#CLR,RMCS2(RO)

:3PUSH RO ON STACK
::PUSH R1 ON STACK
::;PUSH ERRVEC ON STA(CK
::PUSH ERRVE(C+2 ON STACK
;SETUP FOR BUS TIMEOUT
;RO = UNIBUS ADDRESS
;CLEAR MASSBUS

TSTQUE ,R1
(R1) ,RMCS2(RO)

;GET DEVICE UNDER TEST
sSELECT DEVICE

CMP
ADD
MovB
SuB

( SP )0.(SP)0
4
#4,10(SP)
¥ 7 ,810(5
#2,10(sP)

;ADJUST STA(CK

MOv

2 )+ ,ERRVEC+?

MOV
MOV

MOV
RTS

20%

( P)+,ERRVEC
( S P)¢+,R1
( SP)+,RO
p
C

;MOVE SP TO USER'S ERROR CALL

;WRITE THE ERROR NUMBER
sADJUST

SP TO RETURN TO ERROR

;sPOP STACK INTO ERRVEC+?

:sPOP STACK

INTO ERRVEC

;sPOP STACK

INTO RO

;;POP STACK INTO RI

CIRMMAO RM0OS5/3/2 FCINL TST
SUBROUTINES

MACRO v03.01

NI (NN —

STATUS (HECK

LSBTTL

SEQ 0216

STATUS (HECK SUBROUTINES

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

SBTTL

CONTROLLER CLEAR STATUS CHECK SUBROUTINE

:THIS SUBROUTINE VERIFIES THAT THE SUBSYSTEM IS INITIALIZED BASED ON

= OO0 00

:STATUS STORED IN THE GET BUFFER.
THIS SUBROUTINE SHOULD ONLY Bt
:USED FOLLOWING A CONTROLLER CLEAR OPERATION, I.E., WRITING A 1 IN BIT

o ed d et

;S OF

RMCS2, BECAUSE THE ERROR MESSAGES ARE BASED ON THAT CONDITION.

:STATUS PERTINENT TO THE DEVICE IS NOT CHECKED.
;FOLLOWING STATUS BITS ARE NOT CHECKED:

IN PARTICULAR,

THE

b oD b b

ATA,ERR,P]P,MOL
,WRL ,LBT,PGM,VV,0OM,UNS,SK],DV(
»

= OO 00NN

; CALL:

: (1)
;

b b

L4
’
*
.

053646

162716

41 053740

000240

43
4,
45
46
7
48
49

053742
053746
053756
053756
053762
053770
053774

005037
013737
001413
062716
112776
162716
004736

004200
001140

000004
000126
000002

PC,a(SP)+

SUB
;REPORT ERROR
Ry
MOV

BIC

RETURN HERE

NO ERROR

RETURN HERE TO REPORT AN ERROR
ERROR NUMBER DFFINED BY SuB

60 BACK TO SUB FOR MORE ERROR
RETURN HERE IF NO MORE ERRORS

001140
001340
000004
000127
000002

31 054002

000240

000010

53
54
55
56
57

013737
010146
005046
013701
111116

001344
001464

¥4, (SP)
a(SP)

:MOVE SP TO ERROR
SCLEAR ERROR NUMBER
¥4, (SP)
*MOVE SP BACK TO NO ERROR
IF RMCS1 NOT INITIALIZED
RMCS11,$BDDAT
:VERIFY RMCS1

#SC,$BDDAT

MOV

#OVA'RDY,$GDDAT

CMP

ADD

0y,

SUB

82, (SP)

MOVB

000000

001142

§s.

CLR

MOV

EQUAL

TO USER'S

ERROR

CALL

*REPORT

ERROR VIA USER

*MOVE SP BACK TO NO ERROR
RESET

:BRANCH 1%

SUB

#2.(5P)

*MOVE SP TO RETURN FOR ERROR

sgg

mb, (sP)

:MOVE SP BACK TO NO ERROR

,REPORT ERROR

MOV

MOV
CLR
MOV
MOVB

*MOVE

7ERO

04,

(SP)

:VERIFY RMBA IS ZERO

ADD

MOVB

7$:

RMBA NOT

$GDDAT

:MOVE SP TO RETURN FOR ERROR

RMBAI,$BODAT

#127.a(SP)

JSR

001142

DVA & RDY

‘WITE ERROR NUMBER IN CALL

0o, (sp)

BEQ

000000

*MOVE

PC.a(SP)+

sgg

N
ERROR

:EXPECT

*BRANCH IF

(SP)

#126.a(SP)

JSR
-REPORT

*1GNORE SPECIAL CONDITION

$GDDAT,$BDDAT : COMPARE EXPECTED, RECEIVED

BEQ

000010

162716

054004
054012
054014
054016
054022

)

012737
023737
001413
062716
112776
162716
004736

o~
ORI

001334
100000

——

013737
042737

50 053776

JSR
272

NOP
ERROR

ADD
CLRB

—l

053662
053670

40 053734

PC,CLRSTS
MM

;CLEAR USER'S ERROR CALL

000004
000000
000004

—

062716
105076
162716

—

053646
053652
053656

053676
053704
053712
053714
053720
053726
053732

JSR
BR

¢ LRSTS:

oo
oooS

A= OO

WVNI (NN

ANANAANRNINI PN NI NI NI NINI NI N

33
3,
35
36
37
38
39

K
1
11-APR=-80 13:04:53 PAGE 28

*WITE ERROR NUMBER IN CALL

PC a(SP)+

RMCS2 NOT

*REPORT ERROR VIA USER
INITIALIZED

RMCS21,$BDDAT
R1,-(SP)
-($P)
TSTQUE
,R1
(R1), (§P)

SP TO LSER'S ERROR CALL

VERIFY RMCS2

::PUSH R1 ON STACK
SEXPECT IR & UNIT NUMBER
*R1 = ADDRESS OF TEST QUE

CHECKS

CZRMMAO RM05/3/2 FCTINL TST

CONTROLLER

CLEAR STATUS CHECK

58 054026

59
60
61
62
63

052716

012637
012601
023737
0014613
762716

65 0564060
66 054064

162716
004736

68 054072

000240

70
71
72
73
76
75
76
77

054074
054100
054106
054114
054116
054122
054130
054134

005037
013737
062737
001413
062716
112776
162716
004736

79
80
81
82
83
84

054142

000240

162716

000010

054146
054152
054160
054166
85 05417«
86 054176

013737
042737
012737
023737
001413
062716

001360
000046
000010
001140

88 054210
89 054214

162716
004736

91
92
93
9%
95
96

056222

000240

162716

000010

056226
054230
054236
056240

005037
013737
001413
062716

001140
001402

98 054252
99 054256

162716
004736

000002

10% 054264
102
103 056266
106 054274

000240

106 054310
107 054316
108 054320

67 054066
69

78 054136

87 056202

90 054216

97 054244

100 054260

105 054302

109 054324

112776

162716

112776

000004

000130
000002

000000

001140
001350
040000
000004
000131
000002

000004

000133

000002

00004

000135

;REPORT

001142
001142
000000

001142
001142
001140
001142

001142

000000

001142

000240

162716

000136
000002

BEQ
ADD

Move

001140

#2,(SP)
PC a(SP)+

:MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

RMER1

‘WITE ERROR NUMBER IN CALL

‘MOVE SP BACK TO NO ERROR

NOT RESET-IGNORE UNS

$GDDAT
RMER1],$BODAT
NUNS , SBDDAT
138
¥, (SP)
#131.3(sP)
#2,(SP)
PC.R(SP)+

#10, (sP)

:VERIFY RMERI
: IGNORE UNSAFE
*BRANCH IF ZERO
:MOVE SP TO USER'S ERROR CALL
*WITE ERROR NUMBER IN CALL
*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

‘MOVE SP BACK TO NO ERROR

IF RMMR1 NOT INITIALIZED-IGNORE WC,LS.LST
RMMR11,$BDDAT
;VERIFY RMMR
MC'LSILST,$BUDAT
- 1IGNORE WORD CLOCK, SCT,
#MWD , $GDDAT
;EXPECT WRITE DATA BIT
$GOUAT,SBODAT : COMPARE EXPECTED AND RECEIVED
17%
:BRANCH IF 0
N6, (SP)
;MOVE SP T0O USER'S ERROR CALL

SUB
JSR

#153.3(sp)

‘WITE ERROR NUMBER IN CALL

010, (sP)

‘MOVE SP BACK 1O NO ERROR

#2,(SP)
PC,a(SP)+

SUB

001140

112776

CLR
MOV
BIC
BEQ
ADD
MOVB
SUB
JSR

NOP
;REPORT ERROR
i3%:
MOV
BIC
MOV
CMP

000000

023757
001413
062716

000004

ERROR

;:POP STACK INTO R1
:COMPARE EXPECTED & RECEIVED
*BRANCH IF EQUAL
*MOVE SP T0 USER'S ERROR CALL

#0, (sp)

SUB

001142
00114

0311777

9% :

NOP

(SP)+,$GDDAT
(SP)+ .R1
$GODAT,SBODAT
9%
¥4, (SP)

#1%0.a(sP)

SUB
JSR

SUB

001374
140000

012737

Move

000010

SEQ 0217

#IR, (SP)

MOV
MOV
CMP
BEQ
ADD

001142

013237
042737

113

001140

000010

162716
004736

054344

BIS

001140

162716

110 054332
111 054336

11§ 054340

SUBROUTINE

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

000100

054030
054034
054036
054044
056046

64 056052

MACRO v03.01

*MOVE SP TO RETURN FOR ERROR
JREPORT ERROR V]A USER

NOP
:REPORT AN ERROR IF RMEC2 1S NOT RESET
17¢:
CLR
$GDDAT
;EXPECT ZEROS
MOV
RMEC2]1,$BDDAT
:VERIFY RMEC2 = 0
BEQ
19¢
ADD
¥, (SP)
:MOVE SP TO USER'S ERROR CALL

MOvB

#1%5,a(sP)

‘WITE ERROR NUMBER IN CALL

SUB

710, (sP)

‘MOVE SP BACK TO NO ERROR

SUB
JSR

¥, (SP)
PC.(SP)+

JMOVE SP 7O RETURN FOR ERROR
*REPORT ERROR VIA USER

NOP
:REPORT ERROR IF RMMR2 NOT INITIALIZED-1GNORE RQA,RQB
198:
MoV
RMMR21,$BDDAT
:;VERIFY RMMR?
BIC
#ROA'RQB,SBDODAT

MOV

000000

ITST!1777,SGDDAT

$GDDAT,$BODAT
218
04, (SP)

,
:MOVE SP TO USER'S ERROR CALL

SUB
JSR

#2,(SP)
PC (SP)+

:MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

Move

000010

#1%6.a(sP)

SUB

;REPORT

JEXPECT TEST BIV ON

CMP
BEQ
ADD

NOP

ERROR

00, (sp)
[F

RMER2 NOT

:WITE ERROR NUMBER IN CALL
*MOVE SP BACK 10 NO ERROR

RESET-1GNORE

SKI,DVC

TRK

CZRMMAO RMOS/3/2 FCTNL TST 1

MACRO v03.01
CONTROLLER CLEAR STATUS CHECK SUBROUTINE

115
116
117
118
119

056346
056352
056360
054366
056370

005037
013737
042737
001413
062716

121 056402
122 054406

162716
004736

124 056414
125

000240

120 054374

001140
001376
040200
600004

112776

000174

162716

000010

126 054416

013737

001346

132 054454

112776

123 054410

127
128
129
130
131

056426
054432
054440
054446
054450

133 054462

042737
012737
023737
001413
062716

177777
000600
001140

162716

000002

134 054466

004736

136
137
138
139
140

054476
054476
054502
054506
054510

000240
062716
105776
001403
062716

162 036516
143 054522
}2g 054524

1627°6
000240
000207

135 054470

141

. 56514

000002

162716

000402

000004

000134

001142
001142

21%:

000000

001142

001142
001140
001142

2958:

000000

$GODAT
:EXPECT #_L ZEROS
RMER21,$BDDAT
:VERIFY RMER?
#SK1'DVC,$BODAT IGNORE DEVILE ERRORS
215%
:BRANCH IF OTHER BITS 0
(SP)

:MOVE SP TO USER'S ERROR CALL

SUB
JSR

#2,(SP)
PC a(SP)+

*MOVE SP TO RETURN FOR ERROR
‘REPORT ERROR VIA USER

MOVB

#174.3(SP)

SUB

010, (sP)

*MOVE SP BACK TO NO ERROR

MOV

RMDS1,$BODAT

,TEST DRIVE STATUS REGISTER

:WITE ERROR NUMBER IN CALL

BIC
MOV
CMP
BEQ
ADD

#~C<DRY'DPR>,$BDDAT
NDPR!DRY,$GODAT ;EXPECTED DRIVE STATUS
SGDDAT,$SBODAT
:COMPARE EXPECTED & RECEIVED
22%
*BRANCH IF EQUAL
#6, (SP)
:MOVE SP TO USER'S ERROR CALL

SUB

82, (SP)

*MOVE SP TO RETURN FOR ERROP

710, (SP)

*MOVE SP BACK TO NO ERROR

Move
JSR

SUB

22%:

000004
000004

(LR
MOV
BIC
BEQ
ADD

NOP
REPORT ERROR IF RMDS NOT INITIALIZED

000010
000004
000000

LI
11-APR-80 13:06:53 PAGE 28-2

¢3t:
268:

NOP
ADD
TSTB
BEQ
ADD
BR

suBs
NOP
RTS

#154.3(sP)

PC.a(SP)+
84, (SP)
a($P)
238
¥4, (SP)
24$
K4, (SP)

‘WRITE ERROR NUMBER

‘REPORT ERROR TO USER

:MOVE SP TO ERROR CALL
:WwAS AN ERROE DETECTED??
INO'!
*YES - MOVE 7O ERROR RETURN

:MOVE SP 70 NO ERROR RETURN

SEQ 0218

CZRMMAQ RMO5/3/2 FCTNL TST 1

PACK

ACKNOWLEDGE

STATUS CHECK

MACRO v03.01

SEQ 0219

.SBTTL

2
3
5

JCALL:
;1)

1"
12
13
14

15 054526

18 054526
19 0564532

5? 054536
054542
054550
054552
054560
054566
054574
054600
054606
054612
054614
054620
054622

33
36
35
36
37 054622
38 054630
39 054632

60
&1
42
43
6,
65

STATUS CHECK

;REPORTED TO THE USER VIA THE USER'S ERROR CALL.

6
7
8
9
10

31
32

PACK ACKNOWLEDGE

:THIS SUBROUTINE CHECKS THE RESULTS OF A PACK ACKNOWLEDGE
; COMMAND USING THE STATUS STORED IN THE GET BUFFER.
ERRORS ARE

22
23
24
25
26
27
2B
29
30

N
]
11-APR-80 13:04:53 PAGE 29

000004
000000

032737
001024
013737
052737
013737
062716
112776
162716
004736
16271¢
000240

000100

001346

001346
000100
001346
000004
000155
000002

001140
001140
001142

162716

032737
001024
013737

ADD

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 I1fF NO MORE ERRORS

000004

1%:

010000

001346

001140
001140
001142

51
054702
52 054710
5%
54
55 054712
56 054720

032737
001570

060007

032737
001424

040000

001350

00114/¢

0137%7

AN ERROR
IF "'wv'' 1S 0
BIT
#VV,RMDSI
BNE
1%
MOv
RMDS] ,$GDDAT
BIS
#VV ,$GDDAT

:1S YOLUME VALID SET??
SYES!!
;EXPECTED STATUS

MOV

RMDS1,$BDDAT

JRECEIVED STATUS

Movse

#155,3(sP)

+WRITE NUMBER IN ERROR CALL

JREPORT

SuB

¥10,(SP)

NOP

CALL

;MOVE SP TO RETURN FOR ERROR

sREPORT

THE

ERROR

+MOVE SP BACK TO BRANCH

RMDS1,$GDDAT

:EXPECTED STATUS

ADD
MOVB

06, (SP)
#41,a(SP)

#2,(SP)

;RECEIVED STATUS
¢MOVE SP TO ERROR CALL
;WRITE NUMBER OF ERROR IN CALL
;MOVE SP TO RETURN FOR ERROR

00, (sP)

;MOVE SP TO BRANCH

SUB

001350

TO ERROR

MOV

SUB

;SEE IF

IESMOL SET??

JSR

2%:

PC,Q(SP)’

+MOVE

AN ERROR IF "'MOL'' IS O
BIT
#MOL ,RMDS

BIS
MOV

000010

(SP)

#2,(SP)

BNE

000000

SUB

JSR

000010

010000
0C1346
000004
000041
000002

¢MOVE SP TO ERROR CALL
:CLEAR LOW ORDER BYTE
+MOVE SP BACK

ADD

000000

000240

162716

;REPORT

#6, (SP)

a(SP)
¥4, (SP)

CLRB
SuB

&7 054700
48 054702
49

57 056722

PC,a(SP)+

;CLEAR USER'S ERROR CALL

062716
105076

052737
013737
062716
112776
162716
004736

PC,ACKSTS
m

ACKSTS:

0564640
054646
054654
0564660
0564666
054672

46 054674

JSR
BR
NOP
ERROR
JSR
7?

NOP

#MOL
, SGDDAT
RMDS
I, $BDDAT

PC.a(SP)+

.MNS.....OPI"".R"R..'..lLR.'.

BIT

BEQ

TH ERROR

lllLFO.

SE]

SUNS'OP]I'RMR'ILR'ILF
,RMER]

JREPORT AN ERROR I1f

"'UNS'' 1S SET

817

SJUNS ,RMERT]

MOy

RMERT] ,$B0DDAT

BEQ

sREPORT

UAS UNS SET??

NO'
RE(EIVED STATUS

CZRMMAO RM0S/3/2 FCTNL TST 1

PACK ACKNOWLEDGE STATUS CHECK

58 054730
59 054736

60 054746

013737
062737
062716

001350
040000
000004

62 054756
63 0564762

162716
004736

000002

65 054770

000240

68
69
70
71
72
73
74

054772
055000
055002
055010
055016
055024

032737
001424
013737
013737
062737
062716

76 055036
77 055042

162716
004736

79 055050
g? 055052

000240

61 054750

64 056764
gg 054772

75 055030
78 055046

82
83
84
85
86

112776

162716

112776

162716

000042

MACRO v03.01

001140
001140

000000

020000

001350

001350
001350
020000
000004

001142
001140
001140

000000

96
97
98
99
100
10°

055132
055140
055142
055150
055156

032737
001424
013737
013737
042737

000002

001350

001350
001350
000002

001142
001140
001140

103 055170

112776

000045

000000

106 055176
105 055202

162716
004736

107 055210

000240

110
111
112
113
114

032737
001424
013737
013737

106 055204

}83 055212

055212
055220
055222
055230

162716

000004

001350

001350
001350

001142
001140
001140

000004

000004
000044
000002

#10, (SP)

ADD
MOVB
SUB
JSR
SUB
NOP

ADD

MOVB
SUB
JSR

SUB

6%:

001350
001350

001142
001140

#10, (sP)

SUB

NOP

:REPORT ANY
BIT
BEQ
MOV
MOV
BIC

000010

001350

*MOVE SP 10 RETURN FOR ERROR
*REPORT THE ERROR VIA USER

#4%,3(sp)

BIC

000000

000001

#2,(SP)
PC a(SP)+

#2,(SP)
PC.a(SP)+

:REPORT ANY RMR ERROR
BIT
#RMR,RMER1]
BEQ
5%
MOV
RMER11,$BODAT
MOV
RMER11.$GDDAT

5¢:

000002

:MOVE SP TO ERROR CALL

#42,3(SP)

Move
SUB
JSR

000010

000004

NOP

RMER1],$GDDAT
NUNS, $GDDAT
0, (SP)

:REPORT ANY OP1 ERROR
BIT
NOPI,RMER1]
BEQ
48
MOV
RMER11,$BDDAT
MOV
RMER1],$GDDAT
BIC
#OP1,$GDDAT
ADD
#6, (SP)

48:

88
89
90
91
92
93
gg

062716

SUB
JSR

000010

032737
001424
013737
013737
042737
062716
112776
162716
004736
162716
000240

102 055164

MOVB

SUB

055052
055060
055062
055070
055076
055106
055110
055116
055122
055124
055130
055132

MOV
BIC
ADD

000002

SEQ 0220

000010

000043

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

NOP

:REPORT ANY
BIT
BEQ
MOV
MOV

NRMR,S$GDDAT

;EXPECTED STATUS

:WRITE NUMBER OF ERROR IN CALL

*MOVE SP TO NO ERROR RETURN

;WAS OPI SET 22
INO!!
:RECEIVED STATUS
:EXPECTED STATUS
:MOVE SP TO ERROR CALL

*WRITE NUMBER OF ERROR IN CALL
*MOVE SP TO RETURN FOR ERROR
*REPORT IHE ERROR VIA USER

:MOVE SP TO NO ERROR RETURN

;WAS RMR SET??
INO!!
:RECEIVED STATUS
EXPECTED STATUS

4, (SP)
#4&,a(SP)
#2,(SP)
PC.a(SP)+
010, (sP)

:MOVE SP TO ERROR CALL
:WRITE NUMBER OF ERROR IN CALL
*MOVE SP 10 RETURN FOR ERROR
*REPORT THE ERROR VIA USER
:MOVE SP TO NO ERROR RETURN

ILR ERROR
#ILR,RMER1]
6%
RMER1I,$BDDAT
RMER1].$GDDAT
#1LR,$GDDAT

:WAS ILR SET??
*NOT!
:RECEIVED STATUS
;EXPECTED STATUS

#4,

(SP)

#45,a(sp)

:MOVE SP TO ERROR CALL

*WRITE NUMBER OF ERROR IN CALL

#2,(SP)
PC.R(SP)+

*MOVE SP TO RETURN FOR ERROR
:REPORT THE ERROR VIA USER

ILF ERROR
NILF,RMER1]
7%
RMER11,$BDDAT
RMERTI.$GDDAT

:WAS ILF SET??
INO'!
-RECEIVED STATUS
EXPECTED STATUS

010, (SP)

:MOVE SP TO NO ERROR RETURN

CZRMMAQ RM05/3/2 FCTNL TST 1

N~NOO\VNN
S
OSSN
O S

AL ALYV IV IV
VAN UL
NIPONONO
NI AN

N
2 OO~
OO RRION

AVALV LV IV [V 1V LV, 1V, ]
(VAL VLV LV IV IV [V, IV, ]
NN NN NN
N

~NO W

2lolelelelala)

NN = OV
O OO NO NS

055236

COO00COOO

NN =

D
e
e

b et ad b

e
d e
D
D e
d

NN N NI PO NI NNV ND

b
b
d e
b

PACK ACKNOWLEDGE

STATUS CHECK

000001
000004
000046
000002

MACRO v03.01

001140

BIC

ADD
Move

000000

SuB
JSR
SuB

7%:

NOP

MILF ,$GDDAT
4, ($P)
#66,a(SP)

1?-2

ADD
1518

BEQ
ADD

8%:
9%:

BR
SUB
NOP
RTS

;MOVE SP TO ERROR CALL
:WRITE NUMBER OF ERROR

IN CALL

#2,(SP)

‘MOVE SP T0 RETURN FOR ERROR

#10, (sP)

:MOVE SP TO NO ERROR RETURN

PC.a(SP)+

JAUGMENT RETURN ADDRESS IF

000004
000004

SEQ 0221

000010

000004
000000

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

#4,(SP)
a(SP)

:REPORT

THE ERROR VIA USER

ERROR WAS FOUND
;MOVE SP TO ERROR

;WAS ERROR FOUND??

CALL

8¢
g:.(SP)

JNO!!
JYES = MOVE TO ERROR RETURN

#4,(SP)

;MOVE

TO NO ERROR

RETURN

CIRMMAQ RM0S/3/2 FCTINL TST
STATUS

THECK

MACRO v03.01

SUBROUTINE

NN —

RECALIBRATE

11~APR-80 13:04:53 PAGE

SEQ 0222
LSBTTL

RECA LIBRATE STATUS CHECK SUBROUTINE

2 O D00~

;THIS SUBROUTINE CHECKS THE RESULTS OF A RECALIBRATE OPERATION
;USING THE STATUS STORED IN THE GET BUFFER.
;CALL:
1

JSR

PONUPNIRNUPIN)
— b —
et s s s s 2

;

NOP

ERROR
JSR
277

2 OV 00NV

;

PC,RCLSTS

;CALL SUBROUTINE

277

RETURN HERE

IF NO ERROR

TO REPORT

AN ERROR

ERROR NUMBER DEFINED BY SUB
G0 BACK TO SUB FOR MORE ERROR CHECKS
RETURN HERE IF NO MORE ERRORS

PC,a(SP)+

RCLSTS:

:CLEAR USER'S ERROR NUMBER

000004
000000
000004

022011

ADD

CLRB
SUB

001350

;SEF

—

b N =

;REPORT

000010

001350

000010

001376

001350
000010
001350
000004
000050
000002

001140
001140
001142
000000

—

O—=—=000000

o OO —=O =& =OW
N S NONONNNO
N =N
~d NNNNNNNS
N
—
N =2 N =2
AN NN AN
o OO NNNESN

1%:

000240

:CLEAR USER'S ERROR CALL
:MOVE SP BACK TO BRANCH

''PAR'* OR ''ILF'' OR ''OPI'' OR "'IAE'' IS SET
BIT
#OPI'PAR.ILF.]AE.RMER1]
BEQ
4
;NONE ARE SET = GO TO NEXT
ANY MASSBUS

CONTROL

BUS PARITY

1 AND ''DPE'' = 0
BIT
#PAR ,RMER11
BEQ
1%
BIT
#DPE ,RMER?]
BNE
1%
MOV RMER1],$GDDAT
BIC
#PAR, $GDDAT
MOV
RMER11,$BDDAT
ADD
#,,(SP) :MOVE
Mov8
#50,3(sP)
SUB
#2,(SP)
JSR
PC.a(SP)+

SUB

000010

055436
055436
055444

SPAR'" =

04, (SP)

@(SP)
%6, (SP)

NOP

#10, (SP)

:REPORT ANY "‘ILF'’ ERROR
BIT
NILF,RMER1]

ERROR,

CHECK

|.E..

:WAS "'PAR'* SET??
INO!!
TWAS "DPETM’ SET??
$YES - NOT A REGISTER ERROR
SEXPECTED

STATUS

;RECEIVED STATUS
SP TO USER'S ERROR CALL

;WRITE ERROR NUMBER IN CALL
:MOVE SP TO RETURN FOR ERROR

160 REPORT

ERROR

:MOVE SP BACK TO BRANCH

000001

001350

001350
000001
001350
000004
000071
000002

001140
001140
001142

MOV
BIC
MOV

RMER1],$GDDAT
NILF,SGDDAT
RMER11,$BODAT

000000

MOVB

#71.,3(sP)

;RECEIVED STATUS
*MOVE SP TO USER'S ERROR CALL
:WRITE ERROR NUMBER IN CALL

JSR

PC.a(SP)¢

*REPORT ERROR VIA USER

BEQ

ADD

SUB

sgg

000010

2%:

#4 . (SP)

#2,(5P)

00, (sp)

(WAS 'ILF' SET??

JNOY!

:EXPECTED STATUS

:MOVE SP TO RETURN FOR ERROR

*MOVE SP BACK TO BRANCH

CIRMMAO RM05/3/2 FCINL TST

RECALIBRATE

STATUS

CHECK

MACRO v03.01

SUBROUTINE

30-1

SEQ 0223

;REPORT ANY "'OP1'' ERROR AS
. OP] DUE 70 ""MOL"" = 0

61 055516 032737
62 0555264
001433
63 055526 013737
64 055534 " 042737
65 055542
013737
66 055550
062716
67 055554
112776
68 055562
032737
69 055570 001403
70 055572
112776

71 055600
72 055604
73 055606
74 055612
75 055614
76
77
78 055614
79 055622
80 055624
81 055632
82 055640
83 055646
86 055652
85 055660
86 055664
87 055666
88 055672
89 055674

92 055674
93 055702

94
95
96
97
98
99
100
10%
102
103
106
105
106
107
108
109
110
111
112

11-APR-80 13:064:53 PAGE

162716
004736
162716
000240

032737
001426
013737

042737
013737
062716

112776
162716
004736
162716
000240

020000

001350

001350
020000
001350
000004
000072
010000

001140
001140
001142

000073
000002

. OP1
BIT
BEQ

MOV
BIC
MOv
ADD
Move

000000
001346
000000

BIT
BEQ

3%:

000010

31%:
002000

001350

001350
002000
001350
000004
000070
000002

001140
001140
001142

JREPORT

000000

000010

050200

001376

#OP1,RMERT]

RMER1]1,$GDDAT
#OP1,$GDDAT

RMERT1,$BDDAT
G,

(SP)

#72.3(SP)

#MOL ,RMDS |

b1 9

#73,3(5P)
#2,(SP)
PC.a(SP)+

210, (sP)

:WAS OP]

:NO!!

SET??

:EXPECTED STATUS

;RECEIVED STATUS

‘MOVE

SP T0 USER'S ERROR

CALL

:WRITE ERROR NUMBER IN USER'S CALL
SWAS "MOL'' = 022

JYES!!

:NO - CHANGE ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

:MOVE SP BACK TO BRANCH

AN ERROR IF ''IAE'" IS SET
#1AE ,RMER1]
BIT
;1S "'IAE'" SET??
3
BEQ
sNO!!
MOv
RMER11,8GDDAT
;EXPECTED STATUS
#1AE ,$GDDAY
BIC
MOv
RMER11,8BDDAT
;RECEIVED STATUS
ADD
¥4, (SP)
;MOVE SP TO ERROR CALL

MOv8

4%:

032737
001517

MovBe
SuB
JSR
SuB
NOP

BECAUSE ON CYLINDER LATCH DIDN'T RESET

SuB
JSR
SuB
NOP

#70,3(5P)

;WRITE ERROR NUMBER IN USER'S CALL

#2,(SP)

+MOVE

#10, (SP)

sMOVE SP BACK TO NO ERROR RETURN

PC,a(SP)+

SP TO RETURN FOR ERROR

sREPORT

ERROR

JSEE IF "SKI'" OR ''IvC'' OR *'DVC'" 1S SET
BIT
BEG

#SKI!'IVCIDVC,RMER2]

;NONE OF

THE BITS ARE

;WAS

SET??

SET

:REPORT ANY *'IVC'' ERROR AS
JJVO WITH v = 0
055704
055712
055714
055722
055730
055736
055742
055750
055756
055760
055766
055772
055774
056000

}}2 056002

032737
001433
013737
042737
013737
062716
112776
032737
001403
112776
162716
004736
162716
000240

010000

001376

001376
010000
001376
000004
000074
000100

001140
001140
001142

000075
000002

000000

.ERRONEOUS ]vC ERROR
#1VC,RMER2]
8IT
BEQ
63
MOV
RMER21,$GDDAT
BIC
#1VC,$GDDAT

MOV
ADD
Movs

000000
001346

BIT
BEQ

5%:

000010

6%:

MOvB

SUB
JSR
SuB
NOP

1VC

INO?!
:EXPECTED STATUS

RMERA],$BDDAT

:RECEIVED STATUS

#74,3(5P)

*WRITE ERROR NUMBER

¥, (SP)

#VV . RMDS1

5¢
#75,3(SP)
82, (5P)

PC.a(sP)+

0o, cp)

:MOVE

SP TO USER'S ERROR

TWAS WV = 072

CALL

IN CALL

JYES!!
:NO - CHANGE ERROR NUMBER
*MOVE SP TO RETURN FOR ERROR
:REPORT

ERROR

VIA USER

:MOVE SP BACK TO BRANCH

CZRMMAQ RM05/3/2 FCINL TST

D e e

D i

e e

21
22
23
26
25
26
27

2OV

D D

% .

WA 2O OOV S NN
WA —OVO NN
—~OOV®WNO NS WNI—=O VNN

el e

e e

i A

) ol il i

ol el

D e

il e

R Eav e Yo Yo Yo Yo Yo Yo No Yo Yo SV LV IV IV IV VIV IV LV, LV Pyl 2k 2l olF LI S

o o

D D e

3 -

e el

D e

)

30
31
32
33
34
35
36
37
38
39

STATUS

CHECK

MACRO v03.01

SUBROUTINE

16
17
18
19
20

NS WA — O 000~

D e

RECALIBRATE

056002
056010
056012
056020
056026

056034
056040
056046
056052
056054
056060
056062

032737
001424
013737
042737
013737

062716
112776
162716
004736
162716
000240

040000

001376

040000

001376
000004
000076
000002

001376

11-APR-80 13:04:53 PAGE

;REPORT ANY ''SK1'' ERROR
BIT
#SK1,RMER2]

BEQ

001140

MOV
BIC

000000

ADD
MOVB

001142

7%:

:WAS SKI
*NO!!

SET??

EXPECTED STATUS

¥, (SP)
#76,3(SP)

‘MOVE SP TO USER'S ERROR CALL
‘WRITE ERROR NUMBER

#0, (sp)

*MOVE SP TO BRANCH

RMERS],$BDDAT

SUB
JSR

#2,(SP)
PC.a(SP)+

NOP

SEQ 0224

RMER2],8GODAT
#SK1,$GODAT

MOV

SUB

000010

30-2

:RECEIVED STATUS

*MOVE SP TO RETURN FOR ERROR
‘REPORT ERROR VIA USER

056062
056070
056072
056100
056106
0561164
056120
056126
056132
056134
056140
056142

032737
001424
013737
042737
013737
062716
112776
162716
004736
162716
000240

056142
056146

013746
042716

056152
056156
056160
056164

022726
001002
000137

056164
056172
056174
056202
056204
056212
056220
056226
056232
056240
056244
056246
056252
056254

032737
001030
032737
001024
013737
052737
013737
062716
112776
162716
004736
162716
000240

056254
056262
056264

032737
001030
032737

;REPORT

ANY 'DVC'" EPROR
BIT
#DVC,RMER2]
8EQ
8%
MOV
RMER21,$GDDAT
BIC
#DVC,$GODAT

000200

001376

001376
000200
001376
000004
000077
000002

001140
001140
001142

MOV

RMERS],$BODAT

;RECEIVED STATUS

000000

MOVB

#77,3(SP)

‘WRITE ERROR NUMBER

ADD

SUB
JSR
Sgg

000010
8%:

¥4,

(SP)

#2,(SP)
PC,a(SP)+
#10, (SP)

:WAS 'DVC'' SET??
;NO.!
-EXPECTED STATUS
*MOVE

SP TO USER'S ERROR

CALL

*MOVE SP TO RETURN FOR ERROR
sREPORT ERROR V]A USER
sMOVE SP TO USER'S BRANCH

;SEE IF “PIP'* AND ''OM'* ARE 0, AND °"'ATA'','MOL'' AND ''yv'‘' ARE

001346
047676

MOv
BIC
CMP

110100

056574

85%:

010000

001346

020000

001350

001346
010000
001346
000004
0001GG
000002

001140
001140
001142

BNE
JMP

BIT
BNE
BIT

BNE

#MOL ,RMDS!
9%
#OP] ,RMER1]
9%

815
MOV

#MOL
, $GDDAT
RMDS],$BDDAT

move

#100,a(sP)

MOV
ADD

SUB

JSR

sgg

000010
:
9%

001346

010000

001376

sREPORT

85%
13%

JREPORT AN ERROR IF MOL = O AND OP] = 0,
;LINE AFTER RECALIBRATE WAS INITIATED

0006000

000100

RMDS],-(SP)
;PUT RMDS ON STA(K
#2C<PIP'MOL!VV!IOM!ATA>,
(SP)
NFATAIMOL!VV, (SP)+

RMDSI,$GDDAT
#4,(SP)

#2,(5P)

;MOVE

PC.a(SP)+

10, (sP)

I.E., MEDIUM WENT

OFF

:0ID MOL DROP??
sNO!!
:WAS OP] ERROR REPORTED??

*YES - DON'T REPORT MOL = 0
TEXPECTED STATUS

;RECEIVED STATUS
SP 10 USER'S ERROR CALL

;WRITE ERROR NUMBER

‘MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

*MOVE SP BACK TO USER'S BRANCH

AN ERROR IF ''vv'' = 0 AND "'IvC' = 0
BIT
FVV,RMDSI
.DID ''vv'' DROP??
BNE
10%
JNO!!
BIT
#IVC,RMER?]
;WAS THERE A Jv( ERROR??

CZRMMAQ RM05/3/2 FCINL TST

RECALIBRATE

172
173
174
175
176

STATUS

CHECK

056272
056276
056302
056310
056316

001024
013737
013737
052737
062716

178 056330
179 056334

162716
004736

181 056342
}g% 056344

000240

177 056322

180 056336

184

185
186
187
188
189
190
191
192
193
194
}gg

056344
056352
056354
056362
056370
056376
056402
056410
056414
056416
056422

112776

162716

032737
001024
013737
052737
013737
062716
112776
162716
004736
162716
000240

MACRO v03.01

SUBROUTINE

001346
001346
000100
000004

000101

000002

BNE
MOV
MOV
BIS
ADD

000000

108 :

001346
100000
001346
000004
000102
000002

001140
001140
001142

;REPORT

000000

000010

10
RMDSI,$GDDAT
RMDS1,$BDDAT
#VV,$GDDAT
0., (SP)

Move

#101.a(sp)

SUB

#10, (sP)

SUB
JSR

000010

001346

SEQ 0225

001140
001142
001140

100000

11-APR-80 13:06:53 PAGE 30-3

NOP

AN ERROR

BIT
BNE
MOV
BIS
MOV
ADD
MOVB
SUB
JSR
SuUB
NOP

82, (SP)
PC a(SP)+

ATA

IS NOT

#ATA,RMDS]
18
RMDS1,$GODAT
NATA,$GDDAT
RMDSI,$BDODAT
06, (SP)
#102.a3(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

:YES - DONT REPORT
EXPECTED STATUS
;RECEIVED STATUS

vV = 0

:MOVE SP T0 USER'S ERROR CALL

‘WRITE ERROR NUMBER IN CALL

*MOVE SP TO RETURN FOR ERROR

:MOVE SP BACK TO USER'S BRANCH

SET

;WAS ATA SET DURING RECALIBRATE??
SYES!!
:EXPECTED STATUS

;RECEIVED STATUS
:MOVE SP TO USER'S ERROR CALL
*WRITE ERROR NUMBER IN CALL
.

;MOVE

SP TO USER'S BRANCH

}gg 056424

199
200

JREPORT AN ERROR IF ''OM'' IS NOT ZERO BECAUSE RECALIBRATE SHOULD
JALWAYS CLEAR OFFSET MODE

201
202
203
204

056426
056432
056434
056442

205 056450
206 056456

207 056462

208
209
210
211
g}g

214
215
216
217
218
219

056470
056474
056476
056502
056504

032737
001424
013737
042737

000001

001346

001346
000001

112776

000103

013737
062716

162716
004736
162716
000240

001346
000004
000002

001140
001140

BIT
BEQ
MOV
BIC

#OM,RMDS ]
12
RMDS],$GDDAT
NOM,$GDDAT

000000

MovB

#103.a(sP)

001142

000010
128

056504
056512
056514
056522
056526
056532
056540
056546

032737
001430
032737
001024
013737
042737
013737
062716

020000

001346

040000

001376

001346
020000

001140
001140

225 056560
226 056564

162716
004736

000002

228 056572

000240

220
221

222

223

226 056552

227 056566

112776
162716

MOV
ADD

001346

000004

000104

000010

001142

000000

SUB
JSR
suB
NOP

:WAS "'OM'’ RESET??
SYES!!
:EXPECTED STATUS

RMDS1,$BODAT
¥4, (SP)

;RECEIVED STATUS
*MOVE SP T0 USER'S ERROR CALL

#2,(SP)
PC,a(SP)+
#10,(SP)

JMOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER
;MOVE SP TO LOER'S BRANCH

*WRITE ERROR NUMBER

;REPORT AN ERROR If "'PIP'' 1S STIL ON, I.E., DRIVE NOT ON
*CYLINDER
BIT
#P1P,RMDS]
;1S DRIVE OFF CYLINDER??
BEQ
13%
INO!!
BIT
#SK1,RMER2]
;WAS ''SK1'* DETECTED??
BNE
13§
:YES-DONT REPORT '‘PiP

MOV
BIC

RMDS1,$GDDAT
#P1P,$GDDAT

ADD

86 (SP)

MOV

Move
SUB
JSR

SUB

NOP

;EXPECTED STATUS

RMDST,$BDDAT

;RECEIVED STATUS

#104,a(sP)

;WRITE ERROR NUMBER

#16.(SP)

JMOVE SP BACK TO USER'S BRAN(CH

:MOVE SP'TO USER'S ERROR CALL

#2,(SP)
PC,a(SP)¢

:MOVE SP T0O RETURN FOR ERRGR

( IRMMAQ RM05/3/2 FCINL TST
STATUS

CHECK

SUBROUTINE

056574
— N
~~

0000C2

056622
056630
056636
056642
056650
056654
265 056656
056662

— N

oo
OWw

056604

056574
056602

040006

056612
056614

(01350

001350

001350
000002
001350
000004
000105
000002

001140
001140
001142

056664
056672
056674
056702
056710
056716
056722
056730
056734
056742
056744

000240

056744
056752
056754
056762
056764
056772
057000
057006
057012
057020
057024
057026
057032
057034

032737
001430
032737
001024
013737
062737

— OOV
~NO NNl
nN

#1LR.RMR'UNS,RMERT]
169

;REPORT AN ERROR IF ''ILR' IS SET
géa
1i%R.RHER1I
:UA? ILR SET DURING RECALIBRATE??
JNO!
.

MOV
BIC
MOV
ADD

RMER1I,$GDDAT
EXPECTED STATUS
X1LR,SGODAT
RMER11,$BDDAT
;RECEIVED STATUS
#4, (SP) ;MOVE SP TO USER'S ERROR CALL

SUB

#2,(SP)

move
JSR

382

000010

162716

004736
162716

013737
062716

112776
162716

004736

000004

001350

001350
000004
001350
000004
000106

001140
001140
001142

000002

JREPORT

#105,a(sp)

PC,a(SP)+

#10, (SP)

:WRITE ERROR NUMBER IN CALL

‘MOVE SP TO RETURN FOR ERROR

;MOVE SP TO USER'S BRANCH

AN ERROR IF ''RMR'' IS SET
;WAS RMR SET??
#RMR,RMER1]
BIT
BEQ
15%
¢NO!!
MOV
RMER1],$GDDAT
;EXPECTED STATUS
#RMR ,$GDDAT
BIC
MOV

RMER11,$BDDAT

:RECEIVED STATUS

move

#106,a(sP)

:WRITE ERROR NUMBER IN USER'S CALL

ADD

000000

SUB
JSR

agg

000010

24,

(SP)

£2,(5P)
PC.a(SP)+

210, (sP)

:MOVE SP TO USER'S ERROR CALL
‘MOVE SP TO RETURN FOR ERROR
*REPORT ERROR VIA USER

‘MOVE SP TO USER'S BRANCH

15%:

040000

001350

000200

001376

001350
040000
001350
000004
300107

001140
001140
001142

000002

;REPORT AN ERROR 1F "'UNS'' 1S SET AND 'DVC'' 1S 0
;WAS UNSAFE ON??
#UNS ,RMER1]
BIT
¢NO!!
16$
BEQ

057046
057052

000004
000004

#DVC,RMERZ2]

:WAS THERE A DEVICE (KWECK??

MOV

RMER11,$GDDAT

:EXPECTED STATUS

S
, SGDDAT
SUN

ADD

¥4, (SP)

move

000000

169

BIC

MOV

SUB
JSR

SUB

16%:

000004
000000

BIT

BNE

000010

057034

057054

BlT
BEQ

16%:

032737
001424
013737
042737
013737
062716
112776

057040
057044

;SEE IF

000000

056664

056736

H
2
11-APR-80 13:04:53 PAGE 30-4

13%:

oO
= OO0OO0O0OOO
=
—=OW
o COOR—=0
NUNONI
NN N — N
o NI
N NNNNNNSNNSN
b — AN
N == NN NNV N
o OO NNNESN

O NS (NP — [&=2Ve)
S WO OO0~

NN (.81, 91, V1, VI, ST, V1, V1, N1,¥] ~nIno
Pl alF ol i o N NN N AN NN NN NN

RECALIBRATE

MACRO v03.01

NOP

RMERTI,$BDDAT

#107.a(sp)

#2,(SP)
PC (SP)+

210, (SP)

;YES = DON'T REPORT UNSAFE
;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

17%:

ADD
1518
BEQ
ADD
BR
SuB

¥4, (SP)
a(SP)
17%
¥s, (SP)
18%
#4,(SP)

;MOVE SP TO USER'S ERROR CALL
;WAS AN ERROR REPORTED??
sNO!.
;YES - AUGMENT SP RETURN

;NO ERROR - RETURN SP TO BRAN(H

SEQ 0226

(ZRMMAQ RM0S5/3/2 FCINL TST 1
MACRO v03.01
RECALIBRATE STATUS CHECX SUBROUTINE
286 057060
287 057062
288

000240
000207

18%:

I
2
11-APR-80 13:04:53 PAGE 30-5
NOP
RTS

;STATUS CECK

SEQ 0227
IS COMPLETE

CIZRMMAQ RM05/3/2 FCTINL TST 1

MACRO v03.01

DRIVE CLEAR STATUS CHECK SUBROUTINE

J
2
11-APR-80 13:04:53 PAGE 31

SEQ 0228

;

.SBTTL

DRIVE CLEAR STATUS CMECK SUBROUTINE

B8R

5
6

;
.

ERROR
JSR

;

8
18 057064
11
12 057064

13 057070
16 057076

000004
000000
000004

16
17
18
19

013737
042737
012737
023737

001234
173700
004010
001140

001142
001142
001140
001142

000004
000141
000002

000000

20
21
22
23
25
25
26

28
29
30
31
32

057100
057106
057116
057122

057130
057132
057136
057144
057150
057152
057156

057160
057166
057174
057202
057210

001443
062716
112776
162716
004736
142716
000240

001142
001142
001140
001142

062716
112776
162716
004736
162716
000240

000004
000142
000002

000000

005037
013737
001413
062716
112776
162716
0064736
162716
000240

001140
001350

50 057302

013737

001352

§3
54
55
56
§7

013701
116102
042702
005102
040237

001464
000001
177400

51 057310
52 057312

057314
057320
057324
057330
057332

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

013737
062737
012737
023737
001413

010146
010246

;CLEAR USER'S ERROR CALL
#é, (SP)
;MOVE SP TO ERROR CALL
ADD
a(SP)
;CLEAR ERROR CALL
CLRB
¥4, (SP)
;MOVE SP TO USER'S BRAN(CH
SUB
;REPORT ERROR IF RMCS1 NOT INITIALIZED
RMCS11,$BDDAT
;CHECK RM(S!
4$:
MOV
#*C<DVA!FNCMSK>,$BDDAT
;CLEAR DONT CARES
BIC
#DVA!DRVCLR,$GDDAT
;EXPECT DVA
MOV

CMP
BEQ
ADD
MOVB
SUB
JSR
SUB
NOP

000010

001346
021101
010600
001140

33 057212
3, 057216
35 057226
36 057230
37 057232
38 057236
39
40 057240
41 057244
42 057252
43 057254
4, 057260
45 057266
46 057272
47 057274
48 057300
49

2177

DRVSTS:
062716
105076
162716

NOP

000010

000004

000143
000002

001142

000000

000010

001142

;REPORT ERROR IF

5%:

$GDDAT,$BDDAT
6%
¥, (SP)

#1461.3(5P)
#2,($P)
PC.alSP)+

710, (sP)

; COMPARE EXPECTED & RECEIVED
‘BRANCH If EQUAL
‘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

RMDS NOT INITIALIZED
RMDSI,$BODAT
; CHECK RMDS
#PGM!OM!VV!PIP,SBDDAT
;CLEAR DONT

MOV
BIC
MOV
CMP
BEQ

;EXPECT DRY & DPR
#MOL!DPR:DPY, SGDDAT
$GDDAT,$BDDAT
;{OMPARE EXPECTED & RECEIVED

MOVB
BIC
COM
BIC

1(R1) ,R2
#*CATNMSK
,R?
R2
R2,$BDDAT

CARES

6%
;BRANCH It EGUAL
#4, (SP)
‘MOVE SP TO ERROR CALL
ADD
#142,3(SP)
‘WRITE NUMBER OF ERROR IN CALL
MOVB
#2,(SP)
'MOVE SP TO RETURN FOR ERROR
SUB
‘REPORT THE ERROR VIA USER
PC.a(SP)+
JSR
#10, (SP)
*MOVE SP TO NO ERROR RETURN
SUB
NOP
;REPORT ERROR IF RMER1 NOT INITIALIZED
$GDDAT
JEXPECT 0'S
6$:
CLR
RMER11,$BDDAT
:CHECK RMER!
MOV
8s
*BRANCH IF EQUAL
BEQ
0, (SP)
‘MOVE SP TO ERROR CALL
ADD
#143,3(SP)
‘WRITE NUMBER OF ERROR 'N CALL
MOVB
#2,(SP)
“MOVE SP 1G RETURN FOR ERROR
SUB
‘REPORT THE ERROR VIA USER
PC a(SP)+
JSR
b, (sp)
*MOVE SP TO NC ERROR RETURN
SUB
NOP
REPORT ERROR IF ATA NOT INITIALIZED
sCHECK ATTENTION BIT
RMAS],$BDDAT
8$:
MOV
:;PUSH R1 ON STA(K
R1,-(SP)
MOV
:;PUSH R2 ON STACK
R2,=(SP)
MOV
TSTQUE ,R1
MOV

CZRMMAQ RMO5/3/2 FCTNL TST
CLEAR STATUS CHECK

001142

057350
057356
057362
057366
057370
057374

062716
112776
162716
004736
162716
000240

000004
000144
000002

69 057376

013737

001360

001140

96
95
96
97
98
99
100
}8;

057542
057550
057552
057556
057564
057570
057572
057576

013737
001413
062716
112776
162716
004736
162716
000240

001402

103 057600

013737

001376

s
e
e
e
el
i

S W= O VO~V

e
e
e

057606
057610
057614
057622
057626
057630
057634
057636
057636

001413
062716
112776
162716
004736
162716
000240

&~
O NN

005037

g% 057536

000004
000145
000002

013737
042737
012737
023737
001413
062716
112776
162716
004736
162716

ADD
MOVB

0, (SP)
#144,3(SP)

JSR

PC.alSP)+

SUB

:REPORT

63:

#2,(SP)

NOP

ERROR
MOV
BIC

#16, (5P)
]F

MOV

000000

$GDDAT, $BDDAT
1$

ADD

¥4, (SP)

SUB

92,($P)

MOVB

#145,3(SP)

JSR

PC.a(SP)+

SUB

000010

010, (sP)

NOP

:;POP STACK
::POP_STACK

INTO R2
INTO R

;1S ATTENTION CLEARED??
:BRANCH IF ATTENTION CLEARED

sMOVE SP TO ERROR CALL
;WRITE NUMDER OF ERROR IN CALL
sMOVE SP TO RETURN FOR ERROR
;REPORT THE ERROR V]A USER
;MOVE SP TO NO ERROR RETURN

RMMR1
N
NOT INITIALIZED
RMMR1],$BDDAT
: CHECK RMMR
MCILSILST, SBDDAT
;CLEAR DONT

#MUD, $GDDAT

CMP
BEQ

CARES
+EXPECT WRITE DATA ON
; COMPARE EXPECTED AND RECEIVED
:BRANCH 1F ZERO
sMOVE SP TO ERROR CALL

sWRITE NUMBER OF ERROR IN CALL
:MOVE SP TO RETURN FOR ERROR

;REPORT THE ERROR VIA USER
;MOVE SP TO NO ERROR RETURN

ERROR IF RMMR2 NOT INITIALIZED
MOV
RMMR2]
, $BDDAT
s CHECK RMMR?
BIC
#RQA 'RQB, $BDDAT ;CLEAR REQA, REGB

001374
140000
011777
001140

MOV

#T1ST11777,8GODAT”

000004
000146
000002

ADD
MOVB

SUB

¥4, (SP)
#146.3(SP)

#2,(SP)

000010

SUB

no,sp)

PC.a(SP)+

;REPORT THE ERROR VIA USER
;MOVE SP TO NO ERROR RETURN

CLR

$GDDAT

JEXPECT ZEROS

MOV

RMEC2],$BDDAT

s CHECK RMEC?

ADD

¥,

+MOVE

SP TO ERROR CALL

:MOVE

SP TO NO ERROR RETURN

000004
000150
000002

CMP
BEQ

15%:

001142

NOP

JREPORT ERROR IF RMEC2 NOT RESET
BEQ

000000

17¢

#150.a(sP)

JSR

PC.a(SP)+

#2.(SP)

SUB

~N 0
“m

001142

PORT

NOP

ERROR
MOV

BEQ

000000

19%:

18%

JSR

PC.a(SP)+

NOP

;EXPECT TEST BIT ON

: COMPARE EXPECTED & RECEIVED
:BRANCH IF EQUAL
;MOVE SP TO ERROR CALL

:WRITE NUMBER OF ERROR IN CALL
;MOVE SP TO RETURN FOR ERROR

:SRANCH IF 0

;WRITE NUMBER OF ERROR IN CALL
;MOVE SP TO RETURN FOR ERROR
;REPORT THE ERROR VIA USER

RMER2 NOT RESET
RMER21,$BODAT
;s CHECK RMER?
06, (SP)
#147.3(SP)

SUB

18%:

910, (sp)

ADD
MOVB

SUB

000010

(SP)

Move
SUB

000010

000004
000147
000002

$GDDAT, $BODAT
15¢

JSR

—n
.

057426

000046
000010
001140

(SP)+,R2
(SP)+
R1
$BDDAT

SUB

)

057456
057464
057472
057500
057506
057510
057514
057522
057526
057530

81
82
83
86
85
86
87
88
89
90

s O OOOO0O

057430
057434
057442
0576446
057450
0576454

042737
012737
023737
001413
062716
112776
162716
004736
162716
000240

057404
0576412
057620

000000

000010

70
71
72
73
764
75
76
77
78
gg

MOV
MOV
ST

BEQ

cnld

62
63
66
65
66
gg

001413

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

SEQ 0229

—

61 057346

012602
012601
005737

SUBROUTINE

—

58 057336
59 057340
40 057342

MACRO v03.01

oooo
rot=1=1=]

CRivek

#2,(SP)

b, (sp)

sBRANCH IF NO ERROR
+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

CZRMMAQ RM05/3/2 FCINL TST

DRIVE CLEAR STATUS CHECK

115

116
117
118
119

120
121
122
}Sz

057636
057642
057646
057650

057654
057656
057662
057664

062716
105776
001403
062716

000402
162716
000240
000207

MACRO v03.01

SUBROUTINE

000004
000000

SEQ 0230

:AUGMENT RETURN ADDRESS If
ADD
7818
BEQ
ADD

000004

00000¢

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

21%:
23$:

BR
suB
NOP
RTS

#4, (SP)
a8(SP)
21
#4, (SP)

23%
#4,(SP)

ANY ERROR WAS FOUND

:MOVE SP TO ERROR CALL
;WAS AN ERROR DETECTED??
JNO!!
;YES - MOVE SP TO ERROR RETURN

;MOVE SP BACK TO NO ERROR RETURN

;RETURN TO USER

CIRMMAO RMOS5/3/2 FCTNL TST 1

SEARCH STATUS CHECK SUBROUTINE

MACRO v03.01

M2
11-APR-80 13:04:53 PAGE 32
SEQ 0231

.SBTTL

SEARCH STATUS CHECK SUBROUTINE

;THIS SUBROUTINE VERIFIES THE RESULTS OF

SEARCH OPERATIONS USING

:STATUS

;THE_SUBROUTINE RETURNS TO THE CALLING ROUTINE

STORED

:PUT BUFFER.

8
18

IN THE

GET

BUFFER AND

TEST

CONDITIONS

STORED

IN THE

AN ERROR IS

DETECTED AFTER HAVING LOADED THE APPROPRIATE ERROR NUMBER [N
:THE USER'S ''ERROR'' TRAP.

;THE FOLLOWING CONDITIONS ARE CHECKED:

13
}g

“REGISTERS 1S REPORTED,

.ANY ERROR WHICH OCCURRED WHILE READING OR WRITING REMOTE

.TAE'* STATUS 1S CHECKED IN ACCORDANCE WITH THE VALUE DETERMINED

.'OPI'*, IF SET, 1S REPORTED AS 1) "'OPI'' DUE TO MOL = 0, OR 2)

CIVe, 1F SET, 1S REPORTED AS 1)

;

.U'SK1'' 1S REPORTED IF SET

VC'' IS REPORTED IF SET

2? 057666

SCHSTS:

51 057714
52 057716
22 057724

55
56 057726
57 057734

‘IVC'' ERROR WITH VOLUME

.AN ERROR IS REPORTED If 'MOL'' = 0, OR 'PIP"' = 1, OR ""ATA"

S0R "'w'''= 0.
;
:CALL:
S(1)
JSR
‘(2)
BR
Y(3)
NOP
1(4)
ERROR
1(5)
JSR
1)
7

50 057706

;VALID ZERO, OR 2) ERRONEOUS ''IVC'' ERROR WITH VOLUME VALID SET.

30
3N
32
33
3%
35
36
37
gg

48
49

2"'OP1'* DUE TO ON CYLINDER LATCH.

2? 0577G2

OR
'

“BY THE PROGRAM, WHICH 15 BASED ON FORMAT AND ADDRESS.

5(1)

42
43 057666
4, 057672
45 057676

I.E., 'MCPE'" = 1

062716
105076
162716

005037

032737
001431
032737
001025
013737
062737

PC,SCHSTS
27

PC,a(SP)+

;CLEAR USER'S ERROR CALL
ADD
5, (SP)
CLRB
3(SP)
SUB
4, (SP)

000004
000000
000004

061230

CLR

000010

001350

000010

001376

001350
000010

001140
001140

2008

RETURN HERE IF NO ERROR
RETURN HERE TO REPORT ERROR
SUBROUTINE WILL LOAD ERROR #

60 BACK FOR MORE CHECKS
RETURN AFTER ALL ERRORS REPORTED

:MOVE SP TO USER'S ERROR CALL
*CLEAR ERROR NUMBER
“MOVE SP BACK TO NO ERROR BR

*CLEAR STATUS FLAGS

;TEST FOR MASSBUS CONTROL BUS PARITY ERROR WHEN WRITING REMOTE
*REGISTERS, 1.E., "PAR" = 1 AND 'DPE"' = 0.

Bl T

BEQ
BIT
BNE

#PAR,RMER1]

108
#DPE ,RMER2]
108

:WAS PARITY ERROR DETECTED??
*NO!
.uAs 1T CONTROL BUS ERROR??
*PROBABLY NOT!'

:REPORT CONTROL BUS PARITY ERROR VIA USER'S ERROR CALL
MOV
RMER11,8GODAT
;EXPECTED STATUS
BIC
#PAR,$GDDAT

CIRMMAO RMOS5/3/2 FCTINL TST

SEARCH STATUS CHECK SUBROUTINE

58 057742

001350
000004
000050
000002

7750

MACRO v03.01 11-APR-80 13:04:53 PAGEN 3%-1
001142

MOV

000000

Move

ADD

SUB

00000
060006

020000

060010
060016
060024
060032
060036
060044

001334
020000
001334
* 000004
000013
000002

001334
001140
001140
001142

ADD

MOvB
sUB

061202

001140

040000

061230

060116
06012¢

001417

001333

001416

000035

010000

001442

001416

000037

s
Y

& ~NwWN
OO

— AN

060162
060170
060176
060204
060206
060214
060216

040000

061230

CONTROL BUS PARITY
"MCPE" = 1.

AMCPE, RMCS11
20%

ERROR WHEN READING REMOTE

;WAS PARITY ERROR DETECTED??
;NO.!

BUS PARITY ERROR VIA USER'S ERROR CALL.
RMCS11,8GDDAT
;EXPECTED STATUS
#MCPE
, $GDDAT
RMCST1,$B0ODAT
;RECEIVED STATUS
¥4

(SP)

#15,3(5P)
#2,(SP)

JMP

1508

710, (SP)

:MOVE

SP TO USER'S ERROR

:WRITE ERROR NUMBER

:MOVE SP TO RETURN IF

CALL

ERROR

*REPORT ERROR AND RETURN
:RESTORE

;OMIT

TO NO ERROR

STATUS CHECKING

MOV

N1AE ,$GDDAT

;SETUP FOR JAE = 1

CMP

RMDCO,#822.

;GREATER THAN LAST

BHI

#sx1,200%
30$

;SETUP FOR SKI =1

#Sk1,200%

CMPB

RMDAQ+1,LSTRK+1

;GREATER THAN LAST TRA(CK ?

CMPB
BLOS
BIT
BEQ
(MPB
BHI

RMDAO,#29.
25%
#EMT16,RMOFO
30%
RMDAO, #31.
30%

;SECTOR > 29. ?
INO!!
;18 BIT FORMAT ?
IYES - SECTOR 1S INVALID FOR
:SECTOR > 31, ?
sYES = SECTOR IS INVALID

CLR

$GDDAT

J'IAE" SH ULD = 0

3(Cs

MOV

BIC
(mMpP
BNE
BIC

B8R

RMER1],$BDDAT

#*C1AE,$8DDAT
SGDDAT,$BDDA1
40%
#5x1,200%

50%

:*'SKI'* SHOULD BE ZERO

;YES = TRACK IS INVALID

: COMPARE EXPECTED AND RECIVED ''IAE'’ STATUS

$0s:

CYLINDER

sYES = CYLINDER IS INVALID

BIC
BHI

25%:

001142
001142

;SKIP FURTHER ERROR CHECKS

PC.a(SP)+

BIlS

001466

001142

‘REPORT ERROR

;DETERMINE THE VALUE OF ''lAE'' STATUS BASED ON TRACK, SECTOR AND CYLINDER
;ALSO SET ''SKI'' FLAG IF CYLINDER ADDRESS IS TOO LARGE.

061230

001140

—

060156

(= 4
O~NO

060126
060154
99 060136
(950144
0 0146
060154

OWw—r)

=D wmld =l
D e
ol
el
)
) el
il
)
)
)

002000
040000
001444

et et et 2 QO OOOOOOOO
8NN = OV
NO WV
NN-20O

—

158
20%:

88 060064
89 060072
060100
060106
060110

SRESTORE SP TO NO ERROR

JSR

333

SP TO USER'S ERROR CALL

*WRITE ERROR NUMBER IN CALL

b, (sp)
15%

;REPORT CONTROL
MOV
BIC
MOV

:MOVE

:MOVE SP TO RETURN IF ERROR

BEQ

;RECEIVED STATUS

#2,(5P)

PC.a(SP)+

Blf

000000

(SP)

#50,3(sP)

;TEST FOR MASSBUS
:REGISTERS, 1.E.,

000010
060064

JSR

agg

000010

RMER1],$BDOAT

SEQ 0232

;GET RECEIVED ]AE

;1S 1AE CORRECT??
;W)
;SK] SHOULD BE ZERO

18 BIT MODE

CIRMMAO RMO5/3/2 FCTNL TST 1
SEARCH STATUS CHECK SUBROUTINE

8 060230
060234
060236
060242
060244

NNO O OO
OOONOWVB NN

NN WNWWNAUNE B 85 55 85 8 5 0 2 B Ui NN N NN N
N D N A O AU D U DU A ) —s
OOV NO WV NN = OV NOWVNE NN =2 OOV ~NO VNS WA = OOV~
NN —=O O

fld_‘—.—.-‘—‘—l—.—l—.—l—.—.—.-—.—.—.—._fl—l-—.—l_fi_‘—J—l—‘..‘—l-—.—.—‘—l—‘—.—D—.—J—A—.—.—l—.-—..—.—l-—‘_‘—‘_‘—dddd

115
116 060216
17 060222

062716
112776

000004
000257

MACRO v03.01

000000

000002

060244
060252

032737
001531

050200

001376

060254
060262
060270
060276
060304
060312
060314
060320
060326
060336
060336
060344
060350
060352
060356
060360

013737
042737
013737
042737
023737
001422
062716
112776
032737
001403
112776
162716
004736
162716
000240

001376
137777
061230
137777
001140

001142
001142
001140
001140
001142

ADD

¥,

SUB

82, (SP)

Move

PC a(SP)+

SUB

;SEE

000000

MOV
BIC
MOV
BIC
CMP
BEQ
ADD

55¢:

MOVB
BIT
BEQ
MOVB
SUB
JSR

SUB

000010
60%:

:MOVE SP TO USER'S ERROR CALL

*WRITE ERROR NUMBER IN CALL

*MOVE SP TO RETURN IF ERROR
‘REPORT ERROR AND RETURN

*RETURN SP TO NO ERROR

"'SKI'* OR "'DVC'* OR "'IVC'' IS SET
BIT
#SK1TDVC!IVC,RMER?]
BEQ
90$
:NO!!

;REPORT ERROR

000000
001140

#10, (SP)

NOP

50%:

(SP)

#257.a(sP)

JSR

000010

000267
000002

SEQ 0233

:REPORT INCORRECT IAE STATUS VIA USER'S ERROR CALL

162716
004736
162716
000240

000004
000263
04L900

11-APR-80 13:064:53 PAGE 32-2

NOP

:ARE ANY BITS SET??

''SK1'' 1S SET AND ''SKI'' FLAG

RMER21,$BDDAT
#~CSKI.$BDDAT
2008, $GODAT
#~CSK1,$GDDAT
$GDOAT.$BDDAT
60$
¥, (SP)

#263,a(SP)
#SK1,$GDDAT
55¢
#267,3(SP)
#2,(SP)
PC.a(SP)+

#0, (sP)

1S NOT

SET

;RECEIVED ''SKI'* STATUS

;EXPECTED ''SKI'* STATUS

;1S "'SKI'' 0K??

:YES-CHANGE ERROR NUMBER
*MOVE

SP TO USER'S ERROR

CALL

‘WRITE ERROR NUMBER
*SHOULD ''SK1'' BE SET??
*NO!!
:YES-CHANGE ERROR NUMBER
*MOVE SP T0 RETURN IF ERROR

‘REPORT ERROR AND RETURN

*RESTORE SP TO NO ERROR

:REPORT "'IVC'' ERROR AS
060360
060366
060370
060376
060404
060412
060416
0604246
060432
060434
060442
060646
060450
060456
060456

032737
001433
013737
042737
013737
062716
112776
032737
001403
112776
162716
004736
162716
000240

010000

001376

001376
010000
001376
000004
000264
000100

001140

000265
000002

000000

060456
0604646
060466
060474
060502

032737
001424
013737
042737
013737

000200

001376

001376
000200
001376

001140
001140

060510

062716

;
;

001140

MOV

RMER21,$GDDAT

MOV

RMER21,$BDDAT

MOVB
BIT
BEQ
MOVB

#264,3(SP)
#VV,RMDS]
708
#265,3(SP)

BIC

001142

ADD

000000
001246
708 :

SUB
JSR

SUB

000010
80%:

000004

.1IVC DUE TO LOSS OF VOLUME VALID
"ERRONEOUS IVC WITH VOLUME VALID SET
BIT
#1VC.RMER2]
215 IVC SET??
BEQ
80%
*NO!!

001142

NOP

#IVC,$GDDAT

EXPECTED STATUS

;RECEIVED STATUS

N, (SP)

‘MOVE

#2,(SP)
PC.a(SP)+

:MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN

00, (SP)

SP TO USER'S ERROR

CALL

‘WRITE ERROR NUMBER IN CALL
*WAS VOLUME VALID??
:NO!!
*YES = CHANGE ERROR NUMBER

*RESTORE SP TO NO ERROR

:REPORT ANY DEVICE FAULT, 1.E.. 'DVC' = 1
BIT
BEQ
MOV
BIC

#DVC,RMER2]
90%
RMER21,8GDDAT
#DVC,$GDDAT

:WAS THERE A DEVICE FAULT??
INO!!
:EXPECTED STATUS

ADD

¥4, (SP)

+MOVE

MOV

RMERS],$BDDAT

;RECEIVED STATUS

SP TO USER'S ERROR (CALL

CIRMMAO RM0S5/3/2 FCTNL TST 1
SEARCH STATUS CHECK SUBROUTINE

172 060514
173 060522
174 060526

112776
162716
004736

176 060534

000240

175 060530

};g 060536
179
180
181
182 060536

183 060544
184 060546
185 060554

162716

032737

001433
013737
042737

000266
000002

001350

001350
020000

001140
001140

188 060574

112776

000270

192 060620
193 060624

194 060626
195 060632
}gg 060634

032737
001403
112776

162716
004736

000004

010000

000271

000002

162716
000240

000010

198
199 060634
200 060640

013746
042716

001346
047677

ggg 060650

001554

201 060644

204

205 060652
206 060660

022726

032737
001030

001142

000000

000002

214
215
216
217

060726
060732
060734
060740

162716
004736
162716
000240

060742
060750
060752
060760
060762

032737
001430
032737
001024
013737

020000

001346

040000

001376

227 060776
228 061004

013737
062716

001346
000004

220

221
222
223
224
225

226 060770

042737

000004

000272

SUB
JSR
SUB
NOP

#2,(SP)
PC,a(SP)+
#10,(SP)

000000

001140

001140
001142

(SP)

#MOL ,RMDS ]
105$
#271.,3(SP)

‘MOVE SP TO USER'S ERROR CALL

*WAS MOL 077
SYES!!
:MOL WAS 1 - CHANGE ERROR

*MOVE SP TO RETURN IF ERROR
;REPORT ERROR AND RETURN
JRESTORE SP TO NO ERROR

"ATA' = '"MOL' = ''vv'' = 1 AND 'PIP" = 0
MOV
RMDSI, = (SP)
:GET DRIVE STATUS
BI1C
N-C<ATA'PIP'MOL.VV>, (SP)

BIT
BNE

FATA'MOL 'VV. (SP)+
1508

JYES!!

;15 DRIVE STATUS CORRECT??

#MOL ,RMDS
1208

:WAS MEDIUM OFF LINE??
INO!!

I.E., OPl - 0

MOV
BIS
MOV
BIT
BNE
ADD

RMDSI,$GDDAT
#MOL
, $GDDAT
RMDSI,$BDDAT
#OP1,RMER1I
1208
#, (SP)

;RECEIVED STATUS
:WAS OP] REPORTED BEFORE??
*YES - DON'T REPORT MOL = 0
IMOVE SP TO USER'S ERROR CALL

SUB
JSR
SUB
NCP

#2,(SP)
PC.(SP)+
910, (SP)

:MOVE SP 10 RETURN IF ERROR
*REPORT ERROR AND RETURN
*RESTORE SP 10 NO ERROR

MOVB

1208 :

020000

*SETUP ERROR FOR MOL = 0

¥,

REPORT AN ERROR IF MOL = O AND OP] ERROR WAS NOT REPORTED,

000010

001346

#290,3(SP)

CMP

001140
001140
001142
001350

“RESTORE SP TO NO ERROR

MOVB

BEQ

001346
010000
001346
020000

0, (sp)

;WRITE ERROR NUMBER IN CALL
:MOVE SP TO RETURN IF ERROR
*REPORT ERROR AND RETURN

;RECEIVED STATUS

BIT
BEC
MOVB

1058:

110100

013737
052737
013737
032737
001013
062716

#266,3(SP)
#2,(SP)
PC.a(SP)+

SEQ 0234

RMERT],$BODAT

ADD

JSEE

060662
060670
060676
060706
060712
060714

5}3 060742

MOV

1108 :

001346

:REPORT ANY “'OPI'' ERROR AS
:
."'0P1'* BECAUSE MEDIUM IS NOT ONLINE
:
."'OP1'* BECAUSE ''ON CYLINDER'' DIDN'T DROP
BIT
#OP1,RMER1]
:WAS OP] SET??
BEQ
1108
INO!
MOV
RMER11,$GDDAT
:EXPECTED STATUS
BIC
#0P1,$GDDAT

001346

010000

112776

NOP

000000

207
208
209
210
211
212

213 060720

MOVB
SUB
JSR

SUB

020000

001350

189 060602
190 060610
191 060612

000000

908 :

013737

062716

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

000010

186 060562

187 060570

MACRO v03.01

#2%2.3(SP)

:EXPECTED STATUS

:WRITE ERROR NUMBER IN CALL

;REPORT AN ERROR If PIP 1S STIL SET AND SKI

IS RESET

BIT
REQ
BIT
BNE
MOV

#P1P,RMDS]
1308
#SK1,RMER2]
1308
RMDSI,$GODAT

;1S POSITIONING IN PROGRESS??
N0t
T
*WAS "'SKI''
DETECTED??
SYES-DONT REPORT PIP
EXPECTED STATUS

MOV
ADD

RMDS1,$BODAT
4, (SP)

;RECEIVED STATUS
‘MOVE SP T0 USER'S ERROR CALL

BIC

#P1P,$GDDAT

CIZRMMAQ RM05/3/2 FCTNL TST

SEARCH STATUS CHECK SUBROUTINE

229 061010
230 061016
231 061022
232 061024
233 061030
234 061032
235
236
237 061032
238 061040
239 061042
240 061050
241 061052
242 061060

243
264
265
2646
2647
268
249
250

061066
061074
061100
061106
061112
061116
061120
061122

112776
162716
004736
162716
000240

032737
001030
032737
001024
013737
052737
013737
062716
112776
162716
004736
162716
000240

251
252
253
2564
255
256
257
258
259
260
261
262
263
264

061122
061130
061132
061140
061146
061154
061160
061166
061172
061174
061200
061202

032737
001024
013737
052737
013737
062716
112776
162716
004736
162716
000240

267
268
269
270
271
272
273

061202
061206
061212
061214
061220
061222
061226

062716
105776
001403
062716
000402
162716
000207

275 061230

000000

000273
000002

MACRO v03.01

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

SEQ 0235
000000

MOVB
SUB

#273,3(SP)
02, (SP)

;WRITE ERROR NUMBER [N CALL
:MOVE SP TO RETURN IF ERROR

agg

#10, (sp)

*RESTORE SP TO NO ERROR

JSR

000010

PC a(SP)+

*REPORT ERROR AND RETURN

130%:
;REPORT

AN ERROR

000100

001346

010000

001376

001346
000100
001346
000004
000350
000002

001140
001140
001142

BNE
MOV
BIS
MOV

000000

MOVB

001346

001140

001346
000004
000351
000002

ADD

¥4,

SUB

#2,(SP)

NOP

VALID AND

IVC

= 0

;1S VOLUME VALID??

140§

SYES!!

1408
RMDS1,$GDDAT
#VV,SGDDAT
RMDS1,SBDDAT

SYES - DON'T REPORT vv = 0
“EXPECTED STATUS

(SP)

#350,a(sP)
PC.a(SP)+

#10, (5P

MOV

RMDSI,S$GDDAT

ADD

0y,

SUB

#2,(SP)

001140
001142

BIS
MOV

000000

move
JSR

SUB

150%:

*WAS IVC DETECTED??

;RECEIVED STATUS

‘MOVE

SP TO USERS ERROR

CALL

:WRITE ERROR NUMBER IN CALL
*MOVE SP TO RETURN IF
*REPORT

ERROR

ERROR AND RETURN

*RESTORE SP TO NO ERROR
’

NOP

NATA, $GDDAT
RMDS T, SBODAT
(SP)

SEXPECTED STATUS
;RECEIVED STATUS
:MOVE

SP TO USER'S

ERROR

*WRITE ERROR NUMBER IN CALL

PC.a(SP)+

*REPORT

710, (SP)

:MOVE SP TO RETURN IF

1608:
1708:

200%:

ERROR

ERROR AND RETURN

:RESTORE SP TO NO ERROR

ADD
TSTB

¥, (SP)
a(SP)

:MOVE SP TO USER'S ERROR
*WAS ERROR FOUND??

ADD

¥, (SP)

*YES ~

SUB
RTS

¥, (SP)
PC

BEQ

.WORD

CALL

#3%1.3(sp)

;ARGUMENT THE RETURN ADDRESS If AN ERROR WAS DETECTED

000004

#1VC,RMER2]

1S NOT

:REPORT AN ERROR IF ATTENTION IS NOT SET
811
NATA,RMDS]
;1S ATA ON??
BNE
1508
SYES!!

000010

000004
000000

BIT

SUB

100000
100000

#VV ,RMDS

JSR

140%:

VOLUME

BIT

BNE

000010

1608

1708

TNO!!

CHANGE

RETURN

:NO ERROR FOUND
SRETURN TO USER

:STORAGE

FOR FLAGS

CALL

CIRMMAO RMOS5/3/2 FCTINL TST

NS (NN —

MACRO v03.01
STATIC DRIVE STATUS CHECK SUBROUTINE

LSBTTL

SUCH AS THE DRIVE LOSING VOLUME VALID.

THE SUBROUTINE

NS NN -2 O 000~

.CAN BE USED BY HOUSEKEEPING AND OTHER COMMANDS DURING WHICH THERE
: SHOULD NOT BE ANY DRIVE ERRORS OR CHANGES IN STATE.

JSR
BR
NOP
ERPOR
JSR
m

0.0,

6
6
6
&

001346
147677
00100

40 0612646
41 061272

032737
001030

010000

001346

020000

0013:)

46
45
46
47
48
49

013737
052737
013737
062716
112776
162716

001346
010000
001346
000004
000207
000002

001140
001140
001142

5¢ 061354
57 061362

wmrr

SUBROUTINE

0.0,

. THE

®Ss0s

0
8

061344
061346
061352
061354

> h
(=171
— ek tn
N
.8
®
Ce
—x
ot bt bt T VY s
ZZTOO0Z
OO
O r

i S

34
35
36
37

061304
0613:i2
061320
061326
061332
061340

DICATES
l
DRIVE WENT OFFLINE, NOTE
T0 HAVE BEEN SET
%ATES THE DRIVE LOST VOLUME VALID
CATES THAT THE DRIVE IS OFF CYLINDER
l CATES THE DRIVE HAS AN UNEXPECTED SKI
ICATES AN UNEXPECTED DEVICE FAULT

IS CALLED AFTER STORING STATUS
PC,STCDRVSTS
m

ERROR

IN THE GET BUFFER.

RETURN HERE
RETURN HERE

IF NO ERROR
TO REPOR1 AN ERROR

RETURN HERE

TO USER'S

ERROR

ERROR NUMBER DEFINED BY SuB
GO BACK TO SUB FOR MORE ERROR CHECKS

PC.a(SP)+

;CLEAR USER'S E RROR CALL

000004
000000
000004

&2 061274
43 061302

TESTED AND REPORTED AS ERRORS

NO MORE

ERRORS

STCDRVSTS:

6
6
6

061246
061252
061256
061262

TsK1

061232

i S

STHAT MOL

<
<

:THE FOLLOWING CONDITIONS ARE
;1F TRUE:

0
1
1

SEQ 0236

STATIC DRIVE STATUS CHECK SUBROUTINE

:STATUS,

30 061232
31 061236
32 061262

50
51
52
53

:THIS SUBROUTINE LOOKS FOR UNEXPECTED CHANGES IN DR]VE

NOWVNSH WA= O VOO N

[L 1,91, V7, T VY, U7, U7, P

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

032737
001024

004736
162716
000240

032737
00:030

JSEE

ADD
CLRB
S

BIS

MOV
ADD
MOVB

SuB
JSR
SuB

000010
10%:

000100

001346

AN SRROR

BIT
BNE
BIT
BNE

MOV

000000

.REPORT

;MOVE

ne, (SP)

CALL

;CLEAR ERROR NUMBER

;MOVE

SP BACK

TO NO ERROR

"MOL' = 'wv'' = 1, AND 'PIP'' = 0
RMDSI],-(SP)
JPUT DRIVE STATUS ON STACK
BEQ

;REPORT

#4,(SP)

a(SP)

NOP

AN ERROR

BIT

BNE

RETURN

KAC<PIP'MOL'VY>,(SP)
#MOL'VV, (SP)+
;ARE MOL,vV AND PIP 0.K.??

30%

JYES!!

IF MOL = 0 AND ''OPI'' = 0
#MOL , RMDS
;1S MOL ON

108
#OPI,RMER1]
108

SYES!!
“WAS "'OPI'' SET??
SYES-DONT REPORT ‘'MOL''
- 0

RMDSI,$GDDAT
#MOL
, $GDDAT
RMDS{,$BDDAT
¥, (SP)

‘MOVE

82, ($P)

*MOVE SP TO RETURN FOR ERROR

#207,3(sP)
PC ALSP)+

VOLUME

:RECEIVED STATUS

SP TO USER'S ERROR CALL

‘WRITE ERROR NUMBER IN CALL
*REPORT

210, (sP)

AVV RMDS]
20%

;EXPECTED STATUS

ERROR VIA USER

*MOVE SP BACK TO NO ERROR RETURN
VALID

]S NOW ZERO AND

SIS vt - 072
sNO!
.

"'Iv('"

CIZRMMAQ RM05/3/2 FCTNL TST

STATIC ORIVE

STATUS CHECK

58
59
60
61
62
63

061364
061372
061374
0616402
061610
061416

032737
001024
013737
052737
013737
062716

65 061430
66 061434

162716
004736

68 061442
98 061644

000240

64 061422

67 0616436

7
72
73
76
75
76
77
78
79

061444
061452
061456
061462
061464
061472
061500
061506

80 061512
81 061520
82 061524
83 061526
86 061532
gg 061534
87
88
89
90
g;

112776

162716

032737
001430
032737
001024
013737
042737
013737
062716

112776
162716
004736
162716
000240

MACRO v03.01

SUBROUTINE

010000

001376

001346
000100
001346
000004

001140
001346
001142

000210
000002

000000

001346

040000

001376

001346
020000
001346
000004

001140
001140
001142

000211
000002

000000

;SEE

93
94
95
96
97

061546
061554
061556

032737
001424
013737

000200

001376

98 061572

061600
061604
061612
061616

001376

001140
001140

99
100
10
102

013737

001376
000200

103 061620

106 061624
}82 061626
107
108
109
110
111

162716

000240

40%:

000004
000212
000002

001142

508 :
040000

001376

001376
040000

001140
001140

113 061660

062716

000004

114 061664

013737
112776

001376

000213

001142

000000

00, (5P)

*MOVE SP BACK TO NO ERROR

*MOVE SP TO RETURN FOR ERROR
‘REPORT ERROR VIA USER

#211,3(SP)
#2,(SP)
PC,a(SP)+
#10, (SP)

;WRITE ERROR NUMBER IN USER'S CALL
*MOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER
;MOVE SP TO NO ERROR RETURN

"'skI' = "DVC" = 0
MOV
RMERZ2] ,=-(SP)
;PUT ERROR REG 2 ON STA(CK
BIC
#~C<SKI'DVC>,
(SP)+
BEQ
60%
;BRANCH 1F NO ERROR

MOV

RMER2],$BDDAT

;RECEIVED STATUS

SUB

70, (sP)

*MOVE SP BACK TO NO ERROR

ADD
MOVB
SuB
JSR

000010

032737
001424
013737
042737

;WRITE ERROR NUMBER IN CALL

;REPORT AN ERROR 1F THERE IS A DEVICE FAULT
BIT
#DVC.RMER2]
SANY DEVICE FAULT??
BFQ
508
INO !
MOV
RMER21,$GDDAT
;EXPECTED STATUS
BIC
#DVC,$GODAT

000000

061626
061636
061636
061644

112 061652

MovB
SUB
JSR
SuB
NOP

30%:
001376
137577

062716
112776
162716
004736

#2,(SP)
PC.a(SP)+

#210.a(sP)

;REPORT AN ERROR 1f DRIVE IS OFF CYLINDER AND ''SKI'' = 0
BIT
#P1P,RMDSI
;1S DRIVE OFF CYLINDER??
BEQ
308
INO!!
BIT
#SK1,RMERZ]
SWAS 'SKI'' SET??
BNE
30%
JYES=DONT REPORT 'PIP' = 1
MOV
RMDS1,$GDDAT
:EXPECTED STATUS
BIC
#P1P,$GODAT
MOV
RMDSI,$BDDAT
;RECEIVED STATUS
ADD
#., (SP)
*MOVE SP TO USER'S ERROR CALL

000010

013746
042726
001460

042737

SUB
JSR

NOP

208 :

SEQ 0237

#1VC,RMER2]
;WAS "'IVC'' SET??
208
SYES-DONT REPORT ‘'vv'' = 0
RMDS1,$GODAT
:EXPECTED STATUS
#VV,RMDS]
RMDS1,$BDDAT
;RECEIVED STATUS
#,, (SP) :MOVE SP'TO USER'S ERROR CALL

SUB

020000

BIT
BNE
MOV
BIS
MOV
ADD

move

000010

061534
061540
061544
061546

061564

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

NOP

¥4, (SP)
#212.3(sP)
N2, (SP)
PC,a(SP)+¢

;REPORT AN ERROR IF ''SK1'* = 1
B8l7
#SK1,RMERZ]
BEQ
60%
MOV
RMER21,$GDDAT
BIC
#SK1,$GDDAT

*MOVE SP TO USER'S CALL
‘WRITE NUMBER OF ERROR IN CALL
;MOVE SP TO RETURN FOR ERROR
;REPORT ERROR VIA USER

;1S THERE A SEEK
*NO!!
:EXPECTED STATUS

INCOMPLETE

ERROR

MOV

RMERSI,$BODAT

;RECEIVED STATUS

Move

#213a(sp)

“WRITE ERROR NUMBER IN USER'S ERROR CALL

ADD

(SP)

*MOVE

SP 10 USER'S ERROR CALL

—

OV D

NOWVE
OOV

i o e et
D de e D e e e i e

DRIVE

NN —=OVO~NOW

WRNINONINININOPNINININ)
2 b v
s

> 0

aday]

wneo

0 RM05/372 FCINL TST

MACRO v03.01

STATUS CHECK SUBROUTINE

061672
061676
061700

162716

004736

061704
061706

061706
061712
061716
061720
061726
061726
061732
061734

000002

JSR
sus

000010

60¢%:

000004
000000

sAUGMENT

000207

NOP

70%:

80%:

SEQ 0238

#2,(SP)

:MOVE

010, (sp)

*MOVE SP BACK 70 NO ERROR

a(SP)+

THE RETURN ADDRESS
ADD
#6,(SP)
1578
a(SP)

SP TO RETURN FOR ERROR

*REPORT

ERROR

VIA USER

ANY ERROR WAS DETECTED
;MOVE SP TO USER'S ERROR

ADD

ggi(SP)

70%

;WAS AN ERROR DETECTED??
JNO. .-

SUB
NOP

#4,(SP)

sNO

JRETURN

BEQ

000004
000004

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

RTS

JYES

- MOVE

MOVE

TO USER'S

TO NO

TO USER

ERROR

CALL

ERROR

RETURN

CIRMMAO RM0S/3/2 FCTINL TST 1

STOP AND SHUTDOWN SUBROUTINES

MACRO v03.01

;

.SBTTL

2 061736

STOP:

6 061736

061742
061746
061750
g 061750

012746

012746
000002

012746

061764
}; 061764

000207

13 061766
14 061772
15 061774

005737
001015
104401

062000

062022
16 062022

}g 062026

012746
000002

000410
000137

000137

061764

SHUT:

062002

;:65%:

005412

042136

MOV
RTI

#PR3Y,-(SP)

n648,-(SP)

INTERRUPT

;sPUT NEW PS ON STA(K

;:PUT NEW PC ON
STA(K
;;POP NEW PC AND PS

NOP

sRAISE PRIORITY TO INHIBIT CONSOLE INTERRUPT
MOV
#PR6,=(SP)
;.PUT NEW PS ON STA(K
65%:

000042

SEQ 0239

STOP AND SHUTDOWN SUBROUTINES

MOV

64%:

000300

:DROP PRIORITY TO ALLOW CONSOLE

061750

000240

9
10 061752

061756
061762

000140

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

64%:

10%:

MOv
RTI

#65%,-(SP)

;.PUT NEW PC ON STA(K
;.POP NEW PC AND PS

RTS

; CONTINUE

TST
BNE
TYPE

ans?
10$
,65%

;ANY MON]TOR PRESENT
:BR IF YES
;. TYPE ASCIZ STRING

LASCIZ

<CRLF><O7>/TEST HALTED/<CRLF>

JMP

64%

START

$SEOP

;.GET OVER THE AS(CIZ
;GO T0 START

sRETURN CONTROL TO MONITOR

MACRO v03.01
CIRMMAQ RMOS5/3/ 2 FCINL TST 1
SAVE AND RESTOR E RO-R5 ROUTINES

.SBTTL

]

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

SEQ 0240

SAVE AND RESTORE RO-R5 ROUTINES

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

;*SAVE RO-RS

soCALL:

.
SAVREG
'UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
-10P---(016)

o' ‘2---(‘18)
;v

44-==RS

46===RG

;v +8---R}

[}A 1 0---R2

;rd12--=R1
;v+164-~=-R0

062032
062032
062034
062036
062040
062042
062044
062046
062052
062056
062062
062066

$SAVREG:

MOV
MOV

RO,-(SP)
RY,-(SP)

:;PUSH RO ON STAC(K
:;PUSH R1 ON STAC(CK

MOV
MOV
MOV
MOV

22(SP),=(SP)
22(SP),=(5P)
2218P) ,=-(5P)
22(SP),=(SP)

;:SAVE
:;SAVE
;:SAVE
;;SAVE

MOV
MOV
MOV
MOV

000022
000022
000022
000022

RT]

:*RESTORE
;rCALL:

062070
062070
062074
062100
062104
062110
062112
062114
062116
062120
062122
062124

000022
000022
000022
000022

$RESREG:

R2
R3
R4
RS

ON
ON
ON
ON
OF
OF
OF
OF

MAIN FLOW
MAIN fLOW
CALL
CALL

PC
PS
PC
PS

OF
OF
OF
OF

PS
PC
PS
PC

STA(K
STACK
STACK
STA(CK

RESREG

MOV
MOV
MOV
MOV

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(5P)
(SP)+,22(5P)

;;RESTORE
;sRESTORE
;;RESTORE
;;RESTORE

MOV

(SP)+ R4

::POP STACK

MOV

.SBTTL

::PUSH
;:PUSH
;:PUSH
::PUSH

RO=-RS

MOV
MOV
MOV

000002

R2.=(S5P)
R3,=-(SP)
R4 ,=-(SP)
RS,-(SP)

RTI

(SP)+,RS

(SP)+,R}
(SP)+,R?
(SP)+ R

(SP)+,R0O

CALL
CALL
MAIN FLOW
MAIN FLOW

::POP STACK INTO RS
INTO R4

;;POP STACK INTO R3
::POP STACK INTO R?
:;POP STACK INTO R1

;:POP STACK INTO RO

BINARY TO ASCII AND TYPE ROUTINE

;:.I'....'."t".""""""t.'i.t'll.tlt"'.ltti't"l'tl'tttltt

;*THIS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER TO A 16-BIlT

;*BINARY-ASCI] NUMBER AND TYPE ]T.

seCALL:

;e
062126

062130
062134

010146
016601
000261

000006

MOV
TYPBN

$TYPBN: MOV

MOV

SEC

NUMBER,-(SP)

;;NUMBER T0O BE TYPED
;TYPE I

R1,=-(SP)

;SAVE R1 ON THE STA(K

6(5P) ,R1

;:;GET THE

INPUT NUMBER

;sSET "' SO CAN KEEP TRA(K OF

THE NUMBER OF BITS

CZRMMAO RMOS5/3/2 FCINL TST

BINARY

1O ASCI1

062136
062144
0621646
062150
062156
062160
062162
062164
062166
062174
062176
062200

AND

TYPE ROUTINE

112737
006101
0014606
105537
104401
000241
000765
012601
016666
012616
000002
000

000060

MACRO v03.01

062200

1$:

062200
062200

000002

000004

000

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

$8IN:
.SBTTL

MOVB
ROL
BEQ
ADCB
TYPE
cLe
BR
MOV
MOV
MOV
RT]
.BYTE
CONVERT

#'0,$BIN
R1
28
$BIN
L$BIN
1%
(SP)+,R
2(SP) .4 (SP)
(SP)+,(SP)

SEQ 0241

::SET CHARACTER T0 AN ASCII ''0'".
S:GET THIS BIT
::DONE?
.
::NO-=SET THE CHARACTER EQUAL TO THIS BiT
::60 TYPE THIS BIT
::CLEAR "'C'* SO CAN KEEP TRACK OF BITS
1260 DO THE NEXT BIT
::POP THE STACK INTO RI
S ADJUST THE STACK

::RETURN TO USER
0.0
:.STORAGE FOR ASCII
BINARY TO DECIMAL "AND TYPE ROUTINE

CHAR. AND TERMINATOR

""'l.'.t"tttt"""'t"""'t'tt't.'ttttt't'ttt.t't't't'tttttt't

;*THIS ROUTINE

IS USED TO CHANGE

16-BIT

BINARY NUMBER

TO A

5-DIGIT

;*SIGNED DECIMAL (ASCI1) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE

:*NUMBER 1S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING Z2EROS WILL ALWAYS BE
:'?EPLACED WITH SPACES.

.
e

*CALL:

062202
062202
062204
062206
062210
062212
062216
062220
0622264
062226
062230
062236
062260
0622644
062250
062252
062256
062260
062262
062264
062266
062270
062272
062276
062276

010046
010146
010246
010346
010546
012746
016605
100004
005405
112766
005000
012703
112723
©0S002
016001
160105
002402
005202
000774
060105
005702
001002
105716
100407

062302

103003

062300

062306

062312

062316
062322

062324

062326

$TYPDS:

020200
000020

000055

000001

062416
000040

062408

4$:

106316

5¢

116663

000001

052702
110223

000040

052702

005720

020027

1$:

000060
000010

177777

6% :

MOV

TYPDS

NUM, = (SP)

:;PUT
2260

THE BINARY NUMBER ON THE
TO

THE

MOV
MOV
MOV
MOV
MOV
MOV
MOV
BPL
NEG
MOVB
CLR
MOV
MOVB
CLR
MOV
SUB
BT
INC
BR
ADD
ST
BNE
1518
BM]

RO, -(SP)
R1.-(SP)
R2.-(SP)
R3.-(SP)
RS.=(SP)
#20200,-(SP)
20(SP) .RS
1%
RS
#'-,1(SP)
RO
#$DBLK ,R3
#' ,(R3)+
R2
$DTBL (RO),R1
R1.RS
4%
R¢
3
R1.RS
R2
5¢
(SP)
7%

:;ADD BACK THE CONSTANT
T:CHECK IF BCD DI1G1T=0
SSFALL THROUGH IF 0
$:STILL DOING LEADING 0°'S?
::BR IF YES

B((

T:BR IF NO

BIS

#'0,R2

ASLB

MOVB
81S
MOVB

CMP

(SP)

1(5P),-1(R3)

8 .R?
R2,(R3)+

(RG)+

RO, #10

STACK

ROUTINE

;;PUSH RO ON STACK
S:PUSH R1 ON STACK
::PUSH R2 ON STACK
$:PUSH R3 ON STACK
::PUSH RS ON STACK
$:SET BLANK SWITCH AND SIGN
1:GET THE INPUT NUMBER
::BR IF INPUT IS POS.
::MAKE THE BINARY NUMBER POS.
::MAKE THE ASCII NUMBER NEG.
::lERO THE CONSTANTS INDEX
$:SETUP THE OUTPUT POINTER
2:SET THE FIRST CHARACTER TO A BLANK
*:CLEAR THE BCD NUMBER
$:GET THE CONSTANT
::FORM THIS BCD DIGIT
::BR IF DONE
: - INCREASE THE BCD DIGIT BY 1

::MSD?

S:YES==SET THE SIGN

::MAKE THE BCD DIGIT ASCII

S:MAKE IT A SPACE IF NOT ALREADY A DIGIT
::PUT THIS CHARACTER IN THE OUTPUT BUFFER

<2 JUST INCREMENTING
::CHECK THE TABLE

INDEX

CZRMMAQ RM0S5/3/2 FCINL TST
BINARY

MACRO v03.01
TO DECIMAL AND TYPE ROUTINE

062332
062334
062336
062340
062342
062344
062346
062354
062356
062360
062362
062364

177777

177776

13:04:53 PAGE 35-2

SEQ 0242

8%:

1518

9%:

(LRB

::60 DO THE NEXT DIGIT
::60 TO EXIT

8%
RS,R?
6%

J:GET THE LSD

::60 CHANGE TO ASCII

(SP)+
9
=1(SP),=2(R3)
(R3)
(SP)+,RS

::WAS THE LSD THE FIRST NON-ZERO?
J:BR 1F NO
::YES==SET THE SIGN FOR TYPING
::SET THE TERMINATOR
1:POP STACK INTO RS

(SP)+.R2
(SP)+.R1
(SP)+.RO
SDBLK

::POP
$:POP
::POP
J:NOW

(SP)+.R3

062366
062370

062374
062602
062404
062406
062410
062412
062414
062416

11-APR=-80

BLT

062416
000002

000004
$DTBL:

000012

$DBLK:
.SBTTL

MOv
TYPE
MOv
MOV
RT1

10000.
1000.
100.
10.
.BLKW

BINARY

:*THIS ROUTINE

¢*OCTAL

(ASCI])

::POP STACK INTQ R3

S(SP),4(SP)

STACK
STACK
STACK

TYPE

INTO R2
INTO R1
INTO RO
THE NUMBER

S ADJUST THE STACK

(SP)+. (SP)

;;RETURN TO USER

TO GCTAL

(ASCII)
Y

AND

TYPE
R

NUMBER AND

MOV

NUM, -~ (SP)

.BYTE

N
M

TYPOS

.BYTE

TYPE

IT.

JsCALL FOR TYPEOUT
JiN=1 TO 6 FOR NUMBER
;iM=1 OR O

i +$TYPON---~ENTER HERE
;*$TYPOS OR $TYPOC
MOV
TYPON

10 TYPE OUT WITH THE

NUM,-(SP)

;*$TYPOC ---ENTER HERE FOR
seCALL:
M
MOV
NUM, - (SP)

000001
000006
000005

062651
062653
062650

TYPOC(

$TYPOS:

MOV
MOVB
MOvB
ADD

$TYPOC:

DIGITS

s sNUMBER

SAME

TO BE

PARAMETERS AS

TYPED

«.CALL FOR TYPEOUT

062651

TO TYPE

10O

TYPE

::0=SUPPRESS LEADING ZEROS

000000
000001
062653
000002

DIGITS

;:1=TYPE LEADING ZEROS

062426
062432
062440
062444
062450
062652
062460
062466
062474
062476

;s NUMBER T0O BE TYPED

JPLALL:
;'
o

1S USED TO CHANGE A 16-BIT BINARY NUMBER T0 A 6-DIGIT

;*$TYPOS==-~ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF
s*CALL:

CO =t et et OO =t =t O
B et
TM 1 * o T
Y
CONMNLNONNO
BN NNNESENOOO
&
MM NDO =
N
OO NNNO
O NNO

CONVERT

TYPEOUT

16 BIT NUMBER

;.NUMBER TO BE TYPED
.. CALL FOR TYPEOUT

a(SP),-(SP)

;:PICKUP THE MODE

(SP)+,$0MODE+1

;;NUMBER OF

MOVB

#6,30MODE +1

;.5ET FOR SIX(6) DIGITS

MOV
MOV

R3,-(SP)

BR
MOVB

$TYPON: MOVB

1(SP),$OFILL

#2,(SP)
STYPON
#,S0FILL

s.LOAD ZERO FILL SWITCH

DIGITS TO TYPE

¢ :ADJUST RETURN ADDRESS
;;SET

THE

ZERO FILL

#5,80CNT

::SET

THE

ITERATION COUNT

R&,=(SP)

;s SAVE

: s SAVE R3

SWITCH

THE

LAST

(ZRMMAD RMO5/3/2 FCINL TST

BINARY

TO OCTAL

(ASCII)

062500
062502
062506
062510
062516
062520
0625246
062530
062532
062536
062536
062540
062542
062564
062546
062550
062556
062556
062562
062564
062566
062570
062572
062576
062602

010546
113704
005404
062704
110437
113704
016605
005003
006105
000404
006105
006105
006105
010503
006103
105337
100016
042703
001002
005704
001403
005204
052703
052703
110337
106401
105337
003347
002402
005204
000744
012605
012604
012603
016666
012616
000002
000
000
0c0
000
000000

062606

062612
062616
062620
062622
062626
062626
062630
062632
062634
062642
062644
062646
062647
062650
062651
062652

AND

TYPE

MACRO v03.01

062653
000006
062652
062651
000012

062652

177770

000060
000040
062646
062646
062650

000002

000006

11-APR-80 13:06:53 PAGE 35-3

MOV
RS,=(SP)
MOVB
$UMODE+1 R4
NEG
R4
ADD
26,R6
MOVB
R4 ,$0MODE
MovB
$OFILL,RS
MOv
12(SP) ,RS
CLR
R3
1%:
ROL
RS
BR
3%
2%:
ROL
RS
ROL
RS
RO
RS
MOV
R5,R3
3%:
ROL
R3
DECB
$OMODE
BPL
7$
BI(
#177770,R3
BNE
4%
187
R&
BEQ
5%
6%:
INC
R4
BIS
¥'O0,R3
5%:
BIS
L
PLE]
Move
R3,8%
TYPE
8%
7%:
DECB
$OCNT
BGY
2%
BLT
6%
INC
R&
BR
2%
6%:
MOV
(SP)+,R5
MOv
(SP)+ R4
MOV
(SP)+,R3
MOV
2(SP) ,4&(SP)
MOV
(SP)+,(SP)
RTI
8%:
.BYTE
0
.BYTE
0
$OCNT:
.BYTE
0
$OFILL: .BYTE
0
$OMODE: .WORD
O
.SBTTL
TYPE ROUTINE
AR

'ROUT]NE

SEQ 0243

: sSAVE RS
::GET THE NUMBER OF

DIGITS TO TYkE

;o SUBTRACT ]T FOR MAX. ALLOWED
;. SAVE IT FOR USE
;.GET THE ZERO FILL SWITCH
;:PICKUP THE INPUT NUMBER
;. CLEAR THE OUTPUT WORD
; sROTATE MSB INTO ‘"
..C0 DO MsSB
;. FORM THIS DIGIT

::GET LSB OF THIS DIGIT
s TYPE THIS DIGIT?
::BR _IF NO
;:GET RID OF JUNK
;;TEST FOR 0
: s SUPPRESS THIS 0?
;:BR IF YES
;:DON'T SUPPRESS ANYMORE 0°'S
s sMAKE THIS DIGIT ASCII
;MAKE ASCII IF NOT ALREADY
;:SAVE FOR TYPING
::6G0 TYPE THIS DIGIT
.. COUNT BY 1
::BR ]F MORE T0 DO
::BR IF DONE
;o INSURE LAST DIGIT ISN'T A BI ANK
;.60 DO THE LAST DIGIT
; sRESTORE RS
: ;RESTORE R4
: sRESTORE R3
;.SET THE STACK FOR RETURNING
< :RETURN
::STORAGE FOR ASCII DIGIT
;: TERMINATOR FOR TYPE ROUTINE
:;OCTAL DIGIT COUNTER
;o ZERO FILL SWITCH
: ;NUMBER OF DIGITS TO TYPE

RS RRRRdRARRRRRRRR2RR
R
020222222
RE ]

TO TYPE

ASCIZ

MESSAGE.

MESSAGE MUST

TERMINATE

WITH A O BYTE.

:*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
J*NOTE:
SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER (HARACTER.

J*NOTEZ:
J*NOTE3:

$SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
$FILLC CONTAINS THE CHARACTER 10 FILL AFTER.

JoCALL:

;oY1) USING A TRAP INSTRUCTION

s
;*0R
;e
.

TYPE

TYPE
MESADR

LMESADR

;MESADR

FIRST

ADDRESS OF

AN ASCIZ

STRING

(ZRMMAQ RM05/3/2 FCTINL TST

062654
062660
062662
062664
062666
062670
062674
062702
062704
062712
062714
062720
062724
062726
062734
062736
062740
062742
062744
062746
062752
062754
062760
062762
062766
062770
062772
062774
062776
063002
063004
063010
063014
063016

063022
063026
063030
063034
063040

SN2
NI NOOOOW

ROUTINE

7
0
0

MACRO v03.01

001173

M3
11-APR-80 13:04:53 PAGE 35-4

$TYPE:

046
6
7

9
7

1%:

000002
000001

001242

000100

001243

062724
065742
000040

001243

619%:
62%:

2%:

000002

60%:
3%:

000011

:
(%

000200

063066
001172

013746

001170

105366

000001

002770
004737
105337
000770

1518
BPL
HALT
B8R
MOov

5%:
6%:

7%:

063066
063204

N NN

NN NN
—
S, OV NNO

QOO —O —
OOOWO
—
OV =N

063062
063064
063066
063066
063072
063074
063100
063104

000040
063066
000007

116066

116062

177600
000023

MOV

(MPB
BNE
BlT8
BEQ
MOV
JSR
.WORD
BITB
BNE

Movs

BNE
18T
MOV
ADD
RTI
(mpPB
8tQ
(MPB
BNE
1ST
TYPE

BR
JSR
(MPB
BNE
MOV

DECB

BLT

JSR
DECB
BR
;HORIZONTAL

063042
063046
063052
063060

$TPFLG
1%

063204

8$:
9%:

$TYPEC:

MOvB
JSR

8I18

BNE
1ST
BR

1S18
BPL
MOv

BlC
(MPB

RO,=(SP)
a2(sP),RO

#S:TENV.$ENV

SE0 0244

::1S THERE A TERMINAL?
;:BR JF YES
JsHALT HERE IF NO TERMINAL
s tLEAVE

;. AVE RO
;JsGET ADDRESS OF ASCIZ STRING
JsRUNNING IN APT MODE

FAPTCSUP
, SENVM

s+NO,GO CHECK FOR APT (ONSOLE
TO APT
:sNO,GO CHECK FOR CONSOLE
sSETUP MESSAGE ADDRESS FOR APT
;. SPOOL MESSAGE TO APT
s sMESSAGE ADDRESS
s +APT CONSOLE SUPPRESSED

(RO)+,=(SP)

:+PUSH CHARACTER TO BE TYPED ONTO STA(CK

#APTSPOOL ,SENVM ;. SPOOL MESSAGE

629

RO,61%

SC,SATVS

60%

3
(SP)+
(SP)+ RO

#2,(SP)

JoYES,SKIP TYPE

OUT

J:BR IF IT ISN'T THE TERMINATOR
s 1F TERMINATOR POP 1T OFF THE STACK
;:RESTORE RO
;3 :ADJUST RETURN PC

#HT, (SP)

JsRETURN
J:BRANCH

#CRLF, (SP)

. BRANCH IF NOT <CRLF>

(SP)+

$CRLF
CLRB

063204

NS = OO0
NN NOWV

TYPE

$SCHARCNT

PC,8TYPEC
$FILLC, (SP)+

$NULL ,~(SP)
1(SP)

PC,STYPEC

$CHARCNT
7$

J:POP

<HT>

<CR><LF> EQUIYV

J;TYPE A CR AND LF

;s CLEAR CHARACTER COUNT
;sGET NEXT CHARACTER
;:60 TYPE THIS CHARACTER

;1S IT TIME FOR FILLER CHARS.?

;:;IF NO GO GET NEXT CHAR.
;sGET # OF FILLER CHARS. NEEDED
;sAND THE NULL CHAR.
2sDOES A NULL NEED TO BE TYPED?
;:BR IF NO=--GO POP THE NULL OFF OF
;o) TYPE A NULL
;:D0 NOT COUNT AS A COUNT
;. L00P

TAB PROCESSOR

¥, (SP)
PC,STYPEC
#7,8CHARCNT
9%
(SP)+

;;REPLACE TAB WITH SPACE
;. TYPE A SPACE
;;BRANCH JF NOT AT
;s TAB STOP
;.POP SPACE OFF STACK
J:GET NEXT CHARACTER

asTKS
108
as$TKB, - (SP)

::CHAR IN KYBD BUFFER?
J:BR IF NOI
;:GET CHAR
;:STRIP EXTRANEOUS BITS

#1776060, (sP)
#SXOFF
, (SP)

J.WAS CHAR XOFF

STACK

CIRMMAC RMO5/3/72 FCTNL 1ST 1

TYPE RCUTINE

MACRO v03.01

[ B Y o B R
oS =00

57
03
77
27
27
13

O == = ~y~
ooV~

001012

101$%:

116042

116036
177600

000021

102%:

005726

063206

105777
100375
116677
122766
001003
105037
000406
122766
001402
105227
000000
000207

10%:

116020

000002
000015

116012
000002

063204
000012

000002

11-APR-B0 13:04:53 P2GE 35-5
BNE

102%

;:BR [F NOT

1518
BPL
Mmove

asTKs
1018
a$TKB, (SP)

;:WAIT FOR CHAR

BIC
(mMPB
BNE
1T

15718
BPL
MOVB
CMPB
BNE
CLRB
BR
1%:
CMPB
BEQ
INCB
$CHARCNT
: ., WORD
$TYPEX: RTS

.SBTTL

SEQ 0245

#177600, (SP)

1:GET CHAR

#SXON, (SP)
101%

JiSTRIP IT
::WAS IT XON?
::BR IF NOT

(SP)+

s FIX STACK

a$TPS
108

;sWAIT UNTIL PRINTER IS READY

2(SP),a$1P8

qu.Z(SP)

SCHARCNT
STYPEX
NLF,2(SP)
STYPEX
(PC)H+

::LOAD CHAR TO BE TYPED INTO DATA REG.
;1S CHARACTER A CARRIAGE RETURN?
; ;BRANCH ]F NO
::EE?;-CLEAR CHARACTER COUNT
::1S CHARACTER A LINE FEED?

;:BRANCH IF

YES

;s COUNT THE CHARACTER

; ;CHARACTER COUNT STORAGE

SCOPE HANDLER ROUTINE

Ty L
L A

;*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>
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
LOOP ON TEST
INHIBIT JTERATIONS
LOOP ON ERROR

seSWI4=)
;*SWil=1
:*SW09=1
:*SW08=1
*«CALL

;:SCOPE=]0T

SCOPE

$SCOPE:

063210
063210
063212
063216
063224

004737
032777
001131

063226

000416

063230
063234
063242
063246
063252
063254
063256
0632¢2
063264
063264
063272

013746
012737
005737
012637
000500
022626
012637
000440

000004
063254
177060
000004

032777
001421

000400

104410

LOOP ON TEST IN SWR<7:0>

061736

040000

115730

CKSWR
JSR
1$:
Bl
BNE
JNANNNSTART OF
$XTSTR: BR
MOV
MOV
1S7
MOV

000004

5%:

000004

B8R
(MP

mov

115662

6% : . MRNRNEND OF
811
BtQ

;s TEST

FOR CHANGE IN SOFT=-SWR

PC,STOP
#B1714,3SWR
::LOOP ON PRESENT
$OVER
;IYES IF SWi4=1
ngE FOR THE XOR TESTERANNNA

TEST?

;:1F RUNNING ON THE ''XOR'' TESTER CHANGE

SFERRVEC,-(SP)
#5% 3#ERRVEC

ar1#7060

(SP)+ ,@FERRVEC

$SVLAD

(SP)¢,(SP)+

;:THIS INSTRUCTION TO A ''NOP'' (NOP=240)

;:SAVE 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 VE(TOR

(SP)+ ,@FERRVEC
7%
;:LOOP ON THE PRESENT
(ODE FCR THE YOR TESTERNANAN
021!08.8599
.;L00P ON SPEC. TEST?
..BR [F NO

TEST

CIRMMAO RMO5/3/72 FCINL TST 1

SCOPE HANDLER ROUTINE

063274
063276
063302
063304
063310
063312
063316
063320
063322
063326
063332
063334
063336
063342
063344
063352

063354
063362
063364
063372
063374
063400
063404
063406
063414
063416
063422
063424
063430

005046
117716
001414
022716
002411
011637
005316
006316
062716
013637
000466
005726
105737
001421
123737
101015

032777
001404
013737
000446
105037
005037
000415
032777
001011
005737
001406
005237
023737

0636436
063440
063446
063454
063460

002024
012737
013737
105237
113737

063476
063502
063510
063516
063522
063524
063526
063526
063530
063532
063534
063536
063540
063542
063544
063546

005037
112737
013777
013716
000002
000012

063466
063472

063550
063552

063554

063556
063560

011637
011637

010120
010304

010470
010672
011542
012100
012304
012620
013000
014052
014352

014570
015076
015406

MACRO v03.01

115652
000071
001116
063526
001122
001117
001131

001117

001000

115572

001124

001122

001117
001206
004000

115540

001230
001120
001206
000001
063526
001116
001116
001122
001124
001210
000001
001116
001122

001120
001120
001206
001226

001131
115440

.4
B
11-APR-80 13:04:53 PAGE 35-6

CLR
MOvB
BEQ
CMP
BLT
MOV
DEC
ASL
ADD
MOV
B8R
8%:
187
2%:
T1S18
BEQ
(MPB
BHI
BIT
BEQ
7%:
MOV
BR
4%
CLRB
CLR
BR
3%:
BIT
BNE
ST
BEQ
INC
CMP
BGE
1$%:
MOV
MOV
$SVLAD: IN(B
MOvVB
MOV
MOV
CLR
MOVB
S$OVER:
MOV
MOV
RT]
$SMXCNT: 10.
$SWOBTBL:
.WORD
.WORD

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

.WORD
.WORD
.WORD

-(SP)
aSwWR, (SP)
8%
#71,(SP)
8s
(SP),$TSTNM
(sp)
(sP)
#$SWOBTBL,(SP)
a(SP)+ ,8LPADR
SOVER
(SP)+
$ERFLG
3¢
SERMAX ,SERFLG
b$ 3
#B1709,3SWR
4%
SLPERR,SLPADR
$OVER
$ERFLG
$TIMES
1%
#BIT11,3SWR
1%
$PASS
1%
$ICNT
$TIMES,SICNT
$OVER
#1,81CNT
SMXCNT,STIMES
$TSTNM
$TSTNM,STESTN
(SP) ,SLPADR
(SP),SLPERR
$ESCAPE
¥#1,3ERMAX
$TSTNM,a0DISPLAY
$LPADR, (SP)

TST142
TST12+2

SEQ 0246

;;CLEAR A TEMP. LOCATICN
J:P1CKUP THE DESIRED TEST NUMBER
J;BRANCH [F BAD TEST NUMBER IN SWR
J;CHECK THE NUMBER IN THE SWR
;;BRANCH IF TEST NUMBER IS OUT OF RANGE
;;UPDATE THE TEST NUMBER
;;BACKUP BY ONE
;sSCALE THE TEST NUMBER AS AN INDEX
;:;FORM THE ADDRESS OF TEST POINTER
;:SET LOOP ADDRESS TO DESIRED TEST
;.60 LOOP ON THE TEST
;sCLEAN THE BAD TEST NUMBER OFF OF THE STACK
; sHAS AN ERROR OQCCURRED?
;:BR IF NO
JsMAX. ERRORS FOR THIS TEST OCCURRED?
JiBR IF NO
;:LOOP ON ERROR?
;:BR 1F NO
;,SET LOOP ADDRESS TO LAST SCOPE

;. lJERO THE ERROR FLAG
;:CLEAR THE NUMBER OF ITERATIONS TO MAKE
J;ESCAPE TO THE NEXT TEST
;s INHIBIT ITERATIONS?
JsBR IF YES
..IF FIRST PASS OF PROGRAM
INHIBIT ITERATIONS
INCREMENT ITERATION COUNT
..CHECK THE NUMBER OF JTERATIONS MADE
;;BR IF MORE ITERATION REQUIRED
J;REINITIALIZE THE ITERATION COUNTER
2:SET NUMBER OF ITERATIONS 10 DO
2o COUNT TEST NUMBERS
J:SET TEST NUMBER IN APT MA]LBOX
;:SAVE SCOPE LOOP ADDRESS
;s SAVE ERROR LOOP ADDRESS
;. CLEAR THE ESCAPE FROM ERROR ADDRESS
JoONLY ALLOW ONE(1) ERROR ON NEXT TEST
;;DISPLAY TEST NUMBER
;:FUDGE RETURN ADDRESS
J.FIXES PS
;;MAX. NUMBER OF JTERATI]IONS
;:STARTING ADDRESS OF
;sSTARTING ADDRESS Of

TEST 1
TEST 2

:sSTARTING ADDRESS OF
:sSTARTING ADDRESS OF

4
S
6
7
10
11
TEST 12
TEST 13

TST13+2
TST4+2
157542
1876+2
181742
TST10+2
TST1142

;sSTARTING
;s STARTING
;sSTARTING
;:STARTING
;:STARTING
:sSTARTING
JSTARTING

TST144¢2

s;STARTING ADDRESS OF TEST 14

1871242
TST13¢2

TST1542
1ST16+2

ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS
ADDRESS

Of
OF
OF
OF
OF
OF
OF

:sSTARTING ADDRESS OF
;sSTARTING ADDRESS OF

TEST
TEST
TEST
TEST
TEST
TEST
TEST

TEST
TEST

15
16

;:STARTING ADDRESS
::STARTING ADDRESS
;:STARTING ADDRESS
;s STARTING ADDRESS
;;STARTING ADDRESS
;:STARTING ADDRESS
;STARTING ADDRESS
2 ;STARTING ADDRESS
;STARTING ADDRESS
;s STARTING ADDRESS

&5 B
NN NNN N N NN N PO N PO NN N —
= ONOWNMP W= ONO NS W
—=O~

—

—t —t =t
4
= —4

TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST
TEST

Ho Te Yo Yo Yo NV LU IV W TV [V IV IV ¥ 8
= O NN
NN — O~

;:STARTING ADDRESS

wwm NNV
WVWK

;s STARTING ADDRESS
::STARTING ADDRESS
::STARTING ADDRESS
;:STARTING ADDRESS
;:STARTING ADDRESS
; :STARTING ADDRESS
2 STARTING ADDRESS
;:STARTING ADDRESS
2 sSTARTING ADDRESS
J:STARTING ADDRESS
JsSTARTING ADDRESS
:STARTING ADDRESS
;:STARTING ADDRESS
;sSTARTING ADDRESS
::STARTING ADDRESS
; :STARTING ADDRESS
;;STARTING ADDRESS
s sSTARTING ADDRESS
;:STARTING ADDRESS
;s STARTING ADDRESS
;:STARTING ADDRESS
:STARTING ADDRESS
;:STARTING ADDRESS
;s STARTING ADDRESS
;:STARTING ADDRESS
;:STARTING ADDRESS
::;STARTING ADDRESS
;:STARTING ADDRESS
;:STARTING ADDRESS
;;STARTING ADDRESS

—— e
ol et ) e —h —4
mm mmMMmmmmmmmm

[AS1aAST ST N1 N1 N1, N1, N1 V1 N1, 81,81, 01 V] 1, V],

—

— O~

AR
DI

= ONO

b
)
)l
)l

N NN NN NI NN

)
)
)l
et o o

.SBTTL

;:STARTING ADDRESS
;:STARTING ADDRESS

—_ ~NO~ WV NN

036216
036722
037322
037732
040332
040712
041256
041614

SEQ 0247

N~ [o gl oo

(63662
063664
063666
063670
063672
063674
063676
063700
063702
063704
063706

p o

—f =
)l o)l =
)

NN NIV
O N
N =
N =

063660

-~ O

—

N no

S O0rLrONNOOCOOONNOO o

063614
063616
063620
063622
063624
063626
063630
063632
063634
063636
063640
063642
063644
063646
063650
063652
063654
063656

&
35-7

.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
ERROR HANDLER ROUTINE

N = N

063612

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

5650

NN
NANNN — 2 OO NN
OO
O =2 NNO £ = NN 2\ N
O N -—

063562
063564
063566
063570
063572
063574
063576
063600
063602
063604
063606
063610

MACRO v03.01

N AN LN AN

SCOPE HANDLER ROUTINE

DNNNNNNWVNWVDIVNIWNNWVIVIWVNVNWD

CIRMMAQ RMO5/3/2 FCINL TST

'lt"'.l'.ttttt""""ti""'iltttlt'.ltl'ttlt'tttlt'tt.t."t'

tTHlS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
s*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL

;*AND GO TO ERRTYP ON ERROR
:*THE

SWITCH OPTIONS PROVIDED BY
HALT ON ERROR

;*SW15= 1
;*SW13= 1
;*SW10= 1
;*SW09= 1

;eCALL

THIS ROUTINE

ARE:

INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR

ERROR

. ;ERROR=EMT

AND N=ERROR

]TEM NUMBER

CIRMMAO RMO5/3/2 FCINL TST

ERROR HANDLER ROUTINE

063710
063710
063712
063716
063720
063726
06373¢
063736

063742

0637646
063752
063760
063766

0637764
063776
066002
064006
066006
064014
066016
066024
064030
064031
064032
066034
066040
066042
066046
066046
064054
066056
064062
064066
8228;2
066074
0646102
064104
064106
8

066106

001212

011637
162737
117737
032777

001132
000002
115146
020000

001004
004737
104401

122737
001007
113737
004737
000
000
000777
005777
100002
000000
104410
032777
001402
013716
005737
001402
013716
022737
001001
000000
000002

001117
001116
002000

7%
115230
115220

001126

1$:
001132
001130
115160

042346
001217
000001

001242

001130
065752

064030

001000

20$:

218:
22¢:
28:

115114

115100

3$:

001124
001210

48:

001210

062326

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

$ERROR:

104410
105237
001775
013777
032777
001402
104401

005237

MACRO v03.01

000042
6$%:
LSBITL

(KSWR
INCB
BEQ
MOV
BIT
BEQ
TYPE

INC

MOV
SUB
MOVB
BIT

$ERTTL

(SP),SERRPC
#2 ,$ERRPC
@SERRPC,SITEMB
#BIT13,aSWR

BNE
JSR
TYPE

208
PC,ERRTYP
$CRLF

CMPB
BNE
MOVB
JSR
.BYTE
BYTE
BR
ST
BPL
HALT
CKSWR
BIT
BEQ
MOV
ST
BEQ
MOV
CMP
BNE
HALT
RTI
TTY

SERFLG
7%
STSTNM.aDISPLAY
#B1T10.aSWR
1%
$BELL

WAPTENV,SENV
2%
S$ITEMB,21%
PC,SATY4
0
0
22%
ISWR
3%
¥B1T0Y,aSWR
43
SLPERR, (SP)
$ESCAPE
5%

$ESCAPE, (SP)
FSENDAD,a#42
6%

INPUT ROUTINE

SEQ 0248

;;TEST FOR CHANGE IN SOFT-SWR
::SET THE ERROR FLAG
“:DON'T LET THE FLAG GO TO ZERO
::DISPLAY TEST NUMBER AND ERROR FLAG
::BELL ON ERROR?
SINO - SKIP
*:RING BELL

S3COUNT THE NUMBER OF ERRORS

::GET ADDRESS OF ERROR INSTRUCTION
;;STRIP AND SAVE THE ERROR [TEM CODE
:SKIP TYPEOUT IF SET
L:SKIP TYPEOUTS
1360 T0 USER ERROR ROUTINE
::RUNNING IN APT MODE
1iNO,SKIP APT ERROR PEPORT
::SET ITEM NUMBER AS ERROR NUMBER
:REPORT FATAL ERROR TQ APT
:APT ERROR LOOP
*:HALT ON ERROR
1:SKIP IF CONTINUE
:*HMALT ON ERROR'
S:TEST FOR CHANGE IN SOF T-SWR
*:LOOP ON ERROR SWITCH SET?
“:BR IF NO
*:FUDGE RETURN FOR LOOPING
1 :CHECK FOR AN ESCAPE ADDRESS
P:BR IF NONE
::FUDGE RETURN ADDRESS FOR ESCAPE
;:ACT-11 AUTO-ACCEPT?
S BRANCH IF NO
SIYES
; sRETURN

"“"'ltt"..".t""'"""'t't"."l't.'tt'tt.'ttfilttt.'."l'tti

064110
064112
064114
064116

000000
000000
000000
064117

"ENABL
LSB
$TKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD
$TKQSRT: .BLKB
$TKQEND=.
.EVEN

O
0
0
1

: :NUMBER OF ITEMS IN QUEUE
YINPUT POINTER
SSOUTPUT POINTER
S:TTY KEYBOARD QUEUE

s*TK INITIALIZE ROUTINE
;*THIS ROUTINE

WILL

INITIALIZE

THE

1Ty KEYBOARD

INPUT

QUEUE

;*SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUP1

TeCALL:
i

JSR

PC.STKINT

CIRMMAD RM05/3/2 FCTINL ST
INPUT

ROUTINE

MACRO v03.01

4
E
11-APR-80 13:04:53 PAGE 35-9

SNNSNSNSNSNNNY

064120
066124
064132
064140
064146
0646154
064160
064166

064112
064114
000060
000062
000100

SEQ 0249

RETURN

o
elelolelelelo
o]
Ot
O ettt
2 O
O PIWVNNININNOW
PO NNNNNNO
O N NN
NN

TTY

$TKINT: CLR

MOV
MOV
MOV
MOV
TST
MOV
RTS

114772

$TKCONT
#STKQSRT,$TKQIN
$TKQIN,3TKQOUT
MSTKSRV,aNTKVEC
#200,3#TKVEC+2
as$TKB
#100,387xS

;sCLEAR COUNT OF JTEMS IN QUEUE
s sMOVE THE STARTING ADDRESS Of THE
;sQUEUE INTO THE INPUT & OUTPUT POINTERS.
;o INITIALIZE THE KEYBOARD VECTOR

:"BR" LEVEL &

;s CLEAR DONE FLAG
JoENABLE TTY KEYBOARD INTERRUPT
;;RETURN TO CALLER

;*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

:*UPON RETURN EXIT
064170
0646174
064200
064204
064206

064212
064216
064220
064224
064230
064232
064240

064242
064242
064250
064252
064256
064260
064262
064266
064270
064274
064276
064302
064304
064310
064314
064320
064322
064330
064332
064336
064342
064344
064350
064352
064356
064362

114766
177600

$TKSRV:

000003

061766
000007
001500
022737
001004
106401

1%:

000176

001154

000001

064110

2$:

001212
3%:

114664

31%:

114656

114652
177600
000021

114630

32%:

000175

!
4%:

IS CALLED AND

- (SP)

#ACIT77,(SP)
(sP),
a8
LSCNTLC

PC,STKINT
(SP)+
SHUT
(SP)
. #7
2$

FSWREG, SWR

;:60 TO SWR CHANGE

CMP
BNE

¥, 8TKCNT

BR
CMP
BNE
(LR

5%
(SP), 423

(SP)+

;:1S THE QUEUE FULL?
;:BRANCH IF NO
;RING THE TTY BELL
::gLE?N CHARACTER OFF OF

;;BRANCH JF NO

187
1518
BPL
MOvVB

JSBELL

a$TKsS
(SP)+

asTKs
31%
a%T1kB,-(SP)
#0177, (SP)
(SP)+ #1

31¢

MOV
RT]

#100,98TKS

BLT

BGT

4%
#40,(SP)
(SP)+ ,a$T1KQIN
$1XKQIN

INC
(MP

CMP

BIC
MOvB
INC

$TKCNT

(2P),l140

(SP),m175

(SHUT)

;:PICKUP THE CHARACTER
;:STRIP THE JUNK
;1S IT A CONTROL (?
s ;BRANCH IF NO
;s TYPE A CONTROL=-C (*C)
;s INIT THE KEYBOARD
. CLEAN UP STACK
;. CONTROL C RESTART
;218 1T A CONTROL G?
;;BRANCH IF NO
;. 1S SOFT-SWR SELECTED?

BEQ

BI(C
CMP
BNE

064110
000140

000040
177530
064112

BNE

TYPE
TST

000023

000100

3$TKB,

TYPE
JSR
TST
JMP
CMP
BNE
cMP

STKINT

IS MADE TO THE ''CONTROL~C'' RESTART ADDRESS

MOVB
BIC
cMp

065304
064120

IS A ''CONTROL-C'' (*C)

s EX

STACK

;1S 1T A CONTROL=S?

;;DISABLE TTY KEYBOARD INTERRUPTS
;s CLEAN CHAR OFF STACK
;:WAIT FOR A CHAR
:sLOOP UNTIL ITS THERE
;:GET THE CHARACTER
::MAKE

7-BIT ASCII

::1S IT A CONTROL=-Q?
; sBRANCH ]F NO
;sREENABLE TTY KEYBOARD INTERRUPTS
: sRETURN
;sCOUNT THIS CHARACTER
;1S 17 UPPER CASE?
: sBRANCH IF

YES

:s1S 1T A SPECIAL CHAR?
;;BRANCH ]F YES

s MAKE 1T
JAND PUT

;;UPDATE

UPPER CASE
1T IN QUEUE

THE

POINTER

CIRMMAQ RM05/3/2 FCTNL ST
INPUT

ROUTINE

064366
064374
064376

064404

F
4
11-APR-80 13:04:53 PAGE 35-10

MACRO v03.01

066112

064117

064116

064112

CMP

BNE

MOV

5¢%:
MR

RT1]

000176

001156

1146536
114532
177600
000007

;260 OFF THE END?
s sBRANCH IF NO
FETKQSRT,$TKQIN J;RESET THE POINTER
s sRETURN
sl XSRS
NN

SWITCH REGISTER CHANGE ROUTINE.
FROM THE TRAP HANDLER, AND WILL
;*SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP
:*CALL WHEN OPERATING IN TTY INTERRUPT MODE.
$CKSWR: CMP
#SWREG, SWR
;3318 THE SOFT=-SWR SELECTED
BNE
15%
JsEXIT IF NOT
1ST8
asTKs
;:1S A CHAR WAITING?
15%
8PL
::1F NOT, EXIT
MOvB
as$1KB,-(SP)
JoYES
#AC177,(SP)
BIC
JMAKE IT
7-BIT ASCII
cMP
(SP)., 07
;1S 1T A CONTROL=G?
BNE
2%
Jo1F NOT, PUT IT IN THE TTY QUEUE

:*ROUTINE

064406
064414
064416
064422
064424
064430
064434
064440

SEQ 0250

glKQIN,lSTKQEND

ARl

;*SOFTWARE

OOO-2—=—=00
ONSH
= OOON
— BN NO WV =D
WO NN =~ =~
[« ,NETW N VENT, STV
ONOON =~~~

TTY

1S ENTERED

sJAND EXIT

".'t."'t"t'."'"i"'t"t"""tt..t."'.."".'l'l...'.'t"'i't

;*CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE
;*ROUTINE OR FROM THE

066442
064450
064452

064454

064460
064464

064472
064476
0646502
0646506
064510
066514
064516
064520
064524
064526
064532

123727

001674
005726
004737
005077
112737
104401
104401

013746
104402
1064401

005046
005046

000001

68:

064120
116474

000001

001151

065316
065323
000176

$GTSWR:

065334

19%:

CMPB

BEQ
TST
JSR
CLR
MovB

TYPE
TYPE
MOv
TYPOC
TYPE
CLR

CLR
1578
8PL

SAUTOB,#1

AND

(SP)+

PC,STKINT
a$7KS
#1,$INTAG

THE

SOFTWARE

AS A RESULT

SWITCH REGISTER BEING

:sARE WE RUNNING IN AUTO-MODE?
:;BRANCH IF YES
¢ CLEAR CONTROL=-G OFF STA(CK
¢.FLUSH THE TTY INPUT QUEUE
::DISABLE TTY KEYBOARD INTERRUPTS

2. SET INTERRUPT MODE INDICATOR

JBCNTLG

;ECHO THE CONTROL=G (*G)

. SMNEW

;. SAVE SWREG FOR TYPEQUT
;.60 TYPE=<OCTAL ASCII(ALL DIGITS)
; ;PROMPT FOR NEW SWR

9%TKS
41

1F NOT TRY AGAIN
s+

. SMSWR
- (SP)
SWREG,
=(5P)
-(SP)

::TYPE

CURRENT

CONTENTS

;. CLEAR COUNTER
;. THE NEW SWR
. CHAR THERE?

114634

117746

1146430
177600

MOvB
8IC

asTKB, - (SP)

.:P1CK UP CHAR

000003

CMP
BNE
TYPE
ADD
(MPB
BNE

(SP),#3
9%

#100,3%7xs
SHUT

5:1S IT A CONTROL=-C?
;sBRANCH IF NOT
;sYES, ECHO CONTROL=-C (*()
s CLEAN UP STA(K
soREENABLE TTY KEYBOARD INTERRUPTS?
:;BRANCH IF NO
JoALLOW TTY KEYBOARD INTERRUPTS
;s CONTROL=-C RESTART

(SP),#25
10%
LSHINTLU

;o1S 1T A CONTROL-U?
:.BRANCH |F NOT
;. YES, ECHO CONTROL-U (*U)

062716

065304
000006
001151
000100
061766

021627
001005
104401

000025

065311

7%:

000001
114566

8%:
9% :

MOV

JMP

(mpP
BNE

TYPE

¥AC177, (SP)
SHONTLC

"6 ,SP

#1
SINTAG,

:;MAKE

7-BIT

SELECTED.

105777
100375

064536
0645642
0646544
064550
064554
064562
064564
064572
064576
064602
064604

001150

SOFTWARE SWITCH REGISTER TRAP CALL,

:*CONTROL=-G BEING TYPED,

ASCII

CIRMMAQ RM0OS5/3/2 FCTINL TST
ROUTINE

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

SEQ 0251

000006

20%:

000015

10%:

000100

1143146

000002
000006
001217
001151

000004

—

NN O
VONLIOONO
O NN
ONNNINNN=O
NWNO O~

064610
0646614
064616
064622
0646264
064630
064632
064640
064644
064650
064656
064660
064666
064670
064674
064700
064702
064706
064710
066714
064720
064722
064724
064726
064730
064734
064740
064742
064746

MACRO v03.01

Po)

INPUT

[elelele
ol elalelele]
OO —=ONOO—-=OO0ON
S OMN2INE
TN
=Nt
O NONONSNO
S~ NOO

1TY

000001

;. IGNORE PREVIOUS INPUT

N6 ,SP

19¢

;oLET'S TRY IT AGAIN
1S 1T A <CR>?

CMP
BNE
157
BEQ

; sBRANCH [F NO

J3YES, 1S IT THE FIRST (HAR?

;sBRANCH ]F YES
;:SAVE NEW SWR
;sCLEAR UP STACK
J;ECHO <CR> AND <LF>

MOv
ADD
TYPE
(MPB

JiRE-ENABLE

MOV
RT]

16%

:RETURN

000067

JSR
(MP
BLT

INTERRUPTS?

J:ECHO CHAR
::CHAR <
;;BRANCH
;:CHAR >
;;BRANCH

000060
000002

0?
IF YES
7?7
JF YES

JSTRIP=-0OFF ASCII
;. 1S THIS THE FIRST (HAR
;;BRANCH JF YES

000002

17%:

001216

18%:

177776

000720

TTY KBD

;;BRANCH JF NOT
::RE-ENABLE TTY KBD INTERRUPTS

BNE

116272

063066
000060

ADD

.DSABL

;iNO, SHIFT PRESENT
CHAR OVER TO MAKE
ROOM FOR NEW ONE.
;KEEP COUNT QOF (HAR
;iSET IN NEW (HAR

2(SP)
=2(SP), (SP)
7%
,$QUES

LSB

;:GET THE NEXT ONE

JiTYPE

20%

2<CRY<LF>

;sSTMULATE CONTROL=-U

;:"'tl.'ttlt'i"""'i""t"'lI"'l'.t..tt....ll'l"ttt't.""'

:*THIS ROUTINE WILL
J*CALL:
b
RDCHR
MR
RETURN HERE

INPUT

SINGLE

064750
064752
064760
064764
064766
064772
064774
064774
065000
065002
065006
065014
065020
065026
065030

011046
016666
005066
005046
012746
000002

000004
000004

000002

$RDCHR:

064774
:
648

064110
064110
177102
064114
066114
064116

000004

064117

064114

MOv
MOv
CLR
CLR
MOV
RTI]

(SP) ,=(SP)

CHARACTER

FROM

THE

:.GET A CHARACTER FROM THE QUEUE
;. CHARACTER IS ON THE STACK
;;WITH PARITY BIT STRIPPED OFF

;:PUSH DOWN THE PC AND

4&(SP),2(SP)
4 (SP)
-(SP)
¥64%,-(SP)

s+ THE

:.WAIT ON A CHARACTER

MOvB

$TKCNT
1%
$TKCNT
a$TKQOUT,
4 (SP)

MOV

;;BRANCH 1f NO
#STXQSRT,$TKQOUT JJRESET THE POINTER

18T
BEQ
DEC

INC
(MP
BNE

$1xQ0UT
3IKQOUT.ISIKOEND

TTv

;:6ET
;.PUT
;.PUT
;.POP

READY FOR A CHARA(CTER
NEW PS ON STACK
STALK
NEW PC ON
NEW PC AND PS

s.DECREMENT THE COUNTER
:.GET ONE CHARACTER
¢ sUPDATE THE POINTER
;.DID

IT GO OFF

THE

END>

CIZRMMAQ RMO5/3/2 FCTNL ST
INPUT

ROUTINE

065036

MACRO v03.01

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

2%:

000002

RT1

SEQ 0252

: sRETURN

;.'l"""""..t""'t"t't"""t"i"'!'.t."lt't"'tt"'tttt"

:'E:IS ROUTINE WILL INPUT A STRING FROM THE TTY

A
A

065136
065140
065146
065152
065154
065160
065162
065166
065170
065174
065176
065200
065204
065210
065212
065216
065220
065224
065230
065234
065236
065242
065246
065250
065252
065254
065262
065270

065276
065304

MOV

10%:

MOvB
(MPB

(SP)+,(R3)
#177,(RY)

18T
BNE
MOVB
TYPE

(SP)
6%
#'\,9%
,9%

BLO
MOVB

4%
(R3),9%

6%:

065274

065272
065272

MOV
DEC
(MpP

7%:

8%:

000022

BR
157
BEQ

TYPE

065311

001217
065274
001216

4%:

065272
065272
000015

3%:

CLR

000004

::6ET CHARACTER
;1S 1T A RUBOUT

;2 1S THIS THE FIRST RUBOUT?
;.;BR IF NO
;;TYPE A BACK SLASH

;:SET THE RUBOUT KEY
::BACKUP BY ONE
;:STACK EMPTY?

,9%

::60 TYPE

¥'\,9%
.9%

;:BR IF YES
::SETUP T0O TYPEQUT

THE DELETED (HAR.

::6G0 READ ANOTHER C(HAR.
::RUBOUT KEY SET?
;:BR IF NO
;:TYPE A BACK SLASH

(SP)

;:CLEAR THE RUBOUT KEY

JOCNTLUY

::TYPE A CONTROL ''U"'
;:60 START OVER

#22,(R3)

(LRB
TYPE
TYPE
B8R
TYPE
BR
MOVB

(R3)
LOCRLF
LSTTY(IN
2%
,SQUES
1%
(R3),9%

(MPB

#15,(R3) ¢+

(LRB

=1(R3)

;;CLEAR RETURN (THE 15)

(SP)+
(SP)+,RY

2:CLEAN RUBQUT KEY FROM THE STA(K
::RESTORE R3

BNE

TYPE

MOV
MOV
MOV
RT]

.98

LOLF

(SP),=-(SP)
4(SP),2(5P)
ASTTYIN,L(SP)

TTY

;:BR JF NO

(MPB

TYPE
BR

151
MOV

000002

::SAVE R3
;;CLEAR THE RUBOUT KEY
::GET ADDRESS
J:BUFFER FULL?
::BR IF YES
;60 READ ONE CHARACTER FROM THE

#=-1,(5P)
R3
RI NSTTIYIN

2%
(SP)
7%

TTy

::ADDRESS OF FJRST (HARACTER WILL Bt ON THE STA(K
;;TERMINATOR WILL BE A BYTE OF ALL 0°'S

#25,(R3)

TYPE

001220

;o INPUT A STRING FROM THE

(MPB
BNE

BNE

177777

065274

BNE

MOVB

065272

000025

000002

(MP
8LOS
RDCHR

TYPE

5¢:

000004

RETURN HERE

1%:

065272

177777

000134
065272

RDLIN

R3,-(SP)
-(SP)
#STTYIN,R3
#STTYIN+B, ,R3
4%

2%:

000177

000134
065272

¥CALL:

$RDLIN: MOV
CLR

B
= \NO O

065040
065042
065044
065050
065054
065056
065060
065062
065066
065070
065072
065074
065102
065106
065112
065114
065120
065122
065126
065132
065134

WO 2O WO =N~ —

T1Y

::1S CHARACTER A CTRL U?
;:BR 1F NO

::1S CHARACTER A ''“R'%?

; :BRANCH [F NO

;:CLEAR THE CHARACTER
;.TYPE A "'CR" & "LF”
;:TYPE THE INPUT STRING
::60 PICKUP ANOTHER CHACTER
;;TYPE A '
;;CLEAR THE BUFFER AND LOOP
;;ECHO THE CHARACTER

;;CHECK FOR RETURN

::LO00P IF NOT RETURN
;:;TYPE A LINE FEED

::ADJUST THE STACK AND PUT ADDRESS OF
FIRST ASCI1 C(HARACTER ON 11
3
:;RETURN

THt

e
i e
— P\

040

[0 JV IV LV IV, }

015

9%:
-l OO0

136
136
136

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

STTYIN: .

$CNTLC:
SCNTLU:
$CNTLG:
$MSWR:
$SMNEW:
.EVEN
LSBTTL

35-13

SEQ 0253

;:STORAGE

FOR ASCII

;:TERMINATOR

CHAR.,

10 TYPE

;JRESERVE 8 BYTES FOR TTy NPUT

MACRO v03.01

000
000
QO
= =t s
H —=ONO
O NI NN

065272
065273
065274
065304
065311
065316
065323
065334

NANNNOODOO

%%snnAo RMOS5/372 FCINL TST
INPUT ROUTINE

2. CONTROL ‘'C"

;s CONTROL ''U"
;s CONTROL ''G"

READ AN OCTAL NUMBER

FROM

THE

TTY

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

.*THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE
. *(HANGE T TO BINARY.
s*CALL:
*
RDOCT
. :READ AN OCTAL NUMBER
.

065346
065350
065356
065360
065362
065364
065366
065370
065372
065374
065376
065400
065402
065404
065406
065410
065412
065414
065420
065422
065424
065426
065432
065436
065440
0656442
065444
065446

6666

000004

000002

$RDOCT:

1%:

042716

010166
010237

000000

;.LOW ORDER BITS ARE ON TOP OF THE STA(K
;;HIGH ORDER BITS ARE IN $H]IOCT

MOv
MOv
MOV
MOV
MOV
ROLIN
MOv

;:PROVIDE SPACF FOR THE
::INPUT NUMBER

MOVB

BEQ

ASL
ROL
AStL
ROL
ASL
ROL

177770

000012
065446

RETURN HERE

CLR
(LR

2%:

BIC

ADD

BR
TST

3%:

$HIOCT:
.SBTTL
N

TTY AND

MOV
MOV
MOV
MOV
MOV
RT]

(SP),=(SP)

4&(SP),2(SP)
RO,=-(SP)
R1,-(SP)
R2,=(SP)

(SP)+,RO
R1
R2
(RO)+,=-(SP)

b§)

R
R2
R1
R2
R1
R2
#407,(SP)
(SP)+,R1

(SP)+

R1,12(SP)
RZ2,$HIOCT
(SP)+,R2
(SP)+,R1
(SP)+ RO

.WORD
0
TRAP DECODER

2222222022022

;sPUSH RO ON STACK
;:PUSH R1 ON STACK
;sPUSH R2 ON STA(CK
;.READ AN ASCIZ LINE
;;GET ADDRESS OF 1ST (HARA(CTER
;. CLEAR DATA WORD
;.PICKUP THIS (HARACTER
1F IERO GET OUT
..
Jav2
Jovh

JoSTRIP THE

JUNK

;;ADD IN THIS DIGIT
;.LOOP

;;CLEAN TERMINATOR FROM STA(K
::SAVE THE RESULT

;:POP STACK

INTO R?

;:POP STACK INTO R1

;:POP STACK INTO RO
;;RETURN
J:HIGH ORDER BITS GO HERE

RS2

;*THIS ROUTINE WILL PICKUP THE

ASCI]

LOWER BYTE

THE

''TRAP'' INSTRUCTION

J*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WilLL
2*GO 10O THAT ROUTINE.
065450
065454

016646
062716

000002
000020

$TRAP:

MOv

BIC

2(5P),=(SP)

#20,(SP)

¢+ ASSUME THE STATUS Of
¢. THE CALLER==DO NOT ALLOW

CIRMMAD RM0OS5/3/2 FCINL TST

TRAP DECODER

065460
065464
065466
065470
065474
065476
065500
065502
065506

MACRO v03.01

6
35-14

J
13:06:53 PAGE

11-APR-80

SEQ 0254

012746
000002

010046
016600
005740

065466
1$:

000002

111000

006300
016000
000200

065522

000004

MOV
MOV
187

000002

$TRAP2:

TABLE

=(RO)
(RO),RO

; sBACKUP BY 2

TO HANDLE

MOV

;*THIS

;2 SAVE RO

;:GET TRAP ADDRESS

$TRPAD(RO
,RO
)
RO
THE

J.GET RIGHT BYTE OF TRAP
;:POSITION FOR INDEXING
JJINDEX TO TABLE
;260 TO ROUTINE

''GETPRI'' MACRO

(SP),=(SP)

4(SPj,2(SP)

MOV
RTI

TRAP

RO,=(SP)

1S USE

.SBTTL

;: T=-BIT TRAPS
;2SET THE NEW STATUS

2(SP),RO

MOvB
ASL
MOV
RTS

;s THIS

011646
016666
000002

7s,-(SP)

MOV
RTI

; ;MOVE THE PC DOWN
; ;MOVE THE PSW DOWN
J:RESTORE THE PSW

TABLE
CONTAINS

THE

STARTING

;*BY THE "'TRAP'' INSTRUCTION.
;
065522

065510
062654
062452
062426
062466
062202
062126

065540

066476

065542
065544
065546
065550
065552
065554

064406
064750
065040
065346
062032
062070

THE

ROUTINES

CALLED

ROUTINE

$TRPAD: .WORD

$TYPE
$TYPOC
$TYPOS
$TYPON
$TYPDS
$TYPBN

LSBTTL

$TRAP?
s CALL=TYPE

TRAP+1(104401)
TRAP+2(104402)

;s CALL=TYPON
s CALL=TYPDS
;3 CALL=TYPBN

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

$GTSWR

¢ s CALL=GTSWR

TRAP+7(104407)

GET

$CKSWR
$RDCHR
SRDLIN
$RDOCT
$SAVREG
$RESREG

;. CALL=CKSWR
s+ CALL=RDCHR

TRAP+10(104410)
1
TRAP+11 ( 1
)
TRAP+1 ( 1 4412)
TRAP+1 ( } 4413)
TRAP+1 (
22}?3
TRAP+1 ( 1

TEST FOR CHANGE IN SOFT-SWR
TTY TYPEIN CHARACTER ROUTINE

s+ CALL=TYPOC
s CALL=TYPOS

3 CALL=RDLIN
s CALL=RDOCT
2 CALL=SAVREG
s CALL=RESREG

TRAP+3(104403)
TRAP+4 (104404)
TRAP+5(104405)

POWER DOWN AND UP ROUTINFS

SOFT-SWR SETTING

TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TT1v
SAVE RO-R5 ROUTINE
RESTORE RO-R5 ROUTINE

‘:lt.t'.t'l..t."""""."'"'.'l..'t'.'tlttt"'t"t'tlttttt"'

000340

000024
000026

246

000

O N

OO —
OO
—

065572
065574
065576
065600
065602
065604
065606
065612
065616
065624
065626

065716

&»
o

065564

QONONOC‘EOOOONN

065556

[ol=lelelelololelolalele
e
QOO b et e e el el e e ad eh

065524
065526
065530
0659532
065534
065536

ADDRESSES

000024

:POWER DOWN ROUTINE

$PWRDN:

MOV
MOV
MOv
MOV
MOV
MOV
MOv
MOv
MOv

MOV
MOv
HALT

#SILLUP,3#PWRVEC

;:SET

FOR

#340,3#PWRVEC+2 ;:PRIO:7
RO,-(SP)
s :PUSH RO
R1,-(SP)
s :PUSH R1
R2,=(SP)
;sPUSH R2
R3Y,=(SP)
;s PUSH R3
R4 ,-(SP)

ON STACK
ON STALK
ON STA(K

ON STACK

;. PUSH R4 ON STACK

RS ,=(SP)
;. PUSH
aSWR,-(SP)
;. PUSH
SP,8SAVRE
;s SAVE
#SPWRUP,I#PWRVEC ;;SET

FAST

RS ON STACK

aSWR ON STA(K
SP
UP VECTOR

;s HANG up

CZRMMAQ RMO5/3/2 FCINL T5T 1

POWER DOWN AND UP ROUTINES

MACRO v03.01

065630

065636
065662
065646
065652

065656

065660
065662
065664
065666
065670
065672
065674
065702
065710
065712
065714
065716
065720
065722
065724

012737

013706
005037
005237
001375

012677

012605
012604
012503
012602
012601
012600
012737
012737
104401
065724
000002
000000
000776
000000
015

065716

065722
065722
065722

000024

AR S22

1$:

000024
000026

$ILLUP:
120

$SAVRG:
$POWER:
LSBTTL

065734

112737

010046
010146
105737
001450
122737
001031
132737
001425
017600
062766
005737
001375
010037
105720
001376
163700
006200
010037
012737
000413
017637
062766

066106

004737

066100

112737
000403
112737

013746

066200
066176

SATY3:

000001

066200

$ATY4:
SATYC:

$ATY1:

066176

000001

001242

000100

001243

000004
000002
001222

000004

001236

1%:

28:

001236
001240
0090064

001222

000004
000002

Q66110
000004

177776

062654

SEQ 0255

R X

NSILLUP,A#PWRVEC ;;SET FOR FAST DOWN

$SAVRG,SP
$SAVRG
$SAVRG
1%

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
TYPE
.WORD
RT]
HALT
BR
0
.ésgll

(SP)+.RS
::POP STACK INTO RS
(SP)+ ,R4
;sPOP STACK INTO R4
(SP)+.R3
1:POP STACK INTO R3
(SP)+,R2
::POP STACK INTO R2
(SP)+.R1
::POP STACK INTO R1
(SP)+.RO
S:POP STACK INTO RO
FSPWRDN,I#PWRVEC ;:;SET UP THE POWER DOWN VECTOR
#360,3#PWRVEC+2 ;:PRIO:7
JREPORT THE POWER FA]LURE
$POWER
;;POWER FAIL MESSAGE POINTER

(SP)+,aSwWR

-2
<155><12>"'POWER""

;:GET SP
S:WAIT LOOP FOR THE TTy
SSWAIT FOR THE INC
$S0F
WORD

$:P0P STACK INTO aSWR

;. THE POWER UP SEQUENCE WAS STARTED
;; BEFORE THE POWER DOWN WAS (OMPLETE
$:PUT THE SP HERE

.EVEN

APT

COMMUNICATIONS ROUTINE

';lt'.tt'.'t.'itt"t"t""t'ttt'ttt!t.tttttt"t'tt'ttttttltttttt

000001
000001

MOV
(LR
INC
BNE

MOV

065742
065750
065752
065760
065760
065762
065764
065770
065772
066000
066002
066010
066012
066016
066024
066030
066032
066036
066040
066042
066046
066050
06605¢
066062
066064
066072

$PWRUP: MOV

$PWRMG:

012

:POWER UP ROUTINE

113274

065556
000340

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

3$:

MOVB

#1,$FFLG

MOVB
BR
MOVB

#1.$MFLG
SATYC
#1,$FFLG

MOV
MOV
1S1B
BEQ
CMPB
BNE
BITB
BEQ
MOV
ADD
187
BNE
MOV
1STB
BNE
SUB
ASR
MOV
MOV
BR
MOV
ADD

RO,-(SP)
R1,-(SP)
SMFLG
5¢
WAPTENV,SENV
3s
WAPTSPOOL,SENVM
38
34 (SP) ,RO
#2.4(5P)
$MSGTYPE
1%
RO, SMSGAD
(RO)+
2%
$MSGAD,RO
RO
RO,$MSGLGT
#4.SMSGTYPE
5¢
a4 (SP) ,48
82 .4(SP)

JSR

PC.$TYPE

MOV

178776, (5P)

::70 REPORT FATAL ERROR
2:70 TYPE A MESSAGE

::70 ONLY REPORT FATAL ERROR

;:PUSH RO ON STACK
S:PUSH R1 ON STACK
J:SHOULD TYPE A M{SSAGE?
::IF NOT:
BR
::OPERATING UNDER APT?
::1F NOT:
BR
;:SHOULD SPOOL MESSAGES?
1:1F NOT:
BR
$:GET MESSAGE ADDR.
;;BUMP RETURN ADDR.
;:SEE IF DONE W/ LAST XMISSION?
S:1F NOT:
WAIT
::PuUT ADDR IN MAILBOX
::FIND END OF MESSAGE
;:SUB START OF MESSAGE
::GET MESSAGE LNGTH IN WORDS
SPUT LENGTH IN MAILBOX
S:TELL APT TO TAKE MSG.

;:PUT MSG ADDR IN JUSR LINKAGE
- -BUMP RETURN ADDRESS

::PUSH 177776 ON STACK
J:CALL TYPE MACRO

MACRO v03.01

5%:

AN N NN O N~ N — N
SNNSNNON AN

066200

000
000200
000001
000100
000040

L
11-APR~B0 13:04:53 PAGE

10$:

001242

001222
000004
200002
0c1222
066200
066177
066176

&
35-16

SEQ 0256

000000

017

066200

118:

001224
0000604
12%:

SMFLG:
$LFLG:
$FFLG:
APTSI1ZE
APTENV
APTSPOOL
APTCSUP

.WORD

1518

$ F LG
|4
$E v
12
$ M GTYPE
1 1
84 (SP) ,SFATAL

BEQ
TST
BEQ
18T
BNE

MOV
ADD
INC

CLRB
CLRB
CLRB

MOV
MOv
RTS
.BYTE
.BYTE
.BYTE
.EVEN

200

001

100

040

PNPZ oTM

~Ww

COMMUNIC

/2 FCINL TST
1ONS ROUTINE

S OO0NVNO

APT

CZRMMAQ RMOS

#2,4(SP)

$MSGTYPE
$FFLG
SLFLG
SMFLG

(SP)+ R
(SP)+ RO

;. SHOULD REPORT

s¢1F

NOT:

FATAL

ERROR?

: RUNNING UNDER APT?
BR
1F NOT:
;.
s.FINISHED LAST MESSAGE?
WAIT
J:1F NOT:
;:GET ERROR #
J:BUMP RETURN ADDR.
JoTELL APT TO TAKE ERROR

s CLEAR FATAL FLAG
J:CLEAR LOG FLAG
;s CLEAR MESSAGE FLAG
J.POP STACK INTO R1
J:POP STACK INTO RO

;RETURN

s MESSG. FLAG
;:L06 FLAG
..FATAL FLAG

CZRMMAO RM05/3/2 FCTINL TST

CONSOLE MESSAGES

MACRO v03.01

3 066202

075

000

7 066220
8 066251

200

1264

& 066206
5 066211
6 066215

9
10
11
12
13
14
15
16
17
18
19
20

21
22
23
24
25
26
27

066251
066304
066337
066355
066417
066437
066473
066505
066536
066537
066624
066701

066702
066723
066737
066745
066765
067002
067021

Sg 067033

30
3

101
040
054

200
200
200
040
126
040
102
040
200
200
200
200

040
200
104
040
040
040
040

040

114
077
040

116
040
000

103
125
102
114
105
114
122
114

110
123
125
111
103
111
0640
111

126
101

131
116

077
104
122
1
116
116
117

111
122
111
123
117
117
106

117

131

116

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

.SBTTL

CONSOLE MESSAGES

EQUALS:

.ASCIZ

ALL:
QUES:
COMMA:

CNSLOB:
CNSLO9:
MSDRVS:
MSGDRv:
LODEvV:
NOTPRS:
NOTAVL:
OFFLIN:
ONLINE:

.EVEN

Q=3

LASCIZ
.ASCIZ
. SCIZ

QALLa<CRLF>
a?a
a, @

LASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
LASCI1
<ASCIZ
.ASCII

<CRLF>3CHANGE ADDRESSES (Y/N) ? @
<CRLF>QUSE SAME DEVICES (Y/N) ? @
<CRLF>@BUS ADDRESS @
@ LIMITS - LO= 160000, Hl= 17XXXX@<CRLF>
@VECTOR ADDRESS 3
& LIMITS-= LO= 0, HI= 10008<CRLF><LF>
aBR LEVEL @
@ LIMITS = LO= 0, HI= 73<CRLF><LF>
<CRLF>
<CRLF>QTYPE ''A'" TO TEST ALL DRIVES, OR TYPE DRIVE NUMBER(S)a
<CRLF>@AND TERMINATE INPUT WITH A CARRIAGE RETURN.3
<CRLF>

MSHELP: .ASCIZ
UBUSQST:
(NSLOO.
CNSLO1:
CNSLO2:
(NSLO3:
CNSLO&4:
(CNSLOS:
CNSLO6:
CNSLO7:

SEQ 0257

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
,ASCIZ
.ASCIZ

<CRLF>3TYPE HELP TEXT

(Y/N)

@ ?ILLEGAL INPUTA<CRLF>
<CRLF>/DRIVE(S): /
/DRIVE/
/ 1S LOAD DEVICE/
/ NOT PRESENT/
/ %07 AvAILABLE/
/ OFF LINE/
/ ON LINE /

? 3

CZRMMAOQ RMO5/3/2 FCINL TST
TABLE

O VI NN —

FUNCTION CODE

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

MACRO v03.01

SEQ 0258
.SBTTL

FUNCTION CODE TABLE

:THE FUNCTION CODE TABLE IS USED TO DEFINE STATUS CONDITIONS FOR
;EACH FUNCTION CODE. BIT USAGE IS AS FOLLOWS:
ATA = BIT

= O 000

.1 F_ATA SHOULD BE

15 1S SET

IN THE ENTRY FOR
A GIVEN FUNCTION CODE

SET WHEN THE

FUNCTION CODE

IS EXECUTED,

OTHERWISE,

WCE - BIT 14 1S SET IN THE ENTRY FORA GIVEN FUNCTION CODE
WRITE CHECK ERRORS ARE ENABLED AS A FUNCTION OF THE COMMAND.

OP1

IVC ERRORS ARE ENABLED DURING THE EXECUTION OF

PINRNININD =

O VOO VLS

e o

WNN

D ad

.8 IT 15 1S ZERO, INDICATING THAT ATA SHOULD NOT NORMALLY BE SET.
:N OTE_THAT ATA MAY BE SET WHEN A COMMAND 1S EXECUTED EVEN THOUGH
.1 T 1S NOT EXPECTED AS A RESULT OF THE COMMAND.

OP] = BIT 13 IS SET IN THE ENTRY FOR A GIVEN FUNCT]ON CODE
ERRORS ARE ENABLED DURING THE EXECUTION OF

IVC = BIT

12 IS SET

THAT COMMAND.

IN THE ENTRY FOR
A GIVEN FUNCTION CODE
THAT

COMMAND.

PRIV

NO VSN

WLE = BIT 11 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
lF WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND .
:THE WRITE ERRORS WHICH ARE ENABLED ARE "WLE", 'WCF'', 'DPE', ‘UPE".

IAE - BIT 10 IS SET IN THE ENTRY FOR A GIVEN FUMCTION CODE
INVALID ADDRESS ERROR IS ENABLED FOR THAT COMMAND.

AOE = BIT 09 1S SET IN THE ENTRY FORA GIVEN FUNCTION CODE
lF READ AND WRITE ERRORS ARE ENABLED DURING THE EXECUTION OF THE
:COMMAND.
THE ERRORS ENABLED BY THIS EJT ARE “TRE'', ''DLT"", "'NEM',

TUMXE, ”LBT”. AND '‘AOE''.
:

BIT 08 IS NOT USED.

HCE = BIT 07 IS SET IN THE ENTRY FOR A GIVEN FUNCTION CODE
IF HEADER ERRORS ARE ENABLED DURING THE EXECUTION OF THAT COMMAND.
:HEADER ERRORS INCLUDE '‘HCRCTM, "'MCE'', 'FER'* AND "BSE'"'.

ECH - BIT 06 IS SET

IN THE ENTRY FOR A GIVEN FUNCTION CODE

lF OATA FIELD ERRORS ARE ENABLED DURING THE EXECUTION OF
:COMMAND.
THESE ERRORS INCLUDE 'MDPE'’, ''DCK'', AND "ECH''.

BIT 05 IS NOT USED.

BIT 04 IS NOT USED.

BIT 03 IS NOT USED.

BIT 02 IS NOT USED.

‘

BIT 01

:
gg 067046
57 067046

.WORD

IS NOT USED.

ILF = 81T 00 1S SET If THE FUNCTION CODE S ILLEGAL.

FNCDTB:

020000

THA"

SFUNCTINN (ODE

OP]

JNCP

TABLE

067110

067112
067114

067116
067120
067122
067124
067126
067130
067132
067134
067136
067140
067142
067144

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

SEQ 0259
.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

OPI!ATA!ILF!IVC

ATAIOPI!IVC!IAE
ATA!OP]!Iv(
oPl

OP1!IvC

OP]'ATA!]V(

OPI!ATA!1VC
0Pl
0Pl
OPI!'ATA!ILF!]IVC
OPI!ATA'ILF!IVC
ATAIOPI'IVC!IAE
CPI'!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OPI'!ATA!ILF!IVC
OPI'!ATA!ILF!]IVC
OPI!ATA!ILF!IVC
OP] !ATA!ILFIVC

WCE!OPI!IVC!IAE'AOE !HCE'ECH
WCE!OPI'IVC!IAE!AOE
' 'HCE'!ECH
OPI!ATA!ILF!IVC
OPI!ATA!ILF!IVC
OP1!IVC!WLE'!IAE'AOE'
'HCE
OPI!IVC'WLE
' IAE'AOE

OPI'ATA!ILF!IVC
OPI!ATA!ILF!IVC
OP1!IVC!IAE!AOE
' 'HCE'ECH
OPI!IVC!IAE!AOE'HCE'ECH
OP]!ATA!ILF!]IVC
OPI'ATA!ILF!IVC

;JLLEGAL FUNCTION (2)
; SEEK

*RECALIBRATE

‘DRIVE CLEAR
JRELEASE

:OFFSET

sRETURN TO CENTERLINE
;READ IN PRESET
+PACK ACKNOWLEDGE
sILLEGAL FUNCTION

sILLEGAL FUNCTJION

:SEARCH

Nt N

130001
132000
130000
020000

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

~~ o~

58 067050
9 067052
067054
067056
067060
067062
067064
067066
067070
067072
067074
067076
067100
067102
067104
067106

TABLE

MACRO v03.01

PO
oo

FUNCTION CODE

Wil
orrn

CZRMMAQ RMO5/3/2 FCINL TST

JILLEGAL FUNCTION (32)
sILLEGAL FUNCTION (36)
sILLEGAL FUNCTION (36)

JILLEGAL FUNCTION (40)

s ILLEGAL FUNCTION (62)
s ILLEGAL FUNCTION (44)
s JLLEGAL FUNCTION (46)
;WRITE CHECK DATA
¢WRITE CHECK HEADER AND DATA
;ILLEGAL FUNCTION (54)
:ILLEGAL FUNCTION (56)
<WRITE

DATA

;WRITE HEADER AND DATA
¢JLLEGAL FUNCTION (64)
sILLEGAL FUNCTION (66)
;READ DATA
;READ HEADER AND DATA

s ILLEGAL FUNCTION (764)

s ILLEGAL FUNCTION (76)

CIRMMAOQ RMO5/3/2 FCINL TST

ATTENTION

(ATA)

TABLE

;
3 067146

001

002
004

7 067152

020

8 067153
9 067154
}? 067155

MACRO v03.01

010
040
100
200

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

LSBTTL

& 067147
S 067150

6 067151

ATNTBL:

ATTENTION (ATA) TABLE
.BYTE

.BYTE
BYTE

.BYTE

BYTE
.BYTE
.BYTE

2.
4.

16.

32.
64.
128,

SEQ 0260

CZRMMAO RM0S5/3/2 FCTINL TST

DATA PATTERN TABLE

;

3 067156

5 067156
6 067160

7 067162
8 067164
9 067166
067170
067172
067174
067176
067200
067202
067204
067206
067210
067212

20 067214
21 067216
22 067220
23 067222
26 067224
25 067226
26 067230
27 067232
28 067234
29 067236
30 067240
31 0672642
32 067244
33 067246
34 067250
35 067252
36 067254
37 067256
38 067260
39 067262

40
41
42
43
&
45
46
47
48
49

50
51
52
53
56
55
56
57

MACRO v03.01

D
5
11-APR-80 13:04:53 PAGE 39
SEQ 0261

.SBTTL

& 067156

10
11
12
13
14
15
16
17
18
19

067264
067266
067270
067272
067274
067276
067300
067302
067304
067306

067310
067312
067314
067316
067320
067322
067324
067326

DATA PATTERN TABLE

RGDTPT:

000000
000001

MIXED:

000003
000007
000017

.WORD
.WORD
.WORD

000037
000077
000177
000377
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
000002
000004
000010
000020
000040
000100
000200
000400
001000

002000
004000
010000
020000
040000
100000
100000
040000

.WORD
.WORD

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

ONES:

ZEROS:

.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

0.
1.

3.
7,
15,
31,
63,
127.
255.

511,
1023.
2047.

4095.
8191,
16383,
32767.
65535.

65535,
32767.
16383,
8191.
4095.
2047.
1023.
511,
255,
127,

63.
31,

15,
7.
3.
1.
0.
0.

1.
2.
4.
8.
16.
32.
64,
128.
256.
512,

1024.
2048.
4096.
8192.
16384,
32768.
32768,
16384,

CZRMMAOQ RM05/372 FCTINL TST

DATA PATTERN TABLE

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
71 067362
72 067364
73
74
75
76
77
78
79

067366
067370
067372
067374
067376
067400
067402

80 067404
81 067406
82 067410
83 067412
84 067414
85 067416
86 067620
87 067422
88 067424
89 067426
90 067430
91 067432
92 0676434
93 0676436
94 067440
95 067442
96 067444
97 067446
98 0676450
99 067452

100
10°
102
103
106
105
106
107
108
109
110
111
112
113
114

067456
067456
067460
067562
067464
067466
0676470
067472
067476
067476
067500
067502
067506
067506
067510

MACRO v03.01

SEQ 0262

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

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

177777
177776
177774
177770
177760
177740
177700

177600
177400
177000
176000
174000
170000
160000
140000
100000
000000
000000
100000
140000
160000
170000
174000
176000
177000
177400
177600
177700
177740
177760
177770
177774
177776
177777
125252
152525
125252
177777
177776
177775
177773
177767

11-APR-80 13:064:53 PAGE 39-1

EARLY:

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
LWORD
LWORD
LWORD
.WORD

819/
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

O—NrO|Oe—gANa1N—OALN-aO1NOSNONTNNoVTSeNSANOeNoINleONlWesNOleOVNeeONieeIteeMNeMleAeNseN=eleN[—TLy
NTOIOTMVCNTUNOMANTOTNWY3OPCSTOVANOO—CMNRIOOSNIOeMRNVlTMNNMOaIOR1NNTCRANNNORMONNTOMoMUOONoN0N]AeTMVOOaNAMRPVOeTNsNoOOeNA—oAOegNANNTeONTNIOACTAoMTIOVVTNolIOoONNlVoOONAVOLIVoNOTNtDiNSVadOOtNe*P4¥aVNoONNeOLyNO—t[
DATA PATTERN TABLE

CZRMMAO RMO5/3/2 FCINL TST
1
MACRO v03.01
f
1 -APR-80 13:04:53 PAGE

ENRGDT:

39-2

5
SEQ 0263

(ZRMMAQ RM0S5/3/2 FCINL TST
ERROR MESSAGE TABLE

MACRO v03.01

3 067604

074200

000000

5 067616
6 067626

076247
074372

074327
076422

L 067610

7 067632

8 067640

074247

074372

000000

074534

000000

000000
000000

101175

076413

074467

000000

074576
074650
074744
074576
074576
074576
074576
074576

074607
074661
076413
075027
075052
075066
075116
075143

000000
074672
000000
000000
075201
075212
075212
075201

075212
075212
075212
075212
075212
075212
075212
075212
075212
075212
075212
075212
075212
000000
076673

9 067646

077161

11 067660

074534

10 067654

076264

101222

000000

5
6
11-APR-80 13:04:53 PAGE 40

.SBTTL

ERROR MESSAGE TABLE

EMT1:

.WORD

EMS1,0

EMT3:
EMT4:

.WORD
.WORD

EMSQ. ens«..
EMSS.EMS6.0

EMT2:

EMTS:

EMT6:

EMT7:

EMT10:

EMT11:

12
13
14
15
16
17
18
19

067664
067672
067704
067712
067720
067730
067740
067750

21
22
23
26
25
26
27
28
29
30
31
32
33
3,
35

062770
070000
070010
070020
070030
0700640
070050
070060
070070
070100
070110
070120
070130
070140
070146

074576
074576
074576
074576
074576
074576
074576
074576
076576
074576
074576
074576
074576
076477
076665

075222
075257
075300
075326
075377
075626
075455
075503
075532
075560
075607
075636
075711
075006
100376

37 070170
38 070200

076003
076724

076117
076117

42 070236
43 070246

074650
076576

074672
075754

076365
075212

EMTSO:
EMTS51:

45 070276
46 070314

076003
076032

076117
076117

076547
076547

EMT53:
EMTS54:

50 070366
51 070602

076202
076606

076547
076202

53 070436

000000

20 067760

36 070156

074576

100467

075160

100477

075201

076621

076673
076673

EMT12:
EMT13:
EMT14:
EMT1S:
EMT16:
EMT17:
EMT20:
EMT21:

EMT22:

EMT23:
EMT24:
EMT25:
EMT26:
EMT27:
EMT30:
EMT31:
EMT32:
EMT33:
EMT34:
EMT35:
EMT36:
EMT37:
EMT40:
EMT41:

EMT42:

EMT43:
EMT4h:

39 070210 076752 076117 076673 EMT4S:
077000 076117 076673 EMT46:
41 070230 076431 076413 000000 EMT47:

40 070220

4, 070260 076003 076117
47 070326 100626
48 070336 076061
49 070356 101175

52 070622

54 070640

100441
076621
076631

076547

076117
076547
076547

077361
076547

100355 0765647 077361
100562

100625

076574

101136

077055

076621

EMT52:

EMI5S:
EMT56:
EMI57:

EMTS60:
EMT61:

EMT62:

EMT63:

EMT64:

55 070460 076107 101602 102003 EMT65:
56 670500 101134 077055 076621 EMT66:
§7 070512

EMI67:

.WORD

.WwORD

.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

EMS2.EMS3,0

EMSS.EMS10,0

EMS167,EMS6s,0

EMS110.EM$170,0
EMS7,0

EMS10.,0

EMS11.EMS12,0
EMS13.EMS14.EMS15,EMS16,0
EMS17.EMS64.0
EMS11.EMS21.0
EMS11.EMS22.EMS27,0
EMS11.EMS23.EMS30.0
EMS11.EMS24.EMS30.0
EMS11.EMS25.EMS27.0

EMS11,EMS26,EMS27,0

EMS11.EMS31.EMS30.0
EMS11.EMS32.EMS30.0
EMS11.EMS33.EMS30.0
EMS11.EMS34,EMS30.0
EMS11.EMS35,EMS30.0
EMS11,EMS36,EMS30.0
EMS11,EMS37.EMS30.0
EMS11.EMS4L0,EMS30.0
EMS11,EMS41.EMS30.0
EMS11.EMS42.EMS30.0
EMS11.EMS4L3.EMS30.0
EMST11,EMS44 ,EMS30,0
EMS11.EMS&S.EMS30.0
EMS66.EMS20,0
EMS?S.EMST41,EMS76,0

EMS144,EMS148, EMS72,EMST76,0
EMS&7,EMSS3,EMS76,0
EMS77.EMS53.EMS76.0

EMS100,EMSSS,EMS76,0
EMS101.EMSS53,EMS76.0
EMS6S,EMS64,0

EMS13.EMS15,EMS63.0
EMS11.EMS4H.EMS30.EMS67,0

EMS47.EMSS3.EMS67.EMS115,EMS140,EMS141,0

EMS47.EMS53.EMS67, en5115.EMS141.EMS164.0
EMSSO.EMSS3.EMS67.0

EMS142,EMS143,EMSS3, EMS67,0
EMSS1,EMST2 EMS67,EMS115,EMSSO,EMS70,0
EMS167.EMSTS.EMS67.0

EMSS6,EMS67,EMSIIS, sns1so,ens1sz EMS70,0
EMS71.EMSSE EMS67,EMS115 EMST150,EMSTS2.EMS72,0

EMS140,EMS6?.EMS11S,EMSL?,EMS?0.0

EMS150,EMS152 ,EMS70,EMS115,EMSS56 EMS73 EMS67,0

EMSST EMS72,0
EMS206
. EMST15,
EMS52,EMS205,EMS214.
EMST124.0
EMS165,EMS10%,EMS72
EMS165.EMS103.EMS72.EMS171,0

SEQ 0264

SEQ 0265
TABLE

ERROR MESSAGE

~ o

x 2]
5

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

MACRO v03.01

1
CZRMMAQ RM05/3/2 FCINL TST

(]

T S TP,
ITMOONONOMNMNOO
N OOONOVOT OO~ NO T —MMe—MITNNOOMAMOOTNINOON

——r—rr Qe e — O — — O OOOO0O0O0O00O0C OO0O0O00O00O0O0O0O00O00OO0ODOO0O00OOOVOOOO

ARAN A A A N A A O A ALA 2 O O <F OMMM MM M M O O O O O O O OO MMM MM MN O = O MR

W s s s A NN SOM NY— — MY VY ) MYIV VY N V)IV ) ) V)V)I ) M) MY Y VY MY M A AV A8 8 ~F OV O

NwO&IN8.eNerImONMNANIAONOOrONOOIE~ONOVS|—IINVEAVSISMVIFVSTMIVNERVEINVRMLTVFVNE]RVVOEYR[MVEoA&&C&2A&&N&&T&N&&O®*>NWAIOUIUIVUILOL
[Va ~

MACRO v03.01

W) VW o WOoOw O o .

TABLE

Nws(=s]O. ONNTTT wENXx TNwE NOMwVMWos xUEVWIENWIWN soN~ NssVs = E—WOU

Al— TOVOTUMNO—OTNINININNOLTNNITOMNOOO—ONT—SO—T~V—OOVIOMIO—ONM

—VV=—]—YNYiOX0WA[NPOV—DAONEEOXMO'O-—.0—AN]]F%e7oYI_},iN0SVl]sO]NNLIOe[J~XN[~o£XaW—-W—e—oVaVNeXoXS\—)AI],U¥ESENAO%eV_"0MlaNMI1EOsIONYooYVaYem(——[VOlCWXXtGNTI%0—=TONE0l2V]N]aLTCNeVXSOeg0-)~—~YOY(((AOAILO0_VPV)V=FlT]}O—eeECAa0N~TY—yGIFNaO0LCOS8Y0eAPL0NO0aOTONY8WONOP—OaNNN)Eo0~YACAgOFaNVSIT0O)IOIeOT8YgNAMOSe0kNgYABOOo)a—OOIN)OeNOYV0MgOEYaINNTNIOeOeN=IYlaNV0LN)eSOTNYgaAOr)YC0OINNgOOMLrOOIONMCbNeaP—NLUl)NDVM-0rOaOOYmeOTON—lVAParND0—NNOUeSmGGROOO0ONNeIe—CNOAONYo0NV)Me—CN—YIUOOANeOV0TNlTONL0P’MeOV)OIONYNPCAlPSOWo)VO]dHOOWDO0ksVNoiOMTNNN—AXONTS)wN)o0d,WIAyelS&VMoO)&OCNI—IRSA—OI)T<—MRVEls,NEMVO&00VVAO&OTTXNr—AWoYNLO)0oVMUNlNONA,sMs=O&V)&SV)EOIeI<NNYVAT"IlMvYO0XON2oolVNO0ISe&o&—S~O)O&rXOoJNTeM3Al—SeTVYgIoVUVlOOer0sN&=*ANON&W)NCOIN'TloOLe—XoeVLLONVINeIaA—0olN&o>UX4SVNJO))EOOIIAMNL0SyVsaYyTvoNAXOmMMAeIWFNV])]Lw&oOOO-¢—OYNNI—NLaoslRvRGMyIG—AtTOUTIUeVO0JN0U=E%OO4ILY)dyoAANIMNMS—oeNlel)O=OLARVeNMlarO~VeIOsKI1(sNWLEnU)No4S0ASN0PrdLOAaOlLoNV\lRP]vVI—ANaOEVM.eEl~Y)OOMWLeAVO(AYWMWDYMS=NvOMAAL[VlP0ED—aA—YNV@0bINoM&oOO0)STV—ONNNOBaFOILlagOAVOoMO—SOas&~EDW)OSNVSW-—W MMNYNlnINN0AAPeveGV5GVdL—eEO0sNVdaNQ0NlOAOM2—NSO)Sr=ENOMIeeeLoaINMOBW0AEFW~ANNdTlAM&O=O)—NMY0NeOOeNOtNoeqITAONyMNGVOalMO~s&0[wEIIVOTeMS—V)-NnOMIoPeVEMMA—ydeAJNAra—=~N0s)OIIdOSloYTANVNNLOOVe)ElL=WOeeNNOWlEMPVAuOIldDOIsMOENOhNoM0A)VneIOTOMeoAlAPENOadMOWCINIaNEVAOIOOOlNDosuDOrLneVTAeAeNCWdNIOE)NIRrO.dMlINsEVMNLWVON§))InaNTMmOUNeIM~IMdPENThrMrNElS—oOOOYOOAO)L1IVeaMOVlmoyCEVV)I0OWrMONvlRMNU¢MOFWIOgNTeSA~aVeeOOP)NIODEP0-AooTIN41OOrO—nNAlTaCTeOOGdOMrUIOOorMlAo~~oIWvXG—QITO—ON=—ee]tLVOaNGyNOO0DAMbIOOIoJ-sOTOOVMN1§rTEN2O=—lnNPOdNRWiyVLdarOrNoIOA—AooN—aOW0dNOX@YVO)nMJlINegAWNLvNEPVtlEDOAMOARarNMJeVMOa1e%nUIlLVdIeLoOgORITOEMRVTON)lAItIJNAa~EOsdO2ONNNN&laOOVMrILbeTVIlNAOOsPnNO’IdNAOmReO~J[1N%PSNaVNAoliA=rOrUACOiMOILNlSMEotoVONLItNelVO|%OOoGAO)PINAMIl—AsO1Oe&OITonLLOOVleNdNrA4eoOVONlsaoIOM0MoAWMMn==—CNNLieOOd%ONlNoW1l—wWVDWVOW@XOFnoG=LPdoNO)OOAO[rYOeo.NOW[eX2)—%)XTNOONeelVlWIOOO%PeWOOelAoRESs.|1Ny]ENNVwbVTO TVDOeUCEoAleLl
ERROR MESSAGE

CZRMMAO RMO5/3/2 FCINL TST
|
p
11-APR=-80 13:04:53 PAGE 40-2

SEQ 0266

%xowO)vn

owy

T W ~ o~

~ b[Val~wn](%217(V2]
sNYN(—N%)NeNNTSS-NSSNTSNNNYN[-NV—NYNv—YNNNee—e)OeLieTOiiPi—ii[EVaXYVSEaleex-e—Aeliii[Vie]el|
ERROR MESSAGE TABLE

1
MACRO v03.01
11-APR-80 13:064:53 PAGE 40-3

(] v

ONIMNMITNO-SNONO—UM OMNO— NMP

ONLO MIM =N\ M M F O

bNALA)—OAEMGuOAw—AN)O)OWe~G—CAMNOAIETAOANLALSMGNAI)T)LOW)AIWTLONLELO0AL)OUOOSV)OO~AWEOLVATML)ET)OTMAN)MAWL)’EANAEMsWAEWLANWAMN)WOGi~)lIATAOAOL0)OW)—ANLAOUoWOAV
o o o wS s . .

N-W)V.NDDsoUoO0W[A[O=EvN2NrLXNO(—~—eAON]l)yyVy=D—VeMNVoarYsXF~lJOMl—WMNIWAOVOeOA—LWaUoo(O*.ooLNEVN~&X-ODDTMMlF—lN=—MOOYPWMwDS]iE—l0NVVoaOV0svED)3MrNOElWOSoOIMPD)neIN—]loaN—eMIXSMWwWNO~MlIWVNSD—eTOi—PIVAFOAM0MlaaVSN-o)N—AWWw[V~OOaFNILxTOMlrO,TIeIeEFoVFP))N.IlaOoSOa2NlOXNSMU~VNAEVNXW£0—o(—"lN%D<YNLoELETe[yT28RN=)OLXSaDAo—IlVIOsw)S[A"N)=T@PEeVYlNM<NWU%We0NOROEU8)}VDEaIr—IAoNTlOOESOw—O—loWFPMPAeRATN=OOsNs§02EEdAXScvlMOMVealOWIMANvODVMPWre—MtaMTaOEsv)—NdI‘uOSO0MNlOlAWViONPDboMTaAYMNMOaIXOVuQYEgVDlVS=ION lPsVAN=obE0eLNWN]aOLI~VVMoaYmW[(WIi)soMWr4O~—EMOl(OVNelA%VXvbAVAONaeTW)SawoVbWWNMuiN)IoEEMoOS[Z3GrDl=INMYObNIAPOImOaODVuouVOEreTMoWNWAsSsANDORObLlELVN—PoMMN~EMAurMoVNYA2OaW&NWbWAlLlMOLNOMPIIOseAON)NaasNRTANNPlw—OOlIGPNIANVrINaoWOMU&oTAMNEWVseNMlTgrL—lINV.MAIwLOOaRVuoalR>NOOWMIWOSIlI—T(TNAiOeMAeV.NoYOaWaxwovSYONAIFLlNFWVNIPVNlLSM=WN SoUMsTaoaANO&RsOENSXOWOWlMMAlAwPIVNrVlXMIBIoaSa%0s&OSO—C=AeOE——FwOlEAIlEWAsNOUTaoIaMosWISeNTVOV‘lNMOM=ArlDPZENWMVIRqOoaaw[---'ROO w")QI[s~Ar=x—O=~NVxNleIOMLN—lONIJVebzME~NTAT)NW~aoEaNIsN»NI—lWUAeYAVTIv0VVW.MlAoILosss*OIIOT~rOelXL=NAlVVTv—UAwMNNeVo~RaaASss*INOIrOOOl—UlVNNyEAP—vVNWVrIIe,aaY-S.N]wN“wOM-wTMxx~NUeNWImLE2ll[NTO—ABlVOVTeVaaSL0VgOOIWVONllMeDAPENMaMWRalAM~&Y¢OMWADVFSAINO—EO1lNWNeNaNioAEWIVaNlAMSVNOO—INM—JOIe-—XlLrmEPVRWIaJANNNMarTN—aTolsDMWADI“MMNDeAlW2IINVbAWNrAMdOUyANLWWaOVAo»Ns*llVAOOeO“INOIrlGAaMMNBOeRlIWYV—MANoENA]oNYDWEE[AsloSOew—IxOIlPW0AVNNUbMA+I—aNayYWAWlXrAVW2MWEoo%sN=NTtNT)SNLOMOEaI-VlNMOaeVwENWNNINAoI"I—~—YIAMNWNW—MoX&s¢MDISVVlLYVTN-0TEVA—XUIGBNTIIOEWWNNNEaNVVNII&L¢ANRVOoVSAIIO,—OfLV)lE0WZIN(eWyTUNMIVUOXeYITatO&oNNEEWDsIVNITlL0EE}VAbMAIVeONooIMYV)NNaL=&oREVAWWFW=rZM&O—NINMOITOOZl0AOMeOVoIqATUINMaoPEN-V&CEV)—WON4V=LOU)NOP’ELeA0le—VNROoOIOMOIE\IaNV&-VoIGNXOI=-YOEAee0NtGlMXoyWNTDAAOaEe-ONDsR&OSMsONIVOIrMNiZeINTTTo0tGEOOaDU-AOav&s&WeNOSIIN=WOXWTlNVEVMIo0MLblo-NATSIE—ION(.YAae&O@¥T8NOSNN)EOEoINOeo%0NlVra]OIICMNTta-YNOSaWENSOIVVmO=eNONf—LEVLWl}A\QAgNWOoEI([N=s0]VWLX(SoSa—EE~VNIOOAIOOaNLNUODYbo%o¥lATFYoNO1VW&sV.¢O—2IAYVMN@O«gIM(-0oI—NOLU)¥RVbL)I—Vflei]IoNWNWMN&&&MV@OoY)IDleeOWIaOMaleNItNNNNoSCVBM0WO=IVINeLObWAoIS}I—lOEONOTi-.~s[(oN-w~VVWNI—NNE~QOLO—aeY%AYloV—)IIWI)0biUrNt&O0vNN@WiATO=V[II e“eA—LIatNV—Esl—NIW«EOOOiM@)NePOISesYNaet~IMIWr[lMroVFeONSMUo~NOlNeAOAe=NtVVIAIrlEsOONAiV)NMIONeO Ne—Eet[NroIN—NaMElvViIUNIOSTOLEEberITrelMIelaRNwV[N)-Voow~VOwOxVe-N—~EIFeeV—LNM)N)rol~olAbITr—aeEOV~l—i)IOOIM—OENF——(Pat}e
CIZRMMAOQ RM05/3/2 FCINL TST

SEQ 0267

(O[MoWV—.YaiYI)

~ ~N o

oI—NNO—O]OCOeON—>l—I~NTOOOOgaOO~NdOSiNeOdMPi~AdNLOAPdiPeNd
OOO0O0OOOr—r—r——

~OxVXYV|TXVVURVXEVeUX[eVOXReVE(EeVlU

IAnLMOT[MMMONe=lIOlbeaTolTNOalNle0alTOloNaOlIbNohIlOaol0OlaMMMOIlohlVeoLN aelleaNTNOolloNeal]l
N
TITOO
TST
1

5006

MACRO v03.01
|

6
|

2
2

102042
000000

EMT
EMT

11-APR-80

WN—y SOOI
ENIE—XNEIXOZXNIYSY

CZRMMAQ RMOS/3/2 FCINL
ERROR MESSAGE TABLE

13:06:53 PAGE 40-4

5
SEQ 0268

O(J—%)

MS56,.EMS73,0

o(<[V9apb]lJ4XVEAIRSYTA)X[-LT—V[IIOSrErRX\VIxExLrxT—Ex)VxI(rSrYXX[—xx]SE[XoSUJsV-eN—]
—M(ooo~w[-~~—e)My]eL1YMOVONAO—MgNaaY0l]L'orM~raMsY—O—~YlNOMV.M-M~—oaN[l-01[MoOO—.-Na(NVYoa]lMRo¥0yMoA(aNo)IML=M_S—l4—a(OO-..l0aY—.\)—— a~]XJl—aLaoo(0~MNoN NO~1]\OalNl[a[w.uYoa~e¥dV-ann1lall—.l
[Jaoo=l[[axYaYxal[NY4S=JN-YSV~R-F—E[~)[a4FEo)-V--nV[——]«aox
O —OM-~ooOooOo o—O0MO0 OO0 [MO—l—O
-O3 Oe3—.—30— —O.3e30 O3——0 O.3—23
L(=a]l OOO

OOO——NANMoOOON0OJNOoPsFSTOMNOO00I—ISOFOONF0V—OOVMeAeIOO—M
CIRMMAQ RMOS/3/2 FCTINL TST
ERROR MESSAGE TABLE
1
MACRO v03.01
11-APR-80

gMO~

13:04:53 PAGE 41

L
9
SEQ 0269

E ?1,STSH1,STSH2,STSH4,0
STSH1,STSHZ2,STSHG,
0

23,STSH1,STSH2,S5TSH4,0

14,0

56,5 TSH1,STSH2,STSH4,0

EM337,STSH1,STSHZ,STSHG,0
EH344,STSHT,STSH2,STSHG,0

EH336,STSHT,STSH2,STSH&,0

CZRMMAQ RMOS5/3/2 FCINL TST

ERROR MESSAGE

TABLE

0764022

103434

& 074040

103442

7 074046

103454

103464

103530

103546

10 074056
11 074066

103476
103506

103530
103530

103546
103546

}g 0764110

103520

% 074032
g 074042

g 07640646

}% 074076

103530

MACRO v03.01

103546

103600

103446

103506

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

EDTI:

.WORD

ED1,STSD1,S7SD2,STSD4

EDT110:

.WORD

EDV10

EDT2:
EDT111:

103530

103546

EDT114:

.WORD
,WORD

.WORD

STSD1,S7SD2,STSD4

EDIW

ED114

EDT223:

.WORD

ED223,STSD1,STSD2,STSD4

EDT336:
EDT337:

.WORD
.WORD

ED336,5TSD1,STSD2,STSD4
ED337,STSD1,S71SD2,STSD4

EDT353:

.WORD

ED353

EDT344:

.WORD

ED337,STYSD1,STSD2,STSD4,0

SEQ 0270

CZRMMAO RMOS5/3/2 FCINL TST

ERROR MESSAGE TABLE

1 076112

% 074122

103613

103631

& 0764130
Z 074132

103612
103613

7 0764134

103615

g 074136

MACRO v03.01

SEQ 0271

103631

103615

103631

10 0764146
11 076156

103620
103620

103631
103631

}g 0764176

103615

}% 076166

103620

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

103631

EFT1:

.WORD

EF111,STSF,STSF,STSF

EFT110:
EFT111:

.WORD
.WORD

EF110
EF111

EFT114:

_WORD

EF114

EFT336:
EFT337:

.WORD
.WwORD

EF336,STSF,STSF,STSF
EF336,STSF,STSF,STSF

EFT353:

.WORD

EF114

EFT2:

EFT223:

EFT3464:

.WORD

STSF,STSF,STSF

EF114,STSF,STSF,STSF

EF336,STSF,STSF,STSF

CIRMMAQ RMO5/3/2 FCTINL TST

ERROR MESSAGE STRINGS

MACRO v03.01

]

B
6
11-APR-80 13:04:53 PAGE 44

.SBTTL

ERROR MESSAGE STRINGS

SEQ 0272

3076200

127

122

117

EMS1:

.ASCIZ

@WRONG UNIT SELECTED

6 074327
70764372
B 074422

116
103
103

117
117
117

116
115
116

EMS&:
EMSS:
EMSe:

.ASCIZ
.ASCIZ
.ASCIZ

11) @
@NONEXISTENT 'NED'' (RMCS2. BIT 12) a
@COMMAND NOT COMPLETED, @
@CONTROLLER NOT READY (RMCS1, BIT 7) @

& 074247
5 074264

9
10
11
12
13
14
15
16
17
18
19

20
21
22
23
26
25
26
27
28
29
30

074467
074534
0764576
074607
074650
074661
074672
074714
074744
075004
075027

075052
075066
0751164
075143
075160
075201
075212
075222
075251
075300
075326

31 075377
075626
075455
075503
075532
075560
075607
075636
075711

32
33
3,
35
36
37
38
39

40
1
2
¢3
6,
65
46
7
48
49

50
51
52
53
54
55
56
57

075754
076003
076032
076061
076107
076117
076131
076153
076202
076257

076305
076320
076347
076365
0766413
076431
076477
0765647

106
125

104
107
111
106
115
108
102
042
124
123
127

102
062
042
106
103
101
123
042
062
042
127

042

062
042
042
042
042
042
110
106
062
062
062
062
126
104
101
111
111
104

1064
104
104
042
111
103
104
106

105
116

126
101

122
117
116
125
101
117
125
115
122
110
117

111
040
126
116
123
116
123
103
101
117
122

115
104
105
106
115
104
110
105
117

103
103
114
130
124
103
101
122

125
114
101
111
131
106
1264
127
125
127
122

111
117
123
120
110
105
126
116
116
125

101
117
101
120
123
117
101
125

123
102
117
123
114
104
101
114
120
103
111

104

101
120
113
111
105
126
040
103
126
122

124
105
124
101
040
115
124
122

EMS2:
EMS3:

EMS7:
EMS10:
EMS11:
EMS12:
EMS13:
EMS14:
EMS15:
EMS16:
EMS17:
EMS20:
EMS21:

EMS22:
EMS23:
EMS4:
EMS25:
EMS26:
EMS27:
EMS30:
EMS31:
EMS32:
EMS33:
EMS34:

EMS3S:
EMS36:
EMS37:
EMS40:
EMS41:
EMS42:
EMS43:
EMS44:
EMS¢5:

EMS46:
EMS4?:
EMS50:
EMS31:
EMS52:
EMS53:
EMS54:
EMS35:
EMS36:
EMS57:

EMS60:
EMS61:
EMS62:
EMS63:
EMS64:
EMS65:
EMS66:
EMS67:

IASCIZ
ASCIZ

[ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
C.ASCIZ
[ASCIZ
ASCIZ
.ASCIZ

_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

(RMCS2, BiTS 0-2) @

@DEVICE WENT 8
@UNAVAILABLE ‘DVA' (RMCS1, BIT

@DRIVE NOT READY 'DRY'’ (RMDS, BIT 7)
@GO NOT RESET ''60'' (RMCS1, BiT 0) a
QINVALID @
@FUNCTION CODE (RMCS1, BITS 1-5) @
aMASSBUS a
QCONTROL @
@BUS PARITY ERROR @
@ MCPE" (RMCS1, BIT 13) @
@TRANSFER ERROR (RMCS1, BIT 14) @
@SHOULD NOT BE SET @
@WORD COUNT (RMWC) @

@BUS (RMBA) 3
@'LBT' (RMDS, BIT 10) @
@' AOE' (RMERT, BIT 09) a
@DISK (RMDA) &
QCYLINDER (RMDC) @
@ADDRESS @
@STATUS @
@'WLE'" (RMER1, BIT 11) @
@'UPE'’ (RMCS2. BIT 13) @
@'WCF'' (RMER1, BIT 5) @
QWRITE CHECK ERROR-"WCE'' (RMCS2, BIT 14) @

@' MOPE" (RMCS2, BIT 8) @

@'DCK (RMER1, BIT 15) @
@'ECH'' (RMER1. BIT 6) @
@'DLT" (RMCS2. BIT 15) @
@'MXf'' (RMCSQ. BIT 9) @
@'DTE" (RMERT, BIT 12) @
@'MCRC'' (RMER{, BIT 8) @
@HEADER COMPARE ERROR "'MCE'' (RMER1, BIT 7) @
@FORMAT ERROR '"FER'' (RMERT, BIT &)@

@'IAE'° (RMER1, BIT 10) @
@'OPI'' (RMER1. BIT 13) a
@''SKI'' (RMERZ2. BIT 14) a
@'PIP'' (RMDS, BIT 13) @
QTHE RM a
@DETECTED a
@AT AN UNEXPECTED @
QINCORRECT DATA DURING @
@INVALID COMMAND ERROR ““IVC'* (RMER2, BIT
@DURING DATA TRANSFER @

@DATA READ @
@DOES NOT COMPARE WITH @
@DATA WRITTEN @
@' 'PAR" (RMER1, BIT 3) 3
@15 INCORRECT @
@COMPOSITE ERROR 'ERR'* (RMDS, BIT 14) @
@DATA PARITY ERROR 'DPE'’
(RMER2, BIT 3) @
QDURING SEEK COMMAND 3

12)

CIRMMAQ RMO5/3/2 FCINL TST

ERROR MESSAGE STRINGS

58
59
60
61
62
63
64
65
66
67
68
69

076574
076606
076621
076631
076646
076665
076673
076724
076752
077000
077026
077055

11
105
111
104
106
114
104
042
042
042
104
105

MACRO v03.01

C
6
11-APR-80C 13:04:53 PAGE 44-1
SEQ 0273

123
122
123
111
m
117
125
122
111
mm
125
122

0640
122
040
106
106
123
122
115
116
116
122
122

EMS70:
EMS71:
EMS72:
EMS73:
EMS?4:
EMS75:
EMS76:
EMS77:
EMS100:
EMS101:
EMS102:
EMS103:

.ASCIZ
.ASCIZ
LASCIZ
_ASCIZ
_ASCIZ
L.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
,ASCIZ

70
71
72
73
74
75
76
77
78
79

077064
077113
077142
077161
077210
077221
077263
077305
077335
077361

042
042
110
102
101
127
101
126
116
015

114
114
105
125
104
110
126
110
117
012

102
123
101
123
104
105
040
105
116
000

EMS113:
EMS114:
EMS115:

81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
107
102
103
104
105
106
107
108
109
110

077414
077436
077457
077522
077557
077622
077654
077717
077762
100021
100057
100117
100143
100166
100230
100273
100320
100355
100376
100424
100441
100467
100477
100526
100545
100562
100601
100625
100651
100673

106
116
103
102
103
105
101
115
105
105
115
116
125
103
122
104
104
115
042
104
042
125
042
123
117
040
042
042
120
116

101
117
117
125
117
122
124
101
103
103
101
117
116
117
110
122
122
105
115
122
106
116
125
110
106
126
117
126
101
117

111
126
116
123
116
122
126
111
103
103
111
126
111
116
057
111
111
104
117
111
126
123
116
117
106
117
115
126
103
126

EMS117: _ASCIZ
EMS120: .ASCIZ
EMS121: .ASCIZ
EMS122: .ASCIZ
EMS123: _ASCIZ
EMS1264: .ASCIZ
EMS125: .ASCIZ
EMS126: .ASCIZ
EMS127: .ASCIZ
EMS130: .ASCIZ
EMS131: _ASCIZ
EMS132: .ASCIZ
EMS133: _ASCIZ
EMS1364: .ASCIZ
EMS135: ASCIZ
EMS136: .ASCIZ
EMS137: _ASCIZ
EMS140: .ASCIZ
EMS141: _ASCIZ
EMS142: _ASCIZ
EMS143: _ASCIZ
EMS144: _ASCIZ
EMS145: _ASCIZ
EMS146: .ASCIZ
EMS147: _ASCIZ
EMS150: .ASCIZ
EMS151: .ASCIZ
EMS152: .ASCIZ
EMS153: _ASCIZ
EMS154: .ASCIZ

80 077364

111
112
113
114

100707
100727
100745
100762

1264

117
116
122
122

110

106
117
124
in

105

106
124
103
120

EMS104:
EMS105:
EMS106:
EMS110:
EMS111:
EMS112:

EMS116:

EMS155:
EMS156:
EMS157:
EMS160:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCI1
.ASCIZ
_ASCIZ
_ASCIZ
_ASCIZ

.ASCIZ

.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ

QIS RESET a
QERRONEOUS @
QIS SET @
3010 NOT SET 3
@DID NOT RESET @
aLOST @
@DURING PACK ACK COMMAND 3
@''RMR'' (RMER1, BIT 2) o
@''ILR' (RMER1, BIT 1) @
@''ILF'" (RMER1, BIT 0) 3
@SDURING SEARCH COMMAND 3
@SERROR 3

@''LBC'' (RMER2, BIT 10) 3
@''LSC' (RMERZ2, BIT 11) 3
QHEADER ERRORS a
@BUS TIMEOUT (04 TRAP) &
SADDRESS 3
QWHEN READING/WRITING RH REGISTERS a
QAT THE FOLLOWING 3
®THE SELECTED DEVICE IS @
QNONEXISTENT DEVICE 3
<CR><LF>

STHE MASSBUS CONTROLLER 3

QFAILED TO DETECT 3
@NOT AN RM05/3/2 a
’
OSCONTROL STATUS REGISTER 1, RM(S1, @
@BUS ADDRESS REGISTER, RMBA, a
@QCONTROL STATUS REGISTER 2, RM(S2, @
@QERROR REGISTER 1, RMER1, @
QATTENTION SUMMARY REGISTER, RMAS, 3
QMAINTENANCE REGISTER #1, RMMR #1, 3
@ECC POSITION REGISTER, RMECT, 3
®ECC PATTERN REGISTER, RMEC2, a
SMAINTENANCE REGISTER 2, RMMR?, 3
@NOT INITIALIZED BY a
@QUNIBUS INITIALIZE 3
SCONTROLLER CLEAR, I.E.
BIT 5 Of a
@RH/RM ERROR CLEAR (RMCS1, BIT 14) 3
QDRIVE CLEAR COMMAND a
@DRIVE STATUS REGISTER, RMDS a
QMEDIUM OFF LINE @
@''MOL'' (RMDS, BIT 12) a3
QDRIVE FAULT 3
@'DVC' (RMER2, BIT 7) a
@UNSAFE @
@''UNS'' (RMER1, BIT 14) 2
@SHOULD BE SET a
Q0FFSET MODE @
@ VOLUME VALID a
@Q''OM'' (RMDS, BIT 0) 3
a@''vv'' (RMDS, BIT 6) 3
@PACK ACK COMMAND 3
QNOT SET BY a

@Q0FFSET COMMAND 2
QNOT RESET BY a
QRTC COMMAND 3
QRIP COMMAND 3

CIRMMAO RMO5/3/2 FCINL TST

ERROR MESSAGE STRINGS

MACRO v03.01

D
6
11-APR-80 13:04:53 PAGE 44-2

115
116
117
118
119
120
121
122
123
126
125
126
127
128
129
130
131
132

100777
101027
101027
101053
101122
101134
101150
101175
101222
101251
101304
101324
101341
101347
101375
101424
101446
101463

117

106

104
11
103
125
122
042
127
105
116
122
104
104
042
i
103
104

125
123
13
116
105
101
110
122
117
105
101
125
117
116
101
1M1

122
0640
114
105
103
126
105
122
116
103
124
122
120
0640
116
101

134
135
136
137
138
139

101561
101574
101622
101634
101661
101706

11
042
105
127
042
127

116
127
130
1
107
122

103
122
105
124
117
111

142
143
146
145
146
147
148
149
150
}g;

101760
102003
102021
102042
102072
102125
102145
102215
102246
102323

127
123
120

101
105
122
125
117
105
101
040
105
117

123
105
117

EMS213:
EMS214:
EMS215:

_ASCIZ
,ASCIZ
.ASCIZ

117
101
104
104
101
116

EMS217:
EMS220:
EMS221:
EMS222:
EMS223:
EMS224:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ

133 101531

1640 101717
141 101735

106

127
120

104

114
123
102
101
110
116

125

101
122

122

123
117

122

EMS161:
EMS162:
EMS163:
EMS164:

EMS165:
EMS166:
EMS167:
EMS170:
EMS171:
EMS172:
EMS173:
EMS174:
EMS175:
EMS176:
EMS177:
EMS200:
EMS201:

.ASCIZ
.ASCII
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
_ASCIZ
,ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

Q0FFSET REGISTER (RMOF) 3
: SUNUSED>
QDURING RECALIBRATE 3
@1S INTERMITTENT OR DRIVE DIDNT DROP ON 3
QCYLINDER 3
QUNEXPECTED @
SRECALIBRATE COMMAND 3
@'ATA'" (RMDS, BIT15) @
QWHEN READING REGISTER 3
@ERROR REGISTER #2, RMERZ2, 3
aGNONRECOVERABLE 3
QRECOVERABLE 3
@DATA @
QDURING WRITE COMMAND a
Q''OPE'' (RMER2, BIT 13) a
@IN WRITE PROTECT @
QCAN NOT SET a
@DIAGNOSTIC MODE ''DMD'' (RMMR1, BIT 0) 3

EMS203:
EMS204:
EMS205:
EMS206:
EMS207:
EMS210:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

@INCORRECT 3
@'WRL'' (RMDS, BIT 11) 3
@EXECUTED a
@WITH COMP ERROR SET @
@''60'' (RMCS1, BIT 0) @
QWRITING @

EMS202:

EMS211:
EMS212:

EMS216:

.ASCIZ

_ASCIZ
.ASCIZ

.ASCIZ

SEQ 0274

@DURING DIAGNOSTIC MODE a

@WAS RESET BY a
@PROGRAM INTERRUPT 3
awAS NOT GENERATED a3
QSEEXK COMMAND a
@PROGRAM TIMEOUT 3
@DURING LOOK AHEAD TEST a
@LOOK AHEAD REGIS1ER,RMLA, a
QSEARCH COMMAND 3
@BAD SECTOR ERROR ‘BSE'' (RMERZ2, BIT 15) @
3A DATA TRANSFER COMMAND 3
QHEADER COMPARE INHIBIT ''MCI'' (RMOF, BIT 10)
GNONEXISTENT MEMORY ''NEM'' (RMCS2, BIT 11) 3

CIRMMAQ RM05/3/2 FCTINL TST

ERROR MESSAGE

STRINGS

MACRO v03.01

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

SEQ 0275

1 102375
2 102414
2 102423

105
102
040

130
125
122

120
123
115

EH1:
EH110:
EH111:

.ASCIZ
.ASCIZ
_ASCIZ

QEXPCID
RECEVD]
@BUSADRa
@& RM(S2
RMCS1a

9 102442
6 102471

122
105

105
130

103
120

EM114:
EM223:

_ASCI2Z
L.ASCIZ

QSRECEVD
QEXPCTD

7 102517
g 102545

105
123

130
126

120
101

EM256:

.ASCI]
LASCIZ

QEXPCTD
QSTATUS

SNGPRT
RECEVD

DULPRTS
DATA3

RECEVD

RGSTRA<CRLF>

STATUS

INDEX3

10
11
12
}2

102573
102632
10267
102730

107
122
137
105

104
115
137
130

101
103
137
120

EH336:
EH337:

.ASCIZ
.ASCI]
LASCII
LASCIZ

QGDADRS
GDDATA
BDADRS
BDDATA3
QRMCS2
STATUS
FAILING
DATA@<CRLF>
@
.
e
a<CRLF>
QEXPTYO
"RETEVD
BIT
""XBRES3a

15
16
17
18
;8

102767
103027
103065
103125
103144

122
137
105
105
040

115
137
130
130
122

105
137
120
120
115

EH344:

.ASCI1
LASCII
LASCIZ
.ASCI]
LASCIZ

QRMERT
STATUS
HEADER
FAILINGA<CRLF>
@
.
_
WORD
BITa<CRLF>
QEXPTTDO
"RETEVD
NUMBER
POSITONa
QEXPCTD
RECEVDA<CRLF>
@ RMLA
RMLA
RMOF 3

21
22
23
264
25
26
Sg

103173
103240
103250
103315
103337
103375

040
040
040
040
040
040

122
040
122
040

115
040
115
040

L_ASCI]
ASCIZ
.ASCII
LASCIZ

122

115

@
@
&
@
@
@

122

115

EH353:

STSH1:

STSH2:
STSH3:

STSH4:
EVEN

L.ASCIZ

LASCIZ

RMCS1
RMCS2
RMDS
RMASa
RMWC
RMBA
RMDA
RMEC1T
RMEC2a
RMDA
RMDC
RMOF
RMMRY
RMMR?2
RMDT

RMER1

RMER23

RMOF

RMD(Ca

RMLAG

RMSN3

(ZRMMAO RMOS/3/2 FCINL TST ¥

ol
D
e
e
ind
e
—

= O D00 N
OO ~NO N NN

NN —

ERROR MESSAGE STRINGS
103434

103442
103446

001140
001276
001174

001142

000000
001176

MACRO v03.01
000000

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

EDI:

.WORD

.WORD
.WwORD

S$GDDAT, $BDDAT,0

000000

ED110:
EDI11:

$BASE,
$TMPO,$TMP1,0

103454
103464

001362
001140

001176
001142

001200
001174

ED114:
ED223:

.WORD
.WORD

RMDII,$TMP1,$TMP2,0
$GDDAT,$BDDAT,$TMPO,0

103674

001136

001140

001136

ED336:

.WORD

S$GDADR,$GDDAT,$BDADR,$BDDAT,0

103506
103520

001140
001140

001142
001142

001174
001442

ED337:
ED353:

.WORD
.WORD

SGDDAT,$BDDAT,$TMPO,$TMP1,0
$GDDAT,$BDDAT,RMOFO,0

03530
03566
03562
03566
03600

001334
001336
001402
001342
001360

001344
0013640
000000
001370
001374

001346
001342

STSD1:
STSD2:

001366
001362

STSD3:
STSD4:

.WORD
.WORD
.WORD
.WORD
.WORD

RMCS1I,RMCS2I,RMDS],RMER1],RMERZ2],RMAS],O
RMWC],RMBAI
,RMDA] ,RMOF] ,RMDCI,RMEC1]
RMEC?2],0
RMDA],RMDCI,RMOF] ,RMLA],O
RMMR1] ,RMMRZ2],RMDT],RMSNI,0

SEQ 0276

CIRMMAO RMOS/3/2 FCTINL
ERROR MESSAGE STRINGS
1

103612

2 103613
3 103615

000

000
000

TST

MACRO v03.01

6C
6
11-APR-80 13:04:53 PAGE &7
SEQ 0277

000
000

EF110:

000

EF111:
EF114:

.BYTE

.BYTE
.BYTE

0,0
0,0.0

4 103620
2 103624

000
000

EF336:
EFf337:

.BYIE
.BY'E

0,0,0,0
0,0,0,0,0

g 103631

000

STsF:

.BYTE

0,0,0,0,0,0,0

CIRMMAQ RM0OS/3/2 FCINL TST

ERROR MESSAGE STRINGS
1

MACRO v03.01

103640

BUFFER:

2 104646

BUFTWO:

2 103640

g
7
8
9
10
11
12
13
14
15
16
17

BUFONE:
103640

103640
103640
103641

104004
104036
104067

200
200
114
055
124
126
126
124
126
126

16 104140

126

103642
103660

103676
103730

103761

18 106113

20 104201
21 104232
22 106264

23 1043
24 104344
25 104375

26
27
28
29
30

1046426
104460
104505
104522
104562

35
36
37
38
39
40

104716
104754
105004
105037
10507
105122

31
32
33
364

&2
63
44
65
46
&7
48
49

50
51
52
53
56
55
56
57

104562
104605
104630
1046663

105161

105213
105241
105256
105304
105336
105365
105415
105446

105477
105543
105575
105627
105657
105706
105740
105762

1264

1264
1264
124

126
124
124

1264
1264
1264
124
124

124
124
124
124
1264
124
126
126
124
124
124
1264
1264
126
126
126
1264
124
1264

124
124
124
124
1264
124
124
126

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

.BLKW
.BLKW

258.

.=BUFFER

11
055

123
055

063

011

061
062

064
065
066

067
061

061
061
061
061
061
061

061
062
062
062
062
062
062
062
062

063
063
063
063
063
063

063

063
064
064
064
064
064
064
064

064
065
065
065
065
065
065
065

011
011

011
011
011

011

060

061
062
063

064
065
066
067
060
061
062
063
064
065
066
067
060
061
062
063
064
065
066
067
060
061
062
063
064
065
066

067
060
061
062

063
066
065
066

HELP:
LASCI1
LASCI]l

.ASCIl
.ASCII
.ASCIIl

<CRLF>
<CRLF>
@LIST OF TESTSa<CRLF>
Q@===cscscccc-- a<CRLF>
amnl
CONTROLLER ACCESS TESTA<CRLF>
QT2
DEVICE AVAILABLE TESTA<(CRLF>
Q713
DRIVE TYPE TEST@<CRLF>
QTé
UNIBUS INITIALIZE TESTR<CRLF>
Q75
CONTROLLER CLEAR TESTa<CRLF>
Q76
ERROR CLEAR TEST@<CRLF>

.ASCII

aT10

.ASCI1
LASCl]

.ASCII
L.ASCIl

.ASCI]

.ASCIl

.ASCIIl
.ASCII
.ASCIl
.ASCII
.ASCII
.ASCIIl

Q17

DRIVE STATUS TESTa<CRLF>

aTil
aT12
Q7113

DIAGNOSTIC MODE TESTa<CRLF>
PACK ACKNOWLEDGE TEST@<CRLF>
RECALIBRATE TESTQ<CRLF>

QTi16
aT15
aT16

.ASCI1
.ASCIl
L.ASCIl
.ASCII
.ASCIl

aT17
aT20
aT2)
QT2
aT123

.ASCIl
L.ASCIl
.ASCIIl
.ASCI]
.ASCI]
.ASCIl

Q130
QT3]
Q7132
Q133
@734
QT35

.ASCI]
L.ASCII
.ASCII
.ASCI1

.ASCIIl

.ASCIl
.ASCIIl
L.ASCII
.ASCI1
.ASCI]
.ASCI1
.ASCIl
.ASCI1

.ASCIl
.ASCI1
.ASCl]
.ASCI1
.ASCI]
.ASCII
.ASCI1]
.ASCII

PRIMARY/SECONDARY ERROR TESTa<(RLF>

ABORT RECALIBRATE TESTa<CRLF>
IVC RECALIBRATE TEST@<CRLF>
IAE RECALIBRATE TEST@<CRLF>

RECALIBRATE AT OFFSETa<CRLF>
DRIVE CLEAR TESTa<(CRLF>
NOP TEST@<CRLF>
OFFSET TESTA<CRLF>
GO/ATA TESTR<CRLF>

aT2é
@725
QT26
aT2?

WRITE ATA TESTa<CRLF>
ERROR/ATA TESTR<CRLF>
PROGRAM INTERRUPT TEST@<CRLF>
INHIBIT INTERRUPT TESTQ<CRLF>

aT36

WRITE LOCK ERROR TESTa<CRLF>

Q137
QT40
aTesl
aT4?
aT43
@744
@T45
QaT46

@147
Q7150
aT51
@192

Q7153
@756
Q7155
@156

RETURN TO CENTERLINE TESTQ<CRLF>
READ IN PRESET TESTa<CRLF>
RMDC CLEAR OFFSET TESTa<CRLF>
ILLEGAL FUNCTION TESTQ<CRLF>
INVALID COMMAND TEST@<CRLF>
INVALID ADDRESS ERROR TESTa<(RLFf>
ERROR ABORT TESTSa<CRLF>
RMR TEST@<(CRLF>
PARITY ERROR TEST@<CRLF>
ILLEGAL REGISTER TESTa<CRLF>
SEEK LAST CYLINDERQ<CRLF>
SEEX FIRST CYLINDER®<CRLF>
SEEK PRIME CYLINDERS@<(RLF>
SEEX ZERO DIFFERENCEQ<CRLF>

SEEK MAXIMUM DIFFERENCE FORWARD@<(CRLF>
SEEK ADJACENT FORWARDA<CRLF>
SEEX ADJACENT REVERSEQ<CRLF>
SEEK INVALID SECTOR@<CRLF>
SEEX INVALID TRACKa<(CRLF>
SEEK INVALID CYLINDERQ<CRLF>
IVC SEEK TESTa<(RLF>
ABORT SEEK TESTa<(RLF>

SEQ 0278

000200

@765

SEARCH INVALID CYLINDERA<CRLF>

SEARCH INVALID SECTOR@<CRLF>

9164

8766

1VC

@767
8170
8171

<CRLF>

INVALID TRACKS<CRLF>

SEARCH TEST@<CRLF>

ABORT SEARCH TESTA<CRLF>
SEARCH AT OFFSETa<CRLF>
HEAD ALIGNMENT SEEK@<CRLF>

@OPERATIONAL

SWITCH SETTINGS<CRLF>

P
P
e a<CRLF>

OO —NINS
N

aSWITCH

N0
O =N NS N0

SOy SISy WPy WPy WP Wiy Wby iy Wy
Y
Y Sy Sy Sy Sy
X

et Pt St Bt Pt Dot St ot ot Bt Bt Bt Bt Busct Dt Dt

SEEK AT OFFSETA<CRLF>
LOOK AHEAD TESTa<(RLF>
SEARCH ON CYLINDER@<CRLF>
SEARCH OFF CYLINDERA<CRLF>

el
e
e
O
e
O
e
e
e
Lk

8157
@160
al61
8162
@163

PN 00 0t Bt et 5t 5t uscs Bt Bt Bt St ot Pt D

@
e
&
®
@
@
8
6
6
e
&
6
6
®
8
6
B
8
8
&
8
&
e
8
6
8
e
6
8

.END

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

(el el el e X Ve RV NV N N T XV NV NV RV RV R XV NV XV YT XV, [T N 7 R N Ve NV NV RV RV N T NV NV N, ]
[alalfalalalalalfalalalalfalalalfafaYfalfalafa
e tala el et et el e In )

040

126
1264

]

MACRO v03.01
PPl
>

106006

STRINGS

jelolololollolalolelolelelele)] Ot (O =) b o e ed o b b oy -—
P
A A A AR A A
A AR A AT
NNV
— ONININONININI
NN ~ny
COOO0O0COO0OO0O0O0O0OO0O VAN NO S0 &H

ERROR MESSAGE

CIRMMAQ RMO5/3/2 FCINL TST

200

USE@<CRLF>

HALT

ON ERROR3I<CRLF>

LOOP ON TESTa<CRLF>
INHIBIT ERROR TYPEOQUTS®<(CRLF>
a<(RLF>
INHIBIT ITERATIONS@<CRLF>
BELL ON ERROR@<(CRLF>
LOOP ON ERRORQ<(CRLF>
LOOP ON TEST IN SWR<7:0>a<(CRLF>
TN128a3<CRLF>
TNG6LR<CRLF>

TN32a<CRLF>
TN16a<CRLF>
TNB83<CRLF>
TNGR<CRLF>

TN2a<(CRLF>

IN13<CRLF>

SEQ 0279

CZRMMAO RM0S5/3/2 FCTINL TST

SYMBOL TABLE

ABASE =
ACDW1 =
ACDW?2 =
ACKSTS
ACPUOP=
ADDWO =
ADDW1 =
ADDW10=
ADDW11=
ADDW12=

176700
000000
000000
054526
000000
000000
000000
000000
000000
000000

ADDW13= 000000

ADDW14= 000000
ADDW15= 000000

ADDWZ = 000000

ADDW3 =
ADDW& =
ADDWS =
ADDW6 =
ADDW? =
ADDW8 =
ADDW9 =
ADEVCT=
ADEVM =
ADR
=
AENV
=
AENVM =
AFATAL=
ALL
AMADR1=
AMADR?2=

000000
000000
000000
000000
000000
000000
000000
000000
000000
000001
000000
000000
000000
066204
000000
000000

AMADR3= 000000

MACRO v03.01

AUNIT =
AUSWR =
AVECT1=
AVECT2=
A16
=
A17
=
BACK
=
BADTMO
BAl
=
B8B00
=

BBO1

000000
000000
120256
000000
000400
001000
000001
005332
000010
000001

= 000002

ATNTBL

067146

EDT223
EDT336
EDT337
EDT344
EDT353
ED1
EDI10
EDI11
ED114
ED223

(74046
074056
076066
(74076
074110
103434
103442
103446
103454
103464

EMS105
EMS106
EMS1T
EMS110
EMS111
EMS112
EMS113
EMS114
EMS115
EMS116

077113
077142
074576
077161
077210
077221
077305
077335
077361
077364

103506
103520

EMS12
EMS120

074607
077436

066473

ED336

103474

EMS117

077414

066505
066536

ED337
ED353

BB0S
B8B06
8807
BBO8
B809
BITO
81700
BI1701
BI1T02
81703
B1T04
BIT05
81106
BIT07
B1708
B1109

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

CNSLO9
CNTCLR
COMMA
CONT
=
CR
=
CRLF
=
CTLFG
CYLMSK=
DBC(K
=
DBEN
=
DBL
=
DCk
=
DDISP =
DEBL
=
DEVSEL
DISPLA

066702
053530
066215
000100
000015
000200
001326
001777
100000
040000
002000
100000
177570
020000
052056
001156

EFTI
EFT110

074112
074130

EMS122
EMS123

077522
Q77557

EFT111
EFT114
EFTZ
EFT223
EFT336

074132
074134
076122

EMS126
EMS125
EMS126

077622
077654
077717

074136
074146
074156
074166
074176
103612

EMS127
EMS13

EMS130
EMS131
EMS132
EMS133

077762
074650
100021
100057
100117
100143

EF111
EF114
EF336
EF337
EHT

103613
103615
103620
103624
073676

EMS134
EMS135
EMS136
EMS137
EMS14

100166
100230
100273
100320
074661

100000

EHTI1Y

073724

EMS141

100376

8B04

BIT1

= 000020

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

= 000002

BITS
BI1T6

000000
001000
000000
100000
000000
000040
000001
000200
000100
000002
000000
100000
000000
000377

CNSLOS

001512
000040
053646
007604
051644
066304
066337
066355
066417
066437

(NSLO6
CNSLO7

AMTYP2= 000000
AMTYP3= 000000
AMTYP&=
AOE
APASS =
APE
=
APRIOR=
APTCSU=
APTENV=
APTS1Z=
APTSPO=
ARGS
=
ASWREG=
ATA
=
ATESTN=
ATNMSK=

CLKvCT
(LR
=
CLRSTS
CMNSTA
(MPERR
CNSLOO
CNSLO1
CNSLOZ2
CNSLO3
CNSLO4

SEa 0280

= 000004
= 000010

BIT10 = 002000

000000
000000
000000
000000
000000
000000
000000
000000

BB02
BB03

AMADR&= 000000

AMAMS1=
AMAMS2=
AMAMS3=
AMAMS4=
AMSGAD=
AMSGLG=
AMSGTY=
AMTYP1=

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

BIT11
BIT12
BIT13
BIT14
BIT15
BITZ
BIT3
BIT4¢

CNSLO8

066701

DISPRE

000174

DLT

DRY
DSWR

= 000200
= 177570

EDT?

074032

EECC

EFT337
EFT344
EFT353
EF110

EHT110

= 000020

073720

EMS121

EMS140

077457

100355

=
=
=
=
=
=
=
=

004000
010000
020000
040000
100000
000004
000010
000020

DMD
=
DPE
=
OPEHI =
DPELO =
DPR
=
ODRQ
=
DRVCLR=
DRVSTS

000001
000010
040000
020000
000400
004000
000010
057064

EHT114
EHT?
EHT223
EHT256
EHT336
EHT337
EHT344
EHT353

073750
073710
073734
073746
073760
073772
074004
074016

EMS142
EMS143
EMS144
EMS145
EMS146
EMS147
EMS15

100424
10044
100467
100477
100526
100545
074672

EMS150

100562

B117
=
BIT8
=
BIT9
=
BOTADR
BOTFLG
BPTVEC=
BSE
=
BUFFER
BUFONE
BUFTWO
cc
=
(H
=
CHRCNT
(KSWR =

000200
000400
001000
043106
043110
000014
100000
103640
103640
104644
004000
002000
043111
1046410

DTE
=
0DTO
=
DULPRT=
DVvA
=
pvC
=
EARLY
EBL
=
ECH
=
ECI
=
ECRC
=
gDT1
EDTI10
EDT111
EDT114

010000
010000
024024
004000
000200
067472
020000
000100
004000
001000
074022
074040
074042
074044

EH111
EH114
EH223
EH256
EH336
EH337
EH364
EH353
EMS]
EMS10
EMS100
LMs101
EMS102
EMS103

102423
102442
102471
102517
102573
102632
102767
103125
074200
074534
076752
077000
077026
077055

EMS153
EMS154
EMS155
EMS156
EMS157
EMS16
EMS160
EMS161
EMS162
EMS163
EMS164
EMS165
EMS166
EMS167

100651
100673
100707
100727
100745
074714
100762
100777
101027
101027
101053
101134
101150
101175

CLKADR

= 000040
= 000100

001510

EH]
EH110

EMS104

102375
102414

077064

EMS151
EMS152

EMS17

100601
100625

074744

O NIMINONO ANIMIEIONOANONVOOMNVOMIVIOTNVOONITIoO TNOPO AN

ONWOWNNMUYOV TJS MIOOOIMONIWNMONIT

X=AUIOj—TNObOE—eArN—N=TI)=LNCrlOOorMU~AoAWy—eNOINlMOeXATPPGOa=iTNvl)NrO=—S8IA0esNTIOOWOa0A=aTALOSNlrrOTaN=FA0OLG—lVeINbe=ON~OPrGlFlOI0OeN—=bAI8AMDMlINOO—Ne=sN8P-0LArTl0VF—)a=PAMOlODNTO SM—VA)eoO=PGOMONo0lrT=A—ON—So=D—GOGO=lIANNO=oN=vPLM0rlW—Oe0OLvOUGx=JlvyeOJNNo=bAPvsOI—lNOe=CaAysAAONl—SO=saPObNA0OIlNAONL—APaN¢AvIOlsN—)-UAerNMLOmNOlMNOOOA—OIeUbAlISOIONOOeB=0AogGIONlN—NO3LRSRNOeovAGtNMlANOP—WRNU0oG)tNTNOlOV—A—RAOIoGROlRMpeNIAVON0oeAG—VGOTRrYOlOO-yNyNRbAOoGCM—OVrNSA,lDtMRNAOeauA0AVGAN,iNlrOONIT)mAOeILvNVA,—lOOONnIAROTeLLNgVMoMNOVNPIARelG0OIVOeMTOAO)NRWeN SVlVWeUINeNONNeNNAIoRAMOrOVlNOMNOIIANGoWYDIVEAlIOIA)PTONGoNYIrVONMlTOOVTIAOOPWUAYoN—VVMNIlOOANeAYAoVANOrNVMNOlO)ArNLIPMYGeVrOAOONNlAON NTYLIOGNoCVVmNIIlVzI)OANOTPGLOoTVIMrOMOON TlOJOGsLMVaNImoONONrlSOYWCATGOVNM )eTVDyAeNMNEIOl)O)OPTrDNOIeII—mIV—iI)lV)OeRMXTNNoOIOeLOSOI)aONIAsNWlVANOTrI)Oe)IRNODGNOElOXMMmMOMO)De)NANP\gelEIMNXNrO—)a)OPLOOIDlNeOV)NeATOI—MGilIOVNO)OeMNPMXlLO~~ NCVONTUOePTeUaVMOOlByD—)—A=V)eVNPeWOloOOOONAlLrTNIeSeNGUU—TalWNMrVlI)NePMIeiOOU—OalONrIF)lVNNePb—eOalOITrOONINlNIbNeOM—eaNMlOleTONIeOILeW0N3LMelNTDNAeLVOPAao—l
xUOD7WjN7OLjeS2—PAoyAe=M)TsfOelO~WWP~TeAOyl6736UeLLlAWWPes=el0070)AOWoSNOPleLAel23~7AUs-N0brlWoSaPLA—TNl07dAeeOiOpa(L—oolsITl3OpMYOalMAWPPeAell07WOOLNUVeeSoAP))l3l7UOs—eMWOAPMal0lOJpT)OfWAOeNmeelP3INWUsOa7OlebAN)le1N7)NsaTO—SlOePl030oee0OL-LRPlo\AO1el7)Trf0NPoWDcOO \lm3—SVlO~AeA0b7TeoR0baNNlI1—lII7)reOOaeWMMaMANF3\llAOO)P0eFNWaamI2llIOO7F-pS)eNeW0Di38mTl0~lULO<rOeaMOWP)8O2lNV~7WMLflNaTN$3RIb))m\loNMeTsRo0Ale0LIONNl0NIaV7MbraNee3A)GOlIlT2aOeSOLbMIfbT)llNMr7o)eIN3MAbbSl2lOe)DOMIeOAGbPNlIlro7O)O3IMOeeN<AolT3N7olNIO—LOIAPl~bOGoNa7M)l3IOOeTOlAGbY3VNNMNelSlNGyOGBMTeoI703IN)lelbIMNG0NooTNTMf<PMeeOl3G8OaO37aN)VtITNbeSAPNloVMMlOe)M<eOBA4O3ol37A)lIeOSe8LBMol7OlO))OeAMNA4ebO3N—loOTLIIreeMOGNl)oD3o7tNOIOeO‘OAGlbIoD3NaO)VTlOAMe5et03NoOe7NNI)IeA]llOObM3eNoMTe5oOANlGbrO3l7o—)ULNIOMeAbN)3lvIlM)Oo)MrAee5b3ll—N7O)IFeAerONb3lOOTa—rOOy5NWeeItPr3LNAlIUOWT7a—MTe)NeOWRA3IlrlO)—IO6OINeeO3WlorCN7ONeMT))Il—Me\3AblOrNNe]IUeN13l—AleMOAr76NFCeL03lAbMl—OIUeI?ee3OM—leAGGOlI76QNNL3OelMLB)leINOO=3eleILLoTSl7O63M1lOeeALoNl0\T3O=leNWAbLoSe7!0/L1lNMl=eAGea‘OflOON=eOUGAP=eFVl667i~1)NMFI SoTMUeP]
SYMBOL TABLE

CZRMMAO RMO5/3/2 FCTINL TST
1
MACRO v03.01
K
6
11 -APR=80 13:04:53 PAGE 48-3

SEQ 0281

CZRMMAO RM05/3/2 FCTINL TST

SYMBOL TABLE

MACRO v03.01

L
6
11-APR-80 13:04:53 PAGE 48-¢

SEQ 0282

EMIL0
070140
EMI4Y
070146
EMT42
070156
EMTIL3
070170
EmMI46
070200
EMILS
070210
EMT46
070220
EMT47
070230
EMTS
067632
EMISO
070236
EMIS1
070246
EMTS52
070260
EMIS3
070276
EMTSL
070314
EMTSS
070324
EMI56
070336
EMTS?
070354
EMTE
067640
EMT60
070364
EMT6Y
070402
EMI62
070422
EMT63
070436
EMTOL
070440
EMT6S5
070460
EMI66
070500
EMT67
070512
EMT?
067646
EMI70
070524
EMI71
070534
EMT72
070544
EMI?3
070562
EMT74
070600
EMT75
070610
EMI76
070630
EMT?7
070640
ENRGDT
067604
EQUALS 066202
ERR
= 040000
ERRNMB 043104
ERROR = 104000
ERRTYP 042346
ERRVEC= 000004
ERTYO0 043112
ERTYO1
043120
ERTY02 043130
ERTYO3 043137
ERTYO4 043145
ESRC
= 004000

Fé&
=
GET
GETBUF
GETINX
GETSTS
v
=
GTSWR =
HCE
=
HC1
=
HCRC
=
HELP
HT
=
IAE
=
1DXMSK=
l1E
=
ILF
=
ILFO2 =
ILF24 =
ILF26 =
ILF30 =
ILF32 =
ILF34 =
ILF36 =
ILF40 =
ILF&2 =
ILF&44 =
ILF46 =
ILF56 =
ILF56 =
I1LF64 =
ILF66 =
ILF76 =
ILF76 =
ILR
=
ILRG50=
ILRGS52=
ILRG54=
ILRG56=
ILRG60=
ILRG62=
ILRG64=
ILRG66=
ILRG70=
ILRG72=
ILRG74=
ILRG76=
10TvEC=
1PCK0 =

000040
064156
001334
(001514
044070
000001
104407
000200
002000
000400
103640
00001
002000
000077
000100
000001
000002
000024
000026
000030
000032
000034
000036
000040
000042
000044
000046
000054
000056
000064
000066
000074
000076
000002
000050
000052
000054
000056
000060
000062
000064
000066
000070
000072
000074
000076
000020
000001

LS
=
LSC
=
LST
=
LSTRK
MCLK
=
MCPE
=
MDF
=
MDPE
=
Ml
=
MIXED
MOC
=
MOH
=
MOL
=
MRD
=
MS
=
MSC
=
MSDRVS
MSE
=
MSER
=
MSGDRV
MSHELP
MUR
=
MWD
=
MWwP
=
MXF
=
NDTMSK=
NED
=
NEM
=
NOP
=
NOTAVL
NOTPRS
NSA
=
ocC
=
OFD
=
OFFLIN
OFFSET=
oM
=
ONES
ONLINE
OPE
=
OP1
=
OR
=
PACACK=
PAKACK=
PAR
=
PAT
=
PDA
=
PGE
=

000004
004000
000002
001332
004000
020000
000100
000400
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

PRZ
=
PR3
=
PR4
=
PRS
=
PR6
=
PR?
=
PS
=
PSEL
=
PSW
=
PUT
PUTBUF
PUTINX
PWRVEC=
QUES
RCLSTS
RD
=
RDCHR =
RDLIN =
RDOCT =
RDY
=
READY
RECAL =
RESREG=
RESVEC=
REX
=
RG
=
RGDTPT
RH
=
RIP
=
RLEASE=
RMAS
=
RMASI
RMASO
RMBA
=
RMBAE =
RMBAE]I
RMBAEO
RMBA]
RMBAO
RMCST1 =
RMCS11
RMCS10
RMCS2 =
RMCS2]
RMCS20
RMCS3 =
RMCS31
RMCS30

FNCDTB
FNCMSK=
FO
=
F1
=
F
=
F3
=

IR
IvC
LBC
LBT
LF
LODEV

000100
010000
002000
002000
000012
066745

PIRQ
=
PIRQVE=
PLFS
=
PRIERR
PRO
=
PR1
=

177772
000240
002000
045152
000000
000040

RMDB
= 000022
RMDBI
001356
RMDBO
001432
RMDC
= 000034
RMDC!
001370
RMDCO
001444

FER
= 000020
FIND
= 000001
FM116 = 010000

067046
000077
000002
000004
000010
000020

IPCK1 = 000002
IPCK2 = 000004
IPCk3 = 000010

=
=
=
=
=

PGM
PHA
PIP

= 001000
= 000200
= 020000

000100
000140
000200
000240
000300
000340
177776
002000
177776
0644624
001410
001543
000024
066211
055322
000070
104411
106412
104413
000200
007756
000006
104415
000010
010000
0460000
067156
000072
000020
000012
000016
001352
001426
000004
000050
001404
001460
001340
001414
000000
001334
001410
000010
001344
001420
000052
001406
001462

RMDA
= 000006
RMDAI
001342
RMDAO
001416

RMDS
= 000012
RMDSI
001346
RMDSO
001422
RMDT
= 000026
RMDTI
001362
RMDTO
001436
RMECT! = 000044
RMEC1I
001400
RMECI0 001454
RMEC2 = 000046
RMEC2]1
001402
RMEC20 001456
RMER1 = 000014
RMER1I
001350
RMER10 001424
RMERZ = 000042
RMER2]
001376
RMER20
001452
RMHR
= 000036
RMHRI
001372
RMHRO
001446
RMLA
= 000020
RMLAI
001354
RMLAO
001430
RMMR1 = 000024
RMMR11
001360
RMMR10 001434
RMMRZ2 = 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
RQA
= 100000
RAB
= 040000
RTC
= 000016
R6
=%000006
R7
=X000007
SADMSk= 000377
SAVREG= 106414
SA1
= 000001
SA16
SA2
SA4

= 000020
= 000002
= 000004

SA8
=
SC
=
SCHSTS
SCOPE =
SCTMSk=
SC0
-

000010
100000
057666
000004
003700
000100

CIZRMMAQ RM05/3/2 FCTNL TST

SYMBOL TABLE

sC1
sC2

=
=
SC3
=
SC4
=
SEARCH=

001000
002000
000030

SEEK
=
SEKSTS
SHUT
SIZCLK
SK1
=
SNGPRT=
STACK =
STANDA
START
STCORV
STKLMT=
STOP
SISD1
STSD2
STSD3

000004
052270
061766
044644
040000
020024
001100
006700
005412
061232
177774
061736
103530
103546
103566

SECERR

STSD4
STSF
STSH1

STSH2
STSH3
STSH4
SWR
SWREG
W0
Sw00
SWw0l
Sw02
sw03
Sw04
SW05
Sw06
sw0?
SWw08
Sw09
sW1

=
=
=
=
=
=
=
=
=
=
=

MACRO v03.01

000200
000400

TAGADR= 001114
TAP
= 040000

046004

TAG

103600
103631
103173

TST12
TST13
TST14
TST15
TIST16
TST17
TST2
1ST20
15721
1ST22
18123
1S126
1ST25
1ST26
18127
TST3
TST30

014050
014350
014566
015074
015404
015646
010302
016124
016374
016624
017150
017570
020134
020526
021216
010466
021564

T1ST33

023006

103250
103337
103375
001154
000176
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000

= 000002

SW10 = 002000
sWwil
= 004000
swi2
-~ 010000
SWw13 = 020000
SWwie
= 040000
swi5
= 100000
Sw2
= 000004
sw3
= 000010
Swe
= 000020
WS
= 000040
sSwé6
= 000100
Sw?
= 000200
Sw8
= 000400
w9
= 001000
TADMSK= 177400
TAG
= 020000

TA1
TA16
TA2

= 000400
= 010000
= 001000

TST31
15132

1ST36
TST35
1ST36
1S137
1ST4
TST40
TST41
15742
TST43
TST44
TST45
15146
1ST47
1STH
15150
TST51

15152
15753

032172
032610

1ST56
TST55
TST56

$BIN
$COW1

SEQ 0283

062200
001302

$ITEMB
SLF

001130
001220

033236
033654
034214

$Chbw2
$CHARC
$CKSWR

001304
063204
064406

SLFLG
$LPADR
SLPERR

004000
000014
044766
000060
000064
000034
040000
000014
010000
043102
043150
001464
010116
012616
012776

1576
012076
1ST60
035110
TST61
035536
18162
036214
15163
036720
1ST64
037320
1ST65
037730
TST66
040330
1ST67
040710
1817
012302
TST70
041254
TST71
041612
TYPBN = 106406
TYPDS = 104405
TYPE
= 104401

$CM3 =
$CM4
=
SCNTLC
$CNTLG
$CNTLU
$CPUOP
$CRLF
$DBLK
$DOWO
$DDW1
$ODW2
$ODW3
$ODWe
$DOWS
$0DW6

000000
000005
065304
065316
065311
001250
001217
062416
001306
001310
001312
001314
001316
001320
001322

$MADR?
$MADR3
$MADR4
SMAIL
SMAMS1
$MAMS?2
$MAMS3
$MAMSL
$SMBADR
SMFLG
SMNEW
$MSGAD
$MSGLG
$MSGTY
SMSWR

001260
001264
001270
001222
001252
001256
001262
001266
001102
066176
065334
001236
001240
001222
065323

022106
022470

UBUSQS
UNS
=
UNTMSK=
UPE
=
USE
=
uo
=
Ul
=
Ul
=
vV
=
Wl
=
WweD
=
WCE
=
WCEHI =
WCELO =
WCF
=
WCH
=

066251
040000
000007
020000
040000
000001
000002
000004
000100
000040
00G050
040000
010000
004000
000040
000052

$DOAGN
$DTBL
SENDAD
SENDCT
SENULL
SENV
SENVM
$EOP
SEOPCT
$SEOSP
SERFLG
SERMAX
$ERROR
$ERRPC
$ERRTB
$ERTTL

042336
062406
042326
042172
042342
001242
001243
042136
042164
042100
001117
001131
063710
001132
001572
001126

SMTYP4
SMXCNT
SNULL_
S$NWTST=
$OCNT
$OMODE
$OVER
$PASS
$PASTM
$POWER
$PWRDN
SPWRMG
$PWRUP
$QUES
$ROCHR
SROLIN

001267
063524
001170
000001
062650
062652
063510
001230
001106
065724
065556
065712
065630
001216
064750
065040

023572
026316
025106
025672
010670
026224
026664
027104
027442
027730
030216
030530
031036
011540
031350
031660

WH
=
WLE
=
WRL
=
XS1l
XXDP
IEROS
$APTHD
SATYC
SATY!
$ATYS
SATYL
$AUTOB
$BASE
$BDADR
$8DDAT
$BELL

000062
004000
004000
006454
001330
067260
001100
065760
065734
065742
065752
001150
001276
001136
001142
001212

SETABL
SETEND
SFATAL
SFFLG
$FILLC
$FILLS
$GDADR
$GDDAT
$GET42
$GTSWR
$HD
=
$HIBTS
SHIOCT
$SICNT
BILLUP
$INTAG

001242
001326
001224
066200
001172
001171
001134
001140
042316
064476
000000
001100
065446
001120
065716
001151

$RDSZ =
$RESRE
SRTNAD
$SAVRE
$SAVR6
$SCOPE
$SETUP=
$STUP =
$SVLAD
$SVPC =
$SWR =
$SWREG
$SWRMK=
$SWOBT
STESTN
$TIMES

000010
062070
042340
062032
065722
063210
000137
177717
063454
000204
167400
001264
000000
063526
001226
001206

= 002000

TA8
=
TBI1TVE=
TIMOUT
TKVEC =
TPVEC =
TRAPVE=
TRE
=
TRTVEC=
I1ST
=
TSTNMB
TSTPRP
TSTQUE
TST1
IST10
TST11

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

TST57

034556

TYPOC = 104402
TYPON = 104404
TYPOS = 104403

= 000060

$CMTAG

$ODW7
SDEVCT
$DEVM

SESCAP

001114

001324
001232
001300

001210

$MADRT

$MTYP1
SMTYP2
$MTYP3

$RDOCT

066177
001122
001124
001254

001253
001257
001263

065346

CZRMMAO RM0S5/3/2 FCTNL TST

SYMBOL TABLE

$1xB
$TKCNT
STKINT
$TKQEN=
$TKQIN
$TKAOU
$TKQSR

$1KS
$TKSRV

ABS.

001162
064110
064120
064117
064112
064114

$TMPO
$TMP1
$TMP2
$TMP3
$TMPL
$TN
=

064116

$1PB

001160
064170

107146
000000

ERRORS DETECTED:

$TPFLG
$TPS

MACRO v03.01

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

001174
001176
001200
001202
001204
000072

001166

001173
001164

000
001

VIRTUAL MEMORY USED:
55208 WORDS
( 216 PAGES)
DYNAMIC MEMORY AVAILABLE FOR
69 PAGES
CZRMMA .B1C,CZRMMA/C=C2ZRMMA DOC,(ZRMMA,SYSMA(/M

$TRAP
$TRAPZ2
$TRP
=
$TRPAD
$TSTM
$TSTNM

$TTYIN

$TYPBN
$TYPDS

065450
065510
000016
065522
001104
001116

065274

062126
062202

STYPE
$TYPEC
$TYPEX
$TYPOC
STYPON
$TYPOS

SUNIT

SUNITM
$USWR

SEQ 0284

062654
063066
063206
062452
062466
062426

001234

001110
001246

$VECT1
SVECT2
$XOFF =
$XON_
=
$XTSTR
$$GET4=

001272
001274
000023
000021
063226
000000

$$5w08= 000072

$OFILL
062651
.$X
= 001100

O4--6B]N2‘L]90-N«8&3‘-8-\92[asIseON"«o—&~=
RaogU0Ol1)oaOev+l1V—oL5rleTvg—]o—P——lONNeoO54—l1©\IVJNOO0N00TNWoTN7GO05—TO0oNMN2TMO]T6eOVNeTIOM8NOTO—2VvoATNOAI1TIJRUONVM5[QVOOU‘NNTMh1VION8MOoDT4=V=QaO(1N—IVaNOO5MA=[eVT!DNe8TX==s—I2@e0OO=Vloks=6ILe7-o*lTv*—7FeN9Me1lveOO"e0Ml=0e6Oo1G1=oElM=DO3Me5I=k—DoNl2a1=~=MMrd—N4L5FO——OkNREMNONMNN NOVOVOOOO
O
N
N
M
O
M
M
M
M
—M
IVYMW OO O OVO ()vveo ===o=\J —= WoM}NoDNOYaINlOEoENNl0aENWlEoOANlEVaNNOlRVoNEOlVRaWONlMEVoNMNOlVaNOlMVaMNOlVaNOMlaOMNlaNNMlV[l

r— @ Qr

SOFILL
$40CAT

[odA<e@g'LDd3><—)-[XT-Ler~4MITOOW cWOINPrUT—erM—~DeN—r—AS&OEMION—NODIMN®O
Lokl l l ol e elok A aVTaVIVTANToVI VIaNToNToN] ol al alal ol o

Or
2"

7
2
0

355+

Lala’ara’l’l’ls)L]OVVO0OV OV0 Nag%l'l’l)a'a’a Laolalala.lAago.lvltVYava[IONR)O0VOOVOVOVOVO VANRNVO0OOVO0VO0 Aalll’a’a'a%} poell)ke} NANNWN0LtVO0OVOVO0VOVOVO0 ULIA]V000000 NVN|R

g——

O«

WL
1t

| 4

¥1L.

N N N N MMV MIMIMIM

LEB&3

&&" '

®0 O ® N O E

)

&
u
0
S
8
e
&897530«14.05326 NT@O—UecMv=FMOar0—~r—38083‘1’613035321708 NO0U—MIW|IRNLDUOeA)—sFe=eO—D¢NMe—MNOeA—O0 INO—LMNOT&8ONOTNMNSNOMwANOINr—r—a 00
355+

1&% L

MACRO v03.01
v01-05 )

38BL

(CREF

&R
R

CROSS REFERENCE TABLE

Lol ok X X ol el X X oV oVTaVIaNToN[NTN NIaN ol ol alal al o}

]4kNo-oleole&ol&IV8]ITe-NTINQINIRQNQNNAVAIQVNId-RoelRsn&IbolRol&Iol&DEand&DlanR&dLoL«t

DMMMMM
aONN
lVOalaOVNlAN
avOVlalOaO’laOV)aVOlalnOVAlOlOaOlAOlaVOlAOilOaOAOllrlAaOllAVAOllAAOOllV
L3

-~&~-OISsONONMNOD~

o
L
l
o
l
a
o
l
o
l
o
l
o
a
l
o
Y
l
a
a
l
o
L
}
o
l
alalal.al
o
t
.
&ON‘S8—O4O005OO8I2TWO 1OA4NN5I‘TN[O—4RV6O9TO84M5E2V9M3 IMMMMMIOs|R’ValO"0al IOValIYVaNlOIValOIA0NlOIA0lVRAOlIVlIOAA MIALV2l
I0NOO—ev—OO\V=OveOM)oO=UMUNMI=NNiV*O —ONM osa1oLLeLlll"aaoa}lllaaaloaXall"t.aallall"..laaaalllaa.aaalllall..aoli.tlll.aaalalla.ala.lleaLellaAlll.e.lL
35-4

MINANNNW

3LL

CIZRMMAO RM0S5/3/2 FCTNL TST
N ~APR-80 13:04:53 PAGE S-1

7
SEQ 0285

L3535

L83

e
64

56+

Or
9x

1»

: 29

L35.5

oVV}TIyNSaVnSedondosk—olMokFoOloNkLal¥aloMlLalN—=MY=M~N—-—M-—0][l~—M —mN—MmMLal.aLlaloM
O\UoNUOO4UO[eWN—5]J\|-&|M)aMJM\NY8(VIOpBJA—N&\—TJ(IlO9N—a5—\&MOBYINJOQ08—I—T—NIeDOONasINON5NSIotTF1OMI2g—LOADyITN5MnN—5—OI=DeOu02NINOARINgMnLT3I01NM5OyDARI2AINMeJ——[LTC—O4~—L5NaAl[.O"alX[w.o—5""AWa[ay¥}Vl))]L-N5-—MALvNNN]5OE)]a|-lA.T[«C-aRllE5ONLLwAUNA.-.N|Ia}ya])S5NMOAVI3M-I[YIYwM520[W|]nAN‘3—-ROI92&N3V~O-—0a[VA5]a")¥aLTXV[wOa2"-N1[aVl—0])[1-W9MnO2ROL-WA5-OW3-—[(o4O—9-a]=![VR[[O]=5D7-52Z54D5O5s=J—lVnoLmONNo—(a5o~]ln=Jwu.E1(-KN—n7[nE=)o9~]2NZNLawM2VleZl2J’TVa—~OoOX|oyVlo=oo2x]I«’~Nal[Ow1W"]E|’a2alL3oMe2l
—DYYOONOOO)N——Q—J&V)IUMVINNNNSYO\MAVeAOOVerIIM~yAAIBIN—MNO—VM=E=e——&RBOOMe—OF=V=AOTIINMNssNN=oM=OS2IIINO=ICNMNOOIINI=DNWIO=FOINIOMNOOW=eILN2OINA=—=—= ——P||N ~w~-]v [o—w—]} JaNMW]gVUL]0Vmo,Y(]aOao~—oo ——YlXnX®r][V [e[[T((b"=]"][ =NM3[a)2)
DMOYiN]|oVAONYo——DIyTCoNoIDOYNION0OLiaROSEILIREsONONLNIoaBtNINJ<TOPV—R2[dA3RAI<nTJRVAxNRe0CDrA<LAI3—)RaOZWIwL|L[AimJ3A2RsONIoACW[RN)JIdWQ<ON3NOEUW]AVIO)ROIWRR0X-ITWAZIYIRwSW)TR>NDAIWONYNJWOiMIANNRoOTLW]QM0AYINOOUWI|UNoTON-IIAWIR—OWYWI]LLNdOINNRL£IWTDOA=AM[WLL>MaL]I[BYrTaW0AORO1VdNT]1—UMRRvfWC~AoRO2eN02MOLlN]1[}RMB-iOIRaAgNEaORRAxNrOUAoRdN0EuRDrYOiA|VowNRJot"v2eLIABM(yoJDRIJOaTVARoO0I=RLuOnNR—S1AIUaVT«OVRWN~€*I=AxTORQVRONIORYAOIn-A4|T=[0TU0OSAV—&&N&MI|MX}EeYTMTU[—ON&TIAaVLNXNI0N>I—=OORcBaV—VeUTLE—M—B&MRoA=NeI—ON—OWVe8MBoANYeM¢=B&Is—OIFNO&IeJ8VWIoUOO=OI&gOaMVFOEI-IXLOL[lNTD—L —&- ~A1~M]V[OoW[V2~]eV[0V-e—— ~ (o-[o-—o-VV[][ -}—a]) )NMo-—K—'0uwIh~w—~nS115n |o-—]]I[aowOlo)1 ]]|"

0&OxBM-n=ITOMN .EE>8eRs
b «&kan -

[RN

M~F~7Y& & MOONOVAU

K-&R
.a-[as

"& &= 8 "&&&

M1 -APR-80 13:04:53 PAGE S-2

&8N &RI
O
O

CIRMMAOQ RM05/3/2 FCTNL TST 1
MACRO v03.01
CROSS REFERENCE TABLE (CREF v01-05 )

7
SEQ 0286

"&n

5-0#

5-0n

14-86

14-99

SIL)|R

6
\
1

23-136+

23-138

23-148¢

23-149+

23-151

24=40v

D
24=55¢

26-36+

26-47+

26-63+

26-68

26-87¢

26-101'SE56(.).128;'

CIRMMAQ RM0S/3/2 FCINL T1ST
TABLE

(CREF

MACRO v03.01 11-APR=-80 13:04:53 PAGE 5-3

v01-05

)

OMNP0
MrA—M~NLL N —|L
SNOO

W4 aOlXFarl OolOa—l oAlNSITVNl[Ia¥O[a

CROSS REFERENCE

oo[[&}—aao3l]OV2oll&SiN2allaTMooVllaAilaVMVlN

OTN —MO

&—ePRI - oa2[¥Il]aVIaV O—NVILURI 0NO o[aVIl]aVIaN BN<JVal'aXlagoale ODNINOIM

35-8#
=479
L-7814

35-9#
5-0n

35-6

35-11

35-8

35-12«

MAcOaS0 NWnx [oNTaNVI1AaN OV OM

—OOl= &

OS FAONOW|AWMOIM

NIST{aonliatla¥]Iat

"'3"80-&«

35-6+

35-8

35-1¢+

L“]&«

gM=
PN O
oOOV
M M=
SNNO —e
—OBONOMN
O
NNNN

$GET42
$GTSWR
$HD
$HIBTS
$HIOCT
$1CNT
$ILLUP
$INTAG
$S1TEMB
SLF
SLFLG
SLPADR
SLPERR
$SMADR1

T O&NM&WLeI| N& AL WO&UL&
] L K LK -|LIIOII|
O MOV- se— & & a
)OO0&OWI& &O —NN&O&LNL NJ&—&MN"|L

I
—
O
N
J
A
D
e
—
=
D
—
&
\
—
&
U
\
p—g oaO[oIllaol—l=vVoalYl\iJooNaOllDVooel=1¥—NIeva[r—a—V¥IO—]aV

OV—ONFIRNOMON 8&oe08sL-& T—O\OsTMONOOMO&eNMEL-&]

SEQ 0288

NO [OLI| O—BIS |eWw

NVLIOA —O_N—M

qg—-ptg— LDBA) pg——

12-7034

12-7030

12-237

12-2374

12-2378

12-272

12-728

12-2728

12-306

12-3064

12-a06#

12-340

12-240#

12-a40#
SEQ 0289

OMO-X—OMOo0~[VoxxMOy4YWel.Y.g|pn~J7OUVNZ>D0rZOWUNIVIEZEXWLXOVUDOaYLale]
Men - Me N —-— M Mmo NM—NMN MM M MN =—

Aa[~LR"w1[53‘NU—M-V-lVatN||||0oa\ya0l]llRa"Xl¥48lA)NA.gYaOVo(6om95O)l2WRII=T0NR]2aLRd7N6WlNaLNA-INL0ANaee"20M[VNNo124WllWaNIlID|]L0¥a1Y|]o.[OWWO&2InNg=VlgVlR]IW-DA-~aNlnRTYNaLN[MVOONoOYOA726o]R~—v—Wd—=a-l--&=D«RLOLlvMIWL]Fd[aTYN50X—&PS&ITATVo[agTNeANM——aOwWI6O7OM=Nao&RLl&lL)ID|B0||IN]WVaOTNe]BWToXorV1NNGFSN[9a-1]ITVO—uk=TooID&0IABsBNaI&gN=M—)T¥RMLOXo—NVIOA0eIO6V4a¥N"a&BBI0AQIo-RnI1TvNVO~XoVloIWrRaOiV-45&Y—Dr1New[l-W&“=W"oBILD1goN«V1&n«DI[aONad—=Va¥XeaM2MXY2IDWAILRLVo5(0[~aOa4M¢oo~00MoR(]A[3I='][L=Ty[X5ro})©[qF3eA]wn921oNo2xROk~oaLYOMO7AT8O(AM2OVlNRa||I||YaILllNOBaMyYW.F1}iBRlUNaIIIRYLVW.Tl[eGONe6928Ne—gNOON=RIIBRIMN—VIUD—aOFO—OY2oON9BO—V=MNRRIRIRIeDTNArNRw~a.e5Me18VRO—RO—MIIOCIoIiMyMNVrBgIONoM—4OVR1MeW—OOTMO-VINDI—NIOIiWrNe—gUNWMVN5162eMO=FrOIIeD]DI—I—OAMSINaoO5W~Q1OT»O@XA>N~[L|[[NF[TU0FOOV[n‘,O5~«XTyVC5,.13Q<AO0=AO XTN'oV9S,8u7R)MoQ YTxJ5[V,61»4N-x- Neg<uVI%I||nXxAM£WL0~4O~Nog4O®I!3=A~~FLRa-]|N3IO)RI7rXR5RFO2NKNDiO3MN7SRM--qFAmJaI—IBlBII.YAVoN—KVNoaeI5B~On~—O2—tIRdIIIN\geLloORILIl~»8N~MO6L4»5MdAoL<5A~TcMO<Pw|[L[I|rpnN1EOLr4E[3r|Ro~NXWtR4oD[7NNa5(uOAJ0IOEao86VM—YlaL|ANOaa—>lYY[w]O4~R’—-N.=5V&d-")sC\yaa—wolAu))1s»WnAwgN4sC5O1ReNla|lVaOA9Ll0aBoN.lIOa"73O[oldXA2WxVR|.1aZRMa"5x5YNlaI"OO'OR)a[6DZARxar9N[~o[oVRN-aIa~MVO)A)‘0xE9ao~[w4a[[VL~~Mo]2¥.DNAP[||0O[)]] oy}I}]0V|a[x)+1)l]R6~Y"=—EV[xA[4VQR0xx=WUZ5A[MWML¢—OY]UI53zaxeY:]E~=R"r—vN4awl3OAg—a=n5P[L~[V~OCwFoM[Too~-«(Oia—eOIO[[la)|)«|J¥1}]]y4|lVNl]-aI[l0IONANVIIMw9IICealwL~(YR?.~wVIVV-2B&Oz(1|vaslooXAlY0MMAoWwo&RIIYVNIM8aSoVa3—aWO=2—J¥OI]Uo]NI0oN[Vgde[a4-Oow—=OOW-V&}N=wWaaT0)]®MyILIMe|Ie]x¥dOJT—1IlVI0aO8N&VALLOS&N5U1anOoITNI-V=BL)@VNL[—aWO»]2TVTaN~RIJMOVg=«0IgV=¥N-OO<u("LMILN——B|nmI~V(I|LL[—wg]X+][a
oO"lY[&a~[TOogo~—NOA—aM--[L'J''VN¥T)~—]MVI[T~DMOoNB-V—OWo0oaas]|0|VVVT]a]OOI18«VATN—V—eauIAIOgaTMIVO0VO[MNa———oI"sTuIIIU1NVtoILOTIMgMN[o[.«&-L—L1ayLII««VV]¥a~[MOI OLMOw[vY]'])]ya}]Vl[aLVYNMNN~-AODle||||VYlL—WVMVMaNBNOIAITYTlLoO.VVMOrNAeoBIIAVe—IaCMVNOae—o=oNOVIRABOIor=0=T—WnlMNaY—LoOr=VNM=OEIDDOBgaVT—gV-LaonoOVNT=——[RRDeArTTOBoDN—oMaV~No<l———ONIOIT]TaLM[VoIiSNMnN|[LLaL]IS[I[V0. ~=NdAoNo5»=4-NON»||||n5KLMNMON~J.IIIIaVGlO—VS)NMOV ~OII]II_ogN’NrleOyo~»X5T=LxNy[OLLLLn[IyRe(I~30Xo ~OW[y [awa[-Ng=o-—ONW8DW[0|l]V=eV1eIOY—[wAa=dn=u~NVuaMI"IIVNYVn—TNLo-YTtDao«ONbigs——=—s—VLL[Lspal[Iy]Do+]
CROSS REFERENCE

CZRMMAO RM0S/3/2 FCTINL TST
TABLE

(CREF

1
v01-05

MACRO v03.01
)

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

6
S-¢

7
SEQ 0290

$TkQOU

35-8

35-8#

35-8»

35-8+

35-8¢
SEQ 0291

=nVNOONMO/MNP»0*
~(Vyeas=ln.aYl"a.Ya.l.(aT)2LlO—M—OD—eVDNe—I—VOePe—IeTOe—eWVLeTOe—Peg&O\——L.a])
CROSS REFERENCE

TABLE

(CREF

~' agl|'aX0lIe’a—lI0Al"I NDBAlAABRAadOIN-ID VRDIONDIDDNIODL0RSNAR DINILNLLL NF|LIO—IN[I=I wO W)LM

oleolels) TbN»n=Mn»O=»»MnOM«uAN»O—A §R-(s -

= - - W, |, W L

R - --. S-S

RagW5M>rBYL-lTX[ALR0IOrN.O—N(b~ooo~0-]oa)O~a-—([~—o-5-VLNRJ-1Jl))0~]O0rV=[—~]S—AP>.D—Q5K=OwAONL~—Ow—-F0C-Na'W|]—]-aR®rE2W¥—aAI->l.UaII aZ.OM7F—l}RaOX—loaDMA.5lN=Ul—Ra>laaZ-.NllNa0RIANWlOaa.~.>aMNN35lRaN)R1yolWo'[o.AV0OaONr‘slla—RDI)oWEa~NaYO.=2Ell.RR—NI.YN0aaoA.IAlrrl2OIOOW——aeLNoL[[w0MMo"2}ll.YaOs]"nITRLZ0aVll2lOt[[o00V["[.0Ny~wWIoNMA’|O—~NV"-O¥')]]--al[”LVsyalM[}a].Md)Ir2=-~1.uRNnsoONQ&rAl!]O—oaVaaFNsa[M)—OO»OY=OMOAa—eOnee2==}beull||}"arl)01nll|n|.aen'.3—1llao)aC—OYaalXY—'Nat—rV1l'lI"IBlagl.II2re’"a.Vba.lrO’—aON2l1La—NOa'—OOr2MYl—MM'"lI2IaXRaII0l'’C"a2Ye..lallerVLa11[AMaa0OlaC’l.rMY2"aONNl)—IRN¢VaaOX"lY0.—.PI11ael—L—'lM.aOM’OO""e)'2Ir—lRNanaaL.l—ssa[[|"6Y[ll})VNX(N-—AlxcV2DOnr.YRR1A0..—aN=lAug.=— n6xa|FBMV2NVlBOV)|AaeY5AYD.lMRo-VDD.nNAYCaAN20YVM2ux.&-IORYWINLW12oo@gAAMO.UBOI=5—,MOMMC—NTgeeN|]e]L]o—oMCVD—ONDNONCrnvVOb1OT]—N—B—e|eNAUVlYoWOgYANWM,BI—0TANNAOBW=YoJNoN5NN-.VeAOrB—CrOINBONVVAngoUo—0TMu—INIOW®—]DN‘U0—MoDV=NWN9oo—R=IOBIvNEI—VVrOoLN—INMICYeOOON8oT—b5—Mo-eR=D0IM.IoV"NDAVtNVexrDWOO—INA1boONo—AVMOIBWDNBVRg—VVN—OrOIDONNV——Y»IANNN—A3SoeOTeDeDOBDVn.V—N-.r—oILLOVTyNonON—I——ANA‘—oNMeoMDeeBRDrIIVNN NMN2T—llM“OMTNObINNS——oO2rRsRNIAIIVoV~tAN.NMDTNOOAOOPI=IM[oNoOM—T-WFFPN7ROTDaIVOVoNIONIYTONPArOONFIoT—S=ONOIoa—D0aDRBNVININVNT-D—LaOT—0r=TN‘OAFToNVNRaNRAD0OAMN9INVVaVATITNOM—NLOTTVNNTSNe[aOeIVIR4TRMANOI,gaVNONOOVSN.LLO=ONMI[TI—NS—-ON0ODNTRIaIaaQN"VP[MLATVVNMOaNLMMTIO=NSNOI3I0INLe0ODRaBaIao—I9NO0WUONNMSVaO.VOLI—N=INNNVAIT0ITQoN-a[MInMOL0VAaSIa|VMIMOTrOT—SONobO2IP2Ug|ILNaI[||N3aVaOA.asEO|0ISnIELATe—vNNIO<O3aMs—-xO0Ms.N&l\&|-0]))JI0NOtoOTM\aeNO]VOASM—.S&N=-F)l&s|OIB]0aIeI4IBFrICMyOMWar0OoorE\~rA-aVN«——wTMNNAVr]IONO—INW-IO—3PI0a[ee0[Pl—eNeI—MN0VNeNrVIOOS—OEh—D[OMOII—rINl.Le0eTNeSNaTre8~—VMT——‘VOelM—aIOrIMIR—&X—I—I—&0NLeNI"~.NmNMa,[\XOWWSrE——oOLNI~I&OaAM-F1M&INl—«]}eBY—.CF[a}EOS—VN~G>IwWL-M0M(~aIwMv~aaMavoNawSMNVVA-nn]ML|n|[oAo10l1[0Nr.)loSiw]vaWMOa)1n[xc[
»N~"Y!a)))l aaaO[YOO»l|l]Ln''’aCOaal=lNLI.'O""aOala-~ l.l'’as"DOllsgL|.}}T oOYNM-TOM|]|SNT—CAIWONOME—LAVANIVoOD—NAINNoB(V-NNAPIIBOgVoO—MIIN-MVVOFINAPIeAToOOMQON—eIRNe—M-oeII«VNAANIPIOOoTVLMoONNOVTO~FINOAWPeMYLI[ANDae¥NWIgMINaeTNVMOIMIeAaOURNLMa-OO—NLT WV—GL|FoONCO[4V—eIVX~O—a)]O—Nl—VIVaNOOT—~lLOIIpRMeSOWIaoaYxwN)--O -]&l|yL[.«
CIRMMAO RMO5/3/2 FCINL TST
)

v01-05)

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

7
SEQ 0292

I=@oOAMe—rM—0rMe—lAeC—NeD—O0oWOy

=xAu-n =w-n»

~OOnMONPION

$XON

5=5

5<%

SEQ 0293

|OO
e|WNOO IAMOeI LI —II II II II L L [L |
AOoIV
ONO—ON—MT
—-) eB —OgNII1NBI B O1D 1D V1D 1NND 1L1L1L
N—oo
B I I I I O N I I L (L

1 ] L]

= ! ' RN| | BRl wur

C-WAB)SDOMWoD IDiIlte“osMNOOONITSNTNMNANOO — o
OKMONIVeO~~FATMTN O
—wVg—Xp—gkgAg——ggBgpaggRgoD——ggg—O—gg*R—gGO-—ggMeGgNReggOegDP—P
g—g—q—ggp—gg—ggg P

45AOBO1L>J_SN)jWEOErVQZX2xNIOVEQcXRDExISNN2&EW2x&&AXI2O&ELNXLA&IZDV2&XMOVVIA2L&N0NID2L&LYVQO(X-EU3S—]LO2-L>TNW2L3«AXwL-2uAELO5OWAO—OMNBRN—NBPIe~MA5NgPPbbNO6gSNOVg—TAMM5WIWegFGR&OO=OTwGPg5OJNMAFN0ggITFwMJnOIFTPPPOMT—5e%nNONeTATONGggIMVO5nWI3gOegVLIO—M=AAg&nOW5NNA—EW—0PIOONNA\T5XI-—EB0MOIOJNAEN0[AVVOOaYDMLN¥aOYNARDNTVaIRYOO"aT—YCOG"NEIaUOY"EDaOT)IONN—EOUNTeOIOENOL0TO-NIOTNLR0IDDVOTCONENTRIODANNOTITFwLNOLM[ao-NwA¥VAIJa—lIl)ONXLS>OTN0NMW>OA3ONI4aN-X—0YSLDoaB0YOoI—oF~J[—SaXO[)N¥x—NO.D1aV.],A«%NO®[]|V
TABLE

(CREF

ONIoNvININ

v01-05

MACRO v03.01
)

R|x=yn gp.—Y—N MTFOIWN [ToVNgIaVTaE]Ta

xR=y

11 -APR-80

.00=AMNM —OANO MWL=
ONNYONDN NS NNN
]NON|WON~N
IM\_NNJO|eOn~0eFWOe|w0Oer I<MAN~R=O oO= IMOR —[L

CROSS REFERENCE

CZRMMAO RM0S/3/2 FCINL TST
13:04:53 PAGE

K
S-6

7
SEQ 0294

VOWMIFATNMN nLxnW=3%

AMTYPT

5<0

SEQ 0295

0
0
0
0
0
0
0
0
O
SVOOM)80
OVTxRN—,ASNNTMN7N—OVAMTNV—ATTNLVTOVOOTAMN7NOUO7MVMTOONTSTO—NVMNTGOOVTONVOTITONRUOTST=NOTPVIOSTRMTLTRONNTNLIRNOTIEONM0TTNOOe0NMYTO0AQNNR0ITNNSo0VNT[
*Nk]ORVMT)N—NVTIO,—ISOHBTMAO—V7OONVMARNTDCNVOONT—OO0OeHNWVRTONLMOV—NTCOMIU=7OOMVVTOJOTNSDONMTOOVIRTSNMTAWVS=O OTOBSVOTRLTOINIITNNOTOIRNTONVNkTNNO PWN’OLTOORNVWWTkOTOoOVD—WLOAVNOO "OLA
1DNNOIASb33Y
V1T.TVN,wNSTMTN,WA=VNONCRTTWMoCST-TNOVoBN~TNTNAVATRNTIC~NTToIAONRTNICVT=TOMDT0VNoT-LOONoOeWNo—oATAMNTNDaNRTNTooTGNHOo0TVsNN0NooPTVoTVtaI0NTTIaNNFTONoNNFN0oANN0ToOOT00TWaTRsTN00TNADaRQ80ONSVTNWTR00OD[Taat¥NQO00ITaQk~0VNT[TVa
LR
OOVNS00N
CT,NVWOAOwS-VNTwAOMBNCIWRNTPCSIVOTOSWkCMVVFNTOMCBNATINNOOTODVROTNONANNTLVIVNCTATNOOTNODTWNORNoNNIOT=EIOEANBQoOSONN-TOOTMMRNOoTINI=TNMNO0MNVMTO0ONO—YO0NNO=T0GoONTNO0AVMNDRQTN6ATOAa0MLTNM ANO[
STCIETNNDINSAT~—CODOIVONWOPuNeT**MNSAENNT8N00W0N0O
wIVY9L

ODDVvAg—AON—G%ken]1YV\\VM—ABNgq1|GNgTpgDp———S—D%NgNC-Mgq—%.T—=C—WOpS5——V.k8gg—WT0gCANWggG.———oWN.BWNg——ORgWOTBgrggvG3—.VRMTq—eNBOAggGGG3—.NALOROgTUPPEPGgEGGS—3NMD..—OOVgeTPgEGGCCk—3NN~U—TiPgGGgFL3XN.=—/TieNOgGVGgOC"3NVeIwT—reggLGG~D—oO.VO=—TeePPgGDoMO.)W(eNPPegAWGGeOTWaNR]%—BNSePePPGMgGTCYoORO%3NOeOPPGGPTGhBNCWQRTWWVeePPMOGL\OENLeTGQeNTeIRIPVVNGHTO=QIR3ooR®(ePGOPNO»II2TRQVVNO—NePPPGPP3TR.OTNONOeNTrPGPGGN—.RTSNeM3Q—OPPgPGIERWN3ODOTRNQNePggiPONOOQO5NO335=eeNP.NggPRILN32%E.QITP=5PgOONG5N3N..2TO=ON]AQF~PPgggDP3NLLO.DTNT[%3R3OPNeGPgGONVA£%=NOPgPTaNMW£VNWOTT PPNI PVWOT2OXn=oFNPNL[LaO
S=FOwnNVN]BLN.$—ON]I53OKe~ORGDNAN3.MiMLDB
CROSS REFERENCE TABLE

CIZRMMAO RMO5/3/2 FCTNL TST
(CREF

1
MACRO v03.01
v01-05 )

22-326

12-118#

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

22-361

12124

22-356

12-1240

22-360

12-205

23-117

12-205#

SEQ 0296

23-121

12-222

37-77

0
9
5
0
9
5
I4
8
8
9
-:12

12-2224

37-78

12-229

37-81

12-2298

37-82

12-231

37-85

<OSNMD—OWIN2=0N

5-0
12-231»

12=2318

12-23%

12=2358

12-2354

12-248

12=2488

12-269

12=2694

12-323

12=3238

12-326

12-3264

12-526,55325353

9O?“N5)I1a27O0919eII510aLeO945%3eOO64oOe9614=I1‘M5L*NB=“26%LOI61~0MOII83‘*ONITW117CVNIo569LOO03S2¢DI|76WOI98MDO43NEOD.7O0I—6ENI.71FNI6N.—I1.8’NIl9FOI65.GPIL36T[6.o8097.7u.61>26.78u.68027-I90358.E0257A-3098‘A.6230.r0951a“2V.87‘563069.*72»1-0‘T1O‘4.385N6‘9O4-8941.0129N.‘921-9003‘O.87711‘6120-V3‘13.7O115070393.1N262m1R58347.N9‘623219‘2T-.42~27360‘6M
-OWAIWO(gVSb@n-TN—opwI—®AgeOGDO—VINSR>—YAgGOHM.—WWeAMgGICLWO—NeWgOGG-ENMWs2|=POGGYgrAOF—=(OPGiMN|—e—MeIGAGOUC%RnGNeGIg—NNB=——OIPGEM&G—BC—OIOPR[——O=IPGC—BRTIMgGAM_G——e0IGCO]R=——BSOLGAN——GC[BNGgGO——CG—RNV]GDGA—(NI=GRAG.—MGe<VGG—O——xReWDGA—WO(eVNwP=—D%—ROAMeeIPnRN—WeOgeGPT—GMDgL=—sOe0GG—nVONRWeeoOGGzWR—OeeeO=oAnM%O—ePIGOWO=—iOPM®2eGe-DWO—L~(0eeTO0VF—N"OIRPDGPLPO=NV(+I\GI0Rik—=WIAVR(UG0N~=AINOWDGG0»ON.u0BPIMnMNIePIPWeNOPMO0TORgVDPGnGNYI0oO=nPOTIGPObYoA~N]RY<GORTL.XORPOP.GNO2NXSUPGNIO.RVCWGUS2P]—WReoIPGOLVeONMVPIPGOaLT=FTO=OPVPPMMaOTWNIPVoGOSaNORTr-WPOV|—\orlWWODGoVD—eRO=W|TNPVoINWWlPPeVTTOeRMRePLGPXrONToGP—OIO=NAOoNPePLPLae=OIol|s
MACRO v03.01
(CREF v01-05)

-’64

330
67
-a91
A20

OM—NNQOG0WAR-=V N NN NOANIONO

CROSS REFERENCE TABLE

TONTNMANOLIO—OMN-TOOS O~NO

W WTM-wr RN xR R R

NDDuTN5LH(CNNOOH2O—08..-VoTDO1\6N]O—AGTOADNVMWN5IN8LN-OTNwNIDPINoN2IIWO0geTANOODOG8NA.TW,tN0w3ANeTINeI.G0ONOAINN6ITNoMWT4WOgUW.TVACV8LNIWNT6N—IAPOMWCeVO09ITS—NOWGLG0WML-51NOOOUTNCGOP.I7M‘.ONTNNOCO8GRGNTNI7OTeATLNNOOGV8OBI0N-0OsWTORG‘oAT3B0NN.NY1O0OOGWGIoO90BTN=4OADATOGIPNN1TN0AMNO.eOVGOR1N792OT&MNo-eOO42AMNIOINNTe.0GcI5NMoNQNONOOeV3M<1DV8TyNNOOPCNe.oISN=NBOO3NONPOG-oNAW0DtAN0NTNNeO=o.R1‘COONTNoOOe8INTNTDOeOO0o3M.f—NTM(TNAOOeOINMolyVNOXSNToNN0g‘TD4Y.NQ—VNolOGOT6UTMVYOfNN0ONQOO9oNO-i8TOOIOGH2oWN0Qc.OCO8IOALNo)GN5TVlNNVRA0QITOOOM6A.EONNOLMW.=INeOOA9olNV0COOoM-NeOf2ANaVOAOAoN—eO.eOl0C6N8oVV—0MTOVVDT=NO—O7UIVTN~M6VOsNsN=QO1I0-0NIWpQ0M*ONNeNOO*‘0IV.0Wo—TONN**o0*7OI0GTIVIAN6QOoONTMO0NeTIV.0ANNOa‘OOININ—ATNIN0Q6oIOONIMONT.aN—NNOQOI8DO0(oNMN8AF70OoOAaDNVON.OT6O0—o—NOIOVlN0MO-TOO2o=OPNIG0NSNOO.—N50NTOOIPPoNNa.0NNN8==O[OPUoANT-1NOsA=loOOV0Va.sM5O.NOAIDPOo0ON~aON7NOIIB0IV0NSMO-3IP0TONaN4NM~o.OI0TFOaNo.8NeOOO-NI0OT-No0MTOTOOS.T[0OlVaApV3IMMT erNN(MPl0O-ep6UMeSI[[N(ao
6
2
0
9
2
8
‘
1
7
5
3
8
‘
6
1
‘
2
VODD0NI2\JOONg-VOHqg>2OI==]Lop00008RT——VVIMVR2p0TTOORy+—NAESNI=Yg.geG—M7WNSONOIYONRNTTg—NO=qHgvOV—.oAWTVNeOOgqR2TOWNON0V.goV7NA—TR—N-VV0NONu—TTpO—0.WegRI—t0VSMNRNMW——7g—TOT2gVN.G|ACSTRN.-—NRN—NTNN0OPO2WUgGGn=—EIO7AVAN\=L="INg—TNO0IRg.T~NAM.OVMAHRWNIO—g"E———NTBWOO2GLaNAWVROCNO—ORS8T—RTDWOgg2IG.~WNVT="q——NTaOOCNGgRo—MN0VOOPAOFTT|——NT—ONg0BYV-G2oDCWVO——RN=0ONYYOgGG.IO—AATVNMR—oNO~0TAOeOIOPGN2FBAdTOAVNNN—LN0TOPMYggBN.CBATNW0AR—GI(NNTOOPAg-—o2TICNATTNBO—O®TOeGg.VUIN0BLSCCNI=—=(eTOOOPgG~ROAo20DPTDMO-=—ANTNNOGgG.NVNTONL.RnTOOcOGP—0GDNO2NVeN—T0CeOoeNOGEgGV-~nVoTAY8NNL(F0Oo—NeOOIAPGgW.eD02TENsO——(OeQg)GUeONOATyTRoTVVeeOeIGG0V.NwF.D2O0N0ORN|EeTeeOGGgOLoBIoMoNnROoeN8EReeOOGg0FG.WTNWRM2D0NQoo%Ge(OeEOOPWPn0GN=VO»NROQ2RoVIIi(OoOOGN0GP.VRN0TGCR®M(ToODIOPG0YeTVON=.MIRW ToVI32eOeOeAPPa-0VNWVOYoOeOGILG0Y8o.VOO.NAOe[=AV0eO2O0~GOP€NaTITNVLMAMNNeONOOPGDU0.Do-M0MOeNO=IXWnVOP~2GPGIaV.P—VN.OWkA=c—T*ToOPOMPOGY.LV8oVaaIT euOTTN—eeOG2oR.VNNnOI.GN*e-eTOOPIPTN.0*-TVNoNO3oNOO‘=OQ8TGIPgGBM2N.TTaItOO0o&SL4Y.NOGePVT.NOMaNF®TRLARODPOPTGUNko2.OoO0.NON35SsBTMODOPAPGOoI.DVNoL-RONNMQOOePIGGT8N.2Ma.~GROAkTO5DoO(eSPD00PGoVGRU..DaOO8Nh=-OO0TIOTPTPG-2Vu06LRTW0O—OIP0GMoPGR.IVM8pmOTROmgQOoIP0VP¢OGIN.Otx2TNLt6uwDATLP0PPNu0~N.oMVVNwnNROIwOP0IPG00go-2AAN7OOABTOPP0IP00o.IO—NaIRQMNW0®ONTvO0G6P0ATo.|N2aN—8LNIReSTTyPoG0P40VOTA.IMoNWNO=eTgPI0PGG0~O.NtI2T8lRIIVWW—WeAP0PGPA.L(.Vo—29NNTR0UoONeP0oPLRV.IOL2[OO%NNa=®oPVPTN[xaSa
- CIRMMAQ RMO5/3/2 FCTNL TST 1
B 8
11 -APR-80 13:04:53 PAGE S-8

SEQ 0298

ONVe¢O+V0

798

758
786

BADYMO

9-3#

9-21

SEQ 0299

Lo-l—4.]N—-]—[-|—II-|—-U—L—][IV|lRIVoeY-L[eW]aI0[aBV]ORWROoIORIOIaR0NIGOI—2-|—
NoVA[a~TMOOa-]VI|n]lalNogeJ¥NVO~Ds](ay~gOT&BJdNaaI|V0lNI—XIYo(OoI]Z]VSaOYeIN~~(|z[y5yXL[No_a|[[Y¥-1aaVV0]IaV]74F1|B~5[83oM[}[YaYeOnNnNO)N=A44R|]ggEVuEX,VXeToeBRIgJR]VEEN,—XgRRRAVgRN,RANNNARLXtYV,N—A7¢I2R]RNON_N~3~JAD5VVDSoRYBN¥NWA¢¢oRRgeEOoNNTgY—RIXgENOMRXNYVyRINAalXYgLVRGgaEEYXNTRRJgYEEoXgINOAYNo©U~IgNgYEoXSgIRgYEgoNiIgRY2EoXo~NOIOV[[ALaYNIoVNJ|E[oaS
35 3 3 35L

LsAOyozNl=o=l-0~- ov — O3RO0OMO0V—NWOOTMNNMOOOONOI0NVN—VWCONIIMTTM—OMANOUM——
~o]]¢NI>O[|" NS]]I —| 0M1U]t| |]Ia)[[

WVVDooNVW[AM[L@XMI[—NLIIOeROD--O—]]]]|L"La.aegXoVlVoDE]OO2'N«1O]=I—ao]OO-A~¥lA(a]—BJ[eVUNrEV@OMIITBNR(xLNKXE<O~-—eVaIl[}@eg—OxIwa0—IYN—]ONIJ2OOIOBJxo-23——4M«IIL~ZLN—¥ZTxXarWNIIC~Y—NeMVaToaON~—A4—O>I]--¢[].Y([}]0O—[X+IDLOO3NDIIUwRWMWVTL[eX[MN—=OaVwoAVU1¥]aV~Oa]l]Z0I[X——e5—V3OeIa[)+ILNMW—1(VX)MDQrn>.IIamZoM07-4OW]VS&UPgaYL—ElrY]NM¢o~ONe.N&—(z0R~XOIoIe=rReetoOoIs1RBIeTIRNNeIs0Miw—IetBRIoee—ITrt—BVNo0L4eAOoM4P—V¢OgON—aRet.e||I2ORJgNg2OdlVERNMiMEMMYNXNX0V"&eAoaBRRItOooNIvIggAOXoVrRYgNEE'eRVEXVWNLXNNEN]a6—OOoRVABIW[NbktIRyYoLgRVI2WgEVVV—RNO]0oNn2—aIENYeeRELRNAMlLoN]XLAOYNOee0©Le7—O7oA4WM4NIO¢MaONRR 2ORlR|t2RYVRVUEdLDNNaVeSo~SRlN~N—]O5[Oer~00BeN~Y|aTNTVPLa0eNOEOVX-IerAO0IPY—d0tROVR,oNNOgOg—I4R—IQNRelAr|IgIJ~LOEATE00ttSOYYNNMaOMI—0NaBMIrINlgOA—YEV0RtaNLONIVg2M~AOeNBIReOlgeIOBACOgTOIEY8EaaMRI0NSyRtVXNONlNeR0|SIRVgB1OReCaEaTMNNrl00ROKOIR—OdMISagtINVOIEDMNMl—NrO0INRVSaIeNgAaD0lE0GOON44OrRNIaOOeDVN]l|IgMgBY0aEiNJN—MOgX~.OMrrIVTNII0DWJINag—IYGEOtNEOXlrOiVNOM-BSIIrIRIar.X—AyOgYLtEaIR0Nm~X[O—OIlEAr[I(IAeNLB[NLVX.aRi~mUr—< V-LONMN01|JE—[SrIQWtrOPa
NION~X---o—aVe"—]a7~aan["(~)—a0g[9¥ O4]JEX[~w~VBRaRNlNoIg[yRYXa-—lLvRVd(—"4N7—~~Aa""ra2XlRl_LY¥55lXaBlaVVv~4l|goLiaXYUIlV.~g(7gXEMNLS[~a'5)[~Vra})
CROSS REFERENCE

CIRMMAOQ RM0S5/3/2 FCTNL TST

L-7384

TABLE

(CREF

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

D
$-9

SEQ 0300

23-28

L&4

-——
=»

p—p—

—M—

12-631

12-666

24-21#
SEQ 0301

EARLY
L

DTE

D10
DULPRT
DVA
ov(
i

]

VIV LN o]

DPEH]
DPELO
DPR
DRQ
DRVCLR
DRVSTS
DRY
DSWR

WU~

DPE

AN =t

OMD

21-106
—

OOVA W
(=X
Te ¥ o
~3 0000~

]

[a91,97,81,
¥

]

O~NTMN

26-195

ol o

WO NEN) - ——
OSSO0V

mooma':ooooor

PP o

COO NN
— — TV
— WO
— O

L
B—
|
mmmt.nmmo

O W
O &~

o
JW

]

noro

—

12-240
12-A56

R
W
T

e o

) i

WTM

L R

AN AN AN AN

AN et e e e e i e
NNOWVESWNO—=O

b A

QO O~ NNNY
— =2\

Palp o

0o 0D 00 00 0D 0O O~ O

coroorhy

NOWNIANPN
0D — N

oooooooocz.oooOOm
"

FalV
ol o

NN
NP =
N
NW O W — 00N O

]

00 0o 00 0O O \NO~ O WV

[V
N

AN
b —

o n o
=N

—

LR
R 3

WWOoo~N

et OO
=
N

H &8N

~ oo ~no

~ o~ N —

©o] 00 00 0o
]

YO = A NWMNIN = =200 ~NO O N
OCOOONI NS O =N = O WND NN
-

~e e S

[V, P WY

b P

10
0
00
[
I
I
|
"1 NOOOOC')OOOOO

12-226
12-A06

oHr~NO

WD 0O
N
— N O 00N
ko
BV Yo

ONNI}JN
It

u-d—.—.—.

O WO SN

—_PO
e O N
= O
WD = NN — OO N

DBL

—-—

CTLFG
CYLMSK
DBCK
DBEN
— e

COMMA
CONT
(R
CRLF

-‘NNNJ"}JOO\I‘
[ B |
[
|

DISPRE
OLY
nN

DCK
DD1SP
DEBL
DEVSEL
DISPLA

N =2 = it

CNTCLR

-To TV Te W ol ol pf &1, §)

CNSLOO
CNSLO]
CNSLO2
CNSLO3
CNSLOG
CNSLOS
CNSLO6
CNSLO?7
(NSLO8
CNSLO9

BNt

[0 o

MACRO v03.01
CIRMMAOQ RM05/3/2 FCTINL TST 1
(ROSS REFERENCE TABLE (CREF v01-05 )
11-APR-80 13:04:53 PAGE $-10

8
SEQ 0302

36=-20#

28-127

12-:47
15-76
12-;14
27-12#
12-;80

35-%
36-21
48-14
4(8-28
35-5
36-22
48-15
48-29
36 65
48
4£8-30

48-56
48-70

48-57
48-71

4L8-58
4£8-772

48-42

4£8-43

4£8-84

4£8-85

26-195
12-504
12-986
12-988

12-762
12=F55
12-796
12-F9¢
12-a30
12-G31

30-133
30-260

(8-44

4<8-88
11-39.

4LE-86

12-106

4-582

-0

35=7n

31-30

EBL

L=622#8

SEQ 0303

ALAROALALRALALARARRSARMNMMNAAARAANAAUOA0NAAONANAIALMANANA—AeROA~[R—O TT
———MOMNNA—LUNOFTQOeNONOOIMOeSN=—IN—SUlNerSN—SSLS NMO—NOV—AN
.OO—NNI=NNPYANMYWYVO[
I
T
M
O
M
N
M
O
—OONNA—2NNNAIOMF—MY—A0ONI F2n e—fiOORSI0MUTFF (NI=|AMO(ONOANM(NGIF—mD—ANNTNINMA~FM—N MOATG0’NR—I~O O—em Or FNNO ~

XX
—
MM
O
\
=
=
—
4
X
XX
S
N
S
N
E
X
BX
—0ND— NI NN TSTMOOONITMN
ROVe]OeJVNoYVoRaRXolOVTaV]Xa XlNeVeV—[L OSBNONVWBNWBNRBN—RNMMNNNANLRDNYONeBODYOI [I N—I[
NTS
N
N
s
S
N
o
[
|
B
B
N
N
B
Y
R
B
2
B
I
L
N
OMOMNION
—AWMeNAA0NeGOO—IM< OMO—NOMAND TOONIMM ON
O
O
N
O
I
V
M
M
e
N
—
M
MN
—
O
N—
ONIOO ANIMMNr— — —O
OOTNN|]BN3NN—IB NeRL—OIRNOORRMVNIONNVRORLMOSY MRIUDOYSOeirOMILU—~MeD—I IL—|
AOON—ONOO
B]dOoaNB XlNOLBoPaYYNTNodRNSYB=TNM1RRdRIo"NRXDNYaNA YYTDB eONRD]OO=gSeBVNeReaVNTLNLUOIaPL
O)VeNOIRVeWJOVoNRVOeJN aIETXMOalIolMIaVIOaNVELJX—IkOvNOS[NV —IgOVVOO
F
M
N
—
M
A
M
o
N
I
T
N
N
e
—
N2OIN8|RRVVeOJJVV_oLNRYVVeoSORRVKePSABNoTRN1ooolloaOSVVIlAaOVNa]VeXNl o~RS—WOSNaLMlaa—l[LaL IOONO| NI NOOO IABOTNNMNONR ILNR ONNMMR NONRM0IVSN2ORNIOOMRAON—=2B WRN N——=I\MMRPL—[[NC
VUNMN U UOWN OLLOITSUMND0OOON=NUO—OLMIUP
WNNH—| O0]ORBVWReMNOOJVR~YNVoNNRNVeOOREMXMN
NA NOYoINoAlRDOIa~ORVR]NoOVoNaDdDORiM~KLIOaLlTIan OO—CUONIM
eL [
OMUYO]| IBBNOB NNNRRNYNBRNOR S=DADOUNNORIRRNNTOUIRSMMMNBiM——IR N0R L0oRL—SFA L[ —N
MWNAN
N
O
O
N
=
=
IAN
N
SUN—NNN Y—NNI NOOM—NIM—TAAI0OJSN
ISONMOO—I I D RNN RPRRR —B ONP LU OOONINIMM
A4

R'[IYUN]0OA—N ~MAOFTNDONIND FTONVOM~AIO.M

MONITMANOTNS —NOV I|ReB

O N ONONIM Or—r—e—— ONOTUNIMNMIM—NOe—

(CREF

L6-84
42-12
46-114

MACRO v03.01
v01-05 )
M ~APR-80

7-517

42-24

7-691

42104

13:064:53 PAGE

37-78

37-85

|2NBRN ONT—0 eYNLRDBS|INO s—NO—OM0O [RNIDB|RN WOOVOIOTRIFT~NOITO IRDB|N [SBoVEXae1lRX.

IDRB|NAY IDRB)|NY LSNLUIRTDBNL O2N—MO~—

O ON N
~O0M00

]NIRNORSDRNSNYSNoRRRoNNBoANlR I IILi |

TABLE

Lal
Taliiadava
gh & i la

LouU ouvb b boool ) ob
(ROSS REFERENCE

CIRMMAOQ RM05/3/2 FCTINL TST
S-11

SEQ 0304

37-86

L6-14
L6=2N
66-34
L6=-54

L6-64

46-10#

EFT110

7-222

43-4»

SEQ 0305

I4A)LTI4gTM)INgTRNIgRNRST~~4N|TIRIRRIRYIIIDL ~~~5~
O OO . N L N [

[o ANANARNAANRNAR

]UeSY4QMLJ(xA2B[X§UVNa=RSRl]N3oONOOOON"7TOO—[LV[M¥]~4NSN~aXV—lA)TXFW0TLAMO1IY—OIW—VHNUSXUXOMUe‘YlVAwAB0UeTN3Om&——TNVYl0YV,0Oen6WNMOD[a0—0TOdMoAT—oAN]|M|aeRo\Ol7Sg]OOO0oWiA—TNAeI—Oe=IIM®n}RlOO~YOaAB—rNOO0eSOXMNoeA@~NJN~[ISoR—EL]1VUXRFlMO0rOS~VoQ0W—ENNAXlMRE~YONrTOeyVo[E&ONUlTI—OoVMT5ES0lMNNaIVN7glU0EeX—IeM18=I2GNVEIEX0GIr9=VeOX—rO5V1eAI2NLGTIaoON—--~~=u V.Fer]]]0V—oU1I7VAOmSU—5VSIlo-[w=O—N-V[R]V|]N~—rNUrafA~TO[IIIyIVOl—OewanRNNL|VU4EIMYON~—3VNM_95—EOe~[ 1AOOOOTTNJJOa.ANO.NTe]'|]LFFR].}OIONM2OAWO—FN2-TIINSMNTAFOPWMNNON—oNITR.NNONMKM—PNNNSNNO3A—IDINFRYBAO-0-NTAAOOSWOO—N—NRDBINOMWMJNMOV‘ASNOONTAORFIIMDDRNNORNSNANA5yYNNVNMIRMOoROIOW0OCANIN—NNE—RIMNIRRBOIMDOMAO6NMVVNoYSMNM-NOBNIRINMNIALN—NN0O=I=MIRRTAINDON1N~LNO POTNMMO-I—rRIIAAOO’N2O—SONLAMUNMRRWRIrNo\USNW—ONONNYOeOL2VeI—LLAU—A——I—L|U[N[S‘UNRT—I—Be4e4NIAS3TONXI5—NRLSNTENIP3X—MILXPBN6ILL—RNgS)EIXN7BO)(TXN/IMDRAXI3BINI=ILXgRE7OXT=NBNGIXg3EONLTe)—g4AILTNGg1EDRXNo)—e5RONNaANN2AbOJw2tS1UUNIDLRemVwONN-.3o—OAT—VN2||nEL~el®N)M0YRSomO—NU"NaN.M.Wn-~‘URM[[oiyUR2V5eA-M VLON9[Ma®V|IM0a
~———=~[[—hN~~ooe~5eJ[a"l}]yN] OXo—Y0~oYO~oOoM(a—oX7-MY)'[ ][ _][Loyuu]V0Yn—rrOl~0=a~—~yo[y[Fn»y50o- MOO.IOVOO—NOA||||)LMAMNYNNNN0RMTTIIVWeNOMNNOYO—IS—T=IRIBBLRBTBMNVWNNDNMNYRIBVOYORDIOVNNN—DNOOBJRTRDNRRVeMTOOoNNNo—NVORRAR=IBDNNN—ONONDN=OoORIRVNNINNoOONNOYelLRIRDRONNIODIMOdUNPASNMNRIRe=aMRVMNOIN~TOFNNBRNIRROaVI=MNNR——M]N—=OOIDODDYUIOOSWN—0NA~NaW——A=IIRDI~NMNM2SMDROINMIBD=LO0IIALaLRANN2lAI[LNN[[L|a
(CREF
v01-05)

MACRO v03.01

RSLGA2N

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

L~A5r Rg~¢iFrtN ~7Iz 7~5
-5 5 T

TABLE

~5 7 5

CROSS REFERENCE

CIRMMAQ RM05/3/2 FCTNL TST

8
SEQ 0306

EMS111

40-74

40-226

44-T4n

SEQ 0307

40-48
40-107
(0-187
60-23¢4
4£0-19
40-148

40-51
40-109
40-189
44-804
4,0-178

40-59
40-73

L4-1184
40-57

40-95

40-96

4£0-68

-0

]

)

n— O
O
w

40-9¢4

OO0

4£0-93

Eak a3

40-9?2

o=
woe

40-91

40-231

40-230

40-229

—_— O

40-228

Eka3

40-225

OO0

60-201

e \ Y

640-185

40-66
40-179
40-205

44-834

40-90
L4-864
L4-874

40-115
646-1134

40-86

40-100

4£0-87
40-101

4£0-89
40-103

40-85
40-9¢4

40-86
40-95

4£0-87
40-96

646-934
L6-94n

40-103

40-105

40-106

L46-96

40-117
40-61
40-184
40-109
40-205
40-205
L4104
40-217

40-192
40-129

44-984
40-137

40-18»

40-193

40-140

40-184

40-205

46-1014

64-105#

40-67

40-11

)-134

40-138

40-182

40-183

40-19¢4

40-195

40-217
40-11

46-107#
60-134

4J-182

40-183

40-194

40-195

40-223

44-108#

40-12¢4

44-1100

40-173

L6-1124

40-67

40-68

40-69

40-85
40-99

4£0-83
40-97
66-924
40-83
40-92

—

6£0-42
40-95
40-96
40-80
60-94
60-126
4<0-80
40-89
4£0-98
40-100
40-94
La-146n
40-52
40-44
60-65
40-65
40-73
40-73
40-185
40-112
40-42
40-51

40-112
40-51
44-109#
40-112
60-12¢4
60-11¢4
40-123
=164
40-115
4=-1154

4£0-54
40-134
40-192

=772
O —r0
OO

40-78

40-97
64-84n
4£0-89
40-91

$-13

SEaQ 0308

—

4=750
40-76
LL-784
60-45
60-77
40-186
40-232
40-77
60-143
L6=120
64824
4£0-88
4£0-89
40-88
4£0-8¢2
40-92
40-93

13:06:53 PAGE

WO O
WO ~NO~

EMS133
EMS134
EMS135
EMS136
EMS137
EMS14
EMS140
EMS141
EMS142
EMS143
EMS144
EMS145

(CREF

11-APR-B0

Pl
ol o
[P Jole

EMS132

£0-74
40-75
40-77
60-44
60-73
40-185
40-223
60-74
40-77
60-12
40-78
60-79
4<0-80
40-81
60-56
4(0-83
40-84
44-89#
40-13
40-86
60-87
40-79
40-93
40-125
40-79
40-88
40-97
40-99
40-85
40-13
40-44
40-35
40-47
60-47
40-36
4£0-36
40-109
40-69
40-13
40-50
4-1064

TABLE

MACRO v03.01
v01-05 )

E
2k
ek

CROSS REFERENCE

OO0

CIRMMAQ RM0S5/3/2 FCTNL TST

40-116

be-114n

40-60
40-117

40-61
40-143

40-62
Le=1174

40-63

60-64

40-65

40-66

40-71

40-72

40-172

40-196

40-197

40-168

44-1204

40-126

64854

4£0-91
40-105

640-92
4C-106

40-22¢

L6-99%

60-223

40-234

40-70

60-71

EMS166

40-122

40-142

44-121#

SEQ 0309

CIRMMAQ RMO05/3/2 FCTNL TST

MACRO v03.01

TABLE

EMS167

40-B

40-49

40-68

40-122

60-123

EMSI70
EMSI7Y
EMS172

40-9
40-57
40-215

&4-123#
40-105
44-1254

40-125

40-126

4b=124N

EMS174
EMS175
EMS176
EMS177

40-216
40-216
Q4-129W
40-127

44-127#
40-217

40-218

40-219

441284

EMS213
EMS214
EMS21S
EMS216
EMS217
EMS22
EMS220
EMS221
EMS222
EMS223
EMS224
EMS23
EMS24
EMS2S5
EMS26

EMS27

EMmMs3
EMS30
EMS3
EMS32
EMS33
EMS34
EMS3S
EMS36
EMS37?
EMSL
EMSL0
EMSe
Emse?
EMs6eld

40-128
40-129
40-129
40-131
40-55
40-55
40-168
40-15
40-169
40-170
40-17"

40-171
40-55
40-236
40-237
40-237
40-16
40-179
40-231
40-233
40-232
40-121
40-17
40-18
40-19
40-20

40-16

40-4
40-17

40-33
«0=-177

(0-21
40-22
40-23
40-24
40-25
40-26
40-27
40-5
40-28
«0-29
40-30
(0=

40-169

40-170

40-175

40235

44-18W

0-23

44=1224

44-126

44=130#

eS8
:

44-131#

44-1324
40-130
40-130
441354
40-142
40-142
40-170
44194
40-170
44-1404
40=172

L4=1420
44-1430
44-1444
L4=-1454
44-=1464
44-200
44L-1470
40-238
441492
44-1504

40-

40-118

so-ns

40-119

40-120

40-121

40212

40-232

40-238

40-131
40-131

40-132
40-132

40-133
40-133

40-134
€0-174

40-136
40-175

40-180
£0-176

44-1334
40-237

44-1344

40-179
40-170
44-1384

40-233
40-179

44=136A
40-233

44=1374

40-173

44-139#

40-26

40-27

40-28

44-1414

44-1480

&4=-1510
L4210
L4L=224
40-115
40-116

&44-234
40-173

44-24H

40-7
4&0-18

44-5#
40-21

40-115

40-116

40-173

44=25#

40-22

640-23

40-2¢4

40-25

40-208

44&=27n

40-227

4&&-304

40=215

&4=-3/n

40-1

40-43
40-199

40-146
44-284
40-219
60-225
40-216
40-213
“6-332
«0-75
40-220
«0-190
40-206
40=209

40-20

60-129
44-264

40-207
44-29#
40-226
44-31#
40-214
(YR]
44-34a
40-191
&&-3¢n
«4&-372

40-130

L6=-350

40-1%1

60-132

40-133

40-144

40-145

40-146

640-29

40-147

40-30

40-174

EMS201
EMS202
EMS203
EMS204
EMS205
EMS206
EMS207
EMS21
EMS210
EMS211
EMS212

40-168

G —

EMSZ00 40-128

40-126

—

EMdd0 403,

SEQ 0310

40-214

44-17#

)

EMS173

40-14

V01-05

N
8
11-APR-80 13:06:53 PAGE S=-14

CROSS REFERENCE

EMS17

(CREF

60-32
40-176

EMS4L

40-32

60-211

40-230

44-38#

SeEa 031

CIRMMAQ RM0S5/3/2 FCTINL TST

EMS64

EMS65
EMS66
EMS67

EMS7

EMS70

EMST71
EmMS72

tMsS73
EMS74
EMS75
EMS76
EMS?7
EMTI
EMTI10
EMT100

EMTI0

40-42
40-8
40-41
60-3¢
40-43
40-10
40-48
60-221
40-51
40-36
40-139
40-49
40-69
40-35
60-35
40-38
74

40-210
40-58
60-44
40-222
40-7
40-48

40-229
40-120
60-45
L6-461N
L4=7H
40-64

40-132

60-55
40-142

40-70
40-143

40-139
40-149

40-38
40-182
4£0-206

40-39

60-184
40-207

60-44
40-187
40-213

40-51
40-228
40-191
60-205
6£0-228
L4-8H
64=500
G6-514
44-524

60-54

40-63

60-67

40-192

40-206
60-229

40-194
4£0-208
L4-49K

40-195
40-209

40-190
40-41

40-145

40-147

40-199

L4-564
60-45

60-47

40-49

40-52

40-66

40-73

40-63
40-51
60-142
60-67
40-134
40-67
40-37
40-148

£0-195
40-56
40-183
40-136
40-217
40-138
40-39
L4-654

L4-59#
40-60
40-193
4£0-188
L4-624
40-222

La-66/
Le=67N

40-149
640-14
L4=-554
4£0-218
40-44
L4-90
40-50
L4-584
40-59
40-48
40-140
40-54
40-70
60-66
60-36
40-72

40-34

40-10#
L0-66#
40-674
4£0-684
40-694
40-70#
40-714
60-72#4
40-73#
40-114
(0-744
0-75#4
40-764
40-774
40-78#

60-234

SEQ 0312

60-147

40-186

4«0-187

4£0-138

40-192

(V)

EMS6
EMS60
EMS61
EMS6?2
EMS63

)

40-185

40-189

40-200

40-201

40-221

ocony

EMSS7?

60-37
40-181
40-20¢4
60-226
40-227
40-50
60-223
40-190
4£0-20¢4
40-223
40-6
60-22¢4
640-224
60-22¢4

v01-05

EMSS56
EMSSS
EMS56

Go=lil

(CREF

11-APR-8B0 13:04:53 PAGE S-15

EMSS3

44=420
60-48
40-55

-t N\

EMSH
EMSS2

40-6
40-46

WINNININIOD
= — = = O OO ow
S —=OWVNND
OO WO NS — o -]

EMSS
EMSS50

EMS47

60-33
60-43
40-37
¢0-193

NNNNNNN\'INNNNNN
|I ]

EMSLS

EMS4L6

TABLE

MACRO v03.01

Pl ol ol

CROSS REFERENCE

44-634
40-228

40-229

40-230

40-231

60-233

40-64
40-194

40-65
40-195

40-73
40-200

40-140
40-202

40-141
4£0-203

40-119

40-178

40-182

40-183

60-194

40-195

40-196
40-210

40-199
40-214

40-200
40-215

40-201
£0-220Q

40-202
40-221

40-203
40-222

40-50

40-52

40-54

§4=570

40-107

40-139

40-182

40-189

6£0-194

40-205

40-61
40-19%
40-222

60-63
L4-60#8
40-234

40-108

40-109

40-134

40-135

40-235

G6-614

60-223

L4-63n

LL-644

EMI11S

7237

40-79#

SEQ 0313

CZRMMAQ RM0S5/3/2 FCTINL TST

CROSS REFERENCE

TABLE

EMII16
EMT117
EMTI2
EMT120
EMTI21
EMT122
EMT123
EMT126
EMTI125
EMT126
EMT127
EMT13
EMT130
EMTI31
EMT132
EMT133
EMT134
EMT135
EMT136
EMT137
EMT14
EMT140
EMTILT
EMT142

40-80#
40-B1#
40-12#
40-B2#
40-83#
40-84n
40-85#
40-86#
40Q-B7#
40-B8#
4(0-B9#
60-134
40-90#
40-91#
40-92#
40-93#
40-94n
40-95#
40-964
40-97#
40-14#
40-98#
40-99#4
40-100#

EMT143
EMTI46
EMT145
EMTI46
EMTI47

7-240
7-243
-3
7-246
7-249
7-252
7-255
7-258
7-261
7-264
7-267
7-34
7-270
7-273
7-276
7-279
7-282
7-285
7-288
7-291
7-37
7-294
7-297
7-300

7-303
7-306
7-309
7-312
7-315

(CREF

40-1014
40-102#
40-103#
40-104#
40-105#4

EMTIS
EMTI50
EMTI51
EMT152
EMTI53
EMTI56¢

7-40
7-318
7-321
7-324
7-327
7-330

40-15#
40-1064
40-107#
40-108#
40-109#
40-110#

EMTI56

7-336

40-1124

EMTISS

EMTI57

EMT16
EMTI60
EMTI61
EMTI62
EMT163
EMTI66

EMT165
EMTI66
EMTI67
EMTY7
EMTI70
EMTI71
EMTI72
EMTI73
EMT174
EMTI75
EMTI76
EMTI77

7-333

7-339

7-43
7-342
7-345
7-348
40-117#
7-355

7-358
7-361
7-364
7=46
40-122#
7-370
7-373
7-376
7-379
7-382
7-385
7-388

40-111#
40-113#

60-164
40-1144
40-1154
40-1164
40-118#

40-119#
40-1204
40-1214
40-174

40-123#
40-1244
40-125#
40-126#
40-127#
40-128#
40-1294

MACRO v03.01

v01-05

)

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

SEQ 0314

EmM12

7-7

60-4n#
SEQ 0315

CIRMMAOQ RM0S5/3/2 FCTINL TST

MACRO v03.01

CROSS REFERENCE TABLE (CREF v01-05 )
EMI20
EMT200
EMT201
EMT202
EMTE03
EMT20&4
EMT205
EMT206
EMT207
EMTQ1
EMI210
EMT211
EMT212
EMT213
EMT216
EMT21S

EMTZ216

EMTI217
EMT22
EMT220
EMT221
EMT222
EMI223
EMT224
EMT225
EMT226
EMT227
EMTI3
EMT230
EMT231
EMTI32
EMT233
EMT23L
EMT235
EMT236
EMT237
EMT24
EMT40
EMT41
EMT42
EMI263
EMT240
EMT24S

EMT246
EMT247
EMIQS
EMT250
EMT251
EMI252
EMT253
EMT254
EMIO5S
EMT256
EMI257
EMI26
EMT260

7-49
7-391
7-394
7-397
7-400
7-403
7-406
7-409
7-412
7-52
7-415
7-418
7-621
7-424
7-427
7-430

40-18#
40-130#
40-1314
40-132#
40-133w
40-134n
40-135#
40-136#
40-137#
40-19#
40-138#
40-139#
40-1404
40=-1612
40-142#
40-1434

7-436
7-55
7-439
7442
7-445
7-44B
40-150#
40-1514
40-1520
40-153#
7-58"
40-1544
40-155#
40-156#
40-157#
40-158#
40-1594
40-1604
40-1614
7-61
40-1620
40-163#
40-1648
40-1654
40-166#
40-1674
7-505
7-508
7-64

40-145#
40-20W
40-146#
40-147#
40-1484
40-1498

7-633

7-511
7-514
7-517
7-520
7-523
7-526
7-529
7-532
7-67
7-535

40-144n

40-21#

640=-22#

40-168#
40-1694
40-234
40-170#
40-171#
40-172#
40-173#
40-174#
40-1754
40-176#
40-177#
40-24H
40-1784

6 9
11-APR-B0 13:04:53 PAGE S-17

SEQ 0316

EMI261

7-538

40~179#
Sea 0317

CZRMMAOQ RM0S5/3/2 FCINL TST

CROSS REFERENCE

TABLE

EM1262
EMT263
EMTI264

7-541
7-544
7-547

40-180#
40-181#
40-182#

EMT266
EMT267
EMT27
EMT270
EMT271
EMT272
EMT273
EMI274
EMTI275
EMTI276
EMI277
EMT3
EMT30
EMT300
EMT301
EMI302
EMT303
EMT304
EMT305
EMT306
EMT307

7-553
7-557
7-70
7-560
7-564
7-567
7-570
7-5764
7-578
7-582
7-587
7-10
7-73
7-591
7-595
7-598
7-601
7-604
7-607
7-610
7-613

40-184w
40-185#
60-25#
40-186#
40-187#
40-188#
40-189«#
40-190#
40-191#
40-192#
40-193#
40=-5#
40-26#
40-194#
40-195#
40-1964
40-197#
40-198#
40-199#
40-200#
40-201#

EMT265

EMT 3N
EMI310
EMT311
EMI312

EMT313
EMI316
EMT315
EMT316
EMI317
EMT32
EMT320
EMT321
EMT322
EMT323
EMT326
EMT325
EMT326
EMT327
EMT33
EMI330
EMI331
EMT332
EMTI333
EMT336
EMTI33S
EMT336
EMT337
EMT34
EMTI340
EMT 341
EMT362

7-550

(CREF

MACRO v03.01

v01-05

40-183«#

7-76
7-616
7-619
7-622
7-625
7-628
7-631
7-634
7-637
7-79
7-640
7-643
7-646
7-649
7-652
7-655
7-658
7-661
7-82
7-664
7-667
7-670
7-673
7-676
7-679
7-3
=352

40-205#
40-206#
40-207#
40-208#
40-209#
6<0-28#
4&0-210#
40-211#
40-212#
40-213#
40-2144
40-215#
4&0-2164
40-217#
40-294
40-2184
40-2194
40-220#
40-2214
40-2224
40-223#
7-682

7-694

40-228%4

7-685
7-85
7-688
7-691

60-274
40-202#
40-203~#
40-204#

40-225#
40-30#4
40-2264
40=227#

40-224#

)

9
1
11-APR-80 13:04:53 PAGE S-18
SEQ 0318

EMI363

7-697

40-2¢29#

SEQ 0319

CZRMMAQ RMO5/3/2 FCTNL TST

EMT4O0
EMT4)
EMT4L2
EMT4LS
EMTL4

EMT4S

EMT46

EMTLT
EMTS
EMTS0
EMTSY
EMT52
EMTS3

EMT54
EMTSS
EMTS56
EMTS7
EMTE

EMT60
EMTHT
EMT62
EMT63
EMT64

EMT65

EMT66

EMT67
EMT?
EMT70
EMT7
EMT72
EMT73
EMT74
EMT75
EMT76
EmM177

EMTVEC
ENRGDT
EQUALS
ERR
ERRNMB
ERROR
ERRTYP
ERRVEC

(CREF

v01-05)

11-APR-80

K
13:04:53 PAGE

9
S$-19

SEQ 0320

TABLE

MACRO v03.01

el e e e e
e [\ ) i b i ot \ Y\ D o aalD ol el D il e sl ) il D e il v el D e ol d O == OO NNNNNOO NN~~~
OOV
O0 NNNMNVNO OO NN
O P DWW O == s OOQOONNWES = NI =
2 O OOO
VIRV
OO WO W
ONS =RWN=NY
WONS a2y~ —
OWVN
OO WO
=N
OONWNO

EMT4

EMT344
EMT34S
EMT346
EMT347
EMT3S
EMT350
EMT3NN
EMT352
EMT353
EMT354
EMT36
EMT37

NNNNNNNNNNNNNN~I~N
:~NNNNNNNNNNNNNON?NNNNNNNNNwwwwwww
L
I
I
A |
UL
]
[
]

CROSS REFERENCE

9-19.
12-:2¢4
14-32
9-19»

9=19s

22-86

22-102

22-136

12-6

12«7+

12-8¢

12=19s

12=20¢

12<240

12=25¢

]

12-38

12-39

12=60%

12=41¢

12-45+

12-46+

12-57+

12-58¢

12-252

12-253

12-z54¢

12-:55¢

12->10¢

12->11e
SEQ 0321

AgoL—TgN—YC—-c»gO7Gon—A\\..GIz—»\.,"[GNG«—z.\—«u\-.(Ga,.«G\o-G0OoGN(eNOG(eOGDeMeNOeONOeAeOOeVeOOGNTPNGNPNPNGNTGTT~PFP—OPNOMOM=Vo
Pqgpp————Yo—G—qoG—>SGG—QPe—GP(Q(—oP(eP—ogG—QGoo(oG—AGo—TogPGggP.—PGG(Ge—eo—oGe—oegPoggeeoTgGePSeoeOoPP0OG0UG0O0G7e0R0G00PP0P0o0NN
ANO s V V IHIHEAAAACEC OO
OO OONNDMOOPPO
—ONOMN S I TNNNN

o—ONW—OYk=N0ANkN—RKNIng=RU—NlNOx0GMMoD—0RNMlOeBOOlGoNO"RNG5lRNIORON(ISPMMeTKNSlPONeRPRlTNoMMO—RONlMeR—ONONl’I~ONR—eNMVoN—=TTIMlMNOO—O8No0lINoN—RARNFlOOd—RONOk—NNNFNRO=Rde~—TlSRMNY-~eIOPlTMRORTONLgoTNReFlI—OTosNOlOoLNOe2RYTMlNOeNeRVNlOOoNQNNOkOIeAMIoRReNNlNToO—OBNe—lANoMNONPloO=RSS&Gl~NaNONOnG0dAIaS|RnG0~dNW=&NoI0GDks——NVOAnlP0MNoOMNR~|OPl0OAOokORPl0VNRo—NA~OPl0NMaMNRnNOP0OOlNoN2OPl0NOOoxMANl[MNI~
0NVOHgNq¥IHO=WY80000TO00\—1N-,AOTVgWIVyN.nA—wNSITDTOqOWeeAT.nN——OAIVSVAIGT~YqEWTTONNO-HF—0NVATOW—gOTT—MAONRGEVVIVoODm8GTCTTOlVOC8—YwVM0NoS-ATNB—OTNTlWEGeO-CNNNB=0—RTTYUDTO-C0-VNNAC.TOOMmN——OTMGO-SECSIwGO—TRTTBCgOM0WSEN-qdMTV—TOIM0R—ITSN—eBWWAWTNMAOWgVvVVONVNe=N—=s)eoTTcTlPIVeMaNW—TRlOLTOAGO\00NNNoN—-WT2¢TeOOIlvM+RoTV+NoO¢(—R¢TTAN=NlgO2\2NJtVTPNORq~TNeoNAIO0—FNNTVNotm68NTTO—lgOOe¥G0TT6Oo(weRGNOTNMOA.Io0GTNND.8ANoaOeOT0NATMNEaONaW|eT0dOgNIEoGGTWo00aNRTeOYO=kCP\Oo«TMINNNs0edLOTETOGo8ONVTTVOdW0eNTOP06oNMD0AORNoNN=eONO=OR0oWNoOONROTaeAPM—00fVLoToOoEW3OFo(MeOl0W0,=o[oNTO=~QWF—LTlT=OPe00FoMa<yNQoEFVNTO—NAOOOlP0v0LTTgoTO NF|1~lLNOoG0VTFVNoOo3NOoBNTAP.lO00TNa3NoNOLOIoTBNPOl0V0.OLNVTSoiFoTROO2Gl00NMNOTSMaTnNlOP0—00BdNoaAN.os3IQSTRO0OlG000PIITaaLLWnIGo80P000TTlaaISITOR1PsPO0009IINanAWSNNOP600M0TO1UaOAMITTW—=PM00NB0N[TU«Iaa8‘0==O=1MT<(F"(oe
=OFA-N=e0«yS0OUWW8I|l0NOEVONMV0|WONI|I1WHGNARWNI0OT-H1A"NOAMEO\0At0OGNO0C—OV0OO0sNMVNO00FO0RARkO0O—=RNOTO0IOMRRNONFOVONTRROVVOIOFO~NTRWORVNOOOVONVNORBNOAOOTOR|IONIRN—ONAOVM
-WONV]LOAVR00NwAn»OnIWAw$mCON=nCA8I.TE5CC5.OsLTANMInNwM0P%O0N6u8nA03O.10L=0LnO0NN0D0.VN&80A=0«R0O=00=30N0L.8ASW¢Nu0Tn0AN.UOuM1
CROSS REFERENCE TABLE

CIRMMAO RM05/3/2 FCTNL TST
(CREF

1
MACRO v03.01
v01-05 )
M
9
1 -APR=-80 13:04:53 PAGE S-20

SEQ 0322

12-7968

12-7964

12-798

12-7984

12-309

12-309#

12-320

12-320#

12-3208

12-324

12-324#

12-3244
SEQ 0323

-—O—ONOOMMo3VolXLal’aXe0MNMNM—WO~OWNNMA—TNOG0FOMANININW=
—WV~oM0oP~N]0U'L|J}YN~[ayeM—N@@N—eWOV))|—uIOONeoOuoTSBIwIIVN—C=N—LOICoMIOIBIr=TnN-SAO—=o—I0BIIL=OMOOOurooN—IBRI|~——Nn0MOTIRIND\g[YOOOOeN—eMV"JSVI|ToaNVNl)~Oe——¥.ID.ORgBNmrlN.dSWO-—[’iNlDRaInVegMOOON—I—ONNRLaLVITrVN—0OAeWcTM-IIDa@NL~NAV—AUWEIT~-lND|VLNeLLrU-TII—||O—||r[VoOMOODa]A-IIRVMIg—A-aIRIMgAVNNTL~AAaNg—OOIeIrNrVJL0MaMIaVN0R—IIV[ISaV0OgO—-0BTNDL—[}aNn[=~-VRI|n|a—)]VO“gNY—FNO—A|DT|7]INVUWO6NpNV2R.ODeo—"MNlCV1N9_TB—OBBegIVOoNIO1DOT—xeMIeNIeETnTO5DNINeLDOeOVT6OVTQOWNMRNNII-VR0OI.DTWVewDOVV3TAvvGOeNOIUNNIVA5IVIWbOeRTNOoGWST7~koDLVvVODINNV9OsYT~NDNODVIUMNUO7IGRTVNRTDIoINDO9U—kVTIPTNoIVINoDOINTM0tAQNYIADN~A4MRNsO3RPQOV~IODQ]oNAN5TkoLRDIOPQN¥.UOA0tAOQVoIYINW—W.1NV=W—OVDIDIoPRTWWM5NOLNNeIe=IDOoSRW6NWsDRNToIIo~TN0MLG.[OoDMIOTG]o.N2V(LTOWBDAoDP]NNT5.NkoQ-O=TAIOAL]NV9A.LINONIDIGLA0CQgWeONIVIITN2<SLTgQ=OBOOINM6NQVOLLMNOBIIIOINDILO=BOINIaIGN8PTIN=MNIAPIGI~NU0L=LOONyoO(LTL|g
-—

a D2 - 0

xn Rvu _R |k E RV ‘R
=M= RRRT VRRRRRW RNRRkyW\ NtNRR

|LPo~l0oV\dD1J]oTIV=[INaVI[RaV¥IN—aNVIYoalIyVlage)lNL—[aVLIa[—VaI¥aILVagIV]KagYVg|,]oV]VIT}ggoVN[IaVI[RaVIRaNVDoVeDo—]QTDNooDVtTNoDNoTNTQDNoNVTOaoN[TQDoNNTQeDNTNDoTDQONeIoQTNOTQTINTNTQIPNoNTeIoQNTeOQoNTeIoQNTOoNQTINPONQTIPNoLNQPo[oPIVQoOPNVqLoNPTVNeIoeQNIoNT.IoQ[NaIP[VI{aIGNT[aP(NTLa(TNA

XNM«DIGI8e.RNeO(VoNo~oMOD—~I]gNNB5~TJIuOTyN.ArVMOOWVJMINW0UDR-OoeU—I—VlUFMWOOMONIFPoQ-0eITVO—NO\—OWNEN—oIAJWO—eIIITVOAoONOCON—YA-V—M30NTVOIAoArB00YNPOS=QAaY—ISoOuOLTeNMWaMoTeN—lVen.=OWAa—eOMlVVAOeWO[IOOOOUAeJ—UaMM8ON VaNDOITaTA—N—Va—NMISTAlanNOIVMMI0NUTTIoICVMONN-AOON—T[IDoaN~—VONLP-[DIFoRLaVOABoNMO@-NONQBTN0)RDLU[CANOWaOVIOVeNeIAWITO~—~aNVN—NITVNI0eoIeOIOAaVWWNNIPRNTN—OWVOaMNIO-NaNC0W—MOND—GMgR—D]YEWSAs.OooUO -ON NYON 0—(¢O~VVM ge.“u|—N=wA\O)LOTBV-OO-SNOO—eANvNOW—+N~IIA—V-TN[—OOOMVMWVMNOOAAGNAnUI==B—IAAg—eVDOrNIONNDgWLMONIN%IOVWO—A—OOeNO=CABeVWNCVIAD~wgIICO—TOOLOeLNWYNT=NNBMEN.yV]IAUOOIG&D—ALN—OINCOLONSOLU"WUNWOOMNOICgNMCIWANIOLNIr—RLeLNNNWeDeCAUIOOIOST OLOT—NA~W—NNOPODINgNIMSOINI CVMIMCOONIDeM—AN(INNONOANoLIIOORRMgCOeNIGDDVPTNNINODOOlIOWTeNOVO—LGOOINI-DOWDIOMNONNNeONgwIOVGMAUI~NDINRMRNVOeOOINGCV.WMVOTOSTCEIO FONOTgONGONDINVONxI=W—NAO(NINOARCO~ESVN=NRRVIOAOe—OGOIIPVCOOONNCMCR0OeIINTMAOAODNOe——RNQNONVIGUINQOWONRMRMAAVGAOGINNNILNMNIMIQIAAPPO0OWWOAN3DAOPWIGIVMQODN=|—eOW0NOGUANNUINR|WOMOIPNGIGPMNUOOLVWAONGNINID|OWAO-SWNPN—PwBIOIOBUA=O|==R=MNP—AWBLONMNRINKGOIMWCMWANWNPOVIMOAXVLONONNLN=CoT
NM0O~—']]YFAO\Nr-IMLNJ\||U}oaul0aIeIOso\Ed’sg—IaILlNTT.aM=IeLIleB—O——O-"ALaN]OOIa0MlO|1[.NaYYOrl=LIIL0—W=r—MVO5&LgNOeI10rI0O0—LNT—y1—wM-~OEMr[|vr—|r[vO—s-—<o)¢T10—]I—0gAuOV®OaIMwrk—W-[gLLt=3aO¥[IM0WVL—\a--lIWN—Laa|dMMA ON WV]NVDLIOB‘&——)o2Ip0OlVAGAM—oNT_OMleee—DBO2PNXV0eeeWIODI0AVelNIIeB2MINPYlO—OIITbWoC0NNOlIIL2A—kOPL0WIOIoDCNVPOGIIl2AVFeORGPDVNONoIIOGO2OeNoeGTPTIDNoV]IleIPOI)NoSTTAXQeGPDOTINDOVoFQAONelTD(OGNUOPO0NINoelYPTGoNXsTOeeAIPWIoINAet’oleeAPIAVFeO=TloPLAGoNVLToOeICDGPVoN~POelAoINIGVDNP—oAoIP2QGVVONoANVeWlRIPDITDoLNNWOlMIDPGoA—aTVN=NMdTIODPIYMN—DLL=LLIILPWTMA.NINNIIG=LWO=IIIGPIoLM[NIk—IGPLLaSV—AOILNtIoPT|aLlN
CROSS REFERENCE TABLE

CIRMMAO RMOS5/3/2 FCTINL TST 1
(CREF

v01-05)

MACRO v03.01

LSeTolde

-—

B 10
11-APR-80 13:04:53 PAGE S-21
SEQ 0324

ReN|=n RVNB= gWRk|N

eNVOD0U[vBWVSrUARLAT—CSAVWeIWL

MCRC

4-5720

4-582

22-386

¢ 10
SEQ 0325

CZRMMAQ RMOS/3/2 FCTNL TST

CROSS REFERENCE

TABLE

(CREF

MACRO v03.01
v01-05 )

N ~APR~80

0D 10

13:04:53 PAGE $-22

SEQ 0326

12-<34

12-<77
29-101

30-232

30-236

12-t 34

12-£70

23-62

30-239

MYMYNVY —

OyMo— Mo= O

[ o
o o[)ONNa1VL

-.OO)SVeY.\LJ«L-UaXOaN(VW[(]aA1,

29-97

26-53

32-94

MCLK

4-607#

e 10

SEQ 0327

CROSS REFERENCE

TABLE

(CREF

MACRO v03.01

v01-05

12-988

12-47

)

f 10
11-APR-B0 13:04:53 PAGE $-23

21-109

21-122

21-125

32-70

32-75

12-:564

12-;21

12-;87

12-<90

12-<97

12-;87

12-¢<90

12-<97

12-257

21=74

21-78

25-31

12-736

12-849

12-979

12-:45

SEQ (328

12-;12

12->93
12-€59

12-728
12-F06

12-,;78

12-<45

12-¢99

30-34

32-50

32-57

12-796
12-F94

VoMMY

CIZRMMAD RM0S5/3/2 FCINL TST

O—~y

12-330
12-631

PIRQVE

4-4B3#

610
SEQ 0329

&8«

H 10
11-APR-80 13:04:53 PAGE S-24

SEQ 0330

- 2 &&&&&®
L & " & & & & “«

MACRO v03.01
CIRMMAQ RMOS5/3/2 FCINL TST 1
CROSS REFERENCE TABLE (CREF v01-05 )

«&-=

"&-8

ILNR LB]}

RMAS

4=6938

12-702

12=77¢4

110

SEQ 0331

[o~~oaUNJ¥]o-1—I—gaLViogKgeLV]oX¥—lgL[a¥Xr=IU—aoXlrLv—aoN[1YaLI(oV\at~]Vo11]V1oe¢[a11VoLgIy=a1VoI=g1L1NTLvgO\J\)
S0+
7664

& & &8 &

ge—P
O—NOMONOSMNIWN (o\—ve=} 2RI|OLe eOFTVO~NMOMN
g—e

oOO—S[ON]aI0VINJgVIEe T~Noal3Na"OOhl MyN NNN AN OO —~ R| 4] JJ 0NN——OID|TMF—MBDB—enI—BODFMVOBDDdWnIIIaWODIuIL—wIOLI INNM—a LL 0AOOLVI0AFLVM(L0g2OLYL14
gON——D—~JOMeJaALD AM~-OD— ~4yB NN NNn 1' IONNMN00O O0CO NO*NN~).0 LOM809NONN0DIODVN6OS1ER

12215

12-:02

—N \ IMe—QON[BO=%le8le

12-:69

SIgN[aV¥Ia L=—Oo4l

12-:35

[IpgaSQo-VT—aAN}iaV

L-B

12-<01

«&

[X"gO]aVX1e.

o-—)

ONVO—INTYOO—M NA-y ~Cg1—oN1J1d VSN5'—OD~

12->50
12-D36

NNL] 2| NN1¢

11 ~APR-80

12->78
12-D92

o
NSO—

MACRO v03.01
v01-05 )

—-———& &I] & -|« —1\— €I —«— OO
B
3
0
—
P
A
MM
2
B
O
O
—
M
P
N
A
.
NNOVONo1Qu— —A-11 NMOAo——L - @ & & & .«
pALODN@"—&Y&g e&NS—& Ao——RLK)—
NN
—p— —-a61- & -¢t L—

(CREF

& &« & &

TABLE

SO
BON O—NIONBOoMWNN-O

W
O
O
O
N
I
=
A
N
I
N
I
O
M
O
V
N 0 vNGO=O ‘638983890‘6679886‘

D
—
O
—
O
N
V
O
V
I
O
U
O
U
N
I
O
N
V
N
O
Q
O
O
F
T
O
N
O
O
—
O
—
OO
82222222262SargsaBES1 1086o3317591e7—2OIDO1A0TN0N9N0~7VMM2I 5AN3—0—
3

-—WN\I¥aVIeBaNraTYgeOVeN][—V&—[]-a—¥L1Yoa5V] 2—\)oN0~NN‘3=.J|LdI2—N&y—I—0o—-—g-g&_—r2—eO—\ONNDOO—A=N+“—)J—OO70=—M¢e¢I-NW~-I2‘—=V-=IMNO—OMMV0=—eIe=I—NNNC27oNrvDN&OO——A~=(N8NOOI\NPW)I—~O2‘—INoM|=2T=oaNTo1W14-2),Nr|eT—oN=—o¥)l1O—}5N.7N=I=]J[JV.L1N1No99ANaeI=VRYlIXQa1O[OO8NV-BWa—T—IV.11aINX26aNIVae([~IV=(V1v—TV8MN R3OaBaasYUN.NYe7L25——XO2.0L.O~
VoW—]gAVIOoNV[yO—aVNIa [[v—aaVVI1aga—VV0]] oa~YoMyN~ —Vg)N]VoVNVllILVlOaaV¥lla¥L@
~gFVcaOlaROiV0aoN]XIeNa[IXtNokyn VRM¢]Vga[L[dlaR¥
CROSS REFERENCE

CIRMMAOQ RM05/3/2 FCTINL TST
J 1
13:04:53 PAGE S-25

SEQ 0332

12-<59

)

12-247
12-E86

22-358

23-92

26-91

26=146

26-155

26-162

K 10
26-166
26-168

26-177

26-181

26-183

26-192

26-194 SEgba;gg

~o UMNONONON oONO
"Hm—Mroy—JIIEWIXTo}a1eVlolLandi—W8—ONONIOIMwuJWWWWC~OrOOolalol[aVL
-~w-—[V-aV—l] VO—NYUMO\UNVOMYINMOIN—OV][aoO0}]o1Nl—LaOVnNIlaOVTIaoVMN]ReILaoO—Nl][V zoaMN]LNga'.hRQaMl.OALl
- «L1 LB --

aN-oEV4aV~oL0OMo——AO-[NiI]Na|]||Y0~[—~ex]]aSzVNNVRoM[ON—O—eNegE-IB&D-YaVRe—WYOOVNCAoOc-o&-&ODILyr«NIIMg0I0YeNaoaoIN—IL2Mr0NROOl2IL—g}VOIrOTgOaLNG—AM—M—Ny0LVR0LNe—TIORVNLv[a~—I—Tx—W—N|[LLo3aVylBR_xTxteO)oExRNOg——SC'aGSX()oMoo [——-—N ~R=N—xoO[)0)—Eq]OaVs-Ceo0B0ExtOObCLL3RNMYW0IN-NxXAOO—~oo—x]-U|]]A~yONVW8MO—Or—nNNR-AY—OCOMoNNNSe—NBM(\VBWOIIJU—NOIVOA—DMwIOM\RIMNNNVOOOWNIBNlYI0MoYV\0IAMNaOMO==V—vTSBIII2M—~M0VNIVRNOoNrvxo=TAPOIA|N[O—d—TMXON0SrNNE=oRIR0eI—Mx=OIOTrXAOaNOQIo—-—o&L MOI@|—I=ORITNONWPNOAOMNOMVTBIaNOMVTNIMr0NIONINO—NJMONNOMRIOOIdWILMmMNNUO~YINNOMNO—NMNIMWYONDONRNLNNUNYNMO—F0VA.SRRYOICO—O=N—eOeJ—ErF—V0RNBLI~N~eOoNO-IaNXOrI—N=y——II—a]Y|«rFOEoOO-IT\xJS(OaONPW~—Oo~O gNO --—NseR||F|]—Io}loOaLa~-VIoS3—]ooO——xIA|_uaS0-4TNoOo|—[xIOUM=uQLanSwIexFEaLONX[o5=-N~—wN0O—xVaa1-1L L¥IV\e—tO]]0lOV=—aE-FoI—xT(XN@T]IaOMoOOSD—OL—VOV)]|U]LONmN.NI2aIMuoOlM—lONSARUNMeMaoAL—oA~OtloONOOI2—IOUL.Ye[NvJNNV[N~a~RaMVO—a¥[Y—0OY]¥
NoG—[oNYOYOOTVN<O-rN&|&UVL||Uv]VOa]NVn[wo.SL—]Tr0oOJa&"YUYJ&II¥V0~—~«[N]MIV+MM,O—0oa\NIJR—~L)VV1—oNaNMoCON=<X-.OE]ILVVoOyVML[~Sug(ONWTQaVMI)oJ[~eLNa0[FOV)]a «0NO0NNOsMOArM~IAONFN0OA—1||\0U|\0|SATu~JeAIN—NoNMN—MMON—rIL)—LyMYMeOANUWeOOoeKNM——Nr0NMOUI0YOII—-CNWA—b—YNGNAA—M—N-erNI0OOLUOUlneD.ONLMMOeOM~RA—I"Uuy—L3FlY3@oM¥N—=M vN—QT—DW—&OD]-& )~||«NONW—NeMBMA\OS0Ma—o0NO~MTTe<~YIO0]ILPIy0IYN—rOO)NyNAOMAIIIEODNNUNOWnLMOVOOMNOROAYONFNONOVIYOMOd——TFRUIRrRIVN'eNO-MaMNINAOOOM——NO—MORlIV0CDMNaN~O~n-DVOBlMeIrIISMILDOIaOP—NLMPMtLWO—KMwoV—RI——OMOIL|\W-~|V5— [V[OOQ-~-~~O -o—~V]a[1[]Ua}—V}O—[l]goeOoNoogONMoOO8WoOoOl—]P]]]]l||0M|0eYLaTaNu3[~MelYolOI1o0IaNM—OVNllaaaVNOOi~VelllN—~~U[Ullg00YLaYF.aVia(eO—]g~—Na[MoOn¥(0—1|F([V(LaoLoLV
"c~(<eN1UoJ[o<oXJ'Y ONT&IovV—OlO—ONNLU0AN e3—0)—OFar2—I0w—ONn0aIXhaWII'"l4VOoWIWgLtl N—1L)IMOOM—\NJMLOQNL\OLOoT—[Ll
CROSS REFERENCE

CZRMMAQ RMOS5/3/2 FCTNL TST
TABLE

(CREF

1
MACRO v03.01
v01-05 )

12-:03

1 -APR-80

12-:70

13:04:53 PAGE

1
S-26

12-<03
12-¢<61
12-950

12-:36
12-<0?2
12-<60

SEQ 0334

12-399
12-AS1

L
J

12-C07

12-(8¢

[

12-D35

[

12-D93

RMWC]

6-0n

23-10

23-23

23-4¢

23-115

46-1¢

SEQ 0335

NOy—-NOoMUNOMe—oAWANQTVWO-— a0«0*
(CREF

1
MACRO v03.01
v01-05 )

]-L ~~]J O-0B=T20LP[1 O—L"L Oo|] @o|1 oo1U@0Lm Iwa0LY)ValOaeBltL

TABLE

L1] Lo'nAd Mo0F——1eO O1~ oo! o4}4ao21ZoVle"l.TXPel[e eO]yIV—LunLN

W]Na—LC—-eeo74J—Mor4NOXMIUe—iL6"|4]-L0.ng-dBaBrNtLYK~7AO—8I-oey‘gJLJoylEEANNN~R~X-—0L=0JJ/U.eEEAE=NaaN~a4-Lg4L7OXYCA’e¢U—4o[008LJe~Rn‘TaVPEM1NLLLy~NInOY[-QAl&S~—o1R"¢LL|aaB“D-VN——YEY¥',Y0©wToUnabNu.1VmaY[IuVNCO4r-7V7NXN]LaN"L01naXo—VIXRbT¥‘~]naVwTON0iO~¥y5-aynaLoRIF[rOgS—nXVoN]-aT[W,OLR.V‘OVN>-Q=YLV“oa[(or~O—aVNo+XeN0o-Mn4o—L—VO7-]—-]O!J1La-"v|[]nX—N0[—LgN0)V.a]INO~mYo~V~-Ie—OIyBWT|xXlFLF—aVFN“mRNL<Xe[M«TIeV.(NT—NI—mOIABAeVTVoMOO-O1—NOaOo—-Y—s]BN]“gNoOmnI|0oV=NN@YN]VTae—M0N-V~.oyMAg—]V—O—-BO-O2IOITTImoToNeNM]OaVSIVOeyNLT~—O-Mo—Ne[—T—NVO2—ILIM‘vFoRa—V[MNT10VLINe0VLo]-I0O.A—MvW%Ox—FAL||aL[2N[(—Ma¥gaNLIL~0O=V-O2r-Dna&OIorOO\IWa[Lo—LJ—Y—ON.l=TM"1YMNIrL2.Iaa0eQ-vMY\(~O—l—m¢oM)eOON]O|A+ON0aoVLNte]In—IOB"O—M,i~]—O55~—N-D=XW.a~RO—1N|ILa[[XAW—C"V),O-¥—DOX4ST4NV21,VsAMMN—]O(.Il|V[e+OV-\NVV[2oM--<oN¥-Ao0©O~0w[-]-CN]¢e—oONNW-—||(]|I-!Vo.——|——v[Uw¢]T}+O~Vo‘NOYWFVVASIINIaI2RV[IgoO@(e[—I2MLe»O—BTT1N-WWvOYMVTLRaIW|A@NADVTVM.n}oYNIanIVaVTM—@QM—)WeMOoOT—RRawOToI~NIYVg-ITNrNM[NIOLAaVAOoV0—LALOVlIAN6M—[IIaIYnT[oIN.RgI¥NVaOIoLl0NMDOOeo~OQQJWV-Ni)IoOE‘—-IeLyNaOLFVLTNNII—u(IaX]—aM~UIA(FVT]2a“ANIN—VaDwO&IY~oiNOaMX—1ETw|0[|YN]].VawNN.[Mn(‘dIV|eOoON(ee—]6O-VNgDN]VM=o@=VoOJ—NSeoV—O-]B]T—00|lV]s0IB~g[[YoP2~rrNaOa..0o1][AA—vVeO—IV¥o——mRM—AaIOioIl~[Vr‘raOaoe—N—LY]OM~][WNQN—OVa—¢oa0NTAI—0IIaTrO(J0N—4rVraMR-INMLO)F,“OVNIT—ENTO"aI—VTO1w—I—IeaTWVgXTw0LaD2u2IrO.X.NNTVw1O0~[aN-xIMYwY-~n.aI—|d[T[|N(O°—NoeaRENr2.N—-VO-NdDT9.NRNN‘dD([aM~oaVwLoNA—-o——.2Ea]V)ay[N00~¥N}]Yl]do'uDD-3"EO=Jae—XF»NaCNR~OCo.v2"x»"dD[V]-EQOODORVONND.6R—VODOROMN2NeRNDO—l3LEAIMA.N5ONTIEeN2RH)—OI—1LooM-V—5Nina]LIUOOtAI.tlaNnosaYLO0N—uO)]NUtlOI0BN[I[~pw‘l~bowygLo—-NvoVD>Tb<o5—]eDJOJ' yV5¥¥25lV[—l|]]]L(w]~2-L---o1=o)uo[]t Mo~[-~T~oh—-~-]JJd5.V——N—[ aoVMOTO0gNNDgY]lV|—Eg[a]MO'I——OA—[lg~aIaM<a¥VNOXdeVI——]MMPaIPyLVaS.——AI~oV5M—LaT(DXNgL[oVoa2eOow—-)—l]1e]l=]I'ageal[X[—V[XVaa[MM[aeW])g¥]a¥AyV¥]¥]\¥LLlN][.].S] [L(~[0o¢~@N—V—)-~aoa&]aVNV0e—)d][o]N¢oRNOO~A—~-No-—D¥vI}LF—.4BKINg~LIOVD"Le~NM3¢ar~d=I-\—l—mN[—’yY0D[—oe—DIaLaL~3lVO~)iO—ye|R|XV)NNFVO—XT——)]o8VS[Mga0KVOVOMNeogrK1NVIooa—WVNo[1eCX0IooOr.Va)2IV—5—[——-9aEiP[XXYog
CROSS REFERENCE

CZRMMAO RM0OS5/3/2 FCTINL TST
11-APR-80 13:04:53 PAGE S-27

N 10

SEQ 0336

STSH3

45-25#
SEQ 0337

04]OXaoS0gEN€g0EXagdhX60Na0 G02RR 602ad2a0

|II| ]L[ ] ] e R U U UL

MgegA—eXuyomE—neANeO—eoeUoV=lIW>NVillVwI>UVe«lSWLaV>lM—>C-EP20rPLeeCaouPeLgD»xowo—PaovgooVeld4=aWOV)DIVZNNIDOBNAIODNNIOTDIOENINMDIDOTNTIDeNION~DZINODOIDZNIDsND4OlILDZrXarDI—lXaD(GlEIDN\aZLDlNeIaNMglENIDaRrRlNNDIoOgAlENaNglErDSa3lOa2eO3lbNrTx3
CROSS REFERENCE

CZRMMAO RM05/3/2 FCTINL TST

M&Ww2

TABLE

61-2

-—

(CREF

9
2

v01-05

61-8

MACRO v03.01
)

61-9

9
]
9

9
5
1

9
b}
5

2
2
2
5
5

2
2
5

N ~APR=-80 13:04:53 PAGE

&1-1

2
2
0

2
8

21-109

S-28

SEQ 0338

61-12

61-13

65-264

2
4

8
8

-2
-8
-8

-5

)

21-125

22-106

22-108
[4

23-12

35-6
35-6
35-6

2
2
4

2
2
2
2
2
2

35-6

1ST1S

12-500#

35-6

SEQ 0339

oDkVOyeVOlVOeVkOoVOeVLOLVOVYOLOVYOVOeVeOVTOeVOLVeYOVOTVOTVOYTVeeOteVtgOYVgOgVlOVglOgVlOglOgVlOglOaVlOAVlOalVaOlOolVaOlValOaOlObaOlOaVlaOlOaVlaOlVaOlaNlIaOla-l
OCbOD0NIDOFOCTVNNODONACNOWNWVMOAN(SBO0MOHNAOA=C3FITVOOMMVesEOer~*°OIN—0MAOO=TO~VOAOAMTANNASN
Q~yN ~aOM—0 [aV~1a¥NIgV]L1 (oV-—atX
F—e

12-196

[a¥[]aV¥Tg]V] N0~JY—D [V4OgaRX lgaN¥V]a}V aroMad N ~NO NOS

M 0w

W~ WAW

11-APR-80 13:04:53 PAGE

N Aw A~

(CREF

MACRO v03.01
v01-05 )

No1D ~O| AI D—L

TABLE

—woy

—— ————

— -— -

~3A<o

RNW W R RARE RV N

e¥O]eRe[NVN]OeVeTVee]y[aSANOoBNaSldfMOasNdNPeNtbIDoOliBMNaONJdoVPIeBDlteW0eNRNOlPoNVNaOdBtOANesVoIONOA lotDaNdNBsoNONOtBarTNidAsNaINdbDAiAaORNIlINBSsNoVMAlOPILNtIoeN—kslNOeVOONtDoTeOkNOToaONdPVetONOLlPIVUoVVNMetOMDotJlNPNIoiNTDetOMNONoTIBVOONteAUNBSNaeOOA TVRoeNSlO—BDTOetMNrVOOeMiUNONVOesIVVNMMNLbtMMVM—eONIoDNMOObtNeOODMoMNNeSdADOeVNoONeDOl—VRNeNsLOOeVNUlIeNMOOoVeNIOtNOeNVIs~eNOlIoNNNVOteUoMdbDsNOO NelWLAoTTl
CROSS REFERENCE

CIRMMAQ RMO5/3/2 FCTNL TST

E 11
$-29

SEQ 0340

ONSO~L.3.5.

12=6364

12-459

12-676

12-500

12-522

12-547

F 1N
12-569
12-599

12-617

12-648

12-686

12-719

12-751

SEazagl?

&§o—N[]eT—-NO[~[aaa¥NM]NVaOVL][~aN¥]N~AMMOoOON-NXLOV0WyO—n—y(NoMNNOgV}Loa~o[Oo—15)~30l¥="O~nyM—-—YVMNV0AYgNVoO0—JeK.goM——TanM¥——1NA4yNR(lOo-—=N[O4(—OM1aRVN0IOo-gB0—V—(I~ogr1f]V—,]
O2~wwvd¥MOOv~ONoVA~|-[)LyY¥[~a—oO2l—aMaAVQ[tNNNM40¢woTX-]ao0N[N—V'VYaII1OOOeO)-—3RVxaa—N1LV—(0ag]90I3[oo~]"O15]a[)-4w—_5ix0wMa~NOoN~-y0—9w5oM—ONM—10he9(eo2O~XM—8yAN]l—oOaCV)[4Ne’4oya—O——¥-lN](Re.o—w4NoiIB—Ny1u0RO«w(Mx—O—X%d4e]oMJe~NOANla1r\9aVNWVao0~]~Po-—OOD—l)MyML~4L[.Vw[=v4]440[L(-5-~—o—NToV0gag|M4¥V]]I4YN~V0La=w(—-~A4.ynoaN]0—4MIeTY—MWNMNMON4VOYlIMYL—O0~N—UVV-4JOVMJOWL—3——TNF—4eXoOrNJ]Lo407~OJ—NF.r—geeBC—OOOoRL0J8T6N—O-—SaO—~enNO0VW4a—OW—O(VIe]ML~5NN=4Z—Uly2PW7a4wse0v[+-[]a3FNO—o9—“oa0NV(¥O—1y(ION0-6cO-¥WaBeyuaOVVgO——YfTDMoy2Ny9O~—[~aT—W-N"a¥F—¥}
]oo~[eI[XaaVY¥]TLa~La-Ya¥[V.0Na0—]la oo[IC[YOM(0Now4Al}]a]ayo(V2V[[]l1(@a2OLayo~-~-o¥g-3l¥alV]—N]—lNL.. ~g~~. owoaO-P4dwL-ANN[N\~——r~BJoJo Oo~M--~yrr——aaMNN0MVYMNW00DVYN\MUaNNaVo\00o0ao3N—v—0o}ReeKO0Vy¥Oe0~Q~aO)eO—-Ye~ee[X3—eaw]OW".—V—F—Y——\\laOYnL—M~~——a—(S@eo[oN20MQ—A—XN-]}a]yYolwVV_Y[1[Nn—O.enO——aa—aloNy[¥VNaehITT——AVVaa—]aM"[—nIeNVT0Lal]]
TABLE

(CREF

1
MACRO v03.01
v01-05 )

oL)m o] O0 0 80~. —) NL~|

—ONBNAtrwD-v—6OS25Z—N7O-0'DOV |280>DeO—OM0YNMO0I2—~N9rO—N0\rIO—N—>IM—AN>INO-—>IOMMIaNoA-VInWOy|
W30YLM=aA
VnlM2TOLI)N4Je3OEROIIMUNN4AU-IOL2~W6INU5OIoV 4~L)Z2RIUMA8ANI6A0|NXO4QIxTN3ONMIN1M—LA2DZDR|QON5ADMUONFVN¢DN7Ow>D8W1No0W2R
O
—
—
M
N
M
O
C
N
I
—
A
O
O
t
N!)]) v|1yL[1" J] S[1]L] o01L W1 N|]U ][U 1) a'] —02IMI0r83T—I0N—I1.OL O¢|LBLAu"LLA L
[0 1]] L]11 !" ]1[ ¢'1 ]J1 |0AIL¢LNU0L0LL.[L )L011L)I11
o1 N'1 T|VL L~OLNOOL OLNLOU
CROSS REFERENCE

CIRMMAD RMOS/3/2 FCTNL TST
11-APR-80 13:06:53 PAGE $-30

¢ 1
SEQ 0342

o[YaONV~lyalV

LogAaLQnlR=eg

2-8

35-10

2=z

[-aVT=VT—VTVI LVe7Y

2santea2ntenat2ek s2okol2olol2slol2 ol2ol s2l aual2s

0oN4e9OT2atVe5TYo1INST6OT2SOeVTT9—NT0eVGT10VT4N«VIT4VeS=T6MIVTAAV0T2roINc9OV-T6eB—NT4MdWT2RDN
E]EEER

2
2
2
2

2=1
2-6

5-0
50

SEQ 0343
H 1 1
13:04:53 PAGE M-

11-APR-80
MACRO v03.01
CIRMMAD RM0S5/3/2 FCTNL TST 1
CROSS REFERENCE TABLE (CREF v01-05)

BCDOVAOWLDAIVAV..O00NONT<8IOIMvO
N——8

(CREF

MACRO v03.01
v01-05 )
11 -APR=-80 13:04:53 PAGE M-?2

—g

NAODU\MAN—

TABLE

alaV!] Laled

VJO ONMO 0FO0 OIS NOWONWN
oA
TO NA0D M~N
OOONMB

Dp—gege— D0FSNIONANOgR]0—TYMO—W—HNO—MgOO]N—MyNO—ACT—NNMNOWgNWOSOMNOBNOMMgWWNWVgWROISN—NINOM—yLIAICSNOTTggAMN~NAACSAPRgOBRTIg0AI—OMONICNIVIROCNOPAGON0NOC—NIMOTIAgGNTIBMONO—TAIFReCGAMNOCADOM(OONOPNG)CITMBTBeOONggOOMSNVLMAIOT=NeODOgVAUAIOCM=COCAVONOI—g0AAMNN-DNYeOOeVOWPOWNVNNTDMeeIOVIOgLNlOo0—OO=*eOYNeAOIINWOes'VNMIDTNeOT«=ANOANe*NV*¢OO=OeOfN——»TUNOIOeOOORANNIONITIS0OOAP0ONTMVOI=NOOe0RYP—DPONeTAT0IIOTOOO—MONTNN=OeeOIWOOAMTRTONNTATeOPMNNMONOROIMMNNOOePIIP~AAON—SNMNLNOOAPIOPANO’NeT=—NOTLNTNIMONMO—OPMTOIMIMAIOSSSOoNIP0LNOON3NONOOPOADArMNGOL—NOe=—TO—OI0M0IINPOMLNGTeOM=MI0OMNNOeIUOe=—ORIM0MNVNU —OMMOMTo[<LNV.OONV&—MGOPNITRINIWTOMUNIMDNBIRNVOIONO
VONVOB——OBVA—Ig]]))VTyNNV—TOBW0pCTgIFNINTT—eMLOpWVN—AYT——eOPgNooCVVLNT—AVN—TYI—RNAOTVVNTT——RNTAAOoITIVNNO——TOSIeRNoOTVTNM—NTIDRIgoNUTVoNMp—NeTIeIIYIOoNTOYU-TNONeBATPIoTNo0NTNBeIMToRVNeOANOeT8IyOeIgIoNoNeyLye=OPPYNoVNYTToMeOoeHeIIVNVTYIVLRONYo*O“IeAeePNooaaQOTNNroOIIOVOoV—NYrNa—o—eI—I[NN—oVVYT*NO*e=eIIogSoVWNTLTIOPIA|ooBV—Ny-TJgTTTNIIVoNTOosgeOIOTVVoOMoNFIeAMIPNIaNVINa0EON=VoTORPOVoAaRV—oOMIIITTMIVaOITT=aTeIIIaVNOMTSILPLOoTOaOWP[NIPTNNoALIIooDITOPoNVNWLLO=IITPliNaNgOR=RoMIIVPIISa~OLOI PMT=gLPIMLiNaUVaV0SNITLPTO[alUOaNNO ~oA[|l(|Loa —————
ONLINDqMNOVWCFBVI—Pe—NN]]y——OI—HCUyywOwMNg—OAI'IWOSOqM—NuANWO—WNgHOIe—MCOAFSAOANROB—NVADeg—COMIO—MADONNON eBVAINMCOIFeSCOIOTBDAUWUTeW—NOLRAOOD—OANVN—MOO@ONINICAqODeuVBNTnDWVNMNWsPeEOOIBOPOAONIVDAAAeNeBeORTNDOIAAMNTer~IpNeRWI—VVM—R—eNwTANINO\OUMu=VAe—OeOWANIO—NMNssFNIO@NIVENOIeOOTNNGIIIUOAMMIMO*»N¢T-eOOAOTOONFIOOTIGNNM.OTNMINTNIONN.OTTOTIVPO\——O~ISO0OTIOOUOMOOOOTGIIP0NNMOOOINOOIAPWOA~NNLVVVIPIOPINTLMIPSF=TOOANOINP\OTTE—OONNN0N@PPOOMoTNIOi=TIPNOTRS1SPIONeOGINOMLI—SO——UOOPPNU—IOV1LMMPgIINONRL—OWMOWNGALNS1OO—TMoM|[ —e————
A'oVQqu—W)ONg—A~—WNMFIO—gNOAGNCSgMO-JBAeN—APC0NOeDOeI—NeNMIgOPSseWO3SONeAOPNOIMeTMO1sNT1—TNOSIs1—ANOM1STA—CO1INU1L3M —pgg
CROSS REFERENCE

(ZRMMAOQ RM05/3/2 FCTNL TST

11
SEQ 0344

—g——

[VgaIV{V}a

12=:40

12-,07

12=-;73

12-<39

12-<81

12-:13

J n

12=246

12->13

12=>41

12->69

12-203

12-237

12=272

12-806

SEQ 0345

CIZRMMAQ RM05/3/2 FCTINL TST 1
CROSS REFERENCE TABLE (CREF v01-05 )

MACRO v03.01

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

12-B59

12-B95

12-C72

12-D23

12-D83

12-E28

o)VoYVlLggSNN YoYo[+ ANONJOOON VOhe—O—O
I
J
V
o
a
T
e
V
N
d
a
V
i
V
o
I
o
[
V
a
R
X
o0[Oa¥D]1—1BA1sAN1IMNIA

12-B22

SEQ 0346

SWRSU