Digital PDFs

AH-F959B-MC

April 1984

208 pages

Original

104MB

view download

OCR Version

152MB

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_gray.pdf

OCR Text

CZRJLEO

FIoHE & OF 1

SuENmn

TEST

MACRO

v04.00

DEC-88

1.:9:
%8

PAGE

'Ir 'l

REM o

IDENTIFICATION
PRODUCT

CODE:

AC-F9588
-MC

PRODUCT NAME
:

CZRJULBO

RPO7 FUNCTIONAL

PRODUCT

DECEMBER

DATE:

TEST

1983

MATNTAINER:

'CX DIAGNOSTIC ENGINEERING

ALTHOR:

MIKE

THE

LEAVITT

INFORMATION IN THIS DOCUMENT

SUBJECT

CHANGE

WITHOUT

NOTICE
AND
SHOULD
NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES NO

RESPONSIBILITY FOR ANY ERRORS

YHAT MAY

NO RESPONSIBILITY IS ASSUMED
FOR
SOFTWARE ON EQUIPMENT THAT IS NOT
AFFILIATED COMPANIES.

APPEAR

THE
USE
SUPPLIED

OR
BY

THIS DOCUMENT.

RELIABILITY
OF
DIGITAL
OR ITS

FOLLOWING ARE

DIGITAL

DEC

TRADEMARKS OF DIGITAL

PDP

DECUS

EQUIPMENT

UNIBUS

DECTAPE

CORPORATION:

MASSBUS

FCTNL

REOT

OO MENTATION

C.';“nl
USER

CIRUBO RPOT FCINL

DOC'TMMENTATION

MACRO vO04.00

.REM 3

GENERAL

1.':%9:
%8 PAGE

INFORMATION
PROGRAM ABSTRACTY

VD WM -

s
o pa p

1.0

1-DEC-83

TABLE OF CONTENT

SYSTEM REQUIREMENTS

RELATED DOCUMENTS AND STANDARDS

XXDP+
RPO7

USER’'S MANUAL (CHQUS)
PURCHASE SPECIFICATIONS

1.4

DIAGNOSTIC HIERARCY PREREQUISITES

THROUGHPUT

CAPABILITY

(A-PS-3015478-0-0)

RPO7 FRONT END DIAGNOSTIC,
RPO7 PDP11 FORMATTER.

1.5

RESTRICTIONS

THIS PROGRAM WILL NOT BE ABLE

RESIDENT MICRODIAGNOSTICS.

TO RUN ANY

THE

AVAILABLE RPO?

THIS PROGRAM WILL NOT RUN ON LSI-11 CPU'S.

THE

COMMANDS:

NOP,

DIAGNOSTIC,

DESCRIPTOR ARE NOT USED.

FORMAT

TRACK,

AND READ/WRITE

TRACK

CZRJLBO RPO7 FCTNL

USER DOCUMENTATION

TEST MACRO VO4.00 1-DEC-83 12:59:38 PAGE 4-1
IF A KW11-P SYSTEM CLOCK IS NOT
TESTS WILL NOT BE EXECUTED.

THE PROGRAM DOES NOT

2.0

PROVIDE

1
5EGQ 0004

INSTALLED ON

MODULE

CALLOUT

SYSTEM,

THE

TIMING

THE ERROR PRINTOUT,

OPERATING INSTRUCTIONS

THIS SECTION CONTAINS A BRIEF DESCRIPTION OF
FOR DETAILED INFORMATION, REFER TO THE XXDP+

2.1

THE

THE RUNTIME SERVICES.
USER'S MANUAL (CHQUS).

COMMANDS

THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME

SERVICES

(SUPERVISOR).
THIS SECTION LISTS THE COMMANDS AND GIVES A VERY
BRIEF DESCRIPTION OF THEM.
THE XXDP+ USER'S MANUAL HAS MORE DETAILS.

COMMAND

EFFECT

START

RESTART
CONTINUE
PROCEED
EXIT

ADD

DROP

DISPLAY
FLAGS

ZFLAGS

THE DIAGNOSTIC FROM AN INITIAL STATE

START THE DIAGNOSTIC WITHOUT INITIALIZING
CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER tC)

CONTINUE FROM AN ERROR HALT
RETURN TO XXDP+ MONITOR (XXDP+

OPERATION ONLY!)

ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE
CONSIDERED TO BE ACTIVE AT START

DEACTIVATE A UNIT

STATISTICAL

TIME

INFORMATION (IF

CLEAR ALL FLAGS (SEE SECTION 2.3)

A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.
YOU MAY, FOR EXAMPLE, TYPE “STA” INSTEAD OF “START",

2.2

IMPLEMENTED

BY THE DIAGNOSTIC - SECTION 4.0)
TYPE A LIST OF ALL DEVICE INFORMATION
TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3)
SO

SWITCHES

THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS.

SUPERVISOR OPERATION.
ALL OF THE LEGAL

SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH.
IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD".
SWITCH

EFFECT

/TESTS:LIST

EXECUTE ONLY THOSE

TESTS SPECIFIED IN

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

/PASS : DDDDD
/FLAGS:FLGS

/EOP : DDDDD
JUNITS:LIST

1,5,7,8,9,10 T0O

BE RUN.
ALL OTHER TESTS WILL NOT BE RUN,
EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000)
SET SPECIFIED FLAGS.
FLAGS ARE DESCRIBED
IN SECTION 2.3,
REPORT END OF PASS MESSAGE AFTER EVERY
DDDDD PASSES ONLY.
(DDDDD = 1 TO 64000)
TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED

CZRILBO RPO7 FCTNL

USER DOCUMENTATION

TEST MACRO v0O4.00 1-DEC-83 12:59:38 PAGE 4-2

566G 000S

IN THE LIST.,
LIST EXAMPLE - /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 AFTER

EACH

100 PASSES ONLY.

SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS.
FOR EXAMPLE, TYPE “/TES:1-5" INSTEAD OF "/TESTS:1-5".
BELOW IS A TABLE
COMMAND.

THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH

TESTS

PASS

FLAGS

START

RESTART

CONTINUVE

YOU MAY,

PROCEED

EOP

UNITS

X
X

DROP

ADD

DISPLAY

FLAGS

ZFLAGS
EXIT

2.3
FLAGS

FLAGS
ARE

USED

SET UP

CERTAIN OPERATIONAL

PARAMETERS

SUCH AS

LOOPING ON ERROR.
ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH.
FLAGS
ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE

FLAG SWITCH.
THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR
ALL FLAGS.
WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS,

NO COMMANDS AFFECT

THE STATE OF

THE FLAGS;

THEY REMAIN SET OR

CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH.

FLAG

EFFECT

HOE

HALT ON ERROR - CONTROL IS RETURNED TO

LOE

LOOP ON ERROR

IER«
IBRs
IXRe

RUNTIME SERVICES COMMAND MODE

INHIBIT ALL ERROR REPORTS
INHIBIT ALL ERROR REPORTS EXCEPT

FIRST LEVEL

(FIRST LEVEL CONTAINS

ERROR TYPE, NUMBER.
PC, TEST AND UNIT)
INHIBIT EXTENDED EKRROR REPORTS (THOSE
CALLED BY PRINTX MACRO'S)

PRI
PNT

DIRECT MESSAGES TO LINE PRINTER
PRINT TEST NUMBER AS TEST EXECUTES

UAM

UNATTENDED MODE

B0OE

“BELL” ON ERROR

(NO MANUAL

INTERVENTION)

CZRJLBO RPO7 FCTNL

USER DOCUMENTATION

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

SEQ 0006

INHIBIT STATISTICAL REPORTS (DOES NOT

APPLY

TO DIAGNOSTICS

WHICH DO NOT

SUPPORT

STATISTICAL REPORTING)
INHIBIT PROGRAM DROPPING OF UNITS

IDR

ADR

EXECUTE

LOT
EVL
¢«

4-3

AUTODROP CODE

LOOP ON TEST
EXECUTE EVALUATION (ON DIAGNOSTICS WHICH

HAVE EVALUATION SUPPORT)

ERROR

MESSAGES

ARE

DESCRIBED

SECTION

3.1

SEE THE XXDP+ 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 A “BELL" ON ERROR, YOU MAY USE THE FOLLOWING STRING:
/FLAGS:LOE: IER:BOE

2.4

HARDWARE QUESTIONS

WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT
THE USER FOR HARDWARE INFORMATION BY TYPING “CHANGE HW (L) 2*
YOU MUST ANSWER "Y” AFTER A START COMMAND UNLESS THE HARDWARE

INFORMATION HAS BEEN “PRELOADED” USING THE SETUP UTILITY (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 ?
DRIVE @ (0)
o0 ?

THE 1ST QUESTION “RPCS1 ADRS” REQUIRES THAT THE USER INPUT THE
ADDRESS OF RPCS1 OF THE CONTROLLER WHICH IS CCNNECTED TO THE DRIVE

UNDER TEST.

DEFAULT IS 176700 (OCTAL).

THE 2ND QUESTION “VECTOR ADRS” REQUIRES THE USER TO INPUT THE
ggze?gg;hgecroa ADDRESS OF THE RHXX CONTROLLER.
DEFAULT IS
THE

3RD QUESTION

“BR LEVEL” REQUIRES

INTERRUPT PRIORITY LEVEL.

DEFAULT

THE USER

IS LEVEL S.

TO INPUT

THE CONTROLLER

THE 4TH QUESTION “DRIVE #“ REQUIRES THE USER TO SPECIFY THE DRIVE
NUMBER OF THE DRIVE TO BE TESTED.
DEFAULT IS O (OCTAL).

2.5
AFTER

SOFTWARE QUESTIONS
YOU HAVE

ANSWERED THE HARDWARE QUESTIONS OR

OR CONTINUE COMMAND,

PARAMETERS.

THESE

AFTER A RESTART

THE RUNTIME SERVICES WILL ASK FOR SOF TWARE

PARAMETERS WILL GOVERN SOME DIAGNOSTIC

SPECIFIC

CZRJLBO RPO7 FCTNL TEST MACRO VO4.00 1-DEC-83 12:59:38 PAGE 4-4

SEQ 0007

USER POCUMENTATION

OPERATION MODES.
WISH TO CHANGE

YOU WILL BE PROMPTED BY

ANY PARAMETERS,

ANSWER BY

“CHANGE SW (L)

TYPING

"Y",

?”,

THE

You

SOF TWARE

QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED AS FOLLOWS:
CHANGE DRIVE PARAMETER (L) N ?
IF THE RESPONSE TO 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

CyL (D)

O ?

INCREMENT CYL (D)
STARTING
TRK (D)

1 ?
O ?

*+(TESTS 2)
##(TESTS 2-7,11,13,16,17)

INCREMENT TRK (D)
STARTING
SEC (D)

1 ?
O ?

+#+(TESTS 11,16,17)
+«#(TESTS 2,5-7,13)

DATA

030221

ENDING

CvL. (D)
TRK (D)

SEC (D)

PATTERN (0)

IF THE FIELD VERSION OF
QUESTION WILL BE ASKED.

629 ?
31 ?

49 ?

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

*++(TESTS 2-4,6,8,10,14,17,18)
++(TESTS 3-6,11,14,16-18)

++(TESTS 5,6,14,18)

? *+(TESTS

16,17,18)

THIS PROGRAM IS BEING RUN,

THE FOLLOWING

DO YOU WANT TO WRITE ANYWHERE ON MEDIA (L) N ?
IF THE RESPONSE TO THE PREVIOUS QUESTION IS ‘N’',
THE FOLLOWING
QUESTION WILL BE SKIPPED AND PROGRAM WILL PROCEED AS NORMAL
.
A

'Y'

RESPONSE WILL PRINT

DEVICE AND ASK

THE FOLLOWING WARNING MESSAGE

THE

OUTPUT

THE FOLLOWING QUESTION.

! CUSTOMER DATA WILL BE OVERWRITTEN
CONTINUVE (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 TO
S‘EEg?%gC‘TED FOR TESTING.
A 'Y’ RESPONSE WILL ASK THE FOLLOWING

USE RANDOM DATA PATTERNS FOR RANDOM WRITE TEST
«+(TESTS

PERFORM READ HEADER & DATA DURING SEEKS (L)
#+(TESTS 2-6)

TYPE

TIME REPORTS (L) N ?

«+(TESTS

(L) N

18)

7-10,14,18)

INHIBIT SOF TWARE TIMEQUTS (L) N ?

ss(ALL

TIMING TESTS,

STALL BETWEEN SEEKS:

TESTS)

RANDOM INSTEAD OF 2 MSEC

#+(TESTS 7-10,14,18)

STALL AFTER EVERY DRIVE FUNCTION IN NON-TIMING TESTS (L) N ?

(L) N ?

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83
USER DOCUMENTAT ION

«USE

RANDOM

12:59:38 PAGE 4-5

STALL

TIMES

(L)

THAT

INDICATES NOT PART OF

QUESTION

ASKED

S5EQ 6008

#+(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

STALLS

SELECTABLE STALL,

RANDOM (1-64 MSEC)

NON-TIMING TESTS.

NON-SELECTABLE,

VIA SOFTWARE (SW)
STALL

TIME

DIALOGUE:

AFTER EVERY

10.

MSEC OR

DRIVE FUNCTION

2 MSEC OR RANDOM STALL BETWEEN SEEKS IN

TIMING 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 = O,
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 SEEK TESTS
2-6, NO STALL, NO TIME REPORTS, SOFTWARE TIMEOUTS ENABLED.
NOTE

IF RUNNING THE FIELD VERSION OF

PROGRAM,

TESTS

RUN WHEN THE

17 AND

“WRITE DATA ANYWHERE ON

THE MEDIA” OPTION

OPERATOR.
2.6

THIS

18 WILL ONLY BE

IS SELECTED BY

THE

EXTENDED P-TABLE DIALOGUE

WHEN YOU ANSWER THE HARDWARE QUESTIONS,

YOU 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 OR A COMMUNICATION

DEVICE WITH SEVERAL LINES,

THIS BECOMES TEDIOUS SINCE MOST OF

THE ANSWERS ARE REPETITIOUS.

TO ILLUSTRATE A MORE EFFICIENT METHOD,

SUPPOSE YOU ARE TESTING

A FICTIONAL DEVICE, THE XY11.
SUPPOSE 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 AMONG UNITS CALLED THE
Q-FACTOR.
THIS Q-FACTOR MAY BE O OR 1.
BELOW IS A SIMPLE WAY
TO BUILD A TABLE FOR ONE XY1l WITH EIGHT UNITS.
© UNITS (D)

UNIT

8<CR>

CZRJLBO RPO7 FCTNL

USER DOCUMENTATION

TEST MACRO vO04.00 1-DEC-83 12:59:38 PAGE 4-6

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

Q-FACTOR (0) 1

160000<CR>
1<CR>
O0<CR>

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

UNIT S
CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE @ (0) ?
4<CR>
Q-FACTOR (0) © 2
<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 ?
1<CR>

UNIT 8
CSR ADDRESS (0)
160000<CR>
SUB-DEVICE @ (0) ?
7<CR>

Q-FACTOR (0) 1 ?

<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 EXAMPLE,

THE HARDWARE PARAMETERS

DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT.
NOT VERY EFFICIENT.

THE PROCEDURE SHOWN IS

THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER.
%E‘T““S‘agUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION
@ UNITS (D)

8<CR>

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

5EQ G009

CZRBO RPO7 FCTNL

USER DOCUTMMENTATION

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

1<]
SEQ 0010

UNIT 3
CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE # (C) ?
2-5<CR>
Q-FACTOR (0) 0 ?
O0<CR»>
UNIT 7
CSR ADDRESS (0) ?
160000<CR>
SUB-DEVICE @ (0) ?
6,7<CR>
Q-FACTOR (0) 0 2
1<CR>
AS

YOU CAN SEE IN 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.
IN 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 TO THE SECOND.

IN THIS CASE,

SUB-DEVICES

2, 3, 4 AND 5 WERE SPECIFIED.
(IF THE SUB-DEVICE WERE SPECIFIED
BY ADDRESSES, THE INCREMENT WOULD 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.
SPECIFIED IN THE THIRD PASS.

THE LAST TWO UNITS ARE

THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS

SHOWN BELOW.

@ UNITS (D)

8<CR>

UNIT 1
CSR ADDRESS (@) ?
160000<CR>
SUB-DEVICE & (0) ?
O0-7<CR>
AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY.

2.7 QUICK START-UP PROCEDURE

(XXDP+)

TO START-UP THIS PROGRAM:

BOOT XXDPs+

GIVE THE DATE AND ANSWER THE LSI AND SOHZ (IF THERE
IS A CLOCK) QUESTIONS

TYPE

"R NAME"”,

TYPE

"START"

ANSWER THE

FILE FOR

WHERE NAME IS THE NAME OF

THIS PROGRAM

“CHANGE HW” QUESTION WITH

“Y*

THE BIN OR BIC

CJRUBC RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 4-8
R

SEQ 0011

DOC''TMMENTATION

ANSWER ALL

THE HARDWARE QUESTIONS

ANSWER

“CHANGE

THE

SW" QUESTION WITH

"N*

WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE
DEFAULTS FOR FLAGS AND SOF TWARE PARAMETERS.
THESE DEFAULTS
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5.

3.0 ERROR INFORMATION
3.1

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 GENERAL ERROR MESSAGE

THE "IER" FLAG IS SET
IS OF THE FORM:

NAME
TYPE
NUMBER
ERROR MESSAGE

ON UNIT NUMBER

(SECTION 2.3).

TST NUMBER PC:XXXXXX

+WHERE; NAME = DIAGNOSTIC NAME

TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT)
NUMBER = ERROR NUMBER
UNIT NUMBER = O - N (N IS LAST UNIT IN PTABLE)
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED
PC:XXXXXX

= ADDRESS OF ERROR MESSAGE CALL

BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL
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 "IER”, “IBR” OR "IXR” FLAGS ARE SET (SECTION 2.3).
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES.
3.2

ERROR PRINTOUT

THE ERROR PRINTOUT WILL CONTAIN A ONE LINE ERROR DESCRIPTION FOLLOWED

BY COLUMN HEADINGS AND COLUMNS OF REGISTER CONTENTS IN OCTAL.

EXAMPLE :
CZRXXX

HRD

ERR

O0O0XXX

ON UNITXX

RPO7 AGDRESSING ERROR (IAE AOE)

CyL XXX.

DRIVE

XXXXXX
RPERL
XXXXXX
RPOF
XXXXXX

TRK XX,

RPCS1

XXXXXX
RPAS
XXXXXX
RPDC
XXXXXX

RPWC

SEC XxX.

XAXXXX
RPLA
XAXXXXK
RPCC
XXXAXXX

RPBA

XAXXXX
RPDB
XXXXXX
RPER2
XXXXXX

TSTXX

RPER2

RPDA

XXXXXX
RPMR1
XXXXXX
RPER3
XXXXXXK

SUBXX

(HEX) XXXX

RPCS2

XXXXXX
RPDT
XXAXXX
RPEC1
XXXXXX

RPDS

XXXXXX
RPSN

XXXXXX
RPEC2
XXXXXX

PCXXXXX

TEST MACRO v04.00

1-DEC-83 12:59:38 PAGE 4-9

THE FIRST LINE OF

THE ERROR MESSAGE

~SEQ o012

IS PRODUCED BY THE DIAGNOSTIC

SUPERVISOR. THERE ARE SEVEN ITEMS REPRESENTED IN THE FIRST LINE OF
OUTPUT. 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, S5) 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 INFORMATION ABOUT THE SPECIFIC FAILURE MODE.
THE BALANCE OF THE ERROR REPORT CONTAINS REGISTER STATUS TO AID THE

F.E.

IN FAULT DETECTION AND POSSIBLE

ISOLATION.

5.3 SPECIFIC ERROR MESSAGES
INIT CODE ERRORS
ON A START COMMAND OR ON A NEW PASS, THE DRIVE AVAILIBILITY IS CHECKED
IN THE INIT CODE, BEFORE RUNNING THE TESTS. A DRIVE NOT AVAILABLE IS
APPROPRIATELY REPORTED AND THE CURRENT PASS ABORTED FOR THAT UNIT:
DRIVE
DRIVE
DRIVE
DRIVE
WHERE

‘N’

N
N
N
N

UNSAFE
NON-EXISTENT
OFF -LINE
NOT A RPO7

IS THE DRIVE NUMBER

THAT FAILED

NUMBERED ERROR LIST

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

RHXX ILLEGAL CONDITIONS SET (NED,NEM,PGE,MXF)
WRITE CHECK ERROR
DATA LATE ERROR
DRIVE PROGRAMMING ERROR (PGE)
LOSTS BIT CLOCK (LBC)

WRITE CLOCK FAILS
WRITE LOCK ERROR
DATA ERROR (DCK)
DRIVE BUS PARITY ERROR (DPE)
ILLEGAL CONDITIONS SET (ILF,ILR,RMR)
ADDRESSING ERROR (IAE,AOQE)
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 OR PAR=1)
OFFLINE OR UNSAFE DRIVE REQUESTED
WRITE-READY UNSAFE

(1
NS

3:
4:
S:
6:
7:

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

e g2

1:
2:

o~~~

JJEi BC RPOT FCTNL
F8
DOCMENTATION

SR
E&

RO RPOT FCTNL
OO0 TMMENTATION

TEST MACRO V04.00 1-DEC-83 12:59:38 PAGE 4-10
33:
34:
35:
36:

SEQ 0013

DC POWER UNSAFE
INDEX UNSAFE
PROCESSOR HANDSHAKE FAILURE
DRIVE OFF-LINE OR NOT A RPO7

41:
42:
43:
44:
45:
46:
47:

OPERATION INCOMPLETE (OPI)
IMPROPER HEADER DATA
ECC LOGIC FAILURE
MISC DRIVE ERROR: RPER1, RPER2,
DRIVE TIMING ERROR (DTE)
HEADER CRC ERROR (HCRC)
UNCORRECTABLE ECC ERROR

S50:
S51:
52:
53:
54:
55:

(1)

RPER3

LAST BLOCK TFR LBT NOT SET WHEN READING LAST SECTOR
AD OVFL AOE NOT SET WHEN READING PAST LAST SECTOR
HARD ERROR SOFT ERROR OM OF RPDS NOT SET ON OFFSET CMD
OM OF RPDS NOT RESET ON RET CENTER CMD

MOST OF THE NUMBERED ERRORS ABOVE WILL ALSO CAUSE A DUMP OF

THE

FORMAT BELOW, CONSISTING OF 2 PARTS, A BASIC, THEN AN EXTENDED
ERROR MESSAGE, BOTH CONTROLLED BY IBR AND IXR FLAGS:

CyL XXX.
DRIVE

XXXXXX

RPER1

TRK XX.

RPCS1

SEC XX,

RPUC

XXXXXX

RPLA
XXXXXX XXXXXX XXXXXX
RPOF
RPCC
RPDC
XXXXXX XXXXXX XXXXXX

RPAS

RPBA

RPER2

RPDA

XXXXXX XXXXXX

RPDB
XXXXXX
RPER2
XXXXXX

RPMR1
XXXXXX
RPER3
XXXXXX

(HEX)

RPCS2
XXXXXX

RPDT
XXXXXX
RPEC1
XXXXXX

XXXX

RPDS

XXXXXX

RPSN
XXXXXX
RPEC2
XXXXXX

EXCEPTIONS:

(1)

DRIVE N

(2)

DRv CYL TRK SEC
XXX

XXX

GOCYL GDTRK GDSEC BDCYL BDTRK BDSEC
XXX

(3)

XXX

@ OF OPERATIONS WITH A LOST REVOLUTION:
XXXX OPERATIONS TIMED

ALLOWABLE OPERATION TIME LIMIT

MAX=

XXXXX US

(4)

NO ADDITIONAL MESSAGES

(5)

TIMING TESTS 7,

14,

18:

UNRECOVERABLE SEARCH ERROR
ABORT TEST

SEARCH FAILED AFTER 16 RETRIES
ABORT TEST

XXXX

CZRJLBO RPO7 FCTNL

USER DOC'TMENTATION

TEST MACRO v04.00 1-DEC- B3 12:59:%8 PAGE
(6)

TIMING

TESTS 8-10,

POSITION ERROR:
3.4

ERROR

14,

o X7 "/r/l‘

18:

ABORT

TEST

TYPE

THE FIRST LINE OF ERROR MESSAGES PRODUCED By
IDENTIF [ES THE TYPE OF ERROR REPORTED.
THEY
DIAGNOSTICS IN 3 CATEGORIES:

1.
2.

'SFT'

THE DIAGNOSTIC SUPERVISOR
ARE CLASSIFIED Br THE

SOFT:

THE FIRST LOST DISC REVOLUTION IN THE

'HRD'
ERRORS
.

HARD:

ALL

MARK DETECTION

'DVC FTL'

TESTS.

ERRORS,

- DEVICE FATAL:

ADDRESS

EXCEPT DEVICE FATAL ERRORS AND SOFT

AN ERROR

THAT FAILS THE DEVICE:

NOT READY, NON-EXISTENT OR NOT AN RPO7,

4.C PERFORMANCE

DEVICE

AND PROGRESS REPORTS

AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE
TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED.

THE

“EOP"

SWITCH CAN BE USED

TO CONTROL HOW OF TEN THE END

OF PASS MESSAGE IS PRINTED.

SECTION 2.2 DESCRIBES SWITCHES.

5.0 TEST SUMMARIES
TEST

RECAL

TESTY

THIS TEST EXECUTES A RECALIBRATE COMMAND, THEN EXECUTES
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
BY
SOF TWARE
(SW) DIALOGUE,
IN
WHICH
CASE
SEEK

POSITIONING

TEST 2:

THIS

INCREMENTAL SEEK

TEST

EXECUTES

FIRST(STARTING)

IS NOT

VERIFIED.

TEST

FORWARD

CYLINDER

SEEKS

ADDRESS

ADVANCE

THE

THE LASTC(ENDING) CYLINDER

ADDRESS INCREMENTALLY.
WHEN THE LAST(ENDING) CYLINDER
IS
REACHED,
THE TEST IS REPEATED IN THE REVERSE DIRECTION.

THE INCREMENT/DECREMENT VALUE
VIA SW DIALOGUE.
TEST

3:
THIS

RANDOM SEEK
TEST

DEFAULT,

CHANGEABLE

TEST

EXECUTES

1024.

SEEK

OPERATIONS RANDOMLY

BETWEEN

THE

GIVEgSZIRST(STARYIMB) CYLINDER ADDRESS AND LAST(ENDING) CrLINDER

CJRILBO RPOT FCTNL
USER

DOC'TMMENTATION

TEST MACRO v04.00

TEST 4:

1-DEC-83

RECAL/RANDOM SEEK

THIS

SELECTED CYLINDER,

SEEK DIFFERENTIAL

THIS

kG OG1S

COMMAND,

THIS

FOLLOWED BY

SEQUENCE

A SEEK

IS REPEATED

10.

3 SUBTESTS

TEST

THE

HEAD POSITIONER AND

TO 3 UNIQUE DIFFERENTIAL SEEK PROFILES:

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

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

400 CYLINDER DIFFERENTIAL SEEK:
ACCELERATION

FORCED BY

AND

...

230 TO 629.

OSCILLATING SEEK

THIS

TEST

FORCES MAXIMUM

DECELERATION OF CARRIAGE

SEEKING FROM CYLINDER O

2 TO 401,

399,

ASSEMBLY,
TO 400,

TEST

SHALL EXECUTE A SERIES OF SEEK OPERATIONS

CAUSE
AN OSCILLATING MOVEMENT OF THE HEAD POSITIONER.
THAT
MOVEMENT SHALL RESULT FROM SEEKING TO THE FOLLOWING
PATTERN
OF
DESIRED
CYLINDERS:
FROM
THE
MAXIMUM DISTANCE SEEK OF
CYLINDER O TO LAST(ENDING) CYLINDER (LC), FROM CYLINDER 1 TO

LC-1,

FROM CYLINDER 2 TO LC-2,

CYLINDER,

MEDIAN

...

DOWN TO THE MEDIAN

THEN, REVERSING THE ORDER OF THOSE SEEKS FROM THE

CYLINDER

CYLINDER O TO LC.

BACK UP TO THE MAXIMUM DISTANCE SEEK OF

NOTE
THE

TESTS NUMBERED

CONTAIN
THAT A

THE

7-10.,

TIMING TESTS.

KW11lP

14.,

18.

THEY REQUIRE

P-CLOCK BE

INSTALLED

SYSTEM IN-ORDER 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 THE
MEASURED TIMES IF THEY ARE OVER
THE
TIMING
TOLERANCES.
IF
THE
PRINT
REPORT
WAS
REQUESTED
VIA SOF TWARE
(SW) DIALOGUE,
THE TIMING INFO WILL
ALWAYS BE PRINTED.

IS NOT FOUND

TESTS

WILL

OPERATOR

10
TIMES.

TEST

TEST CONSISTS OF

TEST

SERVO SYSTEM RESPONSE

TEST 6:

TEST EXECUTES A RECALIBRATE

A RANDOMLY

TEST S:

12:%9:%8 PAGE

NOT

WILL

IF A SYSTEM CLOCK

TO BE PRESENT,
BE

TIMING

EXECUTED.

NOTIFIED

VIA

THE

CZRJULBO RPO7 FCTNL TEST MACRO V04.00 1-DEC-83
USER DOCUMENTATION

12:59:%8 PAGE

4-13%

MESSAGE.
TEST

ROTATIONAL

SPEED

TIMING

TEST

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

TO
THE

CYLINDER
FC,
SEARCH OPERATION

DONE, 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

REPEAT THIS SEQUENCE 10 TIMES.
IN CASE ANY RECOVERABLE
READ ERROR EXISTS, THE PROGRAM WILL EXECUTE THE SEARCH

COMMAND 16 TIMES.
A‘B‘(S)RIBBR!EYE[T)EST.

TEST

-3,

IF THE RETRY SEQUENCE FAILS THE PROGRAM WILL

GENERATING A MESSAGE

TELLING WHY

THE PROGRAM

ONE

CYLINDER SEEK

TIMING

TEST

THIS TEST EXECUTES FORWARD 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(STARTING) CYLINDER ADDRESS REACHES 629 THE USER

SPECIFIED ENDING CYLINDER,

REVERSE

DIRECTION.

THEN THE TEST IS REPEATED IN THE

DO THIS SEQUENCE

CYLINDER SEEK TIME WILL BE COMPUTED AND

TWICE.

THE AVERAGE ONE

REPORTED

WHEN

THE

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

¢«

...

7629

¢«

...

SEEK

629 + 629
WHERE
TEST 9:

IS THE SINGLE CYLINDER SEEK

AVERAGE

SEEK

TIME MEASUREMENT

THIS TEST WILL MEASURE

THE AVERAGE

THE FOLLOWING CALCULATION:

2 X[

TIME.

SEEK

TIME

USING

(Tl X 629)¢(T2 X 628)¢...+(T629 X 1))
o

o Mo i

629 X 629
WHERE
:
THE TX IS THE FORWARD (REVERSE) SEEK

CYLINDER

TIME FROM CYLINDER O TO

X (CYLINDER X TO CYLINDER O).

THE TOTAL NUMBER OF SEEKS EXECUTED.
AVERAGE SEEK TIME TOLERANCE IS 23 MSEC.

TEST

10:

MAXIMUM SEEK

THE NUMBER 2X629 IS

TIMING TEST

THIS TEST EXECUTES FORWARD SEEK FROM CYLINDER O TO
THE
LAST(ENDING)
CYLINDER,
THEN
A
REVERSE
SEEK
FROM
THE
LAST(ENDING) CYLINDER TO CYLINDER O.
BOTH SEEKS
ARE
TIMED
AGAINST
A
TOLERANCE
OF
46 MSEC..
A TOTAL NUMBER OF 1024

“EG 6616

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 4-14
USER DOCUMENTATION

5EG 0017

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

11:

MID

TRANSFER

SEEK

THE

MAXIMUM

SEEK

TEST

THIS TEST EXECUTES READ DATA COMMANDS 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 REGISTER BIT

REQUIRING A

THIS
TEST
ALSO ENSURES

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 (ADE) BIT OF THE ERROR REG.
RPER1.
TEST

13:

OFFSET/RETURN TO CENTER LINE

TEST

VERIFY THAT THE OFFSET AND RETURN TO CENTER
WORK PROPERLY.

LINE COMMAND

ISSUE AN OFFSET COMMAND, PROCESS THE ATTENTION INTERRUPT AND

CHECK
FOR
ERRORS,
(OM) BIT OF RPDS.

VERIFY THE ASSERTION OF THE OFFSET MODE

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 TO

VERIFY THAT NO DATA TRANSFER ERROR OCCURS.

REPEAT

1024

TIMES.

IF THERE IS A P-CLOCK, THE
ADDRESS
MARK
DETECTION
TIMING
TEST
VERIFIES
THAT
DATA
CAN BE READ CORRECTLY WITHIN THE
SAME REVOLUTION AS A SECTOR DETECTION.
THE
TEST
RANDOMLY

SELECTS

SECTOR,

THEN READS THE

SEARCH DONE

SEARCHES FOR THE PRECEDING LOGICAL SECTOR,

SELECTED

SECTOR.

THE

TIME

INTERVAL

- READ DONE 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,
TEST

15:

FE CYLINDER ADDRESS

1024
TIMES.
INDICATE THE

IF ANY,

TEST

THIS TEST EXECUTES READ-HEADER
AND
DATA
COMMANDS
TO
VERIFY THE ADDRESSING OF SECTOR O ON ALL TRACKS OF THE FIRST
FE CYLINDER, THEN EXECUTES AN EXPLICIT SEEK
TO
ACCESS
THE
SECOND FE CYLINDER.
TEST

16:

FE CYLINDER WRITE AND WRITE-CHECK

TEST

CZRJLBO RPO7 FCTNL TEST MACRO V04.00 1-DEC-83 12:59:38 PAGE 4-15
USER DOCUMENTATION

SEG 0018

THIS TEST WILL WRITE ON THE FIRST FE CYLINDER FROM
FIRST(STARTING) TO THE LASTC(ENDING) TRACK TO VERIFY

THE
THAT

THE

DRIVE CAN WRITE DATA WITHOUT
DETECTABLE
ERROR.
THE
TEST
WRITES
THE
DEFAULT DATA PATTERN 030221 OR A USER SPECIFIED
DATA

PATTERN

WRITE -CHECK

ONTO

COMMAND.

THE

MEDIA,

THE

FOLLOWED

EXECUTING

ITS COMPLEMENT
VALUE AND
REPEATS THE TEST CYCLE.
COUNT IS SET TO DO TWO HALF TRACK DATA TRANSFERS.

TEST

17:

WRITE

TEST CHANGES THE DATA PATTERN TO

THE WORD

TEST

IF
RUNNING THE FIELD VERSION
OF THIS PROGRAM, THIS TEST IS
ONLY RUN IF THE "WRITE DATA ANYWHERE ON THE MEDIA” OPTION IS
g&g?}gs
BY
THE
OPERATOR,
IN
THE
SOFTWARE
PARAMETER
THIS
FROM

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

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

18:
IF

RANDOM WRITE TEST

THE

/ADDRESS MARK DETECTION TEST

RUNNING THE FIELD VERSION

THIS PROGRAM,

THIS

TEST

ONLY RUN IF THE “WRITE DATA ANYWHERE ON THE MEDIA” OPTION IS
(Sfég?}gis
By
THE
OPERATOR,
IN
THE
SOFTWARE
PARAMETER
IF THERE IS NO P-CLOCK, THIS
TEST
WRITES
DATA
AND
WRITE
CHECKS DATA RANDOMLY ON THE MEDIA, WITH A TRANSFER SIZE OF 1
gfég}gg“ 1024 TIMES. THE DATA PATTERN IS RANDOM OR A SPECIFIED
IF THERE IS A P-CLOCK,
TEST

THE

ADDRESS

MARK

DETECTION

TIMING

VERIFIES THAT DATA CAN BE WRITTEN CORRECTLY 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 DISC REVOLUTION.

ON THE SELECTED SECTOR.

A WRITE CHECK DATA

REPEAT

1024

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

TIMES.

THEN ISSUED

AT THE END OF

THE NUMBER OF

THE

OPERATIONS

CZRJLBO RPO7 FCTNL

HISTORY

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

G2
SEQ 0019

.REM 3
VERSION (CZRJL -A-0)
1.

THIS VERSION IS THE STARTING POINT
THE RPO7 DISK DRIVE.

FOR CX

DIAGNOSTIC

SUPPORT

VERSION (CZRJL-B-0)
1.

WHEN
A
BAD SECTOR ERROR (BSE)
OCCURS
DURING
A
WRITE CHECK
COMMAND,
THE MASSBUS DATA BUS PARITY (MDPE)
BIT
IS
ALSO SET
FOR SOME UNKNOWN REASON.
TO REMEDY
THIS PROBLEM,
THE BSE BIT
IS ALSO CHECKED AFTER THE MDPE BIT IS
DETECTED
AND IS TREATED
AS A NORMAL BAD SECTOR.

MODIFIED THE
PROGRAM
TO
REPORT THE SEEK
TIMES OF THE TIMING
TESTS (7-10,14,18), ONLY IF THE TEST FAILS A TIMING SPEC
OR IF
THE APPROPRIATE SOFTWARE QUESTION IS ANSWERED AFFIRMATIVE.
THE
ADDRESS MARK
TESTS
(14 £ 18)
WILL
NOW
REPORT
gg'v’q.g;égN ERROR AS IT OCCURS,
INSTEAD OF
WHEN
THE
L

A
LOST
TEST HAS

CZR#LBO RPO7 FCTNL
HISTORY

1
2
270
27
298
300 000000
301
303
305
306
§07
08
309
311
319
223 002000

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

SEQ 0020

;*LAST REVISION 25-MAY-83

.TITLE
.SBTTL

CZRJLBO RPO7 FCTNL
PROGRAM HEADER
.ENABL
’

002000

TEST

AMA,ABS
=
2000

R
; THE PROGRAM HEADER IS THE INTERFACE BETWEEN
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR.
gon

002000
002001
002002

103
132
122

002004
002005
002006
002007
002010
002010
002011
002011
002012
002012
002014
002014
002016
002016
002029
002020
002022
002022
002024
002024
002026
002026
002030
002030
002032
002032
002034
002034
002036
002036
002040
002040
002042
002042
002044
002044
002046

114
000
000
000

002003

L$NAME: ;

112

1C2

060
000001
000060

041200
041316

002172
002204

074766
000000
000000
000000
000000
002124

000000
000000

.ASCII
.ASCII
.ASCII

/C/
72/
/R/

.ASCII
.BYTE
.BYTE
.BYTE

/L/

;DIAGNOSTIC NAME

.ASCII 7J/

LSREV::
L$DEPO: :

LSUNIT::
LSTIML::
L$HPCP: :

L$SPCP: :
LS$HPTP: :

LS$SPTP: :
LSLADP: :
L$STA::
L$CO::

L$DTYP: ;
L$APT: :

L$DTP: ;
L$PRIO::

LSENVI::
LSEXPL::

0
0
0

.ASCII

/B/

.ASCII

. WORD

T$PTHV

.WORD

. WORD

L $HARD

. WORD

L$SOFT

. WORD

L$HW

. WORD

L$SW

.WORD

LS$LAST

. WORD

.WORD

.WORD
WORD

sREVISION LEVEL
;0

;NUMBER OF UNITS
;sLONGEST

TEST

;POINTER

TO H.W.

QUES.

;POINTER TO S.W.

QUES.

TIME

;PTR.

TO DEF.

H.W.

;PTR,

TO S.W.

PTABLE

;DIAG.

END ADDRESS

PTABLE

;RESERVED FOR APT STATS

sDIAGNOSTIC TYPE
;APT EXPANSION

;PTR. TO DISPATCH TABLE
L$DISPATCH
;DIAGNOSTIC RUN PRIORITY
0
s1FLAGS DESCRIBE HOW IT WAS SETUP
0
;EXPANSION WORD

CZRJLBO RPO7 FCTNL

PROGRAM HEADER

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

325

002106
002106
002110
002110
002112
002112
002114
002114
002116
002116
002120
002120

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

000000

003
003
000000
000000
000000

003030
000000
000000

L$MREV:
:

LS$EF::

L$SPC::

LS$DEVP:;:
LSREPP:;
:

LSEXP4;
:

L$EXPS::
L$AUT:
:

L$DUT::
L$LUN::

003036

104035

025632
026656
026654
025624

L$DESP:
:
LS$LOAD:
:
LS$ETP::
L$ICP::

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

LS$TEST::

L$DLY::
L$HIME::

7-1

5EGQ 0021

.WORD

.BYTE
.BYTE

CSREVISION
CSEDIT

. WORD
.WORD

.WORD

L$DVTYP
.

.WORD

sPTR.

TO DROP UNIT CODE

;LUN FOR EXERCISERS TO FILL

E$LOAD
&

.WORD

LSINIT

.WORD

LSCLEAN

. WORD

L$AUTO

.WORD

L$PROT

. WORD
.WORD

.WORD

TYPE LIST

TC ADD UNIT CODE

L$DESC

.WORD

TO DEVICE

;PTR.

EMT

POINTER

.WORD

EVENT FLAGS

TO REPORT

.WORD

:DIAG.

;PTR.

.WORD

:SVC REV AND EDIT ¢

;POINTER TO DIAG. DESCRIPTION
;GENERATE SPECIAL AUTOLOAD EMT
;POINTER

TO ERRTBL

:PTR.

TO INIT CODE

+PTR.

TO CLEAN-UP CODE

:PTR.

TO AUTO CODE

:PTR.

TO PROTECT

s TEST NUMBER

;:DELAY COUNT
;PTR.

CODE

TO HIGH MEM

TABLE

TEST MACRO Vv04.00 1-DEC-83 12:59:38 PAGE 8
.SBTTL

Je
SEQ 0022

DISPATCH TABLE

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 TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST,
IT IS USED By THE SUPERVISOR TO DISPATCH TO EACH TEST.

. WORD
LSDISPATCH:;
.WORD
.WORD
.WORD
.WORD
. WORD
. WORD
. WORD
.WORD
. WORD
.WORD

18
T1
T2
T3
74
T5

16
T7
T8
19
T10
T11
T12

T13
T14
T1S5
T16
T17
T18

n
n

i
+
—

TM N

NSB WY

CZRJLBO RPO7 FCTNL
DISPATCH TABLE

ORI
NE NN -

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 9
DEFAULT HARDWARE P-TABLE
.SBTTL

I<2
SEQ 0023

DEFAULT HARDWARE P-TABLE

i
i

THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF
THE TEST-DEVICE PARAMETERS.
THE STRUCTURE OF THIS TABLE

IS IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES.

002170
002172

002172
10 002172
002174
12 002176
13 002200
002202

L$HW:
:

176700
000254

DFPTBL::

000240
000000

L10000:

.WORD

L10000-L $HW/2

.WORD
.WORD
.WORD
.WORD

176700
254
240
O

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

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

- 5EQ 0024

SOFTWARE P-TABLE

THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM

PARAMETERS

THAT CAN BE CHANGED BY

THE OPERATOR.

‘--

L$SM::
SFPTBL::

.WORD

L10001-L $SW/2

.WORD

sFIRST CYLINDER

:TESTS:

2-4,6-8,11,13,14,17,18

.WORD

:FIRST

;s TESTS:

2-7,11,13,16,17

. WORD

:FIRST SECTOR

s TESTS:

2,5-7,13

.WORD

030221

9
10
11
12
13
14
15
16
17

002204
002206
002210

002212
002214
002216
002220
002222
002224

FT:

19
20
21
22

002226
002227
002230
002231

REDHDR:
TIMTYP:
TIMSTL:
STALLF:

.BYTE
.BYTE
.BYTE
.BYTE

OO0OOm

002202
002204
002204

24
25
26
27

002232
002233
002234
002235

STALRD:
STOFLG:

RANPAT:
WRTALL:

.BYTE
.BYTE

0000

NN
D NN

CZRJLBO RPO7 FCTNL
SOF TWARE P-TABLE

29 002236

CHANGE:

.BYTE

39 002249

L10001:

LC:
IC:

.WORD
.WORD

LT:
IT:

.WORD
.WORD

LS:

.WORD

FS:

PAT:

629.
1
3.
1

49,

©O

FC:

sLAST
CYLINDER
: INCREMENT CYLINDER

s TESTS: 2-4,6,8-10,14,17,18
s TESTS: 2

TRACK

;:LAST TRACK
s INCREMENT TRACK

: TESTS:
s TESTS:

:LAST SECTOR
:WRITE DATA PATTERN

3-6,11,14,16-18
11,16,17

+TESTS: 5,6,14,18
sTESTS: 16-18 (WORST CASE)

;READ HEADER AND DATA CMD FLAG - DEFAULT:

sTYPE

TIME

DEFAULT:

YES - SEEK TESTS 2-6

TIMING TESTS 7-10,14,18

; TIMING TESTS,STALL BETWEEN SEEKS: RANDOM INSTEAD OF 2 MSEC
sSTALL FLAG: AFTER EVERY DRIVE FUNCTION - DEFAULT: NO
sNON-TIMING TESTS 1-6,11,14-18
:RANDOM STALL FLAG - DEFAULT: NO - PREREQUISITE: STALLF=1
s SOFTWARE TIMEOUT INHIBIT FLAG - DEFAULT: NO - ALL TESTS

sRANDOM WRITE PATTERN - DEFAULT: NO
;WRITE DATA ALL OVER THE MEDIA FLAG
s TESTS: 17,18

:CHANGE DRIVE PARAMETER FLAG

- TEST: 18
- DEFAULT: NO

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 11
GLOBAL. EQUATES SECTION
12

.SBTTL

50
52
53
54
55

Me
SEQ 0025

GLOBAL EQUATES SECTION

HE
4

THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT

ARE USED IN MORE

THAN ONE

TEST.

guo

56
57

: BIT DEFINITIONS
100000
020000
010000
002000
001000

000200
000100
000020
000010

000002
000001
001000
000200
000100

000020
000010
000002
000001

BIT15==
BIT14==
BIT13==
BIT12==
B8IT1l==
BIT10==
BITO9==
BITO8==
BITO7==
BITO6==
BITOS==
BITO4==
BITO3==
BITO02==
BITO1==
BITOO==
3

BIT9==
BIT8==
BIT7==
BIT6==
BITS==
BIT4==
BIT3==
BIT2==
B8ITi==
BITO==

100000
40000
20000
10000
4000
2000
1000
400
200
100
40
20
10
4
2
1
BITO9
BITO8
BITO7
BITO06
BITO5
BITO4
BITO3
BITO2
BITO1
BITOO

;

s+ EVENT FLAG DEFINITIONS
s+
EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION
000040
000037
000035
000034

EF .START==
EF .RESTART ==
EF.CONTINVE==
EF .NEW==
EF .PUR==

32.
31.
30.
29.
28.

000340
000240
000200
000140
000100

PRIORITY LEVEL DEFINITIONS

PRIO7==
PRIO6==
PRIOS==
PRIO4==
PRIO3==

PRIO2==

340
300
240
200
140
100

i
:
+
i+
i

START COMMAND WAS ISSUED
RESTART COMMAND WAS ISSUED
CONTINUE COMMAND WAS ISSUED
A NEW PASS HAS BEEN STARTED
A POWER-FAIL/POWER-UP OCCURRED

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE
GLOBAL EQUATES SECTION
000040

PRIO1==

PRIOO==

;:OPERATOR FLAG BITS

EVL==
LOT==

ADR==

IDU==

ISR==
UAM==

BOE ==

PNT ==
PRI==
IXE==

IBE==
IER==
LOE==
HOE ==

11-1

Ne
SEQ 0026

CZRJLBO RPO7 FCTNL

RHXX REGISTERS

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

LSBTTL

;CONTROL

S
o

10
i1
lg
1

000100
000200

{3
RODY

001000

Al7

000400

020000
040000
100000

Al16

“EG 0627

RHXX REGISTERS

AND STATUS REGISTER

*= 100
== 200

(RPCS1)

s INTERRUPT ENABLE
sREADY (BIT @7)

(BIT

0¢)

== 400

+HIGH ORDER BUS ADDRESS BIT (BIT 08)

;s PSEL

MCPE
TRE
MSSC

==« 20000
== 40000
== 100000

;PORT

1000

2000

;+HIGH ORDER BUS ADDRESS BIT
SELECT

(BIT

#10)

(BIT 09)

3sMASSBUS CONTROL BUS PARITY ERROR (BIT
;s TRANSFER ERROR (BIT 014)
;SPECIAL CONDITION (BIT 215)

15
lg

;WORD COUNT REGISTER (RPWC)
;(EACH BIT IS CALLED BY BIT NUMBER)

18
19
go
1
22
23
24
25
26
27
28
29
30
31
32
33

35
36
37
38

39
:g

:BUS ADDRESS REGISTER (RPBA)

;(EACH BIT

;CONTROL

IS CALLED BY BIT NUMBER)

AND STATUS REGISTER 2 (RPCS2)

ss |
s 2
== 4
== 10
== 20
== 40
== 100

000400

;US1
;US2
;US4
;BAI
iMSPAT
CLR
IR
;OR
MDPE

002000
004000
010000
020000

MSPGE
NEM
NED
UPE

== 2000
== 4000
== 10000
== 20000

000040

001000

040000
100000

MXF

WCE
OLT

== 200
== 400

== 1000

== 40000
== 100000

sUNIT SELECT (BIT #0)
sUNIT SELECT (BIT o1)
sUNIT SELECT (BIT @2)
1BUS ADDRESS INCREMENT INHIBIT (BIT 03)
sMASSBUS PARITY TEST (BIT #4)
sCLEAR (BIT o5)
: INPUT READY (BIT 06)
;OUTPUT READY (BIT @7)
;MASSBUS DATA BUS PARITY ERROR (BIT 28)

sMISSED TRANSFER ERROR (BIT ¢9)
;PROGRAM ERROR (BIT €10)
sNON EXISTENT MEMORY (BIT @11)

sNON EXISTENT DRIVE (BIT @12)
sUNIBUS PARITY ERROR (BIT 213)

tWRITE CHECK ERROR (BIT 214)
1DATA LATE (BIT @15)

;:DATA BUFFER REGISTER (RPDB)

;(EACH BIT IS CALLED BY BIT NUMBER)

.SBTTL

;CONTROL AND STATUS 1 REGISTER. (€00)

S1
S2

;GO
iF1

53
54
55

S6
57

iFe
iF3
;F4

004090

iFS
DVA

RPO7 REGISTERS

ss ]
s 2

:1GO BIT (BIT #0)
1tFUNCTION CODE BIT o1

== 40
== 4000

stFUNCTION CODE BIT oS
tDEVICE AVAILABLE (BIT o11)

== 4
== 10
== 20

1tFUNCTION CODE BIT @2
1tFUNCTION CODE BIT o3
1tFUNCTION CODE BIT 04

013)

g
CZRJILBO RPO7 FCTNL

RPO” REGISTERS

\es

TEST MACRO v04.00 1-DEC-83

12:59:3%8 PAGE

12 1

EG 0628

58
59
«0
61
62
63
64
o5
66
67

68
69
70

:DRIVE

000001
000002
000004

002000

s WRL

s MOL

040000

100000

76
;Z
79

80
81
82
83
84
85
86
87
88
89
90
91
92
93

oM
EWN
ILV
iV
;DRY
:DPR
:PGM
LST

iPIP

ERR

ATA

STATUS REGISTER

o
==
==
=+
==
==
==

3
2
4
100
200
400
1000
2000

4000

10000

000002
000004

000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
040000

100000

ILF

ILR
RMR
; PAR
FER
WCF
ECH
HCE
HCRC
AOE
IAE
WLE
DTE
oPI1
UNS

DCK

tWRITE

s
==
==
==
==
==
==
==
==
==
==
==
==
==

LOCK

(BIT

¢MEDIUM ON-LINE

001

2
4
10
20
40
100
200
400
1000
2000
4000
10000
20000
40000

== 100000

133

s ILLEGAL FUNCTION (BIT

101
%gg
104
105
106
107
108
109
110

%ié

113
114

DMD

100000

:DATA CHECK ERROR (BIT 15)

:DIAGNOSTIC MODE

sATTENTION SUMMARY PSEUDO-REGISTER (RPAS) (004)
;ATO
1AT1
sAT2
;ATS
1AT4
sATS
1AT6
sAT7

s
s
==
*=
==
==
==

1
2
4
10
20
40
100

== 200

00)

s ILLEGAL REGISTER (BIT #1)
;REGISTER MODIFICATION REFUSED (BIT #2)
:PARITY ERROR (BIT #3)
:FORMAT ERROR (BIT 04)
sWRITE CLOCK FAIL (BIT #5)
:ECC HARD ERROR (BIT @6)
sHEADER COMPARE ERROR (BIT #7)
tHEADER CRC ERROR (BIT #8)
s ADDRESS OVERFLOW ERROR (BIT #9)
s INVALID ADDRESS ERROR (BIT 10)
iWRITE LOCK ERROR (BIT 011)
sORIVE TIMING ERROR (BIT #12)
sOPERATION INCOMPLETE (BIT 213)
;DRIVE UNSAFE (BIT #14)

sMAINTAINABILITY REGISTER 001 (RPMR1)(003)
100000

(BIT

(002)

IN PROGRESS

014)

sATTENTION ACTIVE (BIT #15)
(RPER1)

+DEVICE
sDEVICE
1DEVICE
1DEVICE
tDEVICE
sDEVICE
tDEVICE
tDEVICE

;

O (BIT 00)
1 (BIT @1)
2 (BIT 02)

3
4
S
6
7

H.W

@12)

:COMPOSITE ERROR (BIT

100000

TH,

011)

(BIT

sPOSITIONING OPERATION

== 40000

(#01)

+OFFSET MODE
:ERROR WARNING
1SECTOR INTERLEAVE MODE IS ENABLED
s VOLUME VALID (BIT #6)
:ORIVE READY (BIT @7)
tDRIVE PRESENT (BIT ¢8)
1PROGRAMABLE (BIT 09)
sLAST SECTOR TRANSFERRED (BIT @10)

20000

:ERROR REGISTER
000001

(RPDS)

(BIT @3)
(BIT #4)
(BIT

#5)

(BIT

@7)

(BIT #6)

sDESIRED SECTOR/TRACK ADDRESS REGISTER (RPDA) (005)

013)

CZRJULBO RPO7 FCTNL

RPO” REGISTERS

TEST MACRO vO4.00 1-DEC-83

115

;(EACH BIT

1le

117

118
119
120
121
122
123
124
125
126
127

iDRIVE

;0700

129
130
131
132
133
134
135
136
137
138
139

150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171

tDRIVE TYPE NUMBER BIT 1

== 20

;DRIVE TYPE NUMBER BIT S

;D705

== 40

:DRQ
s MOH

== 4000
== 20000

: TAP

iNBA

5EQ 0029

TYPE REGISTER (RPDT) (#06)

s 2
== 4
== 10

;:0T06
;:DT07
;:0T08

12-2

IS CALLED By BIT NUMBER)

;0701
iDT02
;:0T03

;0704

128

140
141
142
143
144
145
146
147
148
149

12:59:38 PAGE

== 100
== 200
== 400

== 40000

== 100000

;+ORIVE TYPE NUMBER BIT 2
:ORIVE TYPE NUMBER BIT 3
;DRIVE TYPE NUMBER BIT 4
;ORIVE

TYPE NUMBER BIT 6

;ORIVE TYPE NUMBER BIT 7
:DRIVE TYPE NUMBER BIT 8
;ORIVE TYPE NUMBER BIT 9

:DRIVE REQUEST REQUIRED (BIT #11)
+MOVING HEAD (BIT 013)

: TAPE DRIVE (BIT #14)

iNOT BLOCK ADDRESSED (BIT #15)

:LOOK -AHEAD REGISTER (RPLA) (007)
:SCO
:SC1
1SC2
:SC3
:SCa

== 100
== 200
== 400

== 1000
== 2000

:SECTOR
;SECTOR
:SECTOR
:SECTOR
:SECTOR

COUNT
COUNT
COUNT
COUNT
COUNT

FIELD
FIELD
FIELD
FIELD
FIELD

O
1
2
3
4

(BIT
(BIT
(BIT
(BIT
(BIT

#6)
@#7)
08)

49)
#10)

:RPO7 ERROR REGISTER 002 (RPER2) (010)

000400
001000
002000
010000

100000

WRYUNS

== 400

iWRITE OFF

RWU2
RWU3

== 4000
== 10000

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

WOR
RWU1
PGE

== 1000
== 2000

== 100000

TRACK CENTER (WRITE UNSAFE)

iWRITE OVERRUN ERROR
1W/R UNSAFE ERROR 1 (WRITE ERROR)
: PROGRAM ERROR

sRPO7 ERROR REGISTER 003 (RPER3)

s DGE

DPE
SDF
oCv

IXV

ovC
PHF
LCE
LBC
SKI
BSE

e |

+DIAGNOSTIC COMMAND

== 40

1DC LOW UNSAFE

== 10
== 20
==

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

100

200
400
1000
2000
40000
100000

1DATA PARITY DURING WRITE
s+SERDES DATA FAILURE
1 INDEX PULSE UNSAFE

1DRIVE CHECK
1 TACH CALIBRATE FAILURE
sLOST CYLINDER (POSITIONER IN GUARD BAND)
1LOST BIT CLOCK
1 SEEK INCOMPLETE
1BAD SECTOR

sOFFSET REGISTER (RPOF) (o11)
002020

HCI

== 2000

tHEADER COMPARE

INHIBIT

(BIT €10)

CZRJLBO RPO7 FCTNL

RPO7 REGISTERS

172

173

174

175

TEST MACRO v04.00

004000
C10000
100000

1-DEC-83
ECI

FMT16

cMoD

12:59:38 PAGE

==
==

12-3

4000
10000

S5EQ 0030
;ERROR CORRECTION CODE
;FORMAT BIT (BIT #12

100000

:COMMAND MODIFIER BIT

INHIBIT

(BIT

#11)

#13)

176

177
178

;:DESIRED CYLINDER ADDRESS (RPDC) (#12)
; (EACH BIT IS CALLED BY BIT NUMBER)

179

180
181
182
183
184
185
186
187
188
189
190
191
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
227
228

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

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

:ECC POSITION REGISTER (RPEC1) (@16)
;(EACH BIT IS CALLED BY BIT NUMBER)
;ECC PATTERN REGISTER (RPEC2) (017)

s (EACH BIT IS CALLED BY BIT NUMBER)
.SBTTL
000101
000105
000107
000111
000113
000115
000117
000121
000131
000135
000143
000151
000153
000161
000163
000165
000171
000173
000175

RDDAT
RDHOD
RDTD

177400

SCTRWC

RPO7 DRIVER COMMANDS

NOOP
SEEK

RECAL

DRVCLR

RELSE

OFFSET

RTC
READIN

SEARCH
DIAG
ILLCMD
WCKD
WCKHD

WRTDAT
FMTRK
WRTTD

101
105
107
111
113
115

:NO OPERATION
1 SEEK
;RECALIBRATE
;DRIVE CLEAR
sRELEASE
;OFFSET

117
121
131
135
143
151
153
161
163
165
171
173
175

tRETURN TO CENTER LINE

;READ IN PRESET

: SEARCH

;DIAGNOSTIC MODE
s ILLEGAL COMMAND
tWRITE CHECK DATA
sWRITE CHECK HEADER AND DATA
sWRITE DATA

1FORMAT

TRACK

tWRITE TRACK DSECRIPTOR
sREAD DATA

sREAD HEADER AND DATA

tREAD TRACK DSECRIPTOR

-256.

tDEFAULT WORD COUNT

s THE FOLLOWING ARE SPECIAL DRIVER COMMANDS (NOT CONTROLLER COMMANDS)
000141

GETREG

141

000145
000147

MAINT

145
147

SETFORM ==

tREAD RPCS1, RPWC, RPBA,
+POINTED TO BY 'DPB’ +6.

RPDA AND STORE THEM AT ADDRESS

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

1FIRST READS RPOF,

tPER

'DPB’',

EXTRACT

ITS LO BYTE,

MERGES BOTH BYTES

CHANGES

10 WRITE RPOF.

SETFORM

ITS HI BYTE

HENCE

SETFORM

CZRJLBO RPO7 FCTNL
RPO7 DRIVER

TEST MACRO v04.00 1-DEC-83

COMMANDS

12:59:38 PAGE

12-4

F 4
:

229

sWRITES

230
2%

:COMMAND OFFSET DOES

RPOF

WITH HI

BYTE

PER

'OPB',

BYTE

UNCHANGED.

SEG G631

THE

THE OPPOSITE.

———
e
— —————

——————————————" ———
.

——

S————
..

———

.+t

CZRJLBO RPO7 FCTNL

GLOBAL.

DATA SECTION

TEST MACRO v04.00 1-DEC-83

i
2
2

6
7

8
9
10
11
12

THE

GLOBAL

IN MORE

‘—-

002240
002242
002244
002246
002250

13 002252
14 002254
15 002256

16 002260

17 002262
18
19 002264

12:59:38 PAGE

.SBTTL

000000
000001
000001
000000
002000

O
O
O
O
O

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

O
O
O
O
0,0
O

sMINIMUM TIME
iNUMBER OF COUNTS BELOW MIN.
sMAXIMUM TIME
iNUMBER OF COUNTS ABOVE MAX.
s TOTAL TIME OF ALL SEEKS
iNUMBER OF SEEKS PERFORMED

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

O
O
O
O
0,0
O
O
O
O
-<256.425.>

sMINIMUM TIME
iNUMBER OF COUNTS BELOW MIN.
sMAXIMUM TIME
tNUMBER OF COUNTS ABOVE MAX.
s TOTAL TIME OF ALL SEEKS

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

BITOO
BITO1
BITO2
BITO3

000000
000000
000000
000000
000000

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

002330
002332
002334
002336
002340
002344
002346
002350
002352
002354

46
47
48
49
S50 002356
g;lg 002360

53
54
55
56
57

002362
002364
002366
002370

000000
000000
000000
000000
000000
000000
000000
000000
000000
163400

000012
000012

000001
000002
000004
000010

TRK.DS::

TIM.UP::

000000

.WORD

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.KORD
.WORD
.WORD

.WORD

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

TIM.DN::

000000

USED

sLAST PHYSICAL CYL
+FIRST FE CyL
sLAST PHYSICAL TRK
:LAST PHYSICAL SEC

002276
002300
002302
002304
002306

40
41
42
43
44

ARE

629.
630.
31,
49,

SVSTAT::

26
27
28
29
30

gg 002326

THAT

000000

CLKSTA::

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

37 002322

DATA

.WORD

BYPASS::

001165
001166
000037
000061

35 002316
36 002320

TEST.

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

000000

000000
000000
000000
000000
000000
000000

SECTION CONTAINS

.WORD

SRHSEC:: .WORD
TRGSEC:: .WORD
DOTWO:: .WORD

002266
002270
002272
002274

33 002312
34 002314

DATA

000000
000000
000000

000000

SEQ 0032

O
1
1
O
1024,
O
O
O
O
O

21
22
23
g;

g% 002310

DATA SECTION

THAN ONE

TEMPO:: .WORD
TYTIME:: .WORD
ITCNT:: .WORD
ISRCNT:: .WORD
XTIMES:: .WORD

000000

(A9

STALL1::
STALL2::

.WORD
.WORD

10.
10.

: TEMPORARY LOST REVOLUTION COUNT
s TYPE SEEK TIMES IF =1
s TEST ITERATION COUNTER
s INTERRUPT SERVICE COUNTER
s TEST ITERATION COUNT;
TESTS 14.

€ 18.
s SEARCH SECTOR;
TESTS 14, € 18.
s TARGET SECTOR;
TESTS 14, € 18.
;USED TO FORCE TWO ITERATIONS OF AN OPERATION

+CLOCK STATUS (NO CLOCK= O,KW11-P=

1 OR KWil-L=

i TRACK DESIRED

tNUMBER OF

SEEKS PERFORMED

LIMIT
LIMIT

LIMIT

tPOINTS TO TABLE OF TIMES
tFATAL WRITE CHECK ERROR FLAG
tMEMORY SIZING SCRATCH LOCATION
tWORD COUNT FOR HALF A TRACK IN 16 BIT MODE
$10 MILLISECONDS STALL
+10 MILLISECONDS STALL

-1

CZRJLBO RPO7 FCTNL

GLOBAL. DATA SECTION

002372
002374
002376
002400
002402
002404
002406
002410
002412
002414
002416
002420
002422
002424
002426
002430
002432
002434
002436
002440

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

000020
000040
000100

. WORD

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

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

H5
13-1

BITO4
BITO5
BIT06
BITO7
BITO8
BITO9
BIT10
BIT11
BIT12
BIT13
BIT14
BIT1S
BITOO
BITO1
BITO2
BITO3
BITO4
BITOS
BITO6
BITO7

5EQ 0633

CZRJULBO RPO7 FCTNL
TIMING MESSAGE

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

AND LIMITS

.SBTTL

;ROTATIONAL

;

SEQ 0034

TABLES

TIMING MESSAGE AND LIMITS
TEST

TABLES

TABLES FOR RPO7 DRIVE

:S0HZ AND 60HZ TABLE

6 002442

004674

7 002444

000000

8 002446
g 002450

003103
003246

1
13
1
13 002452
14
002454
15 002456
{g 002460

T7A::

.WORD

ROTATE

:1ST MESSAGE

.WORD

12ND MESSAGE

.WORD
.WORD

:SEEK

TEST

004736
005204
000000
000764

TIMT10::

18
19
20
gé

002462
002464
002466
002470

005010
005204
000000
004374

TIMT11::

23
24
25
gg

002472
002474
002476
002500

005055
005204
000000
010770

TIMT12::

28
29
30
31

002502
002504
002506
002510

005122
000000
000000
003246

T1418::

1603,
1702.

:LO LIMIT
sHI LIMIT

(NONE
?

(16.515MS
(16.515MS

+
-

3#)
3#)

3%)

TABLES

.WORD
.WORD
.WORD
.WORD

ONECYL
REV
O
500.

:1ST MESSAGE
:2ND MESSAGE
;LO LIMIT
sHI LIMIT

.WORD
.WORD
.WORD
.WORD

AVERGE
REV
O
2300.

+1ST MESSAGE
:2ND MESSAGE
;LO LIMIT
sHI LIMIT

(NONE
)
(23.0MS)

.WORD
.WORD
.WORD
.WORD

MXSEEK
REV
O
4600.

:1ST MESSAGE
:2ND MESSAGE
;LO LIMIT
sHI LIMIT

(NONE
)
(46.0MS)

.WORD
.WORD
.WORD
.WORD

MARK
O
O
1702.

+1ST MESSAGE
12ND MESSAGE
;LO LIMIT
sHI LIMIT

(NONE
)

(5.0MS)

(NONE
)
(NONE)

(16.515MS

CZRJLBO RPO7 FCTNL

(RS -

B WM
- CO®~NT
N WM -

TIMING LIMIT(S)

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

TABLES

.SBTTL

J5
15

TIMING LIMIT(S)

SEQ 0035

TABLES

:SPECS. MESSAGE TABLES FOR ROTATIONAL AND TIMING TESTS
;ROTATIONAL MESSAGE AND LO/HI LIMITS

i50HZ AND 60HZ TABLE
002512
002514

002516

005221
003103
003246

SP7::

.WORD
.WORD
.WORD

MSGLMT
1603.
1702.

:LIMIT(S) MESSAGE
;LO LIMIT (16.515MS
sHI LIMIT (16.515MS

+
-

3#)
3%)

3#)

: TIMING TEST MESSAGES AND LO/HI LIMITS

002520
15 002522

005221
000000
000764

SP10::

.WORD
.WORD
.WORD

MSGLMT
O
500.

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

002526
002530
002532

005221

SP11::

.WORD
.WORD
.WORD

MSGLMT
O
2300.

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

002534
002536
002540

005221
000000
010770

SP12::

.WORD
.WORD
.WORD

MSGLMT
O
4600.

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

002542
002544
002546

005221
000000
003246

SP1418::.WORD
.WORD
.WORD

MSGLMT
O
1702.

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

002524

000000

004374

.BYTE
.BYTE

002562
002564

000000
002754

. WORD
.WORD

002566

.WORD

042762

-n

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

DO O © 800000

DPB.A::

002561

DRIVE PARAMETER BLOCKS

002560

.SBTTL

g &

002550
002551
002552
002553
002554
002556

§§§§§

CZRJLBO RPO7 FCTNL TEST MACRO v0O4.00 1-DEC-83 12:59:38 PAGE
DRIVE PARAMETER BLOCKS

SEQ 0036

0)
1)
2)
3)
4)
6)

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

AND HCI

tREGISTER TABLE POINTER
:(10) SECTOR ADDRESS OR
;FIRST REG. INDEX
:+(11) TRACK ADDRESS OR
;LAST REG. INDEX
:(12) CYLINDER ADDRESS
:(14) ERROR TABLE POINTER
;POINTS TO THE FIRST OF TWENTY
:LOCATIONS OF WHERE THE DRIVER
+IS TO STORE THE RHXX/RPO7
sREGISTERS ON AN ERROR. IF LEFT
:ZERO REGISTERS ARE NOT SAVED.
1(16) STATUS/ERROR INDICATOR
;BIT15=1=>ERROR OCCURRED
1BITO7=1=>DONE

;BIT14-BITO9 AND BITO06-BITO3
: INDICATE TYPE OF ERROR
002570
002571
002572
002573
002574
002576

DPB.B::

002601

.BYTE

002602
002604

. WORD
. WORD

;LAST REG.

AND HCI

INDEX

:(12) CYLINDER ADDRESS
:(14) ERROR TABLE POINTER
sPOINTS TO THE FIRST OF TWENTY
;LOCATIONS OF WHERE THE DRIVER
31IS TO STORE THE RHXX/RPO7
iREGISTERS ON AN ERROR. IF LEFT
:+ZERO REGISTERS ARE NOT SAVED.
1(16) STATUS/ERROR INDICATOR
;1BIT15=1=>ERROR OCCURRED
;1BITO7=1=>DONE
;BIT14-BITO9 AND BITO6-BITO3
s INDICATE TYPE OF ERROR

.BYTE
.BYTE
.BYTE

. 0000

8888
177776
042762

COMMAND
PSEL AND A17 AND Al6
WORD COUNT (MUST BE NEG.)
BUFFER ADDRESS OR

;REGISTER TABLE POINTER
:(10) SECTOR ADDRESS OR
sFIRST REG. INDEX
;(11) TRACK ADDRESS OR

.BYTE

002610
002611
002612
002613
002614
002616

:(2)
;(3)
;(4)
;:(6)

.WORD

002600

002606

:(0) DRIVE NUMBER
(1) OFFSET VALUE OR FMT16, ECI,

.BYTE
.BYTE
.BYTE
.BYTE

. WORD

DBUFF

:(0)
$1(1)
;1(2)
;(3)

DRIVE NUMBER
OFFSET VALUE OR FMT16, ECI, AND HCI
COMMAND
PSEL AND Al17 AND A16

:1(4) WORD COUNT (MUST BE NEG.)
1(6) BUFFER ADDRESS OR
tREGISTER TABLE POINTER

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE
DRIVE PARAMETER BLOCKS
000

.BYTE

:(10) SECTOR ADDRESS OR

002621

000

.BYTE

002622
002624

000000
002754

.WORD
.WORD

0
REG

+(11) TRACK ADDRESS OR
sLAST REG. INDEX

002626

002640

.BYTE

002641

.BYTE

002642
002644

. WORD
. WORD

002646

. WORD

INDEX

1(12) CYLINDER ADDRESS
:1(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
+ZERQO REGISTERS ARE NOT SAVED.
:(16) STATUS/ERROR INDICATOR
:8IT15=1=>ERROR OCCURRED
;BITO7=1=>DONE
:8IT14-BITO9 AND BITO6-BITO3
: INDICATE TYPE OF ERROR

.BYTE
.BYTE
.WORD
.WORD

DO © O 800000

.BYTE
.BYTE

()

042762

DTADPB: :

002630
002631
002632
002633
002634
002636

sFIRST REG.

.WORD

§§§§§

70
71
72
73
74

S5EQ 0037

002620

58
59
60
61
62
63
64
65
66
67
68
69

16-1

:1(0) DRIVE NUMBER
3(1) OFFSET VALUE OR FMT16, ECT, AND HCI
: (2) COMMAND
:(3) PSEL AND Al17 AND A16
:(4) WORD COUNT (MUST BE NEG.)
:(6) BUFFER ADDRESS OR
;REGISTER TABLE POINTER
;(10) SECTOR ADDRESS OR
;FIRST REG. INDEX
:(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
sREGISTERS ON AN ERROR. IF LEFT
;ZERO REGISTERS ARE NOT SAVED.
;(16) STATUS/ERROR INDICATOR
;BIT15=1=>ERROR OCCURRED
;1BITO7=1=>DONE
;BIT14-BITO9 AND BITO6-BITO3
s INDICATE TYPE OF ERROR

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

176700
176702
176704
176706
176710

002740
002742

176750
176752

002736

176712

176714
176716
176720

176722
176724
176726
176730
176732
176734
176736
176740
176742
176744
176746

000240

SEQ 0038

.SBTTL

DRIVE AND REGISTER STORAGE

UNIT::

.WORD

DRVNO::
DRVSN::

.WORD
.WORD

0
0
0

RPCS1::
RPWC::
RPBA::
RPDA::
RPCS2::
RPDS::
RPER1::
RPAS::
RPLA::

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

RPADR:: .WORD
RPVEC:: .WORD
RHEXT:: .WORD
RHTY:PE:
.WORD

RPDB::
RPMR1::
RPDT::
RPSN::
RPOF::

RPDC::

RPCC::
RPER2::
RPER3::
RPEC1::
RPEC2::
RPBAE::
RPCS3::

.WORD
.WORD
.WORD
.WORD
.WORD

.WORD

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

176700
254 ,5+32,
50

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

sUSED TO SELECT A UNIT FOR TEST
:CONTAINS RPCS1 BASE ADDRESS
sCONTAINS VECTOR ADDRESS & BR LEVEL
:CONTAINS RH70 OFFSET TO RPBAE
sCONTAINS RHXX TYPE; RH11= O, RH70= 1
;DRIVE NUMBER
:STORAGE FOR EACH S/N DIGIT
:BASE ADDRESS USED FOR THE DRIVE
:+WORD COUNT REGISTER
;:BYTE ADDRESS REGISTER
;DESIRED SECTOR/TRACK ADDRESS
tRPO7 STATUS REGISTER
+RPO7 DRIVE STATUS

;RPO7 ERROR REGISTER @1

sRPO7 ATTENTION SUMMARY PSEUDO REGISTER
sRPO7 LOOK AHEAD REGISTER
:RPO7 DATA BUFFER

sRPO7 MAINTENANCE REGISTER &1
;:DRIVE TYPE REGISTER
tRPO7 SERIAL NUMBER
;RPO7 OFFSET REGISTER
:RPO7 DESIRED CYLINDER
:RPO7 CURRENT CYLINDER
tRPO7 ERROR REGISTER #2

:RPO7 ERROR REGISTER 03
:RPO7 ERROR POSITION
:RPO7 ERROR PATTERN
+RH70 REGISTER
+RH70 REGISTER

sATTENTION BITS TABLE (ATABIT=8 BYTES)
s THIS TABLE CONTAINS THE CORRESPONDING BIT TO EACH DRIVES
sATTENTION BIT

002744
002745
002746
002747
002750
002751
002752
002753

ATABIT::. BYTE

1
2

.BYTE
.BYTE

10
20

100
200

;DRIVE
;DRIVE
sDRIVE
;:DRIVE
;DRIVE
;ORIVE

;:ORIVE
sDRIVE

NONL WO

VRNV

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE
DRIVE AND REGISTER STORAGE

; STORAGE FOR DEVICE REGISTERS
002754

REG: :

.BLKW 22.

1 SAVE REGISTERS HERE

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

.SBTTL

N3
SEQ 0039

GLOBAL TEXT SECTION

i THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS,
i MESSAGES, AND ASCII INFORMATION THAT ARE USED IN
s+ MORE THAN ONE TEST.
'--

:NAMES OF DEVICES SUPPORTED BY PROGRAM
17 003030

003030

122

120

060

LSDVTYP::
.ASCIZ
.EVEN
:

27 003036
003036

/RPO7/

TEST DESCRIPTION

122

120

L$DESC:
:

.ASCIZ
.EVEN

/RPO7 FUNCTIONAL

TEST/

FORMAT STATEMENTS USED IN PRINT CALLS

39 003064
40 003067

116
101

CRLF::
DH25A::

.ASCIZ
.ASCIZ

/#N/
/#ADRIVE s01%N/

42
43
44
45
46

101
101
116
116
116
116
116
116
101
116

DHA4A::
DH44D::
DH44E::
DHA4F::
DH44G::
DH44H::
DHA4I::
DH44J::
DH44K::
DH44L::

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/#ACYL #D3%A.
TRK ®D2sA.
SEC #D2sA.
7/
/#ARPER2 (HEX) #TeTHTST/
/#NwADRIVE
RPCS1
RPWC
RPBA
RPDA
/#N#O6%A
®06%A
#06%A
w06%A
%06%A
%06%A
/#NeARPER1
RPAS
RPLA
RPDB
RPMR1
/#Ns06¥A #06%A
#06%A ®06%A
%06%A %06%A
/#N#SARPOF
RPDC
RPCC
/#N#0O6%A
#06%A
%06%A
%06%A
%06%A
%06%A
/#ARPBAE

101

DHASA::
DHA5B::

.ASCIZ
.ASCIZ

/#ADRIVE
CYL
/#0S#A
«D3#A.

003105
003154
003203
003274
003354

48 003525
49 003617

S50 003701
51 003721

53 003740
54 003771
55 004027

56 004104

117
101
104

gz:gg::

':§E§§

58 004172
59 004246

101

117

DHS2A::
DHS2B::

61 004317
62 004403

004432
004511
004550
004614
004633

116
116
124
116
101
101
101
101

NOCLK:: ,ASCIZ
DSNMSG:
: .ASCIZ
SNDIGT:
: .ASCIZ
WRTENM:
: .ASCIZ
SEAERR:
: .ASCIZ
SEABAD:
: .ASCIZ
ABOTST:: .ASCIZ
POSERR:
: .ASCIZ

70 004674

116

ROTATE::

63 004427

64
65
66
67
68

.ASCIZ
.ASCIZ

/#AGDCYL

TRK
SECSN/
#D3sA. wD3sA. %N/
GDTRK
GDSEC
BDCYL
BDTRK

RPCS2
%06/
RPDT
%06/
RPEC1
068N/

BDSECSN/

RPDS/

RPSN/
RPEC2/

/%D3%A . #S38D3%A . #S38D3INA . $S3D3NA ¥S3IND3INA . $SIND3INA . SN/

/#ADRIVE
CYL
TRK
SEARCH-SEC
TARGET-SEC®N/
/#0S#A
#D3%A. ®D3¥A.%S8%D3A
. %S8%D3sA . SN/
/#NsANO P-CLOCK, TIMING TESTS WILL NOT BE EXECUTEDSN/
/#N#ADRIVE #01%A, PG/
/%T/
/#NeATEST #D2#A. SKIPPED, NOT ENABLED BY USER®N/
/#AUNRECOVERABLE SEARCH ERROR®N/
/#ASEARCH FAILED AFTER 16. RETRIES®N/
/%AABORT TEST#N/
/#APOSITION ERROR, TEST ABORTED®N/

.ASCIZ /#N®AROTATIONAL SPEED TIMESSNSA & /

CZRILBO RPO7 FCTNL
GLOBAL.

TEXT

SECTION

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

71 004736
7e 005010
78 005055

T4 005122
75 005167
76 005204
77 005221

79 005237

80
81
82
83
84
85
86
87
88
89
90
91
92
93

005270
005327
005362

005420
005465
005527

122

ONECYL::

B
18-1

SEG G046

116
116
116
116
101
101
101

AVERGE:: ,ASCIZ
MXSEEK:: ,ASCIZ
MARK::
.ASCIZ

/SNSAAVERAGE

REV::
MSGLMT::

LASCIZ
.ASCIZ

/%A s REVERSE/
/8A & LIMIT(S)/

116
116
116
116

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

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

/8NSADRIVE #w018A UNSAFESN/
/8NsSADRIVE #01%A NON-EXISTENYEN/
/8NSADRIVE #01%A OFF -LINESN/
/8NSADRIVE #01%A NOT AN RPO7#N/

FWD::

.ASCIZ /SNSAONE CYLINDER SEEK

.ASCIZ

SEEN
/SNSAMAXIMUM SEEK
/#NSAADDRESS MARK
/8A & FORWARD/

TIMESSNSA ¢ FORWARD/
TIMESWNSA « FORWARD/
TIMESwNSA ¢ FORWARD/
DETECT TIMESSNSA « /

.SBTTL

GLOBAL ASCII MESSAGE SECTION

EML::

.ASCIZ

EM2::

.ASCIZ

/RHXX

CONTROL

BUS PARITY

ERROR MCPI =1/

/RHXX DATA BUS PARITY ERROR MOPE~-1~/
/RHXX ILLEGAL CONDITIONS SET (NED,NEM,PGE
,MxF )/
/WRITE CHECK ERROR/
/DATA LATE ERROR/
/DRIVE PROGRAMMING ERROR (PGE )/

005605
005627
005647
005705

EM3::
EMA:;
EMS::

.ASCIZ
.ASCIZ
.ASCIZ

EM7::

.ASCIZ

005733
005755
005776
006017
006054
006121
006154

EM11::
EM12::
EM13::
EM14::
EM1S::
EM16::
EM17::

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

/MRITE CLOCK FAILS/
/WRITE LOCK ERROR/

006201
006250
006274
006324
006360
006417
006455
006525

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

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

SCLOCK (KW11-P) OVERFLOW IN TIMING TESTa

006564

EM30::
EM31::
EM32::

.ASCIZ
.ASCIZ
.ASCIZ2

SFATAL MASSBUS PARITY ERROR (MCPE=1 OR PAR=1)a
SOFFLINE OR UNSAFE DRIVE REQUESTEDa

006641

EM6: :

.ASCIZ

/LOSTS BIT CLOCK (LBC)/

/DATA ERROR (DCK)/

/DRIVE BUS PARITY ERROR (DPE)/
/ILLEGAL CONDITIONS SET (ILF,ILR,RMR)/

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

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

SDRIVE HAS BECOME NON-EXISTENTS®
SORIVE HAS NOT RESPONDED TO PORT REQUEST®
8SOF TWARE TIMEOUT ON THIS DRIVES

006703
006726
006746
006763
007017

EM33::
EM34::
EM3S5::
EM36::

.ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ

/WRITE -READY UNSAFE/
/DC _POWER UNSAFE/
/INDEX UNSAFE/
/PROCESSOR HANDSHAKE FAILURE/
/DRIVE OFFLINE OR NOT AN RPO7/

007054
007107
007134
007156
007224
007255
007305

EM41::
EM42::
EMA3::
EMa4::
EMAS::
EMA6::
EMA7::

.ASCIZ2
.ASCIZ
_.ASCIZ
_ASCIZ
_ASCIZ
.ASCIZ
.ASCIZ

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

RPER3/

007335

EM50::

,ASCIZ

/LAST BLOCK

AFTER READING LAST

TRANSF

'LBT'

NOT

SET

SECTOR/

CZRJLBO RPO7 FCTNL

GLOBAL.

ASCII MESSAGE

128 007427
129 007521
120 007547

131 007610
132

133
147
148

TEST MACRO vO4.00 1-DEC-83 12:59:3%8 PAGF
SECTION

101
114
122
122

104
117
126
120

122
123
104
104

EMS51::
EMS2::
EMS54::
EM5S5::

LASCIZ
.ASCIZ
_ASCIZ
.ASCIZ
.EVEN

18 2

C4
“EG 0041

/ADRS OVERFLOW BIT 'AQE’' NOT SET AF TER READING LAST
/LOST REVOLUTION ERROR/
/RPDS, ‘OM° NOT SET ON OFFSET CMD/
/RPDS,

"OM’

NOT RESET

ON RETURN-TO-CENTER-LINE

CMD/

SECTOR/

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83
GLOBAL. ERROR REPORT SECTION

®Nowm

1
e
3 007672
4 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 010022
010026
010032
010036
010042
010045
010052
010056

010062
010066

010070
010072

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

.SBTTL
013746
013746
013746
012746
012746
010600
104414
062706
013746
042716
004737
012746
012746
012746
012746
012746
012746
010600
104414
062706

002302
002300
002276
003105
000004

DH44;
;

12:59:38 PAGE
GLOBAL
MOV
MOV
MOV
MOV

ERROR REPORT

04, -(SP)

MOV
TRAP
ADD

SP,RO
CS$PNTB
e12,SP

MOV
MOV

MOV

TRAP
ADD

014,5P

MOV
MOV
MOV

REG+12, -(SP)
REG+10,-(SP)
REG+06, -(SP)

MOV

0DH44G, -(SP)

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

.
SP,RO

012746
012746
010600

104415
062706
013746
013746
013746
013746
013746

013746
013746
012746
012746

010600

IN HEX

05, -(SP)
SP,RO
CSPNTB

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

MOV
MOV
MOV
MOV
MOV
MOV
MOV
TRAP
ADD

;PRINT RPER2 ERROR CODE

OPSTACK+2, -(SP)
OPSTACK, -(SP)
0DH44D, -(SP)

MOV
- MOV

MOV
TRAP
ADD

SECTION

REG+40, -(SP)
9177400,(SP)
PC,OCTHEX
OPSTACK+6, -(SP)
OPSTACK
+4, -(SP)

012746
012746
010600

104415
062706

SEQ 6Gaz

SEC.RD, -(SP)
TRK.RD, -(SP)
CYL.RD, -(SP)
ODH44A, -(SP)

MOV

MOV
BIC
JSR
MOV
MOV

ODHA4E, -(SP)
e1,-(SP)

;PRINT

'DRIVE

RPCS1

RPWC

RPBA

RPDA

RPCS2

RPDS’

sPRINT

'RPER1

RPAS

RPLA

RPDB

RPMR1

RPDT

RPSN'

SP,RO
CSPNTX
04,5P

REG+04, -(SP)
REG+02, -(SP)
REG, -(SP)
DRVNO, -(SP)
oDH44F
, -(SP)
010, -(SP)
SP,.RO
CSPNTX
022,SP

CSPNTX

04,5P
REG+30, -(SP)
REG+26, -(SP)
REG+24,-(SP)
REG+22, -(SP)
REG+20,-(SP)
REG+16,-(SP)
REG+14, -(SP)
ODH44H, -(SP)
010, -(SP)
SP,RO

CZRJILBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE
GLOBAL ERROR REPORT SECTION

010246

010252
010256
010260
010262
18 010266
19 010272
20
21 010274
010300
010304
010306
010310
22 010314
010320
010324
010330

010334
010336
010340
23 010344
24 010344
010350
010354
010356
010360
25 010364
010364

27 010366
28 010366
010372
010376
010400
010402
29 010406
010412
010416
010422
010426
010432

010436

013746
012746
012746
010600

104415
062706
005737
001424

MOV

#DHA41, -(SP)

MOV

REG+36,
-(

REG+32,
-(

N
N

ODODYD

04,5SP
REG+46,
-(
REG+44,
-(
REG+42,
-(

SP,RO
CSPNTX

012746
012746
010600

003701
000001

0DH44K, -(SP)

062706
013746
013746
012746
012746
010600
104415
062706

000004
003026
003024
003721
000003

012746
012746
010600

003064
000001

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

003740
000001

002306
002310
002304
002664
003771

;PRINT

SP,RO

C$PNTX
04,SP

REG+52, -(SP)

REG+50, -(SP)
oDHA4L
, -(SP)
SP,RO
CSPNTX

1%:

010,5P

SP,RO
CS$PNTB
L10002:

104423

:IS IT RH70 CONTROLLER ?
:BR IF NO

e1,-(SP)

104414

062706

RPCC

CS$PNTX

022,5P
RHTYPE
1$

000010

RPDC

SP,RO

000022
002662

104415

'RPOF

000004
003022
003020
003016
003014
003012
003010
003006
003617
000010

;PRINT

MOV
MOV
TRAP
ADD
MOV
MOV
MOV
MOV
MOV

#22,5P

010232
010236
010242

003525
000001

CS$PNTX

012746
012746
010600
104415
062706
013746
013746
013746
013746
013746
013746

TRAP
ADD

VPPV

16 010172
010176
010202
010204
010206
iy 010212
010216
010222
010226

000022

104415
062706

SEQ 0047

010164
010166

19-1

DHAS:;

04 ,5SP

C$MSG
@DHA5A, -(SP)

SP,RO
CSPNTB
04 ,SP

SEC.DS, -(SP)

CyL.DS,-(SP)
0DH458, -(SP)
SP,RO

;CR-LF

'RPBAE

RPCS3’

RPERZ2

RPER3

RPEC1

RPECZ2’

e
010440
010442
20 010446
010452
010456
010460
010462
31 010466
010472
010476
010502
010506
010512
010516
010522
010526
010530
010532
32
33 010536
010542
010546
010550
010552
010556
010556
35
010560
37 010560
010566
39 010574
010600
010604

010606
010610
40 010614
010620
010624
010630
010634
010640
010644
010650
010652
010654

41
42 010660

010664
010670
010672
010674
43 010700
010700
44

45 010702
46 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

1-DEC-83

TRAP
ADD
MOV
MOV
MOV

000014
004027
000001

TRAP
ADD
MOV
MOV
MOV

000004
002302
002300
002276
002306
002310
002304
004104
000007

MOV
MOV
MOV
MOV

000020

TRAP
ADD

MOV

003064
000001

L10003:

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

002642

012746
012746
010600
104414
062706

003064
000001

002304
002310

DMS2:
:

19-2

C$PNTB
#14,SP

#DHASC, -(SP)

#1,-(SP)

SP,RO

CS$PNTX
04 ,5P

SEC.RD, -(S

TRK.RD, -(S

CYL.RD, -(S
SEC.DS, -(S

#DHASD, -(S

07,-(SP)

)
)
)
)
)
)
)

SP,RO
CS$PNTX
#20,SP

OCRLF, -(SP)

MOV
MOV
MOV
TRAP

SP,RO
C$PNTB

TRAP

C$MSG

ADD

SEG Go4as

;:CR-LF

04 ,SP

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

;GET DESIRED CYLINDER
;GET DESIRED TRACK

SP,RO

CS$PNTB
4 ,SP

TRGSEC,
-(

000016
OCRLF, -(SP)

SP,RO
CS$PNTB
04 ,SP

104423
013746
012746

12:59:38 PAGE

VVOVODODUODYD

CZRJLBO RPO7 FCTNL TEST MACRO v04.00
GLOBAL. ERROR REPORT SECTION

C$MSG
002664
0030C7

@DH25A, -(SP)

1CR-LF

CZRJLBO RPO7 FCTNL TEST MACRO V04.00 1-DEC-83
GLOBAL ERROR REPORT SECTION
010712
010716
010720
010722

012746
010600
104414
062706

010726
010732
010736
010740
010742
49 010746
010746
S0

012746
012746
010600
104414
062706

47
48

104423

12:59:38 PAGE

000002

MOV
MOV

TRAP
ADD

000006

003064
000001

19-3

5EQ 0045

02, -(SP)
SP,RO

CSPNTB
6 ,5P

MOV

1.10005:

MOV
MOV
TRAP
ADD

04 ,SP

TRAP

C$MSG

SP,RO

C$PNTB

iCR-LF

CZRJLBO RPO7 FCTNL

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

S5EQ 0046

SUBROUTINES SECTION

OOV
NS NN+

GLOBAL.

.SBTTL

GLOBAL SUBROUTINES SECTION

; *SAVE RO-RS
;s #CALL:
1 *

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)

;*RESTORE

;#CALL:
011002
011002
011006
011012
011016
011020
011022
011024
011026
011030
011032

012666
012666
012666
012605
012604
012603
012602
012601
012600
000207

000020
000020
000020

RESREG:

RS, -(SP)
20(SP), -(SP)

20(SP), -(SP)
20(SP), -(SP)

3 sPUSH RO ON STACK
: :PUSH R1 ON STACK
; s PUSH R2 ON STACK
: s PUSH R3 ON STACK
s sPUSH R4 ON STACK
: sPUSH RS ON STACK
i s SAVE PUSHED PARAMETER
: sSAVE PC OF MAIN FLOW
: s SAVE PC OF SAVREG CALL

RO-RS

JSR

PC.RESREG

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

: sRESTORE PC OF RESREG CALL
s sRESTORE PC OF MAIN FLOW
: sRESTORE PUSHED PARAMETER
; sPOP STACK INTO RS
; sPOP STACK INTO R4
:sPOP STACK INTO R3
:sPOP STACK INTO R2
:3POP STACK INTO R1
;:POP STACK INTO RO

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

SEQ 0047

SUBROUTINES SECTION

O~NO
N B NN -

GLOBAL.

+AUTO SIZE FOR RH70 CONTROLLER AND DETERMINE IF IT IS JUMPERED FOR 22 OR
;132 REGISTERS
; CALL
H

JSR

PC,SIZE70

s CALL ROUTINE

:RS MUST CONTAIN POINTER

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
011164
011170
011174

005037
005037
013746
012737

011500
062700

012702
005720
005720
012737
005720
005302
001375
012737
000403
012716
000002

011500
013702
001415
052710
022712
001007
005012
011046
042726
001002
005237
012637
000207

002660
002662
000004
011120

SIZE70:

000074
011126

002660

CLR

MOV
MOV

002660

ERRVEC, -(SP)
#50,R0
©10. ,R2

sGET REGISTER OFFSET FOR RH70
:GET NUMBER OF REGISTERS TO CHECK

MOV

#50,RHEXT

;LOAD OFFSET FOR RPBAE

(22 REGISTER RH)

g?‘.RHEXT
$
03%,(SP)

;:LOAD OFFSET FOR RPBAE

(32 REGISTER RH)

TST
DEC
BNE

2s:

MOV

3s:

MOV

(R5),R0O
(RO)+
(RO)«

(RO)+
R2
1¢

(RS),RO

RHEXT ,R2
43
RO,R2
@A17!A16,(RO)
#3,(R2)

176377
MOV

' TRAP’'

RETURN ADDRESS

:GET RPCS1 ADDRESS

:TRAP IF NOT A VALID RPBAE
:TRAP IF NOT A VALID RPCS3

s TRAP IF NOT A VALID REGISTER
sDONE WITH ALL 32 REGISTERS ?
:BR IF NO

:SETUP RETURN ADDRESS

:GET RPCS1 REGISTER

:GET RPBAE REGISTER OFFSET
:BR IF NONE
1GET RPBAE REGISTER
:SET EXTENDED ADDRESS BITS IN RPCS1
sARE_THE EXTENDED BITS SET IN RPBAE

:BR IF NO

(RO), -(SP)

s SAVE RPCS1 REG CONTENTS

(R2)

4%:

(RH11)

s SAVE CONTENTS OF ERROR VECTOR

ADD
MOV
TST

001400
000003

002662
000004

:CLEAR RPBAE OFFSET
1CLEAR RHXX TYPE REGISTER
1SETUP

TST

1$:

RHEXT
RHTYPE

#2$ ,ERRVEC

MOV

000050
000012
000050

CLR

TO NEW RPCS1 BASE ADDRESS

;CLEAR EXTENDED ADDRESS BITS IN RPBAE

@tC<A17!A16>,(SP)+
sARE THE EXTEND BITS CLEAR
4%
:BR _IF NO
RHTYPE
sSET RHXX TYPE REGISTER (RH70)

(SP)+ ,ERRVEC

sRESTORE CONTENTS OF ERROR VECTOR

IN RPCS1

OO NN
E W -

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 22
GLOBAL SUBROUTINES SECTION

SEQ 0048

INTEGER DIVIDE ROUTINE

;#THIS ROUTINE

WILL DIVIDE

32-BIT

TWO'S COMPLEMENT

INTEGER

;*DIVIDEND BY A 16-BIT TWO'S COMPLEMENT INTEGER DIVISOR GIVING

i*A

16-BIT

TWO'S

COMPLEMENT

INTEGER

QUOTIENT

AND

16-BIT

REMAINDER,

:*DIVISION WILL BE PERFORMED SO THAT THE REMAINDER IS OF THE
:#SAVE SIGN AS THE DIVIDEND.
:
s #CALL
MOV
MOV
MOV

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

DIVISOR, -(SP)

JSR

RETURN
"y

Hv ".1

PC, $DIV

-(SP)

RO, -(SP)

011304
011306

011310
011312
011314
011316
011320

000241
010003

005316
001370

DIVIDE BY ZERO

ALL ZEROS
ALL ZEROS

ALL ONES
ALL ONES

: sPUSH RO ON STACK

:sPUSH R1 ON STACK
:3PUSH R2 ON STACK
:sPUSH R3 ON STACK

$3SETUP THE ITERATION COUNTER
:sPICKUP THE DIVIDEND

: sCHECK THE SIGN

000003

000002

OVERFLOW

:3SAVE A PLACE FOR SIGNS

000021
000024
000022

;s sKEEP TRACK OF

000020

1¢:

000014
28:

3s:

44;

Ss:

64:

1/2

: ;CLEAR DIV STATUS WORD: RESERVED TO SET C AND V BITS

R2,-(SP)

000003
177777

THE DIVISOR

ATTEMPTED TO DIVIDE BY ZERO

QUOTIENT

011236
011240
011242
011246
011250
011252
011260
011264
011266
011272
011274
011276
011300
011302

: sQUOTIENT & REMAINDER ARE ON THE STACK

REMAINDER

011234

AS LARGE

IMPLIES NO ERROR
IMPLIES ERROR OCCURRED
nc lo.o
DIVIDE OVERFLOW OCCURRED
nc LLETMY 1

011176
011200
011202
011204
011206
011210
011212
011216
011222
011226
011230

:sTHE HIGH DIVIDEND MUST BE <«

THE SIGN

: sAND NEGATE THE ORIGINAL
s sNUMBER

20(SP),R2

+sPICKUP THE DIVISOR

24
3%
03,14(SP)
¢-1,RO

2(SP)

4
R2

6%
RO
RO,R3
R2,R3
64
R3,RO
R1

(SP)
1

+ sCHECK THE SIGN
$3sDIVISOR OF O IS A NO-NO
$3SET “v* € “C” IN DIV STAT WORD
llé&}TREHAINDER TO ALL ONES
1 sKEEP TRACK OF DIVISORS SIGN

1 iNEGATE THE ORIGINAL NUMBER
:3CLEAR "“C” IN PSW
:1 $START FORMING QUOTIENT

1 sPOSITION MSB'S
1 1COPY
1 sCOMPARE DIVIDEND & DIVISOR
13BR IF DIVIDEND > DIVISOR
1 sREMAINDER AFTER THIS LOOP

1 sQUOTIENT BIT ENTERS HERE

<4
CZRJLBO RPO7 FCTNL TEST MACRO V04.00 1-DEC-83 12:59:38 PAGE 22-1

SEQ 0049

GLOBAL SUBROUTINES SECTION

105066

005316
005726
001401
005401
010166
010066
012603
012602
012601
012600
006226
000242
001401
000262
012616
000207

TST

000002

BPL

000014
7%:
8¢:

000001
9s:

000020
000016

10%:

11$:

BIS
CLR

MOV
TST

TST
BGE
NEG
CLRB
DEC

R1
8%
#2,14(SP)
RO
RO,R1

(SP)+
(SP)

TST

CLv
BEQ
SEV
MOV
RTS

:13BR IF NO

$3SET “v” IN DIV STATUS WORD
:sSET REMAINDER TO ALL ZEROS

: sCOPY REMAINDER INTO QUOTIENT

: sCLEAR COUNTER FROM STACK

3 sREMAINDER SIGN CORRECTION NEEDED?

::iBR IF NO

: sNEGATE REMAINDER
: sCLEAR SIGN
;3BUT DON'T FORGET QUOTIENT
: sQUOTIENT SIGN CORRECTION NEEDED?

BEQ

NEG
MOV
MOV
MOV
MOV
MOV
MOV
ASR

: sOVERFLOW?

:3BR IF NO
R1,20(SP)
RO, 16(SP)

(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP)+,RO
(SP).
114

(SP)+,(SP)

: sNEGATE QUOTIENT

: sRETURN QUOTIENT AND

; sREMAINDER
::POP STACK
3 3POP STACK
:sPOP STACK
:sPOP STACK

TO USER
INTO R3
INTO R2
INTO R1
INTO RO

s3COPY C IN PSW PER C IN DIV STAT WORD
:sCLEAR V IN PSW
;3V=0 IN DIV STAT WORD, EXIT
;sV=1 IN DIV STAT WORD, COPY V IN PSW
; sMOVE RETURN ADR UP ONE PLACE,

OVERRIDING DIVISOR

; sRETURN WITH SP POINTING TO REMAINDER

S ——————

011410
011412
011414
011416

005701
100005
052766
005000
010001
005726
005716
002004
005400

011322
011324
011326
011334
011336
011340
011342
011344
011346
011350
011354
011356
011360
011362
011364
011370
011374
011376
011400
011402
011404
011406

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 23
GLOBAL. SUBROUTINES SECTION
1
'
3

SEQ 0050

INTEGER MULTIPLY ROUTINE

: *CALL

MOV

6
;

)
i

JSR
RETURN

i *

MOV

MULTIPLER, -(SP)

MULTIPLICAND, -(SP)
PC, $MULT

: sPRODUCT

IS ON

THE

STACK

1 &

9
10

i*
P

STACK
PRODUCT
e
T

1§

i .

14 011420
15 011422

010046
010146

17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39

005046
016601
100002
005216
005401
016602
100002
005316
005402
012746
005000
103001
060200
006000
006001
005316
001372
022616
001403
005400
005401
005600
005726

16 011424

011426
011430
011434
011436
011440
011442
011446
011450
011452
011454
011460
011462
011464
011466
011470
011472
011474
011476
011500
011502
011504
011506
011510

40 011512
41 011516

42 011522
43 011524

44 011526
45 011530

$MULT:

010246

010066
010166

012602

012601

012600
000207

TOP

LSB’'S

MOV
MOV

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

: sPUSH RO ON STACK
;sPUSH R1 ON STACK

CLR
MOV
BPL
INC
NEG
MOV
BPL
DEC
NEG
MOV
CLR
8CC
ADD
ROR
ROR
DEC
BNE
CMP
BEQ
NEG
NEG
SB8C
TST

-(SP)
12(SP),R1
1$
(SP)
R1
14(SP),R2
28
(SP)
R2
@17.,-(SP)
RO
44
R2.RO
RO
R1
(SP)
34
(SP)+,(SP)
S$
RO
R1
RO
(SP)e«

: ;CLEAR THE SIGN KEY
$3GET THE MULTIPLICAND
:3BR IF PLUS
$3SET THE SIGN KEY
;s sMAKE THE MULTIPLICAND POSTIVE
:sGET THE MULTIPLIER
::BR IF PLUS
: sUPDATE THE SIGN KEY
: sMAKE THE MULTIPLIER POSTIVE
:3SET THE LOOP COUNT
:3SETUP FOR THE MULTIPLY LOOP
:3DON'T ADD IF MULTIPLICAND = O

MOV

000012

000014

1%:

000021

2%:
3:

4%:

000012
000010

S$:

MSB'S

R2,-(SP)

:3PUSH R2 ON STACK

:sPOSITION THE PARITIAL PRODUCT AND
: s THE MULTIPLICAND
;sHAS ALL BITS OF THE MULTIPLICAND BEEN DONE?
:3BR IF NO
: sSHOULD PRODUCT BE NEGATIVE?
:3GO TO EXIT IF NO
s YES--SO MAKE IT SO
; sCLEAR SIGN INFO.

OFF OF STACK

MOV
MOV

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

:sPUT THE PRODUCT ON THE STACK (MSB'S)
;:LSB’'S

MOV

(SP)+,R1

;3POP STACK

MOV

MOV
RTS

(SP)+,R2

(SP)+,RO
PC

::POP STACK INTO R2
INTO R1

:sPOP STACK INTO RO

CONOVNDB
NN -

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83
GLOBAL SUBROUTINES SECTION

12:59:38 PAGE 24

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

OCTHEX:
011666

MOV
MOV

MOV

1$:
28:

MOV
MOV
CLR
ASL
cLC
ASL

3s:

B8CC
BIS
DEC
BGT

R2,-(SP)
#PSTACK,RO
¥4 ,R2
#4 ,R1

(RO)
(RO)

6(SP)
3%
@8IT0,(RO)

TST

44:

S5%:

DEC
BGT
MOV
MOV
TST

BGT
MOV
DEC

CcMP

6$:
7%:

ADD
DEC

8%:

MOV

012616

000207
PSTACK:

:SAVE R1

;1SAVE R2
;SET UP THE BUFFER ADDRESS
;GET THE ITERATION VALUES
;AND DUPLICATE FOR TWO LOOPS
;INITIALIZE THE BUFFER
;MOVE THE PREVIOUS BIT(S) OVER
;CARRY = 0

;ROTATE A BIT FROM THE TEST VALUE
;IF ZERO, SKIP NEXT INSTRUCTION
;MARK THE BIT AS BEING SET

;ONE LESS ITERATION TO GO
;BUT NOT DONE UNTIL = 0!

sNEXT BUFFER LOCATION
;ONE LESS ITERATION TO-GO
94 ,R2
@PSTACK,RO

(RO)

S$
#60,(RO)+
R2
44

(RO),011

64
#60,(RO)+
7%
R2
S$

(SP)+,R2
(SP)+,R1
(SP)+,(SP)

RTS

.BLKW

10.

:IF NOT ZERO, KEEP GOING!
;GET THE NEW ITERATION COUNT
;AND GET THE BUFFER ADDRESS AGAIN
;CONTENTS ZERO?
; IF NOT, SKIP NEXT
;SET THIS CHARACTER = NULL
;ONE LESS CHARACTER TO GO
: IF NOT ZERO, KEEP GOING
sDONE, RETURN!
;ALPHA OR NUMERIC CHARACTER?

:IF > 11, ALPHA!

:MAKE NUMERIC ASCII
AND GO-ON
+MAKE HEX ASCII
‘

;ONE LESS ITERATION TO-GO
:ONE LESS ITERATION, IF NOT ZERO

;RESTORE R2

;AND R1

:MOVE STACK OVER INPUT VALUE

;AND RETURN

: SOTWARE PSEUDO STACK

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

N4
SEQ 0052

VONOUNS W=

GLOBAL SUBROUTINES SECTION

iSUBR TO GENERATE A PSEUDO RANDOM NUMBER
s THE NUMBER IS RETURNED IN $RP1

i THERE ARE

3 SEED VALUES

THAT CAN BE SAVED

: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

CcLC
DEC

011772
011772
011776
011774

RO, -(SP)

$RP1,RO

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

:SAVE RO

;:GET A SEED
:

011776
011776

‘(,(s:é). ,RO

;RESTORE RO

$RNCON:

$RP1:
$RP2:

i -“‘3TR

CZRJLBO RPO7 FCTNL

GLOBAL

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

G 6053

SUBROUTINES SECTION

sDETERMINE

;INDICATE

a
S

;
:

’

13 012000

005037

14 012004
15
16 012010
012014
012016

012700
104462
010005

{g 012020

103031

go
1
22
23
24
25
26
27
28
29
30
31
32
33
34
35

005037

002260
000120

JSR
RE TURN

CLR

WILL

CLOCK

TYPE.

ALSO

SETUP

(TIME PER CLOCK

SYSTEM.

“TICKMS”

TICK

:START

CLKSTA

sASSUME

HERTZ

MOV
TRAP

o'P,RO
CsCLCK

MOV

RO,RS

BCC

(TIME

PER

THE

CLOCK.

CLOCK

IN MICROSECONDS)

PC,ST.CLK

CLR

START

TICK

AS PER LINE

FREQUENCY.

“NO CLOCK*

012022
012026
012032
012036
012044
012050
012056
012060
012064

012070
012076
012102
012104
012104
012110
012112

010537
011537
011537
062737
012537
062737
205725
012537
012537

012737
004737
000423

012700
104462
010005

012220
012222
012224
000002
012226
000004

012230
012244
000001
012246

MOV
MOV
MOV
ADD
MOV
ADD
TST
MOV
MOV

012224

012226

002260

18:

000114

103036

RS,PCLKTB
(RS),PKCS
(RS),PKB
02 ,PKB
(RS)+,PKC
04 ,PKC
(RS)+
(RS)+ ,PKV
(RS)+ ,HERTZ

MOV
JSR

@1,CLKSTA
PC,ST.PCLK
2s

MOV
TRAP
MOV

o'L,RO
CsCLCK
RO,RS

8cC

;SAVE P-CLOCK TABLE ADDRESS
:GET *‘CSR' ADDRESS
sMAKE PKB ADDRESS BY
;ADDING 2
iMAKE PKC ADDRESS BY
;ADDING 4
:SKIP OVER 'BR LEVEL’
:GET *‘VECTOR' ADDRESS
;GET 'HERTZ' LINE FREQUENCY

:SET P-CLOCK FLAG
;START P-CLOCK AS A WATCH DOG TIMER

;IS THERE A L-CLOCK PRESENT

;GO TO 3%

IF NO

$SET L-CLOCK P-TABLE, START L-CLOCK

41 012116

42 012122

012126
012130
012134
012140

:; 012146

010537

012537

005725
012537
012537
012737

004737

012234

MOV

012236

012240
012244
177777

012320

MOV

TST
MOV
MOy
MOV

002260

JSR

gg
S1 012152
52 012160
53 012166

RS,LCLKTB

(RS)+,LKS

(RS)+
(RS)e,LKV
(RS)+ ,HERTZ
0-1,CLKSTA

PC,ST.LCLK

1SAVE L-CLOCK

1GET

*‘CSR‘

TABLE ADDRESS

ADDRESS

1SKIP OVER 'BR LEVEL’
1GET *‘VECTOR' ADDRESS
1GET 'HERTZ' LINE FREQUENCY
1L-CLOCK FLAG

1START L-CLOCK AS A WATCH DOG TIMER

sGET THE CLOCK TICK COUNT
012737
012737
023727

000024
047040
012244

012214
012216
000062

2%:

MOV
MOV
cHP

020. , TICKMS
©20000., TICKUS
HERTZ, 050,

1ASSUME 20.0 MSEC &
;20000.0 USEC
+IS IT S0 HERTZ LINE FREQUENCY

WILL

MILLISECONDS)

CLOCK

;ASSUME “UNKNOWN” HERTZ
;IS THERE A P-CLOCK PRESENT

;GO

“CLMSTA"

:SET P-CLOCK P-TABLE & START P-CLOCK

36
;; 012114

43
44
45
46

KWll-L

“TICKUS”

ST.CLK:

012244

-1

'2:8

:
;

NO CLOCK
KW11-P

ROUTINE

THERE

0=
els

s THIS

10
11
12

THE CLOCK

CZRJILBO RPO? FCTNL

GLOBAL.

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

Wb
SEG G054

SUBROUTINES SECTION

54 012174
55 012176
56 012204
S7 012212
58
59 012214
60 012216

62
63
64 012220

65
66
67
68
€9
70

012222
012224
012226
012230

001406
012737
012737
000207

000020
040432

012214
012216

000020
040432

80
81
82
83
84

.WORD
.WORD

16,
16656,

+16 MILLISECONDS PER CLOCK TICK
116666 MICROSECONDS PER CLOCK TICK

TABLE,

CSR REG,

PKB

16.666 MSEC &

REG,

PKC

REG &

TBL

ADR

000000

PCLKTB:

.WORD

:P-CLK

172540
172542
172544

PKCS:
PKB:

.WORD
.WORD

172540
172542

sCONTROL €& STATUS
;COUNT SET BFR
s COUNTER

000104

PKC:
PKV:

000106

012236
012240

000100

012244

000000

012246
012246
012252

105737
001021

002233

012746
012746
013746
012746
104437
062706
012777
012777

000300
012414

012362

YES

RTS

1XW11-P CLOCK

012234

012254
012260
012264
012270
012274
012276

iBR IF

216666
, TICKUS
,

.WORD
.WORD

172544
104,106

iKW11l-L CLOCK TABLE,

85 012302
012310
87
012316
89
012320
91 012320
92 012324
93
012326
012332
012336
012342
012346
012350
012354

888X

3s:

3¢
®16,, TICKMS

tMUST BE 60HZ,
116666
.0 USEC

MOV

TICKMS:
TICKUS:

72
73
74
75
76
77
78
79

BEQ
MOV

177546

000102

sVECTOR

CSR REG & VEC ADR

.WORD

sL-CLK TBL ADR

LKS:
LKV:

.WORD
.WORD

177546
100,102

;CONTROL &€ STATUS
s VECTOR

HERTZ:

.WORD

:60 HZ. OR 50 HZ. LINE FREQUENCY

TST8B

STOFLG

MOV
MOV
MOV
MOV
TRAP

OPRIO6, -(SP)
OKWSRY, -(SP)
PKV,-(SP)
03,-(SP)
C$SVEC

sALLOW SOF TWARE TIMEOQUTS ?
sNO - -BRANCH
sSETUP VECTOR FOR P-CLOCK

ST.PCLK:

012230

000003

1$:
ST.LCLK:

010,SP
01,5PKB
0115,9PKCS

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

RTS

sRETURN

TST8

STOFLG

OPRIO6, -(SP)
OKWSRY, -(SP)

sALLOW SOFTWARE TIMEOQUTS ?
1NO - -BRANCH
1SETUP VECTOR FOR L -CLOCK

ADD
MOV
MOV

177714
177704

000207

ADR

LCLKTB:

BNE

000010
000001
000115

VEC

105737
001016

002233

012746
012746
013746
012746
104437
062706
012777
000207

000300
012414
012240
000003

MOV
MOV
MOV

LKV, -(SP)

000010
000100

ADD
MOV
RTS

TRAP

CSSVEC

BNE

177654

1%:

010,5P
0100,8LKS
PC

sCOUNT ONE TICK

1START

sRETURN

THE KwWill-L

IE:ES ROUTINE IS USED TO STOP THE SYSTEM CLOCK

JSR

PC,STOPCK

1CALL ROUTINE

“MODE

1 (REPEAT)"

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83
GLOBAL. SUBROUTINES SECTION
101
102
103
104
105
106
107
lgg

1
110
111

012364
012370
012372

012374
012402
012404
012412

113 012414
114 012420
115 012424
'ad 012424

120
lgé
1

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
{2.1’ 012550

005737
001410
100404
042777
000403
042777
000207

013746
004737

002260

12:59:38 PAGE 26-2

STOPCK:

000101

177620

000100

177624

012214
024104

1%:
2s:
iKW1l

CLOCK

KWSRV:

MOV
JSR

L10006:

000002

T1S7
BEQ
BMI
BIC
BR
8IC
RTS

CLKSTA
28

: IS THERE A CLOCK AVAILABLE
1BR IF NO

@101,aPKCS
2
#2100, AKS
PC

1STOP THE P-CLOCK

000101
177570

012746
012746
013746
012746
104437
062706
012777
012777
000001

000300
012504
012230
000003

042777
012716

000010
000360
000105

000101
012520

177566

177530
177520

177510

005077
000207

1$:
L10007:

000002

012746
012646
013746
012746
104437
062706

FORSEC:

2s:

000300

000010
177454

IF L -CLOCK

$STOP THE L -CLOCK

TICKMS, -(SP)
PC,RPTMR

s TIME PER TICK IN MILLISECONDS
:COUNT THE ELASPED TIME

RTI

TO RELOAD

BIC
MOV

€101 ,8PKCS
aPKV, -(SP)

MOV
MOV
MOV
MOV
TRAP
ADD
MOV
MOV
WAIT
BIC
MOV

OPRIO6, -(SP)
1%, -(SP)
PKV, -(SP)
03, -(SP)
C$SVEC
210,SP
©240. ,8PKB
©105,8PKCS

#101,8PKCS
023 ,(SP)

RTI

MOV
MOV
MOV
MOV
TRAP
ADD

012230
000003

1BR

INTERRUPT SERVICE ROUTINE

: THIS SUBROUTINE IS USED
:A RECALIBRATE COMMAND

042777
017746

5EG 00SS

CLR
RTS

THE CLOCK FOR A 4

SECOND

TIMEOUT DURING

:STOP CLOCK
:SAVE THE OLD CLOCK VECTOR ADDRESS
1SETUP VECTOR FOR P-CLOCK

+4 SEC
DELAY AT LINE FREQ
tRUN AT LINE FREQ, DOWN MODE,
sWAIT FOR CLK INTER
:STOP CLOCK
;ADJUST FOR RETURN

IE=1

;RESTORE OLD VECTOR ADDRESS FOR P-CLOCK
OPRIOG, -(SP)
(SP)+,-(SP)
PKv, -(SP)
3, -(SP)
C$SVEC
#10,5SP

SPKB
PC

1CLEAR CLK BFR COUNT

145

sROUTINE TO PROVIDE A 2 MS STALL AFTER A SEEK OPERATION IN THE SEEK

%:;

léfil’f RPO7.

146

sTESTS.
H

149

{-'5’2
152 012552
153 0i2560

042777
017746

000101
177444

155 012564
012570

012746
012746

000300
012656

154

177442

THIS STALL IS REQUIRED TO COMPENSATE FOR THE

'ACCESS READY'

TIMING

DELAY

THIS STALL TIME IS NOT INCLUDED IN THE CALCULATED SEEK TIMES.

JSR

RETURN

PC, TWOMS

TWOMS:

BIC
MOV

101, 8PKCS
8PKV, -(SP)

MOV
MOV

OPRIO6, -(SP)
2%, -(SP)

1STOP THE P-CLOCK
1SAVE THE OLD CLOCK VECTOR ADDRESS

1SETUP VECTOR FOR P-CLOCK

CZRJLBO RPO7 FCTNL

GLOBAL

156
157
158
159
160
161
162
163
164

167

168

169
170

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

S5EQ 0056

SUBROUTINES SECTION
012574
012600
012604
012606
012612
012620
012624
012626
012632
012636
012642
012646
012654
012656
012664
012670
012670
012672
012672
012676
012700
012704
012710
012712
012716
012722

013746
012746

012230
000003

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

000010
000310
002230

104437

011712
011774
173000
177356
000101
000101
012672

PKV, -(SP)
03,-(SP)
C$SVEC

MOV

4$200. ,aPKB

BEQ
JSR

1$
PC,RAND

BIC
ADD
MOV

0tCa777,(SP)
(SP)+,aPKB
©101,9PKCS

sLIMIT IT TO 25 MSEC
sADD IT TO THE BASIC 2 MSEC STALL
;START THE CLOCK

#101,9PKCS

sWAIT FOR 2 MS
:STOP THE P-CLOCK
;ADJUST FOR RETURN

ADD

177404

TST8

MOV

177346

1$:

177336

2%:
L10010:

000002

012746
012646
013746
012746
104437
062706
005077
000207

MOV
MOV
TRAP

3s:

000300

WAIT
BIC

000010
177302

;RANDOM STALL?

$RP1, -(SP)

;GET

235,(SP)

MOV

OPRIO6, -(SP)

ate

ADD

CLR

RTS

;+LOAD THE CLOCK BUFFER

TIMSTL

MOV

MOV
MOV
MOV
TRAP

012230
000003

#10,SP

sNO
s YES,

FETCH A RANDOM NUMBER

RANDOM NUMBER

;RESTORE OLD VECTOR ADDRESS FOR P-CLOCK

(SP)+,-(SP)
PKV, -(SP)
23, -(SP)
C$SVEC
€10,SP

aPKB

;SET COUNT

:RETURN

= 0

s THIS ROUTINE LOADS A READ HEADER AND DATA COMMAND OR A SEEK COMMAND
: INTO DPB.B+2 AND DPB.C+2, DEPENDING ON THE STATE OF REDHDR FLAG
s THAT CAN BE ALTERED BY

s CALL
:

:
012724
012724
012730
012732
012740
012746
012750
012756
012764

105737

001407
012737
012737
000406
012737
012737
000207

LDCMD:

002226
000173
000173

002572
002612

000105
000105

002572
002612

JSR

PC.LDCMD

TST8

REDHDR

;00 EXPLICIT

MOV
ggv

ORDHD ,DPB .B+2
;?DHD.DPB.COZ

iNO--SET UP FOR READ HEADER AND
:DATA COMMAND

MOV
MOV
RTS

OSEEK,DPB.B+2
@SEEK,DPB.C+2
PC

RETURN

BEQ

1$:
2%:

THE OPERATOR.

:NC - -BRANCH

SEEKS FOR VERIFYING

;SETUP FOR SEEK COMMAND

CZRJLBO RPO7 FCTNL

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

S5EQ 0057

IdTNE NN+

SUBROUTINES SECTION

;ERROR ANALYSIS ROUTINE
NOT USED
DPB ADDRESS
BASE ADDRESS OF

;RO
;R1
iRe
:R3
;R4

;RS

GLOBAL

012766
012766
012770
012772
012774
012776
013002
013004
013010
013016
013024
013032
013040
013042
013046
013052
013054
013056
013060
013062
013064

013070
013076
013100
013106
013110
013114
013114
013116
013120
013122
013124

013130
013136
013140
013146
013150
013152
013154
013156
013160

ERRANY;

010146
010246
010346
010446
005037
012501
016102
016237

116237
116237
126127
002402
004737

032712
001406

002276
002302
002300
000150
014322
020000

1%:

032762
001414
032762
001402
000137

020400

000010

2%:

100000
014310

3s:

DPB
RET

MOV

R1,-(SP)

:3PUSH R1

MOV
MOV
MOV
CLR
MOV
MOV
MOV

R2, -(SP)
R3,-(SP)
R4, -(SP)
SVSTAT
(RS)+,R1
14(R1),R2
36(R2),CYL.RD

::PUSH R2 ON STACK
$:PUSH R3 ON STACK
1 sPUSH R4 ON STACK
+PROGRAM FLAGS: EACH BIT INDICATES ERROR TYPE
:DOPB ADDRESS
sADDRESS OF SAVED REGISTER TABLE
tGET CURRENT CYLINDER

EC$8

igRl).OISO

: IF DATA TFR CMD

s THEN GET THE DECREMENTED SECTOR ADDRESS
+MCPE ERROR ?
:BRANCH IF NOT

.WORD
JMP

PC,ADJUST
OMCPE, (R2)
24
CS$ERHRD
1
EM1
DH44
32

BIT
BEQ
BIT
BEQ
JMP

OMOPE !UPE,10(R2) ;DATA PARITY PROBLEM ?
44
1BRANCH IF NONE
0BSE,42(R2)
:SEE IF BAD SECTOR DETECTED,
3%
:+BRANCH IF NOT, ELSE
428
sEXIT

JSR
BIT
BEQ

017000

000010

040000

000012

014166

TRAP

.WMORD
.WORD
.WORD
JMP

014166
44;

SAVED REG'S TABLE

CALLING SEQ:
JSR
RS ,ERRANY

TRAP
.WORD
.WORD

014156

STORAGE

LINK AND RET

MOvVB
MOvVB

104456

000001
005420
007672
000137

TEMP

BIT

6(R2),SEC.RD
7(R2),TRK.RD

JEXIT

sEXIT

ONED !NEM!MSPGE
!MXF ,10(R2)

5S¢

TRAP

CS$ERHRD

.WORD
.WORD
.WORD
JMP

:GET CURRENT SECTOR
:GET CURRENT TRACK

C$ERHRD

2
EM2
DH44
33¢

BEQ
BIT
BNE

ON STACK

;ILLEGAL CONDITIONS ?

1BRANCH IF NONE

OERR,12(R2)
St

1ANY DRIVE ERROR ?
sREPORT THE DRIVE ERROR

3
EM3
DH44
33¢

JEXIT

CZRJLBO RPO7 FCTNL
GLOBAL.

TEST MACRO Vv04.00 1-DEC-83

SUBROUTINES SECTION

013164
013172
013174
013176
013200
013202
48 013204

032762
001406
104456
000004
005605
007672
000137

013210
51 013216
52 013220
013222
013224
013226
53 013230

032762
001406

55 013234
013242
- 34 013244
58
59 013250
60 013256
61 013260
013262
013264
013266

032762
001002
000137

040000

032762
001406
104456
000006
005647
007672
000137

100000

62 013270
63
013274
65 013302
013304

013306
013310
013312
67 013314
68
013320
70 013326
71 013330
013332
013334
013336
72 013340
74 013344
75 013352
76 013354

104456
000005
005627
007672
000137

032762
001406
104456
000007
005705
007672
000137

032762
001406
104456
000013
005733
007672
000137

040000

000010

5¢:

12:59:38 PAGE 27-1

BIT
BEQG

#W
, 10(R2)
CE
6%

.WORD
.WORD
. WORD
JMP

BIT
BEQ
TRAP
.WORD
. WORD
. WORD
JMP

g?LY.lO(R?)

TRAP

014166

100000

000010

6$:

014166

000012

78:

014310

002000

000042

9s:

EM4
DH44
33

gSERHRD

000014

10%:

DH44
33¢

013356
013360
013362
013364
013370
013376
013400
013406

032762
001042
032762
001444

010000

EXIT
;ANY

DATA LATE

:BRANCH IF NONE

ERROR

EXIT

BIT
BEQ

OPGE ,40(R2)
9s

;:DRIVE PROGRAMMING ERROR ?
:BRANCH IF NONE

CS$ERHRD
6
EM6
DH44
34
oLBC,42(R2)
10¢
g‘ERHRO

OuWCF ,14(R2)
11

DRIVE ERROR

;BRANCH IF ANY
EXIT

sEXIT

sLOST BIT CLOCK

:BRANCH IF NONE

;EXIT
sWRITE CLOCK FAILS

:BRANCH IF NONE

sEXIT
000014

11%:

OWLE, 14(R2)
124

CS$ERHRD

014206

100000

;ANY

014206
004000

DATA PATTERN ERROR

+BRANCH IF NONE

©ERR,12(R2)
8s
424

CS$ERHRD

032762
001406
104456
000014
005755
007672
000137

sANY

EM5

EM7
DH44
35%

014206
000040

C$ERHRD

5EQ 0058

BIT
BNE
JMP

TRAP
. WORD
. WORD

014176

sWRITE LOCK ERROR ?

+BRANCH IF NONE

tEXIT

000014
000014

12%:

oDTE, 14(R2)
1 74

:1DATA ERROR ON DRIVE ?

tREPORT THE DRIVE TIMING ERROR
1ANY DATA ERROR ?

1BRANCH IF NONE

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 27-2
GLOBAL SUBROUTINES SECTION
83 013410
84 013416
85 013420
86 013426
87 013430
013432
013434
013436
88 013440

032762
001412
022762
001012

013444
91 013452
92 013454
013454
013456
013460
013462
93 013464

022762
101006

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
013540

013544
013552
013554
013556
013560
013562
109 013564
110
111 013570
112 013576
113 013600
013602
013604
013606
114 013610
115

104456
000057
007305
007672
000137

104456
000053
007134
007672
000137
104456
000015
005776
007672
000137
104456
000055
007224
007672
000137
032762
001406
104456
000016
006017
007672
000137

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

000100

000014

010040

000044

138

BIT
BEQ
CMP
BNE

TRAP

.WORD
.WORD
.WORD
JMP

014206
010040

000044

144

15¢:

014206

16$:

014206

TRAP
.WORD
. WORD
. WORD

#ECH, 14(R2)
14

014206
000042

18%:

000007

000014

19%:

sEXIT

#10040,44(R2)
16$

;LEGICAL POSITION REG CONTENTS
:BRANCH IF SO

003000

014226

000014

208
:

sREPORT ECC LOGIC FAILURE

C$ERHRD

43
EM43

DH44
35%

sEXIT

CSERHRD

sEXIT

C$ERHRD
45
EM45
DH44
354

sEXIT

ODPE ,42(R2)
19¢

:DATA BUS PARITY
;BRANCH IF NONE

JEXIT

OILF!ILR!RMR,14(R2)
; INTERFACE PROBLEM ?
20
;BRANCH IF NONE

C$ERHRD
15
EM1S
DH44
364

014216

sECH SET, THEN RPEC1=10040
sEXIT IF NOT SET

;POSITION REG=10040

15$

C$ERHRD

014206

S5EQ 0059

©#10040,44(R2)

35s

17s:

000010

CMP

BHI

O@IAE!AOE,14(R2)

sEXIT
;POSITION ERROR

214
E;ERHRD

:BRANCH IF NONE

37¢

JEXIT

CZRJLBO RPO7 FCTNL TEST MACRO V04.00 1-DEC-83 12:59:38 PAGE 27-3
GLOBAL SUBROUTINES SECTION
116 013614
117 013622
118 013624
013626
013630
013632
119 013634
120
121 013640
122 013646
123 013650
013652
013654
013656
124 013660
125
013664
127 013672
128 013674
013676
013700
013702
129 013704

032762
001406
104456
000051
007054
007672
000137

131 013710
132 013714
133 013720
013724
135 013726
013730
013732
013734
136 013736
137
013742
139 013750
140 013752
013754
013756
013760
013762

016203

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

032762
001406
104456
000021
006154
007672
000137
032762
001406

104456
000025
006250
007672
000137

042703
022703
001006
104456
000026
006274
007672
000137

032762
001406
104456

020000

000014

21%:

BIT
BEQ

TRAP

.WORD
.WORD
. WORD
JMP

014226

041000

000042

22%:

BIT
BEQ

TRAP
.WORD
. WORD

®OPI,14(R2)

22
CS$ERHRD

SEQ 0060
;OPERATION INCOMPLETE
:BRANCH IF SO

EM41

OH44
37¢

sEXIT

OSKI!LCE,42(R2)

;SERVO OR

QEWN, 12(R2)

:PROBLEM ?

23%

ACTUATOR SEEK ERROR

:BRANCH IF NONE

000012

23s:

BIT

014236

24%

000014
177057
000720

:BRANCH IF

sEXIT

14(R2),R3

24%:

@tC<FER!ECH!HCRC!HCE>,R3
OFER!ECH!HCRC
!HCE ,R3

25%
CS$ERHRD
22

;CHECK IF HEAD MISSING

;CHOP THE REST BITS
sMISSING HEAD ?

:BRANCH IF NOT

EM22
014246

000020

. WORD

014226
000002

000014

25%:

000014

000400

000014

JEXIT

OFER, 14(R2)

:FORMAT ERROR

264
CS$ERHRD
23
EM23
DH44
39¢

014246

000600

DH44
39¢

MgCRC'HCE«14(R2)

27%:

JEXIT
;HEADER INFORMATION ERROR ?
1BRANCH IF NONE

:HEADER CRC ERROR ?

24
EM24
DH44
394

(EXIT

CS$ERHRD

. WORD

OHCRC 14(R2)

278
CS$ERHRD

014246

:BRANCH IF NOT

46
EM46

DH44

1BRACH IF SO

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 27-4
GLOBAL. SUBROUTINES SECTION
:
151
152
153
154
155

014032

000137

014246

014036
014044
014046
014050
014052
014054
156 014056
157
158 014062
159 014070
160 014072
014074
014076
014100
161 014102

032762
001406
104456
000040
006703
007672

017400

014106
014114
165 014116
014120
014122
014124
014126

032762
001406

JMP

000040

28%:

TRAP

000137

014256

032762
001406

000040

000042

29$:

104456

000041
006726
007672
000137

BIT
BEQ

000100

QWRYUNS !WOR !RWUL 'RWU2 'RWU3 ,40(R2)

29$
C$SERHRD
32
EM32
DH44

sEXIT

BIT
BEQ
TRAP

#DCV,42(R2)
30%
C$ERHRD

:BRANCH IF NONE

;WRITE

AND READ UNSAFE

:BRANCH IF NONE

;OC LOW ?

sEXIT

30¢:

: INDEX UNSAFE ?
:BRANCH IF NONE

EM34

DH44

000137

014256

014132
014140
014142
014144
014146
014150
014152

032762
001452
104456
000043
006763
007672
000137

000400

014156
014164

052737
000451

002264

32%:

014166
014174

052737
000445

002264

33%:

014176
014204

052737
000441

002264

34%:

014206
014214

052737
000435

000010

014216
014224

052737
000431

000020

014226
014234

052737
000425

014236
014244

000421

014246

052737

r32737

sEXIT

104456

000042
006746
007672

39¢

SEQ 0061

. WORD
.WORD
. WORD
JMP

. WORD
.WORD
.WORD

014256

31¢:

40¢

;EXIT

OPHF ,42(R2)

sPROCESSOR HANDSHAKE FAILURE??

@8ITO,SVSTAT

sMCPE=1 ,RHXX

424

#BIT1,SVSTAT

:BRANCH IF NOT

A-SYNC

CONTROL

BUS PARITY

$RHXX DATA BUS PARITY,ILLEGAL CONDITION

424

1DATA LATE,

o8IT2,SVSTAT

:PROGRAM ERROR: PROHIBITED COMMANDS
sWERE EXECUTED (WRITE/READ TRACK DES,

424

002264

35%:

8IS

002264

364:

BIS
BR

002264

37%:

000100

002264

000200

002264

1+FORMAT

WRITE CHECK.

TRACK).

424

OBIT3,SVSTAT

;DRIVE CLOCK, TIMING, DATA ERROR
tRETRY SHOULD BE ALLOWED.

0BIT4,SVSTAT

s ILLEGAL CONDITION ,DECODER,

BIS
BR

OBITS,SVSTAT
424

1POSITIONING ERROR

38%:

BIS
BR

424

oBIT6,SVSTAT

tMECHANICAL FAILURE

39%:

BIS

oBIT7,SVSTAT

tHEADER INFORMATION ( HEADER FAILURE,

1 PROBLEM

: AIR,

INTERFACE

TEMP ETC.

I<¢

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 27-5
GLOBAL. SUBROUTINES SECTION

196 014254

000415

014256
014264

000411

197
198
199
200
201
202
203

014266
014274
014276
014300
014302
014304
204 014306
205 014310
014310
014312
014314
014316
206 014320

052737

032762
001005
104456
000054
007156
007672
000763
012604
012603
012602
012601
000205

000400

100000

002264

000042

40%:

415$:

424

;OR UNFORMAT

BIS
BR

424

#BIT8,SVSTAT

tUNSAFE (READ/WRITE,

BIT
BNE

424

#BSE ,42(R2)

: IF BAD SECTOR DETECTED,
;BRANCH WITHOUT REPORTING ERROR, ELSE

TRAP

424
:

SEQ 0062

C$ERHRD

TRACK

.WORD
.WORD
. WORD
BR

44
EMa4

40%

sEXIT

MOV
MOV
MOV
MOV
RTS

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

; sPOP STACK INTO R3
; sPOP STACK INTO R2
; ;POP STACK INTO R1

DH44

: sPOP STACK INTO R4

)
INDEX,

TACH)

CZRJLBO RPO7 FCTNL TEST MACRO Vv04.00 1-DEC-83 12:59:38 PAGE 28

SEQ 0063

CONOUNSBWN-

GLOBAL. SUBROUTINES SECTION

i SUBROUTINE TO ADJUST THE SECTOR ADDRESS BECAUSE IT IS AUTOMATICALLY
: INCREMENTED AT THE END OF A TRANSFER
s CALL
H

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

14:

002300

2%:
3s:

JSR

PC,ADJUST

sCALL ROUTINE

TST

SEC.RD

:SECTOR 0?

MOV
TST
BNE
MOV
DEC

NS1,SEC.RD
TRK.RD
28
NT1,TRK.RD
CYL.RD

sMAKE IT LAST PHYSICAL
;LAST TRACK?
;BR IF NOT
sMAKE IT LAST PHYSICAL
;DECR CYL

BNE

BR
DEC
BR
DEC
RTS

3%
SEC.RD
34
TRK.RD
PC

1BR IF NOT

SECTOR AND DECR TRACK
TRACK AND DECR CYL

JEXIT
3
sEXIT
;ADJUST TRACK

: THIS ROUTINE WILL CALL THE RPO7 DRIVER AND THEN WAIT ON THE FUNCTION
:TO COMPLETE. IF AN ERROR OCCURS IT IS REPORTED.
;CALL
3
FILL "“DPB” WITH COMMAND INFORMATION
R4,CALL.A
JSR
H
RETURN
:
014374
014400
014402
014404
014410
014412
014414
014422
014430
014436
014442
014444
014450
014452
014460
014462
014466
014474
014500
014502
014504
014510

004437
002550
000774
005737
001775

021122

CALL .A:

002566

1$:

013737

002562
002561
002560
015214

113737
113737

004537
002550
004537

022737
001013
013746
112737
004437
002550
000240
012637
000204

002304
002310
002306

012766

000200

002264

002552
000107
021122

002552

ggg ;

R4 ,RPO7

CALL.A

ggg 5

RS,ERRANY

CMP
BNE
MOV
MOVB
JSR
DPB.A
NOP
MOV
RTS

#BIT7,SVSTAT
3
DPB.A+2,-(SP)
ORECAL ,DPB.A+2
R4 ,RPO7

TST
BEQ
BPL
MOV
MOVB
MOVB
JSR
DPB.A

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

(SP)+,DPB.A+2
R4

;CALL RPO7 DRIVER
;DONE
?
:NO--LOOP
:BRANCH IF NO ERROR
;CYLINDER
; TRACK
;SECTOR
;CHECK THE ABORT CONDITION
;PARAMETER BLOCK ADDRESS
;DETECT ERROR

sHEADER ERROR?
:IF NOT MATCH, NO
;SET UP FOR A RECAL COMMAND
;s ISSUE THE COMMAND
; THIS BUFFER
;FILLER FOR THE DRIVER
;:RETURN

s THIS ROUTINE IS THE SAME AS “CALL.A" EXCEPT FOR THE DPB USED AND IF
s THE COMMAND IS A READ HEADER AND DATA THE HEADER (CYLINDER, TRACK,
sAND SECTOR) READ IS CHECKED FOR VALIDITY,
sCALL
FILL DPB
F
F
JSR
R4 ,CALL.B
RETURN
3
014512

004437

021122

CALL.B:

JSR

R4 ,RPO7

:CALL

DRIVER

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 28-1
GLOBAL SUBROUTINES SECTION

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

1%:
002304

002310

012766

002264

002572
000107
021122

002572

002572
002572

000173

24:

3%:

002606
015470
4%:

002231

CALL.B
DPB.B+16

BPL
MOV
MOVB

34
DPB.B+12,CYL.DS
OPB.B+11,TRK.DS

BEQG

MOvVB

002306

000200

DOPB.B
BR
TST

015410

S$:

JSR
DPB.B
JSR
DPB.B
CMP
BNE
MOV
MOVB
JSR
DPB.B
NOP
MOV
BR

CcMPB

TST8

?
1DONE

$NO - -BRANCH
;1BRANCH IF NO ERROR

s CYLINDER

: TRACK

DPB.B+10,SEC.DS ;SECTOR
;CHECK THE ABORT CONDITION

RS ,ERRABO

RS ,ERRANY
oBIT7,SVSTAT
2
OPB.B+2, -(SP)
ORECAL ,DPB.B+2
R4 ,RPO7
(SP)+,DPB.B+2
S$

DPB.B+2, 4RDHD

BNE
43
TST
DPB.B+16
BMI
43
JSR
R4 ,VERIFY
DPB.B+10
BR
S$

BEQ
JSR
.WORD
RTS

SEQ 0064

STALLF

S$
R4 ,STALL
STALL1
R4

+HEADER ERRORS?
: TAKE BRANCH IF NOT MATCH

:SET UP A RECAL COMMAND
: ISSUE THE COMMAND
: THIS BUFFER

sFILLER FOR THE DRIVER
+RESTORE THE COMMAND
sEXIT
:DOING IMPLIED SEEKS?

+NO - -BRANCH
;ERROR DETECTED ?
:BRANCH IF SO
;GO CHECK THE DATA

:ERROR DURING VERIFY

sSTALL ?
:NO - -BRANCH
s YES--CALL STALL ROUTINE
:STALL TIME POINTER

;RETURN

s THIS ROUTINE IS THE SAME AS “CALL.B" EXCEPT FOR THE DPB USED.
;CALL
FILL DPB
:
3
JSR
R4,CALL.C

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

004437
002610
000774
005737
001775
100037
013737
113737

113737

004537
002610
004537
002610
022737
001013
013746

RETURN

021122

CALL.C:

002626

1¢:

JSR
OPB.C
BR
TST
BEQ
BPL
MOV
MOVB
MOVB
JSR
mlc
JSR
DPB.C
cMP
BNE
MOV

002622
002621
002620
015214

002304
002310
002306

012766
000200
002612

002264

R4 ,RPO7

:CALL

CALL.C
DPB.C+16
1
34

;1DONE?

DRIVER

:NO- -LOOP
1 YES--BRANCH IF NO ERROR
DPB.C+12,CYL.DS : CYLINDER
DPB.C+11,TRK.DS 1 TRACK
DPB.C+10,SEC.DS ;1SECTOR

RS ,ERRABO
RS ,ERRANY

#BIT7,SVSTAT
24
DPB.C+2,-(SP)

1CHECK THE ABORT CONDITION
+HEADER ERRORS?
;IF NO MATCH,

NO!

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 28-2

N5
SEQ 0065

GLOBAL SUBROUTINES SECTION

109
110
111
112
113
114
115
116
117
118
119
120
121
122
123

014766
014774

015000

015002
015004
015010

015012
015020
015022
015026
015030
015034
015036
015040
015044
015046
015052
015054

112737
004437
002610
000240
012637
000421

000107
021122

123727

002612

001007
005737
100404

002612

2s:
000173

3s:

002626

44:

015410

S5$:

@RECAL ,DPB.C+2
R4 ,RPO7

:SET UP A RECAL COMMAND

s ISSUE THE COMMAND

:FROM THIS BUFFER

(SP)+,DPB.C+2

sFILLER FOR THE DRIVER

JEXIT

CMPB
BNE

DPB.C+2, #RDHD
4%

;DOING IMPLIED SEEK?
iNO--EXIT

TST

015470
002231

MOVB
JSR
OPB.C
NOP
MOV

DPB.C+16

BMI
44
JSR
R4 ,VERIFY
OPB.C+10
BR
Ss

TSTB
BEQ
JSR
.WORD
RTS

STALLF
S$
R4,STALL
STALL1
R4

;ANY ERROR ?
sEXIT

;YES--CHECK THE DATA
;ERROR DURING VERIFY
sSTALL ?
;NO - -BRANCH
sYES--CALL STALL ROUTINE
;STALL TIME POINTER

f)"
)

CZRJILBO RPO7 FCTNL

TEST MACRO v04.00 1-DEC 83

SECTION

N iml)re

SUBROUTINES

O® T

GLOBAL

12:59:%8 PAGE

+ THIS ROUTINE

SEQ GU6E

IS THE SAME AS “CALL.A" EXCEPT FOR THE DPB USED AND

tON AN ERROR LOCATION “ERR.CT" IS EXAMINED,
sSERFLG EXIT IS TO THE NEXT TEST,
;CALL
:

3
:

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

005037
004437
002630
000772
005737
001775
100401
000417

013737
113737

113737

004537
002630
004537
002630

105737
001403

004437
002360
000204

002350

002646

002304
002310
002306

1%:

012766

C02231

DPB

JSR

RE TURN

DRVCAL
: CLR
JSR
DTADPB
BR
3s:
TST
BEQ
BMI
BR

021122

002642
002641
002640
015214

FILL

MOV
MOvVB
MOvVB
JSR
OTADPB
JSR
DTADPB
TSTB

BEQ

015410

Ss:

IF ERR.CT

IS EQUAL

R4 ,DRVCAL
WCEFLG

R4 ,RPO7

DRVCAL
DTADPB+16
3
13

DTADPB+12,CYL.DS
DTADPB+11,TRK.DS
DTADPB+10,SEC.DS

RS ,ERRABO
R5,ERRANY

STALLF
Ss

JSR

R4 ,STALL

RTS

STALLZ2

;CLEAR WRITE CHECK ERROR FLAG
DRIVER
;CALL

s DONE
sNO- -LOOP
:BR IF ERRORS
:NO ERRORS

s CYLINDER

;s TRACK

:SECTOR
;CHECK THE ABORT CONDITION
sDATA BLOCK ADDRESS

sSTALL ?
:NO - -BRANCH
s YES--CALL STALL ROUTINE
:STALL TIME POINTER

:SUBR TO EXECUTE A COMMAND STORED IN DTADPSB.

sSIMILAR TO SUBR CALL.A EXCEPT THAT HARD AND SOFT ERRORS ARE NOT CHECKED
sI.E. NO CALL TO ERRANY,
01516C
015164
015166
015170
015174
015176
015200

015204
015206
015212

004437

021122

EXECMD:

000774
005737
001775

002646

2%:

004537

015214

002630
013702
000207

002644

JSR
o7
BR

TST
BEQ
BPL

JSR

3s:

DTADPB
MOV

RTS

R4 ,RPO7

EXECMD
DTADPB+16
24
38

RS ,ERRABO

sEXEC CMD
;:OPB PTR

;WAIT FOR @ NOT FULL
?
' DONE

;WAIT FOR DONE
:SKIP ON ERROR FREE DONE
:ERROR: CHECK ABORT CONDITION
sEXIT TEST IF 'DPB'+16 SET WITH ERRORS:

iNED+PRT+STO+MCP+PAR+OFL
+UNS .

DTADPB+14,R2

;'0OPB'

PTR

;FETCH AD OF SAVED REG TBL

CZRJLBO RPO7 FCINL
GLOBAL

v,
TEST MACRO v04.00 1-DEC-83

SUBROUTINES SECTION

1
2
3
4

:CALLING

]

8
9 015214

010146

015216
015220
015222
015226
015234
015242
015250
015254
015260
015262
015264
015266
015270

010246
012501
016102
016237
116237
116237
016102
032702
001405
104455
000031
006417
010702

21 015274
22 015300
23 015302
015304
015306
015310
24 015312
25 015314
26 015320
27 015322
015324
015326
015330

032702
001405
104455
000032
006455
007672
000430
032702
001405
104455
000033
006525
007672

29 015334
30 015340
31 015342
015344
015346
015350
32 015352
33 015354
34 015360
35 015362
015364
015366
015370

032702
001405
104455
000036
006564
010702
000410
032702
001407
104455
000037
006641
010702

37
38
39
:2

013705
012602
012601
000205

20 015272

28 015332

36 015372
015374
015400
015402
015404

000440

000420

000400

000014
000036
000006
000007
000016
000002

SEQ

JSR

OPB

ERRABO:

MOV

“EQ G067

s THIS ROUTINE IS USED TO DETERMINE
:THE I/0 ROUTINES

10
11
12
13
14
15
16
17
18
19

12:59:38 PAGE

002276
002302
002300

000004

18:

001000

006000

050000

as:

002262

S$:
68:

THE ABORT CONDITIONS OF

RS ,ERRABO

NORMAL RET
R1,-(SP)

DATA BLOCK

PAR

ADDRESS

;SAVE R1

MOV
MOV
MOV
MOV
MOVB
MOVB
MOV
BIT
BEQ
TRAP
.WORD
.MORD
.MORD

R2, -(SP)
(RS)+,R1
14(R1),R2
36(R2),CYL.RD
6(R2),SEC.RD
7(R2), TRK .RD
16(R1),R2
o8IT1.R2
1
CSERDF
25
EM25
DH25

1SAVE R2
1LOAD THE DPB ADDRESS
;ADDRESS OF SAVED REGISTER TABLE
;GET CURRENT CYLINDER
;GET CURRENT SECTOR
:GET CURRENT TRACK
;R2 TEMP STORAGE
;ORIVE BECOME NON-EXIST ?
;BRANCH IF NOT

BIT
BEQ
TRAP
.MORD
.MORD
.MORD
BR
BIT
BEQ
TRAP
.MORD
.MORD
.WORD

#BIT2,R2
2
C$ERDF
26
EM26
DH44
EY)
o8IT9,R2
3
CS$ERDF
27
EM27
DH44

;PORT REQUEST TIMEOUT
;BRANCH IF NOT

BIT
BEQ
TRAP
.MORD
.MORD
.WORD
8R
BIT
BEQ
TRAP
LMORD
.MORD
.MORD

08IT10!'BIT11,R2
as
CSERDF
30
EM30
DH25
S4
98IT12!'BIT14,R2
64
CSERDF
31
EM31
DH25

MOV
MOV
MOV
RTS

BYPASS,RS
(SP)+,R2
(SP)+,R1
RS

B8R

JEXIT

;TIME OUT ON THIS DRIVE
:BANCH IF NOT

JEXIT

;MASSBUS PARITY ERROR
;BRANCH IF NOT

;DRIVE UNSAFE OR OFFLINE
1BRANCH IF NOT (OTHER ERROR CATLOG)

1 THE ABORT ADDRESS
iEXIT IF NO ABORT CONDITION

JEXIT

CZRJLBO P07 FCTINL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE
GLOBAL SUBROUTINES SECTION
43
ad
45

:+ABORT

015406
015406

46
47

ABOPAS
:

104444

30-1

Df,

RETURN ADDRESS FROM

TRAP

5EQ 0068
'ERRABO’

SUBR,

VIA

'BYPASS5‘,

:STALLL1 CONTAINS SPECIFIED TIME FOR TESTS 1-6,
;CONTAINS THE TIME FOR TESTS 13-18.

015410
015412
015416
015420
015424
015430
015434
015436
015444
015446
015452
015454
015460
015462
015464
015466

013446
105737
001406
004737
013716
042716

162766
103407
012716
005704
005366
001374
000765
022626
000204

002232
011712
011774
177700
000001

000144
000000

000002

AND STALLZ2

SPECIFIC

STALRD

s CALL
H
H

R4 ,STALL
JSR
TIME POINTER

sWHERE TO FIND THE STALL TIME

STALL:

MOV

a(R4).,-(SP)

;PICKUP STALL

BEQ
JSR
MOV
BIC

18
PC,RAND
$RP1,(SP)
0tC77,(SP)

:NO - -BRANCH
sYES--FORM RANDOM NUMBER
sAND USE IT FOR THE STALL TIME
;BUT NEVER > 64 MILLISECONDS

SuUB

01,2(SP)

;sMORE STALL REQUIRED?

1$:

2%:

3s:

TSTB

CLR

4%:

STALRD

-(SP)

BLO
MOV
TST
DEC

a8
9100.,(SP)
R4
0(SP)

cMP
RTS

(SP)+,(SP).
R4

ggfi

ERROR

C$DCLN

s THIS ROUTINE WILL PROVIDE A STALL IN MILLISECONDS FOR A
sAMOUNT OF TIME IF STALRD = O OR A RANDOM AMOUNT OF TIME

ON DEV FATAL

TIME

;USE A RANDOM TIME

;CLEAR TEMP. LOCATION

:NO - -BRANCH
;STALL FOR ABOUT 1 MILLISECOND
iNOP TO KILL TIME
s COUNT

;LOOP IF MORE COUNTS NEEDED
;CLEAN OFF
sEXIT

THE

STACK

RN
ND WM -

CZRJULBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 31
GLOBAL. SUBROUTINES SECTION

23
24
25
27

+ROUTINE

;CALL
:

015470
015472
015474
015502
015510
015512
015516
015520
015526
015534
015542
015546
015552
015556
015560
015562
015564
015566
015570
015576
015602
015606
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
002310
002304

000107
014374
000002

002276
002300
002302

1%:

TO SOF TWARE COMPARE HEADER ON

2s:

3s:

IMPLIED SEEKS

ADR POINTER
ERR RETURN
RETURN

JSR

R4 ,VERIFY

:ADDRESS OF DPB+10 (SECTOR NUMBER)

MOV
MOV

R1,-(SP)
(R4).,R1

1 SAVE R1

8IC
CMP
BNE
CHP
BEQ

MOV

DBUFF ,CYL .RD

MOVB
MOVB
MOVB
MOV

DBUFF +2,SEC.RD
(R1)+,SEC.DS
(R1)+,TRK.DS
(R1),CYL.DS

MOvVB

TST
TRAP

002552

SEQ 0069

.WORD
.WORD
.WORD
MOV
JSR
ADD

MOV

RTS

DBUFF
+3, TRK ,RD

-(R4)
CS$ERHRD

42
EM42
DH4S
ORECAL ,DPB.A+2
R4,CALL.A
02,R4

(SP)+,R1

:GET ADDRESS OF DPB.10

sSTRIP FORMAT AND BAD SECTOR BITS FROM CYLINDER NUMBER

sCYLINDER NUMBER OK?
:NO - -BRANCH
s YES--HOW ABOUT TRACK/SECTOR?
:BRANCH IF GOOD
:SAVE THE EXPECTED AND THE
+RECIEVED CYLINDER,

sAND SECTOR

sMAKE

TRACK,

TEST PC+4

:LOAD RECALIBRATE ORDER CODE
:GO EXECUTE THE COMMAND
: INCREMENT RETURN ADDRESS
;RESTORE R1
sEXIT

NS NN -

CZRJLBO RPO7 FCTNL TEST MACRO v0O4.00 1-DEC-83 12:59:38 PAGE 32
GLOBAL. SUBROUTINES SECTION

: THIS ROUTINE WILL PERFORM A

22
23
24
25
26
27
28
29
30

5EQ 0670

"MASSBUS”

INIT.

;A "RECALIBRATE” ON THE DRIVE UNDER TEST,
sNOTE: THIS ROUTINE DESTROYS R1 AND R4

s CALL
H

OO N

10
11
12
13
14
15
16
17
18
19
20
21

Fé

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

000040
002640
002642
000107
021122

165056
002632

002646

002642
002641
002640
015214

SRCHOO:

1$:
002304
002310
002306

2%:
164746
164766

3s:
4% :

R4 ,SRCHOO

RETURNZ2
CLR

MOV

;D0 A MASSBUS INIT.
tRETURN HERE

AND RECAL

IF NO ERROR

sRETURN HERE ON ERROR
R1

;s INCASE OF ERROR (TYPTIM)

#CLR,8RPCS2

sMASSBUS

INIT,

ORECAL ,DTADPB+2

;COMMAND

= RECALIBRATE

CLR
CLR

DTADPB+10
DTADPB+12

JSR
DTADPB
BR
;éa

R4 ,RPO7

BPL
MOV
MOVB
MOVB
JSR
DTADPB
JSR
DTADPB
TST
BR
MOV
MOV

3
;s TAKE NORMAL EXIT IF NO ERROR
DTADPB+12,CYL.DS
;:CYLINDER

MOV

012766

000000
000000

JSR

RETURN1

FOLLOWED BY

RTS

4
2:RDP8016

s TRACK=0; SECTOR=0
sCYLINDER =0

;CALL THE DRIVER
;:OPB POINTER
:BRANCH IF QUEUE FULL,NO SPACE
;WAIT ON DONE

DTADPB+11, TRK.DS
;s TRACK
DTADPB+10,SEC.DS
;SECTOR
RS,ERRABO
;CHECK ANY ABORT CONDITION
RS,ERRANY

(R4).
43
©0,8RPDA
©0,8RPDC
R4

sADJUST FOR ERROR EXIT
;GO TO THE EXIT
s TRACK AND SECTOR =0
;CYLINDER = 0
;RETURN

s THIS IS AN RTI WHICH IS USED BY THE TIMING TESTS
35 015740
36 015740
015740

DORTI:
L10011:

;RETURN FROM INTERRUPT
RTI

IE:EE ROUTINE WILL INITIALIZE THE TIMERS USED BY THE TIMING ROUTINE
:

RETURN

JSR

PC,STRTMR

STRTMR:

JSR
MOV
MOV

PC,SAVREG
OTIM.UP,RO
eTIM.PT,R1

:SAVE RO-RS
;START AT TIM.UP (MINIMUM)
1STOP AT TIM.PT

cHP
BLO

RO,R1
1

;DONE
?
s NO- -BRANCH

RTS

1RETURN

43
44
45
46
47
48
49

50
51
52
53

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
077777
011002

18:

002312
002330

CLR

MOV
MOV
MOV
JSR

(RO)+»

ODBUFF ,(RO)
+tCBIT1S, TIM.UP
#+tCBIT1S,TIM.DN
PC,RESREG

;CLEAR

1SETUP POINTER
;SET MINIMUM TIME TO MAXIMUM
;POSITIVE NUMBER
;RESTORE RO-RS

s THIS ROUTINE IS USED FOR MEASURE THE AVERAGE SEEK TIME

CZRJLBO RPO7 FCTNL

GLOBAL.

80
81
82
83
84
85
86
87
88
89
90

91
92
93

5EQ 007

SUBROUTINES SECTION

56
S?
s8
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79

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

s THE

TIME

IS MEASURED AS:

629%X629

i WHERE THE T1 IS THE SEEK TIME FROM CYLO TO CrL1

THE

: THE COUNT2:

THE

SEEK

TIME FROM CYLO

TO CvL2

LETC.

ROUTINE WILL CALCULATE THE FOLLOWING SUMMATION:

(T1X629+T2X628+T3X627+....... ) x 2
629
016012
016016
016020
016022
016026
016030
016034
016040
016046
016052
016056
016062
016064
016066
016072
016074
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
177776
002206

1%:

177776

MOV
TST

BEG
MOV
MOV
MOV
JSR
MOV
MOV
MOV
MOV
ASR

INC
JSR

011176

ROL
BPL

000010
000012
000014
174106
000002
174072

2%:

INC
ADD

164224
002346

cMpP

000002
174044

cMP

000006

PKC, -(SP)

PC, $MULT

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

PC,$DIV

(SP)e«
24
(SP)
(SP)+,10(R2)
12(R2)
14(R2)
aPKC,aTIM.PT

02, TIM.PT
ggKC.(RZ)

174064
174060

174034
174026

@TIM.UP,R2
RS
1$
@TIM.DN,R2
R1,-(SP)

8PKC,(R2)

22KC.4(R3)

2(R2)
8PKC,4(R2)
5S¢
8PKC,4(R2)

S$:

cMP

gPKC.6(R3)
$

6%:

RTS

6(R2)

sCOUNT UP TABLE
sCOUNT UP CALCULATING ?

:BRANCH IF SO

:LOAD THE COUNT DOWN TABLE
s COEFFICIENT 629,628,627,.... ETC.
sMEASURED TIME INTERVAL
s TIME INTERVAL X COEFFICIENT
iSWAP THE LSB , MSB OF THE PRODUCTION
:

: FOR THE CALLING SEQ OF $DIV ROUTINE
;sDIVIDED BY 629 (TOTOL # OF SEEKS)
3+ DIVIDEC BY 629/2
;ROUND UP THE FRACTION
sTIME X COEFFICIENT/TOTAL & OF SEEKS
;:REMAINDER OVER 0.5 ?
:BRANCH IF NOT

;ROUND UP

;LSB OF THE TOTAL SUM

;HSB OF THE TOTAL SUM
; TOTAL SEEK COUNT

:SAVE THE TIME INTERVAL
;ADJUST THE POINTER
sMINIMUM TIME
:BRANCH IF NOT
;LOAD THE NEW MINIMUM

;LOWER THEN THE LIMIT ?
;BRANCH IF NOT
;UPDATE THE COUNTER IS SO
;GREATER THAN THE MAXIMUM VALUE ?

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

s THIS ROUTINE WILL ADD THE ELAPSED TIME TO THE AVERAGE COUNTER AND

sMAINTAIN THE MINIMUM AND MAXIMUM TIMES.

sNOTE:
sCALL
H
H

THIS ROUTINE DESTROYS R2
MOV
MOV

oTP,R3

FLAG,RS

1PARAMETER POINTER

tFLAG=0=COUNT UuP

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83
GLOBAL SUBROUTINES SECTION

126

127
128
129
130
131
132
133
134
135
136
137
138
139

140
141
142
143
144
145
146
147
148

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

016212
016216
016220
016222
016226
016232
016234
016242
016250
016252
016254
016256
016262
016264
016272
016300
016302
016304
016306
016312
016314
016316

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

016324
016326

001412
022737

016334
016336

101406
017777
062737
000207

016344
016352

002312

177776
000004

047706
173664
000002

MOV

2%:

3s:

TST

MOV

cMP
BGE
MOV

cHP

BGE
INC
TST

CMP

PC,COUNT
#TIM.UP,R2

4TIM.DN,R2

8PKC,(R2)+
24
8PKC, -2(R2)
aPKC,4(R3)

3
(R2)
(R2)+

OPKC,(R2)+

SEQ 0072
iFLAG=-1=COUNT

s YES- -BRANCH

iNO--PICKUP "DOWN" POINTER
;LESS THAN PREVIOUS LOW?

iNO- -BRANCH
s YES--SAVE IT
;LESS THAN THE LOW LIMIT?
:NO- -BRANCH
s YES--COUNT IT
;ADVANCE THE POINTER
;GREATER THAN PREVIOUS HIGH?
:NO - -BRANCH

44
aPKC, -2(R2)

000022

BLE
INC
TST
ADD
ADC
INC
cMP

S$
(R2)
(R2)+
SPKC,(R2)+
(R2)+
(R2)
L$TEST,#18.

002346

BEQ
CMP

6
OQDBUFF +<44629.>,TIM.PT

BLOS
MOV
ADD
RTS

64
aPKC,aTIM.PT
€2,TIM.PT
PC

177776
000006

4s:

S$:

164002
002346

6%:

cMP

PKC,6(R3)

DOWN

;PICKUP THE "UP" POINTER
sUSE IT?

BLE
MOV

173714
002114

COUNT:

1$:

173744
173736
173730

JSR
RETURN

BEQ

002330
173774

173766
173760

H
H

32-2

;YES--SAVE

tGREATER THAN THE HIGH LIMIT?
:NO - -BRANCH

s YES--COUNT IT

sADVANCE THE POINTER
sADD THIS COUNT TO THE TOTAL
:COUNT THIS READING
100 NOT SAVE COUNTS IN MEMO IN 8 TO ALLOW
sA WRITE-CHECK OPERATION AFTER THE TIMED WRITE
;OTHERWISE WRITE DATA WILL BE DESTOYED AND A
sWRITE CHECK ERROR WCE WILL RESULT

IN RPCS2!

;SAVE THIS COUNT?

;LAST CYLINDER X 4
;NO - -BRANCH
s YES--WELL SAVE IT iHEN

;sADVANCE
;sRETURN

THE POINTER

IE:EE ROUTINE PRINTS THE SPEC OF ALL TIMING TESTS
i

H
H
H

sTABLE:

.WORD

MESSAGE

SPTYP:

MOV

(R4)+,R2

BEQ

H
H

016354
016356
016362
016364
016366
016372
016374
016376

012402
005737
001447
012246
012746
010600
104417
062706

002242

R4,SPTYP
JSR
TABLE ADDRESS
.WORD
.WORD

TST

MOV
MOV

TRAP
ADD

MIN VALUE
MAX VALUE

TYTIME

(R2)+,-(SP)

1 THE TABLE ADDRESS

;ALLOW TIME TO BE TYPED ?
1BR IF NO

1PRINT MESSAGE

SP,RO

CS$PNTF
04 ,SP

Ka—

113
114
115
116
117
118
119
120
121
122
123
124
125

12:59:38 PAGE

H¢

CZRJLBO RPO7 FCTNL TEST MACRO V04.00 1-DEC-83 12:59:38 PAGE
GLOBAL. SUBROUTINES SECTION
166 01€402
167 016404
168 016406
016412
016416
016422
016424
016426
169 016432
170 016434
171 016436
016442
016446
016452
016454
016456
172 016462
173 016462
016466
016472
016474
016476
174 016502

005722

001412
016246
012746

012746

010600

104417
062706
005722

001412
016246
012746
012746
010600

104417
062706

012746
012746
010600
104417
062706
000204

TST
BEQ

177776

MOV
MOV
MOV

017270
000002
000006

1$:

177776
017313

003064
000001
000004

BEQ

MOV

MOV
MOV
MOV

000002

000006

MOV
TRAP
ADD
TST

2%:

3s:

32-3

(R2)+
1$
-2(R2), -(SP)

;LOAD MIN VALUE

$SKIP IF MIN VALUE IS O

#MSGMIN, -(SP)

SP,RO
C$PNTF
#6,SP
(R2)+
2%
-2(R2), -(SP)

: THE MAXIMUM VALUE

:BRANCH IF NO LIMIT

#MSGMAX, -(SP)

SP,RO

TRAP
ADD

C$PNTF

MOV

@CRLF, -(SP)

MOV
MOV
TRAP
ADD
RTS

SEQ 00673

#6,SP

01, -(SP)

SP,RO
CS$PNTF
04 ,SP

;CR-LF

OO NI NED NN -

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83
GLOBAL. SUBROUTINES SECTION

12:59:38 PAGE

SEQ 0G74

:3THIS ROUTINE IS USED TO TYPE

+MAXIMUM,

AND AVERAGE

sIT WILL ALSO CHECK

TIMES FOR

THE

016504
016506
016510
016514
016516
016520
016522
016526

012402
010446
012237
012205
012203
011202
012704
004737

016532
016540

012737

016544

016546
016552
016554
016560
016562

016566
016570

016574
016576
016602
016606
016606
016612
016616
016620
016622
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

TYPTIM:

017264

002312
017634
000001
002227

002242

000002

017714
000006

1¢:

002242

017260

017264
000001

2%:

3s:

000004
000014
017615
000001
000004
017260

012446
012746
012746

017270
000002

4%:

TIMING TESTS

IF NOT FLAG THE BAD TIMES.

THIS ROUTINE DESTROYS R2-RS
JSR
TABLE
RETURN

R4, TYPTIM

:GO REPORT THE TIMES
;POINT TO THE PROPER TABLE

MSGADR1
MSGADR2
MIN. ALLOWED
MAX. ALLOWED

sADDRESS OF ASCIZ MESSAGE NUMBER 1
sADDRESS OF ASCIZ MESSAGE NUMBER 2
sMINIMUM TIME ALLOWED

MOV

(R4).,R2

;PICKUP THE TABLE POINTER

MOV
MOV
MOV
MOV

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

s ADDRESS OF 1ST MESSAGE
;ADDRESS OF 2ND MESSAGE
sPICKUP THE LO LIMIT
sAND HI LIMIT VALUES.
;:GET ADDRESS OF UP TIMES STORAGE

MOV
JSR

OTIM.UP,R4
PC,CHKAVG

MOV
TSTB
BNE
TST
BEQ
TST
BNE
TST
BEQ

01, TYTIME
TIMTYP
3¢
2(R4)
1s
$$FLG
34
6(R4)
2s

BNE
CLR
JMP

3
TYTIME
11$

MOV

124, -(SP)

MOV
TRAP
ADD
TST
BNE
MOV
MOV
MOV
TRAP
ADD
JMP

SP,RO
CS$PNTF
04,SP
14(R4)
4%
OMSGNON,
-( SP)
01,-(SP)
SP,RO
CSPNTF
04,SP
11%

MOV
MOV
MOV

(R4)+,-(SP)
OMSGMIN,
-( SP)
02, -(SP)

LE 1

017714

THE

TIMES TO ENSURE

s THEY ARE WITHIN TOLERANCE AND

¢NOTE:
; CALL

THE MINIMUM,

$$FLG

;MAXIMUM TIME ALLOWED

1 3sPUSH R4 ON STACK

:gEET$$ESVERAGE BELOW/ABOVE SEEK TIMES SHOULD
H

;ALLOW TIMES AND LIMITS TO BE TYPED
sALWAYS TYPE THE TIMES
;BR IF YES

;ANY SEEKS BELOW THE LOW LIMIT

;:BR IF NO

;TYPE @ OF SEEKS BELOW LIMIT?
:BR IF YES
;ANY SEEKS ABOVE THE HIGH LIMIT

;BR IF NO

;TYPE @ OF SEEKS ABOVE LIMIT?

:BR IF YES
;NO TIMES OR LIMITS TO BE TYPED
sNO--EXIT

:DID ANY SEEKS OCCUR ?
;BR IF YES

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 33-1
GLOBAL SUBROUTINES SECTION

46
47
48
49

FHEUR

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

SRTAR2EE

57 017024
017024
017030
017034
017036
017040
017044
017046
017050
017052
017056
017060
017062
017064
017070
017074
017100
017104
017106
017110
67 017114
017122
69 017124
017132
71 017134

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

MOV
TRAP
ADD
TST
BEQ
143

000006

017714

I<F)
SEQ 007S

SP.RO
CS$PNTF
#6,SP
(R4).

;ANY

017362
000003
000010

S$:

017313
000002

000006

MOV
MOV
MOV
MOV
MOV
TRAP
ADD

MOV
MOV
MOV
MOV
TRAP
TST

017714

177776
017434
000003

THE LOW LIMIT

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

BEQ

177776

SEEKS BELOW

:NO - -BRANCH

(R4)+,-(SP)

#MSGMAX, -(SP)

SP,RO
CS$PNTF
#6,SP
(R4).

;ANY

SEEKS ABOVE

:NO- -BRANCH

6%
$$FLG
6%

THE HIGH LIMIT

;TYPE & OF SEEKS ABOVE LIMIT?

;NO,

SKIP IT

-2(R4),-(SP)

#MSGABV, -(SP)

SP,RO

CS$PNTF

000010

6%:

017336
000001

#10,SP

OMSGAVG, -(SP)
e1,-(SP)

000004

1FORM THE

AVERAGE

011176

012637
013746
012746
012746

010600
104417
062706
022737
001423
022737
001432
022737

017266
017266
017347
000002

7¢:

000006
000007

002114

000016

002114

000022

002114

(SP)
(SP)+,AVERAG

AVERAG, -(SP)
@AVGVAL
, -(SP)

#6,5P

@7,LS$TEST

8s
014, ,LSTEST
b1
018. ,L$TEST

;IS THE REMAINDER OVER HALF?
:NO - -BRANCH

; YES--ROUND UP

;POP AVERAGE VALUE FOR PRINT

1 TEST 7

1BRANCH IF SO
s TEST 14 ?

+BRANCH IF SO

s TEST 18 ?

L6
CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE
GLOBAL. SUBROUTINES SECTION
72 017142
73 017144

76
77

017150
017154
017160
017162
017164
017170
017172
017172
017176
017202
017206
017210
017212
017216
017220
017220
017224
017230
017234
017236
017240
017244
017250
017252
017254
017260
017260
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

BEQ
MOV
MOV
MOV
MOV

177776
017506

000002

000006

177776
017533
000002
000006

177776
017563
000002

TRAP
ADD
BR

MOV
MOV
MOV
MOV
TRAP
ADD

MOV

10%:

016606

11%:

012604
000204

;BRANCH IF SO

10¢

: SKIP

CS$PNTF
#6,SP

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

10¢

;s SKTP

-2(R4),-(SP)

OMSGOPE, -(SP)
#2,.-(SP)

TRAP

CS$PNTF

ADD

SEQ 0076

93
.
-2(R4),-(SP)
#MSGNUM, -(SP)
w2, -(SP)
SP,RO

MOV
MOV

MOV

000006
017264

33-2

SP,RO

#6,SP

MOV

RS,12¢%

;NEXT MESSAGE POINTER

MOV
RTS

(SP)+,R4
R4

::POP STACK INTO R4
sEXIT

.WORD
.WORD

O
O

;ADRRESS OF MSG 1
;:AVERAGE VALUE

BEQ
CLR
JMP

017264
017266

12%:
AVERAG:

017270
017313
017336
017347
017362
017434
017506
017533
017563
017615

MSGMIN: .ASCIZ
MSGMAX: .ASCIZ
MSGAVG: .ASCIZ
AVGVAL: .ASCIZ
MSGBEL: .ASCIZ
MSGABV: .ASCIZ
MSGNUM: .ASCIZ
MSGSEA: .ASCIZ
MSGOPE:: .ASCIZ
MSGNON: .ASCIZ

11$
RS
34

;IF NONE EXIT
sNO MORE THAN 2

/#NsSAMIN=#DS5#A0. US/
/#NsSAMAX=#DS#A0. US/
/wN®AAVG=/
/#DS#A0. US/
/#A #DAs#A. BELOW THE MINIMUM OF #DS#A0.
/#A #D4s#A. ABOVE THE MAXIMUM OF #DS#A0.
/#D5%A. SEEKS TIMED®N/
/#DS5#A. SEARCHES TIMEDSN/
/#DS#A. OPERATIONS TIMEDSN/
/#A NOT TIMEDSN/

US/
US/

.EVEN

sSUBR TO CHECK IF COMPLETE SPECS ON SEEKS SHOULD BE TYPED
+IF THE AVERAGE SEEK TIME IS ABOVE SPEC, THEN TYPE ABOVE AND BELOW VALUES
sELSE, DO NOT TYPE THEM
s$$FLG IS SET TO INDICATE TYPE THEM
017634
017640
017646
017650
017654

005037
122737

001017
016446
016446

017714
000011

000010
000012

002114

CHKAVG:

CLR

CMPB

BNE
MOV
MOV

$$FLG

+ INIT FLAG

24
10(R4),-(SP)
12(R4), -(SP)

1EXIT IF NOT
tPUSH LOW DIVIDEND OF TOTAL TIME OF ALL SEEKS
1PUSH HIGH DIVIDEND

09, ,LS$TEST

s TEST 9, AVERAGE SEEK TIMING ?

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 33-3

M6
SEQ 0077

GLOBAL SUBROUTINES SECTION

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

017660
017664
017670
017672
017676
017700
017702
017704
017706
017712
017714

016446

000014
011176

022664
002401

000014

004737
006116

005216
022602
003402
005237
000207
000000

MOV
JSR
ROL

1$:

017714

2$:
3s:
$S$FLG:

CcMP
BLT
INC
CMP
BLE
INC

14(R4), -(SP)

PC, $DIV

(SP)
(%P)O.IA(RO)
1

;PUSH DIVISOR = NUMBER OF SEEKS TIMED
:CALCULATE AVERAGE
+REM/2
+IS REM OVER HALF?
iNO, SKIP NEXT

(SP)
(SP)+,R2
3%

:EXIT IF NOT

RTS

$$FLG
PC

.WORD

:TYPE ALL

:YES,

ROUND UP AVG TIME

;:OUT OF SPEC?

:SET FLAG TO REPORT ALL DATA
SPECS FLAG

CZRJLBO RPO7 FCTNL TEST MACRO Vv04.00 1-DEC-83 12:59:38 PAGE 34

N6
SEQ 0078

VRNV
SB W -

GLOBAL SUBROUTINES SECTION

i THIS ROUTINE GENERATES RANDOM CYLINDER, TRACK, AND SECTOR
;ADDRESSES AND SAVES THEN IN THE DPB (DTADPB+10, 11 & DTADPB+12).
iNOTE: THIS ROUTINE DESTROYS R1-R3
;CALL
R4 ,RANADR
JSR
H
RETURN
H

017716
017722
10 017726

004737

113701

042701

011712
011774

RANADR:

JSR

MOvB
BIC

177700

PC,RAND
$RP1,R1
©177700,R1

:GENERATE A RANDOM NUMBER
;FORM SECTOR IN R1
sREDUCE SIZE TO <= 63

;BINARY SEARCH FOR FS<=R1lc=LS
14 017732

020137
003407

15
16
17
18
19
20

017736
017740
017744
017746
017750
017754

000241
006001
063701
000766

22
23
24
25
26
27
28
29
30
31

017756
017762
017764
017770
017772
017774
017776
020000
020002
020004

020137
002011
013702
010203
160102
000241
006002
160203
010301
000764

33 020006
34 020012
35 020016

110137
113701
042701

163701

002222

1$:

002220

cMP
BLE
SUB
CLC

002220

R1,LS
24
FS,R1

sWHILE R1>LS DO R1=FS+(R1-FS)/2

R1
FS,R1

002220

2s:

cMP

002222

R1,FS

34
LS,R2
R2,R3
R1,R2

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

R2
R2,R3
R3,R1
24

002640
011775
177740

3%:

MOVB

R1,0TROPB+10
$RP1+1,R1
€177740,R1

:SET RANDOM SECTOR IN DPB

:FORM TRACK

IN R1

+REDUCE SIZE TO <= 31

SEARCH FOR FT<=RlcsLT

54 020072
55 020074
56
57 020076

020137
003407
163701
000241
006001
063701
000766
020137
002011
013702
010203
160102
000241
006002
160203
010301
000764

110137

002244

cMP

002212

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

FT,.R1

002212
002212

R1,LT

Ss:

cHP

002214

FT.R1
44

R1,FT
64
LT,R2
R2,R3
R1,R2

iWHILE R1<FT DO R1=LT-(LT-R1)/2

Re
R2,R3
R3,R1

S¢

002641

64:

MOvVB

R1,0TADPB+11

:SET RANDOM TRACK IN DPB

CZRJILBO RPO7 FCTNL TEST MACRO vO4.00 1 -DEC 8%
GLOBAL. SUBROUTINES SECTION

58 020102
59 020106

«0
61
62
63
64
65
66
67
68
69

020112

004737
013701
042701

o11712
011774
176000

12:59:%8 PAGE

34-1

JSR

PC ,RAND

MOV

$RP1,R1

BIC

#176000,R1

SEG 0679
;GENERATE

RANDOM NUMBERS

;PICK ONE FOR C¥L INDER

sREDUCE

SIZE

<=1777

:BINARY SEARCH FOR FCesR1esC
020116
020122
020124
020130
020132

020134
70 020140
71
72 020142

020137
003407
163701
000241
006001
063701
000766

73
74
75
76
77
78
79

020146
020150
020154
020156

80
81
82
83
84

020166
020170

020137
002011
013702
010203
160102
000241
006002
160203
010301
000764

020172
020176

010137
000204

020160
020162
020164

002206

74:

002204
002204

CcMP
BLE
suB
CLC

002206

cMP
BGE
MOV
MOV
SuUB

R1,FC

ROR

SUB
MOV
BR

9s:

MOV

RTS

sWHILE R1>LC DO R1=FC+(R1-FC)s2

FC,R1

R1
FC.R1

CLC

002642

ROR
ADD

002204

R1,LC

sWHILE R1<FC DO R1=LC-(LC-R1)72

LC,R2
R2,R3

R1,.R2

R2
R2,R3
R3,R1
8s

R1,0TADPB.12

s SAVE CYLINDER ADDRESS

;RETURN

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

ocooo00000
ocooocoo000
oooooo00

RPSTUO:
RPSTUL:
RPSTI2:
RPSTU3:
RPSTU4:
RPSTUS:
RPSTU6:
RPSTU7:

coococoo00c0o

020200
020210
020220
020230
020240
020250
020260
020270

5EG 0080

RPO7 DRIVER

:STORAGE FOR RPDS, RPER1, RPER2,

AND RPER3
;0S,
;0S,

ER1,
ER1,

;:DS,
;:DS,
;:0S,

ER1,
ER1,
ER1,

:DS, ER1,

ER2
ER2
ER2
ER2
ER2
ER2
ER2
ER2

ER3
ER3
ER3
ER3
ER3
ER3
ER3
ER3

STORAGE
STORAGE
STORAGE
STORAGE
STORAGE
STORAGE
STORAGE
STORAGE

FOR
FOR
FOR
FOR
FOR

DRIVE
DRIVE
DRIVE
DRIVE
DRIVE

FOR DRIVE

.BYTE
.BYTE

.BYTE
.BYTE
.BYTE
.BYTE

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

NOVMBWN-O

020302
020303
020304
020305
020306
020307

DRVACT:

O0O0O00000

020300
020301

88888883

: TABLE OF DRIVE ACTIVE INDICATORS (DRVACT=8 BYTES)
;DRVACT=0 IF DRIVE IS IDLE
sDRVACT>0 IF DRIVE IS ACTIVE WITH A COMMAND
:DRVACT<0 IF DRIVE IS ACTIVE WITH AN ERROR RECOVERY OPERATION

.BYTE

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

~NOVMDWN-=O

DRVSTA:

00000000

020310
020311
020312
020313
020314
020315
020316
020317

88888888

s TABLE OF DRIVE STATUS INDICATORS (DRVSTA=8 BYTES)
tDRVSTA=0 IF DRIVE IS OFFLINE OR NONEXSITENT
sDRVSTA>0 IF DRIVE IS ONLINE
sDRVSTA<O IF DRIVE IS UNSAFE

DRVTYP:

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

iDRIVE
1DRIVE
1DRIVE
:DRIVE
;:DRIVE
1DRIVE
1DRIVE
;1DRIVE

~NONDWN=O

020320
020321
020322
020323
020324
020325
020326
020327

OC0000000

s TABLE OF DRIVE TYPES (DRVTYP=8 BYTES)
sDRVTYP=0 IF DRIVE IS NONEXISTENT (DRVSTA=0, ALSO)
sDRVTYP=5 IF DRIVE IS RPO7 MOVING HEAD OPTION
1DRVTYP=4 IF DRIVE IS RPO7 FIX HEAD OPTION
1DRVTYP=-1 IF NOT RPO7

88888888

5 (NN

.SBTTL

s TABLE OF DUAL PORT INITIALIZATION INDICATORS

NOWVMBWN
O

RPO7 DRIVER

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

MMM

CZRJLBO RPQ7 FCTNL

CZRJLBO RPO7 FCTNL
RPO?7 DRIVER

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

61
62

SEQ 0081

75
76
77 020340
78 020341
79 020342

020343
020344
020345
020346
020347

88888888

DPINT:

.BYTE
.BYTE
.BYTE
.BYTE
MBYTE
.BYTE
.BYTE
.BYTE

O
0
O
0
O
O
O
0

:ODRIVE
sDRIVE
:DRIVE
sDRIVE
;:ODRIVE
;:ORIVE
;:DRIVE
sDRIVE

O
1
2
3
4
5
6
7

s TABLE OF PENDING DUAL PORT REQUESTS
:OPRQS=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

88883888

64 020330
65 020331
66 020332
67 020333
68 020334
69 020335
70 020336
71 020337
72
3
74

OPRQS:

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

0
O
O
O
O
O
O
©

;:ORIVE
s:DRIVE
1DRIVE
;:DRIVE
;:DRIVE
;:DRIVE
:DRIVE
;:ORIVE

O
1
2
3
4
S
6
7

: TRANSFER WAIT FLAG (TRNSWT=1 WORD)

020350

sTHIS IS A ONE WORD QUEUVE. IT WILL CONTAIN THE ADDRESS OF
:“DPB” OF THE I/0 OPERATION.

92
93
94
95

TRNSWT:

.WORD

sSEARCH WAIT KEYS (SRCHWT=1 WORD)
s THIS IS A ONE WORD QUEUE THAT WILL CONTAIN A KEY FOR EACH OF
s+ THE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR
sREQUEST THAT IS AT THE TOP OF THEIR REQUEST QUEUE.

2%
97

THE

1/0

sEACH DRIVE IS ASSIGNED ONE BIT, STARTING AT BITOO FOR DRIVE 0.

98 020352
99
100
101

SRCHWT:

0203%4

ACTDRV:

102
103

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

80
81
82
83
84
85
86
87
88
89
90
91

35-1

.WORD

sRPO7 DRIVER ACTIVE FLAG (ACTDRV=1 BYTE)

sACTDRV=0 IF DRIVER IS INACTIVE
sACTDRV>0 IF DRIVER I5 ACTIVE
.BYTE

1 SOFTWARE TIMER ROUTINE ACTIVE FLAG (ACTSTR=1 BYTE)
sACTSTR=0 IF

SOFTWARE

TIMER ROUTINE

INACTIVE

sACTSTR>0 IF SOFTWARE TIMER ROUTINE IS ACTIVE
020355

020356
020360

177777
177777

ACTSTR:

.BYTE

s TIMEOUT

TABLE (TIMER=8 WORDS)
1 THIS TABLE CONTAINS THE

TIMER:

.WORD

-1

1DRIVE O

.WORD

-1

:DRIVE

TIME

ALLOWED FOR AN OPERATION

128

129 020376

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

;:DATE

TRANSFER UNDERWAY

5EQ 0082

;DRIVE
;DRIVE
;:DRIVE
;DRIVE
;DRIVE

;:DRIVE

INDICATOR (DTUW=1 WORD)

;:DTUW<O IF NO DATA TRANSFER UNDERWAY
;:DTUW=+N (WHERE N=0

177777

DTUW:

~ouUvasawn

177777
177777
177777
177777
177777
177777

..-

020362
020364
020366
020370
020372
020374

et e et et

118
119
120
121
122
123
124
125
126
127

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

CZRJLBO RPO7 FCTNL

RPO? DRIVER

.WORD

-1

TO 7)

IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N

CZRJLBO RPO7 FCTNL

RPO7 DRIVER

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

SEQ 0083

;RHXX/RPO7

sAVAILABLE

004737

17
18 020410
020412
19
20 020414
020420
21 020422
22 020426
23 020432
24 020436
25 020440
26 020442
27 020444
28 020450
29 020454
30 020456
31 020460
32 020464
33 020470
34 020474
35
36 020500
020504
020510
020514
020520
020522
37 020526
38 020534
39 020540

013746
012746
013746
012746
104437
062706
012777
013701
004437

:5 020546

000402

40 020544

43 020550
44 020554
45 020554
020556
46 020560
:; 020564
49

FOR

TESTING

AND

SET

THE

DRVSTA

;NOTE:

THIS ROUTINE

JSR
RETURN

PC,RPINIT

INDICATOR

CALLS DRVINT

s CALL

16 020404

CODE

15 020400

INITIALIZATION

;7O THE PROPER STATE FOR EACH DRIVE.

i0
11
12
13
14

DRIVER

: THIS ROUTINE WILL DETERMINE WHICH RPO7 DRIVES ARE

:
:
H
s:NOTE:
3

010750

RPINIT:

012000

104440
010046
012700
104441
004737
012701
012702
005021
020102
103775
012702
012721
020102
101774
005037
005037
005037
005037

000401

105061

012600
104441
004737
000207

000240

025350
020200
020356

1$:

020376
177777

2s:

020310
020312
020314
020316
002656
023046
002654
000003
000010

000040
002664
020566

162144
3%:

THE

'P'

JUSR

JSR

4% :
Ss:

011002

sDRIVE

‘L'

CLOCK MUST BE STARTED

PC,SAVREG
PC,ST.CLK

TRAP
MOV

C$GPRI
RO, -(SP)

MOV
TRAP
JSR
MOV
MOV
CLR
cMP
BLO
MOV
MOV
cMP
BLOS
CLR
CLR
CLR
CLR

#PRIOS,RO
C$SPRI
PC,.CLRQUE
#RPSTUO,R1
OTIMER,R2
(R1)+
R1,R2
1s
Q0TUW,R2
€-1,(R1).
R1,R2
24
DRVSTA
DRVSTA+2
DRVSTA+4
DRVSTA+6

MOV
MOV
MOV
MOV
TRAP
ADD
MOV
MOV
JSR

RPVEC+2,-(SP)
@ISRV, -(SP)
RPVEC, -(SP)
03,-(SP)
C$SVEC
€10,SP
OCLR,8RPCS2
DRVNO,R1
R4 ,DRVINT

020310

CLRB

DRVSTA(CR1)

MOV
TRAP
JSR
RTS

(SP)+,RO
C$SPRI
PC,RESREG
PC

INITILIZATION ROUTINE

:SAVE RO

- RS

;TURN ON THE CLOCK

:SAVE THE PRESENT PROCESSOR STATUS
sCHANGE THE PRIORITY TO S
;CLEAR ALL REQUEST QUEUES
:+FIRST ADDRESS TO BE CLEARED
;LAST ADDRESS TO BE CLEARED
;CLEAR
;ARE WE DONE?
1BRANCH IF NO
;LAST ADDRESS
sINITIALIZE
;:DONE ?
;LOOP IF NO
:SET ALL DRIVES TO OFFLINE

sSETUP RHXX/RPO7 VECTOR

sMASSBUS INIT
3sGET SELECTED DRIVE
s INIT THE DRIVE

:'DVA’'

NOT SET OR PARITY ERROR

sNORMAL RETURN

$SET DRIVE STATUS TO OFFLINE
tRESTORE THE PROCESSOR STATUS
tRESTORE RO
1BYE-BYE

- RS

CZRJLBO RPO7 FCTNL

G/
5EQ 0084

s THIS ROUTINE DETERMINES IF A DRIVE EXIST AND IF IT IS
:AN RPO7. IF IT IS, A "READ-IN PRESET” IS ISSUED AND FMT16

:IS SET TO A “1”,
;s INSURE

sCALL

010546
112761
006301
012761
105061

105061

010177

112777

032777
001403
004737
000513

105061

032777
001004
105761
001347
000501
004437
021100
012605

177777

020330

003720

020356

020310
020320
162054
000111
010000

DRVINT:

1ns:
162036
162040

025004
020310
004000

162006

18:

020330

024426

22%:

000004
020042

012746
004437

000121
024520

021100
012746
004437
000032

010000
024520

000005
020040

MOV
QDRVNUM,R1
JSR
R4 ,DRVINT
RETURN1
RETURN2

sORIVE NUMBER TO R1
:CALLED By A JSR
:ERROR OCCURRED (PARITY)
:NORPAL RETURN

MOV
:gxe

RS, -(SP)
Oil.DPINT(Rl)

1 SAVE RS
:SET THE INITIAL FLAG

MOV
ASR
CLRB
CLRB
MOV
MOV
BIT
BEQ
JSR
BR

92000., TIMER(R1)
;SET A 2 SECOND TIMER
R1
sORIVE ADDRESS

CLRB

DRVSTA(R1)

ggfl

R4 ,RD.RP

;:READ THE DRIVE

(SP)+,RS

:PUT DRIVE TYPE IN RS

920040,R5

1SINGLE PORT RPO7

BIT
BNE
TST8
BNE
BR

MOV

020320

177777

2%:

oBIT11,8RPCS1
224
DPINT(R1)
10¢
6%

:SET DRIVE STATUS TO OFFLINE

;SEE IF DRIVE AVAILABLE
:BRANCH IF DVA SET
:1SOFTWARE TIME OUT
:BRANCH IF NOT
;:OTHERWISE EXIT

TYPE REG.

:ERROR RETURN ADDRESS

BEQ
cHP
BEQ
MOVB
cHP
BEQ

24
024040,R5
24
@4 ,DRVTYP(R1)
#20042,R5
24

:BR IF YES
1DUAL PORT RPO7
1BR _IF YES
1SET RPO7+ INDICATOR
1SINGLE PPRT RPO7+
1BRANCH IF SO

BEQ

$+BRANCH IF SO

MOvVB

020320

PC SET.IE
68

s START DRIVE STATUS AS OFFLINE
sCLEAR THE DRIVE TYPE INDICATOR
s SELECT A DRIVE
300 A DRIVE CLEAR COMMAND (& SEIZE DRIVE)
;NONEXISTENT DRIVE?
iNO - - -BRANCH
:GO SET “IE” WITHOUT A “TRE"
;:LEAVE THIS ROUTINE

05,DRVTYP(R1)

CcMP

024042

DRVSTA(R1)
DRVTYP(R1)
R1,8RPCS2
¢111,8RPCS1
OBIT12 SRPCS2

MOVB

CcHP

024040

AND DEPENDING ON THEIR STATE,

;DRVSTA IS SET TO THE PROPER CONDITION,

112761
022705
001420
022705
001415
112761
022705
001407
022705
001404
112761
000446

THEN MOL, DPR, DRY, AND VV ARE CHECKED TO

THEY ARE ALL ON A “1”,

024042 ,R5

€-1,0DRVTYP(R1)

1SET RPO7 INDICATOR

1DUAL PORT RPO7+

;SET INDICATOR TO ‘OTHER'

1EXIT

MOV
gSR

0121, -(SP)
R4 ,WRT.RP

;D0 A "READ-IN PRESET"

8
MOV
JSR

oBIT12, (SP)
R4 ,WRT.R

tSET FMT16=1

ber———— a—

RPO?7 DRIVER

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

CZRJLBO RPO7 FCTNL

RPO7 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
132
133
134
135
136
137
138
139

021010
021012
021016
021020
021022
021024
021026
021034
021040
021042
021044
021046
021050
021056
021060
021062
021066
021070
021076

TEST MACRO v04.00

021100
004437
000012
021100
012605
100015
116177
004437
000014
021100
006126

1-DEC-83

002744

177777

161652

021102
021110
021112
021116
021120

000001

020310

177777

020356

g::
8$:

5EQ 0085

R4 ,RD.RP

;READ RPDS

(SP)+,RS

;AND SAVE

(SP).

:+IS IT UNSAFE?

;CHECK MOL, DPR, DRY, AND VV

IN RS

44
1BRANCH IF ATA=0
ATABIT(R1),aRPAS ;CLEAR ATTENTION BIT
R4 ,RD.RP
sFIND OUT WHY ATA=1

MOVB
BR

44
#-1,DRVSTA(R1)
64

BIC
BNE
MOVB
TST

@tC<BIT12!BITO8!BITO7!BIT06>,RS
6
;BRANCH IF MOL, DPR, DRY, OR vV IS CLEAR
#1,DRVSTA(R1)
;SET DRIVE STATUS TO ONLINE
(R4).
:STEP OVER THE ERROR RETURN

coM

ASL
MOV

ASR
CLRB
MOV
RTS

020330

36-2

BPL
MOvVB
Jzfl
1
8%
ROL
BPL

020310

167077

021100
021100

12:59:38 PAGE

8%
JSR
12
8s
MOV

024426

H /7

R1
#-1,TIMER(R1)
R1
DPINT(R1)
(SP)+,RS
R4

:BR IF NOT
;SET UNSAFE INDICATOR
sEXIT

;sWORD INDEX
1STOP THE CLOCK
:DRIVE ADDRESS
;RESTORE RS
sEXIT

;REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST

;CALL
:

140
141
142
143
144 021122
145 021122
021124
146
147 021126
021132
021134
021142

021146
021150
021154
021156
021162
021164
021170
021172
021176
021200
021204

:
:
B

:
H

RPO7:

104440
010046

RETURNZ2

TRAP

MOV

013700

002656

112737
004737
011402
005062
111201
105761

000001

004437
000421

020566

105761

020310

105761

020340

001016

JSR
R4 ,RPO7
PNTADR
RETURN1

010750

020354

000016
020310

14:

C$GPRI

RO, -(SP)
RPVEC+2,RO
C$SPRI
€1 ,ACTDRV
PC,SAVREG
(R4),R2
16(R2)
(R2),R1
DRVSTA(R1)

TSTB
BLE
TSTB

BNE

;RETURN HERE

IF QUEUE

IS FULL

;RETURN HERE IF REQUEST IS IN QUEUE OR THERE
;IS AN ERROR CONDITION

MOV
TRAP
MOvVB
JSR
MOV
CLR
MOVB
TST8

BGT
JSR

;CALL THE RPO7 DRIVER
;ADDRESS OF POINTER OF DRIVES PARAMETER BLOCK

;SAVE

THE CALLING STATUS

;:DON'T ALLOW ANY RPO7 INTERRUPTS
:SET

"ACTIVE DRIVER" FLAG

:SAVE RO

14
R4 ,DRVINT

;PICKUP THE DRIVE PARAMETER BLOCK POINTER
tCLEAR THE STATUS/ERROR INDICATOR
;PICKUP THE DRIVE NUMBER
sCHECK DRIVES STATUS
:BRANCH IF ONL INE
1GO INIT. THE DRIVE

DRVSTA(R1)
64
DPRQS(R1)

iNO ERROR
:IS DRIVE STATUS ONLINE?
1BR IF NOT
;OUTSTANDING PORT REQUEST FOR THE DRIVE

1ERROR RETURN

iBR IF YES

CZRJLBO RPO7 FCTNL

RPO7 DRIVER

162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193

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

021206
021212
021216

010177
004437
000452

161466
025452

021220
021224
021226
021232
021234
021234
021240

105761
001043
004737
000440

020300

004737
000435

022536

4%:

021242
021246

004437
000436

025452

S$:

021250
021256
021264
021266
021272

012777
032777
001023
004737
000420

000000
000100

021274

105761
002412
012762

020310

021300

021302
021310
021314
021316
021324

105761

001007
012762
000403

021326
021334
021340
021342
021344
021350
021352

012762
004737
005724
000402
004737
005724
105037

021356
021360
021362

012600
104441
000204

3s:

161450
161404

DRVACT(R1)

+IS THIS DRIVE ACTIVE?

JSR
BR

PC,.CI7
8s

:GO HANDLE THE PARITY ERROR

JSR

R4 ,DRVQUE
94

:PUT REQUEST

sWRITE THE CURRENT CYL REG
sIE BIT SET ?

TSTB

BNE
JSR
BR

MOV
BIT
BNE
JSR
BR

025004

000016

100002

000016

110000
011002

000016

011002

8s
PC,OPT
8s

g%ITO6.3RPCSI

PC,SET.IE
8¢
7%

THIS REQUEST

;QUEVE IS FULL

IN QUEUE

;BR IF YES
:CALL THE OPTIMIZER

IN QUEUE

:QUEVE IS FULL

:YES

:SET THE INTERRUPT

s RETURN

;SEE _IF DRIVE OFFLINE OR UNSAFE

;BR

IF UNSAFE

@8IT15!BIT14,16(R2)
;SET OFFLINE ERROR INDICATOR
DRVTYP(R1)
:SEE_IF OFFLINE OR NONEXISTENT
84
:BR IF OFFLINE
;BITIS'BITO116(R2)
;REPORT DRIVE NONEXISTENT

:GO TO EXIT

7%:
8s:

PC,RESREG

9¢:

PC,RESREG

10%:

020354

DRVSTA(R1)

6%:

140000
020320

;SELECT THE DRIVE

;PUT

JSR
BR

021364

S5EQ 0086

R1,8RPCS2
R4 ,DRVQUE

MOV

2s%:

#BIT1S5!8IT12,16(R2)

(R4).
104

(R4).

CLRB

ACTDRV

MOV

(SP)+,RO
C$SPRI

TRAP
RTS

;DRIVE IS UNSAFE

:RE STORE RO

- RS

:SETUP FOR NORMAL RETURN
sFINISH UP, THEN EXIT
;:RESTORE RO - RS
;CORRECT THE RETURN ADDRESS
;:CLEAR “ACTIVE DRIVER" FLAG
;RESTORE PRIORITY
sRETURN TO CALLER

sOPTIMIZER-CALLED FOR A PARTICULAR DRIVE
:

sCALL
:

021364
021370
021372
021374
021402
021406
021412
021414
021416
216 021422

004737
104440
010046
146137
105061
004737
005702
001472
010177
012777

010750

002744
020340
025526
161256
000111

OPT:

020352

161240

MOV
JSR

ODRVNUM,R1

sORIVE NUMBER TO R1

JSR
TRAP

PC,SAVREG

:SAVE RO

MOV
BICB
CLRB
JSR
TST
BEQ
MOV
MOV

PC.OPT

C$GPRI

1SETUP A COMMAND
- RS

ATABIT(R1),SRCHWT
1CLEAR LA SEACH FLAG
DPRQS(R1)
tRESET THE PORT REQ FLAG ##4s

PC,GETREQ
R2
74
R1,8RPCS2
#111,8RPCS1

1GET “DPB"” POINTER OF REQUEST
1IS THERE A REQUEST IN QUEUE?
iNO--BRANCH TO EXIT
;LOAD THE DRIVE ADDRESS #4ssass
;CLEAR THE DRIVE

SEQ 0087

RPO7 DRIVER

021430
021436
021440
021444

221 021446
222 021452

223
224
225
ggg

021460
021464
021466
021474

032777
001445
105761
003014

004737
012762

000400

161244

020310

10%:

025550
140000

000016

110000

000016

000150

000002

122762

000135

000002

105761
100054
012762
000450

020310

JSR
MOV

TST8
BPL
MOV
BR

0B1T18,8RPDS
sDOPR SET ?
5%
: 7O PROT REQUEST ,IF NOT
DRVSTA(R1)
+ IS DRIVE ONLINE?
1
s YES - -BRANCH
PC,POPQUE
sNO--REMOVE REQUEST FROM QUEUE
#BIT15!BIT14,16(R2)
;SET OFFLINE STATUS/ERROR INDICATOR
DRVSTA(R1)
+ IS DRIVE UNSAFE ?
84
;BR TO EXIT IF NOT
0BIT15!8IT12,16(R2)
$SET UNSAFE STATUS/ERROR INDICATOR
8%
;BRANCH TO EXIT

CMPB
BLT

€150,2(R2)
2

+IS THE REQUEST FOR I/0?
s YES - -BRANCH

BEQ

:BRANCH IF SO

TST
BGE
JSR
BR

DTUW
a3
PC,CI1
8s

:DATA TRANSFER UNDERWAY?
s YES--GO START A SEARCH
;START A DATA TRANSFER
:START A SEARCH
;GO TO THE EXIT

228 021476
229 021504

122762
002407

231 021514

001403

004737
000435

022126

235
236
237
ggg

021524
021530
021532
021536

005737
002003
004737
000427

020376

2s:

021630

3%:

240 021540
g:; 021544

004737
000424

022014

4s:

JSR
BR

PC.CI3
8s

243
244
245
246
247
248
249
250
251
252
253
254

112761
010103
006303
012763
012777
000402
004737
032777
001002

177777

020340

5S¢%:

047040
000000

020356
161132

022536
000100

161060

MOVB
MOV
ASL
MOV
MOV
BR
JSR
BIT
BNE
JSR

#-1,0PRQS(R1)
:SET PORT REQUEST INDICATOR
R1,R3
:SET UP TO ADDRESS WORDS
R3
;CONVERT TO WORD INDEX
©20000., TIMER(R3)
$SET A 20. SECOND TIMER
00,8RPCC
:SET PORT REQUEST
7%
sEXIT
PC,CI7
:PROCESS THE PARITY ERROR
o8IT06,8RPCS1
sSEE _IF 'IE’' ALREADY SET
-3
:BR IF SET

MOV
TRAP
JSR
RTS

(SP)+,RO
C$SPRT
PC,RESREG
PC

230 021506
232 021516
sgz 021522

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

004737

012600
104441
004737
000207

025004

011002

1%:

BIT
BEQ
TSTB
BGT

CcMPB
JSR
BR

6$:
7%:
8%:

#135,2(R2)

PC,.CI4
8s

PC,SET.IE

+IS THE CIAGNOSTIC COMMAND ?
:CALL THE COMMAND INITIATOR
:BRANCH TO EXIT

;SET "IE“ WITHOUT A "TRE"
;RESTORE PROC. STATUS
sRESTORE RO

- RS

S——

217
218
219
220

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 36-4

1</
CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 37

SEQ 0088

RPO7 DRIVER
WO NOUNS LN

;:COMMAND INITIATOR
CALL

MOV
MOV

JSR

#DRVNUM,R1
#0PB,R2

PC,CI?

:DRIVE NUMBER
;ADDRESS OF DPB

;CI?= CI1,.CI3, OR CI4
s WHERE
:

;:CI1=DATA TRANSFER
;CI3=SEARCH REQUESTED BY DATA XFER
:CI4=NOT DATA TRANSFER

025550
020350

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
021722
021726

062703
062704
012324
012324
012346
004437
000006

000004
000002

021630

021634
021640

021730
021732
021734
021740
021742
021744
021750
021752

021754
021760
021764
021766
021770

022536
012346
004437

022536
032712
001407
005046
052716
004437

002670
161026
000135

CIl:

JSR

000002

#DIAG,2(R2)
14

4(R2),-(SP)

000004
100000
024520

o0MD, (SP)

R4 ,WRT .RP

1$:

ADD

024520

R4 ,WRT .RP

024520

R4 ,WRT .RP

100000

#8IT15,(R2)

100000

-(SP)
#8IT15,(SP)

(R3)+,-(SP)

024520

022536
016246
004437

013704
010177
016246
004437

022536

@4 ,R3
#2.R4
(R3)+,(R4).

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

R4 ,WRT.RP

24:

MOV

022536
010137
000137
022014
022020
022024
022030
022034
022036

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

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

R1,0TUW

CI5

CI3:
024520

MOV

RPCS1,R4
R1,8RPCS2

12(R2),-(SP)

R4 ,WRT.RP

+REMOVE REQUEST FROM “DRIVES WAIT"” QUEUE
sPUT REQ. IN TRANSFER WAIT QUEUE
;:OPB ADDRESS TO R3
:RPCS1 ADDRESS
: SELECT DRIVE
:DIAGNOSTIC COMMAND ?
:BRANCH 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

;:DESIRED WORD COUNT
sRPWC ADDRESS

:LOAD WORD COUNT
:LOAD BUFFER ADDRESS
1LOAD SECTOR AND TRACK

;CALL THE LOADC(WRITE) ROUTINE
s INDEX OF REGISTER TO LOAD
+RETURN HERE ON ERROR
:LOAD CYLINDER ADDRESS
;RETURN HERE ON ERROR
+MAINTENANCE 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

;RETURN HERE ON ERROR
:LOAD “COMMAND+GO”,

"A17EA16",

;+RETURN HERE ON ERROR

$SET “DATA TRANSFER UNDERWAY"

1RPCS1 ADDRESS
1+ SELECT DRIVE
1+DESIRED CYLINDER ADDRESS
+RETURN HERE ON ERROR

AND "PSEL"

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

SEQ 0089

RPO7 DRIVER

58
59
60
61
62
63
64
65
66
67
68
69
70

022040
022044
022050
022052
022054
022062
022064
022066
022072
022076
022100
022102
022102

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

000010
024520

000131
024520

;2 022124

012746
004437
000000
022536
156137
000552

77 022126

013704

002670

79 022136

116203

000002

71 022106

72 022112
73 022114
74 022116

78 022132

010177

100000

000000

100000
024520

002744

160542

1%:

020352

CIa:

80
81
82
83
84
85
:9

022142
022146
022150
022154
022160
022162
022164

122703
001007
016246
004437
000006
022536
000403

88
89
90
91
92
93
3;

022166
022172
022174
022200
022204
022206
022210

122703
001007
016246
004437
002034
022536
000531

000105

1%:

000012
024520

24:

96
97
98
99
100
101
102
103
104

022212
022216
022220
022224
022226
022230
022234
022240
022242

122703
001013
004437
000032
022536
116216
004437
000032
022536

000115

107 022246
108 022252

122703
001510

000107

{gg 022244

109 022254
110 022260

111
112
113
114

022262
022266
022270
022274

000131

000010
024520

3%:

024426
000001
024520

4as:

000117

000147
024426

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

MOV
JSR
0
CI?
BISB
BR

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

MOV

RPCS1,R4

sRPCS1 ADDRESS

MOVB

2(R2),R3

sPICKUP

MOV

CMPB
BNE
MOV
JSR
6
CI7
BR

000513

122703
001505
122703
001014
004437
000032

MOV
JSR
6
eI7
BIT
BEQ
CLR
BIS
JSR
24
c17

S%:

#BIT15,0(R2)
1
-(SP)
#BIT15,(SP)
R4 ,URT .RP

s+THE SECTOR AND TRACK ADDRESS
:LOAD DESIRED TRACK & SECTOR
sRETURN HERE ON ERROR
sMAINTENANCE MODE ?
:BRANCH IF NOT

:SET DMD BIT ONLY,THE REST BITS MUST BE 0
+RETURN HERE ON ERROR
:START A SEARCH

;RETURN HERE ON ERROR
ATABIT(R1),SRCHWT
+SET “SEARCH WAIT" KEY

CIS

R1,8RPCS2

@SEARCH,R3
14
10(R2) (SP)
R4 ,WRT
2

CMPB
BNE
MOV
JSR
34
CI?
BR

OSEEK,R3
34
12(R2) (SP)
R4 ,WRT

CMPB
BNE
JSR
32
CI7
MOVB
JSR
32
CI7

OOFFSET R3

CIe

:SELECT DRIVE

THE REQUESTED COMMAND

+IS IT A SEARCH COMMAND?
:BRANCH IF NO
:LOAD DESIRED TRACK & SECTOR
;RETURN HERE ON ERROR
:GO LOAD CYLINDER
+IS IT A SEEK COMMAND
:BRANCH IF NO
;:LOAD DESIRED CYLINDER
;RETURN HERE ON ERROR

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

+IS IT AN "OFFSET" REGISTER CHANGE COMMAND ?
18R IF NO
tMERGE THE OFFSET VALUE INTO RPOF
:BUT DON’'T CHANGE THE UPPER
tRETURN HERE ON ERROR
;:BYTE WHEN LOADING THE
+REGISTER (RPOF)

CIe

tRETURN HERE ON ERROR
:GO START THE COMMAND

CMPB
BEQ

ORECAL ,R3
CIé

+IS IT A “RECALIBRATE"” COMMAND?
1BRANCH IF YES

CcMPB
BEQ

CMPB
BNE
JSR
32

R4 RD.RP

ORTC,R3
CIé
OSETFORM,R3
64
R4 ,RD.RP

+IS IT A RETURN TO CENTER?
+BRANCH IF YES

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

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 37-2

M7
SEQ 0090

RPO7 DRIVER

115 022276

116 022300
117 022306
118 022312
119 022314
120 022316
121
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
146
147
148
149
150
151

022536
116266
004437
000032
022536
000445

000001
024520

000141

116237
116205
004437
000000
022536
012623
023705
001423
062737
000764

000010
000011
024426

122703
001007
012746
004437
000024
022536
000405

000145

010346
004437
000000
022536
004737
052762
004737
000207

022452
022454
022462
022464
022472

006301
012761
006201
112761
000207

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

MOvB

JSR
32

CI7
BR

122703
001023
016203

022420
022422
022426
022430
022432
022436
022444
022450

C17

000001

6%:
78:

022350
8%:
9$:

1(R2),1(SP)

R4 ,WRT.RP

12$

#GETRFG,R3
10$
6(R2),R3

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

R4 ,RD.RP

(SP)+,(R3)+

022350

9% ,.R5

124

022350

02,94

10%:

100000
024520

11%:

024520

OMAINT ,R3
11$%

;RETURN HERE ON ERROR

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

tRETURN HERE ON ERROR
;IS IT A "GET REGISTER” COMMAND?
sBRANCH IF NO

;POINTS TO 1ST ADDRESS OF WHERE

:TO PUT THE REGISTER(S)
;INIT., THE INDEX FOR THE FIRST REG.
;sINDEX OF LAST REG. TO MOVE
;READ RHXX/RP0O7 REGISTER
;INDEX OF REG. TO READ
;RETURN HERE ON ERROR
;GET THE CONTENTS OF RHXX//RPO7 REG.
;LAST REG.

BEEN READ?

:GET OUT IF YES
; INCREASE THE INDEX BY 2
;LOOP--MORE TO READ

R4 ,WRT.RP

o0MD, -(SP)

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

124

sEXIT

R3,-(SP)
R4 ,WRT.RP

:LOAD THE COMMAND

;RETURN HERE ON ERROR

: INDEX OF REG.
025550
000200
024644

000016

001750

020356

000001

020300

100000

12¢%:

13%:

#8I707,16(R2)

:E « SVRHXX

:SET

THE

“DONE” BIT

:YES--GO SAVE THE REGISTERS
;RETURN TO USER

CIS:

R1
210
, TIMER(R1
00.
)
:SET A ONE SECOND TIMER
R1
#1,DRVACT(R1)
:SET THE DRIVE ACTIVE
PC
tRETURN TO THE USER

CI6:

:exr1s.o<na)

-(SP)
#B8IT15,(SP)

100000
024520

024520

PC.POPQUE

TO WRITE

sRETURN HERE ON ERROR
sREMOVE REQ. FROM QUEUE

R4 ,WRT.RP
1%:

R4 ,WRT .RP

CIS

tMAINTENANCE MODE ?
1BRANCH IF NOT
i

sSET DMD BIT ONLY
s THE REST BITS MUST BE O

tRETURN HERE ON ERROR
:LOAD THE COMMAND
s INDEX OF REG.

TO WRITE

tRETURN HERE ON ERROR

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 37-3

N7
SEQ 0091

RPO7 DRIVER

172
173
174
175
%;?

022536
022536
022540
022542
022544

005702
001001
000207
012762

178 022552
179 022556
180 022562
181 022564
182 022566
183 022572
184 022576
185 022602
186 022606
187 022610
188 022614
igg 022622

012746
004437
000000
022624
004737
105061
105061
020237
001005
005037
012737
000207

191
192
193
194
195
196
197
198

004737
005001
005003
105761
001003
105761
001443
013702

199
200
201
202
203
204
205
206

022624
022630
022632
022634
022640
022642
022646
022650

022654
022660
022662
022666
022670
022672
022700
022702

228; 022710

020137
001402
004737
005702
001413
032777
001404
012762

000403

209 022712
210 022720
211 022726
212 022732
213 022736
214 022742
215 022744
216 022752
217 022756
218 022760
219 022764
220 022770
221 022772
222 023000
223 023004
224 023010
5222 023016

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

227 023020
228 023024

004737
105061

CI7:
1%:

104000

000016

2%:

000111
024520

CI7B:

025432
020340
020300
020350

2s:

020350
177777

020376

010750

1%:
CIs:

020300

1%:

020340
020350
020376

224:

025526

24:

010000

160000

100002

000016

102000
177777
020300
020340
020376

000016
020356

177777
020350

020376

Ss:

000002
177770

177777
020350
025350
000040
025432
020310

3%:
4$:

020376
157662
64:

TST
BNE
RTS
MOV

R2
sANYTHING IN QUEUE ?
2
:BRANCH IF QUEUE IS THERE
PC
s OTHERWISE EXIT
#BIT15!BIT11,16(R2)
:SET "PARITY” ERROR INDICATOR

MOV
JSR
0
Cc1s
JSR
CLRB
CLRB
CMP
BNE
CLR
MOV
RTS

2111, -(SP)
R4 ,WRT .RP
PC,.EMPTYQ
DPRQS(R1)
DRVACT(R1)
R2, TRNSWT
1
TRNSWT
@-1,0TuM
PC

JSR
CLR
CLR
TST8B
BNE
TST8
BEQ
MOV

PC.SAVREG
R1
R3
DRVACT(R1)
224
DPRQS(R1)
S$
TRNSWT ,R2

:ORIVE ACTIVE?
:BRANCH IF IN ACTIVE
;PORT REQUEST
:BRANCH IF NOT
sGET THE “TRANSFER WAIT" QUEUE

s CONTINUVE

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

#8IT15!BIT10,16(R2) ;SET “NON-CLEARABLE PARITY” ERROR INDICATOR
@-1,TIMER(R3)
;STOP THE TIMER
DRVACT(R1)
+SET “DRIVE ACTIVE” TO IDLE
DPRQS(R1)
1CLEAR PORT REQUEST FLAG
R1,0TUW
+IS THIS DRIVE SETUP FOR A TRANSFER
S¢
1BR IF NOT
0-1,0TuM
tRESET THE INDICATOR
TRNSWT
tCLEAR THE TRANSFER QUEUE
R1
tMOVE TO THE NEXT DRIVE
02,R3
@tC7,R1
1s
1BRANCH IF MORE DRIVES
0-1,0TuM
iNO DATA TRANSFERS UNDERMWAY
TRNSWT
iCLEAR THE 'TRANSFER WAIT' QUEUVE
PC,CLRQUE
1CLEAR ALL OF THE REQUEST QUEUES
OCLR,8RPCS2
1D0 A MASSBUS INIT.
7
1 CONTINUVE

JSR
CLRB

PC.EMPTYQ
DRVSTA(R1)

CMP
BEQ
JSR
TST
BEQ
BIT
BEQ
MOV

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

:SAVE RO - RS

R1,0TuW
:DID THIS DRIVE HAVE AN I/0O IN PROGRESS?
24
1BRANCH IF YES
PC,.GETREQ
:GET THE DPB POINTER
R2
:QUEVE ENTRY FOR DRIVE ?
43
:BR IF NOT
#8IT12,8RPCS2
;'NED’' SET ?
3
;B8R IF NOT
@BIT15!BITO1,16(R2)
;SET 'DRIVE NON-EXISTENT' INDICATOR

;CLEAR THE DRIVE'S QUEUE
:SET DRIVE TO OFFLINE

229
230
2%1
282

023030
023034
023040
023044

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

105061
004737
004737

000207

020320
025004
011002

7%:

37 4

CLRB
JSR

DRVIYP(R])
PC,SET, IE

RTS

JSKR

~-~
——

CZRJILBO RPO7 FCTNL

RPO7 DRIVER

PC,RESREG

SEG 0092

sCLEAR THE DRIVE TYPt INDICATOR
$SET "IE” WITHOUT “TRE
+RESTORE RO - RS
s RETURN

CZRJLBO RPO7 FCTNL
OO NNl

RPO7 DRIVER

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

SEQ 0093

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

112737
005237
004737
013701
002403
004737
000402
004737
004737
105037

000001

002246

020354

ISRV:

010750

MOvVB

INC

JSR

020376

MOV

BLT
JSR

023116

023304
011002
020354

1s:
2%:
L10012:

JSR
JSR
CLRB

3SET

"ACTIVE DRIVER” FLAG

ISRCNT

sCOUNT INTERRUPTS

DTUW,R1

sGET "DATA TRANSFER UNDERWAY” INDICATOR

PC,SAVREG

1
PC,TD

PC,SC
PC,RESREG
ACTDRYV

iSAVE RO

;BRANCH IF NO DATA TRANSFER UNDERWAY
sCALL TRANSFER DONE
sEXIT

;CALL SPECIAL CONDITIONS
tRESTORE RO - RS
;CLEAR "ACTIVE DRIVER”" FLAG

RT1

: TRANSFER DONE ROUTINE

020300

023116
023122
023130
023132
023140
023142
023146
023152
023160
023164
023170
023172
023174
023176

177777

020350
020350
000200

157514

TD:

CLRB

:‘KS)V
L

020356

000016

TRNSWT ,R2
TRNSWT

;:GET “DPB” ADDRESS FROM THE
; TRANSFER WAIT QUEUE--CLEAR QUEUE

gSR

012777
000416
052762
004737
004737
012777
012777
000400

BNE

157464

MOvVB
ST

3%:

157374
157366

;SELECT THE DRIVE

sRETURN HERE ON ERROR

1BR IF YES

0135,2(R2)

s IE FROM DIAGNOSTIC COMMAND ?

ATABIT(R1),8RPAS

PC.GETREQ

s YES--SAVE THE REGISTERS
;BRANCH IF NOT

sRESET THE ATA BIT

:GET DP8 POINTER

$ENTRY FOR DRIVE

1BR IF NOT

JSR

PC.OPT

MOV

€113,8RPCS1

8IS

eBIT1S!8IT06, 16(“2)

MOV
MOV

“Olll.flPCSI
#113,8RPCS1

000016

040111
000113

JSR

BEQ

100100

025432
024644

;s TRANSFER ERROR(TRE=1)?

PC, SVRHXX

002744

2%:

R4,RD.RP

JSR

cMPB

157422

:SET DONE

(SP).

000002

000113

#B8IT707,16(R2)

R1,8RPCS2

ROL
BMI

021364

iNO DATA TRANSFERS UNDERWAY

MOV
CLR

MOV

1%:

$SET DRIVE ACTIVE INDICATOR TO IDLE
; CANCEL TIMEOUT

000135

025526

:-I.DTW

:il.TIPER(Rl)

CI?

024644

DRVACT(R1)

P‘g;

BIS

024426

005702
001403
004737
000422

023274
023302

020376

JSR
JSR

1CALL OPTIMIZER

1CHECK OTHER DRIVES
tRELEASE THE DRIVE

sCHECK FOR OTHER DRIVES

PC.EMPTYQ
PC.,SVRHXX

tEMPTY THE “DRIVE'S WAIT” QUEUE
1SAVE THE RHXX/RPO7 REGISTERS

1CHECK FOR OTHER DRIVES

$1SET DATA ERROR FLAG

s ISSUE A “DRIVE CLEAR"
1 ISSUE A RELEASE TO THE DRIVE

;sSPECIAL CONDITION ROUTINE
023304
023310
023312
023316

117703

001014
004437
000000

15737¢
024426

SC:

MOVB

SRPAS ,R3

iREAD “RPAS"

JSR
0

R4 ,RD.RP

;READ CONTROL AND STATUS REGISTER

BNE

1BRANCH IF ANY *‘ATA'

BITS SET

CZRJLBO RPO7 FCTNL
RPO7 DRIVER

58
59
€0
61
62

63
64
65
66
67
68
69
70
71

023320
023322
023324
023326
023330
023332
023334
023340
023342
023344
023346
023352
023354

023356

72 023360

73 023362
74 023364
75
76
77
78
79

80
81
82
83
84
85

87
88
89
90
91
92
93
94
95
96
97
98
99
100
101

023366
023370
023372
023372
023376

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

022624
106126
100405
000240
000240
000240
004737
000207
005046
110316
012703
005001
030316

106303
001373

SCa:

INC

sMOVE TO THE NEXT DRIVE

SCS:
1%:

2%:

023766
020310

023426
023432
023434
023440
023442

105761
003405
105761
001035
004737

020310

023446
023452

105761
100421

000240
000240

109
110
%ig

SCS:

020340

000137
105761
003011
004737
004737
004737

113 023526
114 023530

104

:SET INTERRUPT ENABLE
s RETURN
:PROCESS ALL DRIVES THAT HAVE
sAN “ATA"=1

BNE

025526
024644
023702

020300

Ss:

023702
020310

6%:

020204

020000
000111

024520
7%:

8%:

SC5

tATA=1?

s YES - -BRANCH

ASLB
BNE

R3
SC3

(SP)+
PC

tBRANCH IF MORE TO CHECK?
sCLEAN OFF THE STACK
tRETURN TO USER

TST8
BEQ

CPRQS(R1)
24

sPORT REQUEST OUTSTANDING
1BR IF NOT

TST8
BLE
T1ST8
BNE
JSR

DRVSTA(R1)
63
DRVACT(R1)
SCé
PC,sC12

:DID DRIVE COME ONLINE?
#NO - - -BRANCH
3DRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY
:BR IF EITHER
$SAVE RPDS, RPER1, RPER3, AND RPER2
+ALSO DO A DRVINT

1ST8
BMI

DRVSTA(R1)
74

sCHECK ON DRIVE'S STATUS
:1BR IF UNSAFE

TST
RTS

023400
023404
023410
023412
023416
023422

;RETURN H &' ON ERROR
1 IS "IE”=12
s YES, NO DRIVES TO CHECK

PC,SET.IE
PC
-(SP)
R3,(SP)
41,R3
R1
R3,(SP)

1%:
2s:

005726
000207

105761
001402

(SP)e.
14

SEG 0094

NOP
JSR
RTS
CLR
MOVB
MOV
CLR
BIT

000001

005201

006301
006301
006301
016105
006201
006201
006201
032705
001012
012746
004437
000000
023562
011605
000240
000240
000715

105
106
107
108

025004

001005

023454
023456
023460
023462
023466
023470
023472
023474
023500
023502
023506
023512
023514
023516
023520
023522
023524

102
103

¢
ROLB
BMI
NOP
NOP

38-1

JMP
TST8
8GY
JSR
JSR
JSR

ASL
ASL
ASL
MOV
ASR
ASR
ASR
BIT
BNE
MOV
JSR
0o
SC8
MOV
NOP
NOP
BR

NOP
NOP

SC13
DRVSTA(R1)
Ss
PC.GETREQ
PC ., SVRHXX
PC.sSC12

R1
R1
R1
RPSTUO+4(R1),R5
R1
R1
R1
oBIT13,RS
8s
e111,-(SP)
R4 ,WRT .RP

1START THE OUTSTANDING COMMAND
;CHECK THE DRIVE STATUS
:BRANCH IF ONLINE
sGET DPB POINTER
1SAVE THE RHXX/RPO7 REGISTERS
$SAVE RPDS, RPER1, RPER3, AND RPER2

sALSO DO A DRIVE INIT (DRVINT)

+ADDRESS PLUG CHANGED
1BRANCH IF SO
1DRIVE CLEAR

(SP),RS

tWRITE THE COMMAND INTO RPCS1
tREGISTER INDEX
tPARITY EXIT ADDRESS
tPICKUP (RPAS) BEFORE THE ERROR CALL

SCa

1GO CHECK FOR MORE ATA'S

CZRJLBO RPO7 FCTNL

RPO7 DRIVER

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

115 023532

000712

117 023534

006301
012761
006201
004737
010177
000137
105761
001405
004737
004737
000402

116

118 023536
119 023544
120 023546
121 023552
122 023556
123 023562
124 023566
125 023570
126 023574
127 023600
128
129 023602
130 023606
131
132 023612
133 023612
134 023616

135
136 023624
137
138
139

140
141
142

146

147
148
149
150
151

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

152
153
154
155
156
157
158
159
160
161
162
163 023762
164 023764
165
023766
023766
023772
024000

020300

105061
136137

020300
002744

116177
146137

010177
006301
006301
006301
017761
017761
017761
017761

SC6:

SC8:

025526
022536

022552
023360

001007
004737
052762
004737

020356

025526
157122
023612

004737
000137

006301
012761
006201
004737
000137

143
144
145

177777

025550

18:
28:

020352

000200
024644
002744
002744

000016

177777

020356

157034
020352

SC11:
1$:

2%:

105761

156706
002744

020330

sCHECK FOR MORE DRIVES

ASL
MOV

R1
#-1,TIMER(RL1)

sSETUP TO ADDRESS WORDS
1STOP THE TIMER

ASR

sRESTORE

TST18

DRVACT(R1)

JSR
MOV
JMP

sCi2:

020200
020202
020204
020206

DRIVE

ADDRESS

;GET THE DPB POINTER FROM THE QUEUE
1 SELECT DRIVE
;PROCESS THE SEARCH

13
PC,GETREQ
PC,CI7
2

s YES- -BRANCH
:GET OPB POINTER
;+PROCESS THE PARITY ERROR
;sCONTINUE

JSR
JMP

PC,CI78
SCa

;PROCESS THE UNCORRECTABLE PARITY ERROR
;CHECK MORE DRIVES

CLRB
BITB

DRVACT(R1)
;SET DRIVE IDLE
ATABIT(R1),SRCHWT
;DOING A SEARCH OPERATION FOR

BNE

2¢

BEQ
JSR
JSR
BR

: IS DRIVE IDLE?

;AN I/0 COMMAND?

:1BRANCH IF YES

JSR

PC,.POPQUE

ASL

sWORD INDEX

sRESTORE R1

BIS
JSR
MOVB
8ICB

MOV

@-1,TIMER(R]1)

1STOP CLOCK

PC,OPT
SCa

1START A REQUEST
sCHECK FOR MORE DRIVES

R1,8RPCS2

:SELECT DRIVE

R1
R1
R1

ASR
ASR
ASR

R1
R1
R

B8R

MOV
MOV
MOV
MOV

sREMOVE REQUEST FROM QUEUVE

081707,16(R2)
:SET "DONE” BIT
PC,SVRHXX
;:YES--SAVE ALL OF THE RHXX/RPO7 REG'S
ATABIT(R1),8RPAS
;CLEAR ATTENTICN BIT
ATABIT(R1),SRCHUT
sCLEAR IMPLIED SEEK SET

ASL
ASL
ASL

JSR

SRPDS ,RPSTUO(R1)
SRPER1 ,RPSTUO+2(R1)
SRPER2 ,RPSTUO+4(R1)
SRPER3 ,RPSTUO+6(R1)

R4 ,DRVINT

sINIT.,

RTS

tRETURN

1%:

TST
BR

(SP).
scs

sCLEAR THE STACK
s+PROCESS THE PARITY ERROR

SC13:;
3

ASL
:g:

R1
:il.TIHER(Rl)

1SETUP TO ADDRESS WORDS
1STOP THE TIMER

MOV
MOVB

R1,8RPCS2
1SELECT THE DRIVE
ATABIT(R1),8RPAS
;CLEAR THE ATTENTION BIT

156706

THE

PC.GETREQ
R1,8RPCS2
SC11

ASR

020566

010177
116177

SCa

JSR
JMP

156772

156762
156756
156774
156770

MOV

021364
023360

SEQ 0095

1%:

TST8B

THE STATE OF THE DRIVE

s TAKE ERROR EXIT

DPINT(R1)

s INITIALIZING THE DRIVE ?

CZRJLBO RPO7 FCTNL
RPO7 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
024074
024100

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

001424

105061
004437
000240
105761
003014
005702
001423
004737
052762
004737
004737
000411

020330

BEQ

sBR IF NOT

JSR
NOP

R4 ,DRVINT

;GO INIT THE DRIVE
;DUMMY PARITY ERROR RETURN

CLRSB

020566
020310

TSTB
BGT
TST

025526

140000

024644
025550

032777
001003

000400

004737
000402

025004

004737
000137

021364
023360

PC,.GETREQ

sGET DPB ADDRESS

JSR
JSR

PC,SVRHXX
PC,POPQUE

s SAVE THE REGISTERS
;REMOVE THE QUEUE

BIT

oB8IT8,aRPDS

sDVA SET ?

JSR

PC,SET.IE

JSR
JMP

PC,OPT
SCa

BNE
ASL
:(s)x

:
:
H

44:
3s:

1ORIVE ONLINE ?
t1BR IF YES -- START ORDER

JSR

BIS

2%:

DRVSTA(R1)
28

tCLEAR THE INIT INDICATOR

sQUEVE ENTRY FOR

156616

DPINT(R1)

BEQ
000016

SEQ 0096

:BR IF NOT

OBIT15!'BIT14,16(R2)
3

THE DRIVE

;;INFORP USER THAT DRIVE OFFLINE

43
;SET THEN CALL OPT
R1
:?OOOO.JIFER(RI);SET A 60. SECOND TIMER
34

:1START THE PENDING REQUEST
;PROCESS OTHER DRIVES

;éiPO? TIMER ROUTINE
:

H
H
024104
024110
024112
024120
024124
024126
024130
024134
024136
024144
024146
024152
024154
024156
024162
024164
024170
024174
024176

020354
000001

010750

RPTMR:
020355

020356
000002

024200

OTIME, -(SP)
PC.RPTMR

;ELASPED TIME IN MILLISECONDS ON THE STACK
;CALL RPO7 TIME ROUTINE

TST
BNE

ACTDRV
4%

;CHECK "ACTDRV € ACTSTR”
:IF NON ZERO EXIT

JSR
(c:t:

PC,SAVREG
:g

$SAVE RO - RS
1START WITH DRIVE O

MOVB

18:
020356

TST

2s:

3%:
44

#1,ACTSTR

TIMER(R3)

sSET “ACTSTR”

;IS THE TIMER RUNNING?

BLT

$BRANCH IF NO

JSR
INC

PC,.STO
R1

;CALL SOFTWARE TIMEOUT ROUTINE
sMOVE TO NEXT DRIVE

cHP

#8. ,R1

;OUT OF DRIVES?

JSR
CLRB

PC,RESREG
ACTSTR

sRESTORE RO - RS
1ZERO ACTIVE SOFTWARE TIMEOUT ROUTINE FLAG

RTS

SUB
BGT

000010
011002
020355

MOV
JSR

TST

BGT

MOV

2(SP),TIMER(R3)
2t
(R3).

(SP)+,(SP)

;COUNT THE INTERVAL
1BR IF NO SOFTWARE TIMEOUT

1BRANCH IF NO

sADJUST THE STACK
1RETURN

1SOFTWARE TIMEOUT ROUTINE
H

sNOTE:

;
3

228

sCALL:

THIS ROUTINE MUST BE ENTERED AT PRIORITY 6

OR GREATER

STO
MOV

ODRVNUM,R1

1DRIVE NUMBER

CZRJLBO RPO7 FCTNL

RPO7 DRIVER

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

229

230
2%l

232 024200
233 024202
234 024204
235 024206
236 024210
237 024214
238 024220
239 024222
240 024226
241 024230
242 024234
243 024236
ca4 024244
245 024250
246 024252
247 024254

024262
024264
024272
024276
024302
024306
024314
024316
024322
024334
024340
024342
024344
024352

024354

024362
024366
024372
024374
024376
024404
024410

024414
024416

010146
010246
010346
010446
013702

020137
001421
105761
001033
105761
001047
012763
004737
005702
001460
052762
000454
052762
004737
105061
005037
012737
000437
105061

105061

012763
004737
005702
001424

RE TURN

JSR

PC,STO

s CALL

ST0:

MOV
MOV
MOV
MOV
MOV
CMP

R1,-(SP)
R2,-(SP)
R3, -(SP)
R4, -(SP)
TRNSWT ,R2
R1,DTUM

1SAVE R1-R4
:
:
;
iPICKUP THE TRANSFER QUEUE
: TRANSFER UNDER WAY ON THIS DRIVE

TSTB
BNE
TSTB
BNE
MOV
JSR

DPINT(R1)
24
DPRQ@S(R1)
3s
@-1,TIMER(R3)
PC,.GETREG

sORIVE INITIALIZE ?
+BRANCH IF SO
+PROT REQUEST ?
:BRANCH IF SO
1STOP THE TIMER
:GET THE QUEUE

BEQ

020330
020340

101000

101000
024644

020356

000016

177777

020330
020310
177777
025526

1%:

BIS
JSR

020356

000016

177777

020356

020340
100004
024644

025432

ggv

g;l.DTW

DPINT(R1)
DRVSTA(R1)
@-1,TIMER(R3)
PC.GETREO

S%:

024420
024422
024424

MOV

;Elig?fl THE TRANSFER DRIVE ¢

1CLEAR THE INITIALIZE INDICATOR
$SET UNIT TO OFFLINE
;STOP THE TIMER
:GET _THE DPB ADDRESS

;STOP THE TIMER

PC.GETREQ

+GET DPB ADDRESS

DPRAS(R1)

TST

aCLEM THE PORT REQUEST INDICATOR
sANYTHING IN QUEUVE

1BRANCH IF NONE

MOV
JSR

001715'8172 16(R2) s INFORM USER OF PROT REQUEST TIMEOUT
PC.SVRHXX
tREAD ALL REGISTERS

MOV
MOV
MOV
MOV

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

tROUTINE

H
:
:

;CLEAR DATA TRANSFER QUEUE

@-1,TIMER(R3)

CLRB

JSR

RTS

;DRRIVE SET TO IDLE

sANYTHING IN QUEUVE
;BRANCH IF NOT
gfllflS'BITl‘ 16(R’2_}Nign'fm THE USER DRIVE NOT AVAILABLE

BEQ

4s:

s+ON HOUSE KEEPING COMMANDS

JEXIT

TRNSWT

JSR

000016

s TIME OUT OR LOUST INTERRUPT

DRVACT(R1)

CLRB
CLRB
MOV
JSR

025526

IF NONE

#BIT15!BIT9,16(R2)

CLRB

TST
BEQ
g'I‘S

3%:

sEXIT

#BIT15!BIT9, 16(92)
s TIME OUT ON DATA TRANSFER
PC, SVRHXX
sREAD ALL REGISTERS

CLR

2s:

$BRANCH IF SO

020376

140000

BIS

020300
020350

;ga

000016

SEG 0097

020350
020376

177777
025526

PC,EMPTYQ

sCANCEL ALL QUEUVE REQ

sEXIT

tRESTORE R4-R1

TO READ A RHXX/RPO7 REGISTER

JSR
INDEX
ERRADR

R4,RD.RP

1GO READ A REGISTER
+REG. INDEX FROM BASE

+ERROR ADDRESS
- -PROCESS ERROR STARTING

tAT

RETURN

THIS ADDRESS

1CONTENTS OF REG.

————

- S—————

IS ON THE STACK

—_—— e

CZRJLBO RPO7 FCTNL

RPO7 DRIVER

286

287 024426

288
289
290
291
292
293
294
295
296
297

024426
024430
024434
024436
024444
024450
024454
024462

024464

024472
024474
024502
024504
024506
024510
024514
024516

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

SEQ 0098

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

RD.RP:

(SP),-(SP)
RPCS1, -(SP)
(R4)+,(SP)
a(SP),4(SP)
RPCS1,(SP)
©10,(SP)

002670

002670
000010
010000

0BIT12,8(SP)

14
;?ITI!.GRPCSI

156176
1$:

MOV

2(SP),4(SP)
(SP)+,(SP)+
(R4),R4

2s:
3s:

ADD
TST
RTS

1SAVE R4
s ADDRESS OF THE
iREG

tREAD THE CONTENTS OF

THE REG

sCHECK IF NON-EXIST DRIVE
:

;NED BIT SET ?
;ERROR EXIT
sMCPE SET ?
sEXIT
sMOVE THE R4 TO TOP OF STACK
;CLEAR OFF THE STACK

;ERROR EXIT ADDRESS

02,R4

(SP)«

EXIT

sNORMAL EXIT

sCLEAR OFF STACK
sEXIT

sROUTINE TO WRITE A REGISTER
s CALL
:

3
H
:

024520
024520

024522

024524
024532
024534
024540

024542
024546

024552
024554
024560
024566
024572
024576

024606
024612
024616
024624
024626
024632
024634
024636
024640
024642

012446
001014
122766
002410
017746
000316
042716
111666

063716
016676
013716
062716
032776
001013
013716
062716
032776
001003
000401

011404
005726
012616
000204

WRT.RP:

000150
156130
177770
000007
002670
000004
002670
000010
010000

18:

002670
000014
000010

000002
24:
3

MOV
JSR
INDEX

DATA, -(SP)
R4 ,WRT.RP

ERRADR

sADDRESS TO RETURN TO ON AN ERROR

RETURN

:ERROR FREE RETURN

MOV
BNE
cMPB
BLT
MOV
SWAB
BIC
MOVB

(R4)+,-(SP)
1s
#150,4(SP)
1
8RPCS1, -(SP)
(SP)
@+C7,(SP)
(SP),7(SP)

ADD

RPCS1,(SP)

TST

MOV

MOV
ADD
BIT
BNE
MOV
ADD
BIT
BNE
ADD
BR
MOV
TST
MOV

RTS

;:DATA TO BE LOADED ON THE STACK
sCALL THE ROUTINE TO LOAD(WRITE) THE REG.
s INDEX OF THE REGISTER TO BE LOADED

(SP)e

4(SP),8(SP)

RPCS1,(SP)
€10,(SP)
#BIT12,8(SP)
24
RPCS1,(SP)
#14,(SP)
oBIT3,8(SP)
24
#2,R4
3
(R4),.R4
(SP)e
(SP)+,(SP)

sFORMING THE REG ADDRESS

:BRANCH IF NOT RPCS1

sDATA XTRNS COMMAND ?

+BRANCH IF NOT

t+READ RPCS1
+MERG THE A17,A18,PSEL BITS

:CHOP OFF THE REST BITS FROM RPCS1

sATTACH A17,A18,PSEL TO COMMAND

sRESTORE STACK LEVEL

1+ THE DEST REG ADDRESS

tWRITE THE REGISTER
1CHECK NED,PAR BITS
H

tNONE EXIST DRIVE ?
1BRANCH IF IT IS
1ADDRESS RPER1
3

sPAR SET ?
1BRANCH IF SO

1NORMAL RETURN
1EXIT
sERROR EXIT
;CLEAR OFF THE STACK

tMOVE R4 TO TOP OF STACK

tEXIT

+ROUTINE TO SAVE THE RHXX/RPO7 REGISTERS AS PER DPB+14

CZRJLBO RPO7 FCTNL

RPO7 DRIVER

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

343
344
345
346
347

SEQ 0099

sCALL
:

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
367 024736
368 024740
369 024746
370
371 024750
372 024754
373 024760
374 024762
024766
024772
024774
024776
024776
025002

004437
000000
024750
012623
023727
001406
062737
000751

024426

004737
005737
001406
013704
063704
012423
011413

022536
002662

004737
000207

011002

SVRHXX;

010750

#DPBNUM,
R2

1DOPB POINTER TO R2

PC,SAVREG

31 $SAVE RO-RS

PC, SVRHXX

348 024644

349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366

R2
14,

156020

(R2),8RPCS2
14(R2),R3

000014

024722
024722

000022

000200

155770

38
38,022
2s
@BITO7,3RPCS2
24
(R3).

1%:

2%:
3s:

024722

000046

000002

024722

R4 ,RD.RP
0o

002652
002660

JSR

;'OR* SET ?
;BR IF SET

;STORE RPDB AS ZEROES
;sCONTINUE

sPROCESS THE UNCORRECTABLE PARITY ERROR
?
+IS IT RH70
:IF EQ, NO

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

RTS

sEXIT IF NO ADDRESS
sCOUNTER € POINTER
;REACHED THE BUFFER REGISTER ?
:BR IF NOT

PC,CI7
RHTYPE
74

RPADR,R4
RHEXT ,R4

78:

tGET THE ERROR TABLE POINTER

02,34
1s

34,046
64

Ss:
64:

;QUEVE ENTRY FOR THE DRIVE ?
;BR IF NONE
s SELECT DRIVE

;READ THE SELECTED REGISTER
;REGISTER INDEX
;ERROR RETURN ADDRESS
;STORE THE REGISTER CONTENTS
sREACHED THE END ?
:BR IF YES
;sINCREMENT THE REGISTER INDEX
;CONTINUE READING THE REGISTERS

(SP)+,(R3)+

4%:

$SAVE THE DRIVES REG’'S (RHXX= RH11 OR RH70)

PC.RESREG
PC

:GET RPCS1 BASE ADDRESS

sPOINT

TO RPBAE

:STORE THE CONTENTS
:GET RPCS3

1 sRESTORE RO-RS
+RETURN

sROUTINE TO SET THE INTERRUPT WITHOUT GETTING A

sCALL
:
:

"TRE"

QDRVNUM,R1

;DRIVE NUMBER TO R1

RPCS1,R4

;1SAVE R4
1PICKUP ADR OF RPCS1
:1SELECT DRIVE

PC,SET.IE

:SET "IE”

025004

025012
025016
025020
025024
025026
025032
025040
025042
025044

010446
013704
010177
011446
052716
000316
112714
032777
001002
005726
000402

SET.IE:

002670
155662

sREAD RPCS1

040000
000100
010000

155640

eBITi4,(SP)
1SET THE “TRE” BIT OF THE WORD READ
(SP)
sADJUST FOR DATO
o8IT06,(R4)
1SET "IE”
08IT12,8RPCS2 ;IS “NED"=17
18
1YES--CLEAR “TRE"
(SP)«
1CLEAN OFF THE STACK
24

CZRJLBO RPO7 FCTNL

RPO7 DRIVER

398 025046
399 025052

400 025054

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

112664
012604
000207

000001

18:
2%:

MOvVB
MOV
RTS

(SP)+,1(R4)
(SP)+,R4

5EQ 0100

:CLEAR "TRE"

;RESTORE R4

tRETURN TO CALLER

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

I<8
SEQ 0101

0
©
©
O
O
0
0
O

;DRIVE
sDRIVE
;ORIVE
;ORIVE
;DRIVE
;:ORIVE
sDRIVE
;DRIVE

~NOVMB WO

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

;DRIVE
;ORIVE
;DRIVE
;ORIVE
;DRIVE
sDRIVE
;:DRIVE
;DRIVE

NoOVMA WO

025065

; QUEVE COUNT

QCNT:;

NS WO

025056
025057
025060
025061
025062
025063

8883888

OWRENONHWN
-

RPO7 DRIVER

;QUEUE INPUT POINTERS
QINPT:

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

QDRVO
QDRV1
QDRV2
QDRV3
QDRV4
QDRVS
QDRV6
QDRV7

;sQUEVE OUTPUT POINTERS
QOUTPT :

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

QDRVO
QDRV1
QDRV2
QDRV3
QDRV4
QDRVS
QDRV6
QDRV7

;:DRIVE
;DRIVE
;:DRIVE
;:ORIVE
;DRIVE
;DRIVE
;DRIVE
;ORIVE

QSTART:
QSTOP:

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

QDRVO
QDRV1
QDRvV2
QDRV3
QDRV4
QDRVS
QDRV6
QDRV?7
QTERP

sDRIVE O START ADDRESS
sDRIVE O STOP ADDRESS &€ DRIVE 1 START ADDRESS
;STOP DRIVE 1--START DRIVE 2
:STOP DRIVE 2--START DRIVE 3
1STOP DRIVE 3--START DRIVE 4
1STOP DRIVE 4--START DRIVE S
1STOP DRIVE S--START DRIVE 6
:STOP DRIVE 6--START DRIVE 7
:STOP DRIVE 7

sDRIVE REQUEST QUEUES

025350

QDRVO:
QDRV1:
QDRV2:
QDRV3:
QDRV4;
QDRVS:
QDRV6:
QDRV7:
QTERP=

.BLKW
.BLKW

10
10

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW

10
10
10
10
10

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

RPO7 DRIVER

L&
SEQ 0102

;

;ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES

sCALL

7 025350

004737

11 025364
12 025366

005022
005022

8 025354
9 025360
10 025362

13 025370
14 025374
15 025400

16 025402

17
18
19
20
21
22
23

025404
025406
025412
025416
025420
025422
025424

gg 025430

012702
005022
005022

012703
012701
012122

010750

CLRQUE:

025056

000207

JSR

000010
025126

24:

011002

PC,SAVREG

:SAVE RO

(R2)+
(R2)+

sDRIVES 4 £ S
s:DRIVES 6 € 7

OQCNT ,R2
(R2)+
(R2)+

MOV
MOV
MOV

#8.,R3
#QSTART,R1
(R1)+,(R2)+

BNE
MOV
MOV
MOV
DEC
BNE
JSR

14
#8.,R3
#QSTART,R1
(R1)+,(R2)+
R3
24
PC,RESREG

RTS

1$:

000010
025126

PC,CLRQUE

MOV
CLR
CLR
CLR
CLR

005303

001375
012703
012701
012122
005303
001375
004737

JSR

DEC

3_6,

;EMPTY THE QUEUVE SPECIFIED BY R1

28
29

s CALL
:

025432
025436
025440
0254456
025450

105061
006301
016161
006201
000207

025056

sMOVE THE STARTING
;ADDRESS OF THE QUEUE INTO
; THE QUEUVE INPUT POINTER
sMOVE THE STARTING ADDRESS
;OF THE QUEUE INTO THE
;QUEVE OUTPUT POINTER
;RESTORE RO - RS

025066

025106

sROUTINE
-

MOV

DRVNUM,R1

CLRB
ASL
MOV
ASR
RTS

QCNT(R1)
sCLEAR NUMBER OF ITEMS IN QUEUE
R1
QINPT(R1),QO0UTPT(R1) ;SET OUTPUT QUEUE POINTER=INPUT POINTER
R1
PC

JSR

EMPTYQ:

TO PUT

;:DRIVE NUMBER TO R1

PC.EMPTYQ

A REQUEST

IN QUEUE

40
41
42
43

s CALL
:
:
:

a4
:2

f
:

47 025452

48
49
S0
S1
52
53
54
55
56
57

32
33
34
35
.:»_6

;ZERO THE QUEUE COUNTS
;DRIVES 0 € 1
;DRIVES 2 € 3

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

025066
000002
025066

025066
025130

025126

025066

14:

MOV
MOV
JSR

RETURN1
RETURN2
CMPB

BEQ
INCB
ASL
MOV
ADD
cMP
BNE
MOV
ASR
TST

®DRVNUM,R1
o0PB,R2
R4 ,DRVQUE

;:DRIVE NUMBER
s ADDRESS OF PARAMETER BLOCK
1GO PUT REQUEST IN QUEUE

€10,QCNT(R1)

+IS QUEVE FULL?

;RETURN HERE IF QUEUE IS FULL
;RETURN HERE IF REQUEST IS IN QUEUE

24
1BR IF YES-TAKE RETURN1
QCNT(R1)
s INCREMENT QUEUE COUNT
R1
R2,8QINPT(R1)
1PUT THIS REQUEST IN QUEUE
02,QINPT(R1)
sUPDATE THE QUEUE POINTER
QINPT(R1),QSTOPCR1) ;TIME TO RESET THE POINTER
1
;BRANCH IF NO
QSTART(R1),QINPT(R1) ;YES--RESET POINTER
R1
(R4).
1 TAKE RETURN 2

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

M&
SEQ 0103

RPO7 DRIVER

025524

000204

28:

RTS

;RETURN TO USER

:ROUTINE TO GET THE “DPB"” ADDRESS OF NEXT REQUEST IN QUEUE
:

s CALL

H
H

MOV
JSR

RETURN

#DRVNUM,R1

PC,GETREQ

025526
025530
025534
025536
025540
025544
025546

0C5002
105761
001404
006301
017102
006201
000207

GETREQ:

025056

1%:

025106

2%:

CLR
TSTB
BEQ
ASL
MOV
ASR

RTS

QCNT(R1)
24

R1
8QOUTPT(R1),R2
R1
PC

:ORIVE NUMBER TO R1
1GO GET THE REQUEST
:R2="DPB"” ADDRESS OF THE REQUEST
:R2=0 IF NO REQUEST IN QUEUE
+IS THERE ANY REQUEST IN QUEUE?
- -BRANCH
iNO-

:PICKUP "“DPB"” POINTER FOR THIS DRIVE
sRETURN TO USER

sROUTINE TO “POP” THE REQUEST FROM QUEUE
H

sCALL
3
H
3
025550
025554
025556
025562
025566
025574
025602
025604
025612
025614

105361
006301
017102
005071
062761
026°.61
0010C3
016161
006201
000207

025056

POPQUE:

025106
025106
000002
025106

025106
025130

025126

025106

1%:

MOV
JSR
RETURN
DECB
ASL

MOV
CLR
ADD
cMP
BNE
MOV
ASR

RTS

PC.POPQUE

ODRVNUM,R1

;DRIVE NUMBER TO R1
;CALL TO REMOVE REQUEST
;R2=ADDRESS OF DPB REMOVED

gENT(RI.)

sDECREMENT QUEUE COUNT

8QOUTPT(R1),R2
8QOUTPT(R1)
#2,Q0UTPT(R1)

:GET THE "DPB” POINTER
sREMOVE DPB ADDRESS FROM THE QUEUE
tUPDATE THE QUEUE POINTER

;:RETURN TO USER

QOUTPT(R1),QSTOP(R1) ;TIME TO RESET THE POINTER?
14
sNO--BRANCH TO EXIT
OSTMT(RI ). QOUTPT( R1) ;YES--RESET THE POINTER
R1

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 42
REPORT CODING SECTION
12

.SBTTL

40
42
43
a4
45
46
47 025616
48

60
61 025616
025620

REPORT CODING SECTION

i
+

THE REPORT CODING SECTION CONTAINS THE
"PRINTS” CALLS THAT GCNERATE STATISTICAL REPORTS.

‘--

L$RPT::
000167

.WORD
.WORD

62
74
75

JSJMP
L10013-2-,

.EVEN

76 025622

025622

104425

L10013:

TRAP

CSRPT

SEQ 0104

CZRJLBO RPO7 FCTNL

PROTECTION

TABLE

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

.SBTTL

6
4

10 025626

ié 025630

TABLE

8 025624
9 025624

PROTECTION

556G 0105

THIS

TO PROTECT

TABLE

IS USED BY

THE

LOAD MEDIA,

RUNTIME

SERVICES

’--

000000
177777

000006

LSPROT::

0
-3

;P -TABLE
:NOT

OFFSET

CSR

A MASSBUS DEVICE

:P-TABLE OFFSET DRIVE ¢

NS (-

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 44
INITIALIZE SECTION
.SBTTL

INITIALIZE

C
5EQ 0106

SECTION

i
i

025632

THE INITIALIZE SECTION CONTAINS
AT THE BEGINNING OF EACH PASS,

THE CODING

THAT

IS PERFORMED

LSINIT::

025632
025634

104433
012737

015406

002262

025642
025650

012737
005037

000001
002246

002244

025654
025660

012700
104447

000034

TRAP

103002
000137
012700
104447

@1,ITCNT
ISRCNT

sRESET

OEF .CON,RO

CS$REFG
18

026276
18:

000035

CONTIN
CS$REFG
3

003064
000001
000004
177777
177777
002650
002650

sCALLED BY SFTW DRVRS

ITERATION COUNT

;CLEAR INTERRUPT COUNTER
sPOWER UP SEQUENCE ?
:GO TO 4% IF YES

sCONTINUE COMMAND ?
:GO TO 1% IF NO

:GO TO *CONTIN'

I'STA'

IRESI

OEF .NEW,RO

103016
012746
012746
010600
104417
062706
012737
012727
000000
005237
023737
002166
012702
012703

1ABORT PASS ON DEV FATAL ERROR DETECTED IN 'ERRABO’,

QEF .PWR,RO

000036

sRESET THE WORLD

#ABOPAS ,BYPASS

CSREFG

103432
012700
104447

CSRESET

OCRLF, -(SP)

002650

002012

28:
3s:

4s:

000024
002670

0-1,(PC).
0
UNIT
UNIT,LSUNIT
ABORT

IF YES
OR 'NEW PASS'

:1GO TO 3¢ IF NO, MUST BE NEW 'SUB-PASS'
siCR-LF

sRESET UNIT COUNT
sRESET CLOCK MESSAGE FLAG
1CLOCK MESSAGE FLAG GOES HERE
$GET NEXT UNIT NUMBER FOR TESTING
sOUT OF UNITS TO TEST ?
1BR IF YES

1RHXX/RPO7 REGISTER COUNT

1DATA SINK

$GET UNIT FROM HARDWARE P-TABLE

002650

1SAVE R3

1AND THE BASE ADDRESS

Ss:

011034
002662

PC,SIZE70
RHTYPE

1DERIVE NEW ADDRESS
1LOG IT IN NEW TABLE
1COUNT LOGGING
1R2 NOT ZERO, CONTINUE LOGGING
1SEE_IF RH70 IS PRESENT

+IS IT AN RH70 ?

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 44-1
INITIALIZE SECTION
49 026030

50
51
52
53
54
55
56
57
58
59
60
61
62

026032
026036
026040
026042
026044

026046
026050

64
65
66
67
68
69
70
71

72
73

74
75

001406
013702
061502
010223
005722
010213

022626
012537
012537
012537
011537

004737
013705
105765
100443
001054
105765
001425
100012
010546
012746
012746
010600
104417
062706
000700

010546
012746
012746
010600
104417
062706
000666
010546
012746
012746
010600

76
77

78
79

026240
81 026244
82 026246

BEQ

002660

002652
002654
002656
002664

MOV
ADD
MOV
TST
MOV

6%:

020400

JSR
MOV
TST8
BMI
BNE

020310

020320

TST8

BEQ

BPL

MOV
MOV
MOV
MOV
TRAP

005362
000002

7¢:

005327
000002

005737
100061
005237

5EG 0107

6%
RHEXT ,Re
(R5),R2
R2,(R3)+
(R2)+
R2,(R3)

1BR IF NO

(SP)+,(SP)+
(R5)+,RPADR
(R5)+,RPVEC
(R5)+,RPVEC+2
(R5),DRVNO

tRESTORE STACK
s SAVE RPCS1 BASE ADDRESS
s SAVE INTERUPT VECTOR ADDRESS

PC,RPINIT

s INITIALIZE THE SUB-SYSTEM
;PICKUP DRIVE & AS AN INDEX
;CHECK DRIVE STATUS: IF NOT AVAILABLE,
s UNSAFE BRANCH
sDRIVE OK
sNED + OFL ?
sNED BRANCH: NON-EXISTENT DRV
sOFL BRANCH: OFF -LINE

DRVNO,RS
g?VSTA(RS)

104
DRVTYP(RS)
84
7%

;GET RPBAE OFFSET
;1ADD BASE ADDRESS TO OFFSET
'§AVE NEW RPBAE
sADD 2
1 SAVE NEW RPCS3

$SAVE

TNTERUPT PRIORITY

1SETUr DRIVE NUMBER FOR UNIT N

ONOTMSG, -(SP)

SP,RO
CSPNTF
06,5P
34

sEXIT BLOCK

RS, -(SP)

Q0FLMSG, -(SP)

SP,.RO
CSPNTF
06,SP
3

005270

sEXIT BLOCK

ONEDMSG, -(SP)

000002

SP,RO
CSPNTF

104417
062706
000654

010546
012746
012746
010600
104417
062706
000642

cMP

MOV
MOV
MOV
MOV

06,SP
3

005237
000002

$EXIT BLOCK

QUNSMSG, -(SP)

000006

1DRV NOT AVAILABLE:
002260
025742

10¢:

CLKSTA

EXINIT
24

TRY ANOTHER

t1ORV IS OK! WHAT CLOCK TYPE?
tUPDATE,

CAN CLOCK MESSAGE BE TYPED ?

TRY ANOTHER DR.VE

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 44-2
INITIALIZE SECTION
83 026252

84
8s 026254
026260
026264
026266
026270
026274
87
88 026276
89 026276
026302

026306
026312
026316
026320
026324
026330
026332

026334

026340
026346
026352
026354
026356
026362
026364
026366
026366
026372
026374
026374
026400
026402
026404
026406

026410
026416
026424
026432

001056

012746
012746
010600
104417
062706
000445

004317
000001

013746
012746
013746
012746
104437
062706
004737
104432
000320

002656
023046
002654
000003

004737
012777
005737
001410
100404
013700
104436
000403

012364
000040
002260

013700
104436

012240

013700
104436
104444

002654

000010
012000

MOV
MOV
MOV
TRAP
ADD

ONOCLK, -(SP)
01, -(SP)
SP,RO
CSPNTF
04,SP

154332

ABORT:

012230

RPVEC+2, -(SP)
@ISRV, -(SP)
RPVEC, -(SP)
@3,-(5P)
C$SVEC

JSR

PC,ST.CLK

.WORD

L10015-.

JSR
MOV
TST
BEQ
BMI
MOV

PC,STOPCK
OoCLR,8RPCS2
CLKSTA
24
1%
PKV,RO

TRAP

1$:

2%:

MOV

EXINIT:

10,5P
CSEXIT

C$CVvEC

SEQ 0108
1BR IF NO

:PRINT

'NO P-CLOCK,

TIMING

CsCveC

MOV
TRAP

RPVEC,RO
C$CVEC

TRAP
TRAP

CS$DCLN
CSEXIT

MOV
MOV
MOV
MOV

DRVNO,DPB.A
DRVNO,DPB .8
DRVNO,DPB.C
DRVNO,DTADPB

115
116
117
118

MOV
MOV
MOV

154226

MOV

MOV
MOV

TRAP

3s:

ADD
MOV
CLR

sSETUP RHXX/RPO7 VECTOR

sSTART CLOCK

;STOP THE CLOCK

sMASSBUS INIT TO CLEAR IMPENDING INTERRUPTS
;RELEASE APPROPRIATE CLOCK VECTOR

:NO CLOCK, SKIP
;L-CLK
;s SKIP

L10015-.

1STUFF DRIVE NUMBER IN DPB TABLES

ROL
ROL

04 ,R1
DRVNO, 8RPCS2
DRVNO, -(SP)
QDSNMSG, -(SP)
02, -(SP)
SP,.RO
CSPNTF
06,5P
8RPSN, -(SP)

14 DIGITS
1SELECT DRIVE

(SP)
R2

1PUT NEXT DIGIT

BE EXECUTED’

:SKIP NEXT INTERMEDIATE BRANCHING

sPRINT DRIVE SERIAL NUMBER
012701
013777
013746
012746
012746
010600
104417
062706
017746
005002
006116
006102

TESTS WILL NOT

LKV,RO

TRAP

.WORD

002550
002570
002610
002630

EXINIT

MOV
MOV
MOV
MOV
TRAP
TRAP

000244

013737
013737

EXINIT

ADD

104432

013737
013737

BNE

CONTIN:

tFETCH S/N

1+ ZERO OUTPUT

INTO R2

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 44-3
INITIALIZE SECTION

119 026510
120 026512

121 026514
122 026516
123 026520
124 026522
125 026524
126 026530
127 026534
026540
026544
026550
026552
026554
128 026560
129 026562
026564
131
132 026566
026572
026576
026600
026602

006116
006102
006116
006102
006116
006102
062702
010237
012746
012746
012746
010600
104417
062706
005301
003347
005726
012746
012746
010600
104417
062706

004737
012737
112737
112737
004437
012737

ROL
ROL
ROL

104411

5EQ 0109

(SP)

OQDRVSN, -(SP)

sMAKE RESULT ASCII
;SAVE R2 FOR PRINT

OSNDIGT, -(SP)

SP,RO
C$PNTF
06 ,SP

01,-(SP)

SP,RO
CSPNTF

000004

012724
026334

000020
000147
014374
015406

;COUNT DOWN DIGIT
sNEXT DIGIT
sRESTORE STACK

sCR-LF

003064
000001

04,5P

PC,LDCMD
@ABORT ,BYPASS

:LOAD COMMAND IN DPB.B, DPB.C FOR SEEK TESTS
1BYPASS ROUTE ON RP DRIVER FATAL ERROR
$1SET 16 BIT FORMAT
OSETFORM,DPB.A+2
:SET FORMAT MODE (16 BIT)
R4,CALL.A
:GO EXECUTE THE COMMAND
©ABOPAS ,BYPASS
sRESTORE ABORT ADDRESS FOR ‘'ERRABO’ DEV FATAL ERROR

002262
002551
002552
002262

104432
000002

026652
026652

re9

CSEXIT
L10015-.

L10015:

CSINIT

G9
2

CZRJLBO RPO7 FCTNL
AUTODROP SECTION

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

5EQ 0110

1
e
2
4

.SBTTL

()

;3 SEE IF THEY WILL RESPOND.

1o
;

THIS CODE

THE

SECTION

IS EXECUTED

;

; DROPPED FROM TESTING.
'——

<
10 026654

17 026654
026654

104461

IMMEDIATELY

"ADR" FLAG WAS SET.

L$SAUTO::
L10016:

TRAP

CsAuTO

AFTER

THE

INITIALIZE

CODE

THE UNIT(S) UNDER TEST ARE CHECKED TO

THOSE THAT DON’'T ARE IMMEDIATELY

CZRJULBO RPO7 FCTNL

TEST MACRO v04.00

1-DEC-83

OO NN
NN -

CLEANUP CODING SECTION

24
25

12:59:38 PAGE 46

.SBTTL

S5EQ 0111

CLEANUP CODING SECTION

HE A4

THE CLEANUP CODING SECTIOM CONTAINS THE CODING THAT IS PERFORMED

AFTER

THE HARDWARE

TESTS HAVE BEEN PERFORMED.

LSCLEAN:
:

012700
104441
012777
013777
004737
005737
001410
100404
013700
104436
000403

22
23

000340
000040

012364

MOV
TRAP
MOV
MOV

154006
154000

002260

013700
104436

012240

013700

002654

1$:

2s:

104432

000002

104412

L10017:

C$SPRI
oCLR,8RPCS2
DRVNO, 8RPCS2

JSR

PC,STOPCK

BEQ
BMI

24
1

TST

012230

OPRIO7,RO

CLKSTA

MOV
TRAP
BR

PKV,RO

MOV

LKV,RO
C$CveC

MOV
TRAP
TRAP
. WORD

RPVEC,RO

TRAP

CSCLEAN

TRAP

C$CVEC
2s

CsCVEC
CSEXIT

L10017-.

:SET PRIORITY TO 7
sMASSBUS INIT TO CLEAR IMPENDING INTERRUPTS
:GET DRIVE NUMBER
:STOP THE CLOCK
;RELEASE APPROPRIATE CLOCK VECTOR
;NO CLOCK, SKIP

iL-CLK
;P-CLK VECTOR RELEASE

;L-CLK VECTOR RELEASE

:RPO7 VECTOR RELEASE

CZRJLBO RPO7 FCTNL TEST MACRO vO4.00 1-DEC-83 12:59:38 PAGE 47

SEQ 0112

DROP UNIT SECTION
é

.SBTTL

DROP UNIT

THE DROP-UNIT

SECTION CONTAINS

5
6

:+ TO NO LONGER BE
8-

13 026746

L$DU: :

18 026746
:9 026750

31
32
33 026752
026752

SECTION

000167
000000

.WORD
.WORD

TESTED.

JsUMP
L10020-2-.

.EVEN
104453

L10020:

TRAP

Ccsov

THE

CODING

THAT

CAUSES A DEVICE

CZRJLBO RPO7 FCTNL
ADD UNIT

SECTION

TEST MACRO V04.00 1-DEC-83 12:59:38 PAGE 48
.SBTTL

e
i

THE

ADD UNIT SECTION

ADD-UNIT

SECTION CONTAINS ANY

19 026754
20 026756

32
33
34 026760

026760

TO THE TEST CYCLE.

L$AU: :
000167
000000

.WORD
.WORD

JsUMP
L10021-2-.

.EVEN
104452

CODE

THE PROGRAMMER

WISHES

TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK

$--

1: 026754

5EQ 0113

L10021:

TRAP

CsAvU

CZRJLBO RPO7 FCTNL

HARDWARE

TESTS

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

<9
SEQ 0114

HARDWARE TESTS

:*IN THE DESCRIPTIONS OF THE BELOW TESTS THE VARIABLES USED
+*AND THEIR DEFAULT VALUES (UNLESS SPECIFIED OTHERWISE) ARE:
: *MNEMONIC

VALUE

eceecea

VARIABLE

;#ITCNT
;#FC

;+LC
;+IC
:#NC OF NC1

629
1
FC+IC

;#NC2

LC-IC

1 &

HE
L

;oFT
s4LT
:oIT

; &NT
L

;#FS
;sLS
.SBTTL

ITERATIONS

FIRST CYLINDER ADDRESS
LAST CYLINDER ADDRESS

INCREMENT VALUE
NEW OR MODIFIED CYLINDER
ADDRRESS
NEW OR MODIFIED CYLINDER
ADDRESS

0
31.
1

FIRST TRACK ADDRESS
LAST TRACK ADDRESS

0
49,

FIRST

FTIT

INCREMENT VALUE
NEW OR MODIFIED TRACK ADDRESS
SECTOR ADDRESS

LAST SECTOR ADDRESS

SEEK TESTS

s#THE SEEK TESTS WILL BE EXCUTED USING IMPLIED SEEKS. THESE
:+¢IMPLIED SEEKS WILL BE PERFORMED BY “READ HEADER AND
s#DATA” COMMANDS TO TRACK “FT" SECTOR "FS* OF THE DESIRED CYLINDER.
3#THE WORD COUNT WILL BE SET SUCH THAT ONLY THE CYLINDER AND
;#TRACK/SECTOR WORDS OF THE HEADER ARE READ.
s+ *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 MACRO v04.00 1-DEC-83 12:59:38 PAGE S50
TEST 1: RECALIBRATE TEST
1
2
27

.SBTTL

40
4]
42

i
i
i

TEST
L

SEQ 0115

RECALIBRATE
TEST
T

I I

MmN

mnmMmM MMM

THIS TEST WILL CAUSE THE DRIVE TO EXECUTE A RECALIBRATE
COMMAND CYCLE AND THEN DO A READ HEADER AND DATA COMMAND
TO VERIFY POSITION.

(IR RAAEAARARARARARARARARARRARARAARRARRARAASAARREASARAAAARAEAAERE004400000404

S1
57 026762
58 026762
S9 026770

026770

60 026776
61 027002
62 027006
027006
63 027010
64 027014
65 027020
66 027024
67 027026
027026
027026
68 027030
027030

012737

000012

002244

112737

000107

002552

005037
005037

104402
004437
004437
005337
001361
104403
104401

002600
002602

Tl::
TEST1:

T1.1:

014374
014512
002244
EXIT1:
L10023:
L10022:

MOV

#10. ,ITCNT

;SET ITERATION COUNT

MOvVB

ORECAL ,DPB.A+2

;RECAL=COMMAND

TRAP
JSR
JSR
DEC
BNE

csBsSuB
R4 ,CALL.A
R4,CALL.B
ITCNT
TEST1

;GO EXECUTE THE COMMAND
;GO EXECUTE THE COMMAND
;DONE ITERATIONS ?
;:BR IF NO

TRAP

C$ESUB

TRAP

CSETST

CLR
CLR

DPB.B+10
DPB.B+12

:SEC/TRK O
;CYyL O

OOV
E N -

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 51
TEST 2: INCREMENT SEEK TEST
.SBTTL
PR

TEST 2:

AARN AR

i *

M9
SEQ 0116

INCREMENT SEEK TEST

AL AR RERR AR AR

A LALLM

AR RLR L LR L2440 404004000000 000040400040

THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE THE

CYLINDER ADDRESS FROM "FC” TO “LC” BY THE INCREMENT

WHEN

THE

RESULTANT

CYLINDER

ADDRESS

(NC)

EXCEEDS

“IC”.

“LC"” REVERSE SEEK CYCLES ARE INITIATED; STARTING

i&
ie
i

UNTIL “NC” IS LESS THAN "FC”, AT THE COMPLETION OF EACH
SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO
ENSURE PROPER OPERATION.

THE LAST

LEGAL

"NC”

AND DECREMENTING BY

“IC”

FIRRARARAR
AR AR AR ARARARR
AAARA
AR AR AR R ARAEAAAE400408
RERAR
00400000000000
ARAR
400

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

1s%:

T2.11:
T2.1:

L10025:

002210
002206

002602
002602

002206

002602

014512
002210
002204

T2::

T2.21:
T2.2:

L10026:

MOVB

EXIT2:
L10024:

:FS

FT,0PB.B+11
FC,DPB.B+12

iFT
;FC

TRAP
JSR

csBSUB
R4 ,CALL.B

;GO EXECUTE THE COMMAND

TRAP

C$ESUB

TRAP
JSR

CsBSuUB
R4,CALL.B

TRAP

C$ESUB

CMP
BLE

FC,DPB.B+12
T2.21

TRAP

CSETST

ADD
CMP
BGE
MOV

SuUB

002602
002602

FS,DPB.B+10

MOVB
MOV

IC,0PB.B+12
LC,DPB.B+12
.11
LC,DPB.B+12

IC.DPB.B+12

sMOVE TO NEXT CYLINDER
;OUT OF CYLINDERS?
:NO- -BRANCH

:GO EXECUTE THE COMMAND

CZRJLBO RPO7 FCTNL TEST MACRO Vv04.00 1-DEC-83 12:59:38 PAGE 52
TEST 3: RANDOM SEEK TEST

SEQ 0117

.‘12

.SBTTL

PIRARAALAARAAARARARAARAAAAEAAAAREEE0000000000000044444040000880804800040

READING A SECTOR FROM THE CURRENTLY ADDRESSED CYLINDER AND TRACK.
THE TRACK ADDRESS IS INCREMENTED FOR EACH SEEK SO THAT VERIFICATION

i ®

BETWEEN PARAMTERS

12
13
14
15
16
17

OF POSITIONING OCCURS USING EACH HEAD.
‘FT'

AND

'LT'.

TRACK ADDRESSES ARE INCREMENTED

THE RANDOM CYLINDER IS GENERATED BY USING THE
XMOD Y

(XDIVY)syY

WHERE R IS OBTAINED BY:
$RP1 DIV (LC+1)-FC = @ « R

CYL

= FC

'FC’

THE POSITION OF THE DRIVE IS VERIFIED BY

T
s

'MOD’

FUNCTION:

+ R

WHERE Q = QUOTIENT,

R = REMAINDER,

$RP1 = A RANDOM NUMBER FROM RAND CALL.

FIS004800000000000000400008884400404000000000000008800088044000000008000

000048

027140
027140
027146
027154
027162
027170
027176

012737
113737
112737
013737
023737
001423

000012
002212
000105
002204
002204

002244
002601
002552
002602
002206

T3::

TEST3:

g%
33
34
35
36
37
38
39
40
:5

AFTER EACH SEEK,

IF X,Y ARE INTEGERS WITH Y <> O THEN:
X MOD Y = REMAI
OF
NDER
X DIV Y
THE ACTUAL OPERATION PERFORMED IS:
FC « $RP1 MOD (LC+1)-FC
BY DOING:

‘LC’'.

i &
i*
T
i
L
i

18
19

22
23
24
25
26
27
28
23‘9’

i
T

i e

0004

THIS TEST PERFORMS RANDOM SEEK OPERATIONS BETWEEN CYLINDERS

RANDOM SEEK TEST

6
7

TEST 3:

MOV
MOVB
MOVB
MOV
CcMP
BEQ

€10. ,ITCNT
FT,0PB.B+11
OSEEK,DPB.A+2
FC.DPB.B+12
FC,LC
73.11

sSET ITERATION COUNT
;LOAD 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
CLR
MOV
INC
SU3
JSR
ADD
TST

002206

002204
011176
002602

:2
45 027236

46 027244
027244
47 027246
027246
48 027252
027252
49 027254
027254
S0 027256
S1 027264
52 027270
53 027272

PC,RAND
$RP1, -(SP)
-(SP)
LC,-(SP)
(SP)
FC.(SP)
PC, $DIV
(SP)+,DPB.B+12
(SP)+«

;:CYCLE THE RANDOM NUMBER GENERATOR
;USE THE HIGH RANDOM NUMBER
;UPPER DIVIDEND
;FORM THE DIVISOR
;s INCREMENT
1SUBTRACT THE LOWER LIMIT
;DIVIDE
;ADD THE REMAINDER TO THE INITIAL CYLINDER
;DISCARD THE QUOTENT

sEND OF RANDOM CYL GEN.
013737

002602

002562

T3.1:

104402
004437

T3.11:

014374

L10030:

104403
104402

113777
017746
006316
006316

73.2:

002550
153420

153414

MOV

DPB.B+12,DPB.A+12

TRAP

csBSuUB

JSR

R4,CALL.A

TRAP

C$ESUB

TRAP

MOVB
MOV
ASL
ASL

csBSuB

DPB.A,8RPCS2
8RPLA, -(SP)
(SP)
(SP)

;COPY NEW CYLINDER ADDRESS

;GO EXECUTE THE COMMAND

:SELECT THE DRIVE
1GET THE LOOK AHEAD REGISTER
;ALIGN THE SECTOR ADDRESS
tALIGN THE SECTOR ADDRESS

CZRULBO RPO7 FCTNL
TESY

TEST MACRO v04.00
RANDOM SEEK TEST

54 027274
55 027276
56 027302

57 027306
58 027312

59 027314
60 027316
61 027322
62 027324
63 027332
027332
64 027336
027336
65 027340
66 027344
67 027352
68 027354
69 027362
70 027366
7 027370
027370

000316
112637
013746
122637
103007
103403
105037
000403
112737

000001

004437

014512

104403
105237

123737
101703
113737
005337

001275

104401

1-DEC-83

12:59:38 PAGE

SWAB

002600
002274
002600

002600

18:
2%:

L10031:

002212
002244

002214
002601

EXITS:

L10027:

SEG G118
1PUT ADDRESS

MOvB

002600

002601
002601

B10
S52-1

1LOAD THE DPB

IN LOWER BYTE

MOV
cMPB
BHIS
8LO
CLRB
BR
MOvVB

01,0PB.B+10

s CONT INUE
sRESET ADDRESS TO SECTOR 1

JSR

R4,CALL.B

1GO EXECUTE THE COMMAND

TRAP
INCB
CcCMPB
BLOS
MOvB

CSESUB
OPB.B+11
OPB.B+11,LT

;s INCREMENT THE TRACK ADDRESS
sMAXIMUM ?

FT,0PB.B+11

sRELOAD STARTING

DEC

sPUT LAST SECTOR ADDRESS ON THE STACK
sNEW SECTOR ADDRESS TOO LARGE ?
1BR IF NOT

1BR _IF ADDRESS IS 2 GREATER

sRESET

TEST3

ITCNT

BNE

TEST3

TRAP

CSETST

TO SECTOR ADDRESS O

1BR IF NOT

TRACK

sDOONE ITERATIONS ?
;BR IF NO

ADDRESS

CZRULBO RPO7 FCTNL
RECAL,

T ND NN

1-DEC-83

12:59:38 PAGE

LSBTTL

TEST 4:

C10

RECAL,

5EQ 0119
RANDOM SEEK

TEST

] ;“.‘.....‘..“‘0“‘....“.“..‘.‘..‘0..““.‘.‘..‘“0‘.

‘0‘.‘0....“0.““0‘..

THIS TEST EXECUTES A RECAL COMMAND, THEN A SEEK IMPLIED
AND DATA COMMAND, TO A RANDOMLY SELECTED CYLINDER.

TEST

TEST MACRO v04.00
RANDOM SEEK TEST

THIS SEQUENCE IS REPEATED 10 TIMES.

THE

STARING

THE RANDOM CYLINDER IS GENERATED BY USING THE ‘MOD’

TRACK

X,Y

THE

FROM FC,

XMOD VY

= X

ARE

INTEGERS

X MOD Y

RANDOMLY
EACH

TEST

SELECTED

CYLINDER
ITERATION.

(X DIV Y)

WITH

BY DOING:

WHERE R IS OBTAINED BY:

WHERE Q

L
ie

CyL

ONE
,

FUNCTION:

THEN:

INCREMENTED

= REMAINDER OF X DIV Y

THE ACTUAL OPERATION PERFORMED IS:
FC

IN A READ HEADER

SRP1 MOD (LC+1)-FC

= FC

+« R

$RP1 DIV (LC+1)-FC

= QUOTIENT,

= Q@ + R

REMAINDER,

$RP1

A RANDOM NUMBER FROM RAND CALL.

110800400800 0000000000400000080000000080000000080000008000008000080

8880080008808888

027372
027372
027400
027406
027414

012737
113737
112737
013737

000012
002212
000107
002204

002244
002601
002552

002602

T4::

TEST4:

MOV
MOVB
MOVB
MOV

910, ,ITCNT
FT,0PB.B+11
ORECAL ,DPB.A+2
FC,DPB.B+12

$1SET ITERATION COUNT
;LOAD STARTING TRACK ADDRESS
;RECAL =COMMAND
s INITIAL CYLINDER ADDRESS

sGENERATE A RANDOM CYLINDER
027422
027426
027432
027434
027440
027442
027446
027452
027456
027460
027460
027462
027466
027466
027470
027470
027472
027500
027504
027506
027510
027512
027516
027522
027526
027530

004737
013746
005046
013746
005216
163716
004737
062637
005726

011712
011774

002206

;CYCLE THE RANDOM NUMBER GENERATOR

CLR

-(SP)

sUPPER DIVIDEND

LC,-(SP)
(SP)

JSR
ADD

PC,$DIV
(SP)+,DPB.B+12

L10033;
74.2:

002550
153204

153200

csBsSuB

R4 ,CALL.A

TRAP

CS$ESUB

TRAP

csBsuB

MOVB
MOV

1s:

(SP).

JSR

ASL
ASL

002600
002274
002600

FC,(SP)

;USE THE HIGH RANDOM NUMBER

;FORM THE DIVISOR
s INCREMENT

;SUBTRACT THE LOWER LIMIT

;:DIVIDE
;ADD THE REMAINDER TO THE INITIAL CYLINDER
:DISCARD THE QUOTENT

;END OF RANDOM CYL GEN.
TRAP

014374

$RP1, -(SP)

MOV
INC

TST

104403

104402
113777
017746
006316
006316
000316
112637
013746
122637
103007
103403

PC,.RAND

SuUB

002204
011176
002602

0.1
104402
004437

JSR

MOV

SWAB

MOVB
MOV
cMPB
BHIS
BLO

DPB.A,BRPCS2
8RPLA, -(SP)
(SP)
(SP)

(SP)

(SP)+,DPB.B+10
NS1,-(SP)
(SP)+ ,DPB.B+10
3
2t

1GO EXECUTE THE COMMAND

1SELECT THE DRIVE
sGET THE LOOK AHEAD REGISTER

sALIGN THE SECTOR ADDRESS
tALIGN THE SECTOR ADDRESS

1PUT ADDRESS IN LOWER BYTE

;LOAD THE DPB
1PUT LAST SECTOR ADDRESS ON THE STACK
;NEW SECTOR ADDRESS TOO LARGE ?
;1BR IF NOT
1BR IF ADDRESS IS 2 GREATER

CZRJLBO RPO7 FCTNL TEST MACRO v04.00
TEST 4: RECAL, RANDOM SEEK TEST
55
56
S7
58
59
60

63
64

65
66

027532
027536

105037
000403

002600

027540
027546
027546
027552
027552
027554
027560
027566
027570
027576
027602
027604
027604

112737

000001

004437

014512

104403
105237
123737
101712
113737
005337
001304
104401

002601
002601
002212
002244

1-DEC-83

002600

12:59:3%8 PAGE

2$:
3s:

L10034:
002214

002601

EXIT4:
L10032:

53-1

D10
5EG G120

CLRB
BR

DOPB.B+10

sRESET

MOvVB

tRESET ADDRESS TO SECTOR 1

JSR

R4 ,CALL.B

1GO EXECUTE THE COMMAND

TRAP

CSESUB
DPB.B+11
OPB.B+11,LT

sMAXIMUM

INCB
cMPB
BLOS
MOvB
DEC
BNE
TRAP

TESTA4
FT1,0PB.B+11

ITCNT

TEST4

CSETST

TO SECTOR ADDRESS 0O

s CONTINUE

;s INCREMENT THE TRACK ADDRESS
?

1BR IF NOT

;RELOAD STARTING

TRACK

;DONE ITERATIONS ?
:BR

IF NO

ADDRESS

ND NNy

.SBTTL

CZRJULBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 54
TEST S: DIFFERENTIAL SEEK TEST

TEST S:

E10

SEQ 0121

DIFFERENTIAL SEEK TEST

150888020000 04480888800000000 0008008880000

CONSISTS

i
i
i

SYSTEM RESPONSE TO 3 UNIQUE DIFFERENTIAL SEEK PROFILES:
1. 6 CyL DIF SEEK:
FORCES A SLEW RATE CHANGE BY SEEKING FROM CyL O TO S,
2 707, ... 624 TO 629, TO TEST THE POSITIONAL LOGIC.

i e

33 CvL DIF SEEK:

FROM CyL O

TO 32,

SUBTESTS

TEST

THE

ALAAALLARSES

THIS

TEST

8 0080800000804

1 *

HEAD POSITIONER

AND

SERVO

WORST CASE SEEK OVERSHOOT TEST, FORCED BY SEEKING

33,

TO 34,

...

597

TO 629.

3. 400 CyL DIF SEEK:

gggE?gL;égFORCED BY

i
HEE L

027606
027606
027614
027622
027630

113737
113737
113737
113737

002220
002212
002222
002214

002600
002601
002620
002621

FORCES MAX ACCELERATION AND DECELERATION OF CARRIAGE

SEEKING FROM CYL O

TO 399,

TO 400,

TO 401,

...

.
R

15::

MOVB
MOVB
MOVB

MOvVB

FS.0PB.B+10
FT,0PB.B+11
LS.0PB.C+10

LT,0PB.C.11

sFIRST SEEK OF THE PAIR OF SEEKS READS FS, FT

;SECOND SEEK OF THE PAIR OF SEEKS READS LS, LT

:6 CYL DIFF SEEK
027636
027642
027650
027650
027652

027652
027656
027656
027660
027660
027662
027666
027666
027670
027674
027700
027706

005037
012737

002602
000005

002622

104402
004437

15.11:

014512

L10036:

104403

104402
004437

TESTS:

15.2:

014674
002602
002622
002266

L10037:

CLR

DPB.B+12

TRAP

csBSUB

JSR

R4,CALL.B

TRAP

C$ESULB

TRAP

csBSuUB

TRAP

CS$ESUB

MOV

JSR

INC
INC
cMP
BGE

002622

05,0PB.C+12

R4,CALL.C
OPB.B+12
DPB.C+12
NC1,0PB.C+12
75.11

;FIRST SEEK STARTS AT O

;SECOND SEEK IS TO FIRST CYL

+ S

;GO EXECUTE THE COMMAND

;GO EXECUTE THE COMMAND
sNEXT CYL OF FIRST SEEK
sNEXT CYL OF SECOND SEEK
;REACHED LAST USER CYL ON SECOND(CLAST?) SEEK?
iNOT YET, REPEAT ABOVE SEQ UNTIL OUT OF CYL

+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

715.31:

L10040:;
15.4;

014674

L10041;

CLR
MOV

DPB.B+12
032..0PB.C+12

TRAP

csB8SUB

JSR

R4,CALL.B

TRAP

CS$ESUB

TRAP
JSR

csBSUB
Ra,CALL.C

TRAP

CS$ESUB

+FIRST SEEK STARTS AT O
1SECOND SEEK IS TO FIRST CyL

:1GO EXECUTE THE COMMAND

1GO EXECUTE THE COMMAND

« 32.

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE S4-1
TEST S: DIFFERENTIAL SEEX TEST
48 027742
49 027746

S0
51
52
53
54
55
56
57

027752
027760

027762
027766
027774
027774
58 027776
027776
59 030002
030002
60
61
62

63
64
65
66
67

005237
005237
023737
002361

002602
002622
002266

INC
INC
CHP
BGE

002622

DPB.B+12
DPB.C+12
NC1,0PB.C+12
15.31

;400 CYL DIFF

005037
012737

002602
000617

104402

004437

104403
005237
005237
023737
002361
104401

MOV
15.51:

014512

L10042:

104403
104402
004437

CLR

002622

15.6:

014674
002602
002622
002266

L10043:

EXITS:
L10035:

OPB.B+12

csBsus

JSR

R4,CALL.B

TRAP

C$ESUB

TRAP
JSR

csBsSuB
R4,CALL.C

¢NEXT CYL OF SECOND SEEK

+REACHED LAST USER CYL ON SECOND(LAST?) SEEK?
sNOT YET,

REPEAT ABOVE SEQ UNTIL OUT OF CrL

C$ESUB

:FIRST SEEK STARTS AT 0

;SECOND SEEK IS TO FIRST CvL

sNEXT CYL OF FIRST SEEK
sNEXT CYL OF SECOND SEEK

BGE

15.51

iNOT

TRAP

CSETST

399,

1GO EXECUTE THE COMMAND

DPB.B+12
DPB.C+12

NC1,0PB.C+12

:GO EXECUTE THE COMMAND

INC
INC

CcMP

002622

sNEXT CYL OF FIRST SEEK

SEEK

TRAP

SEG 0122

sREACHED LAST USER CYL ON SECOND(LAST?) SEEK?
YET,

REPEAT

ABOVE

SEQ UNTIL OUT OF CyL

G10O

CZRJULBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 55
OO NS
Wy -

TEST 6:

OSCILLATING SEEK

S5EG 0123

TEST

.SBTTL

TEST 6:

OSCILLATING SEEK TEST

1000802000008
ARAARR AR RS0
R A0
AR08 44000400000

THIS

i b

MOVEMENT

TEST

PERFORMS
OF

THE

HEAD

SERIES

SEEK

OPERATIONS

CAUSE

AN OSCILLATING

POSITIONER.

T,
T TmnmnmMmMmm
MMM
T MM
T

030036
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
104401

TEST6:

76.1:
76.11:

014512

L10045;

104403
104402
004437

T6::

T76.2:

014674
002602
002622
002622

L10046:

002204

EXIT6:
L10044;

MOVB
MOVB
MOVB

FS,0PB.B+10
FT,OPB.B+11
LS,0PB.C+10

iFS
FT
;LS

MOV
MOV

FC,0PB.B+12
LC,DPB.C+12

sFC
;iLC

MOvVB

LT,OPB.C+11

TRAP

csBSUB

JSR

R4,CALL.B

TRAP

C$ESUB

TRAP
JSR

csBSUB
R4,CALL.C

TRAP

:GO EXECUTE

THE COMMAND

;GO EXECUTE

THE COMMAND

CS$ESUB

INC
DEC
cMP
BGE

DPB8.B+12
DPB.C+12
DPB.C+12,FC
T6.11

TRAP

CSETST

sUNTIL

—

CZRJLBO RPO7 FCTNL
TESTS

VOOV
S W -

TIMING

H10

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

SEQ 0124

TIMING TESTS

PISARARAEAAAAAAALALAAAELAEAERREARAASRRARAAAAAAASEEEAAA

i#THE TIMING TESTS WILL ENSURE THAT THOSE FUNCTIONS BEING
1#TIMEDC ARE WITHIN THE TOLERANCES SPECIFIED IN THE “RPO7
s *ENGINEERING SPECIFICATIONS”,
i#THE

SEEK

TIMING WILL

PERFORMED USING EXPLICIT

RAEEEAE0ARERA0EEE0NS

SEEK

i #OPERATIONS. AT THE COMPLETION OF EACH OF THE TIMING

+#TESTS THE MINIMUM, MAXIMUM AND AVERAGE
:«TYPED, IF TIMTYPs],

.SBTTL

TIMES WILL

TEST 7: ROTATIONAL SPEED TIMING TEST

3;‘..“.“.“““..““‘“‘“““...““.“..““‘..“‘.““‘

i
;e
i

..‘...“‘.“.“‘..

THIS TEST WILL START A SEARCH TO CYLINDER FC, TRACK FT,
FS.
_AS SOON AS THE INTERRUPT OCCURS, THE GO BIT IS SET
AND THE OPERATION IS TIMED.
THIS PROCEDURE IS REPEATED

TIMES THEN THE AVERAGE TIME IS CALCULATED AND CHECKED TO

ENSURE

IS WITHIN

SECTOR
AGAIN

TOLERANCE:

16.515 MS/REV

+ OR

3¢

3'.“..‘..““‘...““.‘.“...A.““‘.““‘.‘.“‘““““

‘..““““““‘.““‘

030144
030144

005737
003002
104432

015612

000137

031172

012746
012746
013746
012746
104437
062706

40
41
42
43

012746
012746
013746
012746
104437
062706
013777
013746
113766
012677

104402

005077

TST

CLKSTA

TRAP
WORD

CSEXIT
L10047-,

BGT

001044
004437

005005
012703
012701
004737
004737

T7::

002260

002442

000012
015742
012364

1%:

JSR
BR
JMP

2s:
TEST7:

000300
031032
012230
000003

;KW11-P CLOCK?

;YES--START TEST

R4, SRCHOO
24
EXIT?

100 _A MASSBUS INIT £ RECAL
sRETURN HERE IF NO ERROR
sRETURN HERE IF ERROR

CLR
MOV

RS
#T7A,R3

sCOUNT uP
s TIMING LIMITS

JSR
JSR

PC,STRTMR
PC,STOPCK

sINITIALIZE THE TIMERS
:STOP THE CLOCK

MOV
MOV

OPRIO6, -(SP)
e17.7%,-(SP)

MOV

010.,R1

s TIME 10 SEARCHES

:SETUP VECTOR IN CASE OF CLOCK OVERFLOW

000010

1 SETUP RHXX/RPO7 VECTOR

000000
015740
002654
000003

000010

002204
002220
002212

152364
161704

152430
000001
T7.1:
T7.1%:

MOV
MOV
MOVB
MOV

FC.8RPDC
FS,-(SP)
FT,1(SP)
(SP)+,8RPDA

sFC
iFS
FT
iLOAD FT/FS

TRAP
CLR

CcsBSUB
aPKB

1START COUNTING AT ZERO

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

ROTATIONAL

L1 030320

55
57

58
59

63
65
67

69
70
71
72
73

030326
030334
030336
030342
030350
030354
030362
030364
030370
030374
030400
030406
030414
030420
030424
030426
030426
030430
030436
030440
030440
030444
030450

SPEED

012777
012777
000001
017746
042777
012677
032777
001516
004737
012702
004737
012777
013777
004737
004537
002630

000131
000131
161664
000101
161650
040000

161674
152334

MOV
MOV

WAIT
MOV

161652
152320

L10050:

002264
77.10%:

012746
012746
010600
104417
062706
012746
012746
010600
104417
062706
000137

004511
000001

012737
012777
000001
032777
001433
012777
013777
005337
001357

000020
000131

002350
152150

040000

152152

000040
002630
002350

152140
152132

#SEARCH,8RPCS1

8PKC, -(SP)

s INT.EN., COUNT UP AT 100KHZ
;START A SEARCH

tWAIT ON INTERRUPT
1+SAVE THE CLOCK

#101,aPKCS
(SP)+,8PKB
#8IT14,8RPDS

:STOP THE CLOCK
+AND RESTORE THE COUNTED VALUE
;ERROR?

MOV

PC,SAVREG
#DTADPB,R2
PC, SVRHXX

s iSAVE RO-RS
;OPB POINTER
sSAVE ALL THE RHXX/RPO7 REGISTERS

PC,RESREG
RS ,ERRANY

s sRESTORE RO-RS

JSR
MOV
MOV
JSR
JSR

152272
152264

©#131,aPKCS

BIC
MOV
BIT

BEQ
JSR

010750
002630

T77.2%

#CLR,8RPCS2
DTADPB, BRPCS2

s NO- -BRANCH

+MASSBUS CLEAR
s SELECT DRIVE

;FIND OUT WHAT ERROR

C$ESUB
0BIT3!BIT7,SVSTAT
T7.44%

;RETRY ALLOWED
:BRANCH IS SO

#SEAERR, -(SP)

01, -(SP)
SP,RO

CS$PNTF

“.SP
#ABOTST, -(SP)
e1,-(SP)

004614
000001

SP,RO
C$PNTF
94 ,SP
T7.8%

031136

004550
000001

T7.44%:;
18:

77.20%:

+RETRY

16 TIMES

;WAIT FOR

INTERRUPT

sANY ERROR ?
sEXIT IF NONE
t+MASSBUS CLEAR
s:DRIVE ADDRESS
;OVER RETRY LIMIT ?
1BRANCH IF NOT

#SEABAD, -(SP)

SP,RO
CSPNTF

“.SP
@ABOTST, -(SP)

SP,RO
CSPNTF
T7.2:

161400

08IT14,8RPDS
T7.2¢
OCLR,8RPCS2
DTADPB , 8RPCS2
WCEFLG

004614
000001

75
76

5EQ 0125

TIMING TEST

104403
032737
001022

012746
012746

110

T7.2%:

#4,5P
T7.8%

csBSUB
8PKB

sEXIT

1START THE COUNT AT ZERO

TEST

ROTATIONAL

78 030624
79 030632

80
81
82
83
84
85
86

87
88
89
90
91
92
93
94
95
96
97
98
99
100
{gé

030640
030642
030646
030654
030660
030666
030670
030674
030700
030704
030712
030720
030724
030730
030732
030732
030734
030742
030744
030752
030760
030762
030770
030772
031000
031006
031012
031014

103 031016
104 031022

105 031024
%8? 031026

108 031032
109
110 031036
031042
111 031044
031050
031054
031060
031066
031074
031100
031106
031114

031122
112 031126
031130
031132
031134

113 031136

031136
031144

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

TIMING

000131
000131

161360
000101
161344
040000
010750
002630
024644
000040
002630
011002
012766

152014

151766
151760

002264

000020
000131

002350
151710

040000

151712

016212

004737

012426

012700
104441
004737
012702
004737
012777
013777
016102
016237
116237
116237

000000

012777
013777

MOV
MOV
WAIT

161346

000210

004737
005301
003444
000137

004737
104456
000024
006201
007672

152036
161362

L10051:

000040
002630
002350

1s:

151700
151672

T7.3%:

000040
002630

151612
151604
002276
002302
002300

151534
151526

77.8%:

;START A SEARCH
1START THE CLOCK
tWAIT ON INTERRUPT

8PKC, -(SP)
#101,aPKCS
(SP)+,aPKB
@8IT14,8RPDS
T7.34
PC,SAVREG
0DTADPB ,R2
PC, SVRHXX
oCLR,8RPCS2
DTADPB,8RPCS2
PC,RESREG
RS,ERRANY

TRAP
BIT

C$ESUB
OBIT3!BIT7,SVSTAT

MOV
MOV

#16. ,WCEFLG
O@SEARCH,8RPCS1

sRETRY 16 TIMES
;START TO SEARCH

WAIT
BIT
BEQ
MOV
MOV
DEC
BNE
BR

#8IT14,8RPDS
77.3%
OCLR,8RPCS2
DTADPB,8RPCS2
WCEFLG
1$
T77.20%

:BRANCH IF NONE
+MASS BUS CLEAR
;LOAD THE DRIVE ADDRESS
sDECREMENT THE RETRY COUNT
1BRANCH IF NOT OVER THE LIMIT
tEXIT

JSR
DEC

PC.COUNT
R1

sUPDATE THE COUNT
;DONE?

BLE
JMP

T7.7¢:

#SEARCH,8RPCS1
©#131,8PKCS

MOV
BIC
MOV
BIT
BEQ
JSR
MOV
JSR
MOV
MOV
JSR
JSR
OTADPB

BEQ

030314

010750
002630
024644
000040
002630
000014
000036
000006
000007
011002

SEQ 0126

TEST

77.10%

77.8%
T7.18

JSR

PC.FORSEC

MOV
TRAP
JSR
MOV
JSR
MOV
MOV
MOV
MOV
MOVB
MOVB

OPRIOO,RO
C$SPRI
PC,SAVREG
#DTADPB,R2
PC, SVRHXX
OCLR,8RPCS2
DTADPB,8RPCS2
14(R1),R2
36(R2),CYL.RD
6(R2),SEC.RD
7(R2), TRK.RD

JSR
TRAP
.WORD
.WORD
.WORD

PC,RESREG
CS$ERHRD
20
EM20
DH44

MOV
MOV

OCLR,8RPCS2
DTADPB,8RPCS2

1SAVE THE CLOCK
1STOP THE CLOCK

tAND RESTORE THE COUNTED VALUE
1 IS "ERR=1"?
$NO - -BRANCH
s s SAVE RO-RS
1OPB POINTER
1SAVE ALL THE RHXX/RPO7 REGISTERS
1MASSBUS CLEAR
;SELECT DRIVE
1 sRESTORE RO-RS
:FIND OUT WHAT ERROR

sRETRY ALLOWED ?
1BRANCH IF NOT, ABORT TEST

s ANY ERROR

:YES--GO TO THE EXIT

iNO,

LOOP

tRESET TIMER TO 4 SEC,
1DROP THE PRIORITY

CHANGE CLK SERVICE AD

1 1SAVE RO-RS
1DPB POINTER
1SAVE ALL THE RHXX/RPO7 REGISTERS
tMASSBUS CLEAR
;SELECT DRIVE
+ADDRESS OF SAVED REGISTER TABLE
;GET CURRENT CYLINDER
1GET CURRENT SECTOR
1GET CURRENT TRACK
1 tRESTORE RO-RS

:CLEAR THE MASSBUS
;& SELECT DRIVE

——

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 56-2

J10

CZRJLBO RPO7 FCTNL
TEST

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

IK10

SEQ 0127

ROTATIONAL SPEED TIMING TEST

114 031152
115 031156
031162
116 031164

117 031170
118 031172
119 031172
031176
031202
031206

031212

031214
120 031220
031220

004737
004437
002442

012000
016504

004437

016354

013746
012746
013746
012746
104437
062706

002656
023046
002654
000003

002512

104401

EXIT7:

000010

L10047:

JSR
JSR
T7A

PC,ST.CLK
R4, TYPTIM

s INITIALIZE THE CLOCK
:GO TYPE THE TIMES
+POINTER

JSR

R4,SPTYP

s TYPE THE SPECIFICATION VALUE

MOV
MOV
MCV
MOV
TRAP
ADD

RPVEC+2, -(SP)
@ISRV, -(SP)
RPVEC, -(SP)
03,-(SP)
C$SVEC
©10,SP

TRAP

CSETST

SP7

:SETUP RHXX/RPO7 VECTOR

L10O

OCRNONE
NN -

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 57
TEST 8: ONE CYLINDER SEEK TIMING TEST
.SBTTL
PR

THIS

CYLINDER BY ONE FROM FC

i
i
i

THE TIME TO PERFORM EACH SEEK IS CHECKED TO ENSURE IT DOES NOT
EXCEED THE MAXIMUM TIME PERMITTED FOR A ONE CYLINDER SEEK.
THE TIME MUST BE LESS THAN 4MS,

FI080RP

015612

031240
031242
031244
031246
031252
031256

031264
031270
031272
031300
031300
031302
031306
031306
031310
031312
031316

35
37

T8::

002260

18:

ARARAARARRA

001407
012737
‘104402
004437

000105

002642

002632

18.1

L10053:
78.5%¢:

015742
012364

WILL

'LC’',

L4404 AS

TST

BGT
TRAP
.WORD
JSR
BR
.WORD
MOV
CLR
MOV
TST
BEQ
MOV

CLKSTA

1
CSEXIT
L10052-.
R4 ,SRCHOO
24

CSEXIT

L10052-.
#TIMT10,R3
DOTWO
FC.DTADPB+12
FC
78.5¢
OSEEK,DTADPB+2
CsBSUB

TRAP

C$SVEC

031350
031354
031360
031364
031370
031372

012746
012746
013746
012746
104437
062706

000000
015740
002654
000003

MOV
MOV
MOV

OPRIO0O, -(SP)
#DORTI, -(SP)
RPVEC, -(SP)

TRAP
ADD

C$SVEC
#10,SP

210,SP

s SEEK FORWARD:

104402
005077

160604

10.2

; YES--START TEST
;D0 A MASSBUS INIT.
iNO ERROR RETURN

AND RECAL

;PARAMETER POINTER
sSET-UP FOR TWO ITERATIONS
:START WITH BEGINNING CYLINDER
iIF FC <> 0
;ELSE SKIP
;THEN SEEK TO FC BEFORE TIMING PORTION OF

;SETUP VECTOR IN CASE OF CLOCK OVERFLOW

:SETUP RHXX/RPO7 VECTOR

FC --> LC

INC

DTADPB+12

tMOVE TO NEXT CYLINDER UP

BGT

78.3%

i1 YES,

CcMP

TRAP
CLR

DTADPB+12,LC

CsBSUB
9PKB

00ttt ttttbtts

;KW11-P CLOCK?

;SET THE UP/DOWN SWITCH TO UP
:INITIALIZE THE TIMERS
;STOP THE CLOCK

ADD

78.1%:

AR AR A0 R4 ARt

C$ESUB
RS
PC,STRTMR
PC,STOPCK

000010

THE

DO IT TWICE.

TRAP
CLR
JSR
JSR

OPRIO6, -(SP)
#78.74,-(SP)

002206

‘FC’'.

:SEEK TO FC

MOV
MOV

002642
002642

TO ADVANCE

UNTIL THE INCREMENT IS GREATER THAN THE

R4 ,DRVCAL

000300
032022
012230
000003

005237
023737
003063

AL L0220 0044000000000 000000400400

CYCLES

JSR

012746
012746
013746
012746
104437
062706

031376
39 031402
031410
41 031412
031412
42 031414

R 0A R

SEEK

THEN REVERSE SEEK TO CYLINDER

031322
031326
031332
031336
031342
031344

000010

A4 A A4

COMMAND FORWARD

0442000040400 4 0000540000000 00000 AR

TRAP

015056

104403

005005
004737
004737

2s:
TEST8:

TEST

CYLINDER

TRAP

002452
002256
002204
002204

ONE CYLINDER SEEK TIMING TEST

031222
031222
031226
031230
031232
031234

TEST 8:

SEQ 0128

;OUT OF CYLINDERS?

GO SEEK REVERSE

:;START THE COUNTER AT ZERO

TEST

M10

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 57-1
TEST 8: ONE CYLINDER SEEK TIMING TEST
43 031420

031426
031434
031442
031444
031450
031456
031462
51 031470
031472
031476
031502
031506
031514
031522

44
45
46
47
48
49

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
002630
024644
000040
002630
011002
012766

151276
151234
160560

160544
151212

151164
151156

L10054:;

000040

002264

016212
012552

78.2%:

002642
177777

78.3%:

MOV
MOV
MOV
WAIT

DTADPB+12,8RPDC
#SEEK,8RPCS1
131,8PKCS

MOV
BIC
MOV
BIT
BEQ
JSR
MOV
JSR
MOV
MOV
JSR
JSR
CTADPB

aPKC, -(SP)
#101,8PKCS
(SP)+,8PKB
#8IT14,8RPDS
78.24
PC,SAVREG
#DTADPB ,R2
PC, SVRHXX
#CLR,8RPCS2
DTADPB,8RPCS2
PC,RESREG
RS,ERRANY

TRAP

C$ESUB

JSR
BR
DEC
MOV

PC, TWOMS
78.14

BIT
BNE
JSR

031714

005337
023737
002474

104402
005077
013777
012777
012777
000001
017746
042777
012677
032777
001437
004737

002642
002642

002204

78.4%:
78.3:

151104
151042
160366

151020

150772
150764

61 031720

031724
83 031726
031726
031730
85 031736
031740

L10055:;
002264
78.9%:

tGET THE CURRENT COUNT
1STOP THE CLOCK
sAND RESTORE THE VALUE
sANY DISK ERRORS?
#NO- -BRANCH
+ s SAVE RO-RS
:0OPB POINTER
$1SAVE ALL THE RHXX/RPO7 REGISTERS
sMASSBUS CLEAR
;SELECT DRIVE
: sRESTORE RO-RS
sFIND OUT WHAT ERROR

;POSITION ERROR?
:YES, ABORT TEST
sCOUNT THIS SEEKS TIME

DTADPB+12
@-1.RS

¢MOVE TO NEXT CYLINDER DOWN
:SET UP/DOWN SWITCH TO DOWN

sSTALL TWO MILLISECONDS
;LOOP, SEEK FORWARD

FC <-- LC

DEC
cMP
BLT

DTADPB+12
DTADPB+12,FC
78.64

tMOVE TO NEXT CYLINDER DOWN
:OUT OF CYLINDERS?
s YES, EXIT LOOP

TRAP
CLR
MOV

csBsuB
8PKB
DTADPB+12,8RPDC

sSTART THE COUNTER AT ZERO
;LOAD DESIRED CYLINDER

MOV
WAIT
MOV
BIC
MOV

#131,8PKCS

MOV

160352

;LOAD DESIRED CYLINDER
:+START A SEEK
$1START THE CLOCK
tWAIT ON INTERRUPT

@BITS,SVSTAT
78.94
PC,COUNT

:SEEK REVERSE:
031570
031574
031602
031604
031604
0316056
031612
031620
031626
031634
031636
031642
031650
031654
031662
031664
031670
031674
031700
031706

SEQ 0129

BIT
BEQ
JSR
MOV
JSR
MOV
MOV
JSR
JSR
DTADPB
TRAP
BIT
BEQ

O@SEEK, SRPCS1

8PKC, -(SP)
€101 ,8PKCS
(SP)+,8PKB
08IT14,8RPDS
78.10¢
PC, SAVREG
S0TADPB ,R2
PC, SVRHXX
OCLR,8RPCS2
DTADPB,8RPCS2
PC.RESREG
RS ,ERRANY
C$ESUB
OBITS,SVSTAT

78.10¢

1START A SEEK

1START THE CLOCK
sWAIT ON INTERRUPT
1GET THE CURRENT COUNT
1STOP THE CLOCK
sAND RESTORE THE VALUE

1ANY DISK ERRORS?
$NO- -BRANCH
t 1SAVE RO-RS
1OPB POINTER
$1SAVE ALL THE RHXX/RPO7 REGISTERS
tMASSBUS CLEAR
;SELECT DRIVE
+ stRESTORE RO-RS
tFIND OUT WHAT ERROR

+POSITION ERROR?
iNO, CONTINUE

CZRJULBO RPO7 FCTNL TEST MACRO V04.00 1-DEC-83 12:59:38 PAGE 57-2
TEST 8:

102

103
104
105

106
107

N10
SEQ 0130

ONE CYLINDER SEEK TIMING TEST

031740
031744
031750
031752
031754
031760
031762
031766
031772
031774
032000
032004
032006
032014
032016

012746
012746
010600
104417
062706
000462
004737
004737
000676
005237
005737
100450
012737
005005
000137

031376

032022

004737

012426

032026
032032
032034
032040
032044
032050
032056
032064
032070
032076
032104
032112
032116
032120
032122
032124
032126
032126
032134
032142
032146
032152
032154
032160

012700
104441
004737
012702
004737
012777
013777
016102
016237
116237
116237
004737
104456
000024
006201
007672

000000

109 032162
032166
032172
032176
032202
032204
110 032210
032210

012777
013777
004737
004437
002452
004437
002520

004633
000001

MOV
MOV
MOV
TRAP

000004

ADD

016212
012552

002642
002256

177777

010750
002630
024644

002256

SP,RO
CSPNTF

4 ,SP
78.8%
PC,COUNT
PC, TWOMS
78.4%
DTADPB+12

BR
78.10%: JSR
JSR
BR
78.6%:
INC
TST
BMI
MOV
CLR

78.84%
¢-1,00TWO
RS

18.7%:

PC,FORSEC

DOTWO

78.18

OPRIOO,RO

C$SPRI

PC,SAVREG
#DTADPB ,R2
PC, SVRHXX

150622

#CLR,8RPCS2
DTADPB,8RPCS2
14(R1),R2
36(R2),CYL.RD
6(R2),SEC.RD

150614

002276
002302
002300

7(R2), TRK.RD
PC,RESREG

CS$ERHRD
20

150544
150536

78.8%:

OCLR,8RPCS2
DTADPB, 8RPCS2

PC,ST.CLK
R4,TYPTIM

R4 ,SPTYP
RPVEC+2, -(SP)

CsSVvEL
L10052:

sCOUNT THIS SEEKS TIME
;STALL TWO MILLISECONDS
;LOOP, SEEK REVERSE
sMOVE TO NEXT CYLINDER
;DONE TWICE?

:IF MINUS,

YES...

sMARK THE FIRST ITERATION

1 SEEK FORWARD AGAIN
¢!
sNOW!

sRESET TIMER TO 4 SEC, CHANGE CLK SERVICE AD
:DROP THE PRIORITY
1 sSAVE RO-RS
;:OPB POINTER
sSAVE ALL THE RHXX/RPO7 REGISTERS
:MASSBUS CLEAR
;SELECT DRIVE
s+ADDRESS OF SAVED REGISTER TABLE
1GET CURRENT CYLINDER
:GET CURRENT SECTOR
;GET CURRENT TRACK
s sRESTORE RO-RS

EM20
DH44

013746
012746
013746
012746
104437
062706

104401

#POSERR, -(SP)

012,5P

CSETST

;CLEAR THE MASSBUS
1€ SELECT DRIVE
s INITIALIZE THE CLOCK
1GO TYPE THE TIMES
1POINTER
1SETUP RHXX/RPO7 VECTOR

CZRJILBO RPO7 FCTNL
TEST

AVERAGE

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

SEEK

TIME

MEASUREMENT

56G 6131

TEST

.SBTTL

TEST

AVERAGE

SEEK

TIME

MEASUREMENT

TEST

‘;..“...‘..‘.‘.‘....“‘.““‘.““.‘...‘.".‘.‘.....‘.‘.‘....‘.......

THIS

TEST

WILL

MEASURE

...‘.....

THE

AVERAGE

SEEK

TIME

AS FOLLOWS:

:
H

10
11
12

:
‘
:

14
15 032212
16 032212

17 032216
18 032220
032222

19 032224

005737
003002
104432
000702

004437

23 032242

013701

25 032252

[

(T1L
X 629)

WHERE:

015612

012703

002462

004737

015742

004737

19::

002260

18:
2s:

002266

TEST9:

012364

3
8GT
TRAP
.WMORD

JSR

BR
TRAP
.WORD

MOV

CLKSTA
18
CSEXIT
L10056.

R4, SRCHOO
2
CSEXIT
L10056-.

PC.STOPCK

062706

000010

ADD

#10,5P

032310
032314
032320

012746
012746
013746
012746

000000
015740
002654
000003

MOV
MOV
MOV
MOV

032326

062706

000010

ADD

104437

005037
005237
013777
005077
104402

033126
033126
033126
157650

35 032356
36 032364

012777
012777

000105
000131

38 032374

017746

157626

39 032400

000001

TRAP

150354

19.1:

150304
157630

042777

000101

157614

41 032412
42 032420

032777
001426

0840000

150262

032426

012702

002630

40 032406
43 032422

012677
004737

157612

010750

79.18:

OPRIO00, -(SP)
@DOR
. -(SP)
TI
RPVEC, -(SP)
03, -(SP)

010, 5P

TRAP

C#BSUB

WALT

8IC

MOV

BIT
BEQ

JSR

MOV

:STOP THE CLOCK

:SETUP VECTOR IN CASE OF CLOCK OVERFLOW

;SETUP RHXX/RPO7 VECTOR

CS$SVEC

INCCYL
INCCYL
INCCYL,8RPDC
8PKB

MOV

;COUNT AND COEFF ICIENT

C$SVEC

CLR
INC
MOV
CLR

MOV
MOV

IF NO ERROR

sINIT. THE COUNTERS

032300

37 032372

(1629
X

;D0 A MASSBUS INIT & RECAL

tRETURN HERE

PC,STRTMR

JSR

OPRI06, -(SP)
019,74, -(SP)
PKV, -(SP)
03, -(SP)

34 032354
032354

+....+

{KW11-P CLOCK?
YES--START TEST

;PARAMETER POINTER

NC1,R1

MOV
MOV
MOV
MOV

30 032332
31 032336
32 032342
33 032350

(T3
X 627)

OTIMT11.R3

MOV

000300
032710
012230
000003

032324

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.

012746
0i2/46
013746
012746

28 032304
29

(T2
X 628)

629 X 629

27 032256
032262
032266
032272

032276

.“‘.“.‘.......

000402
104432
000670

24 032246

(AVG)o - ccccmmcccicccicecccaecccncccieccccccccccancececcccccncacanan

".‘..........‘....‘.‘....“.‘...“‘.‘.“‘..‘.‘...““.......“

20 032230
21 032232
032234

22 032236

OSEEK,8RPCS1
0131, 8PKCS

@PKC, -(SP)

sINITIALIZE THE SEEK CYLINDER ADORESS
s INCREMENT THE SEEK CYLINDER ADDRESS
3 SEEK ADDRESS
:START COUNT AT ZERO

;START A SEEK
1START THE CLOCK

sWAIT ON INTERRUPT

1STORE THE COUNTED VALUE

0101, 8PKCS

1STOP CLOCK

o8IT14,8RPDS
19.24

;ERRe1?
NO- -BRANCH

0DTADPB,R2

10OPB8 POINTER

(SP)+,8PKB

PC.SAVREG

1AND RESTORE THE COUNT

1 1SAVE RO-RS

CZRULBO RPO? FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 58-1
TEST 9; AVERAGE SEEK TIME MEASUREMENT TEST
032432
032436
032444
032452
032456
032462
032464
032464
032466
032474
032476
032500
032504
032510
032510
032512
032516
032524
032532

004737
012777
013777
004737
004537
002630

016012
012552

104402
005077
012777
012777
012777

157506
000000
000105
000131

000001
017746

004537
002630

104403
032737
001411

JSR

150234
150226

MOV
MOV

L10057;

104403
032737
001063
005005
004737
004737

042777
012677
032777
001437
004737
012702
004737
012777
013777
004737

024644
000040
002630
011002
012766

000040

157460
000101
157444
040000
010750
002630
024644
000040
002630
011002
012766

002264
79.2%:

79.2:

004633
000001

032672
032676
032702
032704
032706

012746
012746
010600
104417
062706
000466
012705
004737
004737
005301
003214
000455

032710

004737

012426

032714
032720
032722
032726

012700
104441
004737
012702

010750
002630

177777

CS$ESUB
OBITS,SVSTAT

JSR
JSR

19.4%
RS
PC,COUNT2
PC, TWOMS

TRAP

CcsBSuB

CLR

@SEEK,3RPCS1
0131,8PKCS

157446

€101,8PKCS
(SP)+,aPKB

150114

e8IT14,8RPDS

79.3%
PC,SAVREG

0DTADPB,R2

PC, SVRHXX

150066
150060

SEGQ 0132

$SAVE ALL THE RHXX/RPO7 REGISTERS
1MASSBUS CLEAR
s SELECT DRIVE
1 sRESTORE RO-RS
:FINDOUT WHAT ERROR

sPOSITION ERROR?

s YES,

ABORT

TEST

$SET UP/DOWN SWITCH TO UP
sUPDATE THE COUNT
s STALL 2 MSEC
;START THE COUNT AT ZERO

sALWAYS SEEK BACK TO THE FIRST CYLINDER
1START A SEEK
1START THE CLOCK
iWAIT ON INTERRUPT

;SAVE THE CLOCK VALUE
1STOP THE CLOCK
iNOW RESTORE THE VALUE
;ERR=1?
:NO - -BRANCH
1 $SAVE RO-RS

;:DPB POINTER
$SAVE ALL THE RHXX/RPO7 REGISTERS
tMASSBUS CLEAR

s SELECT DRIVE
: tRESTORE RO-RS
sFIND OUT WHAT ERROR

002264
79.4%:;

CS$ESUB
@8BITS,SVSTAT
79.3%

;POSITION ERROR?
iNO, CONTINUE

OPOSERR, -(SP)

SP,RO
CSPNTF

000004
016012
012552

TRAP
BIT
BNE

PC, SVRHXX
OCLR,aRPCS2
DTADPB, 8RPCS2
PC,RESREG
RS ,ERRANY

aPKB

150200
150136
157462

L10060:
000040

JSR
JSR
DTADPB

.11

79.3%:

“.Sp
79.84
#-1,RS
PC,.COUNT2

PC, TWOMS

R1
79.18
79.84
79.7¢:

1SET UP/DOWN SWITCH TO DOWN

tUPDATE THE COUNT
1STALL 2 MSEC
?
:DONE
#NO - -BRANCH
s YES--EXIT

PC,FORSEC

tRESET

PC,SAVREG

1 1SAVE RO-R5
10PB POINTER

@DTADPB,R2

TIMER TO 4 SEC,

1DROP THE PRIORITY

CHANGE CLK SERVICE

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE S8-2
TEST 9: AVERAGE SEEK TIME MEASUREMENT TEST
032732
032736
032744
032752
032756
032764
032772
033000

82
83 033004
033010
033014
033020
033024
033026
033032
033034
033036
033040
85 033042
033042
033050
033056
87 033062
033066
033070
89 033074
91 033076
033102

033106
033112
033116
033120
92 033124
033124
93
033126

004737
012777
013777

016102
016237

024644
000040

002630
000014
000036

116237
116237
004737

000006
000007
011002

013746

002656
023046
002654
000003

012746
013746
012746

104437
062706
104456

147734
147726

JSR

PC, SVRHXX

MOV

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

MOV
MOV
MOV

002276
002302
002300

MOvVB
MOVB

PC,RESREG

MOV

RPVEC+2, -(SP)
@ISRV, -(SP)
RPVEC, -(SP)

MOV
MOV

TRAP
ADD
TRAP

000024
006201

007672

79.8%:

oCLR,aRPCS2
DTADPB,8RPCS2
14(R1),R2

JSR

MOV

000010

D11

20
EM20
DH44

MOV
MOV
JSR
JSR

OCLR,8RPCS2
DTADPB,aRPCS2

016354

JSR
SP11

R4 ,SPTYP

013746
012746
013746
012746
104437
062706

002656
023046
002654
000003

MOV
MOV
MOV
MOV

RPVEC+2,-(SP)

104401
000000

L10056:

INCCYL:

s sRESTORE RO-RS

s SETUP RHXX/RPO7 VECTOR

10,SP

000040
002630
012000
016504

000010

tMASSBUS CLEAR
s SELECT DRIVE
:ADDRESS OF SAVED REGISTER TABLE
tGET CURRENT CYLINDER
1GET CURRENT SECTOR
sGET CURRENT TRACK

CS$ERHRD

. WORD
. WORD
. WORD

TIMT11

$SAVE ALL THE RHXX/RPO7 REGISTERS

C$SVEC

012777
013777
004737
004437
002462
004437
002526

147630
147622

5EQ 0133

PC,ST.CLK
R4, TYPTIM

;:CLEAR THE MASSBUS
:+€ SELECT DRIVE

s INITIALIZE THE CLOCK
;GO TYPE THE TIMES
sPOINTER

:SETUP RHXX/RPO7 VECTOR

#3,-(SP)

TRAP
ADD

C$SVEC

TRAP

CSETST

. WORD

€10,SP

:CYL ADR COUNTER

El1l

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

TIMING

S5EG 0134

TEST

LSBTTL

NN -

10:

TEST

10:

MAXIMUM SEEK

820800 0880080000000

YT N

1 *

THIS

TIMING

TEST

04 0000000400000 0000000080080 8 000000000000 0000sbttbtatits

TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER O TO

CYLINDER 'LC’, THEN A REVERSE SEEK FROM CYLINDER ‘LC’ TO
BOTH SEEKS ARE TIMED AND CHECKED TO ENSURE
CYLINDER 0.

O®

THEY ARE WITHIN THE TOLERANCE ALLOWED FOR THE MAXIMUM SEEK
TIME,
THIS SEQUENCE IS REPEATED S12 TIMES (FOR
A TOTAL OF 1024 SEEKS).
THE MAXIMUM SEEK TIME MUST BE LESS
46 MS,
‘LC* DEFAULTS TO 629 (10)
FOR RPO7'S.

THAN

Fi8088088800008808088
0000884000800
8000888
88 0040008004000
0800080
040400004000800800
8
0

033130
033130
033134
033136
033140
033142
033146
033150
033152
033154
033160
033164
033170

005737
003002
104432
000642
004437
000402
104432
000630
012703
012701
004737
004737

002260

033174
033200
033204
033210
033214
033216

012746
012746
013746
012746
104437
062706

000300
033614
012230
000003

OPRIO6, -(SP)
0710.7%,-(SP)

000010

010,SP

27
28 033222
033226
033232
033236
033242
033244
033250
033250
033252
033256
033264
33 033272
033300
35 033302
033306
37 033314
033320
39 033326
40 033330
033334
033340
033344
033352

oeg 3

TEST

012746
012746
013746
012746
104437
062706

104402
005077
013777
012777
012777
000001
017746
042777
012677
032777
001426
004737
012702
004737
012777
013777

T10::

TST
B8GT

TRAP

015612

1%:

. WORD
JSR
BR
TRAP

002472
001000
015742
012364

28:
TEST10:

156720

000101

156704
040000
010750
002630
024644
002630

;KW1l1-P CLOCK

s YES--START TEST

R4, SRCHOO

;D0 A MASSBUS INIT & RECAL
sRETURN HERE IF NO ERROR

OTIMT12,R3

1PARAMETER POINTER
;REPEAT "0-'LC’-0" 512 TIMES

28
CSEXIT
L10061-.

@512.,R1
PC,.STRTMR

+INIT. THE TIMERS
:STOP THE CLOCK
;SETUP VECTOR IN CASE OF CLOCK OVERFLOW

C$SVEC

OPRIOO, -(SP)

:SETUP RHXX/RPO7 VECTOR

QDORTI, -(SP)

RPVEC, -(SP)

C$SVEC

000010

000105
000131

1$
CSEXIT
L10061-.

PC,STOPCK

015740
002654
000003

156746

CLKSTA

T10.1:

147440
147376
156722

156706
147354

T10.1%:

10,SP

csBSuB

aPKB
LC,SRPDC
O0SEEK, 8RPCS1
@131,8PKCS
8PKC, -(SP)
€101,8PKCS

(SP)+,8PKB
#8IT14,8RPDS
710.2¢

PC,SAVREG

@DTADPB,R2

147326
147320

PC, SVRHXX

OCLR,8RPCS2
DTADPB,8RPCS2

1START COUNTING FROM ZERO

sMAXIMUM CYLINDER

1START A SEEK
1START THE CLOCK

iWAIT ON INTERRUPT

$SAVE THE CLOCK
1STOP THE CLOCK

1AND RESTORE THE COUNTED VALUE
1ERR=17

31NO- -BRANCH
1 1SAVE RO-RS
1DPB POINTER
1SAVE ALL THE RHXX/RPO7 REGISTERS
1MASSBUS CLEAR

1 SELECT DRIVE

CZRJULBO RPO7 FCTNL
TEST

10:

TEST MACRO v04.00

MAXIMUM SEEK

033360

41 033364
42 033370

43 033372
033372
a4 033374
45 033402
46 033404
47 033406
48 033412
49 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
033614
033620
033624
033626
033632
033636
033642
033650

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
104403
032737
001411

012746

TIMING

TEST

1-DEC-83

12:59:38 PAGE 59-1

011002
012766
L10062:

000040

002264
T10.2%:

016212
012552

156600
147274
000105
000131
156554

T10.2:

156556
156542

040000

147210

156540

010750
002630
024644
000040
002630
011002
012766

+POSITION ERROR?

T10.4¢
RS
PC,COUNT
PC.TWOMS

csBSuB

@DTADPB,R2
PC, SVRHXX
DTADPB, 8RPCS2
PC.RESREG
RS,ERRANY

T10.45%:

CS$ESUB
oBITS,SVSTAT
T10.3¢

ABORT

TEST

:SET _THE UP/DOWN SWITCH TO uwP
;UP THE COUNT
:STALL FOR TWO MILLISEC

s START COUNT AT ZERO
;BEGINNING CYLINDER IS O
:START A SEEK
iSTART THE CLOCK
;WAIT ON INTERRUPT
$1SAVE THE CLOCK
:STOP THE CLOCK
sNOW RESTORE CLOCK
‘ IIERRII.I?

$1NO - -BRANCH
: sSAVE RO-RS
;0P8 POINTER
;SAVE ALL THE RHXX/RPO7 REGISTERS
:MASSBUS CLEAR
1SELECT DRIVE
: sRESTORE RO-RS
sFIND OUT WHAT ERROR

;POSITION ERROR?
iNO, CONTINUE

OPOSERR, -(SP)
SP,.RO

T10.3%:

“.SP
710.8%

PC,COUNT

PC, TWOMS
R1
710.1%
710.8¢

012426

T10.7%:

PC,FORSEC
OPRIOO,RO

010750
002630
024644
000040
002630

s YES,

CS$PNTF

177777
016212
012552

012700
104441
004737
012702
004737
012777
013777

CSESUB
#BITS,SVSTAT

710.3%
PC,SAVREG

000004

004737

TRAP

BIT
BNE
CLR
JSR
JSR

(SP)+,aPKB
#8IT14,8RPDS

002264

004633
000001

: sRESTORE RO-RS
:FIND OUT WHAT ERROR

101,8PKCS

L10063:

000040

PC,RESREG
RS ,ERRANY

aPKC, -(SP)

147162
147154

5EQ 0135

JSR
JSR
DTADPB

8PKB
SRPDC
@SEEK,3RPCS1
@131,8PKCS

147232

000101

F11

C$SPRI

147030
147022

PC,SAVREG
@DTADPB,R2
PC, SVRHXX

oCLR,BRPCS2
DTADPB,8RPCS2

:SET THE UP/DOWN SWITCH TO DOWN
sUPDATE THE COUNT
sSTALL FOR TWO MILLISEC
?
1DONE
1NO - -BRANCH
1 YES--EXIT

+RESET TIMER TO 4 SEC,

1DROP THE PRIORITY

CHANGE CLK SERVICE AD

1 $SAVE RO-RS
1OPB POINTER
1SAVE ALL THE RHXX/RPO7 REGISTERS

1MASSBUS CLEAR

+SELECT DRIVE

CZRJLBO RPO7 FCTNL
TEST

10:

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

MAXIMUM SEEK

033656
033662
033670
033676
033704
79 033710
033712
033714
033716
80 033720
033720

033726
81 033734
82 033740
033744
83 033746
033752
85
033754
033760
033764
033770
033774
033776

87 034002
034002

TIMING

GL1

016102
016237

MOV
MOV
MOVB
MOvVB

002276
002302
002300

116237
116237

004737
104456
000024
006201
007672

JSR

14(R1),R2
36(R2),CYL.RD

6(R2),SEC.RD
7(R2),
TRK ,RD
PC,RESREG

CSERHRD
20

710.8%:

000040
002630
012000
016504

016354

R4,SPTYP

013746
012746
013746
012746
104437
062706

002656
023046
002654
000003

RPVEC.2, -(SP)
@ISRV, -(SP)
RPVEC, -(SP)

000010

146752
146744

L10061:

;sADDRESS OF SAVED REGISTER TABLE
;GET CURRENT CYLINDER
;GET CURRENT SECTOR
sGET CURRENT TRACK
; sRESTORE RO-RS

EM20
DH44

012777
013777
004737
004437
002472
004437
002534

104401

SEG 0136

TEST

4CLR,8RPCS2
DTADPB,aRPCS2
PC,ST.CLK
R4,TYPTIM

TRAP

C$SVEC

TRAP

CSETST

#10,5P

;:CLEAR THE MASSBUS
+€& SELECT DRIVE
s INITIALIZE THE CLOCK
:GO TYPE THE TIMES
:POINTER
:SETUP RHXX/RPO7 VECTOR

CZRJLBO RPO7 FCTNL
11:

1-DEC-83

RN
UNE W=

TEST

TEST MACRO v04.00
MID-TRANSFER SEEK TEST

12:59:38 PAGE 60

.SBTTL

TEST

11:

H11
SEQ 0137

MID-TRANSFER SEEK TEST

L
L L
T T T
T
LT T
I

s THIS TEST EXECUTES READ-DATA COMMMANDS TO EVERY

sFIRST(STARTING) CYLINDER.

TRACK

IN THE

:THE FULL TRACK TRANSFER IS MADE IN 2 PASSES:
:
:

1ST PASS,
2ND PASS,

SECTORS:
SECTORS:

00.
25.

: THE PARAMETERS:

H
3
:
:
:

STARTING CYLINDER
STARTING TRACK
ENDING TRACK
INCREMENT TRACK
STARTING SECTOR

THRU 24,
THRU (49.

+1)

= FC
= FT
s LT
s 1
=0

3
PINARAAAR
0000000
AAA
000000
LML
0A0A00RA0
0RE
E4A000000
4RA
000000000
000
08408

Ti1::

004737
004737
113737
112737
013737
012737
112737
113737
013737
012737
005037

JSR

002630

TRAP

csB8SuUB

R4 ,DRVCAL
DOTWO

18:

JSR
ST
BMI
DEC
MOVB
ADD
ar

2%:

CLR

DOTWO

SuUB

9-256. ,0TADPB+4 ;WC FOR 1ST HALF TRACK

St a
Ti1.2%:

005037
105037
162737

034162
034166
034172
034174
034200
034202
034206
034206

104403
113702
063702
023702
101403
110237
000740
004737

104401

002640
002634

002256
177400
002641
002216
002214
002641
020400

002634

sINITIALIZE THE SUB-SYSTEM

1STOP THE CLOCK

DRVNO,DTADPB
ORDDAT,DTADPB+2
TRKWC,DTADPB+4
#0BUFF ,DTADPB+6
€0,DTADPB+10
FT,DTADPB+11
FC.DTADPB+12
OREG,DTADPB+14
DOTWO

104402
004437
005737
100411
005337
112737
062737
000762

PC,RPINIT

PC,STOPCY.

MOVB
MOVB
MOV
MOV
MOVB
MOVB
MOV
MOV
CLR

002634

002636
002640
002641
002642
002644

JSR

T11.5¢:

CLRB

TRAP
MOVB
ADD

CMP
8LOS
MOVB
BR
EXIT11: JSR
L10064:
TRAP

24
DOTKO
€25. ,DTADPB+10
0-256. ,0TADPB+4
Ti1.2¢

DTADPB+10

CS$ESUB
grnope.11.na
T.R2

LT,R2
EXIT11

R2,DTADPB+11
T11.24
PC.RPINIT
CSETST

1DRIVE ADDRESS
;READ-DATA COMMAND
;ASSUME HALF FULL TRACK
;BUFFER ADDRESS
;SECTOR ADDR
: TRACK ADDR
;CYLINDER ADDRESS
;RHXX/RPO7 REGISTER
;RESET 2 ITERATIONS CONTROL

;START A DATA TRANSFER
;DONE HALF TRACK TWICE?

s YES, EXIT 2 ITERATIONS LOOP
iNO, MARK 2ND ITERATION
;TFR 2ND HALF OF TRACK
;YES, SET WC FOR 2ND HALF TRACK +
;LOOP TO TFR 2ND MALF TTRACK

sRESET PARAMETERS FOR 1ST LOOP

;RESTART AT SECTOR O

tUPDATE THE TRACK ADDRESS
1ADD THE DESIRED TRACK NUMBER

tOVER THE TRACK LIMIT?
1BRANCH IF SO
1 TO NEXT TRACK
1LOOP BACK

1 SECTOR

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

ERROR REGISTER BIT

SEQ 0138

TEST

OO
NS W -

TEST

I11

.SBTTL
L

TEST

12:

ERROR REGISTER BIT

i1 s
L
HL

TEST

Y PP
Y Y Y YT I I

THIS TEST FORCES LBT
MICRO DIAGNOSTICS

LBT,ADE:

£ AOE ERROR BITS

112737

012737
012737

113737
113737
013737
012737

104402
004737
032762
001005
104456
000062
007335
000000
104403
032762

001403
004537
002630

062737

104402
004737
032762
001005
104456
000063
007427
000000

104403
042762
001005
032762
001001
000403
004537
002630

104401

020400
012364

000171
177400
042762
002274
002272
002266
002754
015160
002000

T12::

002630
002632
002634
002636
002640
002641
002642
002644

000012

Yy YT

PC.RPINIT

s INITIALIZE THE SUB-SYSTEM

MOVB
MOVB
MOV
MOV
MOVB

DRVNO,DTADPB

:DRIVE AD

PC,STOPCK

:STOP THE CLOCK

TO READ ONE SECTOR

NT1,DTADPB+11

SEC 49

ODBUFF ,DTADPB+6
NS1,DTADPB+10

;DATA BUFFER
;SET LAST USER SECTOR IN DPB
sI.E.,

CYL 629,

TRK 31,

OREG,DTADPB+14

;POINT TO RHXX/RPO7 REG TABLE SAVED ON CMD DONE

C$BSUB
PC, EXECHMD
oLST,12(R2)

sEXEC CMD
iLBT=1?

TST12

C$ERHRD

040000

000012

TST12:

002634

1¢:
T12.2:

012766

177400
015160
001000

000014

v
C$ESUB

OERR, 12(R2)
13
RS, ERRANY

#SCTRWC,DTADPB +4
C$BSUB
PC, EXECMD
QAOE, 14(R2)
TST12A

C$ERHRD
EMS1

i0K, SKIP

001000

000014

TST12A:

000200

;OTHER ERRORS?

012766

1$:

.
;

:SET DPB TO READ BEYOND LAST SECTOR
sATTEMPT TO READ PAST LAST SECTOR
sAOE=1?
10K, SKIP

2s:
EXIT12:
L10066:

1 (ER2)(ER3) = 0 ?

CSETST

iFLAG OTHER ERROR,

;
|
:

|
|
'

#DVC,42(R2)

RS, ERRANY

;

iNO, SKIP
i YES, FLAG THEM

1CLEAR ERROR IN ERROR TABLE

14
24

|
|

@ACE, 14(R2)
1%

CSESUB

;

51
L10070:

|
;
|

50
EMSO
L10067:

ORDDAT,DTADPB+2 ;SET READ CMD IN DPB
@SCTRWC,DTADPB +4
;SET WORD COUNT

NC1,DTADPB.12

T12.1:

JSR

THE

READ THE LAST USER SECTOR WITH A WORD COUNT >256.

004737
004737
113737

THAT ARE NOT FULLY CHECKED BY

IF ANY

iNO, FLAG OTHER ERRORS
1SKIP ON (ER1)(ER2)(ER3)
iFLAG ERRORS

= O

|
|

;

CZRJLBO RPO7 FCTNL
TEST

13:

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

OFFSET/RETURN-TO-CENTER-LINE

1
2

.SBTTL

)

9
10 034436
11 034436

20
21
22
23
24

034442
034450
034456
034464
034472
034500
034506
034514
034514
034516
C34522
034526
034534
034536
034540
034542
034544
034546

25
e 034546

27 034550
28 034556
034556
29 034560
30 034564
31 034570
32 034576
33 034600
034602
034604
034606
34 034610
034610
35 034612
034614
36 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

015056
002644
000001

000012

104403

012737
104402
004437
013702
032762
001407
104456
000067
007610
000000
104403
104432
000010

005337
001312

000117
015056
002644
000001

002632

LI I

TST13:
T13.2:

000012

T13.1%:

EXIT13:
104401

AN OFFSET

L10071:

L L

COMMAND,

PROCESS

T T

THE

ATTENTION

THE ASSERTION OF OM OF RPDS.

I E L

PC,RPINIT
€10, ,ITCNT
DRVNO,DTADPB
FS,DTADPB+10

YT YT

AND CHECK

ATTENTION

YT
FOR

INTERRUPT

I T TIITIIIIY

s INITIALIZE THE SUB-SYSTEM
sSET ITERATION COUNT
:GET DRIVE NUMBER
:OPERATE ON FS,FT,FC

FT,DTADPB+11
FC,OTADPB+12
OREG,DTADPB+14
;POINTER TO RHXX/RPO7 REG TABLE SAVED ON CMD DONE
@OFFSET,DTADPB+2
:LOAD OFFSET CMD

csB8SUB
R4 ,DRVCAL
DTADPB+14 ,R2
Q0M, 12(R2)
TST13
C$ERHRD
5S4
EMS4
O

TRAP

C$ESUB

MOV

ORTC,DTADPB+2

TRAP
JSR
MOV
BIT
BEQ
TRAP
.WORD
.WORD
.WORD

csBSUB
R4 ,DRVCAL
DTADPB+14 ,R2
Q0M, 12(R2)
T13.14$
CS$ERHRD
55
EMSS
O

TRAP
TRAP
.WORD

C$ESUB
CSEXIT
L10071-,

TRAP

CSETST

DEC
BNE

T I I I I Iy

INTERRUPT

ISSUE THE RETURN TO CENTER LINE COMMAND, PROCESS THE
AND CHECK FOR ERRORS, VERIFY THE RESETTING OF OM.

JSR
MOV
TEST13: MOV
MOVB
MOvVB
MOV
MOV
MOV
T13.1:
TRAP
JSR
MOV
BIT
BNE
TRAP
.WORD
.WORD
.WORD
L10072:

L10073:

002244

OFFSET/RETURN-TO-CENTER-LINE TEST

ERRORS,VERIFY

T13::

002244
002630
002640
002641
002642
002644
002632

13:

b
ISSUE

.
i

12
13
14
15
16
17
18
19

TEST

6
7

SEQ 0139

TEST

ITCONT
TEST13

" 3START A DATA TRANSFER
;POINTER TO RHXX/RPO7 REG TBL SAVED ON CMD DONE
OM = 12
;0K

;LOAD RETURN TO CENTER LINE CMD
:START A DATA TRANSFER
;POINTER TO RHXX/RPO7 REG TBL SAVED ON CMD DONE
;:OM = 0?
;0K

:DONE ITERATIONS ?
:BR IF NO

1-DEC-83

VRN
UNHB W

CZRJULBO RPO7 FCTNL TEST MACRO v04.00
TEST 14: RANDOM READ TEST

12:59:38 PAGE 63

.SBTTL
L

TEST 14:

IK11
SEQ 0140

RANDOM READ TEST

s THIS TEST RANDOMLY SELECTS A SECTOR ADDRESS:
s

CYL BETWEEN FC AND LC,

TRK BETWEEN FT AND LT,
SEC BETWEEN FS AND LS.

sIF THERE IS NO P-CLOCK, IT THEN EXECUTES A READ DATA COMMAND
sAFTER EACH READ-DATA COMMAND,

1BUS, DATA

yyYYTT Ty

THE PROGRAM VERIFIES THE

TO 1 SECTOR

AND VERIOUS RHXX/RPO7 REGISTERS.

:IF THERE 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
sAS 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
:TO BE WITHIN A DISC REVOLUTION. FLAG LOST REVOLUTIONS.
L

034626
034626
034634
034640
034642

013737
005737
003036
004737
004737

002250
002260

002244

Ti4::

MOV
TST
BGT
JSR
JSR
MOVB
MOVB
MOV
MOV
MOV

OREG,DTADPB+14

$sSET ITERATION COUNT
i1P-CLK PRESENT?
sYES, EXEC RAND READ TEST +
s INITIALIZE THE SUB-SYSTEM
:STOP THE CLOCK
s:LOAD THE DRIVE ADDRESS
;EXECUTE READ COMMAND
;WORD COUNT = 1 SECTOR
;BUFFER ADDRESS
;RHXX/RPO7 REGISTER TABLE

JSR

R4 ,RANADR

;GENERATE A STARTING ADDRESS

TRAP
JSR

CsBSuUB
R4 ,DRVCAL

;START A DATA TRANSFER

TRAP
DEC
BNE
TRAP
.WORD

CS$ESUB
ITCNT

TEST14

;:DONE ITERATIONS ?
;BR IF NO

JSR
BR
JMP

R4, SRCHOO
18
XIT14

sMASS BUS INIT & RECAL
sNO RECAL ERROR, CONTINUE
sEXIT ON RECAL ERROR

JSR
BIC

PC,STRTMR
€101,8PKCS

s INIT THE TIMERS
;STOP THE P-CLOCK

MOV

0T714.7%,-(SP)

TRAP

C$SVEC

MOV
MOV
MOV

OPRIOO, -(SP)
QDORTI, -(SP)
RPVEC, -(SP)

034652
034660
034666
034674
034702

113737
112737
012737
012737
012737

020400
012364
002664
000171
177400
042762
002754

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

000300
035754
012230
000003

062706

000010

ADD

012746
012746
013746
012746

000000
015740
002654
000003

45
46 035010

035014
035020
035024

104403
005337
001367
104432
001206

104437

002630
002634
002636
002644
;Eifl‘:
14.1:

L1007S:

002244

EXIT14:

TST14A:

036114

155240

XTIMES,ITCNT
CLKSTA

TST14A
PC.RPINIT
PC,STOPCK
DRVNO,DTADPB
ORDDAT ,DTADPB+2

#-256. ,0TADPB+4
9DBUFF ,DTADPB+6

CS$EXIT
L10074-,

010,SP

AD MARK DET

+SETUP VECTOR IN CASE OF CLOCK OVERFLOW

1SETUP RMXX/RPO7 VECTOR

CZRJLBO RPO7 FCTNL
TEST

14:

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

RANDOM READ

035030
035032
47 035036
:g 035040

104437
062706
005005
005037

TRAP
ADD
CLR
CLR

000010

002240

C$SVEC
#10,SP
RS
TEMPO

sSET COUNT-UP FLAG FOR COUNT SUBR
:CLEAR TEMPORARY LOST REVOLUTION COUNT

;REDUCE THE TARGET SECTOR BY 2,

gé

:SECTOR.
035044
035050
035054
035060
035066
035070
035074
035076
035102

004437
113701
010137
032777
001006
162701
002002
062701
000411

63 035104
64 035106

005701
001405

66
67
68
69

001002
062701
062701

65 035110
035114
035116
035122
035126

70
71 035126
035126
035126
72 035130
73 035134
74 035142
75 035144
76 035152
77 035156
78 035164
79 035172
gg 035176

162701

104402
010137
013777
110146
113766
012677
012777
012777
012703
012777

017716
002640
002254
000004

T14.1%:
145614

000002
000062

1%:
2s:

000031
000031
000030

38:
4a%:
T71410$:
T14.2:

002252
002642

002641
145520
177400
042762
002502
000006

145562

000001
145506
145502

155020

R4 ,RANADR
DTADPB+10,R1
R1, TRGSEC
@ILV,8RPDS
. 2%
#2,R1
1%
#50.,R1
4%

TO COMPUTE THE VALUE OF

THE 2ND LOGICAL

: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
:BACKUP THE SECTOR ADDRESS FOR THE SEARCH
:BR IF < SECTOR O
:ADJUST FOR ADDRESS BEFORE SECTOR O
JEXIT

TST
BEQ

R1
3%

+IS IT SECTOR ADDR O ?
:BR IF YES

BNE
ADD
ADD

3%
@25. ,R1
024, ,R1

:BR IF NO
sADJUST FOR THE ADDRESS BEFORE SECTOR O
:REDUCE THE TARGET SECTOR BY 2

;PREPARE

TRAP
MOV
MOV
MOVB
MOVB
MOV
MOV
MOV
MOV
MOV

025..,R1

+IS IT SECTOR ADDR 25 ?

TO SEARCH

csBSUB
R1,SRHSEC

1 SAVE SEARCH SECTOR FOR LATER

DTADPB+12,8RPDC
R1,-(SP)
DTADPB+11,1(SP)
(SP)+,8RPDA
©-256. ,8RPUWC
ODBUFF , BRPBA
#T1418,R3

;CYL
sMERGE SECTOR
;AND TRK
:+LOAD TRK/SEC
sREAD 1 SECTOR
:SET DATA BUFFER ADR
s TIMING LIMITS FOR COUNT SUBR

06 ,8PKB

sALLOW > 6 REVOLUTIONS PER SEARCH:

+3 FOR IMPLIED MAX SEEK (46 MSEC OR ABOUT 3 REVOLUTIONS)

gz
035204
035212
035220
035222
035226
035234
035240
035246
035250
035254
035260
035264
035272
035300
94 035304

JSR
MOVB
MOV
BIT
BNE
SuB
BGE
ADD
BR

SuUB

85
86
87
88
89
90
91
92
93

SEQ 0141

TEST

53
54
55
56
57
58
59
60
gé

L11

+3 FOR WORST CASE SEARCH(SECT CMP ERR OR HDR CRC ERR)
012777
012777
000001
017746
042777
012677
032777
001533
004737

012702
004737
012777
013777
004737
004537

000105
000131
155000
000101
154764
040000
010750
002630
024644
000040
002630
011002
012766

155010
145450
154766

145434

145406
145400

MOV
MOV
WAIT
MOV
BIC
MOV
BIT
BEQ
JSR
MOV
JSR
MOV
MOV
JSR
JSR

€105, 8PKCS
O@SEARCH,8RPCS1
8PKC, -(SP)
©101,8PKCS
(SP)+,8PKB
#8IT14,8RPDS
T14114
PC,SAVREG
#DTADPB,R2
PC, SVRHXX
OCLR,BRPCS2
DTADPB,8RPCS2
PC,RESREG
RS,ERRANY

1 START P-CLOCK:IE,COUNT DOWN,LINE FREQ
;START A SEARCH
tWAIT ON INTERRUPT
1SAVE THE CLOCK
1STOP THE CLOCK
tAND RESTORE THE COUNTED VALUE

+ERROR?
1NO- -BRANCH
1 1SAVE RO-RS
10OPB8 POINTER
1SAVE ALL THE RHXX/RPO7 REGISTERS
tMASSBUS CLEAR
;SELECT DRIVE
1 tRESTORE RO-RS

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 63-2
TEST 14: RANDOM READ TEST
95 035310
9% 035312
035312
97 035314
98 035322
99 035324
035330
035334
035336
035340
100 035344
035350
035354
035356
035360
035364
035370
035370
035376

002630

104403
032737
001022
012746
012746
010600
104417
062706
012746
012746
010600
104417
062706
000137
012737
012777

L10076:

000210

002264

TRAP

TRAP
ADD

004614
000001

MOV
MOV
MOV

036060
000020

DTADPB

BIT
BNE
MOV
MOV
MOV

004511
000001

002350
154620

1$:
2$:

M11

TRAP
ADD
JMP

MOV
MOV

SEQ 0142

;FIND OUT WHAT ERROR
CSESUB
;RETRY ALLOWED ?
OBIT3!BIT7,SVSTAT
18
SO
IS
:BRANCH
#SEAERR, -(SP)

SP,RO
C$PNTF

#4,SP
#ABOTST, -(SP)

SP,RO
CS$PNTF
04,SP
T14.8¢

06 ,3PKB

sRETRY 16 TIMES
sALLOW > 6 REVOLUTIONS PER SEARCH:

+3 FOR IMPLIED MAX SEEK (46 MSEC OR ABOUT 3 REVOLUTIONS)
i3 FOR WORST CASE SEARCH(SECT CMP ERR OR HOR CRC ERR)
035404
035412
035420
035422
035426
035434
035440
035446

035450
035456

035470
035472
035476
035502
035504
035506
122 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

000105
000131

154600

000101

154564
040000
000040
002630
002350

154610
145250

105, 8PKCS

@SEARCH, 8RPCS1

8PKC, -(SP)
€101,8PKCS
(SP)+,8PKB
o8IT14,8RPDS
T1411$
OCLR,3RPCS2
DTADPB,8RPCS2
WCEFLG
24
#SEABAD, -(SP)

154566

145234
145222
145214

004550
000001

012677
032777

sEXIT IF NONE
tMASSBUS CLEAR
:DRIVE ADDRESS
;OVER RETRY LIMIT ?
:BRANCH IF NOT

SP,RO
CSPNTF

“.SP
@ABOTST, -(SP)

SP,RO
CS$PNTF

T14.3:;

154434
000101
154420
040000

:ERROR?

01,-(SP)

004614
000001

154454
000171
000121

s START P-CLOCK:IE,COUNT DOWN,LINE FREQ
:START A SEARCH
sWAIT ON INTERRUPT
:SAVE THE CLOCK
:STOP THE CLOCK
:AND RESTORE THE COUNTED VALUE

145132
145112
154436
154422

145070

T1411s:

#4,SP
T714.8¢

sEXIT

C4B8SUB
DTADPB+10,8RPDA ;SET TRK/SECT TO READ
8PKB
ORDDAT, 8RPCS1
€121,8PKCS

8PKC, -(SP)
©0101,8PKCS
(SP)+,8PKB
#8IT14,8RPDS

1CLEAR P-CLK BUFFER COUNT
1START A READ

1START THE CLOCK:IE=1,UP,SINGLE,
10US
tWAIT ON INTERRUPT
1SAVE THE CLOCK
1STOP THE CLOCK
;AND RESTORE THE COUNTED VALUE
:ERR=1?

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 63-3
TEST

14:

N11
SEQ 0143

RANDOM READ TEST

134 035612
135 035614

001437
004737
012702
004737
012777
013777
004737
004537
002630

035620
035624
035630
035636
035644
136 035650
137 035654
138 035656
035656
139 035660
140 035666
141 035670
035674
035700
035702
035704
035710

104403
032737
001411
012746
012746
010600
104417
062706
000463

035712
035716

004737
023737

010750
002630
024644
000040
002630
011002
012766

L10077:
000040

000004
016212
002320

001406
005237
104455
000064
007521
010560
021237
002044
000137

035044

035754

004737

012426

035760
035764
035766
035772
035776
036002
036010
036016
036022
036030
036036
036044
157 036050
036052
036054
036056
158 036060
036060
036066
159 036074
160 036100
036104
161 036106

012700
104441
004737
012702
004737
012777
013777
016102
016237
116237
116237
004737
104456
000024
006201
007672

000000

013777
004737

004437
002502
004437

002264

004633
000001

035724
035726
035732
035734
035736
035740
035742
035746
035750

012777

145042
145034

002240

T14124:

002240

002250

010750
002630
024644
000040
002630

1%:

T14.78:

144670
144662

000014
000036
000006
000007
011002

002276
002302
002300

000040

144612

002630
012000

016504

016354

144604

T14.8%:

BEQ
JSR
MOV
JSR
MOV
MOV
JSR
JSR
DTADPB

T1412%
PC,SAVREG
#DTADPB,R2
PC, SVRHXX
OCLR,8RPCS2
DTADPB, aRPCS2
PC,RESREG
RS ,ERRANY

TRAP
BIT
BEQ
MOV
MOV
MOV
TRAP
ADD
BR

C$ESUB
OBITS,SVSTAT
T14124
OPOSERR, -(SP)
01,-(SP)
SP,RO
CSPNTF
04,5P
T14.8$

JSR
CcCMP

PC,COUNT
TIM.UP+6,TEMPO

iNO- -BRANCH
1 1SAVE RO-RS

;OPB POINTER

:SAVE ALL THE RHXX/RPO7 REGISTERS

+MASSBUS CLEAR

s SELECT DRIVE
: sRESTORE RO-RS
sFIND OUT WHAT ERROR

sPOSITION ERROR?
sNO, CONTINUE

sCOUNT TIME SEARCH DONE -READ DONE
sANY LOST REVOLUTIONS ?

BEQ
INC
TRAP
.WORD
.WORD
.WORD
cMP
BGE
JMP

1s
TEMPO
CSERDF
52
EMS2
DMS52
(R2),XTIMES
714.8%
T14.1%

;BRANCH IF NO

JSR

PC,FORSEC

MOV
TRAP
JSR
MOV
JSR
MOV
MOV
MOV
MOV
MOVB
MOVB
JSR
TRAP
.WORD
.WORD
.WORD

OPRIOO,RO
C$SPRI
PC, SAVREG
#DTADPB,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

+RESET TIMER TO 4 SEC, CHANGE CLK SERVICE AD
:OROP THE PRIORITY

MOV

MOV
JSR

SR
T1418
JSR

OCLR,8RPCS2

DTADPB,8RPCS2
PC,ST.CLK

R4,TYPTIM
R4,SPTYP

;UPDATE TEMPORARY LOST REVOLUTION COUNT

sREPEATED 1024 TIMES?
1 YES, CONCLUDE TEST
iNO, CONTINUE

: sSAVE RO-RS
10OPB_POINTER
$SAVE ALL THE RHXX/RPO7 REGISTERS
tMASSBUS CLEAR
1 SELECT DRIVE

1ADDRESS OF SAVED REGISTER TABLE
tGET CURRENT CYLINDER
$GET CURRENT SECTOR
1GET CURRENT TRACK
1 stRESTORE RO-RS

1CLEAR THE MASSBUS
1€ SELECT DRIVE
s INITIALIZE THE CLOCK

1GO TYPE THE TIMES

1 POINTER

CZRJULBO RPO7 FCTNL
TEST

14:

TEST MACRO v04.00 1-DEC-83

RANDOM READ

162 036112
163 036114
164 036114
036120
036124
036130
036134
036136
165 036142
036142

TEST

12:59:38 PAGE 63-4

002542
013746
012746
013746
012746
104437
062706
104401

002656
023046
002654
000003

xIT14:

000010

L10074;

5EG 0144

SP1418
MOV
MOV
MOV
MOV
TRAP
ADD

RPVEC+2, -(5P)
OISRV, -(SP)
RPVEC, -(SP)
03,-(SP)
CS$SVEC
010,5P

TRAP

CSETST

;SETUP RHXX/RPO7? VECTOR

CZRJULBO RPO7 FCTNL
FE

VbW - OO YT NS
Ny =

1S:

1-DEC-83

12:59:38 PAGE

LSBTTL

TEST

15:

5E0 0145

CYLINDER ADDRESSING

TEST

H "..‘0‘0“““..““‘.“‘...“‘..‘.‘..‘.....‘...
0‘0000.‘

THIS

THE FE CYLINDERS ARE CYL 630 AND 631,

s = I

THE

CYLINDERS;

"DMD” BIT OF THE RPMR REGISTER IN ORDER TO ACCESS

H
:

LOCATES

TEST

.00‘..“.“‘0“.“0.“

:
:

TEST

TEST MACRO v04.00
CYLINDER ADDRESSING TEST

THE

FIRST

TEST

CYCLE,

THE

TEST

SETS

CYLINDERS.

THEN,

THIS

TEST EXECUTES READ MEADER AND DATA COMMANDS

SEQUENTIALLY TO VERIFY THE ADDRESSING OF THE SECTOR O
OF EACH TRACK ( O TO 31 ) ON THE FIRST FE CYLINDER.
AT

THE

SECOMD

TEST

CYCLE,

A SEEK COMMAND IS EXECUTED TO ACCESS THE SECOND FE CYLINDER.

331000000800 0000000000080008000000800000800000000040000800000000000

000008008000008

T1S::

004737
004737

012737
113737
012737
012737
012737
013737
013704
122764
001411
122764
001405
104455
000044

007017
010702
104444

002640
002642
020320

104402
004437

015056

104403
005737
100425
123737
101403
105237

cMP8
BEQ

TRAP

100000
000105

104402
112737
004437

ggza

020320

052737
112737

104403
005737
100437

036334
036342
036344

002244
002630
002634

JSR
JSR
MOV
TEST1S: MOvB
MOV
MOV
MOV
MOV
MOV

002630
002632

18:
—
1S.1:

L10101:
002646

T15.2:
000173
015056

002632

L10102:

002646

002272

002641

TST1S:

002641

PC.RPINIT
sINITIALIZE THE SUB-SYSTEM
PC,STOPCK
sSTOP THE CLOCK
€10, ,ITCNT
sSET ITERATION COUNT
DRVNO,DTADPB
1LOAD THE DRIVE ADDRESS INTO DPB
OSCTRWC ,DTADPB -4
1256 WORDS
00BUFF ,DTADPB+6 ;BUFFER ADDRESS
©0,DTADPB+10
sTRACK O, SECTOR O
NC2,DTADPB+12
sASSUME NO FIX HEAD OPTION
DRVNO, R4
:TO FIND OUT FIX HEAD OPTION

:?.DRVTYP(RC)

:BRANCH IF NO FIX HEAD

04 ,DRVTYP(RA)
1s

;DOES IT CONTAIN FIX HEAD
;BRANCH IS SO

CSERDF

. WORD
.MORD
.MORD

36
EM36
DH2S

BIS
MOV8

o0MD ,DTADPB
OSEEK,DTADPB+2

$sSET MAINTENACE MODE FLAG AT THE 2ND BYTE
;D0 AN EXPLICIT SEEK

TRAP
JSR

csBSUB
R4 ,DRVCAL

sSTART A DATA TRANSFER

TRAP
TST

CSESUB
DTADPB .16

sANY ERROR CONDITION EXISTS

JSR

csBSUB
ORDHD ,DTADPB+2

R4 ,DRVCAL

;READ THE HEADER AND DATA

TRAP
TST

CSESUB
DTADPB+16

1ANY ERROR

TRAP

8MI

TRAP
MOvVB

BMI
cMPB
BLOS
INCB

CSDCLN

EXIT1S

EXIT1S
NT1,DTADPB+11
14
DTADPB+11

1EXIT IF SO

1START A DATA TRANSFER

1EXIT IF SO
s1LAST TRACK CHECKED ?
1BRANCH IF NOT

CZRJLBO RPO7 FCTNL
TEST

15:

51
52
53
54
55
56
57
58
59
60
61
62
63

TEST MACRO v04.00 1-DEC-83

CYLINDER ADDRESSING

036350

000760

036352
036356
036362
036370
036370
036372
036376
036376
V36400
036404
036406
036412
036420

105037
005237
112737

002641
002642
000105

104402
004437

015056

036420

104403
005337
001266
004737
042737
104401

TEST

12:59:38 PAGE 64-1

S5EQ 0146

TST1S

1%:

002632

T15.3:

L10103:

002244
020400
100000

002630

EXIT1S:

L10100:

CLRB
INC
MOvB
TRAP

DTADPB+11

DTADPB+12
OSEEK,DTADPB
2

csBsuB

tRESET

TRACK O

sACCESS 2ND FE CYL
;D0 AN EXPLICIT SEEK

JSR

R4 ,DRVCAL

:START A DATA TRANSFER

TRAP

CSESUB
ITCNT

;DONE ITERATIONS ?

DEC
BNE
JSR
BIC

TRAP

TEST1S

PC,RPINIT

oDMD ,DTADPB

CSETST

;:BR IF NO

sINITIALIZE THE SUB-SYSTEM
;CLEAR THE DMD BIT IN THE DPB

CZRJULBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 65
TEST 16: FE CYLINDER WRITE AND WRITE CHECK TEST
OO VO NEB NIy

.SBTTL

TEST

16:

S5EQ 0147

FE CYLINDER WRITE AND WRITE CHECK

TEST
T

s THIS TEST EXECUTES WRITE-DATA SEQUENTIALLY FROM TRACK FT TO TRACK LT
sON THE FIRST FE CYLINDER WHICH IS ACCESSIBLE IN MAINTENANCE MODE.
: THE PARAMETERS ARE AS FOLLOWS:
:

s THE FULL TRACK TRANSFER IS MADE IN 2 PASSES:
H
1ST PASS, SECTORS:
00. THRU 24,
H
2ND PASS, SECTORS:
25. THRU 49,
:

H
:
H
3

STARTING TRACK
ENDING TRACK
INCREMENT TRACK
STARTING SECTOR

=
=
s
=

FT
LT
I7
FS

JSR
MOVB
MOV
MOV
MOVB
MOV
MOV

PC.RPINIT
DRVNO,DTADPB
TRKWC ,DTADPB+4
O0BUFF ,DTADPB+6
FT,DTADPB+11

sINITIALIZE THE SUB-SYSTEM
;LOAD THE DRIVE ADDRESS
;WORD COUNT = HALF TRACK
;BUFFER ADDRESS
sFIRST
TRACK

JSR

PC,.STOPCK

:STOP THE CLOCK

1108008000880 8000480004004000000888880080834080008004008800404008408000000040008

036422

004737

113737
013737
012737
113737
013737
012737
105037
052737
004737

005037
105037
013702
013703
013704
010223
005204
001375

104402
112737
004437

020400

002354
042762
002212
002270
002754
002631

012364

T16::
002630

002634
002636
002641
002642
002644

002630

002256
002640
002224

TEST16:

002634

1s:

16.1:

000105
015056

002632

L10105:

104403

T16.2:

104402
112737

000161

002632

112737
004437

000151
015056

002632

104403
005737

002256

005337
112737
000745

WRPAT:

002256
000031

L10106:

002640

CLRB
BIS

NC2,DTADPB+12
OREG,DTADPB+14
DTADPB+1
0MD ,DTADPB

CLR

DOTWO

CLRB
MOV
MOV
MOV
MOV
INC
BNE

DTADPB+10
PAT,R2
DTADPB+6,R3
DTADPB +4 ,R4
R2,.(R3).
R4
1

;FIRST FE CYLINDER W/0 FIX H
;SAVED RHXX/RPO7 REGISTER
sCLEAR THE HCI
;SET THE MAINTENANCE MODE FLAG
sRESET 2 ITERATIONS CONTROL

;RESTART AT SECTOR O
sFILL THE DATA PATTERN
;:BUFFER ADDRESS
;WORD COUNT

;BRANCH IF PATTERN IS WRITTEN TO ALL BUFF LOC

TRAP
MOVB
JSR

R4 ,DRVCAL

TRAP

CS$ESUB

TRAP
MOVB
JSR
MOVB
JSR

CsBSUB
OWRTDAT ,DTADPB 2
;WRITE DATA COMMAND
R4 ,DRVCAL
1START A DATA TRANSFER

OWCKD,DTADPB+2
R4 ,DRVCAL

;CHANGE TO WRITE CHECK DATA COMMAND
1START A DATA TRANSFER

TRAP
TST

CS$ESUB
DOTWO

;1DONE HALF

WRPAT

;LOOP TO TFR 2ND HALF

BMI
DEC
MOV8
BR

csBsuB
OSEEK,DTADPB+2

1
DOTWO
025. ,0TADPB+10

;D0 A SEEK FIRST
:START A DATA TRANSFER

TRACK TWICE?

1YES, EXIT 2 ITERATIONS LOOP
iNO, MARK 2ND ITERATION
;TFR 2ND HALF OF TRACK
TRACK

CZRJLBO RPO7 FCTNL
TEST

16:

54
55
56
57
58
59
60
61
62
63
64

67
68
69
70
71
72

73
74
75
76
77
78
79

80
81
82
83
84
85

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

F12
%5EQ G148

FE CYLINDER WRITE AND WRITE

036632
036636
036642
036646
036650

005037
105037
013702
005102
013703
013704
010223
005204
001375
104402
112737
004437

002256

18:

002640
002224

2%:

002636
3s:

716.3:

002632

104403

005737
100406
005337
112737
000745

11370C
063702
110237
023702
101244
042737
104401

WRPATN:

L10107:

104403
104402
112737
004437
112737
004437

T16.4:

000161
015056
000151
015056

002632

002632
L10110:

002256

002256
000031

002640

002641
002216
002641
002214

100000

MOV

CoM

MOV

002634

000105
015056

CLR
CLRB

1%:

DOTWO
DTADPB+10

sRESET PARAMETERS FOR
;RESTART AT SECTOR O

DTADPB+6,R3
DTADPB+4 ,R4

1BUFFER ADDRESS
i WORD COUNT
sFILL THE BUFFER WITH COMPLEMENT DATA

:BRANCH IF NOT DONE

PAT,R2
R2

R2,(R3)+
R4

csBsuB

OSEEK,DTADPB+2
R4 ,DRVCAL

1ST LOOP

s COMPLEMENT THE PATTERN

s SEEK _COMMAND

:START A DATA TRANSFER

C$ESUB
CsBSUB

OWRTDAT ,DTADPB+2
sWRITE DATA FIRST
R4 ,DRVCAL
1START A DATA TRANSFER
OWCKD,DTADPB
+2
:CHANGE TO WRITE-CHECK
R4 ,DRVCAL
;START A DATA TRANSFER

C$ESUB
D0TWO
14
D0OTWO
#25.,0TADPB+10
WRPATN

DTADPB+11,R2
IT,R2
R2,DTADPB+11

;DONE HALF TRACK TWICE?
;YES,

EXIT 2 ITERATIONS LOOP

iNO, MARK 2ND ITERATION
:TFR 2ND HMALF OF

TRACK

:2ND ITERATION
;UPDATE THE TRACK ADDRESS

LT ,R2

002630

EXIT16:
L10104:

TEST16

@DMD,DTADPB
CSETSTY

;RESET THE MAINTENANCE FLAG

CZRJLBO RPO7 FCTNL
TEST

17:

WRITE

TEST

G12

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

LSBTTL

TEST

17:

WRITE

5EQ 0149
TEST

3 3“0““0.‘.‘.‘0‘0‘0..‘000‘.“000“.‘.‘0..““‘00‘0‘0“.‘0..“‘.“.‘.0..“‘

s THIS

>
(3’

TEST

EXECUTES WRITE

WRITE

CHECK DATA ON EVERY

sNOTE:

CYLINDER 629.

WILL

NOT

USED,

IN ORDER

10
11
12
13
1;
1
16

H
SECTOR FILE DATA.
H
;THE FULL TRACK TRANSFER IS MADE IN 2 PASSES:
H
1ST PASS, SECTORS:
00. THRU 24.
H
2ND PASS, SECTORS:
25. THRU 49,
H
;s THE PARAMETERS:

19
20
21
22

H
H
3
H

004737
105737
001015

020400
002235

31 037022
037026
037032
037036
037040
037042
32 037046
33 037050
- 037052

013746
012746
012746
010600
104417
062706
005000
104432
000256

002114
004432
000002

36
37
38
39

002664
002354
042762

037104
037112

113737
013737
012737
112737
113737
013737

037126

005037

40
41
42
43
44

037054
037062
037070
037076

037120

037132

45 037136

46
47
48
49

STARTING

TO PRESERVE

THE

BAD

STARTING CYLINDER

ENDING CYLINDER

STARTING TRACK
ENDING TRACK
INCREMENT TRACK
STARTING SECTOR

F ;‘.‘.‘.““.““.“““““.“.“t““t“.““".‘.‘00.“".‘0“““.““‘.“.

037010
037010
037014
037020

sCYLINDER AND ENDING CYLINDER. AFTER EACH WRITE + WRITE CHECK OPERATION,
;}:’E‘c;m&cx ADDRESS IS UPDATE BY THE AMOUNT SPECIFIED IN THE “INCREMENT
®
H
:

]

24
25
26
28
29

0‘0

TRACK

037142
037146
037150
037152

S0 037154

51 037160
52 037162
037162

012737

013702

013703

013704
010223
005204
001375

004737

005005

104402

T17::

000006

002212
002204
002754
002256
002224

002630
002634
002636
002640

1%:

002641
002642
002644

002636
002634

JSR
TSTB
BNE

PC,RPINIT
WRTALL
1

MOV
MOV
MOV
MOV
TRAP
ADD
CLR
TRAP
. WORD

L$TEST,-(SP)
QWRTENM, -(SP)
02,-(SP)
SP,RO
CS$PNTF
06 ,SP
RO
CSEXIT
L10111-.

MOVB
MOV
MOV
MOVB

DRVNO,DTADPB
TRKWC ,DTADPB+4
#DBUFF ,DTADPB+6
€0,DTAOPB+10

MOVB
MOV
MOV
CLR
MOV

FT.DTALPB+11
FC,DTADPB+12
#REG,DTADPB+14
DOTWO
PAT,R2

MOV
MOV
INC
BNE

DTADPB +4 ,R4
R2,(R3).
R4
2

MOV

28:

012364

JSR

T17.1:

DTADPB+6,R3

PC,STOPCK

CLR

TRAP

csBSuUB

sINITIALIZE THE SUB-SYSTEM
;0ID OPERATOR WANT TO WRITE ON MEDIUM?
:BR IF YES

sNOTIFY OPERATOR THAT TEST WAS NOT RUN

;CLEAR RO FOR TRAP

1DRIVE ADDRESS
;HALF TRACK
;BUFFER ADDRESS
1SECTOR ADDRESS

s TRACK ADDRESS
1CYLINDER ADDRESS

;THE SAVED REGISTER

TABLE ADDRESS

;RESET 2 ITERATION CONTROL

;PATTERN IN R2,FILL

1BUFFER ADDRESS

1 TOTAL NUMBER OF WORD COUNT
;LOAD DATA PATTERN BUFFER
;sINCREMENT WORD COUNT
1BRANCH IF NOT DONE

1STOP THE CLOCK

11ST PASS FLAG

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

17:

WRITE

53 037164
54 037172
55 037i74
56 037200
57 037206
58 037212
59 037220
60 037224
037224
61 037226
62 037232
63 037234

023727

002642

005337
112737
004437
112737
004437

002642
000161
015056
000151
015056

001002

104403

005737
100406
005337

037250
037254
037260
037264
037270
037274
037276
037302

005037
105037
113702
063702
023702

002256
002640
002641
002216
002214

037304
037306
037310
037312
037320
037326

005705
001010
005205
113737
013737
000716

000746

103403
110237
000730

104401

001165

TEST17:

002632

1$:

002632
L10112:

002256

112737

037330
037330
037330

5EQ 0150

TEST

002256
000031

037240
65 037246

H1e

002640

2%:

3%:
43:

MOVB

JSR
MOvB

JSR

TRAP
TST
BMI

DEC
MOVB
BR
CLR
CLRB
MOvVB
ADD

CMP
BLO

002641

DTADPB+12,0629. ;IS THIS THE LAST USER CYLINDER ?
1%
:BR IF NO
DTADPB+12
tOON’'T WRITE ON LAST USER CYLINDER
OWRTDAT,DTADPB+2
tWRITE DATA COMMAND

R4 ,DRVCAL
OWCKD,DTADPB+2
R4 ,DRVCAL

C$ESUB

DOTWO
3
00TWO
025.,0TADPB+10
TEST17
DOTWO
OTADPB+10
DTADPB+11,R2
IT,R2
LT.R2
5%
R2,DTADPB+11
TEST17

S$:

002212
002206

CcMP
BNE
DEC

002641
002642
EXIT17:
L10111:

RS
EXIT17
RS
FT,DTADPB+11
LC.OTADPB+12
TEST17

CSETST

;D0 THE WRITE COMMAND
100 THE WRITE CHECK COMMAND
;D0 THE WRITE CHECK COMMAND

;DONE HALF TRACK TWICE?

:YES,

EXIT 2 ITERATIONS LOOP

iNO, MARK 2ND ITERATION
:GET STARTING SECTOR FOR 2ND HALF OF TRACK
;LOOP TO XFER 2ND HALF OF TRACK
;RESET PARAMETERS FOR 1ST LOOP

sRESTART AT SECTOR 0O

sUPDATE THE TRACK ADDRESS
s INCREMENT BY THE SPECIFIED AMOUNT
sOVER THE LIMIT ?

:BRANCH IF SO

sUPDATE THE TRACK ADDRESS

:LOOP BACK

;IS IT 2ND PASS?

;YES,

EXIT

iNO, FLAG 2ND PASS
sRESET THE STARTING TRACK
;UPDATE THE CYLINDER ADDRESS TO LC
;LOOP BACK

ile

NNy e

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 67
TEST 18: RANDOM WRITE TEST

.SBTTL

TEST

OO YO NS

s THIS

18:

RANDOM WRITE TEST

TEST

SEQ 0151

EXECUTES WRITE

PP PP

PPN

WRITE CHECK DATA RANDOMLY;

+IN THE PACK AREA BONDED BY THE (STARTING CYLINDER,
:

(STARTING TRACK,

(STARTING SECTOR,

: THE TRANSFER SIZE IS ALWAYS EQUAL TO ONE SECTOR.

ENDING CYLINDER)

ENDING TRACK)

ENDING SECTOR)

;

+IF THERE 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

+AS A SECTOR DETECTION.

SEARCH FOR

: SELECTED SECTOR TO WRITE,

THE

THEN WRITE

SECOND LOGICAL

:DONE -WRITE DONE TO BE WITHIN A DISC REVOLUTION.
f

sNOTE: CYLINDER 629. WILL NOT BE USED,
:
SECTOR FILE DATA.

SECTOR PRECEDING THE

THE SELECTED SECTOR.

TIME THE SEARCH

FLAG LOST REVOLUTIONS.

IN ORDER TO PRESERVE THE BAD

;PARAMETERS:
:
STARTING CYLINDER

3
3
3
:
H
:

ENDING CYLINDER
STARTING TRACK
ENDING TRACK
STARTING SECTOR
ENDING SECTOR

PATTERN

(0888044880488 8 0088048808048 08 00488008808 880000000004800004808080000000000000004

037332
037332
037336
037342

004737
105737
001015

020400
002235

013746
012746
012746

002114
004432
000002

037344
037350
037354
037360
037362
037364
037370
037372
037374

010600
104417
062706
005000
104432
001600

037376
037404
037412
037420
037426
037434
037440
037444
037450
037452
037454
037456
037462
037464

013737
113737
012737
012737
012737
013702
013703
013704
010423
005202
001375
005737
003055
004737

T18::

JSR
TSTB
BNE

PC.RPINIT
WRTALL

MOV

L$TEST,-(SP)

MOV
MOV

MOV

1%:

2s:

:BR IF YES
;NOTIFY OPERATOR THAT TEST WAS NOT RUN

OQWRTENM, -(SP)
02,-(SP)

SP,RO

TRAP

CS$PNTF

TRAP

CSEXIT

ADD
CLR

002244
002630
002634
002636
002644

sINITIALIZE THE SUB-SYSTEM
;0ID OPERATOR WANT TO WRITE ON MEDIUM?

#6,SP
RO

sCLEAR RO FOR TRAP

.WORD

L10113-,

MOV
MOVB
MOV
MOV
MOV
MOV
MOV
MOV
MOV

XTIMES, ITCNT
DRVNO,DTADPB
©-256.,0TADPB+4
@DBUFF ,DTADPB+6
OREG,DTADPB+14
DTADPB +4 ,R2
DTADPB+6,R3
PAT,R4
R4,(R3)+

1SET ITERATION COUNT
s YES, PROCEED:
SET UP THE PAPAMETERS
;WORD COUNT SET TO ONE SECTOR
;BUFFER ADDRESS
;THE SAVED RHXX/RPO7 REGISTER TABLE
1WORD COUNT
1BUFFER ADDRESS
1PATTERN
tFILL THE BUFFER WITH DEFAULT PATTERN

TST

CLKSTA

1P-CLK PRESENT?

INC
BNE

BGT
JSR

R2
24

TST18A
PC,RPINIT

s INCREMENT THE WORD COUNT
1LOOP IF NOT DONE

1 YES, EXEC RAND WRT TST + AD MRK DET TST
s INITIALIZE THE SUB-SYSTEM

CZRJULBO RPO7 FCTNL
TEST

18:

TEST MACRO v04.00
RANDOM WRITE TEST

1-DEC-83

037470
037474

004737
004437

012364
017716

037500
037506
037510

123727
001004
023727

002641

000037

002642

001165

037516
037520
037524

037526
037532

037536

037542
03754€
037552

037554
037554
037554
037556

037564
037570
037576
037602

037602
037604

037610
037612
037612
037614

001766
105737
001413

002634
002636

013723
062702
100773

011774
000001

004737

3s:

Ss$:
T18.1:
000161
015056
000151
015056

104403
005337

002244

002632
002632
L10114:

EXIT18:

004437
0004C2
000137
004737
042777

015612

037642
037646
037652
037656
037662
037664

012746
012746

013746
012746
104437
062706

000300
041006
012230
000003

037670
037674
037700
037704
037710
037712
037716
037720

012746
012746
013746
012746
104437
062706
005005
005037

000000
015740
002654
000003

037724
037730

105737
001413
013702
013703

002234

041146
015742
000101

TST18A:
1%:

152360

000010

000010
002240

002634
002636

TST188:

67-1

J12

JSR
JSR

PC,STOPCK
R4 ,RANADR

CMPB
BNE
CMP

DTADPB+11,031.
2
DTADPB+12,#629.

BEG
TSTB
BEQ

MOV
MOV

JSR

MOV
ADD
BMI

1%
RANPAT
5%
DTADPB+4 ,R2
DTADPB+6,R3
PC,RAND
$RP1,(R3).
o1,R2
4

TRAP
MOVB
JSR
MOVB
JSR

CsBSuB
OWRTDAT,DTADPB+2

TRAP
DEC

CSESUB
ITCNT

TRAP
.WORD

CSEXIT
L10113-.

JSR
BR
JMP
JSR
8IC

R4, SRCHOO
1s
XIT18
PC,STRTMR
€101,8PKCS

MOV
MOV
MOV
MOV
TRAP
ADD

OPRIO6, -(SP)
@T180FL, -(SP)

PKV, -(SP)
03, -(SP)
C$SVEC
010,SP

MOV
MOV
MOV
MOV
TRAP
ADD
CLR
CLR

OPRIOO, -(SP)
®DORTI, -(SP)
RPVEC, -(SP)
03, -(SP)
C$SVEC
#10,SP
RS
TEMPO

TSTB
BEQ
MOV
MOV

RANPAT
24

BNE

104432
001360

037616
037622
037624
037630
037634

037732
037736

24:

011712

104402
112737
004437
112737
004437

001327

TEST18:
1%:

002234

013702
013703

12:59:38 PAGE

R4 ,DRVCAL
OWCKD,DTADPB +2
R4 ,DRVCAL

TEST18

DTADPB+4 ,R2
DTADPB+6,R3

SEQ 0152

$1STOP THE CL OCK

sGENERATE THE RANDOM STARTING ADDRESS
tMAKE SURE YOU DON’'T WRITE IN THE BAD SEC FILE
:IS THIS THE LAST TRACK ?
:1BR IF NO
+IS THIS THE LAST USER CYLINDER ?
:BR IF YES
: SELECT RANDOM PATTERN ?
:+BRANCH IF NOT

sWORD COUNT 2'S COMPLEMENT
:BUFFER ADDRESS

:GERERATE NEW RANDOM NUMBER

sFILL THE BUFFER WITH RANDOM PATTERN
sFINISH ?
;LOOP BACK , IF NOT DONE

:00 A WRITE DATA

;D0 A WRITE CHECK DATA

;OONE ITERATIONS ?
;:BR IF NO

: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

1 SETUP RHXX/RPO7 VECTOR

1SET COUNT-UP FLAG FOR COUNT SUBR
sCLEAR TEMPORARY LOST REVOLUTION COUNT
s SELECT RANDOM PATTERN ?

1BRANCH IF NOT
tWORD COUNT 2'S COMPLEMENT
1BUFFER ADDRESS

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 67-2
TEST

18:

RANDOM WRITE

96 037742
97 037746

004737
013723

138 037756

100773

98 037752

062702

011712
011774

1%:

000001

PC,RAND
$RP1,(R3).

1+GERERATE NEW RANDOM NUMBER
sFILL THE BUFFER WITH RANDOM PATTERN

BMI

;LOOP BACK

ADD

o1,R2

:SECTOR.

104 037760
105
106 037764
107 037772

004437

017716

123727
001004

002641

000037

109 040002

023727

001766

002642

001165

113701
010137
032777
001006
162701
002002
062701
000411

002640
002254
000004

040004
040010
040014
040022
040024
040030
040032
040036

119
120
121
122
123
{gg

040040
040042
040044
040050
040052
040056

126
127 040062
040062
040062
128 040064
129 040070

130 040076
131 040100
132 040106

133 040112
134 040120
135 040126

{gg 040132

005701
001405
162701
001002
062701
062701

104402
010137
013777
110146
113766
012677
013777
013777
012703
012777

2%:

142660

000002
000062

4%:
S$:

000031

000031
000030

6%:
78:
T18.2:

002252
002642

142626

002641
142564

000001

000006

152064

002634
002636
002502

142552
142546

sFINISH ?

TARGET SECTOR BY 2,

IF NOT DONE

TO COMPUTE THE VALUE OF

THE 2ND LOGICAL

JSR

R4 ,RANADR

CMPB
BNE

DTADPB+11,#31.
38

;GEN A RAND ADR: CYL, TRK, SEC
sMAKE SURE YOU DON'T WRITE IN THE BAD SEC FILE
;IS THIS THE LAST TRACK ?
:BR IF NO

BEQ

:BR _IF YES

CcMP

3%:

138

MOVB
MOV
BIT
BNE
SuB
BGE
ADD
BR
TST
BEQ
SUB
BNE
ADD
ADD

OTADPB+12,#629.
DTADPB+10,R1
R1, TRGSEC
@ILV,8RPDS
5%
02,R1
4%
#50.,R1
7%
R1
64
025.,R1
6%
#25.,R1
#24. ,R1

;IS THIS THE LAST USER CYLINDER ?

sGET TARGET SECTOR ADDRESS TO WRITE AND
:SAVE IT FOR LATER.
+ IS INTERLEAVED SECTOR ENABLED ?
:BR IF YES
:BACKUP THE SECTOR ADDRESS FOR THE SEARCH
:BR IF < SECTOR O
;ADJUST FOR THE ADDRESS BEFORE SECTOR O
sEXIT
+IS IT SECTOR ADDR O ?
:BR IF YES
+IS IT SECTOR ADDR 25 ?
:BR IF NO
:ADJUST FOR THE ADDRESS BEFORE SECTOR O
sREDUCE THE TARGET SECTOR BY 2

+PREPARE TO SEARCH
TRAP
MOV
MOV
MOVB
MOV
MOV
MOV
MOV
MOV
MOV

csBSuB
R1,SRHSEC
DTADPB+12,8RPDC
R1,-(SP)
OTADPB+11,1(SP)
(SP)+,8RPDA
DTADPB+4 ,8RPWC
OTADPB+6,8RPBA
#T1418,R3
06 ,8PKB

:SAVE SEARCH SECTOR FOR LATER
;CYL
+MERGE SECTOR
;AND TRK
sLOAD TRK/SEC
;WRITE 1 SECTOR
;SET DATA BUFFER ADR
s TIMING LIMITS FOR COUNT SUBR
sALLOM > 6 REVOLUTIONS PER SEARCH:

13 FOR IMPLIED MAX SEEK (46 MSEC OR ABOUT 3 REVOLUTIONS)

{23

141
142
143
144
145
146

JSR
MOV

;REDUCE THE

igg

110
111
112
113
114
115
116
ii;

SEG 0153

TEST

101

108 037774

K12

+3 FOR WORST CASE SEARCH(SECT CMP ERR OR HDR CRC ERR)
040140
040146
040154
040156
040162
040170

012777
012777
000001
017746
042777
012677

148 040202
149 040204
040210

001534
004737
012702

147 040174

032777

000105
000131
152044
000101
152030
040000

010750
002630

152054
142514

152032

142500

MOV
MOV
WAIT
MOV
B8IC
MOV

€105, 8PKCS
OSEARCH,8RPCS1
aPKC, -(SP)
0101,8PKCS
(SP)+,8PKB

s START P-CLOCK:IE=1,COUNT DOWN,LINE FREQ
;START A SEARCH
tWAIT ON INTERRUPT
1SAVE THE CLOCK
1STOP THE CLOCK
sAND RESTORE THE COUNTED VALUE

BEQ
JSR
MOV

T1811%
PC,SAVREG
oDTADPB ,R2

sNO - -BRANCH
1 1SAVE RO-RS
:OPB POINTER

BIT

081IT14,8RPDS

1ERROR?

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 67-3
TEST

18:

150
151
152
153
154
155

156

RANDOM WRITE

040214
040220
040226
040234
040240
040244
040246
040246
040250
040256
040260
040264
040270
040272
040274
040300
040304
040310
040312
040314
040320

032737
001022
012746
012746
010600

040324
040332

012737
012777

004737
012777
013777
004737
004537
002630

104403

104417
062706

012746
012746

%
SEQ 0154

TEST

024644
000040
002630
011002
012766

142452
142444

L10115:

000210

002264

004511
000001

PC, SVRHXX

JSR
J5R
DTADPB

PC,RESREG
RS ,ERRANY

TRAP
BIT

C$ESUB
OBIT3!BIT7,SVSTAT
;sRETRY ALLOWED ?
8¢
:BRANCH IS SO

#CLR,aRPCS2
DTADPB,aRPCS2

;SAVE ALL THE RHXX/RPO7 REGISTERS

sMASSBUS CLEAR
s SELECT DRIVE
s sRESTORE RO-RS

sFIND OUT WHAT ERROR

#SEAERR, -(SP)

SP,RO
CSPNTF

000004
004614
000001

04,SP
@ABOTST, -(SP)

CS$PNTF

000004
041112
000020
000006

JSR

MOV
MOV

€4 ,SP

T18END

002350

151664

8s:
9s%:

916. ,WCEFLG

#6,3PKB

sRETRY 16 TIMES
sALLOW > 6 REVOLUTIONS PER SEARCH:

+3 FOR IMPLIED MAX SEEK (46 MSEC OR ABOUT 3 REVOLUTIONS)
i3 FOR WORST CASE SEARCH (SECT CMP ERR OR MDR CRC ERR)

012777
012777
000001
017746
042777
012677
032777
001434
012777
013777

005337
001342
012746

012746
010600

178

179
180

181
182
183
184 040514

104417
062706
012746
012746
010600
104417
062706
000137
104402
013777
005077
012777
012777

000105
000131

151644
000101
151630
040000
002630
002350

151654
142314

€105, 8PKCS
@SEARCH, 8RPCS1

8PKC, -(SP)

151632

#101,8PKCS

(SP)+,aPKB
08IT14,8RPDS

142300

T18114

142266
142260

OCLR,8RPCS2
DTADPB,8RPCS2
gsEFLG

004550
000001

@SEABAD, -(SP)

sWAIT ON INTERRUPT

:SAVE THE CLOCK
:STOP THE CLOCK
1AND RESTORE THE COUNTED VALUE
1ERROR?
:EXIT IF NONE
sMASSBUS CLEAR
1+DRIVE ADDRESS
tOVER RETRY LIMIT ?
:BRANCH IF NOT

SP,RO
CS$PNTF

000004
004614
000001

04,SP
@ABOTST, -(SP)

SP,RO
C$PNTF

000004
041112

002640
151516
000161
000121

sSTART P-CLOCK:IE,COUNT DOWN,LINE FREQ
$START A SEARCH

T18.3:

142174

142154
151500

T1811%:

#4,5P
T18END

1OTHERWISE EXIT

CsBSUB
DTQDPBOl0.0RPDA 1SET TRK/SECT TO WRITE
OWRTDAT,BRPCS1
©121,8PKCS

tCLEAR P-CLK BUFFER COUNT
1START A WRITE

sSTART THE CLOCK:IE=1,UP,SINGLE,10US

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

18:

185
186
187
188
189
190
191

RANDOM WRITE

040522

000001

040530
040536
040542
040550
040552
040556
040562

042777
012677
032777
001437
004737
012702
004737

000101
151462
040000

004737
004537
002630

011002
012766

040524

040566
040574

040602
192 040606
193 040612

194 040614

040614

195 040616
040624

197 040626
040632

017746

012777
013777

104403

032737
001411

151476

010750
002630
024644

000040
002630

000040

040636
040640
040642

004633
000001

040650
040654
040660
040664
040670
040674
040676
040702
040710
040712

004737
013746
012746
013746
012746
104437
062706
112737
104404
004437

016212
002656
023046
002654
000003

040716
040720
040726
040730
040734
040736
040740
040742

104405
023737
001406
005237
104455
000064
007521
010560

040716

210
211 040744
212 040752
213
214 040754
040760
040764
040770
040774
040776
215 041002
216
217 041006

000521

WAIT

MOV

151464

BIC
MOV
BIT
BEQ
JSR
MOV
JSR
MOV
MOV

142132

142104
142076

L10116:

012746
012746
010600
104417
062706

040646

SEQ 0155

TEST

002264

002632

015056
002320

10000% :
002240

002240

OCLR,aRPCS2
DTADPB,8RPCS2
PC,RESREG
RS ,ERRANY

C$ESUB

MOV
MOV
MOV
TRAP
ADD

OPOSERR, -(SP)
o1, -(SP)
SP,RO
CSPNTF
04,SP

JSR
MOV
MOV
MOV
MOV
TRAP
ADD
MOVB
TRAP
JSR

PC,COUNT
RPVEC+2, -(SP)
@ISRV, -(SP)
RPVEC, -(SP)
3, -(SP)
C$SVEC
#10,SP
OUCKD,DTADPB+2
C$BSEG
R4 ,DRVCAL

TRAP
CMP
BEQ
INC
TRAP
.WORD
.WORD
.WORD

C$ESEG
TIM.UP+6, TEMPO
1¢
TEMPO
CS$ERDF
52
EMS2
DHS52

CMP
BGE

TIM.UP+14 ,XTIMES
T18END
s YES,

T1812%:

sWAIT ON INTERRUPT
:SAVE THE CLOCK
1STOP THE CLOCK
sAND RESTORE THE COUNTED VALUE
1ERR=1?
$NO - -BRANCH
: $1SAVE RO-RS
;:OPB POINTER
:SAVE ALL THE RHXX/RPO7 REGISTERS
sMASSBUS CLEAR
+ SELECT DRIVE
s sRESTORE RO-RS
:FIND OUT WHAT ERROR

TRAP

BIT
BEQ

000004

000010
000151

JSR
JSR
DTADPB

aPKC, -(SP)

OBITS,SVSTAT
T1812%

;sPOSITION ERROR?
;NO, CONTINUE

T18END

;COUNT TIME SEARCH DONE-WRITE DONE

;D0 A WRITE CHECK DATA CMD

;D0 RECALIBRATE
sANY LOST REVOLUTIONS ?
1BRANCH IF NO
sUPDATE TEMPORARY LOST REVOLUTION COUNT

1SETUP RHXX/RPO7 VECTOR
sREPEATED 1024 TIMES?
CONCLUDE TEST
1SETUP RHXX/RPO7 VECTOR

023737
002057

002326

013746

002656

MOV

RPVEC+2, -(SP)

000010

MOV
MOV
MOV
TRAP
ADD

JMP

®DORTI, -(SP)
RPVEC, -(SP)
03, -(SP)
C$SVEC
#10,SP
TST188

1 CONTINUE

JSR

PC.FORSEC

+RESET TIMER TO 4 SEC, CHANGE CLK SERVICE AD

012746
013746
012746
104437
062706

000137
004737

002250

1%:

015740
002654
000003

037724

012426

T180FL:

CZRJLBO RPO7 FCTNL TEST MACRO v04.00 1-DEC-83 12:59:38 PAGE 67-5
TEST

18:

012700
104441
004737
012702
004737
012777
013777
016102
016237
116237

223
224
225
226
227
228
229

C$SPRI

PC,SAVREG

#DTADPB ,R2

246
247
248

255

DTADPB, 8RPCS2

14(R1),R2
36(R2),CYL.RD
6(R2),SEC.RD

002276
002302
002300

012777
013777
004737

000040
002630
012000

004437
002502
004437
002542

016504

104401

PC, SVRHXX

141636
141630

004737
104456

013746
012746
013746
012746
104437
062706

;DROP THE PRIORITY

#PRIOO,RO

116237

222

SEG 0156

RANDOM WRITE TEST

218
219 041012
041016
220 041020
041024
041030
041034
041042
041050

221

N12

141560
141552

7(R2), TRK.RD
PC,RESREG

T18END:

OCLR,8RPCS2
DTADPB,8RPCS2

;:CLEAR THE MASSBUS
:€& SELECT DRIVE
s INITIALIZE THE CLOCK

R4, TYPTIM

;GO TYPE THE TIMES
;POINTER

PC,ST.CLK

TST18C:

016354
002656

C$ERHRD
20
EM20
DH44

R4,SPTYP
XIT18:

:SETUP RHXX/RPO7 VECTOR

002654
000003

)

C$SVEC

000010

010,SP

L10113:

: sSAVE RO-RS
;OPB POINTER
;SAVE ALL THE RHXX/RP0O7 REGISTERS
1MASSBUS CLEAR
;SELECT DRIVE
;ADDRESS OF SAVED REGISTER TABLE
$sGET CURRENT CYLINDER
;GET CURRENT SECTOR
;GET CURRENT TRACK
: sRESTORE RO-RS

CSETST

PARAMETER CODING MACRO VO4.00
TEST 18: RANDOM WRITE TEST

1-DEC-83

2
13

12:59:38 PAGE

B13
68

5EQ 0157

.TITLE PARAMETER CODING

.SBTTL

a2
a4
as
a6
47
a8
49

HARDWARE PARAMETER CODING SECTION

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

000022

L$HARD:
;

. WORD
. WORD
. WORD
. WORD

041210
041212
041214
041216

001031
041257

041220
041222
041224
041226
041230

002032
041273
000340
000000
000007

041232
041234
041235
041240
041242

003032
041304
000007
000000
000007

177777

000000
000377

041244
041257
041273
041304

T$CODE

120

102
104

122
122

103
103
111

MESGl:
MESG2:
MESG3:
MESG4:

.ASCIZ
.ASCIZ
.ASCIZ
.ASCIZ

;PRINT

'RPCS1

;PRINT

'VECTOR ADRS?*

;PRINT

'BR LEVEL?’

;PRINT

'DRIVE 02

ADRS?:

MESG1
TSLOLIM
TSHILIM
T$CODE
MESG2
TSLOLIM
TSHILIM
T$CODE
MESG3
340
TSLOLIM
TSHILIM

T$CODE

?ESG‘

TSLOLIM
TSHILIM

L10117:

122

THE
TO ESTABLISH COMMUNICATIONS

WORD L10117-L$HARD/2

000031
041244
160000

041244

SUPERVISOR

WITH THE OPERATOR.

53355 33885 B3Es

50
51
52
53 041176
041200
54
55 041200
041202
041204
041206

THE SUPERVISOR AS DATA STRUCTURES.

MACROS ALLOW THE

/RPCS1 ADRS/
/VECTOR ADRS/
/BR LEVEL/

/DRIVE o/

C | 7

)

T NS ulyre

PARAME TER CODING MACRO Vv04.00 1-DEC-83
SOF TWARE PARAMETER CODING SECTION

.SBTTL

5EG 6158

SOFTWARE PARAMETER 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

O®

INTERPRETED BY

THE SUPERVISOR AS DATA STRUCTURES.

MACROS ALLOW THE SUPERVISOR
WITH THE OPERATOR,

000116

041316
041320
041322

015130
041552
000001

041324

056044

041326
041330
041332

000052
041602
001777

21
22 041352

041354
041356
041360
041362

23
24 041364
041366
041370
041372
041374
041376
041400
041402
041404
041406

LS$SOFT::

001164
001052
041620
001777

001165
041636
001777

001164
003052
041654
000037

000036
004052
041672
000037
000037

27
28 041410
041412

005052
041710

041416
041420

000036

041422

006052

041414

000037

THE

TO ESTABLISH COMMUNICATIONS

.WORD L10120-L$SOFT/2
. WORD
. WORD

§ 88858 53333 88888 BREE3 B8%88 BEEEE B G

041314
041316

041340
041342
041344
041346
041350

s
i

041334
041336

12:59:38 PAGF

T$CODE
PARMSG
1

T$CODE

T$CODE
FCMSG
1777
TSLOLIM
TSHILIM
T$CODE

;PRINT

’'CHANGE

DRIVE PARAMETERS?’

3GO TO 1% IF NO
sPRINT

' STARTING

A4 %

:PRINT

'ENDING

CrL2’

;PRINT

‘ INCREMENT

CrL?’

iPRINT

' STARTING

TRK?'

iPRINT

'ENDING

TRK?'

sPRINT

* INCREMENT

TRK?*

sPRINT

'STARTING

SEC?’

LCMSG
1777

TSLOLIM
TSHILIM

T$CODE

ICMSG
1777

TSLOLIM
TSHILIM
T$CODE

FTMSG

TSLOLIM
TSHILIM

T$CODE
LTMSG
37
TSLOLIM
TOHILIM
T$CODE

ITMSG
37

TSLOLIM
TOHILIM

T$CODE

PARAMETER CODING MACRO vO4.00

1-DEC-83

SOF TWARE PARAMETER CODING SECTION
041424
041426
041430
041432

69-1

041726
000077
000000
000060

.WORD
. WORD
.WORD
.WORD

FSMSG
77
TSLOLIM
TSHILIM

007052
041744

.WORD
.WORD

T$CODE
LSMSG

34 041446

010032

.WORD

T$CODE

041452
041454
041456
35 041460

177777
000000
177777

.WORD
.WORD
.WORD

3
32 041434
041436

041440
041442
041444
041450

38 041460
041462
041464

39
40 041466
41
42

43
44 041470
041472

12:59:38 PAGE

000077
000001
000061

041762

PATMSG

014120
042000
000400

. WORD
. WORD
.WORD

T$CODE
WRITMG
400

007044

.WORD

T$CODE

014120

.WORD

T$CODE

042047
000400

47 041476

014130

041500
041502

042202
000001

48 041504
49 041504

041506
041510

Ty
TS$LOLIM
TSHILIM

. WORD

041474

.WORD
. WORD
.WORD

011130

042261
000001

1$:

. WORD
. WORD

. WORD

2%:

.WORD
. WORD

.WORD

WRSAFM
400

'ENDING

;PRINT

'DATA

;PRINT

‘DO

SEC?’

PATTERN?'

;GO TO 2%
;PRINT
§
2

YOU WANT

TO WRITE

ANYWHERE ON MEDIA?’

IF NO

‘! CUSTOMER DATA WILL BE OVERWRITTEN !
meeeececccccccecccceccccccccccccccan=s

CONTINUE?’

;PRINT

'USE RANDOM DATA PATTERNS FOR RANDOM WRITE TE

:PRINT

'PERFORM READ HEADER & DATA DURING SEEKS?’

T$CODE

RPATMG
1
T$CODE

.WORD
.WORD

RDHDMG
1

.WORD
. WORD
.WORD

T$CODE
TIMMSG
400

53 041520
041522
041524

013130
042353
000400

.WORD
. WORD
.WORD

T$CODE
STOMSG
400

STEAD OF 2 MSEC?’
55 041526
012130
041530
042405
041532
000001
- YEfS’?S?

. WORD
.WORD
.WORD

T$CODE
STLTIM
§

57 041534
041536
041540

012130
042501
000400

. WORD
.WORD
. WORD

T$CODE
STALMG
400

59 041542
60 041544
041546

004044
013130
042566

.WORD
. WORD
. WORD

T$CODE
T$CODE
STALRM

;PRINT

011130
042331
000400

S5EQ 6159

177777
TSLOLIM
TSHILIM

51 041512
041514
041516

D17

;PRINT ‘TYPE TIME REPORTS?’

sPRINT ' INHIBIT SOF TWARE TIMEOUTS?*

;PRINT ‘TIMING TESTS, STALL BETWEEN SEEKS: RANDOM IN

tPRINT

‘STALL AFTER EVERY DRIVE FUNCTION IN NON-TIMI

:GO TO 3¢ IF NO

PARAMETER

CODING MACRO v04.00

1-DEC-83

SOF TWARE PARAMETER CODING SECTION
041550
61 041552
&2
71

000001

L10120:

110
124
116
116
124
116
116
124
116
101

041654
041672
041710
041726
041744

041762
042000
042047

117

011
011

042120
042171
042202

117

123
105
131
116

042261
042331
042353
042405
042501
042566

111

124
123

101
101

103
101

124
040

041

055
116
105
122

10
115
101
105

=
5EQ 0160

.WORD

3s:

041552

7e
76 041552
77 041602
78 041620
79 041636

80
81
82
83

12:59:38 PAGE 69-2

PARMSG:
FCMSG:

LCMSG:
ICMSG:
FTMSG:

LTMSG:
ITMSG:
FSMSG:

LSMSG:

PATMSG:

WRITMG:
WRSAFM:

RPATMG:

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

ZENDING

CyLs

/7ENDING

TRK/

/INCREMENT CyL/
/STARTING
TRK/
7 INCREMENT TRK/
/STARTING
SEC/
/ENDING
SEC/
/DATA
PATTERN/
/D0 YOU WANT TO WRITE ANYWHERE ON MEDIA/

<BELL>/

! CUSTOMER DATA WILL BE OVERWRITTEN

!/<CR><LF>

CBELLY/ --ccccccecccccccccccccccccccccccccaa- /<CR><LF>
/CONTINUE/

/USE RANDOM DATA PATTERNS FOR RANDOM WRITE TEST/
/PERFORM READ HEADER & DATA DURING SEEKS/
/TYPE TIME REPORTS/
/INHIBIT SOFTWARE TIMEOUTS/
/TIMING TESTS, STALL BETWEEN SEEKS: RANDOM INSTEAD OF 2 MSEC/
/STALL AFTER EVERY DRIVE FUNCTION IN NON-TIMING TESTS/
/USE RANDOM STALL TIMES/

.EVEN

122

042616

$PATCH:
: .BLKW

50.

:PROGRAM PATCH AREA (50.

042762
073762

DBUFF
::

256.425,
256.

;:DATA BUFFER FOR HALF A TRACK
:ONE SECTOR EXTRA FOR MID-TRANSFER SEEK TEST

074762
074764
074766

075002

LSLAST::

.BLKW
.BLKW

.EVEN
.WORD T$FREE
.WORD T$SIZE

WORDS)

PARAMETER CODING MACRO V04.00 1-DEC-83

SOF TWARE PARAMETER CODING SECTION
1
14
16 074766
074770
074772
074772
074774
074776
075000
075002

176700

12:59:38 PAGE

L10121:

000254
000240
000001

L10123:
.END

£ 8

5EQ 0161

.WORD
. WORD

0
L10123-.72-1

.WORD
. WORD
. WORD
.WORD

176700
254
240
0

C$QIO =

000111
020566
002664 G
025452
002666 G
020310
020320

EM1
EM11
EM12

005420
005733
005755

DVvC
=
ECH
=
ECI
=
EF .CON=
EF .NEW=
EF .PWR=
EF .RES=
EF .STA=
EMPTYQ

EM13
EM14
EM1S
EM16
EM17
EM2
EM20
EM21
EM22
EM23
EM24

EM36
EM4
EMA1
EM42
EM43
EMA4
EMAS
EM46
EMA7
EMS
EMS0
EMS1
EMS2
EMS4
EMSS
EM6
EM7
ERR
=
ERRABO

000200
000100
004000
000036
000035
000034
000037
000040
025432

005776
006017
006054
006121
006154
005465
006201
006250
006274
006324
006360

007017
005605
007054
007107
007134
007156
007224
007255
007305
005627
007335
007427
007521
007547
007610
005647
005705
040000
015214

OO0

012766
000004
000004
000002
EXECMD
015160
EXINIT
026410
EXIT1
027026
EXIT11
034202
EXIT12
034434
EXIT13
034624
EXIT14
034724
EXIT1S
036406
EXIT16
037000
EXIT17
037330
EXIT18
037612
EXIT2
027136
EXITS
027362
EXIT4
027576
EXITS
030034
EXIT6
030142
EXIT7
031172
ESEND = 002100
ES$LOAD= 000035
FC
002204
FCMSG
041602
=
FER
FMTRK =
FMT16 =
FORSEC

F$BGN =
F$CLEA=
F$DU
=
FSEND =
F $HARD=
FS$HW
=
F$INIT=
FSJMP =
F$MOD =
F$MSG =
F$PROT=
F$PWR =
FS$RPT =
F$SEG =
F$SOFT=
FSSRV =
F$SUB =
F$SW
=
FS$TEST=

GETREG= 000141
GETREQ
025526

(217

020376
= 004000

ERRANY
ERRVECEVL
=
EWN
=

(21~17]

DH44E

DTUW
DVA

OO0
0OD

001000
000007
002362
000001
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000
100000
000004
000010
000020
000040
000100
000200
000400
001000
000400
100000
002262
014374
014512
014674
002236
017634
021630
022014
022126
022452
022474

004403

OOOOOOOOOOOOOOOOOOOOOOOOOOOO0

Al7
=
BELL
=
BITS
BITO
=
B8ITO0 =
BITO1 =
BIT02 =
BITO3 =
BITO04 =
BITOS =
BITO6 =
BITO7 =
BITO8 =
BITO09 =
BIT1
=
BIT10 =
BIT11 =
BIT12 =
BIT13 =
BIT14 =
BIT1S =
BIT2
=
BIT3
=
B8IT4
=
BITS
=
BIT6
=
BIT7
=
BIT8
=
BIT9
=
BOE
=
BSE
=
BYPASS
CALL.A
CALL.B
CALL.C
CHANGE
CHKAVG
CI1
CI3
CI4
CIS
CIe

DSNMSG

DTADPB
002630
DTE
= 010000

OO0

017266

C$RDBU= 000007
CSREFG=
CSRESE
=
CSREVI=
CSRFLA=
CSRPT =
C$SEFG=
C$SPRI=
CS$SVECC$TPRI=
DBUFF
=
DCK
OCu
=
DELTA
DFPTBL
DH25
OH25A
DH44
DH44A

000000000

AVERAG

AVERGE
005010
AVGVAL
017347
Al6
= 000400

022536
022552
022624
002260

SEQ 0162

ASSEMB= 000010
ATA
= 100000
ATABIT
002744

OO0

= 000020
= 001000

ADR
AOE

004614
020354
020355
014322

CI7
CI78
CI1s
CLKSTA
=
CLR
CLRQUE
CMOD
=

QOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOE

ABOTST
ACTDRV
ACTSTR
ADJUST

015406
026334

70-1

OO0

ABOPAS
ABORT

1-DEC-83 12:59:38 PAGE

OOOOOOOOOOOOOOO

PARAMETER C gOING MACRO V04.00
SYMBOL TABL

OO0

L$CLEA

Ls$CO
L$DEPO
L$DESC
L$DESP
LS$DEVP
L$DISP
LSDLY
LS$DTP
L$DTYP
LSOV
L$DUT
LSDVTY
LSEF
LSENVI
LSETP
LSEXP1
LSEXP4
L$EXPS
L $HARD
LSHIME
LS$HPTP
L$HW

LsICP
LS$INIT
LS$LADP

L10031
L10032
L10033
L10034
L10035
L10036
L10037
L10040
L10041
L10042
L10043
L10044
L10045

010364
010556

010700
010746
012424
012516

012670
015740
023114

027730
027740
030002
030012
030142
030110

017313
017270
017615
017506
017563
MSGSEA
017533
MSPGE = 002000
MSSC
= 100000
MXF
= 001000
005055
002266
002270

NT1

OCTHEX
OFFSET=
OFLMSG

ONECYL
ONEFIL=
oP1
=
oPT
O$APTS=
0sAU
=
O$BGNR=
O$BGNS=
OsDU
=
O$ERRT=
OSGNSU=
O$POIN=
0$SETU=

PARMSG
PAT
PATMSG
PCLKTB
PGE
PHF
=
PKB

PKC
PKCS
PKV
PNT
@
POPQUE

POSERR
PRI
PRIOO
PRIO1
PRIO2
PRIO3
PRIOA
PRIOS

MSGMAX

MSGMIN
MSGNON
MSGNUM
MSGOPE

OOOOOOOOOOOOOO

002202
002240

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 G
005122 G
020000 G
000400 G
041244
041257
041273
041304
017434
017336
017362
005221 G

0000

074766
002100
002074
002050
002000
002042
025624
002112
002062
002010
025616
041316
002056
002020
002024
002030
002204
002114
002014
002012

(2]121~)

=
=

LOE
=
LoT
=
LS
LSMSG
LST
=
LY
LTMSG
L$ACP
LSAPT
L$AU
L$AUT
L$AUTO
LsCCP

2]~}

LKV

LSLAST
L$LOAD
LSLUN
LS$SMREV
L $NAME
L$PRIO
L$PROT
L$PRT
L $REPP
L$REV
LS$RPT
L$SOFT
L$SPC
L$SPCP
L$SPTP
LS$STA
L$SW
LS$TEST
LSTIML
LSUNIT
L10000
L10001
L10002
L10003
L10004
L10005
L10006
L10007
L10010
L10011
L10012
L10013
L10015
L10016
L10017
L10020
L10021
L10022
L10023
L10024
L10025
L10026
L10027
L10030

5EQ 0163

LBC
LC
LCE
=
LCLKTB
LCMSG
LOCMD
LF .
=
LKS

70-2

KWSRY

17217

INCCYL
ISR
=
ISRCNT
ISRV
IT
ITONT
ITMSG
IXE
=
IXU
=
IsSAU
=
ISAUTO=
ISCLN =
IsDU
=
ISHRD =
ISINIT=
Is$MOD =
IS$MSG =
ISPROT=
ISPTAB=
I$PWR
ISRPT

I$SEG =
I$SETU=
ISSFT
I$SRvV
IsSuB
I$TST
JEJMP

(]

HCRC

12:59:38 PAGE

cooOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO

GSCNTO=
GS$DELM=
GSDISP=
GS$EXCP=
GS$HILI=
GSLOLI=
GSNO
=
G$OFFS=
GS$OFSI=
G$PRMA=
GS$PRMD=
GSPRML
=
G$RADA=
G$RADB=
G$RADD=
GS$RADL
=
G$RADO=
GSXFER=
GSYES =

1-DEC-83

ooooOooe

TABLE

(21717

SYMBOL

oOcOcoocomommmmmoOOOOOO.

PARAMETER CODING MACRO Vv04.00

012000

012320
012246

TESTS
TEST6
TEST?
TEST8

TEST9
TICKMS

TICKUS
TIMER
TIMMSG
TIMSTL
TIMTYP
TIMT10
TIMT11
TIMT12
TIM.DN
TIM.PT
TIM.UP
TRE
=
TRGSEC
TRKWC
TRK.DS
TRK.RD
TRNSWT
TST12
TST12A

T$$SW =
T$$TES=
T1
T1.1
T10
710.1
710.1%
710.2
710.24
710.3s
710.4%
T10.74
T710.8%
T11
T11.1
T11.2%
T11.5¢
T12
T12.1
T12.2
T13
T13.1
T13.1
T13.2
T14
T14.1
T14.1
T14.2
T14.3
T14.7%
714.8s¢
T1410%
T1411%
T1412%
T1418
T1S
113.3
T15.2
T15.
T16
T16.
T16.
T16.
T17
T17.
T18
T18END
T180FL
T18.1
T18.2
T18.3
T1811$
718124
T2
T2.1
T2.11

010001
010113
026762
027006
033130
033250
033252
033416
033404
033572
033550
033614
033720
034004
034100
034102
034156
034210
034300

034354
034436
034514
034616
034556
034626
034714
035044
035126
035534
035754
036060
035126
035536
035712
002502
036144
036272
036310
036370
036422
036542
036560
036666
036704
037010
037162
037332
041112
041006
037554
040062
040472

040474
040650
027032
027054
027054

217

012364
015742

TST13
034550
TST14A
034736
TST1S
036312
TST18A
037616
TST188
037724
TST18C
041132
TWOMS
012552
TYPTIM
016504
TYTIME
002242
T$ARGC= 000001
T$CODE= 013130
TSERRN= 000024
TS$EXCP= 000000
T$FLAG= 200040
TS$FREE= 075002
T$GMAN= 000000
TSHILI= 177777
TSLAST=
TSLOLI=
TSLSYM=
TSLTNO=
TSNEST=
T$NSO =
TSNS]1 =
TINS2 =
T$PCNT=
T$PTAB=
T$PTHV=
T$PTNU=
T$SAVL
=
T$SEGL
=
T$SEKO=
T$SIZE=
T$SUBN=
T$TAGL
=
T$TAGN=
TSTEMP=
TS$TEST=
T$TSTM=
T$TSTS=
T$SAU =
T$$AUT=
T$$CLE=
T$$DAT=
T$$DU =
T$$HAR=
TESHW =
T$$INI=
T$$MSG=
T$$PC =
T$$PRO=
T$$PTA=
T$SRPT=
T$4$SEG=
T$$SOF
=
T$$SRV=
T$$SUB= 010116

042501
002232
042566
042405
024200
002233
042353

STALMG
STALRD
STALRM
STLTIM
STO
STOFLG
STOMSG
STOPCK
STRTMR
ST.CLK
ST.LCL
ST.PCL
SVCGBL
=
SVCINS=
SvCSuB=
SVCTAG=
SVCTST=
SVRHXX
SVSTAT
SSLSYM=
T0
TEMPO
TEST1
TEST10
TEST13
TEST14
TEST1S
TEST16
TEST17
TEST18
TEST3
TEST4

SEQ 0164

OoOmoOOoOoo
O
OO0

70-3

ooooOnoOOn.

O
OO0
(7]

O6
OOOOOOOOOOOOOOOD

OOOOOOO

OO0

SAVREG
SC

002710
002714
002722
002720
020200
020210
020220
020230
020240
020250
020260
020270
024104
002654
002672
021122
000117

OCOOO

011666
025056
025150
025170
025210
025230
025250
025270
025310
025330
025066
025106
025126
025130
025350
017716
011712
002234
000171
000173
042261
000175
000200
024426
000121
000107
002226
002754
RELSE = 000113
RESREG
011002
REV
005204
RHEXT
002660
RHTYPE
002662
RMR
= 000004
ROTATE
004674
RPADR
002652
RPAS
002706
RPATMG
042202
RPBA
002674
RPBAE
002740
RPCC
002726
RPCS1
002670
RPCS2
002700
RPCS3
002742
RPDA
002676
RPDB
002712
RPDC
002724
RPDS
002702
RPDT
002716
RPEC1
002734
RPEC2
002736
RPER1
002704
RPER2
002730
RPER3
002732
RPINIT
020400

QCNT
QDRVO
QDRV1
QDRvV2
QDRV3
QDRvV4

RPLA
RPMR1
RPOF
RPSN
RPSTUO
RPSTU1
RPSTU2
RPSTU3
RPSTU4
RPSTUS
RPSTU6
RPSTU?
RPTMR
RPVEC
RPWC
RPO7
RTC
RWU1
RWU2
RWU3

12:59:38 PAGE

000300 G
000340 G

PRIO6 =
PRIO7 =
PSTACK

1-DEC-83

TABLE

SYMBOL

—

PARAMETER CODING MACRO v04.00

T74.1

T4.2
T5
15.1
T5.11
15.2
15.3

75.31
15.4
15.5
15.51
15.6

ABS.

T6
76.1
76.11
16.2
17
T7A
17.1
T7.1%
77.10%
17.2
T7.2%
17.20¢
77.3%
77.44%
T7.7%
77.8%
T8
78.1
78.1%

027254
027372 G

027460

027470
027606 G
027650
027652
027660
027722
027724
027732
027774
027776
030004

075002
000000
ERRORS DETECTED:

030036 G
030102
030104
030112
030144
002442
030312
030314
030440
030616
030620
030554
031016
030504
031032
031136
031222
031300
031376

18.10%
18.2
18.2%
18.3
78.3%
78.4%

78.5%

78.6%
18.7%
78.84
18.9%
19
9.3
79.1%
19.2
19.24
79.3%
19.4%

19.7%

031762
031412
031546
031604
031560
031570
031310
031774
032022
032126
031740

032212
032354
032336
032510
032476
032666
032644
032710

000
001
0

VIRTUAL MEMORY USED:
30464 WORDS
( 119 PAGES)
DYNAMIC MEMORY AVAILABLE FOR
71 PAGES

.CZRULB/C=[20,0])SVC34R.MLB, [20,12]CZRJLB.DOC,CZRJILB.HIS,CZRILB

SEQ 0165
79.8¢

UAM
UNIT

UNSMSG
UPE
VERIFY
WCE
WCEFLG
WCF
WCKD
WCKHD
WLE
WOR

WRITMG
WRPAT
WRPATN
WRSAFM
WRTALL

WRTDAT
=
WRTENM
WRTTD =
WRT .RP
WRYUNS
=
XIT14
XIT18
XTIMES
X$ALWA=
X$FALS=
X$0FFS=
X$TRUE=
$OIV
SMULT
$PATCH
$RNCON
$RP1
$RP2
011776
$S$FLG
017714

o600

027110
027110
027140 G
027244
027246

J13

T2.2
12.21
T3
3.1
T3.11
3.2
T4

70-4

A I 2 I 2 1 2]

TABLE

12:59:38 PAGE

21212021212
12

SYMBOL

1-DEC-83

(217

PARAMETER CODING MACRO v04.00

PARAMETER CODING MACRO V04.00 1-DEC-83

12:59:38 PAGE

CROSS REFERENCE TABLE (CREF v04.00

)

$SSMFG
$S$FLG
$DIV

33-54
33-118

BELL
BITO
BITO00
B8ITO1
BIT02
BITO3
BITO4
BITOS
BITO6
BITO7
BITO8
B8ITO09
BIT1
BIT10
BIT11
BIT12
BIT13
BIT14

BIT1S
BIT2
BIT3
BIT4
BITS
BIT6
BIT7
BIT8
BIT9
BITS
BOE
BSE

25-13
25-15+
25-18
21-31
21-31

25-25¢
25-26¢
25-21+
21-36
21-36

44-35

18-67¢
35-104¢
35-1108
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-S57¢
11-57¢
11-57¢
11-57¢
11-57¢
11-57¢

S8-41

11-S57¢
37-163
11-57¢
11-57¢
11-57¢
11-57¢
11-57¢
11-57¢

11-57¢

11-57¢
13-54¢
11-57¢
12-166¢

44-11
44-93¢

56-61
36-148+
38-204+
28-60

44-139
44-135
S6-74

36-197+
38-218+

66-27
33-1254
53-36

67-31
33-1284

69-36

69-86

26-160
25-274

30-60

34-9

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

27-111

61-33

61-37

36-113
33-66
18-72¢
33-94¢

36-210
33-86¢

37-74

7-278

69-88
24-14

11-57¢
11-57¢
11-57¢
11-57¢
11-57¢
11-57¢
11-57¢
11-57¢
11-57¢
11-57¢
27-176
13-64
13-65
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

27-32

S5EQ 0166

7-320
33-112+
52-39

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

~N~

ADR

AOE
ASSEMB
ATA
ATABIT
AVERAG
AVERGE
AVGVAL

25-10%
25-8
25-14
12-7¢
12-8¢
30-45¢

69-1112

7-267

A16
Al7
ABOPAS
ABORT
ABOTST
ACTDRV
ACTSTR
ADJUST

6-3
33-48
33-61

$RP1
$RP2

2-29
33-35
32-84
32-77

gE3 2 PEULSREREY
4 e £ 9% 82853 =33

SMULT
$PATCH
$RNCON

2-16
33.31
22-25¢
23-14¢

S-1

IK13

PARAMETER CODING MACRO VO4.00 1-DEC-83
CROSS REFERENCE TABLE (CREF v04.00 )

BYPASS
CsAv
C$AUTO
C$BRK
C$BSEG
csBsuB

C$CEFG
C$CLCK

CSCLEA
CsCLOS
CsCLP1
CsCVEC
CSDCLN
CsDODV
CSDRPT
CsDV
CS$EDIT
CSERDF
CS$ERHR
C$ERRO
CSERSF
C$ERSO
C$ESCA
C$ESEG
CSsESUB

CSETST
CSEXIT

C$GETB
CSGETW
CS$GMAN
CS$GPHR
CsGPLO
CS$GPRI
CS$INIT
CS$INLP
C$MANI
CSMEM
C$MSG
CS$OPEN
CSPNTB
CSPNTF

CS$PNTS
CS$PNTX

13-17¢

7-278¢
7-278&
7-278¢
7-278¢
7-2780

55-15
62-19
67-127
7-2788

7-278¢
7-278¢
7-2784¢
7-278¢
7-278¢
7-2788
7-278¢
7-278¢
7-278¢
7-278¢
7-278¢
7-278¢

27-103
27-203

7-278¢
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¢
7-2780
7-2780
7-2780
7-278¢
7-2780
7-278¢
7-278¢
7-278¢
7-278¢
7-278¢
7-278¢

33-75
56-74
67-178

7-278¢
7-278¢

30-37
48-34
45-17

12:59:38 PAGE S5-2

5
SEQ 0167

44-11+

44-135»+

44-139»

67-203
50-62
55-18
62-28
67-180

S51-18
56-44
63-30

S51-25

56-76
63-71

52-46
57-25
63-124

52-42
57-41
64-37

53-41
57-69
64-42

26-16

26-35

44-98

44-100
44-102

64-34

44-101

46-18

46-21

46-23

27-27
27-108
31-22

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

63-148
27-61
27-135
61-24

67-205
50-67
55-20

51-20
56-57

S51-27
56-89
63-96

52-48
57-27
63-138

S52-64
57-55
64 -39

S51-31
65-85

S52-71
66-83
44-165

53-67
67-247

46-24

46-26

30-45

47-33
7-323
30-19

67-194
50-68
64-63

44-91

67-37

63-32

44-103

67-78

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

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

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

19-33
33-43
44-77
63-121

19-39
33-45

19-40
33-50

19-42
33-51

66-31

19-46
33-56
44-132
67-35

19-48
33-57
56-60
67-155

33-66
56-61
67-156

33-73
56-73
67-177

19-17

19-30

19-31

54-60
61-31
67-70

44-39

36-18

36-145

19-25

19-34

19-43

19-49

19-8

19-24
32-171

19-28
32-173

44-180

19-4
32-165
33-77
57-86
67-197

44-29

19-10

32-168

58-69

44-71
59-66

44-73

63-99

33-40
44-75
63-100

19-11

19-13

19-14

19-16

44-85

63-122
19-21

44-114

63-141
19-22

44-127

PARAMETER CODING MACRO v04.00 1-DEC-83

CROSS REFERENCE TABLE (CREF v04.00

CLRQUE

44-23

32-117¢
32-71¢
18-12
18-39¢
13-29¢
13-260
16-8
63-26
12-940
12-159¢
13-48¢
9-9¢
19-45¢
18-40¢
19-3¢
27-103
27-203
18-42¢
18-43¢
18-44¢
18-45¢
18-46¢

SEQ 0168

44-25

42-76

36-20
26-84
58-27
67-229

36-147
26-126
58-83

28-28
28-57
28-97

44-138

51-19
54-46

37-171
37-110
37-33
37-130

33-112¢
37-12¢
37-52¢
37-77¢
37-75
37-105
36-249
37-115
38-129
37-191¢
26-13+
32-11
57-103
67-149
37-223
44-88¢

56-103
58-50
69-88
19-24
19-29
19-4
16-32

63-78
27-81

26-46+
37-224
58-63
67-191

36-254
26-155
59-26

36-36
59

44 -89

63-44

58-80
56-37
63-46

59-77
56-39
63-164

S52-47
52-63
55-19

53-42
53-59

54-28

54-43

54-58

55-16

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

44-80
46-11

44-95

46-14

56-24
56-86
59-78

28-101=+
S6-111»
31-15

27-66
27-140
63-157

0;-»

CI78
CIs
CLKSTA
CLR

44-20
44-10

S-3

288

CI1
CI3
CIa
CIS
CIée
Cc17

57-109
67-214
7-278¢
28-260
28-55¢
28-95¢
10-29¢
33-24
36-237
36-240
36-232
37-50
37-94
36-171
37-104
37-178¢
37-181
13-16¢
12-30¢
57-101
63-158
36-21
12-174¢

44-16
7-278%
7-323

gRe

C$TPRI
CALL.A
CALL.B
CALL.C
CHANGE
CHKAVG

7-278&
7-278¢
7-278¢
7-278¢
7-2780
7-278¢
7-2780
7-278¢
7-2780
7-278¢

12:59:38 PAGE

228

CsQIO0
CS$RDBU
CS$REFG
CSRESE
CSREVI
CSRFLA
CSRPT
C$SEFG
C$SPRI
CsSVEC

)

M13

26-102

58-81
67-220

58-85
67-222

46-10

26-170
59-28

56-54
59-40

56-69
59-60

57-58

57-88

59-47

59-69

63-144

67-200

69-89
19-33
19-31
19-31
16-56
64-25

19-42
19-37»
27-19+
16-80
65-22

19-48
19-40
28-12+
31-10+
66-38

32-173
28-32#
30-13+

44-29

44-132

31-11
67-43

28-61»
31-152
31-13
69-113¢

30-31

30-35

64-33

27-35
27-113
30-27

27-42
27-118
56-112

27-47
27-123
57-102

27-52
27-128
58-84

27-61
27-135
59-79

57-100

63-155
56-119
67-86

67-219
57-32
67-88

57-34
67-201

37-73

38-126

37-85
38-371

37-93

37-100

57-13
56-97
59-80

58-16
56-111
63-93

59-15
56-113
63-117

63-19
57-52
63-135

67-51
57-80
63-156

29-18+
57-101=+
31-16

31-20+
S8-81»
31-17

32-21»
59-78»
32-49

63-156+
32-143

27-71
27-147
67-221

27-76
27-150

27-87
27-155

27-92
27-160

61-15

27-158
30-19
19-46
27-27
27-108
30-23
19-4
19-8
19-10
19-11
19-13

27-95
27-165

27-98
27-170

PARAMETER CODING MACRO V04.00 1- DEC-83 12:59:38 PAGE S-4
CROSS REFERENCE TABLE (CREF vo04. 00 )

DH44H
DHA41
DH44y
DH44K

18-47¢
18-48¢
18-49¢
18-50¢
18-51¢
19-27¢
18-53¢
18-54¢
18-55¢
18-56¢
19-36¢
18-58¢
18-59¢
12-208¢
7-278
12-40¢
12-99¢

32-35¢
13-15¢

66-43+
16-3¢

44-136+

DPB.C

DPINT
DPRQS
DRVACT
DRVCAL
DRVCLR
DRVINT
DRVNO
DRVQUE
DRVSN
DRVSTA

DRVTYP
DSNMSG
DTADPB

16-27¢
28-75
52-25+
53-50=
S54-63»
16-51¢
28-116
S54-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-360
36-223
35-51¢
18-62¢
16-75¢
32-12+
56-54
57-39

57-101
59-60
60-37+
61-29
63-254

63-156

N13
SEQ 0169

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

67-209

7-278

27-50
37-20
56-39

S$7-20+
66-61
28-27
44-137»
26-187+
28-77

S2-27+
53-52
55-9+
26-188+
28-118
S55-11s
27-101
36-63+
36-160
36-166
29-12
65-71

36-62¢
19-11

60-23

36-1746

44-126+

64-35
58-29
S57-94»
66-67+
28-32
S2-26+
28-56

44-106+

S2-45
53-58+
55-13+
28-96

44-107»

55-14+

36-130+
36-243+
37-184+
60-33
66-59
38-159
19-40
62-13

65-54+

65-73

65-75+

28-44+

31-23+

44-105+

28-69+
S51-24»
53-24+
S54-40+

28-71
51-28+
53-26+
S4-48+

28-73«
S1-29
53-37+
54-55+

28-109#
54-50

28-111
S4-56+

28-113»
S54-64+

65-44

65-46

65-65

44-108

44-113

44-114

36-219

36-31+
37-228+
36-68+

36-33+
38-87
36-92+

36-43»
38-176
36-186

36-158

36-183

19-37
32-13s
56-54
57-43
57-103

29-11
32-16
$6-70

29-18
32-21
56-86
57-61+
58-63
59-80
60-49+
62-15+
63-75
64-25+

29-38
34-57»
57-21»
57-82
59-40
60-28+
61-17»
62-30
63-135
64-43«

29-44

44-114

59-60
60-38+
61-30+
63-26+
63-156

57-52

58-43
59-78

60-43»
62-13+
63-54
64-23+

34-83+
S$7-24+«
S57-91»
$9-40

60-29+
61-18+
63-23+
63-135
64-46

29-45

44-108+

57-38»+
$7-101
59-42
60-30»
61-19+
63-24»
63-137

64-48

—

PARAME TER CODING MACRO v04.00

CROSS REFERENCE

DTE

TABLE (CREF v04.00

64 -50e
65-33
65-81e
66-58¢
67-60
67-149
12-91¢
35-129¢
12-57¢
12-161¢

64-53e
65-34
65-84¢
66-64¢
67-64
67-149
27-79
36-27

12-85¢
12-172¢
11-57¢
11-57¢
11-57¢
11-57¢
11-57¢
18-86¢
18-94¢
18-95¢
18-96¢
18-97¢
18-98¢
18-99¢
18-100¢
18-87¢
18-102¢
18-103¢
18-1040
18-105¢
18-106¢
18-107¢
18-108¢
18-109¢
18-88¢
18-111¢
18-112¢
18-113¢
18-1140
18-115¢
18-116¢
18-117¢
18-89¢
18-119¢
18-120¢
18-121¢
18-122¢
18-123¢
18-1240
18-125¢
18-90¢
18-127¢
18-128¢
18-129¢

27-83

7-278¢
7-2780

1-DE cias

£4-54«

12:59:38 PAGE

64-55«
65-43e

64 -6c¢

5-5

5EQ 0170
65-21»
65-55e

67-65
67-151

66-69
67-71e
67-174

65-45+
66
- 38+«
66-73
67-73s
67-181

65-20e
65-51e
66 -39
66 -79¢
67 94
67-191

66-40+
66-80e
67-95
67191

36-235

37-49«

37-188«

37-199

37-213%

27-132

27-133

57-102

58-84

59-79

63-157

67-221

65-39«
66-36+
66 -68+

66-37¢

61-39
7-323

44-20
44-25
4a-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-106
67-193

€65-23¢«
65-59
66-42+
67-42«
67-108
67-202¢

65-244
65-644
66-45
67-43s
67-110
67-220

37-215

37-221+

38-8

66-41+
67-41+

65-2%
65-68+

65-26
65-70«
66-53
67-45

67-220

67-131
67-222

65-27»
65-764
66-55¢
67-46
67-133

38-20s

38-237

38-2544

66-46
67-444
67-129

6£5-31
65-79

66-564
67-58
67-134

PARAMETER CODING MACRO v04.00

1-DEC-83

CROSS REFERENCE

TABLE (CREF v04.00

EMSa
EMSS
EM6
EM?
EMPTYQ
ERR
ERRABO
ERRANY

62-24
62-33
27-61
27-66
37-227
27-40
28-62
28-35
61-42
21-11

44 -83

60-48
61-45¢
62-380

60-S1¢

64-41

64 -47

FS$CLEA
F$DU

FSEND

69-123
7-2780
7-278¢
7-278
7-278

38-15
48-19
S51-14
52-23
53-41

67-150

30-90
32-24
67-192

5EQ G171

32-22
56-55

56-87

57-53

57-81

58-44

58-64

59-41

59-61

44-105¢

64-610

63-124

seioutesseeTM

66-83¢

19-36

26-112

44-165

46-8

51-18
S52-71
54-30
54-67
56-76
57-69
59-17
61-9

51-20
53-41

S54-42

55-15
56-89
57-110
59-29
61-20
62-38
64-37
65-42
66-60
67-203

63-165
65-38

50-57
S52-46
53-67
54-57
55-25
57-25
58-46
59-87
62-10
63-71
64 -56
65-67
67-75

29-21

B
R
% 8

7-2780
7-2780
7-2780
42-41

29-41

65-840
66-77
67-780
S1-31¢
52-69¢
53-65¢
S4-67¢
55-250
56-29

S 6

40-320

&% SRSLURLLREL

63-33¢0

61-32

& ROR2LBNEI*2

S0-67¢

61-21

44 -86

(3334 234433

F$BGN

44.-81

63-136
21-39«

F$AUTO

27-126
29-37

38-271
61-26
29-19
28-104

NEBTERERINEL
ST

F$AU

21-8
11-57¢
12-630
29-35¢

12:59:38 PAGE

38-46
27-55
28-102
28-64
63-94
21-12+

S2IRSLURLLNSESES

EXIT14

EXIT1S
EXIT16
EXIT17
EXIT18
EXIT2
EXIT3
EXIT4
EXITS
EXIT6
EXIT?

61-28

ALARTEIFLLREN
JGa 8
JPREIHIRNULERIPS g

ERRVEC
EVL
EWN
EXECMD
EXINIT
EXIT1
EXIT11
EXIT12
EXIT13

18-130¢
18-131¢
18-91¢
18-92¢
37-182
12-730
28-33
27-15@

)

66 -52
6'-180

7-278
44-91

50-57

51-20
52-49
53-44

7-278

19-25

44-103

50-57
S51-25
52-49
53-60

7-278

19-34

44-165

50-62
S1-25
S52-64
53-60

7-278

19-43

44-180

50-62

S51-27
S52-64

53-67

26-130

46-24

S51-25
53-41

S54-42

54-47
55-20
57-25
58-34
59-63
61-45
63-35
64-45
65-66
67-70
69-12

55-15
56-120
58-15
59-29
61-25
63-17
64-37
65-42
66-83
67-247

19-49

45-17

50-67

S51-27
S2-71

53-67

7-278
46-24

50-67
S51-31
S52-71
54-17

7-278

32-36

47-33

S1-14
52-23
53-22
54-27

PARAMETER CODING MACRO

7-2780
7-278¢

56-120
63-165
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-278¢
7-278¢

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

44-103

44-165

11-51
19-27

41-1

42-41

19-36

67-37
50-38
19-45

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
S51-25
54-42
56-76
59-49
63-71
65-63

32-34
S52-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

S51-14
58-15
65-18
34-72
60-29

S51-31
58-92
65-85
S51-17
62-16

52-23
59-14
66-25
51-29

53-22
60-20
67-29
S52-28

53-67
60-52
67-247
52-38

58-78
34-22

59-75
51-15

63-153
54-18

67-217
55-9

56-41

62-14

34-46

S51-16

52-25

S52-68

53-24

53-64

9-9
44-8
42-61

58-21

67-127

69-71
68-62
9-21

44-180
42-61

7-304

19-3
43-8

59-20

70-15

62-35
19-34

70-16

54-32
54 -60
55-20
56 -89
57-41
58-34
59-20
60-32
61-31
62-34
63-71
64 -39
65-18
65-67
66-83
67-180
70-21

63-35

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

47-18

70-22

55-25
56-120

57-55
58-46
59-29
60-44

61-36
62-35
63-96
€4-42

65-38
65-72
67-29
67-194

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

67-78
67-254
19-49

54-44
54-67
56-23
57-12
S7-69
58-52
59-43
60-52
61-45
62-38
63-124
64-45
65-41
65-85
67-37
67-205

48-19

54-45
55-8

65-42
66-25
67-70
67-247

57-83
58-66
59-49
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
S57-11C
58-66
59-63
61-9
62-10
63-17
63-165
64-56
65-47
66-25
67-75
67-254

56-26

S7-15

57-18

38-15
S52-64
54-59
57-55
61-25
64-39
66-60

53-41
54-60
57-69
61-31
64-42
67-70

53-43
S54-62
57-83
61-36
64-45
67-75

53-44
55-15
58-34
62-19
64 -56
67-127

54-67
61-45

55-8
62-10

55-25
62-38

56-23
63-17

53-35

55-13

55-23

56-40

55-10

56-42

60-28

62-15

56-23

57-12

69-123

42-47

56-108

34-16
69-83¢
34-41
66-40
69-80¢

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

53-60
55-17
58-46
62-25
64 -58
67-152

54 -30
54 -59
55-18
56-76
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-57
55-17
56-57
57-25
58-15
59-14
59-87
61-20
62-25
63-32
64-19
64-63
65-63
66-52

F$SW

FS$TEST

7-278¢
7-278¢
7-2788
7-278¢
7-278¢
7-278¢
7-278¢
7-2780
7-278¢

S5EQ 0172

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

94-29

F $M0D
F $MSG
F$PROT
F$PWR
FSRPT
F $SEG
FS$SOFT
F$SRV
F$SUB

58-18

D14

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

FsoMp

S-7

)

FSINIT

7-278@
7-2788
7-2780
7-2780

i2:59:38 PAGE

TABLE (CREF v04.00

ERULSEABLLRLER
)
Be8usiegsy

F $HARD
F $HW

54 -27
54 -47
55-15
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

1-DEC-83

CROSS REFERENCE

v04.00

57-67

66-41

27-138

54-19

PARAMETER

CODING MACRO V04.00

1-DEC-83

CROSS REFERENCE TABLE (CREF v04.00
GsDISP
GSEXCP
GSHILI
GSLOLI

7-2788
7-278¢
7-278¢
7-278¢

GSOFFS

GSPRMA
GSPRMD
G$PRML
G$RADA
GSRADB
GSRADD
G$RADL
GSRADO
GSXFER
GSYES

7-278&
69-34
7-278¢
69-34
7-2780
7-278¢
7-278¢
7-278@
7-278¢
7-278&
7-278¢
7-278&
7-2780
7-278&

GETREG
GETREQ

12-223¢
36-212

GS$NO

G$OFSI

HCE
HCI
HCRC

HELP

HERTZ

HOE
I$AU
ISAUTO
ISCLN
IsDV
ISHRD
ISINIT
I$MOD

7-2780

69-34

I$SRvY

69-18
69-53
69-18
69-53

69-20
69-55
69-20
69-55

69-22
69-57
69-22
69-57

69-24
69-60
69-24
69-60

69-26

69-28

69-30

69-32

69-26

69-28

69-30

69-32

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

69-18
69-14
68-55
69-16
68-55
69-47
37-122

69-20
69-38
68-57
69-40
68-57
69-49

69-22
69-44
68-59
69-59
68-59
69-51

69-24
69-47
68-61

69-26
69-49
69-34

69-28
69-51

69-30
69-53

69-32
69-55

69-57

69-60

68-61
69-53

69-14
69-55

69-18
69-57

69-20
69-60

69-22

69-24

69-26

69-28

69-30

69-32

38-125

38-180

38-244

38-259

38-266

40-68¢

8-10
40-110

50-52

9-15
42-4¢

67-230

10-32
42-49

11-40
42-63

11-41
43-14

12-232
44-141

17-51
44-167

68-87

18-19
45-11

69-63

18-29
47-9

44-180¢
11-51
69-123
19-360

11-51¢
69-123¢
19-430

41-1

41-1¢

42-41

42-41¢

48-35

48-35¢

50-38

19-45¢

19-490

53-22

53-41

53-44

54-17

S54-27

61-9
65-18

61-20
65-38

61-31
65-42

62-10
65-63

62-19
65-67

51-20¢
S52-49¢
S53-60¢
S4-44

S51-20¢
52-64
54-17
S4-440

51-25
S52-64%
54-27

38-120

27-132

27-133

27-143

27-145

:;-§26
26-14+«

7-2780

IsSuB

69-14
69-51
69-14
69-51

38-83

ISRPT

I$SETU
ISSFT

68-61
69-49
68-61
69-49

27-143

7-2780

S54-30

37-201

7-273
18-149

38-37

;8-50

7-295
19-51

48-21

7-312
40-94

7-326
40-103

26-30¢

26-45¢

26-53

26-78¢

48-9¢
45-100
46-8¢
47-8¢
68-62¢
44-8¢
7-304
67-254

48-349
45-17¢
46-24
47-33¢

19-3¢
43-8¢
70-16

67-235

67-249

68-5¢

68-77

70-16#

70-21

70-21¢

50-62

S1-14

51-18

S51-25

52-23

S52-46

52-49

58-52
63-71
67-70
70-16

59-14
63-124
67-127
70-22

59-29
64-19
67-180
70-22¢

59-49
64-37
67-203¢

60-20
64-42
67-205¢

60-32
64-56

26-1650

26-1680¢

32-340

32-360

38-40

38-15¢

50-67¢
52-46
53-43¢
54-30¢

S0-67¢
S52-460
S53-430¢
54-32

S51-14
S52-48
53-44
54-32¢

S51-18
52-480
53-440¢
54-32¢

S51-18¢
52-48¢
53-60
54-42

51-20
52-49
53-600¢
S54-42¢

54-42

54-45

58-15
63-17
66-52
70-15
69-71¢

S58-34
63-30
67-29
70-15¢

7-2780
51-25¢
S52-64¢
54-27¢

50-57
S51-27
53-22
54-29

50-62
S51-27¢
53-41
54-29¢

26-1150

69-104

46-260

44-165
10-40¢
68-43¢
19-340

42-760

26-1120

50-45

44-103
10-40
68-43
19-27¢

42-470

50-57

49-5¢

44-91
7-304¢
67-2540
19-25¢

57-69
62-28
66-25
7-278¢
69-120

7-2786

S5EQ 0173

68-59
69-47
68-59
69-47

27-133

7-259¢
18-137

El14

68-57
69-44
68-57
69-44
68-57
68-61
69-38

27-132

I$MSG
ISPROT
ISPTAB
I$SEG

69-44

5-8

68-55
69-38
68-55
69-38
68-55
68-59
69-14

12-86¢
12-171¢
12-87¢

11-57¢
7-2780
7-2780¢
7-2780¢
7-2780
68-53¢
7-278¢
7-2780
50-38¢
7-278¢
7-278¢
7-278¢

ISsPWR

69-38

)

12:59:38 PAGE

54-57

26-1300

S0-62¢
51-27¢
53-410
54-29¢

54-60

26-1330

S0-67
S2-23
53-43
54-30

55-8

55-15

55-18

56-23

56-44

56-76

57-12

57-25

57-41

54-444

PARAMETER

CODING MACRO v04.00

CROSS REFERENCE

ISTST

54-45
54 -62¢
S6-449
57-27¢
58-46
59-49
61-25
62-28
63-96¢
64-429
65-41¢
65-72¢
67-127

7-278¢
52-23

54-17
55-18
57-15
58-92
60-32
62-28
64-19
65-85
67-78
12-89¢
11-57¢
10-11¢
69-22
11-57¢
12-5¢
11-57¢
12-79¢
12-209¢
12-80¢
12-649

58-30s
11-57¢
13-11¢
36-36
10-14¢
13-10¢
67-40=
69-28
11-57¢
12-1600

7-278@

26-84
L$APT

L$AUTO
LsCCP
LS$CLEA
Ls$CO
L$DEPO

7-323¢
7-323¢
48-9¢
7-323¢
7-323
7-323¢
7-323
7-323¢
7-323¢

1-DEC-83

12:59:38 PAGE

TABLE (CREF v04.00

)

54 -45¢
55-8
56-57
57-41
58-46¢
59-49¢
61-25¢
62-28¢
63-96¢
64 -45
65-42
65-72¢
67-127¢
50-57
S52-230
S54-17¢
55-25
57-18
58-92¢
60-52
62-35
64-19¢
65-35¢
67-127
27-111

54-47
55-15
56-57¢
57-41¢
58-46¢
59-63
61-25¢
62-34
63-124
64-450
65-42¢0
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

54-474
55-15¢
56-57¢
57-55
58-52
59-63¢
61-31
62-340
63-124¢
64 -450
65-47
66-52

S1-21
69-79¢0

51-28

67-152¢

50-62
52-49
54-30
55-25¢
57-41
59-14
60-52¢
62-38¢
64-42
66-25
67-247

S5-9

SEQ 0174

54-474
55-17
56-76
57-554
58-52¢
59-634
61-31¢
62-34¢
63-138
64-56
65-47¢
66-52¢
67-152¢@
50-68
52-71
S54-42
56-23
57-69
59-14¢
61-9
62-38¢
64-56
66-25¢
67-2470

54-57
55-17¢
56-764
57-55¢
58-66
60-20
61-36
63-17
63-1380
64-560
65-47¢
66-60
67-180
50-68¢
52-719
54-45
56-23¢
57-110
59-17
61-9¢
63-17
64-63
66-33
67-247¢

54-574
55-17¢
56 -89
57-69
58-66¢
60-32
61-36¢
63-30
63-1380
64-58
65-63
66-60¢
67-180¢
50-68¢
52-71¢
54 -57
56-26
57-1100
59-20
61-20
63-17¢
64-630
66-52

54-59
55-18
56-89¢
57-69¢
58-664
60-320
61-360
63-300
64-19
64-58¢
65-634
66-600
67-194
S51-14
53-22
54-60
56-44
57-110¢
59-29
61-31
63-30
64 -630
66-83

54 -59¢
55-180
56-89¢
57-83
59-14
60-44
62-10
63-32
64-37
64-580
65-66
67-29
67-1940
S1-144
53-224
54-67
56-76
58-15
59-49
61-45
63-35
65-18
66-83¢

54 -59¢
55-20
57-12
57-83¢
59-29
60-444
62-19
63-324
64-370
65-18

57-109

58-83

58-91

59-36

S52-24+

52-69+

53-23«

53-65+

54 -6C
55-20¢
57-25
57-83¢
59-29¢
60-44¢
62-19¢
63-320
64 -39
65-38
65-664
67-700

62-25
63-71
64 -394
65-38¢
65-67
67-75

54 -62
56-23
57-27
58-34
59-43¢
61-20
62-25¢
63-714
64 -394
65-41
65-67¢
67-75¢

51-18
53-41
54-670
56-120
58-15¢
59-87
61-45¢
63-71
65-18¢
66-83¢

S51-25
53-44
54-67¢
56-1200
58-18
59-87¢
61-45¢6
63-124
65-38
67 -29

51-31
53-67
55-8
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-10¢
63-1659
65-63
67-37

58-52
60-20¢
62-19
63-165¢
65-67
67-70

63-164

67-201

67-229

62-12+

62-36#

63-18+

63-33+

64 -22+

64-59+

€5-664
67-70
67-1940

54 -604
55-204
57-25¢
58-15
59-43

61-9

54-629
56-44
57-27¢
58-344
59-434
61-204
62-25¢
63-96

64-42
65-414

65-72
67-754

51-31¢
53-67¢

55-15
57-12¢

27-106
27-106
63-56
S8-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-100
46-8¢

58-94¢

65-80
50-58s

56-119
66-70
50-65+

47-18

48-19

26-113¢

PARAMETER CODING MACRO

CROSS REFERENCE
L $DESC
L $DESP
L$DEVP
L$DISP
LSDLY
L$DTP
L$DTYP
L$DU
LSDUT
LSDVTY
LSEF

7-323
7-323¢
7-3238
7-323
7-3230
7-3238
7-3232
47-82
7-323¢
7-323
7-323¢

LSETP
LSEXP1
L$EXP4
LSEXPS
LSHARD
LSHIME
LSHPCP

7-323¢
7-3232
7-3238
7-323¢
7-323
7-323¢
7-3230

LSENVI

L$HPTP
L$HW
LSICP
LSINIT
LSLADP
LSLAST
LSLOAD
LSLUN
LSMREV
LSNAME
LSPRIO
LSPROT

L$PRT

LSREPP
L$REV
LSRPT
L$SOFT
L$SPC
L$SPCP
LSSPTP
L$STA
L$SW
LSTEST
LSTIML
LSUNIT
L10000
L10001
L10002
L10003
L10004
L10005S

L10006
L10007
L10010
L10011
L10012
L10013

V04.00

1-DEC-83

TABLE (CREF v04.00

12:59:38 PAGE

S-10

G114
5EQ 0175

)

18-27¢
8-84

18-17¢

7-3232

7-3230
7-323
7-3230
7-323
7-323¢
7-323
7-323¢
7-3230
7-323¢
7-323¢
7-323¢
7-323

7-323¢

7-323¢
7-3230
42-47¢
7-323
7-3230
7-323¢
7-323¢
7-323¢
7-323
7-3230
7-323¢
7-323¢
9-9
10-8
19-25¢
19-34¢
19-43¢
19-49¢

26-115¢
26-133¢
26-168¢
32-360
38-15¢
42-61

68-53

68-530

9-9

9-9¢

44-8¢
69-122¢6

70-22

43-8¢

69-12

69-12¢

10-8
32-138

10-8¢
33-67

44-34
9-21¢
10-39¢

42-764

33-69

33-71

33-113

66-31

67-35

PARAMETER CODING MACRO v04.00 1-DEC-83

12:59:38 PAGE

CROSS REFERENCE TABLE (CREF v04.00

)

L10015
L10016
L10017
L10020
L10021
L10022
L10023
L10024
L10025
L10026
L10027
L10030
L10031
L10032
L10033
L10034
L10035
L10036
L10037

44-180%

L10040
L10041
L10042
L10043
L10044
L10045
L10046
L10047
L10050
L10051
L10052
L10053
L10054
L10055
L10056

L10057
L10060

L10061

L10062
L10063
L10064
L10065
L10066
L10067
L10070
L10071
L10072
L10073
L10074
L10075
L10076
L10077
L10100
L10101
L10102
L10103
L10104

44-91
45-17¢
46-24
47-18
48-19

50-68¢
S0-67¢
S51-31¢
51-20¢
S1-27¢
S2-71¢
S2-489
S2-64¢
53-67¢
53-43¢
53-60¢
S4-67¢
54-29¢
S54-32¢
54-449
S4-47¢
54-59¢
S4-62¢
55-25¢
S5-17¢
55-20¢
56-26
56-57¢
56-89¢
57-15
S57-27¢
57-55¢
57-83¢
58-18
S8-469
58-66¢&
59-17
59-43¢
59-63¢
60-52¢
60-44¢0
61-45¢
61-25¢
61-36¢
62-35
62-250
62-340
63-35
63-32¢
63-96¢
63-138¢
64-63¢
64-39¢
64-450
64-58¢0
65-85¢

44-103

44-165

46-264
47-33¢

48-340

56-120¢
57-18

57-1100

58-21

58-92¢

59-20

59-87¢

62-38¢0

63-165¢

S-11

SEQ 0176

PARAMETER CODING MACRO v04.00

1-DEC-83

CROSS REFERENCE TABLE (CREF v04.00

L10106
L10107
L10110
L10111
L10112
L10113
L10114
L10115
L10116
L10117
L10120
L10121
L10123
LBC
LC
LCE
LCLKTB
LCMSG
LCCMD
LF
LKS
LKV

LOE
LOT
LS
LSMSG
LST
Rt
LTMSG
MAINT
MARK

MCPE
MDPE

MESG1
MESG2
MESG3
MESGA

MSGABV
MSGAVG
MSGBEL
MSGLMT
MSGMAX
MSGMIN

65-419
65-470
65-66&
65-72¢
66-33
66-60¢
67-37
67-75¢
67-152%
67-194%
68-53
69-12
70-16%
70-16

12-1649
10-10¢
12-163¢
26-41s
69-20
26-184¢
18-13
26-42»
26-44»
11-S57¢
11-57¢
10-16¢
69-32
12-69¢
10-13¢
69-26
12-225¢
14-28
12-100
12-33¢
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-75
12-35¢
12-12¢
12-34¢
14-23
13-21¢
13-22¢
12-37¢
18-80¢

S-12

114
SEQ 0177

66-830
67-78

67-2474

68-62¢
€9-71¢
70-21¢

27-64
32-81
27-121
26-730
€9-78¢
44-134
69-88
26-750
26-760
34-14
69-84¢
61-22
34-39
69-81¢
37-137
18-74¢
27-25
27-30
68-67¢0
68-68¢
68-69¢
68-700
33-960
33-93¢
33-95¢

15-14

33-51
33-45
33-100¢
33-97¢
33-99¢
33-98¢
27-38

34-74

S51-22

S51-24

52-28

52-36

53-33

55-14

55-12

60-47

65-82

66-71

69-89
26-95+
26-94

44-100

46-21

34-24

54-20

55-11

34-48

52-66

53-62

54-21

15-18
33-92¢
33-91¢

15-22

15-26

18-77¢

54-65

58-23

61-18

26-107+

57-39

59-31

66-80

27-38

18-73¢

54-35
64-27
27-38
44-75

A ———

L10105

)

12:59:38 PAGE

PARAMETER CODING MACRO V0O4.00

1-DEC-83

CROSS REFERENCE TABLE (CREF v04.00

NEM
NOCLK
NOOP
NOTMSG
NS1
NT1
O$APTS
Os$AV
O$BGNR
0$BGNS
0sDV
OSERRT

OSGNSW

O$POIN
O$SETU

OCTHEX
OFFSET
OFLMSG

12-36¢
18-61¢
12-199¢
18-82¢
13-24¢
13-23¢
7-278¢
7-278¢

7-278¢
7-278¢
7-278¢
7-278¢
7-278¢
7-278¢
7-278¢

19-7
12-2040
18-81¢
12-62¢
14-13

2-4¢
48-36

12-92¢
36-168
69-14
10-17¢
69-34

26-22+
12-151¢
12-162¢
26-24+s
57-49«
63-114»
26-26+
32-128

63-112

26-23s
57-45+
63-89«
26-29s
59-26
11-57¢
POSERR

PRIO7
PSTACK

QDRVO

36-221

18-68¢
11-57¢
11-57¢
11-57¢
11-57¢
11-57¢
11-57¢

11-57¢
11-57¢
11-57¢

19-8
39-3¢
39-14

)

12:59:38 PAGE

S-13

J14
SEQ 0178

27-38

44-85

44-71
28-8
28-11
7-323
7-323
7-323
7-3108
7-323
7-323
7-3100
7-310
7-310&
24-46
37-96
44-73

62-22
18-71¢
2-8

49-1

27-116
36-208¢
69-760

65-32
69-85¢
26-640
27-59
27-168
26-25+
57-70+
63-126+
26-27+

52-56
61-17

53-51
64-48

61-16

7-323

7-323
7-310¢
7-323

7-3100

69-122

7-310¢

7-323

62-18

62-31
4-905
49-9¢

5-1
50-3

7-2630
67-256

38-40

38-145

38-194

65-56

66-44

67-47

26-67¢

S7-77»
63-132+
26-68¢
32-131
67-144
26-86+
S7-73»
63-113»

10-41
68-9¢

11-1
68-15

11-8¢

11-13

41-2

42-1

42-8¢

42-13

26-162+

$9-30+
67-182+
32-96
57-47

26-171»
59-37s
67-188+
32-99
57-75

56-45+
59-50+

S6-S1s
59-57+

S6-77+
63-80+

56-83+
63-90=

S7-42+
63-104+

32-101
58-38

32-102
58-58

32-121
59-35

59-55

32-123

32-124
63-88

67-141+
26-153

26-152+
58-59#
67-145+
26-155

26-163»
59-33a
67-1654
26-170

26-166+
59-36+
67-169+

56-82+
63-85+

46-18

S56-50+
59-56+
67-187+
56-37

56-79+
63-42»

44-98

S56-46+
59-53a
67-184+

57-32

58-27

26-127+
S58-40+
67-146+
32-91
32-146
67-186
26-123+
S58-36+
63-131+
26-126

26-1364+
58-53»
67-160+
32-93
56-49

26-156+
58-60+
67-170+
32-95
56-81

26-128+
58-39«+

26-131s

32-130
63-130
26-660
57-48+
63-109«
26-69¢
63-44

67-86

37-12
57-86

37-149
58-69

38-183
63-141

40-83¢
67-197

56-39

56-110

57-100

58-29

58-80

59-28

59-77

63-46

63-155

67-88

67-219

26-126

26-135

26-155

26-170

56-37

57-32

58-27

59-26

63-44

67-86

19-8

24-6
40-49»

24-21

24-400
40-83+

26-94
19-8

40-32+

39-34

40-47

39-46¢

67-84s+

26-135

40-69

PARAMETER CODING MACRO VO4.00

1-DEC-83

12:59:38 PAGE

CROSS REFERENCE TABLE (CREF VO04.00

)

QDRV1

39-15

39-26

39-35

39-474

QDRV3Z
QDRV4
QDRVS
QDRVEé
QDRV?

39-17
39-18
39-19
39-20
39-21

39-28
39-29
39-30
39-31
39-32

39-37
39-38
39-39
39-40
39-41

39-49¢
39-504
33-51¢
39-52¢
39-53¢

QDRvV2

QINPT
QOUTPT
QSTART
QSTOP
QTERP

RANADR
RAND
RANPAT
RD.RP
RDDAT
RDHD
RDHOMG

RDTD

RDY
READIN
RECAL
REDHDR
REG

RELSE
RESREG
REV
RHEXT
RHTYPE
RMR

ROTATE
RPO7
RPADR
RPAS
RPATMG
RPBA
RPBAE
RPCC

RPCS1

RPCS2

39-16

39-14¢
39-25¢
39-34¢
39-35¢
39-42

39-48¢

40-52#+
40-85
40-55

40-53
40-864+
40-90

63-29
26-159
67-62
36-108
60-24
26-187
69-93¢

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

12-69
12-206¢
12-201¢
10-19¢
16-15
19-14
60-30
12-203¢
20-21¢

28-40
26-185
16-39
19-14
61-19

28-69

28-109

31-23

16-63
19-14
62-17

16-87
19-14
63-27

17-49¢
19-14
65-25

32-52

36-46

36-192

36-195

36-255

37-231

2;-330

57-80

57-101

58-43

S8-63

58-81

59-40

14-14
17-6¢
17-7¢
12-819

14-19
21-9s
19-18
27-106

14-24
21-18+
21-10s

18-76¢
21-22+
21-38+

21-28
38-372

38-375
44-48

44-50

28-55
44-57s
38-36+

28-70

28-95

28-110

29-10

38-54

38-140+

38-170+

36-178
38-327

36-216+
38-331

36-250
38-388

37-15
44-37
67-142+

34-8¢
25-7¢
10-26¢
36-83
12-215¢
12-216&
69-49

12-217¢

14-6
28-26
17-4¢
17-18¢
69-47
17-130
17-31¢
17-268
17-11¢

38-296
58-55¢

17-15¢
38-148+
56-69s
57-101¢

63-158+¢
17-32¢
17-146
17-20¢
17-256

40-34
40-34»
40-14
40-53
39-54¢

39-36

SEQ 0179

40-51»
40-72
40-19
40-88

59-60¢

RPCS3
RPDA
RPDB
RPDC

39-27

S-14

<14

18-700
28-41
38-374
36-113+
69-92¢
63-78¢

36-177¢
36-70¢

38-320
59-32¢

40-55+
40-87»

40-88

40-90#

52-33

53-30

67-66

67-96

37-128

38-28

38-56

38-2874

38-362

32-14

37-107

S0-59

50-59

53-25

19-S
19-17
66-42

19-11
19-17
67-44

19-11
19-17

19-14
19-22

38-13

38-217

59-60

59-78

38-378
63-93

63-135

40-23

56-54
63-156

56-86
67-149

56-111
67-191

29-35

32-15

36-144¢

37-S2
S6-47¢
67-166¢

37-77
S6-65#
67-183«

S6-78+

38-43»

38-48»
S6-93»

S7-44+»

S7-72+

38-289

38-292
58-35»

37-53»
46-11+
56-113+
S8-81+
63-117e
67-220+

37-78»
46-12»
56-113+
S58-81«
63-118+
67-220%

37-204
52-504+
S57-52»
S58-854
63-135»
67-222+

37-224+
$3-45=
$7-52»+
58-85+
63-135»+
67-222+

38-27+
S56-54+
S7-80+
59-40+
63-156+

38-121=+
S56-54+
S7-80»
S9-40=»
63-156+

59-51«

63-73+

67-129+

67-134#
36-247s
36-77
38-325

63-158+

59-52¢
36-37¢
38-351¢
56-86¢
S57-103¢
S59-78¢
67-149¢

63-86+¢
36-69¢
38-357
S6-86+¢
S57-103+
59-78¢
67-149¢

63-110¢
36-71
38-389+
S56-97+
5S8-43+
59-80¢
67-173+

63-127+
36-162+
38-394
S6-98s
S8-43s
59-80+¢
67-174¢

32-28+

56-43+

63-76¢

63-125+¢

67-132+

67-181+

32-29¢

56-40¢

S57-43+

S7-71«

5S8-32+¢+

58-54+

32-11s
38-169+¢
S6-70
S57-101¢
S59-60¢

36-215+
44-94¢
56-111+
S8-63+
63-934
67-191+¢

37-16+
44-113+
5S6-111+¢
S8-63+
63-93+
67-191+

59-31+¢

38-49»

PARAMETER CODING MACRO V04.00 1-DEC-83

CROSS REFERENCE TABLE (CREF v04.00

)

RPDS

RPDT
RPEC1
RPEC2
RPER1
RPER2
RPER3
RPINIT
RPLA
RPMR1L
RPOF
RPSN
RPSTUO
RPSTU1L
RPSTLU2
RPSTUS
RPSTU4
RPSTUS
RPSTU6
RPSTU7
RPTMR
RPVEC

RPUWC

RTC
RWU1
RWU2
RWU3
SSLSYM

SAVREG
SC
SC11
sC12
SC13
SC3
SC4
SCS
SCé
sCs
SCTRWC
SDF
SEABAD
SEAERR
SEARCH
SEC.DS
SEC.RD

SEEK

17-16¢

63-56

17-228
17-29¢
17-30¢
17-17¢
17-27¢
17-28¢
36-15¢
17-19¢
17-21¢
17-24¢
17-23¢
35-11¢
35-11¢
35-11¢
35-11¢
35-11¢
35-11¢
35-11¢
35-11¢
26-114
17-5¢

36-217

12:59:38 PAGE

S-15

L14
SEQ 0180

63-91

63-115

38-152

38-186
63-133

56-52
67-112

56-67
67-147

56-84
67-171

56-95
67-189

57-50

57-78

58-41

58-61

59-38

38-153
38-154
38-155
44-62
S2-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-1554

44 -58+

44-59«
58-91

44-89

44-101

46-23

59-86

56-39
63-46

56-119
63-164

63-164

67-88

19-34¢
50-67¢
S54-47¢
58-46¢
63-32¢
66-83¢
36-208
58-81
38-54¢

19-43¢
S50-68¢
54-59¢
58-66¢
63-96¢
67-750
37-191
59-40

19-49¢
51-200
S4-62¢
58-92¢
63-1380
67-1520
38-7
59-60

32-36¢
S52-64¢
55-25¢
60-449
64-58¢
67-203¢
56-54
63-156

38-15¢
S2-71¢
56-57¢
60-52¢
64-630
67-247¢
56-86
67-149

53-43¢
56-89¢
61-25¢
65-418
68-62¢
56-111
67-191

44-180¢

S55-17¢
59-63¢
64-39¢
67-203
38-348
63-93

26-168¢
S52-48¢
55-200
59-87¢
64-45¢
67-203
40-7
63-135

42-764

S54-67¢
59-43¢
63-165¢
67-194¢
38-205
59-78

26-133¢
S1-31¢

53-60¢
56-1204
61-36¢
65-47%
69-71¢
57-52
67-220

38-146

38-195

38-202¢
36-36

36-36

56-119

59-58

57-34

57-109
67-201

S7-109
67-201

12-205¢
12-148¢
12-149¢
12-150&
7-278¢
45-17¢
53-676
57-27¢
61-45¢
65-66¢
20-6¢
57-80
38-12
38-122
38-85
38-80
38-70¢
38-72¢
38-71
38-90

37-109
27-153
27-153
27-153
9-21¢
46-260
S54-29¢
57-55¢
62-25¢
65-72¢
32-43
57-101
38-41
38-132¢
38-91
38-166¢
38-74
38-111
38-77¢
38-117¢

62-27

38-123¢
61-14

38-164
61-30

5S6-73
56-60
37-70
19-29
19-4

63-121
63-99
37-80
19-31
19-31

56-65
28-61+
28-6

S6-78
28-101+
28-84+

S6-93
29-18+
28-14+

63-86
31-18¢
30-14¢

63-110
32-21s
31-17s

67-142

67-166

56-111+

57-101+

58-81»

59-78+

63-156+

26-190

26-191

52-26

S7-24

S7-44

57-72

58-35

58-55

59-32

59-52

64-36

17-120

38-107
12-219¢
12-158¢
18-66¢
18-65¢
12-207¢
13-30¢
13-28¢
67-220+
12-200¢

63-77¢

S8-29
67-214

67-133»

10-39¢

47-33¢

S54-32¢
S7-83¢
62-34¢
65-85¢
36-15
S58-43
38-44

58-83
67-229

67-229

58-91

59-28

26-115¢
S1-27¢

59-86

38-148¢
38-115

PARAMETER CODING MACRO VO4.00 1-DEC-83

30-56¢

28-123

29-24

63-159

44-93

56-34

RORRRRRRO
S
UKW

B
.

—

44-8
48-9

10-8
19-27

B s pn

7-287¢
7-323
7-323
7-323
7-323
7-323
7-323
7-323
7-323

nN®®®

SVCINS

29-26
28-126

OOOON?NQQQQ & w.oo

43-8

44-90

—

10-8
19-27

59-81

57-106
S$7-16
37-74+
63-72+

(PR

7-278¢
7-323
7-323
7-323
7-323
7-323
7-323
7-323
7-323

57-104

67-227

STALRD
STALRM
STLTIM
STO
STOFLG
STOMSG
STOPCK
STRTMR
SVCGBL

67-226
67-80

44-127
57-107
58-89
59-84
63-162
56-117
56-116
56-27
36-210+
19-40
36-16
26-90¢
26-80¢
28-125
28-86
29-27
28-83
69-97¢
30-57
69-98¢
69-96¢
38-232¢
26-81
69-95¢

STALMG

59-83
59-18
38-141»

27-121

ST.CLK
ST.LCL
ST.PCL
STALL
STALL1
STALL2
STALLF

35-98¢
13-13¢
26-13¢
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-43¢

58-88
58-19
38-134
67-128+
56-114

44-47

RRROR N e [}

SRHSEC

38-3874

SPTYP
SRCHOO
SRCHWT

38-64
52-26

44-137

SP7

15-14¢
15-18¢
15-22¢
15-26¢
15-8¢
32-161¢
32-10¢

37-230
50-59

65-64
36-252

SNDIGT
SP10
SP11
SP12
SP1418

65-39
36-180
37-111

ODOOQ?Q\IQQN 3 68
o
N G
®
Ve
e

SKI

64-55
36-73
12-226¢
10-8¢
21-9¢
12-165¢
18-63¢

SEQ 0181

)

s p

SET.IE
SETFOR
SFPTBL
SIZE70

12:59:38 PAGE S-16

TABLE (CREF v04.00

CROSS REFERENCE

M14

PARAMETER CODING MACRO V04.00 1-DEC-83

CROSS REFERENCE 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-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-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

)

12:59:38 PAGE S-17

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

19-4
19-8
19-10
19-11
19-13
19-14

30-31
31-22
32-165
32-168

32-171
33-40
33-43
33-45
33-50
33-56

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

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-1a7
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

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
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-10
19-11
19-11
19-13
19-14

15-16
19-17
19-17
19-22
19-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-42
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
3232-168
32

32
33-43
33-45
33-50
33-51
33-56

19-8
19-10
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-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-42
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

32-168
33-43
33-45
33-50
33-51

33-56

PARAME TER CODING MACRO v04.00 1-DEC-83 12:59:38 PAGE 5-18
CROSS REFERENCE
33-56
33-66
33-73
33-75
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-91
44-102
44-114
44-127
44-165

46-21
47-18
50-67

52-46
53-44

54-42
54 -62
56 -26
56-37
56 -44
56-61
56-73
56-74

TABLE (CREF v04.00
33-56
33-66
33-73
33-75
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-91
44-102
44-114
44-127
44-165

46-21
47-18

50-67
S52-46
S53-44
54 -42
54-62
56 -26
56-37
56-44
56-61
56-73
56-74

33-56
33-66
33-73
33-75
33-77
36-36
36-145
36-209

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

S52-48
53-60

54 -44
S54-67
56-26
56-39
56-57
56-61
56-73%
56-76

)

33-56
33-66
33-73
33-75
33-77
36-36
36-145
36-209

44-10
44-25
44-29
44-71
44-73
44-75
44-77
44 -89
44-98
44-103
44-114
a4 -132
44-180

46-21
47-18
50-68

S2-48
53-60

S54-44
54-67
56 -26
56-39
56-57
56-61
S56-73
56-76

33-57
33-66
33-73
33-75
33-77
36-36
36-145
36-254

44-16
44-25
44-39
44-71
44-73
44-75
44-85
44-89
44-98
44-103
44-127
44-132
45-17

46-23
47-33
51-18

S2-49
53-67

54 -45
55-15
56-37
56-39
56 -60
56-61
S56-73

56 -89

33-57
33-66
33-73
33-75
33-77
36-36
36-145
36-254

44-16
44-25
44-39
44-71
44-73
44-75
44 -85
44 -89
44 -98
44-103
44-127
44-132
45-17

46-23
47-33

S51-18
S52-49
53-67
54 -45
55-15
56-37
56-39
56-60
56-61
56-73
56 -89

33-57
33-66
33-73
33-75
36-18
36-36
36-147
36-254

44-16
44 -27
44-39
44-71
44-73
44-77
44 -85
44 -89
44-100
44-114
44-127
44-132
46-10

46-23
48-19

51-20
S52-64
54-27
S54-47
55-17
56-37
56-39
56-60
56-61

S56-74
56-110

5EQ 0183
33-57
33-66
33-73
33-75
36-18
36-36
36-147
36-254

44-16
44-27
44-39
44-71
44-73
44-77
44 -85
44 -89
44-100
44-114
44-127
44-132
46-10

46-23
48-19
51-20

S52-64
54-27

S54-47
55-17
56-37
56-39
56 -60
56-61
56-74

56-110

33-57
33-66
35-73
33-77
36-18
36-36
36-147
38-15

44-18

44-29
44 -39
44-71
44-75
44-77
44-85
44 -89
44-100
44-114
44-127
44-132
46-10

46-24
48-19

51-25
52-71
54-29
54-57
55-18
56-37
56-39
56 -60
56-61

56-74
56-110

33-57
33-66
33-73
33-77
36-18
36-36
36-147
38-15

44-18
44-29
44 -39
44 -71
44-75
44-77
44-85
44 -89
44-100
44-114
44-127
44-132
46-10

46-24
48-19

S51-25
S52-71
54-29
54-57
55-18
56-37
56-39
56 -60
56-61

S56-74
56-110

33-57
33-66
33-75
33-77
36-20
36-36
36-199
42-61

44 -20
44-29
44-40
44-73
44-75
44-77
44-85
44-89
44-101
44-114
44-127
44-132
46-18

33-57
37-66
32.75
35.77
3¢ -20
36-36
36-199
42-61

44-20
44-29
44-71
44-73
44-75
44-77
44 -85
44-91
44-101
44-114
44-127

44-20
44-29
44-71
44-73
44-75
44-77
44-85
44-91
44-101
44-114
44-127

44-132
46-18
46-24

44-165
46-18
46-26

48-34
S51-27

54-59
55-20
56-37
56 -39
56-60
56-73
S56-74

54-59
55-20
56-37
56-39
56-60
S56-73
S56-74

S6-112

33-57
33-73
33-75
33-77
36-20
36-45
36-199
42-61

44-20
44-29
44-40
44-73
44-75
44-77
44 -85
44 -89
44-101
44-114
44-127

46-24
48-34
S51-27

53-41
54 -30

33-57
33-73
33-75
33-77
36-20
36-45
36-199
42-61

53-41
54-30

56-112

50-62
S51-31
53-43
S54-32
54 -60
55-25
56-37
56-39
56 -60
56-73

S6-74
5S6-112

50-62
S51-31
53-43
54-32
54-60
55-25
56-37
56-39
56-60
S -73

56-74
56-112

36-112
56-119
57-27
57-34
57-55
57-86
37-109
58-18
58-27

56-112
56-119
57-27
57-34
57-55
57-86
57-109
58-18
58-27

56-112
56-120
57-32
57-34
57-69
37-100
S57-109
“5-18
58-27

56-112
56-120
57-32
57-34
57-69
57-100
S7-109
58-18
58-27

56-119
57-15
S7-32
S57-34
57-83
57-100
57-109
58-21
58-27

56-119
57-15
57-32
57-34
57-83
S57-100
S57-109
58-21
58-27

56-119
57-15
57-32
S57-34
S7-86
S7-102
S57-109
58-21
58-29

56-119
57-15
S57-32
57-34
57-86
S7-102
S7-109
58-21
58-29

56-119
57-18
57-32
57-34
57-86
57-102
S57-109
58-27
58-29

56-119
S57-18
57-32
S7-34
57-86
S7-102
57-109
58-27
58-29

56-119
57-18
57-32
57-34
57-86
S57-102
57-109
58-27
58-29

56-119
57-18
57-32
S7-34
S57-86
S57-102
57-109
58-27
58-29

56-119
57-25
57-32
S7-41
57-86
S7-102
S57-110
58-27
58-29

58-69
58-83
58-84
58-91

58-69
58-83
S58-84
58-91

58-69
58-83
S58-84
58-92

58-69
58-83
S58-84
38-92

58-69
S58-83
58-91
59-17

58-69
58-83
58-91
59-17

58-80
58-83
58-91
59-20

58-80
S58-84
58-91
59-20

58-80
58-84
58-91
59-20

58-83
S58-84
S58-91
59-26

S7-110
58-27
58-29
58-69
58-83
S58-84
58-91
59-26

59-28
59-63
59-77
59-86
60-52
61-31
62-19

59-28
59-66
59-79
59-86
61-20
61-35
62-24

59-28
59-66
59-79
59-86
61-24
61-35
62-24

59-28
59-79
59-86
61-24
61-35
62-24

59-28
59-66
59-79
59-86
61-24
61-35
62-24

59-29
59-66
59-79
59-87
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-25
61-45
62-28

58-29

59-26

58-29

59-26

58-29

59-26

58-29

59-26

S58-34

59-26

58-34

59-

58-46

59-26

58-46

59-26

58-52

59-26

58-52

59-26

58-66

59-28

58-66

59-28

58-69

59-28

56-119
57-25
57-32
57-41

57-86
S57-102

59-28

PARAME TER CODING MACFO vO4.0) 1-DEC-83 12:59:38 PAGE 5-19
CROSS REFERENCE
62-33
62-38
63-44
63-46
63-99
63-100

63-122
63-141
63-148
63-164
64 -33
64-42

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
69-22
69-26
69-28
69-30
69-34
69-40
69-49

SVCSUB

SVCTAG

69-53
69-57
69-122
7-2780

52-49
54-30

55-15
57-41
59-29
62-19
64 -37
65-42
67-127
7-278¢
19-43
26-168
45-17

560 0184

TABLE (CREF V04.00

)

62-37
62-38
63-44
63-46
63-99
63-100

62-33
63-30
63-44
63-46
63-99
63-121

62-33
63-32
63-44
63-46
63-99
63-121

62-33
63-35
63-44
63-71
63-100
63-121

62-33
63-35
63-44
63-71

62-34
63-35
63-46
63-96

62-35
63-44
63-46
63-99

62-35
63-44
£3-46
63-99

63-100
63-121

63-100
63-122

64 -42

64 -45

64 -56

64-58

64 -58

64-63

65-38

65-41

63-122
63-141
63-148
63-164
64-33
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
69-22
69-26
69-28
69-30
69-34
69-40
69-49

69-53
69-57
69-122
7-286@

S52-49
S54-42

55-15
57-41
59-49
62-19
64-37
65-63
67-127
7-288¢
19-43
32-36
45-17

63-122
63-141
63-155
63-164
64 -33
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
69-22
69-26
69-28
69-32
69-34
69-44
69-49

63-122
63-141
63-155
63-164
64-33
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
69-22
69-26
69-28
69-32
69-34
69-44
69-49

69-53
69-59
69-122
50-62

55-18
S57-41
59-49
62-28
64 -37
65-63
67-180
9-21
19-43
32-%6

55-18
57-69
59-49
62-28
64 -42
65-63
67-180
9-21
19-49
32-36

S52-49
54-42

46-26

53-41
S54-42

46-26

63-122
63-141
63-155
63-164
64-33
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
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

S55-18
57-69
60-32
62-28
64 -42
65-67
67-180
9-21
19-49
38-15
46-26

63-122
63-141
63-155
63-164
64-33
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
69-24
69-26
69-28
69-32
69-34
69-44
69-49

69-55
69-60
70-16
S51-18

S53-41
54-45

63-122
63-141
63-157
63-164
64-33
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

63-122
63-141
63-157
63-164
64-33

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
69-24
69-26
69-30
69-32
69-34
69-44
69-51

70-16
S51-18

70-16
51-18

69-55
69-60

53-44
54 -45

69-55
69-60

53-44
54-57

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

63-124
63-148
63-157
63-164
64 -34

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

63-138
63-148
63-157
63-164
64 -37

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

63-138
63-148
63-157
63-164
64-37
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

63-141
63-148
63-157
63-165
64 -39
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-24
69-26
69-30
69-32
69-38
69-47
69-51

69-22
69-24
69-28
69-30
69-32
69-38
69-47
69-51

69-22
69-24
69-28
69-30
69-34
69-38
69-47
69-53

51-25

S51-25

S52-46

S2-46

S52-46

56-76
58-34
61-20
63-71
64-56
66-52

56-76
58-52
61-20
63-71
65-38
66-52

56-76
58-52
61-31
63-71
65-38
67-70

57-25
58-52
61-31
63-124
65-38
67-70

57-25
59-29
61-31
63-124
65-42
67-70

57-25
59-29
62-19
63-124
65-42
67-127

69-55
69-60

S3-44
54-57

69-55
69-60

54-27
54-57

69-57
69-71

54-27
54-60

69-57
69-71

S54-27
54-60

69-57
69-122

54-30
54-60

69-57
69-122

S54-30
55-15

56 -44
57-69
60-32
63-30
64 -42
65-67

56-44
58-34
60-32
63-30
64-56
65-67

10-39
19-49
38-15

52-39

10-39

19-25

19-34

-115
38 -13
47 -33

26-115
42-76
47-33

26-115
42-76
48-34

26-133
42-76
48-34

26-133
44-180
48-34

26-133
44-180
50-67

26-168
44-180
50-67

26-168
45-17
50-67

47-33

56-44
58-34
61-20
63-30
64-56
66-52

63-124
63-148
63-157
63-164
64-34

PARAME TER

CODING MACRO v04.00

CROSS REFERENCE

SVRHXX

SVSTAT

TABLE (CREF v04.00

)

12:59:38 PAGE

50-68

51-20

S51-27

51-31

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¢

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-29
54-59
55-25
57-55
58-66
60-44
62-25
63-96
64 -58
65-72
67-75
68-62
50-57

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

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

54-32
54 -62
56-57
57-83
58-92
60-52
62-34
63-138
64-63
65-85
67-152
69-71
S51-14

54-32
54-67
56-57
57-83
59-43
60-52
62-34
63-165
64-63
65-85
67-194
69-71
51-14

54-32
54-67
56 -89
57-83
59-43
61-25
62-34
63-165
65-41
65-85
67-194
70-16
51-14

54 -44
54-67
56 -89
57-110
59-43
61-25
62-38
63-165
65-41
66-60
67-194
70-16
52-23

58-15

59-14

60-20

61-9

38-139
59-40
27-179¢
58-47

38-182
59-60
27-183s
58-67

38-251
59-78
27-186¢
59-44

38-270
63-93
27-189¢
59-64

54-17

63-17

37-151
57-101
13-19¢
56-58

52-64

54-17

63-17

38-33
58-43
27-16¢
56-90

S52-64

S54-17

64-19

38-47
58-63
27-173s
57-56

52-64

55-8

64-19

38-84
58-81
27-176e
57-84

48-9¢
45-100
46-8¢
70-16
47-8¢
68-53

48-19
45-17
46-24
70-16¢
47-18
68-530

46-26
70-21
47-33
68-62

44-8¢
19-3¢

44-91
19-25

44-103
19-27¢

44-165
19-34

70-16¢
42-76
67-205

67-2050

T$$SUB

50-62¢

69-71
26-130¢

26-133

T$sSW
T$STES

TSARGC

5EQ 018S

50-68

T$SAU
T$SAUT
T$SCLE
T$SDAT
T$SDU
T$SHAR
TSsHu
T$SINI
T$SMSG
T$SPC
T$SPRO
T$SPTA
TSSRPT
T$$SEG
T$$SOF

TS$SSRV

D15
S-20

50-68

S52-48

SVCTST

1-DEC-83

9-9

70-15¢
43-8¢

70-15¢
42-470
67-203

69-12
26-1120

S54-276
55-18¢
58-52¢
62-280
65-38¢
67-1800
10-8
S0-57¢

56-120
60-52
66-33

7-323
7-323¢

19-8
19-11
19-11¢
19-14¢

9-9¢

48-34

9-21

70-22
70-16
42-61
67-203¢

69-120
26-115
S0-67

S51-18¢

51-20

52-71

55-8

64-19

52-71

55-8

65-18

44-180
19-360

19-43

26-1650

26-168

51-25¢

51-27

S52-71

56-23

65-18

19-45¢

32-340

S52-460¢

53-43

56-23

65-18

51-31

S2-48

54-44
55-17
56-89
57-110
59-63
61-25
62-38
64-39
65-41
66-60
67-205
70-16
S52-23

54 -44
55-17
56-120
57-110
59-63
61-36
62-38
64-39
65-47
66-60
67-205
70-21
S52-23

54-47
55-17
S56-120
58-46
59-63
61-36
63-32
64-39
65-47
66-83
67-205
70-21
53-22

54-47
55-20
56-120
58-46
59-87
61-36
63-32
64 -45
65-47
66-83
67-247
70-21
53-22

54 -47
55-20
S7-27
S58-46
59-87
61-45
63-32
64 -45
65-66
66-83
67-247

61-9

62-10

63-17

38-348¢
63-135
27-192¢
63-97

56-54
63-156
27-195¢
63-139

56-86
67-149
27-198¢
67-153

56-111
67-191
28-37
67-195

57-52
67-220
28-66

57-80

53-43

56-23

66-25

53-43

57-12

66-25

53-60

57-12

66-25

53-60

57-12

67-29

53-60

58-15

67-29

32-36

S52-48

38-40

S52-49¢

38-15

S52-64

53-41¢

53-43

53-448

54-300¢
56-440¢
59-29¢
63-30¢
65-420

54-32
56-57
59-43
63-32
65-47

S4-420
56-760
59-49¢
63-710
65-630

S54-44
56-89
59-63
63-96
65-66

54-45¢
57-25¢
60-32¢
63-1240
65-67¢

54-47
S57-27
60-44
63-138
65-72

S54-57¢
S7-41¢
61-20¢
64-370
66-520

S4-59
57-55
61-25
64-39
66-60

S54-600
57-69¢
61-31¢
64-42¢
67-70¢

S54-62
57-83
61-36
64-45
67-75

55-15¢
58-34¢
62-19¢
64-56&
67-127¢

S7-12¢
61-9¢
66-83

10-39
S1-14¢

S7-15
61-45
67-29¢

51-31

S52-23¢

S52-71

53-22¢

53-67

S54-17¢

S54-67

55-8¢

55-25

56-234

7-323
7-3230

19-8
19-11
19-13
19-140

7-323
7-323¢

19-8
19-11
19-13
19-140

57-18
62-10¢
67-37
7-323
19-4

19-8
19-11
19-130
19-140

53-22

58-15

67-29
28-106

19-49

S4-29
S55-20
S8-66
62-34
65-41
67-19%4
10-8¢
S0-68

52-48

53-67

53-60

55-17
58-46
62-25
64-58
67-152

S56-26

57-110
62-35
67-78

S58-15¢
62-38
67-247

58-18
63-17¢

58-21
63-35

58-92
63-165

59-14¢
64-19¢

59-17
64-63

59-20
65-18¢

59-87
65-85

60-209
66-25¢

7-323
19-4

7-323
19-4¢

7-323
19-40

7-3230
19-4¢

7-3238
19-8

7-3232
19-8

19-8¢
19-11
19-14
19-140

19-8¢
19-11¢
19-14
19-16

19-10
19-11¢
19-14
19-16¢

19-10
19-11¢
19-14
19-17

19-10¢
19-11¢
19-14
19-17

19-11
19-11¢
19-14
19-17

19-11
19-11¢
19-142
19-17

PARAMETER CODING MACRO v0O4.00

CROSS REFERENCE
19-17
19-21
19-28¢
19-30&
19-31¢
19-40
19-46¢
32-171
33-45
33-51¢
33-669
33-77

44-730
44 -85¢

T$CODE

TSERRN

TSEXCP
T$FLAG

T$FREE
T $GMAN
TSHILI

TSLAST
T$LOLI
TSLSYM

56 -60
57-866
63-121
67-35
67-178
68-55
68-59
69-140
69-18

69-22¢
69-28
69-32
69-38¢
69-44
69-49¢
69-55
69-59
7-2780
27-660

27-103¢
27-1400
27-203¢
56-112¢
62-339
68-55
69-24

42-61
44-1650

56-260
58-21
62-35¢
67-78
69-122

7-2780

68-55
69-24

7-278¢

68-55

69-24
7-278

44-150

53-60

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

19-17
19-22
19-29
19-31
19-33
19-400
19-48
32-171¢
33-450
33-56
33-73
33-77¢
44-75

56-60
58-69
63-121¢
67-35
67-1780
68-55
68-59¢
69-140
69-18¢
69-22¢
€9-28
69-320
69-389
69-440

56-60¢
58-69
63-122
67-35¢
67-197
68-55
68-59¢
69-16
69-18¢
69-24
69-28

44-114

69-49¢
69-55
69-59
27-27

27-71
27-108
27-147
30-19
57-102
63-148
68-55¢
69-240
42-61¢

46-24
57-15
58-21¢
63-3S
67-78¢

44-114

£9-320
6% -40

69-44¢
69-51
69-55
69-59
27-27¢

27-710
27-108¢
27-147¢
30-19¢
57-102¢
63-148¢

68-57
69-26
42-61¢
46-24

12:59:38 PAGE

19-17
19-22
19-29
19-31
19-33
19-40¢
19-48¢
32-173
33-50
33-56
33-73

44-29
44-75
44-114

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

S-21

19-17¢
19-22
19-29
19-31
19-39
19-400

32-165

32-173¢0
33-50
33-560
33-73¢

44-29¢
44-75¢
44-1140

SEQ 0186

19-17¢
19-220
19-29¢
19-31
19-39¢
19-42
32-168
33-40
33-500
33-56¢
33-75

44-71
44-77
44-127

19-170
19-22¢
19-29¢
19-31
19-40
19-42
32-168
33-400
33-50¢
33-57

33-75
44-71
44-77
44-127

19-17¢0
19-24
19-29¢
19-314
19-40
19-426
32-168
33-43
33-500
33-57
33-75

44-710
44-77
44-127¢

19-17¢4
19-24
19-29¢
19-31¢
19-40
19-46
22-168¢
33-43
33-51
33-57¢
33-75¢

44-710
44-774
44-127¢

19-174
19-24¢
19-29¢
19-31¢
19-40
19-46
32-1680
33-430
33-51
33-66
33-75¢

44-73
44-77¢
44-132

56-61
58-69¢
63-122
67-350
67-197
68-55¢0
68-59¢
69-16
69-18¢
69-24
69-28¢
69-32¢
69-40
69-440
69-51
69-55¢
69-59
27-35
27-76
27-113
27-150
30-23
58-84
63-157
68-57¢
69-26¢

56-61
59-66
63-122¢
67-155
67-197¢
68-55¢0

46-24¢
57-15¢
59-17
63-350

46-240
57-15¢
59-17
63-35¢

57-18
59-17¢
66-33

57-18¢
59-20
66-330

68-57¢
69-260¢

68-59
69-28

68-59¢
69-28¢

68-61¢
69-30¢

69-18
69-32

69-18¢

69-320

69-20¢
69-34¢

68-57¢

68-59
69-28
19-25
48-34
54-44

68-59¢0
69-28¢
19-34
50-67
54-47

68-61¢
69-30¢
19-49
51-20
54-62

69-18
69-32
26-115
51-27
54-67

69-18¢
69-32¢
26-133
S51-31
55-17

69-20¢
69-34¢
32-36
S52-64
55-25

44-91

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-760
27-113¢
27-150¢
30-23¢
S8-84¢
63-157¢
68-59
69-28
44-91

56-614

59-66

63-141
67-155

68-552
68-61
69-16

69-20
69-240
69-28¢
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¢
44-910
47-18

56-73
63-99
63-141¢
67-156

68-57
68-610
69-16
69-20¢
69-240
69-30
69-340
69-40
69-470
69-51¢
69-57
69-59¢
27-47
27-92
27-123
27-160
30-31
61-24
67-209
68-61¢
69-300
44-103
47-18¢

56-734
63-99
66-31
67-156
68-57
68-61¢
69-16¢
69-200
69-26
69-30
69-340
69-400
69-47¢
69-53
69-57
69-60
27-476
27-92¢0
27-123¢
27-160¢
30-31¢
61-240
67-209¢
69-18
69-32
44-103
48-19

S57-18¢
59-20
66-330

56-74
63-99¢0
66-31
67-156¢

56-74
63-100
66-31
67-177

68-57¢
68-61¢
69-16¢
69-200
69-26
69-30¢
69-340
69-400
69-47¢
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-57¢
69-14
69-16¢
69-22
69-26
69-30¢

44-103¢
48-19¢

58-18
59-200
67-37

63-121
67-35
67-178

68-57¢
69-14
69-160
69-22
69-260
69-30¢

69-38
69-40¢
69-49
69-53¢
69-57¢
69-60¢

27-95¢
27-128¢
27-165¢
30-35¢
61-35¢
67-2210

27-98

68-59
69-140
69-18
69-22¢
69-269
69-32
69-389
69-44
69-499
69-53¢
69-59
69-60¢
27-66
27-103
27-140
27-203
56-112
62-33

27-61

27-135
27-170
31-22
62-24

69-20
69-34
44-103¢

69-20¢
69-34¢

58-18
59-20¢
67-37

S58-18¢
62-35
67-37¢

48-19¢

44-73
44 -85
44-132¢
57-86

S56-74¢
63-100
66-31¢
67-177

69-38
69-40¢

69-49
69-53
69-57¢
69-60
27-52¢

19-21
19-28
19-30
19-312
19-40
19-464
32-171
33-45
33-51¢
33-66
33-77

69-22¢

44-165

44-165¢

56-26#%
58-21
62-35¢
67-78

70-22¢

68-55¢
69-240
69-122¢
68-55¢0
69-240

7-2780
45-17

53-67

69-26¢
10-39
47-33

54-32

69-22¢
69-22

69-22%

38-15
S2-71
56-57

42-76

53-43
56-89

[}

67-203

T$NSO
T$NS1

67-2540
69-16

7-3040
9-9¢

26-1300

45-100

T$NS2

53-22¢
60-200
67-29¢
50-62¢

50-62
51-18
51-31
52-49
53-41
53-67
54-30
54-45
54-60
55-15
55-25
56-76
57-25
57-69
S58-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

50-62¢
S1-18¢
51-31
52-49¢
53-41¢
53-67
54-30¢
54-45¢
54-600
55-15¢
55-25
56-76¢
57-25¢
57-69¢
S58-34¢
58-92
59-49¢
60-32¢
61-200¢
61-45
62-28¢
63-300
63-1240
64-370

64-560

65-38¢
65-63¢0
65-85
66-83
67-127¢
67-203¢
68-43
69-59

11-51¢
10-8¢
26-165¢
46-8¢
S54-17¢
61-9¢
68-53¢
S1-18¢

44-180¢

46-260

48-340

50-67
51-20
S51-31¢
S52-64
53-43
53-67¢
54-32
S54-47
54-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
46-26
54-67
61-45
68-62
51-20

45-10
47-8
48-35

50-67
51-20
S52-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
55-8¢

62-100
69-12¢
51-25¢

43-8

45-10
47-8
48-35

50-67
S51-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

19-25

32-36
47-33
55-25

62-38
69-16
51-27

41-1¢0
43-12
45-17
47-33
48-350

50-68
S51-25
52-46
S52-71
53-44

54-27

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

42-41
43-12
45-17
47-33

50-38
50-68
S51-25
52-46
S52-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
63-71
63-165
64-42

64-63
65-42
65-67
66-52
67-70
67-180
67-247
68-62
69-123
68-430
19-36¢
42-470

50-57¢
57-12¢
64-19¢
69-71
52-49¢

42-41
43-12
45-17
47-33

50-38
50-68
51-25¢
S52-460
52-71
53-44¢
54-27¢
54-42¢
S54-57¢
S54-67
55-18¢
56-440
56-120
S7-41¢
57-110

58-52¢

59-29¢
59-87
60-52
61-31¢
62-19¢
62-38
63-710
63-165
64-420
64-63
65-42¢
65-67¢
66-52¢
67-700
67-180¢
67-247
68-62
69-123
69-123
19-43
42-76

own
(T LY

9-210

42-414

43-12¢
45-17¢
47-336

50-38¢
50-68¢
S1-27
52-48
S2-71@
53-60
54-29
54-44
54-59
S54-67¢
55-20
56-57
56-120¢
57-55
57-110¢
58-66
59-43
59-87¢
60-52¢
61-36
62-25
62-38¢
63-96
63-165¢
64-45
64-63¢
65-47
65-72
66-60
67-75
67-194
67-247¢
68-62¢
69-123¢

19-45¢

43-8¢

50-68
57-110
64-63

S51-14¢
S58-15¢
65-18¢

S52-64

S3-41¢

O\e
v

)

11-51¢
19-34¢
19-49¢
26-1330
32-369

9-21

11-51
19-34
19-49
26-133
32-36

| SO

9-21

11-51
19-34
19-49
26-133
32-36

41-1

9-21

10-40¢
19-34
19-49
26-133
32-36

59-87
64-45
68-62

19-430

26-115¢
26-168¢
38-15¢
42-760

9-9

10-40
19-27
19-45
26-130
32-34

59-63
64 -39
67-247

19-25¢

9-9

10-40
19-27
19-45
26-130
32-34
41-1
43-8

59-43
63-165
67-194

38-15

42-76
44-180
46-26
48-34

7-3040

10-39¢

58-92
63-138
67-152

63-96

50-62
S51-18
51-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

42-76
44-180
46-26
48-34

7-304

10-39
19-25
19-43
26-115
26-168

58-46
63-32
66-83

&2
W

42-76
44-180
46-26
48-34

7-304

10-39
19-25
19-43
26-115
26-168
38-15

57-110
62-38
66-60

26-168
38-15

57-83
62-34
65-85

57-55
62-25
65-72

5EQ 0187

7-2780

10-39
19-25
19-43
26-115

57-27
61-45
65-66

S-22

A 31 2 Ed v § § S
22 33 1 drets
N&NHJ&‘OOODD
w»guo
e QLURUREUERIRERLY

69-1228

12:59:38 PAGE

)

[

TSLTNO
TSNEST

56-120
61-36
65-47

1-DEC-83

TABLE (CREF v04.00

CODING MACRO V04.00

CROSS REFERENCE

LA
AL rtvR)g

PARAMETER

64-45

61-25

65-41

10-8¢
19-3¢
19-360
26-112¢
26-165¢
38-49

42-47¢
44-8%

46-8¢

48-9¢

50-57¢
S51-149
S51-27¢
52-48¢
53-22¢
53-60¢
54-29¢
54-44¢
54-59¢
55-8¢
55-209
56-57¢
57-12¢
57-55¢
58-15¢
58-66%
59-43&
60-20¢
61-9¢
61-36¢
62-25¢
63-178
63-96¢
64-199
64-45¢
65-18¢
65-472
65-72¢
66-60¢
67-75¢
67-194%
67-254
69-12¢
26-115

44-180

S2-71
59-87
66-83

53-60

PARAMETER CODIMNG MACRO VO4.00

CROSS REFERENCE

TSPCNT
T$PTAB
TSPTHV
T$PTNU
T$SAVL
T$SEGL
T$SEKO
T$SIZE
T$SUBN

T$TAGL
T$TAGN

54-27¢
55-18¢
58-52¢
62-28¢
65-38¢
67-180¢

70-15¢
70-16
7-323
7-278¢
7-278¢
7-2780

67-2030
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-278¢

19-36
32-34

44-8¢

50-57

52-23
53-41¢
54-42
55-15

56-76¢
58-15
59-49
61-20¢
63-17

64-37
65-38¢
66-52

1-DEC-83

TABLE (CREF v04.00
54-29
55-20
58-66
62-34
65-41
67-194

70-16
70-16¢
70-22¢
70-16

54-304
56-444
59-29¢
63-304
65-424
67-2030
70-16

)

12:59:38 PAGE

SEQ 0188

54-32
56-57
59-43
63-32
65-47
67-205

54 -424%
56-764
59-49¢
63-71¢4
65-630

70-22

67-203¢

67-205

67-2054

50-62
52-49
54-30
55-8¢
57-12¢
58-52
61-9¢
63-17¢
64-42
65-63
67-127

50-62¢
52-49¢
54-30¢
55-15
57-25
58-52
61-20
63-30
64-42
65-63¢
67-127¢

S51-14¢
53-22¢
54-42
55-15
57-25
58-524
61-20
63-30
64-420
65-67

S51-18¢
53-41¢
54-45
55-18
57-41
59-29
61-31
63-71
64-560
66-250

51-25
53-44
54 -45
55-18¢
57-410
59-29¢
61-31¢
63-710
65-18¢
66-52

9-90

10-8
19-45¢
38-4

10-8
26-112
38-4¢0
46-8
S51-14
S52-46¢
S54-17
54-57
55-18¢
57-25
58-52
60-200
62-10
63-71
64-420
65-63
67-70
69-12¢

19-3
26-130

19-3¢
26-130

54-44
56 -89
59-63
63-96
65-66

54 -454
57-25¢0
60-324
63-1240
65-674

54-47
57-27
60-44
63-138
65-72

54-570
57-414
61-204¢
64-374
66-524

54 -59
57-55
61-25
64 -39
66-60

70-16¢

19-45

38-4

45-100

50-62
S52-46
53-440
54-45
55-18
S57-12¢
58-34
60-20

61-31¢
63-30
64-42
65-42¢

67-29

69-12

TSTEMP

S-23

46-8

50-62¢
52-46
54-17
54-450
55-18
57-25
58-340
60-20
62-10
63-300
64-42
65-63
67-290
69-12

67-180

42-47¢
47-8

51-18
S52-49¢
54-27
54-60

56-23¢
57-41
59-14
60-32¢
62-19
63-124
64-560
65-67
67-127
70-15¢
8-8
8-8
8-8¢
8-8¢

19-340
38-15¢

44-165¢0
48-19¢

S51-31¢
54-29¢
55-17¢

43-8
47-80

S51-18
53-22
S54-27¢
54-60
56-44
57-41¢
59-14
61-9
62-19¢
63-124
65-18
65-67¢
67-127
70-16

8-8
8-8
8-8¢
8-8¢

19-43

41-1
44-180
48-34

S52-48
54-32
55-20

54 -6Co
57-69¢
61-314

64 -42%
€7-704&

54 -62
57-83
61-36
64 -45
67-75

55-15#
58-34%
62-194
64 -560
67-1279

55-17
58-46

62-25

64-58
67-152

PARAMETER CODING MACRO v04.00 1-DEC-83

CROSS REFERENCE TABLE (CREF v04.00

TSTEST

T$TSTM

56-26&
57-55¢&
58-92¢
60-52¢
62-38¢
64-45¢
65-85¢
67-152¢
68-55¢
68-61
69-18
69-22¢
69-269
69-32
69-38¢
69-47¢
69-53
69-57¢

7-2780

52-49
54-60
57-25
60-20
63-17
65-38
69-122

7-2780

19-29
26-84

27-76
27-150
32-168
36-18
44-29
44-114

50-62
53-43
54-60
56-61
57-34

T$TSTS

T1
T1.1
T10
710.1
710.1%
T10.2

58-34
59-29
61-25
63-32
63-155
65-41
67-37
67-197

7-278¢

63-17¢
8-8
50-62¢
8-8
59-29¢
59-30¢
59-49¢

)

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-22¢
69-28
69-32
69-38¢
69-49
69-53
69-57¢
50-57
53-22
55-8
57-41
60-20¢
63-17¢
65-42

56-57¢
57-838
59-174
61-25¢
63-32¢
64-58¢
66-33¢
67-1940
68-57
68-61¢
69-18¢
69-22¢
69-28
69-320
69-38¢
69-49
62-53¢
69-57¢
50-57
53-22
55-8
57-69
60-32
63-30
65-63

56-89
57-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¢
69-60
50-57¢
53-22¢
55-8¢
58-15
61-9
63-71
65-67

56 -89¢
57-110¢
59-20¢
61-360

19-4
19-30

19-8

19-10
19-33
26-135

19-11
19-34
26-155
27-98
27-170
33-43
36-145
44-75

26-94
27-87
27-155
32-171
36-20

44-39
44-127

50-67
53-44
54-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

27-95

27-165
33-40
36-45
44-73

44-165

S51-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
S52-23¢
66-25¢0

63-350
64-630
66-600
67-205¢
68-57¢
68-61¢
69-18¢
69-24
69-28¢
69-32¢
69-44
69-49¢
69-53¢
69-60
50-62
53-41
55-15
58-15
61-9
63-124
66-25

44-180

S51-20
S54-27
55-17
56-89
S57-83
58-69
59-66
61-45
63-71
64-33
65-66
67-86

67-209
53-22¢
67-29¢

S-24

H15S
SEQ 0189

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-49¢
69-55
69-60
S51-14
53-44
55-18
58-15¢
61-9¢
64-19
66-25

56-1204
S58-18¢
59-430
61-45¢
63-960
65-41¢
66-83¢
67-2470
68-57¢
68-62¢
69-20
69-24¢
69-28¢
69-34
69-444
69-49¢

19-13
19-39
26-170
27-103
27-203
33-45
36-147

19-14
19-40
27-27
27-108
30-19
33-50
36-199

44-77
45-17

S51-25
54-29
55-18
56-110
57-86
58-80
59-77
62-19
63-96
64-34
65-67
67-88
67-214
54-17¢

69-55

69-604¢

51-14
54-17
56-23
58-34
61-20
64-19
66-25¢

44-85
46-10
51-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-44¢0
69-51
69-55
69-60¢
S51-14¢
54-17
56-23
58-52
61-31
64-19¢
66-52

57-154
58-21¢
59-63¢
62-250
63-138¢
65-47¢
67-37¢
67-2540
68-59
69-14
69-20¢
69-24¢
69-30
69-340
69-444

19-16
19-42
27-35
27-113

19-17
19-43
27-42
27-118
30-27
33-56
36-254

30-23
33-51
36-209
44-89
46-18

51-31
54-32
35-25
56-119
57-102
58-84
59-86
62-25
63-100
64-39
65-85
67-152
67-221
56-23¢

69-51
69-55¢
69-600
51-18
S4-17¢
56-23¢
59-14
62-10
64-37
67-29

44-91
46-21

52-46
S54-42
56-26
56-120
57-109
58-91
59-87
62-28
63-121
64-42
66-31
67-155
67-229
57-124

57-18¢
58-46¢
59-87¢
62-34¢0
63-165¢
65-66¢
67-75¢
68-55
68-59¢
69-14¢
69-200
69-26
69-30¢
69-340
69-47
69-51¢
69-55¢
69-71¢
52-23
54-30
56-76
59-14¢
62-10¢
67-29¢
19-22
19-48

27-52

27-128
30-35
33-66

44-10
44-100
46-24

S52-49
54-45
56-39
57-18
58-18
59-17
60-44
62-34
63-124
64-56
66-52
67-177
59-14¢

57-55
58-92
60-52
62-38
64-45
65-85
67-152
68-55¢
68-61
69-18
69-22

69-264
69-32
69-38
69-474
69-53
69-57
52-46
54-57
57-12¢
60-20
63-17
65-18%
67-180

19-28
26-35
27-71
27-147
32-165
33-77

44-25
44-103

48-34
53-41
54-59

PARAMETER CODING MACRO v04.00

1-DEC

CROSS REFERENCE TABLE (CREF v04.00
T10.2%

710.3$

710.4%
T10.7$
710.8¢
T11
T11.1
T11.2%
T11.5%
T12
T12.1
T12.2
T13
T13.1
T13.1%
T13.2

T14
T14.1
T14.1$

T14.2

T14.3

T14.7%
T14.8%
T1410%
T1411%
T1412%
T1418
T15
13.1
T15.2
T1S.
T16

59-39
59-59
59-45
59-26
59-67
8-8

60-32¢
60-33&
60-45¢
8-8
61-20¢
61-31¢
8-8
62-19¢
62-32
62-28¢
8-8
63-300
63-538
63-718
63-124¢
63-44
63-101
63-71¢
63-92
63-134
14-28¢
8-8
64-37¢
64-42¢
64-56¢
8-8
65-38¢
65-42¢
65-639
65-67¢
8-8
66-52¢
8-8
67-700
67-127¢
67-180¢
67-148
67-190
67-157
67-86

8-8

S51-18¢

S51-18¢
S51-25¢
S51-25¢
8-8
52-460
52-29
52-49¢
8-8

59-46%
59-65
59-66¢
59-75¢
59-73
60-20%
60-39

i‘as 12:59:38 PAGE 5-25

59-68%

59-804
60-50

61-9¢
62-10¢

62-360

63-17¢
63-151

63-153¢
63-123

63-116
63-140
63-79
64-19¢

63-142

63-150

63-158¢

63-125¢
63-1440
63-160

67-135

67-225

67-181¢
67-2000
67-198

67-212

67-222¢

65-18¢

66-25¢

67-29¢

67-172
67-196
67-179
67-217¢
S51-14¢

S51-23

51-30
52-23¢
52-47¢
53-22¢

210
SEQ 0190

PARAMETER CODING MACRO v04.00

1-DEC-83

CROSS REFERENCE TABLE (CREF v04.00

=«LERLLLLLL
o

53-41¢
53-44¢

-27¢
-28%
-30¢
-42¢
-43¢
-45¢

-57¢
-58¢

N
°

)

§%3243

o
°

Y
SR RRRRRS
®~ ~
~

-60¢
-8
55-15¢
55-16¢
55-18¢
8-8
56-44¢
56 -45&
56-60¢

S-26

J15
SEG 0191

54-17¢
54-36
54-51

54 -66
55-8¢

55-24

56-23¢
56-106
56-91
56-68
56-101
56-96
56-640&
56-108¢
56-75

56-32

57-12¢

57-60
57-85

56-77¢
56-103¢
56-105

56-115

56-113¢

57-96

57-88¢

57-58¢
S57-61¢
57-90
S57-280
57-91¢
57-96¢
57-93
57-86¢
58-15¢

57-103¢

58-75
58-49¢
58-68
58-69¢
58-78¢
58-76
38-19¢
63-48+
50-66

58-71¢
58-85¢
63-145

63-147+

67-90+¢

67-206

67-208+

62-37

———

=hwun

14.2
TS
15.1
15.11
15.2
15.3
15.31
15.4
15.5
15.51
15.6
T6
6.1
76.11
76.2
17
7.3
T7.1%
77.10%
77.2
T7.2%
17.20%
77.3%
17.44%
17.7%
77.8%
T7A
T8
78.1
78.18
78.10s%
78.2
78.2%
78.3
78.3s%
78.4%
78.5%
18.6%
18.7%
78.84%
78.94
T9
79.1
79.13
19.2
19.2%
79.3%
79.4%
19.7%
79.84
0
TEMPO
TEST1
TEST10
TEST13

SLELLYLELLLE
c‘ugggoo«: 3

T4.1

)

12:59:38 PAGE

PARAMETER CODING MACRO v04.00

1-DEC-83

CROSS REFERENCE TABLE (CREF v04.00
TEST14
TEST1S
TEST16
TEST17
TEST18
TEST3
TEST4
TESTS
TEST6
TEST?
TESTS8

TEST9
TICKMS
TICKUS
TIM.DN
TIM.PT
TIM.UP
TIMER
TIMMSG
TIMSTL
TIMT10
TIMT11
TIMT12
TIMTYP
TRE
TRGSEC
TRK.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-23¢
65-30¢
66-53¢
67-55¢
S2-27¢
$3-26&
54-25¢
S55-13¢
S6-33¢
S7-200
58-23¢
26-51+
26-52+
13-40¢
13-46¢
13-33¢
35-116¢
38-264+
69-51
10-21¢
14-13¢
14-18¢
14-23¢
10-20¢
12-11¢
13-14¢
13-31¢0
13-27¢
67-220s

63-34
64 -60
65-83
66-65
67-77
S52-67
53-63

66-74

26-55»
26-56+
32-5S1=»
32-45
32-44
36-23

26-590
26-60¢
32-74
32-91+
32-50»+
36-65+

35-90¢

37-13»
61-26¢0
61-37¢
62-27¢
63-37¢
64-51
67-800
67-215

13-49¢

61-23
61-34

62-23
63-20
64-43¢0

67-52
67-92¢

67-225¢
26-152¢
33-17¢
13-9¢
11-S57¢
17-3¢
12-93¢
18-79¢
12-38¢
28-79
12-39¢
13-47¢
12-84¢
12-210¢
12-211¢
12-90¢
12-147¢

)

12:59:38 PAGE

S-27

IKLS
SEQ 0192

66-81

S52-70
53-66

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+

63-55+
19-31
19-31

67-111+
19-38+
27-21+

19-40
28-9

28-32»
28-11»

65-21
37-185

66-37
37-187«

37-198

57-59
56-115
32-162

57-89
57-105
33-26+

58-51
58-87
33-37«

58-73
59-82

44-30s

44-33»

44-34

44-39

S6-644

S56-71+

65-70

66-58

69-940
26-157
57-19
58-22
59-21
33-27

19-40
19-29
19-4

44-77
27-30

28-120
27-45
29-9+
27-69
65-45

27-74
27-153

67-206
38-22+

67-211
38-118#

28-61+
28-16+

28-101+

37-216+

37-222+

59-48
63-160

59-70
67-225

56-92+

56-99s

63-103+

67-73

67-202

38-143+«

38-208

38-210+

38-243+

38-258+

29-18+

31-16+

31-19+
56-111+

32-21s
57-101+

58-81+

59-78+

63-156+

38-24

38-254+

38-236

38-253+

63-119+¢

67-159+

67-175»+

57-105
58-87
59-82

30-15»+

31-8¢

PARAMETER CODING MACRO V04.00 1-DEC-83

12:59:38 PAGE

S-28

CROSS REFERENCE TABLE (CREF v04.00

)

WRITMG
WRPAT
WRPATN
WRSAFM
WRT.RP

6€9-38
65-39¢
65-64¢
69-44
36-101

69-87¢
65-52
65-77
69-88¢
36-105

37-21

37-31

37-35

37-42

WRTALL
WRTDAT
WRTENM
WRTTD
WRYUNS
XSALWA
X$FALS
X$OFFS
X$TRUE
XITi4
XIT18
XTIMES

10-27¢
12-212¢
18-64¢
12-2140
12-146&
7-278¢
7-278¢
7-278&
7-2788¢
63-39
67-82
13-12¢

66-28
65-43
66-31

67-32
65-68
67-35

66-56

67-71

67-183

69-16
69-16

69-40
69-40

69-59
69-59

63-1630
67-228¢
63-18

63-149

67-40

37-117

37-140

37-146

37-164

37-168

27-153

67-211

37-179

5EQ 0193

37-46

38-105

37-55

38-315¢

37-59

37-66

37-71

37-83

37-91

37-102

PARAMETER CODING MACRO v04.00 1-DEC-83

CROSS REFERENCE TABLE (CREF v04.00
1-15¢

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-278¢
7-278¢
7-278¢
7-278¢
7-278¢

55-15
62-19
67-127

7-278¢
7-2780

L L X

N4 343 z.

bbb

onr-vu-:0~n—h-qr-¥Lthnrn~r-qrofl
gu
?‘flo oy &N

63-17

=t
s g

BCOMPL
BERROR
BGNAU
BGNAUT
BGNCLN
BGNDU
BGNHRD
BGNHW
BGNINI
BGNMOD
BGNMSG
BGNPRO
BGNPTA
BGNRPT
BGNSEG
BGNSET
BGNSFT
BGNSRV
BGNSUB

7-278¢
7-2780
7-2786
7-278¢
7-278¢
7-2786
7-278¢
7-2780
7-278¢

50-59
7-278¢

7-278¢
7-2780
7-278¢

7-278¢
31-24
54-58

7-278¢
60-33
7-2786
7-278¢
56-113
7-278¢
7-278¢
7-278¢
7-278¢
7-278¢
7-278¢
7-278¢
7-278¢
7-278¢0

)

12:59:38 PAGE M-1

M15
SEQ 0194

44-18

48-9
45-10
46-8
47-8

68-53

9-9
44-8
7-304

50-38
19-45

68-43

26-165
51-25
56-76
63-71

32-34
52-46
57-25
63-124

38-4
S52-49
57-41
64-37

S52-23

53-22
67-29

54-17

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

26-130
51-18
56-44
63-30

S51-14

53-41
57-69

64-42

53-44
58-34
64-56

54-27
58-52
65-38

55-8

56-23

54-30
59-29

65-42

54-42
59-49

65-63

54-45
60-32

54-57
61-20

57-12

58-15

59-14

60-20

61-9

65-67

66-52

65-18
26-37

66-25
44-22

44-27

44-40

44-100

44-101

46-18

46-21

51-19

51-26

52-63

53-42

53-59

54-28

54-31

54-43

64-38

64-44

65-40

65-44

65-46

65-65

65-69

65-71

63-158

67-222

67-254

69-123

44-10

26-16
44-98

46-23

52-26

18-27
18-17
8-8
44-138

54-61
30-45
62-20

57-103
48-34
45-17

46-26
47-33

68-62
9-21

44-180

10-40

41-1

48-35

PARAMETER CODING MACRO V04.00 1-DEC-83 12:59:38 PAGE M-2

SEQ 0195

CROSS REFERENCE TABLE (CREF v04.00 )

ENDMSG
ENDPRO
ENDPTA
ENDRPT
ENDSEG
ENDSET
ENDSFT
ENDSRV
ENDSUB

1-500¢
1-512¢
1-520¢
1-529¢
1-5410¢
1-555¢
1-5686¢
1-580¢
1-596¢
54-62

61-36
ENDSW
ENDTST

EQUALS
ER.NDX
ERRDF
ERRHRD
ERROR
ERRSF
ERRSOF
ERRTBL
ESCAPE
EXIT

67-75
1-614¢
1-624¢
62-38
1-642¢
7-1420
1-7140¢
1-718¢
27-98
27-170
1-722¢
1-726¢
1-730¢
1-7340

7-278¢
7-278¢
7-278¢
7-278¢
7-278¢
7-278¢
7-2780¢
7-278¢
7-278¢
55-17

62-25

67-152
7-2786¢
7-278¢
63-165
7-2780
28-32
7-278¢
7-278¢
27-103
27-203
7-278¢

19-25
43-12
70-21
42-76
67-205
70-22
69-71
26-115
50-67
55-20

62-34

67-194
10-39
5S0-68
64-63
11-57
28-61
30-19
27-27
27-108
31-22

19-34

19-43

19-49

26-133
51-20
56-57

26-168
S51-27
S56-89

32-36
52-48
57-27

S51-31
65-85

S52-71
66-83

53-67
67-247

54-67

55-25

56-120

57-110

58-92

59-87

28-101
30-23
27-35

29-18
30-27
27-42

32-21
30-31
27-47

30-35
27-52

63-148
27-61

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

48-19

56-26

57-15

57-18

58-18

58-21

69-26

69-28
69-55

69-30
69-57

69-32

69-34

44-165¢

46-24

46-244¢

47-18

47-18¢

69-18
69-32
69-53

69-32¢
69-53¢

19-10¢
19-14
19-17¢

19-11
19-14
19-21

27-113
56-112

27-118
57-102

36-145

36-209

7-278¢
7-278¢
7-278¢
7-2780

44-39
68-55

GPRML
HEADER
INLOOP
IOSETU

1-934¢
1-9540
1-962¢
1-966¢

7-2780¢
7-278¢
7-278¢
7-278¢

KT11
LASTAD
MS$BYTE
MSCHEC

1-982¢
1-;47¢
1-DOO®
1-E180
48-19

7-278¢
7-278¢
7-278¢
7-278¢
48-19¢

MSCNTO

MSCOUN

1-9740

59-20

1-EB2¢

69-20
69-34
69-55
1-D66&¢
19-11
19-14

27-123
S8-84

27-128
59-79

27-135
61-24

44-165
67-37

46-24
67-78

47-18

7-278¢
7-278¢
7-278¢

36-18

IOSTAR

61-45

64-58

7-2780

1-903¢

54-59
61-25
66-60

64-45

44-103
66-33

GPRMD

54-44
59-63
65-66

64-39

44-91
63-35

GMANID
GMANIL
GPHARD
GPRMA

54-32
59-43
65-47

63-138

42-61
62-35

GETWOR
GMANIA

53-60
58-46

63-96

63-32

7-278¢
7-278¢
59-20

GETPRI

53-43
57-83

54-29
58-66
65-41

1-744¢
1-771¢
59-17
1-810¢
1-824¢
1-834¢
1-829¢
1-83%9%
1-8480¢
1-859%¢
1-868¢
1-8740

FEQUAL
GETBYT

38-15
52-64
57-55

7-278¢
7-278¢

7-278¢

68-59

69-14
7-323

68-57

68-61

69-18

69-20

69-22

69-24

69-38

69-44

69-47

69-49

69-51

69-53

7-323
42-61¢
56-260

7-323
44-91
57-15

7-323¢
44-91¢
57-15¢

44-103
S57-18

44-103¢
57-18¢

44-165
S58-18

68-57¢

68-59

68-59¢

68-61

69-60

7-278¢

59-200

7-278¢

69-20¢
69-340¢
69-55¢
7-278¢
19-11
19-14

69-122
7-323
42-61
56-26

62-35

68-55

69-22
69-38
69-57
19-4
19-11
19-14¢

62-35¢

68-55¢

69-22¢
69-380
69-57¢
19-4
19-11
19-16

63-35

68-57

69-24
69-44
69-60
19-4
19-11
19-16¢

63-35¢

69-240
69-440
69-600
19-4¢
19-11
19-17

66-33

69-26
69-47

19-8
19-11¢

19-17

66-33¢

69-26¢
69-47¢
19-8
19-13
19-17

67-37

69-28
69-49
19-8
19-13¢

19-17

58-18¢
67-37¢
68-61¢
69-28¢
69-49¢

S58-21
67-78
69-14
69-30
69-51

19-8
19-14
19-17

19-8¢
19-14
19-17

58-21¢
67-78¢
69-14¢
69-30¢
69-51¢

19-10
19-14
19-17

59-17

59-172

69-184

CODING MACRO VO4.00

19-21¢
19-30¢
19-40
32-171
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

S52-64
54-44
55-25
57-110

MSDEFA

60-44
62-38
64 -58
66 -60
67-247
1-E70¢
69-20
69-34

MS$ENDE

69-55
1-D74¢
41-10

MSERRI

MSESCA
MS$ESCS
MSEXCP

MSEXIT

MSEXSE
MSEXTY

S52-640
55-25¢
60-449
64 -58¢
67-2540
1-349¢

27-66
27-103
27-140
27-203
56-112
62-33
1-D06&
1-D10¢
1-E01¢
69-18
69-260
1-Di4e
56-260
62-35¢0
1-D22¢
59-17¢
1-D18¢
57-18¢

TABLE (CREF v04.00
19-22
19-31
19-40
32-171¢0
33-56

£4-290
44-127¢

58-69¢
66-31¢

7-278¢
7-323
7-.23

18-27

7-278¢

19-490

42-760
48-35¢

S52-640
54-44¢
55-25¢
57-1100
60-440
62-38¢
64 -58¢
66 -600
67-2470
7-278¢

69-200
69-340
69-55¢

7-2780
42-760

S52-710
56-57¢
60-52¢

64 -630
68-62¢
7-2780
27-66¢

27-103¢
27-1400
27-203¢
56-112¢

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¢
9-21

-115

CROSS REFERENCE

1-DEC-83

43-12

50-67

3332582 23LRLY
seRugatELass

PARAMETER

)

B b
12:59:38 PAGE

19-220
19-31
19-400

32-173¢0
33-560
44-71¢
44-132¢

59-66¢
67-350
7-323
7-323
7-323

9-21¢

26-115¢

43-120

50-67¢
52-71¢
S4-47¢
56-57¢
S58-460
60-52¢
63-32¢
64-63¢0
66-83¢0
67-2540
68-55¢
69-22¢
69-38¢
69-57¢
10-39¢
45-17¢
53-60¢0
56-120¢
61-36¢0
65-47¢
69-123¢
27-27¢

27-710
27-108¢
27-147¢
30-19¢
57-102¢
63-148¢0

68-55

69-20
69-28¢
44-91

57-18
66-33

£2-910

63-35¢

42-610

59-17¢

19-24
19-31
19-42
33-40
33-57

44-73

56-60
63-99
67-155
7-323
7-323
7-323

10-39
26-133

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-40¢
46-2.0

53-67¢
S7-27¢

61-450

65-£60

27-35
27-76
27-113
27-150
30-23
S58-84
63-157
68-55¢
69-20

69-30
44-91¢

57-18¢
66-33¢

44-103¢

66-330

44-91¢

59-20¢

M-3

19-240
19-31
19-420
33.400
33.57¢

44-730

56 -600
63-99¢
67-155¢
7-323
7-323
7-323

10-39¢
26-1330

44-1800

50-68¢
53-43¢0
54 -59¢
56-89¢
58-66¢
61-25¢
63-96¢
65-410
67-75¢0
68-620
68-57¢
69-240
69-440
69-600

19-25¢

5EG 0196

19-28
19-31
19-46

33-43
33-66
44-75
56-61
63-100
67-156
7-323
7-323
7-323

10-40
26-168

45-17

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

19-34¢

19-28¢
19-31¢
19-460
33-430
33-660

44-750

56-610
63-1000
67-1560
7-323
7-323
7-323

10-400
26-1680

45-17¢

19-29

19-33
19-48

33-45
33-78

44-77

56-73
63-121
67-177

7-323
7-323
7-323

19-25
32-36

46-26

19-29
19-33¢
19-48¢0
33.450
33.73%¢

44-770

56-730
63-1210
67-1770
7-323
7-323
7-323

19-25¢
32-360

46-260

19-29

19-39

32-165
33-50
33-75

44 -85

56-74
63-122
67-178
7-323
7-323
7-323

19-34
38-15

47-33

19-29
19-39¢
32-1650

23-50
33.75¢

859

56 -740
63-122¢
67-178¢
7-323

7-323%

7-323¢0

19-34¢
38-15¢

47-33¢

19-29¢0
19-40
32-168
33-500
33-77

44-114

57-86
63-141
67-197

7-323
7-323

7-323¢
19-43

41-1

S51-27¢
53-67¢
S4-67¢
S57-27¢
59-43¢
61-45¢
63-165¢
65-660
67-1940
69-123¢
68-61¢
69-28¢0
69-49¢

51-31
54-29
55-17
57-55
59-63
62-25
64-39
65-72
67-205

S1-31¢
54 -29¢
55-17¢
57-55¢
59-63¢
62-250
64 -390
65-72¢0
67-205

48-34
S2-48
S54-32
55-20
57-83
59-87
62-34
64 -45
65-85
67-205¢

65-859
67-205¢

69-14
69-30
69-51

69-140
69-300
69-51¢

69-18
69-32
69-53

69-18%
69-329
69-532

19-430

19-49¢
50-67¢

26-133¢
51-20¢
54 -620
58-92¢
63-138¢
67-152¢0

26-168¢
S51-27¢
S54-67¢
59-430
63-165¢
67-1940

32-360
S1-31¢
55-17¢
59-63¢
64 -390
67-205¢

38-15¢
S2-48¢

27-61

70-16

70-16¢

54-320
57-83¢
62-340
65-85¢

S54-440
57-1100
62-380
66-600

66-830

27-350
27-760
27-113¢0
27-1500
30-23¢
S58-840

63-157¢

27-42
27-87
27-118
27-155
30-27
59-79
64-33

27-420
27-87¢0
27-118¢
27-1550
30-27¢
59-79¢
64-330

27-47
27-92
27-123
27-160
30-31
61-24
67-209

27-470
27-920
27-123¢
27-1600
30-31¢
61-240
67-209¢

27-52
27-95
27-128
27-165
30-35
61-35
67-221

27-52¢
27-95¢
27-128¢
27-165¢
30-35¢
61-35¢
67-2210

68-57
69-200
69-30

68-57
69-22
69-30¢

68-57¢
69-22
69-32

68-59
69-220
69-32

68-59
69-24
69-320

68-61
69-24¢
69-34

68-61
69-26
69-342

58-18
67-37

S58-18¢
67-37¢

58-21
67-78

58-21¢
67-78¢

59-17

68-59¢
69-24
69-34
46-240
59-17¢

59-20

44-103

44-165¢

67-37¢
44-1030
62-35¢

44-103¢

19-430
41-1¢

S1-27
53-67
S4-67
57-27
59-43
61-45
63-165
65-66
67-194
69-123
68-61
69-28
69-49

54-290
S7 S50
62-25¢
65-720

48-340

7-323
7-323
18-17

51-200
53-600
54-620
56-1200
58-92¢
61-36¢
63-138¢0
65-47¢0
67-152¢
69-71¢0
68-59¢
69-260
69-47¢

26-115¢
50-68¢
54-59¢
58-66¢
63-960
67-75¢

47-330

19-30
19-40
32-168¢
33-S1
33-77¢
44-11492
57-860
63-1410
67-1979

48-35¢

44-165

54-470
S58-460
63-32¢

44-165¢

46-24

47-18¢

48-340

S52-48¢
S54-32¢
55-20¢
57-83¢
59-87¢
62-340

64 -45¢

55-200
59-87¢
64-459
67-247@

27-98

27-619
27-98¢

31-22
62-24

31-22¢
62-242

27-135
27-170

27-135¢
27-170¢

68-61¢

€9-26

48-19¢

59-20¢

56-26
62-35

46-24¢

47-18¢0

48-19¢

56-260

57-15¢

57-18¢

58-18¢

S8-21¢

44-1650

46-240

47-18

47-18¢
67-78¢

48-19

48-192

56-26¢

57-15@

67-780
63-35¢

66-330

67-37¢

PARAMETER CODING MACRO vO4-.00

7-323

7-323¢
7-3230
7-3230
9-21

19-25

26-112¢
38-15¢
45-17¢

50-57¢
S51-25¢
52-64¢
53-67¢
54 -440
S54-670
56-23¢
57-25¢
58-15¢
59-29¢
60-440
61-45¢
63-17¢
63-165¢0
64 -58¢
65-630
66-600
67-180¢

MS$GENB

MSGETS

69-71¢
1-C38¢
1-D35¢
19-49
42-76
48-35

MSGETT

MSGNGB

S2-64
54-44
55-25
57-110
60-44
62-38
64 -58
66 -60
67-247
69-123

1-B77¢
59-17¢
1-Co2¢
7-323
7-323
7-3230
7-3230

7-3230
10-8
19-45

42-47¢

7-2780
7-323
7-323
7-323¢
7-323¢
7-323¢
9-21¢

19-25¢
26-115

az2-47

46-8
50-62

S51-27
52-71
54-17
54 -45
55-8
56-44
57-27
58-34
59-43
60-52
62-10
63-30
64-19
64-63
65-66
66-83
67-194
69-122

7-278¢
7-2780

7-323
7-323
7-323
7-3230
7-323¢
7-3230

10-8
19-27
26-115¢

42-47¢
46-89

S50-62¢
S1-27¢
S52-710
S4-17¢
S4-45¢
55-8¢
S56-440
57-27¢
S58-34¢
59-430
60-52¢
62-10¢
63-300
64-19¢
64-630
65-660
66-83¢0
67-1540
69-122¢

- 7-323
7-323
7-323
7-3230
7-3230
7-3230

10-8
19-27¢
26-1300

42-76
46-26

50-67
S51-31
53-22
S54-27
S4-47
55-15
56-57
S57-41
58-46
59-49
61-9
62-19
63-32
64-37
65-18
65-67
67-29
67-205

S2-640

S50-67¢
S52-71¢

42-760
48-35¢

7-278¢

7-278¢
7-323
7-323
7-323¢
7-323¢
7-323¢

10-8
19-45¢

43-8

42-760
46-260

50-67¢
51-31¢
53-22¢
S54-27¢
S4-47¢0
55-15¢
56-57¢
57-410
58-460
59-49¢
61-90
62-19¢

63-320

64-37¢0
65-18¢

65-67¢

43-120

56-57

M-4

-570
-460
-52¢
-32¢
-63¢0
66-830
67-2540

63-35¢
7-323

-323
-323
-323¢
-323¢0

7-323¢

11-51¢

26-112¢

44-8

10-8¢
19-340
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

S5EG G197

7-323
7-323
7-323¢0
7-3230
7-323¢0
18-17

26-130

44-80

10-39
19-36
26-1650
43-80
47-80
50-68¢
S52-23¢
53-41¢

10-39¢
19-360
26-168

44-8
47-33

S51-14
S2-46
53-43
54 -30
54-59
55-18
56 -89
57-69
58-66
59-87
61-25

10-39¢
26-133¢

10-40
26-168

10-40¢
26-168¢

S50-68¢
53-430
54-59¢
56-89¢

63-960
65-410
67-750
68-620

51-20
53-60
54-62
56-120
58-92
61-36
63-138
65-47
67-152
69-16

44-165¢

46-240

58-66¢

66-33¢
7-323

7-3230
7-3230
7-3230

7-323
7-32%3
7-323
7-3230
7-3230
7-3230

65-41
65-85
67-75
68-53

61-25¢

44-103¢0

7-323
7-323
7-323

54-29¢
54-57¢
55-17¢
56-76¢0
57-55¢
58-52¢
59-63¢
61-200
62-250
63-710
64-39¢
65-38¢
65-72¢
67-700
67-247¢

44-1800

-470

44-91¢

7-323
7-323
7-323
7-3230
7-323¢
7-3230

70-21

9-21¢

26-115¢

59-20¢

10-8¢
19-34
26-133

70-16

19-490

S54-440
55-25¢
57-110¢
60-440
62-38¢
64 -580
66 -600
67-247¢
69-123¢

7-323
7-323
7-323
7-3230
7-323¢
7-323¢0

b33
4 34

1-D38¢

7-323

12:59:38 PAGE

)

NSNNN

MSGEN

1-DEC-83

TABLE (CREF v04.00

gus RaIKKS
égég glkkas
$8U%e

CROSS REFERENCE

67-37¢

7-323
7-323
7-323
7-323¢0
7-3230
7-323¢

18-17¢
26-1300

45-10

70-21¢

45-17

67-780
7-323

7-323
7-323
7-3230
7-323¢
7-323¢

18-27

26-165
45-10¢

62-28

63-96
64-42

7-323
7-323
7-323
7-3230
7-3230

8-8
18-17
19-43
2€-1680

44-8¢
47-330

S1-14¢
S52-460
S53-430
54-300
54-59¢
55-18¢
56-89¢
57-69¢
58-66¢
59-87¢
61-25¢
62-289
63-960
64-426
65-41¢
65-85¢
67-750
68-53¢

S51-200
53-60¢
54-620
56-1200
58-92¢
61-360
63-138¢
65-470
67-152¢
69-16¢

19-25
32-36
46-26
S1-27
53-67
54-67
57-27
59-43
61-45
63-165
65-66
67-194
69-40

48-19¢

45-17¢

180

69-16
7-323
7-323

7-323

7-323¢0
7-3230
7-323¢

18-27¢
26-165¢

46-8

69-16¢

7-323
7-323
7-323
7-3230
7-3230
7-323¢0

19-3
32-34

46-80

7-323
7-323%
7-323
7-3230
7-3230
8-8¢

18-17¢
19-430
32-340

7-323
7-323
7-323
7-3230
7-3230
9-9

18-27
19-45
32-36

44-180
48-9

44 -180¢
48-90

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

53-440
54-320
54 -600
55-200
56-120¢
57-83¢
S58-92¢
60-200
61-31¢
62-340
63-124¢
64 -45¢
65-42¢0
66-25¢
67-127¢
68-620

S51-18
S52-48
53-44
54-32

19-25¢
46-260

S1-27¢
53-67¢
S4-67¢
57-27¢
59-43¢
61-45¢
63-165¢
65-66¢
67-1940
69-40¢

56-260
69-40

7-323
7-323
7-323
7-323¢0
7-3230

8-8

19-3¢
32-340

47-8

S1-18¢
S52-480

19-34
38-15

7-32%

7-323%
7-323

7-323
7-323
7-3230
7-3230
9-9

7-323%0
7-323%¢

7-323%9
9-90

18-274
19-45¢
32-360

19-3¢0
19-49¢
38-15

45-10
48-34

45-17

S0-57
51-25
S2-64
53-67
S54-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

19-43¢

41-1
48-34

41-1%
48-349

55-17
57-55
59-63
62-25
64-39
65-72
67-205
69-59

S2-48
S54-32
55-20
57-83
59-87
62-34
64 -45
65-85
67-205¢
69-71

S52-48¢
54-329
55-20¢
57-839
59-87¢
62-340
64 -459
65-85¢
67-2059
69-712

57-15¢
69-400

58-18¢
69-59¢

58-21@

47-33

S51-31

7-323
7-323
7-323
7-3230
7-3230

8-80
19-27
47-80

7-323
7-323
7-323
7-3238
7-323¢
9-9

19-36

7-323
7-323

7-323¢

7-3232
7-3238
9-9¢

19-362

42-419¢

42-47

48-9¢

50-382

PARAMETER CODING MACRO v04.00

CROSS REFERENCE

MS$GNIN

68-430
1-Da%e
7-323
7-329

7-323

7-323¢
7-3230

7-323@
8-8
8-8¢
8-8¢
18-278
19-4¢
19-8¢
19-10¢
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-39¢
19-40¢
19-42¢
19-48
26-16¢
26-84
26-94
26-126

26-135
26-155
26-170
27-27¢
27-42
27-47¢
27-61¢
27-71
27-760

1- DEC-83

12:59:38 PAGE M-5

TABLE (CREF voO4. 00

)

68-53

69-12

7-278¢
7-323
7-323
7-323
7-323¢6
7-323¢
7-323¢

8-8
8-8¢
8-8¢
18-27¢
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¢

68-530

7-323
7-323
7-323
7-323
7-323¢0
7-323¢
7-3230

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

7-323
7-323
7-323
7-323
7-3230
7-3230
7-3230

8-8
8-8¢
8-8¢
19-4
19-8
19-8¢
19-11
19-110
19-13¢
19-14¢
19-16
19-17
19-17¢
19-22
19-24¢
19-28¢
19-29¢

19-31
19-31¢

19-31¢
19-33¢0
19-490

69-124
7-323
7-323
7-323

69-122
7-323
7-323

7-323
7-323
7-3230
7-3230
7-3230

D16
SEG 0198

69-122¢
7-323
7-323
7-323

8-8
8-8¢

9-90

19-31

19-40¢

26-84
26-94
-126

27-123¢
27-135¢
27-147
27-150¢
27-160
27-165¢

27-1650

27-155
27-1600
27-170

27-140
27-147¢
27-155
27-1600
27-1700

7-323

7-32%

7-323

7-323%0
7-3230
7-323¢

8-8
8-8
8-80
18-17¢
19-40
19-8
19-10

27-920
27-98¢
27-108
27-113¢
27-123
27-128¢

27-95¢

27-103
27-108¢
27-118

7-323

7-323
7-323
7-3230
7-3230
7-323¢

10-8¢
19-4
19-8
19-10
19-11
19-11¢
19-14
19-149
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
26-84¢
26-940
26-1260
26-1350
26-168
27-27
27-350
27-47
27-52¢
27-66
27-710
27-87

19-4
19-8
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-43
19-48
26-16¢

27-92
27-959

7-323
7-323
7-323
7-3230
7-323¢0
7-3230
7-3230
8-8
8-8¢

27-1700

27-165
27-170¢

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-49¢
26-350
26-84¢
26-115¢
26-133¢
26-155
26-170
27-27
27-35¢
27-479
27-61
27-660
27-76
27-87¢
27-95
27-98¢
27-108
27-113¢
27-123¢
27-135
27-140¢
27-150
27-155¢
27-165
27-170¢

8-8
8-8¢
8-8¢
18-27
19-4¢
19-8¢
19-10¢
19-11¢
19-13
19-14
19-14¢
19-17
19-172
19-22
19-24
19-28
19-29¢
19-30¢
19-31¢
19-33
19-39¢
19-402
19-42¢
19-46¢

27-108¢
27-118
27-123¢
27-135
27-140¢
27-150
27-155¢
27-165
27-170¢

PARAMETER

CODING MACRO

CROSS REFERENCE

27-203
30-19¢
30-27
30-31¢
31-22
32-1650
32-168¢
32-173
33-40¢
33-45
33-50
33-51¢
33-56¢
33-66
33-73
33-75¢
36-18
36-3606
36-147
36-2540
44-16¢
44 -27
44-390
44-710¢

44-75

44-77
4A-850
44-91
44-1010¢
44-1140
44-12760
44-1650

46-21
47-18
50-67%
52-460
53-440
S54-420
54-62¢
56-26
56-37¢
56-440
56-61
56-73¢
6-89¢

36-119
57-15
57-32
57-34
57-83

57-100¢

37-109
58-21
58-27¢
58-34
58-69¢

v04.00

1-DEC-83

12:59:38 PAGE

TABLE (CREF v04.00

)

27-203
30-19¢
30-27¢
30-35
31-22
32-165¢
32-171
32-173
33-400
33-45
33-506
33-51¢
33-56&
33-66
33-73¢
33-75¢
36-18
36-360
36-147
36-254¢

27-2030
30-23
30-27¢
30-35
31-220
32-165¢
32-171
32-173¢
33-43
33-45¢
33-506
33-51¢
33-57
33-66
33-73¢
33-77
36-180¢
36-360
36-1470¢
38-15¢

44-160
44-27¢
44-39¢
44-710¢
44-75

44-77
44-850
44-91
44-1010
44-1140
44-1270
44-180

46-210¢
47-180
S0-68
S2-48
S3-60
S4-44
S4-67
56-260
S6-39
56-57
56-61
S6-73¢
56-110

27-2038
30-23
30-27¢
30-35
31-22*
32-165¢
32-171
32-173
33-43
33-45
33-50&
33-51¢
33-560
33-66
33-73¢
33-75¢
36-180
36
36-147¢
38

44-18
44-29
44-39¢
44-73
44-75

44-770¢
44-89
44-910¢
44-102
44-1140
44-132
44-1800¢

46-210
47-186
50-68¢
S52-48¢
53-608¢
S4-440
S4-67¢
S56-260
56-39
56-57¢
56-61
S6-74
56-110

56-119
57-15
57-32
57-34
S57-83¢

56-119
S57-15¢
57-32
S57-340
57-86

57-109
58-21
58-27¢
S58-340
S8-69¢

57-109¢
58-21¢
S8-29
58-46
S8-69¢

57-102

S57-102

44-180
44-29
44-40
44-73

27-203¢
30-23
30-27¢
30-35
31-220
32-168
32-171
32-1730
35-43
33-450
33-50¢
33-56
33-57
33-660
33-73¢
33-77
36-20
36-360
36-199
42-61
44-20
44-29
44-400
44-73

44-75

44-770
44-89
44-910
44-1020
44-1140
44-132
45-17

44-770
44-89
44-98
44-103
44-1140
44-132
45-17¢

46-23
47-33
S1-18
52-49
53-67
S54-45
55-15
S6-37
56-39
56-60
56-61¢
S56-74
S56-1100

46-23
47-330
S51-18¢
S52-49¢
53-67¢
S4-45¢
55-15¢
56-37
56-39
56-60
56-61¢
56-74
56-1100

56-119
S7-15¢
57-32
S57-34¢
57-86

56-119
S7-18
57-32¢
S57-340
57-86

57-109¢
58-21¢
58-29
58-460¢
58-80

S57-109¢
58-27
58-29
S58-52
58-80

S7-102

M-6

27-203¢
30-23
30-27¢
30-35¢
31-220
32-168
32-171
32 1730
33-43
33-450
33-50¢
33-56
33-57
33-660
33-730
33-77
36-20
36-360
36-199
42-61
44-20
44-29

44-71
44-73

44-750

44-77¢
44 -89
44-98
44-103
44-127
44-132
46-10

46-230
48-19
51-20
52-64
54-27
S54-47
55-17
56-37
56-39
56-60
S56-61¢
S56-74
56-112

56-119
57-18
57-320
S57-340
57-86

S7-102¢

S7-109¢
58-27
58-29
58-52¢
58-80¢

5EQ 0199

27-203¢
30-23¢
30-31
30-35¢
31-220¢
32-168
32-171
32-173¢
33-43
33-45¢
33-S50¢
33-56
33-57
33-660
33.75
33-77
36-20¢
36-45
36-199¢
42-610

44-200
44-29
44-71
44-73
44-750

44-770
44 -89
44-980
44-1030
44-127
44-132
46-10

46-230
48-19
51-20¢
S2-64¢
54-27¢
S4-470¢
55-17¢
56-37
56-39
56-60
S6-61¢
56-74
56-112

56-119¢
57-186
S7-320
S7-340
57-86
S57-1020

S57-109¢
58-27
58-29
S58-66
S8-80¢

30-19
30-230¢
30-31
30-35¢
32-36
32-168
32-171¢
33-40
33-430
33-450¢
33-51
33-56
33-57
33-660
35-75
33-77
36-200
36-45
36-199¢
42-610

44-200
44-29¢

44-71
44-73

44-750

44-85
44 -89
44-98¢
44-1030
44-127
44-1320
46-100

46-24
48-190
51-25
52-71
54-29
54-57
S55-18
56-37
56-39¢
56-60
S6-73
56-740
56-112

56-119¢
S7-18¢
S57-320
S57-340
S57-860

S57-102¢

57-109¢
58-27
58-29
S58-66¢
58-83

30-19
30-23¢
30-31
30-35¢
32-360
32-168
32-1716¢
33-40
33-430
33-50
33-51
33-56
33-57¢
33-660
33-75
33-77
36-36
36-45¢
36-209
42-76

44-22
44-290
44-71
44-7360

44-750

44-85
44-890
44-100
44-114
44-127
44-1320
46-100

46-24
48-19¢
S51-25¢
52-71¢
54-29¢
S54-57¢
55-18¢
56-37
S56-39¢
56-600
56-73
S56-740
56-112

56-1190¢
S57-25
S7-320
S7-41
S57-860

S7-102¢

S7-110
58-27
58-29¢
58-69
58-83

30-19
30-23¢
30-31
30-35¢
32-165
32-168
32-171¢
33-40
33-430
33-50
33-51
33-56
33-57¢
33-73
33-75
33-77¢
36-36
36-450
36-209
42-766
44-226
44-290

44-71
44-730
44-75¢

44 -85
44-89¢
44-100
44-114
44-127
44-1320
46-18

46-249
48-34
S51-27
53-41
54-30
S54-59
55-20
56-37¢
56-39¢
S56-608
S56-73
S56-740¢
56-112¢

56-119¢
57-25¢
S57-320
S7-41¢
57-86¢
S57-102¢

S57-110¢
58-27
58-29¢
58-69
58-83

30-19
30-23¢
30-31¢
30-45
32-165
32-1680¢
32-171¢
33-40
33-430¢
33-50
33-51
33-56
33-57¢
33-73
33-75
33-77¢
36-36
36-145
36-209¢
44-10

44-25
44-290¢
44-71
44-730
44-77

44 -85
44-890
44-100¢
44-114
44-127
44-1320
46-18

46-240
48-349¢
51-27¢
53-410¢
54-30¢
54-59¢
55-208¢
56-37¢
56-390¢
56-600
56-73
S6-740¢
56-112¢

56-119¢
57-27
S57-34
57-55
S7-86¢
S57-109

58-18
58-27¢
S58-29¢
58-69
58-83

30-19¢
30-27
30-316
30-45¢
32-165
32-1680
32-1710
33-40
33-45
33-50
33-51
33-560
33-57¢
33-73
33-75
33-77¢
36-36
36-145
36-209¢
44-100
44-25

44-39
44-710
44-730
44-77

44 -85
44-890
44-1000
44-114
44-1270
44-165
46-18¢

46-26
S50-62
S1-31
S53-43
S54-32
S54-60
S55-25
S6-37¢
S6-39¢
S6-60¢
S56-73
S56-76
56-112¢

56-119¢
57-27¢
57-34
57-55¢
S57-100
57-109

58-18
S58-27¢
S58-29¢
58-69
58-83

30-19¢
30-27
30-31¢
31-22
32-165
32-1680
32-173
33-40¢
33-45
33-50
33-51
33-56¢
33-66
33-73
33-75¢
33-77¢
36-36
36-145¢
36-254
44-16

44-2506
44-39
44-710
44-730
44-77

44-85¢
44-89¢
44-101
44-114
44-127¢
44-165
46-18¢

46-26¢
50-62¢
S51-31&
53-436¢
S4-328
S54-60¢
55-25¢
S6-37¢
S56-39¢
S6-61
56-73¢
56-768
56-112¢

56-120
S57-32
57-34
57-69
S57-100

57-109

58-18¢
S58-27¢
58-29¢
58-69
58-83

30-19¢
30-27
30-310
31-22
32-165
32-1682
32-173
33-40¢
33-45
33-50
33-51¢
33-56¢
33-66
33-73
33-75¢
33-77¢
36-36
36-1450
36-254
44-16

44-250
44-39
44-710
44-75
44-77

44-85%
44-392
44-101
44-114
44-127@
44-1659

46-21
47-18
S50-67

52-46
S53-44

S54-42
S5456-26
S6-37¢
S56-44
56-61
S6-732
56-89
56-1122

56-120¢
57-32
57-34
57-69¢
S57-100¢
57-109

58-18¢
S58-27¢
58-29¢
58-69¢
58-832

F16
PARAMETER

CODING MACRO v04.00

1-DEC-83

CROSS REFERENCE TABLE (CREF v04.00 )
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-46¢
63-99
63-121
63-122¢

63-1419
63-155¢
63-164
64 -33
64 -45
65-47
66-31
66-520
67-35¢0
67-86
67-88
67-155
67-1560
67-178

MSGNLS
M$GNSU

MSGNTA

67-197
67-201¢
67-209¢
67-2140
67-221¢
67-247¢
68-59
69-120
69-20
69-24
69-28¢
69-34
69-440
69-53
69-60

1-C13¢
1-898¢
S53-44
55-15
S58-34

62-19
64 -56
67-127
1-890¢

58-83¢
58-91
59-17
59-26&
59-28¢
59-66
59-79¢
59-86¢
61-24
61-35
62-24
62-33
62-38¢
63-44
63-460
63-99¢
63-121
63-122¢
63-141¢
63-155¢
63-164
64-330
64-45¢
65-47¢
66-31
66-60
67-35¢
67-86
67-88
67-155
67-1560
67-178
67-197
67-201¢
67-209¢
67-2140
67-229
68-53
68-59
69-14
69-20
69-24
69-30
69-34
69-47
69-53
69-60

7-278¢
7-278¢

53-44¢
55-15¢
S58-34¢
62-19¢
64 -56¢
€7-127¢
7-278¢

58-83¢
58-91
59-17¢
59-26¢
59-28¢
59-66
59-79¢
59-86¢

61-24
61-35
62-24

62-33
63-30
63-440
63-460
63-99¢
63-121
63-122¢
63-141¢
63-157
63-164
64-33¢
64-56

65-63

66-31
66-600
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
69-34
69-47
69-53¢
69-60¢
67-205
50-62
S54-27
55-18
58-52
62-28

65-38
67-180
9-21

12:59:38 PAGE

58-83¢
58-91
59-17¢
59-26¢
59-28¢
59-660
59-79¢
59-86¢
61-24
61-35¢
62-24
62-33¢
63-300
63-440
63-460
63-99¢
63-121
63-122¢
63-148
63-157
63-1640
64-330
64-560
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¢0
50-62¢
S54-27¢
55-18¢
58-52¢
62-28¢
65-38¢
67-180¢
9-21¢

M-7

58-83¢
58-91
59-20
59-26#
59-29
59-66¢
59-79¢
59-87
61-240
61-35¢
62-24¢
62-330
63-32
63-440
63-460
63-99¢
63-121
63-124
63-148
63-157
63-164¢
64-33¢0
64-58
65-66
66-31¢
66-830
67-37¢
67-86
67-88¢
67-155
67-177
67-178¢
67-197¢
67-201¢
67-214
67-219¢
67-229
68-55
68-59¢
69-140
69-200
69-26
69-30
69-340
69-470
69-55
69-71¢

58-84
58-91
59-20
59-260

SEQ G200

59-29¢
59-6€¢
59-794
59-87¢
61-240
61-350
62-240
62-330
63-320
63-440
63-464
63-100
63-121¢
63-1240
63-148
63-157
63-164¢0
64-33¢0
64-589
65-66¢
66-31¢
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

58-84
58-91¢
59-20%
59-2¢8
59-43
59-66¢
59-86
60-32
61-240
61-35¢
62-240
62-33¢
63-35
63-440
63-71
63-100
63-121¢
63-138
63-148
63-157¢
63-1640
64-34
64-63
65-67
66-310
67-35
67-70
67-869
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
€9-26
69-300
69-38
69-49
69-55¢
69-122

58-84
58-91¢
59-200
59-28
59-43¢
59-77
59-86
60-32¢
61-240

S51-18
54-30
56-44
59-29
63-30
65-42

S1-18¢
54-300
S56-44¢
59-29¢
63-300
65-42¢0

10-39

10-39¢

69-32
69-38
69-49
69-57
69-122

58-84
58-91¢
59-26
59-28
59-49
59-77
59-86
60-44
61-24¢
61-36
62-24¢
62-34
63-35¢
63-46
63-96
63-100
63-121¢
63-141
63-148¢
63-157¢
63-164¢
64-37
65-38
65-72
66-31¢
67-35
67-75
67-860
67-88¢
67-155¢
67-177
67-180
67-201
67-205¢
67-214
67-221
67-229¢
68-57
68-61
69-18
69-22
69-26¢
69-32
69-38¢
69-49¢
69-57
69-122¢

58-840
58-91¢
59-26
59-28
59-49¢
59-77¢
59-86
60-444
61-25
61-36¢
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-38¢
65-72¢
66-33
67-35
67-75¢
67-860
67-88¢
67-156
67-177¢0
67-1800
67-201
67-209
67-214
67-221
67-229¢
68-57
68-61
69-18
69-22
69-28
69-32
69-40
69-51
69-57

58-844
58-91¢
59-26
59-28
59-63
59-77¢
59-86
60-52
61-25¢
61-45
62-250
62-35
63-44
63-46
63-99
63-100¢
63-122
63-141
63-148¢0
63-157¢
63-165¢
64 -39
65-41
65-85
66-33
67-35
67-78
67-860
67-127
67-156
67-177¢
67-194
67-201
67-209
67-214¢
67-221¢
67-229¢
68-57
68-610
69-18
69-22¢
69-28
69-32
69-400
69-51
69-57¢

58-840
58-91¢
59-26
59-28
59-63¢
59-79
59-86
60-52¢
61-31
61-45¢
62-28
62-35
63-44
63-46
63-99
63-100¢
63-122
63-141
63-148¢
63-164
64-33
64-39¢
65-410
65-85¢
66-330
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-62
69-18
69-24
69-28
69-32
69-44
69-51
69-59

67-35¢
67-78¢
67-88
67-152
67-156
67-177¢
67-197
67-201
67-209
67-214¢
67-2219
67-229¢
68-57%
68-629
69-18¢
69-24
69-28
69-32¢
69-44
69-51¢
69-59¢

S51-25
54-42
56-76
59-49
63-71
65-63

S1-25¢
54-420
S6-76¢
59-49¢
63-710
65-63¢

52-46
54-45
57-25
60-32
63-124
65-67

S52-464
S54-45¢
57-25¢
60-32¢
63-124¢
65-67¢

52-49
54-57
57-41
61-20
64-37
66-52

52-49¢
S4-57¢
S57-41¢
61-20¢
64-37¢
66-52¢

53-41
54-60
57-69
61-31
64-42
67-70

53-41#
54-604
S7-69¢
61-31¢
64-42%
67-70&

19-25

19-25¢

19-34

19-340

19-43

19-432

19-49

19-49%

61-35¢0

62-244

62-330
63-35
63-440
63-710
63-100
63-121¢
63-138¢0
63-148¢
63-157¢
63-1640
64-340
64-630
65-67¢
66-31¢
67-35
67-700
67-86¢
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

70-16

70-16¢

58-844
58-92¢
59-26
59-28¢
59-66
59-79
59-86¢
61-200
61-35
62-19¢
62-33
62-35¢
63-44
63-46
63-99
63-1002
63-122
63-141¢
63-155
63-164
64-33
64-42¢
65-424
66-31
66-52
67-359
67-78¢
67-88
67-152¢
67-156
67-178
67-197
67-201¢
67-209¢
67-214%
67-2219
67-247
68-59
69-12
69-20
69-24

69-28
69-34
69-44
69-53
69-60

PARAMETER CODING MACRO VO4.00 1-DEC 583

CROSS REFERENCE TABLE (CREF v04.00
26-115

45-17
S51-27

53-67
54-67
57-27

59-43
61-45
63-165
65-66
MS$GNTE

MSHAPT
MSHNAP
MS$INCR

67-194
1-894¢
56-23
63-17
1-A39¢
1-B24¢
1-D26&
19-3
19-24¢
19-36@
26-35¢
26-165
27-87#9
27-155¢
32-34¢
33-73¢
38-49

44-8
44 -892
45-10¢
47-8

S50-57¢
S1-149
S51-25¢
S52-469
53-22¢
53-44¢
54-27¢
54-42¢
54-57¢
55-8¢
55-18¢

56-44

56-760
57-18¢
57-41¢
57-110¢

58-34¢
58-84¢

59-29
59-77¢
60-32¢
61-200
62-10
62-28
63-17¢

26-115¢

45-17¢

S51-27¢
53-67¢
S54-67¢
57-27¢
59-43¢
61-45¢
63-165¢
65-66¢
67-194¢
7-278¢
56-23¢
63-17¢

7-278¢
7-278¢
7-278¢

19-3
19-25¢
19-36¢
26-84¢
26-165
27-92¢
27-1608
32-340

33-75¢
38-4¢
44-8¢

44-91¢
45-100
47-8¢

S50-57¢
S51-14¢
S1-25¢
52-460
53-220
S53-440
S54-27¢
54-420
54-57¢
55-8¢
55-18¢
56-44

56-760
57-25
57-41¢

58-15
58-340
58-91¢
59-29
59-79¢
60-32¢
61-200
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-940
26-165¢
27-95¢
27-1650
32-165¢
33-77¢

42-41
44-80

44-98¢
45-17¢
47-89

50-57¢
S1-14¢
S51-27¢
S2-48¢
53-22¢
53-60¢
S54-29¢
S54-440
54-59¢
55-8¢
55-200
S56-44¢
56-89¢
57-25

57-55¢
58-15
58-34¢
58-92¢
59-29¢
59-86¢
60-440
61-24
62-100
62-28¢
63-30

12:59:38 PAGE M-8

26-133¢

46-260

S1-31¢
54-29¢
55-17¢
57-55¢
59-63¢
62-250
64-39¢
65-72¢0
67-247¢
S50-57¢
57-12¢
64-19¢
7-3230

7-323¢0
7-304¢

19-3¢
19-27
19-40¢
26-112
26-165¢
27-98¢
27-170¢
32-168¢
36-18¢

42-410
44-100
44-100¢
46-8
47-3]¢

50-62
S51i-18
S1-31¢
52-49
53-41
53-67¢
S54-30
54-45
54-60
55-15
55-25¢
56-440
56-1100
57-25
57-69
58-15
58-46¢0
59-14
59-29¢
59-87¢
60-52¢
61-25¢
52-10¢
62-28¢
63-30

26-168

47-33

52-48
54-32
55-20
57-83
59-87
62-34
64-45
65-85
68-62
S51-14
58-15
65-18
9-9

19-40
19-27¢
19-4260
26-112
26-1700
27-103¢
27-203¢
32-171¢
36-20¢
42-47
44-16¢

26-1684

47-330

52-48¢
54-32¢
55-200
57-83¢
59-87¢
62-340
64-450
65-85¢
68-62¢
S51-14¢
58-15¢
65-18¢
9-9

19-8¢
19-27¢
19-43%
26-112¢
27-27¢
27-108¢
30-19¢
32-173¢
36-360
42-47
44-200
44-102¢

46-8¢
48-9

50-62
51-18
52-23

(j:J ’l (‘l
SEQ 0201
32-36
48-34
52-64
54-44
55-25
57-110
60-44
62-38
64-58
66 -60
69-71
52-23
59-14
66-25

32-360

48-34¢0

38-150
50-67¢
S2-714
54-474
56-57¢
58-464
60-524
63-32¢
64-63¢
66-830

S52-644
54-444
55-25¢
57-1100
60-444
62-38¢
64-58¢
66 -600
69-71¢
S52-234¢
59-14¢
66-250

53-22¢
60-20¢
67-29¢

9-9¢
19-11¢
19-29¢
19-45
26-1260
27-420
27-118¢
30-27¢
33-43¢
36-145¢

10-8
19-14¢
19-31¢
19-45¢
26-130
27-520
27-128¢
30-35¢
33-50¢
36-199¢

42-474
44 -29¢
44-114¢
46-100
48-9¢

50-62¢
S51-18¢
52-23¢
52-49¢
53-41¢
54-17¢
54-30¢
S54-45¢0
54-60¢
55-15¢
56-230
56-61¢
S7-12
57-27¢
57-69¢
58-18¢
58-52¢
59-14¢
59-49
60-20¢
61-9¢
61-31¢
62-19
62-35¢
63-320

70-16¢

43-8
44-710
44-132¢
46-21¢
50-38

S50-67¢
51-200

S52-23¢
S52-64¢
53-43¢6
S4-179

S54-32¢
S54-470
S54-62¢
55-17¢
56-23¢
S6-740
S57-12
S57-34¢
57-83¢
58-27¢
58-52¢
59-17¢
59-49¢
60-20¢
61-9¢
61-31¢
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
€7-75
70-21
54-17
61-9

10-8¢
19-16¢
19-332
19-46¢
26-130¢
27-61¢
27-135¢
30-45¢
33-51¢
36-209¢
43-8
44-730

44-165¢
46-230

S0-38¢
50-68¢
S51-25
S52-46
S52-71¢
53-44
54-27
54-42
54-57
54-679
55-18
56-26¢
56-76
57-12¢
S57-41
57-86¢
58-29¢
58-664
59-200
59-49¢
60-32
61-20
61-35¢
62-19¢
63-17
63-460

44-1804%

51-20¢
53-600
54-62¢
56-1209
58-924%
61-360
63-138¢

65-470
67-152¢
55-84
62-10¢

11-51¢
19-22¢
19-36
26-16%
26-155¢
27-76¢
27-150¢
32-34
33-669

38-4

44-8
44-85%
45-10
47-8

S0-57

S51-14
51-25¢
52-46¢
53-22
53-44¢
54-27¢
S54-429
S4-57¢
55-8
55-18¢
56-44
S56-76#@
57-15¢
57-414
57-109¢
58-34
58-832
59-29
59-66&
60-32¢
61-20¢
62-.0
62-28
63-17%
63-71

1-877¢
1-881¢
19-49

42-76
48-35
52-64

MS$PRIN

54-44
55-25
57-110
60-44
62-38
64-58
66-60
67-247¢
1-336¢
19-16
19-30
19-48
33-45
33-75
44 -85

M$PUSH

56-74
63-122
67-178
1-831¢
19-36
42-41
48-9

S52-23
54-27
55-15
57-41
59-49
62-19
64-37

44-101¢

58-80¢

7-2788
7-278
7-278
7-278¢
7-278¢

19-49¢

42-760
48-35¢

S52-640
54-440
55-256
57-110¢
60-440
62-38¢
64 -58¢
66-600
67-254

7-2780
19-16¢
19-30¢
19-48¢
33-450
33-75¢

44 -85¢

26-16
44-16

46-10

59-77
7-278¢
7-278¢
9-21

-115

43-12

50-67

26-160

44-16%
46-10¢

59-77¢

63-155

9-21¢

44 -200
46-18¢

63-155¢

SEQ 0202

63-121¢
63-165¢
64-370
64 -560
65-38¢

65-63¢0
66-250
67-29
67-86¢
67-180
67-203¢
69-12

36-20

44-25
46-21

67-219

63-122¢
64-19
64 -39¢
64-58¢0
65-41¢
65-660
66-250
67-290
67-88¢
67-180
67-2054¢
69-12
36-200

44 -250
46-21¢

67-219¢

63-124
64-19

67-180¢
67-209¢
69-12¢

65-18
65-42
65-67
66-334
67-290
67-127
67-1800
67-2140
69-12¢0

64-42
64-630
65-42
65-67
66-310
67-290
67-127

36-45

44 -39
46-23

10-40¢
26-168¢
45-17¢
51-20¢
53-60¢
S54-62¢
56-120¢
58-92¢
61-36¢
63-138¢
65-47¢
67-1529
69-123
19-10¢
19-22¢
19-39¢
32-171¢
33-56¢
44-710

43-12¢6

50-67¢
S52-716
S54-47¢
56-57¢
S8-46¢
60-52¢
63-32¢
64-630
66-83¢
68-62
19-4¢
19-17¢
19-31¢
32-165¢
33-50¢
33-77¢
44-114¢
57-86¢

19-36¢

19-45¢

52-23¢
S54-27¢
55-15¢
57-41¢
59-49¢
62-19¢
64-37¢

26-350

26-1150

63-141¢
67-197¢

42-41¢
48-9¢

63-1004
63-1640
64-370
64 -560
65-38¢
65-630
66-250
67-29
67-784
67-180
67-2034
68-530

H16

64 -42

36-45¢

63-124

63-124%

64-19¢
64-42
65-18
65-42
65-67
66-52

64-19%
64-42¢
65-18
65-42¢

70-15

70-15¢

67-350
67-127
67-180¢
67-219¢

36-147

44 -390
46-230

44-98

19-25¢
32-36¢

19-34
38-15

56-110

65-67¢
66-52
67-37¢
67-127¢
67-194¢
67-221¢

36-147¢

44 -98¢

56-110¢

63-1244
64 -194
64-424
65-18¢
65-42¢
65-67¢

66-52
67-70
67-127¢
67-197¢
67-229¢
70-16

36-199
44-100
57-100

63-124¢
64-334
64-420
65-184
65-424
65-6749
66-52¢
67-70
67-1274
67-201¢
67-247¢
70-16

36-199¢

44-1004

57-100¢

7-278¢
7-278¢

S56-74¢4
63-12:'0
67-178¢
7-278¢

26-35

44-20
46-18

7-304¢

42-47¢

S0-38¢
S52-46¢
54-30¢
55-18¢
57-69¢
60-20¢
62-280¢
64-420

46-260

s1-27¢
53-67¢
54-67¢
S57-27¢
59-43¢
61-45¢
63-165¢
65-660¢
67-194¢
19-11¢
19-24¢
19-40¢
32-173¢0
33-57¢

44-132¢

-31
n

M$MASK
M$MCHI
M$MCLO
M$MSK1
M$POP

58-80
1-8712
1-4¢
1-824¢

36-254¢

44-101

7-278¢
7-278¢

66-60¢
67-700
67-156¢
67-203
68-53

63-994
63-157¢
64-37¢0¢
64-560
65-38¢
65-630
66-25
67-29
67-75¢
67-178¢
67-203¢6
68-53¢0

<R
O ~

1-A00%
1-C42¢
36-254

63-960
63-155¢
64-37
64-56
65-38
65-63
66-25
66-830
67-700
67-177¢
67-2030
68-53

63-718
63-148¢
64-37
64-56
65-38
65-63
66-25

a#&#moouov@

M$LDRO

63-719
63-141¢
64-37
64 -56
65-38
65-63
65-85¢
66-52¢
67-708
67-155¢
67-203
68-43¢
70-160

[

M$IOSE

70-16

)

]

63-718
63-138¢
64-34¢
64-45%
65-18¢
65-47¢
65-72¢
66-52¢
67-70
67-152¢
67-203
68-43

12:59:38 PAGE M-9

TABLE (CREF v04.00

CROSS REFERENCE

1-DEC-83

LATLLLLBER, &

PARAMETER CODING MACRO v04.00

19-13¢
19-28¢
19-42¢
33-40¢
33-66¢

19-3
32-34
46-8
S1-18
53-44
54-60
57-12
59-14
61-31
63-124
65-42

19-3¢
32-34¢

10-8¢
26-130¢

11-51
26-165

11-51¢
26-165¢

53-22¢
54-45¢
56-444
58-34¢
61-9¢
63-30¢
65-18¢

19-13
19-28
19-42
33-40
33-66

44-75¢

67-155

S51-14
53-41
54-57
56-76
58-52
61-20
63-71
65-38

55-17
57-55
59-63
62-25
64 -39
65-72
67-205

S51-31¢
54-29¢
55-17¢
57-55¢
59-63¢
62-250
64-39¢
65-72¢
67-205

44-75

59-66¢
67-35¢

45-10

S51-31

44-730

56-60¢
63-99¢
67-155¢

44-80
50-62¢

47-33

19-340

38-15¢
47-33¢

45-10¢

S51-14¢
53-41¢
S54-57¢
56-760
58-52¢
61-20¢
63-710
65-38¢

56-61
63-100
67-156

S56-61¢
63-100¢
67-156¢

46-8¢

S51-18¢
S2-44¢
S54-600
57-12¢
59-14¢
61-31¢
63-124¢
65-429

19-43¢

41-1¢

48-349

S52-48%
S54-322
55-209¢
57-83#%
59-87#

62-349
64-452
65-85%
67-247
19-14%
19-29¢
19-46%
33-432
33-73¢&

44-77%

56-73&
63-12.i¢
67-177%

19-27#

38-4%
47-82
S51-25¢
S54-172
55-8¢
57-25¢@
59-29¢
62-10%
64-19¢
65-63#%

PARAMETER CODING MACRO v04.00

1-DEC-83

CROSS REFERENCE TABLE (CREF v04.00

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¢
32-173¢
33-50
33-66
33-77
44-73
44 -85¢
44-132

56-60
56-119

M$PUT1

57-86#
58-29
58-91¢
59-86
63-460
63-141
67-35¢
67-156
67-201
1-C81¢
19-8
19-11
19-112
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-1700
32-171
33-43¢0
33-50¢
33-56¢
33-73
33-770

44-71
44-75

65-672
67-203

7-2788

19-10
19-13
19-16¢
19-22
19-29

19-31
19-40
26-84
26-135
32-165

33-40
33-50¢
33-66
33-77¢
44-73
44-89
44-132
S6-608

S56-119¢
57-109
58-29¢

59-26
59-86
63-99
63-141¢
67-86
67-156
67-201
7-278¢
19-8
19-11

19-11¢
19-14
15-16¢
19-17¢
19-22¢
19-29
19-31
19-31¢0

19-40
19-46
26-84¢

26-126
26-155
26-1700
32-171¢
33-43¢0
33-500
33-56¢0
33-730
33-77¢
44-71
44-75¢0

66-25
67-2030
19-4
19-10

19-130
19-17
19-22
19-29

19-31¢

19-40¢
26-84
26-135
32-165
33-40
33-51
33-66
36-36

44-73
44 -89
44-132¢

56-61
57-32
57-109
58-69

59-26
59-86
63-99

63-164
67-86
67-156¢
67-2010
19-4
19-8
19-11
19-11¢
19-14
19-17

)

12:59:38 PAGE M-10

66-25¢
68-43
19-4
19-10¢
19-14
19-17
19-22
19-29
19-33
19-42
26-84¢0

26-135

32-165¢
33-40¢
33-51
33-66%
36-36
44-730
44-89
56-37
56-61
57-32
57-109
58-69
59-26
59-86
63-99¢
63-164
67-86
67-177
67-214
19-4
19-8
19-11
19-11¢
19-14¢

66-52
68-434
19-4

19-11
19-14
19-17
19-22
19-29¢

66 -524
68-53
19-4
19-11
19-14
19-17
19-22¢
19-30

44-75
44-89

56-37
56-61¢
57-32
57-109
58-69¢
59-26
59-86¢
63-100
63-164
67-86
67-177
67-214
19-4

19-8¢
19-11
19-13
19-14¢
19-17
19-17¢
19-24

I16
SEQ 0203

67-29
68-53¢0
19-4
19-11
19-14
19-17
19-24

67-70
69-120
19-8
19-11
19-14
19-17
19-24¢
19-31
19-39¢
19-46
26-940
26-155
32-171
33-45
33-56
33-/5

19-30

19-39
19-46
26-155

44-29
44-77
44-114

44-75
44-89¢

56-37
56-73

57-32
57-109¢
58-83
59-26¢
63-44
63-100
63-164
67-86¢
67-177¢
67-214
19-4
19-8¢
19-11
19-13
19-149
19-17

19-17¢
19-24
19-29¢
19-31
19-33¢
19-40¢
19-46¢
26-94
26-1260
26-155¢
32-165¢
32-173
33-45¢
33-51¢
33-57¢
33-75
36-36

44-710
44-77

56-39
56-74
57-34
58-27
58-83
59-28
63-44
63-121
66-31

63-44

63-164¢

67-88
£7-178¢
67-229

67-178
67-214
19-4
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-135
26-155¢
32-168

32-173¢
33-45¢
33-51¢
33-66
33-75
36-360
44-73
44-77

36-36¢

44-73
44-770

19-4¢
19-8¢
19-11
19-14
19-14¢
19-17
19-21¢
19-28
19-29¢
19-31¢
19-39¢
19-40¢
19-48¢
26-940
26-135
26-170
32-168
33-40
33-50
33-56
33-66
33-75¢
36-36#0
44-73
44-77¢

67-700

67-1274

67-180

67-180¢

19-8

19-8
19-11
19-14
19-17¢
19-280
19-31
19-40
19-48
26-126
26-170
32-1710
33-50
33-57
33-75¢

19-8
19-11
19-14¢
19-21
19-29
19-31

19-8
19-11#

19-11
19-14
19-17
19-28
19-31
19-40
19-464
26-126
26-155¢
32-171
33-45
33-56

33-75
44 -29¢
44-77
44-114¢

56-39
56-74
57-34

58-27
58-83¢
59-28
63-44¢
63-121¢
66-31
67-88
67-197
67-229
19-4¢
19-8¢
19-11¢
19-14
19-14¢
19-17
19-21¢
19-28
19-230
19-31¢
19-39¢
19-40¢
19-48¢
26-940
26-135
26-170
32-168¢
33-40
33-50
33-56
33-664
33-75¢
36-360
44-730
44-77¢

44-71
44-77¢
44-127

19-40

19-484
26-126
26-170
32-173
33-50
33-57
33-77

56-39
56-119
57-340
58-29
58-91
59-66
63-46
63-122
67-35
67-155
67-197¢
67-229
19-4¢
19-10
19-110
19-14
19-140
19-17¢
19-22
19-280

19-31
19-40
26-84
26-1264
26-170
32-173
33-50
33-57¢
33-77

44-710
44-85
44-127¢

56-60
56-119
57-86
58-29
58-91
59-669
63-46
63-141
67-35
67-155¢
67-201
19-8
19-10¢
19-11¢
19-14
19-16
19-17¢
19-22
19-29

19-30

19-30¢
19-312

19-31¢
19-40
19-42
26-84
26-940
26-1350
26-170
32-168¢
33-400
33-50
33-56
33-660

33-77
44-29
44-730
44-85

19-16

19-21
19-29

19-40
19-422
26-84
26-126
26-135¢
26-1702
32-171
33-43
33-50¢
33-56¢
33-73
33-772

44-85%

44-29%
44-75
44-85%

42-41
48-9

M$STAR
M$SVC

52-23
54-27
55-15
57-41
59-49
62-19
64-37
65-67
67-203
1-A33¢
1-C33¢
19-16
19-29
19-42
26-84

27-42
27-118
30-27
33-40
33-66
36-45

42-766
44-71¢
44-98¢
44-132¢
46-230

19-36¢

42-410
48-9¢

S2-23¢
54-27¢
55-15¢
S7-41¢0

59-49¢
62-19¢
64-370
65-67¢
67-203
7-278¢
7-278¢

19-16¢
19-29¢
19-42¢
26-84¢
27-47
27-123
30-31
33-400
33-660
36-45¢

44-10
44-73
44-100
44-165
46-24

26-16

7-304

19-45

42-47
50-38

57-34
57-109

58-29
58-83

59-26

59-28¢
63-44
63-460
63-122
63-164¢
67-86
67-88¢
67-178
67-201¢
67-229¢
68-55¢0
69-220
69-38¢
69-57¢
26-16¢
7-3040

19-45¢

42-47¢

S52-46
54-30
55-18
57-69
60-20
62-28
64-42
66-25
67-203¢

50-38¢
S52-46¢
54-300
55-18¢
57-69¢
60-200
62-28¢
64-420
66-25¢
67-203¢0

19-4
19-17
19-30
19-43
26-94
27-52
27-128
30-35
33-43
33-73
36-145

19-4¢
19-17¢
19-30¢
19-43¢
26-940
27-61
27-135
30-45
33-43¢0
33-73¢
36-145¢

44-10¢
44-730
44-100¢
44-165¢
46-24¢

44-16
44-75
44-101
44-180
46-26

56-39
56-61¢
56-119¢
57-34
57-109¢

44 -89
44-1270

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

56-39
56-61¢
56-119¢
57-34
57-109¢
58-29
58-834¢
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-444¢
69-60¢

26-35

26-35¢

58-29
58-83¢

9-9

26-112

43-8

50-57
S52-49

S54-42

56-23
-15
-32
63-17
64 -56
66-52
68-43
19-8
19-21
19-31

9-9¢
26-112¢
43-80
50-57¢

52-49¢
54-42¢0
56-23¢
58-15¢
60-32¢
53-17¢
64-560
66-52¢
68-430

19-8¢
19-21¢
19-31¢
19-46¢
26-126¢
27-71
27-147

31-22
33-45¢
33-75¢
36-147¢
44-20
44-77
44-102
45-17
47-18¢

44 -89
44-132

56-39
56-73
56-119¢
57-34¢
57-109¢

58-29¢

58-83¢
59-26¢
59-66&
63-440
63-99¢
63-141
66-31
67-86¢
67-155¢
67-197
67-214

[

7-278¢
7-278¢0
7-278¢

56-37¢
56-61
56-119

44 -894%
44-127¢

M$RBRO
MS$RNRO
M$SETS

7-2788

69-200
69-34¢
69-55¢

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-880
67-178
67-201¢0
67-229¢
68-55
69-22
69-38
69-57

44-89
44-1270

(=]

M$RADI

56 -608
56-119
57-32¢
57-109
58-27¢
58-83
58-91¢
59-28¢
59-86¢
63-460
63-121¢
63-164¢
67-35¢
67-88¢
67-177¢
67-201¢
67-229
1-D77¢
69-20
69-34
69-55
1-CS52¢
1-C62¢
1-D32¢
19-36

56-37¢
56-600
56-119
57-32¢
$7-109
S58-27¢
58-83
58-91¢
59-28¢
59-86¢
63-460
63-121¢
63-164¢
67-35¢
67-88¢
67-177¢
67-201¢
67-229

44-89
44-127

SEQ 0204

[

56-37¢&

44 -89
44-127

)

—

44-89
44-127

TABLE (CREF v04.00

J16

12:59:38 PAGE M-11

SERLALERSE

CROSS REFERENCE

1-DEC-83

PARAMETER CODING MACRO v04.00

44-89¢
44-132

44-114
44-1320

44-114

44-1144

44-1140

44-114¢

56-39¢
56-738
57-32
57-340
58-27
58-29¢
58-91
59-26#
59-86
63-440
63-100
63-141¢0
66-310
67-860
67-156
67-197¢
67-214¢

56-37
56-39¢
56-74
57-32
57-86
58-27
58-69
58-91
59-28
59-86
63-46
63-100¢
63-164
67-35
67-88
67-156¢
67-201
67-214¢

56-37
56-390
56-74
57-32
57-86
58-27
58-69
58-91
59-28
59-86
63-46
63-100¢
63-164
67-35
67-88
67-156¢
67-201
67-214¢

56-37
56 -60
56-740
57-32¢
S57-86¢
58-27¢
58-69¢
58-91¢
59-28
59-86¢
63-46
63-121
63-164
67-35
67-88
67-177
67-201
67-229

56-37
56 -60
56-740
57-32¢
57-864
58-27¢
58-69¢
58-91¢
59-28
59-86¢
63-46
63-121

67-214

56-39¢
56-730
57-32
S7-34¢0
58-27
58-29¢
S8-91
59-260
59-86
63-44¢0
63-100
63-1410
66-31¢
67-860
67-156
67-1970
67-2140

68-59¢
69-260
69-47¢

68-61
69-28
69-49

68-61¢
69-28¢
69-499

69-14
69-30
69-51

69-140
69-300
69-51¢

69-18
69-32
69-53

69-18¢
69-32¢
69-53¢

36-18¢
10-8¢
26-130¢

36-145
11-51
26-165

36-145¢
11-51¢
26-165¢

19-3
32-34

36-209¢
19-30
32-340

44-39

44 -39%

56-39
56-73
56-119¢
57-340
57-109¢
58-29¢
58-83¢
59-26¢0
59-66¢
63-440
63-99¢
63-141
66-310
67-86¢
67-155¢

67-197

44 -84

S50-62¢
53-22¢0
54-45¢
56-440
58-34¢
61-9¢
63-30¢
65-18¢
67-29¢
68-53¢

19-10¢
19-22¢
19-33¢
19-48¢
26-135¢
27-87
27-155
32-165¢
33-50¢
33-77¢
36-199¢

44-25
44-85
44-103

46-10
47-330

45-10

S51-14
53-41
54-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-10¢
48-19¢

45-10¢

S1-14¢
53-41¢
S54-57¢
S56-76¢
58-52¢
61-200
63-716
65-38¢
67-700
69-12¢
19-11¢
19-24¢
19-34¢
19-49¢
26-155¢
27-95
27-165
32-168¢
33-51¢
36-18¢
36-209¢
44-29
44-89
44-114
46-18
48-34

46-8

S1-18
53-44
54-60
57-12
S59-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-254

44-29¢
44-89¢
44-114¢
46-18¢
48-34¢

19-27
38-4

46-8¢
S51-18¢

47-8

19-13¢

19-14
19-28
19-40
26-35
27-27
27-108
30-19
32-173
33-57
36-36

53-440
54-60¢0
57-12¢
59-14¢
61-31¢
63-124¢
65-42¢
67-127¢

19-25¢
19-39¢
26-16¢
26-170¢
27-103
27-203

32-171¢

33-56¢
36-20¢
36-254¢
44-39

44-91
44-127
46-21
50-62

S51-25
S54-17
55-8
57-25
59-29
62-10
64-19
65-63
67-180

42-619
44-39¢
44-91¢
44-127¢
46-219

S50-62¢

63-164
67-35¢
67-88
67-177

67-201
67-229

19-272

38-42
47-8%
S51-25¢
S54-17¢
55-8#
57-25¢
59-29¢
62-10¢
64-19¢
65-63¢
67-180¢

19-144
19-28¢
19-40#
26-35%
27-35
27-113
30-23

32-173%
33-572
36-36%
42-76
44-71

44-98
44-132
46-23

50-67

PARAMETER CODING MACRO VO4.00 1-DEC-83

CROSS REFERENCE TABLE (CREF v04.00

M$TLAB

S50-67¢
S52-46@
53-440
54-42¢
54-62¢
56-264&
56-73¢
57-15
57-55
57-110¢
58-52¢
59-17
59-63
60-44¢
61-45¢
62-38¢
63-960
63-141¢
64 -39
65-41
65-85
67-37
67-152
67-197
67-229
1-C29¢
19-28¢
26-35¢
27-71¢
27-147¢
32-165¢
33-77¢

44-25¢
44-103¢
48-340

MSTSTL

53-41¢
54-59¢
56-600
57-32¢
58-29¢
59-28¢
61-24¢0
$3-300
63-148¢
65-38¢
67-350
67-194¢6
1-C21¢
19-16
19-29
19-42
26-84
27-27¢
27-61¢
27-92
27-108¢

50-68
52-48
53-60
54-44
S54-67
56-37
56-74
57-15¢
57-55¢
58-18
58-66

50-68¢
S2-482
53-604¢
54-44¢
S4-67¢
56-37¢
56-740
57-18
57-69
58-18¢
58-66¢
59-20
59-66
60-52¢
62-19¢
63-30¢
63-99¢
63-155

64-42
65-42

66-31
67-70
67-155
67-201
67-247
19-40
19-30¢
26-94¢
27-87¢
27-155¢
32-171¢
36-200
44-390
44-127¢
50-67¢

53-44¢
S54-62¢
56-73¢
S57-41¢
S58-46¢
59-43¢
61-31¢
63-35¢
63-157¢
65-42¢
67-700
67-201¢
19-4
19-17
19-30
19-43
26-94
27-35¢
27-66
27-92¢
27-113¢

)

12:59:38 PAGE M-12

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

51-184
52-49¢
53-674¢
54-45¢
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¢

64-420
65-42¢0
66-31¢0
67-700
67-155¢
67-201¢
67-247¢

63-155¢

19-8¢
19-31¢

26-126¢
27-92¢
27-160¢

32-173¢
36-36¢

44-710
44-132¢

S50-68¢
53-60¢
S54-67¢
56-74¢
57-55¢
58-52¢
59-49¢
61-35¢
63-440
63-164¢
65-47¢
67-75¢
67-203¢
19-4¢
19-17¢
12-30¢
19-43¢
26-94¢
27-35¢
27-660
27-95
27-113¢

IK16
SEQ 0205

64-45
65-47
66-33
67-75
67-156
67-203

51-20
52-64
54-27
54-47
55-17
56-44
56-89
57-25¢
57-83¢
58-27
58-80
59-26¢
59-77¢
61-24
62-25¢
63-35
63-121
63-164
64-450
65-479
66-33¢
67-75¢0
67-156¢
67-203¢

51-204¢
52-64¢
S54-270
54-470
55-17¢
56-440
56-89¢
57-27
57-86
58-27¢
58-80¢
59-28
59-79
61-25
62-28
63-350
63-121¢
63-164¢
64-56
65-63
66-52
67-78
67-177
67-205

54-29¢
S54-57¢
55-18¢
56-57¢
56-1100
57-32
57-100
58-29¢
58-83¢
59-29
59-86¢
61-31
62-33
63-440
63-122¢
63-165¢
64-58
65-66
66-60
67-86
67-178
67-209

S1-27
53-41
54-30
54 -59
55-20
56-60
56-112
57-32¢
57-1000
58-34
58-84
59-29¢
59-87
61-31¢
62-34
63-46
63-124
64-33
64-58¢
65-6649
66-60¢
67-86¢
67-178¢
67-214

19-10¢
19-33¢
26-135¢
27-95¢
27-165¢
33-400
36-45¢

19-11¢
19-34¢
26-1550
27-98¢
27-170¢
33-43¢0
36-145¢

19-13¢
19-39¢
26-1700
27-103¢
27-203¢
33-45¢
36-147¢

19-16¢
19-42¢
27-35¢
27-113¢
30-23¢
33-51¢
36-209¢

19-17¢
19-43¢
27-426
27-118¢
30-27¢
33-56¢
36-254¢

63-157

44-730
44-165¢
S51-18¢
53-67¢

55-15¢
56-76¢
57-69¢
58-66¢
59-63¢
61-36¢
63-46¢
63-165¢
65-630
67-78¢
67-205¢
19-8
19-21
19-31
19-46
26-126
27-42
27 -660
27-95¢
27-118

44-756
44-180¢
51-200

S54-270
55-17¢
56-89¢
57-83¢
58-69¢
59-66¢
61-45¢0
63-71¢
64-330
65-660
67-860
67-209¢
19-8¢
19-21¢
19-31¢
19-46¢
26-1260
27-42¢
27-71
27-95¢
27-118¢

44-770
45-17¢
S51-25¢

54-29¢
55-18¢
56-110¢
57-86¢
S58-80¢
59-77¢
62-19¢
63-96¢
64-34¢
65-670
67-88¢
67-214¢
19-10
19-22
19-33
19-48
26-135
27-42¢
27-71¢
27-98
27-118¢

51-254
52-710

44-89¢
46-18¢

S51-31¢
54-32¢0
55-25¢
56-119¢
57-102¢
S58-84¢
59-86¢
62-25¢
63-100¢
64-39¢0
65-85¢
67-152¢
67-221¢
19-11
19-24
19-34

19-49
26-155
27-47¢
27-76
27-98¢
27-123¢

44-91¢
46-21¢
S52-46¢

S54-42¢
56-264
56-1200
57-109¢
58-91¢
59-87¢
62-28¢
63-121¢0
64-42¢
66-31¢
67-155¢
67-229¢
19-11¢
19-24¢
19-34¢
19-49¢
26-155¢
27-47¢
27-764
27-103
27-123¢

51-27¢
53-41¢
54-300
54-59¢
55-20¢
56-60¢
56-119
57-34
57-102
58-340
58-91

67-180
67-214¢

51-31
53-43
S54-32
54-60
55-25
56-61
56-119¢
S57-34¢
57-109
58-46
58-91¢
59-43¢
60-32
61-36
62-35
63-71
63-138
64-340
64-630
65-670
66-83¢
67-88¢
67-180¢
67-219

S52-46
53-44
54-42
54-62
56-26
56-73
56-120¢
57-41¢
57-110
58-52
58-92¢
59-49¢
60-44
61-45
62-38
63-96
63-141
64-37¢
65-38¢
65-72¢
67-35¢0
67-1274
67-194¢
67-221

19-21¢
19-460
27-470
27-123¢
30-310
33-57¢

19-22¢
19-48¢
27-52¢
27-128¢
30-35¢
33-664

19-25¢
26-16%
27-669
27-140¢
31-22¢
33-75¢

59-43
59-87¢
61-35

62-34¢0
63-46¢
63-124¢
64 -34
64-63
65-67
66-83

67-88

42-760
44-980
46-230

52-480
54-440
56-37¢
57-15¢
57-1100
58-92¢
60-320
62-330
63-1220
64-450
66-330

67-1560
67-247¢
19-13
19-25
19-39
26-16
26-170
27-52
27-760
27-103¢
27-128

44-100
44-100¢
46-249

52-49¢

S4-45¢

44 -20¢
44-102¢

47-33%

S2-71#
S54-57¢
56-57¢
S57-27¢
58-27#8
59-26¢
61-20@
62-38¢
63-1419
64-639
66-83¢

56-39¢
57-18¢
58-18¢
59-17¢
60-44¢
62-340
63-124¢
64-569
66-52¢
67-177¢

67-180¢

19-13¢
19-25¢
19-39¢
26-169
26-170¢
27-52¢
27-87
27-103¢
27-128¢

19-14%
19-28¢
19-404
26-35¢
27-27#
27-61
27-87#%
27-108#
27-135

PARAMETER CODING MACRO v04.00

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¢
59-49¢
60-32
61-31¢
62-25¢
63-32

M$WORD

63-100
63-148¢
64 -340
64-630
65-67¢
66-839
67-880
67-180¢
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

48-19

S58-21¢
61-24¢
63-35¢
67-37¢
68-59

! -DEC 383

TABLE (CREF VO« .00

27-135¢
27-160¢
30-23
31-22
33-43¢
33-73¢
36-145¢

44-16¢

44-75¢

44-101¢

44-180¢
46 -26¢

51-20¢
S52-64¢
S54-27¢
S4-47¢
55-17¢
56-440
56-89¢
57-25
57-83
S58-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-2780

8-8
27-35
27-52¢
27-76
27-95¢
27-113
27-128¢
27-150
27-165¢
30-23
30-35¢
48-19¢
58-84
61-35
63-148
67-780
68-59¢

27-140
27-160¢
30-23¢
31-22¢
33-45
33-75
36-147
44-20

44-77
44-102
45-17
47-33

S51-25
S52-71
S54-29
54-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-38¢
65-720
67-35¢
67-127¢
67-194¢
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-260
S58-84
61-35
63-148
67-209
68-61

12:59:38 PAGE M-13

27-1400
27-165
30-23¢
31-22¢
33-45¢0
33-75¢
36-147¢

44-200
44-770
44-102¢
45-17¢
47-330

S51-25¢
S52-71¢
54-29¢
54-57¢
55-18¢
56-57¢
56-110¢
57-27
57-86
58-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-760
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¢

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-27¢
57-86¢
58-27
58-80
59-20¢
59-66¢
60-52
61-36
62-33¢
63-44
63-122
63-157¢
64-39¢
65-41¢
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
58-84¢
61-35¢
63-148¢
67-209
69-14

27-147
27-165¢
30-27¢
32-1650
33-50¢
33-77¢
36-199¢

44-25¢0
44 -854
44-103¢
46-10¢

48-340
S51-27¢
53-41¢
54-30¢
54-59¢
55-20¢
56-60¢
56-112¢
57-32
57-100
58-27¢
58-80¢
59-26
59-77
60-52¢
61-36¢0
62-33¢
63-44¢0
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-61¢
27-87

27-98¢
27-118
27-135¢
27-155
27-1700
30-27
31-22¢
56-112

L16
SEQ 0206
27-147¢
27-170
30-27¢
32-168
33-51
36-18
36-209

44-29
44-89
44-114
46-18

50-62
51-31
53-43
54-32
54 -60
55-25
56-61
56-112¢
57-32¢
57-100¢
58-29
58-83
59-2690
59-77¢
61-20
61-45

62-34
63-46
63-124
63-164

64-420
65-420
66-31¢
67-700
67-155¢
67-201¢
67-221¢
8-8
8-8
27-42
27-66

27-1470
27-170¢
30-31
32-168¢
33-51¢
36-18¢
36-209¢

44-290
44-890
44-1144
46-18¢

50-62¢
S51-31¢
53-430
54-32¢0
54-600
55-25¢
56-61¢
56-119
57-34
57-102
58-29¢
58-83¢
59-28
59-79
61-20¢
61-45¢
62-34¢
63-460
63-124¢
63-164¢
64-45
65-47
66-33
67-75
67-156
67-203
67-229
8-8

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-150¢
27-203
30-31¢
32-1714
33-564
36-200
36-254¢

44 -390
44-91¢
44-127¢
46-21¢

50-67¢
S52-46¢
53-440
54-420
54-62¢
56-26¢
56-73¢
56-120
57-41
57-102¢
58-340
S58-84¢
59-29
59-79¢
61-24¢
62-19¢
62-350
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-66¢
27-92
27-103¢
27-123
27-140¢
27-160
27-203¢
30-31

44-103¢
S57-102
59-79

67-221
69-16¢

62-33
64-33
67-221¢
69-18¢

27-1500
27-203¢
30-35
32-173
33-57
36-36

42-76
44-71
44-98
44-132
46-23

27-155
27-203¢
30-35¢
32-173¢
33-57¢
36-36¢
42-760
44-71¢
44-98¢
44-132¢
46-23¢

50-68
52-48
53-60
54-44
54-67
56-37
56-74
56-120¢
S57-41¢0
57-109
58-46
58-84¢
59-29¢
59-86
61-24¢
62-24
62-38
63-96
63-141
64-33
64-560
65-63¢
66-52¢
67-78¢
67-177¢
67-205¢
67-247¢
8-8
27-27
27-47
27-71
27-92
27-108
27-123
27-147
27-160
30-19
30-31

50-68¢
S52-48¢
53-60¢
S54-440
S54-67¢
56-37¢
56-740
57-15
57-55
57-109¢
58-46¢
58-91
59-43
59-86¢
61-25
62-244
62-380
63-96¢
63-141¢
64-330
64-58
65-66
66-60
67-86
67-178
67-209

57-102

57-102
61-24
62-33
64-33
68-55¢
69-20¢

44-165¢
59-79¢
62-33

64-33
68-55
69-20

8-8
27-27
27-47¢
27-71
27-92¢
27-108
27-123¢
27-147
27-160¢
30-19
30-31¢

46-24¢

27-155¢
30-19
30-35¢
33-40
33-66
36-45

45-10
44-73
44-100
44-165
46-24
S51-18

S52-49
53-67
54-45
55-15
56-39
56-76
57-15¢
57-55¢
57-110
58-52
58-91¢
59-43¢
59-87
61-25¢
62-24¢
63-30
63-99
63-148
64-330
64-58¢
65-669
66-60¢
67-869
67-178¢
67-209¢
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-66¢
36-45¢

44-100
44-730
44-100¢
44-165¢
46-24¢

S51-18¢
S2-494
53-67¢
54-45¢
55-15¢
56-39¢

S6-764
57-18
57-69
57-110¢
58-52¢
58-92
59-49
59-87¢
61-31

62-25
63-30¢
63-99%
63-148%
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-147%
27-165
30-19¢
30-35

47-184

58-18¢
61-24

62-35¢
66-33¢
68-57¢
69-22¢

PARAMETER CODING MACRO v04.00

1-DEC-83

CROSS REFERENCE TABLE (CREF v04.00

M$XFER
MANUAL
MEMORY

OPEN

POINTE
POP
PRINTB
PRINTF

PRINTS
PRINTX

PUSH
READBU

READEF
REPORT
RESREG

RFLAGS

SAV.RH
SAVREG

SETPRI
SETVEC
SLASH
STARS
SsvC

XFER
XFERF
XFERT
4

69-240
69-404
69-57¢

69-26

27-205

56-74
67-178

33-82
19-4
32-165
33-77
57-86
67-197

7-2358

27-15

19-10
33-18

7-35¢

56-115
38-378
63-135

69-24
69-40
69-57
1-382¢
1-;62¢
1-;660
1-;71¢
1-;760
7-246¢

1-<39¢
1-<79¢
33-73
S6-73
67-177
1-=19¢
1-=59¢
1-=99¢
1->03¢
7-869

63-93
1->08¢

7-278¢
7-278¢
7-278¢
7-2780
7-278¢
7-2788

7-278¢
33-75

7-278¢
7-278¢

7-2780
7-278¢

7-48¢

63-135

7-22¢

63-93
1->13¢
1->18¢
S7-34
67-201
1->24¢
1->38¢
55-6
62-3
1->52¢
1-812¢
59-17¢
1-316¢
1-8320¢

M1l6
SEQ 0207

69-264
69-444¢
69-59¢
69-164

69-28
69-47
69-60
69-40

69-284
69-474
69-604
69-404

69-30
69-49
70-16
69-59

19-8
32-168
44-29
58-69

19-24
32-171

44-71
59-66

19-28
32-173
44-73
63-99

19-29
33-40

19-11

19-13

19-14

19-16

19-17

19-21

19-22

19-30

19-31

57-105
56-54
63-156

63-160
57-52
67-220

67-225
57-80

57-101

58-43

58-63

58-81

59-40

59-60

56-86
67-149
56-54
63-156
36-20
26-84
58-27
67-229

57-80

57-101

58-43

58-63

58-81

59-40

59-60

59-78

57-52
67-220
36-199
26-135
58-91

57-80

57-101

58-43

58-63

58-81

59-40

59-60

36-254
26-155
59-26

46-10

56-110

57-100

58-80
56-37
63-46

59-77
56-39
63-164

63-155
56-119

S51-3
57-10
64-17

S51-12
58-3
65-3

52-3
58-13
65-16

S52-21
59-3
66-3

53-3
59-12
66-23

53-20
67-3

54-3
60-18
67-27

54-15
61-3

44-165¢

46-24¢

47-184

48-19¢

56-26¢

57-15¢

57-18¢

58-18¢

69-44
69-59
69-16

69-304
69-494
70-164
69-59¢

69-32
69-51

69-324
69-514

69-34
69-53

69-340
69-534

69-38
69-55

69-389
69-554

19-39

19-40
33-50

19-42
33-51

19-46
33-56

19-48
33-57
56-60
67-155

33-66
56-61
67-156

7-310

44-16

7-278¢
56-14
63-3

7-278
42-61¢

7-2780
7-278¢

)

12:59:38 PAGE M-14

62-35¢
69-16

67-374

44-75

63-100

67-784

19-33

33-43
44-77

63-121

26-170
59-28

33-45

44-85

63-122

59-86

44-114

63-141

44-89

63-44

44-127

66-31

44-132

67-35

67-86