Digital PDFs

AH-9182C-MC

August 1978

207 pages

Original

11MB

view download

OCR Version

9.7MB

view download

Document:	CZRJAC0 RP04-05-06 READ-WRITE TEST AUG 1978 bw
Order Number:	AH-9182C-MC
Revision:	000
Pages:	207
Original Filename:	CZRJAC0__RP04-05-06__READ-WRITE_TEST__AH-9182C-MC__AUG_1978_bw.pdf

OCR Text

FICHE10F 1

MADE IN USA

[:ZQJK RPOU/S/6 MECHANICAL AND RERD/WRITE TEST MACY1I1 30A(1052) 27-JUL-78 09 2 PRGE 5
1

CZRIC P11

27-JuL-78 09 18

StQ 000t

REN 9

Il DENT
-

PRODUCT

CODE

ettt

I
c

CRTION
e

ee-

fZRJARCO RPO4/S

DRTE

RUGUST

HRINTRINER

DIAGNOSTIC ENG NEER ING

RUTHOR

(C)

RC-9180C-MC

PRODUCT NRME

_ READ-WRITE

TEST

1978

MESS

1976,1978 DIGITAL EQUIPHMENT CORP

MAYNRRD.

MARSS

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE
WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED RS R
COMMITMENT BY DIGITAL EQUIPMENT CORPORATION
DIGITAL
EQUIPHENT CORPORATM ON RSSUMES NO RESPONSIBILITY FOR RANY
, ERRORS THAT MAY RAPrEAR IN THIS DOCUMENT
THE

SOF THARE

DESCRIBED IN THIS DOCUMENT

IS FURNISHED

UNDER R LICENSE AND MAY ONLY BE USED OR COPIED
WITH THE TERNS OF SUCH LICENSE

IN RCCORDANCE

DIGITAL EQUIPMENT CORPORATION RSSUMES NO RESPONSIBILITY

FOR THE USE OR RELIRBILITY OF ITS SOF THARE ON EQUIPMENT
THAT 1S NOT SUPPLIED BY DIGITAL

(ZRJIAC RPOU/S/6 MECHANICAL RND RERD/WRITE
CZRJAC P11
27-JU-78 09 18

TEST

MACY11

30R(1052)

1
27-JuL-78

CONTENTS
RBSTRACT
REQUIREMENTS

21
22
23

EQUIPHENT
PRELININARY PROGRRMS
MEDIR

LORDING PROCEDURE
STARTING PROCEDURE
4
4
v

1
2
3

STARTING ROORESSES
OPERRTOR RCTION
PROGRAM RCTION

4 31
4 32
“ 33

CONTROL SMITCH SELTZCTION
RH11 - RH?0 ROORESS SELECTION
DRIVE AND PRARRMETER SELECTION

OPERRTING PROCEDURE
51
OPERRTIONAL SWITCH SETTINGS
52
CONTROL SWITCH SETTINGS

ERRORS
6 1
6 2

ERROR TYPES
ERROR RECOVERY

RESTRICTIONS
MISCELLANEOUS

8 1
8 2
83
8 u

EXECUTION TIME
STACK POINTER
TiMING TEST (TESTS 12 END OF TEST

PROGRAM DESCRIPTION
10

PROGRRM L ISTING

15) PRINTOUTS

09 24

PAGE 6

SEQ 0002

(ZRJAC RPOU/S/6 MECHANICRAL RAND RERO/WRITE
CZRJAC P11
27-)W-78 09 18
1

TEST

MACY11

30A(1052)

1
27-JuL-78

09 2%

PAGE

RBSTRACT
THIS PROGRAM CONTAINS R SERIES OF TESTS THAT WILL VERIFY THAT
THE DISK IS CAPRBLE OF PERFORMING SEEKS., THAT THE ACCESS TIMES
ARE WITHIN TOLERANCE, THAT THE TRACK AND SECTOR RODRESSING

CIRCUITRY OPERATES PROPERLY. AND THAT THE DATRA STORAGE RAND
RETRIEVAL CRPRBILITIES ARE FUNCTIONING

REQUIREMENTS

EQUIPNENT
POP-11 PROCESSOR
16K MEMORY
TELETYPE
PROGRAM LORDING DEVICE
KH11-L OR KW11-P (THE KW11-P |S REQUIRED FOR THE
RH11 OR RH70 WITH 1 - 8 RPOM/5/6 DISK DRIVES

TIMING TESTS)

PREL IMINRRY PROGRAMS
RPO4/5/6 O!SKLESS CONTROLLER TEST
PART 1 (MAINDEC-11-DZRJG)
PRRT 2 (MAINDEC-11-D2RJH)
RPO4/5/6 FUNCTIONAL CONTROLLER TEST
PRRT 1 (MRINDEC-11-DZRJI)
PRART 2 (MRINDEC-1.-D2RJJ)

MEDIA

THE PROGRAM REQUIRES THAT EACH DRIVE TO BE TESTED HRS R FORMATTED
DISK PRCK
THE PACK MRY BE FORMATTED IN EITHER 16-BIT OR 18-BIT
MODE. DEPENDING ON THE TESTING REQUIREMENTS
NOTE THRT THE PROGRAM
‘P‘A%tSNOT TEST A MIXTURE OF DRIVES WITH BOTH 16 AND 18 BIT MODE

LORD ING PROCEDURE
THE PROGRAM MAY BE LOADED FROM PRAPER TRPE USING THE RBSOLUTE LORDER
OR IT MAY BE LOARDED FROM THE APPROPRIATE 'XXDP' MEDIA USING THE
RSSOCAITED LORDER.
THE PROGRAM MAY BE INCLUDED IN AN 'XXDP' CHRIN
If THE PROGRAM IS BEING RUN ON R PROCESSOR WITH 16K, THE 'XXDP'

LORDER MWILL NOT BE PRESERVED.

THE PROGRARM MUST BE RUN ON R SYSTEM

HITH 20K OR MORE TO PRESERVE THE 'XXDP' LOADER
WILL BE PRESERVED IN R 16K SYSTEM, HOWEVER

THE

'RBSOLLTE'

(ORDER

SEQ 0003

CZRIAC RPON/S/6 MECHANICRL RAND RERD/MRITE
CZRIAC P1Y
27-JUL-78 09 18

TEST

MACY11

30A(1052)

1
27-JuL-7?8

09 24

PAGE 8

STARTING PROCEDURE
-

STARTING RODORESSES
200
204
210
214

NORMAL STRRTING RODRESS
SELECT OPERATING PARRMETERS
SELECT RM11-RH?70 RDORESSES
COMB INRTION OF 208 AND 210

NOTE

STRARTING RODRESSES 210 AND 214 ARE AVRILABLE WHEN'THE

PROGRAM IS INITIALLY STRRTED. THESE STRRTING RDDRESSES ARE
TREATED RS RDORESSES 200 OR 204 RESPECTIVELY ON RESTARTS

NONE

OPERATOR ACTION

LORD PROGRAM INTO MEMORY (SEc SECTION 3 )
LORD R FORMATTED PRCK INTO ORIVE(S) TO BE TESTED
BRING DRIVE(S) TO ONLINE STRTE., WRITE ENARBLED.
AND LOCKED ON PORT.
LORD ROORESS 200.

SET SHITCHES (SEE SECTION 5.)

PRESS START.
THE PROGRAM WILL TYPEOUT THE STATUS OF THE DRIVES ATTACHED TO
THE SELECTED MRSSBUS SUBSYSTEM.
TO INMIBIT THIS TYPEGUT., DO NOT
RESTART THE PROGRAM FROM ANY OF THE STRARTING RDORESSES. INSTERD

TYPE R "CONTROL C' ON THE KEYBOARD TO RETURN THE PROGRAM TO
COMMAND ENTRY MODE.

PROGRAM ACTION

IN AN EFFORT TO ALLOW CONVERSATION WITH R PROGRAM FOR THE
PURPOSE OF CONTROLLING ITS OPERATION AND PARAMETERS THE FOLLOWING
CONSTRUCTIONS MHAVE BEEN ROOPTED

NOTE1

IN RLL EXAMPLES BRACKETS RRE USED FOR CLARITY AND ARE
NOT TYPED BY THE USER

NOTE2Z

THE CRRRRIAGE RETURN TYPED BY THE USER IS INDICRTED BY
C(CR> AND WILL BE ECHOED RS R 'CRRRIAGE RETURN-LINE FEED'

X(d
)

PERIOD

A STATEMENT TERMINATOR WHEN TYPED RT THE
END OF A LINE (LEGAL ON ALL LINES) IT TELLS
THE PRRAMETER STRING INTERPRETER (PSI) THIS
g?% EED OF CHANGES TO THE CURRENT PRRAMETER

PERIOD PERIOD
THE 'PERIOD PERIOD' TERMINARTOR IS TYPED TO INDICRTE
THE END OF TEST PARRMETER MODIFICATION RAND TO SIGNAL

SEQ 0004

CZRIAC RPOM/S/6 MECHANICAL AND RERD/WRITE
(ZRJAC P11
27-JUL-78 09 18

TEST

THE
AR

MACY11

STRART OF

30R(1052)

1
27-JuL-78

09 24

PAGE 9

TEST EXECUTION

coMMA

THE COMMAR IS USED RS R SEPARRTOR BETHEEN DRIVE
RAND TEST NUMBERS
/>

NUMBERS

SLASH

R MODIFICATION INDICRTOR
IF A SLASH FOLLOWS A TEST
NUMBER. THE PROGRAM WILL OPEN THAT TEST FOR PARAMETER
HODIF ICRTION
«Ww

CONTROL
-V

DELETE THE PRESENT INPUT STRING AND START R NtW
LINE
TYPED BY DEPRESSING THE "“CONTROL KEY"
(CTRL)

AND

THEN STRIKING THE

THE

LAST CHARARCTER FROM THE

RUBOUT

DELETE

TYPED BY STRIKING

THE

"RUBOUT" KEY

BE ECHOED BY R BACKSLASH (
CHARACTER DELETED

431

UTM

INPUT STRING
WHICH WILL

) FOLLOWED BY THE

CONTROL SWITCH SELECTION

STARTING THE PROGRAM RT ANY OF THE POSSIBLE STRRTING RDDRESSES
WITH SH<O?>=1 HILL RESULT IN ENTERING THE "CONTROL SHITCH
SETTING" MODE
THUS. RLLOWING THE OPERATOR TO SPECIFY THE
DESIRED STARTE OF "C SWR"
CONTROL SWITCH SELECTION EXRMPLES

EXRMPLE #1
SET SW<C?>=0
C. SWR=0092000 /7 400

EXAMPLE #2
SET SW<07>=0
C. SHR=000000 / 220
C SWR=000000 / 220
v 32

RH11

- RH7?0 RODRESS SELECTION

STARTING THE PROGRAM AT 200 WILL RESULT IN RUTOMATIC
SELECT OF THE DEFRULT VALUES OF BUS RDDRESS (RP(CS1),
VECTOR RDORESS. AND PRIORITY LEVEL OF THE RH11-RH70
IF THE DEFARULT VAULE OF THE BUS RODRESS DOES NOT RESPOND
(TIMES OUT) WHEN ADORESSED, AN ERROR IS REPORTED
AFTER THE ERROR IS REPORTED ONE OF THO COURSES OF ACTION

SEQ 0005

CZRIAC RPOM/S/6 MECHANICAL AND RERD/WRITE
CZRIARC P11
27-JL-78 09 18

TEST

MACY11

30R(1052)

1
27-JUL-78

09 24

PAGE

WitL BE TAKEN
1

THERE

IS A MONITOR -- RETURN TO THE MONITOR

THERE

ISN'T R MONITOR -- RSK FOR MNEW RDDRESSES

STARTING THE PROGRAM AT 210 OR

214 ALLOWS THE OPERATOR

TO CHANGE THE RODRESS OF THE RM11 OR RM70 AND THE VE{TOR

ADDRESS

THE PROGRAM ALLOWS THE RDDRESSES TO BE CHANGED ON WHEN THE
PROGRAN IS FIRST STARTED
STRARTIN= ADORESSES 210(8) AND Z14(8)
ARE TRERTED RS ROORESSES 20C(8) OR 204(8) RESPECTIVELY
RODRESS SELECTION EXAMPLES

EXAMPLE 81
RPCS1=176700 /

177200

EXRMPLE 82
RPCS1=176700 / 176300<CR>
RHVEC=254 / 260<CR>
RHPRI0=5 / 6

EXAMPLE 83
RPCS1=176700<CR>
RHVEC=254 / 260

EXAMPLE &4
RH11/RPO% FRILED TO RESPOND TO RDDRESSING
RPCS1
ERR PC
176300 XXXXXX
RPCS1=176300 / 176700

EXRMPLE @5
RPCS1z176700 / 1776 67 6300<C(R>
RHVE(C=254 (CR>
RHPR 10=5 (R
RPCS1=176300

4 3.3

DRIVE AND PRRAMETER SELECTION

STARTING THE PROGRAM AT 200 OR 210 Wil RESULT

IN RUTOMARTIC
SELECTION OF THE DRIVES TO TEST AND THE TESTS TO RUN

STARTING THE PROGRAM AT 204 OR 214 ALLOWS THE OPERATOR

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

THE TESTS TO Bt EXECUTED.

PARRAMETERS
EACH TEST CONTRINS TWO SETS OF CYLINOER LIM IT PARAMETERS
'LC’' AND 'FC' RARE USED BY RPO4/S DRIVES AND PRRAMETERS 'LC'' AND

StQ 0006

C(ZRJAC RPOMN/S/6 MECHANICAL AND RERD/MWRITE
CZRJAC P11
27-JuL-78 09 18

TEST

MACY11

30A(1052)

27-JUuL-78

09 24

PRAGE

"FC'* RARE USED BY RPO6 DRIVES
THE PROGRAM DETERMINES WHICH DRIVE
IS BEING TESTED ANO SELECTS THE CORRECT SET OF CYLINDER LIMIT
VALUES
|F THE PROGRAM IS BEING USED TO TEST R SUBSYSTEM WHICH
CONTRINS BOTH RPOM/5 RANO RPO6 DRIVES., THE OPERRTOR MUST CHANGE

BOTH SETS OF CYLINDER LIMITS
ALL DRIVES TESTED
43131

IF THE TESTS ARE

TO BE MOOIF IED FOR

DRIVE AND PRRAMETER SELECTION DESCRIPTION
THE FOLLOWING
"R
"FCT

TERMS USED BY

THE

PSI

e
“FS"

REPEATS (ITERATIONS)
FIRST CYLINDER RDORESS FOR RPOM/5°'S
LAST CYLINOER RDORESS FOR RPO4/5°'S
FIRST CYLINDER RDORESS FOR RPO6'S
LAST CYLINDER ROORESS FOR RPO6'S
INCREMENT CYL INDER
FIRST TRACK RDORESS
LAST TRACK ADORESS
INCREMENT TRARCK
FIRST SECTOR RDORESS

“PAT"
“"WOX"

PATTERN (USED FOR DATA TEST)
WORD OF PRTTERN O WHERE X 1S

"LC"

"FC'"
"LC'"
e
“FY"

“LS"

'S”
T
3"A"
£"0"

e
NOTE

IS R TRBLE OF

LAST SECTOk RODRESS

ALL SEEK TESTS (TESTS 0 - 10)
ALL TINMING TESTS (TESTS 12 - 15)
RLL RODRESS TESTS (TESTS 16 - 17)
THE DRTR TEST (TEST 20)

THE EXERCISER

(TEST 21)

% USED BY THE OPERATOR TO SELECT TEST GROUPS
ALL NUMBERS WILL BE IN DECIMAL EXCEPT FOR THE PATTERN
(PRT) AND WORDS (WDX) SELECTION
"PAT" WiLL BE SELECTED
BY AR BIT (I E
001000(8)=PATTERN 9) AND "WOX" WILL BE IN OCTAL

SPECIAL CRSES OF CONTROL CHARRCTERS
IF ¢
> IS TYPED WHILE R TEST IS OPEN FOR MODIFICATION
(</>) AND OTHER TESTS IN THE "TEST COMMAND" STRING
ARE TO BE MODIFIED., THE REMAINING TESTS WILL BE UNCHANGED

WHEN THE PROGRAM |S STARTED FROM LOCATION 200 OR 210, TESTS 0-10.
12-20 WILL BE RUN USING ALL RVRILRBLE, ONLINE DRIVES
IF THE OPERRTOR
WISHES TO SELECT THE DRIVES TO BE TESTED, THE TESTS TO BE PERFORMED.
OR THE PARAMETERS TO BE USED. THE CONVERSATION MODE MAY BE ENTERED
BY TYPING A "CONTROL C' OR BY STRRTING THE PROGRAM FRuM EITHER
LOCRTION 204 OR 214
THE PROGRAM WILL THEN RESPOND WITH

DRIVE(S)=

THE FOLLOWING EXRMPLES RSSUME

THAT THE OPERATOR

IS TO TEST

StEQ 0007

CZRJAC RPOU/5/6 MECHANICAL AND RERD/MRITE
CZRJIAC P11
27-JUL-78 09 18

TEST

MACY11

30A(1052)

DRIVE 83 USING TESTS 2 THRU 7 AND TEST

27-JUL-78

09 24

PRGE

11 AND DOES NOT DESIRE

TO CHANGE

THE PARAMETERS (INITIAL CYLINOER ADDRESS, FINAL CYLINDER RDORESS, ETC )
THE USER WOULD TYPE "3<CR)' WHICH SAYS 'THIS IS THE END OF DRIVE ENTRY'
THT PROGRAM WILL THEN REQUEST TEST NUMBERS
THE

TRANSACTION RPPEARS QS FOLLOKS

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

THE OPERATOR MAY NOW ENTER DESIRED TEST NUMBERS
IN THE EXAMPLE,
HE WANTS TESTS 2 THRU 7 AND TEST 11 SO HE TYPES 2-7¢(.> (THE 'COMMR’

SEPARATES ENTRIES)., 11C >CCR> ('PERIOD'
END OF CHANGES. START TEST EXECUTION
)
IT NOW LOOKS LIKE

'CRRRIRGE RETURN'

THIS

DRIVE(S)=3<CR>
TEST=2-7.11 (R
IN THE NEXT EXAMPLE., IT IS RSSUMED THART THE OPERATOR WISHES TO TEST
DRIVE 4 AND TO RUN TESTS 1 AND 3 THRU 11, MOOIFYING THE PRRAMETERS

FOR TESTS 3 AND 10
THE

TRANSACTION WOULD BE

RS FOLLOWS

DRIVE (S)=4<CR)
TEST=

THE OPERATOR NOW ENTERS THE
GIVEN BELOW

TEST NUMBERS

THE

TRANSRCTION

DRIVE(S)=4<(CR>
TEST=1, 3/84-7.10/11 CCRD

NOTICE THIS SAYS SELECT TEST 1, CONTINUEC.
>, SELECT TEST 3, OPEN(/),
SELECT TESTS 4-7, CONTINUEC.)>, SELECT TEST 10. OPENC/>, SELECT TEST
11, ENO OF INPUT < )
THE PROGRAM SCANS THE TEST NUMBER INPUT AND DETERMINES THAT THE
PRARAMETERS FOR TEST 3 AND TEST 10 ARE TO BE CHANGED
THE OTHER
TESTS WILL NOT BE ALTERED
(THE ENTIRE TRANSACTION

IS REPERTED FOR CLARITY)

DRIVE(S)=4<CR>
TEST=1.,3/4-7.10/11<CR>
TEST 3
R=X /

+HHERE X IS

ITERRTION

THE NEW VALUE FOR ‘R’ MAY BE ENTERED
TERMINATING THE ENTRY WITH
R ¢ > (PERIOD) WILL TERMINATE THE CHANGES FOR THIS TEST, TYPING A
(CR> OR TERMINATING THE ENTRY WITH A <(CR> WILL CRUSE THE PROGRAM
TO MOVE TO THE NEXT PRRAMETER

DRIVE (S)=4<(R>

SEQ 0008

(ZRJIAC RPO4/S/6 MECHANICAL RAND RERD/WRITE
CZRJRC P11
27-J10-78 09 12

TEST

MACY11

30R(1052)

TEST=1. 3/4-7,10/11<CR>
TEST 3
R=1 /7 ((R>
FC=N/
IF

THE

OPERATOR DOES NOT WISH

DRIVE(S)=4<(CR)
TEST=1, 3/4-7.10711
TEST 3
R=1 /7 (R
FE=0 6 (CR>
/
LC=410

1
27-JUuL-78

09 24

PAGE

.D0 NOT ALTER-BUT CONT INUE
LHHERE 'N' IS FIRST CYLINDER ADDRESS
TO CHANGE

'FC',

THE

FOLLOWING OCCURS

(CR)
.00 NOT ALTER
.00 NOT ALTER

THIS LINE BUT CONTINUE
THIS LINE BUT CONTINUE

THE PROGRRM RESPONDS WITH THE PREVIOUSLY ASSIGNED PARAMETER FOR LAST
CYL INOER RDORESS IN THIS CRSE USING 410 AS THE EXRMPLE
THIS IS
WHAT

THE OPERRATOR

INTENDED TO MOOIFY AND

IS WHY TEST 3 WAS

OPENED
TO CHANGE THE VALUE TO '20°', THE NEW VALUE
FOLLOWED BY R ‘PERIOD' TERMINRTOR (< ><(C(R>)
THE

TOTAL

IS TYPED

TRANSACTION AND RESPONSE

DRIVE (S)=%<((R)
TEST=1, 3/4-7. 10711 <(CR>
TEST 3
R=1 /7 (R
FC=0 /7 (R

LC= 410 7/ 20 <CR>

TEST

R=1 /

THE PROGRAM HAS LORDED TEST 3 WITH ITS NEW PARAMETERS AND THE
PROGRAM IS WRITING FOR CHANGES TO TEST 10'S PRRAMETERS

DRIVE(S)=4<CR>

TEST=1,3/4-7,10/11<CR>
TEST 3
R=1 / (R
FC=0 /7 <R

LC= 410 / 20 <(R>

TEST 10
R=1 /

THE OPERATOR TYPES THE NEW VALUE (10)
HITH A '"PERIOD' 'CARRIAGE RETURN'

AND TERMINATES THE ENTRY

THE PROGRAM NOW LORDS TEST 10 WITH THE NEW PRARAMETERS (TEST 11
THE PREVIOUSLY RSSIGNED PARAMETERS) AND RESPONDS WITH

RETAINS

DRIVE(S)=

SINCE THE USER DID NOT END THE CONVERSATION MODE WITH R 'PERIOD PERIOD',
THE PROGRAM HAS LOOPED BRACK TO THE BEGINNING LOOKING FOR MORE
CHANGES. THAT IS TO SAY, AFTER THE ENTRY FOR DRIVE SELECTION, R
¢, )CCR> WILL CRUSE THE TEST MESSAGE TO BE REPEATED AND FURTHER

CHANGES CAN BE MADE

HOWEVER.

RT SOME POINT IN ORDER TO EXECUTE

StQ 0009

CZRJAC RPO4/5/6 MECHANICAL AND RERD/MWRITE
CZRJAC P11
27-JuL-78 09 18
THE PROGRAM.

TEST

MACY11

30R(1052)

'PERIOD PERIOD'

MUST BE

27-JUL-78

09 24

PAGE

TYPED

iIF A SINGLE 'PERIOD’ IS TYPED WHILE DRIVE OR TEST NUMBERS ARE BEING
ENTERED, THE PROGRAM WILL START EXECUTION IMMEDIATELY
R 'PERIOD
PERIOD' MUST BE TYPED BEFORE THE PROGRAM WILL
CHANGE MOOE TO GO TO EXECUTION
4

3 3 ZORIVE

EXIT

TEST PARANETER

AND PARRMETER SELECTION EXAMPLES

EXAMPLE #1

ORIVE=4 <(CR)

»SELECT DRIVE #4, TERMINATE AND
,BEGIN EXECUTION USING PREVIOUSLY RSSIGNED
. PRRAMETERS

EXAMPLE 82

»SELECT DRIVE #0 AND MRKE CHANGES ",
"
+RUN TEST 1 THRU 5 CNLY, USE DEFAULT
,PRRAMETERS AND TERMINATE AND EXECUTE "

DR IVE=0<(R)>

TEST=1-5. <(R>

EXAMPLE #3
DR IVE=2¢((R)
TEST=1-5,6/7/10/<C(R>
TEST 6
R=1 / (R
FC=0 7 10 <«(R>
TEST 7
R=1 /7 50<CR>
FC=0 /7 R

LC=410 /7 50

»SELECT DRIVE #2 AND MAKE CHANGES ",
"

+RUN TEST 1-5 WITH DEFRULT PRRAMETERS, OPEN
.TEST 6.7 AND 10 FOR CHANGES
,LERVE 'R’ RS IS AND MOVE TO NEXT PRRAMETER
,¥STTé§$'6(YL|NOER RODRESS TO 10. END CHANGES

.50

<(CRD

ITERATIONS,

.00 NOT CHANGE

. TEST

LRETAIN

MOVE TO NEXT PRARAMETER

'FC'

CYLINDER RDDRESS BUT CONTINUE

IS STILL PENDING AND WILL BE

ITS PRESENT PRRAMETERS

EXAMPLE 84

DR IVE=0<CR)
TEST=S,E. <CR>

+SELECT DRIVE #0 AND MAKE CHANGES
+RUN ALL SEEK TESTS AND THE EXERCISER

EXAMPLE #5

DRIVE=1<CR>
TEST=S/0<CR>
TEST O
R=10 /7

FC=0 7 10 . (RO

+RUN ALL SEEK TESTS (OPEN FOR CHANGES) AND
., THE DATA TEST (WITH DEFARULT PRARAMETERS)
+RUN WITH 10 ITERATIONS
. CHANGE FIRST CYL INDER RDORESS
.AND START EXECUTION

StQ 0010

CZRJIAC RPO4/S/6 MECHANICRL AND REROD/WRITE
CZRJAC P11
27-JUL-~-78 09 18

TEST

MACY11

30A(1052)

27-JuL-?8

09 24

PRGE 15

. TESTS 1 - 10 WILL RETAIN THEIR PREVIOUSLY
- RSS IGNED PRARAMETERS
EXAMPLE &6

ORIVE=1<(CR)

TEST=S/<CR>
TEST O
R=10 7 100 <CR>
TEST 1§

)

R=100 /7 1000 <CR>

TEST 2
R=1 /7 10¢CR)
FC=0 7 S0<CRD
LC=410 7/ 51 (R
TEST 3

.OPEN THE

- CHANGE TO 100

TEST=0/<CR>
TEST 20
R=1 / 1000<CR>
FC=0 7/ 10<CR>

LC=410 /7 10<CR>

FC'=0 7 <CRD
LC =814 / <CR)
IC=64 /7 OCCRD
FT=0 / 2<CRD
LT=18 / 2(CR
1IT=1 /7 <CR>
FS=0 /7 4<CRD
LS=2Z2 / 4<((R>
PRAT=177777 / 400

(TESTS 0-10)

ITERATIONS,

'R’

+CHANGE
+CHANGE
;CHANGE

'R’ TO 10 ITERATIONS. GO TC NEXT PRRAMETER
'FC’ TO 50. GO TO NEXT PRRAMETER
‘'LC’ TO 51, GO TO THE NEXT TEST

+MOVE

TO 1000

TO TO THE NEXT TEST

;CHANGE

+USE

ORIVE=1<(CR)

SEEK TESTS

ITERATIONS.,

MOVE TO NEXT TEST

TO NEXT TEST
TEST 4°'S PRRAMETERS AND START PROGRAM EXECUTION

»SELECT AND OPEN THE DARTA TEST
.D0 1000 ITERATION OF TEST PATTERN
,#8 ON CYLINDER 10. TRACK 2, SECTOR 4
.RPO6 PRRAMETER
,RPO6 PRRAMETER

{CR>

,RUN HITH PRTTERN &8

EXAMPLE &8
DRIVE=1<CR>
TEST=D/<CR>
TEST 20
R=1000 / <CR)
FC=10 /7 <CRD

LC=10 /7 <CR>
FC'=0 /7 <CRY
LC =814 / <((R>
1C=0 /7

<CR)

+USE THE SAME PARAMETERS AS IN EXAMPLE
.87, BUT ALSO SPECIFY R DARTA PATTERN (PRT #0)

SEQ 0G11

CZRJIAC RPO4/5/6 MECHANICAL AND READ/WRITE TEST
CZRJAC P11
27-JuUL-78 09 18

MACY11

30A(1052)

27-JUL-78

09-24

PRGE

LS=4 /7 (CRD
PAT=000400 / 4O1<CR) RUN WITH PRTTERNS 88 & #0 (0=OPERATOR
W01=165555 / 125252<CR)> .FIRST WORD OF PATTERN O
WD2=133333 /7 52525.. (CR> ,SECOND WORD OF PATTERN O
;
> START EXECUTION

INPUT)

EXRAMPLE #9

DRIVE=0, 1, 4<CR>

- TEST CRIVES 0.1,

TEST=0-5/<CR>
TEST O

. CHANGE

TEST 5

AND 4

IN SEQUENCE

R=10 /7 <R
FC=0 7

<CR>

LC=410 /7 1<CRD>

» CHANGE LAST CYLINDER FROM 410 TO 1

LC =814 7 2

.CHANGE THE LAST CYLINDER FOR ALL RPO6'S TO

FC'=0 /7 <CR>

<(CR>

START PROGRAM EXECUTION

SHITCH SETTINGS
-

OPERATIONAL SWITCH SETTINGS
WITH SWC(15:0>=0 THE PROGRAM WILL PRINT OUT ON
ERRORS RND CONTINUE IN TEST.
THE SWITCH SETTINGS ARE:

SHC(15)>=1. .. HALT ON ERROR
SH{1W =1, | . LOOP ON TEST
SH<13)=1. .. INHIBIT ERROR TYPEOUTS
SHC11)=1. .. INHIBIT ITERAT IONS
SHC10)=1. . . RING BELL ON ERROR

.
SH<09)=1. . . LOOP ON ERROR
SH<08)>s1.. . PRINT ERROR MESSAGE ON LINE PRINTER
SH<O?7)s1. . . REARD CONTROL SWITCH SETTINGS FROM TTY
=1. . . INHIBIT TINE REPORTS (TESTS 12-15)
SH<D6)>
SH<OB)>=1. . . REPORY ONE ERROR PER SECTOR (TESTS 16 & 17)
SHCON )=, . . INHIBIT WRITES (TEST 20)
SHCO3>=1. .. INHIBIT WRITE CHECKS (TEST 20)
SH<O2>=1. .. INHIBIT RERD AND SOF THRRE COMPARES (TEST 20)
SH<C01)>=1.. INHIOIT SOF TWARE COMPARES (TEST 20)
SH<O0>=1.. . PSRFORM RERD AFTER WRITE CHECK ERROR (TEST 20)
IF THE PROGRAM IS BEING RUN ON R SHITCHLESS PROCESSOR (I E
AN 11/34)
THE PROGRAM WILL DETERMINE THAT THE MARDMARE SWITCH REGISTER IS

NOT PRESENT AND WILL USE R 'SOFTHARE' SWITCH REGISTER
THE
‘SOFTHARE* SWITCH REGISTER IS LOCATED AT LOCATION 176 (8)
THE
SETTINGS OF THE ‘SOFTWARE' SHITCHES RARE CONTROLLED THROUGH R KEYBORRD
ROUTINE WMICH IS CRLLED BY TYPING A 'CONTROL G'.
THE PROGRAM WILL
RECOGNIZE THE ‘CONTROL 6' AT ANY TirE EXCEPT WZN THE PROGRAM
IS AT A HIGHER PRIORITY PROCESSING AN RPO4/5/6 INTERRUPT
THE
'SOF TUARE ' SWITCH VALUES RRE ENTERED RS AN OCTAL NUMBER IN RESPONSE

SEQ 0012

CZRJAC RPOY/5/6 MECHANICAL AND RERD/WRITE
CZRJIRC P11
27-JuL-78 09 18
TO THE

TEST

PROMPT FROM THE

"SHR = NMNMNNNN

MACY11

30A(1052)

27-JUL-78

09 24

PRAGE

SWITCH ENTRY ROUTINE

NEW ='

ERCH TIME SHITCH SETTING ARE ENTERED, THE ENTIRE SKITCH REGISTER
INRGE MUST BE ENTERED
LERUING ZEROS RRE NOT REQUIRED . 'RUBOUT'
"CONTROL U’ FUNCTIONS MRY BE USED TO CORRECT TYPING ERRORS
DURING SWiITCH ENTRY

AND

ON PROCESSORS WITH HRRDWARE SWITCH REGISTERS, THE "SOFTWARE' SWITCH
REGISTER MAY BE USED
IF THE PROGRAM FINDS RALL 16 SWITCHES IN THE

'UP’ POSITION, ALL SWITCH REGISTER REFERENCES WILL BE TO THE

AEOE&H{%E"DREGISTER AND THE PROCEDURES DESCRIBED RBOVE MUST

5 2

CONTROL SWITCH SETTINGS
THE CONTROL SWITCH SETTINGS ARE ENTERED THROUGH THE KEYBORRD

THE C. SUR SETTINGS RRE:
o TN o NN o NN o SN o

SHR(15>=0... MRITE PRCK BEFORE TESTING (TEST16)
z1... INHIBIT WRITE PRCK BEFORE TESTING (TEST16)
SHR<14>=0. .. NO STALL BETUEEN DRIVE FUNCTIONS
=1... STRLL AFTER EVERY DRIVE FUNCTION
SHR(13>=0... USE SPECIFIC STRLL TIMES
=1.. USE RANDOM STALL TIMES
. SHRC12>=0... NO INCREMENT
ING STALLS IN TESTY
z1. . PERFORM INCREMENTING STRLLS IN TESTH
SWR<08>z0... DO IMPLIED SEEKS WITH DATA TRANSFERS
z1...00 EXPLICIT SEEKS BEFORE DATA TRANSFERS
SWR<07>=z0... DO READ MERDER AND DATA COMMANDS IN TESTS 0-6
=1 . DO EXPLICIT SEEK COMMANDS IN TESTS 0-6
. SHR<06>=0... 60 HZ POMER SOURCE
z1. . 50 HZ POWER SOURCE
SHR<05>=0.
ALLOM SOFTWRARE TIMEOQUTS(ENRBLE WATCHDOG TIMER)
=1 .
INMIBIT SOFTWARE TIMEOUTS(DISABLE WATCHDOG TIMER)
SWR<00>=0.. OPERATE IN 22 SECTOR (16 B8I1T) MOOE
=1
OPFRATE IN 20 SECTOR (18 BIT) MODE

[ NN o TN o TN o W

TO ENTER THE CONTROL SHWITCH SETTING MOOE PLACE SW<O7>=1
BEFORE PRESSING START. THEN UPON STARTING THE PROGRAM IT
WILL TYPE THE PRESENT CONTENTS OF THE CONTROL SWITCH REGISTER
(C SUR) AND WAIT FOR THE NEW SETTING TO BE INPUT
THE INPUT
STRING MUST CONSIST OF 1 TO 6 OCTAL DIGITS, TWO PERIODS ¢
).
AND R CRARRIRGE RETURN.

THE DEFRULT CONDITION OF C

REFER TO 4 3 1

SWR<15 00>=0

FOR C SWR SELECTION

SEQ 0013

CZRJIAC RPON/5/6 MECHANICAL AND RERDO/URITE TEST

C(ZRMX. P11

27-Jn.-78 09 18

MACY11

30A(1052)

2
27-JUL-78

09 24

PRGE

THERE ARE ANUMBER OF ERRORS THAT CAN OCCUR IN THIS PROGRAN
WHEN AN ERROR IS ENCOUNTERED, THE CALL TO THE ERROR ROUTINE
IS MRDE RND IF SH(13> IS MOT SET, RN ERROR MESSAGE PERTRINING
TO THE ERROR WILL BE TYPED
ERCH ERROR TYPEOUT MILL CONTAIN
THE FOLLOMING

1
2.
3.

AN ERROR MESSRGE
R DATR HERDER
R DATR STRING

REFER TO THE FOLLOWING SECTION FOR
THAT CAN OCCUR

6.1

THE DIFFERENT ERRORS

ERROR TYPES
THE ERRORS THAT OCCUR IN THIS PROGRAM FALL INTO THREE
(3) CATEGORIES DEF INEDO RAND EXPLAINED RS FOLLOMS

6.1

DRIVER ERROR
THESE ERRORS WILL BE DETECTED BY THE RM11/RPOM/S5/6 DRIVER
THERE RARE TWO CLRSSES OF DRIVER ERRORS, THOSE THART
CAN NOT BE I1DENTIFIED IN R MANNER THART ALLOKS THE
INFORMATION TO BE RETURNED TO R "DRTR PRRAMETER BLOCK"
(OPB) AND THOSE THAT CAN

THE FIRST CLASS WILL BE

REPORTED BY ERROR CALLS (EMT'S)

1-5 WITHIN THE DRIVER

THE SECOND CLRSS WILL PRSS THE ERROR CODES TO THE

STRTUS/ERROR WORD (DPB+16) OF
6.1.2

THE PROPER DPB

NON-FRTAL ERRORS
THESE ERRORS MWILL BE DUE TO "DISKTM OR "DRTA" FRILURES
WHICH WILL BE REPORTED RS THEY OCCUR
AFTER REPORTING
THE ERROR THE PROGRAM MWILL CONTINUE TESTING

6.1.3

FRATAL ERRORS
THIS TYPE OF ERROR WILL BE

OF ERROR THAT

THE RESULT OF ANY KIND

INMIBITS THE PROGRAM FROM TESTING THE DISK

THIS ERROR WILL BE REPORTED WHEN IT OCCURS, THEN THE PROGRAM
WILL RBORT THE TEST AND GO TO THE ENO OF PROGRAM

6.2

ERROR RECOVERY

6.2.1

PRETEST ERROR

WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED
THEN DEPENDING
ON HOW THE PROGRAM WAS STARTED IT WILL ASK FOR THE DRIVES RND
RODRESSES FOR TESTING OR RETURN TO MONITOR.
6. 2.2

NON-FRTRAL ERROR

WHEN THIS TYPE OF ERROR OCCURS IT WILL BE REPORTED RAND
THE PROGRAM WILL CONTINUE IN TEST

SEQ 001w

CZRIAC RPO4/5/6 MECHANICAL AND READ/WRITE
CZRJAC P11
27-JuL-78 09 18
6 23

FATAL

TEST

MACY11

30R(1052)

2
27-JuL-78

09 24

PRAGE

ERROR

HHEN THIS TYPE OF ERROR OCCURS IT WILL BE
PROGRAM WILL RBORT THE TEST AND GO TO THE

REPORTED
THE
END OF PROGRAM

RESTRICTIONS

THE PROGRAM WILL TEST THE ORIVES IN EITHER 16 BIT MODE OR IN 18
BIT MODE DEPENDING ON THE SETTING OF 'S SWRC00>'.
IF 'C_SWR(0D)'
IS 0. ALL OF THE DRIVES WILL BE TESTED IN 16 BIT MODE. IF 'C. SHR<QD
IS 1, ALL OF THE ORIVES WILL BE TESTED IN 18 BIT MODE.
THE PROGRAM
HRS NO PROVISIONS FOR TESTING DRIVES WITH INTERMIXED PRCKS OR TESTING
BOTH 16 BIT MODE AND
18 BIT MODE DRIVES ON THE SAME SYSTEM
RCT11 RUTOMATIC
SSUMES 16 BIT MODE

BEFORE THE PROGWAM
IS STRARTED, PROPERLY FORMATTED PACKS MUST BE MOUNTED
ON THE DRIVES WHICH WILL BE TESTED.
THE PROGRAM ASSUMES R
PROPERLY FORMATTED PRCK.
THE FORMAT OF THE PACK 1S NOT ALTERED
B8Y THE PROGRAM

M1 SCELLANEOUS
w
o
-

EXECUTION TiNE
THE PROGRAM REQUIRES APPROXIMATELY 15 MINUTES TO MRKE ONE PRSS WITH
RPO4/5 DRIVES AND RPPROXIMATELY 16 5 MINUTES TO R PRSS WITH RPO6
DRIVES.
THIS RSSUMES THE DEFRULT TEST SEQUENCE (TESTS 0-10. 12-20)
AND DEFAULT TEST PRRAMETERS.
8 2

STRACK POINTER

THE STRACK POINTER
83

INITIALLY SET TO

1100

TINING TESTS (TESTS 12-15) PRINTOUTS

AT THE COMPLETION OF ERCH OF THE TIMING TESTS THE TIME OF THE
MINIMUN SEEK, MRXIMUM SEEK., AND THE RVERRGE OF ALL OF THE

SEEKS PERFORMED ARE TYPED ON THE TTY THE NUMBER OF SEEKS THAT
HRD TIMES BELOW THE MINIMUM TIME ALLOWED WILL BE TYPED ON
THE SAME LINE AS THE MINIMUM TIME
THE NUMBER ABOVE THE
MAXIMUN WILL BE TYPED ON THE SARME LINE RS THE MAXIMUN
TIME, AND THE TOTAL NUMBER OF SEEKS PERFORMED WILL BE ON THE
SAME L INE RS TME RVERRGE.

NOTE:

THE PROGRAM STALLS FOR 2 MILLISECONDS BETHEEN SEEK ORDERS,

THIS STALL TIME 1S NOT INCLUDED IN THE CALCULRTED SEEK TIMES
THE 2 MILLISECOND STRALL BETWEEN SEEK ORDERS IS SPECIFIED BY

StQ 0015

CZRJAC RPOM/S/6 MECHANICAL AND RERD/MRITE
CZRJRC P11
27-JUL-78 09 18

TEST

MACYI1

30R(1052)

2
27-JUL-78

THE RPO4 VENOOR
THE SELK TIMES SPECIFIE
ARE POSITIONER MOVEMENT TIMES ONLY AND AR
Of EFFECTIVE SEEK TIME

831

TIMING TOLERANCES

TEST 12 -- ROTRTIONAL SPEED TIMES

60 HZ

;

fll:lMflSSHO us

16250 US
17090 US
2

TEST 13 -- ONE CYLINDER SEEK TIMES
MAX iMUN=10000 US
NOMINAL =7000 US

TEST 14 -~ RCCESS TIME MERSUREMENT
MAX | MUN=30000 US
NOM i NAL =28000 US

TEST 15 -- MAXIMUM SEEK

TIMES

MAX | MUM=52000 US
NOM
| NRL =50000 US

832

TIMING TESTS PRINTOUT EXAMPLES
EXAMPLE #1
ROTATIONAL SPEED TIMES
MIN=16670 US
MRAX=16690 US

AVG=16680 US

10 SEEKS TIMED

ONE CYLINDER SEEK TIMES
% FORWARD
MIN=5350 US
MAX26920 US
AVG=5650 US
409 SEEKS TIMED
% REVERSE
HINsS140 US
HAX25960 US
AVG=5430 US 410 SEEKS TIMED
RCCESS TIME MERSUREMENTS
X FORWARD

09 24

PRGE 20

FOR THE RPOM
NOT R MEARSUREMENT

SEQ 0016

CZRJAC RPON/S5/6 MECHANICAL AND RERD/WRITE
CZRJAC P11
27-JUL-78 09 18
HIN227770 US
HAX=28640 US
RVG=28230 US
3 REVERSE
MIN=27990 US
MAX=28550 US
AVG=28220 US

TEST

MACYI1

30RA(1052)

2
27-JUL-78

128 SEEKS TIMED

MAX IMUM SEEK TIMES
5 FORMARD
MIN=49990 US
MAX=51980 US
AVG=51010 US
128 SEEKS TIMED
3 REVERSE
MiN=48120 US
MAX=50650 US
AVG=49340 US
128 SEEKS TIMED
EXRAMPLE #2
ROTATIONAL SPEED TIMES
MIN=16670 US
MAX=16690 US

AVG=16680 US

10 SEEKS TIMED

ONE CYL INDER SEEK TIMES
X FORKWARD
MIN=5470 US
MAX=109%0 US
3 ABOVE THE MAXIMUM OF
RVG=5830 US
409 SEEKS TIMED
¥ REVERSE
MIN=5040 US
MAX=5970 US
AVG=5330 US 410 SEEKS TIMED

10000 US

RCCESS TIME MEASURMENTS
% FORWARD
HiIN=29730 US
MAX=31620 US
73 RBOVE THE MAXIMUM OF 30000 US
RAVG=30320 US
128 SEEKS TIHED
% REVERSE
HIN=28620
MAX=31230 US
128 ABOVE THE MAXIMUM OF 30000 US

RAVG=30800 US

128 SEEKS TIMED

MAXIMUM SEEK TIMES
3 FORWARD
MiN=s53610 US

MAXs54240 US
AVGs64020 US
% REVERSE

128 RABOVE THE MAXIMUM OF 52000 US
128 SEEKS TIMED

MAX=64560 US
AVG=52210 US

128 ABOVE THE MAXIMUM OF 52000 US
128 SEEKS TIMHED

MINs52050 US

09 24

PAGE 21

SEQ 0017

C(ZRJIAC RPO4/5/6 MECHANICAL RAND RERD/WRITE
CZRJAC P11
27-JuUL-78 09 18

8 4

END OF

TEST

MACY11

30R(1052)

2
27-JUL-78

09 24

PAGE 22

TEST

WITH ALL SWITCHES ON A "0" AN "END OF PRSSTM MESSAGE WILL BE
TYPED RYT THE COMPLETION OF TESTING R DRIVE AND THE "END OF TEST"
TYPEOUT WILL OCCUR WHEN ALL DRIVES HAVE BEEN TESTED

PROGRAM DESCR!PTION

THIS PROGRAM CONTRINS NINTEEN TESTS NUMBERED 0-22 IN OCTAL
TESTS 0-7 & 11 WILL RERD THE CYLINOER., TRRCK, AND SECTOR INFORMATION
FROM THE MERDER, USING A “RERD HERDER AND DATARTM COMMAND. AND
THEN CHECK THE INFORMATION FOR VAL IDITY. THUS, INSURING
THE SEEK OPERATION FUNCTIONS PROPERLY. TESTS 12-15 WILL MEASURE
THE ROTRTIONAL SPEED. THE ONE CYL INDER SEEK, THE RCCESS TIME,
AND THE MRXINUM SEEK TIMES TO ENSURE THEY ARE ALL WITHIN THE
TOLERANCES ALLOWED. TEST 16 AND 17 ENSURES THE SECTOR AND
TRACK RDORESSING CIRCUITRY WORKS PROPERLY. TEST 20 VERIFIES
THE DATR STORAGE AND RETRIEVAL CRPABILITIES ARE FUNCTIONAL
‘S'Y‘(S’nggr 21 WILL STRESS AND CHECK THE RERD/WRITE AND SERVO

THE PROGRAN WILL START BY IDENTIFING ITSELF AND DETERMINING ALL
DRIVES THRT RARE AVAILABLE FOR TESTING
THEN BEGINNING WITH
THE LOWEST NUMBERICAL ORIVE AND PROCEEDING

IN SEQUENTIAL ORDER

ALL OF THE DRIVES WILL BE TESTED. ONE PRSS THROUGH THE TEST
SEQUENCE (TESTS 0-10.12-20) WILL BE PERFORMED ON ERCH DRIVE BEFORE
MOVIWNG TO THE NEXT DRIVE IN SEQUENCE.
DRIVE TO BE
TESTED MWILL BE TYPED AT THE BEGINNING OF ERCH PRSS, AN "END
OF PASS" MESSAGE WILL BE TYPED AT THE COMPLETION OF ERCH PRSS,
gfl“l)VE"S‘ "END OF TEST" MESSAGE WILL BE TYPED AFTER TESTING ALL
REFER TO THE FOLLOWING SECTIONS FOR DETRILED DESCRIPTIONS
OF EACH TEST
91

TEST O - RECAL/SEEK TEST

THIS TEST WILL CRUSE THE DRIVE

TO EXECUTE A RECAL IBRATE

COMMAND CYCLE AND THEN SEEK FORWARD TO CYLINDER "L(C"
AT
THE COMPLETION OF BOTH COMMANDS, STATUS INDICATIONS ARE
CHECKED TO ENSURE NO ERRORS OCCURRED
THE PARAMETERS USED BY THE
R

FT
FS

LC
LC'

TEST RRE GIVEN BELOW

200

410
814
0
0

SEQ 0018

CZRJIAC RPO4/S/6 MECHANICAL AND RERD/WRITE
ZRJAC P11
27-JUL-78 09 18
9 2

TEST

- SEEK/SEEK

THIS TEST WILL

CYCLE TO "LCTM,

TEST

MACY11

30R(1052)

27-JuL-78

09 24

PAGE 23

TEST

CRUSE THE DRIVE

"LT",

TO EXECUTE A FORWARD SEEK

"LS" FOLLOWED BY A REVERSE SEEK CYCLE

“FCT, FYY, "FSTM
AT THE COMPLETION OF ERCH SEEK. THE PROPER
INDICRTORS RARE EXRAMINED TO ENSURE PROPER OPERATION

THE PARAMETERS USED BY
R
FC
LC
FC*
LC’
¢
FY

LY
FS
LS
93

TEST 2 -

THE

TEST RRE GIVEN BELOW

100
0
128
0
256
0
0

0
0
0

INCREMENTAL SEEK TEST

THIS TEST WILL COMMANO FORWARD SEEK CYCLES TO ADVANCE THE
CYL INOER RDDRESS FROM “FC" TO "LC" BY THE INCREMENT "I(C"
WHEN THE RECSULTANT CYL INDER RDORESS (NC) EXCEEDS
“"LC” REVERSE SEEK CYCLES RRE INITIRTED., STARTING
AT THE LAST LEGAL "NC" RND DECREMENTING BY "IC"
UNTIL “NC" IS LESS THAN "FC"
AT THE COMPLETION OF EARCH
SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO
ENSURE PROPER OPERATION

9 y

—
L

TEST ARE

G!VEN BELONW

00— ffOO0OO—

F <

I
T
T

IC
FT
FS

LC'

THE

R
FC
LC
FC'

THE PARAMETERS USED BY

TEST 3 - STEPPING SEEK TEST

THIS TEST WILL COMMAND SEEK CYCLES TO CYLINDER O.1,2,
4,

8.16.32,64,128. AND 256
AT THE COMPLETION OF EACH SEEK
ggmoa}'fl{ PROPER INDICATORS RRE EXARMINED TO VERIFY PROPER
ION.

THE PARRMETERS USED BY THE
R
FC
LC
FC'

8
0
256
0

TEST ARE GIVEN BELOW

SEQ 0019

RPO4/S/6 MECHANICAL

27-JuL-78 09 18

LC’
1C
FT
FS

956

TEST 4

TEST

MACY1Y

30R(1052)

27-JUL-78

09 24

PAGE

256
1
0
0

- OSCILLATING SEEK TEST

THIS TEST WILL COMMAND SEEK CYCLES FROM “FC" TO "NC" RAND BRCK
TO "FC"
“NCTM STARTS AT “F(CTM" AND INCREMENTS BY “I1C" UP TO CYL INDER

"LC",

THEN

IS DECREMENTED BY "1C" BRCK TO CYLINDER

COMPLETION OF EVERY SEEK COMMAND THE PROPER
EXAMINED TO ENSURE PROPER OPERRTION

AT THE

—

CO—-¥FOOO-

F 4

R
FC
LC
FC'
LC’
1C
FY
FS

“FC"

INDICATORS ARE

FOLLOWING PRRRMETERS ARE USED BY THE TEST

THE

TEST 5 - CONVERGING/DIVERGING SEEK TEST
ThiS TEST WILL

CRUSE THE DRIVE

TO EXECUTE

SEEKS FROM “NC1" RND “NC2" RESPECTIVELY.,

FORWARD AND REVERSE

"NC1" WILL BE

INCREMENTED

BY "1C" AND "NC2" WILL BE DECREMENTED BY "IC" UNTIL
NC1" IS
GREATER THAN THE INITIAL VALUE OF "NC2" AND "N(C2" :S
LESS THAN THE INITIAL VALUE OF "NC1"
AT THE COMPLETION OF
ERCH SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO

—

LC
FC'
LC'
iIC
FT
FS

—

R
FC

00— FfOOO—

ENSURE PROPER OPERATION
"NC1" AND "NCZ" DEFRULT TO
“"FC" AND "LC" RESPECTIVELY
THE FOLLOWING PRRAMETERS ARE USED BY THE TEST

CZRJAC P11

AND READ/URITE

I
A
A

CZRJAC

TEST 6 - SERVO RDDRESSING LOGIC NOISE GENERATOR TEST
IN THIS TEST A SEEK IS DONE TO CYL "NC" THEN R SEEK TO
NC+4 THEN NC+1 THEN NC+3 THEN NC+42 THEN NC45
NOW ""NC"

IS UPDRTED

BY "IC" AND THE ABOVE SEQUENCE IS REPEARTED UNITL "LC" IS
EXCEEDED 8Y ANY OF THE RBOVE VALUES
THE INITIAL VALUE OF “NC"
IS "FC"
AT THE COMPLETION OF EACH SEEK COMMAND THE
PROPER INDICRTORS RRE EXAMINED TO ENSURE PROPER OPERRTION
THE FOLLOWING PARAMETERS ARE USED BY THE TEST

StQ 0020

TEST 7

&£

—

B
T
T
T

30A(1052)

2
27-JUL-78

09 24

PRGE 25

O0—~FfOO0OO—

MACY11

R
FC
LC
FC’
LC’
1C
FY
FS

TEST

RPOY4/5/6 MECHANICAL AND RERD/WRITE
P11
27-JUL-78 09 18

CZRJAC
CZRJARC

- RANOOM SEEK TEST

THIS TEST PERFORMS RANDOM SEEK OPERATIONS BETWEEN CYLINDERS 'FC'
'LC’
RAFTER EACH SEEK, THE POSITION OF THE DRIVE IS VERIFIED BY
READING A SECTOR FROM THE CURRENTLY RDDRESSED CYLINDER AND TRACK
THE TRACK ADORESS IS INCREMENTED FOR ERACH SEEK SO THART VERIFICATION
OF POSITIONING OCCURS USING ERCH HERD
TRACK RDORESSES ARE INCREMENTED
BETWEEN PARRMTERS 'FT' AND LT’
THE FOLLOWING PARAMETERS ARE USED BY THE TEST
R
FC

LC’
FT
LY

FC’

TEST

10 -

5000
0

410

814
0
18

SERVO SETTLE

DOWN TEST

THIS TEST VE~IFIES THAT THE SERVO HAS SETTLED DOWN AND THRT
THE DRIVE IS ON CYLINDER WHEN THE DRIVE INDICRTES SEEK COMPLETE
RANDOM SEEKS ARE ISSUED BETMEEN CYLINDERS 'NC1°' AND 'NC1+IC’
('NC1° STRARTS AT VALUE ‘FC').
AT THE COMPLETION OF 1000 (10) SEEKS,

"NC1' 1S INCREMENTED BY VALUE 'IC' AND THE SEQUENCE IS REPEATED
THE TEST IS COMPLETED WHEN 'NC1' HRS BEEN INCREMENTED BEYOND 'LC'

WHEN THC Siéc.” COMPLETES, THE PROGRAM RERDS THE DRIVE'S LOOK-RHERD
REGISTER (RPLh TO DETERMINE THE RDORESS OF THE SECTOR ROTATING
INTO
POSITION
THE 'ROGRAM THEN ISSUES R wWRITE HERDER AND DATA COMMAND
FOR THRT SECTOR.
IF THE DRIVE'S POSITIONER HAS NOT SETTLED DOWN OR
IF THE POSITIONER 1S NOT ON CYLINDER (IF THE DRIVE IS AN RPOM, THE

OFF CYLINDER CONDI "ION MUST LAST FOR AT LEAST 800 US),
WILL REPORT A ‘WRU

ERROR.

(RPOS5/6°'S MAY ALSO REPORT

THE DRIVE

°"NHS' ERROR UNDER

ERRORS IN THIS TEST INDICATE THRT THE SERVO SYSTEM MAY NOT BE RADJUSTED
CORRECTLY, THAT THE DRIVE IS MALFUNCTIONING, OR THAT A PCRK WITH
MARGINAL SERVO TRACKS IS MOUNTED ON THE DRIVE.
THIS TEST USES THE EXTENTION BITS

IN THE LOOK-RHERD REGISTER TO DETERMINE

WHETHER OR NOT IT CRN PICK UP THE SECTOR ROTRTING INTO POSITION
THE
TEST IS OPTIMIZED SUCH THAT IF THE DRIVE SIGNALS SEEK DONE WITHIN
THE FIRST 80X OF THE SEZTOR CURRENTLY UNDER THE HERD, THE TEST WILL
TRY TO ADDRESS THE NEXT SECTOR.
BRSED ON OBSERVATION, THE PROGRAM
‘lraclI%L'E‘ETO START THE OPERATION WITHOUT LOSING A REVOLUTION MOST OF
INE.

SEQ 0021

CZRJAC RPO4/5/6 MECHANICAL AND READ/WRITE
CZRJRC P11
27-JUL-78 09 18

TEST

MACY11

30A(1052)

2
27-JUL-78

09 24

PRGE

THIS TEST IS VALID ONLY IF THE OPERATION IS STARTED WITHIN R FEMN
HUNORED MICRO-SECONDS AFTER SEEK DONE OCCURS
THE NECESSARY TIME
DEPENDENT PRARAMETERS OCCUR WITHIN THE REQUIRED TIME RANGE FREQUENTLY
ENOUGH TO PERMIT THIS TEST TO BE EFFECTIVE
THE FOLLOWING PRARAMETERS ARE USED BY THE TEST
R
FC
LC
FC'
LC
1C

FY
TeST 11

i
0
410
0
814
100

- RALL SEEKS TEST

THIS TEST VERIFIES THAT THE DISK DRIVE
TO ALL OTHER CYLINDERS.

CAN SEEK FROM EPCH CYLINDER

BEGINNING WITH CYLINDER ‘FC', THE TEST SEEKS TO ERCH CYLINDER
BETHEEN 'FC' AND 'LC' FROM CYINDER 'FC'
THE BEGINNING CYL INDER
RODRESS IS INCREMENTED AND THE TEST SEEKS BETWEEN THE NEW CYL INDER
RDDRESS AND RLL CYLINDERS BETHEEN ‘FC' AND 'LC'
THE SEQUENCE
CONTINUES UNTIL ALL CYLINDERS HAVE BEEN CHECKED

00—~ £f000—

I
T
T
O

TEST 12 - ROTATIONAL SPEED TIMING TEST

THIS TEST WILL STRART A SERARCH TO CYLINDER O, TRACK O, SECTOR
0.
RS SOON AS THE INTERRUPT OCCURS, THE GO BIT IS SET RGRIN
AND THE OPERATION IS TIMED.
THIS PROCEDURE IS REPEATED 10
TIMES THEN THE RVERAGE TIME IS CALCULATED AND CHECKED TO
ENSURE T IS WITHIN TOLERANCE:
16 67 NS/REV + OR - 2% IF 60H2
16 67 MS/REV + OR - 2 5% IF S0HZ

o000
—

R
FC
FC'
FT
FS

THE FOLLOWING PRARAMETERS ARE USED BY THE TEST

[

9 11

IC
FT
FS

R
FC
LC
FC'
LC'

THE FOLLOWING PRRAMETERS ARE USED BY THIS TEST

SEQ 0022

CZRIAC RPO4/5/6 MECHANICRL RNO RERD/WRITE
CZRJAC P11
27-JUuL-78 09 18

9 12

TEST

MACY11

30A(1052)

2
27-JuL-78

09.24

PRGE 27

13 - ONE CYLINOER SEEK TIMING TEST

THIS TEST WILL COMMAND FORMWARD SEEK CYCLES TO ROVANCE THE
CYLINDER BY ONE UNTIL THE INCREMENT IS RREATER THAN THE
CYLINDER ‘LC', THEN REVERSE SEEK TO CYLINDER 'FC'.
THE
TINE TO PERFORM ERCH SEEK IS CHECKED TO ENSURE IT DOES NOT
EXCEED THE MAXIMUM TIME PERMITTED FOR A ONE CYL INDER SEEK
THE TIME MUST BE LESS THAN 10MS
THE TEST USES THE FOLLOWING PRRAMETERS
R
FC
LC
FC'
Lc
TEST

14 -

1
0
410

0
814

RCCESS TIME MEASUREMENT

THIS TEST WILL COMMAND R FORMARD SErK FROM CYLINDER O TO
CYLINDER 'LC’, THEN R REVERSEK FROM CYLINDER 'LC' TO
CYLINDER O
BOTH SEEKS ARE TIMED AMD "HECKED TO ENSURE THEY
ARE WITHIN THE TOLERANCE RLLOWED FOR TH: ACCESS TIME MERSURMENT
THIS SEQUENCE IS REPERTED 128 TIMES (FOR A TOTAL
OF 256 SEEKS).
THE RVERRGE ACCESS TIHME MUST BE LESS THAN 30 MS
E(Y)k|mE=Pl;ltc. DEFAULTS TO 136 (10) FOR AN RPO4/5 OR TO 255 (10)
THE TEST USES THE FOLLOWING PRARAMETERS
R
FC
LC
FC'
Lc

9 14

TEST

1
0
136
o
255

16 - HMAXIHMUM SEEK TIMING TEST

THIS TEST WILL COMMRNO R FORWARD SEEK FROM CYLINDER O TO

CYLINDER 'LC', THEN R REVERSE SEEK FROM CYLINDER 'LC' TO
CYLINDER O.
BOTH SEEKS ARE TIMED AND CHECKED TO ENSURE
THEY ARE WITHIN THE TOLERANCE ALLOWED FOR THE MAXIMUM SEEK
TIME.
THIS SEQUENCE IS REPEATED 128 TIMES (FOR
A TOTAL OF 256 SEEKS).
THE MAXIMUM SEEK TIME MUST BE LESS IKAN
?Mkflg."os'lgC' DEFAULTS TO 410 (10) FOR RPO4/5'S AND TO 814 (10)
0

'S.

THE TEST USES THE FOLLOW!NG PRRAMETERS
R

FC
LC
FC'
L’
TEST

0
410
0
814

16 ~ SECTOR ADORESSING TEST

StQ 0023

CZRIRC RPO4/S/6 MECHANICAL AND RERD/WRITE
CZRJIAC P11
27-JUL-78 09. 18

TEST

MACY11

30R(1052)

2
27-JuL-78

09 24

PAGE 28

THIS TEST WRITES DATR INTO RALL SECTORS OF TRACK “FT"
THE
DATR WILL BE 256 WORDS OF THE SECTOR RDORESS OF THE SECTOR
BEING MRITTEN.
R WRITE CHECK 1S PERFORMED, THE BUFFER IS

CLERRED (TO 177400) ANO THE DRATA IS RERD AND COMPARED.
IS REMRITTEN AND SECTORS O - 21 RRE WRITE CHECKED.

THEN

THEN SECTOR O

SECTOR 1 IS REWRITTEN AND SECTORS O - 21 ARE WRITE CHECKED
THIS REMRITE ANO WRITE CHECK PROCEDURE 1S CONTINUED UP THROUGH
REWRITE SECTOR 21 AND WRITE CHCCK SECTORS 0-21.
THE TEST USES THE FOLLOWING PARAMETERS

TEST

17 -

000

R
FC
FC'
FY
TRACK RDDRESSING

THIS TEST WILL WRITE DATA

TEST

IN THE FORM OF TRACK RODRESSES

IN CYLINDER "“FC" SECTOR “FS" OF EVERY TRACK WITH EACH TRACK
GETTING ITS OMN TRRCK RDORESS.
R WRITE CHECK IS THEN PERFORMED ON ERCH TRACK TO INSURE
THE DATR IS VALID.
THEN TRACK O IS REWRITTEN AND TRACK 1
THROUGH TRACK 18 IS WRITE CHECKED
THEN TRACK 1 IS
REWR ITTEN AND TRACK 2 THROUGH TRACK 18 IS WRITE CHECKED
THIS PROCEDURE IS CONTINUED UP THROUGH REWRITING TRACK 17

TEST 20 - DATA TEST
THIS TEST PERFORMS DRTRA STORAGE AND RETRIEVAL ON CYL INDERS

“FC" THROUGH "LC" BY THE INCREMENT "IC" USING THE DATA PATTERNS
SPECIFIED. THE FOLLOWING SEQUENCE OCCURS FOR ERCH CYLINDER.
SET "NTTM TO "FT" THEN REPEAT 2-4 UNTIL "NT" ) "LT"
WRITE THEN MRITE CHECK “FS" THROUGH "LS" OF TRACK "NT"
RERD THEN SOFTHARE COMPARE "FS" THROUGH "LS" OF TRACK "NT"
INCREMENT “NT” BY "IT"
REPEAT STEPS 1-4 FOR EACH DATA PATTERN
REPERT STEPS 1-5 FOR "FC" THROUGH "LC" ROVANCING BY "I(C"

CNEFELUN-

9.17

FOLLOWING PRRAMETERS
000

R
FC
FC’
FS

THE
T

TEST USES

THE

CHECKING TRACK 18.

AND WRITE

IF R WRITE CHECK ERROR OCCURS THE ERROR IS REPORTED AND
THE TRACK IN ERROR IS REWRITTEN AND CHECKED. THIS CHECK IS
ACCOMPL ISHED BY PERFORMING TWO(2) SUCCESSIVE ERROR FREE
WRITE CHECKS. IF THE CHECK FRILS THE ERROR IS REPORTED RS
FATAL AND NO RERD OCCURS.
FS DEFAULTS TO § AND LS DEFRULTS T0 O
PRT DEFAULTS TO 177777 (ALL POSSIBLE PATTERNS)
THE POSSIBLE PRTTERNS RRE.

StQ 0024

CZRJRC RPO4/5/6 MECHANICAL

CZRJAC P11

AND RERD/MRITE

27-JUL-78 09 18

TEST

MACY11

30R(1052)

000000
000000
000000
177777
177777

O0CO000
010421
021042
031463
OM2108

165555
133333
1655556
133333
165556

000001
000003
000007
000017
000037

177776
1277?74
177770
177760
177740

133333
165555
133333

133333
1655556
133333
1655565
133333
165555
133333
165555

16£.55
133333
165656
133333

000077
000177
000377
000777
001777
003777
0077?27
017777

052525
052525
052525
125252
125262

125252
052525
052525
125252
125252
062525
125252
052525
125252
052525
125252

170360
007417
007417
170360
170360
007417
170360
007417
170360
007417
170360

000000
1777?77
177777
177777

177777
177777
177777
177777
177777
177777

177777
000000
000000
000000
000000
000000
000000
000000
000000
000000

177777
177777
177777
177777
177777

000000
000000
000000
000000
000000

140000
100000
000000

000001
000002
000008
000010

177776
177775
177773
177767

077777
137777
157777
167777

173777
176777
176777
177377
177577
177677

153333
066667
153333
066667
153333
066667
153333
066667
153333
066667

177757
177767
177773
1727775
177776

066667
153333
066667
153333
066667

000020
000080
000100
000200
000%00
1000

1777%7
177737
177677
177577
177377
176777

133333
165665
133333
165566
133333

008000
010000
020000
080000
100000

173777
1677?77
1577?77
137777
077?777

185555
172666
1856856
172666
158585

2000

1757?77

172666

177737

153333

THE TEST USES THE FOLLOWING PARRMETERS:
R
FC

LC
FC'
LC’

1
0

i1C

410
0
814
64

0
177277

7
FS

LS
PRT

9 18

PRGE

026455
026455
026455
151322
151322

037777
077777
177777

156735
167356
1777?77

09.24

007417
007%17
007417
170360
170360

1777?77
000000
000000
177777
177777
000000
177777
000000
177777
000000
177777

165566
133333
165556
133333
165666
133333

165566

27-JUL-78

177700
177600
177400
177000
176000
174000
170000
160000

172666
1558555
172666
155555
172666
155568
172666
185555
172666
155665

052525
063146
073567
104210
114631
125252
135673
146314

0
1
1

TEST 21 - RANDOM RDDRESS AND RANDOM PATTERN TEST

1777277

151322
026455
026455
151322
151322
026455
151322
026455
151322
026455
151322

000000

StEQ 0025

(ZRIAC RPOY/S/6 MECHAMICAL AND REAC/WRITE
CZRJIRC. P11
27-JuL-78 09.18

TEST

MACY11

30A(1052)

2
27-JuL-78

09 24

PAGE 30

STARTING AT "FC" AND GOING THROUGH "LC"TM TKE DISK PARCK

NN—

GENERATE A RANDOM ROORESS
WRITE R RANDOM PATTERN AT THE ROORESS
GENERATED IN 1.
GENERRTE R RANOOM ADORESS
REARD THE SECTOR AT THE RODRESS

GENERRTED IN 3.
DO R SOFTWARE CHECK OF THE DATR READ IN Y4
DO A WRITE CHECK OF THE DATR WRITTEN IN 2
GENERATE R RANDOM ROORRESS
READ THE SECTOR AT THE RDORESS

~—

ONOWN
- -t - -

IS WRITTEN WITH A RANOOM PATTERN. THE FIRST TWO WORDS
Of ERCH SECTOR WILL BE THE BASE OF THE RANDOM GENERATOR
FOR THAT SECTOR.
THE TEST THEN PERFORMS THE FOLLOWING SEQUENCE "RTM TIMES
"R" DEFAULTS TO 20, 000.

GENERRTED IN 7.
DO R SOFTWARE CHECK OF THE DATR REARD
DO A WRITE CHECK OF

THE DATA WRITTEN

IN 8
IN 2

THE TEST USES THE FOLLOWING PARARMETERS
R
FC

LC
FC'
Lc
TEST 22 -

20000
0

410
0
814

RPOM RACCESS TIME ROJUSTHMENT

TEST

THIS TEST PERFORMS SEEKS BETWEEN CYL INDERS O & 136 TO ALLOW THE
OPERATOR TO RDJUST THE RCCESS TIME On AN RPOM USING THE
DOU.
THE PROGRAM STRALLS RFOROXIMATEL’ 5 SECONDS BETWEEN SEEKS
SO THAT THE ACCESS TINC INDICATORS ON THE DOU MAY BE OBSERVED
THE TEST USES THE FOLLOWING PRRAMETERS
R
FC
LC
FC'

PROGRAM L ISTING

5000
0
136
0

255

SEQ 0026

(ZRJIAC RPOU/5/6 MECHANICAL ANO READ/WRITE
CZRJIAC P11
27-Ju-78 09 18

MACY11

30A(1052)

27-JuL-78

09 24

PRGE 31

TITLE
CZRJAC RPOM/5/6 MECHANICAL AND RERD/WRITE
- 3COPYRIGHT (C) 1976.1978
+3DIGITAL EQUIPMENT CORP
- SMAYNARD, MRSS. 01754
.
.:PROGRM BY C
HESS

SEQ 0027

TEST

:!THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MRINDEC SYSMAC
- SPRCKAGE

(MAINDEC-11-D2QRC-C3),

;

0
1
0
1
0
1
0

HZ
RUN WATCHDOG TIMER
INHIBIT WATCHDOG TIMER
TEST DRIVE(S) IN 22 SECTOR
TEST DRIVE(S) IN 20 SECTOR

[

OPERATIONAL SHITCH SETTINGS

.SBTTL

TRAP CRTCHER

(16 BIT)
(18 BIT)

MODE
MODE

SHITCH
O=NWEFNONODWOVOWEWM

)

BTTL

STALL RFTER EVERY DRIVE FUNCTION
USE SPECIFIC STALL TINME
USE RANDOM STALL
INCREMENTING STALL IN TEST &
INCREMENTING STALL IN TEST 4
IMPLIED SEEKS WITH DATA TRANSFERS
EXPLICIT SEEKS BEFORE DATA TRANS/ERS
"RERAD HERDER AND DATA" IN TESTS O-11
'E")Z(PU(IT SEEKS IN TESTS 0O-11

WRITE PRCK BEFORE TESTING (TEST 21)
INHIBIT WRITING PRCK BEFORE TESTING (TEST 21)
NO STALL BETWEEN DRIVE FUNCTIONS

BE88838%

X
X

N X

;
;
;
;
;
;
,

STATE

SHITCH

LA X

1977

CONTROL SWITCH SETTINGS

X _X_J

SBTTL

JAN 19,

nnnunnnunnnnnnnnnm

1429
1430
1431
1432
1433
1434

1426
1427
1428

TEST

HALT ON ERROR

LOOP ON TEST
INHIBIT ERROR TYPEOUTS
BELL ON ERROR
LOOP ON ERROR
PRINT ERROR MESSAGE ON LINE PRINTER
READ CONTROL SWITCH SETTINGS FROM TTY
INHIBIT TIME REPORTS (TESTS 12-15)
REPORT ONE ERROR PER SECTOR (TESTS 16 & 17)
INHIBIT WRITES (TEST 15)
INHIBIT WRITE CHECKS (TEST 20)
INHIBIT RERD AND SOF THRRE COMPARES (TEST 20)
INHIBIT SOF TWARE COMPRRES (TEST 20)
PERFORM RERD RFTER WRITE CHECK ERROR (TEST 20)

CZRJIAC RPOU/S/6 MECHANICRL AND READ/WRITE TEST
MACY11
CZRJRC P11
27-JuL-78 09: 18
TRAP CATCHER

000174
000000
000000

SWREG.

SBTTL

000052

WORD

., SOFTWARE SWITCH REGISTER

HOOKS

=§SVPC

SBTIL

000200

000137

004636

00020%

000137

004660

000210

000137

004626

000214

000137

004650

,.1)SET LOC 46 TO ADDRESS OF SENDAD IN SEOP
O

,.2)SET LOC 52 TO ZERO
"

“RESTORE PC

STARTING AODRESSES

,$200 = NORMAL START

JNP
MSTARTY
, 3204 = SELECT OPERATING PRRAMETERS
JMP
WSTART2Z
, 2210 = SELECT RM11/RP0Y4/5/6 ADDRESSES
JNP
JNSTART3
, 8214 = COMBINRTION OF 204 AND 210
JHP

SBTTL

SRSTARTY

BRSIC DEFINITIONS

+XINITIAL RDDRESS OF
STACK=
1100
.EQUIV
ENT,ERROR

. EQUIV

177774
177772
177570
177570

ACT11

iiggno

000200

000011
000012
000015
000200
177776

PAGE 32

PR 3202000000020 000000 830030000 0202000000000000200000000000
0000844
-HOOKS REQUIRED BY A(T11
SSVPC=
, SAVE PC

000200
000046
017616
000052
000000
000200

001100

WORD

10T, SCOPt

THE STACK POINTER

xxx

1100 xxx

..BRSIC DEFINITION OF ERROR CALL
.»BRSIC DEFINITION OF SCOPE CALL

- XMISCELLANEOQUS DEF INITIONS
HT=
i1
.., CODE FOR HORI|ZONTAL TR8
LF=
12
;. CODE FOR LINE FEED
(R=
15
.. CODE FOR CARRIRGE RETURN

CRLF=
PS=

.EQUIV

STKLMT=
PIRQ=
DSHR=
DDISP=

200
177776

,»CODE FOR CRARRIRGE RETURN-LINE FEED
.. PROCESSOR STATUS WORD

177774
177772
177570
177570

+»STRCK LIMIT REGISTER
»» PROGRAM INTERRUPT REQUEST REGISTER
»» HARDWARE SWITCH REGISTER
;» HARDWARE DISPLRY REGISTER

PS,PSK

; SGENERAL PURPOSE REGISTER DEF INITIONS
EaNN—-O

000046

09 24

» BSEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
;BSLOCATION O CONTRINS O TO CATCH IMPROPERLY LORDED VECTORS
e)
R
DISPREG: . WORD
O
;; SOFTWARE DISPLAY REGISTER

NN
N NN

000174
000176

3
27-JUL-78

. =0
;3ALL UNUSED LOCRTIONS FROM 4 - 776 CONTAIN A " 42, HALT"

EWNN=O

1505
1506
15607
1508
1509
1510
1511
15612
1513
1514
1515
1516
1617
1518
1519
1520
1521
1522
1623
1524
1525
1526
1527
1528
1529
15630
1531
1532
1633
1534
1535

000000

70
0 DD

1480
1481
1482
1483
1484
14895
1486
1487
1488
1489
1490
1491
1492
1493
1494
1495
1496
1497
1498
1499
1500
1501
1502
1503
1504

30A(1052)

- GENERRL REGISTER
»» GENERAL REGISTER
. GENERAL REGISTER
. GENERAL REGISTER
. GENERRL REG!STER

StQ 0028

CZRJIAC RPO4/S/6 MECHANICAL AND READ/URITE TEST
MACY11 30A(1052)
CZRJIAC P11
27-JL-78 09 18
BRSIC DEF INITIONS
1536
1537
1538
1539
1540
1541
1542
1543
1544
1545
1546
1647
1548
1549
1550
1551
1652
1553
1554
1555
1556
155?
1558
1559
1560
1561
1562
1563
1564
1565
1566
1567
1568
1569
1570
15671
1572
1573
1674
1675
1576

3
27-JuUL-78

09 24

000005
000006
000007
000006
000007

R6=
R6=

%5
%6

;. GENERRAL REGISTER
., GENERAL REGISTER

SP=
PC=

%6
%7

., STRCK POINTER
;. PROGRAM COUNTER

000000
000040
000100
000140
000200
000240
000300
000340

PRO=

;oPRIORITY LEVEL O

PR?7=

340

,+PRIORITY LEVEL ?

100000
040000
020000
010000
004000
002000
001000
000400
000200
000100
000040

000020
000010
000004
000002
000001

R?7=

PAGE 33

SEQ 0029

;. GENERAL REGISTER

+EPRIORITY LEVEL DEFINITIONS

PR1=
PR2=
PR3=
PRY=
PRG=
PRE=

40
100
140
200
240
300

;. PRIORITY
;.PRIORITY
;.PRIORITY
,,PRIORITY
;,PRIORITY
. PRIORITY

LEVEL
LEVEL
LEVEL
LEVEL
LEVEL
LEVEL

1
2
3
W&
5
b

;X"SHITCH REGISTER” SHITCH DEF INITIONS
SU16=
100000
SWiY=

SH13=

SWH12=

40000

20000

10000

SW11=
SW10=

4000
2000

SWO8=

400

SHO6SW05=
SHOu=
SWO3=

100
40
20
10

SWO09=
SWO?7=

SWO02=

1000

200

SW01=
2
SW00=
1
.EQUIV
SH09.SW9
EQUIV
SHO8. SUS
€QUIV
SWO7,SW?
.EQUIV
SHO6. SKé
SHWOS5, SKS
EQUIV
EQUIV
SHOu., SHY
EQUIV
SHO3. SW3
EQUIV
SWO02,SW2
gEQuUIV SWO1. SU1
SWO0O0. SWO
EQUIV
,XDATR BIT DEFINITIONS
BITi5=
100000
BI1Ti4=
40000
8IT13=
20000
10000
8ITi12=
BITi1=
4000
BITi10=
2000
1000
gi1709=
B1708=
400
200
BI1T07?=
81T06=
100
B81T0S=
40

(BITOO TO BIT1S)

CZRIAC RPOU/S/6 MECHANICAL AND READ/WRITE TEST
MACY11 30A(1052)
CZRJAC P11
27-JW.-78 09 18
BRSIC DEFINITIONS

1592
1693
159%4
1595
1596
1597
1598
1599
1600
1601
1602
1603
1604
1605
1606
1607
1608
1609
1610
1611

1612
1613
1614
1615
1616
1617
1618
1619
1620
1621
1622
1623
1624
1625
1626
1627
1628
1629
1630
1631
1632
1633
1634
1635
1636
1637
1638
1639
1640
1641
1642
1643
1644
1645
1646

1647

000020
000010
000004
000002
000001

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

BI1TO=

BITO2=

817T03=

BIT01=
BITOO=
EQUIV
EQUIV
.EQUiIV
gEQUIV
EQUIV
.EQUIV
EQUiv
EQUIV
EQUIV
EQUIV

.. "TRAP" TRAP

60
64

.. TTY KEYBOARD VECTOR
.. TTY PRINTER VECTOR

,»PROGRAM

RH11

REGISTERS

2030002800 00000000000003000200022022800228222222200200002000204]

»,CONTROL RND STRTUS REGISTER

020000
040000

INTERRUPT REQUEST VECTOR

00330000002 000000000000009000930300202830220322292829222022202001

SBTTL

000100
000200
000400
001000
002000

IE=
ROY=
A16=
A17=
PSEL=
MCPE=
TRE=
;SC=

100
200
400
1000
2000
20000
40000
100000

(RPCS1)

- INTERRUPT ENRBLE (BIT #6)
RERDY (BIT &47)
+HIGH ORDER BUS ROORESS BIT (BIT #8)
+-HIGH ORDER BUS RDORESS BIT (BIT %9
.PORT SELECT (BIT #10)
»MASSBUSS PARITY ERROR (BIT #13)
- TRANSFER ERROR (BIT #14)
+SPECIRL CONDITION (BIT #15)

»HORD COUNT REGISTER (RPWC)
,(ERCH BIT IS CALLED BY BIT NUMBER)
»BUS RDDRESS REGISTER (RPBA)
. (ERCH BIT IS CALLED BY BIT NUMBER)

000001
000002

PAGE 34

TRAP VECTOR RDDRESSES
,.TIME OUT AND OTHER ERRORS
,.RESERVED AND ILLEGRL INSTRUCTIONS
LT BIT
.. TRACE TRAP
.. BREAKPOINT TRAP (BPT)
, . INPUTZ0UTPUT TRAP (10T) XxxSCOPEXX
.. POMER FRAIL
., EMULATOR TRAP (EMT) XXERRORXX

PIRQVEC=240

09 24

2
1
BIT09.B1IT9
BIT08.BITS
BIT0?.BIT?
BITOe.BITE
BITODS.BITS
BITON.BITY
BIT03.BIT3
BIT02.81T2
BITO1.BITH
BIT00.BITO

TRRPVE(C=34

27-JUL-78

,XBRSIC "CPU"
ERRVEC= 4
RESVEC= 10
TBITVEC=14
TRTVEC= 1IN
BPTVEC= 1M
IOTVEC= 20
PURVEC= 24
EMTVEC= 30
TKVEC=
TPVEC=

» CONTROL RAND STATUS REGISTER 2

(RP(CS2)

USi=
us2=

+JUNIT SELECT
+UNIT SELECT

1
2

SEQ 0030

CZRJIRC Kk04/5/6 MECHANICAL AND RERD/WRITE TEST
MACY11 30A(1052)
CZRJIRC P11
27-JUL-78 09 18
RH11 REGISTERS

1648
1649
1650
1651
1652
1653
1654
1655
1656
1657
1658
1659
1660
}22;

CO0004
000010

000040
000100
000200
000400
001000
002000
004000
010000
020000
040000
100000

1663
1664

USys=
BRI=
PAT=
(LR=
IR=
OR=
HPE=
MXF =
PGE =
NEM-=
NED=
UPE=
WCE=
OLT=

}2?3

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

SBTTL

RPO4/5/6 REGISTERS

}2;3

»CONTROL AND STATUS 1

000001

000002
000004
000010
000020
000040
004000

l:gs

1686
1687
1688
1689
1690
1691
1692
1693
1694
1695
1696
1697

1698
1699
1;80
1701

1702

1703

330000000000000000080000800000002080223030000022000000807000000%0%4

GO=

Fi=
F2=
F3=
Fy=
F&=
DVR=

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

020000
040000
100000

.0F5=
OFF20=
DIGB=
GRV=
OLe4=
DE1=
Vys=
DRY=
DPR=
PGN=
LST=
HRL=
HOL=

PiP=
ERR=
RTA=

2
4
10
20
40
4000

1
2
&
10
20
40
100
200
400
1000
2000
4000
10000

20000
40000
100000

,ERROR REGISTER #01

(#00)

.GO BIT (BIT #0)

+FUNCTION CODE BIT #1
FUNCTION CODE BIT &2
+FUNCTION CODE BIT #3
+FUNCTION CODE BIT &Y%
+FUNCTION CODE BIT &5
.DEVICE AVAILABLE (BIT #11)

.DRIVE STATUS REGISTER

1685

PRGE 35

300000022000700000080:0000080000309000000000000000000200000280¢%4

09 24

+UNIT SELECT (BIT #2)
,BUS ADORESS INCREMENT INHIBIT (BIT &3)
-MASSBUS PARITY TEST (BIT &4)
.CLEAR (BIT &5)
; INPUT REROY (BIT #6)
.OUTPUT RERDY (BIT &7)
;MASS BUS PARITY ERROR (BIT #8)
+MISSED TRANSFER ERROR (BIT #9)
;PROGRAM ERROR (BIT #10)
+NON EXISTENT MEMORY (BIT #11)
+NON EXISTENT DRIVE (BIT #12)
~UNIBUS PARITY ERROR (BIT #13)
HRITE CHECK ERROR (BIT #14)
.DATR LATE (BIT #15)

1:;12

1676
1677
1678
1679
1680
lg;

27-JUuL-78

-DATA BUFFER REGISER (RPDB)
, (ERCH BIT IS CALLED BY BIT NUMBER)

1665
1666
lgzg
1

1675

(RPDS1)

(#01)

DRIVE FORWARD 5"/SEC

(BIT #0)
.DRIVE FORWARD 20"/SEC
(BIT #1)
,DRIVE TO INNER GUARD BAND (BIT %2)
. GO REVERSE (BIT #3)
+DIFFERENCE LESS THAN 64 (BIT #4)
~DIFFERENCE EQUALS 1 (BIT #5)
+VOLUMe VALID (BIT #6)
,DRIVE RERDY (BIT #7)
+DRIVE PRESENT (BIT #8)
-PROGRAMABLE (BIT #9)
»LAST SECTOR TRANSFERRED (BIT #10)
SHRITE LOCK (BIT #11)
+MEDIUM ON-LINE (BIT #12)

+POSITIONING OPERATION IN PROGRESS (BIT #13)
,COMPOSITE ERROR (BIT #14)
+ATTENTION ACTIVE (BIT %15)
(RPER1) (#02)

SEQ 001

CZRIAC RPO4/5/6 MECHANICRL AND READ/WRITE TEST
MACY11 30R(1052)
27-Jw.-78 09 18
CZRJIAC P11
RPO4/5/6 REGISTERS

1704
1705
1706
1707
1708
1709
1710
1711
1712
1713
1714
1715
1716
1717
1718
1719
1720
1721
1722
1723
1724
1725
1726
1727
1728
1729
1730
1731
1732
1732
1734
1735
1736
1737
1738
1739
1740
1741
1742
1743
1744
1745
1746
1747
1748
1749
1750
1761
1752
1753

1754
1755

1756
1757
1758
1759

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

iLF=
ILR=
RMR=
PAR=
FER=
WCF =
ECH=
HCE =
HCRC=
AOE =
IRE =
WLE=
OTE=
OPi=
UNS=
DCK=

000002
000004
000010
000020
000040
000200

DMD=
HCLK=

MINX=
HSTCK=
MRD=
MWR=

0TSY=

3
27-JUL-78

1
2
)
10
20
40
100
200
400
1000
2000
4000
10000
20000
40000
100000

ATO0=

AT1=
AT2=
AT 3=
ATY=
RTS=
AT6=

RT?7=

1
2
4
10
20
40
200

JHAINTRINRBILITY INDEX (BIT #2)
MAINTAINRBILITY SECTOR CLOCK (BIT
. VRINTAINRBILITY RERD (BIT &%)
JMAINTAINRBILITY WRITE (BIT #5)

+MRINTARINRBILITY SYNC DETECTED

(RPAS)

LDEVICE
+DEVICE
DEVICE
+DEVICE
+DEVICE
.DEVICE

200

000001
000002

000010
000020
000100
000200

004000
020000
100000

0T00=
0T01=

1
2
3
4
5
6

(#04)

(BIT
(BIT
(BIT
(BIT
(BIT
(BIT

#1)
#2)
#3)
#Y4)
#5)
#6)

,OEVICE 7 (BIT #7)

(RPDT)

(RPDR)

(#05)

(#06)

DT02=

1
2

.DRIVE TYPE NUMBER BIT 1
,ORIVE TYPE NUHBER BIT 2

oTO4=
0T05=
0T06=
0T07=
0T08=
DRQ=
MOH=
TAP=
N8R=

20
40
100
200
400
4000
20000

+ORIVE*TYPE NUMBER BIT 5
.ORIVE TYPE NUMBER BIT 6
+ORIVE TYPE NUMBER BIT 7
.ORIVE TYPE NUMBER BIT 8
.DORIVE TYPE NUMBER BIT 9
.DRIVE REQUEST REQUIRED (BIT &t 1)
»HOVING HERD (BIT #13)
.TAPE DRIVE (BIT &14)
+NOT BLOCK RODRESSED (BIT #15)

0T03=

40000
100000

,ORINETYPE NUMBER BIT 3

,DRIVS\TYPE NUMBER BIT u

#3)

(BIT #7)

+DEVICE O (BIT #0)

2
4
10
20
40
100

TYPE REGISTER

StQ 0032

DIRGINOSTIC
MODE (BIT &#0)
+MAINTRINABILITY CLOCK (BIT #1)

,DESIRED SECTOR/TRACK RDDRESS REGISTER
» (ERCH BIT IS CALLED BY BIT NUMBER)
,DRIVE

PRGE 36

(RPHR)(R03)

+ATTENTION SUMMARY PSEUDO-REGISTER
000001
000002
000004
000010
000020
000040
000100
000200

09 24

. ILLEGAL FUNCTION (BIT IO)
,ILLEGAL REGISTER (BIT #1
,REGISTER MOOIF ICATION
REFUSED (BIT 82)
.PARITY ERROR (BIT #3)
,FORMAT ERROR (BIT #4)
JHRITE CLOCK FAIL (BIT 85)
LECC HARD ERROR (BIT #6)
. HERDER COMPARE ERROR (BIT #7)
~HERDER CRC ERROR (BIT #8)
. ADORESS OVERFLOW ERROR (BIT #9)
» INVAL
ID RDORESS ERROR (BIT #10)
HRITE LOCK ERROR (BIT #11)
DRIVE TIMNING ERROR (BIT #12)
. OPERRTION INCOMPLETE (BIT #13)
.DRIVE UNSRFE (BIT 814)
.DATR CHECK ERROR (BIT 15)

+MAINTRINRBILITY REGISTER

000001

1788
1789
1790
1791
1792
1793
1794

1795
1796
1797
1798
1799
1800
1801
1802
1803
1804
1805

1806
1807
1808
1809
1810
1811
1812
1813
1814
1815

000001
000002
000004
000010
000020

000040
000100
000200
000400
001000
002000
004000
010000
020000
100000

. TRACK FIELD 5

=
G
IR
RN

) e =4 —4 =4

Give
IS G
EEe

(BIT
(BIT
(BIT
(elT

N E NN
=

40000
100000

(BI7 #6)

-t

10000
20000

L lelelaelalak
R § X X 5.4
MEWND—-O

4000

2000

GEe

halnalnal--1--1--1-.1--1-.}

400
1000

#7)
#8)

#9)
#10)

)
)
)
)

+RPOM ERROR REGISTER #2Z (RPER2)

(#10)

WCU=
(SF=
WSU=
CSU=
MSE=
=
TDfF
TUF=
FEN=
WRU=
MHS=
NHS=
IXE=
vU30=
PLU=
ACU=

+HRITE CURRENT UNSRFE (BIT 80)
»CURRENT SINK FRILURE (BIT #1)
+HRITE SELECT UNSRFE (BIT #2)
- CURRENT SWITCH UNSRFE (BIT &3)
~HOTOR SEQUENCE ERROR (BIT #4)
-TRANSITIONS DETECTOR FRILURE (BIT #5)
- TRANSITIONS UNSRFE (BIT #6)
.FRILSRAFE ENABLED (BIT #7)
+HRITE RERDY UNSRFE (BIT #8)
~-HULTIPLE HERD SELECT (BIT #9)
~NO HERD SELECTION (BIT #10)
. INDEX ERROR (BIT #11)
. 30VOLT UNSRFE (BIT #12)
+PLO UNSRFE (BIT #13)
+RC UNSAFE (BIT #15)

400
1000
2000
4000
10000

20000
100000

RP05/6 ERROR

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

- EXTENSI
. SECTOR COUNT
;SECTOR COUNT
» SECTOR COUNT
» SECTOR COUNT F
»SECTOR COUNT F
. TRACK FIELD 1
. TRACK FIELD 2
. TRRCK FIELD 3
TRACK FIELD 4

TRK4=
TRK10=
TRK20=

-—— e

001000
002000
004000
010000
020000
040000
100000

GEn

0000M0
000100
000200

StQ 0033

(#07)

000010
000020

EXT1=
EXT2=
EXTY=
EXT10=
EXT20=
EXT40=
SC1=
SC2=
. SCu=
SC10=
SC20=
TRKi=
TRK2=

(RPLR)

PARGE 37

0D M (W) [V 1) W) o

000001
000002
000004

09 24

S, S, SR,

-LOOK-RHERD REGISTER

27-JuL-78

P, fEn,

1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
17277
1778
1779
1780
1781
1782
1783
1784
1785
1786
1787

0D 0D GO T

CZRJAC RPO4/S/6 MECHANICAL AND RERD/MRITE TEST
MACY11 30A(1052)
CZRJAC P11
27-JUL-78 09 18
RPO4/5/6 REGISTERS

(RPER2Z)

+HRITE CURRENT UNSAFE (BIT #0)
- CURRENT SINK FRILURE (BIT #1)
+HRITE SELECT UNSRFE (BIT #2)
- CURRENT SWITCH UNSRFE (BIT #3)
+RERD AND WRITE (BIT &Y4)

WCU=

CSF=

usu=

(SU=
RAW=
T0F=
=
TUF
RBS=
WRU=
MHS=
NHS=
IXE=
PLU=

(#10)

- TRANSITIONS DETECTOR FRILURE (BIT #5)
- TRANS
I TIONS UNSRFE (8 IT 86)
-ABNORMAL STOP (BIT L 14 #7)
+WRITE RERDY UNSRFE (8 IT #8)
HUTLTIPLE HEAD SEL ECT (BiT O9)
»NO HERD SELECTION (8! T #10
. INDEX ERROR (BIT & 11)
+PLO UNSARFE (BIT #1 2)

400
1000

2000

4000

20000

. OFFSET REGISTER

(RPOF) (#11)

CZRJIAC RPO4/5/6 MECHANICAL AND READ/WRITE TEST
MACY11 30R(1052)
CZRJAC P11
27-JUL-78 09 18
RPO4/5/6 REGISTERS

1816
1817
1818
1819
1820
1821
1822
1823
1824
1825
1826
1827
1828
1829
1830
1831
1832
1833
1834
1835
1836
1837
1838
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

000001
000002
000004
000010
000020
000040
000200
002200
004000
010000

OF25=
OF50=
OF100=
0fF200=
OF400=
Of 800=
OFREV=
HCI=
ECI=

FNT22=

27-JuUL-78

1
2
&
10
20
40
200
2000
4000

09 24

PAGE 38

SEQ 0034

,OFFSET 25 MICRO INCHES (BIT 80)
L,OFFSET 50 MICRO INCHES (BIT #1)
,OFFSET 100 MICRO INCHES (BIT #2)
.OFFSET 200 MICRO INCHES (BIT &3)
.OFFSET 400 MICRO INCHES (BIT #Y)
.OFFSET 800 MICRO INCHES (BIT #5)
,OFFSET NEGATIVE (REVERSE) (BIT #5)
,HERDER COMPRARE INHIBIT (BIT #10)
+ERROR CORRECTION CODE INHIBIT (BIT #11)

10000

;FORMAT BIT

(BIT #12

.DESIRED CYLINDER RODRESS (RPCR) (#12)
. (ERCH BIT IS CALLED BY BIT NUMBER)
~CURRENT CYLINDER RDDRESS (RPCC) (#13)
»(ERCH BIT IS CRLLED BY BIT NUMBER)
»SERIAL NUMBER REGISTER (RPSN) (&1k)
. (ERCH IS CALLED BY BIT NUMBER)
+RPOY ERROR REGISTER #03 (RPER3)
000001
000002
000010
000040
000100
040000
100000

PSU=
VUF =
UWR=
ACL=
OCL=
SKi=
oCyL=

i
2
10
40
100
40000
100000

+PRACK SPEED UNSRFE (BIT #0)
+VELOCITY UNSAFE (BIT #1)
- ANY UNSAFE EXCEPT READ/HRITE
+RC LOW (BIT #5)
.DC LOW (BIT #6)
» SEEK INCOMPLETE (BIT #14)
+OFF CYLINDER (BIT #15)

;RP0O5/6 ERROR REGISTER #03
000001
000002
000040
000100
020000
040000
100000

DCU=

HWRO=
ACL=
OCL=

OPE=
SKi=
oCyL=

(RPER3)

(BIT #0)

HRITE AND OFFSET (BIT #1)
+AC LOW (BIT #5)
.DC LOW (BIT #6)

20000
40000
100000

;ECC POSITION REGISTER

(BIT #3)

(#15)

»DC UNSRFE

2
40
100

,(ERCH BIT

(#15)

. OPERATOR PLUG ERROR (BIT #13)
;SEEK INCOMPLETE (BIT #1u4)
+OFF CYLINDER ERROR (BIT #15)

(RPEC1)

(#16)

IS CALLED BY 81T NUMBER)

;ECC PATTERN REGISTER (RPEC2) (8#17)
»(ERCH BIT IS CALLED BY BIT NUMBER)
PR
000101
000103
000105
000107
000111
000113
000115

3300000200022 00000028000 0300020020 03209000002020022920000822320089

. OP CODE DEF INITIONS
NOOP=101
UNLORD=103
SEEK=105
RECAL=107
ORVCLR=111
RELEASE=113
OFFSET=115

[

CZRJAC

RPOY4/S/6 MECHANICAL

CZRJIAC P11

1872
1873
1874
1875
1876
1877
1878
1879
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890

AND READ/MRITE TEST
MACY11 30R(1052)
RPO4/5/6 REGISTERS
27-JUL-78 09 18

000117
000121
000123
000131
000151
000153
000161
000163
000171
000173
000141
000143
000145

27-JUL-78

09 24

PRGE

RTC=117
READIN=121
PRCK=123
SEARCH=131
WRCKD=151
WRCKHO=153
WRITE=161
WRTHD=163
RERD=171
READHD=173
GETREG=141
SETFORM=143

SELDRV=145

- OTHER EQURTES
177400

010000

SCTRHC = -256
FMT22=10000

+WORD COUNT FOR SECTOR
.FORMAT 22 BIT

StQ 0035

CZRJIARC RPO4/S/6 MECHANICAL AND READ/WRITE TEST
MACY11
27-JUL-78 09 18
CZRJAC P11
COMMON TRGS

1891
1892

SBTTL

3
27-JUL-78

09 24

PAGE 40

SEQ 003e

COMMON TAGS

PR3
2300083000800 080800:0800000000020000000000920803002202202202820¢%4
+ZTHIS TRABLE CONTAINS VARIOUS COMMON STORAGE LOCRTIONS
»BSUSED IN THE PROGRAM.

. WORD
. WORD
. WORD
. BYTE
. BYTE
. WORD
SGDRDR: . WORD
SBDADR: . WORD
SGODAT: . WORD
$BDDAT: . WORD
. WORD
. HORD
SAUTO8- . BYTE
$INTRG: . BYTE
. WORD
SHR.
. WORD
DISPLAY: . WORD

$TKS.

177560

$TPS:

177564

STKB:

STPB:
SNULL:
$FILLS:
SFILLC:
STPFLG:

SREGAD:

o
o

-t

177566
. BYTE
. BYTE
. BYTE
. BYTE
. WORD

000012

000015

.. CONTRINS RDORESS OF 'BRD'
.. CONTAINS 'GOOD' DRATA
.. CONTRINS ‘BRO' DATA
.. RESERVED--NOT TO BE USED
.. AUTOMATIC MODE
.. INTERRUPT MODE

DRTA

INDICATOR
INOICRTOR

., ADDRESS OF SWITCH REGISTER

.. ADDRESS OF DISPLAY REGISTER
.. YTY KBD STARTUS
.. TTY KBO BUFFER
.. TTY PRINTER STRTUS REG AROORESS
.. TTY PRINTER BUFFER REG RODRESS
. CONTRINS NULL CHARRCTER FOR FILLS
;. CONTRAINS & OF FILLER CHARRCTERS REQUIRED
.+ INSERT FILL CHARS. AFTER R "LINE FEED"
.. "TERMINAL AVAILRBLE" FLAG (BIT<07>=0=YES)
. CONTAINS THE RDORESS FROM
. WHICH
(SREGO) WRS OBTARINED
. CONTRINS ((SREGRD)+0)
»» CONTRINS ((SREGRD)+2)
»» CONTRINS ((SREGRD)+4)
.. CONTRINS ((SREGRD)+6)

. WORD
SREGO:
SREG1:
. WORD
SREG2:
. WORD
SREG3:
. WORD
.. CONTRINS ((SREGRD)+10)
SREGY:
. WORD
. CONTRINS ((SREGRD)+12)
. WORD
SREGS:
.
USER DEF INED
. WORD
STMPO:
.. USER DEF INED
STMP1:
. WORD
. USER DEF INED
STMP2:
. WORD
.
MRAX. NUMBER OF ITERATIONS
STIMES: O
;. ESCAPE ON ERROR RDDRESS
SESCAPE: 0
<207)(377)(3?7) ., CODE FOR BELL
$BELL:
.RSCIZ
//
;- QUEST
ION MARK
. ASCII
SQUES:
(15)
. CARR 1AGE RETURN
. ASCII
SCRLF:
12)
.. LINE FEED
.RASCI2
SLF:
PR 2323000000323 00000020¢0083002000000
202002020002 2220200008229224%3
15
(R
OO00000000

b
b
gub

ol gubh gub gubh gud g

000377

001214

177562

COMMON TRGS
PRSS COUNT
THE TEST NUMBER
ERROR FLRG
SUBTEST ITERATION COUNT
SCOPE LOOP RODRESS
SCOPE RETURN FOR ERRORS
TOTAL ERRORS DETECTED
ITEM CONTROL BYTE

.. CONTAINS MAX. ERRORS PER TEST
»» CONTRINS PC OF LAST ERROR INSTRUCTION
. CONTRINS RODORESS OF 'GOOD’' DATA

. WORD

.. START OF
. CONTRINS
. CONTRINS
»» CONTRINS
»» CONTRINS
.»CONTAINS
. CONTRINS
. CONTAINS
;. CONTRINS

onmn
wv

. WORD
. BYTE
. BYTE

o0 0000000000~ 00000000

=1100

SCHTRG.
SPRSS.
STSTNMSERFLG:
SICNT.
SLPADR:
SLPERR:
SERTTL:
SITEM8:
SERMAX:
SERRPC:

0O00=-MNO

001100

1946

30RA(1052)

CZRJRC RPO4/5/6 MECHANICAL RAND RERD/WRITE

CZRIAC. P11
147

1948
1949
1950
1951
1952

1953
1954
1955
}2(7:

001220
001222
001224
001226
001230

001232
00123%
001240
001244

27-JUL-78 09 18
000012

MACY11

C SWR:
SAVCSHW:
CNTRLC:
BUSADR:
LPTRVL:

_WORD
. WORD
.WORD
. WORD
.WORD

O
O
O
O
O

TICKNS:
TICKUS:
BYPRSS:
CHKDRV:
DRVHSK:
SVUSTAT:

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

16
16666
O
O
O
O

CYL.RD:
TRK.RD:
SEC.RO:
CYL.DS:
SEC DS:
TRK DS:
TINUP:

.WORD
.WORD
.WORD
.WORD
.WORY
.WORD
_WORD
.HORD
WORD
.WORD
.HORD
WORD
_WORD
.WORD
WORD
.WORD
.WORD
.HORD
_WORD
.WORD
.WORD
. WORD
. WORD

O
O
O
O
O
O
O
O
O
O

COMMON TRGS
LF

000000
000000
000000
000000
000000

037777
000000
000000

TEST

000000
000000

DRVSEL:
TSTNMS:
OPNFLGCLKSTR:

.WORD
. WORD
.WORD
.WORD

30R(1052)

3
27-JUL-78

O
37777.0
0.0
O

09 24

PRAGE 41

+CONTROL SHWITCHES
+PREVIOUS CONTENTS OF 'C SWR'
; CONTROL "C" FLARG
;GET ROORESSES FROM THE TTY FLAG (0=NO,
;LPT RVAILABLE STATUS (0=NO,1=YES)
+DRIVES SELECTED FOR TESTING
;RUN TESTS 0-15
;HODIFY TEST PARRMETER FLAGS
’ CLOCK STATUS (0=NO CLOCK, +1=KW11-P,
ANO -1=KWi1-L)
16 MILLISECONDS PER CLOCK TICK
’ 16666 MIRCOSECONDS PER CLOCK TICK

SEQ 0037

-1=YES)

’

1958
1959
1960
1961
1962
}?’:3

001246
001250
001252
00125%
00125
001260

1965
1966
1967
1968
1969
1970
1971
1972
1973
1974

001262
0011264
GUi1266
001270
001272
00127«
001276
001300
001302
001308
001306
001312
001318
001316
001320
001322
001324
001330
001332
00133%
001336
0013%0
0013z

1976
1976
1977
1978
1979
1960
1981
1962
1983
196¢
1985
1986
1967
1988
1989
1990
1991
1992
1993
1994

000020
OM0432

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

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

0016
001350
001352
001354
001356
001360
001362
001 364

:;;;

001365

000

1999
2000
2001
2002

001366
001370
001374

176700
000254
000104

000000
TINDN

0000G0

000000

TIHPT:
WCEFLG:
STALLO:
SVAROR
SEKTMR:

SEXCNT:
DELTR:
TRCKWC.
STALL1:
STALL2:
STALL3:
MXSTAL:
ERR.CT:

144

.HORD
.WORD
. WORD
.WORD
. WORD
. WORD
. WORD
. BYTE

.8YTE

000240
000106

0.0
O
O
O
O
O
0.0
O
O
O
O
0.0
O
O
O
-<(256 %22 )
10
10
5000.
25

100

. ADDRESSES AND VECTORS
RH ROR: . WORD
176700
RHVEC:
. WORD
254,5%32
PKV
.WORD
104,106

’

;ORIVE UNDER TEST
;DRIVE MRSK BIT
;STATUS/ERROR INDICATOR IS
;SAVED HERE ON AN ERROR
; CYLINDER RERD
; TRRCK REARD
;SECTOR RERD
;CYLINDER DESIRED
,SECTOR DESIRED
; TRACK DESIRED
SJMININUM TIME
LIMT
+NUMBER OF COUNTS BELOKW MIN
SMAXIMUM TIME
;NUMBER OF COUNTS RBOVE MRX
LimT
;TOTAL TIME OF RLL SEEKS
.NUMBER OF SEEKS PERFORMED
SMINIMUN TIME
;NUMBER OF COUNTS BELOW MIN
LIMIT
JHAXIMUN TIME
;NUMBER OF COUNTS RBOVE MAX
LIy
;TOTAL TIME OF ALL SEEKS
;NUMBER OF SEEKS PERFORMED
;POINTS TO TRBLE OF TINMES
;FATAL WRITE CHECK ERROR FLAG (TEST 20)
;VARIABLE STALL (TEST W)
.SAVE DISK ADDRESS (TEST 22)
,SEEK TIMER
(TEST 10)
;SEEK COUNTER
;TESTING RANGE FOR SERVO SETTLE DOWN TEST
;HORD COUNT FOR R FULL TRRCK IN 16 BIT MODE
;10 MILLISECONDS STALL (TEST 0-11)
;10 MILLISECONDS STRALL (TEST 16-21)
;5 SEC STALL (TEST 22)
+HRX
INCREMENTING STALL ALLOWED IN TEST 4
+NUMBER OF ERRORS ALLOWED IN TESTS 16 - 21
;BEFORE GOING TO THE NEXT TEST
-RESERVED
+RH11-RH?0 UNIBUS RODRESS
+RH11-RH?70 VECTOR ADORESS ANO PRIORITY
+KW11-P VECTOR RDDRESS

MACY11
CZRJIAC RPO4/5/6 MECHANICRL AND READ/WRITE TEST
CZRIAC . P11
27-JW.-78 09- 18
COMMON TAGS

001400
001402
001404
001406
001412
001414
001416
001420
001422
001424
001426
001430
001432
00143M
001436
001440
001442
001444
001446
001450
001452

172540
172542
172544

000100
177546
177564
177566
177514
177516

000001
000002
000004
000010
000020
000040
000100
000200
000400
001000

. HWORD

LKV.

. WORD

LKS

TPS
TPB.
LPS
LPB

172542
172544

. HORD

177546

.B1T TRBLE

BITS

100.102
177564
177566
177514
177516

. WORD
.HWORD
.HORD
WORD

BITOO
BIT01
BIT02
BITA3

.WORD
.HORD
.HORD
.HORD
.HORD
.HORD
.HORD
.WORD
WORD
.HWORD
.HORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.HORD
.HORD

BITOS
BITO6
BITO?
BITO8
BIT09
BIT10
BIT11
BIT12
BIT13
BIT1Y
BIT15
81700
B8ITO1
BI1702
BIT03
BITOY
BITOS
BITO6
B'T0O7

.HORD

27-JUL-78

172540

. WORD
. HORD
. HORD
.HORD
.HORD
HORD

09 24

PRGE 42

001510
001512
00151%
001616

001622
00162%
001626
001532
001634
002330
002344
002372

SEQ 0038

;KH11-P CONTROL AND STRTUS REG
;KWH11-P COUNT SET BUFFER
;KH11-P COUNTER
;KH11-L VECTOR RDORESS
;KR11-L STATUS REGISTER
- TTY PRINTER STRTUS
;TTY PRINTER BUFFER
;LINE PRINTER STATUS
-LINE PRINTER BUFFER

BITO4

. COMMON STORAGE FOR TEST PARAMETER
PRM:
.WORD
O
-REPERT COUNTS FOR ALL
RPT:
.HORD
O
+FIRST CYL INDER
FC
.WORD
O
~LAST CYL INDER
LC
.WORD
O
» INCREMENT CYL INDER
IC
.WORD
O
. FIRST TRRACK
FY
.HWORD
O
+LAST TRACK
LY
.HORD
O
» INCREMENT TRACK
IT
WORD
O
+FIRST SECTOR
FS
.HWORD
O
+LAST SECTOR
LS
.HORD
0
.PATTERN CODE
PAT.WORD
O
+NEW CYLIMOER RDORESS
NCt
WORD
O
+NEH CYLINDER RODDRESS
NC2
.WORD
O

00150

001536
001540
001542

000102

PK(CS:

PKB
PKC

30R(1052)

,TRBLE OF PRARRMETER POINTERS
PRMNPT.
. WORD
PRMO
.WORD
PRMI
. WORD
PRM2

TESTS

E%:jgg gz?N/5/6 MECHANICAL

AND RERD/WRITE TEST
MACY11
27-JW.-78 09 18
COMMON TAGS

2059

001544

001546
001550
001552

001554
001556
001560
001562
001564
001566
001570
001572
00157
001576
001600
001602
00160%
001606
001610
001612

2082

002414
002436
002460
002502
002524
002544

032767
000632
000632
001456
001456

. WORD
.WORD
. HORD
.WORD
. WORD
. HORD
. HORD
. WORD
.HORD
. WORD
. WHORD
. WORD
. WORD
. HORD
. WORD
HORD
.MORD
. PARAMETER

PRMLMT.

30R8(1052)

PRM3
PRMM
PRMS
PRM6
PRN?
PRMIO
PRN1Y
PRM12
PRM13
PRM1Y
PRM15
PRN16
PRM1?7
PRM20
PRN21
PRM22
O

UPPER LIMIT

. WORD
.WORD
.WORD
.HORD
. WORD
.WORD
WORD
.HORD
WORD
WORD
.HWORD
. WORD

32767
410
410
814
B1Y4
81u.
18
1B
18
2%
2%
177777

27-JUL-78

09 24

PRGE 43

SEQ 0039

. TERMINATOR
,

l.Rll

S FCT
’ I.L("
RO

LULet

ST
AN
SULTY
ST
,'FS"
’ ..LS.'
, "PAT"

. TRABLE OF MESSAGE POINTERS
PRMMSG: . WORD
NMSG.
R
.HORD
MSG. FC
, - WORD MSG. LC
. HORD
MSGF(CP
".WMORD
NMSGLCP
.HORD
MSG. IC
.WORD
MSG.FT
.WORD
MSG.LT

R
b-1
4
RN
2

b gub
qub
o

D g

283388888

.WORD
.WORD
.WORD

MSG. IT
MSG. FS
MSG. LS

;STATUS/ERROR IND!ICATOR MESSRGES POINTEK TRBLE
.DEFAULT VALUES OF TEST PRARAMETERS
1125,200 . 410 ., 814 ,0.0 ,RECAL/SEEK (TQO)
OFLT.
WORD
WORD

3377,100 ,0,128 ,0,256 .0.0,0.0.0 ., SEEK/SEEK

WORD

1177,1.0,410 . 0. 814 ., 1.0, . INCREMENT SEEK

(T1)

(T2)

2115
2116
2117
2118
2119
2120
2121
2122
2123
212%
2125
2126
2127
2128
2129
2130
2131
2132
2133
21%
2135
2136
2137
2138
2139

001750
001756
001764
001772
002000
002006
00201%
002022
002030
002036
002088
002052
002060
002066
0020
002100
002106
002118
002120
002126
0021
3m
002182
002180
0021686
00216A

2182
2183

002206
002218

2140
2141

002172
002200

001177
000800
000001
001177
000632
000001
001177
000632
(000001
001177
000632
000001
000337
000632
000OKO
000177
000632
0001%%
001177
000632

18
1

TEST

MACY11

COMMON TAGS

000400

30R(1052)

4
27-JUL-78

09 24

PRAGE 4y

SEQ OO0

WORD

1177,10.0.256 .0.256 .1.0.0 .STEPPING SEEK (T3)

000001

(000000

WORD

1177.1.0.410.,0.81% ,1,0.0 ,OSCILLATING SEEK (T4)

000001
000000

000000
001456
000000
000000

WORD

1177.1,0.410.,0.81% ,1,0.0 . CONVERGING/DIVERGING SEEK (T5)

WORD

1177.1.0.410. .0.81% .,1,0.0 ,SERVO RDORESSING LOGIC NOISE (T6)

GGOUOO
000000

HORD

337.500Q ,0.410 .0.814 ,0.18

,RANDOM SEEK TEST (T7)

000000

WORD

177.1,0.410 .0.814 ,100 .0

,SERVO SETTLE DOWN TEST (T10)

000000

WORD

1177.1.0.%410..0.814 .1.0.0

,ALL SEEKS TEST (T11)

000000

HORD

1113.1.0.0.0.0

000000

WORD

37.1.0.410..0. 814

»,ONE CYLINDER SEEK TIMING TEST (T13)

000000

WORD

37.1.0.136. .0, 255

-ACCESS TIME MERSURMENT TEST (T1W)

000000

WORD

37.1.0.410..0. 814

+MRAXIMUM SEEK TIMING TEST (T15)

000000

WORD

113.1,0.0.0

»SECTOR RDDRESSING TEST (T16)
. TRACK RDDRESSING TEST (T17)

000001
(©OO00O0
QO0ONCT
S11610
000000
000022
000001

000000

001113
000700
000037
000632
000037
000210
000037

000632

RERD/WRITE

i£ =
-5

CZRIAC RPOY/S/6 MECHANIC
CZRIRC. P11
27-JWL.-78

,ROTRTIONAL SPEED TIMING TEST (T12)

2188
2186
21%
2147
2148
2149
2150
2151
2162
2153
215

002222
002230
002238
002242
002246
002264
002262
002270
002276
002300
002306

000113
000000
001013
000000
007777
000632
000100
00000f
177777
000037
000632

000001
0O0O000
000001
000000
000001
000000
000000
000001

000000

WORD

i013.1.0.0.0

000000
001456
000022
000000

WORD

7777.1.0.410 .0.814% ,64 .0.18 ,1,1,0,177777 ,0RTA TEST (T20)

047040
000000

000000
001456

WORD

37.2000Q0 .0.410 .0, 814

,EXERCISER

%}g;

002322

000210

000000

000377

WORD

37.5000 .0.136 ,0,255

,RPO4 ACCESS TIME RADJUSTMENT TEST (T22)

2166

002314

000037

2158
2161
2162
2163
2168
2166

002330
002332
00233
002336
00230

002342

000000

2168
2169
2170

0023v4
002346

003377
000144

%}:;

000000

,PRRAMETER TABLES

2159

2160

011610

001125
000310
000632
001456
000000

;RECAL/SEEK (TO)

PRMO:

.WORD
. WORD
WORD
HORD
.HORD

.WORD

1125
200
410
814
O

, SEEK/SEEK (T1)
3377
WORD
PRM1.
100
HORD

(T21)

2219

000632
000000
001456

&
27-JuUL-78

09 24

. HORD
. HORD
WORD
WORD
. WORD

. STEPP ING SEEK
PRM3
. WORD
. HORD
. HORD
. HORD
. HORD
. HORD
. HORD
HORD
WORD

002414
002416
002420
002422
002424
002426
002430
002432
00243
002436
002440
002442
002v4Yy
002446
002450
002452
002454
002456

» INCREMENT SEEK
PRN2
. HORD
. HORD
. HORD
HORD

001177
000001
000000
000632
000000
001456
000001
000000
000000
001177
000001
000000
000632

2222
2223

000000
001456
000001
000000
000000

2225
2226

001177

»OSCILLRTING SEEK (T4)
PRMY:
WORD
1177
. WORD
1
. HORD
0
410
. HORD
. HORD
0
. WORD
814
. WORD
1
. HORD
0
WORD
0

. CONVERGING/DIVERGING SEEK
PRMS
. HORD
1177
. HORD
. WORD
. HORD
. HORD

WORD
. HORD
. WORD
. WORD

2217
2218

001177
000001

-t

2214
2215

002372
002374
002376
002400
002402
00240M
002406
002410
002412

. WORD
. WORD
. HORD
. HORD
. WORD
. WORD
. HORD
WORD
. WORD

2212

000000
000200
000000

—

2197
2198
2199

002350
002352
002354
002356
002360
002362
002364
002366
002370

OO £

2171
2172
2173
2174
217%
2176
2177
2178
2179
2180
2181
2182
2183
2184
2185
2186
2187
2188
2189
2190
2191
2192
2193
21%
2195
2196

30R(1052)

QOOOOQO—Q
N

CZRJIAC RPO4/5/6 MECHANICAL AND REARD/MURITE TEST
MACY11
CZRJAC. P11
27-JUL-78 09 18
COMMON TAGS

(T5)

, SERVO RDDRESSING LOGIC NOISE GENERATOR (T6)

PRM6

HORD

1177

PRAGE 45

SEQ 0041

CZRJAC RPO%/5/6 MECHANICAL AND RERD/URITE TEST MACY11
CZRIAC. P11
27-JUL.-78 09 18
COMMON TRGS

30A(1052)

2227
2228
2229
2230
2231
2232
2233
%%g‘ts

002508
002506
002510
002512
002518
002516
002520
002522

000001
000000
000632
000000
001456
000001
000000
000000

.WORD
.HWORD
.HORD
.HORD
.HORD
WORD
.HWORD
.WORD

2236
2237

002524

000337

. RANOON SEEK TEST (T?)
PRM?7
.HORD
337

2238
2239
2220
22v1
2242
2243
%Zz:g

002526
002530
002532
00253%
002536
002540
002542

011610
000000
000632
000000
001456
000000
000022

002544
002546
002550
002552
00255%
002556
002560
002562

000177
000001
000000
000632
000000
001456
000144
000000

PRMIO

002564
002566
002570
002572
00257«
002576
002600
002602
002604

001177
000001
000000
000632
000000
001456
000001
000000
000000

PRM11

001113
00G001
000000
000000
000000
000300

PRM12

2270
2271
2272
g;s

002606
002610
002612
002614
002616
002620

227%
2276
2277
2278
2279
2280
2281

002622
002624
002626
002630
002632
002634

000037
000001
000000
000632
000000
001456

2246

2247
2248
2249
2250
2251
2252
2253
gzzgus

2256

2257
2258
2259
2260
2261
2262
2263
2264
%%

2267
2268

2269

. WORD
HORD
.HORD
.WORD
WORD
HORD
.HORD

M
27-JuL-78

1
O
410
O
814
1
O
O

5000
O
410
O
814
O
18

»SERVO SETTLE DOWN TEST (T10)
. WORD
.HWORD
.WORD
WORD
.HWORD
HORD
.HWORD
.HORD

177
1
O
410
O
B1Y.
100.
O

,ALL SEEKS TEST (T11)
. WORD
. WORD
WORD
. WORD
HORD
.HORD
.HORD
HORD
HORD

1177
1
O
410
O
814
1
O
O

~ROTATIONAL SPEED TIMING TEST (T12)
WORD
1113
.HWORC

WORD
.HORD
WORD
.WORD

O
O
O
O

+ONE CYLINDER SEEK TIMING TEST (T13)
PRM13
HORD
37
.WORD
1
HORD
O
WORD
410
.WORD
O
.WORD
81y

09 24

PAGE 46

SEQ 0042

—

C(ZRJIAC RPOM/5/6 MECHANICAL AND READ/WRITE TEST
MACY11
(ZRJAC P11
27-JUL-78 09 18
COMMON TARGS

30A(1052)

4
27-JUL-78

+RCCESS TIME MERSURMENT TEST
PRMI4
_WORD
3?7
WORD
1

002644
002646
002650

000037
000001
000000
000210
000000
000377

002652
002654
002656
002660
002662
002664

000037
000001
000000
000632
000000
001456

+MAXIMUN SEEK TIMING TEST
PRMIS
. WORD
37
WORD
1
.WORD
O
HORD
410
.HORD
O
WORD
814

002666
002670
002672
002674
002676

000113
000001
000000
000000
000000

, SECTOR RDDRESSING TEST (T16)
PRM1®
WORD
113
WORD
1§
.HORD
O
.HORD
O
.HORD
O

002636
002640

002642

002700
002702
002704
002706
002710

001013
000001
000000
000000

002712
002714
002716
002720

007777
000001
000000
000632
000000

002722
002724

001456
000100
000000
000022
000001
000001
000000

000037
047040

000037
011610

WORD

HORD
.HORD
HORD
.WORD

(T14)

O
136
O
255

» TRACK RODRESSING TEST

PRH1?7

000000

1772727

002760
002762

WORD
.HORD
.WORD
WORD

09 24

1013

(T15)

(T17)

1
O
O
O

.DATA TEST (T20)
PRM20
. WORD
7777
. WORD
1

HORD
WORD
WORD
HORD
. WORD

HORD
.WORD
.HORD

PTRN1S

.WORD
.HORD
. WORD

O
410
O
814
bY4

O
18
1

1
O
177777

;EXERCISER (T21)
PRM21.
.WORD
37
. WORD
20000
.WORD
O
.WORD
410
.WORD
O
. WORD
814
~RPOY ACCESS TIME RDJUSTMENT TEST
PRM2Z2:
. WORD
37
. WORD
5000

(T722)

PRGE 47

SEQ 0043

CZRJAC RPO4/S/6 MECHANICAL AND RERD/WRITE TEST
MACY11
CZRJRC P11
27-JUL-78 09 18
COMMON TAGS

2339
2340
2341
N2
2343
2344
2345
2346
2347
2348
2349
2350
2351
2352
2153

00276M4
002766
002770
002772

000000
000210
000000
000377

. HORD
WORD
WORD
HORD

,SEEK

30A(1052)

27-JuL-78

09 24

PAGE 48

0
136
0
255

TIMING LIMITS

002774
002776
003000
003002

043422
000000
003142
003244

T?R

. WORD
HORD
HORD
WORD

MSG?7
0
1634
1700

003004
003006
003010
003012

043422
000000
003131
003255

178

WORD
WORD
HORD
HORD

MSG?
0
1625
1709

003014
003016

04 3454
043523
000000
001750

T10

WORD
HORD
HORD
HORD

MSG10R
MSG108
0
1000

04 3540
04 3606
000000
01257y

HORD
WORD
HORD
HORD

MSG11R
MSG118
0

5500

+NO LOWER LIMIT
, (28B+42)%%2

043623
04 3665
000000
01257y

T12

HORD
WORD
HORD
HORD

MSG12R
MSG128
0
5500

+NO LOWER LIMIT
. (50+42)%%2

003104
003144
003204
001244
003304
0033u4

PAT PT

. WORD
WORD
. WORD
HORD
. HORD
. WORD
. WORD
WORD
WORD
WORD
HORD
WORD
HORD
HORD
WORD
WORD

PATO
PAT1
PAT2
PAT3
PATY
PATS
PATH
PRT?
PRAT8
PATY
PAT10
PAT11
PAT12
PAT13
PAT1Y
PAT15

003022

003404
003444
003504
003544
003604
003644
003704
003744
004004
00404y

~NO LOWER LIMIT
, (743) %122

- TRBLE OF POINTERS WHICH POINT TO THE
.PATTERNS USED BY THE DARTR TEST

PRTTERNS O THRU 15

165555
133333
165555

PATO

HORD
WORD
WORD

165555
133333
165555

+PATTERN O

SEQ 004y

MACY11
CZRJIAC RPOU/5/6 MECHANICAL AND READ/HRITE TEST
CZRJIAC P11
27-JUuL-78 09 18
COMMON TARGS

239%

003112
003114
003116
003120
003122
003124
003126
003130
003132
003134
003136
003140
003142

133333
165555
133333
165555
133333
165555
133333
165555
133333
165555
133333
165555
133333

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
0077?77
017777

PAT1

003204
003206
003210

177776
177774
177770
177760
177740
177700
177600
177400
177000
176000

4
27-JuL-78

09 24

WORD
. HORD
. WORD
HORD
WORD
. HORD
HORD
WORD

133333
165555
133333
165555
133333
165555
133333
165555
133333
165555
131333
165555
133333

HORD
HORD
HORD
HORD
HORD
. WORD
WORD
HORD

+PRTTERN 1

HORD
WORD
WORD
. HORD
HWORD
. HORD
WORD

000001
000003
000007
000017
000037
000077
000177
000377
000777
001777
003777
007777
017777
Q37777
Q272777
1777277

PAT2

. WORD
WORD
HORD
. HORD
. HORD
HORD
. HORD
. HORD
WORD
. WORD
HORD
. HORD
WORD
. WORD
WORD
WORD

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

,PATTERN 2

PRT3

WORD
WORD
WORD
WORD
WORD
HORD
WORD
WORD

000000
000000
000000
1777277
127227
1777277
000000
000000

+PRTTERN 3

HORD
. WORD
HORD
HORD
HORD

. HORD

037777
0772777
17727727

174000

170000
160000
140000
100000
000000
000000
000000
000000
1727777
127277
17277277
000000
000000

30A(1052)

PAGE 49

SEQ 0045

MACY11
CZRJIAC RPON/5/6 MECHANICRL RANO READ/WRITE TEST
CZRJIRC P11
27-JUL-78 09 18
COMMON TAGS

2452

00326M
003266
003270
003272
003274
003276
003300
003302

17272777

003304
003306
003310
003312
003314
003316
003320
003322
003324
003326
003330
003332
00333
003336
003340
003342

000000
010421
021042
031463
O42104
052525
063146
073567
104210
114631
125252
135673
146314
156735
167356
1727277

00334y
003346

003350
003352
003354
0031356
003360
003362
003364
003366
003370

003372
003374
003376
003400
003402
00340M

003406
003410

1272277
17272777

HORD
. HORD
. HORD
HORD
HORD
HORD

30A(1052)

4
27-JuUL-78

09 24

177272727
122777
000000
177777
000000

HORD

1727777
000000
177777

PRTY

WORD
WORD
. HORD
HORD
WORD
. WORD
WORD
HORD
HORD
HORD
. HORD
WORD
HORD
HORD
HORD
HORD

000000
010421
021042
031463
042104
052525
063146
073567
104210
114631
125252
135673
146314
156735
167356
177777

+PATTERN W

052525
052525
052525
125252
125252
126252
052525
052525
125252
125252
052525
125252
062525
125252
052525
125252

PRTS

. WORD
HORD
. HORD
WORD
. WORD
HORD
WORD
. HORD
WORD
WORD
HORD
WORD
WORD
WORD
WORD
HORD

052525
052525
052525
125252
125252
125252
052525
052525
125252
125252
052525
125252
052525
125252
052525
125252

PRTTERN 5

007417
007417
007417
170360
170360
170360
002417
007417
170360
170360
007417
170360
007417

PRT6

HORD
KORD
HORD
HORD
HORD
HORD
HORD
HORD
HORD

007417
007417
007417
170360
170360
170360
007417
007417
170360
170360
007417
170360

PATTERN &

WORD
WORD
HORD
HORD

007417

PAGE 50

SEQ 0046

CZRJIAC RPOM/S5/6 MECHANICAL RND RERD/WRITE TEST
MACY11
CZRJIRC P11
27-JuL-78 09 18
COMMON TAGS

2507
2508
2509
2510
2511

2512
2513

2514
2515
2516

2517
2518
2519
2520
2521
2522
2523
2524
2525

003436
003440
003442

170360
007417
170360

003w4y
Cu3u46
003450

026455
026455
026455
151322
151322

PRT?

151322

026455
026455
151322

151322
026455
151322
026455
151322
026455
151322
165555
133333
165555
133333
165555
133333
165555

PRTS.

133333

165555

133333

165555
133333
165555
133333
165555
133333

000001
000002
000004

PRTY9

000010
000020
000040

177776

PAT10

30R(1052)

(]
27-JUL-78

09 24

. HORD
. WORD
. HORD

170360
007417
170360

. HORD
. HORD
. HORD
WORD
. WORD
. WORD
. WORD
. HORD
. WOROD
. WORD
. WORD
. WORD
. WORD
. HORD
. HORD
HORD

026455
026455
026455
1561322
151322
151322

. WORD
. HORD
. HORD
. WORD
. WORD
. HORD
. WORD
. WORD
WORD
WORD
HORD
WORD
. HORD
HORD
HORD
WORD

165555
133333
165555
133333
165555
133333
165555

WORD
WORD
. WORD
KWORD
. WORD
HORD
. WORD
WOROD
HORD
. HORD
WORD
. WORD
. HORD
. HORD
. HORD

000001
000002
000004
000010
000020
000040
000100
000200
000400

,PRTTERN 9

. WORD

001000
002000
004000
010000
020000
040000
100000

. WORD

177776

+PRTTERN 10

+PRTTERN ?

026455

026455
151322
151322

026455
151322
026455
151322
026455
151322

,PRTTERN 8

133323
165555
133333
165555
133333
165555
133333
165555
133333

PHGE 51

SEQ 0047

MACY11
CZRJIRC RPO4/5/6 MECHANICAL AND RERD/WRITE TEST
CZRJIAC P11
27-JUL-78 09 18
COMMON TAGS

2563
2564
2565
2566
2567
2568
2569
2570
571
2572
2573

2574
2575
2576
2577

003606
003610
003612
003614
003616
003620
003622

003624

1777275
172773
177767
1727757
12727237
177677
177577
177377
1726277
1725777
1737727
167777
167777
1377277
Q77777

\BNOMNEW

WORD
WOROD
WORD
WORD
WORD
WORD
HORD
HORD
HORD
WORD
HORD
WORD
WORD
HWORD
. HORD

177775
127773
177767
1272757
177737
177677
1727577
177377
176777
175777
173777
167777
162777
137777
Q72777

N
27-JUL-78

09 24

172666
165555
172666
1556555
172666
1565655
172666
155555
172666
1565555
172666
165655
172666
165555
172666
165555

PRT11

. WORD
. WORD
HORD
HORD
. HORD
. WORD
. WORD
. HORD
HORD
. HORD
WORD
. WORD
. WORD
WORD
. HORD
WORD

172666
155565
172666
155555
172666
155565
172666
1565555
172666
155555
172666
155555
172666
155655
172666
155555

,PATTERN 11

077777
137777

PAT12

. HORD
. HORD
. HORD
. HORD
. HORD
. HORD
. HORD
. WORD
. WORD
. WORD
. HORD
. WORD
. HORD
. HORD
. HORD
. HORD

Q7?2277
132777
167777
167777
173277
175777
176777
172377
177577
177677
1727737
177757
177767
172273
172775
177776

.PATTERN 12

PAT13.

. HORD
. WORD
. WORD
. HORD
. HORD
. WORD

153333
066667
163333
066667
153333
066667

+PATTERN 13

1677727

BERRRE EEZEREREE

30A(1052)

167777
173777
175777
176777
177377
177577
177677
1772237
177757
177767
177773
177775
177776

163333

PRGE 52

SEQ O0u8

CZRJIRC RPO4/5/6 MECHANICAL AND RERD/WRITE TEST
MACY11
CZRJIAC P11
27-JUL-78 09 18
COMMON TAGS

163333
066667
153333
066667
153333
066667
163333
066667
153333
066667

004004
004006
004010
004012

000000
1227727
1727277
1277277
17727277
122727
17272277
122727
17277277
177277
1772277
17277277
177777
12727227
1777277
1777277

1727277

003772
00377
003776
004000
004002

004014

4
27-JuUL-78

09 24

. WORD
. HORD
. WORD
. WORD
WORD
. HORD
. WORD
. WORD
WORD
. WORD

163333
066667
1563333
066667
153333
066667
153333
066667
153333
066667

PRT1N:

. WORD
. HORD
. WORD
. HORD
. HORD
. HORD
. HORD
. HORD
. HORD
. WORD
. HORD
. HORD
. HORD
. WORD
. WORD
. WORD

000000
172727
1772727
12727277
17272277
1727777
1722777
177727
1772777
17227277
17227277
122777
177777
17272277
17227227
177777

~PRATTERN 14

PAT15

. WORD
WORD
. WORD

177277
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

+PRTTERN 15

. WORD
. WORD
. HORD

WORD
HORD
. WORD
. WORD
. WORD
WORD
WORD
HORD
WORD
HORD
.,DPB

PRGE 53

SEQ 0049

(DARTA PARAMETER BLOCK)

OPB A:

. BYTE
BYTE
BYTE
.BYTE
. HORD
WORD

®»OOOO0O

003760
003762
003764
003766
003770

) DRIVE NUMBER
) OFFSET VALUE OR FMT22,
) COMMAND
) PSEL AND R1? RAND R16

) WORD COUNT
)

UFFER
’

.BYTE

2619
2620
2621
2622

30A(1052)

,
’

(MUST BE NEG

BUFFER ADORESS OR

GISTER TRBLE POINTER
0) SECTOR RDDRESS OR
RST REG
INDEX

ECI,

)

RND HCI

MACY11
CZRIRC RPOM/5/6 MECHANICAL AND RERD/MRITE TEST
CZRIRC P11
27-JWL-78 09 18
COMMON TAGS

004115

000

BYTE

004116

00%120

000000
004204

HORD
WORD

)
RP REG

004122

000000

WORD

4
27-JUL-78

09 24

PAGE 54

SEQ 0050

1) TRACK ADDRESS OR

ST REG.

INDEX

2) CYLINDER RDORESS
4) ERROR TRBLE POINTER
INTS TO THE FIRST OF TWENTY
CATIONS OF WHERE THE DRIVER
TO STORE THE RH11/RPOY
GISTERS ON RN ERROR. IF LEFT
RO REGISTERS ARE NOT SRVED
6) STATUS/ERROR INOICATOR

}ISS!S)E!ROR OCCURRED

004134

BYTE

004135

BYTE

004142

000000

004 144
004145
004146
004 14?7
004150
004152

. BYTE
BYTE
BYTE

BYTE
HORD

HORD

BUFFER

) DRIVE NUMBER

) OFFSET VALUE OR FMT22,

)
)
)
)

COMMAND
PSEL AND R17 AND R16
WORD COUNT (MUST BE NEG
BUFFER RDDRESS OR

004155

BYTE

WORD
HORD

0
RP REG

ECI,
)

GISTER TRBLE POINTER

BYTE

000000
004 204

TRACK RDDRESS OR

) STATUS/ERROR INDICATOR
156=12)ERROR OCCURRED
07=13)DONE
14-B1T09 AND BITO6-BITO3
ICATE TYPE OF ERROR

004 154

004156
004160

)

ISTERS ON AN ERROR. IF LEFT
O REGISTERS ARE NOT SAVED

HORD

oPB C

)

AND HCI

T REG.
INOEX
) CYL INOER RDORESS
) ERROR TRBLE POINTER
NTS TO THE FIRST OF TWENTY
ATIONS OF WHERE THE DRIVER
TO STORE THE RH11/RPOM

WORD
WORD

000000
004204

PSEL RAND R17 AND R16
) WORD COUNT (MUST BE NEG
) BUFFER RDDRESS OR
GISTER TRBLE POINTER
0) SECTOR RDORESS OR
RST REG. INDEX

ECI.,

O-4=-=—N0VO

004136
004140

BUFFER

DRIVE NUMBER
OFFSET VALUE OR FMT2Z,
COMMAND

N=ENV~—-

004127
004130
004132

BYTE
BYTE
BYTE
BYTE
HORD
WORD

OPB B

10000

004124
004125
004126

10000

T 14-81709 AND BIT06-81T03
NOICATE TYPE OF ERROR

2675
2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689
2690
2691
2692
2693

30R(1052)

SECTOR ADORESS OR

ST REG.

INOEX

INOEX
S T REG.
2 ) CYLINDER RDORESS
M ) ERROR TRBLE POINTER
NTS TO THE FIRST OF THENTY
CATIONS OF WHERE THE ORIVER
TO STORE THE RH11/RPOY
GISTERS ON AN ERROR
IF LEFT

RND HC!

27-JUL-78

0924

PAGE 55

StQ 0051

O REGISTERS ARE NOT SAVED.
) STATUS/ERROR INDICATOR
1 65212)ERROR OCCURRED

0 7x13)DONE
1 4-BITO9 AND BIT06-B1T03
| CRTE TYPE OF ERROR

047714

BYTE
BYTE
.BYTE
BYTE
HORD
. HORD

00417y

000

.BYTE

004175

000

.BYTE

004176
004200

000000
004204

WORD
. HORD

UFFER

DTADPB-

®OOOOO

004164
004165
004166
004167
004170
004172

P REG

AND HCI

HORD

004202

) DRIVE NUMBER
) OFFSET VALUE OR FMT22, ECT.,
) COMAND
) PSEL AND R17 AND A16
) WORD COUNT (MUST BE NEG.)
) BUFFER RDDRESS OR
GISTER TRBLE POINTER
0) SECTOR RDORESS OR
RST REG. INOEX
1) TRACK RDDRESS OR
ST REG. INDEX
2) CYLINDER RDORESS
4) ERROR TRBLE POINTER
INTS TO THE FIRST OF TWENTY
CATIONS OF WHERE THE DRIVER
S TO STORE THE RH11/RPOY4
EGISTERS ON AN ERROR
IF LEFT
ERO REGISTERS ARE NOT SAVED
16) STATUS/ERROR INDICRATOR
T15212)ERROR OCCURRED
T07=1=>DONE
TIM-BIT09 AND B1T06-B1T703
DICATE TYPE OF ERROR

2750
2751
2752
2753

2748
2749

HORD

27?7

000000

»SRVE

000000
000000

RH11/RPOY4 REGISTERS HERE

RP REG.

. WORD
. WORD
. HORD
. WORD
. HORD
. HORD
WORD
WORD
WORD
. HORD
. WORD
. WORD
. WORD
HORD
WORD
HORD
. WORD
WORD
. WORD
WORD

0000000000000 0000000

2738
2739
20
271
22
N3
2744
2745
raal

004162

2731
2732
2733
2734
2735
2736
2737

30R(1052)

"y]

CZRJAC RPO4/5/6 MECHANICAL AND READ/MRITE TEST
MACY11
CZRJIRC. P11
27-JWL-78 09 18
COMMON TAGS

ON ERROR
+RPCS1 (776700) CONTROL & STRTUS #1
+RPHC (776702) WORD COUNT

.RPBR (776704) BUS RDORESS
.RPDR (776706) DESIRED SECTOR/TRACK
+RPCS2 (776710) CONTROL & STATUS #2
.RPDS1 (?276712) DISK STATUS
+RPER1 (77671%) ERROR REG. #1
+RPRS (776716) RTTENTION SUMMARY
+RPLR (?776720) LOOK RHERD
+RPDB (776722) DRTR BUFFER
+RPMR (776724) MAINTRINABILITY
-RPDT (776726) DRIVE TYPE
+RPSN (776730) SERIAL NUMBER
+RPOF (776732) OFFSET
;RPCR (776734) DESIRED CYL INDER
+RPCC (?776736) CURRENT CYL INOER
;RPER2 (776740) ERROR REG 42
;RPER3 (776742) ERROR REG #3
;RPECT1 (?276744) ECC PCSITION
+RPECZ (776746) ECC PRTTERN

CZRJAC RPO4/S5/6 MECHANICAL AND READ/WRITE TEST
MACY11
CZRJAC P11
27-JW.-78 09 18
COMMON TRGS

2787

2788
2789
2790
2791
2792
2793
279%
2795
2796
2797
2798
2799
2800

004254
U04256
004260
004262
00426M
004266
004270
004272
00%27%
004276
004300
004302
004304

04472y
04766
0M5017
045041
OM5067
OM5112
0M5151
0M5213
0845257
0M5127
Ou%_47
045417
045467

30A(1052)

&
27-JUuL-78

; STRTUS/ERROR MESSAGE POINTER TRBLE

STRATBL:

. WORD
.WORD
.WORD
.WORD
.WORD
. WORD
WORD
. WORD
. WORD
. HORD
WORD
WORD
WORD

NSGB1Y
MSGB13
MSGB12
MSGB11
MSGB10
MSGBOY
MSGBOS
MSGBO6
MSGBOS
MSGBOM
MSG803
MSGBOZ
MSGBO1

09 24

PAGE 56

;OFFLINE OR UNSAFE OR|VE REQUESTED
~UNLORD DRIVE REQUESTED
;PERSISTENT UNSAFE
;PARITY ERROR OCCURRED
;FATAL PARITY ERROR
;SOFTUARE TIMEOUT ON THIS DRIVE
;SOFTUARE TIMEOUT ON RANOTHER DRIVE
;ERROR OCCURRED DURING 170 OPERATION
;ERROR OCCURRED DURING NON-1/0 OPERRTION
- UNSAFE OCCURRED
»AUTONATIC RECAL IBRATE SEQUENCE OCCURRED
.DRIVE HAS NOT RESPOWOED TO PORT REQUEST
.DRIVE HAS BECOME NONEXISTENT

StQ 0052

Egj& ::(‘)N/B/S MECHANICAL AND READ/WRITE TEST
MACY11 30A(1052)
27-JU-78 09 18
ERROR POINTER TRBLE
2801
2802
2803
280M
2805
2806
2807
2808
2809
2810
2811
2812
2813
2814
2815
2816
2817
2818
2819
2820

SBTTL

5
27-JUL-78

09 2%

PRGE 57

SEQ 0053

ERROR POINTER TRBLE

+BTHIS TRBLE CONTRINS THE INFORMATION FOR ERCH ERROR THAT (AN OCCUR
STHE INFORMATION IS OBTRINED BY USING THE INDEX NUMBER FOUND IN
»SLOCRTION SITEMB
THIS NUMBER INDICATES WMICH ITEN IN THE TRBLE IS PERTINENT

- SNOTE1

IF SITEMB

- INOTE2
.3
. 8
. 8
.
004 306

. POINTS
..POINTS
..POINTS
.. POINTS

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DATR HERDER
DATA
DATR FORMAT

ERROR ITEM 1
RH11 INTERRUPT OCCURED (RPRS
ERR PC
RPRS
SERRPC
SREG3

= 0)

DH1

OT1
OF1
ERROR ITEN 2
UNEXPECTED ATTENTION OCCURRED
ERR PC
DRIVE
RPRS
RPDS1
SERRPC
SREG1
SREG3
RPERRS

RPER1
RPERRS+Z

EN2
DH2
D72
OF
2

o44110
045542
047112
047544
.3

X
.
X

004326
004330
004332
004334

IN THE TRBLE CONTAINS 4 POINTERS EXPLRINED AS FOLLONS

EMt

044045
045525
047106
047540
.3
. ¢
X
X

004316
004 320
004322
004 324

En
OH
o1
Of

1S O THE ONMLY PERTINENT DRTR IS (SERRPC)

SERRTB
.BEN AND DH ARE ASCI12 MESSAGES. DT IS R STRING OF WORDS THART POINT TO THE
.3DATR TO BE TYPED AND OF IS R STRING OF DARTR THAT TELL MOW THE DT WORDS
+3ARE TO BE TYPED.
IF ANY OF THE POINTERS ARE NOT NEEDED FOR R PRARTICULAR
+BERROR IT IS REPLACED WITH A ZERO
+BEACH OF THE ITENS BELOW REFER TO THE ERROR NUMBER AND INDICATE
.3THE INFORMATION THAT WILL BE TYPED WHEN THE ERROR OCCURS
SUNLESS STATED OTHER ALL NUMBERS ARE OCTAL
.3
. ¢
. ¢
X

004 306
004310
004312
004314

EACH ITEM

ERROR

ITEM

MASSBUS PARITY ERROR (MCPE=1)
TEST
ERR PC
AROORESS DARTA
STMPO
SERRPC
RD ADR
RD WRD
EMI
DH3
0T3
OF
3

OuM146
045630
047130
047550
.83
. ¢

ERROR ITEM 4
MASSBUS PARITY ERROR

TEST

ERR PC

(PRR=1)

ROORESS GDOATR

BODARTA

RPER2
RPERRS+4

RPERJ
RPERRS+6

MACY11 30R(1052)
CZRIAC RPO4/5/6 MECHANICAL AND RERD/MRITE TEST
CZRJIAC P11
27-JUL-78 09 18
ERROR POINTER TRBLE

X _X_J
N

o44237
045542
047.12
047544

004 356
004 360
004362
004 364

000000
000000
000000
000000

RD WRD

DRIVE
SREG1

BIT SET
RPARS
RPDS1
SREG3
RPERRS

RPER1}
RPERRS+2Z

RPER2
RPER3
RPERRS+4 RPERRS+6

ITEM 6 --

NOT USED

ITEM

NOT USED

7 --

LR
X _X_J

0
0
0
0
ERROR ITEM 10
RH11/RPOY4/5/6 FRILED TO RESPOND TO ADDRESSING
RPCS1
ERR PC
RH ADR
SERRPC

eM10
OH10
0T10

044273
045734
047172
047560
NN

OF10

L X

004406
004410
00u412
O0u41Y

PAGE

o
0
0
0

X _X_J

004 376
004400
004402
004404

09 24

EnS
DH2
012
OF
2

EELELEEEERERLER
L

ERR PC
SERRPC

ERROR

004 366
004370
004372
004 37y

WRT RDR WRT WD

ERROR ITEM 5
ROORESS PLUG CHANGE

ERROR

2889

2891
2892
2893

L X

004 346
00% 350
004352
004 354

SERRPC

27-JuL-78

EMY
DHY
OTY
4
Of

ERROR ITEM 11
DRIVE SELECTED
ORIVE
ERR PC
SERRPC
SREG2

1S NOT ONL INE

EM1Y
DH11
0T11
DF11

044351
045753
047176
047564
X _X_2

2887

044203
045665
047140
Ou 7554

SRR

L gig

2880
2881
2882
2883

004336
004 340
004 342
004 3wy

[

2877
2878
2879

STHPO

L. X X

2857
2858
2859
2860
2861
2862
2863
2864
2865
2866
2867
2868
2869
2870
2871
2872
2873
2874
2875
2876

ERROR ITEM 12
IMPROPER HERDER DATA
TEST
ERR PC
TST PC

DRIVE
CYLNDR
TRRCK
SECTOR
STHPO
SERRPC
SREGQ
CHKDRV
(YL DS
TRK DS
SEC DS
GOCYL
GOTRK
GDSCTR
BOCYL
BODTRK
BDSCTR

SEQ 0054

E%:ng ::?QIS/S MECHANICAL AND RERC/WRITE TEST
MACY11 30A(1052)
ERROR POINTER TRBLE
27-JWL-78 09 18

2912
2914

2915

2916

00%416

2918
2919
2920
2921
2922

004422
0044 24

2917

004420

044406
045772
047202
047570

044433
oN6772
047234
047600

004450
004452
004454

000000
000000
04?7252
047610

O44433

000000
000000
047252
047610

TRK RD

SEC

ERROR ITEM 13
DRTA COMPARE FRILURE
TEST
ERR PC
TST PC
ORIVE
CYLNDR
TRARCK
SECTOR
STHPO
SERRPC
SREGO
C(HKDRV
(YL DS
TRK DS
SEC DS
GODAT
BODAT
WRDCNT
GDADR
BDADR
SGODRT
SBDDAT
SREGY
SGDADR
$BDADR
CYLNOR., TRACK, SECTOR, AND WRDCNT
ARE DECIMAL

ERROR

ITEM 14
$SGODAT

-- FOLLOWS #13
S$BDDAT
SREG4

SGDADR

SBDRDR

ERROR ITEM 15
OATR COMPARE FAILLRE
TEST
ERR PC
TST PC
DRIVE
CYLNDR
TRACK
SECTOR
$TMPO
SERRPC
SREGO
C(HKDRV
(YL DS
TRK DS
SEC DS
GODAT
BDDAT
WRDCNT
GDADR
BDADR
SGODAT
SBDDAT
SREGY
SGDADR
$BDADR
CYLNDR, TRACK., SECTOR, AND WRDCNT RRE DECIMAL

ERROR

ITEM 16 -- FOLLOWS %15
$GODAT
SBDOAT
SREG4

SGDADR

SBDRDR

0
0

0T13R
OF 14

. X
R
o4y4460

DECIMAL

EM13
DH12
o713
OF13

045772
04723y
047600

%
X

004466

(YL

SEQ 0055

0
)
DT13R
OF 14

%
X

004456
004460
004462
004464

SEC DS

RAND SECTOR ARE

PAGE 59

D713
DF13

X
. ¢
X
X
X
B
. |
004446

TRK DS

TRACK,

09 24

EM13
DH12

X
» |

004436
004440
004442
004444

5
27-JUuL-78

Ent2
DH12
0112
OF12
%
. ¥
. |
.
. |
. |
. |

004426
004430
004432
0044 3%

CYL

CYLNDR,

ERROR ITEN 17
DISK ERROR IN TiMING TEST

TEST
$TMPO

Ent?

ERR PC
SERRPC

DRIVE
(HKDRV

RPCS1
RP REG

RPDSI
RPERI
RPER2Z
RPER3
RP REG+12 RP REG+14 RP REG+40 RP REG+42

CZRJIAC RPON/5/6 MECHANICAL AND READ/WRITE TEST

CZRJAC. P11
2969
2970
2971
2972

004470
0044?72
O04MN7y

27-JUuL-78 09 18

MACY11

ERROR POINTER TRBLE

046206
0M7264
047614

ERRIR

2975

TEST

. |

g;g

2978
2979
2980
2981
2982

0OCu476
004500
004502
004504

044512
046206
0u4726M4
Ou7e61v

2983
298y
2985
2986
2987
2988
2991
2992
2993
299%
2995

004506
004510
004512
004514

044433
046304
047304
047620

2996
2997
2998

2999
3000
3001
3002
3003

000000
000000
047320
047630

3004
3005
3006
3007
3008
301
3011

3012
3013
3014
3015

3016
3017
3018
3019
3020
3021
3022
3023
3024

. |

004526
004530
004532

004534

0Q44561
046421
047330

047634

044610
046421

StQ 0056

ITEM 20

CLOTK (KW11-P) OVERFLOW

ERR PC

STHPO

SERRPC

DORIVE

C(HKDRV

IN TIMING TEST

RPCSt

RP REG

RPDS1

RPER1

RP REG+1Z RP

REG+14

RPER2

ERROR ITEM 21
DRTRA COMPARE FAILURE
TEST
ERR PC
TST PC
DRIVE
CYLNDR
$THPO
SERRPC SREGO
C(HKDRV (YL DS
GDORT
BDDAT
WRDCNT SECTOR
SREG1
SBDDAT SREGY
SREG!
CYLINDR,

TRACK.

WRDCNT,

ERROR

ITEM 22--FOLLOWS #21
SREG1
SBDDAT
SREGY

ERROR ITEM 23
DISK ERROR DURING SEEK
TEST
ERR PC DRIVE
$STMPO
SERRPC CHKDRV
RPER1
RPER2

TRACK
TRK DS

AND SECTOR RRE DECIMAL

SREG!

CYLNDR
(YL DS
RPERI

RP(CSY
RP(S2
RPDS1
RP REG RP REG+10 RP REG+12
RPCA
RPCC

RP REG+14 RP REG+40 RP REG+42Z RP REG+34 RP REG+36

DF 23

ERROR ITEM 24
SEEK NOT COMPLETE WITHIN 120 MS
TEST
ERR PC DRIVE
CYLNOR RPCS1
RP(CS2
RPOS1
STHMPO
SERRPC CHKDRV (YL DS RP REG RP. REG+10 RP. REG+12
RPER1
RPERZ
RPER3
RPCA
RPCC
RP REG+14 RP REG+40 RP REG+42 RP REG+34 RP. REG+36
EM2Y4
DH23

RPER3

RP REG+40 RP REG+42

EN23
DH23
D723

.%
. |
X
2
X
X
004536
004540

PAGE 60

0
0
DT21R
OF 22

.%
.
X
B |
¥

3003

09 24

EM13
DH21
D721
OF 21

%
004516
004520
004522
00452¢

5
27-JuL-78

EN20
DH1?
0117
OF17

%
|
.
o |
a4
.

gggg

DH1?7
D117
OfF 17

2973
2974

30R(1052)

CZRJIAC RPO4/5/6 MECHANICRAL RANO READ/WRITE TEST
MACY11 30A(1052)
CZRJIRC P11
27-JUuL-78 09 18
ERROR POINTER TRBLE
047330
047634

004562
004564

o44650
046612
047370
047650

et \BOONONE (N
st () et ot
o
- - r

SEQUENCE

OCCURRED

ERROR ITEM W41
RH11/RPO4/5/6 ERROR (MESSAGE)
TEST
ERR PC
TST PC
DRIVE
STMPO
SERRPC
SREGO
CHKDRV

EMY1
DHu1
DT41
DF 41

RPCS1

RP REG

044650
046612
047406

RPCSZ

RPDSt

RPCSZ

RPDS1

RP REG+10 RP REG+12

EM41
DH42
DT42
DF 42

ERROR ITEM 43
RH11/RPO4/5/6 ERROR (MESSAGE)
TEST
ERR PC
TST PC
DRIVE
RPCS1
STMPO
SERRPC
SREGO
CHKDRV
RP REG
RPER1
RPER2
RPER3
RP REG+1Y4 RP REG+40 RP REG+42

004566
004570
004572

SEQ 0057

—

) UNSRFE OCCURRED
) RUTOMATIC RECAL IBRATE

ERROR ITEM 42
RH11/RPO4/5/6 ERROR (MESSAGE)
TEST
ERR PC
TST PC
DRIVE
$STMPO
SERRPC
SREGO
CHKDRV

004556

PAGE 61

ERROR |TEMS 41-46 WILL HAVE AN EM THRT
VARIES DEPENDING ON THE ERROR. IT WILL BE IN THE FORH
RH11/RPO4/5/6 ERROR (MESSAGE)
WHERE MESSAGE WILL BE ONE OR MORE OF THE FOLLOWING
OFFLINE OR UNSAFE DRIVE REQUESTED
UNLOARDED ORIVE REQUESTED
PERSISTENT UNSRFE
PARITY ERROR OCCURRED
FATAL PARITY ERROR
SOFTHARE TIMEOUT ON THIS DRIVE
SOF TUARE TIMEOUT ON ANOTHER DR IVE
ERROR OCCURRED DURING 170 OPERATION
ERROR OCCURRED DURING NON-1/0 OPERATION

RN
S
A
U
U

X
X

TR N

R
L
Y

X X
X

X
Y

X
LE X

S
L

-~
lag]

044650
046554
047360
047644

09 24

120229300002 0008003200 0020000002000 00030800333220023002032220220221
3003830000300 03000 0080080000000 003000009000920220220002000200024
ERROR ITEMS 23-40 NOT USED

’

L
Y

00us4e

004546
004550
004552
004554

5
27-JUL-78

07123
DF 23

X _X_X_X_X_ 1}

004542
00454y

[ X X _X_J

3025
3026
302?
3028
3029
3030
3031
3032
3033
3034
3035
3036
3037
3038
3039
3040
3041
3042
3043
3044
3045

EM41
DH42

DT43

RP REG+10 RP REG+12

RPO4/S/6 MECHANICAL AND READ/WRITE TEST
MACY11 30R(1052)
P11
27-JUL-78 09 18
ERROR POINTER TRBLE

00457y

047654

’

004602
004604

3124
3125
3126

3127

4
3
X
4
4
|

4
4

044650
045772
047432
047664

09 24

PRGE

StQ 0058

ERROR |1TEN 4y
RH11.RPON/5/6 ERROR (MESSAGE)
TEST
TST PC
DRIVE
CYLNOR
TRACK
SECTOR
ERR PC
STHPO
SERRPC
SREGO
C(HKDRV
(YL DS
TRK DS
SEC DS
RP(CS1
RP(S2
RPOS1
RPCC
RPCA
RPDR
RP REG
RP REG+10 RP REG+12 RP REG+36 RP REG+34 RP REG+06
RPER1Y
RPER2
RPER3
RP REG+1Y
RP REG+40
RP REG+42
CYLNOR., TRACK. AND SETTOR ARE DECIMAL

EMY1
DH12
OTuy
DF 4y
ERROR ITEM 45
RH11/RPOMN/5/6 ERROR (MESSAGE)
TEST
ERR PC
TST PC
DRIVE

CYLNDR
TRACK
SECTOR
STHPO
SERRPC
SREGO
CHKDRV
(YL DS
TRK DS
SEC DS
RPCS1
RP(S2
RPDS1
RPCC
RPCRA
RPDA
RP REG
RP REG+10 RP REG+12 RP REG+36 RP REG+34 RP REG+06
RPER)
RPERZ
RPER3
RPUC
RPBR
RPODB
RP REG+1M
RP REG+440
RP REG442
RP REG+2
RP REG+4 RP REG+22
CYLNOR., TRARCK, AND SECTOR ARE DECIMAL

004612

EM41
DH12

DT45
DF 45

004616
004620
004622
004624

Q44674
0465772
047472
047700

X
X
.2

00461y

044650
045772
047472
047700
X _X_X_J

004606
004610

3100
3101
3102
3103
J104
3105
3106
3107
3108
3109
3110
3111
3112
3113
3114
3115
3116
3117
3118
3119
3120
3121
3122
3123

27-JUuL-78

OF 43
I3

004576
004600

ERROR ITEM 46
FATAL WRITE CHECK ERROR (MESSAGE)
TST PC
DRIVE
CYLNDR
TEST
ERR PC

SERRPC
STMPO
SREGO
RPCS1
RPCS2

CHKDRV
RPDS!

(YL DS
RPCC

TRACK

TRK DS
RPCA

SECTOR

SEC DS
RPOA

RP REG
RP REG+10 RP REG+12 RP REG+36 RP REG+34 RP REG+06
RPERZ
RPER3
RPKC
RPBAR
RPDB
RPER1
RP REG+40
RP REG+42
RP REG+2
RP REG+4 RP REG+22
RP REG+1M
CYLNOR, TRACK, AND SECTOR ARE DECIMAL

EM46
DH12
DT45
DF 45

C2ZRJIRC RPO4/5/6 MECHANICRL AND RERD/WRITE TEST
MACY1t1 30A(1052)
CZRJAC P11
27-JUL-78 09 18
ERROR POINTER TRBLE

3128
3129
3130
Nnv
3132
31313

SBTTL

012737

1777277

00503?
005037
000411
012737

001226
001224

1722777

001226

005037
01273?
000005

001226
17227277

00122y

012706
005026
022706

001100

000402

030402

00137y
012706
012737
012737
012737
012737
012737
012737

012737
012737
005037
005037
112737
012737
012737
013746
012737
012737
012737
022777
001012

000403
012716
00000 2
012737
012737
012637

005130

012700
005020
022700
001374
013737

001226

START1
STRTIAR

001140
001100

000004
001140
001142
174056

00114G
001142

001160

PAGE 63

SEQ 0059

MOV
BR
(LR

#-1, 38BUSAOR
STRT1A
S8 BUSROR

B8R

STRT2R

(LR
BR
nNOV

SECNTRLC
START
&-1, d8BUSADR

. GET BUSRDR FLRAG

. CLR BUSADR FLRG
- NO CONTROL "C"
. SET BUSADR FLARG

(LR
o8 BUSROR
» CLR BUSROR FLAG
MOV
#-1, 38CNTRLC
. SET CONTROL "(C" FLAG
RESET
INITIALIZE THE COMMON TAGS
.. CLERR THE COMMON TRGS (SCMTARG) ARER
Mov
#SCHTRG. RE
»»FIRST LOCRTION TO BE CLERRED
CLR
(R6)+
»» CLERR MEMORY LOCATION
CHP
#SHR, R6 .. DONE?
BNE
-6
.. LOOP BRCK IF NO

MOV

8§STACK, SP

»»SETUP THE STACK POINTER

MoV
CLR

8123456, 3LONUN
STIMES

., BOTH HIGH AND LOW WORDS
. INITIALIZE NUMBER OF ITERATIONS

001150

SESCRAPE
#1., SERMAX

.. CLERR THE ESCAPE ON ERROR RODDRESS
.. ALLOW ONE ERROR PER TEST

MOV
& . SLPROR
»» INITIALIZE THE LOOP RDDRESS FOR SCOPE
MOV
& . SLPERR
., SETUP THE ERROR LOOP ROORESS
++»SIZE FOR R HARDWARE SWITCH REGISTER
IF NOT FOUND OR IT IS
.»EQUAL TO A "-1", SETUP FOR A SOF THRARE SWITCH REGISTER
MoV
SRERRVEC,
- (SP)
., SRVE ERROR VECTOR
MOV
648, JRERRVEC
., SET UP ERROR VECTOR

MoV

SDSHR, SKR

8DDISP,DISPLAY
#-1, dSHR
669

.. AND R HARDWARE DISPLAY REGISTER
.+ TRY TO REFERENCE HARDWRRE SR
.. BRANCH IF NO TIMEOUT TRAP OCCURRED

6M S

B8R
ggu

659
#659%. (SP)

.. BRANCH 1F NO TIMEOUT
»»SET UP FOR TRAP RETURN

659

MOV

#SHUREG. SWR

.. POINT TO SOF TWARE SHR

669

MOV

MoV
CHP
BNE

001210

00141y

STARTZ
STRT2R
START
SBTTL

09 24

START OF PROGRAN

CLR
MOVB

005074

000176
000174
000004

STARTY

6§
27-JUL-78

. INITIRLIZE R FEW VECTORS
]
#SSCOPE.
SR IOTVEC ., 10T VECTOR FOR SCOPE ROUTINE
MOV
8340,
8 I0TVEC+2 .. LEVEL 7
nov
ASERROR, QREMTVEC . .EMT VECTOR FOR ERROR ROUTINE
MoV
8340, 98EMTVEC+2 ., LEVEL 7
MOV
§STRAP, ATRAPVEC .. TRAP VECTOR FOR TRAP CALLS
MoV
#§340, a8 TRAPVEC+2,
LEVEL 7
MOV
176543, SHINUM
., PRIME THE RANDOM NUMBER GENERATOR

022610
000340
017636
000340
023136
0003v0
176543
123456
001204
001206
000001
005012
005020
00000%
005066
177570
177570
1772777

START3

»»SETUP FOR A HARDWARE SWICH REGISTER

..AND

THE HARDWARE SWR

MOV

#DISPREG DISPLAY

(SP)+, 98ERRVEC

., RESTORE ERROR VECTOR

HOV
CLR
cHp
BNE
Hov

#SREGRD. RO
(RO)+
#SBELL. RO
1§
R TPS, ARSTPS

.FIRST RODRESS
. CLEAR VAR IRBLE STORAGE

IS NOT

-1

» DONE
?
»NO--BRANCH
»SETUP THE STRTUS RND BUFFER PEG S

C(ZRJIAC RPOM/5/6 MECHANICAL RND RERD/WRITE TEST
MACY1!
CZRJAC P11
INITIRLIZE THE
2?7-JUL-78 09 18

318y
318%
3186
3187
3188

3189
3190
3191
3192
3193
3194
3195
319%
3197
3198
3199
3200
3201
3202

005136
005144
005150
005152

005172
005174
005202
005204

01373?
005227
001032
023737
001002
104401
005737
001006
122737
001002
104401

005210
005214
005216
005222
005230
005232

105737
001410
008?737
023727
103002
104401

000041

004?737

021346

005737
001006
023727
001005
104406

000042

005160
005162
005166

000403
112737

005227
001072
004?737
104401

004737
005037
012737
Otwn?3?
00%?3?
008737
012737
062727
103003
005737
001102
012737
005004
104401
104401

001416

172777

000042

000011

000041

050274
050370

050176

001140

39
SBTTL

BNE
CHP
BNE
TYPE
TST
BNE
cnee
BNE

39
42, k46
4s
»TITLE
42
29
£11.41
29

1ST8
8EQ

oyl
39

-8R _IF NOT
ACT11 AUTOMATIC MODE?
.YES. SKIP TITLE PRINTOUT
.TYPE THE PROGRAM'S TiTLE
~AUTO RCCEPT OR CHAIN MODE °
+BR IF EITHER
. LORDED FROM AN RPOM/5/6 ?
.BR IF NOT
» INSTRUCT THE OPERATOR TO REMOVE THE PACK
- ON DRIVE O IF DRIVE O IS TO BE TESTED
. LORDED FROM PAPER TRPE ?
.BR _IF NOT

CHP
BHIS
TYPE

SLSTARD. #100000
39
» NOLORO

-16K OR MORE ON THE SYSTEM ?
.BR IF YES
. INFORM THE OPERTOR THRT THE

00113y

1777277
050372
001215
024034

172776
000001
031426
024076
034534
12727727
177777

SRTINT

001104

034456
000000

SETVEC

000340

001215
043102

177776

119

o404
2

+HILL BE OVERWRITTEN

'XXDP'

INTERRUPT

CHP

SHR., #SHREG

»» SOFTHARE SWITCH REG SELECTED?

679

689

.. BRANCH IF YES
.. BRANCH

IF NO

., GET SOFT-SHWR SETTINGS

BR
MOVB

689
#1, SAUTOB

INC
BNE
JSR
TYPE
JSR
CLR
MOV
JSR

f-1
SRTINT
PC. GETRDR

+SEE IF FIRST START
.BR _IF NOT
,GET OR CHECK THE RH11

RDD

PC, a8LP ARVL
otPS
81, SICNT
PC. d#GE TSHR
PC. 38ST (LK
PC.RPINIT
#-1,SAVEFG
&-1.80

CHECK FOR R LINE PRINTER
+ENSURE THE PRIORITY = O
»SET ITERATION COUNT TO 1
GO CHECK FOR CONTROL SWITCHES
+INITIALIZE THE CLOCK
.CHECK THE DRIVE STRTUS
. SET THE SRAVE REGISTERS FLRG
,FIRST START ?

TST
BNE
MOV

CNTRLC
SRTDRV
#PR7.PS

+CONTROL 'C' SHWITCH SET ?
- CONTINUE IF YES
+SET PRIORITY TO 7

TYPE
TYPE

- SCRLF
» SYSTRY

JSR
JSR
MOV

CLR

TYPOS

044042

+SIZE THE MEMORY

,.ARE WE RUNNING UNDER XXDP/R(T?

B8CC

001224

PC.9$SI12E

oliN2

BNE
679
689

- LORORV

FIRST START ?

TST

GTSKHR

000001

$-1

JSR
PC, STKINT
,TURN ON THE TTY KEYBORRD
GET VALUE FOR SOF THARE SW!TCH REGISTER
BNE

000176

SEQ 0060

,FOR THE TYPE ROUTINE

JSR

100000

PRGE 6%

o8 TPB. 38STPB

TYPE

050000

09 24

nov
INC

000046

047714
000042

010446
104403
002
000
104401
104401

001152

I
5
30R(1052)
27-JUuL-78
COMMON TRGS

BYTE
BYTE

TYPE
TYPE

- SCRLF

119

2
O

+MSG SP
+MSG SP

.»SET AUTO-MODE

INDICATOR

- CR-LF

.BR

RODRESS

IF YES

~DRIVE TRBLE POINTER

. CR-LF
. TYPE STRATUS HERDING
.»SRVE R4 FOR TYPEOUT
.. TYPE DRIVE NUMBER
».G0 TYPE--OCTAL RSCiI

+»TYPE Z DIGIT(S)
.. SUPPRESS LERDING ZEROS

» SPRCES
. SPRCES

LORDER

CZRIRC RPON/5/6 MECHAMICAL AND READ/WRITE TEST MACY11 30A(1052) 27-JUuL-78 09 24
CZRIRC. P11
27-JW.-78 09 18
GET VALUE FOR SOF TWARE SMITCH REGISTER

3242
3

105764
100416
001020
105764
001404

034370

TST8
BMI
BNE
1ST8
BEQ
BPL
TYPE

034400

043176

104401
000000
104401
005204
0208427

001310
005037
005737
001417
0137v6
063716
032726
001405
013737
004737
008?737

043151

043130

k3)

043166

RILD
O%40M2
043214
000001

005550
034400

5%
69

0u 3221
000002

005550
034400

043226

005550

001215

79
8$
9

000010
177776
001224

SRTDRYV

001222
001220
000001
001220
024354
031656

001222
9

024 354
001232

000001
034370

034504

001232

034460
000400

001220

034460
000011

000041

39
4s

PRGE 65

DRVSTR(R%)
4s
5%
ORVTYP (R%)
29
39

.CHECK DRIVE'S STRTUS
.BR IF UNSRFE
+BR _IF ONL INE

+CHECK NEXT DRIVE

. NOTRP

. NOTPRS
9
. UNTOFF

- NOTSAF

,SEE IF OFFLINE OR NONEXISTENT
+BR IF NONEXISTENT
.BR IF OFFLINE
,DRIVE NOT AN RPO4/5/6
-ORIVE NOT PRESENT
» CHECK NEXT DRIVE
ORIVE OFFL INE

.PRINT DRIVE TYPE
-DRIVE UNSARFE

.PRINT DRIVE TYPE

» UNTON
-DRIVE ONL INE
.NSG SP
. SPACES
fRPOuB. 8%
. ADORESS OF RPO4 MESSAGE
#81700. DRVTYP(RY)
.RPON ?
79
.BR IF YES

#RPOS. 89

. ADDRESS OF RPO5 MESSRGE

SRCNTRLC
19
SAVCSH. -(SP)
C SHR, (SP)

»CONTROL "C" START/RESTRRT?
» NO--BRANCH
,GET THE PREVIOUS 'C SHR' CONTENTS
.SET UP TO SEE IF 'BITO0' IS DIFFERENT

#81TO1.DRVTYP(RY)
,RPOS ?
78
B8R IF YES
#RPO6. 89
. ADDRESS OF RPO6 MESSAGE
.TYPE THE DRIVE TYPE MESSAGE
0
. MESSAGE ADDRESS HERE
. SCRLF
. CR-LF
RY
» INCREMENT DRIVE NUMBER/TABLE POINTER
Ry, #8
.FINISHED ?
19
-BR _IF NOT
PS
.SET PRIORITY BRCK TO 'O’

#81700. (SP)+
9
C SWR, SAVCSH
PC.LODFLT

PE.OIGT PRHM
Y

PC.LODFLT
DRVSEL
RO
#1,R1
ggVSTR(RO)

+1S 'BITOO
OIFFERENT ?
.BR IF NOT
- STORE PRESENT 'C SHR' VALUE
+RESET PRARAMETERS TO THEIR DEFARULT VALUES

. GET PRARAMETERS

»SETUP DEFRULT PRRAMETERS
»NO DRIVES SELECTED
-DETERMINE THE DRIVES THRT
.ARE AVAILABLE FOR TESTING

ATRBIT(RO), S#DRVSEL
RO
R1
29
S#SEEKFG
+CLERR SEEK FLAG
#SWOB. o#C SWR
. DO SEEK BEFORE DRTR TRANSFER?

5%
S8SEEKFG
#11.41
. LORDED
109

- YES--BRANCH
- NO
FROM AN RPO4/5/6 ?
.BR

NOT

SEQ 0061

K
§
RAND RERAD/WRITE TEST
MACY11 30A(1052)
27-JUL-78 09 24
GET VALUE FOR SOF THARE SWITCH REGISTER
27-JW-78 09 18

RPON/S/6 MECHANICRL

B A%

005726
00573
005740
005744
0057%6
005752
005754

0%2737
104401
00503?
005000
013701
001004
104401

000001
043233
017550

000137
006201
103011
005237
010046
104403
001
000
005701
00140M
104401
005200
000763
013737
005737
003006
032737
001402
104401
006737
001002

017366

000137
005037
012737
033737
001010
012706
006237
106337
103753
000764

013702
105762
003006
1084011

oN3737
000756
010237
010237
010237
010237
0084737
012737
112737
032737
001402
105037

001232

109

001232

0% 3264
69

017550

017542

036000

001234

043273
001232

001256
001232

001100
001254
001256

001254
034370

001256

004104
004124
004 144
004 164
024770
017366
000020
000001
004105

JHP
RASR

8CC

BEQ

017550
001244

000001
001256

TYPE
CLR
CLR
MOV
BNE
TYPE

INC
Mnov
TYPOS
BYTE
BYTE
TST

043271

004660
001254

8iC

8GT
BIT

., CLEAR THE DRIVE O SELECTION BIT
,"DRIVES(S) TO BE TESTED'
»DETERMINE PRSSES TO MAKE AND
. THE DRIVES TO BE TESTED
+ANY DRIVES SELECTED?
» YES--BRANCH

SR SEOP
;;

.60 TO END OF PROGRAM
,REPORT THE DRIVES TO BE TESTED

o8 SENDCT

.GIVE

1
0

.. TYPE 1 DIGIT(S)
., SUPPRESS LERDING ZEROS

» NONE

RO, - (SP)

, COMMA

DRVOK

BGT
ERROR

BIC
BR
Hov
MOV
MOV
MOV
JSR
MOV
Hove

BIT
8EQ
CLRB

» "NONE
*

THIS DRIVE R PASS

,»SAVE RO FOR TYPEOUT
.. G0 TYPE--OCTRL ASCII
. MORE

DRIVES?

» NO--BRANCH
D

.FORM DRIVE NUMBER

SRSENDCT, SRSEOPCT
SR CLKSTR
- KW11-P AVAILRBLE
RSTRT1
» YES--BRANCH
#36000.
M TSTNMS , NO--ANY TIMING TESTS TO BE PERFORMED?
RSTRT1
» NO--BRANCH
» NOCLOK
» 'NO KH11-P CLOCK, TIMING TESTS WILL NOT BE PERFORMED
ORVSEL
+RANY DRIVES SELECTED ?
19
+BR IF YES

RSTRT1
RSTRTZ

MOV
TST8

SEQ 0062

#8700, DRVSEL
+DRIVES
B SENDCT
RO
o8DRVSEL, R1
6%

BEQ
TYPE
RSTRT1
TST
BNE
JHP
19
CLR
HOV
RSTRT2
BIT
BNE
RESTART
MOV
INC
RSLB
BCS
BR

001232

001252
004105
001220

TYPE
INC
8R
MOV
TST

PRGE 66

START2

+GET DRIVE SELECTION ENTRY

81, DRVNSK
DRVMSK, DRVSEL
DRVOK
#STRCK, SP
CHKDRV
DR VMSK

.START TO CHECK DESIRED DRIVES
. IS TH!S DRIVE SELECTED?
. YES--GO CHECK IF DRIVE IS READY FOR TESTING
. SETUP THE STRCK POINTER
,MOVE
TO NEXT DRIVE NUMBER
+POSITION THE MARSK

CHKDRV. R2

»PICKUP THE DRIVE NUMBER

19
i1
ORVHSK, DRVSEL
RESTART
R2.380PB. R
R2.340PB.
B
R2,340P8B (
R2, 4DTADPB
PC, 38LOCHD
SSEOP, JBBYPASS
#FNT22/256 ,0DPB
#81700.
C. SKR
29
OPB R+1

. YES, BRANCH
+DRIVE SELECTED !S NOT ONL INE
. CLEAR DRIVE'S SELECTION BIT
»RETURN
+SET THE DRIVE NUMBER INTO THE DPB'S

CHKDRVY

DRVSTAR(R2)

INIT

+BRANCH

THE CHECK DRIVE KEY

THE

DRIVE NUMBER NEEDS

. 1S DESIRED DRIVE ON-LINE?

-LORD COMMAND INTO OPB B AND DPB (
, IF ERROR GO TO END OF PROGRARM
A+1
,RASSUME 16 BIT FORMAT
.16 BIT FORMAT REQUESTED ?
.BR IF
-CLERAR

YES
THE

'FMT22'

BIT

INITIRLIZED

L
5
CZRJAC RPON/5/6 MECHANICAL AND RERD/WRITE TEST
MACY11 30A(1052)
27-JUL-78
09 24
CZRJAC P11
27-JUL-78 09 18
GET VALUE FOR SOFTHARE SWITCH REGISTER

3352
3353

112737
004037
112737
004037
104401
010246
104403
001
00u
104401
104401
012700
013701
005002
006101
006102
006101
006102
006101
004102
006101
006102
062702
010227

000143
025034
000107
025034
043361

004106

ov4ou2
043403
000004
00423y

000060
49

066330

104401
113737

001215
001364

nove
JSR
nove
JSR
TYPE
Y
TYPOS
BYTE
BYTE
TYPE
TYPE

MoV
HovV
CLR
ROL
ROL
ROL
ROL
ROL
ROL
ROL
ROL
AOD
MOV
WORD
TYPE

DEC
8GT

001115

TYPE
HOVSB

PAGE 67

.SET THE FORMAT BIT PER DPB A+1
SETFORM DPB R+2
. GO EXECUTE THE COMMAND
RO, MCALL R
SRECAL. JDPB A+2
- RECAL =COMMAND
RO, o#CALL A
. GO EXECUTE THE COMMAND
» TESTNG
,"TESTING DRIVE '
. SAVE RZ FOR TYPEOUT
.,60 TYPE--OCTAL ARSCII
. TYPE 1 DIGIT(S)
1
. SUPPRESS LERDING ZEROS
o
. TYPE SPACES
- MSG SP
. SERIRL
#4, RO
RP REG+3D.R1
R2
R1
R2
R1
R2
R1
R2
R1
RZ
#'0.R2
RZ,(PC)+
0
49
RO
33
» SCRLF
ERR CT, SERMARX

. "SERIAL NUMBER '
.FOUR DIGITS TO TYPE
- SERIAL NUMBER
. ZERO
+PUT THE NEXT DIGIT
» INTO R2

+MRKE
+SRVE

IT RSCII
IT

. TYPE
.ALL DIGITS TYPED?
+HO -- BRANCH
. SETUP

MAX ERROR

COUNT

StQa 0063

CZRJAC RPOU/S/6 MECHANICAL AND RERD/HRITE TEST
MACY11 30R(1052)
27-JUL-78
09 24
CZRJR P11
27-JUL-78 09 18
GET VALUE FOR SOF THARE SWITCH REGISTER
3382
3383
3384

SBTTL
/%
/%
/%

/%
/%
/%

/s
/s
/s

/%
/%
/%

##a8
/%
/%
/%

PAGE 68

TESTS #ass
/%
/%
/%

/%
/%
/%

+XIN THE DESCRIPTIONS OF THE BELOW TESTS (HE VARIABLES USED
+SAND THE IR DEFRULT VALUES (UNLESS SPEC(FIED OTHERWISE) RRE
.3
VAL UE
- SHNEMONI
C
VAR IABLE

LC-1C

3
www;m

0
21

FIRST SECTOR ADDRESS
LAST SECTOR ADDRESS

Z—r"

FT4IT

FIRST TRRICK RDDRESS
LAST TRACK RDDRESS
INCREMENT VALUE
NEW OR MODIFIED TRACK

./
./
./

814

0
18

N
N
N
e
B

6 58 3¢ 3¢ 3¢ 3¢ 5% 3¢ 3¢ 3¢

FCeIC

;INC OF NC1
®e
S
W

?10 OR

ITERATIONS (REPERTS)
FIRST CYLINODER RODRESS
LAST CYLINDER RDORESS
INCREMENT VALUE
NEW OR MOOIFIED CYLINDER
RODRRESS
NEW OR MOOIFIED CYLINDER
RODRESS

%
8/:
8

%/
%/:
8/:

&/:
%/:
&/:

3.
2.
3/

2
2
%/

%
¥
%/

¥
%

417
18
3N

74
X/
X/

X/
2/
2

SBTTL

%
X
t

%
X/
X

X/
X/
X

RDORESS

X/
X/
X/

X/
X/
X

X/
X/
X/

%X/
X/
%/

%/
X/
%/

X
X
%

x%xx SEEK TESTS xxx

/% /Y /% /% /X% /%
/8 : /%8 /% /% /% /% . /% - /%
/%
/%
/%
/% : /% : /% /% : /% /% : /% : /%X /% /% - /%
/% : /% : /% /%
/%
/% : /% : /% /% : /% : /% : /% : /% /%

/%
/%
/%

/%
/%X
/X

;STHE SEEK TESTS WILL BE EXCUTED USING IMPLIED SEEKS. THESE
;SINPLIED SEEKS WILL BE PERFORMED BY "REARD HERDER AND
;SORTRTM COMMANDS TO TRACK "FT" SECTOR "FS" OF THE DESIRED CYLINDER
;STHE WORD COUNT WILL BE SET SUCH THAT ONLY THE CYLINOER AND
; STRACK/SECTOR WORDS OF THE HERDER RRE RERD.
./
./
s/

3435
3436
3437

8/:
8
8/

%/:
%/:
8/:

8/:
&/:
%/:

8/:
%/
s/

8/:
8:
%X/:

8/:
%/:
%:

&/:
%/.
&/:

2/
V4
)V4

5/
s/
%/

2303000000003 3000088228000000200222200002220020900002222000¢084

;STEST O

%/:
%X/
%/:

%/:
%/%/.

%/:
%X/:.
%/:

%X/.
%/.
&:

%/
%:
%/

%/
%/
X/

RECAL/SEEK TEST

%X/
3/
%X/

%X/
%/
%

X
%
X

StQ 006MF]

E%:jg(( ::(1)\0/5/6 MECHAN
I CAL AND RERDM!T%OTEST

’

025034
025146

PAGE 69

THE COMPLETION OF BOTH COMMANDS STRTUS

StQ 0065

INDICRTIONS RRE

000000 00000000000030280203002020393008000%%4

NOP
eIT

8B ITS+(0%2>, TSTNHS ;DO THIS TEST?

JHP

6498

- YES--BRANCH

;NO--60 TO THE NEXT TEST

MOV

80, H8STSTNN

JSR

PC.LODPRN
;LORD THE PARMETERS FOR THE TEST
GTESTO. SRSLPERR SETUP THE LOOP ON ERROR RDORESS
STSTNN. 3DISPLAY ,LORD THE TEST NUMBER INTO THE DISPLAY REGISTER
RPT, STINES
;GET THE ITERATION COUNT
825. , SERMRX
;MAX ERRORS ALLOKED FOR TEST
ARECAL., J80PB. R+2
; RECAL =COMMAND

Hov
nov
Hov
nove
HOVe
nove
MOVE
)

MOV
L)

TESTO.

MoV

EXITO

SCOPE

JSR
JSR

;SET UP TEST NUMBER AND

;CLERR THE ERROR FLRG (SERFLG)

oiFS, 940P8. B+10 .FS
oiFT,.980P8. B+11 [ FT
oiL(, 380PB. B+12 ;LC

SEXITO. 3BBYPARSS , GO TO EXITO ON ERROR
STESTO, SLPROR

,SETUP LOOP RCORESS

RO. RCALL A
RO. 8CALL. B

» GO EXECUTE THE COMMAND
. GO EXECUTE THE COMMAND

#STACK, SP

+SET UP STRCK POINTER
. LOOP

PR
3200000000000000000°300220820222300282022002232322022220002220¢%
444
. XTEST 1
SEEK/SLEK TEST
_X_J

001524
001516
0015612
006514
006500
001100

001110
172522
001204
001115
004106
004134
004135
004136
001252
001106

649

004037
000004

024612
006500
001102
001506
000031
000107

001102

09 24

CHECKED TO ENSURE NO ERRORS OCCURRED.

BNE

112737
113737
113737
013737
012737
012737
012706
004037

006516
000000

00123y

008737
012737
013777
013737
112737

00142y

000240
033737
001002
000137
012737

§
27-JUL-78

THIS TEST WILL CAUSE THE DRIVE TO EXECUTE R RECAL IBRATE
COMMAND CYCLE AND THEN SEEK FORWARD TO CYL INDER "LC" RT

IR L2220 0 000000000000 00
TSTO:

Jv49
50
3451
M52
N3
R
NG5
Nn56
M7
58
59
60
M6t
62
63

Jung

’

Jue?

’

001234

001102
001110
172360

001204
001115
00413y
004154
004135

L. X

3438
439
Juy40
Juui
w2
w43
Jusy
w5
3446

L X X _X_J

27-JUL-78 09 18

MACY11 30R(1052)
RECAL/SEEK TEST

THIS TEST WILL

CRUSE

THE DRIVE

TO EXECUTE R FORWARD SEEK

CYCLE TO "LC”, TMLT", “LS" FOLLOWED BY R REVERSE SEEK CYCLE TO
"FC”, "FT", "FS".
AT THE COMPLETION OF ERCH SEEK, THE PROPER
INDICATORS RRE EXAMINED TO ENSURE PROPER OPERATION

"LC” WILL DEFAULT TO 128 AND "FCTM,
WILL DEFAULT TO O

"FT",

“LT",

"FS",

AND "LS"

IR
2320000000000 0 0000000000292 282920022002200200020000020000000804)
TSTH
NOP

649

BIT
BNE
JHP

o8B ITS+<1%X2)>, TSTNHS , DO THIS TEST?
648
» YES--BRANCH
TST2
+NO--GO TO THE NEXT TEST

JSR
MoV

PC.LOOPRN
+LORD THE PRRMETERS FOR THE TEST
STEST1, SRSLPERR ., SETUP THE LOOP ON ERROR ROORESS

HOV

HOV
HOV
HOVe
MOVE
HOV8
Hove

&1, 38STSTNN

;SET UP TEST NUMBER AND
;CLEAR THE ERROR FLRG

(SERFLG)

STSTNM, @DISPLRY
. LORD THE TEST NUMBER INTO THE DISPLAY REGISTER
gg; THE I TERATION COUNT
SERPT, STINES
$
825 , SERMAX
;
ERRORS ALLOWED FOR TEST
a8FS. 380PB. B+10 {g
ofiLS, 380PB. (+10
o8FT,380PB. B+11 FT

(ZRIRC RPON/5/6 MECHANICAL AND IERDMITE
CZRJAC. P11
27-JUL-78 09. 18

113737
013737
013237
012737
012737
012706
004037
004037
000004

001520
001510
001512
006672
006656
001100
025336
025146

00%155
004136
004156
001252
001106

MACY1! 30R(1052)
SEEK/SEEK TEST

TEST1-

nove
MOV
Hnov
Hov
"oV
MOV

EXIT1:

SCOPE

JSR
JSR

6
27-JuL-78

LT, J80P8 (411
ofFC. 40P8 0412
o8LC, 00P8. (412
SEXIT]1.3MBYPASS
STEST1
. SLPROR
ISTACK, SP
RO. J8CALL. C
RO. #CALL. B

09 2%

PRGE 70

SEQ 0066

LT
. F(
;LC
.60 TO EXIT1 ON ERROR
,;SETUP LOOP RDORESS
+SET THE STRCK POINTER
-60 EXECUTE THE COMMIAND
.60 EXECUTE THE COMMAND
;LOOP

PR3
3200080030300 0803 802 2003000003000 0000000302000 00000000082 28004
;STEST 2
INCREMENT/SEEK TEST

TR T

THIS TCST HILL COMMAND FORWARD SEEK CYCLES TO ROVANCE THE
CYL INDER ROORESS FROM “FCTM TO "LCTM BY THE INCREMENT "IC"
WHEN THE RESULTANT CYL INDER ROORESS (NC) EXCEEDS
“LC” REVERSE SEEX CYCLLS ARE INITIRTED, STRRTING
AT THE LAST LEGAL "NC” AND DECREMENTING BY "i(C"

UNTIL "NC" IS LESS THAN "F(C". AT THE COMPLETION OF ERCH
SEEK COMMAND THE PROPER INDICATORS ARE EXAMINED TO
ENSURE PROPER OPERATION.

006620
006626

TEST

; g gxxunnnnunuxnnnnuuuunxunnxuxnxxxxxuxtn

000240
033737
001002
000137
012737

004737
012737
013777
013737
112737
012737
1137237
113737
012737
013737
012737
012706

001430

001234

007112
000002

001102

024612
007004
001102
001506
000031
006762
001524
001616
007110
001510
007012
001100

025146
001514
001512
001512
007054
001100

025146
001514
001510

001110
172202
001204
001115
001106
004134
004135
001252
004136
001110

"
649

BIT
BNE
JMP

oRBITS+<2Xx2), TSTNMS .00 THIS TEST?
64$
» YES--BRANCH
TST3
+NO--GO TO THE NEXY TEST

#2. MSTSTNM

+SET UP TEST NUMBER AND

JSR

PC. LODPRN

;LORD THE PRRMETERS FOR THE TEST

HMOVB
MOV
HOV8

825. , SERMAX
+HRAX ERRORS RALLOWED FOR TEST
195, SLPRDR
;SETUP LOOP RODRESS
o8FS, 980PB 8410 .FS

MOV

#STACK, SP

MOV
MOV
MOV
Hov

19
TESTZ

INCSK

004136
004136

004136
001110

NOP

DE CSK

004136
004136

EXIT2.

MOV
MOV
MOV
nov

;CLEAR THE ERROR FLRG

(SERFLG)

GTESTZ, RSLPERR
. SETUP THE LOOP ON ERROR ADORESS
STSTNM, dDISPLAY
,LORD THE TEST NUMBER INTO THE DISPLRY REGISTER
RPT, STIMES
+GET THE ITERARTION COUNT

o8FT,300PB B+11
SEXIT2, MBYPARSS
SAFC, 380PB. B+12
6. . SLPERR

,FT
. GO TO EXITZ ON ERROR
. F(
.SETUP THE ERROR LOOP RDDRESS

JSR
ADD
CHP
8GE
MOV
MOV

RO. MCALL B
o8 1C, 80PB B+12
d8LC, a80PB B+12
INCSK

. GO EXECUTE THE COMMAND
,MOVE TO NEXT CYLINOER
., QUT OF CYLINDERS?
+NO--BRANCH

#STRCK, SP

.LORD THE STACK POINTER

JSR
sue
cne
BLE
SCOPE

RO, 38CALL B
» GO EXECUTE THE COMMAND
ol 1(, 980PB B+12
ofF(, oN0PB B+12
DECSK
. LOOP

MOV

-LORD THE STACK POINTER

oiL(C, 980PB B+12
§ ,SLPERR
»SETUP

THE ERROR LOuP RDDRESS

RPOM/S/6 MECHANICAL AND RERD/WRITE TEST
27-JUL-78 09 18
P11
T2
PR

MACY11

30R(1052)

27-JUL-78

INCREMENT/SEEK TEST

09 24

PRGE

SEQ 0067

3220203000008 88308308 2330232000000 0 00000000200 00000000022088%9)

. STEST 3
.
. ¢
:

STEPPING SEEX TEST

THIS TEST WILL COMMAND SEEK CYCLES TO CYLINOER 0.1.2.
4,
8.16,32,64,128. AND 256.
AT TYHE COMPLETION OF ERCH SEEK
gm?alflfi PROPER INDICATORS FRE EXAMINED TO ENSURE PROPER

,T,S#g!!t!!t!l!ll!!ll!!ttnl!ll!!ltl!ltlttll!lt!!!!!lltt!lt!tt!!t!l

000240
033737
001002
000137
012737

00M737
012737
013777
013737
1127237
012737
113737
113737
012737

013737
012737
012706
008037
013701
012737
012706
010137
004037

006301
020137
001770
00 JO04

001432

001234

007 306
000003

001102

024612
007222
001102
001506

000031
007200
001524
001516
007 304
001510
007230
001100
025146

001514
007252

001100
004136
025146

001110
171764
001204
001115
001106
004134
004135
001252
004136
001110

NOP
BIT
BNE
JHP

649

MOV

TEST3.

HOov

815, SLPADR

HOV8
MOVB
MOV
MOV
MOV

001512

(SERFLG)

-LORD THE PRARMETERS FOR THE TEST

STEST3, ESLPERR ., SETUP THE LOOP ON ERROR RDDRESS
STSTNM, @OISPLARY
,LORD THE TEST NUMBER INTO THE OISPLAY REGISTER
SERPT, STINES
+GET THE ITERRTION COUNT
825. , SERMAX
; MRX ERRORS ALLOWED FOR TEST

o#FS, 380PB. B+10
ofFT,80PB. B+11
SEXITI, MBYPRSS
o8F(C, 980PB. B+12
8., SLPERR

8STACK, SP

;SETUP TEST LOOP RDORESS

. FS
. FT
,GO TO BYPASS ON ERROR
. F(
+SETUP THE ERROR LOOP ROORESS

,LORD THE STACK POINTER

RO. JRCALL. B
1C, R
& . SLPERR

,GO EXECUTE THE COMMAND
. CYL INDER 1
+SETUP THE ERROR LOOP RDORESS

MOV
JSR
ASL

R1,9%0PB. B+12
RO. o#CALL B
R1

,DESIRED CYLINDER
, 60 EXECUTE THE COMMAND
+MOVE, TO NEXT CYLINDER

BLE
SCOPE

»NO--L00P

CHP

EXITI

;SET UP TEST NUMBER AND

+CLEAR THE ERROR FLRG

JSR
HOV
MOV

MOV

STSTNN

PC.LOOPRN

MOV

001110

43,

JSR

MOV
HOV
MoV
nove

1¢:

SRBITS4(3%2>, TSTNMS;DO THIS TEST?
649
. YES--BRANCH
TSTY
;NO--G0 TO THE NEXT TEST

ASTACK, SP

R1, afLC

,LORD THE STRACK POINTER

- DONE?

PR 200000000000 00000000:08 82328232032 220220002000000020¢00002808)
RTEST &4
OSCILLRTING SEEK TEST

. X
. X

THIS TEST WILL COMMAND SEEK CYCLES FROM "F(C" TO "NC" AND BRC(K
T0 "FC"
"NC" STARTS AT "FC" AND INCREMENTS BY “1C" UP TO CYL INDER

PR ¢

COMPLETION OF EVERY SEEK COMMAND THE PROPER

"LC",

A |

007 306

007310

007316
007320
007324

THEN

IS DECREMENTED BY "I1(C" BRCK TO CYLINDER "F(C"

EXAMINED TO ENSURE PROPER OPERATION

INDICRTORS ARE

:r,sgltt!!!lll!!!!l!l!!!lfl!!!!!!!l!!!!!!!!!!!l!!!!X!"!tfl!lt!x!"
Y

000240
033737
001002
000137
012737

00143y

001234

007674
000004

001102

NOP

649

BIT
BNE

o#BITS+CX2>, TSTNMS , D0 THIS TEST?
649
» YES--BRANCH

MOV

#4, JRSTSTNM

JMP

T1ST8S

+NQ--GO TO THE NEXT TEST
+SET UP TEST NUMBER AND

AT THE

012737
113737
113737
012737
005002
032737
001401
005102
013701
005037
012737
012706
010137
004037
005702
001403
004037
001336
013737
004037
005702
001413
004037
001336
006237
023737
003IM?7
005037
063701
020137
003740
013701
012737
012706
010137
004037
006702
001403
004037
001336
013737
004037
005702
001413
004037

010000
001510
001336
007442
001100
004136
025146

MOV

MOV
MOV
MOV

001110

004136

026366
001336
001362

001336

001336
001514
001512
001512
007560
001100
004136
025146

001110
4s

004136

026366

001336
001362
001336

CLR

JSR
TST
BEQ
JSR
WORD
MOV

JSR
1ST
8EQ
JSR
WORD
INC
cHe
BGT
CLR
ADD
CHP
BLE
MOV
MoV
MOV
MOV

JSR

TST
8EQ

026366

001512
025146

BIT
BEQ
CON

TESTY

026366

001510
025146

MOV
)
)
Hove
)
HOVB
HovB
]
CLR

001336

JSR
HORD

MOV
JSR
TST

8EQ
JSR
. WORD
INC
CHP
BGY
CLR

STSTNM, dDISPLAY
HIRPT, STINES

$25.
, SERMAX
119, SLPAOR
OOFS,OQDPB.IOIO
ofFT,380P8.
B+11
:gXITH,GIBYPRSS
#SH12,
3. SWR
TESTY
R2
o8FC, R
SiSTALLO
&, SLPERR
#STACK,
SP

R1,980PB. B+12
RO, o#CALL B
R2

RO, JUSTALL
STALLO
FC.380PB B+12
RO, ##CALL B
R2
39
RO. MSTALL

09 24

PAGE 72

StQ 0068

LERR THE ERROR FLRG (SERFLG)

PC, LOOPRM
ITESYH,ilSLPEIR

THE PRRMETERS FOR THE

JSR

024612
007432
001102
001506
000031
007 374
00152
001516
007672

008737
012737
013777
013737
112737

TEST

UP THE LOOP ON ERROR RDORESS
ORD THE TEST NUMBER INTO THE DISPLRY REGISTER
HE ITERATION COUNT
RRORS ALLOWED FOR TEST
LOOP RODRESS

007332
007336

MACY11 30A(1052)
27-JUuL-78
OSCILLATING SEEK TEST

L YK YL TR

RPOU/S/6 MECHANICAL AND RERD/HRIT% TEST
Pi1
27-JW.-78 09. 18

TO EXITY ON ERROR
LEAR STALL SWITCH (NO STRLL)
»STALL REQUIRED?

s NO--BRANCH
» YES--SET SWITCH
+SET NC TO F(C
;START AT 26RO IF STALLS REQUIRED
,SETUP THE ERROR LOOP RDORESS
,L?flD THE STRCK POINTER

» 60 EXECUTE THE COMMAND

+STRLL?
» NO--BRANCH
. YES-GO TO STALL ROUTINE
,;éfli POINTER

.60 EXECUTE THE COMMAND
+STALL?
- NO--BRANCH
. YES--GO TO STALL ROUTINE
»TIME POINTER
STALLO
;UPDATE THE TIME
ofSTALLO
S#NMXSTAL. SRSTALLO . TIME TO BIG?
+ NO--BRANCH
18
» YES--STRRT OVER RT ZERO
S#STALLO
ok IC. RY
+MOVE TO NEXT CYLINDER
R1, a8LC
+LAST CYL INDER COMPLETED?
- NO--BRANCH
19
»SET NC TO LC
ofLC, R
& . SLPERR
»SETUP THE ERROR LOOP RODRESS
,hgno THE STRCK POINTER
#STACK,
SP
R1.9%0PB B+12
RO, o8CALL B
.60 EXECUTE THE COMMAND
+STALL?
R2
» NO--BRANCH
5%
»YES--GO TO STALL ROUTINE
RO, ASTALL
,Téfli POINTER
STALLO
ofi(. af0PB B+12 L
RO. 8CALL B
.60 EXECUTE THE COMMAND
+STALL?
R2
»NO--BRANCH
69
. YES--GO TO STALL ROUTINE
RO. NSTALL
. TIME POINTER
STALLO
.UPDATE STALL TIME
S#STALLO

ORMXSTAL, oRSTALLO, TINE TOO BIG?
4s

S8STALLO

. NO--BRANCH
»YES--SET STALL

TIME BRCK TO 2ERO

CZRJIRC RPOU/S/6 MECHANICRL RANO REHD/HRIT% TEST
CZRJIRC P11
27-JW-78 09 18
007660
007664
007670
007672

163701
020137
002340
000004

001514
001510

69
EXITY

MACY11

30R(1052)

27-JuL-78

09 24

PAGE

OSCILLATING SEEK TEST
SuB
cne
BGE
SCOPE

ot IC. R
R1,38FC
4s

;NEXT CYL INDER
- DONE?
- NO--BRANCH
. LOOP

AY
~

THIS TEST WILL CRUSE THE DRIVE TO EXECUTE FORWARD AND REVERSE
SEEKS FROM "NC1"TM AND "NC2TM RESPECTIVELY, "NC1" WILL BE INCREMENTED
BY "IC" AND "NCZ” WILL BE DECREMENTED BY "1C" UNTIL "NC1TM" IS
GREATER THAN THE INITIAL VALUE OF "NC2" AND "N(C2" IS
LESS THAN THE INITIAL VALUE OF "NC1"
AT THE COMPLETION OF
ERACH SEEK COMMAND THE PROPER INDICATORS RRE EXAMINED TO
ENSURE PROPER OPERATION
"NC1" AND "NC2" DEFAULT TO
"FC" AND “"LC" RESPECTIVELY

3679

:'_,S¥;!!!!t!t!!!!t!!t!!t!u!!!!!!t!!tlltll!!l!l!l!tl!t!tt“ttltl!"

001436

001234

010074
000005

001102

024612
010004

QQ
,02

m1506
000031
007762
001524
001516

010072

001510
001512
010014
001100
004136
025146
004136
025146
001514
001514
001512

001110
171202
001204
001115
001106
004134
004135
001252

L X

3676

XK X

_X X

_X_J

PR
32200028000 030008300:83¢008030808000008000000000002002230200808¢%4
- 3TEST 6§
CONVERGING/DIVERGING SEEK TEST

649

19
TESTS

001110
19

001510

EXITS

NOP
BIT
BNE
JHP

8B ITS+(5%2), TSTNMS . DO THIS TEST?
649
- YES--BRANCH
TSTé
+NO--GO TO THE NEXT TYEST

#5, RSTSTNM

+SET UP TEST NUMBER AND

JSR

PC, LOOPRH

.LORD THE PARMETERS FOR THE TEST

MOvVe

ofFS, J80P8 B+10 . FS

MOV
HOV
MOV
MOV
MOVB
MOV

Hove
MOV
MOV
MOV
MOV

MOV

MOV
JSR
MOV
JSR
RDO
sus
CHP
BGT
CHP
BGE
SCOPE

CLEAR THE ERROR FLRAG (SERFLG)

STESTS, SMMSLPERR
SETUP THE LOOP ON ERROR ARDORESS
STSTNM, @DISPLAY
,LORD THE TEST NUMBER INTO THE DISPLAY REGISTER
SfRPT, STINES
GET THE ITERATION COUNT
#25. , SERMAX
+MAX ERRORS ALLOWED FOR TEST
#19, SLPROR
-SETUP LOOP RODDRESS

ofFT,80PB B+11
SEXITS, SMBYPRSS
ofFC. R
ofL(. R2
§. . SLPERR

FT
, GO TO
;START
+START
,SETUP

R1,o#0PB. B+12
RO, ##CALL. B
R2.MDPB B+12
RO, o#CALL B
o IC. RY
ot IC.R2
R1,e8LC
EXITS
R2,88FC .7
19

,NC1
. G0 EXECUTE THE COMMAND
,N(2
;GO EXECUTE THE COMMAND
+NEXT NC1
s NEXT NC2
- DONE?
» YES--BRANCH

§STRCK, SP

EXITS5 ON ERROR
NC1 AT FC
NC2 AT LC
THE ERROR LOOP RDDRESS

;LORD THE STRCK POINTER

»NO--BRANCH
. LOOP

PR 330600000200 00000008028:280000000000020920000328303202002020923008800%]
. XTEST 6
SERVO RODRESSING LOGIC NOISE GENERRTOR

X
X
X

IN THIS TEST R SEEK IS DONE TO CYL "NC" THEN R SEEK TO
NC+4 THEN NC+1 THEN NC+3 THEN NC4Z THEN NC45
NOW “NC" IS UPDRTED
BY "I1C" AND THE RABOVE SEQUENCE IS REPERTED UNITL "LC" IS

SEQ@ 0069

CZRJIAC RPOU/S/6 MECHANICAL AND RERO/HRIT% TEST
CZRJRC P11
27-JUL-78 09 18
6

3718
3719
3720
3721
3722
3723
724

3725

3726
3727
3728
3729
3730
3731
3732
3733
3734
3735
3736
3737
3738
3739
INnD
37
J7v2
3743
Iy
37u5
I7v6
37?7
3748
379
3750
3751
3752
3753

I |
.
X

010074
010074
010076
010104

010106
010112

010120
010124
010132
010140
0101%6
010154
010162
010170
010176
010204
010210

000240
033737
001002
000137
012737

001234

010340
000006

001102

010220
010226

024612
010204
001102
001506
000031
010162
001524
001516
010336
001510
001512
000005
010220
001100

010236
010242

004136
025146

010214

010232
01023

010246

010254
010260
010266
010272
010300
010304
010312
010316
01032
010330
010334
010336

004737
012737
0137277
013737

001440

1127237
012737
113737
113737
012737
013701
013702

001110
171002
001204
001115
001106
00413y
004135
001252

MACY11 30A(1052)
27-JUL-78
09 24
PAGE
SERVO RODRESSING LOGIC NOISE GENERRTOR

EXCEEDED BY ANY OF THE RBOVE VRLUES.
THE INITIAL VALUE OF
IS "FC"
AT THE COMPLETION OF EACH SEEK COMMAND THE
PROPER INDICATORS ARE EXRMINED TO ENSURE PROPER OPERARTION

Stq 0070
"NC"

%§¥!!ll!l!!l!!!!t!!lt!l!!!!!lltt!t!l!!!!lll!l!!!!l!!!!l!!!ltllt!!
6
NOP

649

TEST6

001110

004136

BIT
BNE
JHP
nov

JSR
MOV
MoV
MOV
MOVB

OB ITS+<6%2>, TSTNNS , DO THIS TEST?
649
» YES--BRANCH
TST7
.NO--60 TO THE NEXT TEST
%6, s#STSTNM
+SET UP TEST NUMBER AND
,CLEAR THE ERROR FLRG (SERFLG)
PC.LOOPRN
,LORD THE PRARMETERS FOR THE TEST
STEST6, SASLPERR
, SETUP THE LOOP ON ERROR RDORESS
STSTNM, @DISPLAY ., LOAD THE TEST NUMBER INTO THE DISPLAY REGISTER
JERPT, STINES
GET THE I1TERRTION COUNT
#25. , SERMAX
;MAX ERRORS ALLOWED FOR TEST

HOVB
nove

oifS, 980PB B8+10 .
ofFT,a80PB B+11 .,

MOV
sue
MOV
MOV
CHP
BGT
MOV
JSR
ADD
JSR

ofL(, R2
#5.R2
® . SLPERR
fSTACK, SP
R1.R2
EXITE
R1,980PB. B+12
RO. S8CALL B
84, 980PB B412
RO. 38CALL B

JSR

RO. 38CALL B

JSR
SuB
JSR
ADD
JSR
ADD
BR
SCOPE

RO. 8CALL B
%1, 80PB. B+12
RO. o8CALL B
83,980PB. B+12
RO, o#CALL B
ofiIC.
R}
19

Hov

MoV
MOV

Suse

004136

RADD

004136
004136
004136

EXIT6e

#1585, SLPRDR

SEXIT6. SRBYPARSS
offF (. R1

SETUP LOOP RDDRESS

TO EXIT6 ON ERROR
ICKUP "FC"

FORM LRST CYLINDER THAT
. 1S RVAILABLE FOR TESTING

,SETUP THE ERROR LOOP RDDRESS
,LORD THE STRACK POINTER
»LRST CYL INDER

» YES-~BRANCH
., NC
. GO EXECUTE THE COMMAND
. N(C+y
, GO EXECUTE THE COMMAND

8$3.980PB. B+12

. N(+1

82.980PB. B+12

. N(C+3

,G0 EXECUTE

THE

COMMAND

, 60 EXECUTE THE COMMAND
,NC+2
, GO EXECUTE THE COMMAND
., N(+5
,G0 EXECUTE THE COMMAND
. LOOP

N
N
L

3773

010340

L. X

_X_J

PR 203000000000 000000000: 080233 8000280222022020220822222300222028
0¢8]
. 3TEST 7
RANDOM SEEK TEST

THIS TEST PERFORMS RANDOM SEEK OPERATIONS BETWEEN CYL INDERS 'FC'
'LC’.
RAFTER ERCH SEEX, THE POSITION OF THE DRIVE 1S VERIFIED BY
RERDING A SECTOR FROM THE CURRENTLY ADDORESSED CYLINDER AND TRACK
THE TRACK ADDRESS IS INCREMENTED FOR ERCH SEEK SO THAT VERIFICRTION
OF POSITIONING OCCURS USING ERCH HERD
TRACK RDORESSES RARE INCREMENTED

BETHEEN PRARAMTERS

'FT'

AND

'LT'

,,t;t!!!l!!!!!!!!!!!t!l!!!l!tl!l!!!t!l!!!!X!!!l!!t!tl!!!t!!!!!!!!
TST

RPOM/S/76 MECHANICRL AND RERD/WITE7TEST
P11
2?7-JUL-78 09 18

010340
010342
010350
010352
010356

000240
033737
001002

000137

010720
000007

010364
010370
010376
010%0%
010412
010420
010426
0104 3u
010442
010846
010454
010462
010466
010474
010502
010504
010510
01051%
010516
010522
010524
010530
010534
JU10540
010542
010550
010550
010556

004737
012737
013777
013737
112737
1137237
112737
112737
013708
012737
012737
012706
013737
023737
001422
004737
013746
005046
013746
005216
163716
004?737
062637
005726
0137237

024612
010462
001102
001506
000031
001516
000105
000173
034516
010716
010462
001100
001510
001510

012737

012737
012706
004037
012737

012706
113764
016446
006316
006316
000316
105766
001401
106216
106216
112637
013746
005216
122637
103007
103403
106037
000403
112737

001442

001234

001102

649

001110
170536
001204
001115
004135

004106

004126

001252
001106
004136
001512

TEST?

JSR

PC.LODOPRM

Mov
nov
MoV
nove
nove
nove
Hove
nov
1}
MOV
MoV
nov

CLR

MOV
INC

Sus
JSR
RDD
TST

001510
023614
004136
004136

No4116

010550
001100
025034
010566
001100
00N 104
000020

001110

MOV
MOV
MOV
MOV
HOvVe
MoV
RSL
RSL

000010

000001
29

004174
001630

MOV

JSR

001110

00417y

SWARB
TSTB
BEQ
INCB
INCB
Hnove
MOV
INC
cnP8

BHIS

004174
004174

6
27-JuL-78

TST!O
87, 8STSTNN

Hov

001512

NOP
BIT
BNE
JHP
MoV

CHP
BEQ
JSR

023512
023610

000001

MACY1I1 30A(1052)
RANDON SEEK TEST

BLO
CLRB
B8R
HMove

09 24

PRGE

StEQ 0071

"'lTS#(?!Z) TSTNHS, DO THIS TEST?

STEST?. JBSLPERR

. YES--BRANCH
. NO--GO TO THE MNEXT TEST

+SET UP TEST NUMBER AND
,CLERR THE ERROR FLAG (SERFLG)

;LORD THE PRRMETERS FOR THE TEST

. SETUP THE LOOP ON ERROR ROORESS

STSTNM, dDISPLAY .LORD THE TEST MUMBER INTO THE DISPLAY REGISTER
SRPT, STINES
.BET THE ITERATION COUNT

#25 , SERMAX
;MRAX ERRORS ALLOMED FOR TEST
FT.0P8 B+11
.LORD STRARTING TRACK RDORESS
#SEEK, JB0PB R+2 ; SEEK=COMMAND
SREADHO.DPB. B+2
. RERD HERDER & DATA COMMAND

RPAOR. R4
SEXIT?, BYPASS

) 1 RROR TERMINATION RDORESS

#STACK, SP

+SETUP THE STRCK POINTER

STEST?, SLPADR
FC.DPB B+12
FC.LC

19
PC, SRAND
$SHINUM, -(SP)
-(SP)
LC, -(SP)

;UNIBUS RDORESS OF THE RM11

. SETUP THE LOOP ON TEST RDDRESS
~INITIAL CYLINDER RDORESS
+CYLINDER LINITS THE SAME °?

.BR IF THEY ARE
»CYCYLE THE RANDOM NUMBER GENERATOR
~USE THE HIGH RANDOM NUMBER
-UPPER DIVIDEND
+FORM THE DIVISOR

(SP)
» INCREMENT
FC, (SP)
+SUBTRACT THE LOMER LIMIT
PC. 01V
.DIVIDE
(SP)+,DPB B+12
.ADD THE REMAINDER TO THE INITIAL
(SP)+
-DISCARD THE QUOTENT
OPB B+12.0PB R+12
,COPY NEW CYI INDER RODDRESS

,SLPERR

8STACK, SP

RO, MCALL R
&, SLPERR

#STACK, SP

»,SETUP

THE ERROR LOOP RDORESS

.LORD THE STRCK POINTER

. GO EXECUTE THE COMMAND
.SETUP THE ERROR LOOP RDORESS

.LORD THE STRCK POINTER

DPB R.RPCS2(RY) ,SELECT THE DRIVE
RPLA(RY), -(SP)
,GET THE LOOK RHEAD REGISTER
(SP)
+ALIGN THE SECTOR RDORESS
(SP)
+ALIGN THE SECTOR RDORESS
(SP)
»PUT RODRESS IN LOWER BYTE
1(SP)
+IN THE 1ST 20% OF SECTOR 7
28
.BR IF YES
(SP)
» INCREMENT THE SECTORP RDORESS
(SP)
(SP)+,0DTAOPB+10
PRMLMT+22,
- (SP)
(SP)
(SP)+.DTROPB+10

4s
39
DTRDPB+10
4s
#1,DTADPB+10

CYLINDER

» INCREMENT THE SECTOR RDORESS
.LORD THE OPB
.PUT LAST SECTOR RDODRESS ON THE STRC(K
+ INCREMENT T
. NEW SECTOR AODRESS TOO LARGE °

.BR IF NOT
+BR IF RDORESS IS Z GREATER
+RESET TO SECTOR ADORESS O
- CONT
I NUE
+RESET RODRESS TO SECTOR 1

CZRIAC RPON/5/6 MECHANICAL RAND RERD/WIT%;EST
CZRJIAC P11
2?7-JuL-78 09 18

3830
3831
3832
3833

010670
010674
010700
010706

004037
105237
123737
101403

3835
3836
3837

010716

000004

3834

010710

113737

025146
004135
004135

001520

001516

004135

3838

JSR
INCB
(MPB
8LOS
EXIT?

MACY11 30A(1052)
RANDOM SEEK TEST

novB

SCOPE

27-JUL-78

RO, J8CALL B
OPB B+11
OPB B+11.LT
EXIT?

FT.0PB B+11

1383800000200 800 008000

09 2%

PRGE 76

StQ 0072

. GO EXECUTE THE COMMAND
. INCREMENT THE TRRCK RDORESS
SMAX
| MY ?
.BR IF NOT

,RELORD STARTING TRACK RDDRESS
.LOOP ?

0330003008300 000000030200 00000 0000008084

ggsg

- XTEST

3841
3842
3843
3844
3845

.3
»
. |
X
%

THIS TEST VERIFIES THAT THE SERVO HRS SETTLED DOMN AND THAT
THE DRIVE IS ON CYLINDER WHEN THE DRIVE INDICATES SEEK COMPLETE
RANDOM SEEKS ARE 1SSUED BETWEEN CYLINDERS "MC1' AND 'NC1+1(C’
("NC1' STRRTS AT VALUE °'FC').
AT THE COMPLETION OF 1000 (10) SEEKS.
'NC1°' 1S INCREMENTED BY VALUE 'IC' AMD THE SEQUENCE IS REPERTED

3848
3849
3850
3851
3852
3853
3854
3855
3856

X
¥
|
. ¢
. |
%
. X
%
X

WHEN THE SEEK COMPLETES. THE PROGRAM RERDS THE DRIVE'S LOOK-RHERD
REGISTER (RPLR) TO DETERMINE THE ADORESS OF THE SECTOR ROTRTING
|INTO
POSITION
THE PROGRAM THEN ISSUES R WRITE HEROER AND DATA COMMAND
FOR THRT SECTOR
IF THE DRIVE'S POSITIONER HAS NOT SETTLED DOWN OR
IF THE POSITIONER 1S NOT ON CYLINDER (IF THE DRIVE IS RN RPOM, THE
OFF CYLINDER CONDITION MUST LAST FOR AT LEARST 800 US)., THE DRIVE
WILL REPORT A 'WRU' ERROR
(RP0O5/6'S MAY ALSO REPORT °"NHS' ERROR UNDER
ERRORS IN THIS TEST INDICRTE THAT THE SERVO SYSTEM MAY NOT BE ROJUSTED
CORRECTLY, THAT THE DRIVE IS MALFUNCTIONING. OR THRT R PACK WITH

gag

ggg;

3860
3861
3862
3863
3864
3865
3866
3867
3868
3869

3873
3874
3876

3876
3877
3878

3879
3880
J881
3882
3883
388y
3885

010720
010720
010722

000240

010730
010732
010736

001444

001234

012024
000010

001102

0107484

004737

024612

010760
010756
010768
010772
011000

012737
013777
013737
112737
012737

011126
001102
001506
000031
011006

001110
170156
001204
001115
001106

649

‘LC’

1S MOUNTED ON THE DRIVE

RANGE TO PERMIT THIS TEST TO BE EFFECTIVE

3000003230000 0000000:0000 0000020000 02000000 8002000000 0022000¢84F

TST10

033737
001002
000137
012737

INCREMENTED BEYOND

THIS TEST IS VALID ONLY IF THE OPERATION IS STARTED WITHIN R FEHW
HUNORED MICRO-SECONDS RFTER SEEK DONE OCCURS
THE NECESSARY TIME
TIME DEPENDENT PRRAMETERS OCCUR FREQUENTLY ENOUGH WITHIN THE REQUIRED

'NC1° HAS BEEN

THIS TEST USES THE EXTENTION BITS IN THE LOOK-RHERD REGISTER TO DETERMINE
WHETHER OR NOT IT CAN PICK UP THE SECTOR ROTATING INTO POSITION
THE
TEST IS OPTIMIZED SUCH THAT IF THE DRIVE SIGNALS SEEK DONE WITHIN
THE FIRST 80X OF THE SECTOR CURRENTLY UNDER THE HERD. THE TEST WILL
TRY TO RDORESS THE NEXT SECTOR
BASED ON OBSERVATION., THE PROGRAM
IS RBLE TO START THE OPERATION WITHOUT LOSING R REVOLUTION MOST Of
THE TIME

.
. |
X
. ¢
. ¢
.
X
. 3
. |
. |

332;0

IS COMPLETED WHEN

MARGINAL SERVO TRACKS

3859

3872

THE TEST

SERVO SETTLE DOWN TEST

NOP

BIT
BNE
JHP
HOV

ofBiTS+(10%2)>, TSTNMS , DO THIS TEST?
648
» YES--BRANCH
TST11
+NO--GO TO THE NEXT TEST
#10, SRSTSTNN
+SET UM TEST NUMBER AND

JSR

PC, LODPRN

MOV
MOV
MOV
MOvB
MOV

CLEAR THE ERROR FLRG (SERFLG)
.LORD THE PRARMETERS FOR THE TEST
STEST10.98SLPERR , SETUP THE LOOP ON ERROR RDORESS
STSTNM. dOISPLAY ,LORD THE TEST NUMBER INTO THE DISPLRY REGISTER
JARPY, STINES
GET THE ITERATION COUNT
#25 , SERMAX
+HAX ERRORS RLLOWED FOR TEST
£#19, SLPARDR
. SETUP THE LOOP RDORESS

(ZRJIAC RPOM/S/6 MECHANICAL AND READ/WRITE TEST
CZRJIRC P11
27-JuL-78 09 18
T10

i g

gubh

BIEER

ISERRETFSIRES £0

ol oub

b ) -

b g )
o
b o
b gubt gub
b g
o
g
g
b g

b pub b -

s gub

b
e

b
b -l
g

b gub b

b -l g

b b gud
b

b g

b
b

b
b el

b o

gud

0000000 00000 00000 o o

011060
011066
01107%
011076
011102

PREFI4

b o

R
LT E LT
3 PR PP b ERREEEREREEREEERREREE : #43243493935%

3891
3892
3893

011006
011006
011014
011022
011030
011036
011044
011052

oogoooe

3886
31887

112737
112737
113737
013737
013737
013737
013737

012737
012737
005000
004737
005001
113701
013704
0Cn?737
012737

012737

000105
000161
001516
001510
001510
001510
001514

176000

047714

004106
004166
004175
00u116
00%176
001532
001350
0o%170
004172

004104
034516
042520
012022
011126
001100
000340
001244

001252
001110

170212
001374

170212
001406
011756

027054

000010

000040
000010
004116
004116
000105
177776
000012

000340
040000

19
000000
023304
001 344
000010

29
3s

00003y
001270
000000
4s

177776
000012

nove

SSEEK, 380PB R+2 , SEEK=COMMAND
SWRITE, DTROPB+2 ; COMMAND

CLR
JSR
CLR
HovB
MOV
JSR

177776

004 104
042036

Mov

MoV
MoV
MOV
TST
BEQ
8ni
Hov
hov

MoV
MOV
MOV

MOV

MoV
MOV
nove
MOV
MOV

HOVB
CLR

TST8

eMI
HAIT
BR
HOV

BIT
BEQ
MOV

000040
000010

000010

037400
001244

023154

000002
000004

000000

JSR
ERROR

TST10R

09 24

SERVO SETTLE OOMMN TEST

nov
Hov
nov
MoV
MoV

TEST10

6
27-JUL-78

30A(1052)

MOv8
HOV8
Hov

030362

MACY11

MOV
HOve
MOV
TST
BEQ
MOV
RDD

FT,0TAOPB+11
FC.0P8 A+12
FC.DTROPB+12
FC.NC1
IC,DELTA

PRGE 77

; TRARCK RDORESS FOR THE WRITE
CYLINDER RODRESS FOR THE SEEK
;CYLINDER RODRESS FOR THE WRITE
STARTING CYL INDER
- CYLINDER INCREMENT VALUE

#-(256 v ). OTAOPB+N
. WORD COUNT
SBUFFER,OTROPB+6
.BUFFER RDORESS
RO
;PRYTERN POINTER (WC PATTERN;

PC, SETBWF

.LORD THE WRITE BUFFER

R1
DPB R, R1

-CLEAR REGISTER
.LORD DRIVE ROORESS

SEXIT10.BYPRSS

.ERROR EXIT FROM TEST

,SETUP

RPROR, RY
PC, CLRQUE

,SLPERR

8STACK, SP

&PR7, 98PS
CLKSTR
3
19

oPKV, - (SP)
PKV, - (SP)

oLKV, - (SP)

+UNIBUS RDDRESS OF THE RH11
,CLERR THE OPERRTION QUEUES
THE ERROR LOOP RDORESS

+LORD THE STRCK POINTER

,SET PRIORITY TO ?7
»SEE WHICH CLOCK ON SYSTEH
+BR IF NO CLOCK
+BR IF KW11-L CLOCK

-SAVE THE VECTOR
»SAVE

THE

- CONT
I NUE

.SAVE THE

VECTOR RADDRESS

'L’ CLOCK VECTOR

LKV, - (SP)
-SAVE THE VECTOR ADDRESS
#TST10B.9(SP)
., CHANGE THE VECTOR
SOORT
I, SRPVEC
. CHANGE THE RPOM/RPOS VECTOR
#8 , SEKTHR
.LORD THE SEEK TIMER
#BI1T05,. RPCSZ(RY)
. iINIT THE MASSBUS
R1,RPCSZ(RY)
+RESELECT THE DRIVE
OPB A+12 RPCA(RY)
.LORD THE CYLINDER RDORESS
OPB A+12 CYL DS . CYLINDER ROORESS FOR ERROR MESSAGE
#SEEK, RPCS1(R4) ,START THE SEEK
ofPS
+CLERR THE PRIORITY
RPDS1(RY)
+HAS THE DRIVE FINISHED ?
5%
+BR IF IT HAS
+HRIT FOR THE OPERATION TO COMPLETE
4$
- CONT
| NUE
#PR?7. 98PS
. CHANGE PRIORITY TO MAX
#B1T14,RPOS1(RY)
,ERROR ?
6%
BR IF NOT
#0PB A, R2
.OPB POINTER
PC, SVRH11
»SAVE THE REGISTERS
23
+ERROR DURING SEEK
#B1705, RPCSZ(RY)
, INIT THE MARSSBUS

R1,RPCSZ2(RY)

/RESELECT THE DRIVE

TST10R

.BR

# 1SR, SRPVEC
CLKSTR
2(SP), 8(SP)
#4,SP

. SETUP THE RPOM/RFQOK VECTOR
+WHICH CLOCK
1F NONE

~RELORD THE CLOCK VECTOR

- CORRECT THE STRCK POINTER

SEQ 0073

RPO4/S/6 MECHANICRL RANO RERD/HRITE TEST
P11
27-JuL-78 09 18
T10

01136M
011372
011376
011402
011406
011410
011812
011418
011422
01142y
011426
011430
01143y
011440
011442
011446
011450
011452
011456
011460
011466
011472
011500
011504
011510
011514
011520
011626
011532
011540

011542
011550

0115562

011560
011564

$ FEERRRFERERTEETES!

011570

011576
011600
01160
011612
011620
011622
011630

011636

011644
011646
011654
011660
011666
011670
01167%
011702
011706
011712
011714
011720

012737
012706
110164
016446
006316
006316
000316
122766
001001
105216
105216
112637
013746
005216
122637
101007
103403
105037
000403
112737
012703
012764
012364
012364
012364
005037
012737
010137
112761

006 301
012761
006201
013764
005037
004037
023727
001026
005037
063737
023737
103100
013737
163737
023737
101003
013737
006237
023737
001002
000137
013737
004737
013746
005046
013746
005216

011364
001100
000010
000020

000300

001110

000001

00417y
001630
00417y
00417y

000001
004170

00417y

000000

30A(1052)

nov
Mnov
(1]
MoV
ASL
ASL
SWR8
CHPB
BNE
INCB
INCB
nove
MoV
INC
(MPB
BHI
8LO
CLRB
BR
HMovB
MOV
MoV
MOV
MOV

§ .SLPERR
8STRCK,
SP
R1.RPCS2(RY)
RPLA(RY),
- (SP)

CLR

DTROPB+16
S#DTRAOPB, TRNSHT

MOV
MoV
Hove
ASL
MOV
RSR
MOV
CLR

034360

034462
000000

JSR
P
BNE
CLR
ROD
CHe

001750
001532
001512

BHIS

001350
001350
001350

MOV

sus
CHp

BHI

001350
001512

011126
001532
023512
023610
001350

oov116

27 JUuL-78

SERVO SETTLE DOWN TEST

MOV

034430

)

MACY11

MoV
INC
CHP
BNE
JHP
MOV
JSR
MoV

CLR

MOV
INC

(SP)
(SP)
(SP)
#300. 1(SP)

09 24

PAGE 78

.SETUP THE ERROR LOOP RDORESS
,LOAD THE STRACK POINTER
»SELECT THE DRIVE
;GET THE LOOK AMERD REGISTER
-ALIGN THE
RDORE
SS

GN THE

(SP)
» INCREMENT THE
(SP)
- INCREMENT THE
(SP)+, DTROPB+10 :LORD THE DPB

(SP)
(SP)+, DTROPB+10
ys
39
OTROPB +10
4s
#1,0TROPB+10

SDTRAOPB+4, R3

SEQ 007y

SECTOR RDORESS
SECTOR ROORESS

PUT MRXIMUN SECTOR ADORESS ON THE STRC(K
. INCREMENT PRST THE MRXIMUM RODRESS
. NEW SECTOR RDORESS TOO LARGE ?
.BR IF NOT
B8R IF RDORESS IS 2 GRERTER THRAN MRAX|MUM
RESET TO SECTOR RDORESS O
- CONT
I NUE
-RESET RDORESS TO SECTOR 1

+POINTER

S0RVCLR.RPCST1(RY)
,CLERR THE DRIVE
(R3)4, RPUC(RY)
,LOAD THE WORD COUNT
(R3)+,RPBA(RY)
,LOAD THE BUFFER RDORESS
(R3)+, RPOA(RY)
,LORD THE TRACK/SECTOR RCOR

+RESET 'OONE' INDICRTOR
,LOAD °‘TRANSFER' DPB ADORESS
R1,0TUW
. RODRESS OF DRIVE TRANSFERING
.SET DRIVE ACTIVE INDICATOR
#1. DRVACT(R1)
R1
.SHIFT DRIVE ROORESS
. SETUP THE OPERATION TIMER
#1000 , TIMER(R1)
R1
.RESTORE R1
DTROPB+Z RP(CS1(RY)
,START THE OPERATION
o#PS
.CLERR THE PRIORITY
RO, DRVCL1
WRIT FOR OPERATION TO COMPLETE
SEKCNT. #1000
.FINISHED SEEKS ?
69
+BR IF NOT
SEKCNT
.CLERR THE SEEK COUNT
1C, NC1
.RDD THE INCREMENT
NC1,LC
+EXCEEDED THE CYLINDER LIMIT ?
EXITIO
+BR _IF IT HARS
LC.DELTA
+GET THE NEXT 'ZONE' RODDRESS
NC1.DELTA
+CHECK THE DIFFERENCE
IC,DELTA
+DIFFERENCE GRERTER THAN THE INCREMENT
69
LBR IF IT IS

1C, DELTRA
SEKCNT
FC.LC

79
TESTIO
NC1,0PB R+12

PC., SRAND

+USE THE ICREMENT PRARRMETER
» COUNT THE NEXT SEEK
+BEGINNING AND ENDING CYL INDERS THE SRME ?
.BR IF NOT
.BR IF THEY RRE
+RESET THE CYLINDER RODRESS

+CYCLE THE RANDOM NUMBER GENERRTOR

$HINUM, -(SP)

+USE THE HIGH RANDOM NUMBER

DELTR, -(SP)

-FORM THE DIVISOR

-(SP)
(SP)

+CLEAR

THE

. INCREMENT

UPPER DIVIDEND

CZRJIRC RPON/S/6 MECHANICAL AND lEflDMlTE TEST
CZRJIRC P11
27-Ju.-78 09 18
T10

3998
3999
4000

4001

011722
011726
011732
01173%
011742
011744
011752
011756
011762
0117684
011770
011774
011776
012008
012010
012016
012020
012022

004737
062637
005726
023737
001754
013737
000137
005337
001016
012702
004737
10402%
012768
11016%
016676
000401

023614
004116
O00%116

004176

004116
011126
001344

004176
TST108

004104

082036
(00040
002010
00(002

000010
000000

000002
000004

19
EX|T10

)

MACY11

30R(1052)

27 JUL- 78

JSR
RDD
TST
e
8tQ
nov
Jnp
DOtC
BNE
nov
JSR
ERROR
MOV
MOVB
MoV
B8R

PC.S0IV
:DIVIDE
(SP)+.0P8 R+12
,RDD THE REMAINDER TO THE INITIAL CYLINDER
(SP)+
+DISCARD THE QUOTENT
OPB. A+12 DTROPB+12 . SAME CYLINDER SELECTED RS LAST Time 2

SERVO SETTLE DOMM TEST

RTI
SCOPE

09 24

PRGE

+BR

19
#0PB R.R2

+CONTINUE IF NOT DONE
- 0P8 ROORESS

StQ 0075

IT WAS

DPB A+1Z DTROPB+1Z ., COPY NEW CYLINDER RDORESS
TEST10
- CONT
| NUE
SEXTMR
+DECREMENT THE SEEK TIMER
PC., SVRH11

,SAVE THE REGISTERS

24
. TIMEOUT DURING SEEK
#B!705,RPCSZ2(RY)
., INIT THE MASSBUS
R1,RPCS2(RY)
-RESELECT THE DRIVE
2(SP), &(SP)
+RESTORE THE CLOCK VECTOR RDDRESS

EXITIO

.ABORT THE TEST
. RETURN
.LOOP 7

PR 3820023000000 0003302+080300000000000
0030290803309 00230 002830000044
- RTEST 11
ALL SEEKS TEST

000240
033737
001002

001446

012042

012737

000011

012060

012064
012062
012070
012076
012108

012112

000137

004737

012737
013777
013737
112737
012737

gi%l%

113737
113737
113737
113737
013737
013737
012737
012706

012170
012174

004037
004037

012120

012126

012138
012182
012150
012166
121

THIS TEST VERIFIES THAT THE DISK DRIVE
TO ALL OTHER CYLINDERS

|
.
.3
. |
. ¢

BEGINNING WITH CYLINDER 'FC', THE TEST SEEKS TO EACH CYLINDER
BETWEEN 'FC' AND 'LC’' FROM CYINDER 'FC'
THE BEGINNING CYL INDER
RODRESS IS INCREMENTED AND THE TEST SEEKS BETWEEN THE NEW CYL INDER
RODRESS AND ALL CYLINDERS BETWEEN 'FC' AND 'LC'
THE SEQUENCE
CONTINUES UNTIL ALL CYLINDERS HAVE BEEN CHECKED

01202y
012024
012026
01203+

012036

X
:

2530020300000000000°00000000000000003
0003093080300 20030080000¢%¢

TST11

012244

024612

012164
001102
001506
000031
012112

00152%
00162%
001516
0015616
001510
001510
012242
001100
025336
025146

001234

001102
001110
167052
001204
001115
001106

004134
004154
004135
004155
0041316
004156
001252

CAN SEEK FROM ERCH CYL INDER

649

1§:

IESTH.

NOP
8IT
BNE

JHP

MOV

o8B ITS+(11%32>, TSTNNS . DO THIS TEST?
649
» YES--BRANCH
1ST12
+NO--GO TO THE NEXT TEST

#11,d8STSTNN

;SET UP TEST NUMBER AND

JSR

PC.LOOPRN

;LORD THE PARMETERS FOR THE TEST

HOVe
HOVB
HOVB
Hove
MOV
MOV
HOV
Mov

FS.0PB. 8+10
FS.DPB. C+10
FT,0PB. B+11
FT.0PB. C+11
FC.DPB. B+12
FC.DPB. (+12
SEXIT11,BYPRSS
#STACK, SP

: SECTOR RDDRESS
;SECTOR RODRESS
; TRRCK RDORESS
- TRRCK RODRESS
STRARTING CYL INDER RDORESS
+STARTING CYL INDER RODRESS
., TEST RBORT EXIT
,SETUP THE STRCK POINTER

JSR
JSR

RO. o#CALL €
RO, S8CALL B

.60 EXECUTE THE COMMAND
. GO EXECUTE THE COMMAND

MoV
MOV
MOV
HOVB
nov

;CLEAR THE ERROR FLRG

(SERFLG)

ATEST11,34SLPERR ., SETUP THE LOOP ON ERROR RODDRESS
STSTNM, dDISPLAY ,LOAD THE TEST NUMBER INTO THE DISPLARY REGISTER
SIRPT, STIMES
;GET THE ITERRTION COUNT
#25. , SERMAX
+HRX ERRORS ALLOWED FOR TEST
215, SLPRDR
.SETUP THE LOOP ROORESS

CZRJIRC RPO4/5/6 MECHANICAL RAND READ/WRITE TEST
CZRJIRC P11
T11
27-JUL-78 09 18
012200
012206
01221y
012216
012224
012232
012240
012242

063737
023737

001514
001512

004156
004156

013737
063737
023737

001510
001514
001512

004156
004136
004136

002365

002353
000004

MACY11

6
27-JUuL-78

09 24

PRGE 80

RLL SEEKS TEST
RDD
cne

BGE
MoV
RDD
EXITI

30R(1052)

CHP
8GE
SCoPE

1C.DPB (412

, INCREMENT THE ENDING CYL INDER RODRESS

19
FC.0PB (412
IC.OPb B+12

.BR IF NOT
,RESET ENDING CYL INOER RDDRESS
» INCREMENT THE STRARTING RDDRESS

LC.OPB

(+12

LC.DPB B+12
19

. CHECK

EXCEEDING MAXIMUN

EXCEEDING MAXIMUN ?
.BR 1F NOT
.LOOP ?

StQ 0076

(2R JAC RPOY/5/6 MECHANICAL AND READ/WRITE TEST
T
CZRJRC P11
27-JUL-78 09 18
4063
4064
4065

SBTTL
./%
/%
/%
/%
/% /%

/%
/%
/%

/%
/%
/%
/% :/%
/%
/% :/% : /%

/s
/%
/% -/%

/% :/%

MACY11

ALL

30A(1052)

SEEKS

6
27-JUuL-78

09 24

PRGE

TEST

%33 TIMING TESTS 1132
/%
/%

/%
/%

%.
%/.
%/:

%/:
%/%/.

/% /%

/%
/%

/%
/3%

STHE TINING TESTS WILL ENSURE THAT THOSE FUNCTIONS BE ING
+3TIMED ARE WITHIN THE TOLERANCES SPECIFIED IN THE “RPOM
+SENGINEERING SPECIF ICRTIONS".

;BTHE SEEK TINMING WILL BE PERFORMED USING EXPLICIT SEEK
;SOPERATIONS. AT THE COMPLETION OF ERCH OF THE TIMING
;g}sggg THE MININUN. PMAXIMUM AND AVERAGE TIMES WILL BE
./
./
/.

8:
%/:
8/:

%/:
8%/:
8/:

%/:
8:
8/:

%/
8/:
8/:

8/:
8/:
8/:

%/:
8/:
&/:

%/:
%/:
&/

2.
8/
3/

8:
%/
%/:

%:
8:
%/:

8:
%/%/:

%/:
%/:
%/:

%/:
&.
%:

%/
%/
%

%
%X
%

PR
3300200000800 008 00320330820 00000000008000000
000000000000 00¢4
- XTEST 12
ROTATIONRL SPEED TIMING TEST

;X
X
.3
X
X
X
.

012244
012244
012246
4101
4102

4103

4104
4106
4106

410?
4108
4109
4110

“itt

Y112
433

Wity
4116
4116
4117
i1

000240
033737
001002
000137
012737

004737
012737

013777
013737
112737
006737

001450

001234

013002
000012

001102

024612
012244
001102
001506
000031

001110
166632
001204
001115

001244

013002
012336
026672
013000
001510

001524

001516
000006

RAND THE OPERATION IS TIMED
THIS PROCEDURE 1S REPEARTED 10
TIMES THEN THE AVERAGE TIME IS CALCULATED AND C(HECKED TO
ENSURE IT IS WITHIN TOLERANCE
16 67 MS/REV + OR - 2% IF 60M2
16 67 MS/REV + OR - 2 5% |F 50HZ

%§¥!;tt!!ttl!!lxt!t!tl!t!!!t!!ttlt!tttt!t!l!!lt!!!tt!t!!!tt!xt!t!
12.
NOP

001106

00003y

000001

THIS TEST WILL STRART R SEARCH TO CYLINDER O. TRACK O, SECTOR
0.
RS SOON RS THE INTERRUPT OCCURS., THE GO BIT IS SET RGARIN

BIT
BNE
JHP
MOV

JSR
MOV
)
MOV
HOVB
TST
8GT
JHP
MoV
JSR
8R
JHP

MOV

MoV
HOVB
MOV

o8B ITS+(12%2>, TSTNHS ;DO THIS TEST?
64
. YES--BRANCH
TST13
+NO--GO TO THE NEXT TEST
#12, 34STSTNN
.SET UP TEST NUMBER AND
;CLEAR THE ERROR FLRG (SERFLG)
PC. LODPRM
-LORD THE PARMETERS FOR THE TEST
8TST12, SRSLPERR . SETUP THE ERROR LOOP RDORESS
STSTNN. @DISPLRY
. LORD THE TEST NUMBER INTO THE DISPLAY REGISTER
SBRPT, STIMES
;GET THE ITERATION COUNT
#25. , SERMAX
;HRAX ERRORS ALLOWED FOR TEST
A (LKSTA
s KW11-P CLOCK?
19
. YES--START TEST
TST13
;NO--GO TO NEXT TEST
#19, SLPADR
. SETUP LOOP ROORESS
RO. J8SRCHOO
.DO R MASSBUS INIT & RECAL
29
+RETURN HERE IF NO ERROR
EXIT12
-RETURN HERE IF ERROR
o8FC, RPCA(RY)
. FC
o8FS, - (SP)
FS
ORFT,1(SP)
FT
(SP)+,RPDA(R4)
.,LORD FT/FS

StQ 0077

CZRJAC RPO4U/5/6 MECHAN ICAL AND RERDMITE TEST

CZRJAC. P11

27-JUL-78 09 18

%119
4120
4121
4122
4123
4124
4125
4126

012402
012410
012412
012416
01242%
012426
012432
012436

012737
005005
012703
032737
001402
012703
012706
012701

4128

012%%6

012777

012466

012777

4127

4129
4130
“131

4132
4133

012482

012454
012462

001220

003004
001100
000012
027056

012654

027054
166714

O0M2777
0327684
001415
104412

000101
040000

166670
000012

012764
013768
104413
104017

000040
004164

012562
012556

005077
012718

166624
000131

012570

000001

012562
012572
012600
012606
012610

012777
0m2777
032764
001415
10412

000:31

000101
040000

166600
000012

012702
004737

004164
042036

4156

012630

013768

00v16M

4156
4157

4158

012622

012636
012640

012682

0127684

104413
108017

004737

4169
4160
4161
4162
4163
4168
4166
4166

012646
012660
012662
012664
012662
012666
012670
012672

005301
003304
000424
082777
008037
012600
006726
104812

4168
4169

012700
012708

004737
0127684

4167
4170
4171
“172
4173

wi7v

012678

012712
012720
012722
012724

012724

000040

00010t
177776

00416Y4

013764
1Cv413
104020

00%w164

000Q10
000010

000040

000010

012764

042036
0000840

478, PKV

NOV
CLR

;INITIALIZE THE TIMERS

;SETUP VECTOR

IN CASE OF OVERFLOMW

#DORT
I, dRPVEC
P KB

,SETUP RPOM/5/6 VECTOR
;STRART COUNTING AT Z2ERO

S§SEARCH, (RY)

START A SERRCH
+HAIT ON INTERRUPT

#101, IPKCS
,STOP THE CLOCK
881714, RPOS1(RY) ., ERROR?
29
» NO--BRANCH
- SAVE RO-RS

ERROR

(LR
MOV

§DTADPB.R2
PC. 8SVRH1

;INT EN. .,

COUNT UP AT

881705, RPCS2(R%) , MASSBUS CLERR
S8DTROPB. RPCS2(R4) ., SELECT DRIVE
-RESTORE RO-R5
17

oPKB
#SERRCH, (RY)
#131, IPKCS

+STRRT THE COUNT RT ZERYD
. START A SERRCH
START THE CLOCK

+HWAIT ON INTERRUPT

#101. IPKCS
.STOP THE CLOCK
#BIT14,RPDS1(RY) , IS "ERR=1"?
39
+NO--BRANCH
- SAVE RO-RS

S$0TRDPB.R2
PC, 8SVRHI Y

MOV

S8DTROPB, RPCSZ(RY) ,SELECT DRIVE

RESREG
ERROR

JSR

DEC
BGT
BR
8iC
CLR
HOV
TST
SAVREG

MOV

100KHZ

.OPB POINTER
»SAVE ALL THE RH11/RPO4 REGISTERS

MOV
JSR

MOV

SEQ 0078

., ESCAPE TO EXIT12 ON ERROR
; COUNT UP
;60HZ PARAMETERS
.60 H2?
; YES--BRANCH
;NO--50 HZ PARRIMETERS
;SETUP STRCK
;TIME 10 SEARCHES

8ic
BIT
8EQ
SAVREG

BiC
BIT
8EQ
SRVREG

PAGE 82

8131, IPKCS

HAIT

79:

PC. MSTRTMR

09.24

MOV

39.

012702

Hov

MOV
MoV
RESREG

000010

166516

SEXIT12,8ESCAPE
RS
8T7A.R3
6SWO6, 38C SHR
TEST12
8778.R3
8STRCK, SP
10 . R1

MOV
JSR

000010

027122

MOV
CLR
nov
81T
8EQ
nov
MOV
MOV

ROTRTIONAL SPEED TIMING TEST

MOV
WAIT

29
166610

012612
012616

000010
000010

000131

4152
4153
wish

022036

30R(1052)

JSR

166720
166704

004164
042036

Wive

TEST12:

000131

012702
0084737

012532
012540
012546
0125680

Wiv8
4149
4150
4151

00277y
000100

012522
012526

410
4ivi
WiNZ
W14l

4147

001206

012718
000001

012502
012510
012516
012520

4i%y
W45

012777
005077

013000

01247
012500

Wilw
4135
4136
4137

4138
4139

008737

T12

)
27 JUL-78

MACY11

.OPB POINTER
;SAVE ALL THE RH11/RPOM REGISTERS

#81705, RPCS2(RY) . MASSBUS CLERR

PC. SRCOUNT
R
19
8s
#101, PKCS
MPS
(SP)+. RO
(SP)+

S§CTROPB, R2

-RESTORE RO-R5
+DISK ERROR OCCURRED

;UPDATE THE COUNT

- DONE?
+NO--BRANCH
;YES--GO TO THE EXIT
.STOP THE CLOCK
-DROP THE PRIORITY
PC OF WAIT+2
POP THE PS FROM THE STRCK
; SAVE RO-R5

.OPB POINTER

JSR
HOV

PC. SVRH1
+SRAVE ALL THE RH11/RPO4 REGISTERS
#B1705, RPCSZ(RY) , MASSBUS CLEAR

MOV

#B 1705, RPCSZ2(RY) , MASSBUS

HOV
RESREG
ERROR

o#DTROPB, RPCSZ(RY) ., SELECT DRIVE
-RESTORE RO-RS
20
+CLOCK OVERFLCKED
INIT

CZRIAC RPON/5/6 MECHANICAL RND REARD/WRITE TEST
CZRJAC P11
2?2-JU-78 09 18
T2

013764
004737
012777
032737
001004
004037
002774
000403

012772
012776
013000

004037
003004
000004

000010
021546
001220

027254

9%
027254
EXIT1Z

4
27-JUL-78

30R(1052)

nov
JSR
nov
8IT
BNE
JSR

JE0TROPS, RP(S2(RY) . SELECT DRIVE
PC. ST CLK
+INITIRLIZE THE CLOCK
S1SR, IRPVE(
+RESTORE RH11/RPOM/5/6
ESHO6.
38C SHR
., 60 H2?
9
+NO -- BRANCH
RO, ETYPTIN
.60 TYPE THE TIMES

B8R

ExIT12

.60 TO EXIT

JSR

RO, ATYPTIN

.60 TYPE

ROTATIONAL

T?R

178

SPEED TINING TEST

SCOPE

09 24

PRGE 83

SEQ 0079

INT

VECTOR

-POINTER

+POINTER

A LO00P

THE

TIMES

000240
033237
001002
000137
012737

008737
012737
013777
013737
112737
006737

X
X

THIS TEST WILL COMMAND FORWARD SEEK CYCLES TO ROVANCE THE
CYLINDER BY ONE UNTIL THE INCREMENT IS GRERTER THAN THE
CYLINOER 'LC’, THEN REVERSE SEEXK TO CYLINOER 'FC'
THE
TIRE TO PERFORM ERCH SEEK 1S CHECKED TO ENSURE IT DOES NOT
EXCEED THE MAXIMUM TIME PERMITTED FOR R ONE CYL INDER SEEK
THE

TIME MUST BE LESS THAN

10MS

%,#lg!!t!!llll!!ltlllt!!!lltlll!!!ll!!!l!t!llt!!!!!t!lt!!!t!l!t!t
ST

001452

013446

000013

001234

001102

024612
013002
001102
001506
000031
001244

001110
166074
001204
001115

013446
01307y
026672

001106

01344y
003014
01344y

001100

001510
004176

013764
012714

X _X_J

R 3R
Rttt
000000000000 0000 0000000000000 0000000808
- BTEST 13
ONE CYLINDER SEEK TIMING TEST
N

012772

00% 164
024076
037400
000100

419%
4195
4196
4197
4198
4199
4200
4201
4202

012732
012740
012798
012752
012760
012762
012766
012770

[ X

"
“76
“7?
“78
479
4180
481
4182
“183
4184
4185
4186
4187
4188
4189
%190
“191
4192
4193

MACYI1

027056
013340
027054
166210
004176
000105

649

NOP
BIT
BNE
JMP

SUBITS+(13%2)>, TSTNMS , D0 THIS TEST?
64$
. YES--BRANCH
TST1y
+NO--GO TO THE NEXT TEST

£13.983TSTNA

+SET UP TEST NUMBER AND

JSR

PC., LOOPRN

.LORD THE PARMETERS FOR THE TEST

TST

S (LKSTRA

MoV

nov
MOV
nov
MOVB

8GT
JHP

001206
004176

166214
021332
00003y

TEST13.

(SERFLG)

fTST13, SASLPERR ,SETUP THE ERROR LOOP RODORESS
STSTNM. 3DISPLAY
. LORD THE TEST NUMBER INTO THE DISPLAY REGISTER
SRRPT, STIMES
»GET THE |TERRTION COUNT
#25 , SERMAX
+HRAX ERRORS RLLOWED FOR TEST

+KW11-P CLOCK?

. YES--START TEST
+NO--60 TO NEXT TEST

JSR

RO, S#SRCHOO

.D0 A MASSBUS

JHP
MOV

EXIT13
#T10.R3
SEXIT13,.SESCAPE
#STACK, SP
FC,a80TADPB+12

ERROR RETURN--SCOPE LOOP CALL
+PRARANETER POINTER
.. ESCAPE TO EXIT13 ON ERROR
. SETUP STRCK
,START WITH BEGINNING CYL INDER

MOV

MOV
MOV
MOV

INC
CLR
JSR

THE ERROR FLAG

19
TST1Y

B8R
29

.CLEAR

MOV
MOV

CLR
MOV
MOV

#1985, SLPADR

DTAROPB+12
RS

,SETUP THE LOOP RODRESS
INIT.

»NO ERROR RETURN

AND RECAL

+ INCREMENT THE BEGINNING CYL INDER
+SET THE UP/DOWN SHITCH TO UP
+INITIRLIZE THE TIMERS

PC. d8STRTMR
879, aPKV
+SETUP INCASE OF OVERFLOW
#0ORTI,RPVEC
,SET RPOM/S/6 VECTOR
oP KB
+START THE COUNTER AT Z2ERO
o#DTADPB+12. RPCAR(RY) ,LOAD DESIRED CYL INDER
#SEEK. (RY)
START R SEEK

CZRJIAC RPOU/S/6 MECHANICAL AND READ/WRITE TEST
CZRJAC P11
27-JUL-78 09 18
T13

%231
4232

4233
w23
4235
4236
4237
4238
4239
W240
w241

W2%2
W243
W2%4
w246
“2%
w247
w248

w249
4250

4251
4252
4253
4254
4255

4256

4257
4258
4259
4260

4261

4262
4263
4204

01320
013212

013218
013222
013230
013232
013239
013240
0132%%
013252
013260

013262
013264
013270
013277
013276

013300
013308

013312
013318

013320
013322
013326
0133
013336

0130

0136
013352
013138
013356

013360

01336
013370
013376

012777
000001

02777
032768
001415
108412
012702
004737
0127684
013768
10W413

000131

166166

000101
080000

166156
000012

00u416M
042036
000040
00%w164

000010
000010

104017
004737
004737

027122
026450

005237
023737

00%176
004176

N12706

177777

005705
001011

00272%
000722
005337
023727
003314
000424

On2777

005037
012600
005726
104412

012702

004737
0127?68
013764

000000

000101

166032

O013v0Ov
013406
013410
013410
01416
O01342¢

012764
013764
004737

000040
004164
024076

4272
42?3
w274

013436
013442
013444

ON037
003014
(00004

027254

4276

4277

‘Og;g

4280
4281
4282
4283
4284
4285
4286

013430

012777

(037?400

8131, IPKCS

RS
‘s

o#0TROPB+12
.MOVE TO MNEXT (YL INDER
o8DTROPB+12,.LC . OUT OF CYL INDERS?

+NO--60 DO THE NEXT SEEK

19§
o#0TRDPB+12

.60 DO THE NEXT SEEK
,MOVE TO NEXT (YL INDER

o#DTADPB+12,.
80
19
8%

. OUT OF (YL INDERS?
.NO--GO DO THE NMNEXT SEEK
.60 TO THE EXIT

ofPS
(SP)+, RO
(SP)+

,DROP THE PRIORITY
+PC OF WAIT+2
.POP THE PS FROM THE STRC(K
. SAVE RO-RS

CLR
MOV
TST
SAVREG

JSR
MOV
MOV

RESREG
ERROR

#1011, aPK(CS

#0TROPB.R2

+SET UP/DOWN SHITCH TO DOWN

,STOP THE (LOCK

;DPB POINTER

PC. dRSVRHI |
,SAVE ALL THE RMH13/RPO4 REGISTERS
881705, RPCSZ2(RY) , MASSBUS CLERR
SRDTROPB. RPCS2(RY) ,SELECT DRIVE
20

.RESTORE RO-R5
;REPORT CLOCK OVERFLOW

MOV
MOV
JSR

881705, RPCS2(RY) , MRSSBUS INIT.
S#0TADPB. RPCS2(RY) ,SELECT DRIVE
PC, ST (LK
, INITIALIZE THE CLOCK

JSR
T10
SCOPE

RO. S#TYPTIN

HovV

PP Pt PPt P

, XTEST 14

.
X
X
. |
A
X
i

;UP OR DOWN?
- DOWN--BRANCH

CHP
BGT
BR

B1(

EXIT13

.REPORT THE ERROR
;COUNT THIS SEE¥S TINME
+STALL FOR 2 MILLISECONDS

8-1.R5

021062

17
PC., J8COUNT
PC. SR THONS

MoV

,START THE (CLOCK
+HAIT ON INTERRUPT

TST
BNE
INC
cHp

ERROR
JSR
JSR

MOV

000010
000010

SEQ 0080

8101, IPK(S
.STOP THE CLOCK
$BI1TIY,RPDSI(RY) , ANY DISK ERRORS?
29
- NO--BRANCH
. SAVE RO-RS
S0TADPB.R2
.DPB POINTER
PC. ASVRH1 1
;SAVE ALL THE RH11/RP0OY4 REGISTERS
#B 1705, RPCS2(RY) . MRSSBUS CLEARR
S8DTROPB. RP(S2(R%) , SELELT DRIVE
.RESTORE RO-RS

B8R
DEC

000010
000010

PAGE 8v

8i1(C
8IT
BEQ
SRVREG
1"}
JSR
MoV
nov
RESREG

BLTY

00u416Y

042036
000040
004164

4265
4266
4267
4268
4269
4270

4271

104413
104020

004176
004176

177776

MoV
MALT

001512

7
C
MACY11 30R(1052)
27-JUL-78
09 24
ONE CYLINODER SEEK TIMING TEST

8 1SR, RPVE(C

iRt R Rt Rttt

,RESTORE RH11/RPOM/5/6 INT
;G0 TYPE THE TIMES
,POINTER
.LOOP ?

ettt

ACCESS TIME MERSURMENT TEST

VECTOR

ettt

THIS TEST WILL COMMAND A FORWARD SEEK FROM CYLINDER O TO
CYLINDER ‘LC', THEN R REVERSEK FROM CYLINDER 'LC' TO
CYLINDER 0.
BOTH SEEKS ARE TIMED AND CHECKED TO ENSURE THEY
ARE WITHIN THE TOLERANCE ALLOWED FOR THE ACCESS TIME MEASURMENT
THIS SEQUENCE IS REPERTED 128 TIMES (FOR R TOTAL
OF 256 SEEKS)
THE RVERAGE ACCESS TIME MUST BE LESS THAN 30 HS
CYLINDER 'LC' DEFRULTS TO 136 (10) FOR AN RPO4/5 OR TO 285 (1)

CZRIAC RPOU/S5/6 MECHANICAL AND READ/WRITE

CZRIAC. P11

27-Ju-78 09 18

:g;

4289

4290
4291
4292

4293
42Z%
4295

429

. 8

013446
013ws6
013850

013456
013460
013w6s

000240
033737

001002
000137
012737

001454

001234

014164
000014

001102

013472
0134?76
013508
013512
013520
013526
013532
013538
01350

004737
012737
013777
013737
112737
005737
003002
000137
012737

4307
4308
4309
4310

013552
013554
013560
013568

000402
000137
012703
012737

014162
003024
014162

012701

000200

4311

4312

4313
431y
4315
4316

013546

013572
0135?6

013602
013606
013618
013622

004037

012706
004737
012777
012777
005077

¥J17
4318
4319
4320
4321
4322

013626
013634
0136842
013660
013662
013660

0137684
012?64
012777
000001
0n2777
032764

432y

013670

10w412

4323
4325
4326

013666
013672
013676

0014156

012702
004737

432?
4328
4329
4330
“331

013702
013710
013716
013720
013722

10%017
006006

433

013734

006077

4332
4333
4335
“J36

4337
4338

4339

w40
43¥1
4342

01372%
013730

0137%0
0137%6
013764
013762

013764

013772
014000
014002

MACY11

30A(1052)

27-JUL-78

ACCESS TIME MEASURMENT TEST

09 24

PRGE 85

FOR AN RPOG

R L b0ttt
it Rttieitetstptotetitettoeetoetios]

TSTiN

4297
4298
4299
4300
4301
4302
4303
4304
4305

4306

TEST

012764
013764
104413

024612
013446
001102
001506
000031
001244
Ot1416M
013540

026672

001100
027056
014056
02705¢
165554

165560
020676

165520
000012

027122
026450

013764
012764

001510
000105

OM2777

000101

032764
001415
104412

001206

000101
040000

004737
008737

012777
1

001106

000034
000000
165530

000040
O00M164

165442

000131

040000

o8B ITS+(1422>, TSTNHS , DO THIS TEST?

649

BNE
JHP
MoV

6N
TST16
#14, JESTSTNN

. YES--BRANCH
+NO--60 TO THE MNEXT TEST
+SET UP TEST NUMBER AND

JSR
MoV
MOV
Hov
Hove
TST
8GT
JHP
nov

PC. LODPRM
GTSTIY, JESLPERR
STSTNM, @DISPLAY
SRPT, STIMES
#25. , SERMAX
o8(CL STA
19
TST15
#19, SLPADR

;LORD THE PARMETERS FOR THE TEST
,SETUP THE ERROR LOOP ROORESS
., _ORD THE TEST NUMBER INTO THE DISPLRY REGISTER
,GET THE ITERRTION COUNT
+MAX ERRORS ALLOMED FOR TEST
+KWi1-P CLOCK?
, YES--START TEST
.
+NO--60 TO NEXT TEST
:
.SET THE LOOP RDORESS

BR
JHP
MOV
MOV

28
+RETURN HMERE IF NO ERROR
EXITIY
+RETURN HERE ON ERROR
#T11,R3
.PARANETER POINTER
SEXITI4, SESCAPE ., ESCRPE TC EXIT14 ON ERROR

001110
165430
001204
001115

001512
000105
000131

004164
042036

NOP
BIT

TESTI4

JSR

MOV

- SETUP STA(K

JSR
MOV

PC, @8STRTMR
#79. PKV

+INIT
THE COUNTERS
.SET UP VECTOR IN (RSE OF OVERFLUHW

MoV
MOV
MOV
HRIT
BIC
BIT

LC. RPCR(RY)
»"RIDOLE" CYLINOER
8SEEK, RPCS1(RY) ,STRRT R SEEK
#131. IPKCS
. START THE CLOCK
+WAIT ON INTERRUPT
#101, 9PKCS
. STOP CLOCK
#BIT14,RPOS1(RY) ,ERR=1"

MOV
CLR

SAVREG

MOV
JSR

000034
000000
165416

165406

000012

.00 R MRSSBUS INIT & RECAL

#STACK, SP

MoV

etaQ

000010
000010

RO. 9 SRCHOO

+CLERR THE ERROR FLRG (SERFLG)

MOV
MOV
RESREG
ERROR
CLR

8128 . R1

.REPERT "0-136-0"

128 TIMES

®DORT
. SRPVEC
P KB

. SETUP RPO4/5/6 VECTOR
+START COUNT AT ZERO

» NO--BRANCH

&#DTAOPB.R2Z
PC, SASVRH1 1

.OPB POINTER
»SAVE ALL THE RH11/RPOY4 REGISTERS

. SAVE RO-R5

#B1705, RPCSZ(RY) , MASSBUS C(LEARR
d8DTROPB. RPCS2(RY) , SELECT DRIVE
+RESTORE RO-RS

1?7
RS

+SET UP/DOKN SWITCH TO UP

P KB

+START THE COUNT AT ZERO

JSR
JSR

PC, aRCOUNT
PC, SR THOMS

MOV
MOV

FC,RPCAR(RY)
+BEGINNING CYL INDER
#SEEK, RPCS1(RY) ,START R SEEK

CLR

HOV
HRIT

8iIC

BIT
BEQ
SAVREG

#131. PKCS

#101, PKCS

»UPDATE THE COUNT
+STALL FOR 2 MILLISECONDS

»START THE CLOCK
+HAIT ON INTERRUPT

. STOP THE CLOCK

881T14,RPDS1(RY) ,ERR=1?
39
» NO--BRANCH
. SAVE RO-RS

SEQ 0081

CZRJAC RPO4/5/6 MECHANICAL AND amoxmns TEST
(ZRJAC P11
27-JUL-78 09 18
T1Y

W43

014008

012702

004164

W34S
w46

014018
014022

01276%
01376%

000040
004164

w344

014010

004737

W37
W8
N9

014030
014032
014038

104413
104017
0127205

4352
4353
WI54
4355
4356
4357

014050
014052
014054
014056
014068
014070

005301
003263
000424
082777
005037
012600

4360
wle1

014076
014102

4363

014114

4350
4351

4J58
4359
%362

01900
0190%%

014072
01%07%

014106

W36M
4365
436b
4367
4368
4369

014122
014124
014126
014126
014134
014142

4371

014154

4370

4372
ng;g

014146

014160
014162

004737
004737

005726
104412

042036

177777

000101
177776

012702
004737

004164
082036

013764

004164

012764

104413
104020

000040

012764
013764
004737

000040
004164
024076

004037

027254

012777
003024
000004

165314

000010

#81705, RPCS2(RY) , MRSSBUS CLEAR
S80TROPB, RPCS2(RY) , SELECT DRIVE

037400 020344

17
-1.R5

.SAVE ALL THE RH11/RPO4 REGISTERS
. RESTORE RO-RS

,SET UP/DOWN SHITCH TO DOWN

ST
SAVREG

(SP)+

.POP THE PS FROM THE STACK
. SAVE RO-R5

R1
19
8$
$101. IPKCS
MPS
(SP)+, RO

. DONE
?
. NO--BRANCH
, YES--EXIT
,STOP THE CLOCK
,DROP THE PRIORITY
,PC OF WAIT+2

MOV
JSR

8DTROPB,R2
PC. JBSVRHI 1

MOV

#DTROPB, RPCS2(RY)

881705, RPCS2(RY)
20

.DOPB POINTER
,SAVE ALL THE RH11/RPOY REGISTERS
, MASSBUS CLEAR

, SELECT ORI VE

,RESTORE RO-RS
, CLOCK OVERFLOMED

MOV
MOV
JSR

81705, RPCS2(RY) ., MRSSBUS INIT
J#DTROPB, RPCS2(RY) , SELECT DR IVE
PC, 38ST CLK
. INITIALIZE THE CLOCK

JSR

RO, SRTYPTIN

11
SCOPE

#1SR, JRPVE(

SEQ 0082

,DPB POINTER

,UPDATE THE COUNT
,STARLL FOR 2 MILLISECONDS

MOV
EXITI4

SVRH1 Y

PC. 38COUNT
PC. 3R THOMS

RESREG
ERROR

PC.

JSR
JSR

MOV

000010

000010
000010

MOV
MOV

DEC
BGT
BR
BIC
CLR
MOV

PRGE 86

S0TAOPB. R2

RESREG
ERROR
MOV

09 24

nov
JSR

000010
000010

027122
026450

7
E
MACY11 3D0A(1052)
27-JUL-78
ACCESS TIME MERASURMENT TEST

,RESTORE RH11/RPO4/5/6 INT
GO TYPE THE TIMES

VECTOR

,POINTER
,LOOP ?

4375
u:}c;g

B
S 8 8 00 000t e e es et sttt et ettstetlstestettetaristts
. XTEST 15
MAXIMUM SEEK TIMING TEST

4378
4379

X
.8

“3332

. %

4380
4381
4382
4383
438y

.%
.8
X
.8
.8

4387

4388
4389
4390
4391
4392

4393

4394

014164
014164
014166
014174
014176

014202

B
000240

033737
001002
000137

012737

4398

014214
014222

014230

012737
013777

013737

CYLINDER 0. BOTH SEEKS ARE TIMED AND CMECKED TO ENSURE
THEY ARE WITHIN THE TOLERANCE ALLOWED FOR THE MAXIMUM SEEK
TINE. THIS SEQUENCE IS REPERTED 128 TIMES (FOR
A TOTAL OF 266 SEEKS)
THE MAXIMUM SEEK TIME MUST BE LESS THAN
54 NS
'LC' DEFAULTS TO 410 (10) FOR RPO4/5'S AND TO 814 (10)
FOR RPOG'S

3 007 00000t b0ttt e s ettt ettt enssttsteststestttstatestst:

TST15

001456
014702

000015

4395 014210 004737 024612
4396
4397

THIS TEST WILL COMMAND A FORWARD SEEK FROM CYL INDER O TO
CYLINDER 'LC', THEN A REVERSE SEEK FROM CYLINDER 'LC' TO

014164
001102

001506

001234

001102
001110
164712

001204

649

NOP

BIT
BNE
JMP

MBITS+(16%2>, TSTNMS , DO THIS TEST?
64§
. YES--BRANCH
TST16
.NO--GO TO THE NEXT TEST

$15,a#STSTNM

L SET UP TEST NUMBER AND

JSR

PC. LODPRM

.LORD THE PARMETERS FOR THE TEST

MOV

S#RPT,STIMES

MOV
MOV
MOV

.CLEAR THE ERROR FLRG (SERFLG)

$TST15, SSLPERR , SETUP THE ERROR LOOP RDORESS
STSTNM, @DISPLAY ,LOAD THE TEST NUMBER INTO THE DISPLRY REGISTER

,GET THE

ITERATION COUNT

CZRJIAC RPO4/5/6 MECHANICAL RND RERD/WRITE TEST
CZRJIAC P11
T15
27-JUL-78 09 18
4399
W400
4401
W02
w403
L1]
w405
4406
w407
w408
w409
w10
w1y
w12
Wil
iy
M
W16

w7
wig
w419
w420
4421
w422
w23
w2y
w425
4426
w427
w2s
w429
w430
4431
w432
w33
3N
w35
w36

w37

"l
4439
W0
w1

w2
"3
Wl
PP
W46
"o?
weus
ML
w450
w451

W52
w53
WS4

014236
014244
014250
014252
018256
014264
014270
018272
014276
014302
014310
014314
014320
01432y
014332
014 40

014344
014352
014360
014366
014370
014376
014404
014406
014410
O1441Y
014420
014426
0144 3%
014436
014440

014442
014446

014462
014466
018464
0144272
014600
014602
014610
014516
014620
014622
014626
014632
014640
014646
014660
014562

014666
014662
014566
014670
014672

01467y
014602

112737
005737
003002
0001 37
012737
004037
000402
00013?

012703

012737
012706
012701
004737
012777
012777
005077
013764
012764
012777
000001
0n2777
032764
001415
104412
012702
004737
012764
013764
104413
104017
005005
008737
004737
006077
013764
012764

012777

000001
0nN2777
032764
001415
104412
012702
004737
012764

013764

108413
104017

012706
004737
004737
006301
003263
0004
24
082777
005037

000031
001244
014702
014256
026672

014700
003034
014700
001100
000200
027056
0145724
027054

165036
001512
000105
0001 31

000101
040000
004164
042036
000040
00M 164

001115

001106

001206

165042
020160

000034
000000
165012

TEST15

Hove
TST
8GT
JHP
MOV
JSR

BR
JMP
MOV

MoV
MoV
MOV

JSR

Mov
MoV

CLR
MOV

MOV
MOV
HAIT

BiC
BT
BEQ
SRVREG
MOV

JSR
MOV

000010
000010

HovV

000034
000000
164700

000101
040000

164670
000012

RESREG
ERROR
CLR
JSR
JSR
CLR
MoV
MOV
MOV
WAIT
BiC

8IT
BEQ

SAVREG
MOV

JSR
MoV

000010
000010
39

1722777
027122
026450

000101
177776

165002
000012

027122
026450
164724
001510
000105
000131

00u% 164
042036
000040
004164

F
7
MACY1! 30A(1052)
27-JUL-78
MAXIMUM SEEK TIMING TEST

MOV
RESREG
ERROR
nov
JSR

JSR
OEC
BGT

164576

BIC
CLR

09 24

PRAGE 87

#25 , SERMAX

.HRX ERRORS ALLOWED FOR TEST

, YES--START TEST

SR CLKSTRA
T1ST16

#19. SLPRDR
RO. S SRCHOO
29
EXITIS
8T12,R3
BEXIT16,SESCAPE
§STACK, SP
9128 .R1
PC, ASTRTMR
879, PKV
ADORTI,.RPVEC
oPKB
LC, RPCR(RY)
SSEEK, RPCS1(RY)
8131, IPKCS

»KH11-P CLOCK

-NO--60 TO NEXT TEST

-SETUP THE LOOP RODRESS
.D0 R MASSBUS INIT & RECAL
+RETURN HERE IF NO ERROR
RETURN HERE ON ERROR
;PRRAMETER POINTER
., ESCAPE TO EXITI5S ON ERROR
. SETUP STRCK
-REPEAT "0-°'LC’'-0" 128 TINES
~INIT
THE TIMERS
.SETUP VECTOR IN CRSE OF OVERFLOW
. SETUP RPOY4/5/6 VECTOR
+START COUNTING FROM ZERO
+MAXIMUM CYL INDER
,START A SEEK
START THE CLOCK
HRIT ON INTERRUPT
#101, IPKCS
.STOP THE CLOCK
8B I1T14, RPOS1(RY) ,ERR=17
29
» NO--BRANCH

- SAVE RO-RS5
#DTROPB.R2
.OPB POINTER
PC. ASVRH11
-SAVE ALL THE RH11/RPOM REGISTERS
#81T0S. RPCS2(RY) . MASSBUS C(LEARR

o8DTADPB. RPCSZ(RY)

17
RS

PC, dRCOUNT
PC. 98 THAMS

oP KB

FC.RPCR(RY)
#SEEK, RPCS1(RY)
#131. PKCS

, SELECT DRIVE

.RESTORE RO-R5

»SET THE UP/DOWN SHITCH TO UP

. UP THE COUNT
+STALL

FOR

2 MILL ISECONDS

- START COUNT RT Z2ERO

+BEGINNING CYL INDER
,START R SEEK
,STRART THE CLOCK

+HRIT ON INTERRUPT
#101. @PKCS
-STOP THE CLOCK
$BITIN. RPDS1(RY) , "ERR"=17
39
» NO--BRANCH
. SAVE RO-RS5

#0TROPB,R2
. DOPB POINTER
PC, dASVRH1 1
»SAVE ALL THE RH11/RPO4 REGISTERS
8B 1705, RPCSZ(RY) , MASSBUS CLEAR
S#DTRDOPB. RPCSZ2(RY) , SELECT DRIVE
~RESTORE RO-RS
17
+REPORT THE ERROR
#-1,R5
»SET THE UP/DOHN SHITCH TO DOWN
PC. #COUNT
+UPDATE THE COUNT
PC, R THONS
+STALL FOR 2 MILLISECONDS
R1
. DONE?

19
89
#101, dPKCS
e#PS

»NO--BRANCH
+YES--EXIT
»STOP THE CLOCK
.DROP THE PRIORITY

StEG 0083

CZR AC RPON/5/6 MECHANICAL AND READ/WRITE TEST
CZRIRC P11
27-Jn-78 09 18
T15
wss
"456
W57
wEg
W59
w6l
"Wel

wWwe2
wel

wY6N
w465
“46b

we?
w468
Y469
44?0
w21

014606
014610
014612
014614
01%620
014624
014632
014640
014642
O1%6MY
014644
014652
014660
014664
014672
014676
014700

012600
005726
104412
012702
0087137
012764
013764
104413
104020

01276%
013764
004737
012777
004037
00303y
000004

004 164
0% 2036
000080
00v 16

000040
004 164
024076
037400
027254

nov
TST

(SP)+. RO
(SP)+

nov
JSR
nov
nov
RESREG
ERROR

S§0TADPB.R2
PC. JESVRHI

SAVREG

000010
000010

017626

EXITIS

MACY11 30R(10%2)
27-JUL-78
MAXIMUN SEEK TIMING TEST

Mov
nov
JSR
MoV
JSR
T12

SCOPE

09 24

PRGE

88
SEQ 008v

PC OF WRIT+2
,POP THE PS FROM THE
. SAVE RO-R5

STACK

.DPB POINTF"
,SAVE F_. iME RH11/RP0O4 REGISTERS

881705, RPCSZ(RY) 1o >BUS CLERR
S80TROPB. RPCS2(RY) ,SELECT DRIVE
-RESTORE RO-RS

,CLOCK OVERFLOWED

#BIT05, RPCS2(RY4) , MASSBUS INIT
S8DTROPB. RPCSZ(RY) , SELECT DRIVE
PC. o8ST (LK
+INITIRLIZE THE CLOCK

8 1SR, aRPVE(
RO.

ATYPTIN

.RESTORE RH11/RPOM/5/6
.60 TYPE THE
.POINTER
.LOOP ?

TIiMES

INT

VECTOR

(ZRJIRC
CZRJAC

RPOM/5/6 MECHANICAL AND RERD/WRITE TEST
P1Y
27-JUL-78 09 18
115

w22
Y4?3
w7y

SBTTL
/%
./’%
/%

/%
/%
/%

RACY11

RAXIMUN SEEK

/%
/%
/%

YANE
VAND
8

VAN
VAN
8

VAR
VAR
&

V4
¥4
¥

Y488
4u 39
4490

JUL

/%
/%
/%

PAGE

StQ 0085

TRA(K

8%/

o SEBERREREERRRRRALERENE
LRI ESSL LRSS EREXSXRRERRRRTLRRILLRIL

. STEST

¥
N

X
N

X
X

4507

014720

000240
033737
001002

014714

000137

015300

014726

004737

024612

012737

000016

001234
001102

649

TST1?7

+NO--GO TO THE NEXT TEST

J3R

PC. LODPRM

.LORD THE PARMETERS FOR THE TEST

016006
016018

013737
113737

001510
001516

004176
004175

001352
087714
015042

004170
004172
001110

MOV
MoV
MOV

000161

004166

MOV

000151

004166

106037

015026
016038
016082

013737
012737
012737

016064

012737

015066

012737

015060
016062

012706
004037

004174

001100
025526

THROUGH

#16. 98 STSTNN

JNP

001110
164174
001204
001115
001252
001106

016022

THE

MOV

014?76
001102
001506
001364
0152?76
014776

001100
027706

TRARCK "FT"

OB ITS+<16%2>, TSTNMS , DO THIS TEST?
648
» YES--BRANCH

012737
013777
013737
113737
012737
012737

012706
008737

SECTORS OF

NOP
BIT
BNE

014732
014740
O1%7%6
014764
014762
014770

018776
016002

INTO ALL

L L 2220ttt
bRttt iRttt tstettositstesets!

TST16
001460

TEST

THIS REWRITE AND WRITE (HECK PROCEDURE 1S CONTINUED UP
REWRITE SECTOR 21 AND WRITE CHECK SECTORS 0-21

014702
014702
014704
014712

SECTOR RDORESSING

DATA WILL BE 256 WORDS OF THE SECTOR ADORESS OF THE SECTOR
BEING WRITTEN
R WRITE CHECK IS PERFORMED. THE BUFFER IS
CLEARED (TO 177%00) AND THE DRTR IS RERD AND COMPARED
THEN SECTOR O
IS REWRITTEN ANDO SECTORS O - Z1 ARE WRITE CHECKED
THEN
SECTOR 1 IS REWRITTEN AND SECTORS O - 21 RARE WRITE CHECKED

(. X

4501
4502
4503
4504
4505

THIS TEST WRITES DATA

X_J

Y49t
4492
4493
W49y
4495
449
4497
4498
4499
4500

4510
4511

TESTS $33%

/%
/%
/%

. 3THE RODRESSING TESTS EHSURES PROPER OPERATION OF THE
;3AND SECTOR ROORESS CIRLJUITRY
BOTH RDDRESSING TESTS
-BWILL BE PERFORMED ON CYL INDER FC
VAR
VARE VANEVAR
YR
VAR
VAN VAN
/%
%
8

TIMING TEST

233 RODRESSING

/%
/%
/%

30R(1052)

TEST16

+SET UP TEST NUMBER AND
.CLEAR THE ERROR FLRG (SERFLG)

MOV
()
MOV
MOVB
HOV
MOV

RTEST16.8SLPERR
,SETUP THE LOOP ON ERROR RODRESS
STSTNM, dDISPLAY ., LORD THE TEST NUMBER INTO THE DISPLAY REGISTER
SARPT,STINES
+GET THE |TERATION COUNT
ERR CT,SERMAX
., QX ERRORS ALLOWED FOR TEST
SEXIT16,98BYPASS
STEST16.SLPADR ., SETUP THE (OOP RDODRESS

MOV
Hove

o8F(C. J8DTADPB+12 , CYL
| NDER
ofFT, JEDTADPB+11 ., TRACK

MOV
JSR

CLRB

MOV
JSR

MOV

#STACK, SP
PC. o8F | LBUF

»SET THE STRCK POINTER
+FILL THE BUFFER WITH SECTOR RDORESSES

J80TROPB+10

» SECTOR

#STRCK., SP

~LORD THE STRACK POINTER

RO, S8DRVCAL

,START A DATA TRANSFER

TRCKWC, GBDTROPB+Y4 ., WORD COUNT
SBUFFER.98DTROPB+6 ,BUFFER RODRESS
&, SLPEPR
SETUP THE ERROR LOOP RDORESS
SWRIT, SBOTROPB+Z , COMMAND=WR
| TE DATRA

SURCKD. o#DTROFB+2Z . COMMAND=WR
ITE CHECK DRTR

CZRJAC RPON/5/6 MECHANICAL AND R[RD/WHE TEST
CZRJAC P11
27-JW-78 09 18
T1e

012737
012706
004037

012737

012706
008037
012737
004037

01507y
001100
025526
015112
001100
027744

001110

Y576
4576

4577
4578
4579
4580
4581
4582
4583

§ . UPERR

JSR

RO. JEDRWCAL

001110

MOV

000171
025526

004166

JSR
MoV

015154
001100

001110

MOV

JSR

030012
ON7714

000161

177400
004172
004174
025526
015216
001100
000151
001352

047714
004174

004166
004170

001110
004166
004170
004172

JSR
nov
CLR
ROV
MoV

nov

MoV
MoV
nove
JSR
)
MOV
MOV
nov
MoV

CLRB
JSR
RO?

025526
001000

001630
015276

EXITie

CHP
BHIS
SCOPE

09 24

PRGE 90

.SETUP THE ERROR LOOP ROORESS

8STACK, SP

,LORD THE

§ . SLPERR

,SETUP THE ERROR LOOP RODRESS

8STACK, SP

STRCK POINTER

.START R DATA TRAMSFER

.LOAD THE STRCK POINTER

RO, S8 CLRBUF
.CLEAR BUFFER
SRERD. 00TROPB+2 ; COMMAND = RERD

RO. JEDORVCAL

RO. J8CKSCTR
SBUFFER.RO
R1
§ . SLPERR
ESTRCK, SP

-STRRT R DATR TRANSFER

;CHECK THE SECTOR DRTR REARD
-BUFFER RDDRESS
FIRST SECTOR
.SETUP THE ERROR LOOF RDORESS
.LORD THE STRCK POINTER

SGURITE. BOTRDPB+Z . COMMAND=UR
| TE DARTR

SSCTRUC. HADTROPB+Y , WORD COUNT
RO.60TRDPB+6
. BUFFER RADDRESS
R1.3DTADPB+10
. SECTOR
RO. JSORVCAL
»START R DRTA TRANSFER
8 . SLPERR
-SETUP THE ERROR LOOP RDORESS
8STA(K, SP
-LORD THE STRCK POINTER
SURCKD, 38DTROPB+2 , COMMAND=WR
| TE CHECK DATA
TRCKWC, SBDTROPB+4 , WORD COUNT
SBUFFER.8DTROPB+6 . BUFFER RDORESS

S8DTROPB+10
RO. J8DRWCAL
:512 - RO

- SECTOR
.START R DATRA TRANSFER
.MOVE TO NEXT SECTOR

PRMLMT+22. R1
19

. DONE?
» NO--BRANCH
.LOOP ?

PR S S 2P 00000000ttt
PRttt Rttt eititsttenss!
» XTEST 17
TRACK RODRESSING TEST

VRN

_X_J

4561
4562
4563
4564
4565
4566

4567
4568
4569
4570
4571
4572
4573
ws74

MoV
MoV

4539
Y540
45n1
4542
W43
Lkah
N al)
4546
WoM?
Nl
w549
4550
4551
4552
4553
4554
4555
4556
4557
4558
4559
4560

01507y
015102
015106
015112
015120
015124
015130
015136
015182
0151%6
015162
015154
015162
015166
015174

015300
015300
015302
015310
015312

018316
015324

015330
016336
01634y

000240
033737
001002
000137
012737
004737

012737
013777
013737

001462

00123y

015720
000017

001102

024612
015374
001102
001506

001110
163576
001204

[ X

4528
“529
4530
4531
4532
45313
Y53
4535
4536
4537
w538

1?7

MACY11 30R(1052)
27-JUuL-78
SECTOR ROORESSING TEST

THIS TEST WILL WRITE DRTA IN THE FORM OF TRACK RDDRESSES
IN CYLINDER "FC" SECTOR "FS" OF EVERY TRACK WITH ERCH TRARCK
GETTING ITS OWN TRACK RDORESS
R WRITE CHECK IS THEN PERFORMED ON ERCH TRRCK TO ENSURE
THE DATA 1S VALID.
THEN TRACK O IS REWRITTEN AND TRACK 1
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 TRRC(K 17
AND WRITE CHECKING TRRCK 18.

i,#!;!ttl!!!!t!!l!!!l!tl!!!!!l!!!t!!!tl!ltl!l!!!l!!ttltll!t!!!ttl
ST17.
NOP

649

BIT
BNE
JMP
MOV

JSR
MOV
MOV
MOV

B ITS+(17%2), TSTNMS ., DO THIS TEST?
649
» YES--BRANCH
1ST20
+NO--GO TO THE NEXT TEST
$17.38STSTNA
»SET UP TEST NUMBER AND

.CLERAR THE ERROR FLRG (SERFLO
PC,LOOPRN
.LORD THE PARMETERS FOR THE TEST
RTEST17,98SLPERR
,SETUP THE LOOP ON ERROR RDDRESS
STSTNM, dDISPLAY
. LORAD THE TEST NUMBER INTO THE DISPLAY REGISTER
JURPT, STINES
.GET THE ITERATION COUNT

StEQ 0086

CZRIAC RPO4M/5/6 MECHANICAL AND REARD/MRITE TEST
CZRIAC P11
27-JW-78 09 18
117
4584
4585
4586
4587
4588
4589
4590
4591
4592
4593
459

4595
459
4597
4598

015352
015360
015366
01537
015400
015408
015412
015420
015426
015438
015442

015444
015452
015456
015462

113737
012737
012737
012706
004737
012737
013737
113737
012737
012737

001368
015716
015378
001100
02?706
000161
001510
00152%
177400
OM?7714

001115
001252
201106

012737
012706
110037
004037

O01544&
001100
004175
025526

001110

005000

4599
%600
4601
4602
4603
4608
“605

015466
01578
015476
015502
015508
015512
015514

062737
005200
022700
0031365
012737
005000
012737

460?
%608

015526
015638

012737
110037

4606

4609
4610
4611

w612

015522
015540
015548
015662

015554

012706
004037
062737

005200

001000

TEST1?

004166
004176
00174
004170
004172

19
004172

000023
087714

004172

015514

001110

000151
004175

004166

001100

025526
001000

022700

000023

110037

004175

004172

RDD
INC
CHP
BGT
Hov
CLR
nov

#256. 32. . J8DTROPB+6 . UPDATE BUFFER RDDRESS
RO
-UPDATE TRACK NUMBER
#19 .RO
. OUT OF TRR(CKS?
19
- NO--BRANCH
SBUFFER, o8DTRDPB+6 .BUFFER RDORESS

MOV
MOV
nove
JSR

BGT
CLR

29
RO

» NO--BRANCH
+FIRST TRACK RDDRESS

MOV
oV
DEC
BLY
RDD

RO. R
.FORM BUFFER RADDRESS
#BUFFER.8#DTADPB+6 . BUFFER RODRESS
R1
5%
#256. 32 . JRDTADPB+6

Hov

& ., SLPERR

010001
012737
005301
002411
062737

047714

004172

001000

004172

4622

016618

012737

015614

001110

012737

000161

004166

MoV

001000

004172

RDO

012737

015662

001110

MOV

012737

000151

004166

MOV

000022

004175

4623

015622

4624

016626

4626

016640

4626
4627

015638

015646

4628

016662

%630

0166684

4629
4631

4632
4633
w63y

4635
4636
4637

000772
012706

008037

062737

106237

015660

012706

016672

00%03?

016676
016708
015706

016710

015714
015716

122737
003365
006200

022700
003323
000004

001100

025526

004175
001100
025526

MOVB

B8R

MOV

JSR

INCB

MOV

EXIT17

RO, S#ORWCAL
,START R DATA TRANSFER
#256 32 . 980TADPB+6 . UPDATE BUFFER RDDRESS
#19 RO ,0UT OF TRACKS?

RO, #DTADPB+11

ASTACK, SP

, TRACK

»SETUP THE ERROR LOOP RDORESS

.LORD THE STACK POINTER

SWRITE, RDTROPB+2Z ., COMMAND=WR
I TE DATRA

RO, 8ORWCAL

. START A DRTA TRANSFER

o80TROPB+11

~MOVE TO NEXT TRACK

8STACK, SP

+LORD THE STRCK POINTER

#256. 22, 3RDTRDPB+6 . UPDATE BUFFER RODRESS

8. . SLPERR

+SETUP THE ERROR LOOP RDORESS

SURCKD, ROTROPB+2 . COMMAND=WR
I TE CHECK DATA

JSR

RO. J#DRVCAL

-START R DRTA TRANSFER

#18 .RO

»QUT OF TRACKS?

Gl
8GT
INC

000022

,LOAD THE STRCK POINTER

- UPDATE TRACK NUMBER

015670
015672
015600
015602
01560

015612

,SETUP THE ERROR LOOP RDORESS

#STACK, SP

w616
%617
4618
4619
4620

4621

RO
§ ., SLPERR

INC

JSR
RDOD

003365
005000

,SETUP THE ERROR LOOP RDORESS
;LORD THE STRCK POINTER
, TRRCK RDORESS
.START R DRTA TRANSFER

SHRCKD, SROTROPB+2Z , COMMAND=WR
| TE CHECK
RO. 3#DTADPB+11
. TRACK ADORESS

CHpP
39

6 . SLPERR
ASTACK, SP
RO, 38DTRDPB+11
RO, 38ORWCAL

nov
nove

015560
016562
016568

PAGE 91

ERR CT,SERMAX
. MAX ERRORS ALLOWED FOR TEST
SEXIT17,
4B YPRSS
SBTEST17,$LPRDR
,SETUP THE LOOP RODRESS
#STACK, SP
.SET THE STACK POINTER
PC. 3OF ILBUF
SFILL THE BUFFER WITH TRRCK RDDRESS
SURITE, MDTRDPB+2 , COMMAND:=WR
I TE DA1A
S8F (. J80TROPE+12 . (YL
| NDER
o8FS, J80TROPB+10 , SECTOR
SSCTRUC., J0DTROPB+4 , MORD COUNT
SBUFFER.380TROPB+6 . BUFFER RDDRESS
RO
» TRAC(K=0

4613
4614
4615

09 24

nove
nov
MoV
MOV
JSR
MOV
nov
nove
nov
nov
CLR

MOV

MACY11 30A(1052)
27-JuL-78
TRACK RODRESSING TEST

BGT
SCOPE

#18 . 8DTADPB+11 , OUT OF TRRCKS?
69
+NO--BRANCH
RO
SNEXT TRACK TO WRITE
39

- NO--BRANCH

SeQ 0087

CZRJIAC RPOY/S5/6 MECHANICAL AND READ/WR ITE TEST MACY11 30R(1052)
(ZRJRC. P11
27-JuL-78 09 18
233 DATA TEST 332

4693

StEQ 0088

1333 DATA TEST 1z

CNENN—-

X_J
¥
Y

X
X

X
X
L

X
S
ST S

SET "NT” TO "FT" THEN REPEAT 2-4 UNTIL "NTTM ) "LT"
WRITE THEN MRITE CHECK "FSTM THROUGH "LS" OF TRACK "NT"

READ THEN SOFTWARE COMPRARE "FSTM THROUGH "LSTM OF TRR(K "NT”
INCREMENT "NT" BY "IT"
REPEAT STEPS 1-4 FOR ERCH DATR PRTTERN
REPERT STEPS 1-5 FOR "FC" THROUGH "LC" RDVANCING BY "I(C"

IF R WRITE CHECK ERROR OCCURS THE ERROR IS REPORTED AND
THE TRACK IN ERROR IS REWRITTEN AND CHECKED
THIS CHECK IS
RCCOMPL ISHED BY PERFORMING TWO(2) SUCCESSIVE ERROR FREE
WRITE CHECKS.
IF THE CHECK FRAILS THE ERROR IS REPORTED RS
FATAL AND NO RERD OCCURS.
FS DEFAULTS TO 1 AND LS DEFAULTS T0 O
PRT DEFRULTS TO 177777 (ALL POSSIBLE PRTTERNS)
THE POSSIBLE PATTERNS ARE

000001
000003
000007
000017
000037
000077
000177
000377
0007?77
001777
003777
007777
017777
037777
077777
177777

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

000000
000000
000000
177777
177777
177777
000000
000000
177777
177777
000000
1777?77
000000
177777
000000
17?7777

000000
Q010421
021042
031463
Qw2104
052525
063146
073567
104210
114631
125252
135673
14631%
156735
167356
1?7777

052525
052525
052525
125252
125252
125252
052525
062525
125252
125252
052525
1265252
062525
126262
052525
125252

007417
007417
007417
170360
170360
170360
007417
007417
170360
170360
007417
170360
00?417
170360
007?417
170360

026455
026455
026455
151322
151322
151322
026455
026455
151322
151322
026455
151322
026455
151322
026455
151322

000001
000002
000004
000010
000020
0000M0

177776
177775
177773
177767
177757
177737

172666
155565
172666
155585
172666
1555585

077?77
1377?77
157777
167777
1737?77
175777

153333
066667
153333
066667
153333
066667

000000
177777
177777
1777?77
1?7?7777
177777

177777
000000
000000
000000
000000
000000

001000
002000

176777
175777

155555
172666

177677
177737

1777?77
17?77?77

(000000
000000

_E_E X

THIS TEST PERFORMS DATRA STORAGE AND RETRIEVAL ON (YL INDERS
"FC" THROUGH "LC" BY THE INCREMENT "IC” USING THE DATR PRTTERNS
SPECIFIED
THE FOLLOWING SEQUENCE OCCURS FOR EACH CYL INDER

X
I

X
e

X
O

X
T

X
X

4690
4691
4692

4687
4688
4689

PRGE 92

DATA TEST

4657
4658
4659
4660
4661
4662
4663
4Y66M
4665
4666
4667
4668
4669
4670
4671
4672
4673
4o’y
4675
4676
4677
4678
4679
4680
4681
4682
4683
Y684
4685
4686

09 24

. i%:;#!%ll!!!l!!l!!!ll!!!!l!l!lll!ltl!tlll!!l3!!8!!!!!3!!38!!!!!

L X X

4655
4656

SBTTL

4638
4639
olalll
You1
YoM
2
Wou3
Youy
Yeu5
Yo46
Yeu?
Yeu8
4eu9
4650
4651
4652
4653
Y654

27-JuUL-78

165555
133333
165555
133333
165555
133333
165555

133333

165555
133333
165555

000100
000200
000400

177677
177577
177377

172666
155565
172666

1767?77
17?7377
177577

153333
066667
153333
066667
153333

177777
1777?77
1?77?77

000000
000000
000000

4742
Y73

$Y7uy
4746
W6

N7
47vg
w749

)
X

X
T

X
I

015744
015750
015756
015764
015772
016000

004737
012737
013777
013737
113737

012737
005000
00500
013701
163701
002004
063701
005201
005100
062704

00142y

001236

016440
000020

001102

024612
016122
001102
001506
001364
016000

001110
163156
001204
001115
001106

015730
015732
015736

000240
033737
001002
000137
012737

Hfl(YIIEg?fl(lOSZ)

DATA T

133333
165555
133333
165555
133333

649

000400

TST2)
#20. J8STSTNN

PRGE 93

1272757
127767
177773
17727275
177776

SEQ 0089

066667
153333
066667
163333
066667

1772777
17272727
1227277
172727
17227727

000000
000000
000000
000000
000000

38.
TEST20

027632
29

6498

, DO THIS TEST ?

» YES--BRANCH

+NO--60 TO THE NEXT TEST
SET UP TEST NUMBER AND
,CLEAR THE ERROR FLRAG (SERFLG)
PC, LOOPRM
;LORD THE PRRMETERS FOR THE TEST
STESTZ20,34SLPERR
, SETUP THE LOOP ON ERROR RDORESS
STSTNM, 3DISPLAY
. LORD THE TEST NUMBER INTO THE DISPLARY REGISTER
SARPT, STINES
»GET THE ITERARTION COUNT
ERR CT,SERMAX
,MAX ERRORS ALLOWED FOR TEST
8. . SLPAOR
.SETUP THE LOOP ROORESS
RO
+CLERR SHITCH
RY
.FORM WORD COUNT IN RY
oiLS, R1

ofFS. R1
19

PRHMLMT+22, R1

+BRANCH

IF FS ¢ OR

= LS

. ADD MAXIMUM SECTOR RDDRESS TO

INC
con
ADD
DEC
8GE
NEG
Hov
TST

R1
RO
%256 . Ry
R1
19
RY4
R4, RS
RO

CLR
MOV
SuB
ADD
OEC

RS
PRMLMT+22,
R
ofFS.R1
#256 . RS
R1

NEG
HOVB
MOV
MOV
MOV
CLR
ggv

RS
o&FS, JRDTADPB+10 , SECTOR
#BUFFER. 98DTROPB+6 . DATR BUFFER
8EX1720, 34BYPRSS
#STRCK, SP
-LORD THE STACK POINTER
SRHCEFLG
CLEAR THE WRITE CHECX ERROR FLRG
g:FC,Rl +PICKUP FIRST CYLINDER

TST
CHe
BGT
JSR

(RO)+
#16. X2. ,RO
39
RO, 98 INCCYL

+MOVE TO NEXT DARTR PATTERN
. OUT OF PRTTERNS?
»NO--BRANCH
+MOVE TO NEXT CYL INDER

CLR

,START WITH PRTTERN O

B8GE

000040

155555
172666
155555
172666
155555

Jnp
MOV

RDD

004174
004172
001252

173727
167727
1672777
1377277
0?7227

09 24

BITS+<2082-40>, TSTNIS+Z

JSR
MOV
MOV
MOV
HovB
MOV
CLR
CLR
MOV
sus
BGE

001630

00152y
047714
016436
001100
001334
001510

27-JuL-78

BIT

BNE

001526
001524

001630
001524
000400

004000
010000
020000
040000
100000

AR L3222 0008000000000 000000000 00000000000 0000 000000000 00000¢0004¢%]
TST20
NOP

8eqQ

4713
4714
4715
4716
4217
4718
4719
4720
4721
4722
4723
Y72y
4728
4726
w727
4728
4729
4730
4731
4732
4733
473N
4735
4?36
4737
4738
4739
4¥7%0
47v1

015720
015720
015722

4eM
4695
4696
4697
4698
4699
4700
4701
4702
4703
470%
4705
4706
4707
4708
4709
4710
4711
4712

(ZRIAC RPOM/5/6 MECHANICAL AND RERO/WRITE TEST
CZRJAC P11
27-JW.-78 09 18
T20

B8R

+MAKE THE DIFFERENCE POSITIVE
»SET SWITCH

- COPY NORMAL WORD COUNT
»SHITCH SET?

INTO SMALL

» NO--BRANCH

.FORM WORD COUNT FOR LS ¢

EXIT20

. OUT OF CYL INDERS

RPON/5/6 MECHANICAL AND RERD/HRIT%ZBEST

016160
016166
016170

016174
016200
016204
016210
016218
016216
016222
016224
016230
01623
016236
016242
016248
016250
016256
016260
016266
016272
016300
016308
016312

016314
016322
016326
016338
0160
O164%
016 M6
016354
016366
016364
016366
01637
016800
016406
0168412
016420
016822
016426
016432
016438
016436

27-JW.-78 09.18
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
008037
005737
0014%0%
032777
00142y
032777
001020
012737
012706
012737
008037
032777
001002
004737
008037
000642
000661
000004

001424

001530

001516
004176
004175
004170
001512

000022

004170
162704

000030
030362
000020

162662

016260
001100
000161
025526
000010

001110

016314
001100
000151
025526
001334

001110

000001

162564

000004

162554

016366
001100
000171
025526
000002

001110

030452
027602

004166
162626

004166
79

004166
162520
99
EXIT20

MACY11 30A(1052)
DATA TEST

BIT
8EQ
MOV

MoV
HOve
MoV
CHP
BGT
e
BGT
MOV
HOV
con
BIT
BEQ
JSR
BIT
BNE
MOV
HOV
MoV
JSR
BIT
BNE

MoV
MOV
MOV
JSR
TST
BEQ
BIT
BEQ
BIT
BNE
HOV
Hov
MOV
JSR
BIT
BNE
JSR
JSR
BR
B8R
SCOPE

27-JUL-78

BITS(RO), 38PAT
19
iFT.R2
R1.3MDTRDPB+12
R2. MDTADPB+11
R4, oRDTROPB+Y
LC. R
5%
18 .R2

RS, JRDTROP
b +4

SSHR, R3
R3
;SW‘O!SWJ,RJ
)
PC. 38SETBUF
ESHOM, SR

09.2%

PRGE %4

; THIS PRTTERN SELECTED”?
s NO--BRANCH
;FIRST TRACK
- CYL INDER
; TRACK
; WORD COUNT
sLRST DISK CYL INDER?
;NO--BRANCH
;LAST DISK TRACK?
; NO--BRANCH
. SHORT WORD COUNT
INMIBIT WRITE AND
;HRITE CHECK?
- YES--BRANCH

~MOVE DATA PATTERN INTO THE BUFFER
,INHIBIT WRITE?
» YES--BRANCH
6$
;SETUP THE ERROR LOOP RDDRESS
8., SLPERR
,LOAD THE STRCK POINTER
8STACK,
SP
SUHRITE. ADTROPB+2 , COMMAND=WR
I TE DARTA
RO. HEDRWAL
;START A DRTR TRANSFER
+INHIBIT WRITE CHECK?
ESWHO3. ISR
79
; YES-~BRANCH
6., SLPERR
;SETUP THE ERROR LOOP RDORESS
,LORD THE STRCK POINTER
8STACK, SP
ANRCKD, JRDTROPB+2 , COMMAND=WR
I TE (HECK DARTA
RO, S8DRVCAL
;START R DATA TRANSFER
+HRITE CHECK ERROR FLRG SET?
SRHCEFLG
,
NO--BRANCH
8%
;PERFORM
REARD RFTER FATAL "WCE"?
#SHOO0, aSHR
;
NO--BRANCH
98
,INHIBIT RERD DRTR AND SOF TWARE COMPRRE"
#SHOZ, ISR
. YES--BRANCH
9%
& , SLPERR
,SETUP THE ERROR LOOP RDORESS
8STACK, SP
,LORD THE STRCK POINTER
#RERD., JROTAOPB+2 . COMMAND=RERD
;START R DRTA TRANSFER
RO. RORVCAL
. COMPRRE THE DRTR?
#SKHO1, dSHR
s NO--BRANCH
93
PC, 38DATCHP
RO. af INCTRK
+MOVE TO NEXT TRRCK
19
»OUT OF TRACKS GO TO NEXT PATTERN
“s
. LOOP
. SCOPE

LOOP

StQ 0090

CZRJAC RPO4/5/6 MECHANICAL AND REQD/WRITE TEST
MACY11 30A(1052)
CZRJAC P11
27-JW.-78 09. 18
38 EXERCISE TEST 33%
4795
4796
4797
4798
4799
4800
4801
4802
4803
4804
4805
4806
4807
4808
4809
4810
4811
4812
4813
4814
4815
4816
4817
4818
4819
4820
4821

001426

001236

L]
K
X
X
X
X
X
X
R
X
X
X
X

TEST THEN PERFORMS THE FOLLOWING SEQUENCE

"R"

"R" DEFAWLTS TO 20.000.

1)
2)
3)
¥)
5)
6)
7)
8)

9)
10)

017216
000021

401102

024612
016710

NOP
BIT

BNE

649

001110
162436
001204

TIMES

GENERATE A RANDOM RDORESS
WRITE R RANDOM PATTERN AT THE RDDRESS
GENERRTED IN 1
GENERATE A RANDOM ROORESS
READ THE SECTOR AT THE RDORESS
GENERRTED IN 3.
00 A SOFTHARE CHECK OF THE DRTA RERD IN Y4
DO R WRITE CHECK OF THE DRTR WRITTEN IN 2
GENERARTE A RANDOM RDDRRESS
RERD THE SECTOR AT THE RDORESS
GENERATED IN 7.
DO A SOFTWARE C(HECK OF THE DATR RERD IN 8

DO A WRITE CHECK OF THE DATA WRITTEN

IN 2

001100

001110

025526
004175

JHP

64 S

, D0 THIS TEST ?

. YES--BRANCH

TST22

;/NO--GO TO THE NEXT TEST

#21,383TSTNN

JSR
MOV
MOV
MOV
MOVB
MOV
MOV
MOV
MOV
MOV

PC., LOOPRN
LORD THE PRRMETERS FOR THE TEST
STEST21,ASLPERR ,SETUP THE LOOP ON ERROR RODRESS
STSTNM,
@D ISPLAY .LORD THE TEST NUMBER INTO THE DISPLAY REGISTER
HRPT, STINES
;GET THE ITERATION COUNT
ERR. CT,SERMAX
MAX ERRORS ALLOWED FOR TEST
8., SLPROR
;SETUP THE LOOP RODRESS
8EXIT721, MBYPASS
$176543, JSHINUN ; PRIME THE RANDOM NUMBER GENERATOR
$123456.
38 SLONUN
o8F (. 380TAOPB+12 . CYL INDER

MOV

SBUFFER.98DTROPB+6 . BUFFER RDDRESS

BIT

#SW15, 8C. SWR

WRITE THE DISK PRCK BEFORE TESTING?

CLR

o80TAOPB+10

;SECTOR AND TRACK

MOV

19:

BITS+<21%2-40>, TSTNIS+2

MoV

)

BNE
JSR

MOV

HOV
.

004037
106237

THE

:r,s¥;!!t!tl!!!!ttttlt!ltfll!!!!lt!t!!tl!!t!l!!!l!t!!ll!t!l!tl!xtt!
1

001115
001106
001252
023610
023612
004176
004170
004172
004166
001220
006037
012737
012706

3303000000832 00030000000230 0030000220202 2844

X _X_J
X

008737

StQ 0091

STARTING AT "FC" AND GOING THROUGH "L(C" THE DISK PRC(K
IS WRITTEN WITH A RANDOM PRATTERN THE FIRST THO WORDS
OF EACH SECTOR MILL BE THE BRSE OF THE RANDOOM GENERRTOR
FOR THAT SECTOR

000240
033737
001002
000137
012737

PRGE 95

RANDOM RDORESS AND RANDOM PATTERN TEST

TEST 21

/
.
.
,
,
.
p
.
.
,
.
,

09 24

233 EXERCISE TEST 1323

R LL23200 0000088002308

SN
Y

LSRN

SBTTL

7
27-JUL-78

JSR

INCB

;SET UP TEST NUMBER AND

+CLEAR THE ERROR FLRG

(SERFLG)

TRCKHC, d8DTROPB+4 ; WORD COUNT
SURITE, 3BDTROPB+2 ; COMMMAND

39
RO. 34F ILRAN
8., SLPERR

#STRCK, SP
3

RO. 98 DRVCAL
S#DTROPB+11

- NO--BRANCH
;FILL DATR BUFFER WITH RANDOM DRTR
,SETUP THE ERROR LOOP RDORESS

.LORD THE STRCK POINTER
;START R DATA TRANSFER
+NEXT TRACK

(ZRJAC RPON/5/6 MECHANICAL AMD RERD/MRITE TEST
CZRIRC .1
27-4W-78 09 18
121
4951
4952
453
854
55
4956

4857

958
w59
4960
961
962

4963

016642
016650
016652
016656
016664
016666
016674
016702
016710

C1671%
016720
016726
01670
016742

0167%6
016782
016756
016760

01707
017100
01710
017110
017116
017124
017132
017136
0171482
0171%6
017164
017162
017170
017176
017204
017210
017214

122737
001370
005237

819 . J60TROPB+11 . TIME FOR NEXT (YL INDER
29
- NO--BRANCH

004176
001512

cnPe
8GT

00v176

e
8GE

017066

001100
025526
03124y
000171
050714
017124
001100

025526
031012
001340
001342
000151
0N7714
017176
001100
025526

39
TEST21

001342

004166

S80TROPB+12

nov
nov
nov

8SCTRUC, JEDTACPB+% , WORD COUNT
QTEST21.4SLPAOR
GTEST21,J0SLPERR

MOV
JSR

;SET STACK POINTER
. GENERARTE A RANDON RDORESS

JSR

RO. HRANPRT

;GENERRTE RANDOM PATTERN

JSR
JSR

RO. JEORVCAL
RO. 38 RANRDR

;START A DATR TRANSFER

nov
MOV
MoV
MOV

004166
004172
001110

001110

§ SLPER

;START A DATA TRANSFER
;CHECK THE DRTR

S8 SVADR, JEDTRDPB+10 . GET RDDRESS OF WHERE THE LRST
S SVADR+2, ADTROPB+12 ,WRITE WRS PERFORMED
SURCKD, SADTRDPB+2 , COMMAND=WR
I TE CHECK DATA
SBUFFER, JADTROPB+6 . DATR BUFFER RDDRESS
;SETUP THE ERROR LOOP RDDRESS

SSTA(K, SP
RO. JIDRWCAL

MOV

SRERD. ROTAOPB+2 , COMMAND=RERD

RO. 38 RANRDR

;LORD THE STRCK POINTER
;START A DATR TRANSFER

- GENERRTE R RANDOM RDORESS

SBUFFER+512 , 3ROTROPB+6 . DATR BUFFER RDDRESS
8. . SLPERR

,SETUP THE ERROR LOOP RODRESS

JSR
JSR

RO, SORVCAL
RO, ERANCK

. START R DRTR TRANSFER
;CHECK THE DATA

MOV
JSR

#STACK, SP
RO, S8O0RVCAL

MOV

MoV
MOV
MOV
MOV
MOV

SBTTL

IRERD. JRDTADPB+2Z . COMMAND=RERAD DRTA
GBUFFER+512 , RDTROPB+6 ,BUFFER RDORESS
§ . SLPER
+SETUP THE ERROR LOOP ROODRESS
8STACK, SP
;LORD THE STRCK POINTER

MOV

EXIT21:

SETUP THE ERROR LOOP RDORESS
+LORD THE STRCK POINTER

MoV
JSR

MOV

004174
004176
004166
004172
001110

e, PER
STRCK, SP

RO. J6DRVCAL
RO. ERANCK

JSR

004166
004172
001110

9 DTROPO+10, JESVROR . SAVE THE TRACK/SECTOR
HDTROPH+12, JESVRDR+2 , SAVE THE (YL INOER
SR ITE, OTRDPD+2 ; COMMAND=WR
I TE DATA
SOUFFER.R1
;BUFFER ROORESS
R1. HOTROPB+6

JSR
JSR

MOV
ROV
MOV
nov

004174
004176
004166
004172

o8L(. JE0TROPB+12 , OUT OF CYLINOERS?
19
» NO--BRANCH

8STRCK, P
RO. 34 R ANRDR

MoV
nov

001110

PAGE 9¢

INC

Hnov
nov
nov
nov
nov

001340

09 2%

RANOOM RDORESS AMD RANOOM PATTERN TEST

004175

004170
001106
001110

3
27-JUL-78

30A(1052)

000023

177400
016710
016710
001100
031244
00417v
004176
000161
0N771%
008172
031210
0167%6
001100
025526
031244
000171
05071y
01701y
001100
025526
031012
001340
0013%2
000151
ON7714

MACY11

SCOPE

8STRACK, SP

;LORD THE STRCK POINTER

S SVRDR, J8UTADOPB+10 ., GET DISK RDORESS OF THE
JISVROR+2, 38DTROPB+12 . LAST WRITE
#HRCKD, 3BDTRDPB+2 , COMMAND=WK
| TE CHECK DARTA
SBUFFER, 38DTROPB+6 . DATA BUFFER RADDRESS
& ., SLPERR
+SETUP THE ERROR LOOP RDORESS

;LORD THE STACK POINTER
+START R DRTR TRANSFER
.LOOP

333 RPOY ACCESS TIME ADJUSTHMENT TEST 23x

PR 328 0000808009000 083 831333302000 330000000022030000022300000228¢0%¢
. STEST 22
RPOY ACCESS TIME RDJUSTMENT TEST

X
X

THIS TEST PERFORMS SEEKS BETWEEN CYLINDERS O & 136 TO ALLOW THE
OPERRTOR TO ADJUST THE ACCESS TIME ON AN RPO4 USING THE

StEQ 0092

RPOY/S5/6 MECHANICAL AND RERDM!T%Z;EST
P11
27-JUL-78 09 18
. 8
" |

017216
017216

017220
017226
017230
01723
017242
017246
017254
017262
017270
012276
017304
017310

017316
017324
017330
017233
017336
0173u%
017352
017356
017362
017364

C
8
MACY11 30A(1052)
27-JUL-78
09 2%
RPOM ACCESS TIME ADJUSTMENT TEST

DOU
THE PROGRAM STRALLS APPROXIMATELY & SECONDS BETWEEN SEEKS
SO THAT THE ACCESS TINE INDICATORS ON THE DOU MAY BE OBSERVED

000240
033737
001002
0001 37
012737
004?737
012737

013777
013737
112737
012737
012706
013737
1127237
00n03?
004037
001360
013737
112737
00%03?
004037
001360
000004

001430

001236

017366
000022

001102

02v612
017304
001102
001506
000144
017304
001100
001512
000105
025034

001110
161660
001204
001115
001106
004116
004106

NOP

649

TEST2Z

026366
001510
000105
025034
026366

004116
004106

EX1T22

BIT
BNE
JHP
MoV

JSR
MoV
nov
nov
HovB
nov
MOV
MOV
Hnovs

JSR
JSR
HORD
HOV
HovB
JSR
JSR
WORD
SCOPE

B1T7S+(2282-40>, TSTNIMS+2
, DO THIS TEST ?
649
» YES--BRANCH
SEoP
+NO--60 TO THE END OF THE PROGRAM
822, 908TSTNN
»SET UP TEST NUMBER AND
;CLERR THE ERROR FLRG (SERFLG)

PC.LODPRN
;LOAD THE PRPNETERS FOR THE TEST
GTEST22, SLPERR
,SETUP THE LOOP NN ERROR ADORESS
STSTNM. DISPLAY ,LORD THE TEST NURGER INTO THE DISPLAY REGISTER
oBRFT, STINES
+GET THE ITERATION COUNT
#100. . SERMAX
;MRAX ERRORS ALLOMED FOR TEST
STEST22,3LPROR
,SETUP THE LOOP ROORESS
#STACK, SP
SETUP THE STACK POINTER
LC.OPB A+12
+ENDING CYL INOER
SSEEK, JROPB R+2 , SEEK=COMMAND

RO. MCALL R
. G0 EXECUTE THE COMMAND
RO, STALL
,STALL
STALL3
- ADDRESS OF STALL VALUE
FC.OPB R+12
»STARTING CYL INDER
GSEEK, 380PB R+2Z . SEEK=COMMAND
RO, o8CALL A
. GO0 EXECUTE THE COMMAND
RO, STALL
- STALL
STALL3
. ADDRESS OF STALL VALUE
.LOOP 7

END OF PRSS ROUTINE

PR 0 2022000000000 00000008¢00 0002000
ittt 000
+SINCREMENT THE PRSS NUMBER (SPRSS)

+SINDICATE END-OF -PROGRAM AFTER 8
XIF THERES R MONITOR GO T0 |IT
+XIF THERE ISN'T JUMP TO RESTARTY

017366
017372
017414
017414
017420
017422
017426

017442
0174842
017446
017450
017451
017452

SEQ 0093

,t,s¥;;l!tt!!llll!ltl!l!tfllllllll!lltl!!!tllltll!ltt!!l!!t!ll!!!!!

SBTTL

017366

PRGE 97

104401
000410

017374

005737
001434

001232

104401

000405

013746
104403
002
000
104401

SEOP
,,255
oY

017430
Lé27s

001254

017460

TYPE

, 659

000000223220 000 2002200

PRSSES THRU THE

PROGRAN

.. TYPE RSC1Z STRING

B8R

64$

TST
BEQ
TYPE
BR
ASCIZ

o#DRVSEL
19
. 679
669
/ ON DORIVE/

»ANY DORIVES SELECTED?
» NO--BRANCH
.. TYPE RSCI1Z STRING
.. GET OVER THE RSCI2

HOV
TYPOS
BYTE
BYTE
TYPE

SR CHKDRV,
- (SP)

., SAVE SRCHKDRYV FOR TYPEOUT
.. GO TYPE--OCTAL RSCiI
. TYPE 2 DIGIT(S)
.+ SUPPRESS LERDING ZEROS
.. TYPE RSC12 STRING

RSCIZ

.. GET OVER THE RSCI2Z

<(CRXCLF>CLF>/END OF PRSS/

2
O
. 699

MACY!I1 30A(1052)
CZRINC RPO4/5/6 MECHANICAL AND READ/WRITE TEST
CZRIRC P11
27-JuL-78 09 18
END OF PASS ROUTINE

4963
4964
4965
4966
4967
4968
4969
4970
4921
4972
49?73
4974
4975
4976
4977
4978
4979
4980
4981
4982
w983
4984
4985
4986
4987
4988
4989
4990
4991
4992
4993
Y9N
4995

017456

017504
017504
017510
017512
017516
017522
017526
017532
017540
017542
017544
017546
017550
017552
017554
017560
017602
017602
017606
017612
01761%
017616
017620
017622
017624
017626
017626
017630
017632

000412

013746
104402
005037

.. 699
689

001112
001112
001102
001204
001100
100000

SEOPCT
SENDCT

017562
.. 659
649

SGETU2
SENDRD

SOORGN

377
017636

377

000

RSC12

nov

TYPOC
CLR
CLR
CLR
INC

001109

017632
000042

SR TNRD
SENULL

8IC
OEC
WORD
BGT
Mov
. HORD
SEOPCT
TYPE
BR
RASCi12
TYPE
MOV

BEQ
RESET
JSR
NOP

689

8
27-JUL-78

09 24

..GET OVER

ERRORS DETECTED=/

SRSERTTL,
- (SP)

SBSERTTL

STSTNM
STIMES
$PASS

#100000. SPASS
(PC)+
8
$SOOAGN
éPC)+.a(P()+

PRGE 98
THE RSCIZ
-

.. SAVE SBSERTTL FOR TYPEOUT
., 60 TYPE--OCTAL RSCII(ALL DIGITS)
,ZERO ERROR TOTAL
.. ZERO THE TEST NUMBER
.. ZERO THE NUMBER OF |TERATIONS
.. INCREMENT THE PRSS NUMBER
..DON'T ALLOWM R NEG
NUMBER
.o YES
+.RESTORE

COUNTER

. 659%
649
C(CRYCLF)/END OF

.. TYPE RSCI1Z STRING
..GET OVER THE RSCIZ
TEST /

- SENULL
oft42, RO
SDOAGN

»TYPE NULL CHARACTER
.. GET MONITOR RDORESS
.. BRANCH |F NO MONITOR

PC. (RO)

,.G0 TO MONITOR
.. SARVE ROOM
. FOR
.. RCT11

e(P()+
RESTART
‘1,'110

. » RETURN

NOP
NOP

JMP
WORD
BYTE
EVEN

.. CLEAR THE HWORLD

»»NULL

CHRRACTER

STRING

SEQ 0094

MACY11 30RA(1052)
CZRIAC RPOY/S/6 MECHANICAL RAND RERD/WRITE TEST
(ZRJIAC P11
27-JL-78 09 18
END OF PASS ROUTINE

8
27-JUL-78

SBTTL

333 SYSMAC SUBROUTINES 333

SBTTL

ERROR HAMNOLER ROUTINE

09 24

PARGE 99

SEQ 0095

PR L 1323020000 80000 00000 03300030008 3030803 0000000000000 30030000023
+BTHIS ROUTINE MWILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT,
.SSAVE THE ERROR |ITEM NUMBER RND THE ADDRESS OF THE ERROR C(ALL
+3AND GO TO TYPERR ON ERROR
+B3THE SHITCH OPTIONS PROVIDED BY THIS ROUTINE ARE
- 3SH16=1
HALT ON ERROR
- ¥SH13=1
INHIBIT ERROR TYPEOUTS
- ESH10=1
BELL ON ERROR
- 3SW09=1
LOOP ON ERROR
- SCALL
. 8
ERROR
N
»» ERROR=EMT AND N=ERROR ITEM NUMBER

104407
032777
001411
005737
001406
013737
013737
105237
00177%
013777
032777
001402

104401
005237
011637
162737
117237
Q32777
001004
008737
104401

161272

001420
001422
001103

001150
001152

001102
002000

161234
161224

001210

001112
001116
000002
161152
020000

CKSHR
BIT
BEQ

TST

001230

19
001116
00111y
161164

020056
001215

209

032777
001402
013716
005737

001000
001110
001206

013716

001206

02373?
001001
000240
013737
013737

000042

00o0ove

00141y
001416

001150
001152

161132

SRLPTARVL

79
S#LPS. S#STPS
ofLPB. SRSTPB
SERFLG
4]
STSTNM. @DISPLRY
#8710, SHR
19
» $BELL
SERTTL
(SP), SERRP(
#2, SERRPC
SSERRPC.SITEMB

BNE
JSR

TYPE

209
PC. TYPERR
» SCRLF

TST

SSHR

8PL
HALT
CKSHR
BIT
8eQ
MOV
TST
BEQ
Mov

CHpP
ng

#SHO8, aSHR
’S

BEQ
MoV
MoV
INCB
BEQ
MOV
BIT
BEQ
TYPE
INC
Hov
SuB
Move

8IT

161146

001402

000400

005777
100002
000000
104407

020046

SERROR

MOV
MOV

#81T713. 3SHR

#8 1709, &SHR
4s
SLPERR, (SP)
SESCAPE
5%
SESCAPE. (SP)

k42, Jtk6

. TEST FOR CHANGE IN SOFT-SHR
» SEND ERROR MESSAGE TO TTY?
. YES--BRANCH

, 1S THERE R LINE PRINTER AVAILASBLL?

- NO--BRANCH
. YES--SETUP STRTUS
.AND BUFFER REG 'S FOR LINE PRINTER
.. SET THE ERROR FLAG
,.DON'T LET THE FLRG GO TO ZERO
., DISPLAY TEST NUMBER RAND ERROR FLRG
»»BELL ON ERROR?
,»NO - SKIP
»»RING BELL
.. COUNT THE NUMBER OF ERRORS
.»GET ADORESS OF ERROR INSTRUCTION
., STRIP AND SAVE

.. SKIP TYPEOUT

THE ERROR

IF SET

ITEM CODE

.. SKIP TYPEOUTS
.»GO TO USER ERROR ROUTINE

. HALT ON ERROR

.. SKIP |F CONTINUE
,»HALT ON ERROR!
»» TEST FOR CHANGE IN SOFT SKR
»»LOOP ON ERROR SKWITCH SET?
.. BR IF NO
.»FUDGE RETURN FOR LOOP ING
.. CHECK FOR AN ESCRPE RDORESS
.. BR |F NONE
. FUDGE RETURN RODRESS FOR ESCRPE

+ACT11 AUTOMARTIC MODE?

+NO.

CONTINUE

SR TPS, JRSTPS
ot TPB, SNSTPB

- SET STATUS AND BUFFER REG
,FOR TTY

CZRJIAC RPOM/S5/6 MECHANICAL AND RERD/WRITE TEST
MACYI1 30A(1052)
(ZRJAC P11
27-JL 78 09 18
ERROR HANDLER ROUT INE
5052
5053
5054
5055

020054

000002

5067
5068
5069
5070
5071
5072
5073
5074
5075
5076
5077
5078
5079
5080
65081
5082
5083
508%
5085
5086
5087
5088
5089
5090
5091
5092
5093
509
5096
5096
5097
5098
5099
6100
5101

6102
5103
5104
5106
5106

5107

8
27-JuL-78

RTI

09 24

PAGE

100

SEQ 0096

,RETURN FROM ERROR (ALL

R 3208383080200
00008 %4 1330200337000 00000000000000008000 080004/
SBTTL
TYPERR - TYPE ERRO R ROUTINE

5056

5057
5058
5059
5060
5061
5062
5063
S06M
5065
5066

- THIS ROUTINE USES THE "IT EN CONTROL BYTETM (SITEMB) TO DETERMINE

+HHICH ERROR IS TO BE REPO RTED., IT THEN OBTAINS, FROM THE
.TABLETM (SERRTB), AND REPO RTS THE APPROPIRTE |INFORMATION
. CONCERNING THE ERROR
. CALL
.
JSR
PC. ATYPER R
,
RETURN
020056
020064
020066

113737
104412
162700

020072
020076
020102
020106
020112
020116
020122
020126
020130
020132
02013
020136
0201%0
020182
02014
0201562
020166
020160
020164
020166
020170
020178
020176
020202
020208
020206
020212
020214
020220

010037
010137
010237
010337
010437
010537
113700
010001
005300
106300
106300
106300
103002
062700
062700
012037
001447
104401
104401
000000
162701
100440
013701
106301
006301
012702
005003
104401
000402

020226
020226
020232
020238
020236
020240
020242
0202%6
020250
020252

012237
006301
103013
005103
001002
104401
104401
000000
005701

020254

001403

001102

001176

TYPERR

000004
001162
001164
001166
001170
001172
00117y
00111y

000240
004306

020166

001215
000041

001260

004254
020222

020250

001215

.. 659
649
38

4s
5%

MOVB
SAVREG
sue

MOV
MOV
MoV
MOV
Hov
MOV
nove
MOV
DEC
ASLB
ASLB
ASLB
8CC
RDD
RDD
nov
BEQ
TYPE
TYPE
HORD
Sus
BM|
nov
ASLB
ASL
MOV
CLR
TYPE
BR
RSC1Z2

MOV
ASL
8CC
CON
BNE
TYPE
TYPE
HORD
TST

8tqQ

"ERROR

SISTSTNML
@ #S$THPO , SRVE

THE TEST NUMBER
.SAVE RO - RS
.FORM TEST PC
. COPY RO-R5 IN SREGO-SREGS

#4, RO
RO. 4SREGO
R1,
SR SREGH
R2. MIREG2
R3. JASREG3
R4, JASREGH
RS,
SR SREGS
.PICKUP ERROR |TEM NUMBER
S8SITEMB.
R0
.AND COPY IT INTO R1
RO. R}
.FORM INDEX FOR ERROR TRBLE
RO
RO
RO
RO
. 1S ERROR > 377
19
RITEMY1-SE RRTB,RO , YES--FORM OFFSET
, FORM RDORESS
#SERRTB.RO
+GET ERROR MESSAGE (EM) POINTER
(RO)+,
28
-BRANCH IF THERE ISN'T ONE
78
»"CRRRIAGE RETURN - LINE FEED
» SCRLF

O
41, R1
79
SR SVSTAT.
R1
R1
R1
#STATBL.R2
R3
. 659
64
/7 (/

BN POINTER GOES HERE
+SPECIAL ERROR ITEM NUMBER?
+NO--BRANCH
»GET STRTUS/ERROR INDICATOR
STRIP "DONE" BIT (BITO?)
+STRIP "ERROR" BIT (BIT15)
»1ST ADDRESS ON STATUS MESSAGE POINTERS
»CARRIAGE RETURN-L
INE FEED SHITCH
,.TYPE RASCI1Z STRING
.. GET OVER THE RSCI2

(R2)+,5%
R1
69
R3
4s
. SCRLF

. MESSRGE POINTER
TYPE THIS MESSAGE"?

0
R1

YES--TYPE R "CR" & "LF"?

» NO--BRRANCH
. YES

-MESSAGE POINTER
.MORE TO TYPE"?
» NO--BRANCH

GOES HERE

8
G
MACY11 30A(1052)
CZRJAC RPOM/5/6 MECHANICAL AND READ/WRITE TEST
27-JUL-78
CZRJIRC P11
2?7-Ju.-78 09 18
TYPERR - TYPE ERROR ROUTINE
5108
5109
5110
5111
5112
5113
5114
5115
5116
5117
5118
5119
5120
5121
5122
5123
5124
5125
5126
5127
5128
5129
5130
5131
5132
5133
5134
5135
5136
5137

5138
5139
5140

5141
5142

5143

5144
5145
5146
5147
5148
5142

515(
5161
5152
5163
5154
5155
5156
5157
5158
5159
5160
5161
5162
5163

020256
020262
020264
0202%6
020272
020276
020276
020302
020304
020310
020312
020314
020316
020320
020322
02032
020326
020330
020332
020336
02030
020342

02034

020346

020350

104401
000761
001 360
104401
000401
012037
001404
104401
104401
000000
012001
001450
005005
012000
012002
001441
005105
104401
112003
112004
006004
103403
013146
104402
000402

ou40N2

020274

020312

669
79

001215
8%
9%

MOV

8EQ
TYPE
TYPE
WORD
MoV
BEQ
CLR
MOV
MHov

001215

109
119

129

139

ou4042
020420
001215
ouw40u42

169

. WORD

209
SBTTL

."DH" POINTER GOES HERE
.PICKUP DATA TABLE (DT) POINTER
-BRANCH 1F NONE
+SET INDENT SKWITCH
.DATR FORMAT (DF) POINTER
+NUMBER OF DH'S TO TYPE
-BRANCH IF OH NUMBER IS O
»NO INDENT
- CARRIAGE RETURN-L
INE FEED
~NUMBER OF DATR WORDS TO TYPE
+AND HOW TO TYPE THEM
.OCTAL OR DECIMAL?
» DECIMAL--BRANCH
.. SAVE @(R1)+ FOR TYPEOUT
.. 60 TYPE--OCTAL ASCII(ALL DIGITS)

295

<0)+.R0
(RO)+.R2

@(R1)+,-(SP)

159

179

0
(RO)+,
R1

MOV
TYPDS

TYPE
con
BNE
TYPE
Hov

001215

+PICK UP DRTA HEADER (DH) POINTER
»BRANCH |F NONE
.CARRIAGE RETURN-LINE FEED

139

149

ou4o42

(RO)+,
8%
9
» SCRLF

/)/

8eQ
TYPE
B8R
DEC

BLE

TYPE
TYPE
TST

BNE

TYPE

B8R

RESREG
RTS

101

. 679
669

39
33

17§
RS
, SCRLF

DEC

PRGE

. YES--SPRCES
. LOOP
+BRANCH IF NOT FINISHED
.. TYPE RSCIZ STRING
..GET OVER THE RSCIZ

-MSG SP

8EQ
COn
TYPE
Move
HovB
ROR
8CS

MOV
TYPOC

013146
104405

005303
001403
104401
000764
005302
003421
104401
005105
001002
104401
012037
104401
000000
104401
005705
001342
104401
000737
104413
000207

TYPE

8R
BNE
TYPE
B8R
RSCi2

09 24

(RO)+.R3
(RO)+.RY
RY

129
O9(R1)+,-(SP)

R3
149
,MSG SP
119
R2
209
. SCRLF
RS
159
.MSG SP
(RO)+, 169

o
. SCRLF
RS
109
- MSG SP
10$
PC

.. SAVE @(R1)+ FOR TYPEOUT
.»G0 TYPE--DECIMAL ASCII WITH SIGN
»MORE NUMBERS TO TYPE?
» NO--BRANCH
- YES--TYPE SEPERATORS
. LOOP
-MORE DH'S?
» NO--BRANCH
-YES--STRRT R NEW L INE
» INDENT?
» NO--BRANCH
. YES--TYPE SPACES
»GET NEXT DH
+AND TYPE IT
.DH POINTER GOES HERE
,CARRIAGE RETURN-LINE FEED
» INDENT?
»NO--BRANCH
» YES--TYPE SPRCES
. LOOP
.RESTORE RO - RS
» RETURN

TYPE ROUTINE

PR 32000030 0300200000 0000000000 000000200000223080000¢00803000000%¢4%¢
. SROUTINE TO TYPE RSCI2 MESSAGE
MESSAGE MUST TERMINATE WITH A O BYTE
.3THE ROUTINE HWILL INSERT R NUMBER OF NULL CHARARCTERS RFTER R LINE FEED

StQ 0097

MACYI1
zrinc RPOM/5/6 MECHANICAL AND READ/WRITE TEST
CZR IR P11
TYPE ROUTINE
27-JW.-78 09 18

- INOTEN

5164

30R(1052)

"OR

USING R TRAP

.|
|
. 3
. |

105737
100002
000000
000407
010046
017600
112046
001005
005726
012600
062716
000002
122716
001430
122716
001006
005726
104401

001215
105037
000755
004?737
123726
001 350
013746
105366
002770
004737
105337
000770

001157

$TYPE

000002

TYPE

TSTB
8PL

19
29

Movs

000002

k3 )

000011

000200

000001

020606
020610
020612

020614

020622
020630

112716

004737
132737
001372
005726
000724
105777
100375
116677
122766

000040
020614

000007

020660

000002
000015

160322
000002

STPFLG
19

.. 1S THERE R TERMINAL?
.. BR IF YES
. HALT HERE IF NO TERMINAL
.- LEAVE
.. SRVE RO

(RO)+, -(SP)

.»GET RDORESS OF RSCIZ STRING
.. PUSH CHARACTER

ADD

82, (SP)

.. ADJUST RETURN PC

TST
Hov

(SP)+
(SP)+, RO

RTI
cnP8
8tQ
(HPB

&HT, (SP)
8%
RCRLF. (SP)

5%
(SP)+

DECB

1(SP)

BLY
JSR
DECB
BR

MOVB
JSR
8I78
BNE
TST
BR

TSTB
BPL
Hove
cneB

69
PC, STYPEC
SCHARCNT
79

TO BE

,.BR

8%
99

FILLER (HRARR(CTER

IS FIRST RDORESS Of RN RSCIZ STRING

.} )

5%
69

$TYPEC

160330

.»MESADR

SCHARCNT
29
PC, STYPEC
SFILLC. (SP)+
29
$NULL. - (SP)

020614
020660

(HARACTER TO BE USED RS THE

BNE

~HORIZONTAL

020570
02057y

INSTRUCTION

CLRB
BR
JSR
(nPB
BNE
MOV

001154

102

- MESRADR

@Z2(SP), RO

SCRLF

020614
001156

CONTRINS THE

39
RO, -(SP)

MOV

BNE
TST
TYPE

020660

PRGE

TYPE
ME SAOR

HALT
BR
MoV

609

09 24

SFILLS (ONTAINS THE NUMBER OF FILLER (HARRCTERS REQUIRED
SFILLC CONTRINS THE CHARACTER TO FILL RFTER

. 3CALL
.31)

8
27-JUL-78

SEQ 0098

SNULL

. INOTE 2
,:NOTEJ

TYPED ONTO STR(K

ISN'T THE TERMINATOR

+. |F TERMINATOR POP
.. RESTORE RO
.+ RETURN
.. BRANCH

.. BRANCH

1F NOT

IT OFF

THE

STRC(K

(HT)

(CRLF>

.. POP
(CRYCLF) EQUIV
.. TYPE R (R RND LF

. CLERR CHRARARCTER COUNT
» . GET NEXT CHARACTER
..G0 TYPE THIS CHARACTER
»o IS IT TIME FOR FILLER CHARS °
+.|IF NO GO GET NEXT CHRR
..GET & OF FILLER CHARS
NEEDED
.. AND THE NULL CHRR
..DOES A NULL NEED TO BE

TYPED?

.+BR IF NO--GO POP THE NULL OFF
..60 TYPE A NULL
.. D0 NOT COUNT RS R COUNT
.. LOOP

STRCK

TRB PROCESSOR

&' ., (SP)
PC. STYPEC
%7, SCHARCNT
9
(SP)+

29
@8 TPS
STYPEC
2(SP). asTPB
#CR, 2(SP)

.. REPLRCE TRB WITH SPRCE
.. TYPE R SPRCE
. BRANCH IF NOT RT
.. TRB STOP
., POP SPRCE OFF STRCK
. GET NEXT CHARACTER

. WARIT UNTIL PRINTER

IS RERDY

.. LORD CHAR TO BE TYPED INTO DATAR REG
.. IS CHARARCTER R CRRRIAGE RETURN?

(ZRJAC RPON/S/6 MECHANICAL AND READ/WRITE TEST
MACY11
(ZRJAC P11
TYPE ROUTINE
27-JW-78 09 18

5220
5221
5222

5223
5224
5225
5226
5227
5228
5229
€230
5231
5232
5233
5234
5235
5236
5237
5238
5239
5240
5241
5242
5243

020636
020640

020644
020646
020654
020656
020660
020662

001003
105037
000406
122766
001402
105227
000000
000207

BNE
(LRB
BR
cnPB
8tQ

020660

000012

000002

INCB

SCHARCNT
WORD
STYPEX
RTS
SBTTL

30A(1052)

8
27-JUL-78

19
SCHARCNT
STYPEX
8LF, 2(SP)
STYPEX
(PCH+
O
PC

BINRRY TO OCTAL

09 24

PAGE

103

StQ 0099

.. BRANCH IF NO
»» YES--CLERAR CHRARARCTER C(OUNT
L EXIT
.. 1S CHARACTER A LINE FEED”
.. BRANCH IF YES
.. COUNT THE

CHRRRCTER

. CHARACTER COUNT STORRGE

(ASCII) RAND TYPE

R
R 2080t i b et ettt etsR ettt etiRttttetipeeetitessi]
+ETHIS ROUTINE IS USED TO CHANGE R 16-BIT BINARY NUMBER TO R 6-DIGIT
+S30CTAL (RSCIi) NUMBER AND TYPE IT
+3STYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
. 3CALL

PR 3

MoV

D
P
.
=
,:

5244
5245
5246

5247
5248
5249
5250
5251
5252
5253

000000
000001
021111

021107

112737
112737
112737
010346
010446

000001
000006
000005

021107
021111
021106

NUM, - (SP)

.. NUMBER TO BE

N
M

TYPE

,!:;IPO("'ENTER HERE

TYPEOUT OF R

FOR

TYPED

.. CALL FOR TYPEOUT
,.N=1 TO &6 FOR NUMBER OF DIGITS TO TYPE
..M=1 OR O
.. 1=TYPE LERDING ZEROS
.. 0=SUPPRESS LERDING ZEROS

BSTYPON----ENTER HERE TO
- XSTYPOS OR STYPOC
. SCALL
D |
MoV
NUM. - (SP)
,:
TYPON

017646
116637
112637
062716

TYPOS
BYTE
BYTE

OUT

WITH THE

SRME PRARAMETERS RS

THE

.. NUMBER TO BE TYPED
.. CALL FOR TYPEOUT

16 BiIT NUMBER

TYPOC

$TYPOS

MOV
MOve
MOve
ROD

000002
$TYPOC.
STYPON

.. CALL

FOR

TYPEOUT

BR
MOVB
HOVB
MOVB
Mov
MOV

9(SP). -(SP)
1(SP). SOF iLL
(SP)+, SGMODE+1
82. (SP)

,»PICKUP THE MODE
., LOAD ZERO FILL SKiTCH
.. NUMBER OF DIGITS TO TYPE
.. RADJUST RETURN RDDRESS

86, S0MODE+1
85, SOCNT
R3.-(SP)
RY,-(SP)

,.SET THE Z2ERO FILL SHITCH
., SET FOR SIX(6) DIGITS
»»SET THE !TERRTION COUNT
.»SAVE Q1
.. SAVE RM

STYPON
81, 90F ILL

010546
113704

021111

ngga

:8“005*1,3“

..GET THE NUMBER OF DIGITS TO TYPE

062704
110837
113704
016605

000006
021110
021107
000012

RDD
HOVB
HOVB
Mov
(LR
ROL
BR
ROL

86. RY
R4, SOMODE
SOF ILL.RY
12(SP).R5
R3
RS
39
RS

.. SUBTRACT IT FOR MAX
ARLLOKWED
.»SRAVE 1T FOR USE
,.GET THE ZERO FILL SWITCH
+.PICKUP THE INPUT NUMBER
»»CLEAR THE OUTPUT WORD
,»ROTRTE MSB INTO "(C"
». G0 DO MSB
,.FORM THIS DIGIT

006105
000404
006105

19
29

LAST

8
J
E%:jgg ::?Q/S/b MECHANICAL ANC RERDO/WRITE TEST
MACY11 30R(1052)
27-JUL-78
27-JUL-78 09 18
BINARY TO OCTAL (RSCII1) AND TYPE

020776
021000

021002
021004
021006
021012
021014
021020
021022
02102
021026
021030
02103%
021040
02104
021050
021054
021056
021060
021062
021064
021066
021070
021072
021100
021102
021104
021108
021106
021107
021110

006105
006105
010503
006103
105337
100016
042703
001002
005704
001403
005204
052703
052703
110337
104401
105337
003347
002402
005204
000744
012605
012604
012603
016666
012616
000002
000
000
000

021110

1777270

000060
000040
021104

021104
021106

’9

69
000002

000004

8%
SOCNT
SOFILL

000
000000

$OMODE
SBTTL

ROL
ROL
MoV
ROL

RS
RS
R5.R3
R3

TST
8tQ
INC

RY
59
RY

HOV8
TYPE
DECB
8GT
BLT
INC

R3. 89
, 89
SOCNT
29
3
RY

MOV
MOV
MOV
MOV
RTI
BYTE
BYTE
BYTE
BYTE

(SP)+, Ry
(SP)+,R3
2(SP). 4(SP)
(SP)+, (SP)

DECB
BPL
BIC
BNE

8IS
BIS

BR
MoV

WORD

$0MOOE
7¢
§
7770.R3
4y

#'0.R3
&' .R3

29
(SP)+,R5

O
O
O
O

PRAGE

..GET LSB OfF THIS DIG!IT
.. TYPE THIS DIGIT?
..BR IF NO
,»GET RID OF JUNK
.. TEST FOR O
. SUPPRESS THIS 0?
..BR IF YES

,.DON'T SUPPRESS ANYMORE 0'S

,.MAKE THIS DIGIT RSCI
|
,»MAKE RSCII IF NOT ALRERDY

.» SAVE FOR TYP ING
..GO TYPE THIS DIGIT
»» COUNT BY 1
..BR IF MORE TO DO
.. BR IF DONE
.. INSURE LRST DIGIT ISN'T R BLANK

.. GO DO THE LARST DIGIT
.. RESTORE RS
, . RESTORE
., RESTORE
.. SET THE

RM
R3
STACK FOR RETURNING

. » RETURN

.. STORARGE FOR RSCII DIGIT
.. TERHINRTOR FOR TYPE ROUTINE
.. OCTAL DIGIT COUNTER
. ZERO FILL SWITCH

.~ NUMBER OF DIGITS TO TYPE

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

8INBeEsS

s Gl

b P

PR 2002000003800 000000302020000000000020000330300000000300002028300404
,3THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO R 5-DIGIT
~ZSIGNED DECIMAL (ASCI1) NUMBER AND TYPE IT
DEPENDING ON WHETHER THE
+SNUMBER 1S POSITIVE OR NEGATIVE R SPRACE OR R MINUS SIGN WILL BE TYPED
-3BEFORE THE FIRST DIGIT OF THE NUMBER
LERDING ZEROS WiLL RLHRYS BE
. SREPLACED WITH SPACES
» SCALL.
. X
MOV
NUM, - (SP)
»»PUT THE BINARY NUMBER ON THE STRCK
P
TYPDS
..G60 TO THE ROUTINE

ok gt

5276
5277
5278
5279
5280
5281
5282
5283

09 24

010046
010146
010246
010346
010546
012746

016605
005405
112766
005000

$TYPDS

020200
000020
000055

000001

HOV
MOV
MOV
HOV

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

,.PUSH
,,PUSH
++PUSH
»,PUSH

RO
R1
R2
R3

ON
ON
ON
ON

STRC(K
STACK
STAR(K
STACK

MOV
MOV
8PL
NEG
MOVB
(LR

#20200. -(SP)
20(SP). RS
19
R5
8'-,1(SP)
RO

».SET BLANK SKITCH RAND SIGN
.. GET THE INPUT NUMBER
..BR IF INPUT IS POS
.. MAKE THE BINARY NUMBER POS
,.MAKE THE ASCI| NUMBER NEG
»» ZERO THE CONSTANTS INDEX

S€Q 0100

K
8
CZRJIAC RPON/S5/6 MECHANICAL RND RERD/WRITE TEST
MACY11 30A(1052)
27-4UL-78
09 24
CZRJAC P11
27-JW.-78 09 18
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

5332
5333

533
5335
5336
5337
5338

021150
021158
021160
021162
021166
021170
021172

005002
016001
160105

S0
5341
52
53
53w
5346

021176
021200
021202
021208
021206
021210

060105
005702
001002
105716
100407
106116

5339

S6
SM7?
S88

5349
5350
5351
5352
5353
5354
5355

6356

6357
5358
5359
5360
5361
5362
5363
5364
5365
6366
5367
6368
5369
6370
6371
6372
§373
gg;;

012703
112723

02117«

002402
005202
00077?%

021212
021218
021222

103003
116663
052702

021226
021232
021238
021236
021242
0212v8
021246

021250

021252
02125+
021256
02126+
021266
021270
021272
021279
021276
021300
02130
021312
0213184
021316
021320
021322
021324
021326

052702
110223
005720
020027
00276
003002
010502

5381
5382
5383
5384
5385
5386
5387

021336
02130
0212

0213w¢

021316

000001
000060

177777

000040

105726
100003
116663
105013
012605
012603
012602
012601
012600
104401
016666
012616
000002
023420
001750
000144
000012
000004

000000
000000
000000

000002
021346

000010

000764

gg;g
5378
5379
6380

021326
000040

8%
177777

177776

021326
000002

000004

§S08LK, R3
£’ L(R3)e

R2
SOTBL (RO). R1
R1,R5

»»CLEAR THE BCD NUMBER
.. GET THE CONSTANT
.. FORM THIS BCD DIGIT
.. BR IF DONE
.. INCRERSE THE BCO DIGIT BY 1

RDD
1ST
BNE
TST8
eni
ASLB

R1.R5
R2
5%
(SP)
’9
(SP)

.. ROD BACK THE CONSTANT
.. CHECK 1F BCD DIGIT=0
..FALL THROUGH IF O
.»STILL DOING LERDING 0°S”?
..BR IF YES
.. NSD?

8 .R2
RZ, (R3)+
(RO)+
RO, %10
29
8%
R5.R2

. MAKE IT R SPRCE IF NOT ALRERDY R DIGIT
.. PUT THIS CHRRACTER IN THE OUTPUT BUFFER
+» JUST INCREMENTING
.. CHECK THE TRBLE [INOEX
.. 60 DO THE NEXT DIGIT
..60 TO EXIT
..GET THE LSD

B8R

4y
R2
39

8C(C
nove
8IS

69
1(SP)., -1(R3)
#°'0.R2

81S
HovB
TST
CHP
BLT
8GT
MOV

B8R

$0BLK
SBTTL

TTY

sOTBL

105

nov
Hove
CLR
Hov
sus
BLT
INC

TST8
8PL
HOVB
CLRB
MOV
MOV
MOV
MOV
MOV
TYPE
HOV
MOV
RTI
10000
1000
100
10
BLKH

PRGE

(SP)+
9s
-1(SP),-2(R3)
(RY)
(SP)+,R5
(SP)+.R3
(SP)+,R2
(SP)+, R
(SP)+,RO
» SDBLK
2(SP), 4(SP)
(SP)+, (SP)

.. SETUP THE OUTPUT POINTER
»»SET THE FIRST CHARACTER TO R BLANK

..BR IF NO
,.YES--SET THE SIGN
.. MAKE THE BCD DIGIT RSCII

.. GO CHANGE TO RSCI|I

,.WAS THE LSD THE FIRST NON-ZERO?
..BR 1F NO
,.,YES--SET THE SIGN FOR TYPING
.. SET THE TERMINATOR
»,POP STRCK INTO R5
..,POP STRACK INTO R3
.. POP STRCK INTO R2
.»POP STRACK INTO R1
..POP STRCK INTO RO
, . NOW TYPE THE NUMBER
.~ RDJUST THE STARCK
,-RETURN TO USER

INPUT ROUTINE

PR L2820 0000000000 0200008 000000000200002020023020022000000080000¢%¢
ENRBL
LSB
STKCNT: _WORD
O
.»NUMBER OF ITEMS IN QUEUE

STKQIN: . WORD
$TKQOUT: . WORD
STKQSRT- . BLKB
STKQEND=.

O
O
2

»» INPUT POINTER
. OUTPUT POINTER
.. TTY KEYBORRD QUEUE

+XTK INITIALIZE ROUTINE
+XSTHIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QLSUE

Sta 0101

MACY11 30A(1052)
CZRIRC RPO4/S5/6 MECHANICAL AND RERD/WRITE TEST
CZRIAC P11
27-JUL-78 09 18
TTY INPUT ROUTINE

5388
5389
5390
5391
5392

- SSETUP THE

. SCALL.

021346
021352
021360
021366
02137y
021402
021406
021414

005037
012737
013737
012737
012737
005777
012777
000207

021336
021344
021340
021416
000200
157540
000100

021340
021342
000060
000062

27-JUL-78

JSR
RETURN

PC. STKINT

STKINT

(LR

STKCNT
S8STKQSRT. STKQIN
$TKQIN., STKQOUT
§STKSRV,
a8 TKVEC
#200,
98 TKVE(C+2
#37KB
#100. 3%7KS
PC

157530

MOV

RTS

09 24

PRGE

106

INTERRUPT VECTOR AND TURN ON THE KEYBORRD

3
. ¢

MoV
"oV
MOV
nov
TST

)

SeEQ 0102
INTERRUPT

.»CLERR COUNT OF I(TEMS IN QUEUE
..MOVE THE STARTING RODRESS OF THE
.. QUEUE INTO THE INPUT & OUTPUT POINTERS
,;INITIRLIZE THE KEYBORRD VECTOR
.. "BR" LEVEL 4
.. CLEAR DONE FLAG
».ENRBLE TTY KEYBORRD INTERRUPT
. RETURN TO CRLLER

- 3TK SERVICE ROUTINE
+BTHIS ROUTINE WILL SERVICE THE TTY KEYBORRD INTERRUPT
-38Y READING THE CHARRCTER FROM THE INPUT BUFFER AND PUTTING
31T IN THE QUEUE.
+BIF THE CHARACTER IS R "CONTROL-C" ( C) STKINT IS CALLED AND
+BUPON RETURN EXIT IS MRDE TO THE "CONTROL-C" RESTART RDORESS

021416
021422
021426
021432
02143y
021440
021444
021446

021452
021456

021460
021466

021470
021470
021476
021500

02150
021506
021510
021514
021616
021522

117746
042716
021627
001007
104401
008?737
005726
000137

021627
001004

000003
022546
021346
004660
000007

022737
001500

000176

001140

022737
001004
104401
005726
000451
021627

000002

021336

001021
006077
005726
105777
100375
117746
02716

021570

$TKSRV

157524
177600

022627
001 366
012777
000002
006237
021627
002405

TYPE
TST

000023

167422
167414

319

157410
177600

000021

021336
000140

CHP

BNE

001210

000100

MOVB
BIC
CHP
BNE
TYPE
JSR
TST
JHP
CHP
BNE
CHP
8EQ

157366

329

BR
CHP
BNE
CLR

TST

TST8
BPL
HOVB
8ic
CHP
BNE
MOV
RTI

INC
CMP
BLT

8 (177.(SP)
(SP). #3
19
. SCNTLC
PC. STKINT
(SP)+
START2
(SP). 87
28
#SHREG, SWR
69

. PICKUP THE CHARARCTER
+» STRIP THE JUNK
.. 1S IT R CONTRO. (?
. BRANCH |F NO
.. TYPE A CONTROL-C ( ()
»» INIT THE KEYBOARD
.»CLEAN UP STACK
. CONTROL C RESTART
.. IS IT R CONTROL G?
. BRANCH IF NO
.+ 1S SOFT-SHR SELECTED?
.60 TO SHWR CHANGE

%2, STKCNT
39
. $BELL
(SP)+
59
(SP). 823
328
3 TKS
(SP)+

.. 1S THE QUEUE FULL?
»»BRANCH IF NO
,»RING THE TTY BELL
,,E§E¢N CHRARACTER OFF

(SP)+. 421
319
#100, a$TKS

;. 1S IT A CONTROL-Q?
»+BRANCH |F NO
»REENRBLE TTY KEYBORRD

STKCNT

»» COUNT THIS CHARARCTER
+. 1S 1T UPPER CRSE"?
..BRANCH IF YES

@3TKS
319
B.
- (SP)
#%3TK
8 C177.(5P)

(SP). 8140
4s

(START2)

1S 1T R CONTROL-S?
..BRANCH IF NO
., DISABLE TTY KEYBORRD
.. CLEAN (HRAR OFF STRCK
,.HAIT FOR R CHAR
. LOOP UNTIL ITS THERE
,»GET THE CHARACTER

.+ RETURN

STRCK

INTERRUPTS

RPO4/S/6 MECHANICAL AND RERD/WRITE TEST
MACY11 30A(1052)
P11
27-JU-78 09 18
TTY INPUT ROUTINE

021572
021576
021600
021604
021610
021614
021622
021624
021632

021634
021642
021644
021650
021652
021656
021662
021666

021670
021676
021700
021702
021706
021712

021720
02172
021730
0217
021736
021742
0217%y
021746

021627
003002
%2716
112677
005237
023727
001003
012737
000002

022737
001124
1057277
100121
117746
%2716
021627
001300

021346

021344

021340

000176

021346
157232
000001

013746
104402
104401

INC

022546
000006
001135

000001

000100

167124

;»UPDRTE THE POINTER

BNE
TST8
BPL
MOVB
BIC

15§
o3TKS
15%
@STKB, - (SP)
8 C177,(SP)

;L EXIT IF NOY
;1S A CHAR WAITING?
. IF NOT, EXIT
;s YES
;oMAKE IT
7-BIT ASCII

BNE

;.
F NOT, PUT
;. RAND EXIT

69%:

(SP). %7

;.18 IT R CONTROL-G?
IT

IN THE TTY QUELE

cnee

SAUTOB. &1

TST
JSR
CLR

(SP)+
PC, STKINT
d3TKS

TYPE
TYPE
MOV
TYPOC
TYPE
(LR
(LR
TST8
BPL

- SCNTLG
- SMSWR
SHREG. - (SP)
» SHNER
-(SP)
-(SP)
oS TKS
4 )

.;ECHO THE CONTROL-G ( G)
»» TYPE CURRENT CONTENTS
. SAVE SWREG FOR TYPEOUT
. .60 TYPE--OCTRL ASCIHI(ALL
.+ PROMPT FOR NEHW SKHR
;- CLERR COUNTER
.. THE NEH SHWR
.. CHAR THERE?
++» IF NOT TRY RGARIN

Move

9S8 TKB, - (SP)

. PICK UP CHAR

BNE
TYPE
RDD
(HPB
BNE
MOV

9$
» SCNTLC
86, SP
$INTRG. M1
89
#100. 9$TKS

,»BRANCH IF WOT
»»YES, ECHO CONTROL-C ¢ O)
.. CLEAN UP STRCK
»»REENRBLE TTY KEYBORRD INTERRUPTS?
.. BRANCH IF NO
++ALLOW TTY KEYBORRD INTERRUPTS

BEQ

move

BIC

000003

;. 1S IT A SPECIAL (HAR?
.. BRANCH IF YES
;.MAKE IT UPPER CASE
., RAND PUT IT IN QUEUE

PR3320 000 0000000000000 803000008080208030203030020333000030882400%%1
;BCONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE
;SROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CRLL. RS A RESULT OF A
- BCONTROL-G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED

167166
177600

STKQIN

StQ 0103

IR L3383 08000 800000800 00300830000 3008000000000000002203093¢02¢22%%4
- 3SOFTUARE SWITCH REGISTER CHANGE ROUTINE.
+BROUTINE IS ENTERED
FROM THE TRAP MANOLER., AND WILL
+SSERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP
+SCALL WHEN OPERATING IN TTY INTERRUPT MOOE.
SCKSHR: CMP
SSHREG. SHR
;: IS THE SOFT-SHR SELECTED

199

167172

021627
001015
104401
062706
123727
001003
012777

STKQIN, #STKQEND ;.60 OFF THE END?
5%
;- BRANCH IF NO
SSTKQSRT, STKQIN ;,RESET THE POINTER
;- RETURN

SGTSWR.

022576

107

e
BNE
MoV
RTI

001135

022560
022565
000176

PAGE

(4,14

000001

09-24

(SP). 8175
4s
840, (SP)
(SP)+,dSTKQIN

167270
177600
000007

005726
004737
005077
112737
104401
104401

001140

8
27-JUuL-78

cne
8GT
81C
Move

16727y

001134

021754
021760

022012

000040
177530
021340
021340

123727

001674

021752

02176%
021770
021772
021776
022002
022010

000175

;,ARE WE RUNNING IN AUTO-MODE?

;;BRANCH IF YES

#1,SINTARG

.+ SET

& C177,(SP)

:+CLEAR CONTROL-G OFF STRCK
;.FLUSH THE TTY INPUT QUEUE
..DISABLE TTY KEYBOARD INTERRUPTS

,sHAKE

INTERRUPT MODE

INOICRTOR

DIGITS)

IT 7-BIT RSCII

CZRJAC RPO4/5/6 MECHANICAL RAND RERD/WRITE TEST
MACY11 30A(1052)
CZRJIAC. P11
27-Jn.-78 09 18
TTY INPUT ROUTINE

8B
27-JuL-78

09 24

PRAGE

108

022020

000137

004660

JHP

START2

»» CONTROL-C RESTART

02202
022030
022032
022036
022082

021627
001005
104401
062706
000737

000025

022553
000006

CHP
BNE

(SP), 825
109

1S IT R (ONTROL-U?
., BRANCH IF NOT

209

0220%%

021627
001022
005766
001403
016677
062706
108401
123727
001003
012777
000002
008?32
0216.’
002420
021627
003015
0N2726
005766
001403
006316
006316

000015

109

000004

000002
000006
001215
001135

000001

000100

157030

157052

020614

0L0N060

119
149

159
169

TYPE
ROD
BR

- SCNTLU
#6. SP
19%

CHP
BNE
TST
8EQ
MOV
ROO
TYPE
CnPB
BNE
MOV
71
JSR
CHP

(SP). 815
169
4Y(SP)
119

BiIC

860, (SP)+

RSL

(SP)

2(SP), aSHR
#6. SP
. SCRLF
$INTRG.
M1
159
#100, #$7TKS

PC. STYPEC
(SP), 860

BLY
CHP
8GT

000067
000060
000002

189
(SP). 867
189

TST
BEQ
RSL

179

003002
177776

001214

189
0SABL

2(SP)
179
(SP)

ASL
INC

(SP)
2(SP)

8i1S

-2(SP). (SP)

B8R

209

BR
TYPE

’9
- SQUES

LS8

SEQ 010v

.. IGNORE PREVIOUS INPUT
,.LET'S TRY IT RGAIN
IS IT R (RO
.. BRANCH IF NO
,.YES, IS IT THE FIRST (HAR?
.. BRANCH IF YES
,» SAVE NEW SWR
.. CLEAR UP STARCK
. ECHO (CR> AND <LF>
, RE-ENRBLE TTY KBD INTERRUPTS?
. BRANCH |F NOT
»»RE-ENRBLE TTY KBD INTERRUPTS
»» RETURN
.. ECHO CHAR
.. CHAR ¢ 07?
».BRANCH IF YES
.. CHAR > 77
.. BRANCH IF YES
.. STRiP-OFF RSCI|
++ 1S THIS THE FIRST CHRAR
.. BRANCH IF YES
»»NO, SHIFT PRESENT
.
(HAR OVER TO MRKE
,o
ROOM FOR NEW ONE
»» KEEP COUNT OF CHRR
.»SET IN NEW CHAR
.. GET THE NEXT ONE

« TYPE 2CCRYCLF)
»» SIMULRTE CONTROL-U

PR 2220000 0000000 000000008800 0800 2008000220083 002820¢83328080200228¢8]
»XTHIS ROUTINE WILL INPUT R SINGLE CHARACTER FROM THE TTY
- SCALL
.3
ROCHR
.»GET R CHARACTER FROM THE QUEUE
»» CHARACTER 1S ON THE STACK
3
RETURN HERE
++WITH PRARITY BIT STRIPPED OFF

022176
022200
022206
022212
022214
022220
022222
022222

000004
000004

022222
005737

021336

000002

SROCHR

MOV

]

CLR

64§
1§

MOV
CLR

(SP),
- (SP)

4(SP), 2(SP)
4(SP)

- (SP)

HOV
RTI

R64S,
- (SP)

TST

$TKCNT

.»PUSH DOWN THE PC AND
., THE PS
.. GET REROY FOR R CHARRCTER
»PUT NEW PS ON STACK
.. PUT NEW PC ON
STRCK
..POP NEW PC AND PS

..HAIT ON A CHARACTER

RPO4/S/6 MECHANICAL RAMD READ/URITE TEST
MACY11 30A(1052)
P11
2?7-JW.-78 09 18
TTY INPUT ROUTINE

022226
022230
022238
022242

00177%
005337
117766
U05237?

021336
177102
021342

000004

021342

021346

02225

012737

021344

021342

022246
02225
022264

022266
022270

010346
005046

012703

022308
022306

104410
1172613

022703
101456

022310
02231
022316
022320

122713
001022
005716
001007

022330
022338
0220
0222
02246

104401
012716
005303
020327
10343%

022364
022360
022362
022364
022366
022378
022400
022402
022406
022410

104801
OLJ746
005716
001406
112737
108401
005016
122713
001003
104401

022322

SEERRCERERSRNRNSECSISE

000002

022272

022276
022302

023727
001003

022350

022418
022416
022422
022424
022426
022432
022436
022440
022%s&
022%%6
022462
022466
022462

112737

111337

000726
122713
001011
106013
104401
104401
000717
104401
000712
111337
104401
122723
001305

BEQ
DEC
nove
INC
Gld
BNE

MOV
RTI

27-JUL-78

19
STKINT
oSTKQOUT, 4(SP)
$TKQOUT

09 24

PRGE

109

.. DECREMENT THE COUNTER
. .GET ONE CHRRACTER
;. UPDATE THE POINTER

STKQOUT.#STKQGEND ..DID IT GO OFF OF THE END?
29
;. BRANCH IF NO

§STKQSRT, STKQOUT , ,RESET THE POINTER
. RETURN

PRI
22222000000 0000000000000 3800000003000 0000 0000800000000 0 00844/
+BTHIS ROUTINE WILL INPUT A STRING FROM THE TTY
- 3CALL
.
ROL IN
.. INPUT A STRING FRON THE TTY
X
RETURN HERE
,, RDORESS OF FiRST CHARACTER WILL BE ON THE
.
.. TERMINATOR WILL BE R BYTE OF ALL O'S

SROLIN

022522

022546

000177

000134«

022520
177777

109

022520

000025

022520
’9

022553
000022

001215
022522

001214

022520
022520

000015

.. SAVE R3
.. CLERR THE RUBOUT KEY

cne
BLOS

#STTYIN+420 ,R3
4s

..BUFFER FULL?
,.BR IF YES

ROCHR
HOVB

SSTTYIN.R3

.. GO READ ONE CHARACTER FROM THE TTY
.. GET CHARRCTER

8.9

.. TYPE A BRCK SLASH

#1772, (R3)
5%
(SP)
69

TYPE
MOV
DEC
cne
BLO

.99
#-1,(SP)
R3
R3, ASTTYIN
4s

TYPE
B8R
TST
BEQ
HOVB
TYPE
CLR
CMPB
BNE
TYPE

, 99
29
(SP)
4 )
&' .99
.99
(SP)
#25, (R3)
8%
. SCNTLU

B8R
CMPB
BNE
CLRB
TYPE
TYPE
BR
TYPE
BR
MOVB
TYPE
CHMPB
BNE

., GET ROORESS

(SP)+, (R3)

cneB
BNE
TST
BNE

HOVB

022520

000134
022520

R3.-(SP)
-(SP)

HovVB

022522

MOV
(LR

Hnov

SEQ 0105

(R3),99%

#22. (R3)
39
(R3)
+ SCRLF
,STTYIN
28

- SQUES

19
(R3). 99
.99

R15, (R3)+
29

.. 1S IT R RUBOUT
.. BR IF NO
,. 1S THIS THE FIRST RUBOUT?
.. BR IF NO
.. SET THE RUBOUT KEY
. BACKUP BY ONE
. STRCK EMPTY?
..BR IF YES

.»SETUP TO TYPEOUT THE DELETED CHRR

.. 60 TYPE
.. G0 RERD ANOTHER C(HAR
.. RUBOUT KEY SET?
.. BR 1F NO
.. TYPE R BRCK SLASH

.»CLERR THE RUBOUT KEY
+» 1S CHARRCTER R (TRL U”
.. BR IF NO
+» TYPE R CONTROL "U"

.. GO START OVER
.. 1S CHARRCTER R " R"?
»»BRANCH IF NO
+CLERR THE CHARARCTER
., TYPE R "CR" & "LF"
. TYPE THE INPUT STRING
»» G0 PICKUP ANOTHER CHACTER
.. TYPE R ' 7'
»»CLERR THE BUFFER RAND LOOP
»ECHO Thé CHRRACTER

»» CHECK FOR RETURN
.»LOOP

|F NOT RETURN

STRCK

E%:jg% ::?N/S/b MECHANICAL AND RERD/WRITE TEST
MACY11 30A(1052)
27-JW.-78 09 18
TTY INPUT ROUTINE

5612
5613
5614
5615

022464

5616

5617

5618
5619

5621

105063
104401
005726
012603
011646
016666
012766
000002
000
000
00002v
0n1536
136
043536
015
036440
020040
020075
022610

17277277
001216

000004
022522

005015
006525
005015
051412
0n2516
000

09 24

PRGE

110

StQ 0106

CLRB
TYPE
1ST
MoV

~1(RY)
» SLF
(SP)+
(SP)+.R3

.. CLEAR RETURN (THE 15)
. TYPE R LINE FEED
.. CLEAN RUBOUT KEY FROM THE STRCK
.. RESTORE R3

MOV
MoV
RTI
BYTE
BYTE

Y(SP), 2(SP)
8STTYIN.
4 (SP)

‘o

nov

000002
000004

9
27-JUL-78

(SP),-(SP)

.. ADJUST THE STRCK AND PUT RDDRESS OF THE
FIRST RSCHI

CHARACTER ON

»» RETURN

000
000012
000

051127

STTYINSCNTLC.
SCNTLU:
SCNTLG
SHSHR

BLKB
. RSCIZ
. RSCIZ
ASCIZ
RSCIZ

O
.. STORRGE FOR RSCI| CHAR
TO TYPE
O
»» TERMINARTOR
20
. RESERVE 20 BYTES FOR TTY INPUT
/7 C/<(19U
2D
.. CONTROL "C"
/7 u/<15X<X12)
.. CONTROL "U"
/7 6715012
.. CONTROL "G"
<15)C12)/SWUR = /

020127

SHNEW.

. ASCIZ

NEW =/

EVEN
SBTTL

SCOPE HANDLER ROUT INE

PR 2320620083 0000000 8830330000000 3330000200323030000000000008383284%¢
+ATHIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS
IT WILL INCREMENT
+XAND LORD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG (DISPLAY(? 0>)
-XAND LORD THE ERROR FLAG (SERFLG) INTO DiSPI QY<15 08>
+3THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE
. XSH1Y=1
LOOP ON TEST
. ¥SH11=1
INHIBIT ITERATIONS

- XASHO9=1

- SCALL
P

022610
022610
022612

022620

104407
032777
001101

022622

000416

SCOPE

$SCOPE

040000

156320

013746
012737
005737
012637
000453
022626
012637
000413

000004
022650
177060
000004

106737
001421
123737

001103

001115

001103

032777
001404
013737

001000

166234

001110

001106

101015

LOOP ON ERROR

CKSHR
BIT
BNE
. RARRASTART OF
SXTSTR
BR

MOV
MOV
TST
MOV

000004

B8R

.+ SCOPE=10T

»» TEST
FOR CHANGE IN SOF T-SHR
#B1T14, SSHR
»»LOOP ON PRESENT TEST?
SOVER
.. YES IF SH14=1
CODE FOR THE XOR TESTERRERAS
69
.. IF RUNNING ON THE "XOR" TESTER CHANGE
+»THIS INSTRUCTION TO R "NOP" (NOP=240)
O#ERRVEC. -(SP)
,,SAVE THE CONTENTS OF THE ERROR VECTOR
#59, JRERRVEC
.. SET FOR TIMEOUT
##177060
.»TINE OUT ON XOR?
(SP)+, QRERRVEC
., RESTORE THE EPROR VECTOR

SSVLRD

,»G0 TO THE NEXT TEST

SERFLG

»»HRS AN ERROR OCCURRED?

CHP
(SP)+, (SP)+
. CLEAR THE STRCK AFTER A TIME OUT
Hov
(SP)+, JRERRVEC
,, RESTORE THE ERROR VECTOR
BR
78
;;LOOP ON THE PRESENT TEST
S L RRNBREND OF CODE FOR THE XOR TESTERRARAN

000004

T1ST8

BEQ
CMPB
BH|
BIT
BEQ
MOV

39
SERMAX, SERFLG
39
#81709, 3SHR
4s
SLPERR, SLPADR

..BR IF NO
., MAX. ERRORS FOR THIS TEST OCCURRED?
..BR 1F NO
.. LOOP ON ERROR?
.. BR _IF NO
., ,SET LOOP RDDRESS TO LRST SCOPE

RPOM/5/6 MECHANICAL RAND READ/MRITE TEST
MACY11 30A(1052)
P11
27-JUL-78 09 18
SCOPE HANOLER ROUT INE

022714
022716
022722
022726
022730
022736
022720
022798
022746
022752
022760
022762
022770
022776
023002
023006
023012
023016
023024

000443
105037
005037
000M15
032777
001011
005737
001406
005237
023737
002021
012737
013737
105237
011637
011637
005037
112737
013777

023036
023040

000002
000001

023032

013716

001103
001204
004000

SOVER

BR
CLRB
CLR
BR
87
BNE
TST
8eQ
INC
cne
8GE
MoV
MoV
INCB
MoV
1]
(LR
HOVB
MOV

SHXCNT

RT
1

4s
1%6202

001100
001104
001204

000001
023040
001102
001106
001110
001206
000001
001102

001106

001104

001104
001204

001115
156110

19
SSVLARD

SBTTL

Hov

9
27-JUL-78

SOVER
SERFLG
STIMES
19
#81T11, SSUR
19
SPASS
19
SICNT
STIMES, SICNT
SOVER
81, SI1CNT
SHXCNT, STIMES
STSTNH
(SP), SLPAOR
(SP), SLPERR
SESCAPE
81, SERMAX
STSTNM, &DISPLAY

SLPROR., (SP)

09 24

PRGE

111

.. ZERO THE ERROR FLAG
.. CLEAR THE NUMBER OF ITERATIONS TO MRKE
. ESCAPE TO THE NEXT TEST
. INHIBIT ITERARTIONS?
.,BR IF YES
.. IF FIRST PRSS OF PROGRAM
.o
INHIBIT ITERATIONS
. INCREMENT 1TERATION COUNT
,. CHECK THE NUMBER OF ITERATIONS MADE
..BR IF MORE ITERATION REQUIRED
+REINITIRLIZE THE TERATION COUNTER
.. SET NUMBER OF ITERARTIONS TO DO
. COUNT TEST NUMBERS
. SRVE SCOPE LOOP RODRESS
.. SAVE ERROR L OOP ROORESS
.. CLERR THE ESCAPE FROM ERROR RODRESS
. ONLY RLLOW ONE(1) ERROR ON NEXT TEST
.. DISPLAY TEST NUMBER

.. FUDGE RETURN RODRESS
., FIXES PS
,.MRX
NUMBER OF

| TERATIONS

SRAVE AND RESTORE RO-RS ROUTINES

PR L2200 200 0000000000000 0000000000000 000000000 0000000080200 0025
- 3SAVE RO-RS5
- XCALL
P |
SAVREG
,:UPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE

L RTOP---(+16)

L% 42---(+18)
, % +4---R§
. X 46---RM4
, % +8---R3
, X+410-~--R2

L E412---R1
,X414---R0O

023042
023042

010046

0230562
023068
023066
023062
023666

010446
010546
016646
016646
016686

023044
023046
023050

023072

02307¢

$SAVREG

010146
010246
010346

016646

000002

000022
000022
000022

000022

MOV

,.PUSH R ON STRCK
..PUSH RZ ON STARC(K
,.PUSH R3 ON STACK

MOV

22(SP)., -(SP)

.. SAVE PC OF CALL

MOV
MOV
MOV
MOV
MOV

., SRESTORE
P ¢

.. PUSH RO ON STACK

®1.,-(SP)
R2.-(SP)
R3.,-(SP)

RTI
. ¥CALL

RO. -(SP)

MOV
13 [0]7]
MoV

RO-RS

RESREG

RY, -(SP)
RS, -(SP)
22(SP), -(SP)
22(SP), -(SP)
22(SP), -(SP)

,.PUSH
.,.PUSH
.. SAVE
. SAVE
.»SAVE

R4
RS
PS
PC
PS

ON
ON
OF
OF
OF

STACK
STACK
MRIN FLOW
MAIN FLOUW
CALL

Stq 0107

E
9
MACY11 30A(1052)
CZRJIAC RPO4/S/6 MECHANICAL AND READ/WRITE (EST
27-JUL-78
CZRJAC P11
27-Ju-78 09 18
SRVE AND RESTORE RO-RS5 ROUTINES
5724
5725
5726

5727

5728
5729
5730

5731
5732
5733
5734
5735
5736
5737
5738
5739
5740
5741
5742
5743
5744
5745
5746
5747
5748
5749
5750
5751

5752
5753

023100
023100
023104
023110
023114
023120
023122
023124
023126
023130
023132
023134

012666
012666
012666
012666
012605
012604
012603
012602
012601
012600
000002

SRESREG

000022
000022
000022
000022

Hov
nov

(SP)+, 22(SP)
(SP)+, 22(SP)

MoV

(SP)+, 22(SP)

nov
MOV
MOV

Hov
MoV
MOV
ggv

09 24

,.RESTORE
.. RESTORE

PRAGE

112

SEQ 0108

PC OF (ALL
PS OF (ALL

(SP)Y+, 22(SP)

.. RESTORE PC OF MAIN FLOW

(SP)+, RS
(SP)+, Ry

.. POP STRCK
.. POP STRCK

.. RESTORE PS OF MAIN FLOW

(SP)+,R3
(SP)+.R2
(SP)+, R1
(SP)+, R0

,.POP
., POP
,.POP
,,POP

STRCK
STRCK
STRCK
STRCK

INTO RS
INTO R4

INTO
INTO
INTO
INTO

R3
R2
R1
RO

[

SBTTL

TRAP DECODER

PR332 880028 0200000000082 200200003800000000830808002030300¢00008002%4
+XTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAPTM INSTRUCTION
+BAND USE IT TO INDEX THROUGH THE TRAP TRBLE FOR THE STARTING RDORESS
+30F THE DESIRED ROUTINE
THEN USING THE RDORESS OBTRINED IT WILL
XG0 TO THRT RCUTINE

023136
023140
023144
023146
023150
023152
023156

023160
023162
023170

010046
016600
005740
111000
006 300
016000
000200

011646
016666
000002

000002

STRAP.

MOV
MOV
TST
nove
ASL
MOV
RTS

.. THIS

IS USE

TO HRANOLE THE

STRAPZ

MOV
MOV
RTI

(SP),-(SP)
Y(SP). 2(SP)

023172

000004

000002

SBTTL

RO. - (SP)
2(SP). RO
-(RO)
(RO). RO
RO
STRPRD(RO).RO
RO

.. SRVE RO
.. GET TRAP RDORESS
.. BACKUP BY 2
..GET RIGHT BYTE OF TRAP
+»POSITION FOR INDEXING
.. INDEX TO TRBLE
.»G0 TO ROUTINE

"GETPRI" MACRO
. .HMOVE THE PC DOWN
.. MOVE THE PSH DOWN
.. RESTORE THE PSH

TRAP TABLE

+STHIS TRBLE CONTARINS THE STARTING RODRESSES OF
. XBY THE "TRAP" INSTRUCTION
,

ROUTINES CARLLED

ROUT INE

WORD

STRAP2

.. CALL=TYPE
,.CALL=TYPOC
..CALL=TYPOS
..CALL=TYPON
..CALL=TYPDS

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LERDING ZEROS)
TYPE OCTAL NUMBER (NO LERDING 2ER0S)
TYPE OCTAL NUMBER (RS PER LAST CRLL)
TYPE DECIMAL NUMBER (MITH SIGN)

021724

SGTSHR

..CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

021634
022176
022266
023042

SCKSWR
SROCHR
SROLIN
$SAVREG

.. CALL=CKSHR
.. CALL=ROCHR
..CALL=ROLIN
.. CALL=SAVREG

TRAP+7(104407)
TRAP+10(104410)
TRAP+11(104411)
TRAP+12(104412)

TEST FOR CHANGE IN SOF T-SKR
TTY TYPEIN CHARRCTER ROUT INE
TTY TYPEIN STRING ROUTINE
SAVE RO-RS ROUTINE

023172
023174
023176
023200
023202
023204

023160
020444
020710
020664
020724
021112

023206

023210
023212
023214
023216

STRPAD

THE

$TYPE
STYPOC
STYPOS
STYPON
STYPOS

(ZRJAC RPOU/5/6 MECHANICAL AND RERD/WRITE TEST
MACY11
CZRJIAC P11
27-JUL-78 09 18
TRAP TRBLE
E;g?

023220

023100

30A(1052)

27-JUL-78

SRESREG .. CALL=RESREG

09 24

PAGE

113

TRAP+13(10%413) RESTORE RO-RS ROUTINE

g;gg

SBTTL

SIN _E LENGTH BINRRY TO DECIMAL RSCIZ ROUTINE

5784

28000000 R

5785
5786

5787

- 3CALL

5788
6789
277;?
5792
5793
S79%
5796
5796
5797

023222
023230
023234
023240
023244

016637
012746
004737
062716
012666

000002
023252
023256
000005
000002

ggg

023252

000000

5798

L 2

s not bttttittoettitioeetetoptsetnttssssotes)

+BTHIS ROUTINE WILL CONVERT R 16-BIT UNSIGNED BINARY NUMBER TO AN
-BUNSIGNED DECIMAL ASCIZ NUMBER

023250

000207

023252

. 3
.
" |

nov
JSR
RETURN

NUMBER. - (SP)
PC. o#9582D

.. PUT BINRRY NUMBER ON THE STACK
. CALL
.. RDORESS OF THE 1ST ASCIZ CHAR IS ON THE STACK

9$SB2D0

MOV
MoV
JSR
ROD
Hov

2(SP). 19
#18.-(SP)
PC, 3480820
#5, (SP)
(SP)+, 2(SP)

.. SRVE BINRRY NUMBER
. SET POINTER
. CRLL DOUBLE LENGTH CONVERT
, - ONLY RLLOW FIVE CHRRACTERS
.. PICKUP POINTER

RTYS

WORD

0.0

. » RETURN

Ssggiz

SBTTL

5803
5804
5805
5806
5807
5808
5809
5810
5811

PR
2000000000080 00000000000 00000 000000000000 00230030000300000004844
+BTHIS ROUTINE WILL CONVERT R 32-8BI1T BINARY NUMBER TO AN UNSIGNED
+SDECIMAL (RSCI1) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE
. ¥POSITIVE
- SCALL
R 3
MOV
KPNTR, - (SP)
. POINTER TO LOW WORD OF BINARY NUMBER
P
JSR
PC. 98S082D
2
RETURN
., THE FIRST RDORESS Of RSCiZ
.. 1S ON THE STACK

5812
5813
5814
5815
5816

02325
023260

104412
016602
012700

5817
65818
5819
6820

023268
C23270
02327«
023276
023300

010066
012201
012202
012737

6822
6823
5824
5826
5826
5827
6828
65829

023312
023316
023320
023322
023324
023326
023330
023332

012705
005003
161401
006602
161502
002402
005203
000772

6821

6830
6831
5832
5833
6834
5835

023306

0233
023336
023M0
023M2
0233w4
023350

012708

062401
005502
062402
022525
062703
110320

$OB2D

000002
023436

023366

023370

023354

MOV
19
29

000060

SRAVREG
MOV

MoV
MOV
MOV
MOV
]

000002

000012

DOUBLE LENGTH BINARY TO DECIMAL ASCII

MOV
CLR
sus
SB(
suB
BLT
INC
BR

ADD
RDC
RDD
cne
BIS
HOVB

2(SP),R2
RSOECVL.RO

RO. 2(SP)
(R2)+,R1
(R2)+,R2
#10 ., 49

$STNPUR, RY

RSTNPUR+2, RS
R3
(RY). R1
R2
(R5).R2
39
R3
29

(R4)+, R1
R2Z
(R4)+,R2
(R5)+, (R5)+
#'0.R3
R3. (RO)+

CONVERT ROUTINE

. SAVE REGISTERS
.. PICKUP THE DATR POINTER

.. GET RDORESS OF "SDECVLTM STRING
.. PUT RDORESS OF ASCIZ STRING ON STARC(K
.+PICKUP THE BINARY NUMBER
»»SET UP TO DO 10 CONVERSIONS

.. ADDRESS OF TEN POKER
.. CLEAR PRRTIAL
.. SUBTRACT TEN POWER

»»BR IF TEN POWER TO LARGE
.»RDD 1 TO PRARTIAL
. » LOOF

., RESTORE SUBTRACTED VALUE
»»MOVE TO NEXT TEN POWER
. CHANGE PARTIAL TO RSCI!I
»+»SRVE |IT

StQ 0109

CZRJIAC RPOM/5/6 MECHANICAL AND READ/WRITE TEST
CZRJAC P11
27-JUL-78 09 1B
ODOUBLE

0231352
023354
0233%6
023360
023362
023364
023366
023370

023372
02337
023376
023400
023402
02340m
023406
023410
023412
023414
023416
023420
023422
023424
023426
023430
023432
0234 3w
023436

005327
000000
0011357
105020

DEC

104413
000207
145000
035632
160400
002765
113200
000230
0%1100
000017
103240
000001
023420
000000
001750

HORD

STNPUR

BNE
CLRB
RESREG
RTS
1465000
35632
160400
2765
113200
230
041100
17
103240

(PC)+
O

19
(RO)+

SBTTL

0E08

OE06

..1 0E05

23420
0
1750
0
144y
0
12

BLKB

..BR IF NO
.» TERMINATOR
.. RESTORE REGISTERS
»» RETURN
..1 0E09

..1 0e0?

$OECVL

StQ 0110

llm,

5836
5837

9
G
MACY1Y 30A(1052)
27-JUuL-78
09 24
PRGE 114
LENGTH BINARY TO DECIMAL RSCII CONVERT ROUTINE

OL0Y4

003

0E02

0e01

0e00

.. RESERVE

STORAGE

FOR

RSCIZ STRING

TYPE NUMERICAL RASCIZ STRING SUPPRESS LERDING ZcROS

PR 22022000000 00000 00300 0000000000000 000000002000020020000808000%
. XTHIS ROUTINE IS USED TO TYPE AN ASCI2Z NUMBER SUPPRESSING THE
- SLEADING NUMBERS
- XCALL
.. FIRST RODRESS OF RASCIZ STRING
X
MOV
#NUMADR,
- (SP)
X
JSR
PC. S8SSUPRS

023452
023454

023460
023462
023w6M
023870
023472
023478

010046
016600
105710
001403
122720

001773
005300
010037
104401

012600
012616
000207

000004

$SUPRS

000060
023502

MOV
MOV
1ST8
8EQ
CHPB
8EQ

RO.-(SP)
4(SP).RO
(RO)
29
#'0. (RO)+
19

.. SAVE RO
., PICKUP THE POINTER
.» TERMINRTEOR?
.. BR IF YES
.. 1S THIS AN RSCII 0"
..BR IF YES

O
(SP)+, RO
(SP)+, (SP)
PC

.. SRAVE FOR TYPING
.. G0 TYPE
.»RSCIZ POINTER GOES HERE
.. RESTORE RO
.. RESTORE THE STRCK
. » RETURN

DEC
MOV
TYPE
HORD
MOV
Hov
RTS

SBTTL

RANDOM NUMBER GENERRTOR ROUTINE

RO
RO. 3%

., BACKUP BY "1

8320200000000 000 000000 0000000000000280000200202022002090022080%¢%4

+XTHIS RUUTINE

IS R DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERRTOR

H
9
C(ZRJAC RPOY/5/6 MECHANICAL AND RERD/WURITE TEST
MACY11 30A(1052)
27-JUL-78
CZRJAC P11
27-JL-78 09 18
RANOOM NUMBER SENERATOR ROUTINE

5892
5893

58954
5895
5896
5897
5898
5899
$900
5901

5902
5903

+BHITH R RANGE OF N TO 2(+433)-1
. 3CALL
S |
JSR
PC. SRANDC
I |
RETURN
I‘
I‘

023512
023512
02351%

023516
023520
023524
023530
02353
023536
023540
023542
023544
023550
023552
023556
023562
023564
023570
023574
023600
023602
023604
023606
023610
023612

010046
010146
010246
013700
013701
012702
006300
006101
005202

001374
063700
005501
063701
062700
005501
062701
010037
010137
012602
012601
012600
000207

176543

123456

$RANO

023612
023610
1772771

Mov
MoV
MoV
MoV
MoV
MoV

ASL
ROL

INC

BNE

023612

023610
001057
0N 7401
023612
023610

SHINUM
SLONUM
SBTTL

RDO
RDC
ADD
ADD
RDC
ROOD
MOV
MOV
MoV
MOV
MoV
RTS

WORD
WORD

09 24

.. CARLL

PRGE

115

StQ 0111

THE ROUTINE

.. RETURN HERE THE RANDOM
.. NUMBER WILL BE IN
. » SHINUM. SLONUM

RO, - (SP)

..PUSH RO ON STR(K

R2.-(SP)

.+ PUSH R2 ON STRC(K

8-7.R2
RO
R1
R2

,»SET SHIFT COUNT
.. SHIFT RO LEFT AND
.. ROTATE CARRY INTO R1
.. CHECK FOR DONE
.. CONTINUE SHIFT LOOP

$SLONUM, RO
$HINUM, R1

$LONUM, RO
R1

$H INUM, R1

$1057.R0
R1

f#47401. R1

.»SET RO WITH LOW
,.SET R1 WITH HIGH

.. RDD NUMBER TO MRKE X 129
.. PROPOGRTE CRRRY

.. RDD NUMBER TO MAKE X 129
.. RDD LOW CONSTANT
. .PROPOGRTE CRRRY

.. RDD HIGH CONSTANT

RO. SLONUM

.. SAVE

(SP)+.R2
(SP)+. R

.. POP
.. POP

STACK
STR(K

R1., SHINUM

(SP)+. RO
PC

176543

AND

.. SRVE R1

.. POP STRCK
.. RETURN

INTO R2
INTO Rt

iINTO RO

123456

INTEGER DIVIDE ROUTINE

PR320 2000008000 0000 00000800 00000000000323220309220320023022200%%4%4

+BTHIS ROUTINE WILL DIVIDE R 32-BIT TWO'S COMPLEMENT INTEGER
.SDIVIDEND BY A 16-BIT TWO'S COMPLEMENT INTEGER DIVISOR GIVING
3R 16-BIT TWO'S COMPLEMENT INTEGER QUOTIENT AND R 16-BIT REMAINOER
+3DIVISION WILL BE PERFORMED SO THART THE REMAINDER IS OF THE
-XSAVE SIGN RS THE DIVIDEND
- SCALL.
X
MOV
LOW DIVIDEND, ~(SP) ,,THE HIGH DIVIDEND MUST BE < 1/2
HIGH DIVIDEND -(SP).
RS LRARGE RS THE DIVISOR
PR
MOV
R 3
nov
DIVISOR.-(SP)
R
JSR
PC. %01V
»»QUOT IENT & REMARINDER ARE ON THE STARCK
2
RETURN
IMPLIES NO ERROR
INPLIES ERROR OCCURRED
R 3
“C"=0
DIVIDE OVERFLOW OCCURRED
“C"=1
ATTEMPTED TO DIVIDE BY ZERO
R
R
R ]
NO ERROR
OVERFLOW
DIVIDE BY ZERO
;:
STACK
,

"U":O

‘

"v.'=1

I3 ¢

ToP

REMAINDER

ALL

Z2EROS

RLL

ONES

MACYY1 30A(1052)
CZRJIAC RPO4/S5/6 MECHANICAL AND RERD/WRITE TEST
27-JUL-78 09 18
CZRIRC P11
INTEGER DIVIDE ROUTINE

598
SM9
5950
5951
5952
5953

023614
023614
023616
023622
023624
023626

104400
oN2716
010046
010146
010246
010346

005046
012746
016601
016600
100005
105366
005400
005401
005600
016602

QUOTIENT

000017

000021

000024
000022

24(SP)
. /1
22(SP).RO
19
J(SP)
RO

000003

R1
RO

000020
000003
17727727

000014

000002

82.14(SP)
RO
RO. R}
(SP)+
(SP)
9
RO

’9
8$

1(SP)

000001

(SP)
(SP)+

024012
024016
024020
024022

000020
000016

109

MOV
MOV
MOV
MOV
MOV

SEQ 0112

ALL ZEROS

RLL ONES

»»PUSH OLD PSH AND PC ON STACK
.. STRIP AMARY CONDITION CODES
..PUSH RO ON STRCK
»»PUSH R1 ON STACK
.»PUSH R2Z ON STACK
»»PUSH R3 ON STRCK
.+ SAVE R PLACE FOR SIGNS
. SETUP THE ITERATION COUNTER

., PICKUP THE DIVIDEND

.. CHE''K THE SIGN
,.KEEF TRACK OF THE SIGN
.. AND NCGRTE THE ORIGINAL
., » NUMBER

, . KEEP

000014

116

2(5P)

€J0o002

PAGE

,.PICKUP THE DIVISOR
,.CHECK THE SIGN
..DIVISOR OF O IS R NO-NO
,»SET "y & "(C"
,,éilTREHRINDER TO ALL ONES

4s
R2

39
4$

09 24

20(SP),R2
29
3
83, 14(SP)

f#-1
4)

9
27-JUL-78

109
R1
R1,20(SP)
RO. 16(SP)
(SP)+.R3
(SP)+,R2
(SP)+,R1

TRRACK OF DIVISORS SIGN

. NEGRTE THE ORIGINARL NUMBER
., CLERR "(C"
»»START FORMING QUOTIENT
»»POSITION MSB'S
»» COPY
.. COMPRARE DIVIDEND & DIVISOR
.»8R IF DIVIDEND > DIVISOR
,.REMAINDER RFTER THIS LOOP
»» QUOTIENT BIT ENTERS HERE
.. DONE?
..BR IF NO
. OVERFLOW?
..BR IF NO
++»SET "V" IN RETURN STATUS WORD
.. SET REMRINDER TO ALL ZEROS
»»COPY REMRINDER INTO QUOTIENT
» . CLEAR COUNTER FROM STRCK
»»REMAINDER SIGN CORRECTION NEEDED?
..BR 1F NO
.. NEGRTE REMA|INDER
., CLERR SIGN
+»BUT DON'T FORGET GUOTIENT
»»QUOTIENT SIGN CORRECTION NEEDED?
..BR 1F NO
. NEGRTE QUOT IENT
. RETURN QUOTIENT AND
. REMAINDER TO USER
.,POP STRCK INTO R3
»»POP STRCK INTO R2
.. POP STRCK INTO R1

CZRJAC RPOU/S/6 MECHANICAL AND RERD/WRITE TEST
MACY11 30A(1052)
CZRJAC P11
27-JuL-78 09 18
INTEGER DIVIDE ROUTINE
6004
6005
6006
6007
6008
6009
6010
6011
6012
6013
6014

024024
024026
024032

012600
012666
000002

MoV
Hov
RTI

000002
SBTTL

9
27-JUL-78

(SP)+, RO
(SP)+, 2(SP)

09 24

PRAGE

117

., POP STRACK INTO RO
.»SETUP TO RETURN CONDITION CODES
»» RETURN

%33 PROGRAM SUBROUTINES 3212

+SET "LPTRVLTM TO THE PROPER STATE
» LPTRVL = O IF NO LINE PRINTER RVARILABLE
» LPTAVL = 1 IF LINE PRINTER IS RVARILRBLE
. CALL

024034
024040
0240M6
024052
024056
024062
024064
024066
024074

005037
012737
005037

005777
005237
000401
022626
012737
000207

001230
024064
000006
156342
001230
000006

000004

,
.

JSR
RETURN

PC. d8LP RVL

LP AvL

(LR

SfLPTAVL

19
29

START WITH NO PRINTER RVAIRBLE

Hov
CLR
TST
ég(

819, RERRVEC
SRERRVE(C+2
oLPS
g:LPTRUL

»,SETUP

THE

TIMEOUT VECTOR

CHe
nov
RTS

(SP)+, (SP)+
. NO--POP STRCK
RERRVEC+2, @WERRVEC ,RESTORE TIMEOUT VECTOR
PC
- RETURN

» IS THERE R LINE PRINTER?
»YES--SET AVAILABLE SWITCH

+THIS ROUTINE WILL DETERMINE IF THERE IS R CLOCK ON THE SYSTEM
+AND |F THERE IS IT WILL SETUP THE VECTOR AND START THE CLOCK
» 'CLKSTR" WILL INDICATE THE CLOCK TYPE
. 0= NO CLOCK
41 KH11-P
=12 KH11-L
»THIS ROUTINE

WILL

ALSO SETUP

"TICKMS"

IN MILLISECONDS) AND "TICKUS"

ST (LK.

MOV
MoV
]
CLR
MOV
MOV

R1,-(SP)
SERRVEC+2, R1
(R1),-(SP)
(R1)
-(R1),-(SP)
#18. (R1)

TST

oPK(CS

,(TIME PER CLOCK TICK IN MICROSECONDS)
»PER SWOO
- SHO0=0 -- 60HZ
»SHO0=1 -- B50HZ
- CARLL
,
JSR
PC, o8ST (LK
,
RETURN

010146
012701
011146

005011
014146
012711
005037
006777
012737
004737
000M 1%
022626
012711
006777
012737
004737
000401

000006

024142
001244
165262
000001
02424y

024170
165236
172277
024306

CLR

001244

MoV

001244

(TIME

+PER CLOCK TICK

CLKSTA

#1, CLKSTR

. SAVE R1
-SAVE AND SETUP TIMEOUT VECTOR
.LEVEL O
»,GO TO

19 ON TiIMEOUT

+SET CLOCK STATUS TO NO CLOCK

. IS THERE A KW11-P?

. YES--SET STRATUS TO KH11-P

JSR

PC.ST. PCLK

e
HOV
TST

(SP)+, (SP)+
#29. (R1)
oLKS

-CLEAN UP THE STRCK
;IF TINEOQUT GO TO 2%
. 1S THERE R KW11-L?

JSR

PC.ST LCLK

+START THE KW11-L

B8R

MOV

B8R

#-1,CLKSTR

+START THE KW11-P

;G0 TO EXIT

;YES--

CEXIT

SET STATUS TO KW11-L

Sta 0113

9
K
CZRJAC RPO4/5/6 MECHANICAL AND RERD/MRITE TEST
MACY11 30A(1052)
27-JUL-78
CZRJRC P11
27-JuL-78 09 18
33X PROGRAM SUBROUTINES 212

6060
6061
6062
6063

024170
024172
024174
024176
024200
024206
024210
024216
024224
024226
02423v
024242

022626
012621
012621
012601
032737
001407
012737
012737
000406
012737
012737
000207

024 244
024244
024252
024254
024262
024270
024276

032737
001014
012777
012777
012777
012777

024304

000207

024 306
024306
024314
024316
024324
024332
024 3n0

032737
001011
012777
012777
012777
000207

024 3n2
024346
024352

013746
004737
000002

29
39

000100

001220

000020
047040

001246
001250

000016
040432

001246
001250

000040

001220

024342
000300
000001
000115

165112
155106
155104
155074

59
ST PCLK

001220

024342
000300
000100

155062
155056
155052

001246
040736

ST LCLK

SRVCLK:

%16, 38 TICKNS
;SETUP TIME PER
#16666 .S8TICKUS , TICK FOR 60HZ
PC
- RETURN

BIT
BNE
MOV
MOV
MOV

MOV

ASHOS, o8C SHR
19
#SRVCLK, aPKV
#300. 9PKV+2
#1,9PKB
%115, PKCS

RTS

BIT
BNE
MOV
MOV
HOV
RTS

#SHOS. IRC SWR
19
#SRVCLK, LKV
#300. dLKV+2
#100. aLKS
PC

MOV
JSR
RTI

ORTICKMS, -(SP)
PC. SRRPTMR
SETS UP

. ALLOW SOF THRRE TIMEOUTS?
»NO--BRANCH
.SETUP THE KW11-P VECTOR
- COUNT ONE TICK
" INT EN ", COUNT DOWN",
+"LINE FREQ”, AND "RUN"
- RETURN

’

LODFLT

010046
010146
010246

02%410
02%412
024414
024416
024420
02442y

010346
012737
012737
012700
012701
010102
012021
103776
012700
012701

176777

000001
001664
002330

001234
001236

003504
003104

"MODE

+START THE
. RETURN

,TIME PER TICK IN MILL ISECONDS
~-COUNT THE ELASPED TIME
+RETURN AFTER INTERRUPT

DEFRULT PARAMETER VALUES WHEN THE PROGRAM

'C SHR'

IS CHANGED

PC,LODFLT

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

RO, -(SP)

».PUSH RO ON STACK

R2,-(SP)
R3.-(SP)
8176777, TSTNMS
#1, TSTNIS+2

..PUSH RZ ON STARCK
.,PUSH R3 ON STACK
, SELECT TESTS 0-10. 12-17
;SET SELECT BIT FOR TEST 20

#PRNMO, R1

:TRABLE POINTER

#0FLT,RO

R1.R2
(RO)+, (R1)+
RO. R2
19
#PAT8. RO
R1
#PATO.

(REPERT)",

KH11-L

JSR
RETURN

cnp
BLO
MOV
HOV

, ALLOW SOF TWHARE TIMEOUTS?
- NO--BRANCH
-SETUP THE KW11-L VECTOR

+STARTED OR WHEN THE VRALUE OF BITOO

. CALL

SEQ O11%

MoV
MOV
RTS

»THIS ROUTINE

’

118

MoV
Hov

BiT
BEQ

PAGE

(SP)+, (SP)+
,CLERN UP THE STRCK
(SP)+, (R1)+
-RESTORE THE TIMEOUT VECTOR
(SP)+, (R1)+
(SP)+, R1
-RESTORE R1
#SWHO6. 38C SHR
,50HZ OR 60HZ2?
4s
.BRANCH IF 60
#20, 38 TICKNS
;SETUP TIME PER
g%OOOO +ORTICKUS , TICK FOR 50H2

MoV

19
000040

CHP
MOV
MOV

09 24

+DEFRULT PRRAMETERS POINTER

- STOP RDORESS
;HOVE DEFRULT PRARAMETERS INTO
+RUN TIME TRBLES XX DONE?
+NO--BRANCH
.PATO DEFRULTS TO PATTERN 8

Lt
9
MACY11 30R(1052)
CZRJIAC RPOY/5/6 MECHANICAL RAND READ/MRITE TEST
27-JuL-78
CZRIAC P11
27-JUL-78 09 18
3133 PROGRAM SUBROUTINES 338
6116

611?
6118
6119
6120
6121
6122

6123
6125
6126
6127
6128
6129
6130
6131
6132
6133
613n
6135
6136
6137
6138
6139
6140
6141
6142
6143
6144
6145
6146
6147
6148
6149
6150
6151
6152
6153
6154
6155
6156
6157
6158
6159
6160
6161
6162

6163

6166
6166
6167

6169
6170
6171

024430
02%432
024436
02%8%0
02%s%6
029450
029856
O2%%6n
02%472
02v47%
024502

012021
020027
103774
032737
001012
012737
012737
012737
000%11
012737
012737

02616

012701

024510

012737

000001

001220

000025
000025
165000

001630
001632
001352

000023
000023

001630
001632

166000

001536

024622

005711

02¢526
024632
029638

032731
001773
0163102

002000

012703
006216
103002
062702
005303
001372
005726
021237

000013

013712
000751

001630

02452¢

024580

02%642
024646
024560
029662
024566
024560
024562
024568

024570

024572
024576
024600
024600
024602
024604
024606
024610

001425

011246

101754

003544

001352

MOV
P
BLO
BIT
BNE
MOV
MOV
MOV

BR
MOV
MOV

MOV

SPRMPT,RY

MOV

5¢

TST

BEQ

69
79

,
,
,

024620
024622
024624

010446

#11 ,R3
(SP)
79
$2.R2
R3
6$
(SP)+
(R2).PRM.MT+22

,NUMBER OF PRRAMETERS (MAXIMUM) BEFORE 'LS’
,COUNT THE PRRAMETER
;BR IF NOT USED
; INCREMENT THE PARAMETER TRBLE RDDRESS
; COUNT THE PRRAMETER
;BR IF NOT THERE YET
,CORRECT THE STRACK POINTER
. IS 'LS' TOO LARGE FOR THE MODE SELECTED ?

PRMLMT+22. (R2)
13

.RESET VALUE FOR MODE USED
., CONT
I NUE

MOV
MOV
MOV
MOV
RTS

(SP)+,R3
(SP)+,R2
(SP)+, R}
(SP)+, RO
PC

,,POP STACK INTO
.., POP STACK INTO
,.POP STACK INTO
;,POP STRCK INTO
. RETURN
TABLE

THE CURRENT TEST

., LORD THE

MOV
MOV
MOV

R1.-(SP)
R2.-(SP)
R3.-(SP)

,.PUSH R1 ON STACK
..PUSH R2 ON STACK
.. PUSH R3 ON STACK

RY
$TSTNM, RY

,CLEAR RN
;GET THE TEST NUMBER

PRMPT(RWY), R1

,GET THE TEST'S PRRAMETER TRBLE RDORESS

001536

MOV

001254

FILLS THE PARAMETER

R3
R2
Rt
RO

STESTNUM STSTNM
PC. LODPRM

MOV

001504

.BR If NOT

MOV
JSR
RE TURN

016401

012702
005003
013704
012122

,PARAMETER ALLOCATION BITS

(13

001102

024636
024642
O246n%
024650

(R2),-(SP)

BLOS

CLR
MOVB

006 304

;BR IF END

MOV
ASR
BCC
ADD
DEC
BNE
ST
CHP

005004
113708

02%

024632

LODPRM-

010146
010246
010346

,END OF THE TRBLE ?

,'LS' SELECTED ?
;B8R IF NOT
;PARAMETER TRBLE RDDRESS

,Zgls ROUTINE
CALL

(R1)

:13

. WORD COQONT FOR COUNT FOR AN 18 BIT TRACK

, ADDRESS OF PARAMETER POINTER TRBLE

#8IT10,9(R1)+
5$
-2(R1).R2

MOV
BR

8-¢256 %20. ). TRCKHC

BIT
BEQ
MOV

MOV

024612
024612
02%61%
024616

119

001630

012603
012602
012601
012600
000207

PRGE

(RO)4+, (R1)+
RO, 8PATY
29
#81700.C SHR
.16 BIT MODE ?
38
,BR IF 18
821 ,PRMLMT+22
.SET 'FS' LIMIT TO 2t
821 .PRMLMT424
,SET LS’ LIMIT TO 21
8-¢256. £22. ). TRCKHC
. WORD COUNT FOR R 16 BIT TRACK
4§
; CONT
| NUE
#19. . PRMLMT+22
.SET 'FS* LIMIT TO 19
#19. . PRMLMT424
,SET LS’ LIMT TO 19

177776

000002

09 24

ASL

MOV
CLR
MOV
MOV

RY4. -(SP)
RY

#PRM. R2
R3
CHKDRV. RY
(R1)+, (R2)+

TEST NUMBER

. PUSH RY ON STRCK

,SETUP TO RDORESS WORDS

,PRRAMETER EXECUTION TRBLE
,R3 IS USED RS A COUNTER
.ORIVE'S RODRESS
,PARAMETER SPECIFIER

stQ 0115

n9
CZRIRC RPO4/5/6 MECHANICRAL AND RERD/WR ITE TEST
MACY11 30A(1052)
27-JuUL-78
CZRJIRC. P11
2?7-JuL-78 09 18
X33 PROGRAM SUBROUTINES 3332

6172
6173
617%
6175
6176
617?
6178
6179

006237

001504

29
39

000014

6180
6181
6182
6183
6184
6185
6186
6187
6188
6189
6190
6191
6192
6193
619
6195
6196
6197
6198
6199
6200
6201
6202
6203

000003
000004

034400

000002
001504

000002

000004

5%
6s

PRGE

120

PRM
2%
(R1)4, (R2)+

CLR
INC
cne
BEQ
CHP
BNE
8178
BNE
ROD

(R2)+
;CLEAR THE UNUSED PRRAMETER LOCATION
R3
; COUNT THE POSITION IN THE OUTPUT TRBLE
R3. 812
;FINISHED
?
69
;BR IF YES
R3. 83
;DOING THE CYLINDER RDDRESSES ?
19
BR IF NO
#81TOZ,DRVTYP(RY)
.RPO6
?
5%
;BR IF IT IS
82.R3
+-COUNT THE BYPRSSED PARAMETERS (FC' & LC*)

8CC
RDD

4s
#2.R1

;BR IF FC' IS NOT USED
;MOVE THE INPUT POINTER

19
82.R1
19
19
&4, R2

+BR IF LC' NOT USED
+HOVE THE INPUT PINTER
. KEEP GOING
. KEEP GOING
;BACKUP THE OUTPUT POINTER

B8R

ASR

BCC
ROD
BR
BR
sus
BR

Hov
MOV
MOV
Hov
RTS

PRM

PRNM

(SP)+.RY
(SP)+,R3
(SP)+,R2
(SP)+. R
PC

;THIS PARARMETER USED
;BR _IF NOT
;LORD THE VALUE

StQ 0116

RSR
BCC
HOV

RASR

000002
001504

09:24

IN THE TEST ?

- CONT
| NUE

;SHIFT THE COUNTER

;COUNT THE PRRAMETER

» KEEP

GOING

-, POP STRCK
.., POP STRCK
..POP STRCK
.,POP STACK
- RETURN

INTO
INTO
INTO
INTO

RY
R3
R2
R1

+THIS ROUTINE LOADS A READ HERDER AND DRATA COMMAND OR A SEEK COMMAND
. INTO DPB. B42 RNO DPB (+2., DEPENDING ON THE STRTE OF "CONTROL SHITCH"
.BI1T0?
. CALL
,
JSR
PC., a8LDCMD
,
RETURN

024770

032737
001007
012737
012737
000406
012737
012737
000207

000200

001220

000173
000173

004126
oou4t4e

000105
000105

004126
oou 146

LOCMO.

BIT
BNE

#SHO7,
RC. SWR
19

ggv

;:ERDHD,OODPB.C#Z ; DATA COMMAND

MoV

18:

28.

MOV
HOV
RTS

. D0 EXPLICIT SEEKS?
» YES--BRANCH

S#READHD. 98DPB. B+2 ,NO--SET UP

FOR READ HERDER AND

SSEEK, 380PB B+2 ;SETUP FOR SEEK COMMAND
#SEEK, 9ROPB. (+2
PC

;THIS ROUTINE WILL CRLL THE RPO4/5/6 DRIVER AND THEN HWRIT ON THE FUNCTION
-TO COMPLETE.
IF RN ERROR OCCURS IT IS REPORTED
;CARLL
;
FILL "DPB" WITH COMMAND |NFORMRTION
,
JSR
RO. o8CALL.
A
,
RETURN

025034
025040
025044

005037
004037
004104

001206
035304

CALL.
R+ (LR
Sgs a

o8 SESCAPE
RO. SERPM

.NO ESCAPE RODRESS
.CALL RPO4 DRIVER

N
9
R°04/5/6 MECHANICAL AND READ/MRITE TEST
MACY11 30R(1052)
27-JUL-78
. Pi
27-JUL-78 09: 18
233 PROGRAM SUBR OUTINES 332

025086
025050
025054
025056
025060
025066
025074
025102
025110
025118
025120
025122
025124
025126
025130
025132
02513%
025140
02514n

000772

004122
02513y
008116
00M115
O0%11%
00%122
026250

19
001206
001270

MoV
HovV
Move

001274
001272

004122
026210

8R
TST
BEQ
8PL

29
39

nove
nov
JSR
ROD
ERROR
ERROR
ERROR
ERROR
ERROR
HOV
JSR
RTS

09.24

PRGE

121

StQ 0117

CALL. A
o8DPB. R+16
;DONE?
19
; NO--L 00P
;BRANCH IF NO ERROR
39
829, SESCAPE
;.ESCAPE TO 29 ON ERROR
o80PB. R+12, JBCYL. DS . CYL INOER
o80PB. A+11, JBTRK DS ; TRACK
o80PB. R+10. JSEC. DS . SECTOR
8DPB A+16,
- (SP) ;STATUS/ERKOR INDICRATOR RODRESS
PC.3 ?INDX
;FORM DISPRTCH INOEX
(SP)+,
;REPORT PROPER ERROR
PC

42
43
Wy
45

OP8 RA+16.
- (SP)
PC.LOP. (K
RO

;PARITY ERROR
. UNSAFE ERROR
. NON-1/70 ERPOR
;170 ERROR
; STATUS WORD
,SEE IF LOOP. RBORT,
.RETURN

OR CONTINUE

+THIS ROUTINE IS THE SRFE RS "CALL R" EXCEPT FOR THE DPB USED AND IF
. THE COMMAND IS R REARD HERDER AND DRTR THE HERDER (CYL INDER. TRACK,
-AND SECTOR) RERD IS CHECKED FOR VALIDITY
.CALL
;
FILL DPB
;
JSR
RO. CALL. B
,
RETURN
-~

025146
025152
025156
025160
026162

001206
035304

CALL B-

004142

025264
004136
004135
00% 13y
00u142
026250

JSR

ADD
ERROR
ERROR
ERROR
ERROR
TSt

004220
28.
3

0RY142
026210
004126

OPB.
B
B8R
TST
BEQ
BPL

MOV
MOV
MOVB
MOVB
MOV

004220
177677

CLR
JSR

000173

8EQ
BIT
BEQ
ERROR
MOV

JER

Bk,

Gn38
B,E

SR SESCAPE
RO. 3#RPOM

.NO ESCAPE RDDRESS
.CALL RPOM DRIVER

CALL. B
DPB. B+16
. DONE?
»NO--BRANCH
19
Ys
;BRANCH IF NO ERROR
;,;ESCAPE TO 3% ON ERROR
43S, SESCAPE
o80PB. B+12, MCYL. DS , CYL INDER
o80PB. B+11, ATRK DS , TRACK

#0PB. 8+10, S#SEC. DS , SECTOR

#0PB. B+16, - (SP) - STATUS/ERROR IND|ICATOR ADDRESS
PC. SRER INDX
+FORM DISPRTCH INDEX
(SP)+,
PC
+REPORT PROPER ERROR
41
+PRARITY ERROR
42
43
- UNSRFE ERROR
wy
+NON-1/0 ERROR
a: REG+RPER1
,ORIVE ERROR ?
.BR IF NOT
'
2
:;“00'" REG+RPER1
,SEE IF ONLY 'HCE' SET
;BR IF IT IS
45
. 170 ERROR
- STATUS WORD
PC.LOP (K
+SEE IF LOOP, ABORT., OR CONTINUE
59
s CHECK FOR STALL
o#DPB B+Z, #READHD . DOING IMPLIED SEEKS?
+ NO--BRANCH
59

8 10
(ZRJAC RPON/5/6 MECHANICAL RND RERD/WRITE TEST
MACY11 30A(1052)
27-JUL-78
CZRIAC P11
2?7-JUL-78 09 18
233 PROGRANM SUBROUTINES 3138
025 306
025312
02531%
025316
02512
025326
025332
025334

00%037
00% 13y

000M0?7
032737
001403
004037
001 354
000200

026530
0%0000

001220

WORD
RTS

,STALL TIME POINTER
. RETURN

IS THE

SAIE

FILL OPB
JSR
RO, MCALL
RE TURN

001206
035304

CALL €

CLR
JSR

004162

177677

MoV

HOVB

Hov8e
nov

000173

001220

B" EXCEPT rOR

THE

OPB USED

-NO ESCAPE ROORESS
- CALL RPO4 DRIVER

(ALL C
ofDPB. (+16
19
4s

- DONE?
» NO--L 0O0P
»YES--BRANCH

838, SESCRPE

|F NO ERROR

.. ESCAPE TO 39 ON ERROR

S80PB. (+12, JACYL DS . CYL INDER
S#DPB (+11, MTRK DS ; TRACK

S8DPB. (+10. JASEC DS , SECTOR
#DPB C+16.-(SP)

W41

(SP)Y+.PC

ERROR
ERROR
ERROR

42
43
4y

8EQ

REG+RPER1

, STATUS/ERROR

IND!ICRTOR RDDRESS

.FORM DISPATCH INDEX

-REPORT PROPER ERROR

,PARITY ERROR
. UNSAFE ERROR
»NON-1/70 ERROR

»DRIVE

.BR

# C100.RP REG+RPER1

ERROR

IF NOT

,SEE

IF ONLY

29
39

4y
45
DPB (+16.-(SP)
EE,LOP (K

CHPB

ofDPB (+2, AREADHD . DOING IMPLIED SEEK?

JSR

RO, SRVERIFY

BNE

OPB (+10
BR
69
BIT
SHIY, o8C SWR
BEQ
69

JSR

026366

WORD
RTS

RO. RSTALL

STALL1
RO

+BR IF IT IS
» 170 ERROR
, STATUS WORD
.SEE IF LOOP,

'HCE' SET

8EQ
ERROR
MOV
.BJSR

026530

040000

DATA

- YES--CALL STALL ROUTINE

SISESCRAPE
RO, SERPOM

ERROR

BiIT

004220

StQ 0118

PC. SRERINCX

TST

. YES--60 CHECK THE

RS "CALL

JSR

ROD

004162
026210
004146

oPB C
BR
TST
8EQ
BPL

MoV

004220

026524

RO. HSTALL

STALL1
RO

,
.
.

001206
001270
001274
001272

122

L ERROR DURING VERIFY
STALL?
- NO--BRANCH

Egtf ROUTINE

025454
004 156
004 155
004 154
o0M162
026250

PRGE

JSR
RO. BVERIFY
OP8 8+10
BR
69
BIT
ESHIN, 38C SR,
BEQ
69

JSR

026366

09 2%

RBORT,

OR CONTINUE

+NO--EXIT

» YES--CHECK THE DRTR
+ERROR DURING VERIFY
,STALL”
» NO--BRANCH

+YES--CALL STALL ROUTINE
»STALL

TIME POINTER

. THIS ROUTI;( IS THE SRME RS "CALL A" EXCEPT FOR THE DPB USED RND
-ON AN ERRO
LOCATION "ERR CT" IS EXAMINED
IF ERR CT IS EQUAL TO
,SERFLG EXIT IS TO THE NEXT TEST

RPOU/S/6 MECHANICAL AND RERD/MRITE TEST
MACYI1 30A(1052)
27-JUL-78
P11
27-J-78 09 18
23 PROGRAM SUBROUTINES 312
. CALL
’

’

025526
025532
025536
025542

025544
025546

005037
005037

004037
004164
000770
005737
001775
100402
000137
012737
013737
113737
113737
012746
008?737
062607
104041
104042
104043
104044
104045
122737
001137
013746
008737
122737
001113
032737
001527
032777
001123
112737
005037
004037
00% 164
000240
006737
001778
100026

012737
013737

113737
113737
012746

004?737
062607
104041
104042
104043
104044

001206
001334
335304

DRVCAL

004202

DRVCL1

026170
025636
004176
004175
004174
004202
026250

001206
001270
001274
001272

CLR
CLR
JSR
OTROPB
B8R
TST
BEQ
8M|
JHP
MoV
MOV
novs
nove
MOV
JSR
ADD

ERROR

001102

004202
026210
000151

004166

040000

00421y

000020

163234

000161
001206
035304

004166

004202

026144
00M176
004175
004174
004202
026250

001206
001270
001274
001272

ERROR

CHPB
BNE
Hnov
JSR
cHPe
BNE
BIT
8EQ
BIT
BNE

Hove

PRGE

123

StQ 0119

FILL OPB
JSR
RO. J8DRWCAL
RETURN

ERROR
ERROR
ERROR

000020

09 24

CLR
JSR
DTAOPB
NOP
TST
BEQ
BPL
MoV
MoV
HOVB
HOVB
MoV
JSR
RDD

ERROR
ERROR

S8 SESCAPE
SAHCEFLG

- NO ESCAPE RDORESS
CLERR WRITE CHECK ERROR FLAG

DRVCAL
d8DTROPB+16
ORV(L1
19
109

- DONE
- NO--LOOP
.BR IF ERRORS
- NO ERRORS

RO, S8RP(OM

- CALL RPO4 DRIVER

829. SESCAPE
.. ESCAPE TO 2% ON ERROR
o8DTROPB+12, 38CYL DS . CYL INDER

S80TROPB+11,
38 TRK DS . TRACK
S80TROPB+10. S#SEC DS . SECTOR

S0TAOPB+16.
- (SP) ., STRTUS/ERROR [INDICATOR RDDRESS
PC, SRER INDX
,FORM DISPARTCH INDEX
£?P)4,P(
»REPORT PROPER ERROR
42
43
L L
45
#20, 8STSTNN

+PARITY ERROR
. UNSRAFE ERROR
.NON-1/0 ERROR
. 170 ERROR
. TEST 207

8%
. NO--BRANCH
DTRDPB+16.
- (SP) , STRTUS WORD

PC.LOP (K
.SEE IF LOOP, RBORT, OR CONTINUE
SURCKD, SRDTROPB+2 . DOING R WRITE CHECK?
129
- NO--BRANCH
8BIT14, JMRP REG+10 . IS "WCE"=17

129
. NO--BRANCH
SSUON, aSHR
+INHIBIT WRITES?
129
» YES--BRANCH
AURITE, BDTRDPB+2 . SETUP FOR R WRITE
S8 SESCAPE
~NO ESCAPE RODRESS
RO, S4RPOM
.00 THE WRITE
o8 DTADPB+16

. DONE?

;s YES--BRANCH

"PARITY ERROR

. NON- 170 ERROR

IF NO ERROR

#89, SESCAPE
; ESCAPE TO 8% ON ERROR
o80TROPB+12, 38CYL DS . CYL INDER
S8DTROPB+11,
RTRK DS ; TRACK
o80TROPB+10, SRSEC DS . SECTOR
80TROPB+16,
- (SP) , STRTUS/ERROR INDICATOR RDORESS
PC. SRERINDX
.FORM DISPRTCH INDEX
fipn,rc
,REPORT PROPER ERROR
43

" UNSAFE ERROR

D 10
CZRIAC RPO4/5/6 MECHANICAL AND RERD/WRITE TEST
MACY11 30R(1052)
27-JUL-78
CZRJAC P11
27-JuL-78 09 18
3% PROGRAN SUBROUTINES 333
63%
6397

6399
6400
6401
6403
6M0N
6405
6406
6407
6408
6409
6410
6412
6413
641y
6v15
6416
6417
6M18
€419
6420
6421
6422
6423
642¢
6425
6M26
6427
6428
€29
6430
6431
6432

026012
02601%
026022
026026
026030
026032
026036
026080
026082
026046
026050
026052
026056
026060
026062
026070
026076
02610%
026112
026120
026124
026130
026132

108045
112737
008037
004 164
000240
005737
001775

000151
035304

004166

004202

035304
004202

000001
026144
004176
004175
004174
004202
026250

69
001334
001206
001270
001274
001272

’s

026136
026140
026182
026144
026150
026154
026162
026164
026170
026176
026200
026204
026206

004202
026210
00136M

001103

129

001252
040000

001220

9%
109

026366
119

PAGE

124

SEQ 0120

ERROR
nove

45
. 170 ERROR
SHRCKD, SBDTRDPB+2Z , (OMMAND=WR
I TE CHECK DATA

TST

o8DTROPB+16

JSR
OTROPB
NOP
BEQ
L]
JSR
DTROPB

NOP
TST
BEQ
8PL
nov
MoV
Hov
HOVB
Move
MOV

JSR
ROD

02613v

09 24

ERROR
ERROR
ERROR
ERROR
ERROR
MOV
JSR
CHPB
BHI
Hov
BIT
BEQ
JSR
HORD
RTS

RO. JERPOM

D0 THE WRITE CHECK

- DONE?

5%
79

» NO--1L00P
»YES--BRANCH

S8DTROPB+16

- DONE?

#1. MUCEFLG
183, SESCAPE

+SET THE WRITE CHECK ERROR FLRG
.. ESCAPE TO 8BS ON ERROR

RO, S8RPOM

69
109

IF ERROR

DO R ZND WRITE (HE(CK

- NO--L00P
» YES--BRANCH

IF NO ERROR

SE0TROPB+12, 38CYL DS . CYL INDER
S80TROPB+11,
4 TRK DS . TRACK
o8DTROPB+10. S8SEC. DS ., SECTOR
#DTRADPB+16.
- (SP) , STRTUS/ERROR

INDICATOR RDDRESS

PC. SBER INDX

,FORM DISPRTCH INDEX

42
43
by
46

PARITY ERROR
+UNSRFE ERROR
- NON-1/0 ERROR
+FRTAL WRITE CHECK

‘(.?PH,PC

+REPORT PROPER ERROR

DTROPB+16.
- (SP) , STATUS WORD

PC.LOP (K
»SEE IF LOOP., RBORT,
ORERR (T, SRSERFLG . GO YO NEXT TEST?
109
» NO--BRANCH

OR CONTINUE

s#BYPRASS, RO
#SH1Y, a8C SR,
119

+YES--GET EXIT ROORESS
STALL?
» NO--BRANCH

EBRLLZ

+STALL

RO, MSTALL

. YES--CALL STALL ROUTINE
TIME POINTER

- THIS SUBROUTINE CHECK FOR LOOP, RBORT., OR CONTINUE SWITCHES RFTER
+ERRORS W41, 42. 43, 44, 45, AND 46
. CALL
MOV
DTA+16. -(SP)
- STATUS WORD FROM DOPB IN USE
PC.LOP (K
JSR
RETURN

6441
642
6483
6Ny
6445

026210
026216
026220
026224
026230

001000

162722

026236

032777
001402
000177
005037
032766
001402

152664
001206
072006

000002

648
6449
6450

026240
026244
026246

000137
012616
000207

017366

6446

LOP CK
19

BIT
BEQ
JMP
CLR
BIT
BEQ

JHP

MOV
RTS

#SH9, ISR
.LOOP ON ERROR
19
BR IF NOT
SSLPERR
START AT THE LOOP RODRESS
SESCAPE
-CLEAR ERROR ESCAPE FLRG
#BIT14'8IT13'BI1T12'81T10!'81T02'B1T01,2(SP)
, CHECK ERROR TYPE
29
+BR IF DRIVE NOT OFFL INE, UNLORDED, OR
+PERSISTENT UNSRFE OR FRATAL MASSBUS PRRITY
SEOP
- TERMINARTE DRIVE

;gPH, (SP)

+ADJUST RETURN RDDRESS

£ 10
(ZRJAC RPO4/S5/6 MECHANICAL AND RERD/WRITE TEST
MACY11 30A(1052)
27-JUL-78
C(ZRJAC P11
27-JuUL-78 09 18
133 PROGRANM SUBROUTINES 3838

6452

+THIS ROUTINE FORMS AN

6457
6458
6459
6460

,
.
.
.

6463

JSR

6453
6454
2:22

09 24

PAGE

125

INDEX THAT WILL BE USED TO DISPRTCH

.70 THE PROPER ERROR CALL
THE INDEX 1S FORMED BY EXRMINING
. THE STRTUS/ERROR INDICATOR OF THE APPLICABLE DPB
. | NDEX
STATUS/ERROR

6461
6462

0 BITIN!'BIT13'81708'81T01
281T11'81710'81702
Y BITI12'BITON
6 BIT0S5'BITO3'<BITO9 & COMMAND=NON-1/0>

,
10 BITO6'(<BITO9 & COMMAND=1/0>
» CALL

646M

#0PB+16.-(SP)

., ADDRESS OF STATUS/ERROR

- FORM INDEX

RETURN

PC. SRER INOX

ERINDX

MOV
MOV
MOV
MoV
CLR
BIT
HORD
BNE
BIT

RO, - (SP)
- SRVE RO
R1,-(SP)
. SAVE R1
6(SP), RO
,GET STATUS/ERRNR INDICATOR PO INTER
(RO), @8SVUSTAT , SAVE THE STATUS/ERROR INDICRTOR
R1
»START INOEX RT ZERO
(PC)+, (RO)
.FORM INDEX OF 07
BIT13'BITO8'8ITO1
59
. YES--BRANCH
(PC)+. (RO)
.FORM PARITY ERROR OR PORT REQUEST INDEX (2)?
4s

. INDEX

IS ON THE STRCK

026250
026252
02625
026260
026264
026266
026270
026272
02627%

010046
010146
016600
011037
005001
032710
020402
001027
032710

o477

026300

001023

BNE

026304
026306
026310

050020
001017
032710

HORD
BNE
BIT

BITI4W'BIT12'81TO4
39
. YES--BRANCH
(PC)+, (RD)
,FORM NON-1/0 ERROR

6483

026314

001013

BNE

6485
6486
6487
6488
6489
6490
6491
6492
6493
649
6495

026320
026322
026324
026326
026330
026332
0260
02642
0264
0266
026350

000100
001007
032710
001000
001410
122760
003001
00501
005201
005201
005201

026276

6478

026302

6482

026312

6479
6480
6481

68y

649%
649?
6498
€499
:g.@
1

6502
6503
6504
6505
6506
6507

026316

026352
026354
026360
026362
026364

000006
001260

006004

WORD

032710

BIT

000050

WORD

032710

006301
010166
012601
012600
000207

BIT

00C150

177762

19
29
39
4s
000006

INDICRARTOR

JSR

6467
6468
6469
64?70
6471
6472
6473
6M7%
6N75
476

StQ 0121

BIT11'81IT10'81702

(PC)+, (RO

BITO5'81T03

(PC)+, (RO)

- YES--BRANCH

.FORM UNSRFE

. TES--BRANCH

INDEX (4)?

.FORM /0 ERROR

INDEX

INDEX (1017

HORD
BNE
BIT
WORD
8tQ
CHPB
BGT
INC
INC
INC
INC

BITO6
19
(PC)+. (RO)
BITO9
59
#150. -16(R0O)
29
R1
R1
R1
R1

»NO--FORM INDEX OF O
. YES--1/07
- NO--BRANCH
» INDEX=10---ERROR=45 OR 46
. INDEX=6---ERROR=4Y
» INDEX=4---ERROR=4J
» INDEX=2---ERROR=42

RTS

.RETURN FRONM CALL

ASL
MOV
MOV
MOV

R1
R1,6(SP)
(SP)+, R1
(SP)+, R0

(6)7?

- YES--BRANCH
- SOFTHARE TIMEOQUT?

» INDEX=0---ERROR=Y1
+RETURN INDEX TO USER
+RESTORE R1
+RESTORE RO

»,THIS ROUTINE WILL PROVIDE R STALL IN MILLISECONDS FOR R SPECIFIC
,AMOUNT OF TIME IF BIT13 OF C SHR = O OR R RANDOM AMOUNT OF TIME
IF BIT 13 OF C SWR = 1
»,STALL1 CONTAINS SPECIFIED TIME FOR TESTS O - 7. AND STALL2
»CONTRINS THE TIME FOR TESTS 16-21
» CALL

F 10
MACY11 30A(1052)
27 JUL-78
CZRJIRC RPO4/S5/6 MECHANICAL ANO READ/MRITE TEST
CZRJAC P11
27-JUL-78 09 18
333 PROGRAM SUBROUTINES 3338

6508
6509
6510
6511
6512
6513
6514
6515
6516
6517
6518
6519
6520
6521
6522
6523
6524
6525
6526
6527

JSR

RO, HMSTARL

MOV

9(RO)+, -(SP)

JSR

PC, JESRAND

TINE POINTER

026366
026370
026376
026400
026M0M
026410
02641Y%
026416
02642%
026426
026432
026434
026440
026442
026444
026446

013046
032737
001406
004737
013716
0%2716
005046
162766
103407
012716
005700
005366
001 374
000765
022626
000200

020000

001220

STALL

023512
023612
177700
000001

BIT
BtQ
nov
Bi(

000144
000000

6528
6529
6530
6531
6532

PICKUP STALL

THE

STALL

TimMe

TINE

,USE A RANDOM Tine?
» NO--BRANCH

» YES--FORM RANDOM NUMBER

sus

#1,2(SP)

~MORE

MOV
TST
DEC

#100 . (SP)
RO
0(SP)

CHP
RTS

(SP)+, (SP)+
RO

g:E
4s

TO FIND

,AND USE 1T FOR THE STALL TIME
+BUT NEVER > 64 MILLISECONDS

BLO
3

126
SEQ 0122

+HHERE

SHR

PAGE

o8SLONUM (SP)
& C77,(SP)

(LR

000002

#SH13, 38C
19

09 24

-(SP)

4s$

.CLEAR TEMP

LOCRTION

STALL REQUIRED"

» NO--BRANCH

.STALL FOR RBOUT 1
.NOP TO KiLL TIME
- COUNT

.LOOP

IF MORE

CLEAN OFF
CEXIT

MILL ISECOND

COUNTS NEEDED

THE

STRCK

+ROUTINE TO PROVIDE R Z MS STALL RFTER R SEEK OPERATION IN THE SEEK TIMING
+TESTS
THIS STALL IS REQUIRED TO COMPENSATE FOR THE 'ACCESS RERDY' DELAY
.ég THE RPOM
THIS STALL TIME IS NOT INCLUDED IN THE CRLCULATED SEEK TIMES
.

6533

.
.

026450
026454
026462
026466

02647

026510
026512
026516
026522
026526

013746
012737

017746

012777
012777
012777

062706
012677
012637
000207

177776
000240
152706
026512
000310
000101

177776

CALL

THONS

152700
152700
152670

000004

162652
177776

.ggUTINE

/
,
,

047714
000002

047716

113737

CALL

VERIFY

010146

010000
04771y

047714
047717
047716

PC.
SR THOMS

MOV
MoV
MoV
MoV
0]
MOV
WAIT
ADD
MOV

o#PS, - (SP)
#(5332 ). 9#PS
oPKV, - (SP)
#19, aPKV
#200 , oPKB
8101, IPKCS

#y, SP
(SP)+, aPKV

.SAVE THE PRESENT PROCESSOR STRTUS
,SET THE PROCESSOR PRIORITY TO &
,SAVE THE OLD CLOCK VECTOR RODRESS
. SETUP NEW VECTOR RDORESS
.LORD THE CLOCK BUFFER
- START THE CLOCK
+HAIT FOR 2 NS
. INCREMENT STACK FOR RETURN
-RESTORE OLD CLOCK VECTOR

RTS

. RETURN

MOV

012001
0%2737

JSR
RETURN

001262
001264
001266

(SP)Y+,

PSS

.RESTORE THE OLD PROCESSOR STRTUS

TO SOF THARE COMPARE HERDER ON

IMPLIED SEEKS

JSR
RO, RVERIFY
ROR POINTER
RETURN

. ADDRESS OF

MOV
MOV
BiC
CHP
BNE

R1,-(SP)
(RO)+. R
#FMT2Z, SRBUFFER
SRBUFFER. 2(R1)
19

. SAVE R1
.GET RODRESS OF DPB+10
, STRIP FORMAT BIT FROM CYL INDER NUMBER
. CYLINDER NUMBER OK?
+NO--BRANCH

Mnove

SHBUFFER+2Z,
#SEC RD , AND SECTOR

CHP
BEQ
MOV
HOVB

DPB+10

(SECTOR

NUMBER)

SRBUFFER+Z,
(R1) , YES--HOW RBOUT TRRCK/SECTOR?
39
»BRANCH |F GOOD
S8BUFFER. aRCYL RD , SRVE THE EXPECTED AND THE
JRBUFFER+3, @RTRK RD ,RECIEVED CYLINDER, TRACK,

6 10

C(ZRJIAC RPOY/5/6 MECHANICRL AND RERD/WRITE TEST
MACY11 30R(1052)
27-JuL-78
CZRJIRC P11
27-JuL-78 09 18
233 PROGRAM SUBROUTINES 313

026602
026606
026612
026616

112137
112137
011137

012737
005740
104012
012737
004037

005037
032777
001404
000177
062700
012601

001272
001274
001270
026630
000107
025034
001206
001000

nove
nove
nov
nov

001206
004106

152264

152226
000002

39
4s

000200

ST
ERROR
nov
JSR
CLR
8IT
8tQ
JHP

ROD
MoV
RTS

09 24

PRAGE

127
SeQ 0123

(R1)+, J8SEC DS
(R1)+, JRTRK DS
(R1), d8CYL DS
829, SESCRPE
- (RO)
12
SRECAL.OPB R+Z
RO, J8CALL R
SESCAPE
ASHI, ISIR
4y

.. ESCAPE TO 29 ON ERROR
JMAKE IT TEST P(+4
.REPORT THE ERROR
,LOAD RECAL IBRATE ORDER CODE
.60 EXECUTE THE COMMAND
-CLEAR ERROR ESCAPE FLRG
.LOOP ON ERROR ?
,BR _IF NOT

$2.R0
(SP)+. R1
RO

» INCREMENT RETURN RDORESS
.RESTORE R1
SJEXLT

SSLPERR

,RETURN TO ERROR LOOP RDORESS

+THIS ROUTINE WILL PERFORM R "MASSBUSTM INIT
FOLLOKED BY
+A "RECAL IBRATE" ON THE DRIVE UNDER TEST
+NOTE
THIS ROUTINE DESTROYS R1 AND RY
. CALL
.
RO. SRCHOO
.00 A MASSBUS INIT
AND RECAL
JSR
,
+RETURN HERE IF NO ERROR
RE TURN1
.
.RETURN HERE ON ERROR
RETURNZ

1727776
037400
Q34516
000040
004174

004176
000107
001206
035304

SRCHOO

005612

000010
004166

004202

027036
004176
004175
00417y
004202
026250

001206
001270
001274
001272

29
000006
000034

39
4$

CLR
CLR
MoV
MOV
MOV

CLR
CLR
MOV
CLR
JSR
DTAOPB
BR
TST
8EQ
8PL
MOV
MOV
MOVB
HOVB
MOV
JSR
ROD
ERROR

ERROR
ERROR
ERROR
ERROR
TST
BR
CLR
CLR
RTS

glPS

L]
8 1SR, eRPVEC

. INCASE OF
. SETUP

ERROR

(TYPTIM)

INTERRUPT VECTOR

S#RPROR. RY
,P1CKUP RDDRESS OF RP(S1
881705, RPCS2(RY) , MASSBUS INIT
o#DTROPB+10
. TRACK=0, SECTOR=0
S8DTROPB+12
»CYLINOER =0
SRECAL. SROTADPB+2 . COMMAND = RECAL IBRATE
S# SESCAPE
- NO ESCAPE RODRESS

RO. SRRPOM

.CALL THE DRIVER

4s
D;ROPB*!S

.DPB POINTER
- QUEUE IS FULL
.HAIT ON DONE

- TRKE NORMAL EXIT

#29, SESCARPE

IF NO ERROR

. ESCAPE TO 29 ON ERROR

S80TAOPB+12. 8CYL DS ., CYL INDER
S80TROPB+11,
4 TRK DS . TRACK
o#DTROPB+10.
34SEC DS , SECTOR
#0TROPB+16.
- (SP) , STRTUS/ERROR INDICATOR RDDRESS
PC, SRER INDX
-FORM DISPRTCH INDEX
6?P)+,P(
»REPORT PROPER ERROR
42
43
4y
45
(RO)+

+PARITY ERROR
- UNSRFE ERROR
~NON-1/0 ERROR
» 170 ERROR
-RDJUST FOR ERROR

RPDR(RY4)

. TRACK AND SECTOR = O

RPCA(RY)
RO

.60 TO THE EXIT
CYLINDER
»RETURN

= O

EXIT

MACY11 30R(1052)
27-JuL-78
CZRJIAC RPO4/5/6 MECHANICAL AND READ/WMRITE TEST
CZRJIAC P11
27-JuL-78 09 18
333 PROGRAM SUBROUTINES £33

6620
6621
6622
6623
6624
6625
6626
6627
6628

6629

6630

6631
6632
6633

THIS

027054

000002

DORT |

IS AN RTI

104412
012700
012701
005020
020001
103775
012710
012737
012737
104413
000207

001276
001332

047714
07?7227
Q?77227

,
p

JSR
RETURN

STRTMR

SRVREG

THE

INITIALIZE

THE

128

TIMING TESTS &

+RETURN FROM
WILL

PRGE

SEQ 0124
THE

TIMERS USED BY THE

"TIMING ROUTI

PC. J8STRTMR

. SRVE

RO-R5

#7iM UP.RO
STILPT.RY
(RO)+
RO. R1

MOV
MoV
MOV
RESREG
RTS

SBUFFER, (RO)
- SETUP POINTER
f (BIT16, 98TIM UP ,SET MINIMUM TINE
& C(BIT16,98TIM DN ,POSITIVE NUMBER
-RESTORE RO-RS
PC
- RETURN

START AT TIN UP
,STOP AT TIR PT
. CLEAR
- DONE?

(MINIMUM)

» NO--BRANCH

TO MAXIMUN

+THIS ROUTINE WILL ADD THE ELAPSED TIME TO THE RVERARGE
+MAINTARIN THE MINIMUM AND MAXIMUM TIMES
.NOTE
THIS ROUTINE DESTROYS RZ
. CALL
.
Mov
8TP.R3
.PARAMETER POINTER
,
MOV
FLAG. RS
. FLAG=0=CQUNT UuP
.
,FLAG=-1=COUNT DOWN
,
JSR
PC.
a8 COUNT

027122
027126
027130
027132
027136

027142
027144
027162
027160
027162
027168
027166
027172

012702
005705
001402
012702
027722
002003

017762
027763
002001
005212
005722
027722
003403

017762

027763
003401
005212
006722
067722
006522
006212
022737
101406
0172777

SERVO SETTLE

INTERRUPT

MOV
MoV
CLR
cHe

BLO
001276
001314

1S USED BY

RTI

,Egtf ROUTINE

027056
027060
027064
027070
027072
027074
027076
027102
027110
027116
027120

WHICH

09 24

COUNTER

RETURN

001276

COUNT

001314
152242

MoV
TST
BEQ

8TIM UP.R2
RS
19

+PICKUP THE "UP'" POINTER
LUSE I1T?
. YES--BRANCH

BGE

» NO--BRANCH

1562234
162226

177776
000004

162212
162204
162176

177776
000006

4s
5%

162162

056204

001332

1562142

152066

MOV
CMP

8T1iM ON.R2
oPK(C, (R2)+

+NO--PICKUP "DOWN" POINTER
+LESS THAN PREVIOUS LOW?

CHP

oPK(C, 4(RI)

LLESS THAN THE LOK LIMIT?

INC

(R2)

+YES--COUNT

BGE

TST
CHP
BLE

MOV
CHP
BLE
INC

TST

ADD

ADC
INC
CHP

BLOS
Hov

(R2)+
oPK(, (R2)+
4s

oPKC(, -2(R2)
oPK(C. 6(RI)

+ NO--BRANCH

,ADOVANCE THE POINTER
., GREATER THAN PREVIOQUS HIGH?
» NO--BRANCH

,YES--SAVE IT
. GRERTER THAN THE HIGH LIMIT?
. NO--BRANCH

(R2)+

. ADVANCE THE POINTER

(R2)

oPK(C, (R2)+

(RZ2)+
(R2)
SBUFFER+CUX81Y4

69
oPK(C.9TIM PT

+YES--COUNT

»,ADD THIS COUNT TO THE TOTAL
», COUNT THIS RERDING
>, RTIMN PT ,SAVE THIS COUNT?
» NO--BRANCH
+YES--HELL SAVE IT THEN

AND

DOWN

TEST

CZRJAC RPOU/5/6 MECHANICAL AND RERD/WRITE TEST
MACY11 30A(1052)
27-JUL-78
(ZRJAC P11
27-JUL-78 09 18
X33 PROGRAM SUBROUTINES £1%

6676
22;;

027244
027252

062737
000207

000002

001332

6679
6680
6681
6682
6683
6684
6685
6686
6687
6688
6689
6690
6691
669%
6695
669

027254
027256
027264

012002
032777
001145

6698
6699
6700

027272
02727%
027276

012205
012203
011202

027266

027306

001276

027300
027304
027306
027310
027318
027316
027322

012704
104401
000000
005764
001527
104401
O012%46

6710
6711
6712
6713
6714

027334
0270
0272
0278
027350

104401
005724
001421
104401
016446

027324
027330

004737
004737

6715
6716
6717
6718
6719
6720
6721
6722
6723

027364
027360
027368
027370
027372
027376
027902
027406
027412

004737
004737
104401
010346
004737
004737
104401
104401
012446

6726
6727
6728
6729
6730
6731

027424
027430
027432
027438
027440
027444

104401
00672y
001421
104401
016446
004737

6724
6726

027v1%
027420

000100

012237

6701
6702
6703
6708
6705
6706
6707

6708
6709

A0D
RTS

82,871 PT
PC

PRGE

129

. ADVANCE THE POINTER
- RETURN

- THIS ROUTINE 1S USED TO TYPE THE MINIMUM,
+MAXIMUM, AND RVERAGE TIMES FOR THE TIMING TESTS
1T WILL ALSO CHECK THE TIMES TO ENSURE
. THEY RARE WITHIN TOLERANCE AND IF NOT FLRG THE BRD TIMES
+NOTE
THIS RCUTINE DESTROYS R2-RS
. CALL
.
JSR
RO, RTYPTIN
. GO REPORT THE TIMES
,
TABLE
+POINT TO THE PROPER TRBLE
,
RETURN
,
» TABLE MSGROR1
. ADORESS OF ASCIZ MESSAGE NUMBER 1
.
MSGROR 2
. ADORESS OF RASCIZ MESSAGE NUMBER 2
,
MIN RALLOKWED
+HINIMUM TIME ALLOKED

ggg

6697

09 24

004737
004737

000014

151654

MAX ALLOWED

+MAXIMUM TIME ALLOWED

TYPTIMN

MOV
BIT
BNE

19
29

023222
023452

044042
177776

023222
023452
043734

023222
023452

043727
044082
177776
023222

TYPE
TST
BEQ
TYPE
MOV

- MSGOUS
(R4)+
39
-MSG. SP
-2(R4),-(SP)

.0 US"
+ANY SEEKS BELOW THE LOW LIMIT
» NO--BRANCH
S
+PUT -2(R4) ON THE STACK

JSR
JSR

043727

023222
023452

O
14(RY)
69
~MSGMIN
(R4)+, -(SP)

MOV
MOV
MOV

043702

043727
043711

oV
TYPE
WORD
TST
BEQ
TYPE
MOV

+PICKUP THE TRBLE POINTER
~INHIBIT TIME REPORTS?
» YES--BRANCH
. ADDRESS OF MESSAGE NUMBER 1
. ADORESS OF MESSAGE NUMBER 2
+PICKUP THE LOW LIMIT
AN THE HIGH LIMIT
,PRARAMETER POINTER
. TYPE THE MESSAGE
+ASCIZ MESSAGE POINTER GOES HERE
.D10 ANY COUNTS OCCUR?
» NO--BRRANCH
»"MINs"
;PUT (R4)+ ON THE STRCK

MOV

(RO)+,R2
#SHO6. aSHR
’9
(R2)+, 2%
(R2)+,R5
(R2)+.R3
(R2),R2
#TIM UP.RY

PC. a8$SB2D
PC, 8SSUPRS

JSR
JSR
TYPE
MOV
JSR
JSR
TYPE
TYPE
MoV

PC. 9895820
PC, #SSUPRS
» MBELOW
R3.-(SP)
PC. 3495820
PC. RSSUPRS
» MSGOUS
» MSGMAX
(R4)+, -(SP)

TYPE
TST
BEQ
TYPE
MOV
JSR

- HSGOUS
(RY)+
4s
.MSG SP
-2(RY), -(SP)
PC. a#$SB2D

JSR
JSR

PC. a#3S82D
PC., aRSSUPRS

. CHANGE (R4)+ TO DECIMAL RSCI2Z
. TYPE WITHOUT LERDING ZEROS

»,CHANGE -2(R4) TO DECIMAL ASC!2
- TYPE WITHOUT LEADING Z2EROS
»"BELOW THE MINIMUM OF"
+PUT R3 ON THE STRCK
»CHANGE R3 TO DECIMAL ASCIZ
. TYPE WITHOUT LERDING ZEROS
. "MAX="

+PUT (R4)+ ON THE STR(K

- CHANGE (RY4)+ TO DECIMAL RSCI2
. TYPE WITHOUT LERDING ZEROS

-ANY SEEKS ABOVE THE HIGH LIMIT
»NO--BRANCH
»YES--REPORT HOW MANY
+PUT -2(R4) ON THE STR(K
. CHANGE -2(R4) TO DECIMAL RSCIZ

SEQ 0125

J 10
RPOM/S5/6 MECHANICAL AND RERD/WRITE TEST
MACY11 30R(1052)
27-JuL-78
P11
27-JWL-78 09.18
3% PROGRAM SUBROUTINES 31%

027450
027454
027%60
027462
027%66
027472
027476
027502
02750
027506
027510
027514
027516
027520
027522
027522
02726
027..2
027536
027542

004737
104401
010246
004737
004?737
104401
104401
012446
012446
012446
004737
006126
100001
005216

023452
043763

004737
004737
104401

023222
023452
043727
o404
2
1727776
023222
021452
o4u4012
027306

104401
016446
004?737
004737
104401
010537
001404
005005
Y
00064
104401
000200

023222
023452
043727
03720

JSR
TYPE
MoV
JSR
JSR
TYPE

TYPE
MOV
MOV
MoV
JSR
ROL
BPL
INC

r23614

ou4027

JSR
JSR
TYPE

TYPE
MoV
JSR
JSR
TYPE
MOV
BEQ
CLR
BR
TYPE
RTS

69
’$

PC. 383SUPRS
- MABOVE
RZ,-(SP)
PC., 989582D
PC. 38 SSUPRS
» HSGOUS
- MSGRVG
(R4)+, -(SP)
(RY4)+, -(SP)
(R4)+, -(SP)

PC, 88D 1V
(SP)+
59
(SP)

PC., a89S82D
PC, a8SSUPRS
- MSGOUS

. MSG. SP
-2(RY), -(SP)

PC. 883S82D
PC, #8SSUPRS
- MSGNUM
RS, 2%
79
RS
19
- MSGNON
RO

09 24

PRGE

. TYPE WITHOUT LERDING ZEROS

. "ABOVE THE MAXIMUM OF
"
,PUT R2 ON THE STACK
- CHANGE RZ TO DECIMAL RSCIZ
. TYPE

WITHOUT LERDING ZEROS

, “AVG="
. FORM THE AVERAGE

» 1S THE REMAINDER OVER HALF?
» NO--BRANCH
» YES--ROUND UP
»,CHANGE
TO DECIMAL ASCI2
. TYPE WITHOUT LERDING ZEROS

+,PUT -2(R4) ON THE STRCK
. CHANGE -2(R4) TO DECIMAL ASCIZ
- TYPE

WITHOUT

001520

INCTRK

001522
001520

001520

R
T

ALL

020137
001410

001512

RDD

tiT.R2

MOV

ofLT.R2

RZ, o8LT
19

(RO)+
RO

T HIS SUBROUTINE WILL

?UHBER

027632
027636

RZ, 98LT

BEQ

TST
RTS

19
29

6787

CHP

CHP
BLE

020237
001410
063702
020237
003402
013702
005720
000200

INCCYL

LERDING ZEROS

»"SEEKS TIMED"
»NEXT MESSRGE POINTER
. IF NONE EXIT
+NO MORE THRN 2
JEXIT

+THIS SUBROUTINE WILL INCREMENT THE TRACK
+NUMBER (R2) BY THE AMOUNT SPECIFIED BY "IT'
» CALL
,
JSR
RO, @& INCTRK
p
. TRACK NUMBER
RE TURN1
,
+ TRARCK NUMBER
RETURNZ

027602
027606
027610
027614
027620
027622
027626
027630

130

GREATER THAN LT15
INCREMENTED

»LAST TRACK COMPLETED?
»YES--EXIT
»-NO--UPDATE TRRCK
. TRACK TO BI1G?
- YES--SET TRACK TO LAST TRACK
~RADJUST FOR RETURN 2
»RETURN

INCREMENT THE CYL INDER

(R1) BY THE AMOUNT SPECIFIED BY

'IC'

JSR
RO, o INCCYL
RETURNt
RETURNZ

»CYLINDER NUMBER GREATER THAN LC15
+CYLINDER NUMBER INCREMENTED

(CMP
8EQ

~LAST CYLINDER
YES--EXIT

R1,8LC
29

COMPLETED?

SEQ 0126

K 10

(ZRJAC RPOM/S/6 HECHANICAL AND READ/MRITE TEST
MACY11 30R(1052)
27-JUL-78
CZRJRC P11
27-JUL-78 09 18
3% PROGRAM SUBROUTINES 212

6788
6789
6790
6791
6792
2;33

027640
027644
027650
027652
027656
027660

063701
020137
003402
013701
005720
000200

00151y
001512

001512

19
2%

6795
6796
6797
6798
:;33
6801
6802
6803
6804
6805

o iC, R1
R1,98LC
19
ofLC. R1
(RO)+
RO

PAGE

]

131

StQ 0:27

~NO--UPDARTE CYL INDER
.CYLINDER TO B81G?
+NO--EXIT
»YES--SET CYLINDER TO LRST CYL INOER
»,ADJUST FOR RETURN 2
- RETURN

+THIS ROUTINE DECREMENTS THE SECTOR RDDRESS
. CALL
.
CLR
-(SP)
. CLERR THE STACK
.
JSR
PC. DECSEC
- SUBROUTINE ENTRY
.
RETURN
027662
027670
027674
027676
027708

113766
005366
100003
013766
000207

004212
000002

000002

001634

000002

6807
6808
6809
6810
6811

RSO EE L RERREERERERRRRRREREREE

ROD
CHe
BLE
HOV
TST
RTS

09 24

DECSEC

MOVE
DEC
8PL
MoV
RTS

RP REG+RPDR. 2(SP)
,PUT THE SECTOR RDDRESS ON THE STACK
2(SP)
-DECREMENT THE RODRESS
19
+BR IF NOT CORRECTION NEEDED
PRMLMT+22.
. 2(SP)
,OVERFLOW OCCURED. FORCE TO MRXIMUM RDORESS
PC
. RETURN

+THIS SUBROUTINE IS USED TO FILL THE DRTA BUFFER
WITH RDORESSES FROM O TO 21 WITH ERCH RDDRESS
+BEING STORED IN 256 CONSECUTIVE LOCATIONS
» CALL
.
JSR
PC., S8F |LBUF
027706

027710
027712
027716
027722
027724
027726
027730
027732
027736
027740
027742

104412

005000
012701
012702
010021
005302
003375
005200
023700
103367
104413
000207

Q47714
000400

RETURN

FILBUF

SRVREG

19
29

001630

(LR
MOV
MOV
MOV
DEC
BGT
INC
CHP
BHIS
RESREG
RTS

RO
#BUFFER.R1
#250 . R2
RO, (R1)+
R2
29
RO
PRHLMT+22. RO
19
PC

. SAVE

RO -

+FIRST DISK RODRESS
- START FILLING HERE
.00 256 WORDS
» STORE
- MORE?
- YES- 3RANCH
»NO-- JPDATE DISK ADDRESS
- DONE?
» NO--BRANCH
-RESTORE RO - RS
»RETURN

+THIS ROUTINE WILL CLERR THE BUFFER BY
+SETTING ERCH WORD TO "177400"
»CALL
,
JSR
RO, S#CLRBUF
;
RE TURN

027744
027746
027762
027766

104412
012701
012702
012703

027764
027766
027770
027772
027774

010122
010122
010122
010122
010122

027762

027776

010122

177400
047714
075714

CLRBUF

18.

SAVREG
MOV
MOV
)

.SAVE RO - RS
#177400.R1
+HORD TO FILL BUFFER WITH
SBUFFER.R2
.FIRST ROORESS OF BUFFER
#BUFFER+<(512 %22 )>,R3 ,LRAST RDORESS+2 OF BUFFER

MOV
MOV
Hov
HOV
HOV

R1,(R2)+
R1,(R2)+
R1,(R2)+
R1,(R2)+
R1.(R2)+

)

MOV

R1, (R2)+

R1,(R2)+

+FILL WORDS 1,

+FILL
+FILL
+FILL
+FILL
+FILL

WORDS
WORDS
WORDS
WORDS
WORDS

9....249....5625

2.,10,. .250..
65626
3.11, . 251,...5627
4,12,...252,...5628
5,13, . 253,.. 5629
6. 14,
254,. . 5620

+FILL WORDS 7,15,

255,

5631

L 10
CZRJAC RPO4/5/6 MECHANICAL AND READ/WRITE TEST
MACY11 30R(1052)
27-JUL-78
CZRJAC P11
27-JUL-78 09 18
X33 PROGRAM SUBROUTINES 233
030000
030002
030004
030006
030010

010122
020203

MoV
e
BLO
RESREG
RTS

103766
104413

000200

104412
162706
005001
012716
005066
012702
011603

000004

04771y
000002
000020

CALL

CKSCTR

33377929230RRpRERRRRSEEASS

020123

030144

062716

001000

JSR
RETURN
SRAVREG
sus
CLR

MoV

020123
001063
020123
001061
020123
001057

R1.(R2)+
R2.R3
19
RO

PAGE

;FILL WORDS 8. 16.
- DONE?
- NO--BRANCH

132

SEQ 0128

256,

5632

;RESTORE RO - RS
;RETURN FROM CALL

THIS ROUTINE IS USED TO CHECK THE DATRA BUFFER
FOR ADORESSES O THROUGH 21 WITH ERCH RDDRESS
BEING STORED IN 256 CONSECUTIVE LOCATIONS

6844
684S
6846
684?
6848

09 24

38.

CLR
MOV

MOV

CHP
BNE
CHP
BNE
CHP
BNE
CHP
BNE
cHP
BNE
CMP
BNE
CHP
BNE
CHP
BNE
CHP
BNE
CHP
BNE
CHP
BNE
CMP
BNE
CHP
BNE
CHP
BNE
CHP
BNE
€4
BNE
DEC

BNE
RDD

RO, SRCKSCTR

&4, SP
R1
#BUFFER, (SP)
2(SP)
#16 ,RZ .LO0P
(SP).R3

R1.(R3)+
4
R1.(R)+
79
R1.(R3)+
798
R1,(R3)+
79
R1,(R3)+
79
R1,(R3)+
79
R1,(R3)+
’9
R1,(R3)+
4)
R1,(R3)+
79
R1,(R3)+
7%
R1,(R3)+
4
R1,(R3)+
78
R1,(R3)+
7%
R1.(R3)+
79
R1.(R3)+
79

R1.(R3)+
79
R2
29
#512., (SP)

»SAVE RO - RS
+RESERVE TEMP
STORAGE RRER
+FIRST SECTOR
.FIRST RDDRESS OF DATR BUFFER
- NO ERRORS
COUNT (16X16=256)
+GET 1ST ADDRESS OF THIS SECTORS DATA

. HWORD 1
,BRANCH IF
.HWORD 2
,BRANCH IF
.HWORD 3
,BRANCH IF
,WORD 4
.BRANCH IF
.HORD 5§
,BRANCH IF
- HORD 6
;BRANCH IF
+HWORD 7
.BRANCH IF
;WORD 8
.BRANCH IF
JHORD 9
.BRANCH IF
;HORD 10
;BRANCH IF
,WORD 11
.BRANCH IF
-HWORD 12
;BRANCH IF
;HORD 13
.BRANCH IF
.HWORD 1M

BARD

BRD
BAD
BAD

BAD
BARD

BAD
BRD

BARD
BAD

BRD

BAD
BRD

-BRANCH IF BRD
. HORD 15
,BRANCH IF BARD
.HORD 16
;BRANCH IF BRD
+FINISHED WITH THIS SECTORS DATR?
+NO--BRANCH
. YES--FIRST RDDRESS OF NEXT SECTOR

N 10

E%:jgg ::?fl/S/b MECHANICAL AND RERD/MRITE TEST
MACY11 30A(1052)
27-JuUL-78
27-JUL-78 09: 18
X33 PROGRAM SUBROUTINES 3332

030150
030152
030156
030160
030164

005201
023701
103325
005766
001406
123737
101002
013700

001630
000002

001364

001103

001252
000004

69
79

177740
000040

030040
177776
000002

001126

004176
004175
030302

001270
001274
001206

000002

012737
104022
032777
001323
032777
001310
123737
101713
032777
001272
000115

030320

001206

001000

150612

000002

150602

001364

001103

000040

150562

109

119

INC
CHP
BHIS
TST
BEQ
cneg
BH'

HOV

09:24

PAGE 133

R1
;MOVE TO NEXT SECTOR
PRALMT+22, R
- DONE?
19
; NO--BRANCH
2(SP)
;ERROR OCCUR?
69
- NO--BRANCH
SHERR (T, SRSERFLG .MAX. ERROR OCCURRED?
69
- NO--BRANCH

o#BYPRSS, RO

#4.SP

;TRAKE ERROR EXIT

ROD
RESREG
RTS
MOV
Sus
MOV
ASR
BiC
BNE

RO
K3, RY
(SP),RY
R4, RS
RY
& C37.R5
8%

ASL
RDD
MOV
TST
BNE
MOV
Hove
MOV
ERROR
cons
BR

RS
#29.R5
. RDDRESS
-2(R3). SRSBODAT , SAVE BRD DATA
2(SP)
+FIRST ERROR?
109
» NO--BRANCH
o#DTROPS+12, SACYL DS ., CYLINDER NUMBER
S8DTROPB+11,
RTRK DS , TRACK NUMBER
#99. SESCRPE
., ESCAPE TO 9% ON ERROR
21
.REPORT THE ERROR
2(SP)
+SET ERROR SWITCH
119

MoV

#40,.R5

MOV

#1195, SESCAPE

BIT

#SKO9., aSHR

ERROR

BNE
BIT
BNE

CHPB
BLOS
BIT
BNE

JHP

59
#SHO1, ISR
4s

;FREE TEMP. ARER
;RESTORE RO - RS
;RETURN FROM CALL
,FORM WORD NUMBER AND
. 1DORESS TO CONTINUE FROM
- WORD NUMBER

+BRANCH

|F NOT R MULTIPLE

»SET TO WORD 16

-LOOP ON ERROR?

. YES
. STOP DATR COMPARE"?
» YES--BRANCH

004170
003044

012321

18:

MoV
MoV
MoV

PAT PT(RO).R3
(R3)+, (R1)+
(R3)+, (R1)+

MoV

(R3)+. (R1)+

Mov

PER

SECTOR?

(R5)

SRAVREG

+REPORT THE ERROR

SRERR.
(T, SRSERFLG . MAX. ERRORS?
59
: YES--BRANCH
#SHOS, SR
.REPORT ONLY 1ST ERROR
39
- YES--BRANCH

SETBUF.

nov
MOV

., ESCAPE TO 11$ ON ERROR

»,THIS ROUTINE WILL MOVE THE 16 WORDS OF THE
-DESIRED PRTTERN INTO THE DRTR BUFFER
; CARLL
;
MoV
SNX. RO
+PRTTERN NUMBER
;
JSR
PC, a8SETBUF
047714

StQ 0129

INDEX TO RO

.SAVE RO - RS

SBUFFER. R}
o8DTROPB+4,R2Z

.FIRST RODRESS
., WORD COUNT

(R3)+4. (R1)+

,MOVE WORD 3 INTO DATR BUFFER

.PICKUP PRATTERN POINTER
,MOVE WORD 1 INTO DARTR BUFFER
,MOVE WORD 2 INTO DATR BUFFER

,MOVE WORD 4

INTO DATR BUFFER

N 10
CZRIAC RPON/S/6 MECHANICAL AND RERD/WRITE TEST
MACY11 30A(1052)
27-JuL-78
(2R IRC .1
27-JWL-78 09 18
X33 PROGRAM SUBROUTINES 3338

030410
030%12

012321
012321
012321

"oV
)
L)
MoV
Hov
MOV
)
MOV
MoV
MOV
MOV
Hov
R0D
BNE
RESREG
RTS

012321
012321
012321
012321
012321
012321

012321
012321
012321
062702
001353
104413
000207

000020

(R3)+, (R1)+

(R3)+, (R1)+
(R3)+, (R1)+
(R3)+, (R1)+
(R3)+, (R1)+
(R3I)+, (R1)+
(R3)+, (R1)+
(R3)+, (R1)+
(RI)+, (R1)+
(R3)+, (R1)+
(R3)+. (R1)+
16 .R2 .D0NE?
19
PC

. MOVE
. MOVE
» MOVE
. MOVE
. MOVE
. MOVE
. MOVE
; MOVE
. MOVE
. MOVE
, MOVE

PRGE 134

WORD
WORD
WORD

WORD
. MOVE HWORD

» NO--BRANCH
.RESTORE RO . RETURN

LS
Y

030452
030454

030460

162321
001044
162321
001042
162321
001040
162321
001036
162321

030466
030472
0304?72
030874
030476
030600
030502

104412
012701
013702
0CS046
016003

030610
030612
030618
030616

00103y
162321
001032

162321
001030

030640

030642
030644
030662

030654

04771y
004170
003044

DATCMP.

SRVREG
MOV
MOV

19
29

CLR

S8BUFFER.R1

S#DTROPB+Y, R2

INTO DATR BUFFER

INDEX

;SAVE RO - RS
.F IRST RDDRESS OF
- WORD COUNT
+-NO ERROR
PRTTERN POINTER

-(SP)
PAT PT(RO).R3

SuB
BNE
sus
BNE
sus
BNE
SuB
BNE
sus
BNE
sSus
BNE
sus
BNE
SuB
BNE
sSus
BNE
sus

4s
(R3)+, (R1)+
49
(R3)+, (R1)+
4s
(R3)+, (R1)+
49
(R3)+. (R1)+
4s
(R3)+, (R1)+
4
(R3)+, (R1)+
4s
(R3)+, (R1)+
49
(R3)+, (R1)+
s
(R3)+, (R1)+

. CHECK WORD 1
;BRANCH IF DIFFERENT
; CHECK WORD 2
;BRANCH IF DIFFERENT
;CHECK WORD 3
;BRANCH IF DIFFERENT
;CHECK WORD 4
;BRANCH IF DIFFERENT
;CHECK WORD 5
+BRANCH IF DIFFERENT
- CHECK WORD 6
+BRANCH IF DIFFERENT
; CHECK WORD 7
+BRANCH IF OIFFERENT
;CHECK WORD 8
;BRANCH IF DIFFERENT
;CHECK WORD 9
+BRANCH IF DIFFERENT
. CHECK WORD 10

;CHECK WORD 11
+BRANCH IF DIFFERENT
»CHECK WORD 12
+BRANCH |F DIFFERENT
- CHECK WORD 13
+BRANCH IF DIFFERENT

BNE
SuB
BNE
SuB
BNE
Su8
BNE

4s
(R3)+, (R1)+
4s
(R3)+, (R1)+
4s
(R3)+, (R1)+

TO RO

BUFFER

MOV

(R3)+, (R1)+

StQ 0130

NTO DATA BUFFER
NTO DRTR BUFFER
NTO DRTR BUFFER
NTO DATR BUFFER
NTO DRTR BUFFER
INTO DATA BUFFER
INTO DATRA BUFFER
INTO DATA BUFFER
INTO DRTR BUFFER
INTO DATA BUFFER
INTO DRTP BUFFER

+THIS ROUTINE COMPARES R 16 WORD DATA PRTTERN
+AGAINST THE DATA BUFFER
. CALL
MoV
#NX, RO
+PRATTERN NUMBER
JSR
PC. #8DATCMP
RETURN

i peEiEe

6956
6957
6958
6959
6960
6961
6962
6963

09: 24

+BRANCH IF DIFFERENT

8 11
RPON/5/6 MECHRANIC AL AND RERD/WRITE TEST
MACY11 30A(1052)
27-JUL-78
.M
27-JUL-78 09 18
333 PROGRAM SUBROUTINES 333
162321
001012
162321

001010
162321
001006
062702

001333
005726
104413
000207
010104
162704
006 204
010305
166005
006 305
062705
064 Iu1
010137
010337
012137
0123137
005716
001023
013737
113737
113737
016600
012737
104013
016600
105116
000404

012737
104014
032777
001315
123737
101004
013766
000705
000115

000020
39
us

04771y

0C 3044
030y72

001122
001120
001126
001124
004176
0041?75
00% 174
000026
030716

001270
00127y
001272

001206

000020

030736

001206

000002

150174

001364

001103

001252

000016

SUB
BNE
sue
BNE
Sus
BNE
ROD
BNE
TSY

RESREG
RTS
nov
SuB
ASR
nov
Sus
RASL
RDD
ROD
nov
MoV
MoV
MOV
TST
BNE
MOV
HOVB
MOV
MOV
MOV
ERROR

HOV

coms
BR
MOV
ERROR
BIT

BNE
CHPB
BH|
MOV

BR
JHP

(R34, (R1)+
4
(R3)+, (R1)+
'}
(R3)+, (R1)+

PRGE

135

. CHECK WORD 1M
;BRANCH IF DIFFERENT
;CHECK WORD 15
;ORANCH IF DIFFERENT
»CHECK WORD 16
;BRANCH IF DIFFERENT
.DONE ?
» NO--BRANCH
+YES -- CLERAN UP STR(K
.RESTORE RO - RS
,FORN THE WORD NUMBER

SBUFFER.RY
RY
- WORD NUMBER
R3.RS
.FORM DORESS TO CONTINUE FROM
PAT PT(RO).
RS
R5
#29.R5
. ADDRE
SS
-(R3), -(R1)
-RECONSTRUCT THE BRD WORD
R1, 38980R0R
.SRVE THE ERROR |INFORMATION
R3. 8 $GOROR
(R1)+, d4S80D0ART
(R3)+, J#SGDOAT
(SP)
+1ST DATR COMPRRE ERROR?
» NO--BRANCH
69
o#DTROPB+12, 3ACYL DS ., CYL INDER
J80TROPB+11,
8 TRK DS ., TRACK
SHDTROPB+10.
ASEC DS , SECTOR
+GET TEST PC+u4
26(SP),
RO
:gS,SES(RPE
., ESCRAPE TO 59 ON ERROR
REPORT THE ERROR
»PATTERN NUMBER INDEX
20(SP).
RO
(SP)
»SET THE ERROR SWITCH
79
L
SN

030556
030560
030562
030564
030566
030570
030572

09 24

:SS,SES(RPE

.. ESCAPE TO 79 ON ERROR
+REPORT THE ERROR
#SHO1, ISHR
. STOP DRTR COMPRARE?
YES--EXIT
39
SRERR (T, SRSERFLG ., MAX
ERRORS?
» NO--BRANCH
8$
g:BYPRSS,lb(SP) - YES--ERROR EXIT
(RS)

+NO--CONTINUE RT NEXT WORD

»THIS ROUTINE WILL FILL THE DRTA BUFFER (256322 WORDS) WITH
»A_RANDOM PATTERN
THE FIRST THO WORDS OF EVERY 256 WILL
.BE THE BRSE OF THE RANDOM NUMBER GENERARTOR FOR THE
+NEXT 254 HORDS
+NOTE
THIS ROUTINE DESTROYS R1 AND R2
. CALL
,
JSR
RO, o#F ILRAN
P
RETURN

030770
030774

012701
013702

047714
001630

FILRAN

MOV
Hov

RBUFFER.R1
PRMLMT+22.R2

»MAXIMUM NUMBER OF

SECTORS

StQ 0131

cn
RPOU/S/6 MECHANICAL AND READ/WRITE TEST
MACY11 30A(1052)
27-JUL-78
Pit
27-Jn.-78 09 18
133 PROGRAM SUBROUTINES 333

031000
031004
031006
031010

004037
005302
100374
000200

031210

JSR
DEC
BPL
RTS

09 24

PRGE

136

StQ 0132

RO. JERANPAT
R2
19
RO

. THIS ROUTINE USES THE FIRST THO WORDS OF THE
+RERD BUFFER TO GENERRTED R RANDOM PATTERN
THEN
. THE READ BUFFER IS COMPARED TO THE PRATTERN GENERATED
+NOTE- THIS ROUTINE DESTROYS R1-RY
- CRLL
,
JSR
RO, 8RANCK
,
RETURN

031012
031016
031022
031026
031032

03103%
031040
031046
031052
031056
031062
03106%
031066
031070
031076
031100
03110
031110
031114
031120
031122
031126
031130
031132
031134
031136
031140
031142
031160
031162
031160

031162
031170

031172
031174
031176
031200
031202
031206

013746
013746
012702
012701
010103

011237
016237
004037
012637
012637
005046
162322
001441
012737
0O643M2

010237
010337

012237
012337
01020
162704
006204
005716
001002
105116
104015
104016

0327?77
001012
123737

101406

0327?77
001002

020103
101333
005726
001402
013700
000200

023610
023612
050714
05171y

023612
000002
031210
023612
023610

RANCK

001206

001122
001120

MOV
HOV
CLR
SuB
BEQ
MOV
RDO

(SP)+, 8SLONUM
(SP)+, SRSH
I NUN
-(SP)
(R3)+, (R2)+
4s
838, SESCRPE
-(R3), -(R2)

| RESTORE PRESENT RANDOM NUMBER

(R2)+, a#SBDDAT
(R3)+, 3#SGDOAT
RZ,RY
#BUFFER+512 ,RY
RY
(SP)
29
(SP)
15
16

. BRD DATA
. GOOD DATA
;FORM WORD NUMBER

MOV
MoV

001126
001124
050714

001000

147770

001364

001103

000002

147750

29
3%

4s
5%

001252

SASHINUM
- (SP) ,SRVE THE PRESENT RANOOM NUMBER
S8SLONUM, - (SP)
SBUFFER+512 . R2 RERD BUFFER RDORESS
#BUFFER+102%. , R1 , RANDOM PRTTERN ADORESS
Ri.R3
;COPY IT INTO R3 FOR LATER USE

MoV
MOV
JSR

023610

19
031142

MOV
MOV
Hov
L)
MoV

MOV
MOV
noY
Sus
ASR
TST
BNE
coms
ERROR
ERROR

(R2),JESLONUM
2(R2), SASHINUN
RO, ARANPAT

R2, 38 SBDAOR
R3, #4SGDROR

PRIME THE RANDOM NUMBER GENERRTOR

. GENERRTE R RANOOM PATTERN

-NO ERRORS
+ARE THESE TWO WORDS DIFFERENT?
+NO--BRANCH
., ESCAPE TO 3% ON ERROR
-RECRERTE THE BRD WORD

. ADDRESS OF BAD DATA
. ADDRESS OF GOOD DATA
(1

TO 256)

+FIRST ERROR
» NO--BRANCH
»YES--SET ERROR SWITCH
-REPORT THE ERROR
+REPORT THE ERROR

BIT

#SHO9. SR

BLOS

» YES--BRANCH

R1,R3
19
(SP)+
6%
o#BYPRSS, RO
RO

+ALL DRTR BEEN CO'IPARED?
» NO--BRANCH
»ERROR OCCUR?
+ NO--BRANCH
. TAKE ERROR EXIT
JEXIT

BNE
CnPB

BIT
BNE

CHP
BHI
TST
BEQ
MOV
RTS

,LOOP ON ERROR?

5%
» YES-<-BRANCH
SRERR (T, oRSERFLG ,MAX. ERRORS OCCURRED?

#SHO1, SSHR
5%

»STOP COMPRRING?
» YES--BRANCH

THIS ROUTINE FILLS A 256 WORD BUFFER WITH R RANDOM
+PATTERN OF WHICH T HE FIRST TWO WORDS ARE THE BRSE
. OF THE PRTTERN

D 11
CZRIAC RPOY/5/6 MECHANICAL AND READ/WRITE TEST
mMACY11 30R(1052)
27-JuL-78
CZRJIRC P11
27-JUL-78 09 18
X33 PROGRAM SUBROUTINES 33%
7124

72125
7126
[4Y4
7128
7129
7130
713
7132
7133
7134
7135
7136
7137
7138
7139
7140
7141
7142
7143
7144
7145
7146
7147
7148
7149
7150
71561
7152
7153
7154
71685
7156
7167
71568
71589
7160
7161
7162
7163
7164
7166
7166

7167
7168
7169
7170
7171
7172
7173
7174
7178
7176
7177
7178
7179

. CALL

Mov

JSR
RETURN

031210
031212
031216
031220
03122
03 130

03123y
031236
031240

031242

010246
012702
000402
004737

013721
013721
005302

MOV
nov
BR

000200

023512
023612
023610

JSR

nov
MoV

OE(
8GT

003370
012602
000200

MoV
RTS

#ADR,
R1
RO. S8RANPAT

09 24

PRGE

.PNDRESS OF

137

StQ 0133

THE BUFFER

$256.
/2 .R2

. SAVE R2
. GENERRATE

PC. JRSRAND
S8 SLONUM (R1)+
SRSHINUM (R1)+
R2
19
(SP)+.R2
RO

. GENERATE R RANDOM NUMBER
+PUT LOW WORD IN BUFFER
+PUT HIGH WORD IN BUFFER
- DONE?
» NO--BRANCH
-RESTORE R2
JEXN

256 HWORDS

+THIS ROUTINE GENERATES RANDOM CYL INDER, TRACK, AND SECTOR
. ADDRESSES AND SAVES THEN IN THE DPB (DTARDPB+10 AND DTRDPB+12)
+NOTE
THIS ROUTINE DESTROYS R1-R3
. CALL
RO. SRRANADR
JSR
RETURN
’

’

023512
023612
023613
023610

RANRDR

001630

19
2
3%

000023

001510

JSR

HovB
HOVB
MOV
TST8

BLY

CMPB
BHIS

Lc
RORB
8R
TST8
BLY
cnPe

8GT
CLC

RORB

BR
CHP
BLE
CLc

ROR
ROC

BNE

MoV

SWAB

RDD
INC

001512

83T
NEG
BR
cHp
BGE

PC, JRSRAND
o# S_ONUM
R1
SR SLONUM+1,
R2
SR SHINUM
R3
R1
29
PRMLMT+22,RIi
39
R1
19
R2
59
#19 ,R2
69
R2
4s

ORFC.R3
79

R3
R3
6%
R1.R3
R3
R2.R3
R3

69
R3
6%
ofLC, RI
89

- GENERATE A ANDOM NUMBER
.FORM SECTOR IN R}

.FORM TRACK IN R2
»FORM CYLINDER IN R3
+ENSURE THE SECTOR IS BETHEEN O AND 21
»CHECK MAXIMUM SECTOR

. ENSURE

THE

TRACK

+ENSURE

THE

CYLINDER

RDORESS

IS BETHEEN O RND

1S BETWEEN FC

AND LC

£ 11
(2RI RPO4/5/6 MECHANICAL AND RERD/WRITE TEST
MACYY1 30A(1052)
27-JUL-78
(2R JAC P11
27-JUL-78 09 18
233 PROGRAM SUBROUTINES 321%
031366
031370
031372
03137y
031400
031402
031404
031406
031410
031414
031420
03142y

000241
006003
000772
023703
003403
005203
000303
000764
110137
110237
010337
000200

001510

CLC
ROR
BR
cne
BLE

004174
004175
004176

PAGE

138

INC
SHAB
BR
nove

R3
79
SfFC.R3
9
R3
R3
¢
R1,980TADPB+10

., SAVE

MoV
RTS

R3. o8DTRDPB+12
RO

, SAVE CYL INDER RODRESS
. RETURN

mnove

R2,980TRDPB+1;

,SAVE

SEQ 013y

SECTOR RDDRESS

TRACK RADDRESS

+THIS ROUTINE
+IF SHR(0?7>=1

1S USED TO INPUT THE "CONTROL SHWITCHESTM
THE PRESENT SETTING WILL BE TYPED AND THE NEW
SETTING IS RERD AND STORED
+NOTE
THIS ROUTINE DESTROYS R3 AND R4
» CALL
.
JSR
PC. o8GETSHR
.
RETURN
, (C SHR)=DESIRED CONTROL SHITCHES

031426
03143y
031436
031442

031464
03146M
031470
03147y
031500
031502
031504
031512
031516

032777
001430
104401
000410

000200

147504

GETSWR

03144y
é,gss

BIT
BEQ
TYPE

B8R

ASCIZ

#SHO?. aSHR
29
. 659

649

.READ C(ONTROL SHITCHES?
» NO--BRANCH
.. TYPE RSCI2Z STRING

.. GET OVER THE RSCI2

<CRXCLF>/SET SHR<0?>=0/

012703
013704
00u03?7
000771
000240
013737
010437
000207

043052

001220
031520

001220
001220

MOV

MOV
JSR
BR
NOP
MOV
MOV

001222

RTS

#MSG CS.R3

o8( SHR.RY
RO. a8 GE TNUM
19

( SHR, SAYCSH
RY, o8C SWR
PC

»"CONTROL

SHITCHES="

,PRESENT CONTROL SWITCH SETTINGS
+,GET THE NEW SHITCH SETTINGS
, COMMA
,PERIOD
»SAVE PREVIOUS VALUE
. DOUBLE PERIOD-SAVE NEW SHWITCH SETTING

.RETURN FROM CALL

-THIS ROUTINE WILL TYPE AN ASCI12 MESSAGE AND THEN
. INPUT AN RSCIZ STRING AND CHRNGE THE STRING TO OCTAL
.1 REQUIRED
,?gTE
THIS ROUTINE DESTROYS R1
CALL

MOV
#ADR. R3
MOV
#NUM, RY
JSR
RO. 9% GE TNUM
RETURN1
RETURN2
RETURN3

7180
7181
7182
7183
7184
7185
7186
7187
7188
7189
7190
7191
7192
7193
7194
7195
7196
7197
7198
7199
7200
7201
7202

09 24

031520
031524

031526
031530
031832

010337
104401
000000
010446
104402

031526

GETNUM
19
29

MOV
TYPE
WORD
MoV
TYPOC

R3. 2%

RY,-(SP)

. ADDRESS OF RSC1Z MESSAGE
- OCTAL NUMBER
’ ' NPUT

TERMINATED WITH R COMMA

WITH A PERIOD

-HITH A DOUBLE PERI0OD
- R4=INPUT NUMBER RND
+R2=R4X3Z2 FOR ALL
. THREE RETURNS
- SRVE

MESSAGE

POINTER

. TYPE THE MESSRGE
+MESSRAGE POINTER GOES HERE
.»SAVE RY FOR TYPEOUT
.. GO TYPE--OCTRL ASCII(ALL

DIGITS)

MACY11 30A(1052)
CZRIAC RPON/5/6 MECHANICAL AND READ/WRITE TEST
27-JUL-78
CZRAC P11
27-JUuL-78 09 18
333 PROGRAM SUBROUTINES 3132

7236
7237

7238
7239
7240
7241
7242
7243
7244
7245
7246

7247
7248
7249
7250
7251
7252
7253

03153y
031540
031542
031544
031550
031552
031554
031556
031560
031562
031564
031566
031566
031572
031574
031576
031600
031602
031604
031606
031610
031612
031614
031616
031620
031622
031624
031630
031632
031634
031636
031640
031642
031644
031646
031650
031652
031654

104401
104411
012601
004037
03152y
031524
031566
031612
031620
031564
005301

0% 3076

004037
031524
031606
031604
031602
005720
005720
010204
0004 14
105711
001343
000411
105711
001406
122721
001335
105711
001333
005720
005720
010402
000302
006202
006202
006202
000200

034230

033770

119

)
69

79
8S

TYPE
ROLIN
"o
JSR
19
19
38
79
8$
119
DEC

9
109

(SP)+,
R
RO, 8(K CHR

l'/ll

’

"DIGIT 0-9

" DECREMENT THE

(RO)+
R2.RY
109

BNE
BR
TST8
BEQ

19
108
(R1)
9s

BNE
TSTB
BNE
TST
TST
MOV
SWAB
ASR
ASR
ASR
RTS

(RO)+

(R1)

L(R1)+

19
(R1)
18
(RO)+
(RO)+
R4, R2
R2
R2
R2
RZ
RO

INPUT POINTER

- CHECK THE NUMBER
. ILLEGAL INPUT
. TERMINATED WITH AR "," OR "(R"
- TERMINRTED WITH R " "
» TERMINRTED WITH A "
.DOUBLE PERIOD
»SINGLE PERI0OD
. COMMA--SAVE INPUT NUMBER
.GO TO EXIT
- TERMINATOR RFTER R COMMA?
- NO--LO00P
»YES--EXIT
. TERMINATOR RFTER R PERIOD?
, YES--EXIT
»NO--DOUBLE PERIOD?
- NO--L0O0P
- YES--TERMINATOR?
» NO--L0OP

.DOUBLE PERI0D

.PERIOD
. COMMA--POSITION THE
+-NUMBER IN CARSE IT
1S THE PRIORITY LEVEL

JEXIT

. THIS ROUTINE IS USED TO CHANGE OR MODIFY
. THE TEST PARAMETERS
IT GIVES THE OPERATOR
.THE CRPABILITY OF SPECIFYING WHICH DRIVES TO TEST.,
,TESTS TO RUN AND HOW MANY TIMES TO
. REPERT ERCH TEST

031656
031660
031664
031670

031706
031706
031710

031712
031716
031720

104412
005037
104401

000406

001232
031672

.. 659
649

104411

012601
004037
031660
031660

GT PRM
GT PR1

033770

SRVREG
(LR
TYPE
BR
ASCIZ

ROLIN
MoV
JSR
GT PRI
GT PRt

SEQ 0135

TST
MOV
BR

1ST8B

139

.READ AN ASCI2Z STRING
, HDORESS OF F IRST CHARACTER
»CHECK ONE CHRRACTER
» ILLEGRL CHARACTER
. CARRIAGE RETURN
’

RO,
s (K NUM

TST

PRGE

JSR
198
69
59
4s

CHMPB

000056

» SLASH

09 24

WHICH

»SAVE RO - RS
+NO DRIVE SELECTED
DRVSEL
.. TYPE RSCIZ STRING
. 659
.. GET OVER THE RSCIZ
649%
<CR>CLF>/DRIVE(S)=/

(SP)+,R1
RO, 9#CK CHR

+RERD TTY
. RDDRESS OF RSC1Z STRING
»CHECK ONE CHRRRCTER
+ ILLEGAL CHARRCTER
» CRARRIAGE RETURN

G 11
MACYY1 30A(1052)
27-JUuL-78
CZRJIAC RPOM/5/6 MECHANICAL ANO RERD/WRITE TEST
C2ZRJAC P11
27-JuL-78 09 18
333 PROGRAM SUBROUTINES 333

7337
7339

7347

031722
031724
031726
031730
031232
031734
031734
031740
0317vy
031746
031750
031752
031754
031756
031764
031766
031770
03177%
032000
032002
032010
032012

005037
000405
156237
104413
000207

032014
032014
032020

104401
000403

032030
032030
032032
032034
032040
032042
032050
032082
032056
032060
032064
032070
03207
032100
03210
032106
032114
032116

032122
032124
032132
03213%
032140
032142
032160
032162
032156
032160
032166

031660
031660
031660
031732
005301
012702
00%03?
031660

031660
031756
032002
032002
156237
105741
001362
005037

104411
012601
122711
001007
122761
001003
106761

001754
006037
006037

GT PR1
GT PRI
GT PR1
19
DEC

000007
03404y

034504

MOV

JSR
GT PR1
GT PR1
39

001232

0012
00123
034504

001232

4$
GT PR2

GTTSTH

032022

649

000056
000056

000001

000123

GTTST2

001234

00012y

001234

000101
140000

00123y

000104
000001

RESREG
RTS

TYPE
BR
RSCi2Z
ROLIN
MOV

CHPB

00123y
001236
001240
001242

036000

CLR
CLR
BR
8158

BNE
CHPB
BNE
TST8

000002

000777

4s
4$
8158
TST8
BNE

39
001236

8tQ
CLR
CLR
CLR
CLR
CHPB
BNE
81S
BR
CHPB
BNE
8IS
BR
(HPB
BNE
81s
BR
CHPB
BNE
8ts
BR

PRGE

140

SEQ 0136

v'/cl

’

”

09 24

]

"DIGIT 0-9

87.R2
,UPPER LINIT OF INPUT
RO, (K DIG
.CHECK THE DIGIT(S)
» ILLEGRL INPUT
. INPUT TO LRARGE
,TERMINATED HITH R ",
" OR "(R"
- TERMINRTED WITH A " "
» TERMINATED HITH R "
"
RTRBIT(RZ).DRVSEL .SET THE DRIVE SELECTED BIT
-(R1)
+HAS THE LINE TERMINATED?
29
+NO-GET THE NEXT DRIVE
o8 TSTNMS
,DESELECT RALL TESTS
TSTNNS+2

GTTST1
»YES--SELECT TEST
ATABIT(RZ), DRVSEL .SET THE SELECTED DRIVE
.RESTORE RO - RS
PC

JEXIT

. 659
649
/TEST=/

.. TYPE ASCI1Z STRING
.. GET OVER THE RSCI2

(SP)+, R1
& L(R1)
19
&' L1(R1)

19
2(R1)
GT PR2
TSTNHS
TSTNNS+2
OPNFLG
OPNFLG+2
(R1).%'S
19
8777, TSTNMS

GTTST3

(R1).%'T

29
#36000, TSTNNS
GTTST3
(R1).8'R

READ AN RSCIZ2 STRING
+POINTER TO R1
. DOUBLE PERIOD?
» NO--BRANCH

»"CR"?
»YES--EXIT
+NO TEST SELECTED
+NO TESTS TO BE OPENED
+ALL SEEK TESTS?
» NO--BRANCH
»YES--SELECT TESTS 0-10
+ALL

TIMING TESTS?

» NO--BRANCH
., YES--SELECT TESTS 12-15
+ALL RDDRESSING TESTS?

39
+NO--BRANCH
#140000. TSTNMS , YES--SELECT TESTS 16 & 17
GTTST3
(R1),%'D
-DATA TEST?
48
+NO--BRANCH
%1, TSTNMS+2
» YES--SELECT TEST 20
GTTST3

BITS

H 11
AND RERD/HRITE TEST
MACY11 30Q(1052)
27-JUuL-78
27-JUL-78 09 18
333 PROGRAM SUBROUTINES 333

RPOM/S/6 MECHANICAL

P11

032170
032174
032176
032204
032206
032212
032214
032216
032220
03222v
032226
032230
032232
03223%
032236
032240
032244
032246
032252
032254
032260
032262
032264
032266
032270
032276
032302

121127

001004
052737
000516

004037
000514
010205
005201
004037

000105
000002

001236

033714

03371y

cnP8
BNE
8IS
BR
JSR
B8R

032440

cne
8GT

8IS
CHPB
BNE

03371y

033714

000022

INC
JSR
B8R
MOV
INC
JSR
BR
INC
RSL
RSL
ASL
R0D
CHp
BGY

cMe

032440

BGE

032440
032440
032440
8%

000037

001424

001234

.0CTAL DIGIT?
» NO--BRANCH
. YES--SAVE IT
+MOVE TO NEXT CHARACTER
.0CTAL DIG!T
- NO--BRANCH
,MOVE TO NEXT CHARRCTER
-SCALE HIGH DIGIT

R1
RS
RS
RS
R6.R2
+COMBINE HIGH & LOKW DIGITS
RZ, 8$TN-1
+VALID TEST NUMBER?
GTTST1
+NO--BRANCH
RZ,99
.SAVE THE TEST NUMBER
RZ,RY
» CONVERT TEST NUMBER INTO AN INDEX
817, Ry
»CLERR UNMANTED BITS
RY
,SHIFT THE BITS
RY
+SHIFT THE BITS
RY
-SHIFT THE BITS
R2
»SELECT TEST
BITS(R2), TSTNMS(RY)
(R1),8'. TEST STRING?
» NO--BRANCH
GTTSTy
R1
- YES--MOVE TO NEXT CHRRACTER
RO, SRCK OCT
.OCTAL DIGIT?
- NO--BRANCH
GTTST1
R2,R5
. YES--SRVE IT
R1
»MOVE TO NEXT CHRRACTER
RO, @8CK OCT
.OCTAL DIGIT?
79
- NO--BRANCH
R1
- YES--MOVE TO NEXT CHRRRCTER
RS
.SCALE HIGH DIGIT
RS
R5
RS, R2
.COMBINE HIGH & LOW DIGIT
R2, R$TN-1
+VALID TEST NUMBER?
»NO--BRANCH
GTTST1
. 1S THE FIRST NUMBER OF THE
9%.R2
+STRING SMALLER THAN THE LRAST?
+ NO--BRANCH
GTTST1
R2,-(SP)
- SARVE ENDING TEST NUMBER
+GET STRARTING TEST NUMBER
9%.R2
(SP)+.
.STORE ENDING TEST NUMBER
99
+SHIFT ENDING TEST NUMBER
»SHIFT TEST NUMBER
. COPY TEST NUMBER INTO R4
.CLEAR LOMER 31TS
+SHIFT THE TEST NUMBER
+SHIFT THE TEST NUMBER
+SHIFT THE TEST NUMBER
RY
+SHIFT THE TEST NUMBER
» SELECT THE TEST
BITS(R2), TSTNMS(RY)

ASL

001234

+EXERCISER TEST?
» NO--BRANCH
. YES--SELECT TEST 21

INC
RSL
RSL
ASL
RADD

RSR

001424
000055

8CK OCT

GTTSTY

1u41

RZ,.R5
R1
RO, o#CK OCT

MOV
MOV
8I1C
RASR
RSR

000017

RO,

PRGE

nov
INC

JSR
BR

000022

(R1),.8'E
5%
82, TSTNIS+2
GTTST3

09 24

MOV
MoV
MOV
ASL
ASL
MOV

BiIC
ASR
ASR
ASR
RASR

8IS

(3]

SeQ 0137

I 11
RPOU/S/E MECHANICRL AND RERD/WRITE TEST
MACY11 30A(1052)
27-JUL-78
Pl
27-JUL-78 09 18
X332 PROGRANM SUBROUTINES %22

032420
03242
032430
032432
032436
032440
03242
03244y
032450
032452
032456
032460
032v6M
032466
032472
032476
032500

032506
032510
032514
032516
032522
03252y
032526
032530
03253
032540
032542
032546
032550
032554
032556
032562
032564
032566
032570
03257y
032600
032602
032606
032610
032614
032616
032620
032622
032626
032632
03264
032640
032642

062702
020237
101761
162702
000402
000000
005201
121127
001441
005737
001005
005737
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
006737
001017

000002
032440
000002
9
GTTST3
GTTSTY

000056

001234

032014
000057

000054

032014

032100
001240

19
001240
29

001242

032014
000056

032014
001240

GTTSTS

001242
032010

032014
001240

GTTSTe

BNE
TST
BNE
JHP
CnPB
BNE
8IS
BR
CMPB
BEQ
JHP

INC
TST8
BEQ
JHP
TST
BNE
TST
BNE
JNP
INC
cnPB
BEQ
TST8
BEQ
JHP
TST
BNE
TST

BNE
JHP

INC
1ST8
BEQ
JHP
TST
BNE

TST
BNE
JHP

001242

000137

8EQ
TST

001236

001424

ADD
cne
8LOS
Sus
BR
HORD
INC
CnPB

032010

»OPEN THE

032646
032650
032652

104412
005027
000000

OPNTST

OPN (T

82,R2
RZ2.9%
8$
82.R2
GTTSTy
0
R1
(R1),
%'
GTTSTS
TSTNNS
19
TSTNS+2
19
GTTST1
(R1), %'/
29
BITS(R2),
39
(R1). %",

OPNFLG+2
OPNTST
GTTST1
R1
(R1).
%'
GTTSTe
(R1)
19
GTTST1
OPNFLG
OPNTST
OPNFLG+2
OPNTST
GT PR2

OPNTST
OPNFLG+2
OPNTST
GT PR2

09 24

PRAGE

142

. INECREMENT THE TEST NUMBER
»SEE IF FINISHED
.BR _IF NOT
»CORRECT TEST NUMBER
- CONT
| NUE
»STORE TEST NUMBER HERE
+HOVE TO NEXT CHARACTER
. "PERI0D"?
; YES--BRANCH
~ANY TEST SELECTED THIS CYCLE"?
.BR IF YES
-ANY TEST SELECTED THIS CYCLE ?
+BR IF YES
» "OPEN"?
+ NO--BRANCH
OPNFLG(RY)
;YES--SET BITS FOR TEST

» "COMMR"?
,BR IF YES
»NO
+MOVE TO NEXT CHARACTER
;"CR"?
.BR IF 'CR'
+NO--GO GET NEXT CHARACTER
. ANY TESTS TO OPEN 7
+BR IF YES
-ANY TESTS TO OPEN ?
-BR IF YES
+NO--START RGARIN

+MOVE

TO NEXT CHRRACTER

. "PERIOD"?
» YES--BRANCH
,CRM?
. YES--BRANCH

. ANY TESTS TO
+BR IF YES
»ANY TESTS TO
.BR IF YES
+NO--GO START
.ngggoTO NEXT

OPEN 7
OPEN ?
TESTING
CHARARCTER

» YES--BRANCH
+NO--GO ASK FOR TEST
»ANY TESTS TO OPEN ?
+BR IF YES
.ANY TESTS TO OPEN °
.BR IF YES
+NO--GO STRRT TESTING

SELECTED TEST FOR CHRNGES

SRVREG
CLR
WORD

(PC)+
0

StQ 0138

»SAVE RO - RS
.START WITH TEST O
» COUNT STORED HERE

TO OPEN

J 11
MACY11 30R(1052)
CZRJIAC RPO4/5/6 MECHANICAL AND READ/WRITE TEST
27-JUL-78
CZRJAC P11
27-JWL-78 09.18
13X PROGRAM SUBROUTINES 33X
7460
7461
7462
7463

032654
032656
032662
032670
032672
032674
032700
03270
032706
032712
032716
032720
032722
032724
032732
03273
032740

000411
005237
022737
002003
104413
000137
013705
006 305
013703
0n 2703
006203
006203
006203
036563
001751
104401
000404

032752
032752

013746

032756
032760
032761

104403
002
000
104401
016500
011046
012702
000405
006216
103403
001404
005722
000773
012022

000771
013716
005004
006216

032652
000022

032652

032014
032652

OPN 2.

032652
000017

001424

001240

032742
.. 659%.
649

032652

001215
001536

001504
19

001504

OPNPRM
19

103403

001772
00572y
000773
LO&764
100086
104401
016437
104401
000000
104401
016446

004737
004737

7515

033112

104401
104411
012601

29
001606

O44042
091636
0% 3050
001506
023222
023452
043076

39
033062
4s

MOV

OPN (T, -(SP)

JSR
JSR

TYPE

ROL IN
HOV

PRAGE

143

OPN 2
OPN. (T
8STN-1,0PN (T
OPN.
2

B8R
INC
cHe
BGE
RESREG
JHP
MOV
ASL
MOV
B1C
RASR
ASR
RSR
BIT
8EQ
TYPE
BR
. RSCIZ

TYPOS
BYTE
BYTE
TYPE
MOV
MOV
MOV
BR
ASR
BCS
BEQ
TST
BR
MOV
BR
MOV
CLR
RSR
8CS
BEQ
TST
BR
TST
8MI
TYPE
MOV
TYPE
HORD
TYPE
MOV

09 24

+SKIP THE INCREMENT
;HOVE TO THE NEXT TEST
. TEST NUMBER TOO BIG?
+NO--OPEN THE NEXT TEST
.RESTORE RO - RS
. YES--60 ASK FOR MORE TESTS
GTTST1
OPN. CT.R5
;SETUP TO USE THE
RS
. TEST NUMBER AS AN INDEX
OPN (T,R3
»GET INDEX
#17.R3
;CLEAR LOWER TEST BITS
R3
+SHIFT TEST NUMBER
R3
+SHIFT TEST NUMBER
R3
+SHIFT TEST NUMBER
BITS(RS), OPNFLG(R3)
- OPEN THIS TEST?
OPN. 1
+NO--HMOVE TO NEXT TEST
. 659
.. TYPE RSCIZ STRING
.. GET OVER THE ASCI2
64
TEST /

2
a
. SCRLF
PRMPT(R5).
RO
#PRM.R2
29
(SP)
28
OPNPRM
(R2)+
19§
(RO)+, (R2)+
19
o#PRM, (SP)

PRMLMHT (RY)
OPNPRT
.MSG SP
PRMMSG(RY
)., 4§

»»SAVE OPN CT FOR TYPEOUT
.. TEST NUMBER
.. G0 TYPE--OCTAL ASCII
. TYPE 2 DIGIT(S)
. SUPPRESS LEADING ZEROS
+TYPE “CR" & "LF"
P ICKUP PRRAMETER POINTER
-SAVE THE VRARIRBLE INDICATOR
,FIRST RDDRESS OfF TRBLE
»CHECK FOR R VARIRBLE
.GO MOVE THIS ONE
» DONE
,BUMP THE POINTER
+MOVE THIS VARIABLE INTO THE
» COMMON RRER
»GET THE VARIRBLE INDICRTOR
» 2ERQO THE [|NOEX
. CHECK FOR A VARIRBLE
.GO GET IT
.OUT OF VARIARBLES
-UPDATE THE INDEX
IS THE MAX
MAGNITUDE NEG?
+YES--THEN IT IS THE PATTERN
. TYPE SPARCES
. TYPE THE NRME OF THIS VRRIRBLE

»NSG. €Q
RPT(RY),-(SP)
PC. 3#9S82D
PC. 98 SSUPRS
» SLASH

. TYPE

(SP)+.R1

+RERD AN RSCiZ STRING

="
.PUT RPT(RY) ON THE STRCK
-CHANGE RPT(RY) TO DECIMAL RSC12
,TY;E.HITHOUT LERDING 2EROS

Sta 0139

CZRJAC RPO4/S5/6 MECHANICAL AND RERD/HRITE TEST
MACY11 30R(1052)
27-JUL-78
27-JUL-78 09 18
CZRJIAC. P11
132 PROGRAM SUBROUTINES 332
7516
7517
7518
7519
7520
7521
7522
7523

033114
033120
033122
033124
033126
033130
033132
03313
033136
033140
033142
033144
033146
033152
033156
033160
033162
033164
033170
033172
033172
033176
033202

033204
033206
033210
033212
03321%
033220

004037
033040
033034
033172
03313y
033142
033170
105711
001340
000735
105711
001002
0001 37
122721
001330
105711
001326
000137
005301
016402
004037
033040
033040
033214
033556
03357y
010264
000705
104401
104401
104401
016446
104402
104401
104411
012601
004037
033222
033020
033316
033020
033274
033314
105711
001531
122721
001346
106711
001533
000743

033770

RO, 98CK CHR

001606
03404y

OPN N2
' L (R1)+

001506

Ou4042
04 3044
043050
001506

OPNPRT

"(R'l?

(R1)

. YES--GO CLOSE THIS TEST
.DOUBLE PERIOD?
»NO--G0O RSK FOR THIS VARIRBLE
YES--IS A "CRTM AFTER THE DOUBLE PERIOD?

OPN X2
R1

. YES--CLOSE ALL TEST
+BACK THE POINTER UP BY ONE

79
8%

+NO--STRY ON THIS VAR IRBLE
- YES--MOVE TO NEXT VARIABLE
,Lg THERE A "CR" RFTER THE PERI0D?

033600

SEQ 0140

.DIGIT 0-9

649

14y

’

033562
000056

PAGE

»CHECK ONE CHARACTER
» ILLEGAL CHARACTER
,gggfllflfii RETURN
’

PRMLMT(RY),
R2
RO, 9%CK DIG

RZ,.RPT(RY)
28
»MSG.
SP
PART
+MSG
,MSG. EQ
RPT(R%),-(SP)

ou4043

- MSG SP+1

033770

(SP)+,
R1
RO, S#CK CHR

+NO--RSK FOR THIS VARIRBLE RGRIN

-UPPER LIMIT OF

INPUT

;CHECK THE DIGIT(S)

; ILLEGAL INPUT
. INPUT TO LARGE
TERMINATED WITH AR ",' OR "(CR"
- TERMINATED WITH R " °
;TERMINATED WITH AR ~
©
;SAVE THIS VARIRSLE
~-MOVE TO NEXT VARIABLE
. TYPE SPRCES
. TYPE "PAT"
. TYPE "="
.-SAVE RPT(R4) FOR TYPEOUT
».GO TYPE--OCTAL ASCII(ALL DIGITS)
. TYPE ONE SPACE
»RERD RSC1Z STRING
+PICKUP POINTER
. CHECK ONE CHARRCTER
» ILLEGRL CHARACTER
,gggRlRGE RETURN
’

’

000056

005301

004037
033222
033332

JSR

09 24

034230

(R1)
OPN N2
$' .(R1)+

OPNPAT

29
39

(RY)
OPN X2
OPNPRT
R1

RO, 88CK NUM

.01GIT 0-9
»"CRTM RAFTER THE PERI0D?
. YES--GO CLOSE THIS TEST
- NO--PERI0OD?
»HO--LOOP
."CR" RFTER R DOUBLE PERIOD?
- YES--GO STRRT TESTING
- NO--LOOP
»BACKUP THE RSCI!| POINTER

. CHECK THE NUMBER

- ILLEGAL INPUT
+ TERMINATED WITH AR

"."

"(R"

CZRJIARC RPO4/5/6 MECHANICAL AND RERD/WRITE TEST
MACY11 30R(1052)
27-JUL-78
2?7-JW-78 09 18
CZRIAC. P11
X3 PROGRAM SUBROUTINES 333
7572

7573
7574
7575
7576

033326
033330
033332
033336
033M0
033n2
0333us
03336
033352
033352
033356

033366
033366
033370
033374
033%00
033%0n

033556
033574
010264
006002

103227
104412
005000
012704
104401
000403

010046
004737
004?737
104401
011446
104402
104411
012601
00%037
033352
033454
033436
033454
033470
03343y
005301

00%03?
033352
033452
033510
033522
010214
005724
005200
022700
003332
000726
105711
001407
122721
001324
105711
001407
000721
010224
004737
104413
000420
010224

004737

104413
000422

001506

00310y

033360

OPNWODS

649

023222
023452
043050

OPN N1
OPN X1
MoV
ROR
BCC
SAVREG
CLR
MOV

RO
#PATO.
RY

TYPE
B8R
RSC1Z

. 659%
64$
/
WO/

MOV

JSR
JSR

TYPE
MOV
TYPOC

ROLIN
MOV
JSR
19

033770

RZ2,RPT(RY)
R2
OPNPRM

PC, a89SB2D
PC. aRSSLPRS
.NSG. EQ

(SP)+,
R1

RO, %CK CHR

034230

RO, a#CK NUM

RZ. (RY)
(RY)+

39
4$

000020
5%
#' L (R1)+
18
(R1)

000056

033534

69
’$

033534

8%
9s

MOV

RESREG
MOV

JSR
RESREG
BR

9
1%
R2, (RY)+
PC. RCLSHDS
OPN N2
RZ, (R4)+
PC. o8CLSWDS
OPN X2

145

SEQ 0141

.. TYPE RSCIZ STRING
.. GET OVER THE RSCiZ

;PUT RO ON THE STACK
.CHANGE RO TO DECIMAL ASCI2Z
,;;:E WITHOUT LERDING ZEROS
.. SAVE (R4) FOR TYPEOUT
»+ GO TYPE--OCTAL ASCII(ALL
»RERD RSC1Z STRING
+PICKUP THE POINTER
- CHECK ONE CHRRACTER
. ILLEGAL CHARACTER
- CARRIAGE RETURN
’ l./"

DIG!ITS)

’
"

PRGE

» TERMINATED WITH R " "
TERMINRTED WITH AR "
"
»SAVE THE INPUT NUMBER
. OPEN PRTTERN 07
+NO--STRRT AT BEGINNING OF PRRAMETER TABLE
- SAVE RO - RS
,START WITH WORD O

109
28

09 24

DIGIT 0-9
. BACKUP

THE ASCI!

POINTER

- CHECK THE NUMBER

. ILLEGAL [INPUT
» TERMINRTED WITH R "." OR "CR"
+ TERMINATED WITH R " "
+TERMINATED WITH R "
"
-SAVE THE INPUT
+-MOVE TO NEXT WORD
» INCREMENT THE COUNT
»COUNT TO LARGE?
» NO--BRANCH
» YES--BRANCH
+"CR" RFTER THE PERIOD?
» YES--GO CLOSE THIS TEST
»NO--PERIOD?
+NO--BRANCH ILLEGAL INPUT STRING
»"CR" RFTER THE "PERIQD-PERIOD"?
. YES--GO START TESTING
- NO--LOOP
»SAVE THE [INPUT
;CLOSE THE DRTA PATTERN
-RESTORE RO - R5
+MOVE TO NEXT TEST
+SAVE THE INPUT

,CLOSE THE DRTR PATTERN
;RESTORE RO - R5
+START TESTING

LR R

CZRJAC RPO4/5/6 MECHANICAL AND RERD/WRITE TEST
MACY11 30RA(1062)
27-JUL-78
CZRJIAC. P11
2?7-JUL-78 09 18
X33 PROGRAM SUBROUTINES 313
7628
7629
7630
7631
7632
7633
763
7635
7636

033534
033540

7637
7638
7639
7640
7681
7682
7643
7644
7645
7646
7647
7618
7619
7660
7651
7652

012701
005200
022700
002402
01212
000772
000207
010264
005726
008737
000137
010264
005726
008737
00572%
020527
002403
104413
0001 37
036503
001 364

003104

000017

001506

033634
032656
001506
033634
000034
032010
00142y

001504
001536
000001

CLSHOS:
19

29
OPN N1
OPN N2.
OPN X1
OPN X2
19
29

39
CLOSE

MOV
HOV
MOV
MOV
MoV

BIT
8EQ
BIT
BEQ

Mov

BIT
BEQ
TST
TST
ASL
BIT

#PRTO.
R1

(R1)+, (R4)+

19
PC
R2.RPT(R4)
(SP)+
PC, CLOSE
OPN.
1
R2.RPT(RY)
(SP)+
PC. CLOSE
(R5)+
R5. 816122
38

GT PR2
BITS(R5).R3
19
29
#PRM, RO
PRMPT(RS)R1
,
(RO)+.R2
(R1)+,R3
$1.Ry
R4.R2
29
RY.R3
39
(RO), (RY)
RY.R3
3s
(R1)+
(RO)+
RY
881710,
Ry
19

PRGE 146

.FIRST RDORESS OF DATR PATTERN
;COUNT THE LAST WORD THAT WAS STORED
;END OF TRBLE
;YES--EXIT
; COPY
. LOOP
: RETURN
;SAVE THIS VAR IABLE
;CLEAN OFF THE STRACK
;CLOSE THIS TEST
;GO OPEN THE NEXT TEST
;SAVE THIS VAR IABLE
;CLERAN OFF THE STACK
;CLOSE THIS TEST
;UPDATE THE INDEX
;. INDEX TO BIG?
s NO--BRANCH
.RESTORE RO - RS
.GO TO EXIT
. 1S THIS TEST OPEN FOR CHANGE?
. YES--60 CLOSE

;NO--MOVE TO NEXT TEST
. SAVE RO - RS
; "FROM" RDDRESS

."T0" RDORESS
,"FROM" INDICATOR
,"TO"TM INDICATOR
LTEST BIT START A "RPT"
,PARANETER TO BE MOVED?
NO--BRANCH

.A PLACE TO0 PUT

IT?

, NO--BRANCH
., YES--MOVE "FROM"
;"TO0" PRARAMETER?

TO "TO"

. NO--BRANCH

., YES--UPDATE THE POINTER
X}
,UPDATE FROM POINTER
;POSITION THE TEST BIT
. DONE?
;NO--BRANCH
BEQ
RESREG
.RESTORE RO - RS
RTS
PC
.RETURN
+THIS ROUTINE IS USED TO CHECK IF AN
+RSCII CHARACTER IS A DIGIT BETHEEN O RAND 7
. CALL
MOV
;RDDRESS OF RSCI| CHARACTER
#RDR. R1
RO. o#CK OCT
+CHECK THE CHRRACTER
JSR
RETURN1
+CHARACTER IS NOT BETWEEN 0-7
» CHARRCTER IS IN RZ RS R
RETURN2
.O0CTRL DIGIT
L

002000

MoV
INC
CHP
BLT
MOV
BR
RTS
MOV
TST
JSR
JMP
MOV
TST
JSR
TST
CHpP
BLT
RESREG
JHP
BIT
BNE
BR
SRVREG

09:24

033714
033720
033722
033726
033730

000060

000067

(K OCT.

CMPB
BLO
CHPB
BHI
MOVB

(R1).%8'0

19
(R1),8%'7
19
(R1),R2

+LESS THAN ZERO?
. YES == BRANCH
. GREATER THAN STVEN?
»YES -- BRRANCH
+GET THE CHARACTER

SEQ 0142

N 11

MACY11 30A(1052)
27-JUL-78
CZRJIAC RPO4/5/6 MECHANICAL AND RERD/WRITE TEST
C2ZRJIAC P11
27-JUL-78 09: 18
233 PROGRAM SUBROUTINES 313

033732
033736
033740

042702
005?720
000200

177770
18.

8i(
TSV
RTS

& C7.R2
(RO)+
RO

0924

PRGE

147
SEQ 0143

;STRIP AWAY THE RSCII
. RADJUST FOR RETURN
;RETURN

+THIS ROUTINE 1S USED TO CHECK RN RSCI| CHARRCTER
+AND DETERMINE IF IT ISR DIGIT BETWEEN O AND 9.
. CALL

MOV

.
,

RETURN1
RETURNZ

(K DEC

CHPB
BLO
CHPB
BHI
Hove

0337%2
033746
033750
033754
033756
033760
033764
033766

121127
103407
121127
101004
111102
042702
005720
000200

000060

000071

SROR. R1

JSR

BIC

000060
19

+THIS ROUTINE

MOV

,
,
.

(K CHR

.
/
,
.

033770

105711
001420
121127
001414
121127

001410
121127
001404

000057
000054
000056

033742

CHARACTER

;NOT BETWEEN O ANO 9
+BETHEEN O AND 9
.LESS THAN ZERO?
. YES -- BRANCH
- GREATER THAN NINE?
. YES -- BRANCH
+GET THE CHARACTER

(RO)+
RO

»RDJUST FOR RETURN
» RETURN

CHECK Ar

STRIP AMAY THE ASCII

ASCII

CHARACTER

8RAOR, R1

- RODRESS OF ASCI1

RETURN
RETURN
RETURN

ADRY
ADRS
RDR6

,COMMA X (R1)=ADR+1
.PERIOD % (R1)=ROR+1
.DIGIT BETHEEN O AND 9
+R2Z = DIGIT X (R1)=RDR+1

TSTB
BEQ
CHPB
8tQ
CHPB
BEQ
cnPe
8EQ
JSR

(R1)
48
(R1). %'/
38
(R1). %',
28
(R1), &'
1§
RO. o#CK DEC

. "CARR IAGE RETURN"?
. YES -- BRANCH
. "SLASH"?
»YES -- BRANCH
. "COMMR"?
. YES -- BRANCH
: "PERI0D"?
; YES -- BRANCH
;"DIGITTM?

TST
TST
TST
TST
TST
INC

(RO)+
(RO)+
(RO)+
(RO)+
(RO)+
R1

.DIGIT BETWEEN 0-9
,PERIOD
. COMMA
- SLRSH
;CARRIAGE RETURN
;MOVE POINTER TO NEXT CHARACTER

RTS

-RETURN

JSR
RETURN
RETURN
RETURN

B8R
1828:
38:
Ys:

;CHECK THE

(R1).%'0
19
(R1). 89
19
(R1),R2

WILL

WHART

;RDORESS OF RSCII

RZ = DIGIT

#°'0.R2

TST
RTS

DETERMINE
. CALL

RO, 98CK DEC

MoV

RO, o#CK CHR
ADR1
RDR2
ADR3

(RO)., RO

CHARACTER

» CHECK CHARACTER
- UNKNOWN CHARACTER
.CRRRIAGE RETURN X (R1)=RDR+1
+SLRASH % (R1)=RDOR+1

+NO -- BRANCH

- UNKNOWN CHRRACTER

+THIS ROUTINE CHECKS AN ASCI! STRING FOR LEGRL
» CHRRACTERS AND FORMS R DECIMAL VALUE BINRRY NUMBER
]

IN R2

8 12

CZRJIAC RPOM/S/6 MECHANICAL AND RERD/WRITE TEST
MACY11 30A(1052 )
27-JUL-78
CZRJIAC P14
27-JUL-78 09 18
332 PROGRAN SUBROUTINES 332
. CALL

.
,
,

MoV
MoV
JSR

,
,

RETURN
RETURN

7744

777

7748
7746

7748

7749
7750
7751
7752
7753
7754
7755
7756
7757
7758
7759
7760
7761
7762

O34OM%
034OM6
034050
034052
034054
034056
03%060
03%w06s
034066
034070
034072
0307w
034076

010446
010346
010246
005002
005003
005004
004037
034214
034214
034214
03421y
03421y
034100

776
7765
7766
7767
7768
7769
7770
7771
7772
7773
7774
777%
7776
7777
7778
7779
7780
7781
7782
7783
7784
77868
7786
7787
7788
7789
7790
7791

039102
034108
03%106
039110
03v112
O03w1is
034120
034122
03%12%
034126
034130
03%132
O3widw
03s136
O0O3vi180
03v182
O03vwisy
034180
034162
0O3wibh
034166
0O3%160
03%162
03%i16M
0Jv166
034170
03172
O3wi178

010346
006303
006303
062603
060203
004037
0321y
03413
0O3u21M
034182
034140
034100
005301
000401
005724
005724
(004037
03421y
034204
0Jw21y4
03421y
034164
034174
005724
106711
001405
000410
126127

7763

7792
7793
7794
7795

034100

034202
03v208
03v206
934210

(K DIG

033770

006303

001004
020316
101001
060400

033770

9
29
39

033770

177776

000054

659

SADOR. R1
8NUM, R2
RO. 8CK DIG

RETURN

RADR1

RETURN

ARDRY

RETURN

ADR2
ADR3

RORS

MOV
MOV
MOV
CLR
CLR
CLR
JSR
8%
8%
8$
8%
8%
19

Ry, -(SP)
R3.-(SP)
R2.-(SP)
R2
R3
RY
RO. 98CK CHR

MOV
ASL
ASL
ADD
ADD
JSR
8s
9
8$
3
29
19
DEC
BR
TST
TST
JSR
g9
69
8
8%
4s
5%
TST
TSTB
8EQ
BR
CMPB

R3.-(SP)
R3
R3
(SP)+,R3
R2.R3
RO, 8CK CHR

AsSL

BNE
CMP
BHI
ADD

SEQ 014y

. "PERIOD" -- R2 = NUMBER
. "PERIOD-PERIOD" -- RZ = NUMBER
. SAVE RY
. SAVE R3
. SAVE THE MAX
,START WITH O

SIZE ON THE

STRC(K

» CHECK ONE CHARACTER
- ILLEGAL CHARACTER
- CARRIRGE RETURN

"DIGIT 0-9

. SAVE 12
4

.8
,(X8)+(22)=%10
-UPDATE THE INPUT NUMBER
+CHECK ONE CHARACTER

. ILLEGAL CHARACTER
RETURN

’
"

.DIGIT 0-9

-BACKUP THE CHRRACTER
- CONT INE
. "PERI0D"
."COMMR" OR "(R"
+CHECK ONE CHRRRCTER
+ ILLEGRL CHRARRCTER
. CARRIAGE RETURN
,

POINTER

'l/!'

’

(RY)+
(R1)
69
8%
-2(R1).
%",
8$
R3. (SP)
78
RY.RO

148

ADORESS OF RSCIZ STRING
MRX. MAGNITUDE OF INPUT NUMBER
;CHECK DIGITS
- ILLEGAL CHARACTER -- R2:=?
» INPUT NUMBER TO LARGE -- R2:=7
,“COMMATM -- RZ = NUMBER

,EggRIRGE

R1
3
(RY)+
(RY)+
RO,
¥ CK CHR

PRGE

LR
Y

7M1
72
7743

09 24

,DIGIT 0-9
. "PERIOD-PERIOD"
,

n(Rn-,

- YES--BRANCH

+HAS CHARRCTER BEFORE THE
+NO--EXIT
. INPUT TO LRRGE?
» YES -- BRANCH
.ADJUST RETURN RDDRESS

DIGIT A COMMAR?

RPO4/S5/6 MECHANICRL ANO PERD/WRITE TEST
MACY1t1 30A(1052)
27-JUL-78
P11
133 PROGRAM SUBROUTINES 233
27-JUL-78 09 18

034212
034214
034216
03%220
03%222
034224
034226

005720
010302
005726
012603
012604
011000
000200

79
:31

TST
Hov
TST
MoV
MoV
MoV

RTS

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

(SP)Y+,
Ry
(RO).RO
RO

09 24

PRGE

- NUMBER TO R2Z

,CLEAN MAX

SIZE OFF OF STACK

~RESTORE R3
+RESTORE RY
,GET RETURN RDORESS
- RETURN

»THIS ROUTINE CHECKS AN RSCIZ STRING FOR LEGAL
-AND FORMS AN OCTAL NUMBER IN R2

#RADR,
R1
RO, 98CK NUM
ROR1
RADR2
ROR3
RDRY

. ADDRESS OF RSCIZ STRING
. GO FORM THE NUMBER
» ILLEGARL CHRRACTER IN THE INPUT STRING
,“COMMR" OR "(CR"--R2=NUMBER
» "PER100"--R2=NUMBER
. "PERIOD-PERIOD"--R2=NUMBER

(K NUM

MOV

INC
RSL
8CS
ASL
8CS
ASL

R3,
P)
R3
RO, 8CK OCT
69
R1
R3
69
R3

. SRVE R3
. START NUMBER AT ZERO
.OCTAL DIGIT?
- NO--BRANCH
,MOVE TO NEXT CHARACTER
,FOR THE OCTAL NUMBER IN R3
+DON'T LET IT GET TO BIG

’

034252
034254
034256
034260

034262

034266
034270
034272
03427y
034276
034302
03430
034306
034310
03%312
034314
034316
034320
034324
034326
034330
0343132
03%33%
034336
0343n0
03u3n2
03434y
034346

010346
005003
004037

000440
005201
006303
103435
006303
103433
006303
103431
060203
004037
000401
000764
010302
005003
004037
034342
034332
034342
034332
034316
034342
005723
121127
001002

005201

005/23
005723
105711
001001
060300
012603
011000
000200

033714

JSR
RETURN
RETURN
RE TURN
RETURN

CLR
JSR
B8R

8CS

ADD

033714
29
033770

JSR
BR
BR

MoV
CLR
JSR
69

R2.R3

RO. 8CK OCT

RO, dRCK CHR

TST
CMPB
BNE
INC
TST
TST
TST8
BNE
RADD
HOV
]

RTS

1S THIS AN OCTAL DIGIT?
+NO--FIND OUT WHAT IT IS
+YES--MAKE IT PART OF THE NUMBER
- SAVE THE OCTAL NUMBER
,START WITH ZERO INDEX
»CHECK ONE CHARACTER
. ILLEGAL CHARACTER
. CARRIAGE RETURN
,

69
59
39

000056

CHARRACTERS

Mov

034230
034232
03423y
034240
034242
0342wy
034246
034250

149

l'/"

,
”"

(R3)+
(R1).
&'

(R3H)+
(R3)+

(R1)

69
R3.RO
(SP)+,R3
(RO).RO
RO

”

.DIGIT 0-9
. "PERIOD"
. "PERIOD-PERIOD"?
+ NO--BRANCH
»YES--RDVANCE THE POINTER
. "PERIOD-PERIOD"

. " COMMRTM

"chl,

+ NO--BRANCH
. YES--SAVE THE OCTAL NUMBER

-RESTORE R3
+PICKUP EXIT RADDRESS
. RETURN

SEQ 0145

D 12
MACY11 30RA(1052)
27-JUL-7?8
CZRIAC RPOU/5/6 MECHANICAL AND RERD/WRITE TEST
CZRJIRC P11
27-JUL-78 09 18
X33 PROGRAM SUBROUTINES 212
7850
7851
7852
7853
7854
7855
7856
78%7
7858
7859
7860

2220000000000 0000000

SBTTL

09 24

PAGE

150
SEQ 0146

000000ttt ttsitetstacitotsteettotetett]

SINGLE/DUARL PORT RH11/RPO4/5/6 DRIVER

(REV 1

,COPYRIGHT (C) 1976
DIGITARL EQUIPMENT CORP
- MAYNARD, MA 01754
AUTHOR(S): JIM LACEY/CHUCK HESS
IR

2220200200000 0000000

0000000000300 0000 0000000000000 000000008%

STORARGE FOR RPDS1, RPER1,
-RPERRS
= RPDSI

RPERZ.

AND RPER3 ON AN ERROR

"2"

-RPERRS+2 = RPER}
RPERRS+4 = RPER2
+RPERRS+6 = RPER3

034350
034356

000000
000000

000000

RPERRS

- TABLE

WORD

0.0.0.0

DRIVE ACTIVE

.DRVACT=0
+DRVACT>0
+DRVACTCO

034360
034361
034362
034363
034364

034365
034366
034367

000
0G0

ORVACT

000
000
000

000
.TRBLE

034370
034371
034372
034373
03437y
034375

BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE

ORVSTA

034376
034377

. TABLE

DRIVE

O
O
O
O
O
O
O
O

O
0
O
O
O
O
O
O

(DRVACT=8 BYTES)

IS IDLE
IS ACTIVE WITH A COMMAND
IS ACTIVE WITH AN ERROR RECOVERY OPERATION

.DRIVE
.DRIVE
-DRIVE
+DRIVE
.ORIVE
+DRIVE
.DRIVE
.DRIVE

STATUS

.DRVYSTR=0
»DRVSTR>Q
;DRVYSTACO

BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE

INDICATORS

IF DRIVE
IF DRIVE
IF DRIVE

INDICATORS

|F DRIVE
IF DRIVE
IF DRIVE

O
1
2
3
4
5
b
7

(DRVSTR=8 BYTES)

IS OFFLINE OR NONEXSITt
IS ONL INE
IS UNSAFE

.DRIVE O
.DRIVE 1
+DRIVE 2
+DRIVE 3
.ORIVE 4
.DRIVE 5
.DRIVE &
.DRIVE ?7

OF DRIVE TYPES (DRVTYP=8 BYTES)
+DRVTYP=0 (F DRIVE IS NONEXISTENT
-DRVTYP=1 IF DRIVE IS RPOM
.DRVTYP=2 IF DRIVE IS RPQO5

DRVTYP=4 IF DRIVE IS RPO6
,DRVTYP=-1 IF NOT RPO4/5/6

(DRVSTR=0.

ALSO)

MACY11 30A(1052)
27-JUL-78
09 24
PRGE
CZRJIAC RPO4/S/6 MECHANICAL AND RERD/MRITE TEST
C(ZRJIAC P11
27-JUL-78 09 18
SINGLE/DUAL PORT RH11/RPO4/5/6 DRIVER (REV 1 0)

034400
C34401
03w402
03403
034404
034405
034406
03u&07?

ORVTYP

.DRIVE O
.DRIVE 1

8YTE

-ORIVE

5§

+ORIVE

O
0
O

8Yyte

. TABLE

034420
03u421
034422
034423
03442y
03u425
034426
034427

OPRQS

.DRIVE 6

OF DUAL PORT
+DPINT=0 IF
+OPINTCO IF

OP INT

BYTE
BYTE
8YTE
BYTE
8YTE
BYTE
BYTE
BYTE
OF

INITIALIZRTION
INITIALIZATION
INITIARLIZATION

O
O
O
O
O
O
O
O

BYTE
BYTE
BYTE
.BYTE
BYTE
8YTE
BYTE
BYTE

O
O
O
D
O
O
O
O

INDICARTORS
IS NOT ACTIVE ON THE DRIVE
IS IN PROGRESS

.ORIVE
~DRIVE
+DRIVE
,DRIVE
+ORIVE
.DRIVE
.DRIVE
.DRIVE

PENDING DUAL

.DPRQAS=0
.DPRQAS<O

IF
IF

O
1
2
3
4
5
6
7

PORT REQUESTS

THAT R DUAL PORT REQUEST
THRT A DUARL PORT REQUEST

000000

TRNSWT

WORD

IS NOT PENDING FOR THAT DRIVE
IS PENDING FOR THRT DRIVE

.DRIVE O
+DRIVE 1
.ORIVE 2
.ORIVE 3
+DRIVE Y4
+DRIVE 5
.DRIVE 6
.DRIVE 7

- TRANSFER WARIT FLAG (TRNSWT=1 WORD)
+THIS IS A ONE WORD QUEUE
IT WILL
.""DPB" OF THE 1/0 OPERRTION

034430

SEQ 0147

+DRIVE 2
-ORIVE 3
.DRIVE 4

BYTE

034410
034411
03w412
034413
O3u41y
03415
034416
034417

7939

O
O

BYTE
BYTE
BYTE

. TABLE

793?

BYTE
BYTE

151

CONTRIN THE

RDDRESS OF

, SERRCH HAIT KEYS (SRCHWT=1 WORD)
.THIS 1S A ONE WORD QUEUE THAT WILL CONTRIN R KEY FOR EARCH OF
. THE DRIVES THAT ARE PERFORMING A SEARCH COMMAND FOR THE 1/0
»REQUEST THAT IS AT THE TOP OF THE IR REQUEST QUEUE
+ERCH DRIVE IS RSSIGNED ONE BIT, STRRTING RT BITOO FOR DRIVE O

034432

000000

SRCHHT

WORD

+RPO4/5/6 DRIVER RCTIVE FLRG (RCTDRV=1 BYTE)
+ACTDRV=0 IF DRIVER IS INACTIVE
+RCTDRV>O IF DRIVER IS RCTIVE

034434
7961

000

ACTDRY
,SOFTWARE

BYTE

TIMER ROUTINE ACTIVE FLAG (RCTSTR=1

BYTE)

F 12
MACY11 30A(1052)
27-JUL-78
09 24
CZRJIRC RPO4/5/6 MECHANICAL AND READ/MRITE TEST
CZRJAC P11
27-JUL-78 09 18
SINGLE/DURL PORT RH11/RPOM/5/6 DRIVER (REV
7962
7963
7964
7965
7966
7967
7968
7969

+ACTSTR=0
~ACTSTR>0

034435

000

ACTSTR

+UNLORD FLRG

7975
7976
7977
7978
7979
7980
7981
7982

ULDFLG

BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTe

TIMER ROUTINE
TIMER ROUTINE

LACNT

»SAVE

034456

000090

SAVEFG

BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
8YTe

SEQ 0148

IS INACTIVE
IS RCTIVE

IF NO UNLORD COMMAND

IF
IF

UNLORD COMMAND
UNLORD COMMAND

O
O
O
O
O
O
O
O

IN PROGRESS
IN WRIT QuUELE

,ORIVE O
.DRIVE 1
ORIVE 2
LORIVE 3
DRIVE 4
,ORIVE 5
.DRIVE b
.DRIVE ?7

.LOOK RAHERD COUNT (LACNT=8 BYTES)
+LACNT WILL INDICATE THE NUMBER OF

O34ku46
O3uuy?
034450
034451
034452
034453
O3uusy
034455

152

(ULDFLG=8 BYTES)

-ULDFLG>0
-ULDFLGCO

034436
034437
O3w4s40
O3uuuy
034442
(R{T DR
03444y
03uuus

SOFTWARE
SOFTWARE

PRGE
0)

+ULDFLG=0

7970

7971
7972
7973
7974

BYTE

IF
IF

O
O
O
O
O
O
O
O

LOOK RHEADS PERFORMED

.DRIVE O
.DRIVE 1
,ORIVE 2
+DRIVE 3
+DRIVE 4
+DRIVE §
.DRIVE 6
.DRIVE ?

REGISTERS FLAG

(SAVEFG =1

WORD)

-SAVEFG <0 IF SAVE THE RH11/RPOM/5/6 REGISTERS WHEN THE
-OPERATION IS COMPLETED AS PER (DPB+14)
.SAVEFG=0 IF SAVE THE RH11/RPO4/5/6 REGISTERS. RS PER
. (DPB+14), RFTER AN ERROR
WORD

. SEEK FLAG (SEEKFG=1 WORD)
. SEEKFG=0 IF WHEN THE DISK RDDRESS ISN'T IN THE WINDOW
+,FOR R DATR TRANSFER START A SERARCH COMMAND

. SEEKFGCO

»DISREGARD

034460

000000

SEEKFG

WORD

IF DATR TRANSFER WILL DO
THE

WINDOW

» TIMEOUT TRBLE (TIMER=8 WORDS)
»,THIS TRBLE CONTAINS THE

034462

034464
034466
034470
034472
03447y

1227277
1727277
17277277
1227277
122777
177777

TIMER

WORD
HORD
HORD
HORD
WORD
WORD

IMPLIED SEEKS,

-1
-1
-1
-1
-t
-1

.DRIVE O
»DRIVE 1
,DRIVE 2
+DRIVE 3
,ORIVE 4
,DRIVE 5

TIME

ALLOWED FOR

AN OPERATION

I (ZRJIAC RPOMN/S/6 MECHANICAL AND READ/WRITE TEST
CZRJAC P11
8018
8019
8020
8021
8022
8023
8024
8025
8026
8027
8028
8029
8030
8031
8032
8033
803y
8035
8036
8037
8038
8039
8040
8041
8042
8043
8044
8045
8046
8047

8048
8049
8050
8051
8052
8053
8054
8055
8056

8057
8058
8059
8060
8061
8062
8063
8064
8065
8066
8067
8068
8069
8070
8071
8072
8073

27-JUL-78 09 18

03w4?6
034500

G 12

MACYY1 30A(1052)
27-JuL-78
09 24
SINGLE/DURL PORT RH11/RPOM/5/6 DRIVER (REV

1777727
1772777

WORD
WORD

-1
-1

PRGE
0)

153

SEQ 0149

.DRIVE 6
.ORIVE 7

-ORATA TRANSFER UNDERWARY

INDICATOR

(DTUKW=1

WORD)

DTUNCO IF NO DRATR TRANSFER UNDERWRY
OTUK=4+N (WHERE N=0 TO 7) IMPLIES DRTR TRANSFER UNDERWRY ON DRIVE N

034802

1772777

DTUW

WORD

-1

-ATTENTION BITS TRABLE (RTABIT=8 BYTES)
. THIS TRABLE CONTRINS THE CORRESPONDING BIT
+ATTENTION BIT

034504
034505

001
002

034507
034510
034511
034512
034513

010
0z0
o40
100
200

034506

RTRBIT

OO0y

BYTE
BYTE

1
2

.DRIVE O
.DRIVE 1

BYTE
BYTE
BYTE
8YTe
BYTE

10
20
40
100
200

+DRIVE 3
+DRIVE V4
.ORIVE 5
+DRIVE 6
.DRIVE 7

BYTE

+RPO4/5/6 TO RH11
-CALLING IT FRATAL

03u514

000003

MCPLHX

WORD

TO ERCH DRIVES

.DRIVE 2

"MASSBUS CONTROL
(MCPEMX=1 WORD)

BUS PARITY ERRORS"

(MCPE)

ALLOWED BEFORE

- STORAGE FOR RPADR (THE FIRST ADDRESS (776700) OF THE RH11/RPOM4/5/6).
+RPVEC (THE VECTOR ADDRESS (254)). AND RPVEC+Z (THE BR LEVEL (5))

034516
034520

176700
000254

000240

RPRDR
RPVEC

WORD
HORD

»HAXIMUM NUMBER

176700
254,5%x32
OF

LOOK RHERDS ALLOWED

034524

000004

MXLACT
WORD
&
+MAXIMUNM DELTR DELAY

034526

001000

HXOLTRA

034530

000200

MNOLTR.
WORD
2364
+MAXIMUM SERRCH FOR 1/0 WINDOW

034532

000005

HXWUNOW-

WORD

+DEFINITIONS OF

000000
000002
000004
000006
000010
000012

000014
000016

B %64

+MINIMUM DELTR DELAY

RPCS1=0
RPHC=2
RPBR=Y
RPDA=6
RPCS2=10
RPDS1=12

RPER1=14
RPRS=16

(MXLACT=1

IS 8 SECTORS

(MXDLTAR=1

WORD)

IS 2 SECTORS

(MNDLTA=1

WORD)

1S § SECTORS

(MXWNDKW=1

WORD)

5
THE RH11/RPO4/5/6 RDORESS

INDEXES

»CONTROL AND STATUS RECISTER #1 (DRIVE REG
00)
- WORD COUNT REGISTER (NOT R DRIVE REG)
+UNIBUS RODRESS REGISTER (NOT R DRIVE REQG)
.DESIRED SECTOR/TRACK RDORESS REGISTER (DRIVE REG
- CONTROL RND STATUS REGISTER #2 (NOT A DRIVE REG)
+DRIVE STRTUS REGISTER (DRIVE REG O1)

~ERROR REG!ISTER #1 (DRIVE REG
02)
+ATTENTION SUMMARY PSEUDO REGISTER

(DRIVE REG

OwW)

05)

H 12

(ZRJIAC RPOM/5/6 MECHANICAL AND RERD/HRITE TEST
MACY11 30R(1052)
27-JUL-78 09 24
PRGE
CZRJAC P11
27-JUL-78 09 18
SINGLE/DUAL PORT RH11/RPOM/S5/6 DRIVER (REV 1.0)

807y
8075
8076
8077
8078

000020
000022
000024
000026
000030
000032
000034
000036
000040
000042
000044
000046

8079
8080
8081
8082
8083
8084
ggz

RPLR=20
RPDB=22
RPMR=2Y4
RPDT=26
RPSN=30

-RH11/RPO4/5/6 DRIVER INITIALIZRTION CODE
+THIS ROUTINE WILL DETERMINE WHICH RPO4/5/6 DRIVES ARE
+AVRILABLE FOR TESTING AND SET THE DRVSTA INDICRTOR
.TO THE PROPER STATE FOR ERCH DRIVE
+NOTE
THIS ROUTINE CALLS DRVINT
.
» CALL
,
,
JSR
PC.RPINIT
,
RETURN
/

gggg

8100

034534

8102

0345M2

8101

8103
8104

013746

034550
0O3w654

004737
012701

034560
03w564
034566
034570

8110
8111
8112
8113
8114
8115
8116
8117
8118

O0O3wS76
034602
03w60M
034606
034612
O03%616
034622
034626
03632

8120

03wes2

8119
8121
8122

8123
8124
8126
8126
8127

8128
8129

104412

034536

8105
8106
8107
8108

8109

-LOOK RHERD REGISTER (DRIVE REG. 07)
~ORTA BUFFER REGISTER (NOT R DRIVE REG )
+MAINTRINRBILITY REGISTER (DRIVE REG. 03)
+DRIVE TYPE REGISTER (DRIVE REG. 06)
.SERIAL NUMBER REGISTER (DRIVE REG. 10)
,OFFSET REGISTER (DRIVE REG. 11)
;DESIRED CYLINOER RODORESS REG!ISTER (DRIVE REG
- CURRENT CYL INDER RDORESS REGISTER (DRIVE REG
-ERROR REGISTER #2 (DRIVE REG. 14)
-ERROR REGISTER #3 (DRIVE REG. 15)
+ECC POSITION REGISTER (DRIVE REG
16)
;ECC PRTTERN REGISTER (DRIVE REG
17)

RPOF=32
RPCA=34
RPCC=36
RPER2=40
RPER3=42
RPECI=4Y
RPEC2=46

8087
8088
8089
8090
8091
8092
8093
8094
8095
8096
8097

154

034672

012737

000240

012702
005021
020102
101775

034460

012702

012721
020102
101774
005037
005037
005037
005037
013703
012723

034636

013713

O03weNé
03v664

012764
005001

0J46b6
034662
034664
034666
0346?72
03w674
034700

177776

013704

004037
000401
000402
105061
005201
042701
001366

042520
034350

+NOTE

THE

RPINIT

SRVREG

177776

177777

'L’

CLOCK MUST BE STARTED

HOV

oRPS, - (SP)

JSR
MOV
MOV
CLR
CHP
8LOS
MOV
MOV
CMP

PC. CLRQLE
SRPERRS,R1

MOV

034502

'P'

»SAVE RO - RS

+SAVE

THE PRESENT PROCESSOR STATUS

#<5232 >, 9RPS

, CHANLE THE PRIORITY TO 5

#SEEKFG.R2
(R1)+
R1,R2
19

»LAST ADORESS TO BE CLEARED
; CLEAR
-ARE WE DONE?
+BRANCH IF NO
+INITIALIZE
- DONE?
.LOOP IF NO
.SET ALL DR'VES TO OFFL INE

R0TUK, R2

.CLEAR ALL REQUEST QUEUES
.FIRST RODRESS TO BE CLERRED

. LRAST ADDRESS

034370
034372

BLOS
CLR
CLR

037400

MOV

#-1, (R1)+
R1,R2
28
DRVSTA
DRVSTR+2
DRVSTA+4
DRVSTR+6
RPVEC.R3
#ISR, (RD)+

MOV

RPADR, R4

+FIRST RODORESS OF RH11/RPOM

RO. DRV INT
4s
5%
DRVSTA(RY)
R1

»INIT THE DRIVE
. 'DVA' NOT SET OR PRRITY ERROR
- NORMAL RETURN
+SET DRIVE STATUS TO OFFL INE
»GO TO NEXT DRIVE

034374
034376
034520

CLR
CLR
MOV

034522

034516

000040

MOV
000010

034746

034370

4$
5%

177770

MOV
CLR

JSR
B8R
BR

CLRB
INC
BIC
BNE

RPVEC+2, (R3)

»SETUP THE RH11/RPO4/5/6 VECTOR

#B 1705, RPCS2(RY)
,MASSBUS INIT
R1
»START WITH DRIVE O

fC7.R1
39

»MASK QUT UNUSED BITS
.BR |F MORE DRIVES TO GO

StQ 0150

12)
13)

112
E%Sjgg :??H/S/S MECHANICAL AND RERD/WRITE TEST
MACY11 30A(1052)
27-JUL-78
09 24
PAGE
27-JW.-78 09 18
SINGLE/DUAL PORT RH11/RPOM/5/6 DRIVER (REV 1.0)

8130
8131
8132
8133
8134
8135
8136
8137
8138

8139
8140

8141
8142
8143
8144
8145

034702
034706
034212
034716
034720
034724
034730
034732
034734
034736
034742
03474y

8185

105761
001405
004?737
105761
001375
005301
100366
012637
104413
000207

000007
177776
034410

042154
034410

177776

+DRIVE

8146
8147
8148
8149
8150
8151
8152
8153
8154
8155
8156
8157
8158
8159
8160
g161
8162
8163
g16M
8165
8166
8167
8168
8169
8170
8171
8172
8173
8174
8176
8176
8177
8178
8179
8180

8181
8182
8183
818y

012701
005037

010546
105061
105061

035106
035114

105061
010164
112764
032764
001403
004737
000520
105061
032764
001514
008C3?
000026
035300
012505
112761
Q22705
001431
022706
001426
112761
022705
001420
022705
001415
112761
022705

034370
034400
034436
000010
000111
010000

000000

034400

8s
PC,SET IE
OP INT(R1)
79
R1
69
(SP)+, akPS

IF IT IS
ISSUED AND FMT22

;1S SET TO R 1"
THEN MOL. DPR. DRY, AND VV ARE CHECKED TO
» INSURE THEY ARE ALL ON R "1". AND DEPENDING ON THEIR STRTE,
-DRVSTA IS SET TO THE PROPER CONDITION.

DRVINT

MOV

CLRB

Mov
Move
BIT

[¢EQ
19

SEQ 0151

START HITH DRIVE ?7
.CLEAR THE PROCESSOR STRTUS
+HWAITING FOR DRIVE TO SHITCH PORTS 7
.BR _NOT WRITING
+SET INTERRUPT
DRIVE SWITCHED PORTS ?
.BR IF NOT
;GO TO THE NEXT DRIVE
;CHECK NEXT DRIVE
»RESTORE THE PROCESSOR STATUS
-RESTORE RO - RS
.BYE-BYE

INITILIZATION ROUT INE
+THIS ROUTINE DETERMINES IF R DRIVE EXIST AND
AN RPO4/5/6.
IF IT 1S, R "RERD-IN PRESET" IS

MOV
#DRVNUM. R1
MOV
RPADR. RY
JSR
RO, DRV INT
RE TURN1
RETURN2

000900
000010

024021

000004
020022

CLRB

024020

000002
020021

TST8
BNE
DEC
BPL
MOV
RESREG
RTS

BEQ
JSR

CLRB

O41464

000001
020020

7.1
o#PS
DP INT(R1)

. CALL
,
,
,
.
,

042154
034370
004000

nov
CLR
TST8

155

R5,-(SP)

-DRIVE NUMBER TO R1
;UNIBUS RDDRESS OF RH11/RPON/5/6
.CALLED BY A JSR
+ERROR OCCURRED (PARITY)
- NORMAL RETURN

- SAVE

DRVSTAR(R1)

.STRART DRIVE STATUS AS OFFL INE

ULDOFLG(R1)

;CLERR THE UNLORD FLAG

DRVTYP (R1)

+CLEAR

THE DRIVE TYPE

INOICATOR

R1,RPCS2(RY)
»SELECT A DRIVE
#111,RPCS1(RY)
,DO R DRIVE CLERR COMMAND
#B1T12,RPCSZ2(RY) , NONEXISTENT DRIVE?

(& SEIZE

+ NO---BRANCH

JSK

L, 5ET

CLRB
BIT
BEQ
hjggT

DRVSTA(R1)
. SET DRIVE STRTUS TO OFFLINE
#BIT11,.RPCSI1(RY)
,SEE IF DRIVE RVAILABLE
79
.BR IF DRIVE NOT RVARILRABLE
RO, RD RP
»RERD THEe»DRIVE TYPE REG

B8R

.GO SET "IETM WITHOUT R "TRE"

.LERVE THIS ROUTINE

8s
MOV
HovB

(SP)+,R5
#1,DRVTYP(R1)

.ERROR RETURN RDDRESS
.PUT DRIVE TYPE IN RS
,SET RPOM INDICRTOR

8EQ
CMP
BEQ
Hove
CHP
8tQ
CMP
BEQ
HOVB
CHP

29
#24020. R5
29
R2,.DRVTYP(R1)
#20021.R5
29
#24021.R5
2%
#4,DRVTYP(R1)
#20022.R5

.BRANCH IF YES
1S IT A DUAL PORT RPO4?
.BR _IF YES
. SET RPOS5 INDICATOR
+SINGLE PORT RPOS ?
.BR IF YES
-DUAL PORT RPOS ?
;BR _IF YES
,SET RPO6 INDICATOR
+SINGLE PORT RPO6 ?

CMP

#2002C. RS

(RP(S1)

1S IT R SINGLE PORT RPO4?

DRIVE)

CZRJIRC RPO4/S/6 MECHANICAL AND READ/WRITE TEST
MACY11 30R(1052)
27-JUL-78
09 24
CZRJIRC P11
27-JWL-78 09 18
SINGLE/DUAL PORT RH11/RPO4/5/6 DRIVER (REV

8186
8187
8188
8189
8190
8191
8192
8193
819
8195
8196
8197
8198
8199
8200
8201
8202
8203
8208
8205
8206
8207
8208
8209
8210
8211
8212

035120
035122
035126
035130
035136
035140
035144
035150
035152
035154
035160
03516eM4
035166
035170
035174
035176
035200
035202
035208
035212
035216
035220
035222
03522¢
035226
03523«
035236

8214
8215
8216
8217
8218
8219
8220
8221
8222
8223
322%‘05

035244
035246
035254
035256
035260
035262
035270
035272
035276
035300
035302

8213

035240

001407
022705
001404
112761
000446
012746
004037
000000
035300
012746
004037
000032
035300
004037
000012
035300
012605
100015
116164
004037
000014
035300
006126
100004
112761
000407

005105
O0M2705
001003
112761
005720
000410

006301
012761
006201
105161
005720
012605
000200

024022
177777

034400

000121
04164y

010000
041644
O41yey

034504
041464

177777

000016

034370

167077
000001

034370

003720

034462

69
79

034410
8¢

BEQ
cHe
BEQ
HMOvB
BR
MOV
JSR
RPCS1
8%
MOV
JSR
RPOF
8%
JSR
RPDS1
8%
MOV
BPL
HOVB
JSR
RPER1
8%
ROL
BPL
Hove
BR

(oM
BiIC

ENE
HMovB
TST
BR

ASL
MoV
ASR
COMB
TST
Hov
RTS

PAGE
0)

;BR IF YES
-DUAL PORT RPO6 ?
.BR _IF YES
. SET INDICATOR TO 'OTHER'
JEXIT
DO R "READ-IN PRESET"

881712, -(SP)
RO, WRT RP

. SET FMT22-=1

RO.RD RP

»RERD RPDS1

(SP)+.R5
-AND SAVE IT IN RS
4s
-BRANCH IF ATA=0
RTABIT(R1),RPAS(RY) , CLERR ATTENTION BIT
RO, RD RP
.FIND OUT WHY RTAR=1
(SP)+
4s
#-1,DRVSTA(R1)
69
RS

+ 1S IT UNSAFE?
.BR IF NOT
,SET UNSAFE INDICATOR
JEXIT

. CHECK MOL. OPR.
& ((BIT12'81TO8'BITO7!BIT06>.
RS

8228
8229
8230
8231

. CALL
.
p
.
/
,

gg;

8236

8237
8238
8239
8240
8241

035304

035310
035316
035324
035326
035330

013746

013737
112737
104412
011002
005062

177776

Gl4522
000001
000016

177776
034434

RPOM

RO, S¥RPOH

RETURN1
RETURNZ

MOV

MOV
HOVB
SAVREG
HOV
CLR

DRY,

RND VV

69
BRANCH IF MOL, DPR, DRY. OR VV
#1,DRVSTR(R1)
., SET DRIVE STATUS TO ONL INE
(RO)+
»STEP OVER THE ERROR RETURN
8s
JEXIT
R1
- CHANGE INDEX TO RDDRESS WORDS
#2000 , TIMER(R1)
,START 2 SEC TIMER
R1
- RESTORE R1
DPINT(RY)
(RO)+
(LP)+,R5
.RESTORE RS
RC
CEXIT

+REQUEST PRE-PROCESSOR-HANDLES SUBSYSTEM REQUEST

8232
8233

SEQ 0152

29
#24022, RS
29
#-1.DRVTYP(R1)
69
#121,-(SP)
RO. WRT RP

ggzzg

JSR
PNTARDR

156

IS CLERAR

.CALL THE RPO4/5/6 DR I|VER

-RDORESS OF POINTER OF DRIVES PRARAMETER BLOCK

»RETURN HERE
+RETURN HERE

IF QUEUE IS FULL
|F REQUEST IS IN QUEUE OR THERE

+ 1S AN ERROR CONDITION

o#PS, - (SP)

RPVEC+2, 9#PS
#1.ACTORV
(RO).R2
16(R2)

»SRVE THE CALLING STATUS

+OON'T RLLOW ANY RPO4/5/6 INTERRUPTS
+SET “ACTIVE DRIVER" FLRG
+SAVE RO - RS
+PICKUP THE DRIVE PRRAMETER BLOCK POINTER
+CLEAR THE STRATUS/ERROR INDICRTOR

K 12
MACY11 30R(1052)
27-JUL-72
09 24
PRGE
CZRJIRC RPOM/5/6 MECHANICRL AND RERD/MRITE TEST
CZRJIRC P11
27-JUL-78 09. 18
SINGLE/DURL PORT RH11/RPOM/5/6 DRIVER (REV 1.0)

8242
8243
824y
8245
8246
82v?
8248
8249
8250
8251
8252
8253

03533

111201

035336
03532
0ISJv6
035350
035354
032356
Cic3l62
0G3530%
035370
035372
035376
035N00
035408
035406
035412
035416
035420
035426
035430
035436
035442
035448
035460
0354582
035460
036462
035466
035470
035478
035476
036602
035508
035610

013704
105761
003014
105761
001036
105761
001042
ULVOS017
OO00M 3y
106761
O0034sS
105761
001031
010164
004037
000460
122762
001003
112761
105761
001043
004737
000440
012762
00043y
004737
000431
004037
000431
032718
001023
004737
000M20

038616
035620
035626
036632
035638y
035542
035648
036662
036664
036556
035560
035662

002v12
012762
105761
001007
012762
000403
012762
104413
005720
000401
104413
005720

035570
035574

012637
000200

036612

035564

105761

105037

nove

034516
034370
034436
034410

034746
034370
034420

000010

0Ou2616

000103

000002

177777
034360

034436

28.

035576
120000

000016

036706

us.

O0M2616

3 3

000100
0OM2154

034370

(31

140000
034400

000016

100002

000016

110000

000016

03443y

8¢

99
109

177776

157

(R2).R1

,PICKUP THE DRIVE NUMBER

TST8B

DRVSTA(R1)

,SEE IF DRIVE OFFLINE OR UNSRAFE

CLRB

RACTORV

.CLERR "RCTIVE DRIVER" FLRG

MOV
TST8
8GT
TST8
BNE
1ST8
BNE
JSR
BR
TST8
BLE
TST8B
BNE
MOV
JSR
BR
CnPB
BNE
MOVB
TSTB
BNE
JSR
BR
MoV
BR
JSR
BR
JSR
BR
BIT
BNE
JSR
BR

BLT
MOV
TST8
BNE
MOV
BR
MOV
RESREG
TST
BR
RESREG
TST
MOV
RTS

RPADR., RY
. UNIBUS RODRESS OF RP(SH
DRVSTR(R1)
;CHECK DRIVES STATUS
198
;BRANCH IF ONL INE
ULDFLG(R1)
;UNLORD COMMAND IN QUEUE?
k{9
;BRANCH IF YES
DP INT(R1)
,TRYING TO INIT THE DRIVE
5%
;BR IF YES
RO. DRV INT
,GO INIT. THE DyVIVE
4s
,ERROR RETURN
DRVSTA(R1)
;1S DRIVE STATUS CNLINE?
69
,BR IF NOT
DPRQS(R1)
,OUTSTANDING PORT REJUEST FOR THE DRIVE ?
5%
.BR IF YES
R1.RPCS2(RY)
,SELECT THE DRIVE
RO. DRVQUE
,PUT THIS REQUEST IN QUEUE
9¢
,QUEUE IS FUILL
$103. 2(R2)
1S THIS REQ FOR AN UNLORD?
29
.BR If NO
#-1,ULDFLG(R1)
,SET THE "UNLORD IN QUEUE" FLRG
DRVACT(RY)
. 1S THIS DRIVE RCTIVE?
8%
;BR IF YES
PC.OPT
,CALL THE OPTIMIZER
8%
#BITIS'BIT13,16(R2) ,SET THE "UNLOAD IN QUEUE" ERROR FLRG
8%
JEXIT
PC.CI7
, G0 HANDLE THE PARITY ERROR
8%
RO. DRVQLE
,PUT REQUEST IN QUEUE
9s
.QUEUE IS FULL
#81706. (RY)
1S "IE' SET ALRERDY 7
8%
L,BR IF IT IS
PC.SET IE
;SET INTERRUPT
8%
,RETURN, REQUEST IN QUEULE

79
;BR IF UNSAFE
#BITIS!BITIY, 16(R2)
,SET OFFLINE ERROR INDICRTOR
DRVTYP (R1)
.SEE IF OFFLINE OR NONEXISTENT
8s
.BR IF OFFLINE
#81T15'81T01. 16(R2)
,REPORT DRIVE NONEXISTENT
8$
,GO TO EXIT
#BIT15'BIT12,16(R2)
,DRIVE 1S UNSAFE
.RESTORE RO - RS
(RO)+
,SETUP FOR NORMAL RETURN
109
LFINISH UP, THEN EXIT
,RESTORE RO - RS
(RO)+
. CORRECT THE RETURN RDDRESS
(SP)+, @#PS
RO

;RETURN "PS" TO USER LEVEL
,RETURN TO CALLER

,OPTIMIZER-CALLED FOR R PARTITULAR DRIVE
;CALL
;
;

MOV
JSR

SDRVNUM. R1
PC.OPT

,DRIVE NUMBER TO R1
;SETUP R COMMAND

StQ 0153

L 12
CZRIRC RPO4/5/6 MECHANICAL AND RERD/WRITE TEST
MACY11 30A(1052)
27-JUL-7?8
0924
PRAGE
CZRIRC P11
27-JUL-78 09 18
SINGLE/DURL PORT RH11/RPO4/5/6 DRIVER (REV 1.0)
035576
035600
035604
035612
035616

035620
035622
035630
035632

104412
013746
146137
004737
005702
001505
03276M
001407
Q32764
001003
004037
000470
105761
003014
0047?37
012762
105761

OoPT

177776
034504
042672

034432

004000

000000

000100

000012

81CB

034746

034370

109

042714
140000
034370

000016

110000

000016

000111
ou164Y

SAVREG

HOV

JSR
TST
8tQ
BIT
8EQ
BIT
BNE
JSR
BR
TST8
8GT
JSR
MOV
TST8
BPL
MOV
BR

000150

000002

036272
034502

037242
036056

036164

172777

034420

023420

034462

036706
000100

042154
177776

PC. GETREG
;GET "DPB" POINTER OF REQUEST
R2
;1S THERE R REQUEST IN QUEULE?
79
; NO--BRANCH TO EXIT
#BIT11,RPCSI(RY)
IS DVAR STILL SET ?
109
;BR_IF NOT
#B176.RPOS1(RY)
;IS VYV SET ?
109
;BR IF IT IS
RO, DRV INT
;SEE IF DRIVE STILL ONLINE ?
69
;PARITY OR 'DVR' NOT SET
DRVSTA(R1)
;1S DRIVE ONLINE?
19
; YES--BRANCH
PC.POPQE
- NO--REMOVE REQUEST FROM QUEUE
#8ITIS/BITIN, 16(R2)
.SET OFFLINE STRTUS/ERROR
DRVSTA(R1)
. 1S DRIVE UNSRFE ?
8%
,BR TO EXIT IF NOT

5%
#150, 2(R2)
29
PC.ClY
8%
OTUW

TST
BMI
JSR
BR

SEEKFG
39
RO. LR
8%

#BI1T11, (RY)

-DRIVE RVRAILABLE ?

. YES--GO START A SEARCH

BR
;ER

4s
SE,CIl

. GO START R SERRCH
START R DRTA TRANSFER

JSR

PC.CI3

-START R SERRCH

HOVB
MOV

#-1,DPRQS(R1)
R1,R3

;SET PORT REQUEST INDICATOR
+SET UP TO RDORESS WORDS

ASL
MOV

’9

JEXIT

#81T06. (RY)

+SEE

BNE
JSR

8%
PC.SET

s%gflifi

8s.

MOV

.60 TO THE EXIT

R3
- CONVERT TO WORD INDEX
#10000 .TIMER(R3)
.START 10 SEC TIMER

PC.CI?7

8IT

.BR IF NOT
. 1S THE REQUEST FOR 1/0?
; YES--BRANCH
+CALL THE COMMAND INITIATOR
;BRANCH TO EXIT
-DATA TRANSFER UNDERWAY?

.DO IMPLIED SEEKS?
» YES---BRANCH
+NO--DO LOOK AMHERD
+RETURN HERE ON R PRRITY ERROR

JSR

. COMMAND

STATUS

;CLERR "SERARCH WAIT" KEY

BEQ
CMPB
BLT
JSR
BR
TST

B8R

. SRVE PROC.

ATRBIT(R1), SRCHUT

MOV
JSR
RP(S1
69

B8GE

034460

(SP)+, 9#PS

INITIATOR

StQ 0154

;SAVE RO - RS

#BIT15'BIT12,16(R2)
.SET UNSRFE STATUS/ERROR
8$
-BRANCH TO EXIT
#111,-(SP)
;LORD COMMAND ONTO THE STRCK
RO, WRT RP
;LORD THE REGISTER
+REGISTER INCREMENT
-ERROR RETURN RDORESS

BIT

004000

o#PS, - (SP)

158

+PROCESS THE PRRITY ERROR
IF

'IE’

RLREADY SET

+BR IF SET
+SET "IE" WITHOUT R "TRE"

»RESTORE PROC
+RESTORE RO -

STATUS

INDICRTOR

INDICATOR

—

04271y
034430

0% 1644

oY 164y
000002
Oui64y

034502
036650
034516

€3

000010
000012
O% 1644
000010
034532
000026
000001

034516
000010

Cly

JSR
RP(CS1
1?7
81SB
B8R

MOV

PC.POPQLE
R2. TRNSWT
R2.R3
RPRDOR.
RY
R1,RPCS2(RY)

#4.R3
YA
L]

(R3)+, (RY)+
(R3)+, (RY)+
(R3)+, -(SP)
RO. WRT RP

(R3)+,-(SP)
RO, WRT RP

159

SEQ 0155

E NUMBER
eSS OF DPB
E(ILCIJ. R ClIY

T
HHHXDH

S
N

JSR
RPOAR
iz
MOV
JSR
RPCR
c1z
MOV
JSR
RP(S1
a7z
MoV
JHP
MOV
MOV
MOV
JSR
RPCA
1
Hnove
sus
8GE
ADD
MoV
Hnove
JSR
RPDA
MOV

o3uu32

SDRVNUN,
R1
80PB.R2
PC.CI17

JSR

0001 31
o4 1644

034504

JSR

MOV
MOV
MOV
MOV
ROD
RDOD
MoV
MOV
MOV

034516
000010
000004
000002

000011
Ov164y

MoV
Hov

) CALL
LN
R T
T

8354
8355
83%6
8357
8358
8359
8360
8361
8362
8363

n12
CZRJAC RPO4/5/6 MECHANICAL ANO READ/WRITE TEST
MACY11 30R(1052)
27-JUL-78 09 24
PRGE
CZRJAC. P11
27-JUL-78 09 18
SINGLE/DUAL PORT RH11/RPO4/S/6 DRIVER (REV 1 0)

DR TA TRANSFER
SEARCH REQUESTED BY DATA XFER
NOT DRTR TRANSFER

-REMOVE REQUESY FROM "DRIVES WRIT" QUEUE
;PUT REQ
IN TRANSFER WRIT QUEUE
;OPB RDORESS TO R3
;RPCS1 RDORESS

- SELECT DRIVE

-DESIRED WORD COUNT
; RPUC RDORESS
;LOAD WORD COUNT
:LORD BUFFER RDODRESS
;LORD SECTOR AND TRACK
;CALL THE LORD(WRITE) ROUTINE
; INDEX OF REGISTER TO LORD
-ERROR RETURN RDORESS
;LORD CYL INDER RODRESS

2(R2),-(SP)
RO. HRT RP

.LORD “COMMAND+GO".

R1,DTUN
Ci5
RPADR.
RY

+SET "DATR TRANSFER UNDERMWAY"

R1,RPCS2(RY)
12(R2),-(SP)
RO. WRT RP

"R178R16".

AND "PSEL"

-RPCS1 RDDRESS
+SELECT DRIVE
+DESIRED CYLINDER RDDRESS

10(R2).R3
MXKWNOW.,
R3
19
422 ,R3
R3,-(SP)

+PICKUP SECTOR RDORESS
.BACKUP BY MAX
SERARCH FOR

11(R2).,1(SP)
RO, WRT. RP

. THE DESIRED TRACK
.LORD DESIRED TRACK & SECTOR

#131,-(SP)
RO. WRT RP

»START R SERRCH

1/0 WINDOW

. COMBINE THE RDJUSTED SECTOR WITH

RATABIT(R1), SRCHNT
»SET "SERRCH WRIT"
c15
RPADR,
RY
;RPCS1 RDORESS
R1.RPCS2(RY)
. SELECT DRIVE

KEY

CZRJIAC RPON/5/6 MECHRANICAL RND RERD/WRITE TEST
(2RI

TM10

w11
Svi12

S¥13

Swiv
$v1S
TM16

8417
TM18
TMM19

20
8421

P11

036302

27-Ju-78 09 18

000002

nove

016246

000010

MOV

000803
122703

000105

016296
004037

000012
Ouile4y

000115

122703
001007

036320
03632
036326

004037
000006
036706

036330
0363132
036336

03eM0
0368

8422
8423
8424
8425
TM26
27
428
TM29
30
31
8432
33
ey
S35
8436
N3?
Su38
39
S0
S%e1

036808
036806
036810
036M12
036416
036820
03682%
036426
036432
036838

00003v
036706
000546
122703
001013
004037
000032
036706
116216
008037
000032
036706
000530
122703
001525
122703
001522
122703
001016
112761

983
SN%
486
S
w47
sueg
TM49

036446
036454
036466
03642
036468
036466
036470

112761
01036
004037
000000
036706
000207
122703

460
461
62
NE3
;68
N6

036350
036352
03635%
03635
036362
036368
036370
036372
03637
036400

001007

036442

105061

03647
036476
036602
036608
036606
036618

001014
004037
000032
036706
116266
008037

6?7

036622

03670¢

%69
460
461
462

036526
036532
03663

nE6

468

8463
gued
8465

036620

036624

036640

036546
036552

000032

000436

000131

Oui6uy

Ouiyey
000001
Ou164Y4

000107

000117
000103
000001

034360

000001

034436

034370

000143

5%.

O41ueY

000001

000141

69:

000006

116237

000010

036556
8%

09 24

PRGE 160

(REV 1.0)

10(R2),-(SP)

,LOAD DESIRED TRACK & SECTOR

B8R
CMPB

29
#106.R3

. GO LORD CYL INDER
1S IT A SEEK COMMAND

MCV
JSR

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

-LORD DESIRED CYLINDER

JSR
RPDA
1?7

RO, WRT RP

BNE

RPCA
c1?
BR
CnPB
BNE
JSR
RPOF
c1?
HOVB
JSR

RPOF
c1?
8R
CMPB
BEQ
(MPB
BEQ
cnPB
BNE
MOVB

Hove
MOV
JSR
RP(S1
17
RTS
CHPB

BNE
JSR
RPOF
Q?
Hov8
JSR
c1?

000011
Ouiyey

27-JUL-78

;PICKUP THE REQUESTED COMMAND

#131.R3
19

RPOF

122703
001023
016203

116205
004037

N 12

2(R2).R3

cnee
BNE

CLRB

D164y

000001
Ou164M

30A(1052)

SINGLE/DUAL PORT RH11/RPOM/5/6 DRIVER

116203

036306
036312

036318

MACY11

B8R

Cie
#115,R3
4s
RO.RD RP

+BRANCH IF NO

1S IT AN "OFFSET" COMMAND?
.BR 1F NO
~-MERGE THE OFFSET VALUE INTO RPOF
.BUT DON'T CHANGE THE UPPER

1(R2), (SP)
RO. HRT RP

+BYTE WHEN LORDING THE
+REGISTER (RPOF)

Clé
#107.R3
Cle
#117.R3
Clé
#103.R3
3)
#1,DRVACT(R1)

»GO START THE COMMAND
1S IT A "RECALIBRATE" COMMAND?
.BRANCH IF YES
1S IT A RETURN TO CENTER?
-BRANCH IF YES
1S 1T AN "UNLORD" COMMAND?
.BRANCH IF NO
. SET THE DRIVE RCTIVE {NDICRTOR

#1.ULDFLG(R1)
R3,-(SP)
RO, WRT RP

,SET "UNLORD IN PROGRESS" FLRG
»START THE "UNLORD" COMMAND

PC
#143,R3
69
RO. RD RP

+RETURN TO USER
1S IT A "SET FORMAT" COMMAND?
BRANCH IF NO
.RERD THE OFFSET REGISTER

1(R2), 1(SP)
RO. HRT RP

- COMBINE "FMT22","ECI", AND "HCI"
-LORD "FMT22", "ECITM, RANDO/GR "HCI"

DRVSTA(R1)

129

CMPB
BNE
MOV

#141,R3
108
6(R2),R3

MOVB

10(R2). 9%

HOVB
JSR

1S 1T A SEARCH COMMAND?
+BRANCH IF NO

11(R2),R5
RO.RD RP

~PUT DRIVE STRTUS TO OFFLINE

1S IT R "GET REGISTER" COMMAND?
+BRANCH |F NO
+POINTS TO 1ST RODRESS OF WHERE
+TO PUT THE REGISTER(S)

+INIT.

THE INDEX FOR THE FIRST REG

; INDEX OF LRST REG TO MOVE
.RERD RPOM/5/6 REGISTER

stQ mss]

8 13
RPON/5/6 MECHANICAL AND RERD/WRITE TEST
MACY11 30R(1052)
27-JuL-78 09 24
PAGE
P11
27-JU-78 09 18
SINGLE/DUAL PORT RH11/RPOM/5/6 DRIVER (REV 1.G)
9

RPCS1
54
MoV
CHP

036556
036556

000145

109
119

000016

042036

000001

034360

#1,.DRVACT(R1)
PC
R3.-(SP)
RO, WRT RP

1
19

104000
042036

000016

000111
041644

MOV

cize

042576
034436
034360
034502

010000

000010

OTM\ va

034502

034430
034502

JSR

MOV

JSR
RPCSH
18
JSR

CLRB
CLRB

034430
1727277

034360

TST
BEQ

{HP
BNE
CLR
MOV
RTS
SAVREG

BIT
BNE
CLR
CLR
TST8
BEQ
HOV

CHP

;LRAST REG. BEEN RERD?
.GET OUT IF YES
, INCRERSE THE INDEX BY 2
.LOOP--MORE TO REARD
1S 1T R "SELECT DRIVETM COMMAND?
;BRANCH IF YES
.LORD THE

COMMAND

.REMOVE REG

FROM QUEUE

.RETURN TO USER

z}OOO » TIMER(R1)

000010

,GET THE CONTENTS OfF RH11/RPOM/5/6 REG

034462

010000

TO REROD

,SET THE "DONE" BIT
- SAVE THE RH11/RPO4/5/6 REGISTERS?
+BRANCH IF NO

P(C. SVRH11

Cle

StQ 0157

#B81707.16(R2)
SAVEFG
139

001750

041644

013702
020137

(SP)+, (R3)+

9%.R5
129
42.99
8s
#145,R3
129

PC. POPQUE

129

000200
034456

. INDEX OF REG.

R3,-(SP)
RO, WRT RP

(SN~)

042714

o4 1644

—

000002

000000
036706
012623
023705
00141y
062737
000764
122703
001405
010346
004037
000000
036706
008737
052762
005737

161

-YES--GO SAVE THE REGISTERS
+SET A ONE

SECOND TIMER

,SET THE DR!VE R(TIVE
RETURN TO THE USER
.LORD THE COMMAND

15
#BI1T12,RPCSZ(RY)
,DRIVE NON-EXISTENT ?
18
B8R IF YES
R2
-ANYTHING IN QUEUE
C178
.BR 1F NOT
#B1T15'8IT11, 16(R2)
»SET "PARITY" ERROR INDICATOR
PC. SVRH11
. GO SAVE THE RH11/RPO4/5/6 REGISTERS
#111,-(SP)
.00 R "DRIVE CLERR"
RO, WRT RP

PC.EMPTYQ

ULOFLG(R1)
ORVACT(R1)
R1,DTUN
19
TRNSHT

#-1,0TUW
PC

+EMPTY

THE

-SAVE

RO -

-CLERR THE UNLORD IN QUEUE FLRG
.DRIVE IS IDLE
.IF THIS DRIVE HAD AN 1/0 REQUEST
. IN PROGRESS CLERR ALL OF THE FLRGS

#BIT12,RPCS2(RY)
, IS 'NED'
19
+BR IF YES

R1
R3
DRVACT (R1)

5%
TRNSKT, R2
R1,DTUN

QUEUE

SET 7

+DRIVE RCTIVE?
+BRANCH IF NO
+GET THE "TRANSFER WAIT" QUEUE
,DID THIS DRIVE HRVE RN 170 IN PROGRESS?

MACY11 30A(1052)
27-JUL-78
09 24
PAGE
CZRJAC RPO4/5/6 MECHANICAL AND READ/MRITE TEST
CZRJIAC P11
27-JUL-78 09 18
SINGLE/DUAL PORT RH11/RPOM/5/6 DRIVER (REV 1 0)

001005
012737
005037
105061
0327eM
001021
005201
062703
0% 2701
001316
01273?
005037
004737
012764
000406
008?737
105061
105061
004?737
104413
000207

042672

010000

000010

100002

000016

102000
042036
177777
034360
034502

000016

034u62

127777
034430
034436
010000

034502
000010

HOV

JSR
Hov

(LRB
CHP
BNE

CLR
CLRB

CLRB
JSR

034502
000010

042576
034370
034400
042154

TST

BEQ
BiT
8tQ

MOV

000002
177770

17277277
034430
042520
000040

BEQ
JSR

MoV

BIT
BNE
INC
RDD
BIC
BNE
MOV
CLR
JSR
HOV
BR
JSR
CLRB

RESREG
RTS

29
-BRANCH IF YES
PC. GETREQ
.GET THE DPB POINTER
R2
+QUEUE ENTRY FOR DRIVE ?
4s
.BR IF NOT
8BIT12,RPCSZ2(RY)
. 'NED' SET ?
39
.BR IF NOT
88ITI5'BITO1, 16(RZ)
,SET 'ODRIVE NON-EXISTENT' INDICATOR
4
. CONT INUE
#8IT15'81T10. 16(R2) ,SET “NON-CLEARRBLE PRAR!TY" ERROR INDICRTOR
PC, SVRH11
. SAVE RH11/RP0O4%4/5/6 REGISTERS
#-1, TIMER(R3)
,STOP THE TIMER
DRVACT(R1)
-SET "DRIVE RCTIVE" TO IDLE
R1.0TUW
;1S THIS DRIVE SETUP FOR R TRANSFER
5%
-8R _IF NOT
#-1.0TUM
+RESET THE INDICATOR
TRNSHT
-CLERR THE TRANSFER QUEUE
ULDFLG(R1)
. CLERR UNLORD FLAG
#8IT12,RPCS2(RY)
, "NED' SET ?
69
.BR IF YES
R1
+MOVE TO THE NEXT DRIVE
#2.R3
& C7.R1
19
-BRANCH IF MORE DRIVES
#-1,DTUN
»NO DRATA TRANSFERS UNDERWRY
TRNSHT
+CLEAR THE 'TRANSFER WRIT' QUEUE
PC. CLRQLE
.CLEAR ALL OF THE REQUEST QUEUES
#B1T05, RPCS2(RY) , DO A MASSBUS INIT
7%
- CONT
I NUE
PC.EMPTYQ
.CLERR THE DRIVE'S QUEUE
DRVSTR(R1)
.SET DRIVE TO OFFL INE
DRVTYP (R1)
,CLEAR THE DRIVE TYPE INDICATOR
PC,SET IE
+SET "IE" WITHOUT “TRE"
»RESTORE RO - RS
PC
- RETURN

. LOOK RHERD ROUTINE

) CALL
N

)

’

037052
037054
037062
037064
037072
037074
037102
037106
037114
037120
03712%
037126
037134
037140
037144
037152
037154
037156
037162
037166
037170
037176
037202
037206
037214
037216
037222
037226
037232
037236
037240

001402
004737
005702
001415
03276M
001404
012762
000405
012762
004?737
012763
105061
020137

03702
037044
037050

162

013704
010164
004037
000036
037372

034516
000010
O41464

022662

000012

001037
105261
126137
003026

034446
034446

MOV
MOV

JSR
RETURN1
RETURN2

RETURN3
MOV
HOV

JSR
RPCC
4s

034524

#DRVNUN, R1
#DPB.R2
RO, LA

RPRDR, RY4

R1.RPCSZ(RY)
RO, RD RP

- DRIVE NUMBER
+POINT TO DPB
G0 CHECK THE WINDOW
-ERROR RETURN
.START A SERRCH
-START R DRTA TRANSFER

.GET RPCS1'S ADORESS

+SELECT DRIVE
-READ CURRENT CYL INDER
+ERROR RETURN RDDRESS
+ 1S CURRENT CYL INDER=DESIRED
- CYLINDER?
JEXIT IF NO
» INCREMENT THE LOOK RHERD COUNT

cHp

(SP)+,12(R2)

BNE
INCB
CMPB

33
LACNT(R1)
LACNT(R1)., MXLACT , EXCEED MAX?
28
+BRANCH IF YES

8GT

StQ 0158

013

RPOM/5/6 MECHANICAL AND READ/WRITE TEST
MACY11 30R(1052)
27-JuL-78 09 24
PAGE
.M
2?7-JuL-78 09 18
SINGLE/DUAL PORT RH11/RPO4/5/6 DRIVER (REV 1.0)

037304
037310
037312
037314
037316

03732
037330
037332
03733%
037336
037:0
0374
037350
037352
037356
037360
037364
037366
037370
037372
07376

116203
000303
006203
006203
012737
004037
000020
037372
162603
002002
062703
023703
002406
023703
002003
105061
005720
005720
000402
004?737
000200

000010

000340
O RLTL

nove
SHAB
ASR
ASR
MOV
JSR
RPLA
4s
SuB

177776

BGE

002600
034526

034530

ORELTTCY

39
036706

RDOD
CHP

BLY
CHP
8GE
CLRB
TST

TST
BR
JSR
RTS

» INTERRUPT

037400
037406
037410
037414
037420
037422

037426
037430
03743y
037436
037442

11273?
104412

013704
013701
002403
004?737
000402
004737
104413
105037
000002

000001

03443y

ISR

034516
034502

037604
03443y

MOVB
SAVREG
MOV
MOV

- TRANSFER

037444
037450
037466
037460
037966
037870
037% 7y

037600
037506
037612
0378616
037%20
037622
037624
03

105061
012737

006301
012761
006201
013702
005037
062762

010164
00%037
000000
036706

006126
100413
006737
100002
004737
004737

034360
1727777

034502

127277

034462

034430
034430
000200
000010
ou 1464

000016

034456
042036
035576

(SP)+,R3
19
822 364 >.R3
MXOLTA,
R3
38
MNDLTA,
R3
39
LACNT(RY1)
(RO)+
(RO)+
5%
PC.CI?7
RO

SERVICE

BLTY
JSR
BR
JSR
RESREG
CLRB
RTI

03744y

10(R2).R3
R3
R3
R3
#340. 3PS
RO, RD RP

DONE

CLRB
MOV
ASL
MOV
ASR
Hov
CLR
81S
MOV
JSR
RPCS1
17
ROL
8MI
TST
8PL
JSR
JSR

163

SEQ 0159

.GET DESIRED SECTOR ADDRESS AND
+MULT
BY 64--RLIGN WITH
.LOOK RHERD REGISTER
+PRIORITY LEVEL '?7"
.RERD LOOK AHERD REGISTER
. CALCULATE

THE

DELTA

-MAKE THE DELTR POSITIVE
.CHECK THE DELTAR TO SEE
IF 1T IS HITHIN THE
» WINDOW---IF YES, ZERO
. THE LOOK RHERD COUNT
+AND TRKE THE 170 EXIT
-ADJUST THE RETURN RODRESS
JEXIT
.PROCESS THE ERROR
- RETURN

ROUTINE

&1, RCTORY
RPADR.
RY
R1
OTUW.

ACTORY

+SET "ACTIVE DRIVER" FLAG
. SAVE RO - RS
. ADDRESS OF RHS(S1
-GET "DATA TRANSFER UNDERWAY" IND1CRTOR
.BRANCH IF NO DATR TRANSFER UNDERKWRY
. CALL TRANSFER DONE
JEXIT
-CALL SPECIAL CONDITIONS
.RESTORE RO - RS
.CLERR "RCTIVE DRIVER" FLRG
. RETURN

ROUTINE

DRVACT(R1)
R1

.SET DRIVE ACTIVE INDICATOR TO
+NO DRTR TRANSFERS UNDERKAY

IDLE

:-1,TIHER(R1)

. CANCEL

TRNSHT,
R2
IRNSWT
481707. 16(R2)
R1,RPCS2(RY)
RO.RD RP

.GET "DPB" RODDRESS FROM THE
- TRANSFER KWRIT QUEUE--CLERR QUEUE

(SP)+

3
SAVEFG
19§
PC. SVRH11
PC,OPT

TIMEOUT

- SET DONE

»SELECT THE DRIVE
. TRANSFER ERROR(TRE=1)"

.BR IF YES
»SAVE THE RH11/RPOM/S/6 REGISTERS?
.BRANCH IF NO
»YES--SAVE THE REGISTERS
~CALL OPTIMIZER

£ 13
MACY11 30AR(1052)
CZRIRC RPO4/5/6 MECHANICAL AND READ/WRITE TEST
27-JUL-78
09 24
PRGE
CZRJIAC .1
27-Jn.-78 09 18
SINGLE/DUAL PORT RH11/RPOM/5/6 DRIVER (REV 1 0)
037544

000M17?7
012714

000414
052762
004737
008?37
01271y
012714
000400

000113

100100
042576
042036
040111
000113

29
000016

MoV
HOV

»SPECIAL

116403
001014
004037
000000
037006
106126
100405
004037
104001
004737
000207
005046
110316
012703
005001
030316
001005
005201

106303
001373
005726
000207
106761
001402
000137
106761
001402
000137
106761

oooc1e

o4 1464

042756

042154

19
29

000001
SC3
SCY

034410

040576
034420

040576
034370

28.

106761
003u16

032737
001002
000137
013705
000502
105761

SC
.CHECK OTHER DRIVES
+RELEASE THE DRIVE
$113, (RW)
,CHECK FOR OTHER DRIVES
SC
8B8IT15'BITO6. 16(R2) ,SET DATA ERROR FLAG
PC.EMPTYQ
LEMPTY THE "DRIVE'S WAIT" QUEUE
PC. SURH11
,SAVE THE RH11/RPOM/5/6 REGISTERS
#40111, (RY)
. ISSUE R "DRIVE CLERR"
$113, (RY)
- 1SSUE R RELEASE TO THE DRIVE
SC
. CHECK FOR OTHER DRIVES

CONDITION ROUTINE

Hnove
BNE
JSR
RPCSt
18
ROLB
BMI

JSR
ERROR
JSR
RTS
CLR
Hove
MOV
CLR
BIT
BNE
INC
RSLB
BNE
TST
RTS
T1ST8
8EQ

RPAS(RY).R3

.RERD "RPRS"
-BRANCH IF ANY 'RTA' BITS SET
»RERD CONTROL AND STATUS REGISTER

(SP)+
18
$O,ES SRV

1S "IET=1?
»YES, NO DRIVES TO CHECK
. SAVE THE RDORESS IN 'SESCAPE’
+REPORT AN ILLEGAL INTERRUPT
+SET INTERRUPT ENRBLE
» RETURN
.PROCESS ALL DRIVES THRT HRVE
AN "ATAR"=1

29
RO.RD RP

PC.SET IE
PC
-(SP)
R3. (SP)
#1.R3
R1
R3., (SP)
SC5
P
R3
SC3
(SP)+
PC
DP INT(R1)
19
SC13
DPRQS(R1)

0N2672
042036
040526

JHP
1ST8
BEQ
JHP
TST8
BGT
TST8
BLE
JSR
JSR
JSR

PC, GETREQ
PC, SVRH11
PC.SC12

034370

TST8

D§VSTR(R1)

034436

004737
004737

BR
nov
BR
BIS
JSR
JSR

040000

034350

040436
034352

034360

164

BLE
BIT
BNE
JHP
MOV
B8R
TST8

29
SC13
DRVSTA(R1)
5%
ULDFLG(R1)
5%

#B1T14, RPERRS
39
SC11
RPERRS+2
R5
SCeA
DRVACT (R1)

.ATA=1"?
» YES--BRANCH
.MOVE TO THE NEXT

DRIVE

+BRANCH IF MORE TO CHECK?
,CLEAN OFF THE STRCK
+RETURN TO USER
+INITIALIZING THE DRIVE ?
.BR IF NOT
-PROCESS THE DRIVE
+PORT REQUEST OUTSTANDING 7
+BR IF NOT
+START THE OUTSTRANDING COMMAND
+CHECK THE DRIVE STATUS
+BRANCH IF ONL INE
+UNLORD IN PROGRESS?
-BRANCH IF NOT
+GET DPB POINTER
;SAVE THE RH11/RPO4/5/6 REGISTERS
;SAVE RPDS1, RPER1, RPERZ. RND RPER3
+ALSO DG R DRIVE INIT (DRVINT)
.010 DRIVE COME ONLINE?
+NO---BRANCH
. WAS THERE AN ERROR?
.BR IF ERROR
+NO ERROR
»YES -~ PICKUP RPERt' AND
» GO PROCESS THE ERR
+ORIVE ARCTIVE WITH C.MMAND OR ERROR RECOVERY ?

SEQ 0160

F 13
MACY11 30A(1052)
27-JuL-78
09 24
PAGE
CZRJIAC RPOY/5/6 MECHANICAL AND RERD/WRITE TEST
CZRJIAC P11
27-Ju.-78 09 18
SINGLE/DUAL PORT RH11/RPOM/S/6 DRIVER (REV 1.0)
8690
8691
8692

040002
OM000%8

001033
004737

080010
O%001%
040016
040022
080024
040032
040038
ON00M0
040044
O400M6
080050
040052
040056
040060

105761
001321
105761
100412
032737
001013
012746
004037
000000
OMOM06
011605
004037
104002
000677

040062
040066
080070
040072
ON007%
040102
040108
080110
00118
Ov0120
040122
Ov012¢
040126
040130
040132
040136
ON0180

004037
104005
000673
006301
012761
006201
004737
010164
004037
000012
O%0406
011605
006126
100407
105761
003137
052762

080062

Ov01%6
Ov0150

000470
004037

040154
040166
040160
040162

000014
040406
012605
004737

080172
040176
040200
0v0202
040204
040206
040210
040212
0220

004037
000000
OMO%06
006105
100406
005702
001447
062762
000443

040232
040234

011605
006126

040166

040222
040226
Ov0230

012746

004037
000012
040406

BNE
JSR

040526

034410

034370
020000

034356

000113
041644
79

042756

177777

034462

SCé

042672
000010
O4146M

034360
100210

000016

O4146Y

042036

000111

SC6R

041464

JSR
ERROR
BR
ASL
MOV
ASR
JSR
MoV
JSR
RPDS1
SC8
MOV
ROL
8n|
1ST8
BGT
8IS

B8R
JSR

RPER1
SC8
MOV
JSR

MOV

04164y

100240

TST8
BNE
TST8
8n|
BIT
BNE
MOV
JSR
RPCSt
SC8
MOV
JSR
ERROR
BR

000016

JSR
RPCS1
SC8
ROL
8M|
TST
BEQ
8IS
8R

JSR
RPDS1
SC8
MOV
ROL

165

SCé
PC.SC12

+BR IF EITHER
.SAVE RPDS1. RPER1., RPERZ. AND RPER3
+ALSO DO R DRVINT
DP INT(R1)
+TRYING TO INIT THE DRIVE ?
SCyY
,BR _IF YES, CHECK ON MORE DRIVES
DRVSTR(RY)
,CHECK ON DRIVE'S STATUS
79
.BR IF UNSRFE
8B1T13. RPERRS+6 , ROORESS PLUG CHANGED ?
8s
;BR IF YES
%113, -(SP)
- RELERSE COMMAND
RO, WRT RP
+URITE THE COMMAND INTO RP(CS!
+REGISTER |INDEX
PARITY EXIT RDORESS
(SP). RS
PICKUP (RPAS) BEFORE THE ERROR CALL
RO.ES SAV
. SRVE THE RODRESS IN 'SESCRPE’
2
. REPORT THE UNEXPECTED ATTENTION
SC4
. GO CHECK FOR MORE RTAR'S

RO.ES SRV
5§
SCy
R1
-1, TIMER(R1)
R1
PC. GETREQ
R1,RPCS2(RY)
RO.RD RP

+SAVE THE ROORESS IN 'SESCAPE'
-REPORT THE RODRESS PLUG CHANGE
. CHECK FOR MORE DRIVES
- SETUP TO ROORESS WORDS
., STOP THE TIMER
+RESTORE THE DRIVE RODRESS
.GET THE DPB POINTER FROM THE QUEUE
- SELECT DRIVE
.RERD THE RPO4'S STATUS REG

(SP). RS
+AND PUT IT IN RS
(SP)+
+HWAS THERE AN ERROR?
19
.BR IF ERRCR
DRVACT(R1)
,CHECK DRIVE'S STATE
SC11
.BR IF DRIVE ACTIVE WITH ORDER
#8I1T15'BI1T07'81T703.
16(R2) ., INFORM USER OF ERROR RECOVER COMPLETION

SC7
RO.RD RP

.RERD ERROR REGISTER #1

(SP)+,R5
PC, SURH11

+AND SAVE IT IN RS
- SAVE RH11/RPOY4/5/6 REGISTERS

#111,-(SP)
RO. HRT RP

. ISSUE R DRIVE CLEAR

RS
+WAS "UNSAFE" CONDITION =17
19
+BRANCH IF YES
R2
+ANYTHING IN QUEUE 7
SC?
.BR IF NOT
#81715'81T07'81705, 16(R2)
» INFORM USER OF ERROR
SC?
RO.RD RP
.READ DRIVE STATUS REG #1
(SP).R5
(SP)+

- SRVE RPDS1
. "ERR"=17

IN RS

StQ 0161

8746
87%?
g8
8749
8750
8751
8752
8753

040236

CZRJIAC RPO4/5/6 MECHANIC
CZRJIRC .P11
27-JWL-78 9.18
100011

G 13
27-JUL-78 09 24
PRGE 166
SINGLE/DUAL PORT RH11/RPO4/5/6 DRIVER (REV 1.0)

RERD/WR ITE

TEST

034370
000016

0N 0406
000137
105761
001405
004?737
004737
000402
004737
000137
105761
003402
105061
105061
136137
001012
004737

052762
006737
100002
004737
116164

BIT

88I1T12.R5

034360
034370

072460

034462

MoV

034436
034504
034370

000016

SC?

037660
034360

SC8

0N2672
036706
19
29

036734
037660
034436

034436
034360
034504

042714
000200
034456
082036
034504
035576
037660
000010
000012
000014

000040
000042
034746

SC11

034432

CLRB
JSR

DRVACT(R1)
PC.EMPTYQ

8IS

ULOFLG(R1)
19
ULDFLG(R1)

JSR
RPCS1
SC8

RO, HRT RP

000016

034350
034352
034354
034356

JHpP

TST18

BLE
CLRB
CLRB
8178

29
SC12

,BR IF YES
,ACTIVE ERROR RECOVER
- ONL INE
,START 30 SECOND TIMER

#81T715'81T07'BITON. 16(R2)

TSTB
BGT
CLRB
Move
TST8

TSTB
BEQ
JSR
JSR
BR
JSR
JHP

,"HOL" =1

$#30000 .TIiMER(R1)

R1
SCy

+DRIVE IS 1DLE
.OUMP THE QUEUE

» INFORM USER OF ERROR

~UNLORD IN PROGRESS OR
+BR IF NOT
. CLEAR UNLORD FLRAG

QUEUE”

ATRBIT(R1),RPAS(RY)
,CLERR ATTENTION BIT
DRVSTR(R1)
. 1S THE DRIVE UNSAFE ?

29
#1113, -(SP)

BR IF IT IS
-RELERSE COMMAND

SCY

,CHECK FOR MORE DRIVES

DRVACT (R1)
19
PC. GETREQ
PC.CI7
28
PC.CI78
SCY

+HRITE THE COMMAND INTO RPCS1
,REGISTER INOEX
+PRARITY EXIT RODRESS
. 1S DRIVE IDLE?
. YES--BRANCH
»GET DPB POINTER
,PROCESS THE PRRITY ERROR
- CONT
I NUE
+PROCESS THE UNCORRECTRBLE PARRITY ERROR
» CHECK MORE DRIVES

ULDFLG(RY)

. "UNLORD IN PROGRESS"?

#B81T07,16(R2)

,SET "DONE" BIT

PC., SVRH11

. YES--SRVE ALL OF THE RH11/RPO4/5/6 REG'S

BNE
JSR

19
+BRANCH IF NO
ULOFLG(R1)
»CLERR UNLORD FLAG
DRVACT(R1)
+SET DRIVE IDLE
RATABIT(RY), SRCHWT ., DOING R SEARCH OPERATION FOR
AN 1/0 COMMAND?
29
.BRANCH IF YES
PC. POPQUE
-REMOVE REQUEST FROM QUEUE

TST
8PL

SRVEFG
28

BIS

000016

39
#-1,DRVACT(R1)
:},DRVSTR(RI)

RSR
JMP

BM1I
MOV

000113
04 1644

StQ 0162

29
+BR IF NO--UNSAFE C(LERRED
#-1,DRVSTR(R1)
,DRIVE IS UNSRFE
PC. SVRH11
, SAVE RH11/RPO4/5/6 REGISTERS
gg;TlS!BITIZ,lb(RZ)
. INFORM USER OF UNSRFE ERROR

172777
000001

000016

30AR(1052)

BPL
Move
JSR
géS
BNE
HOVB
Rgffl

037660
100220
034360
042576
034436
116164
105761
100406
0127v6
00+037
000000

MACY11

JSR

MoV
JSR
JHP
MOV
MOV
MOV
MoV
MOV
JSR
8R

~SAVE THE REGISTERS?
+BRANCH IF NO

ATABIT(R1),RPAS(RY)
, CLEAR RTTENTION BIT
PC,OPT
.START R REQUEST
SCy
. CHECK FOR MORE DRIVES
R1,RPCS2(RY)
+SELECT DRIVE
RPDS1(R4), RPERRS
»SAVE THE FOUR REGISTERS THRT
RPER1(RN), RPERRS+2
+HILL TELL US SOMETHING
RPERZ(RY), RPERRS+4
RPERI(RN), RPERRS+6
RO. DRVINT
»INIT
THE STRTE OF THE DRIVE
19
» TRKE ERROR EXIT

H 13
MACY11 30A(1052)
27-JUL-7?8
09 24
PAGE
CZRJIRC RPOU/5/6 MECHANICAL AND READ/WRITE TEST
CZRIRC P11
27-JUL-78 09 18
SINGLE/DUAL PORT RH11/RPON/5/6 DRIVER (REV 1.0)

8802
8803
880
8805
8806
8807
8808
8809
8810
8811

8812
8813
8814

8815
8816
8817
8818
8819
8820
8821
8822

8823

00570

000207
005726
000704
006301
012761
006201
010164
116164
032714
001006
006301
012761
006201
000433
105761
001424
105061
004037
000240
105761
003014
005702
001416
004737
052762
004737
004737
GOQuON
105061
004?737
000137

1727277

034462

000010
034504

000016

023420

034462

004000

03uu10

SC13

MoV
Move

TST8
BGT
TST

R1,RPCS2(RY)
. SELECT THE DRIVE
RTABIT(R1).RPAS(RY)
,CLEAR THE ATTENTION BIT
#81T11, (RY)
+DRIVE RVAILABLE ?
19
.BR IF RVARILABLE
R1
#10000 . TIMER(R1)
,START 10 SEC TIMER RGRIN
R1
39
JEXIT
OP INT(R1)
»INITIALIZING THE DRIVE ?
29
BR |IF NOT
DP INT(R1)
CLEAR THE INIT INDICATOR
RO. DRV INT
.60 INIT THE DRIVE
~DUMMY PARITY ERROR RETURN
DRVSTA(R1)
-DRIVE ONLINE ?
29
+BR IF YES -- START ORDER
R2
;QUEUE ENTRY FOR THE DR IVE

JSR
8IS

PC. GETREQ
.GET OPB RDDRESS
#BITIS'BITIY, 16(R2) ., INFORM USER

ggfl

gg,EHPTYO

BEQ
CLRB
JSR
NOP

03%370

042672
140000
042036
042576

PC
(SP)+
SC8
R1
:;I.TIHER(R!)

ASL
MoV
ASR
BR
TST8

034410
Q34746

8taQ
000016

835420
035576
037660

SEQ 0163

RTS
TST
BR
ASL
ggg

BIT
BNE

167

JSR

CLRB

JHP

JSR

- RETURN
+,POP PC OFF OF THE STACK
+PROCESS THE PRRITY ERROR
»SETUP TO RODRESS WORDS
,STOP THE TIMER

.BR

PC., SVRH11

.SAVE THE REGISTERS

DPRQS(R1)

PC.OPT

SCy

_IF NOT

THAT DRIVE OFFLINE

-EMPTY THE REQUEST QUEUE

CLEAR THE PORT REQUEST

-START

THE

INDICARTOR

PENDING REQUEST

.PROCESS OTHER DRIVES

,ESOM/Slb TIMER ROUTINE
.
.
,

RPTHR

03443y

000001

034435

034462
000002

19
034462

041030

006723
022701
003361
104413
105037
012616

000010
034435

CALL

L} )

MOV
JSR

$TIME, - (SP)
PC.RPTMR

+ELASPED TIME IN MILLISECONDS
. CALL RPO4/5/6 TIME ROUTINE

TST

RACTDRVY

»CHECK “ACTDRV & RCTSTR"

BNE
HOvB
SRVREG
CLR
CLR
TST
BLT
SuB
BGT
JSR
BR
INC
TST
CHP
BGT
RESREG
CLRB

MoV

4s
#1,ACTSTR

R1
R3
TIMER(RI)
29
2(SP), TIMER(R3)
29
PC.STO
39
R1
(R3)+
8 .R1
19

ACTSTR

(SP)+, (SP)

ON THE

STRCK

»IF NON Z2ERO EXIT
.SET "RACTSTR"
. SAVE RQ - RS
START WITH DRVVE O

+1S THE TIMER RUNNING?
+BRANCH IF NO
, COUNT THE INTERVAL
+BR IF NO SOF THRARE TIMEOUT
. CALL SOFTWARE TIMEOUT ROUTINE
.GO TO THE EXIT
+MOVE TO NEXT DRIVE
»OUT OF DRIVES?
+BRANCH IF NO
+RESTORE RO - RS
»ZERO RCTIVE SOFTWARE

+ADJUST THE STACK

TIMEOUT ROUTINE FLAG

13
CZRIRC RPO4/5/6 MECHANICAL AND READ/WRITE TEST
MACY11 30A(1052)
27-JUL-78
09 24
(ZRJRC P11
27-JuL-78 09 18
SINGLE/DUAL PORT RH11/RPOM/5/6 DRIVER (REV

ggssg

041026

000207

RTS

PAGE
0)

» RETURN

ggg(‘l

- SOFTHARE

8862
8863
8864
8865
8866
8867
8868

+NOTE
,
.
.CALL
.
.
,

THIS ROUTINE MUST BE ENTERED AT PRIORITY &
OR GRERTER

STO

8869
8870
8871
8872
8873
8874
8875
8876
8877
8878
8879
8880
8881

041030
041032
041034
Ou1040
Ow10M4
01050
041052
OM1054
OM1056
01060
O%1064
OM1066

010146
010346
013704
010164
004037
000012
041352
105726
100477
105761
001074
105761

8882
8383
888
8885
8886
8887
8888
8889
8890
8891
8892
8893
8894
8895
8896
8897
8898
8899
8900
8901
8902

0OM1072
O%107%
041100
Ou110%
01106
01112
041120
Ow1124
081132
OM1136
OM1142
Ou11v4
O%1186
081152
On1154
041160
OvM1162
Ow1166
01172
O%M117%
081200

001071
013702
020137
001402
004737
052762
004737
012764
105061
105061
005001
005003
004037
000477
105761
001414
013702
023701
001402
004737
062762

8904

041212

106061

8903

OM123%
041236
Ov1244

003344
012737
005037

8913

041254

004737
000500

R1,DTUKH

000010

BEQ
JSR
8IS
JSR
MoV

19
+BRANCH IF YES
PC. GETREQ
. GET DPB RDORESS
#BIT15'BI1T09, 16(R2) ,SET THE ERROR FLARGS
PC. SVRH11
- SAVE RH11/RPOY4/5/6 REGISTERS
#BI1T05.RPCSZ(RY) , "INIT" THE MASS BUS

000016

CLRB
CLR
CLR
JSR
BR
TST8
BEQ
MOV
CHP
BEQ
JSR
8IS

ULDFLG(R1)
.CLERAR THE UNLORD FLRG
R1
.START WITH DRIVE O
R3
RO, DRV INT
+INIT
THIS DRIVE
ST05
+PARITY ERROR RETURN
DRVACT (RY)
-DRIVE IDLE BEFORE THE INIT 7
4$
- YES--BRANCH
TRNSHT, R2
»GET TRANSFER WAIT QUEUE
DTUH, R1
-HAS THERE 170 ON THIS DRIVE?
39
» YES--BRANCH
PC, GETREQ
.GET THE DPB POINTER FROM QUEUE
#81T15'81708, 16(R2Z) . INFORM USER OF INIT

CLRB

ULDFLG(RY)

cnHp

48 . R1

STO1.

000016

CLRB

034430
034502

8909
8910
8911

041250

cHP

»1S "DRY"=17?
.BR IF YES
+TRYING TO INTIARLIZE THE DRIVE ?
.BR _IF YES
-OUTSTANDING PORT REQUEST FOR THE DRIVE ?
.BR IF YES
+PICKUP TRANSFER WAIT QUEUE

034360

177777

8912

BNE
MoV

(SP)+
ST02
DP INT(R1)
ST02
DPRQS(R1)
ST102
TRNSHT, R2

034746

012763
006723
005201

022701

» SAVE R1
. SAVE R3
.GET RDORESS OF "RP(CS1"
- SELECT THF DRIVE
+READ “DRIVE STATUS REG"

034502

0%1216
OM1224
0M1226

Ov1230

R1,-(SP)
R3, -(SP)
RPARDR., RY4
R1,RPCS2(RY)
RO.RD RP

034430

034360

§908

MOV
MoV
MOV
MoV
JSR
RPDS1
STO05
TST8
BMI
TST8
BNE
TST8

034420

106061

8906
8906
8907

041206

034436

034462

000010
177777
034430

042520

STO
MOV
JSR
RETURN

»DRIVE NUMBER
. CALL

034410

042672
100400

TIMEOUT ROUTINE

#DRVUNUN, R1
PC.STO

034516
000010
O41ue4

042672
101000
042036
000040
034360
034436

168

034502

- TRANSFER UNDERWAY ON THIS DRIVE?

DRVACT (R1)

+DRIVE

DRVACT (R1)

+SET DRIVE ACTIVE TO IDLE

-1, TIMER(R3)
(R3)+
R1

,STOP THE TIMER
-UPDATE THE INDEX
» INCREMENT THE DRIVE NUMBER

BGT
HOV
CLR

29
#-1,0TUK
TRNSHT

» NO--LOOP
+NO DATR TRANSFERS UNDERWAY
+CLERR TRANSFER WAIT QUEUE

ST09

CLR8

HOV
TST
INC

JSR

PC. CLRQUE

IDLE

»NO UNLORD

.LAST DRIVE BEEN CHECKED?

»CLEAR ALL REQUEST QUEUES
JEXIT

SEQ O16%

CZRJAC RPO4/5/6 MECHANICAL AND READ/WRITE TEST

CZRJAC. P11

27-JuL-78 09 18

8914
8915
8916
8917
8918
8919
8920
921
8922
8923
8924
8925
8926
8927
8928
8929
8930
8931
8932
8933
893
8935
8936
8937
8938
8939
890
891
8%2
83
84

041256
0M1262
Ov1266
0M1270
Ov127%
0OM1276
041302
081308
01310
O0M1312
Ow1316
041320
041322
0Ow132¢
01326
0Ow1332
Ow133%
ONIN0
OMIM2Z
081350
01352
On1356
041360
On1364
OM1370
O0M13J76
0O%1402
OuwivOM
OM1406
OM1viy
Ovivie

116405
136105
001017
105761
001031
105761
001045
020137
001263
004037
000000
Om1352
105726
100255
105761
001003
105761
001446
012763
000442
004737
000437
105061
105061
012763
004737
005702
001424
052762
O0OM1Y
012763

8%7
8M8
899

OMivwIw
041436
OM14wa0

005702
001407
012762

8951

OM1452

004737

8953
8954

Ow1460
Ow1462

8BS
g6

8950

8952

Ow142%
OM1430

OM1446

0OM1456

ST02

034u410
034v20
034502

Ouiuew

034410

ST03

034420

034462

037006

STOS.

034410
034370
177777
042672

ST06
03uwu462

140000

000916

105061
004737

177777
034420
042672

034462

004737

042576

100004

000016

012603

JOA(1052)

27-JUL-78

09.24

PRGE

MOVB
8178
BNE
TST8
BNE
TST8
BNE
cnp
BNE
JSR
RP(CS1
ST0S
TST8
BPL
TST8
BNE
1ST8
BEQ
MOV
B8R
JSR
BR
CLRB
CLRB
MOV
JSR
TST
BEQ
BIS
BR
MoV

RPRS(RM), RS
ATRBIT(RYI).RS
ST03
DP INT(R1)
ST06
DPRQS(R1)
ST0?7
R1.DTUW
ST01
RO.RD RP

TST
BEQ
MOV

R2
-QUEUE ENTRY FOR DRIVE ?
ST09
.BR IF NONE
#BITIS'BITZ, 16(R2)
., INFORM USER OF PORT REQUEST ERROR

SINGLE/DUAL PORT RM1. ‘RPO%/5/6 DRIVER (REV 1.0)

000016
034504

177777

J 13

MACY11

042036

STO7

STO8.
ST09:

012601
000207

169

;RERD RTTENTION REG
;IS ATTENTION FOR THIS DRIVE UP ?
. YES--BRANCH
;TRYING TO INTIARLIZE THE DRIVE ?
+BR _IF YES - DRIVE NOT ONL INE
+OUTSTAND
ING PORT REQUEST FOR THE DRIVE ?
+BR _IF YES - NO RESPONSE TO REQUEST
-DATA TRANSFER UNDERWAY FOR THIS DRIVE
.BR IF NO
» YES--CHECK "RDY"

(SP)+
STO1
.BR IF "RDY"=0
OP INT(R1)
~INITIALIZING THE DRIVE 7
19
,BR IF INIT PENDING
DPRQS(R1)
,PORT REQUEST PENDING ?
ST09
.BR IF NOT
#-1,TIMER(R3)
,STOP THE TIMER
ST09
CEXIT
PC.CI8
. GO HANDLE THE PARITY ERROR
ST09
OP INT(R1)
»,CLERR THE INITIALIZE INDICATOR
DRVSTA(R1)
»SET UNIT OFFL INE
#-1,TIMER(R3)
,STOP THE TIMER
PC.GETREQ
.GET THE DPB RODRESS
R2
~REQUEST IN QUEUE ?
ST09
.BR IF NOT
#BITIS!BITIY, 16(R2)
., INFORM THE USER DRIVE NOT RVRILRBLE
ST08
+FINISH
-1, TIMER(RI)
,STOP THE TIMER

CLRB
JSR

DPRQS(R1)
PC. GETREQ

-CLERR PORT REQUEST INDICARTOR
.GET DPB RODDRESS

JSR

PC.EMPTYQ

-CLEAR THE QUEUE FOR THE DRIVE

MOV

(SP)+,R3

-RESTORE R3

JSR

MOV
RTS

PC. SVRH11

(SP)+, R
PC

-SAVE

THE REGISTERS

-RESTORE R1
- RETURN

89568957

ROUTINE

8958
8959
8960
8961
8962

. CALL
,
;
,
.

JSR
INDEX
ERRADR

;

RETURN

RD.RP-

MOV

HCPEMX,
RO RPZ

,MRX.

HOV

RPRADR.
RD. ADR

.FORM THE DESIRED ADDRESS

8963
8965

Ouwiwed

013737

034514

041632

8967

041474

013737

034516

041510

8966
8968
8969

041472
041502
041506

011646
062037
013727

041510

RD.RP1-

TO RERD A RH11/RPO4/5/6 REGISTER

MOV

RDD
MOV

RO.RD RP

.GO RERD A REGISTER
+REG. INDEX FROM BRSE
. ERROR RODRESS--PROCESS ERROR STARTING
+RT THIS RDDRESS

»CONTENTS OF REG.

(SP), -(SP)

(RO)+,
RD. ADR
PO+, (PC)+

IS ON THE STRCK

RETRYS ALLOWED

- SAVE RO FOR RETURN

+USING THE BRSE AND THE |INDEX
+RERD THE DESIRED REGISTER OF THE RPOM

SEQ 0165

g
P g

000000
000000
013766
013746
062716
032736
001037
017746
032716
001002
022620
000432

041512
034516
000010
010000

000002

b gub G
b gub gub pud e gud
e
pub pub g
h g

042756

034502
040000

040000
034516
o41626

041626
39

RD RP2
RD RP3:

RD RPY

. CALL

’

ooNO

-t ot

NNN

013737
016637

012616
012037
001015

000000
0n 2026
000316
OM2716
112637

034514
000002

042020
041732

041734
000150

O41464

177770
041733

041732

. HORD
WORD
Hov

0
0
RO WRD, 2(SP)

BIT
BNE
CHP
BR

881713, (SP)
19
(SP)+, (RO)+
RO RPY

JSR
ERROR
TST
BMI
BIT
BEQ
TST
B8R
BIS
SWAB
MOV
INC
Hove
HORD
DEC
. HORD
8GE
MOV
MOV
RTS

§0,ES SRV

nov
RDD
BIT
BNE
MoV

+ROUTINE

FIIIVIIIINIII
CEERH 3333

SRR
D EELEEERFRRRE

004037
104003
005737
100405
032716
001402
005726
000415
052716
000316
013737
005237
112637
000000
005327
000003
002324
011000
012616
000200

RD RORRD WRD.

172752
020000

D g

£0

S e G

D G

8970
8971
8972

22339 9999929999799999999999929999 =
RRRTT
34442 8 & 8833 §RESRI EEEPERE b33t
gNgN‘NO

K 13
CZRJIRC RPO4/5/6 MECHANICAL AND RERD/MR ITE TEST
MACY11 30AR(1052)
27-JUL-78
09 24
PRGE
CZRIAC.
27-JuL-78 09. 18
SINGLE/DUAL PORT RH11/RPOM/5/6 DRIVER (REV 1.0)

WRT RP

RPROR,
- (SP)
8RP(S2Z, (SP)
#81712.9(SP)+
RD RP3

DTUMN
29
881T1N, (SP)
29

(SP)+
RD RP3
$BIT1IN4, (SP)
(SP)
RPADR.
3%
39
ESP)+,J(P()+

(PC)H+
3
RD RP1
(RO). RO
(SP)+, (SP)
RO

170

StQ 0166

. RADORESS 1S FORMED HERE
+REG. CONTENTS PUT HERE
RETURN IT TO THE USER
.PUT THE RDORESS ON THE STR(K
;FORM THE ROORESS OF RP(S2
;CHECK THE °'NED' BIT
+BR IF DRIVE NON-EXISTENT
»RERD RP(CS1
01D HMCPE SET?
-BRANCH IF YES
-RDJUST FOR RETURN
CEXIT
SAVE THE RDORESS IN 'SESCRPE’
-REPORT "MCPETM ERROR
-DATA TRANSFER UNDERWRY?
» NO--BRANCH
+NO--"TRE"=1?
» NO--BRANCH
. YES--CLERN OFF THE STACK AND
.TRKE THE FATAL ERROR EXIT

»CLERR "MCPETM" BY SENDING R 1"

-POSITION BEFORE WRITING
.FORM RDORESS OF HIGH BYTE

TO "TRE"

+HRITE THE HIGH BYTE OF RPCS1
. ADDRESS STORAGE
+EXCEEDED MAX. RETRYS
+BRANCH IF NO
.FRTAL ERROR EXIT

TO WRITE R REGISTER

MOV
JSR
INDEX

- (SP)
DATRA,
RO. HRT FRP

.DATA TO BE LORDED ON THE STACK
+CALL THe ROUTINE TO LORO(WRITE) THE REG
. INDEX OF THE REGISTER TO Bt LORDED
. ADDRESS TO RETURN TO ON AN ERROR
+ERROR FREE RETURN

MOV
MOV
MoV
MOV

HCPEMX,
WRT R2

+MRAX RETRYS RALLOWED
SAVE THE WORD TO WRITE
+ADJUST THE STRCK
+GET INDEX OF REGISTER TO BE WRITTEN
»BRANCH IF NOT RPCS1
. 1S THE COMMAND FOR DRTA TRANSFERS?
+YES--DON'T GET THE OLD R16 & R1?, & PSEL
+NO---COMBINE R168A17, & PSEL WITH
- THE COMMAND BEFORE SENDING IT TO
. THE RH11/RPOM

ERRROR
RETURN

BNE
CMPB
BL”
JSP
RP(S1
HRT 23
SWAB
8iC
HovB

2(SP), WRT WO

(SP)+, (SP)
(§O)¢,NRT RD
1
#150, WRT WD
19
RO.RD RP

(SP)
% (7, (SP)
(SP)+, URT WD+1

CZRJAC RPO4/5/6 MECHANICAL AND RERD/WRITE TEST
MACY11 30A(1052)
27-JUL-78
09 24
PAGE
CZRJIRC P11
27-JW.-78 09 18
SINGLE/DUAL PORT RH11/RPON/5/6 DRIVER (REV t 0)

n1722
041730
01732
01734
TM1736
N2

b o

L J3s22d
3¢ A

2FFRERERRERT

9026
9027

063737
012737
000000
000000
013746
062716
032736
001025
004037
000014
0% 2026
032726
001420
016037
008037
000000
0% 2026
004037
104004
005327
000003
002342
005726
011000
000401
005720
000200

034516

04173y

034516
000010
010000

RADD

HRT R1.
HRT WD
HRT AD:

177776
04 1464

042756
WRT RZ

HRT R3.
WRT R4
WRT RS

. CALL
,
,

3
28353555

082110

BIT
BNE
JSR

#B1T12,.8(SP)+
WRT R3
RO, RD RP

,(HECK THE 'NED' BIT
+BR IF DRIVE NON-EXISTENT
,CHECK FOR PRRITY ERROR ON WRITE

JSR
WORD
HRT R3
JSR
ERROR
DEC
WORD
8GE
TST
MOV
BR
TST
RTS

+KOUTINE

104412
005702
001430
013704
111264
016203
001433

;LORD THE DESIRED REG
;HORD TO WRITE GOES HERE
-ADDRESS IS FORMED HERE
-PUT THE ROORESS ON THE STRCK

MOV

042004

SVRH11

034516
000010
000014

042116
42116

000022

000200

000010

O4 1464

2%
39

042116

000046

000002

042116

;FORM THE ROORESS OF THE DISK REG

(PC)+, d(PC)+
O
O
RPROR. - (SP)

RPER1
WRT R3
BIT
BEQ

000010

StQ 0167

MOV
WORD
WORD
HOV

RO0D

Ou146y

RPROR. WRT RD

171

TO SAVE

#RP(S2. (SP)

#81T03. (SP)+
HRT Ry

-2(R0O). 19

RO, RD RP
O

RO.ES SRV
4
(PO)+
3
HRT R1
(SP)+
(RO). RO
HRT RS
(RO)+
RO
THE

-FORM THE ROORESS OF RP(S2

.BRANCH

+PICKUP THE

"PAR=0"

INDEX

;RERD THE REG
+REG.
INDEX
RETURN TO THIS RODRESS ON ERROR
-SAVE THE ROORESS IN 'SESCARPE'’
+REPORT THE PRRITY ON WRITE ERROR
;DECREMENT THE ERROR COUNT
;RETRY COUNTER
. TRY RGAIN IF NOT FINISHED
.CLEAN OFF THE STR(K
.TRKE THE "PARITY ON WRITE" ERROR EXIT
JEXIT
~ADJUST FOR ERROR FREE EXIT

RH11/RPO4/5/6 REGISTERS RS PER DPB+1Y4

HOV
JSR

#DPBNUM. R2
PC. SVRH11

SRAVREG
TST
BEQ
MOV
MOVB
MOV
BEQ
CLR
CMP

R2
4§
RPADR,
RY
(R2).RPCS2(RY)
14(R2),R3
69
39
3S. RRPDB

, SELECT DRIVE
.GET THE ERROR TRBLE POINTER
+EXIT IF NO RDDRESS
;COUNTER & POINTER
;REACHED THE BUFFER REGISTER ?

»CONTINUE RERDING THE REGISTERS

BNE
BIT
BNE
CLR
8R
JSR
WORD
59
MOV
CHP
BEQ
RDD

B8R

.DPB POINTER TO R2
.SARVE THE DRIVES REG'S

-SRYE RO - RS
»-QUEUE ENTRY FOR
.BR IF NONE

THE DRIVE

29
-8R I1F NOT
#81T07,.RPCSZ(RY) ., 'OR' SET ?
2%
+BR IF SET
(R3)+
-STORE RPDB RS ZEROES
4s
» CONT
| NUE
RO. RD. RP
+RERD THE SELECTED REGISTER
O
+REGISTER INDEX
;ERROR RETURN RDORESS
(SP)+, (R3)+
;STORE THE REGISTER CONTENTS
39. #RPEC2
+REACHED THE END ?
69
.BR IF YES
£2.3%
- INCREMENT THE REGISTER INDEX

n13
(ZRJIAC RPOU/S/6 MECHANICAL ANO READ/WRITE TEST
MACY11 30A(1052)
27-JuL-78
09 24
PRGE
CZRJIAC P11
27-JUL-78 09 18
SINGLE/DURL PORT RH11/RPOM/5/6 DRIVER (REV 1.0)
9082
9083
9084

Q42144
042150
042152

004?737
104413
000207

036706

59.
69

JSR
RESREG
RTS

PC.CI17
PC

1.2

;PROCESS THE UNCORRECTABLE PARITY ERROR
-RESTORE RO - R5
; RETURN

+ROUTINE TO SET THE INTERRUPT WITHOUT GETTING R "TRE"
. CALL
nov
SDRVNUN.R1
;DRIVE NUMBER TO R1
JSR
PC.SET. IE
.SET "IE"
RETURN
,

,
’

042154
M 2156
042162
082166

9101

9103
910M
9108
9106
9107
9109
9110
it
9112
9113
9114
9115

9116
9117
9118
9119
9120
9121

9123
9124
9125
9126
9127
9128
9129
9130
9131

9132
9133
9134
9135
9136
9137

0n2170
ONZ217%
OnN2176
0% 2202
082210
0N 2212
0N 2214
0nN2216
0N 2224

0n 2226
0% 2227
042230
%2231

010446
013704
010164
011446
052716
000316

11271%
03276M

001002

005726
000402
112664
012604
000207

SET

034516

000010

MOV
B!S

040000
000100
010000

000001

MoV
HOV
nov

SWRB

Move

000010

28.
- QUEUE

QCNT

0M2232

082233
082234
042235

BIT
BNE
TST
B8R

MOVB
MOV
RTS
COUNT

BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
8YTE

R4, -(SP)
;SAVE RY
RPROR. R4
-PICKUP RADDRESS OF RP(S1
R1,RPCSZ(RY)
- SELECT DRIVE
(RY),-(SP)
;RERD RP(S1
$81T1y, (SP)
,SET THE "TRE" BIT OF THE WORD RERD
(SP)
- ADJUST FOR DATO
881706, (RY)
.SET "IE"
#BIT12,RPCS2(RY) ;IS "NED"=1?

; YES--CLERR "TRE"

(SP)+, 1 (RY)
(SP)+, RY
PC

;CLEAR "TRETM
.RESTORE RY&
-RETURN TO CALLER

0
0
0

.ORIVE O
.DRIVE 1
+DRIVE 2

égP)+

0
0
0
0
)

.CLERN OFF

+ORIVE
+DRIVE
,DRIVE
,ORIVE
+DRIVE

3
4
§
6
7

QDRVO
QDRV1
QORV2
QDRV3
QORVY
QDRVS

.DRIVE
.DRIVE
;ORIVE
+DRIVE
:DRIVE
,ORIVE

O
1
2
3
4
5

QDRV?

+DRIVE 7

»QUEUE

INPUT POINTERS

QINPT

. HORD
. WORD
. HORD
WORD
HORD
. WORD
. HORD
WORD

QDRVeE

-DRIVE 6

. QUEUE OUTPUT POINTERS
QOUTPT.

. WORD
HORD
. HORD
WORD

. WORD

. HORD
HORD
HORD

QDRVO
QDRV1
QORV2
QORV3
QORVY
QORVS
QDRV6

QDRV?7

.DRIVE
-DRIVE
,ORIVE
DRIVE
.DRIVE
.DRIVE
,ORIVE

O
1
2
3
&
5
&

JIRIVE ?

THE STRCK

StQ 0168

13
CZRJIAC RPO4/5/6 MECHANICRL AND READ/WRITE TEST
MACY11 30A(1052)
27-JUL-7?8 09 24
CZRJIRC P11
27-JUL-78 09 18
SINGLE/DURL PORT RM11/RPOM/5/6 DRIVER (REV

9187
9188
9189
9190
9191
9192
9193

QSTART
QSTOP

02320
Ov2340
0% 2360
0% 2%00

082420
0% 2%40
0% 2460
0% 2500

WORD
. WORD
WORD
WORD
WORD
WORD
HWORD
WORD
WORD

0%2500

02520
,DRIVE

000010
000010
000010
000010
000010
000010
000010
000010
082520

QDRVO:
QDRV1

BLKH
BLKW

10
10

QDRV3.

BLKK

QDRV2.
QDR VY

QDRVS
QORVE

QDRV?

QTERM=

. CALL
.

104412

CLRQUE

042226

000010
042276

FERERE

000010
042276

QDRVO
QDRV1
QDRVY2
QDRV3
QDRVY
QDRVS
QDRVG
QDRV?
QTERM

PRGE 173
0)

.DRIVE O START RDODRESS
.DRIVE O STOP RDORESS & DRIVE
,STOP DRIVE 1--START DRIVE 2
,STOP DRIVE 2--START DRIVE 3
.STOP DRIVE 3--STARY DRIVE &
,STOP DRIVE %--STRART DRIVE 5
.STOP DRIVE 5--START DRIVE 6
,STOP DRIVE 6--STRART DRIVE 7
STOP DRIVE 7

SEQ 0169

START RDORESS

REQUEST QUEUES

.ROUTINE

BLKUW
BLKUW

BLKW
BLKH

BLKHW

10
10

TO CLEAR ALL

OF THE REQUEST QUEUES

JSR

PC., CLRQUE

SAVREG
MOV
CLR
CLR
CLR
CLR
MOV
MOV
MOV

8QCNT, R2
(R2)+
(R2)+
(R2)+
(R2)+
48 .R3
8QSTART.R1
(R1)+, (R2)+

DEC
BNE
MOV
MOV
MOV
DEC

BNE
RESREG
RTS

R3
19
88 .R3

8QSTART. R}
(R1)+, (R2)+
R3

,SAVE RO - RS
. ZERO THE QUEUE COUNTS
.DRIVES O & 1
,DRIVES 2 8 3
,DRIVES 4 & §
PR
.DRIVES 6 & 7
S
.MOVE THE STARTING
. RDDRESS OF THE QUEUE INTO
» THE QUEUE INPUT POINTER

.
,MOVE THE STRARTING RDDRESS
,OF THE QUEUE INTO THE
, QUEUE OUTPUT POINTER
.RESTORE RO -

»DRIVE NUMBER

T0O R1

+EMPTY THE QUEUE SPECIFIED BY R}

::cnu.
’

gEd

9183
918y
9185
9186

0n2316

042320
0%2340
Q%2360
0%2400
042420
0% 2440
042460

22229229
S
RRR
INd

9177
9178
9179
9180
9181
9182

0%2276
042300
02302
0% 2308
0% 2306
0N2310
%2312
04231y

222

9138

9139
9140
9141
9142
9143
bah
9145
9146
9147
9148
9149
9150
9151
9152
9153
9154
9155
9156
9157
9158
9159
9160
9161
9162
9163
9164
9165
9166
9167
9168
9169
9170
9171
9172
9173
NN
9178
9176

105061

006301
016161

042226
042236

EMPTYQ:

042256

MOV

DRVNUM,
R1
PC.EMPTYQ

CLRB
ASL
MOV

QCNT(R1)

JSR

»CLEAR NUMBER OF ITEMS IN QUEUE
R1
QINPT(R1), QOUTPT(R1) ,SET OLTPUT QUEUE POINTER=INPUT POINTER

8 1y
CZRJIRC RPO4/5/6 MECHANICRL AND RERD/MRITE TEST
MACY11 30R(1052)
27-JUL-?8
09 2%
PRAGE
CZRJAC P11
27-JW.-78 0° 18
SINGLE/DURL PORT RH11/RPOM/5/6 DRIVER (REV 1.0)
006201
000207

KR
RTS

SRNN

. CALL
,

122761
001421
105261
006301
010271
062761
026161
001003
016161
006201
005720
000200

000010

042226

DRVQUE.

042226

042236
000002
042236

042236
0%2300

0%2276

042236

19
29
+ROUTINE

. CALL
p

MoV
MoV

JSR
RE TURN1
RE TURNZ

CMPB

8EQ

INCB
ASL
MoV
ROD
CHP
BNE
MOV
RASR
TST
RTS

IN QUEUE

SDRVNUN, R1

-ORIVE NUMBER

£10.QCNT(R1)
29
2§NT(R1)

. 1S QUEUE FULL?
+BR |F YES-TAKE RETURN1
- INCREMENT QUEUE COUNT

#0PB. R2
RO. DRVQUE

- ROORESS OF PRRAMETER BLOCK
. GO PUT REQUEST IN QUEUL
;RETURN HERE IF QUEUE IS FULL
+RETURN HERE IF REQUEST IS IN QUEUE

R2,8QINPT(R1)
,PUT THIS REQUEST IN QUEUE
82.QINPT(RY)
-UPDRTE THE QUEUE POINTER
QINPT(R1),QSTOP(R1) ,TIME TO RESET THE POINTER
19
BRANCH IF NO
gSTRRT(Rl),QINPT(RI) ; YES--RESET POINTER
1
(RG)+
. TARKE RETURN 2
RO
.RETURN TO USER

TO GET THE

MOV

005002
105761

001404
006301
017102
006201
000207

GETREQ

042226

042256

29
+ROUTINE

. CALL
.

,
p

105361

006301
017102

062761
026161
001003
016161
006201

042226

POPQUE

"DPB"

RDDRESS OF NEXT RCQUEST

#DRVNUNM, R1

JSR
RETURN

PC. GETREQ

CLR
TST8
BEQ
ASL
MOV
ASR
RTS

IN QUEUE

.DRIVE NUMBER TO R1

.60 GET THE REQUEST
+R2="DPB" RDDRESS OF THE REQUEST
+R2=0 IF NO REQUEST IN QUEUE

QCNT(R1)
%S

. 1S THERE ANY REQUEST
» NO---BRANCH

SOOUTPT(RI).RZ

+PICKUP

1
PC

TO "POP"

IN QUEUE?

"DPB" POINTER FOR

THE

REQUEST FROM QUEUE

#DRVNUN, R1
PC.POPQLE

.DRIVE NUMBER TO R1
+CALL TO REMOVE REQUEST
.R2=RADDRESS OF DPB REMOVED

2$NT(R1)

+DECREMENT QUEUE COUNT

gSTRRT(Rl),QOUTPT(Rl)
1

JSR
RETURN

042256
000002
042256

042256
042300

042276

042256

MOV

BNE

ASR

THIS DRIVE

»RETURN TO USER

MOV

DECB
RSL
MOV
RDD
cHp

SEqQ 0170

R1
PC

+ROUTINE TO PUT A REQUEST

042612
04261y

baal
9195
9196
9197
9198
9199
9200
9201
9202
9203

174

SQOUTPT(R1),RZ
,GET THE "DPB" POINTER
#2,Q0UTPT(R1)
,UPDRTE THE QUEUE POINTER
GOUTPT(R1),QSTOP(R1) , TIME TO RESET THE POINTER?
19
< NO--BRANCH TO EXIT
»YES--RESET

THE

POINTER

C 1y
CZRJIAC RPOM/5/6 MECHANICAL AND RERD/WRITE TEST
MACY11 30A(1052)
27-JUuL-78 09 24
PRGE
CZRJIAC P11
27-JuL-78 09 18
SINGLE/DURL PORT RH11/RPOM/5/6 DRIVER (REV 1 0)
042754

000207

RTS

- CALL

oM 2772
001206
001206

ERROR
RETURN

., THE ERROR CALL
,THE RETURN IS PAST THE ERROR

ES SRV

MOV

(RO)+,
19
SESCAPE.-(SP)
BES(RPE

»GET THE ERROR CALL
. SAVE THE RDOORESS IN 'SESCARPE'’
»CLERR THE ESCRPE RETURN
. THE ERROR CALL IS MOVED HERE
-RESTORE THE ESCAPE RDDRESS
- RETURN

001206

SBTTL

000122
0% 1506
114

041506
04151y
01511
106
052114

052116
053523
051505

MoV

CLR
HORD
Hov
RTS

(SP)+, SESCAPE
RO

ARSCIZ MESSAGES

MSG R
.
MSG. FC
MSG LC.
MSGF CP:
MSGLCP.
HSG IC.
.
MSG FT:
.
NSG.LT:
.
HSG IT:
.
MSG. FS. .
MSG. LS: .
NSG PART
NSG EQ:
MSG CS

NNNNNNNNNNN

012037
013746
005037
000000
012637
000200

RO.ES SRV

"SESCAPE' WHEN THE DR IVER

,
,

42756
%2762
042766
%2772
oN277%
0% 3000

JSR

/R/
/FC/
/LC/
/FC'/
/LC/
Z1C/
/F1/

LT/
VAR
V4
/FS/
/LS/
ASC1Z2

/=/

/PART/

(CROCLF>/CONTROL SHITCHES=/

SLASH
SYSTAT

RSCi12
RSCi12Z

9/ 9
ZUNIT STATUS /Z<CRYCLFXCLF)

000105
o445ty

UNTHSG
UNTOFF

ASC12
RSC12

/DRIVE/
/ OFFLINE/

ouus1Y

UNTON

RSC12

7/ ONL INE/

020124

NOTPRS

RSCi2

/ NOT PRESENT/

043101

NOTSAF.

.RSCIZ

/ UNSRFE/

052117
027464

051040
027465

NOTRP-

. RSCI2

& NOT RPOM/5/64

032060

000

RPOuB.

. RSCIZ

/RPON/

051440
035123

047105

StQ 0171

+RETURN TO USER

ROUTINE TO SRVE THE (ONTENTS OF
-REPORTS AN ERROR DIRECTLY.

SeE

9250
9251
9252
9253
9254
9255
9256
9257
9258
9759
9260
9261
9262
9263

175

CALL

(ZRJIAC RPO4/5/6 MECHANICAL AND RERD/MRITE TEST
MACY11 30R(1052)
CZRJIAC Pit
27-JU-78 09: 18
RSC1Z MESSAGES

On 3221
0N 3226
0% 3233
0N 3240
0% 32¢6
0% 3254
0% 3262
On 3264
0TM 3271
0N 3273

030120
033060
0N2012
051450
041040
052123

020117
050055
045503
0%4515
051505
046111
020124
051105
0n2105

R
-

it§§§§§

29888

[,]

EEERERESSNERITENE & §338s

9229999999

O In62

2237729939979

000065
000
08522
020051
020105
042105

D 1y
27-JUL-78

PAGE

176
SEQ 0172

RPOS:
RPO6:
DRIVES:

. RSC12
. RSCIZ
. ASCIZ

/RPOS/
/’RP06/
(CRYCLF>/DRIVE(S)

NONE :

. RSCI12

ASCI12
. RSCI1Z

/NONE
/
/.7
CCRYCLF)Y/NO KH11-P

oMM
NOCLOK:

09 24

TO BE

TESTED /

CLOCK,

TIMING TESTS WILL

NOT BE

0u 2524
020107
020105

TESTNG:

. RSCI12Z

CCROCLF)CLF>/TESTING DRIVE

040511
o%1115

SERIRL.

. RSCI2Z

/SERIAL NUMBER /

052117
Q40516
042505
0u 2515

MSG?:

. RSCi2Z

(CROCLF>CLF>/ROTAT
IONAL SPEED TIMES/

042516
047111
0%2523
06511
025040
040527

MSGI0R-

. RSCIZ

CCRYCLF><LF>/0ONE CYLINDER

020052
051522

MSG108.

. ARSCiZ

(CROCLF)>/ x REVERSE/

041503
044524
040505
042105
020052
051101

MSG11R

ASCi2Z

CCRYCLFICLF>/RCCESS TIME MERSURMENT/CCRYCLF)>/

051040
042523

MSG11B.

ASCIZ

(CRYCLF>/

040515
020115
052040
005015

MSG12R:

ASCIZ

CCROCLFDICLF>/NMAXIMUN SEEK

PERFORMED/

SEEK

TIMES/CCR>CLF>/

% FORWARD/

X FORWARD/

% REVERSE/

TIMES/CCR>CLF>/ %X FORWRRD/

9362
9363

CZRJIAC RPON/S/6 MECHANICAL n:o READ/WRITE TEST
MACY11 30R(1052)
CZRJIAC P11
27-JUL-78 09:
RSCIZ MESSAGES

09 24

0% 3040
042122
020012
042526

051117
000
020052
051522

HSG128

RSCIZ

(CRYCLF)>/ % REVERSE/

005015
000
015
000075
005015
000
060
ON1040
052040
07111
ON74%0
oo
020105
00515
020115
051440
052040
000
ou0
O4524
020040

044515

036516

MSGMIN

RSCI12

CCROCLFY/NIN=/

oueu12

054101

MSGMAX

ASCiIZ

(CROCLFY/MRX=/

053101

036507

HSGRVG

RSCI1Z

CCRYCLF>/RVG=/

052440
046105
042510
046511
020106
O%1101
o412y

(10123
0 3517
O 440
046525
000
053117
020105
052515
000040
051513
042105

MSGOUS.
MBELOW

ASC12
. RSC12

/0 US/
/ BELOW THE MiNIMUM OF /

MRBOVE

RSCi12

/ RBOVE THE MAXIMUM OF /

MSGNUN

RSCi2

/ SEEKS TIMED/

MSGNON

RSCIZ

/ NOT

MSG SP

RSC12Z

122
ou7111
050128

RELEPE
Senzan

14
27-JUL-78

025040
0nN0527
015
02522
000105

OM4530
043117
042505
046511
047516
042515
000

020124
000104

SBTTL

062503
024040
036440
07125
052103
062124
oN7117
061126
00616
020123
06862y
061117
036606
116
061626
062111
0n7622
036522
101
0615623
020107
082507
051440

030510
042524

- THO
(EM)

(2)

SPRCES

MESSAGES

EM1

RSCI12

/RH11

En2

RSCiZ

/UNEXPECTED ATTENTION OCCURRED/

EM3

RSCIZ

/MASSBUS PARITY ERROR(MCPE=1)/

041123
051101
051105
040520

EMY

ASC12

/MASSBUS PARITY ERROR(PAR=1)/

042522
052514
047101
052111

EMS

RSCI1Z

/RDDRESS PLUG CHANGE BIT SET/

020061
051122
041517
042105

051501
000051
0%2520
040440
O%u524
041503
000104
052502
044522
061122
050103

000

177

TIMED/

ERROR HERDER

PRAGE

INTERRUPT OCCURRED (RPRS = 0)/

SEQ 0173

F 1y
MACY11 30A(1052)
27-JUL-78
CZRIAC RPOM/S5/6 MECHANICAL RAND RERD/WRITE TEST
CZRJIAC P11
27-JWL-78 09 18
ERROR HERDER (EM) MESSAGES

TM18
TM19
%20
21
Mz2
w23

04273
O%% 300
044 306
0NN 314
04322
O%4330
O%% 3136
Ok 34y
On4 351
O%4 356
O%
s 364
04372
O% %400
0% 4406
Oweb1y
04422
Ow4430
O%4433
Owhys0
(L LLTY
Ou 45y
Ov4460
O%4Y466
O47y
044502
Ov4510
08512
O%4520
44526
ON453%
O4SN
2
044560
O4566
O%4561
O%4566
OnN5E7Y

122
050122
033057
0N 2514
051040
On2116
0n2101
04523
104
051440
042524
047040
0M6116
0n6511
051105
0% 250%

027461
032457
O%4501
047524
047520
020117
051505
000
042526
0% 1505
051511
O474y0
000105
050117
040505
040504

178

ASCi2

"RH11/RPO4/5/6 FRILED TO RESPOND TO ADDRESSING"

Ent

RSCIZ

/DRIVE

EM12

RSCI12Z

7/ IMPROPER HERDER DRTR/

020101
051101
ouveitt

EmM13

ASCiZ

/DATR (OMPARE

042440

EM17

RSCI12

/DISK

020113
026461
042526
020127

eEn20

. nSCIZ

/CLOCK

020113
020122
043516
000113
047040
046517
020105
047111
Ou6440

ENZ23

RSCI2Z

/DISK ERROR DURING SEEK/

EM24

AsSCIZ

/SEEK NOT COMPLETE WITHIN

051057
027465
047522

EMY1

RASCI12Z

"RH11/RP0Y4/5/6 ERROR"

020114
020105
020113
000122

EMYE

RSCIZ

/FRTAL

SELECTED

ERROR

IS NOT

ONL INE/

FRILURE/

IN TIMING

TEST/

044515
051505
(KW11-P) OVERFLOW

IN TIMING TEST/

046511
042524

0872

061127
ou%103
061105

.SBTTL

044724
044732

PAGE

Emo

ON4440

0%%602
0%%610
ON4616
0% 4624
Ov4632
0%46A0
OveeM6
0%4660
044666
0% 4664

ONN67%
0% %702
Ou«710
OuN716

030510
032060
0% 3040
020104
051505

09 24

03117
020105

047111
052440

MSGB1Y

STATUS/ERROR
RSC12

120 NS/

WRITE CHECK ERROR/

INDICATOR MESSAGES

/O0FFLINE OR UNSAFE

DR1VE REQUESTED/

StQ 0174

CZRJAC RPOU/5/6 MECHANICAL AND READ/WRITE

CZRIAC. P11

Falb,
M5

W76
MN7?

0NN

27-JuL-78 09: 18

0% 3101
053111

TEST

G 14
27-JUL-78
INDICRTOR MESSAGES

MACY11

STRATUS/ERROR

30A(1052)

09 24

PAGE

179
SEQ 0175

020105
020105
051505
042101
044522
050505
042105

HSGB13

RSC12

/UNLORDED DRIVE

044523
020124
042506

MSGB12

RSC12Z

/PERSISTENT UNSRFE/

052111
04?7522
052503
000
046101
052111
04?522

MSGB11

RSC12

/PARITY ERROR

MSGB10

RSCIZ

/FATAL

040527
046511

MSGBO9

RSCI12

/SOFTHARE

TIMEOUT ON THIS DRIVE/

MSGeos

RSCI2

/SOF THARE

TIMEOUT ON ANOTHER DRIVE/

MSGBO6

RSCI2Z

"ERROR

MSGBOS

ASC12Z

"ERROR OCCURRED DURING NON-1/0 OPERARTION"

MSGBO4

RSCi12Z

/UNSRFE OCCURRED/

MSGBO3.

. RSC12

REQUESTED/

OCCURRED/

PARITY ERROR/

047440
051511

042526
053524
044524
020124
047516
042040
000
051117
051125

OCCURRED DURING

(/0 OPERRTION"

052504
O%4440
042520
oN711?

051117

051125
052504
047040

047457
080522
000
0% 3101
052503
000
046517
051040
ou1111
051440
041516
052503

ZRAUTOMATIC

RECALIBRATE

SEQUENCE OCCURRED/

(ZRJAC
CZRIAC

9530
9531
9532
9533

H 14
RPO4/S5/6 MECHANICAL AND READ/WRITE TEST
MACY11 30R(1052)
27-JUL-78
P11
27-JUL-78 09 18
STATUS/ERROR INDICATOR MESSAGES

Ou5412
OM541?
OM5424
045432

051122
10%
0OM4OMO0
052117

0%2105
044522
051501
051040

042525

052123

9534
9535
9536

OM5480
OwS46
OM5MEN

087520
05200
052122

9538
9539
9540
M1
M2

OM5M67
OuS47%
Ou5502
OM5510
045516

10%
Ow4OM0
041505
OM7516
051511

9537

ON5462

000
042526
047040
051505

0OM2116
020117
051040

042105
047520
050505

044522
051501
06517
026516
042524

082526
01040
020105
054105
052116

000

FCabd
gz

09 24

PAGE

180

StEQ 0176

MSGBOZ

RSCIZ

/DRIVE HAS NOT RESPONDED TO PORT REQUEST/

MSGBO1

ASCIZ

/DRIVE HAS BECOME NON-EXISTENT/

SBTTL

DARTA HERDER

(DT) MESSAGES

M7
M8

0M5E525
Ou5532

105
020103

051122
051040

050040
040520

DH1

ASCIZ

/ERR PC

RPRS/

9550
9551
9552
9553
9554
9555
9556
9557
9558
9559
9560
9561
9562
9563
9564
9565
9566

OM5542
085550
Ou5566
On5564
OM5572
OM5600
ON5606
OM561%
045622
085630
045636
Ou564%
O0v5652
045660
ONE6656
O0M6672
085700

051105
020040
020105
061501
060122
020040
020061
051105
050122
OM252%
020040
OM1520
051108
OM0S0M
124
020080
060040

020122
051104
020040
020040
051508
050122
020040
020062
051105
052123
061106
020040
051505
OM0524
061506
02440
020103

041520
053111
050122
020040
020061
051105
050122
020040
000063
020040
020122
04210%
020123
000
020124
051122
040440

DH2

RSCIZ

/ERR PC

DRIVE

RPRS

DOH3

RSCIZ

/TEST

ERR PC

ADDORESS DATA/

DHY

RSCIZ

/TEST

ERR PC

ADDRESS GODATA

BODATA/

TST PC

CYLNDR

9567
9568
9569

0465706
ON671%
086722

Ov210%
OM3ING0
$20101

9571
9572

O86?3n
On67v2

060122
020040

061503
061106

020061
020122

OH10

ASCIZ

/RPCS1

ERR PC/

%7
9576

108
020080

084522
OM2480

042526
051122

DH11.

.RASCIZ

/DRIVE

ERR PC/

9577
9578
9579
9580

ONE7S3
ON6760
046766
On6772
ONG000
OM6006
OM601%

0MN262%
020080
041620
02012

062123
061106
020080
081520

020040
020122
051524
020040

DH12.

.ASCI1Z

/TEST

ERR PC

9582

046030

020040
1104
1501
2523

064503
020040
020113
052103

047114
051124
020040
051117

0n6022

108

042522
ON2104
OMIOMO

063111

RPDS1

RPER1

RPER2

RPER3/

TRACK

SECTOR/

051523
052101
OMZ210M

020105

DRIVE

—

(ZRJAC RPO4/S/6 MECHA ICAL AND READ/WRITE TEST
MACY11 30A(1052)
27-JUL-78
CZRJIAC P11
27-JuL-78 09 18
DATR HEADER (DT) MESSAGES
9586
9587
9588
9589
9590
9591

0% 6060
046061

0% 6066
06074
046102
046110
%6116
0%6124
046132
O%6140
6146
046154

000
107
020080
0%5522
051504
ON1080
020040
0n5522

051504
0N 2107
020040
020124
OTM 1508
0nN2107
020080
000122
082524
020040
-, OM1520
063111
060122
020040
020061
051106
060122
020040
000063
0% 2524
020040
0% 1520
020124
05110%
020040
05110%
0% 1501
042107
020040
02012v
0% 1504
042523

031122
051040

09 24

PAGE

181

Stq 0177

BDSCTR/

0% 1504
0% 3440
020040
052103
0% 1504
Ov10%0
020040
052103
0% 0504
082102
020040
052116
0% 2101
042102

046131
052104
04 3440
020122
046131
052104
041040
000122
020124
040504
051127
020040
020122
02101

DH12A

RSCI12

/G0CYL

GDTRK

GOSCTIR

BDCYL

BDTRK

DH13R

RSC12Z

/GDDART

BODAT

WRDCNT

GDROR

BDRDR/

052123
051105
020040
020105
051503
050122
020040
020061
051105
050122

020040
020122
051104
020040
020061
051504
050122
020040
020062
051105

DH17

RSC12

/TEST

ERR PC

DRIVE

RPCS1

RPDS1

RPER1

052123
051105
020040
OnN1520
053111

020040
020122
051524
020040
020105
047114
051124

DH21

RSCI12Z

/TEST

ERR PC

TST PC

DRIVE

CYLNDR

TRRCK/

02012%
040504
051127
020040
051117

DHZ1R

RSCI12Z

/GDDAT

BODAT

WRODCNT

SECTOR/

051506
082440
020103
0% 2526
ON6131
061040
020040
031123
0N2120

020124
051122
042040
020040

ODH23

AsSCI12

/TEST

ERR PC

DRIVE

CYLNDR

RPCSY

RPCSZ

082620

030522
042520

DHZ3A.

. RSCI2Z

/RPER1

RPER2Z

RPER3

RPCA

RPCC/

054503
0Z00M0
000113
0% 0504
042102
020040
062116
062103

042116
041520
051040
020040
030523

020101

RPERZ

RPDS1/

RPER3/

J 14
CZRJIAC RPO4/5/6 MECHANICAL ANO REARD/WRITE TEST
MACY11 30R(1052)
27-JUL-78
CZRJAC P11
27-JUL-78 09 18
DRTR HEROER (DT) MESSAGES

0% 6544

020040
000103
QM 2524
020040
081520
020124
051108
0N 2524
020040

ON1520
02012%
051108
020040

051040

041520

052123
051105
020040
041520
053111
052123
051105
020040
ON1520
053111
050122
020040
020062
051504
051105

020040
020122
051524
020040

050122
020040
000063
051503
050122
020040
020061

09 24

PRGE 182

StQ 01/8

DHu41

RSCIZ

/TEST

ERR PC

TST PC

DRIVE/

DH42

RSCIZ

/TEST

ERR PC

TST PC

DRIVE

RPCS1

RP(S2

DHY4 3R

ASCIZ

/RPER1

RPERZ

RPER3/

020061
051503
050122
020040
020040
040503
050122

DH44A

RSCIZ

/RPCSY1

RP(S2

RPDS1

RPCC

RPCA

RPDR/

030522
042520
051040
000
030522
042520
051040
020040
020103
041120
051040

DHuyB

RSCIZ2

/RPER1

RPER2

RPER3/

DH4Y45R

RSCIZ

/RPER1

RPER2

RPERI

RPHC

RPBA

RPDB/

000105
020040
020122
051524
020040
020105
051503
050122
020040
000061
020061
061105
050122

RPD31/

EVEN

047106
0N7112

047120
07126
04?130
087136
047140
On7146
047152
ou7160

. SBTTL

DRTR TRBLE

(DT)

DT1:
0T2:

.WHORD
. HORD

SERRPC,SREG3
SERRPC, SREG1, SREG3, RPERRS. RPERRS+2, RPERRS+4, RPERRS+6
STHPO, SERRPC, RD. RDR, RD WRD

001170
001164
034352

001170
034354

001116

041510

0T3:

. HORD

001116
041512
001116
034350

041734

DTh.

WORD

STHPO. SERRPC,
WRT. ADR. WRT WD. RD. WRD

001164
034352

0T5:

WORD

STHPO, SERRPC, SREG1., SREGS, RPERRS, RPERRS+2, RPERRS+4, RPERRS+6

-0

)
d

001162
00127y

09 24

PRGE

183

PH ROR, SERRP(
SREG2. SERRPC
STHPO, SERRPC. SREGO. CHKDRV, CYL. DS. TRK DS, SEC 0S

DT12R

WORD

CYL DS, TRK DS, SEC DS.CYL RD.TRK RD.SEC RD

DT13

WORD

$THPO, SERRPC, SREGO. CHKDRV., CYL DS, TRK DS.SEC DS

0011?72

DT13R

WORD

SGDORT. SBDDAT. SREGY4., SGDROR . $BDADOR

001254
004220

oT1?

WORD

STMPO. SERRPC. CHKDRV.RP REG.RP REG+12,RP REG+14,RP REG+40.RP REG+42

001162
001274
001172

D121

HORD

STMPO. SERRPC, SREGO, CHKDRV, CYL DS, TRK DS

DT21R

WORD

SREG1. SBODAT,
SREGY., SREG1

001254
00421y

DT23:

. HORD

STHPO, SERRPC, CHKDRV, CYL DS.RP REG.RP REG+10.RP REG+12

004246

OT23AR

. WORD

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

001162

OT41

. WORD

STMPO. SERRPC. SREGO. CHKDRV

001162
00421y

DT42

. HORD

STMPQ. SERRPC, SREGO, CHKDRV, RP REG.RP REG+10.RP REG+12

001162
004214

DTH3.

. HORD

STMPO, SERRPC, SREGO, CHKDRVY. RP REG, RP REG+10,RP REG+12

004246
001162
001274

DT43A:
DT4u:

. WORD
. WORD

RP. REG+14,
RP REG+40.RP REG+42
STMPO. SERRPC, SREGU. CHKORV, CYL. DS, TRK DS, SEC DS

00%216
004212
004246
001162
001274

DT4uA:

. WORD

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

DTH48:
DTuS:

. WORD
. WORD

RP REG+14,
RP. REG+40,RP REG+42
STMPO. SERRPC, SREGO. CHKORV, CYL. DS, TRK. DS, SEC. DS

004216
004212
004246
004226

DT45R:

. WORD

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

DT45B:

. WORD

RP. REG+14,
RP. REG+40.RP REG+42, RP. REG+2, RP. REG+Y4,RP. REG+22

DATR FORMAT (DF) TRBLE
. WORD
BYTE
.BYTE

OF2

WORD
BYTE

2
0
-

1.
OF

000

000001
007

27-JUL-78

001272
001266
001162
001274

SBTTL
000001

WORD
WORD
WORD

9§9§99§9
BT

0N7216

034354
001366
001166
001176
001254
001272
001270
001262
001176
001254
001272
001124
001120
001176
00N 204
00 244
001176
001254
001164
001164
001176

000

0n?7166
0N7172
0N7176
0N?202
0n?7210

ol
gl sl

CZRIAC RPO4/5/6 MECHANICAL AND READ/WRITE TEST
MACY11 30R(1052)
CZRJAC. P11
27-JUL-78 09 18
DATA TABLE (DT)

+NUMBER OF DRTR HERDERS

~NUMBER OF WORDS IN DRTA TRBLE
+ALL 3 NUMBERS ARE OCTAL

SEQ 0179

047550
047552
07553

000001
004
000

a1 gy {

0% 7554
0% 7556
07557

000001
005
000

4
OF

WORD
BYTE
BYTE

047560
047562
07563

000001
002
000

OF10

WORD
BYTE
BYTE

047564
047566
0N7567

000001
002
000

OF 11

WORD

047570
0?7522
M7573
07574
047576
n757?7

000002
00?7
160
046061
006
000

OF 12

WORD
BYTE
BYTE
HORD

047600

000002

DF13

047603
0% 7604

0% 7606
0% 2607

00?7
160
ov6140

BYTE
BYTE

BYTE

005
00y

HORD

DF 14

047614
047616
047617

000001
010
000

DF1?

WORD
BYTE
8YTE

047620
%7622
04?623
07624
07626
on762?

OF 21

WORD

047630
047632
047633

DF 22

WORD
BYTE
BYTE

0763y
%7636
047637
087640
O47eu42

DF 23.

. WORD
BYTE

SEQ 0180

OoOFfrovre—

12R

.2 DH'S TO BE TYPED
.7 DATA WORDS FOLLO:: 'TME 1ST DM
.HORDS 1-4 ARE OCTAL >-7 ARE CECIMAL
. ADORESS OF 2ZND DH
.6 DATA WORDS FOLLOW THE 2ZND DH
-ALL

WORDS RARE

OCTAL

~WORD

1S DECIMAL

+HWORD 4

S DECIMAL

WORD
BYTE
BYTE

000000
005
00y

184

,HORD

BYTE
BYTE
WORD
BYTE
BYTE

047610
047612
047613

PAGE

ON-—

BYTE

HORD
BYTE

09 24

FNO—=NN

047602

BYTE

1y
27-JUL-78

000

E£NO

9783

047547

—

9754
9755
9756
9757
9758
9759
9760
9761
9762
9763
976M
97¢5
9766
9767
9768
9769
9770
9771
9772
9773
9774
9775
9776
977?
9778
9?79
9780
9781
9782

ON=-—

AND RERD/WRITE TEST
MACY11 30R(1052:
27-JuL-78 09 18
DATR FORMAT (DF> TRBLE

O0COD=NN

E%:jg% g:?H/S/G PECHANICAL

6
H13A
DECIMAL

BYTE
BYTE

WORD

BYTE
BYTE

BYTE

. WORD
BYTE

(ZRIRC RPO4/S/6 MECHANICAL AND READ/WRITE TEST
MACY11 30R(1052)
27-JL-78 09 18
CZRJIAC P11
DATA FORMAT (DF) TABLE

WORD

047650
047652
047653

DFy2

WORD
BYTE
BYTE

0% 7654
047656
07657
0% 7660
0N7662
047663

DF43

. WORD
BYTE
BYTE
WORD
BYTE
BYTE

047664
0% 7666
0N7667
047670
047672
047673
0472674
047676
0N7677

DF 4Y4

HORD
BYTE

047700
0877202
047703
047704
047706
047707
07710
047712
04?713

DF 45

BYTE
WORD
.BYTE
BYTE
WORD
. BYTE
8YTE
WORD

. BYTE

. BYTE
WORD
BYTE
.BYTE
HORD
BYTE
BYTE

StQ 0181

H43A

HY4RA

H448

BYTE
BYTE

185

of—

DF 41

ON=-

000001

PRAGE

OWDONN

04 764 Y
047646
ON7647

BYTE

OW OO00D—=
N

000

09 24

9821

O47643

oo O=—=NW

9810
9811
9812
9813
981y
9815
9816
9817
9818
9819
9820

no1y
27-JUL-78

HY4R

H45A

EVEN
BUFFER=
TITLE:

LORDRVY

020105
023520

!
RSCi

CCRICLEDCLFY/C2RIARC/CCRICLF)Y

RSCI2

ORPO4/5/6 MECHANICAL & RERAD-WRITE

RSCII

(CROCLF>/TO TEST ORIVE

O REPLACE

TESTRCCRICLF>CLF)>

THE

'XXDP

PRCK ON DRIVE

O/<CR>LF>

9866
9867
9868
9869
9870
9871

AR R AR REREER AL ER R LERE L §33 3

9872
9873
9876
9877

050044
050052
050060
050066
05007%
050102
050110
050116
050124
050132
050140
050146
050154
050160

050040
0nN?11?7

33993973299
P ED SR
T

CZRJIAC RPON/S/6 MECHANIC
AND REARD/WRITE TEST
MACY11 30A(10%2)
CZRJRC P11
27-JUL-78 09. 18
DRTR FORMAT (DF) TRBLE

051505

051120
006515

9881
9682

020113
0%4522
005015
ON0M%0
051105
026113
051101
051117
040503
032040
042116
0%0524

052123
051501
0u6uN0
026131
050104
0% 2101
O46111
047440
oun522
005015

NOLORD

27-JuL-7?8

RSCIT

/WITH ANCTHER

PRC(K.,

RSCIZ

/THE

ARSCIZ

<(CRYCLF>/SYSTEM HAS

09 24

C(LEAR

PAGE

186

StQ 0182

MEMORY LOCRTION 40.

AND RESTART/((R)>CLF)>

PROGRAM/CCRYCLF)

16K MEMORY,

"XXDP' LORDER

W!ILL

EVEN

SBTTL

ROUTINE

TO SIZE MEMORY

P
R R
PRt 0P 0ttt iRttt eiestoiessstisssss]
- SCALL
» ¢
JSR
PC.9S12¢
. ¢
RE TURN
+BSLSTRD WILL CONTAIN
THE LAST AVAILABLE MEMORY LOCRTION

$S1ZE

00000y
000006
.. SET

000006
050340
020000

000002

010137

000006
000004
050370

MOV
RO, -(SP)
.. SAVE
MOV
R1,-(SP)
.. SRAVE
MoV
SBERRVEC, -{(SP)
., SRAVE
MoV
SRERRVE(C+2,
- (SP)
MOV
SP. RO
., SRVE
THE ERRVEC PS TO THE PRESENT PS
TRAP
»»PUSH

MOV

000004
19
29

(SP)+, JRERRVE(C+2

RO ON THE STRCK
R1 ON THE STRCK
PRESENT ERROR VECTOR PS & P(

THE

STACK POINTER

OLD PSH AND PC

.+ SAVE THE PSW

MOV

£29, d8ERRVEC

1ST
TST
BR
SuB
MOV
MoV
MOV
MoV

(R1)
.. TEST THIS RDORESS
(R1)+
. STEP TO NEXT ADDRESS
19
+; TRY RNOTHER
#2.R1
.. DROP BACK
RO. SP
;. RESTORE THE STRCK
(SP)+, JRERRVEC+2 , ,RESTORE ERROR VECTOR
(SP)+, 9RERRVEC
R1,SLSTRD
.- LARST RDDRESS

MoV

#20000. R

.. SET FOR

ON STRCK

TIMEOUT

;. FIRST RODDRESS

IN QRERRVEC+2

OVERWRITTEN/CCR>CL

CZRJIRC RPOY/5/6 MECHRNICAL AND RERD/WRITE TEST
MACY11 30R(1052)
CZRJIAC .M
27-JWL-78 09- 18
ROUTINE TO SIZE MEMORY

9922
9923
9924
9925
9926
9927
9928
9929
9930
9931
9932
9933

050362
050364
050366
050370

012601
012600
000207
000000

SLSTRD:
IR

MoV
nov
RTS
. WORD

8 15
27-JUL-78

PRAGE

187
StEQ 0183

(SP)+,
k1
(SP)+, RO
PC
o

22030000000 00000000

09 24

. RESTORE R1
.. RESTORE RO
;. CONTRINS THE

LAST RDDRESS

3083808000330 30300008308308330900000000844F

SBTTL
GETROR - GET BUS RDORESS AND VECTOR RDODRESS
+THIS ROUTINE IS USED TO ENSURE THE BUS RDDRESS
+OF THE RH11/RPONM IS SETUP TO READ THE PROPER VALUE.
1T WILL ALSO RERD THE RDORESS FROM THE TTY IF

+REQUITED
+NOTE: 11 S ROUYINE DESTROYS RO-RY
. CALL
,

005737
001433
012700
012703
011004
008?737

001226

GETRADR.

001226
001366
050560

050602
031520

050571

050602
031520

000004
050526
130662
000004

39
59

000004

001366
034516

000004
000042
001232
017542
017366

8s.

JSR

PC. SRGETRDR

TST
8EQ
CLR
MOV
MoV
MOV
JSR
JSR
B8R
B8R
8R
MOV

o#BUSADR
79
o#BUSRDR
#RH ADR. RO
$MRPCS1,R3

RETURN

MOV

MOV
JSR
JSR
8R
BR
BR
MOV
MOV
MOV
nov
TST
MOV
MOV
MoV
MOV
MOV
RYS
MoV
CHP

ERROR
TST

8EQ
CLR
CLR
JHP

(RO).RY
PC, CLRBF
RO. o8 GE TNUM
29
1§
39
R4, (RO)+
SMRHVEC,R3
(RO).RY
PC. CLRBF
RO, o8GE TNUM

RY, (RO)+
RY, (RO)

SRERRVEC,
R1
#8S. JSERRVEC
oRH. ROR
R1, JMERRVEC
#RH. ROR,RD
#RPROR.
RY
(RO)+, (R1)+
(RO)+, (R1)+

PC
R1, SRERRVEC
(SP)+, (SP)+

10
L LY
19
S#DRVSEL
SRSEOPCT
S SEOP

» INPUT FROM TTY REQUESTED?
» NO--BRANCH
. YES--CLERR THE REQUEST FLRG
;FIRST RDORESS
;"RPCS1="
;PRESENT RPCS1 RODRESS
.CLERAR INPUT BUFFER
;GET NEW RP(CS1
; COMMA
;PERIOD
.DOUBLE PERIOQD
. SAVE NEW RP(S1
. "RHVEC="
,PRESENT RH11 VECTOR ADDRESS
.CLEAR INPUT BUFFER
,GET NEW RHVEC

., COMMA

;PERIOD
. DOUBLE PERI0D
;SAVE NEW RHVEC
. SRAVE INPUT
oSAVE THE ERROR VECTOR
.SETUP FOR TRAP
. CHECK FOR RM11/RPOM
;RESTORE ERROR VECTOR
.FIRST RDDRESS OF NEW PARAMETERS
,FIRST RODRESS Of WHERE TO PUT THEM
. BUS RDDRESS
.VECTOR ADORESS
,RETURN
,RESTORE ERROR VECTOR
cCLERN OFF THE STACK
.REPORT THE ERROR
, 1S THERE R MONITOR?
.NO--GO RSK FOR RDDRESS
. YES--NO DRIVES SELECTED
.NO PRSSES
.G0 TO END OF PROGRAM

C 15
CZRJIAC RPOM/S5/6 MECHANICAL ANDO RERD/MRITE TEST
MACY11 30R(1052)
27-JUL-7?8
09 24
PRGE
CZRIRC P11
27-JUL-78 09: 18
GETAOR - GET BUS RACDRESS AND VECTOR RDDRESS

9978
9979
9980
9981
9982
9983
9984
9985
9986
9987
9968
9989
9990
9991
9992
9993
999%
9995
9996

050560
050566
050571
050576

005015
Cle461
015
041505

050122
000
051012
000075

051503

MRPCST:

. ASCIZ

CCRYCLF)/RP(CS1=/

053110

MRHVEC:

. ASCIZ

(CRYCLF)/RHVEC=/

230202003 200009000003233+9833000082082094
;ROUTINE TO CLEAR INPUT BUFFER FOR NEW (St

188

AND VEC

’

010046
010146
012701
012700
005020
005301
001375
012601
012600
000207
000001

CLRBF000010
022522

1§

END

MOV
)

RO. -(SP)
R1.-(SP)

BNE

(RO)+
R1
1§
(SP)+,R1
;%P)+,RO

MoV
MoV
(LR
DEC

MoV
MOV
RTS

$10.R1
8STTYIN,RO

, SRVE RO

, COUNT 10 LOCRTIONS
.START ADR OF INPUT BUF

,RESTORE RO

SEQ 0184

D 15

(ZRJAC RPO4/5/6 MECHANICAL RAND RERD/WRITE TEST
MACY11 30R(1052)
27-JUuL-?8
09 24
CZRJRC P11
27-JWL-78 09: 18
CROSS REFERENCE TRBLE -- USER SYMBOLS

AMS
=
ACL
=
ACTORY
ACTSTR
ACU
=
AOE
=
ATA
=
ATABIT
AT0
=

AT
AT2
AT
ATY
ATS
AT6
at?
A16
A17

BRI

8I1TS
8170
81700
81701
81702
81703
8tTOMN
8ITOS

81706
81707
81708
8IT09
81Tt
81710
8I1T11
81712

=
=
=
=
=
=
=
=
=z

000200
000040
03443y
034435
100000
001000
100000
034504
000001

=
=
=
=
=
=
=
=

001424

000001
000001
000002
O00NOM
000010
000020
0OOOMO0

15968
15954
15944
15934
15928
15914

000002
000004
000010
000020
0000OMO0
000100
000200
000400
001000

000100
000200
000400
001000
000002
002000
004000
010000

81713 = 020000
BtTiy = 040000

BiIT15 = 100000
BIT2
BI1T3
8iTy
BITS
81T6
8177
8I1T8
8IT9

=
=
=
=
=
=
=
=

79598
7965¢
17968
17138
17008

3286
17338
17348
17358
17368
17378
17388
17398
17408
16318
16328
16498
20148

= 000010

=
=
=
=
=
=
=

18078
18418

000004
000010
000020
0000MO0
000100
000200
000400
001000

SPTVECs 000014
BUFFER= ON7714

18508
821812
8841z

82893
88561

36022

861132

8839

7305

7311

8031#

820u

8301

3481

3519
4575

4704

4750

4824

2014
2015
2016
2017
2018
2019

2030
2031
2032
2033
2034
2035
4362

3257
3260
6182
6482
6479
3918
\ 367

3274
6445
6445
8724
3759
3934
4425

2021
2022
2023

2020

2036
2037
6473
5040

6485
8213
8213
5665

8213
8480
8902
6488

8887

5024
5672
6445
8975
5031
3929
8314
6637
8739

6131
6476
6479
9032
6445
4135
8684
6638
8749

6445
8168
8163
9099
6473
4149
8826
8266
8759

6476
8305
8195

8323
8213

2719
4880
6836

4886
6860

4292
16068

4504

4268

4345

8739
15904
1589¢
15884
15874
160548
15864
15854
15844
8749
15834
1582¢
6479
15814
8637
16048
160348
16028
16018
16008
15994
15988
1597%
16134
2671
4864
6816

8278
8949

3562

3602

8266

W23y

8942
8278
8826

PRAGE

190

SEQ 0185

8406

8765

8784

8792

8809

8915

3682

3725
4913

3775
7372

3875
7403

4032
7420

4998
7473

4202
7647

3296
6473
6476
9037

3349
8281

6119
8528

4010
Y4y3

4140
4460

4154
4465

4169

417y

6592

4239
8121

4263
8548

8272
8623

8724

8346

8637
8739

9098
8759

8788

9070

8530
8499
8283

8810
8317

8495

8514

8526

8539

4420
9096

4438

5647

6373

6445

8314
8942

8317
8949

8499

8528

8530

4593
6561
7083

4603

4617
6563
7101

4738
6636
98494

Y840

7666

8697

8987
8281
8887

8978
4340
8991
8283
8902

4537

4550

4322

6482

8307

2695

4872

6835

2743

3895

4894

6949

4522

6556%
6981

6557
7024

6559
7066

6562
7084

6673

tE 15
CZRJIAC RPOU/5/6 MECHANICRL AND READ/WRITE TEST
MACY11 30R(1052)
27-JUuL-¢8 09 24
CZRIRC. P11
27-JuL-78 09: 18
CROSS REFERENCE TRBLE -- USER SYMBOLS
BUSRDR
BYPRSS

001226
001252

R
CALL.
CALL.
8

025034
025146

CALL C
CHKDRV

025336
001254

036056
036164
036272
036650
036672
036706
036734
037006
030012
104407
033770
033742

O34 0uY
034230
033714
001244

CLOSE
=
(LR
CLRBF
CLRBUF
CLRQUE
CLSHDS
CNTRLC
CoOMMA
COUNT
z
CR

027122
000015

=
CRLF
=
(SF
(SU
=
CyL.0S

000200
000002
000010
001270

CYL.RD
C. SR

001262
001220

033634
000040
050602
027744
042520
033534

001224
0N 3271

030452
100000
000100
000001
177570

027662
007066
001350
000040
000002

19518
19608
45852
3353
3465
3749
3500
19618
9728
8336
8338
8327
8386
8424
8268
8453
8498
8496
4536
5014
7239
7697%
7299
7248
7352

19568
7637
16518%
9945
4533
3901
7621
19504
3314
4158
15214
9333
9869
15228
17838
17854
19684
9704
19654
19484
6209
4790
17194
18424
18488

15288
68014
354448
19894
16908
16864

31322
33473

47393

3355
3501
3751

4052

33263
9732
8l6us
8387¢
gw08s
8407
843y
8345
8457
8501¢

8504
68574
5039

7289
7727
7537
7569
7356
3318
7641

9953
68338
8103
7625
3135%
93148
4243
19468
9338
9879
5190
18018¢
18034
39212
9706
6561%
3273
6287
6980#

3134
34618
48352
3464
3537
3753
6299¢
3331
9738

31372
34972
6427
3808
3545

PAGE 191

StQ 0186

37382

378912

39022

4ou9s

45142

3755
6302
3336

912
36152
7118
62258
3625
4053

36953

3579
kv4-Y4

9939
3575%
7053
4932
3584
3830

6228
3631
62564

6571
J6u?

3653

3701

3703

3747

4958

6170

9701

9706

9711

9714

9718

9723

9725

485t
8436
8376
8467
8778
8513%

BY49Y
8438
8380
8478

84908
8384
8493

8392
84958

8401
8597

8405
8627

8416
8776

8423
9082

8429

8433

8447

8650

8934

5646
7516

57764

3139%
35322
6907

4927

6259

7553

7593

77198

7756

7769

7780

7831

78148
7380
3937

76794
4108

7816
V212

7826
4302

4400

6049

6051x%

6057x

85u47
76284
31402

8912

91664

3226

3270

4332
4951
9345
9882
6229

4350
4982
9348

4430

Y448

66524

7206
9364

7286
9368

9283
9370

9289
9372

9308
9851

9315

9978

5219
9355
9980

9853

9325
9860

6233%
9714

6264%
9718

6307%
9732

6356
9738

6386X

6412%

65662

6604%

69232

7037x

9701

3276
6330

3291
6428

3349
6512

3617
7208

4122
7212

4178
7213%

Y842

6064

6074

608y

6119

3984x

3985

3987x

3996

77504
7602
7376

3907
76508
99864

9704

5229
9358

18514
1919

3168

3548
3893%

3983%

CZRJAC RPOY/5/6 MECHANICAL AND READ/MRITE TEST
MACY11 30R(1052)
27-JUL-78 09 24
CZRJAC. P11
27-JUL-78 09: 18
CROSS REFERENCE TRBLE -- USER SYMBOLS
OFLY
OF 1

001664
047540

21068
2832

6108
97484

Of 11
OF12
OF13
OF 14

047564
047570
047600
047610

2906
2919
2932
ZN0

97688
97728
2953
2961

Of 2
Of 21
Of 22

0% 7544
047620
047630

OfF 10

047560

OF1?

OfF 23
OfF 3

OF 4
OF 41
DF 42

oM?61Y4

2971

047634
047550

3014
2852

047554
0% 7644
047650

DF43
OF 44
DF 45
DH1
DH10
OH11
D12
OH12R
DH13R

047654
047664
047700
045525
045734
045753
0u5772
OM6061
046140

DH17?7

046206

DH2
DH21

28%

Ou5542
0% 6 304

2842
29N
3002

2862
3059
3069

3081
3096
3111
2830
28%
2904
2917
95878
95958

2969
2840
2992

2981

2872
9798
98018

3026
97564

982148
98284
3126
95478
95714
95748
2930
9775
9782

2979

2870
96134

96218

9797

DHY4
DHY4 1
DHY4 2

045665
046554
o%6612

2860
3057
3067

9564
s
6uuE
3079

DH4IR
DH44R
DH448
DH4SR
DIGB
=
OISPLA

DISPRE

LT
DL64
ondD

DORT!
DPB.R

046700
046726
047003
047031
000004
001142

000174

= 100000
= 000020
= 000001

027054
004104

DPB.B

004124

OP8 C

00414y

3012
96378
2850

96588
96628
96708
96748
1687¢
19198
Y1058

14868

16618
16898
1723¢

3916
26668
3920
6229

26908
35418
36938
37878
62143
27148

9779%
97864

9790%

97524

9805%

97608
98134
9817%

046362

46421
046507
045630

SeEQ 0187

97648

DH21A

OH23
DH23R
DH3

PAGE 192

3024
9808
95594

9824
9831
983y
98Uy

98384

2951

3094

3109

3124

9577%

9602%
9550%
96274

96494
9841

3168%
4209%

3176%
4299%

3Ju64x
4397%

3u88%x
4511x

3526x
4582x

3569%
M711x

3609%x
4831x

3689x
4920%

3732%
5023x

3782%x
5686%

3882:x

4039%

4129
J3u2%
3921
6233

4227
3348x
3931
6234

4315
33513
3992
6235

4413
3352%
3999
6236

66234
33B4x
4001
6244

3457%
4003
6570x

3786x
4007

380ux
4925%

3811
4926x

3887%
4930x

3890%
4931x

3899
6227

3J495%
3613%
37u8x
4O43X
6279
4wOuBx

3530x
36i4x
3750%
HOMSX
6282
4OSux

3531x
3624x
3752%
4OM7X
6285
N0SS5

3533x
3630%
3?5ux
4058%

3538t
3ek4ex
3?56k
4059

3539
365212
3785k
6211%

4057%

6212%

62152

3176

3343z
3546%
Jeusz
3792%
6258
J3udx

3458%x
3I5M7
37003
38023
6260
J492x

3459%
35738
3702%
38QM
6264
349X

3u60%
3574%
37363
3831
6265
Ju96x

IJu91x
3576%
3737%
3832
6266
4OuUX

34933
35832
3746x
383ux
6267
NO46x

G 15

CZRJIAC RPO4/S5/6 MECHANICAL AND RERD/WRITE 1eST
MACY11 30A(1052)
27-JUL-78
09 24
C(ZRJRC P11
27-JUL-78 09: 18
CROSS REFERENCE TABLE -- USER SYMBOLS
DP INT

034410

DPR
= 000400
OPRQS
03u420

DRIVES
0843233
ORQ
= 004000
ORVACT
C34360

ORVCAL

025526

DRVCLR=
DRVCL1
ORVINY
ORVHSK
ORVOK
DRVQUE
ORVSEL
DRVSTR
DRVTYP

000111
025546
034746
001256
006122
0OM2616
001232
034370
034400

ORY
= 000200
OSWR
= 177570
OTROPB
004164

6303
8132

6307
8135

6308
8221%2

6309
8248

6310
8668

6322
8693

6325
8816

6328
8818x

8254
9308%

834012

8671

8830x

8881

8919

8920

89452

39708
8773

78768
87832
4530

8262
8890%
4535
4883

guu1s
8896
Y545
4889

gugsx
8903%
4552
4897

8507z

8518

85332

4609

6351
8250
3328

8309
3332x

8800
3340

3337
8276

3296x
78908
8311

3300
8113%
8315

8114z
8442

3260

6182

79064

3826%
3968

48863
63772
6413
6923

3823
3967%
4223x
Y343
45193
45502
46152
47602
48563
48912
6380
bu1Yy
6924

4346
45202
458513
46173
47703
4861
4892x
6382
6415
6950

8109
8910x

8329
8921

8385%
8985

79328
3297
17568
4526
4869
18698
3976

8123
19628
3329
8257
19538
3240
8244
8821
3243
16928
15274
27384
39593

4875

3963
63508
8157¢
3327%
33368

3962

42223
4328
45182

45492
46103

46073

47538
4851
4880%

0700
0701

= 000001
= 000002

D702
0703
OTO4
DT05
0706
070?
0708
oT1
0110
oT11
D712
DT12R
DT13
DT13R

=
=
s
=
=
s
=

000004
000010
000020
000OMO
000100
000200
000%00
047106
047172
04?176
047202
047220
047234

92068
3286%

3167
3820x

Y461
454Uz

= 010000
= 000200
034502

193

6301
79198
16938

4170
4269

OTE
OTSY
OTUK

PAGE

47553
4854

6369
6407
6606
17168
17298
3969%
888y
12478
17484
17498
17508

17518

17524
17538
17548
17558
2831
2895
29086
2918
97048
2931
2939

9688%
96994
97008
97018

2952
2960

9706%
97094

4229

SEQ 0188
8879

8917

8928

893612

861612

8689

8722

87532

876012

4625

4631

4771

4277

4787

4849

8115%
B8551x

3340x
8116%
8674

4952

81262
8682

7282%
8158x
8695

81672
8747%

73052

731132
8210%
8754x

99742
8215%

8159

8174z

8179x

818z

818912

8279

85522

3828
3974

1888z
4001

388912
40032
Y2473
4368
45252
45912
46263

3891x
4138
4248
4423
45272
45922

4598

63458

6349

8819

889%4

3323

3328

4237
4360
4521%
45892

4240
4363
45222
45902

42763
4862
4893%
6386
6423
6982

4786%
48632
u89ux
6387
6593%
7037

48382
486512
6348
6388
65%%
7038

48392
4871%
6350
6389
65952
7039

8508

8511x%

8521

8534

46208

46243

4627%

389%%

4141
4252x%
Y426

3895%

4152
4253
Y441
4Su1x

3953%

4155
4261
Y44y

Y534z
4593%
46302
4840%
4872x

45972
4632
Y8u1x

71882

7189

6358
6401
6604
7190x

8545%

8605

6356
63972
6598

8536x

4877%

6357
6399
6600

4S42x

45992
42373

48452
4878

8766

3956
4167
4264
4ys58
45432
46032
423832
4850%
48797
6359
6405
6605

8617%

H 15
CZRJAC RPOU/S/6 MECHANICAL AND READ/WRITE TEST
MACY11 30R(1052)
27-JUL-78 09 24
CZRJIRC. P11
27-JUL-78 09: 18
CROSS REFERENCE TRBLE -- USER SYMBOLS

0117
012
0121
DT21R
0723
DT23A
oY3
OTY
OTu1
0Tu2
0T43
DT43IR
DTuy
DTW4A
OTU48
0TNS
OT4SA
OT458
0TS
OVAR
=
ECH
=
EC!
=
EMPTYQ
ENMTVEC=
emt
Emo
EM11
EM12
Enil
Em?z
En2
En20
EN23
EN2y
En3
Eny
EMM1
EMNG
EMS
ERINDX
ERR
=
ERRVEC=

0N 726N
047112
0%7 304
04?7320
047330
OM73v6
047130
047140
04?7360
0?7370
047406
OM?742v
oM7432
OM?7450
ON7%6M
oN7472
04?7510
04752y
0n7152
004000
000100
00000
0OM2576
000030
OuNONS
0u4273
044351
Q44406
O%4433
O%4460
O%4110
044512
044561
Ou%610
Ou4146
044203
o44650
Ou46?24
04237
026250
040000
00000%

ERR. CT
ES. SRV
EXITO

001364
042756
006514

EXITT
EXIT1I0
EXITI1
EXIT1Z2
EXITI3
EXITI4
EXITIS
EXITI6
EXIT1?
EXITZ

006672
012022
012242
013000
013u4y
014162
014700
015276
015716
007110

2970
2841
2993
3001
3013
9721¢
2851
2861

2980
2371
97148
97168
3025

PRGE 194

StQ 0189

97118
96898
97184

9692¢
9694
97234
97258
9728%
97328
3125

97384

8550
3152%
93924
94184
4268
9318

8638
3153%

8761

2991

94354

3078

94 394

93984
babbl
514
4554
MO0l
o8

3066
4658
94138
6268

3165
9911%

3381
8704
4668
35024
3982

4oe1#
4119
4220
4310
4408
45574
46374

35494

8828

8950

3093

3108

EATIE|

6311

6360

6390

6416

64674

6608

31662
9912x%
4513
8708

31773
99193
4584
8983

5652
9920x
4713
9043

5653%
9960
4833
92604

5655%
99611
6425

5658
9963
6905

4013

40154

4182
42744
43738
LLYSY|

41868

91918%

6018%
99692
6936

6019

6024x

7051

7110

6044

9906

CZRIAC RPOY/S/6 MECHANICAL AND READ/WRITE

CZRJIAC. P11
EXIT20
EX1T21
EX1722
EXIT3

4739
4835
49358
3575

4748
48984

010072

3695

3707

37108

3833

38358

007672

EXI1T6

010336

EXIT?

EXT1
EXT10
EXT2
EXT20

=
=
=
=

010716
000001
000010
000002
000020

EXT4
= 000004
EXT40 = 00000

FEN
FER

FILBUF
FILRAN

36658

3738

3745

17638
17668
17644
17678
17658
17688

001510

20438

= 000200
= 000020

1789¢
1708¢

3800
4590

30A(1052)

3547

3576

15
27-JUL-?8

09 24

PAGE

195

StQ 0190

Y794

35884

3615

3789

MACY11

(ROSS REFERENCE TABLE -- USER SYMBOLS

016436
017214
017364
007304

EXITy

EXITS

27-JWL.-78 09. 18

TEST

3495

37604

3533

3890
4742

3891
4838

3892
4930

3620

3630

3663

3696

3708

3739

3792

4433

4518

3989
7165

4o4?7
7183

4Yous8

4057

4115

4222

4335

3793

027706
030770

4517
484N

4588
70668

68148

001524

a%gi

3;3;

18898

3348

3491

6556

3530

3573

3613

3693

3736

4You3

Y044y

4116

4591

4718

001516

ety

3694

3737

3785

3834

3889

Yous

4oué

16768
16778
16788
16794
16808
3215

3493
4752

3574

000002
000004
000010
000020
0000M0
050372

3459
4519

353

F1
=
F2
=
F3
=
F&
=
FS
=
GETROR

20468
411?

GE TREG= 000141

18824

72318

9946

9954

8523
7201%
4950

8678

8714

8775

8825

8886

8901

8939

8946

9227%

4956

4964

4981

5096

5113

5768

5769

5770

5771

5772

5774

417

424

7433

7439

7448

7465

3758

1893

3980

3985

FNT22 = 010000

GETWUM

031520

GETREQ 042672
GETSHR 031426
GNS
= X5383% U

GRV

= 000001

= 000010

18258

7209
8302
3220
1485

5776

16758

16888

99394

5777

5778

5779

5780

7205

7285

7318

GTSWR = 104406
GTTST1
032014

3209
7310

57744
73158

736M

73?27

7388

7391

GTTSTY

7335

7339

7343

7347

7351

74108%

72818
7290
7327

7291
7444

7292
7453

7293
7646

729%

7300

7301

65188

5229

3538

3546

3580

3640

3662

3704

3705

GYTST2

032100

032w42

73328

GTTSTd
GTTSTS

032uu4y
(032554

7353
7412

GT.PRM
GT.PR1
GY.PR2
HCE
=
HCI
=
HCRC
=

031656
031660
032010
000200
002000
000400

3278
72828
73128
17118
18234
1712¢

GTTST6

HY
IRE

032614

= 000011
= 002000

001514

7436

1519¢
17148

20458

7428

737%
74348

7408

74114

7477

7583

74458

3987

J 15
CZRJAC RPOM/5/6 MECHANICAL AND READ/WRITE TEST
MACY11 30A(1052)
27-JUL-78 09 24
(ZRJAC P11
27-JUL-78 09 18
CROSS REFERENCE TRBLE
USER SYMBOLS
13

ILF

= 000100

= 000001

ILR
=
INCCYL
INCSK
INCTRK
10TVEC=
IR
=
ISR
T
ITEM1
IXE
=
KIPARD=
LR
LACNT
LC

000002
027632
007024
027602
000020
000100
037400
001522
OOuSHe
004000
335312 u
037242
A R{TTT
001512

LOCMD
024770
Lf
= 000012
LKS
LKV

LOADRY
LODFLT
LODPRM
LOP (K
LPB
LPS
LPTAVL
LP AVL
LS
LST
=
LY
MABOVE
MBELON
MCLK
=
MCPE
=
MCPEMX
MHS
=
MINX
=
MNOLTR
moH
=

"L
=
MPE
s
MO
=
MRHVEC
MRPCS1
MSE
s
MSGAVG
MSGB01
MSGB02
MNSGBO3

001412
001406

050000
024354
024612
026210
001422
001420
001230
024034
001526
002000
001520
043763
083734
000002
020000
O3JuS1y
001000
000004
034530
020000

010000
000800
060671
060560

083720
045467
OuS417
045347

4054
16298

17048
17058
Y747
35368

4791
16144
16524

3936
20488
30498
17938
9902
8333
79848
20448
3798
6789
3346
15208
9333
9869
20078
20068
31N
3277
3452
4395
6245
20114
20108
19528
3217
20508
16958
20478
6733
6717
17248
16348
80438
17914
17258

80594
17578
16978
16544
1727%
9951
IN3
17864
6738
2800
2799
2798

PRGE

196

SEQ 0191

4058

6788

67868
3540
67698
3150%

31513

4i?7?

4271

4370

Y468

659C

8118

8602%

8576

8593z
3539
3989

4055

3541

3586
4059

3641
Y248

3643
4317

3652
4415

4756

4854

4925

3740

3793
6786

4982
9348
9978

5223
9355
9980

5229
9358

2206
9364

9368

7286

9283
9370

9289
9372

9308
9851

9315
9853

9325
9860

6086%

6087x

3567
4709

3730
6159%

3780

3880

4103

4207

4297

6424

3687
4918
64414

4037

4829

6772

6774

6771
5080
18118
85678
8575
3460
3981
6791
62098
19478
9338
9879
6056
3913
98608
3280
3486
4509

6280
5020
5019
5017
60178
3492

3496

3983

7178

4951

9345
9882
608812
3914
61018%
3524
4580
6323

6020
6017%

3832

8965
18094

9013

93754

9980%
9978¢%
93728
95384
95314
95244

6021x

4717

349
9379¢

8591

6370

3607

6769

3697

3706

15
CZRJRC RPO4/S/6 MECHANICAL AND RERD/WRITE TEST
MACY11 30A(1052)
27-JUL-78
09 24
CZRJIRC P11
27-JUL-78 09: 18
C(ROSS REFERENCE TABLE -- USER SYMBOLS

nSGBOM

045327

2797

95218

2793
2792
2791

94958
918
ug7e

2788
2095
2096
6722
6706
6759

728
9273%
92748

nSGBOS
MSGBD6
HSGBO8

O0M5257
085213
0OM5151

279%
2795
27NM

HSGB1Z
HSGB13

OM5017
OM4766

2790
2789

MSGBO9
nSGB10
nSGB11
NSGB1N
NSGFCP
NSGLCP
MSGMRAX
MSGMIN
MSGNON

0M5112
OM5067
OMSOM1

OM4?72y
043012
0% 3016
OM3711

NSG. (S

O 3702
0M4027
ON4012
O0M3052

MSG. FC
HSG. FS
MSG. FT
MSG. IC

0% 300%4
083036
043025
043022

MSGNUN

HSG. EQ

HSG. 1T
MSG. LC
HSG. LS
MSG. LT

083050

043033
043007
OM3041
043030

92718
9279%
92768
92758

7546
2092
;ggg

7547

7588

92824

92814
9270%
gggg.

3255

3361

5108

5140

6726

6737

6749

9374#

3981

3984

3992

9278%
92728
9280%
92727%

MSG. PR
HSG.R
MSG. SP

OM 3044
083002
Ow4OM2

HSGOUS

0M 3727

6710

6721

MSG11R

04 3540

2363

93488

Om 3665

2369

936us

HSGI0OR
MSG108

NSG118
HSG12R
HSG128

nSG?

OM Ju5Y
OM3523

0% 3606
OM3623

O% 3422

2358
2359

2364
2368

2348

#STCK = 000010
MR
= 000040
BXOLTR
C34526

17268
17288
80568

MXSTAL
001362
MXWNON
034532
N8R
= 100000

19948
80628
17598

HXF
= 001000
MXLACT
034524

NC1
NC2

NED
=
NEM
=
NHS
=
NOCLOK

NOLORD

NONE

001532
001534

010000
004000
002000
083273
050176

0% 3264

NOOP
= 000101
NOTPRS
043151

16558
80538

20528
20538
16584
16578
17928
3322
3201

3302

18658
3248

Sta 0192

93708

2093
2101
2098
2097

2100
209%
2102
2099

197

bl Xi
788

7207

7509

PRGE

95148
95078
95018

93688
93864
9383%
9283¢

6754

93388
93458

93554
93584

2353

9333%

8589
8576
3637
B3IN

3659

3892

3J980x

18104
93158
98824

93138
92974

5147

5154

6713

6729

6750

7505

7545

(ZRJAC RPOM/5/6 MECHANICAL AND READ/HRITE TEST
MACY11 30R(1052)
27-JUL-78 09 24
(ZRJRC P11
27-JuUL-78 09. 18
C(ROSS REFERENCE TABLE -- USER SYMBOLS

PGE
=
PGH
=
PIP
=
PIRQ
s
PIRQVE=
PKB
PK(
PKCS

002000
001000
020000
177772
000240
001402
001404
001400

PRT2

PRTY9

003544

SEQ 0193

93028
93008
18548

73302
75458
74968
7432
7612
7461%
7572
7561
7573
7565
7474
7463
8299¢

4750
6951
23928
2409¢

25628
2579¢
25964
26138
26308
26478
24268
24438
24608
2477%
24948
25114
25284
2545¢

7331%
7554
7500
7441

7420x
7563
7555
7443

7429
7566
7557
7450

7431
7570
7576
7452

7462
76358
7623
76398
7627
7638
74668
8633

7466

7468

7479

8793

8831

6984
6115

7027
7579

7628

Y14ux

4228%

4316%

Y4192

Y1462
Y4352

Y1482
Y4372

PAT3
PATY
PRTS
PRT6
PRT?
PRTS

032646
0333wy
032652
033556
033562
033574
033600
032656
032700
035576
000200
000123
000010
001530
003044
003104
003144
00360%
0036MY4
003704
003744
OO40O%
OO4OMY
003204
003244
003304
003 n4
003404
003wy
00 3504

033222
033020

198

7440

7442

7449

7451

44322

6670

6078%
6675

6540%

6079x

6541%

7473

74574%

76368
76408

~N &S

OPNTST
OPNMDS
OPN. CT
OPN.
N1
OPN. N2
OPN. X1
OPN. X2
OPN.1
OPN.
2
OPT
OR
s
PRCK
=
PAR
=
PAT
PAT. PT
PRTO
PATH
PATI0
PAT11
PAT12
PAT13
PRT14
PRT1S

OPNPRT
OPNPRN

3246
3252
18448
18718
1822%
18188
18198
18168
18208
18178
18218%
18524
17178
19558
7504
7491
7430
757848
74598
7541
7528
7542
7533
74618
7460
8264
16538
187us
17078
20518
23738
2373
237
2383
238
2385
2386
2387
2188

OM43176
OM3166
100000
000115
000200
000004
000010
000001
0V0020
000002
QO0OMO
020000
020000
001240

NOTRP
NOTSRF
oCYL
=
OFFSET=
OFREV =
0f 100 =
Of 200 =
0f 2%
=
0F400 =
0FS0
=
0F 800 =
ort
=
OPI
=
OPNFLG

PRGE

6658
Y134z

6659

6663

4334%
6665
41622
Wy4s3x

Y414z

6666
4231
6050

4233%

4256%

4319%

43212

4337%

43392

M 15

CZRJIAC RPO4/5/6 MECHANICAL AND RERD/MRITE TEST MACY11 30A(1052)
27-JuL-78 09 24
CZRIAC. P11
27-JUL-78 09: 18
CROSS REFERENCE TRBLE -- USER SYMBOLS
PKV
PLU
=z
POPQUE
PRN
PRMLNT

001374
020000
OM271Y
001504
001606

PRIMSG
PRMPT
PRMO
PRN1
PRMI0
PRM11
PRN12
PRM13
PRNIN
PRMIS
PRN16
PRN17?
PRN2
PRNZ20
PRN21
PRN22
PRA3
PRMY
PRIS
PRM6
PRN?
PRO
=
PR1
=

001636
001536
002330
002344
002544
00256M
002606
002622
002636
002652
002666
002700
002372
002712
002744
002760
002414
002436
002460
062502
002524
000000
0O00OM0

=
=
=
=
®

000200
000240
000300
000340
177776

PSEL
=
PSU
=
PSH
=
PTRN1S
PHRVEC=

002000
000001
177776
002742
00002Y

aDRvVZ
QORV3
QDRWS
QDRVE
QORVe
QoRV?
QINPT
QOUTPT
GSTART
osTOP

042360
02400
O%2%20
O%24M40
0% 2460
042500
ON2236
0MN2256
0M2276
042300

3228
1524
65372

0% 2226
082320
OM23M0

2gFi

9124

&£

QCNT
QORV0
QDRVY

3910
18128
8364
6168
3821
6901
7506
6128
21618
21698
22478
2257%
22688
22768
22844
22928
23008
2307%
2182¢
23148
2329
2337%
21938
22048
22158
22268
2237%

SEQ 0194

3911

41282

42268

Y3142

w4122

60762

6077%

6538

65393

65442

8479
6172%
3954
7067

8787
61852

4555
7153

92428
61882
4720
7503

7487
4231
7536

496
61213

7651
61223

61252

61263

6142

6144

6804

6167
6109

2485

7652

3906
3218x2

3928
32283
6589%

32692
8101

3906%
8102x

39232
81312

392812
8139x

3975%
8236

41632

42572

43562
8300

Y454
X
8349%

91912
9139

9206
915148
91528
91534
91544
91554
91568
91578
91584
9211%
I2un
9214

9208%

9228

9242x

9212
924512
9248

92143
9246

924813

= 000100
= 000140

PR2
PRI
PRY
PRS
PR6
PR?
PS

20028
17958
8313
20418
20788
6822
2092¢
20568
2056
2057

PRGE 199

6545%

9140
9141
9142
9143
9144
9145
9146
9210%
9231
9178
9246

8237x

8290x

(ZRJAC RPOY/5/6 MECHRNICAL RND RERD/URITE TEST
MACY11 3CA(1052)
27-JUL-78
09 24
C(ZRJIRC P11
2?7-JuL-78 09 18
(ROSS REFERENCE TRBLE -- USER SYMBOLS
QTERN =
RANRDR
RANCK
RANPRT
RAl
s
ROCHR =
ROL IN =
®0Y
=
RD ADR
RO RP

02520
0312wy
031012
031210
000020
104410
108811
000200
OTMm1510
Onv1WeM

RO RP1
081506
RD RP2
OTM1632
RO RP3
Omi636
RO RPY
OM16M2
RO WRD
Om1512
READ
= 000171
READMD= 000173
READ IN= 000121
RECAL = 000107
RELERS=: 000113
RESREG= 10W413
RESTAR
RESVEC=
RHVEC
RH ADR
RMR
=
RPRADR

RPRS
RPSA
RPCA
RPCC

RP(S1

006102
000010
001370
001366
000004
03516

=
=
=
=

000016
0COOO4
00003
000036

000000

RP(SZ = 000010

RPDA

RPD8
RPDS1

= 000006

= 000022
= 000012

RPOT
RPEC1

= 000026
= 00004
RPECZ = 00006
RPERRS 034350
RPER1 s 000014
RPERZ = 0O0OOM0

RPER3 = 0000M2

RPINIT
034534
RPLAR
= 000020

914?

4860
4876
4866
18048

5576
57784

16304
89672
8170
887
89694
89653
8976
8981
89718
18804
18818
18736
18688
18708

“ivw2

5840
8140
33306
16108
20018
20008
17068
3788

8973
8073¢
39653
39203
808148
39223
8383
9021
381112

41703

91598
4870
4890
7068

PRGE 200

SEQ 0195

488y
70818

71478

7088

21298

7237

7287

7320

7514

7551

7591

89681
8199
8923
8999
89984
8990
90028
8972

89708
8205
89658

9692
8427
9020

8451
9034

8465
9040

8569
9074

8583

8625

8648

8716

8726

8741

6212

4885
6282

6325

43wz

4364

4427
7464
9182

T
2622

4462
7626

5156
7645

57808

8967

62778

453y

3787

90008

9692
4?86

6211

96 M
4871

3354

R11-v4

6570

6595

4156

W11

4241

4265

682y
8287

6847
8350

4329

6639
828v
3341

4993

9699

992

9962

9964

3900
8977
820M12
8068¢
41152
8570
39633
840M

6591
8993
8646

80u8s
9026
87653

8120

9030
87922

9063
8809%

8367

9093
891v

8187
9965

8408

8567

8604

8872

42292

43172

43352

Y4158

4433x

6618

80808%

8379

8391

8422

39743
Bu46

4li18s
8466

43362

Y4168

Lu3ux

80664
8626

81622
8649

8168
8701

8193
8733

8305
8770

8321
892y

39192
41753
43673
81612
871532
661732

39342
42392
43682
8163
g8795x%
6801

39352
424912
442532
825612
8808x
80694

JMus

4010%

Y1413

Wibusg

Wy60x
8495
9031

Wub1%

8514
90642

43282
Y4652
8526
9070

41552
43452
Y4662

41692
4346z

8388%
8889%
8400

4011x
426812
Yhux

41402
42693

83683
8873%
8375

42642
44432

8539
%
909

65922
8548%
9099

4135
8875

4149

4234

4322

4340

Y420

4438

80714

8200

8307

8717

8684
6317

8687
6319

8697
80724

8796x
8206

8797%
8727

8798x
8797

8799x
9035

9689

9696

807u#

8584

39182
Yi7vs
43638
81212
862412

“118%

9068
3929
879
8171

9078
8104
6276
8798
8799
81008
3945

6909
8554

8y7?

6970
8610

8243

8492

42638
Y426

7021
8855

8503

2312
9083

84092
897y
8415

43273

7668

B 16
CZRJAC RPO4/S5/6 MECHANICAL AND RERD/URITE TEST
MACY11 30A(1052)
27-JUL-78 09-24
(ZRJAC P11
27-JUL-78 09: 18
CROSS REFERENCE TRBLE -- USER SYMBOLS
RPMR
RPOF
RPSN
RPT

= 000024
= 000032
= 000030
001506

RPTMR
RPVEC

040736
034520

RPWC
= 000002
RP REG
004204
RPOM
035304
RPOMB OM 3214
RPOS
0% 3221
RPO6
%3226
RSTRT1
0060M6
RSTRTZ
006072
RTC
= 000117
SAVCSH
001222

SAVEFG
034456
SAVREG= 104412

SC
SCTRWC=
SC1
=
SC10
=
SC11
SC12

SC13
SC2
=
SC20
=
SC3
SCy
SCS
SCé
SC6R
SC?
SC8
SEARCH=

SEC.0S

037604
177400
000100
001000
0%0M 36
00526

00576
000200
002000
037654
037660
037672
040072
040202
040330
0% 0406
000131

001272

SEC RD 001266
SEEK
= 000105

SEEXFG
SEKCNT
SEKTMR
SELORVs
SERIAL
SETMF
SETFORs
SETVEC
SET.
IE
SKi
=
SLASH
SRCHUT

034460
001346
00134
000145
083403
030362
000143
005336
OM2154
080000
0% 3076
034432

80768
80798
8078
208428
4300
6092

39162
8119
39642
2678
9718
6226
3256
3259
3262
3319
33288
18728
19498
3223

4137
5814
8299
8609
1888¢
17698
17728
8686
8680
8670

17708
17734
86618
86638
8662
8690
8688
8725
8702
18758
1969¢
9732
19678
18678
32902
1988¢
1987¢
18844
3362
3897
18838
32228
8134
18438
7236
7953%

8197

455

4398

88398
39362
8237
80678
2702
9721
6257
93058
93068
9307¢
3321
3334
3272
7999¢

guzsg

489

4712

3570

3610
4832

3690
4921

3733
7510

3783
75432

3883
7548

4o40
574%

4106
76352

4210
76393

41292

41772

42272

42718

4316%

43702

Y4132

446812

65902

80498

811/

2726
9725
6300

2750
9728
6347

27664
9731
6379

3364
9735
6398

6274
9737
6404

6276
9741
6597

6317
9743
82364

6319

6373

6801

9711

33238

3333

3276%
8481

72122
8630
4236
6833
8842
8642

4324
6948
9166

4Y3u2
6980

4359
7281

4422
4 1-Y4

w440
7577

4457
7650

5065
8100

57794
8239

8832

8723
8691
8673

8780%
8795%
8805#

93294
4765
3352

8165
18534

7513
8301

8456

4583

4592

3977
391732

3527

8452

StQ 0196

4512

4151
6630
8513
8634
Y542

8665
869
go684
82114
87354
8738
8718
4132
62352
9738
65632
3786
32932

8432

PRCE 201

4166

6814
8603
8636

4856

8789

4260

6857
9060
8eubh

8706

8710

8758

8772

8779

879%

8740
8728

8750
8734

8760%
8743

8771

87734

8804

6266

6309%

635812

6388x

bU1uX

6564

6606%

7039%

9701

9704

9706

9704
3887
80074
39792

3922
8105
3988%

4230

4318

4336

Y416

Y43y

4926

4931

6214

6215

6948s
3354

3457

3786

3887

4926

4931

827y

8348

8553

8655

90924

92884
84063

8784

Y145

40052

8331

C 16
CZRIRC RPON/S/6 MECHANIC AL AND RERO/WRITE TEST MACY11 30A(1052)
27-JUL-7?8
09:2%
CZRJRC. P11
27-JUL-78 09: 18
C(ROSS REFERENCE TABLE -- USER SYMBOLS
SRCHOO

026672

SRTORV
SRTINT

005572
005304

SRVCLK 024342
STRCK = 001100

" 1 12

4216

4306

Wyoy

6588%

6076
15148

6086
3148

60918
3330

3463

3499

4859

4868

Y874

3227
3214

3791
4632

STALL

026366

START

004672

3136

004660

1505

STALLO
STALL1
STRLLZ
STRLLY

001336
001354
001356
001360

START1T

004636

STARTZ
STARTI

004626

STARTY

004650

STATBL
004254
STKLNT= 177774
ST0
041030
ST01
041060

3628

1503

313us

1607

1509

2788%
15258
8849
8879¢

ST.LCL
ST.PCL

024306
024244

6058
6052

042036

3932
8483

SVROR

001340

SVSTRT
SHR

001260
001140

SVRH11

8878
8916
8876
8918
8920
8943
8913

3578
4221
4629

3582
4311
4740

3623
4409
4769

3650

3656

4928

4933

6289

6332

6430

65118

3629
6333

4882

3635

4888

3636t

4896

2637

4924

J639%

3651

3657

3645
4516
4775

3699
Y524
4785

36588

3659

36612

3743
4529
Y8u?

493y

3325

5417

5500

3137%

5092

8870%
8922

8880
8928¢
8895
89364
894us
89508
8931

8927

8882

8914s

8925

893us

8941

8948

4270

4369

Y467

6043%

19868

N861%

4B62%

4877

4878

4891

4892

19638

5089

64703

4262
8730

4326
8748

Y44
8791

4361
8827

Y42y
8888

Y442
8951

4459
90608

3169
5040
6938
5420

3175%
5420
7049
5459

3207
5459
7108
5482

4761
5514%
7112

4766
5647
7201

4772
5665

4780
5672

4782
6375

4788
6441

5015
65?3

6934

2049

7112

=
=
=
=
=
=

0000M0
000100
000200
000400
001000
000002
=
002000

3543
4125
4623

66308

SHOS
Sko6
SW0?
SWHO8
SWO9
SW1

= 000020

3535
4050
4606

4411

= ONO0OM
s 000010

SkOd

3943
4596

8935

SHO2
SW03

= 000002

31328

3905
4687

8933

= 000001
= 000001

Sk01

31398

3810
4547

4225
31354
31408
4176

SW0
SO0

000176

31418

StQ 0197

4127
3133
3138
3221

19188
5024
6695
14878
15784
15688

SHREG

3634

36212
6290
6411
4929

0% 1256
041326
041352
0%1360
41416
041446
041456
027056
004642
004664
024076

3807
4540

1985¢
19918
19928
19938

ST02
ST03
ST05
ST06
ST10?7
ST08
ST09

STRTMR
STRTIA
STRTZA
ST. (LK

32708
32168

PRGE 202

60838
60738
4008
8500
3146
5031
6932
3178

4313

4139
8531

31678
5036
6934
3207

1578

4780

15668
15658

1576
1575

4782
4763

1563¢
15628
15618
15608
155698
15778
1558%

1573
1572
1571
1570
1569

15678
15648

1577
1574

4788
4763

6074
4122
6209
3291
6932

4153
8632

4772

4766
6084
4178
7201
5015
7108

4168
8639

4238
8679

6375
6938
6064

6695

8952#

D 16
CZRIAC RPO4/S/6 MECHANICAL RAND RERD/WR ITE TEST
MACY11 30A(1052)
27-JUL-78
09 24
CZRJIRC P11
27-JUL-78 09: 18
CROSS REFERENCE TRBLE -- USER SYMBOLS
SHi1
SH12
SH13
SH14
SH15
SH2
SH3

=
=
=
=
=
=
=

004000
010000
020000
OM0000
100000
000004
000010

15578
15568
15558
156548
16538
15768
15758

SHS
=
Sk6é
=
SH?
=
SH8
=
SH9
=
SYSTAT
TAP
=
T81TvE=

00000
000100
000200
000400
001000
03102
040000
000014

16738
15728
15718
15708
15698
3231
1758¢
16118

Sk4

= 000020

3617
6512

6287
4842

6330

6441
9289¢

6573

8607

86168

043361

3356

93258

006656

3487

3498

01216M

4038

40504

TEST1?
TESTZ
TEST20
TEST21
TEST22
TESTI
TESTY
TESTS

015374
00700M
016122
016710
017304
007222
007432
010004

4581
3525
4710
4830
4919
3568
3608
3688

TEST?

010462

3781

TESTNG

= 000OMO0

TESTO

006500

TEST10

011126

TEST1

TEST11

TEST12
TEST13
TEST1N
TEST1S
TEST16

TEST6

TICKNS
TICKUS

012432
013126
013572
014310
014776

010204

001246
001250

17878

3453
3881

4123
42218
43118
Y409¢
4510

3731

40oou

41258

4515

4586
35334
47408
4857
4923
35768
3618
36968
3739¢

3790

45168

45874

4858

49244

Y859%

36208
37918

8938%

89uux

16188

OM7714

3189

001416
001414

2009¢
2008¢

001264

3991

34994

8932

19778
19838
19718

TRK. RD

39038

8905

001314
001332
001276

TRE
= 040000
TRK. DS 001274

34638

6091

TIH.ON
TINPT
TIN. UP

TPVEC = 000064
TRAPVE= 000034
TRCKWC
001352

3462

6069%
60702

39723

TP8
TPS

1805¢

60663
60673

034462

TITLE

6428

19588
19698

TIMER

TKVEC = 000060

SEQ 0198

15748

03744y

TOF

PAGE 203

16198
16178
19908

16358
19708

9706

19668

80128

8219%

83ulxr

BuB6x

6638%
6632
6631

6655
6673
66378

6675%
6652

6676%
6701

53973

5398%

3Ji54x
4521

3156%
4549

4839

61232

6127%

6234x

6265%

6308%x

6357%

6387%

6562%

9704

98514

318y
3183

9714

B8532%

8619%

B8712%

B756x

8806

8813x

88uS

8847x

6413x

6565%

66055

6924x

7038z

9701

9708

5051
5050

9232

9738

E 16
CZRAC RPOU/S/6 MECHANICAL RAND RERD/HRITE TEST
MACY11 30R(1052)
27-JUL-78 09 24
CZRINC. P11
27-JUL-78 09 18
CROSS REFERENCE TRBLE -- USER SYMBOLS
TRK1

= 004000

TRK10 = 040000
TRK2
= 010000

TRKZ0 =
TRKY
=
TRNSHY
TRTVEC=
TSTNMS

17748

17788
17768
3968%
16128
19548

1S70
TST1

006354
006516

7329%
34458
3449

TST10R
TST108
TST11
TST12
TST13
TST14
TST15
TST16
TST17

011364
011756
012024
012244
013002
013446
014164
014702
015300

3938
3915
3877
4o34
4100
4204
429
4392
4506

39414
4005%
40304
40968
4110
4214
4304
4402
45738

TST20
TST21
1S7122
TST3
TSTY

015720
016440
017216
007112
007 306

4577
4706
4826
3521
3564

4702%
48228
49118
35604
36008

TST6

010074

3684

37234

TST12

1634)
T1ST1?7

010720

006674

007674

010340

TUF
= 000100
THONS
026450
TYPDS = 104405
TYPE
= 104401

TYPERR
TYPOC =
TYPON =
TYPOS =
TYPTIN
T10
T11
T12
T7A
778

4202

3?°7?

3483

3604

3727

3320

4292

7334z

UNLORO= 000103
UNS
= 040000

18664
17184

3431

4390

4504

4104
42008
42908
43888
45028

4208
4298
4396

4351
3201

?7338%

8520
3519

2637%
3562

4575

47204

4431

Y449

65364

3216

3230

3231

7342x

734ex

7350%

8546%
3602

8621
3682

8622%
3725

8883

8898

89112

3775

3875

4032

3250

3252

4824

4913

6106%

6107%

3238

3239

3246

3248

6720
7513

6754
7545

7372%

7403%

7413

7415

7308%x

7309%

w098

7328%

35178

36808
37738

6729
7475

;g;s:

3uy?

8510¢

38734

6726
7316

3255
4954
5117
5426
5604

8365%

34798

18068
4333
57728
319%

5033
4967
57718
3235
4180
23588
23638
23688
23488
23538

034436

79458

17888
Y244
5137
3189

020056
104402
104404
104403
027254
003014
00302y
00303y
002774
00 3004

ULDFLG

SEQ 0199

17277%
17758

100000
020000
034430
000014
001234

TST10

PAGE 204

3263
4962
5118
5480
5606

3265
4979
5127
5481
5609

3297
4983
5140
5484
5613

3302
5026
5144
5495
5768¢

3314
5034
5147
5505
5882

3322
5084
5149
5516
6702

50644
5133

5483

57698

7235

7549

7590

3309
4184
4219
4309
4u07
w121
M124

3358
4272
4273
4322
4470
4181
4185

4959
4371

657708
4469

7481
66944

82618

8443x

8506x

8160x

6733
7484

8246

6737
7505

6738
7507

6749
7509

8538

3254

3356
5085
5151
5535
6706

3361
5094
5154
5583
6710

3362
5103
5193
5589
6713

3377
5104
5290
559%
6717

3380
5108
5366
5598
6721

Y98
5111
5414
5603
6722

8676

8762

8764x

8780

8782x

8891

6759
7546

2203
75427

72232
7550

7236
7581

7283
7588

CZRJAC RPO4/5/6 MECHANICAL AND RERD/MRITE TEST
MACY11 30R(1052)
27-JUL-78 09 24
CZRIAC. P11
27-JUL-78 09: 18
CROSS REFERENCE TRBLE -- USER SYMBOLS
o312
043130
0N 3141
020000
000001
000002

9292%

3250
3254
1659¢

16478
16488
18408
6284
183>¢
179448
16914
18498
16608
19844
1709%
17824
17158

18774
18788
16964
18794
9016%
8192
8455
9027%
90132
9022

92934
9295¢

6327

65544

4778

6346X

6410%

Y548

4607

4630

4776

4879

4893

6371

6397

4525

Y541

4589

4624

4770

4841

4863

6377

90298
8320
8491

96N
8374
8502

8378
8700

8382
8732

8390
8769

8399
9013%

8403

8414

8421

841

8445

9036

9042

90494

9025%

90284

9694

5473
70962
7033z

5630
9709
7098x

5084

5103

5117

5127

5144

5151

5212

5053
5221%

9709
5426
5226%

9716
5623

3144
1932¢
19324

3152
1933
19334

3158
19344
19348

3159
19354
19354

19364
19364

1938#
56238

1939¢

3380
5623

5034

5053

56244

5516

3265
5603

59504

6742

53748

021316

SeQ 0200

16468

18768

017626

PRGE 205

49914

7484

G 16
MACY11 30R(1052)
CZRJIRC RPO4/5/6 MECHANICAL AND RERD/WRITE TEST
27-JUL-78 09 24
CZRJIAC. P11
27-JUL-78 09: 18
CROSS REFERENCE TABLE -- USER SYMBOLS
$£ NDRD
SENOCT
SENULL
€ 0P
SEOPCY
SERFLG
SERMAX

017616
017550
017632
017366
017542
001103
001115

SERROR
SERRPC

017636
001116

SERRTS
SERTTL
SESCRP

004 306
001112
001206

SF ILLC
$F ILLS
SGDRDR
SGDORY
SGET2
SGTSHR
SHO
=
SH
| NUM
SICNT
S INTAG
SITEMB
SLF
L ONUM
SLPADR

001156
001155
001120
001124
017606
021724
000000
023610
001104
001135
001114
001216
023612
001106

SLPERR

001110

050370
SLSTRD
SHAIL = 33333% U
SMNEW
022576
022565
SHXCNT
023040
001154
SNHTST= 000001

021106
021110
023024
001100
001214
023512

022176

333833 U

022266

253323 U

1495
32983
4983
3304
33172
19014
19074
410732
3152
19088
9706
2815¢
19058
19404
62632
6925%
92642
19268
1925¢
1909¢
19118

4987¢
3307x
Y9944
33427
$o7ue
5021%
31602
42112
50134
5028%
9711
5080
4966
31592
62993
69302

54g81%
1436
3156%
19024
19168
19064
19448

5774

498us

3157%

19038
421532
19048
36881
42982
47102
5042
3199
3179
5484
5481
5680
19248
34368
3714
43758
52623

52573
5648
18994
19424
3796
55484
5779
55718%
§779

5198
5229
70322
7034z

3796
32192
54782
50303
5053
w8372
31618

43052

3162%
36982

43963
47682

5667
99212
3207
56288
56268
56894
5200
3438
37628
4377

52912
52612
5668
49712

5053
3993
5777
5778

PRHGE 206

SEQ 0201

3317

4977%

4915
4978
5053
33812
43013

You78

6448

9976
5663
35282

4584z

5669%
3571x
47132

5690
36112
48332

6425
3691%
49222

6905
37342
5663

6936
378u2
56852

7051

43992

5661
34903
45132

388uz2
5690

7110
You1z

5029%
9714
5081

5030
9718

5053
9723

9688
9725

9689
9728

9692
9732

6%
9738

9696

9699

9700

9701

4408%

5043
6385%
8704

b411%
8708

5045

5053

S
BY4Y

8983

56842
6567
9043

6225%
6572x%
9252

62323
659612
9261

62562
66032
926212

5912
5689

5917%

59224

7081

7087%

7090x

7134

7150

59234
35722
47142
35342
38062
4531%

6515
36122
48342
35428
3809x%

7082
36923
485712
35682
388112
45462
4867%

7086%
37352
49232
35772
39042

70892
37902
566712
35812
3922
4595%

7133
38851
56822
36082
40382
46052
488712

7148
4ou2x

Y111z

46222
4895

3592
41894

36674
4191
4902%

4277%
4904

99753
5637
345612

4968%
41192

42202

70412

7047%

63063

502712
63452

5053

43102

63552
709%4x

6378x%
8653

5229
7097%
7099x

9709
9709

39N
5676%
5497
5053
5229
5903
34622
44032
J453%
37312
4510%
W77v%
56832
9925%
5036

483632
5677
5517
5073
5613
5910
34983
45152
34872
37423
45232
4784x%
5689

45863
3525%
378132
45281
48302
6443

5182

5682

3470
38384
Y491

5229
4688
3764
44894
530us
5266
5678
4972%

5229
58994

5269%
5686#
Y99
5535
6514

5904
5679%
5630

5623
59162
35292

Y8vb6s

45392
4858%

35044
3840

45594

3506
4Y017#
4561

4019
Youos

5280%

53064

5674
5606
7132

5690
5623

6575

7147

35514

3553
4Yo8u#

Y642

4581%
4873%

35904

4086
47974

4881z

4799

5687
36222
Y1042

3669

7149

5689
Jouux

4208%

4628%
4919x

37124
4279

H 16
CZRJIAC RPO4/S/6 MECHANICAL AND READ/WRITE TEST
MACY11 30R(1052)
27-JUL-78 09 24
CZRJIAC P11
27-JUL-78 09 18
CROSS REFERENCE TRBLE -- USER SYMBOLS

$SRDSZ =
SR EGRD
SREGO
SREG1
SREG2
SREG3
SREGH
SREGS
SRESRE
SR TNRD
SR2A
=
SSAVRE
$S82D
$SCOPE
SSETUP=

000024
0011560
001162
001164
001166
001170
001172
001174
023100

017630

3313138 u

023042
023222
022610
000147

$SI1ZE
SSTUP =
SSUPRS
SSVLRO

050274
17272777
023452
022776
SSVPC = 000200
ISR
= 167000

SSHRMK= 000000
STIMES
001204

$TKB
STKCNTY
STKINT
STKQENs
STKQIN
$TKQOU
STKQSR
$TKS
STKSRV
STP0
STHP1
$STHP2

$STN

STNPUR
$TPB
STPFLG
$TPS
STRAP

001146
021336
021346
021346
021340
021342
021344
001144
021416
001176

001200
001202
= 000023

023366
001152
001157
001150

023136

55644
19288
19308
19318
19324
1933¢
19348
1935¢
57248
49938
5781
57084
5793%
3150
31328
S087
3198
31328
58744
5656
14938
14268
3159
4108
4994
5640
5689

5642
1939¢
4210%
19218
53804
3203
53844
53818
53824
5383%
19204
5397
19368
9732
1937%
19388
14268
3517
36128
3775
4084
4301
4573
483u¢

5821
19238
19278
19224
3154

3179
5067%
5068%
50693
5070%
50713
5072x
5780

5779
6708
56458
3149
5418
¢
990u
6709
5681%
1498
1436
3161
4212
5005
5641

31583
4 300%
5379
53942
SIS
5449
53951
53962
5395
5379
54108
%
5064
9738
1436
3519
3667
3784
4096
4302¢
4575
4902
5822

3184z
5176
31832
57458

9701
9689
9700
9688
9709
9696

9706
9696

PRGE 207

StQ 0202

9714
9716

9723

9725

9728

9732

9738

9689
9716

6715

6719

6724

6731

6735

6747

6752

7511

7586

3150
5423

3152
5424

3154
5454

3156
5630

5646

3158

3159

3161

3204

4969

6716

6720

6725

6732

6736

6748

6753

7’512

7587

1464

1465
3457
4400
5007
5647

1466
3491

1468

1469
3612
Y834
5031
5663

18914
3692

4923
5036
5670

1939
3735
Y94y
5040
5671

1940
3785

5008
5659

1467
3529
4585
5009
5661

4970

4986
5638
5683

3527%
4583%
5435
5555

3570x
4712%
5463
5557%

36102
4832x
5490

3690x
4921%

37332
4970x

3783x%
5670%

38832
5677

4ou0x

4106

5424
5415

348912
45122
5410
54413
5476

53%
5558
5451
5400%

54473
55592
5562
54312

54482
5560

5449
556212

5451%

5433

5439x

5461

B477x%

5487

5499

5519x

9692

96954

9696

9701

9706

9711

9714

9718

9723

9725

9728

3436
3528
3680
37858

3445
3529%
3682
3838
4107

34574
3562
3712
3884

3468
3571
3723
38854

3479
35724
3725

3481
3590
3734

3490
3600
37354

34918
3602
3762

3504
3611
3773

4388
45858
4913

3456
3560
36928
3875
4189
4399
4702
Y9Z3s

50512

5229

5050%

5229

3162
4302
5006
5642

34552
4398x

4098
4375

4911
58424
5020%
5229
5019%

Y514

3572

4714
5024
5662

4200
4Y4008#
4704
7363

4202
4489
4713
7387

4017
4211
4502
Y7148
7462

4030

42128
4504
4?97

5053
5672

4032
4277
4513
4822

5014

1941
3885

5680x

Y041
4290
Y514#

Y824

5039

3158

You2
4992

5639
5686

5689

Youzs
4292
4559

4833

CZRIAC RPO4/5/6 MECHANICAL ANO RERD/WRITE TEST
MACY11 30R(1052)
27-JUuL-78 09 24
27-JUL-78 09. 18
CZRJIAC. P11
CROSS REFERENCE TRBLE -- USER SYMBOLS
STRAP2
023160
= 0000+
STRP
$STRPRD
STSTNN

023172
001102

STTYIN 022522
STYPBN= 13353
$TYPDS
021112
STYPE
020444
020614
STYPEC
STYYPEX
020662
$TYPOC
020710
STYPON
020724
$TYPOS
020664
022622
SXTSTR
$$GET4= 000000
SOF ILL
021107
SYOCAT= 3211158
050632

57568
57608
57818
5750
1900%
3728%
4299
49692
6573

5773
53208
51768
5197
5222
52608
5259
52558
56504
49864
5256%
5033
14818
3542
4531
4867
5379
91534

5767
57698

57678
3450%
3732
43932
5023
5574
5772
5760
5204
5224
5769
52628
5770

5260%
5647
14854
3577
4539
48?3
53838
915u#

PRGE 208

Sta 0203

57708

5771%

57728

657738

577

5775%

5776

57277%

3454
377812

J48ux
3782
4507%
5064
5604

3488
3878

3526
40352

56812
56228

4582

3569
41012

5637
5618

3565%
4039
47072

3605%

4511

35228
3882

4211
6165

48272
6367

5216%

5217

5521

14964
3644
4605
4895
56228
9157%

14988
3698

1501%
37842

1897%
3806

1945
3809
4768

3147

4397
5053
5586

5768
5211
5227%

45788

5686
9989

5690

5778%

57798

57808

3609

36858
4209
491682

42953
4920

42052
4831

3689

5771

5270

5305%

1493
3581

14548
3622
4595
4887
5385
91564

Y546
4881

5384

91554

4622
49518
5623
91588

4628
49824
5630%
9159

47214
49N
5689

9849

4995%

5690

W27y
5053

58628

3161
392

47284

5097%
74788%

3162

4523
Y834
5229
91518

3534
4528
4846

53748
91528

J 16
CZRJAC RPO4/S/6 MECHANICAL AND RERD/MRITE TEST
MACY11 30A(1052)
27-JUL-78 09 24
CZRJRC. P11
27-JUL-78 09: 18
CROSS REFERENCE TRBLE -- MACRO NAMES
CKCHR
(KDIG
CKNUN
COMEN
COMND
00

DODTR
ORV. IN
ENDCON
ENDPRS
ERRCAL
ERREND
ERROR

ERRTYP
ER NDX
ESCAPE
GETPR |
GE TSHR
LOOP
MORETR

31288
31288
31288
18
31288
31288
370°
31268
4875
31288
18
31288
78518
31288
1515¢
6239
6362
6569
8984
J128¢
31288
18
6929
18
18
31288
:ggé

18918

7239
7297
7247
16218
3354
3353
3703
4526
4883
4173
16218
4979
8653
5047
3339
6240
6363
6610
0uY
5015
6233
16218
7041
16218
14268
353M
4539

1946

7289
7535
7568
3385
3457
3355
3747
4530
4889
4267
3413

7601
3420
3786
3464
3749
4535
4897
4366
3431

8704
3933

6241
6364
6611
9971

7516

4157

SCOPE

SETPR!
SETTRA
SETUP
SET.TN
SKIP
SLASH
SPRCE

STARS

4557

4637

156168

18
57608
18
J1288
4503
18
18
16218

18
3516
40o84
4821

3466

4172

4242

6271
6393
6926

4595

4605

3581

3622

4622

4628

3517
4822
3470

3560
4911
35044

3600

5361
5320

3579
3829

4609

6386
4408

4546

7831

3545
3808
4625

6356
4310

16218
16218

16218

6270
6392
6614

7780

3537
3757

6307
4220
70%
9910
3204
3577

18
18

7851
4137

6243
6366
6613

7769

3755
4598

6264
4119
7046
5950
16218
3542

POP
PUSH

3753
4552

Y143

6242
6365
6612

3468
4640

28
31286

3751
4545

4009

3436
4559

RPOM. D
SAV.RH

4931
3501

9043

MULT

REPORTY

Y4275
4926
3500

8982

40i78
Neu2

16218
4489

4066
3886
3465

8707

3479
4702
34688
3840
Yeu0s

18
4375

7756

Wysy

34u5
4573
3438
38378
4561
16218

NENWTST

7593

Y46y
4079

31288
4502
Jules
3764
45598
18

MSG

7553

6412
6232

PAGE 210

6272
63%
6931
6604
6263

Sta 020%

4053
4277

4927
4’87

J6u?7

4631

4051
4?71

4932
Y848

3653
6571
4869

4266

4330

4348

4365

7048

7106

7107

4428
6315
6420
8654

w4ue

7042

6314
6419

6316
6421
8705

4463
6321
6422
8709

6411

6567

6603

6925

6273
6395

6278
6396

3584

6313
6418

6385

3625

3631

6306

6354

4768

3698

3742
4774

4784

4846

4867

4873

3941

4523
4881

4528
4887

3680

3723

3773

3873

4030

4096

4200

4290

4388

35514

3644

3805

3809

3903

&019
47978

4o83#
4?7299

4086
4902%

3553
4189%

3590%

3592

4904

4191

42778

366748
4279

3669
43754

3712%
4377

3714
Y489%

Y491

3504
4?29?

3551
4902

3590

3667

3712

3762

3838

4017

408y

4189

4277

4183

4272

6146
6101

4371

6195
6159
4469
Yus?
4186

4274

4373

w21

3506

3128¢

5729
5709

4180

5918
5899

4151
3502

4166
3549

4236
3588

4260
3665

4324
3710

Y342

4359

3835

Y422
1015

4440
4061

5771

5772

5774

5776

5777

5778

5779

5780

3518
4823

3561
4912

1601

3681

3724

3774

387y

4031

4097

4201

4291

4389

1625
3590
4199
4941

1667
3599
4277
5001

1671
3667
4289
5054

1862
3679
4375
5161

1893
3712

1945
3722

3030
3762
4501
5378

3436
3?72

344y
3838
4572
5469

3468
3872
Y640
5540

3478
4017
4701
556u

3504
4029
\797
5634

Y7%

1621%
5769
16218
3Iwhé
Ys24
162148
16218

5551
5770
3142
3480
4703

149N
3561
4095
4902

16218
3559
4189
4910

4898

4935

6001
5953

37624

3760

43187

5232

Y489

5310

4659

Bu5Y

CZRJRC RPO4/S/6 MECHANICAL AND READ/NHRITE TEST
MACY!1 30R(1052)
27-JuL-?8 09 72v
CZRJAC. P11
27-JUL-78 09: 18
CROSS REFERENCE TRBLE -- MACRO NANES
SHRSU

5693
18

TRHTRP
TYPBIN
TYPB20
TYPDEC
TYPEND

57608
18
31288
18
31288

TYPOCS
TYPOCT
TYPTXY
SI(ME
CHTH
$3ESCA
SONENT

18
18
14
18918
18918
18
18
4375

TYPNAH
TYPNUN

18
14

$SSET
$SSKIP

57608
18

. HERDE
.KT11

18
18

. EQUART

SETLUP

. SHRHI
.SHRLO
. SACTY
. SAPTB
. SAPTH
. SAPTY
. SASTA
. SCATC
. SCHTA
. 0820
. 90820
. 801V
. SEOP
. SERRO
. SERRT
.SMLT
. SPOKE

SRAND
SROOE

$R0OOC

SRERD
. SR2R2
. $SAVE
. $S820
. $5820
. $SCOP
. $SIZE
. SSUPR
S TRAP

$TYP8
$TYPD
STYPE

$STYPO

18
1470¢
18
18
18
18
18
11}
18
1%
18
18
18
14
1%
14
18

1%
14

18
18
14
18
14
18
14
18
18

14
14
18

5739
16218
16218

6707

16218
Y948
16218
16218
16218
16218
16218
1930
1936
16218
1621¢
4489

5769
16218
14268
14268

SEQ 0205

5784
31638

5803

5866

5890

5927

7850

7860

9898

9927

6714
513%

6718

6723

6730

6734

6746

6751

7510

7585

3232
4966
YN8

3308
5132

3357
5482
4962
1933

4958
7234
4979
1934

7479
7548

5094
1935

7589
5111

7203

7283

7315

7475

7580

3551

3590

3667

3712

3762

3838

4017

4084

5778

5779

5780

1931
1937

3436

4559

5770

4954
1932
1938

3468

3504

4640
5771

4797
5772

4902

5774

5776

5277

1473

14724

1475

1476

1477

1511

14268
14268
1471
14268

3132
1460
1472
1489

14268
14268
142648

1479
1891
5801

14268
14264
14268

5925
4939
4999

14268

5888

14268
14264
14268

PRGE 211

5376

14268
14268

5691
5782

14268
14264
14268
14264

5632
9896
5864
5737

14268
14264
14264

5308
£159
5230

4189

4277

A\ ]

L 16
CZRJAC RPOU/S/6 MECHANICAL AND RERD/WRITE TEST
MACY11 30A(1052)
27-JUL-78
09 24
(ZRJAC P11
27-JuL-78 09 18
C(ROSS REFERENCE TRBLE -- MACRO NAMES
S4OCA
1170
ABS

PAGE 212

13
1%
050632

ERRORS OETECTED

000
O

DSKZ. CZRJAC BIN,DSKZ CZRJAC LST/CRF/SOL=DSKZ CZRJAC SML.DSKZ CZRJAC 010.DSKZ CZRJAC P11
RUN-TIME
27 37 3 SECONDS
RUN-TIME RATIO
315/68:=4 §
CORE USED
52K
(103 PRGES)

StQ 0206