Digital PDFs

AH-9182D-MC

November 1979

216 pages

Original

11MB

view download

OCR Version

10MB

view download

Document:	CZRJAD0 RP04-5-6 RP04-5-6 RD-WT NOV 1979 bw
Order Number:	AH-9182D-MC
Revision:	000
Pages:	216
Original Filename:	CZRJAD0__RP04-5-6__RP04-5-6_RD-WT__AH-9182D-MC__NOV_1979_bw.pdf

OCR Text

RP04/5/6

CZRIADO

cominicns
FICHE Y OF /

RSN

MADE

UISA

RP04/5/6

CZRIADO

L
FICHE 2 OF 2

"MADE IN USA

(IRJAD RPOL/S5/6 MECHAN]CAL AND READ/WRITE

CIRYAD . PV

28-MAR-79 11:28

TEST

MACYIY

30AC1092)

1
8
24=MAY=79

13:959

PAGE

CATION

PRODUCT

(ODE:

AC-91800-M(C

PRODUCT

NAME:

CZRJADO RPO4/S5/6 MECHANICAL

AND READ-WRITE

TEST

1979

DATE:

MAY,

MAINTAINER:

DIAGNOSTIC

AUTHOR:

ENGINEERING

HESS

THE INFORMATION IN THIS DOCUMENT 1S SUBJECT TO C(HANGE
W] THOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A

COMM]TMENT BY DIGITAL EQUIPMENT CORPORATION.
DIGITAL
EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY
ERRORS THAT MAY

APPEAR

IN THIS DOCUMENT.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
FOR THE USE OR RELIABILITY OF TS SOFTWARE ON EQUIPMENT
THAT

]S NOT

SUPPLIED BY DIGITAL.

(C)

1976,1979 DIGITAL EQUIPMENT CORP., MAYNARD, MASS.

FOLLOWING ARE

DIGITAL
DEC

TRADEMARKS OF

PDP
DECUS

DIGITAL tQUIPMENT

UNIBUS
DECTAPE

- & .

Sta 0001

REM 3

IDENTITIF

(ORPORATION

MASSBUS

C(IRJAD RPO&L/S/6 MECHANICAL AND READ/WRITE TEST
CIRJAD.PIY
2B8-MAR-79 11:28

MACYT1

30A(1052)

1
c
24-MAY=79

CONTENTS
ABSTRACT

REQUIREMENTS

2.1
2.2

2.3
2.4

EQU]PMENT
PRELIMINARY PROGRAMS

MEDIA

PROGRAMMABLE DRIVES

LOADING PROCEDURE
STARTING PROCEDURE
6.1
STARTING ADDRESSES
4.2
CPERATOR ACTION
6.3
PROGRAM ACTION
4£.3.1
(ONTROL SWIT(H SELECTION

4.3.2
4.3.3

RHI1 - RH70 ADDRESS SELECTION
DRIVE AND PARAMETER SELECTION

OPERATING PROCEDURE
5.1
OPERATIONAL SWITCH SETTINGS
5.2
CONTROL SWITCH SETTINGS
ERRORS
6.1
6.2

ERROR TYPES
ERROR RECOVERY

RESTRICTIONS
MISCELLANEOUS

8.1
8.2

EXECUTION TIME
STACK POINTER

8.4

END OF

8.3

TIMING TEST (TESTS 12 - 15) PRINTQUTS
TEST

PROGRAM DESCRIPTION

10.

PROGRAM LISTING

13:59

PAGE 6

SEQ 0002

CIRJAD RPOL/S/76 MECHANICAL AND READ/WRITE TEST

CIRJAD.PWY

2B-MAR-79 11:28
1.

MACY11 30A(1052)

24-MAY-79

13:59

PAGE 7

ABSTRA(Y

THIS PROGRAM C(ONTAINS A SERIES OF TESTS TMAT WILL VERIFY THAT
THE DISK IS CAPABLE OF PERFORMING SEEKS, THAT THE ACCESS TIMES
ARE WITHIN TOLERANCE, THAT THE TRACK AND SECTOR ADDRESSING
CIRCUITRY OPERATES PROPERLY, AND THAT THE DATA STORAGE AND

RETRIEVAL

2.1

CAPABILITIES

ARE

FUNCTIONING.

EQU]IPMENT
PDP-11 PROCESSOR
16K MEMORY
TELETYPE
PROGRAM LOADING DEVICE
KWll=L OR KW11=P (THE KW11-P

RH11 OR RH70 WITH 1

2.2

]S REQUIRED FOR

- 8 RP0O4/5/6 DISK DRIVES

THE

.
TIMING TESTS)

PRELIMINARY PROGRAMS

RP0O4/5/6 DISKLESS CONTROLLER TEST
PART 1 (MAINDEC-11-DZRJG)

PART 2

(MAINDEC-'1-DIRuH)

RP0O4/5/6 FUNCTIONAL CONTROLLER TEST
PART 1 (MAINDEC-11-DZRyI)
PART 2 (MAINDEC-11-DZRJJ)

2.3

MEDIA

THE PROGRAM REQUIRES THAT EACH DRIVE

DISK PACK.

TO BE

TESTEC HAS A FORMATTED

THE PACK MAY BE FORMATTED IN EITHER 16-BI1T OR 18-BI7

MODE, DEPENDING ON THE TESTING REQUIREMENTS.

NOTE THAT THE PROGRAM

WILL NOT TEST A MIXTURE OF DRIVES WITH BOTH 16 AND 18 BIT MODE
PACKS.,

2.4

PROGRAMMABLE DRIVES

(DUAL PORT ENABLED)

INADVERTEN!
CORRUPTION OF D!5K PACKS IN PROGRAMMABLE DRIVES.
THIS IS A PDTENTIAL HAZARD IN RUNNING THIS PROGRAM IN A
MULTIPRCCESSOR SYSTEM.
FOR THE STANDARD STARTING ADDRESS OF 200
THE PROGRAM HAS BEEN MODIFIED TO PREVENT INITIALIZING DRIVES
FOUND TO BE PROGRAMMABLE.
THIS MODIFICATION APPLIES
ONLY TO THE FIELD ENVIRONMENT (XXDP CHAIN, STANDALONE)
FOR THE
WHERE LOCATION 42 DOES NOT EQUAL LOCATION 46.
THIS REV INCORPORATLS A SAFEGUARD TO PREVENT

MANUFACTURING ENVIRONMENT (WHERE LOCATION 4¢ EQUALS LOCATION &46) PROGRAMMABLE
DRIVES WiLL NOT BE INHIBITED. If THE OPERATOR DESIRES TO RUN THIS PROGRAM USING

PROGRAMMABLE DRIVES IN A FIELD ENVIRONMENT USE STARTING ADDRESS 220, WHERE 220 IS

SEQ 0003

CIRJAD RPO&/S5/6 MECHANICAL AND READ/WRITE
CIRJAD.PYI
28-MAR=-79 11:28
THE
SEE

TEST

MACYI1

30A(1052)

24-MAY=79

13:59

PAGE 8

SAME AS 200 W]THOUT INHIBITING PROGRAMMABLE DRIVES.
SECTION 4.1 FOR A SUMMARY OF ALL STARTING ADDRFSSES.

LOADING PROCEDURE
1t

PROGRAM MAY

LOADED

FROM PAPER

TAPE

USING

THE

ABSOLUTE

LOADER

OR 1T MAY BE LOADED FROM THE APPROPRIATE 'XXDP' MEDIA USING THE
ASSOCAITED LOADER.
THE PROGRAM MAY BE INCLUDED IN AN 'XXDP' (HAIN,

THE PROGRAM [S BLING RUN ON A PROCESSOR WITH 16K,

LOADER WILL NOT Bt PRESERVED.
THE PROGRAM MUST
WwlTH 20k OR MORE TO PRESERVE THE 'XXDP' LOADER.
WiLL

PRESERVED

IN A

16K

SYSTEM,

HOWEVER.

THE

°xxDP’

BE RUN ON A SYSTEM
THE 'ABSOLUTE' LOADER

STARTING PROCEDURE

6. 1

STARTING ADDRESSES

200
204
210
214

NORMAL STARTING ADDRESS (INHIBIT PROGRAMMABLE DRIVES-SEE SECTION 2.4)
SELECT OPERATING PARAMETERS (INHIBIT PROGRAMMABLE DRIVES)
SELECT RH11-RH70 ADDRESSES (DO NOT INHIBIT PROGRAMMABLE DRIVES)
(OMBINATION OF 204 AND 210 (DO NOT INHIBIT PROGRAMMAGBLE DRIVES)

NOTE:

STARTING ADDRESSES 210 AND 214 ARE

220
2264

SAME AS 200 BUT WITH NO INHIBITIONS
SAME AS 204 BUT WITH NO INHIBITIONS

NN ~

OPERATOR

AVAILABLE WHEN THE

INITIALLY STARTED; THESE STARTING ADDRESSES ARE
ADDRESSES 200 OR 204 RESPECTIVELY ON RESTARTS,

ACTION

LOAD PROGRAM INTO MEMORY (SEE SECTION 3.)
LOAD A FORMATTED PACK INTO DRIVE(S) TO BE

BRING DRIVE(S)

TESTED
TO ONLINE STATE, WRITE ENABLED,

)

]

~NO N

AND LOCKED ON PORT.

PROGRAM IS
TREATED AS

LOAD ADDRESS 200.
SET SWITCHES (SEE SECTION 5.)
PRESS

START.

THE PROGRAM WILL TYPEOUT THE STATUS OF THE DRIVES ATTA(CHED 10
THE SELECTED MASSBUS SUBSYSTEM.
10 INHWIBIT THIS TYPEOUT, DO NO?!
RESTART THE PROGRAM FROM ANY OF THE STARTING ADDRESSES; INSTEAD
TYPE A "(ONTROL (' ON THE KEYBOARD TO RETURN THE PROGRAM 10
COMMAND ENTRY MODE.

PROGRAM A(TION

IN AN EFFORT 1O ALLOW (ONVERSATION wllw A PROGRAM FOR THE
CONTROLLING 'T1S OPERATION AND PARAMETERS THE FOLLOWING

PURPOSE OF

(ONSTRUCTIONS HAVE

BEEN ADOPTED.

SEQ 0004

CIRJAD RPOL/S/6 MECHANICAL AND READ/WRITE
(IRJAD.P1Y
/8-MAR-79 11:28
NOTET:
NOTEZ2:

TEST

MACYIY

IN ALL EXAMPLES BRACKETS
NOT TYPED BY THE uUSER.
THE

<CR>

O<(R>

CARRRIAGE
AND

WILL

ECHOED

STATEMENT

END OF
THE

THE

</>

THE

(LARITY

USER

"CARRYAGE

A LINE

(LEGAL

STRING

CHANGES

INDICATED BY

RETURN-LINE

FEED'.

WHEN

TYPED

THE

ON ALL LINES)

TELLS

INTERPRETER

TO THE

(PS])

CURRENT

THIS

PARAMETER

INDICATE
TO SIGNAL

(OMMA
THE

COMMA

1S USED

AND

TEST

NUMBERS.

SEPARATOR BETWEEN DRIVE

NUMBERS

SLASH

A MODIFICATION

THE

INDICATOR:

SLASH

PROGRAM WILL OPEN THAT

MODIFICATION.

FOLLOWS

TEST

FOR PARAMETER

CONTROL=-U

DELETE

LINE.

(CTRL)

<\>

AND ARE

"PERIOD PERIOD' TERMINATOR IS TYPED 10
END OF TEST PARAMETER MODIFICATION AND
START OFfF TEST EXECUTION.

NUMBER,

PAGE 9

PERIOD PERIOD
THE
THE

<, DO<R>

TERMINATOR:

PARAMETER

T?E END OF
STRING.
OR>

USED FOR

13:59

PER]OD

ARE

RETURN TYPED BY

F
24=-MAY-79

30A(1092)

THE PRESENT

INPUT

STRING AND START

A Ntw

TYPED BY DEPRESSING THE ''CONTROL kEY'
AND THEN STRIKING THE ‘'U''.

RUBOUT

DELETE THE LAST (HARACTER FROM THE INPUYT STRING.
TYPED BY STRIKING THE "'RUBOUT KEY. WHICH WiLL
BE ECHOED BY A BACKSLASH (\) FOLLOWED BY THE
(HARACTER DELETED.

‘. 3. 1

(ONTROL SWITCH SELECTION

STARTING THE PROGRAM AT ANY Of THE POSSIBLE STARTING ADDRESSES
WITH SW<07>=1 WiLL RESULT IN ENTERING THE '‘CONTROL SwIT(H
SETTING'' MODE. THUS, ALLOWING THE OPERATOR TO SPECIFY Tt
DESIRED STATE OF °'C.SWR''.
CONTROL SWITCH SELECTION EXAMPLES:

EXAMPLE #]

sea 0005

CIRJAD RPOL/S5/6 MECHANICAL AND READ/WRITE
(IRJAD.PIY
28-MAR-79 11:28

TEST

MACY11

30A(1052)

1
6
24=-MAY=-79

13:59

PAGE

SET Sw<07>=0

(.SWR=000000 7 400..

EXAMPLE #2
SET

Sw<07>:=0

(.SwR-000000 s

220.

C.SWR 00000C 7 220..
¢.%3.2

RHI1

= RH70 ADDRESS

SELECTION

STARTING THE PROGRAM AT 200 WwILL RESULT IN AUTOMATI(
SELECY OF THE DSFAULT VALUES OF BUS ADDRESS (RP(S1),

VECTOR ADDRESS,
IF

THE

DEFAULT

AND PRIORITY LEVEL OF

VAULE

THE RH11-RM70.

THE BUS ADDRESS DOES NOT

(TIMES OUT) WHEN ADCDRESSED,
AFTER THE ERROR 1S REPORTED
WitlL BE TAKEN:

AN ERROR 1S REPORTED.
ONE OF TWO (OURSES OF

THERE

RETURN

THERE

ISN'T

A MONITOR

A MONITOR == ASK

THE

RESPOND
ACTION

MONITOR

FOR NEW ADDRESSES

STARTING THE PROGRAM AT 210 OR 214 ALLOWS THE OPERATIOR
10 C(HANGE THE ADDRESS OF THE RH11 OR RH70 AND THE VECTOR

ADDRESS.

THE

PROGRAM ALLOWS

THE

ADDRESSES

TO BE

C(HANGED ON WHEN THE

PROGRAM IS FIRST STARTED.
STARTING ADDRESSES 210(BY AND 214(8)
ARE TREATED AS ADDRESSES 200(8) OR 204(8) RESPECTIVELY.
ADDRESS

SELECTION EXAMPLES

EXAMPLE #1
RP(S1=176700 7

177200.

EXAMPLE #2
RP(S1=176700 /7

176300<(R>

RMVE(-254 7 260<(R>
RMPR]IO=S5 / 6.

EXAMPLE #3
RP(S1=176700<CR>
RHVE(=254 / 26C.
EXAMPLE

RHI11/RPO& FAILED TO RESPOND TO ADDRESSING
RP(ST

176300

ERR P(

XXXXXX

RP(CS1=176300 7

176700,

Sta 0006

CIRJAD RPO&L/S/6 MECHANICAL AND READ/WRITE
(IRJAD.PVI
28-MAR-79 1°:28

TEST

MACY1Y

30A(1052)

LR
24-MAY-79

13:59

PAGE

EXAMPLE #5
RP(S1=176700 7
RHVE(=254<(R>
RHPR10=5<(R>
RP(S1=176300.
6.3.3%

DRIVE

1776\67\6300<(R>

AND PARAMETER SELECTION

STARTING THE
SELECTION OF

PROGRAM AT 200 OR 210 WILL RESULT IN AUTOMATIC
THE DRIVES TO TEST AND THE TESTS TO RUN.

STARTING THE PROGRAM AT

204 OR 214 ALLOWS THE OPERATOR

TO SELECT THE DRIVE(S) TO BE
AND THE PARAMETERS TO USE.

TESTED,

THE

TESTS

TO Bt

EXECUTED,

EACH TEST CONTAINS TWO SETS OF CYLINDER LIMIT PARAMETERS.
PARAMETERS
‘LC' AND "FC' ARE USED BY RPO4/S DRIVES AND PARAMETERS ‘'LC'' AND
'FC''

ARE

USED BY

RPO6 DRIVES.

THE

PROGRAM DETERMINES WHICH DRIVE

1S BEING TESTED AND SELECTS THE CORRECT SET OF CYLINDER LIMIT
VALUES.
IF THE PROGRAM 1S BEING USED TO TEST A SUBSYSTEM WHICH
CONTAINS BOTH RP0O4/5 AND RPO6 DRIVES, THE OPERATOR MUST C(HANGE
BOTH SETS OF CYLINDER LIMITS [F THE TESTS ARE TO BE MODIFIED FOR
ALL

6.3.3.1

DRIVES

DRIVE
THE

TESTED.

AND PARAMETER SELECTION DESCRIPTION

FOLLOWING

1S A

TERMS USED BY

THE

PSI.

REPEATS

LAST CYLINDER ADDRESS FOR RPO&4/S5'S

“FC'
LC''Y
[
T
T
T

LSt

FIRST

(ITERATIONS)

CYLINDER ADDRESS FOR RP04/S5'S

FIRST CYLINDER ADDRESS FOR RP0O6'S
LAST CYLINDER ADDRESS FOR RPO6'S
INCREMENT CYLINDER
FIRST TRACK ADDRESS
LAST TRACK ADDRESS
INCREMENT TRACK

FIRST SECTOR ADDRESS
LAST

SECTOR ADDRESS

"PAT""

PATTERN

ALL SEEX TESTS (TESTS 0 - 10)

«''D"
g

THE DATA TEST (TEST 20)
THE EXERCISER (TEST 21)

“WDX'"
T
AT

SPECIAL

VRO

NOTE :

TABLE

(USED FOR DATA TEST)

WORD OF PATTERN O WHERE X

IS 1

10 16

ALL TIMING TESTS (TESTS 12 - 15)
ALL ADDRESS TESTS (TESTIS 16 - 17)

* USED BY THE OPERATOR TO SELECT TEST GROUPS
ALL NUMBERS WILL BE IN DECIMAL EXCEPT FOR THE PATTERN

(PAT) AND WORDS (WDX) SELECTION,
‘''PAT' wiLL BE SELECTED
By A BIT (J.E. 00i000(B)=PATTERN 9) AND “'wDX'' WlLL BE IN OCTAL,
CASES OF

C(ONTROL

(HARACTERS

Sea@ 0007

(IRJAD RPO4L/S/6 MECHANICAL AND READ/WRITE
(IRJAD.PIY
2B-MAR-79 11:28
1#

<..>

(</>)

ARt

WHEN THE

TEST

MACYI1

1S TYPED WHILE

AND OTHER

TO Bt

PROGRAM

TESTS

MODIFIED,

1
I
24=-MAY-79

30AC1052)
A TEST

IN THE

THE

13:59

(OMMAND'" STRING

TESTS

witL

IS STARTED FROM LOCATION 200 OR 210,

PROGRAM W]lLL

OR BY

UNCHANGED.

TESTS 0-10,

12-20 witL SE RUN USING ALL AVAILABLE, ONLINE DRIVES.

BY TYPING A '(ONTROL
LOCATION 204 OR ¢14.

IS OPEN tOR MODIFICATION

""TEST

REMAINING

WISHES TO SELECT THE DRIVES TO BE
OR THE PARAMETERS 10 Bt USED, THME

PAGE

THE OPERATOR

TESTED, THME TESTS YO BE PERFORMED,
(ONVERSATION MODE MAY BE ENTERED

STARTING THE PROGRAM FROM E]THER

THEN RESPOND wliw:

DRIVE(S)=
THE

FOLLOWING

EXAMPLES

THE

PARAMETERS

THE

PROGRAM WjiLL

THE

TRANSACTION

ASSUME

THAT

TwE

DRIVE #3 USING TESTS 2 THRU 7 AND TEST
(IMITIAL

THE USER WOULD TYPE

CYLINDER

CPERATOR

ADDRESS,

TEST

AND DOES NOT DESIRE

FINAL

CYLINDER

°*3<(R>' WMICHW SAYS "TMIS IS THE END OF

THEN REQUEST

APPEARS

TO CHANGE

ADDRESS,

ET(.).

DRIVE ENTRY',

TEST NUMBERS.

FOLLOWS:

DRIVE(S)=3<(R>
TEST-

Tug

OPERATOR MAY

“E

WANTS

END

SEPARATES

TESTS

NOW

THRU

7 AND

STARY

TESY

ENTRIES),

(WANGES.,

ENTER

17 0w LOOKS LIKE

DESIRED

TEST

11<.><(R>

TEST

NUMBERS.

SO ME

(*PERIOD®

THE

TYPES 2=7<.,>

EXAMPLE,

(THE

‘'(OMMA®

OPERATOR WISHES

TO TEST

*CARRIAGE

RETURN'

EXECLTION.)

TH]S

DRIVE(S)=3<(R>
<(R>
TESY1=2=.7,V
TuE

NEXY EXAMPLE,

1S ASSURED THAT

TwE

v IvE « AND TO RUN TESTS 1 AND 3 THRU 11, MODIFYING THE PARAMETERS
fOR TESTS 3 AnD 10.
TwE

TRANSACTION WOULD BE AS FOLLOWS:
DRIVE (S)=4<(R>
TEST=

TuE CPERATOR NOw ENTERS TwE
GIVEN BELOW:

TEST NUMBERS.

THE

TRANSACTION ]S

DRIVE (S)=4<(R>
TEST=1,3/6=7,10/11<(R>

NOTICE TwlS SAYS SELECY TEST 1, CONTINUE<,>; SELECT TEST 3, OPEN</>;
SELECY TESTS 4=7, (ONVINUE<,>; SELECT TEST 10, OPEN</>; SELELT TEST
11,

END OF

INPUT

<>,

Sta 0008

(IRJAD RPOL/S5/6 MECHMAN]CAL AND READ/WRITE
CIRJAD.P1Y
2B-MAR-79 11:28
THE

PROGRAM

SCANS

PARAMETERS FOR
TESTS WiLL

(THE

THt

TEST

NOT

ENTIRE

TEST

MACYY1

TEST

3 AND

ALTERED.

TRANSACTION

NUMBER

TEST

[NPUT

10 ARE

IS REPEATED

DRIVE(S)=4<(R>
TEST=1,3/4=7,10/1V1<(R>
TEST 3
R=X

1
J
24=-MAY=-79

30GAC1052)

)

AND

T0 BE

FOR

SWHERE

13:59

DFTERMINES

(HANGED.

PAGE

THAT

THE

OTHER

CLARITY)

JTERATION

THE NEW VALUE FOR 'R' MAY BE ENTERED. TERMINATING THE ENTRY WITH
A <.> (PERJOD) WILL TERMINATE THE C(HANGES FOR THIS TEST; TYPING A

<CR> OR
TO MOVE

TERMINATING THE ENTRY WITH
TO THE NEXT PARAMETER.

<CR>

WILL

CAUSE

THE

PROGRAM

DRIVE (S)=4<(R>
TEST=1,3/4=7,17/11<(R>

TEST

R=1 7/ <(R>
FC=N /

;DO NOT ALTER-BUT C(ONTINUE
;WHERE 'N' IS FIRST CYLINDER ADDRESS

THE OPERATOR DOES NOT WISH TO CHANGE
DRIVE(S)=4<(R>
TEST=1,3/4-7,10/11.<(CR>
TEST 3
R=1 / <(R>
F(=016 <CR>
/

LC=6410

THE

PROGRAM RESPONDS WITH

THE

;D0 NOT
;DO NOT

PREVIOUSLY

°'FC',

THE FOLLOWING OCCURS:

ALTER THIS LINE BUT
ALTER THIS LINE BUT

CONTINUE
CONTINUE

ASSIGNED PARAMETER FOR LAST

CYLINDER ADDRESS IN THIS CASE USING 410 AS THE EXAMPLE.
THIS
WHAT THE OPERATOR INTENDED TO MODIFY AND IS WHY TEST 3 WAS
OPENED.
T0 CHANGE THE VALUE 10 '20°', THE NEW VALUE IS TYPtD
FOLLOWED BY A
THE

TOTAL

'PERIOD'

TERMINATOR

(<.><(R>).

TRANSACTION AND RESPONSE:

DRIVE(S)=4<(R>
TEST=1,3/74=7,10/11<(R>
TEST 3
R=1 / <(R>
FC=0 /7 <CR>

LC= 410 /7 20.<(R>

TEST

R=1

10
/

THE PROGRAM HAS LOADED TEST 3 WlTH 1T S NEW PARAMETERS AND THE
PROGRAM S WAITING FOR (MANGES 1O TES T 10'S PARAMET.RS,
DRIVE(S)=4<(R>
TEST=1,3/4=7,10/11<(R>
TEST 3
R-1

<(R>

SEa 0009

CIRJAD RPO&L/S/6 MECHANICAL AND READ/WRITE
(IRJAD.P1I
2B8-MAR-79 11:28

TEST

MACY1Y

30A(1052)

K
1
24=-MAY-79

13:59

TERMINATES

THt

PAGE

0 /7 <(R>
410 7 20.<(R>
10
/ 10.<CR>
THE OPERATOR TYPES THE NEW VALUE (10)
WITH A 'PERIOD' °'CARRIAGE RETURN',

THE

PROGRAM NOW LOADS TEST
PREVIOUSLY

AND

10 WITH THE NEW PARAMETERS

ASSIGNED PARAMETERS)

AND RESPONDS WITH:

ENTRY

(TEST

RETAINS

DRIVE(S)=

SINCE
THE

THE USER DID NOT END THE CONVERSATION MODE WITH A

PROGRAM HAS LOOPED BACK

CHANGES.
<,><CR>

THAT

WILL

IS TO SAY,

CAUSE

THE

BEGINNING

AFTER THE

TEST

MESSAGE

LOOKING

ENTRY FOR DRIVE
TO BE

REPEATED

'PERIOD PERIOD',

fOR MORE

SELECTION.

AND

CHANGES CAN BE MADE. HOWEVER, AT SOME POINT IN ORDER
THE PROGRAM, A °'PERIOD PERIOD' MUST BE TYPED.

FURTHER

TO EXECUTE

IF A SINGLE °'PERIOD' IS TYPED WHILE DRIVE OR TEST NUMBERS ARE BEING
ENTERED, THE PROGRAM WILL STARY EXECUTION IMMEDIATELY.
A 'PERIOD
PERIOD' MUST BE TYPED BEFORE THE
CHANGE MODE 10 GO 1O EXECUTION.

6.3.3.2 DRIVE

AND PARAMETER

PROGRAM WILL

EXIT

TEST

PARAMETER

SELECTION EXAMPLES

EXAMPLE #1
DRIVE=4 . <(R>

LSELECY

DRIVE

#4,

TERMINATE

AND

;BEGIN EXECUTION USING PREVIOUSLY ASSIGNED
:PARAMETERS

EXAMPLE

#?2

DRIVE=0<CR>

TEST=1=5.<(R>

:SELECT DRIVE #0 AND MAKE CHANGES '',*’

RUN TESY 1 THRU S5 ONLY, USE DEFAULT
;PARAMETERS AND TERMINATE AND EXECUTE.'

EXAMPLE #3

DRIVE=2<CR>

TEST=1=5,6/7/10/<(R>
TEST 6
R=1 / <(R>

FC=0 7 10.<CR>

TEST 7
R=1 7 SO<CR>

FC=0 7 <(R>
LC=410 /7 50..<(R>

;SELECT DRIVE #2 AND MAKE CHANGES '','

:RUN TEST 1-5 WITH DEFAULT PARAMETERS, OPEN
sTEST 6,7 AND 10 FOR CHANGES
sLEAVE 'R' AS IS AND MOVE TO NEXT PARAMETER

:SET

"FC'

;70 TEST

CYLINDER ADDRESS TO 10, END (MHANGES

;S50 ITERATIONS, MOVE TO NEXT PARAMETER
;D0 NOY CHANGE "#C' CYLINDER ADDRESS BUT (ONTINUE

STEST

10 1S STILL PENDING AND WlLL Bt

Sta 0010

(IRJAD RPOL/S5/6 MECHANICAL AND READ/WR]TE TEST
CIRJAD.PYY
28-MAR-79 11:28

MACY1Y

30AC1052)

SRETAIN

24-MAY-79

175 PRESENT

13:59

PAGE

SEa 001

PARAMETERS.

EXAMPLE #4

CRIVE=0<(R»

TEST=S,E.<(R>

SSELECY DRIVE #0 AND MAKE (HANGES
;RUN ALL SEEK TESTS ANU THE EXERCISER

EXAMPLE &5
DRIVE=1<(R>

TEST=S/D<(R>

TEST O
R=10 /7
FC=0 7

<(R>
10..<CR>

SRUN ALL SEEX TESTS (OPEN FOR CHANGES) AND
;THE DATA TEST (WITH DEFAULT PARAMETERS).

;RUN WITH 10 ITERATIONS
;CHANGE FIRST CYLINDER ADDRESS
;AND

STARY

EXECUTION

STESTS 1 = 10 wILL RETAIN THEIR PREVIOUSLY
;ASSIGNED PARAMETERS.
EXAMPLE

DRIVE=1<(R>
TEST=S/<(R>
TEST O

R=10 7 100.<(R>
TEST 1
R=100 7 1000.<CR>
TEST 2
R=1 /7 10<CR>
FC=0 7 SO<(R>

LC=410 7 S1.<CR>

TEST

R=1.<CR>
TEST &
R=1,.<(R>

;OPEN THE SEEK TESTS (TESTS 0-10)
:CHANGE

TO 100 ITERATIONS,

;CHANGE

'R'

10 TO THE NEXT

TO 3000 ITERATIONS, MOVE

TEST=D/<{R>

TEST 20
R=1 /7 1000<CR>
£C=0 7 10<{R>

LC=410 /7 10<(R>

£C'=0 /7 <(R>

LC'=814 / <(R>
1(=64 / 0<(R>
F1=0 7 2<(R>

LT=18 /7 2<(R>
17=1 /7 <(R>
£S=0 / &<(R>

LS=22 / 4<(R>

TO NEXT

TEST

;CHANGE °*R' 10 10 ITERATIONS, GO TO NEXT PARAMETER
;CHANGE 'FC' T0 50, GO TO NFXT PARAMETER
;CHANGE
;MOVE

'LC'

TO NEXT

TO 51, GO TO THE NEXT

TEST

sUSE TEST &'S PARAMETERS AND START PROGRAM EXECUTION

EXAMPLE #7
DRIVE=1<{R>

TEST

;SELECT AND OPEN THE DATA TEST

;00 1000 ITERATION OF TEST PATTERN
;#8 ON CYLINDER 10,
;RPO6 PARAMETER
;RPO6 PARAMETER

TRACK 2,

SECTOR &

CIRJAD RPO&L/S5/6 MECHAN]CAL AND READ/WRITE TEST
CIRJAD.PY
2B-MAR-79 11:28

MACY11

PAY=177777 /7 400..<(R>

30AC1052)

n
24-MAY-79

13:59

PAGE

;RUN WlTH PATTERN #8

EXAMPLE #8
DRIVE=1<(R>
TEST=D/<(R>
TEST 20
R=1000 7 <(R>
FC=10 /7 <(P>
L(=10 7 <(R>
FC'=0 /7

SUSE THE SAME PARAMETERS AS IN EXAMPLE
#7, BUT ALSO SPECIFY A DATA PATTERN (PAT #0).

<(R>

LC'=8B14 / <(R>

1C=0 /7 <CR>
F1=2 /7 <(R>

LY=2 / <(R>

<CR>
<(R>
<(R>
/
LS=4
PAT=000400 7 401<CR>
11=5
FS=4

/7
/

WD1=165555 7
WD2=133333 /

:RUN WITH PATTERNS #8 £ #0 (O=OPERATOR
125252<CR> ;FIRST WORD Of PATTERN O
52525..<CR> ;SECOND WORD OF PATTERN O

INPUT)

;€<..> START EXECUTION

EXAMPLE #9

DRIVE=0,1,4<(R>
TEST=0=5/<CR>

TEST O
R=10 / <(R>

FC=0 7 <(R>

;TEST DRIVES 0,1, AND &
sCHANGE

TEST

LC=6410 7 1<(R>

:CHANGE LAST CYLINDER FROM 410 10 1

LC'=814 7/ 2..<(R>

sCHANGE THE LAST CYLINDER FOR ALL RPO6°S TO
START PROGRAM EXECUTION.
:2.

FC'=0 /7

<CR>

SWITCH SETTINGS

5.1

OPERATIONAL SWITCH SETTINGS
WITH SW<15:0>=0 THE PROGRAM WiLL PRINT OUT ON
ERRORS AND CONTINUE IN TEST.
THE

IN SEQUENCE

SWIT(H SETTINGS ARE:

,. ON ERROR
. HALT
SW<15>=1
Sw<lée>=1...L00P ON TEST
=1, ERROR TYPEOUTS
. INHIBIT
SW<13>
ITERATIONS
INHIBIT
Sw<11>=1,,
ON ERROR
BELL
G
SW<10>=1,...RIN
SWw<09>=1...L00P ON ERROR

Sw<0B8>=1...PRINT ERROR MESSAGE ON LINE PRINTER

SEQ 0012

—

(IRJAD RPOL/S/6 MECHANICAL AND READ/WRITE TEST
2B8-MAR-79 11:28

24-MAY-79

13:59

PAGE 17

SW<07>=1,,
. READ (ONTROL SWITCH SETTINGS FROM TTY

SW<06>=1,.
. INHIBIT TIME REPORTS (TESTS 12-19)
SW<05>=1, . .REPCRT ONE ERROR PER SECTOR (TESTS 16 8 17)
SW<06>=1,
. INHIBIT WRITES (TEST 20)
SW<03>=1,
.. INHIBIT WRITE CHECKS (TEST 20)
SW<02>=1...INHIBIT READ AND SOf TWARE COMPARES (TEST 20)
SW<01>=1__ INKIBIT SOF TWARE COMPARES (TEST 20)
SW<00>=1,..PERFORM READ AFTER WRITE CHECK ERROR (TEST 20

1f THE PROGRAM 1S BEING RUN ON A SWITUHLESS PROCESSOR (1.E. AN 11/34)

THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWIT(H REGISTER IS
NOT PRESENT AND Wli| USE A °*SOFTWARE' SWwITCH REGISTER.
THE

*SOF TWARE' SWiYCH REGISTER IS LOCATED AT LOCATION 176 (B).
THE
SETTINGS OF THE °‘SOFTWARE' SWITCHES ARE CONTROLLED THROUGH A KEYBOARD

ROUTINE WHICH IS CALLED BY TYPING'A 'CONTROL G'.
THE PROGRAM WILL
RECOGNIZE THE °*CONTROL G' AT ANY TIME EXCEPT WHEN THE PROGRAM

1S AT A HIGHER PRIORITY PROCESSING AN RPO4/S576 INTERRUPT.
THE
*SOF TWARE® SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE

10 THE

PROMPT

FROM THE

*SWR = NNNNNN

SWITCH ENTRY

ROUTINE:

NEWw =°

EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWIT(H REGISTER
IMAGE MUST BE ENTERED.
LEADING ZEROS ARE NOT REQUIRED., 'RUBOUT' AND
*CONTROL U' FUNCT]ONS MAY BE USED TO CORRECT TYPING ERRORS
DURING SWITCH ENTRY.

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE 'SOFTWARE®' SWIT(H
REGISTER MAY BE USED.

IF THE PROGRAM FINDS ALL 16 SWIT(HES IN THE
‘UP* POSITION, ALL SWITCH REGISTER REFERENCES WILL BE 10 THE
*SOF TWARE' REGISTER AND THE PROCEDURES DESCRIBED ABOVE MUST

B8t

FOLLOWED.

CONTROL SW!TCH SETTINGS

THE CONTROL SW:TCH SETTINGS ARE ENTERED THROUGH THE KEYBOARD.

TO ENTER THE CONTROL SWITCH SETTING MODE PLACE Sw<Q07>=1
BEFORE PRESSING START. THEN UPON STARTING THE PROGRAM T
WILL TYPE THE PRESENT CONTENTS OF THE CONTROL SWITCH REGISTER
(C.SWR) AND WAIT FOR THE NEW SETTING TO BE INPUT. THE INPUT
STRING MUST CONSIST OF 1 TO 6 OCTAL DIGITS, TwO PERIODS (..),
AND A CARRJAGE RETURN.
THE

C.SWR SETTINGS ARE:

. WRITE PACK BEFORE TESTING (TEST16)
(.SWR<15>=0..
...INHIBIT WRITE PACK BEFORE TESTING (TEST16)
>
...NO STALL BETWEEN DRIVE FUNCTIONS
(.SWR<14

[

(.SWR<08>

(.SWR<12>

(.SWR<13>

., OO
= O —=C)—

CIRJAD.P1Y

MACYT1 30A(1052)

...STALL AFTER EVERY DRIVE FUNCTION
... USE SPECIFIC STALL TIMES
...USE RANDOM STALL TIMES
...NO INCREMENTING STALLS IN TEST4
...PERFORM INCREMENTING STALLS IN TEST4
«..70 IMPLIED SEEKS WITH DATA TRANSFERS
...J0 EXPLICIT SEEKS BEFORE DATA TRANSFERS

SEQ 0013

CIRJAD RPO4/S5/6 MECHAN:CAL AND READ/WRITE

(JRJAD.PYY

28-MAR-79 11:28

TEST

MAZYVY

30A(1052)

(.SWR<07>=0.,.D0 READ HEADER AND
=1...D0 EXPLICIT

8 2
24-MAY=-79

SEEK

DATA COMMANDS

(OMMANDS

(.SWR<06>=0...60 Wl POWER SOURCE

13:59

PAGE

IN TESTS 0-6

TESTS 0-6

=1...50 Ml POWER SOURCE

C.SWR<05>=0...ALLOW SOF TWARE TIMEOQUTS(ENABLE WATCHDOG TIMER)
=1...INHIBIT

SOFTWARE

=1...0PERATE

IN 20 SECTOR

(.SWR<00>=0...0PERATE
THE

DEFAULT

IN 22 SECTOR

CONDITION OF

REFER 1O 4.3.1

TIMEOQUTS(DISABLE

(16 BIT) MODE
(18 BIT)

WATCHDOG TIMER)

MOLE

C.SWR<15:00>=0.

FOR C.SWR SELECTION

ERRORS
THERE

ARE

ANUMBER

WHEN AN ERROR

1S MADE AND If

THAT

1S ENCOUNTERED,

CAN

THE

OCCUR

CALL

THIS

PROGRAM.

TO THE ERROR ROUTINE

SW<13> IS NOT SET, AN ERROR MESSAGE PERTAINING

TO THE ERROR WiLL BE
THE FOLLOWING:

2.
3.

ERRORS

TYPED.

EACH ERROR

TYPEOUT

WILL

CONTAIN

AN ERROR MESSAGE

A DATA HEADER
A DATA STRING

REFER TO THE FOLLOWING SECTION FOR
THAT CAN OCCUR.

THE

DIFFERENT

ERRORS

ERROR TYPES
THE
(3)

6.1.1

ERRORS THAT OCCUR IN THIS PROGRAM FALL INTO THREE
CATEGORIES DEFINED AND EXPLAINED AS FOLLOWS:

DRIVER ERROR

THESE ERRORS WILL BE DETECTED 8Y THE RM1'/RP04/5/6 DRIVER.
THERE

ARE

CAN NOT BE

TWO CLASSES OF

IDENTIFIED

DRIVER ERRORS;

THOSE

THAT

IN A MANNER THAT ALLOWS THE

INFORMATION TO BE RETURNED TO A ''DATA PARAMETER BLOCK"
(DPB)

AND THOSE

THAT

CAN.

THE FIRST

REPORTED BY ERROR CALLS (EMT'S)
THE

SECOND CLASS WILL PASS THE ERROR CODES 7O THE

STATUS/ERROR WORD
6.1.2

CLASS WwlLL BE

1-5 WITHIN THE DRIVER.

(DPB+16) OF

THE PROPER DPB.

NON-FATAL ERRORS

THESE ERRORS WILL BE DUE TO ‘'DISK'" OR "'DATA'" FAILURES

WHICH WiLL BE REPORTED AS THEY OCCUR.
AFTER REPORTING
THE ERROR THE PROGRAM WltLL CONTINUE TESTING.
6.1.3

FATAL

ERRORS

SEQ 0014

CIRJAD RPO&L/5/6 MECHANICAL AND READ/WRITE TEST

CIRJAD.PVI

MACY11

28-MAR-79 11:28
THIS

TYPE

ERROR THAT

ERROR WwiLL BE

¢
2
24=MAY=79

30A(1052)

THE

RESULT

ANY

13:59

ERROR RECOVERY

6.2.1

PRETEST ERROR
WHEN THIS TYPE OF ERROR OCCURS
ON HOW THE PROGRAM WAS STARTED
ADDRESSES

6.2.2

FOR

TESTING OR

RETURN

11
IT

KIND

PROGRAM

TO MONITOR.

NON-FATAL ERROR
BE

REPORTED

AND

FATAL ERROR
WHEN THIS TYPE OF ERROR OCCURS T WilLL BE
PROGRAM WILL ABORT THE TEST AND GO 1O THE

SEw 0015

witL Bt REPORTED.
THEN DEPENDING
WILL ASK FOR THE DRIVES AND

WHEN THIS TYPE OF ERROR OCCURS 11 wiLL
THE PROGRAM WlLL CONTINUE IN TEST.

6.2.3

INHIBITS THE PROGRAM FROM TESTING THE DISK.

THIS ERROR WILL BE REPORTED WHEN IT OCCURS, THEN THE
WitL ABORT THE TEST AND GO TO THE END OFf PROGRAM,

6.2

PAGE

REPORTED.
THE
END OF PROGRAM,

RESTRICTIONS

THE

PROGRAM WILL

TEST

THE DRIVES

IN EITHER

16 BIT MODE CR

IN 18

[IF 'C.SWR<00>'
B1T MODE DEPENDING ON THE SETTING OF 'S.SWR<00>'.
1S 0., ALL OF THE DRIVES WILL BE TESTED IN 16 BI1T MODE; IF 'C.SWR<00»
1S 1, ALL OF THE DRIVES WILL BE TESTED IN 18 BIT MODE.
THE PROGRAM
HAS NO PROVISIONS FOR TESTING DRIVES WITH

INTERMIXED PACKS OR TESTING

BOTH 16 B1T MODE AND 18 BIT MODE DRIVES ON THE SAME SYSTEM,
ACT11

AUTOMATIC MODE

ASSUMES

16 BIT MODE.

BEFORE THE PROGRAM ]S STARTED, PROPERLY FORMATTED PACKS MUST BE MOUNTED
ON THE DRIVES WHICH WILL BE TESTED.
THE PROGRAM ASSUMES A
PROPERLY FORMATTED PACK.
BY THE PROGRAM,

THERE

THE

FORMAT OF

THE PACK

[5 NOT

ALTERED

1S A RESTRICTION ON PROGRAMMABLE DRIVES IN CERTAIN SITUATIONS SEE

MISCELLANEOUS

8.1

EXECUTION TIME

THE PROGRAM REQUJRES APPROXIMATELY

15 MINUTES 10 MAKE ONE PASS WITH

RPO4/5 DRIVES AND APPROXIMATELY 16.5 MINUTES 1O A PASS WITH RPO6
DRIVES.
THIS ASSUMES THE DEFALLT TEST SEQUENCE (TESTS 0-10, 12-200

SECTIONS

2.4 AND .1,

CIRJAD RPO4/S5/6 MECHANICAL AND READ/WRITE
(IRJAD.P11
28-MAR-7G 11:28
AND

8.2

DEFAULT

MACY11

30A(1052)

24=-MAY-79

13:59

PAGE 20

PARAMETERS,

STACK POINTER
THE

8.3

TEST

STACK

POINTER

TIMING TESTS

(TESTS

INITIALLY

12-15)

SET

1100.

PRINTQUTS

AT THE COMPLETION OF EACH OF THE TIMING TESTS THE TIME OF THE
MINIMUM SEEK, MAXIMUM SEEK, AND THE AVERAGE Of ALL Of THE
SEEKS PERFORMED ARE TYPED ON THE TTY., THE NUMBER OfF SEEKS THAT
HAD TIMES BELOW THE MINIMUM TIME ALLOWED WILL BE TYPED ON
THE SAME LINE AS THE MINIMUM TIME. THE NUMBER ABOVE THE
MAXIMUM WILL BE TYPED ON THE SAME LINE AS THE MAXIMUM
TIME, AND THE TOTAL NUMBER OF SEEXKS PERFORMED WILL BE ON THE

SAME

LINE

NOTE:

AS THE

AVERAGE.

THE PROGRAM STALLS FOR 2 MILLISECONDS BETWEEN SEEK ORDERS,
THIS

STALL

TIME

IS NOT

INCLUDED

THE

CALCULATED

SEEK

TIMES.

THE 2 MILLISECOND STALL BETWEEN SEEK ORDERS 1S SPECIFIED BY
THE RPO4 VENDOR.
THE SEEK TIMES SPECIFIED FOR THE RPO4
ARE POSITIONER MOVEMENT TIMES ONLY AND ARE NOT A MEASUREMENT
OF EFFECTIVE SEEK TIME.
TIMING

TOLERANCES

TEST

12 =-- ROTATIONAL

SPEED

TIMES

60 H?
MINIMUM=16340 US
MAXIMUM=17000 US
NOMINAL=16670 US
50 W2

MINIMUM=16250 US

MAXIMUM=17090 US
NOMINAL=16670 US

TEST

13 == ONE

CYLINDER SEEK

TIMES

MAX IMUM=10000 US
NOMINAL=7000 uS

TEST

14 == ACCESS TIME MEASUREMENT

MAXMUM=30000 US
NOM]INAL=28000 US
6.

TEST

15 == MAXIMUM SEEKX

TIMES

MAXIMUM=52000 US
NOMINAL=50000 US

8.3.2.

TIMING

TESTS PRINTOUT

EXAMPLES

SEQ 0016

CIRJAD RPOL/S/76 MECHANICAL AND READ/WRITE
CIRJAD.P1Y
2B-MAR-79 11:28

TEST

MACYIT

30A(1052)

EXAMPLE M)
ROTATIONAL

SPEED

MIN=16670 US

MAX=16690 US

AVG=16680 US

ONE

CYLINDER

FORWARD

REVERSE

TIMES

10 SEEXS TIMED
SEEK

TIMES

MIN=5350 uS
MAX=6920 US
AVG=5550 US

6409 SEEKS TIMED

MIN=5140 US
MAX=5960 US
AVG=56430 US

410 SEEKS

TIMED

ACCESS TIME
* FORWARD

MEASUREMENTS

AVG6=28230 US

128 SEEKS

TIMED

128 SEEKS

TIMED

MIN=27770 LS
MAX=28640 US
*

REVERSE

MIN=27990 US

MAX=28550 LS

AVG=28220 US

MAXIMUM SEEK
* FORWARD

MIN=49990 US
MAX=51980 US
AVG6=51010 US

*+ REVERSE
MIN=48120 US
MAX=50650 US
AVG=69340 US

TIMES

128 SEEKS

TIMED

128 SEEKS

TIMED

EXAMPLE #?
ROTATIONAL

SPEED

MIN=16670 US
MAX=16690 US
AVG=16680 US
ONE
+

CYLINDER

FORWARD

TIMES

10 SEEXS
SEEK

TIMED

TIMES

MIN=56470 US
MAX=10940 US
3 ABOVE THE MAXIMUM Of
409 SEEKS TIMED
AVG=5830 US
+ REVERSE
MIN=5040 US
MAX=5970 US
AVG6=5330 US 410 SEEKS

TIMED

24=MAY=79

10000 uS

13:599

PAGE 2!

SEQ 0017

CIRJAD RPO4L/S/6 MECHANICAL AND READ/WRITE TEST
CIRJAD.P1Y
28-MAR-79 11:28

MACY1Y

30A(1052)

24=-MAY=79

13:59

PAGE 22

ACCESS TIME MEASURMENTS
*« FORWARD

MIN=29730 LS
MAX=31620 US

AvG=30320 uS
«

REVERSE

MIN=28620
MAX=31230 US
AvVG=30800 US
MAXIMUM SEEK
* FORWARD

MIN=53510 US
MAX=54240 US
AVG=56020 US
+ REVERSE
MIN=52050 US
MAX=54550 US
AV6=52210 US
END OF

73 ABOVE

THE MAXIMUm Of

128 SEEKS TIMED

30000 UuS

128 ABOVE THE MAXIMUM Of
128 SEEKS TIMED

30000 US

TIMES

128 ABOVE
128 SEEKS

THE MAXIMUM OF
TIMED

52000 uS

128 ABOVE THE MAXIMyUM OF
128 SEEKS TIMED

52000 LS

TEST

WITH ALL SWITCHES ON A ''0°' AN "END OF PASS'' MESSAGE wiLL BE
TYPED AT THE (OMPLETION OF TESTING A DRIVE AND THE ''END OF TEST'
TYPEOUT

WILL OCCUR WHEN ALL

DRIVES HAVE

BEEN

TESTED.

PROGRAM DESCRIPTION

THIS PROGRAM CONTAINS NINTEEN TESTS NUMBERED 0-22 IN OCTAL.
TESTS 0-7 & 11 WILL READ THE CYLINDER, TRACK, AND SECTOR INFORMATION
FROM THE HEADER, USING A "'READ HEADER AND DATA'' (OMMAND, AND
THEN CHECK THE INFORMATION FOR VALIDITY. THUS, INSURING
THE SEEK OPERATION FUNCTIONS PROPERLY. TESTS 12-15 WlLL MEASURE
THE ROTAT]ONAL SPEED, THE ONE CYLINDER SEEK, THE ACCESS TIME,
AND THE MAX]MUM SEEK TIMES TO ENSURE THEY ARE ALL WITHIN THE

TOLERANCES ALLOWED. TEST 16 AND 17 ENSURES THE SECTOR AND
TRACK ADDRESSING CIRCUITRY WORKS PROPERLY. TEST 20 VERIFIES

THE DATA STORAGE
AND TEST 21 WILL
SYSTEMS.

AND RETRIEVAL CAPABILITIES ARE FUNCTIONAL.
STRESS AND CHECK THE READ/WRITE AND SERVO

THE PROGRAM WiLL START BY

IDENTIFING ITSELF

AND DETERMINING ALL

DRIVES THAT ARE AVAJLABLE FOR TESTING. THEN BEGINNING WITH

THE LOWEST NUMBERICAL DRIVE AND PROCEEDING IN SEQUENTIAL ORDER.
ALL OF THE DRIVES WILL BE TESTED. ONE PASS THROUGH THE TEST

SEQUENCE

(TESTS 0-10,12-20) wiLL BE PERFORMED ON EACHM DRIVE BEFORE

MOVING TO THE NEXT DRIVE

IN SEQUENCE.

DRIVE

TO BE

TESTED witL BE TYPED AT THE BEGINNING OF EACH PASS, AN “‘END
OF PASS'' MESSAGE wiLL BE TYPED AT THE COMPLETION OF EA(H PASS,
AND AN ‘'END OFf TEST'' MESSAGE WiLL BE TYPED AFTER TESTING ArL

Sea 0018

CIRJAD RPO4/5/6 MECHANICAL AND READ/WRITE TEST
CIRJAD.PVY
28-MAR-7G 11:28

MACYI1

30A(1052)

SECTIONS

FOR

6 2
24-MAY=79

13:59

PAGE

DRIVES.
REFER

9.1

THE

FOLLOWING

DETAILED DESCRIPT]ONS

EACH TEST.

TEST

O - RECAL/SEEK

THIS

TEST

WILL

TEST

CAUSE

THE

DRIVE

TO EXECUTE

A RECALIBRATE

COMMAND CYCLE AND THEN SEEK FORWARD TO CYLINDER ‘LC''.
THE

COMPLETION OF

C(HECKED
THE

YO ENSURE

PARAMETERS

1
£S

TEST

THIS

TEST

CYCLE

ECT,

WliLL

TO ""LC'',

INDICATORS ARE

THE

FC*

LC*
1C
FY
L
£S
LS
9.3

THE

TEST

2 =

THIS

TEST WILL

TEST

ARE

GIVEN BELOW:

0
0

TLST

THE

DRIVE

TO EXECUTE

"LS'" FOLLOWED BY
THE

FORWARD

A REVERSF

COMPLETION Of

SEEX

EACH SEEX,

EXAMINED TO ENSURE PROPER OPERATION.

«10

CAUSE

R
£ C

ARE

814

PARARMETERS USED 8Y

INDICATIONS

200

""LT',

RS,

STATUS

NO ERRORS OCCURRED.

SEEX/SEEK

RYTY,

COMMANDS,

USED BY

9.2

BOTH

THE

TEST

ARE

SEEK

(YCLE

THE

GIVEN BELOW:

100
0

128

256
0
0
0
0
0

INCREMENTAL

SEEr

TEST

COMMAND FORWARD SEEXK

CYCLES 1D ADVANCE

ThE

CYLINDER ADDRESS FROM “'F(C'' TO "'LC'' BY THE INCREMENT "'[("'.

WHEN THE RESULTANT

CYLINDER ADDRESS

(NC) EX(EEDS

“LC'" REVERSE SEEK CYCLES ARE INIVIATED; STARTING
AT THE LAST LEGAL ‘'NC'' AND DECREMENTING BY *'I{"

UNTIL "NC'" IS LESS THAN 'FC''. AT THE COMPLETION OF EA(M
SEEX (OMMAND THE PROPER INDICATORS ARE EXAMINED T0
ENSURE PROPER OPERATION.
THE

PARAMETERS USED BY
R
FC

THE

TEST
1
0

ARE

GIVEN BELOW:

PROPER

SEQ 0019

CIRJAD RPOL/S/6 MECHAN]ICAL AND READ/WRITE
CIRJAD.PY
28-MAR-79 11:28
Le
FC*

Lc!
1C
FS
9.4

MACYYY

610
0
814
1

3 - STEPPING SEEK

TEST

THIS

TEST

SEEK

WILL

(OMMAND THE
OPERATION.
THE

(OMMAND

AND 256.

PROPER

PARAMETERS

FC*

Lc’
IC
F1
)

CYCLES

INDICATORS

USED BY

R
FC

30A(1052)

W
2
24=-MAY-79

13:59

PAGE

TEST

8,16,32.64,128,

9.5

"EST

THE

EXAMINED

ARE

EACH SEEK

TO VERIFY

PROPER

GIVEN BELOW:

8
0

256

256
1

- OSCILLATING

ARE

TEST

TO CYLINDER 0,1,2,4,

THE COMPLETION OF

0
0

TEST

SEEX

TEST

THIS

TEST WILL COMMAND SEEK

CYCLES FROM "'FC'" TO "'NC'' AND BA(K

TO *"FC'.
*NC'* STARTS AT "'FC'' AND INCREMENTS BY '‘I1C'" UP TO CYLINDER
“LC'", THEN 1S DECREMENTED BY ''I('' BACK 70 CYLINDER ''FC''.
AT THE

COMPLETION OF EVERY SEEK COMMAND THE PROPER
EXAMINED TO ENSURE PROPER OPERATION.

INDICATORS ARE

THE FOLLOWING PARAMETERS ARE USED BY THE TEST:
R
FC

FI
FS

LC
FC*
LC*
1C

9.6

1
0

410
0
814
1
0
0

TEST

5 = (ONVERGING/DIVERGING SEEK

THIS

TEST witL

CAUSE

THE DRIVE

TEST

TO EXECUTE

FORWARD AND REVERSE

sta 0020

CIRJAD RPO&L/S/6 MECHANICAL AND READ/WRITE TEST
CIRJAD.PVY
2B8-MAR-79 11:28

MACY11

30A(1052)

1
2
24-RAY-79

13:59

PAGE 25

SEEKS FROM "'NC1'" AND °*'NC2'" RESPECTIVELY, "NC1'" WILL BE INCIEMENTED
BY 'IC'" AND "'NC2"" wlLL BE DECREMENTED BY “'IC°" UNTIL "'NC1"' IS
GREATER THAN THE INITIAL VALUE OF °"'NC2'' AND °NC2'" IS
LESS THAN THE INITIAL VALUE OF '°NC1'",
AT THE COMPLETION Of
EACH SEEX COMMAND THE PROPER INDICATORS ARE EXAMINED TO
ENSURE PROPER OPERATION.
“'NC1'" AND "'N(2'' DEFAULT 10

SEQ 0021

CIRJAD RPO4/S/6 MECHAN]CAL AND READ/WR]ITE
CIRJAD.P1Y
28-MAR-79 11:28

TEST

MACY11

ECTTOAND LO'T RESPECTIVELY.,
THE

FOLLOWING

R
fC

£1
£S

LC
FC!
LC?
IC

9.7

TEST

PARAMETERS

ARE

30A(1052)

USED BY

24-MAY=79

TEST:

1
C

610
0
814
1
0
0

6 = SERVO ADDRESSING LOGIC NOISE

GENERATOR TEST

13:59

PAGE

SEQ 0022

CIRJAD RPOL/S/6 MECHANICAL AND READ/WRITE TEST
CIRJAD.P1Y
28-MAR-79 11:28

MACYI1 30A(1052)

24-MAY-79

13:59

PAGE 27

SEQ 0023

IN THIS TEST A StEK 1S DONE TO (YL ''NC'" THEN A SEEK 10
NC+& THEN NC+1 THEN NC+3 THEN NC+2 THEN NC+S.
NOW ''NC'" 1S UPDATED
BY ''1C"" AND THE ABOVE SEQUENCE 1S REPEATED UNITL LC'" IS

EXCEEDED BY ANY OF THE ABOVE VALUES.
1S ECM.

PROPER
THE

AT THE (COMPLETION

INDICATORS ARE

-C
%
LC'
1C
F1
)

TEST

USED BY

THE

TEST:

1
0

610
0
814
1

7 - RANDOM SEEK

THE INITIAL VALUE OF ‘'NC''

EACH SEEX COMMAND THME

EXAMINED TO ENSURE PROPER OPERATION.

FOLLOWING PARAMETERS ARE

R
O

9.8

0
0

TEST

THIS TESY PERFORMS RANDOM SEEXK OPERATIONS BETWEEN CYLINDERS °F('
AFTER EACH SEEK, THE POSITION OF THE ORIVE IS VERIFIED BY
'LC'.

READING A SECTOR FROM THE CURRENTLY ADDRESSED CYLINDER AND TRA(K.
THE TRACK ADDRESS 1S INCREMENTED FOR EACH SEEK SO THAT VERIFICATION

OF POSITIONING OCCURS USING EACH HEAD.
BETWEEN PARAMIERS 'FT*' AND ‘LT'.
THE

FOLLOWING PARAMETERS ARE USED BY

R
FC

FC*

Le!

L7
TEST

TEST:

5000
0

410
0

814

10 - SERVO SETTLE

INCREMENTED

DOWN TEST

THIS TEST VERIFIES THAT THE SERVO HAS SETTLED DOWN AND THAT
THE DRIVE 1S ON CYLINDER WHEN THE DRIVE INDICATES SEEK COMPLETE.

RANDOM SEEKS ARE I1SSUED BETWEEN CYLINDERS 'NC1' AND 'NCi«IC'
('NC1' STARTS AT VALUE 'f(C').
AT THE COMPLETION OF 1000 (10) SEEKS,
*NCT'

THI

IS INCREMENTED BY VALUE

°*1C"

2.0 THE SEQUENCE

1S REPEATED.

TEST IS COMPLETED WHEN 'NC1' HAS BEEN INCREMENTED BEYOND 'LC°.

WHEN THE SEEK COMPLETES, THE PROGRAM READS THE DRIVE'S LOOK-AHEAD
REGISTER (RPLA) 10 DETERMINE THE ADDRESS OF THE SECTOR ROTATING
INTO
POSITION.
THE PROGRAM THEN ISSUES A WRITE HEADER AND DATA COMMAND
FOR THAT SECTOR.
IF THE DRIVE'S POSITIONER HAS NOT SETTLED DOWN OR

1F THE POSITIONER IS NOT ON CYLINDER (I1f THE DRIVE IS AN RPQ4, THE
OFF CYLINDER CONDITION MUST LAST FOR AT LEAST 800 US), THE DRIVE

(RP0S5/6'S MAY ALSO REPORT °'NHS' ERROR UNDER
WiLL REPORT A 'WRU' ERROR.
ERRORS IN THIS TEST INDICATE THAT THE SERVO SYSTEM MAY NOT BE ADJUSTED
(ORRECTLY, THAT THE DRIVE 1S MALFUNCTIONING, OR THAT A PCAK WlTH
e

MARGINAL SERVO TRACKS ]S MOUNTED ON THE DRIVE.

—

9.9

THE

TRACK ADDRESSES ARE

CIRJAD RPO4/S5/6 MECHANICAL AND READ/WRITE TEST
CIRJAD.PiD
2B8-MAR-79 11:28

MACY1Y

30A(1052)

THIS TEST USES THE EXTENTION BITS
WHETHER OR NOT IT CAN PICK UP THE
TEST

THE

TRY

1S OPTIMIZED

FIRST

80X OF

TO ADDRESS

THE

%SEA?%;EYO START
H

SUCH

THE

THAT

THE

2
L
24-MAY=79

SECTOR.

PAGE 28

IN THME LOOK-AHEAD REGISTER T0 DETERMINE
SECTOR ROTATING INTO POSITION.
TwE
DRIVE

SIGNALS

SECTOR CURRENTLY UNDER THE

13:59

SEEXK

HWEAD,

BASED ON OBSERVATION,

THE OPERATION WITHOUT

DONE

THE

WITHIN

TEST WILL
PROGRAM

LOSING A REVOLUTION MOST

THIS TESY IS VALID ONLY IF THE OPERATION IS STARTED WITHIN A FEW
HUNDRED M]ICKO-SECONDS AFTER SEEX DONE OCCURS.
THE NECESSARY 1]ME

DEPENDENT PARAMETERS OCCUR WITHIN THE REQUIRED
ENOUGH TO PERMIT THIS TEST TO BE EFFECTIVE.
FOLLOWING PARAMETERS

ARE

&»H

—

LC
FC*

— 00

L
IC
F1

3.10

TEST

- ALL

SEEKS

USED BY

THE

RANGE

FREQUENTLY

TEST:

OCOrocoo
—

THE

TIME

TEST

THIS TEST VERJFIES THAT
TO ALL OTHER CYLINDERS.

THE

DISK

DRIVE

CAN SEEK

FROM EACH C(YLINDER

BEGINNING WITH CYLINDER °'FC', THE TEST SEEKS TO EACH CYLINDER
BETWEEN 'FC' AND 'LC' FROM CYINDER ‘FC*'.
THE BEGINNING
CYLINDER
ADDRESS

INCREMENTED AND THE

TEST

SEEKS BETWEEN THE

ADDRESS AND ALL CYLINDERS BETWEEN °'FC(' AND 'LC'.
CONTINUES UNTIL ALL CYLINDERS HAVE BEEN CHECKED.
THE

FOLLOWING PARAMETERS ARE

TEST

814
1

F1
FS

SEQUENCE

TEST:

610

THIS

NEW CYLINDER

FC*

Lc’
IC

9.1

USED BY

THE

0
0

12 - ROTATIONAL SPEED TIMING TEST

THIS TEST WILL START A SEARCH TO CYLINDER O, TRACK 0, SECTOR
0.
AS SOON AS THE INTERRUPT OCCURS, THE GO BIT1 IS SET AGAIN
AND THE OPERATION ]S TIMED.
THIS PROCEDURE 1S REPEATED 10
TIMES THEN THE AVERAGE TIME IS CALCULATED AND (HECKED T0
ENSURE 1T IS WITHIN TOLERANCE:

16.67 MS/REV + OR = 2% IF 60HZ
16.67 MS/REV + OR = 2.5% IF 50mI.

SEQ 0024

CIRJAD RPO4/S/6 MECHANICAL AND READ/WRITE
CIRJAD.PIY
28-MAR-79 11:28

TEST

I
B
T

13 - ONE

30A(1052)

USED BY

THE

n
2
24-MAY-79

13:59

TEST:

CYLINDER SEEK

TIMING TEST

THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ADVANCE
CYLINDER BY ONE UNTIL THE

INCREMENT

TIME

CYLINDER

'LC',

THEN REVERSE SEEK TO CYLINDER

TO PERFORM EACH

SEEK

TEST

USES

THE

R
£C

FC*

L'
9.13

TEST

CHECKED

'FC'.

TO ENSURE

TME

DOES NOT

CYLINDER SEEK.

FOLLOWING PARAMETERS:

1
0

410

814

14 - ACCESS TIME MEASUREMENT

THIS TEST WILL COMMAND A FORWARD SEEK

FROM CYLINDER O TO

CYLINDER 'LC', THEN A REVERSEXK FROM CYLINDER

CYLINDER 0.

ARE

THE

1S GREATER THAN THE

EXCEED THE MAXIMUM TIME PERMITTED FOR A ONE
THE TIME MUST BE LESS THAN 10MS,
THE

PAGE 29

OOOO—

ARE

- -

9.12

MACYI1

FOLLOWING PARAMETERS

THE

TEST

WITHIN THE

THIS SEQUENCE

'LC'

BOTH SEEKS ARE TIMED AND CHECKED TO ENSURE THEY
TOLERANCE

ALLOWED FOR

1S REPEATED 128 TIMES

THE ACCESS

(FOR A TOTAL

TIME MEASURMENT.

OF 256 SEEKS).
THE AVERAGE ACCESS TIME MUST BE LESS THAN 30 MS,
CYLINDER 'LC' DEFAULTS TO 136 (10) FOR AN RPO4/5 OR TO 255 (10)
FOR AN RPO6.
THE

TEST

USES THE
R

LC
FC*
L’

9.14

TEST

FOLLOWING PARAMETERS:
1

136
0
255

15 - MAX]MUM SEEK TIMING TEST

THIS TEST WILL COMMAND A FORWARD SEEXK FROM CYLINDER O 10

CYLINDER *LC*', THEN A REVERSE SEEK FROM CYLINDER °'LC' TO
CYLINDER 0.
BOTH SEEXS ARE TIMED AND CHECKED TO ENSURE

THEY ARE WITHIN THE TOLERANCE ALLOWED FOR THE MAXIMUM SEEK

TIME.
THIS SEQUENCE 1S REPEATED 128 TIMES (fOR
A TOTAL OF 256 SEEKS).
THE MAXIMUM SEEK TIME MUST BE LESS THAN

5¢ MS.

'LC' DEFAULTS T0 410 (10) FOR RP04/5'S AND TO 814 (10)

fOR RPO6'S.

SEa 0025

CIRJAD RPO4/S5/6 MECHAN]CAL AND READ/WRITE TEST
CIRJAD.P1Y
28-MAR=-79 11:28
THE

TEST

USES

R
FC

30A(1052)

13:59

PAGE

1
0

610

Lc’

814

TEST

16 = SECTOR ADDRESSING TEST

THIS

TEST

WRITES DATA

INTO ALL

DATA WILL BE 256 WORDS OfF

BEING WRITTEN.

N 2
24=-MAY-79

FOLLOWING PARAMETERS:

9.15

THE

MACY11

A WRITE

SECTORS OF

TRACK

THE SECTOR ADDRESS OF

CHECK

1S PERFORMED,

''F1''.

THE

THE SECTOR

THE BUFFER

CLEARED (70 177400) AND THE DATA IS READ AND COMPARED.
THEN SECTOR 0
1S REWRITTEN AND SECTORS 0 - 21 ARE WRITE CHECKED.
THEN
SECTOR 1 IS REWRITTEN AND SECTORS 0 = 21 ARE WRITE CHECKED.

THIS REWn.TE AND WRITE CHECK PROCEDURE IS CONTINUED UP THROUGH
REWRITE SECTOR 21 AND WRITE CHECK SECTORS 0-21.
USES

TEST

FOLLOWING PARAMETERS:

]
I
I
LI

—_—

Q.16

THE

OO0
—

TEST

- D

THE

17 - TRACK ADDRESSING TEST

THIS TESY

WILL WRITE

DATA

IN THE

FORM Of

TRACK

ADDRESSES

IN CYLINDER “'FC'' SECTOR "'FS'' OF EVERY TRACK WITH EACH TRACK

GE/TING ]TS OWN TRACK ADDRESS.
A WRITE CHECK 1S THEN PERFORMED ON EACH TRACK

TO INSURE

THE DATA IS VALID.
THEN TRACK O IS REWRITTEN AND TRA(K 1
THROUGH TRACK 18 IS WRITE CHECKED.
THEN TRACK 1 IS
REWPITTEN AND TRACK 2 THROUGH TRACK 18 IS WRITE CHECKED.
THIS PROCEDURE 1S CONTINUED UP THROUGH REWRITING TRACK 17
AND WRITE CHECKING TRACK 18,
USES

TEST

FOLLOWING PARAMETERS:

20 - DATA TEST

SET *'NT'" TO “'FT'" THEN REPEAT 2-4 UNTIL ''NT'" > 1"
WRITE THEN WRITE (HECK '‘'FS'" THROUGH "'LS'’ OF TRACK ''NT"’
READ THEN SOF TWARE COMPARE "'FS'' THROUGH ''LS'' OF TRACK ''NT*'

O NN

THIS TEST PFRFORMS DATA STORAGE AND RETRIEVAL ON CYLINDERS
“FC'" THROUGH ''LC'' BY THE INCREMENT ''1('" USING THE DATA PATTERNS
SPECIFIED. THE FOLLOWING SEQUENCE OCCURS FOR EACH CYLINDER:

9.17

THE

OQOOC
—

TEST

THE

REPEAT

STEPS 1-4& FOR EACH DATA PATTERN

REPEAT STEPS 1=5 FOR "'fC'" THROUGH "'LC'" ADVANCINuL BY "I(C"'

SEQ 0026

CIRJAD RPO4L/S/6 MECHAN]CAL AND READ/WRITE
(IRJAD. P11
28-MAR-79 11:28
IF

A WRITE

TEST

MACYTY

30AC1092)

CHECK ERROR OCCURS THE

ERROR

8 3
26-MAY=T79

13:59

PAGE

IS REPORTED AND

THE TRACK IN ERROR ]S REWRITTEN AND (MECKED. THIS (HECK [S
ACCOMPLISHED BY PERFORMING TwO(2; SUCCESSIVE ERROR FREE
WRITE C(HECKS. IF THE CHECK FAILS THE ERROR IS REPORTED AS
FATAL AND NO READ OCCURS.
FS DEFAULTS TO 1 AND LS DEFAULTS TO 0

PAT DEFAULTS 10 177777 (ALL POSSIBLE PATTERNS)

PAT

610

0
814

170360

007417

170360

0074617

170360

151322
151322
151322

151322
151322
026455
151322

026455

151322
026455
151322

066667
153333

066667
153333
066667
153333
066667

—
)
)
—
—

153333

NNNNNNNNNNNN~

177737
177757
177767
177773
177775
177776

153333
066667
153333
066667
153333
066667
153333
066667

—

077777
137777
157777
167777
173777
175777
176777
177377
177577
177677

—

f OLLOWING PARAMETERS:
1

007417

NNNNNNNNNNNNN

172666
155555
172666
155555
172666
155555

026455
026455

NNNNNNNNNNNNN

175777
173777
167777
157777
137777
077777

172666
155555
172666
155555
172666
155555
172666
155555
172666
155555

007417
007417

——

177776
177775
177773
177767
177757
177737
177677
177577
177377
176777

026455
026455
026455

170360
170360

156735

PAT

007417
007417
007417

170360
170360
170360

135673
146314

PAT

177777

000000
010421
021042
031463
042104
052525
063146
073567
104210
114631
125252

000000

laXalalaln

— D

—
el
——
—
)
—l
—
)
—
el
ol
) cmd

177777
000000

167356
177777

TEST USES THE

000000
000000
000000
177777
177777
177777
000000
000000
177777
177777
000000

PAT

000000
177777

THE

)

177000
176000
1764000
170000
160000
140000
100000

PAT

)

177400

[FX7e SVITo
AV 1o NV 7oJV YoNV Yo NV
TYV Yo

(VUL TV RV RV RV TV RV LV RV TV RN IV AN o Al
(VIR
VIRV JUIRV [V RV LV LV IV AN 3V AN a )
VIRV W R VIRV TV RV RV RV JV LV IV IS AY. 1%,
(VI VIRV WAV VIRV RV LU WV RV JV RS LV AV )

177776
177774
177770
177760
1777640
177700
177600

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

—

AV RV IV IS AV AV LV IV IV RV IV LV IV IV ]

(VRS AV RV RV LV LV LV JV LV JV LV ]V LV IV 1V ]

000001
000003
000007
000017
000037
000077
000177
000377
000777
001777
003777
007777
017777
037777
077777
177777

[ R

(VAV TV RV TV IV TV IV TV ALV TV LV TV IV TV RN )
VRV IV IV TV IRV TV RV TV IV TV IV TV RV TV LV

il
)
-l
)
)
el
ol
el
il
il
il
)

NV Yo JV 1o RV Jo JVU
ToJW Yo NV Yo SV T}

)
)
—

[V R

add

PAT

ARE:

PATTERNS

NNNNNNNNNNNN~N
NNNNNNNNNNNNN

POSSIBLE

—

THE

177777
000000
000000
000000
000600
000000
000009
000000
000000
000000
000000
000000
000000
000000
000000
000000

SeQ 0027

c
3
24-MAY-79

13:59

PAGE

Q==

OV N >
PN
=t —

TEST

30A(1052)

177777

9.18

MACY1Y
DO

CIRJAD RPO4/S/6 MECHANICAL AND READ/WRITE TEST
CZRJAD.PIN
2B-MAR-79 11:28

~ RANDOM ADDRESS AND RANDOM PATTERN TES?

STARTING AT “FC'" AND GOING THROUGH '"LC'' THE DISK PA(K
1S WRITTEN WITH A RANDOM PATTERN., THE FIRST TwO WORDS
Of EACH SECTOR WILL BE THE BASE OF THE RANDOM GENERATOR
FOR

THAT

SECTOR.

THE TEST THEN PERFORMS THE FOLLOWING SEQUENCE ''R'" TIMES

*R'* DEFAULTS T0 20,000.
1)

GENERATE

WRITE A RANDOM PATTERN AT THE ADDRESS
GENERATED IN 1.
GENERATE A RANDOM ADDRESS

READ THE

THE

DO A SOFTWARE CHECK OF

ADDRESS

THE DATA READ

IN &,

DO A WRITE (HECK OF THE DATA WRITTEN IN 2

GENERATE

A RANDOM ADDRRESS

READ THE SECTOR AT THE ADDRESS
GENERATED IN 7.
DO A SOFTWARE CHECK OF THE DATA READ IN 8

9)
10)

DO A WRITE CHECK OF
TEST

USES
— "o

9.19

SECTOR AT

GENERATED IN 3.

THE

A RANDOM ADDRESS

THE

(

CO
Cl

THE DATA WRITTEN [N 2

FOLLOWING PARAMETERS:

20000
0
410

0
814

TEST 22 - RPO4 ACCESS TIME ADJUSTMENT TEST

THIS TEST PERFORMS SEEKS BETWEEN CYLINDERS 0 & 136 TC ALLOW TnE
OPERATOR TO ADJUST THE ACCESS TIME ON AN RPO4 USING ThE
THE PROGRAM STALLS APPROXIMATELY S5 SECONDS BETWEEN SEEKS
SO THAT THE ACCESS TIME INDICATORS ON THE DDU MAY BE OBSERVED.

DOU.

USES THE

10.

laX¥aXain

TEST

~ e 0

THE

PROGRAM | ISTING

FOLLOWING PARAMETERS:

5000
0
136
0
255

SEQ 0028

CIRJAD RPO&L/S5/6 MECHANICAL AND READ/WRITE
CIRJAD.PYI
2B-MAR-7G 11:28

TEST

MA{Y11

30A(1052)

24=-MAY=79

13:59

PAGE

Sta 0029

CIRJAD RPO4L/S/6 MECHANICAL AND READ/WRITE
CIRJAD.P1Y
28-MAR-79 11:28

PAGE

SEQ 0030

TEST

HESS

W,
we
me

T s
T
TR
TR
TR
T
e
R
I
I
I

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

SBTTL

LSBTITL

CONTROL

SYSMA(

SWITCH SETTINGS

SWITCH

STATE

J
!

WRITE PACK BEFORE TESTING (TEST 21)
INHIBIT WRITING PACK BEFORE TESTING

1
0
1
0
1
0
|
0

STALL AFTER EVERY DRIVE FUNCTION
USE SPECIFIC STALL TIME
USE RANDOM STALL
NO INCREMENTING STALL IN TEST &
DO INCREMENTING STALL IN TEST 4
DO IMPLIED SEEKS WITH DATA TRANSFERS
0O EXPLICIT SEEXS BEFORE DATA TRANSFERS
DO ‘'READ HEADER AND DATA'" [N TESTS 0-11

13
12
8
7

NO STALL BETWEEN DRJVE

50 HZ
RUN WATCHDOG TIMER

0
|

TEST DRIVE(S)
TEST DRIVE(S)

USE

1
0
1
0

OPERATIONAL

DO EXPLICIT
60 W2
INHIBIT

TRAP (AT(HER

SEEKS

WATCHDOG

FUNCTIONS

(TEST

21)

IN TESTS 0-11

TIMER

IN 22 SECTOR
IN 20 SECTOR

(16 BiT) MCDE
(18 BIT) MODE

SWITCH SETTINGS

SWIT(H
OQO—==MNVWESH N NDOOWES
WU

1496
1497
1498
1499
1500
1501
1502

SBTTL

1495

13:59

1480
1481
1482
1483
16484
1485
1486
1487
1488
1489
1490
1491
149?2
1493
1694

24=-MAY=79

,'1HIS PROGRAM WAS ASSEMBLED USING THE PDP=11 MAINDEC
;*PACKAGE (MAINDEC-11-DZQAC-C3), JAN 19, 1977,

1475
1476
1477
1478
1479

'PROGRAH BY

1462
1463
16464
1665
1466
1467
1468
1469
1470
16471
16472
1473
1474

30A(1052)

;*DIGITAL EQUIPMENT CORP.
'HAYNARD MASS. 0175¢4

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

1460
1661

MACY1Y

LTITLE
CIRJAD RPO&L/S5/6 MECHANICAL AND READ/WRITE
:*COPYRIGHT (() 1976,1978

1449
1450
1651
1452
1453
1654
1455
1456
1657
1458
1459

TEST

USE
HALT

ON ERROR

LOOP ON TEST
INHIBIT ERROR TYPEQUTS
BELL ON ERROR
LOOP ON ERROR
PRINT ERROR MESSAGE ON LINE PRINTER
READ CONTROL SWITCH SETTINGS FROM 1Ty

INHIBIT TIME REPORTS (TESTS 12-15)
REPORT ONE ERROR PER SECTOR (TESIS 16 & '/
INHIBIT WRITES (TEST 15)
INHIBIT WRITE CHECKS (TEST 20)
INHIBIT READ AND SOF TWARE COMPARES (TEST 20)
INHIB1T SOF TWARE COMPARES (TEST 20)
PERFORM READ AFTER WRITE

C(HECK ERROR

(TEST 20)

CIRJAD RPO4L/S5/6 MECHANICAL AND READ/WRITE TEST
MACY1Y
TRAP (ATCHER
CIRJAD.PIY
2B-MAR-79 11:28
000000

V. RV RV ]

RV RV RV LV RV LV IV RV RV ] [V XV RV QU ) ARV ARV RV JW RV LV, LV RV LV RV LV

RV IV IV TV IRV TV IV TW Y TV ], ¥ ~no nrO NN [a%] [ S O R
e
T Yy o )
OO
N NS N =000 ~NO N (V) N=O VRN N W00

f ot

Pl
o
ol
[RV} N

—

(%
ARV
o (U RV RV AR ol Vo RV

—A_‘—‘_‘—4—0_‘—‘_.—._.—._.—‘..‘-J_‘-I-J—‘_._‘_‘_‘—‘-J—‘_‘-—O.—‘_‘_‘_‘—‘

1508

1545

1546

1547
1548
1549

1550
1551
1552

1553
1554
1555
1556
1557
1558

000174
000176

F
3
24=-MAY-79

30A(1052)

13:59

PAGE

sta 0031

.-0

:*ALL UNUSED LOCATIONS FROM & - 776 (ONTAIN A '' 42 HALT'
;*SEQUENCE TO CATCH JLLEGAL TRAPS AND INTERRUPTS
;*LOCATION O CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS

000174
000000
000000

DISPREG:
SWREG:

2174
.WORD
.WORD

LSBTTL

ACT11

HOOKS

;:SOF TWARE
;. SOF TWARE

DISPLAY REGISTER
SWITCH REGISTER

AR ERNRTRERNCOERNRORRNCRCEOPOCROPOCSTRCSOINCERORCOCCERORORRORNPRRORORORRAPRORROOROROTRTRS

000046

000052

*HOOKS REQUIRED BY ALT1I

000200
000046
017732
000052
000000
000200

$SVPC-.
246

$ENDAD

'WORD

TZ8SVP(
.sgssL

000200
000200

000137

004674

000204

000137

004730

000210

000137

004656

000214

000137

004712

000220

000137

0040642

000224

000137

004626

:1)SET LOC.46 TO ADDRESS OF

SENDAD IN .S$EOP

:2)SET LOC.52 10 ZERO
"

"RESTORE

STARTING ADDRESSES

10200 = NORMAL START. INHIBIT PROGRAMMABLE DRIVES STANDALONE OR XXDP CHAIN
JMP

3#STARTI

Imp

AISTART2

aISTARTS

Jmp

SISTARTS

JMP

SISTARTE

0204 = SELECT OPERATING PARAMETERS.

INWIBIT PROGRAMMABLE DRIVES

0210 = SELECT RH11/RP04/5/6 ADDRESSES. DO NOT

INMIBIT PROGRAMMABLE DRIVES

20214 = COMBINATION OF 204 AND 210, DO NOT INWIBIT PROGRAMMABLE DRIVES
20220 = SAME AS 20C BUT DO NOT

INMIBIT PROGRAMMABLE DRIVES

e224 = SAME AS 204 BUT DO NOT

INMIBIT PROGRAMMABLE DRIVES

.SBTTL

BASIC DEFINITIONS

;*INITIAL ADDRESS OF THE STACK POINTER ser 1100 wee

001100

STACKk=
.EQUIV
.EQulv

000011
000012
000015
000200
177776

HT=
LF=
(R=

177774
177772
177570

SSAVE

1100
EMT ERROR
107,SCOPE

::BASIC DEFINITION OF
;:BASIC DEFINITION OF

ERROR CALL
SCOPE C(ALL

s*MISCELLANEOUS DEFINITIONS

11
12
15
(RLF=
200
PS=
177776
PS,PSW
LEQUIV
STKLMY= 177774
PIRQ=
177772

177570

DSWR=
DDISP=

000000

RO:

177570
177570

.. (ODE FOR HORIZONTAL TAB
.. CODE FOR LINE FEED
;:CODE FOR CARRIAGE RETURN

..(ODE FOR CARRIAGE RETURN=-LINE
. ;PROCESSOR STATUS WORD
;s STACK LIMIT REGISTER
: ;PROGRAM INTERRUPT REQUEST

; HARDWARE SWlT(H REGISTER
; HARDWARE DISPLAY REGISTER

;*GENERAL PURPOSE REGISTER DEFINITIONS
%0

. .GENERAL

FEED

1586

1587

1588

1589
1590
1591
1592
1593
1594
1595
1596
1597
1568
1599
1600

100000

040000
020000
010000
004000
002000
001000

000400
000200
000100

000040
000020

000010
000004
000002
000001

1601
1602
1603
1604

1605
1606
1607
1608
1609
1610
1611

1612

1618

1614

100000

040000
020000

010000
004000
002000
0601000

R3:
R4 =
RS
R6-

13
18
1 )
X6

SP-

R2-=

R7:=
P(C:=

17
%4

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

;*PRIORIYY LEVEL DEFINITIONS
PRO0
PRI 40
PR2=
100
PR3140
PRG=
200
PRY =
240
PRG=
300

PR7-=

340

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

;e 'SWITCH REGISTER' SWiT(H DEFINITIONS
Swis=
100000
Swi4=
40000
20000
swil3=
P E
1000¢
swil=
4000
swi0=
2000

Sw09-=

1000

Sw08=
swo7=

400
200

Sw0S5=
Swl4=

40
20

Sw02=
Swot=

&
2

EQulv
EQulv
EQUIV
EQuiv
EQulv
EQUIv
tQulv
EQuiv
gQuliv
gaqulv

SW09,S5w9
SWO0B,Sw8
SWO7,Sw7
Sw06,5W6
SWOS5,SWS
SW0&,SWe
Sw03,Sw3
Sw02,Sw?
SWO1,Sw!
SwW00,Sw0

Sw06-=

SWw03-

Sw00-=

100

10
1

DATA BIT DEFINITIONS «B1T00 10 BIT15Y

BIT15=
81714z
g1113=
81112
B1T11=
BIT12=
81109=

100000
40000
20000
10000
4000
2000
1000

000000
000040
009100
000140
000200
000240
000300
000340

R1=

000001
00000¢
000003
000004
000005
000006
000007
000006
000007

13:59

000D OD N~~~
NN~ ~N~
= OV
N NNy —_
[V
o (V] N

0o Qo

-t
il
e
e
s
e
il
i
el
sl
el

AR ALY LV XV IV IV SV 2V [V RV }V /i N

o
el
il
—

(U AV ] (VA

—

1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569

6
§
2L-MAY=T79

MACYI1 30A(1052)
CIRJAD RPO&L/S5/6 MECHANICAL AND READ/WRITE TEST
.PY
(IRJAD
28-MAR-79 11:28
BASIC DEFINITIONS

PAGE

SEQ 0032

1641
1642

1643
1644

1645

1646

1647
1048
1649
1650
1651
1652

1653
1654
1655
1656
1657
1658
1656
1660
1661

1662
1663
1664

1665

1666

1667

1668
1669
1670

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

13:59

PAGE 37

SEQ 0033

200

100
40

]
)

O =MW N0 DO

O
]
ol
]
] o] o]

D
o
L

G0 0D O €O

OO
O =MW

LI
S
)

D T T TO

OOOOO
N0~
O

S
S
S
S
[

Guml fuedt

ottt

Pt Pusel Prms

Pl (ool

I R T

)

O = PINENO
oD

< <

[
]

Gmemd —
Gt
i

00 — o] ] el e el e - —
cC OCOOOOOOO [=

i Pl

264=PAY=79

400

DDDODDDODDDO
DD — NS

1629

1637
1638
1639
1640

.EQUlV
.EQulv
.EQuUlvV
.EQUlvV
EQUivV
.EQUIV
.EQUlV
.EQUlvV

1630
1631
1632
1633
1634

1635
1636

€D OD 0D O
«

1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628

000400
000200
000100
000040
060020
000010
000004
000002
000001

mm St Pt

16195

1616

0 oo o

CIRJAD RPO&L/S5/6 MECHANICAL AND READ/WRITE TL[ST
MACYT1 30A(1052)
CIRJAD.PIN
28-MAR-79 11:28
BASIC DEFINITIONS

;*BASIC "'CPU'" TRAP VECTOR ADDRESSES
;:TIME QUT AND OTHER ERRORS
::fl%fiEg¥$D AND JULLEGAL INSTRUCTIONS

ERRVEC= 4
RESVEC= 10
TBITVEC=14
TRIVEC=

;:TRACE

BPIVE(= 14

TRAP

::BREAKPOINT

TRAP (BPT)

10TVEC= 20

2 INPUT/0UTPUT

EMTVEC= 30

:;EMULATOR TRAP (EMT)

TPVEC=

;:TTY
;:TTY

PWRVEC= 24

;. POWER

FAIL

TRAP

;:U'TRAP TRAP

TRAPVE (=34
TKVEC=
60

(10T)

«eS(QOPE
e

e««ERRORes

XKEYBOARD VECTOR
PRINTER VECTOR
; ;PROGRAM INTERRUPT REQUEST

PIRQVE (=240

VECTOR

::"."""""""""""""'"""""'t'0"'.""""'.".'!

LSBTTL

RH11

REGISTERS

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

;CONTROL AND STATUS REGISTER 1
000100
000200
000400
001000
002000
020000
04000v

1E=

RDY=
Al6=
Al7=
PSEL=
MCPETRE =

. SC=

100

200
400
1000
2000
20000
40000

100000

(RP(CS1)
INTERRUPT ENABLE
;READY

;BUS ADDRESS REGISTER (RPBA)

#7)

(BIT #¢

;HIGH ORDER BUS ADDRESS BIT
;HI1GH ORDER BUS ADDRESS BIT

(BI
(Bl LY

;PORT SELECT (BIT #10)
;MASSBUSS PARITY ERROR (B]'! #13
;TRANSFER ERROR

(BI1

#14)

;SPECIAL CONDITION (B]T

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

(BIT

1S CALLED By B]T NUMBER)

#1°°

1°D)

CIRJAD RPO4L/S5/6 MECHANICAL AND READ/WRITE TEST
MACY11 30A(1052)
RH11 REGISTERS
CIRJAD.P1Y
28-MAR-79 11:28
1671
1672
1673
1674
1675
1676
1677
1678
1679
1680

1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697
1698

000001

000002
000004
000010

000040
000100
000209
000400
001000
002000
004000
010000
020000
040000
100000

-0
W
N
NN =O VN
OCWVE

D el
el i
i
) e
el
el
e
i
) S
)
)
—

SNNNSNNNTNTN
NN TN NN N TN NN
POMNVPNURNURNUNUN)
= b et b bt et = e = O

1705
1706
1707
1708

13:59

PAGE

SEQ 003«

;CONTROL AND STATUS REGISTER 2

(RP(SZ2)

ust:=

)

;UNIT SELECT (BIT #0)

USL =

SJUNIT

BAl:

:BUS ADDRESS INCREMENT

INMIBIT

1000

JPAISSED

(Bl11

use-

JUNIT SELECT

;PAY:=
(LR=
IR=
OR=
mPE =

20
40
100
200
400

PGE=

2000

MXF =

NEM-=
NED=

UPE =

W(EDLT=

SELECT

(BIT #1)

(BIT

#2)

;MASSBUS PARITY TEST (BT #4)
:CLEAR (BIT #5)
:INPUT READY (BIT #6)
;OUTPUT READY (Bl #7)
:MASS BUS PARITY ERROR (BIT #8)
TRANSFER ERROR

:PROGRAM ERROR

(BI1T

#10)

10000

:NON EXISTENT DRIVE

(BIT

40000
100000

;WRITE CHECK ERROR (BIT
;DATA LATE (BIT #15)

4000

:NON EXISTENT MEMORY

20000

;(EACH BIT

(BIT #3)

#9)

(BIT #°1)
#12)

:UNIBUS PAR]ITY ERROR (BIT #13)

:DATA BUFFER REGISTER (RPDB)
CALLED BY BIT

#14)

NUMBER)

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

LSBTTL

RPO4/S5/6 REGISTERS

:;""""""'."""""""'""""'0'l"'."'."""'t't""

1699

1700
1701
1702
1703
1704

1
3
2<=-MAY=79

000001
000002
00000«
000010
000020
000040
004000

;CONTROL AND SYATUS 1 REGISTER.

(#00)

6O-=

;60 BIT

10
20
&0

;FUNCTION CODE BIT #3
;FUNCTION CODE BIT &
;FUNCTIOM CODE BIT #5

Fi=
F2=

2
4

DVA=

4000

F3F&-=
FS=

.BIT #0)

;FUNCTION CODE BIT
;FUNCTION CODE BIT

;DEVICE

AVAILABLE

#)
#2

(BIT

#11)

;DRIVE STATUS REGISTER (RPDS1) (#01)
000002
000004
000010
000020
000040
000100
000200
000400
001000

002000
094000
010000
020000
04000C

;DFS=
DFF2G=
DIGB=

1
2
&

(BIT #0)
DRIVE FORWARD S''/SEC.
:DRIVE FORWARD 20''/SEC.
(BI1 #1)
:DRIVE TO INNER GUARD BAND (BIT1 #?)

DL6OG:

;OIFFERENCE LESS THAN 64 (BIT #4)

100

sVOLUME VALID (BIT #6)

GRvV=

;G0 REVERSE (BIT #3)

DE1-

DRY=
DPR-=

200
«00

:DRIVE READY (Bl #7)
;DRIVE PRESENT (BIT #8)

LS1=

2000

:LASY SECTOR TRANSFERRED (BIT s1(»

PGM-=

1000

WRL =
MOL -

4000
10000

ERR:

&00n0

PlP-

20000

;DIFFERENCE EQUALS 1

;PROGRAMABLE

(B!T #5)

(BIT #9)

;WRITE LOCK (BIT #11)
;MEDIUM ON-LINE (B]T M1

:POSITIONING OPERATION IN PROGRESS (B]' #13
;(OMPOSITE

ERRCR

(Bl

#'¢

CIRJAD RPOL/S/6 MECHANICAL AND READ/WRITE TEST
MACYIY 30A(1052)
CIRJAD.PY
RPO4&/5/6 REGISTERS
28-MAR-79 11:28
100000

ATA:

100000

744

100000

ILF=
1LR=

(RPERY)

1
Sea 0035 :

39
(BIT

#1'5)

(#02)
;ILLEGAL FUNCTION (BIT #0)
;ILLEGAL REGISTER (BI1 #1)

:PARITY ERROR (BIT #3)

fFER=
WCF =
E(M=
HCE-=
HCR(C=

20
40
100
200
400

;REGISTER MODIFICATION REFUSED

1000

WLE =

4000

:WRITE LOCK ERROR

UNS=

40000

AOE=

TAE=

DTE=
OP1-=

D(K=

2000

10000
20000

100000

DMD -

200

AT0=
AT1=
AT2=

1
2
4

AT4=

A13-

ATS=

AT7=

200

AT6=

UNSAFE

(B1T1

:DATA (HECK ERROR

#14)

(BIT

(RPMR)(#03)

;MAINTAINABILITY SECTOR CLOCK

DISY=

:DRIVE

MRD-=

MWR=

#11)

:DIAGINOSTIC MODE

2
4

MSTCKk=

(BIT

:DRIVE TIMING ERROR (BIT #12)
:OPERATION INCOMPLETE (BIT #13)

MOLK=
MINX=

100

;(EACH BIT

:MAINTAINABILITY
;MAINTAINABILITY

(BIT #0)

CLOCK
INDEX

MAINTAINABILITY READ

sMAINTAINABILITY WRITE

(BIT
(BT

(BIT

D105=
D106=
p107=
D108-

1
2
&
10
20
40
100
200
400

#1)
#2)

#4)

(BIT #%)

(BIT #5)
sMAINTAINABILITY SYNC DETECTED (BIT #7)
(RPAS)

(#04)

;DEVICE O (BIT #0)
;DEVICE 1 (BIT #1)
;DEVICE 2 (BIT #2)
;DEVICE 3 (BIT #3)
;DEVICE 4

(BIT

#4)

;DEVICE

(BIT

#6)

;DEVICE 5

;DEVICE

(BIT #5)

7 (BIT #7)

IS CALLED BY BIT NUMBER)

;DRIVE TYPt REGISTER (RPDT) (#06)
D100=
p101=
D102=
0103=
DT104=

#2)

; INVALID ADDRESS tRROR (BIT #10)

;DESIRED SECTOR/TRACK ADDRESS REGISTER (RPDA) (#05)

000001
000002
000004
000010
000020
000040
000100
000200
000400

(BlT

:FORMAT ERROR (BIT1 #4)
;MRITE CLOCK FAIL (BIT #5)
;ECC HARD ERROR (BIT #6)
;HEADER COMPARE ERROR (B!T #7)
:HEADER CRC ERROR (BT #8)
:ADDRESS OVERFLOW ERROR (BIT #9)

;ATTENTION SUMMARY PSEUDO-REGISTER

000001
000002
000004
000010
000020
000040
000100
000200

PAGE

SATTENTION ACTIVE

SMAINTAINABILITY REGISTER

000001
000002
000004
000010
000020
000040
000200

13:59

1
2

RMR =

PAR:=

;DRIVE
;DRIVE
;ORIVE
;DRIVE
;DRIVE

;ORIVE
:DRIVE
;DRIVE
;DRIVE

TYPE
TYPE
TYPE
TYPE
TYPE

TYPE
TYPE
TYPE
TYPE

NUMBER
NUMBER
NUMBER
NUMBER
NUMBER

NUMBER
NUMBER
NUMBER
NUMBER

B]1
BI1
BIl7
BI1
B]1

BT
B]1
B]1
B!

OO ~NO NP
—

= O O 0D ~NO

:wwwwwwwwwwww
Pl olo WWW\I‘V‘WWV“:

JERROR REGISTER #01
000001
000002
000004
000010
000020
000040
0001C0
000200
000400
001000
002000
004000
010000
020000
040000

24-MAY-"9

K
3
24=MAY-79

CIRJAD RPOL/S5/6 MECHANICAL AND READ/WRITE TEST
MACY1Y 30AC1052)
RPO4/5/6 REGISTERS
CIRJAD.PYY
28-MAR-79 11:28
1783
1784
1785
1786
1787
1788
1789
1790
179N
1792
1793
1794
1795
1796
1797
1798
1799
1800
1801
1802
1803
1804
1805
1806

004000

020000
040000
100000

b et
=t ot —d ok

~NO NS
fNV
] ¥ = OV

oo PN

ol
=l
el
ol
—l
)
el
—
d
—

oo Oo O 0 0o 0o 0o 0o OP OD OO 00

1809

1825
1826
1827
1828

1829
1830
1831

1832

1833
1834
1835
1836
1837
1838

PAGE 40

SEQ 0036

4000

;ORIVE REQUEST REQUIRED

40000

;TAPE

20000

;MOVING HEAD

100000

DKIVE

(BIT

(BIT #13)

(BIT

#14)

;NOT BLOCK ADDRESSED

:LOOK-AHEAD REGISTER (RPLA)

(BIT

#11)

#15)

(#07)

000001
000002
000004
000010
000020
000040
000100
000200

EXT1=
Ex12=
EXT4=
gEx110=
Ex120=
Ex140=
SC1=
S(2=

i
2
4
10
20
40
100
200

SEXTENSION 1 (BIT #0)
SEXTENSION 2 (BIT #1)
CEXTENSION 3 (BIT #2)

001000
002000
004000
010000
020000
040000
100000

SC10=
SC20=

1000
2000

:SECTOR COUNT FIELD 3 (B1T #9)
;SECTOR COUNT FIELD 4 (BIT #10)

1807

1808

DRQMOM=
TAP=
NBA=

13:59

:SC4=

TRK1=
TRK2=
TRK&=
TRK10=
TRk20=

:SECTOR COUNT FIELD 2 (BIT #8)

400

4000
10000
20000
40000
100000

:RPO4& ERROR REGISTER #2

000001
00000¢
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000
010000
020000
100000

SEXTENSION & (BIT #3)
CEXTENSION S (BIT #4)
CEXTENSION 6 (BIT #5)
:SECTOR COUNT FIELD O (BIT #6)
:SECTOR COUNT FIELD 1 (BIT #7)

:TRACK
;TRACK
;TRACK
:TRACK
:TRACK
(RPER2)

1
2

4
5

(BIT
(BIT
(BIT
(BIT
(BIT

#11)
#12)
m13)
M14)
#15)

(#10)

'[4VE
(SF=

1
2
4

:WRITE CURRENT UNSAFE (B1T #0)
;CURRENT SINK F£
JRE (BIT #1)
:WRITE SELECT UNSAFE (BIT #2)

MSE =

;MOTOR SEQUENCE ERROR

wSuU=
(Su-=

10F =

FEN=
WRU=
MHS=
NHS=

200
400
1000
2000

PLU=
ACU=

20000
100000

TUF =

IXE=
vu30=

100

4000
10000

:RP0S5/6 ERROR REGISTER #02
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000
002000
004000

FJELD
FJELD
FIELD
FIELD
FIELD

wCu=
(SFNVE

:CURRENT SWITCH UNSAFE

(BI1T #3)

(BIT

#4)

;TRANSITIONS DETECTOR FAILURE
;TRANSITIONS UNSAFE

(BIT

#6)

(BIT #5)

;FAILSAFE ENABLED (BIT #7)
:WRITE READY UNSAFE (BIT #8)
:MULTIPLE HEAD SELECT (BIT #9)
:NO HEAD SELECTION (BIT #1100

;INDEX ERROR (BIT #11)
;30VOLT UNSAFE (BIT #12)
:PLO UNSAFE (BIT #13)
:AC UNSAFE (BIT #15)
(RPER2)

(#10)

(Su=

1
P4
4
10

:WRITE CURRENT UNSAFE (BIT #0)
:CURRENT SINK FAILURE (BIT #1)
:WRITE SELECT UNSAFE (BIT #2)
;CURRENT SWITCH UNSAFE (BIT #3)

1DF =

:TRANSITIONS DETECTOR FAILURE

ABS-=
WRU-=
MHS =
NHS=
1XE-

200
400
1000
2000
4000

RAW=
TUF =

100

sREAD AND WRITE

(BIT

s TRANSITIONS UNSAFE

#4)

(BIT

#6)

(BlT #5)

:ABNORMAL STOP (BIT #7)
;WRITE READY UNSAFE (B11 #8)
sMUTLTIPLE HEAD SELECT (Bl1 #9)
:NO HEAD SELECTION (BT #10)
;INDEX ERROR (BIT #11)

CIRJAD RPO4L/S/6 MECHANICAL AND READ/WRITE TEST
MACY11 30AC1052)
CIRJAD.P1Y
RP04/5/6 REGISTERS
2B-MAR-79 11:28
1839
1840
1841
1842
1843
1844
1845
1846
1847
1848
1849
1850
1851
1852
1853
1854
1855
1856
1857
1858
1859
1860
1861
1862
1863
1864
1865
1866
1867
1868
1869
1870
1871
1872

1873
1874

1875
1876
1877
1878
1879

1880
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890
1891
1892
1893
1894

020000

PLU=

20000

;OFFSET REGISTER (RPOF)
000001
000002
000004
000010
000020
000040
000200
002000
004000
010000

24=-MAY-79

13:59

;PLO UNSAFE

PAGE 4!
(BIT

#12)

(#11)

0F25=
0FS0=
OF100=
0F200=
OF&400=
OFB800=
OFREV=

1
2
&
10
20
40
200

;OFFSET
;OFFSET
;OFFSET
;OFFSET
;OFFSET
;OFFSET
;OFFSET

eCl=

4000

;ERROR CORRECTION CODE

H(l=

FmM122=

SEa 0037

2000
10000

25 MICRO INCHES (BIT #0)
50 MICRO INCHES (BIT #1)
100 MICRO INCHES (BIT #2)
200 MICRO INCHES (BIT #3)
400 MICRO INCHES (BIT #4)
800 MICRO INCHES (BIT #5)
NEGATIVE (REVERSE) (BIT #5)

SHEADER COMPARE

INHIBIT

;FORMAT BIT

#12

(BIT

#10)

INHIBIT

(BIT #11)

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

;CURRENT CYLINDER ADDRESS (RPCC) (#13)
: (EACH BIT IS CALLED By BIT NUMBER)
;SERYAL NUMBER REGISTER (RPSN) (#14)
;(EACK 1S CALLED BY BIT NUMBER)
;RPO4& ERROR REGISTER #03

000001
000002
000010
000040
000100
040000
100000

PSU=
VUF =

UWR=
ACL=
DCL=

SK1=
oCvL=

(RPER3)

1
2
10
40
100
40000
100000

(#15)
;PACK SPEED UNSAFE (BIT #0)
SsVELOCITY UNSAFE (BIT #1)
:ANY UNSAFE EXCEPT READ/WRITE
;AC LOW (BIT #5)
;DC LOW (BIT #6)
;SEEX INCOMPLETE (BIT #14)
;OFF CYLINDER (BIT #15)

(BIT #3)

;RP05/6 ERROR REGISTER #03 (RPER3) (#15)
000001
000002
000040
000100
020000

040000
100000

DCU=
WAO=
ACL=
DCL=

OPE=
SKl=
oCvyL=

1
2
4«0
100

:DC UNSAFE (BIT #0)
:WRITE AND OFFSET (B]T #1)
;AC LOW (BIT #5)

20000
40000
100000

;0C LOW (BIT #6)

;OPERATOR PLUG ERROR (BI1 #13)
;SEEX INCOMPLETE (BIT #14
;OFF CYLINDER ERROR (BIT #15)

;ECC POSITION REGISTER (RPELY) (#16)
; (EACH BIT IS CALLED BY BI1 NUMBER)

;ECC PATTERN REGISTER (RPECZ) (#17)
; (EACH BIT

IS CALLED BY BIT

NUMBER)

-'""l.""""""'"""'I"""""l".""'.'."!"l"'l"ll'l

000101
000103
000105

;OP CODE DEFINITIONS

NOOP-=101
UNLOAD=103
SEEK=105

CIRJAD RPO&/S5/6 MECHANICAL AND READ/WRITE TEST
MACY11 30A(1052)
CIRJAD. P
2B8-MAR-79 11:28
RP04/5/6 REGISTERS
1895
1896
1897
1898
1899
1900
1901
1902
1903
1904
1905
1906
1907
1908

600107
00011}

000145

264-MAY-79

13:59

PAGE &2

RECAL=107
DRV(LR=111
RELEASE=113
OFFSET=115
RTC=117
READIN=121
PACK=12%

SEARCH=131
WRCKD=151
WRCKHD=15%
WRITE=161
WRTHD=163
READ=171
READHD=173
GETREG=141
SETFORM=143
SELDRV=145
;OTHER EQUATES

177400
012060

SCTRWC = =256.
FMT122-10000

;WORD COUN' FOR
;FORMAT 22 BIT

SECTOR

SEQ 0038

MACYT1
CIRJAD RPOL/5/76 MECHANICAL AND READ/WRITE TEST
CIRJAD P11
28-MAR-79 11:28
COMMON TAGS
1918
1919

.SBTTL

1920

1921
1932
1933
1934
1935
1936
1637
1938
1939
1940
1941
1942
1943
1944
1945
1946
1947
1948
1949
1950
1951
1952

1953
1954

1955
1956
1957
1958
1959
1960
1961
1962
1963
1964
1965
1966
1967
1968

1969
1970
1971
1972
1973

13:59

PAGE 43

COMMON TAGS

;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS
;*USED IN THE PROGRAM,
001100

£ NNOOWVENO

1930

24-MAY=79

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

PNINIA)
= b cad ad d

1921
1922
1923
1924
1925
1926
1927
1928
1629

30A(1052)

001100

SCMTAG:
$PASS:
$SISTNM:
$ERFLG:
SICNT:
$SLPADR:
$SLPERR:
SERTTL:
SITEMB:
SERMAX:
SERRP(C:

000000
000

000
000000
000000
000000
000000
000
001
000000
000000
000000
000000
000000
000000
000000
000
000
000000

$GDADR:
$BDADR:
$GDDAT:
$BDDAT:
$SAUTOB:
$INTAG:

177570
177570
177560
177562
177564
177566
012
000

000000

001162
001164
001166
001170
001172
001174
001176
001200
001202

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
177607
077
015
000C12

000615

.WORD
_BYTE
.BYTE
.WORD
.WORD
.WORD
.WORD
.BYTE
.BYTE
.WORD

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

SWR:
.WORD
DISPLAY: .WORD
$TKS:
177560
$TKB:
177562
$TPS:
177564
$1PB:
177566
$NULL:
.BYTE

000
002

001160

.=1100

0
0
0
0
0
O
0
8

DSWR
DDISP

.WORD
.WORD
.WORD
.WORD

0
G
0
0

$TMPO:
.WORD
$TMP1:
_WORD
$TMP2:
.WORD
$TIMES: O
$ESCAPE:D

0
0
0

$BELL:

.ASCI2

$LF:

LASCIZ

$QUES:
$CRLF:

LASCII
LJASCII

INDICATOR
INDICATOR

;s CONTAINS THE ADDRESS FROM

$REGO:
$REG1:
$REGZ2:
$REG3:

.WORD
.WORD

;sAUTOMATIC MODE
;s INTERRUPT MODE

b4
12
0

$REGL:
$REGS:

:;CONTAINS ADDRESS OF ‘'GOOD' DATA
:;CONTAINS ADDRESS OF 'BAD® DATA
::;CONTAINS 'GOOD' DATA
::CONTAINS 'BAD' DATA
; sRESERVED--NOT T0 BE USED

.BYTE
.BYTE
.BYTE

.WORD

COMMON TAGS
PASS COUNT
THE TEST NUMBER
ERROR FLAG
SUBTEST ITERATION COUNT
SCOPE LOOP ADDRESS
SCOPE RETURN ®0OR ERRORS
TOTAL ERRORS DETECTED
1TEM CONTROL BYTE
MAX. ERRORS PER TEST
PC OF LAST ERROR INSTRUCLTION

; s ADDRESS OF SWITCH REGISTER
;ADDRESS OF DISPLAY REGISTER
;. T1Y XBD STATUS
;. 11Y KBD BUFFER
;:TTY PRINTER STATUS REG. ADDRESS
;:TTY PRINTER BUFFER REG. ADDRESS
;s CONTAINS NULL CHARACTER FOR FILLS

$FILLS:
$FILLC:
$TPFLG:

$REGAD:

000377

0
0
0
0
0
0
0
0
1
0

;:START OF
;;CONTAINS
;s CONTAINS
;s CONTAINS
;s CONTAINS
;;CONTAINS
:;CONTAINS
;;CONTAINS
::CONTAINS
;;CONTAINS
;;CONTAINS

0
0

;sCONTAINS # OF FILLER CHARACTERS REQUIRED
;o INSERT FILL CHARS. AFTER A '"LINE FEED"
::""TERMINAL AVAILABLE'' FLAG (B11<07>=0=YES)

s:WHICH

(SREGO) WAS OBTAINED

::CONTAINS
::CONTAINS
; ;CONTAINS
::CONTAINS

((SREGAD)+0)
((SREGAD)+?2)
((SREGAD)+4)
((SREGAD)+6)

::CONTAINS ((SREGAD)+10)
::CONTAINS ((SREGAD)+1¢)

:USER DEFINED
;i USER DEFINED
;s USER DEFINED
;sMAX. NUMBER OF ITERAT]IGONS
:ESCAPE ON ERROR ADDRESS

<207><377><377> ;:CODE FOR BELL
/7Y/
<15

:;QUESTION MARK
:;CARRIAGE RETURN

;sLINE FEED

::"""""'l"""""""""'""""tl!t'l't'tt't't""'ttl'

SEQ 0039

2003

2004
2005
2006
2007
2008
2009
2010
2011
2012

2013
2014

2015
2016
2017
2018
2019
2020
2021
2022
2023
2024
2025
2026
2027
2028
2029

000020

040432

001260
001262
001264
001266
001270

001272
001274
001276
001300
001302
001304
001306
001312
001314
001316
001320
001322
001324
001330
001332
001334
001336
001340
001344
001346

001350
001352
001354
001356
001360
001362
001364

TICKMS:
TICKUS:

.WORD
.WORD

000000
000000
000000
000000

BYPASS:
CHKDRYV:
DRVMSK:
SVSTAT:

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
165000
000012
000012
011610
000031

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

TRK.DS:
TIM.UP:

001365

000

001366
001370
001374

176700
000256
000104

.WORD
.WORD

.WORD

TIM.DN:

000000
TIM.PT:

WCEFLG:

.WORD
.WORD

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

.WORD

STALLO:

.WORD

TRCKWC:

.WORD

SVADR:
SEKTMR:
SEXKCNT:
DELTA:

STALLY:
STALL2:
STALL3:

MXSTAL:

ERR.CT:

144

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

000000

006000

.WORD
.WORD
.WORD
.WORD

.BYTE

O
O
0

37777.0

0.0
0

O
o
o

000000

12
0
0
¢

LOOO ——
oo

037777

000000
000000

=
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
_WORD
.WORD
.WORD

000240
000106

.WORD
.WORD
.WORD

13:59

PAGE

SEQ 0040

;CONTROL SWITCHES
;PREVIOUS CONTENTS OF °'(.SwR'
;CONTROL "'C'" FLAG
;GET ADDRESSES FROM THE TTY FLAG (0=NO, =1=YES)
;LPT AVAILABLE STATUS (0=NO, 1=YES)
;DRIVES SELECTED FOR TESTING
;RUN TESTS 0-15
;MODIFY

TEST

PARAMETER FLAGS

;CLOCK STATUS (0=NO CLOCK,+1=KWll-P,

;AND -1=KkW11-L)

;16 MILLISECONDS PER (LOCK TI(CK
;16666 MIRCOSECONDS PER (LOCK TICK
;DRIVE UNDER TEST
;DRIVE MASK BI1T
;STATUS/ERROR INDICATOR IS
;SAVED HERE ON AN ERROR
;CYLINDER READ
: TRACK

READ

: TRACK

DESIRED

SMINIMUM TIME
;NUMBER OF COUNTS BELOW MIN. LIMIY
.0

;ADDRESSES AND VECTORS

RM_ADR:
RHVEC:
PKV:

8 &
24=-MAY=79

;SECTOR READ
;CYLINDER DESIRED
;SECTOR DESIRED

2000
2001
2002

060000

Lf
(.SWR:
SAV(SW:
(NTRLC:
BUSADR:
LPTAVL:
DRVSEL:
TSTNMS:
OPNFLG:
CLKSTA:

OO0 O0O0OO0OOCOO0OOOOOOOOOOOOOOOOOL

1977
1978
1979
1980
1981
1582
1983
1984
1985
1986
1987
1988
1989
1990
1991
1992
1993
1994
1995
1996
1997
1998
1999

000012
000000
000000
000000
000000
000C00

=S NON
=
|
OWNCOOA
Oe
o

1974
1975
1976

30A(1052)

MACY1Y
(IRJAD RPOL/S/6 MECHANICAL AND READ/WRITE TEST
C(IRJAD LN
28-RAR-79 11:28
COMMON TAGS

176700
254,5+32.
104,106

;MAXIMUM TIME
;NUMBER Of COUNTS

ABOVE

;TOTAL TIME OF ALL SEEKS

MAX.

LIM]T

;NUMBER OF SEEKS PERFORMED
;MINIMUM TIME
;NUMBER OF COUNTS BELOW MIN, LIMIT
;MAXTMUM TIME
;NUMBER OF COUNTS ABOVE MAX. LIMIT
;TOTAL

TIME

:NUMBER OF
;POINTS

ALL

SEEKS

SEEKS PERFORMED

TO TABLE

TIMES

;FATAL WRITE CHECK ERROR FLAG

(TEST

20)

VARIABLE STALL (TEST &)
:SAVE DISK ADDRESS (TEST 22)
(TEST 10)
;SEEK TIMER
:SEEX COUNTER
;TESTING RANGE FOR SERVO SETTLE DOWN TEST

;WORD COUNT FOR A FULL TRACK IN 15 BIT mODE
;10 MILLISECONDS STALL (TEST 0-11)
;10 MILLISECONDS STALL

;5 SEC STALL (TEST 22)
;MAX.

(TEST

16-21)

INCREMENTING STALL ALLOWED

IN TEST

;NUMBER OF ERRORS ALLOWED IN TESTS 16 - 21
;BEFORE GOING TO THE NEXT TEST
;RESERVED

;RH11-RH70 UNIBUS ADDRESS
:Rh11-RH70 VECTOR ADDRESS AND PRIOR]TY
;XKWll=P VECTOR

ADDRESS

oo
ss
oo
se
5o
50
oo
—8 =l 00
P\

002330
002344
002372

001536
001540
001542

001532
001534

0009200
000300
000000
000000
000000
000000
000000
000000
000000
000000
000000

PRM:
RPT:

000000
000300

)

Gl
Pt P

) ol
)

Gl P

)
o)

P
Pt P

] el
)
ol

Gud P
Qe

ol
]
o]
]
]
]

Gl Gl Gt Pud fuaed G
P

]
]

G
Pl

] el

13:59

PAGE 45

;KW11=P CONTROL AND STATUS REG.
;KW11=P COUNT SET BUFFER
;KW11=P COUNTER
;KW1l=-L VECTOR ADDRESS
;KWi1l=L STATUS REGISTER
;TTY PRINTER STATUS
;TTY PRINTER BUFFER

LINE PRINTER STATUS

;LINE PRINTER BUFFER

. COMMON STORAGE f OR TEST PARAMETER
I
— = = NN

001504
001506
001510
001512
001514
001516
001520
001522
001524
001526
001530

OCOOOOOOOOQ
-t =t =t 0t 2 = OOOOODOOOOOOO
NOWVES WA
2 OWVMHB W= OV
NO N
W
= O

000200

100000

TABLE
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

000001
000002
000004
000010
000020
000040
000100

élYS:

001464
001466

BIT

]

001424
001626
001430
001432

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

LPS:
1PB:

100,102
177546
177564
177566
177514
177516

)

001420
001422

001470
001472
001474
001476
001500
001502

LKS:
TPS:
TPB:

001416

001434
001436
001440
001442
0014644
001446
001450
001452
001454
001456
001460
001462

LKV:

172540

172542
172544

000102

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

PK(CS:
PxB:
PK(:

24=-MAY=79

;VABLE
;
PRMPT

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

0
0
0
0
0
0
0
0
0
0
0
0

(=]

172540

001400
001402
001404
001406
001412
001414

2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2041
2042
2043
2044
2045
2046
2047
2048
2049
2050
2051
2052
2053
2054
2055
2056
2057
2058
2059
2060
2061
2062
2063
2064
2065
2066
2067
2068
2069
2070
2071
2072
2073
2074
2075
2076
2077
2078
2079
2080
2081
208?2
208%
2084
2085

30A(1052)

DD DODDOODDRODDODDDODDDDD

CIRJAD RPO4L/S5/6 MECHANICAL AND READ/WRITE TEST
MACY11
CIRJAD.P1Y
28-MAR-79 11:28
COMMON TAGS

OF PARAMETER POINTERS
PRMO
.WORD
PRM)
.WORD
PRM?
.WORD

;REPEAT COUNTS FOR ALL TESTS
;FIRST

CYLINDER

sLAST CYLINDER
; INCREMENT CYLINDER
;FIRST

SLAST

TRACK

TRA(K

s INCREMENT TRA(K
SFIRST SECTOR
;LAST SECTOR
.PATTERN CODE

;NEw CYLINDER ADDRESS
sNEw CYLINDER ADDRESS

SEa 004

2094
2095
2096

2097
2098

=, DOWNONE
WA 2 OOVBNONE W —2OO0WNO
NN —-O O

D e

iy e

e o

el e

e el

el e

il e

AN N AN N ANANNO NN NP NV RO PONUN) b = st bt et s it s 2 O

AT NI VL V1, Y WL VT VT V] ST VI NI N V1 VT, VI VI VL VI VL VI S 1 U RN iV VI, V], V] V1 VI, V], V1,V

2099
2100
2101
2102

001544
001546
001550
001552
001554
001556
001560
001562
0n15¢64
001566
001570
001572
001574
00:576
001600
C21002
001604

002414

.WORD

002436

002460
002502
002524
002564
002564
002606
000622
002¢ 56
002652
002666
002700
062712
002744
002760
000000

.PARAMETER

001632
001634

001636
001640
001642
001644
001646
001650
001652
001654
001656
001660
001662

063146
043150
0643153
063156
043162
063166
063171
043174
063177
063202
043205

PRMMSG:

001622

001630

PRM6

.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
PRMLMT:

001624
001626

.WORD

032767
000632
000632
001456
001456
001456
000022
000022
000022
000025
000025
177777

001606
001610
001612
001614
001616
001620

PRM

.WORD
.WORD

UPPER

_WORD
.WORD
.WORD

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

13:59

PAGE 46

SEQ 0042

PRM3

.WORD

26-MAY-79

PRMS

PRM7
PRMI(

PRM11

PRM1?
PRM13
PRM14
PRM15
PRM16
PRM17
PRM20
PRM21
PRM2?
0
LIMIT

32767
&
&

8
8
8
1
1
1
2
2
1 777

s TERMINATOR

Y
7. X7) —_— YO

2086
2087
2088
2089
2090
2091
2092
2093

30A(1052)

~ -— e
- v

CIRJIAD RPO&L/S/6 MECHANICAL AND READ/WRITE TEST
MACY1Y
CIRJAD.PIN
28-MAR-79 11:28
(OMMON TAGS

:'“PAT“

;TABLE OF MESSAGE POINTERS
.WORD

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

MSG.R

MSG.FC
MSG.LC
MSGFC(CP
MSGLCP
MSC.IC
MSG.F1
MSG.LT
MSG.I1
MSG.FS
MSG.LS

;JSTATUS/ERROR INDICATOR MESSAGES POINTER TABLE

001664
001672
001700
001706
001714
001722
001726
001734
001742

001125
001456
003377
000200
000000
000000
001177
000632
000001

000310
000000
000144
000000
000000
000000
000001
000000
000000

000632
000000
000000
000400
000000

000000
001456
000000

;DEFAULT VALUES OF TEST PARAMETERS

DFLT:

.WORD

1125,200.,610.,814.,0,0 ;RECAL/SEEK

(T0)

.WORD

3377,100.,0,128.,0,256.,0,0,0,0,0 ;SEEX/SEEK (T1)

.WORD

1177,1,0,410.,0,814.,1,0,0 ;INCREMENT SEEx (T2

CIRJAD RPO&/S/6 MECHANICAL AND READ/WRITE TEST
MACY1T
CIRJAD.PVY
28-MAR-79 11:28
COMMON TAGS

—

AV I VY W

H
(o BNV K ALY IV IV IV I SV LV,
OOV
VNO VWS W
—0 Y oo

VI V] GY V], U) S, V1, VY Y,V

2162
2143

002066
002074
002100
002106
002114
002120
002126
002134
002142
002150
002156
002164
002172
002200
002206
002214
002222
002230
002234
002242
002246
002254
002262
002270
002276

002300
002306
002314
002322

001177
0004600
000001
001177
000632
000001
001177
000632
000001
001177
000632
000001
000337
000632
000000
000177
000632
000144
001177
000632
000001
001113
000000
000037
000632
000037
000210
000037
000632
000113
000000
001013
000000

007777
000632
000100
000001
177777
000037
000632
000037
000210

000010
000000
000000
000001
000000
000000
000001
000000
000000
000001
000000
000000
011610
000000
000022
000001
000000
000000
000001
000000
000000
000001
000000
000001
000000
000001
000000
000001
000000
000001
000000
000001
000000
000001
000090
000000
000001
047040
000000
011610
000000

SEQ 0043

i177,1,0,410.,0,814.,1,0,0 ;OSCILLATING SEEK

.WORD

1177,1,0,610.,0,814.,1,0,0 ;CONVERGING/DIVERGING SEEK

.WORD

1177,1,0,410.,0,816.,1,0,0 ;SERVO ADDRESSING LOGIC NOISE

.WORD

337,5000.,0,410.,0,814.,0,18.

000000
001456

.WORD

177,1,0,610.,0,814.,100.,0

000000
001456
000000
000000
000000
000000
001456
000000
000377
000000
001456
000000

.WORD

1177,1,0,410.,0,814.,1,0,0

.WORD

1113,1,0,0,0,0

.WORD

37,1.0,410.,0,814.

;ONE CYLINDER SEEK TIMING TEST

.WORD

37.1,0,136..,0,255.

sACCESS TIME MEASURMENT TEST (T114)

.WORD

37,1,0,410.,0,814.

;MAXIMUM SEEK TIMING TEST

.WORD

113,1,0,0.,0

:SECTOR ADDRESSING TEST

000000

.WORD

1013,1,0,0,0

: TRACK ADDRESSING TEST

000000
001456
000022
000000

.WORD

7777,1,0,410.,0,814,,64.,0,18.,1,1,0,177777 ;DATA TEST

000000
001456
000000
000377

.WORD

37,20000.,0,410.,0,814.

;EXERCISER

.WORD

37.5000.,0,136.,0,255.

;RPO& ACCESS TIME ADJUSTMENT TEST

001456
000000
000000
001456

TABLES

003377

ORM1:

s SEEK/SEEK (T1)
.WORD
.WORD

002344
002346

.WORD

.WORD
.WORD

002330
002332
002334
002336
002340
002342

—

;RECAL/SEEK (T0)
.WORD
.WORD
.WORD

OO0
&N — s ) b
S oo

i
el el
e
el
e
e
e

PAGE &7

.WORD

PRMO:

P e
il

13:59

1177,10,0,256.,0,256.,1,0,0 ;STEPPING SEEK

001125
000310
000632
001456
000000
000000

000144

&
E
24-MAY=79

.WORD

000000
000400
000000
000000
001456
000000
000000
001656
000000
000000

JPARAMETER

i o

B o

172

001750
001756
001764
001772
002000
002006
002014
002022
002030
002036
002044
002052
002060

30AC1052)

(T3)
(T4)

;RANDOM SEEK TEST

SEEKS TEST

ROTATIONAL SPEED TIMING TEST

(T16)

(17)

;SERVO SETTLE DOWN TEST
SALL

(T5)

(T10)

(T11)

(T112)

(113)

(T15)

(T116)
(T17)
(120)

(T121)

(T122)

002400
002402
002404
002406
002410
002412

002414
002416

002420
002422
002424
002426
002430
002432
002434
002436
002440
002442
002444

002446

002450
002452
002454
002456
002460
002462
002464
002466

002470
002472
002474
002476
002500
002502

PAGE 48

SEQ 0046

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

;STEPPING SEEK

PRM3:

001177
000001
000000
000632
000000
001456
000001
000000
000000

PRMS:

001177

PRMS:

000000
000000

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

JOSCILLATING SEEK
.WORD
.WORD
.wORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

(T4)

1177
1

0
610,
0

814,
1

0
0

; CONVERGING/DIVE RGING SEEX

000632
000000
001456

000001
000000
000000

001177

13:59

- INCREMENT SEEKX

PRM?
:

001177
000001
000000
000400
000000
001000
000001

000001
000000

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

1177
1

(15)

610.

0
814.
|
0
0

;SERVO ADDRESSIN 6 ‘5961( NOISE
1
.WORD

GENERATOR (16)

:
PRM6

—_—

001177
000001
000000
000632
000000
001456
000001
000000
00000C

24-MAY-79

|
o0

002372
002374
002376

002360
002362
002364
002366
002370

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

000000
000200
000000
000400
000000
000000
000000
000000
000000

(Val

002350
002352
002354
002356

2198
2199
2200
2201
2202
2203
2204
2205

Z0A(1052)
OODOOONO—O

CIRJAD RPO&L/S/6 MECHANICAL AND READ/WRITE TEST
MACY11
CIRJAD.PIY
28-MAR-79 11:28
COMMON TAGS

2290
2291
2292

2293

2294

2295
2296

2297

2298
2299
2300
2301
2302
2303

2304
2305
2306
2307
2308
2309

000001
000000
000000

PRM7.

002542

000022

002544
002540
002550
002552
002554
002556
002560
002562

000177
000001
000000
000632
000000
001456
000144
000000

PRM10:

002564
002566
002570
002572
002574
002576
002600
002602
002604

001177
000001
000000
000632
000000
001456
000001
000000
000000

PRM11:

002606
002610
002612
002614
002616
002620

002622
002624
002626
002630
002632
002634

001113
000001
000000
0000C0
000000
000000

000037

000001
000000

000632
000000
001456

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

—

5000.

610.
0
814,
0
18.

. SERVO SETTLE DOWN TEST

JALL SEEKS TEST
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

177

(110)

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

o r

002532
002534
002536
002540

24=-MAY=79

.RANDOM SEEK TEST (17)
.WORD
337

000337
011610
000000
000632
000000
001456
000000

00252¢
002526
002530

—

001456

000632

000000

- OO
—

.WORD
.WORC
.WORD
.WCRD
.WORD
.WORD
.WORD
.WORD

000000

22N
2272
2273
2274
2275
2276
2277
2278
2279
2280
2281
2282
228%
2284
2285
2286
2287
2288
2289

000001

—

2264
2265
2266
2267
2268
2269
2270

00250¢
002506
002510
002512
002514
002516
002520
002522

O—=WOHrO—

2254
2255
2256
2257
2258
2259
2260
2261
2262
2263

30A(1052)

CIRJAD RPO4/S5/6 MECHANICAL AND READ/WRITE TEST
MACY11
(IRJAD.PVI
28-MAR-79 11:28
COMMON TAGS

( 111)
1 177
|

4 1C.

0
8 14.
1

0
0

.ROTAT]ONAL SPEE D TIMING TEST
1 13
PRM1?2:
.WORD
1
.WORD

.WORD
.WORD
.WORD
.WORD

;ONE

PRM13

CYLINDER

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

(T12)

0
0
0
0

TIMING TEST

4 10.

0
8 14,

(113)

13:59

PAGE 49

SEQ 0045

VY ST ST ) ~o
ST VT N7 VY. VY V7 V7 ST S, VY N1 ST Y

VO N
B NN
O®

AN L

UM L L

N L

N U

f
NIV IVAVIVAVAVAVIVAVY
(B 0 S0 P A

AN L [V AV IV RV IV IV TV TV YA

Y ST.NT VY VT VY. V7. VY. VY. O7 V1. V1. VY VY VT.VY VL VT VT, V1 VT, V7 VY VT VT, VT VT VY VT VY. VT VY VY.V

TV T [V AV AV SV LF AV LV V. IV JV IV

I al WEV IV TV TV YV RV ALV IV WHANPNOPORNINIRNIPININININ)
b b s d s et et b s Pd
= OO0B
N
N v} N
OOV
NOVNEWN
2OV ~NO NE WA —=O 000N
NN
- (=]

vV JV IV JV LV IV IV IV IV ] v

MACY11
(IRJAD RPO&/S/6 MECHANICAL AND READ/WRITE TEST
(IRJAD P11
2B8-MAR-79 11:28
COMMON TAGS

002636
002640
002642
002644
002646

002650

000037
000001
000000
000210
000000
000377

002652

000037
000001
000000
000632
000000
001456

002666

000113
000001
000000
000000

002654
002656
002660
002662
002664

002670
002672
002674
002676

001013
000001
000000
000000
000000

002712
002714
002716
002720
002722
002724
002726
002730
002732
002734
002736
002740
002742

007777
000001
000000
000632
000000
001456
000100
000000
000022
000001
000001
000000
177777

002744
002746
002750
002752
00275¢4

000037
047040

002756

000632
000000
001456

002760
002762

000037
011610

&
H
24=-MAY-79

JACCESS TIME MEASURMENT TEST

PRMI4&:

. WORD

.WORD
.WORD
.WORD
LMWORD
.WORD

1
¢
136.
O
255.

SMAXIMUM SEEXK
PRM1S:
_WORD

TIMING
37

.WORD
.MORD
.WORD
.WORD
.WORD

TEST

13:59

(T14)

(T15)

)
O
$10.
0
814,

;SECTOR ADDRESSING TEST (116)

PRM16:

000000

002700
002702
002706
002706
002710

.
30A(1052)

. TRACK
PRM17:

.WORD
.WORD
.WORD
.WORD
.WORD

113
1

0
0
0

ADDRESSING TEST
.WORD
1013

.WORD
.WORD
.WORD
.WORD

(117)

1
0
8

;DATA TEST (120)
PRM20:
.WORD
7777
1
.WORD

LWORD
.WORD
.WORD
.WORD

0
410,
0
814,

.WORD
.WORD
.WORD

0
18,
1

.WORD

PIRN1S:

.WORD

JEXERCISER (721)

PRM21:

,WORD

1 iz

.WORD

50000.

LWORD
.WORD
.WORD

410.
0
814,

.WORD

000000

64.

RPO& ACCESS TIME

PRM22:

.WORD

ADJUSTMENT

5000.

TEST

(V20

PAGE

SEQ 00«6

CIRJAD RPDL/5/76 MECHANICAL AND READ/WRITE TEST
MACYI1
1
CIRJAD P1
28-MAR-79 11:28
COMMON TAGS

002764
002766
002770
002772

000000
000210
000000
000377

.WORD
.WORD
.WORD
.WORD

JSEEK
043710
003142
003244

003004
003006
003010
003012

043710
000000
003131
003255

003014
003016
003020
003022

043742

00302¢
003026
003030
003032

0464026
064074
000000
012574

T11:

003034
003036
003040
003042

0446111
044153
000000
012574

12:

003044
003046
003050
003052
003054
003056
003060
003062
003064
003066
003070
003072
003074
003076
003100
003102

003104
003144
003204
003244
003304
003344
003404
003444
003504
003544
003604
003644
003704
003744
004004
004044

PAT.PT:

000000

044011
000000
001750

SN
YA
N

(O LV
"RV)

(VW JVIRV

al) ———

13:59

msSG7

178:

.WORD
.WORD
.WORD
.WORD

RSG7
0
1625.
1709.

110:

.WORD
.WORD
.WORD
.WORD

MSG10A
MSG108
0
1000.

.WORD
.WORD
.WORD
.WORD

MSG11A
msG118

.WORD
.WORD
.WORD
.WORD

MSG12A
MSG12B
0

5500.

$(50¢2) 00

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

PATO
PAT1
PAT2

;TABLE OF
sPATTERNS

PATO:

PAGE

SEQ 0047

0
136.
0
255,

.WORD
.WORD
.WORD
.WORD

T1?A:

SPATTERNS 0 THRU

——l

4
1
26-MAY=79

TIMING LIM]TS

002774
002776
003000
003002

[ HV T

0DOOO0 ~i~~

30A(1052)

.WORD
.WORD
.WORD

0
1634.
1700.

0
5500.

:(16.67=2%)
0
2(16.6742%
00
)

;NO LOWER LIM]1
;(743)ee

;NO LOWER LIMIT

:(2842) 00

;NO LOWER LIM]T

PATS
PAT«

PATS

PATE

PAT?

PATS
PATO
PATIO
PATIY
PAT1?
PAT13
PAT14
PATIS

169959
153333
165559

(PATTERN O

POINTERS wHI(H POINT TO
USED BY THE DATA TEST

Twt

2461
2462

2663
2464

2465
2466
2467
2468
2469
2470
2671
2472
2473
2674
2475
2476
2677

b
el
B cowod

13:59

1JV To
YV

o
ol
ol
el
il
il
)
el

24-MAY-79

[V RV IV RV TV RV IV IV IV LV IV IV IV
W W
WV
NN
N WY AN N N
(O RV IV LV IV RV LV IV SV RV IV IV V]
(VLW IV RV VRV TV RV VRV IV LV IV ]

133333

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

30AC1052)

(VT
RV 1o XV
ToRV To XV

003142

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

NN
N
NONO

2622
2623
2624
2625
2626
2627
2628
2629
2430
263
2632
2433
24364
2635
2436
2637
2638
2639
2440
2641
2462
2443
2444
2445
2446
2647
2448
2449
2650
24651
2452
2453
2654
2455
2456
2657
2458
2459
2460

VALV LV VIV IV IV IV LV TV IV TV
YL
Y LN Y N AN N NS W
AL
AL RSl V RV IV IV RV 2V e
(AR AV IV RV IV LV VLV IV IV [V

MACYTT
CIRJAD RPO4/S/6 MECHANICAL AND READ/WRITE TEST
CIRJAD.P1T
28-MAR-79 11:28
(OMMON TAGS

003144
003146
003150
003152
003154
003156
003160
003162
003164
003166
003170
003172
003174
003176
003200
003202

000001
000003
000007
000017
000037
000077
000177
000377
000777
001777
003777
007777
017777
037777
077777

PATY:

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

;PATTERN

003204
003206
003210
003212
003214
003216
003220
003222
003224
003226
003230
003232
003234
003236
003240
003242

177776
177774
177770
177760
177740
177700
177600
177400
177000
176000
174000
170000
160000
140000
100000

PATZ:

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

sPATTERN ¢

000000

000000
000000
000000
177777
177777
177777
000000
000000

PAT3:

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

000000
000000
000000
177777
177777
177777
000200
00000

003244
003246
003250
003252
003254

003256
003260
003262

177777

000000

;PATTERN

PAGE 52

SEQ 0048

CIRJAD RPOL/5/6 MECHANICAL AND READ/WRITE TEST
MACY11
CIRJAD P
28-MAR-79 11:28
COMMON TAGS

007417
007417
007417
170360
170360
170360

007417
007417
170360
170360

007417

170360

007417

PATG:

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

NN
VNSNS
NWNWO
OO
NN
N = NN N
~NO N
NN —
RO NN WNN NN NI NN N AN
[pS
AW T NN T NN AVRN
T VI NN
VAW LWNN
.} G} S Y RV TVN LV,
}
NN
N
(AT T SR T VRV L N1 SRV RV ] NI N VRV LV IV )

003404
003406
003410
003412
003414
003416
003420
003422
003424
003426
003430
013432
003434

O~N~N~N
[0 ol
P o
b et b
QO ~N~N~N

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

003352
00335¢4
003356
003360
003362
003364
003366
003370
003372
003374
003376
003400
003402

;PATTERN &

;PATTERN 5

;PATTERN 6

o O
o

003350

.WORD
.WORD

PATS:

003344
003346

.WORD
.WORD
.WORD
.WORD

13:59

106210

1064210

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

NO VNS NN —

063146
073567

—

042104
052525

000000
0104621
021042
021463
042104
052525
063146
073567

= OO

031463

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

PATG:

24-MAY-79

000000
177777
000000
177777

et OO

000000
010421
021042

177777
177777
000000
177777

003304
003306
003310
003312
00331¢
003316
003320
003322
00332¢
003326
003330
003332
003334
003336
003340
003342

177777
000000
7777

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

S, Ot Ot O

177777
177777
000000
177777
000000

[QVIV T NV T NIV 1 L UV RV 1 S V] VAV LV RV, }

2481
2682
2483
2484
2485
2486
cu87
2488
2489
2490
2691
2492
2493
24694
2495
2496
2497
2498
2499
2500
2501
2502
2503
2504
2505
2506
2507
2508

003264
003266
003270
003272
003274
003276
003300
003302

NNOOO

2678
2679
2480

30AC1052)

170360

007417
007417

17036C
170360

007417
170360

007417

PAGE 53

SEQ 0049

003544
003546
003550
003552
00355¢
003556
003560
003562
003564
003566
003570

003572
003574
003576

003600
003602

003604

000001
000002
000004
000010
000020
000040
000100

000200

000400
001000

002000
004000
010000
020000
040000

.WORD
.WORD
.WORD

10€000

177776

PATI0:

.WORD

(S RV, 1 SRV, ] S AV ] N1 VIV, V1,91, V], V]

NN WD

VRV TV RV

VIV

AN AN AN N AN NN N NN NN

TRV TV TRV TV

;PATTERN 8

(VIR

AN NN NANANS

RV LU SV RV IV AV

W B

NN NN NN WO RO N

Ot Ot Ot et (POt ot
WS W
NS
N S BN
LV LV RV IV RV IV AV ]

NS NN W UMWY

Ot Ot Ot =2 OO et

[V 1, NIV T NIV I NIV IV, ] N1 VIV IV IV ]

i
e
e
i
i
i
D

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

PAT9:

(U R

33333

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

13:59

026455

NN AN NN NN AN N NN NN N WD
RNV RVLLV LV LV LV SV RV LV RV IV ]
AV ] [V RV AV RV AV RV SV AV SV LV VLV
V]
N (W RV LV RV SV RV W AV SV RV IV RV NV ]

PATS:

\¥ ] [V

i
el el
)
D
nh
ol
o
i
e

kol 1o AV To NV 1o 3V Lo 3V 1o JV 10

151322

26-PAY-73

;PATTERN

151322

026455

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

151322

026455
151322
026455

003512
003514
003516
003520
003522
003524
003526
003530
003532
00353¢
003536
003540
003542

151322

026455
026455
151322

003504
003506
003510

PAT7:

007617
170360

026455
026455
026455
151322
151322

170360

003444
003446
003450
003452
003454
003456
003460
003462
003464
003466
003470
003472
003474
003476
003500
003502

.WORD
.WORD
.WORD

170360
007417
170360

—

003436
003440
003442

—

2534
2535
2536
2537
2538
2539
2540
2561
2542
2943
2544
2545
2546
2547
2548
2549
2550
2551
2552
2553
2554
2555
2556
2557
2558
2559
2560
2561
2562
2563
2564
2565
2566
2567
2568
2569
2570
2571
2572
2573
2574
2575
2576
2577
2578
2579
2580
2581
2582
2583
2584
2585
2586
2587
2588
2589

30A(1052)

(V1o WV Yo RV Yo WV 1o AV To NV To NV To XV Te ]

(IRJAD RPO4/S/6 MECHANICAL AND READ/WRITE TEST
MACYT1
CIRUAD.PYY
28-MAR-79 11:28
COMMON TAGS

000001
000002
000004

;PATTERN 9

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

177776

(PATTERN

PAGE 54

SEQ 0050

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

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

066667
153333

066667
155333

066667

PAT13:

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

~N =~ NNNNNNWNO

N NN

~N~ NNNNNNNNANNO
NN
~N~ NNNNNNNNNNNWW

13:59

666
666

666
555

.WORD
.WORD
.WORD
.WORD

24-MAY-79

wvo

o
e
o
el
el
i e
i
il e

.WORD
.WORD
.WORD

SPATTERN

153333

o
o
o

003744
003746
003750
003752
003754
003756

5555
2666

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

30A(1052)

NNN~NN

~
~=~
N~ ~~

NN~ -~~~ WV
NN~ ~INN NN NNV o~
NN NN SNSNSNNN ~ui

e Y R

NN
N SNSNSNSNSN
NSNS
NNNWWVON
NSNNNN

[ I

WNWNWNWNMNMNU‘;WN

PAT12:

i oo

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

003704
003706
003710
003712
003714
003716
003720
003722
003724
003726
003730
003732
003734
003736
003740
003742

003674
003676
003700
003702

2617
2618
2619
2620
2621
2622
2623
2624
2625
2626
2627
2628
2629
2630
2631
2632
2633
2634
2635
2636
2537
2638
2639
2640
2641
2642
2643
2644
2645

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

PAT11:

003644
003646
003650
003652
003654
003656
003660
003662
003664
003666
003670
003672

2599
2600
2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
2615
2616

003606
003610
003612
003614
003616
003620
003622
003624
003626
003630
003632
003634
003636
003640
003642

b e

2590
2591
2592
2593
2594
2595
2596
2597
2598

)

MACY1Y
CIRJAD RPO4/S/6 MECHANICAL AND READ/WRITE TEST
CIRJAD P
28-MAR-79 11:28
COMMON TAGS

;PATTERN 12

677

sPATTERN 13

066667

PAGE 55

SEQ 005

MACYTI1
CIRJAD RPO4/S/6 MECHANICAL AND READ/WRITE TEST
CIRJAD P11
28-MAR-79 11:28
COMMON TAGS

2677
2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689
2690
2691
2692
2693
2694
2695
2696

2697
2698
2699
2700
2701

177777
\77777
177777

.WORD
.WORD
LWORL
.WORD
.WORD
LWORD
.WORD
.WORD
.WORD
.WORD

004032
004034
004036
004040

vy
177777
1772777
177777

.WORD
LWORD
LWORD

177777
177777
177777

004042

177777

.WORD

177777

0046044

177777
0
oo
000000
000000
000000
000000
000000
000000
000000
000000

.WORD
.WORD
.WORD
.WORD
.WORD

177777
000000
000000
000000
000000

004046
004050
004052
004054
004056
004060
004062
004064
004066
004070
004072
004074
004076
004100
004102

153333

066667

153333
066667
PAT14:

“?77

\F7777

.WORD

000000

.WORD

PAT1S5:

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

000000
000000
000000
000000
000000
000000

177777
177777
177777
177777
177777
177777
177777
177777
177777
177777

;PATTERN

PAGE

177777

;PATTERN 15

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

:DPB (DATA PARAMETER BLOCK)
004104
004105
004106

004107

004110
004112

000
000
000
000
000000
050202

DPB.A:-

.BYTE
.BYTE
.BYTE
.BYTE
LWORC

. WOkD

0
0
0
0
0

BUFFER

e Y
[AVERY]

0€)000
177777
177777
77777
177777

066667

153333
066667
153333
(066667
153333
066667
153333
066667
153333
066667

s
o (
i (
3
i (
:(6)

t” Nmt

2674
2675

004004
004006
004010
004012
004014
004016
004020
004022
004024
004026
004030

153333

.WORD
LWORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD

2654
2655
2656
2657
2658
2659
2660
2661
2662
2663
2664
2665
2666
2667
2668
2666
2670
2671
2672
2673

153333
066667
153333
066667

13:59

2653

003760
0C5762
003764
003766
003770
003772
003774
003776
004000
004002

&
N
24=-MAY=-79

NN
- O

2646
2647
2648
2649
2650
2651
2652

30A(1052)

DRIVE NUMBER

OFFSET VALUE OR FMT22, ECI, AND W(I
COMMAND

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

;REGISTER TABLE POINTER

SEQ 0052

CIRJAD RPO4/S/6 MECHANICAL AND READ/WRITE TEST MACY11 30A(1052)
(IRJAD.PYY
2B-MAR-79 11:28
(OMMON TAGS
2702
2703
2704
2705
2706
2707
2708
2709

004114

000

.BYTE

004115

000

.BY'E

004116
004120

000000
004204

.WORD
.WORD

G
RP.REG

2710
PEAR
2712
271%
PRAYA
2715
2716

004122

2719

004124

2723
27264
2725
2726
2727
2728
2729
2730

006130
004132

177776
050202

004134

g;}g

2720
2721
2722

2731
27%2
2733

274

000000

.WORD

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

:JERO REGISTERS ARE NOT SAVED.
:(16) STATUS/ERROR INDICATOR
:B1115=1=>ERROR OCCURRED
:B1107=1=>DONE
:BIT14-BIT09 AND BIT06-BIT03

.BYTE

:(0) DRIVE NUMBER

.WORD
.WORD

-2
BUFFER

000

BYTE

004135

000

BYTE

004136
0064140

000000
004204

.WORD
.WORD

0
RP.REG

;(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

004125
004126
004127

000

000
000
000

pDPB.B:

.BYTE
.BYTE
.BYTE

0
0
0

(1) OFFSET VALUE OR FMT22, EC]1, AND H(j
: (2) COMMAND
:(3) PSEL AND A17 AND Alb

:(14) ERROR TABLE POINTER
:POINTS TO THE FIRST OF TWENTY
:LOCATIONS OF WHERE THE DRIVER

;1S TO STORE THE RMI1/RP0O4
;REGISTERS ON AN ERROR, [F LEFTY

004142

.WORD

000000

:ZERO REGISTERS ARE NOT SAVED.
:(16) STATUS/ERRCR INDICATOR
.BIT1S=1=>ERROR OCCURRED
;B1107=1=>DONE
;BIT14=-BIT09 AND BIT06-B1103
:INDICATE TYPE OF ERROR

DPB.C:

.BYTE

:(0) DRIVE NUMBER

.BYTE
.BYTE
.WORD
.WORD

O
0
-2
BUFFER

: (2) COMMAND
.(3) PSEL AND A17 AND Al6
:{&) WORD COUNT (MUST BE NEG.)
:(6) BUFFER ADDRESS OR
:REGISTER TABLE POINTER
.(10) SECTOR ADDRESS OR
;FIRST REG. INDEX
;(11) TRACK ADDRESS OR
;. AST REG. INDEX
;(12) CYLINDER ADDRESS

004144

000

27645
2746
2747
27648
2749
2750
2751
2752
2753
275«

004146
004147
004150
004152

000
000
177776
050202

004154

000

.BYTE

004155

000

.BYTE

004156

000000

.WORD

2755
2756
2757

PAGE 57

;INDICATE TYPE OF ERROR

27643

2744

13:59

;1S TO STORE THE RM11/RPO4
:REGISTERS ON AN ERROR. IF LEFT

273
2735

2736
2737
2738
2739
2740
2;4;

B §
24-MAY-73

004145

004160

000

004204

.BYTE

.WORD

RP.REG

(1) OFFSET VALUE OR FMT22, ECI, AND HWCI

:(14) ERRUR TABLE POINTER
;POINTS 10 THE FIRST OF TWENTY

:LOCATIONS OF WHERE THE DRIVER

SEQ 0053

2797
2798
2799
2800
2801
280°2

2803
2804
2805
2806

2807
2808
2809
2810
2811

2812

2813

»
.

004175

000

BYTt

004176
004200

000000
004204

.WORD
.WORD

004202

000000

.WORD

P.REG

SEQ 0054

1709 AND BiT06-B81103

TYPE OF

ERROR

= O

DRIVE NUMBER

OFFSET VALUE OR FMT22, ECTY,
COMMAND

PSEL AND A17 AND A6

WORD COUNT (MUST BE
BUFFER ADDRESS OR
GISTER TABLE POINTER
0) SECTOR ADDRESS OR
RST

REG.

TRACK

;LAST REG.

VWO

BYTE

00C

004174

“....

TATUS/ERROR INDICATOR
1=>ERROR OCCURRED
1=>DONE

SO PN

0.
04
s
®c

UFFER

PAGE

O STORE THE RH11/RPO4
STERS ON AN ERROR. IF LEF?T
EGISTERS ARE NOT SAVED.

.WORD

®a

.BY1t
BYTE
.BYTE
.BYTE
.WORD

DTADPB:

13:59

— DD
~ P XD
E
e MM
O -t = - OV
—t ot O o r () P =4
[ X 2R 1Y, ]
» 0
hoD
— O

IR
IRIR
TR IR

24=-MAY-79

A D~~~
—~

00C
000
000
000
000000
050202

.WORD

WOOOOO

004164
004165
004166
0046167
004170
004172

000000

AND HCI

NEG.)

INDEX

ADDRESS OR

INDEX

“12)
,(14)

CYLINDER ADDRESS
ERROR TABLE POINTER

;(16)

STATUS/ERROR

;POINTS TO THE FIRST OF TWENTY
;LOCATIONS OF WHERE THE DRIVER
;1S 10 STORE THE RH11/RPO4
;REGISTERS ON AN ERROR. IF (EFT
;JERO REGISTERS ARE NOT SAVED.
INDICATOR

:BIT15=1=>ERROR OCCURRED
:B1707=1=>DONE
;BIT14-BIT09 AND B]1T06-B1103
;INDICATE TYPE OF ERROR

;SAVE RH11/RPO4 REGISTERS HERE ON ERROR
004204
004206
004210
004212
004214
004216
004220

004222
004224

004226

004230
004232
004234
004236
004240
0046242
004244
004246

004250

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

000000
000000
000000
000000
000000
000000
000000
000000

RP.REG:

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

27170
21N
2772
2773
2774
2775
2776
2777
2778
2779
2780
2781
2782
2783
2784
2785
2786
2787
2788
2789
2790
2791
2792
2793
2794
2795
2796

004162

OOOOOOODOOOOOOOOOOODO

2758
2759
2760
2761
2762
276%
2764
2765
2766
2767
2768
2769

30A(1052)

MACY11
CIRJAD RPO&L/S5/6 MECHANICAL AND READ/MRITE TEST
CIRJAD P11
28-MAR-79 11:28
(OMMON TAGS

:RPCS1 (776700) CONTROL & STATUS #1
;RPWC (776702) WORD COUNT
;RPBA (776704) BUS ADDRESS
;RPDA (776706) DESIRED SECTOR/TRA(K
;RP(CS2 (776710) CONTROL & STATUS #/
;RPDST (776712) DISK STATUS
;RPERY (776714) ERROR REG. M1
;RPAS (776716) ATTENTION SUMMARY
;RPLA (776720) LOOK AHEAD
;RPDB (776722) DATA BUFFER
;RPMR (776724) MAINTAINABILITY
;RPDT (776726) DRIVE TYPE
;RPSN (776730) SERIAL NUMBER
;RPOF (776732) OFFSET
;RPCA (776734) DESIRED CYLINDER
;RPCC (776736 CURRENT CYLINDER
;QPER2 (776740) ERROR REG #?
;RPERY (776742) ERROR REG #3
JRPECY (7767440 ECC POSITION

CIRJAD RPOG/5/6 MECHANICAL AND READ/WRITL TEST
RMACYY1
CIRJAD PN
28-MAR-79 11:28
(OMMON TAGS

28146
2815
2816
2817
2818
2819
2820
2821
2822
2823
2824
2825
2826
2827
2828
2829

004252

000000

004254
006256
004260
006262
004264
006266
004270
004272
006274
004276
004300
004302
004304

045212
04525¢
045309
045327
045355
045400
048437
045501
065548
045615
045635
0457925
045759

.WORD

30A(1052)

264-MAY-79

. STATUS/ERROR MESSAGE POINTER
MSGB14
STAIBL: .WORD

.WORD
.WORD
.WORD

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

MSGB13
MSGB1?
#SGBY!
MSGB10
MSGBO9
MSGBO8
MSGBO6
MSGBOS
MSGBOG
MSGBO3
MSG6BOZ
MSGBOY

13:59

JRPEC2

PAGE

(776746)

99
ECC

Sea 0055
PATTERN

TABLE

;OFFLINE OR UNSAFE DR]IVE REQUESTED
;UNLOAD DRIVE REQUESTED
SPERSISTENT UNSAFE
sPARITY ERROR OCCURRED
;FATAL PARITY ERROR

;SOF TWARE TIMEOUT ON THIS DRIVE
;SOFTWARE TIMEOUT ON ANOTHER DR]VE
;ERROR OCCURRED DURING 1/0 OPERATION

;ERROR OCCURRED DURING NON-]1/0 OPERATION
;UNSAFE OCCURRED
;AUTOMATIC

RECALIBRATE

SEQUENCE

OCCURRED

;DRIVE HAS NOT RESPONDED 1O PORT REQUEST
;DRIVE HAS BECOME NONEXISTENT

E
S
24-MAY=-79

EggJ:g g$?415/6 MECHANICA AND READ/WRITE TEST
MACYI1 30A(1092)
JAD.
28-MAR-79 11:28
ERROR POINTER TABLE

2830
2831
2832
2833
283¢
2835
2836
2837

;*THE

2877
2878
2879
2880
2881
2882

2883
2884
28R5

EMm

SEQ 0056

TABLE

INFORMATION FOR EACH ERROR THAT (AN OCCUR.

IS OBTAINED BY

USING

THE

INDEX NUMBER

FOUND

DFf

004306

::;POINTS TO THE ERROR MESSAGE

;:POINTS TO THE DATA MEADER
;:POINTS TG THE DATA

DH
D1

A
.t

::POINTS 10 THE DATA FORMAT

$ERRIB:

;*EM AND DH ARE ASCIZ MESSAGES, DT IS A STRING OF WORDS THAT POINT TO THE
;*DATA TO BE TYPED AND DF IS A STRING OF DATA THAT TELL HOW THE DT WORDS

;*ARE 1O BE TYPED.
IF ANY OF THE POINTERS ARE NOT NEEDED FOR A PARTICULAR
;*ERROR 11 IS REPLACED WITH A ZERO.

2849
2850
2851
2852
2853
2854
2855
2856

;*EACH OF
;*THE

THE

1TEMS BELOW REFER TO THE ERROR NUMBER AND

INFORMATION

THAT

WILL BE

TYPED WHEN

THE

s*UNLESS STATED OTHER ALL NUMBERS ARE OCTAL

ERROR ITEM 1

SERRPC

ot
i

004306

004310
004312
004314

ot
.t

- 0)

S$REG3

ERROR I1TEM 2
UNEXPECTED ATTENTION OCCURRED

ERR PC
$ERRPC

DRIVE
SREGT

RPDS1
RPERRS

RPAS
SREG3

RPER!
RPERRS+¢2

EM2
DH2
D12
D2

®»

064376
46030
047400
050032
%0,
v

004326
004330
004332
004334

(RPAS

DH1
DT
DF1

046013
047374
050026

:*
.

004316
004320
004322
004324

RH11 INTERRUPT OCCURED
RPAS
ERR PC

INDICATE

ERROR OCCURS.

EmMl

044333

®e

2862
2863
2864
2865
2866
2867
2868
2869
2870
2871
2872
287%
2874
2875
2876

INTORMATION

PAGE 60

;*LOCATION SITEMB. THIS NUMBER 'NDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
1F SITEMB 1S 0 THE ONLY PERTINENT DATA IS (SERRP().
J*NOTEY:
;*NOTEZ:
EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:

2847
2848

2857
2858
2859
2860
2861

ERROR POINTER

;*THIS TABLE CONTAINS THE

2838
2839
2840
2841
2842
2843
2844
2845
2846

.SBTTL

13:59

ERROR

1TEM 3

MASSBUS PARITY ERROR
TEST

$TMPO

ERR PC

SERRPC

(MCPE-1)

ADDRESS DATA

RD.ADR

RD.WRD

Em3
DH3
D13
DF3

044434
046116
047416
050036

;v
.

ERROR ITEM &

MASSBUS PARITY ERROR (PAR:1)
ADDRESS GDDATA
ERR PC
TES1T

BDDATA

RPER?
RPERRS+4

RPER3
RPERRS+6

MACYI1 30A(1052)
CIRJAD RPO4/5/6 MECHANICAL AND READ/WRITE TEST
CIRJAD P
28-MAR-79 11:28
ERROR POINTER TABLE

9
%
*

ERROR

ERR PC

SERRPC

DRIVE
SREG1

RPAS

BIT

SREG3

SET

RPDS1

RPERRS

RPER]

RPERRS+2

RPER?2

RPER3

RPERRS+4 RPERRS+6

JTEM 6 -- NOT USED

]TEM 7 == NOT USED

2
»
.

ERROR

1TEM 10

RH11/RPO4/5/6 FAILED
RPCS1
ERR P(
RH.ADR

TO RESPOND

1O ADDRESSING

SERRPC

Em10
DH10
D110
DF10
%
8
-

s
Se

044561
046222
0467460
050046

ERROR JTEM 11

DRIVE SELECTED
ERR P(
DRIVE
SERRPC
SREGZ

1S NOT

ONLINE

EmM

©»

11
DF

ERROR ITEM 12
IMPROPER MEADER DATA
TEST

ERR PC

T1ST

DRIVE

(YLNDR

TRACK

SECTOR

SEC.DS
TRK.DS
Cv{.DS
C(WKDRY
SREGD
SERRP(
$TMPO
BDSCIR
BDTRK
BDCYL
GDSCTR
GDTRK
GDCYL

— ——

——

DH1
DTN

—

044637
066241
0467464
050052
XX

004406
004410
004412
004414

RD.WRD

0
0
0
0

000000
000000
000000
000000

#»

04402
0046404

SEQ 0057

0
0
0
0

000000
000000
000000
000000

004376
004400

DF2

004372
0046374

PAGE

EmS
DH?2
D12

044525
046030
047400
050032

ERROR
004366
004370

JTEM S

ADDRESS PLUG CHANGE

ERROR

004356
004360
004362
004364

WRT.ADR WRT.WD

13:59

29¢1

004346
004350
0046352
004354

SERRPC

EM&
DH&
D14
DF&

2939
2940

04467
046153
047626
050042

2913
2914
2915
2916
2917
2918
2919
2920
2921
2922
2923
2924
2925
2926
2927
2928
2929
293¢
2931
2932
2933
2934
2935
293%6
293%7
2938

004336
004340
0046342
004344

289N
2892
2893
2894
2895
2896
2897
2898
2899
2900
2901
2902
2903
2904
2905
2906
2907
2908
2909
2910
2911
2912

$TMPO

2886
2887
2888
2889
2890

24=-MAY-79

MACYV1 30A(1052)
(IRJAD RPOG/5/76 ME(HANICAL AND READ/WRITE TEST
CIRJAD P
28-MAR-79 11:28
ERROR POINTER TABLE

2942
2943

2944

2945
2946
2947
2948

2949
2950
2951
2952

2953
2954
2955
2956
2957
2958
2959
2960
2961
2962
2963
2964
2965
2966
2967
2968
2969
2970
29N
2972
297%
2974
2975
2976
2977
2978
2979
2980
2981
2982
2983
2984
2985
2986
2987
2988
2989
2990
2991
299?
2993
2994
2995
2996
2997

004416
004420
004422
0044624

064674
046260
047470
050056

24-MAY-79

13:59

PAGE

CYL.DS
TRK.DS
SEC.DS
CYL.RD
TRK.RD
CYUNDR, TRACK, AND SECTOR ARE DECIMAL

SEC.RD

Emy2
DH12
D112
DF12

ERROR TTEM 13

DATA COMPARE

FAILURE

TRA(K
CYUNDR
$TMPO
SERRPC
SREGO
(HKDRV
(CYL.DS
TRK.DS
GDDA1
BDDAT
WRDCNT
GDADR
BDADR
TEST

ERR

$GDDAT

CTYLNDR,

004426
004430
004432
004434

044721
046260
047522
050066

TST

SBDDAT

TRACK,

DRIVE

SREG4

SECTOR,

SGDADR

AND WRDCNT

SECTOR
SEC.DS

$BDADR

ARE

DECIMAL

Em3
DH12
D113
DF13

ERROR JTEM 14 -- FOLLOWS #13
$GDDAT

004436
004440
004642
004444

SEQ 0058

000000
000000
047540
050076

$BDDAT

$REG4

$GDADR

$BDADR

0
0
DT13A
DF14

ERROR 1TEM 15

DATA COMPARE

FAILURE

SECTOR
TRA(K
1ST PC
DRIVt
CYLNDR
CHKDRV
CYL.DS
TRK.DS
SEC.DS
$MP0
SERRP(C
SREGO
BDADR
GDADR
WRDCNT
BDDAT
GDDAT
$GDDAT
$BDDAT
$REuLs
$GDADR
$BDADR
CYULNDR, TRACK, SECTOR, AND WRDCNT ARE DECIMAL
TEST

004446
004450

004452
004454

ERR PC

Em3
DH12
D113
DF13

046721
046260
047522

050066

ERROR JVTEM 16 -- FOLLOWS #15
$GDDAT

0N&LS6
004460
004462
004464

000000
000000
047540
050076

$BDDAT

$SREG4

$GDADR

0
0

DY13A
DF 14

ERROR 1TEM 17
DISk ERROR IN TIMING TESI
TEST
ERR PC
DRIVE
RP(S!
(HKDRV RP.REG
SERRP(
$TMP0
004std

044’40

$BDADR

Emi7

RPDSI
RPER]
RPER?
RPERSY
RP.REG*12 RP.REG+14 RP.REGGD RP REGe&!

MACY!Y 30A(1092)
CIRJAD RPO4L/S5/6 ME(HANICAL AND READ/WRITE TEST
CIKk,AD P
c8-MAR-79 11:28
ERROR POINTER TABLE

2998
2999
3000
3001

004470
004472
004474

046474
04755¢
050102

Sea 0059

ERR PC

$TMPO
045000
066474
047552
050102

Em20
DH17
D117
DF17

004476
004500
004502
004504

004506
004510
004512
004514

064721
046572
047572
05010¢

ERROR 1TEM 21
DATA COMPARE
TESY

ERR

FAJLURE
PC

TST

004516
004520
004522
004524

000000
000000
047606
050116

DRIVE

CYLNDR

TRA(K

$TMPO
SERRPC
SREGO
C(HKDRV
(CYL.DS
TR¥.DS
SECTOR
WRDCNT
BDDAT
GDODAT
SREG!
$SBODAT
SREG4L
SREG!
CYLINDR, TRACK, WRDCNT, AND SECTOR ARE DECIMAL

EM13
DH21
DI
DF 21
ERROR 1TEM 22--FCLLOWS #21
SREGY!
$BDDAT
SREG4

SREG!

0
0
DI21A
DF22

ERROR 1TEM 23

DISK ERROR DURING SEEK
TEST
ERR PC
DRIVE

$IMPO

$ERRP(

RPERI

(MKDRV

RPER?2

CYLNDR
(YL.DS

RPER3

RP(S!
RP(S2
RPDSI
RP.REG RP.REG*+10 RP.REG*i2

RPCA

RPC(

RP.REG+14 RP.REG+40 RP.REG+42 RP.REG*34 RP.REG+36

004526
004530
004532
004534

045047
046707
067616
050122

Em23
DH23
0123
DF23
ERROR 1TEM 26

SEEK NOT COMPLETE WITHIN 120 MS
TEST

$TMPO

3048

3049
3050
3051
3092
3053

OVERFLOW IN TIMING TEST
DRIVE
RP(S!
RPDS1
RPERI
RPER?2
SERRF(
(HKDRV
RP.REG
RP.REG*12 RP.REG*14 RP.REG*40 RP.REG*42

TEST

3009
3010
3011
301¢
3013
3014
301%
3016
3017
3018
3019
3020
3021
3022
3C23
3C24
3025
7026
3027
3028
3029
3030
031
3032
3073
303
3035
3036
3037
3038
3039
3040
3041
3042
3043
30446
3045
3046
3047

PAGE

ERROR JTEM 20
(LOCK (KkWil=P)

3008

13:59

DM17
D117
DE17

31002

3003
3004
3005
3006
3007

24=-MAY=-79

ERR PC

SERRPC

DRIVE

(HKDRV

CYLNDR

(YL.DS

RP(SI

RPCS?

RPD<!

RP.REG RP.REG*10 RP.RIGe1?

RPER!
RPER?
RPER3
RPCA
RPC(
RP.REG+16 RP _REG4( RP.REG+42 RP,REG+34 RP_REG*30

004536
004540

045076
044707

EM24
WD PR

AND REAC/WFITE TEST
MACYIT 30A(1052)
(IRJAD RPOL/S/6 MECHANICA
CIRJAD.PVY
ERROR POINTER TABLE
28-MAR-79 11:28

3054
3059
3056
3057
3058
3059
3060
3061
3062
3063
3064
3065
3066
3067
3068
3069
3070
3071
3072
3073
3074
3075
3076
3077
3078
3079
3080
3081
3082
3083
3084

3085
3086

3087
3088
3089
3090
3091
3092
3093
3094
3095
3N96
3097
3098
3099
3100
3101
3102
3103
3104
3105
3106
3107
3108
3109

004542
004544

S€q 0060

AR ARl
lA)
RN

RRC RO RO

P ROPOOROORRORRROERRRRRORRORRRGSROROOPOROPREETSRTYT

;*
;v

ERROR JTEMS 23-40 NOY USED
ERROR ITEMS 41-46 WILL MAVE AN EM THAT

UNLOADED DRIVE REQUESTED

;v
:*
;v

&)
5)
6)

PARITY ERROR OCCURRED
FATAL PARITY ERROR
SOFTWARE TIMEQUY ON THIS DRIVE

;*
:*
:*

8)
ERROR OCCURRED DURING 1/0 OPERATION
ERROR OCCURRED DURING NON-1/0 OPERATION
9)
10) UNSAFE OCCURRED

VARIES DEPENDING ON THE ERROR, 1T WILL BE IN THE FORM:
RHVV/RPOG4/S/6 ERROR (MESSAGE)
WHERE MESSAGE WILL BE ONE OR MORE OF THE fOLLOWiING:
1)
OFFLINE OR UNSAFE DRIVE REQUESTED

PERSISTENT UNSAFE

7))

SOFTWARE

11)

AUTOMATIC

TIMEOUT ON ANOTHER DRIVE

RECALIBRATE

SEQUENCE

OCCURRED

:
ITEMGY

004546

X
B

X
X

RHV1/RPO4/5/6 ERROR

TEST
$TMPQ

ERR PC
$ERRPC

(MESSAGE)

TSY PC
SREGO

DRIVE
(HKDRY

ERROR 1TEM 42

RH11/RP04/S5/6 ERROR (MESSAGE)
TEST
ERR PC
TSY PC
DRIVE

$TMPO

SERRPC

SREGO

(HMXKDRV

RPCST

RPCS2

RP(S!
RP.REG

RP(S2
RPDST
RP.REG*10 RP.REGeY?

RP.REG

RPCS!

RP,REG*10 RP.REGe+1?2

EMms
DH&?2
D142

045136
047100
047656
050136

DF&2

s
;e

M
;e
o

0451%¢
047100
0647674

ERROR 1TEM 41

EML
DH&I
D141
DF&I

045136
067042
0467666
050132

;¢

004570
004572

CHNETRNNR

004566

PAGE

AL AEEREAA

;¢

004556
004560
00456¢
004564

13:59

D123
DF 23

047616
05012¢

;*
:*
;v
:*

004546
004550
004552
004554

24=MAY=79

ERROR ITEM 43

RH11/RP04/5/6 ERROR (MESSAGE)
TEST
ERR PC
T1ST PC
DRI1VE

$MPO
SERRPC
SREGD
RPERI
RPER?

(HKDRY
RPERY

RP.REG*14 RP.REG+40 RP,REG+4?

Eme
DM&2
D143

CIRJAD RPOL/S/6 MECHMANICAL AND READ/WRITE TEST
MACYIY 30A(1052)
CIRJAD.PY
28-MAR-79 11:28
ERROR PIINTER TABLE
;}}?

0045764

(050142
;v
I

3118
3116
3117
3118
3119

0
..
e
;e
;.

g}g?

3122
3123
31264
3125
3126
3127
3128
3129
3130
3131
3132
3133

004576
004600
004602
0046064

045136
046260
047720
050152

ERROR ITEM 44
RH11/RP0&/5/6 ERROR (MESSAGE)

TEST

ERR PC

TST PC

CYUNDR,TRACK,

ERROR 1TEM 45
RH11/RP04/5/6 ERROR (MESSAGE)
TEST
ERR PC
TST PC
DRIVE
$TMPO
SERRPC
SREGO
C(MKDRV
RP(ST
RP(S2
RPDSI

CYLNDR
(CYL.DS
RPCC

045136
046260
047760
050165
X
.
X

3147

3148
3149

A
.

3150

004616

004620
004622
004624

045162

046260
047760
050166

SECTOR

TRA(K
TRK.DS
RPCA

SECTOR
SEC.DS
RPDA

TRA(K
TRK.DS

SECTOR
SEC.DS

AND SECTOR ARE DECIMAL

EMG1
DH12
D145
DF&S
;v

3146

TRACK

RP.REG+10 RP.REG*+12 RP.REG+*36 RP.REG+34 RP.REG*06
RPER?
RPER3
RPW(
RPBA
RPDB
RP.REG*+40
RP.REG+42
RP.REG*2
RP.REG*4 RP.REGe2?2

CYLNDR,TRACK,

3143
3144
3145

CYLNDR

DECIMAL

RP.REG+14

3142

DRIVE

AND SECTOR ARE

RP.REG

004606
004610
004612
004614

SEQ 0061

$TMPO
SERRPC
SREGO
(MXKDRV
(CYL.DS
TRK.DS
SEC.DS
RP(S)
RP(S2
RPDS!
RPC(
RP(A
RPDA
RP.REG
RP.REG*+10 KRP.REG+12 RP.REG*36 RP.REG*34 RP.REG+06
RPER)
RPER?
RPER3
RP.REG* 14
RP.REG+4D
RP.REC+&2

RPERI

g}gs

3137
3138
3139
31640
3141

PAGE 65

EMG
DH12
D144
DF&&

3134

13:59

DF&3

3112
3113

3114

5
J
24=MAY=79

ERROR

]TEM &6

FATAL WRITE CHECK ERROR (MFSSAGE)
TEST
ERR PC
TST PC
DRIVE
CYLNDR
$TMPO
SERRPC
SREGO
C(HKDRV
(CYL.DS

RPCS1

RP.REG

RPERI
RP.REG+14

RP(S?2

RPER2
RP.REG+40

CYLNDR,TRACK,

EMLE

DH12
DT&S
DF&S

RPCSY

RPCC

RPCA

RPDA

RP.REG*10 RP.REG+12 RP.REG+*36 RP.REG+34 RP.REG+06

RPER3
RP.REG+42

AND SECTOR ARE

CECIMAL

RPW(
RP.REG¢2

RPBA
RPDB
RP.REG*4 RP_REG+2?2

MACY11 30A(1052)
CIRJAD RPO4/5/76 MECHANICAL AND READ/WRITE TEST
CIRJAD P11
28-MAR-79 11:28
ERROR POINTER TABLE

000416
012737
012737
000404
005037
005037
012737
000005

004750
004754
004756
0C4762
004764

012706
005026
022706
001374
012706

O W

005140
005142

O NNNNN
— NN
S
NNNNNO

005102
005106
005114
005122
005130
005136

001226
000001

035446

001226
000001

03544¢

177777
000001

001226
035446

001226
035446
001224
177777
000001

001226
035446
177777

001226
035446

001224

001140
001100

000004
005142
177570
177570
177777

005150

STARTG:

STARTS:

000020
000022
000030
000032
000034
000036
02372¢4
023726

START OF

S8#BUSADR

STRTZ2A

(LR

MOV

START3: MoV
Mov

BR
START1: CLR
CLR
STRTIA: CLR
BR
STARTS: Mov
Mov

BR
(LR
CLR

13:59

PAGE

SEQ 0062

PROGRAM

CLR

Mov

STARTZ:

001100

022724
000340
017752
000340
023252
000340
76543
123456
001204
001206
000001
005066
00507¢

~H
—_

004770
004776
005004
005012
005020
005026
005034
005042
005050
005054
005060
005066
005074

[=lePeleloleolololalelole)

3176
3177

00503/
012737
000437
005037
012737
000413
012737
012737
000404
005037
005037
005037

006626
004632
004640
004642
004646
0046654
00465¢
004664
004672
004674
004700
004704
004710
004712
004720
004726
004730
004734
004740
004746

OO0O0O0O0O

3175

.SBTTL

3157
3158
3159
3160
3161
3162
3163
3164
2165
3166
3167
3168
3169
3170
1N
3172
3173
3174

24-MAY-79

"”n,

TSTPGM

S/BUSADR
",
TSTPGM

STRT1A

:CLR BUSADR FLAG

sALLOW PROGRAMMABLE

DRIVES

“CLEAR BUSADR FLAG

“ALLOW PROGRAMMBLE DRIVES

#-1,3#BUSADR

:GET BUSADR FLAG

8#BUSADR
TSTPGM
SNCINTRLC
START

:CLR BUSADR FLAG
;DISABLE PROGRAMMABLE DRIVES

"n,
STRT1A

TSTPGM

STRTZA

DRIVES

;NO CONTROL ''C"

#-1,3#BUSADR

;ALLOW PROGRAMMABLE

TSTPGM

:SET BUSADR FLAG

;ALLOW PROGRAMMABLE

DRIVES

8#BUSADR
TSTPGM
#-1,30CNTRLC

:CLR BUSADR FLAG
;DISABLE PROGRAMMABLE DRIVES

MOV

#STACK,SP

;:SETUP THE STACK POINTER

Mov
MOV
MOV
MOV
Mov
Mov
Mov
Mov

#S$SCOPE ,a#10TVEC

STRTZA: MoV
START:
.SBTTL

;SET

CONTROL °'C'" FLAG

RESET
INITIALIZE THE COMMON TAGS
;. CLEAR THE COMMON TAGS (SCMTAG) AREA
#SCMTAG,RG
Mov
;:FIRST LOCATION 70 BE CLEARED
(R6)
¢+
CLR
;s CLEAR MEMORY LOCATION
#SWR,R6 ; ;DONE?
(mp
BNE
.=6
:;LOOP BACK IF NO

JsINITIALIZE A FEW VECTORS

CLR
CLR

MOvB
Mov
MoV

#340,3#10TVEC+2

#SERROR,IFEMTIVEC

;10T

VECTOR

FOR

SCOPE

;.EMT

VECTOR

FOR

ERROR ROUTINE

;;LEVEL

ROUTINE

#340,9MEMTVEC+2 ;;LEVEL 7
#STRAP ,S#TRAPYEC ;:TRAP VECTOR FOR TRAP CALLS
#3L0,9#TRAPVEC+2;LEVEL 7
#176543 ,SHINUM
;:PRIME THE RANDOM NUMBER GENERATOR
#123456 ,9LONUM
;:BOTH HIGH AND LOW WORDS

STIMES

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

;s INITIALIZE NUMBER OF 1TERATIONS
;:CLEAR THE ESCAPE ON ERROR ADDRESS
:;ALLOW ONE ERROR PER TEST
;o INITIALIZE THE LOOP ADDRESS FOR SCOPE
;. SETUP THE ERROR LOOP ADDRESS

:;SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR 1T IS
;;EQUAL TO A *'=1"", SETUP FOR A SOFTWARE SWITCH REGISTER.
Mov
MOV
MOov
MoV

000004
001140
001142
174002

64%:

SNERRVEC,-(SP)
¥64% ,aNERRVEC

(mp

#DSWR, SWR
#DDISP,DISPLAY
#-1,35uR

BNE

66%

65%

MOV

#65%, (SP)

;:SAVE ERROR VECTOR
::SET UP ERRCR VECTOR
;:SETUP FOR A HARDWARE SWI(H REGISTER
::AND A HARDWARE DISPLAY REGISTER
::TRY TO REFERENCE HARDWARE SWR

;;BRANCH IF NO TIMEOUT TRAP OCCURRED
;;AND
THE HARDWARE SWR
; ;BRANCH [F NO TIMEOUT

:sSET UP FOR TRAP RFTURN

]S NOT

CIRJAD RPOL/S5/6 MECHANICAL AND READ/WRITE TEST

CIRJAD.PIY

28-MAR-79 11:28

3213
32146
3215
%%}?

005146
005150
005156
005164

000002
012737
012737
012637

3218
3219
3220
3221
3222
3223
3224
3225
3226
3227
3228
3229
3230
3231
3232
3233
3236
3235
3236

005170
005174
005176
005202
005206
005212
005220
005224
005226
005234
005236
005244
005246
005252
005256
005260
005264
005264
005270

012700
005920
022700
001374
013737
013737
005227
001043
023737
001004
012737
000402
104401
005737
001402
104401

3237
3238
3239
3240
3241
3242
3243
3244
3245
3246
3247
3248
3249

3251
3252
3253
3256
3255
3256
3257
3258
3259
3260
3261
3262

005344
005346
005354
005356
005360
005362
005370
005370
005374
005376
005602
(005406

3250

3263
3264

3265

3266
3267
3268

005272
005300
005302

005737
001006

000176
000174
000004
001160

001414
001416
177777

001150
001152

000042

000046

000001

035446

050202
035446

105737
001410
004737
023727
103002

000041

104401

050466

005334

004737

021462

005340

005737

000042

005330

005412
0056416
005426

005430
005434
0056440

001006
023727
001005
104406
000403
112737
005227
001002
004737
104401
004737

005037
012737
004737

004737
004737
012737

6%:

000042

005306
005312
005314
005320
005326

66%:

6%:
5%:

043242

000011

65%:

1%:

001210

122737
001002
104401

000041

2%:
100000

3%:
.SBTTL

001140

000176

000001

001134

177777

050660
001215
024150
177776
000001
031542
024212
034650
177777

R11
MOV
MOv
mov

#SWREG, SWR
;:POINT TO SOF TWARE SwR
#DISPREG,DISPLAY
(SP)+ @#ERRVEC
;;RESTORE ERROR VECTOR

MOv
CLR
(mp
BNE
MOv
MOv
INC
BNE
cmp
BNE
Mov
BR
TYPE
187
BEQ
TYPE

#SREGAD,RO
(RO)+
#$BELL RO
%
a#TPS ,aNsTPS
a#1PB,ans1PB
"=
3%
AN ,ansb
63
n,
TSTPGM
5%
TITLE
TSTPGM
6%
+USE

sFIRST ADDRESS
;CLEAR VARIABLE STORAGE
:DONE?
:NO-~BRANCH
;SETUP THE STATUS AND BUFFER REG'S
;FOR THE TYPE ROUTINt
;FIRST START ?
;BR IF NOT
sACT11 AUTOMATIC MODE?
;BRANCH IF NO
ENABLE PROGRAMMABLE DRIVES

1S7
BNE

&2
2%

;AUTO ACCEPT OR CHAIN MODE
;BR IF EITHER

157

1LY

:sARE WE RUNNING UNDER XXDP/A(T?

68%
#1,$AUT08

;s SET AUTO-MODE INDICATOR

THE

(MPB
BNE
TYPE

050266

050562
050656

30A(1052)

INITIALIZE

001140
001142

67%:
68$%:

034572

COMMON TAGS

24-MAY-=79

BNE
CmMpP
BNE
GTSWR
BR
MovB

CLR
Mov
JSR
JSR
SETVEC: JSR
MOV

#11,41
2%
.LOADRYV

13:59

PAGE 67

SEQ 0063

:TYPE THE PROGRAM'S TITLE
;CAN WE USE PROGRAMMABLE DRIVES?
;BRANCH IF NO
:TYPE MSG
?

:LOADED FROM AN RP04/5/6 ?
;BR IF NOT
;INSTRUCT THE OPERATOR TO REMOVE THE PA(K
;ON DRIVE O IF DRIVE O IS TO BE TESTED
1STB
aral
:LOADED FROM PAPER TAPE ?
BEQ
3¢
:BR IF NOT
JSR
PC,$SIZE
;SIZE THE MEMORY
cmp
$LSTAD,#100000
;16K OR MORE ON THE SYSTEM ?
BHIS
3%
:BR IF YES
TYPE
.NOLOAD
;INFORM THE OPEATOR THAT THE 'xXXDP' LOADER
;WILL BE OVERWRITTEN
JSR
PC,STKINT
;TURN ON THE TTY KEYBOARD INTERRUPT
GET VALUE FOR SOFTWARE SWITCH REGISTER

INC
BNE
JSR
SRTINT: TYPE
JSR

001104

L-5

MACY11

67%
SWR,#SWREG
68%

. ;BRANCH IF YES
;:SOFTWARE SW]T(H REG SELECTED?
: :BRANCH [F NO
::GET SOFT-SWR SETTINGS

y-1
SRTINT
PC,GETADR
+SCRLE
PC,afLP.AVL

;SEE IF FIRST START
;BR 1F NOT
;GET OR CHECK THE RH11 ADDRESS
sCR-LF
;CHECK FOR A LINE PRINTER

PC,a#GETSWR

;GO CHECK FOR CONTROL SWITCHES

afPs
#,810NT

PC,aNST, CLK
PC,RPIN]Y
#-1,SAVEFG

;ENSURE THE PRIORITY = 0
;ScT ITERATION COUNT 10 1

SINITIALIZE THE CLOCK
;CHECK THE DRIVE STATUS
;SET THE SAVE REGISTERS FLAG

nsS
CIRJAD RPO&L/5/6 MECHANICAL AND READ/WRITE TEST
MACY1Y 30A(1052)
24-MAY-79
13:59
CIRJAD.PIN
28-MAR-79 11:28
GET VALUE FOR SOFTWARE SWITCH REGISTER

) —
~NO WS
W= O O
S

A Lt At A L Lt Ll A L A A A e N
VIV
W IV IV IV SV AV RV LV LV 1V ]

PUOMNOPUNUNRY
=
b el p —d ed e
b =2

3269
3270
327
3272
3273
3274
3275
3276
3277
3278
3279
3280
3281
3282

005446
005654
005456
005462
005464
005472
005474
005500
00550¢
005504

005506
005510
005511
005512
005516
005522
005526
005530
005532
005536
005540
005542
005546
005550
005554
005556
005564
005566
005572
005574
005600
005602
005606
005610
005614
005620
005626
005634
005636
005644
005652
005654
005662
005664
005666
005672
005674
005700
005702
005706

005712
005714
005720
005724
005730

062727
103003
005737
001111

177777

000340

106401

003215
043370

104401

177776

001027

105764
001404
100006
104401
000447
104401
000444
132764

001403
10464401
000410

118:

034514

043464

.NOTRP

:DRIVE NOT AN RP04/5/6

NOTPRS

;DRIVE NOT PRESENT

LJUNTOFF
6%
NOTSAF

;DRIVE OFFLINE
;PRINT DRIVE TYPE
:DRIVE UNSAFE

~UNTON
.MSG. SP
#RPO4LB, 8%

;:DRIVE ONLINE
: SPACES
;ADDRESS OF RPO& MESSAGE

2%
3%

2%:

043437
000010

034514

043317

005664
034514

5¢:
6%:

043507
000002

005664
034514

063514

005664

001003
012737
1046401

000000
104401

005204
020427
001301
005037
005737
001417
013746
063716
032726
001405

001215

7%:

000010
177776

001224

001222
001220
000001

SRTDRvV:

POINTER

:BR IF UNSAFE
:BR If ONLINE
;SEE IF OFFLINE

DRVSTA(RSL)

043427
044330
043502
000001

132764

TABLE

(%
5%
DRVTYP(R&)

044330
044330
034504

SYSTAT

;DRIVE
s CR-LF

SWITCH SET

;s TYPE 2 DIGIT(S)
;- SUPPRESS LEADING ZEROS
s SPACES
s SPACES

4%:

012737

R&
LSCRLF

*C'

2
0
MSG.SP
MSG.SP

043454

132764
001012

;CONTINUE IF YES
;SET PRIORITY 10 7

;CONTROL

R4 FOR TYPEOUT
DRIVE NUMBER

104401

10646401

SRTURV
#PR7,PS

CNTRLC

STARTY
YES

;s SAVE
;. TYPE

12%:

012737

;FIRST
;BR IF

R4, = (SP)

043416

000402
1046401

£-1,20
1%

STATUS HEADING

104401

000405

BCC
151
BNE

SEQ 0064

;TYPE

1%:

010446
104403
002
000
104401
104601
105764
100425

ADD

001224

012737

005004

000000

PAGE 68

;.60 TYPE--OCTAL ASC!]

;CHECK DRIVE'S STATUS

;BR
:BR

OR NONEXISTENT

IF NONEXISTENT
IF OFFLINE

;CHECK NEXT

DRIVE

9%
s CHECK NEXT DRIVE
#B1103, DRVTYP(R4)
;DRIVE PROGRAMMABLE?
12%
;BRANCH 1F NO
.NOUSE
;PRINT MSG
6%
;PRINT DRIVE TYPE

¢PRINT DRIVE

TYPE

#B1T00,DRVTYP(RL)
;RPO4 ?
7$
:BR IF YES
#RPCS,8%
;ADDRESS OF RPOS MESSAGE
#B1T01,DRVIYP(R4)
;RPOS ?
7%
:BR IF YES
#RP06,8%
:ADDRESS OF RPO6 MESSAGE
;TYPE THE DRIVE TYPE MESSAGE
0
sMESSAGE ADDRESS HERE
s CR=LF
LSCRLF
R&
; INCREMENT DRIVE NUMBER/TABLE
R4, 48
;FINISHED ?
1%
;BR 1F NOT

:SET PRIOR]ITY BACK 10 '0Q°'

+NO=-=BRANCH

SFCNTRLC
SAVCSW,-(SP)
C.SWR,(SP)

#81100,(SP)+
9%

POINTER

:CONTROL ''C'" START/RESTART?
;GET THE PREVIOUS
;SET UP 10 SEE IF
;1S
;BR

"BIT00"
IF NOI

'C.SWR'
'BIT00'

DIFFERENT

(ONTENTS
IS DIFFERENT

MACYIY 30A(1052)
24-MAY-79
13:59
CIRJAD RPOG/5/6 MECHANICAL AND READ/WRITE TEST
CIRJAD P11
28-MAR-79 11:28
GET VALUF FOR SOFTWARE SWITCH REGISTER

3325

005732
005740
005744
005750
005752
005756
005762
005764
005770
005774
005776
006004

006006
006010
006012
006016
006024
006026
006032
006040
006042
006050
006054
006060
006062
006066
006070

3353
3354
3355
3356
3357
3358
3359
3360
3361
3362
3363
3364
3365
3366
3367
3368
3369
3370
3371
3372
3373
3374
3375
3376

3377
3378
3379
3580

006074
006100
006102
006104
006110
006112

006114
006115
006116
006120
006122
006126

006130
006132
006140
006144
006146
006154
006156
006162
006166

006170
006174
006200
006206
006214
006216
006222

013737
004737
004737
000420
004737
005037
005000
012701

001220
026470
031772

105760

156037

034620

005200

024470
001232
000001
034504

003403

001222

1$:

2%:

001232

034574
000400

001220

034574
000011

000041

3%:

SEQ 0065

;STORE PRESENT '(.SWR' VALUE
RESET PARAMETERS TO THEIR DEFAULT VALUES

JSR
CLR

PC,LODFLY
DRVSEL

sSETUP DEFAULT PARAMETERS
:NO DRIVES SELECTED

MOV

;ARE

égfi

1578
BLE
8158
INC
ASLB

BNE

;GET

PARAMETERS

;DETERMINE

DRVSTA(RO)
3%
ATABIT(RO) ,a#DRVSEL
RO

THE DRIVES THAT

AVAILABLE

FOR

TESTING

;CLEAR

com

SFSEEKEG

:NO

001232

TYPE
CLR
CLR
MoV

ORIVES
SNSENDCT
RO

;'DRIVES(S) 10 BE TESTED'
DETERMINE PASSES TO MAKE
. THE DR.VES T0 BE TESTED

104401

043552

TYPE

.NONE

: YES--BRANCH

000137

017502

a¥SEOP
;l

;GO TO FND OF PROGRAM
;REPORY THE DRIVES 7O BE

SNSENDCT

:GIVE

001003
042737
1046401

005037
005000
013701
001004

006201
103011

005237

010046
106403
001
000

005701
001404
104401

005200
0007¢3
013737
005737
003006
032737
001402
104401
005737

001002
000137
005037
012737
033737
001010
012706
005237

000001
063521
017664

001232

5%:
108:

(LR

SFSEEKFG

122737

6$:

(.SWR,SAV(SW
PC.LODFLT
Pg.alGT.PRH

(LR

106301

001367
005037
032737
001002
005137

mov
JSR

PAGE

BIT
BNE

(MPB
BNE
BIC

BNE

6% :

017664

JMP
ASR

BCC
INC

MOV

TYPOS

7$:

017664
301244

017656

036000

001234

043561
001232

004730
001254
000001
001256
001100
001254

8%:

001256
001232

1%:

;DO SEEK BEFORE DATA TRANSFER?
: YES==BRAN(H

. COMMA
RO

sANY DRIVES

; "NONE'

THIS DRIVF

;:SAVL RO FOR

A PASS

;.60 TYPE--OCTAL

ASCII

;o TYPE 1 DIGIT()
;. SUPPRESS LEAD]
46 ZEROS
;MORE DRIVES?

;NO=-BRANCH

A
;FORM DRIVE NUMBER

151

S¥CLKSTA

;KW11-P AVAILABLE

DRVSEL

sANY DRIVES SELECTED ?

TST

BNE
JMP
CLR

MOV

INC

TESTED

TYPEOUT

BI1
BEQ
TYPE

AND

SELECTED”

MOV

MOV
RSTRTZ2: BIT
BNE
RESTART:

RO,=-(SP)

BEQ

BGT

RSTRT1:

a#DRVSEL R

!
0

TYPE
INC

FLAG

#11,41
;LCADED FROM AN RP04/5/6 ?
10%
:BR IF NOT
#BI1T00,DRVSEL
;CLEAR THE DRIVE O SELECTION BIT

.BYTE
.BYTE

157

043557

#S5w08,8#C.SWR
5%

SEEK

SNSENDCT ,a#SEOPCT
RSTRT

:YES==-BRANCH
#36000,3#TSTNMS ;NO-~ANY TIMING TESTS 10O BE PERFORMED? °
RSTRT1
:NO--BRANCH
. NOCLOK
:"NO KW11=-P CLOCK, TIMING TESTS WILL NOT BE PERFORMED'
1%
START?
(HKDRV

;BR IF YES
;GET DRIVE SELECTION ENTRY
;INIT. THE CHECK DRIVE KEY

#STACK,SP

:SETUP THE

#1,DRVMSK
DRVMSK,DRVSEL
DRVOK
(HKDRV

;START TO CHECK DESIRED DRIVES
;1S THIS DRIVE SELECTED?
;YES=-GO CHECK IF DRIVE 1S READY FOR TESTING
:MOVE

STACK POINTER

TO NEXT DRIVE NUMBER

8 6
CIRJAD RPOL/S/6 MECHAN]CAL AND READ/WRITE TEST
MACY1Y 30AC1052)
24-MAY-79
13:99
CIRJAD.PIN
28-RAR-79 11:28
GET VALUE FOR SOFTWARE SWIT(H REGISTER

006226
006232
006234

106337
103753
000764

001256

00623%6
006242
006246
006250
006252
006260

013702

001254
034504

006262
006266

006272
006276
006302
006306
006314
006322
006330
006332
006336
006344
006350
006356
006362

006366
006370
006372
006373
006374
006400
006404
006410
006414
006416
006420
006422
0064264
006426
006430
006632
006434
006436
006442
006444
006446
006452
006454
006456
006462

000756
[V IV TV IV TV TV 1V [V ]

3381
3382
3383

001256

006106
0046124
0046144
004164
025104
017502
000020
000001

0046105
000143
025150
000107
025150
0643647

001232
1%:

004106

2%:

;POSITION THE MASK

mOov
1518

(HKDRV,R2
DRVSTA(R?)

;P1CKUP THE DRIVE
;1S DESIRED DRIVE

BGT
ERROR
8lIC
B8R

Mov
Mov
Mov
Mov

BIT
8eQ
(LRB

MovB
JSR
MOvB
JSR
TYPE
mov
T1YPOS

BYTE
.BYTE
TYPE

044330

000060
6%

0064446

113737

RSTRT
RSTRT?

MOV
MOvVB

004106

043671
000004
004234

001215
001364

DRVMSK

JSR

001252
0046105
001220

TYPE
MoV
mov

(LR

ROL
ROL
ROL
ROL
ROL
ROL
ROL
ROL
ADD
MOv

1%
11

DRVMSK ,DRVSEL
RESTART

;BRANCH

DRIVE

SEQ 0066
NUMBER NEEDS

INITIALIZED

NUMBER
ON-LINE?

]S NOT

ONLINE

;CLEAR DRIVE'S SELECTION BIT
;RETURN

R2,84DPB.A
;SET THE DRIVE NUMBER INTO THE DPB'S
R2,8#0PB.B
R2,840PB.(
R2,3#DTADPB
PC,a#LDCMD
;LOAD COMMAND INTO DPB.B AND DPB.C(
#SEOP,@#BYPASS
;If ERROR GO TO END OF PROGRAM
#FEMT22/256.,0PB.A+1
;ASSUME 16 BIT FORMAT
#B1100,C.SwR
;16 BIT FORMAT REQUESTED ?

2%
DPB.A+I

:BR IF YES
;CLEAR THE

)

;o TYPE

MSG.SP
LSERIAL

s TYPE SPACES
;"SERIAL NUMBER '

RP.REG+30,R
R?
R1
RZ

;SERIAL NUMBER
;1ERO
JPUT THE NEXT DIGIT
;INTO R?

'FMT22" BI1T

#SETFORM,DPB.A+2
;SET THE FORMAT BIT PER DPB.A+1
RO,S#CALL.A
;60 EXECUTE THE COMMAND
#RECAL ,89DPB . A+?
JRECAL=COMMAND
RO,QNCALL.A
;60 EXECUTE THE COMMAND
LTESTNG
:"TESTING DRIVE
R2.-(SP)
::SAVE RZ2 FOR TYPEOUT

#4,R0

R
R2
R1

R?
R1
R2
#'0,R2

;.60 TYPE-=0CTAL ASCI]
Y

DIGIT(S)

;s SUPPRESS LEADING ZEROS

;FOUR DIGITS

sMAKE

TYPE
DEC

,69
RO

:TYPE
sALL DIGITS

TYPE
MOVB

LOCRLF

ERR.CT,SERMAX

TYPE

ASClI]

JSAVE

.WORD

THE

JYES, BRANCH
;ORIVE SELECTED

82,(PC)0

BGY

001115

BCS
BR

ASLB

DRVOK:

PAGE

TYPED?

:NO == BRAN(CH

;SETUP MAX ERROR COUNT

CIRJAD RPO&L/S/6 MECHANICAL AND READ/WRITE TEST
MACYIY 30A(1052)
24=MAY=79
13:59
CZRJAD.P1Y
28-MAR=-79 11:28
GET VALUE FOR SOFTWARE SWITCH REGISTER
3431
3432
3433

LSBTTL
s/eN/eN/eN/oN
sleNc/eN/eN\/oN
s/eNz/eN/oeN\ /e

/e
e\
/e

e\
e\
e\

;*IN THE DESCRIPTIONS OF
;*AND

THEIR DEFAULT

/e\ /N
e\
e\
e\ e\

PAGE

#NNs TESTS wamn

e\
e\
fe\fe\
e\ e\

e\
e\
/e

fe\/o\ e\ /N /e\ /0N /N
/e /N /e\/e\ /N /e\:/e\;
e\
e\ e\ e\ e\ e\ /e

THE BELOW TESTS THE VARIABLES USED

VALUES

(UNLESS

SPECIFIED OTHERWISE)

ARE:

MNEMONIC
‘Yoo

VALUE
323

VARIABLE

weeees

809092929292

eoosccocoes

te
JeR

Sef(

seLC
;e lC
SeNC OF NC1
;e
S ONC2

ITERATIONS (REPEATS)

CYLINDER

ADDRESS

LC-1¢

LAST CYLINDER ADDRESS
INCREMENT VAyUE
NEW OR MODIFIED CYLINDER
ADDRRE
S
NEW OR MODIFIED CYLINDER

Tef T

FIRST

s eNT

FTe1T

NEW OR MODIFIED TRACK

FIRST

410 OR 814
1
FCo1C

FIRST

ADDRESS

oLl
;eI
b

18
1

TRACK

ADDRESS

LAST TRACK ADDRESS
INCREMENT VALUE

ADDRESS

]

TefS

;eLS

SECTOR ADDRESS

LAST SECTOR ADDRESS

VAL YAAN VAN VRS VEAY VAN JARX VRN FAAY FAAS FAAN VAN VAN FEAN VAN VAR FAAN FEANY
AT ZAAS YA
YRR VAR FAAN VAR VARN FEAY VAN FEAN YRS FAAL FERS VAR VEAL VALY VRN
VAAS VAAN VAN VAN VAR VAAN VAN VAN FERS FAAN FEAAN FARN FEAN VAN VALY VERN FEAN FAAN

3466

3467

CSBTTL

5468

wee

SEEK

TESTS

wee

AN A AN A AN R AN Ay ANy A ANy ANy A Ay AN
AN A AN A AN A SV A A A ACY A A VA AW
A AN A AN A AN A
ANy A ANy A Ay ANV A AR VA ACVA ARYA ANNA LSS A AN A ARV A ARNA ARV AW
s/eN\s/eN\s/eN\ e\ e\ e\ /N e\ e\ e\ e\ e\ e\ e\ e\ e\ e\ /0N

;*THE SEEK TESTS WiLL BE EXCUTED USING IMPLIED SEEKS. THESE
;*IMPLIED SEEKS WILL BE PERFORMED BY "'READ HEADER AND
;*DATA'" COMMANDS TO TRACK "'FT'* SECTOR "'FS'* CF THE DESIRED CYLINDER.
;*THE WORD COUNT WILL BE
;*TRACK/SECTOR WORDS OF

A VAN VAN VAN

SET SUCH THAT ONLY THE CYLINDER AND

THE HEADER ARE READ.

VAAX VAR VAR VAN VAN VAN VAR VARN VARY VRAL VAAN VAR VRN |

ALY
YA VAR VAN VAR VAAN VAN VAAY VAN VSN FRAL VAL VARN FEANS AN FARY)
AN YAANTAAL VA VAR VAR VAR VAN VAN VAN FAAN FARN FEAN FAAL VAN VAN VERN VAN )

S484

3485

3486

SeTEST 0

s nInnrnnrIInnnnInnnnonmmmnI

RECAL/SEEX TEST

SEQ 0067

NN NN N NN NN ~
M AN N NN
N NN~ [V]
NNNNNNNNNY ~

—

nnd

N (N AN ~No

il
el
il
)

ol
el

006556
006564
006572
006600
006606
006614
006620
006624
006630

ND LN

006534
006542
006550

004737

—

006514
006520
006526

000240
033737
001002
000137
012737

006470
006470
006472
006500
006502
006506

1$10:
0014264

006632
000000

024726
006614
001102
001506
000031
000107
00152¢
001516
001512
006630
006614
001100
025150
025262

001234
001102

64%:

001110
1724606

001204
001115
004106
004134
004135
004136
001252
001106

30AC1052)

THIS

witL

RECAL/SEEX

TEST

6
D
24-MAY-7y

CAUSE

THE

13:59

DRIVE

PAGE

TO EXECUTE

SEQ 0068

A RECALIBRATE

COMMAND CYCLE AND THEN SEEK FORWARD TO CYLINDER ''L('" AT
THE COMPLETION OF BOTH COMMANDS STATUS INDICATIONS ARE
CHECKED TO ENSURE NO ERRORS OCCURRED.

NOP

Bl
BNE

87B17S5+<0*2>,TSTNMS ;D0 THIS TEST?
649
s YES==BRANCH

Mov

#0,a#STSTNM

JSR
MoV
Mov
Mov
MOvB

PC,LODPRM
;LOAD THE PARMETERS FOR THE TEST
#TESTO,@#SLPERR
;SETUP THE LOOP ON ERROR ADDRESS
STSTNM,@DISPLAY
;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER
S/RPT,STIMES
;GET THE ITERATION COUNT
#25.,8ERMAX
sMAX ERRORS ALLOWED FOR TEST

MmOovB
MOvVB
Mov

NS ,as0PB.B+10 ;FS
aFFT ,aA0PB.B¢11 ;F1T
anLC,anoPB.B+12 ;L(

JSR
JSR
SCOPE

RO,8#CALL.A
RO,a#CALL.B

JMP

MovB

TESTO:

Ex170:

mov
Mov
MOV

1ST1

:NO--GO TO

THE

TEST

;SET UP TEST NUMBER AND

;CLEAR THE ERROR FLAG (SERFLG)

FRECAL ,8#0DPB.A+2

PEXITO,a#BYPASS
#TESTO,SLPADR
#STACK,SP

s RECAL=COMMAND

;GO TO EX]TO ON ERROR
;SETUP LOOP ADDRESS
;SET UP STACK POINTER

;60 EXECUTE
;60 EXECUTE
;LOOP

THE
THE

COMMAND
COMMAND

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

SEEX/SEEK TEST

;*TEST 1
»
B

%
*

®s

3521
3522
3523
3524
3525

THIS

TEST

WILL

CAUSE

THE

DRIVE

T0 EXECUTE

A FORWARD

SEEK

CYCLE TO ""LC'', "LT", ""tS' FOLLOWED BY A REVERSE SEEx (YCLE

FC,

CFYY,

'UFS''.

THE

COMPLETION OF

EACH SEEX,

THME

PROPER

INDICATORS ARE EXAMINED TO ENSURE PROPER OPERATION.
LC' WILL DEFAULY TO 128 AND 'FC'', "'FTTM", ""LT'', "'FS'', AND ''LS"
WwiLtlL DEFAULT

10 0

‘:"""""""""'!""""""""."."""'t""'l""""'

001234

~ ~

007010
000001

001102

NNNNNNNN

024726

-~
(V] w

001426

TNNTNTNTNNN Y
VRV RV LV YV R AV LV

006656
006662
006670
006676
006704
006712
006720
006726

1811

000240
033737
001002
oo
— O
o

006632
006632
006634
006642
006644
006650

————oO0O0O
R
Y Y QI
= ]
(R TV T NIV IV 1,00 o

1532
3533
3534
3535
3536
3537
3538
3539
3540
3541
3542

MACY11

crEteeCTRORORRCERRYOSRROCROCROCORORCRCROROTRCECSOOORTRORRRROERORRORTRROSEOSROCRRRROOQROETROTUTYE

3519
3520

3526
3527
3528
3529
3530
353

:
:

OCOO
=t = = OO (=)

3487
3488
3489
3490
3491
3492
3493
3494
3495
3496
3497
3498
3499
350C
3501
3502
3503
3504
3505
3506
3507
3508
3509
3510
3511
3512
3513
3514
3515
3516
3517
3518

CIRJAD RPOL/S5/6 MECHAN]ICAL AND READ/URI?;OTEST
CIRJAD P
28-MAR-79 11:28

006772
001102
001506
000031
001524
001526
001516

001110
172244
001204
001115
004134
004154
004135

NOP

BI1

64%:

OFBITSec1e2> TSTNMS ;D0 THIS TEST?

BNE
JMP
MOV

649
1512
#1,af8TSTNM

JSR

PC,LODPRM

MOV
MoV
Mov
MOVB

MOVB
MOVB
MOVB

#TEST),Q08LPERR
$TSTNM, BDISPLAY
SFRPT,STIMES
#25.,3ERMAX
a¥fS,aN#DPB.B+10
OMLS,aNDPB.C*10
o#F1,30DPB.B+11

;YES--BRANCH
:NO==GO TO THE NEXT TEST
;SET UP TEST NUMBER AND
;CLEAR THE ERROR FLAG (SERFLG)
;LOAD THE PARMETERS FOR THE TEST
;SETUP THE LOOP ON ERROR ADDRESS
:LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER
;GET THE 1TERATION (OUNT
;MAX ERRORS ALLOWED FOR TEST
;FS
;LS
;H1

3588
3589
3590
3591
3592
3593
3594
3595
3596
31597
15698

off( ,300PB.B+12
aFLC,an0PB. (12

SEXITT, QFBYPASS
#TEST1,SLPADR
#STACK,SP

13:59

PAGE 73

SeQ 0069

s FC

:6G0 TO EXIT1 ON ERROR
JSETUP LOOP ADDRESS
:SET THE STACK POINTER

;60 EXECUTE THE COMMAND
;60 EXECUTE THE C(OMMAND

RO,3#CALL.C
RO,8#CALL.B

JSR
JSR
scoPt

;LOOP

o
2

W
0.

®
®

004037

163737

023737
003767
000004

001702

024726
007120
001102
001506
000031
007076
001524
001516
007224
001510
007126
001100

025262
001514
001512

FORWARD

RESULTANT

CYLINDER

SEEK

ADDRESS

CYCLES

(NC)

INITIATED,

TO ADVANCE

THE

INCREMENT "'IC'".

STARTING

(OMPLETION OF

SEEX COMMAND THE PROPER INDICATORS ARE
ENSURE PROPER OPERATION.

THE

EXCEEDS

THE LAST LEGAL "'NC'' AND DECREMENTING BY "'I("

UNTIL *°NC'" IS LESS THAN "'FC''.

EXAMINED

EA(H

2X22 4222222222222l
Rl RN

NOP

BI1

:
668

001110
172066

001204
001115
001106
004134
004135
001252
004136
001110

COMMAND

"LC"" REVERSE SEEX CYCLES ARE

%evs

012706

007226
000002

WILL

TEST

CYLINDER ADDRESS FROM "'F(C'" TO "‘LC'" BY THE

e
—

el
=
el
el
)

001430

TEST

WHEN THE

iéT?:
001234

INCREMENT/SEEK
THIS

004737
012737

007034
007040
007046
007054
007062
007070
007076
007104
007112
007120
007126
007134
007140
007140
007144
007152
007160
007162
007170
007176
007202
007202
007206
007214
007222
007224

000240
033737
001002
000137
012737

3582
3583
3584
3585
3586
3587

EXITY:

007010
007010
007012
007020
007022
007026

N NIV NPT
Y N v}
SNCNNTNTNNNNN ~
[« VRV IV LV LV JV LV ]V ] ~
O NNNNNNNN ~d

3567
3568
3569
3570
3571
3572
3573
3574
3575
3576
3577
3578
3579
3580
3581

TEST:

LY ,3#0PB. (1]

MOv8
MoV
mov
MoV
Mov
mov

SeTEST 2

)

3566

0046155
004136
0046156
001252
001106

24=-MAY-79

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

O
o

35955
3556
3557
3558
3559
3560
3561
3562
31563
3564
35695

001520
001510
001512
007006
006772
001100
025652
025262

OCO0O~—=O—=O o

3552
355%
3554

006734
006742
006750
006756
006764
006772
006776
007002
007006

3543
3544
3545
1546
3547
1548
31549
3550
3951

MACY1Y 30A(1052)
SEEK/SEEK TEST

CIRJAD RPO4/S5/6 MECHAN]CAL AND READ/UR]‘%}IESI
CIRJAD P
28-MAR-79 11:28

1%:

TEST?2:
INCSK:

004136
0046136

BNE
JP

OFBITS+4<2¢2>
, TSTNRS ;DO THIS TEST?
JYES=-BRANCH
649
18713
:NO==G0 TO THE NEXT

JSR

PC,LODPRM

MOV

Mov
Mov
MOV
Move
MOV
MOvB
MOovB
Mov
MoV
MOov
Mov

#TESTZ
3981 PERR
STSTNM, SD1SPLAY

JSR

RO,a#CALL.B

ADD
(mp

BGE

004136
001110
DECSK:

004136
004136
Ex]T2:

N2 ,988TSTNM

Mov
MoV
Mov

JSR
SUB
(Mp
BLE
SCOPE

a#RPT ,STIMES
#25. ,3ERNAX

TEST
JSET UP TEST NUMBER AND

;CLEAR THE ERROR FLAG (SERFLG)

;LOAD THE PARMETERS FOR THE TES:
;SETUP THE LOOP ON ERRCOR ADDRESS

:LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER
;GET THE ITERATION COUNT

;MAX ERRORS ALLOWED FOR

#1%,3LPADR

:?EIUP LOOP ADDRESS

FEX1T2,30BYPASS

:60 10 EXIT2 ON ERROR

TEST

ofFS,afDPB.B+10 JFS
11 0 FT
off1,9#DPB.B*
oNF(C,aNDPB.B+12
#,,SLPERR
#STACK,SP

:F(

*SETUP THE ERROR LOOP AGDRESS
"LOAD THE STACK POINTER

:GO EXECUTE THE COMMAND
o#1(,a#DPB.B*12 ;MOVE TO NEXT CYLINDER
afL(,asDPB.B*
12 :0UT OF CYLINDERS?
INCSK
:NO==BRANCH
S#L(,a#DPB.B¢12
¥.,SLPERR
sSETUP THE ERROR LOOP ADDRESS
#STACK,SP

;LOAD THE STACK POINTER

RO,a#CALL.B

;6O EXECUTE THE COMMAND

a1 (,asDPB.B+1?2
off(,andpPB.B+12
OECSK

;L0O0P

(IRJAD RPO4L/S5/6 MECHANICAL AND READ/WRITE TEST
CIRJAD.PY
28-MAR-79 11:28
12
3599

MACY1Y 30A(1052)
24=MAY=79
INCREMENT/SEEK TEST

13:59

PAGE

3600

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

;gg;

;*TEST 3

3603

3605
3606
3607

X
e

3606

3608

THIS TEST WILL COMMAND SEEK CYCLES TO CYLINDER 0,1.2.6,

8,16,32,64,128, AND 256.

AT THE COMPLETiON OF EA(M SEEK

COMMAND THE PROPER INDICATORS ARE EXAMINED TO ENSURE PROPER
OPERATION.

;:"Q"""""""'."""'Q""""Q"Q"Q""t""""'0"""

3609
3610
3611
3612
3613
3614
3615

007226
007226
007230
007236
007240
007244

000240
033737
001002
000137
012737

3617
3618
3619
3620

007252

007256
007264
007272
007300

004737

3616

STEPPING SEEK TEST

012737
013777
013737
112737

1513:

001432

00123%

007422
000003

001102

024726

007336
001102
001506
000031

001110
171650
001204
001115

64$:

NOP
BIT
BNE
JMP
MoV

JSR

MOV
MOV
MOV
MOVB

AMBITSec3e2>, TSTNMS ;DO THIS TEST?
648
;YES=-=BRANCH
1514
:NO=--GO TO THE NEXT TEST
#3,3081SINN
:SET UP TEST NUMBER AND
:CLEAR THE ERROR FLAG (SERFLG)

PC.,LODPRM

:LOAD THE PARMETERS FOR THE TES!T

STESTY,Q0SLPERR
;SETUP THE LOOP ON ERROR ADDRESS
STSTNM,_3DISPLAY
;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER
S¥RPT,STIMES
:GET THE ITERAT]ON C(OUNT
#25.,$ERMAX
:MAX ERRORS ALLOWED FOR TEST

SEQ 0070

CIRJAD RPOL/S/6 MECHANICAL AND READ/UR]IEBTESI
CIRJAD.PY
28-MAR-79 11:28

3621
3622
3623
3624
3625
3626
3627
3628
3629
3630
3631
3632
3633
3634
3635
3636
3637
3638

007306
0073164
007322
007330
007336
0073644
007352
007356
007362
007366
007374
007400
0076406
0076410
007412
007416
007420

012737
113737
113737
012737
013737
012737
012706
004037
013701
012737
012706
010137
004037
006301
020137
003770
000004

007314
001526
001516
007620
001510
007344
001100
025262
001514
007366
001100
004136
025262

001106
006134
004135
001252
004136
G01110

1%:

TESTS:

MACYI1

STEPPING SEEK TEST

MOV

1%:

Ex1vy:

;GO 1O BYPASS ON ERROR

8. ,SLPERR
#STACK,SP

;SETUP THE ERROR LOOP ADDRESS
;LOAD THE STACK POINTER

1C,R1

;CYLINDER

JSR

RO,a8#CALL.B

MOV
Mov

¥, SLPERR
#STACK,SP

JSR

RO,a#CALL.B

mov

BLE
SCOPE

R1,8#DPB.B* 1?2
R1
R1,amL(

TEST

SEX1T3,8#BYPASS

8 (,a00PB.B+12 F(

mov
MmOV

PAGE

;SETUP

MOov

MoV

13:59

#1% SLPADR

a#FS ,asDPB.B+10 ;FS
SFF1,3#0PB.B¢1Y ;F1

ASL
(MP

001512

24=-MAY-79

MOvVB
mOove

Mov

001110

30AC1052)

LOOP ADDRESS

;60 EXECUTE THE COMMAND
1

;SETUP THE ERROR LOOP ADDRESS
;LOAD THE STACK POINTER

;DESIRED CYLINDER
;60 EXECUTE

THE

;MOVE TO NEXT
;DONE?

;NO--L00P

COMMAND

CYLINDER

SEQ 0071

(IRJAD RPOL/S5/6 MECHANICAL AND READ/WRITE TEST
14
CIRJAD PN
28-RAR-79 11:28

3667

3668
3669
3670
3671
3672

3673
3674

3675
3676
3677

3678
3679
3680
3681
3682
3683

3684
3685
3686

3687

3688
3689
3690
3691
3692
3693
1694

SEEXK

13:59

TEST

PAGE

SEQ 0072

OSCILLATING SEEK

TEST

THIS TEST WILL COMMAND SEEK CYCLES FROM "'FC'" TO "NC'" AND BACK

LC'', THEN 1S DECREMENTED BY ''1(°° BACK TO CYLINDER °"'FC''.

it
0

T0 "'FC"".

“°NC"" STARTS AT

“'F(C"° AND

INCREMENTS BY “'IC"" UP 70 CYLINDER

COMPLETION OF EVERY SEtX COMMAND THE PROPER [NDICATORS ARE
EXAMINED TO ENSURF PROPER OPERATION.

AT THE

;.'"l"00"0""'Q""""'t'""""""!"'t'.tt'tt't""t""'

007534
007542

007544
007546
007552
007556
007564
007570
007574
007¢90

0076U2
007604

007610
007612
007620
007624
007626
007630
007634
007636
007642
007650
007652
007656
007662
007666
007670
007674

004737
e
e
o

007446
007452
007460
007466
007474
007502
007510
007516
007524
007532

000240
033737
001002
000137
012737

007422
007422
007424
007432
007434
007440

3660
3661
3662
3663
3664
3665
3666

ISCILLATING

24=-MAY-79

.
s

3654
3655
3656
3657
3658
3659

;eTEST

3652
3653

30A(1052)

;:Q"""""'"""""""0"""0"."Q"O""'Q'l"""'l""

O—=—=2O—-=000

3639
3640
3641
3642
3643%
3644
3645
3646
3647
3648
3649
3650
3651

MACYIY

18714

001434

001234

010010
000004

001102

024726

007546
001102
001506

000031
007510
001524
001516
010006

001110
1714546
001204
001115
001106
004134
004135
001252

010000

001220

001510
001336
007556
001100
004136
025262

NOP

648 :

1%:

#6,308T1STNM

001110
1%:

2%:

affS,a0DPB.B+10 ;FS
aff1,34DPB.B*1T1 ;F1T
FEXIV4,a#BYPASS

(LR
811

R?
#SW12,a#C.SWR

SCLEAR STALL SWIT(H
JSTALL REQUIRED?

com

JYES-=SET

(LR

Sf#STALLOD

WOV

MOV
MOV

MoV
JSR

001110

#25.,8ERMAX
718 ,S8LPADR

T1ES74

a¥f(

#.,3LPERR
#STACK,SP

R1,3#DPB.B+12
RO,8#CALL.B
R2

:SETUP THE LOOP ON ERROR ADDRESS
;LOAD THE TEST NUMBER INTO THE DISPLAY
sGEY THE ITERATION COUNT

sMAX ERRORS ALLOWED FOR TEST
;SETUP LOOP ADDRESS
YO EXIT&

ON ERROR

(NO STALL)

sNO=-=BRAN(CH
JSEY

SWIT(CH
FC

;START AT Z2ERO IF STALLS REQUIRED
;SETUP THE ERROR LOOP ADDRESS
;LOAD THE STACK POINTER

sNC
;60 EXECUTE

sSTALL?

THE

COMMAND

2%
RO,9#STALL
STALLO

;NO=--BRANCH
JYES=G0 10 STALL ROUTINE
:TIME POINTER

JSR

RO,a#CALL.B

;60 EXECUTE

BEQ
JSR
LWORD
INC

3%
RO,O#STALL
STALLO
SrSTALL)

BEQ
JSR
.WORD

MoV

(mp

BGT
b ¥

PC,LODPR®

;CLEAR THE ERROR FLAG (SERFLG)
;LOAD THE PARMETERS FOR THE TEST

TEST

JSET UP TEST NUMBER AND

mOve
MOVB

MOvVB
MOV

191

001336

TEST?

JYES=-BRAN(CH
:NO=-=G0 TO THE NEXT

#YESTL,SFSLPERR
SISTNM, ADISPLAY
SARPT ,$TIMES

151

004136

;DO THIS

643
1515

L [0]Y]
MOV
MoV

g8taQ
YEST4L:

001336
001514
001512
001512
007674

L [01"]

nov

026502

0013536
001362

OFBIT1Secie?>
, TSTNMS

BNE
JMP
JSR

026502
001510
025262

FC,a#DPB.B+12

THE

(OMMAND

;NO=-=-BRAN(CH
JYES==GD 10 STALL
:TIME POINTER
;UPDATE THE TIME

ROUTINE

TO BIG?

:NO=-=BRANCH

arl( R

;MOVE TO NEXT (YLINDER

S#STALLO

(Mp

R1,a0LC

BLE
MOv
MmOy

JSTALL?

SFMYSTAL ,#STALLO ;TIME

{LR

ADD

JFC

1%
arL (R
#., 8L PERR

:YES==START OVER AT
JLAST

ZERQ

CYLINDER COMPLETED?

;NO==BRANCH
SSET NC 10 L C
:SETUP THE ERROR LOOP ADDRESS

CIRJAD RPO4/S5/76 MECHANICAL AND READ/UR]Y% TEST
&
CIRJAD P11
28-MAR-79 11:28

004037
005702
001413
004037
001336
005237
023737
003347
005037
163701
020157
002340

001100

006136
025262

Mov

4%:

Mov
JSR
187

BEQ
JSR

026502
001512
025262

004136

.WORD

5¢:

00133
001362

001336

6%:

001514
001510

EXIT4:

000004

STACK

POINTER

THE

COMMAND

5%
RO,88STALL
STALLO

;NO--BRAN(H
:YES==60 10 STALL ROUTINE

RO,#CALL.B

;60 EXECUTE

BEQ

.WORD
INC

STALLO
SfSTALLO

SEQ 0073

:TIME POINTER
;LC

sSTALL?

THE

COMMAND

;NO=-BRAN(H

RO,8#STVALL

;YES=--GO TO STALL ROUTINE
:TIME POINTER
;UPDATE STALL TIME

{mp

SIMXSTAL ,@#STALLO

86T
(LR
SUB
cmp
BGE

43
afSTALLO
afi( R
R1,a#f(
43

SCOPE

THE

PAGE

:NC
;60 EXECUTE
JSTALL?

151

JSR

13:59

:LOAD

R1,30DPB.B*12
RO,8#CALL.B
R2

8FLC,afDPB.B+12

JSR

026502

#STACK,SP

MoV

TeTEST S

;TIME

T00 BIG?

:NO=--BRAN(CH
JYES==SET STALL
JNEXT CYLINDER
:DONE?
;NO=-BRANCH

TIME BACK

10 ZERO

;LOOP

CONVERGING/D]IVERGING SEEK
THIS

TEST

WILL

CAUSE

THE

DRIVE

TEST

TO EXECUTE

FORWARD AND REVERSE

SEEKS FROM ''NC1'' AND "'NC2'" RESPECTIVELY, "'NC1'" WILL BF INCREMENTED
BY “'1C'" AND ''NC2'' WILL BE DECREMENTED BY ''IC'' UNTIL "NC1'" IS
GREATER THAN THE INITIAL VALUE OF ''NC2'" AND "'NC2'" IS
LESS THAN THE INITIAL VALUE OF "NC1''.
A” THE COMPLETION OF
EACH SEEX COMMAND THE PROPER INDICATORS ARE EXAMINED 10
ENSURE PROPER OPERATION.
''NC1'' AND "'NC2'' DEFAULT 10
“FC'" AND ''LC'" RESPECTIVELY.

033737
001002
000137
012737
NN
TN NN NN TN NN
Y

ol
il

N R
R

=l
mld
ol

R
e

)
—l
)
el
el
el

-l
ol
)
il
el
vl
—

[ RV IV
1,91,
OO SO

—

[elelelolole
e o]

b
el
)
ol
el

076

[V alV TelaelV [V [V IV IV [V L VIV ]
NO NN =2
NNNNNNNYNY

004737

N0 RU L

010034

000240

ol
—

—

0
0
0
010020
010022
010026

OO0
= =0 =000

[olele]

l=]ote]

craae

)

3747
3748
3749
3750

012706
010137
004037
005702
001403
004037
001336
013737

6
1
24-RMAY-79
TEST

ccrotRRtRSCRERSRNRCRRERYROSRARNORRRRSROERRORRORRORRARRARORARROERORORROROCEROEOUROCCORTOEYN

)

37«6

010000
010004
010006

—t ol

3702
3703
3704
3705
3706
3707
3708
3709
3710
LXAR
3712
371%
3714
3719
3716
3717
3718
3719
3720
3721
3722
3723
3724
3725
3726
3727
3728
3729
3730
3731
3732
3733
3734
3739
3736
3737
3738
3739
3740
3741
3742
374%
3744
3745

007702
007706
007712
007716
007720
007722
007726
007730
007736
007742
007744
007746
007752
007754
007760
007766
007770
007774

[ ]olololelelalaTe)

3695
3696
3697
3698
3699
3700
3701

MACYTY 30A(1052)
OSCILLATING SEEK

1515:
001436

001234

010210
000005

001102

024726
010120
001102
001506
000031
010076
001524
001516
010206
001510
001512

010130
001100
004136

64%:

001110

171066

001204
001115
001106
004134
004135
001252

1%:

TESTS:

RO S RERRRSRRRRORRRACSROERORRORRROSCORORRORRORRRAROSORRORRORRRORROROEROROSRRNORTOPY

NOP

BIT

S#B1TS+<S5¢2> TSTNMS ;DO THIS TEST?

JSR
MOV
MOV
MOV
MOvB
Mov
MOvB
MOVB

PC,LODPRM
#TESTS ,@#SLPERR
$STSTNM,aDISPLAY
S¥RPT,STIMES
#25.,9ERMAX
#13,SLPADR
aNfS,asbPB.B+10
a¥f1,a00PB.B¢11

MOV
MOV

aff (. R
orL( R

SSTART NCY AT
sSTARY NC2 AT

#STACK,SP

;LOAD THE

BNE
JMP
Mov

MOV

001110
1%:

MOV

64%
1516
#5,0/8TSTNM

; YES--BRANCH
:NO=--GO TO THE NEXT TEST
;SET UP TEST NUMBER AND

;CLEAR THE ERROR FLAG (SERFLG)

;LOAD THE PARMETERS FOR THE TESIT
;SETUP THE LOOP ON ERROR ADDRESS
;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER
;GET THE ITERATION COUNT
;MAX ERRORS ALLOWED FOR TEST
;SETUP LOOP ADDRESS
;FS
F1

#EXITS,Q#BYPASS ;60 TO EXITS ON ERROR
#.,8LPERR

R1,3#DPB.B+12

:SETUP THE

;N(1

£(
L(

ERROR LOOP ADDRESS

STYACK POINTER

CIRJAD RP0O4/5/6 MECHAN]ICAL AND READ/WRITE TEST
CIRJAD
15
28-MAR-79 11:28

3764
5765
3766
3767
3768
3769
3770
377
3772
3773
3776
3775
3776
3777
3778
3779
3780
3781
3782
3783
3784
3785
3786
3787
3788
3789
3790
3791
3792

3793
3794
3795
3796
3797
3798
3799
3800
3801
3802
3803
3804
3805
3806

004037
010237
004037
063701
163702
020137
003003
020237
002356

JSR

025262
004136
025262
001514
001514

;60 EXECUTE THE COMMAND
INC2

ADD

ariC, R

JNEXT

(mp

001510
EXITS:

RO,.3#CALL.B
RZ2,8#DPB.B+12

SUB

001512

PAGE

ROV
JSR

000004

BGT
(mp
BGE
SCOPE

RO,8#CALL.B

;60 EXECUTE

arIC, R

NCI

THE

SEQ 0074

COMMAND

CNEXT NC2

RY,aLC

;DONE?

Ex115
R2,a8FC ;?
1%

JYES==BRANCH
;NO=-=-BRAN(H
:LO0P

;:'t"'""'"'O"t'""""""""'"'t'tt"'t'ttl""""'t"t

SERVO ADDRESSING LOGIC NOISE GENERATOR

;*TEST 6

IN THIS TEST A SEEK IS DONE TO CYL "NC'' THEN A SEEK 10

NC¢& THEN NC+Y

PROPER

;
s
A

THEN NC*3 THEN NC+2 THEN NC+S.

NOW ''NC'" IS UPDATED

BY "'IC'" AND THE ABOVE SEQUENCE 1S REPEATED UNITL ''LC'" IS
EXCEEDED BY ANY Of THE ABOVE VALUES.
THE INITIAL VALUE OFf °'NC'’
IS "'FC''.
AT THE COMPLETION OF EACH SEEK COMMAND THE
INDICATORS ARE

EXAMINED TO ENSURE

PROPER OPERATION.

:;"""""""""""""""""'0""0"!"'t"'t!'t""t"'

000240
033737

O—=0O000—=—=0O0—-20000
P o R
e e
e
e I X o )
PNOAN NN N NN N
N

3751
3752
3753
3754
3755
3756
3757
3758
3759
3760
3761
5762
3763

J
6
MACY1Y 30A(1092)
24-MAY-79
13:59
CONVERGING/DIVERGING SEEK TEST

062737

1S76:

0014640

001234

010454
000006

001102

024726
010320
001102
001506
000031
010276
001524
001516
010452
001510
001512
000005
010334
001100

004136
025262
000004
025262
000003
025262
000002
025262
000001
025262
000003

NOP

64%:

001110
170666

001204
001115

001106
0064134
004135
001252

BIT
8NE
JMP
MOV

A¥B1T1S+cH*2>,TSTNMS DO THIS TEST?
643
s YES=-=-BRAN(CM
1817
:NO=-=-G0 TO THE NEXT TEST
#6,3#8TSTNM
:SEYT UP TEST NUMBER AND

JSR
MOV
MOV

PC,LODPRM
:LOAD THE PARMETERS FOR THE TEST
#YESTH,SFISLPERR
;SETUP THE LOOP ON ERROR ADDRESS
STSINM QDISPLAY
;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER

MOV
MOVB
MovB
MOV
MOV

#1%,5LPADR
ares,ardprB.B+10
SNFT #DPB.B+11
PEX1TH,9¥BYPASS
arfFl R

MOV
MOvB
1$:

TEST6:

001110
1%:

MOV
SuB
MOV
MoV
(mp

BG1

Mov
JSR

:CLEAR THE ERROR FLAG (SERFLG)

SN#RPT ,STIMES
#25.,9ERNAX

;GET THE 1TERATION COUNT
;MAx ERRORS ALLOWED FOR TEST

ofL(, R
#5,R2
4.9 PERR

;1S AVAILABLE FOR TESTING
:SETUP THE ERROR LOOP ADDRESS

#STACK,SP
R1,R2

EXIT6

R1,3#DPB.B+1?2
RO,8#CALL.B

:SETUP LOOP ADDRESS
;FS
F1T
;G0 TO EX]T6 ON ERROR
;PICKUP "'FC

;FORM LAST CYLINDER THAT
:LOAD THE STACK POINTER
SLAST CYLINDER

s YES=-=-BRAN(CH

sNC

;G0 EXECUTE

THE

COMMAND

;60 EXECUTE

THE

COMMAND

:60 EXECUTE

THE COMMAND

004136

ADD

#4,30DPB.B* 1?2

:NCe4

0046136

SuB

#3,300PB.B*12

JNC

004136

ADD

#2.,300PB.B+12

JNCe3

004136

SUB
JSR
ADD

004136

JSR

RO,9#CALL.B
RO,9#CALL.B

RO,9#CALL.B

¥#),30DPB.B*1?2
RO,a8#CALL.B
#3,900PB. B 1?2

;60 EXECUTE THE COMMAND

IN(e?
;60 EXECUTE TWE (OMMAND
INC+S

CIRJIAD RPO4/5/76 MECHANICAL AND READ/URITE Test
CIRJAD. P11
28-MAR-79 11:28
16

3853
3854
3855
3856
3857
3858
3859
31860
31861
31862

010440
010644
010450
010452

004037
063703
000736
000004

025262
001514

JSR

RO.8#CALL.B

ADD

EXIT6:

;60 EXECUTE

ofI( R

SCOPE

THE

SEQ 0075

COMMAND

:L00P

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

SeTEST 7

3807
3808
3809
31810
811
31812
31813
3814
3815
3816
3817
31818
3R19
3820
3821
3822
3823
31824
3825
3826
31827
3828
3829
3830
3831
3832
3833
31834
3835
3836
3837
3838
3839
3840
3841
3842
3843
3844
3845
3846
3847
3848
3849
3850
39251
3852

MACY1Y1 30A(1052)
24-MAY-79
13:59
PAGE
SERVO ADDRESSING LOGIC NOISE GENERATOR

RANDOM SEEKX

TEST

THIS TEST PERFORMS RANDOM SEEX OPERATIONS BETWEEN CYLINDERS 'F('
'LC'.
AFTER EACH SEEK, THE POSITION OF THE DRIVE IS VERIFIED BY

READING A SECTOR FROM THE CURRENTLY ADDRESSED CYLINDER
THE TRACK ADDRESS 1S INCREMENTED FOR EACH SEEK SO THAT

POSITIONING OCCURS USING EACH HEAD.

BETWEEN PARAMTERS

‘FT°'

AND

'LT°',

TRACK

AND TRA(K.
VERIFICATION

ADDRESSES ARE

INCREMENTED

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

010454
010654
010456
010464
010466
010472
010500
010504
010512
010520
010526

010534
010542
010550
010556
010562
010570
010576
010602

000240
033737
001002
000137
012737

004737
012737
013777
3737
737

010610
010616
010620
010624

010630
010632
010636
010640
010644
010650
010654
010656
010664

1817:

001442

011034
000007
026726
010576
001102
001506
000031
001516
000105
000173
034632
011032
010576
001100
001510
001510

001234
001102

:
649

TEST7:

001512

001510
023730
004136
004116

012737
012706
004037
012737
012706

010664
001100
025150

001110

113764
016446

010702
001100
004104

000020

001110

000010

15710

6469

: YES=-BRANCH

Mov

N7 ,948TSTNM

;SET UP TEST NUMBER AND

JSR
MOV
MOV
MOvB

PC,LODPRM
;LOAD THE PARMETERS FOR THE TEST
FIEST7 ,S#SLPERR
;SETUP THE LOOP ON ERROR ADDRESS
$STSTNM,@DISFLAY
LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER
S#RPT,STIMES
:GET THE ITERATION COUNT
#25. ,9ERMAX
sMAX ERRORS ALLOWED FOR TEST

MOVB
MOvVB
MOV
Mov
MOV
MOV
MOV
CMP

NSEEX ,a#DPB.A+2
#READHD ,OPB.B+2
RPADR,R&
#EX1T7 ,BYPASS
#TEST7,SLPADR
#STACK,SP
FC,OPB.B+12
FC.LC

;SEEK=COMMAND
;READ HEADER & DATA COMMAND
;UNIBUS ADDRESS OF THE RH11
;ERROR TERMINATION ADDRESS
;SETUP THE LOOP ON TEST ADDRESS
;SETUP THE STACK POINTER
;INITIAL CYLINDER ADDRESS
;CYLINDER LIMITS THE SAME ?

Mov

SHINUM, - (SF)

;USE

BEQ
JSR

023626
023724

004136

JMP

MOvVB

004106
004126

013737

@FBITS+<7¢2> TSTNMS ;DO THIS TEST?

MOov

004135

004136
001512

BIT

BNE

001110
170622
001204
001115

001252
001106

NOP

1%:

(LR
Mov
INC
SuB
JSR
ADD
151
MOv

FT1,DPB.B+11

1%
PC,SRAND

:NO=--GO TO THE NEXT

TEST

;CLEAR THE ERROR FLAG (SERFLG)

LOAD STARTING TRACK ADDRESS

:BR IF THEY ARE
;CYCYLE THE RANDOM NUMBER GENERATOR
THE

HIGH RANDOM NUMBER

=(SP)
;UPPER DIVIDEND
LC,=(SP)
;FORM THE DIVISOR
(SP)
; INCREMENT
FC,(SP)
sSUBTRACT THE LOWER LIMIT
PC,$D1V
;DIVIDE
(SP)+ ,DPB.B+12
;ADD THE REMAINDER 1O THE INITIAL
(SP)+
;DISCARD THE QUOTENT
DPB.B+12.DPB.A+12
;COPY NEW CYLINDER ADDRESS

MOv
MOV

¥.,SLPERR
#STACK,SP

;SETUP THE ERROR LOOP ADDRESS
;LOAD THE STACK POINTER

MOV
MOvVB
MOv

#STACK,SP
DPB.A,RPCS2(R4)
RPLACRG),=(SP)

;LOAD THE STACK POINTER
;SELECT THE DRIJVE
;GET THE LOOK AHEAD REGISTER

JSR
MOv

RO,a#CALL.A
¥., SLPERR

;60 EXECUTE THE COMMAND
;SETUP THE tERROR LOOP ADDRESS

CYLINDER

CIRJAD RPOL/S5/6 MECHANICAL AND READ/WRITE TEST
CIRJAD.PVY
28-MAR-79 11:28
17

3863
318664
31865
3866
3867
3868
3869
3870
3871
3872
3873

010726
010730
010732
010734
010740
010742
010744
010746
010752
010756
010760

006316
006316
000316
105766
001401
105216
105216
112637
013746
005216
122637

000001

004174

3874
3875
3876
3877
3878
3879
3880
3881

010764
010766
010770
010774
010776
011004
011004
011010

103007
103403
105037
000403
112737

000001

004037
105237

025262
004135

3883

011022

101403

3882

3884
3885

31886
3887
3888
gggg

011014
011024
011032

123737

113737
000004

2%:

004174
001630

004174
004174

004135

001520

001516

004135

3%:

4%:

MACY11 30A(1052)
RANDOM SEEX TEST

ASL
ASL
SWAB
1S18
B8tQ
INCB
INCB
MOvVB
MOV
INC
(MPB

13:59

PAGE 80

SEQ 0074

BMIS
BLO
CLRB
BR
Move

(SP)
(SP)
(SP)
1(SP)
2%
(SP)
(SP)
(SP)+,DYADPB+10
PRMLMT+22,-(SP)
(sP)
(SP)+ ,DTADPB+10

43
3%
DYADPB+10
43
#1,DTADPB+10

;ALIGN THE SECTOR ADDRESS
;ALIGN THE SECTOR ADDRESS
;PUT ADDRESS IN LOWER BYTE
:IN THE 1ST 20% OF SECTOR ?
:BR IF YES
;INCREMENT THE SECTOR ADDRESS
s INCREMENT THE SECTOR ADDRESS
;LOAD THE DPB
;PUT LAST SECTOR ADDRESS ON THE STA(K
s INCREMENT [T
:NEW SECTOR ADDRESS TOO LARGE ?

JSR
INCB

RO,a#CALL.B
DPB.B+11

;60 EXECUTE THE COMMAND
;INCREMENT THE TRACK ADDRESS

BLOS

EXIV7

:BR

(MPB

EX117:

24-MAY-79

MOvVB
SCOPE

DPB.B¢11,L1T
F1,0PB.B¢11

:BR IF NOTY
;BR IF ADDRESS IS 2 GREATER
:RESET 70 SECTOR ADDRESS 0
: CONTINUE
:RESET ADDRESS 10 SECTOR 1

MAXIMUM ?
IF

NOT

:RELOAD STARTING TRACK ADDRESS
.Loop ?

";"."""""""‘""""""'""'I""""'t'tlt""""'."
;«TEST

3891
3897

i
M

THIS TEST VERIFIES THAT THE SERVO HAS SETTLED DOWN AND THAT
THE DRIVE ]S ON CYLINDER WHEN THE DRIVE INDICATES SEEX COMPLETE.

3893
1894
3895
ggQ?

31898
3899
3900
3901
3902
3903

3904
3905
31906

3907
3908

o
;e
.
o
o
M

WHEN THE SEEX COMPLETES, THE PROGRAM READS THE DRIVE'S LOOK=AHEAD
REGISTER (RPLA) TO DETERMINE THE ADDRESS OF THE SECTOR ROTATING
INTO
POSITION.
THE PROGRAM THEN ISSUES A WRITE HEADER AND DATA (OMMAND
FOR THAT SECTOR.
IF THE DRIVE'S POSITIONER HAS NOT SETTLED DOWN OR
1F THE POSITIONER IS NOT ON CYLINDER (1F THE DRIVE IS AN RPO4&, THE
OFF CYLINDER CONDITION MUST LAST FOR AT LEAST 800 uUS), THE DRIVE

o
o

MARGINAL SERVO TRACKS IS MOUNTED ON THE DRIVE.

i
o

THE FIRST 80X OF THE SECTOR CURRENTLY UNDER THE MEAD, THE TEST wiLL
TRY TO ADDRESS THE NEXT SECTOR.
BASED ON OBSERVATION, THE PPOGRAM

.
M
M

1914

3917

3918

TEST

RANDOM SEEKS ARE ISSUED BETWEEN CYLINDERS "NC1*' AND °'NC +IC°
("NC1" STARTS AT VALUE "FC').
AT THE COMPLETION OF 1000 (10) SEEKS,
'NCY1® 1S INCREMENTED BY VALUE 'IC' AND THE SEQUENCE IS REPEATED.
THE TESY IS COMPLETED WHEN 'NC1' HAS BEEN INCREMENTED BEYOND °‘LC'.

M
;e
M

5315

DOWN

M
M
M
M

3909
3910
3911
3912
3913

SERVO SETTLE

o
.t

WiLL REPORT A 'WRU' ERROR.
(RP05/6'S MAY ALSO REPORT °NHS' ERROR UNDER
ERRORS IN THIS TESY INDICATE THAT THE SERVO SYSTEM MAY NOT B ADJUSTED
CORRECTLY, THAT THE DRIVE 1S MALFUNCTIONING, OR THAT A PAZKX WITH
THIS TEST USES THE EXTENTION BITS IN THE LOOK-AHEAD REGISTER 1O DETERMINE
WHETHER OR NOT 1T CAN PICK UP THE SECTOR ROTATING INTO POSITION.
1nt
TEST 1S OPTIMIZED SUCH THAT 1Ff THE DRIVE SIGNALS SEEK DONE WITHIN

1S ABLE TO START THE OPERATION WITHOUT LOSING A REVOLUTION MOST OF

THE TIME,

THIS TEST

IS VALID ONLY 1F

THE OPERATION IS STARTED WITHIN A FEW

HUNDRED MICRO-SECONDS AFTER SEEK DONE OCCURS.

THE NECESSARY TIMt

CIRJAD RPO4/5/6 MECHANICAL AND READ/URIT$16EST
CIRJAD
28-MAR-79 11:28

PAGE

SEQ 0077
ENOUGH WITHIN

THE

REQUIRED

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

RN N
NN~
[V LV LV )

001444

001234

012140
000010

001102

024726
011242
001102
001506
000031
011122

001110
170042
001204
001115
001106

\v_] w w (V. AN N
N N
~ ~ ~ ~ NNNNN

—

000000+~~~

1
1
1
1

1$110:

604106
004166
006175
004116
004176
001532
001350
004170
006172

no POHNNWNRIND
~ ~ SNSNSNNSNNN

O—0O0

004737
012737

64%:

004737
012737
012737
012706
012737
005737

011242
001100
000340
001244

001415
100405

017746

1%:

001252

001110

WO
WO OO
SN~

=2 OO0 -=0000
-

JSR

TEST10:

177776

000012

mMov

MOV
Mov
MOV
157

BtaQ
BMI

170076

177776

movB
move
MovB
Mov
MoV
mMov
Mov
Mov
Mov

MOvB
MoV

Mov
Mov

170076

Mov
Mov
MOV
MOovB
Mov

CLR
JSR
CLR

001374

001406
012072
027170
000010
000040
000010
004116
004116
000105

BNE
JMP
Mov

JSR

004104

034632
042664
012136

NOP

BIT

030476

[ X o T R
R
R
R
e R
WAV 1 NIV IV T
],F],0]1,81,8)
NONNN= NN

AL A0 A L L L L AW A AN AN AN PO TN PO N PO N NI NI N NI NI NI NI NI NINI N b b e el e e cd e
ad e et O o
NNO VNS NN =2 = OO NNNO CWVWNE D NAEANN == =2 ONOOWVME
NN
=00 N o
oSO
OISO NOONSTONNNSOFROONONSIOONSTOCONNTOON ~

b and

e
e
e
e
d
i

i el
D
B

i
i

)

D
D

e
D

D
)

d
sl
d
)
i
D

d Sl
D
d S
)

e imd

il —d

nd
D

il
e

el e
e
i
e
e

cnd e

e
i
e
o

) emd and o

el ed

) el o

)

000240
033737
001002
000137
012737

—

3973
3974

13:59

TIME DEPENDENT PARAMETERS OCCUR FREQUENTLY
RANGE 10 PERMIT THIS TEST 10 BE EFFECTIVE.

[elelelalslelalalelalalelelelelalololalolelalelolelelelololololelolelololololelalelalolole BNolololrtoTo)

3919
3920
3921
3922
3923
3924
3925
3926
3927
3928
3929
3930
31931
3932
3933
3934
3935
3936
3937
3938
3939
3940
3941
3942
3943
3944
3945
3946
3047
3948
3949
3950
3951
3952
3953
3954
3955
3956
3957
3658
3959
3660
3961
3962
3963
3964
3965
3966
3967
3968
3969
3970
3971
3972

n
6
MACYTT 30A(1052)
24-MAY-79
SERVO SETTLE DOWN TEST

1%:

000000
023304
0013544
000010

2%:
3%

000034
001270
000000
4%:

@FBIT1S+<10¢2>,TSTNAS ;DO THIS TEST?
649
; YES=--BRANCH
ST
:NO--GO TO THE NEXT TEST
#10,a#8TSTNM

;SET

UP TEST

NUMBER AND

;CLEAR THE ERROR FLAG (SERFLG)

PC,LODPRM
;LOAD THE PARMETERS FOR THE TEST
#TESTIO,@#SLPERR
;SETUP THE LOOP ON ERROR ADDRESS
STSTNM, @DISPLAY
;LOAD THE TEST NUMBER INTO THE DISPLAY
S#RPT ,STIMES
;GET THE ITERATION COUNT

#25.,8ERMAX

;MAX ERRORS ALLOWED FOR TEST

#SEEK ,840PB.A+2
#WR]TE ,DTADPB+2
F1,DTADPB+11

; SEEK=COMMAND
; COMMAND
:TRACK ADDRESS FOR

FC.NCY

;STARTING CYLINDER

#1% ,SLPADR

FC,DPB.A+12
FC,DTADPB+12
1C,DELTA

;SETUP THE

LOOP ADDRESS

THE WRITE
;CYLINDER ADDRESS FOR THE SEEK
:CYLINDER ADDRESS FOR THE WRITE

;CYLINDER INCREMENT

#-<256.+4.> DTADPB+4
;WORD COUNT
#BUFFER,DTADPB+6
;BUFFER ADDRESS

VALUE

;PATTERN POINTER

DPB.A,R1
RPADR ,R&

;LOAD DRIVE ADDRESS
;UNIBUS ADDRESS OF THE RH11

PC,SETBUF
R1

PC,CLRQUE
#EXIT10,BYPASS
¥., SLPERR
#STACK,SP

(W( PATTERN)

sLOAD THE WRITE BUFFER
;CLEAR REGISTER

;CLEAR THE OPERATION QUEUES
ERROR EX]T FROM TEST
:SETUP THE ERROR LOOP ADDRESS
;LOAD THE STACK POINTER

BFRT ,@nPS
CLKSTA
3%
1%
aPKV,=(SP)

:SET PRIORITY 10 7
;5et WHICH CLOCK ON SYSTEM
:BR IF NO CLOCK
;BR IF kW11-L CLOCK
:SAVE THE VECTOR

; CONTINUE

PKv,=(SP)

:SAVE

THE

VECTOR ADDRESS

MOov
MOV
Mov
Mov
MoV
MOV

aLKV,=(SP)
LKv,=(SP)
#1S7T108,3(SP)

;SAVE THE L' CLOCK VECTOR
:SAVE THE VECTOR ADDRESS
s CHANGE THE VECTOR

Mov
Mov
MOvB

DPB.A+12 ,RPCA(R4)
;LOAD THE CYLINDER ADDRESS
DPB.A+12,CYL.DS ;CYLINDER ADDRESS FOR ERROR MESSAGE

1S18

RPDS1(R4)

MOvB

#DORT],aRPVEC
;CHANGE THE RPO4/RPQS VECTOR
#8., SEKTMR
;LOAD THE SEEK TIMER
#B1T05,RPCS2(R4)
;INIT THE MASSBUS
R1,RPCS2(R4)
JRESELECT THE DRIVE

(LR

#SEEX ,RPCST(R4)
a#PS

;START THE SEEK
;CLEAR THE PRIORITY
SHAS THE

DRIVE

FINISHED

CIRJAD RPOL/S5/6 MECHANICAL AND READ/WRITE TEST
110
CIRJAD.P1Y
28-MAR-79 11:28

3975
3976
3977
3978
3979
3980
3981
3982
3983
3984
3985
3986
3987

3988
3989
3990

3991
3992
3993
3994
3995
3996
3997
3998
3999
4000

011402
011404
011406
011410
011416
011424
011426
011432
011436
011440
011446
011452
011460
011464
011466
011474

011500
011500
011506
011512
011516
011522
011524
011526
011530
011536

64001
6002
4003
4004
4005
6006
4007
<008
4009
4010
4011
4012
4013

011540
011542
011544
011550
011554
011556
011562
011564
011566
011572
011574
011602
011606

4015
4016
4017
4018
4019
4020
4021
4022
4023
6024
4025
4026
4027
4028

011620
011624
011630
011634
011642
011646
011654
011656
011664
011666
011674
011700
011704
011712

4030

011720

64014

6029

100402
000001

000773
012737
032764
001412
012702
004737
104023
012764
110164

012777
005737
001405
016676
062706
012737
012706
110164

016446
006316
006316
000316
122766

001001

105216
105216

112637
013746
005216
122637
101007
103403
105037

000403

011614

011714

000340
040000

S5%:

000010

000002
000004

000000

011500
001100
000010
000020

001110

00300

000001

023154

811

JSR
ERROR

6%:

Mmov
MOvB
MoV

157

BEQ

TST10A:

2%:

004174
001630

MOV
ADD

Mov
MOV
MOvB
Mov
ASL
ASL

SWAB
(MPB
BNE
INCB
INCB
mMovB
Mov

INC

004174

(MPB

006174

000001
004170
000111
000002
000004
000006
004202
004164
034616
000001

004174

001750

034576

004166

000000

001346
001514

mov

000040
000010
037544
001244

177776

8n]
WAIT
BR

BEQ

004104
062202

025662
001346

063737

177776
000012

N
6
MACY11 30AC1052)
24-MAY-79
StRVO SETTLE DOWN TEST

000000

3%:

4%:

001750
601532

IT HAS

3
s CONTINUE
#PR7 ,34PS
sCHANGE PRIORITY TO MAX
#BIT14, RPDST(RS)
;ERROR ?

#OPB.A,R2
PC,SVRHTY

:BR IF NOT
;DPB POINTER
sSAVE THE REGISTERS

;ERROR DURING SEEK

#6,SP

¢CORRECT THE STACK POINTER

#BIT105,RPCS2(R&)
INIT THE MASSBUS
R1,RPCS2(R4)
SRESELECT THE DRIVE
#ISR,QRPVEC
sSETUP THE RPO4/RPO5 VECTOR
SWHICH CLOCK
CLKSTA
TST10A
;BR 1F NONE
;RELOAD THE CLOCK VECTOR
2(SP) ,a(SP)

;SETUP THE ERROR LOOP ADDRESS
:LOAD THE STACK POINTER
R1,RPCS2(R4&)
;SELECT THE DRIVE
RPLA(R&L) ,=(SP)
;GET THE LOOK AHEAD REGISTER
(SP)
<ALIGN THE SECTOR ADDRESS
(SP)
;ALIGN THE SECTOR ADDRESS
(SP)
;PUT ADDRESS IN LOWER BYTE
#300,1(sP)
:IN THE LAST 20X OR SECTOR ?
2%
:BR 1F NOT
(SP)
; INCREMENT THE SECTOR ADDRESS
(SP)
s INCREMENT THE SECTOR ADDRESS
(SP)+ ,DTADPB+10 ;LOAD THE DPB
¥.,SLPERR
#STACK,SP

PRMLMT+22,-(SP)

;PUT

MAXIMUM SECTOR ADDRESS ON THE

(SP)
; INCREMENT PAST THE MAX]MUM ADDKESS
(SP)+ ,DTADPB+10 :NEW SECTOR ADDRESS TOO LARGE ?

:BR IF NOT

4%
: CONTINUE
#1,DTADPB+10
;RESET ADDRESS TO SECTOR 1
;POINTER
#DTADPB+4
,R3
#ORVCLR,RPCS1(R4)
;CLEAR THE DRIVE
(R3)+ ,RPWC(R4)
;LOAD THE WORD COUNT
(R3)¢+,RPBA(R4)
;LOAD THE BUFFER ADDRESS
(R3)+ ,RPDA(R4)
;LOAD THE TRACK/SECTOR ADDR

ASL
MoV

ASR
Mov

(LR
JSR

CMP

SNE
(LR
ACD

SEQ 0078

FOR THE OPERATION TO (OMPLETE

MovB
Mov
MoV
MOV
MOV
MoV

MOvVB

5%:

sWAIT

BLO
CLRB
BR

MOV
Mov

034474

sBR IF

PAGE

BHI

(LR

034544

13:59

3%
DTADPB+10

;BR IF ADDRESS IS 2 GREATER THAN MAXIMUM
;RESET TO SECTOR ADDRESS 0

DTADPB+16

;RESET

'DONE'

;SHIFT

DRIVE

#DTADPB,TRNSWT
R1,DTUW
#1,DRVACT(RY)

INDICATOR

;LOAD °'TRANSFER' DPB ADDRESS
;ADDRESS OF DRIVE TRANSFERING
;SET DRIVE ACTIVE INDICATOR
ADDRESS

#1000. ,TIMER(RY)
;SETUP THE OPERATION TIMER
R1
;RESTORE R1

;START THE OPERATICN
DTADPB+2,RPCS1(R4)
a#P$S
;CLEAR THE PRIORITY
RO,DRVCLI

SEKCNT,#1000.

SEKCNT
1C,NC1

STAC(K

;WAIT

FOR OPERATION TO COMPLETE

;BR

NOT

;FINISHED SEEKS ?
IF

;CLEAR THE SEEX COUNT
;ADD THE INCREMEN]

CIRJAD RPOL/S/6 MECHMAN]ICAL AND READ/WRITE TEST
110
CIRJAD.PIY
28-RAR-79 11:28

001350
001350
001350

001514
001346
001510

001350

:BR OIF

SuB

(np
Bul

{mp
BNE
JMP
MOov

1C,DELTA
SEKCNT
FC,LC
7%
TESTI0
NCY,DPB.A+12

023726

MOv

SHINUM,-(SP)

001350

MOV

DELTA,-(SP)

011242
001532
023626

001512
004116

6% :

7%:

INC

JSR
CLR

INC
JSR

023730
004116
004116

004176

004116
011242
001344

004176

ADD
187

cmp
BEQ

Mov

1ST10B:

004104
042202

000040
000010
000002

L[0]Y]

JMP
DEC
BNE

MOV

JSR
ERROR

000010

MOV
Move
MOV

000000
1%:

000004

EXIT10:

RT]

13:59

PAGE 83

seae 0079

:EXCEEDED THE CYLINDER LIMIT

Mov

PC,SRAND
-(SP)

1T MAS

:GET THE NEXT °*ZONE' ADDRESS
sCHECK THE DIFFERENCE
:DIFFERENCE GREATER THAN THE INCREMENT ?
;BR IF IT IS
;USE THE I1CREMENT PARAMETER
;COUNT THE NEXT SEEK
:BEGINNING AND ENDING CYLINDERS THE SAME
JBR IF NOT
:BR

sRESET

THEY ARE
THE

CYLINDER

ADDRESS

;CYCLE THE RANDOM NUMBER GENERATOR
;USE THE MIGH RANDOM NUMBER
:CLEAR THE UPPER DIVIDEND
;FORM THE

DJVISOR

(SP)
s INCREMENT
PC,801V
;DIVIDE
(SP)+ ,DPB.A¢1?2
;ADD THE REMAINDER 10 THE INITIAL CYLINDER
(SP)¢
:DISCARD THE QUOTENT
9:8.A012.01ADPB'12
;SAME CYLINDER SELECTED AS LAST TIME °
;BR IF 1T WAS
DPB.A¢12,DTADPB+12
;COPY NEW CYLINDER ADDRESS
TESTIO
: CONTINUE
SEKTMR
;DECREMENT THE SEEK TIMER
1%
;CONTINUL IF NOT DONE
#DPB.A,R2
;OPB ADDRESS
PC,SVRHII
;SAVE THE REGISTERS
24
;s TIMEOUT DURING SEEK
#BIT05,RPCS2(R4)
;INIT THE MASSBUS
R1,RPCS2(R4)
:RESELECT THE DRIVE

2(SP) ,a(SP)
EXIT10

;RESTORE

THE

CLOCK

:ABORT THE TEST

VECTOR

ADDRESS

:RETURN

;LOOP ?

SCOPE

‘;""'"""""""t""""""""""tt"'l"""'!'t't"'t'

BN
%
%

w0,

SeTEST N

4067
4068
4069
4070
“«ON
4072
4073
4074
4075
4076
4077
4078
<079
4080
4081
4082
4083
4084
4085
4086

001512
001532
001514

(np
8Hl1S

4066

001512

4055
<056
«057
4058
4059
4060
4061
4062
4063
40646
4065

001532

«051
4052
4053
«05«

023737

4048
6049
4050

011726
01173
011736
011744
011752
011760
011762
011770
011774
012002
012004
012010
012016
012022
012026
012030
012034
012036
012062
012046
012050
012056
012060
012066
012072
012076
012100
012104
012110
012112
012120
012124
012132
012134
012136

4031
4032
4033
4036
4035
403
4037
<038
4039
4040
40641
40462
4043
&044
6045
4046
6047

MACY1T 30A(1052)
26=RAY=T79Y
SERVO SETTLE DOWN TEST

ALL

SEEKS TEST

THIS TEST VERIFIES THAT
T0O ALL OTHER CYLINDERS.

THE

DISK DRIVE

CAN SEEK

FROM EACH CYLINDER

BEGINNING WITH CYLINDER 'FC', THE TEST SEEKS TO EACH CYLINDER
THE BEGINNING CYLINDER
BETWEEN 'FC' AND °'LC' FROM CYINDER 'FC°'.

ADDRESS 1S INCREMENTED AND THE TEST SEEKS BETWEEN THE NEW CYLINDER
THE SEQUENCE
ADDRESS AND ALL CYLINDERS BETWEEN 'FC' AND 'LC(C°.
CONTINUES UNTIL AL. CYLINDERS WAVE BEEN C(HECKED.

':"t"'I""""""""""""'""""""""""""""."

012140
012140
012142
012150
012152
012156

TST11:

001446

001234

012360
000011

001102

NOP

BIT

64%:

BNE
JMP
Mov

SFBITS+<1
12> TSTNMS ;DO THIS TEST?
649
s YES=-BRAN(CH
;NO-=G0 10 THE NEXT TEST
TS112
#11,3087STNN
SSET UP TEST NUMBER AND

;CLEAR THE ERROR FLAG (SERFLG?

Skl B

NNNNNNNNNNNN

[«=JV TV JV IV IV IV IV IV IV IV L VIV ]
O NNNNNNNNNNNN

AN N

el
el
Sl
D
il

N M L PO N

sl
il
il
il
el
—

NI ND L L A

004737

OO0
==t s 2O~ OOO

UWNN = =2 OOO
NP NWVE WNIN =O

N~NO

osro oNONSOSSONSOONSTOONSI
OSSN

il Sl o
il
D
il
il
il
il
el
el
D
il
el
i
D
il
D
el

L1046
4105
6106
6107
4108
4109
4110
A RR
G112

4103

4100
L0
6102

<098
4099

4096
4097

)

4094

4095

<089
<090
«091
6092
4093

2 ST VT, VT, U1 V1 .VT N1 N1,V V7. FT, V1. ST, VT .V1 N1, V7 V7 T WLNT N1, V7. ¥1. W)
A% 1v.J(VI VTV TV TV T TV U TV T VY, VT VT, VY VY VT, WY UY VT Wy e

<087
4088

CO0O0O0O0ODOOOOCOOOOOOOOOOOOOO

CIRJAD RPOL/S5/6 MECHANICAL AND READ/WRITE TEST
TMm
CZRJAD.PY
28-RAR-79 11:28

001252

025452
025262
001514
001512

004156

004156
004136
004136
000004

30AC1052)

JSR

PC,LODPRA
;LOAD THE PARMETERS FOR THE TEST
FTESTI1 ,@FSLPERR
;SETUP THE LOOP ON ERROR ADDRESS
STSTNR SD]SPLAY
sLOAD THE TEST NUMBER INTO THE DISPLAY REGISTER

ALL

024726
012300

MACYTY

SEEKS

MOV
mov
mov
move
Mov
move
MOovB
mov8
move
mov
mov
Mov
MOV

JSR
JSR
ADD

cmp
BGE

mov
ADD

cmp
8GE
SCoPt

TEST

24-MAY-79

8#RPT $TIMES
#25.,3ERNAY
#18,8LPADR
FS,0P8.B+10
FS,DPB.C*10
F1,0PB.B¢
11
F1,0PB.C+11
FC.DPB.B*1?2
FC,OPB.C+Y2

14 ¥1111.svass
#STACK,SP

RO,9#CALL.

RO,@#CALL.
1C,DPB.Ce

13:59

PAGE 84

;GET THME JTERATION COUNT
;MAX ERRORS ALLOWED FOR TEST
;SETUP THE LOOP ADDRESS
;SECTOR ADDRESS
:SE"TOR ADDRESS

s TRACK ADDRESS
: TRACK ADDRESS

;STARTING CYLINDER ADDRESS

;TEST

ABORT

EXIT

;SETUP THE STACK POINTER

:60 EXECUTE THE COMMAND
;60 EXECUTE THE COMMAND
;s INCREMENT THE ENDING CYLINDER ADDRESS
SCHECK TF EXCEEDING MAXIMUM
;BR [F NOT
;RESET ENDING CYLINDER ADDRESS
; INCREMENT

THE

STARTING ADDRESS

;EXCcEDING MAXIMUM ?
;BR |F NOT
;LOOP ?

SeQ 0080

CIRJAD RPO&L/S/76 MECHMANICAL AND READ/WRITE TEST
CIRJAD.PI
28-MAR-79 11:28
T
G113

V14

LSBTIL

L4115

MACYY1 30A(1052)
ALL SEEKS TEST
eee

24-MAY=79

13:59

PAGE 85

SEQ 0081

TIMING TESTS eoe

;/'\:/'\:/'\:/'\:/'\:/'\:/'\:/'\:/'\:/'\:/'\:/;\:!'\:I'\:/'\:/'\:/'\:/'\:
s/eNc/eN/eN\ e\ /oeN\ e\ e\
s/eN/eN/eN\/eN\/ e\ /N /eN\

soTHE

TIMING TESTS WILL

/eN\/e\faN\/e\ e\
o\ e\ /o\/e\ /N

ENSURE

THAT

THOSE

e\
e\

e\ /e\/e\:/e\:/e\:
e\ /e\/e\/e\: /0N

FUNCTIONS BEING

;*TIMED ARE WITHIN THE TOLERANCES SPECIFIED IN THE ''RPO4
s*ENGINEERING SPECIFICATIONS'.
;*THE SEEK TIMING WilLL BE PERFORMED USING EXPLICIT SEEK
s*OPERATIONS. AT THE COMPLET]ON OF EACLH OF THE TIMING
:-;eggs THE MINIMUM, MAXIMUM AND AVERAGE TIMES WILL BE
;¢TYPED,

AAS VAN VAR FEAN FVEAN FEAS JAAN VAN VALY VAR FEARS JEAS FARN VALY FERN FAAN FARN FARN ]
WAAN VAN VEAS VEAS FAAS VAAS VAN JEAN VAR VEAN FAAS VALY VEAN FEAL VAN VALY VAN VRN |
AAS VAAN VAN VARN FAAS VEAN VAN VALY FEAS VARN VALY FEAR VAR VRS FEAY FAAS VALY FERN |

4133

L]Sl.

4}%5

J*TEST

6136

6137

L1610
6142

.
X

4138
6139
6140

;v
.
i

6163

6166

L]AS

6166
4147

012360
012360

000240

6169

012370

001002

6148

033737

001450

000137

013116
000012

001102

012404
012410
012416
012424

004737
012737
013777
013737

024726
012360
001102
001506

001110
166516
001204

4158
6159

012440
012444

005737
003002

00124¢

6161

012452

012737

6150

6151
6152
4153
4156
4155
6156

4157

6160
¢162

163

4164

6165

4166

6167
G168

012362

1S112:

012372

012376

012432

012446
012460
012464

012466

012472

012500

012504
012512

012737

112737

000031

000137

013116

004037

027008

000402

012452

000137

013114

013746

001524

013764

113766
012664

001234
64$:

00'510

000034

001516
000006

000001

THIS TEST WILL START

A SEARCH TO CYLINDER O,

TRACK O,

SECTOR

ENSURE IT IS WITHIN TOLERANCE:
16.67 MS/REV ¢+ OR - 2% IF 60HI
16.67 MS/REV ¢ OR = 2.5% IF

RN LN R AN LR PR PN

NOP

SOHWZ.

R RO ERETOERITRONREREANROANCEORONOEOORNOOOROTONCY

BIT

ANBITS+<12%2>, TSTNMS ;D0 THIS TEST?

JMP

157113

MoV

mMOvB
151

2%:

SPEED TIMING TEST

0.
AS SOON AS THE INTERRUPT OCCURS, THE GO BIT IS SET AGAIN
AND THE OPERATION IS TIMED.
THIS PROCEDURE S REPEATED 10
TIMES THEN THE AVERAGE TIME IS CALCULATED AND CHECKED TO

JSR
MOV
MOV
MOV

1%:

RT RN TRC R EROERACORNRRCERIRNONROCOERROCOIROROTTOTS

ROTATIONAL

BNE

001115

001106

NPT E N PR NPT NS

649

#12,308TSTNM

: YES=-BRANCH

:NO-=-GO TO THE NEXT TEST

;SET UP TEST NUMBER AND
;CLEAR THE ERROR FLAG (SERFLG)
PC,LODPRM
:LOAD THE PARMETERS FOR THE TEST
#IST12,Q¢SLPERR ;SETUP THE ERROR LOOP ADDRESS
STSTNM,aDISPLAY
;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER
QFRPT STIMES
;GET THE ITERATION COUNT

#25.,3ERMAX

;MAX ERRORS ALLOWED FfOR TES®

BGT

SFCLKSTA
1%

JYES==START TEST

MOV

#19,SLPADR

;SETUP LOOP ADDRESS

B8R

JMP
JSR

JMP

MoV

MOV

MOVB
MOV

T1ST113

RO,8#SRCNHOO

EXIT1?2

A¥FC,RPCA(RG)

affFsS,=(SP)

aNFT,1(SP)
(SP)+ ,RPDA(R4)

;KW11-P CLOCK?

:NO==GO TO NEXT TEST
;00 A MASSBUS INIT & RECAL
;RETURN HERE

[F NO ERROR

JRETURN HERE [f ERROR
JFC

JFS

Pl
LOAD FT/FS

CIRJAD RPO&L/S/6 MECHANICAL AND READ/WRITE TEST
(IRJAD.PVY
28-MAR-79 11:28
112
4169
170
6171
6172
4173
Q1764
4175
4176
Q177
G178
6179
4180
(181
6182
4183

012516
0125264
012526
012532
012540
012542
012546
012552
012556
012562
012570
012576
012602
012610
012614

012737
005005
012703
032737
001402
012703
012706
012701
004737
012777
012777
005077
012777
012716
000001

4185
4186
(187

012624
012632
012634

032764
001415
104412

L1864

4188

012616

012636

012676
012704

012777
000001

4199

01271¢

032764

4200
6201
6202
4203
42064
4205
Q206
4207

4208

6209
6210

4211

6212

«213

4214
4215

4216
4217
«218
4219
6220
4221
4222
422%
4224

012722
0127264
012726
012732
012736
012744
012752
012754

012756
012762
012764

012766

012770
012776

013002

013004

013006
013010
013014
013020
013026
013034
013036
013040
013040

003004
001100
000012
027172
012770
027170
166600
000131
000131

004164

6196
4197

012706

001220

012702

004737
012764
013764
1046413
104017
005077

4198

00277«
000100

000101

012642
012646
012654
012662
012664
012666

012672

001206

042777

0189
6190
4191
6192
4193
L4194

«195

013114

040000

042202
000040
004166

000131

042777

000101

004737
005301
003304

000424

042777

005037

012600

166579

166554

000131

040000
004164
042202
00004C

004164

2 ¥
166474

166464

000012

177776

166402

7%:

012764

004164
042202
000040
004164

000040

mov

#DTADPB,R?2

000010
000010

000010

8%:

13:59

PAGE

;;ESCAPE 70 EXIT12 ON ERROR
; COUNT UP
:60HZ PARAMETERS
;60 H2?
;YES~--BRAN(CH
:NO-=50 Hl PARAMETERS
;SETUP STACK
;TIME 10 SEARCHES
INITIALIZE THE TIMERS
;SETUP VECTOR IN CASE OF OVERFLOW
;SETUP RP04/S5/6 VECTOR
:START COUNTING AT ZERO
SINT.EN., COUNT UP AT 100xNHZ
sSTART A SEARCH
;WAIT CN INTERRUPT

;STOP THE CLOCK

#BIT14,RPDST(R4) ;ERROR?
2%
:NO=--BRANCH
:SAVE RO=RS

;DPB POINTER

JSR
MoV
MoV
RESREG
ERROR
CLR

PC,a#SVRH11
;SAVE ALL THE RH11/RP0O4 REGISTERS
#BIT0S,RPCS2(R4) ;MASSBUS CLEAR
S#DTADPB,RP(S2(R4) ;SELECT DRIVE
:RESTORE RO-RS
17
ePKkB
JSTART THE COUNT AT ZERO

Mov
WAIT

#131,9PK(S

mMov

WFSEARCH, (RG)

BIC

#101,9PK(S

BEQ
SAVREG
MoV
JSR
MoV
MoV
RESREG
ERROR

JSR

DEC
8GT

B8R

BIC

:START A SEARCH

:START THE CLOCK
;WAIT ON INTERRUPT

;STOP THE CLOCK

#B1T14,RPDST(RG) ;1S "ERR=1'"

;NO=--BRANCH
:SAVE RO-RS
#DTADPB,R?
:DPB POINTER
PC.a#SVRH11
:SAVE ALL THE RH11/RP0O& REGISTERS
#81T05,RPCS2(R4) ;MASSBUS CLEAR

8#DTADPB,RPCS2(R4) ;SELECT DRIVE
;RESTORE RO-RS
17
:DISK ERROR OCCURRED

PC,a¥#COUNT

:UPDATE THE COUNT

:YES=-GO TO THE EX:T

R1
1%

#101,aPK(S

CLR

9#PS

181

(SP)+

[ [0]]

005726

104412
012702
004737
012764
013764
104413
104020

#1071 ,3Px(S

s8Il

000010
000010

PEXITI2,8ESCAPE
RS
#17A.R3
#SW06
., 9#C.SWR
TEST1Z2
#178,R3
#STACK,SP
f10.,R1
PC,af#STRTMR
#7%,9PKV
#OORTI,aRPVEC
aPxB
#131,9PKCS
#SEARCH, (RG)

BIC

8IT
8EQ
SAVREG

000010
000010

027236

000101

Mmov
CLR
mov
811
8eQ
mov
TEST12: MOV
mov
JSR
MoV
MoV
1%:
(LR
MoV
MoV
WAlT

000012

166510

012714

001415
104412
012702
004737
012764
013764
104413
104017

166604
022036

MACY11 30A(1052)
24-MAY=79
ROTATIONAL SPEED TIMING TeST

(SP)+,RO

:DONE?
;NO--BRANCH

:STOP THE (LOCK

;:DROP THE PRIORITY

;PC OF WAIT#?2

:POP THE PS FROM THE STA(K

SEVREG
MoV
JSR
MoV
MoV
RESREG
FRROR

:SAVE RO=RS
#DTADPB,R2
;DPB POINTER
PC,afSVRH1
:SAVE ALL THE RHY1/RPO4& REGISTERS
#BITOS,RPCS2(R4) ;MASSBUS CLEAR
O#DTADPB,RP(S2(R4) ;SELECT DRIVE
20

;RESTORE RO-=RS
;CLOCK OVERFLOWED

MOV

#BIT0S,RP(S2(RG)

;MASSBUS INIT.

SEQ 0082

CIRJAD RPO&L/S5/76 MECHANICAL AND READ/URI?E TEST
CIRJAD.PY
28-MAR-79 11:28
112
6225
4226
4227
4228
6229
4230
6231
4232
6233
623
6235
asgg

013066
013054
013060
013066
0130764
013076
013102
013104
013106
013106
013112
013114

013766
004737
012777
032737
001004
004037
002774
000403

004164
024212
037544
000100

904037
003004
000004

027370

000010
021546
001220

027370

9%:
EXIT12:

F
7
MACYTY1 30AC1052)
24-MAY-79
ROTATIONAL SPEED TIMING TcST

13:59

PAGE 87

SEQ 0083

MOV
JSR
MOV
BIY
BNE
JSR
17A
BR

@#DTADPB,RPCS2(R4) ;SELECT DRIVE
PC,a#ST.CLK
;INITIALIZE THE CLOCK
#ISR,ARPVEC
;RESTORE RH11/RP04/5/6
#5u06,80C.SWR
;60 H2?
9%
;NO == BRANCH
RO,3#TYPTIM
;GO TYPE THE TIMES
;POINTER
EXIT12
;60 10 EXIT

JSR
178
SCOPE

RO,Q#TYPTIM

;60 TYPE THE
:POINTER
;LOOP ?

INT.

VECTOR

TIMES

4238
1.239

.';"""""'0""""t"""'"""""'t"'ttt'.tt"tt""t"t'

cga?

;*TEST

Lo4?2

THIS TEST WILL COMMAND FORWARD SEEK CYCLES TC ADVANCE

6246

CYLINDER 'LC', THEN REVERSE SEEXK TO CYLINDER 'FC'.

624

6243

6265
4246
454;
424

4250

4251
6252
4253
6256

013116

000240
033737
001002
000137

013562

&260

013142
013146
013154
013162

00+737
012737
013777
013737

024726
013116
001102
001506

4262
426%
4264
6265

013176
013202
013206
013210

005737
003002
000137
012737

001244

4255

4256
6257
6258
4259

6261

6266
4267
4268
4269
6270
4271
4272

&27%
«274
6275

6276

&277
4278
6279
4280

013134

013170

013216
013222
013224
013230
013234
0132642
0132646

013254

013260
013262

013266

013274
013302
013306
013316

012737

1127%7

004037
000402
000137
012703
012737
012706
013737

005237

005005
004737

012777

012777
005077
013764
012714

001452

000013

000031

013562
013210

027006
013560
003014
013560
001100
001510

004176
027172

013454

027170
166074
004176
000105

SEEK

TIMING

THE

TEST

INCREMENT

1S GREATER

THE

THAN 1HE

THE

YIME TO PERFORM EACH SEEK 1S CHECKED TO ENSURE 17 DOES NOT
EXCEED THE MAXIMUM TIME PERMITTED FOR A ONE CYLINDER SEEK.
THE TIME MUST BE LESS THAN 10MS.
A AR R

1ST13:

013116
013120
013126
013130

CYLINDER

CYLINDER BY ONE UNTIL

M
v
.

421.9

ONE

R AR A A A A A A

A R

A A AR A A A

A A A A A A AR AR

ARl

NOP
BIT
BNE
JMP

SFBITS¢<c13¢2>
643
18114

001204

JSR
MOv
MoV
MOV

;CLEAR THE ERROR FLAG (SERFLG)
PC,LODPR®
:LOAD THE PARMETERS FOR THE TESY
#TIST13,308LPERR ;SETUP THE ERROR LOOP ADDRESS
STSTNM,ADISPLAY
:LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER
a¥RPT ,STIMES
;GET THE ITERATION COUNT

001106

187
BGT
JMP
MOV

O#CLKSTA
1%
18114
#19,8LPADR

001234

001102

649:

001110
165760

001115

001206
004176

MOVB

1%:

JSR
BR
JMP
2%:
MOV
Mov
TEST13: MOV
MOV

INE

CLR
JSR

166100

021332
000034

MOV

MOV
1$:

MoV
(LR
MOV
MOV

#13,3¥#8TSTNM

#25..,8ERMAX

TSTNMS ;D0 THIS TEST?
; YES-=BRANCH
;NO==-60 TO THE NEXT

TEST

;SET UP TEST NUMBER AND

:MAX ERRORS ALLOWED FOR TES®
KW11=P CLOCK?
:YES==START TEST
:NO==GO TO NEXT TEST
;SETUP THE LOOP ADDRESS

RO,a#SRCHOO
;D0 A MASSBUS INIT. AND RECAL
2%
:NO ERROR RETURN
EXIT13
;ERROR RETURN=--SCOPE LOOP CALL
#110,R3
;PARAMETER POINTER
FEXITIZ,ESCAPE ;:ESCAPE TO EXIT13 ON ERROR
#STACK,SP
JSETUP STACK
FC,aNDTADPB+12
;;START WITH BEGINNING CYLINDER

DTADPB+1?2

s INCREMENT THE BEGINNING CYLINDER

#79%,8PKV

;SETUP INCASE OF OVERFLOW

RS
PC,8#STRIMR

;SET THE UP/DOWN SWITCH 10 UuP
sINITIALIZE THE TIMERS

#DORT] ,aRPVEC
:SEY RPO4/S5/6 VECTOR
sPKB
:START THE COUNTER AT ZERO
S¥DTADPB+
12 ,RPCA(RL) ;LOAD DESIRED CYLINDER
#SEEX, (RG)
;START A SEEK

CIRJAD RPOL/S/6 MECHANICAL AND READ/UR11$1§EST
(IRJAD.PVI
28-MAR-79 11:28
4281
6282
4283

013320
013326
013330

012777
000003
042777

285
0286
4287

013344
013346
013350

001415
104412
012702

4284

6288
4289
6290
6291

013336

032764

000'31
000101

040000

004737
012764
013764
104613

6293
6294
6295
6296

013400
013404
013410
013412

004737
004737
005705
001011

027236
026564

4298
6299
«300
4301
302
303
2304
4305
4306
4307
4308
4309
4310
6311
4312
6313
314

013420
013426
013430
013434
013436
013442
013450
013452
013456
013462
013466
013470
013472
013476
013500
013504
013512

023737
002725
012705
000722
005337
023727
003314
000424
042777
005037
012600
005726
104412
012702
004737
012764
013764

004176

6297

6315
4316

4317

013376

013414

013520
013522
013524

104017

005237

104413
104020

166042

000012

062202
000040
0041664

004176

00001C
000010
2%:

001512

000101
177776

004164
042202

9000040
004164

000000

165716

013524
013532

012764
013764

000040
004164

000010
000010

4321

013544

012777

0375644

021062

322

6323
6324

6325
6326

013540
013552

01355
013560

004737

004037

003014
000004

024212

027370

6%:

7%:

000010
000010

4318
4319

4320

3%:

1177777
004176
004176

mov
WAIT
BIC

#131,9PKCS

1]
SAVREG
MOV

#101,9Px(S

817

004164

01335
013360
013366
013374

6292

166052

8%:

#BIT14 RPDST(R4G)

PAGE 88

SEQ 0084

;START THE (LOCK
JWALT ON INTERRUPT
;STOP THE CLOCK

;ANY DISK ERRORS?

#DTADPB,R?

s NO--BRAN(CH
:SAVE RO-RS
.DPB POINTER

1?7

;REPORT TME ERROR

@#DTADPB+1?2

sMOVE TO NEXT CYLINDER

JSR
MoV
MOV
RESREG

PC.a#SVRHII
;SAVE ALL THE RW11/RPO& REGISTERS
#BIT0S,RPCS2(RG) ;MASSBUS CLEAR
a#DTADPB,RPCS2(R4) ;SELECT DRIVE
;RESTORE RO-RS

JSR
JSR
187
BNE

PC,afCOUNT
PC.,a#71WONMS
RS
4%

(mp
BLT
MOV
BR
DEC
cmp
BGT
B8R
BIC
CLR
MOV
TST
SAVREG
MoV
JSR
MOV
Mov

a#DTADPB+12,LC ;0UT OF CYLINDERS?
1%
sNO=-G0 DO THE NEXT SEEKX
#-1,RS
;SET UP/DOWN SWIT(H TG DOWN
1%
;60 DO THE NEXT SEEK
S#DTADPB+1?
;MOVE TO NEXT CYLINDER
a#DTADPB+12,#0
;0UT OF CYLINDERS?
1%
sNO=-=-G0 DO THE NEXT SEEK
8%
;60 10 THE EXIT
#101,aPK(S
;STOP THE CLOCK
afPS
;DROP THE PRIORITY
(SP)+ RO
;PC OF WAIT+?2
(SP)+
;POP THE PS FROM THE STA(CK
:SAVE RO-RS
#DTADPB,R?
;DPB PJINTER
PC,a#SVRH1T
;SAVE ALL THE RH11/RPO& REGISTERS
#BITOS,RPCS2(RG) ;MASSBUS CLEAR
SNDTADPB,RP(S2(R&) ,SELECT DR]VE

ERROR

INC

RESREG
ERROR

JCOUNT THIS SEEKS TIME
sSTALL FOR 2 MILLISECONDS
;UP OR DOWN?
; DOWN--BRANCH

;RESTORE RO-RS
sREPORT (LOCK OVERFLOW

MOV
MOV

#BITCS,RPCSC(RG) MASSBUS INIT,
@#DTADPB,RP(S2(R&) ;SELECT DRIVE

MOV

#ISR,aRPVEC

JSR
JSR

ExIT13:

MACYT1 30AC1052)
24-MAY-79
13:59
ONE CYLINDER SEEKX TIMING TEST

110
SCOPE
R

PC,a¥sT. (LK

SINITIALIZE THE (LOCK

RO,3#TYPTIM

;GO TYPE

A A

;POINTER
;L00P ?
R R

TIMES

A R

VECTOR

R R

4328
6329

;*TEST

«330
331
6332

4333

.
oY
)

4334
335
4336

THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER Q 10
CYLINDER 'LC*', THEN A REVERSEX FROM CYLINDER ‘'L(' 1O
CYLINDER 0.
BOTH SEEKS ARE TIMED AND C(HECKED TO ENSURE THty

i
.t

THIS SEQUENCE 1S REPEATED 128 TIMES (FOR A TOTAL
OF 256 SEEKS). THE AVERAGE ACCESS TIME MUST BE LESS THAN 30 MS,
CYLINDER *LC* DEFAULTS 10 136 (10) FOR AN RPO4/5 OR 10 255 (1O

ARE WITHIN THE

THE

(,527

ACCESS

sRESTORE RMI1/RPO&/S/6 [T,

TIME MEASURMENT

AR AR AR

TEST

TOLERANCE ALLOWED FOR THE ACCESS TIME MEASURMENT,

CIRJAD RPO4/5/6 MECHANICAL AND READ/WRITE TEST
CIRJAD P11
114
2B8-MAR-79 11:28

4375
4376
4377
4378
4379
4380
<381
<382
(383
4384
4385
4386
4387
4388
4389
4390
4391
4392

000240
033737
001002
000137
012737

013606
013612
01362«
013626
013634
013642
013646
013650
013654

13:59

PAGE

SEQ 0085

FOR AN RPO6.

001454
0146300
000014

001102

014300
013654
027006

e
o
e

000200
027172
0146172
027170
165440
00151¢
000105
000131

(V.

000101
040000

13766

014002
014004
014006
014012
014016
014024

004164
042202
000040
004164

014032
014034
014036
014040
014044
014050
014054
014062
014070
014076
014100
014106

001106

001206

646%:

000034
000000

001510
000105
000131

000101
040000
104417

2%:
TEST14:

SFBITSec14¢2>

JMP
mov

18115
#14,308TSTNM

1%:

165404
000012

000010
000010

2%:

16302

165272

000012

TSTNMS ;DO THIS TEST?
:NO=-=GO TO THE NEXT TES?
:SEYT UP TEST NUMBER AND
;CLEAR THE ERROR FLAG (SERFLG)

#25.,3ERMAX
S#(LKSTA

MOV

#1%,8LPADR

JSET

B8R

BGT
JMP

JSR

JMP
MOV
Mov
MOV

MOV
MOV
MOV

PC,LODPRM
#IST14L,Q#SLPERR

JYES=--BRANCH

;LOAD THE TEST NUMBER INTO TME
;GEY THE ITERATION COUNT
;MAX ERRORS ALLOWED FOR TEST
;KWl11=P CLOCK?

STSTNM,RDISPLAY
a¥RPT,STIMES

1%
18115

RO,a#SRCHOO
EX1T14
#T11,R3
WEXIT14,8ESCAPE
#STACK,SP

#128.,R1

PC,af#STRIMR

#7%,3PKV
#DORT] ,aRPVEC

;LOAD THE PARMETERS FOR THE TEST
;SETUP THE ERROR LOOP ADDRESS

DISPLAY

sYES==START TEST
;NO=-=-GO TO NEXT TEST
THE

LOOP ADDRESS

;00 A MASSBUS

INIT £ RECAL

JRETURN HERE IF NO ERROR

;RETURN HERE ON ERROR
;PARAMETER POINTER
;:ESCAPE TO EXIT14 ON ERROR
;SETUP

STACK

:REPEAT *'0=-136-0"" 128 TIMES

DINIT. THE COUNTERS

JSET UP VECTOR IN CASE OF
:SETUP RPO4/5/6 VECTOR

aPKB

MOV
MOV
WAl

#SEEX ,RPCST(R&)
#131,aPK(S

MOV
JSR

#DTADPB,RZ2
PC,asSVRHIT

:DPB POINTER
sSAVE ALL THE RHIV/RP0O4 REGISTERS

17
RS
PC,a#COUNT

;SEYT UP/DOWN SWITCH 10 UP
;UPDATE THE COUNT

aPKB

;START THE COUNT AT

LC,RPCA(RSG)

;START

COUNT

;"MIDDLE'

OVERFLOW

CLR

MOV

;START A SEEK
:START THE CLOCK
;WAIT ON INTERRUPT

#101,aPK(S
;STOP CLOCK
#B17114 ,RPDSI(R4) ;ERR=1?
2%
;NO--BRANCH
:SAVE RO=RS

MOV
MOV
RESRFG

#B81T05,RPCS2{R4) ;MASSBUS CLEAR
a¥#DTADPB,RP(S2(R4) ;SELECTY DRIVE
:RESTORE RO-RS

ERROR
(LR
JSK
CLR

MOV
mov
MOV
WAl

BIC
811

BtQ
SAVREG

PC,asfTWOMS
FC,RPCA(RG)
#SEEK ,RPCSY(R&)
#131,8PK(S

#101,8PK(S

#B1T14,RPDSTI(RL)

ZERO

CYLINDER

BIC
BIT
BEQ
SAVREG

JSR

000C 54
000000

€469

JSR
MOV
Mov
Mov
MovB
187

JSR

165414

027236
026564
165326

1%:

165444

020676

BIT

BNE

001244

013774

0164114
014116

NOP

001234

024726
013562
001102
001506
000031

ol
i

(v}
~

d
d

15114

014276
003024
014276
001100

3736
3742
3750
3756
3764

6357
4358
4359
4360
«361
4362
6363
4364
4365
4366
4367
4368
4369
4370
4371
4372
«373%
4374

013562
01356¢
013564
013572
013574
013600

6352
635%
4354
4355
4356

:;"""I'0"0"""""""0"'t""t't"t""t.'t"t't"t""'t

6346
6347
0348
4349
4350
4351

elelelelolofololaolelele)

4337
4338
6339
4340
6361
6342
4363
6344
6345

MACYI1 30A(1052)
24-MAY=79
ACCESS TIME MEASURMENT TEST

:STALL FOR 2 MILLISECONDS
;BEGINNING CYLINDER
;START A SEEK
;START THE CLOCK
:WAIT ON INTERRUPTY

;ST0P THE
ERR:=YV?

CLOCK

:NO==-BRAN(CH
;SAVE RO-RS

2ERO

CIRJAD RPOL/S/6 MECHANICAL AND READ/WR]TE TEST
114
CIRJIAD.PYI
28-MAR-79 11:28

4647
L4468

106413
104020

0127664
013764
004737
012777
004037
003024
000004

177776

004164
042202
000040
004164

000040
004164
024212
037544
027370

mov
MOV
RESREG

ERROR

Mov

7%:

8GT
BR
81

JSR
JSR

DEC

165200

(LR

mov
1871

SAVREG

Mov

JSR

000010
000010

mMov
Mov
RESREG

8%:

2
B

2
IR

;NO--BRANCH
JYES--EXIT
;STOP THE CLOCK

#101,aPK(S
arPs

:DROP THE PRIORITY
:PC OF WAIT+?

(SPY+ RO

:POP THE PS FROM THE

(SP)+

;SAVE RO-RS

STA(K

#DTADPB,R?2
;:DPB POINTER
:SAVE ALL THE RHT1/RPO& REGISTERS
PC,a3#SVRH] 1
#B1705,RPC S2(R&) ;MASSBUS CLEAR
a#DTADPB,R PCS2(R4) ;SELECT DRIVE

;RESTORE RO-R5
. CLOCK OVERFLOWED

;RESTORE RH11/RP0O4/S5/6 INT. VECTOR

#1SR,aRPVE C

RO,a#TYPTI "

;60 TYPE

;POINTER
;LOOP ?

SCOPE

TeTEST 15

;DONE?

#B1105,RPC S2(R4) ;MASSBUS INIT.
@#DTADPB,R PCS2(R4) ;SELECT DRIVE
INITIALIZE THE (LOCK
PC,a#ST.CL K

R 2R 22222 XXX

PC .9/ COUNT
PC.a#TWONS
R1
1%

Mov
MoV

JSR
T

;SET UP/DOWN SWITCH 10 DOWN
;UPDATE THE C(OUNT
JSTALL FOR 2 MILLISECONDS

MOV

EX]T14:

17
#-1,RS

ERROR

JSR

020344

;RESTORE RO-R5

XXXX2Z22ZX2 X2

22222222

MAXIMUM SE EXK

2R R

THE

TIiMES

RN AN

TIMING TEST

THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER 0 710
CYLINDER *LC', THEN A REVERSE SEEK FROM CYLINDER 'L(C' 10

BOTH SEEKS ARE TIMED AND CHECKED TO ENSURE
CYLINDER O.
THEY ARE WITHIN THE TOLERANCE ALLOWED FOR THE MAX]MUM SEEK
THIS SEQUENCE 1S REPEATED 128 TIMES (FOR
TIME.
THE MAXIMUM SEEK TIME MUST 8E LESS THAN
A TOTAL OF 256 SEEKS).

S4 MS.

'LC' DEFAULTS TO 410 (10) FOR RP04/S5'S AND 10 8¢ (100

FOR RPO6'S.

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

014300
014300
014302
014310
014312
014316

014324
014330
014336
016344

157T15:

001456

001234

015016
000015

001102

024726
014300
001102
001506

001110
164576

001204

64%:

NOP

BIT

2 ;DO THIS TEST?
, TSTNMS
AFBITS+<15

MOV

#15,308TSTNM

BNE
JMP

JSR

MOV

MOV
MOV

649
15116

s YES==-BRANCH
:NO=-=G0 10 THE NEXT TEST

;SET UP TEST NUMBER AND
:CLEAR THE ERROR FLAG (SERFLG)
;LOAD THE PARMETERS FOR THE TEST
PC,LODPRNM
#1ST1S,Q08LPERR ;SETUP THE ERROR LOOP ADDRESS

$TSTNM,3DISPLAY :LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER
:GET THE ITERATION (OUNT
o#RPT,STIMES

. o

1044612

012702
004737
012764
013764

000101

000010
000010

#DTADPB,R2
.DOPB POINTER
;SAVE ALL THE RH11/RPJ& REGISTERS
PL,eNSVRHI 1
#B1705,RP( S2(R&) ;MASSBUS CLEAR
s#DTADPB,R PCS2(R&) ;SELECT DRIVE

4445

014170
014172
014200
014204
014206
014210
014212
014216
014222
014230
014236
014240
014242
014242
014250
014256
014262
014270
014274
014276

177777
027236
026564

JSR

SEQ 0086

LLbl

014164
014166

012705
004737
004737
005301
003263
000424
062777
005037
012600
005726

1064413
104017

mov

PAGE 90

13:59

4442
4443

014130
014136
0146144
014146
014150
016154
014160

004164
062202
000040
004164

L6114

4615
&616
L4617
4618
4419
6420
4421
6622
4623
4624
4425
L426
6427
4428
4429
4630
6631
6432
4633
6634
4435
4636
4437
4438
4639
4440

0147264

012702
004737
012764
013764

4602

4403
4604
4405
4406
4407
4408
4409
4410
L6110
6612
613

014120

4393
6394
6395
4396
4397
4398
4399
4400
4401

30A(1052)
26-MAY-T79
ACCESS TIME MEASURMENT TEST

MACY1T

CIRJAD RPO6/5/6 MECHANICAL AND READ/WRITE TEST
115
CIRJAD P
28-MAR-79 11:28

6649
4450
4451
6452
4453
6456
4455
4456
6457
6458
4459
4460

L4661
4462

4463

L4464

4465

L&66
L4667
«468
44669

4670
(A4
4672
4673
L4474
4475
L4776
4677
4478
4479
4480
4681
4482
4483
4484
4485
L4686
4487
4488
L489
4490
L4691
4492
4493
46946
4495
4496
4497
4498
4499
4500
4501
4502
450%
4504

014352
014360
014364
014366
014372
014400
014404
014406

014412
014416
014424
014430
014434

014440
014446
014454
014460
014466
014474
014502
014504
014512
014520

014522
016524
014530
014534
014542
014550
014552
014554
014556
014562
014566
014572
014600
014606
014614
014616
014624

014632
014634
014636
014642

014646
014654
0146662
014664
014666

014672
014676
014702
014704
014706
014710
014716

112737
005737
003002
000137
012737
006037
000402
000137
012703
012737
012706
012701
004737
012777
012777
005077
013764
012764
012777
000001

000031
001244

015016
014372
027006
015014
003034
015014
001100
000200
027172
014710
027170
164722
001512
000105
000131

042777
032764
001415

000101
040000

012702
004737
012764
013764

0046164
042202
000040
004164

106412

1064413
106017
005005

004737
004737
005077
013764
012764
012777
000001
042777
032764
001415

027236
026564

012702
004737
012764
013764

004164
042202
000040
004164

106412

104413
104017

012705
004737
004737
005301
003263
000424
042777
005037

164610

MACY1T1

30A(1052)

001115

mOovs

#25. ,SERMAX

;MAX ERRORS ALLOWED FOR TEST

001106

MoV

1ST16

:NO--GO TO NEXT

001206

164726
020160

000034
000000

MAXIMUM

151
BG1

JMP

2%:
T1EST15:

1%:

1664676

000012

2%:

#STACK,SP

MOV
JSR

000034
000000

000101
040000

166554
000012

1646564

1646462

7%:

;KW11-P CLOCK
;YES==START TEST
;SETUP THE

TEST

;D0 A MASSBUS INIT £ RECAL
;RETURN HERE IF NO ERROR
;RETURN HERE ON ERROR

;PARAMETER POINTER
;;ESCAPE TO EXIT1S ON ERROR
;SETUP STACK

SREPEAT *'0-"LC'=0"" 128 TIMES
;INIT. THE TIMERS

#101,aPKCS
;STOP THE CLOCK
#BIT14,RFDST(R4) ;ERR=1?
2%
:NO--BRANCH
; SAVE RO-R5

JSR

PC,a#5VRH1

#DTADPB,R2

LOOP ADDRESS

BlC
817
8taQ
SAVREG

;SETUP VECTOR IN CASE OF OVERFLOW
;SETUP RP04/5/6 VECTOR
;START COUNTING FROM ZERO
;MAXIMUM CYLINDER
;START A SEEK
;START THE CLOCK

SWALT

INTEPRUPT

:0PB POINTER

;SAVE ALL THE RH11/RP0O4 REGISTERS

MOV
Mov
RESREG

#B1105,RPCS2(R&L) ;MASSBUS CLEAR
a#DTADPB,RPCS2(R4) ;SELECT DRIVE
;RESTORE RO-R5S

CLR
JSR

RS
PC,a#COUNT

;SET THE UP/DOWN SWIT(CH TO UP
;UP THE COUNT

(LR
Mov
Mov
Mov
WAIT

aPKB
FC,RPCA(RSL)
#SEEK,RPCS1(R&4)
#131,aPKCS

;START COUNT AT ZERO
;BEGINNING CYLINDER
;STARYT A SEEK
;START THE CLCCK
;WAIT ON INTEPRUPT

ERROR

PC.a#TWOMS

Bl1C

#101,aPK(S

BEQ
SAVREG

#BIT14,RPDST(R&L)

sSTALL FOR 2 MILLISECONDS

;STOP THE CLOCK
;''ERR''=1?

:NO=--BRANCH
: SAVE RO-R5S

MOv

#DTADPB,R2

MOV
MOV
RESREG
ERROR
MOV
JSR

#B1105,RPCS2(R4) ;MASSBUS CLEAR
8#DTADPB,RPCS2(R&) ;SELECT DR]VE
;RESTORE RO-RS
17
;REPORT THE ERROR
#-1,RS
:SET THE UP/DOWN SWIT(H TO DOWN
;UPDATE THE COUNT
PC,a#COUNT

JSR

3%:

177777

027236
026564

7128..R1
PC,a#STRTMR

PAGE

n7s ,aPxv
#ODORTi,a8RPVEC
aPkB
LC,RPCA(RSG)
#SEEK ,RPCS1(R4)
#131,3PKCS

BIT

000010
000010

112,R3
PEXIT15,SESCAPE

13:59

Mov
Mov
CLR
mov
Mov
MoV

JSR

001510
000105
000131

#1%,SLPADR

MOV

MoV
Mov

TEST

SFCLKSTA
1%

RO,a#SRCHOO
2%
EXIT1S

Mov

000010
000010

TIMING

JSR
BR
JMP

WAIT

164666

SEEX

24-MAY-79

JSR
DEC
BGT
BR
BIC
(LR

PC,aNSVRH1

PC,afTWOMS
R1

1$
8%
#101,aPxCS
3PS

:DPB PCINTER

;SAVE ALL THE RH11/RP0O4 REGISTERS

sSTALL FOR 2 MILLISECONDS
;DONE?
+NO==BRANCH
s YES=-=EX]T

;STOP THE CLOCK
;DROP THE PRIORITY

SEQ 0087

(IRJAD RPOL/S5/6 MECHANICAL AND READ/UR]T$1;ESI
CIRJAD.PIY
28-MAR-79 11:28
6505
6506
6507
6508
6509
6510
64511
6512
6513
6516
6515
6516
6517
6518
4519
6520
6521

014722
014724
016726
014730
014734
016740
0164746
014756
014756
014760
014760
014766
014774
015000
015006
015012
015014

012600
005726
104412
012702
004737
012764
013764
104413
104020
012764
013764
004737
012777
004037
003034
000004

004164
042202
000040
0046164

EXIT1S:

13:59

PAGE 92

;PC OF

MOv

#OTADPB,R2

;DPB POINTER

Mov
MOv

#BIT05,RPCS2(RL) ;MASSBUS CLEAR
@#DTADPB,RP(S2(R&) ;SELECT DRIVE

RESREG
ERROR

Mov
JSR

017626

TIMING TEST

(SP}+,nl

mov
MOV
JSR

000010
000010

K
7
24-MAY=79

Mov

JSR

000010
000010

30AC1052)

MAXIMURM SEEK

1571
SAVREG

as
000040
004164
024212
037544
027370

MACY11

112

SCOPE

(SP)«

PC,a8#SVRHT

WAIT+?

;POP THE PS FROM THE STA(K
:SAVE RO-RS

;SAVE ALL THE RH11/RP04 REGISTERS

;RESTORE RO-R5
;CLOCK OVERFLOWED

#BIT05,RPCS2(R4) ;MASSBUS INIT.
a#DTADPB,RPCS2(R4) SELECT DRIVE
SINITIALIZE THE CLOCK
PC,a#ST.CLK

#1SR,ERPVE(
RO,9#TYPTIM

;RESTORE RH11/RP0&/5/6 INT. VECTOR
;60 TYPE THE TIMES
;POINTER

;LOOP ?

SEG 0088

CZIRJAD RPO4/5/6 MECHANICAL AND READ/WRITE TEST

CIRJAD.PI

28-MAR-79 11:28

6522

6523
6526

s/eNz/eN/oN/eN\/eN\ /N

MACY11

30A(1052)

L 7
24=MAY-79

115

MAXIMUM SEEK TIMING TEST

.SBTTL

e+ ADDRESSING TESTS ree

e\ e\ /e\

/e\/e\s/e\/e\/e\/e\:/

s/eNz/eN\c/oeN\z/eN\/eN\/a\/a\/ e\ e\

/ e\

13:59

s/eNz/oNc/eN\/ o\ /o\/e\c/eN\/oeN\/eN\/
e\ o\ /e\/e\fe\/e\: /N /e\

:*THE

ADDRESSING TESTS ENSURES PROPER OPERATION OF

THF

e\ /eN\:/

PAGE 93

SEa 0089

:
/0N

TRACK

:*AND SECTOR ADDRESS CIRCUITRY.
BOTH ADDRESSING TESTS
;*WilLL BE PERFORMED ON CYLINDER FC.
AT EAN YA
AN VAN VAN VAN FAAN VAN AN VAN FEAN FERN FARL FEAN FAAN FARR FARN |
AANFAAN VAN VEAS VAN FEARN VAN FEAL VAR FARN JAAN VEAN FAAN VRN FEAN VAN VEAN VAN
AL YAAN VAN VAN VAN FAAN VAN FEAAS FEAN FARN FASN FAAN VAN VRN VAN VAN VAN VAN

4538

4£53%9

R e
Y

ng?

;*TEST

4542
6543
4544
4545

.*
. ¥
M
M

THIS TEST WRITES DATA INTO ALL SECTORS OF TRACK "'FT''.
THE
DATA WiLL BE 256 WORDS OF THE SECTOR ADDRESS OF THE SECTOR
BEING WRITTEN.
A WRITE CHECK IS PERFORMED, THE BUFFER 1S
CLEARED (70 177400) AND THE DATA IS READ AND COMPARED.
THEN SECTOR O

6547
4548
Qggg

.
.
M

SECTOR 1 IS REWRITTEN AND SECTORS O - 21 ARE WRITE (HECKED.
THIS REWRITE AND WRITE CHECK PROCEDURE 1S CONTINUED UP THROUGH
REWRITE SECTOR 21 AND WRITE CHECK SECTORS 0-21.

SECTOR ADDRESSING TEST

45646

4551

4552
6553

015016
015016

4557
4558

015034

4554
4555
4556

4559
6560
4561
4562
4563
4564
4565
4566
4567

4568
4569
4570
4571
4572
4573
4574
4575
4576
4577

1S REWRITTEN AND SECTORS O - 21 ARE WRITE CHECKED.

000240

1ST16:

015020
015026
015030

033737
001002
000137

0016460

015042
015046
015054
015062
015070
015076
015104
015112
015116

004737
012737
013777
013737
113737
012737
012737
012706
004737

024726
015112
001102
001506
001364
015412
015112
001100
030022

015122
015130
015136
015142
015150
015156
015164
015170
015176
015202

012737

013737
113737
105037
013737
012737
012737
012706
012737
004037
012737

015414

000016

001510
001516
004174
001352
050202
015156
001100
000161
025642
000151

001234

001102
001110
164060
001204
001115
001252
001106

004176
004175
004170
004172
001110

006166
004166

64$:

THEN

RR
R

NOP

BIT
BNE
JMP

MOV

JSR
MOV
MOV
Mov
MOVB
MOV
MOV
TEST16: MOV
JSR

MOV
MOovB
CLRB
MOV
MOV
MOV
MOV
MOV
JSR
MOV

ONB1TS+<16%2>,TSTNMS ;DO THIS TEST?
649
; YES=--BRANCH
15117
sNO--GO TO THE NEXT TEST

#16,3#S$TSTNM

sSET UP TEST NUMBER AND
;CLEAR THE ERROR FLAG (SERFLG)

PC,LODPRM
;LOAD THE PARMETERS FOR THE TEST
#TEST16,3#SLPERR
;SETUP THE LOOP ON ERROR ADDRESS
$TSTNM,aDISPLAY
;LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER
S¥RPT ,STIMES
sGET THE ITERATION COUNT
ERR.CT,SERMAX
:MAX ERRORS ALLOWED FOR TEST
#EXIT16,8#BYPASS
#TEST16,8LPADR
;SETUP THE LOOP ADDRESS
#STACK,SP
sSET THE STACK PQINTER
PC,afFILBUF
sFILL THE BUFFER WITH SECTOR ADDRESSES

o#FC,a#DTADPB+12 ;CYLINDER
SFFT,a#DTADPB+11 ; TRACK
a#DTADPB+10
:SECTOR
TRCKWC ,8#DTADPB¢4 ;WORD COUNT
#BUFFER,3#DTADPB+6 ;BUFFER ADDRESS
#.,3LPERR
;SETUP THE ERROR LOOP ADDRESS
#STACK,SP
;LOAD THE STACK POINTER
SWRITE ,3#DTADPB+2 ; COMMAND=WRITE DATA
RO,8#DRVCAL
;START A DATA TRANSFER
#WURCKD,9#DTADPB+?2 ;(OMMAND=WRITE C(HECK DATA

—_

00000 —-0O000

1774600

sl e

)

006172
004174
025642
015332
001100
000151
001352
050202
004174
025642
001000

SEQ 0090

001110

Mov
Mov

#.,SLPERR
#STACK,SP

JSR

RO,3#CKSCTR

:CHECK THE SECTOR DATA READ

R1,8#DTADPB+10
RO,3#DRVCAL

;SECTOR
;START A DATA TRANSFER

JSR

JSR
Mov
JSR

004166

001110
004166
004170

1$:

004166
004170
0046172

000004

Mov
(LR
mov
Mov
Mov
Mov
mov

Move
JSR

001110

001630

PAGE 94

§.,SLPERR
#STACK,SP

Mov
Mov

MOV

CLRB
JSR
ADD
INC
CMP
BHIS
EXIT16: SCOPE

;SETUP THE ERROR LOOP ADDRESS
;LOAD THE STACK POINTER

RO,3#DRVCAL

sSTART A DATA TRANSFER

sSETUP THE ERROR LOOP ADDRESS
sLOAD THE STACK POINTER

RO,3#CLRBUF
sCLEAR BUFFER
#READ,#DTADPB+2; COMMAND
= READ
RO, 3#DRVCAL
;START A DATA TRANSFER

#BUFFER,RO
;BUFFER ADDRESS
R1
¢FIRST SECTOR
#.,SLPERR
;SETUP THE ERROR LOOP ADDRESS
#STACK,SP
;LOAD THE STACK POINTER
#WRITE ,3#DTADPB+2 ;COMMAND=WRITE DATA
#SCTRWC ,8#DTADPB+4 ;WORD COUNT
RO,8#DTADPB¢6
;BUFFER ADDRESS
¥.,SLPERR
#STACK,SP

:SETUP THE ERROR LOOP ADDRESS
:LOAD THE STACK POINTER

#WRCKD,8#DTADPB+2 ; COMMAND=WRITE CHECK DATA
TRCKWC ,a#DTADPB+4 ;WORD COUNT
#BUFFER ,a#DTADPB+6

a#DTADPB+10
RO,a#DRVCAL
#512..R0
R1
PRMLMT+22 ,R1
1%

,BUFFER ADDRESS

;SECTOR :START A DATA TRANSFER
;MOVE TO NEXT SECTOR
:DONE?

: NO--BRANCH
.LOOP ?

';'.""'"t"'t""""""""t"""""lltltt"ttt"t't"'t't

=
N
B
%
f

4614
4615
4616

4613

4612

0eva
v,

TYTEST 17

4610
4611

THIS

TRACK ADDRESSING TEST

TEST

WILL WRITE

DATA

IN THE

FORM OF

TRA(UK

ADDRESSES

IN CYLINDER "'FC'* SECTOR “'FS'' OF EVERY TRACK WITH EACH TRA(K

GETTING ITS OWN TRACK ADCRESS.
A WRITE CHECK !S THEN PERFORMED ON EACH TRACLK TO ENSURE
THE DATA IS VALID.
THEN TRACK O IS REWRITTEN AND TRACK
THROUGH TRACK 18 IS WRITE CHECKED.
THEN TRACK 1 IS

REWRITTEN AND TRACK 2 THROUGH TRACK 18 IS WRITE CHECKED.
THIS PROCEDURE IS CONTINUED UP THROUGH REWRITING TRACK 17
AND WRITE CHECKING TRACK 18.

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

-~
NNTNNY

WNWNWN

NNNN

000240
033737
001002
000137
oo lelo]
— et
O
VIV
T N

4617
4618
4619
4620
4621
4622
4623
4624
4625
4626
4627
4628
4629
4630
4631
4632
4633

13:59

Mov
Mov

NNOO
W
oo

AN W AN AN

—

oD e
i
i)
i
il

U LV [V JV_ IV IV 1V ] N

i
D
D
D
il
e
D i
il
D
i

LV LV LV IV IV IV LV IV TV LV
b el Y L AV 1V, 1)
NI
= = O~
oo
W

it
i
D
D
et
e
il ol ol e

015270
001100
000161

MACY11 30AC1052)
24-MAY-79
SECTOR ADDRESSING TEST

001110

050202

402
404

612

015210
001100
025642
015226
001100
030060
000171
025642
030126

4608
4609

012737

012706
004037
012737
012706
004037
012737

340
3464

ol AR YAl VAR ARV RV AV LV TV

4578
4579
4580
4581
4582
4583
4584
4585
4586
4587
4588
4589
4590
4591
4592
4593
4594
4595
4596
4597
4598
4599
4600
4601
4602
4603
4604
4605
4606
4607

elelelalalolaelololelolalololololelolaolololotolotlolotolaotoT
o)

CIRJAD RPO4/5/6 MECHANICAL AND READ/URITEILEST
CIRJAD P
28-MAR-79 11:28

18117
001462

00123¢

016034
000017

001102

024726

015510
001102
001506

001110
163462

001204

66%:

NOP

BIT

OFBITS+<17¢2>,TSTNMS ;DO THIS TEST?

MOV

#17,388TSTNM

BNE
JMP

649
15120

;YES--BRANCH
:NO=-=-GO TO THE NEXT TEST

JSR

PC,LODPRM

;SET UP TEST NUMBER AND
;CLEAR THE ERROR FLAG (SERFLG)
:LOAD THE PARMETERS FOR THE TEST

MOV

SF#RPT, STIMES

;GET THE ITERAIION COUNT

MOV
MOV

#TESTV7,3#8LPERR
;SETUP THE LOOP ON ERROR ADDRESS
STSTNM,aDISPLAY
;LOAD THE TELT NUMBER INTO THE DISPLAY REGISTER

4663
4664
665
4666
4667
4668
4669
4670
4671
672
4673

4674
4675
4676
677
4678
4679

<680
4681
4682
4683

4684
4685
4686
«687

177400
050202

015560
001100
006175
025642
001000

el
i

O\
—
oo

MoV

TEST17: MoV
JSR

MoV
Mov
Mmovs
MoV
MOv

CLR

001110
1%:

ERR.CT,SERMAX

PAGE 95

Sea 0091

;MAX ERRORS ALLOWED FOR TEST

SEXIT17,39BYPASS
#TEST17.$LPADR

#STACK,SP

PC,aff 1LBUF

;SETUP THE LOOP ADDRESS

'SET THE STACK POINTER

SFILL THE BUFFER WITH TRACK

#WRITE,3#DTADPB+2 ; COMMAND=WRITE DATA
asFC,asDTADPB+12 ; CYLINDER
9FS.3#DTADPB+10 :SECTOR
#SCTRWC,a#DTADPB+4 ;WORD COUNT
#BUFFER.3NDTADPB+6

RO
#.,SLPERR

#STACK,SP

ADDRESS

:BUFFER ADDRESS

s TRACK=0
;SETUP THE ERROR LOOP ADDRESS
:LOAD

THE

STACK

POINTER

015630
001100
000151
0046175
025642
001000

001110

MOV
Mov
Mov

#.,5LPERR
;SETUP THE ERRCR LGOP ADDRESS
#STACK,SP
:LOAD THE STACK POINTER
#URCKD,3#DTADPB+2 ;COMMAND=WRITE CHECK

004166

INC
cnp
BGT

CLR

2%:

006172

001000

004172

015730
001100
000161
025642
001000
004175
015766
001100
000151
025642
000022

001110

MOvB
JSR
ADD

INC

3%:

004172

JSR

ADD

4%:

cmp
BGT
CLR

Move
MoV
MoV

DEC

BLT

ADD

004166

5%:

004172

6%:

001110
004166

004175

000022

000004

13:59

ADDRESSING TEST

mov

050202

016000
016006
016012
016020

006172

0046175

015742
015750
015754
015762
015766
015774

24-MAY-79

050202

006172

000023

015674
015676
015700
015704
015706
015714
015716
015720
015726
015730
015736

MoV
Mov
move

30AC1052)

RO,8#DTADPB+11
;TRACK ADDRESS
RO,@#DRVCAL
START A DATA TRANSFER
#256.+2.,30DTADPB+6 ;UPDATE BUFFER ADDRESS
RO
:UPDATE TRACK NUMBER
#9. RO
;0UT OF TRACKS?
1%
:NO--BRANCH
:gUFFER.alDTADPB06 :BUFFER ADDRESS

000023

015666

016022
016024
016030
016032

001510
0015264

0046166
004176
006174
004170
006172

TRACK

MOovB
Mov

— PN

015670

001100
030022
000161

—

L662

64661

001364
016032
015510

(==l
OOO

015466
015474
015502
015510
015514
015520
015526
015534
015542
015550
015556
015560
015566
015572
015576
015602
015610
015612
015616
015620
015626
015630
015636
015642
015650
015654
015660

- OO0 O0—-0O000000—
- id i ) il d wd cd d ) v il o e
o [V aANEV T NI NIV TV [ VP g V] N1, V1V ]
o ~ NONNNNN~NN~I~ -~
e (=] AV O NN LN N LA N ©
NN (V]
~ o ~ O NNNNNNO
NN -~

6634
6635
6636
6637
6638
639
64640
6461
4642
6643
4646
4645
4646
46647
46648
6669
4650
6651
4652
4653
6654
6655
4656
4657
4658
4659
4660

MACY11

el
-

CIRJAD RPO4L/S/6 MECHAN]CAL AND READ/URITE1}ESY
CIRJAD.PIN
28-MAR-79 11:28

EviT17:

RO,8#DTADPB+11
;TRACK ADDRESS
RO,8#DRVCAL
;START A DATA TRANSFER
#256.+2.,88DTADPB+6 ;UPDATE BUFFER ADDRESS
RO
;UPDATE TRACK NUMBER
#19.,R0 ;0UT OF TRACKS?
2%
:NO--8BRANCH
RO
;FIRST TRACK ADDRESS
RO.@8#DTADPR+11
; TRACK
RO,R1
;FORM BUFFER ADDRESS
l?UFFER.i#DTADPB’b
R

:BUFFER

ADDRESS

5%
:%56.'2.,3101ADPB46

MOV
mMov
MoV
JSR
ADD

¥., SLPERR
;SETUP THE ERROR LOOP ADDRESS
#STACK,SP
;:LOAD THE STACK POINTER
#WRITE ,9#DTADPB+2 ;COMMAND=WRITE DATA
RO,a#DRVCAL
s START A DATA TRANSFER

MOV
MOV
MOV

¥.,SLPERR
#STACK,SP

INCB

JSR
(MPB
BG1
INC
CMp
BG1
SCOFE

#256.+2. ,8#DTADPB+6 ;UPDATE BUFFER ADDRESS
SADTADPB+11
;MOVE TO NEXT TRACK

;SETUP THE ERROR LOOP ADDRESS
;LOAD THE STACK POINTER

#WURCKD ,8#DTADPB+2 ;COMMAND=WRITE CHECK DATA
RO,a#DRVCAL
:STAKT A DATA TRANSFER
#18.,3#DTADPB+11 ;0UT OF TRA(CKS?
6%
:NO=-BRANCH
RO
SNEXT TRACK TO WRITE
#18.,R0
;0UT OF TRACKS?
3%
:NO--BRANCH

13:59

PAGE 96

SEQ 0092

eee

eee DATA TEST

AT
. AY .

SSSSSS
PSP

T
LIEE WP

W
B

NP0

B
B
WL

PSP

Ve
Ve
Ve
Vs
0o

NSRS

B
Ve

G
B0

s
Ve
v
Be

PRSP

W,
0

ON CYLINDERS

REPEAT STEPS 1-5 FOR "F('' THROUGH "‘LC’'" ADVANCING BY "IC"

4.
5.

THE

INCREMENT ''NT'' BY ''IT"
REPEAT STEPS 1-4 FOR EACH DATA PATTERN

A WRITE
TRACK

CHECK ERROR OCCURS THE

IN ERROR

WRITE
FATAL

CHECKS. IF THE CHECK
AND NO READ OCCURS.

FS DEFAULTS TO 1

ERROR

IS REPORTED AND

IS REWRITTEN AND (HECKED.

ACCOMPLISHED BY PERFORMING TWO(2)
FAILS

AND LS DEFAULTS

SUCCESSIVE

THE

ERROR

THIS (MEC(K

ERROR FREE
REPORTED

IS
AS

T0 0

PAT DEFAULTS T0 177777 (ALL POSSIBLE PATTERNS)
THE

POSSIBLE

165555
133333
165555

PATTERNS

000001
000003
000007

ARE:

177776
177774
177770

000000
000000
000000

177600
177400
177000
176000

000000
000000
177777
177777

177777

140000
100000

000000

177777
000000
177777

PAT G

PAT

165555
133333
165555
133333
165555
133333
165555

000001
000002
000004
000010
000020
000040
000100

177776
177775
177773
177767
177757
177737
177677

133333
165555
133333

000017
000037
000077

177760
177740
177700

165555
133333
165555

003777
007777
017777

174000
170000
160000

165555
133333
165555
133333

®e

133333
165555

B,
By

5
5

B.
Vs

5
B
%
O

B,
Be
e

AND RETRIEVAL

WRITE THEN WRITE CHECK ''FS'" THROUGH “‘LS'' OF TRACK °'WT''
READ THEN SOF TWARE COMPARE '‘FS'" THROUGH 'LS'' OF TRACK °'‘NT'’

PAT 8

PERFORMS DATA STORAGE

2.
5.

TEST

THIS

TEST

PO THROUGH "'LC'" BY THE INCREMENT 'I1C'" USING THE DATA PATTERNS
SPECIFIED. THE FOLLOWING SEQUENCE OCCURS FOR EA(CM CYLINDER:
1.
SET "'NT'" 10 ''FT'" THEN REPEAT 2-6 UNTIL 'NT'' > “°LT"

CATA

133333

«718
«719
«720
“721
6722
472%
(724
4725
4726
W727
4728
4729
«73%0
73
4732
«733
473
4735
«7%6
4737
4738
«7%9
740
&74
6762
§76%

(714
6«75
L4716

*TEST

4698
€699
4700
«701
6702
4708
4704
6705
«706
6707
<708
«709
&710
(AR
&712
73

2&=MAY-79

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

«695

4696
«697

SBITL

«688
(689
4690
4691
€692
4693
4694

CIRJAD RPOG/S/6 MECHANICAL AND READ/WRITE TEST
MACY11 30A(1092)
eee DATA TEST
eee
CIRJAD.PVY
28-MAR-79 11:28

133333
165555
133333
165555

000177
000377
000777
001777

Q37777
077777

000200
000400
001000
002000

177577
177377
176777
175777

000000
010421
021062

052525
052525
052525

007417
0076417
007417

026455
026455
0264655

063146
073567
104210
114631

052525
052525
125252
125252

007617
007417
170360
170360

026455
026455
151322
151322

156735
167356

177777

125252
052525
125252

170360
0076417
170360

151322
026455
151322

PAT

177777
177777
177777

031463
042104
052525

CO00000
177777
000000

125252
135673
146314

172666
155555
172666
155555
172666
155555
172666

155555
172666
155555
172666

077777
137777
157777
167777
173777
175777
176777

177377
177577
177677
177737

125252
125252
125252

052525
125252
052525

153333
066667
153333
066667
153333
066667
153333

066667
153333
Q66667
153333

170360
170360
170360

007417
170360
007617

PAT

000000
177777
177777
177777
177777
177777
177777

177777
177777
177777
177777

151322
151322
151322

026455
151322
026455

PAT

177777
000000
000000
000000
000009
000000
000000

000000
000000
000000
000000

CIRJAD RPO4/S5/6 MECHAN]ICAL AND READ/HRIIE TEST
CIRJAD.P1Y
28-PMAR-79 11:28
120
4744

4763
4764

4765
4766
4767
6768
4769
4770
&7
4772
677%
4774
Q775
4776
4777
«778
4779
4780
4781
4782
783
4784
4785
«786
<787
4788
<789
«790
«791
0792
4793
4794
6795
4796
«797
4798
4799

004000
010600
020000
040000

X
X
X
X
X
TR

016034
016034
016036
016044
016066
016052
016060
016064
016072
016100
016106
016114
016122
016124
016126
016132
016136
016140
0161446
016146

000240
033737
001002

000137
012737

0
0
1
0
0

001102

026726
016236

001110

001102
001506

737

016114

001364

64%:

NOP
Bl

163042

001204
001115
001106

MOvB

CLR
CLR

1$:

INC
(oM
ADD
DEC

NEG
MOV

037

005720

000040

1§71
8EQ
(LR

Mov

’%:

3%:
TEST20:

18:

c$:

18121

000000

CLEAR SWITCH

#.,3LPADR

R&
ofLS R
affs, R
1$
R

RO
#256. R4

R
1%
RG
R& RS

COUNT

RS
PRMLMT+22
R

TEST

IN R&

:BRANCH IF FS < OR = LS
:ADD MAXIMUM SECTOR ADDRESS 10
;MAKE THE DIFFERENCE POSITIVE
JSET SWIT(H

:COPY NORMAL WORD
;SWITCH SET?

sMAX ERRORS ALLOWED FOR
:SETUP THE LOOP ADDRESS
;FORM WORD

PRMLMT+22 R

NEG
MOve
Mov
Mov
MOov

TEST

:SET UP TEST NUMBER AND
:CLEAR THE ERROR FLAG (SERFLG)

;GET THE JTERATION COUNT

S#FS, R
#256. ,RS

DEC
86t

;:NO==G0 TO THE NEXT

SNRPT,STIMES
ERR.CT,SERMAX

SuB
ADD

;NO==BRANCH
:FORM WORD

COUNT

INTO SMALL

FOR LS <

OFFS,a#DTADPB+10) ;SECTOR
#BUFFER,QFADTADPB+*6

PEX1T20,3#BYPASH
#STACK,SP

;DATA BUFFER

;LOAD THE

STACK POINTER

SPWCEFLG

1§17
cmp

(RQ) ¢
£16.+2.,R0

sMOVE TO NEXT DATA PATTERN
;0UT OF PATTERNS?

RO,a#INCCYL

;MOVE

TO NEXT

JSTART

WITH PATTERN O

BG1
JSR
BR
(LR

CLR

MOv

027746
005000

177777

PC,LODPRM
;LOAD THE PARMETERS FOR THE TEST
#TEST20,8#8LPERR
_SETUP THE LOOP ON ERROR ADDRESS
STSTNM,SDISPLAY
:LOAD THE TEST NUMBER INTO THE DISPLAY

BGE

737

066667

000000
000000
000000
000000

JSR

ADD

004174
004172
001252

177776

177777
177777
177777
177777

#20,30#8TSTNN

JAP

MOv

001630

001524
050202
016552
001100
001334
001510

155555

Q66667
153333
066667
153333

MoV

SUB
8GE

001630
001524
000400

177757
177767
177773
177775

B1154<20¢2-40>,1STNMS+2
;DO THIS TEST
643
s YES=--BRANCH

Mov

000400

077?777

155555
172666
155555
172666

SEQ 0093

BNE

Mov
Mov
MoV

001526
001524

016156
016160
016162
016164
016166
016170
016172
016176
016202
016206
016210
016212

0
0
0

01655¢4
000020

777
737

016150
016154

0
0
0
0

00123%6

100000

173777
167777
157777
137777

PAGE 97

13:59

RRCORROCOROCOROORCEORCOOTROORTRRRORCORRRORORCROORRRRRORRRRORRRCORROSRCROTOTORTS

15120:
001424

8
¢
24-MAY-79

30A(1092)

DATA TEST

47465

6766
W47
G748
4749
6750
4751
6752
6753
6754
6755
4756
&757
4758
4759
4760
L761
4762

BMACYT1

gzrc.al

b33

Ex1120
RO

;CLEAR THE WRITE

;PICKUP FIRST

CYLINDER

:NO=-=BRANCH
;0UT OF

(HECK ERRUR FLAG

CYLINDER

CYLINDERS

(800
(801
4802
4803
6804
4805
(806
4807
4808
4809
4810
(811
4812
6813
4814
4815
4816
(817
6818
4819
4820
6821
4822
4823
6826
(825
(826
4827
4828
4829
4830
6831
4832
4833
6834
4835
4836
4837
4838
4839
4840
4841
6842
4843
4844

016274
016302
016304
016310
016314
016320
016324
016330
016332
016336
016340
016344
016350
016352
016356
016360
016364
016372
016374
016402
0166406
016614
016620
016626
016430
016636
016442
016450
016454
016460
016462
016470
016472
016500
016502
016510
016514
016522
016526
016534
016536
016542
016546
016550
016552

036037
001764
013702
010137
110237
010437
023701
003005
022702
003002
010537
017703
005103
032703
001436
004737
032777
001012
012737
012706
012737
004037
032777
001012
012737
012706
012737
004037
005737
001404
032777
001424
032777
001020
012737
012706
012737
004037
032777
001002
004737
004037
000642
000661
000004

001424

001530

0C1516
004176
004175
0046170
001512

MACYTY 30A(1052)
DATA TEST

Bl
8tQ

mov
mov
MOvB
MOv
cme

B115(RO) ,39PAT
1%

13:59

PAGE 98

;THIS PATTERN SELECTED?
;NO==BRAN(CH

;FIRST TRA(CK
;CYLINDER
; TRA(K
;WORD COUNT
CLAST DISK CYLINDER?

(mp

18, ,R2

sLAST

MOV

RS ,3#DTADPB ¢4

BGY

5¢

:NO==BRAN(H
DISK

TRA(K?

:NO==BRANCH

1 [01Y]

a%Wl, R}

INHIBIT WRITE AND

Bl11
BtQ

#5046
7%

162546

BIl

#SW04 ,a5uWR

016374
001100
000161
025642
000010

001110

MOV
MoV

016430
001100
00J151
025642
001334

001110

009001

162450

000004

162440

016502
001100
00171
025642
000002

001110

006170
1€2570

5¢:

000030

030476
000020

030566
027716

162512

com
JSR

BNE

004166
6%:

SEQ 0094

ofF1 R2
R1,34DTADPB+12
R2,I#DTADPR¢1T
R4 ,88DTADPB¢4
LC,R

BGY

000022

24=MAY-79

mov
JSR

BIT
BNE

MOV
MOV

SWO3 R

PC.a#SETBUF

#.,5LPERR
#STACK,SP

:SHORT

WORD COUNT

JWRITE

(ME(K?

;YES=-=BRANCH
:MOVE

DATA PATTERN

JINHIBIT WRITE?

INTO

THE

;YES--BRAN(CH

;SETUP THE ERROR LOOP ADDRESS
;LOAD THE STACK POINTER

#WRITE ,QFDTADPB-2 ;(OMMAND-WRITE DATA
RO,a#DRVCAL
:START A DATA TRANSFER

#SW)3,a%wR
7%
#.,8LPERR
#STACK,SP

;INMIBIT WRITE (MECK?
JYES=-=BRANCH

:SETUP THE ERROR LOOP ADDRESS
;LOAD THE STACK POINTER

MOv
JSR

FURKD,a#DTADPB-2 ;COMMAND=WRITE C(HECK DATA
RO.a#DRVCAL
JSTART A DATA TRANSFER

8tQ
BI1
B8EQ
BIT
BNE

8%
#5w00,aSwR
9%
#Sw(2,aSwR
9%

004166

L [0}Y]
Mov

#STACK,SP
:LOAD THE STACK POINTER
#READ ,@#DTADPB¢. . COMMAND=READ

1624604

004166
7%:

8%:

1S1

mov

JSR

9%:

afW EFLG

¥.,3.PERR

;WRITE

CHECK

:SETUP

THE

ERROR

FLAG

ERROR

LOOP

;START A DATA TRANSFER

BNE

;NO--BRAN(H

JSR

RO,a#INCTRK

B8R

BR
20:
SCOPE
Ex11

#SWCT,35wWR

PC.af#DATCMP
1%

SET?

sNO==-BRANCH
:PERFORM READ AFTER FATAL '‘W(E'"
;NO-=-BRANCH
:INHIBIT READ DATA AND SOF TWARE (OMPARE®
JYES=--BRANCH

RO,a3#DRVCAL

JSR

BUFFER

ADDRESS

;COMPARE THE DATA?
;YES=-=D0 117
;MOVE

TO NEXT

;LOOP
;SCOPE

LOOP

;0UT OF

TRAC(K

TRACKS GO TO NEXT

PATTERN

S
—

CIRJAD RPOL/S/6 MECMANICAL AND READ/WR]ITE TEST
120
CIRJAD.PY
28-MAR-79 11:28

(A AND READ/WR]TE TEST
CIRJAD RPOL/S/76 MECHAN]
RACY1Y 30A(1052)
CIRJAD P
28-MAR-79 11:28
see EXERCISE TEST wee
4845
846
(847
<848

SBTTL
0RO

PAGE 99

SEQ 0095

eee

RANDOM ADDRESS

AND

RANDOM PATTERN

TEST

STARTING AT "'FC'" AND GOING THMROUGH ''LC'" THE DISK PA(K

IS WRITTEN WITH A RANDOM PATTERN. THE FIRST TwO WORDS
OF EACH SECTOR WwiLL BE THE BASE OF THE RANDOM GENERATOR
THE TEST THEN PERFORMS THE
“R'" DEFAULTS 10 20,000.

FOR

THAT

SECTOR.

FOLLOWING SEQUENCE

"R'" TIMES

NO—

GENERATE A RANDOM ADDRESS
WRITE A RANDOM PATTERN AT
GENERATED IN 1.
GENERATE A RANDOM ADDRESS

READ

[o -2 NTo RV

%
®
2

READ

SECTOR

— O

THE

ADDRESS

DO A SOFTWARE C(HECK OF THE DATA READ
DO A WRITE CHECK OF THE DATA WRITTEN
GENERATE A RANDOM ADDRRESS

%
%
®

THE

GENERATED IN 3,

4855
<856
4857
<858
4859
<860
4861
4862
<863
<864

13:59

4851
4852
4853
&85«

TEST

ROPROOERORRCORRROROEROCRORTCROCRCROORCYTRERORORRRNRRRORRPRPRRRRRRORROREOEORROERRROSRTOYS

TeTEST 21

849
4850

)

THE

SECTOR

THE

IN 4.
IN 2

ADDRESS

GENERATED IN 7.
DO A SOFTWARE (HECK OF THE DATA READ
DO A WRITE (HECK OF THE DATA WRITIEN

[N 8
IN?

CCRANRANNCEOCONCRROECEROCECSOIOORROERRRPRUOETROSORROORRRRORNOOERRARNOBRONNOEOOOSOERORY

016554
01655¢

000240

i§121:

033737

001426

016566
016572

000137
012737

017332
000021

016600
016604
016612
016620
016626
016634
016642
016650
016656
016664

004737

0246726
017024
001102
001506
001364
016634

016556
016564

016672
016700
016706
016714

016722
016724
016730

016734
016742
016746
016746
016752

001002

[elelaolelolololeleloel
Jole o]

865
<866
«867
4868
4869
4870
4871
«872
<873
«874
4875
876
877
4878
4879
4880
4881
4882
4883
4884
4885
4886
«887
4888
4889
4890
4891
4892
4893
4894
4895
4896
4897
4«898
<899
4900

eve EXERCISE

24=-MAY=79

001236

811

64%:

031104
004174
016734
001100
025642
004175

BNE
JMP

Mov

JSR

MOV
mMov
Mov
mMov8
Mov
Mov
MOV
Mov
Mov
MoV
MOov
MOV

017330

176543
123456
001510
001352
050202
000161
100000

NOP

001220

001110

1$:

Bl
BNE
JSR
(LR
MOv
Mov

JSR
INCB

BITG+<21¢2-40>,"STNMS+?2
;DO THIS TEST ?
669
; YES--BRAN(H
18172
:NO--GO TO THE NEXT TEST
#21 Q¥STSTNM
;SET UP TEST NUMBER AND

;CLEAR THE ERROR FLAG (SERFLG)

PC,LODPRN
;LOAD THE PARMETERS FOR TME TEST
FTEST21 ,@#SLPERR
;SETUP THE LOOP ON ERROR ADDRESS

$STSTNM,@DISPLAY
#RPT ,STIMES

;LOAD THE TEST NUMBER INTO THE
;GET THE ITERATION COUNT

DISPLAY REGISTER

ERR.CT,SERMAX
¢MAX ERRORS ALLOWED FOR TEST
¥.,SLPADR
;SETUP THE LOOP ADDRESS
NEX1T21,9#BYPASS
1765643 ,8F8HINUN ;PRIME THE RANDOM NUMBER GENERATOR
7123656 ,3#SLONUM

a#F( ,8#DTADPB+12 ;CYLINDER

TRCkWC ,89DTADPB+4 ;WORD COUNT
#BUFFER,3#DTADPB+6 ;BUFFER ADDRESS
SWR]TE ,3¢DTADPB+2 ; COMMMAND

#SW 5,9#C.SWR
3%
RO, a#F ILRAN

;WRITE THE DISK PACK BEFORE TESTING?
:NO=-BRANCH
;FILL DATA BUFFER WITH RANDOM DATA

¥, ,SLPERR
#STACK,SP

¢SETUP THE ERROR LOOP ADDRESS
;LOAD THE STA(CK POINTER

S#DTADPR+10

RO,a#DRVCAL

a#DTADPB+ 11

;SECTOR AND TRA(K

START

A DATA TRANSFER

JNEXT TRACK

CIRJAD RPOL/S/6 MECHANICAL AND READ/WRITE TEST
CIRJAD.P1Y
28-MAR-79 11:28
121
4901
4902
4903
49064
4905
4906
4907
4908
4909
4910
4911

016756
0167664
016766
016772
017000
017002
017010
017016
017026
017030
017036«

122737
003370
005237
023737
002353
012737
012737
012737
012706
004037
013737

000023

004175

006176
001512

004176

177400
01702¢
0170264
001100
031360
004176

004170
001106
001110

&913
&916¢

017050
017056

012737
012701

000161
050202

004166

4912
4915

017042
017062

013737
010137

006176
006172

001340

001342

8
MACY11 30A(1052)
24-MAY-79 13:59 PAGE
RANDOM ADDRESS AND RANDOM PATTERN TEST

CMP8
86T
INC
CAP
BGE
3$:
MOV
MoV
MoV
TEST21: MOV
JSR
mOV

MoV
MoV
Mov

MoV

100

#19.,3#DTADPB+11 ;TIME FOR NEXT CYLINDER
2%
:NO==BRANCH
IDTADPB*12
39LC,a00TADPB+12 :0UT OF CYLINDERS?
13
:NO==BRANCH
#SCTRWC,3#DTADPB4 ;WORD COUNT
#TEST21.a0S8L
PADR
STEST21.QNSLPERR
#STACK,SP
SSET STACK POINTER
RO, 3FRANADR
“GENERATE A RANDOM ADDRESS
2DTADPB+10,3#SVADR :SAVE THE TRACK/SECTOR

AIDTADPB*12
. @#SVADR+2 :SAVE THE CYLiMDER
AWURITE ,QFDTADPB+2 ;COMMAND:-WR]ITE DATA
#BUFFER,RY
;BUFFER ADDRESS
R1,3#DTADPB+6

SEQ 0096

CIRJAD RPOL/S/6 MECHAN]ICAL AND READ/URI!EZ}EST
CIRJAD
28-MAR-79 11:28

(916
917
4918
4919
4920
4921
4922
4923
4926
4925
4926
4927
4928
4929
4930
4931
4932
4933
493
4935
49%6
4937
4938
4939
4940
4941
6942
4943
4944
4945
4946
4947
L9468

(949
4950
4951
6952
4952
4954
L9585
4956
4957
4958
4959
4960
4961
4962
4963
4964
4965
4966
4967
4968
4969
970
6971

004037
012737
012706
004037

031324
017072
001100
025642
031360
000171
051202
017130
001100
025642
031126
001340
001342
000151
050202
017202
001100
025642
031360
00017
051202
017240
001100
025642
031126
001340
001342
000151

050202
017312
001100
025642

001110

30A(1052)

JSR

RO,SFRANPAT

JSR
JSR

RO,3#DRVCAL
RO,SFRANADR

MoV

#BUFFER*S12.,80DTADPB+6 ;BUFFER ADDRESS

mOov

mov
mov

JSR
JSP

004174
004176
004166
004172
001110

MOV

Mov

mov
MOV
Mov
MoV
JSR
JSR
Mov
MOV
MOV
MoV

004166
004172
001110

JSR
JSR
MOV
MOV

004174
004176
004166
004172
001110

MOV
MOV
MOV
MOV

JSR
EXIT21: SCOPE
JSBITL

13:59

PAGE

RANDOM ADDRESS AND RANDOM PATTERN TEST

MoV
MoV

004166
004172
001110

6 8
24-MAY-79

MACY1Y

#.,5LPERR
#STACK,SP

101

SEaQ 0097

:GENERATE RANDOM PATTERN

:SETUP THE ERROR LOOP ADDRESS
:LOAD THE STACK POINTER
:START A DATA TRANSFER

SREAD ,8#DTADPB+?2 ; COMMAND=READ DATA
#.,S5LPERR

;SETUP THE ERROR LOOP ADDRESS

RO,3FDRVCAL
RO, 3#RANCK

:START A DATA TRANSFER
;CHECK THE DATA

#STACK,SP

:LOAD THE

STACK POINTER

S#SYADR,QFDTADPB+10 .GET ADDRESS OF

WHERE

SFSVADR+2,30DTADPB+12 ;WRITE WAS PERFORMED

THE

LAST

SURCKD ,QFDTADPB+2 ;COMMAND=WR]ITE CHECK DATA
#BUFFER,Q#DTADPB+6 .DATA BUFFER ADDRESS
#.,5LPERR
;SETUP THE ERROR LOOP ADDRESS
#STACK,SP
;LOAD THE STACK POINTER

RO,8#DRVCAL
:START A DATA TRANSFER
RO ,3#RANADR
;GENERATE A RANDOM ADDRESS
#READ ,S#DTADPB+?2 ; COMMAND=READ
#BUFFER+S12.,9#DTADPB+6 ;DATA BUFFER ADDRESS
#.,SLPERR
#STACK,SP

;SETUP THE ERROR LOOP ADDRESS
:LOAD THE STACK POINTER

:START A DATA TRANSFER
RO,3#DRVCAL
:CHECK THE DATA
RO,a#RANCK
S#SVADR,3#DTADPB+10 ;GET DISK ADDRESS OF
S#SYADR+2 ,3#DTADPB+12 :LAST WR]TE

THE

NWRCKD ,8#DTADPB+2 ;COMMAND-WRITE (MHE{K DATA
#8UI “ER,ANDTADPB+6 ;DATA BUFFER ADDRESS
#.,8 PERR
;SETUP THE ERROR LOOP ADDRESS
#STA(K,SP
LOAD THE STACK POINTER

RO,8#DRVCAL

:START A DATA TRANSFER
;L00P ?

eee RPO4 ACCESS TIME ADJUSTMENT TEST

eve

::'t"'"t""'tt"""""'l""""tttt."'ttttttt'lttt""tttt

;e TEST 22
X
X
;.
ML

RPO& ACCESS TIME ADJUSTMENT TEST

THIS TEST PERFORMS SEEKS BETWEEN CYLINDERS 0 & 136 TO ALLOW THE
OPERATOR TC ADJUST THE ACCESS TIME ON AN RPO& USING THE
DDU.
THE PROGRAM STALLS APPROXIMATELY 5 SECONDS BETWEEN SEEKS
SO THAT THE ACCESS TIME INDICATORS ON THE DDU MAY BE OBSERVED.

;.'""l"""t'""'"'I"t"""""t!"llt't't!"tt""'t!'tttt

000240
033737
001002

000137
012737

15122:

001430

001236

017502
000022

001102

024726
017420
001102
001506

001110
161544

001204

NOP

BlT
BNE
JMp
MOV
JSR

MOV

MOV
MOV

DO THIS TEST ?
B115+4¢22¢2=40>,1STNMS+?2
s YES=-BRANCH
649
:NO==GO0 TO THE END OF THE PROGRAM
$EOP
¥22.3#8TSTNM
;SET UP TEST NUMBER AND
;CLEAR THE ERROR FLAG (SERFLG)
:LOAD THE PARMETERS FOR THE TESI
PC,LODPR®
H1EST22.088
L PERE
:SETUP THE LOOP ON ERROR ADDRESS
$TSYNM, QDISPLAY
;LOAD THE TEST NUMBER INTO THE DISFLAY REGISTER
SURPT ,STIMES
;GET THE TTERATION COUNT

(IRJAD RPO4/5/6 MECHAN]ICAL AND READ/UR]!E TEST
(IRJAD.PN
2B-MAR-79 11:28
122
4972
4973
4976
4975
4976
4977
4978

017404
017412
017620
0174264
017432
017440
017444

112737
012737
012706
013737
112737
0064037
006037

000144
017420
001100
001512
000105
025150
026502

Q01115
001106

4980
4981
(982
4983
(984
4985

017452
017460
017466
017472
017476
017500

013737
112737
004037
004037
001360
00000¢

001510
000105
025150
026502

004116
004106

4979

4986
4987
4988
4989
4990

017450

001360

004116
006106

8
MACYIY 30A(1352)
24=-MAY=79 13:59
RPO4& ACCESS TIME ADJUSTMENT TEST

mOove
mov
T€5122: MOy
Mov
MOVe
JSR
JSR
.WORD
mov
move
JSR
JSR
LWORD
Ex1122: SCOPE

LOSBTTL

END OF

#100. ,SERMAX
MTEST22,8LPADR
#STACK,SP
LC,DPB.A¢Y2
WSEEXK ,QNDPR_A+2
RO,3FCALL.A
RO,STALL
STALLS
FC.DPB.A*Y?
#SEEK ,300PB.A+2
RO,S#CALL.A
RO,STALL
STALLSY

PASS ROUTINE

499?2
£993%
L4994

;o INCREMENT THE PASS NUMBER (3PASS)

4999
5000
5001
5002
5003

5004

SC0S
5006

5007

5008
5009
5010
5011
8012
5013
5014
5015
5016

5017
S018

5019

5020
5021
5022
5023
5024
5025
5026
5027

ARl

;*INDICATE END=OF-PROGRAM AFTER 8. PASSES THRU THE PROGRAM
:¢]F THERES A MONITOR GO 1O 11

4995

4998

SEG 0098

:MAX ERRORS ALLOWED FOR TEST
;SETUP THE LOOP ADDRESS
:SETUP THE STACK POINTER
;ENDING CYLINDER
;SEEXK=COMMAND
:60 EXECUTE THE COMMAND
:STALL
:ADDRESS OF STALL VALUE
sSTARTING CYLINDER
;SEEK=UCMMAND
;60 EXECUTE THE (OMMAND
JSTALL
:ADDRESS OF STALL VALUE
;L00P ?

(991

4996
4997

PAGE 102

;o]F
017502

017502

017506

0175%

104401

000410

017530
01753

005737
001434

017542

000405

017536

017556

017556
017562
017564
017565
017566
017572
017620

017620
017624
017626

017632

017636
017642
017646
017654
017656
017660
017662
017664

104407

:69%:

6469%:

001232

017544

00125

013746
104402
005037

001112

005037
005237
042737
005327
000010
003030
012737
000010

$EOP:

017510

013746
104403
002
000
104401
000412

005037

THERE

BR
JASCIZ

T1YPE

648
::GEY OVER THE ASClZ
<(R><LE><LF>/END OF PASS/

,65%

;:TYPE ASCIZ STRING

151
BEQ

afDRVSEL
1%

ANY DRIVES SELECTED?
;NO=-=-BRANCH

B8R
_ASCIZ

66%
7/ ON DRIVE/

:.GET OVER THE ASCIZ

MOV
TYPOS
.BYTE
.BYTE
TYPE
BR
LASCIZ

@#(HKDRV,=(SP)

MOV
TYPOC
(LR

ONSERTIL,=(SP)

TYPE

::67%:
66%:

017574
;1698
68%:

19:

001112

001102

001204
001100
100000

ISN'T JUMP 10O RESTART

001100

(LR

(LR
INC
BIC
DEC
$EOP(Y: ,WORD
BGT
MOV
$ENDCT: .wORD

L6718

;. TYPE ASCIZ STRING

;;SAVE @#CHKDRvV FOR TYPEOUT
::60 TYPE--OCTAL ASCII
°
;o TYPE 2 DIGIT(S)
0
;s SUPPRESS LEADING ZEROS
,69%
::VYPE ASCIZ STRING
68%
::GET OVER THE ASCI2
ERRORS DETYECTED=/
7/

SFSERTTL

$STSINM

$TIMES
$PASS
#100000,8PASS
(PC e
8.
$DOAGN
(PC ¢,a(P()e
8.

;:SAVE QWNSERTTL FOR TYPEQU!
;:60 TYPE==0CTAL ASCIICALL DIGITS)
;IERO ERROR TJTAL

;;LERO THE TEST NUMBER

;. 1FRO THE NUMBER OF I1TERATIONS
;s INCREMENT THE PASS NUMBEK
;:DON'T ALLOW A NEG. NUMBER
;:L00P?
JYES
,,RESTORE COUNTER

CIRJAD RPO4L/S5/6 MECHANICAL AND READ/WRITE TEST
CIRJAD P11
28-MAR-79 11:28
END Of

5042

5043
5044
5045

017666
017670
017674
[eloleololalolololalololelo]

5028
5029
5030
5031
5032
5033
5034
5035
5036
5037
5038
5039
5040
5041

017656
104401

000410
104401

013700
001405
000005
004710

T1PE

::65%:
64%:

017766
000042

000

BR
LASCIZ

<CR><LE>/END

$RINAD:

SENULL:

TEST

;.BRANCH JF

NULL

CHARACTER

::GET MONITOR ADDRESS

NO MONITOR

::CLEAR THME WORLD
::60 TO MON]TOR

: :SAVE

ROOM

(PO

; ;RETURN

-1,-.0

;oNULL

RESTART

103

$DOAGN

PC,tRO)

PAGE

;s TYPE ASCIZ STRING
..GET OVER THE ASCIZ
JTYPE

SENDAD:

JMP
.WORD
.BYTE
.EVEN

13:59

LSENULL

2862 ,R0

RESET
JSR
NOP
NOP
NOP

8
1
24=-MAY=79

659

649

T1YPE
$GET42: Mov
BtQ

$DOAGN:

377

30A(1052)

PASS ROUTINE

$SEOP(T

017676

000240
000240
000240

000137
006216
377
017752

MACY1Y

CHARACTER STRING

SeQ 0099

CIRJAD RPO4/5/6 MECHANICA! AND READ/WRITE TEST
CIRJAD P
28-MAR-79 11:28
END OF

5046
5047
5048
5049
5050
5051

.SBTTL

ERROR WANDLER ROUTINE

13:59

PAGE

104

SEa 0100

CCTRETRNOC OO ROCRRNOORCORCCRRNROROCOOETROEOSORROROROCOERRARORTROOGORORREOOEOROTROCROPOETRTOTYS

WILL

INCREMENT

THE

ERROR FLAG AND

THE

ERROR

(OUNT,

;*SAVE THE ERROR JTEM NUMBER AND THE ADDRESS OF THE ERROR (ALL
;*AND GO TO TYPERR ON ERROR
;*THE SWITCH OPTIONS PROVIDED BY THIS RCUTINE ARE:

;eSW15=1
;eSW13=1
;*SW10=1
;*SW09:=1

;eCALL

104401

020172
001215

005777

161032

100002

106407

001000

023737
001001
000240
013737
013737

000042

001110
001206

001206

001414
001416

—

ERROR
CKSWR
811
BtQ
151
BeaQ

mMov
Mov

INCB
Bta

BEQ

NSV
b

INC

MoV

oro

BIT

20%:
2%:

161016

TYPE

SuB
MOVB

000000

032777
001402
013716
005737
001402
013716

LOOP ON ERROR

BIT

1%:

1%:
4%

5¢:

6%:

ON ERROR

INHIBIT ERROR TYPEOUTS
BELL ON ERROR

MOV

a—
—

[
Ry

7$:

O —b -t

001210
001112
001116
000002
161036
020000

001102
002000

—

001420
001422
001103

(==
oo

001230

001402
104401
005237
011637
162737
117737
032777
001004
004737

161156

—

032777

000400

020012
020014
020022
020030
020032
020036
020042
020046
020054
020062
020070
020072
020076
020102
020102
020106
020110
020112
020114
020122
020124
020130
020134
020136
020142
020142
020150
020152
02015¢4
020162

032777
001411
005737
001406
013737
013737
105237
001775
013777

$ERROR:

—

020000
020006

104407

01775¢
017752
017754
017762
017764
017770
017772

HALT

BNE
JSR
TYPE
181
8PL
HALT
(KSWR

Bi1

BEQ

Mov
151

BEQ

MOov

(mp
BNE
NOP
MOv
MOov

: ;ERROR=EMT

#5w08,aSwR
7%
SfLPTAVL
7$
SNLPS ,aNTPS
a¥LPB,aNsTPB
SERFLG

STSTNM aDISPLAY
#B1110,a5WR
1%

LJIBELL

SERTTL
(SP) ,SERRP(
#2,3ERRPC

OSERRP(C,SITEMR

#81T713,35WR
20%
PC,TYPERR

LOCRLF

aSWR

b3 9

AND N-ERROR

[TEM NUMBER

IN SOFT-SWR

;o TEST FOR CHANGE

;SEN[ ERROR MESSAGE 10 TTY?
: YES=-BRANCH
;1S THERE A LINE PRINTER AVAILABLE?
:NO--BRANCH
s YES==SETUP STATUS
;AND BUFFER REG.'S FOR LINE PRINTER
;:SET THE ERROR FLAG

:;DON'T LET THE FLAG GO TO ZERO

;;DISPLAY TEST NUMBER AND ERROR FLAG
;.BELL ON ERROR?
;N0 = SKI]P

;:RING BELL

;s COUNT THE NUMBER OF ERRORS
;:GET ADDRESS Of ERROR INSTRUCTION

;;STRIP AND SAVE

;:SKIP TYPEOUT IF
;:SK1IP TYPEOUTS
;.60

TO USER

THE

SEY

ERROR

ITEM CODE

ERROR RQOUTINE

;s sHALT

ON ERROR

;:HALT
:;TEST

ON ERROR.
FOR CHANGE

;:SKIP IF CONTINUE

#BiTC9,aSwR
3

IN SOFT=-SWR

::LO0P ON ERROR SWITCH SET?

$LPERR, (SP)

::BR 1F NO
::FUDGE RETURN FOR LOOPING

5%
SESCAPE, (SP)

::BR IF NONE
:FUDGE RETURN ADDRESS FOR ESCAPE

$SESCAPE

I4.)

afTPS,INSTPS

af1PB,a#s1PB

;:CHECK FOR AN ESCAPE ADDRESS

:NO,

sACT11 AUTOMATIC MODE?

CONTINUE

sSET STATUS AND BUFFER REG.'S
JFOR

ey
e
- —

5093
5094
5095
5096
5097
5098
5099
5100
5101

eee SYSMAC SUBROUTINES eee

s*THIS ROUTINE

—_-00Q
OO

%953
5054
5055
5056
5057
5058
5059
5060
5061
5062
5063
5064
5065
5066
5067
5068
5069
5070
5071
5072
5073
5074
5075
5076
5077
5078
5079
5080
5081
5082
5083
5084
5085
5086
5087
5088
5089
5090
5091
5092

24=MAY-79

.SBTTL

505¢

MACY11 30A(1052)
PASS ROUTINE

CIRJAD RPO4/S/6 MECHANICAL AND READ/WRITE TEST

CIRJIAD.PIY
2}8§

28-MAR-79 11:28

020170

MACY11 30A(1C52)

ERROR MANDLER ROUTINE

000002

RT1

S‘OL

24-MAY-79

13:59

PAGE 105

SEQ 0101

:RETURN FROM ERROR (ALL

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

5105

.SBTTL

5106

TYPERR - TYPE ERROR ROUTINE

:THIS ROUTINE USES THE ‘‘ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE

5107

;WHICH ERROR 1S TO BE REPORTED, IT THEN OBTAINS, FROM THE ''ERROR

5109
5110
5111

:CONCERNING THE ERROR.
sCALL
;
JSR
PC.,a#TYPERR

5108

:TABLE'' (SERRTB), ANC REPORTS THE APPROPIATE INFORMATION

2}}%

5114
5115
5116

020172
020200
020202

5118
5119
5120
5121
5122
5123
5126
5127
5128

5117

5124
5129

113737
104412
162700

000004

020212
020216
020222
020226
020232
020236

010137
010237
010337
010437
010537
113700

001164
001166
001170
001172
00117¢
001114

020246
020250
020252

106300
106300
106300

020206

020242
020244

010037

010001
005300

5129
5130

020254
020256

103002
062700

5133
95136

020272
020274

001447
104401

5131
5132

020262
020266

5135

020300

5138
5139

020310
020312

5136
5137

5140
5141
5142
5143
5144
5145
5146
5147

5148
5149
5150

5151

5152
5153
5154

5155
5156
5157

062700
012037
104601

020302
020304

000000
162701

020316
020320
020322
020326
020330
020334

106301
006301
012702
005003
104401
000402

020342

020342
020346
020350

020352

020354
02035

020362

020364
020366
020370

100440
013701

012237
006301
103013

001102

001162

001176

TYPERR: MOVB
SAVREG
SUB

MoV

MoV
MoV
MOV
MOV
MOV
MOVB

MoV
DEC

ASLB
ASLB
ASLB

000240
004306
020302

1%:

001215
000041

2%:

001260
004254
020336
02036¢

::65%:
646%:

3%:

104401

000000
005701
001403

6%:

5¢:

RO,INSREGO

;COPY RO=-RS IN SREGO-SREGS

RO,RY
RO

;:P1CKUP ERROR 1TEM NUMBER
:AND COPY IT INTO R
:FORM INDEX FOR ERROR TABLE

R1,3#SREGT
R2,INSREG2
R3,SNSREGS
R4 ,aNSREGL
RS ,3#SREGS
a¥S1TEMB,RO
RO
RO
RO

ADD
MoV
BEQ
TYPE

LWORD
SUB

O
#61,R1

TYPE

7%
AFSVSTAT, R

:"'EM'* POINTER GOES HERE
:SPECIAL ERROR ITEM NUMBER?

:NO==BRANCH
:GET STATUS/ERROR INDICATOR

;STRIP *'DONE'’ BIT (BIT07)
:STRIP "ERROR'' BIT (BIT15)
2157 ADDRESS ON STATUS MESSAGE POINTERS
:CARRIAGE RETURN-LINE FEED SWIT(H
;:TYPE ASCIZ STRING
::GET OVER THE ASCIZ

ASLB
ASL
MoV
CLR
TYPE
BR

* RI
R1
#STATBL,R2
R3
.65%
648

MoV
ASL
BCC

(R2)+,5%
R1
6%

;MESSAGE POINTER
:TYPE THIS MESSAGE?
:NO--BRANCH

6%
JOCRLF

;NO=--BRANCH
SYES

O
R1
6%

:MESSAGE POINTER GOES HERE
:MORE 10 TYPE?
:NO--BRAN(H

LASCIZ

(oM

001215

SNSTSTNM, 3#STMPO ;SAVE THE TEST NUMBER
:SAVE RO - RS
¥4 ,RC
:FORM TEST PC

:1S ERROR > 37?
k3
#1TEMG1-SERRTB,RO ; YES--FORM OFFSET
:FORM ADDRESS
#SERRTB,RO
ERROR MESSAGE (EM) POINTER
;GET
(RO)+,2%
:BRANCH IF THERE ISN'T ONE
7%
:""CARRIAGE RETURN - LINE FEED
LSCRLF

BCC
ADD

BM1]
MoV

005103

001002
104401

RETURN

BNE
TYPE

1YPE

WORD
151
BEQ

/7 (/

YES==TYPE A "'(R'" & "'LE'"?

MACY11 30A(1052)
24=MAY=79
CIRJAD RPO4/5/6 MECHANICAL AND READ/WRITE TEST
TYPERR - TYPE ERROR ROUTINE
CZRJAD P11
28-MAR-79 11:28

5158
5159
5160
5161
5162
5163
9164
5165

020372
020376
020400
020402
020406
020412
020412
020416
020420
020424
020426
020430
020432
020434
020436
020440
020442
020444
020446
020452
020454
020456
020460
020462
020464
020466
020470
020470
020472
020474
020476
020500
020504
020506
020510
020512
020516
020520
020522
020526
020532
020534
020536
020542
020544
020546
020552
020554
020556

104401

000763
001360
104401

000401
012037

001404
104601
1046401
000000
012001
001450
005005
012000
012002
00140
005105
104401
112003
112004
006004
103403
013146
104402
000402

044330
020410

020426

104401

044330
14%:

106401

044330
020534

106401

000000
104401

001215

104401

044330

005705
001342

000737

104413
000207

JOCRLF

JCARRIAGE

.WORD

:"'DH'" POINTER GOES HERE

BEQ
CLR

20%
RS

;BRANCH [F NONE
;SET INDENT SWITCH

TYPE
MOVB
MovB
ROR

BCS

:PICK UP DATA HEADER
:BRANCH [Ff NONE

(RO)+ R

(RO)+,RO
(RO)+,R2

17¢%

12%

a(R1)+,-(SP)

DEC
BEQ
TYPE

R3
14%
LMSG. 5P

DEC

(oM
8NE
T1YPE

17%:

TST
BNE
TYPE

208:

RESREG

TYPE

R1S

POINTER

;CARRIAGE RETURN-LINE FEED
;NUMBER OF DATA WORDS T0 TYPE
;AND HOW TO TYPE THEM
;OCTAL OR DECIMAL?

MOV

BLE

(DT)

;NO INDENT

LOCRLE
(RO)+ ,R3
(RO)+,R4
R4

11%

FEED

:BRANCH IF DH NUMBER 1S 0

13%

B8R

TABLE

POINTER

;DATA FORMAT (DF) POINTER
;NUMBER Of DH'S TO TYPE

TYPDS

(DH)

RETURN-LINE

;PICKUP DATA

ai{R1)+,=(SP)

16%:

::GET OVER THE ASCIZ

/)y

MOV

MoV
TYPE
.WORD

.SBITL

FIN]SHED

STRING

(R0)+,8%
9%

TYPE

15%:

NOT

ASCIZ

MCv
BEQ

TYPOC

13%:

s TYPE

stQ 0102

669%

ASCIZ

(oM

12%:

;LOOP

106

MoV

11%:

;BRANCH 1F

,67%

}VSE
YPt

10%:

TYPE

BEQ
001215

;YES-=SPACES

b3 3

MOV
MCV

001215

012037

7%:

9% .

104401

005105
001002

2678
66%:

PAGE

,MSG.SP

BNE

8%:

104405
005303

000764
005302
003421

6% :

001215

013146
001403

TYPt

13:59

;DECIMAL--BRAN(CH

::SAVE @(R1)+ FOR TYPEOQUT
;:G0

TYPE-=-OCTAL

ASCIIC(ALL

::SAVE @(R1)+ FOR TYPEOUT

::60

TYPE--DECIMAL

ASC]]

;MORE NUMBERS T0 TYPE?
;NO=--BRANCH
sYES=-TYPE SEPERATORS

DIGITS)

WITH

SIGN

;LO00P

sMORE DH'S?

20%

;NO=--BRANCH

RS
15%
.MSG.SP

; INDENT?
sNO==BRANCH
sYES==TYPE SPACES

LOCRLT

(RO)+,16%

LSCRLF

RS
10%
,MSG.SP

;YES==START

A NEW LINE

;GET NEXT
JAND TYPE

DM
17
:DH POINTER GOES HERE
;CARRIAGE

RETURN-LINE

FEED

: INDENT?
:NO--BRAN(H
:YES-=TYPE SPAC(ES

10%

;L00P

;RETURN

;RESTORE RO - RS

TYPE ROUTINE

AXZZ22X2522E222

222220220

R2RRRRARRdR

RRRRRRRRR

RRRR

QD)

A NUMBER OF

NULL

CHARACTERS AFTER A LINE

:*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITW A 0 BYTE.
;*THE

ROUTINE WiLL

INSERT

FEED.,

CIRJAD RPOL/S/6 MECHANICAL AND READ/WRITE TEST
28-MAR-79 11:28

TYPE

ROUTINE

;eNOTEY:

P Y =X e]. L NY. XV ] P

e }-

(O RV A L
ol V 1V IV ] (¥,
(o912 1a% 1,V 1, V] N1 . V) [aY]

CIRJAD.PI

26-MAY-79

13:59

PAGE 107

SEQ 0103

$NULL CONTAINS THE CHARACTER TO BE USED AS THL FILLER CHARACTER.
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
S$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

;*NOTE?2:
;*NOTES:

. w

E'CALL:

[ V) o ¥ B R

;*¢1) UsSl NG A TRAP INSTRUCTION
TYPE
MESADR

:«OR
"

020560
020564
020566
020570
020572
020574
020600
020602
020604
020606
020610
020614
020616
020622
020624
020630
020632
020634
020636
020640
020644
020646
020652
020656
020660

5253
5254

MACY11 30A(1C52)

020664
020670
020672
020676
020702

105737
100002
000000
000407
010046
017600
112046
001005

005726
012600
062716
000002
122716
001430
122716
001006

001157

000002

2%:

000002

60%:
3%:

000011

000200

005726
104401

001215
105037
000755
004737
123726
001350
013746
105366
002770
004737
105337
000770

TYPE
MESADR

1518
BPL
HALT

1$:

020774
5%:
:
6%

020730
001156

001154

MOov
MoV
Move

BNE

157
MOV
ADD
RTI

(MPB
BEQ
(MPB
BNE
181
TYPE
SCRLF
CLRB
BR
JSR
(MPB

BNE

Mov

000001

020730
020774

;sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

DECB
BLT
JSR
DECB
BR

STPFLG
1%

::1S THERE A TERMINAL?
;:BR IF YES

;s LEAVE

RO,=-(SP)

@2(SP) R0

:;HALT

HERE

NO TERMINAL

::SAVE RO
::GET ADDRESS OF ASCIZ STRING

(RO)+,=(SP)
3
(SP)+
(SP)+,RO
¥2,(5P)

::PUSH CHARACTER TO BE

#HT, (SP)

:;BRANCH IF <HT>

#CRLF, (SP)

::BRANCH 1F NOT <CRLF>

(SP)+

::POP

SCHARCNT

PC,S$TYPEC

SFILLC,(SP)~

$NULL ,=(5P)
1(SP)

PC,STYPEC
SCHARCNT
7%

TYPED ONTO STACK

::BR IF 1T ISN'T THE TERMINATOR
::1F TERMINATOR POP T OFF THE STACK
:;RESTORE RO
::ADJUST RETURN P(C
;;RETURN

::TYPE

<CR><LF> EQUIV
A CR AND LF

:; CLEAR CHARACTER COUNT
::GET NEXT CHARACTER
;.60 TYPE THIS (HARACTER
;1S 1T TIME FOR FILLER CHARS.?
::1F NO GO GET NEXT (HAR.
;:GET # OF FILLER CHARS. NEEDED
;s AND THE NULL CHAR.
;:DOES A NULL NEED TO BE TYPED?

;:BR 1F NO--GO POP THE NULL OFF OF STACK
;60 TYPE A NULL

;.00 NOT COUNT AS A COUNT
;. LOOP

sHORIZONTAL TAB PROCESSOR
5260
5261

5265
5266

5269

020704
020710
020714
020722
020724
020726
020730
020734
020736
020744

112716

004737
132737
001372
005726
000724
105777
100375

116677
122766

000040
020730
000007

8%:

020774

9%:

MOvB
JSR

8178
BNE

,L(SP)

PC,STYPEC
#7 ,$CHARCNT

187

$TYPEC:

160214

000002
000015

160206
000002

1518
BPL
MOvB

CLMPB

$TYPE(

2(SP),a%1PB

#CR,2(SP)

::RIPLACE TAB WITH SPACE
;. VIPE A SPACE

.., BRANCH IF NOT AT

;:TAB STOP
;:POP SPACE OFF STACK
c:GET NEXT CHARACTER
::WAIT UNTIL PRINTER

IS READY

;sLOAD (HAR 10O BE TYPED INTO DATA REG.
;. 1S CHARACTER A CARRIAGE RETURN?

MACY11
CIRJAD RPOG/5/6 MECHANICAL AND READ/WRITE TEST
TYPE ROUTINE
CIRJAD P
28-MAR-79 11:28

5270
527
5272
5273
5274
5275
5276
5277
5278
5279
5280
5281
5282
5283
5284
5285
5286

020752
020754
020760
020762
020770
020772
020774
020776

001003

105037
000406
122766
001402
105227
000000
000207

BNE
CLRB

020774
000012

00000¢

1%:

B8R

(MPB
BEQ
INCB
$SCHARCNT: ,WORD
$TYPEX: RT1S
LSBTTL

BINARY

223222202002

]

N
8
24-MAY=79

30A(1052)

13:59

PAGE

108

SEQ 0104

1%
SCHARCNT

;:BRANCH IF NO
;;YES==CLEAR CHARACTER COUNTY

#LF,2(SP)
$TYPEX
(PC)¢
O
PC

::1S CHARACTER A LINE FEED?
;;BRANCH IF YES
;s COUNT THE CHARACTER
;s CHARACTER COUNT STORAGE

STYPEX

TO OCYAL
22228222

(ASCII)

s EXIT

AND TYPE

220222020222l

XiRRRRRRARRSRRR

RRal

)

E;THlS ROUTINE 1S USED TO CHANGE A 16-BIT BINARY NUMBER T0 A 6-DIGIT
s*OCTAL

(ASCI1) NUMBER AND TYPE

1IT.

R
i

.BYTE
.BYTE

::N=1
::M=1

;*$TYPOS-=--ENTER HERE YO SETUP SUPPRESS ZEROS AND NUMBER OF
;*CALL:
;v
MoV
NUM, - (SP)
;;NUMBER TO BE TYPED
i
TYPOS
;;CALL FOR TYPEOUT

N
M

B
s*STYPON-=-=<-ENTER HERE
;*$TYPOS OR $TYPOC
o
ot

;:Y=TYPE

Mov
TYPON

TO TYPE

NUM, - (SP)

OUY

WITH THE

LEADING ZEROS

SAME

PARAMETERS AS

THE

> &

o
ie

=00
W
N

POPNORURU NI N

2OV

IOV

o cd wod b o

(VL LIV IV TV LV LV AV IV VNV LV LV IV LV LV 2V )
WV IV YV IV IV LV RV IV LV VIV VIV LV AV 1Y)

et et =t O

5308

021000
021004
021012
021016
021022
021024
021032
021040
021046
021050
021052
021054
021060
621062
021066
021072
021076
021102
021104
021106
021110

017646

116637
112637

062716

000000
000001
021225
000002

000001
000006
000005

021223

021223
021225
021222

MOvVB

Move
ADD

BR
$TYPOC: MOVB
MOVB
$TYPON: MOVB

MOV
MOV
MOV
MOvVB
NEG

000006
021224
021223
000012

2%:

A 16 BlT NUMBER

NUM, - (SP)

;:NUMBER T0 BE TYPED
;;CALL FOR TYPEOQUTY

8(SP),=-(SP)

;:PICKUP THE MODE

(SP)+,80MODE+1
#2,{5P)

;;NUMBER OF DIGJTS TO TYPE
;s ADJUST RETURN ADDRESS

1(SP),$0FILL

$TYPON
#1,80F1LL
#6,90M0DE + 1
#5,800NT

R3.=-(SP)
R4 ,=-(SP)
RS,=-(SP)
:0HODE+1.R4
4

;:LOAD ZERQO FJLL SWITCH

;sSET THE ZERO FILL SWITCH
::SET FOR SIX{(6) DIGITS
;:SET THE JTERATION COUNT

::SAVE R3
;:SAVE R4
:sSAVE RS
;:GET THE NUMBER OF DIGITS TO TYPE

ADD
MOVB

#6,RG
R4, SOMCDE

JsSUBTRACT IT FOR MAX,
::;SAVE 1T FOR USE

(LR
ROL

R3
RS

;. CLEAR THE OUTPUY WORD
:;ROTATE MSB INTO ''C"

MOvB
MOV

1%:
006105

MOV
TYPOC

$TYPOS: MOV

021225

TvPE

DIGITS 10 TYPE

;;NUMBER 10 BE TYPED
;;CALL FOR TYPEOUT

:*$TYPOC-=--ENTER HERE FOR TYPEOQOUT OF

;vCALL:

;;0=SUPPRESS LEADING ZEROS

:'CALL:

TO 6 FOR NUMBER Of
OR 0

DIGITS

ROL

$OFILL,RG
12(SP),RS

b3 3
RS

ALLOWED

;.GET THE ZERO FILL SWITCH
::PICKUP THE INPUT NUMBER

;:60 DO MSB

;:FORM THIS DIGIT

LAST

e
L
V3L
AV IV IV IV IV ]
N N (S AV RV W 3
LIo o
Y
L 2R
L
P
(V) N=OO0D~NO
NS W= OO

sroo0noorNn

PR
S

MM
PO
b b

~NO N

N = OO

\gwwuwwwwwwwwwwww
A
IV I LY IV IV IV IV L,

A ARV ARV LV IV LV JV LV SV IV JV JV SV IV IV IV IV TV IV TV IV RV IV IV IV IV XV IV _JV_]

(IRJAD RPOL/5/6 MECHANICAL AND READ/WRITE TEST
MACYYY 30A(1092)
24=-MAY-7Y
CIRJAD PN
28-MAR-79 11:28
BINARY 10 OCYAL (ASCI1) AND TYPE

00610%
00610%
010503
006i03
105337

100016

042703
001002
005704
001403
005206
052703
052703
110337
1046401
105337

003347
002402
005204
000744
012605
012604
012603
016666
012616
000002
000

02122¢

3% :

021226

ROL
ROL

RS
RS

ROL
DECB

R3
$0MODE

MmOV
8PL

177770

::TEST FOR O

BtQ

5¢%

;.BR IF YES

#'0,R3

;oMAKE THIS DIGIT ASCII

000002

BIS
Mmovs

# R3S
R3,8%

000
000
000
000000

LSBTTL
S

,8%

(SP)+,R3

2(SP),4(SP)
(SP)+,(SP)

0
0
0
0
0

ALREADY

T0 DO

::BR 1F DONE
s INSURE LAST DIGIT

(SP)+ R4

0°'S

THIS DIGITY

::COUNT BY 1
::BR IF MORE

CONVERY BINARY

THIS 0?

SUPPRESS ANYMORE

::G0 YYPE

$OCNT
2%

(SP)+ ,RS

.BYTE
.BYTE
$OCNT:
.BYTE
$OFILL: .BYTE
$OMODE: .WORD

JUNK

soMAKE ASCII IF NOT
::SAVE FOR TYPING

MoV

Mov
MOV
R11

;:DON'T

6%
R4

MOv

;:GET RID OF
: s SUPPRESS

BLT
INC

MOV

gs:

R&
R&

B8R

000004

#77770,R3

INC

DECB
BG61

6%:

::GET LSB OF TMIS DIGIT
:;TYPE THIS DIGIT?

(3 9

TYPE

7%:

Stq 0109

BNE

BIS

5%:

109

::BR

181

(%:

PAGE

BIC

000060
000040
021220
021220
021222

RS,RY

15:99

ISN'T

;.60 DO THE LAST DIGIT

A BLANK

::RESTORE RS
;RESTORE

J:SET

STACK

;:RESTORE R3
THE

FOR RETURNING

;sRETURN

::STORAGE FOR ASCII DIGIT
;;TERMINATOR FOR TYPE ROUTINE
;;O0CTAL DIGIT COUNTLR
;olERO FILL SWITCH
;;NUMBER OF DIGITS 10 TYPE
TO DECIMAL AND TYPE ROUTINE

2222222222222 2222222222222222022202
2Rt RRRRtRRRRRRRRRRA ]

;*THIS ROUTINE

1S USED TO CHANGE A 16-B]T BINARY NUMBER 10 A 5-DIGIT

;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE 7. DEPENDING ON WHETHER THE
; *NUMBER 1S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN wiLL BE TYPED
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WiLL ALWAYS BE
;*REPLACED WITH SPACES.

;eCALL:

—_- OOV

IV IV TV IV RV IV IV TV VRV IV ]
[(C IV IV VIV T TV IV IV TV IV 1V )
OCOOD NNNNNNNNNN

~NO NN
—- O

5369

X
o

021226
021226
021230
021232
021234
021236
021240
021244
021250
021252
021254
021262

$TYPDS:

MOV
TYPDS

MoV

000055

000001

::PUSH RO ON STACK

RY,=(SP)

;:PUSH R1 ON STACK

[0}
MoV

R3,=-(SP)
RS,=-(SP)

;;PUSH R3 ON STACK
::PUSH RS ON STACK

#'-,1(5P)

;iMAKE

MOV
MOV
BPL
NEG

1%:

RO,=-(SP)

;:PUT THE BINARY NUMBER ON THE
::00 TO THE ROUTVINE

MOV

[ [0]"]
020209
000020

NUM, - (SP)

MOVB

CLR

R2,-(SP)

#20200,-(SP)
20(SP) RS
1%
RS
RO

;:PUSH R2 ON STACK

;:SET BLANK SWITCH AND SIGN
;:0ET THE INPUT NUMBER
;;BR 1F INPUT IS POS.
::MAKE THE BINARY NUMBER POS.
THE

;s LERO THE

ASCI1

NUMBER NEG.

CONSTANTS

INDEX

STA(K

9
c
MACYT1 30A(1052)
CIRJAD RPOG/S/76 MECHANICAL AND READ/WRITE TEST
26=MAY=79
13:59
CIRJAD P
28-RAR-79 11:28
CONVERT BINARY TO DECIMAL AND TYPe ROUTINE
5382
5383
5384
5389
5386
5387
5388
5389
5390
5391
5392
5393
5394
5395
5396
5397
5398
5399
5600
5401
95602
5403
5606
5405
5606
5407
5408
5409
5610
5611
5412
5413
5614

5615

5616

5617
5618
5619
5620
5621
5622
5423
5624
5625
5626
5427
5428
5429
5630
5431
5432
5433
5434
5435
5436
5637

021264
021270
021274
021276
021302
021304
021306
021310
021312
021314
021316
021320
021322
021324
021326
021330
021336
021342
021346
021350
021352
021356
021360
021362
021364
021366
021370
021372
021400
021402
021404
021406
021410
021412
021414
021420
021426
021430
021432
021436
021436
021440
0214642

012703

112723
005002
016001
160105
002402
005202
000774

021442
000240

2%:

021632

1%:

060105
005702
001002

105716
100407
106316
103003
116663

052702
052702

110223

005720
020027
002746
003002
010502
000764
105726
100003
116663
105013

012605
012603
012602
012601
012600

1046401
016666
012616
000002

023420
001750
000144
000012
000004

5%:

000001
000060
000040

177777

6%:
7%:

000010

#308LK R}

mov
mOovB

2 (RS

(LR

R2
)
,RY
$OTBL(RO
R1,RS
6%

Mov

SuUB

BLT
INC
BR

021442
000002

177776

9 :

00000«

;. SETUP THE OUTPUT POINTER

:.GET THE CONSTANT
;.FORM THIS BCD DIGIT
. :BR 1F DONE
: INCREASE THE BCD DIGIT BY 1

::FALL

CONSTANT

THE

THROUGH

;:STILL DOING LEADING 0°S?
;:BR

YES

;:BR

:.MSD?

1(5P),=1(R3)
#'0,R
LR
R2,(R3)¢
(RO)
¢
RO,#10

;. YES==SET THE SIGN
;sMAKE THE BCD DJGIT ASCl]
:;MAKE IT A SPACE IF NOT ALREADY A DIGIT
;:PUT THIS CHARACTER IN THE OUTPUT BUFFER

;:JUST INCREMENTING
;. CHECK

THE

TABLE

INDEX

;:60 DO THE NEXT DIGIT
;.60 TO EVIT
;:GET

THE

LSD

THE

LSD

;.60 CHANGE TO ASCII

;:WAS

1818

BPL

=1(SP),=2(R3)
(R3)

MOVB

CLRB

MOV
MOV
MoV
MoV
MOV
TYPE
MoV
MOV
RTI

TTY

s sYES==SET

THE

FIRST

SIGN *OR

;:SET THE TERMINATOR

. SDBLK

;;POP STACK INTO RO
::NOW TYPE THE NUMBER

(SP)+, (SP)

LSBTTL

IF NO

;:POP STACK INTO RS
;sPOP STACK INTO R3
;:POP STACK INTO R2

2(SP),4(SP)

$DBLK:

;:BR

(SP)+,RS
(SP)+,R3
(SP)+ ,R2
(SP)+ ,R1
(SP)+,RO

10000.
1000.
100.
10.
LBLKW

$D18L:

SEQ 0106

;s CHECK IF BCD DIGIT=0

BNE
1518
BM]
ASLB
BCC
mMov8
BIS
BIS
MOVB
187
CmMP

MoV

177777

110

;:SET THE FIRST CHMARA(TER TO A BLANK
;. CLEAR THE B(D NUMBER

;;ADD BACK

ADD
1971

BLT
BGT

8%:

PAGE

;;POP STACK

NON-ZERG?
TYPING

INTO RI

::ADJUST THE STACK
:sRETURN T0O USER

INPUT

ROUTINE

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

021452
021454
021456
021460

000000
000000
000000
000002
021462

.ENABL
LSB
$TKCNT: .WORD
$TKQIN: .WORD
$TKQOUT: .WORD
$TKQASRT: .BLKB
$TKQEND=,

;sNUMBER OF

0
0
0
2

;:11Y

;1K INITIALIZE ROUTINE
;*TH]S ROUTINE WILL

ITEMS IN QUEUE

:: INPUT POINTER
::0UTPUT POINTER

INITIALIZE

THE

KEYBOARD QUEULE

T1y KEYBOARD

INPUT QUEUE

CIRJAD RPO&/5/6 MECHANICAL AND READ/WRITE TEST
MACY11 3CA(1052)
TTy INPUT ROUTINE
CIRJIAD.PIN
28-MAR-79 11:28
5¢3%8
5439

;*SETUP THE

;'(ALL:

5440
bYYA
5642

5493

NNNNNNNN

ey
P Py = P

02146¢
021466
021474
021502
021510
021516
021522
021530

OOOOVNIOO

5446
SG4L7
5448
5449
5450
5451
5452
5453
54654
5455
5456
5457
5458
5459
5460
5461
5662
56463
5464
5465
5666
5467
56468
95469
5470
5471
5472
5673
5474
5475
5476
5477
5478
5479
5480
95481
5482
5483
5484
5485
5486
5487
5488
5489
5490
5491
5492

i
(=1, IV 1 ST VTV"] NIV, ]
NI NNNNNNO
O N NN
N
N

5443
S444
5645

021452
021460
021454
021532
000200

1574624
000100

021454
021456
000060
000062

SIKINT:

13:59

PAGE

111

SEQ 0107

INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT

JSR

PC,STKINT

(LR

$TXCNT
;. CLEAR COUNT OF ITEMS [N QUEUE
#STKQSRT,$TKQIN ;;MOVE THE STARTING ADDRESS Of THE
$TKQIN,S$TKQCUT
:;QUEUE INTO THE INPUT & OUTPUT POINTERS.

RE TURN
MOV
MOV
Mov
Mov

1581

1574614

9
D
24=-PAY-79

MoV
RTS

#OTKSRY ,SFTKVEC

#200,88TKVE(C+?2
FE 31 4]
#100,8%7k$S

;o INITIALIZE
;' 'BR' LEVEL
;s CLEAR DONE
::ENABLE TTY

THE KEYBOARD VECTOR
4
FLAG
KEYBOARD INTERRUPT

::RETURN TO CALLER

;*TK SERVICE ROUTINE
;*THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT
;*BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING
;+17 IN THE QUEUE.

;*1F THE CHARACTER IS A '"CONTROL=C'' (*C) STKINT IS CALLED AND
;*UPON RETURN EXIT IS MADE TO THE "'CONTROL=C'' RESTART ADDRESS (START?)
021532
021536

021542

021546
021550
021554
021560
021562
021566
021572
021574
021602

021604
021604
021612
021614
021620
021622
021624

021630
021632
021636
021640
021644
021646
021652
021656
021662
021664
021672
021674
021700
021704

117746

042716
021627
001007
104401
004737
005726

000137
021627

001004
022737
001500

022737
001004
1046401

005726
000451
021627
001021
005077
005726

105777
100375
117746
062716

022627
001366
012777
000002

0052%7
021627
002405

157410
177600

$TKSRV:

000003

(mp
BNE

022662
021462

TYPE

JSR

004730
000007

1%:

000176

001140

000002

021452

2%:

001210

(mp
BNE
197

3%:

157306
157300

31%:

157274
177600
000021

021452
000140

181
JWP
c(MpP
BNE
(Mp
BEQ

TYPE

000023

000100

MOVB
BIC

c(Mp

BNE
(LR
181

1578

BPL

MOvVB

BIC
(mp
BNE

157252

32%:

Mov
RT]

INC

(mp

a%71kB,~ (5P
#2177, (SP)
(SP),#3
1%

;:PICKUP THE CHARACTER
::STRIP THE JUNK
;1S 1T A CONTROL C?
::BRANCH |F NO
;2 TYPE

A (ONTROL=-C

PC,STKINT
(SP)¢

;> INIT

THE

LOONTLC

START?
(SP) ,#7
2%

(*(C)

XEYBOARD

:;CLEAN UP STA(K
;. CONTROL C RESTART
;015 IT A CONTROL G?
::BRANCH

#SWREG, SWR

2215 SOFT=-SWR SELECTED?
;.60 T0 SWR CHANGE

#2,8TKCNT

;1S THE QUEUE FuLL?
;;BRANCH IF NO
:RING THE TTv BELL
::CLE?N CHARACTER OFF OF
o EX]

LIBELL
(SP)+

5%
(SP),#23%

32%

9%7KS
(SP)+

adT1ks
31
a$1kB,-(SP)
#2C177,(5P)
(SP)+ 221
318
#100,887«S
$TKINT

(SP),#140
6%

STA(K

;1S 1T A CONTROL=S?
:;BRANCH IF NO

;:DISABLE TTY KEYBOARD INTERRUPTS
::CLEAN CHAR OfF STA(X
;:WALIT FOR A (HAR
;:LOOP UNTIL ITS THERE
;;GET THE (HARACTER
ssMAKE

7-BIT

ASCII

1S IV A CONTROL=Q?
; ;BRANCKH IF

s;REENABLE
;s RETURN

TTY KEYBOARD

;. COUNT THIS (HARACTER
;018 17 UPPER (ASE?
s ;BRANCH IF YES

[NTERRCP'S

MACY11 30A(1052)
CIRJAD RP0O4/5/76 MECHANICAL AND READ/WRITE TEST
TTY INPUT ROUTINE
CZRJAD P
28-MAR-79 11:28

9494
9695
5696
5497
5498
5499
5500
5501
5502
5503
5504

021706
021712
021714
021720
021724
021730
021736
021740
021746

021627
003002
062716
112677
005237

023727
001003
012737
000002

000175
000040
177530
02165¢
021454

021462

021460

021454

5%:

(mp
BGT
Bl1C

move
INC
(mp
BNE

Mov

RT11

9
E
24=-MAY-79

(SP),#175
6%
840, (SP)
(SP)+,a$TkQIN
$TKQIN
$TXKQIN,#STKQEND

13:59

PAGE

112

St 0108

1S 1T A SPECIAL (MAR?

:;BRANCH IF
;;MAKE 1T
:;AND PUT

:;UPDATE

YES

UPPER CASE

IT IN QUEUE
THE POINTER

; ;GO OFF THE END?
3
; ;BRANCH [F NO
#STKQSRT, $TKQIN ;;RESET THE POINTER
;s RETURN

:'""0""""""""""'""'.""""""""""'t"'l""'

:*SOF TWARE SWITCH REGISTER CHANGE ROUTINE.

021750
021756
021760
021764
021766
021772
021776
022002

022737
001124
105777
100121
117746

042716
021627
001300

000176

001140

*CALL WHEN OPERATING

$CKSWR:

157160

CMp

BNE

1518

BPL
MovB
81cC
(MP
BNE

157154

177600

000007

IN TTY

#SWREG, SWR

159
asTKs

15%
as$1kB,~(SP)
#4C177,(SP)
(SP) 47

=P e

il e

OOV~
NI (NN —

[V RV IV V. XV IV IV RV IV RV ]
WAV IV N
IV TV IV IV RV IV )

FROM THE TRAP HANDLER, AND WILL
;*ROUTINE 1S ENTERED
;*SERVICE THE TEST FOR CHANGE IN SOF TWARE SWIT(H REGISTER TRAP

INTERRUPT MODE.

;. 1S THE SOFT-SWR SELECTED
J;EXIT IF NOT
::1S A CHAR WAITING?
1F NOT, EXIT
;o
o YES
:oMAKE

s sAND

EXIT

7-8BIT

ASCII

;1S 1T A CONTROL=-G?
1F NOT, PUT JT IN THE
;o

TTY QUEUE

R R
R Y]

;*CONTROL 1S PASSED TO THIS POINT FROM E1THER THE TTY INTERRUPT SERVI(E
;*ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP (ALL, AS A RESULT OF A

022004

022012
022014
022016

022022
022026

022034
022040
022044
022050
022052
022056
022060
022062
022066
022070
022074
022100
022104
022106
022112
022116
022124
022126

123727
001674
005726

00113¢

004737
005077

021462

104401
104401

022674
022701
000176

112737

013746
104402
104401

005046
005046
105777
100375

157116
000001

000001

;s*CONTROL-G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED.
#1
$AUTOB,
6%
(MPB
;sARE WE RUNNING IN AUTO-MODE?
Q
2%
BE
: ;BRANCH IF YES
151

JSR
(LR

001135

move

$GTSWR:

022712

19%:

157056

7%:

157010

INDICATOR

;:ECHO THE CONTROL=-G (*G)

::60 TYPE--OCTAL ASCII(ALL
FOR NEW

;sCLEAR COUNTER

SWR

DIGITS)

;s THE NEW SWR
;. CHAR THERE?

1518

3%$71KS
7%

a%1kB,=(SP)
40177, (SP)

;:P1Ik UP (HAR
s sMAKE 17 7-BlT1 ASCII

(SP) ,#3
9%
LJOONTLC

;1S 1T A CONTROL=-C?
: ;BRANCH 1F NOT
¢sYES, ECHO CONTROL=-C (*()
;s CLEAN UP STA(CK
;;REENABLE T1Y KEYBOARD INTERRUPTS?

(Mp
BNE

000100

INTERRUPT

- (5P)
-(SP)

000003

001003
012777

MODE

;:DISABLE T1Y KEYBOARD INTERRLPTS

(LR
(LR

BIC

000001

QUEUE

; :PROMPT

021627
001015
123727

LSONTLG
,SMSWR

STA(K

INPUT

L SMNEW

MOV

062706

::SET

TTY

SWREG,-(SP)

BPL

022662
000006
001135

#1,8INTAG

a$71kKsS

THE

;. TYPE CURRENT C(ONTENTS
.. SAVE SWREG FOR TYPEQUT

157052
177600

106401

2;FLUSH

TYPE
TYPE
MOV
1YPOC
TYPE

117746

042716

;:CLEAR CONTROL=G GFF

(SP)+
PC,STKINT

TYPE
ADD

(MPB
BNE

MOV

6 ,SP

SINTAG,#!
8%

#100,387x$

1F NOT TRy AGAIN
;o

;:BRANCH

ssALLOW T1Y KEYBOARD INTERRLPTS

CIRJAD RPO4/S5/6 MECHANICAL AND READ/WRITE TEST
MACY11 30A(1052)
TTY INPUT ROUTINE
CIRJAD.PIY
28-MAR-79 11:28
5550

59951
5552
5553
5554
5555

5556
5557
5558
5559
5560
5561
5562
5563
5564
5565
5566
5567
5568
5569
5570
5571
5572

5573

5574
5575
5570
5577
5578
5579
5580
5581
5582
5583
5584
5585
5586
5587
5588
5589
5590
5891
5592
5593
5594
5595
5596
5597
5598
5599
5600
5601
5602
5603
5604
5605

022134

000137

004730

8%:

022140
022144
022146
022152
022156

021627
001005
104401
062706
000737

000025

9% :

022160
022164
022166

021627
001022
005766
001403
016677
062706

022172

022174
02220¢
022206
022212
022220
022222
022230
022232
022236
022242
022244
022250
022252
022256
022262
022264
022266
022270
022272
022276
022302
022304
022310

104601
123727

001003
012777
000002
004737
021627
002420
021627
003015
042726
005766
001403
006316
006316
006316

022667

000006

20%:

000015

10%:

000004
156736

000002
000006
001215
001135

000001

000100

156714

020730
000060

15%:
16%:

000060
000002

000002
177776

17%:

104401
000720

001214

18%:

000667

.DSABL

113

sta 0109

: ;s CONTROL=C RESTART

(mp

(SP) ,#25
10$

ADD

"6 ,SP

::1S 1T A CONTROL-U?
; ;BRANCH JF NOT
JoYES, ECHO CONTROL=-U (*U)
; ; IGNORE PREV]IOUS INPULT

{mp

(SP),#15
16%

BNE
TYPE

B8R

BNE
187

MOV

ADD
TYPE
(MPB
BNE
MOV
RT]
JSR
cmp

181
BEQ

005266
056616

PAGE

START?

BLT
c(mp
BGY
BIC

000067

13:59

JAP

BEQ

11%:
14%:

F
9
24=-MAY-79

ASL
ASL
ASL
INC

BIS
BR
TYPE
BR
LS8

CJSCNTLU

19%

4 (SP)

11$

s:LET'S TRY [T AGAIN
5219 IT A <CR>?
;BRANCH IF MO
JYES, IS IT THE
:;BRANCH 1F YES

2(SP) ,aSuWR
#6,5P

;s SAVE NEW SWR
;s CLEAR UP STACK

#
SINTAG,
15%

:;RE-ENABLE

TTY

:;CHAR < 0?
:;BRANCH JF

YES

LSCRLF

#100,3%7kS$

PC,STYPEC

(SP),#60

18%

., 067
(SP)
18%

FIRST

::ECHO <CR> AND <LF>
XBD

C(MHAR?

INTERRUPTS?

::BRANCH IF NOT
::RE-ENABLE 1Ty KBD INTERRUPTS
: :RETURN
;cECHO CMAR

:;CHAR > 77

2(SP)

;;BRANCH ]F YES
::STRIP=-OFF ASCIlI
;:1S THIS THE FIRST (HAR

(SP)
(SP)

J:NO, SHIFT PRESENT
CHAR OVER T0 MAKE
s
ROOM FOR NEW ONE.
M

#60, (SP)+

17%
(SP)

2(SP)
-2(SP),(SP)
7%

.SQUES

20%

: ;BRANCH

YES

;sKEEP

COUNT

;s TYPE

2<CR><LF>

(HAR

;:SET IN NEW CHAR
;:GET THE NEXT ONE

;;SIMULATE CONTROL-U

BE 2222322222202l
iRl RRlRRRRRsRN RN

SeTHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTy
JeCALL:
.

RDCHR

RETURN HERE

022312
022314
022322

022326
022330
022334
022336
022336

011646
016666
005066
005046
012746
000002

005737

000004
000004

022336
021452

000002

$RNCHR: MOV
MOV
(LR
(LR
MoV
64:

1$:

R1]

157

(SP) ,-(SP)
& (SP),2(5P)
& (SP)
-{SP)

:;0ET A CHARACTER FROM THE QUEUE
;s CHARACTER

1S ON THE

STA(K

;:WITH PARITY BIT STRIPPED OFFf
::PUSH DCwN THE P( AND
;. THE

#646%,-15P)

::GEY READY FOR A (HARA(TER
2 PUT NEW PS ON STA(KX
;:PUT NEW PC ON STA(K

$TK{NT

;cWALT ON A (HARA({TER

;. POP NEW PC

AND PS

CIRJAD RPO4/S5/6 MECHANICAL AND READ/WRITE TEST
MACY1Y 30A(1052)
TTY INPUT ROUTINE
CZRJAD.P
28-MAR-79 11:28
5606
5607
5608
5609
5610
5611
5612
5613
5614
5615

022342
022344
022350
022356
022362
022370
022372
022400

001775
005337

117766

005237
023727
001003
012737
000002

021452

177102

000004

021656
021456

0214662

021460

021456

MOve

INC
(mp
BNE

Mov
RT1

13:59

PAGE

114

SEQ 0110

$TKCNT
;;DECREMENT THE COUNTER
a$TKQOUT,&(SP)
;;GET ONE CHARACTER
$TxQOUT
s sUPDATE THE POINTER
$TXKQOUT,#$TKQEND ;;DID JT GO OFF OF THE END?
23
: ;BRANCH |F NO
#$TKQSRT,$TKQOUT

;;RESET
:sRETURN

THE

POINTER

creNetRtROCOTRTORIROROCRRORCRORRORRRCROCEREOERRRRRRRRRRRORROSOROERNRAORRCRAROROSOCORTOYS

;;IHIS ROUTINE WILL INPUT A STRING FROM THE TTY

5616

5617
5618
5619
5620
5621
5622
9623
5624
5625
5626
5627
5628
5629
5630
5631
5632
5633
5634
5635
5636
5637
5638
5639
5640
5641
5642
5643
5644
5645
5646
5647
5648
5649
5650
5651
5652
5653
5654
5655
5656
5657
5658
5659
5660
56061

8taQ
DEC

6 9
24-MAY-79

seCALL:
."
;'

RDLIN
RETURN HERE

022402
022604
022406
022412
022416
022420
022622
022424
022430
022432
022434
022436
022444
022450

022454

0224656
022462
022464
022470
022474
022476
022500
022502
022510
022514
022516
022522
022524
022530
022532
022536
022540
022542
022546

022552
022554
022560
022562
022566
022572
022576

010346
005046
012703
022703
1014656
104410
112613
122713

001022
005716
001007
112737
104401

012716
005303
020327
103434
111337
104401

000746
005716
001406
112737
104401
005016
122713
001003
104401
000726
122713
001011
105013
104401
104401

000717

022636
022662

MOV

1%:

MOV
cmp

2%:

000177

000134
022634

$RDLIN:

108:

022634

177777

6%:

022636
022634
022634

000025

022634
7%:

022667
000022

8%:

001215
022636
001214

111337
104401
122723

022634
022634
000015

3%:

001305

RDCHR
MOvVB

(MPB
BNE
197
BNE

MOVB
TYPE
MOV

DEC
(mp
BLO
MOVB

(SP)

22 1S THIS THE FIRST RUBQUT?

5¢

£-1,(5P)

::SET

THE RUBOUT KEY

;:BR

,9%

R3
RI NSTTIYVIN
3
(R3),9%

A BACK

SLASH

RUBCUT

;s CLEAR THE

Kty

;1S CHARACTER A (TRL U7

LSINTLY

;:BR If NO

;2 TYPE

A CONTROL

2:TYPE

A ''CR' R CLFY

''U"

3%
(R3)

;.60 START QVER
::1S CHARACTER A '"R'%?
;:BRANCH IFfF NO
:;CLEAR THE (CHARACTER

LSTTYIN

;. TYPE

LOCRLF

1%
(R3),9%
9
9%
#15,(R3)e

(MPB
BNE

A BACK

;;BACKUP BY ONE
J:STACK EMPTY?
;:BR IF YES
::SETUP TO TYPEOUT THE DELETED (HAR,
;:G0 TYPE
;:G0 READ ANOTHER (HAR.
::RUBOUT KEY SET?
;. 7YPE

1%
#22,(R3)

LSQUES

TTv

;:BR

MOVB
TYPE

;s TYPE

TYPE

;:BR

#'\,9%

191

BR
(MPB
BNE
(LRB

:;SAVE R3
:;CLEAR THE RUBOUT KEY

#177,(R3)

(SP)+,(RY)

8EQ

MOvVB
TYPE
(LR
CMPB
BNE
TYPE

;:ADDRESS OF FIRST C(HARACTER WlLL BE ON THE
;; TERMINATOR WILL BE A BYTE OF ALL 0°S

;:GET ADDRESS
. BUFFER FULL?
;:BR IF YES
;.60 READ ONE CHARACTER FROM THE
::GET CHARACTER
;18 1T A RUBOUT

#STIVIN,RD
#STTYIN+20. LR3
6%

TYPE
TYPE

1046401

000712

BLOS

=(SP)

TYPE

5%:

000134
022634

(LR

R3,-(SP)

;o INPUT A STRING FROM THE 171y

THE

INPUT

STRING

;:00 PICKUP ANOTHER (HACTER
;:TYPE

;s CLEAR THE BUFFER AND LOQP
:.ECHO THE CHARACTER

;. CHECK FOR RETURN
:.LOOP IF NOT RETURN

STA(K

H
9
24-MAY-79

MACY11 30A(1052)
CIRJAD RPO4/5/6 MECHANICAL AND READ/WRITE TEST
TTY INPUT ROUTINE
CZIRJAD P
28-MAR-79 11:28

5662
5663

5664
5665
5666

5667
5668

022600
022604
022610
022612
022614
022616
022624
022632
022634
022635
022636
022662
022667
022674
022701
022706
022712
022720

105063
104401

005726
012603
011646
016666

012766
000002

022724

177777

001216

000004

022636

005015
006525
005015
051412
000040
042516
000

115

sea 01N

-1(RY)

;. CLEAR RETURN (THE

157
MOV

(SP)
(SP)+ ,R3

;:CLEAN RUBQUT KEY FROM THE
:;RESTORE R3

JOLF

Mov
mov
Mov
RTI

9% :

PAGE

(LRB
1 (Pt

000002
000004

13:59

;:TYPE

(SP),=(SP)
4(SP),2(SP)
FOTTYIN,L(SP)

000
000012
000
051127

$TTYIN:
SINTLC:
SCNTLU:
SCNTLG:
IMSWR:

BYTE
.BYTE
.BLKB
.ASCIZ
JASCIZ
.ASCIZ
_ASCIZ

020127

SMNEW:

.ASCIZ

0
0
20.
/7%C/7<15A1
2>
/7*U/<15><12>
/7%G/<15><12>
<15><12>/SWR =
/

A LINE

FEED

15)
STA(K

;ADJUST THE STACK AND PUT ADDRESS OF
M
FIRST ASCII CHARACTER ON |17

THE

; sRETURN

;. STORAGE FOR ASCII CHAR. TO TYPE
::TERMINATOR
::;RESERVE 20. BYTES FOR 1Ty INPUT
;:CONTROL *'¢*
::CONTROL U’
::CONTROL ''G"

NEW =/

.EVEN
.SBTTL

SCOPE

HANDLER ROUTINE

TR RRtRRRNRRORROCERRORCERSERRRORPORRORORROEROEOROERNOOERNORNOCEROOOROEOCEODRORNON

;*TH]S ROUTINE

CONTROLS

THE

;*AND LOAD THE

ERROR FLAG

LOOPING OF

:*AND LOAD THE TEST NUMBER(STSTNM)

s*THE

ceSWi6=

LOOP ON TEST

;*SW09:=1

LOOP ON ERROR

X IY"ARER]

;e CALL

B
R
e
P
Y« )
NOWVE
N =00

AW AV AV JU LV LV AV LV 1V ]
NN
NNN NN

022724
022724
022726
022734

032777
001101

022736

000416

022740
022744
022752
022756
022762
022764
022766
022772
022774

013746
012737
005737
012637
000453

022774
023000

023002

023010
023012
023020
023022

104407

$SCOPE:

040000

156204

1%:

SCOPE

(KSWR

BIT
BNE

SANNANSTART

177060

000004

5¢:

000004

001103
001115

001103

001000

156120

001110

001106

wWitL

INCREMENT

INTO DISPLAY<15:08>

THIS ROUTINE

ARE:

;. SCOPE=101

#B1T114,a5WR
$SOVER

CODE

FOR

THE

:;TEST
XOR

mMov

AFERRVEC,=-(SP)

BR
(mp

$SVLAD
(SP)+,(SP)¢

MOV
151
MOV

000004

INHIBIT ITERATIONS

$XTSTR: BR

000004
022764

(SERFLG)

SWITCH OPTIONS PROVIDED BY

SUBTESTS.

INTO THE DISPLAY REG.(D]SPLAY<7:0TM

Mov

#5%,90ERRVEC
177060
(SP)+ ,SFERRVEC
(SP)+,9#ERRVEC

FOR CHANGE

IN SOFT-SWR

:;LOOP ON PRESENT TEST?
JoYES IF SWle=1

TESTERNNAAN

;:1F

RUNNING ON THE ''XOR'® TESTER (HANGE

::THIS

INSTRUCTION TO A "'NOP'" (NOP 240)

;;SAVE THE CONTENTS OF

THE ERROR VE(CTOR

::SET FOR TIMEOQUT
::;VIME OUT ON XOR?
;;RESTORE THE ERROR VECTOR

::G0 TO THE NEXT TEST
;;CLEAR THE STACK AFTER A TIME
:;RESTORE

THE

ERROR VECTOR

Qut

::LO0P ON THE PRESENT TEST
7%
BR
6% ::NRBNEND OF (ODE FOR THE XOR TESTERNANNA
2%:
1518
$ERFLG
::HAS AN ERROR OCCURRED?
BEQ
1
::BR IF NO

(mpPB
BHI

SERMAX,SERFLG
1%

::MAX. ERRORS FOR THIS TEST OCCURRED?
;:BR IF NO

BtQ
MOV

4%
$1 PERR,SLPADR

;:BR 1F NO
;;SET LOOP ADDRESS TO LAST

BI1
s ¥

#B1709,a5uWR

;:L00P ON ERROR?

SCOPE

CIRJAD RPO4L/5/6 MECHANICAL AND READ/WRITE TEST
MACY1Y 30A(1052)
CIRJAD.PWI
28-MAR-79 11:28
SCOPE HMANDLER ROUTINE
S718
5719

5720
5721
9722
5723
§724
5725
5726
5727
5728
5729
5730
5731
5732
5733
573«
5739
573
5737
5738
2;38
4

023030
023032

023036
023042
023044
023052
02305«
023060
023062
023066
023074
023076
023104
023112
023116
023122
023126
023132
023140
023146
023152
023154

000443
105037

005037
000415
032777
001011
005737
001406
005237
023737
002021
012737
013737
105237
011637
011637
005037
112737
013777
013716
000002
000001

001103
001204

004000

6%:

156066

001100
001104
001204
..
000001
023154
001102
001106
001110
001206
000001
001102
001106

g;a;

BR
(LRB

001104
001104
001204

001119
155774

SOVER
SERFLG

(LR
BR
3%:
BIT
BNE
187
Bta
INC
(mMp
B8GE
1%:
1 [01Y]
MOV
$SVLAD: IN(R
MoV
MoV
(LR
MOVB
$SOVER:
MOV
MOV
RT1
SMXCNT:
.SBTTL

SAVE

9
1
24=-MAY=79

$TIMES
1%
#B1711,a5wPR
1%
$PASS
1%
$1CNT
STIMES,SICNT
$OVER
#1,81CNT
SMXCNT,STIMES
$TSTNM
(SP) ,$LPADR
(SP) ,$LPERR
$ESCAPE
#1,3ERMAX
$TSTNM,aDISPLAY
SLPADR, (SP)

AND RESTORE

13:59

PAGE

116

;;LERO THE ERROR FLAG
;s CLEAR THE NUMBER OF ITERATIONS TO MAKE
:sESCAPE TO THE NEXT TEST

;s INHIBIT ITERATIONS?
::BR 1F YES
::1F FIRST PASS OF PROGRAM
3
INHIBIT JTERAT]ONS
:; INCREMENT JTERATION COUNT
;s CHECK THE NUMBER OF JTERATIONS MADE
;.BR IF MORE ITERATION REQUIRED
SoREINITIALIZE THE 1TERATION COUNTER
;:SET NUMBER Of ITERATIONS 10 DO
;;COUNT TEST NUMBERS
;:SAVE SCOPE LOOP ADDRESS

;;SAVE ERROR LOOP ADDRESS
:;CLEAR THE ESCAPE FROM ERROR ADDRESS
::ONLY ALLOW ONE(1) ERROR ON NEXT TEST
;:DISPLAY TEST NUMBER
::FUDGE RETURN ADDRESS
;:FIXES PS
::MAX, NUMBER OF ITERATIONS

RO-RS ROUTINES

57‘5

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

5744
5745
5746
g;«;

;*SAVE RO-RS
ceCALL:
X
SAVREG
;:*UPON RETURN FROM $SAVREG THE

5749

;¢ 10P===(4+16)

5752

5750
5751

46==-R4

;v +8---R}

5754

;04 10-==R2

5759

5756

2=-==R1

;o4 14=-==R0

5757
5758

023156

5763
§76&
5765
5766
5767
5768

023166
023170
023172
023176
023202
023206

5769
S77C
344
5772
5773

LOOK LIKE:

;e 42===(+18)
;v 44=-==RS

5753%

5759
5760
5761
5762

STACK WILL

023156
023160
023162
023164

023212

$SAVREG:

010046
010146
010246
010346

010446
010546
016646
016646
016646
016646
000002

000022
000072
000022
000022

MOV
MOV
MOV
MOV

MOV
MOV
MOV
MOV
MoV
Mov
RV}

:*RESTORE RO-RS
se(ALL"
:*
RESREG

RO,=(SP)
R1,-(SP)
R2,=(SP)
R3,-(SP)

R&,=-(SP)
RS ,-(SP)
22(SP),=(SF)
22(SP) ,=(SP)
22(SP) ,=(SP)
22(SP),=(SP)

::PUSH
::PUSH
::PUSH
::PUSH

;:PUSH
::PUSH
::SAVE
;:SAVE
::SAVE
;:SAVE

RO
R1
R2
R3

R4
RS
PS
PC
PS
PC

ON
ON
ON
ON

STACK
STACK
STACK
STACK

ON STA(K
ON STAC(K
OF MAIN FLOW
OF MAIN FLOW
OF CALL
OF CALL

SEQ 0112

MACYIY 30A(1052)
24=-PAY-79
CIRJAD RPO&L/S/6 MECHANICAL AND READ/WRITE TEST
CIRJAD P
2B8-MAR-79 11:28
SAVE AND RESTORE RO-RS ROUTINES

ST74
5775
5776
5777
5778
5779
5780
5781
95782
5783
5784
578%
5786
S787
5788
5789
5790
5791
5792
5793
5794
5795
5796
5797
5798
5799
5800
5801
5802
5803
9804
5805
5806
5807
5808
5809
5810
5811
5812
5813
5814
95815
5816

023216
023214
023220
0232264
023230
023234
023236
023240
023242
023244
023246
023250

mov
Mov
Mmov
MoV
Mov
Mmov
Mov

000002

117

SEQ 0113

;:POP STACK

INTD Ré

::POP STACK

INTO R?

:;POP STACK INTO R3

(SP)+ ,R2
(SP)+ R
(SP)+ RO

RT1

PAGE

::RESTORE PC OF CALL
:;RESTORE PS OF CALL
;;RESTORE PC OF MAIN FLOW
;;RESTORE PS OF MAIN FLOW
::POP STACK INTO RS

(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,22(SP)
(SP)+,RS
(SP)+,R4
(SP)+ ,R3

Mov
mMov
MoV

.SBTTL

:;POP STACK INTO RI
;;POP STACK INTO RO

TRAP DECODER

;;l"'""'""""""""""""""""'."""."I"'."".'

;*THIS ROUTINE WILL PICKUP THE
:*AND USE

;*OF

INDEX

THROUGH

THE DESIRED ROUTINE.

:*GO TO THAT ROUTINE.
023252
023254
023260
023262
023264
023266
023272

023274
023276
023304

010046
016600
005740

000002

006300
016000
000200

023306

$TRAP:

111000

011646
016666
000002

000004

MOV
MOV

000002

-(RO)
(RO) ,RO
RO
$TRPAD(R0O)
, RO
RO

::THIS

IS USE

$TRAP2:

MOV
Mov
RTI

.SBTTL

TRAP TABLE
TABLE

TO HANDLE

THE

TRAP

TABLE

THE

FOR

023274
020560
021024
021000
021040
021226

5819
5820
5821
5822

THE

STARTING ADDRESS

ADDRESS OBTAINED

IT WILL

;. SAVE RO
::GET TRAP ADDRESS

. :BACKUP BY ¢
::GET RIGHT BYTE OF TRAP
;;POSITION FOR INDEXING
;;INDEX TO TABLE
::G0 TO ROUTINE

;:MOVE THE PC DOWN
::MOVE THE PSW DOWN
;;RESTORE THE PSW

STARTING ADDRESSES OF

;*BY THE "'TRAP'' INSTRUCTION.
;

°'TRAP'' INSTRUCT]ON

''GETPRI'' MACRO

(SP),=(SP)
4(SP),2(SP)

CONTAINS THE

LOWER BYTE OF

THE

THEN USING THE

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

151
MovB
ASL
Mov
RTS

;*THIS

5817
5818

5823

$RESREG:

000022
000022
000022
000022

!3:59

THE

ROUTINES CALLED

ROUTINE

$TRPAD: .WORD
$TYPE

$TRAP2

;s CALL=TYPE

$T1YPDS

;s CALL=TYPOC
s CALL=TYPOS
:; CALL=TYPON
s CALL=TYPDS

TRAP+1(104401)

TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

TTY TYPEOUT ROUTINE
TYPE
TYPE

OCTAL
OCTAL

NUMBER
NUMBER

(WlTH LEADING ZEROS)
(NO LEADING ZEROS)

SOFT-SWR SETTING

TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WlTH SIGN)

5824

023322

022040

$GTSWR

;s CALL=GTSWR

TRAP+6(104406)

GET

5826

023324
023326
023330
023332

021750
022312
022402
023156

$CKSWR
SRDCHR
SROLIN
$SAVREG

;s CALL=CKSWR
; ; CALL=RDCHR
;;CALL=RDLIN
;;CALL=SAVREG

TRAP+7(104407)
TRAP+10(104410)
TRAP«11(104411)
TRAP+12(1064412)

TEST FOR CHANGE IN SOFT-SWR
TTy TYPEIN (HARACTER ROUTINE

5825

5827
5828
5829

TTY TYPEIN STRING ROUTINE
SAVE RO-RS ROUTINE

MACYY1
CIRJAD RPO4/S5/6 MECHANICAL AND READ/WRITE TEST
TRAP TABLE
CIRJAD P11
28-MAR-79 11:28

5830
5831
5832
5833
5834
5835
5836
5837
5838
5839

5840
5841
5842
5843
5844
5845
5846
5847
5848
5849
5850
5851
5852
5853
5854
5855
5856

5857
5858
5859
5860
5861
5862
5863
5864
5865
5866
5867
5868
5869
5870
5871
5872
5873
5874
5875
5876
5877
5878
5879
5880
5881
5882
5883
5884
5885

023334

023214

30A(1052)

K
9
24-MAY=79

SRESREG ;;CALL=RESKEG
LSBTTL

13:59

PAGE

TRAP+13¢104413)

118

SEQ 0114

RESTORE RO-RS ROUTINE

SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE

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

:*THIS ROUTINE WILL CONVERT A 16-B1T UNSIGNED BINARY NUMBER TO AN
s*UNSIGNED DECIMAL ASCIZ NUMBER.
;v CALL
i
MOV
NUMBER ,~-(SP)
::PUT BINARY NUMBER ON THE
.t
JSR
PC.a#%582D
;. CALL

02333¢
023344
02335C
023354
023360
023364
023366

016637
012746
004737
062716
012666
000207
000000

000002
023366
023372
000005
000002

023366

RETURN

$S82D:

MOv

2(SP),1$%

::SAVE BINARY NUMBER

JSR

PC.,a#8DB2D

;. CALL DOUBLE LENGTH CONVERT

MOV

ADD
MOV

000000

1%:

RTS
LWORD

.SBITL

DOUBLE

;sADDRESS OF

#1%,-(SP)

¥5,(SP)
(SP)+,2(5P)
PC
0,0

LENGTH BINARY

;:SET

THE

1ST

ASCIZ

STACK
(HMAR.IS ON THE

POINTER

;;ONLY ALLOW FIVE
;;PICKUP POINTER

CHARACTERS

;s RETURN

TO DECIMAL ASCI]

CONVERT

ROUTINE

;'."'"""""""""'Q."."'t"'t"l"t'.'l".l.'."'..'!."

;;YH]S ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED
;*DECIMAL

(ASCII]) NUMBER. THE SIGN OF

;*POSITIVE.

v CALL
B

MOV

RE TURN

023372
023374
023400
023406
023410
023412
023414
023422
023426
023432
023434

023436
023440
023442
023444
023446
023450
023452
023454
023456
023460
023464

$DB2D:

000002
023552
000002

000012
023502
023504

JSR

SAVREG

1%:

2%:

110320

3%:

000060

;s THE

TO LOW WORD OfF

FIRST

ADDRESS OF

;.15 ON THE STACK

BINARY NUMBER

ASCI?

;:SAVE REGISTERS

2(SP),R?2
#$DECVL RO

MOV
MOV
MOov
(LR
SUB
SB(

#10.,6%
#SINPWR ,RG
#STINPWR+?2,RS
R3
(R&) ,R1
R2

::SEY UP 10 DO 10 CONVERSIONS
;s ADDRESS Of TEN POWER

:;BR IF TEN POWER TO LARGE
;:ADD 1 T0 PARTIAL
;.L00P
::RESTORE SUBTRACTED VALUE

SUB

005203
000772
062401
005502
062402
022525
052703

;;POINTER

MOV
MOV

MOV
MOV
MOV

023470

#PNTR,-(SP)

PC.a#8D8B2D

THE BINARY NUMBER MUST BE

BLT
INC
BR
ADD

RO,2(SP)
(R2)+,R1
(R2)¢+,R2

(RS),R?

R3
2%
(R4)+ R

ADC
ADD
(mp

R?
(R4G)+ ,R?2
(RS)+,(RS)e

MovBe

R3,(RO)

81S

#'0,R3.

;:PICKUP THE DATA POINTER
::GEYT ADDRESS OF "'SDECVL'® STRING

;:PUYT ADDRESS OF ASCI2 STRING ON STAC(K
::P1CKUP THE BINARY NUMBER

::CLEAR PARTIAL

::SUBTRACT

TEN POWER

::MOVE

TO NEXT

JoSAVE

TEN POwER

;s CMANGE PARTIAL

TO ASCI]

STA(CK

CIRJAD RPOG/5/6 MECHANICAL AND READ/WRITE TEST
MACYYY 30A(1052)
24-MAY-79
13:59
PAGE 119
CIRJAD.PIY
28-MAR-79 11:28
COUBLE LENGTH BINARY TO DECIMAL A>CI1 CONVERT ROUTINE

5886
5887
5888
5889
5890
5891
5892
5893
5894
5895
5896
5897
5898
5899
5900
5901
5902
5903
5904
5905
5906
5907
5908
5909
5910
5911
9912
5913
95914
5915
5916
5917
5918
5919
9920
5921
5922
5923
5924
5925
5926
5927
5928
5929
5930
5931
5932
5933
95934
59135
95936

5937
5938
5939
95940
5041

023466
023470
023472
023674
023476
023500
023502
023504
023506
023510
023512
023514
023516

023520
023522
023524
023526
023530
023532
023534
023536
023540
023542
023544
023546
023550
023552

005327
000000
001357

105020
104613

000207

145000

$INPUR:

035632

160400

002765

. :DONE?

(PC)e

DEC

.WORD
BNE
(LRB

RESREG
R1S

145000
35632
160400

0
1%
(RO)+

.:BR

::1.0€09
;.1.0e08

::1.0e07

113200

000230
041100
000017
103240
000001
023420
000000
001750
000000
000144
000000
000012
000000
000001
000000
000014

:; TERMINATOR
..:E?bg:f REGISTERS

2765

113200

SEQ 0115

.. 1.0E06
.. 1.0€05
.:1.0€04

::1.0e03
;. 1.08C2

;1,080
::1.0E00
$OECVL:

.BLKB

12.

.S81TL

TYPE

NUMERICAL

s RESERVE STORAGE FOR ASC]Z STRING
ASCIZ

STRING SUPPRESS LEADING ZEROS

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

'THIS ROUTINE

1S USED

;*LEADING NUMBERS.
:'(ALL
o
;t

023566

023570
023574
023576
023600
023604
023606
023610
023614
023616
023620
023622
023624

010046
016600

105710

001403
122720

001773
005300
010037
104401

000000
012600
012616
000207

000004

$SUPRS:
1¢:

000060

023616

2%:

3%:

AN ASCIZ NUMBER

SUPPRESSING

MoV

#NUMADR
, - (SP)

;sFIRST ADDRESS OF

MOV
MOV
118

RO,-(SP)
4&(SP),RO
(RO)

;:SAVE RO

JSR

BEQ
(MPB

BEQ
DEC

MOV

TYPE

.WORD
Mov
MOV
RTS

.SBTTL

1O TYPE

PC.afsSUPRS

2%
#'0,(RO)*
1%
RO
RO,3%

0
(SP)+ RO

(SP)+, (SP)

TwE

ASCIZ STRING

::PI1(KUP THE POINTER

;s TERMINATEOR?

;:BR IF

YES

;:BR IF

YES

;1S THIS AN ASCID 0" ?

; ;BACKUP BY "1
;:SAVE FOR TYPING
;:G0 TYPE
::ASCIZ POINTER GOES HERE
;:RESTORE RO
;sRESTORE
;:RETURN

THE

STA(K

RANDOM NUMBER GENERATOR ROUTINE

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

;*TH]S ROUTINE

IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR

n9
264-MAY-79

CIRJAD RPOL/S5/6 MECHANICAL AND READ/WRITE TEST
MACYTT 30A(1052)
RANDOM NUMBER GENERATOR ROUTINE
28-MAR-79 11:28

CIRJAD.PYY

5997

SEQ 0116

JSR

PC,SRAND

:;CALL THE ROUTINE
;;RETURN HERE THE RANDOM
;;NUMBER WILL BE IN
;s SHINUM, SLONUM

Mov
Mov
Mov
Mov
MOv
Mov
ASL
ROL
INC

RO,-(SP)
R1,-(SP)
RZ,-(SP)
$LONUM, RO

;;PUSH RO ON STA(K
;:PUSH RT ON STACK
::PUSH RZ ON STA(K
;:SET RO WITH LOW

#-7,R2

;oSET

RETURN

$RAND:

023726
023724
177771

1%:

BNE
ADD

023726

023724
001057

0474601
023726
023724

$SHINUM:
$LONUM:

.SBTTL

.WORD
.WORD

RO
R1
R2
1%
$LONUM,RO
R1

SHINUM, R
#1057,R0
R1

#476401,RY

RO, SLONUM
R1,SHINUM
(SPY+ ,R?
(SP)+ R

(SP)+,RO

PC
176543
123456

::SET RY1 WITH MIGH
SHIFT

COUNT

; ;PROPOGATE

CARRY

2:SHIFT RO LEFT AND
:;ROTATE CARRY INTO R1 AND
:;CHECK FOR DONE
:;CONTINUE SHIFT LOOP
::ADD NUMBER TO MAKE X 129
::;ADD NUMBER TO MAKE
;:ADD LOW CONSTANT
; ;PROPOGATE CARRY

129

;:ADD HIGH CONSTANT
;:SAVE RO
::SAVE R
::POP STACK
;;POP STACK

::POP STACK

;;RETURN

INTO R?
INTO R1

INTO RO

INTEGER DIVIDE ROUTINE

::"t.""""tl""'""I"""'I"""'t".l.".t'.'t'l"'t'ttt

;*THIS ROUTINE WILL DIVIDE A 32-BIT TWO'S COMPLEMENT INTEGER
;*DIVIDEND BY A 16-BIT TWO'S COMPLEMENT INTEGER DIVISOR GIVING
;%A 16-B11 TWO'S COMPLEMENT INTEGER QUOTIENT AND A 16-BJT REMAINDER.
;*DIVISION WILL BE PERFORMED SO THAT THE REMAINDER 1S OF THE

TN
EIE TR
T

2
B
%
R

;*SAVE SIGN AS
seCALL:
i
Mov
MoV
Mov

JSR

RETURN
llV.l=O
llvll:1

THE DIVIDEND.

LOW DIVIDEND,-(SP)

;;THE HIGH DiVIDEND MUST BE

HIGH DIVIDEND,-(5P);
DIVISOR,-(SP)
PC,9D1V

AS LARGE

AS THE

DIVISOR

1/2

:;QUOTIENT & REMAINDER ARE ON THE STACK

IMPLIES NO ERROR
IMPLIES ERROR OCCURRED
“C"'=0
DIVIDE OVERFLOW OCCURRED

“C''=1

ATTEMPTED 1O DIVIDE BY ZERO

123456

ADC
ADD
ADD
AD(
ADD
MoV
Mov
MOV
MOV
Mov
RTS

$HINUM, R

023626
023626
023630
023632
023634
023640
023644
023650
023652
02365¢
023656
023660
023664
023666
023672
023676
023700
023704
023710
023714
023716
023720
023722
023724
023726

5971
5972
5973
5974
5975
5976
5977
5978
5979
5980
5981
5982
5983
5084
5985
5986
5987
5988
5989
5990
5991
5992
5993
5994
5995
5996

120

NO ERROR

OVERFLOW

DIVIDE

REMAINDER

ALt

ALL

5970

PAGE

;*WITH A RANGE OF 0 TO 2(+33)-1,

seCALL:

5942
9943
95944
5945
5946
5947
5948
5949
5950
5951
5952
5953
5954
5955
5956
5957
5958
5959
5960
5961
5962
5963
5964
5965
5966
5967
5968
5969

13:59

ZEROS

ONES

ZERO

CIRJAD RPOL/5/6 MECHANICAL AND READ/WRITE TEST
MACY1Y1 30A(1052)
CIRJAD P
28-MAR-79 11:28
INTEGER DIVIDE ROUTINE

5998
5999
6000
6001
6002
6003
6004
6005
6006
6007
6008
6009
6010
6011
6012
6013
6014
6015
6016
6017
6018
6019
6020
6021
6022
6023
6024
6025

6026
6027

6028
0029
6030
6031
6032
6033
6034
6035
6036
6037
6038
6039
6040
6041
6042
6043
6044
6045
60466

6047
6048
6049
6050
6051
6052
6053

023730

023730
023732
023736
023740
023742
0237464
023746
023750
023754
023760
023764
023766
023772
023774
023776
024000
024004
024006
024010
024016
024022
026024
024030
024032
024034

024036
0246040

0246042
024044
024046
024050
024052
024054
024050
024000
024062
024066
024072
024074
024076
024100
024102
024104
024106
026112
024114
0264116

024120
0246122
024126
026132
026134
024136

1064400

042716
010046
010146
010246
010346
005046
012746
016601
016600

100005
105366
005400
005401
005600
016602
002407

003011
052766
012700
000424
005266
000401

$D1v:

000017

mov
mov
MOv
mov
CLR
Mov
Mov
MoV

000021
000024
000022

BPL
DECB

000003

NEG
NEG

000020

000003

177777

1%:

000014
2%:

000002

1%:

005402
000261

000405
006100
010003
060203

5%:

103001

010300
006101
005316
001370
005701
100005

052766
005000
010001
005726
005716
002004
005400
105066

005316
005726
001401
005401
610166
010066
012603
012602
012601

6%:

000002

TRAP

8IC

000014
7%:

8%:

SB(C

Mov

8L
BGT
BIS

9%:

000020
000016

10%:

121

Seq 0117

#17,(SP)

;;PUSH OLD P35« ARD PC ON STACK
;:STRIP AWAY CONDITiGwn CODES
;;PUSH RO ON STA(CK

RO, =(SP)
R1,-(SP)
R2,=(SP)
R3,-(SP)
=(SP)
#7.,-(SP)
24(SP)
R
22(SP) RO

1%
3(SP)

RO
R1

20(SP) ,R2

2%
3%
#3,14(5P)

INC
BR
NEG

2(SP)
3
R2

ZEROS

::PUSH R1

ALL

ONES

ON STACK

;sPUSH R2 ON STACK
;;PUSH R3 ON STACK
::SAVE A PLACE FOR SIGNS
;:SETUP THE ITERATION COUNTER
;;PICKUP THE DIVIDEND
:;CHECK THE SIGN
;;KEEP TRACK OF THE SIGN
;:AND NEGATE THE ORIGINAL
; : NUMBER
;:P1CXUP THE DIVISOR

;s CHECK

THE

SIGN

;:DIVISOR OF 0 IS A NO=-NO

:;SE‘

OIVCC

"'C

;:SET REMAINDER TO ALL ONES
JEXIT
;:KEEP TRACK OF DIVISORS SIGN

:;NEGATE THE ORIGINAL NUMBER
;s CLEAR '°C*'

ROL

B8CC

::START FORMING QUOTIENT
::POSITION MSB'S
;. COPY
:;COMPARE DIVIDEND & DIVISOR
::BR IF DIVIDEND > DIVISOR

(SP)

;;QUOTIENT BIT ENTERS HERE
; ;DONE?

Mov
ADD

Mov
ROL
DEC

BNE
1587
BPL
8IS
(LR

Mov

1S7T
1S7

BGE
000001

PAGE

ALL

f-1,R0

(LC

13:59

QUOTIENT

MOV

B8R

26-MAY-79

NEG
(LRB
DEC
TST

BEQ

NEG

MOv
MOV
MOv
MOV
mov

RO,R3
R2,R3

R3,RO
R1

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

(SP)+

(SP)

RO
1(SP)
(SP)

(SP)+

10%

R1,20(SP)
RO,16(SP)
(SP)+,R3
(SP)+ ,R2
(SP)+,R1

; ;REMAINDER

;:BR

AFTER

THIS

LOOP

JF NO

: ;OVERFLOW?
;:BR IF NO

;2SET "'v'' IN RETURN STATUS WORD
;.SET REMAINDER 1O ALL ZEROS
;;COPY REMAINDER INTO QUOTIENT
;:CLEAR COUNTER FROM STACK
; ;REMAINDER SIGN CORRECTION NEEDED?
::BR IF NO
; NEGATE REMAINDER
;:CLEAR SIGN
;:BUT DON'T FORGET QUOTIENT
:;QUOT]IENT SIGN CORRECTION NEEDED?
::BR IF NO
; sNEGATE QUOTIENT
:;RETURN QUOTIENT AND
¢ ;REMAINDER TO USER
;;POP STACK
;;POP STACK

INTO R3
INTO R?

:;POP STACK [NTO R!

CIRJAD RPO4/S/6 MECHANICAL AND READ/WRITE TEST
MACY11 30AC1052)
CIRJAD P
28-MAR-79 11:28
INTEGER DIVIDE ROUTINE

6054
6055
6056
6057
6058
6059
6060
6061
6062
6063
6064
6065
6066
6067
6068
6069
6070
6071
6072
6073
6074
6075
6076
6077
6078
6079
6080
6081
6082

026140
024142
024146

012600
012666
000002

Mov
MoV
RT1

000002
.SBTTL

6105
6106
6107
6108
6109

(SP)+ RO
(SP)+,2(SP)

13:59

PAGE

122

Sea@ 0118

;:POP STACK INTO RO
::;E}U: 10 RETURN CONDITION CODES
s s RETURN

+++ PROGRAM SUBROUTINES e+

;SET "'LPTAVL'' TO THE PROPER STATE.
; LPTAVL = 0 IFf NO LINE PRINTER AVAILABLE
: LPTAVL = 1 [IF LINE PRINTER IS AVAILABLE

s CALL

024150
024154
0246162
026166
026172
024176
024200
026202
024210

005037
012737
005037
005777
005237
000401
022626
012737
000207

001220
0246200
000006
155226
001230
000006

000004

LP.AVL:

19:

2%:

JSR

PC,a#LP.AVL

CLR

SFLPTAVL

;START WITH NO PRINTER AVAIABLE

CLR
TS7
INC
BR
(mp

GNERRVEC+?2
aLPS
g:LP1AVL

;1S THERE A LINE PRINTER?
sYES==SET AVAILABLE SWIT(H

RETURN

MOV

Mov
RTS

#1$ ,3FERRVEC

AND IF

;SETUP THE

TIMEOUT

VECTOR

(SP)+,(SP)+
+NO--POP STACK
#ERRVEC+2 ,@#ERRVEC ;RESTORE TIMEOUT
PC
;RETURN

:THIS ROUTINE WILL

DETERMINE

THERE

CLOCK

VECTOR

THE

SYSTEM

VECTOR

THERE 1S IT WILL SETUP THE VECTOR AND START THE CLOCK
;U'CLKSTATM WILL INDICATE THE CLOCK TYPE
. 0= NO CLOCK

s41= KWll-p
=1z KWll-=L

;THIS ROUTINE WILL ALSO SETUP "'TICKMS'' (TIME

6083

6084
6085
6086
6087
6088
6089
6090
6091
6092
6093
6094
6095
6096
6097
6098
6099
6100
6101
6102
6103
6104

8 10

24-MAY-79

;PER CLOCK TICK IN MILLISECONDS) AND ‘''TICKUS''
;(TIME PER CLOCK TICK IN MICROSECONDS) AS

;PER SW00.
;SW00=0 -- 60HZ
;SW00=1 == 50HZ

; CALL

024212
024214
024220
024222
024224
024226
024232

024236
024242
024250
024254
024256
024260
024264
024270
024276
024302

000006

.
;

JSR
RETURN

PC,a#ST.CLK

ST.CLK:

MOV

R1,-(SP)
YERRVEC+2,R1
(R1),-(SP)
(R1)
-(R1),-(SP)
#1%,(R1)
CLKSTA

;SAVE R1
;SAVE AND SETUP TIMEOQUT

#1,CLKSTA

sYES=-=-SET

CLR
MOV
MOV

024256

CLR

1S1
MOV

001244
1%:

001244

000401

MoV
Mov

JSR
BR
CMP

MOV

15T
Mov
JSR
BR

aPKC(CS

PC,ST.PCLK
3%

(SP)+,(SP)+

¥#2%,(R1)
aLKS

#-1,CLKSTA

PC,ST.LCLK
3%

sLEVEL 0
;GO0 TO

;SET

1% ON TIMEQUT

CLOCK STATUS TO NO CLOCK

;1S THERE A xWll1-p?

STATUS T0 KWwll-P

:START THE KW11-P
;60 TO EXIT
sCLEAN UP THE

;1F

STAC(K

TIMEOUT GO TO 2%

;1S THERE A KWll-L?
:YES== SET

STATUS

START THE KWwli-L
JEXLT

T0 kWll-L

¢ 10

024304
024306
024310
024312
026314
024322
026324
024332
026340
026342
024350
024356

022626
012621
012621
012601
032737
001407
012737
012737
000406
012737

024360
024360
024366
024370
024376
024404
024412

2%:
1%

032737
001011
012777
012777
012777
000207

024456
024462
024466

013746
004737
000002

#20,3#T1CKMS

;SETUP TIME

MOV

000016
040432

001246
001250

000040

001220

024456
000300
000001
000115

154776
154772
154770
154760
1%:

024422
024422
026430
024432
024440
024446
024454

:RESTORE R1
:S0HZ OR 60M2?

001246

ST.PCLK:

000040

001220

024456
000300
000100

1564746
154742
154736

0012406
061102

ST.LCLK:

1%:

SRVCLK:

(SP)+,(R1)¢

BEQ

'8 9

ggv

ggoooo..aarncxus :T1CK FOR SOMZ

:BRANCH IF 60

PER

MOV
MOV

#16,afT1CKNS
;SETUP TIME PER
#16666.,88T1CKUS ;TICK FOR 60MHZ

:RETURN

BIT

#5W0S,a#C.SWR

sALLOW SOF TWARE TIMEOUTS?

RTS

BNE
MOV
MOV
MOV
Mov

1%
#SRVCLK ,8PKV
#300,aPkv+?
#1,3PKB
#115,9PKCS

RTS

BIT

#SWO5,a#C.SWR

BNE
MOV
MOV
MOV

:NO--BRANCH
;SETUP THE kwi1=-P VE(CTOR
:COUNT ONE

TICK

S'INT.EN.'',COUNT DOWN'', 'MODE

:'LINE FREQ'', AND ''RUN"

;ALLOW SOF TWARE

RTS

MOV
JSR
RTI

ON¥TICKMS,~-(SP)
PC,a#RPTMR

:TIME PER TICK IN MILLISECONDS
;COUNT THE ELASPED TIME
;RETURN AFTER INTERRUPT

:START

:RETURN

THE KWll=L

PARAMETER VALUES WHEN THE

:STARTED OR WHEN THE VALUE OFf BITOO IN 'C.SWR'

146

176777
000001
001664
002330

001234
001236

003504
003104

PC,LODFLY

MOV
MOV
MOV
Moy
MOV

RO,-(SP)
:sPUSH RO ON STACK
R1,-(SP)
;;PUSH RY ON STACK
R2,-(SP)
:sPUSH R2 ON STACK
R3,-(SP)
;:PUSH R3 ON STACK
#176777,TSTNMS ; SELECT TESTS 0-10,

MOV
MoV
MOV
MOV
CMp
BLO
MCV
MOV

#DFLT,RO
#PRMO, R
R1,R?
(RO)+,(R1)+
RO,R2
1%
#PAT8,RO
#PATO,R1

#1,TSTNMS+?2

PROGRAM

IS CHANGED.

JSR
RETURN

MOV

1%:

—

246
346

d ed b D
h e ed
—d b

LODFLT:

NNNOO
= ~N~NN

024534
024540

- e CON) =

024470
024470
024472
024474
026476
024500
024506
024514
024520
026524
024526
024530
024532

NARLWONNONINDMNIINOOOO

;
:

(REPEAT)'’,

TIMEQUTS?

;NO=-=-BRANCH
JSETUP THo KW1l1-L VECIOR

SETS UP DEFAULT

sRETURN

1%
#SRVCLK ,dLKV
#300,aLKv¢+2
#100,aLKS

:THIS ROUTINE
s CALL

SEQ 0119

(SP)+,R1
#SW06,a#C.SUR

MoV

000020
047040

5¢%:

123

:CLEAN UP THE STA(CK
:RESTORE THE TIMEQUT VECTOR

MoV
BI7

PAGE

(SP)+,(SP)+
(SP)+, (R1)¢

001220

001250

13:59

cme
MoV

000100

026420

[e]eP
delololelelolololelole)

POR) =D

b e

d ek

—=OVO~NO
VS

CIRJAD RP0&/5/6 MECHAN]CAL AND READ/WRITE TEST
MACYI1 30A(1052)
24-MAY-79
CIRJAD P
28-MAR-79 11:28
t*+ PROGRAM SUBROUTINES we+

12-17

sSET SELECT BIT FOR TEST 20

;DEFAULT PARAMETERS POINTER
;TABLE POINTER
:STOP ADDRESS
:MOVE DEFAULT PARAMETERS INTQ
;RUN TIME TABLES +*~ DONE?
:NO--BRAN(H
;PATO DEFAULTS TO PATTERN 8

010

MACY1Y 30A(1052)
24-MAY-79
CIRJAD RPOL/S5/6 MECHANICAL AND READ/WRITE TEST
CIRJAD PN
28-MAR-79 11:28
ter PROGRAM SUBROUTINES #ee
6166

6167
6168
6169
6170
6171
6172
6173
6174
6175
6176
6177
6178
6179
6180
6181
6182

6183
6184
6185
6186
6187
6188
6189
6190
6191
6192
6193
6194

6195
6196
6197
6198
6199
6200
6201
6202
6203
6204
6205
6206
6207
6208
6209
6210
6211
6212
6213
6214
6215
6216

6217
6218
6219
6220
6221

026544
024546
024552
026554
026562
024564
026572
024600

012021

024606
024610
024616

026624
024632
026636
026640
024642

024714
024716
024720
024722
024724

000001

001220

000025
000025
165000

001630
001632
001352

000023
000023
166000
001536

001630
001632
001352

MOv
Mov
Mov

3%:
4%:
5¢:

000002

6%:
7%:

001630
8%:

012603
012602
012601
012600
000207

Mov
Mov
Mov
Mov
187
BEQ

Mov
MOv
MOv
ASR
BCC
ADD
DEC

BNE

187
cMpP
BLOS
MOV

001630

C00751

BIT
BEQ

177776

000013

MoV
cMP
BLO

BIT
BNE

002000

024646
024650
024654
024656
024662
0246664
026666
024672

0246674
024676
024700
024704
024706
024712
024714

2%:

003544

BR
Mov
Mov
Mov
MoV

RTS

13:59

PAGE

124

SEQ 0120

(RO)
¢+, (R1)+

RO,#PATY

;16 BIT MODE ?
;BR IF 18
#21. ,PRALAT+2?
JSET 'FS' LIMIT T0 21.
#21, ,PRMLMT+24
JSET LS LIMIT TO 21.
#-<256.22.>,TRCKW(C
:WORD COUNT FOR A 16 BIT
#B1T00,C.SwR

TRA(CK

43
: CONTINUE
#19. ,PRMLAT+22
sSET "FS® LIMIT 10 19,
#19. ,PRMLMT+24
SSET 'LS' LIMIT T0 19,
#-<256.+20.>, TRCKWC
:WORD COUNT FOR COUNT FOR AN 18 BIT
#PRMPT ,R1
;ADDRESS OF PARAMETER POINTER TABLE
(R1)
sEND OF THE TABLE ?

:BR IF END

-2(R1) ,R2

;PARAMETER TABLE ADDRESS
;PARAMETER ALLOCATION BITS

#BIT10,a(R1)+
5%

(R2),=(SP)
#1.,R3
(SP)
7%
¥2,R2

R3
6%

(SP)+

é:Z),PRHLHT*ZZ
PRMLMT+22,(R2)
5%

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

TRA(K

;LS SELECTED ?
:BR IF NOT

;NUMBER OF

PARAMETERS

(MAXIMUM)

BEFORE

‘LS’

: COUNT THE PARAMETER
;:BR IF NOT USED
s INCREMENT THE PARAMETER TABLE ADDRESS
; COUNT THE PARAMETER
;BR IF NOT THERE YET
;CORRECT THE STACK POINTER
;1S 'LS' TOO LARGE FOR THE MODE SELECTED ?
:BR 1F NOT
;RESET VALUE FOR MODE USED
. CONTINUE

;;POP STACK INTO R3

;:POP STALK

INTO RZ

;;POP STACK INTO R
:.POP STACK INTO RO
:RETURN

;THIS ROUTINE FILLS THE PARAMETER TABLE THE CURRENT TEST.
s CALL

MOV

024726
024726
024730
024732
024734
024736
024740
024744
024746
024752
024756
024760
024764

LODPRM:

001102

001536
001504
001254

#TESTNUM,STSTNM

JSR
RETURN

PC.LODPRM

Mov
MOov
Mov
Mov

R1,-(SP)
R2,=(SP)
R3,=-(SP)
R4,=(SP)
R&
$TSTNM,
RS

(LR

MOVB
ASL
MOV
MOV
CLR
Mov
MOV

PRMPT (R4) ,R1
#PRM,R2
R3
R4
CHKDRV,
(R1)+,(R2)+¢

;LOAD THE TEST NUMBER

:;PUSH RY

ON STACK

:;PUSH R2 ON STA(K
;sPUSH R3 ON STACK
;sPUSH R4 ON STACK

;CLEAR R4
;GET THE TEST NUMBER
;SETUP TO ADDRESS WORDS

;GET THE TEST'S PARAMETER TABLE ADDRESS
;PARAMETER EXECUT]ON TABLE
:R3 1S USED AS A COUNTER
;DRIVE'S ADDRESS
;PARAMETER

SPECIFIER

—m
———

E 10

MACY11 30A(1052)
24-MAY-79
CIRJAD RPO4/S/76 MECHANICAL AND READ/WRITE TEST
CIRJAD P11
28-MAR-79 11:28
vee PROGRAM SUBROUTINES ee+

6222
6223
6224
6225
6226
6227
6228
6229
6230
6231
6232
6233
6234
6235
6236
6237
6238
6239
6240
6241
6242
6243
6244
6245
6246
6247
62468
6249
6250

6251

024766
026772
026774
024776
025000
025002
0250064
025010
025012
025016
025020
025026
025030
025034
025040
025042
025046
025052
025054
025060
025062
025064
025070
025072
025072
025074
025076
025100
025102

103002

012122
000401
005022
005203
020327
001430
020327
001363
132764

001016
062703
006237
103002

062701
006237
103345
062701
000742
000741
162702
000736

001504

18:

2%:
3%:

000014
000003

000004

034514

000002
001504
4%:

000002

000004

5%:
.

012604
012603
012602
012601
000207

125

ASR

PRM

:THIS PARAMETER USED

;s CONTINUE

BCC
MOV

2%
(R1)+,(R2)+

CLR
INC
]
BEQ
(mp
BNE
B118
BNE
ADD

;BR IF NOT
:LOAD THE VALUE

SEQ 0121
IN THE

TEST

(R2)+
:CLEAR THE UNUSED PARAMETER LOCATION
R3
:COUNT THE POSITION IN THE QUTPUT TABLE
R3,#12.
sFINISHED ?
6%
;BR IF YES
R3,#3
;DOING THE CYLINDER ADDRESSES ?
1%
;BR IF NOT
#BIT02,DRVTIYP(RG)
;RPO6 ?
5%
:BROIF IT 1S
#2,R3
:COUNT THE BYPASSED PARAMETERS (FC' & LC*)

ASR

000002
001504

PAGE

PRM

;SHIFT

THE

sBR IF

ASR

PRM

;COUNT

ADD
BR
BR
SUB
BR

"2 ,R1
1%
1%
"o ,R?
1%

;MOVE THE INPUT PINTER
;KEEP GOING
;KEEP GOING
;BACKUP THE OUTPUT POINTER
;KEEP GOING

MoV

(SP)+ R4

;;POP STACK

MoV

(SP)+ ,R?2

;;POP STACK INTO RZ2

ADD

"2 ,R1

BCC

MOV

(SP)+,R3

MOV

(SP)+ ,R1

RTS

FC'

COUNTER

BCC

;MOVE

THE

;BR IF

LC'

THE

IS NOT USED

INPUT POINTER

;:POP STACK
;;POP STACK
;RETURN

PARAMETER

NOT USED

INTO R4

INTO R3
INTO R}

;THIS ROUTINE LCADS A READ HEADER AND DATA COMMAND OR A SEEXK CCMMAND

6252
6253
6254
6255
6256
6257
6258
6259
6260
6261
6262
6263
6264
6265
6266
6267
6268
6269
6270
6271

6272
6273
6274
6275
6276
6277

006237

13:59

;INTO DPB.B+2 AND DPB.C+2, DEPENDING ON THE STATE OF ''CONTROL SWITCH"
;B17107.
:CALL

032737
001007
012737
012737
000406
012737
012737
000207

000200

001220

000173
000173

004126
004146

000105
000105

004126
004146

:
:

JSR
RETURN

PC.,anLDCMD

LDCMD:

BIT

#SWO7,3#C.SWR

1%:
2%:

BNE
MOV
MOV

;D0 EXPLICIT SEEKS?

1%
;s YES--BRANCH
NREADHD ,a#DPB.B+2 ;NO-=-SET UP FOR READ HEADER AND
ngADHD,OIDPB.C‘Z ;DATA COMMAND

MOV
MOV
RTS

#SEEX ,#DPB.B+2 ;SETUP FOR SEEK (OMMAND
#SEEK,anDPB.(+¢2
P(

;THIS ROUTINE WILL CALL THE RPO4/5/6 DRIVER AND THEN WAIT ON THE
;70 COMPLETE.

005037
604037
004104

001206
035450

AN ERROR OCCURS

1S REPORTED.

FILL "'DPB' WITH COMMAND INFORMATION

RETURN

JSR

RG,3#CALL.A

CALL.A:

(LR

afSESCAPE

:
025150
025154
025160

I1F

: CALL
;

JSR
DPB.A

RO,a#RPO&

;NO ESCAPE ADDRESS
;CALL

RPO4& DRIVER

FUNCTION

CIRJAD RPO4/5/6 MECHANICAL AND READ/WRITE TEST
MACY11 30A(1052)
24-MAY-79
CIRJAD P
v+ PROGRAM SUBROUTINES w#re
28-MAR-79 11:28

6278
6279
6280
6281
6282
6283
6284
6285
6286
6287
6288
6289
6290
6291
6292
6293
6294
6295
6296
6297
6298

6299
6300
6301
6302
6303
6304
6305
6306
6307
6308
6309
6310
6311
6312
6313
6314
6315
6316
6317

6318
6319
6320
6321
6322
6323
6324
6325
6326
6327
6328
6329
6330
6331
6332
6333

025162
025164
025170
02517¢
025174
025202
025210
025216
025224
025230
025234
025236
025240
025242
025244
025246
025250
025254
025260

000772
005737
001775
100032

012737
013737

113737
113737
012746

004737
062607

104041
104042
104043
104044
106045
013746
004737
000200

004122

025250
004116
0046115
004114
004122
026364

1%:

#2% ,SESCAPE
;;ESCAPE TO 2% ON ERROR
a¥DPB.A+12,a#CYL.DS ;CYLINDER
a#DPB.A+11,a#TRK.DS ; TRACK
a#DPB.A+10,a#5¢C.DS ;SECTOR
#DPB.A+16,-(SP) ;STATUS/ERROR INDICATOR ACDRESS
PC,a#ERINDX
:FORM DISPATCH INDEX

ERROR
ERROR
ERROR

41
42
43

ERROR
MOV

45
DPB.A+16,-(SP)

JSR
RTS

SEQ 0122

MOV
Mov
MovB
MOvB
MoV
JSR

ERROR

2%:

126

CALL.A
a#DPB.A+16
1%

ADD

004122
026324

PAGE

BR
157
BEQ

BPL

001206
001270
001274
001272

13:59

; DONE?
;NO--LOOP

;BRANCH 1f NO ERROR

(SP)+,PC

;REPORT

;NON-1/0 ERROR

PC,LOP.CK
RO

;SEE IF LOOP,
sRETURN

PROPER ERROR

:
;PARITY ERROR
;UNSAFE ERROR

:1/0 ERROR
;STATUS WORD

ABORT,

OR CONTINUE

;THIS ROUTINE 1S THE SAME AS ''CALL.A"" EXCEPT FOR THE DPB USED AND IF
. THE
;AND

COMMAND IS A READ HEADER AND DATA THE
SECTOR) READ IS CHECKED FOR VALIDITY.

s CALL
;

FILL DPB

JSR

RO,a#CALL.B

CLR

INSESCAPE

:NO ESCAPE

DP8.B
BR
187

CALL.B
DPB.B+16

;DONE?

sUNSAFE ERROR

;BRIF

RETURN

025262
025266
025272
025274
025276
025302
025304
025306
025314

025322
025330
025336
025342
025346
025350
025352
025354
025356
025360
025364
025366
025374
025376
025400
025404
025410
025412
025420

005037

004037

0046124
000772
005737
001775

001206
035450

CALL.B:

004142

1%:

025400
004136
004135
004134
004142
026364

001206
001270
001274
001272

JSR

177677

004220

2%:
3%:

004142
026324

001004

004126

000173

4%:

RO,a#RPO4

(CY! INDER,

TRA(K,

ADDRESS

;CALL RPO4 DRIVER

BEQ
BPL
MOV
MOV
MovB
MOvB
MOV
JSR
ADD
ERROR
ERROR

1%
;NO=--BRANCH
4%
;BRANCH JF NO ERROR
#3% ,8ESCAPE
;:ESCAPE T0 3% ON ERROR
9#DPB.B+12,9#CYL.DS ;CYLINDER
afDPB.B+11,3#TRK.DS ;TRACK
I#0PB.B+10,a#SEC.DS ;SECTOR
#DPB.B+16,-(SP) ;STATUS/ERROR INDICATOR ADDRESS
PC,afERINDX
;FORM DISPATCH INDEX
(SP)+,PC
;REPORT PROPER ERROR
41
.
42
;PARITY ERROR

ERROR
TST
BEQ
811

44
;NON-1/0 ERROR
RP.REG+RPER1
;DRIVE ERROR ?
2%
sBR IF NOT
#*C100,RP.REG+RPERY
;SEE IF ONLY

ERROR

004220

HEADER

BEQ

ERROR
MOV
JSR
BR
(MPB

BNE

45
DPB.B+16,-(SP)

:1/0 ERROR
;STATUS WORD

°'HCE'

SET

PC,LOP.CK
SEE IF LOOP, ABORT, OR CONTINUE
5%
JCHECK FOR STALL
a#DPB.B+2,#READHD ;DOING IMPLIED SEEKS?

;sNO=-=BRAN(H

CIRJAD RPO4/5/6 MECHANICAL AND
CIRJAD P
28-MAR-79 11:28

6336
6335
6336
6337
6338
6339
6340
6361
6342
6343
6344
6345
6346

6347
6348
6349
6350
6351
6352

6353
6354
6355
6356
6357
6358
6359
6360
6361
6362
6363
6364
6365
6366
6367
6368
6369
6370
6371
6372
6373
6374
6375
6376
6377
6378
6379
6380
6381
6382
6383
6384
6385
6386
6387
6388
6389

025422
025426
025430
025432
025440
025442
025446
025450

004037
004134
000407
032737
001403
004037
001354
000200

READ/WRITE TEST

001220

5%:

026502
6%:

;YES--60 CHECK THE DATA

;ERROR DURING VERIFY

JSR
WORD

RO, @#STALL
STALLI

;YES=-=CALL STALL ROUTINE
;STALL TIME POINTER

#SW14,aNC.SWR
6%

Bl
BtQ

RTS

CALL.C:

RO,a#CALL.C

CLR

a¥SESCAPE

CPB.C
BR
181

004162

1%:

CALL.C
S#DPB.C+16

012737
013737
113737
113737
012746
004737
062607
104041
104042
104043

025570
006156
004155
004154
004162
026364

005737
001404
032737
001406
104045
013746
004737
000410
123727
001004
004037

004220

100042

104044

004154
000407
032737
001403
004037
001354
000200

177677

MOov
MOvB
mMovB

mMov
JSR

2%:
3%:

000173

4%:

001220

5%:

026502
6%:

RO,a3#RPO4

1%
4%

#3%,SESCAPE

;NO ESCAPE ADDRESS

:CALL RPO& DRIVER
:DONE?

;NO--LOOP
;YES--BRANCH IF NO ERROR

:;ESCAPE TO 3% ON ERROR

af0PB.C+12,a#CYL.DS ;CYLINDER
afDPB.C+11,a#TRK.DS ; TRACK
afDPB.C+10,a#SEC.DS ;SECTOR

;STATUS/ERROR INDICATOR ADDRESS
;FORM DISPATCH INDEX

ERROR
ERROR
ERROR
ERROR
181
BtQ

41
42
43
44
RP.REG+RPER!
2%

:
;PARITY ERROR
;UNSAFE ERROR
;NON-1/0 ERROR
;DRIVE ERROR ?
:BR IF NOT

BEQ
ERROR
MCV

3
45
DPB.C+16,-(SP)

;BR IF IT IS
:1/0 ERROR
;STATUS WORD

BIT

004220

;RETURN

#DPB.C+16,-(SP)
PC,aNERINDX

ADD

026644

040000

BEQ
BPL

MOV

001206
001270
001274
001272

004162
026324
004146

JSR

;STALL?
;NO-=BRANCH

1S THE SAME AS '"CALL.B'' EXCEPT FOR THE DPB USED.

JSR

RETURN

001206
035450

PAGE 127

RO,O#VERIFY

FILL DPB

005037
004037
004144
000772
005737
001775

13:59

JSR

DPB.B+10

;THIS ROUTINE
s CALL

025452
025456
025462
025464
025466
025472
025474
025476
025504
025512
025520
025526
025532
025536
025540
025542
025544
025546
025550
025554
025556
025564
025566
025570
025574
025600
025602
025610
025612
025616
025620
025622
025630
025632
025636
025640

6 10
24-MAY-79

*++ PROGRAM SUBROUTINES wwe

026644

040000

MACY11 30A(1052)

égfl

(SP)+,PC

sREPORT PROPER ERROR

#~C100,RP.REG+RPERT

gg.LOP.CK

;SEE IF ONLY "HCE' SET

;SEE IF LOOP, ABORT, OR CONTINUE

#DPB.C+2,#READHD ;DOING IMPLIED SEEK?
(MPB
;NO=--EXI1T
5%
BNE
sYES--CHECK THE DATA
RO,I#VERIFY
JSR
DPB.C+10
;ERROR DURING VERIFY
6%
BR
;STALL?
#SW14,3#C.SWR
BIT
CH
+NC==BRAN
6%
BEQ
;YES==CALL STALL ROUTINE
RO,3#STALL
JER
éI;I(SJRD
36ALL1
;STALL TIME POINTER

;THIS ROUTINE IS THE SAME AS ''CALL.A" EXCEPT FOR THE DPB USED AND
;ON AN ERROR LOCATION "'ERR.CT'' IS EXAMINED. IF ERR.CT IS EQUAL 10
;SERFLG EXIT IS TO THE NEXTM TEST.

SEQ 0123

H10

MACY!1 30A(1052)
24=MAY-79
CZRJAD RPO4/5/6 MECHAN]ICAL AND READ/WRITE TEST
v+ PROGRAM SUBROUTINES wee
CIRJAD P11
28-MAR-79 11:28
6390
6391
6392
6393
6394
6395
6396
6397
6398
6399
6400

6401
6402
6403
6404
6405
6406
6407
6408
6409
6410
6411
6412

6413
6414

6415

6416

64617
6418
6419
6420
6421
6422

6423
6424
6425
6426
6427
6428
6429
6430
6431
6432

6433
6434
6435
6436
6437
6438
5439
6440
6441
6442
6443
6444

6645

s CALL

025642
025646
025652
025656
025660
025662
025666
025670
025672
025676
025676
025704
025712
025720
025726
025732
025736
025740
025742
025744
025746
025750
025752

025760
025762
025766
025772
026000
026002
026010
026012
026020
026022
026030
026034
026040
026042
026044
026050
026052
026054
026062
026070
026076
026104
026110
026114
026116
026120
026122
026124

005037
005037
004037
004164
000770
005737
001775
100402
000137

001206
001334
035450

DRVCAL:

004202

DRV(L1:

012737
013737
113737
113737
012746
004737
062607
104041
104042
104043
104044
104045
122737
001137
013746
004737
122737
001133
032737
001527
032777
001123
112737
005037
004037
004164
000240
005737
001775
100026
012737
013737
113737
113737

025752
004176
004175
0046174
004202
026364

012746
004737
062607
104041
104042

104043

104044

026304

000020

001206
001270
001274
001272

001102

004202
026324
000151

004166

040000

004214

000020

153120

000161
001206
035450

004166

2%:

3%:

001206
001270
001274
001272

PAGE 128

fiLL DPB
RO,3#DRVCAL
JSR
RETURN

CLR
CLR
JSR
DTADPB
BR

IVSESCAPE
SNWCEFLG
RO,a#RPO4

BEQ

DRvVCL!

Mov
Mov
MOvB
MOvB
Mov
JSR
ADD
ERROR

#2% ,SESCAPE
:;ESCAPE TO 2%
afDTADPB+12,9#CYL.DS ;CYLINDER
o#DTADPB+11,a#TRK.DS ; TRACK
a#DTADPB+10,a#SEC.DS ;SECTOR
#DTADPB+16,-(SP) ;STATUS/ERROR
;FORM DISPAT(H
PC,a#ERINDX
z?P)*,PC
:REPORT PROPER

1581

BMI
JMP

ERROR
ERROR
ERROR
ERROR
(MPB
BNE
MoV

004202

026260
004176
004175
004174
004202
026364

1%:

13:59

JSR
(MPB
BNE
BIT
BEQ
BIT
BNE
MOvB
CLR
JSR
DTADPB
NOP
1581
BEQ
BPL
Mov
Mov
MOvB
MOVB
MoV
JSR
ADD

ERROR
ERROR
ERROR
ERROR

DRVCAL

a#DTADPB+16
1%
108

Y
63
L4
45

:NO ESCAPE ADDRESS
;CLEAR WRITE C(HE(K ERROR FLAG
;CALL RPO4 DRIVER
; DONE

;NO--L00P

:BR 1f ERRORS
:NO ERRORS

ON ERROR

INDICATOR ADDRESS
INDEX
ERROR

;PARITY ERROR
:UNSAFE ERROR
;NON-1/0 ERROR
. 1/0 ERROR

#20,3/STSTNM
;TEST 20?
8%
:NO--BRANCH
DTADPB+16,-(SP) ;STATUS WORD
PC,LOP.CK
;SEE 1F LOOP, ABORT, OR CONTINUE
#WJRCKD,3¥#DTADPB+2 ;DOING A WRITE C(HECK?
12%
. NO--BRANCH

#BIT14,3¥#RF.REG+10 ;1S "WCE''=1?

+NO--BRANCH
12%
#5W04 ,aSWR
sINHIBIT WRITES?
12%
; YES--BRANCH
#WRITE,a#DTADPB+2 ;SETUP FOR A WRITE
ANSESCAPE
;NO ESCAPE ADDRESS
RO.a#RPO4
;DO THE WRITE

. DONE?
a#DTADPB+16
:NO--L00P
3%
;YES--BRANCH IF NO ERROR
6%
;;ESCAPE TO 8% ON ERROR
#8% ,SESCAPE
3#DTADPB+12,3#CYL.DS ;CYLINDER
a#DTADPB+11,3#TRK.DS ; TRACK
3#DTADPB+10,a#SEC.DS ;SECTOR
#DTADPB+16,-(SP) ;STATUS/ERROR INDICATOR ADDRESS
PC,ANERINDX
:FORM DISPATCH INDEX
‘REPORT PROPER ERROR
t(.?P)"PC

4?2

43
44

:PARITY ERROR

SUNSAFE ERROR
*NON-1/0 ERROR

SEQ 0124

110

MACY11 30AC1052)
24-MAY-79
CIRJAD RPO4/5/6 MECHANICAL AND READ/WRITE TEST
CIRJAD P
28-MAR-79 11:28
v«+ PROGRAM SUBROUTINES et+
6466

6447
6448
6449
6450
6451
6452
6453
6454
6455
6456
6457
6458
6459
6460
6461
6462
6463
6464

6465

64666

6467
6468
6469
6470
6471
6472
6473
€474
6475
6476
6477
6478
6479
6480
6481
6482
6483
6484
6485
6486
6487
6488
6489
6490
6491
6492
6493
6494
6495
6496
6497

6498
6499
6500
4501

026126
026130
026136
026142
026144
026146
02615¢
026154
026156
026162
026164
026166
026172
026174
026176
026204
026212
026220
026226
026234
026240
026244
026246

026250
026252
026254
026256
026260
026264
026270
026276
026300
026304
026312
026314
026320
026322

104045
112737

004037
004164
000240
005737
001775
100410

004037
004164
000240
005737
001775
100043
012737
012737
013737
113737
113737
012746
004737
062607

104061
104042
104043
104044
104046
013746

004737
123737
101002
013700
032737

001403
004037
001356
000200

000151
035450

004166

0046202

000001
026250
006176
004175
0046174
004202
026364

movB

45
;1/0 ERROR
.
#WRCKD ,3#DTADPB+2 ;(OMMAND-WRITE

5¢:

NOP
181

afDTADPB+16

69%:

004202
026324
001364

001252
040000

001334
001206
001270
001274
001272

7%:

ERROR
JSR
DTADPB

BEQ

BMl]
JSR
DTADPB
NOP
187
BEQ
BPL

Mov
Mov
MOV
MovB
MOvB
Mov

JSR

ADD

8%:

001103
001220

PAGE

4%:

035450

004202

13:59

12%:
9%:

108:

026502
11%:

ERROR
ERROR
ERROR
ERROR
ERROR

Mov

JSR
(MPB
BH1

Mov

BIT
BEQ
JSR
.WORD
RTS

RO,a3#RPO4

(HE(K DATA

;DONE?

;NO--1L0O0P

;YES--BRANCH ]F

afDTADPB+16
6%
10%

;DONE?
;:NO--LOOP
;YES--BRANCH IF

#1,9MWCEFLG

ERROR

:D0O A 2ND WRITE CHECK

;SET

THE WRITE

NO ERROR
CHECK ERROR FLAG

#8% ,3ESCAPE
;;ESCAPE TO 8% ON ERROR
o#DTADPB+12,9#CYL.DS ;CYLINDER
9#DTADPB+11 ,@#TRK.DS ; TRACK
S#DTADPB+10,a#SEC.DS ;SECTOR

#DTADPB+16,-(SP) ;STATUS/ERROR INDICATOR ADDRESS
PC,a#ERINDX
:FORM DISPAT(H INDEX
(?P)’.PC
:REPORT PROPER ERROR

;UNSAFE ERROR

;PARITY ERROR
;NON-1/0 ERROR

46
;FATAL WRITE CHECK
DTADPB+16,-(SP) ;STATUS WORD
PC,LOP.CK
:SEE IF LOOP, ABORT, OR CONTINUE
ANERR.CT,INBERFLG ;GO TO NEXT TEST?
10%
:NO--BRANCH
a#BYPASS,RO
;YES==-GET EXIT ADDRESS
#SWI4,aNC.5WR
11%

RO,3#STALL
SBALLZ
R

;STALL?
;NO--BRANCH

:YES==CALL STALL ROUTINE
:STALL TIME POINTER

;THIS SUBROUTINE CHECK FOR LOOP, ABORT, OR CONTINUE

;ERRORS &1, 42, 43, 44, 45, AND 46.
;CALL
L3

026324
026332
026334
026340
026344
026352

026354
026360
026362

032777
001402
000177
005037
232766
001402

001000

000137
012616
00C207

017502

152550
001206
072006

152606

000002

LOP.CK:
1%:

2%:

SEQ 0125

:D0 THE WRITE (HMECK

RO,a”RPO4

129

SWITCHES AFTER

MOV

DTA+16,-(SP)

;STATUS WORD FROM DPB IN USE

BIT
BEQ

#SW9 ,aSWR
1%

;LOOP ON ERROR
:BR 1F NOT

JSR
RETURN

JMP
CLR

BIT
BEQ

JMP
MOV
RIS

PC,LOP.CK

d$SLPERR

;START AT THE LOOP ADDRESS

SESCAPE
:CLEAR ERROR ESCAPE FLAG
#BIT14:BIT13.BIT12.BIT10!BIT02!BIT0V,2(SP)

;(HECK ERRCR TvyPt
DRIVE NOT OFFLINE, UNLOADED, OR

;BR IF

$EQP
(SP)+, (SP)

;TERMINATE DRIVE
;ADJUST RETURN ADDRESS

;PERSISTENT UNSAFE UR FATAL MASSBUS PARLTY

J 10

MACY11 30A(1052)
24L-MAY=-T79
CIRJAD RPO4/5/6 MECHANICAL AND READ/WRITE TEST
28-MAR-79 11:28
*++ PROGRAM SUBROUTINES ¢ee
CIRJAD. AR
6502
6503
65064
6505
6506
6507
6508
6509
6510
6511
6512
6513
6514
6515
6516
6517
6518
6519
6520
6521
6522
6523
6524
6525
6526
6527
6528
6529
6530
6531
6532
6533
6534
6535
6536
6537
6538
6539
6540
6541
6542
6543
6544
6545
6546
6547
6548
6549
6550
6551
6552

6553
6554
6555
6556
6557

13:59

PAGE '30

;THIS ROUTINE FORMS AN INDEX THAT wiLL BE USED TO DISPAT(H

;70 THE PROPER ERROR CALL.
THE INDEX IS FORMED BY EXAMINING
:THE STATUS/ERROR INDICATOR OF THE APPLICABLE DPB.

STATUS/ERROR

. INDEX

;
:
:
:
;CA
s

CALL

0
2
&
6
10

BIT14'B1T13'B1708!BIT01
BIT11!'BIT10!B1T02
BIT12!'BIT04
BITO5'BIT03!<BIT09 & COMMAND=NON-1/0>
BIT06!<BIT09 & COMMAND=1/0>
;ADDRESS OF

STATUS/ERROR INDICATOR

JSR

#DPB+16,-(SP)
PC,a#ERINDX

;FORM INDEX
;INDEX IS ON THE STACK

ERINDX: MOV
mMov
Mov
Mov
CLR

RO,-(SP)
R1,-(SP)
6(SP) RO
(RO) ,a#SVSTAT
R1

;SAVE RO
; SAVE R1
;GET STATUS/ERROR INDICATOR POINTER
;SAVE THE STATUS/ERROR INDICATOR
:START INDEX AT ZERO

(PCJ+,(RO)

;FORM PARITY ERROR OR PORT REQUEST INDEX (2)?

(PC)+,(RO)

;FORM 1/0 ERRCR INDEX (10)?

JSR
RETURN

026364
026366
026370
026374
026400

010046
010146
016600
011037
005001

026406

001027

BNE

(PC)+, (RO)
:FORM INDEX OF 0?
BIT13!BIT108!BIT01
5%
; YES--BRANCH

026412
026414
026416
026420
026422
026424
026426
026430

006004
001023
032710
050020
001017
032710
000050
001013

.WORD
BNE
BIT
.WORD
BNE
BIT
.WORD
BNE

BIT11!BIT10!B1702
; YES=-BRANCH
4%
;FORM UNSAFE INDEX (4)?
(PC)+,(RO)
BIT14!BIT12!B1T04
: YES--BRANCH
3%
;FORM NON-1/0 ERROR INDEX (6)?
(PC)+,(RO)
BITO5!BITC3
2%
: YES--BRANCH

026434
026436
026440
026442

000100
001007
032710
001000

.WORD
BNE
BIT
.WORD

BITO6
1%
(PC)+,(RO)
BITQ9

; YES=-BRANCH
;SOF TWARE TIMEOUT?

: INDEX=10---ERROR=45 OR 46

026402
026404

026410

026432

026444
026446
026454

026456

026460

026462
026464
026466
026470
026474

026476

026500

000006
001260

032710
020402

BIT
.WORD

032710

BIT

032710

001410
122760
003001

000150

1%:

005201

2%:

005201

005201
005201
006301

010166
012601

BEQ
CMPB

177762

000006

3$:
L%:
5%:

BGT

5%
#150,-16(RO)
2%

:NO--FORM INDEX OF 0
s YES--1/0?
:NO--BRANCH

INC

: INDEX=6---ERROR=44

Mov
MOV

R1,6(SP)
(SP)+,R1

INC

INC
INC
ASL

MoV

012600

RTS

000207

R1
R1
R1

(SP)+,RO

: INDEX=4---ERROR=43
: INDEX=2---ERROR=42
; INDEX=0---ERROR=41

;RETURN INDEX TO USER
:RESTORE R1

;RESTORE RO

;RETURN FROM CALL

;THIS ROUTINE WILL PROVIDE A SYALL lN MILLISECONDS FOR A SPECIFIC
AMOUNT OF TIME If BIT13 OF C.SWR = O OR A RANDOM AMOUNT OF TIMt
;1F BIT 13 OF C.SWR = 1.
sSTALLY CONTAINS SPECIFIED TIME FOR I£STS O - 7, AND STALL2

;CONTAINS THE TIME FOR TESTS 16-21.
s CALL

SEQ C12e

K10

MACY11 30A(1052)
24-MAY-79
CIRJAD RP0O4/5/6 MECHANICAL AND READ/WRITE TEST
*++ PROGRAM SUBROUTINES er¢
CIRJAD P
28-MAR-79 11:28
6558
6559
6560
6561
6562
6563
6564
6565
6566
6567
6568
6569
6570
657
6572
6573
6574
6575
6576
6577
6578
6579
6580
6581
6582
6583
6584
6585

6586
6587
6588
6589
6590
6591
6592
6593
6594
6595
6596
6597
6598
6599
6600
6601
6602
6603
6604
6605
6606
6607
6608
6609
6610
6611

6612
6613

JSR

TIME

026502
026504
026512
026514
026520
026524
026530
026532
026540
026542
026546
026550
026554
026556
026560
026562

013046
032737
001406
004737
013716
042716
005046
162766
103407

012716
005700
005366
001374
000765
022626
000200

020000

001220

023626
023726
177700
000001

STALL:

MOv

BIT
BEQ
JSR

Mov

000002

000144

1%:

3%:

000000

4%:

RO,9#STALL

POINTER

BIC
CLR
SuB
8LO

MOV
187
DEC

BNE
BR
CMP
RTS

13:59

PAGE 131

SWHERE TO FIND THE STALL

3(R0O)+,-(SP)
12913.3#C.SHR

;PICKUP STALL TIME

PC,a#SRAND
INSLONUM, (SP)
#°C77,(SP)

;YES-=FORM RANDOM NUMBER

- (SP)
#1,2(SP)
4%
#100.,(SP)

SEQ 0127
TIME

;USE A RANDOM TIME?
:NO--BRANCH

:AND USE IT FOR THE STALL TIME
;BUT NEVER > 64& MILLISECONDS
:CLEAR TEMP. LOCATION
;MORE

STALL REQUIRED?

;NO--BRANCH

:STALL FOR ABOUT 1 M]LLISECOND
;NOP 1O KILL

TIME

;s COUNT
;:LOOP IF MORE COUNTS NEEDED
(SP)+,(SP)+

;CLEAN OFF

JEXIT

THE

STACK

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

THIS STALL IS REQUIRED TO COMPENSATE FOR THE 'ACCESS READY' DELAY
THIS STALL TIME IS NCT INCLUDED IN THE CALCULATED SEEK TIMES.
:IN THE RPO4.

sTESTS.
s CALL

JSR

PC,a#TWONS

Mov
MOV
Mov
Mov
Mov
MoV
WAIT
ADD
Mov
MoV
RYS

o#PS,-(SP)
#<5+32.,,34#PS
afKv,-(5P)

RETURN

026564
026570
026576
026602
026610
026616
026624
026626
026632
026636
026642

013746
012737
017746
012777
012777
012777

000001
062706
012677
012637
000207

177776
000240
152572
026626
000310
000101

177776

TWOMS:

152564
152564
152554
1%:

000004
152536
177776

:SAVE THE PRESENT PROCESSOR STATUS
;SET THE PROCESSOR PRIORJTY T0 5

;SAVE

THE OLD CLOCK VECTOR ADDRESS

;WALIT

FOR 2 MS

#1%,3PKV
#200.,aPkB
#101,aPKCS

;SETUP NEW VECTOR ADDRESS
;LOAD THE CLOCK BUFFER
:START THE CLOCK

¥4 ,SP
SP)+ ,aPKV
(SP)+,aNPs
PC

:INCREMENT STACK FOR RETURN
;RESTORE OLD CLOCK VECTOR
:RESTORE THE OLD PROCESSOR STATUS
sRETURN

;JROUTINE TO SOFTWARE COMPARE HEADER ON [MPLIED SEEKS
s CALL
4
.

026644
026646

026650
026656
026664
026666
026672
026674
026702
026710

010146
012001
042737
023761

VERIFY:

01C000
050202

050202
000002

050204
050202
050205
050204

001262

001264
001266

1%:

JSR

RO,a#VERIFY

Mov

; SAVE R1
;GET ADDRESS OF DPB+10
NFMT22 ,a#BUFFER ;STRIP FORMAT BIT FROM CYLINDER NUMBER
S#BUFFER,2(R1)
;CYLINDER NUMBER 0K?

ADR POINTER
RETURN

MOV

BIC
(MP
BNE
CMP
BEQ

MOv
MOvB
MOVB

;ADDRESS OF DPB+10 (SECTOR NUMBER)

R1,-(SP)

(RO)+,R1

:NO--BRANCH

(R1) ; YES=--HOW ABOUT TRACK/SECTOR?
Q#BUFFER+2,
3%
+BRANCH IF GOOD
S#BUFFER,a#CYL.RD ;SAVE THE EXPECTED AND THE
S#BUFFER+3,9#TRK.RD .RECIEVED CYLINDER, TRA(K,
O¥#BUFFER+2 ,a#SEC.RD ;AND SECTOR

L 10
24-MAY-79

MACY11 30A(1052)
CZRJAD RPO4L/S/6 MECHANICAL AND READ/WRITE TEST
CIRJAD P11
*++ PROGRAM SUBROUTINES wee
28-MAR-79 11:28
6614
6615
6616
6617
6618
6619
6620
6621
6622
6623
6624
6625
6626
6627
6628
6629
6¢.30
6631
6632
6633
6634
6635
6636
6637
6638
6639
6640
6641
6642
6643
6644

6645

6646

6647
6648
6649
6650
6651
6652
6653
6654
6655
6656
6657
6658
6659
6660
6661
6662
6663
6664

6665

6666

6667
6668
6669

026716
026722
026726
026732
026740
026742
026744
026752
026756
026762
026770
026772
026776
027002
027004

001272
001274
001270
026744

000107
025150
001206
001000

MOovB
MOvB
mov
MoV
1987

001206
004106

2%:

152150

152112
000002

3% :

4%:

000200

ERROR

MOV

JSR
CLR
BIT
BEQ
JMP

ADD

MOV
RTS

13:59

PAGE

132

SEQ 0128

(R1)+ ,9#SEC.DS
(R1)+,a#TRK.DS
(R1) ,8#CYL.DS
#2% ,SESCAPE
-(RO)
12
SRECAL ,DOPB.A+2
RO,3#CALL.A
SESCAPE

:;ESCAPE TO 2% ON ERROR
SMAKE 1T TEST PC+6
;REPORT THE ERROR
;LOAD RECALIBRATE ORDER CODE
;GO EXECUTE THE COMMAND
:CLEAR ERROR ESCAPE FLAG

aSLPERR

:RETURN TO ERROR LCOP ADDRESS

#SW9,aSWR
4%
#2,RO

(SP)+,R1
RO

;LOOP ON ERROR
;BR IF NOT
; INCREMENT

;RESTORE R1
JEXTY

RETURN ADDRESS

;THIS ROUTINE WILL PERFORM A '*MASSBUS'' INIT. FOLLOWED BY
;A "'RECALIBRATE'' ON THE DRIVE UNDER TEST.
;NOTE: THIS ROUTINE DESTROYS R1 AND R4
;CALL
;

:
027006
027010
027014
027022
027026
027034
027040
027044
027052
027056
027062
027064
027066
027072
027074
027076
027104
027112
027120
027126
027132
027136
027140
027142
027144
027146
027150
027152

027154
027156
027162
027166

005001

005037
012777
013704
012764
005037
005037
012737
005037
004037
004164
000440
005737

001775

177776
037544
034632
000040
004174
004176
000107
001206
035450

SRCHOO:

005612

000200

CLR

CLR
MOV

000010
004166

MOV

CLR
CLR

1%:

001206
001270
001274
001272

CLR
JSR
DTADPB
BR
TS7
BEQ
BPL

MOV
MOV

MOVB
MOVB
MOV

JSR

ADD

2%:

000006
000034

RETURN1

1%
4%:

RO, SRCHOO

ERROR
ERROR
ERROR
ERROR
ERROR
187
BR

CLR

(LR
RTS

.00 A MASSBUS
;RETURN HERE

INIT.

AND RECAL

NO ERROR

;RETURN HERE ON ERROR

RETURNZ

MoV
MOV

004202

027152
004176
004175
004174
004202
026364

JSR

a#PS

¥#1SR,aRPVEC

s INCASE OF

ERROR

(TYPTIM)

;SETUP INTERRUPT VECTOR

d#RPADR R4

;PICKUP ADDRESS OF

a#DTADPB+10
3#DTADPB+12

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

RO,a3#RPO4

;CALL THE DRIVER
:DPB POINTER

#B1105,RPCS2(R4)

;MASSBUS

INIT.

RP(S1

#RECAL ,a¥#DTADPB+2 ;COMMAND = RECALIBRATE
a¥SESCAPE
;NO ESCAPE ADDRESS
4%
?lADPB*lb

;QUEUE IS FULL
;WALIT ON DONE

: TAKE NORMAL EXIT 1F NO ERROR
;;ESCAPE TO 2% ON ERROR
a#DTADPB+12,a#CYL.DS ;CYLINDER
S#DTADPB+11,a#TRK.DS ; TRACK
a#DTADPB+10,a#SEC.DS ;SECTOR
#DTADPB+16,-(SP) ;STATUS/ERROR INDICATOR ADDRESS
PC,aNERINDX
:FORM DISPATCH INDEX
3%
#2%,8ESCAPE

(?P)*.PC

:REPORT PROPER ERROR

sNON-1/0 ERROR

42
43
45
(RO)+
4%

RPDA(R&)
RPCA(RS)
RO

;PARITY ERROR
:UNSAFE ERROR

:1/0 ERROR
;ADJUST FOR ERROR EX]T
;GO TO THE EX]T

:TRACK AND SECTOR = 0
;CYLINDER = 0
sRETURN

n10
26-MAY=79

MACY11 30A(1052)
CIRJAD RPOL/S5/6 MECHANICAL AND READ/WRITE TEST
*** PROGRAM SUBROUTINES #r+
CZIRJAD PN
28-MAR-79 11:28

6670
6671
6672
6673
6674
6675
6676
6677
6678
6679
6680
6681
6682
6683
6684
6685
6686
6687
6688
6689
6690
6691
6692
6693
6694
6695
6696
6697
6695
6699
6700
6701
6702
6703
6704
6705
6706
6707
6708
6709
6710
6711
6712
6713
6714

6715
6716
6717
6718
6719
6720
6721
6722
6723
6724
6725

13:59

PAGE

133

;THIS IS AN RTI WHICH IS USED BY THE TIMING TESTS § THE SERVO SETTLE DOWN TEST
027170

000002

DORTI:

RT]

sRETURN FROM INTERRUPT

:E:IS ROUTINE WILL INITIALIZE THE TIMERS USED BY THE "'TIMING ROUTI ES
:

:
:
027172
027174
027200
027204
027206
027210
027212
027216
027224
027232
027234

104412

012700
012701
005020
020001

103775
012710
012737
012737
1064413
000207

CALL

STRTMR:

001276
001332

1$:

050202

077777
077777

JSR
RETURN

PC,a#STRTMR

SAVREG
MOV
Mov
CLR
CMP
BLO
Mov
MOv
Mov
RESREG

:SAVE RO-R5
#TIM.UP,RO
sSTART AT TIM.UP (MINIMUM)
FTIM.PT R
;STOP AT TIM.PT
(RO)+
;CLEAR
RO,R1
;DONE?
1%
:NO--BRANCH
#BUFFER, (RO)
:SETUP POINTER
#ACBIT1S,a#TIM.UP ;SET MINIMUM TIME TO MAXIMUM
#2CBIT15,a#TIM.ON ;POSITIVE NUMBER
;RESTORE RO-R5

RTS

sRETURN

sTHIS ROUTINE WILL ADD THE ELAPSED TIME TO THE AVERAGE COUNTER AND
;MAINTAIN THE MINIMUM AND MAXIMUM TIMES.
sNOTE:

THIS ROUTINE DESTROYS R2

:
:
:

[ [o]Y}
MOV

#T1P,R3
FLAG,RS

:
;

JSR
RETURN

PC,afCOUNT

COUNT:

MOV

#11M UP,R2

;sPICKUP THE ‘'UP'' POINTER

(mp

aPK(C,4(RY)

;LESS THAN THE LOW LIMIT?

s CALL

027236
027242
027244
027246
027252
027256
027260
027266
027274
027276
027300
027302
027306
027310
027316
027324
027326
027330

027332
027336
027340
027342
027350
027352

012702
005705
001402
012702
027722
002003
017762
027763
002001
005212
005722

1%:
177776
000004

027722
003403
017762
027763
003401
005212
005722
067722

152076

022737

056472

001332

017777

152026

151752

005522
005212

101406

152070
152062

177776
000006

2%:
3%:

BGE
INC
TST

4%:

BLE
MOV
CMp

5%:

152046

TS1
BEQ
MOV
(mp
BGE
MOV

RS
1%
#TIM_DN,R?
aPK(, (R2)+
2%
aPK(,-2(%2)

3%
(R2)
(R2)+

cmp

aPK(C,(R2)+

BLE
INC
TS7

5%
(R2)
(R2)+

ADD
ADC
INC

(mp
BLOS
MOV

4%
aPK(,-2(R2)
aPKC,6(R3)

aPKC,(R2)+
(R2)¢
(R2)

;PARAMETER POINTER
;FLAG=0=COUNT UP
;FLAG==1=COUNT DOWN

sUSE 11?2
;s YES--BRANCH
:NO==PI1CKUP ''DOWN'' POINTER
sLESS THAN PREVIOUS LOW?
sNO=--BRANCH
JYES==SAVE |1

s NO-~BRANCH
sYES==COUNT IT
:ADVANCE THE POiINTER

;GREATER THAN PREVIOUS HIGW?

sNO--BRANCH
YES--SAVE 1
;GREATER THAN THE HIGH LIMIT?

sNO==BRANCH
;YES=~COUNT 17
;ADVANCE THE POINTER
sADD THIS COUNT

TO THE TOTAL

sCOUNT THIS READING
WBUFFER+<4*B14,.>,3#TIM
PT ;SAVE THIS COUNT?
6%
;NO=-BRANCH
oPK(C,aTIM, PT
JYES==WELL SAVE |1 THEN

SEa 0129

N 10

MACYI1 30A(1052)
24-MAY-79
CIRJAD RPOL/5/6 MECHANICAL AND READ/WRITE TEST
t*+ PROGRAM SUBROUTINES vee
CIRJAD PN
28-MAR-79 11:28

6726
6727
6728
6729
6730
6731
6732
6733
6734
6735
6736
6737
6738
6739
6740
6741
6742
6743
6744
6745
6746
6747
6748
6749
6750
6751
6752
6753
6754
6755
6756
6757
6758
6759
6760
6761
6762
6763
6764
6765
6766
6767
6768
6769
6770
6771
6772
6773
6774
6775
6776
6777
6778
6779
6780
6781

027360
027366

062737
000207

000002

001332

6%:

ADD

RTS

N2, afTIN.PT

13:59

PAGE

134

Sea 0130

sADVANCE THE POINTER
sRETURN

;THIS ROUTINE IS USED TO TYPE THE MINIMUM,
;MAXIMUM,

AND AVERAGE TIMES FOR THE

TIMING TESTS

;1T WILL ALSO CHECK THE TIMES TO ENSURE
;THEY ARE WITHIN TOLERANCE AND IF NOT FLAG THE BAD TIMES.
;NOTE: THIS ROUTINE DESTROYS RZ2-R5
s CALL

JSR

TABLE
RETURN

RO,a#TYPTIM

STABLE
:M SGADR1

;ADDRESS OF ASCIZ MESSAGE NUMBER 1

MSGADR?

MIN.ALLOWED
MAX.ALLOWED

027370
027372
027400
027402
027406
027410
027412
027414
027420
027422
027424
027430
027432
027436
027440
027444
027450
027454
027456
027460
027464
027470
027474
027500
027504
027506
027512
027516
027522
027526

027530
027534
027540
027544
02754A
027550
027554
027560

012002
032777
001145
012237
012205
012203

011202

012704
104401
000000

005764
001527
104401

012446
004737
004737
104401
005724
001421

000100

023336
023566
044215

010346
004737
004737

104401
104401
012446

004737
004737
104401
005724
001421

104401
016446

004737

023336
023566
044215
0446177

023336
022566
044215
044330
177776

023336

JSR
JSR

PC,a#$5SB2D
PC,a3#8SUPRS

1ST

(RG)+

;ADDRESS OF

ASCIZ MESSAGE NUMBER ¢

:PICKUP

TABLE

sMINIMUM TIME
sMAXIMUM TIME
THE

ALLOWED
ALLOWED

POINTER

;INHIBIT TIME REPORTS?
s YES=-BRANCH

;ADDRESS OF

MESSAGE NUMBER

;ADDRESS OF MESSAGE NUMBER ¢
;PICKUP THE LOW LIMIT

sAND THE HIGH LIMIT
;PARAMETER POINTER
;TYPE THE MESSAGE
sASCIZ MESSAGE POINTER GOFS HERE

;:DID ANY COUNTS OCCUR?

;10=--BRANCH

. MSGMIN
(R&4)+,-(SP)

.MSGOUS

BEQ

:NO--BRANCH

MOV
JSR
JSR

-2(R&4) ,-(SP)
PC,a#$SB2D
PC,3#$SUPRS

:PUT =2(R4) ON THE STACK
:CHANGE =-2(R&) TO DECIMAL ASCIZ

MOV

R3,-(SP)

TYPE
TYPE
Mov

.MSGOUS
. MSGMAX
(R&)+,=(SP)

TYPE

JSR
JSR

3%:

(R2)+,2%
(R2)+,R5
(R2)+,R3
(R2),R2
FTIM.UP,RG

0
14(RG)
6%

TYPE

177776

(RO)
¢+ ,R2

¥SW06,aSWR
7%

.WORD
1871
BeQ

TYPE
Mov

044170

004737

BIT
BNE

TYPE

000014

023336
023566
064222

MOV
MOv
MOV
Mov
Mov
Mov

001276

044330

104401

TYPTIM:

027422

104401

016446
004737

151540

;60 REPCRT THE TIMES
;POINT TO THE PROPER TABLE

,MSG.SP

;TaPESUlTHOUT
U

sANY

:TYPE

LEADING ZEROS

SEEKS BELOW THE

WITHOUT

LEADING

LOW LIMIT

ZEROS

:"'BELOW THE MINIMuM OF"

PC,a#$SB2D
PC,a3#$SUPRS

:CHANGE R3 TO DECIMAL ASCIZ

PC,a#$SB2D
PC,aN#$SUPRS
MSGOUS

BEQ

MOV
JSR

-2(R4) ,-(SP)
PC,aN$5B2D

TYPE

;PUT (R4)+ ON THE STACK
;CHANGE (R&)+ TO DECIMAL ASCI?

. MBELOW

JSR
JSR
TYPE
187

"lN:”

(R4)¢

.MSG.SP

;PUT R3 ON THE STACK

:TYPE WITHOUT LEADING ZERQOS
:“HAX:“

;CHANGE

;PUT

(R4)+ ON THE STACK

(R&4)+ TO DECIMAL ASCIZ

;TYPE WITHOUT

LEADING ZEROS

sANY SEEKS ABOVE THE HIGH LIMIT
;NO=--BRANCH
;YES==REPORT HOW MANY
:PUT =2(R4) ON THE STACK
;CHANGE =2(R&)

TO DECIMAL ASCIZ

8 11

CIRJAD RPOL/S/76 MECHAN]ICAL AND READ/WRITE TES?T
MACY11 30A(1052)
26-MAY-79
CIRJAD P
28-MAR-79 11:28
eee PROGRAM SUBROUTINES eee

6782

6783
6784
6785
6786
6787
6788
6789
6790
6791
6792
6793
6796
6795
6796
6797
6798
6799
6800
6801
6802
6803
6804
6805
6806
6807
6808
6809
6810
6811
6812
6813
6814
6815
6816
6817
6818
6819
6820
6821
6822
6823
6824
6825
6826
6827
6828
6829
6830
6831
6832

6833
6834
6835
6836
6837

027564
027570
027574
027576
027602
027606
027612
027616
027620
027622
027624
027630
027632
027636
027636
027636
027642
027646
027652
027656
027662
027666
027672
027676
027702
027704’
027706
027710
027714

004737
106401

010246
006737
004737
104401

104401
012446
012446
012446
004737
006126

023566
046251
023336
023566
046215
044206

JSR

104401
1046401

016446
006737

004737
106401

010537
001404
005005
000644
104601

000200

023336
023566
044215
044330
177776

044315

;THIS

027716
027722
N27724

027730
027734
027736
027742
027744

020237
001410
063702
020237
003402
013702
005720
000200

001520

INCTRK:

;THIS

=2(R4)

;CHANGE =2(R&)

ON THE

8taQ
(LR
BR

JEXDT

(R2)

:'SEEKS TIMED'

MSGNON

WiLL

THE

INCREMENT

AMOUNT

cmMp
8tQ

Mov
151
RTS

SUBROUTINE

THE

R2,aMLT
%
afLT R
¢
(RO)
RO

INCREMENT

STA(K

LEADING

ZEROS

TRA(K

SPECIFIED BY

R2.am1
2%
arlit R

WiLL

WITHOUT

ZERCS

TO DECIMAL ASClZ

JNEXT MESSAGE POINTER
;1F NONE EX]T
:NO MORE THAN ?

;TYPE

. MSGNUM

(mMpP
BLE

2%:

JPUT

ASCIZ

LEADING

RS,2%
7%
RS
%

ADD

1%:

TO DECIMAL

WITHOUT

PC,a#85B20
PC,a#SSUPRS

RO,8# INCTRK
JSR
RE TURN1
RETURN?

001522
001520
001520

;TYPE

=2(R&) ,=-(SP)

SUBROUTINE

s CALL

AVERAGE

JSR
JSR

TYPE
RTS

:NUMBER

CHANGE

,ASGOUS
.MSG.SP

TYPE
mov

6%:
7%:

LEADING ZEROS

;1S THE REMAINDER OVER HALF?
:NO=-BRAN(CH
s YES=~ROUND ULP

PC,a#8582D
PC,8#8SUPRS

TYPE
TYPE
Mov

023336
023566
044300
027422

;FORM THE

(SP)

JSR
JSR

WITHOUT

;UAVGE"

BPL
INC

5¢:

;TYPE

.MSGAVG
(RG)
¢+, =(SP)
(RG)
¢ ,=-(SP)
(RG)
¢, =(5P)
PC,a#8D1V
(SP)+

JSR

stQ 0131

;CHANGE R2 TO DECIMAL ASCIZ

MSGOUS

ROL

100001

004737
004737

R2,=(SP)
PC.a#3582D
PC,a8f8SUPRS

mOov
MoV
mov

023730

005216

.MABOVE

JSR
JSR
1YPE
TYPE

PAGE 135

;TYPE WITHOUT LEADING ZEROS
;""ABOVE THE MAXIMUM OF"’
;PUT R2 ON THE STA(K

PC,3#SSUPRS

T(PE
MoV

13:59

'IT°',

; TRACK NUMBER GREATER
;TRACK

NUMBER

;LAST

TRACK

s YES--EXI]T

THAN LT15

INCREMENTED

COMPLETED?

;NO==UPDATE TRA(K

;TRACK

10 B1G?

JNO=-=-EX1T
JYES==SET TRACK 10 LAST

sADJUST FOR RETURN 2

TRA(K

;RETURN

THE

CYLINDER

;NUMBER (R1) BY THE AMOUNT SPECIFIED BY '"IC(
s CALL

027746
027752

001512

INCCYL:

RO,a3#INCCYL
JSR
RE TURN!
RE TURN?Z
(mp
BtQ

R1,am(

;CYLINDER NUMBER GREATER THAN LC15
sCYLINDER NUMBER INCREMENTED

;LAST CYLINDER COMPLETED?
JYES-<EX]1

¢ n

(IRJAD RPO6/5/6 MECHANICAL

CIRJAD P

6887
6888
6889
6890
6891
6892
6893

001514
001512
1$:
2%:

.
:
:

027776
030004
030010
030012
030020

113766

005366
100003

013766
000207

006212
000002

000002

001634

000002

136

;sNO=--UPDATE (YLINDER

Mov
181

efL(,m
(RO)+

:YES==SET CYLINDER 1O LAST
;ADJUST FOR RETURN ¢

RTS

CALL

PAGE

FT AR

cmp
BLE

001512

13:59

ADD

RY,amLC
1%

:g:xs ROUTINE DECREMENTS THE

;CYLINDER TO BI1G?
JNO=-=EX]T

SE2 0132

(YLINDER

sRETURN

St CTOR ADDRESS.

LR
JSR

RE TURN

-(SP)
PC,DECSEC

DECSEC:

mOvB
DEC
BPL
MoV

RP.REG*RPDA,2(SP)
;PUT THE SECTOR ADDRESS ON THE STA(K
2(SP)
:DECREMENT THE ADDRESS
1%
;BR 1F NOT CORRECTION NEEDED
PRPLMT22.,2(SP)
;OVERFLOW OCCURED, FORCE TO MAXIMUM ADDRESS

1$:

R1S

;CLEAR THE STA(CK
;SUBROUTINE ENTRY

sRETURN

sTHIS SUBROUTINE IS USED TO FILL THE DATA BUFFER
;WITH ADDRESSES FROM O TO 21 WITH EACH ADDRESS

;BEING STORED IN 256 CONSECUTIVE LOCATIONS

; CALL

030022
030024
030026
030032
030036
030040
030042
030044
030046
030052
030054
030056

104412

005000
012701
012702
010021
005302
003375
005200
023700
103367
104413

050202
000400

:
:

JSR
RE TURN

FILBUF:

SAVREG
(LR
MoV
MOV

1%:
2%:

MOV
DEC
BGY
INC

cmp

001630

BHIS
RESREG

000207

RTS

PC.,aMF 1LBUF

#BUFFER,RI

#256. ,R2
RO,(R1)e
R2
2%
RO

PRMLMT+2?2,R0
1%

;SAVE RO - RS
sFIRST DISK ADDRESS
;START FILLING HERE
;D0 256 WORDS

:STORE
:MORE?
s YES==BRANCH
sNO--UPDATE DISK ADDRESS

;DONE?

;sNO--BRANCH
sRESTORE RO - RS
;RETURN

JTHIS ROUTIND WwiLL CLEAR THE BUFFER BY
JSETTING EACH WORD TO *'177400'".

s CALL

:
030060
030062

— il il e i e e N Y g B
oo
OOO —
ULV RUNLNU N LN — PN

6843
6844
6845
6846
6847
6848
6849
6850
6851
6852
6853
6854
6855
6856
6857
6858
6859
6860
6861
6862
6863
6864
6865
6866
6867
6868
6869
6870
6871
6872
6873
6874
6875
6876
6877
6878
6879
6880
6881
6882
6883
6884
6885
6886

063701
020137
003402
013701
005720
000200

ODOOOOOONNN
S

6841
6842

027754
027760
027764
027766
027772
027774

OO0OO0OOOO0OO0OO00
—
e et D il e sl e et et COD

6838
6839
6840

AND READ/WRITE TEST
MALYIY 30A(1052)
24-MAY-=79
28-MAR-79 11:28
voe PROGRARM SUBROUTINES eee

177400

050202
076202

CLRBUF:

1%:

JSR

RE TURN
SAVREG

RO,a#C1L RBUF

MOV
MOV

#177400,R1
#BUFFER,R?

MOV

R1,(R2)¢

MoV
MOV
MOV
MOy
MOV
MOV
Mov

:SAVE RO = RS

;WORD T0 FILL BUFFER WITH
sFIRST ADDRESS OF BUFFER

#BUFFER+<512.%22.>,R3
R1,(R2)¢
;FILL
R1,(R2)¢
JFILL
R1,(R2)¢
FILL
RY,(R2)¢
:FILL
R1,(R2)¢
;FILL
R1,(R2)¢
:FILL

;LAST
WORDS
WORDS
WORDS
WORDS
WORDS
WORDS

ADDRESS+2 OF BUFFER
1, 9,...249,...5675
2,10,...250,...5626
3.11,...251....5627
4,12,...292....5628
S5.13,...253....9629
6,14,...254,...5630

;FILL WORDS 7.1'5,...299....5631

o N

MACY1Y 30A(1052)
24-MAY-79
CIRJAD RPO&/S/6 MECHANICAL AND READ/WRITE TEST
CIRJAD P
28-MAR-79 11:28
eve PROGRAM SUBROUTINES eee

6941
6942

6943
6944
6945
6946
6947
6948
6949

BLO

RESREG
RTS

;THIS ROUTINE

R1,{(R2)

PAGE

:DONE?
;NO=-=-BRANCH

JRETURN FROM CALL

1S USED

137

Sta 0133

;FILL WORDS 8,16,...256,...5632

R2.RY
1%

JRESTORE RO - RS
TO CHECK

;FOR ADDRESSES O THROUGH 21

THE

DATA BUFFER

WlTH EACH ADDRESS

;BEING STORED IN 256 CONSECUTIVE LOCATIONS

s CALL

JSR

RO,a#CXSCTIR

RE TURN

030236
030240
030242
030244
030246
030250
030252
03025¢
030256
030260

104412

162706

005001
012716
005066
012702
011603

000004
050202
000002
000020

(KSCTR:

1%:

AN — w

020123
001063

N AN
N
AN =2 W
AN
N AN A
=2 A

062716

(LR

MOV
Mov

(P
BNE
CMp
BNE
(MP
BNE
(MP
BNE
(MP
BNE
(mp
BNE
(MP

N U

001336

SAVREG
SuB
CLR

MoV

NN AN U

030126
030130
030134
030136
030142
030146
030152
030154
03015¢
030156
030160
030162
030164
030166
030170
030172
030174
030176
030200
030202
030204
030206
030210
030212
030214
030216
030220
030222
030224
030226
030230
030232
030234

= L

6923
6924
6925
6925
6927
6928
6929
6930
6931
6932
6933
6934
6935
6936
6937
6938
6939
6940

103766
104613
000200

6913
6914
6915
6916
6917
6918
6919
6920
6921
6922

MmOV
4,14

[QC RV ] WA

6911
6912

010122
020203

OO o [efelalalelolalalolelololelole
oo ] QOO0 OOO0OO0O o
QO ~o ONOMNIONNONONONONONON ONNONONONNO no
AV b (=] -, O = O= OO0 —=0O0—-0O0O—=0~0—=0 kTM RN e T Y an TTY op JRNY (=]
wo = OO~ 0O0=20O0 -0~ 0O -0 =0 — O—=O—20—=0—-0—0
NN NN W
SRS NSRS ROV
VDYDY VYN O [a¥)
(a1,
V] NNV

6894
6895
6896
6897
6898
6899
6900
6901
6902
6903
6904
6905
6906
6907
6908
6909
6910

13:59

001000

1%:

BNE
CMP
BNE
(MP
BNE
(MP
BNE
(MP
BNE
C(MP
BNE
CMP
BNE
CMP
BNE
(Mp
BNE
(Mp
BNE
DEC
BNE
ADD

86 ,SP
R1
#BUFFER,(SP)

;SAVE RO - RS

JRESERVE TEMP, STORAGE AREA
;FIRST SECTOR
sFIRST ADDRESS Of DATA BUFFER

2(SP)
:NO ERRORS
#16.,R2 ;LOOP COUNT (16916:256)
;GET 1ST ADDRESS OF
(SP),R3
RY,(R3)
7%
R1,(R3)

14 3

R1,(R3)

;WORD 1
;BRANCH
:WORD 2

:WORD 3

;BRANCH
;WORD &

;BRANCH

R1,(R3)
7%
R1,(R3)+
4 %
R1,(R3)
7%
R1,(R3)
7%
RY,(R3)
7%
R1,(R3)¢

14 ]
R1,(R3)+

;WORD 6
;BRANCH 1Ff
;wORD 7
;BRANCH 1f
WORD 8
;BRANCH 1F
:WORD 9
;BRANCH ]F
:WORD 10
:BRANCH ]F
;WORD 11

;BRANCH 1f
;WORD 12

R1,(R3Y)e

;WORD 14

R2
2%

#512.,(5P)

BAD

BAD
BAD
BAD
BAD
BAD

BAD

;BRANCH IF BAD

;WORD 13

R1,(R3)+
7%
R1,(R3)

BAD

;BRANCH If BAD
;WORD S

R1,(R3)¢
7%

BAD

;BRANCH [F BAD

7%
R1,(R3)

14
R1,(R3)+

THIS SECTORS DATA

;BRANCH

]

BAD

;BRANCH

BAD

;BRANCH

BAD

:WORD 15
;BRANCH [F BAD
;WORD 16

CPINISHED WITH THIS SECTORS DATA?
sNO=--BRAN(CH

;YES==FIRST

ADDRESS OF

SECTOR

E N

MACYI1 30A(1052)
24-MAY-79
(IRJAD RPO4/S76 MECHAN]CAL AND READ/WRITE TEST
CIRJAD P
28-MAR-79 11:28
vee PROGRAM SUBROUTINES #ee

7000
7001
7002
7003
7004
7005

005201

023701

103325
005766
001406

123737
101002
013700

062706

106413
000200
01030¢
161604
010405
006204
042705
001002
012705
006305

062705
016337
005766
001015
013737
113737
012737
104021
105166
000404

001630
000002

001364

'3 ¥

001103

001252
000004

5%:
6%:
7%:

6%
:NO--BRANCH
SVERR.CT,a#SERFLG ,MAX. ERROR OCCURRED?
¢$
:NO=-=BRANCH
a#BYPASS,RO
;TAKE ERROR EXIT

(MPB
BHI

Mov
ADD
RESREG
RTS
Mov

8IC
BNE

000040

8%:

030154
177776
000002

001126

004176
004175
030416

001270
001274
001206

000002

030434

001206

001000

150476

000002

150466

001364

001103

000040

150446

Mov
ASL
ADD
MOV
1871

BNE

MOV
MOvB
Mov

:
9%

10%:
11%:

2(SP)

;ERROR OCCUR?

#6,SP

;FREE

TEMP,

RO
R3, RS

(SP) ,R&

:ADDRESS

R&,RS
R&

CONTINUE

FROM

;BRANCH

lgO,RS

;SET

#2% RS

s ADDRESS

10%

:NO=-=-BRANCH

-2(R3),a#8BDDAT
2(SP)

NOT

10 WORD

A MULTIPLE

;SAVE BAD DATA
;FIRST ERROR?

S#DTADPB¢12,3#CYL.DS ;CYLINDER NUMBER
afDTADPB+11 ,@#TRK.DS ;TRACK NUMBER

;REPORT THE ERROR
JSET ERROR SWIT(H

:ESCAPE

TO 9% ON ERROR

Mov

#1198 ,8ESCAPE

:;ESCAPE

TO 11% ON ERROR

#9% ,$ESCAPE

118

817
BNE
BIT

2?2

#SW09,a5wR
5%
#SWO1,a%WR
63

:REPORT THE ERROR

#SWw05,aSwR

:REPORT ONLY 1ST ERROR PER SECTOR?

ERROR

BNE
JMP

Mov

JSR

;WORD NUMBER

neC37,RS
8%

:LOOP ON ERROR?
JYES
;STOP DATA (OMPARE?
s YES==BRAN(H
OFERR.CT,QNSERFLC ;MAX, ERRORS?
5%
; YES=--BRANCH
S:S

;YES-=BRAN(H

(RS)

witL MOVE

THE

16 WORDS OF

;DESIRED PATTERN INTO THE DATA BUFFER.
s CALL

050202
004170
003044

AREA

;RESTORE RO - RS
sRETURN FROM CALL
;FORM WORD NUMBER AND

21
2(SP)

BNE
(MPB
BLOS

:
SETBUF

SECTOR

ERROR
(OMB
BR

;THIS ROUTINE

030476
030500
030504
030510
030514
030516
030520
030522

SEQ 0134

8eQ

181

;MOVE TO NEXT
.DONE?
:NO=-=BRANCH

138

R1
PRMLMT+22 R
1%

SuB

177740

PAGE

INC
(mp
BHIS

Mov
ASR

030474

OO0OOO0OOO0O
—
— e el o i s s O
(oS R VT, U1 VT
JV-T,CW
o
NN
NO N~ &
RN
OOO —
— s s et \ g TN s N

6950
6951
6952
6953
6954
69595
6956
6957
6958
6959
6960
6961
6962
6963
6964
6965
6966
6967
6968
6969
6970
6971
6972
6973
6974
6975
6976
6977
6978
6979
6980
6981
6982
6983
6984
6985
6986
6987
6988
6989
6990
6991
6992
6993
6994
6995
6996
6997
6998
6999

13:59

SAVREG

MOv

MOv
Mov
MOV
MOV
MoV
MOV

NX,RO

PC,a#SETBUF

#BUFFER,RI

a¥#DTADPB¢4
,R2
PAT.PT(RO),R3
(R3)¢,(R1)
(R3)+,(R1)¢
(R3)+,(R1)e
(R3)e,(R1)e

THE

;PATTERN NUMBER

INDEX

TO RO

;SAVE RO - RS
;FIRST

ADDRESS

;WORD COUNT
;PICKUP PATTERN POINTER
;MOVE WORD 1
;MOVE WORD 2
;MOVE WORD 3
;MOVE WORD &

INTO
INTG
INTO
INTO

DATA
DATA
DATA
DATA

BUFFER
BUFFER
BUFFER
BUFFER

(IRJAD RPO&L/S5/6 MECHANLICAL AND READ/WRITE TEST

CLRJAD.PIY
7006
7007

7008
7009
7010
7011
7012
7013
7014
7015
7016
7017

030524
030526

030530
030532
030534
030536
030540
030542
030564
030546
030550
030552

28-MAR-79 11:28
012321
01232

01231
01231
01231
012321
012321
012321
012321
012321
012321
012321

MACYIY 30A(1052)

]

24-MAY-79

*++ PROGRAM SUBROUTINES eee
MoV
mov

MmOV
mov
mov
MoV
Mov
MOv
MOw
MmOV
MOv
MOV

(R3)+,(R1)¢
(R3)¢,(R1)e

(R3)+ ,(R1)e
(R3)¢,(R1)e
(R3)+,(R1)e
(R3)e,(RY)
(R3)+,(R1)e
(R3)+,(R1)
(R3)¢,(R1)
(R3)¢, (R1)e
(R3)+,(R1)e
(R3)¢,(R1)>

13:59

PAGE 139

;MOVE WORD S5 INTO DATA BUFFER
;MOVE WORD 6 INTO DATA BUFFER

;MOVE
;MOVE
;MOVE
;MOVE
;MOVE
;MOVE
;MOVE
;MOVE
;MOVE
;MOVE

WORD
WORD
WORD
WORD
WORD
WORD
WORD
WCRD
WORD
WORD

7 INTO DATA BUFFER
8 INTO DATA BUFFER
9 INTO DATA BUFFER
10 INTO DATA BUFFER
11 INTO DATA BUFFER
12 INTO DATA BUFFER
13 INTO DATA BUFFER
14 INTO DATA BUFFER
15 INTO DATA BUFFER
16 INTO DATA BUFFER

SEQ 0135 I

6 11
MACYYI1 30A(1052)
24=MAY-7)
CIRJAD RPO4/5/6 MECHANICAL AND READ/WRITE TEST
CIRJAD P
¢8-MAR-79 11:¢8
vee PROGRAR SUBROUTINES wee
7018
7019
7020
7021
7022
7023
7026
7025

030554
030560
030562
030%64

062702
001355

000020

106413

000207

7044

7045
7046
7047
7048
7049
7050
7051
7052
7053
7054
7055
7056
7057
7058
7059
7060
7061
7062
7063
7064

7065
7066
7067
7068
7069
7070
7071
7072
7073

#16..R2
1%

RTS

;DONE?

PAGE

140

SEQ 0136

;s NO=--BRAN(H
;RESTORE RO - RS

sRETURN

:THIS ROUTINE COMPARES A 16 WORD DATA PATTERN

;AGAINST

. CALL

7026

7027
7028
7029
7030
703
7032
7033
7034
7035
7036
7037
7038
7039
7040
7041
7042
7043

ADD

BNE
RESREG

13:59

THE

DATA

ONX RO
PC.aNDATCMP

;PATTERN NUMBER

#BUFFER,RY
S#DTADPB+4
,R?
= (SP)
PAT.PT(RO)
,R3

FIRST

s CHECK WORD 1
+BRANCH IF DIFFERENI

BNE
SuB
BNE
SUB
BNE

(R3)+,(RY)¢
X3
(R3)¢,(R1)e
[ 3
(R3)+,(R1)
3
(R3)+,(R1)¢
43
(R3)+,(R1)
(%
(R3)¢,(R1)
4%
(R3)+,(RY)+
4%
(R3)¢+,(R1)e
4%
{R3)¢,(R1)e
%Y
(R3)+,(R1)+
4%
(R3)¢+,(R1)e
4%
(R3)¢,(R1)¢
4%
(R3)¢+,(R1)+
4%
(R3)+,(R1)e
43
(R3)¢,(R1)+
4%
(R3)e+,(R1)e
4%

BNE

mCv

Mov

JSR
RETURN

030566
030570
030574
030600
030602
030606
030606
030610
030612
030614
030616
030620
030622
030624
030626
030630
030632
030634
030636
030640
030642
030644
030646

030650

030652
030654
030656
030660
030662
030664
030666
030670
030672
030674
030676

104412

012701
013702
005046
016003
162321
001044
162321
001042
162321
001040
162321
001036
162321
001034
162321

050202
0046170

003044

DAT(CMP:

SAVREG

MO\
mov

(LR

Mov

SuB

BNE

SUB
BNE
SuB

BNE
SUB

BNE
SuB
BNE

SuB

001032

BNE

001030

BNE
SuB

162321
162321

001026

162321
001024
162321
001022
162321

001020
162321

001016

SuB

BNE
SUuB

BNE
SUB
BNE
SuB
BNE
SuB

BNE
SuB
BNE
SuB

010104

BUFFER

INDFX

;SAVE RO - RS

ADDRESS OF

;WORD COUNT
:NO ERROR

BUFFER

;PATTERN POINTER

s CHECK WORD 2

DJFFERENT

sBRANCH 1F

;CHECK WORD 3

+BRANCH 1F DIFFERENT
:CHECK WORD &
;BRANCH IF DIFFERENT
:CHECK WORD 5

:BRANCH [F DIFFERENT
:(HECK WORD 6

;BRANCH IF DIFFERENT

;CHECK WORD 7

sBRANCH IF

DIFFERENT

;(HECK WORD 8

;BRANCH

;CHECK WORD 9

;BRANCH 1F DIFFERENT

:CHECK WORD 10

;BRANCH

:CHECK WORD

DIFFERENT

;BRANCH [F DIFFERENT

;CHECK WORD 12
:BRANCH [F DIFFERENT
;(CHECK WORD 13

+BRANCH IFf

DIFFERENT

;BRANCH 1F

DIFFERENT

;CHECK WORD 14

;CHECK WORD 15
;BRANCH 1F DIFFERENT
:CHECK WORD 16

ADD

6. ,R2

;BRANCH 1F
.DONE ?

151
RESREG
RTS

(SP)e

JYES == CLEAN UP STACK

P(
R1,R4

;FORM

:NO=--BRAN(H

:RESTORE

THE

RO - RS
WORD

TO RO

NUMBER

11
MACY11 30A(1052)
24-MAY-79
CIRJAD RPO&L/5/6 MECHANICAL AND READ/WRITE TEST
CIRJIAD P
28-MAR-79 11:28
vee PROGRAM SUBROUTINES eee

7074
7075
7076
7077
7078
7079
7080
7081
7082
7083
7084
7085
7086
7087
7088
7089
7090
7091
7092

7093
7094
7095
7096
7097
7098
7099
7100
7101
7102

7103
7104
7105

030724
030730
030732
030734
030740
030742
030746
030750
030754
030760
030764
030770
030772
030774
031002
031010
031016
031022
031030
031032
031036
031040
031042
031042
031050
031052
031060
031062
031070
031072
031100

031102

162704
006204
010305

050202

003044
030606

MOV

R3.RS

001270
001274
001272

PAT.PT(RD),RS
RS

MOv

R3,3ASGDADR

031052

001206

000002

150060

001364

001103

001252

000016

7%:

BS:

;

srNNOSO
N

——

NN
— — O

nld cml
Al

b ol
—

OO0

—

) condd

il
~NO WV
Wiy =2 OO0

=l
e
=D
il
i
D
il
s
ek
il
il
il
—

PORUPRUA
=t ot b oo cd el e
s b

NNNNNNNNNNNNN

031324

:REPORY

#5%,8ESCAPE

ERROR?

;CYLINDER

;SECTOR

TEST

P(e4

:;ESCAPE 10 5% ON ERROR
THE

ERROR

MOov
(OmMB

20(SP),R0O
(SP)

MoV

#79% ,8ESCAPE

;:ESCAPE

g:BYPASS.Ib(SP)

;YES-=-ERROR EX]Y

(RS)

;NO=--CONTINUE AT NEXT WORD

ERROR
BIT
BNE
(mPB
BH]

MOV
BR

JMP

THE RANDOM NUMBER GENERATOR FOR THE
DESTROYS R1

MOV
MOV

SBUFFER,RY
PRMLMT+22 R?

DEC
8PL

R2
1%

RTS

10 7% ON ERROR

FILL THE DATA BUFFER (25622 WORDS) wlTH
THE FIRST TWwO WORDS OF EVERY 256 WliL

FILRAN:

JSR

;PATTERN NUMBER INDEX
:SET THE ERROR SWIT(M

14
;REPORT THE ERROR
#S5Ww01 ,85uWR
:STOP DATA (OMPARE?
3%
JYES=-<-EX]T
SFERR.CT,@FSERFLG ;MAX., ERRORS?
8%
:NO=-=-BRANCH

RO,9#F ILRAN

000200

(OMPARE

;GET

JSR
RE TURN

100374

DATA

;NO=-=-BRAN(CH

SFDTADPB+10,Q#SEC.DS

.
:

:1ST

SFDTADPB+12.,3#CYL.DS

SNEXT 254 WORDS.
JNOTE: THIS ROUTINE

050202
001630

26(SP),RO

RO,@#RANPAT

AND R?

;MAXTMUM NUMBER OF

SECTORS

;TS ROUVINE USES THE FIRST TWO WORDS OF T
;READ BUFFER TO GENERATED A RANDOM PATIERN.
THEN
;THE READ BUFFER 1S COMPARED YO THE PATTERN GENERATED.

;NOTE:

THIS ROUTINE DESTROYS RY-R&

JSR

JCALL
:

RETURN

FROM

(R1)+,Q#88DDAT
(R3)+,a#8GDDAT
(sP)

MoV

;BE THE BASE OF

012701
013702
004037
005302

TO (ONTINUE

SeQ 0137

:ADDRESS
:RECONSTRUCT THE BAD WORD
:SAVE THE ERROR INFORMAT]ION

S#DTADPB+11,38TRK.DS : TRA(K

ERROR

141

2% ,R5
=(R3),=(R1)
R1,3/88DADR

;THIS ROUTINE WILL
:A RANDOM PATTERN.

.CALL

:FORM ADDRESS

MOvVB

Mmov

6%:

:WORD NUMBER

MovB

5%:

PAGE

BNE

MoV

001206

SUB
ASL

MOv
MOv
181

000020

000115

#BUFFER,RG

ADD
ADD
mov

001122
001120
001126
00112¢4

004176
004175
006174
000026
031032

SUB

A>R

13:59

RO, SFRAN(K

7148
7149
7150
7151
7192
7153
7154
7155
7156
7157
7158

7159

7160
7161
7162
7163
7164
7165
7166

7167
7168

7169

7170

IANA
IARY:
717%
7174
7175
7176
7177
7178
7179
7180
7181
7182
7183
7184
7185

004037
012637
012637

200

162322

204

012737

03125

214

224
230
23«
236

010237
010337
012237
012337
010204
162704

001122
001120
001126
001124

031244
031246
031250
031252
03125¢
031256
031264

005716
001002
105116
104015
104016
032777
001012

2764
276
304
06

101406
032777
001002
020103

001402

ALY AV AV AV IV RV IV RV IV RV IV IV JV [V

7146

126
132
136
142
146
150
15¢
162
166
172

1242

1266

(Vo LV RV LV JV RV JV_ RV LV AV ]

7130
7131
7182
713%
7134
7135
7136
7137
7138
7139
7140
7161
7142
7143
7144
7145

VIV IV [V ]V ]V 1V |

| 1
(IRJAD RPOL/5/6 MECHANICAL AND READ/WRITE TEST
MACYYY 30A(1092)
24-MAY-79
CIRIAD P11
28-MAR-79 11:28
vee PROGRAM SUBROUTINES eoe

10
12
16

013746
013746
012702
012701
010103
011237
016237

006206

123737

023724
023726
051202
052202
023726
000002

031324
023726
023724

000200

023724

mov
Mov
Mov
MoV
Mov
Mov
MoV

(LR
SuB
8ta

Mov
ADD
mov
Mov
MOV
MOV
MoV

051202

RZ2,R4

#BUFFER+S12.
R4

001364

001103

000002

1476364

(SP)

001252

sCALL

sGENERATE A RANDOM PATTERN
RESTORE PRESENT RANDOM NUMBER
:NO ERRORS
;ARE THESE TWO WORDS DIFFERENT”
s NO=--BRAN(H
:;ESCAPE TO 3% ON ERROR

sRECREATE THE BAD WORD
;ADDRESS OF
;ADDRESS OF
;BAD DATA
;GOOD CATA

BAD DATA
GOOD DATA

:FORM WORD NUMBER

10 256)

ERROR

;REPORT

:YES==-SET

;REPORT

ERROR

THE
THE

SW]TCH

ERROR
ERROR

;LOOP ON ERROR?

;STOP

5%
R1,R3
1%

(OMPARING?

s YES==BRANCH
JALL DATA BEEN (COMPARED?
sNO=-=-BRANCH

(SP)¢

:ERROR OCCUR?

:NO=-=-BRAN(H

JIBYPASS,RO
RO

MOV
RTS

THE

RANDOM NUMBER GENERATOR

#5w01,35uR

;THIS ROUTINE
;OF

INTO R3 FOR LATER USE

THE

5¢
:YES=-=BRANCH
SVERR.CT,QNSERFLG ;MAX. ERRORS OCCURRED?
5%
;YES=--BRANCH

BIT

JPATTERN OF

:FIRST

BNE
(Mp
Bl
151
Bta

6%:

;PRIME

;NO=-=BRAN(CH

#5W09,a5uwR

BIT
BNE
(mMPB
BLOS

5%:

SEQ 0138

PRESENT RANDOM NUMBER

(SP)

(omB
ERROR
ERROR

4%:

THE

142

BNE

147654

;COPY

-(R3),-(R?2)

ASk
181

001000

R1,R3

R2.9#$BDADR
R3,348GDADR
(R2)+,308BDDAT
(R3)+,a#8GDDAT

SuB

2%:
3%:

;SAVE

(R2) ,@#SLONUR
2(R2) ,a#SHINUM
RO,@#RANPAT
(SP)e+ ,@#SLONUM
(SP)+ ,@FSHINUN
=(SP)
(R3)+,(R2)+
3
”3% ,SESCAPE

JSR

001206

SISHINUM,-(SP)
,
= (SP)
S#SLONUM

PAGE

SBUFFER512.
,R2 ;READ BUFFER ADDRESS
SBUFFER*1024.
,R1 ;RANDOM PATTERN ADDRESS

Mov
mov

1$:

101333
005726

013700

RANCK:

13:59

;TAKE

JEXTT

ERROR

EX]T

FILLS A 256 WORD BUFFER WITH A RANDOM

WHICH

THE

FIRST

TWO WORDS

ARE

THE

BASE

PATTERN.
MOV

JSR

#ADR R
RO,a#RANPAT

;ADDRESS OF

THE

BUFFER

R2,=(SP)

:SAVE

;GENERATE

256 WORDS

PC,8#8RAND

;OENERATE

A RANDOM NUMBER

+DONE?

RETURN

031324
031326
031332
03133«

031340
031344
031350

010246
012702
000402
004737

013721
013721
005302

000200
023626
023726
023724

RANPAT: MOV

MOV

1§:
2%:

8R
JSR

Mmov
MOov

DE(

5556./2.,96
SFSLONUM, (R1)e
SFSHINUM, (R', ¢

;PUT LOW WORD IN BUFFER
PUT HIGH WORD IN BUFFER

J 1

MACYIY 30A(1052)
24-MAY=79
CIRJAD RPOL/S/6 ME(HANICAL AND READ/WRITE TEST
*+e PROGRAM SUBROUTINES wee
CIRJAD P11
28-MAR-79 11:28

7205
7206
7207
7208
7209
7210
7211
7212
7213
7214
7215
7216
7217
7218
7219

7220

7221
7222
7223
7224
7225
7226
7227
7228
7229
7¢30
7231
7232

7233
723%

7¢35
7230
7237

7238
7239
7240
7241

031352
0313%¢
031356

003370
01260¢

BGT

MOV
RIS

000200

1%
(SP)+,R?
RO

PAGE

143

;NO=--BRANCH
:RESTORE R?

SEXIT

:THIS ROUTINE GENERATES RANDOM CYLINDER, TRACK, AND SECTOR

;ADDRESSES AND SAVES THEN IN THE DPB (DTADPB+10 AND DTADPB+12).
:NOTE: THIS ROUTINE DESTROYS R1-R3
; CALL
.
031360
031364
031370
031374
031400
031402
031404
031410
031412
031414
031416
031420
031422
0314624
031430
031432
031434
031436
031440
031444
031446
031450
031452
031454
031456
031460
031402
031464
031466
031470
031472
[(CAVIYVIYY
W RV IV AV V. LV LV 1V ]

7186
7187
7188
7189
7190
7191
7192
7193
7194
7195
7196
7197
7198
7199
7200
7201
7202
7203
7204

13:59

004737
113701
113702

013703
105701

002403

123701
103003
000261
106001

023626
023726

023727

023724

001630

1%:

105702

000772
023703
003413
000241
006003
005503
001371
010103
000303
060203
005203
003364
005403
000762
023703
002003
000241
006003
000772
023703

1%:

2%:

000772

002403
122702
003003
000241
106002

RANADR:

000023

A ¥

5¢:

001510

6%:

JSR

RO,8FRANADR

ISR
MOvB
MOovB
MOV
1S18

P(,afSRAND

RE TURN

BL1

(MPB
BHIS

RORB

1518
BLT
(MP8

BGT
(e

RORB

BR
(Mp
BLE
e

R
af$LONUM,
afSLONUM+
1 ,R?2
SFSHINUM,RY

;FORM SECTOR IN R1
;FORM TRACK IN R?
;FORM CYLINDER IN R3

2%
2
,R]
PRMLMT+2
3%

;(HECK MAXIMUM SECTOR ADDRESS

R1
1%
R2

;ENSURE THE SECTOR IS BETWEEN O AND 21

SENSURE THE TRA{K 1S BETWEEN O AND 18

#9,,%°

6%
R2
6%

INFL RS
7%

SENSURE THE CYLINDER IS BETWEEN FC AND t(

RCR
AD(

BNE

Mov

SWAB
ADD

INC
8G1

NEG

001512

001510

7%:

BR
(mp
BGE
Lc
ROR

BR
(MpP
BLE

3NFC,R3

INC

37
37
00

;GENERATE A RANDOM NUMBER

004174
006175
004176

9%:

SWAB
BR
Movs
MOvVB
MOV
RTS

9%
R3

R3
7%

R1,9#DTADPB+10
R2.,3#DTADPB+11
RS,S!DYADPB‘\Z
R

sSAVE SECTOR ADDRESS
sSAVE
:SAVE

TRACK ADDRESS
CYLINDER ADDRESS

;RETURN

SEQ 0139

CIRJAD RPO4L/S5/6 MECHANICAL AND READ/WRITE TEST
MACYIY1 30A(1052)
24=-MAY=79
t+e
PROGRAM
CIRJAD.PIY
28-MAR-79 11:28
SUBROUTINES vve
7242
7243
7264
7245
7246
72647
7248
7249
7250
7251
7252
7253
7254
7255
7256
7257
7258

7259

7260
7261
7262
7263
7264
7265
7266
7267
7268
7269
7270
7271
7272
7273
7274
7275
7276
7277
7278
7279
7280
7281
7282
7283
7284
7285
7286
7287
7288
7289
7290
7291
7292
7293
7294
7295
7296
7297

13:59

PAGE

144

:THIS ROUTINE 1S USED TO INPUT THE '‘CONTROL SWITCMES'
.
;1F

SWR<O7>=1

THE PRESENT

SETTING WILL BE

TYPED AND THE NEW

SSETTING 1S READ AND STORED.
: THIS ROUTINE DESTROYS R3 AND R4
;NOTE

s CALL

031542
031550
031552
031556
031600
031600
031604
031610
031614
031616
031620
031626
031632

032777
001430
104401

000410

012703
013704
006037
000771
000240
013737
010437
000207

000200

147370

GETSWR:

03156C

PC,a#GETSWR

BIT
8ta

#5W07 ,3SuWR

T1YPE

;:65%:

64%:
1%:

043216
001220
031634
001220
001220

JSR
RETURN

BR
ASCIZ
MoV
MoV

JSR
BR
NOP

001222

MoV
MOV
RTS

2%:

2%
,65%
649
<CROCLF>/SET

; (C.SWR)=DESIRED CONTROL SWITCHES

;READ (CONTROL SWITCMES?
;NO-=BRANCH
;s TYPE ASCIZ

STRING

::GET OVER THE
SWR<07>=0/

#MSG.CS,R3
a¥(.SWR,RG
RO,3#GE TNUM
1%
C.SWR,SAV(SW

R4 ,aN(.SWR
PC

;"'CONTROL
;PRESENT

ASCIZ

SWITCHES="'

CONTROL

SWIT(H SETTINGS

;GET THE NEW SWITCH SETTINGS
; COMMA
;PERIOD
:SAVE PREVIOUS vALUE
. DOUBLE PERIOD=-SAVE NEW SWITCH SETTING

sRETURN FROM CALL

;THIS ROUTINE WILL TYPE AN ASCIZ MESSAGE AND THEN
:INPUT

AN ASCIZ

;NOTE:

THIS ROUTINE

;1F

REQUIRED.

s CALL

MoV
MOV

STRING AND C(HANGE

THE

STRING

TO OCTAL

DESTROYS R1

#ADR,R3
INUM R4

RO,3#GE TNUM
JSR
RETURNI
RE TURNZ
RETURN3

;ADDRESS OF ASCI1Z
;OCTAL NUMBER

;INPUT

MESSAGE

TERMINATED WITH A (OMMA

:WlTH A PERIOD
;WITH A DOUBLE PERIOD
:R4=INPUT NUMBER AND

;R2=R4*32 FOR ALL
; THREE

031634
031640
031642
031644
031646
031650

031654
031656
031660
031664
031666

010337
104401

031642

2%:

000000
010446
106402
104401
106411

012601
004037
031640
031640
031702
031726
031734
031700
005301

GETNUM:
1%:

043364
034104

MOV
TYPE

.WORD

MOV
1YPOC
TYPE
ROLIN
MoV

JSR
1%
1%

R3,2%
0

R&,=(SP)

.SUASH

(SP)+,R1
RO,a#(K.CHR

;SAVE MESSAGE POINTER

:TYPE

THE

¢READ

AN ASCIZ

MESSAGE

;MESSAGE POINTER GOES HERE
;s SAVE R4 FOR TYPEGUT
:569 IYPE--OCTAL ASCIIC(ALL DIGITS)
STRING

;ADLRESS OF FJRST CHARACTER
;CHECK ONE (HARACTER
¢ ILLEGAL CHARA(TER
sCARRIAGE RETURN
.lO/OO

[

8¢

1%
DE(

RETURNS

[4
LE B

)

‘DiGIT 0-9

"DECREMENT THE

INPUT POINTER

SEQ 0140 |

L N

MACY11 30A(1052)
24=-MAY=79
CIRJAD RPO4L/S/6 MECHANICAL AND READ/WRITE TEST
t+* PROGRAM SUBROUTINES #ee
CIRJAD P
28-MAR-79 11:28

~N -~ NNNNNNNNN
[V V] WRUNINI
A =t b b

7300
7301
7302
7303
7304
7305
7306
7307
7308
7309
7310
7311
7312
7313
7316
7315
7316
7317
7318
7319
7320
7321
7322
7523
7324
7325
7326
7327
7328
7329
7330
7331
7332
7333
733¢,
7335
7336
7337
7338
7339
7340
7341
7362
7343
7344
7345
7346
7347
7348
7349
7350
7351
7352
7353

Hrno OO rNNOOSNO

7298

7299

004037
031640
031722
031720
031716
005720
005720
010204
000414
105711
001343
000411
105711
001406
12¢721
001335
105711

034344

6%
5%

Mov

7%:

1518
BNE
BR
1518
BEQ
(MPB

000056

006202
006202
000200

145

THE NUMBER

s CHECK

; ILLEGAL INPUT
;TERMINATED WITH A '','" OR "'(R"

;DOUBLE PERICD
;SINGLE PERI]OD

; COMMA-=SAVE INPUT NUMBER
.60 TO EX]T

;TERMINATOR AFTER

:NO--L00P

sYES--EXIT

;TERMINATOR AFTER

JYES--EX]T

A (OMMA?

A PERIOD?

;NO--DOUBLE PERIOD?

;NO--LOOP

;YES=-TERMINATCR?

1518
BNE
151
181

:NO--LOOP
:DOUBLE PERIOD

;PERIOD

. COMMA--POS]ITION THE
;NUMBER IN (ASE 17

Mov

SWAB
ASR
ASR
ASR
RTS

;1S THE PRIORITY LEVEL
SEXIT

sTHIS ROUTINE 1S USED
:THE TEST PARAMETERS.

TO CHANGE

OR MODIFY

IT GIVES THE OPERATOR

;THE CAPABILITY OF SPECIFYING WHICH DRIVES TO TEST,
;TESTS TO RUN AND HOW MANY TIMES TO

031772
031774
032000
032004
032022
032022
032024
032026
032032
032034
032036
032040
032042
032044
032046
032050
032050
032054
032060
032062
032064
032066

104412
005037
104401

000406

001272
032006

1046411

012601
004077
031774
031774
031774
031774
031774
032046
005301

012702
004037
031°7¢4
031774
032072
032116

;REPEAT

EACH

GT.PRM:
GT.PR1:

SAVREG
(LR

::65%:

BR
.ASCIZ

64%:

034104

000007
034160

WHI(H

TEST

TYPE

ROLIN
MOV

JSR
G1.PRI
GT.PRI
GT.PRI
GT.PR1
GT.PR1

;:TYPE

ASCIZ

STRING

;:GET OVER THE ASCIZ

<CRO<LF>/DRIVE(S)=/

;READ

R
(SP)+

RO,a#CK.CHR

TTyY

;ADDRESS OF ASCIZ STRING
;CHECK ONE CHARACTER
s ILLEGAL C(HARACYER
:CARRIAGE RETURN
.'./ll

MOv

¥7,R2

G1.PRIY
3%

:NO DRIVE SELECTED

,65%
649

JSR
GT.PRI

:SAVE RO - RS

DRVSEL

1%
DEC

SEQ 0141

;TERMINATED WITH A "7

BNE

9%:
10%-

PAGE

;TERMINATED WITH A *."

6%
151
151

6%:

8%:

001333
005720
005720
010402
000302
006202
031770

RO,3#(K .NUM

ISR
1%

13:59

DiGIT 0-9
:UPPER LIMIT OF INPUT
;CHECK THE DIGIT(S)
:ILLEGAL INPUT
s INPUT TO LARGE

RO,e8#C(K.DIG

;TERMINATED WITH A '','" OR "'(R"
;TERMINATED WITH A "Y'

n
CIRJAD RPO4L/5/6 MECHANICAL AND READ/WRITE TEST
MACYI1 30A(1052)
24-MAY-79
CIRJAD.PIY
vee PROGRAM SUBROUTINES wer
28-MAR-79 11:28
7354
7355
7356
7357
7358
7359
7360
7361
7362
7363
7364
7365
7366
7367
7368
7369
7370
737N
7372
7373
7374
7375
7376
7377
7378
7379
7380
7381
7382
7383
7384
7385
7386
7387
7388
7389
7390
7391
7392
7393
7394
7395
7396
7397
7398
7399
7400
7401
7402
7403
7404
7405
7406
76407
7408
7409

032116

032070
032072
032100
032102
032104
032110
032114
032116
032124
032126

000405
156237
106413
000207

032130
032130
032134

104401
000403

032144
032144
032146
032150
032154
032156
032164
032166
032172
032174
032200
032204
032210
032214
032220
032222
032230
032232
032236
032240
032246
032250
03225¢
032256
032264
032266
032272
032274

156237
105741

001362
005037
005037

034620

001232

122711
001007
122761

001003
105761
001754
005037
005037
005037
005037
121127
001094
052737
000552

034620

001232

000056

00005¢
000002

001234

001340
000155
000777

121127
001004
052737
000534

000101

001004
052737
000525
121127
001004

052737
000516
004037
000514
010205
005201
004037
000405
005201
006305

000001

036000

140000

001234

000104
000001

001236

000105
000002

034030

001236

1S1B

146

=(R1)

SFTSTINMS
TSTNMS+2

;WAS

THE

LINE

TERMINATED?

sNO-GET THE NEXT DRIVE

sDESELECT ALL TESTS

RTS

JEXIT

TYPE
BR
.ASCIZ

,65%
643

;:TYPE ASCIZ STRING
::GET OVER THE ASCIZ

ROLIN
MoV

(MPB
BNE
CMPB
BNE
1518

8tQ
1%:
CLR
CLR
CLR
CLR
GTT1ST2: (CMPB
BNE
BIS
BR
1%:
CMPB
BNE
BIS
BR
(MPB
2%:
BNE
B1S
BR
1%
CMPB
BNE
BIS
BR
4%:
(MPB
BNE
BlS
BR
5%:
JSR
BR
INC
JSR
BR
INC
ASL

SEQ 0142

;TERMINATED WITH A *',."
ATABIT(R?2) ,DRVSEL ,SET THE DRIVE SELECTED BIT

sYES=<-SELECT TEST

MoV

034030

PAGE

CITSTHY

GT.PRZ: RESREG

5:659%:
64%:

00012¢4

121127

BNE
(LR
CLR
BR
BISB

GITST1:

032136

121127
001004

052737
000543

4%
BISB

001234
001236

104411

012601

3%:

13:59

ATABIT(R2) ,DRVSEL

/TEST=/

(SP)+,R1
"L (RY)
1%
LR
1%

2(RY)
GY.PR2

TSTNMS
TSTNMS+?
OPNFLG
OPNFLG*?2
(R1),4'S
19
#777,TSTNMS

GTTST3

,SET

THE

SELECTED DRIVE BI'S

;RESTORE RO - RS

;READ AN ASCIZ STRING
;POINTER TO R1
;:DOUBLE PERIOD?
:NO--BRANCH

JUCR'T?
SYES--EX]T
¢NO TEST

SELECTED

:NO TESTS

TO BE OPENED

sALL SEEK

TESTS?

:NO=--BRANCH
sYES==SELECT

TESTS 0-10

(RV) , #'7
2$

¢ALL TIMING TESTS?
s NO-=BRANCH

(R1),#'A

sALL ADDRESSING TESTS?

#140000,TSTNM

;YES=-SELECT

(R1),#'D
4%

;DATA TEST?
;NO=-=-BRANCH

z%?g?g.TSTNHS
3%

G1T1ST13

#1,TSTNMS+?2
6171513
(R1),#°'E

5%
#2,TSTNMS+2

ARERE)

sYES==SELECT TESTS 12-15
;NO==BRANCH

JEXERCISER TEST?
:NO=--BRANCH
;YES==SELECT

;OCTAL DIGIT?
:NO=-BRANCH

;MOVE

RO,9#(k.0OCT

6%
R

16 &

sYES==SELECT TEST 20

RO,a#(x.0CT
GT1ST4

RZ.,RS

TESTS

JYES-=SAVE

TO NEXT

;OCTAL DIGIT
;NO=-=BRANCH
sMOVE

sSCALE

TO NEXT

TEST

(HARACTER
(HARACTER

HIGH DIGHT

CIRJAD RPOL/5/6 MECHANICAL AND READ/WRITE TEST

7438

7439
76440
7661
7442
7643
7444
7445
7466
74647
7448
7449
7450
7451
7452

7453
7454

7455

7456
7457
7458
7459
7460
7461
7662
7463
7Lbb

7465

006305
006305
060502
020227
003263
010237
010204
042704
006204
006204
006204
006302
056264

032466
032470
032472
032476
032502
032506
032510
032512
032516
032520
032522
032524
032526
032534
032540
032544
032546
032552
032554
032556
032560
032564
032566
032572
032574

002220
010246
013702
012637
006337
006302
010204
042704
006204
006204
006204
006204
056264
062702
020237

121127
001060
005201
004037
000640
010205
005201
004037
000405
005201
006305
006305
006305
060502
020227

003223
023702

101761
162702

000402
000000
005201
121127
001441

005737
001005
005737

MACY11 30A(1052)
ASL
ASL
ADD

6%:

000022

cmp
8G1

03255¢

Mov
Mov

000017

001424
000055

BiC
ASR
ASR
ASR
ASL

00123«

034030

(Mp

8%:

000037

001424
000002
032554

ASR
ASR
BIS
ADD
(mp

BLOS
SuB

000056
001234

001236

9%:
6GTT¢

G1T1S

;CLEAR
;SHIFT
;SHIFT
;SHIFT

SVALID TEST NUMBER?

;SAVE THE TEST NUMBER
;CONVERT TEST NUMBER INTO AN INDEX
UNWANTED BITS
THE BITS
THE BITS
THE BITS

GTTST4
R1
RO, 9#(K.0CT

:NO==BRANCH
sYES=--MOVE TO NEXT CHARACTER
;OCTAL DIGIT?

R2.RS
R1

;YES==SAVE 1T
;MOVE TO NEXT CHARACTER

RO,a#CK.0CT
7%
R1
RS
RS
RS
RS,R2
RS, #STN-1

GTTIST

ASR
ASR

000002

#17,R6
R&
R&
R;

R2,9%
R2,R&

BGE

BIC

001234

:NO--BRANCH

GITST
9% .R2

MOov
MOV
MoV
ASL
ASL
MOV

032554
032554
03255¢4

GTTISTI

cmp

BG1

032556

;COMBINE HIGH & LOW DIGITS

R2,#STN-1

GTTISTH

ASL
ASL
ASL
ADD

BR
.WORD
INC

(MPB
BEQ
151
BNE
TS1

SE0 0143

RS,.R?

INC
JSR
BR
INC

7%:

PAGE 147

;SELECT TEST
BITS(R2),TSTNMS(RG)
(RY) ,#°';TEST STRING?

MoV

034030

RS
RS

13:59

BIS
(MPB
BNE
INC
JSR

000022

24-MAY-7y

PROGRAM SUBROUTINES eee

—

7621
7622
7423
74624
74625
74626
7627
74628
74629
7430
7431
7432
7433
7634
7435
7436
7437

032346
032350
032352
032354
032360
032362
032366
032370
032374
032376
032400
032402
032404
032612
032416
032420
032422
032426
032430
032432
032434
032440
032442
0324446
032446
032450
032452
032454
032460
032462

ve+

—

7610
76411
7612
7413
7614
764195
76416
1617
7418
76419
7620

28-MAR-79 11:28

PRV]

CIRJAD.PIT

R2.,=(SP)
9% ,R2
(SP)+,9%
9%

R2
R2,R4
#37,R6
R&
R&
R&
R&

:NO--BRANCH

;OCTAL DIGIT?
:NO=--BRANCH
;YES--MOVE TO NEXT (HARACTER
:SCALE HIGH DIGIT

,COMBINE HIGH & LOW DIGIT
;VALID TEST NUMBER?
;NO--BRANCH
;1S THE FIRST NUMBER OF THE
;STRING SMALLER THAN THE LAST?
:NO-=BRANCH

;SAVE ENDING TEST NUMBFR

;GET STARTING TEST NUMBER
;STORE ENDING TEST NUMBER
;SHIFT ENDING TEST NUMBER
;SHIFT TEST NUMBER
;COPY TEST NUMBER INTO R&
;CLEAR LOWER BITS
;SHIFT THE TEST NUMBER
;SHIFT THE TEST NUMBER
SSHIFT THE TEST NUMBER
SJSHIFT THE TEST NUMBER

BITS(R2),TSTNMS( R4)
N2 ,R2

R2,9%
8%
"2 ,R2
GT1S14
0
R1
(R1), 0,

GTTSTS

TSTNMS
1%
TSTNMS+?

;SELECT

THE

TEST

;INECREMENT THE TEST NUMBER
;SEE IF FINISHED
;BR IF NOT
;CORRECT TEST NUMBER
s CONTINUE
;STORE TEST NUMBER HERE
;MOVE TO NEXT CHARACTER
;""PERIOD""?

s YES==BRANCH
SANY

TEST

SELECTED

THIS CvCLE?

JANY

TEST

SELECTED

THIS

;BR If

YES

(Y(CieE

812
26-MAY=79

CIRJAD RPOG/5/6 MECHANICAL AND READ/WRITE TEST
MACYT1 30A(1052)
CIRJAD AR
vee PROGRAM SUBROUTINES eve
28-MAR-79 11:28

7666
7667
7668
7669
7670
7671
7672
7673
7676
7675
7676
677
7478
7479
7480
7481
76482

7483
7484
7485
76486
7487
7488
7489
76490
7491
7492
7493
7494
7495
7696
7497
7498
7499
7500
7501
7502
7503
7504
7505
7506
7507
7508
7509
7510
7511
7512

7513
7514
7515
7516
7517
7518

7519
7520
7521

032600
032602
032606
032612
032614
032622
032624
032630
032632
032636
032640
032642
032644
032650
032654
032656
032662
032664
032670
032672
032676
032700
032702
032704
032710
032714
032716
032722
032724
032730
032732
032734
032736
032742
032746
032750
032754
032756

001002
000137
121127
001004
056264
000405
121127
001402
000137
005201
105711
001402
000137
005737
001042
005737
001037
000137
005201
121127
001414

105711
001402

000137
005737
001022
005737
001017
000137
005201

032130
000057
001424

1%:

001240
2%:

00005¢

032130

1%:

032216
001240

001242
032130

GTTSTS:

000056

001242

032124

GTTSTG:

032130
001240

1%:

001242

032124

(RV), 8%/
23

:"'OPEN'"?
;NO==BRANCH

;NO

g{YS(RZ). OPNFLG(RG)

:YES==SET BITS FOR

;MOVE TO NEXT CHARACTER

8tQ
JMP
151
BNE

3
G112

;BR If '(R’
:ND=-=GO GET

BNE
JMP
INC
(MPB
8taq

OPNTST
GTTSTY
R1

1518

JMP
1§71
BNE
181
BNE
JMP
INC
1518
BEQ
JMP
157

BNE
181
BNE
JMP

3%
GTTST
(R1)

OPNFLG
OPNTST

OPNFLG+2

:BR IF
:NO

:ANY
;BR

CHARACTER

TESTS TO OPEN ?

YES

;ANY TESTS TO OPEN ?

:BR If YES
:NO--START AGAIN
;MOVE TO NEXT (HARA(CTER

OPNILG*?2

;ANY TESTS T0 OPEN ?

OPNTST

;ANY TESTS
:BR IF YES

OPNTST

;BR

TO OPEN

YES

:NO--GO START

R1
(R1)
1%

;MOVE TO NEXT
;R
: YES--BRANCH

OPNFLG
OPNTST

:ANY TESTS
:BR If YES

OPNFLG*2
OPNTST

GT.PR2

TO OPEN

:"'PER1OD'"?
: YES--BRANCH
JUCR'
s YES==-BRANCH

GTTSTY

TEST

YES

(RV),#°,
G11ST6
(R1)
1%
GTTSTY
OPNFLG

GT.PR2

SEQ 0144

YES

Bta

1$:

;BR

148

:"COMMA""?

1518

032130
001240

6TTISM

PAGE

(R, 0,

151

105711

001402
000137
005737
001005
005737
001002
000127

BNE
JMP
(mPB
BNE
BIS
BR
(MPB
8tQ
JMP
INC

13:59

TESTING

CHARACTER

:NO==GO ASK FOR TEST

TO OPEN ?

;ANY TESTS T0 OPEN ?
:BR

YES

:NO==-GO START

TESTING

;OPEN THE SELECTED TEST FOR CMANGES
032762

032764
032766

032770
032772
032776

OPNTST:

106412

005027
000000
00041
005237
022737
002003

OPN.(CT:

032766

OPN.1:

1064413

000137
013705
006305
013703
042703
006203
00620%

SAVREG
CLR
.WORD
BR
INC
(mMpP
BGE
RESREG

OPN.2:

JMP

MOv
ASL
Mov

ASR
ASR

(PC+

0
OPN.2

OPN.CT
#OTN-1,0PN.
(T

OPN.2

G1ISN
OPN.CT,RS
RS
OPN.CT,R3

#7,R3
R3
R3

;SAVE RO - RS

STARY WITH TEST O
; COUNT STORED HERE
;SKIP THE INCREMENT
;MOVE TO THE NEXT TEST
;TEST

NUMBER

T00 BI1G?

;NO=--0PEN THE NEXT TEST
;RESTORE RO - RS

;YES==GO ASK FOR MORE TESTS
JSETUP 10 USE THME
:TEST NUMBER AS AN [INDEX
sGET INDEX
;CLEAR LOWER TESY BITS
JSHIFY
JSHIFT

TEST NUMBER
TEST NUMBER

TETs
@

(8 P4

CIRJAD RPO4/S5/76 MECHANICAL AND READ/WR]TE TES!
RACYT1 30A(1052)
26-AAY=-T79
CIRJAD P
ese PROGRAR SUBROUTINES eee
28-MAR-79 11:28

7556

7557

7558
7559

OO0

006203
036563
001751
104601

000404

013746

ASR

001240

033056
:
648

032766

V.3

PON)
et s O o~
O
OSSO o

001235
001536

012702

001504

il
il
—

033124
2%:

013716

001504

OPNPRM:
1%:

2%:

001606

016437

016446
004737
004737

7566
7567
7568
7569
7570
7571
7572
7573
7574
7575
7576
7577

004037

044330
001636

043214
001506
023336
023566
043364

3% :

;. TYPE

ASCIZ

MOV

OPN.(T1,=-(5P)

::SAVE OPN.CT

BR
ASR
BCS
BEQ
187
BR
MOV
BR
MOV
CLR
ASR

BCS

BEQ

TST

B8R
187

/7 TEST /

2
0
JOSCRLF
PRMPT (RS) ,RO
(RO),=-(SP)
S:RH.RZ

ASC!I

sTYPE 2 DIGIT(S)
;. SUPPRESS LEADING CEROS
;TYPE (R B ''LF"
:PICKUP PARAMETER POINTER
;SAVE THE VARIABLE INDICATOR
ADDRESS OF

(SP)

;CHECK

FOR A VARIABLE

OPNPRM
%22)0

; DONE
:BUMP THE

(RO)+,(R2)¢
1%
afPRM, (SP)
R4

;60 MOVE

:CHECK

OPNPRM

;0UT

§24)0

TABLE

THIS ONE

POINTER

;MOVE THIS VARIABLE INTO THE
;COMMON ARLA
:GET THE VARIABLE INDICATOR
:IERO THE INDEX

(SP)

;60 GET
OF

;UPDATE

FOR A

VARIABLE

VARIABLES

THE

INDEX

;1S THE MAX. MAGN]ITUDE NEG?
JYES-=~THEN [T IS THE PATTERN

MOV

PRMMSG(R4G) ,49%

;TYPE THE NAME OF

.WORD

TYPE

TYPE
MOV
JSR
JSR
TYPE

,MSG.SP

,MSG.EQ
RPT(R4) ,-(SP)

;s TYPE

SPACES

,SLASH

(SP)+ R

sREAD

PC,aNsSB2D
PC,afSSUPRS

RO,3#C(K.(HR

;TYPE

AN ASCIZ

; ILLEGAL CHARACTER
;CARRIAGE
:IC/..

:.".l

6%
7%

L
;D1GIT 0-9

B8R
1STB
BNE

(R1)
b3}

%
(R1)
649

STRING

sCHECK ONE CHARACTER

S‘

1518
BNE

THIS VARIABLE

"=
)
sPUT RPT(R4) ON THE STACK
:CHANGE RPT(R&4) TO DECIMAL ASCIZ
;TYPE WITHOUT LEADING ZEROS
;Y1

OOOOO WM

;.60 TYPE--OCTAL

;FIRST

6%:

FOR TYPEOU!

NUMBER

PRMLMT (R4)
OPNPAT

JSR

5¢:

:;TEST

STRING

BM]

RDLIN
MOV

034104

,65%

::;GET OVER THE ASCIZ

TYPE

033176

TEST NUMBER

64%

LASCIZ

MOV

1%:

JSHIFT

B8R

.BYTE
.BYTE
TYPE
MoV
MOV

(W AV AV LV LV RV

016500

BITS(RS),OPNFLG(RY)
;OPEN THIS TEST?
OPN.1
;NO=--MOVE TO NEXT TEST

TYPE

;.65%:

149

BIT
BEQ

TYPOS

7560
7561
7562
7563
7564

7565

001426

L
NN AN LN NN N NN

OCOOO0OO0OO0OO0OO0O0O0

7522
7523
7524
7525
7526
7527
7528
7529
7530
7531
7532
7533
7534
7535
7536
7537
7538
7539
7540
7541
7542
7543
7544
7545
7546
7547
7548
7549
7550
7551
7552
7553
7554
7555

PAGE

13:59

RETURN

JUCRTMY
:NO==STAY ON THIS VAR]ABLE
JYES=--MOVE 10O NEXT VARIABLE
;1S THERE A "'CR'" ARTER THE PERIOD?
:NO

SEQ 0145

D12

MACY1Y 30A(1052)
2&=MAY-79
CIRJAD RPO4/5/6 MECHANICAL AND READ/WRITE TEST
CIRJAD P
28-MAR-79 11:28
tee PROGRAM SUBROUTINES eee
NN = =2 OO OO NN~
snooonnoo
oo

b at s et e ot et Y d Nl L IV TV TV TV
[TV TV IV TV TV TV IV TV T
TV T T
A VT v
VAV IV IV VAV TV TV 9T 91 6T ¢

7591
7592
7593
7594
7595
7596
7597
7598

OO0O0O0O0OO0OOOCOO0O0O0O0O

7589
7590

033262

N o

7578
7579
7580
7581
7582
7583
7586
7585
7586
7587
7588

000137
122721

001330

033676

000056

66%:

105711

001326
000137
005301

7599
7600
7601
7602
7603
7604
7605
7606

033714

7$:
8%:

Mov

3%
b3 )

9%
OPN.NI
OPN. X1

001506

9%:

MoV

044330
043210
063214
001506

OPNPAT:

TYPE
T1YPE
TYPE
mov
T1YPOC
TYPE
ROLIN
MOV
JSR
OPNPAY
OPNPRM

0341C4

000056

1518

PRMLMT (RL) ,R2
RO,3#(x.DIG

005301
004037
033336
033446
033672
033710
010264
006002

034344

001506

103227
106412

033466
033472

005000
012704

003104

104401

033474

000403

2%:
3%

R2.RPT(R&)
2%

Mov

OPNWDS:

BCC
SAVREG
CLR

1¢:

;1659

ROR

MOv

TYPE

BR
ASC12

:TERMINATED WITH A '',."
:SAVE

THIS

VARIABLE

:MOVE TO NEXT VARIABLE
:TYPE SPACES

MSG.SPe

:TYPE ONE SPACE

RPT(RG) ,-(SP)

(SP)+,R1
RO,9#CK.CHR

::SAVE RPT(R&) FOR TYPEOUT
::G0 TYPE=-=0CTAL ASCII(ALL DIGITS)

;READ ASCI2 STRING
;PICKUP POINTER
;CHECX ONE CHARACTER

:1LLEGAL CHARACTER

:CARRIAGE RETURN
:IO/lI

.ll

;01617 0-9

(R1)

OPN. X2

;UPPER LIMIT OF INPUT
;CHECK THE DIGIT(S)
:ILLEGAL INPUT
:INPUT TO LARGE

:TYPE "'PAT’
;TYPE *'=*

BEQ
BR
DEC

OPN. X1

THE POINTER UF BY ONE

.MSG.SP
MSG.PAT
,MSG.EQ

OPN.NZ

JSR
OPNPAT
6%
OPN.N1

AGAIN

:TERMINATED WITH A """ OR ''(R"’
TERMINATED WITH A '

BEQ
(MPB
BNE

1518

SEQ 0146

;YES==GO CLOSE THMIS TEST
;D0UBLE PERIOD?
:NO=-=G0 ASK FOR TH]S VARIABLE

;BACK

1%:

150

:NO==ASK FOR THIS VARIABLE
S YES-=-CLOSE ALL TEST

3%
OPNPRM

7607

PAGE

;YES==1S A "'CR' AFTER THE DOUBLE PERIOD?

BNE
JMP
DEC
JSR

044331

7608
7609
7610
7611
7612

7613
7614
7615
7616
7617
7618
7619
7620
7621
7622
7623
7624
7625
7626
7627
7628
7629
7630
7631
7632
7633

OPN.N2
' L(RY)e

1S18

001606
036160

330

JHP
(MPB
BNE

13:59

#'.,(R1)+
OPNPAT
(R1)

;UCR'" AFTER THE PERIOD?

sYES--GO CLOSE
;NO=-=-PERIOD?

THIS TEST

;sNO=--L00P

;U'CR'" AFTER A DOUBLE PERIOD?
;YES==GO START

sNC=-=-L00P

TESTING

OPNPAT
R

;BACKUP THE ASCII

RO,a#CK.NUM

;sHECKR

POINTER

"HE NUMBER

; ILLEGAL INPUT

sTERMINATED WITH A '',"" OR (R’
R2,RPT(R4L)

R2
OPNPRM

RO
#PATO,RG

,65%
649
/

WD/

;TERMINATED WITH A """
sTERMINATED WITH A ', ."
;SAVE THE

INPUT NUMBER

:OPEN PATTERN (?
:NO==START AT BEGINNING OF

:SAVE RO - RS

sSTART WITH WORD O

;s VYPE ASCIZ STRING
::6GEY OVER THE ASCIZ

PARAMETER

TARLE

E 12
(IRJAD RPO&/S/6 MECHANICAL AND READ/WRITE TEST MACYI1 30A(1052) 24-MAY-79
(IRJAD.PIN
2B-MAR-79 11:28
eve PROGRAM SUBROUTINES ey
7634

033502

7635

033502

010046

7641
7642
7643
7646
76645

033524
033526
033530
033534
03353

104601
012601
004037
033466
033570

7636
7637
7638
7639
7640

7646
7647
76648
7649
7650
7651

033504
033510
033514
033520
033522

0335640
033542
033544
033546
033550
033552

004737
004737
104401
011446
104402

033552
033556

004037
033466

7657
7658

033566
033570

010214
005724

7659

7660
7661
7662

7663
7664
7665
7666

7667

033560
033562
033564

005200

033604
033606
033610
033614

105711
001407
122721
001324

033616

022700
003332
000726

001407
000721
010224
004737
104413
000420
010224

7676
7677
7678
7679

033644
033646
033650
033654

104413
000422
012701
005200

7681
7682
7683
7684

033662
033664
033666
033670

7675

7680

7685
7686
7687
7688
7689

033640

033656

033672
033676
033700
033704
033710

2%:

3%:
4%:
000020

5%:
000056

105711

033620
033622
033624
033626
033632
033634
033636

7668
7669
7670
7671
7672
7673
7674

ROLIN
MoV
JSR
1%
4%

108 :

034344

004737

022700

00240¢
012124
000772
000207

010264
005726
004737
000137
010264

033650

033650
003104

000017

001506
033750
032772
001506

MoV

JSR
JSR
TYPE
MoV
TYPOC

036104

033566
033624
033636

033572

033574
033600
033602

023336
023566
043214

(033552
033570
033604
033550
005301

7652
7653

7654
7655
7656

6493

6%:
7%:

8%:

9%:

2%
4%
5%
10%
DEC

PC.a3#3582D
PC,a¥8SUPRS
,MSG.EQ
(R&) ,=(SP)
(SP)+ R
RO,3#(K.(HR

JSR
1%

RO,a#CK .NUM

MOV
187

R2.(R&)
(R&) ¢

3%
6%
8%

INC

PAGE 151

:PUT RO ON THE STA(K

;CHANGE RO TO DECIMAL ASCIZ
:1YPE WITHOUT LEADING ZEROS
:TYPE ="
::SAVE (R&) FOR TYPEQUT
::60 TYPE-=OCTAL ASCIICALL DIGITS)
:READ ASCIZ STRING
:PICKUP THE POINTER
:(CHECK ONE CHARACTER
;ILLEGAL CHARA(CTER
;CARRIAGE RETURN

A
L
L
;:DIGIT 0-9
:BACKUP THE ASCII POINTER
;CHECK THE NUMBER
;TLLEGAL INPUT

:TERMINATED WITH A *',"" OR "'(R"
:TERMINATED WITH A """
;TERMINATED WITH A *',.."
;SAVE THE INPUT
:MOVE 7O NEXT WORD

:INCREMENT THE COUNT

(MP
BGT
BR

#6.,R0
1%
OPNWDS

;COUNT T0 LARGE?
;NO==BRANCH
; YES--BRANCH

1518

(R1)

:'CR*" AFTER THE ''PERICD-PERIOD'"?

1518
BEQ
(MPB
BNE

BEQ
B8R
o]
JSR
RESREG
BR
MOV

JSR

RESREG
B8R
(LSW’DS: MOV
INC
1%:

(MP

2%:

RO,-(SP)

13:59

BL!
MOV
BR
RS

OPN.N1: MOV
OPN.N2: 157
JSR
JMP
OPN.X1: MOV

(R1)
7%
#'.,(R1)e
1%

9%
1%
R2,(R4)+
PC,asCLSWDS
OPN.N2
R2,(RG)

PC.,aNCLSWDS

(R AFTER THE PERIOD?
;YES==-G0 CLOSE THIS TEST
;:NO-=PERIOD?
:NO--BRANCH ILLEGAL INPUT STRING

;YES==G0 START TESTING
;NO=-=L0OP
:SAVE THE INPUT
:CLOSE THE DATA PATTERN
:RESTORE RO - RS
:MOVE TO NEXT TEST
;SAVE THE INPUT

:CLOSE THE DATA PATTERN

OPN. X2
#PATO,R1

;RESTORE RO -~ RS
:START TESTING
;FIRST ADDRESS OF DATA PATTERN
:COUNT THE LAST WORD THAT WAS STORED

2%
(R1)¢,(RG) ¢
%
PC

JYES--EX|T
:(OPY
;L00P
:RETURN

RO
#15..,R0

RZ,RPT(R&4)
(SP)
PC,CLOSE
OPN.1
R2,RPT(RG)

;END OF TABLE

;SAVE THIS VARIABLE
;CLEAN OFF THE STA(K
sCLOSE THIS TEST
:GO OPEN THE NEXT TEST
;SAVE THIS VARIABLE

SEQ 0147

F 12
MACYI1 30A(1052)
24-MAY-79
CIRJAD RPO4/5/6 MECHANICAL AND READ/WRITE TEST
tee PROGRAM SUBROUTINES eee
CIRJAD PN
28-MAR-79 11:28

005726
004737
005725
020527
002403

7690
7691
7692

7693
7694
1695

104413

7696

7697
7698
7699

7703
7704
7705
7706

7707
7708
7709
7710
7711
7712

7713
7714
7715
7716
7717
7718
7719
7720
7721
7722
7723
7724
7725
7726
7727
7728
7729
7730
77%i
77%2
773%
7734
7735
7736
77%7
7738
773%9
7740
7741
7742

774%
7764
7745

000034

000137
036503
001364
000765

032124

012700
016501
012002
012103
012704
030402
001403
030403
001404

00150¢4
001536

104612

7700
7701
7702

033750

001424

000001

034026

151

2%:

151
(mp
BLT

1%:

CLOSE:

1%:

RESREG
JMP

BI1
BNE
BR
SAVREG

MOV
MOV
MOV
MOV
MOV

BIT
BEQ

(SP)
¢
PC,CLOSE
(RY)¢

RS, #16¢2
3%

C1.PR?
BITS(RS),R3
1%

2%
#PRM RO

PRMPT (RS) ,RI
(RO)+,R2
(R1)+ ,R3
" ,RG
R4 ,R?

BI1

2%:

1%:

MOV

BI1

BEQ
TST

161

ASL

BIT

002000

BEQ

106413

RESREG
RTS

000207

(RO),(R1?

R ,R3

(R1)+
¢
(RO)
R4
#BIT10,R6
19

PAGE

152

:CLEAN OFF THE STA(K
:CLOSE THIS TEST
:UPDATE THE INDEX
:INDEX T0 BIG?
;NO=-=-BRANCH

;RESTORE RO - RS

;60 10 EXIT

;1S THIS TEST OPEN FOR (MANGE?
;YES--GO CLOSE |7
:NO==MOVE

TO NEXT

:SAVE RO - RS

TEST

:"'FROM'’ ADDRESS

;"'T0"" ADDRESS

:"'FROM'" INDICATOR
;010" INDICATOR

:TEST BIT START A ''RPT"

;PARAMETER T0 Bt MOVED?
;NO-=-BRANCH
;A PLACE 10 PUT T2

:NO=-=-BRANCH

:YES==MOVE ''FROM' TO ‘10"
;10" PARAMETER?
:NO--BRANCH

JYES==UPDATE THE POINTER
:UPDATE FROM POINTER
;POSITION THE TEST BIT
;DONE?
:NO--BRANCH
;RESTORE RO - RS

;RETURN

RO,a#(k.0CT
JSR
RE TURNI
RE TURNZ

;(HECK

;THIS ROUTINE 1S USED TO (HE(KX [Ff AN
;ASCIT CHARACTER IS A DIGIT BETWEEN O AND 7.
:CALL
#ADR,
R
:
MOV
;ADDRESS OF ASCII CHARACTER
:

034030
034034
034036
034042
034044
034046
034052
034054

JSR

BEu

onon
030403
001401
005721
005720

006304
032704
001763

OPN.X2:

13:59

000060

(K.0CT:

000067

(MPB
BLO
(MPB
Bul

MOvB

177770
1%:

BlcC
191

RTS

(R1),#'0
1%
(R1),8'7
1%
(R1),R2
[ AP
(RO)
e
RO

THE

CHARACTER

;CHARACTER 1S NOT BETWEEN C-7
:CHARACTER IS IN RZ2 AS A
;OCTAL DIGIT

LESS THAN ZERQO?
;YES == BRANCH
:GREATER THAN SEVEN?
;YES

== BRANCM

;OGET THE CHARACTER
:STRIP AwWAY THE ASCII
sADJUST FOR RETURN

;RETURN

;THIS ROUTINE 1S USED TO (HECK AN ASCI1 CHARACTER
SAND DETERMINE 1F [T IS A DIGIT BETWEEN O AND 9.

;CALL
:

MOV

RE TURN]

JSR

RE TURN?

#ADR R
RO.a#(K.DEC

+ADDRESS OF ASCI] (HARA(TER
;CHECK THE CHARACTER
;NOT BETWEEN O AND 9
;BETWEEN 0 AND 9
(R2 - DIGIT

SEQ 0148

6 12

CIRJAD RPO4L/S/6 MECHAN]CAL AND READ/WRITE TEST
MACY11 30A(1052)
24-MAY=79
CIRJAD.PYY
28-MAR-79 11:28
so¢ PROGRAM SUBROUTINES wee

7775

7776
777
7778
7779
7780
7781
7782
7783
7784
7785
7786
7787
7788
7789
7790
7791
7792
7793
7794
7795
7796
7797
7798
7799
7800
7801

034056
0346062
034064
034070
034072
034074
034100
034102

000060

(x.De(C: (MPB

(R1),#2'0

1%:

sYES == BRAN(H

BIC
1S7

7°0,R2
(RO) ¢

;STRIP AWAY THE ASC]I
sADJUST FOR RETURN

(R1),#8'9
(R1) ,R2

034124
034130

034132
034136
034140
034142
034144
034146
034150
034152
034154

034156

RO
WILL

121127
001404
004037
000406
005720
005720
005720
005720
005720
005201
011000
000200

CHARACTER

;RETURN

Mov

#ADR R

sADDRESS OF

:
:

RETURN
RETURN

ADRI
ADR?

;UNKNOWN CHARACTER
:CARRIAGE RETURN ¢

;
:

RETURN
RETURN

ADRSG
ADRS

:COMMA = (R1)=ADR+1
;PERIOD ¢ (R1)=ADR+1

JSR

RETURN

RETURN
T1S1B
BEQ

(MpPg
BEQ
(MPB
BEQ
(MPB
BEQ
JSR
BR

000057
000054

000056
034056

187
1S1

1%:

1S7

2%:

3%:
4%

CHECK

THE

s CALL
:

(K.CHR:

—
-t PN =t DN

ONSNO
—

1
1

Pl
D
]

;GET

ROUTVINE

;GREATER THAN NINE’

;THIS

;LESS THAN ZERO?

Bul

RTS

;

IS.

ASCI]

RO,3#(K . (HR

ADR3

CHARACTER

;CHECK

ASCI1

CHARACTER

:SLASH ¢

ADRG6

CHARACTER

(R1)=ADR+1

(R1)
4%

;"'CARRIAGE RETURN'"TM?
JYES -- BRAN(H

(R1),#'/
3%
(R1) . %',
2%
(R1),8'.
1%
RO,a#(k.DEC
5%

JUDIGIT'TM?
;NO -~ BRANC(H

(RO ¢

; COMMA

(RO +
(RO ¢

JUSLASH'?
JYES -- BRANCH
;COMmMAT

;YES == BRAN(H
;"'PERIOD'"?
sYES == BRANCH

;DI1GIT BETWEEN 0-9
;PERIOD

1S1
187
INC

(RO)+
(RO)+
R

RIS

:THIS

ROUTINE

CHECKS

s CALL
:

MOV

#ADR R

:ADDRESS OF

:
:
;

RETURN
RETURN
RETURN

ADR3
ADR&
ADRS

:"'COMMA’" == R2 = NUMBER
;UPERIOD" == R2 - NUMBER
;'PERIOD=-PERIOD'" == R?
NUMEEK

5¢:

MOV

:
;
:
:

010446
010346

(R1):=ADR*!

;DIGIT BETWEEN O AND 9,
;R2 = DIGIT & (R1)-ADR+1

(RO ,RO
AN ASCI]

s SLASH
;s CARRIAGE RETURN
;MOVE POINTER TO NEXT

(xk.DIG:

MOV
JSR
RETURN
RETURN

MOV

#NUM,R?
RO,2#(x.DIG
ADR1
ADR?

R4 ,=(SP)

R3Y,-(SP:

(HARA(TER

sUNKNOWN CHARACTER
sRETURN

STRING FOR LEGAL

;CHARACTERS AND FORMS A DECIMAL VALUE BINARY NUMBER

034160
034162

SEQ 0149

;YES == BRAN(H

;DETERMINE WHAT

034104
034106
034110
034114
034116
0346122

153

movB

000060

PAGE

8LO

(mPB

000071

OoONONOO

7746
7747
7748
7749
7750
7751
7752
7753
7756
7755
7756
7757
7758
7759
7760
7761
7762
7763
7764
7765
7766
7767
7768
7769
7770
7N
7772
7773
7774

13:59

ASCIZ

[N R?.

STRING

;MAX, MAGN]ITUDE OF INPUT NUMBER
JCHECK DIGITS
;ILLEGAL CHARACIER == R2-?
:INPUT NUMBER T0 LARGE =-- R?2-"

;SAVE

;SAVE R3

M 12

MACY1Y 30A(1052)
2&-MAY-79
CIRJAD RPO&/S76 MECHANICAL AND READ/WRITE TEST
CIRJAD P
28-MAR-79 11:28
vee PROGRAM SUBROUTINES ver

7802
7803
7804
7805
7806
7807
7808
7809
7810
7811
7812
7813
7814
7815
7816
7817
7818
7819
7820
7821
7822
7823
7824
7825
7826
7827
7828
7829
7830

7831
7832
7833
7834
7835
7836
7837
7838
7839
7840
7841
7842
7843
7844
7845
7846
7847
7848
7849
7850
7851
7852
7853
7854
7855
7856

7857

0346164
034166
0346170
034172
0346174
034200
034202
034204
034206
034210
034212
034214
034216
034220
034222
034224
034226
034230
034234
034236
034240

034242
034244
034246
034250
034252
034254
034256

034260

034264
034266
034270
034272
034274
034276

034300
034302
034304

034306
034310
034316
034320
034322
034324
034326

034330
03332
034334
034336
034340
034342

010246
00570¢
005003
005.9¢4
004037
034330
034330
0346330
034330
034330
036214
006303
010346
006303
006303
062603
060203
004037
034330
034250
034330
034256
034254
0346214
005301
000401
005724
005724
004037
034330
034320
034330
034330
034300
034310
005724

101001

060400
005720
010302
005726
012603
012604
011000
000200

R2,=-(SP)

(LR

(LR
(LR

034104

JSR

8%
8%
es

SAVE

R?
R3

RO,a#(K. (KR

034104

:u'n
;n.n

;
:SAVE

ADD

R2.,RY

;UPDATE THE

:DI1GIT

R3
(SP)+ RS

RO,3#CK.(HR

;CARRIAGE

0346104

;u.n

:DIGIT

:BACKUP

s ~
(RG)4
(RG) ¢
RO,a#(K.(HR

000054

6%:
7%:

8%:

;CARRIAGE
:u/u

RETURN

:ll'll

%
5%
181
1518

;L
:DIGIT 0-9
:""PERIOD=-PER]OD"'
SR

(MPB

(R4
(R1)
6%
8%
=2(R1) .8,

(mp
BM]

R3.,(SP)
14

MOV

R3,R?

:NUMBER 10 R2

(SP)+,R}Y

sRESTORE R3

BEQ
BR

BNE

ADD
181

157

MOV
MOV
RIS

;THIS ROUTINE

MOV

s YES==-BRAN(NH

:WAS CHARACTER BEFORE

JNO=--EX]T

R4 RO
(ROVe

;ADJUST

DIGIT

RETURN ADDRESS

sCLEAN MAX,

(SP)+ ,R&
(RO) ,RO
RO

SIZE

OFF

STA(x

;RESTORE R4
;GEY RETURN ADDRESS
;RETURN

(HECKS AN ASCIZ

#ADR, R

THE

;INPUT TO LARGE?
JYES == BRAN(H

(SP)+

:AND FORMS AN OCTAL NUMBER

;CALL:

C(HARA(CTER POINTER

8‘

Mov

THE

;ILLEGAL CHARA(TER

8‘

177776

0-9

;CONTINE
;'PERIOD"
:*'COMMA’® OR ‘(R
;CHECK ONE CHARACTER

4%:

RETURN

:ll.ll

2‘

BR
151
157
JSR

INPUT NUMBER

;CHECK ONE C(HARA(CTER
sILLEGAL CHARA(CTER

3‘

0-9

#2
)
;8
s (e8)e(92)=010,

DEC

STA(K

sCHECK ONE CHARACTER

2%:
b ¥

THE MAX. SIZE ON THE

RY
R3,=(SP)
Ry

JSR
8%

9%:

Sea 0150

1%
ASL
MoV
ASL

ASL
ADD

154

JILLEGAL (HARA(TER
;CARRIAGE RETURN
IRAN

1%:

PAGE

;START WITH O

8‘

105711

001405
000410
126127
001004
020316

MOV

13:59

STRING FOR LEGAL

IN R?

:ADDRESS OF

(HARA(CTERS

ASC1Z

STIRING

A (OMMA"

1 12

MACYTIT 30AC1052)
24-MAY=T79
CIRJAD RPO&/5/76 MECHMANICAL AND READ/WR]TE TEST
CIRJAD P
28-MAR-79 11:28
vee PROGRAM SUBROUTINES e«

7858
7859
7860
7861
7862
7863
7864
7865
7866
7867
7868
7869
7870
7871
7872
7873
7874
7875
7876
7877
7878
7879
7880
7881
7882
7883
7884
7885
7886
7887
7888
7889
7890
7891
7892
7893
7894
7895
7896
7897
7898
7899

JSR
RE TURN
RE TURN
RETURN
RETURN

034344
034346
034350
034354
034356
034360
034367
034364
034366
034370
034372
034374
034376
034402
034404
034406
034410
034412
034416
034420
034422
034424

034426
034430
034432
0344634

034440
034442
034444
034446
034450
034452
0344564
034456
034460
034462

010346
005003
004037
000440
005201
006303

034030

(K.NUM: mov
(LR
JSR
BR
1%:
INC
ASL

103435

BCS

103433

8(S

103431

B(S

000303

ASL

006303
060203
004037
000401
000764
010302

005003
004037
034456
034446
034456

ASL

ADD

034030

2%:
034106

034446

034432
034456
005723
121127
001002

005201
005723
005723
105711
001001

06030y
012603
011000
000200

JSR
BR
B8R

MOov

LR
JSR
6%
5%
6%
5%

000056

1%:

4%
5%:

151
(mMPB
ant
INC
151
181
7S1B

BNE

:
6%

ADD
MCv
MOV
RTS

PAGE

1595

SeQ 0151

RC,a#C(K
. NUM
ADR1
ADR?
EDRY
ADR&

;GO FORM THE NUMBER

RY,-(SP)
R3
RO,8#(x.0CT

;SAVE R3

;MOVE TO NEXT (MARA(CTER

R3
6%
R3
6%
R3

:JLLEGAL CHARACTER IN THE INPUT STRING

:'COMMA’" OR "'CR''-=R2:=NUMBER

D
IOBER
ER2=NUM
:"'P' '=-=R

:'PERIOD-PER]OD '==R2=NUMBE R
;START NUMBER AT

:OCTAL DIGIT?

JERO

;NO-=-BRAN(CH

:FOR

THE OCTAL NUMSER

N R3

T GEY 10 BIG

CDON'T LET

R2,R3
RO, 9#(x.0CT

2%
1%

R3,R2
R3
RO,@M(K. (MR

;1S THIS AN OCTAL DIGIT?
;NO==F IND OUT WHAT T IS

(R3)+
WR1).,8",

PART

;YES=-=MAKE

RETURN

;01611 0-9
;"'PERIOD"’
;'PERIOD=-PER]OD'"?

(R3)+
(R3¢
(R,

:"'PERIOD=PER]OD"’

(SP)e+ R}
(RO, ,RO
RO

NUMBER

s CHECK ONE CHARACTER
¢ JLLEGAL (HARACTER

;sNO==BRANCH

69
R3,RO

THE

JSTART WITH ZERO INDEX

OFf

;SAVE THE OCTAL NUMBER

;CARRIAGE

13:59

:YES--ADVANCE THE POINTER

:COMMA°’

SR
:NO--BRANCH

:YES==SAVE

:RESTORE R3

THE

;PICRUP EXIT

:RETURN

OCTAL

ADDRESS

NUMRER

J 12

MACY11 30A(1052)
24-MAY-79
CIRJAD RPOL/S5/6 MECHANICAL AND READ/WRITE TEST
CIRJAD P11
(B-MAR-79 11:28
vee PROGRAM SUBROUTINES eee

7900
7901
71902
7903
7904
7905
7906
7907
7908
7909
7910
7911
7912
7913
7914
7915
7916
7917
7918
7919
7920
7921
7922
792%
7924
7925
7926
7927
7928
7929
7930
7931
79%2
7933
7934
7935
793%6
79%7
7938
7939
7940
7941
7942
7943
7944
7945
7946
7947
7948
7949
7950
7951
7952

7953
7954
7955

13:59

PAGE

156

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

LSBITL

SINGLE/DUAL PORT RMY1/RP0O4/S5/6 DRIVER (REV 1.0)

(() 1976

;COPYRIGHT

;DIGITAL EQUIPMENT CORP.
;MAYNARD, MA 01754
;AUTHOR(S):

JIM LACEY/CHULK

HESS

:;""'""""""""""""""""'".".'...I.""'."...'.

;STORAGE FOR RPDS1,

RPER1, RPER2, AND RPER3 ON AN ERROR '°2°°

;RPERRS
= RPDSI
;RPERRS+2 = RPERI

;RPERRS
¢4 = RPER?
;RPERRS*6 = RPER3

034464
034472

000000

RPERRS:

.WwORD

0,0,0,0

;TABLE OF DRIVE ACTIVE INDICATORS (DRVACT-=8 BYTES)
;DRVACT=0 IF DRIVE 1S IDLE
;DRVACT>0 IF

DRIVE

;DRVACT<O IF DRIVE
034474
034475

034476
034477
034500

034501
034502
034503

000
000
000
000
000
000
000
000

DRVA(T:

.BYTt
.BYTE
.BYTE
.BYTE

0
0
0
0

BYTE
.BYTE
.BYTE

0
0
0

.BYTE

:TABLE OF

DRIVE STATUS

[S ACTIVE WITH A COMMAND

IS ACTIVE WITH AN ERROR RECOVERY OPERATION
:DRIVE O
:DRIVE 1
;DRIVE 2
;DRIVE 3

;DRIVE &

:DRIVE 5
:DRIVE 6
;DRIVE 7
INDICATORS

(DRVSTA=8 BYTES)

:DRVSTA=0 IF DRIVE IS OFFLINE OR NONEXSITEN!?
:DRVSTA>0 1F DRIVE IS ONLINE
:DRVSTA<DO IF DRIVE 1S UNSAFE

034504
034505
034506

034507

034510

034511

034512

034513

000
000
000
000
000
000
000
000

DRVSTA:

.BYTE
.BYITE
.BYTE
BYTE
LBYTE
BYTE
.BYTE
.BYTE

0
0
0
0
0

0
0
0

;DORIVE
;DRIVE
;DRIVE
;DRIVE
:DRIVE
;DRIVE
;DRIVE
;DRIVE

O
1
2
3
&

;TABLE OF DRIVE TYPES (DRVTYP=8 BYTES)
;DRVIYP=C |F DRIVE 1S NONEXISTENT (DRVSTA-0, ALSO!
;DRVIYP=1 [F DRIiVE IS RPO4
;ORVIYP-2 IF DRIVE IS RPOS
;ORVIYP-4 |F DRIVE 1S RPO6
;DRVTYP =1 IF NOT RP0O4/S/6

SEQ 0152

K 12
E%:J:g g:?lelb MECHANICAL AND READ/WRITE TEST
MACYI1 30AC1092)
24-MAY-79
13:59
PAGE
JAD.
28-MAR-79 11:28
SINGLE/DUAL PORT RMI1/RP0&/5/6 DRIVER (REV 1.0)
7956

7957

7958

7959

7960
7961
7962
7963
7964
7965
71966
7967
7968
7969
7970
7971
7972
797%
7974
7975
7976
7977
7978
7979
7980
7981
7982
7983
7984
7985
7986
7987
7988
7989
7990
7991
7992
7993
7994
7995
7996
7997
7998
7999

8000
8001
8002
8003
8004
8005
8006
8007
8008
8009
8010
801°

0346514
034515
0346516
034517
034520
034521
034522
034523

000
000

DRVIYP:

000

000
000
000
000
000

.BYTE
BYTE
.BYTE
.BY1g
.BYTE
BYle
.BYTE
.BYTE

0
0
0
¢
0
0
¢
0

;DRIVE
;DRIVE
;DORIVE

DUAL PORT
;OPINT=0 IF
;DPINT<O IF

000
000
000
000
000
000
000
000

DPINT:

;TABLE

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

034540
034541
034542
034543

000
000
000
000
000
000
000
000

DPRQS:

INITIALIZATION IS NOT ACTIVE ON THE DRIVE
INITIALIZATION ]S IN PROGRESS
;DRIVE
;DORIVE
;DRIVE
;DRIVE
;DRIVE
;DRIVE
:DRIVE
;DRIVE

PENDING DUAL

;DPRQS=0 If

PORT

REQUESTS

THAT A DUAL PORT REQUEST

0
0
O

;DRIVE O
;DRIVE 1
;DRIVE 2

.BYTE
.BYTE
.BYTE

0
0
0

;DRIVE &
;DRIVE 5
;:DRIVE 6

.BYTE

;DRIVE

FLAG

(TRNSWT=1

A ONE

WORD)

WORD QUEUE.

;"'DPB’' OF THE 1/0 OPERATION.
TRNSWT:

.WORD

IS NOT PENDING FOR THAT DRIVE

IS PENDING FOR THAT DRIVE

;DRIVE 7

BYTE
;THIS

000000

O
1
2
3
&
5
6
7

.BYTE
.BYTE
BYTE

; TRANSFER WAIT

034544

O
1
2

INITIALIZATION INDICATORS

0
0
0
0
0
0
0
0

;DPRQS<O IF
034534
034535
034536
034537

SEQ 0153 }

;DRIVE 3
;ORIVE &
;ORIVE 5
sDRIVE 6
;ORIVE 7

;TABLE OFf

034524
034525
034526
034527
034530
034531
034532
034533

157

WiLL

CONTAIN

THE

ADDRESS OF

:SEARCH WAIT KEYS (SRCHWT=1 WORD)

:THIS 1S A ONE WORD QUEUE THAT WILL CONVAIN A KEY FOR EACH OF
:THE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FCR THE /0

SREQUEST

THAT

sEACH DRIVE

034546

000000

SRCHWT:

.WORD

IS AT

THE

TOP OF

THEIR REQUEST

:RP04/75/6 DRIVER ACTIVE FLAG (ACTDRv=1 BYTE)
:ACTDRV=0 IFf DRIVER IS INACTIVE

:ACTDRV>0 IF DRIVER IS ACTIVE

034550

000

ACTDRY:

.BYTE

QUEUE.

1S ASSIGNED ONE BIT, STARTING AT BITO00 FOR DRIvE O.

;SOF TWARE TIMER ROUTINE ACTIVE FLAG (ACYSTR:=1 BYTE)

L 12
CIRJAD RPOL/S/6 MECHANICAT AND READ/WRITE TEST
MACY11 30A(C1052)
24-MAY-79
13:59 PAGE
CIRJAD.PIN
28-MAR-79 11:28
SINGLE /DUAL PORT RH11/RP04/S5/6 DRIVER (REV 1.0)
8012
28}2

034551

000

8017
8018
8019

034552
034553
034554
034555
034556
034557
034560
034561

000
000
000
000
000
000
000
00

034562
034563
034564
034565
034566
034567
034570
034571

000
000
000
000
000
000
000
000

ggg;

034572

000000

8061

LACNT:

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

O
1
2
3
&
5
6
7

(LACNT-8 BYTES)
INDICATE

THE NUMBER OF

0
0
0
0
90
0
0
0

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

LOOK AHEADS PERFORMED

O
1
2
3
&
S
6
7

SAVEFG:

.WORD

;SEEK FLAG (SEEKFG=1 WORD)
SSEEKFG=0 1F WHEN THE DISK ADDRESS ISN'T IN THE WINDOW
:FOR A DATA TRANSFER START A SEARCH COMMAND
;SEEKFGCO IF DATA TRANSFER WILL DO IMPLIED SEEKS,
:DISREGARD THE WINDOW

034574

000000

SEEKFG:

.WORD

:TIMEOUT TABLE (TIMER=8 WORDS)
sTHIS TABLE CONTAINS THE TIME ALLOWED FOR AN OPERATION

8059
8060

8062
8063
8064
8065
8066
8067

;DRIVE
:DRIVE
;DRIVE
;DRIVE
;DRIVE
:DRIVE
;DRIVE
;DRIVE

:(DPB+14), AFTER AN ELRROR.

8051
8052
8053
8054
ggss
56

0
0
0
0
0
0
0
0

;SAVE REGISTERS FLAG (SAVEFG =1 WORD)
:SAVEFG <O IF SAVE THE RH11/RP04/5/6 REGISTERS WHEN THE
:OPERATION 1S COMPLETED AS PER (DPB+14).
:SAVEFG=0 I SAVE THE RH11/RP04/5/6 REGISTERS, AS PER

8047

8048

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

:LACNT WILL

8043
8044
8045
8046

gggg

uLDHLG:

:LOOF AMEAD COUNT

gggg

;ULDFLG<O IF UNLOAD COMMAND IN WAIT QUEUE

8031

8034
8035
8036
8037
8038
8039
8040
gga;

.BYTE

IS INACTIVE
IS ACTIVE

;UNLOAD FLAG (ULDFLG=8 BYTES)
;ULDFLG=0 [F NO UNLOAD COMMAND
;ULDFLG>0 IF UNLOAD COMMAND IN PROGRESS

ggg?

8022
8023
8024
8025
8026
8027
8028
gg%g

ACTSTR:

SOFTWARE TIMER ROUTINE
SOFTWARE TIMER ROUTINE

SEQ 0154

034576
034600
034602
034604
034606
034610

177777
177777
177777
177777
177777
177777

TIMER:

.WORD
LWORD
.WORD
.WORD
.WORD
LWORD

=1
-1
-1
-1
-1
=1

:DRIVE
:DRIVF
:DRIVE
;DRIVE
:DRIVE
:DRIVE

0
1
2
3
&
S
[R,

gg}z

sACTSTR=0 1F
;ACTSTR>0 IF

158

CIRJAD RPO4/5/6 MECHANICAL AND READ/WRITE TEST

CIRJAD.PIY

8068
gggg

034612
034616

28-MAR-79 11:28

8077
8078
8079
8080
8081
8082
8083
8084
8085
8086
8087
gggg

034616

177777

DTUW:

034620
034621
034622
034623
034624
034625
034626
034627

oo
002
004
010
020
040
100
200

ATABIT:

.WORD

(REV

PAGE

1.0)

159

SEQ 0155

;DRIVE 6
;DRIVE 7

IMPLIES DATA TRANSFER UNDERWAY ON DRIVE N

-1

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

1
P4

;:DRIVE
;DRIVE
;DRIVE
:DRIVE
;DRIVE
;DRIVE
:DRIVE
;DRIVE

4
10
20
49
100
200

:RP04/5/6 TO RH11

TO EACH DRIVES

0
1
2
3
&
5
6
7

""MASSBUS CONTROL BUS PAR]ITY ERRORS'' (MCPE)

sCALLING 1T FATAL (MCPEMX=1 WORD)
034630

000003

MCPEMX:

8095

8098
g?gg

13:5G

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

ggg;

ggg?

-1
-1

;DTUW=¢N (WHERE N=0 TO 7)

8090
gggz

.WORD
LWORD

n12
24=-MAY-79

;DATA TRANSFER UNDERWAY INDICATOR (DTUW=1 WORD)
:DTUWCO IF NO DATA TRANSFER UNDERWAY

gg;z

38;2

30A(1052)

SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER

1177777
177777

8071
8072

MACY11

.WORD

:STORAGE FOR RPADR
034632
034634

176700
000254

g}g}

(THE FIRST ADDRESS

(776700) OF

THE RH11/RP04/S/6),

:RPVEC (THE VECTOR ADDRESS (254)), AND RPVE(C+2 (THE BR LEVEL (5)).

000240

RPADR:
RPVEC:

.WORD
.WORD

176700
254,532,

:MAXIMUM NUMBER Of

LOOK AMEADS ALLOWED

IS &

(MXLACT-1

WORD)

8103
3182

034640

000004

MXLACT: .WORD
&
;MAXIMUM DELTA DELAY

IS 8 SECTORS

(MXDLTA-1

WCRD)

8106
218;

034642

001000

MXDLTA: .WORD
8.%64.
:MINIMUM DELTA DELAY IS 2 SECTORS

(MNDLTA-1

WORD)

8109
8110

034644

000200

MNDLTA: .WORD
2764,
:MAXIMUM SEARCH FOR 1/0 WINDOW IS 5 SECTORS (MXWNDW-1 WORD)

g}}%

034646

000005

MXWNDW:

8111

8112
8i1

ALLOWED BEFORE

.WORD

;DEFINITIONS OF

THE RHI11/RP04/5/6 ADDRESS INDEXES

8116
8117
8118

000000
000002
000004

RP(S1=0
RPW(=2
RPBA=4

;CONTROL AND STATUS REGISTER #1 (DRIVE REG. 00)
:WORD COUNT REGISTER (NOT A DRIVE REG)
:UNIBUS ADDRESS REGISTER (NOT A DRIVE REG)

8120
8121
8122
8123

000010
000012
00001¢
000016

RP(S2:10
RPDS1=12
RPER1-14
RPAS=16

:CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG)
;:DRIVE STATUS REGISTER (DRIVE REG O1)
;ERROR REGISTER #1 (DRIVE REG. 02)
SATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 041

8119

000006

RPDA=6

:DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 05)

N 12
CIRJAD RPO&L/S5/6 MECHANICAL AND READ/WRITE TEST MACYI1 30AC1052)
24=-MAY-79 13:59 PAGE 160
CIRJAD.PIY
28-MAR-79 11:28
SINGLE/DUAL PORT RM11/RP04/S/6 DRIVER (REV 1.0)

RPLA=20

000020
000022
00002¢
000026
000030
000032
000034
000036
000040
000042
0000446

8124
8125
8126
8127
8128
8129
8130
8131
8132
8133
8134
8135
8136
8137
8138
8139
8140
8141
8162
8143

(NOT

A DRIVE REG.)

RPC(=36
RPER2=40

;CURRENT CYLINDER ADDRESS REGISTER
;ERROR REGISTER #2 (DRIVE REG. 14)

(DRIVE REG.

;ECC POSITION REGISTER

16)

;MAINTAINABILITY REGISTER (DRIVE REG. 03)
:DRIVE TYPE REGISTER (DRIVE REG. 06)
;SERIAL NUMBER REGISTER (DRIVE REG. 10)
;OFFSET REGISTER (DRIVE REG. 11)
;DESIRED CYLINDER ADDRESS REGISTFR (DRIVE REG.
;ERROR REGISTER #3 (DRIVE REG.

RPEC1=44

RPEC2=46

15)

(DRIVE REG.

;ECC PATTERN REGISTER (DRIVE REG.

;RHV1/RPO4/5/6 DRIVER INITIALIZATION CODE
:THIS ROUTINE WILL DETERMINE WHICH RPO4/5/6 DRIVES ARE

sAVAILABLE FOR TESTING AND SET THE DRVSTA INDICATOR
;70 THE PROPER STATE FOR EACH DRIVE.
:NOTE:

THIS ROUTINE

CALLS DRVINT

:
.

JSR
RETURN

PC,RPINIT

sNOTE:

THE

RPINIT:

SAVREG
MOV

9#PS,-(SP)

:SAVE RO - RS
;SAVE THE PRESENT PROCESSOR STATUS

MOV

#RPERRS ,R1

;FIRST

s CALL

034776
035000
035002
035006
035010
035014

000240
042664
034466

034574

1%:

—

2%:

034504
034506
034510
034512
034634
037544

034636
034632
000040

001366

CLR

000010

3%:

034504

4%:
5¢:

‘L'

CLOCK MUST BE

#<5¢32.>,98PS
PC,CLRQUE

#SEEXKFG,RZ2

;BRANCH [F NG

#DTUW,R?

(LR
CLR

DRVSTA+4
DRVSTA+6

JSR
B8R
BR
(LRB
INC

BIC

BNE

ADDRESS 10 BE

;LAST ADDRESS TO BE

MOV

(LR

:CHANGE THME PRIORITY 10 S
;CLEAR ALL REQUEST QUEUES
:CLEAR

R1,R?

MOV
(Mp
BLOS
CLR
CLR

STARTED

(R1)¢

(MP

MOV
MOV
MOV
MOV
MOV

035062

177770

MOV

B8LOS

~NO

MOV
JSR

177776

013746
012737
004737
012701
012702
005021
020102
101775
012702
012721

177776

104412

034650
034652
034656
034664
034670
034674
034700
034702
034704
034706
034712
034716
034720
034722
034726
034732
034736
034742
034746
034752
034756
034762
034770
034772

°'P®"

#-1,(R1)+
R1,R2
2%
DRVSTA
DRVSTA+?

CLEARED

:ARE WE DONE?
;LAST

ADDRESS

;INITIALIZE
:DONE?
;LOOP 1F NO
:SET ALL DRIVES TO OFFLINE

RPVEC,R3
:SETUP THE RH11/RP04/5/6 VECTOR
ISR, (R3)+
RPVEC+2,(R3)
RPADR R4
;FIRST ADDRESS OF RH11/RPO4
#BIT0S,RPCS2(R4)
;MASSBUS INIT

RO,DRVINT
4%
5¢
DRVSTA(RT)
R

#4077 ,R1
1%

:STARY WITH DRIVE 0

;INIT THE DRIVE
;"DVA' NOT SET OR PARITY ERROR
;NORMAL RETURN
;SET DRIVE STATUS TO OFFLINE
;60 TO NEXT DRIVE

;MASK OUT UNUSED BITS

;BR |F MORE DRIVES 10 GO

el
e
md
e
e
i

)

166

;DATA BUFFER REGISTER

RPER3=42

8144

8145
8146
8147
8148
8149
8150
8151
8152
8153
8154
8155
8156

;LOOK AMEAD REGISTER (DRIVE REG. 07)

RPDB=2?

RPMR=24
RPDT=26
RPSN=30
RPOF =32
RPCA=34

000046

SEQ 0156~

17)

813

MACY11 30A(1052)
CIRJAD RPOL/S5/6 MECHANICAL AND READ/WRITE TEST
26-MAY-79 13:59 PAGE
CIRJAD P
28-MAR-79 11:28
SINGLE/DUAL PORT RM11/RPG4/S/6 DRIVER (REV 1.0)

8180
8181
8182
8183
818¢4
8185
8186
8187
8188
8189
8190
8191
8192
8193
8194
8195
8196
8197
8198
8199
8200
8201
8202
8203
8204
8205
8206
8207
8208
8209
8210
8211
8212
8213
8214
8215
8216
8217
8218
8219
8220
8221
8222
8223
8224
8225
8226
8227
8228
8229

8230
8231
8232
8233
8234
8235

035016
035022
035026
035032
035034
035040
035044
035046
035050
035052
035056
035060

012701
005037
105761

001405
004737
105761
001375
005301

100366

012637

104613

000007

036524

6%:

062320
034524

7%:
8%:

177776

000207

;DRIVE

(SP)
¢ ,a#Ps

;BYE-BYE

” R
8PS

BEQ
JSR

PC,SET.IE

1518

1518
BNE
DEC
BPL
mov
RESREG
R1S

SEQ 0157

:START WlTH DRIVE 7
;CLEAR THE PROCESSOR STATUS
:WMALTING FOR DRIVE TG SWIT(H PORTS ?
:BR NOT WAITING
;SET INTERRUPT
:DRIVE SWITCHED PORTS ?
;BR IF NOT
;G0 TO THE NEXT DRIVE
sCHMECK NEXT DRIVE
:RESTORE THE PROCESSOR STATUS

(LR

MoV

177776

161

DPINT(RY)
2s
DPINT(RY)
7%
R1

;RESTORE RO - RS

IMITILIZATION ROUTINE
:THIS ROUTINE OETERMINES IF A DRIVE EXIST AND IF IT IS
;AN RPO&/5/6. 1F 1T IS, A "READ-IN PRESET'" IS ISSUED AND FMT2?
;1S SET TO A ""1"'. THEN MOL, DPR, DRY, AND vv ARE (HECKED 10

;INSURE THEY ARE ALL ON A '"1''. AND DEPENDING ON THEIR STATE,
;DRVSTA IS SET 10 THE PROPER CONDITION.

mov
mov

#DRVNUM
R

RPADR R4

RO,DRVINT
JSR
RE TURNI
RETURN?Z

035062
035064
035070
035074
035100
035104
035112
035120
035122
035126
035130
035134
035142
035144

010546
105061

105061

010164
112764

032764
001403
004737
000533
105061

032764
001527
004037
000026
035442
012605
112761
022705
001431
022705
001426
112761

035222
035230

022705
001420
022705
001415
112761

022705

034504
034514
034552
000010
000111
010000

DRVINT:

CLRB
(LRB
CLRB

MOV
MOVB

000000
000010

BIT

062320

034504
004000

MOV

1%:

BEQ
JSR
BR
CLRB

041630

BIT
BEQ
JSR

000001
020020

MOV
MOVB
cMp

000000

034514

024020
C34514

024021
000004
020022

DRVIYP(RY)
ULDFLG(RY)

034514

BEQ
CMP
BEQ

MOVB

(MP
BEQ
(mp
BEQ

MOVB
(mp

:NORMAL RETURN

:SAVE RS

:START DRIVE

STATUS AS OFFLINE

;CLEAR THE DRIVE TYPE INDICATOR
;CLEAR THE UNLOAD FLAG
JSELECT A DRIVE
;00 A DRIVE CLEAR COMMAND (& SEIZE DRIVE)

R1,RPCS2(R4)
#111,RPCS1(R4 )
#BIT12,RPCS2(R4) ;NONEXISTENT DRIVE?
1%
:NO---BRAN(CH
PC,SET.IE
;60 SET "'IE'" WITHOUT

A "'TRE'’

RO,RD.RP

REG.

;LEAVE THIS ROUTINE
;SET DRIVE STATUS TO OFFLINE
#BIT11,RPCST(RG)
;SEE IF DRIVE AVAILABLE
7%
;B8R IF DRIVE NOT AVAILABLE

6%
DRVSTA(R1)

RPDT

000002
020021

RS,=-(SP)
DRVSTA(RY)

;DRIVE NUMBER T0 R1
;UNIBUS ADDRESS OF RH11/RP0O4/5/6 (RPCS1)
;CALLED BY A JSR
;ERROR OCCURRED (PARITY)

;READ

THE

DRIVE

TYPE

;ERROR RETURN ADDRESS

#2,DRVIYP(RY)
#20021,R5

;PUT DRIVE TYPE IN RS
;SET RPO4 INDICATOR
;1S 1T A SINGLE PORT RPO4?
;BRANCH TF YES
;1S 1T A DUAL PORT RPO4?
;BR IF YES
;SET RPOS INDICATOR
;SINGLE PORT RPOS ?

#24021,RS
2%
#4 ,DRVTYP(R1)
#20022,RS

:DUAL PORT RPOS ?
;BR IF YES
;SET RPO6 INDICATOR
;SINGLE PORT RPO6 ?

(SP)+,RS
#1,DRVTYP(RY}
#20020,RS
2%
uiaozo.ns
4

(BR IF

YES

8261
8242

8243
8244
8245

o r

8236
8237
8238
8239
8240

C 13
MACYT1 30A(1052)
24-MAY=79
13:59
PAGE
CIRJAD RPO&/S5/6 MECHANICAL AND READ/WRITE TEST
CIRJAD.PVI
28-MAR-79 11:28
SINGLE/DUAL PORT RH11/RP04/S5/6 DRIVER (REV 1.0)

62
&4

8246

8247
8248
8249
8250
8251
8252
8253
825¢4
8255
8256
8257
8258
8259

330

100015
116164

8260
8261
8262

004037
000014
035442
006126
100004

8263

82664

8265

112761

8266
8267
8268

8269
8270
8271
8272
8273
8274
8275
8276
8277
8278
8279
8289
8281
8282
8283
828¢
8285
828¢
8287
8288
8289
8290
8291

001407
022705
001404
112761
000461
005737
001010
032764
001404
152761
000446
012746
004037
000000
035442
012746
004037
000032
035442
004037
000012
035442
012605

035442

035444

000407
005105
042705
001003
112761
005720
000410
006301
012761
006201
105161
005729
012605
000200

BEQ
(mp
BEQ

026022
177777

034514

035446

MOvB

B8R

2%:

001000

00001¢

000010

034514

000121
042010

9% :

MoV

JSR

RP(S1

010000
062010

mov

000001

034504

003720

034576

6% :
7%:

8%:

#121,-(5P)

;D0 A "'READ-IN PRESE'TM"

RP
RO,WRT

8%
MOV
8PL

(SP)+ RS
4%

;AND SAVE 1T IN RS
;BRANCH IF ATA=0

JSR

RO,RD.RP

ATABIT(RY) ,RPAS(RS)

;FIND QUI WHY ATA=1

;CLEAR

(SP)

;1S

FPMT22

ATTENTION BIT

UNSAFE?

;BR 1F NOT

MOVB
AR
com

#-1,DRVSTACRY)
6%
RS

BNE

:BRANCH

1S1
BR

(RO)+
8%

;STEP OVER THE ERROR RETURN
JEXLT

BIC

MOVB
ASL

MOV
ASR

(OmMB

034524

191

MOV

RTS

;SET UNSAFE
JEXTT
:CHECK MOL,

INDICATOR

DPR,

P C<BIT12'B1108'B81707'B171006>,R5
#1,DRVSTA(RYD)
R

DRY,

MOL, DPR,

;CHANGE

INDEX

#2000.,TIMER(RT)
;START 2 SEC
R1
:RESTORE R]

(SP)+,RS

TIMER

;RESTORE RS

JEXLT

;CLEARED UNDER FIELD CONDITIONS(XXDP CHAIN,
;STANDALONE) WITH STARTING ADDRESS 200.
;THE

FLAG WiLL BE

SET

UNDER ALL

;WITH STARTING ADDRESS 220.
000000

TSTPGM:

.WORD

DRY,

OR vv

TO ADDRESS WORDS

DPINT(RV)
(RO)«

AND vV

:SET DRIVE STATUS T0O ONLINE

;TEST PROGRAMMABLE DRIVE FLAG (TSTPGM=1 WORD)
;THE FLAG WiLL BE SET BY THE PROGRAM UNDER
sMANUFACTURING CONDITIONS (ACT,APT) AND

035446

1STPGM
;INHIBIT PROGRAMMABLE DRIVE?
9%
:BRANCH If NO
#B81709, RPDS1(R&)
;1S DRIVE PROGRAMMABLE?
9%
;BRANCH 1F NO
#81703, DRVIYP(R1):SET INDICATOR
6%
SEXTT

;READ RPDSI

BPL

SEQ 0158 {

‘'OTHER'

RO,RD.RP

ROL

4%:

8%
JSR

RPER]

167077

INDICATOR

SSET

MOvB

034504

JEXIT

SET

MBIT12,-(SP)

8¢

177777

#-1,DRVIYP(RY1)

RP
RO,WRT

RPDST

000016

:BR IF YES
:DUAL PORT RPO6 ?
:BR IF YES

JSR

RPOF

041630

034620
041630

187
8NE
811
8EQ
B1S8
BR

2%
026022 .85
2%

162

CONDITIONS

TEST PROGRAMMABLE DRIVE

1S (LEAR

0 13
MACY1Y 30AC1052)
24=-MAY=79
13:59 PAGE
CIRJAD RPOL/S/6 MECHANICAL AND READ/WRITE TEST
SINGLE/DUAL PORT RH11/RP0D4/S5/6 DRIVER (REV 1.0)
CIRJAD.PY
28-MAR-79 11:28

8307

8308
8309
8310
8311
8312
8313
8314
8315
8316

ke Pl ol ol SRV AV TV AV IV ]
[0 MV
o) W~
O 000 ~gO

©Oo 0o O O OB 0o 00 OB 0o o 0o OO OO

IV IV TV
M
AN AN PV AVAVIIVIIV

8317
8318
8319
8320
8321
8322
832%
832«

SEQ 0159

;REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST

8292
8293

8294
8295
8296
8297
8298
8299
8300
8301
8302
8303
8304
83095
8306

163

TCALL
JSR

PNTADR
RE TURN]

RO,a#RPO4

RE TURN?

03565¢4
035656
035662
035664
035672
035676
035700

8#PS,-(SP)
RPVE(+?2,amPS
#1,ACTDRY

034632
034504

Mov
CLR
movB
MoV
1518

034552

1518

(RO) ,R2
16(R2)
(R2).R1
RPADR R4
DRVSTA(R1)
1%

034636
000001

177776

RPOG:

034550

SAVREG

000016

867
BNE

1518

034524

BNE
JSR
BR

035062
034504

1518

034534

1%:

000103

060002

1727777

034552

2%:

000016

037052

4%:

042762

5%:

6%:

034504

001007
012762

100002

BNE
JSR
BR

Mov

BR
JSR
BR
JSR
BR
BNE
JSR

042320

034514

MovB
1518

811

000100

140000

BNE

JSR
BR
(MPB
BNE

035742
120000

1518

mMov

000010
042762

034674

BLE

1518

BLT

00001¢

MOV
1518

000016

MOV

BNE

; ADDRESS OF POINTER OF DRIVES PARAMETER BLO(K
;RETURN HERE IF QUEUE IS FuLL
;RETURN HERE IF REQUEST IS IN QUEUE OR THERE

;1S AN ERROR CONDITION

mov
mov
MOvB

177776

035450
035454
035462
035470
035472
035474
035500
035502
035506
035512
035514
035520
035522
035526
035530
035534
035536
035542
035544
035550
035552
035556
035562
035564
035572
035574
035602
035606
035610
035614
035616
035624
035626
035632
035634
035640
035642
035646
035650

;CALL THE RPQO4/5/6 DRIVER

;SAVE THE CALLING STATUS
;DON'T ALLOW ANY RP0O4/5/6 INTERRUPIS
;SET ""ACTIVE DRIVER'' FLAG
:SAVE RO - RS
;P1CKUP THE DRIVE PARAMETER BLOCK POINTER
;CLEAR THE STATUS/ERROR INDICATOR
:PI1CKUP THE DRIVE NUMBER
;UNIBUS ADDRESS OF RP(S1

;CHECK DRIVES STATUS
:BRANCH IF

ONLINE

ULDFLG(RY)
3%

:UNLOAD COMMAND [N QUEUE:
:BRANCH IF YES

DRVSTA(RY)
6%
DPRAS(R1)
5¢

:1S DRIVE STATUS ONLINE?
;BR IF NOT

DPINT(RY)
5%
RO,DRVINT
(%

R1,RP(S2(R4)
RO,DRVQUE
9%
#103,2(R2)
2%

#-1,ULDFLGLRY)
DRVACT(R1)
8%

gg,OPI

:TRYING TO INIT THE DRIVE
LBR IF YES
,GO IN]T. THE DRIVE
:ERROR RETURN

:OUTSTANDING PORT REQUEST FOR TME DRIVE
;BR IF YES
:SELECT THE DRIVE
;PUT THIS REQUEST

;QUEUE 1S FULL
;1S THIS REQ. FOR

:BR

1F NO

:BR

IN QUEUE
AN UNLOAD?

:SET THE "'UNLOAD IN QUEUE'' FLAOG
;1S THIS DRIVE ACTIVE?
YES

;CALL THE OPTIMIZER

;21115!81115,16(R€) :SET THE "'UNLOAD IN QUELE'' ERROR FLAG
gg.(l7

SEXTT

;60 HANDLE THE PARITY ERROR

RO,DRVQUE
9%
#81706, (R4)
8%
PC,SET.IE

;PUT REQUEST IN QUEBUE
;QUEUE 1S FuULL
;1S "1E* SET ALREADY ?
;BR IF IT IS
:SET INTERRUPT

DRVIYP(RY)
8%

:SEE IF OFFLINE OR NONEX]STENT
;BR IF OFFLINE

;RETURN, REQUEST IN QUEUE
:SEE IF DRIVE OFFLINE OR UNSATE
DRVSTA(RY)
14
;BR IF UNSAFE
;SET OFFLINE ERROR INDICATOR
#BITIS!'BIT14,16(R2)

#BIT15!'BITOY,16(R2Y

;REPORY DRIVE NONEXISTEN?

E 13

CIRJAD RPO4/S576 MECHAN]CAL AND READ/WRITE TEST
MACY1T 30A(1052)
24=PAY=-T79 13:59 PAGE
CIRJAD P11
28-MAR-79 11:28
SINGLE/DUAL PORT RM11/RP04/5/6 DRIVER (REV 1.0)

035706
710

sro0

716
720
722
726
(Y IV

QOO OO0OOOO0O

¥ il L
LY IV IV IV IV ]
(O R RV IV IV IV LV LV LV ]

8348
8349
8350
8351
8352
8353
8354
83595
8356
8357
8358
8359
8360
8361
8362
8363
8364
8365
8366
8367
8368
8369
8370
8371
8372
8373
8374
8375
8376
8377
8378
8379
8380
8381
8382
8383
8384
83895
8386
8387
8388
8389
8390
8391
8392
8393
8394
8395
8396
8397
8398
8399
8400
8401
8602
8403

740

000403
012762

106413

110000

000016

005720
000401
106413

005720
105037
012637
000200

034550

7%:

BR
MoV

9%:
10%:

191
BR
RESREG
191

(RO)+
10%

8%:

177776

RESREG

(LRB

MoV
RTS

164

SEQ 0160

;60 10 EXIT
SORIVE IS UNSAFE
;RESTORF RO - RS
sSETUP FOR NORMAL RETURN
;FINISH UP, THEN EXIT
;RESTORE RO - RS
;CORRECT THE RETURN ADDRESS
;CLEAR ""ACTIVE DRIVER' FLAG

PBITIS!BIT12,16(R2)

(RO)+

ACTORY
(SP)+,a#PS

;RETURN "'PS’" TQ USER LEVEL
;RETURN

CALLER

;OPTIMIZER=-CALLED FOR A PARTICULAR DRIVE
s CALL
;
;
035742
035744
035750
035756
035762
035764
035766
035774
035776
036004
036006
036012
036014
036020
036022
036026
036034
036040
036042
036050
036052
036056
036062
036064
036066

036072
036074
036102
036104
036110
036112
036116
036120
036124

036126
036132
036134
036136
036142

104412

013746
146137
004737
005702
001505
032764
001407
032764
001003
004037
000470
105761
003014
004737
012762
105761
100064

012762
000460
012746
004037
000000
036174
032714
001427
122762

002403
004737
000440
005737
002012
005737
100404

004037
000427
000403
004737
000423

177776

OPT:

034620
043036

034546

004000

000000

000100

000012

1587
BEQ

B17
BEQ
BIT

9%:

034504

10%:

140000

034504

110000

1S18
BGT

JSR

000016

BPL
;gv

118

1%:

MOV
JSR

RP(S1

6%
BIT
BEG
gH?B

000002

036436

JSR

2%:

151

BGE

153

034574

BM]

JSR

0376406
036222

JSR

MOV

004000

034616

BNE

000016

000111
042010

000150

SAVREG
MOV

BI(B
JSR

035062

043060

MoV
JSR

B8R
BR
JSR
BR

#DRVNUM
R
PC.OPY

:DRIVE NUMBER TO R1
:SETUP A COMMAND
;SAVE RO - RS
PRUC. STATUS

a#PsS,-(5P)
. SAVE
ATABIT(R1) ,SRCHWT

;CHEAR "'SEARCH WAIT'" KEY

PC.GETREQ

;GET "'DPB'* POINTER OF REQUES!

DRVSTA(RY)

;1S DRIVE ONLINE?

R2
;1S THERE A REQUEST IN QUEUE?
%
;NO=--BRANCH TO EXIT
#BIT11,RPCSTI(RG)
;1S DVA STILL SET ?
10%
:BR IF NOT
#B1T6,RPDST(RG)
1S vv SET ?
108
:BR IF IT IS
RO,DRVINT
;SEE 1F DRIVE STILL ONLINF ?
;PARITY OR ‘DVA' NOT SET
6%

1%
: YES=--BRAN(CH
PC,POPQUE
sNO--REMOVE REQUEST FROM QUEUE
#BITIS!BIT14,16(R2)
JSET OFFLINE STATUS/ERROR

;1S DRIVE UNSAFE ?
;sBR TO EXIT |F NOT
#BITIS!BITIZ2,16(R2)
sSET UNSAFE STATUS/ERROR
8%
;BRANCH TO EXIT
#11,-(SP)
;LOAD COMMAND ONTO THE STA(K
RO,WRT.RP
;LOAD THE REGISTER
;REGISTER INCREMENT
;ERROR RETURN ADDRESS
#BIT11,(RG)
;DRIVE AVAILABLE ?
5%
;BR IF NOT
#150,2(R2)
;1S THE REQUEST FOR 1/0?
2%
; YES--BRANCH
PC,CI14
;CALL THE COMMAND INIT]ATOR
8%
:BRANCH TO EXIT
DRVSTA(RY)
8$

DTUW
X
SEEKFG

;DATA TRANSFER UNDERWAY?

RO,LA
8%
4%
PC, (N
8%

:NO=-D0 LOOK AHEAD

:YES==60 START A SEAR(CH
;D0 IMPLIED SEEKS?
s YES=-=-BRANCH
;RETURN HERE

ON A

;60 START A SEARCH

LSTART

PAR]TY

A DATA TRANSFER

ERROR

INDICATOR
INDICATOR

MACY11 30A(1052)
24-MAY-79
13:59
PAGE
CIRJAD RPO4/5/6 MECHANICAL AND READ/WRITE TEST
CIRJAD P
28-MAR-79 11:28
SINGLE/DUAL PORT RM11/RP04/5/6 DRIVER (REV 1.0)

8404
8405
8406
8407
8408
8409
8410
8611
8412
8413
8614
8415

8416
84617
8418
8419
8420
84621
8422
8423
8424
8425
8426
8427
8428
8429
8430
8431

8432
8433
8434
8435
8436
8437
8438
8439
8440
8441
8642
8443
84446
8445
8446

8447
8448
8449
8450
8451
8452
8453
8454
8455
8456
8457
8458
8459

036144
036150
036152
036160
036162
036164
036172
036174
036200
036204
036206
036212
036216
036220

006737
000420
112761

010103
006303
012763
000402
004737
032714
001002
004737
012637
106413

036330

4%
:

177777

03453¢

023420

034576

037052
000100
042320
177776

5%:

6%:
’%:

8%:

000207

JSR
BR

Move
MOV
ASL
Mov

BR
JSR
Bl
BNE
JSR

Mov
RESREG
RTS

165

St 0le!

SSTART A SEAR(H
;60 T0 THE EXI1T
#-1,0PRAS(RY)
;SET PORT REQUEST INDICATOR
R1,R3
;SET UP TO ADDRESS WORDS
R3
;CONVERT TO WORD iNDEX
;10000.,1!HER(R3)
;START 10 SEC TIMER
XT
JE T
PC.C13
8%

PC.CI7

#B1106, (R4)

PC,SET.IE
(SP)+,8#P5

;PROCESS THE

PARITY ERROR

;SEE IF "IE' ACREADY SET
;BR IF SET

SSET 1B WITHOUT A "'TRETM
;RESTORE

;RESTORE

PROC.

STATUS

RO - RS

;COMMAND INITIATOR

CALL

MOV

JSR

#DRVNUM
R
#DPB,R2
PC.C1?

;DRIVE NUMBER
:ADDRESS OF DPB

;C1?= CI1,C13, OR (i4
:
;WHERE

;CI1=DATA TRANSFER
;C12=SEARCH REQUESTED BY DATA XFER
s C14=NOT DATA TRANSFER

036222
036226
036232

036234
036240
036244

036250
036254
036256
036260
036262
036266

036270
036272
036274
036300
036302
036304

036310
036314
036316
036320
036324
036330
036334
036340
036344
036350
036352
036354

0046737
010237
010203
013704
010164
062703
062704
012324
012324
012346
004037
000006
037052
012346
004037
00003«
037052
016246
004037
000000
037052
010137
000137
013704
010164
016246
004037
000034
037052
116203

043060
034544

034632
000010
000004
000002

062010

JSR
MOv
MOv
MOV
MOV
ADD
ADD
Mov
MOv
MOv

JSR
RPDA

MOv

JSR

042010

R2.,TRNSWT
R2,R3

RPADR,R&

R1,RPCS2(R&)
04 ,R3
"2, R4
(R3)+, (R4
(R3)+,(R4)+
(R3)+,-(SP)
RO,WRY.RP
(R3)+,=(SP)
RO,WRT.RP

;REMOVE REQUEST FROM ''DRIVES WAIT'' QUEUE
;PUT

REQ.

IN TRANSFER WAIT

:DPB ADDRESS TO R3
;RPCS1

QUEUE

ADDRESS

;SELECT DRIVE
;DESIRED WORD COUNT
;RPWC

ADDRESS

;LOAD WORD COUNT
;LOAD BUFFER ADDRESS
;LOAD SECTOR AND TRACK
;CALL THE LOAD(WRITE) ROUTINE
;INDEX OF REGISTER TO LOAD
;ERROR RETURN ADDRESS
;LOAD CYLINDER ADDRESS

RPCA

000002
0642010

MOV

034616
037014
034632
000010
000012
062010

MOV

000010

PC,POPQUE

JSR
RPCSY

(13:

JMP

MOov
MOV
01"

JSR

2(R2),=-(SP)
RO,WRT.RP

;LOAD '"COMMAND+GO'', "‘A178A1¢'", AND "'PSEL"’

R1,DTUW

;SET "'DATA TRANSFER UNDERWAY"

RPADK ,R&

:RPCS1

R1,RP(S2(R&)
12(R2),=(SP)
RO WRT,.RP

ADDRESS

;SELECT DRIVE

;DESIRED CYLINDER ADDRESS

RPCA

MOVB

T0(R2),R3

JP1CxkUP SECTOR

ADDRESS

613

CIRJAD RPOL/5/6 MECHANICAL AND READ/WRITE TEST
MACY11 30A(1052)
2L-MAY=79
13:59
CIRJAD P11
28-MAR-79 11:28
SINGLE/DUAL POPT RK11/RP0O4/S5/6 DRIVER (REV

8460
8461
8462
B463
8464
B46S
8466
8467
8468
8469
B4«70
B&71
B4L72
8473
8474
8475
B476
8477
B678
8479
8480
8481
8482
8483
8484
8485
8486
8487
8488
8489
8490
8491
8492
8493
8494
B4L9S
B4L96
8497
8498
8499
8500
8501
8502

8503
8504
8505
8506
8507
8508
8509
8510
8511
8512
8513
8514
B515

036360
036364
036366
036372
036374
036402
036406
036410
036412
036416
036422
036426
036426
036434
036436
036442
036446
036452
036456
036460
036464
036470
036472
036474
036476
036502
036504
036510
036514
036516
036520
0365822
036526
036530
036534
036536
036540
036544
036550
036552
036554
036556
036562
036564
036570
036572
036576
036600
036606
036612
036620
036622
036626

036630
036632
036634

163703

002002
062703
010346

116266

004037

000006
037052
012746
004037
000000
037052
156137
000567
013704
010164
116203
122703
001007
016246
004037
000006
037052
000403
122703
001007
016246
004037

000034

037052
000546
122703
001013
004037
000032
037052
116216

004037
000032
037052
000530
122703
001525

122703

001522
1227C3
001016
112761
105061
112761

010346
004037
000000
037052
000207
122703

034646

SUB
But

000026
000011
062010

000001

1%:

JSR

RPDA

000131
042010

034620

ADD
MOV
MOVB

MoV

JSR

RPCST

(17

034546

034632
000010
000002
000131

(ls:

BISB
BR

MOV
MOV

MOvB
(MPB

BNE
MOV
JSR

000010
042010

RPDA

cl7

000105

1%:

000012
04201C

2%:

BR
(MPB
BNE

MOV

JSR

RP(CA

3%:

000115

041630

BR
(MPB
BNE
JSR
RPOF

000001
042010

MOVB

JSR

MXWNDW,R3
1%
#2¢. K3
R3,-(SP)
11(R2),1(50)
RO,WRT.RP

111, -(5P)
RP
RO,WRT

000117
000103

000001
034504
000001

034474

BR
(MPB
BEQ
(MPB
BEQ
(MPB
BNE

MOVB
CLRB
MOvVB

034552

MOV

JSR

042010

THE

;BRANCH

#105,R3

12(R2),=(SP)
RO,WRT.R?

(l6
#115,R3
3

RO,RD.RP

1(R2), (SP)

RO,WRT
RP

ADDRESS

;SELECT DRIVE

REQUESTED

(OMMAND

;1S IT A SEARCH COMMAND?
NO

:LOAD DESIRED TRACK & SECTOR

;GO LOAD CYLINDER
;1S 1T A SEEX COMMAND
;BRANCH IF NO
;LOAD DESIRED CYLINDER

1S IT AN ""OFFSET'" COMMAND?
;B8R

;MERGE

THE

OFFSET

VALUE

INTO RPOF

:BUT DON'T (HANGE THE UPPER
:BYTE WHEN LOADING THE
sREGISTER (RPOF)

:6G0 START

THE COMMAND

;1S 1T A ""RECALIBRATE'' (OMMAND?>
;BRANCH

YES

;1S IT A RETURN 10 CENTER?
;BRANCH IF YES

;1S IT AN "UNLOAD'' COMMAND?

R3,-(SP)

:BRANCH [F NO
;SET THE DRIVE ACTIVE INDICATOR
:PUT DRIVE STATUS TO OFFLINE
:SET “UNLOAD IN PROGRESS'' fLAG
;START THE ‘‘UNLOAD'' COMMAND

;RETURN

#1,DRVACT(RY)

DRVSTA(RY)

#1,ULDFLG(RY)
RO,WRT
RP

RP(S)

000143

;SET "'SEARCH WAIT' kEY

;PICKUP

€17

L%:

A SEAR(CH

2(R2),R3

RPOF

000107

sSTART

:RPCS1

#131,R3
1%
10(R2),-(SP)
. RP
RO,WRT

SEQ 0162

;(OMBINE THE ADJUSTED SECTOR WiTH
;THE DESIRED TRA(K
;LOAD DESIRED TRA(CK & SECTOR

RPADR,R4

R1,RP(S2(R4)

166

sBACKUP BY MAX. SEARCH FOR [/0 WINDOW

ATABIT(R1) ,SR(HWI

PAGE

1.0)

RTS

5¢:

(MPB

#143,R3

TO USER

1S 1T A P'SET FORMAT' (OMMAND?

H13

MACY1T 30A(1052)
24=MAY=79
13:59
CIRJAD RPO4/5/6 MECHANICAL AND READ/WRITE TEST
CIRJAD P
28-MAR-79 11:28
SINGLE/DUAL PORT RM11/RP0O&/5/6 DRIVER (REV

8570
8571

036746

036752
03¢75¢4
03656
0367¢2
036764
036766
036772
03700C
037054
257006
037012
037014
037016
0370264
037026
037034
037036
037040
037044
037046
037050
037052

001023
016203

012623
023705

001414
062737
000764
122703
001405
010346
004037
000000

037052
004737
052762
005737
10

004737
000207
006301
012761
006201
112761

000207
010346
004037
000000
037052
000761
032764
001034
005702
001405
012762
004737
012746

004037
000000
037152
004737

MmOvB

JSR

RPOF

000141

6%:

000006

78:

000010
000C11
0461630

BR
(mMPB
BNE

mov

036722

MCvB
MOvB

BS:
9%:

JSR
RPCST

Mov
cmp

036722
000002

Bta

036722

000145

ADD

10%:
11%:

062010
043060
000200
034572

12%:

000016

062202

001750

034576

000001

034474
(le:

042010

010000

000010

(17:
1$:

104000

042202
000111
042010

062742

(MPB

BtQ

MOv

JSR
RP(ST

116237
116205
004037
000000
037052

122703

000001

036704
036712
036716
036722
036724
036726
036730
036734
036736
036744

004037
000032
037052
000436

¢00001
062010

St@ 0le’

:BRANCH IF

1(R2),1(5P
RO,WRT RP

;COMBINE “'FMT22°° "'ECI"", AND ""MCI"
;LOAD “'FMT22', "'ECI’', AND/OR °“‘MCI''.

RO,RD.RP

:READ THE

167

OFFSET

RPOF

(W X"
3

8524
8525
8526
8527
8528
8529
8530
8531
8532
8533
8534
8535
853%6
8537
8538
8539
8540
8541
8542
8543
8544
8545
8546
85¢°
8548
854y
8550
8551
8552
8553
8554
8555
8556
8557
8558
8559
8560
8561
85672
8563
8564
8565
8566
8567
8568
8569

116266

BNE
JSR

0461630

—

8523

001014
004037
000032
037052

8521
8522

036640
036642
036646
0365650
036652
036660
036664
036666
036670
036672
036676
036700

—

8516
8517
8518
8519
8520

PAGE
1.0)

JSR
BIS
1S1
8PL
JSR

RYS
ASL
Mov
ASR

MovB
RS
Mov

JSR
RP(S1

(17
BR
BIT
BNE
1S1

BtQ
MOv

000016

(178:

JSR

MoV

JSR
RPCS1

(18
JSR

12%

#141,R3
10%
6(R2),R3

;1S 1T A "'GET REGISTER' (OMMAND?
:BRANCH IF NO
;POINTS 10 1ST ADDRESS OF WHERE

10(R?2),9%

;INIT. THE INDEX FOR THE FIRST REG.

11(R2),RS
RO,RD.RP

(SP)+,(R3)
9% ,RS
12%
"2.9%
8%

;70 PUT

THE

;INDEX OF LAST REG. 10 MOVE
;READ RP04&/5/6 REGISTER

;INDEX OF REG. TO READ

:GET THE CONTENTS OF RWI1/RP04/5/6 REG.
;LAST REG. BEEN READ?
:GET OUT IF YES
:INCREASE THE INDEX BY

12%
R3,-(SP)

;LOOP-=MORE T0 READ
;1S 1T A “'SELECTY DRIVE' (OMMAND?
;BRANCH 1F YES
:LOAD THE COMMAND

PC,POPQUE
#B1T07,16(R2)

;REMOVE REO. FROM QUEUE
;SET THE °‘'DONE'’ BI?

#145,P3

RO,WRT.RP

SAVEFG

13%
PC,SVRHI
PC

:SAVE THE RM11/RP04/5/6 REGISTERS?

:BRANCH IF NO
:YES==60 SAVE THE
;RETURN T0 USER

REGISTERS

R1
#1000.,TIMER(RY,
SSET A ONE SCCOND
R1
#1,DRVACT(RY)
;SET THE DR]IVE ACTIVE
PC
;RETURR 10, THE USER
R3,-(SP)
;LOAD THE COMMAND

TIMER

RO,WRT
. .RP

#BIT12,RPCS2(R4)

(18

;DRIVE NON-EXISTENT

:BR

YES

ANYTHING

IN QUEUE

BR |F NOT
178
#BITIS!BIT11,16(R2)
;SET ''PARITY' ERROR INDI"ATOR
PC,SVRHI
;GO SAVE THE RM11/RP0O&/5/6 REGISTERS
#1171, =05P)
;00 A "DRIVE (LEAR'
RO,WRT.RP

PC,EMPTIYG

SEMPTY THE QUELE

113
CIRJAD RPO4/S/6 ME(CHANICAL AND READ,/WRITE TEST MACY11 30A(1052) 24-MAY-79 13:59 PAGE 168
SINGLE/DUAL PORT RHI1/RPN4L/S/A DRIVER (REV 1.0)
CIRJAD.P1Y
28-MAR-79 11:28

8578
8579
8580

e
o

8576
8577

8574
8575

105061
105061

8572
8573

104412

032764
001002
005001
005003
105761
001443
013702
020137
001402
004737
005702
001415
032764
001404
012762
000405
012762
004737
012763

8581
8582
8583
8584
8585
8586
8587
8588
8589
8590
8591
8592
8593
8594
8595
8596
8597
8598
8599

105061

020137
001005
012737
005037

8600

8601
8602
8603
8604
8605
8606
8607
8608
8609
8610
8611
8612
8613
8614
8615
B616
8617
8618
8619

8620
8621
8622
8623
8624
8625
B626

8627

020137
001095
005037
012737
000207

105061

032764
001021
005201
062703
042701
001316
012737
005037
004737
012764
000406
004737
105061
105061

004737
037404

1064413

034552
034474
034616
034544

177777

034616

(mpP

MOV
RTS

TRNSWT
#-1,0Tuw
PC

010000

00001C

SAVREG
B11
BNE
(LR
(LR

#B1T12,RP(S2(RL)
;IS 'NED'
19
;BR IF YES
R1
R3

036474

BNE
(LR

1%:

(18:

1%:

034544
034616

TS18B

BtQ

MOV

043036

2%:

(mMp
Bta
JSR
1S7T
BEQ
31
BEQ

010000

000010

100002

000016

102000

000016

MOv

034576

MOV

062202
177777
036474
034616
177777
034544
034552
010060

MoV

034616
000010

042742
034504
034514
042320

JSR

(LRB
cmMp
BNE

(LR
CLRB
BI1
BNE
INC
ADD

000002
177770
177777
034564
042664
000040

MOV

5¢:

BIC
BNE

034016

MOV

000010

MOV

6%:
’%:

000207

;CLEAR THE UNLOAD IN QUEUE FLAG
;DRIVE 1S IDLE
;1F THIS DRIVE HAD AN /0 REQUEST

ULDFLG(RY?
DRVACT/RY)
R1,DTUW

CLRB
(LRB

DRVACT(R1)
5%

TRNSWT ,R?

R1,DTUW
2%

;IN PROGRESS CLEAR ALL

;SAVE RO - RS

SET

FLAGS

;GET THE ‘TRANSFER WAIT'" QUEUE
;DID TWic GRIVE HAVE AN [/C [N PROGRESS?
;BRANCH 1+ YES

#BITIS'BITOY,16(R2)

;SET

. CONTINUE

#-1,TIMER(R3)

;STOP THE

'DRIVt NON-EXISTENT'

INDICATOR

#BIT15!BIT10,16(R2) ;SET "'NON-CLEARABLE PARITY'' ERROR INDICATOR
PC,SVRH11
:SAVE RH11/RP04/5/6 REGISTERS

DRVACT(R1)
R1,DTuwW

TIMER

;SET ''DRIVE ACTIVE' 10 IDIE
;1S THIS DRIVE SETUP FOR A TRANSFER

;BR IF NOT
5%
$-1,DTuw
SRESET THE INDICATOR
TANSWT
;CLEAR THE TRANSFER QUEUE
ULDFLG(RY)
;CLEAR UNLOAD FLAG
#BIT12,RPCS2(RS)
;'NED' SET ?
6%
:BR IF YES
R1
;MOVE TO THE NEXT DRI]VE
"2 ,R3
fC7,R

1%
#-1,DTuW

TRNSWT
PC,CLRQUE

BR
JSR
(LRB
(LRB
JSR

PC,EMPTYOQ
DRVSTA(R1)
DRVTYP(RY)
PC,SET.I1E

MOV
mov

THE

;DRIVE ACT]IVE?
;BRANCH IF NO

;BRANCH IF MORE DRIVES
:NO DATA TRANSFERS UNDERWAY

;CLEAR THE 'TRANSFER WAIT' QUEUE
;CLEAR ALL OF THE REQUEST QUEUES

#B81705,RPCSc(R4) ;DO A MASSBUS
7%
s CONTINUE

#DRVNUM R
#DPB,R?

iNIT.

;CLEAR THE DRIVE'S QUEUE
;SET DRIVE TO OFFLINE
“CLEAR THE DRIVE TYPE INDICATOR
;SET 'IE" WITHOUT "'TRETM
;RESTORE RO - RS
;RETURN

;LO0K AHEAD ROUTINE

TCALL

PC,GETREQ
L,GET THE DPB POINTER
R
;QUEUE ENTRY FOR DRIVE
6%
;BR IF NOT
#BIT12,RPCS2(R4)
;'NED® SET ?
.BR [f NOT
3%

CLR
JSR

RESREG
RIS

SEQ D1e4

;DRIVE
;POINT

NUMBER
10 DPB

J 13

MACY1T 30AC1052)
24-MAY-79
13:59
CIRJAD RPOL/S5/6 MECHANICAT AND READ/WRITE TEST
1
CIRJAD P1
2B8-MAR-79 11:28
SINGLE/DUAL PORT RHI1/RPO&/S5/6 DRIVER (REV

8628
8629
8630
8631
8632
8633
8636
8635
8636
8637
8638
8639
8640
8641
8642
8643
8644

8645

8646
8647

8648
8649
8650
8651
8652
8653
8654
8655
8656
8657
8658
8659
8660

8661
8662

8663
8664
8665
8666
8667
8668
8669
8670
8671
8672
8673
8674
8675
8676
8677
8678
8679
8680
8681
8682
8683

JSR

RE TURNI
RETURN?

RO,LA

037406
037412
0374616
037422
037424
037426

013704
010164
004037
000036
037536
022662

037432
037434
037440
037446
037450
037454
037456
037460
037462
037470
037474
037476
037500
037502
037504
037510
037514
037516
037522
037524
037530
037532
037534
037536
037542

001037

034632
000010
041630

034562
034562

116203

000010

000303

006203
006203
012737

004037
000020
037536

000340

041630

JSR

6%
(Mp

BNE
INCB
(MPB
861

034640

MOvB

SWAB
ASR
ASR

177776

MOV

JSR

RPLA
6%
SUB

162603

002002
062703
023703
002406
023703
002003
105061

005720
005720
000402
004737
000200

MOV
MOV

RPCC

000012

105261
126137

003026

LA:

BGE

002600
034642

1%:

034644

ADD

(Mp

BLT

(mMp

2%:

034562

1%:

037052

4%:
5%:

BGE
CLRB
1871

181
BR
JSR
RTS

RPADR,R&

R1,RPCS2(R4)
RO,RD.RP

1.0)

169

;G0 (HECK THE WINDOW
;ERROR RETURN

;START
;START

RETURN3

PAGE

A SEARCH
A DATA TRANSFER

;GET RPCS1°'S ADDRESS
JSELECT DRIVE
;READ CURRENT CYLINDER
;ERROR RETURN ADDRESS

;1S CURRENT CYLINDER-DESIRED
;CYLINDER?
3%
SEXIT IF NO
LACNT(RY)
; INCREMENT THE LOOK AHMEAD COUNT
LACNT(RY) ,MXLACT JEXCEED MAX?
(SP)+,12(R2)

2%
10(R2) ,R3
R3

R3
R3
#340,30PS
RO,RD.RP

;BRANCH

YES

;GET DESIRED SECTOR ADDRESS AND
;MULT. BY 64-=ALIGN WlTH
;LOOK AHEAD REGISTER
;PRIORITY LEVEL 7"

;READ LOOK AHEAD REGISTER
THE

DELTA

(SP)+,R3

;CALCULATE

#<27.264.>
,R3
MXDLTA,R3

;MAKE THE DELTA POSITIVE
;CHECX THE DELTA TO SEE

MNDLTA,R3
3%

LACNT(RY)

(RO
(RO)+
5%
PC.C17
RO

J1F 1T 1S WITHIN THE
;WINDOW--=]F YES, ZERO
:THE LOOK AHEAD COUNT
;AND

TAKE

;ADJUST

THE

1/0 EXIT

RETURN ADDRESS

JEXIT
:PROCESS THE ERROR

;RETURN

;INTERRUPT SERVICE ROUTINE
037544
037552
037554
037560
037564
037566
037572
037574
037600
037602
037606

112737
104412

013704
013701
002403
004737
000402
004737

1064413

000001

034550

ISR:

034632
034616
037610

037750

1%:

MOvVB
SAVREG
MOV
MOv

BLT
JSR
BR
JSR

RESREG

(LRB

034550

177777

RPADR,R&

DTUW,R1

034616

1D:

(LRB

Mov

;SET "'ACTIVE DRIVER'' FLAG
:SAVE RO - RS
;ADDRESS OF RMSCS!
sGET "'DATA TRANSFER UNDERWAY'' INDICATOR

1%
PC,TD

:BRANCH IF NO DATA TRANSFER UNCERWAY

PC,SC

;CALL SPECIAL CONDITIONS
;RESTORE RO - RS
;CLEAR ""ACTIVE DRIVER'' FLAG

ACIDRY

RT1

:TRANSFER DONE

034474

#1,ACTDRY

:CALL TRANSFER DONE
SEXTT

;RETURN

ROUTINE

DRVACT(RY)
#-1,DTUW

;SET DRIVE ACTivE

:NO DATA

INDICATOR TO [DLE

TRANSFERS UNDERWAY

SEQ 0165

K13
CIRJAD RPO&4/5/6 MECHANICAL AND READ/WRITE TEST
MACY11 30A(1052)
24-MAY-79
13:59
PAGE
CIRJAD.PIY
28-MAR-79 11:28
SINGLE/DUAL PORT RM11/RPO4/S5/6 DRIVER (REV 1.0)

8684
8685

8686
8687
8688
8689
8690
8691
8692
8693
8694
8695
8696
8697
8698
8699
8700
8701
8702
8703
8704
8705
8706
8707
8708
8709
8710
8715
8712
8713
8714
8715
8716
8717
8718
8719
8720
8721
8722
8723
8724
8725
8726
8727

037622
037624
037632
037634
037640
037644
037652
037656
037662
037664
037666
037670
037672
037676

037700
037704
037710
037712
037716
037720
037726
037732
037736
037742
037746

006301
01276i
006201
013702
005037
052762
010164
004037
000000

177777

036544
034544
000200
000010
041630

ASL
MOv

034576

ASR
MOv

CLR
B!S

000016

MOV

JSR
RP(SI

037052
006126

100413
005737
100002
004737

004737
000417
012714

000414
052762
004737
004737
012714
012714
000400

c17

ROL

034572
062202
035742

1%:

000113

2%:

100100

042742
062202
040111
000113

000016

1%:

BM]
TS1
BPL
JSR
JSR
BR

MOV
BR
BIS
JSR
JSR

MoV
MOV

R1
l;1,TlHER(R1)
R

;CANCEL

170

TIMEOUT

TRNSWT ,R2

;GET

#B1107,16(R2)
R1,RPCS2(R4)
RO,RD.RP

;SET DONE
;SELECT THE DRIVE
;TRANSFER ERROR(TRE

TRNSWT

(SP)+

"'DPB'' ADDRESS FROM THE

; TRANSFER WAIT

;BR

1%
PC,SVRH1T

;BRANCH IF NO
;YES--SAVE THE

SAVEFG

PC,OPT

SC
#113,(RG)

SE@ 0166

;SAVE

QUEUF--CLEAR QUEUE

1)?

YES

THE RH11/RP04/5/6 REGISTERS?

;CALL OPTIM]ZER

REGISTERS

sCHECK OTHER DRIVES
RELEASE THE DRIVE

SC
:CHECK FOR OTHER DRIVES
#BIT15!B17T06,16(R2) ;SET DATA ERROR FLAG

PC,EMPTYQ
PC,SVRH1I

#60111,(RG)
#113,(R4)
SC

;EMPTY THE ''DRIVE'S WAIT'' QUEUE
:SAVE THE RH11/RP04/5/6 REGISTERS
;1SSUE
:ISSUE
;CHECK

A ''DRIVE CLEAR"
A RELEASE TO THE DRIVE
FOR OTHER DRIVES

SSPECIAL CONDITION ROUTINE

037750
037754
037756

037762
037764
037766

037770
037772
037776

040000
040004
040006
040010
040012
040016
040020
040022
040024
040026

040030
040032
040034
040036
040042
040046
040050
040054

040056

116403
001014
004037
000000
037152
106126
100405
004037
104001
004737
000207
005046
110316

012703
005001
030316
001005
005201

000016

041630

ROLB
BM]

043122

042320

1%:

2%:
000001

SC3:
SC4:

034524

SCS:

105761

040742
034534

1%:

001402
000137

060742

JSR
ERROR
JSR
RTS

(LR

MOvB
MOV

105761

001402
000137

MOVB
BNE
JSR
RPCST

(18

106303

001373
005726
000207

SC:

(LR

Bl
BNE

RPAS(R4) ,R3

:READ '‘RPAS"

2%
RO,RD.RP

:BRANCH 1F ANY 'ATA' BIITS SET
;READ CONTROL AND STATUS REGISTER

(SP)+

;18 'IEtt=1?

R3, (SP)
#,R3
R
R3,(SP)

AN UATA=T

1%
RO,ES.SAV
1
PC,SET.IE
PC
-(SP)

SCS

;YES, NO DRIVES 70 CHECK
;SAVE THE ADDRESS IN 'SESCAPE'
;REPORT AN ILLEGAL INTERRUPT
;SET INTERRUPT ENABLE
:RETURN
;PROCESS ALL DRIVES THAT HAVE

cATA=Y?

JYES=--BRANCH

INC

BNE

SC3

;BRANCH 1f MORE

DPINT(RY)

sINITIALIZING THE DRIVE

ASLB

151
RYS

1518
BEQ
JMP

1518

BEGC
JMP

(SP)+
PC

SC13

DPRQS(RY)
2%

SC13

sMOVE

TO THE

DRIVE

10 (HE(K?

;CLEAN OFF THE STACK
;RETURN 10 USER

;BR

NOT

;PROCESS THE DRIVE
;PORT REQUEST
;BR IF NOT

;START

THE

QUISTANDING ?

QUTISTANDING (OMMAND

8740
8741
8742
8743
8744
8745
8746
8747
8748

8749
8750
8751
8752
8753
8754

8755
8756
8757
8758
8759
8760
8761
8762
8763
8764

8765
8766
8767
8768
8769
8770
8771
8772
8773
8774
8775
8776
8777

8778
8779
8780
8781
8782
8783
8784

8785
8786
8787
8788
8789
8790
8791
8792
8793
8794
8795

105761

0345064

105761
003422

034552

040062
040066
040070

00302%

040076
040102
040106

004737
004737
004737

043036
042202
040672

105761
003416

034504

040074

040112
040116
040120
040126
040130
040134
040140
040142
040146
040150

040154
040160
040162
040166
040170
040176
040200
060204
040210
040212
060214
040216
060222
040224
040226
0460226
040232
0460234
040236
040240
0460246
040250
040254
040260
060264
040266
0460270
040272
040274
040276
040302
040304
040312
060314
040320
040322
060324

032737
001002
000137
013705
000502
105761

001033
004737

040000

034464

034474
040672

034504

104002

1S18

5¢:

105761
100412

032737
001013
012746
004037
000000
040552
011605
004037

BLE
JSR
JSR
JSR

3%:

034524

020000

6%:

003137
052762
000470
004037
000014
040552
012605

MOV

B8R
1S18
BNE
JSR
1S18

BNE
BM]

BIT
BNE

034472

000113
042010

Mov

JSR
RPCS1

7%:

043122

8%:

063122

177777

BLE
BIT
BNE
JMP

1S18

000677
004037
106005
000673
006301
012761
006201
004737
010164
004037
000012
040552
011605
006126
100407
105761

1S1B

BGT

1518

040602
034466

105761

001321

2%:

034576

SC6:

SC8

MOV

JSR
ERROR
BR

ASL
MOV

ASR
JSR

043036
000010
041630

MOV

JSR
RPCS1

DRVSTA(RY)
5%
ULDFLG(R)
Py )
PC,GETREQ

PC,SVRHIT
PC.SC12

DRVSTA(R1}
6%

#B1714 RPERRS

3%
SC1
RPERRS+2,R5
SCOA

DRVACT(R1)
SCé6

PC,SC12
DPINT(R1)

100210

041630

1518

000016
1¢:

BG1
BIS
BR

JSR
RPERT

S(8

MOV

SEQ 0167

;CHECK THE DRIVE STATUS
;BRANCH I1F ONLINE
;UNLOAD IN PROGRESS?
NOT

:BRANCH IF

;GET DPB POINTER

;SAVE THE RH11/RP04/5/6 REGISTERS

;SAVE RPDS1, RPER1, RPERZ2, AND RPER3
;ALSO DO A ORIVE INIT (DRVINT)
;010 DRIVE COME ONLINE?
:NO---BRANCH

:WAS THERE AN ERROR?

;BR IF ERROR
;NO ERROR

;YES -- PICKUP RPER1 AND
;GO PROCESS THE ERROR

;DRIVE ACTIVE WITH COMMAND OR ERROR RECOVERY ?
;BR IF EITHER

;SAVE RPDS1, RPER1, RPERZ2, AND RPER3
;ALSO DO A DRVINT
;TRYING TO

INIT

THE

DRIVE

;BR IF YES, CHECK ON MORE DRIVES

;BR IF UNSAFE

DRVSTA(RY)

:CHECK ON DRIVE'S STATUS

#BIT13,RPERRS+6 ;ADDRESS PLUG CHANGED ?
8%
;BR IF YES
#113,-(SP)
RO,WRT.RP

(SP) RS
RO,ES.SAV
2
Scé

;RELEASE COMMAND
;WRITE THE COMMAND INIO RP(S1
;REGISTER INDFX
;PARITY EXIT

ADDRESS

;P1CKUP (RPAS) BEFORE THE ERROR CALL
;SAVE THE ADDRESS IN 'SESCAPE'

;REPORT

THE UNEXPECTED ATTENTION

;GO CHECK FOR MORE ATA'S

gO,ES.SAV

:SAVE THE ADDRESS IN 'SESCAPE’

SCé
R1
#-1,TIMER(RY)
R1
PC.GETREQ

;CHECK FOR MORE DRIVES
;SETUP TO ADDRESS WORDS
;STOP THE TIMER

R1,RP(S2(R4)
RO,RD.RP

SC6

BM]

1.0)

SC4

;REPORT

THE ADDRESS PLUG CHANGE

;RESTORE

THE

DRIVE

ADDRESS

;GET THE DPB POINTER FRCM THE QUEUE
SSELECT DRIVE
;READ THE RPO&'S STATUS REG.

IN RS
ERPROR?
AN
:WAS THERE
R
:BR |F ERRO

;AND PUT

Mov
ROL

034474

171

PAGE

13:59
MACY11 30A(1052)
24- MAY-79
CIRJAD RPOL/S/6 MECHANICAL AND READ/WRITE TEST
SINGLE/DUAL PORT RH11/RP04/5/6 DRIVER (REV
CZRJAD PN
28-MAR-79 11:28

:CHECK DRIVE'S STATE
;BR 1f DRIVE ACTIVE WITH ORDER
15¢81107.B1703,16(R2)
;INFORM USER OF ERROR RECOVER COMPLETION

CT(RY)

FD.RP

(SP)+ RS

;READ ERROR REGISTER M
;AND SAVE

IN RS

ni3
MACY11 30A(1052)
24-MAY-79
13:59
PAGE
CIRJAD RPO4/5/6 MECHANICAL AND READ/WRITE TEST
CIRJAD.PIN
28-MAR-79 11:28
SINGLE/DUAL PORT RHT1/RP04/5/6 DRIVER (REV 1.0)
8796
8797
8798
8799
8800
8801
8802
8803
8804
8805
8806
8807
8808
8809
8810
8811
8812
8813

8814

8815
8816
8817
8818
8819
8820
8821
8822

8823

8824
8825
8826
8827
8828
8829
8830
8831
8832
8833
8834
8835
8836
8837
8838
8839
8840
8841
8842
8843
8844
8845
8846
8847
8848
8849
8850
8851

040326
040332
040336
040342
040344
040346
040350
040352
040354
040356
040364
040366
040372
040374
040376
040400
040402
040404
040412
040416
040424
040426
040432
040434
040642
040450
040452
040460
040462
040466
060474
040500
040504
040510
040512
040516
040524
040530
040532
040536
040542
040544
040546
040552
040556
040560
N40564
040570
040572
040576
040602
040606
040610
040614
040620

004737

012746
004037
000000
040552
006105

062202
000111
042010

JSR

MOV

SCHA:

100406

005702
001447
052762
000443
004037
000012
040552

011605
006126
100011
112761

004737
052762
000423
032705
001015

112761
112761
006301
012761

006201
000137
052762
105061

004737
105761
003002
105061
116164

105761

100406

012746
004037
000000
040552
000137
105761
00140¢
004737

004737
000402
004737
000137

100240

041630

1%:

ROL
BM]
187

BEQ
BIS
BR
JSR
RPDS1

SC8

MOV
ROL

177777
042202
110000

034504
000016

2%:

010000
177777

000001

034474
034504

072460

034576

040024

100220

034474
042742
034552

034552
034620
034504

000016

3%:
SC7:

1%:

000113
042010
2%:
S(8:

043036
037052

105761

105061
105061
136137

034552
034474
034620

BPL
MOvVB
JSR
BIS
BR

BIT
BNE

1%:

2%:
SC11Y:

034546

1%:

;1SSUE A DRIVE CLEAR

RS
;WAS "'UNSAFE'' CONDITION =1?
1%
;BRANCH IF YES
R?
¢ANYTHING IN QUEUE ?
sC7
:BR If NOT
#B1115!81707'81105,16(R2)
; INFORM USER OF

sC7

RO,RD.RP

;READ DRIVE STATUS REG. #1

(SP} ,RS

;SAVE RPDS1 IN RS

(SP)+

#-1,DRVSTA(RY)

PC,SVRHIN
:SAVE RH11/RP04/5/6 REGISTERS
#BIT15!BIT12,16(R2)
: INFORM USER OF UNSAFE

SC7

BIT12,RS

#-1,DRVACT(RY)
#1,DRVSTA(RY)
R1

VYES

;ACTIVE ERROR RECOVER
:ONLINE

#113,-(SP)
RO,WRT.RP

;RELEASE COMMAND
;WRITE THE COMMAND

N )

s CHECK FOR MORE DRIVES
;1S DRIVE IDLE?

1S1B

BEQ
JSR
JSR
BR
JSR
JMP

1518

BLE
CLRB
(LRB
Bl1B

ERROR

;''MOL = 17

:BR

1S718
Ch
MOV
JSR

SC8
JMP

ERROR

;"'ERR''=1?
;BR IF NO=-UNSAFE CLEARED
;DRIVE IS UNSAFE

ULDFLG(R1)

BGT
CLRB
MOVB

SEQ 0168

:SAVE RH11/RP04&/5/6 REGISTERS

MOvVB
MOvVB
ASL
mMov
ASR
JMP
BIS
CLRB
JSR
T1S718

RPCST

040024
034474

037100
040024
034552

003402

000016

JSR
RP(CSH
SC8

PC,SVRHN
#11,-(5P)
RO,WRT.RP

172

#30G00.,TIMERC(RY)

;START

30 SECOND TIMER

R1
SC4
#BIT15!B1T07!BIT04,16(R2)
DRVACT(Ri)
;DRIVE IS IDLE
PC,EMPTYQ
;DUMP THE QUEUE

; INFORM USER OF

ERROR

:UNLOAD IN PROGRESS OR QUEUE?
:BR IF NOT
ULDFLG(RY)
. CLEAR UNLOAD FLAG
ATABIT(R1) ,RPAS(R4)
;CLEAR ATTENTION BIT
DRVSTA(RY)
;1S THE DRIVE UNSAFE ?
;BR IF IT IS
2%
LR3

DRVACT(R1)
1%

PC,GETREQ

PC.CI7

ULDFLG(R1)
1%

ULDFLG(RY)
DRVACT(RY)

INTO RPCS!

;REGISTER INDEX
SPARITY EXIT ADDRESS

: YES==BRANCH

:GET DPB POINTER
;PROCESS THE PARITY ERROR
s CONTINUE

;PROCESS THE UNCORRECTABLE PARITY ERROR
;CHECK MORE DRIVES

:""UNLOAD IN PROGRESS'"?
;BRANCH

: CLEAR UNLOAD FLAG

;SET DRIVE IDLE
ATABIT(R1),SRCHWIT
;DOING A SEARCH OPERATION FOR
;AN

1/0

COMMAND?

;

N 13

CIRJAD RPOL/S5/6 MECHANICAL AND READ/WRITE TEST MACY1Y 30A(1052) 24=MAY=79 13:59 PAGE 173
SINGLE/DUAL PORT RHM11/RP04/5/6 DRIVER (REvV 1.0)
CIRJAD.PIY
28-MAR-79 11:28
8852
8853
8854
8855
8856
8857
8858
8859
8860
8861
8862
8863
8864
8865
8866
8867
8868
8869
8870
8871
8872
8873
8874
8875
8876
8877
8878

8879
8880
8881
8882
8883
8884
8885
8886
8887
8888
8889
8890
8891
8892
8893
8894
8895
8896
8897
8898
8899
8900
8901
8902
8903
8904
8905
8906
8907

060626
040630
040634
040642
040646
040650
040654
040662
040666
040672
040676
040704
040712

001012
004737
052762
005737

040720
040726
040732
040734
040736
040740
040742
040744
040752
040754
040760
040766
040772
040774
040776

0164637
004037
000401
000207
005726
000704
006301
012761
006201
010164

041004
041006
041010

041014
041016
041022
041026
041030
041034
041036
041040
041042
041046
041054
041060
041064
041066
041072
041076

100002

004737
116164

004737
000137
010164
016437
016437
016437

116164

032714
001006
00630
012761
006201
000433

043060
000200
034572
062202
034620
035742
040024
000010
000012
000014
000040
000042
035062

034464
034466
034470

2%:
SC12:

000016

023420

034576

140000

042202
062742

034534
035742
040024

3%:

:BRANCH IF NO

PC,SVRHIT

:SAVE THE REGISTERS?

;YES==SAVE ALL OF THE RH11/RP04/5/6 REG'S

RPER1(R4) ,RPERRS+?2

;WILL TELL US SOMETHING

RPER3(R4) ,RPERRS+6

RO,DRVINT
1%

;:TAKE ERROR EX]T

B8R

SC8

:PROCESS THE PARITY ERROR

RTS
181

PC
(SP)+

ASL

ASR

MOV

#-1,TIMER(RT)

;INIT. THE STATE OF
:RETURN
:POP PC OFF

THE

THE DRIVE
STACK

:SETUP 10O ADDRESS WORDS
:STOP THE

TIMER

MoV
MOVB
BIT
BNE

R1,RPCS2(R&)
:SELECT THE DRIVE
ATABIT(R1),RPAS(R4)
;CLEAR THE ATTENTION BIT
:DRIVE AVAILABLE ?
#BIT11,(RG)
:BR If AVAILABLE
1%

MOV

#10000.,TIMER(RY)

;START 10 SEC TIMER AGAIN

ASR

1S1B

DPINT(R1)

1518

DRVSTA(RY)

TS1
BEQ
JSR

R2
3%
PC,GETREQ

égn

gg,enprvo

:EMPTY THE REQUEST QUEUE

DPRAS(R1)
PC,0PT

;CLEAR THE PORT REQUEST INDICATOR
:START THE PENDING REQUEST

BEQ
CLRB
JSR
NOP

BIS
JSR

2$:

;SET ''DONE’’ BIT

SAVEFG

RPER2(R4) ,RPERRS +4

8GT

000016

#81707,16(R2)

MOV

ASL

1%:

:BRANCH IF YES
;REMOVE REQUEST FROM QUEUE

;CLEAR ATTENTION BIT
‘BTABIT(R1) ,RPAS(RL)
:START A REQUEST
PC,OPT
SC&
:CHECK FOR MORE DRIVES
R1,RPCS2(R4)
:SELECT DRIVE
RPDS1(RG) ,RPERRS
;SAVE THE FOUR REGISTERS THAT

JSR

SC13:

23
PC,POPQUE

MOVB
JSR
JMP
MOV
MoV

MoV

034524
035062

043036

JSR

MOV

034472

000010
034620
004000

0345064

004737
000137

000016

034576

105761

105061

181

BPL

177777

034524

003014
005702
001416
004737
052762
004737
004737
000404

BIS

000016

1%:

105761
001424
105061

004037
000240

BNE
JSR

SEQ 0169

CLRB
JSR
JMP

CEXIT

2%
DPINT(R1)
RO,DRVINT

:BR If NOT
;CLEAR THE INIT INDICATOR
;GO INIT THE DRIVE
;:DUMMY PARITY ERROR RETURN

;INITIALIZING THE

;DRIVE ONLINE

DRIVE

;BR 1f YES =-- START ORDER

:QUEUE ENTRY FOR THE DRIVE
:BR 1F NOT
:GET DPB ADDRESS

:INFORM USER THA{ DRIVE OFFLINt
#BITIS'BIT14,16(R2)
PC,SVRH1
:SAVE THE REGISTERS

SC4

:PROCESS GTHER DRIVES

¢RP04/5/6 TIMER ROUTINE
;s CALL

041102

005737

034550

:
:

MOV
JSR

#TIME,-\SP)
PC,RPTMR

SELASPED TIME IN MILLISECONDS ON THE STACK
:CALL RPO4/S/6 TIME ROUTINE

RPTMR:

187

ALTDRY

SCHECK ‘"ACTDRY & ACTSTR*

8 14

MACYYY1 30A(1052)
26=PMAY-79 13:56 PAGE
CIRJIAD RPOL/5/76 MECMANICAL AND READ/WRITE TEST
SINGLE/DUAL PORT RMY1/RPO4/S5/6 DRIVER (REV 1.0)
CIRJAD P
28-MAR-79 11.28

8908
8909
8910
8911
8912
8913
8914
8915
8916
8917
8918
8919
8920
8921
8922

8923
8924
8925
8926
8927
8928
8929
8930
8931
8932
8933
8934
8935
8936
8937
8938
8939
8940
8941
8942
8943
8944
8945
8946
8947
8948
8949
8950
8951
8952
8953
8954
8955
8956
8957
8958
8959
8960
8961
8962

8963

041106
061110
061116
041120
041122
0641124
041130
0641132
06411640
06411642
0641146
0641150
0641152
041154
0641160

0461162
0461164
061170
061172

001030
1127%7
104412
005001
005003
005763
002407
166663
003003
004737
000405
005201
005723
022701
003361
106413
105037

012616
000207

000001

1%:

034576

000002

ant

034551

RmOve
SAVREG
(LR
(LR
181
BL!

SuB
BGT

034576

041174

JSR

2%:
000010
3%:

034551

4%:

INC
157

‘s

#1,ACTSTR

R1
R3
TIMER(RD)
2%

(R3)

8. R
1%

(LRB
Mov

ACTSTR
(SF)+,(SP)

RTS

Seq 0170

;1F NON ZERO EXIT

;SET TACTSTR'

;SAVE RO - RS
;START WiTH DRIVE O

;1S THE TIMER RUNNING?
:BRANCH 1F NO
)
, TIMER(RY) ;COUNT THE INTERVAL
2(SP
P4)
:BR 1f NO SOFTWARE TIMEOUT
PC,ST)D
;CALL SOFTWARE TIMEOUT ROUTINE
3%
;GO 10 THE EXIT
R1
;MOVE TO NEXT DR]VE

4,14
86!

RESREG

17¢

.0UT OF DRIVES?

;BRANCH [F

;RESTORE RO - RS
;IERO ACTIVE SOF TWARE TIMEOUT ROUTINE FLAG
sADJUST THE STACK
sRETURN

;SOF TWARE TIMEOUT ROUTINE

INOTE: THIS ROUTINE MUST BE ENTERED AT PRIORITY 6
OR GREATER

E(ALL:

061174
061176
061200
041204
041210
061214
061216
061220
061222
061224
041230
061232
041236
061240
041244
041250
061252
041256
041264
061270
061276
041302
041306
061310
061312
061316

OV
010346
O

ST10

MOV
JSR

;DRIVE
:CALL

RE TURN

#DRVNJM R
PC,STD

S10:

MoV

R1,-(SP)

; SAVE R1

MOV

RPADR,R4

:GET ADDRESS OF ''RPCS1'’

034632
000010
041630

MoV

JSR

RPDSI

S105

S101:

034524

TS1B
BNE

034534

MOV

034544
034616

043036

101000

042202
000040
034474
034552

000477

035062

1578
gMm!
1S1B
BNE

000016

1%:

000010

2%:

R3,-(5P)

R1,RP(S2(RG)

NUMBER

;SAVE R3
:SELECT

THE

DRIVE

RO,RD.RP

;READ ''DRIVE STATUS REG''

(SP)+
$102
DPINT(RY)
$102

;1S "DRY''=1?
;BR IF YES
:TRYING TO INTIALIZE THE DRIVE
;BR IF YES

TRNSWT ,R?

:PICKUP TRANSFER WAIT QUEUE

DPRAS(RY)
S$102

;:OUTSTANDING PORT REQUEST FOR TME DRIVE ?
;BR IF YES

cmp
g8eQ
JSR
B1S

:TRANSFER UNDERWAY ON THMIS DRIVE?
R1,DTUW
;BRANCH IF YES
1$
;GET DPB ADDRESS
PC,.GETREQ
#BIT15'B1T09,16(R2) ;SET THE ERROR FLAGS

MOV
(LRB
(LRB
(LR
(LR
JSR
B8R

#BJT0S,RPCS2(R&G) ;''INIT'® THE MASS BUS
;DRIVE IS IDLE
DRVACT(RY)
sCLEAR THE UNLOAD FLAG
ULDFLG(RY)
R
;START WITH DRIVE O
RS
SINIT, THIS DRIVE
RO,DRVINT
S10%
;PARITY ERROR RETURN

JSR

PC,SVRHI1

:SAVE RHV1/RP04/S5/6 REGISTERS

C 14
RMACY11 30A(1052)
13:59 PAGE
CIRJAD RPO&/S/6 MECHANICAL AND READ/WRITE TEST
24-RAY=-79
CIRJAD.PYY
28-MAR-79 11:28
SINGLE/DUAL PORT RM11/RP0O4/5/6 DRIVER (REV 1.0)

8964
8965
8966
8967
8968
8969
8970
8971
8972

8973

8974
8975
8976
8977
8978
8979
8980
8981
8982
8983
8984
8985
8986
8987
8988
8989
8990
8991
8992

8993
8994
8995

8996

8997
8998
8999

9000
9001
9002

9003

9004
9005
9006
9007
9008
9009
9010
90N
9012

9013
9014
9015
9016
9017
9018
9019

041320
0461324
041326
061332
0641336
061340
0641344
041352
0641356
041362
041370
0641372
041374

0461400
0641402
041410
061414
0641420
061622
061426

061632
0641434

061440
061442
0461446
041450

041454
041456
0641462
041464

041466
0641470
061472
041476

041500
061504
041506
061514
041516
0641522
061524
041530
061534
041542
061546
041550
061552
0641560
0641562
041570
041574
041600
041602
041604
061612
041616

105761
0014614
013702
023701
001402
004737
052762
105061
105061

012763
005723
005201
022701
003344
012737
005037
004737
000500

034474
034544
034616
043036
100400

0364474
034552
77777

177777
034546
062664

000016
034620

105761

034524

105761

034534

001031

001045
020137
001263
004037
000000
0461516
105726
100255
105761

001003

105761
001446

012763
000442
004737
000437
105061
105061

012763
004737
005702
001424
052762
000414
012763
105061

004737
005702
001407
012762
004737
004737

mov

000016
034576

1%:
4%

(mp
8tQ
JSR
8IS
(LRB
(LRB

Moy

151
INC
cmp

000010

116405
136105

001017

1518
BtQ

86T

034616

CLR
JSR
8R

MOovB

BITB
BNE

1518

BNE

1578

BNE

034616

(mp
BNE

0461630

S103:

034534
034576

1$:

037152

S105:

036526
0345064

ST106:

177777

043036

034576

140000

000016

177777

034576

0345364
043036
100004
0462742
0462202

000016

DRVACT(RY)
ULDFLG(RY)
#-1,TIMER(RY)
(R3)
e
R1

8. R

$103

DPINT(R1)
S106
DPRQS(R1)
$107
R1,DTuw

(SP)+

:DRIVE IDLE BEFORE THE INIT.?
;YES=-=BRAN(H
;GET TRANSFER WAIT QUEUE
;WAS THERE

1/0 ON

sYES=-BRAN(CH

:UPDATE THE INDEX
;INCREMENT THE DRIVE NUMBER

JLAST DPIVE BEEN (HECKED?

;NO=-=L00P
:NO DATA TRANSFERS UNDERWAY

;CLEAR TRANSFER WART QUEUE
:(LE?R ALL REQUEST QUEUES
JEX]
;READ

ATTENTION REG

;IS ATTENTION FOR THIS DRIVE UP
JYES--BRAN(CH
;TRYING TO INTIALIZE

#-1,TIMER(RY)

MOV

;BR

S109

SEXIN

JSR
JSR

THE

FOR

DINITIALIZING THE DRIVE
INIT

PENDING

REQUEST

NOT

;STOP THE

;60 HANDLE

PENDING

TIMER

THE PARITY ERROR

;CLEAR THE INITIALIZE
JSET UNIT OFFLINE
;STOP THE TIMER
;GET THE DPB ADDRESS
;REQUEST

[N QUEULE

INDICATOR

:BR 1F NOT

ST08

;FINISH
;STOP THE TIMER
;CLEAR PORT REQUEST INDICATOR
;GET DPB ADDRESS
:QUEUE ENTRY FOR DRIVE ?

#BIT1S.BIT14,16(R2)

DPRQS(RY)

PC,GETREQ

INFORM THE USER DRIVE NOT

S109
;BR 1F NONE
#BIT15:BIT2,16(R2)
;INFORM USER OF
PC,EMPTYQ

PC,SVRMY

THIS DRIVE

S109

#-1,TIMER(RD)

DRIVE

:YES==CHECK ''RDY"

mov

REQUEST

:DATA TRANSFER UNDERWAY
;BR 1F NO

;PORT

PC,GETREQ
R2

FOR

YES - NO RESPONSE TO REQUES!?

;BR

JSR
181
13
B1S
BR
MOv
(LRB

:BR IF

DPRQS(R1)
S109

$109
DPINT(RY)
DRkVSTA(RY)
#-1,TIMER(RY)

DRIVE

YES - DRIVE NOT ONLINE

;OUTSTANDING PORT

;BR OIF RDY-0

THE

:BR IF

S101
DPINT(R1)

BR
JSR
B8R
CLRB
(LRB

TH]IS DRIVE?

;SET DRIVE ACTIVE TO IDLE
;NO UNLOAD
:STOP THE TIMER

BPL
1518
BNE
1518

JSR
181
BtaQ

ST108:

S109
RPAS(R&)
,RS
ATABIT(RY)
RS

1S18

MoV

S$107:

PC,CLRQUE

RO,RD.RP

8ta

seEQ 1N

PC,GETREQ
;GET THE DPB POINTER FROM QUEUE
#BIT15:'BIT08,16(R2) ;INFORM USER OF INIT,

JSR
RP(ST

S10%

177777

CTuw,R1
38

MOov

S102:

034524

DRVACT(RY)

13
TRNSWT
R?

175

AvA[(AB ¢

PORT REQUEST ERROR

;CLEAR THE QUEUE FOR Tmt DRIVE
;SAVE THE REGISTERS

D 14

CIRLAD RPO4/5/6 MECHANICAL AND READ/WRITE TEST
MACY11 30A(1052)
13:59
24=MAY-T7)
CIRJAD P
28-MAR-79 11:28
SINGLE/DUAL PORT RM11/RPO&/S5/6 DRIVER (REV

9020
9021
9022
9023
9026
9025
9026
9027
9028
9029

041622
061624
0461626

012603
012601
000207

ST0%:

;ROUTINE

SCALL

9030
9031

9032
9033
9034

9035
9036
9037
9038
9039

9040

9041
9042
9043
9044
9045
9046
9047
9048
9049
9050
9051
9052
9053
9054
9055
9056
9057
9058
9059
9060
9061
9062
9063
9064
9065
9066
9067
9068
9069
9070
9071
9072

9073

9074
9075

mov
nov
RTS

(SP)+ R}
(SP)+ R

TO READ

JSR
INDEX
ERRADR

041566
06672

061676
061702
061704
061710
061714
0461716
04641720
061722
061722
041726
0641730
041734
041736
0641742
061744
041746
041750
041754
041756
061764
061770
061772
041776
061776
042000
042002
042004
042006

013737
011646
013737
062037
013727
000000
000000
013766
013746
062716
032736
001037
017746
032716
001002
022620
000432

034630

061776

034632
041654

041654

041656
034632
000010
010000

RD .RP1:
RD .ADR:
RD .WRD:

9463122

005737
100405
032716
001402
005726
000415
052716
000316
013737
005237
112637
000000
005327
000003
002324
011000
012616
000200

034616

MOV

.WORD
.WORD

Mov
ADD

gI1

BNE

Mov

1%:

040000

2%:

040000

034632
061772

MOV
Mov
Mov
ADD

MOV

172722
020000

004037

104003

000002

RD. RP:

061772

BIT
BNE
(mp
BR
JSR
ERROR
181
BM]
BIT
BEQ
181
BR
BIS
SWAB
MoV

RO,RD.RP

1%:
RD. RP2:
RD. RP3:

RD LRPGL&:

;ROUTINE

SCALL

StQ 0172

;RESTORE R3

;RESTORE R1

:RETURN

;GO READ A REGISTER
;REG. INDEX FROM BASE

;ERROR ADDRESS=--PROCESS ERROR STARTING

THIS ADDRESS

MCPEMX ,RD.RP2
(SP),=(SP)
RPADR,RD.ADR

(RO)+ ,RD.ADR
e
)¢
, (PC
S(PC
0
0
RD.WRD,2(SP)

RPADR,=(SP)
#RP(S2, (SP)
#B1T12,3(5P)¢

RD.RP3

I5 ON THE

REG.

;CONTENTS OF
sMAX.

RETRYS ALLOWED

;FORM

THE

:SAVE RO FOR RETURN
DESIRED

ADDRESS

sUSING THE BASE AND THE iNDEX
sREAD THE DESIRED REGISTER OF TME RPO&
;ADDRESS 1S FORMED MERE
;REG. CONTENTS PUT HERE
;RETURN 1T 10 THE USER
;PUT

THE

;FORM THE

ADDRESS ON

;CHECK THE

ADDRESS OF

THE

°NED' BI1T

STA(K

RP(S?

;BR 1IF DRIVE NON-EXISTENT

:READ RP(S1H
;DID MCPE SET?

:BRANCH

gO.ES.SAV

:SAVE THE ADDRESS IN "SESTAPE’

DTUW
2%

#BITI4, (SP)

;ADJUST

FOR

JEXTT

YES

RETURN

;REPORT ‘'MCPE'’ ERROR
;DATA TRANSFER UNDERWAY?
:NO=-=-BRANCH

;NO-=""TRE''=1?
:NO=--BRANCH

(SP)+

RD.RP3
#BIT14,(SP)
(SP)

RPADK,3$

.WORD
DEC
.WORD
BGE

MOV

(SP)+,(5P)

(SP)+,a(P(j+

;YES-=CLEAN OFF
;TAKE

THE

FATAL

THE STACK AND

ERROR

;POSITION BEFORE
;FORM ADDRESS OF

WRITING
HIGH BYTE

;WRITE THE HIGH BYTE QOF RP(S!

sADDRESS

STORAGE

;EXCEEDED MAX, RETRYS

MOV

RD.RP!
‘R0),RO

;BRANCH IF NO

RTS

TO WRITE

EXIT

;CLEAR "MCPE'' BY SENDING A “'1'" 10 "'TRETM

(PC)+

Moy

STA(K

,
= (5P,
aRPADR
#BI1T13, (5P
1%
(SP)+,(RO)+
RD.RP&

INC

MOVB

176

A RH11/RP04/S5/6 REGISTER

RETURN

041630
0461636
041640
061646
061652
uL1654
041656
0461660

PAGE
1.0)

;FATAL

ERROR

EXI1T

A REGISTER

DATA,=-(SP)

;DATA 1O BE LOADED ON THE STACK

E 14

CIRJAD RPOG/S5/6 MECHAN]CAL AND READ/WRITE TEST
MACYT1 30AC1052)
PAGE
13:59
2L-MAY=-79
CIRJAD P11
28-MAR-79 11:28
SINGLE/DUAL PORT RHV1/RPO&/S5/6 DRIVER (REV 1.0)

9076
9077
9078
9G79
9080
9081
9082
9083
9084
9085
9086
9087
9088
9089
9090
9091

9092

9093
9094
9095
9096
9097
9098
9099

i
s
il
=l
et
D
e
il
sl
D
—

LAV,
V] PNUINIAD = it e e et e e i e
£ N = OO0
NO NNy
—o

VOO0V OO0VO0VO0OO0VOVO00 ~O

9100
9101
9102
9103
9104
9105
9106
9107
9108

9125
9126
9127
9128
9129
9130
913

JSR
X
INDE
ERRADR

RO,WRT.RP

0642010
042016
042024
042026
042032
042034
042062

0346630
000002

Mov
MoV
Mov
mov

MCPEMX ,WRT . R?

041630

BNE
(mPB
BL1T
JSR

177770

WRT.R3
SWAB
BlC

000150

042052
042054
042056
042062
042066

062077
034632

062074
042076
042100
042102
042106
042112
042116
042120
042124

042076

RPCS1

042100

034632
000010
010000

1%:
WRT.R1:
. WD:
WRT
WRT.AD:

042134
042136
062144
042150
042152
042154
042160
042162
042164
042166
0462170
042172
042174

177776

041630
043122

WRT.RZ2:

;ROUTINE

CCALL
SVRH11:

1064412

005702
001430
013704

034632

THE

OLD A16 & A17,

; THE

COMMAND

; THE

RH11/RPO4

BEFORE

SENDING

~{7,(5P)

(SP)+
,WRT WD+ 1

RPADR,=(SP)

#RP(CSZ, (SP)
#B1T12,8(S5P)¢

WRT.R3

WRT.R3
BIT

#B1T103,(SP)+

JSR
.WORD
WRT.R3
JSR
ERROR
DEC
.WORD
BGE
157

BR
151

TO SAVE
MOv

SAVREG
181

BtQ

MOV

& PSEL

(SP)

BIT
BNE

JSR

042202
042204
042206
0642210

GET

;NO---COMBINE A168A17, & PSEL WITH

;ADDRESS [S FORMED HERE
; PUT THE ADDRESS ON THE STA(K

WRT.RS: RTS

000200

;YES--DON'T

WRT,.R3: MOv
WRT.R4:

;ADJUST THE STA(K
;GET INDEX OF REGISTER TO BE WRITTEN
;BRANCH JF NOT RP(S!
;1S THE COMMAND FOR DATA TRANSFERS”

.WORD
.WORD

Mov

1%:

RETRYS ALLOWED
THE WORD TO WRITE

;FORM THE ADDRESS OF THE DISK REG.
;LOAD THE DESIRED REG.

BEQ

042150

(SP)+,(5TM)

(RO)+,WRT_AD
1%
#150,WRT
WD
1%
RO,RD.RP

;MAX

; SAVE

RPADR ,WRT . AD
éP()‘,B(PC)'

JSR
RPER

000010

2(SP),WRT.
WD

REG.

RETURN

MOvB
ADD
Mov

MOV
ADD

041630

042126
042130

042200

WRT_RP:

0462100

062044
042050

042176

042164
062076

SEQ 0173

s CALL THE ROUTINE TO LOAD(WRITE) THME
; INDE X OF THE REGISTER 'O BE LOADED
;ADDRESS TO RETURN TC ON AN ERROR

;ERROR FREE

RETURN

177

RO,RD.RP

WRT.RG

-2(R0),1$
gO.RD.RP
RO,ES.SAV

(PC)+

WRT.R1
(SP)+

(RO) ,RO
WRT.RS
(RO)
¢
RO

;WORD

TO WRITE

.FORM

THE

;CHECK

;BR

THE

GOES MERE

ADDRESS OF

°NED' BIT

DRIVE

RP(S?

NON-EX]STENT

:CHECK FOR PARITY ERROR ON WRITE

"PAR-0Q"’

;BRANCH IFf

;PICKUP THE INDEX
;READ THE REG.

sREG.

INDEX

RETURN TO THIS ADDRESS ON ERROR
s SAVE THE ADDRESS IN 'SESCAPE’

;REPORT THE PARITY ON WRITE ERROR
;DECREMENT THE ERROR COUNT
;RETRY COUNTER
;TRY AGAIN [F NOT

sCLEAN OFF

: TAKE

THE

FINISHED

THE STAC(K

“'PARITY ON WRITE' ERROR Exl7

JEX1T
;ADJUST FOR ERROR FREE EXIT

THE RH11/RP04/5/6 REGISTERS AS PER DPB¢14
#DPBNUM,R?
PC,SVRHTN

R?
6%
R4
RPADR,

:0OPB POINTER 10 R?2
:SAVE THE DRIVES REG'S
;SAVE RO - RS
;QUEUE ENTRY FOR Tht

;BR | F NONE

DRIVE

CIRJAD RPOL/S/6 MECHANICAL AND READ/WRITE TEST

CIRJAD.PYY
9132
9133
9134
91395
9136
9137
9138
9139
9140
9141
9142
9143
9144
9145
9146
9147

9148
9149
9150
9151
g}g%

2B-MAR-79 11:28

042214
042220

042226
042226
062232
062240
042242
042250
042252
042254
062256
042262
042264
042266
062270
042276

042300
042306
042310
042314
042316

111264
016203
001433
005037
023727
001006
032764
001002
005023
000405
004037
000000
042310
012623
023727
001406

062737
000751
004737
104413

MACYI1 30A(1052)

24=-MAY-79

13:59

PAGE 178

SINGLE/DUAL PORT RM11/RP0O&/S5/6 DRIVER (REV 1.0)

000010
000014

MOvVB
MoV

042262
042262

000022

000200

000010

041630

1%:

¢y
1%

042262

0000646

000002

042262

037052

&9%:

5¢:
6%:

000207

8¢Q
(LR
(mp
BNE
Bl
BNE

(LR
BR
JSR
.WORD
5%
MOV
(mp
BEQ

ADD
BR
JSR
RESREG
RIS

(R2),RP(S2(R&)
;SELECY DRIVE
14.R2) R}
;GET THE ERROR TABLE POINTER
6%
SEXLIY IF NO ADDRESS
b )
:COUNTER & POINTER
3%.0RPDB
;REACHED THE BUFFER REG!STER 7
2%
:BR [F NOT
#BIT07,RP(S2(R&)
;'OR' SET ?
2%
:BR 1F SET
(R3)+
;STORE RPDB AS [EROES
A
:CONTINLE
RO,RD.RP
:READ THE SELECTED REGISTER
O
:REGISTER INDEX
:ERROR RETURN ADDRESS
(SP)+,(R3)
:STORE THE REGISTER CGNTENTS
38, #RPE(?
;REACHED THE END ?
6%
:BR IF YES

#2,3%%
1%
PC,CLI7
P

s INCREMENT THE REGISTER INDEX
:CONTINUE READING THt REGISTERS
:PROCESS THE UNCORRECTABLE PAR]TY ERROR
:RESTORE RO - RS
:RETURN

9154

SROUTINE TO SET THE INTERRUPT WITHOUT GETTING A "'TRE'

9156
9157

;
;

91595

9158
9199

9160

9161

9162

:CALL
:

042320

042322

042326

010446

013704

010164

9163
9164

042332
062334

011446
052716

9166
9167
9168
9169
9170
9171
9172
91;5

042342
042346
042354
042356
042360
062362
042366
042370

112714
032764
001002
005726
000402
112664
0126064
000207

9165

9174

9175

042340

000316

9176
9177
9178
9179
9180

042372
062373
042374
042375
042376

000
000
000
000
000

9182
9183

042400
042401

000
000

9181

9184

042377

9186

040000

1%:

2%:

:SAVE R4

:P1CKUP ADDRESS OF RP(S!

MoV
BIS

(R&) ,=-(SP)
#BIT14,(SP)

:READ RP(SI
;SET THE “'TRE'' B17T OF THE WORD READ

MOove
8l
BNE
181
B8R
MOv8
MOV
R1S

;JQUEUE COUNT

QCNT:

R4 ,-(SP)

;:DRIVE NUMBER 10 R!
SSET IR

RPADR,R&

SWAB

000010

#DRVNUM,RY
PC,SET.IE

MOV
MOV

R1,RPCS2(R4)
(SP)

:SELECT DRIVE

:ADJUST FOR DATO

#B1106, (RG)
SSET 'IET
#BIT12,RPCS2(R&) ;]S "'NED''=1?
AR
:YES==CLEAR "'TRE"
:CLEAN OFF THE STA(K
(SP)+
2%
:CLEAR "'TRE"
(SP)+,1(R&)
:RESTORE R4
(SP) ¢ ,RG
:RETURN TO CALLER
PC

BYTE
.BYilg
BYTE
.BYTE
.BYTE

0
0
O
0
0

;DRIVE
;DRIVE
;DRIVE
:DRIVE
;DRIVE

.BYTE
.BYTE

0
0

;DRIVE 6
;DRIVE 7

.BYTE

000

O
1
2
3
&

;ORIVE 5

;QUEUE INPUT POINTERS

91895

9187

000010

000001

RE TURN

SET.IE: MOV

036632

000100
010000

MOV
JSR

042407

0624064

QINPT:

_WORD

QDRV)D

;DRIVE O

SEQ 0174

G 14

9226
9227
9228
9229
9230
9231
9232
9233
9234
9235
9236
9237
9,38
92%9
9240
9241
924
9248

.WORD
.WORD

.WORD

;DRIVE

QDRVb

QDRv7

SEQ 0175

QDRVS

ODRV4

:DRIVE
:DRIVE

:DRIVE

WIS

.WORD

:DRIVE

;DRIVE
:DRIVE

~NO

.WORD

QDRV1
QDRvV?
QDRV3

:DRIVE
:DRIVE
:DRIVE
;DRIVE

NO NN
— O

.WORD
.WORD

;QUEUE OuTPUT POINTERS
042464
042504
042524
062544
042564
0462604
042624
0462644

QoUTPT:

042442

062464
042504
042524
042544
0462564
042604
062624
042644
042664

QSTART:
QSTOP:

062444
042446

0462450
062652
0424654
042656
0462460
042462

.WORD
.WORD
.WORD

QDRVO
QDRV1
QDRV?

.WORD

QDRvV4&

.WORD

.WORD
.WORD

QDRvV3

QDRVS

QDRvV6

.WORD

QDRvV7

.WORD
.WORD
.WORD
.WORD

QDRVO
QDRV!
QDRV?
QDRVY

.WORD

:DRiVE
;DRIVE
;DRIVE

;DRIVE

;DRIVE O START

ADDRESS

;DRIVE O STOP ADDRESS & DRIVE
;STOP DRIVE 1==START DRIVE
2==START DRIVE
3-=START DRIVE

QDRVS

;STOP DRIVE
.STOP DRIVE
:STOP DRIVE

L-=START

QDRv?7

:STOP DRIVE

6=-=START

QDRv4

QDRvV6

QTERM

DRiVE

:ST0P DRIVE S5==START DRIVE
:STOP DRIVE

DRIVE

QDRvV4:

QDRVS:
QDRV6:

QDRvV7:

QTERM=,

——
-l
)

.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW
.BLKW

)

QDRVO:
QDRV1:
QDRvVZ:
QDRV3:

000010
000010
000010
000010
000010
000010
000010
¢C0010
042664

—

042464
042504
0462524
042544
042564
042604
042624
042644

;DRIVE REQUEST QUEUES

;ROUTINE TO CLEAR ALL OF THE REQUEST QUEUES

TCALL
042664
042666

042672
042674
042676
042700
042702
042706
042712
062714

104412

042372

(LRQUE:

SAVREG

MOV

(LR
(LR
(LR
(LR

000010

062442

JSR

1%:

Mov
MOov
MOV

DEC

PC,CLRQUE

#QCNT ,R?
(R2)¢
(R2)¢
(R2)¢
(R2)¢
#8. R}
#OSTART,R1
(R1)+,(R2)
R3

:5AVE RO - RS
;IERO THE QUEUE COUNTS
;DRIVES 0 &1
;DRIVES 2 & 3
;DRIVES 4 & 5
;DRIVES 6 & 7
;MOVE THE STARTING
;ADDRESS OF TME QUEUE INTO
: THE

QUEUE

INPUT

POINTER

NOM
NS NN

042422
042424
042426
042430
042432
042434
042436
062440

)

9224
9225

042504
042524
042564
062564
0462604
0462624
042644

—

922%

042406
042406
0424610
042412
062614
042416
042620

179

COOOOODODOOO

9188
9189
9190
9191
9192
9193
9194
9195
9196
9197
9198
9199
9200
9201
9202
920%
9204
9205
9206
9207
9208
9209
9210
9211
9212
9213
9214
9215
9216
9217
9218
9219
9220
9221
9222

PAGE
1.0)

—

MACY1) I0A(1092)
13:59
24-MAY=T79
CIRJAD RPO4/S5/6 MECHANICAL AND READ/WRITE TEST
CIRJAD LU
28-MAR-7G 11:28
SINC E/DUAL PORT RM11/RP04/5/6 DRIVER (REV

1 START ADDRESS

W14

MACYTT 30AC1052)
24=-MAY-79
13:59
CIRJAD RPO&L/5/6 MECHANICAL AND READ/WRITE TEST
SINGLE/DUAL PORT RH11/RP0&/5/6 DRIVER (REV
(IRJAD P11
28-MAR-79 11:28
9244
9265
9246
9247
9248
9249
9250
9251
9252
9253
9254
9255
9256
9257
9258
9259
9260
9261
9262
9263
9264
9265
9266

042716
042720
04627264

000010
042442

042730
042732
04273
042736
062740

2%:

TCALL
0627462
042746
042750
042756
042760

105061

006301
016161
006201
000207

EMPTYQ:

042372
042402

042422

\?1)‘,(R2)0

SEQ 0176

;MOVE THE STARTING ADDRESS
:0F THE QUEUE INTO ThE

;QUEUE OUTPUT POINTER

;RESTORE

RO - RS

JSR

PC,EMPTYQ

DRVNUM,R1

;DRIVE NUMBER 10 R1

CLRB

O%NT(Rl)

;CLEAR NUMBER GF

ASL
MOV

QINPT(RY),Q0UTPT(RY)

Mov

ASR
RTS
;ROUTINE

TCALL

T0 PUT

MOV
MOV

042762
042770
042772
062776
043000
043004
043012
043020
043022
043030
043032
043034

122761

000010

105261

062372

001421

006301
010271
062761
026161
001003
016161

006201
005720

042402
000002
0462402
0462442

000200

042372

062402
062444

REQUEST

SDRVNUM R
#DPB R?

(MPB
8tQ
INCB

#10,0CNT(RY)

042402

(Mp
BNE

1%:

MoV
ASR

rs ¥

RTS

;ROUTINE

TCALL

T0 GET

MOV

JSR

RE TURN

9292
9293
Q294

043036

043040
043044
043046
043050

005002
105761
001404
006301
017102

062372
062422

GETREQ:
1%:

(LR

QCNT(RY)

.DRIVE NUMBER
;ADDRESS OF PARAMETER BLO(KX

;60 PUT REQUEST

IN QUEUE

;RETURN HERE

REQUEST

;RETURN HERE
;1S QUEUE

IF QUEUE

1S FULL
IS

IN QUEUE

FULL?

YES-TAKE RETURNI

;BR IF

; INCREMENT QUEUE COUNT

R2,8QINPT(RY)
;PUT THIS REQUEST IN QUEUE
;UPDATE THE QUEUE POINTER
#2,QINPT(R])
QINPT(R1),0STOP(RY) ;TIME TO RESET THE POINTER
1%

;BRANCH

QSTART(RY) ,QINPT(RT)
R

(RO) ¢
RO

#DRVNUM R
PC,GETREQ

Q(NT(RY)

ASL
MoV

S00UTPT(RY;,R2

NEXT REQUEST

IN QUEUF

:DRIVE NUMBER 10 R!
;60 GET THE REQUEST

;R2=""DPB'* ADDRESS OF THE REQUES!T
;R2=0

:YES-=RESET POINTER

;TAKE RETURN 2
;RETURN T0 USER

THE ''DPB’'' ADDRESS Of

1$18

BEQ

;SET QUTPUT QUEUE POINTER INPUT POINTER

IN QUEUE

RO,DRvQUE

ADD

IN QuUEUE

JSR
RETURN]

ASL
MOV

ITEMS

RETURN?

9291

9295
9296
9297
9298
9299

DEC
BNE

180

;EMPTY THE QUEUE SPECIFIED By RI

9267

9274
9275
9276
9277
9278
9279
9280
9281
9282
9283
9284
9285
9286
G287
9288
9289
9290

1%
#8.,R3
FOSTART R

RESREG
RIS

9268
9269
9270
9271

9272
9273

BNE

MOV
Mov
mov

PAGE
1.0)

NO REQUES!

IN QUEUE

s 1S THERE ANY REQUEST

:NO===BRAN(CH

IN QUEUER?

;PL(kUP ''DPB'" POINTER FOR THIS DRIvE

1 14
CIRJAD RPOL/S5/6 MECHANICA! AND READ/WRITE TEST
MACY1T 30A(1052)
24-MAY-79
13:59 PAGE
CIRJAD.PIY
28-MAR-79 11:28
SINGLE/DUAL PORT RM11/RP04&/5/6 DRIVER (REvV 1.0)
9300
9301
9302
9303

043056
043056

006201
00020

2%:

9319
9320
9321
9322
9323
9324
9325
9326

9327
9328
9329
9330
9331
9332
9333
9334
9335

s CALL

MoV

RE TURN

043060
043064
043066
043072
043100
043106
043110
043116
043120

105361
006301
017102
062761
026161
001003
016161
006201
000207

062372
042422
000002
042422

062622
042446

042442

042422

;RETURN T0 USER

JSR

POPQUE: DEC(B
ASL
MOV
ADD
(mp

BNE

1%:

MOv

ASR
RTS

R
¢DRVNUM

;DRIVE NUMBER 10 R!
;CALL TO REMOVE REQUEST
;R2=ADDRESS OF DPB REMOVED

QCNT(RY)
R1

;DECREMENT QUEUE COUNT

P(,POPQUE

#2,00UTPT(R1)

:GET THE *'DPB'' POINTER
;UPDATE THE QUEUE POINTER

sRETURN

,R2
@Q0UTPT(R1)

QOUTPT(R1),0STOP(R1) ;TIME TO RESET THE POINTER?
1%
;NO--BRANCH TO EX]T
QSTART(RY) ,Q0UTPT(RY) YES--RESET THE POINTER
R1

JROUTINE 10 SAVE
:REPORTS

s CALL

0643122

043126
043132
043136
063140
063144

012037
013746
005037
000000
012637
000200

043136

001206
001206

JSR
ERROR

£S.SAV:

MOV

1%:

001206

LSBITL

0637146
043150
043153
043156
043162
043166
063171
063174
043177
043202
043205
043210
043214
043216
063224
063232
0643240
043242

.WORD
MOV
RTS

067122

USE :

052114
IR

000123
000124

053523
051505

CONTENTS Of

RO,ES.SAV

T0O USER

'SESCAPE'

WHEN

THE

DRIVER

;. THE

(RO)+,
18
$ESCAPE ,-(SP)

;GET THE ERROR (ALL
;SAVE THE ADDRESS IN 'SESCAPE’
;CLEAR THE ESCAPE RETURN

BES(APE

(SP)+ ,3ESCAPE
RO

:THE

;THE

ERROR

RETURN

ERROR

CALL

IS PAST

CALL

TME

ERROR

(A,

IS MOVED HERE

JRESTORE THE ESCAPE ADDRESS

;RETURN

ASCTIZ MESSAGES

040527

106

040520
000075
005015
067522
052111
000075
005015

(LR

052116

041506
041514
06151

116

Mov

047503
020114
044103

114

051506

RETURN

MSG.R:
.ASCIZ
MSG.FC: LASCIZ
MSG.LC: LASCIZ
MSGFCP: LASCIZ
MSGLCP: .ASCIZ
MSG.IC: .ASCIZ
MSG.FT:
ASCIZ2
MSG.LT:
.ASCIZ
MSG.IT: ASCIZ
MSG.FS:
LASCIZ
MSG.LS: JASCIZ
MSG.PAT:
MSG.EQ: LASCI2
MSG.(S: ASCI2

000122
061506

THE

AN ERROR DIRECTLY.

;
:

9336

9337
9338
9339
9340
9341
9342
9343
9344
9345
9346
9347
9348
9349
9350
9351
9152
9353
9354
9355

Rl
PC

SEQ 0177

;ROUTINE 10 ''POP'" THE REQUEST FROM QUEUE

9304
9305

9306
9307
9308
9309
9310
9311
9312
9313
9314
9315
9316
9317
9318

ASR

RIS

181

LASTLZ

/R/
/8C/
/LC/

/EC/
e/
/1¢/
Ay
I/
111/
/ES/
LS/

/PAY/
.ASC1Z
/=1
<CR><LF>/CONTROL

SW]IT(MES=/

<(R><LF /WARNING: PROGRAMMABLE DRIVES MAY BE

UsED/< R

MACY11 30A(1052)
CZRJAD RPOL/S5/6 ME(HMANICAL AND READ/WRITE TEST
ASCIZ MESSAGES
CIRJAD.P1Y
28-MAR-79 11:28

9356
9357
9358
9359
9360

9361

9362

9363
9364

9365
9366
9367
9368
9369
9370
9371
9372
9373
9374
9375
9376
9377
9378
9379
9380
9381
9382
9383
9384
9385
9386
9387
9388
9389
9390
9391

9392
9393
9394
9395
9396
9397
9398
9399
9400
9401
9402
9403
9404
9405
9406

9407

9408
9409
9410
941

043250
043256
0643264
043272
043300
043306
0643314
063317
043324
043332
043340
043346
043354
043362

047111
067522
040515
051104
046440
020105
005015
040
040522
062514
042526
020114
042502
000104

043364
043370
043376
043404
043410
043416
063426
043427
06434634
043437
063444
043452
043454
063462
063464
043472
043500
043502
043507
043514
043521
043526
043534
043542
043550
043552
043557
043561
0435066
043574
043602
0643610
0643616
043624
043632
043640
043646
043647
063654
043662
063670

027440
047125
0640524
005015
051104
047440
0642516

040
042516
040
051129
000124
052440

000105
047040

030120
000066
050122
122
050122
015
042526
067524
042526
000040
047516

054
015
053513
041440
020054
Ca3516
051524
G20114
04502
047506
000
015
0% 2123
05 1104
000

035107
051107
046102
053111
056501
051525

041040
042105

051120
046515
042055
053440
047516
052440

063517
041101
046522
046111
020124
042523

000

13:59

PAGE

182

SEQ 0178

050040
046501
020105
051505

NOUSE:

LASCIZ

SLASH:
SYSTAT:

ASCIZ
ASCLZ

s/ a
JUNIT

000105
064514

UNTMSG:
UNTOFF:

ASCIZ
LASC1Z

/DRIVE/
/ OFFLINE/

PROGRAMMABLE-DRIVE

000040
052111
052524
000012
053111
043106
000
047117
000
047516
051505

044514

UNTON:

CASCIZ

ONLINE/

020124
047105

NOTPRS:

LASCI1Z

NOT

051516

043101

NOTSAF:

UNSAFE/

052117
027464

051040
027465

NOYRP:

@ NOT

032060
030120
033060
042012
051450
041040

000
000065

RPO4B:
RPOS:
RPO6:

/RPO&/

051440
035123

000
0646522
020051

WILL

NOT

TESTED

USED/

STATUS:/<CR><LF><LF>

PRESENT/

RP(O4/S/63

/RPCS/

DRIVES: .

052123

020105
042105

042516

000

NOCLOK: .

053440
047516
050040
046522

020117
050055
045503
044515
051505
046111
020124
051105
042105

005012
047111
053111

042524
020107
020105

TESTING:

000
047012
030461
047514
044524
052040

J 14

24-MAY-79

:
NONE

(OMMA:

ASCLZ

/RPQ6/

<CR><LF>/DRIVE(S)

TO BE

/NONE
/
/,/

<CR>CLF>/NO kW11=P (LOCK,

CCROCLEX<LE>/TESTING DRIVE

TIMING TESTS WitLL NOT BE

FERFORMED/

K 14
24-MAY-79

MACY11 30A(1052)
CIRJAD RPO4/S5/6 MECHANICAL AND READ/WRITE TEST
ASCIZ MESSAGES
28-MAR-79 11:28
CIRJAD.P1Y
9412
9413

9414

9415

9416
9417
9418
9419
9420
9621
942¢
9423
9424

9425
9426
9427
9428
9429
9430
9431
9432
9433
9434
9435
Q4,36
9437
9438
9439
9440
9441
9442
9443
9444
9445
9446

9447
9448
9449
9450
9451
9452
9453
9454
9455
9456
9457
9458
9459
9460
9461
9462
9463
9464
9465
9466
9467

063671
043676
043704

051105
052516
000040

043710
043716
0643724
043732
04643740
063742
043750
043756
043764
043772
044000
044006

044011
044016
0464024
044026
064034
064042
044050
044056
044064
044072
0464074
0464102

04644110
0661
044116
0464124
044132
044140
044146
044153
044160
044106

0644170
044176
064177
044204
044206
044214
044215
044222
044230

044236
064244
0646251
044256
044264
0646272
044300
044306

005015

000
015
000075

005015
000
060
041040
052040
047111
0467440
040
020105
040515
020115
051440
042040

PAGE

183

SEQ 0179

SERIAL:

ASCIZ

/SERIAL NUMBER

051012
047511
050123
044526

MSG7:

LASCIZ

CCROCLF><LE>/ROTATIONAL

047412
046131
020122
052040
005015
051117
000
020012
042526

MSG10A:

CASCIZ

CCROCLF><LE>/ONE

020052
051522

MSG108:

<ASC1Z

<CR><LF>/

040412

041503
044526
040505
047105
020052
051101

MSG11A:

LASCIZ

CCROCLF>CLF>/ACCESS TIME MFASURMENT/<CR><LF>/

025040
051105

051040

MSG118:

ASCIZ

<CR><LF>/

005012
052515
045505
051505
043040
042122
020012
04252¢

040515
020115
052040
005015
051117
000
020052
051522

MSGI2A:

LASCIZ

CCROCLFZ<LF>/MAXIMUM SEEK

MSG12B:

.ASCIZ

<CR><LE>/

044515

036516

MSGMIN:

.ASCIZ

<CRO<LF>/MIN=/

046412

054101

:
MSGMAX

LASCIZ

<CRY<LF>/MAX-/

053101

036507

MSGAVG:

LASCIZ

CCR><LE>/AVG=/

052440
046105
042510
046511
020106
041101
044124
044530
043117
042505
046511

000123

MSGOUS:
MBELOW:

LASC1Z
LASCIZ

/0 US/

:
MABOVE

ASCI2

MSGNUM:

LASCIZ

020123
046440
0646522
020012
053522

000105

040511
041115

13:59

SPEED

CYLINDER

SEEK

TIMES/

TIMES/<CR><LF>/

FORWARD/

060527

042523

053517
046440
046525
000
053117
020105
052515
000040
051513
042105

REVERSE/

» FORWARD/

REVERSE/

/ BELOW THE

MINIMUM OF

ABOVE

THE

MAX{MUM OF

SEEKS

TIMED/

TIMES/<CR><LF>/

» FORWARD/

MACY11
CIRJAD RPO4/5/6 MECHANICAL AND READ/WRITE TEST
ASCIZ
MESSAGES
28-MAR-79
11:28
CIRJAD P
9468
9469
9470
9471
9472
9473
9474
9475
9476
977
9478
9479
9480
9481
9482
9483
9484
9485
9486
9487
9488
9489
9490
9491
9492
9493
9494
9495
9496
9497
9498
9499
9500
9501
9502
9503
9504
9505
9506
9507
9508
9509
9510
9511
9512
9513
9514
9515
9516

9517

9518
9519
9520
9521
9522

9523

0464314
0446315
044322
044330

0464333
044340
044346
044354
0464362
044370
044376
044404
0464412
044420
0446426
0446364
044442
044450
044456
044464
0646
044476
0445064
0464512
044520
044525
044532
0464540
044546
064554
044561
044566
064574
44602
044610
044616
044624
044632
064637
044644
044652
0464660
044666
064674
044702
044710
0644716
0466721
044726
044734
044742
04LL7L6
0464754

000
040
064526
020040

122

)
0L
050125
052503
024040
036440
047125
052103
0521264
047117
051125
040515
020123
054524
051117
036505
115

051525
052111
047522
036522
101
051523
020107
042507
051440
122

050122
033057
042514
051040
042116
042101
044523
104
051440
042526
047040
046116
046511
051105
042504
040524
104
047503
020105

051125
044504
051122

047516
062515
000

030510
042524
0¢012¢4
051122
050122
03004C
056105
042105
047105
047440
042522
051523
040520
042440
046450
024461
051501
050040
020131
0246122
024461
042106
050040
044103
041040
052105
030510
032060
043040
020104
051505
052040
051104
043516
044522
046105
020104
052117
047111
051120
044040
020122
000
052101
650115

020124
000104

30A(1052)

L 14
24-MAY=79

13:59

PAGE

184

MSGNON:

LASCIZ

MSG.SP:

ASCIZ

LSBTTL

ERROR HEADER

EM1:

CASCIZ

/RHT1

EM?:

LASCIZ

/UNEXPECTED ATTENTION OCCURRED/

EM3:

LASCIZ

/MASSBUS PARITY ERROR(MCPE-1)/

EMG:

LASC1Z

/MASSBUS PARITY ERROR(PAR-1)/

EMS:

.ASCIZ

/ADDRESS PLUG CHANGE

EMI10:

LASCIZ

“"RH11/RPO4/5/6 FALILED TO RESPOND 1O ADDRESSING''

EM11:

LASCIZ

/DRIVE

EMI12:

LASC1Z

/ IMPROPER HEADER DATA/

020101
051101
046111

EM13:

LASCIZ

/DATA COMPARE

062440
044440

EM17:

LASCIZ

/D1SK ERROR IN TIMING TEST/

NOT

TIMED/

;TW0 (2)
(EM)

SPACES

MESSAGES

INTERRUP( OCCURRED (RPAS = 0)/

SELECTED

BIT

SET/

IS NOT ONLINE/

040504
FAILURE/

SEQ 0180

14
MACY11 30A(1052)
24-MAY-79
CIRJAD RPO4/S/6 MECHAN]CAL AND READ/WRITE TEST
CIRJAD.PIN
28-MAR-79 11:28
ERROR MEADER (EM) MESSAGES

/CLOCK

EM23:

CASCIZ

/DISK

EM24:

LASCIZ

/SEFX NOT

051057
027465
047522

EM4Y:

CASCIZ

""RH11/RP04/S/6 ERROR"

020114
020105
020113
000122

EMG6:

LASCIZ

/EATAL

LSBTTL

STATUS/ERROR

030461
027464
051105
040524
052111
041505
047522

185

(XW11=P)

ERPOR

OVERFLOW IN TIMING TEST/

DURING

SEEK/

COMPLETE

WRITE

WITHIN

CHECK

120 MS/

ERROR/

INDICATOR MESSAGES

C43117
020105
051516
051104

047111
052440
020105

MSGB14:

LASCIZ

/OFFLINE OR UNSAFE DRIVE REQUESTED/

047125
042105

042101
044522
050505
042105

MSGB13:

LASCIZ

/UNLOADED DRIVE

044523
020124
042506

MSGB12:

LASCIZ

/PERSISTENT

052111
047522
052503
000
046101
052111
047522

MSGB11:

LASCIZ

/PARITY

MSGB10:

LASCIZ

/FATAL

040527
046511

MSGBO9:

LASCL2

/SOFTWARE

020105
051505

042522
042524

042526

042525
000
052123
047125

O
Y N

120

045312
045320
045326
045327
045334
045342
045350
045355
045362
045370
045376
045400
0454006

.ASC1Z

020105
047111
046440

9562
9563
9564
9565
9566
9567
9568
9569
9570
9571
9572
9573
9574
9575
9576
9577
9578
9579

EM20:

0641517
030527
047440
047514
052040
020107
000
051511
047522
044522
042505
045505
041440
052105
044124
030062

) e

045212
045220
045226
045234
045242
045250
045254
0465262
045270
045276
045304
045305

9556
9557
9558
9559
9560
9561

051105

PAGE

044524
052040

PN\YP

9555

9554

020116
043516
000124
046103

—r e

044762
044770
044776
045000
045006
045014
045022
045030
045036
045044
045047
045054
045062
045070
045076
045104
045112
045120
045126
045134
065136
065144
045152
045160
045162
045170
045176
045204

OO
OO0OO0O0OO0O0O0
[V IV RV IV VD o
AV IV

9524
9525
9526
9527
9528
9529
9530
9531
9532
9533
9534
9535
9536
9537
9538
9539
9540
9541
9542
9543
9544
9545
9546
9547
9548
9549
9550
9551
9552
9553

13:59

062522

REQUESTED/

UNSAFE/

ERROR OCCURRED/

PARITY

ERROR/

TIMEQUT

ON THIS DRIVE/

SEQ 0181

N 14
MACY11 30A(1052)
24-MAY-79
CIRJAD RPOL/S5/6 MECHANICAL AND READ/WRITE TEST
CIRJAD.PI
28-MAR-79 11:28
STATUS/ERROR INDICATOR MESSAGES

046026
046030
046036
046044

0001
0511
0200
0201

LASCIZ

/SOf TWARE

mSGBOG:

LASCIZ

"t RROR OCCURRED DURING [/0 OPERATION"

051122

051117
051125
052504
047040
047457
0640522
000
043101
052503
000

MSGBOS:

+ASCIZ

"'ERROR CCCURRED DURING NON-]/0 OPERATION"

MSGBO4:

LASCIZ

/UNSAFE OCCURRED/

MSGBO3:

LASCIZ

/AUTOMATIC

MSGBOZ:

.ASCIZ

/DRIVE HAS NOT RESPONDED TO PORT REQUEST/

MSGBO1:

ASCIZ

/DRIVE

LSBTTL

DATA HEADER

050040
040520

DH1:

LASCIZ

/ERR PC

RPAS/

041520
053111
050122

DH2:

LASCIZ

/ERR PC

DRIVE

041503

0471
0515
0615
0421
0521
0615
0461
0425

066517

051040
0411
051440

0425

0641516
052503
000
042526
047040
051505
042105
047520
050505

SEQ 0182

TIMEQUT ON ANOTHER DRIVWE/

RECALIBRATE

HAS BECOME

SEQUENCE OCCURRED/

NON-EX]STENT/

026516
042526

—

1
0201

MSGBOS:

s ON
osrrn

9632
9633
6634
9635

046013
046020

053524
044524
029124
047516
062040
000
051117
051125
052504
064440
042520
047117

O S0
ON

9630
9631

000

043117
020105
052517
040440
051105
042526
051122
041503
020104
043516
047440
046524

9627
9628
9629

045720
0645726
045734
045742
045750
045755
045762
045770
045776
046004
046012

186

047440
051511
0642526

O=O

9616
9617
9618
9619
9620
9621
9622
9623
9624
9625
9626

045705
045712

050505

020105
051122
104
044040
052117
047520
052040
052122
042525
104
044040
.41505
047516

PAGE

052125
044124
044522

9614
9615

045664
0645672
045700

047505
020116
042060
000
123
051101
042515
047117
044126
044522
105
047440
042522
044522
047457
040522
000
105
047440
042522
044522
047117
047440
046526
125
020105
051122
101
052101
061505
040522

9611
9612
9613

045614
045422
045430
045436
045437
0656444
045452
045460
065466
065474
045501
045506
045514
045522
045530
045536
0455464
045545
045552
045560
0645566
045576
045602
045610
045615
045622
045630
045635
045642
065650
045656

OO0

9580
9581
9582
9583
9584
9585
9586
9587
9588
9589
9590
9591
9592
9593
9594
9595
9596
9597
9598
9599
9600
9601
9602
9603
9604
9605
9606
9607
9608
9609
9610

13:59

(DT) MESSAGES

RPAS

RPDS1

RPER1

RPERZ

RPERY/

(IRJAD RPO&/5/6 MECHANICAL AND READ/WRITE TEST

CIRJAD.P1Y

28-MAR-79 11:28

9636
9637
9638
9639
9640
9641

046052
046060
046066
066974
046102
046110

051501
050122
020040
020061
051105
050122

020040
051504
050122
020040
020062
051105

9646

066146

040504

060526

9662
9643
9664
9665

9647
9648
9649
9650
9651
9652
9653
9654
9655
9656

066116
046124
046132
046140

046153
046160
046166
066174
046202
046210
046216
046222
046230
0646236

062526
020040
061520
051104

020040
020061
051105
050122
020040
000063

13:59

PAGE 187

DH3:

LASCIZ

/TEST

ERR PC

ADDRESS DATA/

051505
042440
020103
042522
0421064
0410640
000101
051503
051105

020126
051122
040440
051523
052101
N& 104

DH4:

LASCIZ

/TEST

ERR P(

ADDRESS GDDATA

BODATA/

020061
020122

DM10:

.ASCIZ

/RP(S1

ERR PC/

106
0200640
050040

044522
062440
000103

042526
051122

DHIY:

.ASCIZ

/DRIVE

ERR PC/

041520

000

SEQ 0183 |

020040
020122
042101
020123

126
020040
050040
042104
043440
020101
052101
050122
020040

052123
051105
020040
051505

MACY1Y 30A(1052)

DATA HEADER (DT) MESSAGES

8 15
24-MAY-79

9657
9658
9659

046241
046246
046254

9661
9662
9663
9664
9665
9666
9667
9668
9669

046266
066276
046302
046310
046316
046326
046332
046340
046346

020040
041520
020124
051104
020040
051104
041501
042523
000

051105
020040
041520
053111
054503
020040
020113
052103

0200640

020122
051524
020040
020105
047114
051124
020040
051117

DOH12:

.ASCIZ

/TEST

ERR PC

TST PC

DRIVE

C(YLNDR

TRA(K

9671
9672
9673
9676
9675
9676

046354
046362
046370
046376
066406
046412

020040
045522
051504
041040
020040
045522

041504

043640
020040
052103
041506
041040
020040

046131

DH12A:

_ASCIZ

/(DCYL

GDIRK

GDSCTR

BD(vL

BDTRK

BDSCTR/

9678

046426

042107

040506

052103

000122

042102
020040
052116
042101
042102

020124

040504
051127
020040
020122
062101

DH13A:

,ASCIZ

/GDDAT

BDDAT

WRDCNT

GDADR

BDADR/

9685

066474

0625264

052123

0200640

DH17:

LASCIZ

/TEST

ERR PC

DRIVE

RP(S1

RPDS1

041520

020040

9660

9670

9677

9679
9680
9681
9682
9683
9684

9686

9687

9688
9689
969C
9691

066260

046347

046620

042526

107

051504

046434
066442
046450
046656
046466
046472

020040
020124
041504
042107
020040
000122

046502

020040

066510

046516
0465264
066532
046540

053111
050122
0200640
020061

052123

051105

020105
051503
050122
020040

(52106
063440
020122
046131
052104
061040

020122

051104

020040
020061
051506
050122

RPER!?

SECTOR/

RPER?

RPER3Y/
l

’
|
i

15
CIRJAD RPO&/S5/6 MECHANICAL AND READ/WRITE TEST MACY11 30A(1052) 24-MAY-79
CIRJAD.PIY
28-MAR-79 11:28
DATA HEADER (DT) MESSAGES
9692
9693
9694
9695

9696
9697
9698
9699
9700
9701
9702
9703
97064
9705
9706
9707
9708

9709

046566
0465564
046562
046570

046572
046600
046606
046614
046622
046630
046636
046646
066650
046656
046664
046672
046700
046706

9710

046707

9719

046774

9711
9712
9713
9714
9715
9716
9717
9718

9720

9721
9722
9723
9724
97¢5
9726
9727
9728
9729
9730
9731

9732

9733
9736
9735
973
9737
9738
9739
9740

9741

9762
9743
9744
9745
9746
9747

051105
050122
020040
000063

020040
020062
051105

042526
020040
041520
020124
051104
020040
051104
04641501
062107
0200640
020124
061506
042523

052123
051105
020040
041520
053111
054503
020040
000113
0640504
042102
0200640
052116
052103

020040
020122
051524
020040
020105
047114
051124

DH21:

.ASCIZ

/TEST

EPR PC

TST PC

DRIVE

020124
040504
051127
020040
051117

DOMZ2TA:

,ASCIZ

/GDDAT

BDDAT

WRDCNT

SECTOR/

126

051505

020126

DH23:

ASCIZ

/TEST

ERR PC

DRIVE

062520

030522

DH23A:

.ASCIZ

/RPERT

RPERZ2

052123
051105
020040
041520
053111

020040
020122
051524
020040
000105

0O+

°:

ASCIZ

/TEST

051105
020040
041520
053111
050122
020040
020062
051504

020040

020122
051524
020040
020105
051503
050122
020040
000061

DMH&?:

LASCIZ

050122
020040
000063
051503
050122
020040

020061

051105
050122

DH43A:

020061
051503

DresA:

000

020040
050040
044522
0616440
020122
030523
041520
051040

066775

122

000

047002
047010
047016
047024
067032
047040
047042
047050
047056
067064
067072

020040
031122
042520
051040
0200640
000103
062526
020040
041520
0c01264
051104

047106
047116
067122
067130
047'36
047146
047152
047160

020040
041520
020124
051104
0200640
020061
051503
050122

047166

047174
047202
047210
067216
047222
047230

PAGE 188

020061
051105
050122

046714
046722
046730
066736
046744
046752
046760
066766

047100

13:59

042524

052122

022040
020062
051105
050122
0200640
020062

0426440
020103
042526
046131
0510640
020040
031123
042120
0510640
020040
031522
041520
051040

052123

051105

051122
042040
020040
042116
041520
051040
020049
030523
04252C
051040
020040
020101
041520

050122

SEQ G184

CYULNDR

TRA(K/

(YLNDR

RP(S!

RP(S2

RPDS1/

RPER3

RP(A

RPCC/

ERR PC

T1ST PU

DRIVE/

/TEST

ERR PC

T1ST PC

DRIVE

RPCS!

RP(S2

RPDS1/

,ASCIZ

/RPER1

RPER2

RPER3/

ASCIZ

/RPCS1

RPCS2

RPDSY!

RP(C

RPCA

RPDA/

D15

PACYTY 30A(1052)
24=-MAY-79
CIRJAD RPOL/S5/6 MECHAN]CALL AND READ/WRITE TEST
CIRJAD PN
DATA HEADER (DT) MESSAGES
28-MAR-79 11:/28
9748
9749
9750
9751
9752
9753
9754
9755
9756
9757
9758
9759
9760
9761
9762
9763
9764
9765
9766
9767

0467236
067244
067252
0467260
047266

0672M
047276
047304
047312
047317
047326
047332
047340
047346
047354
047362
047370

051504
050122
020040
020040
040504
122

020040
031122
062520
122

020040
031122
042520
051040
020040
020101
042120

029061
041503
050122
020040
000
042520
051040
020040
031522
042520
051040
020040
031522
053520
051040
020040
000102

FPAGE

189

SEQ 0185

020040
020040
040503
050122

030522
062520
051040
00C
030522
042520
051040
020040
020103
041120

DM&GB:

LASCIY

/RPERY

RPERZ

RPER3Y/

DHGSA:

LASC1Z

/RPER]

RPER2

RPER3

RPW(

RPBA

RPDB/

051040

LEVEN

9768
9769

9770
97N
9772
9773
9774
9775
9776
9777
9778
9779
9780
9781
9782
9783
9784
9785
9786
9787
9788
9789
9790
9791
9792
9793
9794
9795
9796
9797
9798
9799
9800
9801
9802
9803

13:59

047374
047400
047406
0674614
047416
047424
0647426

0674634
047440
0467446
047454
047460
047464
047470
047476
047504
047506
0647514
047522
04647530
047536
047540
047546
047552
047560
047566
047572
047600
047606
047614
04647616
067624
067632

001116
001116

034464
034472
001176
041656
001176
042076
001176
001174
034470
001366
001166
001176
001254
001272
001270
001262
001176
001254
001272
001124
001120
001176
004204
004244

001176
001254
001164
001164
001176
001270
004216

(DT)

LSBTTL

DATA TABLE

D11:
D12:

.WORD
.WORP

SERRPC,3REGS

001170
001164
034466

001170
034470

001116

01654

DT13:

.WORD

$TMPO,$ERRPC ,RD.ADR,RD.WRD

001116
041656
001116
034464
034472
001116
001116
001116

042100

D14

.WORD

$TMPO,SERRP(
,WRT . ADR ,WRT WD ,RD.WRD

001164
034466

Di1S:

.WORD

$TMPO,SERRP( ,$REG],SREGS ,RPERRS ,RPERRS+2 ,RPERRS*4 ,RPERRS*6

D111:

D110:

001162
001274

D112:

.WORD
.WORD
.WORD

SREGZ, SERRP(
$TMPO,SERRP(,SRECO, CHKDRY,CYL,.DS,TRK.DS,SEC.DS

001274

001272
001266
001162
001274

DT12A:

.WORD

CYL.DS,TRK.DS,SEC.DS,CYL.RD,TRK
. RD,SEC.RD

Di13:

.WORD

$TMPO,SERRP(,SREGO,
CHKDRY , YL DS, TRK.DS,SEC.DS

001126
001122
021116
004216
0046246
001116
001270
001126

001172

DT13A:

001254
004220

DT17:

.WORD

$TMPO,SERRPC, (HKDRV,RP .REG,RP . REG*12 ,RP.REG*14 ,RP REG*40,RP .REG*4?

001162
001274
001172

D121:

.WORD

$TMPO,SERRPC,SREGD,
(CHKDRV, (YL .DS,TRK,DS

DI21A:

.WORD

SREG]
$REG1,$BDDAT,SREGL,

001116
004204

001254
0046214

DT23:

.WORD

$TMPO,SERRP(, (HKDRV,CYL.DS ,RP ,REG,RP REGS10,RP REGe 1!

001270
001264
001116

001270

SERRPC,SREG) ,SREG3,RPERRS ,RPERRS*2 ,RPERRS*+4 ,RPERRS*6

RH.ADR,SERRPC

$BDADR
$GDDAT,$BDDAT,SREG4,$GDADR,

MACY1Y 30A(1052)
CIRJAD RPO4/S5/6 MECHANICAL AND READ/WRITE TEST
DATA TABLE (DT)
CIRJAD P11
28-MAR-79 11:28
9804
9805
9806
9807
9808
9809
9810

9811
9812
9813
9814
9815
9816
9817
9818
9819
9820
9821
9822

9823
9824

9825
9826
9827
9828
9829
9830
9831
9832
9833
9834
9835
9836
9837
9838
9839
9840
98461
9842
9843
9844
9845
9846
9847
9848
9849
9850
9851
9852

9853

9854

9855

9856
9857
9858
9859

06763%&
047642
047646
047654
047656
047664
047672
047674
047702
047710
067712
047720
067726
067734
067736

0467744
047752
047760
067766
067774
047776
050004
050012
050020

004220
006240
001176
001254
001176
001254
004216
001176
001254

006216
004220
001176
001254
001272
004204
0046242
004220
001176
0012564
001272
004204
004242
004220
004206

E 15

24=-MAY=79

13:59

PAGE

190

006246

DT23A:

.WORD

RP.REG*14,RP REG*40,RP REG*62 ,RP.REG* 34 ,RP . REG* 36

001162

D1&Y:

.WGRD

$TMPO,SERRPC,SREGO,
CHKDRY

001116
004204

001162

D142:

.WORD

$1MPO,SERRP(,$REGO,
CHKDRV ,RP.REG,RP.REG*10,RP.REG* 12

001316
004204

001162
0046214

D143

.WORD

$TMPO,SERRP(,$REGO,
(HKDRY ,RP REG,RP . REG*10,RP.REG*+1?

0062646
001116
001270

004246
001162
001274

D143A:
DY&4:

.WORD
.WORD

RP.REG*14
,RP . REG*40,RP.REG*42
$TMPO,SERRP(,SREGO, (HKDRY,CYL.DS,TRK.DS,SEC.DS

004214
004240
006246
001116
001270

004216
004212
004246
001162
001274

DIGGLA:

.WORD

RP.REG,RF.REG*10,RP.REG+12,RP
. REG*+36,RP.REG*34 ,RP.REG0G

DT4L4B:

DT4S:

.WORD
.WORD

RP.REG¢14,RP
. REG*40,RP REG*4?
$1MPO,$ERRPC,SREGD, CHKDRV,CYL.DS,TRK.DS,SEC.DS

006216
006240
004244
004210

004216
006212
004246
004226

DT45A:

.WORD

RP.REG,RP.REG+10,RP.REG+12,RP
. REG*36,RP . REG*34 ,RP . REG*00

DT458:

.WORD

RP.REG*14,RP REG*+&0,RP . REG*42,RP.REG*2
,RP . REG*4 ,RP REG*2?2

.SBTTL

DATA FORMAT

006244
004242
001116

004214

050026

050030
050031

000001
002
000

DF1:

.WORD
BYTE
.BYTE

050032
050034
050035

000001
007
000

Df2:

.WORD

050036
050040
050041

000001
004
000

DF3:

050042
050044
050045

000001
005
0co

050046
050050
050051

000001
0v?
000

050052

050054
050055
050056
050060
050061
050062
050064

(DF)

P
0

TABLE
:NUMBER OF

DATA HEADERS

:NUMBER OF WORDS IN DATA TABLE
sALL 3 NUMBERS ARE OCTAL

1
7

.BYTE

.WORD
BYTE

.BYTE

DF&:

.WORD
.BYTE
.BYTE

5
0

DH10:

.WORD
.BYTE
.BYTE

2
0

000001
002
000

.WORD
.BYTE
.BYTE

2
0

000002
007
160
046347
006

.WORD
BYTE
BYTE
.WORD
.BYTE

2
4
160

;2 DH'S T0 BE TYPED
;7 DATA WORDS FOLLOW THE 1ST DM
:WORDS 1=4 ARE OCTAL 5=7 ARE DEC[MAL

:6 DATA WORDS FULLOW THE 2ND Dm

DHIZ2A

:ADDRESS OF 2ND DM

SEQ 0186

CIRJAD RPO4/5/6 MECHANICAL AND RLAD/WRITE TEST
MACY1Y 30A(1052)
CIRJAD P11
28-MAR-79 11:28
DATA FORMAT (DF) TABLE

050076
050100
050101

000000
005
004

DFi4:

050102
050104
050105

000001
010
000

DF17:

.WORD
.BYTE
.BYTE

050106
050110
050111
050112
050114
050115

000002
006
060
046650
004
014

DF21:

.WORD
BYTE
.BYTE
.WORD
.BYIE
.BYTE

050116
050120
050121

000000
004

DF22:

.WORD

050122
050124
050125
050126
050130
050131

000002
007

DF23:

050132
050134
050135

000001
004
000

050136
050140
050141

160
0466426
005
004

014

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

QOO — g
o

DF&Y:

.WORD
.BYTE
.BYTE

or
-

000001
007
000

DF&?2:

.WORD
.BYTE
BYTE

O~N—

050142
05044
050145
050146
050150
050151

000002

DF&3Y:

.WORD
.BYTE
.BYTE
.WORD
BYTE
.BYTE

OWOoO~NIMN

050152
050154
050195
050156
050160

000003
007

.WORD
.BYTE
.BYTE
.WORD

~NW

010
046775
005
000

160

047214
006

;ALL

13:59

PAGE

WORDS ARE

191

OCTAL

13A

SMORD 3 IS DECIMAL

;WORD

IS DECIMAL

.BYTE

.WORD
BYTE
BYTE
.WORD
.BYTE
.BYTE

007
000
047166
003
000

O
[/

NF13:

(=1

000002
007

-y

€50066
050070
0500
050072
050074
050075

.BYTE

000

8N 0O

050065

DF&s:

.BYTE

H2TA

HG
A

o
f=]

9860
9861
9862
9863
9864
9865
9866
9867
9868
9869
9870
9871
9872
9873
9874
9875
9876
9877
9878
9879
9880
9881
9882
9883
9884
9885
9886
9887
9888
9889
9890
9891
9892
9893
9894
9895
9896
9897
9898
9899
9900
9901
9902
9903
9904
9905
9906
9907
9908
9909
9910
9911
9912
9913
9914
9915

24-MAY-79

DHLGA
6

;WORD & IS DECIMAL

SEQ 0187

CIRJAD RPOL/S/6 MECHANICAL
CIRJAD P

AND READ/WRITE

28-MAR-79 11:28

9916
9917
9918
9919
9920
9921
9922
9923
9924
9925
9926
9927
9928
9929
9930
9931
9932
9933
9934
9935
9936
9937
9938
9939

9940
9941
9942

9943
9944
9945
9946
9947
9948
9949
9950
9951
9952
9953
9954
9955
9956
9957
9958
9959
9960
9961
9962
9963
9964
9965

9966

9967
9968

9969
9970

9971

050161
050162
050164
050165

050166
050170
050171
050172
050174
050175
050176
050200
050201

000

047275

003
000

DF&S:

000003
007
160

047214
006
000
047317
006

122

050370
050376
050404
050412
050420
050426
050434
050442
050446
050454
050462

027465
064703
046101
0640505
052111
052123
005015
051505
053111
042522
020105
054047
050040
067117
042526
044527
047516
050040
041440
046440
020131
046524
026060
051040
052122
044124
043517
000012

050472
050500
050506
050514
050522
050530

051105

050274

050302
050310
050316
050324
050332
050340
050346
050354
050362

050464

005015
046505
030440
046505
023440
020047

30A(1052)

.BYTE
.wORD
.BYTE
.BYTE

0
DH4LLB

.WORD
.BYTE
BYTE

3
7
160

615
24=MAY=79

13:59

PAGE

6F 19¢

DHLLA
6

LWORD

DH4&SA

)

.BYTE

LASCID

<CRO<LF>SLF>/CIRJIAD/<CRO<LE>

JASCIZ

aRP0O4L/S/6 MECHANICAL & READ-WRITE TESTR<CR><iLF><LF>

.BYTE

SEQ 0188

3
¢

.WORD
.BYTE

.BYTE

000

005015
040512

MACY!Y

DATA FORMAT (DF) TABLE

LEVEN
BUFFER=.

050202
050202
050210
050215
050222
050230
050236
050244
050252
050260
050266

TEST

041412
006504
030120
020066
047101
023040
026504
020105
005015
047524

020124
020105
046120
044124
042130
041501
042040
030040
066124
064126
041501
042514
046505
047514
047117
040440
051505
005015
020105
040522

054523
044040
045466
051117
054130
0647514
05340

051132
012
027464
0642515
041511
051040
051127
042524
000012
052040
051106
020060
041501
020105

023520
020113
046522
005015
040440
051105
026113
051101
051117
040503
032040
042116
040524

TITLE:

LOADRY: .ASCI1

<CR><LF>/T10 TEST DRIVE O REPLACE THE "XXDP' PACK ON DRIVE Q/<(R><LF>

JASCILT

F>
/WlTH ANOTHER PACK, CLEAR MEMCRY LOCATION 40, AND RESTART/«(Ro><

051120
006515

JASCIZ

/THE PROGRAM/<(R><LE>

052123
051501
0464490
026131
050104
062101
(I XRR

NOLOAD: .ASCIZ

"R,
<CR><LF>/SYSTEM HAS 16k MEMORY, °xxDP® LOADER Wwiii BE OVERWRITTEN':

MACY!Y S0AC1052)
CIRJAD RPOL/S/6 MECHMANICAL AND READ/WRITE TEST
DATA FORMAYT (DF) TABLE
CIRJAD.PYY
28-MAR-7G 11:28
9972
9973

9974
9975

050536
050544
050552
050560

020114
062526
052124
000012

042502
053522
C&7105

0647440
044522
005015

" 1S
24=MAY=79

13:59

PAGE

193

SEQ 0189

MACY11 30A(1052)
CIRJAD RPO4/S5/6 MECHANICAL AND READ/WRITE TEST
CIRJAD.P1
cB-MAR-79 11:28
DATA FORMAT (DF) TABLE
9976
9977

EVEN

115
26=MAY=T79

13:59

PAGE

19¢

SEQ 0190

MACYI1 30A(1052)
CIRJAD RPO&/S5/76 MECHANICAL AND READ/WRITE TEST
CIRJAD PN
28-MAR-79 11:28
DATA FORMAT (DF) TABLE

9978
9979
9980
9981
9982
9983
9984
9985
9986
9987
9988
99893
9990
9991
9992
9993
9994
9995
9996
9997
9998
9999
10000
10001
10002
10003
10004
10005
10006
10007
10008
10009
10010
10011

.SBTTL

10028

10029
10030
10031
10032
10033

24-MAY-79

13-59

PAGE

195

SEQ 0191
|

TO SIZE MEMORY

::""""""'."""""'."'""I"""l"""'.'Q""'O""t'

;e CALL:

JSR

RE TURN

$SI1ZE:

MOV

PC.8S112¢

J*SLSTAD WILL CONTAIN THE LAST AVAILABLE MEMORY LOCATION

050562
050564
050566

MOV
MOV
MOV

000004
000006

050572
050576

5:SET

050600
050602
050606
050614
050620
050622
050624
050626
050632
050634
050640
050644
050650

000006
050626
020000

000002

000004
18:

2:SAVE

1%
2 ,R1

STACK POINTER

(SP)+ ,aERRVEC

MOV
MoV

R1,SLSTAD
(SP)+ R}

RIS

.WwORD

;s TRY ANOTHER
: :DROP BACK

(SP)+ ,3#ERRVE(C+2

;;RESTORE

;:RESTORE

THE

::LAST ADDRESS
::RESTORE RI

::RESTORE RO

. CONTAINS
RRRRRR2

STA(K

ERROR VE(CTOR

(SP;+,R0O

2222222222082

RRd

THE

LAST

SRRl

ADDRESS
Rl

.SBTTL

GETADR - GET BUS ADDRESS AND VECTOR ADDRESS

;NOTE:

THIS ROUTINE DESTROYS RO-R¢&

;
.

JSR
RE TURN

PC,a#GETADR

TS7

a#BUSADR

;INPUT

(LR
MOV
mov
MOV
JSR

a#BUSADR
#RH.ADR,RO
#MRPCST,R3
(RO) ,R4
PC,CLRBY

;YES==CLEAR THE REQUEST
;FIRST ADDRESS
JURPCSYE
:PRESENT RP(CSY ADDRESS
;CLEAR INPUT BUFFER

; (CMMA

R4, (RC) e

;SAVE NEw RP(S!

;THIS ROUTINE 1S USED TO ENSURE THE BUS ADDRESS
;OF THE RM11/RP04 IS SETUP TO READ THE PROPER VALUE.
1T WILL ALSO READ THE ADDRESS FROM THE TTv If
;REQUIRED.
; CALL

050660
050664
050666

050672
050676
050702
050704
050710
050714
050716
050720

050722

005737
001433
005037
012760
012703
011004
004737

004037
000402
000765
000414

010420

001226

001366
051046

GETADR:
1%:

051070
031634

8EQ

JSR

B8R
2%:

& PC

RO,SP

MOV

SLSTAD:

THE

MOV

SP.RO

STA(K

R1 ON THE STA(K
PRESENT ERROR VECTOR

;;PUSH OLD PSW AND P(C ON STACK
(SP)+ ,@WERRVE(+?
J:SAVE THE PSW IN Q#ERRVE(+?
#2%,8/ERRVEC
::SET FOR TIMEOUT
#20000,R1
::FIRST ADDRESS
(R1)
:;TEST THIS ADDRESS
(R1)+
:STEP TO NEXT ADDRESS

Moy
000000

;:SAVE RO ON THE

R1,=(SP)
;:SAVE
SFERRVE(C,=-(SPY
;;SAVE
SFMERRVE(+2,-(SP)

TRAP
MOV
MoV
Mov
181
181

BR
SUB

2%:

050652

050654
050656

MOV

RO,=(SP)

THE ERRVEC PS TO THE PRESENT PS

000006
000004
0506506

10012
10013
10014
10015
10016
10017

10018
10019
10020
10021
10022
10023
10024
10025
10026
10027

ROUTINE

J 15

B8R
BR

MOV

RO,a#GE TNUM
1%
5%

FROM TTY REQUESTED?

sNO--BRAN(CH

;GET NEW RP(S!

;PERIOD
;DOUBLE PERIOD

FLAG

K15

MACY11 30A(1052)
24-MAY-79
13:59 PAGE
CIRJAD RPO4/S5/6 MECHANICAL AND READ/WRITE TEST
1
GETADR
GET
BUS
ADDRESS
AND
VECTOR
ADDRESS
CIRJAD P1
28-MAR-79 11:28
10034
10035
10036
10037
10038
10039
10040
10041
10042
10043
10044
10045
10046

10047
10048
10049

10050
10051
10052
10053
10054

10055
10056

10057
10058
10059
10060
10061
10062
10063
10064

10065
10066
10067
10068
10069
10070
10071
10072
10073
10074
10075
10076
10077
10078
10079

050724
050730
050732
050736
050742
050744
050746
050750
050752
050754
050760
050766
050772
050776
051002
051006
051010
051012
051014
051020
051022
051024
051030
051032
051036
051042

012703
011004
004737
004037
000402

051046
051054
051057
051064

005015

051057
051070
031634

000004
051014

130374

104010

005737
001720
005037
005037
000137
036461
015
041505

MOV
MoV

JSR
JSR
BR
BR
BR

MOV
MoV
MOV
Mov

000004

151

000004
001366
034632

mov
Mov
MoV

000004

MOV
RTS
MoV

Mov

8%:

BtQ
(LR
CLR

001232
017656
017502

050122
000
051012
000075

RM11

VECTOR ADDRESS

b33

; COMMA

5%
R4, (RO)¢

R4, (RO)
a#ERRVEC,R]

#8% ,3/ERRVEC

aRH.ADR
R1,a#ERRVEC
#RH.ADR
RO
SRPADR,R1
(RO)+,(RY)
(RO)+,(R1)¢
PC

JMP

151

;PRESENT

;CLEAR INPUT BUFFER

RO ,a#GE TNUM

051503

MRP(S1:

LASCIZ

SCROSLF>/RPCS1=/

053110

MRHVEC:

LASCIZ

<CR><LF-/RHVEC=/

;GET NEW RHVEC

sPERIOD
;DOUBLE PERIOD
sSAVE NEW RHVEC
; SAVE INPUT

;SAVE THE ERROR VECTOR
;SETUP FOR TRAP
;CHECK FOR RH11/RP0OS
sRESTORE ERROR VECTOR
;FIRST

ADDRESS OF

NEW PARAMETERS

;FIRST ADDRESS OF WHERE TO PUT
;BUS ADDRESS
;VECTOR ADDRESS
sRETURN
;RESTORE ERROR VECTOR
;CLEAN OFF THE STACK
;REPORT

THE

ERROR

;1S THERE A MONITOR?
;NO--GO ASK FOR ADDRESS
;YES==NO DRIVES
;sNO PASSES

SELECTFD

;G0 TO END OF PROGRAM

RS RRERS
RER
RSN ZEAERA
R EZZEEZ2ZEZEXEZ

;ROUIINE TO CLEAR INPUT BUFFER FOR NEW (S1 AND VEC(
CLRBF:

051070

000010
022636

1$:

MoV
MOV
MOV
Mov

(LR

DEC
BNE

MOV
MOV
RTS

000001

.END

RO,=-(SP)
R1,-(SP)
#10,R1
#STTYIN,RO
{RO)¢
Rl
1%

(SP)Y+ ,RI
(SP)+,RO

SEQ 0192

;“RHVEczn

PC,CLRBF

R1,aNERRVEC
(SP)+,(SP)+
10
T LY
1%
a#DRVSEL
SNSEOPCT
aNSEOP

(mp
ERROR

000042

#MRHVEC,RD
(RO) ,RG

196

;SAVE RO

:COUNT 10 LOCATIONS
;START ADR OF

;RESTORE RO

INPUT BUF

THEM

CIRJAD kPO&L/S5/6 MECHANICAL AND READ/WRITE TEST

000001
000001
000002
000004
000010
000020
000040

81106
81707
B1108
B1109
BIT1
81110
81111
B1T12

=
=
=
=
=
=
=
=

000100
000200
000400
001000
000002
002000
004000
010000

81113 = 020000
B1114 = 040000
81115 = 100000
8112
BIT3
BIT4
81715
B116
8117
B118

=
=
=
=
=
=
=

000004
000010
000020
000040
000100
000200
000400

8179 = 001000
BPTVEC= 000014
BUFFER= 050202

17604
17614
17628
17634
17640
17654
17664
17678
16584
16594
16764
20414
6362
16334
16234
16224
16214
16204

16194
16184
4318
8805
16174
16164

16154

16144

16324
16134
16126

16114

8815

16104
16094

6529

1608#

8703

16314
16304
16294
16284
16274
16264

16254
16244
16400

2700
6914

6866

8304+
8909+

8355
8924

8668+

8677+

890/

7355

7361

8081#

8260

8367

3496

3568
4625

6754

4800

4874

4963

1633
1632
1631
1630
1629

2057
2058
2059

3306
3309
6232
3295
6529
3968

3323
6495
6495
€532
8825
3984

3345
6523
6526
8245
4060
4493

4440

2060
2061

2062

1628
4377
8957

64612

3611

6617

3652

4475

1627
1626
1625
1624

2063
2064
6523

5090

6535
8269
8269
5715

8269
8546
8970
6538

2051
2052
2053
8817
2054
2055
8344
2056
8790
9017

6181
6526
6529
9100
6495

6495
8218
8213
9167
6523

6526
8371
8251

8750
6688
8815

8894
8332
8825

4185

4199

8332
4284
9010
8344
8894

SEQ 0193

8831

8850

8858

8876

8983

3775

3825

3925

4082

4148
7523

4252
7697

3398
8347

6169
8594

8790

9105

6190

4204
6515

4219
6532

622«
6642

4289

6510

6313
861¢

8338
8689

8412
8790

8703
8805

9166
8875

8854

9138

8243

8955%

7716

8596
8565
8349

8877
8383

8561

8580

8592

8605

4488

5697

6423

6495

8383

8565

8594

8596

=
=
=
=
=
=
=

3335

PAGE 198

4788

48590

8472

3732

8389
8269

8763

4372
9055

8347
8955

9046
4390
9059

8349
8970

7422

4470
9164
8380
9010

7453

9017

7470

8'71

8373

2724

4922

6885

2748

4930

6886

3945

4944

6999

6572
6606
7031

4587

6607
7074

4600

6609
7116

~O
&~
— O O
N
O

BI1T0
81100
B1101
B1102
B1103
81104
B1105

17400
17274

13:59

&H NoN

= 000010
0014264

80154
18234

18774

-~ USER SYMBOLS

-~
&~
— OO
S

BAl
BITS

18348
18684
8009#

TABLE

KV]

000200
000040
034550
034551
100000
001000
100000
034620
000001
000002
000004
000010
000020
000040
000100
000200
000400
001000

CROSS REFERENCE

ABS
=
ACL
=
ACTORV
ACTSTR
ACU
=
AOE
=
ATA
=
ATABIT
AT0
=
ATl
=
AT2
=
AT3
=
AT4
=
ATS
=
AT6
=
A17
=
A6
=
Al7
=

28-MAR-79 11:28

L 15
24-MAY=79

~O
&
—
>
—

CIRJAD.PYY

MACY11 30A(1052)

6686

99328

6723

CIRJAD RPO4/5/6 MECHANICAL AND READ/WRITE TEST

CIRJAD.PI
BUSADR

BYPASS

CALL.B

3170«

31764+

3177+«

10022

10024+

025150

4635+
3402

4789y
3404

4LBBSr
3513

6477
3858

6957
4977

7103
4982

7168
62754

6278

6621

025452

3799
3549

3801
4102

3803
63694

3805
6352

3807

3880

4103

63064

6309

9811

9815

9821

6220

9784

8458

77698

036222
036330
036436
037014
037036

037052

(K.CHR

037100
037152
030126
104407

034104

(K.DEC
(K.DIG
CK.NUM

034056
034160
036344

CLKSTA

001244

(x.0CT

034030

(RLF
(SF
(su

cve.DS

19874

3514

19884

3550

3375+«

8402
8404
8393
8452
8490

84304
B453N
84744
8473
8500

8519
8564
8562

8523
85674
8570

8334

8411

4586

69074

7289

7339

3510«

3586

3380+

8560
8504

85564

8533
BB844
8579¢

8544

8559

8442

B8561#

776784
7349
7298

7777
7587
7619

7800#
7652

78640

19834

3367

3957

3987

4158

8613
76784
3179+

8980

92348

327

3319

4293

4382

4400

4480

9408

9416

9421

9428
9965

10061

10063

19954

3971s

6283«

6314s

3322

3325

3340

7402

7406

7691

7426

77004

5001

4208

9943
15494
18104
18124

9787
19924

19754

(.SWR

001220

DATCMP
=
pCk
=
pcL
=
0CU
ODISP =
DECSEC
DECSK

030566
100000
000100
000001
177570
027776
007202

6259
4840
17464
18694
18754
15554
68514
35930

= 000C«0
DEV
DFF20 - 000002

17174
17134

20164

9952
5240
1828«
18304

9789
6611+«

6337
70304

9962
5279

9797
9787

6380

7603

7430

3665¢

3839¢

3952«

4099r

4564+

3697

3703

3751

3753

3797

9789

9794

9797

9801

9806

9808

8467

8471

8482

8489

8495

8499

8513

7806

7819

7830

7881

4450

6099+

6101«

6107¢

7336

9351

9355

9372

9391

9398

3675

8663

7643

77290

3597

3943¢

7866

8693

8842

9150

7876

4352

4498

67024

9438

9441

9447

6357+

6406

6436+

6462+

66160

6654

6973e

7087

9784

6478

3398

6562

3667

6172

4228

4892

6114

6126

6136

6169

4036+

4035

037+«

4046

5032

9801

5269

9431

9815

5279

9821

7258

7256

7262

3207

4033+

3681

3788«

4262

18784

1946

3745+

SEQ 0194

9002

58264

7566

19734

001350

8716

8450

3633

5696

15684

001262

8446

3624+

5089

5064

= 000015

001270

3628

85514
8502

100694

= 000200
= 000002
= 000010

3594

3581+¢

5008

10036
68834
8153
7675
3172«
93974

027236

3546+

3385

7687
16784
10028
4583
3951
7671
19778
3363

(YL.RD

DELTA

3396+

033750
000040
051070
030060
042664
033650
001224
043557

CLOSE
=
(LR
(LRBF
CLRBUF
CLRQUE
CLSWDS
CNTRLC
COMMA

PAGE 199

3167+

(1
13
16
c15
cle

c17e
(18
(KSCTR
C(KSWR =

13:59

3164+

001254

CROSS REFERENCE TABLE -- USER SYMBOLS

3161+

CHKDRV

nis5

24-MAY-79

19784

025262

CALL.C

30A(1052)

001226

001252

CALL.A

COUNT

28-MAR-79 11:28

MACY11

7263

9451

9453

9455

9934

9936

N 1S
CIRJAD RPO&L/5/6 MECHANICAL AND READ/WRITE TEST
MACY11 30A(1052)
24-MAY=79
13:59
CIRJAD.PIY
28-MAR-79 11:23
CROSS REFERENCE TABLE =< USER SYmMgoLS
DFLY
DF 1
DF10
DF11
DF12
DF13
DF 14
DF17
DF 2
Df 21

001664
050026
050046
050052
050056
050066
050076
050102
050032
050106

21334
2861
2925
2935
2948
2961
2969
3000
28N
3023

6158
98314
98474
98514
9855#
2982
2990
3010
2901
98774

DF23
DF3
DF&
DF&1
DF&2
DF&3

050122
050036
050042
050152
050136
050142

3043
2881
2891
3088
3098
3110

3055
98394
98434
98964
99004
99044

9888«

DF&S
DH1
DH10
DH11
DM12
DHI12A
DHI3A
DH17
DH2

050166
046013
046222
046241
046260
046347
046426
046474
046030

3140
2859
2923
2933
2946
96704
96784
2998
2869

3155
96304
96544
96574
2959
9858
9865
3008
2899

99214

96854
96334

046650
046707

97044
3041

9880
3053

97104

DF 22

DF&é&

DH21

DH21A
DH23

DH23A
DH3
DH&
DH4
DH&2
DHG43A
DH4LA
DH44B
DHGSA
=
DIGB

DISPLA

DISPRE
=
oLY
=
DL64
=
OMDp

DORTI
DPB.A

050116

050152

046572

046775
046116
046153
047042
047100
047166
047214
047271
047317
000004

001142

000174
100000
000020
000001

027170
004104

OPB.B

004124

OPB.C

004144

3031

5125

98844

99114

2980

3123

3138

3153

96964

97204
2879
2889
3086
3096
976414
97454
97534
97574
17144

9891
96424
96478
9727
3108
9907
9914
9917
9927

£155¢
1509
16884
17164
17504

4259+
3215

4349

L44T+

45610

4632+

6179
3391«
3971
6283

4277
3397«
3981
6284

4365
3400+
042+
6285

4463
3401¢
4049
6286

66734
3403«
4051
6294

3966
26954
3970
6279
27194
3590«
37643¢
3837«
6264+

27430

3207+«

3392«
3595+«
3744+
3842+«
6308
3393+

SEQ 0195

98624
98694
98734
98354

3021

196464

PAGE 200

96604

97324
9924

3215«

3507+
3596
3750«
3852+
6310
3541

3503«

3508+
3622+
3752«
3854
6314
3543¢

3537«

3509+
3623+
3786+
3881+«
6315
3545«

3575+«

3540+
3625+
3787+
3882
6316
4094+

4761+

3618¢

4BB1e

4970«

5073+

5736¢

3832«

3932+

408G

3506+
4053
6620+
3542+
3632+
3796+
3884
6317

3836+
4057

3854+
4975+

3861
4976+

3937+
4980+

3940+
4981«

3949
6277

3544«
3663+
3798«
4093«
6329
4098+

3579«
3664
3800«
4095+
6332
41040

3580+
3674+
3802+
4097+«
6335
4105

3582+
3680
3804
4108+«

3587+
3696+
3806+
4109

3588
37072
3835
6261

L107e

62020

67650

4096+

3659+

373G«

3782+

816
(IRJAD RPOL/S/6 ME(HANICAL AND READ/WRITE TEST
MACYIY 30A(1052)
24-MAY-79
13:350
(IRJAD.PIN
2B-MAR-79 11:28
(ROSS REFERENCE TABLE -- USER SYRMEOLS

DPINT
DPR
=
DPRAS
DRIVES

034524
000400
034534
043521

DRA
= 004000
034474
DRVACY

DRVCAL

025642

V1
ORV(LR= Q00T
DRVCLY
025662
DRVINT
035062

DRVASK
DRVOK
DRVQUE
DRVSEL
DRVSTA

001256
006236
042762
001232
034504

DRVIYP

034514

DRY

DSWR

DIADPB

= 000200

= 177570
004164

6351

79694
17204
79824

3346

1783

4020+

8839

4576
4919
18964
4026

8173

19894

3378
8323

19804

3285
8310
8889
3288
8618

17192
15548

27678

4009
6220
4319
451

D11

D11D

DT
D112
DY12A
D113

047874

047460

067664
067470
067506
067522

8898.

8949

8987

8998

9013

8328
8958

8507«
8964

8554
8971

8573

858¢

8599

8996

9004

8682+

8755

8788

8819¢

8826¢

6675

LY.L

4821

4827

£83%7

4899

5002

r332¢
8208+«

7355

7361¢
8266¢
8820¢

10057«

8761

8217«
8813
8239

8245

8345

3945

40C3e
6205
3N
6496

4006

2867
3389

8887

8962

3335¢

3345

83¢2

79408

8377

3349
8163
LBLY

3372
8164
8508

3377
8165¢
8617

3389¢
8166¢
8740

817¢+
8748

3295

3306

3309

6232

79568

8209+

8224

8229

8236

1945

3206
3870

187%

3938,

3939¢
6053

394

4921

3944
49N
6302+
4676
45840
IYYA
L
4680
6890+
6922+

7238¢

9005

3394

4011
6225

4375

«516

4804

97714
97824
97834
97844

2960

2981

97878

8737

8985

8375
3381

2924
293%¢4
2947

17748
1775#
17768
17779
17784
1779#
1780#
17814
1782#
2860

8406¢

8947

6601
8316
3377

6400#
8207#
33760
3385#
8336
3330
3133
8318

8952

000001
000002
000004
000010
000020
000040
000100
000200
000400

6378
8886

6659

8075#
89¢7

=
=
=
=
=
=
=
=
=

4375
3884

4648

6657
6656

D100
0101
0102
D10%
D104
D105
D06
D107
D108

6372
87599

4602
6947

6621
6662
6657

17430
17504
4019

6360
8734

4939

4930

= 010000
- 000200
034616

6359
8314

6595

4903
«935¢

D1E
p1sy
DTuw

6358
3277

4933

(598
4658

6619

6357
8185

SEQ 0196

4585

6594
4657

<803
4£901

PAGE 201

92748

3386

6012
&272
4378
4568
4599
4660
4805+
4904
4936

04l7e
6663
6973

8199

8978

9789s

4017
4273
«39%
(569
4600

46650
48 Or

4906
TN

3876¢

4018
6279

4396

64570
L4601
4667
«820¢
4911
6942

6464

(AR
P
6465

8395
8989

8451
9053

6430

6974

7000

63958

3878

4024
4287
«610
4571
46309
66700
«826¢

4912

6943

6399

4051
«290
6613
6572
46400
ChT4e
4836
4913
69464

6297
618
4575¢

(64
L6760
4888
6915

6398
6438

4188
4298
4473
4577
L6462
Lo77e
4889

6400
6439

0673

6617
656463
7087

6644
7088

6b~5'
7089

857«

8577

8587

8600

6636
7082

6406
64647
6648

8602+

6202
4303
691
£591
¢

6592+
6649
(787«

4927

6928+

4682
4891

<895¢

6407
6649
6650

6408
6451
6656

Belie

8671

7239

7240

8271
8832

217
6314
4508
6593
66530
4788
4500+
£929.

6409
6455
66595

8683

CIRJAD RPOL/S/6 MECHAN] (AL AND READ/WRITE TES?T
MACY1Y 30AC1052)
24-MAY=79
13:59
28-MAR-T79 11:28
(IRJAD.P1Y
(ROSS REFERENCE TABLE == USER SYMAOLS

CY1'3A
DYV?

D12
D121
DI2IA

D123
D123A
D13
D14
D14
D142
D743
DIG3A
D144
DIGLA
D14LGB
D145
DILSA
D1458
D1S
DVA
ECH

€ECl

047540
067592

067400
047572
047606
047616
047634
067416
067626
047646
047656
047674
047712
067720
047736
047752
067760
047776
050012
067440
= 004000
= 000100

= 004000

EMPTYQ
EMTVEC=
EM1
em10
EM

£EmM12
EmM13
EmM17

Eme
EM20
EM23
EM24
Em3
EMs
EMa
EMLO
EMS
ERINDX
=
ERR

042742
000030
044333
0446561
0464637

044674
0646721
04646746

044376
045000
045047
045076
044434
04644671
045136
045162
046525
026364
040000
ERRVEC= 000004

ERR.CT
ES.SAV
ExITO
ExIT
EXITIO
EXITIT
ExITI2
ExIT1Y
EXITI4
EXITIS
ExIT16
ExXITI?

001364
043122
006630
007006
012136
012356
013114
013560
014276
015014
015612
0160%2

2968
2999
2870
3022
030
3042

2989
5009
2900
97978

97928
97948
97728

3054

980's

2880
2890
3087
3097
3109
9814n
3124

9775
97778

98048

9818#
98204

3139

98244
98264
97794
17084
1737
1851#
8571
166430

2858
2922
2932
2945
2958
2997
2868
3007
1040

3052
2878
2888
3085
3152
2898
6287

17264
16364
9990

20224
8719
3510
3546
3952

4099
4164
4268
4358
64656
4564
4635

97998

PAGE

202

SEQ 0197

98064
98084#

9811#
98154

3154

98214

8616
3191«
94754

8704
3192«

8827

2979

3020

9518#

3107

6361

95014
9509
95144

9522#
94814
9527«
9534»

9538«
94864
94914
3095
9548#
94964

6318

3204

9994

3430
8770
35154
35514
6032
L1114
4169
4270
6360
4458
46074
«6874

3205+

8896

9018

3122

5137

954448

6410

6440

6466

3216+

9995+
6563

10002+«
4634

4063

40654

2%
L3240

42368

8774

4623
6521

9051

5702

10003«
4763

9111

5703«

100643
4883

93284

92594

65178
5705+«

10044+
6475

6658
5708+

10046
6955

6068+

10092+
6986

6069

6074

7101

7160

6094

9989

D 16

CIRJA D RPOG/S5/6 MECHANICAL AND READ/WRITE TEST
MACYT1 30A(1052) 24-MAY-79 13:59
(ROSS REFERENCE TABLE == USER SYMBOLS
28-MAR-79 11:28

CIRJAD.P1Y

Exit2
Ex1120
Ex1121
Ex1122
Ex113
ex11&¢
Ex1TS
Ex1T6
eExi1?
=
ex1t
€x110 =
ex12
=
ex120 =

0072264
016552
017330
017500
007420
010006
010206
010452
011032
000001
000010
000002
000020

001510

3581

4789
4885
49854

FEN
=
FER
=
fF1LBUF
FILRAN
FM122 =
£S

000200
00000
030022

001516

£
£2
£3

= 000002
= 000004
= 000010

fF&

031104

010000
00152¢

GNS

=
60
=
GRV
GISWR =
GT11ST1
611812
GTTISTS
611814

GTTSTS
G11s16
GT.PRM
GT.PRY
GT.PR2
HCE
=
H(]
HCRC
M1

[ AE

fsNsee

000001
000010
104406
032130
032214
032556
032560

032670
032730
(031772
031774
032124
000200

= 002000
= 000400
= 000011

= 002000

2070#
3850

3544
3940

3582
3941

7360
73824
7385

7403

7462
76486

3327

73324
73628
1738#
1850#
17392
15464
17418

3842

3843

4385

(483

4568

3622

3663

3743

3786

4093

4094

64166

66461

6768

3580

3623

3664

3744

3787

3835

3939

409%

4096

4569

3542

3884

4802

100224
72814

10029

10037

8589

8744

8780

8841

8893

8954

89¢9

9007

9014

9295«

5006
5828

5014
5829

5031
5830

5146
7255

5163
7335

5818

5819
7527

5820
7633

5821

5822

5824

7368

76414

7627

7438

7641

7467

7476

7483

7489

7498

7515

7393
7458

7397
74618

7401

74600

7341
76494

7342
7503

7343
7696

7364

7350

7351

4787

3254

3789

6272

6606
3579

4782

17024
1715+

3758

6165

3397
3540

68640

5826

3766

5680

4097
7233

4638
71164
19164

1508

3670

4039
7215

<888

8368
3265

3625

4980

6792

19094

3596
3942

4098

4640
18164
17354
4567
4894
18524

4167
17034
17040
1705#
17064
1707#
3260
7259

= 000020

031634
000141
043036
031542

37608
38104
38854

20734

FS
= 000040
GETADR
050660

GETNUM
GETREG=
GETREQ
GETSWR

36374
37154
3757
3795
3883

20764

StQ 0198

3624
3665
3745
3788
3839

17904
17934
17914
17948
17924
17954

= 000004
ex14
Ex1640 = 000049

35984

6798
69484

PAGE 203

3507
3508

72514
5000
5827

58244
73654
76478
7389
7424
74844
74954
7331«
7340
7377

5238

5279

E 16
MACYTT 30AC1052)
CIRJAD RPOL/S/6 MECHANICAL AND READ/WR]ITE TEST
24-MAY-79 13:59
CROSS REFERENCE TABLE -=- USER SYMBOLS
(IRJAD.PW
28-MAR-79 11:28

001514

1¢
=
=
1Lt
ILR
=
INCCYL
INCSK
INCIRK
10TvEC=
IR
ISR
1
1TEMGY
1xE

000100
000901
000002
027746
007140
027716
000020
000100
037544
001522
004546
004000

LA
LACNY
LC

037406
034562
001512

KIPARQ=

LOCMD
Lf
LKS
LKV
LOADRYV
LODFLTY

LODPRM
LOP.CKk
LPB

LPS

LPTAVL
LP.AVL
LS
LS7
L7

MABOVE
MBELOW
MCcLx
=
mCPE
=
MCPEMX
MHS
=
MINX
=
MNDLTA
MOH
=
MOL
=
MPE
=
MRD
=
MRHVEC
MRPCSY

MSE
MSGAVG
MSGBOY
MSGBO?

¢eeeee

025104
000012
0014612
001406
050266
024470

(24726
026324
001422

001420

001230
026150
001526
002000
001520

064251
044222
000002
020000
(034630
001000
000004
034644
020000
010000
000400
000020
051057
051046

000020
0464206
045759
045705

20728

6104
16564
1731#
17328
4797

35854

6841
164610

16794

3587

403N

6841
62594
19748
9616
9952

6295
2038«
2037#

6330
5070
5069
5067
60674
3541

2077

17224

4420

6640

8168

86684

8642
3545

B659
3588

4559

4033
7228

6367

6465

4806

4904

4975

3790

3843
6836

5001
9421
9962
6138
3964

5032
9428

5279
9438
10063

7256

9441

7336
9447

9351
9451

9355
9453

9372
9455

9391
9934

9398
9936

3780

3830

3930

408/

6153

4287

6347

51514

3573

4630

6373
6070

6067+

80934

9033

9081

17844
17240
16814
1754#
10034
10026
18134

6788
2829
2828

18364

8657

100638
100614

94554
96214

9614k

9965

3635

3691

3693

3702

3747

3756

6136+
3616

4759

6420

3737

4968

64914

6071+

6767

3882

8109#

4037

6298

9462
9458«

17524

4035

4109

3543

1818#

4030

4039

2074n
6783
6767

1751«
16614

5943

1838#

6106
3963
99434
3329
3535

3262

6321

3808

SEQ 0199

5130

20342
20334
3239
3326
3501

1979«

3755

3190

86334
8641y
3509

4445

3754

68364
3589
68194
3189+

8399
8034»
2071#
31848
6839
3395
15470
9408
9943

3712

3595
6838

6227
6821

18204
9985

3629

4108

31986
2075#
30784

PAGE 204

6819

6824

62094

MACY1Y 30A(1052)
24&=-MAY=-79
13:59
CIRJAD RPOL/S/6 MECHANICAL AND READ/WRITE TEST
CIRJAD P11
2B-MAR-79 11:28
(ROSS REFERENCE TABLE =~ USER SYMEOLS

mSGBO3

045635
0645615
065545
065501
065437
045400
045355
045327
045305
045254
045212
043156
063162
0464177
044170
0464315
044300
043216
043214
043150
043202
063171
063166
063177
043153
043205
043174
043210
063146
044330

mSGBOL
MSGBOS
nSGBOG

MsSGBOS

MSGBO9
mSGB10
MmSGB11
MSGB12
MSGB1Y
MSGB14
MSGF(P
MSGLCP
MSGMAX
MSGMIN

WYy
Y
VY
s

[yY
Y

MSGNON
MSGNUM
MSG.(CS
MSG.EQ
MSG.
MSG.
MSG.
MSG.
MSG.
]
MSG.LC
MSG.LS
MSG.LT
MSG.PA

MSG.R
MSG.SP

MSGOUS
MSG10A
MsSG108
MSG11A
MSG11B
MSG12A
MSG12B

044215
0463742
046401
044026
0464074
046111
044153
043710

MSG7

NBA
NCH
NC2
NED
NEM

NHS
NOCLOK
NOLOAD
NONE
NOOP

000010

MSTCK
MWR
MXDLTA
Mxf
MXLACT
MXSTAL
MXWNDW

000040
034642
001000
034640
001362
034646

100000

001532
001534
010000

004000
002000

043561
050464
043552
000101

2827
2826
2825

PAGE

205

SEQ 0200

96078

9604
9597#
9590#
9584a
9578«
95744
95704
95664
95614
9555#

934148
93424
94534
9451
94692
9L664
9351#
7597

9339#
93474
93444
93430
93464
93404
9348#
93454
93494
9338«
3284
94714
6771
9421
9428#
94312
9438#
94414
9447

2380

7638

93504

3304

3410

5158

51,0

6776

6787

6799

9457#

031

4034

406¢

94164

8655

8642
3687
8460

3709

3942+

«030¢

1837#
9398«
9965#
93964

5197

9204

6763

6779

6800

7555

7595

6 16
(IRJAD RPOL/S/6 MECHANICAL AND READ/WRITE TEST
MACY11 30AC1052)
26-RAY=79 13.59
(IRJAD.PYI
28-MAR-79 11:28
(ROSS REFERENCE TABLE == USER SYMBOLS
NOTPRS
NOTRP
NOTSAF
NOUSE
ocyL
=
OFFSET=
OFREV =
0f100 =
0¢200 =
0f25
=
0f <00 =
CFS0
=

043437
0434664
043454
043317
100000
000115
000200
000004
000010
00000!
000020
000002

OPE
=
OP1
=
OPNFLG
OPNPAT
OPNPRM
OPNTST
OPNWDS
OPN.CT
OPN.N1
OPN.N2
OPN.X1
OPN.X2
OPN.1
OPN.2
oP1
OR
=

020000
020000
001240
033336
033134
032762
033460
032766
033672
033676
033710
033714
032772
033014
035742
000200

PAGE

206

SEQ 0201

9380#
93854
9383«
9363
1881#

0f800 = 000040

PACK

PAR

PAT
PAT.PT
PATO
PAT
PATIO
PAT!
PATI2
PAT13
PAT14
PAT1S

PIRQ

7479
7616
7607
7500

7481
7620
7626
7502

7512
76854
7673
76898
7677

7516

7518

7529

7688

75168

76490

7692

7499

7501

4682

6128
6725

6590

75078

76864
76908

8699

8859

8899

7034

7077
7629

7678

000010

001530
003044
003104
003144
003604
003644
003704
003744
004004
004044

6165

003204

PATS
PATL
PATS
PATO

PATS
PAT9
PGE
PoMm
PiP

7470¢
7613
7605
7493

= 000123

PAT?2

PAT?7

7381¢
7604
7550
7491

003244
003304
003344
003404

003444

003504
003544
= 002000
= 001000
= 020000

6164
6167

177772

PIRAVE= 000240
P8
001402
PK(
001404

L1540

6708

4278

6709

Qa4

6716

6720

7523

" 16
EZ:J:S g??k/S/b MECHANICAL AND READ/WRITE TEST
MACY11 30A(1052)
24-MAY=-79
13:59
IRJAD,
28-MAR-79 11:28
CROSS REFERENCE TABLE == USER SYM3OLS

Pxv

001374

PRM
PRMALMT

001506
001606

PRMMSG
PRMP1
PRMO
PRMI
PRM10
PRM1
PRM1?2

001636
001536
002330
002344
002544
002564
002606
002622
002636
002652
002666
002700
002372
002712
002744
002760
002414
002436
002460
002502

PLY
= 020000
POPQUE
043060

PRM13

PRM14
PRM1S
PRM16
PRM17
PRM?
PRM20
PRM21
PRM2?
PRM3
PRMG

PRMS
PRM6

4181
LLb7

18224

1839#

2029

8379
2068#
21054
687°2
2119#
20834
2083
2084
2091
2052
2093
2094
2095
2096
2097
2098
2085
2099
2100

6184

L4669

3961

4196+
wlLBSe
4178

6198¢
(LB7e
6276¢

8430
6218
3871
6951

8545
6222¢

8853
6235
460%
7203

638

6770
7553

6178

6217

7535

7702

3273

3956
3263
6595¢

3978
3273¢
6639+

9259«
G207
9208
9209
9210
9211
9212

9274
9219#
92204
92214
92224
9223%#
92248
92254
922648
9279+
9312

3960

7556

4004
Tz

6159

93108

6212+
6503

4366

6281

6100
46b2°

4283
6129e
c12¢e

6591
6127

4369

L3711

4387

6588

6589

6594

4306¢

4389

7537
4781
758¢

6171

6172¢

6175

6176¢

6192

6194

6854

3956+
8152+

3973e
8181

3978
8189

6025¢
8302

6213

4307

4606

L5040

9276

9296

9310

9282¢
9314

9316

7546

7701

177776

6587«

0020G0
000001
177776
PIRN1S
002742
PWRVE(:= 000024
QCNT
062372
QDRVO
0462464
QDRvV1
042504
QDRV?
042524
QDRv?
042544
QDRV4
042564
QDRVS
0462604
QDRV6
062624
QDRY7
042644
QINPI
042402
P?
QOu1t
04c62¢

1551

000000
000040
000100
000140
000200
000240
000300
000340

002524

PRM7

PRO
PR
PR?2
PR3
PR4
PRS
PR6
PR7
PS

PSEL
PSU
PSW

2030

64605

SEQ 0202

—.u
S —

001400

PXCS

PAGE 207

9235
9198
9199
9200
9201
9202
9203
9204
9205
9261

9261+

9213

9214
9278
9299

8303

8356

8366

8415

1 16
MACY11 30A(1052)
(IRJAD RPO&L/S5/6 MECHANICAL AND READ/WRITE TEST
2L=AAY-T79 13:59
CIRJAD.P11
28-MAR-79 11:28
CROSS REFERENCE TABLE -- USER SYMB0LS

RD.ADR
RD.RP

041654
041630

RD.RP1
RD.RP2
RD.RP3
RD.RP4
RDO.WRD
=
READ
READHD=
READIN=
RECAL =
RELEAS=
RESREG=

041652
041776
042002
042006
041656
000171
000173
000121
000107
000113
104413

RESTAR

006216

RESVEC= 000010
RHVEC
001370
RH.ADR
001366
RMR

RPADR
RPAS
RPBA
RPCA
RPCC
RPCSY

= 000004

034632

=
=
=
=
=

000016
000004
000034
000036
000000

RPCS2 = 000010

RPDA
RPCB
RPDS1

= 000006
= 000022
= 000012

RPDT
=
RPECT =
RPEC2 =
RPERRS

000026
000044
000046
(034466

RPERY! = 000014
RPER2
000040
RPERY
000042

4919
4926
4916
18314

5626
5828#

16572
9035«

8220
8942
9037
9033
9044

9049
9039«
1907#
1908#
1900#
1895#
18974
6192
5890

9246
9314

9282

4934
71314
7138

71974

7179¢

7287

7337

7370

9036+

90384
8261
90334

9775
8493

9241
9280
92274
4920
4940
7118

58274

8255
8991
9067

90664

9058
9070#
9040
4584
3837

4921

4935

3403

3506

6620

6645

6206

6221

4291

4315

9089
3861
4220
G410

81204
8634+

4016

8125#
3974
8783
8127#
8134n
81354
79184
6324

B132#
8133%

8635

8649

867"

8714

8782

8792

8807

4379
7020

4397

6614

8923

77
7514
9250

4495
7672

6512
7676

5206
7695

8676

7362
9151

8433

8453

8474

8633

8670

8940

9142

6261

6874
8353
5043

6262

6897

6332

6375

7071

10025

10045

1004/

9045

6641
9061
8712

8098#
9094
8831+

8170
9()98
8858+

8309

8876+

9161
8982

10048

641651

4279

L3670

4385+

L465

L4683

6668+

81304

8445

8457

8488

4013¢

4024+

4368

4386

L666¢

LLB4e

LAREY)
8692

8212+
8715

8218
8767

8249

B371

8569

8387
8952

3968+

3969+
6225t
L4417
8211

3984

3985

4060
4314
64990

4061
4318+
44694

4190+
4319
451Q0¢

6191
377
6511

6204*

9042

9099

8580
9132

L378¢
4515¢
359
3138

6205
£395¢
5160

832¢r
8875¢
8119«

1994
4313
L4 76
8434
8941
8441

91620

219e
4396+
6642
8614e
9167

4284

6372

&390

4470

4488

8121»

8243

8256

8372

8862+
8262

8863¢
8793

8864
8863

8866+
9103

9772

9779

3950

3970«
8131»
3972+
8449

8531
9108

8416

9782

4015

76461

6959
8620

2028#4
20274

B123#

7601

90684

9777

8190
33794

17334
3838
9041

9088

9775
4836

6689
8350
3390

16374

9316

—

104410
104411
000200

9207#
9208#
9215

SEG 0203

s
_Je)
w

RDCHR =
ROLIN =
RDY
-

042442
042444
042664
031360
031126
(031324
000020

208

~ W
~ 0P

QSTART
QSTOP
QVERM =
RANADR
RANCK
RANPAT
RAW
=

PAGE

8260+
8118#

8636

8470

6224
L4113

8171
8690+

6168
9136

3979
8808
8221

9146

8154

6326
8864
8866

8512

8532

4289+
L4180

8781+
6667

8213
8861«
6851

4185

6199

8750
6367

8753
6369

8862

8943

8543

4290+
Lo (S

9131

8558

B4Sqr
B9S7
8466

B475s
8c:1

8561

8799

8836

8605

RPTMR
RPVE(

001506
061102
034634

RPWC
= 000002
RP.REG
004204

RPO4
RPO4B
RPCS
RPO6
RSTRTY
RSTRT2
RYC
=
SAV(SW
SAVEFG
SAVREG=

035450
043502
043507
043514
006162
006206
000117
001222
034572
104412

SC
SCTRWC=
SCY
=
SC10
=
S
sC12
SC13
=
s¢2
=
$C20
SC3
SC&
SCS
SC6
SCOHA
SC7
SC8
SEARCH=
SEC.DS

037750
177400
000100
001000
040602
040672
040742
000200
002000
040020
040024
040036
040236
040346
0460474
040552
000131
001272

SEC.RD
=
SEEXK
SEEKFG
SEXCNT
SEXTMR
SELDRV=
SERIAL
SETBUF

001266
000105
034574
001346
001344
000145
043671
030476

SETFOR= 000143
005434
SETVEC
042320
SET.IE
Sk

040000

3267
3862
81264
8129#
81284
20694
4350

6142
3966
8169

4014

2707

9801
6276
3305
3308

3311
3368
33774
18994
19764

3268+

81244

3650

8253

8494

8498

8518

8522

3504

3538

3576

1619

3660

4260
7689+

6420

L4630

6518

6640+

80998

8167

6367

6369

6423

6851

9794

4690

7627

6507
7700

58294
8305

6321

6365¢

2755
9808
6350

9811
6397

3613

6324

3370
3383

33724

3382

3321
80494

3325¢
8547

8696

885%

6864
8669
8702

6883
8910
8708

6907
9128
87124

4310

8772

8776

8806
8794
6195
€316+

6326

9820

9824

9826

6374
6998
9234

6392
7030

4409

64672

8824

8838

8845

8360

8900

8816
88C0

8826#
8809

8837

8839#

8871

6359+

6408+

6438

6464

6614+

6656+

7089+

9784

9787

9789

3937
8057#

3972
8155

4280
8397

4368

4386

4466

6484

4976

6981

6264

a2¢es

3401

69984
3403

3506

3836

3937

6976

4981

8215

8340

8414

8619

8721

91608

9804

6307
93884
93894

93904

88464
88614
88724

19114
3411
3947
19104
3267n
8184
18704

6156
7685¢

42717«

8789
8757
8739

3339
2015#
20144

4090
76264+

227

6642

9815
19944
18944

7598

6179

4592

19024
19964

3913

4971

19154
17964

g7
87294
8728
8756
8754
8791
8768

7560

3833
7593+

4882

27954

SEQ 0204

3783

4762

2779

PAGE 209

3740

4633

89074
3986+
8303
81174
2731

6216

17974
18004

13:59

4562

64648

4201

17992
8752
8746
8736

-- USER SYMaOLS

81504
3995

4187
5864

8365
8675

TABLE

6680
8579
8700

8731

8760

87344
87774
88014
8804
8784
4182

6285+
9821

6613«
3836
33420
4027

3967+«

94120
4815

18804

9787

4029
4055

7262+

4286

4906

4038+

9814
6429

9818
6448

6454

6647

7331

8302#

7507

RP1T

034650
000020
000024
000032
000030

(ROSS KEFERENCE

—

RPINIT
RPLA
=
RPMR
=
RPOF
=
RPSN
=

28-MAR-79 11:28

J 16
24-MAY-79

SV —s

(IRJAD.PYI

MACY11 30A(1052)

[«
XV)

CIRJAD RPO&/S/6 MECHANICAL AND READ/WRITE TEST

CIRJAD RPOL/S5/6 MECHANICAL AND READ/WRITE TEST MACY1T 30A(1052)
24-MAY=79
13:59
CIRJAD.PVI
CROSS REFERENCE TABLE == USER SYMBOLS
28-MAR-79 11:28
043364
034546
027006
005706
005402
024456
001100

SLASH
SRCHWT

SRCHOO

SRTDRvV
SRTINT
SRVCLK
STACK

SVRH11

026502
001336
001354
001356
001360
004746
004674
004730
004656
004712
004642
004626
004254
177774
0461174
041224
0461622
041472
041516
0461524
041562
041612
0461622
027172
004704
004740
026212
024422
024360
001340
042202

SVSTAT
SWR

001260
001140

STALL

STALLO
STALLY
STALL?2
STALL3
STARY
START
START?2

START3

STARTS

STARTG
STATBL
STKLMY

S10

ST01
$102

S103
ST0S
S106

S107
S108
S109

STRTMR
STRT1A
STRT2A
ST.CLK
ST.LCL
ST.PCL
SVADR

T
[
T
O
DI
U
T
[T

sw03
Sw0s
Swo5
SWo6
Sw0?

SWREG

Swo
Sw00
Swo1
Sw02

000176
000001
000001
000002
000004
000010
000020
000040
000100
000200

7286

8003#

6162

3272
3259
6126
156414
3841
4582
4909

3678

7563

8367+

4266

3319#
32614
6136
3187
3857
4590
4918

3684
3671
6340
6481
4979

3180#
31704
377
31674
31740
31642
31614
9142

93714
8472+
4356

616414

3379
3860

6597
4924

3700

3679
6383

3850

64656

66384

3512
3955
4637
4932
3706
3685

3548
3993

4646

4938
4978

3686+

3584

4100
4656

4946

4983
3687

3592

«175
467%
4974

6339
3689

PAGE 210

3627

3631

SEQ 0205

3673

3695

3749

6271
4679

64361
4790

4459
4819

6566
4825

6574
4835

6382
3701

6480
3707

65614
5708¢

3709

3711

3793

£579
4897

4984

3374

5467

8995
8950

89824

5550

8938«
8990
8948
89964
8963
9004#
90124
90184
8999
4275
3169
3176
4226

8993

90024

9001
4363
31724
3179#
6320

9023
44661

9009
66804

9016

4419

6517

60934

4911«
4058

£912¢
4189

927
4203
8698

6928

4218

4941
4288

694¢
4312

4394

8857

&6 11

L4674

879¢

4492
9019

4509
91288

3208
5090
6988
5470

32140
5470
7099
$509

3252
5509
7158
5532

481"

822

4830
5722

+832

<838
6491

5065
6623

6984

7099

7162

61334
61234
8566
5139
3185
5081
6982
3214

1605
1604
1603

1602
1601

1600
1599
1598

8597
6520+
3206+
5086
6984
3252

4830
4838
4832
4813
4813

6124
6172
6259

4822
(816

6134

4228
7251

8705

6425
6988
H114

8745

9020#

5564
7162

5715

8895

8956
6625

L 16
CIRJAD RPO4L/S5/6 MECHANICAL AND READ/WRITE TEST
MACY11 30A(1052)
24=-MAY-79
13:59
CIRJAD.PIY
28-MAR-79 11:28
CROSS REFERENCE TABLE =-- USER SYM8OLS
sw08
Sw09
SW
Swi0
SWil
Swi2
Sw13
Swl4
SWwiS
Sw2
sw3
sSw4
SWS
sSwé6
sw7

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

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

= 000400
sw8
SWw9
- 001000
SYSTAT
043370
TAP
=
181TVE=
10
10F
=
TESTNG
TESTO
TEST
TESTIO
TESTI1
TEST12
TEST13

TEST14

0460000
000014
037610
000040
043647
006614
006772
011242
012300
012546
013242

013706

TESTIS
TEST16
TESTI7
TEST2
TEST20
TEST21
TEST22
TESTY
TESTL
TESTS
TEST6
TEST?

014424
015112
015510
007120
016236
0170264
017420
007336
007546
01012C
010320
010576

TIMER

034576

TICKMS
TICkuS
TIM.ON
TIM.PT

TIm.uP

001240
001250
001314
001332

001276

TITLE
050202
TevEC = 000060
Th s
001416
1PS
001414
TPVEC = 000064

TRAPVE= 000034

TRCkw(

001352

15874
15864
16040
1585#
15844
15838
158248
15818
15804
16034
16024
16014
16004
15994
15984

15974
15964
3276

1785+
1638#
8673
18144
3405
3502
353¢
3931
4088
4173
W271»

“3614
4459
4560
4631

3574
4760
4880
4969
3617
3658
3738
3781
3831

19854
19864

«022+

8973+«
20048

20108
19984
3230
16458
20364
20354

16464

16448

20178

1597
1596

3667
6562
6337
4892

6491
93724
86824
1832#
94084
3511
3547
3953«
41004
L1754

4565
4636

35824
4790
4907
4973
36254
3668
374068
37894
3840

320
6982

5065
7158

6380

6478

35124
35484
4041

4908
W974n

9006«
6705

3193,

4909#

36704

9000+
6688+

45T

4054

L5660
46378

38414
6119«
6120+

6682
6681
99344
5447
3223
3222

SEQ 0206

6623

6116
6117+«

80624

PAGE 211

6141

B275+

8409+

8552+

6723
6687

6725+
6702

6726+
6751

4889

6173s

9012+

B598¢

54481
5101
5100
3194

4599

6177

8685+

8778+«

BB822+

BB73«

)

8880«

8013

8315

CIRJAD RPO4L/5/6 MECHANICAL AND READ/WRITE TEST

CIZRJAD.P1N

1RE
= 040000
TRK.DS
001274

TRK.RD
TRK1
=
TRK10 =
TRK2
=
TRk20 =
TRK&
=
TRNSWT
TRTIVEC=

TSTNMS

TSTPGM

001264
004000
040000
010000
100000
020000
034544
000014

001234

035446

1510
ST
1S110
1STI0A
181108

006470
006632
011034
011500
012072

15116
1ST17

9789
19938

18014
18044
1802#
18054
18034
4018
16394

19814

6437

6463

6615+

6655

6974

7088

G784

79954

8431+

B576c

8586

8603+

8612«

8687

8688

8951

8964

8979

3369

3496

3530

3568

3611

3652

3732

3775

31825

3925

08?2

3293

3297

4625

4754

4874

4963

6156

6157«

3162+

3165

3168+

3171

3175

3178

3228«

3231

8241

8290#

3276

3283

3284

3291

7384

L1468
4160
4264
6354

007010
016034

3532
4627

35664
L7524

3570
3613

36094
36504

31927

G442
4556

010010

3654

3734
3777
18154

40804

4452
L6230

7388«

7392+

L1546
62508
436408
INAL.Y

4258
4348
BEANN)

«552#

7396+

76400¢

3773
3823
18334

4383

4481

4499

65848

= 104401

3230

3233

3239

3246

3261

3279

5187

58224

31301
3429
5158
5416
5648
677

3303
4998
5161
56464
5653
6772

7631

7638

7286

7333

3312
5012
5168
5530
5656
6779

5533

5819#

7366

020172

5083

TYPON =

104404

58218

1YPTIN

027370

4230

322

"
e

003024
00303«

23908
23958

4399
4457

64622
6520

TYPOS = 104408
003014

5017
3280

23858

S114a

3304
5004
5167
5476
5654
6776

TYPERR

1YPOC = 1064402

76453

7663

76465

7358¢

7359¢

4148

7378¢

37304

4294

104405

1622+

9787

48724
L9614

026504

TYPDS =

110

9821

4554

18795

TYPE

6407+

9815
9787

4640

4756
4876

TWOMS

6358

08¢
4150
4254
6344

010210
010454
= 000100

SEG 0207

4342

7379+«

016554
017332

1516
1817
TUf

PAGE 212

6315

9797
6612«

012360
013116
013562
014300

007226
007422

13:59

4252

15121
18122

1513
1814

L1
24-MAY=79

6284

35284
39234
36914
40554

015016
015414

1512
1s120

16624
1997#

30AC1052)

CROSS REFERENCE TABLE == USER SYmM30LS

34940
3498
3827
3988
3665

012140

1S112
1ST13
TST164
1ST1S

28-MAR-79 11:28

MACYY1

5183
3358

4269

3407

6323

7529

5009

0621

31314
5029
5177
5531
5659
6783

3246
5033
5190
5534
5663
6787

3351
507¢
5194
9545
58188
6788

7285

7599

7640

7534

58208

4519

7555

75381

67448

7557

3363
5084
$197
555§
5932
6799

7559

3371
5134
5199
5566
6752
6800
7563

3405
5138
$201
5485
6756
680¢
7595

3410
§144
5206
5633
6760
6809
759¢

3411
5153
5243
5639
6763
7243
7597

3299

3426
95154
5340
S64L4
6767
7282
7600

S S——

B 1
CIRJAD RPOL/S/6 MECHANICAL AND READ/WRITE TEST
MACYYY 30A(1052)
24-MAY-79
13:59
CZRIAD.PYY
JB-MAR-79 11:28
CROSS REFERENCE TABLE == USER SYA30LS
17A
178

00277¢
003004

ULDFLG

034552

2375#
23804

gg%%l

LN
6174

8210

6231
6235

8312

8327

8509«

PAGE 213

SEQ D208

8572+

8604

B742

88728

8830

8846

8848

895Qe

8497

8511

5194

5201

vu30
A"
WAO
Ww(E

=
=
=
=

000103
060000
043410
043416
063427
020000
043242
000001
000002
000004
000010
026644
000002
010000
000100
000002
040000

18934
17454
93754
3299
3303
16864
3233
16734
16744
16754
18674
6334
1866#
18214
17184
18764
16874

WCF
wCu
WLE

= 000040
= 000001
= 004000

17364
1809#
17420

UNLOAD=
UNS
=
UNTASG
UNTOFF
UNTON
uPt
=
USE
ust
=
use
=
US4
=

=
UWR
VERIFY
VUF
=

WCEFLG

001334

WRCKD = 000151

WRCKHD= 000153

WRITE = 000161
WRL

= 004000

WRTHD = 000163

2011#

93764
9378#
9355«

6377

6604#

4791+

4,828

6396+

6460+

18274

1903

4577

4598

4657

4680

4826

4929

4943

6421

6447

1905#

3938

4575

4591

4639

4674

4820

4891

4913

6427

9094 ¢

90974

9777

8542

8557

8440

8568

8444

8448

8456

8465

8469

8480

B487

5134

5153

5167

Si77

19044

17234

19064

WRT.AD

042100

9084

WRY.RY
WRT.R2

042074
042164

9095#
9081+

9115
91144

WRT.RG
WRT.RS

042176
042200

9106
9118

91194
91204

WRT
. RP

WRT.RY

WRT.WD
WRYU
=
wSu
=
$AUTOB
$B8DADR
$B80DAT

$BELL
SCHARC

$CKSWR

042010

8248
8521

042172

9090

042076
000400
000004
001134
001122
001126

9082+
1817#
18114
19424
1937#
1939#

001210
020774

021750

$CMTAG 001100
sCM1 = 000006
scm2 = 000014

1968#
52457

55094

19254
1957#
1957#

$Cm3 =
$CMe =
SCNTLC
SCNTLG

000006
000003
022662
022674

19554
19634
5664
5530

$SCRLF

001215

19704

SCNTLU

022667

55595

8252

8386

8766

8798

8835

9101

9104

9110

9117#

9086
1835#
1829#
3256
7081«
6970

9093

90964

9777

5523
7146
7083¢

5680
9792
7148

5103
5271«

9792
5476
52764

9799
5673

1957
19644
5545
56754

3183
19594
1959«

3191
1960#
19604

3197
19614
19614

3168
19624
19624

19634
19634

19654
56734

19664

3261

3275

3429

5084

5103

3220
5255
5826

3182
1958#
1958«

5648

5076
5262

567408

3314

90814

1
¢
CIRJAD RPOL/S5/6 MECHANICAL AND READ/WRITE TEST MACYV1 30A(1052)
24-MAY-79 13:59
CIRJAD.PIY
28-MAR-79 11:28
CROSS REFERENCE TABLE -- USER SYM3OLS
$OBLK
$0B2D
$OECVL

021442
023372
023552

SENULL
$EOP
SEOPCT
SERFLG
SERMAX

017746
017502
017656
001103
001115

SERROR

017752

$O1vV
$DOAGN
$OTBL
$ENDAD
SENDCT

023730
017742
021432
017732
017664

SERRPC

001116

$ERRTB
SERTTL

004306
001112

SESCAP

$FILLC
$FILLS
$GDADR

001206

001156
001155
001120

5244

5382
5845
5866

3851
5025
53 S
15 8
33 7+
50 3
33 3
33 6+

19 284
1 9364

4157¢
3191

19354

9789
2844
19324

19674
6313+
6975+

9332+
19534
19524

$GDDAT
$GETL2
$GTSWR
$HD
=

001124
017722
022040
000000

19364
19384
50340
55314
1459

SICNT
SINTAG
SITEMB
SLF

001104
001135
001114
001216

1929¢
196434
19334
19714

SHINUM

SLONUM
SLPADR

SLPERR

023724

023726
001106

001110

SLSTAD

050656

SMSWR
SMXCNT
SNULL

022701
023154
001154

SMAIL = seevee |
022712
SMNEW

SNWTST= 000001
SOCNT

$OMODE
$OVER

021222

021224
023140

5279

5616
58644
59124

4048
5035
56200
50374
3356+
50448
3396
50244

5071«
3199+
4261e
50634

5078«

9794
5130
5016

5566

5653

60008
50414

6792

3366

50274

6965
5028

49974
10058¢

56240

5103
3430+
4351

5079+

9797
5131
5018+

3198+
6349r
6980+

4169+
6356%
7091«

5248
5279
7082+«

5279

7084

5687
3505+
4449+

5080

9801

5077+«

4270+
6395+
7097+«

7147«
7149+

9792
9792

7534

6498

10059

5711
3539+
4563+

5713
3577«
4634

5719«
3620¢
4763¢

5740
3661
4BB3r

6475
3741e
4972+

6955
3784
5713

6986
3834¢
5735«

7101
3934¢
5740

7160
4091e

5103

9771

9772

9775

9777

9779

9782

9783

9784

4360r
6405+
7144+

4458+«
642Br
8719

5093
64635+
8770

5095
6461+
8774

5103
6494
9051

5734«
6617+
9111

6275+
6622*
9320

6282+
6646+
9329

6306¢
6653+
9330¢

5954

5962

5967«

59728

7131

7137«

7140+

7184

7200

5973#
3621+
&T6Lv
3583¢
38S6r
45B1¢
4B96+

6565
3662+
LBB4r
3591«
3859+
45B9r
4908+

7132
3742+
4907«
3617+
3931e
4596
4917«

7136«
3785+
4973«
3626+
3954+
L631r
4923+

7139«
3840+
S717+
3630+
3992«
4645t
4931r

7183
3935«
5732+
3658+«
40B88c
46557
4937+

7198
4092+
5737
3672+
4154
4672+
4945+

7199
4161
5739
3696
4258
4L678¢
4969+

36008
4069
46908

3602
413&M
4692

36394
4136
4B4TH

3641
4239
4849

3717#
K261
49528

3719
&327H
4954

37628
4329

9806

5103

9808

9811

9815

9821

5824

3B46

6044

4886

3196+
19304
6265¢
19314
3738«
(368
4760

4887«
3200
4355¢
3201+
3748+«
L44br
&B18¢

5353
3511+
44S53¢
3502+«
3781«
4560v
4824y

5960
3547+«
4565¢
3536¢
3792+
4573+
4834+

5966
3578e
4636t
3574+
3831+
4578+
4BBOr

5232

5732

3519
38884

35534
3890

3264+
5528+
5080+
5103

5092
3244

5717
10004+

3,854
3764

3487
38120

3252
56784
56760
57394
5250

5726+
5547
5103
5279

5733«
10008#

S086

5279

5729+«
5680

5739

6493

5673

5739

6625

46250

4427

45394

4541

46098

§307¢«
5698

5311e
5718

5316
5728

5319«
5736

5330+

53564

5341¢

35174
3814

5727
5567
5123
5663

3555
40674
4611

5312¢

SEa 0209

5673

3195«

3218
5534
5531
5730
19514

PAGE 214

SI54H

0 1
E%:Jkg g:?k/5/6 MECHANICAL AND READ/WRITE TEST MACY11 30A(1052) 24-MAY-79 13:59
28-MAR-79 11:28
JAD.
CROSS REFERENCE TABLE -- USER SYMBOLS
5724
5656

5740
5673
7197

9784
9772
9783
9771
9792
9779

9789
9779

9797
9799

9806

9808

9811

9815

9821

6765

6774

6781

6785

6797

6802

7561

3189
5473

3193
5504

3195
5680

3197
5696

3198

3200

3249

6766

6775

6782

6786

6798

6803

7562

7637

1487
3201

1489
3540
6564
5058
5709

1490
3578
4635
5059
5711

1491
3621
4764
5074
5712

1492
3662

1966

4884

5081
5713

1918#
3742
4973
5086
5720

4994

5090
5721

19467
3835
5020
5103
5722

1968
3935
5036
5688
5733

3576
4633
5485
5605

3619+
L4762+

3740+
6971+

3783«
5020+

3833
5720+

3933
5727

4090

6156+

4882+

5698
5610

5699
5612¢

5501+

5483

5689

551

5527

5537

5549+

5569+

9779

9784

9789

9794

9797

9801

9806

9808

9811

3496
3600
3741
3923
4158¢

3505
3609
37624
3925
4239

3506#
3611
3762
3934

NNINDO
O W
NN
NI
—

3528
36214
3775
4067

3530
3639
3784

3539
3650
3785#
4082

3540#
3652
3812

3553
3661
3823

7182

teeCERYE

R 1A Y]

e e

000024
001160
001162
001164
001166
001170
001172
001174
023214
017744

9772
9799

000000
001204

$1x8
$TKCNTY
$TKINY
$TKQEN
$TKQIN
$TKQ0OUV
$TrQSR
$1KS
$TKSRY
$TMPO

001146
021452
021462
021462
021454
021456
021460
001144
021532
001176

$TMPI
$TMP2
$TN

001200
001202
000023

3197+

4350+

5429
5644
S64LN
5499
5645
56460
5445
5429
54604
5114
9821

1459

3568
3717
X854

6146

43524

5056
5692

3504+

4448

5449
5474
5465
5610
5446
5608
§501
5450+

9775

4440

5513
5607+

64649

3660+
5540

4250
44500

~Oru::u~€>*d

5055
5691

4352

N NN

3200

4262

1521
1459

&S B

6759
57314

99874

RV IVTRV

050562
177777
023566
023112
000200
167000

56954
3188
5468

S =00~
N SN~
00
WNAD WO
W

$S1ZE
$STUP
$SUPRS
$SVLAD
$SVPC
$SWR

[oala!

$SETUP

o0 O

tsceRTY

023156
023336
022724
000147

$ SWRMK
$STIMES

5044
5585
6564

teeeee

oW
~3 OO

$REGS
SRESRE
SRTNAD
$R2A
$SAVRE
$5820
$SCOPE

5022+
5279
59494

022402
WWNININ)
=t eid e
ON = O000~

$REGS

19264
19694
3845

NNV
N

$REGO
$REGY
$REG2
$REG3

001100
001214
023626
022312

SEQ 0210

[«

$PASS
$QUES
$RAND
SROCHR
$RODEC=
SROLIN
$ROOCT
$RDSZ
SREGAD

PAGE 215

§261
4552

3785

4080
42624
4556

5064

6327
6563

5730

4091
4340
45648

5089

3197

4092

5042
5689
5736

5739

4092#
6342
6609

1
E
CIRJAD RPO4L/S/6 MECHANICAL AND READ/WRITE TEST MACY11 30A(1052)
24-MAY-79 13:59
CIRJAD.PW
28-MAR-79 11:28
CROSS REFERENCE TABLE =-- USER SYMBOLS

$INPWR
$1PB
$TPFLG
$1PS
STRAP
$IRAP2

$TRP

023502
001152
001157
001150
023252
023274

= 000014

STRPAD

6623
48841
5871
19504
19544
196498
3193
58068

3872
3223+
5226
3222+«
57954
5817

58174

gg;?:

$ISINM

001102

023306

5800

$TTYIN

022636
seeene |

5623
5823

STYPBN=
$TYPDS
$TYPE
$TYPEC
$STYPEX
$1YPOC
$TYPON
$1YPOS
$XTSTR
$$GET4=

021226

020560
020730
020776
021024
021040
021000
022736
000000
$OFILL 021223
$40CAT= seeeer

= 051120

28;3

58194

19278
3778+
6349
5019+

3499+«
3782
G463y
5073

53704

5822

5624

4634
4961

646354
«963

4690
4972

6752
9738

5101«

5268«

5279

5100«

5266

5279

58204

5821%

582284

3503
3828+
G447
5103

3533«
3832
6557+
5114

52668

58924
5070
5279
5069+

5636

5654

PAGE 216

6754
7413

6763
7437

L7668
7512

4LB&7

4872

4874

4883

58234

5824

58254

5826

58274

58284

58294

5830#

3537
3928+
4561
5687

3571«
3932
6628+
5731«

3575
4085+
4632
5736

3614
4089
4757«
5740

3618
6151
4761
6215

3655+
4155
4877+
6417

3659
6255
4881

3735«
4259
6966+

3739
6345¢
4970

5267

5571

15194
3694

15210
3748

15240
3792

1924m
3856

1972
3859

3186
395¢4

3200
3992

3201
6573

3583
4578

75288

92194

922(#

5668

5672¢

10072

52268
5247
5272
53104
5309
53054
57004
50364
5306
5083

5810
5256
5274
5819
53120
5820

5818
5261
52774

5310+
5697

5320

53554

4581
4917

4589
4923

1516
3630

6596
4931

15170
3672

4645
4937

4655
4945

4672
5001#

4678
50328

4764
5044

92214

92224

92234

92244

92254

92264

9227

9932

150644
3591
5629

1508#
3626

56334

SEQ 0211

5821

5434

56435

56720

5673

5680

5739

4818
50454

5740

6824
5103

59124

4834
51470

4884
5279

4896
56248

CIRJAD RPOGL/S/6 MECHANICAL AND READ/WRITE TEST MACYV1 30A(1052)
24-MAY-79 13:59
CIRJAD.PIY
28-MAR-79 11:28
CROSS REFERENCE TABLE == MACRO NAMES

(KCHR
(kD16
CKNUR
COMMEN
COMND

DODTA
ODRV.IN
ENDCOM
ENDPAS
ERRCAL
ERREND

ERROR

31574
31574
31578
18
31574
31578
3751
31578

7289
7347
7297
16488
3403
3402
3753
4576

3586
3807
6659

3594
3858
4675

3628
3879
6681

3633
6101
4821

3675
4103
4827

3681
977
4837

3697
4982
4898

3703
6621
6919

6316
6323
6445
7092

4380
6328
6446
7098

4308
6363
6468
715¢

6415
6364
6469
7157

4478
6365
6470
8720

4496
6366
6471
877

6513
6371
6472
8775

9111

9052

9112

3983
6291
6414
6661

10054

4059
6292
6415
6662

6193
6293
64616
6663

6207
6320
6442
6664

6222
6321
6443
6976

4292
6322
6444
6981

6314

6357

6406

6436

6462

6654

7096
6000
16488

7144
9993
3249

6313

6356

6404

6435

6461

6617

6653

6975

3630
4655

3672
4672

3694
6678

3748
4818

3792
4824

3855
4834

3859
4896

3953
6917

3991
6923

6573
64931

6578
4937

3609

3650

3730

3773

3823

3923

4080

L1466

4250

6340

4438

35534
4069

3555
L1338

3600#
4136

3602
62398

36394
4241

3641
63278

37174
6329

3719
Ge250

37628
4427

3764
65394

38124
4541

3600

3639

3762

3812

3888

4067

6134

4239

6327

4236

6324

4423

6521

15420
6289
6412
6619

3388
6290
6413
6660

16484

MORETA

19184

1973

MORE.S

31574

MSG

34854
3814

3494

4169

3591
6596

3528

6270

6360

3626
6645

3566

6282

4623

4752

4872

L6094
14

4611
16484

L6904

4692

4625

6539

4609

4690

6847

6952

6051
6003
6322

6196
6151
6621

6245
6209
6519

§21¢
3598
4948

4286
3637
4985

431 0
N5

6376

(392

4409

6472

4065

6111

5820

5821

5822

5824

5826

5827

5828

5829

5830

3529

3567

3610

3651

3731

3774

3824

3924

4081

L1147

6251

63461

6639

1698
3717
4339
5104

1889
3729
4425
5211

1920
3762
4437
5282

1972
3772
6539
5360

3059
3812
6551
5628

3485
3822
4609
5504

3493
3888
4622
5519

3517
3922
4690
5590

3527
6067
6751
5614

3553
4079
(847
5684

14
14
14

3487
38874
16484

16487
16484
16484

7901

35174
3890
3485

5411
5370
31574

SETPRI

4187
3515
4687
16484

4201
3551
L8446
5601

SETUP

16484

3181

58'0#

3157#

4553
14
14
16484

1
3565
6136
87

5819

3495

3519
40674
3517

5779
5759
4230

4961

4458

6552

31574
156434
4607
14

STARS

3550
3805
4648

9050

3583
4589

SK1P
SLASH
SPACE

4981

8773

31574
4581

SET.IN

6525
6976

3549
3803
6602

7881

8770

LOOP

SETTRA

6116
3936

3514
3801
6595

7830

6534

GETPR]
GE TSWR

SAV.RH
SCOPE

7651
3469
3836

3513
3799
6585

7819

6514
6129

7091
16484
164690

RPO4.D

7806

6947
6416
3480

6979
14
18

POP
PUSH
REPORT

7643

4939
6317
3462

5065
6283

NEWTST

7603

4933
4223
16488
5029
8719
5097

3157#
3157#

MULT

7566

SE@ 0212

6925
31578
18
3157#
79014
31574

ERRTYP
ER.NDX

ESCAPE

7339
7585
7618
3436
3506
3404
3797
4580

PAGE 218

(867N

3553

5968
5949
4233

4624
16484
16484

6753

4873

6962

1514
3600
6145
4952

16680
3608
4239
4960

1652
3639
6249
(9N

1694
3649
6327
5051

4849

69528

3760

4954

3810

3885

4490

6507

1
6
24-MAY-7)

13:59
CIRJAD RPOL/S/6 MECHANICAL AND READ/WRITE TEST
MACY11 30A(1052)
D.PY
CROSS REFERENCE TABLE =-- MACRO NARMES
CIRJA
28-MAR-79 11:.8

TYPOCLY

TYPTIXTY

$SSCMRE

SSCATM
$SESCA
SONEWT

1
14
18

19184

$8SK1P
.EQUAT
.HEADE
KT
.SETUP
.SWRH]

19184
1
14
4425
S810#
14
14
1
¥
1
14

LBACTY
.SAP1B
.SAPTH
LAAPTY
.SASTA
LSCATC
LSCMTA
.$0820
.$0820
.8D1V

1
14
1
1Y]
14
¥
14
1
¥ ]
14

$$SET

.SWRLO

.S$EOP

.SERRD

.SERRTY

14930

LSMULT
. SPOWE
.SRAND
.SRDDE
.SRDOC
.SREAD

1
1
1
4
X ]
14

.$582D
.$5820
.$5C0P

¥J
1
14

.STRAP

.SR2AZ
.$SAVE

.$SI11ZE
. $SUPR

.$1YPB
LSTYPD
.STYPE
.$1YPO

14
¥;

1
14

14
14
14
¥ ]

16484
4998
16484
16484
16484
16484
16484
1957
1963
16484
16484
4539
5819
16484
164690
164690
164694
164490
16496
14494

5916

5940

5977

7900

7910

9981

10010

6764
5185

6768

6773

6780

6784

6796

6801

7560

7635

3277
5016

3357
5182
5004

3406
5532
5012
1960

5008
7284
5029
1961

7529
7598
5144
1962

7639
5161

7253

7333

7365

7525

7630

3517

3553

3600

3639

3717

3762

3812

3888

4067

6134

5828

5829

5830

6998
1958
1964

3485

4609
5820

166494
16494
16490

1502
1918
5851

164490
164494
164494

4989
5049

164494

5938

16492
16490
164494

1959
1965

4690
5821

4847

6952

5824

5826

5827

1496

1497

1498

1499

1500

5822

1538
O 0o O~

3157«

TYPNAM
TYPNUR
TYPOCS

16484

6757

5853

—

TYPEND

TYPDEC

SEa 0213

5834
3202#

NI NN
—

3157«

16484

ek et AN

TYPB2D

TYPBIN

5789

N
L -

19
S810#

5743

SWRSU
TRMIRP

PAGE 219

5975

5626

164694
16494

5741
5832

14499
14494
16492
164492

5682
9979
5914

1644692
16490
16498

5358
5209
5280

5787

4239

4327

CIRJAD RPOL/S/6 MECHANICAL AND READ/WRITE TEST MACY11 30A(1052)
24-MAY-73 13:59
CIRJAD.PI
28-MAR-79 11:28
CROSS REFERENC. TABLE ~-- MACRO NAMES
19
.

.$60CA
L1170

ABS.

PAGE 220

051120

ERRORS DETECTED:

000
O

DSKZ:CZRJAD.BIN,DSKZ:CZRJAD.LST/CRF/SOL/NL:TOC:MD:MC:CND/LI:ME=CZRJAD.SML,CZRJAD.010,CZRIAD.PI
RUN-TIME: 77 108 7 SECONDS
RUN-TIME RATIO: 429/194=2.2

CORE USED:

52k

(103 PAuLES)

SEQ 0214