Digital PDFs

AH-F959B-MC

April 1984

208 pages

Original

10MB

view download

OCR Version

9.0MB

view download

Document:	CZRJLB0 RP07 RP07 FCTNL TEST APR 1984 bw
Order Number:	AH-F959B-MC
Revision:	000
Pages:	208
Original Filename:	CZRJLB0__RP07__RP07_FCTNL_TEST__AH-F959B-MC__APR_1984_bw.pdf

OCR Text

CZRJLEO

FIoHE & OF 1

SuENmn

RtM

DEC 835

1.°:%9:
%A PAGE

'lr ’l

IDENTIF ICATION
PRODUCT

CODE:

PRODVCT

NAME
:

CZRABO

RPO7 FUNCTIONAL

PRODUCT

DATE:

OECEMBER

F9588 MC

TEST

1983

MAINTAINER:

'CX DIAGNOSTIC ENGINEERING

A_THOR:

MIKE

LEAVITY

THE INFORMATION IN THIS DOCUMENT IS
SUBJUECT
TO
CHANGE WITHOUT
AND
NOTICE
SHOULD
NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
OIGITAL EQUIPMENT CORPORATION ASSUMES NO
RESPONSIBILITY

FOR

ANY

ERRORS

YHAT

NO RESPONSIBILITY IS ASSUMED
FOR
SOF TWARE ON EQUIPMENT THAT IS NOT
AFFILIATED COMPANIES.
COPYRIGMT
THE

FOLLOWING ARE
DIGITAL
DEC

(C)

1983 Br DIGITAL

TRADEMARKS OF
POP

DECUS

DIGITAL

MAY

APPEAR

THE
USE
SUPPLIFD

OR
By

T[S

DOCUMENT.

RELIABILITY
DIGITAL

EQUIPMENT CORPORATION

EQUIPMENT
UNIBUS

DECTAPE

CORPORATION:
MASSBUS

DOC ®ENTATION

MACRO vO4.00

SER

TE T

)

CTRM B RPOT FCTNE

JRUBC RPOT FCINL

JSER DOCIMENTATION

TEST

MACRO vO4.00

DEC 8%

1.°:9':
78 PAGE

.REM &

TABLE

gt pus pus
-

PROGRAM

RELATED DOCUMENTS AND STANDARDS

XXDP+
RPO7

USER'S MANUAL (CHQUS)
PURCHASE SPECIFICATIONS

1.4

DIAGNOSTIC HIERARCY PREREQUISITES

(A-PS

3015478

0 0)

END DIAGNOSTIC,
FORMATTER.

RESTRICTIONS

THIS PROGRAM WILL NOT BE ABLE
RESIDENT MICROOIAGNOSTICS.
THIS PROGRAM WILL NOT
THE

CAPABILITr

(KW11l-P)

1.3

1.5

THROUGHPUT

LEAST 2.2 MBYTES/SEC FOR OPERATION IN NON
MODE OR 1.3 MBYTES/SECOND FOR OPERATION IN
MOOE.
RH11 CONTROLLER

A PROGRAMMABLE

RPO7 FRONT
RPO7 PDP11

SYSTEM HARDWARE
:

COMMANDS:

NOP,

TO RUN ANY

RUN ON LSI-11

DIAGNOSTIC,

OESCRIPTOR ARE NOT JSED.

THE

AVAILABLE

RPO?

CPU'S.

FORMAT

TRACK,

AND READ/WRITE

TRACK

CZRJULBO RPO7 FCINL

USER DOCIMENTATION

TEST MACRO vO4.00 1 DEC 83 12:59:38 PAGF 4
IF A KW11 P SYSTEM CLOCK

TESTS WILL
THE

NOT BE

PROGRAM DOES NOT

2.0
THIS

IS NOT

EXECUTED,

PROVIDE

560 6004

INSTALLED ON

MODUWE

CALLOUT

SYSTEM,

THE

TIMING

ERROR PRINTOUT,

OPERATING INSTRUCTIONS
SECTION CONTAINS

FOR DETAILED

A BRIEF

INFORMATION,

2.1

COMMANDS

THERE

ARE

ELEVEN LEGAL

DESCRIFPTION OF

REFER

THE

COMMANDS FOR

THE

XxXDPe+

THE

(SUPERVISOR).
THIS SECYION LISTS THE
BRIEF DESCRIPTION OF THEM.,
THE xXDP.

RUNTIME

SERVICES.

USER'S MANUAL

DIAGNOSTIC

RUNTIME

(CHQUS).

SERVICES

COMMANDS AND GIVES A VERY
USER'S MANUAL HAS MORE DETAILS.

COMMAND

EFFECT

START
RESTART
CONTINUE
PROCEED
EXIT
ADD

START THE DIAGNOSTIC FROM AN INITIAL STATE
START THE DIAGNOSTIC WITHOUT INITIALIZING
CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER

RETURN TO xXDP+ MONITOR (XXDP+ OPERATION ONLY!)
ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE

OROP

CONSIDERED TO BE ACTIVE AT
DEACTIVATE A UNIT

DISPLAY

BY THE DIAGNOSTIC - SECiION 4.0)
TYPE A LIST OF ALL DEVICE INFORMATION

ZFLAGS

CLEAR ALL FLAGS

FLAGS

CONTINUE

TYPE

FROM

AN ERROR

STATISTILAL

THE

STATE

HALT

START

LNFORMATION

ALL

(SEE

A COMMAND CAN BE RECOGNIZED By THE FIRST
YOU MAY, FOR EXAMPLE, TYPE "STA“ INSTEAD

2.2

THE

FLAGS

t(C)

TIME

(IF

(SFE

SECTION 2.3)

IMPLEMENTED

SECTION 2.3)

THREE CHARACTERS.
OF “START",

SWITCHES

THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION.
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS.
ALL OF THE LEGAL
SWITCHES ARE TABUWATED BELOW WITH A BRIEF DESCRIPTION OF EACH.

IN THE DESCRIPTIONS BELOW,

A DECIMAL NUMBER

SWITCH

EFFECT

/TESTS:LIST

EXECUTE

ONLY

THOSE

IS DESIGNATED BY

TESTS

SPECIFIED

“0DDDD’
.

THE LIST.,
LIST IS A STRING OF TEST
NUMBERS, FOR EXAMPLE - /TESTS:1:5:7-10.
THIS

/PASS : DDODD
/FLAGS:FLGS

/EOQP :DDDOD
/UNITS:LIST

LIST

RUN.

WILL

ALL

CAUSE

OTHER

EXECUTE DDDDD PASSES
SET SPECIFIED FLAGS.

IN SECTION 2.3,

TESTS

1,5,7,8,9,10

TESTS WILL NOT
(DDDDD
FLAGS

= 1
ARE

TO 64000)
DESCRIBED

REPORT END OF PASS MESSAGE AFTER EVERY
DDDDD PASSES ONLY.
(DDDDD = 1 TO 64000)
TEST/ADD/DROP

ONLY

THOSE

UNITS

BE RUN,

SPECIFIED

CZRABO RPO7 FCINL

USER DOCTMENTATION

TEST MACRO V04,00

1 DEC 83

12:59:%8 PAGF

4 2

560G 000S

IN THE LIST.,
LIST EXYAMPLE - /UNITS:0:5:10-12
USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63)
EXAMPLE OF

SWITCH USAGE:

START/TESTS:1-5/PASS:1000/E0P:100
THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH S WILL BE
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END OF
PASS MESSAGES

WILL

PRINTED

SWITCH CAN BE RECOGNIZED By

FOR

EXAMPLE,

BELOW IS A
COMMAND.

TYPE

TABLE

“/TES:1-S"

THAY

AFTER

EACH

THE FIRST
INSTEAD

100

THREE
OF

PASSES

‘/TESTS:1

SPECIFIES WHICH SWITCHES

TESTS

PASS

FLAGS

EOP

UNITS

X
X

X
X
X

X
X

START
RESTARTY
CONTINUE
PROCEED

DROP

DISPLAY

ADD
PRINT

ONLY.,

CHARACTERS,

YOU MAY,

5'.

CAN BE

USED By

EACH

FLAGS

ZFLAGS
EXIT

2.3

FLAGS

ARE

USED

LOOPING ON ERROR.

SET

ALL

CLEARED UNTIL EXPLICITLY
ARE

FLAG
ALL

ALSO CLEARED

SWITCH.,

FLAGS.

THE
WITH

AFTER

CERTAIN

FLAGS
A

OPERATIONAL

ARE

CLEARED

SET USING

START

THE

FLAGS

COMMAND

ZFLAGS COMMAND MAY
EXCEPTION OF

THE

PARAMETERS

STARTUP

UNLESS

ALSO BE
START

SWITCH.
SET

AND

FLAG

EFFECT

HOE

HALT ON
RUNTIME
LOOP ON
INHIBIT

LOE
IERs
IBRs

FLAGS

USING

USED

NO COMMANDS AFFECT THE STATE OF THE FLAGS;
THEY
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH.

SUCH

AND REMAIN
THE

TO CLEAR

2FLAGS

COMMANDS,

REMAIN SET

ERROR - CONTROL IS RETURNED
SERVICES COMMAND MODE
ERROR
ALL ERROR REPORTS

INHIBIT ALL ERROR REPORTS EXCEPT

FIRST

LEVEL

(FIRST

LEVEL

CONTAINS

IXRs

ERROR TYPE, NUMBER
PC, TEST AND UNIT)
INHIBIT EXTENDED EKROR REPORTS ( THOSE

PRI
PNT

OIRECT MESSAGES TO LINE PRINTER
PRINT TEST NUMBER AS TEST EXECUTES

80t
UAM

CALLED BY PRINTX MACRO'S)

“"BELL" ON ERROR
UNATTENDED MODE

(NO MANUAL

INTERVENTION)

()j
CZRJULBO RPO7 FCTNL
JSER DOCUMENTATION

TEST

MACRO V04.00

DEC-83

12:59:38 PAGF

ISR

INHIBIT

APPLY

5€Q 0006

STATISTICAL REPORTS

TO DIAGNOSTICS

(DOES NOT

WHICH DO NOT

SUPPORT

STATISTICAL REPORTING)
INHIBIT PROGRAM DROPPING OF UNITS

IDR

ADR

EXECUTE

LOT
EVL

AUTODROP

CODE

LOOP ON TEST
EXECUTE EVALUATION (ON DIAGNOSTICS WHICH

HAVE
+

ERROR

MESSAGES

EVALUATION SUPPQORT)

ARE

DESCRIBED

SECTION

3.1

SEE THE XXDPe+ USER'S MANUAL FOR MORE DETAILS ON FLAGS.
YOU MAY
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH.
FOR EXAMPLE,
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS
AND

TYPE

'‘BELL"

ON ERROR,

YOU MAY

USE

THE

FOLLOWING

STRING:

/FLAGS:LOE: IER:BOE

2.4

HARDWARE

QUESTIONS

WHEN A DIAGNOSTIC
THE

USER

FOR

STARTED,

HARDWARE

THF

RUNTIME

INFORMATION BY

SERVICES

TYPING

WILL

"CHANGE

PROMPT
(L)

YOU MUST ANSWER “Y” AFTER A START COMMAND UNLESS THE HARDWARE
INFORMATION HAS BEEN "PRELOADED' USING THE SETUP UTILITr (SEE
CHAPTER 6 OF THE XXDP+ USER’'S MANUAL).
WHEN YOU ANSWER THIS
QUESTION WITH A Y, THE RUNTIME SERVICES WILL ASK FOR THE NUMBER
OF UNITS (IN DECIMAL).
YOU WILL THEN BE ASKED THE FOLLOWING
QUESTIONS FOR EACH UNIT,

UNIT O

RPCS1 ADRS (0)
VECTOR ADRS (0)

176700
254 ?

BR LEVEL (0)
5 ?
ORIVE @& (0)
O ?

THE 1ST QUESTION "“RPCS1
RDDRESS OF RPCS1 OF THE

ADRS” REQUIRES THAT
CONTROLLER WwHICH IS

UNDER

176700

TEST.,

DEFAULT

THE USER INPUT THE
CCNNECTED TO THE DRIVE

(OCTAL).

THE 2ND QUESTION “VECTOR ADRS” REQUIRES THE USER
INTERRUPT VECTOR ADDRESS OF THE RHXX CONTROLLER,
254 (OCTAL).

TO INPUT
DEFAULT

THE

INPUT

3RD QUESTION

INTERRUPT

"BR

PRIOR1TY

LEVEL"

LEVEL.

REQUIRES

DEFAWLT

THE

USER

IS LEVEL

CONTROLLER

SPECIFY THE
(OCTAL).

DRIVE

SOFTWARE QUESTIONS

AFTER

THE

THE 4TH QUESTION "DRIVE &~ REQUIRES THE USER TQO
NUMBER OF THE DRIVE TO BE TESTED.
DEFAULT IS O

2.5

THE
IS

YOU HAVE

CONTINUE

FARAMETERS.

ANSWERED

COMMAND,
THESE

THE

HARDWARE

THE RUNTIME

PARAMETERS

QUESTIONS

SERVICES

WILL

GOVERN

AFTER

WILL

ASK

FOR

SOME

DIAGNOSTIC

RESTART

SOF TWARE
SPECIFIC

)
CZRJLBO RPO7 FCTNL

USER "-CIMENTATION

TEST MACRO VO04.00

1 DEC 83 12:59:38 PAGE

4 4

"EQ 6007

OPERATION MODES.
rOU WILL BE PROMPTED BY “CHANGE SW (L) ?*, IF you
WISH TO CHANGE ANY PARAMETERS, ANSWER B8Y TYPING "Y", THE SOF TWARE
QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED AS FOLLOWS:
CHANGE
IF

DRIVE PARAMETER (L) N

THE RESPONSE

THE PREVIOUS QUESTION IS

'N’'

THE FOLLOWING DRIVE

PARAMETER QUESTIONS WILL BE SKIPPED AND PROGRAM WILL PROCEED AS NORMAL
.
A 'Y
RESPONSE WILL ALLOW THE USER TO ANSWER THE FOLLOWING DRIVE
PARAMETER QUESTIONS.

STARTING

CvL

ENDING
INCREMENT

Crt
CyL

STARTING
TRK
ENDING
TRK
INCREMENT TRK
STARTING
SEC
ENDING
SEC
DATA
PATTERN

(D)

629
1 ?

(D)
(D)

O ?
49 ?

(D)
(D)
(D)

YOU WANT

+«&(TESTS 2-4,6-8,11,13,14,17,18)

++(TESTS 2 4,6,8,10,14,17,18)
++(TESTS 2)

O ?
31 ?
1 ?

(0)

»s(TESTS 2-7,11,13,16,17)
»+s(TESTS 3-6,11,14,16-18)
##(TESTS 11,16,17)

030221

IF THE FIELD VERSION OF
QUESTION WILL BE ASKED,
DO

(D)
(D)

«+(TESTS 2,5-7,13)
++(TESTS 5,6,14,18)

ss(TESTS

16, 17.18)

THIS PROGRAM IS BEING RUN,

TO WRITE

ANYWHERE

ON MEDIA (L)

THE FOLLOWING

IF THE RESPONSE TO THE PREVIOUS QUESTION IS 'N’',
THE FOLLOWING
QUESTION WILL BE SKIPPED AND PROGRAM WILL PROCEED AS NORMAL
.
"Y'

RESPONSE

DEVICE

AND ASK

WILL

THE

FOLLOWING WARNING MESSAGE

CUSTOMER DATA UILL BE OVERNRITTEN

CONTINUE

THE

OUTPUT

THE FOLLOWING QUESTION.

(L)

++(TESTS

17,18)

IF THE RESPONSE TO THE PREVIOUS QUESTION IS 'N’,
THE FOLLOWING
QUESTION WILL BE SKIPPED AND THE PROGRAM WILL NOT ALLOW TESTS 17-18
BE SELECTED FOR TESTING.
A ‘Y’ RESPONSE WILL ASK THE FOLLOWING
QUESTION.

USE RANDOM DATA PATTERNS FOR RANDOM WRITE
+s+(TESTS

PERFORM READ

TYPE

TIME REPORTS

INHIBIT

TIMING

STALL

HEADER

SOFTWARE

TESTS,

& DATA DURING

(L)

(L) N

SEEKS

(L)

2-6)

++(TESTS

7-10,14,18)

s+(ALL

TESTS)

SEEKS:

RANDOM

s+(TESTS

AFTER EVERY DRIVE FUNCTION

18)

«+(TESTS

TIMEOUTS (L) N

STALL BETWEEN

TEST

INSTEAD OF

7-10,14,18)

IN NON

TIMING

TESTS

2 MSEC

(L) N

CZRJLBO RPO7 FCINL

USER DOCUMENTAT
ION

TEST MACRO v04.00

sUSE

1 DEC-83

RANDOM

STALL

TIMES

(L)

THAT

INDICATES NOT PART OF

QUESTION

12:59:38 PAGE 4-5

ASKED

5FQ 6008

s¢(TESTS

1 6,11,13,14-18)

N ?
++(TESTS

1-6,11,13,14-18)

WHEN

YES

THE DIALOGUE.

ANSWERED

THE

QUESTION.

STALL DEFINITIONS
THERE

ARE

TWO DISTINCT

SELECTABLE

STALLS

STALL,

RANDOM (1-64 MSEC)
NON-TIMING TESTS.

NON-SELECTABLE,
TIMING

VIA SOFTWARE
STALL

TIME

(SW)

AFTER

ODIALOGUE:

EVERY

DRIVE

10.

MSEC OR

FUNCTION

2 MSEC OR RANDOM CTALL BETWEEN SEEKS

TESTS 8.

THRU

10.

A 'N’ RESPONSE TO
THE SUPERVISOR QUESTION "CHANGE SW (L)?" WILL
ASSUME
THE ASSIGNED SOFTWARE (SW) DEFAULT CONDITIONS: REPEATS = 1,

STARTING CYLINDER = O, ENDING CYLINDER
=
629, STARTING
TRACK = 0,
ENDING TRACK = 31, INCREMENT TRACK = 1, STARTING SECTOR = 0, ENDING
SECTOR = 49, PATTERN = 030221, WRITE ON ALL CYLINDERS WITHIN SPECIFIED
LIMITS, RUN TESTS 1-18, DO READ HEADER AND DATA COMMAND IN SFEK TESTS
2 6, NO STALL, NO TIME REPORTS, SOFTWARE TIMEQUTS ENABLED.
NOTE
IF RUNNING THE FIELD VERSION OF
THIS
PROGRAM, TESTS 17 AND 18 WILL ONLY BE
RUN WHEN THE
“WRITE DATA ANYWHERE ON
THE MEDIA” OPTION
IS SELECTED BY THE
OPERATOR.

2.6
WHEN

EXTENOED P-TABLE DIALOGUE
YOU ANSWER

THE

HARDWARE

QUESTIONS,

(10U

ARE

BUILDING

ENTRIES

IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST.
THE SIMPLEST
WAY TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH
UNIT TO BE TESTED.
IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS
A MASS

STORAGE

CONTROLLER

WITH

SEVERAL

DRIVES

DEVICE WITH SEVERAL LINES, THIS BECOMES
THE ANSWERS ARE REPETITIOUS.

TEDIOUS

COMMUNICATION

SINCE MOST

TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING
A FICTIONAL DEVICE, THE XY1l.
SUPPQSE THIS DEVICE CONSISTS OF
A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT.
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS O THROUGH 7.
THERE

IS ONE HARDWARE PARAMETER THAT CAN VARY
G-FACTOR.
THIS Q-FACTOR MAY BE O OR 1.
TO BUILD

TABLE

UNIT

FOR

(D)

Ot
7

XY1l

B8<CR>»

WITH EIGHT

AMONG UNITS CALLED THE
BELOW IS A SIMPLE WAY
UNITS,

CZRJLBO RPO7 FCTINL

JSER DOCUMENTATION

TEST MACRO vO4.00 1-DEC-83

12:59:78 PAGF

CSR ADDRESS (0) ?
SUB-DEVICE ¢ (0) ?
Q-FACTOR

(0) 0

4 6

560 GO09

160000<CR>»
O<CR>

1<CR>

UNIT 2
CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE & (0) ?
1<CR>
Q@-FACTOR (0) 1 ?
O<CR>
UNIT

CSR ADDORESS (0) ?
160000<CR>
SUB-DEVICE 4 (0) ?
2<«CR>
Q-FACTOR (G) O ?
<CR>
UNIT 4
CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE & (0) ?
3<CR>
Q@-FACTOR (0) O ?
<CR>

UNIT S

CSR ADDRESS (0)
SUB-DEVICE

¢ (0)

Q-FACTOR (0) ©0

160000<CR>
A4<CR>

<CR>

UNIT 6
CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE @ (0) ?
S<CR»
Q-FACTOR (0) 0 ?
<CR>
UNIT 7
CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE & (0) ?
6<CR>
Q@ FACTOR (0) 0 2
1<CR>
UNIT 8
CSR ADDRESS (0)
SUB-DEVICE @ (0)
Q-FACTOR (0) 1 ?

160000<CR>
?
7<CR»
<CR»>

NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A
NON DEFAULT RESPONSE IS GIVEN.
BE CAREFUL WHEN SPECIFYING
MULTIPLE UNITS!
AS

YOU CAN

SEE

FROM

THE

ABOVE

D0 NOT VARY SIGNIFICANTLY
NOT VERY EFFICIENT.
THE

RUNTIME

%E;}aflgUILD

SERVICES

THE

@ UNITS

CAN

SAME

(D)

EXAMPLE,

FROM UNIT

TAKE

MULTIPLE

TABLE USING

THE

HARDWARE

TO UNIT,

UNIT

THE

SPECIFICATIONS

THE MULTIPLE

8<CR>

UNIT 1
CSR ADDRESS (0) ?
160000¢<CR>
SUB-DEVICE ¢ (0) ?
0,1<CR>
@ FACTOR (0) 0 ?
1,0<CR>

PARAMETERS

PROCEDURE

SPECIFICATION

SHOWN IS

HOWEVER.

1<
SER

DOC'MENTATION

TEST MACRO VO4.00 1 DEC-83 12:59:38 PAGE 4 7

SEQ 0010

UNIT 3
CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE # (C) ?
2-S5<CR»>
Q@-FACTOR (0) O ?
O0<CR>

UNIT 7
CSR ADDRESS (0) ?
160000<CR>
SUB DEVICE # (0) ?
6,7<CR>
Q@-FACTOR (0) 0 ?
1<CR>
AS

YOU CAN

SEE

THE

ABOVE

DIALOGUE,

THE RUNTIME

SERVICES

WILL

BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY
ONE PASS THROUGH THE QUESTIONS.
1IN THE FIRST PASS, TWO ENTRIES

ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED.
THE
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT
WAS SPECIFIED ONLY ONCE.
IN THE SECOND PASS, FOUR ENTRIES WERE

BUILT.
THIS IS BECAUSE FOUR SUB-DEVICES WERE SPECIFIED.
THE
“-* CONSTRUCT TELLS THE RUNTIME SERVICES TO INCREMENT THE DATA
FROM

THE

FIRST

NUMBER

THE

SECOND.

THIS

CASE,

SUB-DEVICES

2, 3, 4 AND 5 WERE SPECIFIED.
(IF THE SUB-DEVICE WERE SPECIFIED
BY ADDRESSES, THE INCREMENT WOUWD BE BY 2 SINCE ADDRESSES MUST
BE ON AN EVEN BOUNDARY.)
THE CSR ADDRESSES AND Q-FACTORS FOR
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND O RESPECTIVELY
SINCE THEY WERE ONLY SPECIFIED ONCE.
THE LAST TWO UNITS ARE
SPECIFIED IN THE THIRD PASS.
THE

WHOLE

PROCESS

COUWLD

HAVE

BEEN

ACCOMPLISHED

IN ONE

PASS

SHOWN BELOW.
& UNITS

(D)

B8<CR>

UNIT 1
CSR ADDRESS (0) 2?2
160000<CR>
SUB DEVICE # (0) ?
O 7<CR>
Q FACTOR (0) 0 2?2
0,1.0,,,.,1,1<CR>
AS YOU CAN SEE FROM TH1S EXAMPLE, NULL REPLIES (COMMAS ENCLOSING
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY.

2.7

QUICK

START-UP PROCEDURE

START-UP

(XXDP+)

THIS PROGRAM:

BOOT XXDP-«

GIVE THE DATE AND ANSWER
IS A CLOCK) QUESTIONS

TYPE

"R NAME",

FILE

FOR

TYPE

"START"

C2RJLBO RPO7 FCTNL

ANSWER

THIS

THE

WHERE NAME

PROGRAM

THE LSI
IS

THE

AND SOHZ
NAME

“CHANGE HW" QUESTION WITH

“Y"

(IF

THERE

THE BIN OR BIC

ISROBC RPOT FCTNL TEST MACRO v04.00 1 DEC-83 12:59:38 PAGE 4 .8
HR

SEQ 0011

DOCHMENTATION

ANSWER ALL

THE HARDWARE QUESTIONS

ANSWER

“CHANGE

THE

SW"

QUESTION WITH

"N*

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL 3E USING ONLY THE
DEFAULTS FOR FLAGS AND SOF TWARE PARAMETERS.
THESE DEFAULTS
ARE

DESCRIBED

3.0 ERROR
3.1

SECTIONS

2.3

AND

2.5.

INFORMATION

TYPES OF

ERROR MESSAGES

THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY
A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED.
GENERAL ERROR MESSAGES
ARE ALWAYS PRINTED UNLESS THE "IER” FLAG IS SET (SECTION 2.3).
THE GENERAL ERROR MESSAGE IS OF THE FORM:
NAME
TYPE
NUMBER
ERROR MESSAGE
+WHERE;

NAME =
TYPE =
NUMBER

ON UNIT

NUMBER

DIAGNOSTIC NAME
ERROR TYPE (SYS FATAL,
= ERROR NUMBER

DEV

TST

NUMBER PC:XXXXXX

FATAL,

HARD

SOFT)

UNIT NUMBER = O - N (N IS LAST UNIT IN PTABLE)
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED
PC:XXXXXX

ADDRESS

ERROR MESSAGE

CALL

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADOITIONAL
INFORMATION ABOUT THE ERROR.
THESE ARE ALWAYS PRINTED UNLESS

THE "IER"” OR "IBR” FLAGS ARE SET (SECTION 2.3).
THESE MESSAGES
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE.

EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION
SUCH AS REGISTER CONTENTS OR GOOD/BAD DATA.
THESE ARE ALWAYS
PRINTED UNLESS

THE

THESE MESSAGES

ARE PRINTED AFTER

“IER”,

“IBR”

"IXR"

THE

FLAGS

ARE

SET

MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES.
3.2

(SECTION 2.3).

ASSOCIATED GENERAL

ERROR

ERROR PRINTOUT

THE ERROR PRINTOUT WILL CONTAIN A ONE LINE ERROR DESCRIPTION FOLLOWED
8Y COLUMN HEADINGS AND COLUMNS OF REGISTER CONTENTS IN OCTAL.

EXAMPLE:

CZRXXX
RPO7

HRD

CvyL XXX.

DRIVE

ERR

0O0XXX

ALDRESSING ERROR

TRK XX.

RPCS1

RPWC

ON UNITXX

(IAE

SEC

XxX.

RPBA

TSTXX

AOE)

RPER2

RPDA

SUBXX

(HEX)

RPCS2

XAXAXK XXAXKK XAXMXK XHXAXN XXXXKX XXXAXX
RPER1
RPAS
RPLA
RPDB
RPMR1
RPDT
XXXAXK XXAXXX XAXKXK AXXXXX XXXXXX XXXXXX
RPOF
RPDC
RPCC
RPER2
RPER3
RPEC1
XXXAXR AXAXAX XXXXXK AXXXXX XXXXXX XXXXXX

XXXX

RPDS

XXXXXX
RPSN
XXXXXX
RPECZ2
XXXXXX

PCXXXXX

]
MACRO v04.00

THE

FIRST

LINE

DEC

12:59:%8 PAGF

THE

ERROR MESSAGE

5EQ 0012

PRODUCED

THE

DIAGNOSTIC

SUPERVISOR. THERE ARE SEVEN ITEMS REPRESENTED IN THE FIRST LINE OF
QUTPUT. THEY ARE:
1) THE MAINDEC NUMBER, 2) THE TYPE OF ERROR,
IE: HARD, DEVICE FATAL, 3) THE ERROR MESSAGE NUMBER, 4) THE FAILING
LOGICAL UNIT NUMBER, 5) TME NUMBER OF THE FAILING TEST, 6) THE
NUMBER OF THE FAILING SUB TEST, 7) THE ACTUAL PROGRAM COUNT OF THE

FAILURE

MESSAGE.

THE SECOND LINE PRODUCES
THE BALANCE Of THE ERROR
F.E.

3.3

IN FAULT

DETECTION

INFORMATION ABOUT THE SPECIFIC FAILURE MODE.
REPORT CONTAINS REGISTER STATUS TO AID THE
AND

POSSIBLE

ISOLATION.

SPECIFIC ERROR MESSAGES

INIT CODE ERRORS
ON A START COMMAND OR ON A NEW PASS,
iN THE INIT CODE, BEFORE RUNNING THE
APPROPRIATELY

DRIVE
ODRIVE
DRIVE
DRIVE
WHERE

‘N’

N
N
N
N

REPORTED

5:
6
7:
11:
12:

13:
14:
15:
16:
17:
20:
21:
22:
23:
24:
25:
26:
27:
30:
31:
32:

THE

CURRENT

PASS

ABORTED FOR

THAT

UNIT:

UNSAFE
NON-EXISTENT
OFF -LINE
NOT A RPO7

THE

NUMBERED ERROR

1
2
3:

AND

THE DRIVE AVAILIBILITY IS CHECKED
TESTS. A DRIVE NOT AVAILMKBLE IS

DRIVE

NUMBER

THAT

FAILED

LIST

RHXX CONTROL BUS PARITY ERROR MCPE=1
RHXX DATA BUS PARITY ERROR MDPE=1
RHXX

WRITE

ILLEGAL CONDITIONS SET
CHECK

(NED,NEM,PGE,MXF)

ERROR

DATA LATE ERROR
ORIVE PROGRAMMING ERROR
LOSTS B8IT CLOCK (LBC)
WRITE CLOCK FAILS
WRITE LOCK ERROR

(PGE)

DATA ERROR (DCK)
DRIVE BUS PARITY ERROR (DPE)
ILLEGAL CONDITIONS SET (ILF,ILR,RMR)
ADDRESSING ERROR (IAE,AOE)
SEEK ERROR (SKI,LCE)
CLOCK (KW11-P) OVERFLOW IN TIMING TEST
EARLY WARNING (EWN)
READ AND WRITE HEAD FAILS
DATA FORMAT BIT ERROR (FER)
HEADER INFORMATION ERROR (HCE)
DRIVE HAS BECOME NON-EXISTENT
DRIVE HAS NOT RESPONDED TO PORT REQUEST
SOFTWARE TIMEOUT ON THIS DRIVE
FATAL MASSBUS PARITY ERROR (MCPE=1
OFFLINE OR UNSAFE DRIVE REQUESTED
WRITE READY UNSAFE

OR PAR=1l)

(L
S

TEST

RC RPQ” FCINL
YW MENTATION

b gt

| X

1Y
.

FCINL

TEST

MACRO

V04 .00

DEC

12:59:38 PAGE

MTMMENTATION

33:
34
.

N1
4-10

SEQ 0013

OC POWER UNSAFE
INDEX UNSAFE

35:

PROCESSOR

HANDSHAKE

FAILURE

DRIVE OFF LINE OR NOT A RPO7
OPERATION INCOMPLETE (OPI)
IMPROPER HEADER DATA
ECC LOGIC FAILURE
MISC DRIVE

ERROR:

RPER1,

(1)
2)

RPER2,

RPERS3

DRIVE TIMING ERROR (DTE)
HEADER CRC ERROR (HCRC)
UNCORRECTABLE ECC ERROR
LAST BLOCK TFR LBT NOT SET WHEN READING LAST

AD OVFL AQE NOT
HARD ERROR -

SET WHEN READING PAS1

LAST

SECTOR

SOFT ERROR OM OF RPDS NOT SET ON OFFSET CMD
OM OF RPDS NOT RESET ON RET CENTER CMD

MOST

FORMAT

THE

NUMBERED ERRORS

BELOW,

ERROR MESSAGE,

CvyL

XXX.

ORIVE

XXXXXX

RPER1

CONSISTING

ABOVE

BOTH CONTROLLED BY

TRK XX.

RPCS1

XXXXXX

RPBA
XXXXXX

ALSO

CAUSE

BASIC,

THEN

DUMP
AN

IBR AND

IXR FLAGS:

RPER2

(HEX) XXXX

SEC XX.

RPWC

XXXXXX

WILL

PARTS,

RPDA
XXXXXXK

RPCS2
XXXXXX

RPAS

XXXXXX

RPLA

XXXXXX

RPDB

XXXXXX

RPMR1

RPOF
XXXXXX

XXXXAXX

RPDC
RPCC
RPER2
RPtR3
RPEC1
XXXKKX XXXKXX XXXXXXK XXXXXX XXYXMY

XXXXXX

RPDT
XXXXXX

RPDS
XXXXXX

RPSN
XXXXXX

RPEC2
XXXXXX

EXCEPTIONS:

(1)

ORIVE N

(2)

DRv CYL
XXX

XXX

TRK

XXX

SEC

XXX

GOC*L GDTRK GDSEC BDCYL BDTRK BDSEC
XXX

(3)

XXX

@ OF OPERATIONS WITH A LOST REVOLUTION:

XXXX

OPERATIONS

TIMED

ALLOWABLE OPERATION
MAX= XXXXX US

TIME

(4)

NO ADDITIONAL MESSAGES

(5)

TIMING TESTS
UNRECOVERABLE
ABORT TEST

14,

TEST

18:

3SEARCH ERROR

SEARCH FATLED AFTER

ABORT

LIMIT

16 RETRIES

XXXX

THE

EXTENDED

SOHBUWWDD

RPQT

AAAAAA

TJE

CZRILBC RPO7 FCTNL
USER DOC'TMMENTATION

TEST

MACRO

vO4.00

(6)

DEC

TIMING

1.:%9:%8 PAGE

TESTS 8

10,

POSITION FRROR:

3.4

ERROR

THE

FIRST

14,

18:

ABORT

TEST

TYPF
LINE

ERROR MESSAGES PRODUCED BY

IDENTIF [ES THE TYPE OF ERROR REPORTED.
DIAGNOSTICS IN 3 CATEGORIES:
1.

'SFT:

MARK

SOFT:

DETECTION

THE FIRST

DIAGNOSTIC

LOST DISC REVOLUTION IN THE

TESTS,

SIPERVISOR

THE

ADORESS

'HMRD’ ERRORS
,

'OVC FTL
- DEVICE FATAL: AN ERROR THAT FAILS THE DEVICE:
NOT READY, NON-EXISTENT OR NOT AN RPO7,

THE

END OF

MARD:

ALL ERRORS,

EXCEPT DEVICE FATAL ERRORS AND SOF
T

EACH PASS,

“EOQF“

SWITCH CAN BE

OF PASS MESSAGE
5.0

TEST

DEVICE

AND PROGRESS REPORTS
THE

PASS

COUNT

'OTAL NUMBER OF ERRORS REPORTED SINCE

TeE

THEY ARt CLASSIFIED Bv

4.C PERFORMANCE
AT

LA NZAT

USED

TO CONTROL

IS PRINTED.

IS GIVEN ALONG WITH

THE

THE DIAGNOSTIC WAS STARTED,
HOW OF TEN

THE

END

SECTION 2.2 DESCRIBES SWITCMES.

SUMMARIES
RECAL

TESY

THIS TEST EXECUTES A RECALIBRATE COMMAND, THEN £XECUTE
S
A READ HEADER AND DATA COMMAND TO VERIFY CORRECT POSITION.

NOTE

IN SEEK TESTS 2-6,
SEEK
POSITIONING
IS
VERIFIED VIA READ HEADER AND DATA

COMMAND ,

UNSUPERSEDED

B8r

SOF TWARE

(SW) DIALOGUE,
IN
WHICH
CASE
POSITIONING IS NOT VERIFIED.
TEST 2:

THIS

INCREMENTAL

TEST

SEEK

TEST

EXECUTES

FIRST(STARTING)

FORWARD

CYLINDER

ADDRESS INCREMENTALLY.
IS
REACHED,
THE TEST
THE

INCREMENT/DECREMENT

VIA SW DIALOGUE.
TEST

3:
THIS

RANDOM SEEK
TEST

SEEKS

ADORESS

THE

ADVANCE

THE

LAST(ENDING)

CYLINDER

WHEN THE LAST(ENDING) CYLINDER
IS REPEATED IN THE REVERSE DIRECTION.
VALUE

DEFAUWT,

CHANGEABLE

TEST

EXECUTES

GIVEN FIRST(STARTING)
ADDRESS.

SEEK

1024.

SEEK

OPERATIONS RANDOMLv BETWEEN

CYLINDER ADDRESS

AND LAST(ENDING)

THE

Cri INDER

SRABO RPOT FCTNL

JUSER DOCIMENTATION

TEST MACRO v04.00 1 DEC 83

TEST

&4:

RECAL/RANDOM

THIS
A

SEEK

SELECTED

THIS

TEST

CYLINDER,

CONSISTS OF

COMMAND,

THIS

FOLLOWED By

SEQUENCE

A SEEK

REPEATED

10.

SUBTESTS

TEST

THE

HEAD POSITIONER

3 UNIQUE DIFFERENTIAL

33 CYLINDER
DIFFERENTIAL
SEEK:
WORST
CASE
SEEK
OVERSHOOT
TEST,
FORCED BY SEEKING FROM CYLINDER O
TO 32, 1 7O 33, 2 70 34, ...
9597 T0 629.

400 CYLINDER DIFFERENTIAL
ACCELERATION

FORCED BY

...

OSCILLATING SEEK

THIS

CAUSE

TEST

SHALL

AND

SEEK:

230 70 629.

EXECUTE

SERIES

MOVEMENT SHALL RESWT FROM SEEKING
OF
DESIRED
CYLINDERS:
FROM
THE
1,

THEN,

CYLINDER

TO LC-2,

REVERSING

CYLINDER O TO LC.

CARRIAGE

SEEK

THE
THAT

BACK UP

...

THE

DOWN

THAT

THE

MEDIAN

THOSE SEEKS FROM THE

14.,

18.

THEY REQUIRE

P-CLOCK BE

SYSTEM IN-ORDER

FROM CYLINDER

MAXIMUM DISTANCE

7-10.,

TIMING TESTS.

KW11P

TO 400,

TO THE FOLLOWING
PATTERN
MAXIMUM DISTANCE SEEK OF

THE ORDER OF

TESTS NUMBERED

THE

ASSEMBLY,

OPERATIONS

NOTE

CONTAIN

399,

THE MEAD POSITIONER.

TO LAST(ENDING) CYLINDER (LC),

FROM CYLINDER 2

CYLINDER,

MEDIAN

TEST

AN OSCILLATING MOVEMENT OF

CYLINDER O

FORCES MAXIMUM

ODECELERATION OF

SEEKING FROM CYLINDER

2 T0 401,

10
TIMES,

SEEK PROFILES:

6 CYLINDER DIFFERENTIAL SEEK:
FORCES A
SLEW
RATE
CHANGE
BY
SEEKING FROM CYLINDER O TO S, 1 TO 6, 2
78(;;6 .e.
624
TO
629,
TO
TEST
THE
POSITIONAL
L

“EQ G015

TEST

SERVO SYSTEM RESPONSE

TEST

SEEK DIFFERENTIAL

TEST 6:

TEST EXECUTES A RECALIBRATE

RANDOMLY

TEST S5:

1.:"9:%8 PAGEL

INSTALLED

TO RUN.,

THE COMPLETION OF EACH OF THE TIMING
TESTS,
THE MAXIMUM AND THE
MINIMUM

TIMES, AND THE AVERAGE SEEK TIME FOR
EACH TEST ARE
CHECKED
AGAINST
THE
TOLERANCES GIVEN BY THE
ENGINEERING

SPECS.
THE
PROGRAM
WILL PRINT
MEASURED TIMES IF THEY ARE OVER

THE
THE

TIMING
TOLERANCES.
IF
TME
PRINT
REPORT
WAS
REQUESTED
VIA SOF TWARE
(SW) DIALOGUE,
THE TIMING INFO WILL
ALWAYS BE PRINTED. IF A SYSTEM CLOCK
IS NOT FOUND
TO BE PRESENT,
TIMING
TESTS
WILL
NOT
BE
EXECUTED.
THE
OPERATOR
WILL
BE
NOTIFIED
VIA
A

SEEK

AND

CZRJULBO RPO? FCTINIL

USER DOCIMENTATION

TEST MACRO vO4.00 1 DEC-83

1.:59:%8 PAGE

)

KU GG16

MESSAGE.
TEST

ROTATIONAL

SPEED

T1IMING

TEST

THIS TEST EXECUTES A SEARCH
COMMAND
TRACK
FT AND SECTOR FS.
AS SOON AS

TO
THE

CYLINDER
FC,
SEARCH OPERATION

OONE, THE TEST SETS THE “GO' BIT TO EXECUTE
ANOTHER
SEARCH
COMMAND WITH THE SAME RHXX/RPO7 REGISTER CONTENTS,
THE TIME
INTERVAL IS MEASURED AGAINST A TOLERANCE OF 16.515 MSEC +-3s.

REPEAT
READ

THIS

ERROR

COMMAND

SEQUENCE

EXISTS,

ONE

THIS

TIMES.

1IN CASE

PROGRAM

16 TIMES.

1IF

THE RETRY

CYLINDER

SEEK

ABORT THE (;EST.
WAS ABORTED.

TEST

THE

TEST

GENERATING

ANY

EXECUTE

RECOVERABLE
THE

SEQUENCE FAILS

A MESSAGE

TIMING

EXECUTES FORWARD

WILL

TELLING

THE PROGRAM WILL

WHMY

THE

PROGRAM

TEST

SEEK

FROM

THE

FIRST(STARING)

CYLINDER
TO THE FIRST(STARTING) CYLINDER ¢« 1 AND THE
OPERATION IS TIMED AGAINST A TOLERANCE OF S MSEC..
AFTER
EXECUTING THE TEST CYCLE, THE FIRST(STARING) CYLINDER ADDRESS
IS INCREMENTED BY ONE.
THIS PROCEDURE CONTINUES UNTIL THE

FIRST(STARTINC)

CYLINDER

ADDRESS

SPECIFIED ENDING CYLINDER,

REVERSE

DIRECTION.

CYLINDER SEEK

REACHES

629

THEN THE TEST

THIS

SEQUENCE

THE

USER

IS REPEATED IN THE

TWICE.

TIME WILL BE COMPUTED AND

THE

AVERAGE

REPORTED

WHEN

“TYPE
TIME REPORTS (L)" QUESTION IS RESPONDED TO IN THE
AFFIRMATIVE OR IF A TIMING LIMIT IS EXCEEDED.
THE AVERAGE
TIME FOR A SINGLE CYLINDER SEEK IS COMPUTED PER FORMULA:

(AVG)

WHERE
TEST

===

AVERAGE

cmome

...

7629

CAVG)

SINGLE

CYLINDER

SEEK

TIME

MEASUREMENT

WHERE
:
THE TX

2 X

1629

THE

THIS TEST WILL MEASURE THE
THE FOLLOWING CALCULATION:

[

(T1

SEEK

AVERAGE

THIS

SEEK

TIME

B8Y

USING

X 629)¢(T2 X 628)+...+(1629 X

THE

FORWARD

(REVERSE)

X (CYLINDER x

MAXIMUM SEEK

TEST

SEEK

TIME

TO CYLINDER 0).

TIMING

LAST(ENDING)
A

CYL INDER,

CYLINDER
TOLERANCE

SEEK

THEN

FROM CYLINDER O

THE NUMBER 2x629 IS

FROM CYLINDER O

TO CYLINDER O,
OF

1))

TEST

EXECUTES FORWARD

LAST(ENDING)
AGAINST

SEEK

TIME,

THE TOTAL NUMBER OF SEEKS EXECUTED.
AVERAGE SEEX TIME TOLERANCE IS 23 MSEC.
10:

-comcmcmmmmmmcon
oo e ae mmeen il

CYLINDER

TEST

..,

mmccoeen
ol
Ll

ONE

THE

MSEC..

REVERSE

BOTH SEEKS
A

TOTAL

SEEK

THE

FROM

ARE

NUMBER

THE

TIMED
1024

CZRJULBO RPO7 FCINL

USER DOCUMENTATION

TEST

MACRO vO4.00 1-DEC-83 12:59:3%8 PAGE 4-14

€04 0017

SEEKS
WILL
BE
EXECUTED
TO0
CALCULATE
TIME(S12 FORWARD, 512 REVERSE).
TEST

11:

MID

TRANSFER

SEEK

THE

MAXIMUM

SEEK

TEST

THIS TEST EXECUTES READ DATA CIOMMANDS FOR
EVERY
TRACK
ON
THE FIRST (STARTING) CYLINDER, WITH WORD COUNT BEING SET
TO EQUAL A FULL TRACK PLUS ONE SECTOR,
THAT EACH READ HEAD WORKS PROPERLY AND

SPIRAL READ DATA OPERATION,
WORKS PROPERLY.
TEST

12:

ERROR

BIT

THIS
TEST
ALSO ENSURES

REQUIRING A

ENSURES
THAT THE

MID-TRANSFER

SEEK,

TEST

EXECUTE A READ DATA COMMAND ON THE LAST
USER
ADDRESSABLE
SECTOR, TESTING FOR THE ASSERTION OF LAST BLOCK TRANSFERRED
(LBT) BIT OF THE STATUS REG RPDS.
REISSUE READ
DATA
COMMAND
TO
LAST
SECTOR WITH A WORD COUNT GREATER THAN 256
WORDS, TESTING FOR THE ASSERTION
OF
THE
ADDRESS
OVERFLOW
ERROR (AOE) BIT OF THE ERROR REG.
RPER1.
TEST

13:

OFFSET/RETURN

VERIFY THAT THE
WORK PROPERLY.

CENTER

OFFSET

LINE

AND RETURN

TEST

TO CENTER

LINE

COMMAND

ISSUE AN OFFSET COMMANO, PROCESS THE ATTENTION INTERRUPT AND
CHECK
FOR
ERRORS,
VERIFY THE ASSERTION OF THE OFFSET MODE
(OM) BIT OF RPDS.
ISSUE A RETURN TO CENTER LINE COMMAND, PROCESS THE ATTENTION
INTERRUPT AND CHECK FOR ERRORS, VERIFY THE RESETTING OF OM.
TEST

14:

RANDOM READ

TEST

ADDRESS

MARK

DETECTION

TEST

IF THERE IS NO P-CLOCK, THIS TEST
RANDOMLY
SELECTS
A
SECTOR,
THEN EXECUTES A READ DATA COMMAND TO THIS SECTOR 1O
VERIFY THAT NO DATA TRANSFER ERROR OCCURS. REPEAT 1024 TIMES.

THERE IS A P-CLOCK,

TEST

VERIFIES

THAT

THE

DATA

ADDRESS

MARK

DETECTION

CAN BE READ CORRECTLY

TIMING

WITHIN THE

SAME REVOLUTION AS A SECTOR DETECTION.
THE
TEST
RANDOMLY
SELECTS
A
SECTOR, SEARCHES FOR THE PRECEDING LOGICAL SECTOR,
THEN READS

SEARCH DONE

THE

SELECTED

- READ DONE

SECTOR,.

THE

TIME

INTERVAL

IS MEASURED AND CHECKED TO BE WITHIN

THE SAME DISC REVOLUTION.
REPEAT THIS SEQUENCE
AT
THE END OF THE TEST, AN ERROR MESSAGE SHALL
NUMBER OF OPERATIONS WITH A REVOLUTION LOST, IF
TEST

15:

THIS

TEST

VERIFY

CYLINDER

ADDRESS

EXECUTES

CYLINDER,

TEST

READ-HEADER

THE ADDRESSING OF

AND

ODATA

SECTOR O ON ALL

THEN EXECUTES

16:

CYLINDER

WRITE

COMMANDS

TRACKS OF

AN EXPLICIT

SEEK

AND WRITE-CHECK

TESTY

SECOND FE CYLINDER,
TEST

1024
TIMES.
INDICATE THE
ANY,

THE FIRST

ACCESS

THE

[

CZRJULBO RPO7 FCTINL

LSER DOCUMENTATION

TEST MACRO Vv04.00

THIS

TEST

DEC 83

WILL

FIRST(STARTING)

12:59:38 PAGE 4

WRITE
TO

THE

THE FIRST

CAN WRITE DATA WITHOUT

DATA

PATTERN

WRITES

THE

DEFAULT
ONTO

)

LAST(ENDING)

DRIVE

(

5EG G018

CYLINDER FROM

TRACK

DETECTABLE

ERROR,

MEDIA,

FOLLOWED

B8rvr

THAT

THE

DATA PATIERN 030221 OR A USER
THE

THE

VERIFY

THE

TEST

SPECIFIED

EXECUTING

WRITE -CHECK
COMMAND.
THE TEST CHANGES THE DATA PATTERN TO
ITS COMPLEMENT
VALUE AND
REPEATS THE TEST CYCLE.
THE WORD
COUNT IS SET TO DO TWO MALF TRACK DATA TRANSFERS.

TEST

17:

WRITE

TEST

IF
RUNNING THE FIELD VERSION
OF THIS PROGRAM, THIS TEST IS
ONLY RUN IF THE “WRITE DATA ANYWHERE ON THE MEDIA” OPTION IS
SELECTED
B8y
THE
OPERATOR,
1IN
THE
SOFTWARE
PARAMETER
QUESTIONS.
THIS
FROM

TEST WRITES DATA AND WRITE CHECKS DATA ON
EVERY
THE FIRST(STARTING) TO LAST(ENDING) TRACK OF
THE

(STARTING)
WORD COUNT
TEST

18:

TRACK
FIRST

CYLINDER FC
AND
THE LAST(ENDING) CYLINDER.
IS SET TO DO TWO HALF TRACK DATA TRANSFERS.

RANDOM WRITE

TEST

/ADDRESS

MARK

DETECTION

THE

TEST

IF
RUNNING THE FIELD VERSION
OF THIS PROGRAM, THTS TEST IS
ONLY RUN IF THE "WRITE DATA ANYWHERE ON THE MEDIA” OPTION IS
SELE$ISSS
B8y
THE
OPERATOR,
IN
THE
SOFTWARE
PARAMETER
QUE
.

IF THERE IS NO P-CLOCK, THIS
TEST
WRITES
ODATA
AND
WRITE
CHECKS DATA RANDOMLY ON THE MEDIA, WITH A TRANSFER SIZE OF 1
252}02. 1024 TIMES. THE DATA PATTERN IS RANDOM OR A SPECIFIED
ERN.

THERE

TEST

VERIFIES

P-CLOCK,

THAT

THE

ADDRESS

DATA CAN BE

MARK

WRITTEN

DETECTION

CORRECTLY

TIMING

WITHIN

THE

SAME REVOLUTION AS A SECTOR DETECTION.
THE
TEST
RANDOMLY
SELECTS A SECTOR,
SEARCHES FOR THE PRECEDING SECOND LOGICAL
SECTOR, THEN WRITES THE SELECTED SECTOR.
THE TIME
INTERVAL
SEARCH DONE - WRITE DONE IS MEASURED AND CHECKED TO BE WITHIN
THE

SAME

THE

DISC

REVOLUTION.

SELECTED SECTOR.

A WRITE

REPEAT

CHECK

1024

TEST, AN ERROR MESSAGE SHALL INDICATE
WITH A REYOLUTION LOST, IF ANY.

DATA

TIMES.
THE

THEN

THE

NUMBER

ISSUED

END OF

THE

OPERATIONS

CZRJULBO RPO7 FCTINL

HISTORY

TEST MACRO vO4.00

1-DEC 83 12:59:%8 PAGE

5£0 0019

.REM @
VERSION (CZRJL
1.

A 0)

THIS VERSION IS THE STARTING
THE RPO7 DISK DRIVE.

VERSION (C7RJL 8
1.

WHEN

FOR

SOME

COMMAND,

POINT

DIAGNOSTIC

SUPPORT

BAD SECTOR

ERROR

(BSE)

OCCURS

THE MASSBUS DATA BUS PARITY

UNKNOWN REASON.

TG REMEDY

THE

PROGRAM

BIT

REPORT

THIS

THE

DURING

(MDPE)

BIT

PROBLEM,

DETECTED

SEEK

TIMES

WRITE

THE

CHECK

ALSO SET
BSE

BIT

AND

TREATED

THE

TIMING

TESTS (7-10,14,18), ONLY IF THE TEST FAILS A TIMING SPEC
OR
THE APPROPRIATE SOF TWARE QUESTION IS ANSWERED AFFIRMATIVE.
THE

IS ALSO CHECKED AFTER THE MDPE
AS A NORMAL BAD SECTOR.
MODIFIED

FOR

ADDRESS MARK

REVOLUTION ERROR

COMPLETED.

TESTS
IT

714

OCCURS,

18)

WILL

INSTEAD

NOW

WHEN

REPORT
THE

TEST

LOST

HRS

CZRJLBO RPO7 FCINL

HISTORY

TEST

1
2
270
272

MACRO

v04.00

DEC-83

12:59:38 PAGE

:sLAST

REVISION

.TITLE
.SBTTL

298

300 000000
301
303
305
306
307
308
309
311
319
223 002000
002000
002001
002002
002003

002004
002005
002006
002007
002010
002010
002011
002011
002012
002012

002014
002014
002016
002016
002020
002020
002022
002022
002024

002024
002026
002026
002030
002030
002032
002032
002034
002034
002036
002036
002040
002040
002042
002042
002044
002044
002046

"h)

5EQ G620

25-MAY
83

CZRJLBO RPO7 FCTNL
PROGRAM HEADER
.ENABL
.

002000

TEST

AMA,ABS
=
2000

X4
HE

i
i

103
132
122
112
114
000
000
000
1C2

060
000001
000060

041200
041316
002172

002204
074766

000000
000000
000000
000000

002124
000000

000000

THE PROGRAM HEADER

THE

DIAGNOSTIC

LSNAME : ;

LS$REV: :
L$DEPO: :
LSUNIT:
LSTIM ::

L$HPCP: ;
L$SPCP: :

L$HPTP: ;
L$SPTP: :
LSLADP: :
L$STA::
L¢CO::

L$DTYP; ;

L$APT: :
L$OTP: :
L$PRIO: :
LSENVI::
LS$EXPL::

.ASCII
LASCII
.ASCII
.ASCII
.ASCII
.BYTE
.BYTE
.BYTE

PROGRAM

/C/
72/
/R/
/J/s
/L/

O
0
©

.ASCII

rB/

.ASCII

s0/

.WORD

TS$PTHV

.WORD

L $HARD

.WORD

LS$SOFT

.WORD

L$HW

.WORD

L$SW

.WORD

LSLAST

.WORD

.WORD
.WORD

.WORD

THE

INTERFACE BETWEEN

AND

THE

SUPERVISOR.

:DIAGNOSTIC NAME

sREVISION LEVEL
:0
sNUMBER OF UNITS
;LONGEST

TEST

;POINTER

TO H.W.

QUES.

;POINTER

TO S.W.

QUES.

TIME

:PTR.

TO DEF.

H.W.

:PTR.

T0 S.W.

PTABLE

;DIAG.

PTABLE

END ADDRESS

;RESERVED FOR APT

1DIAGNOSTIC

STATS

TYPE

;APT EXPANSION

sPTR. TO DISPATCH TABLE
LS$DISPATCH
$DIAGNOSTIC RUN PRIORITY
O
tFLAGS DESCRIBE HOW IT WAS SETUP
O
;EXPANSION WORD

CZRJULBO RPO7 FCTNL
PROGRAM HLADER

325

002046
002050
002050
002051
002052
002052
002054
002056
002056
002060
002060
002062
002062
002064
002064
002066
002066
002070
002070
002072
002072
002074
002074
002076
002076
002100
002100
002102
002102
002104
002104
002106
002106
002110
0021190
002112
002112
002114
002114
002116
002116
002120
002120

TEST MACRO v04.00

1-DEC-83

12:59:38 PAGF

000000

003
003
000000
000000

000000
003030
000000
000000

000000
000000

003036
104035

000000

025632
026656
026654

025624
000000
000000
000000

LS$MREV::
L$EF::

LS$SPC:
:

LSDEVP:;
LS$SREPP::

LSEXP4;
:
LSEXPS:
:
LS$AUT::
L$OUT::
LSLUN::

LS$DESP:
:
LS$LOAD:
:
LSETP::
LS$ICP::

LS$CCP::
LS$ACP::
L$PRT::

LSTEST::

L$DLY::
L$HIME
: :

5EQ G021

. WORD

.BYTE
.BYTE

CSREVISION
CSEDIT

.WORD
. WORD

0
0

.WORD

L$DVTYP

. WORD

.WORD

. WORD

.WORD

. WORD

L$DESC

EMT

ES$LOAD

.WORD

. WORD

L$INIT

.WORD

L$CLEAN

. WORD

L$AUTO

. WORD

L $PROT

. WORDP

)

.WORD

iSVC REV AND EDIT ¢

;DIAG.

;

EVENT FLAGS

POINTER TO DEVICE TYPE LIST

;PTR.

T0O REPORT CODE

;PTR.

TC ADD UNIT CODE

sPTR.

TO DROP UNIT CODE

;LUN FOR EXERCISERS
sPOINTER

TO DIAG.

TO FILL

DESCRIPTION

;GENERATE SPECTAL AUTOLOAD EMT
sPOINTER

TO ERRTBL

sPTR.

INIT

sPTR.

CLEAN-UP

;PTR.

TO AUTO CODE

sPTR.

CODE

PROTECT

s TEST NUMBER
;DELAY COUNT
sPTR.

HIGH MEM

CODE

TABLE

TEST MACRO VO4.00 1 DEC-83

12:59:38 PAGE 8

.SBTTL

DISPATCH TABLE

~NT N H WY+

CZRJLBO RPO7 FCTNL
DISPATCH TABLE

Je
SEQ 0022

8 002122
002124
002124

002126
002130
002132
002134
002136
002140
002142
002144
002146
002150
002152
002154
002156
002160
002162
002164
002166

000022

026762
027032
027140
027372
027606
030036
030144
031222
032212
033130
034004
034210
034436
034626
036144
036422
037010
037332

THE DISPATCH

IT IS USED By

TABLE CONTAINS

. WORD

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

T1
T2
T3
V4
TS

L$DISPATCH:
:

. WORD
.WORD

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

THE

STARTING ADDRESS OF EACH

THE SUPERVISOR TO DISPATCH TO EACH TEST.

17
18

19
T10
T11
T12
T13
T14
T15
T16
T17
T18

TEST,

‘/;)

ORI
ND NN

CZRJLBO RPO7 FCTNL
T HARDWARE P
DEFAUL

10
11
12

TEST MACRO
TABLE

v04.00

1-DEC-83

12:59:38

.SBTTL

PAGE

DEFAULT HARDWARE

SEG 0023

TABLE

002170
002172
002172
002172
002174
002176
002200

13
14
20
21 002202

;
;

THE DEFAULT HARDWARE P TABLE
THE TEST-DEVICE PARAMETERS.

IS IDENTICAL TO THE STRUCTURE OF

000004
L$HW:;

176700
000254
000240
000000

OFPTBL::

L10000:

.WORD

CONTAINS DEFAULT
THE STRUCTURF OF

VALUES OF
THIS TABLE

THE HARDWARE P-TABLES.

L10000 L $HW/2

.WORD 176700
.WORD 254
.WORD 240
.WORD O

;:RPCS1 BASE REGISTER ADDRESS
; VECTOR ADDRESS
:BR LEVEL S DEVICE
;:DRIVE NUMBER

CZRJLBO RPO7 FCTNL
M-

.SBTTL

O~NOUND

SOF TWARE P-TABLE

TEST MACRO VO4.00 1-DEC-83

:
;

12:59:38 PAGE

SOF TWARE P

TABLE

5€EQ 0024

s e

002202
002204
002204
002204
002206
002210
002212
002214
002216

THE SOFTWARE P-TABLE CONTAINS THE
PARAMETERS THAT CAN BE CHANGED BY

000016

.WORD

L$SU:
SFPTBL::
FC:
.WORD
LC:
.WORD
IC:
.WORD
FT:
. WORD
LT:
. WORD
IT:
.WORD
FS:
.WORD
LS:
.WORD
PAT;
.WORD

VALUES
THE

THE

PROGRAM

OPERATOR.

L10001
-L $SW/2

002220
002222
002224

000000
001165
000001
000000
000037
000001
000000
000061
030221

002226
002227
002230
002231

001
000
000
000

REDHOR
:
TIMTYP:
TIMSTL:

.BYTE
.BYTE
.BYTE
.BYTE

1
0
0
0

{READ HEADER AND DATA CMD FLAG - DEFAULT: YES - SEEK TESTS 2-6
;TYPE TIME - DEFAULT: NO - TIMING TESTS 7-10,14,18
s TIMING TESTS,STALL BETWEEN SEEKS: RANDOM INSTEAD OF 2 MSEC
$STALL FLAG: AFTER EVERY DRIVE FUNCTION - DEFAULT: NO

002232
002233
002234
002235

000
000
000
000

STALRD:
STOFLG:

RANPAT
;
WRTALL
:

.BYTE
.BYTE
.BYTE
.BYTE

0
0
0
0

:RANOOM STALL FLAG - DEFAULT: NO - PREREQUISITE: STALLF=1
;:SOFTWARE TIMEOUT INHIBIT FLAG - DEFAULT: NO - ALL TESTS
sRANDOM WRITE PATTERN - DEFAULT: NO - TEST: 18
;WRITE DATA ALL OVER THE MEDIA FLAG - DEFAULT: NO

002236

000

CHANGE
:

.BYTE

STALLF:

.EVEN
002249

L10001:

0
629.
1
0
31.
1
)

:FIRST CYLINDER
;LAST
CYLINDER
: INCREMENT CYLINDER
;FIRST TRACK
sLAST TRACK
: INCREMENT TRACK
:FIRST SECTOR

030221

;;WRITE DATA PATTERN

49,

;LAST

SECTOR

; TESTS:
;TESTS:
; TESTS:
;s JESTS:
:TESTS:
: TESTS:
:TESTS:

2 4,6 8,11,13,14,17,78
2 4,6,8-10,14,17,18
2
2-7,11,13,16,17
3-6,11,14,16-18
11,16,17
2,5 7,13

: TESTS:

5,6, 14 18

;sTESTS: 16-18 (WORST CASE)

sNON-TIMING TESTS 1-6,11,14-18

s TESTS:

;sCHANGE

17,18

DRIVE PARAMETER FLAG

CZRJLBO RPO7 FCTNL TEST MACRO v04.00
GLOBAL. EQUATES SECTION
12

1 DEC-83

12:59:38 PAGE

.SBTTL

50
52
53
54

GLOBAL EQUATES SECTION

:
;

55
56
57

THE
ARE

GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES
USED IN MORE THAN ONE TEST,

THAT

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

BIT15==
BIT14==
BIT13==
BIT12==
8IT11==
B8IT10==
BIT09==
BIT08==
B8IT07==
B8IT06==
B8IT0S==
B8IT04==

001000
000400
000200
000100
000040
000020
000010
000004
000002
000001

8I79==

BITO09

8IT7==
8IT6==
B8IT5==
BIT4==
8IT3==
BIT2==
8IT1==
8IT0==

BITO7
BITO6
BITOS
BITO4
B8IT03
BITO2
BITO1
B8ITO00

8IT03==
8IT02==
B8IT01==
8ITO00==
i

B8IT8==

100000
40000
20000
10000
4000
2000
1000
400
200
100
40
20

10
4
2
1

BITO8

; EVENT FLAG DEFINITIONS
:
EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION
000040
000037
000036
00003S
000034

[

EF .START
==
EF .RESTART
==
EF .CONTINUE
==
EF .NEW==
EF .PUR==

32.
31.
30.
29.
28.

: PRIORITY LEVEL DEFINITIONS
000340
000300
000240
000200
000140
0001920

]

PRIO7== 340
PRIO6== 300
PRIOS== 240
PRIO4== 200

PRIO3==
PRIO2==

140
100

START COMMAND WAS

RESTART

ISSUED

COMMAND WAS

ISSUED

CONTINUE COMMAND WAS ISSUED

A NEW PASS HAS BEEN STARTED
A POWER-FAIL/POWER-UP OCCURRED

CZRJULBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83
GLOBAL EQUATES SECTION
000040
00Q000

12:59:38 PAGE

PRIO1==
PRIOO==

40
0

;OPERATOR FLAG BITS
000004
000C.0
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000

EVLs=s=

LOT==

ADR=
=

I0U==

ISR==
UAMs
=

BOE==

10
20

100
200

400

PNT ==
PRI==

1000
2000

IBE==
IER==

10000
20000

IXE==

LOE==
HOE ==

4000

40000
100000

Ne
11

5EQ 0026

CZRABO RPO7 FCTNL

BN
O OB

4 NI
N -

REGIHTERS

=8 gt gt ps

RMXX

TEST MACRO vO4.00 1 DEC 83

12:59:38 PAGE

LSBTTL

sCONTROL
000100
000200

RODY

001000

Al?

020000
040000
100000

MCPE

A16

s PSEL

EQ 027

RHXX REGISTERS

AND STATUS REGISTER 1 (RPCS1)
*s

100

«=

400

s INTERRUPT ENABLE

== 200
==

=« 2000

TRE

20000

40000

MSSC

100000

o€,

;HIGH ORDER BUS ADDRESS BIT

1000

(BIT

sREADY (BIT o7)

(BIT

sHIGH ORDER BUS ADDRESS BIT

(BIT

$MASSBUS CONTROL

ERROR

sPORT SELECTY (BIT #10)

;: TRANSFER

ERROR

8US PARITY

(BIT

e8)

09)

(BIT

014)

sSPECIAL CONDITION (BIT

o015)

1WORD COUNT REGISTER (RPWC)
$(EACH BIT IS CALLED BY BIT NUMBER)
:8US ADDRESS REGISTER (RPBA)
;(EACH BIT IS CALLFD BY BIT NUMBER)
;CONTROL AND STATUS REGISTER 2 (RPCS2)
;US1
1US2

ee )
ee 2

1BAT

-s

;1USa

iMSPAT

CLR
000400
001000
002000
010000
020000
100000

(IR
;OR

MOPE

iMASSBUS

cs 40
ce

400

1000
2000

NEM
NED
UPE
WCE

==
e+
«s
==

4700
10000
20000
40000

100000

1 (EACH BIT

PARITY

TEST

1CLEAR (BIT #5)

«e 100
.s 200

;DATA BUFFER REGISTER

004090

;BUS ADDRESS INCREMENT

.=
==

.SBTTL

tUNIT SELECT (BIT 02)

MXF
MSPGE

oLT

sUNIT SELECT (BIT 00)
sUNIT SELECT (BIT o1)
04)

: INPUT READY (BIT 06)
;OUTPUT READY (BIT 07)

iMASSBUS DATA BUS PARITY

iMISSED

TRANSFER

:PROGRAM

ERROR

(BIT

ERROR

(BIT

010)

iDATA

LATE

(BIT

015)

(RPD8)

IS CALLED BY BIT NUMBER)

RPO7 REGISTERS

(000)

150
iFl
iF2
iF3
iF4
sFS

1GO BIT (BIT #0)
tFUNCTION COOE BIT
1tFUNCTION CODE BIT
sFUNCTION CODE BIT
1FUNCTION COOE BIT
tFUNCTION CODE BIT

=
oe
e
==
=s
==

1
2
4
10
20
40

== 4000

09)

iNON EXISTENT MEMORY (BIT 011)
:NON EXISTENT DRIVE (BIT 012)
sUNIBUS PARITY ERROR (BIT 013)
IWRITE CHECK ERROR (BIT 014)

sLONTROL AND STATUS 1 REGISTER.

DVA

INMIBIT (BIT 03)

(BIT

1DEVICE AVAILABLE

o1
@2
o3
04
#5
(BIT o11)

(BIT

08)

013)

C'.

CZRABO RPO7? FCINL

RPOTM REGISTERS

TEST MACRO v04.00 1 DEC 83

1.°:%9:%8 PAGE

12 1

SEU G028

58
59
«~0
61

62
63
od
o5

tDRIVE

000001
000004

STATUS REGISTER

oM
EWN
ILV

1
2

;:DRY

040000
100000

400

:PGM
LST
1 WRL

1000
2000

1 PROGRAMABLE

40000
A

100000

$ATTENTION ACTIVE

{ERROR REGISTER 001
000001

000020

ILF
ILR

RMR
:PAR
FER

(RPER1)

1
4

(BITf

015)

;REGISTER MOOIFICATION REFUSED
1PARITY ERROR (BIT o3)

10
20

1FORMAT

sWRITE

ERROR

(BIT

CLOCK FAIL

(BIT

@4)

(BIT

o5)

s€CC HARD ERROR (BIT €6)
sHEADER COMPARE ERROR (BIT @7)

tHEADER CRC ERROR (BIT 08)
s ADDRESS OVERFLOW ERROR (BIT €9)
s INVALID ADDRESS ERROR (BIT @10)
tWRITE LOCK ERROR (BIT €11)
:ORIVE TIMING ERROR (BIT €12)

1OPERATION

oCK

oMD

100000

sATTENTION SUMMARY
:ATO
sAT1
tAT2
;ATS
;AT4
sARTS
tAT6
sAT?7

INCOMPLETE

(BIT

sDORIVE UNSAFE (BIT 014)
+DATA CHECK ERROR (BIT 15)

sMAINTAINABILITY

100000

010)

+ ILLEGAL FUNCTION (BIT 00)
s ILLEGAL REGISTER (BIT 01)

010000
020000
100000

1
2

10
20

100
200

H.W

09)

(002)

000100
000200
000400
001000
002000

TH.,

sMEDIUM ON-LINE (BIT 012)
tPOSITIONING OPERATION IN PROGRESS (BIT 013)
:COMPOSITE ERROR (BIT 014)

20000

(BIT

IS ENABLED

sLAST SECTOR TRANSFERRED (BIT
sWRITE LOCK (BIT €11)

4000
10000

sMOL
sPIP

ERR
ATA

1SECTOR INTERLEAVE MODE
s VOLUME VALID (BIT 06)
tORIVE READY (BIT @7)
:ORIVE PRESENT (BIT 08)

100
200

s OPR

(001)

1OFFSET MODE
$ERROR WARNING

IA'A")

002000

(RPDS)

001

(RPMR1)(003)

1DIAGNOSTIC MODE
PSEUDO-REGISTER (RPAS)

tDEVICE
sDEVICE
1DEVICE
tOEVICE
tDEVICE
tDEVICE
tOEVICE
sDEVICE

O
1
2
3
4
S
6
7

(604)

(BIT
(BIT
(BIT
(BIT
(BIT
(BIT
(BIT
(B1T

00)
o1)
@2)
03)
#4)
#5S)
@6)
@7)

1DESIRED SECTOR/TRACK ADDRESS REGISTER (RPDA) (005)

013)

@¢2)

CZRABO RPO7? FCTINL

TEST MACRO vO4.00 1-DEC-83

115

117

118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139

10702
1DT03

10704

;0708

400
4000

;: TAP

;NBA

1ORIVE
1ORIVE
sORIVE
;ORIVE

10
20

1DRQ
s MOH

tORIVE

;:DT0S
:0T06

10707

tDRIVE TYPE NUMBER BIT

1
2

100
200

tORIVE

20000

WRYUNS
WOR
RWU1
RWU2
RWU3
PGE

001000
002000
040000

100
200

$SECTOR COUNT FIELD O (
;SECTOR COUNT FIELD 1 (

1000
2000

;SECTOR COUNT FIELD 3 (

400

1060000

;SECTOR COUNT FIELD 2

(BIT

$1SECTOR COUNT FIELD 4 (

002

(RPER2)

400

(10)

{WRITE OFF TRACK CENTER (WRITE UNSAFE)
;WRITE OVERRUN ERROR
iW/R UNSAFE ERROR 1 (WRITE ERROR)

1000
2000

4000

1W/R UNSAFE ERROR 2 (READ OR WRITE ERROR)

10000
100000

:W/R UNSAFE ERROR
; PROGRAM ERROR

003

(WRITE

ERROR)

(RPER3)

100
200

LCE
L8C
SKI1
BSE

011)

(207)

000200

TYPE NUMBER BIT

sNOT BLOCK ADDRESSED (BIT 015)

100000

1
10
20

000100

BIT
BIT
BIT
BIT

NUMBER
NUMBER
NUMBER
NUMBER

tMOVING HEAD (BIT 013)
; TAPE DRIVE (BIT #14)

40000

;RPO7 ERROR REGISTER

000400
001000
002000
004000
010000
100000

TYPE
TYPE
TYPE
TYPE

sDRIVE TYPE NUMBER BIT
;DRIVE TYPE NUMBER BIT
tORIVE REQUEST REQUIRED (BIT

1LOOK -AHEAD REGISTER (RPLA)

:SCO
:SC1
:1SC2
:1SC3
1SCa

TYPE NUMBER B1T

[ RNV ENENIR

:DTO01

23333

;10700

000010
000020

170
171

5EQ 6029

tORIVE TYPE REGISTER (RPDT) (006)

$1RPO7 ERROR REGISTER

167
168

12 2

s (EACH BIT IS CALLED BY BIT NUMBER)

116

140
141
142
143
144
145
146
147
148

12:59:38 PAGE

O®AIPWVN
D Wr

RPO” REGISTERS

[

400

1000
2000

40000

100000

sDIAGNOSTIC COMMAND

1tOATA PARITY
DURING WRITE
: SERDES DATA FAILURE

sOC LOMW UNSAFE
1 INDEX PULSE UNSAFE
sORIVE CHECK

1 TACH CALIBRATE FAILURE

sLOST CYLINDER (POSITIONER IN GUARD BAND)
1LOST BIT CLOCK

1 SEEK INCOMPLETE
$1BAD SECTOR

sOFFSET REGISTER (RPOF) (011)
002090

HCI

2000

tHEADER

COMPARE

INHIBIT

(BIT

#10)

’

Eo4
I'e

CZRULBO RPO7 FCTNL
RPO7” REGISTERS
172

173

174

175

TEST MACRO vO4.00

004000
C10000

100000

176
177
178

DEC-83

12:59:7%8 PAGE

ECI

FMT16

cMoD

5€Q 0030

4000

:ERROR

10000

;FORMAT

100000

CORRECTION CODE

BIT

(BIT

@12

;COMMAND MODIFIER BIT

INMIBIT

(BIT

411,

#13)

;OESTRED CYLINDER ADDRESS (RPDC) (4#12)
s (EACH BIT IS CALLED 8Y BIT NUMBER)

179

180
181
182
183
184

:CURRENT CYLINDER ADDRESS (RPCC) (@13)
;:(EACH BIT IS CALLED BY BIT NUMBER)

185

:SERIAL NUMBER REGISTER (RPSN) (#14)
:(EACH IS CALLED BY BIT NUMBER)

186
187
188
189
190
191

:ECC POSITION REGISTER (RPEC1) (916)
;:(EACH BIT IS CALLED BY BIT NUMBER)

192

193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
e27
228

;:ECC PATTERN REGISTER (RPEC2) (9017)
;(EACH BIT IS CAILLED BY BIT NUMBER)
.SBTTL
000101
000105
000107
000111
000113
000115
000117
000121
000131
000135
000143
000151
000153
000161
000163
000165
000171
000173
000175

WCKD
WCKHD
WRTDAT
FMTRK
WRTTD
RODAT
RDHO
RDTD

177400

SCTRWC

RPO7 DRIVER

NOOP
SEEK

101

DRVCLR

111

RECAL

RELSE

OFFSET

RTC
READIN

COMMANDS

;NO OPERATION
1 SEEK

105
107

sRECALIBRATE

113
115
117

tRETURN

;:ORIVE CLEAR
s RELEASE
sOFFSET

SEARCH
DIAG
ILLCMD

TO CENTER LINE

;READ IN PRESET

121
131

;sSEARCH

135
143
151
153
161
163
165
171
173

sOIAGNOSTIC TMMOOE

s ILLEGAL

COMMAND

iWRITE CHECK DATA

sWRITE CHECK HEADER AND
sWRITE DATA
1iFORMAT TRACK
sWRITE TRACK DSFCRIPTOR

DATA

sREAD DATA

sREAD HEADER AND DATA

175

tREAD TRACK DSECRIPTOR

256.

tDEFAULT

WORD COUNT

i THE FOLLOWING ARE SPECIAL DRIVER COMMANDS (NOT CONTROLLER COMMANDS)
000141
000145
000147

GETREG

141

MAINT

SETFORM

145
147

tREAD RPCS1,

+POINTED

RPWC,

TO BY

RPBA,

'OPB’ +6.

RPDA

AND

STORE

THEM AT

1WRITE MAINTENANCE REGISTER RPMR1
;SET FORMAT PSEUDO CMD:
WRITE OFFSET REGISTER.

1FIRST READS RPOF,
;PER 'DPB’', MERGES

ADDRESS

SETFORM

EXTRACT ITS LO BYTk, CHANGES ITS
BOTH BYTES 10 WRITE RPOF.
HENCE

HI BYTE
SETFORM

CZRULBO RPO7 FCTNL

TEST MACRO v04.00 1 DEC-83

RPO? DRIVER COMMANDS

12:59:38 PAGE

12 4

5EG 0031

229

tWRITES

230
2%

:COMMAND OFFSET DOES

RPOF

WITH HI

BYTE

THE

PER

OPB',

OPPOSITE,

BYTE

UNCHANGED.

THE

CZRJLBO RPO? FCTNL

GLOBAL

DATA

SFCTION

TEST MACRO v04.00

i
2
3

002240
002242
002244
002246
002250
002252
002254
002256

16 002260

002262

000000
000001
000001
000000
002000
000000
000000
000000

GLOBAL

56Q G032

DATA SECTION

iLAST PHYSICAL CrL
sFIRST FE CyL
sLAST PHYSICAL TRK
;LAST PHYSICAL SEC

O
O
O
O
O

; CYLINDER READ
: TRACK READ
;SECTOR READ
:CYLINDER DESIRED
:SECTOR DESIRED

O
O
O
O
0,0
O

sMINIMUM TIME
;:NUMBER OF COUNTS BELOW MIN.
;MAXIMUM TIME
:NUMBER OF COUNTS ABOVE MAX,
:TOTAL TIME OF ALL SEEKS
tNUMBER OF SEEKS PERFORMED

.WORD
.WORD
.MORD
.WORD
.WORD
.WORD
TIM.PT:: .WORD
WCEFLG:: .WORD
DELTA:: .WORD
TRKWC:: .WORD

sMINIMUM TIME
iNUMBER OF COUNTS BELOW MIN.
sMAXIMUM TIME
iNUMBER OF COUNTS ABOVE MAX,
1 TOTAL TIME OF ALL SEEKS

;BIT TABLE
BITS::
.WORD
.WORD
.WORD
.WORD

BITOO
BITO1
BITO2
BITO3

001165
001166
000037
000061

NC1::
NC2: :
NT1::
NS1::

002276
002300
002302
002304
002306

000000
000000
000000
000000
000000

CYL.RD::
TRK.RD::
SEC.RD::
CyL.DS::
SEC.DS::

48
49
50 002356
g; 002360

002362
002364
002366
002370

000012
000012

000001
000002
000004
000010

TRK.DS::

TIM.UP::

000000

.WORD

.WORD
.WORD
. WORD
.WORD
.WORD
.WORD
.LORD
.WORD
.WORD

.WORD

.WORD
.WORD
.WORD
.WORD
.WORD
.WORO

TIM.ON::

000000

USED

629.
630.
31.
49,

002266
002270
002272
002274

000000
000000
000000
000000
000000
000000
000000
000000
000000
163400

ARE

SVSTAT::

002330
002332
002334
002336
002340
002344
002346
002350
002352
002354

THAT

.WORD

000000

40
41
42
43
44

DATA

;BYPASS ROUTE ADR; SET IN CALL ERRABO
sCALLERS;
CALL.A/B/C, DRVCAL, SRCHOO.
1STATUS/ERROR INDICATOR IS;
SAVED HERE ON AN ERROP

002264

000000
000000
000000
000000
000000
000000

TEST,

.WORD

CLKSTA::

000000

SECTION CONTAINS

O
1
1
O
1024.
O
O
O
O
O

BYPASS::

002312
002314
002315
002320
002322
002326

DATA

THAN ONE

TEMPO:: .WORD
TYTIME: :.WORD
ITCNT:: .WORD
ISRCNT:: .WORD
XTIMES:: .WORD
SRHSEC:: .WORD
TRGSEC:: .WORD
DOTWO:: .WORD

000000

33
34
35
36
37
gg

53
54
55
56
57

THE

IN MORE

000000

gé 002310

45
46
47

‘-

26
27
28
29
30

GLOBAL

HEA4

17
18
19
20
21
22
23
gg

()’:
12:59:38 PAGE

.SBTTL

8
9
10
11
12
13
14
15

1 DEC 83

STALL1::
STALL2::

.WORD
.WORD

10,
10.

: TEMPORARY LOST REVOLUTION COUNT
s TYPE SEEK TIMES IF =i
s TEST ITERATION COUNTER
s INTERRUPT SERVICE COUNTER
s TEST ITERATION COUNT;
TESTS 14. € 18,
1 SEARCH SECTOR;
TESTS 14, € 18.
s TARGET SECTOR;
TESTS 14, & 18.
;USED YO FORCE TWO ITERATIONS OF AN OPERATION

sCLOCK

STATUS

(NO CLOCK=

O,KW11-P=

OR KW1l-L=

; TRACK DESIRED

LIMIT
LIMIT

LIMIT

tNUMBER OF SEEKS PERFORMED
tPOINTS TO TABLE OF TIMES
sFATAL WRITE CHECK ERROR FLAG

tMEMORY SIZING SCRATCH LOCATION
1WORD COUNT FOR HALF A TRACK IN
310 MILLISECONDS STALL
: 10 MILLISECONDS STALL

BIT MODE

CZRJLBO RPO7 FCTNL

GLOBAL

DATA SECTION

58 002372
59 002374
0 002376
61 002400
62 002402
63 002404
64 002406
65 002410
66 002412
67 002414
68 002416
69 002420
70 002422
71 002424
72 002426
73 002430
74 002432
75 002434
76 002436
77 002440

TEST MACRO v04.00

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

1-DEC 83 12:59:38 PAGE
. WORD
.WORD
.WORD
. WORD
. WORD
. WORD
.WORD
.WORD
. WORD
. WORD
.WORD
. WORD
.WORD
.WORD
.WORD
. WORD
.WORD

.WORD
. WORD

. WORD

H4
13

BITO4
BITOS
BIT06
BITO07
BITO8
81709
BIT10
8IT11
8IT12
8IT13
8IT14
BIT15
8IT00
8IT01
B8IT02
8IT03
8IT04
BITOS
BITO6
BITO7

5£Q 0033

CZRJLBO RPO7 FCTNL
N 4=t p=s po Pt Pt i et P pb [
N
WM+
[oX¥<Jo
V] U BDWN - OV

TIMING MESSAGE

AND

TEST MACRO v04.00

LIMITS

1-DEC-83

12:59:3%8 PAGE

5€£Q 0G34

TABLES

.SBTTL

TIMING MESSAGE AND LIMITS

TABLES

;ROTATIONAL TEST TABLES FOR RPO7 DRIVE
$S0HZ AND 60HZ TABLE

002442
002444
002446
002450

004674
000000
003103
003246

T7A: :

.WORD

.WORD
.WORD
.WORD

3 1ST MESSAGE
$12ND MESSAGE
:LO LIMIT

(NONE
(16.515MS

0
500.

;15T MESSAGE
;s2ND MESSAGE
sLO LIMIT
sHI LIMIT

(NONE
)
(5.0MS)

AVERGE
REV
0
2300.

$11ST MESSAGE
;:2ND MESSAGE
sLO LIMIT
sHI LIMIT

)
(NONE
(23.0MS)

MXSEEK
REV
0
4600.

:1ST MESSAGE
:2ND MESSAGE

MARIC
0

;1ST MESSAGE
:2ND MESSAGE

ROTATE
0

1603.
1702.

sHI

LIMIT

(16.515M5

.+
-

3%)

:SEEK TEST TABLES
002452
454
002456
002460

004736
005204
000000
000764

TIMT10::

002462
002464
002466
002470

005010
005204
000000
004374

TIMT11l::

002472
002474
002476
002500

005055
005204

TIMT12::

002502
002504
002506
002510

.WORD

. WORD
.WORD
.WORD

.WORD

.WORD
. WORD
.WORD

000000

010770

005122
000000
000000
003246

.WORD

.WORD
.WORD
. WORD

T1418::

.WORD

. WORD
.WORD
.WORD

ONECYL

REV

1702.

:LO LIMIT
sHI LIMIT

;LO LIMIT
sHI LIMIY

(NONE
)
(46.0MS)
(NONE
)
(NONE)
(16.515MS

3s)

CZRJLBO RPO7 FCTNL
OB ~4T NB NN -

TIMING LIMIT(S)

TEST MACRO Vv0O4.00 1

TABLES

DEC 83

J
12:59:38 PAGF

005221
003103

5EQ 0035

TIMING LIMIT(S)

:SPECS.

MESSAGE

SP7::

MESSAGE

003246

.WORD
.WORD
.WORD

TABLES

TABLES FOR ROTATIONAL AND TIMING TESTS

:SOHZ AND 60HZ TABLE
002512
002514
002516

.SBTTL

iROTATIONAL

]

AND LO/HI

LIMITS

MSGLMT

:LIMIT(S) MESSAGE

1603.
1702.

:LO LIMIT (16.515MS

sHI LIMIT

(16.515MS

: TIMING

TEST

.WORD
.WORD
. WORD

MSGLMT
0

500.

sLIMIT(S) MESSAGE
:NO LO LIMIT
sHI LIMIT (S5.0MS)

.WORD
.WORD
.WORD

MSGLMT
0

sLIMIT(S) MESSAGE
:NO LO LIMIT

002520
002522
002524

005221
000000
000764

SP10::

002526
002530
002532

005221
000000
004374

SP11::

002534
002536
002540

005221
000000
010770

SP12::

002542
002544
002546

005221
000000
003246

SP1418::.WORD
.WORD
. WORD

.WORD

.WORD
.WORD

MESSAGES

AND LO/HI

sHI

MSGLMT
0
46900.

:NO LO LIMIT

0
1702.

3#)

3%)

LIMITS

2300,

MSGLMT

LIMIT

(23.0MS)

:LIMIT(S) MESSAGE
sHI LIMIT (46.0MS)

sLIMIT(S) MESSAGE
iNO LO LIMIT
sHI LIMIT (16.515MS

002562
002564

000000
002754

.WORD
. WORD

002566

000000

. WORD

.BYTE

000

WORD COUNT

(MUST

BUFFER ADDRESS OR

ECI,

AND HCI

NEG.)

;FIRST

REG.

INDEX

:(11) TRACK ADDRESS OR
:LAST REG. INDEX

002561

DRIVE NUMBER
OFFSET VALUE OR FMT16,
COMMAND
PSEL AND Al17 AND A1l6

;REGISTER TABLE POINTER
:(10) SECTOR ADDRESS OR

:(12) CYLINDER ADDRESS
:(14) ERROR TABLE POINTER
;sPOINTS TO THE FIRST OF TWENTY
;LOCATIONS OF WHERE THE DRIVER
:IS TO STORE THE RHXX/RPO7
tREGISTERS ON AN ERROR. IF LEFT
:ZERO REGISTERS ARE NOT SAVED.
+(16) STATUS/ERROR INDICATOR
;:BIT15=1=>ERROR OCCURRED

.BYTE

000

002560

PBUWN=-O

.BYTE
.BYTE
.BYTE
.BYTE
.WORD
.WORD

000
000
000
000
000000
042762

OPB.A::

002550
002551
002552
002553
002554
002556

5£G 0036

ARARAARA

DRIVE PARAMETER BLOCIKKS

.SBTTL

800000

12:59:38 PAGE

1BITO7=1=>DONE

;BIT14-BIT09 AND BIT06-BIT03
; INDICATE TYPE OF ERROR

000

.BYTE

002601

000

.BYTE

002602
002604

000000
002754

. WORD
.WORD

:(0) DRIVE NUMBER
:(1) OFFSET VALUE OR FMT16, ECI,
; (2) COMMAND
;(3) PSEL AND A17 AND Al6
s(4) WORD COUNT (MUST BE NEG.)
;(6) BUFFER ADDRESS OR
sREGISTER TABLE POINTER
;(10) SECTOR ADDRESS OR
;FIRST

REG.

INDEX

;LAST REG.

INDEX

:(12) CYLINDER ADDRESS
:(14) ERROR TABLE POINTER
;POINTS TO THE FIRST OF TWENTY
sLOCATIONS OF WHERE THE DRIVER
1 IS TO STORE THE RHXX/RPO7
1REGISTERS ON AN ERROR.

002606

000000

. WORD

AND HCI

;(11) TRACK ADDRESS OR
2]

OPB.B::

gl\)

O:I 0000

002600

.BYTE
.BYTE
.BYTE
.BYTE
.WORD
. WORD

000
000
000
000
177776
042762

002570
002571
002572
002573
002574
002576

WO NTNDWN
-

CZRJLBO RPO7 FCTNL TEST MACRO vO4.00 1 DEC-83
DRIVE PARAMETER BLOCKS

1€ 4

LEFT

s ZERO REGISTERS ARE NOT SAVED.
:1(16) STATUS/ERROR INDICATOR
;8IT1S=1=>ERROR OCCURRED
;8IT07=1s>DONE

;BIT14-BITO9 AND BITO6-BITO3
s INDICATE TYPE OF ERROR
002610
002611
002612
002613
002614
002616

000
000
000
000
177776

042762

oPB.C::

.BYTE
.BYTE
.BYTE
.BYTE
.WORD
.WORD

+1(0)
1(1)
1 (2)
:(3)
1(4)
1(6)

DRIVE NUMBER
OFFSET VALUE OR FMT16, ECI,
COMMAND
PSEL AND A17 AND A16
WORD COUNT (MUST BE NEG.)
BUFFER ADDRESS OR

+REGISTER

TABLE POINTER

AND MHCI

CZRJLBOC RPO7 FCTINL TEST MACRO v04.00
DRIVE PARAMETER BLOCKS
58 002620

1 DEC 83

12:59:38 PAGF

000

.BYTE

000

.BYTE

000000
002754

.WORD
.WORD

O
REG

68
69 002626

000000

.WORD

002630
002631
002632
002633
002634
002636

000
000
000
000
000000
042762

.BYTE
.BYTE
.BYTE
.BYTE
.WORD
.WORD

O
O
O
O
O
DBUFF

002640

000

.BYTE

002641

000

.BYTE

86 002642

000000

.WORD

000000

.WORD

59
€0 002621
61
62 002622
63 002624
64
65
66
67

70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85

87 002644
88
89
90
91
92
93 002646
94
95
96
97

002754

OTADPB::

.WORD

REG

5EQ 0037
;(10)

SECTOR ADDRESS OR

sFIRST REG. INDEX
;(11) TRACK ADDRESS OR
tLAST REG. INDEX
1(12) CYLINDER ADDRESS
3(14) ERROR TABLE POINTER
sPOINTS TO THE FIRST OF TWENTY
;LOCATIONS OF WHERE THE LRIVER
:IS TO STORE THE RHXX/RPO7
;REGISTERS ON AN ERROR. IF LEFT

:ZERO REGISTERS ARE NOT SAVED.
:(16) STATUS/ERROR INDICATOR
;:8IT15=1=>ERROR OCCURRED
;8IT07=1=>DONE
:8IT14-BIT09 AND BITO6-BITO3
; INDICATE TYPE OF ERROR

;(0) DRIVE NUMBER
(1) OFFSET VALUE OR FMT16, ECT,
: (2) COMMAND
:(3) PSEL AND A17 AND A16
:(4) WORD COUNT (MUST BE NEG.)
;(6) BUFFER ADDRESS OR
;REGISTER TABLE POINTER
;(10) SECTOR ADDRESS OR
:FIRST REG. INOEX
:+(11) TRACK ADDRESS OR
:LAST REG. INDEX
:(12) CYLINDER ADDRESS
;(14) ERROR TABLE POINTER
;sPOINTS TO THE FIRST OF TWENTY
:LOCATIONS OF WHERE THE DRIVER
;IS TO STORE THE RHXX/RPO7
;REGISTERS ON AN ERROR. IF LEFT
:+ ZERO REGISTERS ARE NOT SAVED.
:(16) STATUS/ERROR INDICATOR
;:BIT1521=>ERROR
1BIT07=1=>DONE

OCCURRED

;BIT14-BITO09 AND BIT06-BITO3
: INDICATE

TYPE

ERROR

AND HCI

002650
002652
002654
002660
002662
002664
002666

000000
176700
000254
000050
000000
000000
000000

002670
002672
002674
002676
002700
002702
002704
002706
002710
002712
002714
002716
002720
002722
002724
002726
002730
002732
002734
002736
002740
002742

176700
176702
176704
176706
176710
176712
176714
176716
176720

176722

176724
176726
176730
176732
176734
176736
176740
176742
176744
176746
176750
176752

000240

1-DEC 83

12:59:38 PAGE

5EQ 0038

.SBTTL

DRIVE AND REGISTER STORAGE

UNIT::

.WORD

DRVNO:
:
DRVSN::

. WORD
.WORD

RPCS1::
RPWC:
:
RPBA:
:
RPDA:
:
RPCS2::
RPDS:
:
RPERL::
RPAS::
RPLA::
RPDB:
:
RPMR1::
RPOT:
:
RPSN:
:
RPOF
::
RPDC:
:
RPCC::
RPER2:
:
RPER3:
:
RPECL::
RPEC2::
RPBAE:
:
RPCS3::

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

RPADR:
: . WORD
RPVEC:
: .WORD
RHEXT:
: .WORD
RHTYPE:
;. WORD

. WORD
.WORD
.WORD

176700
254,5+32,
50
0
0
0

176700
176702
176704
176706
176710
176712
176714
176716
176720
176722
176724
176726
176730
176732
176734
176736
176740
176742
176744
176746
176750
176752

tUSED TO SELFCT A UNIT FOR TEST
s CONTAINS RPCS1 BASE ADDRESS
:CONTAINS VECTOR ADDRESS € BR LEVEL
sCONTAINS RH70 OFFSET TO RPBAE
tCONTAINS RHXX TYPE;

ATABIT::.BYTE

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

010
020
040
100
200

;
002754

2
4
10
20
40
100
200

;DESIRED SECTOR/TRACK ADDRESS

:RPO7
+RPO7
:RPO7
sRPO7
:RPO7
;RPO7
:RPO7

STATUS REGISTER
DRIVE STATUS
ERROR REGISTER 01
ATTENTION SUMMARY PSEUDO REGISTER
LOOK AHEAD REGISTER
DATA BUFFER
MAINTENANCE REGISTER o1

;:ORIVE TYPE REGISTER

tRPO7 SERIAL NUMBER
:RPO7 OFFSET REGISTER
:RPO7 DESIRED CYLINDER
:RPO7 CURRENT CYLINDER

tRPO7 ERROR REGISTER 42

:RPO7
:RPO7
:RPO7
;RH70
;:RH70

ERROR REGISTER 03
ERROR POSITION
ERROR PATTERN
REGISTER
REGISTER

;sDRIVE

+DRIVE
;:DRIVE
;DRIVE
;:DRIVE
sORIVE
;DRIVE
;DRIVE

TO €ACH DRIVES

STORAGE FOR DEVICE REGISTERS

REG: :

.BLKW 22.

;BYTE ADDRESS REGISTER

sATTENTION BIT

001
002

RH70=

:BASE ADDRESS USED FOR THE DRIVE
+WORD COUNT REGISTER

;ATTENTION BITS TABLE (ATABIT=8 BYTES)
s THIS TABLE CONTAINS THE CORRESPONDING BIT

002744
002745
002746
002747
002750
002751
002752
002753

RH11= O,

;:ORIVE NUMBER
:STORAGE FOR EACH S/N DIGIT

~NOUNDWNH-O

WE®~NOND W+

CZRJLBO RPO7 FCTNL TEST MACRO v04.00
DRIVE AND REGISTER STORAGE

:SAVE REGISTERS HERE

- o

~ NN
D W -

CZRJLBO RPO7 FCTNL TEST MACRO V0O4.00 1 DEC-83 12:59:38 PAGE
GLOBAL TEXT SECTION
.SBTTL

40
41
42
43
44
45
46
47
48
49

TEXT

N4
5EQ 0039

SECTION

;
i
:

THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,
MESSAGES, AND ASCII INFORMATION THAT ARE USED IN
MORE THAN ONE TEST,

:NAMES OF DEVICES SUPPORTED BY PROGRAM
003030
003030

18
24
25
26
27 003036
003036

28
35
36
37
38

GLOBAL

122

120

060

LSDVTYP:

.ASCIZ
.EVEN

;

122

120

060

TEST DESCRIPTION

tSDESC::

/RPO7/

FORMAT

.ASCIZ
.EVEN

/RPO7 FUNCTIONAL

STATEMENTS USED

TEST/

IN PRINT

CALLS

003064
003067

116
101

CRLF::
OH25A::

_ASCIZ
.ASCIZ

/sN/
/#ADRIVE s01%N/

003105
003154

101
101
116
116
116
116
116
116
101
116

OHA4A::
OH44D::

.ASCIZ
.ASCIZ

/#ACYL #D3#A.
TRK #D2WA.
/#ARPER2 (HEX) STHTHTHT/

003203
003274
003354
003445
003525
003617
S0 003701
S1 003721

53 003740
003771
55 004027
56 004104
57
58 004172
59 004246
60
61 004317
62 004403
63 004427
64 004432
65 004511
66 004550
67 004614
68 004633
69
70 004674

045

DHA4E::
DHA4F
::
DH44G::
DH44H::
DHA44I::
DHA4J::
OH44K::
OH44L::

.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/#NSADRIVE
RPCS1
RPWC
RPBA
RPDA
/#NEO6MA
#06%A
w%06%A
H06%A
%068A
S06%A
/#N#ARPER1
RPAS
RPLA
RPOB
RPMR1
/#N#06%A
#068A
®06%A
®O6%A
%068A
#06%A
/#NEARPOF
RPOC
RPCC
RPER2
RPER3
/#NSO6SA
#06%A
HO6%A
%06%A
%06%A
wH06%A
/#ARPBAE
RPCS3/
/#N#O6%A
®06%N/

DH45A::
DH458::

.ASCIZ
.ASCIZ

/#ADRIVE
CYL
/#0S%A
#D3sA.

RPCS2
%06/
RPOT
%06/
RPEC1
H06%N/

RPDS/

RPSN/
RPEC2/

101
117
101
104

OH45D::

.ASCIZ

/#D3%A.#S38D
%S38D3%A
3%A.%S
. ¥S38D3INA
3%D38A
. 8S3HD3IKA . SN/
.

101
117

DHS2A::
DHS528::

.ASCIZ
.ASCIZ

/#ADRIVE
CYL
/w0S#A
#D3%A.

116
116
124
116
101
101

NOCLK:: .ASCIZ
OSNMSG:: .ASCIZ
SNDIGT:: .ASCIZ
WRTENM:: _ASCIZ
SEAERR:: .ASCIZ
SEABAD:: .ASCIZ
RBOTST:: ,ASCIZ

101

101
045

SEC sD2sA.

116

DHASC::

.ASCIZ

/#AGOCYL

GOTRK

TRK
SECSN/
#D3I®A. %D3ISA.%N/
GDSEC

BOCYL

BOTRK

BDSECSN/

TRK
SEARCH-SEC
TARGET-SECHN/
%D3%A.¥S88D3%A. #S8SD3ISA, SN/

/#NsANO P-CLOCK, TIMING TESTS WILL NOT BE EXECUTED®N/
/#N®ADRIVE #01%A, PG/
/#T/
/#NeATEST #D2sA. SKIPPED, NOT ENABLED BY USER®N/
/#AUNRECOVERABLE SEARCH ERRORSN/
/#ASEARCH FAILED AFTER 16. RETRIESSN/
/#AABORT TESTeN/

POSERR::

.ASCIZ /#APOSITION ERROR,

ROTATE::

.ASCIZ

/#NwAROTATIONAL

TEST ABORTED®N/

SPEED

TIMESSNSA

CZRABO RPOT FCTNL

GLOBAL

TEXT

SECTION

004 736
005010
005055
005122
005167
005204
005221

005237
005270

005327
005362

110
111
112
113
114
115
116

TEST MACRO vO4.00 1-DEC 83 12:59:38 PAGE

286G G040

116
116
116
116
101
101
101

REV::
MSGLMT::

.ASCIZ
_ASCIZ

045

116
116
116
116

UNSMSG::
NEDMSG::
OFLMSG::
NOTMSG::

.ASCIZ /#NSADRIVE #018A UNSAFESN/
.ASCIZ /8NSADRIVE w018A NON-EXISTENYSN/
.ASCIZ /uNSADRIVE wQ1%wA OFF -L INESN/
.ASCIZ /8NSADRIVE #01%A NOT AN RPO7sN/

045
045
045

ONECYL::
AVERGE::

,ASCIZ /8NSAONE CYLINDER SEEK TIMESENSA ¢ FORWARD/
.ASCIZ /SNBAAVERAGE SEEN TIMESENEA ¢ FORWARD/

MXSEEX::
.ASCIZ
MARK::
_ASCI1Z

FWD: :

122
122
122
127
104
104
114

110
110
110
122
101
122

117

123

005733
005755
005776
006017
006054
006121
006154

127

122
122
101
122
114

006564
006641
006703
006726
006746
006763
117 007017
118
119 007054
120 007107
121 007134
122 007156
123 007224
124 007255
125 007305
126
127 007335

18 1

045
045
045
045
045
045
045

005420
005465
005527
005605
005627
005647
005705

006201
006250
006274
006324
006360
006417
006455
006525

bids

130

.SBTTL

GLOBAL ASCII MESSAGE

1 1.}

LASCIZ

EM2::
EM3:;

.ASCIZ
.ASCI2

EMS::
EM6: :
€M7

.ASCI2
.ASCIZ
.ASCIZ2

EMa:

105
114

102
105
101
105
122
122

117

101

122
103
116
122
122

LASCIZ

/7ENSAMAXTMUM SEEK
/8NSAADORESS MARK
/8A & FORWARD/
/8A ¢ REVERSE/
/8A ¢ LIMIT(S)/

.ASCIZ

TIMESHNESA ¢ FORWARD/
DETECT TIMESESNSA o /

SECTION

/RHXX CONTROL BUS PARITY ERROR MCPt -1/
/RHXX DATA BUS PARITY ERROR MOPE -1’
/RHXX ILLEGAL CONDITIONS SET (NED,NEM,PGE
,MxF )/
/WMRITE CHECK ERROR/
/DATA LATE ERROR/
/DRIVE PROGRAMMING ERROR (PGE )/

/LOSTS BIT

CLOCK

(LBC)/

EM11::
EM12::
EM13::
EM1e::
EM15::
EM16::
EM17::

.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
.ASCI2
.ASCIZ
.ASCIZ

/WRITE CLOCK FAILS/
/WRITE LOCK ERROR/
/DATA ERROR (DCK)/
/DRIVE BUS PARITY ERROR

(DPE)/

/ILLEGAL

(ILF,ILR,RMR)/

EM20::
EM21::
EM22::
€EM23::
EM24::
EM2S::
EM26::
EM27::

.ASCIZ
.ASCIZ
.ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ
,ASCIZ

SCLOCK (KW11-P) OVERFLOW IN TIMING TESTa

EM30::
€EM31::
EM32::
EM33::
EM34;::
EM3S::
EM36::

.ASCIZ
,ASCIZ
.ASCIZ
,ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ

SFATAL MASSBUS PARITY ERROR (MCPE=1 OR PAR=1)3
SOFFLINE OR UNSAFE DRIVE REQUESTEDS

EM4l1::
EM42::
EMa3::
EM44::
EMAS::
EM46::

_ASCI2
_.ASCI2
_ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ

/O0PERATION

CONDITIONS

/ADORESSING
/SEEK ERROR

SET

ERROR ( IAE,AOE
)/
(SKI,LCE)/

/EARLY WARNING (EWN)/
/READ & WRITE HEAD FAILS/
/DATA FORMAT BIT ERROR (FER)/
/HEADER INFORMATION ERROR (MHCE )/

SDORIVE HAS BECOME NON-EXISTENTS
SORIVE HAS NOT RESPONDED TO PORT REQUESTS
9SOF TWARE TIMEOUT ON THIS DRIVES

/WRITE -READY

UNSAFE/

/DC POWER UNSAFE/

/INDEX UNSAFE/
/PROCESSOR HANDSHAKE

FAILURE/

/DRIVE OFFLINE OR NOT AN RPO7/

120
115
103
111
122
105
116

103

EMA7::

.ASCIZ

/IMPROPER HEADER DATA/
/ECC LOGIC FAILURE/
/MISC DRIVE ERROR; RPER1, RPER2,
/DRIVE TIMING ERROR (DTE)/
/HEADER CRC ERROR (HCRC)/
/UNCORRECTABLE ECC ERROR/

101

123

EMS50::

.ASCIZ

/LAST

BLOCK

INCOMPLETE

TRANSF

(OPI)/

'LBT'

NOT

SET

RPER3/

AFTER

READING LAST

SECTOR/

CZRABO RPO7 FCTNL
GLOBAL

128
129
1%C
131
132
13%

147
148

TEST MACRO vO4.00 1 DEC-83 12:%9:38 PAGF

ASCII MESSAGE

007427
007521
007547
007610

SECTION

101
114
122
122

104

117
126

120

122
123
104
104

EMS1::
EM52::
EMS4::
EMSS::

L,ASCIZ
.ASCIZ
,ASCIZ
LASCIZ

.EVEN

18 ?2

/ADRS OVFRFLOW BIT 'AOE* NOT SET AFTER READING LAST
/LOST REVOLUTION ERROR/
/RPDS, "OM
NOT SET ON OFFSET CMD/
/RPDS, ‘OM’ NOT RESET ON RETURN TO CENTER LINE CMD/

SEQ 0A1
SECTNR/

d®~NOW

& h)
r

CZRULBO RPO7 FCTNL TEST MACRO vO4.00
GL 0OBAL ERROR REPORT SECTION

DEC-83
.SBTTL

007672
007672
007676
007702
007706
007712
007716
007720
007722
007726
007732
007736
007742
007746
007752
007756
007762
007766
007772
007774
007776

010002
010006
010012
010014
010016
11 0310022

013746
013746
013746
012746
012746
010600
104414
062706
013746
042716
004737
012746
012746
012746
012746
012746
012746
010600
104414
062706

010072

012746
012746
010600
104415
062706
013746
013746
013746
013746
013746
013746
013746
012746
012746
010600
104415
062706

010076
010102
010106
010110
010112
14 010116
010122
010126
010132
010136
010142
010146
010152
010156
010162

012746
012746
010600
104415
062706
013746
013746
013746
013746
013746
013746
013746
012746
012746
010690

010026

010032
010036
010042
010045
010052
010056

010062
010066
010070

002302
002300
002276
003105
000004

OHa4;

12:59:3%38 PAGE
GLOBAL

SEC.RD,
TRK.RD,

MOV

CYyL.RD,

MOV

MOV
TRAP
ADD
MOV

8IC
JSR

MOV
MOV
MOV
MOV
MOV
MOV
MOV

TRAP

ADD

MOV
MOV

MOV
TRAP
ADD
MOV

MOV

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADO

MOV
MOV
MOV
TRAP
ADD
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

MOV

5EQ GGAz

ERROR REPORT

MOV
MOV
MOV

SECTION

(SP)
(SP)

(SP)

ODH4A4A, (SP)
04, (SP)

SP.RO
CS4PNTB

a12,5SP

REG+40, (SP)
0177400,(SP)
PC,OCTHEX
OPSTACK+6,
-(
OPSTAC
.4,
K (
OPSTA
2,
CK
-(
OPSTACK, -(SP

sPRINT

RPERZ2

ERROR

CODE

IN HEX

;PRINT

'DRIVE

RPCS1

RPWC

RPBA

RPDA

RPCS2

RPDS"

1PRINT

'RPER1

RPAS

RPLA

RPDB

RPMR1

RPDT

RPSN

#0H44D, -(SP)
05, -(SP)

SP,RO
CIPNTB

014 ,S5P

ODMHAAE, -(SP)

SP,.RO
CePNTX
04 ,5P

REG.12,-(SP)
REG+10,-(SP)
REG+06, -(SP)
REG+04, -(SP)
REG+02, -(SP)
REG, -(SP)

ORVNO, -(SP)
#0H44F
, -(SP)
SP.RO

CIPNTX

022,5P

oDH44G, -(SP)
SP,RO
CIPNTX

04, 5P
REG+30, -(SP)

REG.24, -(SP)
REG+22, -(SP)

REG+20, -(SP)

REG+16, -(SP)
REG+14,-(SP)

#0H44H, -(SP)

010, -(SP)

SP,RO

CZRJLBO RPO7 FCTNL

GLOBAL ERROR REPORT

TEST MACRO vO4.00 1-DEC 83
SECTION

010164
010166

104415
062706

16 010172
010176
010202
010204
010206
17 010212
010216
010222
010226
010232
010236
010242
010246
010252
010256
010260
010262
18 010266
19 010272
20
21 010274
010300
010304
010306
010310
010314
010320
010324
010330
010334
010336
010340
23 010344
24 010344
010350
010354
010356
010360
25 010364
010364
26
27 010366
28 010366
010372
010376
010400
010402
29 010406
010412
010416
010422
010426
010432
010436

012746
012746
01060V

104415
062706
013746

013746
013746
013746
013746
013746
013746
012746
012746
010600
104415
062706
005737
001424

000022

003525

000001

000004
003022
003020
003016
003014
003012
003010
003006
003617
000010

000022
002662

003701
000001

062706
013746
013746
012746
012746
010600
104415
062706

000004
003026
003024
003721
000003

012746
012746
010600

000010

MOV
MOV
MOV
TRAP
ADD
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MCv
MOV
TRAP
ADD

oDH441, (SP)
@1, -(SP)

003064
000001

MOV

MOV
MOV
TRAP
ADD
MOV
MOV

MOV
MOV

104414

062706

L10002:

104423
012746
012746
010600
104414
062706
013746
013746
013746
013746
012746
012746
010600

CSPNTX
022,5P

TST

18:

003740
000001

002306
002310
002304
002664
003771
000005

OH4S:;
:

19 1

TRAP
ADD

BEQ

012746
012746
010600

104415

12:59:%8 PAGE

sPRINT

RPCC

REG+42, -(SP)

REG+40, -(SP)
REG+36, -(SP)
REG+34, -(SP)

REG+32, -(SP)
oDHA4y, (SP)
010, -(SP)

SP,RO
COPNTX

022,SP
RHTYPE
14

;IS IT RH70 CUNTROLLER
1BR

IF NO

;PRINT

oDH44
- (SP)
K,
a1, -(SP)

SP,RO
CS$PNTX

04,5SP
REG+52, -(SP)
REG+50, -(SP)
o0H44
- (SP)
L,
03,-(SP)

MOV

OCRLF,

010,5P

;CR LF
(SP)

MOV
MOV
TRAP
ADD

SP,RO
C$PNTB

TRAP

C$MSG

MOV
MOV
MOV

e1,-(SP)

MOV
MOV

RPDC

04
, 5P
REG+46, -(SP)
REG+44, -(SP)

SP,RO
CSPNTX

MOV
MOV
MOV
MOV
MOV

' RPOF

SP,RO
C$PNTX

MOV
TRAP
ADD

TRAP
ADD

5EQ 0043

04,SP

ODHASA, -(SP)

SP,RO
C¢PNTB
04,5P

SEC.DS, -(SP)

TRK.DS, -(SP)

CrL.DS, -(SP)
oDH458, -(SP)
95, -(SP)
SP,RO

*RPBAE

RPCS3’

RPERZ

RPER3

RPEC1

RPECZ’

CZRJLBO RPO7 FCTNL TEST MACRO vO4.00
GLOBAL ERROR REPORT SECTION
010440
010442
%0 010446
010452
010456
010460
010462
31 010466
010472
010476
010502
010506
010512
010516
010522
010526
010530
010532
32
33 010536
010542
010546
010550
010552
34 010556
010556
35
010560
37 010560
38 010566
39 010574
010600
010604
010606
010610
40 010614
010620

41
42

010624
010630
010634
010640
010644
010650
010652
010654

010660
010664
010670
010672
010674
43 010700
010700
44

45 010702
010702
010706

104414
062706
012746
012746
010600
104415
062706
013746
013746
013746
013746
013746
013746
012746
012746
010600
104415
062706
012746
012746
010600
104414
062706

12:59:38 PAGE
TRAP
ADD
MOV
MOV
MOV
TRAP
ADD
MOV

000014
004027
000001

000004
002302
002300
002276
002306
002310
002304
004104

MOV

MOV
MOV
MOV
MOV
MOV

000007

MOV
MOV
TRAP
ADD

000020

003064
000001

L10003:;

104423
013737
113737
012746
012746
010600
104414
062706
013746
013746
013746
013746
013746
012746
012746
010600
104414
062706

002642
002641
004172
000001

012746
012746
010600
104414
062706

003064
000001

002304
002310

DHS2:

MOV
MOV
MOV
TRAP
ADD

19-2

5EG GGa4

CsPNTB

#0HASC, (SP)
81, (SP)

SP,L,RO
CS$PNTX
04 ,5P

SEC.RD, -(SP)

TRK.RD, -(SP)

CYL.RD, -(SP)
SEC.DS,. -(SP)

CvyL.DS, -(SP)
#DHASD, -(SP)
87,-(5P)

SP,RO
CSPNTX
#20,5P

OCRLF,

(SP)

4 ,5P

C$MSG

MOV

OTADPB+12,CYL.DS
DTADPB+11,TRK.DS
@DHS52A, -(SP)

TRAP
ADD

;GET DESIRED CYLINDER
;GET DESIRED TRACK

o1, -(SP)

SP,RO
CSPNTB
04 ,SP

TRGSEC, -(SP)
SRHSEC, -(SP)

TRK.DS, -(SP)

CvL.DS, -(SP)
ORVNO, -(SP)
o0H528, (SP)
6, -(SP)
SP,RO
C¢PNTB

000016

016,5P

®CRLF, -(SP)
SP,RO
CSPNTB

L 10004;

002664
0030L7

sCR-LF

SP,RO
C$PNTB

TRAP

MOVB
MOV
MOV
MOV

002254
002252
002310
002304
002664
004246

104423
013746
012746

DEC 83

| 4

DH2S:
:

04,SP

TRAP

C$MSG

MOV
MOV

URVNO, -(SP)
QDH25A,

(-P)

1CR-LF

CZRJLBO RPO7 FCTNL TEST MACRO vO4.00
GLOBAL ERROR REPORT SECTION
010712
010716
010720
010722

47
48 010726

010732
010736
010740
010742
49 010746
010746
50

012746
010600
104414
062706
012746
012746
010600
104414
062706
104423

1-DEC-83

12:59:38 PAGE

000002

MOV
MOV
TRAP
ADD

000006
003064
000001

000004

.10005;

MOV
MOV
MOV
TRAP
ADD

TRAP

19 3

G4
5EQ 0045

02, (SP)
SP,RO

C$PNTB
%6, 5P

ACRLF,
21,

(SP)

SP,RO

CSPNIB
#4,SP

C$MSG

siCR LF

CZRJLBO RPO7 FCTNL

GLOBAL

- Pt Pt ot Pt Pt

[

[+
BN AND
NN - QOB

NT N N

SUBROUTINES

TEST MACRO v04.00 1-DEC-83

SECTION

12:59:38 PAGE

.SBTTL

-4
20

5EQ 0046

GLOBAL SUBROUTINES SECTION

1 ¢SAVE RO-RS

;oCALL:
010750
010750
010752
010754
010756
010760
010762
010764
010770
010774
011000

;

010046
010146
010246
010346
010446
010546
016646
016646
016646
000207

SAVREG:

000020
000020
000020

JSR

PC,SAVREG

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTS

RO, -(SP)
R1, -{SP)
R2, -(SP)
R3, (sSP)

$ sPUSH RO ON STACK
1 ;PUSH R1 ON STACK
1 sPUSH R2 ON STACK

;1 sPUSH R3 ON STACK

s :PUSH R4 ON STACK

::PUSH RS ON STACK

$ s SAVE PUSHED PARAMETER
: $SAVE PC OF MAIN FLOW
s $SAVE PC OF

SAVREG CALL

:*RESTORE RO-RS

011002
011002
011006
011012
011016
011020
011022
011024
011026
011030
011032

s «CALL
:
;®

012666
012666
012666
012605
012604
012603
012602
012601
012600
000207

000020
000020
000020

RESREG:

JSR

PC.RESREG

MOV
MOV
MOV
MOV
MOV
MOV
MOV

(SP).,20(SP)
(SP)+,20(SP)
(SP)+,20(SP)
(SP)+,RS

MOV

MOV
RTS

s sRESTORE PC OF RESREG CALL

s sRESTORE

MAIN FLOW
PARAMETER
RS
R4
R3
R2
INTO R1
INTO RO

; tRESTORE PU SHED
; sPOP STACK INTO
3 sPOP STACK INTO
s ;POP STACK INTO
::POP STACK INTO
: ;POP STACK

; ;POP

STACK

CZRJULBO RPO7 FCTNL TEST MACRO v04.00 1 DEC-83 12:59:38 PAGE 21

SEG 0047

SUBROUTINES SECTION

O~NO
N DN -

GLOBAL

$AUTO SIZE FOR RH70 CONTROLLER AND DETERMINE

:32 REGISTERS
; CALL
:

;RS MUST

011034

011040
011044
011050
011056
011060

011064
011070
011072
011074
011102
011104
011106
011110
011116
011120
011124

011126
011130
011134
011136
011140
011144
011150
011152
011154
011156
011162
0l1164
011170
011174

005037
005037
013746
012737
011500
062700
012702
005720
005720
012737
005720
005302
001375
012737
000403
012716
000002

011500
013702
001415
060002
052710

022712

001007
005012

011046
042726
001002
005237
012637
000207

002660
002662
000004
011120

SIZE70:

JSR

PC,SIZE70

CONTAIN POINTER

CLR
CLR

IS JUMPERED FOR 22 OF

sCALL ROUTINE
TO NEW RPCS1

RHEXT
RHTYPE

BASE

ADDRESS

;:CLEAR RPBAE OFFSET
1CLEAR RHXX TYPE REGISTER (RM11)

000050
000012

MOV
MOV
MOV
ADD
MOV

000050

18T
MOV

(RO)+
050 ,RHEXT

;TRAP IF NOT A VALID RPCS3
sLOAD OFFSET FOR RPBAE (22 REGISTER RH)

DEC
BNE
ggv

R2
14
§74.RHEXT

2?;

$
034 ,(SP)

sDONE WITH ALL 32 REGISTERS ?
;BR IF NO
sLOAD OFFSET FOR RPBAE (32 REGISTER RH)

000074

011126

002660

000004

TSTY

002660

1s¢:

002660
24:

3s:

MOV

8EQ
ADD

ERRVEC, -(SP)
02% ERRVEC
(RS),RO
#50,R0
#10. ,R2

3 SAVE CONTENTS OF ERROR VECTOR
;SETUP ' TRAP' RETURN ADDRESS
;GET RPCS1 ADDRESS
;GET REGISTER OFFSET FOR RH70
;GET NUMBER OF REGISTERS 7O CHECK

(RO)»
(RO).

(RS),RO

RHEXT ,R2

RO,R2

; TRAP IF NOT A VALID RPBAE

s TRAP IF NOT A VALID REGISTER

;SETUP

sGET RPCS1 REGISTER
;GET RPBAE REGISTER OFFSET

sBR IF NONE
:GET

001400
000003

BIS
cMP
BNE
CLR

QA17'A16,(RO)
03,(R2)
44
(R2)

176377

8IC

OtC<Al17!'A16>,(SP).

002662
000004

MOV

BNE
INC

MOV

RTS

(RO),

43
RHTYPE

(SP)

(SP)+ ,ERRVEC

RETURN ADDRESS

RPBAE REGISTER

$1SET EXTENDED ADDRESS BITS IN RPCS1
1 ARE THE EXTENDED BITS SET IN RPBAE ?
:BR IF NO
;CLEAR EXTENDED ADDRESS BITS IN RPBAE
; SAVE

RPCS1

;BR IF NO
;SET RHXX

sRESTORE

REG CONTENTS

:ARE THE EXTEND BITS CLEAR IN RPCS1 ?
TYPE REGISTER

CONTENTS

(RH70)

ERROR

VECTOR

\J/§
CZRJLBO RPO7 FCTNL

TEST MACRO v04.00 1-DFC-83

SECTION

ST NN
e

SUBROUTINES

12:59:38 PAGF

:#THIS

SEQ 0048

INTEGER DIVIDE ROUTINE

ROUTINE

WILL

DIVIDE

32-BIT

TWO'S

CUOMPLEMENT

INTEGER

:¢DIVICEND BY A 16 BIT TWO'S COMPLEMENT INTEGER DIVISOR GIVING
:*A 16 BIT TWO'S COMPLEMENT INTEGER QUOTIENT AND A 16 B1T REMAINDER.
:¢DIVISION WlLL BE PERFORMED SO THAT THE REMAINDER IS OF THE

:#SAVE
-

[ 2K 2K 2R 3K BN BE R

BN BE BE N

IR 4

s «CALL:

O®

GLOBAL

011176
011200
011202
011204
011206
011210

011212

011216
011222
011226
011230
011234
011236
011240
011242
011246
011250
011252
011260
011264
011266
011272
011274
011276
011300
011302
011304
011306
011310
011312
011314
011316
011320

005046
010046
010146
010246
010346
005046
012746
016601
016600
100005

$DIV:

000003

016602
002407
003011
052766
012700
000424
005266
000401
005402
000241
000405
006100
010003
060203

000020

103001
010300
006101
005316
0C1370

000003

177777

000002

1s:

000014

3.
44:

Ss:

DIVIDEND.

LOW DIVIDEND, (SP)
HIGH DIVIDEND, (SP)

;; THF
AS

DIVISOR, -(SP)

HIGH DIVIDEND MUST BE

LARGE

PC,$01IvV

Mv n.o

IMPLIES NO ERROR
IMPLIES ERROR OCCURRED
uc l-o
DIVIDE OVERFLOW OCCURRED
uc "y 1
ATTEMPTED TO DIVIDE By ZERO

RETURN
uvu,l

THE

DIVISOR

NO ERROR

OVERFLOW

DIVIDE BY ZERO

TOP
+2

REMAINDER

ALL
ALL

CLR

QUOTIENT
-(SP)

RO, -(SP)
R1,-(SP)

MOV
MOV
MOV

017.,-(SP)

MOV

BLT
8GT
8IS
INC
BR
NEG
CLC

ROL
MOV
ADD
MOV
ROL

DEC
BNE

ZEROS
ZEROS

$sCLEAR DIV STATUS WORD:

MOV
MOV
MOV
MOV

B8PL
DECB
NEG
NEG
S8C

1/2

: tQUOTIENT & REMAINDER ARE ON THE STACK

STACK

8CC

64:

THE

JSR

MOV
28:

MOV
MOV
MOV

CLR

000021
000024
00002¢

105366
005400
005401

SIGN

s sPUSH
;3:PUSH
3 sPUSH
1 sPUSH
s 3SAVE

3(SP)

;s sKEEP TRACK
: 1AND NEGATE

20(SP),R2

2
3¢
03,14(SP)
€-1,R0
74

SIGNS

:3SETUP THE ITERATION COUNTER

;sPICKUP

RO
R1
RO

RESERVED TO SET C AND Vv BITS

RO ON STACK
R1 ON STACK
R2 ON STACK
R3 ON STACK
A PLACE FOR

24(SP),R1
22(SP),R0O
1

ONES
ONES

THE

DIVIDEND

3 sCHECK THE SIGN

1 s NUMBER

;s sPICKUP

OF THE SIGN
THE ORIGINAL

THE DIVISOR

: ;CHECK THE SIGN
:30IVISOR OF 0 IS A NO-NO
$33SET

*C"

IN DIV

STAT

SISEITREHAINDER TO ALL ONES

WORD

2(SP)

1 iEX
1 sKEEP TRACK OF DIVISORS SIGN

i1 iINEGATE THE ORIGINAL NUMBER

s 3CLEAR

"C"

IN PSW

1 iSTART FORMING QUOTIENT
s sPOSITION MSB'S
11COPY
s sCOMPARE DIVIDEND & DIVISOR
$11BR IF DIVIDEND > DIVISOR
1 tREMAINDER

AFTER

THIS LOOP

1 sQUOTIENT BIT ENTERS HERE
1 :OONE?

:1BR

IF NO

CZRJLBO RPO7 FCTNL
GLOBAL

SUBROUTINES

58 011322
59 011324
€0 011326
61 011334
62 011336
63 011340
64 011342
65 011344
66 011346
67 011350
68 011354
69 011356
70 011360
71 011362
72
73
74
75
76
77
78
79

80
81
82
83

011364

011370
011374
011376
011400
011402
011404
011406
011410
011412
011414
011416

TEST MACRO vO4.00 1-DEC-83

SECTION

005701
100005
052766
005000
010001
005726
005716
002004
005400
105066
005316
005726
001401
005401
010166
010066
012603
012602
012601
012600
006226
000242
001401
000262
012616
000207

000002

000014
7%:
8s¢:

12:59:38 PAGE 22-1
TST
8PL
8IS
CLR

MOV
TST
TST

BGE

NEG

000001
9s:

000020
000016

10¢:

CLRB
DEC

TST
BEQ
NEG

MOV
MOV
MOV
MOV
MOV
MOV

ASR

11¢:

CLv
BEQ
SEV

MOV
RTS

R1
8%

42,14(SP)

RO
RO,R1

<4}
5EQ 0049

: ;OVERFLOW?
13BR IF NO

$33SET v IN DIV STATUS WORD
: :SET REMAINDER TO ALL ZEROS
: sCOPY REMAINDER INTO QUOTIENT
: ;iCLEAR COUNTER FROM STACK

(SP).
(sSP)

s tREMAINDER

1(SP)
(SP)
(SP)«

;s :NEGATE REMAINDER
: sCLEAR SIGN
s3BUT DON'T FORGET QUOTIENT
; 1QUOTIENT SIGN CORRECTION NEEDED?

9s
RO

10¢

R1
R1,20(SP)
RO, 16(SP)

(SP)+,R3
(SP)+,R2
(SP)+,RL
(SP)+,RO
(SP)«
114

(SP)+,(SP)

::BR

IF NO

;38R

IF NO

SIGN CORRECTION NEEDED?

: tINEGATE QUOTIENT

:sRETURN QUOTIENT

AND

; sREMAINDER TO USER
;;POP STACK INTO R3
s ;POP STACK INTO R2
;:sPOP
s 3POP

STACK
STACK

INTO R1
INTO RO

:;sCOPY C IN PSW PER C IN DIV STAT WORD
; ;CLEAR V IN PSW
::V=0 IN DIV STAT WORD, EXIT
;sV=1 IN DIV STAT WORD, COPY V IN PSW
; sMOVE RETURN ADR UP ONE PLACE, OVERRIDING DIVISOR
;;RETURN WITH SP POINTING

TO REMAINDER

CZRJLBO RPO7 FCTNL
GLOBAL SUBROUTINES

TEST MACRO
SECTION

v04.00

1 DEC 83

12:59:38 PAGE 23

OO ~NT NBWN)

INTEGER MULTIPLY

@
@
@e
4c

MOV
MOV

JSR
RETURN

5EQ 0050
ROUTINE

MULTIPLER, -(SP)
MULTIPLICAND, -(SP)
PC, $MULT

:sPRODUCT

STACK

PROCUCT

TOP
2

MSB’
S

MOV
MOV
MOV

R1,-(SP)
R2, -(SP)

IS ON THE STACK

@
@

011420
011422
011424
011426
011430
011434
011436
011440
011442
011446
011450
011452
011454
011460
011462
011464
011466
011470
011472
011474
011476
011500
011502
011504
011506
011510
011512
011516
011522
011524
011526
011530

010046
010146
010246
005046
016601
100002
005216

005401
016602
100002
005316
005402
012746
005000
103001
060200

IR 2B B

®¢

BN SN 4

: +CALL

CLR

000012

000014

MOV
8PL

1¢:

LSB'S

(SP)
12(SP),R1

INC
NEG
MOV
8PL

2%:
34:
44
;

;s sMAKE

THE MULTIPLICAND POSTIVE

; sMAKE

THE

s:GET THE MWL TIPLIER
;: ;B8R IF PLUS
; sUPDATE THE SIGN KEY

DEC

000021

: 1PUSH RO ON STACK
::PUSH R1 ON STACK
3 1PUSH R2 ON STACK
; ;CLEAR THE SIGN KEY
$;GET THE MULTIPLICAND
::BR IF PLUS
::SET THE SIGN KEY

NEG
MOV

MWL TIPLIER POSTIVE

::SET THE LOOP COUNT
;sSETUP FOR THE MULTIPLY LOOP

CLR
8CC

:3sDON'T ADD IF MULTIPLICAND = O

ADD
ROR

: ;POSITION THE PARITIAL PRODUCT AND
;s THE MULTIPLICAND
34

(SP)+,(SP)

000012
000010

Ss:

RO
R1
RO

(SP)+

“SSSI?LhOBITS OF

$ :SHOULD PRODUCT BE NEGATIVE?
::6G0 TO EXIT IF NO

$: YES--SO MAKE

siLSB'S

(SP)+,R1
(SP)+,RO

;1 sPOP STACK
:sPOP STACK

: sCLEAR SIGN INFO. OFF OF STACK
:sPUT THE PRODUCT ON TrHE STACK (MSB'S)

RO,12(SP)
R1,10(SP)

(SP)+,R2

THE MULTIPLICAND BEEN DONE?

:sPOP STACK INTO Re

INTO R1
INTO RO

CZRJLBO RPO7 FCTNL

RNY NV, I NTT, VR

SUBROUTINES

Vele

GLOBAL

TEST MACRO v0O4.00

SECTION

1-DEC-83

[14

12:59:38 PAGE 24

5EQ 0051

;OCTAL TO HEXADECIMAL CONVERSION ROUTINE
011532
011534
011536
011542
011546
011552
011554
011556
011560
011564
011566
011572
011574
011576
011600
011602

011604
011610

011614
011616
011620
011624
011626
011630
011632
011636
011640
011644
011646
011652
011654
011656
011660
011662
011664

011666

010146
010246
012700
012702
012701
005010

OCTHEX:
011666
000004
000004

006310

000241

006366
103002
052710
005301
003367
005720
005302
003361
012702
012700
005710
003005
012720
005302
003372
000412
021027

101003

062720
000402
062720
005302
003366
012602
012601
012616
000207

1$:

MOV

2$:

ASL

000006
000001

000004
011666

3%:

CcLC
8CC
BIS
DEC
B8GT
TST

DEC
8GT

MOV
MOV
44:

TST

B8GT

MOV

Ss:

000060
000067

CLR
ASL

000060

000011

MOV

MOV
MOV
MOV

6%:
7%:

8¢:

PSTACK:

DEC
8GT
B8R
cMP

BHI
ADD
B8R
ADD
DEC
8GT
MOV
MOV
MOV
RTS
.BLKW

R1,-(SP)
R2,-(SP)
#PSTACK,RO
04 ,R2
o4 ,R1

(RO)
(RO)

; SAVE R1

$ SAVE R2
;SET UP THE BUFFER ADDRESS
;GET THE ITERATION VALUES
;AND DUPLICATE FOR TWO LOOPS
;INITIALIZE

THE

BUFFER

;MOVE THE PREV1OUS BIT(S) OVER

6(SP)
34
#8IT0,(RO)

R1
2

:CARRY

;ROTATE

= 0

A BIT

s IF ZERO,
;MARK

THE

FROM

TEST

VALUE

BIT

AS BEING

SET

:ONE LESS ITERATION TO GO

:BUT NOT DONE INTIL

(RO).

THE

SKIP NEXT INSTRUCTION

= 0!

sNEXT BUFFER LOCATION

S$
460,(RO)+
R2
4
8s

;ONE LESS ITERATION T0-GO
;IF NOT ZERO, KEEP GOING!
;GET THE NEW ITERATION COUNT
;AND GET THE BUFFER ADDRESS AGAIN
;sCONTENTS ZERO?
;IF NOT, SKIP NEXT
;SET THIS CHARACTER = NULL
;:ONE LESS CHARACTER TO GO
;s IF NOT ZERO, KEEP GOING
1tDONE, RETURN!

64
060,(R0O).

sMAKE NUMERIC ASCII

04 ,R2
OPSTACK,RO

(RO)

(RO}, 011

055.,(RO)
R2

St
(SP). ,R2
(SP)Y+,R1
(SP)+,(SP)

10.

;ALPHA OR NUMERIC CHARACTER?

;IF >

11,

ALPHA!

s AND GO-ON

sMAKE HEX ASCII

;ONE LESS ITERATION T0-GO
;ONE LESS ITERATION, IF NOT ZERO
sRESTORE R2
; AND R1

;MOVE STACK OVER INPUT VALUE
; AND RETURN

;SOTWARE PSEUDO STACK

WO ~NOND
WM -

CZRJLBO RPO7 FCTNL TEST MACRO vO4.00
GLOBAL SUBROUTINES SECTION

1 DEC-83

12:59:38 PAGE 25

SEQ 0052

iSUBR TO GENERATE A PSEUDO RANDOM NUMBER

: THE NUMBER IS RETURNED IN $RP1
; THERE ARE 3 SEED VALUES THAT CAN BE

: TO GENERATE THE PSEUDO RANDOM NUMBER

011712
011714
011720
011722
011726
011730
011732
011736
011742
011746
011750
011752
011756
011760
011762
011766
011770

010046
013700
000241
005337
006100
006100
063700
063700
010037
006100
006100
063700
006100
006100
010037
012600
000207

011772
011774
011776

000000
001233
007622

011774

RAND:

MOV
MOV

CLC
DEC

011772

ROL
ROL
ADD
ADD
MOV
ROL
ROL
ADD
ROL
ROL
MOV
MOV
RTS

011772
011776
011774

011776

$RNCON:
$RP1
.
$RP2:

0
1233
7622

RO, -(SP)
$RP1,RO
$RNCON
RO

$SAVE RO
:GET A SEED
;

RO
$RNCON,RO
$RP2,RO
RO, $RP1

RO
RO, $RP2

(SP)+,RO

;RESTORE RO

SAVED

TEST MACRO v04.00 1 DFC 83

SECTION

o ND n'". -

SIBROUTINES

1.2:59:%8 PAGE

tDETERMINE

KWll P

THERE

[

——

CZRULRO RPO? FCTNL

GLOBAL

EQ (S3

IS5 A CLOCK ON SYSTEM,

;INDICATE THE CLOCH TYPE,
3
0= NO CLOCv
sle

NI
QO OD

:
1% KW1l-L
s THIS ROUTINE WILL

82:0

o pe

sCALL

13 01000
012004

005037
005037

002260
012244

012010
012014
012016

012700
104462
010005

000120

012020

103031

ALSO

SETUP

‘TICKMS”

“TICKUS” (TIME PER CLOCK TICK

START

(TIME

THt

PER

CLOCK.

CLOCK

TICK

“CLMSTA'

IN MILLISECONDS)

IN MICROSECONDS) A5 PER LINE FREQUENCY.

RE TURN

JSR

PC,ST.CLK

$1START

ST.CLk:

CLR
CLR

CLKSTA
HERTZ

$ASSUME
$ASSUME

MOV
TRAP
MOV

9 P,RO
CeCLCK
RO.R5

8CC

THE

CLOCK

"“NO CLOCK
“"UNKNOWN" HERTZ

;IS THERE A P CLOCK PRESENT

:GO TO 1%

IF NO

$SET P-CLOCK P-TABLE & START P-CLOCK
012022
012026
012032
012036

012044
012050

012056
012060
012064

012070
012076
012102

012104
012104
012110
012112
012114

010537

011537

011537
062737
012537
062737
005725
012537
012537

012737
004737
000423

012700
104462
010005

012220
012222
012224
000002
012226
000004
012230
012244
000001
012246

MOV

012224

002260

18:

000114

103036

(R5),PKCS
(RS),PxB

ADD

2 ,PKB

ADD
1ST
MOV
MOV
MOV

04 ,PKC
(RS).
(RS). ,PKY
(R5). ,HERTZ
01,CLKSTA

MOV

012226

R5,PCLKTB

(RS5).,PKC

JSR

PC.ST.PCLK

MOV

o'L,RO

B8R

TRAP

CCLCK

MOV

RO,RS

a8cc

3¢

$SET L CLOCK P-TABLE,
012116
012122
012126
012130
012134
012140
012146

010537
012537
005725
012537
012537
012737
004737

012234

MOV

012236

MOV

012240
012244
177777
012320

MOV
MoV
MOV
JSR

TST

002260

RS,LCLKTB

(R5)+,LKS

(RS).

(R3)e,LKV
(RS)+ ,HERTZ
0-1,CLKSTA
PC,ST.LCLK

$SAVE P-CLOCK

;GET

'CSR’

TABLE

ADORESS

ADDRESS

stMAKE PKB ADDRESS BY
1ADDING 2

sMAKE PKC ADDRESS B8Y

1ADDING 4
;SKIP OVER 'BR LEVEL’
:GET ‘VECTOR' ADORESS
sGET 'HERTZ' LINE FREQUENCY
tSET P-CLOCK FLAG

;START P-CLOCK

;IS

THERE

1GO TO 38

A L

AS A WATCH DOG

CLOCK PRESENT

TIMER

IF NO

START L-CLOCK
1SAVE L-CLOCK

1GET

'CSR‘

1SKIP OVER

TABLE ADDRESS

ADDRESS

'BR LEVEL'

1GET 'VECTOR' ADDRESS
1GET 'HERTZ' LINE FREQUENCY
1L -CLOCK FLAG
1START L-CLOCK AS A WATCH DOG

TIMER

1GET THE CLOCK TICK COUNT
012152
012160
012166

012737
012737
023727

000024
047040
012244

012214
012216
000062

24:

MOV

MOV
cHP

020. , TICKMS

€20000., TICKUS
HERTZ, 050,

WILL

1ASSUME 20.0 MSEC &

;20000.0 USEC
1IS IT SO HERTZ LINE

FREQUENCY

CZRABO RPO7 FCTNL TEST MACRO vO4.00 1-DEC 83 12:59:38 PAGE
GL OBAL SUBRJUTINES SECTION
54 012174
55 012176
56 012204

5?7 012212
58
59 vl2214
60 012216

62
63
64
65
66
67
68
69
70

001406
012737
012737
000207

000020

040432

012216

000020
040432

80
81
82
83
84

012220
012222
012224
012226
012230

172540
172542
172544

000104

100

RTS

.WORD
.WORD

16,
16656,

+116 MILLISECONDS PER CLOCK TICw
116666 MICROSECONDS PER CLOCK TICK

012236
012240

177546
000100

012244

000000

012246
012246
012252

105737
001021

002233

012746

000300

012254
012260

n123%62

012746
013746
012746
104437
062706
012777
012777

;CONTROL £ STATUS
sCOUNT SET BFR
sCOUNTER
s VECTOR

012746
012746
013746
012746
104437
062706
012777
000207

000300
012414
012240
000003

000010
000100

CSR REG &

VEC

ADR

sL CLK TBL ADR

LKS:
LKV:

. WORD
.WORD

177546
100,102

;CONTROL € STATUS

HERTZ:

.WORD

i60 HZ.

1518

STOFLG

tALLOW

sNO

MOV

MOV
TRAP
ADD
MOV
MOV

177714
177704

ST.LCLK:

;

OR 50 HZ.
SOF TWARE

BRANCH

010,5P
91,8PKB

0115,89PKCS

1COUNT ONE TICK

s "INT.
" EN.
,COUNT DOWN"”,

BNE

7578

STOFLG
1

sALLOW SOF TWARE
iNO- BRANCH

MOV
MOV
MOV
MOV

P)
OKWSRY,
- (SP)
LKV, -(SP)
03, -(SP)

RTS

JSR

TIMEOUTS

Cs$SVEC

MOV

LINE FREQUENCY

;SETUP VECTOR FOR P CLOCK

RTS

s THIS ROUTINE

s CALL

(S P)
P
PKV, -(SP)
@3, (SP)

s VECTOR

s "LINE FREQ',
iRETURN

TRAP
ADD

1¢:

OPRIO6,

ADR

. WORD

MOV

177654

TABLE,

TBL

LCLKTS:

1¢:

002233

VEC

172540
172542
172544
104,106

012414
012230
000003

105737
001016

PKC REG &

. WORD
. WORD
. WORD
. WORD

ST.PCLK

000207

PKB REG,

16.666 MSEC £

PKrCS:

BNE

000010
000001
000115

CSR REG,

YES

s1P-CLK

PKYV:

000102

TABLE,

sMUST BE 60MZ,
116666.0 USEC

iKW1l-L CLOCK

012346
012350
95 012354
97

1BR

. WORD

PKC:

012234

EQ 0S4

PCLKTB:

PK8:

000106

3
216
, TICKMS
,
2166
, 66,
TICKUS

MOV
MOV

1KW1l -P CLOCK

012264
012270
012274
012276
85 012302
86 012310
87
88 012316
89
012320
91 012320
92 012324
93
012326
012332
012336
012342

3s:
TICKMS:
TICKUS:

72
73
74
75
76
77
78
79

8eQ

012214

26 1

AND

IS USED

TO STOP

PC.,STOPCK

"MODE

TIMEOUTS

;SETUP VECTOR FOR L -CLOCK

CSSVEC

010,5P
0100
8 KS
,
PC

"RUN"

1START

;s RE TURN

THE

THE KW1l L

SYSTEM CLOCK

sCALL

ROUTINE

(REPEAT)",

CZRJULBO RPO? FCTNL TEST MACRO vO4.00 1
GLOBAL SUBROUTINES SECTION
101
102 012364
103 012370
104 012372
105 012374
106 012402
107 012404
108 012412
109
110
111
113 012414
114 012420
115 012424
012424
116
120
121
122
123 012426
124 012434
125
126 012440
012444
012450
012454
012460
012462
127 012466
128 012474
129 012502
131 012504
132 012512
133 012516
012516
134 012520
135 012520
012524
012526
012532
012536
012540
136 012544
137 012550
141

005737
001410
100404
042777
000403
042777
000207

002260
000101

000100

155 012564
012570

12:99:38 PAGE

STOPCK:

177620

177624

1%:
2s:

141
BtQ
8M1
8IC
8R
8IC
RTS

iKW11l CLOCK
013746
004737

KWSRV:

012214
024104

L10006:

000002

5EQ 00SS

CLKSTA

: IS

2101 ,aPKCS

1STOP

THE

$STOP

THE L

1BR

24
14

INTERRUPT

JSR

IF NO

A CLOCK

AVAILABLE

P CLOCK

CLOCK

SERVICE ROUTINE

TICKMS,

MOV

THERE

+BR IF L CLOCK

24
2100, a.KS
PC

PC,RPTMR

s THIS SUBROUTINE

;A RECALIBRATE

042777
017746

000101

012746
012746
013746
012746
104437
062706
012777
012777
000001
042777
012716

000300

177570

177566

FORSEC:

000010
000360
000105
000101

012520

BIC

MOV
MOV
MOV
MOV

012504
012230
000003

MOV

TRAP
ADD
MOV

177530
177520

177510

18:
L10007:

000002

012746
012646
013746
012746
104437
062706
005077
000207

26 2

(S P)

s TIME

PER

TICK

IN MILLISECONDS

;COUNT THE ELASPED

TIME

RTI

2s:

000300

012230

000003

MOV
WAIT
8IC

MOV

000010
177454

IS USED TO RELOAD THE CLOCK FOR A 4 SECOND TIMEOUT DURING

COMMAND

;STOP CLOCK

€101,8PKCS
SPKV, -(SP)
OPRIOE,

(S P)

:SAVE THE OLD CLOCK VECTOR ADDRESS
{1 SETUP VECTOR FOR P CLOCK

e1s, (SP)
PKv, -(SP)
03, -(SP)

C$SVEC

210,5P
0240, ,8PKB
@105, 8PKCS

SEC

DELAY

AT LINE FREQ

;RUN AT LINE FREQ,
:WAIT

FOR

CLK

INTER

DOWN MODE,

IE=1

ADDRESS

:STOP CLOCK
;ADJUST FOR RETURN

2101, 8PKCS

02%,(5P)

RTI

MOV
MOV
MOV

MOV
TRAP
ADD

CLR

RTYS

145
146
147
148
149
150

151
152 012552
153 012560

DEC 83

OPRIOE,

(s P)
SpP )
PKV, -(SP )

;RESTORE

OLD

VECTOR

FOR

CLOCK

03, -(SP)

CsSVEC

010,5P
8PKB
PC

iCLEAR CLK BFR COUNT

tROUTINE TO PROVIDE A 2 MS STALL AFTER A SEEK OPERATION IN THE SEEK TIMING

s TESTS,
THIS
:IN THE RPO7.
s CALL

042777
017746

012746
012746

000101
177444

000300

012656

177442

STALL IS REQUIRED TO COMPENSATE FOR
THIS STALL TIME IS NOT INCLUDED IN

$
1

JSR
RETURN

TWOMS:

BIC
MOV

8PKV,

MOV
MOV

028, -(SP)

THE
THE

'ACCESS READY'

CALCULATED

SEEK

PC., TWOMS

1STOP THE P-CLOCK

€101, 8PKCS

(SP)

1SAVE

THE OLD CLOCK

VECTOR ADDRESS

1SETUP VECTOR FOR P-CLOCK

DELAY

TIMES.

CZRJULBO RPO7 FCTNL
GLOBAL SUBROUTINES

012574

012600
012604
012606
012612
012620
012624
012626
012632
012636

156
157
158
159
160
161
162 012642
163 012646
164 012654
166 012656
167 012664
168 012670
012670
169 012672
170 012672
012676
012700
012704
012710
012712
171 012716
172 012722
176
177
178

TEST MACRO v04.00
SECTION

013746
012746
104437
062706
012777
105737
001410
004737
013746
042716
062677
012777
000001
042777
012716

000010
000310
002230

012724
012724
012730
012732
012740
012746
012750
191 012756
192 012764

12:59:38 PAGF

011712
011774
173000
177356
000101
000101
012672

Py,

a3,-(SP)

2%:

ADD

3s:

000300

(SP)+,aPKB

sADD

8IC

#101,9PKCS

MOV

105737
001407
012737
012737
000406
012737
012737
000207

LOCMD:

002226
000173
000173

(SP)e,

000105
000105

002572
002612

PKV, -(SP)
03, (SP)

RTS

CAN BE

2s:

TO 25 MSEC

THE BASIC 2 MSEC

THE CLOCK

STALL

sWAIT FOR 2 MS
:STOP THE P-CLOCK

sRESTORE

C$SVEC
€10,5P
8PKB

FOR RETURN

THE

7578

REDHOR
1t
ORDHD ,DPB .B+2

RTS

ADDRESS FOR P-CLOCK

ANO DATA COMMAND OR A

SEEK COMMAND

OPERATOR.

PC.LOCMD

MOV

VECTOR

DEPENDING ON THE STATE OF REDHOR FLAG

JSR

BR
MOV

OLD

;SET COUNT

sRETURN

A READ HEADER

ALTERED BY

RETURN

MOV
MOV

1¢:

;START

BUFFER

(SP)

MOV
MOV
TRAP
ADD

BEQ

002572
002612

:ADJUST

: INTO DPB.B+2 AND DPB.C+2,

CL OCK

sLIMIT IT

OPRIO6, -(SP)

: THIS ROUTINE LOADS

s CALL

THE

RTI

CLR

1 THAT

s1LOAD

83%,(SP)

MOV

000010
177302

;RANDOM STALL?
s NO
;1 YES, FETCH A RANDOM NUMBER
;GET RANDOM NUMBER

2101,89PKCS

MOV

012230
000003

#10,5P
£200. ,aPKB
TIMSTL
14
PC.RAND
$RP1, (SP)

MOV

WAIT

L10010:

(SP)

0rCa777,(SpP)

8IC

177336

S5EQ 0056

C$SVEC

MOV

1%:

MOV

BEQ
JSR

177346

MOV

TRAP
ADD
MOV
TS18

177404

179

180
181
182
183
184
185
186
187
188
189
190

012230
000003

000002

012746
012646
013746
012746
104437
062706
005077
000207

DEC

ggDHD0PB.C.2

OSEEK,DPB.B+2
ASEEK,DPB.C+2
PC

;00 EXPLICIT SEEKS FOR VERIFYING
:NO
BRANCH
tNO -SET UP FOR READ HEADER AND

sDATA COMMAND

;SETUP

FOR

SEEK

COMMAND

1 DEC-83

NB N+

CZRJULBO RPQO7 FCTINL TEST MACRO vO4.00
GLOBAL SUBROUTINES SECTION

12:59:38 PAGE 27

:ERROR ANALYSIS ROUTINE
NOT USED
OPB ADDR ESS
BASE ADDRESS OF

OW®

,RO
sR1
iR2
:R3
;R4
;RS

TEMP

STORAGE

3EQ 0057

SAVED REG'S

TABLE

LINK AND RET

CALL ING SEQ:

JSR
DPB
RET
012766
012766
012770
012772

012774
012776
013002
013004
013010
013016
013024

013032
013040
013042
013046
013052

013054
013056

013060
013062
28 013064
29
30 013070
31 013076
013100
33 013106

013110
35 013114
013114
013116
013120
013122
013124
37
38 013130
39 013136
40 013140
41 013146

013150
013152
013154
013156
43 013160

ERRANY
:

010146
010246
010346
010446

005037
012501
016102
016237
116237
116237
126127
002402
004737
032712
001406
104456
000001
005420
007672
000137
032762
001414
032762
001402
000137
104456
000002
005465
007672
000137

032762
001412
032762
001006
104456
000003
005527
007672
00013%7

MOV
MOV
MOV
MOV

CLR

MOV
MOV
MOV
MOVB
MOVB

092276
002302
002300
000150

014322
020000

14:

014156

020400

000010

100000

000042

2%:

014310
3¢:

014166
000010

040000

000012

014166

cMPB
BLT
JSR
BIT
BEQ
TRAP
.WORD
. WORD
. WORD
JMP

BIT
8EQ
BIT
BEQ
JMP
TRAP

: :PUSH R1

STACK

:sPUSH R2 ON STACK

(R5)+,R1
14(R1),R2

36(R2),CYL.RD

6(R2),5EC.RD
7(R2),TRK.RD

f(Rl).OlSO

$
PC,ADUUST
OMC
, PE
(R2)

C$ERHRD

: sPUSH R3 ON STACK
1 1PUSH R4 ON STACK
sPROGRAM FLAGS: EACH BIT

INDICATES

;OPB ADDRESS
;sADDRESS OF SAVED REGISTER TABLE
;GET CURRENT SECTOR
;GET CURRENT TRACK
:IF DATA

TFR CMD

;THEN GET THE DECREMENTED
:MCPE ERROR ?
:BRANCH IF NOT

SECTOR

1
EML

DH44
32¢
OHDPE'UPE 10(R2)

OBSE 42(R2)
423

sEXIT

;DATA PARITY

PROBLEM

IBRANCH IF NONE
1SEE IF BAD SECTOR DETECTED,

:BRANCH
sEXIT

NOT,

ELSE

C$cRHRD

2
EM2

8I7
BEQ
BIT
BNE
TRAP
. WORD

ONED !NEM!MSPGE
!MXF ,10(R2) ; ILLEGAL CONDITIONS
S
$1BRANCH IF NONE
1ANY DRIVE ERROR ?
OERR, 12(R2)
5%
tREPORT THE DRIVE ERROR

. WORD
.WORD

IMP

DH44
33

tEXIT

CSERHRD

3
EM3

OH44
334

ERROR

sGET CURRENT CYLINDER

. WORD
. WORD
. WORD

JMP

017000

RS ,ERRANY

sEXIT

ADDRESS

TYPE

CZRJLBO RPO7 FCTNL

GLOBAL

SUBROUTINES

44
45
46
47

TEST MACRO vO4.00 1 DEC-83

SECTION

013164
013172
013174
013176
013200
013202
48 013204

032762
001406
104456
000004
005605
007672
000137

50 013210
51 013216
52 013220
013222
013224
013226
53 013230
54
55 013234
013242
57 013244
S8
59 013250
60 013256
61 013260
013262
013264
013266

032762
001406
104456
000005
005627
007672
000137

62 013270
63
013274

65 013302

032762
001002
000137
032762
001406
104456
000006
005647
007672
000137
032762
001406
104456
000007
005705
007672
000137

013304
013306
013310
013312
67 013314
68
69 013320
70 013326
71 013330
013332
013334
013336
72 013340

032762
001406
104456
000013
005733
007672
000137

013356
013360
013362
77 013364

032762
001406
104456
000014
005755
007672
000137

’3
74 013344
75 013352
76 013354

78
79 013370
80 013376
81 013400
82 013406

032762
001042
032762
001444

040000

000010

Ss:

014166
100000

000010

6$:

014166

040000

000012

7%:

014310

100000

000040

8¢:

12:59:38 PAGE 27-1

002000

000042

OWCE, 10(R2)
64

EM4
OH44
33

{EXTT

8I7
BEQ
TRAP
.WORD
.WORD
. WORD
JMP

gDLT.lO(RE)
$

:BRANCH IF NONE

000040

000014

10s:

C$ERHRD

CS$ERHRD

DH44
33¢

BIT
BEQ

OPGE ,40(R2)
9

. WORD
.WORD
.WORD
JMP

CSERHRD
6
EM6
OHa4
344

OERR, 12(R2)
8

oB8C,42(R2)
104

C$ERHRD

004000

OWCF ,14(R2)

. WORD
. WORD
. WORD
JMP
000014

11¢:

014206
010000

100000

000014
000014

124

BIT
BEQ

;ANY

DATA LATE

ERROR

sEXIT
;ANY

DRIVE

ERROR

;:BRANCH IF ANY
EXIT

;DRIVE PROGRAMMING ERROR
;BRANCH IF NONE

sEXIT
iLOST

BIT

CLOCK

;:BRANCH IF NONE

sEXIT
tWRITE CLOCK FAILS
sBRANCH IF NONE

sEXIT

8I7
B8EQ
TRAP
.WORD
. WORD
. WORD
JMP

BIT

EM?
DH44
35¢

TRAP

014206

DATA PATTERN ERROR

1BRANCH IF NONE

5
EMS

BIT
BEQ

$ANY

BIT
BNE
JMP

BIT
BEQ
TRAP
. WORD
.WORD
. WORD

014206

5EG 0058

BIT
BEQ
TRAP
. WORD
.WORD
. WORD
JMP

TRAP

014176

tWRITE

LOCK

1BRANCH IF

ERROR

NONE

sEXIT

#0TE, 14(R2)
174
Q0CK, 14(R2)
18¢

:DATA ERROR ON DRIVE

1REPORT THE DRIVE
sANY DATA ERROR ?
$BRANCH IF NONE

TIMING ERROR

CZRJLBO RPO7 FCTNL
GLOBAL SUBROUTINES
83
84
85
86
87

013410
013416
013420
013426
013430
013432
013434
013436

88 013440
89
90 013444
91 013452
92 013454
013454
013456
013460
013462
93 013464
94
95 013470
013470
013472
013474
013476
013500
97
98 013504
013504
013506
013510
013512
013514
100
101 013520
102 013526
103 013530
013532
013534
013536
104 013540
105
013544
107 013552
108 013554
013556
013560
013562
109 013564
110
111 013570
112 013576
113 013600
013602
013604
013606
114 013610
115

TEST MACRO v04.00
SECTION

032762
001412
022762
001012
104456
000057
007305
007672
000137
022762
101006

000100

000014

010040

000044

104456
000015
005776
007672
000137

13$:

. WORD
JMP

014206

010040

000044

14
;

15¢:

014206
16$:

014206

17s¢:

032762
001406
104456
000017
006054
007672
000137
032762
001406
104456
000020
006121
007672
000137

014206
000010

000042

18%:

014206
000007

000014

19%;

014216
003000

014226

CMP

BHI

TRAP

000014

208

27-2

#ECH,14(R2)
144
#10040,44(R2)

15¢
CS$ERHRD

DHa4
354

410040,44(R2)

16%

$ECH SET, THEN RPEC1-10040
sEXIT IF NOT SET

;POSITION REG=10040
sREPORT ECC LOGIC FAILUKE

sEXIT

:LEGICAL POSITION REG CONTENTS ?

:BRANCH IF

CS$ERHRD

43
EMA3

TRAP

CS$ERMRD
13

TRAP

k0 GGS9

47
EM47

. WORD
.WORD
. WORD
JMP

.WORD
. WORD
. WORD
JMP

000055
007224

032762
001406
104456
000016
006017
007672
000137

BIT
BEQ
CMP
BNE

.WORD
. WORD

104456

007672
000137

l‘“v
12:59:3B PAGE

TRAP

104456

000053
007134
007672
000137

DEC

DH44
35¢

EM13
OH44
35%

sEXIT

CS$ERHRD

. WORD
. WORD
.WORD
JMP

45
EMAS

35%

sEXIT

8IT
BEQ
TRAP
. WORD
.WORD
. WORD
JMP

O0DPE ,42(R2)
19¢

;:DATA BUS PARITY

8IT
BEQ
TRAP
. WORD
. WORD
.WORD
JMP

QILF!ILR!RMR,14(R2)
204
:BRANCH

BIT
8EQ
TRAP
. WORD
. WORD
. WORD
JMP

OH44

:BRANCH IF NONE

JEXIT

C$ERHRD
15
EM15
DH44
364

OIAE!AOE,14(R2)

21s
C$ERHRD
16
EMi6
NHA44
37

: INTERFACE PROBLEM
IF NONE

sEXIT

;POSITIOM ERROR
$BRANCH IF NONE

sEXIT

CZRJLBO RPO7 FCTNL
GLOBAL SUBROUTINES

TEST MACRO v04.00
SECTION

116 013614

020000

117 013622
118 013624
013626
013630
013632
119 013634
120
121 013640
122 013646
123 013650
013652
013654
013656
124 013660
125
126 013664
127 013672
128 013674
013676
013700
013702
129 013704
130
131 013710
132 013714
133 013720
013724

135 013726
013730
013732
013734

136 013736
137
138 013742
139 013750
140 013752
013754
013756
013760
141 013762
142
143
144
145
146
147

013766
013774
013776
014004
014006
014010
014012
014014
148 014016
149
150 014022
014022
014024
014026
014030

032762
001406
104456
000051
007054
007672
060137
032762
001406

000014

DEC 83

218

.WORD
.WORD
.WORD
JMP

014226

041000

000042

22%:

016203
042703
022703

000014
177057
000720

032762
001420
032762
001006
104456
000030
006360
007672
000137

104456
000056

007255
007672

. WORD
.WORD
.WORD
JMP

014226
000002

032762
001406
104456
000027
006324
007672
000137

BIT
8EQ

TRAP

032762
001406
104456
000025
006250
007672
000137

001006
104456
000026
006274
007672
000137

BIT
BEQ

TRAP

104456

000021
006154
007672
000137

12:59:38 PAGE

000012

23s:

BIT
BEQ

TRAP

. WORD
.WORD
. WORD
JMP

014236

:
24

MOV

000020

000014

25¢:

000600

000014

000400

000014

264
:

014246

27¢:

e2s

C$ERHRD

5EQ 0060
;OPERATION

:BRANCH

INCOMPIETE

EM4]

DH44
37

sEXTT

OSKI!LCE,42(R2)

;SERVO

QEWN, 12(R2)

;PROBLEM

23$
C$ERHRD
17
EM17
DHA44
37%

244
CS$ERMRD
21
EM21
OH44
38

:BRANCH

:BRANCH IF

ACTUATOR

NONE

SEEK

ERROR

SEXTIT

14(R2),R3

;CHECK

[F HEAD MISSING

.WORD
.WORD
.WORD
JMP

39¢

BIY
8EQ

264

:BRANCH

. WORD
. WORD
. WORD
JMP

39¢

$EXIT

OHCRC !HCE,14(R2)
284

;HEADER INFORMATION ERROR
:BRANCH IF NONE
+HEADER CRC ERROR ?

BIY
BEQ
BIT
BNE
TRAP
. WORD
. WORD
. WORD
JMP

TRAP

.WORD
. WORD
.WORD

C$ERHRD
24

EM24
DH44
394

CS$ERHRD

EM46E
DHA4

;CHOP THE REST BITS
:MISSING HEAD ?
;BRANCH IF NOT

JEXIT
;FORMAT

OHCRC, 14(R2)
274

QtC<FER!ECH!HCRC!HCE>
,R3
OFER!ECH!HCRC 'HCE .R3
25%

TRAP

014246

BIC
CMP
BNE

TRAP

014246

1BRACH

JEXIT

ERROR

IF NOT

CZRJLBO RPO7 FCTNL TEST MACRO v04.00
GLOBAL SUBROUTINES SECTIOM
014032

000137

014246

014036
014044
014046
014050
014052
014054
156 014056
157
158 014062
159 014070
160 014072
014074
014076
014100
161 014102
162
163 014106
164 014114
165 014116
014120
014122
014124
166 014126
167
168 014132
169 014140
170 014142

032762
001406
104456
000040
006703
007672
000137

017400

151
152
153
154
155

014144
014146
014150
171 014152
172
173 014156
174 014164
175
176 014166
177 014174
178
179 014176
180 014204
181
182

183 014206
014214
185
186 014216
187 014224
188
189 014226
190 014234
191
192 014236
193 014244
194
195 014246

032762
001406
104456
000041
006726
007672
000137
032762
001406

000040

DEC

°8%:

014256

000040

000042

294
:

30%:

104456

000042
006746
007672
000137
032762
001452
104456
000043
006763
007672
000137

014256
000400

000001

052737
000445

000002

052737
000441

000004

052737
000435

000010

052737
000431

000020

052737
000425

r32737

052737

31$:

000100

000200

S5EQ 0061

BIT
BEQ
TRAP
. WORD
.WORD
.WORD
JMP

OWRYUNS ! WOR 'RWUL tRWUZ tRWU3,40(R2
)
29
CSERHRD
32
EM32
OH4a4
408
sEXIT

BIT
BEQ
TRAP

#0Cu,42(R2)
304

C$ERHRD

;EXIT

;0C LOW ?

;BRANCH IF

;WRITE

;BRANCH

NONE

UNSAFE

NONE

33
EM33
DH44
40

sEXIT

#IXU,42(R2)

;s INDEX UNSAFE ?
:BRANCH IF NONE

BIT
BEQ
TRAP
. WORD
.WORD
. WORD
JMP

EM34
DH44
40¢

JEXIT

BIT

OPHF ,42(R2)

:PROCESSOR HANDSHAKE

08ITO,SVSTAT

;MCPE=1 ,RHXX

B8EQ
TRAP
. WORD

AND READ

31
C$ERHRD
34

FAILURE??

:BRANCH IF NOT

.WORD
. WORD
JMP

014256

052737
000451

000421

000042

LJr'

39¢

JMP
000042

27 4

JMP

.WORD
.WORD
.WORD

014256

000100

12:59:38 PAGE

002264

32%:

33s¢:
34%;

8IS
BR

424

8IS
BR

424

8IS
BR

424

ABIT1,SVSTAT
e8IT2,SVSTAT

8IS
BR

424

002264

364
:

8IS
B8R

002264

37s;

8IS
BR

424

002264

38%:

8IS
BR

429

BIS

002264

39%;

CONTROL

BUS PARITY

sRHXX DATA BUS PARITY,ILLEGAL CONDITION

1DATA LATE,

WRITE CHECK.

: PROGRAM ERROR:

PROHIBITED COMMANDS

sWERE EXECUTED (WRITE/READ TRACK DES.
1FORMAT

35¢:

A-SYNC

TRACK).

0BIT3,SVSTAT

+DRIVE CLOCK,

424

#8IT4,SVSTAT

s ILLEGAL CONDITION ,DECODER,
;1PROBLEM

oBITS5,SVSTATY

1+POSITIONING ERROR

o8IT6,SVSTAT

iMECHANICAL FAILURE

#B8IT7,SVSTAT

tHEADER INFORMATION (

TIMING,

DATA ERROR

sRETRY SHOULD BE ALLOWED.

AIR,

INTERFACE

TEMP ETC.

HEADER FAILURE,

CZRJLBO RPO7 FCTNL
GLOBA{ SUBROUTINES

196 014254
197
198 014256
199 014264
200
201 014266
202 014274
203 014276
014300
014302
014304
204 014306
205 014310
014310
014312
014314
014316
206 014320

TEST MACRO vO4.00
SECTION

DEC-383

000415

12:59:38 PAGE

27 5

1°)
SEQ 0062

;OR UNFORMAT

TRACKK

)

052737
000411

000400

002264

40$:

BIS
BR

#BIT8,SVSTAT
424

tUNSAFE

032762
001005
104456
000054
007156
007672
000763

100000

000042

41%:

8I7
BNE

#BSE ,42(R2)

;+ IF BAD SECTOR DETECTED,

012604

012603

012602
012601
000205

TRAP

424

C$ERHRD

;BRANCH WITHOUT REPORTING ERROR,

.WORD
.WORD
.WORD
BR

sEXIT

MOV
MOV
MOV
MOV
RTS

(SP)+,R4
(SP)+,R3
(SP). ,Re
(SP).+,R1

: s POP
; s POP
: :POP
; : POP

EMaa
DH44

(READ/WRITE,

STACK
STACK
STACK
STACK

INTO
INTO
INTO
INTO

R4
R3
R2
R1

ELSE

VRN
ND W+

CZRJLBO RPO7 FCTNL
GLOBAL SUBROUTINES

TEST MACRO vO4.00
SECTION

1 DEC-83

[ 5

12:59:38 PAGE 28

5EQ 0063

: SUBROUTINE TO ADJUST THE SECTOR ADDRESS BECAUSE
: INCREMENTED AT THE END OF A TRANSFER
s CALL
:

014322
014326
014330
014336
014342
014344
014352
014356
014360
014364
014366
014372

005737
001014
013737

005737
001011
013737
005337
000405
005337
000402
005337
000207

002302

ADJUST:

002274
002300

002302

002272
002276

002300

002302

1s:

002300

2%:
3s:

JSR

PC,ADJUST

s CALL ROUTINE

TST

SEC.RD

BNE
MOV
TST
BNE
MOV
DEC

1
NS1,SEC.RD
TRK.RD
2%
NT1,TRK.RD
CYL.RD

sSECTOR

BR
DEC
BR
DEC
RTS

sBR IF NOT
;MAKE IT LAST PHYSICAL
;LAST TRACK?
;B8R IF NOT
;MAKE IT LAST PHYSICAL
;DECR CYL

3
SEC.RD
34
TRK,RD
PC

: THIS ROUTINE WILL CALL

IT IS AUTOMATICALLY

sEXIT
;
tEXIT
;sADJUST

THE

RPO7 DRIVER AND

014374
014400
014402
014404
014410

014412

014414
014422
014430
014435
014442
014444
014450
014452
014460
014462
014466
014474
014500
014502
014504
014510

004437
002550
000774
005737
001775
100036
013737
113737
113737
004537
002550
004537
002550
022737
001013
013746
112737
004437

002550
000240
012637
000204

RETURN

JSR

R4 ,CALL
.A

021122

CALL.A:

JUSR
OPB8.A

R4 ,RPO7

002566

1s:

ST
BEQ
BPL
MOV
MOV8
MOVB
JSR
OPB.A
Jsg A
oP8.

OPB.A+16
1
3
OPB.A+12,CYL.DS
OPB.A+11,TRK.DS
DPB.A+10,SEC.DS
RS ,ERRABO

BNE
MOV

3
OPB.A+2, -(SP)

JSR
OPB.A
NOP

R4 ,RPO7

002562
002561
002560
015214

002304
002310
002306

012766
000200

002264

002552
000107
021122

002552

CMP

MOvV8

002552
3s:

MOV
RTS

s THIS ROUTINE

THEN WAIT

RS ,ERRANY

oB8IT7,SVSTAT

sHEADER ERROR?

ORECAL ,DPB.A+2

;SET UP FOR A RECAL COMMAND

(SP)+,DPB.A+2
R4

s RETURN

SAME

;sIF NOT MATCH,

s ISSUE THE COMMAND
;s THIS BUFFER
sFILLER FOR THE DRIVER

"CALL.A”

EXCEPT

:AND SECTOR) READ IS CHECKED FOR VALIDITY,
s CALL
:
FILL DPB
H
JSR
R4 ,CALL
.B
RETURN
:
004437

021122

CALL.B:

JSR

R4 ,RPO7

FUNCTION

FOR

s THE COMMAND IS A READ HEADER AND DATA THE HEADER

014512

THE

;OONE
?
sNO--LOOP
sBRANCH IF NO ERROR
;CYLINDER
;TRACK
;SECTOR
;CHECK THE ABORT CONDITION
;PARAMETER BLOCK ADDRESS
;DETECT ERROR

THE

AND DECR

;CALL RPOT7 DRIVER

CALL.A

B8R

TRACK

AND DECR

TRACK

:TO COMPLETE. IF AN ERROR OCCURS IT IS REPORTED.
s CALL
H
FILL "OPB” WITH COMMAND INFORMATION
:

SECTOR

;CALL

DRIVER

THE

DPB

USED AND

(CYLINDER,

TRACK,

TRACK

CyL

CZRJULBO RPO7 FCTNL TEST MACRO vO4.00
GLOBAL SUBROUTINES SECTION
56
57
il
59
60
61

62
63
64
65
66
67
68
69
70
71
72
73
74

75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100

101

102
103
104
105
106
107
108

014516
014520
014522

014526
014530
014532

014540
014546
014554
014560
014562
014566
014570
014576
014600
014604
014612
014616
014620
014622
014626
014630
014636
014640
014644
014646
014652
014654
014656
014656
014662
014664
014670
014672

002570
000774
005737
001775

100037
013737
113737
113737
004537
002570
004537
002570
022737
001013
013746
112737
004437
002570
000240
012637
000421

123727

001007
005737
100404
004437
002600
000406

105737
001403
004437
002356
000204

002606

002602
002601
002600
015214

DEC-83

12:59:38 PAGE 28

1$:

002304
002310
002306

MOVB

MOvVB

JSR
prPB.8
JSR
OPB8.B
CMP
BNE
MOV

012766

000200
002572
000107
021122

002264

002572

MOvB

002572
002572

000173

2$:
34

002606

015470

002231

OPB.B
BR
TST
BEQ
BPL
MOV

015410

S5%:

CALL.B
0PB.B+16
13
34
oPB.B+12,CYL.DS
OPB.B+11, TRK.DS

0PB.B+10,SEC.DS
RS ,.ERRABO

OBIT7,SVSTAT

24
oPB.B+2,-(SP)
ORECAL ,0PB.B+2
R4 ,RPO7

JSR
oPB.B
NOP
MOV
(SP)+,DPB.B+2
BR
S
CMPB
OPB.B+2, 4RDHD
BNE
44
TST
OPB.B+16
8MI
44
JSR
R4,VERIFY
0PB8.B+10
BR
Ss

7578
BEQ
JSR
. WORD

RTS

004437
002610
000774
005737
001775
100037
013737

113737
113737
004537
002610
004537
002610

022737
001013
013746

RETURN

021122

CALL.C:

002626

1¢:

JSR
oPB8.C
BR
TST
BEQ
8PL
MOV
MOVB

002622
002621
002620
015214

002304
002310
002306

012766
000200
002612

002264

MOVB

JSR
oP8.C
JSR
oPB.C
CMP
BNE
MOV

?
1DONE
i1 NO - -BRANCH

1BRANCH IF NO ERROR

; CYLINDER

s TRACK

s SECTOR
;CHECK THME ABORT CONDITION

RS, ERRANY

:BRANCH IF SO
;GO CHECK THE DATA
;:ERROR DURING VERIFY

:STALL ?

;NO - -BRANCH

; YES--CALL

+STALL

;RETURN

STALL

ROUTINE

TIME POINTER

“CALL.B" EXCEPT FOR THE DPB USED.

0OPB.C+10,SEC.DS

BIT7,SVSTAT

; THIS BUFFER

;:ERROR DETECTED ?

CALL.C
DPB.C+16
1
3
oPB.C+12,CYL.DS
OPB.C+11, TRK.DS

24
DPB.C+2, -(SP)

;SET UP A RECAL COMMAND
s ISSUE THE COMMAND

$NO - -BRANCH

R4 ,RPO7

RS, ERRANY

MATCH

sDOING IMPLIED SEEKS?

R5,ERRABO

;:HEADER ERRORS?
; TAKE BRANCH IF NOT

sFILLER FOR THE DRIVER
EXIT
1RESTORE THE COMMAND

STALLF
Ss
R4 ,STALL
STALL1

: THIS ROUTINE IS THE SAME AS
;CALL
FILL OPB
H
H
JSR
R4 ,CALL.C

014674
014700
014702
014704
014710
014712
014714
014722
014730
014736
014742
014744
014750
014752
014760
014762

5EQ 0064

s+CALL

DRIVER

;sOONE?
siNO--LOOP

s YES--BRANCH IF NO ERROR

s CYLINDER

s TRACK

;SECTOR

sCHECK THE ABORT CONDITION
;HEADER ERRORS?
;IF NO MATCH, NO!

CZRJLBO RPO7 FCTNL

GLOBAL

SUBROUTINES

109
110
111
112
113
114
115
116

014766
014774
015000
015002
015004
015010

118
119
120
121
122

015022
015026
015030

015012

117 015020

015034
015036
123 015040
124 015044
125 015046
126 015052
127 015054

TEST MACRO v04.00 1-DEC-83

SECTION

112737

004437
002610
000240
012637
000421

123727
001007
005737
100404
004437
002620
000406
105737
001403
004437
002356
000204

000107
021122

002612

MOVB

JSR
oPB.C
NOP

002612
2s:

002612

000173

002626

015470
002231

12:59:38 PAGE 28-2

015410
S$:

MOV

#RECAL ,DPB.C+2
R4 ,RPO7

;SET UP A RECAL COMMAND
s ISSUE THE COMMAND
:FROM

(SP)+,DPB.Cs2
5%

CMPB
OPB.C+2, #RDHD
4%
BNE
TS7
OPB.C+16
44
8MI
R4 ,VERIFY
JSR
OPB.C+10
B8R
5%
TS18
STALLF
BEQ
5%
R4,STALL
JSR
. WORD
STALL1L

RTS

SEQ 0065

THIS

BUFFER

:FILLER FOR THE DRIVER
JEXIT

:D0ING IMPLIED SEEK?
iNO--EXIT

:ANY ERROR
sEXIT

; YES--CHECK

THE

DATA

;ERROR DURING VERIFY
$STALL ?
;i NO- -BRANCH
;s YES--CALL STALL ROUTINE
;STALL TIME POINTER

CZRABO RPO? FCINL

SUBROUTINES

SECTION

1 DEC 83

ND aul,re

GLOBAL

TEST MACRO vO4.00

b
SEQ 66

: THIS ROUTINE

IS THE SAME AS
‘CALL .A* EXCEPT FOR THE OPB USED AND
tON AN ERROR LOCATION 'ERR.CT
IS EXAMINED., [F ERR.CT IS €EQUAL TO
sSERFLG EXIT IS 10 THE NEXT TEST,
1 CALL
:
FILL DPR

Y
Pt et

s gt

et P

s g o

®-dONDWNNFOO®

1.:99:%B PAGE

015056
015062
015066
015070
015072
015076
015100
015102
015104
015104
015112
015120
015126
015132
015134
015140
015142
015142
015146
015150
015154
015156

005037
00443/
002630
000772
005737
001775
100401
000417

RE TURN

JSR

R4 ,DRVCAL

002350

DRVCAL:

WCEF G
R4 ,RPQO7

00-646

CLR
JSR
OTADPB
BR
TS7
BEQ
BMI

021122

013737
113737
113737
004537
002630
004537
002630

002642
002641
002640
015214

105737

C02231

001403
004437
002360
000204

002304
002310
002306

DRVCAL

;CLEAR WRITE CHECK ERROR FLAG
sCALL
DRIVER

DTADPB.16

1 DONE

B8R

;:NO ERRORS

MOV
MOve
Move

OTADPB.12,CYL.DS
s CYLINDER
DTADPB.11, TRK DS
s TRACK
OTADPB+10,SEC.DS
sSECTOR
RS ,ERRABO
;CHECK THE ABORT CONDITION
;DATA BLOCK ADDRESS
RS ,ERRANY

JSR
OTADPB
JSR
DTADPB

012766
a4

1S7T8
BEQ

015410

JSR

. WORD
RTS

Ss:

3
1

sNO- LOOP
s8R IF ERRORS

STALLF

sSTALL

R4, STALL

;NO

BRANCH

s YES

-CALL

STALLZ
R4

;STALL

TIME

STALL

ROUTINE

POINTER

;SUBR TO EXECUTE A COMMAND STORED IN DTADPB.

sSIMILAR

s1.€E.

01516C
015164
015166
015170
015174
015176
015200

004437
002630
000774
005737

001775
100003
004537

021122

EXECMD:

002646

2%:

015214

TO SUBR CALL .A EXCEPT

NO CALL

JUSR
OTADPB

B8R

1ST
BEQ
8PL
JSR

TO ERRANY,
R4 ,RPO/

EXECHD

DTADPB.16
2t
38

RS,ERRABO

THAT HARD AND SOFT ERRORS ARE NOT
sEXEC CMD
;0P8 PTR

sWAIT FOR @ NOT FULL

1DONE
?
sWAIT FOR DONE
:SKIP ON ERROR FREE DONE

+ERROR:

sEXIT
015204
015206
015212

002630
013702
000207

002644

3%:

DTADPB

MOV

RTS

DTADPB.+14 ,R2

CHECKED

CHECK

TEST

ABORT

CONDITION

‘DPB’ +16 SET WITH ERRORS:

iNED+PRT+STO+MCP «PAR+OFL «UNS
;'DPB’ PTR

;FETCH AD OF SAVED REG TBL

v
CZRALBO RPQ7 FCINL

GLOBAL

TEST MACRO v04.00 1 DEC 83 12:59:%8 PAGF

SECTION

3E0 G087

SUBROUTINES

O® T

ND il

s THIS ROUTINE
:THE

015214
015216
015220
015222
015226
015234
015242
015250
015254
015260
015262
015264
015266
015270
015272
015274
015300
015302
015304
015306
015310
015312

015322
015324
015326
015330
28 015332
29 015334
30 015340
31 015342
015344

015346
015350
32 015352
33 015354
015360
35 015362
015364
015366
015370
015372
37 015374
38 015400
39 015402

40 015404
42

THE ABORT CONDITIONS OF

;:CALLING SEQ

015314
015320

IS USED TO DETERMINE

I/0 ROUTINES

010146
010246
012501
016102
016237
116237
116237
016102
032702
001405
104455
000031
006417
010702
000440
032702
001405
104455
000032
006455
007672
000430
032702
001405
104455
000033
006525
007672
000420

032702
001405
104455

000014
000036
000007
000016
000002

i
:
3

JSR
oPB
NORMAL

ERRABO:

MOV

MOV
MOV

MOV

002276
002302
002300

MOV
MOV8
MOVB
MOV

BIT
BEQ

TRAP

000004

001000

1$:

2%:

S4:
6%:

14(R1) ,R2

36(R2),CYL.RD
6(R2),SEC.RD
7(R2),TRK
.RD
16(R1) ,R2

o8IT1,R2
14

CS$ERDF

24
C$ERDF

.WORD
.WORD
.WORD

26
EM26
DH44

BIT

08179 ,R2

B8R

B8EQ

BI12,R2

C$ERDF

27
EM27
DH44

81T

o8IT10!'81IT11,R2

B8R

CSEROF

. WORD
.WORD
.WORD

30
EM30
DH2S

8IT

#81712!'BIT14
,R2

B8R

B8EQ

. WORD
.WORD
.WORD
8R
MOV
MOV
MOV

31
EM3)1
DHRS
St
BYPASS,RS
(SP)+,R2
(SP)+,R1

RTS

1SAVE R1

$ SAVE R2

sLOAD THE DPB ADDRESS
s ADDRESS OF SAVED REGISTER TABLE
;GET CURRENT CYLINDER
sGET CURRENT SECTOR
1GET CURRENT TRACK
;R2 TEMP STORAGE
sORIVE BECOME NON EXIST ?
;BRANCH IF NOT

sEXIT

;PORT REQUEST TIMEQUT
;BRANCH IF NOT

.WORD
.WORD
.WORD

TRAP

002262

(SP)

8EQ
TRAP

:3 @4

TRAP

R1,

R2, -(SP)
(R5)+,R1

2%
EM2S
OH2S
St

BEQ

050000

DATA BLOCK PAR ADDRESS

RET

.WORD
.WORD
.WORD
BR

TRAP

006000

RS ,ERRABO

CSEROF

;TIME OUT ON THIS DRIVE
;BANCH IF NOT

tEXIT

sMASSBUS

PARITY

;BRANCH IF

NOT

ERROR

1tORIVE UNSAFE OR OFFLINE

1BRANCH IF NOT

(OTHER ERROR CATLOG)

s THE ABORT ADDRESS
1EXIT IF NO ABORT CONOITION
1EXIT

CZRJULBO NPO7 FCINL TEST MACRO v04.00
GL OBAL SUBROUTINES SECTION

DEC 83

12:59:%8 PAGF

:ABORT

RETURN

30 1

ADDRESS

De,

FROM

SFQ OLEB
'FRRABO'

SUBR,

VIA

BYPASS',

ON DEV

FATAL

ERROR

44
as

015406
015406

ABOPAS:

104444

TRAP

CSOCLN

46
47

48
49

S0
S1
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69

015410
015412
0135416
015420
015424
015430
015434
015436
015444
015446
015452
015454
015460
015462
70 015464
71 015466
72

: THIS ROUTINE

WILL

PROVIDE

STALL

IN MILLISECONDS FOR

SPECIFIC

$AMOUNT OF TIME IF STALRD = O OR A RANDOM AMOUNT OF TIME IF
sSTALLL CONTAINS SPECIFIED TIME FOR TESTS 1 6, AND STALLZ
;:CONTAINS THE TIME FOR TESTS 13-18,
; CALL
R4 ,STALL
JSR
H
013446
105737
001406
004737
013716
042716
005046
162766
103407
012716
005704
005366
001174
000765
022626
000204

002232
011712
011774
177700
000001
000144

000000

TIME

STALL:

MOV

a(R4)+,-(SP)

;PICKUP STALL

B8EQ

:NO -BRANCH

1S18

1¢;
28:

;USE

TO FIND

A RANDOM

THE

TIME

STALL

TIME

PC.RAND

8IC
CLR
SUB
8LO

8tC77,(SP)
(SP)
01,2(5P)
41

;1BUT NEVER > 64 MILLISECONDS
sCLEAR TEMP. LOCATION
sMORE STALL REQUIRED?
:NO - -BRANCH

TST

;NOP TO KILL TIME

ggfi

3
2

;LOOP

MOV

STALRD

sWHERE

JSR

MOV

000002

POINTER

DEC

(ol o4
RTS

$RP1,(SP)

9100, ,(SP)

0(sP)
(SP).,(SP)»

1 YES - -FORM RANDOM NUMBER
sAND

USE

;STALL

s COUNT

FOR

THE

ABOUT

;CLEAN OFF
sEXIT

FOR

THE

STALRD

STALL

TIME

MILLISECOND

COUNTS NEEDED

STACK

b v

O® VO N DNl
-

CZRULBO RPO7 FCTNL
GL OBAL SUBROUTINES

TEST MACRO v04.00
SECTION

DEC 83

12:99:38 PAGE

s ROUTINE

s CALL
.

4
H

015470
015472
015474
015502
015510
015512
015516
015520
015526
015534
015542
015546
015552

015556
015560
015562

015564
015566
23 015570
24 015576
25 015602
26 015606
27 015610

010146
012401
042737
023761
001003
023711
001431
013737
113737

113737
112137
112137

011137
005744
104456
000052
007107
010366
012737
004437
062704
012601
000204

VERIFY;

150000
042762

042762
000002

042764

042762
042765
042764
002306

002276
002300
002302

1¢:

002552

SOF TWARL

2%:

33
44
:

COMPARE

JSR

R4 ,VERIFY

MOV

R1,

SEG 0069
HEADER

ADR POINTER
ERR RETURN
RE TURN

MOV
8IC

(SP)

(R4).,R1
F
9150000,0BUF

DBUFF ,2(R1)
1$
DBUFF +2,(R1)
34

MOvVB

DBUF
3, TRK.RD
F

MOV

.WORD

MOV
JSR
ADD

MOV
RTS

IMPLIED

SEEKS

; ADDRESS OF DPB+10 (SECTOR NUMBER)

cMP
BNE
cHp
BEQ
MOVB
MOVB
MOVB
MOV
157
TRAP
.WORD
.WORD

002310
002304

000107
014374
000002

DBUFF ,CYL.RD

s SAVE R1

;GET ADDRESS OfF DPB.10

$STRIP FORMAT AND BAD SECTOR BITS FROM CYLINDER NUMBER

sCYLINDER NUMBER OK?
iNO - -BRANCH
$YES--HOW ABOUT TRACK/SECTOR?
1BRANCH IF GOOD

$1SAVE THE EXPECTED AND THE
tRECIEVED CYLINDER,

¢,
TRAC

OBUFF +2,SEC.RD
(R1)+,S€EC.DS
(R1)+,TRK.DS
(R1),CvL.DS
-(R4)
C$ERHRD
42
EMA2

tAND

ORECAL ,0PB. A2
R4 ,CALL.A

sLOAD RECALIBRATE ORDER CODE

DH4S

02,R4
(SP).,R1
R4

sMAKE

SECTOR

TEST

PC.4

+GO EXECUTE THE COMMAND
: INCREMENT RETURN ADDRESS
;RESTORE
(EXIT

[ ¢
CZRULBO RPO7? FCTNL

TEST MACRO vO4.00

SECTION

1 DEC 83

NE AN -

SUBROUTINES

12:59:38 PAGE

3EQ GG70

s THIS ROLTINE WILL PERFORM A “MASSBUS” INIT.
;A "RECALIBRATE"” ON THE DRIVE UNDER TEST,

sNOTE:
s CALL

O®~NT

GLOBAL

015612
015614
015622
015626
015632
015640
015644
015646
015650
015654
015656
015660
015666
015674
015702
015706
015710
015714
015716
015720
015722
015730
015736

005001
012777
005037
005037
012737
004437
002630
000433
005737
001775
100021

013737
113737
113737
004537
002630
004537
002630
005724

000040
002640
002642
000107
021122

165056

:
:

JSR
RETURN1

RE TURNZ

SRCHOO:

CLR

MOV

CLR
CLR

MOV
JSR

OTADPS

002642
002641
002640
015214

B8R

1s:
002304
002310
002306

012766

2s:

012777
012777
000204

164746
164766

DORTI:
L10011:

000002

sRETURN HERE

s INCASE OF ERROR

#CLR,RPCS2

;sMASSBUS

DTADPB+10
DTADPB.12

ORECAL ,DTADPB+2
R4 ,RPO7

ERROR

(TYPTIM)

INIT.

s TRACK=0; SECTOR=0
sCYLINDER =0

;COMMAND = RECALIBRATF
;CALL THE DRIVER

;OPB POINTER

sBRANCH IF QUEUE FULL ,NO SPACE

JSR
DTADPB
JSR
DTADPB
TST
BR

RS,ERRABO

RTS

:D0 A MASSBUS INIT. AND RECAL
tRETURN HERE IF NO ERROR

OTADPB+16
;WAIT ON DONE
1
3
: TAKE NORMAL EXIT
DTADPB.12,CYL.DS
;sCYLINDER

MOV
MOV

R4, SRCHOO

TST
BEQ
8PL
MOV

MOvVB
MOVB

sTHIS

015740
015740
015740

THIS ROUTINE DESTROYS R1 AND R4

002632

002646

FOLLOWED B8Y

OTADPB+11, TRK.DS
OTADPB+10,S€EC.DS

;s TRACK
sSECTOR

;CHECK ANY

ABORT

NO ERROR

CONDITION

RS,ERRANY
(R4).
43
©0,8RPDA
00,8RPDC
R4

AN RTI WHICH

;ADJUST FOR ERROR EXIT
;GO TO THE EXIT
s TRACK AND SECTOR =0
sCYLINDER = O
s RETURN

IS USED BY

THE

TIMING

TESTS

;RETURN FROM INTERRUPT

RTI

3&?15 ROUTINE WILL INITIALIZE THE TIMERS USED BY THE TIMING ROUTINE
s

015742
015746
015752
015756
015760
015762
015764
015770
015776
016004
016010

004737
012700
012701
005020
020001
103775
012710
012737
012737
004737
000207

010750
002312
002346

042762
077777
0777177
011002

RETURN

JSR

PC,STRTMR

STRTMR:

JSR
MOV
MOV
CLR
cHP
8LO

PC.SAVREG
4TIM.UP,RO
OTIM.PT,R1
(RO)»
RO,R1
13

1 SAVE RO-RS
sSTART AT TIM.UP
;1STOP AT TIM.PT
:CLEAR
sDONE?
sNO - -BRANCH

MOV
JSR
RTS

0tCBIT1S5,TIM.DN
PC,RESREG
PC

;POSITIVE NUMBER
tRESTORE RO-RS
t RETURN

1s:

002312
002330

CALL

MOV
MOV

QDBUFF ,(RO)
0tCBIT1S,TIM
. UP

(MINIMUM)

1SETUP POINTER
;SET MINIMUM TIME

s THIS ROUTINE IS USED FOR MEASURE

THE AVERAGE SEEK

TO MAXIMUM

TIME

CZRUABO RPO7 FCTNL
GLOBAL SUBROUTINES

TEST MACRO Vv0O4.00
SECTION

(3¢,
1 DEC-83

56
S8
59

109
110
111
112

5€Q 0071

629X629

;

WHERE

THE

IS THE SEEK TIME FROM CYLO TO CrL1

THE T2 IS THE SEEK TIME FROM CYLO TO CvL2 ,ETC.
COUNT2: ROUTINE WILL CALCULATE THE FOLLOWING SUHHATION

(T1X629. 72X6280T3X6270 ....... ) X2
629

016012
016016
016020
016022
016026
016030
016034
016040
016046
016052
016056
016062
016064
016066
016072

86 016074

87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108

(T1X629o72X6280T3X627074X626 ....... IX2

80
81
82
83
84
85

s IN THE TEST 10
s THE TIME IS MEASURED AS:

61
62
»3
64
65
66
67
68
69
70
1
72
73
74
75
76
7
78
79

12:59:38 PAGE

016076
016100
016104
016110
016114
016122
016130
016134
016136
016142
016150
016152
016156
016164
016166
016174
016202
016204
016210

012702
005705
001402
012702
010146
017746
004737
016666
011666
016616
013746
006216
005216
004737
006126
100001
005216
062662
005562
005262
017777
062737
027712
002002
017712
027763
002002
005262
027762
003403
017762
027763
003402
005262
000207

002312

COUNT2:

002330

174172
011420

000002
000002

1s:

MOV

MOV
MOV
MOV
MOV
MOV
MOV
ASR

177776

INC
JSR
ROL
BPL

011176

2s:

164224
002346

174064
174060

174044

4% :

000004
000006

INC
ADD

13
QTIM.ON,R2
R1.-(SP)

aPKC, -(SP)

PC, $MULT

2(SP), -2(SP)
(SP),2(SP)
-2(SP),(SP)
LC,-(SP)
(SP)
(SP)

PC, $0IV

(SP).
28

INC
MOV

cp
B8GE

8PKC,(R2)
3¢

ADC

MOV

coe
BGE
INC

oy
o

BLE

Ss:

MOV
cMpP

6s:

BLE
INC
RTS

000006

@TIM.UP,R2
RS

(SP)
(SP)+,10(R2)
12(R2)
14(R2)
8PKC,8TIM.PT

ADD

000002

174034
174026

1ST
BEQ

JSR

177776

002206

000010
000012
000014
174106
000002
174072

MGy

92,TIM
PT

8PKC,(R2)

@PKC,4(R3)

2(R2)
8PKC,4(R2)
5%
SPKC,4(R2)
8PKC,6(R3)
64
6(R2)

sCOUNT UP TABLE

;COUNT UP CALCULATING ?
:BRANCH IF SO
:LOAD THE COUNT DOWN TABLE
:COEFFICIENT 629,628,627,....
:MEASURED TIME INTERVAL
; TIME INTERVAL X COEFFICIENT
iSWAP THE LSB

H
H

MOV
MOV

oTP,R3
FLAG,RS

MSB OF

THE PRODUCTION

: FOR THE CALLING SEQ OF $DIV ROUTINE
;DIVIDED BY 629 (TOTOL & OF SEEKS)
; OIVIDEC BY 629/2

sROUND UP

THE FRACTION

s TIME X COEFFICIENT/TOTAL & OF SEEKS

:REMAINDER OVER 0.5

:1BRANCH IF NOT

;ROUND UP
;LS8 OF

;HSB OF
i TOTAL

THE TOTAL SuM

THE

SEEK

TOTAL

COUNT

SUM

:SAVE THE TIME INTERVAL
sADJUST THE POINTER
sMINIMUM TIME
$BRANCH IF NOT

1LOAD THE NEW MINIMUM
;LOWER THEN THE LIMIT ?

$BRANCH IF NOT

tUPDATE THE COUNTER IS SO
{GREATER THAN THE MAXIMUM VALUE

1BRANCH IF NOT
;LOAD THE NEW MAXIMUM VALUE
;OVER THE LIMIT
$BRANCH IF NOT
tUPDATE THE COUNT, IF SO

tEXIT

s THIS ROUTINE WILL ADD THE ELAPSED TIME TO
sMAINTAIN THE MINIMUM AND MAXIMUM TIMES.
sNOTE; THIS ROUTINE DESTROYS R2

s CALL

ETC.

+PARAMETER

THE

AVERAGE

POINTER

$FLAG=0=COUNT UP

COUNTER AND

CZRJLBO RPO7 FCTNL

GLOBAL

SUBROUTINES

113
114
115
116
117 016212

118
119
120
121
122
123

016216
016220
016222
016226
016232

016234
124 016242
125 016250

120 016252
127 016254
128 016256
129 016262
130 016264
131 016272
132 016300
133 016302
134 016304
135 016306
136 016312
137 016314
138 016316
139
140
141
142 016324
143 016326
144
145 016334
146 016336
147 016344
148 016352
149

150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165

TEST MACRO vO4.00 1 DEC 83

SECTION

12:59:38 PAGE

-4

32 2

5EQ 6672
;FLAG=

JSR

RETURN

012702
005705
001402
012702
027722
002003
017762
027763
002001
005212
005722
027722
003403
017762
027763
003401
005212
005722
067722
005522
005212
023727

001412
022737

101406
017777
062737
000207

002312

COUNT

002330
173774
173766

173760

1%:

177776
000004

3s:

173744
173736

173730

177776
000006

002114

Ss:

173714

MOV

#T. IM
UP,R2

MOV

RS
1
#TIM DN,R2

TST
BEQ

cMP
BGE

MOV

2%:

cHp
8GE
INC
TST
cMe
BLE

MOV
CMP

BLE
INC
TST

ADD
ADC
INC

cHP

000022

PC,COUNT

ggKC,4(R3)

062706

$ADD

(R2)

000001

000004

SPTYP:

THE

TOTAL

WRITE-CHECK

OPERATION AFTER

THE

SPEC

;SAVE

THIS COUNT?

;LAST CYLINDER X 4

;NO- -BRANCH

s YES

-WELL SAVE

ALL

TIMING

;ADVANCE
s RETURN

THE

iHEN

POINTER

TESTS

R4,SPTYP
JSR
TABLE ADDRESS

.WORD

MESSAGE

. WORD
. WORD

MIN VALUE
MAX VALUE

MOV
TST

(R4)+,R2
TYTIME

BEQ

MOV
MOV
MOV
TRAP
ADD

THE

TIMED

WRITE

;OTHERWISE WRITE DATA WILL BE DESTOYED AND A
;WRITE CHECK ERROR WCE WILL RESWLT IN RPCSZ2!

64
SPKC,8TIM.PT
02, TIM.PT
PC

002242

THIS COUNT

;COUNT THIS READING
;00 NOT SAVE COUNTS IN MEMO IN 8 TO ALLOW

L$TEST,#18.

8LOS

THAN THE HIGH LIMIT?

;NO - -BRANCH
s YES--COUNT IV
s ADVANCE THE POINTER

MOV

010600
104417

;GREATER

164002

012246
012746

sNO - -BRANCH
s YES--SAVE IT

aPKC, 2(R2)
PKC,6(R3)
Ss
(R2)
(R2)+
BPKC,(R2)+
(R2)+

173664
000002

s TABLE:

016364
0163A6
016372
016374
016376

s YES- -COUNT IT
; ADVANCE THE POINTER
;GREATER THAN PREVIOUS HIGH?

OPKC,(R2)+
44

s THIS ROUTINE PRINTS

012402
005737
001447

:NO - -BRANCH

(R2)
(R2)

6%
QDBUFF +<44629.>,TIM

6%:

“UP" POINTER

iNO -PICKUP “DOWN" POINTER
;LESS THAN PREVIOQUS LOW?
s NO - -BRANCH
1 YES--SAVE IT
:LESS THAN THE LOW LIMIT?

)
SPKC,(R2
2
8PKC, 2(R2)

BEQ
CMP

ADD
RTS

DOWN

s YES - -BRANCH

002346

;s CALL

016354
016356
016362

;PICKUP THE
sUSE IT?

047706

002346

1=COUNT

3¢

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

C$PNTF

04 ,5P

1 THE TABLE ADDRESS
sALLOW TIME TO BE TYPED

:BR

IF NO

tPRINT

MESSAGE

CZRJLBO RPO7 FCTNL
GLOBAL

SUBROUTINES

166 01€402
167 016404
168 016406
016412
016416
016422
0l6424
016426
169 016432
170 016434
171 016436
016442
016446
016452
016454
016456
172 016462
173 016462
016466
016472
016474
016476
174 016502

TEST MACRO vO4.00

SECTION

1 DEC 83

005722

001412
016246
012746

157
BEQ

177776
017270

012746
010600
104417
062706
005722
001412
016246
012746
012746
010600
104417
062706

000002

012746
012746
010600
104417
062706
000204

003064
000001

MOV

1¢:

177776
017313
000002

2s:

000004
3s:

(R2)
1$
2(R2),

Ie
5EQ 0073
;LOAD MIN VALUE

(5SP)

MOV
MOV
MOV

OMSGMIN, -(SP)

ADD

46, 5P

TRAP

000006

12:59:78 PAGE

TST
BEQ
MOV
MOV
MOV
MOV
TRAP
ADD
MOV
MOV
MOV
TRAP
ADD
RTS

;SKIP IF MIN VALUE

SP,RO

CSPNTF
(R2).
28
-2(R2), -(SP)

s THE

MAXIMUM

OMSGMAX, -(SP)
02, -(SP)
SP,RO

CS$PNTF
96,SP

#CRLF,

(SP)

01, -(SP)

SP,RO
CSPNTF

24,5pP
R4

VALUE

sBRANCH IF NO LIMIT

sCR LF

IS O

Je
TEST MACRO v04.00
SECTION

O® NG NPy
-

CZRJLBO RPO7 FCTNL
GLOBAL SUBROUTINES

DEC 83

12:59:38 PAGE

;3 THIS ROUTINE IS USED TO TYPE THE MINIMUM,
¢MAXIMUM, AND AVERAGE TIMES FOR THE TIMING TESTS

+IT WILL ALSO CHECK THE TIMES TO ENSURE

+THEY ARE WITHIN TOLERANCE AND IFf NOT FLAG
;NOTE
: THIS ROUTINE DESTROYS R2 RS

; CALL

;

JSR
TABLE

R4, TYPTIM

RETURN
: TABLE:

41
42

44
45

5EQ 0G74

016504
016506
016510
016514
016516
016520
016522
016526

012402
010446
012237
012205
012203
011202
012704
004737

016532
016540
016544
016546
016552
016554
016560
016562
016566
016570
016574
016576
016602

012737

016606
016606
016612
016616
016620
016622
016626
016632
016634
016640
016644
016646
016650
016654
016660
016660
016662
016666

105737

001020
005764
001403
005737
001012
005764
001403
005737
001004
005037
000137

013746
012746
010600
104417
062706
005764
001012
012746
012746
010600
104417
062706
000137
012446
012746
012746

TYPTIM:

017264

002312
017634
000001
002227

002242

14:

24:
3s:

01, TYTIME

BEQ
TST
BNE
TST
BEQ

MOV
MOV

TRAP

ADD

017615
000001

000004
017260
44
:

(R2)+,12%
(R2)+,RS
(R2)¢,R3
(R2),R2

OTIM.UP,
R4
PC.,CHKAVG

TIMTYP
3¢
2(R4)

TST
BNE
MOV
MOV
MOV
TRAP
ADD
JMP

MOV
MOV
MOV

TIMES.

;GO REPORT THE TIMES
sPOINT TO THE PROPER TABLE

s ADDRESS OF ASCIZ MESSAGE NUMBER 1
s ADDRESS OF ASCIZ MESSAGE NUMBER 2

sMINIMUM
;MAXIMUM

TIME
TIME

ALLOWED
ALLOWED

;PICKUP THE TABLE POINTER
:sPUSH R4 ON STACK

s ADDRESS OF 1ST MESSAGE
;sADDRESS OF 2ND MESSAGE
sPICKUP THE LO LIMIT
sAND HI LIMIT VALUES,
:GET ADDRESS OF UP TIMES STORAGE
;SEE IF AVERAGE BELOW/ABOVE SEEK TIMES SHOWD
;:BE TYPED
sALLOW TIMES
sALWAYS TYPE

AND LIMITS TO BE
THE TIMES ?

TYPED

;BR IF YES
sANY SEEKS BELOW THE LOW LIMIT

:BR IF NO

sTYPE & OF SEEKS BELOW LIMIT?
;:BR IF YES
; ANY

SEEKS

;BR IF NO

TST
BNE
CLR
JMP

MOV

000004
000014

017270
000002

MOV
7578

TSTY

017714

017264
000001

(R4).,R2
R4, -(SP)

BNE

017714

817266

MOV
MOV
MOV
MOV
MOV
MOV
MOV

JSR

000002

000006

MSGADR1
MSGADR2
MIN. ALLOWED
MAX, ALLOWED

THE BAD

sTYPE

:BR

@ OF

YES

ABOVE

THE

HIGH LIMIT

SEEKS

ABOVE LIMIT?

sNO TIMES OR LIMITS TO BE TYPED
sNO--EXIT

12¢,-(SP)
SP,RO
CHPNTF
#4,SP

14(R4)

OMSGNON, -(SP)
e1,-(SP)

SP,RO
CS$PNTF
04,5P
11

(R4).,-(SP)

OMSGMIN, -(SP)

sDID ANY SEEKS OCCUR
tBR IF YES

‘¢
CZRJLBO RPO7 FCTNL

GLOBAL

46
47
48
49

32
53
55

58
60
61

SUBROUTINES

016672
016674
016676
016702
016704
016706
016712
016714
016716
016722
016726
016732
016734
016736
016742
016742
016744
016750
016754
016756
016760
016764
016766
016770
016774
016776
017000
017004
017010
017014
017016
017020
017024
017024
017030
017034
017036
017040
017044
017046
017050
017052
017056
017060
017062
017064
017070
017074
017100
017104
017106
017110
017114
017122
017124
017132
017134

TEST MACRO vO4.00

SECTION

010600
104417
062706
005724
001416
005737
001413
010346
016446
012746
012746
010600

104417
062706

012446
012746
012746
010600

104417
062706
005724
001416
005737
001413
010246
016446

012746
012746
010600

104417
062706

012746
012746
010600
104417
062706
012446
012446
012446
004737
006126
100201
005216
012637
013746
012746
012746
010600
104417
062706
022737
001423
022737
001432
022737

1-DEC 83

12:59:38 PAGE
MOV
TRAP
ADD
TST
BEQ
TST

000006

017714

BEQ

177776
017362
000003
000010

S$:

017313

MOV
MOV
MOV
MOV
MOV
TRAP
ADD

MOV
MOV
MOV
MOV

000002

TRAP
ADD
TST

000006

8EQ
TST
BEQ

017714

MOV
MOV

177776
017434
000003

SP,RO

CS$PNTF
#6,5P

(R4).

;ANY

R3, -(SP)

THE

LOW LIMIT

;TYPE & OF SEEKS BELOW LIMIT?
tNO, SKIP IT

-2(R4),-(SP)

OMSG,BEL
-(SP)

SP.RO
CSPNTF
10,5P

(R4)+,

(SP)

OMSGMAX, -(SP)

SP,RO
CSPNTF
#6,SP
(R4).

;ANY

SEEKS

s NO - -BRANCH

;TYPE

sNO,

& OF

SKIP

ABOVE

THE HIGH LIMIT

SEEKS

ABOVE

LIMIT?

-2(R4), -(SP)

SP,RO

6%:

#10,SP

OMSGAVG, -(SP)

SP,RO
CSPNTF

000004

04 ,5P

(R4).,-(SP)
(R4)+,-(SP)
(R4).,-(SP)

011176

+FORM THE AVERAGE

PC,$DIV

(SP)+

7¢

017266
017266
017347
000002

000022

SEEKS BELOW

:NO - -BRANCH

CSPNTF

017336
000001

000016

S5EQ G075

MSGABV, -(SP)

000010

000006
000007

)]

7%:

(SP)
(SP)+,AVERAG

AVERAG, -(SP)
®AVGV
, -(SP)
AL

;IS THE REMAINDER OVER HALF?

sNO - -BRANCH

s YES--ROUND UP

1POP AVERAGE VALUE FOR PRINT

SP,RO
CSPNTF
002114
002114
002114

06,SP

07,L$TEST

8%
014, ,L$TEST
9¢

€18. ,L$TEST

sTEST 7

1BRANCH IF SO

s TEST

1 TEST

:+BRANCH IF SO

L £
CZRJLBO RPO7 FCTNL TEST MACRO v04.00
GLOBAL SUBROUTINES SECTION
72 017142
73 017144

017150
017154
017160
017162
017164
017170
75 017172
017172
017176
017202
017206
017210
017212
76 017216
77 017220
017220
017224

017230
017234
017236
017240

78 017244
79 017250

80 017252
81 017254
82 017260
017260
83 017262

001426
016446
012746
012746
010600
104417

062706
000425

016446
012746
012746
010600
104417
062706
000412
016446
012746
012746
010600

104417
062706
010537
001403
005005
000137

12:59:38 PAGF

BEQ
MOV
MOV
MOV

177776
017506

000002

MOV
TRAP

000006
8$:

177776

017533
000002

000006
9s:

177776
017563
000002
000006
017264

10¢:

016606

11¢:

012604
000204

124:

AVERAG:

33 2

SEQ 0076

94
2(R4), (SP)
MMSGNUM, -(SP)
a2, (SP)

$BRANCH IF SO

10¢

; SKIP

ADD

SP,RO
CSPNTF
@6,5P

MOV
MOV
MOV
MOV
TRAP
ADD

-2(R4)Y, -(SP)
MMSGSEA, -(SP)
#2,-(SP)
SP.RO
C$PNTF
06,SP

MOV
MOV
MOV
MOV
TRAP

-2(R4), -(SP)
OMMSGOPE, -(SP)
#2,-(SP)
SP,RO
CS$PNTF

MOV
BEQ
CLR
JMP

RS,12$
11¢
RS
3

;sNEXT MESSAGE POINTER

(SP)+,.R4

:sPOP STACK INTO R4

B8R

ADOD

MOV

RTS

85 017264
017266
a7
91 017270
017313
93 017336
017347
95 017362
017434
97 017506
98 017533
017563
100 017615
101
102

107
108
109
110
111
112
113
114
115
116

DEC

. WORD

.WORD

10¢

#6,SP

s SKTP

; IF NONE EXIT
iNO MORE THAN 2

tEXIT

s ADRRESS OF MSG
;s AVERAGE VALUE

MSGMIN: .ASCIZ
/#NeAMIN=#DS#AO0. US/
MSGMAX: ,ACIZ
/sSNeAMAX=#DS5#A0. US/
MSGAVG: .ASCIZ
/#NMAAVG=/
AVGVAL: .ASCIZ
/wDS#A0. US/
MSGBEL: .ASCIZ
/sA #D4s%A. BELOW THE MINIMUM OF %DS#A0.
MSGABV: .ASCIZ
/#A #D4%A. ABOVE THE MAXIMUM OF #DS®A0.
MSGNUM: _ASCIZ
/#D5%A. SEEKS TIMED®N/
MSGSEA: .ASCIZ
/#DSs#A. SEARCHES TIMED®N/
MSGOPE:: ,ASCIZ /#D5¢A. OPERATIONS TIMED®N/
MSGNON: .ASCIZ
/#A NOT TIMEDsN/

US/
US/

.EVEN

t1SUBR TO CHECK IF COMPLETE SPECS ON SEEKS SHOUWD BE TYPED
+IF THE AVERAGE SEEK TIME IS ABOVE SPEC, THEN TYPE ABOVE AND BELOW VALUES
;ELSE, DO NOT TYPE THEM
1$$FLG IS SET TO INOICATE TYPE THEM
017634
017640
017646
017650
017654

005037
122737
001017

016446
016446

017714
000011

000010
000012

002114

CHKAVG:

CLR
CMPB
BNE
MOV
MOV

$$FLG
9. ,LSTEST
2
10(R4), -(SP)
12(R4), -(SP)

1 INIT FLAG

s TEST 9,

AVERAGE SEEK TIMING ?

sEXIT IF NOT
1PUSH LOW DIVIDEND OF

+PUSH HIGH DIVIDEND

TOTAL

TIME

ALL

SEEKS

CZRJLBO RPO7 FCTNL
GLOBAL SUBROUTINES

TEST MACRO vO4.00
SECTION

117 017660

000014
011176

118
119
120
121
122
123
124
125
126
127
128

017664
017670
017672

017676

017700
017702
017704
017706
017712
017714

016446
004737
006116

022664
002401

005216
022602
003402
005237
000207
000000

DFC 83

MOV
JSR
ROL

000014

1$:

017714

12:59:38 PAGE

2$:
3s:
$SFLG:

cMP
BLT
INC
CMP
BLE
INC

33-3

14(R4),
PC,$DIv

M¢)
SEQG 0077
(SP)

(sP)
(SP)+,14(R4)

14
(sP)

(SP)+,R2

RIS

34
$$FLG
PC

.WORD

sPUSH DIVISOR = NUMBER OfF
;sCALCULATE AVERAGE

SEEKS TIMED

sREM/2

IS REM OVER HALF?
+NO, SKIP NEXT

;YES,

ROUND UP

; TYPE

ALL

AVG

TIME

;OUT OF SPEC?
;EXIT IF NOT
:SET FLAG TO REPORT ALL DATA
SPECS FLAG

WR®~NOND W

CZRJULBO RPO7 FCTNL
GLOBAL SUBROUTINES

TEST MACRO v04.00
SECTION

1 DEC-83

12:59:38 PAGE

N6
3EQ 0078

i THIS ROUTINE GENERATES RANDOM CYLINDER, TRACK, AND SECTOR
: ADDRESSES AND SAVES THEN IN THE DPB (DTADPB+10, 11 & DTADPB+12).

;NOTE;

s CALL

THIS ROUTINE

JSR

R4 ,RANADR

JSR
MOvB

PC,RAND

8IC

€177700,R1

RETURN

017716
017722
017726

004737
113701
042701

011712
011774
177700

RANADR:

DESTROYS R1

$RP1,R1

;GENERATE

A RANDOM NUMBER

;FORM SECTOR IN R1
;REDUCE

SIZE

;BINARY SEARCH FOR FSc<=R1c=LS
017732
017736
017740
017744
017746
017750
017754

020137
003407
163701
000241
006001
063701
000766

017756
017762
017764
017770
017772
017774
017776

020000
020002
020004

020137
002011
013702
010203
160102
000241
006002
160203
010301
000764

020006
020012
020015

110137
113701
042701

002222

14$:

002220
002220

cMP
BLE
SuB
CcLC
ROR

ADD

B8R
002220

2$:

002222

CMP
B8GE

MOV
MOV

SuB
cLC

ROR

SUB

MOV

BR
002640
011775
177740

3s:

MOV8
MOVB

8IC

R1,LS

;WHILE R1>LS DO R1=FS+«(R1-FS)/2

FS,R1

gl.FS

$
LS,R2
R2,R3
R1,R2

iWHILE R1<FS DO R1=LS-(LS-R1)/2

R2
R2,R3
R3,R1
2s
R1,0TFDPB+10
$RP1+1,R1
€177740,R1

;SET RANDOM SECTOR
:FORM TRACK IN R1
;sREDUCE SIZE TO <=

IN OPB
31

1BINARY SEARCH FOR FTc=R1csLT
020022
020026
020030
020034
020036
020040
020044
020046
020052

020137
003407
163701

000241
006001

063701
000766
020137
002011
013702
010203
160102
000241
006002

002244

002212

ROR
ADD

002212
002212

Ss¢:

002214

B8R
cHP
B8GE
MOV

Re¢
R2,R3
R3,R1

MOVB

sWHILE R1>LT DO R1=FT+(R1 FT)/2

iWHILE

R1<FT

DO R1=LT

(LT

LT.R2

ROR

MOV

64:

Rl
FT,R1
44
R1,FT
64

R2.R3
R1,R2

SuB

002641

R1,LT
S
FT.R1

MOV

SuB
CLC

160203
010301
000764

110137

CcHP
BLE
suB
CLC

R1,0TADPB.+11

$SET RANDOM TRACK IN DPB

R1)/2

CZRABO RPO? FCTNL

TEST MACRO VO4.00

58 020102
59 020106
&0 020112

011712
011774
176000

GLOBAL

SUBROUTINES SECTION

61
62
63
o4 020116
65 020122
66 020124
67 020130
68 020132
69 020134
70 020140
71
72 020142

73
74
5
76
77
78
79

020146
020150
020154
020156
020160
020162
020164
80 020166
81 020170
82
83 020172
84 020176

004737

013701
042701

1| DEC 8%

1.:59:%8 PAGE

JSR
MOv

81C

PC . RAND
$RP1,R1
#176000,R1

5£Q o679
;GENERATE RANDOM NUMIERS
tPICK ONE FOR C7L INDER
sREDUCE SIZF 10 «»1777

C
:BINARY SEARCH FOR FCc=R1c¢o

020137
003407
163701
000241
006001
063701
000766

020137
002011
013702
010203
160102
000241
006002

002206

7¢:

002204

ROR
ADD

002204

B8R

002204

cre
8GE
MOV
MOV

002206

9
:

DO R1-FC+(R1-FC)/2

R1,.FC
94

sWHILE R1<FC DC R1=LC (LC-R1)/2

LC,R2
R2,R3

R2
R2,R3
R3,.R1
8s

MOV

R1>LC

R1
FC.R1

ROR

RTS

sWHILE

FC.R1

R1,.R2

SUB
MOV
B8R
002642

R1.LC
8s

SUB

CLC

160203
010301
000764
010137
000204

P
BLE
su8
CLC

R1,0TADPB.12

sSAVE CYLINDER ADDRESS

sRETURN

TEST MACRO v04.00 1-DEC 83 12:99:%8 PAGE
.SBTTL

.WORD
.WORD
. WORD
,WORD
.WORD
.WORD
.WORD
.WORD

RPER2,

cooooooo
cooocooo00
oooo00000

RPSTUO:
RPSTUL:
RPST2:
RPSTUS:
RPSTU4:
RPSTUS:
RPSTU6:
RPSTU?:

RPER1,

coo0o0o000O0

020200
020210
020220
020230
020240
020250
020260
020270

AND RPER3
;10S,
05,
;0S,

:05,

ER1,
ER1,
ER1,

ER1,

;05,

ER1,

;:0S,

ER1,

:0S, ER1,

:0S, ERY,

ER2
ER2
ER2
ER2
ER2
ER2
ER2
ER2

ER3
ER3Z
ER3
ER3
ER3
ER3
ER3
ER3

STORAGE
STORAGE
STORAGE
STORAGE
STORAGE
STORAGE
STORAGE
STORAGE

FOR

FOR
FOR

DRIVE
DRIVE
DRIVE
ORIVE
ORIVE
ORIVE
DRIVE
ORIVE

s TABLE

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
OF

DRIVE

sORIVE
;DRIVE
:ORIVE

;DRIVE

;ORIVE
sORIVE

sDRIVE
;DRIVE

STATUS

INDICATORS

NOVMDWN-O

DRVACT:

(oYoYeoNoToXoXoXo)

020300
020301
020302
020303
020304
020305
020306
020307

83888838

: TABLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES)
:ORVACT=0 IF DRIVE IS IDLE
tORVACT>0 1F DRIVE IS ACTIVE WITH A COMMAND
:DRVACT<O IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION

(DRVSTA«8 BYTES)

1DRVSTA=0 IF DRIVE IS OFFLINE OR NONEXSITENT

sDRVSTA>0 IF DRIVE

IS ONLINE

.BYTE
.BYTE
.BYTE

.BYTE

.BYTE
.BYTE
.BYTE
.BYTE
s TABLE

OF DRIVE

;DRIVE
;ORIVE
;ORIVE
;sDRIVE
sORIVE
;DRIVE
sORIVE
sORIVE

TYPES

NOWVND WO

DRVSTA:

OO0CO0O0O0O00O0

020310
020311
020312
020313
020314
020315
020316
020317

88388388

iORVSTA<QO IF DRIVE IS UNSAFE

(DRVTYP«8 BYTES)

:DRVTYP=0 IF DRIVE IS NONEXISTENT

1ORVTYP=5 IF DRIVE IS RPO7

020320
020321
020322
020323
020324
020325
020326
020327

ORVTYP:

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

00000000

sORVTYP=-1

IF DRIVE

(DRVSTA=0,

ALSO)

MOVING HEAD OPTION

IS RPO7 FIX MEAD OPTION

IF NOT RPO7?

sDRIVE
sORIVE
t1DRIVE
sDRIVE
1DRIVE

sORIVE

1DRIVE
1ORIVE

NOND WO

sDRVTYP=4

88883888

RPO7 DRIVER

:STORAGE #OR RPDS,

5EG GOA0

s TRBLE OF DUAL PORT INITIALIZATION INDICATORS

NOND WO

1
2
2

MMM

CZRABO RPO7 FCTINL

RPO” DRIVER

CZRJLBO RPO7 FCTNL

RPO~

DRIVER

TEST MACRO v04.00 1-DEC-8% 12:59:3%8 PAGE

61
62
63
64 020330
65 020331
66 020332

OPINT:

72
73
74
75
76
77
78
79
80
81

91
92
93
94
95
9%
97
98 020352
99

1 TABLE

58U 0081

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
OF

O
O
O
0
0
O
O
O

sORIVE
sDRIVE
1ORIVE
1DRIVE
;sORIVE
;ORIVE
;DRIVE
1ORIVE

PENDING DUAL

PORT

O
1
2
3
4
5
6
7

REQUESTS

:DPRQS=0 IF THAT A DUAL PORT REQUEST IS NOT PENDING FOR THAT DRIVE
:DPRQS<0 IF THAT A DUAL PORT REQUEST IS PENDING FOR THAT DRIVE
OPRQ@S:

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

; TRANSFER WAIT

O
O
O
O
O
O
O
O

sORIVE
sORIVE
sORIVE
;ORIVE
;DRIVE
1DRLVE
sORIVE
;ORIVE

FLAG (TRNSWT=1

O
1
2
3
4
S5
6
7

WORD)

s THIS IS A ONE WORD QUEUE. IT WILL CONTAIN THE ADDRESS OF
;:"DPB” OF THE 1/0 OPERATION.

000000

TRNSWT:

.WORD

s SEARCH WAIT KEYS (SRCHWT=1 WORD)

sTHIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF
s THE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE 1/0
sREQUEST THAT IS AT THE TOP OF THEIR REQUEST GUEUE.

sEACH DRIVE IS ASSIGNED ONE BIT,
SRCHWT:

100
101

102
103
104 0203%4
105
106
107
108
109
110 020355
111
112
113
114
115
116 020356
117 020360

sOPINT=0 IF INITIALIZATION IS NOT ACTIVE ON THE DRIVE
tOPINT<O IF INITIALIZATION IS IN PROGRESS

67 020333
68 020334
69 020335
70 020336
71 020337

020340
020341
020342
020343
020344
82 020345
83 020346
84 020347
85
86
87
88
89
90 020350

.WORD

STARTING AT BITOO FOR DRIVE O.

sRPO7 DRIVER ACTIVE FLAG (ACTDRvV=1 BYTE)
sACTORV=0 IF DRIVER IS INACTIVE

sACTORV>0 IF DRIVER IS5 ACTIVE

ACTDRV:

.BYTE

1SOF TWARE TIMER ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE)
sACTSTR=0
sACTSTR>0

ACTSTR:

.BYTE

IF
IF

SOFTWARE
SOFTWARE

TIMER ROUTINE
TIMER ROUTINE

177777

TIMER:

INACTIVE
ACTIVE

s TIMEOUT TABLE (TIMER=8 WORDS)
177777

IS
IS

s THIS

TABLE

CONTAINS

THE

.WORD

-1

sORIVE

. WORD

-1

sORIVE

TIME

ALLOWED FOR

AN OPERATION

;:DATFE

56U 0082
sDRIVE
sDRIVE
;ORIVE
sDRIVE

sORIVE
:DRIVE

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

35-2

177777
177777
177777
177777
1777177
177777

020362
020364
020366
<0370
020372
020374

12:959:38 PAGE

b pud pud pub

118
119
120
121
122
123
124
125
126
127
128
129

TEST MACRO v04.00 1 DEC 83

DRIVER

CZRULBO RPO7 FCTNL

RPO7

TRANSFER UNDERWAY INDICATOR (DTUW=1 WORD)
;0TUW<O IF NO DATA TRANSFER UNDERWAY

;10OTUW=eN (WHERE N=O TO 7)

020376

177717

DTUL:

. WORD

-1

IMPLIES DATA TRANSFER

JINDERWAY ON DRIVE N

CZRJLBO RPO7 FCTNL

TEST MACRO vO4.00

N NPy
»e

DRIVER

DEC 83

INITIALIZATION CODE

:CALL
:

tNOTE:
020400
020404

004737
004737

020410
020412

104440
010046

020414
020420
020422
020426
020432
020436
020440
020442
020444
020450
020454
020456
020460
020464
020470
020474

012700
104441
004737
012701
012702
005021
020102

020102
101774
005037
005037
005037
005037

020500
020504
020510
020514
020520
020522
020526
020534
020540
020544
020546

013746
012746
013746
012746
104437
062706
012777
013701
004437
000401
000402

40
41
42
43 020550
44 020554

45 020554
020556
46 020560
47 020564
48
49

5EG 0083

;7O THE PROPER STATE FOR EACH DRIVE.
:NOTE: THIS ROUTINE CALLS DRVINT

DRIVER

: THIS ROUTINE WILL DETERMINE WHICH RPO7 DRIVES ARE
sAVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR

12:59:38 PAGE

iRHXX/RPO7

OO ~NT

RPO7

103775
012702
012721

105061
012600
104441
004737
000207

PC,RPINIT

THE

‘P’

RPINIT: JSR

010750
012000

000240
025350
020200
020356
1%:
020376
177777

es:

TRAP
MOV

RO, -(SP)

MOV
TRAP
JSR
MOV
MOV

CLR
cHP
B8LO
MOV
MOV

cMP

CLR
CLR
CLR
MOV
MOV
MOV

MOV
TRAP

162144
3%:

ADD
MOV
MOV
JSR

BR
BR

020310

Ss:

CLR8

MOV
TRAP

011002

J5R

RTS

sORIVE

CLOCK MUST BE STARTED

PC,SAVREG
PC.ST.CLK

CLR

002656
023046
002654
000003

OR 'L’

JSR

BLOS

020310
020312
020314
020316

000010
000040
002664
020566

JSR
RETURN

C$GPRI

&PRIOS,RO

$SAVE RO

;TURN ON THE CLOCK
;SAVE THE PRESENT PROCESSOR STATUS
1CHANGE THE PRIORITY

1O S

C$SPRY

PC.CLRQUE
ORPSTUO,R1

OTIMER ,R2

(R1).

R1,R2
1t
o0TUW,R2
€ 1,(R1).
R1,R2
2t
DRVSTA
DRVSTA.2
DRVSTA«4
DRVSTA+6
RPVEC+2, -(SP)
@ISRV, -(SP)
RPVEC, -(SP)
e3,-(SP)

;CLEAR ALL REQUEST QUEUES
;FIRST ADDRESS TO BE CLEARED
;sLAST ADDRESS TO BE CLEARED
;CLEAR

;ARE

WE DONE?

sBRANCH IF NO

sLAST ADDRESS
s INITIALIZE

?
;DONE
;LOOP

IF NO

;SET ALL DRIVES TO OFFLINE

sSETUP RHXX/RPO7 VECTOR

CS$SVEC

€10,SP

#CLR,8RPCS2
DRVNO,R1

sMASSBUS

1 NORMAL RETURN

R4 ,DRVINT
44

ORVSTA(R1)

(SP)+,RO
C4SPR1

PC,RESREG
PC

INITILIZATION ROUTINE

INIT

1GET SELECTED DRIVE
t INIT THE DRIVE
:'DVA' NOT SET OR PARITY ERROR
$SET DRIVE STATUS TO OFFLINE

tRESTORE

THE

tRESTORE RO
1BYE-BYE

PROCESSOR

STATUS

(7
CZRJULBO RPO7 FCTNL

RPO?

DRIVER

TEST MACRO vO4.00

1 DEC 83

12:59:38 PAGE

36-1

5EQ 0084

: THIS ROUTINE DETERMINES IF A DRIVE EXIST AND IF IT IS
iAN RPO7, IF IT IS, A "“READ IN PRESET” IS ISSUED AND FMT16
:IS SET TO A ‘1. THEN MOL, DPR, DRY, AND VV ARE CHECKED TO
: INSURE THEY ARE ALL ON A '1”, AND DEPENDING ON THEIR STATE,

s CALL

sDORVSTA IS SET

TO THE PROPER CONDITION.

MOV
JSR
RETURN1

QDRVNUM ,R1
R4 ,DRVINT

MOV
:0V8
SL
MOV
ASR

RS, -(SP)
i SAVE RS
S-I.DPINT(RI)
sSET THE INITIAL
1
#2000., TIMER(RL)
;SET A 2
R1
sORIVE ADODRESS

CLRB

ODRVTYP(R1)

RE TURNZ2
020566
020570
020576
020600
020606
020610
020614
020620
020624
020632
020640
020642
020646

112761
006301
012761
006201
105061
105061
010177
112777
032777
001403
004737
000513

020650
020654
020662
020664
020670
020672

105061
0327717
001004
105761
001347
000501

020310
004000

020674
020700
020702
020704
020706
020714
020720
020722
020726

004437
000026
021100
012605
112761
022705
001420
022705
001415
112761
022705
001407
022705
001404

024426

020730
020736
020742
020744
020750
020752
020760
020762
020766
020772
103 020774
020776
105 021002
021006

010546

177777

020330

003720

020356

020310
020320
162054
000111
010000

1n$;

162036
162040

162006

CLR8

MOV
MOvB

8IT
BEQ
JSR

025004

1%:

020330

000005
020040

020320

000004
020042

020320

177777

012746
004437
000000
021100
012746
004437
000032

000121
024520
010000
024520

020320

24:

$;SELECT A DRIVE
;D0 A DRIVE CLEAR

0BIT12,3RPCS2
18
PC,SET.IE

BNE
BR

10¢
6%

DPINT(R1)

JSR
26

R4,RD.RP

MOV
HOVB
cHe
8EQ

(SP)+,RS
05,.DRVTYP(R1)
020040,RS
24

8EQ
MOVB
cHP
8EQ

2t
04 ,DRVTYP(R1)
020042 ,R5
28

MOVB
BR

#-1,DRVTYP(R1)
63

MOV

JSR

0
8
MOV
JSR

TIMER

R1,8RPCS2
4111,8RPCS1

DRVSTA(R1)
08I711,8RPCS1
224

CMP
B8€EQ

024042

SECOND

1 START DRIVE STATUS AS OFFLINE

CLRB
8I7
BNE

cMP

024040

FLAG

DRVSTA(R1)

1578

22%:

:NORPAL RETURN

8¢

112761

000446

DRVINT:

;ORIVE NUMBER TO R1
;:CALLED By A JUSR
sERROR OCCURRED (PARITY)

924040 ,RS

924042 ,R5
28

;CLEAR THE DRIVE TYPE INDICATOR

;LEAVE

"TRE"“

THIS ROUTINE

: SOF TWARE

TIME

;BRANCH IF NOT
;OTHERWISE EXIT
;READ

OUT

THE DRIVE

TYPE REG.

;ERROR RETURN ADDRESS

:PUT DRIVE TYPE IN RS
$SET RPO7 INDICATOR
s SINGLE PORT RPO7
+BR IF YES

sOUAL PORT RPO7

;1BR IF YES
$}SET RPO7+ INDICATOR
sSINGLE PPRT RPO7.
$BRANCH IF SO

sDUAL PORT RPO7+
$1BRANCH IF SO
;SET INDICATOR
1EXIT
100

eBIT12, -(SP)

$SET

RP
R4 ,WRT

sSET DRIVE STATUS TO OFFLINE
;SEE IF DRIVE AVAILABLE
;BRANCH IF DVA SET

0121, -(SP)

R4 ,WRT .RP

COMMAND

;NONEXISTENT DRIVE?
iNO-- BRANCH
;GO SET "IE” WITHOUT

'OTHER'

"READ-IN PRESFT"

FMT16=1

SEIZE

DRIVE)

CZRJULBO RPO7 FCTNL

RPO?

DRIVER

107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
igg

021010
021012
021016
021020
021022
021024
021026
021034
021040
021042
021044
021046
021050
021056
021060
021062
021066
021070
021076
021100
021100
021102
021110
021112
021116
021120

TEST

021100
004437
000012
021100
012605
100015
116177
004437
000014
021100
006126
100004
112761
000407
005105
042705
001003
112761
005724
006301
012761
006201
105061
012605
000204

MACRO VO4.00

DEC 83

024426

002744
024426

177777

161652

020310
44

167077
000001

177777

020310

020356

6$:

7%:
8%:

020330

1c:59:%8 PAGE
8¢
JSR
12
8s
MOV
B8PL
MOve
JSR
14
as
~OL
B8PL
MOvV8
BR
CoM
8IC
BNE
MOVB
TST
ASL
MOV
ASR
CLRB
MOV
RYS

36 2

R4 ,RD.RP

(SP).
44
#-1,DRVSTA(RL)
64

1 IS IT UNSAFE?
sBR IF NOT
;SET UNSAFE INDICATOR
sEXIT
RS
;CHECK MOL, DOPR, DRY, AND VvV
@tC<«BIT12!'BITO8!B8ITO7!81IT06>,RS
64
;:BRANCH IF MOL, DPR, DRY, OR
#1,DRVSTA(R1)
;SET DRIVE STATUS TO ONLINE
(R4).
;STEP OVER THE ERROR RETURN
R1
-1, TIMER(RL)
R1
DPINT(R1)
(SP)+,RS
R4

sREQUEST PRE PROCESSOR HANDLES

136
137
138
139
140
141

;sCALL
;
:
3
:
:

i:g

144 021122
145 021122

021124
146
147 021126
021132
148 021134
149 021142
150 021146

151
152
153
154

021150
021154
021156
021162

155 021164
156 021170

157
158 021172
159 021176

160 021200
161 021204

RPO7:

104440

010046

TRAP

MOV

013700
104441
112737
004737
011402
005062
111201
105761
003006
004437
000421

002656

105761
003436

020310

105761
001016

JSR

000001
010750

020354

000016
020310
020566

020340

14:

R4 ,RPO7

RO, -(SP)

RPVEC+2,RO
C$SPRI
€1 ,ACTDRYV
PC,SAVREG
(R4),R2
16(R2)
(R2),R1
DRVSTA(R1)
1
R4 ,DRVINT
a4

1518
BLE

ODRVSTA(R1)
64
OPRQS(R1)
St

IS CLEAR

;RESTORE RS
JEXIT
SUBSYSTEM REQUEST

;CALL

THE RPO7 DRIVER

:ADDRESS OF POINTER OF DRIVES PARAMETER BLOCK
;RETURN HERE IF QUEUE IS FULL

IF REQUEST

: IS AN ERROR CONDITION

C$GPRI

VvV

; WORD INDEX
sSTOP THE CLOCK
;ORIVE ADDRESS

sRETURN HERE

MOV
TRAP
MOvB
JSR
MOV
CLR
MOVB
7ST18
B8GT
JSR
B8R

1S78
BNE

;READ RPDS

(SP)+,R5
;AND SAVE IT IN RS
4%
;BRANCH If ATA=0O
ATABIT(R1),aRPAS ;CLEAR ATTENTION BIV
R4 ,RD.RP
sFIND OUT WHY ATA=1

igg

PNTADR
RETURN1
RETURNZ2

560 0085

;SAVE

sOON'T

IN QUEUE

THERE

THE CALLING STATUS

ALLOW ANY RPO7

INTERRUPTS

;SET “ACTIVE DRIVER" FLAG
:SAVE RO - RS
sPICKUP THE DRIVE PARAMETER BLOCK POINTER
;CLEAR THE STATUS/ERROR INDICATOR
;PICKUP THE DRIVE NUMBER
1CHECK DRIVES STATUS
tBRANCH IF ONLINE
1GO INIT. THE DRIVE
tERROR RETURN
iNO ERROR
: IS DRIVE STATUS ONLINE?
;B8R IF NOT
;OUTSTANDING PORT REQUEST FOR
;B8R IF YES

THE

DRIVE

CZRJLBO RPO7 FCTNL

RPO?

DRIVER

TEST MACRO v04.00

1 DEC 83

12:59:38 PAGE

17
S5EU 0086

021206
021212
021216

010177
004437
000452

161466
025452

021220
021224
021226
021232
170 021234
171 021234
172 021240

105761
001043
004737
000440

020300

004737
000435

022536

as:

JSR
B8R

PC,.CI7
8s

;GO HANDLE

021246

004437
000436

025452

Ss:

JSR
BR

R4 ,DRVQUE
9s

;PUT

021250
021256
021264
021266
021272

012777
0327177
001023
004737
000420

000000
000100

MOV

@0 ,3RPCC

sWRITE

105761

020310

162
163
1¢4
165
166
167
168
169

173
174 021242

175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199

021274
021300
021302
021310
021314
021316
021324

002412
012762

105761

001007
012762
000403

021326
021334
021340
021342
021344
021350
021352

012762
004737
005724
000402
004737
005724
105037

021356
021360
200 021362
201
202

012600
104441
000204

203
204
205
206
207
208 021364
209 021370
021372
210 021374
211 021402
212 021406
213 021412
214 021414
215 021416
216 021422

MOV

JSR
BR
2%:

021364
3s:

161450
161404

8IT
BNE

025004

140000
020320

15718

BNE
JSR
B8R

JSR

B8R
6%:

00001

100002

000016

110000
011002

000016

011002

MOV
7578

BNE
MOV

BR
7%:

;SELECT THE DRIVE
;PUT THIS REQUEST
;QUEVE IS FuLL

DRVACT(R1)
8%

s IS
;BR

PC,0PT

#BIT06,3aRPCS1
8s
PC,SET.IE
8¢

gRVTYP(Rl)
$

OPTIMIZER
THE PARITY

REQUEST

ERROR

IN QUEUE

;QUEUE IS FUuLL
THE

CURRENT

sIE BIT SET ?

CrL

REG

: YES

iSET THE INTERRUPT

s RETURN

:SEE IF OFFLINE OR NONEXISTENT

;B8R IF OFFLINE

g?ITlS!BIT01.16( R2)

;REPORT

#BIT15!BIT12,16(R2)

1DRIVE IS UNSAFE

DRIVE

:GO TO EXIT

9%
:

B8R
JSR

PC,RESREG

CLRB

ACTDRYV

MOV

(SP)+,RO
C$SPRI

TRAP
RTS

THE

:SEE IF DRIVE OFFLINE OR UNSAFE
;BR IF UNSAFE
#B8IT15'BIT14,16(R2)
$SET OFFLINE ERROR INDICATOR

PC,RESREG

TSY

;CALL

ACTIVE?

MOV
JSR
TST

THIS ORIVE
IF YES

IN QUEUE

ODRVSTA(R1)

8s:

10¢:

020354

TST8
B8LY

R1,aRPCS2
R4 ,DRVQUE
94

(R4).
10$

(R4).

;sRESTORE

NONEXISTENT

;SETUP FOR NORMAL RETURN

sFINISH UP,

THEN EXIT

;RESTORE RO - RS
sCORRECT THE RETURN ADDRESS
;CLEAR "ACTIVE DRIVER” FLAG
:RESTORE

PRIORITY

:+RETURN

TO CALLER

sOPTIMIZER-CALLED FOR A PARTICULAR DRIVE
5

sCALL
§
;

004737
104440
010046
146137

105061

004737
005702
001472
010177
012777

010750
002744
020340
025526

161256

000111

oPT:

020352

JSR

PC.OPT

O0ORVNUM ,R1

;ORIVE NUMBER TO R1

JSR
TRAP
MOV

PC,SAVREG

$1SAVE RO

MOV

8ICB
CLRB
JSR
TST
BEQ

161240

MOV
MOV

C$GPRI

{SETUP A COMMAND

RO, -(SP)
ATABIT(R1),SRCHWT

;CLEAR LA SEACH FLAG

OPRQS(R1)

tRESET

R2
7
R1,8RPCS2
9111,8RPCS1

1 IS THERE A REQUEST IN QUEUE?
§NO- -BRANCH TO EXIT
1LOAD THE ORIVE ADDRESS s4ssass

PC,GETREQ

sGET

THE PORT REQ FLAG sess

“DPB”

POINTER OF

;tCLEAR THE DRIVE

REQUEST

CZRULBO RPO7 FCTNL

RPO7

DRIVER

217 021430
218 021436
219
220
221
222
223
224
225
226
227
228
229
230
231

021440
021444
021446
021452
021460
021464
021466
021474

TEST MACRO v04.00

032777
001445
105761

003014
004737
012762

000400

J/
1

10$:

140000

000016

110000

000016

000150

000002

021514
232 021516
233 021522

122762
002407
122762
001403
004737
000435

000135

000002

021524
021530
021532
021536

005737
002003
004737
000427

020376

2$:

021630

3s:

021540
021544

004737
000424

022014

021546
021554
021556
021560
021566
021574
021576
021602
021610
021612
021616
021616
021620
021622
021626

112761
010103
006303
012763
012777
000402
004737
032777

177777

020340

047040
000000

020356
161132

234
235
236
237
238
239
240
241
242
243
244
245
246

247

248
249

250
251
252
253
254
255
256

021476

021504
021506

105761
100054
012762
000450

020310

001002
004737

012600
104441
004737
000207

000100
025004

011002

161060

12:59:38 PAGE

1%:

58Q 0087

BIT
8tQ
1578
BGY
JSR

08118,aRPDS
5%
DRVSTA(R1)
18
PC,POPQUE

1518
BPL
MOV
BR

DRVSTA(R1)
$+IS DRIVE UNSAFE ?
8%
;B8R TO EXIT IF NOT
0BIT15!8IT12,16(R2)
$SET UNSAFE
8s
;BRANCH TO EXIT

cMPB
BLT
cMP8
BEQ
JSR
BR

€150,2(R2)
28
9135,2(R2)
23
PC.CI4
8%

+IS THE REQUEST FOR I/0?
s YES - -BRANCH
:IS THE CIAGNOSTIC COMMAND ?
;BRANCH IF SO
;CALL THE COMMAND INITIATOR
;BRANCH TO EXIT

DTUW

;:DATA

PC,CI1
8¢

;START A DATA TRANSFER

MOV

022126

022536

161244

020310
025550

DEC

TST

sOPR SET ?
: 70 PROT REQUEST ,IF NOT
+ IS DRIVE ONLINE?
; YES - -BRANCH
sNO - -REMOVE REQUEST FROM QUEUE

#B8IT15!BIT14,16(R2)

sSET OFFLINE STATUS/ERROR INDICATOR
STATUS/ERROR

TRANSFER UNDERWAY?

B8GE

4% :

JSR
BR

PC.CI3
8s

:START A SEARCH
;GO TO THE EXIT

5S%:

MOVB

#-1,0PRQS(R1)

:SET PORT REQUEST INDICATOR

JSR
BR

MOV
ASL

MOV
MOV
68:

7%:

8%:

R1,R3
R3

{EXIT

081706 ,B8RPCS1

:SEE IF

PC,CIv

BNE
JSR

8%
PC,SET.IE

MOV
TRAP

(SP)+,RO
C$SPRTM

JSR

RTS

;SET UP TO ADDRESS WORDS
;CONVERT TO WORD INDEX

920000., TIMER(R3)
$SET A 20.
€0, 3RPCC
:SET PORT REQUEST

JSR

BIT

s YES--GO START A SEARCH

PC,RELREG
PC

:PROCESS

SECOND

THE PARITY ERROR

'IE'

ALREADY SET

;BR IF SET
;SET “IE” WITHOUT A "“TRE"
:RESTORE PROC. STATUS

:RESTORE RO

TIMER

INDICATOR

1</
CZRJLBO RPO7 FCTNL
DRIVER

TEST MACRO v04.00 1-DEC-83 12:59:38 PAGF 37

5EQ 0088

;sCOMMAND INITIATOR

WO®NTUND W

RPO?

s CALL
i
:
:

MOV
MOV

JSR

ADRVNUM,R1
#DPB,R2

PC.CI?

021630
021634
021640
021642
021646
021652
021660
021662
021666
021672
021676
021700
021702

004737
010237
010203
013704
010177
122762
001011
016246
052716
004437
000024
022536
000432

021704
021710
021714
021716
021720

062703
062704
012324
012324

004437

024520

021730
021732
021734
021740
021742
021744
021750
021752
021754
021760
021764
021766
021770
021774
022000
022002
022004
022010

022536
012346
004437

024520

021722
021726

022014
022020

022024
022030
022034
022036

012346

002670
161026
000135

000002

000002
024520

022536
010137
000137

020376
022452

100000

024520

160654

000012
024520

2¢:

#DIAG,2(R2)
1$

4{n2),-(SP)

B8R

ADD

ADD
MOV
MOV

#0MD, (SP)
R4 ,WRT .RP

04 ,R3

42,R4
(R3)+,(R4).
(R3)+,(R4)+

(R3).,-(SP)
RP
R4 ,WRT
(R3)+,-(SP)
R4 ,WRT .RP

CI?
817
BEQ
CLR
8IS
JSR

98IT15,(R2)
2%
-(SP)
e8IT15,(SP)
R4 ,WRT .RP

MOV
gSR

2(R2),-(SP)
R4 ,WRT .RP

24
Cl?

C17

CI3:

PC.POPQUE

R2, TRNSWT
R2,R3
RPCS1,R4
R1,8RPCS2

MOV

MOV
JSR
6
C17
MOV
JSR
34

100000

002670

JSR

MOV
MOV
MOV
MOV

BIS
JSR
24
C17

1%:

; WHERE
:

;:CI1=DATA TRANSFER
;CI3=SEARCH REQUESTED BY DATA XFER
;:CI4sNOT DATA TRANSFER

cMPB
BNE

000004
100600
024520

022536
032712
001407
005046
052716
004437
000024
022536
016246
004437

013704
010177
016246
004437
000034
022536

CIl:

025550
020350

;ORIVE NUMBER
;ADDRESS OF DPB
sCI?= CI1,CI3, OR CIA4

R1,DTUW

JHP

CI5

MOV

RPCS1,R4

MOV
JSR
34
c1?

12(R2), -(SP)
RP
R4 ,WRT

R1,8RPCS2

QUEUE

:DPB ADDRESS TO R3

:RPCS1

ADDRESS

:SELECT DRIVE
:DIAGNOSTIC COMMAND ?

sBRANCH IF NOT

;GET THE RT NUMBER, PARAMETERS
;SET THE GIAGNOSTIC MODE BIT
;WRITE THE RPMR1 REG
+RETURN HERE ON ERROR

;LOAD THE COMMAND AND EXIT
sDESIRED WORD COUNT
s RPWC ADDRESS

:LOAD WORD COUNTY
;LOAD BUFFER ADDRESS
sLOAD SECTOR AND TRACK
;CALL THE LOAD(WRITE) ROUTINE
: INDEX OF REGISTER TO LOAD
;RETURN HERE ON ERROR
:LOAD CYLINDER ADDRESS
;RETURN HERE ON ERROR

tMAINTENANCE MODE FLAG BIT SET ?
1BRANCH IF NOT
;SET DMD BIT IN RPMR
;SET DMD BIT ONLY THE REST BITS MUST BE O
sWRITE TO RPMR

sRETURN HERE ON ERROR
+LOAD

"COMMAND+GO”,

"A17E&R16",

;RETURN HERE ON ERROR

MOV

;REMOVE REQUEST FROM “DRIVES WAIT”
;PUT REQ. IN TRANSFER WAIT QUEULE

$1SET

"DATA TRANSFER UNDERWAY"

1RPCS1

ADDRESS

s SELECT DRIVE
tOESIRED CYLINDER ADDRESS
;RETURN HERE

ON ERROR

AND

"PSEL*"

CZRULBO RPO7 FCTNL

TEST MACRO v04.00

58 022040
59 022044
/0 022050
61 022052
62 022054
63 022062
022064
022066
022072
022076
022100
022102
022102
022106

016246
004437
000006
022536
032762
001407
005046
052716
004437
000024
02252,

000010
024520

012746
004437
000000
022536
156137
000552

000131
024520

013704
010177

002670
160542
000002
000131

RPO7

DRIVER

022112
022114
022116
022124

022126
022132
022136
022142

022146
022150
022154
022160
022162
022164

022166

116203
122703

001007
016246
004437
000006
022536
000403

122703

022172
022174
022200
022204
022206
022210

001007
016246
004437
0CN0O34
0225306
000531

022212
022216
022220
022224
022226
022230
022234
022240
022242

022244

122703
001013
004437
000032
022536
116216
004437
000032
022536
000513

022246
022252
022254
022260
022262
022266
022270
022274

122703
001510
122703
001505
122703
001014
004437
000032

100000

1 DEC-83

MOV

10(R2),

SEQ 0089
(SP)

JSR
6

R4 ,WRT .RP

BIT
B8EQ

#BIT15,0(R2)
1$
-(SP)
0B8IT15,(SP)

CIl7

000000

CLR
BIS
JSR

100000
024520

002744

12:59:38 PAGE

R4 ,WRT
. RP

1¢:

C17?

MOV

JSR
0
CI?
BISB8
BR

020352

CIa:

MOV
MOV
MOVB

CMPB
BNE

000010
024520

MOV
JSR

000105

1%:

00001
¢
024520

2%:

#SEARCH, -(SP)
R4 ,WRT .RP

:SET DMD BIT ONLY,THE

REST BITS MUST BE

;START

ON ERROR
"SEARCH WAIT'" KEY

:RPCS1 ADDRESS
; SELECT DRIVE

OSEARCH,R3

;IS

2(R2),R3
1%

10(R2), -(SP)

R4 ,UWRT .RP

;PICKUP THE REQUESTED COMMAND
IT

SEARCH COMMAND?

:BRANCH IF

:LOAD DESIRED TRACK & SECTOR

;RETURN HERE ON ERROR
;GO LOAD CYLINDER

OSEEK,R3
34

;IS IT A SEEK COMMAND
;BRANCH IF NO

12(R2), -(SP)

R4 ,WRT .RP

QOFFSET,R3

1(R2),(SP)
R4 ,URT ,.RP

S$:

A SEARCH

;:LOAD DESIRED CYLINDER
;RETURN HERE

ON ERROR

+IS IT AN "OFFSET” REGISTER CHANGE COMMAND ?

;BR

+MERGE

THE OFFSET

VALUE

INTO RPOF

;BUT DON'T CHANGE THE UPPER

000117

024426

ADDRESS

$+BRANCH IF NOT

RPCS1,R4
R1,3RPCS2

CIé

000147

TRACK

;RETURN HERE ON ERROR
+MAINTENANCE MODE ?

CIS

R4 ,RD.RP

000001
024520

000107

AND

;sRETURN HERE
ATABIT(R1),SRCHWT
sSET

024426

SECTOR

:LOAD DESIRED TRACIK & SECTOR

;RETURN HERE ON ERROR

CIé
000115

;s THE

;sRETURN HERE ON ERROR

;:BYTE WHEN LOADING THE
;REGISTER (RPOF)

;tRETURN HERE ON ERROR
;GO START

THE COMMAND

ORECAL ,R3

+IS

ORTC,R3

+1IS

A RETURN

Clé6

CIé6

4SETFORM,R3
64
R4,RD.RP

“RECALIBRATE"”

tBRANCH IF YES

sBRANCH IF YES

COMMAND?

TO CENTER?

$1IS IT A “SET FORMAT" COMMAND?
1BRANCH IF NO
tREAD THE OFFSET REGISTER

CZRJLBO RPO7 FCTNL

RPO7

DRIVER

115
116
117
118
119

TEST MACRO vO4.00 1 DEC-83

022276
022300
022306
022312
022314
120 022316
12l
122 022320
123 022324
124 022326
125
126 022332
127 022340
128 022344
129 022350
130 022352
131 022354
132 022356
133 022362
134 022364
135 022372
136
137 022374
138 022400
139 022402
140 022406
141 022412
142 022414
143 022416
144
145 022420
146 022422
147 022426
148 022430
149 022432
150 022436
151 022444
152 022450

022536
116266
004437
000032
022536
000445

022452
022454
022462
022464
022472

006301
012761
006201
112761
000207

022474
022502
022504
022506
022512
022516
022520
022522
022524
022530
170 022532
171 022534

032762
001407
005046
052716
004437
000024
022536
010346
004437
000000
022536
000746

153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169

122703

001023
016203

116237
116205
004437

¢00000

022536
012623
023705
001423
062737
000764

122703
001007
012746
004437
000024
022536
000405
010346
004437
000000
022536
004737
052762
004737
000207

000001
024520

CcI7

000001

MOVB

000141

6$:

000006

7%:

000010
000011
024426

022350
8¢:
94

022350

000145
100000
024520

11¢:

003016

001750

020356

000001

020300

12%:

MOVB
MOVB

JSR
0

CI?

124

10(R2),9¢
11(R2),R5

R4 ,RD.RP

5EQ 0090

;:RETURN HERE ON ERROR

;COMBINE "FMT16",'ECI", AND "HCI"
;LOAD "FMT16", "ECI”, AND/OR "HCI".

sRETURN HERE ON ERROR
;IS IT A “GET REGISTER" COMMAND?
:BRANCH IF NO

;POINTS

1ST

TO READ

;RETURN HERE ON ERROR

;GET THE CONTENTS OF RHXX//RPO7 REG.
;LAST REG. BEEN READ?
;GET OUT IF YES
s INCREASE THE INDEX BY 2
;LOOP--MORE TO READ

cMP
BEQ

94,R5

B8R

cMPB
BNE

MMAINT
R3

JSR
24
CI7
BR

R4 ,WRT .RP

:IS IT A “SELECT MAINTENANCE” COMMAND?
:BRANCH IF NOT
;SET DIAGNOSTIC MODE COMMAND
;WRITE THE MAINTENANCE REGISTER

12¢

JEXIT

MOV

R3, -(SP)
R4 ,WRT .RP

;:LOAD THE COMMAND

JSR

CcIv
JSR
BIS
JSR

12%

02,94

114

sRETURN HERE ON ERROR

;INDEX OF REG.

TO WRITE

PC.POPQUE

;RETURN HERE ON ERROR
:REMOVE REQ. FROM QUEUE
;YES--GO SAVE THE
;RETURN TO USER

oB8IT07,16(R2)

;SET

THE

“DONE” BIT

13s¢:

RTS

CIS:

ASL
MOV
ASR
MOVB
RTS

R1
01000., TIMER(R1)
;SET A ONE SECOND
R1
41 ,0RVACT(R1)
:SET THE DRIVE ACTIVE
PC
sRETURN TO THE USER

BIT
8EQ
CLR
8IS
JSR

:eITIS.O(RZ)

100000
024520

1$:

WHERE

;READ RHXX/RPO7 REGISTER

: INDEX OF REG.
(SP)+,(R3).

ADDRESS OF

$ 70 PUT THE REGISTER(S)
sINIT. THE INDEX FOR THE FIRST REG.
: INDEX OF LAST REG. TO MOVE

PC.SVRHXX
PC

100000

024520

OGETRFG,R3
10$
6(R2),R3

MOV

024520
025550
000200
024644

cMP8
BNE

MOV

1(R2),1(SP)

R4 ,WRT _RP

ADD

10%:

37 2

JSR
32
CI7
BR

MOV

022350
000002

12:59:38 PAGE

CI7

MOV
JSR

CI?
BR

-(SP)

08IT15,(SP)
R4 ,UWRT.RP

R3,-(SP)
R4 ,URT .RP

tMAINTENANCE MODE

$1BRANCH IF NOT

$SET OMD BIT ONLY

1 THE REST BITS MUST BE O
tRETURN HERE ON ERROR

;LOAD THE COMMAND
; INDEX OF REG.

CIS

REGISTERS

TO WRITE

;RETURN HERE ON ERROR

TIMER

CZRJLBO RPO7 FCTNL

RPO7 DRIVER

172
173
174
175
l;g
1
178
179
180
181
182
183
184
185
186
187
188
igg

TEST MACRO vO4.00 1-DEC 83 12:59:38 PAGE 37

022536
022536
022540
022542
022544

005702
001001
000207
012762

022552
022556
022562
022564
022566
022572
022576
022602
022606
022610

012746
004437
000000
022624
004737
105061
105061
020237
001005
005037

022614
022622

012737
000207

191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
gg;

022666
022670
022672
022700
022702
022710

004737
005201
005003
105761
001003
105761
001443
013702
020137
001402
004737
005702
001413
032777
001404
012762
000403

209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
ggg

022712
022720
022726
022732
022736
022742
022744
022752
022756
022760
022764
022770
022772
023000
023004
023010
023016

012762
012763
105061
105061
020137
001005
012737
005037
005201
062703
042701
001321
012737
005037
004737
012777
000406

227 023020

004737

022624
022630
022632
022634
022640
022642
022646
022650
022654
022660
022662

228 023024

105061

CI7:
1%:
104000

000016

2%:

000111
024520

C178:

025432
020340
020300
020350

2%:

020350
177777

020376

1$:
010750

CIls8:

020300

1%:

020340
020350
020376

22%:

025526

2¢:
010000

160000

100002

000016

102000
177777
020300
020340
020376

000016
020356

177777
020350

020376
5%:

000002
177770

177777
020350
025350
000040

025432

020310

3$:
4%:

020376

157662
64:

N/
SEQ 0091

TST
BNE
RTS
MOV

R2
sANYTHING IN QUEUE ?
2%
iBRANCH IF QUEUE IS THERE
PC
;OTHERWISE EXIT
#8IT15!BIT11,16(R2)
:SET “PARITY” ERROR

MOV
JSR
0
cIs
JSR
CLRB
CLRB
cMP
BNE
CLR

4111, -(SP)
R4 ,WRT
RP

MOV
RTS

PC,EMPTYQ
DPRQS(R1)
DRVACT(R1)
R2, TRNSWT
1%
TRNSWT
9-1,0TuW
PC

:00 A

INDICATOR

"DRIVE CLEAR"

;RETURN HERE ON ERROR
;EMPTY THE QUEUE
;CLEAR THE PORT REQUEST FLAG
;ORIVE IS IDLE
:IF THIS DRIVE HAD AN I/0 REQUEST
: IN PROGRESS CLEAR ALL OF THE FLAGS

JSR
CLR
CLR
7578
BNE
7S718
BEQ
MOV

cMe
BEQ
JSR
TST
B8EQ
BIT
BEQ
MOV
BR

Pr., SAVREG
$SAVE RO - RS
R1
R3
DRVACT(R1)
;DRIVE ACTIVE?
224
;BRANCH IF IN ACTIVE
DPRQS(R1)
:PORT REQUEST
5S¢
;BRANCH IF NOT
TRNSWT ,R2
sGET THE "TRANSFER WAIT” QUEUE
R1,0TUM
:DID THIS DRIVE HAVE AN I/0 IN PROGRESS?
2
1BRANCH IF YES
PC,GETREQ
:GET THE OPB POINTER
R2
;QUEVE ENTRY FOR DRIVE ?
43
;BR IF NOT
#8IT12,8RPCS2
;'NED' SET ?
34
18R IF NOT
@8IT15!8IT01,16(R2)
;SET 'DRIVE NON-EXISTENT' INDICATOR
4
; CONTINUE

MOV
MOV
CLRB
CLR8
cMP
BNE
MOV
CLR
INC
ADD
BIC
BNE
MOV
CLR
JSR
MOV
BR

#8IT15!BIT10,16(R2) ;SET “NON-CLEARABLE PARITY” ERROR
9-1,TIMER(R3)
+STOP THE TIMER
DRVACT(R1)
sSET “DRIVE ACTIVE"” TO IDLE
DPRQS(R1)
1CLEAR PORT REQUEST FLAG
R1,0TUM
:IS THIS DRIVE SETUP FOR A TRANSFER
S¢
:BR IF NOT
0-1,0TuW
iRESET THE INDICATOR
TRNSWT
iCLEAR THE TRANSFER QUEUE
R1
:MOVE TO THE NEXT DRIVE
92,R3
9tC7,R1
1s
tBRANCH IF MORE DRIVES
0-1,0TUW
1NO DATA TRANSFERS UNDERWAY
TRNSWT
1CLEAR THE ' TRANSFER WAIT' QUEUE
PC,CLRQUE
1CLEAR ALL OF THE REQUEST QUEUES
#CLR,8RPCS2
:100 A MASSBUS INIT,
7
1 CONTINUE

JSR

PC.EMPTYQ

CLRB

DRVSTA(R1)

:CLEAR THE DRIVE'S QUEUE
;SET DRIVE

TO OFFLINE

INDICATOR

CZRABO RPO7 FCTNL

RPO? DRIVER

229
230
2X1
282

023030
023034
023040
023044

TEST MACRO vO4.00 1 DEC 83 12:59:38 PAGE

105061
004737
04737

000207

020320
025004
011002

7¢:

CLRB
JOR
JSK

R1S

bse?
57

DRVIYP(R])
PC,SE'.IE
PC,RESREG

“EG 0092

sCLEAR THE DRIVE

$9ET

"IE WITHOUT

sRESTORE
sRETURN

TvPE

INDICATOR

TRE
"’

CZRJLBO RPO7 FCINL

RPO?

DRIVER

Ce
TEST MACRO v04.00 1 DEC 83

12:59:3%8 PAGE

s INTERRUPT
023046
023054
023060
023064
023070
023072
023076
023100
023104
023110
023114
023114

112737
005237
004737
013701
002403
004737
000402
004737
004737
105037

000001
002246
010750
020376

020354

ISRV

MOvVB
INC
JSR

BLT

JSR

1s8:

023304
011002
020354

2s:
L10012:

000002

B8R

JSR

JSR
CLRB

105061
012737
006301
012761
006201
013702
005037
052762
010177
004437
000000
022536
006126
100424
004737
122762
001003
116177
004737
005702
001403
004737
000422

023240
023246
023250
023256
0°3262
023266
023274
023302

012777
000416
052762
004737
004737
012777
012777
000400

020300
1777717

020376

1772777

020356

020350
020350
000200

157514
024426

T0:

CLRB
MOV
ASL
MOV

157464

1¢:

021364

000113

157422

2%:

100100
025432
024644
040111
000113

000016

3¢:

157374
157366

PC,TD

PC,SC

PC,RESREG
ACTDRV

sSET "ACTIVE DRIVER” FLAG
;COUNT INTERRUPTS

i SAVE RO
RS
sGET "DATA TRANSFER UNDERWAY"

INDICATOR

;:BRANCH IF NO DATA TRANSFER UNDERWAY
s CALL TRANSFER DONE
sEXIT

;CALL SPECIAL CONDITIONS

sRESTORE

sCLEAR

"ACTIVE DRIVER” FLAG

ROUTINE

DRVACT(R1)
€-1,0T
R1
0-1,TIMER(R1)

R1,8RPCS2

c1?

002744
025526

DTUW,R1
18

MOV

JSR
4]

000002

PC,SAVREG

R1
TRNSWT ,R2

ROL

024644
000135

ISRCNT

ASR
MOV

CLR
8IS

000016

@1,ACTDRY

RT1

: TRANSFER DONE

023116
023122
023130
023132
023140
023142
023146
023152
023160
023164
023170
023172
023174
023176
023200
023204
023212
023214
023222
023226
023230
023232
023236

5EQ G093

SERVICE ROUTINE

MOV

023116

BMI
JSR
oy o]
BNE
MOve
JSR

TRNSWT
BIT07,16(R2)

R4 ,RD.RP

(SP).

:SET DRIVE ACTIVE INDICATOR TO IDLE
iNO DATA TRANSFERS UNDERWAY

s CANCEL TIMEOUT
;:GET “DPB” ADDRESS FROM THE
: TRANSFER WAIT QUEUE
CLEAR QUEUE

:SET DONE
$SELECT THE DRIVE

s TRANSFER ERROR(TRE=1)?

{RETURN HERE

ON ERROR

BEQ
JSR
BR

3
:BR IF YES
PC.SVRHXX
1 YES- -SAVE THE REGISTERS
0135,2(R2)
s JE FROM DIAGNOSTIC COMMAND
13
;BRANCH IF NOT
ATABIT(R1),3RPAS
sRESEYT THE ATA BITY
PC,GETREQ
iGET DPB POINTER
R2
;ENTRY FOR DRIVE ?
24
tBR IF NOT
PC.OPT
sCALL OPTIMIZER
SC
sCHECK OTHER DRIVES

MOV

0113,8RPCSY

8IS
JSR
JSR
MOV
MOV

#8IT15!BIT06,16(R2) ;SET DATA ERROR FLAG
PC.EMPTYQ
tEMPTY THE “DRIVE'S WAIT" QUEUE
PC.SVRHXX
1SAVE THE RHXX/RPO7 REGISTERS
€40111,8RPCS!
1 ISSUE A “DRIVE CLEAR"

T1ST

B8R

0113,8RPCS!L

tRELEASE THE DRIVE
sCHECK FOR OTHER DRIVES

1ISSUE A RELEASE TO THE ORIVE
1CHECK FOR OTHER DRIVES

;SPECIAL CONDITION ROUTINE
023304
023310
023312
023316

117703

001014
004437
000020

15737¢
024426

SC:

MOvVB

BNE
JSR
0

8RPAS,R3
2
R4 ,RD.RP

tREAD

"RPAS"

1BRANCH IF ANY

+READ CONTROL

‘ATA'

BITS SET

AND STATUS REGISTER

CZRJLBO RPO7 FCTNL
RPO”

DRIVER

58
59
€0
61
62
63
64
65
66
67
68
69

70
71
72
73
74
75
76
77
78
79

80
81
82
83
84
85
86
87
88
89
920

023320
023322
023324
023326
023330
023332
023334

023340
023342
023344
023346
023352
023354
023356
023360
023362
023364
023366
023370
023372
023372
023376
023400
023404
023410
023412
023416
023422

023426
023432
022434
023440
91 023442
92
93 023446
94 023452
95 023454
96 023456
97 023460
98 023462
023466
100 023470
023472
023474
023500
023502
023506
023512
023514
023516
023520
023522
023524

023526
023530

TEST MACRO v04.00

DEC

CIR

022624

106126
100405

000240
000240
000240
004737
000207
005046

110316

012703
005001
030316
001005
005201

ROL
B

105761
003011
004737
004737
004737
105761
003405

105761

001035
004737

105761
100421

006301
006301
C06301
016105
006201
006201
006201
032705
001012
012746
004437
000000
023562

011605
000240

B8MI
NOP
NOP
NOP
JSR
RTS

025004

CLR

MOvB
MOV

000001

SC3:
SC4:

106303
001373
005726
000207
105761
001402
000137

CLR
8IT
BNE
INC

ASLB

BNE

TST

020340

023766
020310

SCS:

2s:

025526
024644
023702
020310

020300

Ss:

023702

020310

RTS

1578

BEQ
JHP
7578
B8GT
JSR
JSR
JSR

1578

64:

BLE

1578

BNE
JSR

15718
8MI1
ASL
ASL
ASL

020204

MOV
ASR
ASR
ASR
81T
BNE
MOV
JSR

020000
000111
024520
74¢:

000240
000715
000240
000240

12:59:38 PAGE

8%:

SC8

5EGQ G094

(SP).
1

;RETURN H «
ON ERROR
IS “IE"=1?
$YES, NO DRIVES TO CHECK

PC,SET.IE

1SET

(5P)

R3,(SP)
41,R3
R1
R3,(SP)

SCS

R1
R3

INTERRUPT ENABLE

;sRE TURN

;PROCESS ALL DRIVES THAT HAVE
sAN

“ATA" =1

sATA=1?
s YES

-BRANCH

:MOVE TO THE NEXT DRIVE

SC3
(SP)»
PC

$BRANCH IF MORE YO CHECK?
sCLEAN OFF THE STACK

CPRQS(R1)
24
SC13
ORVSTA(RL)
3

sPORT REQUEST OUTSTANDING ?

PC.GETREQ
PC, SVRHXX
PC.SC12

DRVSTA(RL)
63
ORVACT(R1)

SC6

PC,.sC1e

tRETURN

TO USER

iBR IF NOT
sSTART THE OUTSTANDING COMMAND

;CHECK THE DRIVE STATUS
:BRANCH IF ONL INE
;GET DPB POINTER
iSAVE THE RHXX/RPO7 REGISTERS
iSAVE RPDS,

RPER1.

RPER3,

s SAVE RPDS,

RPER1,

RPER3,

DRVSTA(R1)

0BIT13,RS
.1
@111, -(SP)

+ADDRESS PLUG CHANGED
1BRANCH IF SO
+DRIVE CLEAR

74
R1
Rl
R1
RPSTUO+4(R1),RS
R1
Rl
R1

R4 ,WRT .RP

(SP),RS

NOP
BR

SC4

AND RPER2

$ALSO DO A DRIVE INIT (DRVINT)
;0ID0 DRIVE COME ONLINE?
iNO - - -BRANCH
;DRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY
;BR IF EITHER

sALSO DO A DRVINT
;CHECK ON DRIVE'S STATUS
:BR IF UNSAFE

MOV

NOP
NOP

sWRITE

AND RPER2

THE COMMAND INTO RPCS1

sREGISTER INOEX

1PARITY

EXIT

ADDRESS

tPICKUP (RPAS) BEFORE

THE ERROR CALL

1GO CHECK FOR MORE ATA'S

CZRJLBO RPO7 FCTNL
RPO?

DRIVER

TEST MACRO v04.00 1 DEC-83 12:59:38 PAGE

115 023532

000712

117 023534

023544
023546
023552
023556
023562
023566
023570
023574
023600

006301
012761
006201
004737
010177
000137
105761
001405
004737
004737
000402

023602
023606

000137

022552
023360

023612
023612
023616

105061
136137

020300
002744

116

118
119
120
121
122
123
124
125
126
127

167
168

023536

004737

023624
023626
023632
023640
023644
023652
023660
023662
023670
023672

001007
004737
052762
004737

023676

006301
012761
006201
004737
000137

023702
023706
023710
023712
023714
023722
023730
023736
023744
023746
023750
023752
023756
023760

010177
006301
006301
006301
017761
017761
017761
017761
006201
006201
006201
004437
000401
000207

023762
023764

005726
000676

116177
146137

17277277

020356

157122

SC8:

025526
022536

025550
000200
024644
002744
002744
177777

1%:
2s:

SC11:
020352

010177

116177
105761

1¢:

000016
157034
020352

24:

021364
023360
156772

156762
156756

156774
156770

SCie2:

020200
020202
020204
020206

002744
020330

ASL
MOV
ASR

R1
4 1,TIMER(R])
R1
PC,GETREQ
R1,8RPCS2

1SETUP TO ADDORESS WORDS
$1STOP THE TIMER
+RESTORE THE CRIVE ADDRESS
1GET THE DPB POINTER FROM THE
$SELECT DRIVE

JMP

75718

BEQ
JSR
JSR
B8R

PC.GETREQ
PC,CI?

QUEUE

sPROCESS THE SEARCH
:IS ORIVE IDLE?
s YES - -BRANCH

1GET OPB POINTER
;PROCESS THE PARITY

ERROR

s CONTINUE

JSR
Jup

PC,CI78

:PROCESS

CLRS
8ITB

DRVACT(R1)

$SET DRIVE

BNE
JSR
8IS
JSR

28
PC,POPQUE

;DOING A SEARCH OPERATION FOR
;AN I/0 COMMAND?
$BRANCH IF YES
1REMOVE REQUEST FROM QUEUE

MOVB

81CB

SC4

THE

ATABIT(R1),SRCHWT

oBIT07,16(R2)

UNCORRECTABLE

:CHECK MORE DRIVES

sSET

ERROR

“OONE” BIT

PC,SVRHXX
:YES--SAVE ALL OF THE RHXX/RPO7 REG'S
ATABIT(R1), 8RPAS
tCLEAR ATTENTICON BIT
ATABIT(R1),SRCHWT
;CLEAR IMPLIED SEEK SET
Rl
1 WORD INDEX

-1, TIMER(R])

1STOP CLOCK

Rl
PC,0PT
SC4

;tRESTORE R1
tSTART A REQUEST
;CHECK FOR MORE DRIVES

MOV

gi.flRPCSZ

$SELECT DRIVE

ASL
ASL

PARITY

IDLE

ASR
JSR

1
R1

8RPDS ,RPSTUO(RL)
SRPER1 ,RPSTUO+2(R1)
8RPER2 ,RPSTUO+4(R1)
SRPER3 ,RPSTUO+6(R1)

RTS

R1
R1
R1
R4 ,DRVINT
18
PC

s INIT, THE STATE
1 TAKE ERROR EXIT
tRETURN

1¢:

TST
BR

(SP).
scs

1CLEAR THE STACK
tPROCESS THE PARITY ERROR

SC13:;

ASL

1¢:

ASR
MOV
MOVB
TST8

$1SETUP TO ADDRESS WORDS
1STOP THE TIMER

R1,8RPCS2
1SELECT THE DRIVE
ATABIT(R1),8RPAS
1CLEAR THE ATTENTION BIT
DPINT(R1)
s INITIALIZING THE DRIVE ?

ASR
ASR
JSR

156706

SC11
DRVACT(R1)

DRIVES

MOV
MOV
MOV
MOV
ASR

020566

156706

;CHECK FOR MORE

ASL
MOV

020356

5% 6095

SC4

MOV

023612
020300

JSR

025526

023766

023766
170 023772
171 024000

SCé6:

:-I.TIHER(Rl)
1

THE

DRIVE

CZRULBO RPO7 FCTNL
RPO?

DRIVER

172 024004
173 024006
174 024012
175 024016
176 024020
177 024024
178 024026
179 024030
180 024032
181 024036
182 024044
183 024050
184 024054
185
186 024056
187 024064
188
189
190
191 024066
192 024072
193
194 024074
195 024100
196
197

198
199
200
201
202 024104
203 024110
204 024112
205 024120
206 024124
207 024126
208 024130
209 024134
210 024136
211 024144
212 024146
213 024152
214 024154
215 024156
216 024162
217 024164
218 024170
219 024174
220 024176

221
222
223
224
225
226

227
228

TEST MACRO v04.00 1 DEC 83

001424
105061
004437
000240

105761
003014
005702
001423

020330
020566

032777
001003

000400

024644

DRVSTA(R1)
24

JSR

025550

004737

025004

004737
000137

021364

JSR

B8R
156616

2%:

H
H
H

023360

3s:

s
:

CAL

:
020354
000001
010750

RPTMR:
020355

020356
000002

024200

1$:
020356

2s:

000010
011002
020355

BIT
BNE

3:
44 :

S5EQ GO

:BR IF NOT
;CLEAR THE INIT INDICATOR
1GO INIT THE DRIVE
;DUMMY

PARITY

;QUEVE

ENTRY

PC., SVRHXX

s SAVE

?
START ORDER

FOR

3
;BR IF NOT
PC,GETREQ
sGET DPB ADDRESS
OBIT1S!'BIT14,16(R2)
;INFORP USER
PC,POPQUE

sREMOVE

#8178,a3RPDS
44

iNOTE:

:
}

1CALL:
'

DRIVE

THAT

DRIVE

OFFLINE

THE QUEUE

;:DVA SET ?
;SET THEN CALL

JSR

PC.OPT

OPT

SECOND TIMER

PC.SET.IE
3

:START

SCa

THE PENDING REQUEST

;sPROCESS OTHER DRIVES

TIMER ROUTINE

MOV

JSR

PC.RPTMR

OTIME, -(SP)

sELASPED

TST7
BNE
MOVB
JSR

ACTDRV
44
01 ,ACTSTR
PC,SAVREG

sCHECK "ACTDRV € ACTSTIR”
s IF NON ZERO EXIT

CLR

;SET "ACTSTR"
$1SAVE RO - RS
iSTART WITH DRIVE

TIMER(RY)

:IS THE TIMER RUNNING?

(R3).
48. ,R1

sOUT

CLR

TS7T

8LT
SUB
8GT
JSR
INC

2t
2(SP),TIMER(R3)
24
PC.STO
R1

8GT

TST
cHP

JSR
CLRB

MOV
RTS

PC.RESREG
ACTSTR
(SP)+,(SP)
PC

TIME

IN MILLISECONDS ON THE

sCALL RPO7 TIME ROUTINE

THIS ROUTINE MUST BE

OR GREATER

STO

MOV

Q@DRVNUM,R1

STACK

1BRANCH IF NO
;COUNT THE INTERVAL
t1BR IF NO SOFTWARE TIMEOUT
s+CALL SOFTWARE TIMEOUT ROUTINE
tMOVE TO NEXT DRIVE
OF

DRIVES?

:+BRANCH IF NO

tRESTORE RO - RS
1+ZERO ACTIVE SOF TWARE
tADJUST
s RETURN

THE

STACK

s SOF TWARE TIMEOUT ROUTINE
:

THE

THE REGISTERS

R1
:60000..TIHER(R1):SET A 60.
1

JMP

ERROR RETURN

tORIVE ONLINE
1BR IF YES
-

ASL
Hg;
A

JSR
BR

;éRPO?

005737
001031
112737
004737
005001
005003
005763
002406
166663
003002
004737
005201
005723
022701
003362
004737
105037
012616
000207

1578
8G7

BEQ
JSR
8IS

000016

2$
DPINT(R1)
R4 ,DRVINT

TST

025526
140000

BEQ
CLR8
JSR
NOP

020310

004737
052762
004737
004737
000411

000402

12:59:38 PAGE

[

ENTERED AT PRIORITY 6

sDRIVE NUMBER

TIMEOUT ROUTINE FLAG

(ye?
CZRHABO RPO7 FCTNL
DRIVER

TEST MACRO v04.00 1 DEC 83

12:59:38 PAGF

229
230

S10:

010146
010246

PC,5T0

s CALL

MOV
MOV
MOV
MOV
MOV

R1, (SP),
R2, -(SP)

$1SAVE R1 R4

CMP

BEQ
1578
BNE
TST8
BNE

020330
020340

177777

025526

020356

101000

000016

101000

000016

024644
020300

020350
177777

020330
020310
177777
025526

MOV

JSR
TST
BEQG
BIS

1%:

020376
2s:

020356

R4, (SP)
TRNSWT ,R2
R1,DTuwW
1$

140000

000016

1777717
020340
025526

020356

3s:

BR
8IS
JSR
CLRB
CLR
MOV
8rR
CLRB
CLRB
MOV
JSR

8eQ
8IS
B8R
MOV
CLRB
JSR
TST

100004
024644
025432

000016
44

Ss:

sROUTINE

DPINT(R1)
2%
DPRQS(R1)
3¢

@-1,TIMER(R3)
PC,.GETREG
R2
St

TST

8EQ
MOV
JSR

JSR

MOV
MOV
MOV
MOV
RTS

TO READ

H
H

;PICKUP THE TRANSFER QUEUE
: TRANSFER UNDER WAY ON THIS

$1BRANCH IF SO
sORIVE INITIALIZE
;BRANCH IF SO

;PROT

REQUEST

+BRANCH IF
sEXIT
3

Ss
DPINT(R1)
DRVSTA(R1)

@-1,TIMER(R3)
PC.GETREQ
R2
St

s TIME QUT OR LOUST INTERRUPT
;ON HOUSE KEEPING COMMANDS

0-1,TIMER(RS)

PC,GETREQ
R2
54

:ORRIVE SET TO IDLE
;CLEAR DATA TRANSFER QUEUE
sE&%?R THE TRANSFER DRIVE ¢
i

+CLEAR THE INITIALIZE INDICATOR
$1SET UNIT TO OFFLINE
sSTOP THE TIMER
:GET THE DPB ADDRESS

s ANYTHING

(SP).,R4
(SP)+ ,R3
(SP)Y+ ,R2
(SP)+,R1

A RHXX/RPO7

IN QUEUE

;BRANCH IF NOT
;INFORM

sF INISH
;STOP

THE

USER DRIVE

NOT

AVAILABLE

TIMER

1CLEAR THE PORT REQUEST INDICATOR
+GET DPB ADDRESS

s ANYTHING IN QUEUE

s BRANCH IF NONE

e8IT15!8IT2,16(R2)

PC.SVRHXX
PC.EMPTYQ

; TIME OUT ON DATA TRANSFER

sREAD ALL REGISTERS

geITIS!BIT14.16( R2)

OPRQS(R1)

IF NONE

S
sEXIT
OBIT1S!BIT9,16(R2)

DRVACT(R1)
TRNSWT

;1STOP THE TIMER
iGET THE QUEUE

08IT1S!8I79,16(R2)

PC, SVRHXX

DRIVE

; INFORM USER OF PROT REQUEST

$READ ALL REGISTERS

TIMEOUT

$CANCEL ALL QUEUE REQ

tRESTORE R4-R1

sEXIT
REGISTER

s CALL
@

000454
052762
004737
105061
005037
012737
000437
105061
105061
012763
004737
005702
001424
052762
000420
012763
105061
004737
005702
001407
012762
00473F
004737
012604
012603
012602
012601
000207

020350
020276

®e

010346
010446
013702
020137
001421
105761
001033
105761
001047
012763
004737
005702
001460
052762

5€Q 6097

J5R

JSR
INDEX
ERRADR

®e

21
232 024200
233 024202
234 024204
235 024206
236 024210
237 024214
238 024220
239 024222
240 024226
241 024230
242 024234
243 024236
244 024244
245 024250
246 024252
247 024254
248
249 024262
250 024264
251 024272
252 024276
253 024302
254 024306
255 024314
256 024316
257 024322
258 024326
259 024334
260 024340
261 024342
262 024344
263 024352
264 024354
265 024362
266 024366
267 024372
268 024374
269 024376
270 024404
271 024410
272 024414
273 024416
274 024420
275 024422
276 024424
277
278
279
280
281
282
283
284
285

RE TURN

RPO7

RETURN

R4 ,RD.RP

;GO READ A REGISTER

$REG. INDEX FROM BASE
{+ERROR ADDRESS
- -PROCESS ERROR STARTING
+AT THIS ADDRESS

1CONTENTS OF REG.

IS ON THE STACK

CZRJLBO RPO7 FCTNL

RPO7

DRIVER

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

024426
024426
024430
024434
024436
024444
024450
024454
024462
024464
024472
024474
024502
024504
024506
024510
024514
024516

TEST MACKO vO4.00

011646
013746
062416
017666
013716
062716
032776
001004
032777
001406
016666
022626
011404
000403
062704
005726
000204

DEC

12:59:38 PAGE

RD.RP:
002670

000000
002670
000010

000004

010000

000000

020000

156176

000002

000004

MOV
MOV
ADD

2$:
3s:
;ROUTINE

5EQ 0098

(R4).,(SP)

BIT
BNE

a(sSP),4(SP)
RPCS1,(SP)
€10,(SP)
eBIT12,8(SP)
1

MOV

2(SP),4(sP)

BIT
BEQG

0B8IT13,8RPCS1
2%

CMP

000002

38 5

(SP),-(SP)
RPCS1, -(SP)

MOV
MOV
ADD

1%:

(SP)+,(SP).

MOV

(R4),R4

ADD

02,R4

TST
RTS

(SP).
R4

B8R

(

WRITE

;ERROR

s SAVE R4
;sADDRESS
sREG

THE

sREAD THE CONTENTS OF THE REG
sCHECK IF NON-EXIST DRIVE
H
sNED BIT SET
sERROR EXIT

tMOVE

sMCPE SET
sEXIT

THE R4

;:CLEAR OFF
EXIT

THE

TOP OF

STACK

ADDRESS

sEXIT

sNORMAL EXIY
sCLEAR
sEXIT

OFF

STACK

A REGISTER

:CALL
:
H
:
i
:

024520
024520

024522
024524
024532
024534
024540
024542
024546
024552

024554
024560
024566
024572
024576
024604
024606
024612
024616
024624
024626
024632
024634
024636
024640
024642

012446
001014
122766
002410
017746
000316
042716
111666
005726
063716
016676
013716
062716
032776
001013
013716
062716
032776
001003
062704
000401
011404
005726
012616
000204

WRT
. RP:

000150

000004

156130
177770
000007
002670
000004
002670
000010
010000

002670
000014
000010

000000

is:

000000

MOV
JSR

DATA, (SP)
R4 ,WRT RP

;:DATA TO BE LOADED ON THE STACK
;CALL THE ROUTINE TO LOAD(WRITE) THE REG.

MOV
BNE

cMPB
BLT
MOV
SWAB
BIC
MOVB

(R8)+,-(SP)
14

sFORMING THE REG ADDRESS
:BRANCH IF NOT RPCS1

8RPCS1, -(SP)
(SP)
0tC7,(SP)
(SP),7(SP)

1READ RPCS1
sMERG THE Al17,A18,PSEL BITS
;:CHOP OFF THE REST BITS FROM RPCS1
sATTACH A17,A18,PSEL TO COMMAND

ADD
MOV
MOV
ADD
8IT

RPCS1,(SP)
4(SP),8(SP)
RPCS1,(SP)
#10,(SP)
o81IT12,8(SP)

MOV
ADD
BIT
BNE
ADD
BR
MOV
TST
MOV

RPCS1,(SP)
014,(SP)
oBIT3,8(SP)
24
#2,R4
3
(R4),R4
(SP)«
(SP)+,(SP)

INDEX
ERRADR
RETURN

TST

BNE

000000

000002
2%:
3.

RTS

#150,4(SP)
1

(SP).

r3]

s INDEX OF THE REGISTER TO BE LOADED
;ADODRESS TO RETURN TO ON AN ERROR
sERROR FREE RETURN

;DATA XTRNS COMMAND
;BRANCH IF NOT

sRESTORE

STACK LEVEL

s THE DEST REG ADDRESS
tWRITE THE REGISTER
;CHECK NED,PAR BITS

H
iNONE EXIST DRIVE

:1BRANCH IF IT IS

1 ADDRESS RPER1
i
tPAR SET ?
1BRANCH IF SO
iNORMAL RETURN
$EXIT
tERROR EXIT
;CLEAR OFF THE STACK
1MOVE R4 TO TOP OF STACK
tEXIT

tROUTINE TO SAVE THE RHXX/RPO7 REGISTERS AS PER DPB.14

CZRJLBO RPO7 FCTNL

RPO7

DRIVER

TEST MACRO vO4.00

343

346
347
348 024644

370
371
372
373
374
375
376
377
378

12:59:38 PAGE

;sCALL

345

353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369

38 6

18
5EQ 6099

344

349
350
351
352

DEC

024644
024650
024652
024654
024660
024664
024666
024672
024700
024702
024710
024712
024714

004737
005702
001451
111277
016203
001444
005037
023727
001006
032777
001002
005023
000405

024716
024722
024724
024726
024730
024736
024740
024746

004437
000000
024750
012623
023727
001406
062737
000751

024750
024754
024760
024762
024766
024772
024774
024776
024776
025002

004737
005737
001406
013704
063704
012423
011413
004737
000207

SVRMHXX
:

010750
156020
000014

000200

155770

024426

1¢:

2s:
3s:

000046

4%
:

024722

022536
002662

S$:
64:

002652
002660
78:

011002

PC,SAVREG
R2
78

1 sSAVE RO RS
;:QUEVE ENTRY FOR

B8EQ
CLR
CHP
BNE
BIT
BNE
CLR
B8R

JSR
. WORD
S

MOV

cMP
8EQ

JSR
TST
BEQ

MOV
ADD
MOV
MOV

JSR

RTS

$
3
3

112714
032777
001002
005726
000402

JSR
15T
BEQ

B8R

s CALL

010446
013704
010177
011446
052716
000316

:DPB POINTER TO R2

ADD

s1ROUTINE

025004
025006
025012
025016
025020
025024
025026
025032
025040
025042
025044

#DPBNUM,
R2
PC, SVRHXX

MOV

000022

000002

JSR

MOVB

024722
024722

024722

MOV

SET.IE:

002670
155662
040000
000100
010000

155640

TO SET

MOV
JSR

RETURN

MOV

MOV
MOV
BIS
SWAB
MOvVB
BIT
8NE
TST
BR

(R2),3RPCS2
14(R2),R3
74

34
38,022
28
e8ITO7,3RPCS2
23
(R3)«

1SAVE

THE DRIVES REG’'S

THE DRIVE

;BR IF NONE
sSELECT DRIVE

;'OR’

sBR IF

SET

R4 ,RD.RP

;READ

THE

SELECTED REGISTER

+REGISTER INDEX
:ERROR RETURN ADDRESS
1STORE THE REGISTER CONTENTS
;REACHED

:BR IF

THE END

YES

02,38
1¢

: INCREMENT THE REGISTER INDEX
;CONTINUE READING THE REGISTERS

PC.CI?7
RHTYPE
74
RPADR ,R4
RHEXT
, R4
(R4)+,(R3).

$PROCESS

THE

UNCORRECTABLE

+IS IT RH70 ?
:IF EQ, NO
:GET RPCS1 BASE ADDRESS

sPOINT

(R4),(R3)

PC,RESREG
PC

1 sRESTORE
1RETURN

INTERRUPT

WITHOUT GETTING A

"TRE"

sORIVE NUMBER TO R1

R4, -(SP)
RPCS1,R4
R1,8RPCS2

1SAVE R4
1PICKUP ADR OF RPCS1L
1SELECT DRIVE

08I7T14,(SP)
(5P)
081706,(R4)
08IT12,8RPCS2
1
(SP).
s

1SET

ERROR

RO-RS

QDRVNUM,R1

PC,SET.IE

PARITY

TO RPBAE

$STORE THE CONTENTS
;:GET RPCS3

THE

JR RH70)

sCOUNTER & POINTER
;REACHED THE BUFFER REGISTER ?
:BR IF NOT
sSTORE RPDB AS ZEROES
;sCONTINUE

(SP)+,(R3).
34,046
64

RH11

1GET THE ERROR TABLE POINTER
sEXIT IF NO ADDRESS

(RHXX=

"IE"

1READ RPCS}

1SET THE

“TRE” BIT OF THE WORD READ

1ADJUST FOR DATO

1SET “IE”
;IS “NED"=1?
1 YES--CLEAR

"TRE"

iCLEAN OFF THE STACK

CZRJLBO RPO7 FCTNL

TEST MACRO VvC4.00

398 025046
399 025052

000001

RPO?

DRIVER

400

025054

112664
012604

000207

1 DEC-83

1¢:
2s:

12:59:38 PAGE

MOvB
MOV
RTS

(SP)+,1(R4)
(SP)¢,R4

5€EQ 0100

;CLEAR

“TRE'

;tRESTORE R4
tRETURN TO CALLER

7 62

)

025056
025057
025060
025061
025062
025063
025064
025065

000

12:59:38 PAGE

; QUEUE COUNT

QCNT;

000
000
000
000

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

SEG 0101

sORIVE
sORIVE
;ORIVE
;ORIVE
sORIVE
;ORIVE
;ORIVE
;DRIVE

NOONMBL WO

DRIVER

1-DFC 83

;s QUEUE INPUT POINTERS
025150
025170
025210
025230
025250

QINPT:

025270
025310
025330

; QUEUE

025106
025110
025112
025114
025116
025120
025122
025124

025150
025170
025210
025230
025250
025270
025310
025330

QOUTPT:

025126
025130
025132
025134
025136
025140
025142
025144
025146

025150
025170
025210
025230
025250
025270
025310
025330
025350

QSTART:
QSTOP:

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

QDRVO
QDRV1
QORV2
QDRV3
QDRV4
@DRVS
QORV6
QORV7

QDRVO:

QDRV1:
QDRV2:
QDRV3:
QORV4

025350

QORVS:
QORV6:
QORV7:
QTERP=,

:ORIVE

;sORIVE

OUTPUT POINTERS
. WORD
. WORD
.WORD
. WORD
. WORD
. WORD
. WORD
. WORD

QORVO
@QDRV1
@DRvV2
@QDRV3
GQORV4
QDRVS
QDRV6
QDRV7

;DRIVE 4]

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

QDRVO
QDRV1
QDRVZ2
GORV3
QDRV4
@QDRVS
QDRV6
QDRV7
QTERP

;:ORIVE 0 START ADDRESS
sORIVE O STOP ADDRESS € DRIVE 1 START ADDRESS

sDRIVE REQUEST QUEUES
025150
025170
025210
025230
025250
025270
025310
025330

;sORIVE
;DRIVE
;sORIVE
;ORIVE
;ORIVE
sORIVE

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW

10
10
10
10
10
10
10
10

;ORIVE 1
sORIVE -l

sORIVE 3
;DRIVE 4
;:ORIVE S
sDRIVE 6

;DRIVE 7

;STOP
sSTOP
:STOP
1STOP
1STOP
1 STOP
:1STOP

ORIVE
ORIVE
ORIVE
ORIVE
DRIVE
ORIVE
DRIVE

1--START ORIVE
2--START DRIVE
3--START DRIVE
4--START DRIVE
5--START ORIVE
g--START ORIVE

~NoOnbdwn

025066
025070
025072
025074
025076
025100
025102
025104

~NOVMDLINN-O

RPO7

TEST MACRO vO4.00

(eJoloToloYo
o
)

CZRJLBO RPO7 FCTNL

CZRJULBO RPO7 FCTNL
DRIVER
OO
UNE W=

RPO7

TEST MACRO v0O4.00

DEC

12:59:38

;ROUTINE

i CALL
025350
025354
025360
025362
025364
025366
025370
025374
025400
025402
025404
025406
025412
025416
025420
025422
025424
025430

004737
012702
005022
005022
005022
005022
012703
012701
012122
005303
001375
012703
012701
012122
005303
001375
004737
000207

010750
025056

ALL

SEQ 0102

THE

REQUEST

QUEUES

JSR

PC,.CLRQUE

CLRQUE:

JSR
MOV
CLR
CLR
CLR
CLR
MOV
MOV
MOV
DEC
BNE
MOV
MOV
MOV
DEC
BNE
JSR

PC.,SAVREG
#QCNT ,R2
(R2).
(R2)«
(R2)+
(R2)+

$SAVE RO - RS
:ZERO THE QUEUE COUNTS
;ORIVES 0 € 1
sORIVES 2 € 3
;DRIVES 4 £ S
sDRIVES 6 & 7

#QSTART ,R1

;s ADDRESS OF

1%:

000010
025126

TO CLEAR

000010

025126

PAGE

2$:

011002

RTS

48. ,R3

(R1)+,(R2)+
R3
1
8. ,R3
@QSTART ,R1
(R1)+,(R2)+
R3

et
PC,RESREG

sMOVE

THE

STARTING

; THE QUEUE

THE QUEUE INTO

INPUT POINTER

sMOVE THE STARTING ADDRESS
;OF THE QUEUE INTO THE
;QUEVE OQUTPUT POINTER

sRESTORE RO

sEMPTY THE QUEUE SPECIFIED BY R1
3

025432
025436
025440
025445
025450

105061
006301
016161
006201
000207

025056
025066

;sCALL
;
:

MOV
JSR

ORVNUM,R1
PC.EMPTYQ

sDORIVE NUMBER TO R1

EMPTYQ:

EERB

ggNT(Rl)

sCLEAR NUMBER OF

025106

:g;
RTS

gINPT(Rl).QOUTPT(Rl)
1
PC

ITEMS

IN QUEUE

:SET OQUTPUT QUEUE POINTER=INPUT POINTER

;ROUTINE 7O PUT A REQUEST IN QUEUE
3

;sCALL
;

MOV

:
3

JSR
R4 ,DRVQUE
RETURN1

:
025452
025460
025462
025466
025470
025474
025502
025510
025512
025520
025522

122761
001421
105261
006301
010271
062761
026161
001003
016161
006201
005724

000010

025056

DRVQUE:

025056

MOV

RETURNZ2

025066
025130

025126

025066
1¢;

;DRIVE NUMBER

1+ADDRESS OF PARAMETER BLOCK
1GO PUT REQUEST
;RETURN HERE IF

IN QUEUE
QUEUE IS FuULL

;RETURN HERE IF REQUEST IS IN QUEUE

CMPB

€10,QCNT(R1)

:1IS QUEVE FULL?

BEQ
igca

24
gCNT(Rl)

1BR IF YES-TAKE RETURN1
;s INCREMENT QUEUE COUNT

025066
000002
025066

00RVNUM,R1

oDPB,R2

MOV
ADD
cMP
BNE
:O;
S
TST

R2.8QINPT(R1)
1PUT THIS REQUEST IN QUEUE
02.QINPT(R1)
sUPDATE THE QUEUE POINTER
QINPT(R1),QSTOP(R1) ;TIME TO RESET THE POINTER
14
$tBRANCH IF NO
gSTART(Rl).QINPT(Rl) s YES--RESET POINTER
1
(R4).
s TAKE RETURN 2

CZRJLBO RPO7 FCTNL
RPO7

DRIVER

58 025524
59
&0

TEST MACRO vO4.00

1-DEC-83

000204

12:59:38 PAGF

2%:

i CALL
H

MOV

JSR

RETURN

025526
025530
025534
025536
025540
025544
74 025546
75
76
77

0C5002
105761
001404
006301
017102
006201
000207

GETREQ:

025056

1¢:

025106

2s:

025604
025612
025614

TST8
8EQ
ASL
MOV
ASR
RTS

5EQ 0103
;RETURN

USER

“DPB" ADDRESS OF NEXT REQUEST IN QUEUE

#DRVNUM,R1

PC.GETREQ

:ORIVE NUMBER

;GO GET

THE

TO R1

REQUEST

;R2="DPB"” ADDRESS OF THE REQUEST
;R2=0 IF NO REQUEST IN QUEUE

QCNT(R1)

;IS

8QOUTPT(R1),R2

;PICKUP

"“DPB"” POINTER FOR

$tRETURN

TO USER

gt
1

R1
PC

THERE

ANY REQUEST

:NO- - -BRANCH

IN QUEUE?

THIS DRIVE

;+ROUTINE TO “POP” THE REQUEST FROM QUEUE

: CALL

78
79

80
81
82
83 025550
025554
025556
025562
025566
025574
025602

CLR

:ROUTINE TO GET THE

62
63
64
65
66
67
68
69
70
71
72
73

RTS

Mé4

H
H

105361
006301
017102
005071
062761
02€°.61
00.uC3
016161
006201
000207

025056
025106
025106
000002
025106
025126

MOV

J5R
RETURN

POPQUE
: OECs
ASL
MOV

CLR
ADD

025106

025130

025106

CcHP
BNE

1¢:

MOV
ASR
RTS

QDRVNUM,RY

;ORIVE NUMBER TO R1

ggNT(Rl)

:DECREMENT QUEUE COUNT

8QOUTPT(R1).,R2

;GET

€2,Q0UTPT(R1)

1UPDATE

PC.POPQUE

S8QOUTPT(R1)

;:CALL TO REMOVE REQUEST
;R2=ADDRESS OF DPB REMOVED

THE

"DPB" POINTER

tREMOVE DPB ~ODRESS FROM THE QUEUE

QOUTPT(R1),QSTOP(R1)

THE

QUEUE POINTER

;TIME TO RESET THE POINTER?

1$
;NO--BRANCH TO EXIT
gSTART(Rl).QOUTPT(Rl) ;YES -RESET THE POINTER
1
PC
;RETURN TO USER

CZRJLBO RPO7 FCTNL

REPORT

CODING

TEST MACRO v04.00

SECTION

1 DEC-83 12:59:38 PAGE 42
.SBTTL

a2
43
44
45
46
47

N&
SEG 0104

REPORT CODING SECTVION

025616
48
60
61 025616
025620
62
74
75
76 025622

025622

THE REPORT CODING SECTION CONTAINS THE
“PRINTS” CALLS THAT GUNERATE STATISTICAL

LS$RPT:;
000167
000000

. WORD
.WORD

J$IMP
L10013-2-.

.EVEN
104425

L10013:

TRAP

CS$RPT

REPORTS.

CZRABO RPO7 FCTNL

PROTECTION

TABLEL

F)r,
P

TEST MACRO vO4.00 1| DEC 83 12:59:%8 PAGF 43

.SBTTL

I LA

5
b

8 025624

000006

000000
177777

[

THIS

TO PROTECT

]

9 025624
10 025626

025630

PROTECTION

TABLE

Twet

520 010%

TABLE

USED

THE

RUNTIME

LOAD MEDIA,

SERVICES

L$PROT::

sP TABLE OFFSET OF CSR
:NOT A MASSBUS DEVICE

TABLE

OFFSET DRIVE

TEST MACRO v0O4.00

IO Ny

JRILBO RPO7 FCINL
INITIALIZE SECTION

025632

5EQ 6104

SECTION

THE INITIALIZE SECTION CONTAINS
AT THE BEGINNING OF EACH PASS,

THE

CODING

sRESET

THE

THAT

IS PERFORMED

LS$INIT::

104433
012737

015406

025642
025650

012737
005037

000001
002246

025654
025660

012700

000034

025662

103432

025664
025670

012700
104447

025672
025674
025700
025700
025704

103002
000137
012700
104447

025706

103016

025710
025714

012746

104447

025730
025736
025742
025744
025750
025756
025760
025764

39 025770
025774
025776
40 026000
41 026002
42 026004
43 026006
44 026012
45 026014
46 026016
47 026020
48 026024

013700
104442
010005
103361
011346
011546
166616
061623
005302
001375
004737
005737

025724

:--

012746
010600
104417
062706
012737
012727
000000
005237
023737
002166
012702
012703

INITIALIZE

+
i

025720
025722

12:59:38 PAGE

.SBTTL

025632
025634

DEC 83

C$RESETY

002262

002244

4ABOPAS,BYPASS

tABORT PASS ON DEV FATAL ERROR DETECTED IN

@1, ITONT
ISRCNT

tRESET

QEF .PWR ,RO
CSREFG
48

000036

oEF .CON,RO

CSREFG
14

026276
18:

000035

WORLD

CONTIN
OEF _NEW,RO

CSREFG
3¢

sCALLED BY SFTW DRVRS

ITERATION COUNT

1CLEAR INTERRUPT COUNTER
sPOWER UP SEQUENCE ?
:GO TO 4s

YES

sCONTINUE COMMAND ?
:GO TO 1s

IF NO

:GO TO ‘CONTIN'

:'STA',

'RES'

GO TO 3%

IF NO,

YES

'NEW PASS'

MUST BE NEW ' SUB-PASS'

;CR LF

SP,RO
CS$PNTF

177777
177777
002650
002650

04,5P
€-1,UNIT

002650
2s:

002012

as:

000024
002670

8°1.(PC)0
UNIT
UNIT,LSUNIT
ABORT
020. ,R2
#RPCS1,R3

002650

UNIT,RO

sRESET UNIT COUNT
1RESET CLOCK MESSAGE FLAG
1CLOCK MESSAGE FLAG GOES HERE

1GET NEXT UNIT NUMBER FOR TESTING

sOUT OF UNITS TO TEST ?
1BR IF

YES

1RHXX/RPO7 REGISTER COUNT

tDATA SINK
1GET UNIT FROM HARDWARE P-TABLE

C$GPHRD

RO ,RS

000002
S5s:

3¢
(R3),-(SP)
(R5), -(SP)
2(SP),(SP)
(SP),(R3).

011034
002662

PC,SIZET0

RHTYPE

1SAVE R3
1AND THE BASE ADDRESS
1DERIVE NEW ADDRESS
tLOG IT IN NEW TABLE
1 COUNT LOGGING
1R2 NOT ZERO, CONTINUE LOGGING
1SEE _IF RHM70 IS PRESENT
+IS IT AN RM70 ?

ERRABO’
,

CZRUBO RPO7 FCTNL
INIVIALIZE

SECTION

49 026030

50
S1
52
53
54
55
56
57
58
59
60

026036
<6040
026042
026044

001406
013702
061502
010223
005722
010213

026046
026050
026054
026060
026064

022626
012537
012537
012537
011537

026032

61
62 026070

63
64
65
66
67
68
69

026074

026100
026104
026106
026110
026114
026116

70
71 026120
026122

026126
026132

72
73

74
75

TEST MACRO vO4.00

026134
026136
026142
026144
026144
026146
026152
026156
026160
026162
026166
026170
026170
026172
026176
026202
026204
026206

76 026212
77 026214

004737
013705
105765
100443
001054
105765
001425
100012
010546
012746
012746
010600
104417
062706
000700
010546
012746
012746

010600
104417

DEC 83

012746
012746
010600

80 026240
81 026244
8¢ 026246

005737
100061
005237

cMe

(SP)+,(SP).
(RS)+,RPADR
(R5)+ ,RPVEC
(R5)+ ,RPVEC+2
(R5),DRVNO

1RESTORE

PC,RPINIT

s INITIALIZE THE SUB-SYSTEM

JSR
MOV
7578
B8MI
BNE

1578

BEQ
8PL

MOV

005362
000002

MOV

MOV
MOV

TRAP
ADD
7%:

005327
000002

005270
000002

005237
000002

10¢
DRVTYP(RS)
8s
74

SP,RO
CSPNTF
06,5P
34

MOV

SP,RO
CIPNTF

TO OFFSET

STACK

s SAVE RPCS1 BASE ADORESS
1SAVE INTERUPT VECTOR ADDRESS
$ SAVE

1SETL,

TNTERUPT PRIORITY

ORIVE NUMBER FOR UNIT N

;PICKUP DRIVE

sCHECK DRIVE STATUS:

INDEX

IF NOT AVAILABLE,

s UNSAFE BRANCH
sDRIVE OK

sNED « OFL ?
tNED BRANCH: NON-EXISTENT DRV

sOFL BRANCH:

OFF -LINE

MNOTMSG,
- (SP)
02, -(SP)

;EXIT BLOCK

00FLMSG, -(SP)

02,-(SP)

06,5P
3¢

sEXIT BLOCK

RS, -(SP)
ONEDMSG, -(SP)

SP,RO
CSPNTF
06, 5P
3¢

sEXIT BLOCK

QUNSMSG, -(SP)

02,

000006

025742

)

1IF NO

1GET RPBAE OFFSET
;ADD BASE ADDRESS
1 SAVE NEW RPBAE
;ADD 2

02, -(SP)

9%
:

002260

DRVNO,RS
gRVSTA(RS)

RS, -(SP)

TRAP
ADD

8s:

(R2)»

MOV
MOV

MOV

104417
062706
000654
010546
012746
012746
010600
104417
062706
000642

; SAVE NEW RPCS3

MOV
MOV

020320

5EQ 6107

R2,.(R3)

MOV
MOV

020400
C02664
020310

MOV

ADD

6$:

1BR

MOV
ST

002652
002654
002656
002664

64
RHEXT ,Re
(RS),R2
RZ,(R3).

MOV

062706

010546

12:59:38 PAGE
BEQ

002660

000666

026214
026216
026222
026226
026230
026232
78 026236
79

10%:

(SP)

SP,RO
CSPNTF
#5,SP
3¢

1ORV NOT AVAILABLE:

CLKSTA

tDRV IS OK!

EXINIT
2t

tUPDATE,

TRY ANOTHER

WHAT CLOCK

TYPE?

CAN CLOCK MESSAGE BE TYPED ?

TRY

ANOTHER DR.VE

CZRULBO RPO7 FCTNL TEST MACRO v04.00
INITIALIZE SECTION
83 026252
84
85 026254
026260
026264
026266
026270
86 026274
87

88 026276
89 026276
026302
026 306
026312
026316
026320
90 026324
91 026330
026332
92
93 026334
026340
95 026346
026352

97 026354
98 026356

100

101

102
103

026362
026364
026366
026366
026372
026374
026374
026400
026402
026404
026406

104
105 026410
026416
107 026424
108 026432
109
110
111
112 026440
113 026444
114 026452
026456
026462
026466
026470
026472
115 026476
116 026502
117 026504
118 026506

DEC-83

12:59:%8 PAGE

001056

BNE

012746
012746
010600
104417
062706
000445

004317
000001

013746
012746
013746
012746

002656
023046
002654
000003

062706
004737
104432
000320

000010
012000

004737
012777
005737
001410
100404
013700
104436
000403

012364

104437

MOV
MOV

MOV
TRAP

000004

000040
002260

CONTIN:

ABORT:

013700
104436

012240

013700
104436
104444

002654

1¢:

5
$:

104432

013737
013737
013737
013737

002664
002664
002664
002664

002550
002570
002610
002630

EXINIT:

000004
002664
002664
004403
000002
000006
154216

154226

+BR IF NO

EXINIT

tPRINT

ONOCLK, (SP)
o1, (SP,

TRAP

Cs$SVEC

TRAP
. WORD

CSEXIT
L10015-.

JSR

PC,.STOPCK

MOV
TST

TESTS

WILL

NOT

INIT

. WORD

L10015-.

TO CLEAR

tRELEASE APPROPRIATE

;s SKIP

RPVEC,RO

INTERMEDIATE BRANCHING

THE CLOCK

MOV

ROL

sSTOP

sMASSBUS

:NO CLOCK,
iL-CLK

LKV,RO
C$CVEC

ROL

TIMING

;SETUP RHXX/RPO7 VECTOR

2t
1

MOV
TRAP

MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD
MOV
CLR

CLOCK,

;START CLOCK

OCLR,3RPCS2
CLKSTA

PKV,RO
CSCVEC

MOV
MOV
MOV
MOV

;SKIP NEXT

#10,5P
PC.ST.CLK

MOV
TRAP

B8R

'NO P

SP,RO
CSPNTF

RPVEC+2, -(SP)
OISRV, -(SP)
RPVEC, (SP)
03,-(5P)

sPRINT

012701
013777
013746
012746
012746
010600
104417
062706
017746
005002
006116
006102

SEQ 0108

MOV
MOV
MOV
MOV

TRAP
TRAP
TRAP

000244

04 ,5P
EXINIT

8EQ
8MI

012230

ADD
BR

ADD
JSR

154332

SKIP

IMPENDING

CLOCK

VECTOR

C$CVEC
C$DCLN
CSEXIT

DRVNO,DPB.A
DRVNO,DPB
.8
ORVNO,DPB.C
ORVNO,DTADPB
DRIVE

SERIAL

$sSTUFF DRIVE NUMBER IN OPB TABLES

NUMBER

o4 ,R1
ORVNO, BRPCS?2
DRVNO, -(SP)
S#OSNMSG, -(SP)
2,-(SP)
SP,RO

14 DIGITS
1 SELECT DRIVE

8RPSN, -(SP)

tFETCH S/N

CS$PNTF
06 ,5P

(SP)

1 ZERO OUTPUT
$PUT NEXT DIGIT INTO R2

INTERRUPTS

EXECUTED'

CZRJLBO RPO7 FCTNL TEST MACRO v04.00
INITIALIZE SECTION
119
120
121
122
123
124
125
126
127

026510
026512
026514
026516
026520
026522
026524
026530

026534

026540
026544
026550
026552
026554
128 026560
129 026562

130 026564
131
132 026566
026572
026576
026600
133 026602

DEC 83

12:59:38 PAGF

006116
006102
006116
006102
006116
006102
062702
010237

012746

012746
012746
010600
104417
062706
005301
003347

ROL
ROL
ROL
ROL
ROL

ROL
ADD
MOV

000060
002666
002666
004427
000002

MOV

MOV
MOV
MOV
TRAP
ADD
OEC
BGT

000006

005726

TS7T

012746
012746
010600
104417
062706

000004

026606
026612
026620
026626
026634
026640

004737
012737
112737
112737
004437
012737

012724
026334
000020
000147
014374
015406

164
165 026646
166 026650

104432
000002

134
135
136
137
138
%zg

003064
000001

002262
002551
002552
002262

178

179
180 026652
026652

L10015:

sMAKE RESULT ASCII
s SAVE R2 FOR PRINT

SP,RO
CS$PNTF
#6,SP
R1
3s

;COUNT DOWN DIGIT
sNEXT DIGIT
sRESTORE STACK
sCR-LF

(SP).

MOV
MOV
MOV
TRAP
ADO

OCRLF, -(SP)
1, (SP)
SP,RO
CSPNTF
04 ,5P

JSR
MOV
MOVB
MOve
JSR
MOV

PC,.LDCMO
QABORT ,BYPASS
20,0PB.A+1

OSETFORM,DPB.A
R4 ,CALL.A
OABOPAS ,BYPASS

TRAP

CSEXIT

. WORD

L1001S

TRAP

5EQ 0109

(SP)
R2
(sP)
Re
(SP)
R2
#'0,R2
R2 ,DRVSN
@DRVSN, -(SP)
OSNDIGT, -(SP)
02,-(SP)

.EVEN
104411

CSINIT

:LOAD COMMAND IN DPB.B, DPB.C FOR SEEK TESTS
;1BYPASS ROUTE ON RP DRIVER FATAL ERROR
;SET 16 BIT FORMAT

;SET FORMAT MODE (16 BIT)
:GO EXECUTE THE COMMAND
;RESTORE ABORT ADDRESS FOR 'ERRABO'

DEV FATAL ERROR

(59
]

CZRILBO RPQO7 FCINL
AUTODROP

SECTION

TESY MACRO vO4.00

DEC 83 12:99:3%8 PAGE 45

.SBTTL

AUTODROP

SECTION

:00

THIS

CODE

;

THE

"ADR"”

FLAG WAS

®
7

SEE

DROPPED

i--

THEY

FROM

EXECUTED
WILL

17 026654

026654

RESPOND.

TESTING.

L$AUTO::
104461

L10016:

TRAP

IMMEDIATELY

SET.

10 026654

26£Q G110

CsAUTO

THE

AFTER

UNIT(S)

THOSE

THAT

THE

UNDER
DON‘'T

INITIALIZt

TEST
ARE

ARE

CODE

CHECKED

IMMEDIATELY

CZRJULBO RPO7 FCTNL TEST MACRO v04.00
CLEANUP CODING SECTION

-4
1 DEC 83

12:59:%8 PAGE

LSBTTL

CLEANUP CODING

5EQ 0111
SECTION

3
4

;00
:

;

8 026656

9
10 026656

11
12
13
14
15
16
17
18

026662
026664
026672
026700
026704
026710
026712

026714
026720

19 026722

20
21 026724
026724
026730
22 026732
23 026732
026736
24 026740
- 026742

26 026744

026744

THE

CLEANUP

AFTER

THE

CODING

HARDWARE

SECTIOM

L$CLEAN::
012700
104441
012777

000340

013700
104436

012230

013777
004737
005737
001410
100404

000040
002664
012364
002260

MOV
TRAP
MOV

154006
154000

000403

013700
104436

012240

013700

002654

104436
104432
000002

104412

14:

2s:

DRVNQ, aRPCS2
PC,STOPCK
CLKSTA
24
1$

MOV
TRAP

PKV,RO
Cs$CVvEC

LKV,RO
CsCVvEC

MOV

RPVEC,RO

TRAP

THE

CODING

CsCVEC
CS$EXIT
L10017

C$CLEAN

PRIORITY

;RPO7

THAT

PERFORMED

sMASSBUS INIT TO CLEAR IMPENDING INTERRUPTS
:GET DRIVE MUMBER
;STOP THE CLOCK
;RELEASE APPROPRIATE CLOCK VECTOR
sNO CLOCK, SKIP
sL-CLK
;P-CLK VECTOR RELEASE

;L-CLK

MOV
TRAP

TRAP
TRAP
.WORD

L10017:

;SET

oPRIO7,RO
C$SPRI
OCLR,8RPCS2

MOV
JSR
TST
BEQ
BMI

B8R

CONTAINS

TESTS HAVE BEEN PERFORMED,

VECTOR RELEASE

CZRJLBO RPO7 FCTNL
DROP

UNIT

SECTION

TEST MACRO vO4.00

1 DEC 83

12:59:38 PAGE

1
2
X

.SBTTL

;

THE

TO NO LONGER BE

i--

5EG 0112

SECTION

g
1
18
9
1
31
32
33

DROP UNIT

[

026746

026746
026750

DROP

UNIT

SECTION

L $0U::

000167
000000

. WORD
.WORD

J$IMP
L10020 2-.

.EVEN
026752
026752

CONTAINS

TESTED.

104453

L10020:

TRAP

Csov

THE

CODING

THAT

CAUSES

DEVICE

CZRJLBO RPO7 FCTNL
UNIT

SECTION

12:59:38 PAGE

.SBTTL

[+ JENY NV, I WFE O

ADD

TEST MACRO VO4.00 1 DEC 83

ADD UNIT

JY
48

560 0113

SFCTION

i
;

9 026754

18
19 026754
026756
0
32
33
34 026760
026760

THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES
TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK

TO THE

TEST CYCLE.

L$AU:
000167
000000

.WORD
. WORD

JSIMP
L10021

.EVEN
104452

L10021:

TRAP

CsAvU

1<)
CZRULBO RPO7 FCTNL

HARDWARE

TESTS

TEST MACRO v04.00

1-DEC-83

2
13

.SBTTL

1 #AND

16
17

18
19
20
21
22
23
24
a5

12:59:38 PAGE 49
HARDWARE

TESTS

;*IN THE DESCRIPTIONS OF
THEIR

S5EQ 0114

DEFAULT

THE BELOW TESTS THE VARIABLES USED

VALUES

(UNLESS

SPECIFIED

OTHERWISE)

ARE:

]

; *MNEMONIC

je---

VALUE

VARIABLE

HE)

;1«ITCNT

;aFC

;sLC
;oIC

;:sNC OF NC1

1
0
629
1

CYLINDER ADDRESS

FC+IC

LAST CYLINDER ADDRESS
INCREMENT VALUE
NEW OR MODIFIED CYLINDER

LC-IC

NEW OR MODIFIED CYLINDER

0
31.
1
FTIT

FIRST

0
49,

FIRST

; oNC2

ITERATIONS

FIRST

]

ADDRRESS

ADDRESS

3 &

;oF
T

T
;oL
;eI7

;‘NT

TRACK

ADDRESS

LAST TRACK ADDRESS
INCREMENT VALUE
NEW OR MODIFIED TRACK ADDRESS

;‘FS

;sLS
.SBTTL

LAST

SECTOR

ADDRESS

SECTOR ADDRESS

SEEK TESTS

;oTHE SEEK TESTS WILL BE EXCUTED USING IMPLIED SEEKS. THESE
;#IMPLIED SEEKS WILL BE PERFORMED BY "READ HEADER AND
;sDATA” COMMANDS TO TRACK “FT” SECTOR "“FS” OF THE DESIRED CYLINDER.
s¢THE WORD COUNT WILL BE SET SUCH THAT
;«TRACK/SECTOR WORDS OF THE HEADER ARE

ONLY

READ.

THE

CYLINDER

AND

;«HOWEVER, THESE IMPLIED SEEKS CAN BE SUPERSEDED BY EXPLICIT SEEKS
:¢VIA OPERATOR DIALOGUE, IN WHICH CASE HEADER INFORMATION IS NOT VERIFIED.

CZRJLBO RPO7 FCTNL
TEST

RECALIBRATE

TEST MACRO v04.00 1-DEC-83
TEST

1
2
17

.SBTTL

12:59:38 PAGE 50
TEST

RECALIBRATE

5£Q 0115

TEST

132808 4848 0

40
a1

ia
ie

THIS TEST WILL CAUSE THE DRIVE TO EXECUTE A
COMMAND CYCLE AND THEN DO A READ HEADER AND

TO VERIFY

0 4880080000808 0 8008000080880 0 088000888808 80840000048808004040404044080

RECALIBRATE
DATA COMMAND

POSITION.

$ 388888858488
840 04840808488 00080080808 00008088488 8040 40880040 0800850804880000008

S1
57 026762
S8 026762
S9 026770
026770
60 026776
61 027002
62 027006

63
64
65
66
67

027006
027010
027014
027020
027024
027026

027026
027026
68 027030
027030

012737

000012

002244

112737
005037
005037

000107
002600
002602

002552

104402
004437
004437
005337
001361

014374
014512
002244

104403
104401

T1::

TESTL:

T1.1:

EXIT1:
L10023:

L10022:

MOV

010.,ITCNT

;SET

ITERATION COUNT

MOVB
CLR
CLR

ORECAL,DPB.A+2
DPB.B+10
DPB.B+12

;RECAL =COMMAND
:SEC/TRK 0
iCYL O

TRAP
JSR
JSR
DEC
BNE

C$BSUB
R4,CALL.A
R4,CALL.B
ITCNT
TESTL

:GO EXECUTE THE COMMAND
:GO EXECUTE THE COMMAND
;OONE ITERATIONS ?
:BR IF NO

TRAP

C$ESUB

TRAP

CS$ETST

M9
1-DEC-83

WO ~NOND G-

CZRJLBO RPO7 FCTNL TEST MACRO V0O4.00
TEST 2: INCREMENT SEEK TEST

12:59:38 PAGE

.SBTTL

TEST

SEQ 0116

INCREMENT

SEEK

TEST

1085880420200 0800488840800 00 4000008080000 RRARRRRRRREAAbASLA0000004000000000040
L]

THIS

CYLINDER ADDRESS FROM

[}
1]

]

*®

]

’

TEST

WILL

COMMAND FORWARD SEEK

“FC"

CYCLES

"LC” BY THE

TO ADVANCE

INCREMENT

THE

“IC".

WHEN THE RESULTANT CYLINDER ADDRESS (NC) EXCEEDS
“LC"” REVERSE SEEK CYCLES ARE INITIATED; STARTING
AT THE LAST LEGAL "NC” AND DECREMENTING BY “IC”
UNTIL "NC” IS LESS THAN "FC”. AT THE COMPLETION OF EACH
SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO
ENSURE PROPER OPERATION,

1008050404088 0 400450080800 04 88084000 RRRRARARRRERARSR0400 4000400808000 8000080008

027032
027032
027040
027046
027054
027054
027054
027056
027062
027062
027064
027072
027100
027102
027110
027110
027110
027112
027116
027116
027120
027126
027134
027136
027136
027136

113737
113737
013737

002220
002212
002204

104402
004437

014512

104403
063737
023737
002365
013737

104402
004437
104403
163737
023737
003765
104401

002600
002601
002602

T2.11:
T2.1:

L10025:

002210
002206

002602
002602

002206

002602

MOVB
MOVB
MOV

L10026:
002602
002602
EXIT2:
L10024:

FS,0PB.B+10
FT,0PB.B+11
FC.0PB.B+12

TRAP
JSR

cs85UB
R4,CALL.B

TRAP

C$ESUB

cHP

LC.0OPB.B+12

ADD

T2.21:
12.2:

014512
002210
002204

T2::
1¢:

BGE
MOV
TRAP

iFC

;GO EXECUTE

IC.0PB.B.12

:MOVE

T2.11
LC.OPB.B+12

:NO- -BRANCH

csBsuB

JSR

R4,CALL.B

TRAP

C$ESUB

TRAP

CS$ETST

SuB
CMP
BLE

iFS

iFT

IC.0PB.B+12
FC,0PB.B+12
T2.21

THE COMMAND

TO NEXT CYLINDER

;OUT OF CYLINDERS?

;GO EXECUTE

THE COMMAND

CZrRJLBO RPO7 FCTNL

12:59:38 PAGE

N9
52

S5EQ 0117

1-DEC-83

.SBTTL

Voo IENT NV, I W

TEST

TEST MACRO v0O4.00
RANDOM SEEK TEST

;;““““““““““““‘t“““““‘““““"tt‘
18

TEST

RANDOM SEEK

TEST
““‘ttt“““““““““‘

THIS TEST PERFORMS RANDOM SEEK OPERATIONS BETWEEN CYLINDERS 'FC’
'LC'.
AFTER EACH SEEK, THE POSITION OF THE DRIVE IS VERIFIED BY
READING A SECTOR FROM THE CURRENTLY ADDRESSED CYLINDER AND TRACK.
THE TRACK ADDRESS IS INCREMENTED FOR EACH SEEK SO THAT VERIFICATION
OF POSITIONING OCCURS USING EACH HEAD.
TRACK ADDRESSES ARE INCREMENTED

BETWEEN PARAMTERS 'FT' AND ‘LT’
THE RANDOM CYLINDER IS GENERATED BY USING THE
XMOD Y

(X DIV

IF X,Y ARE INTEGERS WITH Y

<> O THEN:

X MOD Y = REMAINCER OF X DIV
THE ACTUAL OPERATION PERFORMED IS:
FC + $RP1 MOD (LC+1)-FC

‘MOD’'

FUNCTION:

8Y DOING:

CYL = FC + R
WHERE R IS OBTAINED BY:
$RP1 DIV (LC+1)-FC = Q + R
WHERE Q = QUOTIENT,
R = REMAINDER,

$RP1

A RANDOM NUMBER FROM RAND CALL.

;;O““‘.“““t‘“t““.“.““‘t“““““t‘““‘t““

t““t“t““““‘t‘t“

027140
027140
027146
027154
027162
027170
027176

012737

113737
112737

013737
023737
001423

000012
002212
000105
002204
002204

002244
002601
002552
002602
002206

T3::

MOV

MOV8

TESTS:

MOVB
MOV

cHP
8EQ

210, ,ITCNT

FT,0PB8.8+11

QSEEK,DPB.A+2
FC,0PB.B+12

FC.LC
73.11

:SET

ITERATION COUNT

sLOAD STARTING TRACK ADDRESS

s SEEK=COMMAND
;s INITIAL CYLINDER ADDRESS

sCYLINDER LIMITS THE SAME
1BR IF THEY ARE

sGENERATE A RANDOM CYLINDER
027200
027204
027210
027212
027216
027220
027224
027230
027234

004737
013746
005046
013746
005216
163716
004737
062637
005726

011712
011774

JSR
MOV

002206

MOV

INC
Su3

PC,RAND
$RP1,-(SP)
-(SP)
LC,-(SP)
(SP)
FC.(SP)

:CYCLE THE RANDOM NUMBER GENERATOR
tUSE THE HIGH RANDOM NUMBER
s UPPER DIVIDEND
:FORM THE DIVISOR
: INCREMENT
1SUBTRACT THE LOWER LIMIT

ADD
TST

(SP)+,DPB.B+12
(SP)«

;ADD THE REMAINDER TO
:DISCARD THE QUOTENT

CLR

002204
011176
002602

JSR

PC,$01IV

;OIVIDE

THE

INITIAL CYLINOER

:END OF RANDOM CYL GEN.
027236
027244
027244
027246
027246
027252
027252
027254
027254
027256
027264
027270
027272

013737

002602

002562

104402

004437

T3.11:

014374

L10030:

104403
104402
113777
017746
006316
006316

73.1:

73.2:

002550
153420

153414

MOV

OPB.B+12,0PB.A+12

TRAP

csBsuB

JSR

R4 ,CALL.A

TRAP

Csesus

TRAP
MOVB
MOV
ASL
ASL

cs8suB
OPB.A,3RPCS2
8RPLA, -(SP)
(SP)
(sP)

:COPY NEW CYLINDER ADDRESS

1GO EXECUTE

THE COMMAND

$SELECT THE DRIVE
tGET THE LOOK AHEAD REGISTER
1ALIGN THE SECTOR ADDRESS
+ALIGN THE SECTOR ADDRESS

CZRABO RPO7 FCTNL
TESY

54
55
S6
57
58
59
60
61

62
63
64

65
66

RANDOM

027274

027276
027302
027306
027312
027314
027316
027322
027324
027332
027332
027336
027336
027340
027344

027352
68 027354
69 027362
70

027366
n 027370
027370

SEEK

TEST MACRO
TEST

000316
112637
013746
122637
103007
103403
105037
000403
112737

000001

004437

014512

104403
105237
123737
101703
113737
005337
001275
104401

vO4.00

DEC

12:59:38 PAGE

SWAB

002600
002274
002600

cmeB
BHIS
8LO

002600

18:
2%:

L10031:

002212
002244

002214
002601
EXITS:
L10027:

ADDRESS

IN LOWER BYTE

1LOAD THE DPB
$PUT LAST SECTOR ADODRESS ON THE STACK
tNEW SECTOR ADDRESS TOO LARGE ?

MOV

CLRB
B8R
MOVB

5EU G118
1PUT

MOVB

002600

002601
002601

52
1

t1BR IF NOT

1BR IF ADDRESS IS 2 GREATER

sRESET

TO SECTOR

01,08.8+10

sRESET

ADDRESS

JSR

R4,CALL.B

1GO EXECUTE

TRAP

CsESUB
0P8.8-11
0P8.8+11,LT

s INCREMENT

INCB
cHPB
8LOS
MOVE
DEC
BNE
TRAP

TEST3

F1,0P8.8411

ITCNT

TESTS

CSETST

s CONTINUE

sMAXIMUM

TO SECTOR

THE

TRACK ADDRESS

STARTING

sOONE ITERATIONS

sBR

IF NO

THE COMMAND

;BR IF NOT

sRELOAD

ADDRESS 0O

TRACK

ADDRESS

CZRABO RPO7 FCTNL
TEST

RECAL,

TEST MACRO VO4.00 1| DEC 83 12:59:38 PAGF

RANDOM SEEK

TEST

1
P

.SBTTL

7
8

EXECUTES

TH®

TEST

THIS

;e
i e

THIS

i e

17
18

TEST

SEQUENCE

TRACK AD
STARING FROM

THE

THE
B8y

A RECAL

COMMAND,

TO A RANDOMLY
REPEATED

THE

FC,

RANDOMLY
EACH

THEN A

WHERE

¢+

TEST

HEADER

CYLINDER

ITERATION.

THE

INCREMENTED

'MOD‘

ONE ,

FUNCTION:

IS OBTAINED 8BY:
$RP1 DIV (LC+1)-FC
=

IN A READ

TIMES.

SELECTED

X MOD v = REMAINDER OF X DIV
ACTUAL OPERATION PERFORMED 1IS:
FC + $RP1 MOD (LC+1) FC
DOING:
CvL

04800080606068

IMPLIED

SELECTED CrL INDER.

RANOOM CYLINDER IS GENERATED BY USING
XMOD v = X - (X DIV Y) ¢ Y
X,Y ARE INTEGERS WITH Y <> O THEN:

WHERE R

SEEK

QUOTIENT,

REMAINDER,

$RP1

A RANDOM NUMBER FROM RAND CALL.

15000000000000000800008000800000000080008006000000000004480000600086000800480

000048

027372
027372
027400
027406
027414

012737
113737
112737
013737

000012
002212
200107
002204

002244
002601
002552
002602

T4::

TEST4:

MOV
MOVB
MOVB
MOV

010. ,ITCNT
FT,0PB8.B+11
ORECAL ,DPB.A.2
FC,DPB.B.12

iSET ITERATION COUNT
;LOAD STARTING TRACK ADDRESS
;RECAL *COMMAND
s INITIAL CYLINDER ADDRESS

sGENERATE A RANDOM CYLINDER

30 027422

31 027426

027432
027434
027440
027442
027446
027452
027456

004737

013746

005046
013746
005216
163716
004737
062637
005726

011712
011774

002206

002204
011176
002602

027460

004437

027466

104403

44 027470

027470
027472
027500
027504
027506
027510

027512
027516
027522
027526
027530

104402
113777
017746

006316
006316
000316

112637
013746
122637
103007
103403

PC.RAND

sCYCLE THE RANDOM NUMBER GENERATOR

CLR
MOV
INC
SuUB
JSR
ADD
TST7

-(SP)
LC,-(sP)
(SP)
FC,(SP)
PC, D1V
(SP)+,DPB.B+12
(SP).

sUPPER DIVIDEND
sFORM THE DIVISOR
;s INCREMENT
tSUBTRACT THE LOWER LIMIT
;+OIVIDE
;ADD THE REMAINDER TO THE
1DISCARD THE QUOTENT

sEND OF

RANDOM CYL

T4.1:

104402

42 027462
43 027466

JSR

01"

SO0
51
52
53
54

RANDOM SEEK

;e
;e
x
;e

45
46
47
48
49

RECAL,

ANDO DATA COMMAND,

i e
HL
i

12
13
14
15

5EQ 119

9
10
11

32
33
34
35
36
37
gg

$900000000000000000000000080048000080000000008004008400000086000000006

21
22
23
24
25
g?l

TEST 4:

C10

TRAP

014374
L10033:

T4.2:

002550
153204

002600
002274
002600

153200

1s:

$RP1, -(SP)

THE HIGH RANDOM NUMBER

INITIAL

CYLINDER

GEN.

csBsuB

JSR

R4 ,CALL .A

TRAP

CS$ESUB

TRAP
~MOve
MOV
ASL
ASL
SWAB

csBsuB
DPB.A,BRP(CS2
8RPLA, -(SP)
(spP)
(SP)
(SP)

~MOVve
MOV
cHPB
BHIS
8LO

sUSE

(SP)+ ,DPB.B+10
NSL,-(SP)
(SP)+ ,DPB.B+10
3
et

1GO0 EXECUTE

THE

COMMAND

;SELECT THE DRIVE
sGET THE LOOK AHEAD REGISTER
sALIGN THE SECTOR ADDRESS
1ALIGN THE SECTOR ADDRESS
s1PUT ADDRESS IN LOWER BYTE

;LOAD THE DPB
s1PUT LAST SECTOR ADDRESS ON THE STACK
;NEW SECTOR ADDRESS TOO LARGE ?
1BR IF NOT
1BR IF ADDRESS IS 2 GREATER

CZRUBO RPO7 FCTINL TEST MACRO v04.00
TEST 4: RECAL, RANOOM SEEX TEST
55 027532
56 027536

87
58 027540
59 027546
027546
60 027552

61
62
63
64
65
66
67

027552
027554
027560
027566
027570
027576
027602
027604
027604

105037
000403

002600

112737

000001

004437

014512

104403
105237
123737
101712
113737
005337
001304
104401

002601
002601

002212
002244

002600

DtC

12:99:%8 PAGE

2s:
3s:

L10034:

002601

EXIT4:

L10032:

D10
5£Q 0120

CLRB
BR

oPB.B8+10
3¢

$RESET

MovB

#1,0PB.B+10

tRESET

JSR

R4 ,CALL.B

GO EXECUTE THE COMMAND

TRAP

CS$ESUB
oPB.B.11
0P8.8.11,LT

s INCREMENT

INCB
cHPB
BLOS

002214

MOVB

OeC
BNE

TRAP

TESTA
F1,0P8.B.11

ITCNT

TEST4

CSETST

SECTOR

s CONTINUE

ADDRESS

sMAXIMUM

THE

sOONE
;8R

SECTOR

TRACK ADDRESS

STARTING

ITERATIONS
NO

1BR IF NOT

tRELOAD

ADDRESS

TRACK

ADDRESS

CZRULBO RPO7 FCTNL

DIFFERENTIAL

SEEK

SEQ 0121

TEST

.SBTTL

NP NDul,
-

TEST

DIFFERENTIA L

SEEK

TEST

1108088848000 888488884800400800808800840808480808888808080048000580004840000040400008

THIS TEST CONSISTS OF 3 SUBTESTS TO TEST
SYSTEM RESPONSE TO 3 UNIQUE DIFFERENTIAL

THE HEAD POSITIONER AND SERVO
SEEV PROFILES:

FORCES A SLEW RATE CHANGE BY SEEKING FROM CYL O TO S,
1. 6 CyL OIF SEEK:
629,
TO TEST THE POSITIONAL LOGIC.
2707, ... 624 710

TESYT

t 10

TEST MACRO vO4.00 1-DEC-83 12:59:38 PAGE 54

33 CrL DIF SEEK:

400 CyL DIF

FROM CYyL

ASSEMBLY,

32,

SEEK :

FORCED BY

230 TO 629.

WORST CASE SEEK OVERSHOOT TEST,
T0 33, 2 TO 34, ... 597 TO 629.

FORCED BY

SEEKING

FORCES MAX ACCELERATION AND DECELERATION OF CARRIAGE
SEEKING FROM CYL O TO 399, 1 TO 400, 2 TO 401,

1310080048888 840840880800884888448848880848840880484843400884484464004088000000b6008

027606
027606
027614
027622
027630

113737
113737
113737
113737

002220
002212
002222
002214

002600
002601

15::

002620

002621

MOVB
MOvB
MOVB
MOve

FS,0P8.8+10
F1,0PB8.8+11
LS.0P8.C+10
LT,OPB.C.11

sFIRAST

SEEK

THE

PAIR

SEEKS

READS

FS,

;SECOND SEEK OF THE PAIR OF SEEKS READS LS,

:6 CYL DIFF SEEK
027636
027642
027650
027650
027652
027652
027656
027656
0276690
027660
027662
027666
027666
027670
027674
027700
027706

005037
012737

002602
000005

TESTS:

002622

104402
004437

15.11:

014512

L10036:

104403

104402
004437

104403
005237
005237
023737
002361

T5.1:

15.2:
014674

002602
002622
002266

L10037:

CLR
MOV

0PB.8+12
95.,0PB.C+12

TRAP

csBsSuB

JSR

R4 ,CALL.8B

TRAP

CsESUB

TRAP

JSR

TRAP

INC
INC
cHP
8GE

002622

csB8suB

R4,CALL.C
C$ESUB

oPB8.8.12
OPB.C+12
NC1,0PB.Ce1 2
75.11

;:FIRST SEEK STARTS AT 0

:SECOND SEEK IS TO FIRST CYyL

+ S

;GO EXECUTE THE COMMAND

;G0 EXECUTE THE COMMAND
1NEXT CYL OF FIRST SEEK

sNEXT CYL OF SECOND SEEK

sREACHED LAST USER CYL ON SECOND(LAST?) SEEK?
tNOT

YET,

REPEAT ABOVE

SEQ UNTIL OUT OF

+33 CYL DIFF SEEK
027710
027714
027722
027722
027724
027724
027730
027730
027732
027732
027734
027740
027740

005037
012737

002602
000040

104402

004437

014512

104403
104402
004437

104403

002622

75.3:
75.31:

L10040:
15.4:

014674

L10041:

CLR
MOV

oPB8.B+12
e32.,0PB8.C» 12

TRAP

cs8sus

JSR

R4,CALL.B

TRAP

CsESUB

TRAP

cs8SuB

JSR

Ra,CALL.C

TRAP

CsESuUB

1FIRST

SEEK

STARTS

1 SECOND SEEK IS TO FIRST CyL

1GO0 EXECUTE THE COMMAND

360 EXECUTE THE COMMAND

32.

CrtL

CZRABO RPO7 FCTNL

TEST MACRO vO4.00

48 027742

005237

002602

S0 027752
gl 027760
2
gS

023737
002361

002266

TESYT

DIFFERENTIAL

027746

SEEX

005237

TEST

1 DEC-83

12:59:38 PAGE S54-1

002622

INC

oPB.B.12

sNEXT

CMP
8GE

NC1,0PB.C+12
15.31

;REACHED LAST USER CYL
sNOT YET, REPEAT ABOVE

INC

002622

5EGQ 0122

;400 CYL

oPB.C+12

DIFF

sNEXT

CYL

OF FIRST
OF

SECOND

SEEK

ON SECOND(LAST?)
SEQ@ UNTIL OUT OF

SEEK?
CrL

SEEK

5SS 027762
56 027766
57 027774
027774
S8 027776
027776
59 030002
030002
60 030004
030004
61 030006
62 030012
030012
63 030014
64 030020
65 030024
66 030032
67 030034
030034
030034

005037
012737

002602
000617

002622

104402

004437

15.51:

014512

L10042:

104403

104402
004437
104403
005237
005237
023737
002361

104401

15.5:

715.6:

014674
002602
002622
002266

L10043;

002622

EXITS:
L10035:

CLR
MOV

OoPB.B+12
0399, ,0PB.C+12

TRAP

csBSuB

JSR

R4,CALL.B

TRAP

CS$ESUB

TRAP
JSR

tFIRST SEEK STARTS AT O
;SECOND SEEK IS TO FIRST CvL

399,

;GO EXECUTE

THE

COMMAND

csesuB
R4 ,CALL.C

1GO EXECUTE

THE

COMMAND

TRAP
INC
INC
cMP
B8GE

CSESUB
OPB.B+12
DPB.C+12
NC1,0PB.C+12
15.51

sNEXT CYL OF FIRST SEEK
sNEXT CYL OF SECOND SEEK
sREACHED LAST USER CYL ON SECONDCLAST?)
;NOT YET, REPEAT ABOVE SEQ@ UNTIL OUT OF

TRAP

CS$ETST

SEEK?
CrL

CZRABO RPO7 FCTNL
6:

OO~
NE by

TEST

TEST MACRO v04.00
OSCILLATING SEEK TEST

DEC-83

12:59:38 PAGE

.SBTTL

TEST 6:

5EQ 0123

OSCILLATING SEEK

TEST

1060400088000 0004800000080000800000000000000000400080040400000480000000000480048488

.
i
]

THIS

TEST

MOVEMENT

PERFORMS
OF

THE

HEAD

SERIES

SEEK

OPERATIONS

T0O

CAUSE

OSCILLATING

POSITIONER.

1 0 8038 0 0 8400880080028308483488084088882400800888804000088048300800044800800808

030036

030044
030052
030060
030066
030074
030102
030102
030104
030104
030110
030110
030112
030112
030114
030120
030120
030122
030126
030132
030140
030142

030142
030142

113737

113737
113737
113737
013737
013737

002220
002212
002222
002214
002204
002206

002600

002601
002620
002621
002602
002622

104402
004437

104403
005237
005337
023737
002361

TEST6:

76.1:
76.11:

014512

L10045;

104403
104402
004437

16::

76.2:
014674
002602
002622
002622

L 10046

002204

MOVB

FS.0PB8.B+10

TRAP

csBSuUB

JSR

R4,CALL.B

TRAP

CsESUB

TRAP
JSR

csesuB
R4,CALL.C

TRAP
INC
DEC
cMP
B8GE

CS$ESUB
oPB.B.12
OPB.C+12
DPB.C+12,FC
76.11

TRAP

CSETST

MOVB
MOVB
MOVEB
MOV
MOV

FT,0PB.B+11
LS,0PB.C+10
LT.0PB.Cv11
FC,0PB.8+12
LC,0OPB.C+12

EXIT6:

104401

L10044:

:FS

FT
sLS
LT
iFC
iLC

:GO EXECUTE

THE

COMMAND

:1GO EXECUTE

THE

COMMAND

sUNTIL

CZRJLBO RPO7 FCTNL
TESTS

H10

12:59:38 PAGE 56

.SBTTL

Ve lo JENTo U, B NIR PN

TIMING

TEST MACRO v04.00 1 DEC-83

5EQ 0124

TIMING TESTS

1100800000 0000400000000000800000000000000080800008

1¢THE

TIMING

1sTIMEC

ARE

TESTS WILL

WITHIN

THE

ENSURE

THAT

TOLERANCES

THOSE

00000000000000000A0000000004048

FUNCTIONS BEING

SPECIFIED

THE

“RPO7

WILL

: *ENGINEERING SPECIFICATIONS”,
i#THE SEEK TIMING WILL BE PERFORMED USING EXPLICIT SEEK
i #OPERATIONS. AT THE COMPLETION OF EACH OF THE TIMING

soTESTS THE
;oTYPED, IF

.SBTTL

MINIMUM,

MAXIMUM

AND

TIMTYPs]1,

TEST

ROTATIONAL

AVERAGE

TIMES

SPEED TIMING TEST

3 ;““‘.“‘.““““““‘““““““‘.“““““““
‘.“0““

“““‘.‘0“““‘

THIS

TEST

FS.

AND

THE

ie
1s

TIMES THEN THE AVERAGE TIME IS CALCULATED AND CHECKED TO
ENSURE IT IS WITHIN TOLERANCE:

i s

WILL

START

SOON

CYLINOER

FC,

TRACK

FT,

AS THE INTERRUPT OCCURS, THE GO BIT IS SET
OPERATION IS TIMED.
THIS PROCEDURE IS REPEATED

16.515 MS/REV

SECTOR
AGAIN
10

3«

§10000800000088005000000488000808008000400808008880880

0440040000008800000000048

030144
030144
030150
030152
030154
030156
030162
030164

005737
003002
104432
001044
004437
000402
000137

030170

005005

030172
030176
030202
030206

030212
030216
030222
030226
030232
030234

38
39 030240
030244
030250
030254
030260
030262
40 030266
41 030274
42 030300
43 030306
44 030312
030312
45 030314

012703
012701
004737
004737

1s:

031172
2%:

002442
000012
015742
012364
000300
031032
012230
000003

012746
012746
013746
012746
104437
062706
013777
013746
113766
012677

TST

CLKSTA

TRAP

CS$EXIT

B8GT

015612

012746
012746
013746
012746
104437
062706

104402
005077

T7::

002260

TEST7:

L10047-,
R4, SRCHOO

;D0 A MASSBUS INIT & RECAL

JMP

EXIT?

tRETURN HERE

CLR
MOV
MOV

RS
¢T7A,R3
€10. ,R1

:COUNT UP
s TIMING LIMITS
s TIME 10 SEARCHES

PC,STOPCK

;STOP

B8R

JSR

PC,.STRTMR

MOV
MOV

OPRIO6, -(SP)
e17.78,-(SP)

MOV
TRAP

03, -(SP)
CS$SVEC

000000
015740
002654
000003

MOV
MOV
MOV

®PRIOO, -(SP)
@0O0RTI, -(SP)
RPVEC, -(SP)

000010
002204
002220
002212
152364

ADD
MOV

TRAP

C$SVEC

161704

ADD

152430

MOV

000001
T7.1:

T7.18:

;s YES--START TEST

.WORD
JSR

JSR

000010

;KW1l P CLOCK?

tRETURN HERE IF NO ERROR
IF ERROR

s INITIALIZE THE TIMERS
THE CLOCK

;SETUP VECTOR IN CASE OF CLOCK OVERFLOW

910,5P

010,5P
FC.8RPOC

;SETUP RHXX/RPO7 VECTOR

iFC

FS,-(SP)

sFS

MOVB

FT,1(SP)

(SP)+,8RPDA

sLOAD FT/FS

TRAP
CLR

csBSUB
OPKB

s+START COUNTING AT

MOV

sFT

ZERO

CZRJLBO RPO7 FCTNL
TEST

ROTATIONAL

46 030320
47 030326
48 030334
49 030336

50
51
52
53
54

S5
57

58
59
60

62
63

030342
030350
030354
030362
030364
030370
030374
030400
030406
030414
030420
030424
030426
030426
030430
030436
030440
030440
030444
030450
030452
030454
030460
030464
030470
030472
030474
030500

030504
65 030512
030520
67 030522
68 030530
69 030532
70 030540
71 030546
72 030552
73 030554
030554
030560
030564
030566
030570
74 030574
030600
030604
030606
030610
75 030614
76 030616
030616
77 030620

TEST MACRO vO4.00
SPEED TIMING TEST

012777
012777
000001
017746
042777
012677
032777
001516
004737
012702
004737
012777
013777
004737
004537
002630

104403
032737
001022

000131
000131

161664
000101
161650
040000
010750
002630
024644
000040
002630
011002
012766

12:59:38 PAGE

MOV
MOV

WAIT
MOV

161652

8IC

MOV

152320

B17
BEQ
JSR
MOV

JSR

152272
152264

MOV
MOV

L10050:

000210

002264

T7.108:

004511
000001

012737
012777
000001
032777
001433
012777
013777
005337
001357

000020
000131

002350
152150

040000

152152

000040
002630
002350

152140
152132

104402
005077

161674
152334

012746
012746
010600
104417
062706
012746
012746
010600
104417
062706
000137

012746
012746
010600
104417
062706
012746
012746
010600
104417
062706
000550

DEC

000004
004614
000001

000004

031136

004550
000001

T17.44%;
1%

T7.208:

s INT,EN.,

PKC, -(SP)
#101,8PKCS
(SP).,5PKB
481714,8RPDS

s SAVE THE CLOCK
:STOP THE CLOCK

T7.2%
PC,SAVREG
40TADPB,R2
PC, SVRHXX
@CLR,BRPCS2
DTADPB
, BRPCS2
PC .RESREG
RS ,ERRANY

MOV
MOV

WAIT

8IT
BEQ
MOV
MOV
DEC
BNE
MOV

MOV
TRAP
ADD

B8R

TRAP

CLR

T7.44%

COUNT UP AT

;START A SEARCH
sWAIT ON INTERRUPTY

:AND RESTORE

{ERROR?
:+NO - -BRANCH

THE

100KHZ

COUNTED

: $SAVE RO-RS

sMASSBUS

CLEAR

sSELECT DRIVE
;s sRESTORE RO-RS

:FIND OUT WHAT ERROR
;RETRY

+BRANCH IS SO

ALLOWED

e1,-(SP)
SP,RO
CSPNTF

€4, 5P
#ABOTST, -(SP)

SP,RO

CS$PNTF

04,5P

T7.8%

#16. ,WCEFLG
@SEARCH, 8RPCS1

oB8IT14,8RPDS
T77.2¢
OCLR,8RPCS2

DTADPB, 8RPCS2

YEEFLG

sRETRY 16 TIMES
sWAIT FOR INTERRUPT
sANY ERROR ?
sEXIT IF NONE

$sMASSBUS CLEAR
sORIVE ADDRESS
;OVER RETRY LIMIT ?
$BRANCH IF NOT

OSEABAD, -(SP)

SP,RO
CSPNTF

#4,SP
Q@ABOTST, -(SP)

SP,RO
CSPNTF
04 ,5P

T7.8¢

cs8sSuB
8PKB

VALUE

;OPB POINTER
:1SAVE ALL THE RHXX/RPO7 REGISTERS

OSEAERR, -(SP)

MOV
MOV

T17.2%:

0131,9PKCS

#SEARCH, 8RPCS1

MOV
MOV
MOV
TRAP
ADD
MOV
MOV
MOV
TRAP
ADD

TRAP
ADD

17.2:

5EQ 0125

CsESUB
0BIT3!BIT7,SVSTAT

MOV
MOV

000004

TRAP
BIT
BNE

JMP

000004
004614
000001

161400

JSR
JSR
DTADPB

110

tEXIT
1START

THE COUNT

AT ZERQ

CZRJLBO RPO7 FCTNL
TEST

ROTATIONAL

78
79
80
81
82
83
84

030624
030632
030640
030642
030646
030654
030660
85 030666
86 030670
030674
030700
030704
030712
030720
030724
030730
030732
020732
030734
030742
030744
030752
030760
030762
030770
030772
031000
031006
031012
031014

TEST

SPEED

012777
012777
000001
017746
042777
012677
032777
001453
004737
012702
004737
012777
013777
004737
004537
002630

104403
032737
001636
012737
012777
000001
032777
001412
012777
013777

005337
001357
000657

MACRO

v04.00
TIMING TEST

000131
000131

161360
000101
161344
040000

024644
000040
002630
011002
012766

012777
013777

MOV

WALY

161346

BIC

MOV

BIT

152014

BEQ
JSR
MOV
JSR
MOV
MOV

151766
151760

000020
000131

002350
151710

040000

151712

000040
002630
002350

012426

031132
031134
113 031136
031136
031144

MOV

002264

004737

031130

152036
161362

000210

031032

013777
016102
016237
116237
116237
004737
104456
000024
006201
007672

12:59:38

L10051:

016212

012777

002630

004737
005301
003444
000137

012700
104441
004737
012702
004737

DEC

010750

031016
031022
031024
031025

031036
031042
031044
031050
031054
031060
031066
031074
031100
031106
031114
031122
112 031126

030314
T7.7%:

000000

010750
002630
024644
000040
002630
000014
000036
000006
000007
011002

000040
002630

002276
002302
002300

151534
151526

17.8%:

#SEARCH, 8RPCS1
#131,aPKCS

aPKC,

(SP)

#101,3PKCS

(SP)+,aPKB
@BIT14,8RPDS
T7.38

PC,SAVREG

#0DTADPB,R2

PC, SVRHXX

oCLR,8RPCS2
DTADPB, 8RPCS2

5€EQ 0126

;START A SEARCH
;START THE CLOCK
tWAIT ON INTERRUPT

$SAVE THE CLOCK
1STOP THE CLOCK
$;AND RESTORE THE COUNTED VALWE

'IS

HERR.lu?

;NO - -BRANCH

: 1SAVE RO-RS
1DPB POINTER

$SAVE ALL

THE RHXX/RPO7 REGISTERS

$MASSBUS CLEAR
1 SELECT DRIVE
s sRESTORE RO-RS
:FIND OUT WHAT ERROR

CsESUB
;RETRY ALLOWED ?
OBIT3!BIT7,SVSTHT
17.10%
1BRANCH IF NOT, ABORT TEST
016. ,WCEFLG
sRETRY 16 TIMES
O@SEARCH, 8RPCS1
:START TO SEARCH

MOV
MOV
WAIT

oBIT14,8RPDS
T7.3¢

;s ANY

ERROR

;BRANCH IF NONE

OeC
BNE
BR

OCLR,8RPCS2
DTADPB,8RPCS2
WCEFLOG
18
T7.20%

JSR
DEC
BLE
JMP

PC,COUNT
R1
77.8¢
T7.1¢

;UPDATE THE COUNT
;OONE?

JSR

PC,FORSEC

tRESET

MOV
TRAP
JSR

CS$SPRI

MOV
JSR
MOV
MOV
MOV
MOV
MOVB
MOVe
JSR
TRAP
. WORD

151612
151604

J10O

TRAP

MOV
MOV

T7.3%:

PC,RESREG
R5,ERRANY

8I7
BEQ

151700
151672

JSR
JSR
DTADPB
8IT
BEQ

1¢:

PAGE

#PRIOO,RO

PC,SAVREG

#DTADPB,R2
PC, SVRHXX
O#CLR, BRPCS2

DTADPB, BRPCS2
14(R1),R2
36(R2),CYL.RD
6(R2),SEC.RD

7(R2), TRK.RD
PC,RESREG

CS$ERHRD
20

.WORD
. WORD

EM20
DH44

MOV
MOV

OCLR,8RPCS2
DTADPB,3RPCS2

+MASS BUS CLEAR

;LOAD THE DRIVE ADDRESS

sOECREMENT THE RETRY COUNT
822??CH IF NOT OVER THE LIMIT
H

;YES--GO TO THE EXIT

;NO,

LOOP

TIMER

TO 4

;OROP THE PRIORITY

SEC,

CHANGE CLK

3 1SAVE RO-RS
10PB POINTER
1SAVE ALL

THE RHXX/RPO7 REGISTERS

tMASSBUS CLEAR

1SELECT DRIVE
tADDRESS OF SAVED REGISTER TABLE
1GET CURRENT CYLINDER
1GET CURRENT SECTOR
$GET CURRENT TRACK
1 sRESTORE RO-RS

;CLEAR THE MASSBUS
;& SELECT DRIVE

SERVICE

CZRJULBO RPO7 FCTNL
TEST

ROTATIONAL

114 031152
115 031i56
031162
116 031164
117 031170
118 031172
119 031172
031176
031202
031206
031212
031214
120 031220
031220

TEST MACRO vO4.00

SPEED

TIMING

004737
004437
002442
004437
002512

012000
016504

013746
012746
013746
012746
104437
062706

002656
023046
002654
000003

104401

TEST

I<10
1-DEC-83

12:59:38 PAGE 56-3

016354
EXIT7:

000010
L10047;

JSR
JSR
T/A
JSR
SP7

PC,S5T.CLK
R4,TYPTIM

MOV
MOV
MGV
MOV
TRAP
ADD

RPVEC+2, -(SP)
@ISRV, -(SP)
RPVEC, -(SP)
03, -(SP)
C$SVeC
©10,SP

TRAP

CS$ETST

R4,SPTYP

5€EQ 0127
s INITIALIZE THE CLOCK
;GO TYPE THE TIMES
;POINTER
s TYPE THE SFECIFICATION VALUE
sSETUP RHXX/RPO7 VECTOR

CZRJLBO RPO7 FCTNL
8:

ONE

CYLINDER

SEEK

TIMING

TEST

1-DEC-83

OB
ND WM+

TEST

TEST MACRO v04.00

12:59:38 PAGE

.SBTTL

TEST 8:

L10O

SEQ G128

ONE CYLINDER SEEK

TIMING TEST

1060804880000 88000080080080000000400000400000008000808800884000000000080008080404

i
;e
L

THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE
CYLINDER BY ONE FROM FC
UNTIL THE INCREMENT IS GREATER THAN THE
CYLINDER 'LC’', THEN REVERSE SEEK TO CYLINDER 'FC'. DO IT TWICE.

EXCEED

THE

TIME

THE

TIME

PERFORM

MAXIMUM

MUST

EACH

TIME

LESS

SEEK

PERMITTED

CHECKED
FOR

TO
ONE

ENSURE

CYLINDER

THAN 4MS.

DOES

NOT

SEEK.

(1080080844800 080408000800040000004088000080808800004040040000080000804000000408

031222
031222
031226
031230
031232
031234
031240
031242
031244
031246
031252
031256
031264
031270
031272
031300
031300
031302
031306
031306
031310
031312
031316

005737
003002

000756
004437
000402
104432
000744
012703
005037
013737
005737
001407
012737
104402
004437

015612

1s:

002452

2$:
TEST8:

002256
002204
002204

002642

000105

002632

015056

000300
032022
012230
000003

031350
031354
031360
031364
031370
031372

012746
012746
013746
012746
104437
062706

000000
015740
002654
000003

TRAP
. WORD
JSR
BR
TRAP

CS$EXIT
L10052-.
R4, SRCHOO
2
CS$EXIT

.WORD
MOV
CLR
BEQ

.1:

78.5¢:

015742
012364

012746
012746
013746
012746
104437
062706

CLKSTR

MOV
TST

L10053:

104403

005005
004737
004737

TST

B8GT

104432

031322
031326
031332
031336
031342
031344

37
38 031376
031402
40 031410
41 031412
031412
42 031414

18::

002260

000010

MOV

TRAP

104402

005077

002642
002642

160604

002206

78.1%:

;00 A MASSBUS INIT.
iNO ERROR RETURN

L100S2-.
#TIMT10,R3

DOTWO
FC.DTADPB+12
FC
18.5%
OSEEK,DTADPB+2
csBsSuB

AND RECAL

;PARAMETER POINTER
;SET-UP FOR TWO ITERATIONS
;START WITH BEGINNING CYLINDER
;IF FC <> O
;ELSE SKIP
;THEN SEEK TO FC BEFORE TIMING PORTION OF

R4 ,DRVCAL

s SEEK TO FC

TRAP
CLR
JSR
JSR

CsESUB
RS
PC.STRTMR
PC.STOPCK

;SET THE UP/DOWN SWITCH TO UP
:INITIALIZE THE TIMERS
;STOP THE CLOCK

MOV
MOV
MOV
MOV

OPRIO6, -(SP)
918.7¢,-(SP)
PKV, -(SP)
03,-(SP)

TRAP
ADD

CS$SVEC
#10,5P

MOV

OPRIO0O, -(SP)

INC

OTADPB+12

TRAP

csBSUB

cMP
8GT

CLR

;SETUP VECTOR IN CASE OF CLOCK OVERFLOW

;SETUP RHXX/RPO7 VECTOR

SDORTI, -(SP)
RPVEC, -(SP)
#3,-(SP)
C#SVEC
€10,5P

$SEEK FORWARD:
005237
023737
003063

:YES--START TEST

JSR

MOV
MOV
MOV
TRAP
ADD

000010

;KW11-P CLOCK?

--> LC

OTADPB+12,LC
78.3%¢
8PKB

tMOVE

TO NEXT CYLINDER LP

sOUT OF CYLINDERS?
1 YES, GO SEEK REVERSE

;START THE COUNTER AT ZERO

TEST

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1 DEC 83
TEST 8: ONE CYLINDER SEEK TIMING TEST
43
44
45
46
47
48
49

031420
031426
031434
031442
031444
031450
031456
S0 031462
51 031470
Se 031472
031476
031502
031506
031514
031522
031526
031532
031534
031534
031536
031544
031546
031552
031556
031560
031564

013777
012777
012777
000001

017746
042777
012677
032777
001426
004737
012702
004737
012777
013777
004737
004537
002630

104403

032737
001075
004737
004737
000707
005337
012705

002642
000105
000131

160556

000101

160542
040000

010750
002620
024644
000040

002630

011002
012766

12:59:38 PAGE

151276
151234
160560

MOV
MOV
MOV

WAIT
MOV
8IC
MOV

160544

151212

BIT

151164
151156

L10054;

000040

002264

016212
012552

78.2%:

002642

78.3%:

177777

BEG
JSR
MOV
JSR
MOV
MOV
JSR
JSR
CTADPB

TRAP
8I7
BNE
JSR
JSR
8R
DEC
MOV

S57-1

83
85
86

005337
023737
002474

104402
005077
013777
012777
012777
000001
017746
042777
012677
032777
001437
004737
012702
004737
012777
013777
004737
004537
002630
104403
032737
001411

002642
002642

002204

78.4%:

78.3:

160412
002642
000105
000131

160364
000101
160350
040000
010750
002630
024644
002630
011002
012766

151104
151042
160366

DEC

cMP
BLT
TRAP
CLR
MOV
MOV

MOV
WALT

160352
151020

150772
150764

L10055:

002264
78.9%:

MOV
8IC
MOV
8IT
8EQ
JSR
MOV
JSR
MOV
MOV
JSR
JSR
OTADPB
TRAP

BIT
BEQ

SEQ 0129

OTADPB+12,8RPDC
OSEEK, BRPCS1

;LOAD DESIRED CYLINDER
;START A SEEK

IPKC, -(SP)
#101,8PKCS
(SP).,8PKB
481714 ,8RPDS
78.2%
PC.SAVREG
4DTADPB,R2

;GET THE CURRENT COUNT
;STOP THE CLOCK
;AND RESTORE THE VALUE
;ANY DISK ERRORS?
;i NO - -BRANCH
: s SAVE RO-RS
;OPB POINTER

0131,89PKCS

PC.,SVRHXX

oCLR,8RPCS2
DTADPB, 8RPCS2
PC.RESREG
RS ,ERRANY

;START THE CLOCK
;WAIT ON INTERRUPT

1SAVE ALL THE RHXX/RPO7 REGISTERS
sMASSBUS CLEAR
sSELECT DRIVE
: sRESTORE RO-RS
sFIND OUT WHAT ERROR

CSESLB
OBITS,SVSTAT
18.9%

;POSITION ERROR?
;s YES, ABORT TEST

PC., TWOMS

;STALL TWO MILLISECONDS

PC,COUNT

78.1%
DTADPB+12
vC

<--

OTADPB+12
DTADPB+12,FC
78.6%

csBSuUB

8PKB
OTADPB+12,8RPOC
OSEEK, 8RPCS1
#131,8PKCS

8PKC, -(SP)

€101, 8PKCS

(SP)+,8PKB
o81T14,8RPDS

78.10¢
PC,SAVREG
40TADPB ,R2
PC, SYRHXX

#CLR,8RPCS2
DTADPB,B8RPCS2

PC.RESREG
R5,ERRANY

C$ESUB
OBITS,SVSTAT
78.10¢

;COUNT

THIS

SEEKS

TIME

;LOOP, SEEK FORWARD
;:MOVE TO NEXT CYLINDER DOWN
$SET UP/DOWN SWITCH TO DOWN

#-1,RS

1 SEEK REVERSE::
031570
031574
031602
031604
031604
031605
031612
031620
031626
031634
031636
031642
031650
031654
031662
031664
031670
031674
031700
031706
031714
031720
031724
031726
031726
031730
031736
031740

MLO

tMOVE TO NEXT CYLINDER DOWN

;:OUT OF CYLINDERS?

;:YES,

EXIT LOOP

sSTART THE COUNTER AT ZERO
;LOAD DESIRED CYLINDER
:START A SEEK
$1START

THE CLOCK

sWAIT ON INTERRUPT
iGET THE CURRENT COUNT
sSTOP THE CLOCK
$AND RESTORE THE VALUE
s ANY DISK ERRORS?
$ NO- -BRANCH
+ 1SAVE RO-RS

1DPB POINTER
1SAVE ALL THE RHXX/RPO7 REGISTERS
sMASSBUS CLEAR

sSELECT DRIVE
1 tRESTORE RO-RS
stFIND OUT WHAT ERROR

+POSITION ERROR?
tNO, CONTINUE

CZRJLBO RPO7 FCTNL
TEST 8:

87
88
89
92
93
95

ONE

TEST MACRO VO4.00 1-DEC-83
CYLINDER SEEK TIMING TEST

031740
031744
031750
031752
031754
031760
031762
031766
031772
031774
032000
032004
032006
032014
032016

97
98 032022

100 032026
032032
101 032034
032040
032044
032050
032056
032064
032070
032076
032104
032112

102 032116
032120
103
104
105

032122
032124
032126
032126
032134
032142
032146
032152
032154

106
107 032160
108
109 032162
032166
032172
032176
032202
032204
110 032210
032210

012746
012746
010600

104417
062706
000462
004737
004737
000676
005237

004633
000001

016212
012552

78.10%:

002642
002256

78.6%:

031376

004737

012426

012700

000000

104441
004737

012702
004737
012777
013777
016102
016237
116237
116237
004737

MOV
MOV
MOV
TRAP
ADD

000004

005737
100450
012737
005005
000137

177777

010750
002630
024644
000040
002630
000014

N1O

12:59:38 PAGE 57 2

002256

002276
002302
002300

(spP)

SP,RO

CSPNTF
#4,SP

78.84
PC,COUNT
PC, TWOMS
18.44

CLR
JMP

1 SEEK FORWARD AGAIN
sNOW! ¢!

JSR

PC,FORSEC

{RESET TIMER TO 4 SEC, CHANGE CLK SERVICE AD
;:OROP THE PRIORITY

MOV
TRAP
JSR
MOV
JSR
MOV
MOV
MOV

150622
150614

o1, -(SP)

BR
JSR
JSR
B8R
INC
TST
8MI

MOV

78.7%:

#POSERR,

SEG 0130

DTADPB+12
DOTWO
78.8%

78.1%

OPRIOO,RO

CS$SPRI

PC,SAVREG

00TADPB,R2

PC. SVRHXX

@CLR,8RPCS2
DTADPB, 8RPCS2
14(R1),R2
36(R2),CYL.RD
6(R2),SEC.RD

7(R2),TRK.RD
PC,RESREG

104456

CS$ERMRD
20

000024
006201
007672

tMARK

THE FIRST

ITERATION

: $SAVE RO-RS
:OPB POINTER
:SAVE ALL THE RHXX/RPO7 REGISTERS
sMASSBUS CLEAR
:SELECT DRIVE
+ADDRESS OF SAVED REGISTER TABLE
$GET CURRENT CYLINDER
:GET CURRENT SECTOR
:GET CURRENT TRACK
: sRESTORE RO-RS

EM20

78.8%:

OHa4

012777
013777
004737
004437
002452
004437
002520

000040
002630
012000
016504

016354

R4,SPTYP

013746
012746
013746
012746
104437
062706

002656
023046
002654
000003

RPVEC+2, -(SP)
#ISRV, -(SP)
RPVEC, -(SP*

104401

sCOUNT THIS SEEKS TIME
:STALL TWO MILLISECONDS
:LOOP, SEEK REVERSE
:MOVE TO NEXT CYLINDER
:DONE TWICE?
+ IF MINUS, YES...

150544
150536

@CLR,8RPCS2
DTADPB, 8RPCS2
PC,ST.CLK
R4, TYPTIM

CsSvr

000010
L100S2:

ell,sP

CS$ETST

;CLEAR THE MASSBUS
1€ SELECT DRIVE
s INITIALIZE THE CLOCK
:1GO TYPE THE TIMES
:POINTER
1SETUP RHXX/RPO7 VECTOR

)

CZRABO RPO7 FCTNL
TEST

AVERAGE

TEST MACRO v04.00 1 DEC-83 12:59:38 PAGE 58

SEEK

TIME

MEASUREMENT

;

10
11

:
;
:

SEEK

TIME

MEASUREMENT

TEST

THIS

TEST

..‘00‘....‘0.

WILL

MEASURE

THE

AVERAGE

SEEK

TIME

(AVG)®

[

<non

(TL

629)

(T2

628)

(T3

SRS

629 X 629

WHERE:

FOLLOWS:

627)

+....+

(T629

ceos

1))

THE TN IS THE MEASURED TIME INTERVAL FOR SEEKING FROM
CYLINDER O TO CYLINDER N OR FROM CYL N TO CYL O,
2X629 IS THE TOTAL NUMBER OF SEEKS.

‘.....“.

15 032212

16 032212
17 032216
18 032220
032222
19 032224
20 032230
21 032232
032238
22 032236
23 032242
24 032246
25 032252
26
27 032256
032262
032266
032272
032276
032300

012746
0ic.46
C13746
012746
104437
062706

000300
032710
012230
000003

29 032304
032310
032314

012746
012746
013746

37
38
39
40
41
42
43

AVERAGE

3 ;.“.“‘......“.““..‘...“...“‘.““‘...‘...‘.“‘.‘...‘“.‘.““.

35
36

33
34

TEST

H ;.‘.“‘00“0...“.“‘0...“0‘.0.0‘...0..“.“.‘
.“..‘00‘.0“...0.

30
31
32

3EQ 6131

TEST

.S8TNL

»,

B11

032320
032324
032326
032332
032336
032342
032350
032354
032354
032356
032364
032372
032378
032400

032406
032412
032420
032422

032426

005737
003002
104432
000702
004437
000402
104432
000670
012703
013701
004737
004737

012746
104437
062706
005037
005237
013777
005077

104402
012777
012777

000001
017746
042777

19::

002260

151
8GT
TRAP
.WORD
JSR
BR
TRAP
.WORD
MOV
MOV
JSR
JSR

CLKSTA
1
CSEXIT
L10056 .
R4 , SRCHOO
28
CSEXIT
L10056 .
OTIMT11.R3
NC1.R1
PC.STRTMR
PC.STOPCK

000010

MOV
MOV
MOV
MOV
TRAP
ADD

OPRIVG. -(SP)
019.7¢.-(SP)
PRV, -(SP)
03, -(SP)
C$SVEC
010.5P

000000
015740
002658

MOV
MOV
MOV

OPRIO0O, -(SP)
®DORTI. (SP)
RPVEC, -(SP)

015612

18:

002462
002266
015742
012364

28
TEST9:

000003

000010
033126
033126
033126
157650

150354

T9.18:
19.1:

000105
000131
157626
000101

012677
032777
001426
004737

157612
043000

012702

002530

010750

150304
157630
157614
150262

MOV
TRAP
ADD
CLR
INC
MOV
CLR

03, -(SP)
C$SVEC
010, 5P
INCCYL
INCCYL
INCCYL . 8RPDC
2PKB

TRAP
MOV
MOV

CsBSUB
#SEEK, BRPCS1
0131, 8PKCS

WALT
MOV
8IC
MOV
8IT
BEQ
JSR

MOV

8PKC, -(SP)
0101 .8PKCS

(SP)+,BPKB
e8IT14,8RPDS
19.24
PC.SAVREG

*0TADPB, R2

iKW11-P CLOCK?
1YES--START TEST

;D0 A MASSBUS INIT £ RECAL
iRETURN HERE IF NO ERROR
;PARAMETER POINTER
;COUNT AND COEFF ICIENT
sINIT. THE COUNTERS
1STOP THE CLOCK
sSETUP VL. DR IN CASE OF

CLOCK OVERFLOW

{SETUP RHXX/RPO7? VECTOR

tINITIALIZE THE SEEK CYLINDER ADORESS
s INCREMENT THE SEEK CYLINODER ADDRESS
1SEEK ADDRESS
;START COUNT AT

ZERO

{START A SEEK
1START THE CLOCK

JWAIT ON INTERRUPT
1STORE THE COUNTED VALUE
1STOP CLOCK
;AND RESTORE

;ERR=1?
1NO - -BRANCH
1 1SAVE RO-RS

;0P8 POINTER

THE

COUNT

CZRBO RPO” FCTNL TEST MACRO v04.00 1 DEC 83
TEST 9. AVERAGE SEEK TIME MEASUREMENT TEST

65
67
68
69

70
71
72
73
74
75

032432
032436
032444
032452
032456
032462
032464
032464
032466
032474
032476
032500
032504
032510
032510
032512
032516
032524
032532
032540
032542
032546
032554
032560
032566
032570
032574
032600
032604
032612
032620
032624
032630
032632
032632
032634
032642
032644
032644
032650
032654
032656
032660
032664
032666
032672
032676
032702
032704
032706

76
77
78 032710
79

032714
032720
81 032722
032726

004737
012777
013777
004737
004537
002630

104403
032737
001063
005005
004737
004737
104402
005077
012777
012777
012777
000001
017746
042777
012677
032777
001437
004737
012702
004737
012777
013777
004737
004537
002630

024644
000040

002630

011002
012766

104417
062706
000466

JSR

150254
150226

MOV

L10057;
000040

002264
19.2%:

016012
012552
79.2:

157506

000000
000105
000131

157460
000101
157444
040000
010750
002630
024644
000040
002630
011002
012766

150200
150136
157462

004633
000001

19.4%:

000004

TRAP

csBsuB

aPKB
40, 8RPDC

QSEEK,8RPCS1

0131,8PKCS

8PKC, -(SP)
€101, 8PKCS
(SP).,8PKB
e81T714,3RPDS
79.3%

;YES,

ABORT

TEST

1SET UP/DOWN SWITCH TO WP
sUPDATE THE COUNT
s STALL 2 MSEC

;START THE COUNT AT ZERO

sALWAYS

SEEK

BACK

$START A SEEK
sSTART THE CLOCK
;WAIT ON

THE

FIRST

CYLINDER

INTERRUPT

;SAVE THE CLOCK VALUE
sSTOP THE CLOCK
sNOW RESTORE
;ERR=17?

THE

VALUE

JSR
MOV
MOV

PC, SVRHXX

oCLR,8RPCS2
DTADPB,8RPCS2

JSR
DTADP8

RS, ERRANY

sFIND OUT WHAT ERROR

TRAP

8IT
8EQ

PC,SAVREG

0DTADPB,R2

PC,RESREG

CsESUB
081I75,S5VSTAT
79.3¢

MOV
MOV
MOV
TRAP
ADD
B8R
MOV
JSR
JSR
DEC
B8GT
B8R

R1
719.1%
19.8%

JSR

PC,.FORSEC

177777
016012
012552

004737

012426

012700
104441
004737
012792

000000

MOV

010750
002630

MOV

19,.7%:

19.44
RS
PC,COUNT2
PC, TWOMS

:NO - -BRANCH
1 $SAVE RO RS
1OPB POINTER
$SAVE ALL THE RHXX/RPO7 REGISTERS
1MASSBUS CLEAR
$SELECT DRIVE

012705
004737
004737
00530%
003214
000455

79.3%:

THE RHXX/RPO7 REGISTERS

CLEAR

:POSITION ERROR?

JSR

002264

DTADPB, 8RPCS2

$§SAVE ALL

1MASSBUS

CsESUB
oBITS,SVSTAT

MOV

150066

PC, SVRHXX
#CLR,3RPCS2

%EQ 0132

TRAP

BIT
BNE
CLR
JSR
JSR

eIC
MOV
BIT
8EQ
JSR

150060

Cll

$SELECT DRIVE
$ sRESTORE RO-R5
:F INDOUT WHAT ERROR

WALT
MOV

150i:4

PC,RESREG
S ,.ERRANY

MOV
MOV

157446

JSR
JSR
OTADPB

CLR
MOV

L10060:

104403
032737
001411

012746
012746
010600

12:59:38 PAGE

TRAP

JSR

s sRESTORE RO-RS

;:POSITION ERROR?

i1NO,

CONTINUE

OPOSERR, -(SP)

SP,RO
CSPNTF

04,5P
19.84
#-1,RS5
PC.COUNT?

PC, TWOMS

OPRIOO,RO

CS$SPRI

PC,SAVREG

00DTADPB,R2

;SET UP/DOWN SWITCH TO DOWN
1UPDATE THE COUNT

iSTALL 2 MSEC

?
s OONE
i1NO - -BRANCH
s YES--EXIT

tRESET TIMER TO 4 SEC,
1OROP THE PRIORITY

1 1SAVE RO-RS
;OPB POINTER

CHANGE CTiLK SERVICE AD

CZRJLBO RPO7 FCTNL
TEST

SEEK

032732
032736
032744
032752

004737
012777
013777
016102
016237
116237
116237
004737

032756
032764
032772

033000

82
83 033004
033010
033014
033020
033024
033026
033032
033034
033036
033040
85 033042
033042
033050
033056
87 033062
033066
88 033070
89 033074
91

TEST

AVERAGE

033076
033102
033106
033112
033116
033120
92 033124
033124
93
94 033126

MACRO v04.00

TIME MEASUREMENT
024644
000040

002630
000014
000036
000006
000007
011002

013746
012746
013746
012746
104437
062706
104456
000024
006201
007672

002656
023046
002654
000003

012777
013777
004737
004437
002462

000040
002630

12:59:3%8

147734
147726
002276
002302
002300

012000
016504

013746
012746
013746
012746
104437
062706

002656
023046
002654
000003

PC., SVRHXX
OCLR,aIRPCS2

MOV
MOV
MOV
MOvB
MOvVB

DTADPB,aRPCS?
14(R1),R2
36(R2),CYL.RD
6(R2),SEC.RD

JSR
MOV
MOV
MOV
MOV
TRAP

ADD

147630
147622

PAGE

JOR

MOV

TRAP

016354

000000

5€EQ 0133

TEST

000010

004437
002526

104401

DEC

19.8%:

L10056:

INCCYL

RPVEC.2, -(SP)
@ISRV, ( SP)
RPVEC, ( SP)
@3, -(SP)

ALL

THE RHXX/RPO7 REGISTERS

tMASSBUS CLEAR
:SELECT DRIVE
;:ADDRESS OF SAVED REGISIER TABLE
tGET CURRENT CYLINDER
1GET CURRENT SECTOR
sGET CURRENT TRACK
; sRESTORE RO-RS
;SETUP RHXX/RPO7 VECTOR

Cs$SVEC

910,5P

CS$ERMRD

.WORD
. WORD
. WORD

20
EM20

MOV
MOV
JSR
JSR
TIMT11
JSR
SP11

oCLR,8RPCS2
OTADPB,8RPCS2

MOV
MOV
MOV
MOV

000010

7(R2),TRK
. RD
PC,RESREG

$SAVE

DHa4

PC,ST.CLK
R4,TYPTIM

R4 ,SPTYP

RPVEC.2, -(SP)

;CLEAR THE MASSBUS
s€ SELECT DRIVE
s INITIALIZE THE CLOCK
;GO TYPE THE TIMES
sPOINTER
;SETUP RHXX/RPO7 VECTOR

QISRV, -(SP)

TRAP
ADD

C$SVEC

TRAP

CSETST

. WORD

210,5P

;CYL ADR COUNTER

CZRJULBO RPO7 FCTNL
TEST

10:

MAXIMUM

TEST MACRO v04.00 1 DEC 83

SEEK

TIMING

TEST

Ell

12:59:38 PAGE 59

LSBTTL

TEST

10:

S5EG (134

MAXIMUM

SEEK

TIMING

TEST

130800080000 8000000400000000088000088008004000000800000800008000808080000008000000048

CYLINDER

THEY

WITHIN

1 »

T
R

005737

17 033136
033140
18 033142
19 033146
20 0331S0
033152

104432
000642
004437
000402
104432
000630

21
22
23
24
25
26

033154
033160
033164
033170

033174
033200
033204
033210
033214
033216

27
28 033222
033226
033232
033236
033242
0332484
29 033250
033250
30 033252
31 033256
32 033264
33 033272
34 033300
35 033302
36 033306

003002

TOTAL

COMMAND

SEEKS

THE

THIS SEQUENCE
OF

1024

A FORWARD

SEEK FROM CYLINDER

THEN A REVERSE SEEK FROM CYLINDER

BOTH

46 MS,
'LC'
FOR RPOT7'S.

ARE

TIMED

TOLERANCE

AND

ALLOWED

IS REPEATED S12

SEEKS).,

DEFAWTS

012703
012701
004737
004737

002472
001000
015742
012364

2s:
TEST10:

012746
012746
013746
012746
104437
062706

000300
033614
012230
000003

012746
012746
013746
012746
104437
062706

000000
015740
002654
000003

104402
005077
013777
012777
012777

000001
017746
042777

40 033330

004737

001426

012702
004737
012777
013777

000010

7T10.1:

156746
002206
000105
000131

147440
147376
156722

156720
000101

156706

156704
040000

147354

010750

002630
024644
000040
002630

TS7

CLKSTA

TRAP
. WORD
JSR
B8R
TRAP
. WORD

CS$EXIT
L10061 .
R4, SRCHOO
24
CSEXIT
L10061-.

8GT

1$:

012677
032777

033334
033340
033344
033352

T10::

002260

015612

37 033314
38 033320

39 033326

TIME.

ARE

'LC’',

THE

T0 629

MAXIMUM

(10)

‘LC'

CHECKED

TO ENSURE

FOR

THE

MAXIMUM

SEEK

TIME

MUST

TIMES

(FOR

SEEK

LESS

THAN

1i80066000000800800000000000008000868000000480000084008000000406000044404800000080088

13
14 033130
15 033130
16 033134

WILL

8
i
11

TEST

CYLINDER

THIS

147326
147320

T10.18:

MOV
MOV
JSR
JSR

OTIMT12,R3
#512. ,R1
PC.STRTMR
PC,STOPCK

MOV
MOV
MOV
MOV
TRAP
ADD

#PRIO6, (SP)
€710.7%,-(SP)
PKV, -(SP)
03, -(SP)
C$SVEC
#10,5P

MOV
MOV
ta[01")
MOV
TRAP
ADD

O®PRI0O, -(SP)
O00RTI, -(SP)
RPVEC, -(SP)
03,-(SP)
CS$SVEC
€10,SP

TRAP
CLR
MOV
MOV
MOV
WAIT
MOV
8IC

csBSUB
aPKB
LC,8RPDC
#SEEK, 8RPCS1
0131,8PKCS

8PKC, -(SP)
€101,8PKCS

;KW11-P CLOCK

;:YES

-START

t+D0 A MASSBUS INIT & RECAL
sRETURN HERE IF NO ERROR
sPARAMETER POINTER
;REPEAT “0-'LC’'
-0' S12

;INIT. THE TIMERS
;STOP THE CLOCK
;SETUP VECTOR IN CASE

JSR

PC,SAVREG

1 1SAVE RO-RS

QOTADPB ,R2
PC, SVRHXX
OCLR,8RPCS2
DTADPB,8RPCS2

CLOCK

OVERFLOW

1STOP THE CLOCK

$AND RESTORE
1ERR=17

MOV
JSR
MOV
MOV

;START COUNTING FROM ZERO
sMAXIMUM CYLINDER
1START A SEEK
;START THE CLOCK
tWAIT ON INTERRUPT
s SAVE THE CLOCK

(SP)+,8PKB
#BIT14,8RPDS

7T10.2¢

TIMES

;SETUP RHXX/RPQ? VECTOR

MOV
BIT

BEQ

TeST

THE COUNTED

VALUE

$1NO - -BRANCH

1OPB POINTER

$1SAVE ALL THE RHXX/RPO7 REGISTERS
1MASSBUS CLEAR
s SELECT DRIVE

-r

CZRJLBO RPO7 FCTNL
TEST

10:

42
43

44
45
46
47
48
49

50
31
52
53
54
S5
56
57
58
59
60

65
66

67
68
69
70
71
72

73
74

MAXTIMUM

033360
033364
033370
033372
033372
033374
033402
033404
033406
033412
033416
033416
033420
033424
033430
033436
033444
033446
033452
033460
033464
033472
033474
033500
033504
033510
033516
033524
033530
033534
033536
033536
033540
033546
033550
033550
033554
033560
033562
033564
033570
033572
033576
033602
033606
033610
033612

75 033614
76
77 033620

033624
78 033626
033632
033636
033642
033650

TEST

SEEK

004737
004537
002630

104403
032737
001062
005005
004737
004737

104402
005077
005077
012777
012777
000001
017746
042777
012677
032777
001437
004737
012702
004737
012777
013777
004737
004537
002630

MACRO

TIMING

VO4.00

DEC

12:99:38

PAGE

S59-1

11
5EQ 613%

TEST

011002
012766
L10062:

000040

002264
110.2%:

016212
012552

T10.2:

156600

147274
000105
000131

156554
000101
156540
040000
010750
002630
024644
000040
002630
011002
012766

147232
156556

004633
000001

004737

012426

156542

s sRESTORE RO RS
;FIND OUT WHAT ERROR

TRAP

CsESUB
481ITS5,SVSTAT
T10.4¢

sPOSITION ERROR?

81T
BNE
CLR
JSR
JSR
TRAP

BIC

MOV

147210

147162
147154

8IT
8EQ
JSR
MOV
JSR
MOV
MOV
JSR
JSR
DTADPB
TRAP

T10.4%;

BIT
BEQ

MOV
MOV

MOV
TRAP
ADD

000004

177777

T10.3%;

016212
012552

T10.7¢:

000000
010750
002630
024644
000040
002630

PC,RESREG
RS,ERRANY

MOV
MOV
WAIT
MOV

002264

012746
012746
010600
104417
062706
000453
012705
004737
004737
005301
003220
000442

JSR
JSR
DTADPB

CLR
CLR

L10063:;

104403
032737
001411

012700
104441
004737
012702
004737
012777
013777

147030
147022

RS
PC,COUNT
PC. TWOMS

csssuB
8PKB
8RPDC

ASEEK,3RP(CS1
@131,8PKCS

OPKC, (SP)
2101,8PKCS
(SP).,aPKB
MB8IT14,8RPDS
T10.3%

PC,SAVREG

SDTADPB ,R2

PC,SVRHXX

OCLR,8RP(CS2
DTADPB, BRPCS2

PC,RESREG
RS, ERRANY

CsESUB
MBITS5,SVSTAT
T10.3¢

TEST

;STALL FOR

TWO MILLISEC

sSTART COUNT

ZERO

;BEGINNING CYLINDER IS O
;START A SEEK
sSTART
sWAIT

THE

CLOCK

INTERRUPT

1 SAVE THE CLOCK
1STOP THE CLOCK
sNOW RESTORE

; "ERR"=1?
+NO - -BRANCH
3 :SAVE RO-RS
;0OPB POINTER
;SAVE ALL

CLOCK

THE RHXX/RPO7 REGISTERS

:MASSBUS CLEAR
1SELECT DRIVE
;s tRESTORE RO-RS
sFIND OUT WHAT ERROR

;POSITION ERROR?
:NO, CONTINUE

SP,RO
CIPNTF

04,5P
710.8%
€-1,RS
PC,COUNT
PC. TWOMS
R1
T10.1%
T10.8%

JSR

PC,FORSEC

MOV

ABORT

OPOSERR,
(SP)

B8R
MOV
JSR
JSR
OEC
BGT
BR

MOV
TRAP
JSR
MOV
JSR
MOV

$YES,

;SET THE UP/DOWN SWITCH T0 wP
;UP THE COUNT

OPRIOO,RO

CS$SPRI

PC,SAVREG

9DTADPB,R2

PC, SVRHXX

#CLR, 8RPCS2

DTADPB,aRPCS2

sSET THE UP/DOWN SWITCH TO DOWN
sUPDATE THE COUNT

sSTALL FOR TWO MILLISEC

?
sOONE

$NO - -BRANCH
IYES--EXIT
+RESET

TIMER

TO 4

;OROP THE PRIORITY

SEC,

CHANGE

CLK

t $SAVE RO-RS

;0P8 POINTER
$;SAVE ALL

+MASSBUS

THE RHXX/RPO7 REGISTERS

CLEAR

s SELECT DRIVE

SERVICE

CZRJLBO RPO7 FCTNL TEST MACRO v04.00
TEST 10: MAXIMUM SEEK TIMING TEST
033656

032662

033670
033676
033704
033710
033712
033714
033716
033720
033720
033726
033734
033740
033744
033746
033752

84
85
86 033754

033760
033764

033770
033774
033776

87 034002
034002

016102

016237
116237
116237
004737
104456

000014
000036
000006
000007
011002

000040
002630
012000
016504

013746
012746
013746
012746
104437
062706

002656
023046
002654
000003

104401

12:59:38 PAGE

MOV
MOV

002276
002302
002300

000024
006201
007672
012777
013777
004737
004437
002472
004437
002534

DEC-83

146752
146744

110.8¢4:

000010

L10061:

14(R1),R2
36(R2),CvL.RD

MOVB
MOvVB

6(R2),SEC.RD

TRAP

CS$ERHRD

JSR

7(R2), TRK.RD
PC,RESREG

. WORD
.WORD
.WORD

20
EM20
DHa4

MOV
MOV
JSR
JSR
TIMT12

016354

59 2

4CLR,aRPCS2

DTADPB, aRPCS2

PC,ST.CLK
R4, TYPTIM

JSR
SP12

R4,SPTYP

MOV
MOV
MOV
MOV
TRAP

RPVEC.2, -(SP)
@ISRV, -(SP)
RPVEC, -(SP)
03, -(SP)

ADD

TRAP

C$SVEC

#10,5P

CS$ETST

5EG G136

; ADDRESS OF SAVED REGISTER TABLE
sGET CURRENT CYLINDER
;GET CURRENT SECTOR
$1GET CURRENT TRACK

;s sRESTORE

RO RS

;CLEAR THE MASSBUS
+& SELECT DRIVE
s INITIALIZE THE CLOCK
;GO

TYPE

:POINTER

THE

TIMES

;SETUP RHXX/RPO7 VECTOR

CZRJLBO RPO7 FCTNL

SEEK

TEST

.SBTTL

W
W

Abbbbuuugug
SUWNHOOB®IOWN

¥
¥
¥
¥
VIV

034004
034004
034010
034014
034022
034030
034036
034044
034052
034060
034066
034074
034100
034100
034102
034102
034106
034112
034114
034120
034126
034134

034136
034142
034146
034154
034154
034156
034162
034166
034172
034174
034200
034202
034206
034206

TEST

11:

MID

SEQG 0137

TRANStER SEEK

TEST

JI0000800000000000008000808000080000000000000004

1 THIS TEST EXECUTES READ-DATA COMMMANDS
{FIRST(STARTING) CYLINDER.

:THE FULL

i
:

TRACK

TRANSFER

1ST PASS,
2ND PASS,

IS MADE

SECTORS:
SECTORS:

00.
25.

: THE PARAMETERS:

00000000000000080800800000000040

TO EVERY

TRACK

THE

IN 2 PASSES:

THRU 24.
THRU (49.

STARTING CYLINDER

= FC

H
:
:

ENDING TRACK
INCREMENT TRACK
STARTING SECTOR

= LT
=1
=0

NN
PN 2 1t [
b s ot pt pot pod bt po

gcggfigg-qgaghwnmr‘Ouom ANBUWNNFFE OO NN B WM -

TRANSFER

12:59:78 PAGE 60

+1)

MID

11:

Nr-guom-umtn

TEST

TEST MACRO v04.00 1 DEC 83

STARTING

TRACK

;3“‘““"‘.““““““““““““““““““‘“‘

t““‘“‘.“.0“‘.““““

004737
004737

113737
112737
013737
012737
112737
113737
013737

012737
005037

020400
012364
002664
000171
002354
042762
000000
002212
002204
002754
002256

T11::

002630
002632
002634
002636
002640
002641
002642
002644

104402

004437
005737
100411
005337
112737
062737
000762

005037
105037
162737

104403
113702
063702

023702

101403
110237
000740
004737
104401

002256
002640
177400
002641
002216
002214

JSR

MOvB

11.1:

002634

TRKWC ,DTADPB+4
O0BUFF ,DTADPB+6
€0,0TADPB+10

;ASSUME HALF FULL
;BUFFER ADDRESS
;SECTOR ADDR

MOV

FC,.DTADPB+12

MOV
CLR

TRAP

JSR
8MI
DEC

MOVB
ADD

ORDDAT ,DTADPB 2

FT,DTADPB+11

OREG,DTADPB+14
00TWO

ADDRESS

;READ-DATA COMMAND

;s TRACK

TRACK

ADDR

sCYLINDER ADDRESS

;RHXX/RPO7 REGISTER
;sRESET 2 ITERATIONS CONTROL

cs8SuB

R4 ,DRVCAL

00TWO
2
00TWO

;START A DATA TRANSFZIR

;DOONE HALF TRACK TWICE?

s YES, EXIT 2 ITERATIONS LOOP
tNO, MARK 2ND ITERATION

025. ,DTADPB+10
0-256. ,DTADPB+4

;TFR 2ND HALF OF TRACK
;YES, SET WC FOR 2ND HALF

TRACK

1%:

B8R

28:

CLR
CLRB

DOTWO
OTADPB+10

tRESET PARAMETERS FOR 1ST LOOP
;RESTART AT SECTOR O

TRAP
MOVB
ADD

CS$ESUB
DTADPB+11,R2
IT,R2

tUPDATE THE TRACK ADDRESS
$ADD THE DESIRED TRACK NUMBER

L1006S:
T11.5¢:

sSuB

cMP
8LOS

002641
020400

THE SUB-SYSTEM

MOV
MOV
MOVB

I1ST

002640
002634

sINITIALIZE

;STOP THE CLOCK

sORIVE

MOVS

PC,RPINIT

PC,.STOPCV.

DRVNO,DTADPB

MOvVB

T11.2%:

015056
002256
002256
000031
177400

JSR

MOvVB

EXIT11:
L10064:

B8R

T11.2¢

9-256. ,DTADPB+4

LT.R2
EXIT11

R2,0TADPB+11

T11.2%

JUSR

PC,RPINIT

TRAP

CSETST

sLOOP TO TFR 2ND MALF TTRACK

;WC FOR 1ST HALF TRACK

;OVER THE TRACK LIMIT?
$BRANCH IF SO

: 7O NEXT TRACK

;LOOP BACK

SECTOR

1-DEC-83

[FoXo JENE NV, R - W

VE )

CZRJLBO RPO7 FCTNL TEST MACRO v04.00
TEST 12: ERROR REGISTER BIT TEST

LSBTTL

12:

SEQ 0138

ERROR REGISTER BIT

TEST

THIS TEST FORCES LBT
MICRO DIAGNOSTICS

LBT,ACE:

READ

AOE

THE LAST

ERROR BITS

USER

THAT

ARE

NOT

FULLY

SECTOR WITH A WORD COUNT

CHECKED BY

THE

>256.

(1008800000000 800000000808040008000800000008080080040080080000000080088000000400

034210
034210
034214

034226
034234
034242
034250
034256
034264
034272
034300
034300
034302
034306
034314
034316
034320
034322
034324
034326
034326
034330
034336
034340
034344
034346
034354
034354
034356
034362
034370
034372
034374
034376
034400
034402
034402
034404
034412
034414
034422
034424
034426

40
41
42
43 034432
44

TEST

110080000008 00008000800000888000800840000800088000000000000it00000008000000t00as

i e
;@

034220

12:59:38 PAGF

034434

45 034434
034434

034434

004737
004737

020400
012364

112737
012737
012737
113737
113737
013737
012737

000171
177400
042762
002274
002272
002266
002754

113737

104402
004737
032762
001005
104456
000062
007335

002664

015160
002000

T12::

002630

002632
002634
002636
002640
002641
002642
002644

104403
032762
001403
004537
002630
062737

104402
004737
032762

001005
104456
000063
007427
000000

104403
042762
001005
032762
001001
000403
004537
002630

12.1:

L10067:
040000

000012

TST12:

002634

1$:
T12.2:

012766
177400

015160
001000

000014

L10070:
001000

000014

000200

000042

012766

TST12A:

1s:
2s:

104401

PC.RPINIT
PC,STOPCK

MOVB
MOV
MOV
MOVB
MOve
MOV
MOV

#RDDAT ,DTADPB+2 ;SET READ CMD IN OPB
OSCTRWC,DTADPB +4
sSET WORD COUNT TO READ ONE SECTOR
00BUFF ,DTADPB+6 ;DATA BUFFER
NS1,DTADPB+10
sSET LAST USER SECTOR IN DPB
NT1,0TADPB.11
sI.E., CYL 629, TRK 31, SEC 49
NC1,DTADPB.12
OREG,DTADPB+14
;POINT TO RHXX/RPO7 REG TABLE SAVED ON CMD DONE

MOvVB

000012

000000

JSR
JSR

EXIT12:
L10066:

ORVNO,DTADPB

TRAP
JSR
BIT
BNE
TRAP
. WORD
.WORD
.WORD

csBSuUB
PC.EXECMD
OLST,12(R2)
1ST12
CS$ERHRD
SO0
EMS0
0

TRAP
BIT
BEQ
JSR
DTADPB
ADD

CS$ESUB
OERR, 12(R2)
14
RS, ERRANY

TRAP
JSR
8IT

c¢BSUB
PC.EXECMD
QA0E ,14(R2)
TST12A
CS$ERHRD
S1
EMS1
o

TRAP
BIC
BNE
BIT
BNE
BR

CsESULUB
@AOE , 14(R2)
1s
o0VC,42(R2)
1
2
RS, ERRANY

BNE
TRAP
. WORD
. WORD
. WORD

JSR

CSETST

SUB-SYSTEM

sORIVE AD

sEXEC CMD
;LBT=17?
;OK, SKIP

;OTHER ERRORS?
;:NO, SKIP
s YES, FLAG THEM

OSCTRWC,DTADPB +4

DTADPB

TRAP

s INITIALIZE THE
sSTOP THE CLOCK

;SET DPB

sATTEMPT
t{AOE=1?
;1 OK,

TO READ BEYOND LAST

TO READ PAST LAST

SECTOR

SKIP

;CLEAR ERROR IN ERROR TABLE
;sFLAG OTHER ERROR, IF ANY
s(ER2)(ER3) = 0 ?
iNO, FLAG OTHER ERRORS
:+SKIP ON (ER1)(ER2)(ER3) = O

1FLAG ERRORS

SECTOR

CZRJULBO RPO7 FCTNL TEST MACRO VO4.00 1-DEC 83 12:59:38 PAGE
TEST 13:; OFFSET/RETURN-TO CENTER-LINE TEST

OB ~NT NE NN

.SBTTL

TEST

13:

J11
5EQ 0139

OFFSET/RETURN-TO-CENTER-LINE

TEST

1380880000080 0000000000000000000000004000000000880b00

1]
FE)
e
L

0ttitbtatatstttstitotisnatas

ISSUE AN OFFSET COMMAND, PROCESS THE ATTENTION INTERRUPT AND CHECK FOR
ERRORS,VERIFY THE ASSERTION OF OM OF RPDS.
ISSUE THE RETURN TO CENTER LINE COMMAND, PROCESS THE ATTENTION INTERRUPT
AND CHECK FOR ERRORS,

VERIFY

THE RESETTING OF

OM,

3 ;"..“‘“““““‘.““““““"t““““.“.“‘.“‘tt“
“““‘.t

‘.“““‘t‘

034436
034436
034442
034450
034456
034464
034472
034500
034506
034514
034514
034516
C34522
034526
034534
034536
034540
034542
034544
034546
034546
034550
034556
034556
034560
034564
034570
034576
034600
034602
034604
034606
034610
034610
35 034612
034614
034616
37 034622
38 034624
034624
034624

004737
012737
013737
113737

113737

013737
012737
012737
104402
004437
013702
032762
001005
104456
000066
007547
000000

020400
000012
002664
002220
002212
002204
002754
000115

T13::

002244
002630
002640
002641
002642
002644
002632

T13.1:
015056
002644
000001

000012

L10072:

104403

012737

104402
004437
013702
032762
001407
104456
000067
007610
000000

104403
104432
000010
005337
001312
104401

TEST13:

000117
015056
002644
000001

002632

TST13:
T13.2:

000012

JSR
MOV
MOV
MOVB
MOvVB
MOV
MOV
MOV
TRAP

002244

T13.1%:

EXIT1S:
L10071:

DRVNO,DTADPB
FS,DTADPB+10

FT,0TADPB+11
FC.OTADPB+12
OREG,DTADPB
.14

@OFFSET ,DTADPB +2

cs85UB
R4 ,DRVCAL
DTADPB+14
,R2
Q0M,12(R2)
TST13

JSR
MOV
8IT
B8NE
TRAP
.WORD
. WORD
. WORD

EMS54
0

TRAP

CsesuB

MOV

ORTC,DTADPB
2

TRAP
JSR
MOV
BIV
8EQ

R4 ,DRVCAL
DTADPB+14,R2
o0M,12(R2)
T13.1$

TRAP

L10073:

PC,RPINIT
€10, ,ITCNT

. WORD
. WORD
.WORD

CS$ERHRD
54

cs8SUB

C$ERHRD
55
EM55
0

TRAP
TRAP
. WORD
DEC
BNE

L10071-.
I1CNT
TEST13

TRAP

CS$ETST

s INITIALIZE THE SUB-SYSTEM
sSET ITERATION COUNT
:GET DRIVE NUMBER
1OPERATE ON FS,FT,FC
;POINTER TO RHXX/RPO7 REG

sLOAD OFFSET CMD

sSTART

A DATA

TABLE

SAVED ON CMD DONE

TRANSFER

3SgINTER TO RHXX/RP0O7 REG TBL SAVED ON CMD DONE
3

; OK

:LOARD RETURN TO CENTER LINE CMD
;START A DATA TRANSFER

;SSINng

3 OK

TO RHXX/RPO7 REG

)

C$ESUB
CSEXIT

sOONE ITERATIONS
iBR

IF NO

TBL

SAVED ON CMO DONE

CZRJULBO RPO7 FCTNL
14;

TEST MACRO v04.00

RANDOM READ

TEST

1 DEC 83

RN
ND NN -

TEST

12:59:38 PAGE 63

.SBTTL

TEST

14:

K11
SEQ 0140

RANDOM READ

TEST

PiRN0AAA0A0044004800000
0000480400400 000REKA00E000SA0A00040840000404000000084

;:THIS TEST RANDOMLY SELECTS A SECTOR ADDRESS:
;

.IF

THERE

IS NO P-CLOCK,

:IF

THERE

TRK

BETWEEN

AND

LT,

SEC BETWEEN FS AND LS.
THEN EXECUTES A READ DATA COMMAND
TO 1 SECTOR

:AFTER EACH READ-DATA COHHANO

:BUS. DATA

CYL BETWEEN FC AND LC,

THE

PROGRAM

VERIFIES

THE

AND VERIOUS RHXX/RPO7 REGISTERS.

IS A P-CLOCK,THE PROGRAM PERFORMS AN ADDRESS MARK DETECTION TEST:

:IT VERIFIES THAT DATA CAN BE READ CORRECTLY WITHIN THE SAME DISC REVOLUTION
iARS A SECTOR DETECTION. SEARCH FOR THE LOGICAL SECTOR PRECEDING THE SELECTED

:SECTOR TO READ, THEN READ THE SELECTED SECTOR. TIME THE SEARCH DONE READ DONE
;7O BE WITHIN A DISC REVOLUTION. FLAG LOST REVOLUTIONS.
1 8028048 8 8

034626
034626
034634
034640
034642
034646
034652
034660
034666
034674
034702

013737
005737
003036
004737
004737
113737

002250

002260

012364

112737
012737
012737
012737

034710
034714
034714
034716
034722
034722
034724
034730
034732
034734

004437

017716

104402
004437

015056

034736
034742
034744

004437
000402
000137

015612

034750
034754

004737
042777

015742
000101

034762
034766
034772
034776
035002
035004

012746
012746
013746
012746
104437
062706

000300
035754
012230
000003

012746
012746
013746
012746

45
46 035010
035014
035020
035024

T14:;

MOV
TST

XTIMES,ITCNT
CLKSTA

$SET ITERATION COUNT
1P-CLK PRESENT?

JSR
JSR

PC.RPINIT
PC,STOPCK

sINITIALIZE THE
;STOP THE CLOCK

MOVS
MOV
MOV
MOV

ORDDAT ,DTADPB+2
2-256. ,0TADPB+4
S0BUFF ,DTADPB+6
OREG,DTADPB+14

;EXECUTE READ COMMAND
;WORD COUNT = 1 SECTOR
;BUFFER ADDRESS
;RHXX/RPO7 REGISTER TABLE

B8GT

020400

002664
000171
177400
042762
002754

104403
005337
001367
104432
001206

002244

88885888888 080480 0400000888480 888884443000400845500dbbtbbbbttbtbttn

MOvVB

002630
002632
002634
002636
002644
;EST14:
14.1:
L10075:
EXIT14:

002244

TST14A:

036114

155240

TST14A

DRVNO,DTADPB

JSR

R4 ,RANADR

TRAP

csBSUB

JSR

s YES, EXEC RAND READ TEST

SUB-SYSTEM

sLOAD THE DRIVE ADDRESS

sGENERATE A STARTING ADDRESS

R4 ,DRVCAL

sSTART A DATA

TRAP
DEC
BNE
TRAP
. WORD

CS$ESUB
ITCNT
TEST14
CSEXIT

;DONE ITERATIONS
;BR IF NO

JSR

R4 ,SRCHOO

sMASS BUS

JSR

PC,.STRTMR

;INIT THE TIMERS

MOV
MOV

#PRIO6, -(SP)
0T14.7%,-(SP)

BR
JMP
8IC

+ AD MARK DET

TRANSFER
?

L10074
-,
1s
XIT14

2101,8PKCS

000010

MOV
MOV
TRAP
ADD

PKV, -(SP)
03,-(SP)
CS$SVEC
010,SP

000000
015740
002654
000003

MOV
MOV
MOV
MOV

OPRIOO, -(SP)
ODORTI, -(SP)
RPVEC, -(SP)
03,-(SP)

INIT

& RECAL

:NO RECAL ERROR, CONTINUE
;EXIT ON RECAL ERROR
;STOP THE P-CLOCK
$1SETUP VECTOR IN CASE OF CLOCK OVERFLOW

;SETUP RMXX/RPO7 VECTOR

CZRJLBO RPO7 FCTNL
TEST

14:

TEST MACRO vO4.00

RANDOM READ

035030
035032
47 035036
48 035040

TEST

104437
062706
005005
005037

1 DEC 83

12:59:38 PAGE 63
TRAP
ADD
CLR
CLR

000010
002240

L11

Cs$SVEC
#10,5P
RS
TEMPO

5EQ 0141

1SET COUNT-UP FLAG FOR COUNT SUBR
;:CLEAR TEMPORARY LOST REVOLUTION COUNT

50
51
52
53
54
55
56
57

:REDUCE THE
: SECTOR.

58
59
60
gé

035044
035050
035054
035060
035066
035070
035074
035076
035102

004437
113701
010137
032777
001006
162701
002002
062701
000411

63
64
65
66

035104
035106
035110
035114

005701
001405
162701
001002

67
68
69
70
71

72
73
74
75
76
77
78
79
gg

035116
035122
035126

035126
035126
035126
035130
035134
035142
035144
035152
035156
035164
035172
035176

062701
062701

104402
010137
013777
110146
113766
012677
012777
012777
012703
012777

017716
002640
002254
000004

T14.1%:
145614

000002
000062

1%:

2%:
000031
000031
000030

3%:
as:
71410¢:
Ti4.2:

002252
002642
002641
145520
177400
042762
002502

000006

145562
000001

145506
145502

155020

gz
85
86
87
88
89
90
91
92
93

TARGET

SECTOR BY

TO COMPUTE

THE

VALUE

THE

2ND LOGICAL

JSR
MOVB
MOV
BIT
BNE
SuUB
B8GE
ADD
BR

R4 ,RANADR
OTADPB+10,R1
R1,TRGSEC
¢ILV,8RPDS
24
Q2,R1
13
#50.,R1
43

;:GEN A RAND ADR: CyL, TRK, SEC
sGET TARGET SECTOR ADDRESS TO READ AND
;SAVE IT FOR LATER
: IS INTERLEAVED SECTOR ENABLED ?
;:BR IF YES
1BACKUP THE SECTOR ADDRESS FOR THE SEARCH
:BR IF < SECTOR O
:ADJUST FOR ADDRESS BEFORE SECTOR O
sEXIT

TST
8eQ
SuU8
BNE
ADD
ADD

R1
33
025. ,R1
34

+IS
t1BR
;IS
;BR

:PREPARE

925.,R1
924.,R1

IT
IF
IT
IF

SECTOR ADDR O ?
YES
SECTOR ADDR 25 ?
NO

sADJUST FOR THE ADDRESS BEFORE SECTOR O
;REDUCE THE TARGET SECTOR BY 2

TO SEARCH

TRAP
MOV
MOV
MOVB
MOVB

csBSuUB
R1, SRHSEC
OTADPB+12,8RPOC
R1,-(SP)

OTADPB+11,1(SP)

1 SAVE SEARCH SECTOR FOR LATER
;CYL
{MERGE SECTOR
;AND TRK

MOV
MOV
MOV
MOV
MOV

(SP)+,8RPDA
0-256. ,8RPWC
ODBUFF , BRPBA

:+LOAD TRK/SEC
;READ 1 SECTOR
:SET DATA BUFFER

0T1418,R3
06 , 9PKB

s TIMING LIMITS FOR COUNT SUBR
sALLOW > 6 REVOLUTIONS PER SEARCH:

ADR

+3 FOR IMPLIED MAX SEEK

(46 MSEC OR ABOUT

3 REVOLUTIONS)

MOV
MOV
WAIT
MOV
8IC
MOV
81T
cQ
JSR

1START P-CLOCK:IE,COUNT DOWN,LINE FREQ
;START A SEARCH
sWALT ON INTERRUPT
s SAVE THE CLOCK
1STOP THE CLOCK
1AND RESTORE THE COUNTED VALUE

+3 FOR WORST CASE SEARCH(SECT CMP ERR OR HOR CRC ERR)
035204
035212
035220
035222
035226
035234
035240
035246
035250

012777
012777
000001
017746
042777
012677
032777
001533
004737

000105
000131

035260
035264
035272
035300

004737
012777
013777
004737

024644
000040
002630
011002

035254

94 035304

012702

004537

155000
000101
154764
040000

155010
145450

154766

145434

010750

002630

012766

MOV

145406
145400

JSR
MOV
MOV
JSR
JSR

@105,8PKCS
#SEARCH,8RPCS1

8PKC, -(SP)
@101,8PKCS
(SP)+,8PKB
#B8IT14,8RPDS
714114
PC,SAVREG
#DTADPB,R2
PC, SVRHXX
OCLR,8RPCS2
DTADPB, 8RPCS2
PC,RESREG
RS, ERRANY

$ERROR?
$NO - -BRANCH
$ 1 SAVE RO-RS
1OPB POINTER
$SAVE ALL THE RHXX/RPO7 REGISTERS
tMASSBUS CLEAR
$ SELECT DRIVE
1 stRESTORE RO-RS

CZRJLBO RPO7 FCTNL
TEST

14:

TEST MACRO v04.00
RANDOM READ TEST

95 035310
96 035312
035312
97 035314
98 035322
99 035324
035330
035334
035336
035340
100 035344
035350
035354
035356
035360
035364
035370
035370
035376

DEC

12:59:38 PAGE 63 2

002630

104403
0327%
001022
012746
012746
010600
104417
062706
012746
012746
010600
104417
062706
000137
012737
012777

L10076:

000210

002264

MOV
MOV
MOV
TRAP
ADD
MOV
MOV
MOV
TRAP
ADD

000004
004614
000001

000004
036060

000020
000006

TRAP

002350

154620

14:
2$:

5€Q 0142

sFIND OUT WHAT ERROR

OTADPB

BIT
BNE

004511
000001

M11

CS$ESULB
OBIT3!BIT7,SVSTAT
13
#SEAERR, -(SP)
41, -(SP)
SP,RO

;RETRY

:BRANCH IS SO

ALLOWED

CSPNTF

#4 ,SP
#ABOTST, -(SP)

SP,RO
CS$PNTF

JMP

04,5SP
T14.8%

MOV
MOV

016. ,WCEFLG
96 ,3PKB

sRETRY
;ALLOW

16 TIMES
> 6 REVOLUTIONS PER

SEARCH:

;3 FOR IMPLIED MAX SEEK (46 MSEC OR ABOUT 3 REVOLUTIONS)
;3 FOR WORST CASE SEARCH(SECT CMP ERR OR HDR CRC ERR)

122

123
124
125
126
127
128
129
131
132
133

035404
035412
035420
035422
035426
035434
035440
035446
035450
035456
035464
035470
035472
035476
035502
035504
035506
035512
035516
035522
035524
035526
035532
035534
035534
035536
035544
035550
035556
035564
035566
035572
035600
035604

012777
012777
000001
017746
042777
012677
032777
001433
012777
013777
005337
001342
012746
012746
010600
104417
062706
012746
012746
010600
104417
062706
000552

104402
013777
005077
012777
012777
000001
017746
042777
012677
032777

000105
000131

154600
000101
154564
040000
000040
002630
002350

154610
145250

MOV
MOV
WAIT
MOV

154566

8IC

MOV

145234

BIT
8EQ

145222
145214

MOV
MOV

DEC
BNE

004550
000001

MOV
MOV
MOV
TRAP
ADD
MOV
MOV
MOV

004614
000001

TRAP

000171
000121

145112
154436

000101

154422

8IC

040000

145070

154420

@101,8PKCS

(SP)+,8PKB
081IT14,8RPDS
T1411%
OCLR,8RPCS2
DTADPB, 8RPCS2
WCEFLG
24
#SEABAD, -(SP)
o1, -(SP)
SP,RO

WAIT
MOV

MOV

BIT

;WAIT

ON INTERRUPT

:MASSBUS

CLEAR

;DRIVE ADDRESS
;OVER RETRY LIMIT
:BRANCH IF NOT

CSPNTF

04,SP
#ABOTST, -(SP)

714.8%

MOV
CLR
MOV
MOV

154434

s SAVE THE CLOCK
:STOP THE CLOCK
:AND RESTORE THE COUNTED VALUE
sERROR?
(EXIT IF NONE

145132

154454

8PKC, -(SP)

SP,RO
CSPNTF

002640

T1411%:

; START P-CLOCK:IE,COUNT DOWN,LINE FREQ
;START A SEARCH

TRAP

ADD

T714.3:

@105, 8PKCS
@SEARCH, 8RPCS1

#4 ,5P

cs85UB
OTADPB+10, 8RPDA
8PKB
ORDDAT, 8RPCS1
#121,8PKCS

8PKC, -(SP)
€101, 8PKCS
(SP)+,8PKB
08IT14,8RPDS

sEXIT

:SET TRK/SECT TO READ
t+CLEAR P-CLK BUFFER COUNT

1START A READ
1START THE CLOCK:IE=1,UP,SINGLE,
10US
tWAIT ON INTERRUPT

1 SAVE THE CLOCK
;STOP THE CLOCK
+AND RESTORE
;ERR=17?

THE

COUNTED

VALUE

CZRABO RPO7 FCTNL
TEST

14:

TEST MACRO
RANDOM READ TEST

134 035612
135 035614

136
137
138

139
140
141

142
143
144
145
146
147
148

035620
035624
035630
035636
035644
035650
035654
035656
035656
035660
035666
035670
035674
035700
035702
035704
035710

035712
035716
035724
035726
035732
035734
035736
035740
149 035742
035746
151 035750
152
153 035754
155 035760
035764
156 035766
035772
035776
036002
036010
036016
036022

157

158

159
160
161

001437
004737
012702
004737
012777
013777
004737
004537
002630
104403
032737
001411
012746
012746
010600
104417
062706
000463
004737
023737
001406
005237
104455
000064
007521
010560
021237
002044
000137

004737

012700
104441
004737
012702
004737
012777
013777
016102
016237
116237
116237
004737
104456
000024
006201
007672
012777
013777
004737
004437
002502
004437

010750
002630
024644
000040
002630
011002
012766

v04.00

DEC

12:59:38 PAGE 63

BEQ
JSR
MOV

JSR

145042
145034

MOV

MOV
JSR
JSR

L10077:

000040

002264

004633
000001

000004
016212
002320

002240

T1412¢:

002240

DTADPB
TRAP
BIT
BEQ

1%:

035044
012426

T14.7%:

000000
010750
002630
024644
000040

002630

144670
144662
002276
002302
002300

000040
002630
012000
016504
016354

144612
144604

T14.8%:

sNO - -BRANCH

PC.,SVRHXX
#CLR,8RPCS2

:SAVE ALL

THE RHXX/RPO7 REGISTERS

$ sRESTORE

RO-RS

4DTADPB,R2

s 1 SAVE RO-RS
1DPB POINTER

DTADPB, 8RPCS2

1MASSBUS CLEAR
;SELELT DRIVE

PC,RESREG
RS ,ERRANY

C$ESUB
eBITS5,SVSTAT

MOV
MOV
MOV
TRAP
ADD

B8R

JSR
cHe
8EQ
INC

PC,COUNT
TIM.UP+6,TEMPO
1
TEMPO

.WORD
.WORD
. WORD
cHe
B8GE
JMP

52
EMS2
OHS2
(R2),XTIMES
714.8¢
T14.18

JSR

PC,FORSEC

MOV
TRAP
JSR
MOV
JSR
MOV
MOV
MOV
MOV
MOV8
MOVB
JSR
TRAP
.WORD
. WORD
.WORD
MOV
MOV

JSR
JSR

T1418

JSR

SEG 0143

T1412%
PC,SAVREG

T14124
@POSERR, -(SP)
e1,-(SP)
SP,RO
C$PNTF
04,5P
T14.8%

TRAP

002250

NT11

CSERDF

OPRIOO,RO

C$SPRI

PC,SAVREG

#0TADPB,R2

PC, SVRHXX

OCLR,8RPCS2
DTADPB, 8RPCS2
14(R1),R2
36(R2),CYL.RD
6(R2),SEC.RD
7(R2), TRK.RD
PC,RESREG
CS$ERHRD
20
EM20
DH44
OCLR,8RPCS2
DTADPB, 8RPCS2
PC,ST.CLK
R4,TYPTIM
R4 ,SPTYP

:FIND OUT WHAT ERROR

;POSITION ERROR?
:NO, CONTINUE

;COUNT TIME SEARCH DONE-READ DONE

sANY

LOST REVOLUTIONS

;BRANCH IF NO

:UPDATE TEMPORARY LOST REVOLUTION COUNT

sREPEATED 1024
s YES, CONCLUDE

:NO,

CONTINUE

;RESET

TIMES?
TEST

TIMER TO 4

:OROP THE PRIORITY

SEC,

CHANGE CLK

: 1SAVE RO-RS
;1DPB POINTER
sSAVE ALL THE RHXX/RPQO7 REGISTERS

$tMASSBUS CLEAR

$SELECT DRIVE
s AUDRESS OF SAVED REGISTER TABLE
1GET CURRENT CYLINDER
sGET CURRENT SECTOR
sGET CURRENT TRACK
1 stRESTORE RO-RS

1CLEAR THE MASSBUS

1& SELECT ORIVE
s INITIALIZE THE CLOCK
1GO TYPE THE TIMES
s POINTER

SERVICE

CZRABO RPO7 FCTNL
TEST

14:

162 036112
163 036114
le4

TEST MACRO vO4.00 1 DEC-8%

RANDOM READ

TEST

1.:59:38 PAGE

002542

036114
036120
036124
036130
036134
036136

013746
012746
013746
012746
104437
062706

036142

104401

165 036142

Bio

002656
023046
002654
000003

xITi4:

000010

L10074:

63 4

EQ 0144

SP1418
MOV
MOV
MOV
MOV
TRAP
ADD

RPVEC.+2, (SP)
QISRv, -(SP)
RPVEC, (SP)
3, -(SP)
CSSVEC
€10,5P

TRAP

CSETST

1SETUP RHXX/RPO? VECTOR

Cle

)

CZRUABO RPO7 FCTNL
15:

TEST MACRO vO4.00 1 DEC-83 12:59:3%8 PAGE 64

CYLINDER ADDRESSING

2EQ G14%

TEST

WM re OL® I NEah,
V. XV] VD
=

.S8TTL

TEST

15:

CYLINDER

ADDRESSING

TEST

H ;‘.0.0.‘00‘“‘.‘.“““.“.‘..“““““.‘.‘..““0..00.‘.0.‘..‘.‘.‘.“““...

H
:

o o bt ot

s (o]

THIS TEST LOCATES THE FE
THE FE CYLINDERS ARE CYL

CrL INDERS;
630 AND 631,

THE

FIRST

“OMO" BIT OF

TEST

CYCLE,

TEST

THE RPMR REGISTER

SETS

IN ORDER

TO ACCESS

:
:

THEN, THIS TEST EXECUTES READ MEADER AND DATA COMMANDS
SEQUENTIALLY TO VERIFY THE ADDRESSING OF THE SECTOR O
OF EACH TRACK ( 0 TO 31 ) ON THE FIRST FE CYLINOER.

AT THE
A SEEK

CYLINDERS.

SECOMD TEST (rCLE,
COMMAND IS EXECUTED

TO ACCESS

THE

SECOND FE

CYLINDER.

H ;.‘..““...‘.““.“‘..“““““““.““0..“““““‘.‘0.‘0.“.‘..‘.“.“.

o g

TEST

004737
004737
012737

i13737
012737

012737
012737
013737
013704
122764
001411
122764
001405
104455
000044
007017
010702
104444
052737
112737

104402
004437

036310
036310
036312
036320
036324
036324
036326
036332
036334
036342
036344

104403
005737
100437

104402
112737
004437
104403
005737
100425
123737
101403
105237

T1S::

020400

012364
000012
002664
177400
042762
002270

002244
002630
002634
002636
002640
002642

000005

020320

TEST1S:

JSR
JSR
MOV
MOV

MOV

MOV
MOV
MOV
MOV
crP8
BEQ
cr8
BEQ

020320

TRAP

. WORD
. WORD
. WORD

100000
000105

002630
002632

TRAP

1%:

71S5.1:

015056
L10101:

002646
T15.2:

000173
015056

002632

TST15:

L10102:

002646
002272
002641

002641

8IS
MOVS
TRAP

PC.RPINIT
s INITIALIZE THE SUB SYSTEM
PC,STOPCK
:STOP THE CLOCK
010.,ITCNT
$1SET ITERATION COUNT
DRVNO,DTADPB
1LOAD THE DRIVE ADDRESS INTO DPB
OSCTRWC ,DTADPB -4
1256 WORDS

@DBUFF ,0TADPB+6
00,DTADPB 10

NC2,DTADPB.12
DRVNO, R4
05,0DRVTYP(R4)
18
04 ,DRVTYP(R4)

14
CS$ERDF
36
EM36
DH2S
CS$DCLN
60MD ,0TADPB

O0SEEK,DTADPB+2

cs8suB

;BUFFER ADDRESS
s TRACK 0, SECTOR O

$ASSUME NO FIX HEAD OPTION
370 FIND OUT FIX HEAD OPTION
1BRANCH IF NO FIX HEAD
;DOES

CONTAIN FIX

HEAD

:BRANCH IS SO

1SET MAINTENACE MODE FLAG AT

;D0 AN EXPLICIT

JSR

R4 ,DRVCAL

$1START

TRAP
TST
BMI

CS$ESUB
DTADPB.16
EXIT1S

tANY ERROR CONOITION EXISTS
1EXIT IF SO

TRAP

cs8suB

MOvB
JSR

#RDHO,0TADPB+2
R4 ,DRVCAL

TRAP
TST
8MI

CS$ESUB
OTADPB+16
EXIT1S
NT1,DTADPB.11
1$
OTADPB.11

cHPB8
8LOS
INCB

DATA

TRANSFER

;READ THE HEADER AND DATA
1START A DATA TRANSFER

1 ANY ERROR
sEXIT IF SO
sLAST TRACK CHECKED
1BRANCH

NOT

THE 2ND BYTE

SEEK

CZRJULBO RPO? FCTNL
TEST

15:

TEST

CYLINDER

MACRO

v04.00

ADDRESSING

036350

000760

036352
036356
036362
036370
036370
036372
036376
036376
V36400
036404
036406
036412
036420
036420

105037
005237
112737

002641
002642
000105

104402
004437

015056

104403
005337
001266
004737
042737
104401

TEST

D1
1

DEC

12:99:38 PAGF

1¢:

002632

L10103:

002244
020400

100000

002630

EXIT1S:
L10100:

S5EQ G146

B8R

TST15

CLRB
INC

DTADPB.11
DTADPB .12

TRAP
JSR

R4 ,DRVCAL

:START

CsESUB
ITCNT

;OONE ITERATIONS

o0MO ,DTADPB

s INITIALIZE THE SUB SYSTEM
;CLEAR THE OMD BIT IN THE DPB

MOVB

T15.3:

TRAP

DEC
BNE
JSR
BIC
TRAP

OSEEK ,DTADPB «2

cs8suB

TEST1S
PC,RPINIT

CSETST

$RESET TO TRACK O
tACCESS 2ND FE CYL
;D0 AN EXPLICIT SEEK

:BR

A DATA

IF NO

TRANSFER

CZRJULBO RPO7 FCTNL TEST MACRO v04.00 1 DEC-83 12:59:38 PAGE
TEST 16: FE CYLINDER WRITE AND WRITE CHECK TEST
O NS (Nl

.SBTTL

TEST

16:

l[’

%€Q 0147

FE CYLINDER WRITE AND WRITE CHECK

TEST

1100000800000 00000000000000000000000000000000800000000000000000080040000808808008

1 THIS

TEST

EXECUTES

WRITE-DATA

SEQUENTIALLY

FROM

sON THE FIRST FE CYLINDER WHICH IS ACCESSIBLE
: THE PARAMETERS ARE

AS FOLLOWS:

TRACK

IN MAINTENANCE MODE,

;THE FULL TRACK TRANSFER IS MADE IN 2 PASSES:
i

i
H
:

1ST PASS,
2ND PASS,

SECTORS:
SECTORS:

00.
25.

STARTING TRACK
ENDING TRACK
INCREMENT TRACK

STARTING SECTOR

THRU 24,
THRU 49,

= FT
= LT
= IT

= FS

[ 108004800404 8888848084804404800484008880488808803480008040880808008400484008045000800088000

036422
036422
036426
036434
036442
036450
036456
036464
036472
036476
036504
036510
036514
036520
036524
036530
036534
036536
036540
036542
036542
036544
036552
036556
036556
036560
036560
036562
036570
036574
036602
036606

036610
036614
036616
036622
036630

004737
113737
013737
012737
113737
013737
012737
105037
052737
004737
005037

105037

013702
013703
013704
010223

020400

002354
042762
002212
002270
002754
002631

012364

T16::

T16.1:

002632

104403
005737
100406
005337
112737
000745

WRPAT:

L1010S:
T16.2:

000161
015056
000151
015056

002632

002632
L10106:

002256

002256
000031

TRKWC ,0TADPB+4
QDBUFF ,DTADPB+6

;WORD COUNT = HALF
;BUFFER ADDRESS

MOV

1%:

104403
104402
112737
004437
112737
004437

MOV
MOV

002640

DRVNQO,DTADPSB
FT,DTADPB.+11

NC2,DTADPB+12

OREG,DTADPB+14

THE

SUB-SYSTEM

:LOAD THE DRIVE ADDRESS
sFIRST

TRACK

:FIRST FE CYLINDER W/0 FIX H
;SAVED RHXX/RPO7

CLRB
BIS
JSR

OTADPB+1
o0MO,DTADPB
PC,STOPCK

CLR

DOTWO

sRESET

CLR8

DTADPB+10

{RESTART AT SECTOR O

MOV

DTADPB+4 ,R4

s WORD

MOV
MOV

5204

000105
015056

s INITIALIZE

MOVB

TEST16:

001375

104402
112737
004437

PC.RPINIT

MOV

002630

002256
002640
002224
002636
002634

JSR

MOVB

002630
002634
002636
002641
002642
002644

PAT ,R2
OTADPB+6,R3

sCLEAR THE MCI
sSET THE MAINTENANCE MODE FLAG
$1STOP THE CLOCK
2

ITERATIONS

CONTROL

sFILL THE DATA PATTERN
;BUFFER ADDRESS
COUNT

MOV
INC
BNE

R2,(R3).
R4
18

:BRANCH IF PATTERN IS WRITTEN TO ALL BUFF LOC

TRAP
MOVB
JSR

csB8sSuB
OSEEK,DTADPB+2
R4 ,DRVCAL

;D0 A SEEK FIRSTY
sSTART A DATA TRANSFER

TRAP

CsESLB

TRAP

csBSUB

MOVe
JSR
MOve
JSR

MRTDAT ,DTADPB +2
sWRITE DATA COMMAND
R4 ,DRVCAL
1START A DATA TRANSFER
OWCKD ,DTADPB+2
;CHANGE TO WRITE CHECK DATA COMMAND
R4 ,DRVCAL
iSTART A DATA TRANSFER

TRAP
TST

CS$ESUB
DOTWO

WRPAT

8MI
DEC
MOVS

1
00TWO
02S. ,DTADPB+10

1DONE HALF TRACK TWICE?
s YES, EXIT 2 ITERATIONS LOOP
iNO, MARK 2ND ITERATION
;TFR 2ND MALF OF TRACK
sLOOP

TFR 2ND HALF

TRACK

CZRJLBO RPO7 FCTNL
TESTY

16:

54
55
56
57
58
59
60
61
62
63
64
65
66

67
68
69
70
71
e

TEST MACRO v04.00 1 DEC
CYLINDER WRITE AND WRITE CHECK

036632
036636
036642
036646
036650
036654
036660
036662
036664
036666
036666
036670
036676
036702
036702
036704
036704
036706
036714
036720
036726
036132
036732
036734
036740
036742
036746
036754

73
74
75
76
77
78
79 036756

80
81
82
83
84
85

036762
036766
036772
036776
037000
037006
037006

005037
105037
013702
005102
013703
013704
010223
005204
001375
104402
112737
004437

002256
002640
002224

104403

005737
100406
005337
112737
000745

11370
063702
110237
023702
101244
042737
104401

12:59:38

002636
002634

002632

MOV

MOV
MOV
MOV

WRPATN:

L10107:
716.4:

000161

002632

000151
015056

002632

015056

L10110:

002256
002256
000031

100000

INC
BNE

SAT.Ra
2

DTADPB+6,R3

5EQ 0148

sFILL

;BRANCH

TRAP
MOvV8
JSR
MOvVB

cs8suB

TRAP
TST

MOVB

ADD
MOVB

CcMP
BHI
8IC

TRAP

R4 ,0RVCAL

THE

1ST

LOOP

PATTERN

;BUFFER ADDRESS

gi.(RB)o

CseESuB

JSR

sCOMPLEMENT

;WORD COUNT

TRAP

JSR

;RESCT PARAMETERS FOR
;RESTART AT SECTOR O

DTADPB+4 ,R4

cs8suB
OSEEK,DTADPB+2

B8R

EXIT16:
L10104:

DOTWO
DTADP8:10

TRAP
MOVB

MOVe

1s:

002630

comM

BMI
OEC

002640

002641
002216
002641
002214

CLR
CLRB

2%:

7T16.3:

000105
015056

PAGE

TEST

1$:

104403
104402
112737
004437
112737
004437

THE BUFFER
IF

NOT

;SEEK COMMAND
:START A DATA

WITH COMPLEMENT

DONE

TRANSFER

OWRTDAT ,DTADPB +2
sWRITE DATA FIRST
R4 ,DRVCAL
sSTART A DATA TRANSFER
OWCKD,DTADPB+2
;CHANGE TO WRITE-CHECK
R4 ,ORVCAL
;START A DATA TRANSFER

C$ESLB
DOTWO
14
00TWO

025. ,0TADPB+10
WRPATN
?;AgPBoll.RZ
R2

;DONE HALF TRACK TWICE?
;YES, EXIT 2 ITERATIONS LOOP
sNO, MARK 2ND ITERATION
;TFR 2ND HALF OF
s2ND ITERATION

;UPDATE

THE

TRACK

ADDRESS

R2.DTADPB+11
LT,R2
TEST16

o0MD ,DTADPB

CSETST

;RESET

THE MAINTENANCE FLAG

DATA

CZRIABO RPO7 FCTINL
WRITE

TEST

17:

LSBTTL

OO NT NS

TEST

G1e

TEST MACRO VO4.00 1 DEC 83 12:59:38 PAGE 66

1 THIS

TEST

17:

WRITE

5EQ 0149
TEST

Fi0000000000000080000000800800000040000000000040000080

TEST

EXECUTES

WRITE

iCYLINDER AND ENDING CYLINDER.

i THE TRACK
: TRACK
",

ADDRESS

IS UPDATE

8000000000080000800000000

CHECK

DATA ON EVERY

AFTER EACH WRITE
THE

AMOUNT

TRACK

STARTING

WRITE CHECK OPERATION,

SPECIFIED

THE

“INCREMENT

;NOTE: CYLINDER 629. WILL NOT BE USED, IN ORDER TO PRESERVE THE BAD
SECTOR FILE DATA,

;THE FULL TRACK TRANSFER IS
:
1ST PASS, SECTORS:

2ND PASS,

SECTORS:

MADE IN 2 PASSES:
00. THRU 24,

25.

THRU 49,

: THE PARAMETERS:
:
STARTING CYLINDER

H
H
H
H
:

ENDING CYLINDER
STARTING TRACK
ENDING TRACK
INCREMENT TRACK
STARTING SECTOR

§10808008000800400080008000008000000000088000800000080400000000000

0800000000008084

037010
037010
037014
037020
037022

037026

037032
037036
037040
037042
32 037046
33 037050
037052
34

037054
37 037062
38 037070
037076
40 037104
41 037112
42 037120
43 037126
44 037132
45 037136
46 037142
47 037146
48 037150
49 037152
50 037154
51 037160
52 037162
037162

004737
105737
001015

020400
002235

013746
012746
012746
010600
104417
062706
005000
104432
000256

002114
004432
000002

113737
013737
012737
112737
113737
013737
012737
005037
013702
013703
013704
010223
005204
001375
004737
005005

002664
002354
042762

104402

T17::

JSR

PC.RPINIT

BNE

TST8B

002212
002204
002754
002256
002224
002636
002634

1¢:

CSEXIT
L10111-,

;CLEAR RO FOR

g01Y:]

DRVNO,DTADPB

sORIVE ADDRESS

MOV
MOV

CLR
MOV
MOV
MOV
MOV

SUB-SYSTEM

THAT

;HALF TRACK
;BUFFER ADDRESS

FT,DTALPB.11
FC,OTADPB+12
#REG,DTADPB+14

s TRACK ADDRESS
tCYLINDER ADDRESS
;THE SAVED REGISTER

®0,DTANPB 10

00TWO
PAT ,R2
DTADPB+6,R3
DTADP8+4 R4
R2,(R3).

JSR
CLR

PC,STOPCK
RS

TRAP

csBsuB

TEST WAS NOT RUN

TRAP

TRKWC ,DTADPB+4
00BUFF DTADPB+6

INC

BNE

T17.1:

;:BR IF YES
sNOTIFY OPERATOR

TRAP
. WORD

MOVB
MOV
MOV

012364

THE

L$TEST,-(SP)
OWRTENM, -(SP)
02, -(SP)
SP,RO
CSPNTF
26 ,5P

~MOVB

2s:

sINITIALIZE

;DID OPERATOR WANT TO WRITE ON MEDIUM?

MOV
MOV
MOV
MOV
TRAP
ADD

CLR

002630
0026 34
002636
002640
002641
002642
002644

WRTALL

1SECTOR ADDRESS

TABLE

;RESET 2 ITERATION CONTROL
sPATTERN IN R2,FILL
tBUFFER ADDRESS

ADDRESS

s TOTAL NUMBER OF WORD COUNT
1LOAD DATA PATTERN BUFFER
s INCREMENT WORD COUNT
1BRANCH IF NOT DONE
1STOP THE CLOCK

11ST PASS FLAG

CZRJULBO RPO7 FCTNL TEST MACRO vO4.00 1 DEC 83
TEST 17: WRITE TEST
53
54
55
56
57
58
59
60
61
62

63
64

65
66
67
68
69
70
71
72
73
74
75
76
77
78
79

037164
037172
037474
037200
037206
037212
037220

037224
037224
037226
037232
037234
037240
037246

037250
037254
037260
037264
037270
037274
037276
037302

037304
037306
037310
037312
80 037320
81 037326
82
83 037330
037330
037330

023727
001002
005337
112737
004437
112737
004437

104403
005737
100406
005337
112737
000746
005037

105037
113702

063702
023702
103403
110237
000730
005705
001010
005205
113737
013737
000716

104401

002642

002642
000161
015056
000151
015056

12:59:38 PAGE

001165

TEST17:

002632

1¢:

002632
L10112:

JSR
JSR

TRAP

002640
2$:

002256
002640
002641
002216
002214

3s:
4%

TS57
8MI1
DEC
MOvB
BR

CLR
CLR8

MOvVe
ADD

cMP
8LO

002641

002641
002642

Hic

DTADPB.12,0629.
1
DTADPB+12

5EQ 0150
;s IS
;BR

THIS THE LAST USER CYLINOER
IF NO
sWRITE

DATA COMMAND

THE WRITE COMMAND
THE WRITE CHECK COMMAND
THE WRITE CHECK COMMAND

CsESUB
DOTWO
34
DOTWO

;YES, EXIT 2 ITERATIONS LOOP
;iNO, MARK 2ND ITERATION

TEST17

:LOOP TO XFER 2ND HALF OF

925.,0TADPB+10

DOTWO
OTADPB+10
OTADPB.11,R2
IT,R2
LT.R2
5%

TST
BNE
INC

RS
EXITL1?
RS
FT,DTADPB.11
LC.OTADPB+12
TEST17

TRAP

CSETST

;OON'T WRITE ON LAST USER CYLINDER

AWRTDAT,DTADPB+2
R4 ,DRVCAL
;00
dWCKD ,DTADPB+2
;00
R4 ,DRVCAL
;00

R2,DTADPB+11
TEST17

MOvVB
MOV

EXIT17:
L10111:

MOvVB

Ss:

002212
002206

MOvV8

MOvB

002256

002256
000031

cMP
BNE
OtC

;DONE HALF

sGET

TRACK

TWICE?

STARTING SECTOR FOR 2ND HALF

TRACK

;RESET PARAMETERS FOR 1ST LOOP

;RESTART

SECTOR O

tUPDATE THE TRACK ADDRESS
; INCREMENT BY THE SPECIFIED AMOUNT
;OVER THE LIMIT ?
:BRANCH IF

sUPDATE THE TRACK ADDRESS
:LOOP BACK

;IS IT 2ND PASS?

;YES,

EXIT

;NO, FLAG 2ND PASS
;RESET THE STARTING TRACK
:UPDATE THE CYLINDER ADDRESS TO LC
+LOOP BACK

TRACK

CZRJULBO RPO7 FCTNL

TEST MACRO v0O4.00 1-DEC-83 12:59:%8 PAGE 67

RANDOM WRITE

.SBTTL

TEST

=2 s 18 4=t Pt et ot Pt [
Pt s

TRANSFER

NN NP NN

THE

b
H
H
:

[

WRITE

THE

CHECK DATA RANDOMLY;

(STARTING CYLINDER,
(STARTING

SIZE

IS ALWAYS

TRACK,

(STARTING SECTOR,

EQUAL

TO ONE

ENDING CYLINDER)

ENDING

SECTOR.

TRACK)

ENDING SECTOR)

IS A P-CLOCK,THE PROGRAM PERFORMS AN ADDRESS MARK DETECTION TEST:

.IT VERIFIES THAT DATA CAN BE WRITTEN CORRECTLY WITHIN THE SAME DISC REVOLUTION
SECTOR

DETECTION.

;:SELECTED SECTOR
:DONE WRITE DONE

sNOTE:
i

SEARCH FOR

THE

SECOND LOGICAL

SECTOR

PRECEDING

THE

TO WRITE, THEN WRITE THE SELECTED SECTOR. TIME THE SEARCH
TO BE WITHIN A DISC REVOLUTION. FLAG LOST REVOLUTIONS.

CYLINDER 629. WILL NOT BE USED,
SECTOR FILE DATA.

IN ORDER TO PRESERVE THE BAD

PARAHETERS

STARTING CYLINDER
ENDING CYLINDER
STARTING TRACK
ENODING TRACK
STARTING SECTOR
ENDING SECTOR

PATTERN

(808040088 0880000888080000 400000800008 00800000800000008808080800008000080800044

004737
105737
001015

020400
002235

013746
012746
012746

002114
004432
000002

037344
037350
037354
037360
037362
037364
36 037370
37 037372
38 037374

104417
062706
005000
104432
001600

40
41
42
43
44
45
46
47
48
49

013737
113737
012737
012737
012737
013702
013703
013704
010423
005202

037454
037456
037462
037464

EXECUTES WRITE

:AS

SO
51
S2
53

RANDOM WRITE

;IN THE PACK AREA BONDED BY

THERE

037376
037404
037412
037420
037426
037434
037440
037444
037450
037452

18:

(IR0 AM000000000 0000000000004 0000000000480000000800000000R80040000400000880000800

s THIS

037332
037332
037336
037342

SEQ 0151

TEST

NS Ny,

18:

&g&%sggggmbumwoowuom:sum OVWD® N

TEST

“)
I1e

010600

001375
005737
003055
004737

T18::

JSR
TST8
BNE

PC.RPINIT

sINITIALIZE

WRTALL
1

MOV
MOV
MOV

TRAP
ADD
CLR
TRAP
. WORD

L$TEST, -(SP)
OWRTENM, -(SP)
02,-(SP)
SP,RO
CSPNTF
#6,5P
RO
CS$EXIT
L10113-,

;:DID OPERATOR WANT TO WRITE ON MEDIUM?
;B8R IF YES
;NOTIFY OPERATOR THAT TEST WAS NOT RUN

MOV
MOVB
MOV
MOV
MOV
MOV
MOV
MOV
MOV
INC
BNE
TST
B8GT
JSR

XTIMES, ITCNT
DRVNQO,DTADPB
0-256. ,0TADPB+4
QDBUFF ,DTADPB+6
OREG,DTADPB+14
OTADPB+4 ,R2
DTADPB+6,R3
PAT R4
R4,(R3).
R2
2
CLKSTA
TST18A
PC,RPINIT

MOV
000006

002250
002664
177400
042762
002754
002634
002636
002224

002244
002630
002634
002636
002644

1$:

2%:

002260
020400

THE

sCLEAR RO FOR

SUB-SYSTEM

TRAP

1SET ITERATION COUNT
s YES, PROCEED:
SET UP THE PAPAMETERS
;WORD COUNT SET TO ONE SECTOR
;BUFFER ADDRESS
;THE SAVED RHXX/RPO7 REGISTER TABLE
1 WORD COUNT
{BUFFER ADDRESS
;PATTERN
sFILL THE BUFFER WITH DEFAULT PATTERN
t INCREMENT THE WORD COUNT

;LOOP IF NOT DONE
i1P-CLK PRESENT?
s YES, EXEC RAND WRT TST + AD MRK DET
sINITIALIZE THE SUB-SYSTEM

TST

CZRULBO RPO7 FCTNL
TEST

18:

54
55
56
57
58
59
60
61
62
63
64

66
67
68

69
70

71
72
73
74
75

TEST MACRO
RANDOM WRITE TEST

037470
037474
037500
037506
037510
037516
037520
037524
037526
037532
037536
037542
03754¢
037552
037554
037554
037554

037556
037564
037570
037576

037602
037602
76 037604
77 037610
78 037612
037612
037614

037616

004737
004437

123727

001004
023727
001766
105737
001413
013702
013703
004737
013723
062702
100773

104402
112737
004437
112737
004437
104403
005337
001327

v04.00

012364
017716

DEC

12:59:38

TEST18;
1$:

002¢ a1

000037

002642

001165

002234

2s:

002634
002636
011712
011774
000001

34
4%
:

S$:
T18.1:

000161
015056
000151
015056

004437
0004C2
000137
004737
042777

015612

TST18A:

041146
015742
000101

1¢:

037642
037646
037652
037656
037662
037664

012746
012746
013746
012746
104437
062706

000300
041006
012230

037670
037674
037700
037704
037710
037712
037716
037720

012746
012746
013746
012746
104437
062706
005005
005037

037724
037730
037732
037736

105737
001413
013702
013703

152360

000003

000010
015740
002654
000003

1578

BEQ

MOV
MOV

JSR

MOV
ADD

BMIL

JSR

TRAP

DEC
BNE

TRAP

PC,RAND
$RP1,(R3).
#1,R2
44

C$ESUB
ITCNT

TEST18

9PRIO6, -(SP)
@T180FL, -(SP)
PKV, -(SP)
e3,-(SP)

MOV

OPRIOO, -(SP)

MOV

RPVEC, -(SP)
93,-(SP)

TS7T8

MOV
MOV

sGENERATE THE RANDOM STARTING ADDRESS

sMAKE

SURE

YOU DON'T

+ IS THIS THE LAST
;B8R

WRITE

TRACK

THE

BAD

SEC

$: IS THIS THE LAST USER CYLINDER ?
:BR IF YES
;sSELECT RANDOM PATTERN ?
;BRANCH IF NOT
sWORD COUNT

2'S COMPLEMENT

sBUFFER ADDRESS

sGERERATE NEW RANDOM NUMBER

;FILL THE BUFFER WITH RANDOM PATTERN
;FINISH ?
;LOOP BACK , IF NOT DONE

;DONE ITERATIONS
;B8R

IF NO

CSEXIT

MOV
MOV
MOV
MOV
TRAP
ADD

8EQ

1STOP THE Cl ICK

csBsSuB

R4 ,SRCHOO
1
XIT18
PC,STRTMR
€101,8PKCS

CLR
CLR

5EQ 0152

OWRTDAT ,DTADPB +2
;00 A WRITE DATA
R4 ,0RVCAL
AWCKD,DTADP+2
B
;00 A WRITE CHECK DATA
R4 ,DRVCAL

JSR
B8R
JMP
JSR
8IC

TRAP
ADD

TST188:

OTADPB+4
,R2
DTADPB+6,R3

L10113-.

MOV

002240

RANPAT
5%

.WORD

MOV

000010

002634
002636

cMP
BEG

JSR

037622
037624
037630
037634

002234

OTADPB+11,431.
24
DTADPB+12,0629.
13

MOVB

EXIT18:

Jle

cMPB
BNE

002632

104432
001360

PC,STOPCK
R4 ,RANADR

TRAP
MOV8

002244

JSR
JSR

002632

L10114:

PAGE

:MASS BUS INIT & RECAL
iNO RECAL ERROR, CONTINUE

;EXIT ON RECAL ERROR
; INIT THE TIMERS
;STOP THE P-CLOCK
;SETUP VECTOR IN CASE OF CLOCK OVERFLOW

C$SveC

10,5P

;SETUP RHXX/RPO7 VECTOR

Q00RTI, -(SP)

CeSVEC

910,5P
R5
TEMPO

RANPAT
24
DTADPB+4
,R2

OTADPB+6,R3

1SET COUNT-UP FLAG FOR COUNT SUBR
$CLEAR TEMPORARY LOST REVOLUTION COUNT
1 SELECT RANDOM PATTERN ?
1BRANCH IF NOT
tWORD COUNT 2'S COMPLEMENT
;BUFFER ADDRESS

FILE

CZRJULBO RPO7 FCTNL
TEST

18:

TEST MACRO v04.00
RANDOM WRITE TEST

96 037742
97 037746
98 037752
99 037756
100
101
102
103
104 037760

105
106
107
108
109
110

037764

004737
013723
062702
100773

011712
011774
000001

1%:

12:59:38 PAGE 67-2

JSR
MOV
ADD
BMI

PC,RAND
$RP1,(R3).
@1,R2
1

;:REDUCE

THE

JSR

R4 ,RANADR

CHMPB

DTADPB+11,631.

B8EQ

:SECTOR.
004437

017716

123727

002641

000037

002642

001165

037772
037774

001004
023727

040004
111 040010
112 040014
113 040022
114 040024
115 040030
116 040032
117 040036
118
119 040040
120 040042
121 040044
122 040050
123 040052
124 040056
125
126
127 040062
040062
040062
128 040064
129 040070
130 040076
131 040100
132 040106
133 040112
134 040120
135 040126
136 040132
137
138
139
140
141 040140
142 040146
143 040154
144 040156
145 040162
146 040170
147 040174
148 040202
149 040204
040210

113701
010137
032777
001006
162701

002640
002254
000004

062701
000411

000062

040002

1-DEC-83

001766

002002

2%:

142660

000002

001002
062701
062701

MOVB
MOV
BIT
BNE
SUB

B8GE

4% :

005701

001405
162701

BNE
CHP
3%:

5%:

000031
000031
000030

64:

7%
T18.2:

104402
010137
013777
110146

002252
002642

142626

012677

113766

002641

000001

013777
013777
012703
012777

142564

002634
002636
002502
000006

142552
142546
152064

IK12

ADD
BR

TARGET

SEG 0153

;GERERATE NEW RANDOM NUMBER
sFILL THE BUFFER WITH RANDOM PATTERN
sFINISH ?
;LOOP BACK , IF NOT DONE
SECTOR By 2,

3%
DTADPB+12,#629.
DTADPB+10,R1
R1, TRGSEC
¢ILV,3RPDS
54
02,R1

950. ,R1
74

TO COMPUTE

THE

VALUE

;GEN A RAND ADR: CYL, TRK,
sMAKE SURE YOU DON'T WRITE

;IS THIS THE LAST TRACK ?

THE 2ND LOGICAL

SEC
IN THE BAD SEC FILE

:BR IF NO
;IS THIS THE LAST USER CYLINDER

;BR IF YES

;GET TARGEY SECTOR ADDRESS TO WRITE AND
:SAVE IT FOR LATER.
+ IS INTERLEAVED SECTOR ENABLED ?
:1BR IF YES
;1BACKUP THE SECTOR ADDRESS FOR THE SEARCH

:BR IF < SECTOR O
;ADJUST FOR THE
sEXIT

ADDRESS BEFORE

TST

+IS

BNE
ADD
ADD

63
#25.,R1
#24. ,R1

;BR IF NO
s ADJUST FOR THE ADDRESS BEFORE SECTOR O
;REDUCE THE TARGET SECTOR BY 2

B8EQ
SuUB

64
925..,R1

IT SECTOR ADDR O

SECTOR O

:BR IF YES
:IS IT SECTOR ADDR 25 ?

:PREPARE TO SEARCH
TRAP
MOV
MOV
MOVB

csB8SuUB
R1,SRHSEC
DTADPB+12,8RPDC
R1,-(SP)

$SAVE SEARCH SECTOR FOR LATER
;CYL
;MERGE SECTOR

MOV

(SP)+ ,8RPDA

sLOAD

MOVB
MOV
MOV
MOV
MOV

OTADPB+11,1(SP)
DTADPB+4 ,8RPWC
OTADPB+6,8RPBA
071418,R3
06 ,8P <8

;AND TRK

TRK/SEC

;WRITE 1 SECTOR
;SET DATA BUFFER ADR
s TIMING LIMITS FOR COUNT SUBR
tALLOW > 6 REVOLUTIONS PER SEARCH:

13 FOR IMPLIED MAX SEEK (46 MSEC OR ABOUT 3 REVOLUTIONS)
+3 FOR WORST CASE SEARCH(SECT CMP ERR OR HOR CRC ERR)
012777
012777
000001
017746
042777
012677
032777
001534
004737
012702

000105
000131
152044
000101
152030
040000
010750
002630

152054
142514

152032

142500

MOV
MOV
WAIT
MOV
8IC
MOV
BIT
BEQ
JSR
MOV

9105, 8PKCS
OSEARCH,8RPCS1
8PKC, -(SP)
9101, 8PKCS
(SP)+,8PKB
481714 ,8RPODS
T1811s
PC.SAVREG
QDTADPB,R2

$START P-CLOCK:IE=1,COUNT DOWN,LINE FREQ
;START A SEARCH
tWAIT ON INTERRUPT
1SAVE THE CLOCK
1STOP THE CLOCK
tAND RESTORE THE COUNTED VALUE
;ERROR?
sNO - -BRANCH
1 1SAVE RO-R5
1OPB POINTER

CZRJULBO RPO7 FCTNL
TEST

18:

150
151
152
153
154
155

156

TEST MACRO
RANDOM WRITE TEST

040214
040220
040226
040234
040240
040244
040246
040246
040250
040256
040260
040264
040270
040272
040274
040300
040304
040310
040312
040314
040320

157
158
159 040324

160 040332
161
162
163
164
165 040340
040346
167 040354
168 040356
169 040362
170 040370
171 040374
172 040402
173 040404
174 040412
175 040420
176 040424
177 040426
040432
040436
040440
040442
178 040446
040452
040456
040460
040462
179 040466
180 040472
040472
181 040474
182 040502
183 040506
184 040514

004737
012777
013777
004737
004537
002630

104403
032737
001022
012746
012746
010600
104417
062706
012746
012746
010600
104417
062706
000137
012737
012777

024644
000040
002630
011002
012766

v0O4.00

DEC

12:59:38 PAGE

JSR

142452

MOV

142444

MOV

L10115:

000210

TRAP
BIT
BNE
MOV
MOV

002264

004511
000001

MOV
TRAP
ADD
MOV
MOV
MOV
TRAP
ADD

000004
004614
000001
000004
041112

000020
000006

JSR
J3R
OTADPB

JMP

002350
151664

8%:
9%:

MOV
MOV

67-3

L12

PC, SVRHXX
#CLR,aRPCS2

DTADPB, 8RPCS2
PC,RESREG
R5,ERRANY

5EQ 0154

:SAVE ALL THE RHXX/RP0O7 REGISTERS

;MASSBUS

CLEAR

:SELECT DRIVE
s sRESTORE RO-RS

;FIND OUT WHAT ERROR
CS$ESUB
BIT3!BIT7,SVSTAT
;RETRY ALLOWED
84
:BRANCH IS SO

#SEARERR, -(SP)
o1, -(SP)
SP,RO
CSPNTF
04 ,5P
QABOTST, -(SP)

SP,RO
CS$PNTF

#4,5P
T18END
€16. ,WCEFLG

06 ,3PKB

;RETRY
;ALLOW

16 TIMES
> 6 REVOLUTIONS PER SEARCH:

:3 FOR IMPLIED MAX SEEK

(46 MSEC OR ABOUT 3 REVOLUTIONS)

MOV
MOV
WAIT
MOV

:START P-CLOCK:IE,COUNT DOWN,LINE FREQ
$START A SEARCH

i3 FOR WORST CASE SEARCH (SECT CMP ERR OR HDR CRC ERR)

012777
012777
000001
017746
042777
012677
032777
001434
012777
013777
005337

001342

012746
012746
010600
104417

062706
012746

012746
010600

104417
062706
000137
104402
013777
005077
012777
012777

000105
000131

151644
000101
151630
040000
000040
002630
002350

151654
142314
151632

8IC
MOV
8IT
8EQ
MOV
MOV
DEC
BNE

142300
142266
142260

004550
000001

MOV
MOV

MOV

TRAP
ADD
MOV
MOV
MOV
TRAP
ADD

000004
004614
000001

000004
041112

002640
151516
000161
000121

T18.3:

142174
142154
151500

T1811%:

0105, 8PKCS

@SEARCH, 8RPCS1

8PKC, -(SP)
€101,8PKCS
(SP)+,aPKB
o8IT14,8RPDS
T1811%

OCLR,8RPCS2
OTADPB, 8RPCS2
WCEFLG
9
#SEABAD, -(SP)
o1, -(SP)

THE

CLOCK

:STOP THE CLOCK

1AND RESTORE

THE

+ERROR?
;EXIT IF NONE
:MASSBUS CLEAR
+DRIVE ADDRESS
;OVER RETRY LIMIT
$BRANCH IF NOT

COUNTED VALULE

04,5P

QABOTST, -(SP)

SP,RO
CSPNTF

04,5P
T18END

TRAP
MOV

cs8SUB
OTADPB+10,8RPDA

MOV
MOV

$SAVE

SP,RO
CSPNTF

JHP

CLR

:WAIT ON INTERRUPT

8PKB
QUWRTDAT ,8RPCS1

#121,8PKCS

sOTHERWISE EXIT

1SET TRK/SECT TO WRITE

;CLEAR P-CLK BUFFER COUNT

1START A WRITE
1START THE CLOCK.IE=1,UP,SINGLE,10US

CZRJLBO RPO7 FCTNL
TEST

18:

185
186
187
188
189
190
191

TEST MACRO v04.00 1-DEC-83

RANDOM WRITE

040522
040524
040530
040536
040542
040550
040552
040556
040562
040566
040574
040602
040606
040612
040614
040614
040616
040624
040626
040632
040636
040640
040642
040646

000001
017746
042777
012677
032777
001437
004737
012702
004737
012777
013777
004737
004537
002630

200 040650

004737

192
193
194
195
196
197

igg

201 040654
040660
040664
040670
040674
040676
202 040702
203 040710
204 040712
205 040716
040716
206 040720
207 040726
208 040730
209 040734
040736
040740
040742
210
211 040744
212 040752

213
214 040754
040760
040764

040770
040774

040776

gig 041002

217 041006

104403
032737
001411
012746
012746
010600
104417
062706
000521
013746
012746
013746
012746
104437
062706
112737
104404
004437
104405

TEST

151476
000101
151462
040000
010750
002630
024644
000040
002630
011002
012766

000040

142104
142076

002264

000004

016212

T1812%:

002656
023046
002654
000003
000010
000151

002632

015056

100004
:

023737
002057

002326

013746
012746

002656
015740

002240

002250

1%:

012426

TRAP
BIT
8EQ
MOV
MOV
MOV
TRAP
ADD
BR

C$ESUB
MBITS,SVSTAT
718124
OPOSERR, -(SP)
1, -(SP)
SP,RO
CSPNTF
94,SP
T18END

JSR

PC,.COUNT

MOV
MOV
MOV
MOV
TRAP
ADD
MOVB
TRAP
JSR
TRAP

cHP
8GE

MOV

000003

004737

aPKC, -(SP)
2101, 8PKCS
(SP)+,aPKB
#81T14,8RPDS
T1812%
PC,SAVREG
Q0TADPB,R2
PC.SVRHXX
OCLR,aRPCS2
OTADPB, 8RPCS2
PC.RESREG
RS,ERRANY

MOV
MOV

002654

000010

WAIT
MOV
BIC
MOV
BIT
8EQ
JSR
MOV
JSR
MOV
MOV
JSR
JSR
OTADPB

cHP
BEQ
INC
TRAP
.WORD
.WORD
.WORD

002240

062706

000137

142132

004633
000001

002320

012746
104437

151464

L10116:

023737
001406
005237
104455
000064
007521
010560

013746

12:59:38 PAGE 67 4

MOV
TRAP

T180FL:

RPVEC+2, -(SP)
QISRV, -(SP)
RPVEC, -(SP)
e3,-(SP)
CsSveC
#10,5P
MICKD,DTADPB+2

C$BSEG
R4 ,0RVCAL
C$ESEG

TIM.UP+6,TEMPO
18
TEMPO
CS$ERDF

5EQ 0155
¢WAIT ON INTERRUPT
:SAVE THE CLOCK
:STOP THE CLOCK
;AND RESTORE THE COUNTED VALUE
tERR=1?
$NO - -BRANCH
: 1SAVE RO RS
;0PB POINTER
;SAVE ALL THE RHXX/RPO7 REGISTERS
$MASSBUS CLEAR
+SELECT DRIVE
: sRESTORE RO RS
;FIND OUT WHAT ERROR

;POSITION ERROR?
:NO, CONTINUE

;COUNT

TIME

SEARCH DONE WRITE DONE

;D0 A WRITE CHECK DATA CMD
;D0 RECALIBRATE
;ANY LOST REVOLUTIONS ?
$BRANCH IF NO
;UPDATE TEMPORARY LOST REVOLUTION COUNT

52
EM52
DH52

;SETUP RHXX/RPO7 VECTOR
TIM.UP+14 ,XTIMES
;REPEATED 1024 TIMES?
T18END
+YES, CONCLUDE TEST
;SETUP RHXX/RPO7 VECTOR
RPVEC+2, -(SP)
®DO0RTI, -(SP)

RPVEC, -(SP)

JMP

3,-(SP)
Cs$SVEC
€10,SP
TST188

; CONTINUE

JSR

PC,FORSEC

iRESET

ADD

037724

TIMER TO 4

SEC,

CHANGE CLK

SERVICE AD

CZRJLBO RPO7 FCTNL
TEST

18:

TEST MACRO vO4.00
RANDOM WRITE TEST

~18
219 041012
041016
220 041020

041024
041030
041034
041042
041050
041054
041062
041070
041076
221 041102

041104
041106
041110
222 041112
041112
041120
223 041126
224
225 041132
041132
041136
226 041140
227 041144
228 041146
229 041146
041152
041156
041162
041166

041170

246
247 041174
041174
248

255

012700
104441
004737
012702
004737
012777
013777
016102
016237
116237

116237
004737
104456
000024
006201
007672

010750
002630
024644
000040
002630
000014
000036
000006
000007
011002

000040
002630
012000

004437
002502
004437
002542

016504

104401

12:59:38 PAGE

000000

012777
013777
004737

013746
01c746
013746
012746
104437
062706

1-DEC-83

MOV
TRAP
JSR
MOV

JSR

141636
141630

MOV
MOV
MOV
MOV
MOVB
MOVB

002276
002302
002300

T18END:

9PRIOO,RO

C$SPRI

PC,SAVREG

QDTADPB,R2

PC, SVRHXX
OCLR,9RPCS2

ODTADPB, 8RPCS2
14(R1),R2
36(R2),CYL.RD
6(R2),SEC.RD

SEG 0156

;OROP THE PRIORITY
: s SAVE RO-RS
;OPB POINTER
$SAVE ALL THE RHXX/RPO7 REGISTERS

$MASSBUS CLEAR

TRAP
. WORD

7(R2), TRK,RD
PC,RESREG

. WORD
.WORD

CS$ERHRD
20
eEM20
DH44

MOV
MOV

JSR

OCLR,8RPCS2
DTADPB, 8RPCS2

PC,ST.CLK

:CLEAR THE MASSBUS
;€ SELECT ORIVE

JSR
T1418

R4,TYPTIM

;GO TYPE

: INITIALIZE THE CLOCK

TST18C:

016354

002656
023046
002654
000003

;SELECT DRIVE
s ADDRESS OF SAVED REGISTER TABLE
$GET CURRENT CYLINDER
;GET CURRENT SECTOR
;GET CURRENT TRACK
: ;RESTORE RO-RS

JSR

141560
141552

X1T18:

000010
L10113:

SP1418
MOV
MOV
MOV
MOV
TRAP
ADD

.EVEN
TRAP

R4 ,SPTYP

RPVEC+2, -(SP)
@ISRV, -(SP)
RPVEC, -(SP)

C$SVEC

010,5P

CS$ETST

;POINTER

THE

TIMES

:SETUP RHXX/RPO7 VECTOR

PARAME TER CODING MACRO vVO4.00
TESYT 18: RANDOM WRITE TEST

DFC

2
13

.SBTTL

a4
45

3EQ G157

HARDWARE PARAMETER CODING SECTION

$®

a7
48

SO
51
52
53 041176
041200
54
55 041200
041202
041204
041206

THE HARDWARE PARAMETER CODING SECTION CONTAI'«ws MACROS
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES.
THE

MACROS

INTERPRETED By

ARE

NOT

EXECUTED

THE

AS MACHINE

MACROS ALLOW THE SUPERVISOR
WITH THE OPERATOR.

000022

L $MARD:
:

000031
041244
160000

. WORD
. WGRD

T4CODE

ARE

'HE

TO ESTABLISH COMMUNICATIONS

sPRINT

RPCS1

s PRINT

VECTOR ADRS?:

ADRAS?

MESG1

TS$LOLIM
TSHILIM

001031
041257
000000
000377

T4CODE
MESG2
TSLOLIM
TSHILIM

041220
041222
041224
041226
041230

002032
041273
000340
000000
000007

T$CODE
MESG3

041232
041234
041235
041240
041242

003032
041304
000007
000000
000007

T$COOE
?ESGC

;s PRINT

‘BR LEVEL?’

;PRINT

"DRIVE

340

TSLOLIM
TSHILIM

L10117:

122
126
102
104

BUT

.WORD L10117-L$HARD/2
. WORD
. WORD

177777

INSTRUCTIONS

SUPERVISOR AS DATA STRUCTURES.

041210
041212
041214
041216

041244
63
67 041244
68 041257
69 041273
70 041304
71
12
76

.TITLE PARAMETER CODING

12:59:38 PAGF

120
105
122
122

103
103

040
111

MESGL:
MESG2:
MESG3:
MESGA:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

.EVEN

/RPCS1 ADRS/
/VECTOR ADRS/
/BR LEVEL/
/DRIVE o/

PARAME TER

CODING MACRO

VO4.00

DEC

N Dl
e

SOF TWARE PARAME TER CODING SECTION

12:59:38 PAGE

.SBTTL

€0 4158

SOF TWARE

PARAMETFR CODING SECTION

THE SOF TWARE PARAMETER CODING SECTION CONTAINS MACROS
THAT ARE USED BY THE SUPERVISOR TO BUILD P TABLES.
THE
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE

INTERPRETED BY

THE

SUPERVISOR AS DATA STRUCTURES.

MACROS ALLOW THE SUPERVISOR
WITH THE OPERATOR.

THE

TO ESTABLISH COMMUNICATIONS

O®D T

041314
041316

000116

041316
041320
041322

015130
041552
000001

. WORD
. WORD
. WORD

T$COOE
PARMSG

056044

. WORD

T$COOE

041354
0413545
041360
041362

002052
041636
001777
000001
001164

21
22 041352

23
24 041364
041366
041370
041372
041374
25
26 041376
041400
041402
041404
041406

004052
041672
000037
000001
000037

041412
041414
041416
041420

005052
041710
000037
000001
000036

27
28 041410

29
30 041422

003052
041654
000037
000000
000036

006052

DRIVE PARAMETERS?’

sGO 10 1$

IF NO

;PRINT

*STARTING

CrL2?

;PRINT

"ENDING

CrL?:

;PRINT

* INCREMENT

CriL?’

1 PRINT

‘STARTING

TRK?'

;PRINT

' ENDING

TRK?

i PRINT

* INCREMENT

TR«?2’

sPRINT

"STARTING

SEC?’

1777
TSLOLIM
TSHILIM

T$COOE

LCMSG
1777

TSLOLIM
TOHILIM

§ 55555 35385 88

001052
041620
001777
000001
001165

"CHANGE

FCMSG

T4COOE
ICMSG
1777
TsLOLIM
TSHILIM
T$COOE

FTMSG

37
TSLOLIM
TOHILIM
T$CODE

LTMSG
37

TOLOLIM
TSHILIM

T$CODE

ITMSG
37

TSLOLIM
TSHILIM

041340
041%42
041344
041346
041350

sPRINT

T3CO0E

041330
041332
041334
041336

000052
041602
001777
000000
001164

.WORD L10120 L$SOFT/2

15
16 041324
17
18 041326

LSSOFT::

T$CODE

N
PARAME TER CODING MACRO vO4.00

DEC

SOF TWARE PARAMETER CODING SECTION
041424
041426

041430
041432

31
32 041434
041436
041440
041442
041444
33
34 041446
041450
041452
041454
041456
35 041460
37
38 041460
041462
041464
39
40 041466

43
44

041470
041472
041474

12:59:38 PAGF

041726
000077
000000
000060

. WORD
. WORD

TSHILIM

007052
041744
000077
000001
000061

. WORD
. WORD

T$CODE
LSMSG

. WORD
. WORD

TSLOLIM
TSHILIM

010032
041762
177777
000000
177777

. ®WORD
. WORD
. WORD
. WORD
. WORD

T$CODE
PATMSG

014120
042000
000400

. WORD
. WORD
. WORD

T$CODE
WRITMG
400

007044

. WORD

T$CODE

.WORD

T$CODE

. WORD

18:

014120
042047
000400

- WORD

F SMSG

17
TSLOLIM

041476
041500
041502
48 041504
49 041504
041506
041510

014130
042202
000001
011130
042261
000001

. WORD
2s:

.WORD

. WORD

sPRINT

'DATA

sPRINT

‘DO

SEC?’

PATTERN?’

177777

TSHILIM

YOU WANT

:GO TO 2%

IF NO

tPRINT

CUSTOMER

‘!

WRITE

DATA

WILL

ANYWHERE

ON MEDIA?’

OVERWRITTEN

CONTINUE?

WRSAFM

400

;PRINT

'USE

RANDOM DATA PATTERNS

;sPRINT

'PERFORM READ

;PRINT

‘TYPE

sPRINT

' INMIBIT

;PRINT

‘' TIMING

tPRINT

'STALL

FOR RANOOM

WRI

T$CODE

RPATMG

. WORD

51 041512
011130
041514
042331
041516
000400
52
53 041520
013130
041522
042353
041524
000400
54
STEAD OF 2 MSEC?’
55 041526
012130
041530
042405
041532
000001
56
NG TESTS?
57 041534
012130
041536
042501
041540
000400

. WORD
. WORD
. WORD

T4CO0E
TIMMSG
400

. WORD
. WORD
. WORD

T$CODE

400

. WORD
. WORD
.WORD

T$COOE
STLTIM
1

. WORD
. WORD

.WORD

T$CO0DE
STALMG

400

004044
013130
042566

.WORD
.WORD
. WORD

T$CODE
T$CODE
STALRM

60 041544
04154¢

'ENDING

TS$LOLIM

T$CODE
ROHOMG
1

58
59 041542

sPRINT

ST?
47

EQ 6159

TIME

HEADER

& DATA DURING

SEEKS?'

REPORTS?’

SOF T'JARE

TIMEOUTS?'

STOMSG
TESTS,

AFTER

1GO TO 3% IF NO

STALL

EVERY

BETWEEN

DRIVE

SEEKS:

FUNCTION

RANDOM

IN NON

TIMI

PARAMETER

CODING MACRO v04.00

1-DFC

SOF TWARE PARAMETER CODING SECTION
041550
ol 041552
e

000001

12:59:38 PAGE

e
76
77
78
79

80
81
82
83
84
85
87
88
89
90
92
93
94
95
96
97

041552

L10120:

041552
041602
041620
041636
041654
041672
041710
041726
041744
041762
042000
042047
042120
042171
042202
042261
042331
042353
042405
042501
042566

100
110
111 042616
112
113 042762
114 073762
115
122
074762
074764
074766

110
124
116
116
124
116
116
124
116
101

117

011
011

117
123
105
131
116
111

124
123

101
101

103

101

103

PARMSG
;
FCMSG:

LCMSG:
ICMSG:

FTMSG:

LTMSG:
ITMSG:

101

FSMSG:

124

PATMSG:

040
041

055
116
105
122
120
0
115
101
105

LSMSG:

WRITMG:
WRSAFM:

RPATMG:
RDHOMG
:
TIMMSG:

STOMSG:
STLTIM:
STALMG:
STALRM:

EL?

69-2

. WORD

206 5160

.EVEN

.ASCIZ
.ASCIZ
.ASCIZ
+ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCII
.ASCII
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/CHANGE DRIVE PARAMETERS/
/STARTING
CvyL/
/ENDING
CvLs
/INCREMENT CyL/
/STARTING
TRK/

/ENDING
+ INCREMENT

TRK/
TRK/

/STARTING
SEC/
/ENDING
SEC/
/DATA
PATTERN/
/D0 YOU WANT TO WRITE

<BELL>/

ANYWHERE

ON MEDIA/

CUSTOMER DATA WILL BE OVERWRITTEN

!/<CR><LF>

BELL»/ ----c-ciemi
e ieie s el
---/CONTINUE/
/USE RANDOM DATA PATTERNS FOR RANDOM WRITE
/PERFORM READ HEADER & DATA DURING SEEKS/
/TYPE TIME REPORTS/

TEST/

/TIMING

INSTEAD OF

7INMIBIT

SOF TWARE

TESTS,

-/<CR><LF>

TIMEQUTS/

STALL

BETWEEN SEEKS:

/STALL AFTER EVERY DRIVE
/USE RANDOM STALL TIMES/

FUNCTION

RANOOM

IN NON

TIMING

WORDS)

2 MSEC/

TESTS/

.EVEN
$PATCH;
: .BLKW

50.

;PROGRAM PATCH AREA (50.

DBUFF
::

256.425,
256.

;DATA BUFFER FOR HALF A TRACK
{ONE SECTOR EXTRA FOR MID-TRANSFER SEEK

075002

LSLAST::

.BLKW
.BLKW

.EVEN
.WORD T4$FREE
.WORD T$SIZE

TEST

PARAME TER

CODING MACRO

v04.00

DEC

SOF TWARE PARAMETER CODING SECTION
1
14
16 074766
074770
074772
17

18
19
20
21
23

074772
074774

074776
075000
075002

12:59:38 PAGE

000000
000004

176700

L10121:

000254
000240
000000
000001

L10123:

.END

F13

5EQ 0161

.WORD
.WORD

0
L10123-.72

. WORD
.WORD
.WORD
.WORD

176700
254

240

OLTY
oMO
OORTI
DOTWO
DPB.A
0PB8.8
0oP8.C
OPE
=
DPINT
DOPRQS
DRVACT
DRVCAL
DRVCLR=
ORVINT
DRVNO
ORVQUE
DRVSN
DRVSTA
020310
020320
ORVTYP

DSNMSG
DTADPB
DTE

DTUW
=
DVA
DvC
.
ECH
=
ECI
=
EF .CON=
EF .NEW=
EF .PWR>=
EF .RES=
EF.STA=
EMPTYQ

€M1

EM11
EM12
EML3
EM14
EM1S
EM16
EML17

EM2

EM20
EM21
EM22
EM23
EM24
EM25
EM26
EM27
EM3
EM30
EM31
EM32
EM33
EM34
EM3S
EM36
EMA

004403
002630
010000
020376
004000
000200
000100
004000
000036
000035
000034
000037
000040
025432

005420
005733
005755
005776

006017
006054
006121
006154
005465
006201
006250
006274
006324
006360
006417
006455
006525
005527
006564
006641
006703
006726
006746
006763
007017

005605
007054
007107
EM4A3
007134
EMA4
007156
EMAS
007224
EMA6
007255
007305
EMA7
EMS
005627
EMSO
007335
EMS51
007427
EMS2
007521
EMS54
007547
EMSS
007610
EM6
005647
EM?
005705
= 040000
ERR
ERRABO
015214
EM41
EM42

ERRANY
ERRVEC
EVL
=
EWN
.
EXECMD
EXINIT

EXIT1
EXIT11

EXIT12
EXIT13

EXIT14

EXIT1S
EXIT16
EXITL1?
EXIT18
EXIT2

EXIT3
EXITA4
EXITS
EXIT6
EXIT7
ES$END =
ES$LOAD=

FC
FCHMSG

FER

FMTIRK =
FMT16 =
FORSEC

F$AU
=
F$AUTO=
F$BGN =
F$CLEA=
F$OU
=
F$END =

F $HARD
=
F$HW
=

F$INIT=
FSOMP =
F$MOD =
FIMSG =
F$PROT
=
FIPWR =
F$RPT =
F$SEG =
F$SOFT=
F$SRV =
F$SUB =
F$SW
=
FYTEST=

012766
000004
000004 G
000002 G
015160
026410
027026
034202
034434
034624
034724
036406
037000
037330
037612
027136
027362
027576
030034
030142
031172
002100
000035
002204
041602
000020
000163
010000
012426
002220
041726
002212
041654
005167
000015
000020
000040

(2121~

000007
000047
000033
000003
000021
000025
000046
C$SPRI= 000041
CS$SVEC- 000037
C3$TPRI= 000013
OBUFF
042762
= 100000
DCK
OCu
= 000040
DELTA
002352
OFPTBL
002172
DH25
010702
OH25A
003067
DH44
007672
DH44A
003105
DH44D
003154
DH44E
003203
DHAAF
003274
DHA4G
003354
DH44H
003445
003525
DHA4I
DHa4
Y
003617
OHA4K
003701
DH4AL
003721
OH4S
010366
OH45A
003740
0H458
003771
OH45C
004027
0H450
004104
010560
DHS2
DH52A
004172
DH528
004246
DIAG
000135
OIAGMC
000000

OOOOONOOOD

C$RDBU=
CSREFG=
=
CS$RESE
CSREVICSRFLA=
C$RPT =
C4SEFG=

OO0

5FEQ 0162

OOOONONONOOOOONNOOONANONOONNONOONNON

002304
002276
000052
000061
000022

OO0 OOOOOOOOOOOOOOOOOOO

022536
022552
022624
102260
000040
025350
100000
026276
016212
016012
000015
003064

OO0

C17
CI178
cI18
CLKSTA
=
CLR
CLRQUE
CMOD
CONTIN
COUNT
COUNT2
=
CR
CRLF
CrL.DS
CYL.RO
CSAU
~
CS$AUTO=
C$BRK =
C$BSEG=
cs8SUB=
CS$CEFG=
C$CLCK=
CS$CLEA=
C$CLOS=
CsCLP1=
CS$CVEC=
CSOCLN=
C$DODY=
CSORPT=
CsOU
=
CS$EDIT=
CSERDF
=
CSERHR~
C$ERRO=
CSERSF
«
CS$ERSO=
C$ESCA=
CSESEG=
CS$ESUB=
CSETSTCSEXIT=
C$GETB=
C$GETUW=
CS$GMAN=
C$GPHR=
C$GPLO=
C$GPRI=
CS$INIT=
CSINLP=
COMAN]I
=
C$MEM =
C$MSG =
CS$OPEN=
C$PNTB=
=
C$PNTF
C$PNTS=
CIPNTX=
CtQIO =

12:59:38 PAGE

OO0

DEC 83

(21~}

Vv04.00

OO0

022452
022474

MACRO

)

BELL
B8ITS
8IT0
81100
8ITO01
BITOR
B8ITO3
BITO4
BITOS
BITO6
8IT07
8IT08
8IT09
8IT1
8IT10
B8IT11
BIT12
B8IT13
B8IT14
BIT1S
BIT2
BIT3
BIT4
BITS
BIT6
BIT?
BIT8
BIT9
B0E
B8SE
BYPASS
CALL.A
CALL.B
CALL.C
CHANGE
CHKAVG
cI1
C13
CI4
CIS
C1s6

ADR
=
AOE
=
ASSEMB
=
ATA
.
ATABIT
AVERAG
AVERGE
AVGVAL
Al6
AL7

015406
026334
004614
020354
020355
014322
000020

ABORT
ABOTST
ACTDRY
ACTSTR
ADJUST

QOO0
OO0OOO0

ABOPAS

PARAMETER CODING
SYMBOL TABLE

000007

000016
000041

GETREG= 000141
GETREQ
025526

HELP
HERTZ

IAE
IBE

s
s

2]}

OO0

HOE

ItSAU
=
I$AUT(Q=
ISCLN =
IOV
=
I$HRD =
IS$INITIsMOD =
I$MSG =
I$PROT=
I$PTAB=
ItPWR =
I$RPT »

LOE
LoY
LS
LSMSG
LST
LY
LTMSG
L$ACP
L$APT
L$AU
L$AUT
L$AUTO
LsCCP
LSCLEA
L$CO
L $DEPO
L$DESC
L $OESP
L$DEVP
L$DISP
LeDLY
L$DTP
LsOTYP
LeDV
LeOUT
LeDVTY
LSEF
LSENVI
LSETP
LSEXPL
LSEXP4
LSEXPS
L $HARD
LSHIME
L $HPCP
LSHPTP
Lk
LsICP
LS$INITY
L$LADP

002070
026654
002106
026656
002032
002011
003036
002076
002060
002124
002116
002040
002034
026746
002072

L10012
L10013
L10015
L10016
L10017
L10020

L10021
L10022

L 10023
L10024
L10025
L.10026
L10027
L10030
L10031
L10032
L10033
L10034
L10035
L10036
L10037
L10040
L10041
L10042
L10043
L10044
L10045

002202
002240
010364
010556
010700
010746
012424
012516
012670
015740

023114
025622
026652
026654
026744
026752
026760
027030
027026
027136
027062
027116
027370
027252
027336
027604
027466
027552
030034
027656
027666
027730
027740
030002
030012
030142
030110

MCPE
MOPE
MESG1
MESGR2
MESG3
MESG4A

MSGABV
MSGAVG
MSGBEL
MSGLMT

MSGMAX
MSGMIN
MSGNON
MSGNUM
MSGOPE
MSGSEA
MSPGE =
MSSC
=
MxF
MASEEK

NC1

017313
017270
017615
017506
017563
017533
002000
100000
001000
005055
002266
002270
010000
005270
004000
004317
000101
005362
002274
002272
011532
000115
005327
000001
004736
000001
022000
021364

030120
031220
030426
030732
032210
031306
031534
031726
033124
032464
032632
034002
033372
033536
034206
034154
034434
034326
034402
034624
034546
034610
036142
034722
035312
035656
036420
036300
036324
036376
037006
036556
036606
036702
036732
037330
037224
041174
037602
040246
040614
041244
041552
074772
075002
000145
005122
020000
000400
041244
041257
041273
041304
017434
017336
017362
005221

OOOOOOOOOOOOOGD

(2121

HCI
HCRC

LKV

(2121~}

G$XFER=
GS$YES =
HCE
=

L10046
L1004?
L10050
L100S1
L10052
L10053
L10054
L10055
L10056
L10057
L10060
L10061
L10062
L10063
1.10064
L10065
L10066
L10067
L10070
L10071
L10072
L10073
L10074
L1007S
L10076
L10077
L10100
L10101
L10102
L10103
L10104
L10105
L10106
L10107
L10110
L10111
L10112
L10113
L.10114
L10115
L10116
L10117
L10120
L10121
L10123
MAINT
MARK

OO0

GS$PRML
=
G$RADA=
G$RADB=
G$RADD=
G$RADL
=
G$RADO=

074766
002100
002074
002050
002000
002042
025624
002112
002062
002010
025616
041316
002056
002020
002024
002030
002204
002114
002014
002012

L8C
LC
LCE
LCLKTB
LCMSG
LOCMD
LF
=
LKS

=
G$PRMA
G$PRMD=

LSLAST
L$LOAD
LSLUN
L$MREV
L $NAME
LS$SPRIO
L$SPROT
L$PRTY
L $REPP
LSREV
LS$RPT
L$SOFT
L¢$SPC
L$SPCP
L$SPTP
L$STA
L$SuW
L$TEST
L$TIML
LSUNIT
L10000
L10001
L10002
L10003
L10004
L 10005
L 10006
L10007
L10010
L10011

5EQ 0163

OSERRT=
OSGNSW=
O$POIN=
0$SETU=

G
G
G
G

PARMSG
PAT
PATMSG
PCLKTB
PGE
PHF
PKB
PKC
PKCS
PKV
PNT
=
POPQUE
POSERR
PRI
PRIOO =
PRIOL =
PRIO2
PRIO3
PRIOA
PRIOS
000240

2]}

KWSRYV

000041
000041
000041
000041
000041
000041
000167
012414
002000 G
002206
001000 G
012234
041620
012724
000012
012236
012240
040000
000010
002222
041744
002000
002214
041672
002110
002036
026754

H1%

70-2

(2121212121
T 21~ B 7]

GINO
=
G$OFFSs=
G$OFSI=

12:59:38 PAGE

OO0 OOOOOOOOOOODOO0

I$SEG =
I$SETU=
IS$SFY
I$SRYV
Iss5uB
I$TST
JSIMP

DEC 83

GSCNTQO=
GS$DELM=
G$DISP=
GS$EXCP=
GSHILI=
GSLOLI=

TABLE

Vv04.00

OOOOOOOOOOOOOMNOONONOD

SYMBOL

CODING MACRO

OO0

PARAMETER

PARAME TER CODING MACRO v04.00

SYMBOL

PRIO6
PRIOT

TABLE

=
=

PSTACK
QCNY
QORVO
QDRV1
@QDRV2
QORV3
@QDRv4
QORVS
QDRV6
QDRV7?
QINPT
@QOUTPT
QSTART
QSTOP
QTERP =

RANADR
RAND
RANPAT
RODAT =
ROHDO
=

ROHOMG
ROTD
=
RDY
=
RD.RP

000300 G
000340 G

RPLA
RPMR1

011666
025056
025150
025170
025210
025230
025250
025270
025310
025330
025066
025106
025126
025130
025350

RPOF
RPSN
RPSTUO
RPSTUL
RPSTU2
RPSTU3
RPSTU4
RPSTUS
RPSTU6
RPSTU?
RPTMR
RPVEC
RPWC
RPO7
RTC
=

017716
011712
002234
000171 G
000173 G

042261
000175 G
000200 G
024426

READIN= 000121 G

RECAL =
REDHDR

000107 G
002226

REG
002754 G
RELSE = 000113 G
RESREG
011002

REV
RHEXT
RHTYPE
RMR
=
ROTATE
RPADR
RPAS
RPATMG
RPBA
RPBAE
RPCC

005204
002660
002662
000004
004674
002652
002706
042202
002674
002740
002726

RPCS1

002670

RPCS2
RPCS3
RPDA
RPDB
RPDC
RPDS
RPDT
RPECL
RPEC2
RPER1
RPER2
RPER3
RPINIT

002700
002742
002676
002712
002724
002702
002716
002734
002736
002704
002730
002732
020400

G
G
G
G
G
G
G

G
G
G
G
G
G
G
G

G
G
G
G
G
G

DEC

12:59:38 PAGF

002710 G
002714 G

002722
002720
020200
020210
020220
020230
020240
020250
020260
020270
024104
002654
002672
021122
000117

G
G

G
G
G

RW1
= 002000 G
RWJ2
= 004000 G
RW3
= 010000 G
SAVREG
010750
SC
023304

SCTRWC= 177400 G
SsC11
023612
SC12
023702
SC13
023766

SC3

SCa
SCS5

SCé
SC8
SOF

023354

023360
023372

004427 G

016354
002520
002526
002534
002542
002512
020352
015612
002252
015410
002231
002356
002360

040501
002232

STALRM
STLTIM
STO
STOFLG
STOMSG
STOPCK
STRTMR
ST.CLK
ST.LCL
ST.PCL

042566
042405
024200
002233
042353
012364
015742
012000
012320
012246

SVCGBL=
SVCINS=
SvCsSuB=
SVCTAG=
SVCTST=

000000
000000
000000
000000
000000

SVRHXX
SVSTAT
S$LSYM=
70
TEMPO

TEST1
TEST10
TEST13
TEST14

TEST16
TEST17

G
G
G
G
G
G
SEEK
= 000105 G
SETFOR= 000147 G
SET.IE
025004
SFPTBL
002204 G
SIZE70
011034
SKI
= 040000 G
SPTYP
SP10
SP11
SP12
SP1418
SP?
SRCHMWT
SRCHOO
SRHSEC
STALL
STALLF
STALL1
STALL2

STALMG
STALRD

TEST1S

023534
023562
= 000020
SEABAD
004550
SEAERR
004511
SEARCH= 000131
SEC.DS
002306
SEC.RD
002302

SNODIGT

70-3

G
G
G
G

G
G

TEST18
TEST3
TEST4

SEQ 0164

75713
TST14A
TST1S

026770
033160
034450
034710

037470
027162
027414

033720
034004 G

T$FREE= 075002
T$GMAN= 000000
T$HILI= 177777

T11.1
T11.2¢
T11.5%¢

034100
034102
034156

TSLAST=
T$LOLI=
T$LSYM=
TSLTNO=
TSNEST=

000001
000000
010000
000022
177777

000000
000005
000003
000000
000001
000001

T$SAVL= 177777
TSSEGL= 177777
T$SEKO= 010000

027636
030066
030176
031252
032242
012214
012216
020356
042331
002230
002227

TIMT10

002452 G

002462
002472
002330
002346
002312
040000
002254
002354
002310
002300
020350
034330
034404

710.8%
T11

T$PTHVs
T$PTNU=

TESTS
TEST6
TEST?
TEST8
TEST9
TICKMS
TICKUS
TIMER
TIMMSG
TIMSTL
TIMTYP

TIMT11
TIMT12
TIM.ON
TIM.PT
TIM.UP
TRE
=
TRGSEC
TRKWC
TRK.0S
TRK,RD
TRNSWT
TST12
TST12A

T$EXCP= 000000
T$FLAG= 700040

T$PTAB= 010122

036510
037164

G
G
G
G
G
G
G
G
G
G

010001
010113

026762 G
027006
033130 G
033250
033252
033416
033404
033572
033550
033614

T$NSO =«
TS$NS1 =
TENS2 =
T$PCNT=

036162

036312
037616
037724
041132
012552
016504
002242 G
000001
013130
000024

T$$SW =
T$$TES=

T1
T1.1
T10
T10.1
710.1%
710.2
710.2¢
710.3¢%
710.4%¢
T10.7¢

TST18A
TST188
TST18C
TWOMS
TYPTIM
TYTIME
T$ARGC=
T$CODE=
TS$ERRN=

024644
002264 G
010000
023116
002240 G

034550
034736

T4SIZE=
T$SUBN=
T$TAGL=
T$TAGN=
T$TEMP=
TS$TEST=
T$TSTM=
T$T7STS=
T$$AU =
T$8AUT=
T$$CLE=

T$$DAT=

T$$DVU =
T$$HAR=
T$sHW =
T$$INI=
T$8$MSG=
T$$PC =
T$$PRO=
T$$PTA=
T$$RPT=
T$4SEG=
T$$SOF=
T$8SRV=
T$$SUB=

000006
000003
177777
010124
000000
000022
177777
000001
010021
010016
010017
010123

010020
010117
010000
010015
010005
000001
010014
010122
010013
010000
010120
010012
010116

T12
T12.1
T712.2
T13
T13.1

T13.1¢
T13.2
T14
T14.1

T14.1%

034210 G
034300
034354
034436 G
034514

034616
034556
034626 G
034714

035044

T14.2
T14.3

035126
035534

T1411¢
T1412¢
T1418
T1S
T15.1
T15.2
T15.3
716
T16.1
T16.2
716.3

035536
035712
002502 G
036144 G
036272
036310
036370
036422 G
036542
036560
036666

716.4

036704

T14.7¢
714.8%
714108

T17
117.1
T18
T18END
T180FL
718.1
718.2
T18.3
718118
71812¢
T2
T2.1
T2.11

035754
036060
035126

037010 G
0387162
037332 G
041112
041006

037554

040062
040472
040474
040650
027032 G
027054
027054

(N
027110
027110
027140 G
027244
027246
027254
027372 G
027460
027470
027606 G
027650
027652

15.31
75.4
15.5
15.51
75.6

027724
027732
027774
027776
030004

v04.00

16
16.1
T6.11
16.2
17
T7A
17.1
7.1
77.10%
17.2
T7.2%
77.20%
T7.3¢
T7.44¢
T7.7¢
T7.8¢
T8
78.1
T8.1¢

027660
027722

ABS.

075002
000000
ERRORS DETECTED:

DEC

12:59:38 PAGE

030036 G
030102
030104
030112
030144
002442
030312
030314
030440
030616
030620
030554
031016
030504
031032
031136
031222
031309
031376

70-4

18. 10¢
18. 2
T8, 28

18. 3
18, 38
18. 44
18. Ss
18. 63
18, 78
78. 8¢
78. 93
19
19, 1
19, 14
19, 2
19. 28
19. 34
19, 44
T9. I4)

631762
031412
031546
031604
031560
031570
031310
031774
032022
032126
031740
032212
032354
032336
032510
032476
032666
032644
032710

000
001

VIRTUAL MEMORY USED:
30464 WORDS
( 119 PAGES)
DYNAMIC MEMORY AVAILABLE FOR
71 PAGES

.CZRUILB/C=[20,0)SVC34R.MLB,[20,12]1CZRJLB.DOC,CZRILB.HIS,CZRULB

SEQ 0165
79.8¢%
UAM

UNIT

UNSMSG
UPE
VERIFY
WCE
WCEFLG
WCF
WCKD
WCKHOD
WLE
WOR
WRITMG
WRPAT
WRPATN

WRSAFM
WRTALL

033042
000200
002650
040000
005237
020000
015470
040000
002350
000040
000151
000153
004000
001000
042000
036544
036670
042047
002235

WRTDAT»
WRTENM
WRTTD =
WRT ,RP
WRYUNS=
xX1T14
XIT18
XTIMES
X$ALWA=

000161
004432
000165
024520
000400
036114
041146
002250
000000
X$FALS= 000040
X$OFFS= 000400
X$TRUE= 000020
$OIvV
011176
$MULT
011420
$PATCH
042616
$RNCON
011772
$RP1
011774
$RP2
011776
$SFLG
017714

O00

T2.2
12.21
T3
T3.1
T3.11
13.2
T4
T4.1
T4.2
T5
15.1
15.11

715.2
715.3

MACRO

CODING

TABLE

OO0
o

SYMBOL

OO0
OO

PARAME TER

PARAMETER

CODING MACRO VO4.00

BIT1S

BIT2
8IT3
8IT4
8ITS
BIT6
8IT?
8IT8
8IT9
8ITS
B80€E
B8SE

25-10=
25-8
25-14
12-7¢

12-8¢
30-45¢

18-67¢
35-1040

35-1100
27-24
11-57¢
12-88¢
7-278

12-74¢
17-38¢
33-65¢
14-18
33-66
18-14
11-57¢
11-57
11-57
11-57
11-57
11-57
11-57
11-57
11-57
11-57

11-57
11-S7¢
11-57¢
11-57¢
11-57¢
11-57¢
11-57¢
58-41
11-S7¢
37-163
11-S7¢
11-57¢
11-57¢
11-57¢
11-57¢
11-57¢
11-57¢
11-57¢
13-54¢
11-S7¢
12-166¢

DEC

2-29
33-35

32-84
32-17

25-13
25-15+
25-18
21-3%
21-31

44-11
44 -93¢9
56-61
36-148«
38-204»
28-6¢

6-3

33-48
33-61

25-25¢
25-268
25-21s
21-36
21-36
44-139
44-135
S56-74
36-197»
38-218+

)

12:59:38 PAGE

7-267

67 31
33-128#

69-36

69-86

26-160
25-274

30-60

34-34

34-59

52 34

63-100
38-5+

63 122
38-14+«

67-156
38 202

67-178

38-36

38-134

38-140

38-141

38-170

36-188

37-206

36-122
36-122

36-178
37-150

36-250
38-26

38-45
38-138

38-393
38-357

37-176
36-104

36-122

36-191

36-225

36-222
63-91
36-185
38-45

38-181
63-115
36-188
38-181

38-262
63-133
36-191
38-247

56-90

63-97

67-153

58-47

58-67

28-106

56-58

36-113
33-66
18-72¢
33-94¢

36-210
33-86¢

37-74

11-57¢
11-57¢
11-57¢
11-57¢
11-S7¢
11-57¢
11-57¢
11-57¢
11-57¢
11-57¢

27-176
13-64
13-65

5EQ 0166

66-27
33 125«
53-36

61-37

69-88
24-14

33-112+
52-39

61-33

7-278

7-320

33 54
33-118

27-111

53-31

67-67

67-97

37-204

38-294

38-329

38-394

38-391
67-147
36-222
38-250

56-52
67-i71
36-225
38-262

56-67
67-189
37-38
38-269

56-84

56-95

57-50

57-78

37-41

37-62

37-65

37-160

59-44

59-64

63-139

67-195

56-90

63-97

67-153

69-89

27-173

13-70
13-71
13-72
13-73
13-74
13-75
13-76
13-77
36-122

-17

13-66
13-67

13-68
58-61
13-69
37-176
27-179
27-183
27-186
27-189
27-192
27-195
27-198
30-25

28-37
36-217
38-247

27-32

27-201

g arflg

BELL
8ITO
8IT00
8ITO1
8IT02
8IT03
B8IT04
B8ITO0S
B8IT06
8IT07
8IT08
B8ITO9
BIT1
BIT10
BIT11
8IT12
BIT13
BIT14

2-16
33 31
22-25¢
23 14¢
69-1112

(CREF v04.00

$SSMFG
$$FLG
$DIV
SMULT
$PATCH
$RNCON
$RP1
$RP2
A16
AL7
ABOPAS
ABORT
ABOTSTY
ACTDRV
ACTSTR
ADJUST
ADR
AOE
ASSEMB
ATA
ATABIT
AVERAG
AVERGE
AVGVAL

TABLE

CROSS REFERENCE

IK13

PARAMETER CODING MACRO V04.00

CROSS REFERENCE

TABLE

BYPASS
Cs$Av

30-37
48-34
45-17

C$AUTO

C$BRK
C$BSEG
csBsuB

CS$CEFG
CsCLCK
CS$CLEA
C$CLOS

CsCLP1

C$CVEC
C$OCLN
C$DODV
CS$ORPT
Csou
CS$EDIT
CSERDF
CSERMR

CS$ERRO
CS$ERSF
CS$ERSO
CS$ESCA

CS$ESEG

CsESLB

CS$ETST
CS$EXIT

C$GETB
C$GETW
C $GMAN
C$GPHR
CsGPLO
C$GPRI
CS$INIT
CS$INLP
C$MANI
CeMEM
CMSG
CSOPEN
C$PNTB
CSPNTF

C$PNTS
CS$PNTX

13-174

1-2780
7-2784
7 2786
7-2788¢
7-2780

55-15

62-19
67-127
7-2786
7-278%4
7-2780
7-278#¢
7-2784
7-278¢
7-2780
7-2786
7-278¢
7-278%
7-2784
7-2784
7-278¢

27-103
27-203

7-2780
7-278¢
7-278¢
7-278%¢
7-278¢
7-278¢

55-17

62-25
67-152

7-278¢

63-165

7-278¢
66-33
7-278¢
7-278¢
7-278¢0
7-278¢
7-278¢0
7-278¢
7-278¢
7-278¢
7-278¢
7-278¢
7-278¢0
7-278¢
7-278¢
7-278¢
33-75
56-74

67-178

7-2784
7-278¢

1-DEC

(CREF v04.00

)

12:59:38 PAGE

S-2

L13
5EQ O167

44-11+

44-135+

67-203
50-62
55-18
62-28
67-180

51-18
56-44
63-30

51-25
56-76
63-71

52-46
57-25
63 124

52 4¢
57-41
64 37

53-41
57-69
64-42

26-16

26-35

44-98
30-45

44-100
44-102

64-34

44-101

46-18

46-21

46-23

30-23
27-35
27-113
56-112

30-27
27-42
27-118
57-102

30-31
27-47
27-123
58-84

30-35
27-52
27-128
59-79

51-20
56-57
63-32

S51-27
56-89
63-96

52-48
57-27
63-138

S51-31
65-85

44-103

S52-71
66-83
44-165

53-67
67-247

36-18

36-145

36-209

19-25

19-34

19-43

19-49

19-4
32-165
33-77
57-86
67-197

19-8
32-168

44 -29

19-28
32-173

58-69

19-24
32-171
44-71
59-66

19-10

19-11

19-13

46-26

47-33
7-323
30-19

27-27
27-108
31-22

67-205
50-67
55-20
62-34
67-194
50-68
64-63
44 -91

67-37

67-78

139«

46-24

53-44
58-34
64 -56

54-27
58-52
65-38

54 -30
59-29
65-42

54-42
59-49
65-63

54 45
60-32
65-67

54-57
61-20
66-52

54 -60
61-31
67-70

63-148
27-61
27-135

61-24

64-33
27-66
27-140
61-35

67-209
27-71
27-147
62-24

27-76
27-150
62-33

27-87
27-155
63-157

27-92
27-160
67-221

27-95
27-165

27-98
27-170

52-64
57-55
64 -39

53-43
57-83
64 -45

53-60
58-46
64-58

54-29
58-66
65-41

S54-32

59-43
65-47

54-44

59-63
65-66

60-44
65-72

54-47

54-59
61-25
66-60

54-62
61-36
67-75

54-67

55-25

56-120

57-110

58-92

59-87

60-52

61-45

62-38

56 -26

57-15

57-18

58-18

58-21

59-17

59-20

62-35

63-35

19-29
33-40

19-33
33-43

19-39

19-40
33-50

19-42
33-51

66-31

19-46
33-56
44-132
67-35

33-66
56-61
67-156

33-73
56-73
67-177

19-30

19-31

44-39

44-180

44-73

63-99
19-14

44-75

63-100
19-16

63-121

33-45
44 -85
63-122

44-114

19-17

19-21

19-22

44 -77

63-141

44-127

PARAMETER

CODING MACRO

CROSS REFERENCE

CsQIo
CSRDBLU
C$REFG

7-278¢
7-278¢
7-2780

CSREVI
CSRFLA
CSRPY
C$SEFG
C$SPRI
C$SVEC

7-2786
7-278¢
7-2784
7-2784
7-2786
7-2784
57-109
67-214
7-278¢
28-260
28-55¢
28-950
10-29¢
33-24
36-237

CS$RESE

C$TPRI
CALL.A
CALL.B
CALL.C
CHANGE
CHKAVG
Cl1

CI13

CIa
CIS
CIé
C17

CI78

CIs8

CLKSTA
CLR

CLRQUE
CMOD
CONTIN
COUNT
COUNT2
CR
CRLF
CYyL.OS
CYL.RD

DBUFF

OCK
ocu
DELTA

OFPTBL
DH25
OH25A
DH44

DHA4A

DH44D
DHA4E

DHAAF
OH44G

7-2786

36-240

TABLE

v04.00

(CREF

44-16

1-DEC

v04.00

36-45
26-94
58-29

36-147
26-126
58-83

36-199
26-135
58-91

36-254
26-155
59-26

46-10
26-170
59-28

56-110
36-36
59-86

57-100
44 -89

63-44

58-80
56-37
63-46

59-77
56 39
63-164

28-28
28-57
28-97

31-24
50-64
54-31

44-138
51-19
54-46

50-63
51-26
54-61

52-47
52-63
55 19

53-42
53-59

54 -28

54-43

54-58

55-16

37-171
37-110
37-33
37-130

37-160¢
37-37
37-142

37-44
37-148

37-48
37-166

37-57
37-170

37-61
37-172¢

37-68
38-30

44-80
46-11

44-95
56-54

46-14
56-69

56-24
56-86
59-78

57-13
56-97
59-80

29-18+

67-219
57-32
67-88

57-34
67-201

37-73
38-126

37-85
38-371

37-93

37-100

58-16
56-111

63-93

59-15
56-113
63-117

63-19
57-52
63-135

67-51
57-8¢C
63-156

31-20e
58-81e
31-17

32-21e
59-78s
32-49

63-156+
32-143

67-220+
60-26

61-15

27-76
27-150

27-87
27-155

27-92
27-160

27-95
27-165

27-98
27-170

37-52¢

26-31¢
36-37

37-191¢

S57-103
67-149
37-223

44 -88¢
56-103
58-50
69 88
19-24
19-29
19-4

16-32

38-58

S8-43
67-173
40-7¢

58-63
67-191.

26-102
44-94
S8-81
67-220

S7-58
58-72
69-89
19-33
19-31
19-31

57-88

59-47

59-69

63-144

67-200

19-42
19-37»
27-19s
16-80

19-48
19-40
28-12+
31-10s

32-173
28-32+
30-13s¢
31-11

44-29
28-61+
31-15s&
31-13

44-132
28-101s
56-111s
31-15

27-52
27-128
58-84

27-61
27-135
59-79

27-66
27-140
63-157

16-56

26-46s
37-224

63-26

63-78

64-25

65-22

66-38

9-9¢
19-456
18-40¢
19-3¢
27-103
27-203

30-19
19-46
27-27
27-108
30-23

30-31

30-35

64-33

27-35
27-113
30-27

27-42
27-118
56-112

27-47
27-123
57-102

18-43¢
18-44¢

19-8
19-10

18-45¢0
18-46¢

63-155
56-119
67-86

33-112¢
37-124

26-13s
32-11

18-42¢

S5EQ 0168

42-76

13-166
12-306

12-940
12-159¢
13-48¢

S-3

36-20
26-84
58-27
67-229

7-323

37-1540
37-108
37-23
37-119

16-8

PAGE

44-25

44-10

37-77¢
37-75
37-105
36-249
37-115
38-129

57-101
63-158
36-21
12-174¢
44-23
32-117¢
32-71¢
18-12
18-39¢
13-29¢
13-260

12:59:38

44-20

7-2788

36-232
37-50
37-94
36-171
37-104
37-178¢

37-181

)

27-81
27-158

19-4

19-11
19-13

58-85
67-222

67-43

59-40

69-113¢

59-60

57-101»

31-16

27-71
27-147
67-221

PARAMETER CODING MACRO V04.00

1-DEC 83

CROSS REFERENCE TABLE (CREF v04.00

DH44H
UHA41
DH44y
OH44K
DHA4L
DH4S
DH4SA
DH4SB
DHASC
DH45D
OHS2
DH52A
OH528
DIAG
OIAGMC
OLT
oMD
OORTI
D0TwWO
OPB.A

oPB.8

oPB8.C
DOPE
DPINT
DPRQS
DRVACT
DRVCAL

DRVCLR
DRVINT
ORVNO
ORVQUE
DRVSN
DRVSTA

DRVTYP
DSNMSG
OTADPB

18-47¢
18-48¢
18-49¢
18-50¢
18-S51¢
19-27¢
18-53¢
18-54¢
18-55¢
18-560
19-36¢
18-58¢
18-59¢
12-208¢

19-14
19-16
19-17
19-21
19-22
31-22
19-28
19-29
19-30
19-31
63-148
19-39
19-40
37-17

12-40¢
12-99¢
32-35¢
13-15¢
66-43»
16-3¢

27-50
37-20
56-39
57-20+
66-61
28-27
44-137
26-187+
28-77
S2-27+
53-52
55-9»
26-188+
28-118
55-11e
27-101

7-278

44-136s

16-27¢
28-75
52-25»
$3-50«
S54-63»
16-51¢
28-116
54 -65
12-157#¢
35-64¢
35-77¢
35-22¢
29-9¢
65-69
12-202¢

36-39
17-8¢

46-12

36-163

17-9¢
35-36¢

36-223
35-51¢
18-62¢

16-75¢
32-12s
56-54
57-39
$7-101
59-60
60-37s
61-29
63-25+
63-156

)

12:59:38 PAGE

S-4

N13
S5EQ 0169

67 209

7-278

36-63+
36-160
36-166
29-12
65-71

36-62¢
19-11

60-23
36-176

44 -126+

36-31s
37-228+
36-68+

44-114

19-37
32-13s
56-54
S7-43
57-103
59-60
60-38»
61-30s
63-26+
63-156

37-139

64-35
58-29
$7-94»
66-67+
28-32
S2-26+
28-56

64-62
59-28
60-31s

65-27
63-46
60-34

65-84
67-88
60-364

67-214
60-41«

52-45
53-58+
55-13»
28-96
44-107»
55-14+

28-32
S2-45«
28-58
S0-60e
52-554
53-61«
5$5-21¢
28-98
54 -20¢
55-22s

28-32
52-50
28-61
S0-61+
52-57
53-62

28-34
53-25»
28-61
$1-15Ss+
52-60+
53-64+»

28-36
53-45
28-61
51-16+
S2-62»
54-18+

28-101
S54-21»
55-23

28-101
54-26+

36-130+
36-243+
37-184+»
60-33
66-59

38-171
37-183s
37-194
62-20
67-72

38-173e
37-196
37-211s
62-29
67-74

38-159
19-40
62-13

38-174
19-46
63-23

36-32+
38-81
36-87«

36-33s
38-87
36-92+

19-38
32-14+

29-11
32-16
$6-70
§7-52
58-43
59-78
60-43s
62-13+
63-54
64-23s

57-34

57-92
66-63+
28-29
50-59«
26-190+
28-80
52-40s
53-5Sa
55-10s
26-191s
28-121
55-12e

36-79
36-211s

37-157s
57-26
66-57

36-155

19-29
61-12
40-47¢

44-106+

65-30s

65-48

65-50»

65-54+

65-73

65-7Ss

28-39

28-40s

28-42

28-44»

31-23«

44 -105+

28-63
51-17»
S52-65+
S54-19«

28-65
S51-21»
52-66
54 -25«

28-68
S1-22
52-68»
S4-33s

28-69+
51-24+
S$3-24¢

S4-40e

28-71
S51-28+
53-26+
S4-48»

28-73s
51-29
53-37»
54 -55s

28-101
54-34+

28-103
54-35

28-105
S4-41»

28-108
S4-49s

28-109«
S4-50

28-111
S4-56+

28-113»
S54-64+

38-239
37-212»+
38-19s
63-31
67-204

38-256»
38-78
38-89
64-38

38-241
38-123
64-44

38-26Se
38-133s
64-57

38-252+
65-40

65-44

65-46

65-65

36-38
64-23

44 -60s
64-28

44-63

44-105

44-106

44-107

44-108

44-113

44-114

36-34»
38-93
36-97+

36-43«
38-176
36-186

36-67+
38-257+
37-229«

44-64
44-67

36-119«

36-124»

36-153

36-158

36-183

36-219

64-29

64-31

29-13
32-18
56-86
S$7-54
58-45
59-78
60-45
62-14s
63-73
64-24+

29-18
32-21
56-86
S57-61+
58-63
59-80
60-49+
62-15+
63-75
64-25+

29-18
32-21
56-88
57-66»
58-63
60-23»
61-12+
62-16+
63-93
64-26»

29-18
32-21
56-98
57-67
58-65
60-244
61-13»
62-17+
63-93
64-27»

29-20
32-23
S6-111
57-71
58-81
60-25+
61-14+
62-18+
63-95
64-35+

29-22
32-25
S6-111
57-80
58-81
60-26+
61-1Se
62-21
63-118
64-36+

29-36
34-33+
56-113
S57-80
58-85
60-27»
61-16+
62-27»
63-125
64-40

29-38
34-S57a
57-21»
57-82
59-40
60-28«
61-17»
62-30
63-135

29-44
34-83»
S7-24¢
S7-91+

29-45

65-20

66-36

67-41

44-127

$7-52

S58-43

59-62
60-42»
61-43
63-27s
63-158

36-76+

64-43.

59-40
60-29«
61-18+
63-234
63-135
64-46

34-108+

S57-38»
5$7-101
S9-42
60-30»
61-19s+
63-24+»
63-137
64-48

PARAME TER

CODING

CROSS REFERENCE

64 -53¢
65-34
65-84¢
66 64
67-64
67 149
27-719

12-85¢
12-172¢
11-57¢
11-S7¢
11-57¢
11-57¢
11-S7¢
18-86¢
18-94¢
18-95¢
18 9¢6¢
18-97¢
18-98¢
18-99¢
18-10n¢
18-87¢

27-83

EMaS

EM47

EMS0
EMS51
EMS2

18-102¢
18-103¢
18-1040
18-105¢
18-106¢
18-107¢
18-10%8¢
18-109¢
18-88¢
18-111¢
18-112¢
18-113¢
18-114¢
18-115¢
18-116¢
18-117¢
18-89¢
18-119¢
18-120¢
18-121¢
18-122¢
18-123¢
18-124¢
18-125¢
18-90¢
18-127¢
18-128¢
18-129¢

v04.00

DEC )85

TABLE (CREF vO4.00

64 S50
65 33
65 81
66 58¢
67-60
67-149
12 91¢
35-129¢
12-57¢
12-161¢@
7-278¢
7-278¢

EMA3

MACRO

36-27

A4-S54¢

65-39¢

12:59:%8 PAGF

64 -55«
65-43¢

66-36¢
66 -68+
67-65

66 69
67-71e

66-37e

64 -62¢

65-45.
66-38¢

S 5
65 20e

65-51e

Bid
5EQ G170

65 21
65-55e

67-174

66 73
67 73
67-181

66 39+
66 79e
67 94
67 191

66 40«
66 80«
67 95
67 191

36-235

37-49+

37-188.

37-199

37-213

27-132

27-133

57-102

58-84

59-79

63-157

67-221

67-151

61-39
7-323

44 -20

44-25
44-16

27-27
27-71
27-76
27-95
27-103
27-108
27-113
27-123
27-35
56-112
27-128
27-135

27-140

27-147
30-19
30-23
30-27
27-42
30-31
30-35
27-155
27-160
27-165
27-170
64-33
27-47
27-118
31-22
27-92
27-203
27-98
27-150
27-87
27-52
61-24
61-35
63-148

67-209

65-22¢
65-58
67-41¢
67-106
67-193

65-23¢
65-59
66-42s
67 42e
6’ 108
67-202¢

65-24¢
65-644
66 45
67 43
67-110
67-220

37-215

37-221

38 8

66-410

65-2%
65-68¢
67-44¢
67-129
67-220

65-26+
65-70e
66-53
67-45%
67-131
67-222

65-27
85 76s
66-55¢
67-46
A7 133

38 204

38-237

38-254+

66 -46

65 31
65-79

66 -560
67-<8
67-134

PARAME TER CODING MACRO vO4.00

CROSS REFERENCE

£EMS4
EMSS
£EM6
€M7
EMPTYQ
ERR
ERRABO
ERRANY

ERRVEC
EvL
EWN

EXECMD
EXINIT
ExXIT)
ExITi]
ExIT12
EXIT13
ExIT14
EXIT1S

ExIT16
EXIT17
ExXIT18
ExITe
EXIT3
EXITH
EXITS
EXIT6
EXIT?

F$AU

F$AUTO
F $8GN

FSCLEA

F DU
FS$END

18 130¢
18-131¢

18 91¢
18 92¢
37 182

12-73¢
28-33
27-15¢

61-28
21-8
11-57¢

12-63¢
29-35¢

44 -81

50-67¢
60-48
61-45¢
62-380
63-33¢
64 -41

65-84¢
66-77
67-78¢
51-31e¢
52-69¢
53-65¢
S54-67¢
55-25¢
56-29
7-2780

7-278¢
7-278¢
42-41

50-57
52-46
53-67
54 -57
55-25
57-25
58-46
59-87
62-10
63-71
64 -56
65-67
67-75
69-123

7-278¢

7-278¢
7-278
7-278

38-15
48-19
51-14
52-23
53-41

TABLE (CREF
62-24
62-33
27-61
2! -66
37-227
27-40
28-62
28-35
61-42
21-11

27-126
29-37

44-83

1-DEC

v04.00

)

12:59:38 PAGE

38-46
27-5S
28-102
28-64
63-94
21-12s

63-136
21-39%¢

61-21

61-32

44-86

38-271
61 26
29-19
28-104

S 6

ClL4
58Q 6171

320

29-41
29-21
67-150

30 9¢
32-24
67-192

32-22
56-55

56-87

57-53

57 81

58 44

58-64

59-41

59-61

38-4

41-1

44 -105¢

60-510

64-47

64-610

66-83¢

48-34
45-17

10-40

43-8

11-51

50-62
52-48
54-27
54-59

50-67
52-49
54-27
54-60

57-41
58-52
60-32
62-19
63-96
64 -58
65-72
67-127

57-41

70-16
46-26
47-33
7-278
7-278¢
42-41
48-35

S51-18

52-46
53-43

56 -44

60-32
62-25
63-124
64-63
65-85
67-127
70-16

7-278
7-304
42-61

50-38
S51-18
S2-48
53-43

19-3

44 -91

50-68
52-49

54 -60
56 -44
$7-55
58-92
60-44
62-28
63-124
65-18
66-25
67-152
70-21

7-278

10-40

42-76

50-57
351-20
S52-48
53-44

19-27

44-103

S51-14

52-64

54-62
56-57
57-69
S9-14
60-52
62-28
63-138
65-38
66-33
67-180

7-278

11-51

44 -91

30-57
51-20

S52-49

53-44

19-36

44-165

51 18
52-71

54-67
56-76
57-69
59-17
61-9
62-34
63-165
65-38
66 -52
6 -180

7-278

19-2%

44 -103

50-57
51-25

52-49

53-60

19-45

45-10

51-18
53-.22
54 -32
55-8
56-76
S57-83
59-20
61-20
62-35
64-19
65-41
66-52
67-194

7 278
19-34
44 -165
30-62
S51-25
S52-64
53-60

26-112

46-8

S51-20
53-41

54-42

55-15
56-89
57-110
59-29
61-20
62-38
64-37
65-42
66-60
67-203

7-278

19-43

44-180

50-62
S51-27
52-64
53-67

26-130

46-24

51-25
53-41

S54-42

55 15
56-120
38-15
S9-29
61-25
63-17
64-37
65-42
66-83
67-247

7-278

19-49

45-17

50-67
S1-27
S2-71
53-67

26-165

47-8

51-25
53-43
S54-44
55-17
S$7-12
58-18
59-43
61-31
63-30
64-39
65-47
67-29
67-254

7-278

26-115

46-24

50-67
S51-31
32-71
54-17

32-34

48-9

S1-27
53-44
54-45
55-18
37-15
58-21
59-49
61-31
63-30
64-42
65-63
67-37
68-43

7-278

26-133

46-26

50-68
S51-31
53-22
54-17

48-35

S1-31
53-44

54-45
55-18
57-18
58-34
S9-49
61-36
63-32
64-42
65-63
67-70
68-53

7-278

26-1458

47-18

S0-68
52-23
53-22
54-17

50-38
5°-23
53-60
S4-47
55-20
57-25
58-34
59-63
61-45
63-35
64-45
65-66
67-70
69-12

7-278

32-36

47-33

S1-14
52-23
53-22
54-27

PARAMETER

CODING MACRO

CROSS REFERENCE

F $HARD

F ot
FSINIT

Fso®
F $M00
F $MSG

F$PROT

F $PUWR

FIRPT
F$SEG
F$SOFY
F $SRvY

F4SuB

F$SwW

F$TEST

54-27
54 47
55 1S
56 44
57-18
57-110
58-92
59-63
61-9
62-19
63-30
63-165
64 58
65-47
66-33
67-75
68-43

7-278¢
7-278¢
7-2786

7-278¢
58-18

7-278¢
7-278¢
7 2788

7-278¢

71-2780
7-278¢
7-2788
7-278¢
7-278¢

53-60

55-17
58-46
62-25
64 -58
67-152

7-278¢
7-278¢

56-120
63-16S
10-9¢
57-21
69-18
12-83¢
12-173¢
12-213¢
26-123¢
10-15¢
69-30
10-12¢
65-23
69-24

18-75¢

7-2786
7-278¢

Vv0O4.00

DEC-83

TABLE (CREF Vv04.00
54 -29
54-57
55-15
56-44
57-25
58-15
58-92
59-87
61-20
62-19
63-30
64-19
64-58
65-63
66-52
67-78
68-62
68-53
9-9
44 -8
42-61

58-21

7-304

19-3

.29

54-30
54 -59
55-18

68-62

44-180
42-61

44 -91

921

59-17
10-40
19-25

43-12

42-47

42-76

56-108

34-16
69 830
34-41
66-40
69-80¢

12:59:38 PAGE

54-30
54-59
55-17
56-57
57-27
58-15
59-14
60-20
61-25
62-25
63-32
64-19
64-63
65-66
66-60
67-127
69-123
69-16

S54-57
55-17
56-L7
57-25
58-15
59-14
59-87
61-20
62-25
63-32
64-19
64-63
65-63
66-52
67-127
69-71

43-8

67-203
69-12
26-112
50-62
54-27
55-18
58-52
62-28
65-38
67-180
10-8
50-57
57-12
64-19
34 -66
57-22
69-77¢
27-132

)

67-205
69-16
26-115
50-67
S4-29
$5-20
58-66
62-34
65-41
67-194
10-39
50-68
57-110
64-63
34-69
57-67

59-20
11-51
19-27

D14

5EQ G172

57-27
58-18
59-14
60-20
61-25
62-28
63-35
64-37
65-18
65-66
66 -60
67-152

54-32
54 60
55-18
56 76
57 41
58-21
59-17
60-20
61-31
62-28
63-71
64 37
65-18
65-67
66-83
67-152

69-40

69-59

44-103

44-165

56-76

70-15

62-35

41-1

19-34

63-35
42-41

19-36

54 32
54-60
55-20
56 -89
57-41
$9.-34
59-20
60-32
61-31
62-34
63-71
64 -39
65-18
65-67
66-83
67-180

54-42
54 -62
55-20
56-89
57-55
58-34
59-29
60-32
61-36
62-34
63-96
64 -39
65-38
65-72
67-29
67-180

54 -42
54 62
55-25
56-120
57 55
58-46
59 29
60-44
61-36
62-35
63-96

46-24

47-18

70-21

70-22

54 -44
54-67
55-25
56-120
57-69
58-46
59-43
60-44
61-45
62-38
63-124
64-42
65-41
65-85
67-29
67 194

54 45
55-8
56-23
57-12
57-83
58-52
59-49
60-52
62-10
63-17
63-138
64 -45
65-42
66-25
67-70
67-247

54 45
55 8
56-23%
57-12
57 83
58 -66
59-49

65-38
65-72
67-29
67-1974

S4-44
S4-07
56-23
57-12
€7-69
58 Se
59-43
60-52
61-45
62-38
63-124
64 -45
65-41
65 -85
67 37
67 205

61-9
62-10
63-17
63-138
64 -56
65-42
66-25
67-70
67-247

54-47
55-8
56
- 26
57-15
57 116
58-66
59-63
61-9
62-10
63-17
63-165
64 -56
65 47
65-25
67-75
67-254

56-26

S7-15

57-18

53-43

64-45
67-75

53-44
55-15
58-34
62-19
64 -56
67-127

f4-42

48-19

48-35

19-43

67-37
50-38
19-45

67-78
67-254
19-49

68-43

69-123

26-168
S1-27
S4-44
56-89
59-63
63-96
65-66

32-34
S2-46
54 -45
57-25
60-32
63-124
65-67

32-36
52-48
54-47
57-27
60-44
63-138
65-72

38-4
52-49
54-57
57-41
61-20
64-37
66-52

38-15
52-64
54-59
57-55
61-25
64 -39
66-60

53-41
54-60
57-69
61-31
64-42
67-70

53-22

67-29
52-28

53-67
60-52
67-247
52-38

S4-17
61-9

54-67
61-45

55-8
62-10

55-25
62-38

56-23
63-17

53-26

53-35

55-13

55-23

56 40

54-19

55-10

56-42

60-28

66-33

69-40
26-130
S51-18
54-30
56-44
59-29
63-30
65-42

69-59
26-133
51-20
54-32
56-57
59-43
63-32
65-47

69-71
26-165
51-25
54-42
56-76
59-49
63-71
65-63

S1-14
58-15
65-18
34-72
60-29

S51-31
58-92
65-85
51-17
62-16

S52-23
59-14
66-25
51-29
66-41

52-71
59-87
66-83
52-27

60-20

27-133

27-138

57-98
34-19

58-78
34-22

59-75
S1-15

63-153
54-18

67-217
55-9

56-41

62-14

34-44
66-79

34-46

S1-16

52-25

52-68

53-24

53-64

54-62
57-83
61-36

PARAMETER

CODING MACRO

CROSS REF ERENCE

G$DISP
GS$EXCP
GSHIL]
GsLOLI
G$NO
GSOFFS

GS$OFSI

GS$PRMA
GS$PRMD
GSPRML
G$RADA
GS$RADB
G$RADD
GS$RADL
GS$RADO
GS$XFER
GS$YES
GETREG
GETREQ
HCE

HCI
HCRC
HELP

7 2782
7 2788
7 278@
7 2788
7-278¢6
7-278¢

69-34

7-278¢

69-34

7-278¢

7-278¢
7-278¢0
7 278¢
7-2780
7-2780
7-278¢
7-278¢0
7-278¢
7-278¢

I$MSG
I$PROT
IsPTAB
I$PWR
I$RPT
I$SEG

I$SETU
I$SFY
I$SRY
IssuB

(CREF

DEC

v04.00

69 44
68-57
69-44
68-57
69-44
68-57
68-61
69-38

69-20
69-38
68-57
69-40

12:59:38

PAGE

68-61
69-49
68-61
69-49

69-14
69 51
69-14
69-51

69-18
69-53
69-18
69-53

69-20
69-55

69-18
69-44

69-20
69-47

69-22
69-49

69-24
69-51

69-24
69-47
68-61

69-26
69-49

68-61
69-53

69-49

38-37
27-133

38-83
27-143

38-120

27-133

27-143

27-145

18-137

19-51

7-259¢

69-116
26-14+
11-57¢
7-278¢

7-278¢

7-278¢
7-278%¢

68-53¢

7-278¢
7-278¢

50-38¢

7-278¢
7-278¢
7-278¢
7-278¢
7-278@
7-278¢

54-30
57-69
62-28
66-25

7 278¢

69-12¢

7-278¢
7-278¢

S51-25¢
52-64¢
54 -27¢

48-21

7-312
40-94
49-50

7-326
40-103

26-45+

26-53

26-780

7-295

5EQ 0173

68-59
69-47
68-59
69-47

69-34
12-223¢
36-212
12-86¢
12-171¢
12-37¢

€8-57

E14

)

69-22
69-44
68-59
69-59
68-59
69-51

47-20

HERTZ
HOE
IsAU
I$AUTO
ISCLN
Isou
I$HRD
ISINIT
IsM0D

TABLE

v04.00

50-45

69-22
69 57
69-22
69 57

69-24
69-60
69 24
69-60

69-26
69-53

69-28

69-55

69-28
69-51

69-30
69-53

69-14
69-55

69-18
69-57

38-125

38-180

69-34

8-10

40-110

50-52

9-15

42-4¢

67-230

69 26

69 28

69-30

69-32

69 26

69-28

69-30

69-32

69 30
69-57

69-32
69-60

69-34

69-32
69-55

69 57

69-60

69-20
69-60

69-22

69-24

69-26

69-30

69-32

38-244

38-259

38-266

40-680

10-32

11-40
42-63

11-41
43-14

44-141

69-20
69-55

42-49

67-235

67-249

68-5¢0

12-232

68-77

69-28

17-51

44-167

18-19

45-11

18 29

47-9

68-87

69 63

69-104

48-340
45-170
46-24

47-33¢
44-91
7-304¢

46-269

44-103
10-40

44-165

68-43
19-27¢

10-40¢
68-43¢
19-340

70-21

70-21¢0

50-62
54-45
S8-34
63-30
67-29

S1-14
S54-57
58-52
63-71
67-70
70-16

26-115¢
50-62
S1-27¢
53-41
54-29¢

26-130¢
50-62¢

67-254¢
19-25¢
70-16¢

44-1800

11-51
69-123
19-36¢

69-123¢
19-43¢

51-18
54-60
59-14
63-124
67-127

S51-25
35-8
59-29
64-19
67-180

26-133¢
50-67
S52-23
53-43
54 -30

26-1650
50-67¢
52-46
53-43¢6
54 -30¢

11-21¢

42-41

42-416

48-35

48-35%

S0-38

52-49
56-23
60-32
64-56

53-22
56-44
61-9
65-18

53-41
56-76
61-20
65-38

53-44
57-12
61-31
65-42

54-17
57-25
62-10
65-63

54.-27
57-41
62-19
65-67

32-36¢
51-18
S52-48¢
53-44¢
54-32¢

38-44
S1-18¢
S2-48¢
53-60
54-42

38-15¢
51-20
52-49
53-60#
54-42¢

51-20¢
S52-49¢
53-60¢
S4 44

$1-200
52-64
54-17
S4-440

51-25
S52-64%
54 27
54-44%

41-1¢

19-45¢

19-499

52-23
55-15
59-49
64 -37
67-2024

52-46
55-18
60-20
64-42
67-205¢

26-168¢
50-67¢
52-46¢
53-43¢
54-32

32-34¢
S51-14
52-48
53-44
54-32¢

42-764

70-15¢

S1-27¢
53-410
54-29¢

70-22

70-22¢0

PARAME TER

CODING MACRO V04.00

CROSS REFERENCE
S4 4S5
S4 620
S6-440
57 274
S8-46
59-49
61-25
62-28
63-96¢
64-429

I$TST

IAE
TBE
1C
ICMSG

Iov
IE
IER
ILF
ILLCMD
ILR
ILv
INCCYL
ISR
ISRCNT
ISRV
IT
ITCONT

ITHMSG
IXE
IXU
Js P

KWSRV

L sACP
L$APT
L$AU
L $AUT
L$AUTO
LsCcp
L$CLEA
L$CO
L $DEPO

65-410
65-72¢
67-127
7 -278¢
52-23

S54-17
55-18
$7-15
58 92
60-32
62-28
64-19
65-85
67-78
12-89¢
11-57¢
10-11¢0
69-22
11-57¢
12-S¢
11-57¢
12-79¢
12-209¢
12-80¢
12-649
58-30¢
11-57¢
13-11¢
36-36
10-14¢
13-10¢
67-40s
69-28
11 S7¢
12-160¢

7-278¢

26-84

7-323¢
T7-323¢
48-9¢
7-323¢
7-323
7-323¢
7-323
7-323¢
7-323¢

TABLE

DEC-83

(CREF v04.,00

54 -450
55 8
56-57
57-41
S8-46¢
59-49¢
61-25#
62-28¢
63-96¢
64 -45
65-42
65-72¢
67-127¢
50-57
S52-23¢8
S4-17¢
55-25
57-18
58-92¢
60-52
62-35
64-19¢
65-835¢
67-127
27-111

51-21
69-790

54-47
55-15
56-57¢
57-416
S8-464
59-63
61-25¢

62-34

63-124
64-45¢
65-42¢
66-25
67-152
50-57¢
52-46
54-27
55-25¢
57-25
58-92¢
60-52¢
62-38
64 -37
65-85¢
67 180

)

12:59:38 PAGF

S54-474
55-15¢
56-57¢
57-55
58-52
59-634
61-31
62-340
63-1244
64 -45¢
65-47
66-52
67-152¢
50-62
52-49
S54-30
55-25¢
57-41
59-14
60-52¢
62 -38¢
64-42
66-25
67 247

S4-474
55 17
56-76
57 55#
58 524

54-57

[ 14
5EQ 0174
54 570
55-17¢
56 89
57 69
58-660
60-32
61-36¢
63-30
63-1380
64 -58
65-63
66-600
67-180¢
50-68¢
S2-716
54 -57
56-26
57-1100
59-20
61-20
63-17¢
64-634
66-52

54 -59
55 18
56-89¢
57 69¢
58-664
60-320
61-360
63-30#
64 19
64 -58¢0
65-6390
66-600
67-194
51-14
53-22
54 -60
56 -44
57-110¢
59-29
61-31
63 30
64-630
66-83

54 -59¢
55-144
56-89¢
57-83
59-14
60-44
62-10
63-32
64 -37
64 -58¢
65-66
67-29
67-1940
S1-144
53-22¢
54-67
56-76
58-15
59-49
61-45
63-35
65-18
66-830

54 -594¢
55-20
57-12
57 83¢
59-29
60-440
62-19
63-32¢
64-37¢0
65-18
€5-6649
67-70
67-1940
51-18
53-41
54 674
56-120
58-15¢0
59-87
61-45¢0
63-71
65-18¢
66 83¢

54 -60
55-200
57-25
57-83¢
59-29¢
60 440

66-25¢
67-247

55 174
56-760
57 55¢
58 66
60-20
61-36
63-17
63-138¢
64 -560
65-47¢
66-60
67-180
50-684
52-714
54 45
56 230
57-110
59-17
61-9¢
63-17
64-63
66-33
67-2470

57-109

58-83

58-91

59.386

63-164

67-201

67-229

S52-24+

S52-69+

53-23»

53 65+

62-12+

62-362

63-18+

59-63¢
61-31¢
62-344
63-138
64-56
65-470
66-520

67-152¢0
50-68
52-71
54-42

56-23
S57-69
59-144
61-9
62-380
64 -56

62-190

63-320

64 39
65-38
65-664
67-700

S51-25
53-44
54-674
56-120#
58-18
59-87¢
61-45¢
63 124
65-38
6~ -29

54-604
55 204
57 250
58-15
59-43
61 9
62-25
63-71
64-39¢0
65-38¢
65-67
67-75

54 -62
56 23
57-27
58-34

64 -394
65-41
65-67¢
67-75¢

54-620
56-44
57-270
58-340
59-43¢
61-200
62-250
63-96
64 -42
65-410
65-72
67-754

56-120¢
58-21
59-87¢
62-10
63-165
65-42
67-29¢

S51-31¢
53-67¢
55-8¢
57-12
58-34
60-20
62-104
63-165¢
65-63
67-37

51-31¢
53-67¢
55-15
57-12¢
58-52
60-204
62-19
63-165¢
65-67
67-70

63-33s

64-22+

64 59+

51-31
53-67
55-8

59 439

61-20
62-25%
63-71¢

51-28

27-106
27-106
63-56
58-31s

67-112
58-32

38-6+
38-5¢

44-14+
44 -89

60-46
44 -13s

67-76¢
69-82¢

27-163

42-61

26-94

45-106

46-8¢

58-94¢

65-80
50-58+

56-119
66-70
S50-65e

47-18

48-19

26-113¢

PARAMETER

CODING MACRO

CROSS REFERENCE
L $DESC
L $DESP
L$DE VP
L$DISP

7-323
7 3234
7-3238
7 323

L$DTP
L$DTYP
LsOU
« $DUT
LSOVTY
LSEF

7-3230
7-3234
47-8¢
7-323¢4
7-323

LSETP
L$EXP)

7-3230
7-3232

LS$OLY

LS$ENVI

LS$EXP4

L $EXPS
L $HARD
L$HIME

LS$HPCP

LePTP
LeH

L$ICP
LSINIT

7-3230

7-323¢

7-3230
7-323
7-3230
7-3230
7-323

7-3230
7-323

7-3234

L$PRIO
L$PROT
L$PRT
L $REPP

LS$REV

LSRPT
L$SOFT
L$SPC
L$SPCP
LESPTP
L$STA
L $SW
L$TEST
LsTIML
LSUNIT
L10000
L10001
L10002
L10003
L10004
L10005
L10006
L10007
L10010
L10011
L10012
L10013

12:59:38 PAGE

SE0 0175

)

18-274
8 8¢

18-1/4

68-53

68-530

9-9

9-98

7-3230

L$LOAD

LS$LUN

1-DEC

7-3236

7-323¢

L$MREV
L $NAME

VO4.00

(CREF Vv04.00

7-323¢

L$LADP

LSLASTY

TABLE

7-323

44-8¢

69-122¢

70-22

7-323¢

7-3236
7-323¢

7-323¢
7-323

7-323¢
7-32306

43-8¢

7-3230

42-470
7-323
7-3230
7-323¢
7-323¢0
7-323¢
7-323
7-3230
7-323¢
7-32306
9-9
10-8
19-25¢
19-34¢
19-430
19-49¢
26-115¢6
26-133¢
26-168¢
32-360
38-15¢
42-61

69-12

69-120

10-8
32-138

10-8¢
33-67

44-34
9-210
10-39¢

42-764

33-69

33-71

33-113

66-31

67-35

PARAMETER

CODING MACRO

CROSS REFERENCE

TABLE

L1001S5
L10016
L10017
L10020
L1002l
L10022
L10023
L10024
L10025

44-91
45 17¢
46 24
47 18
48 19
50-68¢
S0-67¢
S1-31¢
51-20¢

L10026

51-27¢&

L10043
L10044
L10045
L10046
L10047
L10050
L10051
L10052

54-62¢
S5-25¢
S5-17¢
55-20¢0
56-26
56-S7¢
54-89¢
57-15

110027
L10030
L10031
L10032
L10033
L10034
L1003S
L10036
L10037
L10040
L1004l
L10042

L10053
L10054
L10055
L10056
10057
L10060

L10061
L10062
L10063
L10064
L10065
L10066

L10067
L10070
L10071
L10072
L10073
L10074
L1007S
L10076

L10077

L10100
L10101
L10102
L10103
L10104

v04.00

(CREF

103

DEC

v04.00

44-165

46-264
47-33¢
48 34¢

S2-71¢
S2-48¢
S2-64¢
53-67¢
53-43¢
53-60¢
54-679
54-29¢
54-32¢
54-440
54-47¢
54-59¢

S57-27¢
57-55¢
57-83¢
58-18
S8-46¢
58-66¢

59-17
59-43¢
59-63¢
60-52¢
60-44¢
61-45¢
61-25¢
61-36¢
62-35
62-25¢
62-340
63-35
63-32¢
63-96¢
63-138¢
64-63¢
64-39¢
64-45¢0
64-58¢
65-85¢

56-120¢
57-18

57-1100

58-21

58-92¢

59-20

59-87¢

62-38¢

63-165¢

12:59:38 PAGE

)
44

180¢

H14

5EQ 0176

PARAMETER

CODING MACRO

CROSS REFERENCE
L10105
L10106
L10107
L10110
L10111
110112
L10113
L10114
L1011S
L10116
L10117

L10120
L10121

L10123
LecC
LC
LCE
LCLKTB
LCMSG
LCCMD
LF
LKS
LKV

LOE
Lot
LS
LSMSG
LST
LT
LTMSG
MAINT
MARK
MCPE

MOPE
MESG1
ME SG2
MESG3
MESGA

MSGABYV
MSGAVG

MSGBEL
MSGLMT
MSGMAX
MSGMIN
MSGNON
MSGNUM
MSGOPE
MSGSEA
MSPGE
MSSC
MXF
MXSEEK
NC1
NC2
NED

NEDMSG

65-41¢
65 470
65-66¢
65-72¢
66-33
66-60¢
67-37
67-75¢0
67-15208
67-194¢9
68-53
69-12
70-16¢
70-16

12-164¢
10-10¢
12-163¢
26-41»
69-20
26-184¢
18-13
26-42»
26-44»
11-57¢
11-57¢
10-16¢
69-32
12-69¢
10-13¢
69-26
12-225¢
14-28
12-10¢0
12-330
68-55
68-57
68-59
68-61
33-56
33-57
33-50
15-8
32-171
32-168
33-43
33-73
33-77
33-7%
12-35¢
12-12¢
12-34¢
14-23
13-21¢
13-22¢0
12-37¢
18-80#

TABLE

V04.00

(CREF

1-DEC

v04.00

12:59:38 PAGE

S-12

114
5EQ 0177

)

66-830

67-78

67-247¢

68-62¢
€9-71¢
70-21¢
27-64

32-81
27-121
26-73¢
€9-78¢

44-134
69-88

26-75¢
26-764

34-14
69-84¢
61-22
34-39
69-81¢
37-137
18-740
27-25
27-30
68-670
68-68¢
68-69¢
68-70¢
33-96¢
33-93¢
33-95¢
15-14
33-51
33-45
33-100¢
33-97¢
33-99¢
33-98¢
27-38

27-38
18-73¢
54-35
64 -27
27-38
44-75

34-64

34-74

69-89
26 95s
26-94

44-100

46-21

34-24

54-20

55-11

34-48

52-66

15-18
33-92¢0
33-91¢0

54-50
65-24

51 24

52-28

52-36

53-33

53-62

54-21

55-12

60-47

65-82

66-71

15-22

15-26

18-774

35-65

58-23

61-18

26-107«

51-22

57-39

59-31

66-80

PARAMETER

CODING MACRO

CROSS REFERENCE

NEM
NOCLK
NOOP
NOTMSG
NS1
NT1

O$APTS
O$AU
0$BGNR
0$BGNS
osoV
O$ERRT

O $GNSW
O$POIN
O$SETU

OCTHEX

JFFSET
OFLMSG
oM
ONECYL
ONEF IL

oPI
oPT

PARMSG
PAT

PATMSG
PCLKTB
PGE
PHF
PKB

PKC

PKCS

PKYV

PNT
POPQUE
POSERR
PRI
PRIOO
PRIO1
PRIO2
PRIO3
PRIOA
PRIOS
PRIO6
PRIO7
PSTACK

QCNT
QDRVO

12 36¢
18 6190
12-199¢
18-82¢
13-24¢
13-23¢
7-278¢
7-278¢0

7-278¢

7-2788
7-278¢
7-2786
7-278¢
7-278¢6

19-7
12-204¢
18-81¢
12-620
14-13

2-4¢0
48-36

12-92¢0
36-168
69-14
10-17¢
69-34
26-22+
12-151¢
12-162¢
26-24+
S7-49s
63-114»
26-26¢
32-128
63-112
26-23s
S7-4Se

63-89¢

26-29s
59-26

11-57¢
36-221
18-68¢
11-S7¢
11-S57¢
11-57¢
11-57¢
11-57¢
11-S7¢
11-57¢
11-57¢
11-S7¢
19-8
39-3¢
39-14

VO4.00

1-DEC-83

TABLE (CREF v04.00

)

12:59:38 PAGE

S-13

Jl14
5EG 0178

27-38

44 -85
44-71

28-8
28-11
7-323
7-323
7-323
7-310¢
7-323
7-323
7-310¢
7-310
7-3100

24 -40

52-56
61-17

53-51
64 -48

61-16

7-323

7-323
7-310¢0
7-323

7-3100
69-122

7-310¢

7-323

7-2630

7-299
68-1

10-41
68-9¢

26-136+
58-53+
67-160+

26-1564

37-96
44-73
62-22

62-31

49-1

4-905
49-9¢

5-1
50-3

67-256

38-40

38-145

38-194

65-56

66-44

67-47

26-674

26-8Ss
58-33»
67-136+
32-76
32-13S
67-168
26-10Se
S7-76+
63-128¢
26-124

26-127+
58-40¢
67-146+

18-71¢
2-8

27-116
36-208¢
69-760

62-18

65-32
€9-85¢
26-640
27-59
27-168
26-25¢
$7-70s
63-126+
26-27e
32-130
63-130
26-660
57-48s
63-109«
26-69¢
63-44

67-86

37-12
57-86

37-149
58-69

38-137
59-66

38-183
63-141

40-830

56-39

56-110

57-34

57-100

26-94

26-126

19-8
40-32s

19-8
40-47
39-464

§7-77»
63-132s
26-684
32-131
67-144
26-86+
S$7-73s
63-113+

39-.34

11-8¢

11-13

41-2

42-1

42-80

42-13

56-45»
59-50s

56-51e

59-57s

S6-77+
63-80»

63-90»

56-83s

57-42»
63-104+«

58-60+
67-170«
32-95
56-81

26-162+
59-30s
67-182+
32-96
57-47

26-171s
S9-37¢
67-188+
32-99
57-75

58-38

32-101

32-102
58-58

32-121
59-35

32-123
59-55

32-124
63-88

26-131e
58-56+¢
67-141+
26-153

26-152»
58-59+
67-1454
26-155

26-163s
59-33s
67-165¢
26-170

26-166+
59-364
67-169»
44-98

S6-46+
59-53»
67-184»

S$6-79»
63-42+

56-82+
63-85Ss

46-18

S6-50+
59-564
67-187+
56-37

57-32

58-27

58-29

58-80

59-28

59-77

63-46

63-155

67-88

67-219

26-135

26-155

26-170

56- 37

57-32

58-27

59-26

63-44

67-86

24-6
40-49s

24-21

24-40¢
40-83+

32-91
32-146
67-186

26-123s
58-36+
63-131e
26-126

32-93
56-49

26-128»
58-39«

67-84»

26-135

67-197

40-69

PARAME TER

CODING

CROSS REFERENCE
QDRV1
QORV2
QDRvV3
QDRv4
QDRVS
QDRVeé
QDRV7
QINPT
QOUTPT
QASTART
QsToP
QTERP

RANADR
RAND
RANPAT
RD.RP
RODAT
ROHD
RDHOMG
RDTD
RDY
READIN
RECAL
REOHOR
REG

RELSE
RESREG

REV
RHEXT
RHTYPE
RMR

ROTATE
RPO7
RPADR
RPAS
RPATMG
RPBA
RPBAE
RPCC
RPCS1

RPCS2

RPCS3
RPDA
RPDB
RPOC

39-15
39 16
39-.17
39 18
39-19
39-20
39-21
39-14¢
39-25¢
39-340
39-35¢
39.42
34 80
25-7¢
10-26¢
36-83
12-215¢
12-2160
69-49
12-217¢
12-66
12-206¢
12-201¢
10-19¢
16-15
19-14
60-30
12-203¢
20-21¢0
57-52
67-220
14-14
17-6¢0
17-70
12-81¢
14-6

28-26
17-40
17-18¢
69-47
17-13¢

17-31¢
17-26¢
17-11¢
38-296
58-55+
17-15¢
38-148+
$6-69s
57-101e
59-60s
63-158s
17-32¢
17-14¢
17-200
17-25¢

MACRO

TABLE

VO4.00

(CREF

39-26
39-.27
39-28
39-29
39-30
39-31
39-32
40-34
40-34+

DEC

v04.00

39-35
39-36
39-37
39-38
39-39
39-40
39-41
40-51+

12:59:38 PAGE

S-14

K14
SEQ 0179

)
39-47¢%
39-48¢
39-49¢
39-504
33-51¢0
39-52¢
39-53¢
40-52+
40-85

40-55+
40-87+

40-88

40-90s

52-33

53-30

67-66

67-96

37-128

38-28

38-56

38-2874

38 362

40-55

40-53
40-86»
40 90

63-53
30-59
67-92
36-114
61-13
26-188

67-56
34-8

67-104
34-58

37-98
63-24
28-75

37-113
63-127
28-116

64-43

28-69

28-109

31-23

32-14

37-107

50-59

53-25

61-19

16 63
19-14

62-17

16-87
19-14
63-27

17-49¢
19-14
65-25

19-S
19-17
66-42

19-11
19-17
67-44

19-11
19-17

19-14
19-22

32-52
57-80

36-46
57-101

36-192
58-43

36-195
58-63

36-255
S8-81

37-231
59-40

38-13
59-60

38-217
59-78

38-378
63-93

40-23

63-135

56-54
63-156

56-86
67-149

56-111
67-191

14-19
21-9s
19-18
27-106
18-70¢
28-41
38-374
36-113s
69-92¢
63-78s

14-24
21-18s
21-10e

18-76¢
21-22¢
21-38+

38-375
44-48

44-50

28-55

28-70

28-110

29-10

29-35

32-15

36-1440

38-36+

38-54

38-170s

36-177s
36-70s
38-320
59-32s
32-11s
38-169+
S56-70¢
57-101s
$9-60+
63-158+

36-247+
36-77
38-325
59-52«
36-37«
38-351s
56-86+
57-103¢
59-78s
67-149s

36-178
38-327
63-86+
36-69¢
38-357
56-86+
$7-103+
59-78+
67-149s

36-250
38-388
63-127»
36-162+
38-394
56-98+
58-43s
59-80+
67-174+

37-15

37-52
S6-47+
67-166+
37-16+
44-113+
S6-111e
58-63+
63-93+
67-191+

37-77
56-65+
67-183»
37-53»

38-48»
$6-93+

38-49+
57-44¢

38-289
S7-72»

38-292
58-35+

46-11s

56-113s
58-81e
63-117»
67-220+

37-204
52-50«
$7-52+
58-85«
63-135e
67-222+

37-224+
$3-45s
57-52+
58-85+
63-135s
67-222+

38-27+
56-54+
S$7-80+
59-40s
63-156+

38-121»
S6-54+
S7-80s
S$9-40s
63-156+

32-28+

S6-43

63-76+

67-132s

67-181+

32-29s

56-40+

S57-43s

58-32«

58-54+»

59-31e

59-51e

67-129+

40-14

40-53
39-54¢
63-29

26-159
67-62
36-108
60-24
26-187
69-930

28-40
26-185
16-39
19-14

40-72
40-19
40-88

44-57¢

67-134¢

44-37

67-142+
36-215+
44 -94+

S56-111e
58-63+
63-93¢
67-191s

PARAMETER

CODING MACRO V04.00

CROSS REFERENCE

RPDS
RPDT
RPECY
RPEC2
RPER1
RPER2
RPER3
RPINIT
RPLA
RPMR1
RPOF
RPSN
RPSTUO
RPSTU1
RPSTUL?
RPSTU3
RPSTU4
RPSTUS
RPSTU6
RPSTU?
RPTMR
RPVEC

RPWC
RTC
RWU1
RWuU2
RWU3

S$LSYM

SAVREG

SC
SC11
5C12
SC13
SC3
SC4
SCS
SCé6
sce
SCTRWC
SOF
SEABAD
SEAERR
SEARCH
SEC.DS
SEC.RD
SEEK

17-169
63-56
17-22¢
17-29¢
17-30¢
17-17¢6
17-27¢
17-28¢
36-150
17-19¢

17-21¢
17-24¢
17-23¢0

35-11¢
35-11¢
35-11¢
35-11¢
35-11¢
35-11¢
35-11¢
35-11¢
26-114
17-5¢
57-109
67-201
17-120
12-205¢
12-148¢
12-149¢
12-150¢
7-278¢
45-17¢

53-676
57-27¢
61-45¢
65-660
20-6¢
57-80
38-12
38-122
38-85
38-80
38-70¢
38-72¢
38-71
38-90
38 107
12-219¢
12-158¢
18-66¢
18-65¢
12-207¢
13-30¢
13-28¢
67-220s
12-200¢

TABLE

(CREF

36-217
63-91

1-DEC

v04.0C

)

12:59:38 PAGE

S-15

L14
5EQ 0180

38-152
63-115

38-186
63-133

56 S2
67 112

56-67
67 147

56 84
67-171

56-95
67 189

57-50

57-/8

58-41

58-61

59 38

52-51

60-21
53-46

60-51

61-10

62-11

63-21

64 -20

64-61

65-19

66-26

67-30

67-53

44-115
36-22

38-98

38-152¢

38-153»

38-154+

38-155«

36-147
58-83
67-214

44 -58+
58-83

44-59»
58-91
67-229

44-89

44-89
59-28

44-101

46-23

59-86

56 -39
63-46

56-119
63-164

57-34
67-88

19-25¢

19-43¢
50-68¢
54-59¢
58-66¢
63-960
67-750
37-191
59-40

S51-200
54-62¢
S8-92¢
63-138¢
67-152¢
38-7
59-60

26-115¢
S51-27¢
54-679
59-43¢
63-165¢
67-1940
38-205
59-78

26-133¢
51-31¢
55-176
59-63¢
64 -394
67-203
38-348
63-93

26-1680
S52-484
55-200
59-87¢
64 -450
67-203
40-7
63-135

32-36¢
52-64¢
55-25¢
60-449
64 -580
67-2030
56 -54
63-156

38-15¢
S52-714
56-57¢
60-520
64-630
67-2474
56-86
67-149

42-760

44-180%

S4-44¢
57-110¢
62-38¢
66-604
36-149
58-63
38-50

19-34¢
50-67¢
S4-47¢
58-46¢
63-320
66-83¢
36-208
S58-81
38-54¢0

38-146

38-195

38-153
38-154
38-155

44-62

38-202¢
36-36
57-109
67-201
63-77+
37-109
27-153
27-153
27-153
9-21¢

46 -264

54 -29¢
57-55¢

62-25¢
65-72¢
32-43
57-101
38-41
38-132¢
38-91
38-166¢

58-29
67-214
67-133+
62-27

10-39¢
47-330
S54-32¢
57-83¢0
62-344
65-85¢
36-15
58-43
38-44

48-34¢

67-229

58-91

19-49¢

59-86

53-4306
56-89¢
61-25¢
65-410
68-62¢
56-111
67-191

59-58

53-60¢
56-120¢
61-360
65-470
69-714
57-52
67-220

38-148¢

38-74
38-111
38-77¢
38-117¢
38-123¢
61-14

38-115

38-1390

38-164
61-30

64-24

56-73
56 -60
37-70
19-29
19-4

63-121
63-99
37-80
19-31
19-31

67-177
67-155
S6-47
28-32s
27-20e

56-65
28-61+
28-6

56-78
28-101s
28-84

56-93
29-18»
28-14+«

63-86
31-18»
30-14s+

63-110
32-21«
31-17+

67-142

67-166

56-111s

57-101s

58-81s

59-78»

63-156»+

26-190

26-191

37-88

52-26

S52-26

S7-24

57-44

57-72

58-35

58-55

59-32

59-52

64-36

CODING MACRO VO4.00

59-83
59-18
38-141»

67-226
67-80

57-104

59-81

29-26
28-126

30-56¢

28-123

29-24

(7]

7-323

7-323
O 0 @

8-8

7-323

7-323
7-323
7-323
7-323

OB WY

7-323

7-323
7-323
7-323
7-323
7-323
7-323
7-323
7-323
10-8
19-3
43-8
48-9

[

7-323
7-323
7-323
7-323
7-323
7-323

44-8
48-9
7-2840
7-323
7-323
7-323
7-323
7-323

7-323
7-323
7-323
7-323
7-323
7-323
7-323
7-323
7-323

67-55

W
N

10-8
19-27

66-50

7-287¢
7-323
7-323
7-323
7-323
7-323
7-323
7-323
7-323

56-35
58-24

S56-34

63-159

H b
NUWOY

44 -93

67-227

SVCINS

43-8
48-9
7-278%
7-323

$7-107
58-89
59-84
63-162
56-117
56-116
S6-27
36-210s
19-40
36-16
26-900
26-80¢
28-125
28-86
29-27
28-83
69-97¢
30-57
69-98¢
69-96¢
38-232¢
26-81
69-95¢

VWORP®®INNNNN

10-8
19-27

58-88
58-19
38-134
67-128+
56-114

27-121

44-127

7-278¢
7-323
7-323
7-323
7-323
7-323
7-323
7-323
7-323

57-106
57-16
37-744
63-72»
44-90

44-47

[

SVCGBL

38-3874

[

STOMSG
STOPCK
STRTMR

5EQ 0181

38-64
52-26

STALL1
STALLZ2
STALLF
STALMG
STALRD
STALRM
STLTIM
STO
STOFLG

ST.CLK
ST.LCL
ST.PCL
STALL

37-230

50-59

SRHSEC

65-64
36-252
44 -137

12:59:38 PAGE

SNDIGT
SP10
SP11
SP12
SP1418
SP7
SPTYP
SRCHOO
SRCHWT

65-39
36-180
37-111

)

M14

sanflw
P e
w
umogo

SKI1

64 -55
36-73
12-226¢&
10 8¢
21-9¢
12-165¢
18-63¢
15-14¢
15-18¢
15-22¢
15-26¢
15-8¢
32-161¢
32-10¢
35-98¢
13-13¢
26-130
26-47
26-32
28-85
13-50¢
13-51¢
10-22¢
69-57
10-24¢
69-60
69-55
38-212
10-25¢
69-53
26-102¢
32-430

(CREF v04.00

[

SET.IE
SETFOR
SFPTBL
SIZE70

TABLE

POOO®~NNNNNNN

CROSS REFERENCE

1-DEC-83

PARAMETER

PARAME TER CODING MACRO

CROSS REFERENCE
19-4
19 8
19-10
19-11
19-11
19-14
19-14
19-16
19-17
19-17

19-22
19-24
19-28
19-29
19-30
19-31
19-33
19-39
19-40
19-42
19-46
19-48
26-18
26 -84
26-94
26-126
26-135

26-15S
26-170
27-35
27-47
27-52

27-66

27-76
27-92
27-95
27-103

27-113

27-123
27-128
27-140
27-150
27-160
27-165
27-203
30-23
30 31
30-35
32-165
32-168
32-171
32-173
33-43
33-45
33-50
33-51

v04.00

1-DEC ;83

TABLE (CREF v04.00
19-4
19-8
19-10
19-11
19-11
19-14
19-14
19-16
19-17
19-17
19-22
19-24
19-28
19-29
19-30
19-31
19-33
19-39
19-40
19-42
19-46
19-48
26-18
26 -84
26-94
26-126
26-135
26-155
26-170
27-35
27-47
27-52
27-66
27-76
27-92
27-95
27-103
27-113
27-123
27-128
27-140
27-150
27-160
27-165
27-203
30-23
30-31
30-35
32-165
32-168
32-171
32-173
33-43
33-45
33-50
33-51

19-4
19-8
19-10
19-11
19-11
19-14
19-14
19-16
19-17
19-21
19-22
19-24
19-28
19-29
19-30
19-3%

19-33
19-39
19-40
19-42
19-46
19-48
26-35
26-84
26 -94
26-126
26-135

26-155
26-170
27-35
27-47
27-61
27-66
27-76
27-92
27-98
27-103
27-113
27-123
27-135
27-140
27-150
27-160

27-170
27-203
30-23
30-31
30-45
32-165
32-168
32-171
33-40
353-43
33-45
33-50
33-51

12:59:38 PAGE

19-4
19-8
19-10
19-11
19-11
19-14
19-14
19-16
19-17
19-21
19-22
19-24

19-28
19-29

19-30
19-31
19-33
19-39
19-40
19-42
19-46
19-48
26-35
26-84
26-94
26-126
26-135
26-155
26-170
27-35
27-47
27-61
27-66
27-76
27-92
27-98
27-103
27-113
27-123
27-135
27-140
27-150
27-160
27-170
27-203
30-23
30-31
30-45
32-165
32-168
32-171
33-40
33-43
33-45
33-50
33-51

19-4
19-8
19-10

19-11
19-13
19-14
19-14
19-16
19-17
19-21
19-22
19-24
19-28
19-29
19-30
19-31
19-33
19-39
19-40
19-42
19-46
19-48
26-35
26-84
26-94
26-126
26-135
26-168
27-27

27-35

27-47
27-61
27-11
27-76
27-92
27-98
27-108
27-113
27-123
27-135
27-147
27-150
27-160
27-170
30-19
30-23
30-31
31-22
32-165
32-168
32-171
33-40
33-43
33-45
33-50
33-56

S-17

19-4
19-8
19-10
19-11

19 13
19-14
19-14
19-16
19-17
19-21
19-22
19-24
19-28
19-29
19-30
19-31
19-33
19-39
19-40
19-42
19-46
19-48
26-35
26-84
26-94
26-126
26-135
26-168
27-27
27-35
27-47
27-61
27-711
27-76
27-92
27-98
27-108
27-113
27-123
27-135
27-147
27-150
27-160
27-170
30-19
30-23
30-31
31-22
32-165
32-168
32-171
33-40
33-43
33-45
33-50
33-56

N14
SEQ 0182
19-4
19-8
19-10
19-11
19-13
19-14
19-14
19-17
19-17
19-21
19-22
19-24
19-29
19-29
19-31
19-31
19-33
19-39
19-40
19-42
19-46
19-49
26-35
26-84
26-115
26-133
26-155
26-170
27-27

27-42
27-47
27-61
27-71
27-87
27-92

27-98
27-108
27-118
27-123
27-135
27-147

27-155
27-160
27-170
30-19
30-27
30-31
31-22
32-165
32-168
32-173
33-40
33-43
33-50
33-51
33-56

19-4
19-8
19-10
19-11
19-13
19-14
19-14
19-17
19-17
19-21
19-22
19-24
19-29
19-29
19-31
19-31
19-33
19-39
19-40
19-42
19-46
19-49
26-35
26-84
26-115
26-133
26-155
26-170
27-27
27-42
27-47
27-61
27-71
27-87
27-92
27-98
27-108
27-118
27-123
27-135
27-147
27-155
27-160
27-170
30-19
30-27
30-31
31-22
32-165
32-168
32-173
33-40
33-43
33-50
33-51
33-56

19-8
19-8

19-11
19-11
19-13
19-14
19-14
19-17
19-17
19-21
19-22
19-25
19-29
19-29
19-31
19-31
19-33
19-40
19-40
19-42
19-46
26-16
26-37
26-94
26-126
26-135
26-155
26-170
27-27

27-42

27-52
27-61
27-71
27-87
27-95
27-98
27-108
27-118
27-128
27-135
27-147
27-155
27-165
27-170
30-19
30-27
30-35
31-22
32-165
32-171
32-173
33-40
33-45
33-50
33-51
33-56

19-8
19-8
19-11
19-11
19-13
19-14

19-14
19-17
19-17
19-21
19-22
19-25
19-29
19-29
19-31
19-31
19-33
19-40
19-40
19-42
19-46
26-16
26-37
26-94
26-126
26-135
26-155
26-170
27-27
27-42
27-52
27-61
27-71
27-87
27-95
27-98
27-108
27-118
27-128
27-135
27-147
27-155
27-16S
27-170
30-19
30-27
30-35
31-22
32-165
32-171
32-173
33-40
33-45
33-50
33-51
33-56

19-8
19-8
19-11
19-11
19-13
19-14
19-16
19-17
19-17
19-21
19-22
19-28
19-29
19-30
19-31
19-31
19-34
19-40
19-40
19-43
19-48
26-16
26 -84
26-94
26-126
26-135
26-155
26-170
27-27
27-42
27-52
27-66
27-71
27-87
27-95
27-103
27-108
27-118
27-128
27-140
27-147
27-155
27-165
27-203
30-19
30-27
30-35
31-22
32-168
32-171
32-173
33-40
33-45
33-50
33-51
33-56

19-8
19-8
19-11
19-11
19-13

19-14
19-16
19-17
19-17
19-21
19-22
19-28
19-29
19-30
19-31
19-31
19-34
19-40
19-40

19-43
19-48
26-16
26-84
26-94
26-126
26-135
26-155
26-170
27-27
27-42
27-52
27-66

27-71
27-87

27-95

27-103
27-108
27-118
27-128
27-140
27-147
27-155
27-165
27-203
20-19
30-27
30-35
31-22
32-168
32-171
32-173
33-40
33-45
33-50
33-51
33-56

19-8
19-10
19-11
19-11
19-13
19-14
16-16
19-17

19-8
19-10
19-11
19-11
19-13

19-48
26-16
26-84
26-94
26-126
26-135
26-155
26-170
27-35

19-14
19-16
19-17
19-17
19-22
'9-24
19-28
19-29
19-30
19-31
19-31
19-39
19-40
19-40
19-46
19-48
26-16
26-84
26-94
26-126
26-135
26-155
26-170
27-35

27-52
27-66
27-76
27-87
27-95
27-103
27-113
27-118
27-128
27-140
27-150
27-155
27-165
27-203
30-23
30-27
30-35
32-36
32-168
32-171
32-173
33-43
33-45
33-50
33-51
33-56

19-17
19-22
19-24
19-28
19-29
19-30
19-31
19-31
19-39
19-40
19-40
19-46

27-42

PARAME TER

CODING MACRO

CROSS REFERENCE
33 56
33 66

33.7%3

3375
33-77
36 36
36-45
36 209

42-76
44 22
44 29
44 71
44 73
44-75
44 77
44 89
44 -9)
44-102

114

TABLE

33-56
33-66

33-75
33-77
36-36
36 45
36 -209

33-75
33 77
36-36
36-145
36-209

33-73

42 76
44 -22
44-29
44 7}
44-73
44 7
44.77
44 89
44 -9]
44-102

44-114

A44-127
44-165

46-21

S54-42

47-18
50-67
S52-46
S3-.44

54 42

33 73

44 10
44-25
44-29

44 -71
44-73
44-75
44-77
44 -89
44 -98
44-103

44-114

44-132
44-180

46-21

47-18
50-68
52-48
53-60

54 -44

54 62
56 -26
56-37

S54-62
56 -26
56-37

S54-67
56-26
56 -39

56-61

56 -44

56-73
56-74

36-112
56-119
57 27
57-34

57-55
57-86
57-109

58-18
58-27
58-29
58-69
58-83
58 84
58-91
59-26

59-28
59-63
59-77
$9-86

60-52
61 31
62-19

56 -44

56-73
56-74

S6-112
56-119
57-27
57-34

$7-55
57-86
S57-109
58-18
58-27
58-29
58-69
58-83
58-84
58-91
59-26

59-28
59-63
59-77
59-86
60-52
61 31
62 19

DEC

vO4.00

33 56
33 66

44-127
44-165

47-18
50-67
52 -46
53-44

v04.00

(CREF

56-57

56-73
56-76

56-112
56-120
57-32
S7-34

$7-69
37-100
357-109

--18
58-27
38-29
58-69
58-83
58-84
58-92
59-26

59-28
59-66
59-79
59-86

61-20
€l 35
62-24

)

12:59:38 PAGE

5EQ 0183

33 S6
33-66

33-57
33 66

33 57/
33 66

33 57
33-66

33 75
33-77
36-36
36-145
36-209

33 75
33 717
36-36
36-145
36 -254

33-75
33 77
36-36
36 145
36 -254

33 75
36 18
%6 -36
36-147
36 -254

33.-73

44-10
44 - 25
44 29
44-71
44-73
44-75
44-77
44 -89
44-98
44-103

114

33./3

44-16
44 25
44 -39
44-7)
44 -73
44.75
44 -85
44 -89
44 -98
44-103

44-127

44-132
44-180

44-132
4a5-17

46-21

46-23

47-18
S0-68
S2-48
53-60

54 -44

47-33
51-18
S2-49
53-67

54-45

33 73

44-16
44-25
44 -39
44-7})
44 73
44 7S
44 -85
44 89
44 98
44-103

44-127

46-23

47-33
S51-18
S2-49
53-67

54 -45

55-1S
56-37
56 -39

56-61

S6-73
56-76

56-112
56-120
57-32
57-34

57-69
57-100
57-109

58-18
58-27
38-29
58-69
S8-83
S58-84
38-92
59-26

59-28
39-66
59-79
39-86
61-20
61-35
62 -24

56-73
56 -89

56-119
57-1%
57-32
57-34
57-83
57-100
57-109

58-21
58-27
S8-34
S58-69
58-83
58-91
59-17
59-26

59-28
59-66
59-79
59-86
61 24
61-35
62 -24

44-127

44-132
46-10

55-15
56-37
S6 -39

56 -60

44-16
44 -27
44 -39
44-71
44-73
44-77
44 -85
44 -89
44-100
4a-11s

44-132
45-17

54-67
56-26
56-39

S6-57

33.73

56 -60
56-73

56 -89

56-119
57-15
57-32
S/7-34

57-83
57-100
57-109

58-21
58-27
58 -34
58-69
58-83
58-91
59-17
59-26

59-28
59-66
59-79
59-86
61-24
61 35
62-24

48-19
51-20
S2-64
54-27

S54-47

55-17
56-37
56 -39
56-60

56-61

56-74
56-110

56-119
57 15
5/7-32
57-34

S7-86
S7-102
57-109

58-21
58-29
58-46
58-69
S58-83
58-91
59-17
59-26

59-28
39-66
59-79
59-86
61-24
61-35
62-24

33 57
313 66

33-73

33-75
36-18
36-36
36-147
36-254

44 -16
44 -27
44 -39
44 -7}
44 -73
44-77
44 -85
44 -89
44-100
44-114

44-127

44-132
46 10

46-23

48-19
51-20
52-64
54-27

54-47

55-17
56 -37
56-39

56 -60

36-61

S6-110

S6-119
S7-1%5
$7-32
57-34

57-86
S7-102
S7-109

58-21
58-29
58-46
58-69
58-83
58-91
59-17
59-26

59-28
59-66
59-79
59-86

61-24
61-35
62 24

33-57
33-.66

33-57
33 66

33-57
33-66

33-77
36 18
36-36
36 147
38-15

33 .77
36-18
36-36
36-147
38-15

33-77
36 -20
36 36
36-199
42-61

35-73

33-73

33-75

$3-57
37-66

3275

3%.77
3¢ -20
36 36
36-199
42-61

33-57
33 73

33-57
33-73

33-77
36-20
36-45
36-199
42-61

33-75

44-18
44 -29
44 -39
44.-71
44-75
44 -77
44 -85
44 -89
44-100
44-114

44-18
44 -29
44 -39
44 71
44-7S
44-77
44 -85
44 89
44-100
44-114

44 -20
44-29
44 -40
44-73
44-75
44-77
44 -85
44 -89
44-101
44-114

44 -20
44 -29
44 -40
44-73
44-75
44-77
44 -85
44 -89
44-.101
44-114

44 -20
44 -29
44-71
44-73
44-75
44-77
44 -85
44 -91
44-101
44-114

44-73
44-75
44-77
44 -85
44 -91
44-101
44-114

44-132
46-10

46-24

44-132
46-18

46-24

44-132
46-18

46-24

44-165
46-18

46-24

44-165
46-18

46-26

46 -26

54-59

54 -60

44-127

48-19
S51-25
S52-71
54 29

S54-57

55-18
56-37
56-39

56 -60

56-61

56-74
56-110

56-119
57-18
57-32
57-34

57-86
S$7-102
S57-109

58-27
58-29
58-52
58-80
58-83
58-91
59-20
59-26

$9-29
59-66
59-79
59-87

61-24
61 35
62-24

44-127

48-19
51-25
52-71
S54-29

54-57

55-18
56-37
56 -39

56 -60

56-61

56-74

56-110

56-119
57-18
57 32
57-34

57-86
57-102
S7-1(?

S8 27
58-29
38-52
58-80
58-83
58-91
59-20
59-26

44-127

48 -34
S51-27
53-41
54 -30

54 -59

55-20
56 -37
56 39
56 -60

56-73

56-74

56-112

56-119
57-18
57-32
S57-34

57-86
S7-102
S57-109

58-27
58-29
58-66
58-80
58-84
58-91
59-20
59-28

44-127

48-34
S51-27
S3-41
54 -30
55-20
56-37
56 -39
56 -60

56-73

56-74

56-112

56-119
57-18
57-32
57-34
57-86
S57-102
57-109

58-27
58-29
58-66
58-80
S8-84
58-91
59-20
59-28

44-127

44-20
44 -29
44-71

44-127

50-62
51-31
53-43
54-32

50-62
51-31
53-43

55-25
56-37
56 -39

55-25
56-37
56-39

S54-32
54-60

56 -60

S6-74

%0-74

56-73

56-112

56-119
57-25
57-32
S7-41
57-86
S57-102
57-110
58-27
58-29
58-69
58-83
58-84
58-91
59-26
59-28

€

S6-112

S6 119
57-25
57-32
S7-41
57-86
S7-102
S7 110

58-27
58-29
58-69
58-83
58-84
58-91
59-26
59-28

59-29
59-66
59-79
59-87

59-43
59-66
59-86
60-32

61-24
61-35
62 24

59-43
59-66
59-86
60-32

61-24
61-36
62-25

59-49
59-77
59-86
60-44

61-24
61-36
62 25

59-49
S9-77
59-86
60-44

61 25
61-45
62-28

61 25
61 45
62-28

PARAMETER

CODING

CROS> REFERENCE

DEC

v0O4.00

)

12:59:38 PAGE

G-19

260

1734

62 37
62-38
63-44
63-46
63-99
63-100
63-122
63-141
63 148
63-164
64-33

62-33
63-30
63-44
63-46
63-99
63-121
63-122
63-141
63-155
63-164
64-33

62 33
63 30
63 44
63 46
63 99
63-121
63-122
63-14]1
63-155
63-164
64-33

62 33
63 32
63 44
63 46
63 99
63-121
63-122
63-141
63-155
63-164
64 -33

62 33
63 32
63-44
63 46
63 99
63-121
63 122
63-141
63-155
63-164
64 -33

62 33
63-35
63-44
63 71
63-100
63-121
63-122
63-141
63-157
63-164
64-33

62-33
63 35
63-44
63-71
63-100
63-121
63-122
63-141
63-157
63-164
64 -33

62 34
63 35
63-46
63-96
63 100
63-121
63-128
63-148
63 157
63 164
64 -34

62-34
63 35
63 46
63 96
63-100
63-121
63-124
63-148
63-157
63-164
64 -34

62 3°
63-44
63-46
63-99
63-100
63-121
63-138
63 148
63-157
63-164
64 -37

62 35
63 44
63-46
63-99
63-100
63 121
63-138
63-148
63-157
63-164
64 -37

62 35
63 44
63-46
63-99
53 100
63-122
63-141
63-148
63-157
63-165
64 -39

52 135
63 44
£3-46
63-99
63 10C
63-122
63-141
63-148
63-157
63-165
64 -39

65 42
66-31
66-33
67-35
67-/8
67-86
67-127
67-156
67-177
67-178
67-197
67-203
67 214
67 221
67-229
68-55
68-59
68-61
69-16
69-20

65-42
66-31
66-33
67-35
67-78
67-86
67-127
67-156
67-177
67-178
67-197
67-203
67-214
67-221
67-229
68-55
68-59
68-61
69-16
69-20

65-47
66-31
66 52
67-35
67-78
67-88
67-152
67-156
67-177
67-180
67-201
67-205
67-214
67-221
67-229
68-55
68-59
68-61
69-18
69-20

65-47
66-31
66-52
67-35
67-78
67-88
67-152
67-156
67-177
67-180
67-201
67-205
67-214
67-221
67-229
68-55
68-59
68-61
69-18
69-20

65-63
66-31
66 -60
67 35
67 86
67-88
67-155
67-156
67-177
67-194
67-201
67-209
67-214
67-221
67-229
68-57
68-59
68-62
69-18
69-20

65-66
66-31
66-83
67-37
67-86
67-88
67-155
67-156
67-178
67-197
67-201
67-209
67-214
67-221
67-247
68-57
68-59
69-12
69-18
69-20

65-67
66-31
67-35
67-37
67-86
67-88
67-155
67-156
67-178
67-197
67-201
67-209
67-214
67 229
68-S3
68-57
68-61
69-14
69-18
69-22

65-67
66-31
67-35
67 37
67-86
67 88
67-155
67-156
67-178
67-197
67-201
67-209
67-214
67-229
68-53
68-57
68-61
69-14
69-18
69-22

65-72
66 -31
67-35
67-70
67-86
67-88
67-155
67-177
67-178
67-197
67-201
67-209
67-219
67-229
68-55
68-57
68-61
69-14
69-18
69-22

65-72
66-31
67-35
67-70
67-86
67-88
67-155
67-177
67-178
67-197
67-201
67-209
67-219
67-229
68-55
68-57
68-61
69-14
69-18
69-22

65-85
66-33
67-35
67-75
67-86
67-88
67-155
67-177
67-178
67-197
67-201
67-214
67-219
67-229
68-55
68-59
68 61
69-14
69-20
69-22

65-85
66-33
67-35
67-75
67-86
67-88
67-155
67-177
67-178
67-197
67-201
67-214
67-219
67-229
68-55
68-59
68-61
69-14
69-20
69-22

69-57
69 122
7-2780
52-49
54-30
55-15

69-57
69-122
7-2860
52-49
54-42
55-15

69-59
69-122
50-62
S2-49
54-42
55-18

69-22
69-26
69-28
69-32
69-34
69-44
69-49
69-53
69-59
69-122
50-62
S53-41
S4-42
55-18

65-63
66-31
66 60
67-35
67-86
67-88
67-155
67-156
67-177
67-194
67-201
67-209
67-214
67-221
67-229
68-57
68-59
68-62
69-18
69-20

59-49
62-19
64 -37
65-63
67-127
7-288¢
19-43
32 36
45-17

59-49
62-28
64-37
65-63
67-180
9-21
19-43
352-%6
46 -26

59-49
62-28
64 -42
65-63
67-180
9-21
19-49
32-36
46-26

69-22
69-26
69-28
69-30
69-34
69-40
69-49
69-53

57-41

SVCTAG

vO4.02

(CEF

62 33
62 38
63-44
63 46
63-99
63 100
63-122
63 141
63-148
63 164
64 -33
64 -42

SvCsuB

MACFIO

TABLL

59-29
62-19
64 -37
65-42
67-127
7-2780
19-43
26-168
5-17

64 -42

69-22
69-26
69-26
69-30
69-34
69-40
69-49
69-53

S57-41

64 -45

69-22
69-26
69-28
69-32
69-34
69-44
69-49
69-53

S7-41

64 -45

S7-69

69-24
69-26
69-28
69-32
69-34
69-44
69-49
69-55
69-60
70-16
50-62
53-41
54 -45
55-18

57-69

60-32
62-28
64 -42
65-67
67-180
9-21
19 49
38-15
46-26

64 -56

69-24
69-26
69-28
69-32
69-34
69-44
69-49
69-55

64 -58

69-60
70-16
51-18
53-41
S4 -45
56 44

69-60
70-16
S51-18
53-44
54-45
56 -44

69-60

70-16
51-18
S53-44
54-57
56 -44

60-32
63-30
64 -42
65-67

60 32
63-30
64 -56
65-67

10-39
19-49
38-15
47-33

10-39
26-115
38-15
47-33

58-34

69-24
69-26
69-30
69-32
69-34
69-44
69-51
69-55

64-63

69-24
69-26
69-30
69-32
69-38
69-47
69-51
69-55
69-60

57-69

69-24
69-26
69-30
69-32
69-34
69-44
69-51
69-55

64 -58

64-63

69-60

69-24
69-28
69-30
69-32
69-38
69-47
69-51
69-57
69-71

51-25
S53-44
54-57
56-76

51 25
54-27
54-57
56-76

61-20
63-30
64 -56
66-52

61-20
63-71
64 -56
66-52

10-39
26-115
42-76
47 33

19-25
26-115
42-76
48-34

58-34

69-24
69-26
69-30
69-32
69-38
69-47
69-51
69-55

65-38

69-24
69-28
69-30
69-32
69-38
69-47
69-51
69-57

65-41

69-24
69-28
69-30
69-34
69-38
69-47
69-53
69-57

65-41

69-24
69-28
69-30
69-34
69-38
69-47
69-53
69-57

69-71

69-122

51-25
S54-27
54 -60
56-76

S2-46
54-27
54 -60
57-25

S2-46
54 -30
54-60
57-25

52-46
54-30
55-15
57-25

61-20
63-71
65-38
66-52

61-31
63-71
65-38
67-70

61-31
63-124
65 38
67-70

61-31
63-124
65-42
67-70

62-19
63-124
65-42
67 127

19-25
26-133
42-76
48 -34

19-25
26-133
44-180
48-34

19-34
26-133
44-180
50 67

19-34
26-168
44-180
50-67

19 34
26-168
45 17
S0-67

58-52

59-29

PARAMETER

CODING MACRO

CROSS REFERENCE

SVCTST

SVRHXX
SVSTAT
T$SAU

T$SAUT
T$SCLE
T$$DAT
T$SDU
TSSHAR

TSsrmd

T$SINI
T$SMSG

T$$PC

TSSPRO
T$SPTA
TSSRPT
TS$$SEG

T$$SOF

TSSSRV

T$sSUB

T$ARGC

1-DEC

TABLE (CREF v04.00

50 68
Se 48
53-67
54 -59
55-20
57-27
58-66
59-87
61-45
63-96
64 -45
65 66
67 75
67-247
7-278¢
54-17
58 15
63-17
37-151
57-101
13-19¢
56 -58

50-68
52-64
53-67
54 -59
55-25
57-27
58-66
60-44
61-45
63-96
64 -58
65 -66
67-75
68-62
7-285¢
54-17
59-14
63-17
38-33
58-43
27-16e
56 -90

45-100
46-8¢
70-16
47-8¢0
68-S3

45-17
46-24
70-16¢
47-18
68-530

12:59:38 PAGE

S-20

51-20
52-71
54 29
54 -6¢
56 57
57-55
58-92
60-52
62-25
63-138
64-63
65-72
67-152
69-71
50-S7
55-8
60-20
64-19
38-139
59-40
27-179s
58-47

51 20
52 71
54-32
54 62
56 57
57-83
58-92
60-52
62-34
63-138
64-63
65-85
67-152
69-71
51-14
55 8
60 20
65-18
38-182
59-60
27-183s
58-67

44-103
19-27¢

44-165
19-34

44-180
19-360

19-43

69-12

70-16
42-61
67-203¢

70-16¢
42-76
67-205

69-12¢

67-205¢

69-71

S0-62¢

S0-67

26-1650

26-168

S54-276

SA4- 29

51-186

58-52¢
62-280
65-38¢
67-1800

S8-66
62-34
65-41
67-194

59-29¢
63-30¢
65-420

59-43
63-32
65-47

59-49¢
63-710
65-638¢

S7-12¢
61-9¢
66-83

10-39
S1-14¢

S57-1S
61-45
67-29¢

S1-31

S2-23¢

48-9¢

9-9

44-80
19-3¢

70-15¢

43-8¢
70-1S¢
42-470
67-203
26-1120

10-8
SO0-57¢

56-120
60-52
66-33

7-323
7-3230

19-8
19-11
19-11¢
19

140

48-19

9-9¢

44 -91
19-25

50-68
52-64
54-29
54-59
55-25
S57-55
58-66
60-44
62-25
63-96
64 -58
65-72
67-75
68 -62
50-57
S4-17
59-14
64-19
38-47
58-63
27-173¢
57-56

)

51-20
52-64
54-29
54 -62
55-25
57-55
58-92
60-44
62-25
63-138
64 -58
65-72
67-152
68-62
50-57
S5-8
59-14
64-19
38-84
58-81
27-176s
57-84

55-18¢

T$sSW
T$$TES

v04.00

55-20

10-8¢
S0-68

7-323
7-3236

19-8
19-11
19-13

19-140

3EQ G185

S1 27
52-71
54-32

S51-27
53 43
54-32

51 27
535-43
54 -44

S1-31
53-43
54 -44

51-31
53-60
5S4 -44

S1-31
53-60
S54-47

Se 48
53 .60
54 -47

52 48
53-67
54 47

54-67
56-57

54-67
56 -89

5SS 17
56 -89

55-17
56-120

55-20
56-120

55 20
S7-27

60-52
62-34
63-165
64-63
65 85
67-194
69-71
51-14
56 -23
60-20
65-18
38-251
59-78
27-186¢
59-44

61-25
62-34
63-165
65-41
65-85
67 194
70-16
51 14
56-23
61-9
65-18
38-270
63-93
27-189¢
S9-64

61-25
62-38
63-165
65-41
66-60
67-194
70-16
52-23
56-23
61-9
66-25
38-348¢
63-135
27-192¢
63 97

61 25
62-38
64-39
65-41
66-60
67-205
70-16
S52-23
57 12
61-9
66-25
56-54
63-156
27-195¢
63-139

61-36
62-38
64 -39
65-47
66-60
67-205
70-21
S52-23
57-12
62-10
66 -25
56-86
67-149
27-198¢
67-153

61-36
63-32
64 -39
65-47
66 83
67-205
70-21
53-22
57-12
62-10
67-29
56-111
67-191
28-37
67-195

61-36
63-32
64 -45
65-47
66-83
67-287
70 -21
53-22
58-15
62-10
67-29
57-52
67-220
28-66

61-45
63-32
64 -45
65 66
66-83
67-247

19-45¢

19-49

53-60

57-83
59-43

57-110
59-43

57-110
59-63

58-46
59-63

58-46
$9-87

58-46
59-87

53-22
58-15
63-17
67-29
57-80
28-106

48-34

46-26
70-21
47-33
68-62

9-21

70-22

26-115

DIF J

26-130¢

54-300

S56-440¢

7-323
7-323¢

19-8
19-11
19-13
19

140

26-133

51-20

S54-32

56-57

51-25¢

S4-420

56-760

32-340

32-36

38-40

38-15

S51-27

S2-460

52-48

52-490

S2-64

53-410

53-43

53-440

S6-89

57-25¢

S7-27

57-41¢

57-55

57-69¢

57-83

58-340

S4-44

54-45¢

54-47

S54-576

54-59

54-600

54-62

$5-15¢

59-63
63-96
65-66

60-32¢
63-1240
65-67¢

60-44
63-138
65-72

61-20¢
64-370
66-520

61-25
64-39
66-60

61-310
64-420
67-70¢

61-36
64-45
67-75

62-19¢
64-560
67-1274

52-71

S53-22¢

53-67

54-17¢

S54-67

55-8¢

55-25

56-230

S55-17

S8-46

62 25
64-58
67-152

S56-26

57-18
62-100
67-37

S7-110
62-35
67-78

S8-15¢
62-38
67-247

S8-18
63-17¢

58-21
63-35

58-92
63-165

59-14¢
64-19¢

59-17
64 63

59-20
65-180

59-87
65-85

60-200
66-25¢

7-323
19-4

7-323
19-4¢

7-3230
19-4¢

7-3238
19-8

7-3232
19-8

19-14¢

19-140

19-14
19-149¢

19-16

19-16¢

19-17

19 149
19-17

19-8
19-11
19-13¢
140

19-8¢
19-11
19-14

19-8¢0
19-11
19-14

19-8¢
19-11

19-8¢
19-11¢
19-14

19-8¢
19-11e
19-14

19-10
19-11¢
19-14

19-10¢
19-11¢0
19-14
17

19-11
19-11¢
19-14

19-11
19-11¢

PARAMETER CODING MACRO VO4.00

CROS5 REFERENCE
19-17
19-21
19-28¢8
19 30¢
19-31¢
19-40
19-46¢
32-171
33-45
33-S1¢
33-664
33-77

44-730
44 -859

T$CODE

TSERRN

TS$EXCP
T$FLAG

56-60
57-86¢
63-121
67-35
67-178
68 -55
68-59
69-14¢
69-18
69-22¢
69-28
69-32
69-38¢
69-44
69-49¢
69-55
69-59

7-2780

27-664
27-103¢
27-140¢
27-203¢
56-112¢
62-33¢
68-55
69-24
42-61
44 -165¢0

56 -26¢
58-21
62-35¢

T$FREE
T $GMAN
TSHILI

TSLAST
TsLOLI
TSLSTM

67-78
69-122
7-2780
68-55
69-24

1 DEC 83

TABLE (CREF v04.00
19-17
19-21¢

19-29
19-31
19-31¢
19-40¢
19-48

32-171¢
33-45¢
33-56
33-666
33-77¢
44-730
44-114

56 -60
58-69
63-121¢
67-35
67-1780
68-55
68-59¢
69-14¢
69-18¢
69-22¢
£2 28
69-32¢
69-38¢
69-440
69-49¢
69-55
69-59
27-27
27-71
27-108
27-147
30-19
57-102
63-148
68-55¢
69-24¢
42-61¢

46-24
57-15

58-21¢
63-35
67-780
70-22¢

19-17
19-22
19-29
19-31
19-33
19-400
19-48
32-171¢
33-45¢
33-56
33.73
33.77¢

44-75
44-114
56 -604

58-69
63-122
67-35¢
67-197
68-55
68 -59¢
69-16
69-18¢
69-24
69-28
£9-32¢

6% -40
69-44¢
69-51
69-55
69-59
27-27¢
27-71¢
27-108¢
27-147¢
30-19¢
57-102¢
63-148¢
68-57
69-26
42-61¢
46-24

57-15
58-21¢
63-35
67-78¢

)

12:59:38 PAGF

19-17
19-22
19-29
19-31
19-33
19-400
19-48¢
32-173
33-50
33-56
33.73

44-29
44-75
44-114

S6-61
$8-69¢
63-122

67-350
67-197
68-55¢
68-59¢
69-16
69-18¢
69-24
69-280
69-32¢
69-40
69-440
69-51
69-550
69-59
27-35
27-76
27-113
27-150
30-23
58-84
63-157
68-570
69-264
44-91
46-240

19-17
19.22
19-29
19-31

19-330
19-40¢
32-165
32-173
33-50
33-56
33-73

44-29

44-75
44-1140

56-61
59-66
63-122¢
67-155
67-197¢

68-55¢0

68-61
69-16
69-20
69-24
69-28¢
69-34
69-40
69-47
69-51
69-55¢

69-59¢
27-35¢
27-76¢
27-113¢
27-150¢
30-23¢
S58-84¢
63-157¢
68-59
69-28

44 -91
46-240

57-15¢
$9-17
63-35¢

57-15¢
59-17
63-35¢0

ELS
S5-21

19-170
19 22
19-29
19-31
19 39
19-400

32-16S

32-173¢
33-50
33-560
33-73¢0

44-29¢
44 -75¢
44-1144¢

56-619
59-66
63-141
67-155

68-552
68-61
69-16
69-20
69-24¢
69-28¢0
69-34
69-40
69-47
69-51¢
69-55¢
69-59¢
27-42
27-87
27-118
27-155
30-27
59-79
64-33
68-59¢
69-28¢

5EQ 0186

19 176
19-22¢
19-29

19-31
19-39

19-40¢
32-165¢
33-40
33-50
33-56¢
33-73¢

44-71
44-750
44-127

56-73
59-66¢
63-141
67-155¢

68-57
68-61
69-16
69-20
69-24¢
69-30
69-34
69-40
69-47

69-51¢
69-57
69-59¢
27-429
27-874
27-118¢
27-155¢
30-27¢

66-33

59-79¢
64-336
68-61
69-30
44-91¢
47-18¢
57-18
59-17¢
66-33

44-910
47-18
57-18
59-17¢

19-17¢
19-224
19-29¢
19-31
19-39¢
19-42
32-168
33-40
33-500
33-56¢0
33-75

44-71
44 -77
44-127

19-17¢
19-22¢
19-29¢
19-31
19-40
19-42
32-168
33-40¢0
33-500
33-57
33-75

44-71
44-77
44-127

19-170
19-24
19-29¢
19-310
19-40
19-4206
32-168
33-43
33-50¢
33-57
33.75

44-710
44-77
44-127¢

19-17¢
19-24
19-29¢
19-31¢
19-40
19-46
22-168¢0
33-43
33-51
33-57¢
33-75¢

44-710
44-770
44-127¢0

S6-73
63-99
63-1410
67-156

56-73¢
63-99
66-31
67-156

S56-74
63 99¢
66-31
67-156¢

56-74
63-100
66-31
67-177

68-57
68-610
63-16
69-200
69-240
69-30
69-340
69-40
69-47¢
69-51¢
69-57
69-59¢
27-47
27-92
27-123

68-57
68-610
69-160
69-200
69-26
69-30
69-340
69-400
69-470
69-53
69-57
69-60
27-470
27-920
27-1230
27-1600
30-31¢0
61-240
67-209¢
69-18
69-32

68-570
68-610
69-16¢
69-200
69-26
69-300
69-340
69-400
69-470
69-53
69-57¢
69-60
27-52
27-95
27-128
27-165
30-35
61-35
67-221
69-18¢
69-32¢

68-570
69-14
69-169
69-22
69-26
69-300
69-38
69-40¢

27-160

30-31
61-24
67-209
68-610
69-300
44-103
47-18¢

57-18¢
59-20
66-330

44-103
48-19

57-180
59-20
66-330

69-49

58-18
59-20¢0
67-37

69-53
69-57¢0
69-60
27-52¢
27-95¢
27-128¢
27-165¢
30-35¢
61-35¢
67-2210
69-20
69-34
44-103¢
48-19¢
58-18
59-200
67-37

44-103¢
48-19¢

19 170
19-24¢
19-29¢6
19-314
19-40
19-46
32-1680
33-430
33-51
33-66
33-75¢

44-73
44-77¢
44-132

S6-740
63-100
66-319
67-177

68-57¢
69-14
69-160
69-22
69-260
69-300
69-38
69-40¢
69-49
69-53¢
69-57¢

69-604
27-61
27-98
27-135
27-170
31-22
62-24

69-200
69-340
44-165

56-26
58-18¢
62-35
67-37¢0

19-170
19 28
19-30
19-31¢
19-40
19-46
32-171
33-45
33-51
33-66
33-77

44-73
44 -85
44 -132
57-86

19-21
19-28
19-30
19-31¢0
19 40
19-464
32-171
33-45
33-510
33-66
33-77
44-73

44 -85
44-132¢
57-86

63-100¢
66-310
67-177#9

63-121
67-35
67-178

68-59
69-14
69-18
69-22
69-260
69-32
69-38
69-44
69-49
69-53¢
69-59
69-60¢
27-61¢
27-98¢6
27-135¢
27-1700
31-22¢
62-240

68-59
69-1490
69-18
69-226
69-260
69-32
69-380
69-44
69-499
69-53%
69-59
69-60¢
27-66
27-103
27-140
27-203
56-112
62-33

69-22

69-220

44-165

44 -165%

56-26#
58-21
62-35%

56-26
58-18¢
62-35
67-372

67-78

68-57
69-26

68-57¢
69-26¢

68-59
69-28

68-59¢
69-28¢

68-61
69-30

68-610
69-30¢

69-18
69-32

69-18¢
69-320

69-20
69-34

69-200
69-34¢

69-22

69-22¢

69-24

68-55¢
69-24¢
69-122¢
68-55¢
69-240

68-57
69-26

46-26

68-59¢
69-28¢
19-34
50-67
54-47

68-61
69-30
19-43
S50-68
54-59

68-61¢
69-30¢
19-49
51-20
54-62

69-18
69-32
26-115
S51-27
54-67

69-18¢
69-329
26-133
51-31
55-17

69-20
69-34
26-168
52-48
55-20

69-20¢
69-34¢
32-36
52-64
55-25

69-229

68-59
69-28
19-25

69-22

68-57¢
69-26¢
10-39

38-15
52-71
56-57

42-76

7-278¢

68-55

7-278

53-60

7-2780

S3 67

70-1S

9-21

54-29

47-33

54-32

48-34
54 -44

53 43
56 -89

PARAME TER

CODING MACRO

CROSS REFERENCE

TSLTNO
TSNEST

56-120
61 36
65 47
69 122¢
7-2780
10-39
19-25
19-43
26-115
26-168
38-15
42-76
44 180
46-26

48 -34

50-62
51-18
51-31
S2-49
$3-41
53-67
54-30
54 -45
54 -60
55-15
55-25
S6-76
57-25
57-69
S8-34
58-92
$9-49
60-32
61-20

T$NSO
TENS1

26-130¢

T$NS2

45-10¢
53-22¢
60-204
67 29¢
S0 62¢

TABLE

V04.00

DEC

(CREF v04.00

57-27

61-45
65-66
7-304

10-39
19-25
19-43
26-115
26-168
38-15

42-76
44-180
46-26

48-34
50 62
51-18
S51-31
52-49
53-41
53-67
54 30
54 -45
54-60
55-15
55-25
56-76
57-25
57-69
58-34
58-92
59-49
60-32

61-20
61-45
62-28
63-30

63-124
64-37
64 -56
65-38
65-63
65-85
66-83
67-127
67-203
68-43
69-40
10-40
9-21
26-133
45-17

53-67
60-52
67-247
50-67

57 S5
62-25
65-72
7-304

10-39
19-25
19-43
26-115
26-168
38-15

42-76
44-180
46-26
48-34

50-62¢
S51-18¢
S51-31
S52-49¢
535-41¢
53-67
54-30¢
54-45¢
54-600
35-15¢
55-25
56-76¢
57-25¢
57-69¢
58-34¢
58-92
59-49¢
60-32¢

12:59:38 PAGE

57-83
62-34
65 85
7-3040

10-39¢
19-25¢
19-4306
26-1150

26-168¢
38-15¢
42-760

44-1800
46-260
48-34¢

11-51¢
10-8¢
26-165¢

50-67
51-20
51-31¢
S2-64
53-43
53-67¢
54 -32
S4-47
S54-62
55-17
55-25¢
56 -89
57-27
57-83
58-46
58-92¢
59-63
60-44
61-25
61-45¢
62-34
63-32
63-138
64 -39
64-58
65-41
65-66
65-85¢
66-83¢
67-152
67-205
68-43¢
69-71
41-1
10-39
26-168

S4-17¢
61-9¢
68-53¢
S1-18¢

54-67
61-45
68-62
51-20

61-20¢
61-45
62-28¢
63-30¢
63-124¢
64-37¢
64 -56¢
65-38¢
65-63¢
65-85
66-83
67-127¢
67-203¢
68-43
69-59

46-8¢

S-22

5EQ G187

)

46-26

57-110
62 38
66-60

58-46
63 32
66-83

9-9
10-40
19-27
19-45

99
10-40

26-130
32-34

41-1
43-8
45-10
47-8
48-35

50-67
31-20
52-23
S52-64
53-43
54-17
54-32
54-47
54 -62
55-17
56-23
56 -89
57-27
57-83
58-46
59-14
59-63
60-44
61-25
62-10
62-34
63-32
63-138
64 -39
64 -58
65-41
65-66
66-25
67-29
67-152
67-205
68-53
69-71

42-41¢

19-3¢
32-34¢

47-89

S55-8¢
62-10¢
69-12¢
51-25¢

19 27
19-45
26-130
32-34

41-1
43-8
45-10
47-8
48-35

50-67
51-20
52-23
52-64
53-43
54-17
54 -32
54-47
54-62
55-17
56-23
56 -89
57-27
57-83
58-46
59-14
59-63
60-44
61-25
62-10
62-34
63-32
63-138
64 -39
64 -58
65-41
65-66
66-25
67-29
67-152
67-205
68-53
69-71
48-35
~9-25
X2-36
47-33

95-25
62-38
69-16

51-27

58-66
63-96
67-75
9-90

10 40
19-c70
19-45¢
26-1300
32-340

41-1
43-8¢
45-100
47-80
48-35

58-92
63 138
67-152
9-21

10-404
19-34
19-49
26-133
32-36

41-10
43-12
45-17
47-33
48-350

S0-68
51-25
52-46
52-71
53-44
54 -27
54-42
54-57
54-67
55-18
56 -44
56-120
57-41
57-110
58-52
59-29
59-87
60-52
61 31
62-19
62-38

67-152¢
67-205¢
68-53¢
69-71¢
S0-38¢
19-27¢
38-4¢
48-9¢

56-23¢

63-17¢
69-40
52-46¢

63-71
63-165
64 -42
64-63
65-42
65-67
66-52
67-70
67-180
67-247
68-62
69-123
67-254
19-34
38-15
48-34
56-120
63-165
69-59
52-48

59-43

63-165
67-194
9-21

11-51
19-34
19-49
26-133
32-36

42-41
43-12
45-17
47-33

50-38
50-68
51-25
52-46
52-71

59-63
64 -39
67-247
9-21

11-51
19-34
19-49
26-133
32-36

42-41
43-12
45-17
47-33

54-27
54-42
54-57
54-67
55-18
56-44
56-120
57-41
57-110
58-52
59-29
59-87
60-52
61-31
62-19
f2-38
63-71
63-165
64 -42
64-63
65-42
65-67
66-52

50-38
S0 68
51-25¢
S2-460
S52-71
53-440
54-27¢
54-4206
S54-57¢
54-67
S5-184
56-440
56-120
57-416
57-110
58-52¢
59-29¢
59-87
60-52
61-310
62-190
62-38
63-710
63-165
64-42¢
64-63
65-420
65-670
66-520
67-70¢
67-180¢
67-247
68-62
69-123
69-123

42-470

42-76

53-44

67-70
67-180
67-247
68-62
69-123
68-430
19-360
S50-57¢
57-12¢
64-199
69-71
52-49¢

19-43

50-68
57-110
64-63
S2-64

59-87
64 -45
68-62
9-210

11 510
19-34¢
19-49¢
26-133¢0
32-369

42-419

43-12¢
45-17¢
47-330

50-38¢
50-68¢
S1-27
52-48
S2-71#
53-60
54-29
54-44
54-59
54-679
55-20
56-57
56-1208
S57-55
57-110¢
58-66
59-43
59-87¢
60-52¢
61-36
62-25
62-380
63-96
63-165¢0
64 -45
64-63¢
65-47
65-72
66-60
67-75
67-194
67-2470
68-62¢
69-123¢

60 52
54 -63

61-25
65-41

10-8
19-3
19-36
26-112
26-165
38-4

10-8¢
19-3&
19-36¢
26-112¢
26-165¢
38-49

42-47
44 -8
46-8

48-9

50-57
S1-14
S1-27
52-48
53-22
53-60
54-29
54-44
54-59
55-8
55-20
56-57
57-12
57-55
58-15
58-66
59-43
60-20
61-9
61-36
62-25
63-17
63-96
64-19
64 -45
65-18
65-47
65-72
66 -60
67-75
67-194
67-254
69-12

19-45¢

26-112¢6

S51-14¢
58-15¢
65-180

52-23¢
59-144%¢
66 -25¢

43-8¢

53-41¢0

44 -89

53 442

42-479
44 -80
46-8¢
48-9¢6

S0-57¢
S51-14¢
51-27¢
52-489
53-22¢
53-600
S54-29¢
S4 -440
54 -59¢
S5-8¢
55-20¢
56-57¢
57-12¢
57-55¢0
58-15¢
58-66¢
59-43¢6
60-20¢
61-90
61-360
62-25¢
63-17&
63-960
64-19%
64 -450
65-18¢
65-47¢
65-72¢
66-6090
67-750
67-1944
67-254
69 12¢
26-115

44-180

S2-71
59-87
66 83
53-60

PARAMETER CODIMG MACRO VO4.00

T$TAGL
T$TAGN

70-15¢
70-16

7-323
7

278¢

7 2788
7-278¢
67 2039

69-122

7-2788

52-46
54-27
54 -60
56-76
58-34
60-32
62-28
64 -37
65-42
67-70

7-278¢
7-2780
19-36
32-34

44-86

50-57

52-23
53-41¢
54-42
55-15

56-760

58-15
59-49
61-20¢0
63-17
64-37
65-38¢

TSTEMP

(CREF

54 -29
55-20
58-66
62 -34
65-41
67-194

1-DEC 83

v04.00

54-309
56-440

)

12:59:38 PAGE

54-424
56-76¢
59-49¢0
63-71¢4
65 630

70-16

54-32
56-57
59-43
63-32
65-47
67-205
70-160

70-160

70-22

67-203
67-205

67-203

67-203¢0

50-57¢0
52-46¢
54-27¢
54-60
56-76
58-34
60-32
62-28
64-37
65-42¢0
67-700

50 62
52-49
54-30
54 -60¢
56-76¢
58-340
60-320
62-28¢
64-370
65-63
67-127

50-62
52-49
54-30
55-8¢
57-126
58-S2
61-9¢
63-17¢

70-16
70-164
70-22#
70-16

59-29¢

63-304
65-42¢
67-2030

S-23

SEQ 0188

54 -44
56 89
59-63
63 9%
65 66

54 -456
57-25¢0
60-320
63-124¢
65-67¢

67 205

67-205

67-2054

50-629
52-49¢
54 -300
55-15
57-25
58-52
61-20
63-30
64-42
65-630
67-1270

S51-149
53-22¢
54-42
55-15
57-25
58-524
61-20
63-30
64-420
65-67
67-180

51-18

51-18¢
53-410

10-8
19-450

63-30
64 -42
65-42¢
67-29
69-12

52-46
S54-17
S4-450
55-18
57-25
58-34¢
60-20
62-10
63-30¢
64-42
65-63
67-29¢
69-12

10-8
26-112
38-40
46-8
51-14
52-460
54-17
54-57
55-18¢
57-25
58-52
60-200
62-10
63-71
64-42¢
65-63
67-70
69-12¢

8-8
8-8
s8-8
8-8¢0
10-40
26-168

8-8
8-8
8-8
8-8¢
10-40¢
26-168¢

8-8
8-8
8-8
8-8¢
19-25
32-36

54-47
57-27
60-44
63-138
65-72

54-576
S7-414
61-200
64-374
66-52¢

54 -59
57-55
61-25
64 -39
66-60

54 &Co
S7-69¢
61-314

64 -424%
67-704

54-6¢
57 83
61 36
64 45
67-75

55-156
58 340
62-190
64 569
67-127%

55-17
58-46
62-25
64 S8
67 1S2

54-45
55-18
57-41
59-29
61-31
63-71
64-560
66-250

51-25
S3 44
54 -45
55-18¢
S7-410
59-29¢
61-310
63-710
65-18¢
66-52

51-25
53-44
54 -45¢6
56-230
57-69
59-49
62-10¢
63-124
65-38
66-52

51-25¢
53-4490
54-57
56-44
57-69
59-49
62-19
63-124
65-38
66-52¢

52-23¢
54-17¢
54 -57
56 -44
57-69¢

59-49¢
62-19
63-1240
65-38¢
67-29¢

52-46
54-27
S4-57¢
0
56-44
58-15¢
60-208
62-19¢
64 -190
65-42
67-70

19-3
26-130

19-39
26-130

19-27
26-1300

19-27&
26-165

19-36
26-1650

70-22¢

9-9

19-360
32-34

45-10

50-S57¢
32-23
53-44
S54-420
55-15
57-12
58-15¢

59-49
61-31
63-17¢
64 -37
65-42
66 -52¢
68-53
®;moe®

T$PCNT
T$PTAB
TSP THY
TSPTNU
T$SAVL
T$SEGL
T$SEKO
T$SIZE
T$SUBN

54-27¢
55 18¢
58 S52¢
62 288
65-38¢
67 180¢

TABLE

o ®e®

CROSS REFERENCE

10-39
26-133

43-12
46-26

50-68
53-43
54 -59

9-9

19-45
32-34¢

45-10

50-62

S52-23¢0
53-44
54-45
35-15¢
57-12

58-34

S59-49¢
61-31
63-30
64-37¢
65-42
67-29
68-53¢

64-42

65-63
67-127

9-99

19-45
38-4

45-10¢

50-62
52-46
S3-440
S54-45
55-18
S57-12¢
S8-34

60-20

61-31¢

44-91
47-18

51-20
53-60
54-62

38-4

46-8

50-62¢

44-91¢

47-18¢
S1 20¢
53-60¢
54-62¢

44-103
47-33

51-27
53-67
54-67

53-41

54-42
55-15¢
57-259
59-144
61-20¢
63-30¢
65-67
67-180

10-8¢
26-112

42-47
46-80

42-47¢
47-8

S51-14
52-49

51-18

43-8
47-8¢

51-18

S4-17¢
54-57
56-23
57-25¢
58-52
60-32
62-10¢
63-71
64-56
65-63¢
67-70
70-15

52-49¢
54-27
54-60
56-230
57-41
S59-14
60-32¢
62-19
63-124
64-560
65-67
67-127
70-15¢

53-22
S54-27¢
S54-60
56-44
57-41¢
59-14
61-9
62-19¢
63-124
65-18
635-67¢
67-127

8-8
8-8
8-8
8-8¢
19-250
32-360

8-8
8-8
8-8¢0
8-8¢
19-340
38-15¢

8-8
8-8
8-8¢
8-80
19-43
41-1

44-103¢
47-33&

S51-270
53-670
54-676

38-15
44-165

48-19

51-31
54-29
55-17

44-165¢
48-19¢

51-31¢
54-29¢
55-17¢

70-16

44 -180
48-34

S52-48
54-32
55-20

43-8
48-9

51-189
53-22
54-30
54-60¢
56-44
57-69

59-14¢
61-9
62-28
63-124¢
65-18
66-25
67-127¢
70-16

8-8
8-9
8-43¢
8-8¢0
19-43¢

41-1¢
44-180¢
48-344

52-48¢
54-320
55-20#

19-27

26-165
43-80
48-9
51-25
53-220
54-30
5556-44¢
57-69
59-29
61-90
62-23
64-19
65-180
66-25
67-180
70-16

8-8
8-8
8-8¢6
8-8¢

19-49

42-61
45-17
48-35

S52-64
54-44
55-25

44-8
48-9¢

51-25
53-41
S54-300
55-8
56-76
57-69¢
59-29

61-20
62-28¢
64-19

65-38
66-25¢
67-180
70-16

8-8
8-8
8-80
8-8¢
19-49¢

42-610
45-17¢
48-35¢

52-644
54-440
55-25¢

44-8

50-57

51-25¢

53-41
54 -42
55-8¢
56-76
58-15
59-29¢
61-20
63-17
64 -19¢
65-38
66-52
67-1802
70-16¢

8-8
8-8
8-82
9-21
26-115
42-76
46-24

50-67
52-71
54-47
56-26

| J
PARAMETER

CODING MACRO

CROSS REFERENCE
56 264
57-55¢
58 92¢
60 5260
62-38¢6
64-45¢

65-85¢

67-152¢
68-55¢0
68-61
69-18
69-226
69 269
69-32
69-38¢
69-47¢
69-53
TS$TEST

T$TSTM

69-57¢6

7-2780

52-49
54-60
57-25

60-20
63-17
65-38
69-122

7-278¢

19-29
26 -84
27-76
27-150
32-168
36-18
44-29
44-111

50-62
53-43
54-60
56-61
57-34
58-34
59-29
61-25
63-32
63-155
65-41
T$TSTS

11
T1.1
T10
710.1
710.1¢
110.2

67 37
67-197

7-278¢

63-17¢
8-8
50-62¢
8-8
59-29¢
59-30¢
59-49¢

TABLE

v04.00

(CREF

1-DEC-83

v04.00

)

12:59:38 PAGE

56 57
57-83
59-17
61-25
63-32
64 -58
66-33
67-194
68-57
68-61
69-18
69-224
69-28
69-32
69-38¢
69-49
69-53
69-57¢
50-57
53-22
55-8
57-41
60-200
63-170
65-42

56-574
S7-830
59-174
61-250¢
63-32¢
64-58¢0
66-33¢
67-194¢
68-57
68-61¢
69-18¢
69-22¢
69-28
69-32¢
69-384
69-49
62-53¢
69-57¢
55-8
57-69
60-32
63-30
65-63

69-60
S0-57¢
53-22¢
55-8¢
58-15
61-9
63-71
65-67

19-4
19-30

19-8
19-31
26-126
27-92
27-160
32-173
36-36

19-10
19-33
26-135
27-9S
27-165
33-40
36-45

26-94
27-87
27-155
32-171
36-20

44 -39
44-127

50-67
53-44
S54-62
56-73
57-41
58-46
59-43
61-31
63-35
63-157
65-42
67-70
67-201
50-57¢
64-19¢
50-57¢

59-14¢

59-72

S50-57
53-22

44-71
44-132
50-68

353-60
S54-67
56-74
S57-55
58-52
59-49
61-35
63-44
63-164
65-47
67-75
67-203
S51-14¢
65-18¢

56 -89
S7-110
59-20
61-36
63-35
64-63
66-60
67-205
68-57
68-61¢
69-18¢
69-24
69-28
69-32¢
69-44

69-49
69-53¢

44-73
44-165

S1-18
53-67
55-15
56-76
57-69
58-66
59-63
61-36
63-46
63-165
65-63
67-78
67-205
S2-23¢
66-250

S-24

5EQ 0189

56-894
57-1100
59-20¢
61-360
63-35¢0
64-630
66-600
67-2050
68-57¢0
68-610
69-18¢
69-24
69-28¢
69-32¢
69-44
69-490
69-530
69-60
50-62
53-41
55-15
58-15
61-9
63-124
66-25

56-120
58-18
59-43
61-45
63 96
65-41
66-83
67-247
68-57¢
68-62
69-20
69-24
69-28¢
69-34
69-44
69-490
69-55
69-60
S51-14
53-44
55-18
58-15¢
61-99
64-19
66-25

56 1204
58-18¢0
59-430
61-450
63-960
65-410
66-830
67-2470
68-574
68-62¢
69-20
69-240
69-28¢
69-34
69-444
69-49¢
69-55
69-600
51-14
S4-17
56-23
58-34
61-20

19-11
19-34
26-155
27-98

19-13
19-39
26-170
27-103
27-203

27-170
33-43
36-145

44-75
44-180

51-20
54-27
S55-17
56-89
57-83
58-69
59-66
61-45
63-71
64-33
65-66
67-86
67-209
$3-220
67-29¢

33-45
36-147

44-77

45-17
51-25
54-29

55-18
56-110

57-86
58-80
59-77
62-19

63-96
64-34
65-67

67-68
67-214
S4-17¢

57-18
58 46
59-87
62-34
63-165

66-25¢

58-52
61-31
64-19¢0
66-52

57-15¢0
58-21¢
59-63¢
62-259
63-1380
65-47¢0
67-37¢
67-2540
68-59
69-14
69-200
69-240
69-30
69-340
69-440
69-51
69-55¢
69-600
51-18
S4-17¢
56-23¢
59-14
62-10
64-37
67-29

19-14
19-40
27-27
27-108
30-19
33-50
36-199

19-16
19-42
27-35
27-113
30-23
33-51
36-209

19-17
19-43
27-42
27-118
30-27
33-56
36-254

51-31
S54-32
55-25
56-119
57-102
58-84
59-86
62-25
63-100
64-39
65-85
67-152
67-221
56-23¢0

52-46
54-42
56-26
356-120
57-109
S8-91
59-8~
62-26
63-12i
64-42
66-31
67-155
67-229
57-12¢

64-19

44 -85
46-10
S51-27

54-30
55-20
56-112
57-100
58-83
59-79
62-24
63-99
64 -37
65-72
67-127
67 219

55-8¢

57-15
58-21
59-63
62-25
63-138
65-47
67-37
67-254
68-59
69-14
69-20
69-240
69-30
69-34
69 444
69-51
69-55
69-60¢0
S1-14¢
54-17

56-23

44 -89
46-18

44-91
46-21

68-55
68-59
69-14
69-200
69-26
69-30
69-34¢
69-47
69 S1
69-55¢
69-71
51-25
54-27
56-44
59-14
62-10
64-42
67-29

57-18¢
58-460
59-87¢
62-340
63-165¢
65-669
67-750
68-55
68-59¢
69-140
69-200
69-26
69-309
69-340
69-47
69-510
69-55¢
69-710
52-23
54-30
56-76
59-14¢
62-104
64-56
67-29¢

19-21
19-46
27-47
27-123
30-31
33-57

19-22
19-48
27-52
27-128
30-35
33-66

65-66
67-75

42-76
44 -98
46-23

52-48
S54-44
56-37
S57-15
57-110
58-92
60-32
62-33
63-122
64-45
66-33
67-156
67-247
58-15¢

44-10

44-100
46-24
52-49
54-45
56-39

57-27
58-66
60-44

57-274
58 660
60-440

64 -39
65-72
67-78
68-55

69-47
69-51¢
69-57
69-123
52-23
54-42
57-12
59-29
62-19
65-18
67-70

64-39¢
65-720
67-786
68-55¢
68-59¢
69-140
69-22
69-269
69-30¢
69-38
69-476
69-51¢0
69-57
69-123¢
S2-23¢0
54-45
57-12
59-49
62-28
65-18
67-127

19-24
19-49
27-61
27-135
30-45
33-73

19-25
26-16
27-66
27-140
31-22
33-75

62-35

68-59¢

69-14¢
69-22
69-26
69-30¢
69-38

44-16
44-101
46-26

67-177

52-64
54-47
56-44
57-25
58-21
59-20
60-52
62-35
63-138
64-58
66-60
67-178

59-14¢4

60-200

57-18
58-18
59-17
60-44
62-34
63-124

64 -56
66-52

62-350

57-55
58-92
60-5S2
62-38
64 -45
65-85
67-152
68-55&
68-61
69-18
69-22
69-264
69-32
69-38
69-470
69-53
69-57

S52-46
54-57
57-12¢
60-20
63-17
65-184
67-180

19-28
26-35
27-71
27-147
32-165
33-77

44 -20
44-102
47-33
52-71
S54-57
56-57
S57-27
58-27
59-26
61-20

44-25
44-103

62-38
63-141
64-62
66-83
67-180

48-34
53-41
54-59
56-60
57-32
58-29
59-28
6l1-24
63-30
63-148
65-38
67-35
67-194

61-9¢

62-10%

PARAME TER CODING MACRO V04.00 1-DEC
83 12:59:38 PAGE S-25
CROSS REFERENCE
T10. 2%

110. 34

T10. 44

”»e

T10. 7%
T10. 8¢
T11
T11.
T11.
Ti1.
Ti2

lnmr-w

”»

Ti2.
T12.
T13

59 39
59 59
59-45
59 26
59-67
8-8
60-32¢
60-334
60-45¢
8-8
61-200
61-31¢
8 8
62-19¢
62-32
62-288
8-8
63-300
63-530
63-71¢
63-1240
63-44

63-101
63-710
63-92
63-134

14-28¢
8-8
64-37¢0
64-420
64-560
8-8
65-38¢
65-42¢0
65-639
65-67¢6
8-8
66-52¢0
8-8
67-700
67-127¢
67-180¢
67-148
67-190
67-157
67-86
8-8
S51-18¢
51-18¢

51-25¢

51-25¢
8-8
52-46¢0
52-29
52-49¢
8-8

TABLE (CREF
59-46¢
59-65
59-66¢
59-75#¢
59-73
60-20¢
60-39

V04.00

)

59-684
59 80¢

60-50

61-9¢

62-10¢
62-360

63-17¢
63-151

63-1534
63-123

63-116
63-140
63-79
64-190

63-142

63-150

63-158¢

63-125¢
63-144¢0
63-160

67-135

67-225

67-1810
67-200¢
67-198

67-212

67-222¢

65-18¢0

66-250
67-29¢0

67-172
67-196
67-179
67-217¢
S1-14¢

51-23
51-30
52-23¢

52-474
53-22¢0

115
560 G190

PARAME TER

CODING MACRO

CROSS REFERENCE
T4.1

14.2
15
15.1
15.11
15.2
15.3
15.31
15.4
5.5
15.51
5.6
16
76.1
16.11
16.2
17
T7.1

T7.1%

17.10¢
T7.2
T7.2%
T7.20%
17.3%
T17.44%
T7.7%

77.8%
T7A
18
78.1
78.1¢
78.10¢
18.2
78.2%
18.3
78.3s
18.4%
78.5%
18.64
18.7¢
78.8¢
78.94

T9
19.1
19.1%
19.2
19.2¢
19.3%
19.4%
19.7¢
79.8¢
T0
TEMPO
TESTL
TEST10
TEST13

53 414
53 449
8-8
54 27¢
54 28¢
54-304
S4-424
54-430
54-45¢
54 57¢
54-58¢0
54-600
8 8
55-15¢
55 16¢
55-18¢
8-8
56-44¢
56 454
56-60¢
56-768
56-53
56 734
56 -85
56 59
56-37
56-62
14-60
8-8
57-25¢

57-38¢

57-79
57-41¢
57-51
57-69¢
57-40
57-66¢
57-23
57-68
57-32
57-87
57-57
8-8
58-34¢
58-31¢
58-S2¢
58-42
58-62
58-48

58-27
58-70
38-10
13-8¢
S0-59¢
59-22¢
62-13¢0

TABLE

V04.00

(CREF

DEC

v04.00

12:59:38 PAGE

S 26

J15
5£Q 0191

)

S4-17¢
54-36
54 -51

54 66

55-8¢
55-24

56-23¢
56 106
56-91

56-68
56-101
56-96
56-64¢
56-108¢
56-75
56-32
57-12¢

56-774

57-60
57-85

57-96
57-88¢

56-103¢
56-105
56-115

S56-113¢

57-58¢0
57-610
57-90
57-280
57-91¢
57-96¢
57-93
57-86¢
58-15¢

57-103¢

58-75

58-49¢
58-68
58-69¢
58-780
58-76
38-19¢
63-48+
50-66

62-37

58-71¢
58-85¢
63-145

63-147¢

67-90¢

67-206

67-208+

PARAMETER

CODING

CROSS REFERENCE
TEST14
TEST1S
TEST16
TEST17
TEST18
TEST3
TEST4
TESTS
TEST6
TEST?
TESTS
TEST9
TICKMS
TICKUS
TIM.DN
TIM.PT
TIM.UP
TIMER
TIMMSG
TIMSTL
TIMT10
TIMT11
TIMT12
TIMTYP
TRE
TRGSEC
TR .DS
TRK .RD

TRKWC
TRNSWT
TST12
TST12A
TST13
TST14A
TST1S
TST18A
TST188
TST18C
TWOMS
TYPTIM
TYTIME
UAM
UNIT
UNS
UNSMSG
UPE
VERIFY

WCE
WCEFLG
WCF
WCKD
WCKHD
WLE
WOR

63-29&
64 -230
65-30¢
66-53¢
67-55¢
S52-27¢
53-260
S4-25¢
55-13¢
S6-33¢
57-20¢
58-23¢
26-S1s
26-52+

13-40¢
13-46¢
13-33¢

35-1164
38-264»
69-51
10-21¢
14-13¢
14-18¢
14-23¢
10-20¢
12-11¢
13-14¢
13-31¢
13-27¢
67-220»
13-49¢
35-90¢
61-23
61-34
62-23
63-20
64-43¢
67-52
67-920
67-225¢0
26-152¢
33-17¢
13-9¢
11-57¢
17-3¢
12-93¢
18-79¢
12-38¢
28-79
12-39¢
13-47¢
12-84¢
12-210¢
12-211¢
12-90¢
12-147¢

MACRO

TABLE

v04.00

(CREF

DEC

v04.00

12:59:38 PAGE

S-27

IKi
SEQ G192

)

63 34
64 -60

65-83
66-65
67-77
52-67
53-63

26-55+
26-564
32-51e
32-45
32-44
36-23
69-940
26-157
57-19
58-22
59-21
33-27

66-74

66 81

52-70
53-66

26-590
26-60¢
32-74
32-91»
32-50+
36-65+

26-113
32-120
32-92+
32-71
36-128+

32-143
32-117
36-246+

32-146+
33.23
37-155+

32-147»
63-145
37-210+

67-206
38-22+«

67-211
38-118»+

38-143s

38-208

38-210+

38-243+

38-258+

58-81»

59-78+

63-156+

57-105
58-87
59-82

19-40
19-29
19-4

63-55
19-31
19-31

67-111+
19-38+
27-21s

19-40
28-9

28-32¢
28-11e

28-614
28-16+

28-101s
30-15+

29-18+
31-16+

31-19+
56-111¢

32-21e
S7-101e

60-25
37-13+
61-26¢
61-37¢
62-274
63-37¢
64-51
67-80¢
67-215

65-21

37-185

66-37
37-187+

37-198

37-216s

37-222+

38-24

38-25+

38-236

38-253+

57-59
56-115
32-162

57-89
S7-105
33-26+

58-51
58-87
33-37+

S58-73
59-82

59-48
63-160

59-70
67-225

44-30¢

44-33+

44 -34

44-39

44-77
27-30
28-120

31-8¢

56-64+

S6-71s

56-92+«

56-99«

63-103+

63-119¢

67-159+

67-175

65-70

66-58

67-73

67-202

27-45
29-9s
27-69
65-45

27-74
27-153

PARAMETER

CODING MACRO

CROSS REFERENCE
WRITMG
WRPAT
WRPATN
WRSAFM
WRT.RP
WRTALL

WRTDAT

WRTENM
WRTTD
WRYUNS
X$ALWA
X$FALS
X$OFFS
X$ TRUE
xITi4
XIT18
XTIMES

€9-38
65 398
65-646
69-44
36-101

TABLE

V04.00

(CREF

69-87#
65-S2
65-77
69-88¢
36-105

37-21

10-27¢

66-28

67-32

18-640
12-214¢
12-1464
1-278¢
7-2786
7-278¢
7-27806
63-39
67-82
13-12¢

66-31

67-35

37-117

12-212¢

37-140

65-43

DEC

v04.00

37-146

65-68

)

12:59:38 PAGE

S-28

37-31

37-35

66-56

67-71

67-183

37-164

37-168

27-153

69-16
69-16

69-40
69-40

69-59
69-59

63-163¢
67-2286
63-18

63-149

67-40

67-211

37-179

5EQ 0193

37-46

105

38-3154

37-66

37-71

37-83

37-102

]

PARAMETER

CODING MACRO

CROSS REFERENCE
s8COMPL
BERROR
BGNAU
BGNAUT
BGNCLN
B8GNOU
BGNHRD
BGNHW
BGNINI
BGNMOD
BGNMSG
BGNPRO
BGNPTA
BGNRPT
BGNSEG
BGNSET
BGNSF
T
BGNSRV
8GNSuB

BGNSW
BGNTST

BNCOMP
BNERRO
BREAK
BRESET
CKLOOP

CLOCK

CLOSE
CLRVEC
COMMEN

DELAY
DESCRI
DEVTYP
OISPAT
DISPLA
Do

DOCLN
DODTA
DORPT
ORV. IN
ENDAU
ENDAUT
ENDCLN
ENDCOM
ENDOU
ENDHRD
ENODINI
ENDMOD

1-15¢
1 190
1-23¢0
1-31¢
1-39¢
1-47¢
1-55¢
1-66¢
1-77¢
1-85¢
1-98¢
1-1060
1-114¢6
1-144¢
1-152¢
l1-161e
1-182¢
1-193¢
1-201¢0
54-60
61-31
67-70
1-225¢
1-2360

TABLE

v04.00

(CREF

7-2780
7-278¢
7-278¢
7-2780
1-278¢
7-2784
7-278¢
7-278¢
7-278¢
7-278¢
7-2784
7-2788
7-2784
7-2780
7-278¢
7-278¢
7-2784
7-278¢
7-2780

55-15
62-19
67-127

7-2786
1-278¢

63-17

7-2780
7-2786
7-278&¢
7-278¢
7-278¢
7-278#
7-2786
7-278¢
7-278¢

DEC

V04.00

)

12:59:38 PAGE

48-9
45-10
46 8
47-8

68-53
9-9

44-8
7-304

19-3

43-8
70-16
42-47

67-203
70-15
69-12
26-112
50-62
55-18
62-28
67-180
10-8
50-57
64-19
26-18

11-51

42-41

19-36

50-38
19-45

68-43

26-130
51-18
56-44
63-30

26-165
S51-25
56-76
63-71

32-34
52-46
57-25
63-124

38-4
52-49
57-41
64-37

53-41
57-69
64-42

53-44
58-34
64-56

54-27
58-52
65-38

54-30
59-29
65-42

54-42
59-49
65-63

54 -45
60-32
65-67

54-57
61-20
66 -52

51-14
65-18
26-37

S52-23
66-25

53-22
67-29

54-17

55-8

56-23

57-12

58-15

59-14

60-20

61-9

19-27

44-22

44 -27

44-40

44-101

46-18

46-21

46-23

44-10

26-35

44-98

44-100

50-59
7-278¢

52-26

53-25

7-278¢
7-2780
7-278¢
7-278¢
31-24
54-58
7-278¢
60-33
7-278¢
7-278¢

18-27
18-17
8-8

7-278¢
7-278¢
7-278¢
7-2786
7-278¢
7-2786
7-278¢
7-278¢
7-278¢

SEG 0194

44-18

26-16

56-113

M-1

M15

44-138

S0-63

54-61
30-45
62-20

55-16
44-102
62-29

55-19
64-34
63-31

51-19

51-26

52-47

52-63

53-42

53-59

54-28

54-31

54-43

64 -38

64 -44

64-57

65-40

65-44

65-46

65-65

65-69

65-71

S57-103
48-34

S58-85

59-80

63-158

67-222

41-1

48-35

67-254

69-123

45-17
46-26
47-33

68-62

9-21
44-180

10-40

PARAME TER

CODING

CROSS REFERENCE

ENDMSG
ENDPRO
ENDPTA
ENDRPT
ENDSEG
ENDSET
ENDSF
T
ENDSRV
ENDSUB

ENDSW
ENDTST

EQUALS
ER.NDX
ERRDF
ERRHRD

ERROR
ERRSF
ERRSOF
ERRTBL
ESCAPE
EXIT
FEQUAL

GETBYT
GETPRI
GE TWOR
GMANIA
GMANID
GMANIL
GPHARD
GPRMA
GPRMD
GPRML
HEADER
INLOOP
I0OSETU
IOSTAR

KT11

LASTAD

MSBYTE
M$CHEC

M$CNTO

M$COUN

1-500¢
1-512¢
1 5200
1-529¢
1-541¢
1-555¢
1-568¢
1 580¢
1-596#
54 -62
61-36
67-75
1-614¢
1-624¢
62-38
1-642¢
7-1420
1-7140
1-7180
27-98
27-170
1-722¢
1-7264
1-730¢
1-7340
1-7440
1-771¢
59-17
1-810¢
1-824¢
1-834¢
1-829¢
1-839¢

MACRO

V04.00

DEC-83

TABLE (CREF v04.00
7-278¢
7-2784

7-278¢

7-278¢
7-278¢
7-278¢
7-278¢
7-278¢
7-2788
55-17
62-25

19-25

43-12
70-21
42-76

59-20

62-35

28-32

7-278¢
7-278¢

7-278¢
7-278¢
7-278¢
7-278¢
7-278¢
7-278¢

7-278¢
7-278¢
7-278¢
7-278¢
7-278¢

7-278¢
7-2784
7-278¢
7-278¢
7-278¢0
7-278¢
7-278¢
7-278¢
7-278¢
7-278¢
7-278¢
7-278¢
7-278¢
7-278¢
48-19¢

59-200

7-278¢

69-20¢
69-34¢
69-55¢

7-278¢

19-11
19-14

M-2

19 34

19-43

19-49

26-133
51-20
56-57
63-32

26-168
S51-27
$6-89
63-96

32-36
52-48
57-27
63-138

51-31
65-85

52-71
66-83

53-67
67-247

28-101
30-23
27-35
27-113
56-112

29-18
30-27
27-42
27-118
57-102

32-21
30-31
27-47
27-123
58-84

44-91

44-103

44-165

N15
5EQ G195

70-22

27-103
27-203

7-278¢
7-278¢
63-165
7-2788

PAGE

67-205

69-71
26-115
50-67
55-20
62-34
67-194
10-39
50-68
64-63
11-57
28-61
30-19
27-27
27-108
31-22

67-152

)

12:59:38

42-61

36-18

63-35

66-33

38-15

52-64
57-55
64 -39

53-43
57-83
64 -45

53-60
58-46
64-58

54-29
58-66
65-41

54-32
59-43
65-47

54-44
59-63
65-66

54-47
60-44
65-72

54 -59
61-25
66 -60

54-67

55-25

56-120

57-110

58 -92

59-87

60-52

61-45

30-35
27-52
27-128
59-79

63-148
27-61
27-135

61-24

64-33
27-66
27-140
61-35

67-209
27-71
27-147
62-24

27-76
27-150
62-33

27-87
27-155
63-157

27-92
27-160
67-221

27-95
27-165

46-24

47-18

48-19

56-26

57-15

57-18

58-18

58-21

67-37

67-78

36-145

36-209

68-57
68-61
69-38

69-18
69-44

69-20
69-47

69-22
69-49

69-24
69-51

69-26

69-53

69-28
69-55

69-30
69-57

69-32
69-60

69-34

7-323
42-61¢

7-323
44-91

7-3230
44-91¢

44-103

44-103¢

44-165

44-165¢

46-24

46-240

47-18

44 -39

68-55
68-59
69-14

7-323

56-26¢
62-35¢
68-55¢
69-22¢
69-38¢
69-57¢
19-4
19-11
19-16

57-15
63-35
68-57
69-24
69-44
69-60
19-4
19-11
19-16¢

57-15¢
63-35¢
68-57¢
69-244
69-44¢
69-60¢
19-4¢
19-11
19-17

57-18
66-33
68-59
69-26
69-47

S7-18¢4
66-330
68-59¢
69-26¢
69-47¢0

19-8
19-11¢
19-17

19-8
19-13
19-17

58-18
67-37
68-61
69-28

69-49

58-18¢
67-370
68-610
69-28¢
69-49¢

58-21
67-78
69-14
69-30
69-51

S58-21¢
67-780
69-149
69-30¢
69-514

19-8
19-13¢
19-17

19-8
19-14
19-17

19-8¢
19-14
19-17

19-10
19-14
19-17

59-17

47-184

59-17#

69-18
69-32
69-53

69-184%
69-32¢&
69-53¢

19-102
19-14
19-17¢

19-11
19-14
19-21

PARAME TER

CODING MACRO

CROSS REFERENCE
19 2te
19-30¢
19-40
3 1711
33-51¢

44 -29

MSDATA

44-127
58-69
66-31
1-867¢
7-323
7-323

MSDECR

18-17¢
1-D29%¢
19-49

42-76
48-35

MSDEFA

52-64
5S4 -44
55-25
$7-110
60-44
62-38
64 -58
66 -60
67-247
1-€E700

69-20
69-34
MSENDE

69-55
1-0740
41-1¢

MSERRI

S2-640
55-25¢
60-4490
64 -580
67-254¢
1-849¢

27-66
27-103
27-140
27-203
56-112

MSESCA
MS$ESCS
MS$EXCP

MIEXIT

M$ErSE
MSEXTU

62-33
1-0060

1-010¢
1 €E01e
69-18
69-260

1-Di4e
56 -26¢
62-35¢
1-022¢
S9-17¢
1-D180
S7

18e

vO4.00

DEC )83

TABLE (CREF vO4.00
19-22
19-31
19-40
32-1710
33-56

£4-29¢
44-127¢

58-690
66-310

7-278¢
7-323
7' 423

19-22
19-31
19-40
32-173
33-56

44-71
44-132

59-66
67 35

7-323
7-323

7-323

18-27

18-27¢

19-49¢

26-115

7-278¢

42-760
48-35¢

S52-640
54 -440
55-25¢
57-110¢
60-440
62-38¢
64-58¢0
66 -604
67-2470

7-2780

69-200
69-340
69-55¢

7-2780
42-76¢0

S52-71¢
56-57¢0
60-52¢

64 -634
68-62¢
7-278¢6

27-66¢0
27-103¢
27-1400
27-203¢
56-112¢
62-33¢
7-278¢

7-2780

7-278¢

69-18
69-28

7-2780

$7-15
63-35

7-278¢

59-20¢

7-278¢

S58-18e¢

9-21

43-12

50-67
52-71
S4-47
56-57
S58-46
60-52
63-32
64-63
66-83
67-254
68-55
69-22
69-38
69-57

9-210
44 -180¢

53-430

12:59:38 PAGLE

19-22¢
19-31
19-400
32-173¢0
33-560

44-716
44 -132¢

59-660
67-35¢
7-323
7-323
7-323

9-21¢
26-115¢

43-120

50-67¢
S2-71¢
S4-47¢
56-57¢
58-46¢0
60-52¢
63-320
64-63¢
66-83¢
67-2540
68-55¢
69-22¢
69-38¢
69-57¢
10- 39¢

45-17¢

19-24
19 31
19-42
33 40
33-57

19 240

19-31
19-420

33 400
33 S7e

44-73

56-60
63-99
67 155
7-323
7-323

44-730

56 60
63-99¢
67-155¢

7-323

7-323
7-323
7-323

10-39
26-133

10-39¢
26-133¢0

44 -180

50-68
53-43
54 -59
56 -89
58-66
61-25
63-96
65-41
67-75
68-62
68-57
69-24

69-44
69-60

10-400

46-2

44 -180¢

50-68¢
53-43e
54-59¢
56-89¢
S8-66¢
61-25¢
63-96¢
65-410
67-75¢0
68-62¢0
68-57¢
69-240
69-44¢
69-60¢
19-25¢

42-61

S58-21¢0

59-17¢

59-20¢

66-330

44-910

45-17¢

S1-200
53-60¢
S54-62¢
56 -120¢
58-92¢
61-36¢
63-138¢
65-47¢
67-152¢
69-71¢
68-59¢
69-26¢
69-47¢
19-43¢

7-323

19-25
32-36

7-323
7-323
7-323

19-25¢
32-36¢

46-26

53-6/
S4-67
S$7-27
59-43
61 45
63-165
65-66
67-194
69-123
68-61
69-28
69-49

51-27¢
S3.67¢
S4-670
57-27¢
59-43¢
61-45¢
63-165¢
65-660
67-194¢0
69-123¢
68-61¢
69-280
69-49¢

19-49¢

26-115¢

S1-27

2640

7-323

7-323%

19-34
38 15

47-33

51-31

850

56 -740
63-122¢

67-178@
7

323

7 323

7-323e¢

19-340
38-15¢

47-33¢

32-36¢
S1-31¢
55-17e¢
59-63¢
64 -394
67-205¢

52-48¢
55-200
59-87¢
64-450

27-61

68-59¢
69-24
69-34

68-61
69-24¢
69-34

S58-21
67-78

58-21¢
67-78¢

67-37

67-37¢

67-780

44-165¢
44-103¢

62-35¢

46-240

47-180

44 -165¢

46 -240

63-35¢

66 330

59-17

340

26-168¢
31-27¢
S54-67¢
S9-43¢
63-165¢
67-194¢

68-59
69-24
69-32¢

46-24

26-133¢
S1-20¢
54-62¢0
58-92¢
63-1380
67-152¢

68-59
69-22¢
69-32

44 -165¢

19 43¢
4] 1e

69-18¢
69-320
69-529

68-57¢
69-22
69-32

44-165

7-323
18-17

69-18
69-32
69 53

70-16¢

68-57

S8-18¢
67-37¢

19 43

41-1
48 -34
S2-48

67-197¢
7-323

69-140
69-30¢0
69-51¢0

70-16

61-240
67-209¢

S8-18

197

7-323
7-323
7 323¢

69-14
69-30
69-51

27-52¢
27-95¢0
27-128¢
27-165¢
30-35¢
61-35¢
67-221¢

69-30
44-103

1140

S7-860
63-1410

S54-32
35-20
57-83
$9-87
62-34
64 -45
65-85
67-205¢

27-52
27-95
27-128
27-165
30-35
61-35
67-221

69-22
69-30¢0
44-103¢

S7 86
63-141

33.77¢

5SS 17
57-55
59-63
62-25
64-39
65-72
67-205

27-470
27-920
27-123¢
27-160¢
30-31e

50-680

33. 77
44-114

19 30
19-40
32-168¢
33 ¢

52 48¢
54-32¢0
55-20@
S7 83
59-87¢
62-340
64 -45¢
65-85¢
67-. 050

27-47
27-92
27-123
27-160
30-31
61-24
67-209

50-67¢

19-29¢
19-40
32-148
33-50¢

S51-31e¢
54 -29¢
55-17e¢
57 55¢
59 634
62-25¢
64 -390
65-720
67-205

27-42¢0
27-87¢
27-118¢
27-155¢
30-27¢
59-79¢
64 -330

S7-18¢
66-33¢

62-35¢

10-40¢
26-168¢

7-323
7-323

56-74
63 122
67 178
7-323

27-42
27-87
27-118
27-155
30-27
59-79
64-33

57-18
66-33

44-103¢

19-34¢

7-323
7-323
7-323

56-730
63-1210
67-177¢

54 -59¢
58-66¢
63-960
67-750

68-57
69-200

£2-.910
63-35¢
42-610

51-20
53-60
54 -62
56-120
58-92
61-36
63-138
65-47
67-152
69-71
68-59
69 26
69-47

56 73
63-121
67 177

44 -85

32 165¢
13 SO
33.75¢

S4-47¢
58-460
63-32¢
66-83¢0

68-55¢
69-20
69-30

42-61¢0

45-17

56-610
63-100¢
67-156¢

44-770

32-165

19 29

19 39¢

54 -440
57-1100
62-389
66-60¢

68-5S5
69-20
69-28¢

S57-15¢
63-35¢

10-40
26-168

44-77

19 29
19-39

S54-320
$7-83¢
62-340
65-85¢

68-55
69-18¢
69-28

44 -910

7-323
7-323
7-323

44 -75¢

19-¢9
19 330
19-48¢
33 450
33.73¢

54-29¢
57-55¢
62-25¢
65-72¢

57-102
63-148

44-91

56-61
63-100
67-156

19-29
19-33%
19-48
33 45
33 73

48 -35¢

27-35¢0
27-760
27-113¢
27-150¢
30-23¢
58-84¢0
63-157¢

42-61¢0

44-75

19 284
19 31e
19-46¢
33-43%¢
33 660

48-340

27-35
27-76
27-113
27-150
30-23
S8-84
63-157

27-71
27-108
27-147
30-19

S3-67¢
57-27¢
61-450
65-660

19 28
19 31
19-46
33 43
33-66

47-330

S3-60¢
S56-120¢
61-36¢
65-47¢0
69-123¢
27-27¢
27-710
27-108¢
27-147¢
30-19¢
57-102#¢
63-148¢

56-89¢
61-25¢0
65-410
69-71¢0
27-27

560 196

46-240

59-17¢

18¢

59-20

27-98

27-135
27-170
31-22
62-24

68-61
69-26
69-340

38-15¢

67-247¢

27-619
27-98¢
27-135¢
27-170¢
31 220
62-249

68-61¢

€9-26

48-19¢

59-20¢

56-26
62-35

48-19¢

56-26¢

57-15¢

57-18¢

58-18¢

S8 219

47-18

47-180
67-780

48-19

48-19¢

56-260

67-376

15¢

PARAME TER

CODING MACRO

MSGEN

PN NN N

CROSS REFELRENCE

D38e
323
323
323¢

-323¢
-323¢0

9-21

19-25
26 112¢

38 15¢
45 170
50-57¢

51-25¢
52 64¢
53-67¢
54 -440
54-670
56 -23¢
57-25¢
58-150
59-29¢
60-440
61-450
63-17¢
63-165¢
64 -58¢6
65-636

HSGENB
MIGETS

66 600
67-180¢
69-710

1-C38¢
1-D35¢
19 49

42-76
48-35

MSGETT
M$GNGB

S2-64
54 -44
55-25
57-110
60-44
62-38
64 -58
66 -60
67-247
69-123

1-877¢
59-17¢6
1-Co2e
7-323
7-323
7-323¢
7-323¢

7-3230
10-8
19-45

47¢

TABLE

v04-.00

(CREF

7-2780
7-323
7-323
7 323¢
7-323¢
7-323¢
9-21¢

19 25¢
26-115

42-47

46-8

50-62
51-27
52 71
S4-17
S54-45
55-8
56 -44
57-27
S58-34
59-43
60-52
62-10
63-30
64-19
64-63
65-66
66-83
67-194

69-122
7-2780
7-2788

19-49¢

42-760
48-35¢0

S2-640

54 -44¢
55-25¢
57-110¢
60-440
62-38¢
64 -58¢
66 -600
67-2470
69-123¢
7-278¢

59-200

7-278¢
7-323
7-323
7-323¢
7-323¢
7-3230

10-8
19-45¢

43-8

1-DEC

vO4.00
7-323

12:59:38 PAGF

7-323
7-323
7-323¢
7-323¢
7-3230

7-323
7-323%
7-328
7-32%¢
7-323¢
7-323¢

10-8
19-27
26-115¢

10-8
19-27¢
26-1300

42-47¢
46-8¢

50-62¢
S31-27¢
52-71¢
S4-170
54-45¢
55-8¢
56-440
S57-27¢
58-34¢
59-43¢
60-52¢
62-10¢
63-30¢
64 -19¢
64 -630
65-66¢
66-830
67-i5=8
69-122¢

42-76
46-26

S50-67
S1-31
53-22
54-27
SA-47
5$5-15
56-57
57-41
58-46
59-49
61-9
62-19
63-32
64-37
65-18
65-67
67-29
67-205
70-16

7-323
7-323
7-323
7-3230
7-323¢
7-323¢0

10-8¢
19-34
26-133

42-76¢
46 -26¢

50-67¢0
S51-31¢
53-22¢0
S54-27¢0
S4-47¢
55-15¢
56-57¢
57-410
58-460
59-49¢
61-96
62-19¢
63-32¢0
64-370
65-18¢
65-67¢
67-29¢
67-205¢
70-16¢

10-39
26-133

9-21
26-115

26-115¢

S4-47
56-57
58-46
60-52
63-32
64-63
66-83
67-254

S50-67¢
S52-71¢
S4-470
56-57¢
58-46¢
60-52¢
63-32¢
64-63¢
66-83¢
67-2540

S0-68
53-43
54 -59
56-89
58-66
61-25
63-96
65-41
67-75
68-62

42-610

44 -91¢

44-103¢

43-12
50-67
52-71

62-35¢

7-3040
7-323
7-323
7-3230
7-3230
7-323¢

10-8¢
26-112

43-8¢

9-210

43-120

63-35¢

7-323
7-323
7-323
7-323¢
7-3230
7-323¢

11-510

26-112¢

44 -8

44-180

66-33¢
7-323

7-323
7-323
7-323¢
7-323¢
7-3230

18-17
26-130

44 -8¢

7-323
7-323
7-323%
7-3230
7 323¢
7-3230

10-8¢
19-34¢
26-133¢0

43-8
47-8

50-68
52-23
53-41
54-29
54-57
55-17
56-76
57-55
58-52
59-63
61-20
62-25
63-71
64-39
65-38
65-72
67-70
67-247
70-21

10-39¢

26-133¢

44 -1800

50-68¢
53-43¢
54 -59¢
56-89¢
58-66¢
61-25¢
63-96¢
65-41¢
67-750
68-62¢

44-165¢

67-37¢

7-323
7-323
7-323
7-3230
7-3230
7-323¢

18-17¢
26-130¢

45-10

4197

2EGQ

)
7-323
7-323
7-323
7 3230
7-3230
7-3230

10-39

19-36
26-165¢0
43-80
47-80
S0-68¢
S2-23¢
53-41¢
54-29¢
54-57¢
5S5-17¢
S6-76¢
57-55¢
58-52¢
59-63¢
61-200
62-250
63-71¢
64 -390
65-38¢
65-72¢
67-700
67-247¢
70-21@

10-40
26-168

7-323
7-323
7-323
7-3230
7-3230
7-323¢

10-39¢
19-364
26-168

44 -8
47-33

51-14
52-46
53-43
54-30
54-59
55-18
56 -89
57-69
58-66
59-87
61-25
62-28
63-96
64 -42
65-41
65-85
67-75
68-53

10-40¢

7-323
7-323
7-323
7 3230
7 3230

8-8

18 17
19-43%

2¢ -1580

44 -8¢
47-330

S51-140
52-460
53-430
54-300
54 -590
55-18¢
56-89¢0
57-69¢
58-66¢
59 87e
61-25¢
62-282
63-960
64-420
65-410
65-850
67-750
68-53¢

19-25

45-17
51-20

45-17¢

53-60
54-62
56-120
S8-92
61-36
63-138
65-47
67-152
69-16

51-200
53-600
54 -62¢
56-1200
58-92¢
61-360
63-138¢
65-470
67-152¢
69-16¢

32-36
46-26
S1-27
53-67
54-67
57-27
59-43
61-45
63-165
65-66
67-194
69-40

46-240

48-19¢

67-780
7-323

7-323
7-323
7-3230

7-323¢

7-3230

18-27
26-165

45-100

26-168¢

180

69-16

7-323
7-323
7-323
7-323¢
7-323¢
7-3230

18-270
26-165¢

46-8

69-16¢

7-323
7-323
7-323
7-323¢
7-3230
7-3230
19-3
32-34
46-8¢

7-323
7-323%

7-323
7 3230
7-323¢
8-8¢
18-17¢

19-430
32-340

44-180

48-9

7-323
7-323
7-328%
7-323¢
7-3230
9-9

18-27
19-45
32-36

44 -180¢
48-9¢

7-32%
7-323
7-3230
7-323¢
9-9

18-274
19-45¢
32-36¢

45-10

S51-18
52-48
53-44
54-32
54 60
55-20
56-120
57-83
58-92
60-20
61-31
62-34
63-124
64 -45
65-42
66-25
67-127
68-62

S51-18¢
52-484
53-44¢
S54-32¢0
54 -60¢
55-200
56 -120¢
S7-83¢
58-920
60-200
61-31¢
62-340
63-124¢
64 -450
65-420
66-25¢
67-127¢
68-62¢

48 -34
51-20
52-49
5$3-60
S54-42
54 -62
55-25
57-12
57-110
59-14
60-32
61-36
62-38
63-138
64 -56
65-47
66-52
67-152
69-12

19-25¢

19-34
38-15

38-15¢

32-36¢9

46-264

S51-27¢
53-67¢
S4-67¢
57-27¢
59-43¢
61-450
63-165¢
65-66¢
67-1940
69-40¢

56-260
69-40

7-323
7-323
7-323
7-3230
7-3230
8-8

19-3¢

32-340

47-8

19-340

7 12%
! 323
7-3230

7-323%¢

323¢

9-9¢

19-3
19-49
38-4¢

45-100
48-340

$1-209
€2 -49¢
53-600
S4-420

S4-620
5S-25¢
S7-12¢@
$7-110¢
59-14¢
60-32¢
61-360
62-38¢
63-138¢
64-560
65-47¢
66-52¢
67-152¢
69-12¢

19-43

41-1

47-33

47-330

S1-31¢
54-29¢
55-17e¢
57-55¢
59-63¢
62-250
64 -394
65-72¢@
67-205
69-59¢

48-34
S2-48
54 32
55-20
57-83
S9-87
62-34
64 -45
65-85
67-205¢
69-71

57-15¢
69-40¢

57-18¢
69-59

58-18¢
69-59¢

S51-31
54-29
55-17
57-SS
59-63
62-25
64 -39
65-72
67-205
69-59

7-323
7-323
7-323
7-3238
7-323¢

8-8¢

19-27
38-4

47-80

7-323
7-323
7-323
7-323¢
7-3238
9-9

19-270
38-40

48 9

7-323
7-323
7-323
7-3230
7-323¢
9-9

19-36

42-410
48 9o

7 323
7-323

7-3230

7-323%e¢

7-32%»
9-9¢

19-30
19-49¢
38-15

45-17

S0-S7
$1-25
52-64
$3-67
54 -44
S4-67
S6-23
57-25
58-15

59-29
60-44
61-45

63-17
63-165
64 -58
65 63
66-60
67-180
69-71

19-43¢

41 19
48-340

S2-484
S54-320
55-20¢
57-832
59-870
62-340
64 -450
65-85¢
67-205%
69-712
58-212
7-323
7-323

7-3239

7-3232
7-323¢
9-9¢

19-36¢

42 47

382

CODING MACRO

CROSS REFERENCE

MSGNIN

68 43¢
1-D49e

7-323

328

323

7-323¢
7-323¢

7 3230
8-8
8-8¢
8-8¢0
18 27¢
19 4¢
19 8¢
19-100
19-11¢
19-13
19-14
19-16
19-317
19-17¢
19-22
19-24
19-28¢
19-29¢
19-30¢0
19-31¢
19-33¢
19-39¢
19-40¢
19-42¢
19-48
26-16¢
c6-84
26-94
26-126
26-135

26-155
26-170
27-27¢
27-42
27-47¢
27-610
27-71
27-76¢0
27 92
27 950
27-103
27-108¢
27-118
27-123¢
27-1350
27-147
27-150¢
27-160
27-1650

1- DEC B3
vO4, 00 )

v04.00

TABLE (CREF
68-53

7-278¢
7-323
7-323%
7-323
7-323¢
7 323¢
7-323¢8

8-8
8-8¢
8-8¢
18-278
19-4¢
19-8¢
19-11
19-11¢
19.13¢
19-14
19-16
19-17
19-17¢
19-22
19-24
19-28¢
19-29¢
19-30¢
19-31¢
19-33¢
19-40
19-40¢
19-43
19-48
26-16¢
26-84
26 -94
26-126
26-135
26-155¢
26-1700
27-27¢
27-42¢

68-530

7-323
7-323
7-323
7-323
7-3230
7-3230
7-323¢
8-8
8-8¢
8-80
19-4
19-4¢

19-8¢
19-11
19-11¢
19-13¢
19-14
19-16
19-17
19-17¢
19-22
19-24
19-28¢
19-29¢
19-31
19-31¢
19-33¢
19-40
19-40¢
19-43¢
19-48
26-16¢
26 -84
26-94
26-126
26-135
26-155¢

12:59:38 PAGE M S

69-12

7-32%3
7-323
7-323
7-323
7-3230
7-323¢
7-323¢

69-12¢

7 323
7-323
7-323
7-323
7-3230
7-3230
7-323¢0

8-8
8-8¢
8-8¢
19-4
19-8
19-80
19-11
19-110
19-13¢

7 323
7 323
7-3238
7-3230
7-323¢

E3 198
69-122¢
7-323
7-323
7-323

8-8
8-8¢
9-90

19-4

19-8¢
19-11
19-11¢
19-14
19-14¢
19-16¢
19-17
19-21
19-22
19-24¢
19-29
19-29¢

19-140
19-16
19-17
19-17¢
19-22
19-240
19-28¢
19-29¢
19-31
19-310
19-33¢

26-1260
26-135¢
26-1550
26-170#0

27-350

27-170

7-323
7-323%
7-323
7-3230
7-3230
7-3230
7-3230

8-8
8-80
10-8¢
19-4
19-8
19-10
19-11
19-11e¢
19-14
19-149¢
19-16¢
19-17¢
19-21
19-22¢

19-8

27-52

27-61¢
27-71
27-76¢
27-92
27-956
27-103
27-108¢
27-118¢
27-128
27-135¢
27-147
27-150¢0
27-160
27-165¢6

69-122
7-323
7-323

Dl1¢,

27-47
27-52¢
27-66
27-71¢
27-87
27-92¢
27-98
27-103¢
27-113¢
27-123
27-128¢
27-140
27-147¢
27-155
27-160¢
27-170

19-25
19-29
19-30
19-31
19-310
19-39
19-40
19-42
19-46
19-48¢
26-35
26-84¢
26-949
26-1260
26-135¢
26-168
27-27
27-35¢
27-47
27-52¢
27-66
27-710
27-87
27-920
27-98¢0
27-108

27-113¢

27-123
27-128¢
27-140
27-147¢
27-155
27-160¢
27-1700

7-323
7-323
7-323
7-3230
7-3230
7-323¢

7-323

7-323
7-323
7-3236
7-3230
7-323¢
-8

8-8
8-8
8-8¢
18-17
19-4
19-8
19-10
19-11
19-11¢

®®
e

PARAMETER

-8
-80
18-17¢
19-40
19-8
19-10
19-11
19-13
19 14
19-14¢
19-17
19-17¢
19-21¢
19-22¢
19-28
19-29
19-30
19-31
19-33
19-39
19-40
19-42
19-46¢

19-14
19-140
19-16¢
19-17¢
19-21
19-22¢
19-25¢
19-29
19-30
19-31
19-31¢
19-39
19-40
19-42
19-46
19-48¢
26-35¢

19-49¢

26-840
26-940
26-1260
26-1350
26-1684¢
27-27
27-350
27-47
27-52e
27-66

27-71¢
27-87¢

27-95
27-98¢
27-108
27-113¢

27-123
27-128¢
27-140
27-147¢0
27-155¢0
27-165
27 170

27-1700

26-350
26 -840
26-115¢
26-1330
26 -155
26-170
27-27
27-35¢
27-47¢0
27-61
27-660
27-76
27-87¢9
27-95
27-98¢
27-108
27-113¢
27-123#
27-135
27-1400
27-150
27-155¢
27-165
27 1704

7-323
7-323
7-323
7-3230
7-3230
7-323¢

8-8
8-8
8-8¢
18-17¢
19-4¢
19-3
19-10¢
19-11
19- 3
19-.4
19-11
19-17
19-17¢
19-21¢
19-22¢
19-28
19-29
19-30
19-31

19-33
19-39¢0
19-40¢

19-42¢
19-460
26-16
26-37
26-94
26-126
26-135
26-155
26-170
27-27¢
27-42
27-47¢
27-61
27-664
27-76
27-87¢
27-95
27-984
27-108#
27-118
27 1236
27-135
27-140@
27-150
27-1550
27 165
27

1704

7-323

7
7

323
323

7-3230
7-3230
7-323¢

8-8
8-8¢
8-8¢
18-27
19-4¢
19-8¢
19-100
19-11¢
19-13
19-14
19-14¢
19-17
19-17¢
19-22
19-24
19-28
19-29¢
19-30¢
19-31¢
19-33
19-39¢
19-40%
19-42¢
19-469
26-16
26-84
26 -94
26-126
26-135
26-155

26-170
27-270
27-42
27-470
27-61
27-660
27-768
27-92
27-950
27-103
27-108¢
27 118
27-123¢
27 135
27 140¢
27-1502
27 160
27 165¢
27 2C3

PARAME TER CODING MACRO V04.00

CROSS REFERENCE

27-203
30 190
30 27
30 31¢
31-22
32-165¢
32-168¢
32 173
33-400
33-45
33-50
33 516
33-5606
33-66
33 73
33 75¢
%6-18

36-366
36-147
36-2540

44-160
44 -27

27 203
30-19¢
30-27¢
30-35
31-22
32-165¢
32-171
32-173
33-40¢
33-45
33-50¢
33-51¢
33-560
33-66
33-73¢
33-75¢
36-18

36-360
36-147
36-254¢

44-390¢
44-716

44-160
44-27¢
44-390
4AA-710

44 -77
44-850
44-91
44-1010
41-1140
42-1270

44-77
44-85¢0
44-91
44-1010
44-1140
44-1270

44-1650
46-21

44-180
46-210

44-175

47-18

50-679¢
52-460

53-440

54-420
54-620
56-26
56-37¢
56-440
56-61
56-730
36-89¢
36-119
57-15
57-32
57-34
57-83
57-100¢
57-109
58-21
58-276¢
58-34
58 69¢

1-DEC

TABLE (CREF v04.00

44-75

47-1860

S0-68
S52-48

53-60

S4-44
S4-67
56-260
S56-39
56-57
56-61
S6-730¢
56-110
S56-119
57-15
57-32
57-34
S7-83¢
S57-102
S7-109
58-21
58-270
58-340
S8-69¢

27-2036
30-23
30-270
30-35
31-22%
32-1656
32-171
32-173
33-43
33-45
33-508
33-51¢
33-568
33-66
33-73¢
33-7Se¢
36-180

36-360
36-147¢
38-15

44-18
44-29

)

12:59:38 PAGE

27-20360
50-23
30-27¢
30-35
31-220
32-165#¢
32-171
32-173¢
33-43
33-450
33-50¢
33-S18¢
33-57
33-66
33-73¢
33-77
36-18¢

36-360
36-147¢
38-15¢

27-2030
30-23
30-276¢
30-35
31-220
32-168
32-171
32-173¢
335-43
33-450
33-500
33-56
33-57
33-660
33-73¢
33-77
36-20

36-360¢
36-199
42-61

44-39¢
44-73

44-18¢
44-29
44-40
44-73

44-20
44 -29

44-770
44-89
44-910
44-102
44-1140
44-132

A44-770
44 -89
44-910
44-1020
44-1140
44-132

44-778
44 -89
44-98
44-103
44-1140
44-132

44-75

44-1800
46-21¢
47-180

50-68¢
S52-48¢

53-606

S4-440
S4-67¢
S56-260
56-39
36-57¢
56-61
S6-74
56-110
56-119
57-15¢
$7-32
S7-340
S57-86
57-102
57-109¢
58-21¢
S58-29
58-46
S58-69¢

44-75

45-17
46-23

47-33

S1-18
S52-49

53-67

S4-45
55-15
56-37
56-39
S6-60
56-61¢
S56-74
56-110¢
S6-119
57-15¢
57-32
S57-340
57-86
S7-102
S57-109¢
58-21¢
58-29
58-4606
58-80

44-400¢
44-73

44-75

45-17¢
46-23

47-330

S1-186
S52-49¢

53-674¢

S4-45¢
$5-15¢
56-37
56-39
56-60
56-618
S6-74
56-110¢
S6-119
S57-18
S57-320
S7-340
57-86
S57-102
S7-109¢
58-27
S8 29
58-52
58-80

M 6

27-203¢
30 23
30-27¢
30-35¢
31 2260
32-168
32 171
32 1734
33-43
33-450
33-500
33-56
33-57
33-660
33-730
33-77
36-20

5EQ 0199

27 2030
30-230
30-31
30-35¢
31-220
32-168
32-171
32-173¢
33-43
33-45¢
33-500
33 56
33-57
33-66¢
33.75
33-77
36-200

30-19
30-23¢
30-31
30-35¢
32-36
32-168
32-171¢
33-40
33-430
33.45¢
33.51
33-56
33-57
33-660
35-75
33-77
36-200

30-19
30-23¢
30-31
30-35¢
32-360
32-168
32-17160
33-40
33-430
33-50
33-51
33-56
33-57¢
33-660
33-75%
33-77
36-36

30-19
30-23¢
30-31
30-354
32-165
32-168
32-1710
33-40
33-430
33-50
33-51
33-56
33-57¢
33-73
33-75
33-77¢
36-36

30-19
30-23¢
30-31¢
30-45
32-165
32-1680
32-171e¢
33-40
33-430
33-50
33-51
33-56
33-S57¢
33-73
33-75
33-770¢
36-36

30-19¢
30-27
30-31¢
30-450¢
32-165
32 1680
32-1710
33-40
33-45
33-50
33-51
33-56#
33-S7¢
33-73
33-75
33-77¢
36-36

30-19¢
30-27
30-31#
31-22
32-165
32-1680
32-173
33-40¢
33-45
33-50
33-51
33-560
33-66
33-73
33-75¢
33-770
36-36

30-19¢
30-27
30-310
31-22
32 169
32-16848
32-173
33-40¢
33-45
33-50
33-S510
33-56¢
33-66
33-73
33-75¢
33-77¢
36-36

36-360
36-199
42-61

36-45
36-199¢
42-610

44-7)
44-73

44-200
44-29
44-71
44-73

44-71
44-73

44-71
44-734

44-7}%
A44-730

44-71
44-730

44-710
A4-730

44-7106
44-730

44-710
44-75

44-770
44 -89
44 -98
44-103
44-127
44-132

44-770
44 -89
44-980
44-1030¢
44-127
44-132

44-8S
44 -89
44-980
44-1030
44-127
44-1320

44 -85
44-890
44-100
44-114
A4-127
44-132¢

44 -850
44-89¢

44-85%
44-89¢

46-100
46-24

44 -85
44-89¢
44-100¢
44-114
44-127
44-1320

44 -85
44-890

46-10
46-238

44 -85
44-89¢
44-100
44-114
44-127
44-1320

44 -20
44-29

44-750

46-10
46-230
48-19

S51-20
52-64
54-27

54-47
55-17
56-37
56-39
56-60
S6-610
56-74
56-112
S56-119
57-18
57-320
S57-340
57-86
S7-102¢
S7-1090
58-27
58-29
58-520
58-80¢

44-750

48-19

51-200
S2-640

S4-27¢

S54-476
SS-17¢
56-37
56-39
56-60
S56-610
56-74
S6-112
56-119¢
57-180
S57-320
S57-340
57-86
57-1020
57-109¢
58-27
58-29
58-66
S8-80¢

36-45
36-199¢
42-610
44-200
44-290

44-750

48-19¢

S1-25
S2-71

S54-29

54-57
55-18
56-37
S6-39¢
56-60
S6-73
56-740
56-112
S6-119¢
S57-186
57-320
S7-340
S57-86¢
57-1020
57-109¢
58-27
58-29
58-66¢
58-83

36-450
36-209
42-76

44-22
44-290

44 750

46-100
46-24

48-19¢

51-250
52-710
54-290

S54-57¢
S55-18¢
56-37
56-39¢
56-60¢
56-73
S6-740
56-112
S56-119¢
S7-25
S57-320
S7-41
57-866
S57-102¢
S7-110
58-27
58-296¢
58-69
58-83

36-450
36-209
42-760

44-2206
44-29¢

44-750

46-18
46-240
48-34

S1-27
S53-41

S54-30

S4-59
55-20
56-376
56-39¢
56-608#
56-73
S6-740
56-1120
56-119¢
S57-25¢
S57-320¢
57-410
S57-868
S7-102¢
S7-1100
58-27
58-290¢
58-69
58-83

36-145
36-209¢
44-10
44-25
44-290

44-77

36-145
36-209¢
44-100

36-1450
36-254
44-16

44-25
44-39

36 1450
36-254
44-16

44-2560
44 -39

44-250
44 -39

44-77

44-1000
44-114
44-1270
44-165

44-101
44-114
44-127¢
44-165

46-18
46-240

44-101
44-114
44-1270
44-1659

46-18¢
46-26

46-18¢
46-260

46-21
47-18

S51-27¢
53-416

S51-31
53-43

51-316
53-430¢

52-46
53-44

S5S4-59¢
55-20¢
S56-370
S56-390
56-608
S56-73
S56-740¢
56-1120
56-119¢
57-27
S7-34
57-55
S7-868
S7-109
58-18
58-27¢
S58-29¢
58-69
58-83

54-60
55-25
S56-370¢
S56-39¢
S6-60#
S6-73
S56-76
56-112¢
56-119¢
57-27¢
S57-34
57-55¢
S57-100
S7-109
58-18
S58-27¢
58-29¢
58-69
58-83

54-600
55-25¢
S6-37¢
S6-39¢
S6-61
S6-73¢
56-76¢
56-1120
56-120
S57-32
57-34
$57-69
S7-100
57-109
S8-18¢
S8-27¢
58-29¢
58-69
58-83

54-62
56-26
S56-37¢
56-44
56-61
S6-730
S6-89
56-1129
56-120¢
57-32
57-34
57-69¢
S7-100¢
S57-109
58-18¢
S8-279
58-29¢
58-69¢
58-832

48-349¢

54-300

50-62

54-32

50-62¢

54-3286

50-67

54-42

PARAMETER

CODING

CROSS REFERENCE
58-83¢
58 91
59-17
59 26¢
59-280
59-66
59-79
59-86¢
61-24
61-35
62-24
62 33
62-38
62-44
63-460
63-99
63-121
63-122¢
63-1419
63-155¢
63-164
64 -33
64 -45

65-47
66-31
66-520
67-35¢

67-86
67-88

67-155
67-1564
67-178
67-197
67-2010
67-209¢
67-2140
67-221¢
67-247¢
68-59
69-12¢
69-20
69-24
69-28¢
69-34

MS$GNLS
MEGNSU

MSGNTA

69-444¢
69-53
69-60

1-C13¢
1-898¢
53-44
S5 1S
$8-34

62-19
64-56
67-127

1-890¢

MACRO

v04.00

DEC

TABLE (CREF V04.00
58-83¢
58-91
59-17
59-26¢0
59-28¢
59-66
59-79¢
59-86¢
61-24
61-35
62-24
62-33
62 -380
63-44
63-464
63-99¢
63-121
63-122¢
63-141¢
63-155¢
63-164

64 -33¢0
64-45¢
65-47¢

66-31
66 -60
67-35¢
67-86
67-88
67-155
67-1569
67-178
67-197
67-201¢
67-209¢
67-214¢
67-229
68-53
68-59
69-14
69 20
69-c4
69-30
69-34
69-47
69-53
69-60

71-2786
7-278¢

S53-44¢
55-15¢
58-34¢
62-19¢
64 -564
€7-127¢
7-278¢

58 830
58-91
59-17¢
59-260
59-28¢
59-66
59-79¢
59-860
61-24
61-35
62-24
62-33
63-30
63-44¢
63-460
63-99¢
63-121
63-122¢
63-1410

63-157
63-164
64 -33¢
64-56
65-63
66-31
66-604

67-37
67-86

67-88

67-155
67-156¢
67-178
67-197
67-201¢
67-209¢
67-219
67-229
68-53¢
68-59
69-14
69-20
69-24¢
69-30

6V-34
69-47
69-53¢
69 -604
67-205
50-62
S4-27
55-18
58-52
62-28

65-38
67-180
9-21

12:59:38

PAGE

5EQ 4200

)
58-834
58-91
59-17¢
59-260
59-28¢
59-660
59-79¢
59-86¢
61-24

61-35¢
62-24
62-33¢
63-30¢
63-440
63-46¢
63-99¢
63-121
63-122¢
63-148
63-157
63-164¢
64-33¢
64-564
65-63¢
66-31
66-83
67-37
67-86
67-88
67-155
67-156¢
67-178
67-197¢
67-201¢
67-209¢
67-219
67-229
68-55
68-59
69-14
69-20
69-26
69-30
69-34
69-47
69-55
69-71
67-205¢
S50-62¢
S54-27¢
55-18¢
S58-52¢
62-28¢
65-38¢
67-1800
9-210

58-83¢4
58 91
59-20
59-260
59-29
59-66¢

59-79¢
59-87

61-240
61-350
62-240

62-33¢
63-32

58-84
58 91
59-20
59 266
59 29¢
59-6€0
59-79¢
S9-87¢
61-24¢0
61-35¢
62-240

58 84
58-91¢
59-200
59-¢8

59-43

59 664
59-86

60-32

61-240
61-35¢
62-240

58 -84
58 91¢
59-20¢
59-28
59-430
59-77
59-86
60-320
61 240
61-350
62-240
62-330
63-35
63-440

58 84
58 914
59 26
59 28
59 49
59-77
59-86
60-44
61-240

61-36
62-240
62-34
63-35¢
63-46
63 96
63-100
63-121¢
63-141
63-1480
63-157¢
63-1640
64-37
65-38
65-72
66-316¢
67-35
67-75
67-8606
67-880
67-1550¢

58-840
S8 910
59-26
59 28
59-49¢
59-77e
59-86
60-4440
61 25

69-32
69-40
69-51
69-57
70-16

58 844
58-91¢
59-26
59 28
59 63
59 /76
59-86
60-52
61-25¢
61-45
62-259
62-35
63-44
63-46
63-99
63-100¢
63-122
63-141
63-148¢
63-157¢
63-165¢
64-39
65-41
65-85
66-33
67-35
67-78
67-86¢
67-127
67-156
67 177
67-194
67-201
67-209
67-2140
67-221¢
67-229¢
68-57
68-610
69-18
69-22¢
69-28
69-32
69-400
69-51
69-57#
70-16

58 840
58 91¢
59-26
59-28
59-634
S9 79
59-86
60-520
61-31
61-459
62-28
62-35
63-44
63-46
63-99
63-100¢
63-122
63-141
63-148¢
63-164
64-33
64 -390
65-410
65-850
66-330
67-350
67-78
67-869
67-127¢
67-156
67-177¢
67-1940
67-201
67-209
67-2149
67-221¢
67-2299
68-57
68-62
69-18
69-24
69-28
69-32
69-44
69-51
69-59

61-360
62 25
62-340
63-35¢
63-46
63-960
63-100
63-122
63-141
63-148¢
63-157#
63-165
64-370
65-380
65-72¢
66-33
67-35
67-750
67-86¢
67-88¢
67-156

58 849
58 92
59-26
59-28¢

66-31
66-33%
67-350
67-78¢
67-88
67-152
67-156
67-177¢
67-197
67-201
67-209
67-2149
67-2219
67-229¢
68-57
68-62¢
69-18¢
69-24
69-28
69-32¢
69-44
69-51¢
69-59¢

58 84+
58 92¢
$9-26
59-28¢
$9-66
59 79
59-86¢
61-200
61-35
62-190
62-33
62-35¢
63-44
63-46
63-99
63-100%
63-122
63-1410
63-155
63-164
64-33
64-420
65-429
66-31
66-52
67-359
67-788
67-88
67-152%
67-156
67-178
67-197
67-2010
67-2099
67-2140
67-2219
67-247
68-59
69-12
69-20
69-24
69-28
69-34
69-44
69-53
69-60

59-66
59-79
59-860
61-20
61-31¢
62-19
62-28¢
62-350
63-44
63-46
63-99
63-100#
63-122
63-141
63-155
63-164
64 -33

67-86
67-88¢
67-155
67-177
67-1780
67-197¢
67-201¢
67-214
67-219¢
67-229
68-55
68-59¢
69-140
69-20¢
69-26
69-30
69-340
69-470
69-55
69-71¢

62-330
63-320
63-440
63-460
63-100
63-121¢
63-1240
63-148
63-157
63-164¢
64-33¢
64 -584
65-66¢
66-310
67-35
67-37¢
67-86
67-88¢
67-155¢
67-177
67-178¢
67-197¢
67-203
67-214
67-219¢
67-229
68-55
68-61
69-16
69-22
69-26
69-30
69-38
69-49
69-55
69-122

S51-18
S54-30
S6-44
59-29
63-30
65-42

S1-18¢
54 -30¢
56-440
59-29¢
63-30¢
65-42¢0

S1-25
S54-42
56-76
59-49
63-71
65-63

S1-250
54-42¢
56-76¢
59-49¢
63-710
65-630

52-46
54-45
57-25
60-32
63-124
65-67

52-469
S4-450
57-25¢
60-32¢
63-1240
65-674

52-49
54-57
57-41
61-20
64-37
66-52

S2-49¢
S4-57¢
57-41¢6
61-200
64-37¢
66-520

53-41
54-60
57-69
61-31
64 -42
67-70

53-414
54-609
57-69¢
61-31¢
64-42%
67-702

10-39

10-39¢

19-25

19-25¢

19-34

19-34¢0

19-43

19-43¢

19-49

19 492

63-440

63-46¢
63-99¢

63-121
63-124
63-148
63-157
63-164¢
64-330
64-58
65-66
66-31¢
66-830
67-37¢

62-330
63-35
63-440
63-71
63-100
63-1210
63-138
63-148
63-157¢
63-1640
64-34
64-63
65-67
66-31¢
67-35
67-70
67-86¢
67-88¢
67-155¢
67-177
67-1780
67-197¢
67-203¢
67-214
67-221
67-229
68-55
68-61
69-16¢
69-22
€69-26
69-30¢
69-38
69-49
69-55¢
69-122

63-710
63-100

63-121¢

63-1380
63-148¢
63-157¢
63-1640
64 -340
64-630
65-67¢
66-31¢
67-35
67-700
67-860
67-88¢
67-155¢
67-177
67-178¢
67-201
67-205
67-214
67-221
67-229¢
68-559
68-61
69-18
69-22
69-26
69-32
69-38
69-49
69-57
69-122

67-177

67-180
67-201
67-205¢
67-214
67-221
67-2290
68-57
68-61
69-18
69-22
69-26¢
69-32
69-38¢
69-49¢
69-57
69-12286

67-177¢

67-180@
67-201
67-209
67-214
67-221
67-229¢
68-57
68-61
69-18
69-22
69-28

70-16¢

64 -42
65-42

70-160

PARAMETER

CODING MACRO V04.00

CROSS REFERENCE
26-115

45-17

MSGNTE

MSHAPT
MSHNAP
MS$INCR

26-115¢

45-170

51-27
53-67
54-67
57-27
59-43
61-45
63-165
65-66
67-194
1-B94¢
56-23
63-17
1-A39¢
1-8240
1-D26¢
19-3
19-24¢
19-360
26-35¢0
26-165
27-87¢
27-155¢
32-344
33-73¢
38-46

51-27¢
53-67¢6
54-67¢
57-27¢
59-43¢
61-45¢
63-165¢
65-66¢
67-194¢

44-8
44 -89¢
45-10¢

44-8¢0
44-910
45-10¢
47-8¢

47-8
50-57¢
S51-140

51-25¢
52-46%
53-22¢
53-440
54-27¢
54-42¢
54-57¢
55-8¢
55-18¢
56 -44
S56-760
S57-18¢
57-4160
57-110¢
58-340
58-844
59-29
59-77¢
60-32¢

61-200
62-10
62-28

63-170

1-DEC

TABLE (CREF v04.00

7-278¢

S56-23¢

63-17¢
7-278¢
7-2780
7-278¢
19-3

19-25¢
19-36&
26-84¢
26-165
27-92¢
27-160¢
32-34¢
33-75¢
38-4¢

S50-57¢
S1-14¢
S1-25¢
S2-46¢
S53-22¢
S3-44¢
S4-27¢
S4-42¢
S4-57¢
55-8¢
S55-18¢
56-44
56-76#
57-25
57-410
58-15
58-34¢
58-91¢
59-29
59-79¢
60-32¢
61-20¢
62-10
62-28

63-30

26-133

46 -26

51-31
54-29
55-17
57-55
59-63
62-25
64 -39
65-72
67-247
50-57
57-12
64-19
7-323
7-323
7-304

19-3¢
19-27
19-39¢
26-9490
26-165¢
27-95¢0
27-1650
32-165¢
33-77¢

42-41
44-8¢

44 -980
45-17¢
47-8¢

50-57¢
S51-14¢
S1-27¢
52-48¢
53-22¢
S3-60¢
54-29¢
S4-440
54-59¢
S55-8¢
55-20¢
S6-44¢
56-89¢
57-25
57-55¢
S58-15
S8-34¢
S58-92¢
59-29¢
59-86¢
60-4440
61-249
62-10¢
62-28¢
63-30

)

12:59:38 PAGE

26-1330

46-26¢

S1-31¢
54-290
55-17¢
57-55¢&
59-630
62-250
64-392
65-72¢
67-2474
S0-S7¢
57-12¢
64-19¢

7-3230
7-323%¢
7-3040

19-3¢
19-27
19-40¢
26-112
26-165¢
27-98¢
27-170¢
32-168¢
36-18¢

42-41¢
44-100
44-100¢
46-8
47-3’¢

S0-62
51-18
S1-31¢
52-49
S3-41
53-67¢
S4-30
54-45
54-60
55-15
55-25¢
S6-440
S6-110¢
$7-25
57-69
S8-15
S8-46¢
59-14
5¢-29¢
59-87¢
60-52¢
0l1-250
52-10¢
62-280
63-30

26-168
47-33

52-48
54 -32
55-20
57-83
59-87
62-34
64-45
65-85
68 62
S1-14
58-15
65-18
9-9

19-4¢
19-27¢

19-42¢
26-112
26-1700

27-1034
27-203¢
32-171¢0
36-20¢

42-47
44-164
44-101¢
46 -8

48-9
50-62
51-18
52-23
52-49
53-41
S54-17
54-30
54-45
54-60
55-15

56-23
S56-440
56-112¢
57-25¢
57-69
58-15¢
58-52
59-14
59-29¢

60-20
61-9
61-31
62-100
62-28¢

63-300

M-8

26-168¢
47-33¢0
S2-48¢
54 320
55-20¢
57-830
59-87¢

62-340
64-45¢

65-850
68-620

51-14¢
58-15¢
65-18¢
9-9

19-8¢
19-27¢
19-43%
26-112¢0
27-27¢
27-108¢
30-19¢
3¢-1736
36-36¢

42-47
44-200
44-102¢
46-8¢

48-9
50-62
S51-18
S52-23
52-49
53-41
S4-17

54-30
S4-45
54-60
55-15
56-23
56-57¢
56-119¢
57-25¢
S7-69
58-15¢
58-S2
59-14
59-43¢

60-20
61-9
61-31
62-19
62-330
63-300

5€EQ 0201
32-360

48 -344

52-64¢
54-440
55-25¢
57-1100
60-4490
62-38¢
64 -5890
66-600
69-716
52-23¢
59-14¢0
66-250
9-9¢

19-110
19-294
19-45
26-1260
27-426
27-118¢
30-270
33-430
36-145¢
42-476
44 -29¢
44-114¢
46-10¢
48-9¢

50-629
S51-18¢
52-230
52-49¢
53-41¢
S54-17¢
54 -30¢
54-450
54-60¢
55-15¢
56-23¢6
56-61¢
S7-12
57-27¢
57-69¢
58-18¢
58-52¢
59-140
59-49
60-20¢

61-9¢
61-31¢
62-19
62-350
63-320

38-15
50-67
52-71
54-47
56-57
58-46
60-52
63-32
64-63
66-83

38-150
50-67#¢
S2-716
S54-47¢6
56-574
58-460
60-520
63 3240
64-630
66-830

53-22
60-20
67-29

53-22¢0
60-20¢
67-29¢

10-8
19-136
19-300
19-45¢
26-130

10-8
19-14¢
19-31¢
19-45¢
26-130
27-52¢
27-128¢
30-35¢
33-50¢
36-199¢
43-8

70-16

27-470
27-1239
30-310
33-45¢
36-1470
42-76¢

44 -39¢
44-127¢
46-18¢

48-34¢6

50-62¢
S51-18¢
52-230
52-494
53-41¢
S54-170
54-30¢
54-45¢
54-60¢0
55-15¢
56-230
S6-73¢
57-12
57-32#
57-69¢0
58-21¢
58-52¢
59-14¢
59-49
60-200
61-9¢
61-310
62-19¢
62-38¢
63-35¢

70-16¢

44-716
44-1320
46-210

50-38
50-67¢
S51-20¢0
52-23¢

52-640
53-43¢
S54-170
54-32¢0
S54-47¢
54-62¢
55-17¢
56-23¢
S6-74¢
57-12
57-34¢
57-83¢
58-27¢
58-52¢
59-17¢
59-49¢
60-200
61-90
61-310
62-19¢
63-17
63-44¢0

42-7€

50-68
53-43
54-59
56 -89
58 66
61-25

63-96

65-41
67-75
70-21
54-17
61-9

10-8¢
19-16¢

19-33¢
19-46¢

26-130¢
27-610
27-135¢
30-45¢
33-51¢
36-209¢

43-8
44 -73¢
44-165¢
46-230

50-38¢
50-68¢
51-25
52-46
S52-714
53-44
54-27

54-42

54-57
S54-67¢
55-18
56-260
56-76
57-12¢
57-41
57-86¢
58-29¢
58-669
59-20¢
59-49¢
60-32
61-20
61-35¢0
62-19¢
63-17
63-460

766

44 -180

50-68¢4
53 43¢
54-59¢
56 -899
58 669
61-25¢
63-960
65-41¢
67-750

51-20
53-60
54 -62
56-120
58-92
61-36
63-138
65-47
67-152

51-200
53-600
S54-62¢
56-1204
58-92¢
61-36#
63-138#
65-470
67-152¢

54-170
61-9¢

62-10

55-8

55-84
62-10¢

11-51

11-51¢
19-22¢
19-36
26-160
26-155¢
27-760
27-1500
32-34
33-660
38-4

70-21¢

10-8¢
19-17¢
19-340
19-48¢
26-130¢
27-6648
27-140¢
31-22¢
33-56¢
36-2549

19-21¢
19-36
19-494
26 -135#4
27-718
27-147¢
32-34
33-57¢
38-4
43 -8

43-8¢
44-750
44-1804
46-249

44-778
45-10
46-26¢

31-25
52-46
53-22
S3-44
54-27
54-42
54-57
55-8
55-18
56-37¢
56-76
57-12¢
57-41
57-100¢
58-34
58-69¢
59-26¢
59-49¢
60-32
61-20
61-369
62-240
63-17
63-71

S51-14
S1-25
S52-46
53-22
53-44
54 27
54-42
54-57
55-8
55-18
56 -39¢
56-76
57-12¢
S57-41
57-102¢
58-34
58-80¢
59-289
59-63¢
60-32
61-20
61-456
62-25¢
63-170
63-71

50-57
S1-14

50-57

44 -1804

44-8
44 -850
45-10
47-8

50-57

51-14
51-25¢

52-469
53-22
53-440
54-270
54 -420
54-579
55-8
55-18¢
56-44
56-768
57-15¢
57-41¢

57-109¢
58-34
58-83%
59-29
59-66¢
60-32¢
61-209
62-.0
62-28
63-17%
63-71

l- 1 F)
PARAMETER

CODING

CROSS REFERENCE

63 714
63 138¢
64 -34¢0
64 458
65-18¢
65-47¢
65-72¢
66-520
67-70
67 1524
67-203
M$I0SE

M$LDRO

M$MASK
MEMCHI
M$MCLO
MSMSK1
MsPOP

68-43
70-16

1-A00#
1 C420
36-254

(CREF

57-110

64-58
66-60

67-2479
1-836¢0
19-16
19-30
19-48
33-45
33-75
44 -85

56-74
63-122
67-178
1-831¢0
19-36
42-41
48-9

52-23
54-27
55-15
57-41
59-49
62-19
64 -37

v04.00

12:59:38

36-254¢

26-16
44-16
46-10

44-164
46-100

70-160
7-278¢
7-278¢

7-278¢
7-278
7-278
7-2789
7-278¢

19-4906

42-768
48-35¢0

52-6460
54-440
55-25¢
57-110¢
60-440
62-38¢
64 -58¢
66-604
67-254

7-2780
19-16¢
19-30¢
19-48¢
33-45¢
33-75¢

44 -85¢

59-77

7-278¢
7-2780
9-21

26-115

43-12
S0-67
S2-71

S4-47
56-57
58-46
60-52
63-32
64-63
66-83
67-254¢
19-4
19-17
19-31
32-165
33-50
33-77
44-114

PAGE

26-160

59-77¢

63-994
63-1570
64-370
64 S60
65-38¢
65-630
66-25
67-29
67-750
67-1780
67-2030
68-539

26-35

44-20
46-18

63-155

63 1004
63-1640
64-370
64 -564
55 384
65-630
66-250
67-29
67-784
67-180
67-2030
68 53¢

26-35¢

44 -20¢
46-18¢

63-155¢

9-21¢

26-115¢

43-12¢

50-67¢
S2-71¢
S4-47¢
S6-57¢
58-46¢
60-52¢
63-32¢
64-630
66-83¢0
68-62
19-4¢
19-17¢
19-31¢
32-165¢
33-50¢
33-77¢
44-1140

10-39¢
26-133¢

44-1800

50-68¢
53-430
54-59¢
56-89¢
58-66¢
61-25¢
63-960
65-410
67-75¢
69-71
19-8¢
19-21¢
19-33¢
32-168¢
33-51¢

44-29¢
44-127¢

63-141
§7-197

57-86¢
63-141¢
67-197¢

19-36¢

19-45

19-45¢

9-9¢
26-112¢

50-38¢
52-469
5S4 -30¢
55-18¢
S7-69¢
60-200
62-280
64-420

S0-57¢
S2-49¢
54-42¢0
56-23¢
S58-15¢
60-32¢
63-17¢
64-560

7-278¢

42 41¢
48-9¢

52-23¢
54-27¢
55-1S¢
57-41¢

59-49¢
62-19¢
64-37¢&

7-304

42-47

50-38
S2-46
54-30
55-18
57-69
60-20
62-28
64-42

63 1210
63-165¢4
64-370
64 -560
65-38¢0
65-630
66-250
67-29
67-86¢
67-180
67-2030
69-12

36-20

63-12260
64-19
64 -394
64-580

65-41¢
65-664
66-250
67-290
67-886
67-180
67-2058
69-12
36-200

44 25
46-21

44-250
46-210

67-219

67-219¢

10-40
26-168

10-40¢
26-168¢
45-17¢
51-200¢
53-60¢

63-124
64-19
64 -42
64-630
65 42
65-67
66-310
67-290
67-127
67-180¢
67-209¢
69-120
36-45

44-39
46-23

63-124
64 19
64-42
65 18
65-42
65-67
66-330
67-2940
67-127
67-1800
67-214¢0
69-12¢
36-45¢

44 390
46-23¢

63-124
64-19¢0
64-42
65-18
65-42
65-67
66-52
67-35¢0
67-127
67-180¢
67-2190
70-15

36-147

44-98

56-110

6£3-124%
64-19¢
64-420
65-18
65-42¢

65-670
66-52
67-37¢0
67-127¢
67-194¢
67-221¢
70-15¢

36-1470

44 -989

56-1100

63-1240
64 -190
64 -420

65-18¢
65-420
65-67¢
66 -52
67-70
67-1274
67-1970
67-2299
70-16

36-199

44-100

57-100

63-1240
64 -330

64-420
65-18¢
65-426
65-67¢
66-52¢0
67-70

67-1270
67-201¢
67-2478
70-16

36-199¢

44-1009

57-100#%

7-278¢
7-2780

56 -74¢
63-12:0
67-178

S7-86

SEQ G202

)

63-960
63-1550
64-37
64 -56
65-38
65-63
66-25
66-830
67-700
67-1774
67-2030
68-53

58-80¢

60-44
62-38

DEC

63-714
63-148¢
64 -37
64 -56
65-38
65-63
66 -25
66-600
67-700
67-1560
67-203
68-53

44-101¢

1-B81¢
19-49

63-716
63-1410
64 -37
64 -56
65-38
65-63
65-85¢
66 -52¢
67-70¢
67-1550
67-203
68-43¢

58-80
1-871¢
1-4¢
1-a24¢
1-877¢

52-64
54 -44
55-25

MSPUSH

TABLE

v04.00

44-101

42-76
48-35

M$PRIN

MACRO

7-304¢

42-474

S8-69¢
66-31¢

43-8¢

45-17

51-20
53-60
S54-62
56-120
58-92

61-36
63-138
65-47

67-152
69-710
19-10
19-22
19-39
32-171
33-56
44-71
44-132

54-62¢
56-120¢
58-920
61-36#
63-1380
65-470
67-1528¢
69-123
19-100
19-22¢
19-390
32-171¢
33-56¢

19-259

32-36¢

46-260

67-205

48-34
52-48
S54-32
55-20
S57-83
59-87
62-34
64 -45
65-85
67-205¢

19-110
19-24¢
19-400
32-1730
33-57¢

19-139
19-28¢
19-420
33-40¢
33-664

19-14
19-29
19-46
33-43
33-73

44-730

59-66
67-35

59-66¢
67-35¢0

56-60¢
63-99¢
67-155¢

10-8
26-130

10-8¢
26 -130¢

11-51¢
26-165¢

50-62
53-22
54-45
56-44
S58-34
61-9
63-30
65-18

44-80
50-62¢

S53-22¢
54-45¢
56-444
S8-340
61-9¢
63-30¢0
65-18¢

19-43

41-1

31-27¢
53-67¢
54-679
57-27¢
59-43¢0
61-45¢
63-165¢
65-66¢
67-194¢6

44-710
44-132¢0

44-8

19-340
38-15¢
47-330
S51-31¢
54-29¢
55-17¢
57-55¢
59-63¢

45-10¢

S1-14¢
53-410
S54-57¢
56-760
58-52¢
61-20¢
63-710
65-380

62-250
64-39¢
65-72¢

44 -750

44-77

S56-61¢
63-1000
67-156¢

56-73
63-121
67-177

19-3¢
32-34¢

19-27
38-4

46-8¢

S1-18¢
52-440
S4-600
S7-12¢
S9-14¢
61-31¢
63-124¢
65-42¢

47-8

51-25
S4-17
55-8
57-25
59-29
62-10
Li-19
65-63

19-439

41-1¢
48-34¢

52-489
S4-32#4
55-200
S7-83%
59-87¢
62-3440
64 -45¢
65-854
67-247
19-14¢
19-29¢
19-460
33-439
33-738
44-770
S6-734
63-12.¢
67-1779

19-27¢
38-4¢
47-80
S51-25¢
S4-174
55-8¢
57-25¢
59-299
62-10¢
64-19¢
65-63¢8

PARAMETER

CODING MACRO

CROSS REFERENCE

MS$PUT

65-67
67 203
1-C72¢
19 8¢&
19-13
19-16
19-21¢
19-29
19-31
19-40

26 84
26-135
26-170&6
32-173¢
33-50
33 66
33-77
44-73
44-85¢
44-132

56-60
56-119

M$PUT]

57-86¢
58-29
58-918
59-86
63-460
63-141
67-35¢
67-156
67-201
1-Céie
19-8
19-11
19-11¢
19-14
19-16¢
19-17¢

19-22¢
19-29
19-31
19-31¢
19-40
19-46
26-840
26-126
26-155
26-1708
32-171
33-430
33-500
33-560
33-73
33-770¢

44-71
44-75

TABLE

vO4.00

(CREF

65-67%
67-203
7-27886
19-10
19-13
19-166
19-22
19-29
19-31
19-40
26-84
26-135
32-165
33-40
33-50¢
33-66
33-776¢
44-73

44-89
44-132

56-60¢
56-119¢
57-109
58-29¢
59-26
59-86
63-99
63-1410
67-86
67-156
67-201

7-278¢

19-8
19-11
19-11¢
19-14
19-16¢
19-17¢
19-220
19-29
19-31
19-31¢
19-40
19-46
26-840
26-126
26-155
26-170¢
32-171¢
33-43¢
33-50¢
33-56¢
33-73¢
33-770¢

44-71
44-750

DEC

V04.00

)

12:59:38 PAGE

66-25
67-2030
19-4
19-'0
19-13¢
19-17
19-22
19-29
19-31¢
19-400
26 -84
26-135
32-165
33-40
33-51
33-66
36-36

66 258
68-43
19-4
19-10¢
19-14
19-17
19-22
19-29
19-33
19-42
26-840
26-135
32-165¢
33-40¢
33-51
33-66
36-36

66-52
68-430¢
19-4
19 11
19-14
19-17
19-22
19-29¢
19-33
19-42
26-94
26-1350
32-168
33-43
33-51
33-73
36-36

44-73
44-89
44-1320

44-736
44 -89
56-37

44-75
44 -89
56-37

56-61
57-32
57-109
58-69
59-26
59-86
63-99
63-164
67-86
67-1560
67-201¢

M-10

66-524
68-53
19-4
19 11
19 14
19-17
19-22¢
19-30
19-336
19-424
26-94
26-155
32-168
33-43
33-514
33-73
36-36
44-75

44-890
56-37

5EQ G203

67-29
68-530
19-4
19-11
19-14
19-17
19-24
19-30
19-39
19-46

67-29¢
69-12
19-4¢
19-11
19-14

67-70
69-12¢0
19-8
19-11
19-14

67-700

67-127

67-1274

67-180

67-1800

19-8
19 11
19-14

19-8
19-11
19-14

19-8
19-11
19-140¢

19 8
19-110
19-16

26-94
26-155
32-168

19-17
19-24
19-30¢
19-39
19-46
26-94
26-155
32-168¢

19-17
19-24¢
19-31
19-39¢
19-46
26-948
26-155
32-171

19-17
19-28
19-31
19-40
19-460
26-126
26-1550
32-171

19 17
19-28
19-31
19-40
19-48
26-126
26-170
32-171

19-17¢
19-284
19-31
19-40
19-48
26-126
26-170
32-1710

19-21
19-29
19-31
19-49
19-480
26-126
26-170
32-173

19-21
19-29
19-31
19-40
26-84
26-126¢
26-170
32-173

33-43¢
33-S6
33-73
36-360

33-45
33-56
33-73¢
44-29

33-45
33-56
33-/5
44-29

33-45
33-56
33-75
44-290

33-456
33-56¢
33-75
44-71

33-50
33-57
33-75¢
44-71

33-50
33-57
33-77
44-71

33-50
33-57¢
33-77
44-716

44-7S5
44-114
56-37

44-750
44-114
56-370

44-77
44-114
56-39

44-77
44-1140
56 -39

44-77
44-127
56 -39

44-776
44-127
56 -39

44-85
44-127
56-39¢

44-85
4A4-1270
56-60

63-121
66-31
67-88

63-121¢
66-31
67-88

63-122
66-31¢
67-880

63-122
67-35
67-155

63-122¢
67-35
67-155

63-141
67-35
67-155¢

67-178
67-2140

K7-1780
67-229

67-197
67-229

67-197¢
67-229

19-10
19-11¢
19-14
19-140
19-17¢

67-201
67-229¢
19-8
19-10¢
19-11¢
19-14
19-16
19-17¢

67-201

19-8¢
19-11¢
19-14
19-14¢
19-17

67-197
67-229
19-44
19-10
19-116
19-14
19-14¢
19-17

56-61
S57-32
S57-109
58-69
59-26
59-86
63-99¢
63-164
67-86
67-177
67-214

56-61¢
57-32
S57-109
58-69¢
59-26
59-864
63-100
63-164
67-86
67-177
67-214

56-73
57-32
57-109¢
58-83
59-26¢
63-44
63-100
63-164
67-860
67-177¢
67-214

56-73
57-326
58-27
58-83
59-28
63-44
63-100#
63-1640
67-88
67-178
67-214

19-8
19-11
19-11¢
19-14
19-17
19-17¢
19-226
19-29
19-31
19-33
19-40
19-46
26-840
26-1260
26-155
32-165
32-1716¢
33-45
33-51
33-57
33-73¢
36-36

19-8
19-11
19-11¢
19-14¢
19-17
19-17¢
19-22¢
19-29
19-31
19-33
19-40¢
19-468
26-840
26-1260
26-155
32-165
32-171¢
33-45
33-51
33-57
33-730
36-36

19-8¢
19-11
19-13
19-14¢
19-17
19-17¢
19-24
19-29¢
19-31
19-33¢
19-40¢
19-460¢
26-94
26-126#
26-155¢
32-165¢
32-173
33-45
33-51
33-570¢
33-75
36-36

19-8¢
19-11
19-13
19-140
19-17
19-17¢
19-24
19-29¢
19-31
19-33¢
19-40¢
19-460
26-94
26-1260
26-1550
32-165¢
32-173
33-45¢
33-51¢
33-57¢
33-75
36-36

19-8¢
19-11
19-13¢
19-14¢
19-17
19-21
19-24¢
19-29¢
19-31
19-39
19-40¢
19-48
26-94
26-135
26-155¢

44-71
44-750

44-714¢
44-75¢

44-7160
44-77

44-710
44-77

19-4

56-734
S57-34
58-27
58-83
59-28
63-44

19-40

19-8¢
19-11
19-13¢
19-14¢
19-17

56-74
57-34
58-27
58-83
59-28
63-44

19-4¢

19-8¢
19-11
19-14
19-14¢
19-17

56-74
57-34
58-27
58-83¢
59-28
63-44¢

19-4¢

56-74¢
57-34
58-27¢
58-91
59-28¢
63-46

56-119
57-340
58-29
58-91
59-66
63-46

19-49

S6-119
57-86
58-29
58-91
59-66
63-46

56-119
57-86
58-29
58-91
59-669
63-46

19-8

19-10¢
19-11¢
19-14
19-16
19-170

19-21
19-24¢
19-29¢
19-31
19-39
19-40¢
19-48
26-94
26-135
26-1550

19-21¢
19-28
19-29¢
19-31¢
19-39¢
19-40¢
19-48¢
26-948
26-135
26-170

19-21¢
19-28
19-29¢
19-31¢
19-39¢
19-40¢

19-22
19-28¢
19-30
19-31¢
19-40
19-42

19-22
19-286
19-30
19-31¢
19-40
19-42

19-22
19-29
19-30¢
19-310
19-40
19-4206

19-22
19-29
19-304
19-31¢
19-40
19-422

19-48¢
26-948
26-135
26-170

26-84
26-940
26-135¢
26-170

26-84
26-948
26-135¢
26-170

26-84
26-126
26-135¢
26-1700

26 -84
26-126
26-135¢
26-1709

32-168
32-173¢
33-450¢
33-51¢

32-168
32-173¢
33-45¢
33-516

32-168
33-40
33-50

32-168¢
33-40
33-50
33-56

32-168¢
33-400
33-50
33-56

32-168¢
33-40¢
33-50
33-56

32-171
33-43
33-50¢
33-56¢

32-171
33-43
33-50¢

33-66
33-75
36-360

33-66
33-756
36 360

33-66
33-75¢
36-360

33-660
33-7S¢
36-360

33-660
33-77
44-29

33-66¢
33-77
44-29

33-73
32-77
44-29¢

33-73
33-77¢0
A44-29¢

44-73
44 -77

44-73
44-770

44-73
44-77¢

44-730
44-770

44-7360
44-85

44-730
44 -85

44-75
44-85%

44-75
44-850

33-56

33-56¢

PARAMETER

CODING

CROSS REFERENCE
44 89
44-127
56-37¢0

MSRADI

MS$RBRO
MERNRO
MS$SETS

56 60¢
56 119
S7-32¢
57-109
58-27¢
58-83
58-91¢6
59-28¢
59-86¢
63-46¢
63-121¢
63-164¢
67-350
67-88¢
67-177¢
67-2018
67-229
1-D77¢
69-20
69-34
69-55
1-CS52¢
1-C62¢
1-D32¢
19-36
42-41
48-9

52-23

M$STAR
Ms$SVC

54-27
55-15
57-41
59-49
62-19
64 -37
65-67
67-203
1-A33¢

1-C330
19-16
19-29
19-42
26 -84
27-42
27-118
30-27
33-40
33-66
36-45

42-760
44-71¢
44 -98¢
44-1326
46-236

MACRO

TABLE

v0O4.00

(CREF

44 -89
44 -127

56-374
56 -60¢
56-119
57-32¢
57-109
58-27¢
58-83
58-91¢
59-280
59-86#
63-46¢
63-121¢
63-164¢
67-35¢
67-88¢0
67-177¢
67-201¢
67-229
7-278#

69-200

69-340

69-550

7-278¢
7-278¢
7-278¢

19-36¢

42-410

48-9¢

52-23¢
S54-27¢
55-15¢
S57-410

59-49¢
62-19¢
64-374
65-67¢
67-203
7-278¢
7-278¢
19-1690
19-29¢
19-42¢
26-84¢
27-47
27-123
30-31
33-400
33-66¢
36-450
44-10
44-73
44-100
44-165
46-24

DEC

v04.00

12:59:38

PAGE

44-89
44-1274

44
44

56-370
56-61
56-119
57-34
57-109
58-29
58-83
59-26
59-28¢
63-44
63-460
63-122
63-1640
67-86
67-88¢
67-178
67-201¢
67-229¢
68-55
69-22
69-38
69-57

56 374
56 61
56-119
57-34
57-109
58-29
58-83
59-26
59-28¢

56 -39
56 614
56-119¢
57-34
57-109¢0
58-29
58-83¢
59-26
59-66
63-44
63-99
63-122¢
66-31
67-86
67-155
67-178¢
67-214
67-229¢
68-57
69-24
69-44
69-60

7-304

19-45

42-47
50-38

52-46
54-30
55-18
57-69
60-20
62-28
64 -42
66-25
67-203¢

19-4
19-17
<9-%0
19-43
26-94
27-52
27-128
30-35
33-43
33-73
36-145

44-10¢
44-734
44-100¢
44-1650
46-240

JLF,

5EQ G204

)

44 -89
44-127

26-16

63-44
63-46¢
63-122
63-1640
67-86
67-88¢
67-178
67-201¢
67-229¢
68-55¢
69-22¢
69-38¢
69-57¢
26-164
7-3040

19-45¢

42-474
S0-38¢

S2-46¢
54-300

894
1274

26-35

9-9
26-112
43-8
50-57

52-49

54-42

55-18¢
57-69¢
60-20¢
62-28¢
64 -420
66-25¢
67-203¢

56-23
58-15
60-32
63-17
64 -56
66-52
68-43

19-4¢
19-17¢
19-30¢
19-43¢
26-940
27-61
27-135
30-45
33-43¢
33-73¢
36-145¢

19-8
19-21
19-31
19-46
26-126
27-66
27-140
30-45¢
33-45
33-75
36-147

44-16
44-75
44-101
44-180
46-26

44-16¢
44-756
44-101¢0
44-180¢
46-260

44
44

89¢
1270

56 -39
56-614
56 119¢
57-34
57-1092
58-29
58-834
59-26
59-66
63-44
63-99
63-122¢
66-31
67-86
67-155
67-1789
67-214
67-229¢
68-57¢
69-240
69-44¢
69-600

26-35¢

9-9¢
26-112¢
43-80
50-570

44 B9
44 -132

56 39
56-73
56-1194
57-34¢
57-109¢
58-29¢
58-83¢
59-260
59-66¢

63-440
63-99¢0
63-141
66-31
67-86¢
67-155¢
67-197
67-214

56 -394
56-730
S7 32
S$7-340
58 27
58-29¢
S8 91
59-260
59-86
63-440
63-100
63-1410
66-31¢
67-860
67-156
67-1970
67-21449

56 -394
56 734
57-32
57-34¢0
58-27
58-29¢
58-91
59-26#&
59-86
63-440
63-100
63-1410
66-310
67 864
67-156
67-1970
67-214¢0

56-37
56 -390
56-74
57 32
S7 86
58-27
58-69
58 91
59-28
59-86
63-46
63-100¢
63-164
67-35
67-88
67-1560
67-201
67-21406

1149

1140

44-11490

56 37
56 390
56-74
S7-32
S57-86
58-27
58-69
58-91
59-28
59-86
63-46
63-1004
63-164
67-35
67-88
67-156¢
67-201
67-2140

56 37
56-60
56 74¢
57-32¢
57-86¢
58-27¢
58-69¢
58-919
59-28
59-869
63-46
63-121
63-164
67-35
67-88
67-177
67-201
67-229

63-46
63-121
63-164
67-350
67-88
67-177
67-201
67-229

56 37
56 -60
56 740
57-32¢
57-860
58-27¢0
58-69¢
58-91#
59-28
59-86¢

68-61
69-28
69-49

68-61¢
69-280
69-439¢

69-14
69-30
69-51

69-140
69-300
69-51¢

69-18
69-32
69-53

69-18¢
69-32¢
69-530

36-18
10-8
26-130

36-18¢
10-8¢
26-130¢

36-145
11-51
26-165

36-145¢0
11-51¢
26-165¢

36-209
19-3
32-34

36-209¢
19-3¢
32-340

44-39

44 -390

44 -8

53-17¢
64 -560
66-520
68-43¢0

44-102
45-17
47-18¢

44-114

68-590
69-260
69-47¢

56-44
58-34
61-9
63-30
65-18
67-29
68-53

33-45¢
33-75¢
36-147¢
44 -20
44-77

44-114
44-1320

68-59

52-49¢

19-8¢
19-21¢
19-31¢
19-460
26-1264
27-71
27-147
31-22

56-39
56-73
56-1190
57-3446
57-109¢
58-29¢
58-83¢
59-26¢
59-66¢
63-44¢
63-99¢0
63-141
66-31¢0
67-869
67-155¢
67-197
67-214

44-114
44 -132%

69-26
69-47

S50-62
53-22

S54-42¢0
56-23¢
58-15¢
60-32¢

44 -89¢
44 -132

44 -84

50-62¢

53-22¢

54-45

54-45¢
56 -44¢0
58-34¢
61-90
63-300
65-18¢
67-294
68-53¢0

19-10
19-22
19-33
19-48
26-135
27-76
27-150

19-10¢
19-22¢
19-33¢
19-48¢
26-135¢
27-87
27-155
32-165¢
33-500
33-77¢
36-199¢
44-25
44-85

32-165
33-50
33-77
36-199

44-20¢
44-77¢6
44-102¢
45-17¢
47-33

44-103
46-10
47-330

45-10

51-14
53-41
S54-57
56-76
58-52
61-20
63-71
65-38
67-70
69-12
19-11
19-24
19-34
19-49
26-155
27-92
27-160
32-168
33-51
36-18
36-209

44-25¢
44-85¢
44-103#
46-100
48-19¢

45-10¢

51-140
53-41¢
54-570
S6-769
58-52¢
61-200
63-710
65-38#
67-700
69-12¢

19-11¢
19-24¢0
19-34¢
19-49¢
26-155¢

27-95
27-165
32-168¢
33-51¢
36-180
36-209¢
44 -29
44-89
44-114
46-18

48-34

46-8

S51-18
53-44
54-60
57-12
S9-14
61-31
63-124
65-42
67-127

19-13
19-25
19-39
26-16
26-170
27-98
27-170
32-171
33-56
36-20
36-254

44-29¢
44 -89¢
44-1149
46-18¢
48-349

46-80

S51-18¢

53-440

54-60¢
57-12¢
59-140
61-31¢
63-124¢
65-420
67-127¢

19-13¢
19-25¢
19-39¢
26-16¢
26-170¢
27-103
27-203
32-171¢
33-56¢
36-204
36-254¢

44-39
44-91
44-127
46-21

50-62

19-27
38-4

47-8

51-25
54-17
55-8
57-25
59-29
62-10
64-19
65-63
67-180
19-14
19-28
19-40
26-35
27-27
27-108
30-19
32-173
33-57
36-36

42-6190
44 -394
44-91¢
44-127¢
46-219

50-62¢

19-27¢
38-40

47-84

S51-25¢

S4-17¢

55-8¢
57-254
59-29¢
62-104¢
64-190
65-634
67-1802

19-140
19-28¢
19-400
26-350
27-35
27-113
30-23

32-1730 |

33-572
36-362
a2-76
44-71
44-98

44-132
46-23
50-67

PARAMETER

CODING MACRO

CROSS REFERENCE

S0 67¢
52 469
53-44¢
54-424
54 -62¢
56-264
56-73¢
57-15
57-55
57-1100
58-52¢0
59-17
59-63
60-44¢
61-454
62-38¢
63-960
63-141¢
64 -39

M$TLAB

65-41
65-85
67-37
67-152
67-197
67-229
1-C29¢
19-28¢
26-350
27-71¢
27-147¢
32-165¢
33-77¢

44-25¢6
44-103¢
48-340

MSTSTL

53-41¢
54 -59¢
56 -60¢
57-320
58-29¢
59-28¢
61-24¢
$3-300
63-148¢0
65-38¢
67-35¢0
67-1940
1-C21¢
19-16
19-29
19-42
26 -84
27-27¢
27-61¢
c7-92
27-108¢

TABLE

VO4.00

(CREF

50-68
52-48
53-60
S54-44
S4-67
56-37
56-74
57-15¢
57-55¢
58-18
58-66
59-17¢
59-630
60-52
62-19
63 39
63-99
63-148
64 -390
65-41¢
65-85¢
67-37¢
67-152¢
67-197¢
67-229¢
7-278¢

19-29¢
26-849
27-768
27-1504
32-168¢
36-18¢

44 -294
44-114¢

50-62¢
53-43¢6
>4-60¢
56-610
57-34¢
58-34¢
59-29¢
61-25¢
63-32¢
63-155¢
65-41¢
67-37¢0
67-197¢

7-278¢

19-16¢
19-29¢
19-42¢
26-84¢
27-35
27-61¢
27-926
27-113

1-DEC-83

v04.00

50-68¢
S2-484
53-600
54-449
54-6706
56-37¢
56-740
57-18
57-69
58-18¢
58-664
59-20
59-66
60-524
62-19¢
63-30¢
63-99¢
63-155

64 -42

65-42
66-31
67-70
67-155

67-201

67-247
19-4¢
19-30¢
26-944¢
27-87¢
27-155¢
32-171¢
36-200

44 -390
44-127¢
50-67¢

S3-44¢
S54-62¢
56-73¢
S57-41¢
S8-46¢
59-43¢
61-31¢6
63-35¢
63-157¢
65-42¢
67-70#
67-201¢
19-4
19-17
19-30
19-43
26-94
27-35¢
27-66
27-92¢
27-113¢

)

12:59:38 PAGE

51 18
52-49
53-67
54 -45
55-15
56-39
56-76
57-18¢
57-69¢
58-21
58-69
59-200
59-66¢
61-20
62-24
63-32
63-100
63-155¢
64 -42¢
65-420
66-310
67-708
67-155¢
67-2010
67-247¢
19-8¢
19-31¢
26-1266
27-92¢
27-1604
32-173¢
36-36¢
44-714
44-132¢

S0-68¢
53-60¢
S4-67¢
S6-740
37-55¢
58-52¢
59-49¢
61-35¢
63-44¢
63-164¢
65-47¢
67-75¢
67-203¢
19-4¢
19-17¢
19 -30¢
19-43¢
26-944
27-35¢
27-66¢
27-95
27-113¢6

K16
M-12

51-18¢
52-494
53-67¢
S54-450
55-15¢
56-39¢
56-76&
57-25
57-83
58-21¢
58-69¢
59-26
59-77
61-20¢
62-25
63-32¢
63-100¢
63-157
64-45
65-47
66-33
67-75
67-156

51-20
52-64
54-27
54-47
55-17
56-44
56 -89
S7-25¢0
57-83¢
58-27
58-80
59-26¢
59-77e¢
61-24
62-25¢
63-35
63-121
63-164
64-450
65-474
66-330
67-75¢0
67-1564
67-203¢

51-20¢
S52-640
S4-270
S54-47¢
55-17¢
56-444
56-89¢
57-27
57-86
58-27¢
58-80¢
59-28
59-7¢
61-25
62-28
63-350
63-1210
63-164¢
64-56
65-63
66-52
67-78
67-177
67-205

51-25
S2-71
54-29
S54-57
55-18
56-57
56-110
57-27¢
S7-860
58-29
58-83
59-28¢
59-86
61-250
62-28¢
63-44
63-122
63-165
64 -569
65-63¢0
66-52¢
67-78¢0
67-177¢
67-205¢

51-254
S2-710
54 -29¢
54-57¢
55-18¢
S6-57¢
56-110¢
57-32
57-100
58-29¢
58-83¢
59-29
59-864¢
61-31
62-33
63-440
63-122¢
63-165¢
64-58
65-66
66-60
67-86
67-178
67-209

51-27
53-41
54-30
54-59
35-20
56-60
56-112
57-32¢
57-1008
58-34
58 -84

S51-27¢
53-41¢
54-300
54 -59¢
55-20¢
56-600
S56-119
57-34
S7-102
58-344
58-91

59-87
61-310
62-34
63-46
63-124
64-33
64-589
65-669
66-600
67-869
67-1786
67-214

63-1240
64 -34
64-63
65-67
66-83
67-88
67-180
67-2140

19-10¢
19-33¢
26-135¢
27-95¢
27-165¢
33-40¢
36-45¢

19-11¢
19-340
26-155¢
27-980
27-170#
33-43¢8
36-145¢
44-75¢

19-13¢
19-39¢
26-170¢
27-1036
27-203¢
33-45¢
36-1472

19-140
19-400
27-270
27-108¢
30-19¢
33-50¢0
36-199¢

19-16¢
19-42¢
27-354
27-113¢
30-230
33-51¢
36-209¢

19-17¢
19-43¢
27-42¢
27-118¢
30-27¢
33-564
36-254¢

51-31¢
S54-32¢
55-25¢
56-119¢
57-102¢
S8-84¢
59-86¢
62-25¢
63-100¢
64 -390
65-85¢
67-152¢
67-2210
19-11
19-24
19-34
19-49
26-155
27-47¢
_27-76
27-989
27-123¢

S4-420
56-26¢
56-1204
57-109¢
S8-91¢
59-87¢
62-28¢
63-121¢
64-42¢9
66-31¢
67-155¢
67-229¢
19-11¢
19-24¢
19-34¢
19-49¢
26-1550
27-47¢
27-760
27-103
27-123¢

67-203

44-730
44 -1659

51-18¢
53-67¢
55-15¢
S56-764
57-69¢
S58-66¢
59-63¢
61-36¢
63-46¢
63-165¢
65-63¢
67-78¢
67-205¢
19-8
19-21
19-31
19-46
258-126
27-42
27 -660
27-95¢
27-118

44-180¢

S51-20¢0
S4-27¢
55-17¢
56-89¢
57-83¢
58-69¢
59-66¢
61-45¢4
63-71#
64 -33¢
65-660
67-86¢
67-209¢
19-8¢
19-21¢
19-31¢
19-464
26-1260
27-42¢0
27-71
27-950
27-118¢

44-77¢0
45-17#
51-25¢

54-29¢
55-184
56-110¢
57-86¢
58-80¢
59-77¢
62-19¢
63-96¢
64-344
65-67¢
67-88¢
67-214¢
19-10
19-22
19-33
19-48
26-135
27-42¢0
27-71¢
27-98
27-118¢

44 -850
46-10¢

S1-27¢
54-30¢
55-20¢
S56-112¢
57-100¢
58-83¢
S9-79¢

62-240

63-99¢
64-37¢
65-72¢
67-127¢
67-219¢
19-10¢
19-22¢0
19-33¢
19-48¢
26-1350
27-47
27-710
27-98¢6
27-123

44-89¢
46-18¢

59-29¢

44-91¢
46-210
S2-46¢

59-43
59-87¢
61-35
62-340
63-46¢

19-21¢
19-464
27-47¢
27-123¢
30-31¢
33-57¢

42-760
44 -984
46-230

52-48¢
54 -440
S56-37¢
57-15¢
37-110¢
58-92¢
60-32¢
62-33¢
63-122¢
64 -45¢
66-330

67-156¢

67-247¢

19-13
19-25
19-39
26-16
26-170
27-52
27-760

27-1038
27-128

S51-31

53-43
54-32
S54-60
55-25
56-61
56-119¢
57-34¢
57-109
58-46
58-91¢
59-43¢0
60-32
61-36
62-35
63-71
63-138
64-340
64 -630
65-670
66-830
67-889
67-180¢0
67-219

19-22¢
19-48¢
27-520
27-128¢

52-46
53-44
54-42
54-62
56-26
56-73

56-120¢
57-414
57-110
58-52
58-92¢
59-49¢
60-44
61-45
62-38
63-96
63-141
64-370
65-384
65-720
67-350
67-127¢
67-1944
67-221

30-35¢

19-25¢
26-168
27-660
27-140¢
31-22¢

44-100
44-1004
46-240

44 -20¢
44-102¢
47-33%

33-664

S2-49¢
54-45¢
56-39¢
57-18¢
S58-18¢
59-17¢
60-440
62-349
63-1240
64-564
66-52¢
67-177¢

19-13¢
19-25¢
19-39¢
26-16¢
26-170¢
27-52¢
27-87
27-103¢
27-128¢

33-759

S2-71¢
S54-57¢
56-574
57-272
58-27¢
59-26&
61-208
62-38¢
63-14.0
64-630
66-830
67-180¢
19-14¢
19-28¢
19-40¢
26-350
27-279
27-61
27-879
27-1084
27-135

PARAMETER

CODING

CROSS REFERENCE
27 135¢
27 160
30 19¢
30 45¢
33-43
33-73
36-145

44-16
44-75
44 101
44-180
46-26

51 20
52-64
54-27
54 -47
55-17
56-44
56 -89
57-18¢
57-69¢
58-18
58-66
58-92¢0
59-49¢
60-32
61-31¢
62-25¢

63-32
63-100
63-148¢
64 -34¢
64-634
65-67¢
66-839
67-88¢

67-180¢

M$WORD

67-214
1-C94¢
8-8
27-35
27-52
27-76
27-95
27-113
27-128
27-150
27-165
30-23
30-35

MACRO

TABLE

v04.00

(CREF

27 135¢
27-160¢
30-23
31-22
33-43¢
33-73¢

36-145¢

44 -16¢

44-750
44-1016
44-180¢
46 -26¢
51-20¢

52-64¢
54-27¢
S4-47¢
55-17¢
56-440
56 -89¢
57-25
57-83
58-18¢
58-66&
59-17
59-63
60-32¢
C1-35
62-28
63-32¢
63-100¢
63-155
64 -37
65-38
65-72
67-35
67-127
67-194
67-2140
7-278¢

8-8
_27-35
27-52¢
27-76
27-95¢
27-113
27-128¢
27-150
27-165¢
30-23
30-35¢

48-19

48-19¢

61-24¢
63-35¢
67-370
68-59

58-84
61-35
63-148
67-78¢
68-59¢

58-21¢

'-DEC

VO« .00

27-140
27-1600
30-23¢4
31-224
33-45
33-75
36-147

44-20

44-77
44-102
45-17
47-33

S51-25
52-71
54-29
S54-57
55-18
56-57
56-110
57-25¢
57-83¢
58-21
58-69
59-17¢
59-63¢
60-44
61-35¢
62-28¢

63-35
63-121
63-155¢
64-37¢

65-384
65-72¢
67-35¢
67-127¢
67-1940
67-219
7-323

8-8
27-35

27-61
27-76

27-98
27-113
27-135
27-150

27-170
30-23
31-22
56 -264
S58-84
61-35
63-148
67-209
68-61

)

12:59:38

27-140¢
27-165
30-230
31-224
33-450
33-75¢
36-147¢

44-200
44-776
44-102¢
45-17¢0

47-338
S1-25¢
52-71¢
54-29¢
54-574
55-18¢
56-57¢
56-110¢
57-27
57-86

S58-21¢
58-69¢
59-20

59-66
60-44¢
61-35¢

62-33
63-35¢
63-121¢
63-157
64 -39
65-41
65-85
67-37
67-152
67-197
67-219¢
7-323¢

8-8
27-35¢
27-61
27-768
27-98
27-113¢
27-135
27-150¢
27-170
30-23¢
31-22
56-112
S58-84
61-35
63-148
67-209
68-61¢0

PAGE

27-140%
27-165¢
30-27
32-165
33-50
33-77
36-199

44-25
44 -85
44-103
46-10
48-34

S51-27
53-41
54-30
54-59
55-20
56-60
56-112
57-276¢
57-86¢
58-27
58-80
59-20¢
59-66¢0
60-52
61-36
62-33¢
63-44
63-122
63-157¢
64-39¢
65-414
65-85¢
67-37¢
67-152¢
67-197¢
67-221
8-8
8-8
27-42
27-61
27-87
27-98
27-118
27-135
27-155
27-170
30-27
31-22
56-112
S58-84¢
61-35¢
63-148¢
67-209
69-14

M-13

27-147
27-165¢
30-27¢0
32-1650
33-50¢0
33-770
36-199¢

44-250
44-850
44-103¢
46-10¢

48-34¢0
S51-27¢
53-410
54-300
54-59¢
55-20¢
56-60¢9
56-112¢
57-32
57-100
58-27¢
58-80#
59-26
59-77
60-52¢
61-36¢
62-330
63-44¢

63-122¢
63-157¢

64-42
65-42
66-31
67-70
67-155
67-201
67-221¢
8-8
8-8
27-42
27-610
27-87
27-98¢
27-118
27-135¢
27-155
27-1700
30-27
31-22¢
56-112
S9-17¢
62-25
63-157
67-209¢
69-14¢

L16
5EQ 0206
27 1474
27-170
30-270
32-168
33-51
36-18
36-209

44-29
44 -89
44-114
46-18

50-62
S51-31
53-43
54-32
54 -60
55-25
56-61
56-112¢
57-324
57-100¢
58-29
58-83
59-26¢
59-77¢
61-20
61-45
62-34
63-46

63-124
63-164

64-420
65-42¢
66-314
67-70¢
67-155¢
67-201¢
67-221¢
8-8
8-8
27-42

27-66
27-87
27-103
27-118
27-140
27-155
27-203
30-27

42-61

56-1120
59-20¢
62-24
63-157
67-221
69-16

27-1470
27-1700
30-31
32-168¢
33-510
36-18¢
36-209¢

44 -29¢
44 -89¢
44-1144
46-18¢

50-62¢
S1-31¢
53-430
54 -32¢0
54-60¢
S55-25¢
56-610
56-119
57-34
57-102
58-29¢
58-83¢
59-28
59-79
61-20¢
61-450
62-340
63-46¢

63-124¢
63-1640
64 -45
65-47
66-33
67-75
67-156
67-203
67-229
8-8
8-8
27-426
27-66
27-874
27-103

27-118¢
27-140
27-155¢
27-203
30-27¢

42-61¢

57-15¢
59-79
62-24
63-157
67-221
69-16¢

27-150
27-1704
30-31¢
32-171
33-56
36-20
36-254

44-39
44-91
44-127
46-21

50-67
52-46
53-44
54-42
54-62
56-26
56-73
56-119¢
57-340
57-102¢
58-34
S58-84
59-28¢
59-79¢
61-24
62-19
62-35
63-71
63-138
63-165
64 -45¢
65-474
66-33¢
67-75¢
67-156¢0
67-2030
67-229¢
8-8
8-8
27-47

27-66
27-92

27-103
27-123

27-140
27-160
27-203

30-31
44-91¢0

S7-18¢

59-79
62-244
63-157¢
67-221
69-18

27-150¢
27-203
30-310

32-1710
33-560
36-200
36-2540

44 -394
44-910
44-1276
46-21¢0
S0-67¢

52-460
53-4490
54-42¢
54-62¢
56-260
56-730
56-120
57-41
57-102¢
58-34¢
58-84¢
59-29
59-79¢
61-244
62-19¢
62-35¢
63-710
63-138¢
63-165¢
64 -56
65-63
66-52
67-78
67-177
67-205
67-247
8-8
8-8¢
27-47
27-664
27-92
27-103¢
27-123
27-140¢
27-160
27-203¢
30-31

44-103#

57-102
59-79
62-33
64-33

67-221¢
69-18¢

27-150
27-203¢
30-35
32-173
33-57
36-36

42-76

57-41¢
57-109
58-46
58-84¢
59-29¢
59-86
61-240
62-24
62-38
63-96
63-141
64-33
64 -564
65-63¢
66-529
67-78¢
67-1778
67-205¢
67-2470
8-8
27-27
27-47
27-71
27-92
27-108
27-123
27-147
27-160
30-19
30-31
44 -165¢

57-102
59-79¢
62-33
64-33
68-55
69-20

27-155
27-2034
30-35¢
32-173¢
33-57¢
36-36¢

42-764
44-710
44-98¢
44-1320
46-230

27-155¢
30-19
30-35#
33-40
33-66
36-45

45-10
44-73

44-100
44 -165

50-68¢
52-48¢
53-60¢
54-44¢
54-67¢
56-37¢
56-74¢
57-15
57-55
57-109¢
58-46¢
58-91
59-43
59-86¢
61-25
62-244
62-384
63-964

46-24
51-18
52-49
53-67
S54-45
55-15
56-39
56-76
57-15¢
57-554
57-110
58-52
58-91¢
59-43¢
59-87
61-25¢
62-244
63-30
63-99

64-330
64-58
65-66
66-60
67-86
67-178
67-209

67-2090

63-1410

8-8
27-27
27-47¢
27-71
27-92¢
27-108
27-123¢
27-147
27-160¢
30-19
30-31¢
46-249

57-102
61-24
62-33
64-33
68-550
69-200

63-148
64-330
64-58¢
65-664
66-604
67-864
67-1784
8-8
27-27
27-52
27-71
27-95
27-108
27-128

27-147
27-165
30-19

30-35
47-18

57-102#

61-24
62-33%
64-33¢
68-57
69-22

27-155¢
30-19¢
30-45
33-400
33-664
36-45¢

44-10¢
44-730
44-1004
44-165¢
46-24¢

S51-184
52-49¢
53-670
S4-45¢
35-15¢
S56-39¢
S6-764
57-18
57-69
57-110¢
58-52¢
58-92
59-49
59-87¢
61-31
62-25
63-300
63-99¢
63-1484
64-34
64-63
65-67
66-83
67-88
67-180
67-209¢
8-8
27-27¢
27-52
27-71¢
27-95
27-108%
27-128
27-1478
27-165
30-19¢
30-35

47-184

S58-184

6l1-24
62-350
66-330

68-57¢

69-22¢

PARAMETER

CODING MACRO v0O4.00

CROSS REFERENCE

MSXFER
MANUAL
MEMORY

OPEN

POINTE
POP
PRINTB
PRINTF

PRINTS
PRINTX
PUSH
READBU
READEF
REPORT
RESREG
RFLAGS

SAV.RH

SAVREG

SETPRI
SETVEC
SLASH
STARS
SvC
XFER
XFERF
XFERTY
o

69-24
69-40
69-57
1 382¢
1-;629
1-;660
1-;71¢

1-;760

7-2460

1-<39¢
1-<79¢0
33-73
56-73
67-177
1-=19¢
1-2590
7-235¢

1-=299¢
1->03¢
7-86¢
71-35¢
63-93
1->08¢
7-48¢0

63-135

7-22¢

63-93
1->13¢
1->18¢
S$7-34
67-201
1->249
1->38¢
$5-6
62-3
1->52¢
1-812¢

S9-17¢
1 316¢
1-8200

TABLE

1-DEC

(CREF v04.00

69-240
69-40¢
69-57¢
1-2784
1-278¢
7-278¢
7-278#
7-278¢
27-205

69-26
69-44
69-59
62-16

)

12:59:38 PAGE

69 30
69-49

69-30¢
69-49¢

69-59

69-59¢

19-8
32-168

19-24
32-171

19-29
33-40

19-33
33-43

59-66

19-28
32-173
44-73
63-99

19-13

44-16

44 -25
59-82

7-278¢

57-109
67-214
56-3
62-8

7-2780
56-14
63-3

7-278¢
7-278¢

7-2786
7-167¢

7-277¢
7-278¢

59-20¢

7-2780
7-278¢

44 -29

58-69

57-10S
56-54
63-156

56-86
67-149
56-54
63-156
36-20
26-84
58-27
67-229

56-54
63-156
38-348
63-135

70-16

70-164

69-32
69-51

69-324
69-5140

69-34
69-53

69-344
69-53¢

69-38
69-55

69-380
69-55¢

19-39

19-40
33-50

19-42
33-51

19-46
33-56

19-48
33-57
56-60
67-15%

33-66
56-61
67-156

7-310

19-10
33-18

38-378
63-135

SEQ 0207

69-28¢
69-476
69-604
69 409

27-15

7-278¢0
7-278¢6
56-115

M1l6

69-28
69-47
69-60
69-40

56-74
67-178

7-2780
7-2788

69-26¢
69-440
69-594
69-160

33-82
19-4
32-165
33-77
57-86
67-197

7-2780
71-278¢0
33-75

7-278
42-61¢

62-350
69-16

44-71

56-111
67-191

44-75

44-77

63-100

63-121

19 14

19-16

19-17

63-160
57-52
67-220

67-225
57-80

33-45
44 -85

63-122

44-114

44 -127

44-132

63-141

66-31

19-21

19-22

19-30

19-31

57-101

58-43

58-63

58-81

59-40

59-60

59-78

67-35

57-52
67-220
56-111
67-191
36-147
26-126
58-83

57-80

57-101

58-43

58-63

58-81

59-40

59-60

59-78

63-93

57-52
67-220
36-199
26-135
58-91

57-80

57-101

58-43

58-63

S8-81

59-40

59-60

59-78

36-254
26-155
59-26

46-10

26-170
59-28

56-110
36-36
59-86

44 -89

57-100

58-80
56-37
63-46

59-77
56-39
63-164

63-155
56-119
67-86

67-219
57-32
67-88

63-15

50-43
57-3
64-3

51-3
57-10
64-17

51-12
58-3
65-3

52-3
58-13
65-16

52-21
59-3
66-3

53-3
59-12
66-23

53-20
60-3
67-3

54-3
60-18
67-27

54-15
61-3

44-91¢

44-1030

44 -1654

46-244

47-184

48-19¢

56-26¢0

57-15¢

57-18¢

58-18¢

50-39

63-35¢
69-40

66-33¢
69-59

67-374

67-784

63-44

58-21¢