Digital PDFs

AC-9140E-MC

November 1980

274 pages

Original

147MB

view download

OCR Version

202MB

view download

Document:	CZR6NE0 RK611,RK06,RK07 RK611-06 SS VFY2 AH-9142E-MC NOV 1980 bw
Order Number:	AC-9140E-MC
Revision:	000
Pages:	274
Original Filename:	CZR6NE0__RK611,RK06,RK07__RK611-06_SS_VFY2__AH-9142E-MC__NOV_1980_gray.pdf

OCR Text

RK611

RKO6 . RKO7

RK61 1706

CZR6NEO

VFY2

AH-9142E-MC

FICHE

1 OF 2

waoe in use

RK611
RKO6 , RKO7

RK611/06 SS
CZR6NED

VFY2

AH-9142E-MC
FICHE 2 OF 2

o iseo
heor
i us

CIR6NED RK611/06 S ViY2

CZR6NE .P11

26=JUN-80 10:48

MACY11 30A(1052)

26=JUN-B0

10:53

1
PAGE 3

SEQ 0001

.REM 3

2
3

9
B

1
12
13

L A R SR T

e S

O r

el el S

IDENTIFICATION
R

PRODUCT CODE:

AC=-9140E-MC

PRODUCT NAME:

CZRONEO RK611/06 SS VFY2

DATE:

JUNE 1980

MAINTAINER:

DIAGNOSTIC GROUP

24
25
26

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

29
30
g;

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF SOF TWARE
ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS AFFILIATED
COMPANIES.

FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION:

37
38

DIGITAL
DEC

POP
DECUS

UNIBUS
DECTAPE

MASSBUS

CIR6NED RK611/06 S ViY2
CZRONE .P11
26=JUN-80 10:48

MACY11 30A(1052)

26-JUN-B0

10:53

1
PAGE &4

40
)
42

43
Ly

46
&7
48

TABLE OF CONTENTS

1.0

ABSTRACT

51
52

2.0
2.1

HARDWARE REQUIREMENTS
REQUIREMENTS FOR SUBSTSTEM TESTS

3.0

PRELIMINARY PROGRAM REQUIREMENTS

57
58
59
60
61

4.0
4.1
4.2
4.2.1
4.2.2

GENERAL PROGRAM CONSIDERATIONS
SYSMAC
XXDP
CHAIN MODE
DUMP MODE

64
65

6£.3.2
4£.3.3

DUMP MODE
APT ETABLE DEFINITIONS

62
63

66
67

2.2

4.3
4.3.1

REQUIREMENTS FOR HEAD ALIGNMENT AID

ACT/APT
AUTOMATIC MODE

68
69

4.4
4.5
4.6
4.7

DUAL=ACCESS
MEMORY MANAGEMENT

5.0

PROGRAM LOADING

74
75

6.0
6.1

STARTING PROCEDURE
STARTING ADDRESSES

7.0

OPERATOR ACTION

80
81
82
83
84
85
86

8.0
8.1
8.2
8.2.1
8.2.2
8.2.2.1
8.2.2.2

PROGRAM ACTION
DESCRIPTION OF OPERATING PARAMETERS
SELECTION OF OPERATING PARAMETERS
DRIVE SELECTION
TEST SELECTION
LIST TESTS, (L)
CHANGE TESTS, (C)

88
89
90
9N
92
93
94

8.2.2.4
8.2.2.5
8.2.3
8.2.3.1
8.2.3.2
8.2.3.3
8.2.3.4

CONTROL Z (*Z)
CONTROL C (*C)
PARAMETER LIST
TYPE LIST, (1)
OPEN LIST, (0)
SET INDIVIDUAL
RUN TESTS, (R)

4.8

6.2

8.2.2.3

MEMORY PARITY CHECK
BAD SECTORS
EXECUTION TIME

SWITCH REGISTER OPTIONS USED

INPUT PARAMETERS AND RUN TESTS, (I)
FUNCTION
FUNCTION
ALTERATION

PARAMETER, (S)

SEQ 0002

B
-

1
PAGE 5

PT = DATA PATTERN SELECT WOkD

CS = CONTROL SWITCH WORD
DATA PATTERNS

DESCRIPTION OF TESTS
TEST 1 = OFFSET=TO=FAILURE MEASUREMENT
NPR/MAIN MEMORY TESTS
TEST 2 = NPR/MEMORY WORD ADDRESSING TEST

TEST 3 = NPR/MEMORY BLOCK ADDRESSING TEST
TEST & = NPR/MEMORY DATA PATTERN TEST
TEST 5 = UNIBUS CONTENTION TEST
TEST 6 = MULTI-DRIVE INTERFERENCE TEST

RK06=07 HEAD AL IGNMENT AID

NN —

«
s

%N"‘

NN
= b i

o
*

8
®

o
8

®
&

d ed e b
ODOOO

PP O VLV
Ll
.
.
=
O

WO
S WO —=O

CONTROL Z (*Z) FUNCTION
CONTROL C (*C) FUNCTION
SPECIAL PARAMETER SPECIFICATIONS

W)
—

©O0OCOCOCO00
>
.
.
.

10:53

e e e D e d D h d
e e D e e
e b e

26=JUN-B0

ERROR REPORTING
COMMON ERRORS
ERROR HANDL ING
ERROR PRINTOUT EXAMPLES

— e
b

NO VNS WN=20000~N
NOVNSWNN =200V
WN = OOV

D i

D e

D i i

D e

D i

95
96
97
98
99

MACY11 30A(1052)

DO OOOOVNDO

CIR6NEO RK611/06 35S ViY2
CZRONE .P11
26=JUN-80 10:48

HARDWARE REQUIREMENTS
OPERATIONAL MODES
MANUAL SELECT MODE
MANUAL SELECT AL IGNMENT
MANUAL SELECT VERIFY
MANUAL SELECT EXERCISE
AUTO SELECT MODE
AUTO SELECT AL IGNMENT
AUTO SELECT VERIFY
AUTO SELECT EXERCISE
ALIGNMENT AID ERROR MESSAGES

APPENDIX A

SAMPLE ADDRESS 200 DEFAULT RUN

APPENDIX B

SAMPLE ADDRESS 204 RUN

APPENDIX C

SAMPLE MANUAL MODE HEAD ALIGNMENT AID RUN

APPENDIX D

SAMPLE AUTO MODE HEAD ALIGNMENT AID RUN
.

SEQ 0003

flflflflflflflflflfloooooz R = © O 00 NO W I AN = © O 00 O N S N = ov
bugggggNgmguuggoawovobum-oomslovc

MACY11 30A(1052)

1.0

26-JUN-B0

10:53

PAGE 6

SEQ 0004

ABSTRACT

THIS PROGRAM PERFORMS PART 2 OF THE RK611/RK06-RKO7 SUBSYSTEM VERIFICATION
TESTS, WHICH PROVIDE A FUNCTIONAL SHAKEDOWN OF THE ENTIRE SUBSYSTEM,
INCLUDING THE UNIBUS INTERFACE AND ACCESS TO MAIN MEMORY. THE TESTING
IN PART 2 EMPLOYS WORST=CASE SITUATIONS INVOLVING HEAD OFFSETTING,
MEMORY ADDRESSING AND DATA TRANSFER,
UNIBUS CYCLE
_CONTENTION,
AND
MULTIPLE DRIVE OPERATIONS.
ADDITIONALLY, AN RK06=07 HEAD ALIGNMENT AID

IS PROVIDED TO FACILITATE ON-LINE ALIGNMENT OF DRIVE HEADS.

WITHIN THE VARIOUS SUBSYSTEM TESTS, EMPHASIS IS GIVEN TO USEFUL SCOPE
LOOPS AND OPERATOR SPECIFICATION OF TEST PARAMETER VALUES. AT THE
agggNNNG OF TESTING, THE FOLLOWING OPTIONS MAY BE
SPECIFIED BY
THE

D i

D il

D e

-b

VNVVIVIVNWNWNWVIVIWS
S BS

CIR6MD RK611/06 SS ViY2
CZR6N P11
26=JUN-80 10:48

RK611 REGISTER ADDRESS
RKO6-07 VECTOR ADDRESS
RK06-07 PRIORITY LEVEL
DRIVE (S) TO BE TESTED
TEST (S) TO BE RUN
NUMBER OF TEST ITERATIONS

IN ADDITION, STANDARD SWITCH REGISTER OPTIONS ARE PROVIDED,
VARIETY OF
RROGRAM LOOPING, RUNNING, AND REPORTING MODES.

ERRORS WILL BE RERORTED AS THEY OCCUR.

FOR

THE REPORT WILL INCLUDE A TEST

NUMBER AND DESCRIPFION, CURRENT AND PREVIOUS OPERATIONS, GOOD AND BAD
TEST DATA, AND APPLICABLE DEVICE REGISTER CONTENTS.

2.0

HARDWARE REQUIREMENTS

2.1

REQUIREMENTS FOR SUBSYSTEM TESTS

THE FOLLOWING HARDWARE IS REQUIRED TO RUN

VERIFICATION TESTS:

D D k) D e

00 Qo O Qo Oo OO

D i

D il

D i

INITIAL DISK ADDRESS ON TRANSFERS
DATA PATTERNS USED
STALL TIME BETWEEN OPERATIONS

PDP-11/04,(05,10 MFG.
16 K MEMORY

CONSOLE TELETYPE
RK06-07 UNIBUS CONTROLLER (RK611)
1 70 8 RK06/07 DRIVES

D el

THE

SUBSYSTEM

ONLY),20,34,35,40,45,50,70 OR PDQ

1 70 8 RK06/07 DISK CARTRIDGES (FORMATTED IN 20 OR 22 SECTOR FORMAT)

—

PART

2.2

REQUIREMENTS FOR HEAD ALIGNMENT AID

CZRONEO RK611706 $S Vi Y2

CZR6NE .P11

26=JUN-80 10:48

MACY11 30A(1052)

26-JUN-80

10:53

PAGE 7

SEQ 0005

ADDITIONAL HARDWARE IS REQUIRED BY THE RKO6 HEAD ALIGNMENT AID:
RKO6 FIELD TEST BOX (OR ALIGNMENT SECTION THEREOF)
RKO6 ALIGNMENT CARTRIDGE
RKO6 HEAD ALIGNMENT TOOL

7.0

NN
PNIPIPINDI NN b b b d e ed b b od
VIS N = O VO NOWVSWN=O

209

226

PRELIMINARY PROGRAM REQUIREMENTS

BEFORE RUNNING THE SUBSYSTEM VERIFICATION
PROGRAM,
THE
RK611
CONTROLLER DIAGNOSTIC (MAINDEC=11-CZR6A THRU CZR6E AND CZR6K) AND RKO6
DRIVE DIAGNOSTIC (MAINDEC=-11-CZR6H THRU CZR6J) SHOULD FIRST BE RUN, TO
RESOLVE BASIC, SOLID HARDWARE FAULTS.

4.0

GENERAL PROGRAM CONSIDERATIONS

4.1

SYSMAC

;:éSAEEOGRAH USES PORTIONS
K

4.2

THE

SYSMAC

THIS PROGRAM MAY BE LOADED UNDER XXDP.

oo
-1
SEIERR

SYSTEM

MACRO

XXDP

;SDECHAIN

4.2.1

DIAGNGSTIC

SUBSYSTEM TESTS 1-6 MAY BE RUN

OR DUMP MODE, BUT THE ALIGNMENT AID MAY ONLY BE RUN IN DUMP

CHAIN MODE

THIS PROGRAM IS DESIGNED TO BE RUN IN THE DEFAULT MODE WHEN CHAINED
UNDER XXDP. THUS, INPUT DIALOGUE IS BYPASSED, AND RKO6 UNIBUS ADDRESS
AND INTERRUPT VECTOR ARE DEFAULTED TO STANDARD VALUES.
ALL DRIVES
PRESENT AND READY WILL BE TESTED WITH THE EXCEPTION OF DRIVE O, IF THE
RKO6 CONTAINS THE XXDP MEDIUM.

4.2.2

DUMP MODE

THE PROGRAM CAN BE RUN IN DUMP MODE, WITH OR WITHOUT DEFAULT
PARAMETERS.
DRIVE O MAY BE TESTED, BUT
IF IT CONTAINS THE XXDP
MEDIUM, THE OPERATOR MUST REPLACE THE XXDP PACK WITH A FORMATTED

SCRATCH PACK PRIOR TO TESTING (OR AN ALIGNMENT CARTRIDGE IF AL IGNMENT
IS TO BE DONE ON DRIVE 0). A MESSAGE WILL INFORM THE OPERATOR WHEN

O NO NS WIN -

NN ~N
VI Wh AL w1

CZR6NEO RK611/06 S ViY2
CZR6NE .P11
26=JUN-80 10:48

MACY11 30A(1052)

26=-JUN-B0

THIS

IS NECESSARY.

4.3

ACT/APT

10:53

1
PAGE 8

SEQ 0006

THE PROGRAM IS COMPATIBLE WITH ACT/APT CONVENTIONS.
SUBSYSTEM TESTS
1-6 MAY BE RUN IN AUTOMATIC OR DUMP MODE, AND THE HEAD ALIGNMENT AID

MAY ONLY BE RUN IN DUMP MODE.

4.3.1

AUTOMATIC MODE

THE PROGRAM PROVIDES FOR AUTOMATIC APT/ACT OPERATION.
IN
THIS MODE,
PARAMETERS REVERT TO DEFAULT VALUES, AND ALL DRIVES WHICH ARE PRESENT
AND READY ARE TESTED.

4.3.2

DUMP MODE

IN DUMP MODE, PARAMETERS MAY BE INPUT,

TESTS 1-6 OR HEAD ALIGNMENT AID MAY BE RUN.

4.3.3

DEFAULTED,

SUBSYSTEM

APT ETABLE DEFINITIONS

THE FOLLOWING DEFINITIONS ARE VALID FOR SPECIFYING
TABLE

AND

APT

(ETABLE) ENTRIES, VIA THE APT UTILITY PROGRAM :

ENVIRONMENTAL

SOFTWARE ENVIRONMENT
=1 IF APT SCRIPT MODE

=0 IF STANDALONE MODE

2. ENVIRONMENT MODE BYTE
ETABLE DOES SIZING
BIT 7 =1
= 0
PROGRAM DOES SIZING
BIT 6 = 1
SPOOL MESSAGES TO APT IF SCRIPT MODE
DON'T SPOOL TO APT
=0
SUPPRESS CONSOLE OUTPUT
BIT S = a
=
ALLOW CONSOLE OUTPUT
NOT USED
BITS 4-0

(SOFTWARE SWITCH REGISTER)
3. SWITCH 1
IF ENVIRONMENT MODE BIT 7 (SIZING BIT) IS SET TO 1, THE SOF TWARE
SWITCH REGISTER WILL BE USED, INSTEAD OF THE HARDWARE CONSOLE
SWITCH REGISTER. REGARDLESS OF WHICH ONE IS USED, ALL BITS
DEFINED IN SECTION 6.2 (SWITCH REGISTER OF TYONS) MAY USED WHEN

RUNNING IN STANDALONE MODE.

ggtk$5 BCRIP! MODE, HOWEVER, BIT 14 (LOOP ON TEST) MUST ALWAYS BE

CIR6NED RK611/06 S ViY2
CZR6NE .P11
26-JUN-80 10:48

MACY11 30A(1052)

26=JUN-80

10:53

1
PAGE 9

SEQ 0007

4. SWITCH 2

(USER SWITCH REGISTER)

NOT USED

5. MEMORY TYPES 1-4 AND MAX MEMORY ADDRESSES
NOT USED

BUS PRIORITY 1

INTERRUPT VECTOR 2

PON)

USED WHEN ENVIRONMENT MODE BIT 7

322

210

DEFAULT

DEFAULT = 177440

S OOV

USED WHEN ENVIRONMENT MODE BIT 7

6. INTERRUPT VECTOR 1

b e cd e

NN N N N N U

NN NN W W W
eV
e o o -0
NO NS WN=2O O 00

307

NOT USED

9. BUS PRIORITY 2
NOT USED

10. BASE ADDRESS

USED WHEN ENVIRONMENT MODE BIT 7
11.

DEVICE MAP

USED WHEN ENVIRONMENT MODE BIT 7 = 1., EACH BIT SET TO 1 IN
0-7 WILL SELECT THE CORRESPONDING DRIVE TO BE TESTED.
BITS 8-15 ARE NOT USED.

4.4

U U U U U U AN A

FER VAVAWA
VAW VA VAN Vi FRRER

N=OOVONO
WV WN~=OOV NN

343
344

BITS

DUAL-ACCESS

PURPOSES
OF
ALL
THIS PROGRAM DOES NOT UTILIZE DUAL-ACCESS. F OR THE
TESTS
(1-6),
AWD THE HEAD ALIGNMENT AlIb°( SECTION 11), THE OPERATOR
IF
MUST GUARANTEE THAT THERE IS NO INTERFERENCE FROM THE UNUSED PORT.
FAILURES ARE ENCOUNTERED IN TESTS 1-6 DUE TO INTERFERENCE FROM THE

OTHER PGRY, THE OPERATOR IS ADVISED TO SWITCH THAT PORT
RE-RUN THE TESTS.

4.5

OFF=LINE

AND

MEMORY MANAGEMENT

THIS PROGRAM SUPPORTS MEMORY MANAGEMENT OPTIONS KT11C,D AND PDP11/70,
FOR THE PURPOSES OF TESTS 2-4 ONLY. IN THESE TESTS (SEE SECTION 9.7)
DIRECT ACCESS TO ALL OF PHYSICAL MEMORY ABOVE THE PROGRAM IS
EXERCISED.
FOR THE DURATION OF THESE 3 TESTS, MEMORY MANAGEMENT IS
ENABLED. IN ALL OTHER TESTS, AND DURING THE USE OF THE HEAD AL IGNMENT
AID, MEMORY MANAGEMENT IS DISABLED.

4.6

MEMORY PARITY CHECK

IF THE MEMORY PARITY CHECK OPTION IS

AVAILABLE

THE

SYSTEM,

ALL

CIR6NED RK611/06 S ViY2
CZR6NE .P11
26=-JUN-80 10:48

MACY11 30A(1052)

26=JUN-B0

10:53

1
PAGE 10

SEQ 0008

TESTING
IS DONE WITH PARITY CHECK ENABLED.
PARITY
REPORTED, AND TESTING IS ABORTED, UNLESS THE BYTE LABELED
PREVIOUSLY LOADED WITH A NON-ZERO VALUE.

4.7

ERRORS
MEMABT

ARE
WAS

BAD SECTORS

PCORDING TO A CONTROL SWITCH OPTION (SEE SECTION 8.2.4.2 )
THE BAD
SECTOR FILE ON EACH DRIVE TO BE TESTED IS TYPED AT THE CONSOLE PRIOR
TO TESTING.
ALL DATA ERRORS OCCURRING IN THE PROGRAM ARE MASKED OUT
éSFTaxsg) OCCUR ON SECTORS DESIGNATED AS BAD, (BY EITHER FACTORY OR

4.8

EXECUTION TIME

EXECUTION TIME IS DEPENDENT UPON PARAMETERS INPUT BY THE OPERATOR
(SUCH AS STALL TIME OR ITERATION COUNT), AND TO A GREAT DEGREE, UPON
THE AMOUNT OF MEMORY. HOWEVER, THE ''AVERAGE TIME'' REQUIRED TO RUN A
QUICK VERIFICATION (FIRST PASS) IS 2 MINUTES (FOR A 64K SYSTEM).
A
SUBSEQUENT PASS WITH PARAMETERS DEFAULTED REQUIRES 3 MINUTES PER DRIVE
(ON A 64=K SYSTEM).

NOTE: TIMES ARE APPROX DOUBLED FOR RKO7 TESTING.

5.0

PROGRAM LOADING

THE PROGRAM CAN BE LOADED FROM PAPER TAPE USING THE ABSOLUTE LOADER OR

FROM ANY MEDIA SUPPORTED BY XXDP.

6.0

STARTING PROCEDURE

6.1

STARTING ADDRESSES

200 NORMAL STARTING ADDRESS OF TESTS 1-6 (PARAMETERS DEFAULTED)
204 SELECT OPERATING PARAMETERS ,RK06/07 UNIBUS ADDR. AND INTERRUPT
VECTOR FOR TESTS 1-6
224 HEAD ALIGNMENT AID START ADDRESS
NOTE

FOR

HEAD

INFORMATION

THE SECTIONS

ALIGNMENT

PLEASE

WHICH

AID

OPERATING

SKIP TO SECTION 11,
IMMEDIATELY

APPLY ONLY TO THE SUBSYSTEM TESTS (1-6).

MACY11 30A(1052)

6.2

26=JUN-80

10:53

1
PAGE 11

SEQ 0009

SWITCH REGISTER OPTIONS USED

THIS PROGRAM IS DESIGNED TO ALLOW THE
USE
OF
THE
HARDWARE
SWITCH
REGISTER
IF PRESENT, OR THE SYSMAC-SUPPORTED SOF TWARE SWITCH REGISTER
(IF HARDWARE SWR IS NOT PRESENT OR IS SET TO ALL ONES).
IN EITHER

£$EE§57T¥S §0LLOUING OPTIONS ARE IMPLEMENTED WHEN THE APPROPRIATE BITS

_— 3

O=0OVO—=NWHrwN

BIT

OPTION
HALT ON ERROR

LOOP ON TEST
INHIBIT ERROR REPORTS
REPORT DESCRIPTION ONLY, ON ERRORS
INHIBIT ITERATIONS
BELL ON ERROR
LOOP ON ERROR
APPLY RANDOM STALL BETWEEN OPERATIONS

REPORT ONE ERROR PER TRANSFER IN TESTS 2-4
INHIBIT WRITES IN TEST 1
REPORT ALL SOFTWARE COMPARE ERRORS IN TESTS 2-4.
NOTE

FOR ADDITIONAL PROGRAM CONTROL

OPTIONS,

SEE DESCRIPTION OF CONTROL SWITCH WORD
(CS), SECTION 8.2.4.2 .

7.0

OPERATOR ACTION

OSSN -=

CZR6NED RK611/06 S ViY2
CZRONE .P11
26=JUN-80 10:48

LOAD PROGRAM INTO MEMORY (SEE SECTION 5.0)
LOAD A FORMATTED PACK ON EACH DRIVE TO BE TESTED.
gsg?fi DRIVE (S) TO ONLINE STATE, WRITE ENABLED, AND LOCKED ON

LOAD THE DESIRED STARTING ADDRESS (SEE SECTION 6.1)
SET SWITCHES IF DESIRED (SEE SECTION 6.2)

PRESS START OR GIVE APPROPRIATE MONITOR START COMMAND.

8.0

PROGRAM ACTION

8.1

DESCRIPTION OF OPERATING PARAMETERS

AFTER THE PROGRAM IS STARTED, IT TYPES ITS IDE NTIFICATION AS FOLLOWS:
“'CZR6NDO RK11/RK06-RKO7 SUBSYSTEM VERIF 1 SA}ION:PART 2"', FOLLOWED BY:
THE TESTS BEGIN EXECUTION
"LAST PHYS MEM ADRS=XXXXXXXX". THEN, EITH ER

CIRONEO RK611/06 35S ViY2
CZR6NE .P11
26=JUN-80 10:48

MACY11 30A(1052)

26-JUN-80

10:53

PAGE 12

SEQ 0010

475

478
479
480
481
23%

WITH DEFAULT PARAMETERS, OR AN OPERATOR INTERACTIVE MODE IS ENTERED
(SEE STARTING ADDRESSES,
SECTION 6.1).
IN THIS MODE OPERATING
PARAMETERS MAY BE LISTED OR ALTERED BY VARIOUS MEANS. ALL PARAMETERS
ARE TREATED AS OCTAL NUMBERS, AND THE PARAMETER LIST IS SHARED AMONG
THE TESTS.

484
485
486
487

THE FOLLOWING IS THE LIST OF OPERATING PARAMETERS, (WHICH APPLY TO THE
CURRENT SELECTION OF DRIVES AND TESTS).
AFTER EACH, IS INDICATED THE
VALID RANGE OF VALUES FOR THAT PARAMETER (IN OCTAL), AND ITS DEFAULT
VALUE. ALL PARAMETERS ARE ENTERED AS OCTAL NUMBERS, AND THE PARAMETER

283

490
23;

MNEMONICS SHOWN ARE THOSE USED BY THE PROGRAM.

FIRST CYLINDER ADDRESS IN TESTS WHICH ARE DONE
RANGE OF CYLINDERS, FC=0-631, DEFAULT=0

OVER

493

LAST CYLINDER ADDRESS IN TESTS WHICH ARE_DONE

OVER

496

FIRST TRACK ADDRESS IN TESTS

OVER

499

LAST TRACK ADDRESS IN TESTS WHICH ARE DONE OVER A RANGE

502
503

FIRST SECTOR ADDRESS IN TESTS WHICH ARE
RANGE OF SECTORS USED ON ANY DRIVE

20-SECTOR FORMAT CARTRIDGE.

DONE OVER
WHICH HAS

S0=0-23, DEFAULT=0.

A
A

506
507

LAST SECTOR ADDRESS IN TESTS
RANGE OF SECTORS USED ON

WHICH ARE
ANY DRIVE

DONE OVER
WHICH HAS

A
A

510

§2

DONE

232

28;

28?

ggg

RANGE OF CYLINDERS, LC=0-632, DEFAULT=632

g}%

ARE

DONE

OF TRACKS, LT=0-2, DEFAULT=2

20-SECTOR FORMAT CARTRIDGE.

b3}

WHICH

RANGE OF TRACKS, FT=0-2, DEFAULT=0

$§1=0-23, DEFAULT=23.

FIRST SECTOR ADDRESS IN TESTS WHICH
RANGE

SECTORS,

USED

ANY

ARE

DRIVE

WHICH

OVER

22-SECTOR FORMATTED CARTRIDGE, $2=0-25, DEFAULT=0.

HAS A

514
515

518
g;g

DATA PATTERN SELECT WORD (SEE
DETAILS) PT=0-177777, DEFAULT=0

521
gg%

CONTROL SWITCH WORD (SEE SECTION 8.2.4.2
€$=0-000062, DEFAULT=0

FOR

DETAILS)

524
525

NUMBER OF UNIT STALL TIMES WITH WHICH TO STALL
BETWEEN RKO6 COMMANDS

(DELAY)

g}?

22-SECTOR FORMATTED CARTRIDGE.

526

529

LAST SECTOR ADDRESS IN TESTS WHICH ARE DONE OVER A
RANGE OF SECTORS, USED ON ANY DRIVE WHICH HAS A

8.2

$3=0-25, DEFAULT = 25.
SECTION

8.2.4.1

SELECTION OF OPERATING PARAMETERS (ADDRESS 204 START)

FOR

CZR6NED RK611/06 3S ViY2
CZR6NE.P11
26-JUN-80 10:48

MACY11 30A(1052)

26-JUN-80

10:53

SR
PAGE 13

SEQ 0011

S NNV =O O oo~

FRRURS

Vi(Y IV IV TV LV IV LV IV IV ]
S0 W W

530

8.2.1

DRIVE SELECTION

AFTER AN ADDRESS 204 START, THE PROGRAM INDICATES INPUT MODE BY TYPING

“'PARAMETER INPUT MODE''. THEN, THE RK611 REGISTER ADDRESS, RK06/07 VECTOR
tgttgag AND RKO6 PRIORITY ARE OPENED FOR POSSIBLE MODIFICATION AS
RK06-07 BUS ADR = 177440
RK06-07 VEC ADR
210
RK06-07 PRIORITY=
5

NEW=(TYPE NEW VALUE HERE)
NEW=(TYPE NEW VALUE HERE)
NEW=(TYPE NEW VALUE HERE)

NEXT THE PROGRAM TYPES THE NUMBER(S) OF THE CURRENT DRIVES UNDER TEST,
Egkhgrsb BY A (*) ON THE NEXT LINE TO REQUEST NEW DRIVE NUMBERS. FOR
PARAMETER INPUT MODE

DRIVE(S)=0,1,2,4,7
+ (INPUT, IF ANY, GOES HERE)

THE OPERATOR TYPES THE NEW NUMBERS (SEPARATED BY COMMAS) PLUS <CR> OR
SIMPLY <CR> TO LEAVE THEM UNCHANGED.
IF HE ENTERS DRIVE NUMBERS,
THESE DRIVES ARE THEN CHECKED FOR VALID STATUS BY THE PROGRAM, AND ALL
THOSE TYPED WHICH ARE ACCEPTABLE WILL NOW BE LISTED AS BEFORE.
THE

OPERATOR MAY MANUALLY RECONFIGURE THE DRIVES AND TYPE IN_NEW DRIVE
NUMBERS, AND THESE WILL BE CHECKED AND TYPED, UNTIL THE OPERATOR
FINALLY TYPES JUST <CR>.

ON INITIAL ENTRY FROM ADDRESS 204,

THOSE

THE

THE DRIVES WHICH ARE LISTED ARE ALL

SUBSYSTEM WHICH ARE ON-LINE, READY, WRITE-ENABLED, AND

LOADED WITH A CARTRIDGE OTHER THAN AN ALIGNMENT PACK.
(THIS IS THE
DEFAULT DRIVE SELECTION FOR ADDRESS 200 START). ON ALL OTHER ENTRIES
TO THE DRIVE SELECTION ROUTINE (VIA <*C> AS DESCRIBED
8.2.2.5 AND B8.2.3.6) THE PROGRAM FIRST TYPES :

SECTIONS

TO TEST ALL DRIVES TYPE ''A"" <CR>, ELSE <CR>
* (CHARACTER GOES HERE)

NEXT, THE DRIVES ARE LISTED AS SHOWN ABOVE.
IF
(A)
IS TYPED, ALL
AVAILABLE DRIVES WILL BE LISTED, AND IF NOT, THE PREVIOUS SELECTION OF
DRIVES WILL BE LISTED.

8.2.2

TEST SELECTION

WHEN THE OPERATOR FINALLY TYPES JUST <CR> IN RESPONSE TO THE DRIVE
REQUEST.,
THE PROGRAM ENTERS THE TEST INPUT ROUTINE. THE FOLLOWING

INSTRUCTIVE LINES ARE TYPED :

L = LIST TESTS
C = CHANGE TESTS
I = INPUT PARAMETERS AND RUN TESTS

CZRONED RK611/06 3S ViY2

CZRONE.P1
586
587
588
ggg

26=JUN-80 10:48

MACY11 30A(1052)

ggg

600
601
602
603

604
605
606
607
283

610
611

PAGE 14

SEQ 0012

ENTER L,C, OR I

gg%

596
597

10:53

THEN, THE FOLLOWING REQUEST IS MADE :

591

ggg

26-JUN-80

* (CHARACTER GOES HERE)

THE OPERATOR TYPES THE DESIRED CHARACTER PLUS <CR>.

8.2.2.1

LIST TESTS, (L)

IF (L) IS TYPED, THE PROGRAM TYPES THE CURRENT DESIRED TEST

FOLLOWS :

TEST
1

2
3
4
ETC.

LIST,

ITERATIONS
0

177777
400
25

THE ITERATION NUMBER IS THE NUMBER OF TIMES THE TEST WILL BE RUN_ON
THIS PASS, AND IT MUST BE BETWEEN O AND 177777. IF IT IS ZERO, THAT

612
2}2

TEST WILL NOT BE RUN. ON THE FIRST TIME THROUGH, ALL TESTS ARE LISTED
WITH DEFAULT ITERATIONS (YET TO BE DETERMINED).

615

WHEN THE LIST IS COMPLETED, THE PROGRAM RETURNS TO TYPE :

616
617

618
619

g%?

622

OR I'' AGAIN.

8.2.2.2

"ENTER L.C,

(CHANGE TESTS, (C)

IF (C) IS TYPED, THE PROGRAM THEN ASKS:

'‘TO DEFAULT TESTS TYPE D<CR>,

623

ELSE <CR>',

628

TEST

631
632
633
634

THE OPERATOR THEN TYPES THE NEW VALUE PLUS <CR>, OR JUST <CR> TO LEAVE
IF THE OPERATOR TYPES A NUMBER FOLLOWED BY <!>
IT UNCHANGED.
(EXCLAMATION POINT), THE NUMBER JUST ENTERED WILL BE LOADED INTO THE
ITERATION TABLE FOR ALL REMAINING TESTS. AFTER ALL TESTS HAVE BEEN

624
625
gg?

2%3

IF JUST <CR> IS TYPED, THE PROGRAM SEQUENTIALLY OPENS

EACH TEST FOR POSSIBLE ALTERATION OF THE ITERATION NUMBER. EACH TEST
IS OPENED AND A NEW LINE IS TYPED, GIVING THE TEST NO. AND ITER. NO.
IN OCTAL, FOLLOWED BY (*) ON THE SAME LINE. FOR EXAMPLE :

ITERATIONS

0 + (INPUT, IF ANY, GOES HERE)

ggg

OPENED, THE PROGRAM RETURNS TO TYPE: “ENTER L,C, OR I'' AGAIN.

gzg

8.2.2.3

641

IF (1) IS TYPED, THE PROGRAM

INPUT PARAMETERS AND RUN TESTS, (I)
ENTERS

THE

PARAMETER

LIST

ALTERATION

CIR6NED RK611/06 S ViY2
CZRONE.P11.
26-JUN-B80 10:48

MACY11 30A(1052)

26-JUN-80

10:53

1
PAGE 15

ROUTINE, DESCRIBED IN § ECTION 8.2.3,

BE INPUT, AND T ESTING BEGUN.

8.2.2.4

SEQ 0013

IN WHICH OPERATING PARAMETERS MAY

CONTROL Z (*Z) FUNCTION

IF _THE OPERATOR WISHES TO EXIT AT ANY TIME

FETURN TO SELECT A NEW MODE

8.2.2.5
IF

(L,C, OR

I),

MODE,

AND

RETURN

PARAMETER

LIST,

(“Z)

MAY BE

TYPED.

CONTROL C (*C) FUNCTION

THE OPERATOR WISHES TO TERMINATE L,C, OR

REQUEST NEW DRIVES AND TESTS, CONTROL C

8.2.3

FROM

CONTROL Z

(*C) MAY BE TYPED.

PARAMETER LIST ALTERATION

THE PROGRAM NEXT TYPES THE FOLLOWING INSTRUCTIVE LINES:
T = TYPE LIST
0 = OPEN LIST
S = SET INDIVIDUAL PARAM,
= RUN TESTS
ENTER 7,0,5, OR R
* (CHARACTER GOES WERE)
THE OPERATOR TYPES THE DESIRED CHARACTER PLUS <CR>.

8.2.3.1
IF

(T)

TYPE LIST,

(T)

IS TYPED, THE PROGRAM TYPES

FOLLOWS:

THE

CURRENT

FC
XXXXXX
XXXXXX
LC
ETC.

WHEN THE LlST

OR R'' AGAIN

8.2.3.2
IF

IS COMPLETED, THE PROGRAM RETURNS TO TYPE "ENTER

T,0,S,

OPEN LIST, (0)

(D) IS TYPED THE PROGRAM THEN

ASKS: ''TO

DEFAULT

ALL

PARAMETERS

TYPE
D<CR>,
ELSE_
<CR>''.
IF
JUST
<CR>
IS
TYPED,
THE
PROGRAM
SEQUENTIALLY OPENS EACH OPERATING PARAMETER IN THE LIST FOR ALTERATION

CIR6NEO RK611/06 S ViY2
CZR6NE.P1N
26=-JUN-80 10:48

MACY11 30A(1052)

26=JUN-B0

10:53

2
PAGE 16

SEQ 0014

(IN THE ORDER SHOWN IN SECTION 8.1).
EACH PARAMETER IS OPENED AND A
NEW LINE IS TYPED, GIVING THE PARAMETER AND
ITS CURRENT VALUE
(IN
OCTAL), FOLLOWED BY (*) ON THE SAME LINE.
FOR EXAMPLE:

1C=3 ~ (INPUT, IF ANY, GOES HERE)
THE OPERATOR THEN TYPES THE NEW VALUE PLUS A

<CR>

JUST

<(CR>

LEAVE THAT PARAMETER UNCHANGED. AFTER ALL PARAMETERS HAVE BEEN OPENED
FOR ALTERATION, THE PROGRAM RETURNS TO TYPE ''ENTER T,0,S, OR R'' AGAIN.

8.2.3.3

SET INDIVIDUAL PARAMETER, (S)

IF (S) IS TYPED, THE PROGRAM TYPES THE PROMPTER (>) ON THE NEXT LINE,
AND WAITS FOR' THE OPERATOR TO SET THE VALUE OF ANY INDIVIDUAL
PARAME TER:

ENTER 7.0.5, OR R
*

(ENTER PARAMETER AND VALUE HERE)

THE OPERATOR TYPES THE PARAMETER AND ITS NEW VALUE FOLLOWED BY <(R>,
AND THE PROGRAM GIVES THE PROMPTER
(>) AGAIN AS IN THE FOLLOWING
EXAMPLE:
>
>

FC = 600
FS =12

-E18.

IT =1

TO TERMINATE INDIVIDUAL SETTING MODE, THE OPERATOR TYPES CONTROL
(*2), AND THE PROGRAM RETURNS TO TYPE "'ENTER T,0, S, OR R'' AGAIN.

8.2.3.4

RUN TESTS, (R)

IF THE OPERATOR TYPES (R), EXECUTION OF TESTS BEGINS,

CURRENT PARAMETERS.

8.2.3.5

USING

ALL

THE

CONTROL Z (*Z) FUNCTION

IF THE OPERATOR WISHES TO EXIT AT ANY TIME FROM T, O, S, OR R _ MODE
(RUNNING TESTS), AND RETURN TO SELECT A NEW MODE (T7,0,S, OR R),

CONTROL Z (*Z) MAY BE TYPED.

8.2.3.6

CONTROL C (*C) FUNCTION

CIR6NED RK611/06 sS ViY2
CZRONE .P11
26-!UN-80 10:48

MACY11 30A(1052)

26-JUN-80

10:53

2
PAGE 17

SEQ 0015

IF_THE OPERATOR WISHES TO TERMINA TE 7. 0, OR S MODE, OR STOP TEST
MAY BE TYPED, AND THE PROGRAM WILL
EXECUTION (R MODE),
CONTROL C (*
RETURN TO REQUEST NEW DRIVE SELecré ON (SEE SECTION 8.2.1).
(ON AN
ADDRESS 200 DEFAULT RUN, TYPING CONTROL C CAUSES THE PROGRAM TO HALT
AFTER COMPLETING ANY DATA TRANSFER )

€.2.4

SPECIAL PARAMETER SPECIFICATIONS

8.2.4.1

PT=DATA PATTERN SELECT WORD

T0
THE OPERATOR SPECIFIES A WORD OF SIXTEEN BITS
(6 OCT.
DIGI 1§),
SELECT UP TO ALL SIXTEEN OF THE PATTERNS, LISTED IN SECTIO N 9.5.1.
&
THE NO. OF ANY BIT SET IN PT CORRESPONDS TO THE NO.
OF
A PATTERN

CHOSEN.
IF THE HIGH BIT OF PT (BIT 15) IS SET, THE USER WILL 8 BE ASKED
TO TYPE UP TO SIXTEEN DATA WORDS WHICH WILL BE LOADED INTO THE BUFFER

FOR PATTERN 15.

THE PROGRAM TYPES:

“'SELECT USER DEFINED PATTERN 15"
NEXT, EACH OF UP TO 16 WORDS ARE REQUESTED BY THE PROGRAM IN THE
SAME
MANNER
IN WHICH THE OPERATING PARAMETERS ARE OPENED FOR ALTERATION
(SEE SECT.
8.2.3.2):
WORD 0 = (OLD VALUE) * (NEW VALUE GOES HERE)
g?gb 1 = (OLD VALUE) * (NEW VALUE GOES HERE)
FOR EACH WORD, THE USER TYPES THE NEW VALUE PLUS <CR>, OR JUST <(R>,
(TO LEAVE IT UNCHANGED). TO INPUT LESS THAN 16 WORDS FOR PATTERN 15,
THE OPERATOR MAY TYPE (!) (EXCLAMATION POINT)
AND THE PROGRAM WILL
FILL UP THE REST OF
THE PATTERN 15 BUFFER WITH THE LAST WORD

SPECIFIED.

NEXT, THE PROGRAM WILL CONTINUE, IN THE

INPUT MODE (0 OR S).

§2SRERESE

8.2.4.2

PROPER

PARAMETER

(S- CONTROL SWITCH WORD

IN ADDITION TO THE OPTIONS PROVIDED BY THE SWITCH REGISTER (HARDWARE
OR SOFTWARE), A CONTROL SWITCH WORD (CS) MAY BE SPECIFIED AMONG THE
OPERATING PARAMETERS TO PROVIDE THE FOLLOWING OPTIONS:
BIT

05
04
01

OPTION

DROP DRIVE IF 20 (DEC) £~ "RS EXCEEDED
TYPE BAD SECTOR FILES (BSi S) ON FIRST PASS)
INWIBIT OFFSET REPORTS IN TEST 1

MACY11 30A(1052) 26=JUN-80 10:53 PA%E 18
0

WONO
VNS WN-=O

(o Zo T

Jo Jo Jo To To ]00 00 0D 0O

CIRONED RK611/06 3S ViY2
CZR6NE .P11
26=-JUN-80 10:48

820

SEQ@ 0016

NOTE

OTHER BITS UNUSED

8.3

DATA PATTERNS

THIS SECTION DESCRIBES THE DATA PATTERNS AVAILABLE
FOR USE
IN THE
TESTS.
EACH DATA PATTERN
IS COMPRISED OF 16 WORDS.
PATTERNS ARE
REPEATED AS NECESSARY TO OBTAIN THE DESIRED WORD COUNT ON THE WRITE

DATA COMMANDS.
THE MAXIMUM ALLOWABLE WORD COUNT IS DETERMINED BY THE
AMOUNT OF AVAILABLE BUFFER SPACE AT THE END OF THE PROGRAM, AND COULD
BE AS LARGE AS 65,536 (DEC) WORDS. DATA SPIRALING AND TRACK SWITCHING
IS THUS POSSIBLE DURING THE DATA TESTS.
THE FOLLOWING IS THE LIST OF 16 SELECTABLE DATA PATTERNS
WITH NOTABLE FEATURES DESCRIBED:

(IN

OCTAL),

CZRONEO RK611/06 3S ViY2
CZRONE .P11
26=JUN-80 10:48
832
833
834
835
836

837

g%g
840

841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
gg?
858

859
860
861
ggg
864

865
866

MACY11 30A(1052)

SEQ 0017

HIGH=-LOW

HIGH FREQUENCY

LOW FREQUENCY

FREQUENCY MIX

PHASE MIX

3
MAX IMUM

PRECOMPENSATION
PHASE MIX

177777
177777
177777
052525
052525
052525
177777
177777
052525
052525
177777
052525
177252
177252
172765
172765

000000
000000
000000
177777
177777
177777
000000
000000
177777
177777
000000
177777
000000
177777
000000
177777

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

133333
066666
155555
155555

&
ROTATING

5
ROTATING

6
ALL

7
ALL

133333
066666
066666
155555
155555
133333
133333
133333
133333
133333
133333
133333

BOUNDARY PULSE
PRECOMPENSATION

PRECOMPENSATION

CELL PULSE

ZEROS

ONES

121105
150442

026455
113226

000000
000000

177777
177777

132110
055044
026422
013211
105504
042642

122645
151322
064551
132264
055132
026455

021321

878
879
880

2
PAGE 19

874

877

064221

875
876

10:53

867

868
869
870
.14
872
873

26-JUN-80

045513

000000

177777

113226

000000

177777

110550
044264

045513
122645

011055
104426
042213

064551
132264
055132

022132

151322

000000
000000
000000
000000
000000
000000

000000
000000

000000

000000
000000
000000

177777
177777
177777
177777
177777
177777

177777
177777

177777
177777
177777
177

12
SHIFTING

0'S AND 1'S

000001
000003
000007

177777

13
COMPOSITE

ROTATING

PSEUDORANDUM

T
Vi

T i i

LSS ST NTNT NI NI NN SN NN NN [N ]

il
i
i

D e

el e

1-0

0-1

ALTERNATING

077777

10
AL TERNATING

SEQ 0018

rorororORDNDNDNDNDRDNDRDNDND
NN

100000

2
PAGE 20

—

10:53

ST ST NT NI NI ST NI NT NI NI NI NN N N1 ]

26=JUN-80

VWA
TV TV
VWAV
NN
VI
AT T
T AT VAT
ALY
oo
VI VTV
VAT ALY

MACY11 30A(1052)

[=lelelelelelelelelelelalelalale

CZR6NED RK611/06 sS ViY2
CZRONE .P11
26=JUN-80 10:48

USERDEF INED

CIR6NED RKk611/706 sS ViYe
CZRONE .P11
26=-JUN-B0 10:48

MACY11 30A(1052)

26-JUN-B0

10:53

9.0

DESCRIPTION OF

TESTS

9.1

TEST 1

2
PAGE 21

IN THIS TEST A REPEATED PATTERN 072307(OCT) IS WRITTEN INTO ALL WORDS
OF SECTORS FS AND LS ON TRACKS 0-2 OF CYLINDERS FC AND LC. THE SAME
SECTORS ON ADJACENT CYLINDERS ARE THEN WRITTEN WITH 167230(0CT) (70
ESTABLISH A KNOWN PATTERN), BUT THEY ARE NOT TESTED. THEN, EACH
vESIRED SECTOR IS WRITE CHECKED WITH INCREASING POSITIVE OFFSETS,
UNTIL EITHER A 'DATA TYPE'' ERROR OCCURS, OR THE FULL RANGE OF POSITIVE
OFFSETS HAVE BEEN APPLIED.
THEN, THE SAME SECTOR IS WRITE CHECKED
WITH INCREASING NEGATIVE HEAD OFFSETS, UNTIL FAILURE OR MAXIMUM
NEGATIVE OFFSET
IS APPLIED.
THIS
IS DONE FOR ALL THE SECTORS
ORIGINALLY WRITTEN,
IN THE FOLLOWING ORDER:
SECTORS FS AND LS ON
CYLINDERS FC AND LC FOR TRACK O, THEN FOR TRACK 1, AND FINALLY FOR
RESULTS

ARE

REPORTED IN ORDER OF

OFFSET=TO-FAILURE MEASUREMENTS:
TRACK

CYLN

SECT

X
X
X

XXx
XXx
Xxx

XX
XX
XX

=OFST
(UIN)
XXXX
XXXX
XXXX

NOTE

IN AN ADRS 200 DEFAULT RUN, FS DEFAULTS
T0O 0,
AND LS DEFAULTS TO 12(0CT), FOR
THIS TEST.

9.2

NPR / MAIN MEMORY TESTS

THIS GROUP OF TESTS EXERCISES ALL MEMORY
READ/WRITE NPR TRANSFERS WITH THE RKO6.
DIAGNOSE MEMORY TRANSFER FAILURES DURING

SYSTEMS

PROVIDED

WITH

MEMORY

S—

SEQ 0019

= OFFSET=TO-FAILURE MEASUREMENT

TRACK 2.
THE
OFFSET=-TO-FAILURE
INCREASING TRACKS, AS FOLLOWS:

——

ABOVE
THE PROGRAM, VIA
THE TESTS ARE DESIGNED TO

HEAVY NPR ACTIVITY,
IN
MANAGEMENT (KT 11 C, D OR PDP 11/70),

ALTHOUGH MEMORY MANAGEMENT IS NOT REQUIRED.
NOTE

THERE IS NO PROGRAM RELOCATION
(EXCEPT
FOR
THE
XXDP OR ABSOLUTE
LOADER, IFf

CZR6NEO RK611/06 SS viY2
CZR6NE.P11
26=JUN-80 10:48

MACY11 30A(1052)

OO NOWVE
NN 2O OO NO VS W=D

et
v Sl o

—

i il e

D e

D i

D e

(=1=] (el=]lelelelelelalelelelelelelelelelele]
NN NINININIMNINININ
= b e b b cd oD ed b

D i i

g8 83238852383838838388

984
985
986
987

26-JUN-80

10:53

2
PAGE 22

SEQ 0020

PRESENT).
HENCE, MEMORY
IN WHICH
THE
PROGRAM RESIDES
IS NOT TESTED.
ALSO,
THE UNIBUS 1/0 ADDRESSES ARE NOT TESTED.

IF
IT
IS DESIRED THAT THE LOADER BE
DESTROYED, SO THAT ADDITIONAL MEMORY MAY
BE TESTED, LOCATION 170 (KILLDR:) MAY
MANUALLY BE SET TO A NON-ZERO VALUE.

THERE ARE 3 MEMORY TESTS PROVIDED.
TESTS 2 AND 3 ARE TESTS OF MEMORY
ADDRESSING CAPABILITY DURING DISK NPR'S, AND TEST & IS AN NPR/MEMORY
DATA PATTERN TEST. DURING TESTING, MEMORY MANAGEMENT WILL BE ENABLED
IF
INSTALLED, AND ALL OPERATIONS WILL BE PERFORMED IN KERNAL MODE,
WITH ADDRESS RELOCATION BEING DONE THROUGH MANIPULATION OF
KERNAL
I
PAGE ADDRESS REGISTERS.

9.2.1

TEST 2 = NPR/MEMORY WORD ADDRESSING TEST

STARTING AT THE FIRST ADDRESS OF THE NEXT 1 K MEMORY BLOCK BEYOND THE
END OF
THE READ/WRITE DATA BUFFER (RWBUF), WRITE UNIQUE NUMBERS
(STARTING WITH 1) INTO EACH OF UP TO 64K WORDS
(DEPENDING ON THE
AMOUNT OF PHYSICAL MEMORY).
THESE NUMBERS REFLECT UNIQUE ADDRESSES
WITHIN THE 64K BLOCK. NEXT WRITE THE 64K WORDS (MAX) ONTO DISK AT FC,
FS,
FT (SCALED, IF NECESSARY, TO AVOID PACK OVERFLOW).
THEN ZERO THE
ENTIRE 64K BLOCK IN MEMORY, AND READ THE DATA BACK FROM THE DISK, AT
THE SAME PHYSICAL ADDRESSES.
COMPARE THE DATA READ TO THE DATA
WRITTEN.
TYPE THE FAILING VIRTUAL (IF MEM. MANAGEMENT) AND PHYSICAL
ADDRESSES, AS WELL AS THE GOOD AND BAD DATA, FOR UP TO THE FIRST 10
(DECIMAL) FAILING LOCATIONS.

IF MEMORY MANAGEMENT IS PROVIDED AND THERE IS ADDITONAL MEMORY TO
TEST, REPEAT THE ABOVE ADDRESSING TEST FOR EACH OF THE REMAINING 64K

PHYSICAL MEMORY BLOCKS.

9.2.2

TEST 3 - NPR/MEMORY BLOCK ADDRESSING TEST

%25;?65 TEST, MEMORY BLOCK ADDRESSING CAPABILITY DURING RKO6 NPR'S

THE TEST BEGINS BY WRITING A SINGLE NUMBER INTO ALL LOCATIONS OF EACH
MEMORY BLOCK OF UP TO 64K WORDS. THIS NUMBER UNIQUELY DEFINES EACH

BLOCK. THEN WRITE EACH BLOCK ONTO DISK AT ADDRESS FC, FS, FT (SCALED,
IF NECESSARY TO AVOID PACK OVERFLOW OR DESTRUCTION OF THE BAD SECTOR

FILE). 2ERO THE BLOCK IN MEMORY, AND THEN READ THE DATA BACK INTO THE
PROPER PHYSICAL ADDRESSES, DO THIS FOR ALL 64K BLOCKS, AND THEN
COMPARE THE CONTENTS OF ALL THE MEMORY TO EXPECTED VALUES.
TYPE
FAILURES AS DESCRIBED ABOVE FOR THE FIRST 10(DEC) FAILING LOCATIONS IN
EACH 64K MEMORY BLOCK.

CIR6NEO RK611/06 3S ViY2
26=JUN-80 10:48

CZR6NE .P11

MACY11 30A(1052)

26-JUN-B0

10:53

2
PAGE <3

SEQ 0021

1039

9.2.3

TEST & = NPR/MEMORY DATA PATTERN TEST

IN THIS TEST, ALL PHYSICAL MEMORY LOCATIONS ABOVE THE PROGRAM (NOT
INCLUDING UPPER UNIBUS DEVICE ADDRESSES) ARE EXERCISED WITH UP TO 15
DATA PATTERNS, AS CHOSEN FROM THE FIRST 14 PATTERNS DESCRIBED IN
SECTION 8.3, PLUS PATTERN 15 (USER DEFINED PATTERN).
THE DATA
PATTERNS DESIRED FOR THIS TEST ARE CHOSEN SEPARATELY, HOWEVER, AND
THEY DEFAULT TO PATTERNS 8, 9, 10, AND 11,
MEMORY IS TESTED IN BLOCKS OF 64K, STARTING AT THE
FIRST ADDRESS OF
THE NEXT 1K MEMORY BLOCK BEYOND THE PROGRAM.
EACH BLOCK OF UP TO 64K

IS LOADED WITH DATA, WRITTEN ONTO DISK AT FC, FS, FT, LOADED WITH
ZEROS, AND READ BACK AND COMPARED. THIS IS DONE FOR EACH OF THE DATA

PATTERNS CHOSEN, INCLUDING AN OPTIONAL PATTERN CHOSEN BY THE USER.

o
~
o

38RREERERE
28

1060

1071

9.3

TEST 5 = UNIBUS CONTENTION TEST

THE PURPOSE OF THIS TEST IS TO EXERCISE THE NPR CONTROL LOGIC WITHIN
THE CONTROLLER IN SUCH A MANNER THAT A CONTENTION FOR MEMORY CYCLES
ARISES BETWEEN THE PROCESSOR AND THE RKO06.

FIRST, A WRITE DATA IS BEGUN ON CYLINDER FC,
OVERFLOW) AT SECTOR O, WITH THE BUS ADDRESS

IN THE CONTROLLER.

USING A WORD COUNT

(SCALED TO AVOID PACK
INCREMENT INHIBIT BIT SET

12000(0CT)

OR_

13000(0CT)

(DEPENDING ON THE FORMAT), THE ENTIRE TRACK IS WRITTEN WITH THE FIRST
WORD OF USER DEFINED PATTERN 15 (IF SELECTED) OR THE FIRST WORD OF
PATTERN 13 (BY DEFAULT).
THEN, AN INSTRUCTION LOOP IS ENTERED IN
WHICH A NON-EXISTENT UNIBUS DEVICE ADDRESS IS REFERENCED ONCE PER

PASS. THIS WILL RESULT IN A PROCESSOR SIEZURE OF THE UNIBUS, FOR 5-20
MICRO-SEC (DEPENDING ON THE PROCESSOR), FOLLOWED BY A NON-EXISTENT
MEMORY PROCESSOR TRAP, ONCE PER PASS. THUS, FOR EACH PASS THROUGH THE

INSTRUCTION LOOP, THE CONTROLLER 1S FORCED TO LOSE FROM ONE

TO FOUR

NPR BUS CYCLES.
THE EXECUTION TIME OF THE LOOP DETERMINES THE
REPITITION RATE OF THE NON-EXISTENT MEMORY REFERENCES, AND THIS IS
CHOSEN TO ALLOW ENOUGH NPR'S SO THAT THERE SHOULD BE NO DATA LATE
ERRORS IN A FAULT-FREE CONTROLLER. THE DATA IS THEN WRITE CHECKED FOR
VERIFICATION, AND THE ABOVE TEST IS REPEATED USING A READ DATA
COMMAND.

NO ERRORS ARE EXPECTED.

gztlggitazggPER

PATTERN

(13

WORD

OR 15) EACH TIME, TO WRITE AND READ THE

—

WIN)
—

h D e

00O

2333332 i34

D i cdh

THE ABOVE OPERATIONS ARE REPEATED 15 MORE TIMES, USING THE

9.4

TEST 6 - MULTI-DRIVE INTERFERENCE TEST

THIS TEST PERFORMS MULTI-DRIVE POSITIONING OPERATIONS, WHILE A LARGE
DATA TRANSFER IS IN PROGRESS ON THE DRIVE UNDER TEST, FOR THE PURPOSE
OF DETECTING PROBLEMS OF CONCURRENT DRIVE OPERATION. THE TEST IS RUN
ONLY IF THERE IS MORE THAN ONE DRIVE ON THE SUBSYSTEM.

CIR6NED RK611/06 S ViY2

CZRONE .P11

26=JUN-80 10:48

MACY11 30A(1052) 26=-JUN-80 10:53 PA%E 24
J

THE TEST PROCEEDS AS FOLLOWS:
IT IS FIRST DETERMINED WHICH DRIVE(S)
(BESIDE THE ONE UNDER TEST) EXIST AND ARE OPERATIONAL.
THESE DRIVES
ARE THEN CLEARED AND A SEEK TO CYL O IS DONE ON EACH.
NEXT, A SEEK IS
DONE TO CYLINDER FC (SCALED, IF NECESSARY) ON THE DRIVE UNDER TEST. A

SEEK 1S NOW BEGUN ON EACH OF THE OTHER DRIVES , EACH TO A DIFFERENT

PSEUDO-RANDOM CYLINDER ADDRESS.
THIS SHOULD REQUIRE FROM 10-67
MILLI-SEC TO COMPLETE. AS SOON AS THESE SEEKS ARE BEGUN, A WRITE DATA
IS BEGUN ON THE DRIVE UNDER TEST, AT THE CURRENT CYLINDER (FC), SECTOR
C, TRACK O, WITH THE BUS ADDRESS INCREMENT INHIBIT BIT SET_IN THE
CONTROLLER, AND WITH A WORD COUNT OF 15,616 (DEC) WORDS IF 20 SECTOR

FORMAT, OR 17,152 (DEC) WORDS IF 22 SECTOR FORMAT.
THIS WORD COUNT
AMOUNTS TO A FULL CYLINDER +# 1 SECTOR OF DATA.
THIS TRANSFER REQUIRES
FROM 101-126 MILLI-SEC TO COMPLETE, AND IN THAT TIME, ALL THE OTHER
DRIVES SHOULD HAVE COMPLETED POSITIONING. NEXT, A WRITE CHECK IS DONE
TO VERIFY THE DATA URITTEN ON THE DRIVE UNDER TEST,
AND A CHECK
IS
MADE
TO
INSURE THAT ALL OTHER DRIVES WHICH PERFORMED SEEKS WERE ABLE
TO COMPLETE
THEM SUCCESSFULLY, BY CHECKING ATTENTION BITS
AND
COMPARING DRIVE CYLINDER ADDRESSES TO EXPECTED VALUES.

10.0

ERROR REPORTING

10.1

COMMON ERRORS

THE FOLLOWING IS A LIST OF COMMON ERROR MESSAGES WHICH ACCOMPANY ERROR
TYPEOUTS FROM THE
SUBSYSTEM VERIFICATION PROGRAM.
THE ERRORS ARE
SELF=EXPLANATORY.

N == OOV

NO WV

b b ed e ed d d

N = OV

NN WS W

POROND =

[
P PP AP S
S
— il il o il il e e e

oo~

- ————————— Y P
I
R
I
P
e
R
e e R e e R- b
D il i i il D D D
D D i i D i D D
i D D D e i D D D D D D D D D D D D D i e O (= 1=
OO
WA
NN NN
NP NOINININ) = b b b b e D b b b
VS BB
UVWHWKWW

1095
1096

UNIBUS PARITY ERROR
NON=-EXISTANT MEMORY ERROR
NON=-EXISTANT DRIVE ERROR

UNIT FIELD ERROR
SUBSYSTEM TIMEOUT
SERCON PARITY ERROR
gglVSUDETECTED PARITY ERROR
L

SPEED LOSS
ILLEGAL FUNCTION ERROR
PROGRAMMING ERROR
NON-EXECUTABLE FUNCTION ERROR
DRIVE TYPE ERROR
FORMAT ERROR
WRITE LOCK ERROR
DRIVE UNSAFE ERROR
SEEK INCOMPLETE ERROR
CYLINDER OVERFLOW ERROR

ILLEGAL CYLINDER ADDRESS ERROR
DRIVE OFF TRACK
DRIVE TIMING ERROR
DATA LATE ERROR

SEQ 0022

26=JUN-80 10:48

SRS RS R
97

RN R AR 2B IR IFINANIITEIESR

P11

MACY11 30A(1052)

B85 8585 8 5 5 5
N NN N N N N N NN OO OO NN
W
NO\ S NN =OOVBNO VNS WIN —-2O VNNV

NEO RK611/06 35S ViY2

10.2

26=JUN-B0

‘
K 2
10:53 PAGE 25

CONTROLLER TIMEOUT ERROR
OPERATION INCOMPLETE ERROR
HEADER VRC ERROR
DATA CHECK ERROR
WRITE CHECK ERROR
DATA MISCOMPARE
NO DRIVE RESPONSE = UFE AND NXD
DRIVE ERROR WILL NOT CLEAR
DRIVE STATUS CHANGE WILL NOT CLEAR
ATTENTION BUT NO STATUS CHANGE OR FAULT
ATTENTION BUT DRIVE NOT AVAILABLE

ERROR WHILE GATHERING DRIVE STATUS
MULTIPLE DRIVE SELECT
HEADER COMPARE ERROR

ERROR IN RECALIBRATE FOR RECOVERY
CLEAR CONTROLLER DID NOT CLEAR ERROR
NO ATTENTION IN ATTENTION SUMMARY REGISTER
UNSOLICITED ATTENTION
UNEXPECTED DATA TYPE ERROR
ATTENTION DID NOT RESET WITH CLEAR

SUBSYSTEM CLEAR DID NOT CLEAR DRIVE ATTENTION
DATA LATE WHEN UNLOADING HEADER
CONTROLLER ERROR WHEN DRIVER SERVICING
RETRY UNSUCCESSFUL

BAD SECTOR ERROR ON SECTOR NOT LISTED BAD

ERROR HANDLING

ERRORS REPORTED BY THE PROGRAM CONSIST OF COMMON FAILURES RESULTING
FROM ATTEMPTED SUBSYSTEM FUNCTIONS, AS WELL AS CERTAIN ERRORS UNIQUE
TO PARTICULAR TESTS.
EACH ERROR PRINTOUT CONSISTS OF AN ERROR
DESCRIPTION AND TEST NUMBER, POSSIBLY FOLLOWED BY HEADER LINES, COLUMN
HEADINGS, AND COLUMNS OF REGISTER CONTENTS IN OCTAL.
AS MUCH
MEANINGFUL REGISTER DATA AS POSSIBLE (FOR EXAMPLE, RK611 REGISTERS)
ARE REPORTED IN A GIVEN ERROR.
IN THE CASE OF A DATA MISCOMPARE, FOR
WORD, BAD DATA WORD, PHYSICAL MEMORY
DATA
GOOD
NUMBER
INSTANCE, THE
ADDRESS, VIRTUAL ADDRESS, AND MEMORY MANAGEMENT REGISTER CONTENTS (IF
PRESENT) ARE REPORTED.
OTHER ERROR REPORTS MAY CONSIST OF A SINGLE
DESCRIPTIVE LINE.

10.3

00
01
8%

EXAMPLE 1:
¢+ WRITE CHECK ERROR
TEST 2

PREVIOUS COMMAND:

000000

NN
-

SEQ 0023

ERROR PRINTOUT EXAMPLES

DRIVE

CMND

000121

CYLNDR

000016

TRACK

000001

SECTOR

000000

WD CNT

175000

-‘dddd-ddddddddddddfldflddddddddddddddfldd-‘-‘dddd-‘fl.‘-‘—l-‘-‘-fl—‘-‘ P
ST NN TST NS DS LN DOy~N
RN
NN
NN NNLSLSTST ST STNTNTNTSISISTISUSISUSDSUSISIS
o
VAIVAWVWWIAWIVAVAW
oo
NO
NN
=2 OOV NO VSN 2OV
N
VWA =000 ~
N =
NOWVESWNN-0OV
VOO NO V&
N = OOV

CZIR6NEO RK611/06 3S ViY2
CZR6NE .P11
26=JUN-B0 10:48

MACY11 30A(1052)

26=JUN-80

Hl BA

000000

Hl BA

000000

2
PAGE 26

SEQ 0024

LO BA

061566

CURRENT COMMAND:

ERR PC
041154

10:53

DRIVE
000000

LO BA

CMND
000131

CYLNDR
000016

TRACK
000001

SECTOR
000006

WD CNT
175000

061566

PACK ADDRESS OF ERROR(S):
SECTOR
TRACK
CYLNDR

000016

000001

000006

EXAMPLE 2:
«+

DATA MISCOMPARE
TEST 2

PREVIOUS COMMAND:

DRIVE
000000

HI BA

000000

CMND
000131

LO BA

Hl BA

000000

TRACK
000001

SECTOR
000000

WD CNT
175000

CMND
000121

CYLNDR
000016

TRACK
000001

SECTOR
000000

WD CNT
175000

074000

CURRENT COMMAND:

ERR PC
033156

CYLNDR
000016

DRIVE
000000

LO BA

074000

PACK ADDRESS OF ERROR(S):

11.0

CYLNDR
000016

TRACK
000001

SECTOR
000000

W #

600D

BAD

HI PHY

LO PHY

VRT AD

KIPAR6

000400
000401
000402
000403
000404
000405
000406
000407
000410
000411

000401
000402
00040
000404
000405
000406
000407
000410
000411
000412

125252
125252
125%5%
125252
1%5%5
125252
125%5
125252
125252
125252

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

075000
075002
075004
075006
075010
075012
075014
075016
075020
075022

155000
155002
155004
155006
155010
155012
155014
155016
155020
155022

000600
000600
000600
000600
000600
000600
000600
000600
000600
000600

RKO6 HEAD ALIGNMENT AID

THIS PROGRAM IS PROVIDED AS A SOFTWARE AID TO HEAD

ALIGNMENT

THE

CIR6NED RK611/06
3S ViY2
MACY11 30A(1052) 26-JUN-B0 10:53 PA%E 27
CZR6NE .P11
26=JUN-80 10:48
"

gooog
D QO 0O 00 00 \INNNN:NNNN
W
=
3%
ELFSF

D
D
D
D
D
DD
D
D
D
D
D

[+ ]
VI ES NN
= o 0 o~NOrW

D =D
D
D
D
D
D

2
3

oo~
-0V

NN NN

1266
1267

295
%g?

—

298
}%gg
}385

}ggz
1305

RKO6 DRIVE, TO BE USED IN CONJUNCTION WITH THE RKO6 FIELD TEST BOX, OR
OTHER SUITABLE INDICATOR OF HEAD ALIGNMENT.
THE PROGRAM OPERATES IN
TWO MODES.
THE FIRST IS MANUAL SELECT MODE, WHICH SELECTS A SPECIFIC
DRIVE AND HEAD TO BE ALIGNED BY TTY INPUT AT THE CONSOLE.
THE SECOND
MODE IS AUTO-SELECT MODE, WHICH ALLOWS REMOTE DRIVE AND HEAD SELECTION
THROUGH OPERATION OF DRIVE DUAL-PORT SELECT SWITCHES.
IN EITHER MODE
THE OPERATOR HAS THE OPTION TO EITHER PERFORM HEAD ALIGNMENT, VERIFY
ALIGNMENT, OR REQUEST UP TO FIVE MINUTES OF RANDOM SEEK EXERCISES TO
BS PERFORMED ON THE SPECIFIED DRIVE (S).

11.1

HARDWARE REQUIREMENTS

TO PERFORM HEAD ALIGNMENT, THE ALIGNMENT
INDICATING DEVICE MUST BE
CONNECTED TO THE DRIVE VIA THE ALIGNMENT CABLE WHICH ATTACHES TO THE
RKO6 READ/WRITE MODULE.
THE ALIGNMENT INFORMATION FROM THE DRIVE MUST
BE DISPLAYED ON A METER OR OTHER INDICATOR. EACH DRIVE TO BE ALIGNED
MUST BE LOADED WITH AN RKO6 ALIGNMENT CARTRIDGE, AND MUST BE
WRITE-PROTECTED.
UP TO EIGHT DRIVES PER CONTROLLER MAY BE ALIGNED,
AND EACH DRIVE MAY BE OPERATED IN SINGLE-PORT MODE ONLY.
FOR THE
PURPOSE OF
THE HEAD ALIGNMENT AND ALL SWITCH REGISTER BITS (HARDWARE
OR SOFTWARE) ARE IGNORED.

11.2

OPERATIONAL MODES

THE PROGRAM COMMUNICATES WITH THE OPERATOR DOING THE ALIGNMENT THROUGH

CONSOLE DIALOGUE. WHEN THE PROGRAM IS STARTED AT ADDRESS 224(OCTAL),
IT TYPES IDENTIFICATION:
' «ee RK06=07 HEAD ALIGNMENT AID wx+
TYPE H(CR) FOR INFORMATION- OTHERWISE, TYPE (CR) "'
NEXT, THE PROGRAM REQUESTS THE DESIRED MODE OF OPERATION:

** MANUAL OR AUTO MODE (M OR A) ?
THE OPERATOR MAKES THE SELECTION, AND

1306

MODES.

}g}?

11.2.1

1307
1308
1309

1312

SEQ 0025

"
ENTERS

ONE

THE

FOLLOWING

MANUAL SELECT MODE

THE

HEAD(S)

1314
}g}g

WITH FEW DRIVES, WHICH ARE IN CLOSE PROXIMITY TO THE
TYPICAL FIELD INSTALLATIONS.

CONSOLE,

1517

THE PROGRAM FIRST ECHOS THE MODE:

1313

IN THIS MODE,

THE DRIVE(S)

ALIGNED

SELECTED ARE SPECIFIED BY TTY INPUT.

AND

THIS MODE IS USEFUL FOR SYSTEMS

:6"50 RK611/706 S viY2
6NE.P1

MACY1? 30A(1052) 26-JUN-80 10:53 PA%E 28
N

26=JUN=-80 10:48

1318
1319
1320
1321

"'* MANUAL SELECT MODE + '’
AND TYPES ‘ENTER DRIVE NO.

}g%%

SEQ 0026

(0=7):'",

1324
132¢

THE OPERATOR TYPES THE DRIVE NUMBER,
THE PROGRAM TYPES
THE DRIVE
SERIAL NUMBER, AND THEN ASKS ''ALIGN, VERIFY, OR EXERCISE (A, V, OR E)

1327
1328
1329
1330
}g%%

SUB-MODE
.

11.2.1.1

}ggz

ALIGNMENT IN MANUAL MODE PROCEEDS AS FOLLOWS.

1326

27,

1335
}gg?
1338
1339
1340
1341
}gtg
1344

THE OPERAfOR RESPONDS, AND THE

PROGRAM

ENTERS

THE

APPROPRIATE

MANUAL SELECT ALIGNMENT

THE PROGRAM TYPES:

"' MANUAL SELECT ALIGNMENT «,'' FOLLOWED BY
'* ENTER HEAD NO.
(0=2):"

THE OPERATOR TYPES THE DESIRED HEAD NUMBER, AND THE PROGRAM UNLOADS
THE
HEADS ON THE DRIVE, IN ANTICIPATION OF OPERATOR MOUNTING OF TME
HEAD ALIGNMENT TOOL.
THE PROGRAM TYPES ''TYPE<R> WHEN READY:''.
AFTER
THE
TOOL HAS BEEN MOUNTED THE OPERATOR TYPES <R>, AND THE PROGRAM
LCADS HEADS AND RESPONDS WITH:
"*HEADS POSITIONED AT CYLINDER 365(0oCT)'

}gtz

AND

1347

1348

THE POSITIONING TO CYLINDER 365 IS DONE IN SINGLE INCREMENT SEEKS,
TO
AVOID EXCESSIVE MOMENTUM ON THE POSITIONER, WHILE THE ALIGNMENT TOOL

1350
1351
1352
1353
1354
}g;g

THE PROGRAM LOOPS BACK TO ASK FOR ANOTHER HEAD WNUMBER ON THIS DRIVE.
IF THE OPERATOR TYPES CONTROL Z (*“Z) THE PROGRAM WILL LOOP BACK TO ASK
FOR-''ALIGN OR EXERCISE ?'' (STILL IN THE SAME MODE).
IF CONTROL C (“C)
IS TYPED, THE PROGRAM LOOPS FURTHER BACK TO ASK FOR A NEW DRIVE NUMBER
- (STILL
IN THE
SAME MODE).
IF CONTROL R (*“R) IS TYPED, THE PROGRAM
EXITS FROM THE CURRENT MODE, AND DOES A COMPLETE RESTART.

1349

£XE

1357
1358
1359
1360

}ggg

"MEAD X SELECTED'

IS INSTALLED.

THE OPERATOR MAY NOW PROCEED fo ALIGMN

THIS

HEAD,

AND

.
11.2.1.2

MANUAL SELECT VERIFY

VERIFY MODE IDENTIFIES ITSELF AS FOLLOWS

‘'« MANUAL SELECT VERIFY *'*, FOLLOWED BY
"ENTER HEAD NO.
(0-2) :

1366
1367
1368

THE VERIFY MODE IS IDENTICAL TO THE ALIGNMENT MODE, EXCEPT THAT
UNLOADING AND LOADING OF HEADS IS NOT DONE BETWEEN HEAD SELECTIONS.
THEREFORE, IN THIS MODE, THE OPERATOR MAY SELECT HEADS FOR QuUICK

1370
13N

OF UNLOADING AND LOADING HEADS. .IN THIS MODE, THE OPERATOR
BE ASKED TO ''TYPE <R> WHEN READY''.

1369

ALIGNMENT VERIFICATION (USlNG TRE ALIGNMENT METER), WITHOUT THE DELAYS
WILL

NOT

O
NNNNN
ggw
WIN
W W W NSNS
WN
833 FIPSTIZLELESE W= O WO NV WIN

MACY11 30A(1052)

26=JUN-B0

11.2.1.3

10:53

PAGE 29

SEQ 0027

MANUAL SELECT EXERCISE

WHEN THE EXERCISE SUB-MODE OF

PROGRAM
READY''.
RANDOM
<R>.,

MANUAL SELECT MODE
IS ENTERED,
THE
UNLOADS HEADS ON THE SELECTED DRIVE, AND TYPES '‘TYPE <R> WHEN
THE OPERATOR MUST THEN REMOVE THE ALIGNMENT TOOL PRIOR TO THE

SEEKS

WHICH

FOLLOW, AND ALLOW EXERCISES TO PROCEED BY TYPING

THE PROGRAM THEN LOADS HEADS, AND RESPONDS WITH:

"« SEEK EXERCISES IN PROGRESS ON DRIVE X +'',
AT THIS POINT, 7500 RANDOM SEEKS ARE BEGUN ON THE DRIVE,
WHICH LASTS
FOR ABOUT FIVE MINUTES.
UPON COMPLETION OF THESE EXERCISES, THE

PROGRAM RETURNS TO ASK FOR “ALIGN OR EXERCISE ?"' (STILL IN MANUAL
MODE) ON THIS DRIVE. WHILE IN EXERCISE SUB-MODE, THE CHARACTERS (“2),
%;C). AND (“R) PERFORM THE SAME FUNCTIONS AS DESCRIBED IN SECTION

11.2.2

AUTO SELECT MODE

IN THIS MODE, ALL SELECTION OF DRIVES AND HEADS FOR ALIGNMENT IS DONE
BY SEQUENTIAL OPERATION OF DRIVE PORT SELECT SWITCHES.
THIS ALLOWS
COMMUNICATION WITH THE PROGRAM TO BE REMOTE FROM THE CONSOLE.
THUS
AUTO SELECT MODE IS WELL SUITED TO THE MANUFACTURING TEST ENVIRONMENT,
OR TO A FIELD INSTALLATION, WHICH HAS A NUMBER OF REMCTE DRIVES.
THE
PROGRAM FIRST ECHOS THE MODE:

"'« AUTO SELECT MODE * '', AND ASKS
“ALIGN OR EXERCISE (A OR E) ?".
THE

OPERATOR

SUB~-MODE.

OOV~[« AV P AV [ 8]

N—

0 O

D o

R o

A
e
)

16411

11.2.2.1

RESPONDS,

AND

THE

PROGRAM

ENTERS

THE

APPROPRIATE

AUTO SELECT ALIGNMENT

ALIGNMENT IN AUTO SELECT MODE PROCEEDS AS FOLLOWS.

THE PROGRAM TYPES:

"« AUTO SELECT ALIGNMENT + ',
THE PROGRAM CONSTANTLY SCANS ALL DRIVES 0-7 TO DETERMINE THE EXISTENCE

OF EACH. WHENEVER A DRIVE 1S DESELECTED BY THE OPERATION OF ITS PORT
SELECT SWITCH, THE PROGRAM RECEIVES A NON-EXISTENT DRIVE INDICATION
WHEN 1T SELECTS THAT DRIVE. THEN, WHEN THE PROGRAM DETERMINES THAT A
DRIVE WHICH WAS PREVIOUSLY OFF-LINE (DESELECTED) HAS JUST BECOME
ON-LINE (SELECTED),
IT PREPARES FOR ALIGNMENT ON THAT DRIVE. IN

SUMMARY, THE OPERATOR SELECTS A DRIVE FOR ALIGNMENT BY DEPRESSING _AND
;:ice RELEASING THE PORT SELECT SWITCH (FOR THE PORT IN USE) ON THAT
THE PROGRAM RECOGNIZES THE DRIVE SELECTED, AND CHECKS IT

SURE

lalal

(2 6NEO RK611/06 3S ViY2
€2 NE.P11
2G=JUN-80 10:48

MACY11 30A(1052) 26-JUN-B0 10:53 cPAGE 30

SEQ 0028

AIIIIAIIRTS

1428
THAT

IT IS WRITE-LOCKED.

THE PROGRAM THEN TYPES:

"“DRIVE X SELECTED"
AND THEN IT UNLOADS THE WEADS ON THAT DRIVE, SO THAT THE OPERATOR CAN
MOUNT THE
HEAD ALIGNMENT TOOL. WHEN IT IS MOUNTED THE OPERATOR MUST
DEPRESS AND RELEASE THE PORT SWITCH AGAIN,
AND THE PROGRAM LOADS

WEADS,

SEEKS

IN SINGLE INCREMENTS OUT TO THE ALIGNMENT CYLINDER (365

C.T.), AND TYPES:

“'WEADS POSITIONED AT CYLINDER 365(0CT.)
HEAD O SELECTED".
AFTER THE OPERATOR ALIGNS HEAD 0O,
HE MAY PROCEED TO HEAD 1,
BY
DEPRESSING AND RELEASING THE PORT SELECT SWITCH. WHEN HE DOES, THE
HEADS WILL BE UNLOADED AGAIN, AND THE OPERATOR MAY MOVE THE AL IGNMENT
TOOL TO HEAD 1,
AND UPON DEPRESSING AND RELEASING THE PORT SWITCH
AGAIN, THE HEADS WILL BE LOADED, THE PROGRAM WILL
SEEK TO CYLINDER
365(0CT), AND TYPE:
"'WEADS POSITIONED AT CYLINDER 365(0CT)
HEAD 1 SELECTED".
THIS PROCESS MAY BE CONTINUED

AEIG:U'QEN%'

...H HEADS BEING SELECTED IN

ETC.

THE

ORDER

UNTIL THE OPERATOR HAS COMPLETED THE

WHEN THE OPERATOR COMPLETES ALIGNMENT ON THIS DRIVE, HE SHOULD REMOVE
THE ALIGNMENT TOOL, AND SWITCH THE DRIVE ON-LINE.
IF HE THEN WISHES
TO SELECT ANOTHER DRIVE, HE MUST SWITCH THE DESIRED DRIVE OFF-LINE AND
THEN ON-LINE AGAIN TO INITIATE SELECTION. WHEN ALL DESIRED DRIVES
HAVE BEEN ALIGNED THE OPERATOR TYPES “Z OR “R, AS DESCRIBED IN SECTION
11.2.1.1.
BEFORE LEAVING ALIGNMENT MODE AND PROCEEDING TO DO SEEK

EXERCISES, THE OPERATOR MUST BE SURE TO REMOVE THE

ALIGNMENT

FROM ALL DRIVE(S).

TOOL(S)

NOTE

THE “C FUNCTION DOES NOT APPLY

11.2.2.2

AUTO

AUTO SELECT VERIFY

VERIFY MODE IDENTIFIES ITSELF AS FOLLOWS :

"« AUTO SELECT VERIFY »"
THE AUTO SELECT VERIFY MODE IS IDENTICAL TO THE AUTO

ALIGNMENT

MODE,

lalal

CZR6NED RK611/06 sS ViY2
26=JUN-80 10:48
CZR6NE .P11

CZRONED RK611/06 sS ViY2
CZR6NE .P1N
26-JUN-80 10:48

MACY11 30A(1052)

26=JUN-80

10:53

3
PAGE 31

SEQ 0029

1484

1686

1487
1488

EXCEPT
THAT
UNLOADING AND LOADING OF HEADS IS NOT DONE BETWEEN HEAD
SELECTIONS.
THEREFORE, IN THIS MODE, THE OPERATOR MAY
SELECT HEADS

}23?

THE DELAY OF UNLOADING AND LOADING HEADS.

1489

1492
1493
}2gg

1496
1497
1498

FOR

QUICK ALIGNMENT VERIFICATION (USING THE ALIGNMENT METER), WITHOUT

11.2.2.3

AUTO SELECT EXERCISE

}gg?

IN AUTO SELECT EXERCISE SUB MODE, RANDOM SEEK EXERCISES ARE PERFORMED
UPON-ALL DRIVES WHICH ARE ON-LINE.
DRIVES ARE EXERCISED SEQUENTIALLY,
STARTING WITH DRIVE 0.
THE OPERATOR SPECIFIES EITHER LONG EXERCISES
(7500 SEEKS= S MINUTES) OR SHORT EXERCISES (1500 SEEKS= 1 MINUTE) TO
BE PERFORMED UPON EACH DRIVE.

}ggg

AUTO SELECT EXERCISE MODE IDENTIFIES ITSELF AS FOLLOWS:

1499

1504
}282

e NRIR
LS ERNE R RGN ES e Icnrwn=o

THE OPERATOR TYPES WIS RESPONSE , AND THE SELECTED SEEK EXERCISES

PERFORMED

D i

EACH

DORIVE.

UPON

ARE

COMPLETION OF THESE EXERCISES, THE

PROGRAM RETURNS TO ASK FOR '‘ALIGN OR EXERCISE?'' (STILL IN AUTO

MODE).

NOTE

BEFORE REQUESTING AUTO-EXERCISE MODE,
THE OPERATOR MUST REMOVE THE ALIGNMENT
TOOL
(WHILE
STILL
IN
AUTO=ALIGNMENT
MODE) WHILE THE HEADS ARE UNLOADED.

D D D i i il il i i
-

e e i

D e e i i i

WVAWVAWA AW W VTV AW WA W VA VAT VAVA W

WHILE
IN EXERCISE SUB-MODE THE CHARACTERS “Z AND “R PERFORM THE SAME
FUNCTIONS AS DESCRIBED IN SECTION 11.2.1.1.

VA VT

D i il i

D i

A VAN

507

"« AUTO SELECT EXERCISES + ',
FOLLOWED BY''SHORT OR LONG (S OR L) ?'.

11.3

ALIGNMENT AID ERROR MESSAGES

"DRIVE X NOT READY! PLEASE START IF DESIRED, THEN PRESS ‘CONT'
THIS INDICATES THAT A DRIVE SELECTED FOR
=
CPU WHEN READY.''

ALIGNMENT WAS FOUND NOT READY.

2. "DRIVE X NOT WRITE-LOCKED! PLEASE SET WRITE LOCK SWITCH. PRESS
"CONT' ON CPU WHEN READY''. = THIS INDICATES THAT A DRIVE SELECTED FOR

ALIGNMENT WAS FOUND NOT TO BE WRITE-PROTECTED.

“PLEASE LOAD ALIGNMENT CARTRIDGE ON DRIVE X!

PRESS

‘CONT'

¢,

—

CIRONEO RK611/06 3S ViYe
CZR6NE.P
26-JUN-80 10:48

MACY11 30A(1052)

26-JUN-80

10:53

3
PAGE 32

1543
}g:g
1546
1547

CPU WHEN READY.'' = THIS INDICATES THAT A DRIVE SELECTED FOR ALIGNMENT
WAS NOT LOADED WITH AN ALIGNMENT CARTRIDGE.
‘

1548
1549
}gg?

&.
'MULTIPLE DRIVES AUTO-SELECTED!
PRESS
'CONT'
TO RESTART.'
= THIS
INDICATES
THAT
IN AUTO ALIGNMENT MODE MORE THAN ONE OF THE
DRIVES WERE SELECTED FOR ALIGNMENT SIMULTANEOUSELY.

1554
1555

5.
''CANNOT READ BAD SECTOR FILE ON DRIVE X!
PRESS 'CONT' ON CPU TO
RESTART"', = THIS INDICATES THAT A READ ERROR WAS ENCOUNTERED WHILE THE
PROGRAM WAS ATTEMPTING TO IDENTIFY THE CARTRIDGE
ON DRIVE
X AS AN
ALIGNMENT CARTRIDGE.

1556
1557
1558
1559
1560
1561
1562
1563

SEQ 0030

1540

6.
'
X' = THIS IS TYPED BY THE PROGRAM IN RESPONSE TO THE
INPUT
OF
AN
INVALID PARAMETER,
SHOWN HERE AS X.
THE OPERATOR SHOULD NOW
ENTER THE PROPER VALUE.

CIZRONED RK611/06 S ViY2
CZR6NE .P1N
26=JUN-B0 10:48

MACY11 30A(1052)

26-JUN-80

10:53

3
PAGE 33

SEQ 0031

1564
1565
1566
1567
1569
1570

APPENDIX A

SAMPLE ADDRESS 200 DEFAULT RUN

THE
FOLLOWING PRINTOUT WAS
THE
RESULT
OF
RUNNING
SUBSYSTEM
VERIFICATION,
PART 2, ON A SINGLE DRIVE (DRIVE 0), FOR THE FIRST PASS
OF THE PROGRAM (QUICK=-VERIFY PASS).
IN THIS MODE, ALL MESSAGES
APPEARING HERE
WERE
ADDRESS 200 RUN.

OUTPUTS==NO

OPERATOR INPUTS ARE PROVIDED ON AN

CZR6NDO = RK611/RK06-RKO7 SUBSYSTEM VERIFICATION :
LAST PHYS MEM ADR = 377776
DRIVE
DRIVE
DRIVE
DRIVE
DRIVE

1 NON-EXISTENT
2 NON-EXISTENT
3 NON-EXISTENT
& NON-EXISTENT
5 NON-EXISTENT

DRIVE 6 NON-EXISTENT
DRIVE 7 NON-EXISTENT

DRIVE(S) = 0
TESTING DRIVE 0

DRIVE SER. NO.
CART, SER. NO.

8
334

OFFSET=TO-FAILURE MEASUREMENTS:

i
i
lh
i
e
-

WNO
NS WN—=O

e
D
wd
e
e
e
e
e
—

oocoocoo0ooo

3332

1605

TRACK

CYLN

SECT

0
0
0
0
1
1
1
1
2
2
2
2

0
0
631
631
0
0

0
12
0
12
0
12

NONE
NONE
NONE
NONE
1050
NONE

0
0
631
631

0
12
0
12

NONE
NONE
NONE
NONE

631
631

END PASS #

0
12

<+OFST
(UIN)

NONE
NONE

=OFST
(UIN)

NONE
1175
NONE
NONE
NONE
1200
NONE
NONE
NONE
NONE
NONE
NONE

PART 2

CZRONED RKk611/706 3S ViY2
CZRONE .P1N
26-JUN-B0 10:48

MACY11 30A(1052)

26-JUN-B0

10:53

3
PAGE 34

APPENDIX B

SAMPLE ADDRESS 204 RUN

THE
FOLLOWING PRINTOUT WAS
THE
RESULT
OF
RUNNING
SUBSYSTEM
VERIFICATION, PART 2, ON A SINGLE DRIVE (DRIVE 0), WITH PARTICULAR
TESTS SELECTED
TO BE
RUN FOR SPECIFIED NUMBERS OF
TIMES,
WITH
SPECIFIED
PARAMETERS, AND A SPECIFIED NO.
OF PROGRAM PASSES.
SPECIFICALLY, IT WAS DESIRED THAT TEST 1 BE RUN ONCE, TEST & ONCE, AND
TEST 6 ONCE.
THESE TESTS WERE SPECIFIED TO RUN FOR 1 PROGRAM PASS,
USING PARAMETERS SPECIFIED BY THE OPERATOR.
IN THIS CASE, SECTOR
ADDRESS LIMITS
(S2 AND S3) AND DATA PATTERN (PT) WERE SPECIFIED AS
NON-DEFAULT VALUES.

CZR6NDO - RK611/RK06-RKO7 SUBSYSTEM VERIFICATION:PART 2
LAST PHYS MEM ADR=377776
PARAMETER INPUT MODE

RK06-07 BUS ADR = 177440
RK06-07 VEC ADR =
210
RK06-07 PRIORITY =
5

NEW =
NEW =
NEW =

DRIVE(S) = 0
L]

LIST TESTS
C = CHANGE TESTS

I = INPUT PARAMETERS AND RUN TESTS

ENTER L.C, OR 1

C
TO DEFAULT TESTS TYPE D <CR>, ELSE <CR>

TEST

ITERATIONS

2
3

0
2+
2+
0

“

2 + 0\0\1

SEQ 0032

———————
e

5
6

10:53

ENTER L,C, OR I
Ll 8

ITERATIONS
_, OO0
—

OSSN
—

TEST

ENTER L,C, OR I
*

TYPE PARAMETER LIST

OPEN PARAMETER LIST
SET INDIVIDUAL PARAM

RUN TESTS

OR R

<
VWL HWLVLWK
—~

0NN

OOONO&ONOOO
w

LVODVVNULNEAErATesm
- AW —=O
=

ER 7,0,S,

ENTER T7,0,S, OR R
.

FC=0

nv»m

U ER-

o
wm
oTM
-~

a4
o
o

R-HVVAVVYEM

NTER T7,0.S, OR R

_...n....a.as
8 OWNO VB W= OOVNOWVNEWN=O

NNNNNNNNNNNNNNNSN SNNNNNY
NINININININVINONININ)
= b b b b

PP
p—p————
P
P

26-JUN-B0

2+0
100 + 1

nnnNnN-—N—

1675
1676
1677
1678
1679
1680
1681
1682
1683
1684
1685
1686
1687
1688
1689
1690
1691
1692
1693
1694
1695

MACY11 30A(1052)

DNO—

CIR6NED RK611/06 35S ViY2
CZRONE .P11
26=JUN-80 10:48

3
PAGE 35

SEQ 0033

CZRONEO RK611/06 3S ViY2
CZR6NE .P11
26=-JUN-80 10:48
1731
1732
1733
1734
1735
1736
1737
1738
1739
1740
1741
1742
1743
1744
1745
1746
1747
1748
1749
1750
1751
1752
1753
1754
1755

1756
1757
1758
1759

1760
1761
1762
1763

MACY11 30A(1052)

26-JUN-B0

10:53

3
PAGE 36

LC=632
FT=0
LT=2
S0=0
$1=23
S$2=4
$3=20

PT=100000
(S=0
ST=0

USER=-DEF INED PATTERN 15:
WORD 00 = 123456
WORD 01 = 123456
WORD 02 = 123456
WORD 03 = 123456
WORD 04 = 123456
WORD 05 = 123456
WORD 06 = 123456
WORD 07 = 123456
WORD 10 = 123456
WORD 11 = 123456

WORD 12 = 123456
WORD 13 = 123456
WORD 14*2
= 123456

ENTER T7,0,S, OR R
*+ R

1764
1765

ENTER NO. OF PASSES (1-77777)
v 1

176
1768

TESTING DRIVE 0

1
1
1
1
}

SNNNNNNNN
NNSN NNNO
v
(VP ¥ N=OOV

1766

1776
1777
1778
1779
1780
1781
1782
1783
1784
1785
1786

SEQ 0034

DRIVE SER. NO.
CART. SER. NO.

8
334

OFFSET=TO-FAILURE MEASUREMENTS:
TRACK

CYLN

SECT

&
20
&
20
&
20
&
20
&
20
&
20

0
0
0
1
1
1
1
2
¢
2
2

0
631
631
0
0
631
631
0
0
631
631

+OFST
(UIN)

NONE

NONE
NONE
NONE
NONE
NONE
NONE
NONE
NONE
NONE
NONE
NONE

~OFST
(UIN)

NONE

NONE
NONE
NONE
NONE
NONE
NONE
NONE
NONE
NONE
NONE
NONE

[}

Sp———

CIR6NED RK611/06 3S ViY2
CZRONE .P11
26-JUN-80 10:48

MACY11 30A(1052)

26-JUN-B0

10:53

PAGE 37

1
END PASS #
TO TEST ALL DRIVES TYPE ""A" <CR>, ELSE <CR>
L

SEQ 0035

MACY11 30A(1052)

26=JUN-B0

10:53

3
PAGE 38

SEQ 0036

1794
1795
1796

1797
1798
1799
1800
1801
1802
1803
}ggg

APPENDIX C

}389

SAMPLE MANUAL MODE HEAD ALIGNMENT AID RUN

1809
1810

1811
1812
1813
1814
1815

THE FOLLOWING PRINTOUT WAS THE RESULT OF RUNNING

THE

HEAD

_ALIGNMENT

AID, PROVIDED IN SUBSYSTEM VERIFICATION PART 2 (ADDRESS 224 START).
MANUAL MODE WAS REQUESTED, AND THE OPERATOR SELECTED DRIVE 0_FOR
ALIGNMENT.
IN THIS CASE, THE OPERATOR SELECTED HEADS 1,0, AND 2, IN
THAT ORDER, AND THEN REQUESTED RANDOM SEEK EXERCISES TO BE RUN ON THE

1816
1817
}g}g

THE EXERCISES WOULD
HAVE NORMALLY RUN FOR 5 MINUTES BUT THEY WERE PREMATURELY TERMINATED
BY THE OPERATOR, BY
TYPING (*Z), IN THIS PARTICULAR RUN.
FINALLY,
VERIFY MODE WAS REQUESTED, AND HEAD 2 WAS SELECTED BY THE CPERATOR.

}g%?

CZR6NDO - RK611/RK06-RKO7 SUBSYSTEM VERIFICATION : PART 2

1822

DRIVE (AFTER REMOVAL OF THE HEAD ALIGNMENT TOOL).

1823
}ggg

tet RKO6-07 HEAD ALIGNMENT AID wee
FOR HELP TYPE H, ELSE <CR>

1826
1827
1828
1829
}gg?

MANUAL OR AUTO MODE
M

1832
1833

ENTER DRIVE NO.
0

1836
1837
1838
1839
}g:?

ALIGN, VERIFY, OR EXERCISE (A, Vv, OR E)?
A

1842

ENTER HEAD NO. (0-2):

}g:g

;YPE <R> WHEN READY:

1846

HEADS POSITIONED AT CYLINDER 365 (OCT)

1849

ENTER HEAD NO. (0-2):

}ggg

1843

}32;

(M OR A)?

* MANUAL SELECT MODE +

DRIVE SER. NO.

(0-7):

* MANUAL SELECT ALIGNMENT «

HEAD 1

SELECTED

Fan
Y um )

CZR6NED RK611/06 3S ViY2
CZR6NE .P11
26=JUN-80 10:48

CIZRONEDO RK611/06 35S VviY2
CZR6NE .P11
26-JUN-80 10:48
1850
1851
1852

MACY11 30A(1052)

26-JUN-B0

10:53

L3
PAGE 39

1853

856
57

HEADS POSITIONED AT CYLINDER 365 (OCT)

1854
1855

;VPE <R> WHEN READY:

HEAD O SELECTED

SNTER HEAD NO.

(0-2):

TYPE <R> WHEN READY:
R

E?TER HEAD NO.

(0-2):

2LlGN. VERIFY, OR EXERCISE (A, vV, OR E) ?
;YPE <R> WHEN READY:

:?ANDOH SEEK EXERCISES IN PROGRESS ON DRIVE 0 «
CLIGN. VERIFY, OR EXERCISE (A, vV, OR E) ?

N =

oo
OO

—

D e

3ONOMbu-‘OOCN
SESEEESRERS gI3ss5anssee

HEADS POSITIONED AT CYLINDER 365 (OCT)
HEAD 2 SELECTED

* MANUAL SELECT VERIFY «

SNTER HEAD NO.

(0-2)

HEADS POSITIONED AT CYLINDER 365 (OCT)
HEAD 2 SELECTED

E?YER HEAD NO.

(0-2)

ALIGN, VERIFY, OR EXERCISE

(A, Vv, OR E) ?

SEQ 0037

CZRONED RK611/06 3S ViY2
CZR6NE P11
26=JUN-80 10:48

MACY11 30A(1052)

26-=JUN-B0

10:53

n3
PAGE 40

R
CEE 832 sa
253322
=000~

e e e o

APPENDIX D

SAMPLE AUTO MODE HEAD ALIGNMENT AID RUN

THE FOLLOWING PRINTOUT WAS THE RESULT OF RUNNING THE HEAD _ALIGNMENT
AID, PROVIDED IN SUBSYSTEM VERIFICATION PART 2 (ADDRESS 224 START).
AUTO MODE WAS REQUESTED, AND THE OPERATOR SELECTED DRIVE 0 FOR
ALIGNMENT.
IN THIS CASE, HEADS 0,1,2, AND O (AGAIN) WERE SELECTED FOR
ALIGNMENT (IN AUTO MODE, THE HEADS ARE ALWAYS SELECTED IN THE ORDER
0,1,2,0,1,2, ETC.). BETWEEN HEAD SELECTIONS, THE HEADS WERE UNLOADED
TO ALLOW REMOVAL OR INSTALLATION OF THE HEAD ALIGNMENT TOOL.
NOTE
THAT ALL DRIVE AND HWEAD SELECTION (IN AUTO MODE) IS DONE BY THE
AFTER
OPERATOR, AT THE DRIVES, BY OPERATION OF PORT SELECT SWITCHES.
ALIGNING HEADS, THE OPERATOR REQUESTED RANDOM SEEK EXCERCISES TO BE
RUN (ON ALL DRIVES, IN THIS CASE DRIVE 0).
SHORT EXERCISES WERE
REQUESTED,
WHICH RUN FOR 1 MINUTE PER DRIVE. FINALLY, AUTO SELECT

VERIFY WAS REQUESTED, AND HEADS 0,1, AND 2 WERE SELECTED SEQUENTIALLY.
CZR6NDO = RK611/RK06-RKO7 SUBSYSTEM VERIFICATION : PART 2

e I

VONO VS WN =O OO NO VS W

3333388
XN RN D
SD

1893
1894
1895

vee RKO6-07 HEAD ALIGNMENT AID e«

FOR HELP TYPE H, ELSE <CR>

:ANUAL OR AUTO MODE (M OR A)?

* AUTO SELECT MODE +

:LIGN. VERIFY, OR EXERCISE (A, Vv, OR E) ?

* AUTO SELECT ALIGNMENT +

DRIVE 0 SELECTED

HEADS POSITIONED AT CYLINDER 365 (OCT)
HEAD 0 SELECTED

HEADS POSITIONED AT CYLINDER 365 (OCT)
HEAD 1 SELECTED

HEADS POSITIONED AT CYLINDER 365 (OCT)
HEAD 2 SELECTED

SEQ 0038

CZRENED RK611/06 3S ViY2
CZRONE .P1
26=JUN-80 10:48

MACY11 30A(1052)

26=JUN-B0

10:53

3
PAGE 41

SEQ 0039

HEADS POSITIONED AT CYLINDER 365

E%AD 0 SELECTED

(OCT)

* AUTO SELECT MODE +

358
1223

:LIGN. VERIFY, OR EXERCISE (A, v, OR E)

1971

* AUTO SELECT EXERCISES «
EHORT OR LONG (S OR L)

EXERCISING DRIVE 0
* AUTO SELECT MODE +

CLIGN. VERIFY, OR EXERCISE

(A, v, OR E)?

* AUTO SELECT VERIFY «

DRIVE O SELECTED
HEADS POSITIONED AT CYLINDER 365 (OCT)
HEAD O SELECTED
HEADS POSITIONED AT CYLINDER 365 (OCT)

HEAD 1 SELECTED
HEADS POSITIONED AT CYLINDER 365 (OCT)
E;AD 2 SELECTED
QLIGN. VERIFY, OR EXERCISE

(A, v, OR E)

————————

]
000001

26-JUN-B0

10:53

&
PAGE 42

PART=1

seev IF "PART" IS DEFINED = 0, PART 1 WILL BE ASSEMBLED. #++

jeee F '?ARY" IS DEF INED NOT = 0, PART 2 WILL BE ASSEMBLED. w#++
;evs REV 006 wve

167000

NLIST
LIST
.ENABL

$SWR=

167000

CRRRRRRRARARARARRRRRRCRRORORCECERRARARNARNNRANRAOAACAOROOOOAANCOORORNES

"$BTTL

STARTING ADDRESSES

200

DEFAULT PARAMETERS FOR TESTS 1-6

204
224

000001

MC,MC,CND
ME
ABS,AMA

$TN=1

LTITLE

SELECT PARAMETERS FOR TESTS 1-6
HEAD ALIGNMENT AID
A

R0 RRRRRRddRRRRRRRRdddd)

CZRONEO RK611/06 SS VFY2

;*COPYRIGHT (C) 1976,1980
;*DIGITAL EQUIPMENT_CORP.
:'HAVNARD. MASS. 01754

'THIS PROGRAM WAS ASSEMBLED USING THE PDP=-11 MAINDEC SYSMAC

'PACKAGE (MAINDEC~11-DZQAC-C3), JAN 19, 1977.
.SBTTL
*

OPERATIONAL SWITCH SETTINGS
SWITCH

USE

*
ot

o
o
:*
o®
5

:®
:®
o

.SBTTL

:®
;t

H
H
H
.SBTTL
0011C0

HALT ON ERROR
LOOP ON TEST

13
12
1"
10
9

INHIBIT ERROR TYPEOUTS
REPORT DESCRIPTION ONLY, ON ERRORS
INHIBIT ITERATIONS
BELL ON ERROR
LOOP ON ERROR

6
1
0

REPORT 1 ERROR PER TRANSFER IN TESTS 2-4
INHIBIT WRITES IN TEST 1
REPORT ALL SOF TWARE COMPARE ERRORS IN TESTS 2-4

APPLY RANDOM STALL BETWEEN OPERATIONS

CONTROL SWITCH SETTINGS (PARAMETER (S)

USE

SWITCH

--------------------------

05
04
01

DROP DRIVE IF 20(DEC)ERRORS EXCEEDED
TYPE BAD SECTOR FILES (BSF'S) ON FIRST PASS
INHIBIT OFFSET REPORTS IN TEST 1

BASIC DEFINITIONS

:'lNlYlA%1sgDRESS OF THE STACK POINTER t#+ 1100 #ev

STACK=

.EQUIV

EMT,ERROR

;sBASIC DEFINITION OF ERROR CALL

SEQ 0040

MACY11 30A(1052)

[alsl

lalsl

IR6NED RK611/06 3S ViY2
L1
IR
26=-JUN-80 10:48

%82?
2048

LEQUIV

2049

000011

2055

177774

gggg

177570

2050
2051
2052
2053
2054

2056
2057

2060

MACY11 30A(1052)
26-JUN=80
BASIC DEFINITIONS

000012
000015
000200
177776

177772
177570

10T,SCOPE

10:53

&
PAGE 43

SEQ 0041

;sBASIC DEFINITION OF SCOPE CALL

;*MISCELLANEOUS DEF INITIONS

HT=

LF=
CR=
CRLF=
PS=
.EQUIV

12
15
200
177776
PS,PSW

PIRG=
CSWR=

177772
177570

::CODE FOR HORIZONTAL TAB

::CODE FOR LINE FEED
::CODE FOR CARRIAGE RETURN
::CODE FOR CARRIAGE RETURN-LINE FEED
: :PROCESSOR STATUS WORD

STKLMT= 177774

;:STACK LIMIT REGISTER

DDISP=

: :HARDWARE DISPLAY REGISTER

177570

: :PROGRAM INTERRUPT REQUEST REGISTER
: :MARDWARE SWITCH REGISTER

; *GENERAL PURPOSE REGISTER DEF INITIONS

2061

000000

RO=

2072
2073

000000

:*PRIORITY LEVEL DEFINITIONS
PRO=
0
PRIORITY LEVEL 0

000100
000140
000200
000240
000300
000340

PR2=
PR3=
PR4=
PRS=
PR6=
PR7=

100000
040000
020000
010000
004000
002000

;¢ 'SWITCH REGISTER'' SWITCH DEF INITIONS
§W15=
100000
SWik=
40000
SW13=
20000
sW12=
10000
sWwil=
4000
sW10=
2000

000400
000200
000100
000040

SW08=
sWwo7=
sWoé=
SW0S=

400
200
100
40

LEQUIV

SW09,Sw9

2062
2063
2064
2065
2066
2067
2068
2069
gg;g

2074

2075
2076
2077
2078
2079
ggg?
2082
2083
2084
2085
2086
2087
2088

000001
000002
000003
000004
000005
000006
000007
000006
000007

000040

2089

001000

2094
2095
2096
2097
2098

000020
000010
000004
000002
000001

2090
2091
2092
2093

2101

R1=
R2=
R3=
Ré=
RS=
Ré=
R7=
SP=
PC=

PR1=

sW09=

sW04=
swo3=
SW02=
sWwol=
sWo0=

1
X2
13
1%
x5
16
17
16
17

100
140
200
240
300
340

1000

20
10
&
2
1

JEQUIV SWO07.SW7

:GENERAL REGISTER

..GENERAL REGISTER
: :GENERAL REGISTER
: :GENERAL REGISTER
: sGENERAL REGISTER
: sGENERAL REGISTER
: sGENERAL REGISTER
: :GENERAL REGISTER
::STACK POINTER
: :PROGRAM COUNTER

“IPRIORITY LEVEL 1

P:PRIORITY
::PRIORITY
P:PRIORITY
::PRIORITY
::PRIORITY
*'PRIORITY

LEVEL 2
LEVEL 3
LEVEL
LEVEL
LEVEL
LEVEL

4
§
6
7

(alal

CIR6NED RK611/06 S ViY2
CIR6NE.P11
26-JUN-B80 10:48

21
2104
2105
2106
2107
%}83

2110
211
2112
2113
2114
2115
2116
2117
2118
2119
2120
2121
2122
2123
2124

2125

2126
2127
2128
21%3
21
213
2132
2133
2134
2135
g}gg

2138
2139
2140
2141
2142
2143
2144
2145
2146
2147
2148
2149

2150

;};1

}gi

%}gz
5157

MACY11 30A(1052) 26=JUN-B0
BASIC DEFINITIONS
.EQUIV
.EQUIV
LEQUIV
.EQUIV
JEQUIV
EQUIV
EQUIV

CIR6NEOD RK611/06 S ViY2
CZR6NE .P11
26=JUN-80 10:48

100000
040000
020000
010000
004000
002000
001000
0004
000200
0001
000040
00002
000010
000004

000002
000001

10:53

&
PAGE 44

SW06,SW
SW05,SW
SW04,Swé
SW03,Su3
SW02.Sw2
SWO1,SW1
SW00,SWO

;*DATA BIT DEFINITIONS (BITOO TO BIT1S)
81T15=
10000
BIT14= 40000
B1T13= 20000
BIT12= 10000
BIT11= 4000
BIT10= 2000
BIT09= 1000
BITO8= 400
BITO7= 200
BITO6= 100
BITOS= 40
BIT04= 20
BITO3= 10
BITO2= &

BITO1=

BITO0=
EQUIV
EQUIV
EQUIV
EQUIV
EQUIV
EQUIV
EQUIV
EQUIV
EQUIV
EQUIV

1
BIT09,BIT9
BIT08,B1T8
BIT07,.BIT7
BIT06.BITé
BITOS,.BITS
BITO4,BIT4
BITO3.BIT3
BIT02,BIT2
BITO1.BIT1
BIT00.BITO

000004
000010

;#BASIC ''CPU"' TRAP VECTOR ADDRESSES
ERRVEC= &
::TIME OUT AND OTHER ERRORS
RESVEC= 10
::RESERVED AND ILLEGAL INSTRUCTIONS

000014
000014
000020
000024
000030
000034
000060
000064

TRTVEC= 14
BPTVEC= 14
10TVEC= 20
PWRVEC= 24
EMTVEC= 30
TRAPVEC=34
TKVEC= 60
TPVEC= 64

000014

000240

000250

TBITVEC=14

UTURIT

PIRQVEC=240

: :PROGRAM INTERRUPT REQUEST VECTOR

.SBTTL

::TRACE TRAP
: :BREAKPOINT TRAP (BPT)
S INPUT/OUTPUT TRAP (I0T) %#SCOPE++
::POWER FAIL
SEMULATOR TRAP (EMT) s+ERROR+*
S i"TRAP" TRAP
::TTY KEYBOARD VECTOR
::TTY PRINTER VECTOR

MEMORY MANAGEMENT DEFINITIONS

:*KT11 VECTOR ADDRESS

MMVEC= 250
;*KT11 STATUS REGISTER ADDRESSES

SEQ 0042

CIR6NED RK611/706 3S ViY2
CZRONE .P11
26-JUN-80 10:48

26=JUN-80

10:53

&
PAGE 45

MEMORY MANAGEMENT DEFINITIONS

SRO=
SR1=
SR2=
SR3=

177572
177574
177576
172516

(==} NNSNNNNN

i i
i

; *KERNEL "'I"'
SNNNSNNNNN
NN

S8 88 SRS RN S8R IR RAR 2B I IFFNARNISTEIETRFARZE

NN NN N NN NN NN NN NN
N
N MNONNNRLNNNNNNNNNNNNNON
e e D D
i i i e D o
D i i e D i D i D D i D e i D e D D i i D i e S e )
ob

2158
2159

MACY11 30A(1052)

KIPDRO=
KIPDR1=
KIPDR2=
K!PDR3=
KIPDR4=
KIPDRS=
KIPDR6=
KIPDR7=

172300
172302
172304
172306
172310
172312
172314
172316

KIPARO=
KIPAR1=
KIPAR2=
KIPAR3=
KIPARG=
KIPARS=
KIPARG=
KIPAR?=

172340
172342
172344
172346
172350
172352
172354
172356

MAPL00=170200
MAPH00=170202
MEMCSR=172100

LOERAD=177740
HIERAD=177742
MEMSYS=177744
.SBTTL

TRAP CATCHER

;MEMORY CSR REG START ADRS

:11/70 MEM LO ERROR ADRS REG

:11/70 MEM HI ERROR ADRS REG
:11/70 MEM SYSTEM REG

.=0

000000

;*ALL UNUSED LOCATIONS FROM & = 776 CONTAIN A *'.+2 HALT"

:*SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS

000174
000176
000200

'LOCATIONlo‘CONIAINS 0 TO CATCH IMPROPERLY LOADED VECTORS

000174

013302

000170
000204

013336

000224

024074

000230
000232

DISPREG: .WORD 0
SWREG:
.WORD 0
.SBTTL STARTING ADDRESS(ES)
@#DFSTRT
JMP
.=170
KILLDR: .WORD
O
.=204
S#PSTART
JMP
.=224
SFASTART
JMP
..LOW:
_,WORD
700
..HIGH: .WORD
1100
.SBTTL ACT11 HOOKS

;s SOFTWARE DISPLAY REGISTER
:;SOFTWARE SWITCH REGISTER

;:JUMP TO STARTING ADDRESS OF PROGRAM
;IF NOT = 0, IT IS OK TO OVERLAY LOADER

:;.'."QQ....".."""""'""i'...".'l'."l'.t'.'iilttl"'l!'

SEQ 0043

EO0 RK611/06 3S ViY2
E.P11
26=-JUN=-80 10:48
14

15
16
};

000046

000234
000046
8%38?3

000052

140000

20
21
5%

000234
001000

MACY11 30A(1052)
26=JUN-B0
ACT11 HOOKS

10:53

;HOOKS REQUIRED BY ACT

$SVPC=,
=46
ssgvo
WORD

.SBTTL

PAGE 46

:SAVE PC

:21)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP
140000

.=$SVPC
.=1000
APT PARAMETER BLOCK

;:2)SET LOC.52 TO 140000

:: RESTORE PC

2‘

;:tttt"ttt"tt""'t"tt"t""'.Qtttt"tt't'ttt'ttttttt'ttt"'t

:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT

27
28
29
30
31
32

;;t'ttttttttlttt"'tt""ttt""'t.'tttttfitt't'tt'tttttttt"'tttt

000024
000044

001000
000024
000200
000044
001000
001000

001000
001000

001004

2245
246

;;SAVE CURRENT LOCATION
::SET POWER FAIL TO POINT TO STZRT OF PROGRAM
::FOR APT START UP
;:POINT TO APT INDIRECT ADDRES PNTR.
;;POINT TO APT HEADER BLOCK
;;RESET LOCATION COUNTER

:;tt'ttttttttttt""'tt"t"'t"'tt'...l"tQ"t"t"ttt".'t"ttt

:INTERFACE SPEC.

37
38

2244

.$X=,
=24
200
.=bé
SAPTHDR
.=.8X

;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT=PDP11 DIAGNOSTIC

SEQ 0044

001002

000000
001320

001006
001010
001012

003410
003410
000030

001130

120210

177440
000377

SAPTHD:
$SHIBTS: .WORD

SMBADR: .WORD

O
SMAIL

SPASTM: .WORD
SUNITM: .WORD
LWORD

3410
::RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY)
3410
::ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT
SETEND=-SMAIL/2 ;;LENGTH MAILBOX-ETABLE (WORDS)

$TSTM:

.WORD

AVECT1=120210
ABASE=177440
ADEVM=000377

1130

::TWO HIGH BITS OF 18 SIT MAILBOX ADDR.
;:ADDRESS OF APT MAILBOX (BITS 0-15)
::RUN TIM OF LONGEST TEST

:RKVEC=210, RKPRI=5

:RKBAS ADRS
;SET DEVICES 0-7 IN MAP

.SBTTL

COMMON TAGS

$REGO:
$REG!:
$REG2:
SREG3:

(=lelelelelelelelelePlelelelelelele]l]

.WORD
$STSTNM: .BYTE
SERFLG: .BYTE
$TCNT:
.WORD
SLPADR: .WORD
SLPERR: .WORD
SERTTL: .WORD
SITEMB: .BYTE
SERMAX: .BYTE
$SERRPC: «WORD
$GDADR: .WORD
$BDADR: .WORD
$SGDDAT: .WORD
$BDDAT: .WORD
.WORD
«WORD
$SAUTOB: .BYTE
$INTAG:
.WORD
SWR:
.WORD
DISPLAY: . WORD
177560
$TKS:
177562
$TKB:
:
177564
$TPS
177566
$TPB:
:
$NULL
.BYTE
SFILLS:
SFILLC: .BYTE
S$TPFLG: .
SREGAD: .

10:53

&
PAGE 47

;s START OF COMMON TAGS

;sCONTAINS THE TEST NUMBER
::CONTAINS ERROR FLAG
s CONTAINS SUBTEST ITERATION COUNT
:sCONTAINS SCOPE LOOP ADDRESS
s sCONTAINS SCOPE RETURN FOR ERRORS
:sCONTAINS TOTAL ERRORS DETECTED
s sCONTAINS ITEM CONTROL BYTE
s sCONTAINS MAX. ERRORS PER TEST
:sCONTAINS PC OF LAST ERROR INSTRUCTION
s sCONTAINS ADDRESS OF °'GOOD' DATA
:sCONTAINS ADDRESS OF °'BAD' DATA
-+ s CONTAINS 'GOOD" DATA
s s CONTAINS 'BAD' DATA
: sRESERVED=-~NOT TO BE USED
s sAUTOMATIC MODE INDICATOR
:: INTERRUPT MODE INDICATOR
s sADDRESS OF SWITCH REGISTER
s sADDRESS OF DISPLAY REGISTER

;sTTY KBD STATUS

ssTTY KBD BUFFER

OO —-MNO

~
~

.=1100

OCOO0O0O0O0O0O0O0O0O0O0OO0O0O0OO0O

S s rvoSRIRS8S
SRR

$CMTAG:

AR SRR
-

NOO rOS RRSO NNSE RN SOV RN S

SEERNNNE

2287

MACY11 30A(1052)
26=JUN-80
COMMON TAG S

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

8888888888888888s 888ssesssssssseeseeessssssssesy

Smmmmmmmwmwb
5o
OONO
NS WN 2OV~

SLSTSTSTSTNT
ST NI ST NTNT ST.NTN
LYY N NN NN NT NT N NLNT N

CIR6NED RK611/06 sS VfVZ
CZRONE .P11
26=JUN-80
1

ssTTY PRINTER STATUS REG. ADDRESS
::TTY PRINTER BUFFER REG. ADDRESS

: sCONTAINS NULL CHARACTER FOR FILLS
:;CONTAINS # OF FILLER CHARACTERS REQUIRED
;s INSERT FILL CHARS. AFTER A ''LINE FEED"'

::''TERMINAL AVAILABLE'' FLAG (BIT<07>=0=YES)
;sCONTAINS THE ADDRESS FROM
;:WHICH (SREGO) WAS OBTAINED
:sCONTAINS ((SREGAD)+0)
:sCONTAINS ((SREGAD)+2)
ssCONTAINS ((SREGAD)+4)
ssCONTAINS ((SREGAD)+6)
:sCONTAINS ((SREGAD)+10)
s sCONTAINS ((SREGAD)+12)
ssCONTAINS ((SREGAD)+14)
sCONTAINS ((SREGAD)+16)
:sCONTAINS ((SREGAD)+20)
:sCONTAINS ((SREGADY+22)
s3CONTAINS ((SREGAD) *24)
JsCONTAINS ((SREGAD)+26)

:sCONTAINS
:sCONTAINS
:sCONTAINS
:sCONTAINS
s:CONTAINS

((SREGAD)+30)
((SREGAD)+32)
((SREGAD)+34)
((SREGAD) +36)
((SREGAD)+40)

CIR6NED RK611/706 S ViY2
26=-JUN-B80 10:48
CZRONE . P11

MACY11 30A(1052)

26-JUN-B0

COMMON TAGS

10:53

PAGE 48

2303

001224

000000

SREG21: .WORD

2305
2306
2307
2308
2309
2310
2311
2312
2313
2314
2315
2316
2317
2318
2319
2320
2321
2322
2323
2324
2325
2326
2327
2328
2329
%gso
31
2332
2333
%;gg

001%
001232
001234
001236
001240
001242
001244
001246
001250
001252
001254
001256
001260
001262
001264
001266
001270
001272
001274
001276
001300
001302
001304
001306
001310
001314
001315
001316

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
177607
077
015
000012

SREG23: .WORD
O
+sCONTAINS ((SREGAD)+46)
SREG24: .WORD
O
:sCONTAINS ((SREGAD)+50)
$REG25: .WORD
O
:sCONTAINS ((SREGAD)+52)
$SREG 9: MWORD
O
:sCONTAINS ((SREGAD)+54)
SREG27: .WORD
O
:sCONTAINS ((SREGAD)+56)
SREG30: .WORD
O
:sCONTAINS ((SREGAD)+60)
$REG31: .WORD
O
:sCONTAINS ((SREGAD)+62)
39563%: WORD
0
:sCONTAINS ((SREGAD)+64)
SREG33: .WORD
O
s sCONTAINS ((SREGAD) +66)
$REG34: .WORD
O
:;CONTAINS ((SREGAD)+70)
$SREG3S: .WORD
O
s ;CONTAINS ((SREGAD)+72)
$REG36: .WORD
O
s sCONTAINS ((SREGAD)+74)
SREG37: .WORD
O
;sCONTAINS ((SREGAD)+76)
$TMPO:
.WORD
O
: sUSER DEF INED
$TMP1:
.WORD
O
s sUSER DEF INED
$TMP2:
.WORD
O
:sUSER DEF INED
$TMP3:
.WORD
O
s sUSER DEF INED
$TMP4:
.WORD
O
s sUSER DEF INED
$TMPS:
.WORD
O
s sUSER DEF INED
$TMP6:
.WORD
O
s sUSER DEF INED
$TMP7:
.WORD
O
s sUSER DEF INED
$TMP10: .WORD
O
:sUSER DEF INED
$STIMES: 0
s:MAX. NUMBER OF ITERATIONS
SESCAPE:0
ssESCAPE ON ERROR ADDRESS
$BELL:
.ASCIZ <207><377><377> ;;CODE FOR BELL
$QUES:
L.ASCII
7%/
ssQUESTION MARK
$CRLF:
L.ASCI]
<O%
2 sCARRIAGE RETURN
SLF:
LASCIZ A2
ssLINE FEED
:;'.'.'.'..".""'.""""""""."'..""".."".."."."'
.SBTTL APT MAILBOX-ETABLE

2%84 001226 000000

23“
2337
2338
2339
2340
2341
2342
2343

2344
2345
2346
2347
2348
2349
2350
2351
2352

2353
2354
356
357
2358

001320
001320
001322
001324
001326
001330

001332
001334
001336
001340
001340
001341
001342
001344
001346

000000
000000
000000
000000
000000
000000
000000
000000

000
000
000000
000000
200000

$SREG i: MWORD O

000377

;s CONTAINS ((SREGAD)+42)

s sCONTAINS ((SREGAD) +44)

::...'.....".."""""""""'.".".'.."".'..'..'.'."".'
.EVEN
SMAIL:
:sAPT MAILBOX
SMSGTY: .WORD
AMSGTY ;;MESSAGE TYPE CODE
SFATAL: .WORD
AFATAL ;;FATAL ERROR NUMBER
$TESTN: .WORD
ATESTN ;;TEST NUMBER
$PASS:
.WORD
APASS
;;PASS COUNT
$DEVCT: .WORD
ADEVCT ;;DEVICE COUNT

SUNIT: .WORD
$SMSGAD: .WORD
$SMSGLG: .WORD
SETABLE:
SENV:
.BYTE
SENVM: _BYTE
$SWREG: .WORD
SUSWR: .WORD
$CPUOP: .WORD

3
i
H
H
e

AUNIT
AMSGAD
AMSGLG

AENV
AENVM
ASWREG
AUSWR
ACPUOP

;:;1/0 UNIT NUMBER
;;MESSAGE ADDRESS
;;MESSAGE LENGTH
ssAPT ENVIRONMENT TABLE
s sENVIRONMENT BYTE
;:ENVIRONMENT MODE BITS
;;APT SWITCH REGISTER
;;USER SWITCMES
;.CPU TYPE,OPTIONS

BITS 15-11=CPU TYPE
11/04=01,11/05=02,11/20=03,11/40=04
,11/45=05
BIT 10=REAL TIME CLOCK
BIT 9=FLOATING POINT PROCESSOR
BIT B8=MEMORY MANAGEMENT

SEQ 0046

2359
2360

2361

001350
001351

2362
2363
2364

000
000

SMAMS1: .BYTE
SMTYP1: .BYTE

i
e
‘e

10:53

AMAMS1
AMTYP1

4
PAGE 49

T o

MACY11 30A(1052) 26-JUN-80
APT MAILBOX-ETABLE

SEQ 0047

;;WIGM ADDRESS,M.S. BYTE
::MEM. TYPE,BLKA1

MEM.TYPE BYTE

(HIGH BYTE)

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

2365 001352

000000

§MADR1: .WORD

AMADR1

;;HIGH ADDRESS,BLK#1

2367 001354

000

$MAMS2: .BYTE

AMAMS2

;:WIGH ADDRESS,M.S. BYTE

2366

2368
2369
2370
2371
2372
2373
2374
2375
2376
2377
2378
2379

2380
2381

001355
001356
001360
001361
001362
001364
001365
001366
001370
001372
001374
001376
001400

000
000000
000
000
000000
000
000
000000
120210
000000
177449
000377

SMTYP2:
$SMADR2:
SMAMS3:
SMTYP3:
$SMADR3:
SMAMSL:
SMTYP4:
SMADRG:
SVECT1:
SVECT2:
$BASE:
SDEVM:

SETEND:
JMEXIT

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

AMTYPZ
AMADRZ
AMAMSS
AMTYP3
AMADR3
AMAMSL
AMTYP4L
AMADRG
AVECT1
AVECT2
ABASE
ADEVM

MEM.LAST ADDR.=3 BYTES,THIS WORD AND LOW OF “‘TYPE''

ABOVE

::MEM.TYPE,BLKN2
;:;MEM.LAST ADDRESS,BLKA2
;:;WIGH ADDRESS,M.S.BYTE
::MEM.TYPE,BLKA3
;;MEM.LAST ADDRESS,BLK#3
::MIGH ADDRESS,M.S.BYTE
::MEM.TYPE ,BLKAG
: :MEM.LAST ADDRESS,BLK#4
::INTERRUPT VECTOR#1,BUS PRIORITYA1
::INTERRUPT VECTOR#2BUS PRIORITY#2
::BASE ADDRESS OF EQUIPMENT UNDER TEST
::DEVICE MAP

rene—

CIR6NED RK611/06 SS ViY2
CIRONE.P11
26-JUN-B80 10:48

409
410

26411
2412
2613
2614
2615
2616
2417
2418
2619
2420
2621
2422
2423
24264
2625
2626
2427
2428
24
&
631
63;
43
634
435

“
437

.SBTTL

10:53

&
PAGE 50

SEQ 0048

ERROR POINTER TABLE

;*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR.
s*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN

;*LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.
s *NOTE1

If SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC).
EACH ITEM IN THE TABLE CONTAINS & POINTERS EXPLAINED AS FOLLOWS:

J*NOTE2:

2382
2383
384
2385
2386
2387
2388
2389
2390
2391
2392
2393
2394
2395
2396
2397
2398
2399
2400
2401
2602
2403
24604
2405
2606
2407
2408

MACY11 30A(1052)
26=JUN-80
ERROR POINTER TABLE

001400

EM
DH
DT
DF

;sPOINTS
:sPOINTS
:;POINTS
;sPOINTS

TO THE
TO THE
TO THE
TO THE

ERROR MESSAGE
DATA HEADER
DATA
DATA FORMAT

SERRTB:

001400
001402
001404
001406

000353
063050
064566
064702

;ERROR 1
EMI
DH100
DT100
DFO1

;UNIBUS PARITY ERROR

001410
001412
001414
001416

060372
063050
064566
064702

;ERROR 2
EM2
DH100
pT100
DFO1

;NON=EXISTANT MEMORY

001420
001422
001424
001426

060410
063050
064566
702

;ERROR 3
EM3
DH100
DT100
DFO1

sNON-EXISTANT DRIVE

;ERROR &

;UNIT FIELD ERROR

001430
001432
001434
001436

060426
063050
064566
064702

EMé4
DH100

DT100
DFO1

001440
001442
001444
001446

060445
063050
064566
064732

;ERROR 5
EM5
DH100
DT100
DFO02

001450

060464

EM6

001460
001462
001464

060503
063050
064566

Em7

001452
001454
001456

063050
064566
064766

;ERROR 6

DH100
DT100
DFO3

:ERROR 7

DH100
DT100

;SUBSYSTEM TIMEOUT

;D TO C PARITY ERROR

;DRIVE DETECTED PARITY ERROR

e
¥ e

CIR6NED RK611/06 sS ViY2
CZR6NE.PN
26=JUN-80 10:48

CZRONED RK611/06 3S ViY2
CZRONE .P11
26=JUN-80 10:48
g:gg

2440

2641

2442
2643
244k
24645
2446
2447
2448
2449
gzg?
2452
2453
2454
2455
2456
2457
2458
2459
2660
2661
gzgg
2464

465
466

001466

MACY11 30A(1052) 26=JUN-80
ERROR POINTER TABLE

064766

DFO3

001470 060522
001472
001474
001476

063050
064566
064732

EM10

001500
001502
001504

060531
063050
064566

:ERROR 11
EM11
DH100
DT100

001510
001512
001514
001516

060544
063050
064566
064732

:ERROR 12
EM12
DH100
DT100
DF02

001520
001522
001524
001526

060556
063050
064566
064702

;ERROR 13
EM13
DH100
DT100
DFO1

0015;0
001532

060567
063050

EM14
DH100

001506

064732

:ERROR 10

DH100
DT100
DFO02

:ERROR 14

001534
001536

064566
064732

001540
001542
001544
001546

060607
063050
064566
064732

:ERROR 15
EM15
DH100
DT100
DFO2

2477
2478
2479
2480
2481
24

001550
001552
001554
001556

060623
063050
064566
064732

EM16
DH100
DT100
DFO2

484
485

001562
001564

:ERROR 16

2483

001560

060634

239

001566

064732

DF02

4«88

DH100
DT100

:ERROR 20

2489

001570

060651

EM20

001576

064732

DFO2

490
491

001572
001574

063050
oobsgo

PAGE 51

;AC LOW

;SPEED LOSS

:ILLEGAL FUNCTION

:PROGRAMMING ERROR

:NON=EXISTANT FUNCTION

DT100
DFO2

:ERROR 17
EM17

063050
064566

DFO02

2667
2468
2669
2470
2471
2472
26473
2474
2475
2476

10:53

DH100
DT100

:DRIVE TYPE ERROR

:FORMAT ERROR

:WRITE LOCK ERROR

:DRIVE UNSAFE

SEQ 0049

——y

CIRONEO RK611/06 3S ViY2
CZRONE.PTN
26=JUN-80 10:48

:ERROR 21

8888

EM21

3353

oSO

064566
064732

8888

8888
9y

Zs%8s \flg
~
©® ERERRRE

060700
063050
064566
064732
060713

DH100
DT100
DFO2

;ERROR 22

;ERROR 23

;ERROR 24

;ERROR 25

;ERROR 26

3333

VIV

R
R e o 2
S S D

NN
N NN NN NN
NNLNLNLNLNLNINININININI
NNNN NN

2506

MACY11 30A(1052)
26=JUN-80
ERROR POINTER TABLE

:ERROR 27

;ERROR 30

;ERROR 31

;ERROR 32
EM32

10:53

&
PAGE 52

;SEEK INCOMPLETE

;CYLINDER OVERFLOW

s ILLEGAL CYLINDER

;:DRIVE OFF TR?CK

;DRIVE TIMING ERROR

;DATA LATE

;CONTROLLER TIMEOUT

;OPERATION INCOMPLETE

sHEADER VRC ERROR

:DATA CHECK ERROR

SEQ 0050

CIRONED RK611/06 3S ViY2
CIR6NE.P11 - 26-JUN-80 10:48

2550
2551
%ggg

001712
001714
001716

MACY11 30A(1052) 26=JUN-80
"
"ERROR POINTER TABLE

063050
064566
065076

DH100
DT100
DFO7

2555 001720 061074

EM33

2554

2556
2557
2558
2559
2560
2561
2562
2563
%ggls.

:ERROR 33

PAGE 53

;WRITE CHECK ERROR

001722
001724
001726

063050
064566
065132

001730
001732
001
001736

061110
063050
064566
065026

;ERROR 34
EM34
DH100
DT100
DF 04

2566
2567
2568
2569
gg;g

001740
001742
001744
001746

061130
063050
5
064702

;ERROR 35
EM3S
DH100
DT100
DFO1

2572
2573
2574
2575
2;;3

001750
001752
001754
001756

061162
000000
000000
000000

:ERROR 36
EM36
0
0
0

;
:DRIVE ERROR WILL NOT CLEAR

001760
001762
001764
001766

061211
000000
000000

:ERROR 37
EM37
0
0
0

sDRIVE STATUS CHANGE WILL NOT CLEAR

001770
001772
001774
001776

061252
063050
064566
064732

EM4O
DH100
DT100
DF02

002002
002
002006

061316
063050
064566
064732

:ERROR 41
EM&T
DH100
DT100
DF02

002010

061346

EM42

599 002014 064566

* DT100

578
2579
2580
2581
2582
2583
2584
2585
2586
2587
gggg
590
25N
sso;
§93
ggts

599

597

598

ggg

60
605

002012

063050

002016

064732

2020

061376

002022
002024

063050
064566

DH100
DT100
DF10

10:53

:ERROR 40

:ERROR 42

DH100

sDATA MISCOMPARE(S)

:NO DRIVE RESPONSE-UFE & NXD

:ATTENTION BUT NO STATUS CHANGE OR FAULT

sATTENTION BUT DRIVE NOT AVAILABLE

:ATTENTION WHEN NOT EXPECTED

DF02

:ERROR 43

EM43

DH100
DT100

sERROR WHILE GATHERING DRIVE STATUS

SEQ 0051

CZRONED RK611706 $S VFY2

CZRONE .P1

002026

26=JUN-80 10:48
065176

MACY11 30A(1052)
26-JUN-B0
ERROR POINTER TABLE

10:53

&
PAGE 54

SEQ 0052

DF12
- ERROR Ll

EM63

;CLEAR CONTROLLER DID NOT CLEAR ERROR

DH100
DT100
DF12
45

sNO ATTENTION IN ATTENTION SUMMARY REG

sUNSOLICITED ATTENTION

sUNEXPECTED DATA TYPE ERROR

sATTENTION DID NOT RESET WITH CLEAR

sSUBSYSTEM CLEAR DID NOT CLEAR DRIVE ATTENTION

sMULTIPLE DRIVE

SELECT

+ABREVIATED HCE ERROR

;OPERATION INCOMPLETE ERROR

CZRONED RK611/06 $S ViY2

MACY11 30A(1052) 26=JUN-80 10:53 .PAgE 55

2
2325
002140 061036

:ERROR 55
EM31

2669 002150 061467

EMS6

:2 TIMEOUT ERROR

2674
2675
2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688

s2ND LEVEL IN SUBSYSTEM TIMEOUT

CZRONE.P11

26-JUN=-80 10:48

2664
2665
2666
2667
2668

002142
002144
002146

2670
2671
gg;g

002152
002154
002156

063050
064566
065306

002160
002162
002164
002166

061467
063050
064566
065352

:ERROR §7
EMS6
DH100
DT100
DF16

002170
002172
002174
002176

061506
000000
000000
000000

:ERROR 60
EM60
0
0
0

002200
002202

061540
000000

;ERROR 61
EM61
0

002206

000000

2689 oogg

2690
2691
2692
2693
2694
2695
%ggg

002210
002212
002214
002216

063050
064566
065226

ERROR POINTER TABLE

2700 002

:ERROR 56

DH100
DT100
DF15

000000

061573
063050
064566
065416

:ERROR 62
EM62
DH100
DT100
DF17

2698

2699 002220

DH100
DT100
DF13

002224
002226

2705
2706
2707
2708

002230
002232
002234
002236

061607
063050
064566
064732

EM63
DH100
DT100
DF02

002240
002242
002244

061645
063050
064566

EM6L
DH100
DT100

2717 002250 061673

EM6S

2709

2710

2711
271;
2713
g;};

2716

002246

064732

:ABORT MESSAGE

sCYLINDER MISCOMPARE

;DATA ERROR WORDS

2701
2702
2703
704

064660
065526

;ERROR IN RECAL FOR RECOVERY

:ERROR 63

0000

;ABREVIATED HVRC ERROR

DT602
DF 25
;ERROR 64

:ERROR 65

:CLEAR CONTROLLER DID NOT CLEAR ERROR

:NO ATTENTION IN ATTENTION SUMMARY REG

DF 02

:ERROR 66

;UNSOLICITED ATTENTION

SEQ 0053

E%:g:EO’R1611/06 $S viYe
E.P11

26=JUN-80 10:48

MACY11 30A(1052) 26-JUN-80 10:53 PA%E 56
C

ERROR POINTER TABLE

2718
2719
%;%?

002252
002254
002256

063050
064566
064732

DH100
DT100
DFO2

2722
2723
2724
2725
%;%9

002260
002262
002264
002266

061715
063050
064566
064732

:ERROR 67
EM66
DH100
DT100
DFO2

002270
002272
002274
002276

061741
063050
064566
064732

:ERROR 70
EM67
DH100
pT100
DFO2

002300
002302
002304
2306

062000
063050
064566
064732

:ERROR 71
EM70
DH100
pT100
DFO2

002310
002312
002314
002316

062045
063050
566
064732

:ERROR 72
EM71
DH100
DT100
DFO2

002320
002322
002324
002326

062105
063050
064566
064732

EM72
DH100
DT100
DFO2

002330
002332
23

062140
063050
064566

:ERROR 74
EM73
DH100
DT100

002340
002342
002344
002346

062160
063050
064566
064732

:ERROR 75
EM74
DH100
pT100
DFO2

002350

062172

EM7S

002360

062222

EM76

2728
2729
2730
2731
2732
2733
273
2735
2736
2737
2738
2739
2740
2741
27642
2743
2;:;
746

2747
2748
2749
g;g?
2752
2753
2754
2755

g;gg

2758
2759
2760

2761
%;2§
2764

2765

766
767
768

2769
2770

2771

g??;
773

002336

002352
002354
002356

002362
002364

064732

000000
000000
000000

063766
064652

:ERROR 73

SEQ 0054

:UNEXPECTED DATA TYPE ERROR

:ATTENTION DID NOT RESET WITH CLEAR

:SUBSYSTEM CLEAR DID NOT CLEAR ATT

:DATA LATE WHEN UNLOADING HEADER

;CONTROLLER ERROR DURING DRIVER SERVICE

:DRIVE DETECTED PARITY ERROR

DFO02

:ERROR 76

0
0
0

:ERROR 77

DH60S
DT601

:UNDEF INED ERROR

:MARKING SECTOR BAD MESSAGE

;:BAD DATA VERIFICATION WITH READ

— ——

CZR6NEO RK611/06 S ViY2

CZRONE .P11

2774

2775

26=JUN-80 10:48

002366

065452

%;;9 002370 062304
2778
2779
g;g?

002372
002374
002376

000000
064652
065512

2782

2783 002400 062304

MACY11 30A(1052) 26=JUN-80 10:53 oPAGE 57
ERROR POINTER TABLE
DF21

éS;;OR 0
DT601
DF23

;ERROR 101

EH??

2784
2785
2786
2787

002402
002404
002406

000000
064652
065512

0
DT601
DF23

2789

002410

062325

EM100

2788

2790
2791
2792

;ERROR 102

002412
002414
002416

000000
064652
065512

0
DT601
DF23

2795
2796

002420
002422

062350
063750

EM101
DH6042

801

002430
002432
002434
002436

062426

063050
064566
064732

EM102

DH100
DT100
DFO2

2807
2808
2809
%g}?

002440
002442
002444
002446

062472
063050
064566
064766

:ERROR
EM103
DH100
DT100
DFO3

105

2812
2813
2814
2815
gg}g

002450
002452
002454
002456

062520
063050
064566
064766

;ERROR
EM104
DH100
pT100
DFO3

106

2819 002460 062542

EHIOS

:ERROR

107

%g%

DFO02

2793

2794

2797
2798
2799
2800

802
2803
2804
2805
2806

002424
002426

064652
065522

2818

2
2821

002462
002464

002466

063050
064566

064732

2824

2825 002470 062573
g 9
827
2828

002472
002474
002476

063050
064566
065542

SEC 0055

:ERROR 103

RETRY SUCCESFUL MESSAGE
Y

:ANOTHER RETRY SUCCESSFUL MESSAGE

sRETRY UNSUCCESSFUL MESSAGE

:NO VALID HEADERS IN TRACK JUST READ

DT601
DF 24

;ERROR 104

:ERROR

DH100
DT100
DF27

:TIMED-OUT ON READ HEADER
.

DH100
DT100

EH106

:BSE ERROK ON SECTOR NOT LISTED AS BAD

110

;TIMED=-OUT ON SEEK

:DRIVE SIEZED BY OTHER PORT

:"'DATA MISCMPR WHILE BAI SET'

———

062626
000000
000000
000000

MACY11 30A(1052)
26=JUN-80
ERROR POINTER TABLE
;ERROR
Mm107

:ERROR
EM110
DH100
DT100
DFO1

112

:Elu\OR

113

;:ERROR
EM112
DH702
DT202
DF26

114

; ERROR
0
0
DT601
DF11

115

:ERROR
EM34
DH103
DT103
DF20

116

: ERROR

OCOOMmM-

CIRG6NED RK611/06 sS ViY2
26-JUN-80 10:48
CIR6NE .P11

EM11?
DH100
DT100
DFO02

10:53

PAGE 58

SEQ 0056

;"'NO NEM WHEN EXPECTED"

:"'INTRPT WHEN CNTRLR NOT READY'

:''NG ATT'N ON SEEK"

;DRIVE'S CYLINDER INCORRECT

;TYPE ADRS OF DATA MISCOMPARE(S)

;DATA MISCOMPARE (11/70)

;PART OF DATA MISCOMPARE

DT100
DF22

:ERROR
EM113
DH100
DT100
DFO1

120

;:ERROR

121

; ERROR

122

EM114
DH100
DT100
DF30

EM115

;ABORT- CAN'T READ BSF

:KT11

FAILURE

;MEM PARITY ERROR

CIR6NEDO RK611/06 SS ViY2
CZR6NE.P1N
26=JUN-80 10:48

063050
064566
065612
060410
000000
000000
000000

MACY11 30A(1052)
26-=JUN-B0
ERROR POINTER TABLE

10:53

3
PAGE 59

DH100

;NED IN SIZING UNDER APT

-y

SEQ 0057

CIR6NED RK611/706 35S ViY2
26=-JUN-80 10:48

CZR6NE .P11

]

MACY11 30A(1052)
26-JUN-80 10:53 PAGE 60
BIT ASSIGNMENTS IN THE RKé11 REGISTERS

.SBTTL

SEQ 0058

BIT ASSIGNMENTS IN THE RK611 REGISTERS
:RKCST

i 15

SCERR '

! DCPAR! CFMT ' CTO

CR/W!

: SPARE!
RMW I

RM Y

ORM

‘RO

(CCLR !

SRDY !
SR

;:RKCS2

SOR

'
!

13
i

12
i

1
i

;

DC7 'DC6&
;

‘RO

'RO

‘RO

'RO

' CLR

! BAl

! DESL ' DS2
R/W

IR/

' DS1

! DSO

NU ! NU

! DC9

! DCB

'‘R/W

' NU

READ ONLY

!R/M

! DC4

! DC3

! DC2

' DC1

! DCO

READ ONLY

IR/M

iy
! DCS

‘WO

:RKDA (DESIRED TRACK AND SECTOR)
;

ORMWI

'R/

'R/W

! BA17 ! BA16 !

' CDT

R/W'!

:RKDC (DESIRED CYLINDER)
NU

!
!

“NU ' UN ' UN ' UN ! UN ! TA2 ! TAT ! TAD !
:

READ ONLY

TUN
:

]

! SA4

! SA3

! SA2

! SA1

! SAQ

READ ONLY

!
i

——

CIR6NED RK611/06 3S ViY2
CZR6NE .P1N
26-JUN-80 10:48

H 5
MACY11 30A(1052)
26=JUN-80 10:53 PAGE 61
BIT ASSI GNMENTS IN THE RK&11 REGISTERS
;RKDB (DATA BUFFER)

P11

SEQ 0059

iDB1S ! DB14 ! DB13 ! DB12 ! DB11 ! DB1O ! DBY

! DBB

READ/WRI TE

: 087 ' DB6

SRKASOF

STy RRE

! DB4

! DBS

! DB3

READ/WRI TE

! 0BT

! DBO

' DB2

:
!

(ATTENTION SURMARY AND OFFSET)

EATN7 | ATNG | ATNS | ATNG | ATN3 ! ATNZ ! ATN1 ! ATNO!i
READ ONLY

ol TR

' OF4

' OF3

! OF2

' OF1

' OF0

SWC1S ! WC14 ' WC13 ! WC12 ' WC1T ! WC10 ! WC9

! weB

“UN
¥

'OF6

' OF5S

)

READ/WRITE

TMC7 ' WC6

' WCS

! WCA

' WC3

! WC2

! WCl

! weo

‘BA1S ! BA14 ! BA13 ! BA12 ! BA11 ! BAI0 ! BA9

' BA8

:RKBA (BUS ADDRESS)

115

READ/WRITE

;

BA7 ' BA6

' BAS

;

READ/WRI TE

! BA4L

' BA3

! BA2

' BA1

' BAO

READ/WRITE

!
i

i ALWYSO!

CZR6NED RK611/06 3S ViY2

CZRONE .P1N

26=JUN-B0 10:48

MACY11 30A(1052)

26=JUN-80

10:53

5
PAGE 62

BIT ASSIGNMENTS IN THE RK611 REGISTERS

SEQ 0060

3005

;RKER (ERROR REGISTER)

3008

: DCK ! UNS

! OPI

! DTE

! WLE

%g}%

3014
3015

; BSE
:

! ECH

3017
3018
gg;g

;RKDS (DRIVE STATUS)
: 15
14
13

ggg?
3009
3010
3011

3016

3021
3022

3023

3024

: 15

! IDAE ! COE

' HVRC !

! DTYPE! FMTE ! DRPAR! ILF
READ ONLY

! SKI

! ILC

!
:

jeeeeecccccccccccccccccccccccncccncecceccnceccecscacacaaa

;SVAL ! DSC
H

! PIP

! SPON ! WRL
READ ONLY

10
!

! DTP

!
:

jeeesecccccccccccccncncscccssscsssssssssssssssssscccsaas

3029

3034
3035
3036

3030
3031
338%

:
READ ONLY
:
Te

3025

3026
3027
3028

jeeeeecccccccccccccscssccsssstsscssessessessscesssssaces
;DRDY ! VvV
! DROT ! SPLS ! ACLO ! OFSET! UN ! DRA !
:
READ ONLY
:
;RKMR1 (MAINTENANCE REG 1)
;15
14
13
12

Sttt

3037

sRD
! WRT
! ECCW ! PCD ! PCA ! MEWD ! MERD ! MCLK !
;GATE ! GATE !
:
:
:
:
:
:
READ ONLY
! READ/WRITE
!
jeeeecscccscccsctcssssscssssncascsssssnasssasssssecssae

3039
3040
3041

"
6
5
4
3
2
1
0
jeeecesssscccsscsssssssttsssssstssssessssscsssssnscsene
MIND ! MSP ! DMD ! PAT ! MS3 ! MS2 ! MS1
! MSO !

3038

3042

READ/WRITE

CZR6NED RK611706 $S ViY2
CZR6NE .P11
26=JUN-80 10:48

J 5
MACY11 30A(1052) 26=JUN-80 10:53 PAGE 63
BIT ASSIGNMENTS IN THE RK611 REGISTERS

SEQ 0061

3044
2822

;RK%CC/PAT
i
14

3047

DUN

3049

i
s

3048

3050

READ ONLY

UN
3

! EPAT0! EPA9 ! EPAS !
i

%8%}

3053

SEPA7 ! EPAG ' EPAS ! EPA4L ! EPA3 ! EPA2 ' EPA1 ! EPAQ !

gggg

;15

3060

SUN

3062

jeeeecccccccscsssssnsssccctsacssssssnsaresssssssscaccane

3054
3055
3056
3057

;
READ ONLY
|
|eeecccccccccccccccccccccccccccccccccrccrcccscccccecanan
;RKECC/POS

3061

;

3063

! EPD12! EPO11! EPO10' EPO9 ' EPO8 !
READ ONLY

gggg

3066

SEPO7 ! EPO6 ' EPOS ' EPO4 ' EPO3 ! EPO2 ' EPO1 ! EPOO !

3068

oessscssssscesssssttstsssactssteascssssststacstsesees

3067

;

3069

:DRIVE STATUS INFORMATION

3072

:LINE A MESSAGE 00

gg;g

:PAR ' DSC

' PIP

3077

3078

3079

3080

;15

READ ONLY

gg;?

gg;z

SDRDY !

'DRA

! SPON ' WRLK ' OFFON' FMT

! DRTP !

iccessscscccscccccccccccccecccecccsssnsseseessesanenmna.

! DRIVE SELECT CODE

CZRONED RK611/06 3S ViY2
CZR6NE .P11
26=JUN=-80 10:48
82
83

3085

30“

3087

5
MACY11 30A(1052) 26-JUN=-80 10:53 PAGE 64
BIT ASSIGNMENTS IN THE RK611 REGISTERS
:LINE B MESSAGE 00
: 15
14
13

: PAR ! UNS
R

! DROT ! DCLO ' WLE

! SkI

3088

3090

FLT ! ACLO ' IVDA'

3092
3093

:LINE A MESSAGE 01

3097

: PAR ! UNLDG! RTZ
:
' HDS
!

' LDG
' WDS

' REV
!

! FWwD
!

3089

3091

3383’;
3096
3098

3099

SEQ 0062

! Penn 'ILF

|eeesccccccccsccccccccccrccccccccccerrcccecscccaccsscnane

jeccccccsccccccccccccccccccccceccccccccceccccccceecacaas

' SPEED!' CART !
'
OK
! PRES '

jeeeecceccaeeT

318(‘)

3102
3103

;:DOOR ! BRUSH' HEADS' TRK
'
;LTCH ! HOME ' HOME ! rOLou'

3105

: .......................................................

3104

3106

'ooK

!
!

DRIVE SELECT CODE

'
'

3107

;:LINE B MESSAGE 01

§11o

: PAR ! SERVO! LIMIT! SEEX ' PLO ' DIBIT'! INDEX!' lUL!l‘

3}83

g}};

3113

! BRAKE' ON SK'NO MO ' ERR

gug

3116

:HEAD 'WR GTE'WR CUR' SEC

g}}g

3117

SFAULT'AND NO'AND NO' ERR

'XISTON'WR GTE'

3
!

ERR '

ERR 'MD SEL'

0
!

CIR6NEO RK611/06 SS ViY2
CZRONE .P1N
26-JUN-80 10:48

L 5
MACY11 30A(1052) 26-JUN-80 10:53 PAGE 65
BIT ASSIGNMENTS IN THE RK611 REGISTERS

3120
g}%}

:LINE A MESSAGE 10
118
14
13

§}§2

PPAR '

3125

%}%9
g;gg

3130

g}gg

;LINE B MESSAGE 10

DRIVE SELECT CODE

P PAR ! ALIGN'

3136

P et
T

3137
3138

i SIGN !

31 39

;}2?

3142

3143
g}zg

3134

3135

! CYLINDER DIFF/OFFSET VALUE

SCYLINDER DIFF/OFFSET VALUE!'

3131

SEQ 0063

: PAR !

g}gg

g}g;
3153

: DRIVE SERIAL NUMBER
3

'
12

3}29

3154
g}gz

CYLINDER ADDRESS

:LINE A MESSAGE 11
R
14
1

3143

CYLINDER ADDRESS

1!
9

'
5

DRIVE SERIAL NUMBER
6

:LINE B MESSAGE 11
:
14
13

'
12

DRIVE SELECT CODE !
10

|eeeeccccccccccccccccc
e e s e r e e e s e s eesec s esceceaane

3161

3163

3162

DECODED HEAD

! SECTOR!

ADDRESS

i COUNT !

eeeeecccccccccrcscrcrr
s s st c e e e s s s e cececneceaae

3164
3165
3166

SECTOR COUNT

.SBTTL

RKO6 CONTROLLER REGISTER DEFINITION

RKBA=
RKDA=

&
6

3171
1?;

000000
000002

RKCS1=
02
RKWC=

:CONTROL
AND STATUS REGISTER 1
:WORD COUNT REGISTER

175

000010

RKCS2=

*CONTROL AND STATUS REGISTER 2

17
174

jeeeesccccccccccccccecrccce
e e e s s s e s e ecccnaaaaae

3}93

3159
3160

SPAR!
:

3157

3158

000004
000006

:BUS ADDRESS REGISTER
:DESIRED TRACK SECTOR REGISTER

CZIRO6NED RK611/06 3S ViY2
CZRONE .P11
26=JUN-80 10:48

ERIRCREIT2ETEISRRERZS

e L\ U U U U W U O O

D e

N U O

N N N N

3176
177
3178

nS
MACY11 30A(1052)
26-JUN-80 10:53 PAGE 66
RKO6 CONTROLLER REGISTER DEFINITION
RKDS=
RKER=
RKASOF=
RKDC=
RKDCYL=
RKDB=
RKMR1=
RKMR2=
RKMR3=
RKPOS=
RKECPS=
PXPAT=
RKECPT=

12
14
16
20
20
264
26
34
36
30
30
32
32

.SBTTL

DRIVE COMMANDS

SELDRV= 101
103
CLEAR= 105
UNLOAD= 107
SRTSPL= 111
RECAL=
113
OFFSET= 115
SEEK=
117
RDDATA= 121
WRDATA= 123
RDHEAD= 125
WRHEAD= '§7
WRTCHK= 131
PACK=

3200

WNO VS WN=O 0NV
W

AN
N
NN

ORI
283

A U U L A (d U L Ll AN A L A

RN
POPNININ) b b cd e eed—

AN N

3211

000140
000141
000164

000176
000177
000300

000001
000005

;DRIVE STATUS REGISTER
;ERROR REGISTER
;ATTENTION SUMMARY AND OFFSET REGISTER
;DESIRED CYLINDER REGISTER
;DESIRED CYLINDER REGISTER
:DATA BUFFER
sMAINTENANCE REGISTER 1
sMAINTENANCE REGISTER
sMAINTENANCE REGISTER
;ECC POSITION INFORMATION
;ECC POSITION INFORMATION
sECC PATTERN INFORMATION
;ECC PATTERN INFORMATION

sSELECT DRIVE
sPACK_ACKNOWLEDGE
;DRIVE CLEAR
s UNLOAD
;START SPINDLE
sRECALIBRATE
sOFFSET
: SEEK
sREAD DATA
;WRITE DATA
sREAD HEADER
;WRITE HEADER AND DATA
;WRITE CHECK

THE FOLLOWING ARE NOT DRIVE COMMANDS BUT ARE USED BY THE DRIVER

TO SIMULATE A SPECIFIC DFSIRED OPERATION

RELEAS= 140
RDSTAT= 141
RDALHD= 164

CONCLR= 176
SUBCLR= 177

;RELEASE DRIVE
;GET ALL STATUS FROM DRIVE
sREAD ALL HEADERS

;CONTROLLER CLEAR (BIT 15 OF (CS1)
;SUBSYSTEM CLEAR (BIT 5 OF (S2)

INTR=

300

DRIVER ISSUED SERVICE COMMANDS

DR.SEL= 001
DR.CLR= 005

;GENERATE INTERRUPT TO CPU

;DRIVE SELECT
;:DRIVE CLEAR

.SBTTL

CONTROL AND STATUS REGISTER 1 BITS

60=
€=
RDY=
BA16=

BITO
BITé
BIT7
BIT8

CT10=

BITN

BA17=
cor=

CFMT=

SEQ 0064

;G0 BIT
: INTERRUPT ENABLE
s CONTROLLER READY
:BUS ADDRESS BIT 16

BITY
BIT10

:BUS ADDRESS BIT 17
;CONTROLLER DRIVE TYPE (0=RK06,1=RK07)

BIT12

;CONTROLLER DRIVE FORMAT (0=22 SECTOR, 1=20 SECTOR)

;CONTROLLER TIMED OUT WAITING FOR
: DRIVE RESPONSE

O
=

;DRIVE BUS PARITY ERROR DETECTED BY CONTROLLER

: CONTROLLER ERROR

;:DRIVE INTERRUPT

;CONTROLLER CLEAR

xxXx

) 3 BIT DEFINITIONS ARE USED FOR ADDRESS
H IGH BYTE OF RKCS1

B Bt e

000001

et Gt fmt s

DODOD®
——

SPAR=
Di=
CERR=
CCLR=

Attt
SO

;BUS ADDRESS BIT 16
+BUS ADDRESS BIT 17
s CONTROLLER D RIVE T YPE (0=RK06,1=RK07)
s CONTROLLER D RIVE F ORMAT (0=22 SECTOR, 1=20 SECTOR)

—4

]
e

]
)
)
]

sDESELECT OR RELEASE DRIVE IN BITS 0-2
;DESELECT OR RELEASE DRIVE IN BITS 0-2

)

;MASK FOR DRIVE SELECTION CODE

)

e
e

)
)

e
T

)
]
)

e
L

)

0D D o (D O GO O GO O €O O 0O O O W ~

CONTROL AND STATUS REGISTER 2 BITS

WSS
NN =2 )

100000

N 5
MACYN 30A(1052)
26=JUN-80 10:53 PAGE 67
CONTROL ND STATUS REGISTER 1 BITS

CIRONED RK611/06 3S Viv2
CZR6NE.P1N
26=JUN-80 10:48

;BUS ADDRESS INCREMENT INMIBIT
;CLEAR CONTROLLER AND ALL DRIVES
sCLEAR CONTROLLER AND ALL DRIVES
s INPUT READY
sOUTPUT READY
sUNIT FIELD ERROR
sMULTIPLE DRIVE SELECT
: PROGRAMMING ERROR

sNON=-EXISTENT MEMORY
+NON-EXISTENT DRIVE
sUNIBUS PARITY ERROR
;WRITE CHECK ERROR
:DATA LATE ERROR

ERROR REGISTER BIT DEFINITION
= O

NNIN

— — — —

e i e =2 O TO OO NO N
WNIN = O

—
—
] o
]
)
] o]
)
] o]

sILLEGAL FUNCTION CODE
sILLEGAL FUNCTION CODE
sSEEK INCOMPLETE
sILLEGAL DRIVE FUNCTION
sILLEGAL DRIVE FUNCTION
sDRIVE DETECTED DRIVE BUS PARITY ERROR
sFORMAT ERROR
:DRIVE TYPE ERROR
sECC HARD
sBAD SECTOR ERROR
sHEADER CRC ERRROR
sHEADER VRC ERRROR
sCYLINDER ADDRESS OVERFLOW ERROR
sINVALID DISK ADDRESS ERROR
+WRITE LOCK ERROR
sDRIVE TIMING ERROR
sOPERATION (SEARCH) INCOMPLETE
sDRIVE UNSAFE

.SBTTL

STATUS REGISTER BIT DEFINITION

— e
VA

)

DCK=

UNS=

0D €O G

0o G

s ot By bty B

ooy B

Bn Dot

T Cd G GO T Td G Cd o T

O M

s b e bos b

BITO

sDATA CHECK

SEQ 0065

CZIR6NED RK611/06
SS ViY2
MACY11 30A(1052)
26=JUN-80 10:53 aPAgE 68
26=-JUN-80 10:48
STATUS REGISTER BIT DEFINITION

CZRONE .P1N
3288
3289

000001

DRA=

8ITO

3290
32N
3292
3293

000004

OFST=

BIT

3294
3295
3296
3297

000010
000020
000020

000040
000100
000200
000200

DROT=
vv=
DRY=
DRDY=

BITS
BITé
BIT17
BIT7

WeL=
PI1P=
DSC=

BITN
BIT13
BIT14

3298

3299
3300
3301

ggg%

000400

004000
020000
040000
100000

%ggg

ACLO=
BIT
SPDLSS= BIT4
DCLO=
BITé

DDT=

SVAL=

.SBTTL

BIT8

BIT15

sDRIVE AVAILABLE (CONTROLLER IS SET IF
: THIS BIT IS RESET)

DRIVE OFFSET
sAC LOW
SPEED LOSS
:DC
L

DR!VE OFF TRACK
:VOLUME VALID
:DRIVE READY
:DRIVE READ

:DRIVE TYPE (0=RK06 1=RK07)
;WRITE LOCK
:POSITIONING IN PROGRESS
;DRIVE STATUS CHANGE
:STATUS VALID

MAINTENANCE REGISTER 1 BIT DEFINITION

;gg?

000017

MESMSK= 17

sMESSAGE MASK

3308
3309

000020
000040

PAT=
DMD=

;FORCE EVEN PARITY ON DRIVE BUS MESSAGE LINES
:DIAGNOSTIC MODE

3317
3318

020000
040000

3310
3311
3312
3313
3314
2315
316
gg;g

000100
000200
000400
001000
002000
004000
010000

MSP=
MIND=
MCLk=
MERD=
MEWD=
PCA=
PCD=

100000

RDGATE= BIT15

3;3%

g%;g
2336

337
338
339

3340

33‘1
362
3543

000040
000100
000200
000400
001000
002000
004000
010000
020000

040000

BITé
BIT?7
BIT8
BITY9
BIT10
BITN
BIT12

BIT13
ECCW=_
WRTGAT= BIT14
.SBTTL

gg%}
3323
3324
3325
3326
3327
3328
3329
30
3331

BIT4
BITS

ECC WORD IS BEING READ OR WRITTEN
WRITE GATE
:READ GATE

DEFINITION OF DRIVE STATUS BYTE 00 MESSAGE A

S.DRA= BITS
S.vv=
BIT6
S.DRY= BIT7
S.TYPE= BIT8
S.FORM= BIT9
S.0FF= BIT10
S.WRL= BITN
S.SPIN= BIT12
S.PIP= BIT13

S.DSC=

;MAINTENANCE SECTOR PULSE
:MAINTENANCE INDEX
;MAINTENANCE CLOCK
MAINTENANCE ENCODED READ DATA
:MAINTENACNE ENCODED WRITE DATA
:PRECOMPENSATION ADVANCE
:PRECOMPENSATION DELAY

BIT14

;:DRIVE AVAILIABLE
:VOLUME VALID
;DRIVE READY
:DRIVE TYPE
;:DRIVE FORMAT
;OFFSET
;WRITE LOCK
:SPINDLE ON
;POSITIONING IN PROGRESS

;DRIVE STATUS CHANGE

000040

.SBTTL DEFINITION OF DRIVE STATUS BYTE 00 MESSAGE B
;ILLEGAL CYLINDER ADDRESS
S.1CyL= BITS
:AC LOW
BIT6

001000

S.PAR= BITY

000100
000200
000400

002000
004000
010000

S.ACLO=
S.FLT= BIT?7
S.ILF= BIT8

DRIVE FAULT
s ILLEGAL FUNCTION

s.Skl= BIT10
S.WLE= BITN
S.SPLS= BIT12

:SEEK_INCOMPLETE
:WRITE LOCK ERROR
+SPEED LOSS

:DRIVE DETECTED DRIVE BUS PARITY ERROR

SEQ 0066

S.DCLO= BIM
S.DROT= BIT1
S.UNS= BIT14

vurnurnuomuvmmumnunnummunnunnom

.SBTTL
.SECT=
WCLK=
LWGAT=
HDFL=
.MHD=
.XERR=
.DIB=
PLO=
.NMOV=
LIMD=

.SBTTL

077770
007000

.DRV=
.PAR=
.1D=
.CDIF=
.CADD=
.SER=
.SECT=
.HEAD=

O N~
— e e e b O OO
NN —O

[+ ]

M TM

——— —1

fumed Pmd Peek (s —a
Do

o O

Bt e
B
B

.XDOK=
HDHM=
BRHM=
.DOOR=
.CART=
.SPOK=
FWD=
.REV=
.LOAD=
RT2=

;0C LOW
;DRIVE OFF TRACK
;DRIVE UNSAFE

DEFINITION OF DRIVE STATUS BYTE 01 MESSAGE A

(P X7 XV AT A7

AL XV AP AP A7 A7

.SBTTL

010000
020000
040000

C 6
MACY11 30 A(1052) 26-JUN-B0 10:53 PAGE 69
0 EFINITION OF DRIVE STATUS BYTE 00 MESSAGE B

0D 0o O O

CIR6NED RK611/06 S ViY2
CZRONE .P1
26=JUN-80 10:48

: TRANSDUCER OK
sHEADS HOME

:BRUSHES HOME
:DOOR INTERLOCKED
sCARTRAGE INTERLOCK
sSPEED 0K

:FORWARD

sREVERSE
sHEADS LOADING
:RETURN TO ZERO
sHEADS UNLOADING

DEFINITION OF DRIVE STATUS BYTE 01 MESSAGE B
BIT4
BITS
BIT6
BIT?
BIT8

:SECTOR ERROR
:WRITE CLOCK AND NO WRITE GATE
:WRITE GATE AND NO TRANSISTIONS
JHEAD FAULT
:MULTIPLE HEAD SELECT

BIT10
BITN
BIT12

:DIBIT ERROR
;sPLO ERROR
sSEEK AND NO MOTION

BITY9

BIT13
BIT14

s INDEX ERROR

sLIMIT DETECT ON SEEK
;s SERVO-BRAKE

COMMON MASKS

BIT1S
3
17760
17760

77770

760
7000

;DRIVE CODE

sPARITY
:BYTE ID
sCYLINDER DIFFERENCE/OFFSET
sCYLINDER ADDRESS
:DRIVE SERIAL NUMBER

sSECTOR COUNT
sHEAD DECODE

SEQ 0067

MACY11 30A(1052)

26-JUN-80

PARAMETER BLOCK ALLOCATION

SEQ 0068

AR RddRdRdRRRdRl
R Rl d)

!
!
!

COMMAND
CYLINDER ADDRESS
TRACK

WORD COUNT REGISTER

! DRIVE NO.

SECTOR

iBA16=17,FORMAT
DRV TYPE! OFFSET
i BUS ADDRESS (LOW 16 BITS)
i WORD COUNT (2°S COMPLEMENT)
i PROGRAM DRIVE STATUS INFORMATION
; COMMAND AND STATUS REGISTER 1
i COMMAND AND STATUS REGISTER 2
:

|
i

|
|
|
|
i
|
|

BUS ADDRESS REGISTER
DESIRED TRACK AND SECTOR
DESIRED CYLINDER
ATTENTION SUMMARY AND DRIVE OFFSET
ERROR REGISTER
STATUS REGISTER
MESSAGE LINE A STATUS BYTE 00
MESSAGE LINE B STATUS BYTE 00
MESSAGE LINE A STATUS BYTE 01
1
MESSAGE LINE B STATUS BYTE
0
MESSAGE LINE A STATUS BYTE
0
MESSAGE LINE B STATUS BYTE
1
MESSAGE LINE A STATUS BYTE

i MESSAGE LINE B STATUS BYTE
| ECC POSITION INFORMATION
! ECC PATTERN INFORMATION

i
s
i
i
i
:
s

NOO SO
NO

022

i
i
i
i 32

OO VIS 85 85 5N W
N AN NI NI N = —b =
s
N =2 NN
=2 NN
=2 PN = NN =2 NN = N VW

TR
TR

IR N

TR
TR

R
R

R
PR P

IR
R
N
R

TRTR
TRTE
TE T
T
R

BN BN AN NN
B
BN BN BN B
B

R RRR
T
R R R
R

BN BN BN B
L

IIIIIIIIIIIIINS
PIIAIIIIIIINS PRI
~sESw
ONO
VS
WN
=2OO0®NO
VS WN=O
EXHJN"UHJNNUfiUNMU-‘-‘—La.a-ma.a..dwssz
-Ov BIERFURZE

6
PAGE 70

PARAMETER BLOCK ALLOCATION
A3

.SBTTL

WNOMNONO
N = = —b -2

.SBTTL

3407

10:53

— et
O

C 4 RONE 0 RK611/06 3S vive
C l RONE PN
26-JUN-80 10:48

i
i
;
i
i
i
i
i
i
i
i

232 2222022222200
000 RRRdRRRdRRRdl .

PARAMETERS PASSED TO THE DRIVER
THE FOLLOWING DEFINITIONS ARE USED TO PASS PARAMETERS

TO THE RKO6/RKO7 DRIVER

P.DRVN=
P.CMND=
P.CYLN=
P.SECT=
P.TRCK=
P.OFST=

0
1
2
&
5
6

.SBTTL

PROGRAM DEVICE STATUS REGISTER DEFINITION

P.C51H= 7
P.BAHI= 7
P.BALO= 10
P.WC=
12
P.PRST= 14

DRVUSE= BITO
DRVPOS= BIT1
DRVPDT= BIT2
UEXATT= BIT3
DRVHRD= BIT4
DRVDSC= BITS

:DRIVE NUMBER
: COMMAND
:CYLINDER ADDRESS
:SECTOR
: TRACK
;OFFSET

;RKCS1 BITS 8-15
;BUS ADDRESS (BITS 16 AND 17)
:BUS ADDRESS (BITS 0-15)
;WORD COUNT (2°'S COMPLEMENT)
:PROGRAM DRIVE STATUS INFORMATION

;:DRIVE IN USE
;:DRIVE POSITIONING
;DRIVE POSITIONED FOR DATA TRANSFER
sUNEXPECTED ATTENTION
;:DRIVE HAS HARD ERROR
;DRIVE STATUS CHANGE DID NOT CLEAR

BITH

000200
000400
001000

W.W(Ks=
NOCHK=

BIT?
BIT8

002000

DRPDRV=
NODSC=

TATTENTION SET BUT DCS AND FAULT RESET
:DRIVE SEIZED BY OTHER PORT
:DRIVE UNLOADED DUE TC ERROR
PARAMETER BLOCK ENQUEUED IN INITIATION QUEUE
“INHIBIT BUS ADDRESS INCREMENT

PARAMETERS PASSED FROM DRIVER TO PROGRAM

THE FOLLOWING DEFINITIONS ARE USED FOR REGISTER RETURNS
FROM THE DRIVER TO THE CALLING PROGRAM

]
LI
©
.
o
o
«
e
"
o

4 Vet b 2 OQOOOVN
DN
=P OWVN
> O==O00—=—=O0OIN HO<VNDON—
"mmreaTnnnn
NN

.SBTTL
s

—

(SET WHEN ERROR TERMINATION OR
READ STATUS COMMAND)

*DROP DRIVE FROM TEST SEQUENCE

i
:

)
e

—————

‘PARAMETER STATUS WORDS VALID

C.INIT=
DTBAII= BIT1S

000016

DRVSZD=
E.UNLD=

100000

:NO TERMINATION TO COMMAND FOR AT
P LEAST 1 SECOND
‘WRITE FOR WRITE WRITE CHECK
‘NO CHECK, DO NOT SET INTERRUPT ENABLE

BIT9

(o Qoo Qo Qoo do ]

PBSVAL=

“

CMDTO=

VOOV OVVOVOVOVOVVOOVOOVOOVOVO

3463

000100

m MO>»O>OPDIOMPOODENN

333

R28 VO NO VNS W

34642
3443
34644
3445
3446
3647
3448
3449

26=JUN-B0 10:53 PAGE
PROGRAM DEVICE STATUS REGISTER DEFINITION

MACY11 30A(1052)

CIZR6NED RK611/06 sSS ViY2
CZRONE .P11
26=JUN-80 10:48

;COMMAND AND STATUS REGISTER 1

22
24
26
30
32

sWORD COUNT REGISTER
:BUS ADDRESS REGISTER
;:DESIRED TRACK SECTOR REGISTER
:DESIRED CYLINDER REGISTER
:ATTENTION SUMMARY/OFFSET REGISTER

iMESSAGE A STATUS BYTE 00

;COMMAND AND STATUS REGISTER 2

:ERROR REGISTER
:STATUS REGISTER

34
36

Y4
Lé
46

:MESSAGE B STATUS BYTE 00
:MESSAGE A STATUS BYTE 01
sMESSAGE B STATUS BYTE 01

;ECC PATTERN INFORMATION

sMESSGGE A STATUS BYTE 10
sMESSAGE B STATUS BYTE 10
;MESSAGE A STATUS BYTE 11
;MESSAGE B STATUS BYTE 11
;ECC POSITION INFORMATION

50
52
54
56
60

LSBTTL

PARAMETER BLOCK O FOR DRIVE

PARMO:

.BYTE
.BYTE
.WORD
BYTE
.BYTE
.BYTE

0
0
0
0
0
0

;:DRIVE NUMBER
: COMMAND
;CYLINDER ADDRESS
;SECTOR ADDRESS
: TRACK _ADDRESS
:OFFSET VALUE

WORD

:BUS ADDRESS (BITS 0 - 15)

.BYTE

WORD
WORD
.WORD
.WORD
.WORD
WORD
.WORD

0
0
0
0
0
0
0

:BUS ADDRESS (BITS 16 AND 17)
;WORDCOUNT (2°'S COMPLEMENT)
PROGIAH DRIVE STATUS INFORMATION
:COMMAND AMD STATUS REGISTER 1
:COMMAND AND STATUS REGISTER 2
:WORD COUNT REGISTER
:BUS ADDRESS REGISTER
:DESIRED TRACK AND SECTOR REGISTER

SEQ 0069

CZRONED RK611/06 3S ViY2
CZR6NE .P1N
26-JUN-B0 10:48

MACY11 30A(1052) 26=JUN=80 10:53 PAGE 72
PARAMETER BLOCK O FOR DRIVE

3498
3499

002660
002662

000000
000000

WORD
.WORD

O
0

;DESIRED CYLINDER REGISTER
sATTENTION SUMMARY/OFFSET REGISTER

502
3503
3504
3505
3506
3507
3508
3509

002670
002672
002674
002676
002700
002702
002704
002706
002710
002712

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

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

0
O
0
0
0
0
0
O
0
0

;MESSAGE LINE A STATUS BYTE 00
;MESSAGE LINE B STATUS BYTE 00
sMESSAGE LINE A STATUS BYTE 01
;MESSAGE LINE B STATUS BYTE 01
;MESSAGE LINE A STATUS BYTE 10
;MESSAGE LINE B STATUS BYTE 10
sMESSAGE LINE A STATUS BYTE 11
sMESSAGE LINE B STATUS BYTE 11

000000
000000

WORD
.WORD

.WORD
.WORD

gg}z
3515
3516
3517
3518
3519
3520

3521
3522
3523
3524
gsss
526
3527
3528
3529
3530
3531
3532
3533
3534
3535
3536
3537
3538
3539
3540
3541
3542
322‘

002714
002715
002716
002720
002721
002722

002723
002724
002726
002730
00 7;%
0027
002736
002740
002742
002744
002746
002750
002752
002754
002756
002760
002762
002764
002766
002770
002772
002774
002776

000
000
000000
000
000
000

000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000

;ECC POSITION INFORMATION
;ECC PATTERN INFORMATION

PARAMETER BLOCK 1 FOR DRIVE

PARM1:

.BYTE
.BYTE
WORD
.BYTE
BYTE
.BYTE

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

000000
000000

0
0
0
0
0
0

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

;:DRIVE NUMBER
: COMMAND
;CYLINDER ADDRESS
;SECTCR ADDRESS
s TRACK ADDRESS
;OFFSET VALUE

:BUS ADDRESS (BITS 16 AND 17)
:BUS ADDRESS (BITS 0 - 15)
;WORD COUNT (2'S COMPLEMENT)
;PROGRAM DRIVE STATUS INFORMATION
;COMMAND AND STATUS REGISTER 1
;COMMAND AND STATUS REGISTER 2
;WORD COUNT REGISTER
;:BUS ADDRESS REGISTER
;DESIRED TRACK AND SECTOR REGISTER
;DESIRED CYLINDER REGISTER
sATTENTION SUMMARY/OFFSET REGISTER
;ERROR REGISTER
;STATUS REGISTER
;MESSAGE LINE A STATUS BYTE 00
;MESSAGE LINE B STATUS BYTE 00
;MESSAGE LINE A STATUS BYTE 01
;MESSAGE LINE B STATUS BYTE 01
sMESSAGE LINE A STATUS BYTE 10
sMESSAGE LINE B STATUS BYTE 10
;MESSAGE LINE A STATUS BYTE 11
;MESSAGE LINE B STATUS BYTE 11
;ECC POSITION INFORMATION
:ECC PATTERN INFORMATION

.SBTTL

TEMPORARY CONTROLLER REGISTER STORAGE

g:;

003000

000000

T.CS1:

.WORD

549
550

003002

000000

1.CS2:

003004
003006
003010

000000
000000
000000

T.WCR:
T.BA:
T.DA:

gssg
553

;ERROR REGISTER
;STATUS REGISTER

.SBTTL

000000
000000
000000
000000
000000
000000
000000

g:z

O
0

:TE:E%?Q?ENS{ORAGE FOR COMMAND AND STATUS

.WORD

3510
g;};

002664
002666

.WORD
.WORD
.WORD

o000

500
501

: TEMPORARY STORAGE FOR COMMAND AND STATUS
: REGISTER 2
: TEMPORARY STORAGE FOR WORD COUNT REGISTER

: TEMPORARY STORAGE FOR BUS ADDRESS REGISTER

: TEMPORARY STORAGE FOR DISK TRACK AND SECTOR

SEQ 0070

wg“o

10:53

PAGE 73

SEQ 0071

TEMPORARY CONTROLLER REGISTER STORAGE

T.0C:
T.ASOF:

.WORD
.WORD

T.ER:
T.D0S:
T.MR1:
T.MR2:

T.POS:
T.PAT:
T.08:

.WORD
.WORD
.WORD
.WORD
-WORD
.WORD
.WORD
.WORD

.SBTTL

DRIVER PARAMERTERS

T.MR3:

L U U W

26=JUN-B0
OO

VIVAWAW

N N N AN N N N

VIV WAIAVIWA

000000

MACY11 30A(1052)

RKBAS:
WORD
RKVEC:
.WORD
RKPR]:
.WORD
A.NORM: ERRFRE
: ERRHDL
A.ABNL
A.CONT: CONERR

E.CONT:

LWORD

OO0 O0O0O0O0O

CZIRONED RK611/06 3S Viv2
CZR6NE.P1
26-JUN-B0 10:48

177440
210
PRS

: TEMPORARY STORAGE
: TEMPORARY STORAGE
:__AND OFFSET
: TEMPORARY STORAGE
: TEMPORARY STORAGE

FOR DRIVE CYLINDER
FOR ATTENTION SUMMARY
FOR ERROR REGISTER
FOR DRIVE STATUS REGISTER

: TEMPORARY STORAGE FOR MAINTENANCE REGISTER 1

; TEMPORARY STORAGE FOR MAINTENANCE REGISTER 2
; TEMPORARY STORAGE FOR MAINTENANCE REGISTER 3
: TEMPORARY STORAGE FOR ECC POSITION
: TEMPORARY STORAGE FOR ECC PATTERN

: TEMPORARY STORAGE FOR DATA BUFFER REGISTER
;ADDRESS OF RK611 UNIBUS ADDRESS BLOCK
;ADDRESS OF R611 VECTOR
:RK611 INTERRUPT PRIORITY
;ADDRESS OF NORMAL RETURN FROM DRIVER

;ADDRESS OF ABNORMAL RETURN FROM DRIVER
;ADDRESS OF CONTROLLER ERROR RETURN
CONTROLLER ERROR STATUS

THIS LOCATION IS CLEARED WHEN EVERY COMMAND

IS INITIATED.

IF A CONTROLLER ERROR

‘Sgggfls THE FOLLOWING BIT ASSIGNMENT

BITS

;SUBSYSTEM CLEAR DID NOT CLEAR DRIVE

mmmmmm

;:CLEAR CONTROLLER DID NOT CLEAR ERROR
:NO ATTENTION IN ATTENTION SUMMARY REG

mmmmmm

BITO
BITI
BIT2
BIT3

.CCLR=
.NOAT=
LUATT=
.UDAT=
.CLAT=
.SCLR=

LALLD= BIT6

:UNSOLICATED ATTENTION (SEQUENTIAL ONLY)
:UNEXPECTED DATA TYPE ERROR

:ATTENTION DID NOT RESET WITH CLEAR

BIT4

ATTENTION

; ILLEGAL DRIVER COMMAND
;:DATA LATE WHEN UNLOADING HEADER
;CONTROLLER ERROR DURING DRIVER SERVICING
:DRIVE DETECTED PARITY ERROR
;CONTROLLER COMMAND TIME OUT (QUEUED ONLY)
:MULTIPLE DRIVE SELECT

BIT8
BITY
.DPAR= BIT10
.CMT0= BIT14
.MDS= BIT15

003054

0.WAIT:

WORD

003056
003060

W.MTIM:
W.MILI:

.WORD
.WORD

400
400

;PARAMETER BLOCK OF THE DRIVE

:WAITING FOR COMMAND COMPLETION

;:LOOP COUNTER FOR MILISECOND SCAN OF DRIVE

;16 MILISECOND TIME FOR PROGRAM
CPU

VALUE

11/05
11210
11/20

100

11/34
11740
11745
11/50
11/70

400

CIR6NED RK611/06 3S ViY2
CIR6NE .P11
26=JUN=-80 10:48

MACY11 30A(1052) 26-JUN-80
DRIVER PARAMERTERS

10:53

6
PAGE 74

SEQ 0072

3610

003062

000300 -

W.SEC:

.WORD

300

;SECOND COUNT COUNT FOR ALL COMMANDS

361%
3613
3614
gg:z

003064
003066
003070
003072

003000
030000
000000
000000

W.8SEC:
W.MIN:
HDR.AD:
HDR.CT:

.WORD
.WORD
.WORD
.WORD

3000
30000
0
O

:8 SECONDFOR DRIVE CYCLE DOWN
sMINUTE tlflt FOR START SPINDLE
*ADDRESS USED FOR READ ALL MEADERS
nuszang: 2EADERS LEFT TO READ FOR READ

3617
3618
gg;g

003074
003075
003100

000
002
000

1.ISRL: .BYTE
H.HEAD: .BYTE
W.TIME: .BYTE

0
2,4,10
O

3611

gg%;
%g%z

003101

000

gggg
3627
3628
3629
3630
3631
3632
3633
gggg

003102
003103
003104
003105
003106
003107
003110
003111

001
002
004
010
020
040
100
200

36%?

004

010

:INTERRUPT OR RELEASED COMMAND ISSUED
:HEAD DECODES
:DRIVES BEING WATCH=DOG TIMED

.SBTTL

INTERRUPT MASKS

INTMSK:

.BYTE

INTERRUPT MASK TABLE

1.DRV:

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

.SBTTL

EXCEPT st
ART SPINDLE

; INTERRUPT MASKS FOR DRIVE IN PARAMETER BLOCK

1
2
&

:INTERRUPT MASK FOR DRIVE
: INTERRUPT MASK FOR DRIVE
: INTERRUPT MASK FOR DRIVE
: INTERRUPT MASK FOR DRIVE
: INTERRUPT MASK FOR DRIVE
: INTERRUPT MASK FOR DRIVE
:INTERRUPT MASK FOR DRIVE
: INTERRUPT MASK FOR DRIVE

20
40
100
200

PARAMETER BLOCK TABLE

0
1
2
3
&
S
6
7

22;. 003112 002630

PBLKT: PARMO

3640
3641
gg:%

LSBTTL

TIME FOR WATCH=DOG TIMER

W.DRV:
.SBTTL
MDFLAG:
XXDPCH:

.WORD
O
:TIME FOR INSTRUCTION IN PARAMETER BLOCK
PROGRAM SPECIFIC RESERVED LOCATIONS
.BYTE
0
:FLAG TO INDIC. DEFLT OR PARAM MODE

3639

3644
3645
3646
3647

3648
3649
3650
3651
3652
3653
3654
3655
3656
57
S8
59
1

003114

000000

003116
003117

000
000

003120
003121
003122
003123
003124
003125
003126
003127
003130
003131
003132
003133
003134
003135

003136

003137
003140
003141

000
000
000
000
000
000
000
004
000
000
000
000
000
000

000

000
000
000

TSTING:
DERCNT:
OPCOMP:
DONE:
TYPFMT:
FORMAT:
ERRCNT:
ERRLMT:
DRVERS:
OPCONT:
PCLKF:
XOVLAD:
XDPSVD:
DULACS:

:ADDRESS OF PARAMETER BLOCK GIVEN WITH
:DRIVE CALL.

MUST BE LOADED INTO PBLKT

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE

0
0
0
O
0

:XXDP CHAIN MODE FLAG
:CURRENTLY RUNNING TESTS IF = 1
:DATA ERROR COUNT
;OPERATION COMPLETE FLAG
:DONE SWITCH

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

0
O
&
0
0
0
0

:DRIVE FORMAT IN BIT & OF BYTE
:ERROR COUNT
;ERROR LIMIT
:ERROR COUNT FOR CURRENT DRIVE
:OPERATION CONTROL SWITCHES
:1F BYTE=1, KW11=P CLOCK IS PRESENT
SFLAG = 1 IF XXDP 1S POSSIBLY OVERLAID

.BYTE

.BYTE
.BYTE

:DRIVE TYPE & FORMAT CONTROL
-

SFLAG = 1 IF XXDP IS SAVED

:FLAG=1 IF DUAL ACCESS TEST

DRNAFG: .BYTE

:=1 INDICATES DRIVE SIEZED BY OTHER PORT

DLTFLG: .BYTE

:DATA LATE ERROR FLAG

REISSU: .BYTE
WCEFLG: .BYTE

O
O

:DUAL=ACC FLAG TO RE=-ISSUE COMMAND
‘WRITE CHECK ERROR FLAG

611/06 sS viY2

26=JUN-80 10:48

00316%
00314

000
000

003145
003146

003144

003150

003152
0031564
003156
003160
003162
003164

MACY1 30&(1052)

26=JUN-80

10:53

6
MGE 75

AM SPECIFIC RESERVED LOCATIONS

000

NORTRY: .BYTE
UBMPRS: .BYTE

MEMABT: .BYTE

0
0

:"'NO=RETRY'' FLAG
:UNIBUS MAP PRESENT IFf =

000
000
000001
000002
000004
000010
000020
003150

WLPOVL: .BYTE
NOTYPE : 8"!
wHDSwW=B81T
VFHDSW=BI T
W(DASW=8]T
RCDASW=81"
OREQSW=BiT¢
EVEN

;MELP FILE OVERLAID INDICATOR
; INDICATES
AM JUST LOADED IF 0
;MRITE MEADER & DATA SWITCH
;VERIFY MEADERS SWITCH
JWRITE CHMECK DATA SWITCH
;READ CMECK DATA SWITCH
;OFFSET REQUIRED SWITCH

177546
172540
172542
172544
000100
000104
000114

LKS
WORD
Prs:
LWORD
PRSB:
.wORD
PRRE:
. WORD
LCVEC:
.wORD
PCVEC:
.wORD
MEMVEC=114

177548
172540
172542
17254
100
104

000000

AUTOFG:

.wORD

:SET BYTE = 1 FOR NO ABOM
ON MEMORY PARITY ERRORS
:

JSPECIAL FLAG

MWl Y=L (LOCK STATUS REGISTER
;W1 1=P CONTROL AND STATUS REGISTER
;W1 1=P COUNT SET BUFFER REGISTER
LKW1 1P COUNTER REGISTER
;Wi VECTOR STORAGE
;w1 1=P VECTOR STORAGE
JMEMORY PARITY TRAP VECTOR

SEQ 0073

CIR6NEOD RK611/06 S viY2

CZRONE .P1

MACY11 30A(1052) 26=JUN-80 10:53 PAgE 76
J

26-JUN-80 10:48

PROGRAM SPECIFIC RESERVED LOCATIONS

3687
gggfl

i‘?"
003170

000000
000000

TCONLO: .WORD
TCONM]I: .WORD

3690
3691
3692

003174
003176
003200

000000
000000
000000

SUMMIT: .WORD
SAVPAR: .WORD
SAVWRD: .WORD

3693

3695

003172

000000

003202 000000
003

000010

004

000400

005246

000000

003224

3697
3698
99

0052264
005
005240

701
3702
3703
704

005254
005256
005260
005262

000000
000000
000000
000000

706
3707

0054
005472

000000
000000

700

3705

3708
3709
3710
3711
3712
3713
714
715

000000
000000
000000

000000

000000
000000
000000

000000

CyL:

WORD

BSFACT: .BLKW

PRMPLO:
PRMPHMO:
CRMPLO:
CRMPHO:

.WORD
.WORD
.WORD
.WORD

O
O
O
O

;PREV. U.B. MAP REG 0

LOWOCT: .WORD
MIGOCT: .WORD

O
O

:LOW 16 BITS OF CONVERTED BINARY NUMBER
:HIGH BITS OF CONVERTED BINARY NO.

NCYLY:

.WORD
.WORD
.WORD
.WORD
.WORD
MORD
MORD

.BLKW

NCYL2:
OFINUS:
TRACK:
INTCHR:

.WORD
.WORD
.WORD
.WORD

.WORD

000000
000000
000000
000000

721
722
3723
724
725
726

0055
0055
005532
oossg:
0055
oosug

000000
000000
000000
000000
000000
000000

ONLINE:
NEWON:
MDALI:
SCRACH:
PATRN:
XXDPAD:

728
7;3
7

005
0055
005552

000000
000000
000005

PLOFST: .WORD
NGOFST: .WORD
SAVPRS: .BLKW

7
7
735
7}?
737

0055
00ssN

731
7

738

005542

005564
0055%

000002

005572
005574
005576

000000
000000
000
000
000000
157776
000077

005604

000002

005600
005602

065636
000000

:RECORD OF BAD SECTORS FROM FACTORY
:CURRENT COMMAND STORAGE

005514
005516
005520
005522

727

:RECORD OF BAD SECTORS FROM SOF TWARE

0,0,0,0,0,0

RECODE:
ERRCOM:
DRIVE:
STALLS:
CYLNDR:
FS:
LS:

000000

“D256

:LIST OF PSEUDO-RAND CYL ADDRESSES

COMSTR: .WwORD

005474
005476
005500
005502
005504
005506
551

005524

“D256

StARTlNG CYL FOR MULTI=DRV TEST

0,0,0,0,0,0

3716
3717
3718
3719

3720

“D8

.LO BITS OF FORWARD TIME SUM

PRVCMD: .WORD

BUFFO:

551

:H]l BITS OF FORWARD TIME SUM
SAVE WORD FOR PAR CONSTANT
SCRMCH WORD

005 % 000102

000000
000000
00V000
000000
000000
000000
888888

O
O
O

.WORD

BSSOFT: .BLKW
000000
000000
000000

;L0 BITS OF CALIBRATION TIME CONSTANT
:Hl BITS OF CALIB HHE CONST

SUMLOT1:

CYLLST: .BLkW

000400

O
O

SELECT: .WORD

XDPSAV:

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

.BLKW

WDSXFR: .WORD
FINCYL: .WORD

FINTRK: .BYTE
FINSEC: .BYTE

LASTWC: .WORD
MAMILM: .WORD
MORD

PMA

.WORD
LMWORD

BLKW

SEQ 0074

:PREVIOUS COMMAND STORAGE

;CURRENT U.B. MAP REG 0

“D66

;OUTPUT BUFFER
1

O
O
O
O
O
O
O

:RECOVERY CODE WORD
:ERROR COMMAND
:NO. OF DRIVE IN USE
:CURRENT NO. OF UNIT STALLS TO APPLY
:CURRENT CYLINDER NUMBER
sFIRST SECTOR LIMIT
:LAST SECTOR LIMIT
sNEXT CYL SCRATCH WORD

O
O
O
O

sNEXT CYL SCRATCH WORD
:OFFSET IN USE
;TRACK IN USE
:TTY INTERRUPT INPUT WORD

O
O
O
O
O
O

:ANY BIT SET IN LOW BYTE INDICATES A DRIVE WAS ON-LINE
NEU LOOK AT ONLINE DRIVES
:TAG USED FOR INTERNAL USE
:ALL=PURPOSE SCRATCH WORD
:DATA PATTERN LIST WORD
:STARTING ADDRESS OF XXDP LOADER

O
O
S

O
O

O
157776
77

RWBUF
O

:ANY BIT SET IN LOW BYTE GIVES AUTO-SELECTED DRIVE NO.

:XXDP PHYSICAL SAVE ADDRESS

:(+) OFFSET VALUE
:(=) OFFSET VALUE
:SAVE INITIAL PARAMS FOR XFER

:NO. OF WORDS ACTUALLY XFERRED
sFINAL CYLINDER ADRS

:FINAL TRACK ADRS
sFINAL SECTOR ADRS
sACTUAL FINAL WC
sMA UPPER LIMIT

:LO BITS OF PHYS MEM ADRS
:Hl BITS OF PHYS MEM ADRS

:PARTIAL TRANSFER MEMORY START ADRS

C%R%:EOP?§611/06 3S ViY2

26=JUN=-80 10:48

3743
3744
3745
3746
3747

3748
3749
3750
3751
3752
3753
3754
755

3756
3757
3758
3759
3760
3761
3762
3763

3764
3765
3766
3767

3768
3769
770

005610

005610
005611
00561§
00561
005614
005615
005616
005617
005620

005620
005621
005622
005623
005624
005625
005626
005627

0056

773

005634

10:53

PAGE 77

:LIST OF DESIRED DRIVES TO TEST (IF BYTE=0, DON'T TEST DRIVE)

DRVLST:

001
001
001
001
001
001
001
001

000
000
000
000
000
000
000
000

26-JUN-80

PROGRAM SPECIFIC RESERVED LOCATIONS

771

3772

MACY11 30A(1052)

BYTE
1
:DRIVE 0
BYTE
1
:DRIVE 1
.BVTE
1
:DRIVE §
BYTE
1
:DRIVE
BYTE
1
:DRIVE &
BYTE
1
:DRIVE §
BYTE
1
:oaxve 6
BYTE
1
DRIVE 7
;1ST OF DRIVE TYPES, 0=RK0O6, NON 0=RK07

DTYLST:

BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE
BYTE

0
0
0
0
0
O
0
O©

:DRV 0
:DRV 1
:DRV 2
:DRV 3
:DRV &
:DRV §
:DRV 6
:DRV 7

:LIST OF ITERATION COUNTS FOR DESIRED TESTS (IF=0, esr NOT RUN)
:MAXIMUM ALLOWABLE NUMBER OF ITERATIONS = 77776 (OCT)

000002

TSTLST:

MORD

.WORD

005632

000002

776

005636

000002

.WORD

sTEST &

g;;g

005642

000100

WORD

100

:TEST 6

3775

005640

000002

3778
3779

3780
781

005644

784
785
786
E;gz

005650
005652
005654
005656

70%
783

005644
005646

789

000002
000002

796 005660

005660
005662
005664
005666

DFLTST:

000002
000002
000002
000100

;TEST 2

:TEST 3

:TEST S

MORD
WORD

.MORD
MORD
WORD
.MORD

2
2

2
2
2
100

NMTSTS=<DFLTST=TSTLST>/2

;TEST 1
;TEST 2

;TEST 3
JTEST &
;TEST S
;TEST 6

:TOTAL NO. OF AUTOMATIC TESTS

;OPERATING PARAMETER LIST

795
7
797
798

MORD

.LIST or DEFAULT ITERATION COUNTS FOR ALL TESTS

000006

;3g

WORD

;TEST 1

000000
000000
000000
000002

PRMLST:
FC:
LC
FT
LT

LMORD
LMORD
.MORD
LMORD

O
O
O
2

:FIRST CYLINDER
:LAST CYLINDER
:FIRST TRACK
:LAST TRACK

SEQ 0075

CZRONED
RK611/06
3S ViY2
MACY11 30A(1052)
26=JUN-80 10:53 LPAgE 78
CZRONE .P1
26=-JUN-80 10:48
PROGRAM SPECIFIC RESERVED LOCATIONS
799

005670

000000

S0:

WORD

;FIRST SECTOR IF _20(DEC) SECTOR FMT

3801
3802
3803
3804
3805

005674
005676
005700
005702
005704

000000
000025
000000
000000
000000

$2:
$3:
PT:
CS:
ST:

WORD
WORD
.WORD
WORD
WORD

O
25
0
0
O

;FIRST SECTOR IF 22(DEC) SECTOR FMT
sLAST SECTOR IF 22(DEC) SECTOR FMT
;DATA PATTERN SELECT WORD
;CONTROL SWITCH WORD
;NUMBER OF UNIT STALLS

3807
3808
3809
3810
3811
381§
3813

005706
005706
005710
005712
005714

3800 005672 000023

3814
3815
3816
3817
3818
3819
gg%?

005716
005720
005722
005726
005726
005730
005732

000000
000000
000000
000002
000000
000023

3825
gg%?

3828
3829
3830
3831
3832
3833
3834
3835
3836
3837

3838
3839
3840
3841
3‘6§
gg:‘
gg:s
6
gg:‘

005734
57
57

005740
005742
005744
005746
005750
005752
005754
005756
005760
005762

000000
000000
000000
000000
000000
000002
000000
000002

000000
000023
000000
000023
764 000000
005766 000025
005770 000000
005772 000025
005774 000000
ST76 177777
000000
006002 00006&2
000000
006006 177777

006010

006010
006012

sLAST SECTOR IF 20(DEC) SECTOR FMT

WORD
.WORD
WORD
.WORD
.WORD
.WORD
WORD

0
23
0
25
0
0
O

:SO DEFAULT
:S1 DEFAULT
:S2 DEFAULT
:S3 DEFAULT
:PT DEFAULT
:CS DEFAULT
;ST DEFAULT

;OPERATING PARAMETER VALUE LOW AND HIGH LIMITS

3849
3850

51
5§
53
3854

.WORD 23

;DEFAULT OPERATING PARAMETER VALUES
PRDFLT:
WORD
0
;FC DEFAULT
«WORD
0
sLC DEFAULT
WORD
0
sFT DEFAULT
.WORD
2
;LT DEFAULT

000000
000025
000000
000000
000000

3822
3823

3824

S1:

041506
041514

PRML IM:

.WORD
WORD

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

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

0
0
0
O
0
2
0
2

0
23
0
23
O
25
0
25
O
177777
0
000062
0
177777

;ASCI] PARAMETER MNEMONICS
PRMNEM:

LASCI11
JASCID

/FC/
/LC/

JFC LIMITS

;LC LIMITS
JFT LIMITS

;LT LIMITS

;SO LIMITS

:S1 LIMITS

:S2 LIMITS

:S3 LIMITS
;PT LIMITS
:CS LIMITS

;ST LIMITS

SEQ 0076

CZRONED RK611/06 sS ViY2
CZRONE .P11
26=JUN-80 10:48
55
56
3857
3858
3859
3860
3861
3862
3863
3864
3865
3866
3867
3868

006014
006016
0060%0
8828 2
&
006026
0060
006032
006034

3870
3871
3872
3873
3874
3875
3876
3877
3878

006036
006040
006042
006044
006046
006050
006052
006054
006056

177777
177777
177777
052525
052525
052525
177777
177777
052525

006064

052525

3869 006036

006060
006062

SgEEgeREEEES
2

3881

882898

006072

3891
3892
3893
3894

96
97
98

3838

99
900
901
90
90
904
905

006076
006076
006100
006102
0061064
006108
006110
006112
006114
88211
1
1
126
1
8821
132

006134

052106
052114
0;01%%
0305
0311%3
031523
052120
051503
052123

LASCII
CASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII
LASCII

/F1/
/LT/
/50/
/S1/
/S2/
/83/
/PT/
/CS/
/S1/

DATA PATTERN 00
HI=-LO FREQ. MIX

PATOO

052525
177777

177777
177777
177777
052525
052525
052525
177777
177777
052525
052525
177777

052525

17725%
17725

177252
177252

172765
172765

DATA PATTERN 01

000000
000000
000000
177777
177777
177777
000000

PATOI

FREQ. PHASE MIX

177777
177777
000000
177777
090000
77777

000000
000000
000000
177777
177777
177777
000000
000000
177777
177777
000000
177777
000000
177777

177777

000000

MACY1 30A(1052) 26=JUN-80 10:53 PAGE 79
OGRAM SPECIFIC RESERVED LOCATIONS

000000

SEQ 0077

CZRGNEO RK611/06 $S Vi Y2

CIRONE.P11

0061;2
0061

006140
006142
006144
006146
006150
006152
006156
006156
006160
006162
006164
006166
006170
006172
006174

052525

PATO02:

052525
052525
1%5%5%
12525
125252
OS%SZS
052525
125252
125252
052525
125252
052525
125252
052525
125252

LO FREQ. PHASE MIX

—O—LO—O—=
=00
==

3915
3916
3917
3918
3919
3920
3921
3922
3923
3926
3925
3926
3927
3928
3929
3930
3931
3932
3933
3934
3935
3936
3837

:DATA PATTERN 02
IV NIV L NIV ST NIV IV I NI ST NIV IV (V]
AL LS AV L NIV [ NIV IV [ NI NIV IV IV [ ST .81 §)
LSIV L NIV L NIV ST NIV IV [ NI ST NIV [V [V ]
AV L SAV [ NIV [ NIV IV [ NI NIV [V IV [ NI N1 .N)
LESAV L NIV [ NIV [ ST NIV IV [ N1 NI NIV IV 1V ]

911
91§
91
914

26=JUN-80 10:48

N 6
26=JUN-80 10:53 PAGE 80
PROGRAM SPECIFIC RESERVED LOCATIONS

MACY11 30A(1052)

:DATA PA TTERN 03
'
MAX. PRECOMP. PHASE MIX

006176
006176
00620%

133333
?ggggg

006 Os
006210
006212
006214
006216
006220
006222
006224
006226
0062
006232
006234

133333
066666
066666
155555
155555
133333
133333
133333
133333
133333
133333
133333

PATO3:

133333

96‘
963
966
965
966

— e
e e e i e e O
NN N NN NN NN O

3923 882§84 155555

3940
39641
3942
39643
3946
3945
3946
3947
3948
3949
3950
3951
395
395
39564
3955
3956
957
958
3959
3960
961

JDATA PA TTERN 04

006236
006236

006240
006242
006244
006, 68
006250
006252
006254
006256

121105

150442
064221
13;110

055044

026422
013211
105504
042642

PATO4:

ROTATING BOUNDARY PULSE PRECOMP.

SEQ 0078

3999
4000
4001

4002
4003
4004
4005
4006
4007
4008
4009
4010
4011
4012
4013
4014
4015
4016
4017
4018
4019
4020
4021
4022

221

[ ]

OO
= |
T

MmN

B 7
-30 10:53 PAGE 81
ESERVED LOCATIONS
1

NSOV
=S PNOVINO
VN
WOV
O =

O—=000—0O

Ra2

105
442

WOV

021321
110550
044264
0221

ROTATING CELL PULSE PRECOMP.
o
N
o
&~

1132

—
W
NN

WOV
S =NV
IR 8~ =N wn
NS =N WVINON VIR 8 = NN O w

006334

:
PATOS:

=2 N

006276
006276
006300
006302
006
006
006310
006312
006314
006316
006320
006322
006324
006326
006330
006332

VN ON VN 8~ = RO VWO W

:DATA PATTERN 05

Ot OOt
OO =2
b bo
VN
VN 8~ = N WNIWNO VN ~
VIR 8N =NV
WVIN) S =N w

995
3996
3997
3998

006
006262
006
006266
006270
006272
006274

967
968
969
3970
3971
3972
3973
3974
3975
3976
3977
3978
3979
3980
3981
3982
3983
3984
3985
3986
3987
3988
3989
3990
3991
3992
3993
3994

MACY11 30A(1052)
PROGRAM SP

PO -2
NS =20

CZR6NEO RK611/06 SS ViY2
CZRONE.P11
26=JUN-80 10:48

:DATA PATTERN 06
006336
006336
006340
882342
344
006346
006350
006352
006354
006356
006360
006362
006364
006366
006370
006372
006374

PATO6:

ALL ZEROS

000000

:DATA PATTERN 07
006376

PATO7:

ALL ONES

SEQ 0079

RG6NED RK611/06 3S ViY2
PN
26-JUN-80 10:48

177777

NNV NIAD)

006376
00
006402

c 7
26=JUN-80 10:53 PAGE 82
PROGRAM SPECIFIC RESERVED LOCATIONS

MACY11 30A(1052)

177777

;DATA PATTERN 08

PATO8:

006436
006436
006440
006442
006444
006446
006450
006452
0064
006456
006460
0064
006464
0064
006470
006472
006474

SHIFTED 1

000001
000002
000004
000010
000020
000040
000100
000200
000400

100000

SRRNSFrRo&RR8A

;DATA PA TTERN 09

F33zesegaesyg8

IN FIELD OF ZEROS

177776

PATO09:

SHIFTED O IN FIELD OF ONES

SEQ 0080

CIR6NED RK611/06 SS ViY2
CZRONE .P1
26=JUN-80 10:48

MACY11 30A(1052)

26=JUN-80

10:53

PAGE 83

PROGRAM SPECIFIC RESERVED LOCATIONS

- o

®« -

< =o o = w v

~
&

SEQ 0081

CIR6NEO RK611/06 SS ViY2
CZR6NE .P1N
26=-JUN-80 10:48

E 7
MACY11 30A(1052) 26=JUN-80 10:53 PAGE 84
PROGRAM SPECIFIC RESERVED LOCATIONS

4135
4
4137
41
4139
4140

000644
006646
006650
006652
006654
006656

000017
000037
000077
000177
000377
000777

4142
L4

006662

003777
007777

'ATA]

L1464
4145
4146
4147

4148
6149
4150
6151
6152

4153
4154
4155
6156
4157
4158
4159
4160
4161
6162
4163
4164
6165
6166
4167
4168
6169
4170
“N
6172
6173

6174
4175

006670
006672
006674

006676
006676
006700
006702
006704
006706
006710
006712
006714
006716
006720
006722
0067264
006726
006730
006732
006734

001777

017777
037777
077777
177777

072307
135143
156461
167230
073514
035646
016723
107351
1435
061672
030735
114356
046167
123073
151453
164616

006736
006736
006740
006742
006744
006746
006750
006752
006754

000000
000000
000000
000000
000000
000000
000000
000000

4185
41

0067
0067

000000
000000

4188

0067

000000

4187

006756
006764

017777
037777
077777
177777

:DATA PATTERN 13
3
COMPOSITE ROTATING

4176
4177
4178
4179
4180
4181
41
4183

4184

001777

PAT13:

072307
135143
156461
167230
073514
035646
016723
107351
143564
061672
030735
114356
046167
123073
151453
164616

:DATA PATTERN 14
2
PSEUDO-RANDOM (COMPUTED BY PROGRAM)
PAT14:
.WORD

000000

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

000000

WORD

WORD
WORD

WORD

SEQ 0082

CZRONED RK611/06 3S ViY2
CZRONE .P1
26=JUN-80 10:48
4191
6192
6193

006774

4195

006776

4203
4204
4205
4206
4207
4208
4209

007014
007016
007020
007022
007024
007026
007030

4196

4196
4197
4198
4199
4200
4201
4202

210
4211

4212
4213

000000

.WORD

;USER-DEF INED DATA PATTERN 15

006776
007
007002
007004
007
007010
007012

072307
135143
156461
167230
073514
035646
016723

007032
007034

151453
164616

4214

MACY11 30A(1052) 26=JUN-80 10:53 PAGE 85
PROGRAM SPECIFIC RESERVED LOCATIONS

PAT1S:

107351
143564
061672
030735
114356
046167
123073

072307
135143
156461
167230
073514
035646
016723

;WORD
:WORD
;WORD
;WORD
sWORD
;WORD
;WORD

151453
164616

;WORD 16
;WORD 17

107351
143564
061672
030735
114356
046167
123073

00
01
02
03
04
05
06

;WORD 07
;WORD 10
;WORD 11
;WORD 12
;WORD 13
;WORD 14
;WORD 15

4215
4216
6217
4218
6219
4220
4221
4222

057467
000000
062031
000000
017500
000000
112160
000000

MINLO1=*D24375
MINHI1=0
MAXLO1="D25625
MAXHI1=0
MAXL02=*D8000
MAXH]12=0
MAXLO3=*D38000
MAXH]13=0

;LO BITS OF
;H1 BITS OF
;LO BITS OF
sH1 BITS OF
;LO BITS OF
;M1 BITS OF
;L0 BITS OF
;M1 BITS OF

4229
4230
4231
4232
4233

000002
000004
000010
000020
000040

BSERR=BIT1
HVRCER=BIT2
OPIERR=BIT3
DCKERR=BI T4
ECCNC=BITS

:BSE ERROR
:HVRC_ERROR
;0PI ERROR
;DATA CHECK ERROR
;ECC_NON-CORRECTABLE

4223
4224
4225
4226
4227
4228

022370
000001
002734
016514
000002
000365

MAXLO4="D9464
MAXHI4&=1
RNDSHT=*D1500
RNDLNG=*D7500
LSTTRK=2
ALNCYL=365

WCERR=BIT6

000100

4234

4235

000200

4236
4237
4238
4239
4240
2%21

ABORT=BIT7

000400
001000
002000
004000
010000
100000

LEV2ER=BITS
BADSEC=BITY
TWOTOS=BIT10
RCLREQ=BIT1
DRNAVL=BIT12
ANYDER=BIT15

;L0 BITS OF SPEC'D MAX 410 CYL EEK TIME
;H]1 BITS OF SPEC'D MAX 410 CYLSEEK TIME
:SHORT RANDOM SEEKS =_1500(10)
:LONG RANDOM SEEKS
= 7500(10)
:LAST TRACK = 2
;ALIGNMENT CYLINDER =245(10)

;WRITE CHECK ERROR
s ABORT

;LEVEL TWO ERROR
:BAD SECTOR FLAG
:TWO TIME OUTS
:RECALIBRATE REQUIRED
:DRIVE NOT RELSD BY OTHER PORT
;ANY ERROR DETECTED FLAG

4243

007036

005015

055103

033122

DZR6N:

.ASCIZ

<15><12>/CZR6NEQ/

4245
4246

007050
007056

051040
030057

033113
020066

030461
051523

SUBVER: .ASCIZ

& Rk611/06 SS VFYR

4264

007044

042516

000060

SPEC'D MIN ROT. LATENCY
SPEC'D MIN ROT. LATENCY
SPEC'D MAX ROT. LATENCY
SPEC'D MAX ROT. LATENCY
SPEC'D MAX 1 CYL SEEK TIME
SPEC'D MAX 1 CYL SEEK TIME
SPEC'D MAX AVG SEEK TIME
SPEC'D MAX AVG SEEK TIME

CIR6NED RK611/06 35S ViY2
CZR6NE .P11
26=JUN-80 10:48
4247

007

88;}§%

053040
061
062
015
0521%
0201
062583

4255
4256
4257
4258
4259

007131
007136
007144
007152
007160

4261
4
4263
4264
4265
4266
4267
4268
4269
4270
4271
4272
4273

007174
007202
007210
007216
007224
007232
007240
007246
007254
007262
007270
007276
007304

4248
4249

007071
007075

4252

007114

4250
4251
:ZS

4260

007101
007106

007166

020122

000
000
000
040514
054510
020115
020075

117
054501
042504
054450
024516

042526
046040
020122
047440
025040

046122
040517
020077
020122
000040

054040
040520
047522
053111
051516
051440
044103
040520
047101
020124
047111
020117
042505

042130
045503
020115
026105
040524
051103
006440
045503
020104
047503
042525
051120
027104

020120
04304
051104
044440
046114
052101
177412
020054
044510
052116
052040
041517
000

042522

4274
4275
4276
4277
4278
4279
2%3?

007311
007316
007324
007332
007337
007344
00;;2%

046501
052125
S
122
033460

4282
4283
4284
4285
'
4287
4288
4289
4290
4291
4292
4293
4296
4295

007362
007370
007376
007404
007405
007412
007420
007425
007432
007434
007442
007445
007452
0074
007461
0074
0074
007500

045522
020067
042101
000
122
033460
051117
123
000040
020040
020075
015
051450
000
106
020040
047516
051511

007514

006531

4297
4298
4
4
4301
4302

007506

007520

040440

047516

051127

0545

7
MACY11 30A(1052) 26-=JUN-B0 10:53 PAGE 86
PROGRAM SPECIFIC RESERVED LOCATIONS
6

00501
005015

005012
050040
062515

047515

050012
044440
046440
005012
0230113
041040
051104

042526

PARTI:
PART2:

L.ASCIZ
LASCIZ

/71715
/72/<15><12>

LSTMEM: .ASCIZ

<15><12><12>/LAST PHYS MEM ADR = /

OVLODR:

.ASCIZ

/OVERLAY LOADER ? (Y OR N) « /

XXDPi'E: .ASCII /REMOVE XXDP PACK FROM DRIVE, INSTALL SCRATCH /<15><12><377>

.ASCIZ /PACK, AND HIT CONTINUE TC PROCEED./

051101
050116
042117
000
026466
051525
036440

PRMINP:

.ASCIZ

<15><12>/PARAM INPUT MODE/<15><12><12>

RKBADR:

.ASCIZ

/Rk06-07 BUS ADR = /

033060
042526
020122

030055
020103
020075

RKVADR:

.ASCIZ

/Rk06-07 VEC ADR = /

030113
050040
036440
051127

026466
044522
000
036440

RKPRTY:

.ASCIZ

/Rk06-07 PRIOR =/

SWRMSG:

.ASCIZ

/SWR = /

042516
000
042012
020051

020127

NEWMSG:

.ASCIZ

053122
020075

DRVSEQ: .ASCIZ

<15><12>/DRV(S) = /

044522
000040
852516
524
020124
0012
026524

042526

BADDRV: .ASCIZ

/DRIVE

054105
000012
042122

NXDRIV: .ASCIZ

/NON-EXIST/<15><12>

NTREDY: .ASCIZ

/NOT RDY/<15><12>

047514

WRTLOK: .ASCIZ

/WRT=LOCK/<15><12>

NEW = /

SEQ 0084

CIR6NED RK611/06 S ViY2
CZR6NE .P11
26=JUN=-80 10:48

H 7
MACY11 30A(1052)
26-JUN-80 10:53 PAGE 87
PROGRAM SPECIFIC RESERVED LOCATIONS

4303
4304
4305
4306
4307
4308
4
4310
4311
4312
4313
4314
4315
4316
4317
4318
4319

OO?Sgg
0075
007540
007546
007554
007562
007564
007572
007600
007
00761
007620
007626
0076
00764
00764
007650

045503
114
020104
040440
050040
00001;
005015
04751?
020123
051505
120
021040
020042
051040
000
110
042522

005015
040517
044527
044514
041501

000
042504
044124
047107
006513

025012
062040
047524
006524
042522
047503
044127
054504

4326
4327
4328

007722
007
0077

0S5i51&
037122
000

4320
4321
4322
4323
4324
4325

007656
007
007672
007700
007706
007714

005015
042524
046114
020123
021040
051103

ALNPAK:

.ASCIZ

/LOADED WITH ALIGN PACK/<15><12>

020052
053122
052040
012
051523
052116
047105
005015

NODRTS:

.ASCII

_
<15><12><12>/++ NO DRVS TO TEST/<15><12>

CNTRDY:

.ASCIZ

/PRESS ''CONT''

046101
006521

020124
000012

HLTRQD:

.ASCIZ

/MALT REQ/<15><12>

ALDRVS:

.ASCIZ

e
<15><12><12>/T0 TEST ALL DRVS TYPF "'A"" <CR>, ELSE <CR>/<15><12>/+ /

020105
005015

020117
040440
053122
0425
036040
042440
041474
020052

046012
051511
052123

036440
020124
006523

TSTMDS:

.ASCII

<195><12>/L = LIST TESTS/<15><12>

036440
043516
052123

041440
020105
006523

LASCII

/C = CHANGE TESTS/<15>(12>

036440
052125
046501
047125
0515264

044440
050040
026123
052040
005015

LASCIZ

/1 = INPUT PARAMS, RUN TESTS/<15><12>

.ASCIZ

<15><12>/ENTER L,C, OR 1/<15><12>/+ /

052012
052123
042040
054524
021101
026076

4329
330
4331
4332
4333
4334
4335
433
4337
4338
4339
4340
4341

00773
007744
007752
0077
007761
007766
007774
010002
010003
010010
010016
010026
010032

015
046040
042524
012
103
040510
042524
012
111
050116
051101
051040
051505

4343
4344
4345
4346

010041
010046
010056
010062

015
051105
020054
005015

042412
046040
051117
020052

052116
041454
044440
000

810076
10105
01011
010116
0101;6
8101
01014

040506
042524
8565 4
036040
8:2660
1476
020052

046125
05%1 3
86 S g
051103
051514
037122
000

020124
020123
0462040
026076
020105
005015

810150
10156
010164

02012‘
0 ;111
047511

4342

4347

4348
4349
4350
4351
435
435
4354

4355

43
435
4358

010040

010067

01014

000

126

020117

55815
i

1105
051516

ENTLCI:

WHEN RDY/<15><12>

042504

DFTEST: .ASCIZ

/70 DEFAULT TESTS TYPE D <CR>, ELSE <CR>/<15><12>/+ /

051505

TLSTHD: .ASCIZ

<15><12>/TEST

020040
052101
005015

ITERATIONS/<15><12>

SEQ 0085

CIR6NED RK611/06 S ViY2

.P"
CZRONE

4359
4360
4361
436
4363
4364
4365
4366
4367
4368
4369
4370
4371
4372
4373
4374
4375
4376
4377
4378
4379
4330
4381
4382
4383
4384
4385
‘3‘?
438
4388
4389
4390
4391
6392
4393
4394

26=JUN-80 10:48

4403

01017;
01017
010200
010%06
010214
010255
0102
010236
010244
010247
010254
010262
010270
010276
010301
010
010314
010321
010326
010334
010342
010347
010354
010362
010370
010376
010404
810‘05
106412
0106420
010426
010427
010434
010440
010446
010454
010457
010464
01047
01067g
01050
010510
010516
010524
010532

000
015
052040
040520
044514
020117
047105
046501
006524
123
05§1OS
053111
020114
006515
122
047125
051524
015
051105
051454
051040
015
040525
042503
052101
052123
000
115
051117
047125
000
052
037060
047040
046114
005015
052
037062
052
037124
052
020103
020101
040574
000012

4405
4606
4407
4408
4409
4610

010542
010550
010556
010594
0105
01

052501
826116
6501
8201 1
1474
046105

4395
4396
4397
4398
4399
4400
4401
4602

4606

(YRR

L6146

MACY11 30A(1052)

010534

810606

10:53

17
PAGE 88

PROGRAM SPECIFIC RESERVED LOCATIONS

052012
050131
06053§
0521
020075
050040
046040
012
036440
064440
042111
040520
012
036440
052040
005015
042412
052040
020054
005015
025012
026514
051523
020101
025040

036440
020105
020115
005015
050117
051101
051511

54101
020104
020124
020052
030523
052117
053517
000

EXPLAN:

.ASCII

<15><12>/T = TYPE PARAM LIST/<15><12>

LASCII

70 = OPEN PARAM LIST/<15>¢<12>

051440
042116
040525
040522

LASCII

/S = SET INDIVIDUAL PARAM/<15><12>

051040
051505
000
052116
047454
051117
000
042040
041501
042040
042524
005015

LASCIZ

/R = RUN TESTS/<15><12>

.ASCIZ

<15><12>/ENTER T1,0,S, OR R/<15><12>

PARMDE:

_
DUACES:

.ASCIZ

<15><12>/+ DUAL-ACCESS DATA TEST #/<i%><12>

053440
047503
020075

MAWRDC:

.ASCIZ

,
/MAX WORD COUNT = /

051440

SECNL1:

.ASCII

/=«

040440
042105

NOTALD:

.ASCIZ

/ NOT ALLOWED/<15><12>

02005§
03152
020052
052114
02005;
051117
047524
043522

051440
000
043040
000
053440
046440
020117
006505

SECNL2: .ASCIZ

/e«

S2>S3/

TRKNLW:

.ASCIZ

/e*+

FTOLT/

WC2BIG: .ASCIZ

/++

WC OR MA TOO LARGE/<15><12>

047524

042040

043105

DFQUES: .ASCIZ

/70 DEFAULT ALL PARAMS, TYPE D <CR>, ELSE <CR>/<15><12>/+ /

051103

025012

PFIFTN: .ASCIZ

<15><12>/USER=DEF PATT 15 :/<15><12>

10614

000040

010624

042055

010616

26-JUN-80

005015

052114
05006g
0261
o; 105
0371 ;
8325

051525

043105

040440
051101
052040
020104
050056
036040

0S1105

050040

S0>S1/

CZR6NED RK611/06 3S ViY2
1
26=JUN-800 10:48
CZR6NE.P1
4615
416
4617
4618
4619
4620
4621
4622
4423
4424
4425
4626
4427
4428

010632
010640
010645
010652
010660
010666
010667
010674
010702
010710
010716
010726
010732
010740

052101
035040
015

4434
4435

011000
011006

4429
4430
4631
4632
4633
4636
4637
4638
4439
4440
4661

010742
010750
010756
010764
010772
011010
011016
011024
011032
011040
011046

020124
005015
046412
05;101
035040

032461
000
042117
020124
005015

1
020104
030440
050131
041474
046105
051103
000040

020117
040520
026065
020105
0 712;
042523
006476

005015
02012;
043117
042523
033455
020051
000040

006472

.ASCIZ

<15><12>/MOD PATT 15 :/7<15><12>

047515
052124
052040
020115
020054
036040
025012

MDFY1S:

.ASCIZ

/TO MOD PATT 15, TYPE M <CR>, ELSE <CR>/<15><12>/+ /

047105
047516
050040
020123
033467

042524
020056
051501
030450
033467

ENTPAS: .ASCIZ

<15><12>/ENTER NO. OF PASSES (1=77777)

005015
051104

025052
050117

020040
044520

DROPDR:

.ASCIZ

<15><12>/++

01;

5012
7111
020126
000012
020126
051101

042524
020107

TSTDRN:

.ASCII

<15><12><12>/TESTING DRV /

DRVNO:
DRIV:
CART:

.ASCIZ
.ASCIZ
.ASCIZ

7/ /7<15><12>
/DRv /
/CART, /

027122
020040
043012
054522
043117
020105

047040
000
041501
000040
053524

SERNM:

.ASCI1Z

/SER. NO.

FACTBS:

.ASCIZ

<15><12>/FACTORY /

SOFTBS:

.ASCII

<12>/SOF TWARE /

032461

043516
026440
051105
005015

011851
011056
011064
011070
011074
011101
011106
011110
011116
011123
011130
011136
011144
011150
011156
011164
011170
011176

L6646
4465
YA
446
4668

011204
011212
011220
0112;2
0112

051509
026517
051125
051501
012

011242

020040

011177

4669

011235

&470

SEQ 0087

SELP1S-

L4
4643
G646
4445
L4466
L6467
4448
4649
46450
4651
4452
4453
46454
4455
4456
4457
4458
44659
4460
L6461
‘66;

4463

J 7
MACY11 30A(1052) 26=JUN-80 10:53 PAGE 89
PROGRAM SPECIFIC RESERVED LOCATIONS

05212
051104
006440
0511064
103
000040
042523

027117
015
047524
051412
051101
0‘050%
052103
006472
020040
000

042040
031040
047522
000

025012

DROPPING DRV = 20 ERRORS/<15><12>

053122
020060
051522

000
027124

020104
051117
000012
047516

042523
020123

BDSECT: .ASCIZ

/BAD SECTORS :/<15><12>

042516

NOFALS:
-

015

005012

043117

OFSHED: .ASCI]

124

040522

045503

LASCIT

052105
0405
020105
035040

054503

:/<15><12>/« /

052055
046111
042515
005015

047114

.ASCIZ

NONE/

JMESSAGES USED IN OFFSET-TO-FAILURE TEST

<15><12><12>/0FFSET=TO=FAILURE MEAS :/<15><12><12>

/TRACK

CYLN

SECT

+OFST

=OFST/<15><12>

CZIRONED RK611/06 sS ViY2 0:48
CZR6NE .P11
26=JUN-80 10:4

K 7
MACY11 30A(1052) 26-JUN-80 10:53 PAGE 90
PROGRAM SPECIFIC RESERVED LOCATIONS

4671
4672

011250
011256

020040
020040

82;52;
4

052103
051503

475
476
&477
4,78

011276
011
011312
011320

00441
044525
052450
000012

0%004
024516
047111

024040
020040
006451

4481
4482

011322
011323

000
000

tire QN33 059158 Opsors e
it

4483
4684
4685
4486

0113%4
011332
011340
011346

005015
051040
033460
020104

02501§
030113
044040
046101

025052
026466
040505
043511

UNLOD:
VERIFY:

IDENT:

ASCIZ

<011><011>/

.BYTE
.BYTE

0
0

LASCIZ

(UIN)

(UIN)/<15><12>

:DRIVE UNLOADED INDICATOR
:VERIFY MODE FLAG

<15><12><12>/v¢+ RK06=07 HEAD ALIGN AID **+/<15><12>

4489 011370 047506 020125 042510 FORHLP: .ASCIZ /FOR HELP TYPE W, ELSE <CR>/<15><12>
4490
4491

011376
011404

050114
020105

052040
026110

050131
042440

L6946
4695
4496
&497

011425
011432
011440
011446

012
046101
052501
042117

040515
047440
0475246
020105

052516
020122
046440
046450

TYPMOD:

4500

011466

005012

020052

040515

TYPMAN: .ASCIZ

<12><12>/+« MANUAL SELECT MODE +/<15><12>

<12>/ENTER DRV NO.

ceos 011620 037123 005013 *'500
ce93 S11eas
4501
4502

011474
011502

D0ees?

052516
046105

Bo0ss G2es0

046101
041505

051440
020124

¢30a 011316 005013 “ipgg |04

.ASCIZ

4505
4506
4507
:ggg

011521
0115;2
0115
g}}g;%

012
020122
047516
033333

047105
051104
020056
035051

042524
020126
030050
00501

ENTDRV:

:g}?

0}};;}

053?32

020828

042040

NOTRDY: .ASCII

4513
4514
4515
6519

011596
011574
011608
01161

051040
020040
2?126
m

054504
052123
051104
7063

020440
051101
020126
041505

45
4521
45 i
45
6524
4525
4526

11634
1164
116
11656
116’6
11905
011

10
152
45
5150;
m
20118
00501

011?
151
0054
Ols!
1124
050103
000

051104
851060
051120
1668
744
027125

6512 811561

.ASCIZ

<12>/MANUAL OR AUTO MODE (M OR A)?/<15><12>

/++

(0=7):/<15><12>

DRV /

0‘5 047040 052117 DRNRDY: .ASCII /7 NOT RDY ! START DRV IF NECESSARY./<15><12>

¢318 O1163¢ Odbass
4519 11257

\Gppy s
00‘8 053440

ASCIZ /

WHEN DRV IS RDY, PRESS "‘CONT'' ON CPU./<15><12>

10:53

26=JUN-80

7
PAGE N

SEQ 0089

PROGRAM SPECIFIC RESERVED LOCATIONS

~v — wAv-

JASCIZ

7107

LASCI1

MNO

[- — [Ve]
(=Y4

oLI

MULT DRV AUTO=-SELECTED ! PRESS "CONT' TO RESTART./<15><12>

<12>/ALIGN,VERIFY, OR EXERCISE (A,v, OR E) ?2/<15><12>

€12><12>/+ RANDOM SEEK EXERCISES IN PROGRESS /

—-

‘osso

L~ANl

77~F

ENTMOD : LASCIZ

J >x

SR
ROAT

—OTOITIT

wvwnnnn

A
~

536LO0aNT2l=Wal‘a

3
a

e <

051
52
041

383833333338358383833

012076
012104
0N

11111111‘122222222222

4549
4550
551

w -

Oo.c\la-— N v\ ~N wv —

.
v

&ZTA£X4bB=%5 30O3V0TNO NOVOMONOVWMNMEMIOTMNO

—v

CIR6NED RK611/06 3S ViY2
CIR6NE.P1
26=JUN-80 10:48

MACY11 30A(1052)

v oA
<12><12>/* MANUAL SELECT ALIGNMENT /<15><12>
=

LCZR6NED RK611/06 35S ViY2
CZR6NE .P11

26=JUN-80 10:48

MACY11 30A(1052)

26-JUN-80

10:53

PAGE 92

PROGRAM SPECIFIC RESERVED LOCATIONS

4583

046105

041505

020124

4585
4586
4S87
4588
4589
4590
459
6592
4593
4594
4595
4596
4597
4598
4599
4600
4601
4602
4603
4604
4605
4606
4607
4608

01240
01241
01241
0124
012426
0124
01%66
01244
012454
012462
012470
012476
012504
01 Slg
01251
012520
012526
0125
012535
012542
012550
012556
012557
012564

105
00001;
80501
52516
046105
042526
025040
110
040440
020114
047450
033450
030113
000
105
0&%060
052040
000
040
020072
051117
000
012
020122

020124

006452

020052
6101
1505
452§
00501
040505
Oi 126
O
3
052103
030069
024467

040515
051440
0;0126
054506
000
051504
054503
020065
020051
051040
005015

MANVRF:

052116
0464522
050131

4612

012610

054524

4586 0N 392 829101 0463511 046516
.ASCIZ

<12><12>/+* MANUAL SELECT VERIFY #/<15><12>

HEDPOS: .ASCIZ

/HEADS AT CYL 365 (OCT) (760 RKO7)/<15><12>

051105
042526
020105

DTYMSG:

.ASCIZ

/ENTER DRIVE TYPE /

020040
033074
0
0

020040
020076
037067

SOR7:

LASCIZ

047105
042510

042524
042101

ENTHED:

.ASCIZ

<12>/ENTER HEAD NO. (0-2):/<15><12>

042520

036040

RWNRDY: .ASCIZ

/TYPE <R> WHEN RDY :/<15><12>

040
046105
006504

HEDSEL:
HEADNO:

/MEAD /
/7 SELECTED/<15><12>

TYPAUT: .ASCIZ

<12><12>/+ AUTO SELECT MODE */<15><12>

0610 015600 036060 Osebbs 006472
ce1y 015808 0360ts
4613
4614
4615
4616
4617
4618
4619

4620

62%1
A §

462
4624

4625
4626
4627
e

4631
66!;
463

4634
4635
1.
463
4638

012616
0126;6
012632
01263%
01264
01%650
012656

012

012666
012674

012703
81571

12711
O1
81
O
}

1
1
1

01
01
1
1
01

037122
020116
00647
062510
040
041505
00001%

053440
042122
12
042101
051440
042524

042510
020131

005012

020052

052501

0642504
000

025040

005015

047524
041505

051440
020124

046105
047515

.ASCII
.ASCIZ

: <6> OR <7>/

01;
2125
2514
4514
23&8

02501;
020117
052103

040440
042523
040440

AUTALN: .ASCIZ

<12><12>/+ AUTO SELECT ALIGNMENT =/<15><12>

01;
12
514

02501;
g 1)
103

040440
06§523
053040

AUTVRF: .ASCIZ

<12><12>/+ AUTO SELECT VERIFY */<15><12>

040
046105
006504

DRISEL: .ASCII
DRVSEL: .ASCIZ

<12>/DRvV /
/ SELECTED/<15><12><12>

125

01
g‘
1505

047107
025040

111
1
12
82166
25264

042515
005015

020131

SEQ 0090

7
PAGE 93

000

SEQ 0091

<12><12>/+ AUTO SELECT EXERCISES */<15><12>

LASCIZ

<12>/SHORT OR LONG (S OR L)

FJTOEX:

.ASCI1

/EXERCISING DRV /

AUTODR:

LASCIZ

/ /€15><12>

BAD632:

ASCIZ

/*+

CNTRLC:
CNTRLZ:
CNTRLR:
CNTRLU:
CNTRLG:

?/<15><12>

CANNOT READ BAD SECTOR TRACK!/<15><12>

PROMPT:
PRMPSP:

WORDSP:
EQUALS:

e e NN PN N N NN

g Bt Pt Bt Bt Bt Bt Bt b0 B Bt Bt bt

N e b

e bt Bt St B

— e

PRMBUF:

+ASCI

000040

(7 X7 X7, ]
alalalyulalalalslislsalsalalelalalals]

.
SPACE3: .
SPACE2: .
SPACE1:

CR2LF:

W VAVAW
&~

.
.

000012
000
000012
000
000012

>»>»

005015

BKSLSH:
:
COMMA
SPACE6:
SPACES4:

10:53

+ASCII

IO ONOONIW

—
MO
—=NEO—=N
LWNVO SN

26-JUN-80

PROGRAM SPECIFIC RESERVED LOCATIONS

SOBN—O
NNV

~N
=~ VIO~

ONOW

MACY11 30A(1052)

AUTEXR:

8388 28 239222 8
SO W
VIOFD
OO =N~
OVIOWVIOW
WV~ aun S
38

2 8

S53naN

O NN VNN

W
g IR

(VP

[
v
ogo

=
O
SEEEE g SRoROR & NNVON=

N =S =S PPN

RRESRRo
w

~§W---‘.‘.‘.‘.‘-‘ - i D
N-‘dcgflflomlfifi NN — —

D D

00501
01

L N A L N
NN
NNNOW
NSO

00000

il i i
i
N

S D D

) e

D i i

D i

D D

O0000O0O0O0O0O0OOOOOOOOOO

D e

D D

OO0

1=¢»cnnnwuu

CIRONED RK611/06 sS VviY2
CZRONE .P1
26=JUN-80 10:48

/*C/<15><12>
/*°1/<15><1
2>
/*R/<15><12>
/*U/<A15<12>
/*G/<15><12>

<15<12><12>
N/
/.1
/
/
/ /
/ /
/ /
//

/
=/
/WORD /
/ =/
/It /
/> /

—

bt
=t

-GSNOOO

O0OO0O0O0O0O0O

.EVEN

000042
000042

DFSTRT: CLRB
CLRB
CLRB
CMP
BNE
4:

MDFLAG

DULACS
ERRCNT
#DRVTST,a#42
4%
'
INEWPAS 8042
CMSTRY

sSET FLAG FOR DEFAULT MODE

sCLEAR DUAL=-ACCESS FLAG
sCLEAR ERROR COUNT FOR RESTARTS
sSEE IF EOP RETURN ADRS = DRVIST
sBR IF NOT DRVTST
sSET RETURN ADRS = NEWPAS
sPROCEED

CIR6NED RK611/06 sS ViY2
CIRONE.P11
26-JUN-80 10:48
4695
4696
223;

8 8
MACY11 30A(1052) 26-JUN-80 10:53 PAGE 94
PROGRAM SPECIFIC RESERVED LOCATIONS

013336
013344

112737
105037

000001
003135

003116

PSTART: MOVEB
CLRB

4699
4700
4701
4702
4703
4704
4705
4706
4707
4708
4709
4710

013350

012737

000340

177776

013356
013362
C13364
013370
013372

012706
005026
022706
001374
012706

001100

013376

012737

057146

CMSTRT: MOV
#PR7,3#PS
:BLOCK ALL INTERRUPTS
.SBTTL
INITIALIZE THE COMMON TAGS
::CLEAR THE COMMON TAGS (SCMTAG) AREA
MOV
#SCATAG,R6
::FIRST LOCATION TO BE CLEARED
CLR
(R6)+
:2CLEAR MEMORY LOCATION
CMP
#SWR,R6 ;:DONE?
BNE
=6
;:LOOP BACK IF NO
MOV
#STACK,SP
:sSETUP THE STACK POINTER
;:INITIALIZE A FEW VECTORS
MOV
#$SCOPE ,8#10TVEC ;10T VECTOR FOR SCOPE ROUTINE
MOV
#340,3#10TVEC+2 ;:LEVEL 7
MOV
#SERROR ,@#ENTVEC ;:EMT VECTOR FOR ERROR ROUTINE

&712

013452

012737

060254

000034

471%
4715
4716
717
4718
4719
4720
4721
47%;
47
4724
4725
4726
&727
4728
4729

013442
013450
013456
013464
013470
013474
013502
013510

012737
012737
013737
005037
005037
112737
012737
012737

057012
000340
023754
001304
001306
000001
013502
013510

000024
000026
023746

013516
013522
01353C
013536
013544
013552

013746
012737
012737
012737
022777
001012

000004
013556
177570

2;;9

013554
013556
013562
013564
013572
013600

000403
012716
000002
012737
012737
012637

4738

013604

005037

4711

013404
013412

4733
L4734
4735

4739
4740
:;:l

001100
000340
056442

000020

000022
000030

013420 012737 000340 000032

4713 013434

4730
4731
4732

012737
012737

001140

013610
013616
8}36 .

474 01;2
4766
4745

013632
013634

4747

013646

4749

013662

4766 013642

4748 013656

012737 000340 000036

132737
001403
012737

177570
177777

000004
001140
001142
165366

013564
000176
000174

000004

001326

001140
001142

001341

001342

001140

#340,3#ENTVEC+2 ;:LEVEL 7

MOV

#3460, TRAPVEC+2; LEVEL 7

65%:

668:

678

65%
#65%, (SP)

(SP)+,#ERRVEC

;;RESTORE ERROR VECTOR

CLR

$PASS

:sCLEAR PASS COUNT

CLR

AUTOFG

sCLEAR THE SPECIAL FLAG

BITB
BEQ
MOV

000004

1%7 7

051

000114

MoV

004737

031302

4750 013666 112737 000144 001115

:2AND THE HARDWARE SWR IS NOT = -1
:sBRANCH IF NO TIMEOUT
:2SET UP FOR TRAP RETURN

BR
MOV
RTI
MOV
MOV
MOV

000006

O1 737 000340 000116

#STRAP ,@#TRAPVEC ;:TRAP VECTOR FOR TRAP CALLS

MOV
#SPURDN, 3#PURVEC ; ;POWER FAILURE VECTOR
MOV
#340,a#PURVEC+2 ;:LEVEL 7
MOV
SENDCT,SEOPCT
::SETUP END=OF =PROGRAM COUNTER
CLR
$STIMES
ssINITIALIZE NUMBER OF ITERATIONS
CLR
SESCAPE
s3CLEAR THE ESCAPE ON ERROR ADDRESS
MOVB
#1,SERMAX
::ALLOW ONE ERROR PER TEST
MOV
#.,8LPADR
:sINITIALIZE THE LCOP ADDRESS FOR SCOPE
MOV
#.,8LPERR
:sSETUP THE ERROR LOOP ADDRESS
::SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
::EQUAL TO A "=1"", SETUP FOR A SOFTWARE SWITCH REGISTER.
MOV
@FERRVEC,-(SP)
;;SAVE ERROR VECTOR
MOV
#64$,9FERRVEC
::SET UP ERROR VECTOR
MOV
#DSWR, SWR
::SETUP FOR A HARDWARE SWICH REGISTER
MOV
#ODISP,DISPLAY ::AND A HARDWARE DISPLAY REGISTER
CMP
#-1,35WR
T:TRY TO REFERENCE MARDWARE SWR
BNE
66%
::BRANCH IF NO TIMEOUT TRAP OCCURRED

RESET
MOV

sogr ogoggg

:SET FLAG FOR PARAMETER MODE
{CLEAR DUAL=ACCESS TEST FLAG

MOV
MOV

64S:

000200

005037 003150
000005
012737

001115
001106
001110

#1,MOFLAG
DULACS

CLR

MOV

JSR

MOVB

#SWREG, SWR
ssPOINT TO SOFTWARE SWR
#DISPREG,DISPLAY

#APTSIZE,SENVM
67%
#S$SWREG, SWR

#6,3PERRVEC

FPERRVEC
+2

::TEST USER SIZE UNDER APT
2:YES,USE NON-APT SWITCH
::NO,USE APT SWITCH REGISTER
:CLEAR THE UNIBUS
:SET TIME-OUT VECTOR

#NPERHD ,@FMEMVEC ;SET MEM PARITY TRAP VECTOR

#PRT,SIMEMVEC+2 ;SET TRAP PRIORITY = 7
PC,ENBCSR

0160..$ERHAX

*ENABLE MEMORY PARITY CMECK

:SET MAX ERROR CNT TO 100 ¢ - $SCOPE

SEQ 0092

CIR6NEO RK611/06 S ViY2
CZRONE .P1
26=JUN-80 10:48

CLRB
MOve
TYPE

003145

8-‘-‘.‘—.-‘
RESRRRN

105037
12737

MACYN 3?A(1? 5 2)
26-JUN-B0 10:53
NITIA LIZE THE COMMON TAGS

NN S~

39%:
40$:

1ST8
MOV

=1-1-T
L~}
8882223

177776
42%:

,DIR6N

:TYPE PROGRAM [.D. FOR PART 2

CLR

9s:

000200

-t OO
© b b b

8x228c0
\RSNN-‘NWW—.“\”
S
RN R
JESIe8de

44s:

gu§£88(V]
104401

007311

TSTB

18%:

MOVB

DULACS
408

*SEE IF DUAL-ACCESS DATA TEST
:BR IF NOT

_NOTMSG
NOTYPE

,DUACES

*TYPE OPERATOR NOTE
:SET FLAG FOR NEXT TIME

STYPE "'t DUAL=ACCESS DATA TEST +'

#XBONDL ,a#TKVEC :LOAD VECTOR FOR TTY KBD

#PRG,FTKVEC+2

:SET KBD PRIORITY = 4

#1.INTR,(R1)+

SET IT TO RKO6 HANDLER

#PRO,3#PS
#PRVCMD, R1
#6,R0

;si)o

:ADDR. OF RKO6 VECTOR STORAGE
:SET RKO6 PRIORITY
;VECT FOR KT11_FAILURE
;SET PRIOR. = 7 FOR HNDLER
:CLEAR 'RUNNING TESTS'' FLAG

SALLOW ALL INTERRUPTS AGAIN
:ZERO OUT PREVIOUS COMMAND
:SET COUNTER

:ZERO A WORD

:BR IF NOT DONE YET
:DON'T ALLOW STALLS YET
:SEE IF CHAIN MODE

44$
PC,GTSWRG

:BR If YES
:OPE" “OF TWARE SWR FOR MODIFICATION

#123456
, SLONUM
PC,SIZMEN
XDPSVD
9$
PC,GETXDP
XDPSVD
MDFLAG
108

sSIZE MEMORY, FIX MA LIMIT IN PRMLIM
;SEE _IF XXDP PREVIOUSLY SAVED
:BR _IF NOT
sRESTORE SAVED XXDP
;CLEAR THE FLAG
:SEE IF DEFAULT MODE
:BR _IF NOT DEFAULT MODE

18%
#AVECT1,RO
#ABASE ,RKBAS
RO,RKVEC
RKVEC+1

:BR_IF NO SIZING
sGET DEFAULT VECTOR AND PRIORITY
sGET DEFAULT BASE ADDRESS
:STORE VECTOR
;CLEAR HI BYTE

#176543,SHINUM

RO
#177437,R0
RO,RKPRI
ALLDRV

:BEGIN PARAMETER INPUT MODE
PRMINP
TYPE

fos

:SEE IF OPERATOR NOTE SHOULD BE TYPED

:BR IF NOT

$VECT1,RO
$BASE ,RKBAS
#B1T7,SENVA

003036
001341
003036

015060

MOV

:SET WLP FILE OVLD INDICTR

39%

42%
STALLS
aNG2 INEWPAS

RSINESRBRERERS
R

D ol cmed o
D o ol mh o
PRI PO P et =D o o o

i e e

oy oF ol ok ad o o

D D

D e

i ol

D i

i i

I PP I

054710
054712

:CLEAR ERROR COUNT FOR CURRENT DRIVE

RKPRI, (R1)
#XTERHD ,@#MMVEC
#PR7 ,@#MMVEC+2
TSTING

000250
000252

SEQ 0093

DRVERS

#1,HLPOVL

RKVEC ,R1

017260

0000000000000 O0O0O0O0O00

8
PAGE 95

NOTYPE

000060
000062

014214

:INI'.

PSEUDO-RANDOM NOS.

;:GET APT RKO6 VECTOR AND PRTY
:GET APT RKO6 BASE ADDRESS
;SEE IF NO SIZING

:GET PRTY INTO BITS 5-7
:CLEAR OTHER BITS
:STORE RKO6 PRIORITY
;60 CHECK ALL DRIVES

;TYPE ''PARAMETER INPUT MODE''

CIR6NED RK611/06 S ViY2
CIR6NE.P11
26-JUN-80 10:48

MACYN 30A(10 2) _26-JUN-80 10:53
INITIALIZE THE COMMON TAGS

4807
4808

104401
004737

007337
030756

4812

014234

012637

4814

014240

013746

003040

014260
014264
014266
014270
014272
016%53
014
014304
014306

013746
006316
006316
006316
000316
104401
004737
012600
020027

003042

4829

014314

020027

000007

4831
4832
4833
48
4835
4836
4837

014322
014324
014326
814;;2
14
014336
014342

000300
006200
006200
8062
10037
104401
000405

4840 0143564

000741

481

4815
4816
4817
4818
4819
4
4821
4822
4823
4824
4825
4826
4827

014244
014250
014256

4828 014312

104401
004737
012637

002414

4830 014320 003011

4838
4839

014344
014350

4841
442
4843
:g:g

014356
014362

014370

4859
4860
4861
4862

MOV

(SP)+,RKBAS

:STORE NEW VALUE

€ "RK06 BUS ADR = '*
1vre OLD, GET NEW RKBAS VALUE

RKVEC,=(SP)
;PUT OLD VALUE ON STACK
TYPE
,RKVADR
:TYPE "RKO6 VEC ADR = ''
JSR
PC,GETPRM
STYPE OLD, GET NEW RKVEC VALUE
MOV
(SP)+,RKVEC
:STORE NEW VALUE
:YPEN RKO6 INTERRUPT NANDLER PRIORITY LEVEL FOR MODIFICATION
i1s:
mov
RKPRI,=(SP)
:GET OLD VALUE OF PRIORITY
ASL
(SP)
1GET IT INTO BITS 0-2
ASL
(SP)
ASL
(SP)
SWAB
(SP)
TYPE
+RKPRTY
;TYPE
"RK06 PRIORITY = *'
JSR
PC,.GETPRM
:TYPE OLD, GET NEW RKPRI VALUE
MOV
(SP)+,R0
CMP
RO, #4
;SEE IF AT LEAST LEVEL 4

000004

BLT

003042
001315

104401
104401

005264
001314

128:

105037
012737

003126
014374

16$%:

000137

015136

000042

12$

:BR IF NEW VALUE TOO SMALL

12$

:BR IF NEW VALUE TOO LARGE

CMP

RO, #7

SWAB
ASR
ASR
ASR
MOV
TYPE
BR

RO
RO
RO
R
RO,RKPRI
,SCRLF
ies

BGT

TYPE
TYPE

*SEE IF LEVEL 7 OR LESS

:GET PRIORITY INTO BITS 5=7

:STORE NEW VALUE

,BUFFO
$QUES

:ECHO BAD INPUT

CLRB
MOV

ERRCNT
SDRVTST,.a#42

JMP

CHKLST

:CLEAR ERROR CNT FOR RESTARTS
:SET UP DUMP MODE RETURN FROM SEOP
:
UPON COMPLETION OF REQUESTED PASSES
160 CHECK STATUS OF MARKED DRIVES

i1s

;GO ASK AGAIN

""Q..QQ'."'"""""""""'Q"t'.tt'tt""""t.l'Qt.'t't

"§BTTL 10 - DESIRED DRIVE INPUT ROUTINE
1«THIS ROUTINE TYPES THE CURRENT LIST OF DRIVES TO TEST,
“eWITH DRIVE NUMBERS SEPARATED BY COMMAS. THEN, A NEV
T«CHOICE OF DRIVES 1S REQUESTED BY TTY INPUT, AND THESE
*«DRIVES ARE CMECKED FOR VALIDITY AND PROPER STATUS,
“«AND IF THEY ARE VALID, THEY ARE LOADED INTO THE DRIVE
SeLIST (DRVLST).

‘as‘

4857

ruw OLD VALUE ON STACK

RKBADR
PC,GETPRM

MOV

007405
030756

4849
4850
4851
4852
4853
4854
4855
4858

RKBAS,=(SP)

;OPEN RKO6 VECTOR ADDRESS FOR MODIFICATION

007362
030756
003040

‘“a

MOV

TYPE
JSR

003036

4846
4847

8
PAGE 96

;OPEN RKO6 UNIBUS ADDRESS FOR MODIFICATION

4809 014220 013746 003036
4810 014224
4811 014230

;:"ttt.tt."""""'"""'Q'."""l."i."t't't'!t"""t.t't

014374

014374
014400
0144064
014410

012706
005037
004737
104401

001100
005502
031302
007656

DRVTST:

MOV
CLR
JSR
TYPE

#STACK,SP
STALLS
PC. NBCSR
,ALDRVS

;RESET THE STACK
TINHIBIT STALL BETWEEN OPERATIONS
*ENABLE MEMORY PARITY CHECK
TASK IF ALL DRIVES DESIRED

SEQ 0094

CIR6NED RK611/06 S ViY2
CZRONE .P11
26-JUN-80 10:48

034002

JSR
DRVTST
DRVTST
DRVTST
TST

BEQ
CMP
BNE

000101

015060

4$:

JMP
TYPE
TYPE
BR

PC,RDCHRS

6$:

MOV

TELDRV
#'A,BUFFO
4%
ALLDRV

.BUFFO
,SQUES

DRVTST

000010

BEQ

MOV

R1,SCRACH

BEQ

TYPE

BIS
INC

INC

ASL

CMP
BNE
TST

011170
0C7564

, COMMA

#'0,SCRACH
L SCRACH

RO
R1
R3
#10.R1
(33
RO

26%
+NOFALS
.NODRTS

#401,R3
#DRVLST,R1
R3,(R1)+
R3,(R1)+
R3,(R1)+
R3,(R1)

000401
005610

DBt
e

3°°§23~2§ssss;~

ODOOOOOO

R1
RO
#B170,R3

DRVLST(R1)
8s
RO
6%

TSTB

YYPE

8%:

28%

. XXDPME

OwNO

Y 11
uug flg-.
NNNNNNN

CLRB

MDFLAG
19%

28%:

015476

014624
0166;3
0146
014636
014640
014644
01664g
01465
014654
014660

013244
005534
000060
005534

-t e

014560
014564
014570
014572
014574
014576
014600
014604
014610
014616
014620

4$:

TST

N =

4909
910
4911
4912
4913
6914
915
916
917
4918

014502
014504
014506
014512
014516
014524
014530
014532
8145;2
0145
014542
014544
014546
014550
014554

005610

LODFLS
19%
DRVLST

032250
015136

CHKLST

g8S388

4882
4883
4884
4885
4886
4887
4888
4889
4890
4891
4892
4893
4894
4895
4896
4897
4898
4899
4900
4901
4902
4903
4904
4905
4906
4907
4908

CLR
CLR

;READ RESPONSE
: (*C) RETURN ADDRESS
:(*Z) RETURN ADDRESS

: TYPE CURRENT DRIVE LIST
TELDRV: TYPE
,DRVSEQ
000001
005610

MACY11 30A(1052)
26=JUN-B0 10:53 PAGE 97
TO - DESIRED DRIVE INPUT ROUTINE

19%
PC,INITSS

:(*U) OR ERROR RETURN ADDRESS
;SEE IF NULL INPUT
:BR_IF NULL INPUT
;SEE IF ALL DRIVES REQUESTED
;BR _IF NOT ALL DRIVES
sCHECK ALL DRIVES
;ECHO BAD INPUT
:TYPE <?> AND <CR>,<LF>

;GO ASK AGAIN

;TYPE 'DRIVE(S) = "'

sINITIALIZE DRIVE NUMBER
;INIT. COUNT OF LISTED DRIVES
;INIT BIT POINTER
;SEE IF THIS DRIVE 1S LISTED
;BR IF DRIVE NOT LISTED
;SEE IF FIRST TIME HERE
;BR IF FIRST TIME HERE
:TYPE A COMMA
;USE SCRACH FOR BUFFER
; CONVERT DRIVE NO. TO ASCII
:TYPE DRIVE NO.

s INCREMENT NO. OF LISTED DRIVES
s INCREMENT DRIVE NO.
;SHIFT BIT POINTER
;SEE IF DONE YET
:BR_IF NOT DONE
;SEE IF ANY DRIVES WERE LISTED
:BR IF YES
;TYPE ''

NONE''
;TYPE ''«* NO DRIVES TO TEST"
"PRESS 'CONT' WHEN RDY'

:PATTERN TO MARK DRIVES

:DRIVE LIST ADDRESS
:MARK ALL DRIVES IN LIST

;HALT PROGRAM
:TYPE <CR>,<LF>

:DID DRIVE LOAD XXDP??
:NO, SO SKIP NEXT
: INFORM USER TO REMOVE XXDP PACK
:AND FORCE OPERATOR INTERVENTION
;OPERATOR HIT CONT. CLR THE LD PTR
sSEE IF DEFAULT MODE
:BR IF NOT DEFAULT MODE
:60 L?AD DEFLT ITER. COUNTS
:BR_IF NOT

;SEE IF DRIVE O LISTED TO TEST

:BR:BR | IF NOT

:INIT THE SUB-SYS
;GO CHECK STATUS OF LISTED DRIVES

SEQ 0095

MACY11 30A(1052)

CIR6NED RK611/06 S ViY2
CZRONE .P1
26=JUN-80 10:48
014664

104401

013274

4921
4922

014670
014674

004737
014374

034002

4927

014706

105737

003135

4929
4930
4931

014714
014720
014724
7
014732
014736

000137
000137
022700
00200
104401
104401
000646
00500
126127
002766
126127
3362

015210
015754
000017

4937

014746

4939

014756

4944

0147764

126127

4946
232'

015
015006

005201
000757

4949
4950

015010
015014

012701
0050

198:

8
PAGE 98

,PROMPT

:TYPE ASTERISK AND SPACE

PC,RDCHRS

;READ IN INPUT STRING

TELDRV
TST

:(*U) OR ERROR RETURN ADDRESS
;SEE _IF NULL INPUT

1ST8

DULACS

;SEE IF DUAL=-ACCESS FLAG SET

BNE

2%8:

9$:

005264
001314

108:

005264

000060

005264

000067

005264

000054

005610

SEQ 0096

128:

BNE
JMP
JMP
CMP
BGE

TYPE
TYPE

CLR

22%
ASKTST
INPUTP
#15..,R0
12%
.BUFFO
. SQUES

TELDRV

14§:

CMPB
BLT
CMPB
BGT
INC

BUFFO(RY) ,#'0
108
BUFFO(RY) ,#'7
108
R1

168:

MOV

#DRVLST,R1

:(*C) RETURN ADDRESS
:(*1) RETURN ADDRESS

:BR _IF NEW DRIVES WILL BE SELECTED

:BR IF YES
;JUMP TO THE TEST INPUT ROUTINE
;GO ASK FOR INPUT PARAMETERS
;SEE IF TOO MANY CHARACTERS TYPED
:BR IF NOT TOO MANY
;ECHO BAD INPUT
;TYPE <?> AND <CR>,<LF>

;GO _TYPE DRIVES AND ASK AGAIN
;CLEAR CHAR. POINTER

;SEE IF DRIVE NO. < 0
:BR TO ECHO BAD InUT
;SEE IF > 7
:BR TO ECHO BAD INPUT
: INCREMENT CHAR POINTER
CMP
R1,RO
;SEE IF MORE CHARS TO CHECK
BEQ
16%
:BR IF ALL CHARS CHECKED
CMPB
BUFFO(RY),#*,
;SEE IF THIS IS COMMA
BNE
10%
:BR IF NOT COMMA
: INCREMENT CHAR POINTER
R1
INC
BR
148
. sBR TO CONTINUE CHECKING CHARS
;GET NEW DRIVE NUMBERS INTO LIST
;GET DRIVE LIST ADDRESS

CLR
CLR
CLR
CLR
CLR
Move
BIC
MOv8
ADD

(R1)+
(R1)+
(R1)+
(R1)
RO
BUFFO(RO) ,R1
#'0,R1
#1,DRVLST(R1)

;CLEAR OUT THE DRIVE LIST

BNE

18%

:BR IF NOT DONE YET

1ST8

#2,R0
BUFFO-1(RO)

B8R

CHKLST

;CLEAR BUFFER POINTER

:GET A DRIVE NUMBER
sSTRIP ASCII BITS
)
;MARK THIS DRIVE IN DRIVE L:ST
;POINT TO NEXT DRIVE NUMBER
;SEE IF NULL CHAR YET

160 CHECK NEW DRIVES FOR VALID STATUS

;COME HERE IF ALL DRIVES REQUESTED

ALLDRV: CLR

001341

1$:

28:

o
—a

g
W

- LN

S
- X 5

b
D
D
b d
b e
b
—.

3828 S3328:28
S83Ss g8
8-‘8““

2
(=1-T-ToT-T-T-T~
1]

VAVAWVAVWWAWWA VAN

TYPE

DRVTST
DRVTST

005610

2
W

:READ Augsguecx NEW DRIVE NUMBERS

18%:

&»

10:53

TO = DESIRED DRIVE INPUT ROUTINE

4919

4933
4934

26-JUN-80

005610

4$:

MOV
BITE
BNE
MOV

MOV

CLRB
BIT
BEQ
MOVB
ASL
INC

$DEVM,R3
#BIT7.SENVA
1%
377,83

8110,R1

DRVLST(RO)
R1,R3
48
#1.DRVLST(RO}
R1
RO

:CLEAR DRIVE NUMBER

:GET APT DEVICE MAP
SSEE IF NO SIZING
:BR IF NO SIZING
:SET UP FOR SIZING

SSET BIT POINTER

SINITIALIZE DRIVE ENTRY
:SEE IF THIS DRIVE IS REQUESTED
:BR IF NOT
:MARK THIS DRIVE IN DRIVE LIST
:SHIFT BIT POINTER
S INCREMENT DRIVE NUMBER

A———

CZR6NED RK611/706 3S ViY2
CZRONE .P11
26-JUN-80 10:48
4975
4976

015130
015134

022700
001364

4978
4979
4980
4981
4982
4983

(15136
015140
015144
015146
015152

005000
105760
001410
010037
004737

4985

015156

015202

4987
4988
4989
4990
4991
4992

015166
015170
015174
015176
015202
015206

005200
022700
001361
000137
105060
000767

977

4984

4986

015160

113760

G 8
MACY11 30A(1052) 26-JUN-B0 10:53 PAGE 99
TO = DESIRED DRIVE INPUT ROUTINE

000010

CMP
BNE

#10,R0
2%

SEE IF DONE MARKING ALL DRIVES
F NOT DONE YET

RO
DRVLST(RO)
4%
RO,DRIVE
PC,SCNDRV

;CLEAR DRIVE NUMBER
:SEE IF TNIS DRIVE IS MARKED IN LIST
:BR IF NOT MARKED
;SET DRIVE NUMBER FOR SCNDRV
:CHECK STATUS OF TWIS DRIVE
s1F NOT VALID, TYPE MESSAGE

;CHECK ALL DRIVES MARKED IN DRIVE LlST F0! PROPER STATUS

CHKLST: CLR
2%:
1ST8
BEQ
MOV
JSR

005610
005500
032404

003124

SEQ 0097

005620

000010
014460
005610

48:

6$:

Move

INC
CMP
BNE
JMP
CLRB
BR

:_AND REMOVE IT FROM DRIVE LIST
:ERROR RETURN ADDRESS FOR SCNDRV

TYPFMT,DTYLST(RO)

RO
#10,R0
2%
TELDRV
DRVLST(RO)
4%

:SET DRV TYP, 0=RK06, 4=RK07

;RETURN HERE IF DRIVE IS USEABLE
:SEE IF DONE CMECKING LIST
;BR IF NOT DONE YET
;G0 BACK TO LIST SELECTED DRIVES
;REMOVE INVALID DRIVE FROM LIST
;CONTINUE CHECKING THE LIST

4995

LT
R R
AR el

5000

;eTEST LIST (TSTLST). AN ITERATION VALUE OF O INDICATES

4996
4997
4998
4999

.SBTTL
TO - DESIRED TEST INPUT ROUTINE
:«THIS ROUTINE ALLOWS INPUT OF DESIRED TESTS AND ITERATION
:«COUNT FOR EACH TEST. THE INPUT IS CMECKED FOR VALIDITY,
;«AND IF VALID, THE ITERATION COUNTS ARE LOADED INTO THE

5001

;*THAT THE TEST IS NOT TO BE aun.

5002

:«THIS ROUTINE REQUESTS "ENTER L,C,

OR I''. TYPING (L)

5003

*«CAUSES THE CURRENT LIST OF TESTS AND ITERATIONS TO BE

5005

:«AND (1) ALLOWS THE OPERATOR TO PROCEED WITH SELECTION

S009

5004

;*TYPED, (C) ALLOWS TESTS AND ITERATIONS TO BE CHANGED,

5006
5007
5008

5010
Son

;*OF OPERATING PARAMETERS, AND RUN TESTS.
s*TYPING (*C) CAUSES IMMEDIATE RETURN TO DRVTST. TYPING
:* (*7) CAUSES RETURN TO ASKTMD.

5012

015210

104401

007737

5014
5015
5016
5017
5018
5019
5020
5021
5022

015220
015226
0152;8
0152
015232
015234
015236
015242
015246

004737
014374
015214
015214
005700
001005
104401
104401
00076;

034002

015 23
015
015 ?‘
815 2
015274
015
015306

00100
1§
22737
100;
0001
022737
001353

S013

502

5026
5025
5029
502
5028
5029
5030

015214

815%50

104401

022737

;DETERMINE L,C, OR | MODE

ASKTST: TYPE

010041

2%:

000114

005264

&$:

015314
000103

005264

68:

015432
000111
'

005264

B8%:

L AR

.TSTHDS

;ASK FOR TEST INPUT MODE

JSR
DRVTST
ASKTMD
ASKTMD
TST
BNE
TYPE
TYPE
BR

PC,RDCHRS

RO
L%
,BUFFO
.SQUES
ASKTMD

READ RESPONSE
;(*C) RETURN ADDRESS
:(*Z) RETURN ADDRESS
;(*U) OR ERROR RETUPN ADDRESS
;SEE IF ANY INPUT
;BR IF ANY INPUT
;ECHO BAD INPUT
sTYPE <7> AND <CR>,<LF>
;GO ASK AGAIN

BNE
JMP
CMP
BNE
JMP
CMP
BNE

6%
LSTTST
#'C,BUFFO
8s
CNGYS!
#'1,BUFFO
2$

:BR IF NOT (L)
;JUMP TO LIST TESTS
;SEE IF (C) TYPED
:BR _IF NOT (C)
;JUMP TO CHANGE TESTS
;SEE IF (1) TYPED
;BR [F NOT (1), TO ECHO BAD INPUT

ASKTMD: TYPE

005264
001314

CMP

LENTLCI

#°'L,BUFFO

;TYPE "ENTER L,C, OR I"

;SEE IF (L) TYPED

pa—

(%Ig:EO’?§611106 35S Viv2
26=JUN=-80 10:48

gogl

015310

0001%”

015754

5034

015314

104401

010143

LSTTST: TYPE

5036
5037
S038
5039
5040
5041
5042
5043
S04&

015322
015356
015332
015336
015342
015344
015352
015354
015360

004737
004737
104401
005737
00141
122737
001002
000137
122737

8;2 36
14
001315
005522

2%:

5046
S047
5048
S049
5050
5051
5052
5053
zggg

015370
015374
015400
015404
015406
015412
015416
015420
015426

000137
004737
062701
010102
062702
022702
001341
042777
000137

015214
030556
000002

015432
015633
01544
015444
015446
015450
015452
015454
015462
015464
015470

104401
806737
14374
015214
015432
005700
001426
022737
001405
104401
104401

010067
034002

583§

5035 o1sszg 005001

5045

5056
S057
5058
5059
S060
5061
506§
5063
5064
5065

5066
S067

015366

00100

S068 015474 000756
5069
S070

015476

012700

5072
5073
S07&4
5075
5076
5077
5078

015506
015510
015514
015516
015522
015553
0155

012022
022702
001374
105737
001234
000137
005001

5071

S079

104401

:G0 INPUT PARAMS AND RUN TESTS

LTLSTHD

:TYPE HEADING ''TEST

PC,PREPKB
PC,TYPTST
JSCRLF
INTCHR
§4
#003, INTCHR
48
DRVTST
#032,INTCHR

:PREPARE FOR POSSIBLE KBD INPUT
:TYPE CURRENT TEST AND ITERATION NUMBER
:TYPE <CR>,<LF>
:SEE IF ANY INPUT
:BR IF NO INPUT
:SEE IF (*C) TYPED
:BR IF NOT (*C)
:JUMP TO ASK FOR DRIVES AGAIN
:SEE IF (*2) TYPED

014374
000032

005522

4$:
63:
8s:

005630
005644
163516

(LR

BNE

JSR
JSR
TYPE
ST
BEQ
CMPB
BNE
JMP
CMPB

JMP
JSR
ADD
MOV
ADD
CMP
BNE
BIC
JMP

SEQ 0098

INPUTP

;LIST cuanent TESTS Auo ITERATION COUNTS

005522

ASKTMD
PC,ECOBAD
./
R1,R2
ctSTLSt.RZ
#OFLTST,R2
2%
#B176,38TKS
ASKTMD

SINITIALIZE TEST INDEX

ITERATIONS'

:BR IF NOT (*2)

:JUMP TO ASK FOR NEW TEST INPUT MODE
:ECHO BAD INPUT
: INCREMENT TEST INDEX
:GET COPY OF INDEX
:GET POSITION IN LIST
:SEE IF DONE WITH LIST
:BR IF NOT DONE YET
;:DISABLE KBD INTERRUPT
:G0 ASK FOR NEW TEST INPUT MODE

005264
001314

:CHANGE CURRENT TESTS AND ITERATION COUNTS
CHGTST: TYPE
LDFTEST
:ASK IF TESTS SHOULD BE DEFAULTED
JSR
PC,RDCHRS
sREAD RESPONSE
DRVTST
:(*C) RETURN ADDRESS
ASKTMD
:(*7) RETURN ADDRESS
CHGTST
:(*U) OR ERROR RETURN ADDRESS
ST
RO
;SEE IF NULL INPUT
BEQ
NUL INP
:BR IF NULL INPUT
CMP
#'0,BUFFO
:SEE IF (D) TYPED
BEQ
LODFLS
:BR IF DEFAULTS REQUESTED
TYPE
LBUFFO
:ECHO BAD INPUT
TYPE
.SQUES
:TYPE <?> AND <CR>,<LF>

005644

:LOAD DEFAULT ITERATION COUNTS INTO TEST LIST
LODFLS: MOV
#OFLTST,RO
:LOAD DEFAULT LIST ADDRESS

000104

015502 012702 005630

015532

JMP

000003

000100
015214

MACY11 30A(1052) 26=JUN-80 10:53 PAGE 100
T0 = DESIRED TEST INPUT ROUTINE

005644

003116
016510

010143

005264

4$:

CHGTST

:G0 ASK AGAIN

[]

#TSTLST,R2

:LOAD tesr LIST ADDRESS

YPE

LTLSTHD

STYPE HEADING "'TEST

MOV
cMP
BNE
1ST8
BNE
JMP
NUL INP: CLl

(RO)+,(R2)+
#OFLTST,R2
48
MDFLAG
ASKTMD
LODFPT
R1

5080
5081 015536 004737 034314
soc; 815562 1064401 013253

Bs:

zggs

:READ AND CHECK INPUT, If ANY

508

15546

104401

013274

S
5086

015552
015556

004737
014374

034002

:LOADA DEFAULT VALUE
:SEE IF DONE YET
:BR IF NOT DONE YET
:SEE IF DEFAULT MODE
:BR IF NOT DEFAULT MODE
;GO LOAD DEFAULT PARAMETERS
;INITIALIZE TEST INDEX

ITERATIONS

- TYPE cuanent TEST Auo ITERATION NUMBER
JSR
PC,TYPTST
:TYPE A TEST NO. AND ITERATION NO.
TYPE
LSPACE1
STYPE A SPACE
TYPE

.PROMPT

:TYPE ASTERISK AND SPACE

JSR
DRVTST

PC,RDCHRS

:READ OCTAL DIGITS TYPED
:(*C) RETURN ADDRESS

CIZR6NED RK611/706 3S ViY2
CZRONE .P11
26=JUN-80 10:48
5087
5088
5089
5090
5091
5092
5093
5094
5095
5096
5097
5098
5099
5100
5101
5102
5103
5104
5105
5106
5107
5108
5109
5110
5111
5112
5113
5114
g}}z

015560
015562
015564
015566
015570
015574
015576
015602
015606
015610
015614
015622
015626
0156;2
015634
015636
015642
015644
015646
015652
015654
015660
015664
015666
015670
0156764
015676
015702
0157064

015214
015536
005700
001012
062701
010102
062702
02270;
00135
000137
022737
001431
005002
122760
001004
105060
005300
005202
022700
002433
012746
004737
015742
012600
020027
101022
010061
005702
001731

5117
5118
5119
5120
5121
5122
5123
5126
5125
5126
5127
5128
5129
5130

015706
015710
015714
015720
015722
015726
015734
015740
015742
015746
015752

010102
062702
022702
001002
000137
016161
062701
0007
104401
104401
000671

5131
513%
5133
5136
5135
SI!’
513
5138
5139
5140
5141
5142

015754
015760
015764
015770
015774
016000
016006
16008
01601
016012
016014
016013
016022

104401
005037
00473
104401
104401
004737
014374
15760
15760
5700
001005
104401
104401

ASKTMD

108:

000002

005630
005644
15214

BNE

ADD
MOV
ADD

CMP

BNE

000041

005264

000041

005263

128:

005263
148:

000005

005264
054456

JMP
(WP

BEQ

CLR
CMPB
BNE
CLRB
DEC
INC
(MP

BLT
MOV
JSR
208
MOV

077776

005630
005642
005632

:(*Z) RETURN ADDRESS
;(*U) OR ERROR RETURN ADDRESS
RO
;SEE IF ANY INPUT
128
:BR IF ANY INPUT
#2,R1
: INCREMENT INDEX
R1.R2
: COPY INDEX
#TSTLST,R2
;GET POSITION IN LIST
#OFLTST.RZ
;SEE IF DONE WITH LIST
&%
;BR IF NOT DONE YET
ASKTMD
;GO _ASK FOR NEW TEST INPUT MODE
#'',BUFFO
;SEE IF (!) TYPED
168
:BR TO PROPAGATE CURRENT ITER. NO.
R2
sINITIALIZE (!) INDICATOR
#'! ,BUFFO=-1(RO) ;SEE IF LAST CHAR IN BUF S (!)
14%
:BR IF NOT (!)
1(R0O)
BUFFO=
s INSERT TERMINATOR BYTE
RO
sDECREMENT CHAR COUNT
R2
sSET (!) INDICATOR
#5,R0
:SEE _HOW MANY CHARS NG«
20$
#BUFFO,=(SP)
PC,OCTBIN
(SP)+,R0

CMP

RO,#77776

MOV
TST

RO,TSTLST(R1)
R2

BHI

005630

015214

MACY11 30A(1052)
26-JUN-80 10:53 PAGE 101
TO = DESIRED TEST INPUT ROUTINE

20$

:BR IF TOO MANY (MAX ITER. NO. = 77776)

;GET BUF ADDR. ON STACK FOR OCTBIN
sCHECK DIGITS AND CONVERT TO BINARY
;ERROR RETURN ADDRESS FOR OCTBIN
;GET ITERATION NUMBER
;SEE IF > 77776
:BR_IF TOO BIG
sPUT ITERATION NUMBER INTO TEST LIST
;SEE IF (!) WAS TYPED
:BR IF NOT (!)

10%
BEQ
;PROPAGATE CURRENT ITERATION NO. TO THE END OF TSTLST
168:
MOV
R1,R2
:COPY INDEX
ADD
#TSTLST,R2
;GET POSITION IN LIST
CMP
:;;LTS!-Z.RZ
;SEE IF AT END OF LIST
BNE
:BR IF NOT DONE
ASKTMD
JMP
;GO ASK FOR NEW TEST INPUT MODE
17%:
MoV
TST%?T(R1).TSTLST02(R1) sPROPAGATE TO NEXT WORD
ADD
{4
s INCREMENT INDEX
16%
BR
sBR TO CONTINUE
,BUFFO
TYPE
208:
sECHO BAD InPUT
TYPE

B8R

$QUES

:TYPE <?> AND <CR>,<LF>

;G0 ASK AGA LN

;ASK FOR DESIRED OPERATIONAL PAR AMETER INPUT MODE
EXPLAN
INPUTP: TYPE
JEXPLAIN INPUT MODES
ASKMDE: CLR
STALLS
sINHIBIT STALL BETWEEN OPERATIONS
PC,ENBCSR
JSR
sENABLE MEMORY PARITY CHECK
TYPE
.PARMDE
:?egefgp RESIRED INPUT MODE
TYPE

JSR
DRVTST

ASKMDE
ASKMDE

1ST

2%:

BNE
TYPE
TYPE

.PROMPT

PC,RDCHRS

sREAD RESPONSE TO MODE QUESTION

s(*7) RETURN ADDRESS
s(*U) OR ERROR RETURN ADDRESS
sSEE IF NULL INPUT
:sBR IF ANY INPUT
sECHO BAD INPUT

3]
.BUFFO
.SQUES

s(*C) RETURN ADDRESS

sTYPE <?7> AND <CR>,<LF>

R 6NEO

RK611/706 sSS ViY2

5143
51646
5145
5146
5147
5148
5149
5150
5151
515§
5153
5156
5155
5156
5157
5158
5159
5160
5161
5162
5163
5164
5165
5166
5167
5168
S}?S

016026
016030
0160
016040
016044
016052
016054
016060
016066
016070
016074
016102
016104
016112
016114
016120
016122
016130
016132
016136
016142
016144
016152
0161564
016160
016164
016166

RONE .P11

2171

5172
5173
5174
5175
5176
5177
5178
5179
5180
5181
5182

5185
5184
5185
5186
5187
5188
5189
5190
519N
519§
5193
519%
5195

g196
197

5198

26=JUN-80 10:48

000754
022737
001 ;
0001
022737
00100;
0001;
022737
00100;
000137
022737
001345
023737
003403
104401
000717
023737
003405
104401
104401
000706
023737
003405
104401
104401
000675
000137

MACY11 30A(1052)

26-JUN-80

10:53

PAGE 102

ASKMDE

;60 ASK AGAIN

68
TYPLST
#'0,BUFFO
8%
OPNLST
#'S,BUFFO
108
SETPRM

:BR IF NOT (T)
:JUMP TO THE_TYPE LIST ROUTINE
:SEE_IF (0) TYPED
:BR_IF NOT (0)
:JUMP TO THE_OPEN LIST ROUTINE
:SEE IF (S) TYPED
:BR_IF_NOT (S)
:JUMP TO THE SET INDIV. PARAM. ROUTINE

000124

005264

016172
000117

005264

6$:

016444
000123

005264

016730
000122

005264

108:

005670

005672

BNE
(WP

005676

TYPE
gR
(WP

,SECNLI
ASKMDE
$2,S3

TYPE
TYPE
BR

,SECNL2
,NOTALD
ASKMDE

208:

BLE
TYPE
TYPE
BR
JMP

208
, TRKNLW
,NOTALD
ASKMDE
RUNTST

.SBTTL

TO = TYPE (T) LIST ROUTINE

128:

010457
010440
005664

005666

14$:

01047
010440

017164

C(MP

#'T,BUFFO

(MP

#'R,BUFFO

BNE
JWP
C(MP
BNE
JMP
(MP
BNE
JMP

28
50,81

BLE

010427

005674

SEQ 0100

TO = DESIRED TEST INPUT ROUTINE

BLE

(WP

12§

148

FT,LT

:SEE IF

(T)

TYPED

:SEE_IF

(R)

TYPED

:BR IF NOT (R), TO ECHO BAD INPUT
:COMPARE 20(DEC) SECTOR LIMITS

:BR_IF SO NOT > §1

:TYPE "'S0>S1 NOT ALLOWED'
:GO ASK AGAIN FOR PARAME TERS
:COMPARE_22(DEC) SECTOR LIMITS

:BR IF $2 NOT > S3

:TYPE ''$2>S3'
:TYPE "NOT ALLOWED"'
:G0 ASK _AGAIN FOR PARAME TERS

:COMPARE CHOSEN TRACK LIMITS

:BR_IF FT NOT > LT
STYPE “FT>LT"
:TYPE "NOT ALLOWED"'
:G0 ASK AGAIN FOR PARAMETERS
;60 RUN THE TESTS

;*THIS ROUTINE TYPES THE ENTIRE PARAMETER LIST ON THE
s*CONSOLE, LINE BY LINE. EACH LINE HAS THE FOLLOWING
;*FORMAT:

XX=YYYYYY , WHERE XX IS A PARAMEYER MNEMONIC

s*AND YYYYYY IS THE VALUE OF THE ®ARAMETER IN OCTAL.
;*TYPING (*C) CAUSES IMMEDIATE RETU=N TO DRVTST,
s*AND (*Z) CAUSES RETURN TO ASKMDE.
016172
016172

0161764
016200
016204
016210
016214
016216
81 26
0
81
1
01624
0O ‘s
01625

016256
816266

016266

005001
004737
004737
104401
005737
0014
122737
00103;
0001
122737
1 ;
1
737
737
022761
001002

062701

TYPLST:

030536
034350
001315
005522

18:

000003

005522

014374
32

005522

015760
030556
0305
040515

000002

4s:

6$:
006010

8s:

CLR
JSR
JSR

R1
PC,PREPKB
PC,TYPPRM

BEQ
CMPB
BNE
JMP
CMPB
BNE
JMP
JSR
JSR
CHP
BNE
ADD

8s
#003, INTCHR
L%
DRVTST
#032, INTCHR
6$
ASKMDE
PC,ECOBAD
PC,PREPKB
#'MA PRANEM(RY)
108
.

TYPE
IST

+SCRLF
INTCHR

sINITIALIZE INDEX
;PREPARE FOR POSSIBLE KBD INPUT
sTYPE CURRENT PARAMETER AND VALUE

sTYPE <CR>,<LF>
sSEE IF ANY INPUT AT KBD

:BR_IF NO INPUT
;SEE IF (*C) TYPED
:BR _IF NOT (“C)
sJUMP TO ASK FOR DRIVE(S) AGAIN
;SEE IF (*2) TYPED
;BR _IF NOT (*2)
:JUMP TO ASK FOR NEW MODE
:ECHO BAD INPUT
sPREPARE FOR POSSIBLE KBD INPUT
;SEE IF PARAM, IS (MA)
:BR _IF NOT (MA)
s INCREMENT PARAMETER INDEX

2 R6NED RK611/706 35S ViY2

CIRONE.P11
$199
§200
§201
sgog
§203
5204
5205
5206
§207

26-JUN=B80 10:48

MACY11 30A(1052)

062701
01010
ogzro
022702
0013
032737
001005
042777
000137

000002

5209 016334

104401

010616

f28:

005522

148:

§210
§211
§212
§213
5214
§215
5216
§217
5218
§219
5220
5221
szzg
§223

016340
016342
016346
016350
016356
016360
016364
016372
016374
016400
016404
016410
016414
016420

005001
005737
oo1a§o
122737
oo1oo;
000137
122737
001002
000137
004737
004737
004737
104401
062701

§225
sggg

016430
016435

001344
042777

108:

ADD
MOV
ADD
CMP
BNE
BIT
BNE
BIC
JMP

005660
005706
100000

005700

000100
015760

162614

005522

014374
000032

005522

015760
030556
030536
034430
001315
000002

TYPE

.
168:
188:

208:

5224 0166§3 022701 000040
322‘ 016440

000137 015760

8
PAGE 103

.01
R1,R2
#PRALST,R2
#PRDFLT,R2
1%
#BIT15,PT
128
#B176,a87kS
ASKMDE

: INCREMENT PARAMETER INDEX
:GET COPY OF INDEX
:COMPUTE POSITION IN LIST
:SEE IF DONE WITH LIST
:BR IF NOT DONE vgt
:SEE IF PATTERN 15 SPECIFIED
:BR IF PATTERN SPECIFIED
:DISABLE KBD INTERRUPT
:JUMP TO ASK FOR NEW MODE

,PFIFIN

:TYPE "USER=-DEF INED PATTERN 15 :''

#32. R

:SEE IF 16 WORDS TYPED

:TYPE OUT USER=-DEF INED PATTERN 15

000003

000100

10:53

T0 = TYPE (T) LIST ROUTINE

016272
016276
016
016
016310
016312
016320
016322
016330

§208

26=JUN-80

CLR
TST
BEQ
CMPB
BNE
JMP
CMPB
BNE
JMP
JSR
JSR
JSR
TYPE
ADD

R1
INTCHR
208
#003,INTCHR
168
DRVTST
#032,INTCHR
18%
ASKMDE
PC,ECOBAD
PC.PREPKB
PC,TYPPAT
LSCRLF
"2 R

BNE
BIC

148
#B176,387KS

CMP

162504

§229
§230

JMP

ASKMDE

:INITIALIZE WORD INDEX
:SEE IF ANY INPUT
:BR IF NO INPUT
:SEE IF (*C) TYPED
:BR IF NOT (*C)
:JUMP TO ASK FOR DRIVE(S) AGAIN
:SEE IF (*2) TYPED
:BR IF NOT (*2)
:JUMP TO ASK FOR NEW MODE
:ECHO BAD INPUT
:PREPARE FOR POSSIBLE KBD INPUT
;TYPE WORD XX = YYYYYY
:TYPE <CR>,<LF>
: INCREMENT INDEX

:BR IF NOT DONE YET
:DISABLE KBD INTERRUPT

:JUMP TO ASK FOR NEW MODE
.

§231
5232
5233

.SBTTL TO - OPEN (0) LIST ROUTINE
:eTHIS ROUTINE IS USED TO EITHER REQUEST LOADING OF ALL
:eDEFAULT PARAMETERS INTO THE PARAMETER LIST, OR TO

;g;g

SeDRVTST, AND (*2) CAUSES RETURN TO ASKMDE.

1«SEQUENTIALLY OPEN EACH PARAMETER FOR ALTERATION BY
teTTY INPUT. TYPING (“C) CAUSES IMMEDIATE RETURN TO

5234
5235

5238
5239

5240
5241
§262
5243
5264
§245
52646

5§24

5248
3249
250

5251

525

§25%
§254

016444

01644%
016450
016456
016456
016460
016462
016464

104401
004737
014374
015760
016444
ggsroo
001433

016476
16476

001405
104401

016506

000756

016510
016514

012700
012702

010534
034002

16496 022737 000104 005264

816502

106401

oosiot
001314

005706
005660

OPNLST:

TYPE
JSR
DRVTST
ASKMDE
OPNLST
ST
BEQ

,DFQUES
PC,ROCHRS

RO
NOTDF T

;ASK IF ALL DEFAULT VALUES DESIRED
*READ RESPONSE TO DEFAULT QUESTION
:(“C) RETURN ADDRESS
:(*2) RETURN ADDRESS
:(*U) OR ERROR RETURN ADDRESS
:SEE IF NULL INPUT
:BR IF DEFAULTS NOT REQUESTED

BEQ
TYPE

LODFPT
,BUFFO

:BR IF DEFAULTS DESIRED
:ECHO BAD INPUT

CMP

TYPE

#'0D,BUFFO
$QUES

:SEE IF (D) TYPED
:G0 ASK AGAIN

:LOAD ALL DEFAULT VALUES INTO PARAMETER LIST

LODFPT: MOV
MOV

#PROFLT,K)
#PRALST,R2

:LOAD DEFAULT LIST ADDRESS
:LOAD PARAMETER LIST ADDRESS

SEQ 0101

0 RK611/06 sS ViY2
Pn
26=-JUN-80 10:48

5264

01
01

0
01
0
01

01
01
0165564

0
02%
001374
01202

MACY1 39A(1052) 26=JUN-B0 10:53
0 - OPEN (0) LIST ROUTINE
4$:

MOV

68:

BNE
MOV
JMP
JMP

1005
12737

000137
000137
005001
004737
104401
104401

CMP
BNE

TSTE

5737

"EBE;

WAV AW
NININININININOND

GRITSEIER

NOTDFT: CLR

013737
004737
016716

004737
062701
010102
062

5296

SEEESR £ E PR R
pey

016722
016726

8
PAGE 104

(RO)+, (R2)+

sLOAD
A DEFAULT VALUE

#PRDFLT,R2
‘s

:SEE IF DONEYET
:BR IF MORE VALUES TO LOAD YET

68
#1,8E0PCT
STPASS
ASKMDE

:BR IF NOT DEFAULT MODE
:SET PASS COUNT = 1
160 RUN DFLT TESTS
SJUMP TO ASK FOR NEW MODE

MDFLAG

*SEE IF DEFAULT MODE

*INITIALIZE INDEX

-TYPE CURRENT PAIAHETEI AND VALUE
Bs:
JSR
PC,TYPPRM
:TYPE PARAMETER AND VALUE
TYPE
TYPE

:READ AND CHECK
JSR
DRVTST
ASKMDE
8s
st
BNE
CMP
BNE
ADD
BR
108:
CMP

BLT
MOV

WAVAWVAVAVA
WA VAVARWAWA A VA VAVAVAWVA

lalinl

,SPACEY
.PROMPT

INPUT, IF ANY
PC,RDCHRS

STYPE A SPACE
STYPE ASTERISK AND SPACE

°READ OCTAL DIGITS TYPED
1(*C) RETURN ADDRESS FOR RDCHRS
:(*Z) RETURN ADDRESS FOR RDCHRS
1(*U) OR ERROR RETURN ADDR. FOR RDCHRS
RO
SSEE IF ANY INPUT
:BR IF ANY INPUT
108
# WA PRMNEM(RY) :SEE IF (MA) JUST DEFAULTED
.aa IF NOT (MA
128
#2 R
: INCREMENT xnoex
:BR TO MOVE ON TO NEXT PARAMETER
12%
#10,R0
SSEE IF 8 CHARACTERS TYPED

148
#BUFFO.-(SP)
PC,OCTBIN

‘BR IF MORE THAN 8 TYPED
:PUT BUFFER ADDR. ON STACK FOR OCTBIN

SCHECK DIGITS AND CONVERT TO BINARY
JSR
148
*ERROR RETURN ADDRESS FOR OCTBIN
MOV
(SP)+,LOMOCT
:GET LOW BINARY BITS
MOV
SHIOCT,HIGOCT
:GET WIGH BINARY BITS
:CHECK PARAMETER VALUE AND PUT INTO LIST
JSR
PC,CHKPRA
:CHECK VALIDITY OF PARAM VALUE
:ERROR RETURN ADDR. FOR CHKPRM
148
-OPEN USER=-DEF INED PATTERN 15 FOR MODIFICATION, IF NECESSARY

i2s:

JSR

PC,MODP1S

;MOVE ON TO NEXT PARAMETER
#2,R1
ADD
R1.R2
MOV
#PRALST,R2
ADD
#PRDFLT.R2
CMP
8s
BNE
ASKMDE
JMP
148:
TYPE
,BUFFO
$QUES
TYPE

B8R

LSBTTL

: INCREMENT THE PARAMETER INDEX
1GET COPY OF INDEX
*COMPUTE POSITION IN LIST
SSEE IF DONE WITH LIST
:BR IF NOT DONE YET
SJUMP TO ASK FOR NEW MODE
:ECHO BAD INPUT
:TYPE <7> AND <CR>,<LF>

:BR TO ASK AGAIN

T0 = SET (S) INDIVIDUAL PARAM ROUTINE

SeTHIS ROUTINE 1S USED TO ALLOW SETTING OF ANY INDIVIDUAL

«PARAMETER VALUE BY TTY INPUT. A PROMPTER (>) IS

*eTYPED AND THE ROUTINE WAITS FOR INPUT OF THE FORM
s XX=YYYYYY, WHERE XX IS THE MNEMONIC FOR ANY VALID

*ePARAMETER N THE LIST, AND YYYYYY IS THE DESIRED PARAMETER
“eVALUE IN OCTAL DIGITS. THE PROGRAM THEN ASKS FOR ANOTHER

SEQ 0102

CleNEO RK611/06 $S ViY2

CZRONE.P

26-JUN-80 10:48

MACYN 30A(1052)

26=JUN-80

10:53

PAGE 105

T0 = SET (S) INDIVIDUAL PARAM ROUTINE

5311

; tPARAMETER BY TYPING *> " AGAIN. TYPING (1) CAUSES

§31
§314
§315

: *ASKMDE.

5316

:«IMMEDIATE RETURN TO DRVTST, AND (*Z) CAUSES RETURN TO
016730

016730

104401

013277

§318

016734

004737

5319 016740 014374

034002

5320

016742

015760

5322
§323

016746
016752

020027
002005

000004

§317

5321 016744 016730
§324
5325
5326
§327
5328
5329
5330

5331
5332
§333
5334
5335
§336
5337
3338
53

016754
016760
016764
016766
016772

016776
016776
017004
017006
017012
017014
017020
017026
017026

104401
104401
000761
020027
003370

005001
023761
001411
062701
010102
062702
022702
001364
000752

SETPRM:

§351
SBS;
5353
5354
§355
5356
§357
§358

g!SO

360
331
s32
§363
s34

017074
017102
017104
017106
017110
017112
017114
017120
017122
017126
011
017134
017136

001411
122762
001340
005202
122762
001333
005202
020200
002330

;TYPE '> '' PROMPTER

JSR__

DRVTST

PC,RDCHRS

sREAD INPUT LINE

CMP
BGE

RO, #4
68

SETPRM

005264
001314

«:

000013

005264

006010

000002

005660
005706

000040

005264

000075

005264

000040

ios:

062702
01024
37
016754
012637

005264

000010

054456
005470

5365 017142 013737 054610 005472
5366 017150 004737 035006

:(*U) OR ERROR RETURN ADDR. FOR RDCHRS
:SEE IF AT LEAST & CHARACTERS TYPED
:BR IF AT LEAST & TYPED

TYPE
,BUFFO
:ECHO BAD INPUT
:TYPE <?> AND <CR>,<LF>
., SQUES
TYPE
BR
SETPRM
:BR TO ASK FOR INPUT “AGAIN
6s:
CMP
RO.M1.
:SEE_IF ELEVEN OR LESS CHARS TYPED
BGT
6%
:BR IF MORE THAN ELEVEN TYPED
;SEE IF THIS MNEMONIC RESIDES IN PARAM MNEMONIC TABLE
(LR
RI
;INITIALIZE PARAMETER INDEX
8S$:
CMP
BUFFO,PRMNEM(R1) ;TRY TO MATCH 2-CHAR MNEMONIC
BEQ
108
:BR IF PARAMETER FOUND IN TABLE
ADD
#2,R1
: INCREMENT INDEX
MOV
R1,R2
:GET COPY OF INDEX
ADD
#PRMLST ,R2
;SEE IF ALL ENTRIES HAVE BEEN CHECKED
CMP
#PRDFLT,R2
BNE
8s
:BR IF MORE TO CHECK YET
:BR TO ECHO BAD INPUT
‘s
BR

128:

122762
001003
005202
020200
002321
160200
020027
003315

(1C) RETURN ADDRESS FOR RDCHRS
:(*Z) RETURN ADDRESS FOR RDCHRS

;CHECK FOR VALID LINE FORMAT

§341 017034 122762 000075 005264
017042
017044
017052
017054
017056
017064
017066
017070
017072

.PRMPSP

ASKMDE

§3.0 017030 012702 000002
5342
23485
5344
5345
5346
§347
5348
§349
5350

TYPE

;READ AND CHECK INPUT, IF ANY

us:

mov

#2,R2

BEQ
CMPB
BNE
INC
CMPB
BNE
INC
(NP
BGE

12§
#040,BUFFO(R2)
48
R2
#'=,BUFFO(R2)
48
R2
R2,RO
4%
#040,BUFFOCR2)
14%
R2
RZ RO

CMPB

C(MPB
BNE
INC
CMP
BGE
S8
(NP
BGT

#72,BUFFO(R2)

R2.RO
RO,#10
4%

;INITIALIZE BUFFER POINTER
:SEE IF NEXT CHAR IS

:BR IF 1T IS "'’
;SEE IF NEXT CHAR IS A SPACE
:BR TO ECHO BAD INPUT
: INCREMENT BUFFER POINTER
;SEE_IF NEXT CHAR IS
:BR_TO ECHO_INVALID INPUT
: INCREMENT BUFFER POINTER
:SEE_IF_MORE CHARS LEFT IN BUFFER
:BR TO ECHO INVALID INPUT

;SEE IF NEXT CHARACTER IS SPACE
:BR IF NOT A SPACE
: INCREMENT BUFFER POINTER
:SEE IF MORE CHARS LEFT IN BUFFER
:BR IF NONE LEFT
:SUBTRACT POINTER FROM CHAR COUNT
:SEE_HOW MANY CHARS LEFT
:BR IF TOO MANY LEFT

;CHECK FOR LEGAL PARAMETER VALUE'
ADD
MOV
JSR
1]
MOV

MOV
JSR

#BUFFO,R2
R2,=(SP)
PC,OCTBIN

(SP)+,LOMOCT

SHIOCT,HIGOCT
PC, CHKPRM

:GET ADDRESS OF DIGITS
:PUT IT ON STACK FOR OCTBIN
:CHECK DIGITS AND CONVERT TO BINARY
:ERROR RETURN ADDR. FOR OCTBIN
:GET LOW BINARY BITS

:GET HIGH BINARY BITS
:CHECK VALIDITY OF PARAMETER VALUE

SEQ 0103

CIR6NED RK611/06 3S ViY2
CIR6NE.P11
26-JUN-80 10:48

$367

017154

016754

§369

017156

004737

5368

JSR

;

017164

§390
53901
§392
5393
394
395
$396
5397
5308
5399

017170
017174
017176
017200
817502
017204
o17202
017212
017214
017220

5601
56402
5403
54064
5405
5406
5407
5408

017226
017232
017236
017240
017244

017164

104401

RUNTST:
:INPUT THE DESIRED NUMBER OF PROGRAM PASSES

010742

004737
01437
015760
017164
57
00140
022700
002005
104401
104401

4$:

034002

000005

005264
001314

68:

012746
004737
017214
012637
001763

005264
054456

8s:

017246
017252

005037
112737

001326
000001

5410
5611
§412
5613
5614
5415

017266

005037

001330

017272
017
017304
817;10

012737
0127
10503
5037

5417

017320

022737 000010 005500

5409

5419

5418
5419
§420
5421
5622

;RETURN TO ASK FOR ANOTHER PARAMETER

:* (ALL DRIVES) IS COMPLETED.

5387
5388

5400

sefPanOP15

.SBTTL TO = RUN (R) TESTS ROUTINE
;*THIS ROUTINE IS ENTERED TO SET UP THE RUNNING OF TESTS,
;*WHOSE PARAMETERS WAVE BEEN DETERMINED. IT FIRST ASKS
:*FOR THE DESIRED NUMBER OF PROGRAM PASSES, AND STORES
;«THIS IN SEOPCT FOR THE END OF PASS ROUTINE. THEN, THE
;*DRIVE LIST IS SCANNED FOR THE FIRST DESIRED DRIVE, AND
;*THE MEADER ON SECTOR O IS READ TO GET THE FORMAT FOR THIS
:*DRIVE, THIS IS STORED IN THE FORMAT BYTE, AND A JUMP IS
:*MADE TO THE FIRST TEST.
;*THE END OF PASS ROUTINE RETURNS TO 'NEWDRV'' TO SELECT
++EACH SUCCESSIVE DRIVE FOR TESTING, UNTIL THE ENTIRE PASS

gggz

5389

:ERROR RETURN ADDR. FOR CHKPRM

: OPEN usen-oerxneo PATTERN 15 FOR MODIFICATION, IF NECESSARY

034462

g%;g 017162 000662
5372
5373
5374
§375
5376
5377
5378
5379
§380
5381
5382
5383
5384

8
MACY11 30A(1052)
26-JUN-80 10:53 PAGE 106
TO = SET (S) INDIVIDUAL PARAM ROUTINE

017224

017260

17314

8'7353
0173
01733¢
017340
017344

000757

023746

012737

s;gr

oo1og;
137
013700
105760
001752

177777

)

“000000
881100
3130
005522

005500

023714
005500
005610 .

003120

005500
177776

TYPE

JSR
DRVTST
ASKMDE
4$
ST
BEQ
CMP
BGE
TYPE
TYPE

,ENTPAS

PC,RDCHRS

RO
6%
#5,R0
8%
,BUFFO
$QUES

;ASK FOR NUMBER OF PASSES

*READ RESPONSE
:(*C) RETURN ADDRESS
:(*7) RETURN ADDRESS
:(*U) OR ERROR RETURN ADDRESS
:SEE IF NULL INPUT
160 ASK AGAIN
:SEE HOW MANY CHARS TYPED
:BR IF S OR LESS
:ECHO BAD INPUT

;60 ASK AGAIN

#197777,0RIVE

:INITIALIZE DRIVE NO. TO -1

MOV
#BUFFO,-(SP)
:GET BUF ADDR ON STACK FOR OCTBIN
JSR
PC,OCTBIN
:CHECK DIGITS AND CONVERT TO BINARY
68
:ERROR RETURN ADDRESS FOR OCTBIN
MOV
(SP)+,8EOPCT
:SET DESIRED NO. OF PASSES (1-77777)
BEQ
68
:BR IF 0, TO ASK AGAIN
;THIS IS THE ACTUAL START OF A RUN WITH X PASSES
STPASS: CLR
$PASS
;INIT. THE PASS NUMBER
MOVB
#1,TSTING
SSET “RUNNING 15515" FLAG

NEWPAS: MOV

CLR
$DEVCT
:INIT APT DEVICE COUNT TO 0
;CHECK DRIVE LIST FOR MORE DRIVES TO TEST ON THIS PASS
NEWDRV: MOV
#PRO, 3PS
:RE-ESTABLISH PRIORITY 0
MOV
#STACK, SP
:RESTORE THE STACK
CLRB
DRVERS
:CLEAR ERROR COUNT FOR CURRENT DRIVE
CLR
INTCHR
SCLEAR TTY INPUT BUFFER WORD

INC

CMP

28:

BNE
JMP
MOV
TSTB
BEQ

DRIVE

#10,DRIVE

2%
DUNPAS
DRIVE ,RO
DRVLST(RO)
NEWDRV

/~ INCREMENT DRIVE NUMBER

//“SEE IF DONE WITH THIS PASS

:BR IF NOT DONE CMECKING LIST
:JUMP IF DONE WITH THIS PASS
:GET NEW DRIVE NUMBER
:SEE IF THIS DRIVE IS MARKED IN LIST
:BR IF NOT MARKED, TO CHECK ANOTHER

SEQ 0104

;

5423
5426
56425
5626
5627
56428
5429
5430
531
5432
5633
5434
5435
5436
gzgz

017 g
017352
017 Sg
017
017
017370
017376
017
017
017
017
017434
017442
017450
017456

105037
005037
105760
0010
105037
012737
012737
012737
012737
012737
012737
012737
012737
012737
000436

001102
001304
005620

5439
56440
5441
5442
56443
5644
56445
56446
5647
5648
5449
5450
5451
5452
5453
5454
5455
5456
g:g;

017460
017466
017474
017502
017510
017516
017526
017532
017540
017546

152737
012737
012737
012737
012737
012737
012737
012737
012737
012737

000004
001450
001455
001456
001456
001456
001456
001000
002025
012025

017554

010037

001332

5459
5660
5661
56462
56463
5666
5465
5666
5467
56468
56469

017560
017566
017572
01
017
01
01
01
017620
01
017626

004737
112765
737
013712
032712
001775
013712
032712
001775
105037
013737

032250
000125
042510
020004
200

5470
56471
5472

003124
000624
000631
00063¢
00063
00063
00063
000400
000025
010025

MACY11 30A(1052)

26-JUN-80

T0 = RUN (R) TESTS ROUTINE

CLRB
TYPED:

¢ R

TSTB

017776

$TSTNM

INIT TEST NUMBER TO 0

STIMES

SINIT ITERATION COUNT

18
TYPFAT

:BR IF YES
‘ELSE LOAD ALL RKO6 PARAM

DTYLST(RO)

:SEE IF RKO7

#632,LC
#632,LSTCYL
#632 ,PROFLT+2
#632.PRALIN+6
#400,MHOLD1
#25,H0LD3

#10025, HOLD4

020006

003124

9
PAGE 107

2624 ,LCM6
#631.PRAL IM+2

1$:

81s8

#8.CDT,TYPFMT
#1450,LCM6
#1455 PRALIM+2
#1456,
LC
#1456,LSTCYL
#1456 PROFLT+2
#1456
. PRALIM+6

:LOAD RKO7 PARAMETERS

#1000, H0LD1
#2025 . HOLD3

#12025,HOLD4

020006

017554
—

—

HDAL 1

138
HDAL1+1

:ARE WE DOING JUST HEAD=-ALIGNMENT?

SYES, SKIP NEXT
‘WHICH RETURN

017634
017642
017646

013737
0?576
032762

020006
0002

:SECOND RETURN
FINTGO
:GO TO ALIGNMENT CODE
a# INTGON
:GO TO AUTO ALIGNMENT CODE
JMP
:29%:
RO,SUNIT
:SET DRV NO FOR APT
i3s:
mov
:READ THE HEADER ON SECTOR 0,TRACK 0,CYL O, AND GET THE DRIVE FORMAT
PC,INITSS
-INIT. DRIVER PARAMS AND S.S.
JSR

000001

L$:

6$:

Move
JSR
MOV
BIT

BEQ

MoV

BIT

003125
005674
005676
0000
001000

017672
017
017706

013737
013737
004737

005672
0%570‘
032250

#ROHEAD,P.CMND(RS) ;SET READ MEADER COMMAND
HOLD3, (R2)

#8177, (R2)
$
HOLD4, (R2)
#B177,(R2)
$
FORMAT

g%.?g
L

8s:

MOV

;D0 READ HEADER
:ISSUE RD HDR WITH FMT BIT = 0
;CHECK FOR C. READY IN CS1
:BR IF NOT RDY YET

sISSUE RD HDR WITH FMT BIT = 1
;CHECK FOR C. READY IN CS1
:BR IF NOT RDY YET

sINITIALIZE FORMAT BYTE T0 0

;INIT SECTOR LIMITS FOR 22(DEC) SECTOR FMT

RKDB(R2)

;POP SILO ONE TIME

g?.'g

sINIT SECTOR LIMITS FOR 20(DEC) SECTOR FMT

#BIT9,RKDB(R2)
8s
#B.CFMT,FORMAT

s
5475 Qireds
017 182437
01;7 7 onoozo
56;0
56476
5477
5478

10:53

ST,STALLS

PC,INITSS

;TEST FORMAT BIT IN HEADER WORD 2
:BR_IF 22 SECTOR FORMAT
;SET 20 SECTOR FORMAT FOR THIS DRIVE

sSET NUMBER OF UNIT STALLS DESIRED
;INIT THE S.S.

SEQ 0105

[alal

CZR6NED RK611/06 SS VEY2
CZR6NE.P11
26=JUN-80 10:48

480

5481
5482
54,83

5484
5485

5486

S4B87
5488
5489
5490
2281

5493
§49%
§495
5496
§497
5498
5499
§500

26-JUN-B80 10:48

017712

017716

004737

113737

041066
005500

MACY11 3?A(1052)

011070

00101;
004737

017754
017762
017764
017770

032737
001ao;
004737
005037

017750

017774

017776
020000
020002
020004
020006

004737

000405

000000
000000
000000
000000
000000

000020
041356
005522

;READ BAD SECTOR FILE FOR THIS DRIVE

BISB
TYPE
ST

#'0,DRVNO
TSTORN
$PASS

:CONVERT TO ASCII
:TYPE "‘TESTING DRIVE X'
*SEE IF THIS IS FIRST PASS

JSR

005702

SEQ 0106

PC,REDBSF

BNE
JSR

035312

035432

10:53

JSR

MOVB

017726 152737 900060 011070
017732 104401 011051
017736
005737 001326
01774
017744

26=JUN-80

0 - RUN (R) TESTS ROUTINE

9
PAGE 108

19¢:

BIT
BEQ
JSR
CLR

LCM6:
LSTCYL:
HOLD1:
HOLD3:
HOLD4:

0
O
O
0
0

DRIVE,DRVNO

108
PC,DRVSER

PC,CRTSER

#BIT4,CS
108
PC,TYPBSF
INTCHR
ST

:GET DRIVE NO.

‘BR IF NOT FIRST PASS
:TYPE 'DRIVE SER. NO.

:TYPE "'CART. SER. NO.

XXX’

0000XXXXXX"*

:SEE IF BAD SECTORS SHOULD BE TYPED
:BR IF NOT
;TYPE BAD SECTOR FILES
PINIT. TTY INPUT CHAR BUFFER
::60 TO FIRST TEST

TMTM

CIR6NEO RK611/06 S ViY2

CIR6NE.P11

CIR6NED RK611/06 S ViY2

CZR6NE .P1

26=JUN-80 10:48

MACY11 3??(1052)

5502

PNONINININIRNINININ)
b b cd
e
) ad d
:20?:U?=Uwz:nzvnflvflflU“fiU“flU“fiUNflU“fiU“flU“flU“flU“flU‘
W

TT
T
R R TR T T T L

;*OFFSETS, UNTIL EITHER A "DATA TYPE'' ERROR OCCURS, OR THE FULL RANGE
:*OF POSITIVE OFFSETS WAVE BEEN APPLIED. THEN, THE SAME SECTOR 1S WRITE
:*CHECKED WITH INCREASING NEGATIVE WEAD OFFSETS, UNTIL FAILURE OR
s*MAXIMUM NEGATIVE OFFSET IS APPLIED. THIS IS DONE FOR ALL THE SECTORS
s*ORIGINALLY WRITTEN, IN THE FOLLOWING ORDER : SECTORS FS AND LS ON
;*CYLINDERS FC AND LC FOR TRACK O, THEN FOR TRACK 1, AND FINALLY FOR
s*TRACK 2. THE OFFSET=TO=-FAILURE RESULTS ARE REPORTED IN ORDER OF

s*INCREASING TRACKS, AS FOLLOWS :
e

;* OFFSET=TO-FAILURE MEASUREMENTS :
b

:* TRACK
]
HA

CYLN

SECT

XXX

<+OFST
<-OFST
(UIN)
(UIN)
XXXX - XXxx

XXX

XXXX

XXX

ETC.

XXXX

XXXX
XXXX

:*NOTE: IN AN ADRS 200 DEFAULT RUN, FS DEFAULTS TO O, AND LS DEFAULTS
:«TO 10(DEC), FOR THIS TEST.

020010

':'QQ'.itt'.l.""'.t""""""tt'tttt'i!t".t't'tt"'t..'.'.tt

012737
004737
004737
000137

000001
033640
033706
021136

020034
020040

004737
004737

032250
030536

020044

105737

003116

020052
020056
0200664
020072
020100

005037
olgrsr
013765
113765
105065

005506
000012
005660
005506
000005

005510
000002
000004

§547
5548
§549
§550
§551

020158
0201
020122
0201
0201

023737
oo1gg;
005
01270;
80673

020000

005662

§553
§554
§555
5556

020142
8 14
020150
020154

005365
1oocg;
004737
oo;res

WVAVAWAWA AW WA AW

SEQ 0107

:*THEN, EACH DESIRED SECTOR IS WRITE CHECKED WiTH INCREASING POSITIVE

020012
020020
020024
020030

541
54
543
5544
§545

OFFSET=TO=FAILURE MEASUREMENT”

U“D-‘Choag\J‘UN¥Aflfifl-‘!flxfil\“’\fl’Wflhhd<>¢N"UON#J‘U“U-‘CJ%C-

VTA VAWV A VAWV AWV AV

VAWV AV AWV

540

26=JUN-80 10:53 DPAGE 109

s*TEST 1
OFFSET-TO-FAILURE
AgxflEflENYS
;*IN THIS TEST A REPEATED PATTERN 072307(OCT) IS WRITTEN INTO ALL
;*WORDS OF SECTORS FS AND LS ON TRACKS 0-2 OF CYLINDERS FC AND LC.
s*THE_SAME SECTORS ON ADJACENT CYLINDERS ARE THEN WRITTEN WITH
;* 167230(0CT) (TO ESTABLISH A KNOWN PATTERN) , BUT THEY ARE NOT TESTED.

AAVAAVAIW

5503
9504
5505
06
5507

020050 001005

001324

T§11:

;INITIALIZE PARAMETERS, WRITE THE SECTORS, AND WRITE CHECK THEM
TSTB
MDFLAG
;SEE IF ADRS 200 DEFAULT RUN

BNE

3$:

§546 020104 013737 005662 005504

sssg 0201

005504
072307
037562

4$:

000002

68:

:BR IF NOT

FS
#0..L5
FC,P.CYLN(RS)
FS.P.SECT(RS)
P.TRCK(RS)

CMP
BNE
DEC
MOV
JSR

LsfcyL,Le
48
CYLNDR
#72307,R3
PC,WRTSEC

;SEE IF LC =632/1456
:BR IF NOT 632/1456
SMAKE IT 631 (PRESERVE BSF)
:GET DATA PATTERN
:D0 WRITE AND WRITE CHECK

P.CYLN(RS)
6
PC,WRTSEC
#2°P.CYLN(RS)

INEXT LOWER CYL
:BR IF CYL NEGATIVE
‘DO WRITE AND WRITE CHECK
:NEXT WIGHER CYL

MOV

§557 020162 023765 020000 000002

CLR
MOV
MOV
MOVB
CLRB

MOV

12703 167230
037562

scoPe

MOV
#1,8TESTN
::SET TEST NUMBER IN APT MAIL BOX
JSR
PC.SETTUP
:SET UP FOR LOOP ON ERROR
JSR
PC.CHKITR
:SEE IF ITER. NO. = 0 FOR THIS TEST
JMP
1s12
:JUMP TO NEXT TEST
:RETURN HERE FROM CHKITR IF TEST SHOULD BE RUN
JSR
PC, INITSS
;INITIALIZE DRIVER PARAMS AND SUB-SYS
JSR
PC .PREPKB
:PREPARE FOR POSSIBLE KBD INPUT

DEC
BM]
JSR
ADD

CMP

LC,CYLNDR

#167230,R3

SSET
SSET
:SET
:SET
:SET

FS = 0
LS = 10(DEC)
CYL = FC
SECTOR = FS
TRACK = 0

:DATA FOR AJACENT CYLS

LSTCYL,P.CYLN(RS)

:SEE IF CYL = 632/1456

CZIRONED RK611/06 3S ViY2
CIRONE.P11
26-JUN-80 10:48
5558

020170

E 9
MACY11 30A(1052) 26-JUN-80 10:53 PAGE 110
n
OFFSET=TO=FAILURE MEASUREMENTS

001004

BNE

§560 ozosoo 00140

BEQ

§559 050172 122765 000002 000005

§561 020202 004737 037562
ssog 0 ozog 005365

§563
5564
§565
5566

02021
020216
0202264
ozog;:

1os;os
122765
001340
126537

5568

020236

113765

§570
§571

020250
020252

5567 020

5569 020244

oo1aog
105065

ooorgo
026537

000002

8s:

108:

CMPB

#2,P.TRCK(RS)

:BR IF NOT

106

:BR IF YES, TO PROTECT IT

DEC

P.CYLN(RS)

:RESTORE CYL NO.

JSR

nnmc

D0 WRITE AND WRITE CHECK

000005
000003

000005

000004

005510

INCB
CMPB
BNE
CMPB

005510

000004

MOVB

LS,P.SECT(RS)

BR
CMP

48
:BR TO CONTINUE WRITING
P.CYLNCRS) ,CYLNDR ;SEE IF CYL = LC

000005

BEQ

128:

CLRB

P.TRCK(RS)
#3,P.TRCK(RS)
“$
P.SECT(RS),LS

:SEE IF BSF

148

P.TRCK(RS)

SINCR TRACK
:TRACK = 3 YET ?
:BR IF NOT YET
+SEE IF SECTOR = LS

:BR IF YES

:SET SECTOR
= LS

SSET TRACK= 0

000002

005504

148:

§577 020300 032737 000002

005702

1i68:

BIT

#B1T1,CS

:SEE IF REPORTS ARE INHIBITED

011177
005664
005660
005506

000005
000002
000004

198:

MOV
MOV

ni(RO)*+
corztor

:PREPARE
TO LOAD
:LOAD A WORD
INTO 400(0CT)
BUFFER WORDS

§572
§573
5574
§575

5576

020260 001407
020262 013765 005504 000002
020270 113765 005506 000004
020276 000762

§578
§579
5580
5581
5582
5583
§584

020306
020310
020314
020322
020330

001002
104401
113765
013765
113765

020336

012700

5587
5588
5589
§590

020352
0203564
020356
020

005301
001374
005004
005000

§592
5593

020370

012737

5585
8112720
701 000400
5586 ososaz
020
072307
§591

065636

177777

005550

§594 020376 112765 000117 000001

168
:BR IF YES
CYLNDR,P.CYLNCRS) ;SET CYL
= LC
FS.P.SECT(RS)
:SET SECTOR= FS AGAIN
12¢
:BR TO CONTINUE WRITING

INITIALIZE PARAMETERS FOR OFFSET MEASUREMENTS

BNE
188
:BR IF INHIBITED
TYPE
,OFSHED
:TYPE HEADINGS
18%:
MOVB
FT,P.TRCK(RS)
:SET TRACK = FT
MOV
FC.P.CYLN(RS)
:SET CYLINDER = FC
MOVB
FS.P.SECT(RS)
:SET SECTOR = FS$
:LOAD THE R/W BUFFER roa URITE CHECKS
MOV
oaueur
;SET BUFFER ADDRESS

208:

020362 012737 177777 005546

BEQ
MOV
nova

DEC
BNE
CLR
CLR

MOV

19s
R4
RO

#-1,PLOFST

:DECR COUNTER
:BR IF NOT DONE YET
SINIT (+) OFFSET VALUE
SINIT OFFSET NUMBER TO 0

SINITIALIZE CURRENT FAILING (+) OFFSET

MOV
#-1.NGOF
ST
SINITIALIZE CURRENT FAILING (=) OFFSET
:PERFORM OFFSETS AND WRITE CHECKS

MOVB

#SEEK,P.CAND(RS) ;SET SEEK COMMAND

5596 020410 110065 00
§507 020414 112765 000115 000001

MOVB
MOVB

RO.P.OFST(RS)
:SET CURRENT OFFSET
#OFFSET,P.CAND(RS);SET OFFSET COMMAND

§599 020426 112735 000131 000001
5600 020434
012737 021102 003046

MOVE
MOV

§595

020404

004737

042510

5598

020422

004737

062510

5601
soog
5603

020442
020446
02045

105037
004737
015737

003140
042510
064156

5608
5609
5610
5611
sotg
5613

020504
020510
020514
020516
020520
020522

004737
105737
001020
010001
005200
062704

042510
003140

5604 $o4
5605 8 0466
5606 020472
5607 0205

1 7gs
004737
112765
1osogs

003046

000177 000001
042510
000115 000001
000006

000031

228:

JSR

CLRB
JSR
MOV

MOVB*
JSR
WOVE
CLRB
JSR
1STB
BNE
MOV
INC
ADD

PC.DRVCAL

:PERFORM SEEK

PC,DRVCAL

-PERFORM OF
F SET

WCEFLG
PC.DRVCAL
SERRMOL ,A.ABNL

SCLEAR WRITE CHECK ERROR FLAG
:PERFORM A WRITE CHECK
:RESTORE ERROR MANDLER ADDRESS

PC,DRVCAL
WCEFLG
268
RO,R1
RO
#25. R4

SOFFSET BACK T0 0
*SEE IF A WRITE CHMECK ERROR OCCURRED
‘BR IF AN ERROR OCCURRED
*GET A COPY OF CURRENT OFFSET
* INCREMENT OFFSET
"INCR OFFSET VALUE BY 25(DEC) UIN

#WRTCHK,P.CMND(RS);SET WRITE CHECK COMMAND
#URCKHD.A.ABNL :SET SPECIAL ERROR MANDLER ADDRESS
#SUBCLR.P.CAND(RS) :SET SUBSYS CLEAR CMND
PC,DRVCAL
“CLEAR THE SUBSYSTEM
#OFFSET.P.CAND(RS):SET OFFSET CMND
P.OFST(RS)
:SET OFFSET = 0

SEQ 0108

CIR6NEO RK611/06 S ViY2
CIRONE.P11
26-JUN-80 10:48

F 9
MACY11 30A(1052) 26=JUN-B0 10:53 PAGE 111
3
OFFSET=TO-FAILURE MEASUREMENTS

5614 020526 042701 177700
5615
5616
5617
5618
5619
5620
5621
5622
5623
5624

020532
0205
020540
020544
020546
020552
020554
020556
020562
020564

022701
1317
032700
001015
012700
005004
000710
032700
001403
010437

000060

5626

020572

010437

005546

5628
5629
5630
5631
5632
5633
5634
5635
5636
5637
5638
5639

020600
020606

032737
001051

000002

020610
020614
020616
020620
020621
020622
020626
020632
020634

116501
010146
104403
003
000
104401
016546
104403
004

000005

5641
5642
5643
5646
5645
5646
5647
5648

ogoosg
020642
020646
020650
020652
020656
020662
020664

104401
116501
010146
104404
104401
005737
100003
104401

013252
000004

5650

020672

013746

$625 020570 000403
5627 020576

5640 020635

763

000

5649 020670 000403
5651
5652
565
5654

5655
5656
5657
5658

5659
5660
5661
sseg

5663

020676
020700
020704
020710

020712
020716
020720
020724

104405
104401
005737
100003

BIC

000200

248:

000200

268:

005550
288:

005702

013251
000002

328:

011170

005546

368%:

013253
005550

388:

020726

020732
020740
0207642

126537
001404
113765

000004

005510

000004

005550

408:

001315

42%:
:SET
43$:

5664 02075 ooooo;
5665 020752 026537
000002 005504 &4$:
020760 001410
5667
020762 013765 005504 000002
5668 020770 113765 005506 000006 46$:
5669 020774 000137 020356

32§

:BR TO PRINT CURRENT SECTOR RESULT

MOV

R4 ,PLOFST

BR
BR

24$

*SEE IF MAX OFFSET APPLIED IN THIS DIRECTION
:BR IF NOT YET
‘SEE IF NEG OFFSETS DONE YET
:BR IF YES, TO PRINT CURRENT SECTOR RESULT
:INIT FOR NEG OFFSETS
SINIT (=) OFFSET VALUE T0 0
:BR TO APPLY NEG OFFSETS
*SEE IF NEG OFFSETS DONE YET
:BR IF NOT YET
:SAVE THIS FAILING (=) OFFSET VALUE
SSAVE THIS FAILING (+) OFFSET VALUE

:BR TO APPLY NEGATIVE OFFSETS

BIT
#B1T1,CS
‘SEE IF REPORTS INMIBITED
BNE
438
:BR IF INWIBITED
sTYPE OFFSET RESULTS FOR THIS SECTOR
MOVB
P.TRCK(RS) ,R1
:GET TRACK NO.
MOV
R1,=-(SP)
:PUT IT ON STACK
TYPOS
;HPE IT
.BYTE
3
;3 DIGITS
BYTE
0
SUPPRESS
TYPE
,SPACE3
MOV
P.CYLN(RS),=(SP) ;PUT CYL ON STACK
TYPOS
;TYPE IT
.BYTE
4
4 DIGITS

013253
005546

011170

:MASK FOR MAGNITUDE
BITS

#60,R1
22%
#B177.R0
32¢
#200,R0
R4
228
#B117.R0
28%
R4 ,NGOFST

BYTE

104401
000403
013746
104405
104401

#177700,R1

CMP
BNE
BIT
BNE
MOV
CLR
BR
BIT
BEQ
MOV

SEQ 0109

TYPE
MOVB
MOV
TYPON
TYPE
TST
BPL
TYPE

,SPACE2
P.SECT(RS).R1
R1,=-(SP)
,SPACE1
PLOFST
368
NOFALS

MOV

PLOFST,=(SP)

B8R

TYPDS
TYPE
TST
8PL

ias

., SPACE!
NGOFST
408

TYPE
BR
MOV
TYPDS
TYPE
UP TO TEST
CMPB
BEQ
MOVB

B8R
CMP
BEQ
MOV
MOVB
JMP

,NOFALS
423
NGOFST,=(SP)
JSCRLF
NEXT SECTOR
P.SECT(RS),LS
44$

*SUPPRESS

:
;GET SECTOR

sPUT IT ON STACK
:TYPE SECTOR

:SEE IF THERE WAS A FAILING (+) OFFSET
‘BR IF THERE WAS
:TYPE '' NONE'

: CONTINUE

sPUT (+) OFFSET VALUE ON STACK
STYPE IT IN DECIMAL

;SEE IF THERE WAS A FAILING (=) OFFSET
:BR_IF THERE WAS
STYPE ' NONE''
* CONTINUE
:PUT (=) OFFSET VALUE ON STACK
STYPE IT IN DECIMAL
:TYPE <CR>,<LF>

LS,P.SFCT(RS)

:SEE IF SECTOR = LS
‘BR IF YES
:SET SECTOR = LS

208

160 TEST THIS SE

208
160 TEST THIS SECTOR
P.CYLN(RS), chuoa ses IF CYL = LC
8%
IF YES
uwupcumuSsncu
LC
FS,P.SECT(RS)
;SET SECTOR = FS

—

CIR6NEO RK611/06 SS ViY2
CIR6NE.P11
26-JUN-80 10:48
5670
§671

5672
5673
§6764

021002
021006

105265
122765

021014 001404
021016 013765
021026 000761

9
MACY11 30A(1052)
26-JUN-B0 10:53 PAGE 112
it
OFFSET=TO=FAILURE MEASUREMENTS
G

000005
000003

000005

005660

000002

488:

5675 021026 112765 000113 000001 S0$:

5676
5677
5678
5679
5680
5681
5682
5683
gggg

5686
5687
5688
5689

5690
5691
5692
5693
5696
gggz

021034
021040
021046
021056
021060
021062
021070
021076
021076

004737
013737
013737
105737
001406
013737
013737

042510
005674
005676
003125

005506
005510

005670
005672

005506
005510

000137

021136

021102
021110

032765
001006

040000

000020

021112
021120
021122
021126
021132

032765
001002
000137
105237
000137

130400

000034

044156
003140
046334

5697
5698

54%:

INCB
CMPB

P,TRCK(RS)
#3,P.TRCK(RS)

MOV

#RECAL,P. cnuo(asS ssr RECAL COMMAND

BEQ
MOV
BR

JSR
MOV
MOV
TSTB
BEQ
MOV
MOV

JMP

506
FC,P.CYLN(RS)
468

: INCREMENT TRACK
:SEE lF TRACK = 3

:BR IF YES
szr CYL = FC
0 TEST THIS SECTOR

PC,DRVCAL
sg. S
$3,LS
FORMAT
548
$0,FS
§1,LS

:00 CLEANUP RECAL IBRATE
‘RESTORE FS,LS FOR 22 SECTORS

3¢

;JUMP TO NEXT TEST

;SEE IF 22 SECTORS
‘BR IF YES
:RESTORE FS,LS FOR 20 SECTORS

:«THIS IS THE ABNORMAL RETURN FROM THE DRIVER, USED WHEN A
i«
"DATA TYPE'' ERROR 1S EXPECTED (AND VALID).
WRCKHD: BIT
#VCE,P.CS2(RS)
:SEE IF WRITE CHECK ERROR OCCURRED
BNE
“$
:BR IF WCE

;CHECK FOR OTHER 'DATA TYPE'' ERROR
BIT
#HVRC'DTE 'OP1'DCK,P.ER(RS)
BNE
48
:BR IF A DATA ERROR OCCURRED
JMP
ERRHDL
:G0 HANDLE OTHER ERROR
48:
INCB
WCEFLG
:SET WRITE CHECK ERROR FLAG
JMP
RE TNML
:TAKE NORMAL RETURN

5699

L L
A R e L]

5700

TeTEST 2

§703
5704
§705
5706
§707
§708
§709
§710
5711
§712
5713

:«BEFORE TESTING BEGINS, THE XXDP LOADER IS SAVED, IF PRESENT, AT ADRS RWBUF.
*«THEN, STARTING AT THE FIRST ADDRESS OF THE NEXT 1K MEMORY BLOCK
:«BEYOND ADDRESS RWBUF+6000(0CTAL), WRITE UNIQUE NUMBERS
T« (STARTING WITH 1), INTO EACH OF UP TO 64K WORDS (DEPENDING UPON THE
:«AMOUNT OF PHYSICAL MEMORY). THESE NUMBERS REFLECT UNIQUE ADDRESSES
teWITHIN THE 64K BLOCK. NEXT, WRITE THE 64K WORDS (MAX) ONTO THE DISK
:«AT ADDRESS FC,FT,FS (SCALED, IF NECESSARY, TO AVOID PACK OVERFLOW
1«OR DESTRUCTION OF THE BAD SECTOR FILE). THEN 2ERO THE ENTIRE BLOCK
t«IN MEMORY, AND READ THE DATA BACK FROM THE DISK, AT THE SAME PHYSICAL
:*ADDRESSES. COMPARE TNE DATA READ TO THE DATA WRITTEN. TYPE THE FAILING
teVIRTUAL (IF MEM. MGT.) AS WELL AS PHYSICAL ADDRESSES, AND THE GOOD

5715

‘e IF MEMORY MANAGEMENT IS INSTALLED AND THERE IS ADDITIONAL MEMORY TO

g;g;

5714

S«EXERCISE, REPEAT THE ABOVE WORD ADDRESSING TEST, FOR EACH OF THE

§717

-aenAxuxus 64K MEMORY BLOCKS.

5718

5719 021136 000004
572§

021140
021146

021152

012737
004737

004737

000002
033640

033706

§723 021156 000137 021446

§724
§725

:«AND BAD DATA, FOR UP TO THE FIRST 10(DEC) FAILING LOCATIONS.

5716

§720
5721

NPR/MEMORY WORD ADDRESSING TEST

'}g }2§§g$557 MEMORY WORD ADDRESSING CAPABILITY DURING RKO6 NPR'S,

021162

004737

032250

001324

t§12:

SCOPE

MOV
JSR

JSR

JMP

L T

eA
A R Ll

#2,8TESTN
PC.SEITUP

tsf

HKITR

::SET TEST NUMBER IN APT MAIL BOX
:SET UP FOR LOOP ON ERROR

;SEE IF ITER. NO. = O FOR THIS TEST

:JUMP TO Next TEST

:RETURN HERE FROM CHKITR If TEST SHOULD BE
R
JSR
PC,INITSS
JINITIALIZE oalven PARAMS AND SUB-SYS

SEQ 0110

6NEO RK611/06 S ViY2
PN
26=JUN-80 10:48

H 9
MACY11 30A(1052)
26=JUN-80 10:53 PAGE 113
T2
NPR/MEMORY WORD ADDRESSING TEST

030536

JSR
PC,PREPKB
:SAVE XXDP LOADER, IF PRESENT
JSR
PC,FNDXDP
MOV
#RVBUF ,XDPSAV

031730

CLR
JSR

XDPSAV+2
PC, SAVXDP

MOVE
MOVE

000001
777

#1.XOVLAD
#1.XDPSVD

MOV

(8:

JSR

JSR
ST

000012
005600

005600
005602
031606

005604
005606

012737

021340
033640
042020
037656
000123
042132

001110

021420

508

:BR IF ALL DONE

NEG
MOV

RO
RO,P.WC(RS)

MOV

MA.P.BALO(RS)

;SET WORD COUNT

:SET BA BITS 0-15

BISB

R1,P.BAHI(RS)

:SET BA BITS 16,17

M77174 R

:MASK FOR LO 2 BITS

ST
BPL

$kT11
148

SSEE IF MEM MGT PRESENT
:BR IF NOT

MOV
MOV

MA,PMA
MA+2 ,PMA+2

:SET BUFFER ADDRESS

JSR

mov

JSR
JSR

JSR

CLR
JSR

MOVB

PC,PREPAR

:PREPARE MEM MGT REG'S AND UNIBUS MAP

#..SLPERR

:SET NEW LOOP ON ERROR ADRS

PC .LDMEMI

LOAD THIS MEM BLK WITH INCREMENTING DATA

TESTS

MOVB

000091

:BR IF YES

:GET MA BITS 16-21

:PERFORM THE

000001

SINIT WORD COUNT TO 65,536(DEC)
:SEE IF WRD CNT SHOULD BE 65,536

MA+2.R1

:SET UP MEM MGT

iss:

:COMPUTE MAX WORD COUNT FOR THIS MA
:SEE IF ALL MEMORY TESTED YET

MOV

PC.SETTUP
PC . SVPRMS
PC, TRNSFR

R3
PC,LDMEM2

PC, INCRMA
2
PC,GETXDP
UBMPRS
548
SR3

:GET NEW MA FOR NEXT TRANSFER
S0$:

172516

BEQ
CLR

TSTB

:WRITE THE DATA

:SET DATA WORD = 0
LOAD MEM BLK WITH ALL 2EROS

#RDDATA,P.CMND(RS) :SET READ COMMAND

PC,TRNSFR
PC . CKMEM

032010
003143

:SET UP FOR LOOP ON ERROR
:SAVE PARAMS FOR THIS XFER

#WRDATA.P.CMND(RS) ;SET WRITE DATA COMMAND

JSR
JSR
SCOPER

JSR
BR
JSR

041020

SINIT PARAMS

P.WC(RS)
R

BIC

013737
013737
004737

037670

021446

68:

000007
057710

021316

021422

000010

:SET INDICATORS

PC,SETUPM

CLR
ST

BNE

;GO SAVE XXDP LOADER

:SET FLAG FOR SVPRMS

PC . MXWRDC
R

BM]

000012

:COMPUTE STARTING ADR OF XXDP
:SET XXDP SAVE AREA ADR

#-1,PATRN

;INIT PARAMETERS, BEGIN TESTING

040612
035236

:PREPARE FOR POSSIBLE KBD INPUT

:READ THE DATA FROM DISK
:PERFORM SOF TWARE COMPARE OF DATA
:CHECK FOR INTERNAL LOOP ON ERROR
;COMPUTE NEXT MA
:GO SEE IF MORE MEMORY TO TEST
*RESTORE XXDP LOADER
SEE IF UNIBUS MAP PRESENT

‘BR IF NOT
:DISABLE UNIBUS MAP

.'".."t'.'.'"""'."'."."""...'.'.'Qt.".l.."...'."Q"t'.

;«TEST 3

NPR/MEMORY BLOCK ADDRESSING TEST

;*IN THIS TEST, MEMORY BLOCK ADDRESSING CAPABILITY DURING RKO6

SEQ 01N

——

CIR6NED RK611/ 06 5S viv2
CZRONE .P11
26=-JUN-80 10:48

MACY11 30A(1052)
26=JUN-80 10:53 PAGE 114
3
NPR/MEMORY BLOCK ADDRESSING TEST

;*NPR'S IS TESTED.

;*BEFORE TESTING BEGINS, THE XXDP LOADER IS SAVED, IF PRESENT, AT ADRS RWBUF.

;*MEMORY WILL BE TESTED STARTING AT THE FIRST ADRS OF THE NEXT 1K
;*BLOCK BEYOND RWBUF +6000(OCTAL).
;*THE TEST BEGINS BY WRITING A SINGLE NUMBER INTO ALL LOCATIONS OF
;*EACH MEMORY BLOCK OF UP TO 64K WORDS. THIS NUMBER UNIQUELY DEFINES
;*EACH BLOCK. THEN WRITE EACH BLOCK ONTO DISK AT ADDRESS FC,FS,FT
;*(SCALED, IF NECESSARY TO AVOID PACK OVERFLOW 0° DESTRUCTION OF THE BAD
;*SECTOR FILE). ZERO THE BLOCK IN MEMORY, AND Thcd READ THE DATA

;*BACK _INTO THE PROPER PHYSICAL ADDRESSES. DO THIS FOR ALL 64K BLOCKS,
s*AND THEN COMPARE THE CONTENTS OF ALL THE MEMORY TO EXPECTED VALUES.
;*TYPE FAILURES AS DESCRIBED ABOVE FOR THE FIRST 10(DEC) FAILING
;*LOCATIONS IN EACH 64K MEMORY BLOCK.
:.‘l"'t'."'."'.""""""""."Q".""'."'Q'Q"""t't""

021446
021450
021456
021462
021466

000003
033640
033706
022006

021472
021476

032250
030536

021502
021506
021514
021520
021524
021532
021540

031730

021546

005524
040612
000001
025236

001324

005542

003133
003134
005536

SCOPE

MoV

#3,8TESTN

JMP

1ST4

JSR
JSR

PC,SETTUP
PC,CHKITR

;SAVE XXDP LOADER, IF PRESENT
PC,FNDXDP
JSR
MOV
#RWBUF ,XDPSAV

CLR

;:SET TEST NUMBER IN APT MAIL BOX
:SET UP FOR LOOP ON ERROR
;SEE IF ITER., NO. = 0 FOR THIS TEST

;JUMP TO NEXT TEST

;SET XXDP SAVE AREA ADDRESS

#1,XOVLAD

;GO _SAVE XXDP LOADER
:SET INDICATORS

MOV

#-1,PATRN

;SET FLAG FOR SVPRMS

CLR
JSR

SELECT
PC,SETUPH

BM]
CLR
ST
BNE

308
P.WC(RS)
R

;INIT COMPARE FLAG
SINIT PARAMS
SINIT DATA WORD
1COMPUTE MAX WRD CNT FOR THIS MA
:SEE IF ALL MEMORY TESTED YET

Move

PC,SAVXDP

#1,XDPSVD

;INIT PARAMETERS, WRITE AND READ BACK ALL MEMORY BLOCKS

48:

000012

000010

XDPSAV+2

;COMPUTE STARTING ADRS OF XXDP

MOovB

JSR

2%:

68:

MOV
JSR
ST

" .RG
PC.MXWRDC
R

MOV
MOV

63
RO
RO,P.WC(RS)
MA.P.BALO(RS)
MA+2.R1

BISB

R1,P.BAHI(RS)

NEG
MOV

BIC

ST
BPL

005604
005606

Slgs 021666

1ST3:

sRETURN HERE FROM CHKITR IF TEST SHOULD BE RUN
JSR
PC,INITSS
sINITIALIZE DRIVER PARAMS AND SUB-SYS
JSR
PC,PREPKB
:PREPARE FOR POSSIBLE KBD INPUT

282p2228888

177777

N4, m
$xi1i
148

:SET UP MEMORY MANAGEMENT

:BR IF DONE WRITING AND READING
SINIT WRD CNT TO 65,536(DEC)
‘SEE IF WRD CNT SHOULD BE 65536
:BR IF YES
:SET WORD COUNT

:;SET BA BITS 0-15
:GET MA BITS 16-21

:MASK FOR LO 2 BITS

:SET BA BITS 16,17

:SEE IF MEM MGT PRESENT
:BR IF NO

MOV
MA,PMA
:SET BUFFER ADDRESS
MOV
MA+2,PMA+2
JSR
PC,PREPAR
:PREPARE MEM MGT REG'S AND UNIBUS MAP
148:
TST
SELECT
*SEE IF COMPARES SHOULD BE DONE YE'
208
BNE
:BR IF YES
:WRITE AND READ THIS MEM BLK ON RK06
PC,SVPRAS
;SAVE PARAMS FOR THIS XFER
fes:
JSR

SEQ 0112

9
MACYN 3?;(1052)
26=JUN-80 10:53 PAGE 15
NPR/MEMORY BLOCK ADDRESSING TEST

~J!
w
~

882
§

VISSNOSWVSN

A IRS

NS NNNVNNNONNN
WONMNO
WO WO
RS S%R NWVINWNVINW

CIR6NED RK611/06 S ViY2
CZRONE .P1
26-JUN-80 10:48

000701

037670
0001%3

037670
000121
042132

MOV
JSR

MOVB
gE:

000001

JSR

000001

041020

R4 ,R3
PC,LDMEM2

:GET DATA WORD
:LOAD MEMORY BLK WITH THIS WORD

PC,LOMEM2

26RO THE BLK IN MEMORY

PC,TRNSFR
R&

;READ THIS DATA BACK
:INCREMENT THE DATA WORD

ouaoava P.CMND (RS) ser WRITE COMMAND
‘WRITE THE DATA
:g RNSFR

MOVEB

#RDDATA,P.CMND(RS):SET READ COMMAND

JSR

PC, INCRMA

JSR
INC

:COMPUTE NEW MA TO TRY

:GO WRITE AND READ NEXT BLK
48
BR
-OERFORM SOF TWARE COMPARES OF ALL MEMORY BLOCKS

208:

040034

mov
JSR

R4, R3
PC.CKMEM2

;GET DATA WORD
:COMPARE THIS BLK TO GOOD DATA WORD

COM
BEQ
BR
JSR
TSTB
BEQ
CLR

SELECT
508
2%
PC,GETXDP
UBMPRS
548
NSR3

:COMPLEMENT THE FLAG
:BR IF ALL DONE NOW
‘BR IF COMPARES SHOULD BE DONE NOW
*RESTORE SAVED XXDP
:SEE IF UNIBUS MAP PRESENT
‘BR IF NOT
:DISABLE UNIBUS MAP

INC
JSR
BR

041020

005524

308:

032010
003143

508:

172516

54%:

R4
PC, INCRMA
4$

:INCREMENT THE DATA WORD
1GET NEW MA TO TRY
:G0 COMPARE NEXT MEM BLK

'..'.."Q".""""""""""."..'.Q'.Q"tt.""Q'."'t"Q'

SETEST 4

NPR/MEMORY DATA PATTERN TEST

‘«BEFORE TESTING, THE XXDP LOADER IS SAVED, IF PRESENT, AT ADRS
*«RWBUF. THEN, ALL PHYSICAL MEMORY LOCATIONS
, STARTING AT THE
T«FIRST ADRS OF THE NEXT 1K MEMORY BLOCK BEYOND RWBUF+6000(0CT),
‘e ARE EXERCISED WITH UP TO 16 DATA PATTERNS
,
‘e CHOSEN IN PARAMETER PT. (THESE ARE THE SAME PATTERNS
*«PROVIDED FOR USE IN THE READ/WRITE DATA TEST). IF PT= 0, THE

:«DATA PATTERNS WILL DEFAULT TO PATS 08,09,10,AND 11.

TeMZMORY 1S EXERCISED IN BLOCKS OF UP TO 64KWORDS, STARTING AT

S«THE FIRST ADDRESS OF THE NEXT 1K MEMORY BLOCK BEYOND THF BUFFER.

*«EACH BLOCK 1S LOADED WITH DATA, AND WRITTEN ONTO DISK AT ADDRESS

TeFC,.FT,FS (SCALED TO AVOID PACK OVERFLOW OR DESTRUCTION OF THE BAD
T«SECTOR FILE). THEN THE MEMORY BLOCK IS ZEROED AND READ BACK AND
*«COMPARED. THIS IS DONE FOR EACH OF THE DATA PATTERNS CHOSEN,

-rossxauv INCLUDING THE USER-DEFINED PATTERN 15, IF SPECIFIED.

3
\ht: s:*‘

gO Og
o

~
e

—

022042

Asd

O00O0

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

001324

Y §T4:

SCOPE
MOV
JSR

#4,8TESTN
PC.SETTUP

JMP

1515

JSR

PC.CHKITR

;:SET TEST NUMBER IN APT HAlL BOX

:SET UP FOR LOOP ON ERROR

SSEE IF ITER. NO. = 0 FOR THIS TEST

TJUMP TO NEXT TEST

:RETURN neae FROM CHKITR IF TEST SHOULD BE RUN
PC, INITSS
;INITIALIZE DRIVER PARAMS AND SUB=SYS

JSR

PC,PREPKB

:PREPARE FOR POSSIBLE KBD INPUT

PC,FNDXDP

:COMPUTE STARTING ADR OF XXDP

s SAVE llbg LOADER,

IF PRESENT

SEQ 0113

CIRONED RK611/06 3S ViY2
CIR6NE .P11
26=JUN-80 10:48
5894

022046

012737

065636

5399
589
S898
5899
§900
§901

004737
1157 7
112737
004737
013737
001003

032002
000001
000001
036002
005700

5895 022054

§902
$90

060
064
022072
022100
0221064
022112

022114

go 4

012737

5544

007400

MACY11 30A(1052) 26=JUN-80 10:53 PAGE 116
T4
NPR/MEMORY DATA PATTERN TEST
005542

005536

§904 022122 004737 040612
5905
5906
§907

5908

022126
022132
022134

022136

004737
005701
100501

005065

§909 022142 005701
022144
022146
022150

001003
005400
010065

5915
§916
§917
§918

022166
022172
022176
022202

042701 177774
150165 000007
005737 057710
100010

§920
go 1

022204
85 553

§923
§924
5925
5926
§927
5928
§929
5930

0222264
0222
02223
022236
022240
022242
022264

sos;
593
S99 34

022254
8%2260
2264

§913
§914

5919

922

§931

022154
022162

013765
013701

000012

(s:

000010

013737
832737

005600
5602

005604
005606

012704
030437
001003
006304
001434
000772
010401

000001
005536

031606

68:

148:
16%:

004737

037670

5940
5941
5962
5943

052313
022322
022326
022330

004737
004737
104411
000742

042132
036444

PC HIURDC

MOV

JSR
JSR
JSR

JSR

JSR
SCOPER
BR

SSEE IF WRD CNT SHOULD BE 65,536

WA P.BALO(RS)
MA+2 . R1

0177’74 R1
R1,7.BAHI(RS)
sxt i
148
MA,PMA
MA+2,PMA+2

03201
00314

50%:

JSR

BR
JSR
1STB
BEQ

:INIT WORD COUNT TO 65,536(DEC)
:BR IF YES

;SET WORD COUNT

:SET BA BITS 0-15
:GET MA BITS 16-21

HASK FOR LO 2 BITS
:SET BA BITS 16,17
SSEE IF MEM MGT PRESENT
:BR IF NOT
:SET BUFFER ADDRESS

PC,PREPAR

:PREPARE MEM MGT REG'S AND UNIBUS MAP

#..SLPERR

;SET NEW LOOP ON ERROR ADRS

PC.SETTUP
PC,SVPRMS
PC.LODBUF

:SET PATTERN BIT POINTER
:SEE IF THIS PATTERN IS CHOSEN
‘BR IF YES
:SHIFT TO POINT TO NEXT PATTERN
BR IF NO MORE LEFT TO CHECK
:GO CHECK FOR ANOTHER PATTERN
:GET A COPY OF BIT POINTER

:SET UP FOR LOOP ON ERROR
SAVE THE PARAMS FOR THIS XFER
LOAD THIS MEM BLK WITH SELECTED DATA

MDMA P. CM(I&)sSET WRITE DATA COMMAND
\R!YE THE DATA
R3’
:SET DATA WORD = 0

PC, nnsn

PC.LDMENM2

LOAD MEM BLK WITH ALL ZEROS

PC.(lPlUF

PEIFORN SOF TWARE COMPARE OF DATA
SCHECK FOR INTERNAL LOOP ON ERRCR
SCHECK FOR NEXT PATTERN

clooAtA
r.cnuo«usx
:SET READ COMMAND
EAD THE DATA FROM DISK
PC, T“SF
188

GET NEW MA FOR NEXT TRANSFER

248:

:INIT PARAMS

68
RO
RO,P.WC(RS)

JSR

:SET DEFLT PATRNS = PAT 8,9,10.1

sos

BNE
NEG
MOV

MOV
MOV

;GENERATE PSEUDO=RAND PAT 14
:GET A COPY OF PT
:BR IF PT NON=-ZERO

CWUYE MAX WORD COUNT FOR THIS MA
:SEE IF ALL MEMORY TESTED YET
:BR IF ALL DONE

P.WC(RS)

MOVB
JSR

9%S 0 sssz 004737 041020

022336
5
022340
5947
5048 022344
5949 022350

PC,SETUPA

CLR

MOvVB
JSR
CLR

10 112765 000121 000001

000673
004737
105737
001402

#7400 ,PATRN

MOV
R4
BIT
RL.PATIN
BNE
20$
18%:
ASL
R4
248
BEQ
BR
16%
208:
MOV
R4, R1
:PERFORM THE ttSTS

5935 Oss 70 112765 000123 000001
022276 004737 042132
593
2
005003
855;0‘

JSR
TST
BM]

MOV
MOV

5939

JSR

;SET UP MEM MGT

033640
042020
036216

5938

:GO SAVE XXDP LOADER
:SET INDICATORS

BIC
BISB
ST
B8PL

022246 012737 022246 001110 228:
004737
004737
004737

PC, SAVXDP
#1.XOVLAD
#1.XDPSVD
PC.LODP14
PT.PATRN
28

005600
005602

737

JSR
MOVE
MOVE
JSR
MOV
BNE

MOV

000012

§910
§911
§912

:SET XXDP SAVE AREA ADR

XDPSAV+2

. INIT PARAMETERS, BEGIN r:stxuc

28:

035236

#RWBUF ,XDPSAV

CLR

003133
003134

005536

MOV

PC, INCRMA

1
PC,GETXDP
UBMPRS
54%

:COMPUTE NEXT MA

:GO SEE IF MORE MEMORY TO TEST
IES!ORE XXDP LOADER
:SEE IF UNIBUS MAP PRESENT
ll IF NOT PRESENT

SEQ 0114

CIR6NED RK611/06 S ViY2
CIRONE.P11
26-JUN-B0 10:48
5950
§951
§95
595
€954
5955
5956
§957
5958

022352
022356

005037

MACY1 30A(1052)
26=JUN-80 10:53 PAGE 117
"NPR/MEMORY DATA PATTERN TEST

172516

548:

CLR

NSR3

SEQ 0115

:DISABLE UNIBUS MAP

;:'Q'.""'."Q"'Q'""Q"""""QQ"'.'"tt'...'."'.""""'
TeTEST §
UNIBUS CONTENTION TEST
:*THE PURPOSE OF THIS TEST IS TO EXERCISE THE NPR CONTROL LOGIC
:eWITHIN THE CONTROLLER IN SUCH A MANNER THAT A CONTENTION FOR

ggzg

-uuxaus CYCLES ARISES BETWEEN THE PROCESSOR AND THE RKO06.

§961

~r1asr A WRITE DATA IS BEGUN AT ADDRESS FC,FT,SECTOR 0, WITH

§963

:«USING A WORD COUNT OF 12000(0CT)
OR 23000(0CT) (DEPENDI
.G ON THE

5§962

:«THE BUS ADDRESS INCREMENT INWIBIT BIT (BAI) SET IN TME CONTROLLER.

5§964
5965

:«FORMAT), THE ENTIRE TRACK IS UlltTEN WITH THE FIRST WORD OF PATTERN
ie15 (IF sELscreo) OR THE FIRST WORD OF PAT 13 (BY DEFAULT).

5966

‘e THEN

5967

INSTRUCTION LOOP 1S ENTERED IN WHICH A NON-

~exxsténrUNIBUS DEVICE ADDRESS IS REFERENCED ONCE PER PASS. THIS

5968

;+WILL RESULY IN A PROCESSOR SIEZURE OF THE UNIBUS, FOR 5-20 USEC,

5969

1« (DEPENDING ON THE PROCESSOR), FOLLOWED BY A NON-EXISTENT MEMORY

5979
5980
5981
gggg

-TNE ABOVE OPERATIONS ARE REPEATED 15 MORE TIMES, USING THE NEXT WORD
:«OF THE PROPER PATTERN (13 OR 15) EACH TIME, TO WRITE AND READ
:«THE ENTIRE TRACK. IF A DATA LATE ERROR OCCURS ON A GIVEN TRANSFER,
S«THAT DATA IS NOT WRITE-CHECKED OR COMPARED.

:;'tttt."ttt"""'"""""""'.".titt.'.'.'."t"'.t""lt'

§970
5971
5972
5973
§974
§975
5976
gg;;

5985
5986
5987
5988

:«PROCESSOR TRAP, ONCE PER PASS. THUS, FOR EACH PASS THROUGH THE
:#INSTRUCTION LOOP THE CONTROLLER IS FORCED TO LOSE FROM ONE
:«TO FOUR NPR BUS CYCLES. THE EXECUTION TIME OF THE LOOP DETERMINES THE
S«REPETITION RATE OF THE NON-EXISTENT MEMORY REFERENCES, AND THIS
2«]S CMOSEN TO ALLOW ENOUGH NPR'S SO THAT THERE SHOULD BE NO
:«DATA LATE ERRORS IN A FAULT-FREE CONTROLLER.
:#THE DATA IS THEN WRITE CHECKED FOR VERIFICATION, AND THE ABOVE
;+TEST 1S REPEATED USING A READ DATA COMMAND. NO ERRORS ARE EXPECTED.

022356
022360
022366
022372

000004
012737
004737
004737

000005
033640
033706

001324

5989 022376 000137 022662

$990
5991
§992

022402
022406

004737
004737

032250
030536

§996

0 561

013765

005660

5999
5997

022426
0224

105065
°'§7§5

999

og 44k

00140

6004

02%696

005737

599

5995 022420
998

113765

105737

165

SCOPE
MOV
JSR
JSR

JMP

#5,8TESTN
PC.SETTUP
PC.CHKITR

1516

::SET TEST NUMBER IN APT MAIL BOX
:SET UP FOR LOOP ON ERROR
:SEE IF ITER. NO.
= 0 FOR THIS TEST

:JUNP TO uexr TEST

;RETURN HERE FROM CHKITR If TEST SNOULD BE
R
Jsa
PC,INITSS
;INITIALIZE onxven PARAMS AND SUB-SYS
JSR
PC .PREPKB
:PREPARE FOR POSSIBLE KBD INPUT

000002

005664 000005

00312

7S15:

000012

lNlYlAL!lE PARAME TERS

nova

FC,P.CYLN(RS)

FT.P.TRCK(RS)

:SET CYL = FC

:SET TRACK= FT

CLRB
MOV

P.SECT(RS)
:SET SECTOR = 0
#-13000,P.WC(RS)"; INIT WORD COUNT roa FULL TRACK

BEQ

TSTB

FORMAT

.os ERMINE THE FORMA

BR IF

22 SECTORS

6000 022446 012765 166000 000012
MOV
#-12000,P.WC(RS)" stt WORD COUNT FOR FULL TRACK
6001 022456 052765 100000 000014 &S$:
BIS
#OTBAIL.P.PRST(RS):SET BUS ADDRESS INCREMENT INWIBIT
600
:WRITE DATA WITH ALLOWABLE UNIBUS CONTENTION, AND WRITE CHECK IT
6003 022462 oagr
006776
MOV
#PAT1S,RO0
:SET DATA PATTERN ADDRESS
6005

022472

100402

005700

BMI

148

:SEE IF USER=-DEFINED PATTERN 15 SELECTED
‘BR IF YES

lalal

RONE

RK611/06 5SS ViY2

6006

052474

RONE.P11

26-JUN-B80 10:48

6007 022500

012700

012701

MACY11 30A(1052)

006676

8888;0

148:

6008 022504 012703
0
6009 022510 010065 000010

6010 022514 105037 003141
6011 022520 11%7 7 000001 003142
eo1§ og 526 11 7gs 000123 000001
6013 022534
004737 040716

168:

022544
022546
022554

001011
032737
001042

000002

6019
6020

022564

004737

042510

6022

022576

005037

065636

6024
6025
6026

022610
022614
022620

004737
105737
001014

040716
003141

6028
6029
6030
6031

022626
022630
022634
022642

001411
004737
016037
013737

6018 022556 112765 000131 000001
6021

022570 012765 065636 000010

022622

022037

6032 022650 104110
6033

6040
60‘]

0226564
022656
022662

001402
000137

DLTFLG
:CLEAR DATA LATE FLAG
c1 ,NORTRY
SSET 'NO-RETRY'' FLAG
IURDATA P.CMND(RS);SET WRITE DATA COMMAND
EFNEM
;WRITE DATA DURING NEM REF.

is
ao6 BALOCRS)
oLerc

188
#BSERR,RECODE
248

:SET DATA PATTERN 13 ADDRESS

:SET COUNTER = 16

:SET NON-EXISTENT MEMORY TIMER
:SET BA BITS
:SEE IF DATA LATE ERROR OCCURRED
:BR IF NOT
sss 1r BAD SECTOR ERROR
R IF YES

#WRTCHK,P. cnuo(afi) ;SET WRITE CHECK COMMAND

JSR
PC,DRVCAL
;00 WRITE CHECK
:READ DATA WITH ALLOUABLE UNIBUS CONTENTION, AND COMPARE LAST WORD

18%:

MOV

#RWBUF ,P.BALOCRS) ;SET BA = RWBUF ADDRESS

MOVB

#RDDATA.P.CMND(RS) ;SET READ COMMAND

CLR

JSR
1STB
BNE

CMP

BEQ
JSR
MOV
MOV

001174
001176

ERROR

RWBUF

:CLEAR THE BUFFER WORD

PC,REFNEM
DLTFLG
20$

:READ DATA DURING NEM REF.
:SEE IF DATA LATE ERROR OCCURRED
:BR IF YES

208
PC,REPSUP
-2(R0) ,$REGS
RWBUF , SREG6

‘BR IF EQUAL
:GATHER STATUS FOR PRINTOUT
:GOOD DATA WORD
:BAD DATA WORD

(RO) ¢+ ,RWBUF

110

:COMPARE LAST DATA WORD

:"READ ERROR WHILE BAI SET'

208:
022510

248:

DEC

BEQ
JMP

248
168

;SEE IF ALL DONE YET

‘BR IF YES
1JUMP TO CONTINUE TESTING

ttttifi.tt'tt"'l"".t""'t""ttttt".t".ttil.'t"ttt'tttitt

6042
6043
6044
6045
232?

MULTI-DRIVE INTERFERENCE TEST
SETEST 6
t«THIS TEST PERFORMS MULTI-DRIVE POSITIONING OPERATIONS, WHILE A
t«LARGE DATA TRANSFER IS IN PROGRESS ON THE DRIVE UNDER TEST, FOR
*«THE PURPOSE OF DETECTING PROBLEMS OF CONCURRENT DRIVE OPERATION.
'THE TEST IS RUN ONLY IF THERE IS MORE THAN 1| DRIVE ON THE SUBSYSTEM.

6048
6049
6050

-tne TEST PROCEEDS AS FOLLOWS: IT IS FIRST DETERMINED WHICH DRIVE(S)
*«(BESIDE THE ONE UNDER TEST) EXIST AND ARE OPERATIONAL. THESE DRIVES
SeARE THEN CLEARED AND A SEEK TO CYL O IS uoue ON EACH.NEXT, A SEEK IS

6051

6052

6053
6054
6055

6056

6057
6058
6059

6060

6061

SEQ 0116

SET UP FOR NEXT PASS THROUGH LOOP

6034 022652 005301

6035
6036
6037
6038
6039

CLRB
MOVB
JSR

MOV
MOV

MOVE

065636
043676
177776
065636

09A113 RO

MOV

BNE
BIT
BNE

6023 022602 112765 000121 000001

6027

no9
PAGE 118

MOV

1578

005474

10:53

UNIBUS CONTENTION TEST

MOVB

6014 o; 540 105737 003141
6015
6016
6017

26-JUN-B0

*«DONE TO CYLINDER FC (SCALED, IF NECESSARY,) ON THE DRIVE UNDER

TTEST. A SEEK 1S NOW BEGUN ON EACH OF THE OTMER DRIVES, EACH

:eTO A DIFFERENT PSEUDO-RANDOM CYLINDER ADDRESS. THIS SHOULD REQUIRE
SeFROM 10-67 MILL1-SEC TO COlPLETE AS SOON AS THESE SEEKS ARE BEGUN,
ON THE DRIVE UNDER TEST AT THE CURRENT
ieA WRITE DATA COMMAND 1S BEGUN

s *CYLINDER (FC) sectou

TRACK0, WITH THE BUS ADDRESS 1ncae NT

t«INNIBIT BIT SET 8' THE CONTROLLER, AND "5 H A WORD COUNT g 616
*«(DEC) WORDS IF 20 SECTOR FORMAT OR 17,152(DEC) WORDS IF 22 SECTOR
S«FORMAT. THIS WORD COUNT AMOUNTS TO A fULL CYLINDER + 1 SE(TOl OF DATA.
1«THIS TRANSFER REQUIRES FROM 101-126 MILLI-SEC TO COMPLETE, AND IN

S«THAT TIME, ALL THE OTHER DRIVES SHOULDWAVE COMPLETED POSITIONING

w—

CIR6NED RK611/06 3S ViY2
CIR6NE.P11
26-JUN-80 10:48

MACY1 3?2(1052)

N9
26=JUN-80 10:53 PAGE 119
MULTI-DRIVE INTERFERENCE TEST

606%

;*NEXT,

6064

;*PERFORMED SEEKS WERE ABLE TO COMPLETE THEM SUCCESSFULLY, BY CHECKING

606

6065

6067

6068

6069
6070
6071
6072
6073
6074
6075
6076
6077
6078
6079
6080
6082
6083

6081

6084

6085
6086
6087

:~c;zsg;xon BITS AND COMPARING DRIVE CYLINDER ADDRESSES TO EXPECTED
o.

022662

000006
033640
033706
023702

022706
022712

004737
004737

032250
030536

022716
022722
0227%8
0227

013703
005004
012700
020310

005660

022734
022736

005203
020337

020000

022744
022750
022754

000137
062700
020027

023702
000004
004224

85%722

8385

000010

022742
022760

6090

6091

000004

012737
004737
004737
000137

022732

022772

001002
2

6100
6101
6102
6103
&
6105
6106
6107
6108
6109
6110
6111
511§
611
6114
6115
6116

023014
023022
023024
0230§g
023032
023036
023040
023044
so‘S
023052
023054
023060
053064
023066
ozsorg
023072
023074

112765
005001
005000
005065
022700
001415
105760
001410
120037
001405
11oogs
004737
005201
005200
000760
005701
oo1oo;

023076

000137

000002
000010

BNE

44$

:BR IF NOT

BLO

40$

:BR IF YES

R3
R3,LSTCYL

JMP
ADD
CMP

BNE
46%:

508:
000001

MULTIM
#4,R0
RO,#BSFACT

G0 SKIP THIS TEST
:INCR BSF POINTER
SEE IF STILL IN SOFTWARE BSF

#10,R0

sINCR POINTER FOR FACTORY BSF

46$

ADD

CMP

(INCR CYL
:SEE IF CYL < 632/1456

:BR IF YES

RO 5BSFACT+S12. JSEE IF END OF FACTORY BSF REACHED

BNE

52%

:BR IF NOT YET

TST
BNE
INC
INC
BR
DEC
MOV

R4
508
R4
R3
42%
R3
R3,CYL

JSEE IF CAME HERE BEFORE
:BR IF YES

MOVB
CLR
CLR
CLR
(NP
BEQ
TSTB
BEQ
CMP8
BEQ
MOVB
JSR
INC
INC
BR
TST
BNE

#SEEK,P.CMND(RS) :SET SEEK COMMAND
R
;INIT MULTIPLE-DRIVES FLAG
RO
:INIT DRIVE NO. TO 0
P.CYLN(RS)
:SET CYL =0
#10,R0
:SEE IF ALL DRIVES CHECKED YET
8s
:BR IF ALL DONE
DRVLST(RO)
:SEE IF THIS DRIVE 1S MARKED IN LIST
13
:BR IF NOT MARKED
RO,DRIVE
:SEE IF MARKED DRIVE 1S DRIVE UNDER TEST
I3
:BR IF YES
RO,P.DRVN(RS)
:SET DRIVE NO. PARAMETER
PC,TISTTYP
sSEEK TO CYL O ON CURRENT DRIVE
R
:SET FLAG TO INDICATE MORE THAN 1 DRIVE
RO
sINCR DRIVE NO.
48
:KEEP CMECKING DRIVES
R1
:SEE IF MORE THAN 1 DRIVE PRESENT
9%
:BR IF YES, TO RUN TEST

JINC CYL
sCONTINUE LOOKING
:DECR CYL
:GET CYL TO USE

JCHECK DRYLST FOR OTHER AVAlLABLé DRIVES, AND RECALIBRATE THEM

4$:

005610
005500
000000
023564
6$%:

8%:

023702

SCOPE

MOV
#6,8TESTN
;:SET TEST NUMBER IN APT MAIL BOX
JSR
PC,SETTUP
sSET UP FOR LOOP ON ERROR
JSR
PC,CHKITR
+SEE IF ITER. NO. = 0 FOR THIS TEST
JMP
$EOP
:JUMP TO END-OF=PASS ROUTINE
sRETURN HERE FROM CHKITR IF TEST SHOULD BE RUN
JSR
PC,INITSS
sINITIALIZE DRIVER PARAMS AND SUB=-SYS
JSR
PC,PREPKB
+PREPARE FOR POSS!BLE kBD INPUT
sSEARCH BAD SECTOR FILES FOR 2 ADJACENT ERROR=FREE CYLS TO USE
MOV
fC,R3
GET FC
40$:
CLR
R
42%:
MOV
#BSSOFT+10,R0
sPOINTER TO SOFTWARE BSF
52%:
CMP
R3, (RO)
JSEE IF THIS CYL LISTED

YA ¥

003202
000117

TS16:

INC
CMP

005224

001356

005704
001003
005204
005203
000747
005303
010337

6117

003234

103767

022774
022776
023000
023002
023004
023006
023010

6099

001324

001006

6092
6093
6094
6095
6096
6097
6098

» : '"t't.'ttt"'l""""'i"t't"tttttt'.t't!lt't't"'tt"t"'t"

022664
022672
022676
022702

6088

6089

A WRITE CHECK IS DONE TO VERIFY THE DATA WRITTEN ON THE DRIVE

:'UNDE‘ TEST, AND A CHECK IS MADE TO INSURE THAT ALL OTHER DRIVES WHICH

JMP

MULTIY

INO, SKIP TEST

SEQ 0117

CIR6NED RK611/06 sS ViY2
CIR6NE.P11
26-JUN-80 10:48

5118

6119
6120
61%1
61 §
6123
6124

023102
023106
023114
og 120

023126
023132

MACYN 30A(1052)

:SEEK TO CYLINDER CYL ON DRIVE UNDER TEST, SET PARAMS FOR DATA XFER

004737 gg
9s:
013765
000002
005065 oggooa
012765
400 000012
105737
001403

003125

6125 023134 012765 141400 000012
6126 023142 012765
6127 023150 052765
6128 023156 112765

006676 000010
100000 000014
000117 000001

6129
6130
6131
6132
6133
6134

0231664

004737

023170
023174
023200
023204

105037
012701
012700
004737

003120
000007
003204
035634

6136
6137
6138
6139

042510

023216
023222
023224
023230

013720
001002
005260
005301

005504

6141
6142
6143
6144
6145
6146
6147
6148

023234
023240
023244
023246
8%33’2
54
023260
023262

012701
010537
005000
022700
001‘35
105760
001425
120037

003204
023332

6150

023270

6154
6155

6157
6158
6159
6160
6161
61

6135 023210 045737 177145 005504

6140

023232

001364

177776

128:

PC,INITSS
JINIT S.S.
CYL,P.CYLN(RS) :SET CYLNDR = CYL
P.s§CT(RS)
*SET TRACK AND SECTOR = 0
21 152..» WC(RS);SET WC FOR 67(DEC) SECTORS

MOV

#-15616. ,P. uc(uss :SET WC FOR &1(DEC) SECTORS

TSTB
BEQ

MOV
BIS
MOVB

FORMA
128

:CHECK THE FORMA
BR IFf 2z-secroa FORMAT

#PAT13,P.BALOCRS)
:SET BA BITS
lDTBAli P.PRST(RS) :SET BUS ADDRESS INCREMENT INMIBIT
#SEEK,P.CHMND(RS):SET SEEK COMMAND

JSR
PC,DRVCAL
:SEEK TO CYL ON DRIVE UNDER TEST
;D0 PSEUDO=RANDOM SEEKS ON ALL OYHER DRIVES
CLRB
TSTING
;INHIBIT “C, *Z ESCAPE
MOV
7.8
:SET LOOP COUNTER
MOV
#CYLLST,RO
SADRS OF RAND CYL LIST
15%:
JSR
PC RNDADR
;GENERATE A PSEUDO-RANDOM CYL NO.

BIC

168:

MOV
BNE
INC
DEC

BNE

#197145,CYLNDR

:ALWAYS KEEP UNDER 632

15¢%

:BR IF NOT DONE LOADING LIST YET

chnon (ROY+
168
-2(R0)
R1

:SET CYL NO. IN TABLE
:BR IF NOT 0
‘MAKE IT NON-ZERO
:DECREMENT LOOP COUNTER

005500

“#CYLLST,R1
RS,19%
RO
#10,R0
228
DRVLST(RO)
20$
RO,DRIVE

110065

000000

MOVB

RO,P.DRVN(RS)

023310
023312

001404
152765

000004

BEQ
BISB

1%
BR IF
Y
#B.CDT,P.CSTH(RS)
:ELSE SET FOR RKO7

023322
0233§6
023332
023334
023336

105065
004737
000000
005200
000743

000007
052562

023340
023346
023354
023362
023370
023374

112765
113765
otsrgs
01;7 7
113700
004737

000123 000001 528
005500 000000
003202 000002
023614 003044
005500
023564

001422

000010

18%:

005610

BEQ

6151 023274 012165 000002
6152 023300 004737 042570
6153 023304 105760 005620

6156 023320 000402

MOV
JSR
ISTB

000007

6169 023400 032737 000002 005474
6170 023406 001135

6171 023410 112735 000131 000001
6172
617

JSR
nov
CLR
MOV

MOV
MOV
CLR
CMP
BEQ
1STB
BEQ
CMPB

6149 023266

6163
6164
6165
6166
6167
6168

8 10
26=JUN-80 10:53 PAG 120
MULTI-DRIVE INTERFERENCE TEST

023416

004737

042510

18:
2%:
198:
208:

B8R

20§

:GET ADRS OF RAND CYL TABLE
;SET PARAM BLK ADRS FOR DRIVER
:INIT DRIVE NO. TO O
:SEE IF ALL DRIVES CHECKED YET
:BR IF YES
SEE IF THIS DRIVE PRESENT
:BR IF NO
:SEE IF THIS IS DRIVE UNDER TEST

:BR IF YES

:SET DRIVE NO. PARAMETER

(R)+,P.CYLNCRS) ":SET CYLINDER NO.
PC, STRCHD
STORE PREV AND CURRENT CHNDS
DTYLST(RO)
see IF RxOb

CLRB
P.CSTH(RS)
JSR
PC,C.INIT
:6G0 START SEEK ON THIS DRIVE
WORD
:P.B. ADRS GOES HERE
INC
RO
:INCR. DRIVE NO.
BR
18%
:BR TO SEEK ON NEXT DRIVE
-WRITE DATA ON DRIVE UNDER TEST, WITH BAI SET

MOvVB
MOVB
MOV
MOV
MOVB
JSR

#URDATA,P. CHND(RS) sSET WRITE DATA COMMAND
DRIVE,P.DRVN(RS) ;SET DRIVE NO.
CYL,P.CYLNCRS) ;SET CYL NO.
OHULNDL A.NORM :SET SPECIAL DRIVER RETURN ADDRESS
DRIVE,RO
PC, TSf!YP
sWRITE 1 CYL ¢ 1 SECTOR AT CYL FC

MOVE
JSR

SWRTCHK,P. cnuo(aS) ;SET WRITE CHECK COMMAND

BIT
BNE

ouseaa RECODE
MULTIY

ses IF BSE ERROR
R IF YES

PC,DRVCAL
:WRITE CHECK THE DATA WRITTEN
;CHECK ATTENTIONS AND CHECK CYLINDER ADDRESSES FROM ALL OTHER DRIVES

SEQ 0118

CZRONED RK611/06 3S ViY2
CIRONE.P11
26-JUN=-80 10:48
000001

005000
022700

000010

26=JUN-80 10:53 PAGE 121
MULTI-DRIVE INTERFERENCE TEST

003120

MOVB

#1,TSTING

ALLOW “C,

CLR
(MP

RO
#10,R0

SINIT DRIVE NO.
*SEE IF ALL DRIVES CHECKED YET

DRVLST(RO)
328
RO,DRIVE

SSEE IF THIS DRIVE MARKED IN LIST
BR IF NOT
*SEE IF THIS IS DRIVE UNDER TEST

6174

oss« 2

6177
6178

023442
023444

6180
6181
618

0 g:sz
023456
0%3460

105760
001440
120037

005610

6184
6185
6186

023466
023474
023476

136037
001003
004737

003102

6188
6189
6190
6191
6192

023504
023510
023514
023520
023522

110065
004737
016503
006003
006003

000000
023564
000052

6195

023530

042703

177000

BIC

6197
6198
6199
00

023536
023540
023546
023552

001410
016137
010337
004737

177776
001214
043676

02
2%82

560
023562

005200
000730

6175 023430
6176 osgz

112737

c10

MACYN 3%(1052)

112765 000141 000001
012701 003204

6179 ogy.so 001514
6183

023464 001435

6187 023502 104113

6193 023524 006003
6194 023526 006003

6196 023534 022103

85;523

104114

268:

6209

6210

6211

6212
6213

851

005500

043676
288:

328:

muLtI
32¢

:BR IF YES

1.DRV(RO),SAVWRD ;SEE IF GOT ATT'N FROM THIS DRIVE
288
:BR IF YES
PC,REPSUP
:PREPARE STATUS FOR PRINTOUT

MOVB
JSR
MOV
ROR
ROR

RO,P.DRVN(RS)
PC.TSTTYP
P.B10C(RS),R3
R3
R3

ERROR

11%

R3
R3

:"NO ATTENTION ON SEEK'

:SET THIS DRIVE NO.
:READ STATUS OF THIS DRIVE
:GET STATUS BYTE B10
1GET CYL ADRS RIGHT=JUSTIFIED

#177000,R3

:CLEAR OFF UNUSED BITS

BEQ
MOV
MOV
JSR

328
=2(R1),$REG14
R3,SREG1S
PC.REPSUP

:BR IF EQUAL
:GOOD CYL NO.
‘BAD CYL NO.
*GATHER STATUS FOR PRINTOUT

INC
BR

RO
268

CMP

001212

“Z ESCAPE

#ROSTAT,P.CMND(RS) ;SET READ DRIVE STATUS COMMAND
#CYLLST,R1
;ADRS OF RAND CYL LIST

BITB
BNE
JSR

ROR
ROR

ERROR

(R1)+,R$

114

:COMPARE TO EXPECTED CYLINDER

*DRIVE'S CYLINDER INCORRECT''

: INCREMENT DRIVE NO.
‘BR IF NOT DONE WITH ALL DRIVES YET

:THIS ROUTINE TESTS FOR THE DRIVE TYPE AND SETS P.CS1H ACCORDINGLY

023564
023570

105760
001404

023600

000402

023606
023612

004737
000207

023572

023602

005620

152765

000004

105065

000007

042510

2%:

032737
001010
004737
013765
004737

000200

003000

052162
003000
043676

000016

6224

8232“

013737

003014

003200

6223 023642 10611;
023652

000337

003200

177 000001
6229 023656 112765
003044
042700
6227 023666 012737
023672
023676

004737
000137

042510
042700

ISTTYP: TSTB
BEQ

18:

023614
023622
023624
023630
023636

6228
6229

BEQ

003200

6216
6217
6218
6219
6220
6221
6222

6225

BEQ

TSTB
BEQ
CMPB

2582

6207
6208

MOVB
MOV

SEQ 0119

DTYLST(RO)
1%

:SEE IF RKO6
‘BR IF YES

BISB

#B.CDT,P.CSTH(RS)

CLRB

P.CSTH(RS)

JSR
RTS

PC.DRVCAL
PC

:ELSE SETUP FOR RKO7

:SETUP FOR RK06

:THIS IS THE NORMAL RETURN FROM THE DRIVER WHICH IS USED TO CHECK
*THE RESULTS OF MULTI-DRIVE OPERATIONS.
MULHDL: BIT
#RDY,T.CS1
:SEE IF CNTRLR RDY IS SET
BR IF RDY SET
6%
BNE
:READ CONTROLLER REGISTERS
PC,1.CSTS
JSR
T.651,P.CS1(RS) :GET CS1 BITS
MOV
‘PREPARE STATUS FOR PRINTOUT
PC,REPSUP
JSR

68:

ERROR

112

SINTRPT WHEN CNTRLR NOT RDY''

SWAB

SAVWRD

“GET ATT'N BITS IN BITS 0-7

MOV

MOVE
MOV
JSR
JMP

T.ASOF ,SAVWRD

:SAVE ATT'N SUMMARY

.
#SUBCLR.P.CMND(RS) :SET SUBSYSTEM CLEAR COMMAND
PERRFRE.A.NORM :RESTORE NORMAL DRIVER RETURN ADDRES
PC,DRVCAL
ERRFRE

*CLEAR SUB-SYS
*TAKE NORMAL RETURN

kil

CZRGNED RK611/706 S ViY2

CZRONE .P11
6230
6231
6232
6233
6234
2%;2

26=JUN-80 10:48

MACY11 30A(1052)

023702

26=JUN-80

10:53

D 10

PAGE 122

MULTI=DRIVE INTERFERENCE TEST

SEQ 0120

MULTIN:

.SBTTL

END OF PASS ROUTINE

6237

;;t't""'ttt't'tt"tt""'t"t't't'tt'ttt.tt"t't't"tt'tt"tttt

2%2;

;«IF THERE ISN'T JUMP TO APTPAS

6238
6239
6240

6243
6244

6245
6246
6247
6248
6249
6250
6251
6252
6253

:*INCREMENT THE PASS NUMBER (SPASS)
;*TYPE "'END PASS #XXXXX'' (WHERE XXXXX IS A DECIMAL NUMBER)
:*1F THERES A MONITOR GO TO IT

023702
023702

023704
023710
023714
023714
023722
023726
023732
023736
023744

6254 023746
6255 023750
6229, 023;52

000004

$EOP:

005237
000137

001330
017272

042777
005037
005037
005237
042737
005327

000100
001102
001304
001326
100000

155222

001326

6259

023760

104401

6261
62
6263
6264
6265
6266
6267
6268
6269

023770
023772
023776
024002
024004
024006
024010
024012
0264014

104405
104401
013700
001405
000005
004710
000240
000240
000240

6271
6272
6273
6274

024016
024020
024022
024025

000137
024042
377
015

6277
6278
6279

0264062
024050
024052

122737
001007
023727

$EOPCT
TYPE

024025

6260 023764 013746 001326

6270

6275

6281
6282
253‘
6285

024016

024032

024

024062
024066
024070

050040

10340;

005237
000775
000137

INC
SDEVCT
: INCREMENT DEVICE COUNT FOR APT
JMP
NEWDRV
:GO SEE IF MORE DRIVES TO TEST ON THIS PASS
DUNPAS: ;THIS IS TRULY THE END OF A PASS
BIC
#B176,38TKS
:DISABLE TTY KBD INTERRUPT
CLR
STSTNM
::1ERO THE TEST NUMBER
CLR
STIMES
::1ERO THE NUMBER OF ITERATIONS
INC
$PASS
:: INCREMENT THE PASS NUMBER
BIC
#100000,8PASS
;:DON'T ALLOW A NEG. NUMBER
DEC
(PC)+
::LOOP?

$EOPCT: .WORD
BGT
s "8gao

000001
003022
01273:

58 85;726 822746

SCOPE

MOV

TYPDS
TYPE
$GET42: MOV
BEQ
RESET
SENDAD: JSR
NOP
NOP
NOP

024022
000042

$DOAGN:

1
$DOAGN
{PC)’.&(PC)*

::YES
::RESTORE COUNTER

SENDMG

::TYPE "END PASS #

$PASS, = (SP)
,SENULL
L2 RO
$DOAGN
PC,(RO)

::SAVE S$PASS FOR TYPEOUT

::60 TYPE==DECIMAL ASCII WITH SIGN
::TYPE A NULL CHARACTER
::GET MONITOR ADDRESS
::BRANCH IF NO MONITOR
::CLEAR THE WORLD
::6G0 TO MONITOR
::SAVE ROOM
:;FOR
AL

377
042412
051501

000
042116
020123

SENULL: .BYTE
SENDMG: .ASCIZ

: :RETURN
a(PC)+
APTPAS
:sNULL CHARACTER STRING
=-1,-1,0
<15><12>/END PASS #/

000001

001340

001326

000002

APTPAS: CMPB
BNE
CMP

W#APTENV,SENV
:;RUN UNDER APT ?
:BRANCH IF NOT
28
:TWO PASSES ?
$PASS, #2

JMP
SRTNAD: .WORD

001102

18:

017260

2%:

BLO

:BRANCH IF NOT

: INCREMENT TEST NUMBER
‘WAITING LOOP
:JWP TO THE MAIN PROGRAM

INC
BR
JMP

$STSTNM
1%
NEWPAS

.SBTTL

RKO6 HEAD ALIGNMENT AID

CIR6NE.P11

26-JUN-80 10:48

MACY11 30A(1052) 26-JUN-80 10:53 EPAGE 123
RKO6 HEAD ALIGNMENT AID

6286
6287
6288
6289
£
6291
92
93

024074

012737

000340

024102
024106
024110
024114
024116

012706
005026
022706
001374
012706

001100

6295
96
6297
6298
6299

024122
024130
024136
024144
024152

012737
012737
012737
012737
012737

057146
000340
056442
000340
060254

000020
000022
000030
000032
000034

6301
6302
6303
6304
6305

024166
024174
024202
024210
024214
024220
024226
024234

012737
012737
013737
005037
005037
112737
012737
012737

057012
000340
023754
001304
001306
000001
024226
024234

000024
000026
023746

024242
024246
024254

013746
012737
81 737

000004
024302
177570

000004
001140

026270
024276

022777
001012

177777

154642

024300
024302

000403
012716

6300 024160

6307
6
6
6310
6311
6312
6313

6314 026262

177776

001140

001100

012737 000340 000036

001115
001106
001110

;:INITIALIZE A FEW VECTORS
MOV
MOV
MOV
MOV
MOV

MOV

#$SCOPE,a#.0TVEC ; ;10T VECTOR FOR SCOPE ROUTINE
#340,a0810TVEC+2 ;:LEVEL 7
#SERROR, SFEMTVEC : ;EMT VECTOR FOR ERROR ROUTINE
#3460, 9PENTVEC+2 ;:LEVEL 7
#STRAP,3#TRAPVEC : ; TRAP VECTOR FOR TRAP CALLS

#340,9# TRAPVEC+2; LEVEL 7

MOV
#SPURDN, 3#PWRVEC ; ;POWER FAILURE VECTOR
MOV
#340,9#PURVEC+2 ;:LEVEL 7
MOV
SENDCT,SEOPCT
::SETUP END=-OF -PROGRAM COUNTER
CLR
$TIMES
PSINITIALIZE NUMBER OF ITERATIONS
CLR
$ESCAPE
$:CLEAR THE ESCAPE ON ERROR ADDRESS
MOVB
#1,SERMAX
::ALLOW ONE ERROR PER TEST
MOV
#..SLPADR
:SINITIALIZE THE LOOP ADDRESS FOR SCOPE
MOV
#..SLPERR
1:SETUP THE ERROR LOOP ADDRESS
::SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS
S'EQUAL TO A '=1'", SETUP FOR A SOFTWARE SWITCH REGISTER.
MOV
SF#ERRVEC,-(SP) ::SAVE ERROR VECTOR
MOV
#6438 ,9FERRVEC
::SET UP ERROR VECTOR
MOV
#OSWR, SWR
1 SETUP FOR A HARDWARE SWICH REGISTER

MOV

#ODISP,DISPLAY

648:

BR
MOV

65%
#65%, (SP)

::TRY TO REFERENCE MARDWARE SWR
1 BRANCH IF NO TIMEOUT TRAP OCCURRED
P:AND THE MARDWARE SWR IS NOT = =1
P:BRANCH IF NO TIMEOUT
S“SET UP FOR TRAP RETURN

6321 024310 012737 000176 001140 658:

MOV

#SWREG, SWR

::POINT TO SOF TWARE SWR

ggsz

MOV

(SP}+,@#ERRVEC

;:RESTORE ERROR VECTOR

CLR
BITB
BEQ
MOV

$PASS
WAPTSIZE,SENVM
67%
#SSWREG, SWR

: :CLEAR PASS COUNT
;;TEST USER SIZE UNDER APT
S:YES,USE NON-APT SWITCH
S:NO,USE APT SWITCH REGISTER

CLR

AUTOF G

:CLEAR THE SPECIAL FLAG

.DIR6N

STYPE PROGRAM 1.D. FOR PART 2

,PART2

:ADRS OF SOF TWARE SWR

6315
6316
6317
6318
6319
6320

024306

012737 177570 001142

ASTART: MOV
#PR7,34PS
.SBTTL INITIALIZE THE COMMON TAGS
:3CLEAR THE COMMON TAGS (SCMTAG) AREA
MOV
#SCMTAG, R6
::FIRST LOCATION TO BE CLEARED
CLR
(R6)+
::CLEAR MEMORY LOCATION
CMP
#SWR,R6 ;:;DONE?
BNE
=6
::LO0P BACK IF NO
MOV
#STACK,SP
S:SETUP THE STACK POINTER

000002

024310

6322

024316

012737

000174

6325
6326
6327
6328
6329
6330
6331
6332

024330
024334
024342
024344
024352
024352

005037
132737
001403
012737

001326
000200

001341

001342

001140

005037

003150

024356

000005

6334

104401

6333

6335

6336

6337

024326

024360
024370

024374

0264402
024406

012637

000004

104401

007036

106401

007075

001142

678:

MOV

TYPE

007050

154532
030376

668:

RTI

_SBTTL
RESET

012737 000176 001140

005077
012737

CMP
BNE

000060

6339 024414 012737 000200 000062
6340 024422 013701 003040
6341 026426 012721 047262

#-1,3SWR
668

#DISPREG,DISPLAY

::AND A HARDWARE DISPLAY REGISTER

RKO6 MEAD ALIGNMENT AID
‘RESET UNIBUS

TYPE

,SUBVER

MOV

#SWUREG, SWR

MOV
MOV
MOV

#PRG ,9FTKVEC+2 :SET KBD PRIORITY = &
*GET ADDRESS OF VECTOR STORAGE
RKVEC ,R1
:SET IT TO INTERRUPT WNDLR
+
#1.INTR,(R1)

TYPE

CLR
MOV

aswR
‘MAKE SWR BITS ALL 0
#XBOMDL ,8#TKVEC ;LOAD VECTOR FOR TTY KBD

SEQ 0121

(ala]

CZRONED RK611/06 3S ViY2

024432
024436
024444

oS882C8aa2S

R(VPR IV IV [ NI NIV IV IV [ ,S1,N)

GIVEID:

428:

~N—

;

#PR7, (R1)

;SET INTERRUPT HANDLER PR7

MOV
MOV

#176543, SHINUM
#123456, SLONUM

s INITIALIZE PSEUDO-RANDOM NUMBERS

CLRB
CLRB
CLR
MOV
MOV

CLR
DEC
BNE

000015

024552
024554

066255
001315
012513

ASKTYP:
1$:

3s:

ASKMOD

;SEE IF MWELP FILE OVERLAID
:BR IF YES

,FORHLP

(SP)+,R1

CMPB
BEQ

#015,R1
ASKMOD

TYPE

HLPFIL

BEQ

TYPE

ASKTYP
,SCRLF

,DTYMSG

;CLEAR "RUNNING TESTS'' FLAG
;DON'T STALL ON OPERATIONS
:ZERQ OUT PREV COMMAND

:TYPE PROGRAM IDENTIFICATION

:ASK FOR ALL DRIVE TYPES

:ASK IF HELP DESIRED

;READ RESPONSE

;GET CHARACTER
;SEE IF <CR> TYPED
:BR IF NO HELP NEEDED
sASK FOR ALL DRIVE TYPES
;HELP REQUESTED- TYPE INFO.

;7O ENTER ALL DRIVE TYPES
:MESSAGE TO ENTER DRIVE TYPE
;START FROM DRIVE 0
sCR=LF
sCLEAR THE LOC 6 FOR TYPE
sDRIVE ...
:DRIVE NUMBER ON STA(CK

CLR

CLRB

BADDRV+6

MOV

RO,=(SP)

TYPE
JSR

,SOR7
PC,PREPKB

BEQ
CLRB
MOV
CMP
BNE
MOVE
INC
CMP
BHIS

2
:BRANCH IF NOT
DTYLST(RO)
sASSUME IT'S A RKO6
INTCHR,R1
:READ THE CH
27,81
I1T'S A RKO7 ?
.
:BRANCH IF NOT
3s
#B.CDT,DTYLST(RO)
;sSET RKO7 FLAG
:TO NEXT DRIVE
RO
#7.R0
:ALL 8 DRIVES ARE SET UP YET ?
1§
:BRANCH IF NOT

TYPE

TYPOC

005620

;CLEAR ERROR COUNT FOR RESTARTS

ASKTYP

TYPE

28:

ERRCNT

(R1)+
RO
423

BNE

MOVB

;

;CLEAR PARAM INP FLAG

, IDENT
HLPOVL

BNE

;ALLOW ALL INTERRUPTS
;SET FIRST CvL = 0

MDFLAG
TSTING
STALLS
#PRVCP),RY
#6,R0

TYPE
TSTB

TYPE
RDCHR

024546

SEQ 0122

#PRO,3#PS
#0,FC

CLRB

~ &
WO

p—
e

054710
054712

F 10
PAGE 124

MOV
MOV

MoV

177776
005660

02445
02445

MACY11 30A(1052)
26=JUN-80 10:53
RKO6 HWEAD ALIGNMENT AID

,SCRLF

,BADDRV

INTCHR

sTYPE THE DRIVE NUMBER

:ENTER 6 OR 7

sREAD THE NUMBER
sANY THING READ IN YET

:DETERMINE DESIRED OPERATIONAL MODE
TYPE
,TYPMOD
:ASK FOR DESIRED OPERATIONAL MODE

ASKMOD:

1$:

JSR

PC,PREPKB

BEQ
MOV

1%
INTCHR ,RY

CMP

INTCHR

2022 ,r1

:PREPARE FOR KBD

INPUT

sCHECK FOR TTY INPUT
:BR IF NO INPUT YET
:GET INPUT CHAR INTO R1
;SEE IF (*R) TYPED

len
Y e )

CIR6NED RK611/06 sS ViY2
CZR6NE.P1
26-JUN-B80 10:48

MACY11 30A(1052)
26=JUN-80 10:53
RKO6 HEAD ALIGNMENT AID

CZR6NEO RK611/06 S ViY2
IRONE .P11
26-JUN-80 10:48
024712

BEQ

000115

024746
000101

6406

2%:

026104
030556

024744

3%:

024746

GIVEID

MANUAL
AR

AUTO
PC,ECOBAD
ASKMQD

s MANUAL SELECT MODE ROUTINE
:
MANUAL
AUTOF
G
CLR
TYPE
CTYPMAN
ASKDRV: TYPE
"ENTDRV
PC,PREPKB
JSR

o
S
&

003150

1%:

IS8T
BEQ

MOV

CMP
BEQ
CMP

INTCHR

INTCHR ,R1

R1,#022

003124
017776
005736

MOovB

S NOWVIVION
OOV
VIO

F Yl=1=1-2X

—

:BR IF (*R), TO RESYART
?
;1S 1T MANUAL MODE
:BR _IF NOT MANUAL
;JUMP TO MANUAL HODE ROUT INE
?
;1S IT AUTO MODE
:BR IF NOT AUTO
:JUMP TO AUTO MODE ROUTINE
;ECHO BAD INPUT
:BR TO

ASK

FOR MODE AGAIN

;CLEAR SPECIAL FLAG
;TYPE "MANUAL SELECT MODE'’
:ASK FOR DRIVE

NUMBER

;TEST FOR

TYPED

:PREPARE FOR KBD INPUT
:SEE IF ANY INPUT
:BR _IF NONE TO CHECK AGAIN
;GET _CHARACTER INTO R1
(*R)

:BR IF (*R) TO RESTART
:COMPARE TO ASCII 0
:BR IF <0 (BAD INPUT)

DRIV

>7 (BAD INPUT)
:BR IF
;STRIP ASCII BITS
:STORE DRIVE NUMBER

:AND SET UP TO SIZE DRIVE

DTYLST(RO),TYPFMT ;LOAD THE FLAG FOR 6 OR 7

2624 ,LCM6

#6371
. PRALIM+2

#632.LC
2632
. PRDFLT+2
#632PRAL IM+6

000632

882888888 8

NN - NN
NNNNNNNNN S NNNNNNNNN
L U Ul L (A Ll A i N
A nd L Ll Al L A (M
NNNNNN

NNNNNNNS

= OO00O00O0O00O0~-0O
e
i i e ld e
D i
D
ob

DbDd bb

O0O0O0O0O00O000

[=1=]

VWA

BGT
BIC

MoV
MOV

SEQ 0123

;COMPARE TO ASCII

CMP

i
¥23%

[=1=1~]

BLT

OO0 O000O0
NN

2ZRRRRLL FEEE PSS
NN 228 FTELLLLLLLLE
=20
Sgpesyd 283 ~NOoOwn SN S OOONOWVESWN

6409

CMP
BNE
JMP
CMP
BNE
JMP
JSR
BR

6 10
PAGE 125

#400.HOLD1

#25,HOLD3
#10025, HOL D4

#632,LSTCYL

020000

TYPFAT

98
#1450,LCM6
#1455 PRAL IM+2
#1456.LC
91456, PaorLtoz
#1456. PRAL [N+6
#2025 ;HOLD3

017776

;LOAD THE LAST CYLINDER NUMBER
:1S AN RKO7 ?
;BRANCH [F NOT

#12025, HOLD4

020000

005662

#1000, HOLD1

9%:

;INTGO:

#1456.LSTCYL

;OTHERWISE SET UP THE LAST CYLINDER

#-1,HDALI
o#TYPED
HDALL

:SET PROGRAM STATUS FLAG

LSTCYL,LC

sGET DRIVE STATISTICS
sHOUSEKEEP

:AND SETUP MAX CYLINDER CNT

CIR6NED RK611/06 S ViY2
CZRONE .P1
26=JUN-80 10:48

6456
6455
6456
g:g;

0%5236
025240
025244
025246

000403
004737
000644
004737

6459
6460
gzg%

025252
025256
025260

004737
024756
004737

033220

6463
6464
6465
6466
6467
6468
6469
6470
6471
6472
6473
6476
6475
6476
6477
6478

025264
025264
025270
025274
025300
025304
025306
025312
025316
025320
025324
025330
025332
025336
025342
025344

105037
104401
004737
005737
001775
013701
020127
001002
000137
020127
001002
000137
020127
001415
020127

011323
012772
030536
005522

6490
6491

025376
025376

6493

025402
5406

MACY11 30A(1052)
26=JUN-80 10:53
RKO6 HEAD ALIGNMENT AID

H 10
PAGE 126

BAIA
BR
BAIFLU: JSR
PC,ECOBAD
BR
ASKDRV
BAIA:
JSR
PC,INITSS
s CHECK DESIRED D RIVE FOR PROPER
PC, CHKDRV
J SR

030556
032250

ASKDRV

035312

SEQ 0124

;PROCEED WITH DESIRED DRIVE
;ECHO BAD INPUT
;G0 BACK TO ASK AGAIN
;INITIALIZE SUBSYSTEM

STATUS

;CHECK DRIVE FOR ON-LINE,READY,WRITE LOCK
0 CHKDRV
;ADDRESS OF ERROR RETURN FOR

JSR

PC,DRVSER

*TYPE 'DRIVE SER. NO.

CLRB

VERIFY

;CLEAR VERIFY MODE FLAG

JSR

PC,PREPKB

:PREPARE FOR KBD INPUT

BEQ

éfisfiog’ DESIRED SUB-MODE OF OPERATION

TYPE

1$:

005522
000022

TST

MOV

CMP

BNE

024452
000003

2%:

024756
000101

38:

000105

JMP
CMP

BNE

,ENTMOD

INTCHR

INTCHR ,R1

R1,#022

GIVEID
R1,#003

JMP

ASKDRV

BEQ

MANAL

CMP

R1,#'V

CMP

CMP
BNE
JMP

R1,#'A

R1,#°E
48
MANE X

XXX

;ASK FOR ALIGN OR EXERCISE SUB-MODE
*SEE IF ANY INPUT

BR IF NONE TO CHECK ACAIN
‘GET CHAR INTO R1

:SEE IF (*R) TYPED

:BR IF NOT (*R)

:JUMP TO RESTART
*SEE IF (*C) TYPED

:BR IF NOT (C)

;JUMP TO ASK FOR DRIVE AGAIN

*SEE IF ALIGNMENT REQUESTED

:BR_IF MANUAL ALIGNMENT REQUESTED
:SEE IF EXERCISES REQUESTED
‘BR IF NOT EXERCISES

025650
000126

4$:

025632
030556

68 :

104401

012352

sMANUAL AL IGNMENT MODE
:
MANAL
TYPE
MANALN

;REPORT MANUAL ALIGNMENT MODE

104401

012557

ASKHED:

,ENTHED

;:ASK FOR DESIRED HEAD

INTCHR

:SEE IF ANY INPUT

BNE
JMP
JSR
BR

8%
MANVR
PC,ECOBAD
SUBMOD

sREQUEST AND CHECK DESIRED HEAD
18:

TYPE

JSR

PC,PREPKB

BEQ
MOV

1%
INTCHR,R1

2%:

000001
3%:

*SEE

IF VERIFY REQUESTED

‘BR IF NOT VERIFY
:JUMP TO VERIFY MODE
*ECHO BAD INPUT
:ASK FOR SUB-MODE AGAIN

:PREPARE FOR KBD INPUT

:BR IF NONE TO CHECK AGAIN
:GET CHAR INTO R1

CMP

R1,#022

MOVB
JSR

#RECAL.P.CMND(RS) ;SET RECALIBRATE COMMAND
PC,DRVCAL
:RECALIBRATE DRIVE

BNE

000001

SJUMP TO DO MANUAL EXERCISES

:SEE IF (*R)

‘BR IF NOT (*R)

:JUMP TO RESTART

JNP

GIVEID

MOVE
JSR

#RECAL,P.CMND(RS) ;SET RECALIBRATE COMMAND
PC,DRVCAL
:RECALIBRATE DRIVE

CMP
BNE
JMP

CMP
BNE

R1,#003
3s
ASKDRV

R1,#032
48

SSEE IF ()
‘BR IF NOT (*C)

:JUMP TO ASK FOR DRIVE AGAIN

SSEE IF (%)
:BR IF NOT (*D)

CIR6NED RK611/06 S ViY2
CIRONE.P11
26-JUN=80 10:48
6510

025502

6512
651
6514
6515
6516
6517
6518
6519
6520
6521
652
6523
6526
6525
6526
6527
6528
6529
6530
6531
6532
gggz

6511

112725

000113

025514
ogss 0
025524
025526
025532
02553¢
025540
025544
025546
025552

000137
020127
002410
020127
003005
042701
010137
000404
004737
000137

025264
000060

025556
025562
025564
025570
025576
025602
025
025612
025616
025622
025626

105737
00100;
004737
113765
004737
104401
013701
152701
110137
104401
000137

011323

025632
025640
025644

112737
104401
000137

000001
012412
025402

025510

004737

042510

MACY11 30A(1052)
26-JUN-B0 10:53
RKO6 HEAD ALIGNMENT ALD
000001

JSR

#RECAL,P.CMND(RS)

PC,DRVEAL

;SET RECALIBRATE COMMAND

;RECALIBRATE DRIVE

JMP
SUBMOD
SJUMP TO ASK FOR NEW MANUAL SUB-MODE
CMP
R1,#°0
*COMPARE TRACK T0 ASCII 0
BLT
5¢
BR IF <0 (BAD INPUT)
CMP
R1,#°2
:COMPARE TRACK TO ASCII 2
BGT
5%
:BR IF >2 (BAD INPUT)
BIC
#0,R1
SSTRIP ASCII BITS
MOV
R1, TRACK
*STORE TRACK (MEAD) NUMBER
BR
5%
160 SELECT HEAD
5%:
JSR
PC,ECOBAD
:ECHO BAD INPUT
JNP
ASKHED
TASK AGAIN FOR WEAD NUMBER
JUNLOAD HEADS,AND WHEN READY, START SPINDLE AND SEEK TO ALN CYL
és:
s,
VERIFY
:SEE IF VERIFY MODE
BNE
8s
:BR IF VERIFY
JSR
PC.WAIT4R
*UNLOAD MEADS, WAIT FOR <R> TYPED, LOAD
8S$:
MOVB
TRACK,P.TRCK(RS) ;SET DESIRED MEAD NUMBER
JSR
PC,ALNSEK
;SEEK TO ALIGNMENT CYLINDER
TYPE
,HEDPOS
:TYPE MEADS POSITIONED MSG
MOV
TRACK,R1
*GET BINARY TRACK NO.
BISB
#'0,Ri
:CONVERT TO ASCII
MOVB
R1,HEADNO
1GET HWEAD NO. INTO MSG BUFF.
TYPE
,HEDSEL
STYPE MEAD SELECTED MSG
JMP
ASKMED
160 BACK TO ASK FOR NEW MEAD SELECT

48:

000062
000060
005520
030556
025402

033534
005520
033460
012447
005520
000060
012643
012636
025402

MOVB

110
PAGE 127

000005

6535

6536

6537
6538
6539
gg:g

011323

sMANUAL SELECT VERIFY MODE
MANVR: MOVB
#1,VERIFY
TYPE
. MANVRF
JMP
ASKHED

:SET VERIFY MODE FLAG
;REPORT MANUAL VERIFY MODE
160 ASK FOR DESIRED HEAD

6542

6543

6544

6545

025650

6547

025654

6546

025650

6548 02

004737

033534

052701

000060

013701

110137
106401
012700
112765
004737
004737

;MANUAL RANDOM SEEK EXERCISE ROUTINE
MANEX:

;UNLDAD HEADS, WAIT FOR <R> TYPED, LOAD

BIS

#'0,R1

:CONVERT TO ASCII

MOV

CYUNDR,P.CYLN(RS) ;SET RANDOM CYLINDER ADDRESS

012344
012265
016514
000117
030536
035634

MOVB
TYPE
MOV
MOVB
JSR
JSR

02
ogsc
0 s;r&
025700
025706
025712

6556
655

025724

004737

042510

005737
001016
005300
82139&
gr 7

005522

6561
sog

025730
0 sr;:
8 §736
025740
025742

6
6565

025756
025762

004737
104401

042510
001310

000001

6555 025716 013765 005504 000002

6563

PC,WAIT4R

MOV

6549
6550
6551
6552
6553
6556

6558
6559

JSR

005500

000100

153174

025750 112765 000113 000001

1$:
2%:

DRIVE ,R1

:GET DRIVE NUMBER

R1,DRIEXR
:PUT DRIVE NUMBER INTO OUTPUT BUFFER
,MANEXR
STYPE RANDOM SEEKS MSG
#RNDLNG , RO
SINITIALIZE RANDOM SEEK COUNTER
#SEEK,P.CMND(RS) :SET SEEK COMMAND
PC.PREPKB
;PREPARE FOR KBD INPUT
PC.RNDADR
“SELECT RANDOM CYLINDER ADDRESS

JSR
PC.DRVCAL
:D0 A RANDOM SEEK
;CHECK FOR TTY INPUT DURING EXERCISES

ST
BNE
DEC
BNE
BIC

INTCHR
5
RO
2%
#8176,381KS

:SEE IF AWY INPUT
‘BR IF A CHAR WAS TYPED
:DECREMENT SEEK COUNTER
:BR IF NOT DONE SEEKING YET
‘DISABLE KBD INTERRUPT

JSR
TYPE

PC.DRVCAL
,SBELL

:RECALIBRATE DRIVE
*RING BELL TN SIGNIFY END OF EXERCISES

MOVB

#RECAL,P.CAND(RS) :SET RECALIBRATE COMMAND

SEQ 0125

CIR6NED RK611/06 sS ViYe
CIR6NE.P11
26-JUN-8) 10:48
566

0257

137

MACY11 30A(1052)
26=JUN-80 10:53
RKO6 HEAD ALIGNMENT AID

025264

6567 0257

8??701 oosgzz

6569

026002

001057

6572
6573
6574

026016
026022
ozeogs

000137
020127
001007

6577
6578
6579
6580
6581
6582
6583
6584

026042
026046
026052
02605¢
026062
026066
026072
026076

3s:

6568 0 5773 020127 000022
6570 026004
657 0%6012

11zrgs
004737

000113
042510

000001

024452
000003

6575 026030
112765 000113 000001
6576 026036 004737 0462510
000137
020127
001007
112765
004737
000137
004737
104401

gggz 026102 000701

024756
000032

000113
042510
025264
030556
012265

6590
6591
6592

6593
6594
6595

026104
026104
026112

000001

68 :

012737
004737

177777
032250

003150

012660
011323
012212

6601

026154

001002

6603
6604
6605
ooog
6607
6608
6609
6610

026162
026166
026170
026174
026176

000101

026210

020127
001417
020127
ootoo;
000137
020127
001004
112737

000001

011323

eo1§
22}‘

026220
026226

004737
000736

030556

AUTO:

1%:

030536
005522

28:

005522

6600 026150 020127 000022

6611 026216 000403

026226

6621

026236

6619
6620

ozozio
026232

:SEE IF (*R)

B8R IF NOT (*R)

JMP
CMP
BNE

GIVEID
R1,#003
5%

JMP
CMP
BNE
MOVE
JSR
JMP
JSR
TYPE

105737
001403
106401

3s:

000105
027460
000126

011323
012747

MOV
JSR

SEQ 0126

:GET CMARACTER INTO R1

#RECAL,P.CMND(RS) ;SET RECALIBRATE COMMAND
PC,DRVEAL
:RECALIBRATE DRIVE
:JUMP TO RESTART
:SEE IF (*C)
‘BR IF NOT (*C)

#RECAL.P.CMND(RS) ;SET RECALIBRATE COMMAND
PC,DRVCAL
:RECALIBRATE DRIVE

ASKDRV
:JUMP TO ASK FOR NEW DRIVE NUMBER
R1,#032
:SEE IF (%)
63
:BR IF NOT (*2)
#RECAL.P.CMND(RS) ;SET RECALIBRATE COMMAND
PC,DRVCAL
:RECALIBRATE DRIVE
SUBMOD
:JUMP TO ASK FOR NEW MANUAL SUB-MODE
PC,ECOBAD
:ECHO BAD INPUT
MANE XR
SVERIFY STILL IN MANUAL EXERCISES

:BR TO CONTINUE EXERCISES

48:

68:

#-1,AUTOFG
PC,INITSS

:SET SPECIAL FLAG
:INITIALIZE SUBSYSTEM

TYPE
CLRB
TYPE
JSR
ST
BEQ
MOV

L TYPAUT
VERIFY
,ENTMOD
PC,PREPKB
INTCHR
28
INTCHR,R1

:TYPE "'AUTO SELECT MODE''
‘CLEAR VERIFY MODE FLAG
:ASK FOR ALIGN,VERIFY, OR EXERCISE
:PREPARE FOR KEYBOARD INPUT
:SEE IF ANY INPUT
:BR IF NONE, TO CHECK AGAIN
:GET CHAR INTO R1

BNE

:BR IF NOT (*R)

CMP

u% 026156 000137 024452

6618

BNE

R1,#022

:AUTO SELECT MODE ROUTINE

026132
026136
026142
026144

6615
6619
661

;G0 ASK FOR NEW MANUAL SUB=-MODE

CMP

INTCHR,R1

1844 1
105037
104401
004737
005737
001775
013701

6596
6597
6598
6599

02611
026122
026126

SUBMOD

MOVEB
JSR
5%:

6587
6588

6589

JMP

MOV

MOVEB
JSR
48:

J 10
PAGE 128

R1,#022

JMP

GIVEID

B8R

AUTAL

CMP
BEQ
CMP
BNE
JMP
CMP
BNE
MOVB

JSR
BR

R1,#°A
AUTAL
R1,#'E
43
AUTEX
R1,8'V
6%
#1,VERIFY

PC,ECOBAD
1

;AUTO ALIGNMENT MODE
AUTAL:

TSTB
BEQ
TYPE

VERIFY
3s

AUTVRF

*SEE IF (*R) TYPED

:JUMP TO RESTART

:SEE IF AUTO ALIGNMENT REQUESTED
:BR IF A''TO ALIGNMENT REQUESTED
:SEE IF AUTO EXERCISES REQUESTED
:BR IF EXERCISES NOT REQUESTED
:JUMP TO DO AUTO EXERCISES
:SEE IF VERIFY REQUESTED
:BR IF NOT VERIFY
:SET VERIFY MODE FLAG

:PROCEED IN VERIFY MODE

:ECHO BAD INPUT
:BR TO ASK FOR A OR E AGAIN

:SEE IF AUTO VERIFY MODE
:BR IF NOT

*REPORT AUTO VERIFY MODE

—
S

CIRMO RK611/06 3S ViY2

CIR6NE.P11

26-JUN-80 10:48

000402
106401
004737
8850 7
5037
012737
012737
012737
005737

001423

MACY11 30A(1052)

MOVE
CMPB

;

BNE
CMP
BEQ

28
#377,SCRACH

:BR IF NOT (-z
SEE IF ANY DRIVE SELECTED YET

1%
R IF NONE
RECALIBRATE COMMAND
.cmusS:SET
#RECAL.P

is:

rc DRVCAL
uto
mcua 2022

;RECALIBRATE DRIVE
:RESTART AUTO MODE
SSEE IF (*R) TYPED

DRVLUP: TST

;

123727 005522 000022 28%:
001002
;
;

000137
004737
004737
805%5
12
012737

024452
030556
030536
883330
1
030320 003046

013701
nsm
01 7;7
012737
012737
012737
012737
012737
12737
12737
012737
105737
1% ;
012737
012737
12737
12737
12737
012737
012737
127%7
12737
;«9

005500
005620
000626
000631
000632
000632
000632
000632
000400
000025
&gos
124

005530

MOVE
JSR

;TYPE ALIGNMENT MESSAGE

:PREPARE FOR POSSIBLE KBD INPUT
:CLEAR MR2 STORAGE WORD
SINITIALIZE AUTO-SELECTED DRIVE INDICATOR
:INIT. OLD ONLINE DRIVE INDICATOR
;INIT. NEW ONLINE DRIVE INDICATOR
SINITIALIZE LAST DRIVE INDICATOR
:SEE IF ANY KBD INPUT

BR u NO mu
SCRACH.P. oavmsS
DRIVE NO. on POSSIBLE RECAL IBRATE
INTCHR.#032
tEIF (DT

(MPB
BNE
CMP

csn SCRACH

:BR IF NOT (*R)
sss u ANY DRIVE SELECTED YET

JSR

PC,DRVCAL

:RECALIBRATE DRIVE

BEQ

MOVE

33
RECAL IBRATE COMMAND
cmo(asSsstF NONE
#RECAL.P.

8.
48:

JMP
JSR

GIVEID
PC,ECOBAD

SRESTART ALIGNMENT AID
:ECHO BAD INPUT

68:

INTG:

CLR
MOV
MOV

DRIV
M.R
ONEDWOL. A.ABNL

:2ERO THE DRIVE NUMBER
SINITIALIZE DRIVE BIT MASK
:SET NED ABNORMAL RETURN ADDRESS

MOV
MOV8
MOV
MOV
MOV
MmOV
nov
MoV
MOV
MOV
MoV
1ST8
BEQ
nOV
MmOV
MOV
MoV
MoV
MOV
MoV
MOV
MOV
NOP

JSR

PC .PREPKB

:PREPARE FOR POSSIBLE

KBD INPUT

BIS
RO, NEWON
SSET ON-LINE BIT FOR THIZ DRIVE
NON-EXISTENT DRIVE (NED) INDICATION
FOR
cum
mvc.
:SELECT CURRENT

003124
017776
005736
005662
020000
005710
005742
020002
020004
020006

0014
&Vm
00145
5736
001456 005662
001456 8‘2’0000
001456
005710
0014
sns
000
01
s
0004
012025 020006

SEQ 0127

BEQ

005522

030536
48:
003024
8835 4
377 oossge
000377 005530
000377 005534

000137 026104

PAGE 129

1
AUTALN
ic PREPKB
T.MR2
g
S’ 3
ONL INE
#377 .NEWON
#377.SCRACH

38:

uos 004737 032404

kK 10

BR
TYPE
JSR
CLR
CLR
MOV
MOV
MOV

012711

001002

06
“ss
665 ozusg
6658
6659
36
6660
6661
$2
usi
666
6664
6
S02
6665
sos
uo’
666
§10
6658
§16
u%
5
66
5
6671
026
s
S46
§S4
6674
s,s
65
“r, 02657

10:53

RKO6 MEAD ALIGNMENT ALD

113765 005534 000000
123727 005522 000032

050037

26-JUN-80

JSR

:LOAD DRIVE NUMBER
DRIVE R
omsmn TYPFMT;LOAD THE RKO6-RKO7 FLAG
2624 ,LCM6
2631 . PRAL IN+2
uss.n.c
#632.LSTCYL
2632 .PROFLT+2
us "PRMLIM+6
#4600, HOLD1
025 uows
#10025
, oL
TYPFMT ls AN RKO7 ?
:BRANCH IF NOT
98
#1450,LCM6
#1455 PRAL IM+2
#14656.LC
#1456.LSTCYL
01456 PRDFLT+2
mss PRAL [M+6
#1000, HOLD1
#2025 ,HOLD3
#1202% ,HOLD4
JEXIT

PC,SCNDRV

TCMECK THE SELECTED DRIVE

CIR6NED RK611/706 3S ViY2
26-JUN-80 10:48
CZRONE .P11

MACY11 30A(1052)
26=JUN-80 10:53
RKO6 HEAD ALIGNMENT AID

m"%i

11 1333331

6678
6679

6681

000000
000001

6685

6687

013737
004

6691
669
669
6694
6695
96
6697

005500

005530

023737

005530

108:

seennen

005526

026304

012703

99%:

NOP
NOP
NOP
)]
MOVB
JMP

DRIVE,P.DRVN(RS) :SET DRIVE NUMBER

sggLoavJP.CMND(RS):SET SELECT DRIVE COMMAND
DRIVE,RO

MOV
MOV

#-1,HDALI

MOV
JSR
CMP
BEQ
INC
CLC

LSTCYL,LC
PC,.DRVCAL

SN TYPED
CLR
HDALI

JMP

#7 ,0RIVE
108
DRIVE

RO
INTG
NEWON,R1

ROL

000640
013701

026710

005662

:INTGON:

T0 QE

REMOVED

3
:
:

BEQ

TST

:ADD 1

DRIVE NUMBER

;CLEAR CARRY BEFORE ROTATE
;SHIFT BIT POINTER
:BR TO SELECT NEXT DRIVE

tttweee

DRVLUP
#1,R3

MOV

BNE
DEC
BNE

:SEE IF WE JUST CHECKED DRIVE 7
:BR IF IT WAS DRIVE 7

DRVLUP

N80

;LOOP1: MOV
:

sSELECT THIS DRIVE

BNE
JMP

;LOOP2: DEC

:BRANCH TO EXECUTE THE DRIVE
:GET THE SPECIFIED DRIVE
:SET UP FOR PROGRAM MARKER
:LOAD THE DEVICE TABLE
sCLEAR THIS STATUS
;GET THE MAX CYLINDER SIZE FOR THIS DEVICE

NEWON,ONL INE

CMP

93s:

000001

B8R
Mov

SEQ 0128

;ERROR EXIT

99%

112737

6689

L 10
PAGE 130

;NUMBER OF 200 MILLI=-SEC STALLS

RO
RO

LOOP2

R3
LOOP1

Rt RRRRARRRRERROEORRCEREY

026714
026720
026726

005526
005530

026730
026734

026304

&~
- O N-‘Nl\ls
NO
S
VN
= O = YW
-

e73% 026776

—

purgpary

000

064156
005500
000001

005526

:
973:

003046

BIC
MOV

ONL INE ,R1

BNE

97%
DRVLUP

TST

JMP

;GET CHANGED ONLINE BITS
;UPDATE ONLINE DRIVE BITS
;SEE IF ANY DRIVE JUST WENT ON-LINE

DRVLUP
:BR_IF NO DRIVE JUST WENT ONLINE
BEQ
SERVICE"BCE DRIVE WHICH WAS JusT SELECTED
#ERRHDL ,A.ABNL

sRESTORE USUAL

#1.R0

SINITIALIZE BIT POINTER

DRIVE
R1,R3

128:

BIT

RO R3
14$
DRIVE

005500

012122

:gUON.OflLlNE

148:

BIC

JERROR

RO
128
RO,R3

ERROR HANDLER ADDRESS
SINITIALIZE DRIVE NO.
:COPY NEW SELECTED DRIVE BITS

SEE IF THIS BIT 1S
:BR IF THIS BIT SET

SET

*INCREMENT DRIVE NO.
SCLEAR CARRY BEFORE ROTATE
SSHIFT BIT POINTER
STRY AGAIN
CLEAI OUT THIS BIT

ONLY ONE DRIVE seuscveo

THAN ONE DRIVE sELect S IMUL TANEOUSLY
JMULSEL

ce————————————

:REPORT ERROR

CZRONEO RK611/06 SS ViY2
CZRONE .P1
26=JUN-80 10:48

057016
027012
027020
027024

042762
000000

000100

000177
10

MACY11 30A(1052)

26=JUN-80

mn10

RKO6 HEAD ALIGNMENT AILD

BIC

000000

HALT

Move
JSR

000001

PAGE 131

#1E ,RKCST1(R2)

005534

CMP

BEQ

CMP
BEQ

STILL

ALIGNING SAME

:BR IF SAME DRIVE

DRIVE

23s

SCRACH

:SEE IF THIS IS FIRST DRIVE SELECTED
:BR IF FIRST DRIVE
READ STATUS OF PREVIOUS DRIVE
R IF HEADS NOT UNLOADED

#SRTSPL,P. cnuo<n5) ;SET START SPINDLE COMMAND
:CONVERT TO ASCII

AUTAL
MOVB

3377 UNLOD

‘ERROR RETURN ADDRESS
:SET DRIVE UNLOADED INDICATOR

MOV

#2. TRACK

:SET TRACK = 2

000001

Move

#UNLOAD ,P.CHND(RS);SET UNLOAD COMMAND

000001

MOVB

23¢:

JSR
MOVB

PC,DRVCAL

2'0,R1

000044

000001

005520

;SEE IF

§§,"°""P. Ao1(nsSsse IF HEADS ARE UNLOADED

MOVB

;
24$:

0462510
000002

268

BIS

000000

027276
02730
02731

R1,SELECT

:START SPINDLE ON PREVIOUS DRIVE
:STORE DRIVE NO. FOR LATER CLEANUP STRT SPL

011322
005520

000113

PROCEED

#SUBCLR,P.CAND(RS);SET SUBSYSTEM CLEAR COMMAND
;CLEAR THE SUBSYSTEM
PC,DRVCAL
AUTAL
SRESTART AUTO ALIGNMENT

BIT

MOV
MOV

MOVB
TYPE
JSR

011323

INTERVENTION

PC,DRVCAL
DRIVE,SCRACH

005534

027262
027266
027270

MANUAL

SCRACH,P.DRVN(RS) ;GET LAST DRIVE NUMBER
#RDSTAT,P.CMND(RS) ;SET READ STATUS COMMAND

BEQ

000001

005500
011322

FOR

PRESS 'CONT' TO

MOVEB
MOVB
JSR

000044

027250
027256

.HAL

:PROCEED uxru NEU%Y-SELECTED DRIVE

000000
000001

027244

SEQ 0129

INHIBIT RKO6 INTERRUPT
:

coutxuue uxru SELECTED DRIVE

i6s:

027312

10:53

000000

000001

005520

MOV

MOVB
BR
1STB

JSR

258:

328:

JSR

BIT
BEQ

MOVB
JSR

R1,SELECT
DRIVE,R1

R1,DRVSEL
,DRISEL
PC, CHKDRV

#0, TRACK

568:

MOVB

;

BNE

338:

;

:SET TO TRACK 0

PC,DRVCAL

UNLOAD THE DRIVE

#RDSTAT,P.CMND(RS) ;SET READ STATUS COMMAND
PC,DRVCAL
:READ STATUS OF DRIVE
#5.HDHM,P. Ao1(asSsee IF HEADS ARE UNLODED YET
25%
R IF NOT YET

#SUBCLR,P. cnuo(a§>:SET SUBSYSTEM CLEAR COMMAND
:CLEAR THE S.S.
160 BACK TO SCAN DRIVES AGAIN

DRIVE,P.DRVN(RS) ;SET DRIVE NO.

: COMPLEMENT UNLOAD INDICATOR

COMB

UNLOD

TS18

vgaxrv

MOVB

#RECAL.P.CMND(RS):SET RECAL COMMAND

JSR

PC,DRVCAL

:START SPINDLE ON THIS DRIVE

30%

:NOT EXCEES WEAD 2

TRACK

= 0
*SET TRACK

BNE

;

:GET DRIVE NUMBER INTO OUTPUT BUFFER
:TYPE 'DRIVE X SELECTED'
:CHECK DRIVE FOR RDY, WRITE PROT.

DRIVE,P.DRVN(RS) ;SET DRIVE NUMBER
:SKIP THE REST PROGRAM FLOW
328
:SEE_IF AUTO VERIFY
VERIFY
:SKIP UNLOAD IF VERIFY
328

PC,DRVCAL
DR VLUP
"PROCEED WITH SAME DRIVE

JMP

:UPDATE SELECTED DRIVE NUMBER
:GET DRIVE NUMBER

MOVB
CMP

BHIS
BNE

CLR

248
33

:BR IF DRIVE SHOULD BE UNLOADED
:SEE IF AUTO VERIFY

*SKIP START SPL IF VERIFY

#SRTSPL,P.CMND(RS) ;SET START SPINDLE COMMAND
#2 TRACK

28%

TSEE IF LAST TRACK WAS 2

‘BR IF IT WAS NOT 2

CIRONEO RK611/06 sSS VFY2
CIRONE.P11
26-JUN-80 10:48

MACY11 30A(1052)
26=JUN-B0 10:53
RKO6 HEAD ALIGNMENT AID

N 10
PAGE 132

SEG 0130

6790

027316

0004

6792

027324

113785

005520

6794
6795
6796

027336
027342
027346

104401
013701
152701

012447
005520
000060

TYPE
MOV
BISB

HEDPOS
fRACK ,R1
#'0,Rf

6798

027356

104401

012636

TYPE

HEDSEL

:TYPE 'MEAD X SELECTED"

027

022737

000003

CMP

#3,TRACK

sALL TRACK ARE DONE?

6802
6803
6804
6805
6806
6807
6808
6809
6810
6811
6812
6813
23};

027376
027402
027406
027410
027416
027420
027424
027432
027434
027440
027446
027450
027454

004737
005737
001775
123727
001002
000137
123727
001002
000137
123727
001353
000137
000137

030536
005522

JSR
TST
BEQ
CMPB
BNE
JMP
CMPB
BNE
JMP
CMPB
BNE
JMP
JMP

PC,PREPKB
INTCHR
478
INTCHR,#032
488
AUTO
INTCHR,#022
49
AUTO
INTCHR,#003
46$
AUTO
DRVLUP

:READ THE KEYBOARD
:READ ANY THING YET ?
:BRANCH IF NOT
77
BRANCH IF NOT

6816
6817
6818
6819
6820
6821
2
6823
6824
S
6826
6827
6828
6829
30
6831
683§
6833
6834
6535

027460
027460
027464
027470
027476
027500
027502
027510
027512
027516
027524
027526
027532
027540
027542
027550
027552
7sog

004737
004737
104401
005737
001775
023727
001002
000137
023727
001002
000137
023727
001004
012737
000413
023727
001004

6839

027576

000730

6791 0 7% 0 oos;g; 005520

6793

6797

027332

027352

6799 027362
6801

6836
6837
6838

6840
6841

684;

6843
6846

6845

027374

027562
027570
027572

027

004737

110137

033460

012737
000403
004737

468:
47%:
000032

026104
005522

000022

48S:

026104
005522

000003

49$:

026104
026304

032250
030536
013025
005522

005522

000022

024452
005522

000032

026104
005522

000123

002734

005534

005522

000114

016514

005534

00503” 005500

01;737

030320

003046

027624

116137

005620

003124

113765
013701

005500
005500

INC

308

;60 SEEK TO ALIGNMENT CYLINDER

MOVB

TRACK

JSR

TRACK,P.TRCK(RS)' :SET TRACK NO.

PC,ALNSEK

:§EEK IN INCREMENTS TO ALIGN. CYL

INC

005520

005522

030556

MOVEB

027604

027612
027620

308:

012643

oos;sr 005520
101353

000005

88:

000000

BHI

R1,HEADNO

TRACK
30§

: INCREMENT TRACK NUMBER

:TYPE HEADS POSITIONED MSG
:GET CURRENT TRACK NO.
:CONVERT T0
ASCII

1GET TRACK

INTO

MSG BUFFER

: INCREMENT THE TRACK NUMBER
:BRANCH IF NOT

iR ?
;
€2
TWAIT
:TO NEXT DRIVE
GO BACK TO SCAN DRIVES AGAIN

sAUTO RANDOM SEEX EXERCISE ROUTINE
AUTEX:
JSR
PC,INITSS
JINITIALIZE SUBSYSTEM
JSR
PC,PREPKB
:PREPARE FOR KBD INPUT
TYPE
JAUTEXR
sASK FOR SHORT OR LONG SEEK EXERCISES
18:
ST
INTCHR
SSEE IF ANY INPUT
BEQ
18
:BR IF NO INPUT
CMP
INTCHR, #022
:SEE IF (*R) TYPED
BNE
2%
:BR IF NOT (*R)
JMP
GIVEID
sJUMP TO RESTART ALIGNMENT AID
2%:
CMP
INTCHR, #032
:SEE IF (*Z) TYPED
BNE
3s
:BR IF NOT (*2)
JMP
AUTO
;JUMP TO RESTART AUTO MODE
3%:
CMP
INTCHR,#'S
sSEE IF SHORT EXERCISES DESIRED
BNE
48
:BR IF NOT SHORT
MOV
#RNDSHT ,SCRACH ;SET 1 MINUTE SEEK COUNT
BR
63
:PROCEED WITH SHORT EXERCISES
4$:
CMP
INTCHR,#'L
JSEE IF LONG EXERCISES DESIRED
BNE
5$
:BR IF NOT LONG

5%:

MOV
BR
JSR

#RNDLNG,SCRACH
6%
PC,ECOBAD

:SET 5 MINUTE SEEK COUNT
:PROCEED WITH LONG EXERCISES
sECHO BAD INPUT

68:

CLR

DRIVE

SET DRIVE = 0

AUTEX

:BR TO ASK AGAIN

:SELECT CURRENT DRIVE AND CHECK FOR NON=EXISTENT DRIVE INDICATION

38:

MOV

#NEDHDOL ,A.ABNL

MOVB

DTYLST(R1),TYPFMT

MOVB
MOV

;SET NED ABNORMAL RETURN ADDRESS

DRIVE,P.DRVN(RS) :SET DRIVE NUMBER
DRIVE ,Ri
:LOAD THE DRIVE NUMBER

:LOAD THE RKO6=RKO7 FLAG

CZR6NE .P11

26=-JUN-80 10:48
012737

MACY11 30A(1052) 26-JUN-80 10:53 aPAGE 133
RKO6 HEAD ALIGNMENT AID

6846

027632

000624

017776

MOV

#624,LCH6

6848
6849
6850
6851
sasg
6853

8764.6 12737
027654 012737 000632
027662
012737 000632
027670
012737 000632
0 7?76
12737 000400
027704 01%7 7 000025

00566
020000
005710
005742
ogoooz
020004

MOV
MOV
MOV
MOV
MOV
MOV

#632.LC
#632.LSTCYL
2632 .PROFLT+2
#632.PRALIN+6
oaoo HOLD1
HOLD3

6856
6857
6858

027726
027726
027734

001433
012737
012737

001450
001455

017776
005736

BEQ
MOV
MOV

6862
6863
6864

027764
027772
0

012737
012737
012737

001456
001000
002025

005742
020002
020004

MOV
MOV
MOV

6866
6867
6868
6869
6870
6871

030014
030016
030022
030024
030026
030030

000240
004737
030262
000240
000240
000240

6847 027640 81 737 8832 1

oos7sg

MOV

6854
027712 012737 010025 020006
6855 027720 105737 003124

MOV
TSTB

6859 027742 012737 001456 005662
027750 012737 001456 020000
6861 027756 012737 001456 005710

MOV
MOV
MOV

6860

6865 0

6872
6873

6874

6875
6876
6877
6878
6879
6880
6881
6882

030032
8;8820

012737 012025 020006
032404

112765
8327;7

000101
000377

000001
005530

030052
030060
030066

012737
022737
001075

044156
000377

003046
005530

030070
030074

004737
027460

033220

737 062510

013701 005500
6883 030076
030102
052701 000060
030106 110137 013135

6884
6885

030112

104401

9s:

JSR

BIS

005534
030536
035634

6891
6892
6893
6894
6895

oso1&g
030152
030156
030160
30193

004737
005737
oou.s;
023727
001007

042510
005522

108:

6898
6899
6900

000022

000032

6901 030216 112765 000113 000001

#1456. PRAL IM+6
#1000, HOLD1
#2025 HOLD3

#12025, HOLD4
PC,SCNDRV

SEXIT

#SELDRV,P.CMND(RS) :SET SELECT DRIVE COMMAND
#377 NEUOR
lNlTIALlZE ON=LINE INDICATOR

PC,DRVCAL

*SELECT THIS DRIVE

*CONVERT TO ASCII

JSR
ST
BEQ
CMP
BNE

PC.DRVCAL
INTCHR
168
INTCHR, #022
128

:00A RANDOM SEEK
sss 1r ANY KBD INPUT
R IF NO INPUT
see IF (*R) rvpeo
R IF NOT (*R

JSR

PC,DRVEAL

nécLIBRATE DRIVE

MOVB
12%:

;SEEK COUNT
PREPARE FOR POSSIBLE KBD INPUT
SELECT RANDOM CYLINDER ADDRESS

MOV

30170 112765 000113 000001
6099
689 830173 004737 042510
024452
005522

#1456.LC
#1456,LSTCYL
#1456. PRDFLT+2

SCRACH,RO
PC, PREPKB
PC.RNDADR

MOVB

6890 030140 013765 005504 000002
005522

;1S AN RKO7 ?
‘BRANCH IF NOT

GET DRIVE NUMBER INTO OUTPUT BUFFER
:TYPE "EXERCISING DRIVE X'

MOV
JSR
JSR

013700
004737
004737

98
#1450,LCM6
#1455 PRALIM+2

R1 AUTODR
UTOEX

013116

oso1§3
0301
030134

nobzs
HOLD&
TYPFMT

MOV
OERRRDL.A ABNL RESTORE ABNORMAL DRIVER RETURN ADDRESS
CMP
#377, NEWON
*SEE IF NED INDICATION ON THIS DRIVE
BNE
18%
8R IF NED, TO SKIP THIS DRIVE
:CHECK DRIVE FOR RDY, URITE PROTECI
JSR
PC, CHKDRV
:CHECK THIS DRIVE
AUTEX
ERROR RETURN ADDRESS FOR CHKDRV
:PROCEED WITH SEEK EXERCISES ON TRIS DRIVE
MOV
;GET DRIVE NUMBER

MOvB
TYPE

6887
6888
6889

000137
023727
001007

WOP
JSR
188
NOP
NOP
NOP

MOVB
MOV

6886 (30116 11§7GS 000117 000001

030202
030206
030214

MOV

#631 . PRALIM+2

JMP
CMP
BNE

MOv8

oseex P.CAND(RS) :SET SEEK COMMAND

CVLNDR.P.CYLR(RS) SET RANDOM CYLINDER ADDRESS

#RECAL.P. cnno«usssSET RECALlBRAtE COMMAND
GIVEID
INTCHR, #032
14%

SJUMP TO RESTART ALIGNMENT AID
sse IF (*7) TYPED
R IF NOT (*2)

#RECAL,P. CRND(RS‘sSET RECALIBRATE COMMAND

SEQ 0131

lala

CZRONEO RK611/06 SS VEY2

CIRONE.P11
6902

26=JUN=80 10:48

0302264

690
23
6904
6905
6906
6907

030240
030244
030246

6910
6911
6912
6913

6915
6916
6917
23}3

004737

MACY?* 30A(1052)

042510
030536

030262
030266
030274
030276

oos;sr
022737
001402
000137

005500
000010

JSR

030302
030310
030314

042777
104401
000137

000100
001310
026104

148:

168:

6908 030250 11zrgs 000113 000001
909 030256 004737 042510

6914

030302

005500

027604

030320
030326
030330
030334
030336
ggggzo
&
030346
030352
030354
030356
030360
030362
030366
030370
030372

032765
001002
000137
010046
010146
o1groo
005001
120137
001403
005201
006300
000772
040037
012601
012600
000137

010000
044156

000001
005500

005530
046334

6941

188:

99%:

150634

6920

6921
6922
6923
6924
6925
6926
6927
6928
69
69
6931
6932
6933
693,
6935
6936
6937
6938
ggzg

10:53

RKO6 HEAD ALIGNMENT AID

000137
0;6106
004737 030556
004737
005300
001330

26-JUN-80

000020

;

PAGE 134

JMP
JSR

PC,DRVCAL

MOVB
JSR

#RECAL,.P.CMND(RS) :SET RECALIBRATE COMMAND
PC,DRVCAL
:RECALIBRATE DRIVE

JSR
DEC
BNE

INC
CMP
BEQ
JMP

BNE
BIC
TYPE
JMP

aufo
PCLECOBAD

PC .PREPKB
RO
108

;RECALIBRATE DRIVE
.

:JUMP
TO RESTART AUTO MODE
:ECHO BAD INPUT

:ENABLE KBD INPUT AGAIN
*DECREMENT SEEK COUNT
:BR IF NOT DONE WITH TMIS DRIVE

ORIVE
#10,DRIVE
998
8s

INCREMENT DRIVE NUMBER
*SEE IF DONE WITH ALL DRIVES

8s
#B116,387KS
,$BELL
AUTO

:BR IF MORE DRIVES TO EXERCISE YET
:DISABLE KBD INTERRUPT
‘RING BELL AT END OF AUTO-EXERCISES
‘RESTART AUTO MODE

;THIS IS THE ABNORMAL RETURN FROM THE DRIVER,
P WHICH IS USED WHEN NED INDICATION IS EXPECTED (AND VALID).
P
(NED = NON-EXISTENT DRIVE)
NEDHDL: BIT
#NED,P.CS2(RS) :SEE IF NED ON DRIVE SELECT
BNE
1%
‘BR IF NED SET
JMP
ERRHDL
160 HANDLE OTHER ERROR
18:
MOV
RO,=(SP)
:SAVE RO,R1
MOV
R1.=(SP)
MOV
#1.R0
:SET BIT POINTER
CLR
R
:CLEAR COUNTER
2%:
CMPB
R1,DRIVE
*SEE IF R1 = CURRENT DRIVE NUMBER
‘BR IF =
3s
BEQ
INC
R1
: INCREMENT COUNTER
ASL
RO
:SHIFT BIT POINTER
BR
2%
STRY AGAIN
38:
BIC
RO, NEWON
*CLEAR ONLINE BIT FOR THIS DRIVE
RESTORE RO,R1
(SP)+,R1
MOV
MOV
(SP)+.RO
:TAKE NORMAL RETURN
RE TNML
JMP

69‘2

:."Qt"".""""""0""'""'."I".""'.'t.""""'.'.""

69“

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

6943
6945

"SBTTL

696
6947

030376
030400

010146
017701

6953
6954

030424
030430

0&27g1
010137

030440
030442

001007
106401

150542

R1,=(SP)
asixe Rl

:SAVE R1 ON STACK
*READ A CHAR FROM KBD BUFFER

000040
005522

208:

BIC
MOV

#B175,R1
R1, INTCHR

TMAKE IT UPPER CASE
*SAVE INPUT CHARACTER

6955 030434 122701 000003
6956
6957

KBDMDL - TTY KEYBOARD INTERRUPT HANDLER

KBDHDL: MOV
MOV

6948 0304064 042701 177600
030410 120127 000172
6949
6950 030414 ogsoos
6951 030413 1 0157 000141
002402
6952 030422

013205

SEQ 0132

BIC
CMPB
BGT
CMPB
BLT
cwee

BNE
TYPE

9177600, 1
R1,0172
208
R1,#141
20§
#003,R1

2%
,CNTRLC

TMASK OUT UNUSED BITS
*SEE IF LOWER CASE TYPED
‘BR IF NOT
:BR IF NOT

“iSEE IF (*C) TYPED
‘BR IF NOT (*C)
TECHO (*C)

S—

lalal

CIR6NED RK611/06 SS ViY2

CIRONED RK611/06 3S ViY2
CZR6NE .P11
26=JUN=-B0 10:48

MACYT 30A(1052)

6958
6959

030446
030454

042777
012601

000100

6961

030460

122701

000032

6960 030456
696;
6963

000002

0
0304

001003
104401

6965
6966
6967

030474
030500
030502

122701
001003
104401

000022

6969
6970
6971

030510
030514
030516

122701
001003
104401

000007

6973
6974

030524
030530

104401
104401

005522
001315

6964 030472

000765

6968 030506 000757
6972 030522 000751

6975 030534 000744

150470

2%:

013212

38:

013217
(s:

013231
5%:

6979

CLGAR KBD INTERRUPT ENABLE BIT
RE ORE
R

(mMPB

#032.R1

.SEE IF (*2) TYPED

RT]

BNE
TYPE

38
CNTRLZ

#022.R1
33
CNTRLR

CMPB
BNE
TYPE

#007 ,R1
5%
CNTRLG

TYPE
TYPE

LINTCHR
SCRLF

:BR IF NOT (*2)
sECHO (*2)

CMPB
BNE
TYPE

:RETURN

:SEE IF (*R) TYPED
:BR IF NOT (*R)
sECHO (*R)

:RETURN

:SEE IF (*G) TYPED
:BR IF NOT (*G)
;ECHO (*G)

:RETURN

;ECHO INPUT
:D0 <CR> AND <LF>

:RETURN
,

.SBTTL PREPKB = PREPARE FOR KEYBOARD INPUT
:*THIS SUBROUTINE CLEARS THE KEYBOARD BUFFER AND THE
s*DONE BIT, AND CLEARS THE TTY INTERRUPT INPUT WORD

s*INTCHR, IN PREPARATION FOR NEW TTY INPUT. IT ALSO

s*ENABLES KBD INTERRUPT,
;v CALL:
H
JSR
PC,PREPKB

6987

6992
6993
6994
6995

#B1T6,387KS
(SP)+.R1

LR
R
L

6980
6981
6982
6983
6984
6985
6986

6988

SEQ 0133

BIC
MOV

6976
6977
6978

6989
6990
6991

18:

D1
26=JUN-80 10:53 PAGE 135
KBDHDL = TTY KEYBOARD INTERRUPT MANDLER

030536
030542
030546
030554

005077
005037
052777
000207

150404
005522
000100

6996

150370

PREPKB: CLR
CLR
BIS
RTS

as$TkB
INTCHR
#B1T6,38TKS

sRETURN

RR
Aty

6997
6998
6999
7000

SBTYL ECOBAD = ECHO BAD TTY INPUT
:*THIS SUBROUTINE ECHOS A CHARACTER WHICH HAD BEEN
'TVPED IN AND WAS DETERMINED TO BE INVALID FOR SOME
:*REASON, FOLLOWED BY A QUESTION MARK (?). THEN, A <CR>

7003

R L

7001
7002

7004
7005
7006
7007
7008

7010

s *AND <LF> ARE DONE.
:' CALL =
JSR

030556
030562
030566

104401
104401
000207

005522
001314

ECOBAD: TYPE
TYPE
RTS

:CLEAR KBD BUFFER AND DONE BIT
sCLEAR TTY INPUT WORD
sENABLE KBD INTERRUPT

PC,ECOBAD

A il

7011

701

:+THIS SUBROUTINE SIZES MEMORY BY CALLING SUBROUTINE $SIZE, AND

701

'
sECHO BAD CHARACTER
sTYPE <?> AND <CR>, <LF>
sRETURN

,INTCHR
,SQUES
PC

R R

PR NN RN AR

;*SIZMEM - SIZE MEMORY, SET LIMITS

RN RN R AL TR

R RN RN RN

EN
MACY SgA(1052)
26=JUN-80 10:53 PAGE 136
COBAD = ECHO BAD TTY INPUT

7014
7015

7016
7017
7018
7019

;1T USES THE VALUES RETURNED, TO SET THE LIMITS ON PARAMETER MA.
;#IT ALSO TYPES "LAST PHYS MEM ADR = XXXXXXXX'' (LEAD ZEROS SUPRS'D),

:«AND SETS THE FLAG UBMPRS = 1 IF 22-BIT ADDRESSES ARE USED (11/70).
;:".tt".'Q'"l"'""""'"'""QQ"""'.Q"""'Q"Q"'Qt"t'
SIZMEM: SAVREG
;SAVE RO-RS
MOV
#200,3KT11
:SET MEM MGT KEY FOR $SIZE

030570
030572

104407
012737

7021
7022
7023
7024
7025
7026

030604
030610
030612
030620
030624

005737
100406
013737
005037
000436

7028
7029
7030
7031
7032
7033
7034
7035
7036
7037
7038
7039
7040
7041

030632
030634
030640
030642
030644
030646
030650

030652
030656
030660
030664
030670
8
72

063700
005501
010037
010137
000241
006100

7043
7044
7045

030676
030700
030702
030704

006100
006101
006100
006101

ROL
ROL
ROL
ROL

7048 030712

103403
112737

000001

BLO

030722
030726
030732
030736
030742

104401
012746
004737

007101
005574
055414
055730
001315

7020

7027

7042

030600

030626

004737

013700

005001
012702
000241
006100
006101
005302
001373

000200

057652

057710

057710
060154
005576

005574

060156

JSR

ST
BM:
MOV
CLR
BR
:SHIFT SAF LEFT

8s:

000006

060154
005574
005576

76 006101

7056

7055
7056
7057
7058

7059

030714

030746
030752
030754

004737

104401
104401
104410
000207

003143

:SIZE MEMORY

$LSTBK,RO

:L0 BITS

$xi11
SSEE IF MEM MGT PRESENT
8%
:BR IF MEM MGT PRESENT
SLSTAD,MAHILM
:SET MEM LIMIT LO BITS
MAHILM+2
:CLEAR MEM LIMIT WI BITS
16$
160 TYPE LAST ADDRESS
6, AND PUT IN R1-RO

ROL

CMP

R1,#37

‘Wl BITS
SSET LOOP COUNT = 6
:ROTATE LOOP

SAF TO GET PHYSICAL ADDRESS
;ADD LO BITS
:HI BITS
:SET LO BITS OF MEM LIMIT
*SET WI BITS OF MEM LIMIT

RO
R1
RO
R1

168

MOVE
#1,UBMPRS
:SET "UNIBUS MAP PRESENT'' FLAG
;TYPE "'LAST PHYS MEM ADR - XXXXXXXX''
i6$:
TYPE
,LSTMEM
:TYPE "'LAST PHYS MEM ADR ="'
MOV
MAHILM,=(SP)
:PUT POINTER ON STACK
JSR
PC,a#$0820
*CONVERT BINARY TO OCTAL ASCII

JSR

TYPE
TYPE
RESREG
RTS

001315

700

MOV

PC,$SI1ZE

CLR
R1
MOV
#6,R2
128:
CLC
ROL
RO
ROL
R1
DEC
R2
BNE
128
;ADD VIRTUAL ADDRESS TO SHIFTED
ADD
$LSTAD,RO
ADC
R1
MOV
RO, MAHILM
MOV
RT.MAHILM+2
cLe
ROL
RO

7047 030706 020127 000037
7049
7050
7051
7052
7053

SEQ 0134

PC.3#SSUPRS

STYPE "XXXXXXXX''

:RESTORE RO=-RS
:RETURN

L SCRLF
,SCRLF

:TYPE <CR>,<LF>

r“z

.’“".'Q".""""""'"""""Q'.'.t""."..O.tl.'.'.t.""'Q

7063
7064
7065
7

‘e GETPRM = INPUT A SIX=DIGIT OCTAL NO. ON TTY KBD
*eENTER SUBROUTINE WITH OLD PARAMETER VALUE ON STACK. SUBROUTINE
:eTYPES OLD VALUE, AND INPUTS NEW VALUE, RETURNING NEW VALUE ON
:eTOP OF STACK.

’“

7068 030756 016646
7069

030762

104403

000002

1222222222222

GETPRM: MOV

TYPOS

2 2222282222220

2(SP),=(SP)

:GET OLD VALUE
TYPE IT

00]

]

(alal

CIR6NED RK611/06 sS ViY2
CZIRONE.P11
26-JUN-B0 10:48

CIR6NED RK611/06 S ViY2
CIR6NE .P11
26-JUN-80 10:48

MACY11 30A(1052)
26-JUN-B0 10:53 PAGE 137
BAD TTY INPUT
ECHO
=
ECOBAD

6
0

;SIX DIGITS
SUPPRESS LEADING JEROS

JSR

PC.RDCHRS

READ NEW VALUE FIOH k8D

41
4]
78
TST

S
g
>
o

PPy

Sfi’oovoo$2
O0OO00O000O

BYTE
.BYTE

TYPE

007434
034002

000006

4s:

005264
001314
000010

6$:

005264
054456

8s:

7%:

054610

BNE
RTS
CMP
BLE
TYPE
TYPE

suB
RTS

MOV
JSR
63
MOV
TST
BNE

MOV
RTS

000002

SEQ 0135

,NEWNSG

L
PC
RO, #6
8s
.BUFFO

:TYPE

NEW

:(*C) RETURN ADDRESS
:(*Z) RETURN ADDRESS
;(*U) OR ERROR RETURN ADDRESS
;SEE IF ANY CHARS TYPED

:BR_IF YES
;RETURN = OLD VALUE UNCHANGED
;SEE IF > 6 CHARS TYPED
:BR IF NOT BAD
;ECHO BAD INPUT

. SQUES

#10, (SP)
PC

#BUFFO,~(SP)
PC,OCTBIN
(SP)+,RO

SHIOCT
6%
RO,2(SP)
PC

;FIX ERROR RETURN P(
;ERROR RETURN

;PUT POINTER TO CHARS ON STACK
;CONVERT DIGITS TO BINARY
;ERROR RETURN ADDRESS
;GET NEW BINARY VALUE
;SEE IF Wl BITS ARE 0
;BR _IF NOT
;PUT NEW VALUE ON STACK
sRETURN

rHAtRARRARRRRRRRRERCERCERRRRRRRRRRARRRRARRARNRRRRRRRARORNQRRRNRRRORRORTS

SBTTL

GTSWRG - OPEN SOF TWARE SWITCH REGISTER FOR MODIFICATION

;*THIS SUBROUTINE ALLOWS THE CONTENTS OF THE SOF TWARE SWITCH
'REGISYER TO BE MODIFIED BY TTY INPUT. THE SUBROUTINE TYPES

*« “'SWR = XXXXXX NEW = "', AND WAITS FOR A NEW OCTAL VALUE
'OF UP TO SIX DIGITS TO BE TYPED.

-o-agcww
T
2 5g
[«
8T

D
D

-t et 2 OO

h
—b

) —d

Wl Ll L U

022737
001010
013746
104401

004737
012637
000207

000176

000176
007425
030756
000176

001140

GTSURG: CMP
BNE
MOV

6%:

TYPE
JSR
MOV
RTS

#SWUREG, SWR
6%
SWREG,-(SP)
,SWRNSG
PC,GETPRM
(SP)+,SWREG
PC

:SEE IF SOFTWARE SWR SELECTED
:BR IF NOT
.»'T OLD VALUE ON STACK
:TYPE ''SWR
YVPE oLD, GEY NEW SWREG VALUE
SIORE NEU VALUE
:RETURN

OO0 NS
W

—

OO0 O0O0O0O

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

22sttt ttRtettRedet Rt ettt Rt Rt R R RRRRRRARRRRROERRRRRRRROERRRRRRORROETRY

s*INITMM - INITIALIZE MEMORY MANAGEMENT REGISTERS
;*THIS SUBROUTINE INITIALIZES KIPAR'S AND KIPDR'S, FOR

;*CONTIGUOUS 4K PAGES,

STARTING AT PHYSICAL ADDRESS 0.

1K IPAR7? IS LOADED WITW 177600, TO PRESERVE THE 1/0 PAGE.
:#22-B17 MODE AND THE UNIBUS MAP ARE ENABLED, IF PRESENT,

;*BUT MEM MGT IS NOT TURNED ON IN THIS SUBROUT INE. HOWEVER,
;*MEM MGT TRAPS ARE ENABLED.
cogiatttttttRtet ROt R e

7126
7125

031120
031122

104407
005001

1 NITMM:

SAVREG

CLR

R ROERRRORERRRRERRRRRRORORRARRRRORARRRRRRROERNOERRORORNTETD

:SAVE RO=-RS

“INIT FOR PAR LOADING

———

F 1N

7126
7127

0211 &
031130

012702
012703

7131
7132

03115¢
031152

005303
001370

7137
7138

031174
031202

012737
104410

172340
000010

MOV
MOV

cxlrnao R2

:ADDR OF FIRST PAR
:LOAD 8 PAR'S AND 8 PDR'S

177600
003143

DEC
BNE
MOV
TSTB
8EQ
MOV

R
48

:DECREMENT LOOP COUNTER
:LOOP UNTIL ALL 8 ARE LOADED

oa|f9 a#SR0

ENABLE KT11 TRAPS
:RESTORE RO=-RS

7128 o§11 012762 077406 177740 4$:
7129 031142 0101
7 og1144 oogr 1 000200
7133
7134
7135
7136

7139

7140
7141
7142

031154
031160
031164
031166
031204

01274;
105737
001403
012737
000207

000060

001000

172516

177572

19%:

MOV
MOV
ADD

MOV
RESREG
RTS

nrrtog ~40(R2) :PDR = 4K,UP,READ/WRITE
(R2)+
:LOAD
A PAR
oié LR
:UPDATE FOR NEXT PAR
#177600,-(R2)
UBMPRS
108
#60,a#SR3
PC

:SET UP KIPAR? FOR 1/0 PAGE
1SEE IF 22-BIT ADDRESSES
:BR IF NOT
*ENABLE 22-BIT MODE,AND UNIBUS MAP
*RETURN

7143

7144

;*SERVICE ROUTIE FOR MEM MGT TRAPS

71‘5

SEQ 0136

R A

i el

::"'.."'.'."""'""Q'Q""i'.""tt".'."".""'tQQ'Q.'Q"

Y an )

61
MACY11 30A(1052)
26=JUN-B0 10:53 PAGE 13 8
GTSWRG = OPEN SOF TWARE SWITCH REGISTER FOR MODIFICATION

CZRONED RK611/06 35 viv2
CIRONE.P11
26-JUN-80 10:48

7146
7147
7148
7149
7150

7151
7152

031203
031212
os1z§o
031226
031234

031242
031250

004737
013737
0127 7
013737
012737

012737
013737

7153 031256 000406

7154

031260

022626

7157

031274

104121
000137

7155 031262
7156 031270
;}gg

031276

112737
105037

043676
177572
177576
177576
031260

000340
172516
000003
064250

"KL

MACY11 30A(1052) 26=JUN-B0 10:53 PAGE 139
GTSWRG = OPEN SOFTWARE SWITCH REGISTER FOR MODIFICATION
001174
001176
001200
000004

000006
001202

065610

KTERHD: JSR
MOV
MOV
MOV
MOV

MOV
MOV

8$:
1%:

046126

7160
7161

B8R

CMP

Move
CLRB

ERROR

JMP

:GATHER STATUS FOR PRINTOUT
:GET SRO
:GET SR1
‘GET SR2
:SET TIME-OUT VECTOR

#PRY, SFERRVEC+2
SRS, SREGI0
;GET SR3

108

(SP)+_ (SP)+

#3,0F50+18.
DH704+11.
121
HLTPRG

:KT11 FAILURE

*ABORT '!!

7163

s*ENBCSR = ENABLE MEMORY CSR'S FOR PARITY ERRORS
031302
031304
031310
031314
031322
031326
031330
03133¢
Ogl 36
031340

010146
013746
013746
012737
012701
005011
012711
000401
025986
06
1

7176

031350

001366

7177
7178
7179
;}g?

A A

;;"QQQ'Qt."'t"t"""""t"'ttt"tlttt't"!ttt't'tt..t'tt'l't

7165
7166
7167
7168
7169
7170
7171
7172
7173
7174

7175

L L

;CLEAN UP STACK

SFIX PRINTOUT FOR NO SR3

7162

71“

PC,REPSUP
a#SRO, SREGS
ISR1, SREGS
MSR2,SREGT
#8% SPERRVEC

SEQ 0137

031344

031352
031356
031362
031364

020127

012637
012637
012601
000207

000004
000006
031336
172100

000004

000001
000002

172140

ENBCSR: MOV
MOV
MOV
MOV
MOV
48:
CLR
MOV
BR
8$:
CMP
10%:
ADD

CMP

BNE

000006
000004

MOV
MOV
MOV
RTS

7182
7183

R1,=(SP)
:SAVE R1
OFERRVEC,-(SP)
;SAVE OLD VECTORS
FERRVEC+2,-(SP)
#8S,30ERRVEC
;SET TIME-OUT VECTOR
#MEMCSR,RT
:ADRS OF MEMORY CSR'S
(R1)
:2ERO THIS CSR
#B170,(RY)
sSET ENABLE IN THIS CSR
108
»
(SP)+,(SP)+
:CLEAN UP THE STACK
#2.R1
s INCREMENT TO NEX. CSR ADRS

R1,#MENCSR+4L0

:SEE IF DONE CHECKING YET

:BR IF NOT
(SP)+ ,3#ERRVEC+2 :RESTORE OLD VECTORS
(SP)+.a#ERRVEC
(SP)+ R
;RESTORE R1
PC
*RETURN

71“

;.'"t'tt'..tQQ'QQ""'"'QQ"Q'Q'OQ.Q.".'Q"'tt'tlt"tttt!'.t'tt

7185

;*SERVICE ROUTINE FOR MEM PARITY ERRORS

71“

7187

7188
7189

7190
7191
7192
7193
7194

.';Qtttt."ttt.Q't'tt""""t""t't!tt"tttttttt'tt"tttt't't"t

031366

031370
031374

031400
031404
031412
031420

010146
013746
013746
004737
016637
012737
012737

000004
000006

043676
000006
031536
000340

001174
000004
000006

7195 °’“§2 013737 177740 001176
7196
7197

031434
031442

013737
013737

177742
177744

7201

031466

0057

001200

001200
00120

7198 031450 015737 064304 06563
7199 031456 112737 000004 065634
7200 031464 1o&1§;

MPERHD: MOV
R1,=(SP)
:SAVE R1
MOV
SFPERRVEC,=(SP)
:SAVE OLD VECTORS
MOV
APERRVEC+2,-(SP)
JSR
PC,REPSUP
:GATHER STATUS FOR PRINTOUT
MOV
6(SP), SREGS
:GET PC OF ERROR
MOV
#108,9PERRVEC
:SET T.0. VECTOR
MOV
#PR7
. FERRVEC+2
;HANDLE 11/70 MEMORY PARITY ERROR

MOV

@FLOERAD,SREG6 :;LOW ERROR ADRS REG

MOV
MOVB
ERROR

#OM707 ,DF 31416, :FIX ERROR MSG FOR 11/70
#4,DF31+18.
122
:11/70 MEM PARITY ERROR

MOV
MOV

18T

SFNIERAD.SREG? :MI ERROR ADRS REG
OOISHSVS SREG10 :MEMORY SYSTEM REG

SREG7

:SEE IF BAD MEMORY IS IN PROGRAM AREA

o
Y e )

CZRGNED RK611/706 $S ViY2
CZR6NE .P11
26=JUN-80 10:48

CZRONE .P11

26=JUN-80 10:48

7202

031472

001011

7205
7206
7207
7208
7209
7210
7211
7212

031504
031510
031512
031516
031s§2
031526
031530
031534

105737
0010 ;
000137
012637
012637
012601
004737
000002

7214

031536 022626

MACY11 30A(1052)

7215
7216
7217
7218
7219

031540
031546
031552
031556
031560

012737
012701
011137
100005
010137

7221

031566

000746

7223
7224
7225
7226

031572
031576
031602
0316064

062701
020127
103763
000744

7220 031564

104122

7222 031570 022626

7227

10:53

In
PAGE 140

GTSWRG = OPEN SOF TWARE SWITCH REGISTER FOR MODIFICATION

7203 031474 023727 001176 073636
7206 031502 103005

7213

26=JUN-80

003144

046126

000006
000004

6%:

031302

BNE

TSTB
BNE
JMP
MOV
MOV
MOV
JSR
RTI

MEMABT
:SEE IF ABORT DESIRED
5
:BR IF NOT
HLTPRG
:ABORT !'!!
(SP)+,a#ERRVEC*+2 ;RESTCRE T.0. VECTOR
(SP)+,a#ERRVEC
(SP)+.R1
:RESTORE R1
PC,ENBCSR
:G0 CLEAR AND ENABLE CSR'S
:RETURN

CMP
BHIS

:BR IF NOT

SREG6, FRWBUF +6000 ;SEE IF BAD MEM IS IN PROG. AREA
68
:BR IF NOT

:YANDLE ALL OTHER MEMORY PARITY ERRORS

031570
172100
001200

000004

10s:

128:

001176

000002
172140

CMP

148:

168:

(SP)+,(SP)+

:CLEAN UP THE STACK

122

:MEMORY PARITY ERROR (NON=11/70)

MOV
MOV
MOV
BPL
MOV

#148,3ERRVEC
#MEMCSR,RY
(R1),$REG7
168
R1,SREGH

ADD
CMP
BLO
BR

#2.R1
R1,#MEMCSR+40
12%
6%

ERROR

CMP

(NON=11/70)

(SP)+,(SP)+

:SET T.0. VECTOR
:GET FIRST CSR ADDRESS
:CHECK FOR A MEMORY CSR
:BR IF NO ERROR SET HERE
:GET CSR ADDRESS

:GO SEE IF SHOULD ABORT

:CLEAN UP STACK

:INCR R1 TO POINT TO NEXT CSR
;SEE IF DONE CHECKING
:BR IF NOT
:RETURN

755
72

;;t"".!tttt't't"".'"t"'t""tt.!'t't""ttt'.tt"QQ"Q.QQQO

7231
7232

:*PREPAR = PREPARE MEM MGT FOR RELOCATION
:«THIS SUBROUTINE CALLS INITMM, AND THEN SETS UP CONSTANT

7234

:*IF PRESENT.

7233

7235

:¢FOR KIPAR6 IN SAVPAR, AND LOADS THE UNIBUS MAP REGISTERS,

7236
7237
7238

031606
031610
031614

104407
004737
013700

7240
7241
72642

031626
031630
031632

013701
010003
010104

7244
7245
7246
7247
7248
7249

031636
031440
031042
031644
031648
031650

006101
006100
006101
000301
006100
106001

P
A
R
A LR ARl

031120
005604

7239 031620 042700 017777
7243

7250
7251
7252
725
72564
7255
7256
7257

031634

031652
031656
031662

031664
031670
031674
031676

005606

006100

PREPAR: SAVREG
JSR
MOV

BIC

MOV
MOV
MOV

ROL

010137
105737
001420

003176
003143

012700
012701
010320
010420

170200
000037

ROL
ROL
ROL
SWAB
ROL
RORB

PC,INITMM
PMA, RO

217977.R0
PMA+2,R1
RO,R3
R1,R&

R1
RO
R1
R
RO
R1

:SAVE RO=RS
SINIT MEM MGT REGISTERS
:LO BITS OF MA

:MASK FOR BITS 13-15
:HI BITS OF MA
:SAVE THESE BITS

:GET MA BITS 1321 INTO R1 BITS 7-15

MOV
R1,SAVPAR
:CONSTANT FOR LOADING PAR6 LATER
TSTB
UBMPRS
:SEE IF UNIBUS MAP ENABLED
:BR IF NOT (NO UNIBUS MAPPING)
9%
BEQ
:PREPARE FOR 22-BIT ADDRESSING = LOAD UNIBUS MAP REGISTERS
;STARTING ADDR OF MAP REGISTERS
#MAPLOO, RO
MOV
MOV
31, .81
*SET REGISTER COUNTER
:LOAD A MAP REGISTER
R3, (RO)+
MOV
48:
R4 . (RO)+
MOV

SEQ 0138

o~~~

CZR6NED RK611/06 35S VEY2

CIR6NED RK611/06 S ViY2

CZR6NE .P11

26=JUN-80 10:48

7258

031700

062703

7260

031706

077106

7262
7263
7264

031716
031724
031726

142765
104410
000207

MACY11 30A(1052)

26=JUN-80

10:53

J 1

PAGE 141

GTSWRG = OPEN SOFTWARE SWITCH REGISTER FOR MODIFICATION

7259 031704 00%506

020000

ADD

ADC

#20000,R

7261

160000 000010

BIC

S08

R1,4%

#160000,P.BALOCRS) ;CLEAR BA BITS 13-17

7265
7266
7267

031710 042765

000003

000007

7268

#3,P.BAHI(RS)
PC

:ADD 4K WORDS

:LOOP UNTIL 31(DEC) ARE LOADED

sRESTORE RO=RS
:RETURN

A e

A A

:* FNDXDP = FIND STARTING ADR OF XXDP LOADER , AND STORE IT

7270

;*«IN XXDPAD.

7272
7273
72764
7275
7276
7277
7278
7279

031730
031734
031736
031744
031746
031754
031756
031764

005737
001404
012737
000412
023727
103370
013737
062737

7281

032000

000207

7280 031772

7282
7283
7284

BI(B
RESREG
RTS

R L

7269

2en

9%:

SEG 0139

005576

160000

005540

005574

157776

005574
000002

005540
005540

FNDXDP: TST
BEQ
4S:
MOV
BR
6%:
CMP
BHIS
MOV
ADD

162737 006000 005540 8%:

SuB

RTS

R L

L L Ll L Ll L

AL AL

bt bbbttt

MAHILM+2
6%
#160000,XXDPAD
8%
MAHILM, #157776
43
MAHILM, XXDPAD
#2 ,XXDPAD

:TEST HI BITS OF UPPER MEMORY LIMIT
:BR IF Hl BITS ARE 0
:START OF 28K IS END OF XXDP

sRETURN

06600.!!DPAD

;SEE IF MEM LIMIT > OR = 157776
:BR IF YES
;HI MEM LIMIT IS END OF XXDP
sADD 2 BYTES

:COMPUTE START OF XXDP

7285

L LA
LA L LA EL LA LL

;%33

;*STORED IN XDPSAV AND XDPSAV+2. A TOTAL OF 1536(DEC) WORDS ARE MOVED.

7291
7292
7293

i+ GETXDP - RESTORE THE XXDP LOADER TO ORIGINAL LOCATION
;«THIS SUBROUTINE MOVES THE RELOCATED XXDP LOADER FROM THE ADDRESS
:«STORED IN XDPSAV,XDPSAV+2, BACK TO LOCATION XXDPAD (ITS ORIGINAL

7286
7287
7288

7294
7295

:* SAVXDP = SAVE THE XXDP LOADER IN Hl MEMORY
:*THIS SUBROUTINE MOVES THE XXDP LOADER, WHICH RESIDES AT THE
;*PHYSICAL ADDRESS STORED IN XXDPAD, TO THE PHYSICAL ADDRESS
;.

7296
7297

032002
032004

7299
7300
7301
730;
730
73064
7305

032010
032012
032016
032022
0320;3
0320
03

7298

032006

7!09 8
730
7308

7309

7310
7311
TM
TM

032063
ogggs
0 2033
03
032064
032066

: *ADDRESS).
R

104407
005004
000410
104407
105037
105737
001425
01;706
005737

003133
003134

1;7 ;

003000

1050

013703
01;700
1 7?1

S737
100617
005704
001005

SAVXDP: SAVREG
CLR
BR

000001
000170

GETYDP: SAVREG
CLRB
1STB
BEQ
MOV
XDP1:
TST
BNE

MOV

005540
005542

MOV
MOV

057710

TST
BMI
ST
BNE

005544

MoV

R4
XDP1

L L L

LA L)

;SAVE RO-RS
:SET INDICATOR TO SAVE XxXDP

XOVLAD
XDPSVD
XDP2
1 ,.R4
KILLDR
XDP2

:SAVE RO-RS
:CLEAR XXDP OVERLAID INDICATOR
sSEE IF XXDP WAS SAVED
:BR IF NOT SAVED
sSET INDICATOR TO GET XXDP
;SEE IF OK TO OVERLAY LOADER
;BR IF YES, TO EXIT

XXDPAD,R
XDPSAV,RO

:GET ORIG ADR OF START OF XXDP
sGET SAVE ADR LO BITS

kK111
XDP3
R&
XDP4&

sSEE IF MEM MGT PRESENT
:BR IF PRESENT
sSEE IF WANT TO SAVE OR GET XxXDP
:BR !F WANT TO GET XXDP

#153%..R

XDPSAV+2 ,R1

;GET SET TO MOVE 1536(DEC) WORDS
sHl BITS

CIRONED RK611/706 3S ViY2
CZRONE PN
26=JUN-80 10:48

gase

68:

104410

XDP2:

39§§§§§§§§ g

000 07
06
06 703
014043

WNNN= NSNS

ARIN) = N O VWO W

VIOWIN
= WNNIWO

g S8FR822828 gS8282883%
NNO ONIWO
NN NflUWU&fli;“*‘
SRS WO
WO
WNIW
izsz 22%Sgss
32

D D i

e
~N

~N~

i i i i

wuuuug
RAAIAIASIA
NN

0000000000000 O0O0O0O0O0O00 o

v
~N
D il i i

—

i
N

D i i

D i i i i

SRRFERRNS
TNg 3 o SEREREEISERRESD 83:58880

83%072

KN
MACY11 30A(1052)
26=JUN-80 10:53 PAGE 142
GTSWRG = OPEN SOF TWARE SWITCH REGISTER FOR MODIFICATION

006000
006000

XDP4:

8s:

MOV
DEC
BNE
RESREG

(R3)+, (RO)+
R2
6%

ADD
ADD
MOV

oeooo RO
#6000.R3
=(RO) .=(R3)

RTS

LEC

BNE
g4
BR
XDP2
; "OME usne IF MEM MGT
XDP3:
JSR
PC,INITMM

031120

ROL
ROL
ROL
ROL

RO
R1
RO
R1

ROL
RORB

RO
R1

BIC

#160000, R

SWAB

172354

MOV
MOV

005542

160000
140000

168:

177572
177572
188:

177572

208:

020000
020000
000200

172354

22%:

R1,3#KIPARG
IDPSAV R1

#140000. R1

BNE
MOV
INC
MOV
DEC
BR

188
(R3)+,RS
FSRO
RS,(R1)+
arsSRO
20$

INC

MOV
DEC
MOV
BIT
BEQ
BIC
ADD
DEC
BNE

B8R

:BR IF NOT YET

:RESTORE RO-RS

:RETURN
:POINT TO END OF SAVE AREA

Eg%NT 58
END OF XXDP LOADER AREA

:SEE IF 1536(DEC) WORDS YET
:BR IF NOT YET
:60 EXIT

;INIT MEM MGT REGIS TE
;GET ADR BITS 13-=21 INTO R1 BITS 7-15

BIS
1ST

;SAVE
A

:SEE IF 1536(05() WORDS YET

;SET UP PARG

;GET LO ADRS BITS
;FIX UP R1

TO REFERENCE PAR6

;SEE IF WANT TO SAVE OR GET XXDP

:BR IF WANT TO GET XXDP
:SAVE A WORD

;TURN ON MEMORY MANAGEMENT
:TURN OFF MEMORY MANAGEMENT

ISRO

(R1)+,RS
ISRO
RS, (R3)+
#BiT13,R1
228
#B1T13,R1
#200,3#K1PARS
R2
168

XDP2

;TURN ON MEMORY MANAGEMENT
;GET A WORD
:TURN OFF MEMORY MANAGEMENT

;SEE IF OVERFLOW TO PAGE 7

:BR IF NOT
:SET PAGE = 6 AGAIN

:UPDATE PAR BY 4K
;SEE IF 1536 WORDS YET
:BR IF NOT YET
:BR TO RETURN

"...Q....‘.'.."""'"t.'.""'.."..Q.l..'.l..l'.l."".".'

SB!!L

INITSS = INITIALIZE SUBSYSTEM

'YMIS SUBROUTINE INITIALIZES THE DRIVER AND [TS PARAMETERS
s*AND DOES A SU%%YSTER CLEAR.

:' USES s CALL:

JSR

PC,INITSS

:.'..'...'."""""'."Ql""'!.."..'Q.""Q'.."...".l"".

032250

012737

044156

003046

INITSS: MOV

#ERRHOL ,A.ABNL

;SET UP ABNORMAL ERROR RETURN ADDRESS

SEQ 0140

CIRONED RKk611/706 35S vive
CIR6NE.P11
26-JUN-80 10:48
7370

0127%7

06;700

7371
737

032264
og 70

013702
01270

7374

004737

0 zssg

0 g1z
032316
oszsi‘

004737
113765
113737

042510
005500
005500

032340
032346
032354

153765
116537
000207

7373

7375

7376
7377
7378

0322764

7379 032332
7380
7381
;§g§

105037

112765

113765

003036
oogeso

LN
MACY11 30A(1052)
26-JUN=-B0 10:53 PAGE 143
INITSS = INITIALIZE SUBSYSTEM
003044

003125

003124
000007

CLRB

NORTRY

JSR

000001

000007

000007
002723

:SET UP NORMAL RETURN ADDRESS

RKBAS ,R2
#PARM0 RS

:CET ADDRESS OF RK611 REGISTERS
:GET ADDRESS OF PARAMETER BLOCK

PC,CLRPRM

:CLEAR DRIVER INPUT PARAMETERS

:CLEAR 'NO=-RETRY'' FLAG

MOVE

#SUBCLR,P.CAND(RS) ;SET SUBSYSTEM CLEAR COMMAND

Move

FORHAf.P.CS\N(Iss :SET CURRENT DRIVE FORMAT

JSR
MOVE
MOVE

000000
002714

7384
7385

#ERRFRE _A.NORM

MOV
MOV

Og 1462

000177

MOV

SEQ 0141

PC,DRVCAL
;00 SUBSYSTEM CLEAR
DRIVE,P.DRVN(RS) ;SET CURRENT DRIVE NO.
DRIVE,PARM1
:SET DRIVE NO. IN ALTERNATE P.B.

BISB
MOVB
RTS

TYPFMT.P.CSIH(RS)
;SET DRV TYP
P.CSTM(RS),P.CSTH+PARM1 ' :COPY FORMAT & DR TYPE TO PARMI

: SUBROUTINE EXIT

73“

;:tt"t't"'ttt""'t't'""Q'Q"'tt'Qt..'ttttQQ'QQQQQQ'Q'QQ"CQQ

7387
7388

.SBTTL
CLRPRM = CLEAR DRIVER INPUT PARAMETERS
;*THIS SUBROUTINE ZEROS THE FIRST 14 BYTES IN THE DRIVER

7391

7389
7390
7392
7393

7394
7395
7396
7397

7398

7399
76400
76401
76402
7403

:*PARAMETER BLOCK (WHOSE ADDRESS IS IN RS).
s+ CALL JSR
PC,CLRPRM

032356
032360
032362
032364
8;5;7?

010046
010546
010500
062705
5020

032374
032376
032400
032402

001375
012605
012600
000207

000016

20005

RN R R R R RN

R R R AR NN AR

RRRRAR AR AR RO RO RRAT RS

CLRPRM: MOV
MOV
MOV
ADD
1%:
CLR

RO,=(SP)
RS.=(SP)
RS.RO
#P.CS1,RS
(RO)+

:SAVE RO
:SAVE RS
:GET PARAMETER BLOCK ADDRESS
:COMPUTE LIMIT ADDRESS
:CLEAR A WORD IN PARAMETER BLOCK

BNE
MOV
MOV
RTS

1%
(SP)+,RS
(SP)+,RO
PC

:BR IF
NOT DONE
:RESTORE RS
:RESTORE RO
;RETURN

CMP

RO,.RS

:SEE IF DONE YET

VYET

7404

7405

7‘“

;;ttt"tt'tt't."'t"t"t""'ti't't'tt.t'tt'titttttt'ttttt'tltl'

76411
7612
76413

:«OF THESE CONDITIONS .RE NOT MET, AN APPROPRIATE
:«MESSAGE IS TYPED, RKO6 INTERRUPT IS DISABLED, AND
:#A RETURN IS MADE TO THE ADDRESS LISTED IMMEDIATELY

76407
7408
7409
76410

SBTTL SCNDRV = SCAN DRIVE FOR STATUS
:«THIS SUBROUTINE SCANS THE SELECTED DRIVE TO INSURE
:*THAT THE DRIVE IS ON-LINE, READY, NOT WRITE-LOCKED,
:*AND NOT LOADED WITH AN ALIGNMENT CARTRIDGE. IF ANY

7614

;*AFTER THE CALL TO SCNDRV. THE REQUESTED DRIVE NO.

7615
7616

:*MUST BE PASSED TO TWE SUBROUTINE IN WORD ‘DRIVE'.
1*ALSO 55 RUNNING FROM ADRS 200 AND RKO6 IS LOAD MEDIUM,

7617

teDRIVE O WILL BE REJECTED FOR USE.

7618
;219

ie CALL =
e
.
M

7‘ 1
762

76423
76426
7425

JSR
PC, SCNDRV
<ERROR RETURN ADDRESS>

E:t'..ttt.tt.'.""tt"t""""QQt".tlt.t.tt'ltttllttti!'tttt't
032404
0326410
032414

105037
004737
113785

003124
032250
005500

000000

SCNDRV: CLRB
JSR
MOVE

TYPFNY
:ASSUME RK06 TO START
PC,INITSS
sINITIALIZE DRIVER AND CLEAR SUBSYSTEM
DRIVE.P.DRVN(RS) :GET DRIVE NUMBER

"N
MACY11 30A(1052)
26-JUN-80 10:53 PAGE 144
SCNDRV = SCAN DRIVE FOR STATUS

‘

26=JUN-80 10:48

003124

000010

002001
0055
005534

5%:
78:

148:

001000

000010

000101
000016
052204
043676

000001

000200
045752
000040

005474
000014

003124

000001
003046
005530

044156
000377

003046
005530

Y b

N OWOoO

#<CDT!G0>,
(R2)
SCRACH

BNE
gé;

148
gggsLRKCS2(R2)

:STALL FOR SEVERAL MILLI-SEC
sesllr MDS ERROR
F NOT

MOV
JSR

(R2),P.CST(RS)
PC,1.CSTA

:GET
R
SGET ornen RK611 REGS FOR REPORT

INC

JSR
ERROR
8IS
JMP
BIT

BEQ
BISB
JSR

MOVB

MOV

SCRACH

NN =N =N
NESSENNWNON

004000

000040

;CLEAR STALL COUNTER

: INCREMENT STALL COUNTER

#DTYE ,RKER(R2)

;SEE IF DRV TYP ERR

20%
#B.CDT,TYPFMT
PC.INITSS

;:REPORT MDS ERROR
:SET ABORT FLAG
:GO ABORT TESTING

:BR IF NO=RK06
:ELSE SET FOR RKO?
INIT THE SUBSYSTEM

#RDSTAT,P.CMND(RS);SET READ DRIVE STATUS COMMAND

#NEDHDL.A.ABNL

:SET NED ABNORMAL RETURN ADDRESS

MOV
#377 ,NEWON
sINIT. ON=LINE INDICATOR
JSR
PC,DRVCAL
:READ ALL DRIVE STATUS
:SEE IF THIS DRIVE EXISTS AND IS ON'LINE
MoV

CMP
BEQ

#ERRHDL ,A.ABNL

#377 ,NEWON
4%
AUTOFG

#BIT7,SENVM

003150

BIT IN CS1 FOR RKO6

:SET UP ERROR REPORT

52
#ABORT,RECODE
ALLTRM

BITB

000040

‘BR IF YES
CELSE SET GO

PC .REPSUP

001341

000000

:SEE IF RKO7

#SELDRV,P. cnuo<a§) sev connauo FOR ERROR REPORT

BNE
Move
BISB

007467
007467

MOV
CLR

007467
007467

005500
000060
007461
007506

VOOW

11
;go.(RZ)

TYPFAT

2%
DRIVE ,BADDRV+6
#'0,BADDRV+6

000200

BNE
ggv

TST

~N
N

208:

003150

VONN
O=0

S8a333=88882

042510

#1E, (R2)
:DISABLE RK06 INTERRUPT
DRIVE,RKCS2(R2) :SET DRIVE NO. IN RKCS2

MOVE

188:

SEQ 0142

BIC
MOVBE

TST8

000001

[ =)

k611706 3S ViY2

D il el o

[ =]

CIR
2

TYPE
TYPE

BEQ
ERROR

.BADDRV
.NXDRIV

28
123

:SERVICE ERRORS MERE

28:

BIC

:0!

#1E.RKCS1(R2)

2(5?).(SP)

: SEE IF DRIVE IS READY

is:

+FORM AUTO MODE ?

;GET DRIVE NO. INTO BUF

s CONVERT TO ASCII

;TYPE 'DRIVE
X
STYPE Nmn-exxstsnt"

SSEE IF APT

:BR IF NO
*NED UNDER APT SIZING

;DISABLE RKO6 INTERRUPT

:SET UP ERROR RETURN ADDRESS

sERROR RETURN

BIT

#S.0RY,P.AOOCRS) ;TEST FOR DRIVE READY

TST

AUTOFG

BNE

BNE
2%
DRIVE,BADDRV+6
MOVB
BISB
#'0,BADDRV+6
TYPE
,BADDRV
TYPE
,NTREDY
BR
s
+SEE IF DRIVE IS WRITE ENABLED

68:

;RESTORE ABNL RETURN ADDRESS

:SEE IF NED INDICATION ON THIS DRIVE
:BR IF NED NOT SET

BIT

:BR IF DRIVE IS READY

:SKIP IF FROM AUTO MODE
:GET DRIVE NO. INTO BUF
;CONVERT T0 ASCI]
:TYPE 'DRIVE
X"
:TYPE *NOT READY
STAKE ERROR EXIT

#S.WRL,P.AOOCRS) ;SEE IF WRITE LOCK SET

CZRONEO RK611/06 3S ViY2
CZRONE .P11
26=JUN-80 10:48

748 o§ 753 005737 003150
76484 032762
76482

032754

00141

7485
76486
7487
7488

0 794
032772
03
033004

001013
1137 7
152737
104401
104401

7491

033012

76493

033024

7489
7490
7492

033010

000726

112765

N
MACY11 30A(1052)
26=JUN-B0 10:53 PAGE 145
SCNDRV = SCAN DRIVE FOR STATUS

#RECAL,P.CMND(RS)

MOVB
TSTB

#RODATA,P.CMND(RS) ;SET READ COMMAND
TYPFMT
:SEE IF RKO?

7497
7498

033050
033052

001004
012765

000632

000002

7500
7501
7502
7503

ossoo%
033070
033076
033104

012765
112765
012765
012765

001456
000002
065636
177774

000002
000005
000010
000012

7505
7506
7507
7508
7509
7510
7511
7512
7513
7514
7515
7516
7517

033120
033153
o§§1
033134
8g§14o
146
033150
033154
033162
033164
033172
033200
033204

153765
005737
001027
004737
832737
001402
104401
022737
001013
113737
152737
104401
104401

003124
003150

000007

7518

7519

7520

7521
7522
7523
7524
7525

033112

033210

033212

033216

16;765

000626
062716

000207
:

#PACK,P.CMND(RS) ;SET PACK ACKNOWLEDGE COMMAND

MOVB

000001

7504

MOVB

000001

000121
003124

000403

;FROM THE AUTO MODE
:GET DRIVE NO.
;CONVERT TO ASCII
:TYPE 'DRIVE X"
:TYPE *WRITE=LOCKED''

000113

042510

033060

13
DRIVE,.BADDRV+6
#'0,BADDRV+6
,BACLRV
WRTLOK

000001

004737

7499

BNE
MOVB
BISB
TYPE
TYPE

000103

033032

112735
105737

:BR I+ WRITE LOCK NOT SET

AUTOFG

007467
007467

7494

033036
033044

005500
000060
007461
007520

004737

7495
76496

BEQ

033020

112765

SEQ 0143

042510

000020

005474

013141
177777

065644

000002

88:

JSR

BNE
MOV

BR.

25%:
278:

000007

042510
100000

005500
000060
007461
007533

BR
28
TAKE ERROR EXIT
:SEE IF DRIVE NOT LOADED WITH ALIGNMENT CARTRIDGE

007467
007467

:SET VOLUME VALID

PC,DRVCAL

RECALIBRATE THE DRIVE

25%
:BR IF YES
#632,P.CYLN(RS)

27%

#1456,P.CYLN(RS)
WLSTTRK,P.TRCK(RS) :SET TRACK = 2
#RWBUF
,P .BALOCRS) ;BUS ADDRESS
#-4,P.WC(RS)
READ 4 WORDS

BISB
ST
BNE
JSR
BIT
BEQ
TYPE
CMP
BNE
MOVB
BISB
TYPE
TYPE

TYPFMT,P.CSTH(RS)
AUTOFG
;SEE IF FROM AUTO MODE
128
:EXIT IF SO
PC,DRVCAL
:READ & WORDS OF BAD SECTOR FILE
#ANYDER,RECODE
;SEE IF DATA ERROR
108
:BR IF OK
,BAD632
:TYPE READ ERROR MESSAGE
#177777 ,RWBUF+6 :SEE IF ALL 1'S IN 1.D. WORD 3
12%
:BR IF NOT ALL 1°'S
DRIVE,BADDRV+6 :GET DRIVE NO.
#'0,BADDRV+6
:CONVERT TO ASCI!
,BADDRV
;TYPE 'DRIVE X"
ALNPAK
:TYPE "LOADED WITH ALIGN PACK''

B8R

#B.CFMT,P.CSTH(RS)

ADD

RTS

#2,(SP)

;FIX UP RETURN PC

;SET 22 SECTOR FORMAT

:TAKE ERROR EXIT

:ERROR FREE RETURN

i2s:

:SET RECAL COMMAND

MOV
MOVB
MOV
MOV

BICB

108:

PC,DRVCAL

R R

‘RETURN

R R A

R R R AN AR RN RN

R R AR

R RN R RN

7526
7527
7528

.SBTTL CHKDRV = CHECK STATUS OF DRIVE
;*THIS SUBROUTINE CHECKS THE DESIRED DRIVE TO DETERMINE
;*IF THE DRIVE 1S ON-LINE,READY,WRITE-PROTECTED. IF NOT, THE

7530
7531
7532
7533
7534
;giz

;*WHILE MANUAL
INTERVENTION TAKES PLACE TO CORRECT THE
;*PROBLEM., THE OPERATOR THEN DEPRESSES 'CONT' TO PROCEED,
;*AND A RETURN IS MADE TO THE ADDRESS LISTED IMMEDIATELY
;*AFTER THE CALL. IF THERE ARE NO PROBLEMS WITH THIS
:*DRIVE, A NORMAL RETURN IS MADE.
;*RS MUST CONTAIN THE ADDRESS OF THE PARAMETER BLOCK,

7529

2537

:*APPROPRIATE ERROR MESSAGE 1S TYPED,AND THE CPU MALTS

;*AND R2 MUST CONTAIN THE RKO6 REGISTER BASE ADDRESS.
"

;v CALL:
JSR
i

PC, CHKDRY

LW
NNNVWN

CHKDRV: MOVB

005530

MOV
Mov

003046
005530

BISB

INEDHDL.A ABNL
#377 ,NEWON

;SET NED ABNORMAL RETURN ADDRESS
lNlTIALIZE ON=LINE INDICATOR

onxve R1

:GET DRIVE NUMBER

0,R1

:CONVERT TO ASCII

MovB
R1 DRVNED
:PUT DRIVE NO. INTO MSG BUFFER
TYPE
sNONE!D
:TYPE NON-EXISTENT DRIVE MESSAGE
BR
$
:SERVICE THE ERROR
READY
IS
DRIVE
;SEE IF DESIRED
18:
BIT
#S.DRY,P.AOO(RS) ;TEST FOR DRIVE READY
:BR_IF DRIVE READY
BNE
;GET DRIVE NUMBER
DRIVE,R1
MOvB
BI1S8
#0,R1
:CONVERT TO ASCII
MovB
R1,DRNRDY
;PUT DRIVE NUMBER IN MESSAGE BUFFER
U.

000040

DRIVE,P.DRVN(RS) :SET DESIRED DRIVE NUMBER

#RDSTAT,P.CMND(RSS;SET READ DRIVE STATUS COMMAND

JSR
PC,DRVCAL
;READ ALL DRIVE STATUS
;SEE IF THIS DRIVE EXISTS AND IS’ ON-LINE
MoV
#ERRHDL ,A.ABNL ;RESTORE ABNORMAL DRIVER RETURN ADDRESS
CMP
0377 NEWON
:SEE IF NED INDICATION ON THIS DRIVE
:BR IF NED NOT SET
BEQ
MOVB

005500
000060
011713
011703
000200

Move

033314

000000

=S ONOO =W
PN
b d YN

306
033312

prtrrt 4~

OO
= b

ennon ADDRESS
i
::'Q""'"'Qfi""'""'"""""Q".".Q'."'QQQ'."Q."Q"""

005500
000060
011561
011551
033344
033352

000100

000000

033354
033362
033366
033372

000001

033374

000040

TYPE

,NOTRDY

;TYPE DRIVE NOT READY MESSAGE

BIC
HALT

#1E.RKCS1(R2)

:CLEAR RKO6 INTERRUPT ENABLE BIT
‘HALT IS NECESSARY DURING MANUAL

MOVB

#SUBCLR.P.CMND(RS):SET SUBSYSTEM CLEAR COMMAND

:SERVICE ALL ERRORS HERE

8s:

JSR
MOV
RTS

INTERVENTIONS, TO CHANGE PACK,
WRITE LOCK,START DRIVE,ETC.

:PRESS 'CONT' TO PROCEED !

PC,DRVCAL
a(SP), (SP)
PL

:SEE IF DRIVE IS WRITE-LOCKED

is:

;CLEAR THE SUBSYSTEM
:SET UP ERROR RETURN ADDRESS
:ERROR RETURN

BIT
BNE
MOVB

#S.WRL,P.AOOCRS) ;SEE IF WRITE LOCK SET
5$
:BR IF WRITE-PROTECTED
DRIVE R
P =T DRIVE NUMBER

TYPE

NOTLOK

gIs8
MOVB
000001

:
:

#'0,Rf
R1,NODRLK

{CONVERT TO ASCII
sPUT DRIVE NUMBER IN MSG BUFFER
;TYPE “DRIVE NOT WRITE-LOCKED"

:SERVICE THE ERROR
]
BR
:RECALIBRATE DESIRED DRIVE, SET VOLUME VALID

§s:

000001

MOve
JSR
MOove
JSR

-RETURN HERE

7s:

ADD

RTS

#RECAL ,P.CAND(RS) ;SET RECALIBRATE COMMAND
;RECALIBRATE DRIVE
PC,DRVEAL
#PACK ,P.CMND(RS) ;SET PACK ACKNOWLEDGE COMMAND
PC,DRVCAL

#2,(SP)
PC

:D0 PACK ACK. (SETS VOLUME VALID)

:FIX UP RETURN ADDRESS ON STACK

:ERROR-FREE RETURN

::"'t'..tt"'""."""l""""""'.."t...""'."l""i."'

SEQ 0144

B 12
MACY11 30A(1052) 26-JUN-B0 10:53 PAGE 146
CHKDRV = CHECK STATUS OF DRIVE

e 1

CZR6NEO RK611/06 SS ViY2
CZRONE .P11
26=JUN-80 10:48

CIR6NED RK611/706 S ViY2
CZRONE .P1
26=-JUN-80 10:48

€ 12
MACY11 30A(1052) 26-JUN=-80 10:53 PAGE 147
CHKDRV = CHECK STATUS OF DRIVE

759

7595

;% ALNSEK = SEEK IN SINGLE INCREMENTS FROM CYL O TO ALIGNMENT CYL (365 OCT).

7596

033460

7598
7599
7600

033472
033476
033502

7602

033510

022765

033520

000207

033530
033532

001360
000207

7597

7601
7603

7606
7605

7606
7607
7608

SEQ 0145

11%765

000117

004737
oos;gs
105737

042510
000002
003124

00 ogs

033506 001005
033516 001365
033522

022765

000002

000001

000366

000002

000761

000002

7609
7610

;:""Q"t'."'Q""""'Q"Q'Q"'QQ""""""Q'Q"Q.'.'QQ'Q'tt

ALNSEK: MOVB

#SEEK,P.CMND(RS)

2%:

P(.DIVCA%
P.CYLN(RS)
TYPFAT

CLR

JSR
INC
TSTB

BNE

;INIT CYL T0 0

114

:BRANCH IF IT IS

SSEEK TO THIS CYL
SINCR CYL NO.
:CURRENT DRIVE IS AN RKO7 ?

CMP

#ALNCYL*1,P.CYLN(RS)

RTS

BNE
RTS

28
PC

BNE
7$:

:SET SEEK COMMAND

P.CYLN(RS)

CMP

;SEE IF 365 REACHED YET

:BR IF NOT YET

#761,P.CYLN(RS)

:REACH THE CYLINDER 760 FOR RKO7

:RETURN

: CONT INUE
CEXIT

7611

;:Q'Q."t't""""""'Q'"""""".t"Q"QQ."""""'Q'.'.t

7612
7613

i+ WAIT4R = THIS SUBROUTINE UNLOADS HEADS ON THE CURRENT DRIVE, TYPES
i* “TYPE <R> WHEN READY'', AND THEN LOADS THE HEADS WHEN <R> IS TYPED.

7614
7615

7616

033534
033542

112765
004737

000107
042510

7618

033554

004737

042510

7620
7621
7622
7623
7626
7625
7626
7627

033566
oggsro
033574
033600
0336064
033606
033614
033616

001772
104401
004737
005737
001775
022737
001403
004737

7629 0336264

112765

7617 033546

112765

7619 033560 032765

7628 033622 000762
7630
7631
7632

033632
033636

004737
000207

000001

000141

000001

000040

000044

012610
030536
005522
000122

R
WAIT4R: MOVE
JSR

T
L et
WUNLOAD,P.CMND(RS) ;SET UNLOAD COMMAND
PC,DRVCAL
:UNLOAD HEADS ON THIS DRIVE

18:

PC,DRVCAL

READ STATUS OF DRIVE

BEQ
TYPE
JSR
ST
BEQ
CMP
BEQ
JSR

1%
,RWNRDY
PC,PREPKB
INTCHR
48
#'R,INTCHR
68
PC,ECOBAD

:BR IF NOT YET
STYPE "“TYPE <R> WHEN READY''
‘PREPARE FOR KBD INPUT
SSEE IF ANY INPUT YET
:BR IF NOT YET
‘SEE IF <R> TYPED
BR IF <R> TYPED
:ECHO BAD INPUT

MOVB

#SRTSPL.P.CMND(RS) ;SET START SPINDLE COMMAND

28:
4$:
005522

030556

000111

042510

000001

6S:

MOVB
JSR

BIT

B8R

JSR
RTS

#RDSTAT,P.CMND(RS) ;SET READ STATUS COMMAND

#S.HDHM,P.AO1(RS) ;SEE IF HEADS UNLOADED YET

PC,DRVCAL
PC

G0 ASK AGAIN

:START SPINDLE AND LOAD HEADS
*RETURN

7635

:;'t""..'Q"Q'"'Q"'""""'Q"."'.tt.Q'Q"tti..'t't""'t"

7636
7637
7638

TeSETTUP - SET UP FOR LOOP ON ERROR
t«THIS SUBROUTINE CANNOT BE CALLED BY ANY OTHER
:«SUBROUTINE === ONLY MAIN-LINE CODE '''!

7639

7640
7641
7642
7643
7646

033640
033644
033650
033654
033660

011637
012706
005037
105037
012705

001076
001076
005474
003126
002630

7647

033676

012737

000000

7645 033696 112765 000177 000001
7
033672 004737 042510
7648

0337064

000207

177776

SETTUP: MOV
MOV
CLR
CLRB
MOV

MOVB
JSR
MOV

RTS

e e

A L A

LA Ll L

(SP) ,a#STACK=2
#STACK=2,SP
RE CODE
ERRCNT
#PARMO, RS

;MOVE RETURN PC ON STACK
:RE-INIT THE STACK POINTER
:CLEAR ERROR RECOVERY FLAGS
SCLEAR RETRY ERROR COUNT
“SET PARAM BLK ADRS

#PRO,IPS

‘RE-ESTABLISH PRIORITY 0

#SUBCLR,P.CMND(RS) ;SET SUBSYSTEM CLEAR CMND
PC,DRVCAL
:CLEAR THE SUBSYSTEM
PC

*RETURN

S—

CIR6NED RK611/06 3S ViY2
26=JUN-B0 10:48
CZRONE .P1

D 12
MACY11 30A(1052) 26-JUN-80 10:53 PAGE 148
CHKDRV = CHECK STATUS OF DRIVE

SEQ 0146

"""..""".""Q"'Q""""'Ql"""Q'.'.'.""Q"'Qt""'

"$8TTL CHKITR = CHECK CURRENT TEST ITERATION NUMBER
:«THIS SUBROUTINE LOADS THE ITERATION NUMBER FOR THE CURRENT
S«TEST INTO STIMES,

AND CHECKS IT TO DETERMINE IF THIS TEST

:«SHOULD BE RUN. If ITERATION NO.= 0, THE SUBROUTINE RETURNS
:«T0 THE STORED PC (AND THE TEST WILL BE SKIPPED}. IF IT IS

S«NOT O, THE RETURN IS MADE TO PC+2,

AND THE TEST WILL

NN~

S8§

W
S~
NN

288858 O ==
nu-azs-atc-a\nna<>
NN
-

-t
O

1»BE RUN. HOWEVER, ON THE FIRST PASS (QUICK VERIFY) OF A RUN
:«WHICH STARTED AT ADRS 200, ALL TESTS WILL BE RUN ONCE.
000144
003135

001115

CHMKITR: MOV

MOove

TST8

BNE
1STB
BNE

003116
001326
000001

001304

38:
4$:

001102

005630

001304

000004

000002

1$:

2%:

TST
BNE

MoV
BR

Move

DEC
ASL
MOV
BEQ
ADD
MoV
RTS

R1,=(SP)

:SAVE R1

DULACS

:SEE IF DUAL°ACCESS FLAG SET

#100. ,SERMAX
3%
MDFLAG
48
$PASS
4
#1,STIMES
1%
STSTNM, R
1

sSET MAX ERROR CNT TO 100 FOR $SCOPE
:BR_IF
:SEE IF 200 START
:BR IF NOT

;SEE IF FIRST PASS
:BR_IF NOT

;SET UP FOR 1 ITERATION
:GO RUN DUAL-ACCESS TEST

:GET CURRENT TEST NUMBER

:DECREMENT BY 1
:DOUBLE IT, TO GET TEST LIST INDEX
YSTLST(R1) STIMES ;LOAD ITERATION NUMBER
2%
:BR IF TEST SMOULD BE SKIPPED
#4,2(SP)
ADJJST RETURN PC TO RUN THIS TEST
R1
:RESTORE
(SP)+,R1

sRETURN

"Q'QQ""'..'""""""""'.'."'.'l'.."tl".'.Q'tt.""tt

"$8TTL RDCHRS - READ A STRING OF KBD INPUT CHARS
;+THIS SUBROUTINE READS A STRING OF UP TO EIGHTY INPUT
1«CHARACTERS AT THE KBD, TERMINATED BY <CR>, AND PLACES

:+THEM
IN BUFFO, TERWINATED
BY A NULL (0) BYTE.
:*RUB-OUT AND (%U) FEATURES ARE PROVIDED.

;«IMMEDIATELY FOLLOWING TNE SUBROUTINE CALL, THREE SPECIAL

: *RETURN ADDRESSES WUST BE LISTED: THE FIRST RETURN IS

S«TAKEN IF (*C) IS TYPED, THE SECOND IS TAKEN IF (*2) IS
-rvreo. AND THE THIRD IS TAKEN IF (*U) OR INVALID INPUT IS TYPED.

SelF (*6) IS TYPED, THE SOFTWARE SWITCH REGISTER IS OPENED
-;gurzgglerAtxou. IF SELECTED, AND THEN THE (*G) RETURN
b

-}zsaguNSEa OF INPUT CHARACTERS IN THE BUFFER IS RETURNED
b

v
I
I
e
.-

CALL -

JSR

PC,.RDCHRS

<CONTROL=C RETURN ADDRESS>
<CONTROL=Z RETURN ADDRESS>
<CONTROL=U OR ERROR RETURN ADDRESS>
RETURN

2222222232232
22222220220
R0 R0 RRRRRRRRRRRRRRRRARRR DR

SRR———

7706
7707

26-JUN=-80 10:48

034002
034002

010146

034012

104406

MACY11 30A(1052) 26- UN-80 10:53 EPA%E 149

RDCHRS = READ A STRING OF KBD INPUT CHARS
RDCHRS:

7708 034004 010246
7709 034006 005000
7710 034010 005001

1aakl

7712

7713
7714

034014

MOV
CLR
(LR

112602

034016
034022
034024
034030
034036

122702
001006
104401
017666
000523

000003

034040
034044
034046
034052
034060

122702
001006
104401
062766
000763

000032

7728
7729
7730
7731
7732

034066
034070
034074
034102

7734,
7735
773
7737
7738

034110
034112
034116
034122

7740
7741
7742
7743
7744
7745
77646
7747

034130
034132
034134
034136
034140
034142
03461446
034150

001020
005700
001726
005701
001003
005201
1064401
005037

7749
7750

034156
034164

116037
104401

775
7753
7754
7755

034172
034174
034176
034202

005701
001403
104401
005001

7757

034204

122702 000015

77§z 0;2106

7739 034124

013224
000004

122702

000007

122702

7751 034170 000710

7758
7759
7760
7761

013212
000002

000004

034210

001426

034212
034216

005037
110237

000004

R2.-(SP)
RO
R1

031066

;SAVE R1

:SAVE R2
SINITIALIZE CHMARACTER COUNT
SINITIALIZE RUB-OUT INDICATOR
;READ A CHARACTER

:GET CHARACTER INTO R2

CMPB
BNE
TYPE
3%:
MOV
BR
:CHECK FOR (*2)
is:
CMPB
BNE
TYPE
ADD
BR
:CHECK FOR (*U)

#003,R2
1
,CNTRLC
84 (SP) ,4(SP)
248

:SEE IF (*C) TYPED
:BR IF NOT (*C)
SECHO (*C)
:PUT RETURN ADDRESS ON STACK
‘BR TO TAKE EXIT

#032,R2
£
,CNTRLZ
#2,4(SP)
3%

;SEE IF (*2) TYPED
:BR IF NOT (*2)
CECHO (*2)
:MAKE OLD PC POINT TO NEXT RETURN ADR.
:BR TO TAKE (*Z) EXIT

BNE
TYPE
7%:
ADD
BR
:CHECK FOR (*G)

8s
,CNTRLU
OA.L(SP)
3s

:SEE IF (*U) TYPED

68:

CMPB

#025,R2

8s:

CMPB

#007,R2

(NP3

#177,R2

:SEE IF RUB-OUT (DEL) TYPED

DEC

:DECREMENT COUNT

000177

9s:

013242
005534

11$%:

005534

BNE
TST
BEC
3
BNE
INC
TYPE
CLR

MOVB
TYPE
14%:

013242

005534
005534

(SP)+,R2

BNE
98
TYPE
,CNTRLG
JSR
PC GTSWRG
BR
7%
:CHECK FOR RUB-0UT (DELETE)

013231

005264
005534

RDCHR

MOVE

:CHECK FOR (*C)

122702 000025

7748 034154 005300

013205
000004

001006
104401
062766
000752

00100
104401
004737
000764

R1,-(SP)

READ A CHARACTER

28:

7715
7716
7717
7718
7719
7720
7721
7722
7723
7726
7725
7726

7727 034062

MOV

148
RO
2%
R1
1%
R1
,BKSLSH
SCRACH

:SEE IF (*G) TYPED

‘BR IF NOT (*G)
SECHO (*G)
;OPEN SOFTWARE SWITCH REG. FOR CHANGE
:TAKE (*U) RETURN
:BR IF NOT RUB-OUT
:CHECK THE CHARACTER COUNT
:BR IF COUNT = 0
:CHECK THE RUB=-OUT INDICATOR
‘BR IF WE HAD A PREVIOUS RUB-OUT
:SET RUB=-OUT INDICATOR
:TYPE A BACK=SLASH (\)
:USE SCRATCH WORD FOR TEMP. BUFFER

BUFFO(RO), SCRACH :GET LAST CHAR. INTO BUFFER
SCRACH
:ECHO CHARACTER TO BE DELETED

TST
BEQ
rvpe
CLR

R1
168
,BKSLSH
R1

CMPB

#015,R2

CHECK FOR CARRIAGE RETURN

16s:

:BR IF NOT (*U)
SECHO (*U)
:MAKE OLD PC POINT TO NEXT RETURN ADDR.
:BR TO TAKE (*U) EXIi

198
BEQ
:HANDLE Possans DIGIT
CLR
SCRACH
MOVB
R2,.SCRACH

16O READ ANOTHER CHARACTER

:CHECK THE RUB-OUT INDICATOR
:BR IF INDICATOR IS NOT SET
:TYPE A BACK-SLASH
:CLEAR THE RUB-OUT INDICATOR

:SEE IF <CR> TYPED

‘BR IF <CR>

:USE SCRATCH WORD FOR TEMP. BUFFER
GET THIS CHARACTER INTO BUFFER

SEQ 0147

[l a]

CIRONED RK611/06 3S VviY2

CIR6NE.P11

CIR6NED RK611/06 3S ViY2
CZRONE .P11
26=JUN-80 10:48

005534
005264

gNO

034222
034
034
034
034240
034242
034246
0342564
034260
034264
034266
034272
034300
034306
034310
034312
NN

000120

001315
000000
005264
001314
001315
000000
000006

#80.,R0
28
JSCRLF

005264

#0,BUFFOC(RO)

.BUFFO

:PUT CHMARACTER INTO BUFFER

: INCREMENT CHARACTER COUNTER
:SEE IF TOO MANY CHARACTERS TYPED
:BR IF NOT TOO MANY

005264
000004

TYPE

248:

MOV

;TVPE <CR> AND <LF>

;PUT TERMINATING NULL INTO BUFFER

sECHO INPUT STRING

:TYPE <?>,<CR>,<LF>

’$OUES
19%:

SEQ 0148

;ECHO THE CHARACTER TYPED

, SCRACH

R2 ,BUFFO(RO)
RO

10, BUFFO(RO)

:TAKE ERROR EXIT FROM RDCHRS
sTYPE <CR>,<LF>
:PUT TERMINATING NULL INTO BUFFER

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

;RESTORE R1

JSCRLF

#6,4(SP)

:FIX UP RETURN ADDRESS
:RESTORE R2
:SUBROUTINE EXIT

."Q.tQ'.t""""""""""".t"'."'l.""."t"'..'Q""Q

TYPTST = TYPE CURRENT TEST AND ITERATION NUMBER
YYYYYY'', WITH NO <(R>
;*OR <LF>, XX IS THE NUMBER OF THE CURRENT TEST AND
SBTTL

;*T4IS SUBROUTINE TYPES : ''XX

S*YYYYYY IS THE NUMBER OF ITERATIONS FOR THAT TEST.
;*R1 MUST CONTAIN THE INDEX INTO THE TEST LIST FOR
:*THE CURRENT TEST,

:* CALL =

JSR

PC,TYPTST

::'.""""Q""""""""Q".'..t'.i"""".."t".'..'.""

010146
006
005216
104403
002
000
104401

016146
1046403

013253

TYPTST:

TYPE
MOV
ASR
INC
TYPOS

.BYTE
.BYTE

013246
005630

TYPE
MOV
TYPOS

0
000207

RTS

,SPACE1

;PUT INDEX ONTO STACK
;DIVIDE BY 2
; INCREMENT TO GET TEST NO.
:TYPE TEST NO. IN OCTAL
;TYPE 2 DIGITS
: SUPPRESS LEADING ZEROS

;TYPE
SPACE6
TSTLST(R1) ,=(SP)’ :PUT
;TYPE
:TVPE

6 SPACE

CURRENT ITERATION NO. ONTO STACK
ITERATION NO. IN OCTAL

6 DIGITS

:SUPPRESS LEADING ZEROS
:RETURN

SBTTL

;TYPE A SPACE

R1,=-(SP)
(SP)
(SP)
o

104401

17
776
17

F 12
26=JUN-80 10:53 PAGE 150
RDCHRS = READ A STRING OF KBD INPUT CHARS

MACY11 30A(1052)

TYPPRM - TYPE CURRENT PARAMETER

R R R R

R LR

;*THIS SUBROUTINE TYPES THE LINE : XX=YYYYYYYY ,

S*WHERE XX IS THE CURRENT PARAMETER MNEMONIC, AND
SeYYYYYYYY IS ITS VALUE IN OCTAL DIGITS, WITH LEADING

:*JEROS SUPPRESSED. NOTE: <CR> AND <LF> ARE NOT DONE.
:#ON ENTRY, R1 MUST CONTAIN THE INDEX INTO THE

:«PARAMETER TABLES, FOR THE CURRENT PARAMETER.
:* CALL -

JSR

PC,TYPPRM

;;'.'.'."""'."""""i""""'..'l'ti.".".t!'.'tl..".Q.t

034350

016137

006010

013256

TYPPRM: MOV

PRMNEM(R1) ,PRMBUF

;PUT MNEMONIC INTO OUTPUT BUFFER

MACY11 30A(1052)

CIRONED RK611/06 35 ViY2
CZR6NE .P1N
26-JUN-80

26-JUN-80

10:53

6 12
PAGE 151

TYPPRM = TYPE CURRENT PARAMETER

5RHLST(I1) LOUOC‘ sPUT LOW BITS OF PARAM. INTO LOWOCT

MOV

PRMLST+2(R1) ,HIGOCT ;PUT W1 BITS OF PARAM. INTO HIGOCT

CLR
CMP
BNE

006010

005472

MoV

TYPE

005470

1 $:

MOV

JSR
JSR

RTS

MBUF

YPE 'Xx="'

HI1GOCT
;CLEAR HIGH BINARY BITS
O'HA PRANEM(R1) ;SEE lF PARAMETER IS (MA)
:BR IF NOT (MA)
1%
#LOWOCT,-(SPJ

;PUT ADDRESS OF BINARY VALUE ON STACK

PC,3#SSUPRS

:TYPE YYYYYYYY, SUPPRESSING LEADING 0'S

PC,a#s0820
PC

:CONVERT BINARY TO OCTAL ASCII
:RETURN

3 t.'."."QQ""""'""""""".".""'."Q"'."Q.'l"""

.SBTTL

TYPPAT = TYPE CURRENT UORD OF DATA PATTERN 15

;*THIS SUBROUTINE TYPES THE LINE: WORD XX = YYYYYY,

;*WHERE XX IS THE NUMBER OF THE CURRENT WORD OF

:*USER=-DEF INED PATTERN 15, AND YYYYYY [S ITS 16-BIT
;*VALUE, IN OCTAL DIGITS. <CR> AND <LF> ARE NOT TYPED.
;*ON ENTRY, R1 MUST CONTAIN THE INDEX OF THE CURRENT
s*WORD IN THE PATTERN 15 TABLE.
;v

CALL -

JSR

PC,TYPPAT

::'".."Q.'."""""""""".t".'Q.....'."'.'"t'fl'.t.'..'

034430

104401

013262

TYPPAT:

MOV
ASR
TYPOS

TYPE

R1,=(SP)
(SP)

,WORDSP

:TYPE 'JORD "'
:PUT INDEX ONTO STACK
:DIVIDE BY TWO FOR WORD NO.

TYPE
MOV
TYPOS
BYTE
.BYTE

2
1

:DIGIT COUNT = 2 FOR TYPOC
:TELL TYPOS TO TYPE LEADING ZEROS

,EQUALS
:TYPE
°
PATI5(R1),=(SP) :GET BINARY VALUE OF THIS WORD
:TYPE VALUE IN OCTAL
6
:TYPE 6 DIGITS
1
:TYPE LEADING 2EROS
PC

:RETURN

BYTE
BYTE

013270
006776

RTS

:GO TYPE WORD NUMBER

.t't."'l..lt"'""""'Q"."'."."'i!.".'."'..'iQ'.""'t

SBTTL

MODP15 = MODIFY USER-DEF INED PATTERN 15

;*THIS SUBROUTINE DETERMINES WHETHER OR NOT USER-DEF INED

:*DATA PATTERN 15 SHOULD BE OPENED FOR MODIF ICATION, AND

;*1F SO, IT REQUESTS THE NEW VALUES AND CONTROLS THE IR
;«INPUT ON THE TTY. IT CHECKS VALUES FOR VALIDITY, AND
:«LOADS THE 16 WORDS INTO THE PATTERN 15 TABLE (PAT15) .
;*IF THE OPERATOR ANSWERS THE REQUEST FOR A PATTERN WORD
;eWITH EXCLAMATION POINT (') (CR), THE SUBROUTINE
: *PROPAGATES THE LAST WORD TYPED INTO ALL REMAINING
:*WORDS OF THE PATTERN 15 TABLE.
PC,MODP15
JSR
;e CALL -

::QQ"..'."."""""""""'.ilil'i".it.'.tl..t.'.'.i"ltt't

034462
034462

010046

MODP15:

MOV

RO,~(SP)

;SAVE RO

——

SEQ 0149

CIR6NED RK611/06 35S ViY2

CIRONE.P11
7874
7875
7876
7877
7878
7879
7880
7881
7882

26-JUN-B80 10:48

MACY11 30A(1052)

010146
010246

034470
034476

022761
001127

052120

006010

034500
034506

032737
001523

100000

005700

7883

034510

104401

010667

7885
7886
7887
7888
7889
7890
7891

034520
034522
034524
034526
034530
034532
034540

034766
034776
034562
005700
001512
022737
001405

7893
789,

034546
034552

104401
000756

7896

034554

7895

7897
7898
7899
7900
7901
7902
7903
7904
7905
7906
7907
7908

034542

104401

105601

034560
034562
034566
034572

005001
004737
104401
104401

034576
034602
034604
034606
034610
034612
034614

004737
034766
034776
034562
005700
001006
062701

7910
7911
7912
7913
7914
7915
7916

034624
034626
034630
034636
034640
034642
034650

001454
000755
022737
001431
005002
122760
001004

7921

034

002426

034700
034702

034744
012600

7909 034620 022701

7917
7918
7919
7920

7922
7923

7926
7925

7926
7927
7928
7929

034652
034656
034660
034662

034670
0346764

034704
034710
034712
034716

6%:

000002

000040

CMP

000041

005264

000041

005263

054610
006776

TYPE

CLR
8%:
JSR
TYPE
TYPE
:READ AND CHECK
JSR
24$
26%
8%
ST
BNE
108:
ADD

034002

005264
054456

TYPE

RO
22%
#'M_BUFFO
6%
,BUFFO
.SQUES
is

:MODIFY PATTERN 15

034430
013253
013274

000006

L,MDFY1S

PC,RDCHRS

TYPE
BR

010645

012746
004737
005737
001015
010061
005702

005264

001314

005263

TYPE

JSR

248
26%
8%
TST
BEQ
CMP
BEQ

005264

105060
005300
005202
022700

PAGE 152

MOV
R1,=(SP)
:SAVE R1
MOV
R2,-(SP)
SAVE R2
:SEE IF PARAMETER [$ PT
CMP
#''PT,PRMNEM(RY) :SEE IF CURRENT PARAMETER IS (PT)
BNE
22%
:BR IF NOT (PT)
:SEE IF PATTERN 15 1s spscnrxso
BIT
#BITIS,P
:SEE IF PATTERN 15 SPECIFIED
BEQ
22%
:BR IF NOT SPECIFIED
:SEE IF PATTERN 15 SHOULD BE MODIFIED

(%:

7884 034514 004737 034002

7892

10:53

MODP15 = MODIFY USER=DEF INED PATTERN 15

034464
034466

000115

26-JUN-80

H 12

12%:

14%:

BEQ
BR
CMP
BEQ
CLR
CMPB
BNE

CLRB
DEC
INC
CMP

BLT

MOV
JSR

20%
MOV

ST
BNE
MOV
ST

:ASK WHETHER PATTERN 15 SHOULD BE MODIFIED

neno RE SPONSE

1(*C) RETURN ADDRESS
:(*2) RETURN ADDRESS
:(*U) OR ERROR RETURN ADDRESS
:SEE IF NULL INPUT
:BR IF MODIFICATION NOT REQUESTED
:SEE IF (M) TYPED
:BR IF MODIFICATION REQUESTED

:ECHO BAD INPUT
;G0 ASK AGAIN

,SELP1S

:TYPE "MODIFY PATTERN 15"

RO
128
#2,R

:READ NEW DATA PATTERN WORD
:(*C) RETURN ADDRESS FOR RDCHRS
:(*71) RETURN ADDRESS FOR RDCHRS
:(*U) OR ERROR RETURN ADDR. FOR RDCHRS
*SEE IF ANY INPUT
BR IF ANY INPUT
*INCREMENT WORD INDEX

22%
8%
#'',BUFFO
16%
R2
#'' ,BUFFO=1(RO)
14%

:BR IF DONE, TO RETURN
:CONTINUE WITH NEXT WORD
TSEE IF (') TYPED
:BR TO PROPAGATE CURRENT VALUE
JINIT, (') INDICATOR
SEE IF LAST CHAR IN BUF IS (!)
:BR IF NOT (!)

R1
PC,TYPPAT
,SPACE1
,PROMPT
INPUT, IF ANY
PC,RDCHRS

csé R1

BUFFO=-1(RO)
RO
R2
#6,R0

20$

#BUFFO,~-(SP)
PC,OCTBIN
(SP)+,RO

suioct
208
RO,PAT15(RY)
¥

sINITIALIZE WORD INDEX
:TYPE CURRENT WORD AND VALUE
:TYPE A SPACE
:TYPE ASTERISK AND SPACE

*SEE IF ALL DONE

;INSERT TERMINATOR BYTE
:DECREMENT CHAR COUNT
SSET (') INDICATOR
:SEE YOW MANY CHARS NOW

‘BR IF TOO MANY

:GET BUF. ADDR. ON STACK FOR OCTBIN
*CHECK DIGITS AND CONVERT TO BINARY
ERROI RETURN ADDRESS FOR OCTBIN
‘GET BINARY VALUE

*SEE IF VALUE EXCEEDS 16 BITS
:BR TO ECHO BAD INPUT
:PUT NEW WORD VALUE INTO TABLE
JSEE IF (') WAS TYPED

SEQ 0150

CIR6NED RK611/06 35S ViY2
CZR6NE .P1N
26-JUN-80 10:48
034720

001735

034722

022701

000036

006776
000002
104401
104401

000702

112
MACY11 30A(1052) 26-JUN-80 10:53 PAGE 153
MODP15 = MODIFY USER-DEF INED PATTERN 15
BEQ

108

CMP

#30. ,R1

R IF (') WAS NOT TYPED

- PROPAGATE cuaneur WORD TO END oi PATTERN 15 TABLE

007000

fes:

BEQ

MOV
ADD
BR

-ECHO BAD INPUT

208:

005264
001314

52¢:

,BUFFO

014374

000006

348:

012766
000764

015760

000006

368:

:ECHO BAD INPUT

$QUES

:TYPE <?> AND <CR>,<LF>

MOV

(SP)+,R2

:RESTORE R2

MOV

(SP)+.RO

‘RESTORE RO

MOV

RTS
(*C) RETURN

012766
000770

IF DONE

PAT1S(R1) pAt\Soé(n1) :PROPAGATE TO NEXT WORD
: INCREMENT WORD INDEX
166
:LOOP UNTIL DONE

TYPE

:NORMAL RE TURN

012602
012601
012600
000207

sse If ALL DONE YET

228

MOV
BR

(*2) RETURN

MOV
BR

‘BR TO ASK AGAIN

(SP)+.R1

‘RESTORE R1

‘RETURN

#ORVTST,6(SP)
22%

#ASKMDE ,6(SP)
22%

;PC FOR (*C) RETURN

:BR TO RETURN

;PC FOR (*2) RETURN

:BR TO RETURN

3 t"t.".".Q"""""""""Q.'QQQ.".'.Q"'."'."'ltt""'t

.SBTTL

CHKPRM - CHECK VALUE OF INPUT PARAMETER

;*THIS SUBROUTINE CHECKS THE CONTENTS OF LOWOCT AND

;*HIGOCT (IF 32-BIT VALUE) AGAINST LOWER AND UPPER

;*LIMITS FOR THE CURRENT PARAMETER. THE PARAMETER TABLE
;*INDEX FOR THE CURRENT PARAMETER MUST BE PASSED
:«TO CHKPRM IN R1 ON ENTRY. IF THE PARAMETER VALUE

;*1S LEGAL, IT IS ENTERED INTO THE PARAMETER TABLE
;«(PRMLST). IF NOT, A RETURN IS MADE TO THE ADDR. FOLLOWING

:#THE CALL TO CHKPRM. IF THE PARAMETER HAS A 2-WORD

;*VALUE (32 BITS) R1 IS INCREMENTED BY 2 BEFORE RETURN.
ie CALL -

JSR

RETURN

PC, CHKPRM

CERROR RETURN ADDRESS>

;;.'.Q".'..t""""'.""""'l'.l"t'."t..'I"tt'.."!t'.t'l.

CHKPRM: SAVREG
006010

168:

005472
000000

CSNOON

0000

O00O0

040515

005470

00573«

005470

005736

:SAVE RO-RS

MOV
ASL

R1,R2
R2

:GET COPY OF INDEX
:DOUBLE 1T

MOV

@(SP),(SP)
3 0%

:GET ERROR RETURN PC
:GO TO RETURN

(WP

LOWOCT, pnnL1n<a2> sze IF INPUT VALUE IS TOO SMALL

CMP

LOWOCT, PINLIH*?(IZ) ;SEE IF INPUT VALUE IS TOO LARGE

CAP
BEQ
1ST
BEQ

& WAPRANEN(RT)
208
WIGOCT
188

:SEE IF PARAMETER IS (WA)
:BR IF (MA)
{SEE 1F WIGH BITS
= 0
:BR_IF ZERO

:CHECK VALIDITY OF 16-BIT PARAMETER VALUE

18s:

BLO

16%

R IF _INPUT VALUE TOO SMALL

R IF INPUT VALUE 1S TOO LARGE
16 $
LIST
lN
VALUE
PARAMETER
JUPDATE 16-BIT
BHI

SEQ@ 0151

CIR6NED RK611/06 S ViY2

CZIRO6NE.P11

26-JUN-80 10:48

7986

035060

013761

7990

035076

001355

7992
7993

035106
035110

103751
001004

005660

035100 023762 005472

005736

035120
035122
035130
035132
035134

103744
023762
101340
001004
023762

7994 035112
7995
7996
7997
7998
7999

8000
8001

035142

8002 035144

023762

10133

013761

8003 035152 013761
3004
8005

005734

005472

005742

005470

005740

005470 005660

005472 005662

8010
8011
8012

004737
104401
010037
010137
012746
004737
004737
104401

035236
010405
003172
003174
003172
055414
055730
001315

8014
8015
gg}g

035226
035232
03523¢

716
104410
000207

000002

8007
8008

8009

8013 ogssso gg 766 000002 000014
8018
8019
‘ozo

035236
035242

013700
013701

8027
8028
8029

ossgs
03525¢
035260

005601
163701
100413

8031
80

035264
ogs 93

006001

=834
35

835 764
035276

005501
005701

8026 035253

8033

ooss

035262
035

8037

035302

’o

035310

0033
i

MOV

SEQ 0152

OWOCT,PRALST(R1) ;PUT NEW PARAMETER VALUE INTO LIST

BNE

‘BR IF MA IS ODD

168
248

:BR IF HIGH WORD IS TOO SMALL
“BR IF HIGH WORD NOT EQUAL TO LOW LIMIT

HIGOCT,PRMLIM*2(R2) ;SEE IF HIGH WORD TOO SMALL

CMP

LOWOCT,PRMLIM(R2) ;SEE IF LOW WORD IS TOO SMALL

BLO
BNE

248:

168

CMP

BLO
CMP
BHI
BNE
CMP

168
:BR
HIGOCT,PRMLIM+6(R2)
168
:BR
26$
:BR
LOWOCT,PRML
IM+4 (R2)

IF LOW WORD IS TOO SMALL
;SEE IF MIGM WORD IS TOO BIG
IF WIGM WORD TOO BIG
IF Wl WORD NOT EQUAL TO UPPER LIMIT
;SEE IF LOW WORD IS TOO LARGE

BHI
168
:BR IF LOW WORD IS TOO LARGE
.UPDATE 32-BIT PARAMETER VALUE IN LIST

26%:

MOV

LOWOCT,PRMLST(R1) ;PUT LOW WORD INTO LIST

HIGOCT,PRALST+2(R1) ;PUT HIGH WORD INTO LIST

;COMPUTE AND TYPE MAX ALLOWABLE WORD COUNT FOR THIS MA
JSR
PC,MXWRDC
:GET WORD COUNT IN R1-RO

TYPE

RO, SUMLO1
R1,SUMHIN

JSR
JSR
TYPE

PC,$0820
PC.SSUPRS
,S$CRLF

MOV

288:
30$:

,MAWRDC

MOV
MOV

ADD

ADD
RESREG
RTS

#SUMLO1T ,=(SP)

#2.,14(SP)

STYPE 'MAX WORD COUNT = *'
:PUT POINTER ON STACK

:CONVERT TO OCTAL
STYPE IT
STYPE <CR>,<LF>

: INCREMENT RT INDEX

#2.(SP) :GET NORMAL RETURN PC
:RESTORE RO=-RS
PC
*RETURN

SeMXWRDC - GET MAX WORD COUNT FOR CURRENT MEM LIMITS AND CURRENT MA,
“«AND LEAVE THE WORD COUNT IN R1-RO. NO REGISTERS ARE SAVED.

8024
8025

8030

J 12
PAGE 154

.':t'l'tt'tt.t"Ql"t""""""'t't't".'".t'."tittttt'.Qttt"

8021
8022

wzs

10:53

BR
8s
:BR TO RETURN
:CHECK VALIDITY OF 32-BIT PARAMETER VALUE
005470 20$:
BIT
#8170,LO0WOCT
:;SEE IF MA IS ODD

005470

035160
035164
035170
035174
035200
035204
035210
035214

8006

26=JUN-80

HKPRM = CHECK VALUE OF INPUT PARAMETER

005470

7987 035066 000457
7988
7989 035070 032737 000001
7991

MACY11 32“1052)

35304

163700

;:"ttt..'t'.tt.""'t"""""t'..'.ttt't.QQ".'..""Q'.'t"tt

005574
005576

MXWRDC: MOV
MOV

005602

SBC
suB
BM]

005600

SuB

000241

062700

cLe

000001

005000

012701

000207

ADC
ST

R1
R1

CLR

27%:

R1
MA+2,R1
27%

R1
RO

BEQ

000001

MA,RO

ROR
ROR

ADD

001403

MAHILM,RO
MAHILM+2,R1

MOV
RIS

:GET LO BITS OF MEM LIM
‘Wl BITS OF MEM LIM

:SUBTRACT MA FROM MAHILM
:1F NEGATIVE, RETURN

:DIVIDE BY 2 TO GET WORDS

#1,R0

: INCREMENT BY 1 WORD

27%

:BR IF WORD COUNT < 65,536 DFC

M.
PC

;

‘MAKE WORD COUNT = 65,536

:RETURN

—

CIR6NED RK611/06 S ViY2
CZRONE .P1
26=JUN-80 10:48

K 12
MACY11 30A(1052)
26-JUN-B0 10:53 PAGE 155
CHKPRM = CHECK VALUE OF INPUT PARAMETER

SEQ 0153

CrRANRNARNARRRRRACRCCEROCERCEQERORCEOORORRNRNANNARNAONARNOAOOOONNAOEROORONS

.SBTTL

DRVSER = TYPE DRIVE SERIAL NUMBER (LOW 3 DIGITS)

;*THIS SUBROUTINE TYPES 'DRIVE SER. NO.
;*IEROS SUPPRESSED.

XXX' (IN DECIMAL), WITH LEADING

cegAtRRRRRARARTEROERRCERRRRRRRRRORERRRRRRRRRARRNANRRORANRNNCOEONORROROORS

g -~ VIS B NNNS
:gsgigdhncadua-nu“p

—

000001

. SERNM

)
,R1
P.A11(RS
#S0CTVL ,R&

§§§“§NN

LYY
O &
OO0
~ND
-

822

:TYPE "DRIVE'
:TYPE ** SER. NO.

"'
11
BYTE
STATUS
TGET "'A""
BUFFER
CHAR
:GET ADDR OF
*STORE IT ON STACK FOR SSUPRS

SINIT CHAR COUNT
SINITIALIZE BIT POSITIONS

;GET NEXT 4 BITS

4$:

purd

328232 o $83558~
d
)

;SAVE RO=RS

PC,INITSS
“CLEAR S.S. AND PARAMETERS
#ROSTAT,P.CMND(R §) :SET READ STATUS COMMAND
:READ STATUS OF THIS DRIVE
PC,ORVCAL

ORIV

X33

OO0O0O—=—

£2

DRVSER: SAVREG

177760

000060

055739
001315

R1,R0

#177760,R0

#'0,R0
RO, (R&)+
R3
48

(R&)
PC,a#SSUPRS

;GET A WORKING COPY
sCLEAR ALL BUT LOW & BITS
sCONVERT A DIGIT TO ASCII

sPUT ASCII DIGIT INTO CHAR BUFFER

sDECREMENT CHAR COUNT
:BR IF NOT 3 CHARS YET
s INSERT NULL TERMINATOR

JOSCRLF

sTYPE DRIVE SER. NUMBER
:TYPE <CR> AND <LF>

sRETURN

sRESTORE RO-RS

pe—

CIRONED RK611/06
35S Vi Y2
MACY11 30A(1052)
26=JUN-80 10:53 LPA%E 156
CIRONE.P11
26-JUN=80 10:48
DRVSER = TYPE DRIVE SERIAL NUMBER (LOW 3 DIGITS)

—

w7‘

: ‘rhttttet

8080

;*THIS SUBROUTINE TYPES ''CART. SER. NO.

8079

"SBTTL

8081

R Rt Rt RRRRRERRERRERRRRRRRRRRRRRRRRRCRACRRRRRRRRRRRRORRRRETSR

CRTSER = TYPE CARTRIDGE SERIAL NUMBER

:*WITH LEADING ZEROS SUPPRESSED.

aoa%
ogs«sz 004737 032250
CRTSER: BICB
JSR
8084 035436 142765 oooogo 000007
; 2

8085
8086
8087

035444
035450
035452

105737
00140
105;6

003125

8090
8091

035472
035500

112765
012765

2
cgses&

8093

035514

004737

042510

2222222323232

000004

8088 035456 11; 65 000121 000001 &$:
8089 035464 013765 020000 000002
000005
000010

aovg 035506 012765 177776 000012
8094
8095
8096

035520
035524
035530

104401
104401
012746

8098
8099
g}gg

035540
035544
035550

004737
104401
000207

JSR

055730
001315

JSR
TYPE
RTS

JSR

8124
8125
8126
8127
8128
otgg
g},‘
s1s§
813

XXXXXXXXXXX'' CIN OCTAL),

PC,INITSS
:CLEAR S.S.
AND PARAMETERS
#B.CFAT,P.CSIH(RS)
;SET 22 SECTOR FORMAT

2333 2232223332222223233333333303303320020k0id]]

FORMAT
1
P.SECT(RS)

:CHECK THE ACTUAL FORMAT
:BR IF 22 SECTORS
:1F 20 SECTORS, READ SECTOR 1

#RDDATA,P.CMND(RS) :SET READ COMMAND
LSTCYL,P.CYLN(RS) :SET CYL = 632(0CT)/1456
#LSTTRK,P.TRCK(RS) ;SET TRACK = 2
#RVBUF
P .BALOCRS) :SET READ BUFFER ADDRESS

#-2,P.UC(RS)

:SET WORD COUNT TO READ 2 WORDS

,CART
.SERNM
#RWBUF ,-(SP)

:TYPE
"'CART."’
:TYPE '‘SER. NO. "'
:GET POINTER FOR $DB20

PC,DRVCAL

PC,a#s$0820

PC.a#SSUPRS
LSCRLF
PC

:READ SERIAL NO. IN BSF

:CONVERT BINARY TO OCTAL

:TYPE CART. SERIAL NO. IN OCTAL
:TYPE <CR> AND <LF>
*RETURN

::"'Q'Q'tt.."'Q't"""'."'"Q'.tfi..."'.'."""Q."'it"'i"

"SBTTL STALL = STALL FOR ST UNIT STALL TIMES
ielF SWR BIT 8 = 0, THIS SUBROUTINE STALLS FOR ST STALL TIMES,
teWHERE A STALL TIME = 40 US, FOR AN '‘AVERAGE'' CPU. IF BIT 8
t«]S EQUAL TO 1, A RANDOM STALL IS APPLIED.
:* CALL =
JSR
PC,STALL

8110

8123

MOVB
MOV

TYPE
TYPE
MOV

8106
8107
8108
8109
8111

MOVE
MOV

011101
011110
065636

8102
8103
'10‘
8105

8112
8113
8114
8115
8116
8117
8118
8119
8120
8121
3125

TSTB
BEQ
INCB

MOV

8097 035534 004737 055414

SEQ 0154

035552
035554
035556
035564
035566
035572
035576
035600
035602
035604
035610

035612

035616
03
035622
035624
035626
035630
035632

010046
010146
032777
001407
004737
013700
006200
006200
000403
013700
001406

012701

005301
001376
005300
001372
012601
012600
000207

000400

STALL:

MOV
MOV
BIT
BEQ
JSR
MOV
ASR
ASR
BR
MOV
BEQ

RO,=(SP)
R1,=(SP)
#81708,aSWR
1%
PC,SRAND
$LONUM, RO
RO
RO
28
STALLS,RO
63

:SAVE RO
:SAVE R1
:APPLY RANDOM STALL ?
:BR IF NOT RANDOM
:GENERATE PSEUDO-RANDOM NUMBER
:GET IT INTO RO
:SCALE 1T DOWN

DEC
BNE
DEC
BNE
MOV
MOV
RTS

R1
4
RO
28
(SP)+,R1
(SP)+.RO
PC

:INNER LOOP COUNTER
:INNER LOOP BR
:OUTER LOOP COUNTER
:OUTER LNOP BR
*RESTORE R1
‘RESTORE RO
*RETURN

143354

054612
054712

005502

,
1$:

000016

28:

48:

68:

MOV

#14. R

L A A

A AR

LAl

:G0 STALL WITH RANDOM NO.
:GET REQUESTED NO. OF STALLS
:RETURN IF NO STALL REQUIRED

:SET CONSTANT FOR 40 US

CIR6NED RK611/06 S ViY2
CZR6NE .P11
26=JUN-80 10:48

M 12

MACY11 32?{1052) 26=JUN-80 10:53 PAGE 157
LL = STALL FOR ST UNIT STALL TIMES

8134

8136
813%7

:*THIS SUBROUTINE GENERATES A PSEUDO-RANDOM 9-BIT CYLINDER
:*ADDRESS, AND LEAVES IT IN "'CYLNDR''. IT REQUIRES THE SYSMAC

8139
8140
8141
8142

035634
035640

004737
013737

054612
054712

005504

:* CALL =
JSR
PC,RNDADR
L d R
T
T T
T T
L L
RNDADR: JSR
PC,SRAND
:GENERATE 2 16-BIT RANDOM NUMBERS
MOV
SLONUM,CYLNDR
;GET A RANDOM NUMBER

8144
8145
8146
8147

035654
035662
035664
035672

023737
002003
043737
000207

020000

005504

020002

005504

8135

.SBTTL

8138

SEQ 0155

RNDADR = RANDOM CYLINDER ADDRESS GENERATOR

BIC

0177006.CVLNOR

2%:

8151

R LR

8154

8152
8153

8157
8158
8159
8160
8161

8162
8163
8164
8165

8171
8172
8173
8174

035674
035676
035702
035704
035710
035712
035714

104407
012701

010021
020127
001374
104410
000207

066636

:SCALE IT TO 9 BITS

;SEE IF CYL IS TOO BIG
:BR IF CYL IS OK
:SCALE DOWN TO A VALID CYLINDER
:RETURN

T T T TR R R ALY

#RUBUF ,R1

RO,(R1)+
R1,#RWBUF+512.
2%
PC
R

R TR

:SAVE RO=-RS
:GET ADDRESS OF DATA BUF INTO R1
:PUT WORD INTO BUFFER
;SEE IF 256 WORDS WRITTEN YET
:BR IF NOT DONE YET
sRESTORE RO-RS
:RETURN
T

T T

L T L T e

:* TRKCHK = THIS SUBROUTINE DOES A WRITE~CHECK OF SECTOR FS ON CYL
:#FC, FOR EACH OF TRACKS O, 1, AND 2. THE DATA IS COMPARED TO THE
:*TRACK NUMBER + 100(OCT) FOR THAT PARTICULAR BLOCK OF DATA WRITTEN.
:*THE PARAMETER BLOCK MUST BE PRE-LOADED WITH THE PROPER PARAMETERS.

035716
035720
035724

104407
016546
105065

000004
000005

8176
8177

035734
035740

062700
004737

000100
035674

8180
8181
8182
8183
8184
g}gz

03575
8357
0357
035772
035776
036000

105;65
122765
001357
012665
104410
000207

000005
000003

000004

T T

R P R R R T

TRKCHK: SAVREG
MOV
CLRB

:SAVE RO-RS
P.SECT(RS) ,=(SP) :SAVE TRACK AND SECTOR PARAMETERS
P.TRCK(RS)
:CLEAR THE TRACK NO.

28:

MOVB

P.TRCK(RS),RO

MOVB
JSR

OURTCHK.P.CHND(Rs) :SET WRITE CHECK COMMAND
PC,DRVCAL
:PE‘FORH THE WRITE CHECK

:LOAD THE DATA BUFFER WITH THE CURRENT TRACK NO.

8178 035744 112765 000131 000001
8179 035752 004737 042510

8189

LSTCYL,CYLNDR
2%
HOLD1,CYLNDR
PC

LODSEC: SAVREG
MOV
2%:
MOV
CMP
BNE
RESREG
RTS

065636

8175 035730 116500 000005

8187
8188

TR R e

:* LODSEC = THIS SUBROUTINE LOADS THE CONTENTS OF RO INTO ALL
:«256(DEC) WORDS OF THE DATA BUFFER (RWBUF).

8166
8167
8168
8169
8170

L L

CMP
BGE
BIC
RTS

8155
8156

T R

: *SUBROUTINE SRAND.

8143 035646 042737 177000 005504

8148
8149
8150

L L T

000005

ADD
JSR

INCB
(MPB
BNE
MOV
RESREG
RTS

#100,R0
PC.LODSEC

;GET TRACK NO. INTO RO

:ADD 100(OCT) TO TRACK NO.
*LOAD DATA BUF WITH TRACK NO. + 100(OCT)

P.TRCK(RS)
:INCREMENT THE TRACK NO.
;SEE IF DONE WITH ALL TRACKS
#3,P.TRCKC(RS)
:BR IF NOT DONE YET
2%
(SP)+,P.SECT(RS) ;RESTORE TRACK AND SECTOR PARAMETERS
:RESTORE RO-RS
:RETURN
PC

IR
RN
Y

CleNEO RK611/06 S ViY2
CIR 6NE .P11
26=-JUN-80 10:48

N 12
MACY11 30A(1052)
26-JUN-80 10:53 PAGE 158
RNDADR = RANDOM CYLINDER ADDRESS GENERATOR

8190
8191

8192

;*LODP14 = GENERATE SIXTEEN PSEUDO-RANDOM NUMBERS AND LOAD THEM
-xnro THE PATTERN 14 TABLE.

QQ""Q"'Q'Q"""""'""'0""'.""""'"t""Q'Qt."'ttt

8193
8194

036002
036004

104407
012701

000010

{0DP14: SAVREG
MOV

8. .M

8196

036014

004737

054612

48:

PC, SRAND

8195

8197

8198
8199
8200
8201
8202
8203
82
8205

036010

036020

ossogg
036030
036032
036034
036036

012700

013720

013720
005301
001370
104410
000207

006736

054712

054710

8215

036040
036042
036046
036050
036052
036056
036062
036070
036074
036100
036104
036110

104407
013746
005416
005046
116616
005066
116566
066616
005066
012700
105737
001402

8229

036116

020016

8240
8261
824

8243

8244
8245

SLONUM, (RO)+
SHINUM,(RO)+
R
4$
PC

:GET ADDRESS OF PATTERN 14 BUFFER
:GENERATE 2 16-BIT RANDOM NUMBERS

:PUT ONE NUMBER INTO PATTERN

:PUT OTHER NO. INTO PATTERN
:SEE IF 16 WORDS LOADED YET
‘BR IF NOT YET
‘RESTORE RO-RS
:RETURN

"§BTTL FINADR = COMPUTE FINAL PACK ADDRESS
;*THIS SUBROUTINE IS USED AFTER
A DATA TRANSFER WAS COMPLETED, T0
:#COMPUTE THE FINAL PACK ADDRESS AT TERMINATION. THE 2'S COMP. OF THE
:*WORD NO. AT THE POINT OF INTEREST IS PASSED IN LASTWC. THIS IS USED WITH
'P CYLN(RS), P.TRCK(RS), AND P.SECTC(RS) TO COMPUTE THE CORRESPONDING
:*PACK ADDRESS, WHICH IS RETURNED IN FINCYL, FINTRK, AND FINSEC.
:«THE SUBROUTINE IS USED TO DETERMINE THE PACK ADDRESS OF A SOF TWARE
; *DATA MISCOMPARE
.
tttttt"'t.tt"'t"t"'t't't"'ttt.t".ttti't.t't'ltt'tttttt"t

8216
351
8218
8219
8220
8221
8222
8223
82264
8225
8226
8227

8231
azsg
8233
8234
8235
823?
8237
8238
8239.

MOV

#PAT14,RO

"t..t'."'tt"""'"'Q'Q"".t't.t"i"'t.i.'.t'Q'Qtt.'tt'ttt

8207
8208
8209
8210
8211
8212
8213
8214

8230

JSR

MOV
DEC
BNE
RESREG
RTS

8228

MOV

;SAVE RO=RS
:INIT LOOP COUNTER TO 8.

036112

osotso

012700

005572

000003
000002
000004
000002
000002
000026
003125

000024

101004

036122
0361;3
036130
036132
036136
036140
036144
036150
036154

160016
005266
000772
112637
005046
116516
066616
005066
122712

036162
036193

16;716
005266

000003
000002

036174
036200

112637
066516

005570
000002

036160

036172

10100

000770

000002

FINADR: SAVREG
MOV
NEG
188:
CLR
MOVB
CLR
MOVB
ADD
CLR
MOV
TSTB
BEQ

198:

000002
005571

208:

000005
000002
00000
00000

218:

228:

;SAVE RO-RS

LASTWC,={SP)

:STORE WORD COUNT

MOV

#20. ,RO

:SET FOR 20 SECTORS

BHI

20§

:NO, CHECK IF SECTOR CORRECT

CMP

(SP)
PMAKE IT POSITIVE
-(SP)
:MAKE ROOM ON STACK
3(SP),(SP)
sSTORE NO. OF SECTORS TRANSFERRED
2(SP)
:CLEAR LOCATION ON STACK
P.SECT(RS),2(SP) :STORE STARTING SECTOR
2(SP), (SP)
;DETERMINE FINAL SECTOR ADDRESS
2(sp)”
:CLEAR NO. OF TRACKS TRANSFERRED
#22. R0
:SET FOR 22 SECTORS
FORMAT
:DETERMINE THE FORMAT
198
:BR IF 22 SECTORS

RO, ($P)

:CHECK FOR SECTOR OVERFLOW

SUB
INC
BR
MOVB
CLR
MOVB
ADD
CLR
CMPB

RO, (SP)
2($P)
198
(SP)+,FINSEC
-(SP)
P.TRCK(RS),(SP)
2(sP), (SP)
2(SP)
#3,(SP)

:DECREMENT SECTOR COUNT BY 20 OR 22
: INCREMENT TRACKS TRANSFERRED
:CHECK FOR SECTOR OVERFLOW
:STORE FINAL SECTOR
:MAKE ROOM FOR TRACKS TRANSFERRED
;STORE STARTING TRACK
:DETERMINE FINAL TRACK ADDRESS
:CLEAR FINAL CYLINDER
:CHECK FOR TRACK OVERFLOW

SUB
INC

#3,(SP).
2(5P)

:DECREMENT TRACK COUNT BY 3
SINCR CYL COUNT

MOVB
ADD

(SP)+,FINTRK
:STORE FINAL TRACK
P.CYLN(RS),(SP) :CALCULATE FINAL CYLINDER

BHI

B8R

22%

218

:NO, CHECK FINAL TRACK

SCHECK FOR TRACK OVERFLOW

SEQ 0156

’

CIR6NED RK611/06 sS ViY2
CIRONE.P11
8246
8247
8248
8249
8250
8251
8252

26-JUN=-80 10:48

036206
036210
036212
036214

011637
005726
104410
000207

FINADR = COMPUTE FINAL PACK ADDRESS

005566

MOV
ST
RESREG
RTS

‘253

;:tttt'i'.t'.'t""."""""'ttQ'Qt'.'.""t."'t'."'t."t't"

8264
8265
8266
8267
8268
8269
8270
8271
8272
ggrs
74
8275
8276
8277

036216
036220
036224
036230
036232
036236
036242
036246
036250
8;2552
56
036260
036262
036264

8279
8280.
8281
8282
8283

036270
036272
036274
036276
036

104407
013702
005737
001007
012700
012746
012701
000463
005000
032701
001003
005200

006036
000400
065636
000001

036304
036310

036320

100036

036322

013737

003176

8291 036336 042701

160000

036266

LODBUF: SAVREG
MOV
ST
BNE
MOV
MOV
MOV
BR
3$:
CLR
4$:
BIT
BNE
INC
ASR
BR

005564
005536

006201
000772
006300
006300
006300
006300
006300
062700
012746
013701

8284
8285

6%:

006036
000020
005604

ASL

ASL
ASL
ASL
ASL
ADD

MoV
MOV

TST

8286 036314 005737 057710
8287
8288
8289

172354

8290 036330 052737 000001 177572
140000

#140000. R1
RO,R3
(SP) ,R&

:GET A COPY OF PATTERN ADDRESS
CINIT PAT!ERN WORD COUNT

062737 000200 172354

ADD

005302
001403

DEC
BEQ

036374
036376

*SEE IF MEM MGT PRESENT

BIS
MOV
MOV

036

228:

248:

001405

042701 020000

:GET ADDRESS OF DESIRED PATTERN
:SET PATTERN WORD COUNT
:SET BUFFER ADDRESS

:TURN ON MEMORYMANAGEMENT

8297

gggg 036370

sk1i1

HULTIPLV PATTERN NO. BY 32(DEC)

#8170, 45RO

BIC

036342
036
8363

8298 036

R1
43
RO
RO
RO
RO
RO
#PATO0,RO
#16. -(SP)
PMA R1

;SAVE RO-RS
:GET NO. OF WORDS
*SEE IF QUICK VERIFY DATA TEST DESIRED
:BR IF NOT QUICK VERIFY
:SET DATA PATTERN STARTING ADDRESS
*SET PATTERN WORD COUNT
:SET BUFFER ADDRESS
:PROCEED
TINIT PATTERN NUMBER
:SEE IF THIS BIT IS SET
‘BR IF THIS BIT IS SET
: INCREMENT PATTERN NO.
SSHIFT TO EXAMINE NEXT BIT
BR TO CHECK NEXT BIT

BIS

azog
8293
8294

8295 03635 3‘5 21
8296 036354 032701 020000

WDSXFR,R2
PATRN
3$
#PATO0,RO
#256.,-(SP)
#RWBUF ,R1
308
RO
#8170,R1
6%
RO

:BR IF NOT PRESENT
308
BPL
:BUFFER LOAD LOOP FOR MEM MGT STARTS HERE
MOV
SAVPAR, 4K IPARG ;SET UP WORKING PAR

052701
010003
011304

8301

:STORE FINAL CYLINDER
:CLEAN OFF STACK
:RESTORE RO=-RS
*RETURN

"§BTTL LODBUF = LOAD THE READ/WRITE DATA BUFFER
:*THIS SUBROUTINE LOADS THE READ/WRITE DATA BUFFER (POINTED TO BY
i« PMA AND PMA+2) WITH THE APPROPRIATE REPEATING DATA PATTERN. IF
'PARAHEV‘R PATRN = 0 ON ENTRY, THE DATA WHICH IS LOADED 1S COMPRISED
:*0F ALL THE PATTERNS 00-15 (OUICK VERIFY DEFAULT DATA TEST).
t«IF PATRN IS NOT 0, THE NO. OF WORDS IN THE WORD WDSXFR
‘«OF THE PATTERN IDENTIFIED BY THE NO. OF THE BIT SET IN R1 ON
'ENYRY ARE LOADED INTO THE BUFFER.

a26§

8278

(SP),FINCYL
(SP)+

'tQ"'Q"t""""'t"0""""'0...'.0."Q.t".'"Q"'t"tt"'

8254
8255
8256
8257
8258
8259
8260
8261
826

MACY11 30A(1052) 26=-JUN-80 10:53 .PAGE 159

MOV
BIT
BEQ

268:

BIC

#160000, R1

(R3)+, (R1)+
mind.n
263
cMumm
1113,
R2
288

:FORCE RELOCATION THRU KIPAR6

SLOADA DATA WORD INTO BUFFER
*SEE IF OVERFLOW TO NEXT PAGE
:BR IF NO OVERFLOW

: INCREMENT PAR BY 4K FOR NEW PAGE
:SET PAGE= 6 AGAIN

*DECREMENT WORD COUNTER
BR IF ALL DONE

SEQ 0157

CIRGNED RK611/06 35 ViY2

CIRONE.P11

26-JUN=-80 10:48

8302

036400

005304

8304

036404

ooo7go

PAGE 160
MACY11 30A(1052) 26-JUN-80 10:53 “on

830 oggzoz 001363

8305 036406 042737 000001
8306 036414 000410

LODBUF = LOAD THE READ/WRITE DATA BUFFER

177572 288:

8307

DEC

:DECREMENT PATTERN WORD COUNT

:BR TO REPEAT THE PATTERN

BNE

‘8

BIC
BR

0exto.atsno
44s

:BR IF NOT DONE WITH PATTERN YET
:DISABLE MEMORY MANAGEMENT
160 TO RETURN

-BUFFER LOAD LOOP FOR NO MEM MGT STARTS MERE

8308 036416 010003

$0s:

mov

RO,R3

:GET A COPY OF PATTERN ADDRESS

8310 036422 012321

348:

MOV

(R3)+, (R1)+

:LOAD A DATA WORD INTO BUFFER

8309

036420

011604

8311
8312

036424
036426

005302
001403

8314

036432

001373

8313

036430

005304

036436
036440
036442

MOV

00572
10441
000207

4s:

(SP) ,R&

DEC
BEQ

R2
4

BNE

348

DEC

8315 036434 000770
8316
8317
g;}g

B8R

TST
RESREG
RTS

308

(SP)+

SINIT PATTERN WORD COUNT

oecnentnt WORD COUNTER
:BR IF ALL DONE

oecnentnt PATTERN WORD COUNT

:BR IF NOT DONE WITH PATTERN YET

:BR TO REPEAT THE PATTERN
:POP THE STACK
:RESTORE RO-RS
:RETURN

8320
8321
‘322
8323
8324

' "Q'...""'Q"'"'"Q"""Q""Q.""."'Q"QQ"Q'QQ'Q.""'..
"SBTTL CMPBUF = SOF TWARE COMPARE DATA

8327

1«00-15 (QUIZK VERIFY DEFAULT DAT/ TEST).

8325
8326

:«THIS SUBROUTINE PERFORMS A SOF TWARE COMPARE OF THE R/W DATA BUFFER (POINTED
1eTO BY PMA AND PMA+2) TO THE APPROPRIATE REPEATING DATA PATTERN. IF
:«PARAMETER PATRN = 0 ON ENTRY, THE DATA IS COMPRISED OF ALL THE PATTERNS

8328
8

*«1F PATRN IS NOT O, THE NO. OF ThE BIT SET IN R1 ON ENTRY IDENT(FIES THE
-aertarxuc DATA PATTERN TO COMPARE AGAINST.

‘

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

8331
8332
8333
833,
8335
8336
8337

036444
036446
0364564
036462
036466
036472
036476

104407
112737
012737
013702
005037
004737
005737

000040
000007
005564
005534
043676

8340
8341
8342
8343
8344
8345
[
834

036510
036514
0365
036522
03652¢
036530
036532
oggsss

012746
012701

000400
065636

8349

036540

006300

005536

8338 036502 001007
8339 036504 012700 006036
005000
032701
001003
005200
01

000001

8348 036536 000772
8350

036542

8354
8355

36
0365

006300

03655
ososzs

006300
300

700
012746

0641564
065530

CHPBUF: SAVREG
MOVB
MOV
MOV
CLR
JSR
ST

38:
48:

68:

3351 gus« 006300
ssg
8353

SEQ 0158

013701 005904
assg 036562
8357 036566 005737 057710

PATRN

BNE
MOV

3s
#PATO00,RO

B8R

MOV
MOV
BR
CLR
BIT
BNE
INC
ASR

ASL
ASL

ASL

006036
000020

#40,0M701+38.
#7,0F2542
WOSXFR,R2
SCRACH
PC,REPSUP

ASL
ASL

ADD
MOV

MoV
ST

#256.,-(SP)
#RWBUF ,R1
308
RO
#8170,R1
6
RO
R1

RO
RO

;SAVE RO=-RS
:RESTORE ERROR MSG PARAMS

;SET NO. OF WORDS
:CLEAR COMPARE ERROR COUNT
:STORE PREV CMND FOR POSS. PRINT

SSEE IF THIS IS QUICK VERIFY DEFAULT DATA TEST

:BR
IF NOT
*GET DATA PATTERN STARTING ADDR
:SET PATTERN WORD COUNT
:SET BUFFER ADDRESS
:PROCEED
“INIT PATTERN NO.
:SEE IF THIS BIT IS SET
:BR IF THIS BIT IS SET
- INCREMENT PATTERN uunsen
TSHIFT TO EXAMINE NEXT BIT

:BR TO CHECK NEXT BIT

‘MULTIPLY PATTERN NO. BY 32(DEC)

RO
RO

#PATO00,RO
6. ,-(SP)

PHA R
sk

:GET ADDRESS OF DESIRED PATTERN
:PATTERN WORD COUNT

*SET BUFFER ADDRESS
SSEE IF MEM MGT PRESENT

————

CZRGNED RK611/06 $S Vi Y2

CZR6NE .P11

26-JUN-80 10:48

MACY11 30A(1052)

036574
036602

013737
052737

003176
000001

8363
834

036614
0

052701
010003

140000

836
8367

0
&
036626

022321
001404

8371
8372

036644
036646

001405
737

8374

036660

005302

036610 042701

835 0

160000

17;356
177572

248

8368 0
013737 172354 001216
8369 036636
000432
8370 036640 032701 020000
25¢:
8375

036662

000200

020000

172354
268:

001002

8376 036664 000137 037330

8377
8378
8379
8380

036670
036672
036674

8382
8383

036700
036702

011604
022321

8227
71

0021 7
105037

8381

005304
001354
000751

27%:

036676 010003

303:

8384 036704 001002

gg:z

348
037310
064154

8388

8389 036724 010237 001202

8390 036730 163737 005564 001202
839
8393

036736

036744
036750

013737

004737
104407

001202

036040

31$:

036756
036762
036766

113701
113702
004737

005570
005571
042404

8399

0367764

032737

001000

8398

036772

104410

308

:BR IF NOT PRESENT

BIC

#160000, R1

*FORCE RELOCATION THRU KIPARS

MOV

(SP) R4

BIS
MoV

cmpP
BEQ

#140000,
R1
RO,R3

(R3)+,(R1)+
25%

#BITi3, M

BNE

27%

DEC

JMP

268
#200,3#x1PAR6

:BR IF NO OVERFLOW
:INCR PAR BY 4K FOR NEW PAGE

:DECREMENT WORD COUNTER

548

MOV

§ss:

005572

“BR IF COMPARE ERROR

MOV

#5,0F25+2

*ADJUST ERROR DATA WORD COUNT

mov

suB

R2,SREG10
WDSXFR,SREG10

:GET WORD NO.

JSR
SAVREG

PC,FINADR

:COMPUTE ACTUAL PACK ADRS
:SAVE RO-RS

JMP
CLRB

40%
DH701+38.

MOV

MOVE
MOVB
JSR

RESREG

FINCYL,RO
FINTRK.R1
FINSEC.R2
PC,BDSRCK

104117
000401
104034
012737
005037
005037

ERROR
BR
ERROR
MOV
CLR
CLR

8408
8409
8410
8411
wg
8413

106116

037036
037040
037042
037064
037052
037056

005474

$SREG10,LASTWC

CRMPLO, SREG6

370

BNE
TST
BNE
1STB
BEQ
MOV

003143

177777
001176
001200

:ALL DONE - GET OUT

318

BNE

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

MOV

840

;BR IF NOT ALL DONE YET

;GET COPY OF PATTERN ADDRESS

MOV

005534

005262

:SET PAGE = 6 AGAIN

RO,.R3

MOV
CMP

uog 337052 013737 005260 001176

00113;
005737
0010%4
105737
001411
013737

:COMPARE DATA WORD TO PATTERN WORD
:BR IF NO ERROR

BIC

BEQ
ADD

#BADSEC ,RECODE

037002
037004
037010
037012
037016
037020

SINIT PATTERN WORD COUNT

SIK1PARG,SREG16 :SET PAR FOR PRINTOUT
358
:GO MANDLE ERROR
#BIT13,R1
:SEE IF OVERFLOW TO NEXT PAGE

BIT

84
8401
0‘0;
8403
8404
8405

;GET A COPY OF PATTERN ADDRESS

MOV
BR
BIT

:COMMON COMPARE ERROR HANDLER

8394 036752 013700 005566
8395
8396
8397

BPL

SEQ 0159

DEC
R4
:DECREMENT PATTERN WORD COUNT
BNE
248
:BR IF NOT DONE WITH PATTERN YET
BR
22%
:BR TO REPEAT THE PATTERN
:COMPARE LOOP FOR NO MEM MGY STARTS HERE

8387 036716 012737 000005 065530
8391

D13
PAGE 161

:COMPARE LOOP FOR MEM MGT STARTS WERE
MoV
SAVPAR,3FKIPARS ;SET UP WORKING PAR
8IS
#8110, 34SRO
:TURN ON MEM MGT

22%:

ongoa

8373 036654 042701

10:53

CMPBUF = SOF TWARE COMPARE DATA

agss 036572 100041

8359
8360
8361

26-JUN=80

001174

ERROR

46%:
48%:

sINIT PATTERN WORD COUNT
:COMPARE DATA WORD TO PATTERN WORD
:JUMP IF DATA COMPARES OK
:ADJUST DATA HEADER FOR MSG

;GET 2°'S COMP OF WORD NO.

TGET CYL

1GET TRACK
:GET SECTOR
:SEE IF THIS SECTOR LISTED BAD

:RESTORE RO-RS

50%
SCRACH
36%
UBMPRS
L6%
CRMPHO ,SREGS

:BR IF LISTED- DON'T REPORT ERROR
:CHECK THE ERROR COUNT
:BR IF THIS IS NOT FIRST ERROR
sSEE IF UNIBUS MAP PRESENT
:BR IF NOT
:GET CURRENT MAP REG 0

116

:DATA MISCOMPARE (11/70)

117
488
34
#-1,3REGS
$REG6
$REG7

:TYPE HEADING FOR ERROR MSG
SINIT CYL NO.

..... -

e By

CIRONED RK611/06 3S ViY2

CZRONE .P11

26-JUN-80 10:48

8415 0%7

037062

005237

8416
8417
8418
8419
8420
8421
8422
8423
8426
8425
8426
8427
8428
8429
8430
8431
8432
8433
8434
8435
8436
8437
8438
8439
8440
8441

037074
037076
037104
037106
037114
037116
0371264
037126
037
037136
037144
037152
037160
037162
037166
037174
037202
037210
037214
037220
0372264
037232
037236
037244
037250
037 28

001004
022737
00;511
023737
001010
123737
001004
123737
001412
013737
113737
113737
104115
005437
016337
016137
013737
005037
006137
006137
063737
005537
063737
010137
162737
1060?3

8442
8443
8444
8445
8446
8447
8448
8449

8450
8451

8452
8453
8454
8455
8456
8457
8458
8459
g:g?

863

““

8465
8466
8467
8468
8469

037
037266
037270
0372764
037276
037302
037304
037310
037312
037314

037316
037320
037324
0373
037334
037336
037344
037346
037350

MACY11 30A(1052) 26=JUN-80 10:53 EPAGE 162
CMPBUF = SOF TWARE COMPARE DATA

032;;7 000001 142044

8414

032777
001020
005737
001405
005737
100002
000137
005302

005534

000012

005534

001174

005566

001176

005570

001200

005571

005566
005570
005571

001174
001176
001200

001202
177776
177776
001202
001210
001212
001210
005604
001210
005606
001214
000002

000100

001204
001206
001212

368:

38%:

42%:

44S:

001212

001210

001214

141652

005536

508:

057710
036640

40%:

001406
005304

001002
000137
000137
005737
100003
042737
005726
104410
000207

036676
036702
057710

000001

538:
548:

177572

568%:

BIT
INC

BNE
CMP
BLT
CMP
BNE
CMPB
BNE
CMPB
BEQ
MOV
MOove
MOovB
ERROR
NEG
MoV
MoV
MoV
CLR
ROL
ROL
ADD
ADC
ADD
MoV
sus
ERROR

BIT
BNE
TST
BEQ
TST
BPL
JMP
DEC
BEQ
DEC

BNE
JMP
JMP
TST
BPL
BIC
ST
RESREG
RTS

#8170,3SWR

;SEE_IF ALL ERRORS SHOULD BE REPORTED

SCRACH

; INCREMENT THE ERROR COUNT

38%
#10.,SCRACH
54%
SREGS,FINCYL
42%
$REG6,FINTRK
42%
SREG7,FINSEC
66%
FINCYL,SREGS
FINTRK,SREG6
F INSEC,SREG?
115
$REG10
-2(R3) ,$REG11
=2(R1) ,SREG12
SREG10,SREG14
SREG13
$REG14
$REGT3
PMA,SREG14
$REG13
PMA+2,SREG13
R1,$REG1S
#2,3REG1S
63

;BR _TO REPORT ALL ERRORS
;SEE IF 10(DEC) ERRORS YET
:BR_IF ERROR LIMIT EXCEEDED
;SEE IF DIFFERENT CYL
:BR IF YES
;SEE IF DIFFERENT TRACK
:BR _IF YES
;SEE IF DIFFERENT SECTOR
;BR_IF SAME PACK ADDRESS
:SET NEW PACK ADRS FOR PRINTOUT
sTYPE NEW PACK ADDRESS
sGET WORD NO.
;GET GOOD DATA
;GET BAD DATA
;COMPUTE PHYSICAL ADDRESS

;GET VIRT. ADRS FOR PRINTOUT

#BIT6,aSWR
549
PATRN
40%
$KT11
40%
25%
R2

;:TYPE GOOD AND BAD DATA, MEM. ADRS.
;SEE IF JUST 1 ERROR SHOULD BE REPORTED
;BR IF JUST 1 ERROR SHOULD BE REPORTED
;SEE IF DEFAULT DATA TEST
:BR _IF YES
;SEE IF MEM MGT PRESENT
:BR IF NOT PRESENT
;GO HANDLE MEM MGT
;DECREMENT WORD COUNTER

;SEE IF MEM MGT PRESENT
:BR IF NOT PRESENT
;:DISABLE MEM MGT
:POP THE STACK
;RESTORE RO-R5
;RETURN

549
R4
53%
308
348
KT
56%
#B170,3#SRO
(SP)+

:BR IF ALL DONE
;DECREMENT PATTERN WORD COUNT
;<R IF NOT DONE WITH PATTERN YET
:JUMP TO REPEAT THE PATTERN

;:'..t'.it'..."""""""'Q.'.l"'..".".""ltt"""t'l'i"

;* CTLOUT = THIS SUBROUTINE CHECKS FOR (*C) OR (*Z) TTY INPUI.
;*IF (*C) WAS TYPED, THE SUBROUTINE RETURNS TO DRVTST. IF (*1)
;*WAS TYPED, THE SUBROUTINE RETURNS TO INPUTP. IN EITHER CASE,
;*A RESET INSTRUCTION IS EXECUTED, AND THE STACK IS RE-INIT;*IALIZED. IF THERE IS NO INPUT, OR INPUT OTHER THAN (*C) OR (*2),

SEQ 0160

CIR6NED RK611/06 5SS ViY2
CIRO6NE.P11
26-JUN-80 10:48

F13

MACY11 30A(1052) 26=JUN-80 10:53 PAGE 163
CMPBUF = SOF TWARE COMPARE DATA

8470
8671
8472
M?S

037352

122737

000001

8476
8477
8478
8479
8480
8481

037362
037
037370
037374
037376
037404

005737
001474
105737
001446
122737
001033

005522

8483
8484
8485
8486
8487
8488
8489
8490
8491
8492
8493
8494
8495
8496
8497
8498
8499
8500
8501

037412
037416
037420
037424
037426
037432
037436
037442
037450
037454
037462
037466
037472
037474
037502
037504
037510
037512
037520

105737
001402
004737
000005
005037
005037
105037
012737
012706
112765
004737
005037
000110
122737
001016
012700
000740
122737
001007

003133

8475 037360 001077

8482

8502
8503
8504

037406

037522
037526

012700

104401
104401

037532

012700

037540
037546
037550
037554
037560

122737
001002
004737
004737
000207

8505 037536 000725
8506
8507
8508
8509
gg}?

003120

. 2R 2222222222322 22222232223222322232232223233233333323232332322323222222323]

CTLOUT: CMPB

BNE

003116
000003

005522

014374

2%:

032010
005522
001304
003134
044156
001100
000113
042510
001102

000032

000003

005522

12$:

007643
007613

TYPE
TYPE

046126

000007

031066
030536

005522

7%:
8%:
108:

#DRVTIST,RO

:SET RETURN ADDR = DRVTST

JHLTRQD
,CNTRDY

:TYPE "HALT REQUESTED''
:TYPE "PRESS CONT WHEN RDY''

:TAKE EXIT

#HLTPRG,RO

CMPB
BNE
JSR
JSR
RTS

#007,INTCHR
8%
PC,GTSWRG
PC,PREPKB
PC

*SEE IF ANY TTY INPUT
:BR IF NO INPUT
:SEE IF DEFAULT MODE RUN
‘BR IF YES
*SEE IF (*C) TYPED
:BR IF NOT (*C)

sSEE IF XXDP CURRENTLY OVERLAID
:BR IF NOT
:RESTORE SAVED XXDP, IF NECESSARY
:RESET ALL DEVICES
INTCHR
*CLEAR TTY CHAR BUFFER WORD
STIMES
:CLEAR THE ITER. COUNT
XDPSVD
:CLEAR THE XXDP SAVED FLAG
SERRHDL ,A.ABNL :RESTORE ERROR HANDLER ADDRESS
#STACK,SP
‘RESET THE STACK
#RECAL ,P.CMND(RS) ;SET RECAL COMMAND
PC,DRVCAL
:D0 CLEANUP RECALIBRATE
$STSTNM
:CLEAR THE TEST NO.
ar0
CEXIT FROM TESTS
#0322, INTCHR
SSEE IF (*2) TYPED
7
BR IF NOT (*2)
#INPUTP,RO
:SET RETURN ADDR = INPUTP
2%
:TAKE EXIT
#003,INTCHR
*SEE IF (*C) TYPED
7%
‘BR IF NOT

MOV

B8R

:BR IF NOT RUNNING TESTS

*SET HALT ADDRESS

*SEE IF (*G) TYPED
:BR IF NOT (*G)
sOPEN SOFTWARE SWR FOR MODIFICATION
:ENABLE KBD INPUT AGAIN
*RETURN

A L

L A

L AL AL Al A

"*WRTSEC - WRITE A BLOCK OF 400(OCT) WORDS ONTO DISK AND PERFORM
“«A WRITE CHECK. PARAMETER BLOCK MUST BE PRE-LOADED WITH PACK
-Ggggess DATA WORD 1S PASSED IN R3 ON ENTRY. RWBUF 1S THE BUFFER

8515
8516
gg};

8520

037562

104407

8522

037564

012700

037576

005301

HRTSEC SAVREG
065636

8523 037570 012701 000400
8524 037574 010320
8525

XOVLAD
68
PC,GETXDP

015754

8514

8521

TSTB
BEQ
JSR
RESET
CLR
CLR
CLRB
MOV
MOV
MOVB
JSR
CLR
JMP
CMPB
BNE
MOV
BR
CMPB
BNE

MOV

000001

&$:

:SEE IF CURRENTLY RUNNING TESTS

108

INTCHR
108
MDFLAG
128
#003, INTCHR
43

003046

005522

#1,TSTING

ST
BEQ
TSTB
BEQ
CMPB
BNE

68 :

8512
8513

8519

SEQ 0161

;*NO ACTION IS TAKEN.
i+ CALL =
JSR
PC,CTLOUT
;¢
OR =
CKEXIT

8474

:LOAD THE R/W BUFFER WITH DATA

4$:

L L L A

:SAVE RO-RS

MOV

‘auaur RO

:BUFFER ADDRESS

DEC

:DECR COUNTER

MOV
MOV

400,R1
R3, (RO)+

:400(0CT) WORDS
*LOAD A BUFFER WORD

LAl

CIZR6NEO RK611/706 3S ViY2
CZR6NE .P11
26=JUN-80 10:48

8526

8527
8528

6 13
MACY11 30A(1052) 26=-JUN-B0 10:53 PAGE 164
CMPBUF = SOF TWARE COMPARE DATA

037600

001375

037602

012765

065636

000010

sSET UP PARAMETERS
MOV
#RWBUF ,P.BALOCRS)

037616

112765

000123

000001

JWRITE THE DATA
MOvB
#WURDATA,P.CMND(RS) ;SET WRITE COMMAND

037632
037634

001002
004737

037640
037646
037652
037654

112765
004737
104410
000207

8529 037610 012765 177400 000012

8530
8531

8532 037624 032777 000002
8533
8534
8535
8536
8537
8538
8539
8540
8541
8542

141306

042510

000131
042510

000001

8543

037656
037660
037662
037666
03767

8555
8556

037676
037702

037672

8558

037712

8562

037732

8569

8570
8571

8572

8573
85764
8575
8576
8577

8578

8579

MOV

#-400,P.WC(RS)

;SET WORD COUNT

BIT

#BI1T1,3SuWR

:SEE IF WRITES INMIBITED

;SET BUS ADDRESS

BNE
6%
:BR IF YES
JSR
PC,DRVCAL
:WRITE THE DATA
:PERFORM WRITE CHECK
6%:
MOvVB
#URTCHK ,P.CMND(RS) ;SET WRITE CHECK COMMAND
JSR
PC,DRVCAL
;PERFORM WRITE CHECK
RESREG
:RESTORE RO=RS
RTS
PC
sRETURN

L e

TA
L ARl

104407
005004
012703
000403
104407

000001

013702
013701

005564
005604

012704

LDMEM1: SAVREG
CLR
MOV
BR

LDMEM2: SAVREG
MOV
LDMO:
MOV
MOV

177777

8557 037706 005737 057710

8563
8564
8565
566
8567
8568

:BR IF NOT DONE YET

;*MUST BE IN WDSXFR.

8549
8550
8551
8552
8553

8559
8560
8561

[3)

:*LDMEM1 = LOAD MEMORY WiTH INCREASING NUMBERS, STARTING WITH 1.
:*LDMEM2 = LOAD MEMORY WITH REPEATED WORD, IN R3 ON ENTRY.
:*BOTH SUBROUTINES REQUIRE MEMORY ADDRESS IN PMA, PMA+2, AND WORD COUNT

8547

8554

BNE

8544
8545
8546

8548

SEQ 0162

100012

037714
037720
037724

042701
052701
013737

037740
037742
037744
037746
037750
037754

010321
005704
001001
005203
005737
100010

037756

037762
0377

052737

032701

001405
062737

160000
140000
003176

000001

040016

040020

005302
001357
005737
100003
042737

104410

000207

BIC
BIS
MOV

172354

177572

6%:

8%:

057710

020000
000200

037772 042701 020000

037776
04
040002
04
040010

TST

BPL

MOV
TST
BNE
INC
TST
BPL

BIT

BEQ
ADD

172354

108:

057710
000001

BIS

177572

12%:

BIC

DEC
BNE
1ST
BPL
BIC

RESREG

RTS

R4
" ,R?
LDMO

:SAVE RO-RS
:R4=0 INDICATES LDMEMI
:INIT DATA WORD TO 1
sPROCEED

WDSXFR,R2
PMA,R1

: SAVE Rg-RS
:R4=177777 INDICATES LDMEMZ2
;GET NO. OF WORDS
sGET MEM ADRS

:BR IF NOT

#-1,R4

$KTi1

*SEE IF MEM MGT

#160000,R1
:FORCE RELOCATION THRU PAR6
#140000,R1
SAVPAR,3#KIPAR6 ;INIT PARG

#B8170,3#SRO

sTURN ON MEM MGT

R3,(R1)+
R4
8%
R3
kT
10%

sLOAD A WORD INTO BUFFER
:SEE WHICH DATA DESIRED
:BR IF NOT INCREMENTING DATA
:INCREMENT THE DATA
sSEE IF MEM MGT
:BR IF NOT

108
#200,3#K IPARG

:BR IF NO OVERFLOW
sINCR PAR BY 4K FOR NEW PAGE

#BITI13. R

#B1T13,R1

ke
6%
K111
12%
#8170,3#SR0
PC

+SEE IF OVERFLOW TO NEXT PAGE

:SET PAGE = 6 AGAIN

sDECREMENT COUNTER
:BR IF NOT DONE LOADING YET
sSEE IF MEM MGT
:BR IF NOT
sTURN OFF MEM MGT
RESTORE RO-RS
:RETURN

CZRONED RK611/06 35 ViY2

CZR6NE .P11

26-JUN-80 10:48

MACY11 30A(1052)

8583

8584
8585
8586
8587
8588
8589
8590

8591

040022

8593
8594
8595
8596
8597
8598
8599
8600
8601
8602
8603
8604
8605
8606
8607
8608
8609

040026
040032
040034
040036
040042
040046
040052
040056
04
040072
040076
040102
040104
040110
040114
040122
0401

8592

040026

104407

005004

012703
000403
104407
012704
013702
013701
005037
112737
012737
004737
005737
100012
042701
052701
013737
052737
0203;1

8613
8614
8615
8616
8617
8618
8619
8620

040134
040140
040146
040154

8621

040160
040162
040166
040172
040176
040202

8623
8626

040212
040214

‘625

8625
8626

8627
8628
86
86
8631
‘63;
863
8634
8635

8636

8637

040220
040222

010237
163737
013737
004737

104407
013700
113701
113702
004737

104410

032737

001145
005737

100406
105037

0‘0222
040234
060236
0244
0250
060252
0228
82
266

012737
000403
013737

040276

104117

040274

005737
0010;‘
105737
001411
813737
013737

104116

10:53

PAGE 165

SEQ 0163
R R

‘

it L

;*CKMEM1 - PERFORM SOF TWARE COMPARE OF MEMORY, WITH INCREASING
:*NUMBERS, STARTING WITH 1.
;*CKMEM2 - PERFORM SOF TWARE COMPARE OF MEMORY, WITH REPEATED DATA JORD
;*IN R3 ON ENTRY,
;*BOTH SUBROUTINES REQUIRE MEM ADRS IN PMA, PMA+2, AND WORD COUNT MUST BE
:*IN WDSXFR.
R LL
LT
L

CKMEM1: SAVREG

CLR

000001

177777
005564
005604
005534
000040
000007
043676
057710
160000
140000
003176
000001

064154
065530

172354
177572

8610 040132 001575

8611
8612

26=JUN=-80

CMPBUF = SOF TWARE COMPARE DATA

MOV
BR
(KMEM2: SAVREG
MOV
CkMO:
MOV
MoV
CLR
Move
MoV
JSR
TST
BPL
BIC
BIS
MoV
BIS
6$:
CMP

BEQ

001202
005564
001202
036040

001202
005572

172354
005534

005474

003143

005262

005260

001174

001176

168

WDSXFR,SREG10
SREG10,LASTWC
PC,FINADR

BIT

#BADSEC,RECODE

BNE
ST

8$%:
9s:

FINCYL,RO
FINTRK,R1
FINSEC,R2
PC,BDSRCK

: SAVE RO=R5

:R4=0 INDICATES CKMEM1

;INIT DATA TO 1
:PROCEED
: SAVE_RO=R5
;R4=177777 INDICATES CKMEM?
:GET NO. OF WORDS
;:GET MEM ADRS
;RESTORE ERROR MSG PARAMS

;STORE PREV CMND FOR POSS. PRINT
sSEE IF MEM MGT
:BR IF NOT
;FORCE RELOCATION THRU PAR6
;INIT PARG
;:TURN ON MEM MGT
:COMPARE A DATA WORD

:BR IF DATA COMPARES OK
:GET WORD NO.

;GET 2'S COMP OF WORD NO.
:COMPUTE ACTUAL PACK ADRS
: SAVE RO-R5
;GET CYL
;GET TRACK
:GET SECTOR
;SEE IF THIS SECTOR LISTED BAD
;RESTORE RO-R5

MOV
BR
MoV

16%
;BR IF LISTED- DON'T REPORT ERROR
sk
;SEE IF MEM MGT
8s
:BR IF YES
DH701+38.
;ADJUST DATA HEADER FOR MSG
sADJ. ERROR DATA WORD COUNT
#5,0F25+2
9
SF/KIPARG ,SREG16 ;SET PAR FOR PRINTOUT

MOV

CRMPLO,SREG6

BMI
CLRB

065530
001216

#-1,R6
WDSXFR,R2
PMA,R1
SCRACH
#40,DH701+38.
#7,0F25+2
PC,REPSUP
$KT11
6$
#160000,R1
#140000,
R1
SAVPAR ,@#KIPARG
#B170,a#SRO
R3, (R1)¢

sus
MOV
JSR
SAVREG
MOV
MOvVB
Move
JSR

RESREG

057710

064154
000005

#1,R3
CKkMo

;COMPARE ERROR HANDLER
MoV
R2,$REG10

005566
005570
005571
042404
001000

ST
BNE
1ST8
BEQ
MOV

ERROR

SCRACH
10%
UBMPRS
17%
CRMPHO , SREGS

;SEE IF FIRST ERROR IN THIS BLOCK
:BR _IF NOT FIRST ERROR
;SEE_IF UNIBUS MAP PRESENT
:BR _IF NOT
:CURRENT UB MAP REG 0

116

;DATA MISCOMPARE (11/70)

117

RN —
NNVOONO
S YNNSNONDNNN
b L L N =2 N O W = L =5 N
NNNNNES
WVININ NSNS NO NN

= T

S8R8R85888
NIVIAWVN
&~

OO SO
=
-t
2
ONON
=
-

4N N = N =

040300
040302
040304
040312
040316
0403
0403
040
040336
040344
0460346
040354
040356
040364

$ Nuwvnuro

CIR6NED RK611/06 S ViY2
26=JUN-80 10:48
CZRONE .P1

113
MACY11 30A(1052)
26=JUN-B0 10:53 PAGE 166
CMPBUF = SOF TWARE COMPARE DATA

177777

001174

000001

140604

000012

005534

001174

005566

001176

005570

001200

005571
001174
001176
001200

17%:
118%:
108:

128%:

BR
ERROR
MOV
CLR
(LR
INC
BIT
BNE
CMP

CMPB
BEQ
MoV

11%
34
#-1,3REGS
$REG6
SREG7
SCRACH
#B1T0,aSWR
12%
#10.,SCRACH
21%
$REGS ,FINCYL
148
SREG6,FINTRK
148
SREG7,F INSEC
15%
FINCYL,SREGS

Move
ERROR
NEG
MoV
MOV
MOV

FINSEC,SREG?
115
$REG10
R3,SREG11
-2(R1) ,$REG12
$REG10,SREG14

ROL
ROL

$REG14
$REG13

ADC
ADD
MoV

SREG13
PMA+2,$REG13
R1,8REG15

BLTY
CMP
BNE

CMPB
BNE

14%:

15%:

001206
001212

Move

CLR

001212

ADD

001210
001214
1640414

FINTRK,SREG6

SREG13

NONWNNNIN
= YN =O~N

gzissssserenss

LYY
N-‘bgflflbfl
-~
O
=N
HOWHO
OO WO
O -

(=T
b
-

SESEERERERERELS

057710

18%:

020000
000200
020000

SuB
ERROR
BIT
BNE

#2,3REG1S
63
#BIT6,aSWR
1%

BNE
INC

18%
R3

208:

040130
057710
000001

21%:
177572

22%:

; INCREMENT THE ERROR COUNT
;SEE _IF ALL ERRORS SHOULD BE REPORTED
:BR TO REPORT ALL ERRORS
;SEE IF 10(DEC) ERRORS YET
:BR_IF ERROR LIMIT EXCEEDED
sSEE IF DIFFERENT CYL
:BR IF YES

;SEE IF DIFFERENT TRACK
:BR IF YES
;SEE IF DIFFERENT SECTOR
:BR _IF SAME PACK ADDRESS
;SET NEW PACK ADR FOR PRINTOUT
;TYPE NEW PACK ADRS

;GET WORD NO.
;GOOD DATA
:BAD DATA

;COMPUTE PHYSICAL ADDRESS

;GET VIRT ADRS FOR PRINTOUT
:TYPE GOOD AND BAD DATA
;SEE IF JUST 1 ERROR SHOULD BE REPORTED
:BR IF JUST 1

BIC
DEC
BEQ
JMP

#BITI3,R1
R2
21%
6%

BPL
BIC

22%
#B170,3#SRO

;SEE WHICH DATA DESIRED
:BR IF NOT INCREASING DATA
: INCREMENT THE DATA WORD
;SEE IF MEM MGT
:BR_IF NOT
;SEE IF OVERFLOW TO NEXT PAGE
:BR IF NO OVERFLOW
:INCR. PAR BY 4K FOR NEW PAGE
:SET PAGE = 6 AGAIN
;DECR_COUNTER
:BR IF DONE COMPARING
;CONTINUE COMPARING WORDS
;SEE IF MEM MGT PRESENT
:BR_IF NOT
;TURN OFF MEM MGT

;RETURN

TST

BPL
BIT
BEQ
ADD

172354

;INIT CYL NO.

PMA,SREG14

;PROCEED WITH COMPARISONS
168:
TST
R4

005203

;TYPE HEADING FOR ERROR MSG

TST

RESREG
RTS

$KT11

20%
#BIT13,M
20%

#200,3#KIPARG

$KT11

;RESTORE RO-RS

SEQ 0164

CIR6NEO RK611/06 SS ViY2
CZR6NE .P11
26=-JUN-80 10:48

J 13
MACY11 30A(1052) 26=JUN-B0 10:53 PAGE 167
CMPBUF = SOF TWARE COMPARE DATA

8694

T
A
e R R L it L

8695

s*SETUPM = SUBROUTINE TO INIT PARAMS FOR NPR/MEMORY TESTS.

8696

8697 040612 013765 005660 000002

8698
8699
8700
8701
8702
8703
8704
8705
8706
8707
8708
8709
g;}?

SEQ 0165

040620
0606§2
0406
040642
040644
040652
04
040664
040666
040674
040702
040710
040714

113765
113765
023737
003403
013765
012737
005737
001003
062737
042737
062737
005037
000207

005506
005664
005660

000004
000005
017776

017776
065636
000170

000002
005600

006000
003777
004000
005602

005600
005600
005600

8712
8713
8714

SETUPM: MOV

2%:

&$:

MOVB
MOVB
CMP
BLE
MOV
MOV
1ST
BNE
ADD
BIC
ADD
CLR
RTS

FC.P.CYLN(RS)

FS,P.SECT(RS)
FT.P.TRCK(RS)
FC LClb
23
LCM6,P.CYLNCRS)
#RWBUF ,MA
KILLDR
43
#6000,MA
#3777
WA
#4000,MA
MA+2
PC

8715

;SET CYL

L TR L R

TL T T

sSET SECTOR
:SET TRACK
SEE IF CYL SHOULD BE SCALED DOWN
:BR IF NOT
;SCALE DOWN THE CYLINDER
:GET MEMORY ADDRESS
:SEE IF LOADER CAN BE OVERLAYED
:BR IF YES
;LEAVE ROOM TO SAVE LOADER

sRETURN

LAl

' REFNEM = THIS SUBROUTINE PERFORMS A SUBSYSTEM COMMAND, WHILE

8716

'REPEATEDLY REFERENCING A NON-EXISTENT MEMORY LOCATION (760000) THIS

8718
8719
8720
8721

'NPR S, SINCE THE BUS IS SIEZED FOR 5-20 USEC AT EACH NEM TIME-OUT.
'ALL DRIVER PARAMETERS (INCLUDING THE COMMAND) MUST BE SET IN THE
'PARMEYER BLOCK ON ENTRY, AND R3 MUST CONTAIN THE TIMING CONSTANT
'UHICN REGULATES THE EREQUENCV OF NEM REFERENCES, WHILE WAITING FOR

8717

;*]IS DONE FOR THE PURPOSE OF CAUSING UNIBUS CONTENTION DURING DISK

8722

'COMAND COMPLETION.

8723

8724

8725

8726
8727
8728

'-ttn"o.nnnntnn.'nn'n"nntn.on-ntnnnnnnn-

040716

040722
040726
040732

004737

105037
004737
010537

REFNEH

037352

8735

739

8737
8738
739

040744
040750
040752
040756
040762

004737
000000
004737
105737
001012

0407

001402

040764

040770
040772
0407764

005737

8740 041000 104111

87641
874
874
8744
g;:s
74

748

8749

041002
0610064
041006
041010
061016

000401
022626
000761
012737
000207

:CHECK FOR (*C) OR (*Z) KBD INPUT

MOV

'263.3‘ERRVEC

sSET TIME-OUT VECTOR ADDRESS

052562

JSR
.WORD
JSR
TST8
BNE

4$:

047132
003123

6%:

010304

005304
001376

PC,CTLOUT

CLRB
JSR
MOV

8729 040736 012737 041004 000004
8730
8731
8732
8733

JSR

003123
042570
040750

MOV
108:
160000

000006

12%:

000004

208%:
22%:
26%:

BEQ

DEC
BNE

18T

ERROR

BR
CMP
BR
MOV
RTS

DONE
PC,STRCMD
RS,48

PC,C.INIT

sCLEAR THE DONE FLAG
:STORE PREV AND CURRENT COMMANDS
sSET PARAM BLK ADDRESS

sCALL DRIVER

PC,W.WTCH
DONE
26%

sCALL WATCH DOG
;DONE SET ?
:BR IF YES

12%

BR IF TIMER = 0

R3,R4

RéG
108

84160000

22%
(SP)+,(SP)+
6%
#6,9FERRVEC
PC

:GET COPY OF R3

DECRE*N' TIMER
BR IF NOT DONE TIMING

REFERENCE NON-EXISTENT MEMORY

'm NEM WHEN EXPECTED'

sRESTORE THE STACK
KEEP WAITING FOR COMMAND COMPLETION
sRESTORE TIME-OUT VECTOR
:REYURN

L LT
A L L L LR
L
L

;*INCRMA = INCREMENT MA BY WORD COUNT IN P.WC(RS).

———
—

CZR6NED RK611/06 55 ViY2
CZR6NE .PT
26=JUN-B0 10:48
8750
8751
8752
8753
8754
8755
8756
8757
8758
8759
8760
8761
8762
8763
8764
8765

8766
8767
8768
8769
8770
8N

041020
041022
0410264
041030
041032
041034
041036
041040
041042
041044
041046
041052
041056
041062
041064

104407
005001
016500
001002
005201
000401
005400
000241
006100
006101
060037
005537
060137
104410
000207

CLR

000012

A ¥
6%:

005600
005602
005602

MOV
BNE
INC
BR
NEG
CLC
ROL
ROL
ADD

ADC
ADD
RESREG
RTS

:SAVE RO=RS

P.WC(RS) RO

;GET WORD COUNT

;SET Wl BIT

4“8

6%
RO

RO
R1

:BR IF NOT 65,536(DEC)
: CONT INUE
:GET TRUE WORD COUNT

:DOUBLE THE WORD COUNT TO GET BYTES

RO,MA
MA+2
R1,MA+2

sADD IT TO COMPUTE NEW MA

sRETURN

:RESTORE RO-RS

;*REDBSF = READ FACTORY BSF INTO BSFACT, AND READ SOF TWARE BSF
;*INTO BSSOFT.

:;"t'.'."QI.'O".Q'."""""'.Q'.'.Q'....Q'Q'Q.""Q.."'QQ.'

041066
041072
041100
8:1106
11146
041122
0611%6
041132
041134
041140
041142
041150
041156
0‘11?4
041170
041174
041
041
041210
041214

004737
142765
112765
013765
112765
012703
105737
1403
105265
005203
012765
012765
012737
105037
004737
105737
001413
032765
126503
001360

8795
379?
797

g:l
1% 4
041

1041
0001
018765

8801
880
880
gggg

INCRMA: SAVREG -

;:..QQ..".'QQ""""""""""..'l'..Q""".".'Q"'Q.'Q.'Q'

8774
8775
8776
8777
8778
8779
8780
8781
8782
8783
8784
8785
8786
8787
8788
8789
8790
8791
8792
8793

8798
8799
8800

SEQ 0166

‘;'Q"'.Q."""'""""""'"'.'.."".'Q""C'Q.""'...'t"'

8773 04106

8794

K13
MACY11 30A(1052)
26=JUN-80 10:53 PAGE 168
CMPBUF = SOF TWARE COMPARE DATA

0‘1;13

8:1
04124
8:1 6’

125
8:1 5%
1260
061g9$
041

004737

110365
01;7%;
105737
80160§
01 7g
012737
10 0;7
004737

032250
00002
000121
02
02
000012
003125

REDBSF:

000002
000005

1ST8

BEQ
INCB

000004
177400
004224
041332
003140
042510
003140

000012
000010
003046

000002
000004

000004

043676
046126
003224

000004
00005?
0031
0000;3
041332
003140
042510

JSR
8i(B
MOve
MOV
MOVB
MOV

6%:

8s%:

108:

000010

003046

12%:

14%:

PC,INITSS

;INIT THE S.S

#8.CFMT,P.CSTH(RS)

#RODATA.P.CMND(RS)

LSTCYL r.cv§u<a5)

sSET 22 SECTOR FMT

:SET READ DATA COMMAND

:SET

CYL = 632/1456

#2,P.TRCK(RS)
0. .83

:SET TRACK =
:SET FACTORY BSF SECTOR LIMIT

113

:BR IF 22 SECTORS

FORMAT

P§SEC1(RS)
R

#-400,P.WC(RS)

*SET STARTING FACTORY BSF SECTOR NO.
:SET WORD COUNT FOR 1 SECTOR

#BSFACT.P.BALO(RS) ;SET BA FOR FACTORY BSF

#BDSCHD ,A.ABNL ;SET ERROR HANDLER FOR BSF READ
WCEFLG
;INIT THE ERROR FLAG
PC,DRVCAL
sREAD THE FACTORY BSF
WCEFLG
:SEE IF ANY ERRORS
128
:BR_IF NOT
#2,P.SECT(RS)
;CHECK NEXT SECTOR
;SEE IF LIMIT EXCEEDED YET
,RS
P.SECT(RS)

8s
PC,REPSUP

:BR IF NOT YET
:GATHER STATUS FOR PRINTOUT

HL TPRG

“MALT= CAN'T PROCEED

120

:ABORTING= BAD BSF READ

ogssort.v.aALO(at) SET BA FOR SOF TWARE RECORD
R P.SSCY(IS)
;Sef graatxuc SECTOR NO.
SET 22 §SC'°' LINIT
#22. R
FORMAT
148
9. .83

:SEE IF 22 SECTOR FORMAT
:BR IF YES
“SET 20 SECTOR LIMIT

WCEFLG
PC,DRVCAL

;INIT THE ERROR FLAG
‘READ THE SOF TWARE BSF

#BDSCHD, A.ABNL ;SET ERROR MANDLER FOR BSF READ

S———

—_—

CIR6NED Rk611/06 35S ViY2

CZR6NE .P11

26=JUN=-B0 10:48

8806

041276

8808

041

8810
8811
8812
gg}z

041316
041320
041322
041330

105737

003140

2765

000002

8807 ouioz 001407

8809 041312 1 gsos 000004

8815
8816
8817
8818
8819
8820
gg%;

041332
041340
041342
041346
0641352

003760
000736
012737
000207

032765
001002
000137
105237
000137

044156

130600
044156
003140
046334

8823
8824
“25

8834
8835
8836

041
041372
041376

104401
104401
104401

8839

041410

8833 8:1

8848
8849
8850
8851

8852

8853
8854
8855

003046

000034

BEQ

TSTB

WCEFLG

:SEE IF ANY ERRORS

ADD

168

#2,P.SECT(RS)

;CHECK NEXT SECTOR

BLE
BR
MOV
RTS

148
108
#ERRMDL ,A.ABNL
PC

:BR IF NOT YET
:REPORT ERROR AND ABORT
;RESTORE ERROR MANDLER ADRS
sRETURN

(MPB

16%:

P.SECT(RS),RS

2 012700 004234

041402
041406

041412
041416
061420
omgg
041430
061432
omfi

041414

0414
041442
041444
041446

104401
005001

011123
011150
063721
001315

005710

100007
001032
104401 011170
104401 001315
000425
012046
104402

013252

041450 010346

041452
041454
06162g

104402
104401
11100

013252

3%:
(%:

8%:

MOV

#BSFACT+10,R0O

TYPE
CLR

,SCRLF
R1

B8PL
ST
BNE
TYPE
TYPE
BR
MOV
TYPOC

13
R1
148
LNOFALS
$CRLF
fas

MOV

R3,-(SP)

TYPE
TYPE
TYPE
TST

TYPE
MOV
CLRB
SWAB

TYPOC
TYPE
MOVB

STYPE 'FACTORY
:TYPE "BAD SECTORS''
:TYPE
"'CYLNDR TRACK

(RO)

:INIT LIMIT COUNTER
:SEE IF A SECTOR LISTED HERE

(RO)+,~-(SP)

LSPACE2
(RO) ,R3
R3
R3

.SPACE2
(RO) ,R3

R3,-(SP)

% 38 omgg 104401

001315

TYPE

. SCRLF

8861 061476 020127 000176

CMP

8359
8360

8:“

16466

8:16
1476

1046402

005720
005201

TYPOC

TST
INC

;ADRS OF DATA IN FACTORY BSF

,FACTBS
,BDSECT
,DH6041

MOV

885

;SEE IF LIMIT EXCEEDED YET

;:tttt.tt"..t."'"'t""t""'t'tttt."'.'ttt'tt."'."".ttt"
TYPBSF: SAVREG
:SAVE RO-RS
CLR
R4
sINIT BSF FILE INDICATOR

005701

104401
011003
105003
000303

010346

:BR IF NOT

:*THIS IS THE ABNORMAL DRIVER RETURN WHICH IS USED TO MANDLE
:*POSSIBLE ERRORS IN READING BAD SECTORS.
ENSCHD: BIT
#BSE'MVRC'DTE'OPI'DCK,P.ER(RS) :SEE IF ANY READ ERRORS
BNE
1
:BR IF A READ ERROR OCCURRED
JMP
ERRHDL
:GO HANDLE OTHER ERROR
48:
INCB
WCEFLG
*SET ERROR FLAG
JMP
RE TNML
:TAKE NORMAL DRIVER RETURN

X ]

104407
005004

8840
8842
8843
8844
8845
8846
8847

000004

SEQ 0167

:'513;EDSSEPARATELV. IN A TABLE OF OCTAL VALUES, FOR EACH OF THE

041356
041360

8841

CMPBUF = SOF TWARE COMPARE DATA

:*TYPBSF = TYPE FACTORY AND SOFTWARE BAD SECTOR FILES (BSF'S)
:*WITH THE CYLINDER, TRACK, AND SECTOR NO. OF EACH BAD SECTOR

8831
8832

8837
8838

MACY11 30A(1052) 26=JUN-80 10:53 LPAGE 169

;;'ttt't'.tt""'tt"""'t""'.Q.ti'Q'Qtt"t."""'t..t't'.'Q'

8826
8827

:g%g
“30

—

(RO)+
R1

R1,#126.

SECTOR''

:BR IF YES
SSEE IF FILE IS EMPTY
:BR IF NOT EMPTY
:TYPE ''NONE''
STYPE <CR>,<LF>
;GET A CYL NO.

STYPE IT

:TYPE SEPARATORS
:GET TRACK AND SECTOR

;GET THE TRACK NO.

;TYPE 1T
:TYPE SEPARATORS
:GET SECTOR NO.
JTYPE IV

;INCR THE POINTER
sINCR THE COUNTER

SSEE IF LIMIT REACHED IN THIS FILE

CZRONED RK611/06 3S ViY2
CZRONE.P1N
26-JUN-80 10:48
8862
8863
8864
8865
8866
8867
8868
8869
8870
8871
8872
8873
8874
8875

8876
8877

8878
8879
8880
8881
8882
8883
8884
8885
8886
8887
8888
8380
8890
8891
8892
8893
8894
8895
8896
8897
8898
8899
8900
8901
8902
8903
8904
8905
8906
8907
8908
8909

8910
8911
8912
8913
8914
8915
8916
8917

041502
041504
041308
041510
041512
041516
041522
041524
041526

002742
005704
001006
005204
012700
104401
000725
104410
000207

MACYN 32 A(1052)

26-JUN-B0

10:53

ni13
PAGE 170

MPBUF - SOF TWARE COMPARE DATA

BLT

148:

TST

188

BNE

INC

003234
011136

MOV

TYPE

188:

#BSSOFT+10,R0
SOF T8S

RTS

RESREG

;BR_IF NOT YET
;SEE IF BOTH FILES TYPED YET
:BR_IF YES
;SET INDICATOR FOR SOFT. FILE
;ADRS OF DATA IN SOF TWARE BSF

;TYPE ''SOF TWARE BAD SECTORS :"'
;GO TYPE SOFT. BSF
;RESTORE RO-RS
sRETURN

;:Q"'t'.t.""Q."'.""""""'."'.'.Q"'t""t'Ql'.t""'i't

;*FINMEM - COMPUTE NO. OF WORDS XFERRED ON PARTIAL XFER
;*(TERMINATED BY BSE ERROR), AND STORE IT IN WDSXFR.
AR

041530
041532
041536
041542
041546
041550
041554
041556
041562
041564
041570
01572
041576
041600
041602
041604
041610
041612

104407
016500
116501
116502
005003
026500
001006
126501
001003
126502
001404
005203
004737
000763
000303
010337
104410
000207

000002
000005
000004
000030

FINMEM: SAVREG

6$:

000027

000026
041614

005564

R AR RN RN NN RN RN

8%:
128:

RN NNRAANNARANEARROARANRAARA
ORI NS

MOV
MOVB
Mmove
CLR
CMP
BNE
CMPB
BNE
CMPB
BEQ
INC

P.CYLN(RS)
,RO
,R1
P.TRCK(RS)
P.SECT(RS)
,R2
R3
P.DCYL(RS),RO
8%
R
P.DTS+1(RS)
8s
P.DTS(RS),R2
12%
R3

BR
SWAB
MOV

6%
R3
R3,WDSXFR

JSR

RESREG
RTS

PC,INCRSC

:SAVE RO-R5
sGET ORIG. CYL NO.
;GET TRACK NO.
:SECTOR NO.
sINIT SECTOR COUNT TO 0
;COMPARE ORIG. AND CURRENT CYLS
:BR IF NOT EQUAL
: COMPARE TRACKS
:BR IF NOT EQUAL
:COMPARE SECTORS
:BR _IF ADRS ARE EQUAL
: INCR SECTOR COUNT
: INCR PACK ADRS BY 1 SECTOR
;GO COMPARE ADDRESSES
;COMPUTE NO. OF WORDS XFERRED
;STORE IT
;RESTORE RO-R5
:RETURN

:'..'tttt't't.t'i"'i'ti"""""'i.'...t"'l..tlttti'i...'.t"'

;*INCRSC = INCREMENT PACK ADDRESS TO NEXT SECTOR

s*THE CYLINDER IS PASSED AND RETURNED IN RO, TRACK IN R1, AND SECTOR
:*IN R2.

s ARARRRRRARERERRARERERERONOEROROARNARNARANAARAARNAAAARRCAORREROERRRES

041614
041620
041624
Qalées
041632
041634
041636
041640
Qatesz
041644
041650
041652
Q41654
041656

012704
105737
001402
O1270¢
005202
020204
003407
005002
003201
020127
003402
005001
005200
000207

000025
003125

000023

INCRSC: MOV

#21. R4

BEQ
MOV
INC
CMP
BLE
CLR
INC
CMP
BLE
CLR
INC
RTS

4%
#19..R4
R2
R2.R4
6%
R2
R1
R1,#2
6%
®1
RO
PC

TSTB

4$:

000002

6%:

FORMAT

;SET SECTOR LIMIT
;SEE IF 22 SECTOR FORMAT
:BR _IF YES
+SET SECTOR LIMIT
: INCR., SECTOR NO.
sSEE IF SECTOR LIMIT EXCEEDED
:BR_IF NOT
;SET SECTOR = 0
:INCR. TRACK NO.
;SEE IF TRACK LIMIT EXCEEDED
:BR_IF NOT
;SET TRACK = 0
: INCR. CYLINDER NO.
+RETURN

SEQ 0168

CZRONED RK611/06 3S ViY2
CZRONE .P1
26=JUN-80 10:48
8918
8919
8920
8921
8922
8923
8924
8925
8926

AR A A

Rttt}

PDATE SUBROUTINE
;*THIS SUBROUTINE UPDATES PMA,PMA+2 MEM MGT REGS,UNIBUS MAP,P.BALO(RS),

:*P.BAHI(R5), AND P.WC(RS), IN PREPARATION TO RESUME A TRANSFER
s*TERMINATED BY A BAD SECTOR ERROR (BSE).
041660
041662
041666
041672
041676
041702
041706
041712
041716
041722
041726
041732
041736
041740
041742
041744
041750
041754
821760

104407
004737 041530
016500 - 000
116501
116502
004737
010065
110165
110265
013703
062703
060365
005004
006103
000104
060337
005537
060437
81;7 5

8947
8948
8949
8950
8951
8952
8953
8954
8955
8956
8957
8958
8959

041772
041776
042002
042006
042010
042014
042016

042700
150065
005737
100002
004737
104410
000207

1766

0137

AR A

MIDXFR: SAVREG

031606

WDSXFR,R3

#400,R$

R3,P.WC(RS)
R4

104407
012700
012701
016537
5437
1%737
037
005737
001414
13737

R4 ,PMA+2
::A.P.BALO(RS)

A+2 RO

77774 ,R0

RO,P.BAHI (RS)

$kT11
168

8973

104407

04 005
0421

042102

13737
05

SVPRMS: SAVREG
MOV
MoV
MOV
NEG
MOV
CLR
TST

00
02

005604
005606

Izt

sUPDATE CYLINDER

sUPDATE TRACK
sUPDATE SECTOR
sGET NO. OF WORDS XFERRED
sSKIP BAD SECTOR
sUPDATE P.WC(RS)
sGET BYTES XFERRED

;UPDATE P.BALO(RS)
:UPDATE P.BAHI(R5)
+SEE IF MEM MGT
;UPDATE MEM MGT AND UNIBUS MAP
;RESTORE RO-RS

PC,PREPAR

RTS

AL AR A

s INCREMENT PACK ADRS TO NEXT SECTOR

sRETURN

s*SVPRMS = SAVE INITIAL PARAMETERS FOR TRANSFER
;*GTPRMS = RESTORE SAVED TRANSFER PARAMETERS

042020
0462022
042026
042032
8965 04204
042044
896
‘8: 52
8
823
8969
8970 04 0?6

:SAVE RO=RS
sCOMPUTE NO. OF WORDS XFERRED
sGET CYL NO.
:GET TRACK NO.
sGET SECTOR NO.

sUPDATE PMA,PMA+2

BIC
Bls8
TST
BPL
JSR
RESREG

PC, INCRSC
RO.P.CYLNCRS
RS)
R1.P.TRCK(RS
RS)
R2.P.SECT(RS
RS)

ROL
ROL
ADD
ADC
ADD
MOV
MoV

168:

P.DTS(RS)
,R2

CLR

000007
057710

P.DCYL(RS),RO
P.DTS+1(RS) ,R1

MOV
MOVB
MOVB
MOV
ADD
ADD

000010

PC,FINMEN

JSR
MoV
Move
mMove
JSR

AR AR A

8961
896§
8963

3971
972

SEQ 0169

;*MIDXFR = MID=TRANSFER PARAMETER

8927
8928
8929
8930
8931
8932
8933
8934
8935
8936
8937
8938
8939
8940
8941
8942
8943
8944
8945

8946

N 13

MACY11 30A(1052)
26=JUN-80 10:53 PAGE 171
CMPBUF = SOF TWARE COMPARE DATA

BEQ
MOV
MOV
BR
GTPRMS: SAVREG

#PARMO+2 ,RO
#SAVPRS ,R1

:SAVE RO-=RS

sADRS OF PARAMS
sADRS OF SAVE AREA
P.WC(RS) ,WDSXFR
sGET WORD COUNT
WDSXFR
:MAKE IT POSITIVE
#RWBUF ,PMA
JINIT PMA TO RWBUF
PMA+2
sINIT PMA+2 TO 0
PATRN
sSEE IF DEFAULT DATA TEST
GT0
:BR IF YES
MA,PMA
:SET PMA=MA
MA+2 ,PMA+2
JSET PMA+2=MA+2
GT0
:SAVE RO-RS

CZRONED RK611/06 sS ViY2

CZR6NE .P11

26=JUN-80 10:48

8974

042104

012700

005552

8976

042114

012702

000005

8978
8979
8980
8981
8982
8983

042122
042124
042126
042130

005302
001375
104410
000207

8975 042110 012701

8977 042120 012021

MACY11 30A(1052) 26=JUN-80 10:53 .PAGE 172
CMPBUF = SOF TWARE COMPARE DATA
MOV

002632

GT0:

8985

8986
8987
8988

8990
8991

8992
8993

8994
8995
8996
8997
8998
8999
9000
9001
9002
9003
9004
9005

9006

MOV

68:

8984

BGE9

MOV

DEC
BNE
RESREG
RTS

9012
9013
9014

#SAVPRS RO

sADRS OF SAVE AREA

(adn.(nm

s SET FOR 5 WORDS

nmoé R1

:ADRS OF PARAMS

:MOVEA WORD

R2
6%

sSEE IF DONE YET
:BR IF NOT YET
RESTORE RO=RS
*RETURN

NN RN

RN R RN

R RN AN

ANRNNRONNORS

'TRNSFR = PERFORM A DATA TRANSFER, AND HANDLE BAD SECTORS, IF
'ENCOUNTERED. THE COMMAND MUST BE SET IN THE PARAM BLK. THIS SuB'ROUTINE IS SUBSTITUTED FOR DRVCAL WHEN BAD SECTORS MUST BE HANDLED.
042132
042134

042136
042142

010446
005004

042220

105037
004737
032737
001403
112737
032737
001406
005204
004737
8857 S
1355
005704
001411
004737
004737

042230
042232
042236
042240

100002
004737
012604
000207

042146
042154
042156
042164
042172
042174
042176
0‘%58%
04
042210
042212
©42214

003140
042510

000100

005474

000001
000002

003140
005474

4s:

5%:

041660
000012
6%:

042102
042020
031606

9015

TRNSFR: MOV
CLR

9007 0422264 005737 057710
9008
9009
9010
9011

SEQ 0170

R LA A

A e

i el

R4 ,=(SP)
Ré

sSAVE R4 ON STACK
sCLEAR BSE ERROR INDICATOR

#WCERR ,RECODE
5%
#1 ,WCEFLG
#BSERR,RECODE
6%
R4
PC,MIDXFR
P.WC(RS)
4%
R4
8s
PC,GTPRMS

:SEE IF WCE ERROR OCCURRED
:BR IF NOT
sSET WCE ERROR FLAG
sSEE IF BSE ERROR OCCURRED
BR IF NOT
:INCR BSE ERROR INDICATOR
UPDATE PARAMS TO RESUME XFER
:SEE IF ENTIRE XFER IS COMPLETED
8 IF NOT
sSEE IF ANY BSE ERRORS OCCURRED
:BR IF NOT
sRESTORE ORIGINAL PARAMS OF XFER

CLRB
JSR
BIT
BEQ
MOvB
BIT
BEQ
INC
JSR
TST
BNE
TST
BEQ
JSR
JSR

WCEFLG
PC,DRVCAL

BPL
JSR
MOV
RTS

8s
PC,PREPAR
(SP)+,R&
PC

TST

BS:

PC,SVPRMS

sINIT WCE ERROR FLAG TO 0
PERFORH THE S.S. FUNCTION

RESTORE WDSXFR,PMA ,PMA+2

sSEE IF MEM MGT PRESENT

:BR IF NOT
sPREPARE MEM MGT AND U.M.
sRESTORE R4
sRETURN

R A AL e

9016
9017
9018
9019
gggg

SBTTL SEARCH BAD SECTOR TABLES ROUTINE
s*THIS ROUTINE RETURNS A LIST OF BAD SECTORS FOUND IN
'INE SPECIFIC TABLE (BAD SECTOR SOF TWARE OR BAD SECTOR FACTORY)
'FOR THE SPECIFIC CYLINDER AND TRACK DESIRED. RO AND R1 MuST
'CONTAIN THE CYLINDER AND TRACK, RESPECTIVELY.

9022
9023
9024

tTNE LIST OF BAD SECTORS IS FOUND ON THE STACK WHEN THE ROUTINE
'RETURNS TO THE CALLER. THE FIRST ENTRY ON THE STACK WILL BE THE
'NUHBER OF BAD SECTORS FOUND FOR THIS CYLINDER AND TRACK.

9025

9026

042242

010237

001266

9027 0462246 010337 001270
9028 042252 012637 001272
9029 062256 011402

SRHTOS MOV

MOV
MOV
MOV

e e

R LSTHP2

e e

"$THP3
;STORE RETURN CONTENTS OF R4
(R&) RZ sGET ADDRESS OF BAD SECTOR TABLE TO SEARCH

(SP)* $THP4

CIRONED RK611/06 35 ViY2
CIRONE.P11
26-JUN-B80 10:48

€ 14
MACY11 30A(1052) 26-JUN-B0 10:53 PAGE 173
SEARCH BAD SECTOR TABLES ROUTINE

9031 04 %ea g 001000 001264

ADD

9030

042260

012437

001264

MOV

9032
9033

042272
042274

oo
%

000010

CLR
ADD

9035
9036

042302
042304

100430
020012

9038
9039
9040
9041
9042
9043

042310
042314
042320
042322
042324
042326

062702
020237
002021
000766
oosrgz
011237

000004
001264

9045
9046
9047
9048
9049
9050

042340
042344
042345
042350
042352
042354

123701
001402
005722
000753
005203
012246

001303

9052
9053
9054

042362
042364
062366

000746
010346
013702

001266

042376

013746

001272

9034 04

0057

9037 042306 001406

9044k 0423

9051

18:

38:

o«grsr 174377 001302

4$:

042356 042716 177700

9057 042402 000204

:SETUP FOR LENGTH OF BAD SECTOR TABLE

R3
#10,R2

:CLEAR R3 FORCOUNT
:SET R2 FOR POINTER TO CYLINDER ENTRY

BM]
CMP

5%
RO, (R2)

: YES=DONE
STEST IF BAD SECTOR IN PRESENT CYL

ADD
CMP
BGE
BR
TST
MOV

#,R2
R2.$TMP1
5$
1s
(R2)+
(R2),$TMP10

:ELSE BUMP POINTER
:TEST IF OUT OF TABLE
vss-ex:r
:LOOP
:TRACK CHECK = PUT POINTER AT TRK/SEC BYTE
:GET TRK/SEC WORD

CMPB
BEQ
TST
BR
INC
MOV

stnp1oo1 R

BIC

5%:

9055 042372 013703 001270

9056

(RG)+,$TMPI

BEQ

001302

#1000, $THP1

BR
MOV
MOV

MOV

RTS

(R2}

resr IF ALL ONES

SYES=-GO CHECK TRACK

#176577,8TMP10 :CLEAR ALL BUT TRACK
(a2)o
1%
R3
(R2)+,=(SP)

:CHECK IF BAD SECTOR IN THIS TRACK
SYES = GO PUT SECTOR NUMBER ON STACK
‘ELSE BUMP POINTER TO NEXT CYL WORD
16O TEST NEXT CYL
:BUMP BAD SECTOR COUNT
:PUT TRK/SEC WORD ON STACK

R! =(SP)
$THPZ ,R2

:G0 CHECK REST OF FILE
:EXIT = PUT NUMBER OF BAD
:SECTORS ON STACK-RESTORE

$STMPL ,-(SP)

:PUT RETURN ON STACK

1177760 (SP)

$TMPI.R3

Ré4

:CLEAR ALL BUT SECTOR NUMBER

:REGISTERS

*RETURN

”sa

.tt"t.t.t""Q"Q"tt"""""..t.tt'."'.tt'i""tt'tttt't'l

9059
9060
9061

‘§BTTL BAD SECTOR CHECK ROUTINE
;#THIS ROUTINE WILL SEARCH BOTH TABLES TO DETERMINE IF A
*«SPECIFIC SECTOR IS LISTED AS BAD. IF THE SECTOR IS LISTED IN THE

9063

i*1S NOT LISTED THE FLAG IS RESET.

9062

:*TABLES THE ROUTINE SETS THE 'BADSEC'' FLAG AND RETURNS. IF THE SECTOR

9065
9066

9067
9068
9069

tlt"t't"it"l"l"'t't""t""'.'t.tt".t.i"'.tt""Qtt"t!

042404
042406

062414
042420
042422

104407
012737

004437
000000
012603

9070 042424 001015
9071
9072
9073
9074
9075

042426
062434
0462436
042444
042446

023727
001404
012737
000763
042737

9078
9079
9080
9081

042460
042462
042464
oazaos

022602
001403
005303
001374

9076
9077

062454
042456

9oa§ 8:247
908
9084
9085

26472
04c.,00
042502

104410
000207

000756

052737
005303
001764

004224
042242

042420

003224

042420

001000

005474

BDSRCK: SAVREG
MOV

28:
1%:

78:

38:

48:

68:

001000

005474

8S:
9%:

JSR
.WORD
MOV

BNE

CMP
BEQ
MOV
BR
BIC

RESREG
RIS

CMP
BEQ
DEC
BNE

B8R

BIS
DEC
BEQ

#BSFACT,18
R&, SRHTBS

(SP)+,R3

113

1$,#8SSOF T
3s
#BSSOFT,18
28
#BADSEC ,RECODE

:SET TABLE TO SEARCH
16O SEARCH IT
:TABLE ADDRESS GOES MERE

:GET NUMBER OF BAD SECTORS, IF ANY

:1F ANY, GO TEST WHICH ONES

‘ELSE TEST IF OTHER TABLE ALREADY SEARCHED
SIF YES=-EXIT
*SET OTHER TABLE FOR SEARCH
16O SEARCH IT
:CLEAR BAD SECTOR BIT

PC
(SP)+,R2

:RETURN
:THIS SECTOR IN TABLE?

‘ELSE GO SEARCH OTHER TABLE

8s
R3
33

#BADSEC,RECODE
R3
4

SYES-GO SET BIT & EXIT
:DECREMENT BAD SECTOR COUNT
*1F NOT ZERO-CHECK NEXT ENTRY
:SET BAD SECTOR BIT
CLEAR STACK OF OTHER BAD SECTOR
NUMBER

SEQ 0171

CIR6NEO RK611/06 35S ViY2
CIRONE.P11
26-JUN-80 10:48
9086
9087
9088
9089
9090

042504
042506

MACY11 30A(1052) 26-JUN-B0 10:53
BAD SECTOR CHMECK ROUTINE
(SP)+
9%

ST
BR

005726
000774

m‘

D 14
PAGE 174

SEQ 0172

SEXIT

'Q'l"."."""""".'"'Q""""'Q'OQtt"""tt".""""'

9092
9093
9094
3832

SBTYL CALL DRIVER ROUTINE
;*ENTRY JSR PC,DRVCAL
WITH RS POINTING TO PARAMETER BLOCK
oastuau RTS PC

9097
9098

-rnxs ROUTINE IS USED TO INITIATE A SUBSYSTEM OPERATION BY
:«CALLING THE DRIVER. THWE PARAMETER BLOCK MUST BE SET UP

3}8?

;*BLOCK WHEN THE ROUTINE 1S CALLED.

9099

:*BY THE CALLER AND RS MUST POINT TO THE PARAMETER

9102
9103
9104
9105
9106

-ruxs ROUTINE WAITS FOR THE OPERATION TO BE COMPLETED.
:eWHILE WAITING THE WATCHDOG TIMER IS CALLED TO PREVENT
:#SILENT DEATH IN CASE THE SUBSYSTEM DOES NOT PROVIDE AN
:«INTERRUPT. THE TERMINATION WANDLER ROUTINES WILL SET THE DONE
;*FLAG WHICH KEYS THE ROUTINE TO RETURN TO THE CALLER.

9107

9108

9109
9110
9111
9112
9113
9114

9115

04250

042510
062512
042516
042522
045553
0425

104407
004737
004737
105037
105037
737

DRVCAL:

035552
037352
003123
003136
042570

9116

9118
9119 042536 000240

9126
g}%‘

042540
042544
042550
042552
042556
042562

042564
042566

010537
004737
000000
004737
105737
001773

042550
052562

047132
003123

104410
000207

9131

9134
9135
9136

ER NN

R OO RRROTES

PC,STALL
PC,CTLOUTY
DONE
DRNAFG
PC,STRCMD

;SAVE RO=-RS
:PERFORM A STALL IF REQUIRED
:CHECK FOR (*C) OR (*Z) kBD INPUT
:CLEAR DONE FLAG
:CLEAR DRIVE SIEZED BY OTHER PORT FLAG
STORE PREV AND CURRENT COMMANDS

TYPFMT

CURRENT DRIVE IS AN RKO7 ?

0a.cor P.CSTH(RS);CLEAR THE RKO7 DRIVE TYPE BIT

;

BEQ

48:
6$%:

MOV
JSR
.WORD
JSR
TSTB
BEQ

RS,4$
PC.C.INIT

1ST8

:
9s:

BISB
NOP

RESREG
RTS

:BRANCH IF NOT

#B.CDT,P. cs1u(a5) :SET THE RKO7 DRIVE TYPE BIT

PC,W.WTCH
DONE
63

.ser PARAM BLOCK ADDRESS
:CALL DRIVER
:P.B. ADDRESS GOES HERE
:CALL WATCH DOG
:DONE SET?
:NO-LOOP

:RESTORE RO-RS
sYES=RETURN

Q.0'.'.0"'.'.'0""'t'.tt"t'tttt"t.'tt'tttt.lt"!'tt't'ttIt'

9132

9133

RN AR AR E R AR R

BI1CB

128:

9129
9130

SAVREG
JSR
JSR
CLRB
CLRB
JSR

R R AT E RN RN

;

9117

9120
9121
9122
9123
9124
9125

R RN TN PR R

-sracno - STORE PREVIOUS AND CURRENT SUBSYSTEM COMMANDS

9137
9138
9139

042570
042572
042576

104407
012701
012700

042602
042604

012021
012021

9141

062610

012021

9140 042606 012021

005224
005240

$TRCMD: SAVREG
MoV
MOV

L L

#PRVCMD ,R1
#COMSTR,RO

: STORE paevxous COMMAND
(RO)+, (R1)+

nov

(RO)+. (R1)¢

MOV

(RO)+. (R1) ¢

MOV

(RO)+. (R1)+

AL AL L LA L LAl

:SAVE RO-RS
ADDR OF PREV COMMAND STORAGE
ADDR OF CURRENT COMMAND STORAGE

CZR6NED RK611/06 $S ViY2
26=JUN-80 10:48

CZR6NE .P11

O=NNNNNINNO
N
b b
e e d

SR NNV
NS VWAV AWVIN

O0=-=0000000 G’CDGDC’E;

NN
=
NNINSN
W
=~

042612
042614

MACY1 30A(1052)

003143

005260

PAGE 175

(RO)+,(R1)+
(RO)+,(R1)+
UBMPRS
4%

MOV

a#MAPHOO, CRMPHO ;STORE CURRENT U.B. MAP REG 0

MOV

#COMSTR,R1

RTS

CRMPHO,PRMPHO
CRMPLO PRMPLO

:SEE IF UNIBUS MAP PRESENT
:BR IF NOT

;STORE PREV U.B. MAP REG 0

MOV
PMAPLOO
, CRMPLO
:STORE CURRENT COMMAND

is:

005240

10:53

MOV
MOV
MOV
MOV
MOV
MOV
RESREG

(RS)+,(R1)+
(RS)+,(R1)+
(RS)+,(R1)+
(RS)+,(R1)+
(RS)+,(R1)+
(RS)+,(R1)+

:RS POINTS TO DRIVER PARAM BLK

;RESTORE RO-R5
sRETURN

::""".""'.""""'"'."Q""'l't."..".'.QQ..'Q""'."'Q

.SBTTL DRIVE ERROR FREE RETURN ROUTINE
;*THIS ROUTINE IS CALLED BY THE DRIVER WHEN NO ERROR

;*HAS BEEN DETECTED IN THE OPERATION. THE ROUTINE SETS THE
;*DONE FLAG THAT IS TESTED IN THE DRIVER CALLING
:*ROUTINE.

"ttt't'."'t."""t"t""""'C'..'Qt"".Q'Q'.."t'.'t""tt.

000377
100000

003123
005474

ERRFRE: BISB

— —d

92883

003126

28:

003126
001174
003126

001174

003126
005474

1$:

BIT
BEQ
CLRB
BR

TSTB

BEQ
CLR
MOvB
ERROR
CLRB
CLR
RTS

P Ll

.SBTTL

#377,DONE

:SET THE DONE FLAG

#ANYDER,RECODE
28
ERRCNT
1%

:TEST IF ANY DATA ERROR
:1F NO = DO ERROR RECOVERY PRINT TEST
:CLEAR ERROR COUNT
CEXIT

1%
$REGS
ERRCNT ,SREGS
101
ERRCNT
RECODE

‘NO - SKIP TO EXIT

ERRCNT

SCHECK IF ANY ERRORS HAVE OCCURRED
;GET RETRY COUNT
;PRINT RETRY SUCCESSFUL MESSAGE
sCLEAR ERROR COUNT
sCLEAR RECOVERY FLAGS
sRETURN

A R R L A Y
LR L

TYPE ERROR ROUTINE

s*ENTRY =
s*RETURN M

JSR
RTS

PC,TYPERR
PC

;*THIS ROUTINE USES THE '‘ITEM CONTROL BYTE'' (SITEMB) TO DETERMINE WHICH
;*ERROR IS TO BE REPORTED. IT THEN USES THE 'ERROR TABLE'' (SERRTB)
;*ENTRY TO DEFINE WHAT INFORMATION IS TO BE REPORTED CONCERNING
;*THE ERROR.

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

042760
0462762
042766

104407
105237
032737

0462774

001412

003130
000040

TYPERR: SAVREG

005702

INCB
BIT

DRVERS
#B175,CS

BEQ

——y

E 14

MOV
MOV
1ST8
BEQ

MOV
MOV

005256
170200

26-JUN-B0

CALL DRIVER ROUTINE

S—

;INCR ERROR COUNT FOR THIS DRIVE
;SEE IF DRIVE SHOULD BE DROPPED
IF ERROR LIMIT EXCEEDED
:
:BR [F NOT

SEQ 0173

CIR6NED RK611/06 S ViY2

CZR6NE .P1

26-JUN-80 10:48

9198
9199
9200
9201
9202
9203
9204
9205
9206
9207
9208
9209
9210
9211
9212
9213
9214
9215
9216
9217
9218
9219
9220
9221
9222
9223

042776
04
04
043012
043016
0430%8
0430
043032
043036
043040
043042
043044
043050
043052
043054
043056
043060
043064
043070
043072
043076
043102
043104
043106
043112
043114

9225

063138

013746

9227
9228
9229
9230
9231
9232
9233
9234
9235
9236
9237

043132
043133
043134
043140
043146
043150
043154
043160
043164
043170
043174

002
000
104401
032777
001133
104401
104401
104401
104401
012701
012702

9239

043202

104402

9224

043120

9226- 0431

9238
9240
92641

9242
9243
92644
9245
9246
9247
9248
9249
9250
9251
9252
9253

043200
0432064
043210

043212
043214
043220
0‘32;3
(432
043234
043240
043242
043264
043250
043252
043254

123727

003130

105037
104401
000137
032777
00160;
000137
005000
005005
005105
113700
005300
006300
006300
006300
062700
012037
001406
104401
104401
104401
000000
012037
001467
104401

003130
011010
017272
020000

002609

104401

104403

012246
104401
005301

001372
104401
104401
104401
104401
104401
012246
104402
104401
011246
104402
104401

MACY11 30A(1052)

TYPE ERROR ROUTINE

000024

136110

043425

CMPB

BLT

9s%:
6$:

001114

001400
043104

1$:

013236
060346

2%:
3%:

043262

001315
060334
001102

013236
010000

135772

001315
013252

063310
001315
013252

013252
013236

308:

10:53

F 14

DRVERS,#20.

DRVERS
.DROPDR
NEWORV
#5613 ,aSWR
6$
208
RO
RS
RS
SITEMB,RO
RO
RO
RO
RO
#SERRTB,RO
(RO)+,28
3%
.CR2LF
,AS25P2

MOV

0
(RO)+,48
5%
»SCRLF
, TSTMSG
$TSTNM,-(SP)

.BYTE
.BYTE
TYPE
BIT
BNE
TYPE
TYPE
TYPE
TYPE
MOV
MOV

2
0
LCR2LF
#BIT12,3SWR
20%
.DH105
+SCRLF
.DH101+10
SCRLF
#6,R1
#SREG26,R2

TYPOS

001315
063231
001315
000006

013252

CLRB
TYPE
JMP
BIT
BEQ
JMP
CLR
CLR
COM
Move
DEC
ASL
ASL
ASL
ADD
MOV
BEQ
TYPE
TYPE
TYPE
LWORD
MOV
BEQ
TYPE

TYPE

063066

001236

26-JUN-80

MOV

TYPOC

TYPE
DEC

BNE
TYPE
TYPE
TYPE
TYPE
TYPE
MOV
TYPOC
TYPE
MOV
TYPOC
TYPE

(R2)+,=-(SP)

., SPACE2
R1

30%
+SCRLF
. SPACE2
.DH102
JSCRLY
. SPACE2
(R2)+,=(SP)

.SPACE2
(R2),=(SP)
.CR2LF

PAGE 176

SEQ 0174

;SEE IF 20(DEC) ERRORS EXCEEDED
;BR_IF NOT
;CLEAR DRIVE ERROR COUNT
;:TYPE 'DROPPING DRIVE"
;PROCEED TO TEST NEXT DRIVE
;INHIBIT ERROR TYPEOUTS?
:BR IF NO
;CLR RO FOR ERROR NUMBER
;INIT INDENT INDICATOR
;ENTER ERROR NUMBER
;FORM INDEX FOR ERROR TABLE

;FORM ADDRESS OF ERROR ENTRY
;GET EM POINTER

;BRANCH IF THERE ISN'T ONE

sTYPE ''ee TM
;:TYPE ERROR MESSAGE (EM)
;EM POINTER GOES HERE
;GET DH POINTER
;BR IF THERE ISN'T ONE

;TYPE "

TEST '

;GET TEST NO. ON STACK

STYPE IT

:2 DIGITS
:SUPPRESS LEADING ZEROS
;REPORT DESCRIPTION ONLY ?
:BR IF YES

;TYPE "PREVIOUS COMMAND :*'
:TYPE PREV COMMAND HEADER
:SIX COMMAND VALUES
;STARTING ADDR OF PREV CMND VALUES

;PUT A WORD ON STACK
sTYPE IT

:TYPE SEPARATORS
;SEE IF 7 VALUES TYPED YET
:BR IF NOT

: INDENT
:TYPE HDR FOR BA DATA

: INDENT
;:TYPE PREV. HI BA BITS

:TYPE PREV. LO BA BITS

CIR6NED RK611/06 sS ViY2

CZR6NE .P11
9254
9255
9256
9257
9258
9259
9260
9261
9262
9263
9264
9265
9266
9267
9268
9269
9270
9271
9272
9273
9274
9275
9276
9277
9278
9279
9280
9281
9282
9283
9284
9285
9286
9287
9288
9289
9290
9291
9292
9293
9294
9295

26=JUN-80 10:48

043260

043262
04 %g&
043270
043272
043
043302
043304
043306
043310
043312
043314
043316
043320
043322
043324
043326
043332
043334
043336
043340
043342
043346
043350
043352
043354
043360
8:;222

9296

043370
043372
043374
043400
043402
043404
043406
043410
043414
043416
043420
043424
043426
043430

9298
9299

043436
043440

104401
000000
104401
005005
032777
001056
012001
001454
012000
012002
112003
105720
005703
001417
005705
001002
104401
013146
104402
005303
001403
104401
000771
005702
001402
104401
005302
34§S
12037
105710
001004
104401
005005
000404
005105
001002
104401
104401
000000
104401
105710
001331

062700

9297 043434 000751

9301
9302

gggz

104410
000207

MACY11 30A(1052)

A ¥

001315

010000

135640

S$:

108:

013252

11%:

013252

12%:

001315
043416

14%:
15%:

001315
34$:

013252
001315

26=JUN-B0

TYPE ERROR ROUTINE

36$:
168:

000002

TYPE

LWORD
TYPE
CLR
BIT
BNE
MOV
BEQ
MOV
MOV
MOVB
1ST8
TST
BEQ
ST
BNE
TYPE
MOV
TYPOC
DEC
BEQ
TYPE
BR
ST
BEQ
TYPE
DEC
BLE
MOV
1STB
BNE
TYPE
CLR
BP
CoM
BNE
TYPE
TYPE
LWORD
TYPE
1ST8
BNE

O
LOCRLF
RS
#B1712,35WR
20%
(RO)+,R1
208
(RO)+,RO
(RO)+,R2
(RO)+,R3
(RO)+
R3
148
RS
11%
LSPACE2
a(R1)+,=(SP)

14$

ADD

20%:

6 14
10:53 PAGE 177

RESREG
RTS

R3
12%
LSPACE2
i1s
RZ
148
LSCRLF
R2
208
(RO)+,16%
(RO)
348
LSCRLF
RS
36%
RS
36%
,SPACE2
O
JSCRLF
(RO)
108

#2.R0

:TYPE DATA HEADER

:DH POINTER GOES MERE
:INIT INDENT INDICATOR
:REPORT DESCRIPTION ONLY ?
:BR IF YES

sGET DT POINTER
:BRANCH IF THERE ARE NONE
:GET DF POINTER
;STORE NUMBER OF DM'S
;GET & STORE NUMBER OF DATA WORDS
:BUMP PAST FORMAT WORD
:TEST IF ANY D“TA FOR THIS HEADER
:NO = SKIP DATA PRINT
;SEE IF SHOULD INDENT
:BR IF NOT

: INDENT
:PUT FIRST DATA WORD ON STACK
:TYPE IT
:MORE DATA WORDS
:NO=-BRANCH
:TYPE SEPARATORS
:LOOP
:SEE IF <CR>,<LF> NEEDED
:BR IF NOT
:TYPE IT
sMORE DH'S?
:NO-BRANCH
:GET NEXT DM POINTER
:SEE IF ANY DATA FOR HDR
:BR IF YES
:SKIP EXTRA LINE
:RE=INIT INDENT INDICATOR

:COMPLEMENT INDENT INDICATOR
:BR IF NO INDENT REQUIRED
: INDENT
:TYPE DM
:DH POINTER GOES HERE
:TYPE A DT?
: YES=BRANCH
: INCREMENT DF POINTER

:SEE IF END OF DF BLOCK

.'.'t'.".".t"""""""tifi""tti!tt.".ll'ttt..ttttt"l.'tttt

"SBTTL CONTROLLER ERROR REPORTER ROUTINE
:*ENTRY:
JSR PC, CONERR
:*RETURN:
;Q

RTS PC

9305
9306
9307

:*THIS ROUTINE DECODES THE CONTROLLER ERROR WORD AND
:*REPORTS THE APPROPRIATE MESSAGE. THE RK611 REGISTERS ARE
:*RETRIEVED FROM THE RK611 AND PLACED IN THE PARAMETER

9309

;*AT THIS TIME.

9308

:*BLOCK. THIS IS DONE BECAUSE PARM 0 MAY NOT BE VALID

SEQ 0175

CIR6NED RK611/06 35S ViY2
CZR6NE .P11
26=JUN-80 10:48
9310

9311
931%
91
9314

9315
9316
9317
9318
9319
9320
9321
9322
9323
9324
9325
9326
9327
9328
9329
9330
9331
9332
9333
9334
9335
9336
93;‘
93
9339

9340

9341
9342
9343
9344
9345
9346
9347
9348
9349
9350
9351
9352
9353
9354
9355

9356
9357
9358
9359
9360
9“‘

9362

9363
9364
9365

043442
0434446
043452
043456

043462
043470
043472
043474
043476
043504
043506
043510
043512
043520
043522
043526
043530
043534
043536
043540
043546
043550
043552
043554
043562
043564
82;598
S
043576

043600

043602
043604
043612
043614
043616
043620
043626
043630
043632
043634
043642
043644
043646
043650
043656

043660
043662
043664
043666
043672

104407
152737
105237
004737

032737
001402
104064
000474
032737
001402
104065
000466
032737
001407
105737
001402
105237
104066
000453
032737
001402
104067
000445
032737
001402
104070
37
2737
001402

H 14

MACY11 30A(1052) 26-JUN-80 10:53 PAGE 178
CONTROLLER ERROR REPORTER ROUTINE
AR

003123

000002

003052

1%:

000004

003052

2%:

003052

003136
003137

15%:

000010

003052

3%:

000020

003052

4§$:

000040

003052

5%:

104071

000431
032737
001452
104072
000423
032737
001402
104073
000415
032737
001402
104074
000407
032737
001402

104052
000401
104075
005037
000137

L Rl
i
A AR
ARl

CONERR: SAVREG
B1SB
INCB
JSR

000377
003126
046344
000001

BIT
BEQ
ERROR
gR
BIT
BEQ
ERROR
BR
BIT
BEQ
1ST8
BEQ
INCB
ERROR
aR
BIT
BEQ
ERROR
BR
BIT
BEQ
ERROR
BR
BIT
BEQ

ERROR

000400

001000

002000

100000

003052
046144

003052

6%:

8%:

9%:

10%:

11%:
7%:

SEQ 0176

B
BIT
BEQ
ERROR
BR
BIT
BEQ
ERROR
BR
BIT
BEQ
ERROR
BR
BIT
BEQ

ERROR
BR
ERROR
CLR
JMP

#377 ,00NE
ERRCNT
PC,TOPROC
#B170,E.CONT
1%
64
7%
#B1T1,E.CONT
2%
65
7%
#B172,E.CONT
3%
DRNAFG
15%
REISSU
66
7%
#BIT3,E.CONT
4$
67
7%
#BIT4,E.CONT
5%

7%
#BITS,E.CONT
6%

7%
#BI1T8,E.CONT
8%
72
7%
#B1T19,E.CONT
9%
73
7%
#B1110,E.CONT
108
74
7%
#BIT15,E.CONT
1%

52
7%
75
E.CONT
BGNRTY

;SAVE PO=RS
:SET DUNE FLAG
: INCREMENT ERROR COUNT
:LOAD RK REGS INTO SREGS

;ERROR 0?
:NO=-BRANCH
:CLEAR CONT DID NOT CLEAR ERROR
:ERROR 1?
:NO=BRANCH
:NO ATTENTION IN ATTENTION SUM REG

:ERROR 27
:NO=-BRANCH
:SEE IF DRIVE WAS SIEZED BY OTHER PORT
:BR IF NOT
;SET FLAG TO RE=-ISSUE COMMAND
JUNSOLICITED ATTENTION

:ERROR 3?

:NO=-BRANCH
:UNEXPECTED DATA TYPE ERROR

:ERROR 4?
:NO-BRANCH
:ATTENTION DID NOT RESET WITH CLEAR
:ERROR §?

:NO-BRANCH

:SUBSYS CLEAR DIDN'T CLEAR DRIVE ATTENTION

:DATA LATE WHEN UNLOADING HEADER

;CONTROLLER ERROR DURING DRIVER SERVICE

;:DRIVE DETECTED PARITY ERRCR

sMULTIPLE DRIVE SELECT
sUNDEF INED ERROR
;CLEAR CONTROLLER ERROR WORD
:6G0 DO RETRY

;;t'ttt.tt.t'tt"""'Q"'Qtttt"ltttt..t.'tt'iit'titt"tltQttttt

.SBTTL

REPORT SUPPORT ROUTINE

;

:*THIS ROUTINE LOADS ALL THE PARAMETER BLOCK DATA TO BE REPORTED
:*INTO THE PROPER TEMPORARY REGISTERS FOR REPORTING. ALL THESE MAY
;*NOT BE INCLUDED IN THE REPORT, BUT THEY ARE LOADED ANYWAY,

CIRENED RK611/06 3S ViY2
CZR6NE .P11
26=JUN-80 10:48
9366
9367

9368
9369
9370
9371
9372
937
9374
9375
9376

043676
043676

104407

MACY11 30A(1052) 26-JUN-B0 10:53
REPORT SUPPORT ROUTINE
REPSUP:

043700
043704
043712
043716
043722
o&s7§8
0437
043734
043736

005037
116537
012700
016520
116520
105020
116520
105020
016520

005476
000001
001162
000002
000005

9378
9379

043746
043752

9382
9383
9384
9385
9386
9387
9388
9389
9390
9391
9392
9393
9394
9395
9396
9397
9398
9399
9400
9401
9402
9403
9404
9405
9406
9407
9408
9409
9410
9611
9412

000012

CLR
MOVB
MOV
MOV
MOVB
CLRB
MOVB
CLRB
MOV

ERRCOM
:CLEAR ERROR COMMAND STORE
P.CMND(RS) ,ERRCOM ;STORE COMMAND START VALUES
#SREGO,RO
;FOR REPORTING
P.CYLN(RS), (RO)+
P.TRCK(RS).(RO)+
(RO)+
P.SECT(RS),(RO)+
(RO)+
P.WC(RS),(RO)+

116503
042703

000007
177774

MOVB
BIC

P.BAWI(RS),R3
#i77774,R3

043770
043774
044
044004
044010

016520
016520
016520
016520
016520

000016
000020
000030
000026
000022

044014
044020
044024
044030
044034
044040
044044
044050
044054
044060
044
044070

01@520
016520
016520
016520
016520
8165 0
16520
016520
016520
016520
016520
016520

000024
000032
000036
000034
000040
000042
000044
000046
000050
000052
000054
000056

044074
044100
064106
044106
044110
044112
044114
044116
044122
044124
044126
61

012701
012700
112021
105021
112021
105021
012021
116021
105021
111021
105021
016021

001236
005224

005476

000004

9377 043742 012700 001174

9380 043756 010337 001256
9381 043762 016537 000010 001260

9613

064134

113003

000001

000006
000003

9614 064140 042703 177774
9415

044144

010321

9617
9618

064152
044154

104410
000207

9616

9‘19

9420
9421

SAVREG

I 14
PAGE 179

044146

016011

000004

MOV
MOV
MOV

MOV
MOV
MOV
MOV
MoV

#$REGS,
RO

R3,SREGS6
-HI BA BITS
P.BALO(RS).SREG!7 ;L0 BA BITS

P.CST(RS),(RO)+ :GET ALL THE VALUES FROM THE
P.CS2(RS),(RO)+ ;PARAMETER BLOCK AND LOAD
P.DCYL(RS),(RO)+ ;THE TEMPORARY REGISTERS
P.DTS(RS),(RO)+ ;FOR REPORTING. ALL THIS
P.WCR(RS),(RO)+ ;DATA MAY NOT BE VALID
:FOR ALL REPORTS (TO BE
MOV
P.BAR(RS),(RO)+ :DETERMINED LATER) BUT IT IS
MOV
P.ASOF (RS),(RO)+ ;STORED ANY WAY.
MOV
P.DS(RS), (RO)+
MOV
P.ER(RS)
. (RO)+
MOV
P.AOO(RS), (RO)+
MOV
P.BO0OCRS)
. (RO)+
MOV
P.AO1(RS),(RO)+
MOV
P.BO1(R5)
. (RO)+
MOV
P.AT0(RS)
. (RO)+
MOV
P.B10(RS)
. (RO)+
MOV
P.A11(R5)
. (RO)+
MOV
P.B11(R5)
. (RO)+
;STORE PREVIOUS COMMAND FOR PRINTOUT
MOV
#SREG26,R1
:ADRS OF PRINT BUF AREA
MOV
#PRVCMD RO
:ADRS OF PREV CMND STORAGE
MOVB
(RO)+,(R1)+
;DRIVE NO.
(R1)+
CLRB
MOVB
(RO)+,(R1)+
; COMMAND
(R1)+
CLRB
MOV
(RO)+,(R1)+
;CYL ADDRESS
MOVB
1(RO).(R1)+
* TRACK
CLRB
(R1)+
MOVB
(RO),(R1)+
:SECTOR
CLRB
(R1)+
MOV
6(RO),(R1)+
sWORD COUNT

MOVB

3(RO).R3

BIC

N84
83

MOV

4&(RO), (RY)

MOV

RESREG
RTS

R3, (R1)+

‘Wl BA BITS

:LO BA BITS

::itt.".t'.t'.t"""""i't"t"ttittlt.tt.!tltt"t'l'tttt'tt.i

.SBTTL REPORT ERROR ROUTINE
;% ENTRY
JSR
PC, ERRHDL

SEQ 0177

———

CZR6NED RK611/06 35S ViY2

J 14

MACY11 30A(1052)

26-JUN-80

10:53

gt%

-'REYURN

RTS

9424
9425
9426

'IHIS ROUTINE IS CALLED BY THE DRIVER WHEN AN ERROR IS DETECTED
'IN THE OPERATION. THE ROUTINE DETERMINES WHICH COMMAND WAS
'BEING EXECUTED AND GENERATES THE PROPER ERROR MESSAGE.

CZR6NE .P11

26=JUN-B0 10:48

REPORT ERROR ROUTINE

9‘27

9428
9429

94
9431
9432

9433
9634
9435
9436
9437
9438
9439
9440
9441
9442
9443
9444

PAGE 180

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

044156

044160
044166
044172

044176
044204
044206
044212
044220
044226

104407

152737
105237
005037

032737
001402
012705
012737
012737
004737

000377
003126
005474

003123

000400

005474

002714
046316
046334
043676

003046
003044

ERRHDL: SAVREG

BISB
INCB
CLR

ERZENT: BIT
BEQ
MOV
528:
MOV
MOV
JSR

#377 ,00NE
ERRCNT
RECODE

#LEV2ER,RECODE
52%
#PARM1,RS
#RETANL ,A.ABNL
#RETNML ,A.NORM
PC,REPSUP

9445

9446

:1F AN ERROR IS FOUND SET,

:THAT ERROR IS REPORTED AND

9448

9457
9458
9459
9460
9461

9463
046k
9465
9666

9467

9469
9670
9471
947
97
%76
9475
9476

9477

;TEST IF 2ND LEVEL ERROR
NO = SKIP PARAM BLOCK CHANGE
ELSE SET RS TO PARAMETER BLOCK 1
:;SET NOW ABNORMAL AND NORMAL RETURN FOR
DRIVER OPERATIONS IN ERROR PROCESSING
60 SET UP REGISTERS FOR REPORT
:NOW BEGIN TESTING THE ERROR
:BITS. THE SEQUENCE IN
:WHICH THEY ARE TESTED IS
sCONSIDERED SIGNIFICANT IN
:THAT ERRORS OF A MORE
:CATASTROPHIC NATURE ARE FIRST
:TESTED.

9447

9449
9450
9451
9452
9453
9454
9455
9456

:SET DONE FLAG
:INCREMENT ERROR COUNT
CLEAR RECOVERY CODE WORD

044232
044236
044244
044246

016504
032765
001406
104001

000034
020000

000020
005474

0442

032765

000200
045652

004000

000020

000200
045652
010000

005474

000020

000400

000020

044250
044256

044270
04646272
044274
044302

052737
000137

001406
104 ;
0527
000137

044306 032765
064314 00161;
044316 032765
1403
044324
044326 104035
000137
8::3
104 ;
3
8001
044
32765
044
044350 0?161
044352 032765

045652

1%:

2%:

38%:

045652
000400

000020

010000

000020

3%:

THE REPORTING IS TERMINATED.
:1F ADDITIONAL ERRORS ARE SET,
THE RK611 REGISTER PRINTOUTS
:UILL SHOW THIS BUT THE
:REGISTER CONTENTS MUST BE
:MANUALLY DECODED TO LOCATE THE
sSECOND ERROR
:SET R4 TO ERROR REGISTER
;TEST UPE. IF UES-SET
:REPORT ERROR

MOV
BIT
BEQ
ERROR

P.ER(RS) R4
#UPE ,P.CS2(RS)
1%
1

BIT

#NEM,P.CS2(RS)

;TEST NON-EXISTANT MEMORY

BIT
BEQ
BIT
BEQ
ERROR
JMP
ERROR
JMP
BIT
BEQ
BIT

#NED ,P.CS2(RS)
3%
#UFE,P.CS2(RS)
38%
35
37%
¥
37
SUFE ,P.CS2(RS)
%
#NED,P.CS2(RS)

;TEST NON-EXISTANT DRIVE

BIS
JMP

BEQ
ERROR
BIS
JMP

#ABORT ,RECODE
37%

2%
2
#ABORT ,RECODE
37%

;TEST IF NED & UFE DOTH SET
sNED & UFE BOTH SET ERROR
sNED ONLY

;TEST UNIT FIELD ERROR

;TEST IF UFE & NED BOTH SET

SEQ 0178

CIR6NED RK611/06 S ViY2

CZR6NE .P11
9478

9%79
9480
9481
9%
9483
9484
948S
9486

9487
O4LB8
9689
90
9491
9492

26=-JUN-80 10:48

044

044
044
044370
044372
044376
044404
044406
0464412

104035
000137
1060?&
000137
032765
001423
004737
032737

001007
032737
001006
104005
000137
104056

9494
9495

044446
044450

104057
137

9497
9498
9499
9500
1
9502
9503
9504
9505

044462
044464
044466
044472
044500
044502
044504
044512
451

9507
95
9509
9510
9511
951;
9513
9514
9515
9516
9517
9518
9519
95

044526
044526
0445
044540
044546
044550
044552
044556
044564
044566
044570
044574
044602
0646604

104007
052737
000137
032765
001403
104010
000137
032765
001403
104011
000137
032765
001401
104027

9522

044612

001403

044442

9496 0444

9521

9523
9524
9525
95
95
95
L 2]
95
9531

g
9533

452

044606
14
1

ii
826646

0446
0446564

000137

BEQ
045652

39%:

045652
000100

000014

046344
002000

005474

000400

005474

045652

4$:

40$:

045652

618:

044176

032765 010000 000014

5§:

045652
020000

65%:

001403
104107
000137
032765
001406
104006
052737
000137
32704
1406

0327

10401
ogou
032765
00140
10401
oggts

032704

001403
106014
000137
032704

26=JUN-B0

REPORT ERROR ROUTINE

001403

0ké4
044422
0444
044432
044434
044440

9493

MACY11 30A(1052)

004000
045652
000010
004000
045652
000010

000016
005474

68:
005474

000036

7%:

045652
000020

000036

8%:

045652
004000

000016

248:

000001
045652
002000
045652

000004

045652
000040

25%:
000020

10%:

11%:

K 14

PAGE 181

&
:REPORT UFE ONLY
37%
#CMDTO,P.PRST(RS) ;
5%
PC,TOPROC
;G0 PROCESS TIMEOUT
#TUOTOS ,RECODE ;2ND TIMEOUT IN TIMEOUT PROC?

JHMP

37%

BNE
BIT
BNE
ERROR
JMP
ERROR
ERROR
JMP

BIT

BEQ
ERROR
JMP
BIT
BEQ
ERROR
BIS
JMP
BIT
BEQ

5
7%

;sNO=-SKIP

ERROR
JMP
ERROR
JMP
BIT
BEQ
JSR
BIT

:REPORT NED & UFE BOTH SET

408
#LEV2ER,RECODE
41$
§
37¢
56

:YES = SKIP TO ERROR 56
;TEST IF LEVEL 2 ERROR
:YES = SKIP TO ERROR 57
;ELSE MAKE FULL TIMEOUT REPORT

57
ER2ENT

:2ND LEVEL ERROR REPORT
:GO BUILD AND MAKE 2ND REPORT

65%
107
37%
#SPAR,P.CS1(RS)
(13
6
#RCLREQ,RECODE
37%
#ORPAR R4

;BR IF DRIVE IS AVAILABLE
:DRIVE SIEZED BY OTHER PORT

;TWO TIMEOUTS ERROR REPORT

#ORVSZD,P.PRST(RS) ;SEE IF DRIVE SIEZED BY OTHER PORT

;TEST D TO C PARITY ERROR

:TEST DRIVE DETECTED PARITY ERFOR

ERROR
BIS
JMP
BIT
BEQ
ERROR
JMP
BIT
BEQ
ERROR
JMP
BIT
BEQ
ERROR

7
#RCLREQ,RECODE
37%
#ACLO,P.DS(RS)
:TEST AC LOW
33
10
37%
#SPDLSS,P.DS(RS) ;TEST SPEED LOSS
248
11
37%
#CTO,P.CS1(RS) :TEST FOR CONTROLLER TIMEOUT
25%
27

BEQ

108

BIT

ERROR
JMP
BIT
BEQ
ERROR
JMP
BIT
BEQ

ERROR

12%:

10:53

JMP
BIT

#ILC,.R4

:TEST ILLEGAL FUNCTION CODE

12
37%
#PGE ,P.CS2(RS)
11%
13
37%

;TEST PROGRAMMING ERROR

#1LF R4

12%
14
37%
#OTYE ,RG

;TEST ILLEGAL DRIVE FUNCTION
:TEST DRIVE TYPE ERROR

SEQ 0179

————

CIR6NED RK611/706 35S ViY2
CZR6NE .P11
26=JUN-80 10:48
95;A
9535
9536

gg%;
9539
9540

044662
044

104015

044670

032704

044676

10401

MACY11 30A(1052)

REPORT ERROR ROUTINE

000020

138:

0456

958
9588
9589

004000
045652
010000

005474

00
045652

005474

000036

045652
020000

000010
003121
045652
000400

045652
047004

s TEST SEEK INCOMPLETE

37%

#COE R4

18%

"TEST

CYLINDER OVERFLOW

37%

#1DAE R4
19%

s TEST ILLEGAL CYLINDER

#RCLREQ,RECODE

19%:

37%

#DROT,P.DS(RS)

208
24

s TEST DRIVE OFF TRACK

#RCLREQ,RECODE

378

#DTE ,Ré

21%
25

JTEST DRIVE TIMING ERROR

#ABORT ,RECODE

21%:

22%:

005474

#SK1,Ré
17%

#RCLREQ,RECODE

208:

000020

#ABORT ,RECODE
ALLTRM

18%:

005474

JTEST FORMAT ERROR

#RCLREQ,RECODE

005474

004000
045652
000040

37%

s TEST DRIVE UNSAFE

17%:

045652
002000

138

#FNTE R4
14%

37%
#OLY,P.CS2(RS)

sTEST DATA LATE

#OP1 R4

sTEST if OPI ERROR

22%
26
378

29%

#OPIERR,RECODE

DERCNT

50%:

27%:
268:

s TEST IF FIRST ERROR

508
37%
#LEV2ER,RECODE

:NO - SKIP REPORT

37%

:GET OUT OF ERROR REPORT
;60 BUILD EXPECTED HEADER

PC,BLDEXH

———

SEQ 0180

158:

005474

137
032704
1608
10402
052737
000137
032765
0014
104024
052737
000137
032704
001406
104025
052737
000137
032765
001403
104026
000137
032704
001457
052737
105737
00140
OgOI
032737
081603
104054
000137
004737

L 14
PAGE 182

sTEST WRITE LOCK ERROR

168:

045002
5003
501
5014
045016
045026
045030
045036
045040
045042
045050
045054
045060
045062
045064
045072
045076
045104
045106
045110
045114
8:51
5122
0451
5
51
Slgs
51
5152
045154
045160

BEQ
ERROR
JMP

10:53

14%:

005474

9559
9560
9561
956%
9563
9564
9565
9566
9567
9568
9569
9570
9571
9572
9573
9574
9575
9576
9577
9578
9579
9580
9581
9585
958
9584
9585

26-JUN-80

s TEST IF A SECOND LEVEL 2 ERROR
+HAS ALREADY OCCURRED

CZRONED RK611/06 SS ViY2
CZRONE .P 1"
26=JUN-80 10:48
9590

045164

004737

046514

9592
9593

045176
045200

001025
0137

003036

MACY11 30A(1052) 26=JUN-80 10:53
REPORT ERROR ROUTINE

9591 045170 032737 000400 005474
9594 045204 04 72
9595 045212 016

9596
9597
9598
9599
9600
9601
9602
9603
9604
9605
9606
9607
9608
9609

9610
9611
9612
9613
9614
9615
9616

045220
045226
045
045242
045244
045246
045252
045254
045260
045264
045%66
045274
045300
045302

045306
045314
045316
045320
045324
045330
045334

016237
013 37
03 6§
00134
104030
000137
104054
000137
032704
001457
052737
105737
001402
000137

032737
001403
104055
000137
004737
004737
032737

9617 &?? ygy
9618

9619

9620
9621
9622
9623
9624
9625
9626
9627

9628

9629

9630

9631
9632
9633
9634

5344

13702

045356
045364
045372
045400
045406
045410
045412
045416

016237
016237
016237
032762
001343
104031
000137
104055

065653

032704

045350

045420
045430

045432
045440
045444
045450

2762

000137

001430

000100 000000
000024

000024
000024
100000

001202

045652

288:

044176
000400

000004
003121
045652

000400
045652
047004
046514
000400

003036

000100

0000264
000026
000024
100000

298:

005474

51$:

318:
005474

000000

044176

000200
000002
000030
000027
177774

004737
032737
001065

042404
001000

005474

9641
964
9643
9644

045502
§510
045512
045516

042737
0004
032704
001435

000002

005474

045520

052737

B8IC

288
RKBAS,R2

#1E,RKCST1(R2)

(1F YES=GO MAKE ABREVIATED REPORT
*STORE MEADER 0 INTO REGISTERS

MOV
MOV
BIT
BNE
ERROR
JMP
ERROR
JMP
BIT
BEQ
BIS
1ST8
BEQ
JNP

BIT
BEQ
ERROR
JMP
JSR
JSR
BIT

005474

RKDB(R2) .$REG11
RKDB(R2) .SREG12
#CERR,RKCST1(R2)
7s
0
378
54
ERZENT
#HVRC R4
238
#HVRCER,RECODE
DERCNT
308
378

#LEV2ER,RECODE
31%
55
37%
PC.BLDEXH
PC .RDHDO
#LEV2ER,RECODE

BIC

#1E,RKCST1(R2)

BIT

BEQ

:GO MAKE 2ND LEVEL REPORT
:TEST IF HVRC ERROR

:TEST IF FIRST ERROR
*YES - REPORT
1JUMP TO RETURN

:TEST IF A 2ND LEVEL ERROR HAS ALREADY
:OCCURRED. NO=-SKIP EXIT
:GET OUT OF ERROR REPORT
GO BUILD EXPECTED HEADER
160 GET HDR 0
;TEST IF ERROR IN GETTING HDR

‘IF YES-GO MAKE ABREVIATED
REPORT

RKDB(R2) ,$REG10
RKDB(R2)
. SREG11
RKDB(R2) .SREG12
#CERR,RKCST1(R2)
518
"
378
55

:STORE OFF HEADER

ERZ2ENT

#BSE R4

338

JSR
BIT
BNE

PC,BOSRCK
#BADSEC ,RECODE
378

BIS

:MAKE OPI REPORT

:GET RK611 BASE ADDRESS

#BSERR,RECODE
P.DCYL(RS)
RO
P.DTS+1(RS),R1
077774 81

ERROR

;TEST I!F ERROR DURING STORAGE

RKBAS,R2

BIS
MOV
MOVB
BIC

BIC
BR
BIT
BEQ

:RESET INTERRUPT ENABLE

RKDB(R2) ,$REG10 :FOR REPORTING

328

JMP

SEQ 0181

ctévzea.aecooe STEST IF ERROR GETTING HDR

BNE

23%:

33¢:

100000

000020

BNE
MOV

MOV
BIC

5694
045470
045476

9645

:GET MEADER OF SECTOR 0

328:

005474

%
9638
9639

045500 10419‘

PC,RDHDO

MOV
MOV
MOV
BIT
BNE
ERROR
JMP
ERROR

9635 045456 016502 000026
96%9
5460 otzrg; 177740

9640

JSR

MOV

001202
001204
001206
000000

045652

052737
016500
116501
042701

30%:

PAGE 183

BIT

MOV

001204
001206
000000

M 14

P.DTS(RS),R2
#i77740,R3

104

#BSERR,RECODE
37%
#0CK R4
$

#OCKERR,RECODE

:CLEAR INTERRUPT ENABLE

;TEST IN ANY ERROR IN UNLOAD
1Y YES - GO MAKE SHORT REPORT
:MAKE FULL REPORT
:ABREVIATED HVRC ERROR RPORT

:GO REPORT 2Nb LEVEL ERROR
:TEST FOR BAD SECTOR ERROR

INO = SKIP

:SET ERROR FLAG
:GET CYL NO.
;GET TRACK NO.
SCLEAR ALL BITS EXCEPT TRACK

:GET SECTOR IN ERROR
*CLEAR ALL BITS EXCEPT SECTOR

GO SEE IF THIS SECTOR LISTED
:TEST RESULT
YES - EXIT, NO ERROR OR REPORT

*ELSE REPORT BAD BSE

:RESET BSE ERROR FLAG
160 EXIT
STEST IF DATA CHECK

;SET DATA CHECK ERROR IN RECOVERY CODE

)
!

CZR6NEO RK611/06 sS VEY2
CZR6NE .P11
26=JUN-80 10:48

S RE2N NECN ERsTAnaNmieatas

000100
000040
001206

005474

000001
003121

001206

046660
000060
000062
045652
040000
000200
000100
003121

34S$:
358:

001202
000020

36S$:

000014

000200

005474

000040

000014

000200

005474

004000

000014

000200

005474

000010

000014

#ECH, R4
348
#ECCNC,RECODE
$REG12
5%
#1,8REGT2
DERCNT
37%
PC,GTPKAD

;TEST IF ECC IS HARD. IF
:YES SET UNCORRECTABLE IN
;RECOVERY FLAG AND A 0 IN
;REG12 TO INDICATE UNCORRECTABLE,
:
IN REG 12 FOR CORRECTABLE

MOV
5::0R

P.EPAT(RS) ,SREG1T1 ;PATTERN
g;‘
;REPORT DCK ERROR

;TEST IF FIRST ERROR
:NO SKIP REPORT
:60 GET PACK ADDRESS OF ERROR

P.EPOS(RS) ,SREGID ;STORE ECC POSITION &
gggE.P.CSZ(RS)

;TEST WRITE CHECK ERROR

BIC
BIS

#ABORT ,RECODE
#UCERR ,RECODE

;CLEAR ABORT £ SET WRITE
;CHECK ERROR IN RECODE

BNE
JSR
ERROR

37%
PC,GTPKAD
33

'
:NO = SKIP
;GO GET ADDRESS OF ERROR
;REPORT WCE

37§:

BIT
BEQ
ERROR
BIS

#ODRVHRD ,P.PRST(R5) ;TEST HARD ERROR
43%
36
#ABORT ,RECODE

43$8:

gég

z2§VDSC.P.PRST(R5) sTEST STATUS CHANGE NOT CLEARED

ERROR
BIS

37
#ABORT ,RECODE

gég

zzgosc.r.vasr(RS) s1FST ATTENTION BUT NO FAULT OR DSC

ERROR
BIS

40
#ABORT ,RECODE

BIT

SFUEXATT,P.PRST(RS) ;TEST UNEXPECTED ATTENTION

ERROR
BIS

42
#ABORT ,RECODE

1STB

44S:

005474

N 14
PAGE 184

gé;

005474
005474

000020

10:53

BIT
BEQ
BIS
CLR
BR
MOV
1ST8
BNE
JSR

MoV

001204

046660

000200

26-JUN-80

REPORT ERROR ROUTINE

0
o

= 288 228% g

2 83
208
—-=N
N 283
NN

~
&
»

032704
001609
0527
005037
000403
012737
105737
001033
004737
016537
016537
104032
000137
032765
001414
0462737
052737
105737
001003
004737

2R2% 883 .
W

-~
N

§828828 3

9665

0455 g
0455
045534
045542
045546
045550
045556
045562
045564
045570
045576
045604
045606
045612
045620
0656§%
045630
045636
045642
045644

2RR RRRE
£ ge
v
NS
£ SN

9646
9647
9648
9649
9650
9651
9652
9653
9654
9655
9656
9657
9658
9659
9660
9661
9662
9663

MACY11 30A(1052)

46S:

BEQ

DERCNT

;TEST IF FIRST ERROR

ALLTRM

00 3036
000200

000012

000200

005474

83sous 8532

O0OO000

002630
044156
042700
000200

(o1 =)
&~

$s
S8

;ALL ERRORS MUST EXIT THROUGH THIS POINT

003046
003044

005474

ALLTRM: MOV

MoV

MOV

#PARMO,RS

;RESTORE PARAMETER BLOCK SELECTION

#ERRFRE ,A.NORM

;DRIVER OPERATIONS, IF ANY

#ERRHDL ,A.ABNL

BIT
BNE

#ABORT,RECODE
48%

“MOvV

RKBAS ,R2

BIT
BNE
gés

#RDY ,RKDS(R2)
47%
zsgokT.RECODE

;RESTORE INTERRUPT VECTORS FOR RETRY
;IF ABORT IS NOT SET AND
;THE DRIVE IS READY (HAS NOT
sCYCLED DOWN)
:GET BASE ADDRESS

;TEST IF DRIVE READY SET
;RECALIBRATE REQUIRED BIT IS SET
;ELSE ABORT WITH ABORT MESSAGE

SEQ 0182

CIR6NED RK611/06 SS ViY2
CZRONE .P11
26=JUN-80 10:48

032737
001443

iz~ea~

v8°°
N —

N =N
-~
w
~ N~

004000

005474

000113

000001
003046

000137

47%:

005474
(88:

003130
003126
017272

10:53

B 15
PAGE 185

SEQ 0183

BIT
BEQ
MOVE
MOV
JSR

#RCLREQ,RECODE
BGNRTY
#RECAL,P.CMND
#RETANL
,A. ABNL
PC,DRVCAL

;IF RECALIBRATE IS REQUIRED
:FOR RETRY SET UP PARAM
:BLOCK TO DO IT.

BIT
BEQ
BIS
ERROR
JMP

#LEV2ER.RECODE
BGNRTY
#ABORT ,RECODE
60
ER2ENT

:IF AN ERROR OCCURRED IN THE
TRECAL ATTEMP SET ABORT,
:PRINT THE RECAL ERROR MESSAGE, AND
160 REPORT DETAILS

MOV

003046
005474
000200

26-JUN-80

REPORT ERROR ROUTINE

044176

ERROR

CLRB
CLRB
JMP

#ERRWOL ,A.ABNL

DRVERS
ERRCNT
NEWDRV

;RESTORE ERROR RETURN

:REPORT ABORT=-RETRY FAILED

:CLR DRV ERR CNT
;TEST NEXT DRV

:THE PROGRAM WILL WALT HERE IF THE ABORT FLAG HAS BEEN SET OR
;1F THE DRIVE READY BIT IS RESET.
000005
000000
105037
000005
000137

HLTPRG: RESET
HALT

CLRB

003126

RESET
JMP

013350

ERRCNT

.
CMSTRT

;DISABLE ALL DEVICES
sHALT THE CPU

;CLEAR ERROR COUNT

;RESET ALL DEVICES

;THE FOLLOWING CODE WILL DETERMINE IF AND DATA TYPE ERROR
sHAS OCCURRED. IF YES, THE RETRY IS NOT DONE HERE BUT RETURNS TO

: THE INITIATING ROUTINE FOR RETRY.

ANY OTHER ERROR IS TO BE

;RETRIED HERE. IF RETRY IS UNSUCCESSFUL AFTER & ATTEMPTS, THE ABORT
;FLAG IS SET AND PROGRAM HALTS.

VAVAWAWY

NN S NN

NINO
N
NN
OOOO
NN NNNY—WO~

—~O000

BEQ

lgSERR!HVRCER!OPIERR!DCKERR!UCERR.RECODE sTEST IF ANY DATA ERROR
3

B8R

000136

005474

BGNRTY: BiT

100000

005474

98:

003142
001000

005474

003127

222822 =g8:828
5
oguo
NNNNS

105737

— biib

046026
0460
0460
066044

O0O0O0O00O

970%
970
9704

MACY11 30A(1052)

003126

001174
005474
000001

1$:

8IS

#ANYDER, RECODE

TSTB
BNE
BIT
BNE
CMPB
BNE
CLR
MOVB
ERROR
BIS

NORTRY
9%
#BADSEC,RECODE
28
ERRCNT,ERRLMT
1%
$REGS
ERRCNT,SREGS
102
#ABORT ,RECODE

;SEE IF ''NO-RETRY'' FLAG SET
:BR IF YES
:TEST IF BAD SECTOR FLAG SET
S1F YES=EXIT TO CALLER
:BEGIN RETRY IF ERROR COUNT HAS
:NOT BEEN EXCEEDED

JSR
MOV
MOV
MOV
MOV
MOV

PC,DRVCAL
#COMSTR,RO
(RO)+, (RS)+
(RO)+, (RS)+
(RO)+. (R5)+
(RO)+, (RS)+

;G0 DO IT
:GO AND REESTABLISH THE COMMAND
tAS IT WAS ENTERED INTO THE
:PARAMETER BLOCK

B8R
MOV
MOVB

:GET ERROR RETRY COUNT
*REPORT RETRY UNSUCCESSFUL
;SET ABORT & QUIT

HLTPRG
RKBAS,R2
-GET RK BASE ADDRESS
#SUBCLR,P.CMND(RS) ;SET UP TO CLEAR SUBSYSTEM

CZRONED RK611/06 $S ViY2

CIRONE.P11
9758

26-JUN=-80 10:48

MACY11 30A(1052)

012025

76 012705 002630

9761

046

012737

9763
;;gg

046312
046314

104410
000207

9767

046316

152737

9769
9770
9771
9772
9773
977‘
9775

046332
046334
046342

000207
152737
000207

000000

975; oabsog 004737 042510

9766

000377

177776

9781

PC,DRVCAL

RESREG
RTS

#PRO,30PSW

:LOWER PRIORITY TO ALLOW INTERRUPT

*IF RETURN GETS HERE, NO ERROR
:OCCURRED, RECOVERY WAS SUCCESSFUL

:CALL DRIVER

#377,DONE

;SET DONE

003123

RTS
RETNML: BISB
RTS

PC
#377,DONE
PC

;SET DONE

BIS

OLEVéEfl.RECODE

:SET LEVEL TWC ERROR

:*THIS ROUTINE SUPPORTS THE ERROR MANDLER BY PROCESSING TIME OUT STATUS
:*GATHERING DUTIES.

04634é
046344

046346

:;'t'..'t.."t"""""""t"""'"Qlt..""t'..'tt'"tt.'tt'.

T0PROC:

104407
013702

003036

SAVREG
MOV

000000
000010
00020
000006
000002
000004

MoV
MOV
MOV
MOV
MOV
MoV

MOV
MOV
CLR

001174

9783
9784
9785
9786
9787
9788

046356
046362
8:23?3
046376
046402

016221
016221
816%%1
16221
016221
016221

9790
9791
9792
9793
9794
9795

046412
046416
046422

016221
016221
005000

000012
000014

046426

012705

002714

9799
9800

046450
046452

001403
052737

9789 046406 016221

000016

9796 046430 112765 000141 000001
9797 046436 004737 042510
9798 046442 032765 000100 000014
046460
046464
066‘?6
046470
046472
046476

062705
012521
012521
012521
012521
012521

002000
000040

9808
gggg

046500
066502

012521
012521

9811

046504

012705

066510
046512

104410
000207

005474

csaec§.a1

MOV

RKASOF (R2), (R1)+

002630

RKDS
(R2) , (R1)+
. (R1)+
RKER(R2
RO

#PARMT RS

BEQ
BIS

ADD
MoV
MoV
MOV
MOV
MOV

18
#TVOTOS,RECODE
#P.A00,RS
(RS)+,(R1)+
(RS)+,(R1)+
(R5)+.(R1)+
(RS)+,(R1)+
(RS)+,(R1)+

MOV
MOV

(R5)+. (R1)+
(R5)+.(R1)+

RESREG
RTS

:SET UP R1 FOR RK REGISTER STORAGE

RKCS1(R2),(R1)+ ;STORE ALL VALID RKk611
RKCS2(R2),(R1)+ ;REGISTERS
RKDC
(R2) , (R1)+
RKDA(RZ) . (R1)+
RKWC
(R2) . (R1)+
RKBA(R2) ,(R1)+

MOV

MOVB
JSR
BIT
1%:

RKBAS,R2

MOV

9807 046476 012521
901;
9813

JSR

(RO)+ . (R5)+

.
::"Q".Q'.".'Q""""'t""QtQ'Q'Q""tt".""""'.'t"""Q
LSBTTL TIME OUT PROCESSOR ROUTINE

9782 046352 012701

9801
9802
9803
9804
9805
9806

#PARMO
RS

PAGE 185

RETANL: BISB

9777

9779
9780

MOV

C 15

003123

9776

977'

(RO)+, (RS)+

MOV
28:

10:53

MOV

9768 0463264 052737 000400 005474
000377

REPORT ERROR ROUTINE

9759 04 7g o1§o 5
9760

26-:%-80

:THIS CODE WILL ATTEMPT TO
:RETRIEVE THE STATUS FROM THE
:DRIVE.
SET UP TO USE PARM1

ORDSTAT.P.CHND(Rg) :D0 READ DRIVE STATUS COMMAND
PC,DRVCAL
;CALL DRIVER
OCHDIO.P.PRST(RSS sTEST FOR TIMEOUT
;NO = SKIP
-SET TWO TIMEOUTS FLAG

:BUMP RS TO POINT TO DRIVE STATUS
:MOVE ALL THE DRIVE STATUS INTO THE
sTEMP REGS FOR REPORTING.

(RS)+. (R1)+

#PARMO RS
PC

:RESTORE PARM 0

SEQ 0184

CIR6NED RK611/06 S ViY2
CZR6NE .P11
26-JUN-80 10:48

MACY11 30A(1052)

26-JUN-80

10:53

TIME OUT PROCESSOR ROUTINE

D 15
PAGE 187

9815
srhtttttRAtRRRRARRRREREROCRROCCRRRRRRRRRRRRRRRORNRORARRCQORORRCRROCOTCTTS

"SBTTL

READ HEADER 0 ROUTINE

:;""'.'.'Q.Q.""""".""""".'Q'."."'Q.'Q"Q"'Qt"""

RDHDO:

982%
9823

9826

066516
046522

046526

016501
016500

042700

000026
000052

9844
9845

0666364
046642
046650

020006
000200

000020
003125
002630

:OFF UNUSED BITS AND POSITION
‘FOR USE AS THE DESIRED
:CYLINDER IN THE READ
*HEADER COMMAND.
:SET UP TO USE P.B. 1
:INSERT TRK,SECT FOR READ HDR
:SET CYL NO.

#PRO,3FPSW
PC,DRVCAL

sALLOW INTERRUPTS
:CLEAR THE S.S.

PC,DRVCAL

;00 READ HEADER

#B177,(R2)
4%

;CHECK FOR C. READY IN CS1
:BR IF NOT RDY YET

6%:

000007
000007

HOLD3, (R2)

HOLD4, (R2)

BEQ
BICB
BISB

MOV
RESREG
RTS

9848
9849

9850

9851
9852

:FROM THE DRIVE STATUS. CLEAR

#ROWEAD,P.CMND
(RS) ;SET READ HEADER (OMMAND
4

013712
03271;
00177
142765
153765
012705

RO
RO
RO
RO
SPARMT RS
R1,P.SECT(RS)
RO.P.CYLN(RS)

#SUBCLR,P.CAND(RS) ;SET S.S. CLEAR CMND

000001

046622

;STORE TRACK AND SECTOR
:GET THE CYLINDER ADRS

#160017,R0

160017

000001
177776

9840

P.DTS(RS),R1
P.B10(RS) RO

#B117,(R2)
6$

sISSUE RD HDR WITH FMT BIT = 0
;ISSUE RD HDR WITH FMT BIT = 1
;CHECK FOR C. READY IN (S1
:BR IF NOT RDY YET

#B.CFMT,P.CSIH(RS) ;CLEAR THE FORMAT BIT

FORMAT,P.CSTH(RS) ;RESTORE TYPE AND FMT IN USE
#PARMO RS
;RESTORE P.B. 0 ADDRESS
PC

;RESTORE RO-RS
;RETURN

sogttttRANARRRRCERTERERRERRCERRRRRRRRRRRRRARRRRNRANCERARRORRRNARRONRONORROROTRTTSE

"SBTTL

9853
9854
9855
9856
9857
9858
9859

046660
04
046672
046676
046704
046712

016537
005037
005037
116537
116537
005737

9861
906§
9863
9864
9865
9669
9867
868
9869

046716
046720
046726
046726
046734
046736
0466744
046746
046754

001403
005337
000426
032765
001404
012737
000403
012737
005737

GET PACK ADDRESS ROUTINE

soptttteRRRdARAt Rt R RRRRRECERERROROROERRARARRRRRROARRRRARNORRRRRNRCQRROROTRETY

000030
001176
001200
000026
000027
001200

001174

GTPKAD: MOV

CLR
CLR
MOV8
MOvVB
TsT

001200
001176

P.DCYL(RS),SREGS ;GET CYLINDER NUMBER
;CLEAR REGISTERS FOR
$REG6

$REG7
:TRACK & SECTOR STORAGE
P.DTS(RS),SREG7 :STORE THE TRACK AND SECTOR

P.DTS+1(RS), SREGH

SREG7
1%

001200
010000

000016

000023

001200

000025
001176

001200

1%:

$REG?
5%
5&!!1.?.(51(?5)
0;9..$REG7

2%:
bi E

#21. ,$REG?

$REG6

;ADJUST THE ADDRESS CONTAINED IN

;THE RK REGISTERS FOR THE AUTOMATIC
: INCREMENT

SEQ 0185

CIRGNED RK611/06 $S ViY2
CIRONE.P11
26=JUN-BO 10:48
9870
9871
9872
9873
9874
9875
9876
9877
9878
9‘79
9880
9881

046760
046762
046766
046770
046776
047002

001403
005337
000405
012737
005337
000207

MACY11 30A(1052) 26-JUN-80 10:53
GET PACK ADDRESS ROUTINE

001176
000002
001174

001176

58:

:+USES DESIRED CYLINDER, TRACK AND SECTOR REGISTERS TO DETERMINE

:*WHICH HEADER WAS EXPECTED. LOADS EXPECTED VALUES IN SREGS, 6, AND

9883

:+7 FOR REPORTING.

9‘“

9905

43
$REG6
5%
#2,SREG6
$REGS
PC

:;'..""'..""."""""'"'.""'Q"""."'.'.'Q"'."""'.
.SBTTL BUILD EXPECTED WEADER

9882

9885
9886
9887
9888
9889
9890
9891
9892
9893
9894
9895
9896
9897
9898
9899
9900
9901
9902
9903
9904

4$:

BEQ
DEC
BR
MOV
DEC
RTS

E 15
PAGE 188

;:""".'Q'.""t."'."t"""'."".'.""t"..CQ'QQ'Q..'."Q'

047004
047006
047014
047020
047024
047026
047030

047032
047040
047046
047052
047060
047066
047070
047076
0471064
047110
047116
047122

047126
047130

104407
016537
016501
042701
006201
006201
006201
!
016537
042737
060137
052737
032765
001403
052737
013737
013701
043737
043701
050137

104410
000207

000030
000026
174377

001174

000026
177740
001176
140000
010000

001176
001176

001000
001174
001176
001176
001174
001200

001176
001200

BLDEXH: SAVREG
MOV

MOV
BIC
ASR
ASR
ASR

001176
000016

001200

23$:

MOV
BIC
ADD
BIS
BIT
BEQ
BIS
MOV
MOV
BIC
BIC
BIS

RESREG
RTS

P.DCYL(RS),SREGS ;CONSTRUCT EXPECTED WDR
P.DTS(RS),R1 ;DESIRED CYLINDER & DESIRED TRACK
#176377,R1
:CLEAR ALL BUT TRACK BITS
R1
SAND SECTOR. SHIFT THE TRACK
R1
:OVER TO CONFORM TO HEADER FORMAT
R1
*CHECK THE FORMAT BIT AND
IF SET, SET THE HEADER FORMAT
P.DTS(RS),SREG6 :BIT.
#177740,8REG6
:CLEAR ALL BUT SECTOR
R1,$REGH
*ADD TRACK AND SECTOR TOGETHER
#140000,$REG6 : INSERT BSE BITS
#CEMT,P.CST(RS)
23%
#1000, SREG6
$REGS, SREG7
:COMPUTE THE HEADER VRC
S$REG6
. R
$REG6
., SREG7
SREGS,RI
R1,SREG7
PC

SEQ 0186

CIRG6NED RK611/06 35S Vi Y2
CZR6NE .P11
26-JUN-80 10:48

F 15

MACY11 30A(1052) 26-JUN-80 10:53 PAGE 189
RK611/RK06-RKO7 UNIBUS DRIVER FOR SEQUENTIAL OPERATIONS (REV. 0.10)

9908

LSBTTL

9910
9911
9912

;*COPYRIGHT (C) 1975,1976,1977
'DlGlTAL EOUIPHENT CORP.
'HAVNARD
.
01754

gg}z

LSBTTL

9917

RL
L L
L
R A R
L)

gg}z

RKO611/RK06-RK07 UNIBUS DRIVER FOR SEQUENTIAL OPERATIONS (REV. 0.10)

:'AUTNOR: ROY SPITZER

9918
9919
9920
9921
9922
9923
9924
9925
9926
9927
9528

:®
'
e
L
:®
i
.t
s®
ot
o
ot

gggg

;o
b

9931
9932
9933

i
i
i

gggg

ot
ot

FOR QUEUED OPERATIONS THE WATCH-DOG TIMER WILL
WATCH UP TO 8 OPERATIONS SIMULATEOUSLY. FOR SEQUENTIAL

9940

gggg

THE WATCH=DOG TIMER DOES A PSEUDO-TIMING OF RKO6-RKO7 UNIBUS
SUBSYSTEM COMMAND. SINCE ONE CAN NOT GUARANTEE THAT A
REAL-TIME CLOCK (KW11=P OR KW11=L) IS ON THE SYSTEM
THE RKO6-RKO7 DRIVER WILL USE THE LOCATION W.MTIM FOR
MILLI=-SECOND TIMING. WHEN W.MTIM REACHES ZERO THE
WATCH=-DOG TIMER WILL SCAN THE DRIVES IN USE AS
DETERMINED BY THE LOCATION W.TIME. THE TIMER COUNTS
(ONE FOR EACH DRIVE) ARE KEPT IN THE TABLE W.DRV.
IF ANY COUNT IN THE TABLE W.DRV REACHES ZERO A COMMAND
TIME-OUT WILL BE DESIGNATED IN THE PROGRAM DEVICE STATUS
THE DRIVER WILL USE THE LOCATION W.MIN AS THE NUMBER
OF MILLISECONDS FOR AN UNLOAD OR START SPINDLE COMMAND.
THE DRIVER WILL USE THE LOCATION W.SEC AS THE TIME
LIMIT FOR ALL OTHER COMMANDS.

]

9936
9937

*WATCH=-DOG TIMER

;*CALL

OPERATIONS ONLY ONE OPERATION WILL BE WATCHED.
JSR

PC,W.WTCH

IF NO DRIVE ORDER EXCEEDED ITS TIME LIMIT

gg:}

RETURN

9943
9944
9945

M
M
ot

OTHERWISE AN ABNORMAL RETURN TO THE ROUTINE ADDRESS
BY LOCATION A.ABNL WILL OCCUR AND THE CMDTO FLAG
IN THE PROGRAM DEVICE STATUS REGISTER OF THE

gg:g

:®
W

9948

9949

9950

9951
9952
9953
9954
9955
9956

:IR
047132

047134
047136
047140
047142
047146
047152

010546

:
177776
003056

9958
9959

047162
047166

105737
001426

003100

9962
9963

047202
047206

005337
001016

003114

047170
047176

013737
013702

R AN R RN R R R RN

W.WTCH: MOV

010446
010346
010246
013746
005337
001034

9957 047154 013737 003060 003056
9960
9961

APPROPRIATE PARAMETER BLOCK WILL BE SET.

003042
003036

177776

MOV
MOV
MOV
MOV
DEC
BNE

MOV

1ST8
BEQ

MOV
MOV
DEC
BNE

R RN R RRRRARR RO R RO

RS,=-(SP)

sSAVE RS ON THE STACK

W.MILI,W.MTIM

:REINITIALIZE MILLISECOND TIMER

R4 ,-(SP)
R3,-(SP)
R2,=(SP)
P..=(SP)
W.MTIN
20%

W.TIME
20%

RKPRI,PS
RKBAS ,RZ

W.DRV
20%

sSAVE R4 ON THE STACK
:SAVE R3 ON THE STACK
SAVE R2 ON STACK
SAVE PROGRAM STATUS WORD ON STACK
DECREHENT MILLISECOND TIMER
+1F NOT ZERO RETURN

sCHECK IF DRIVE IS BEING TIMED
:NO, RETURN

LOCK OUT RKO6-RKO7 INTERRUPTS
;LOAD BASE OF RK06-RKO7 REGISTERS
DECREHENY COMMAND TIMER
:RE!URN IF NO TIME OUT

SEQ 0187

CZR6NED RK611/06 55 ViY2
CZR6NE .P11
26=-JUN-80 10:48
047210
067214

105037

013705

003100
003112

047220
047226

052765
020537

000100
003054

047232

001002

005037
004737
012637
012602
012603
012604
012605
000207

MACY11 30A(1052)

26=JUN-80

*WATCH-POG TIMER

CLRB
MoV

000014

BIS

(MP

10:53

W.TIME

PBLKT,RS

003054
052514
177776

5$:
208:

CLR
JSR

MOV
MOV
MOV
MOV
MOV
RTS

0.WAIT

PC,R.ABNL
(SP)+,PS

PAGE 190
;RESET TIMING INDICATOR

;LOAD ADDRESS OF PARAMETER BLOCK
TABLE FOR INDEXING

;CHECK IF DRIVER IS WAITING FOR
: COMMAND COMPLETION
:NO, DO NOT ALTER WAITING FOR
COMMAND COMPLETION
:
:CLEAR WAIT FOR COMMAND COMPLETION
:BRANCH TO ERROR ROUTINE
:RESTORE PSW

(SP)+,R2
(SP)+,R3

;RESTORE R2

(SP)+,RS

;RESTORE RS

(SP)+,R4

6 15

#CMDTO,P. PRST (RS ;SET COMMAND TIME OUT
RS,0.WAIT

;RESTORE R3
;RESTORE R4
;RETURN

SEQ 0188

—

————

CZR6NED RK611/06 S ViY2
CZRONE .P1
26-JUN-80 10:48

MACY11 30A(1052)

26=-JUN-80

10:53

H 15
PAGE 191

SEQ 0189

*RK06 INTERRUPT SERVICE ROUTINE

.SBTTL

*RKO6 INTERRUPT SERVICE ROUTINE

RN AR RN R R R R RN R R C R R R RN E RN RN AR

RN NRRNNRR AR

CONOROOS

THIS ROUTINE WILL SERVICE ALL RKO6 INTERRUPTS.

*
*®
]

UPON RECEIVING AN INTERRUPT, THIS ROUTINE WILL
PERFORM ONE OF THE FOLLOWING SERVICES:

2.)
2.

1.)

*
L 4

s. )

SERVICE PORT WAS SEIZED BY OTHER PORT

SERVICE DRIVER IS WAIT FOR COMMAND COMPLETION
SERVICE POSITIONING COMPLETION

REQUEUE COMMAND IF DRIVE WAS RELEASED
FOR THE QUEUED RKO6 DRIVER.

IF NO SERVICE IS REQUIRED, THE COMMAND WILL BE ISSUED

FOR THE QUEUED Rx06 DRIVER.

.
*
W

THREE LINKS ARE PROVIDED TO THE DRIVING PROGRAM,
THEY ARE:

v
i

L]
*

g
W

fl“ddd‘ddddddddd—.ddddddfld—ld

8883883 22I233333238888888888
NORORIROIND
RO PNIRI N = b b b b b b b b =
w
2O VB NOWVSWNN=O
RFUR2E3 ONOWVESWN

10008

L ]

1.) A.NORM ADDRESS OF NORMAL RETURN (SUCESSFUL COMPLETION OF COMMAND)

2.) A.ABNL ADDRESS OF ABNORMAL RETURN (UNSUCESSFUL COMPLETION OF COMMAND)
3.) A.CONT ADDRESS OF CONTROL ERROR RETURN

FOR NORMAL AND ABNORMAL RETURNS, THE ADDRESS OF THE APPROPRIATE
PARAMETER BLOCK WILL BE IN RS.

FOR THE CONTROLLER ERROR RETURN, THE LOCATION E.CONT CONTAINS
THE REASON FOR THE CONTROLLER ERROR.

ROUTINES USED:

C.OPT

Q.PUSH
Q.RMOV
R.CONT
R.NORM

*
*
*
L]

(QUEUED ONLY)

(QUEUED ONLY)
(QUEUED ONLY)
(SEQUENTIAL ONLY)
(SEQUENTIAL ONLY)

R.ABNL (SEQUENTIAL ONLY)
1.CSTS
1.SYAY
1.1SSU
1.CCLR

:&
:®
23
:.
:"

;:."t..l'.".""'."""C".'t"'.'..'t."..".'...t'O'tt"'.tt

1.INTR: MOV

RS,=(SP)

MOV
MOV
MOV
MOV
MOV

Ré . -(SP)
R3.-(5P)
R2.=-(SP)
R1.=(SP)
RO.=-(SP)

BIT

#MDS,1.C58

MOV
MOV
BEQ
BIS
JSR

:STORE RS ON THE STACK

“STORE R4 ON THE STACK
:STORE R3 ON THE STACK
:STORE R2 ON THE STACK
*STORE R1 ON THE STACK
:STORE RO ON THE STACK

*LOAD R2 TO ADDRESS RKO6 REGISTER
RKBAS ,R?
RKCS2(R2),7.CS2 :STORE (S2
1$

#E.MDS,E.CONT
PC,R.CONT

*CHECK IF MULTIPLE DRIVE SELECT
CONTINUE PROCESSING
;SET MULTIPLE DRIVE SELECT
;REPORT ERROR

:*NO,

CIR6NED RK611/06 3S ViY2
CZR6NE P11
26=JUN-80 10:48

000137

051512

105737

003074

115
MACY11 30A(1052)
26=JUN-80 10:53 PAGE 192
*RKO6 INTERRUPT SERVICE ROUTINE
JMP

1.RTRN

:RETURN

TSTB
BEQ
BM]
CLRB

I.ISRL
1
5%
I.ISRL

:CHECK IF INTERRUPT OR RELEASE

1.100

: CONT INUE PlOCESSlNG INTERRUPT

5%:

CLRB

I.ISRL

:CLEAR FLAG

€S:

BIT

#NED!UFE,T.CS2

BEQ

;CHECK FOR NON-EXISTENT DRIVE OR
: UNIT FIELD ERROR
;NO, WAIT FOR DUAL ACCESS INTERRUPT

1%:

003074

8882888838883
SERERERRRALS g g

10061

‘NO, CHECK IF DRIVE AVAILABLE
:CHECK IF RELEASE COMMAND
SYES,CLEAR FLAG

105037

000137

003074
050474

047364

032737

010400

047372
047374
047400
047404
047410
047416

001413

047422
047430

016237
032737

047436

00i041

047440

032737

164000

003002

;CHECK IF ANY DATA TRANSFER ERROR EXISTS
BIT
#DLT!WCE!UPE!NEM,T.CS2

047446
047450

001007
016237

000014

003016

BNE
MoV

047456

032737

125700

003016

(HECK FOR DATA TRANSFER ERROR TYPE ERROR
#OCK'!OPI'WLE'!COE'HVRC!BSE'ECH,T.ER
BIT

047464

001407

047466
047474
047500

052737
004737
000137

003002

MOV

003002

177770

003112

000012
000001

003052

105037

005037
013705

T.CS2,R4
#*C<DRVMSK>
R4

JMP

[.ERRC

MOV
MOV

003000

003020
003020

BIC

7%:

000137

050474

013704

003002

;STORE PARAMETER BLOCK ADDRESS
;LOAD TEMPORARY (CS1 FOR STATUS REPORT

;REPORT ERROR

RKDS(R2),T.DS
#DRA,T.DS

;STORE STATUS REGISTER FOR COMPARISON
'CflgggrlF DRIVE SEIZED BY OTHER

BNE

1.100

sNO, CONTINUE PROCESSING INTERRUPT

108
RKER(R2) ,T.ER

;INDICATE ERROR
;STORE ERROR REGISTER

:NO, WAIT FOR RELEASE OF Rx06 DRIVE

108:

BIS
JSR
JMP

#E.UDAT E.CONT
PC,R.CONT
1.RTRN

;SET UNEXPECTED DATA TYPE ERROR
;REPORT ERROR
;RESTORE REGISTERS

11%:

CLRB
CLR

W.TIME
W.DRV

sRESET TIMING ON THIS DRIVE
;CLEAR TIMING COUNT FOR THIS DRIVE

81S

toavszo.p.past(n§>;SET DRIVE SEIZED IN THE

CLR
JSR
JMP

0.WAIT
PC,R.ABNL
1.RTRN

MOV
BNE

0.WAIT,RS
2%

;1S COMMAND WAITING PROCESSING

JMP

[.ATTN

iNO, PROCESS ATTENTION

MoV

T.CS2,R4

003054
052514
051512
003054

;KEEP DRIVE BITS

BEQ

000014

013705
001002

;:LOAD R4 FOR DRIVE NUMBER

MOV
BIT

MoV

052765

PBLKT,RS
RKCS1(R2),T.CS1

;G0 PROCESS DRIVE ATTENTIONS

1.100:

2%:

PBLKT,RS

LOAgoggsngH PARAMETER BLOCK

: PROGRAM DRIVE STATUS REGISTER
SCLEAR WAIT FOR COMMAND COMPLETION
:INDICATE ABNORMAL TERMINATION
160 RESTORE REGISTERS

:LOAD PARAMETER BLOCK ADDRESS INTO RS
:

YES, DO PROCESSING

;STORE RKCS2 FOR DRIVE NUMBER

SEQ 0190

CIR6NED RK611/06 35S ViY2
CZRONE .P11
26-JUN=-80 10:48

J 15
MACY11 30A(1052) 26-JUN-80 10:53 PAGE 193
*RK06 INTERRUPT SERVICE ROUTINE

SEQ 0191

}883

047560

0427064

177770

BIC

#*C<DRVMSK>
R4

:MASK OUT UNNECESSARY BITS

1009
10095

047564

126504

000000

CMPB

P.DRVN(RS),R4

:CHECK IF DRIVE NUMBER IS EXPECTED

122765

000164

CMPB

#RDALMD,P.CMND(RS) :CHECK IF READ ALL MEADERS

JMP

1.HDAL

10096
10097

047570
047572

001401
000000

10099

047602

001002

000137

050142

10102
10103
10104
10105
10106
10107
10108
10109
10110
10111
}8}15

047610
047614
047620
047624
047632
047640
047642
047650
047656
047660
047664

005037
005037
105037
016237
032737
001021
016237
133737
001004
004737
000137

003054
003114
003100
000000
100000

003000
003000

000016
003101

003014
003015

}8}12

047670

052765

000010

10116

047676

004737

052162

10119
10120
10121
10122
10123
10124

047704
047712
047716
047726
047732
047736

013765
004737
016265
016265
004037
051512

003000
052204
000032
000030
051530

10127
10128
10129
10130
10131
10132
10133
10136

047746
047750
047754
047756
047764
047770
047772
050000

001046
004037
051512
112737
004037
051512
133737
001407

10137
}8333

050010
050014

004737
000137

052540
051512

10140
10141

050020
050026

032737
001403

040000

10144

050044

001407

10149
10147

050054
050060

004737
000137

10098 047574
}8}8?

}8}};

047604

047702

000405

000001

000014

000062
000060

000005
051612

003000

003101

003015

BIS

FUEXATT,P.PRST(RS) :SET UNEXPECTED ATTENTION

1.ERRA: JSR

PC,1.CSTS

I.ERRC: MOV
JSR
1.ERR: MOV
MOV
JSR
1.RTRN

T.CS1,P.CS1(RS) ;GET ERROR RKCS1
PC,1.CST1
‘GET REST OF CONTROLLER STATUS
RKECPT(R2),P.EPAT(RS) ;STORE ECC PATTERN
RKECPS(R2) .P.EPOS(RS) :STORE ECC POSITION
RO,1.CCLR
:CLEAR CONTROLLER
“ERROR RETURN

BIT

2%:

1.ERR

;STORE CONTROLLER STATUS

*STORE PATTERN AND POSITION INFORMATION-

#NED'UFE.P.CS2(RS) :CHECK IF IT WAS NON-EXISTENT DRIVE OR
:

UNIT FIELD ERROR
:YES, REPORT ERROR
:GATHER DRIVE STATUS
:ERROR RE TURN
#DR.CLR,T.CS1
:LOAD COMMAND
RO,1.1SSU
:ISSUE DRIVE CLEAR
*ERROR RETURN
INTMSK,T.ASOF+1 :CHECK IF ATTENTION RESET
2%
:NO, INDICATE DRIVE ERROR

BNE
JSR
1.RTRN
MOVB
JSR
1.RTRN
BITB
BEQ

5%
RO,1.STAT

#E .CLAT,E.CONT

:sezl¢gtgrg{gu DID NOT RESET

JSR
JMP

PC,R.CONT
1.RTRN

*REPORT CONTROLLER ERROR
160 RESTORE REGISTERS

BIT
BEQ

#5S.0SC,T.MR2
3%

:CHECK IF DRIVE STATUS CHANGE CLEARED
"YES, CHECK FAULT

*NO,

PC.R.CONT
1.RTRN

SINDICATE CONTROLLER ERROR
*RETURN

BIS

101‘§ 50030 oszrgs 000040 000014
10143 050036 032737 001000 003026 3$:

10145 050046 052737 002000 003052

16O EXECUTE SPECIAL MEADER SEQUENCE

15%8:

}8132 050002 052737 000020 003052

003024

:NO, EXECUTE NORMAL DATA TRANSFER

0.WAIT
:CLEAR WAIT FOR COMMAND COMPLETION
W.DRV
:CLEAR WATCH=-DOG TIME
W.TIME
SRESET TIMING ON THIS DRIVE
RKCS1(R2),T.CS1 :STORE COMMAND AND STATUS REGISTER 1
#CERR,T.CS1
:CHMECK IF CONTROLLER ERROR
1.ERRC
:YES, PROCESS ERROR
RKASOF
(R2) ,T.ASOF ;STORE ATTENTION SUMMARY
INTMSK,T.ASOF+1 ;CHECK IF DRIVE ATTENTION SET
158
:YES, REPORT ERROR
PC,R.NORM
:INDICATE NORMAL RETURN
1.RTAN
:RESTORE REGISTERS

000016

108

:YES, CONTINUE
*NO, DRIVER ERROR

CLR
CLR
CLRB
MOV
BIT
BNE
MOV
BITB
BNE
JSR
JMP

052266

052540
051512

BNE

108:

052526
051512

10125 047740 032765 010400 000020
10126

38:

BEQ
HALT

BIS
BIT

BEQ

BIS

JSR
JMP

#ORVDSC,P.PRST(RE) ;SET DSC DID NOT CLEAR
#S.PAR,T.MR3
:CHECK IF DRIVE PARITY ERROR

#E.DPAR,E.CONT

INDICATE ABNORMAL TERMINATION

:SET DRIVE PARITY ERROR

K 15
10:53 PAGE 194

CZR6NED RK611/706 3S viYve
CIRONE.P11
26-JUN-80 10:48

MACY11 30A(1052) 26-JUN=-80
*
“"«RK06 INTERRUPT SERVICE ROUTINE

10148
10149
10150

000020

000014

003024

10151
1o1s§

50064
050072
050074
050102

032765
001017

032737
001413

020000

10155
}3139

050120
050126

013737
000137

003064
051512

10158

050132

004737

052514

S%:

050136

000137

003114

051512

}8}2}

#ORVHRD ,P.PRST(RS) ;CHECK IF HARD DRIVE ERROR
108
:YES, GO REPORT ERROR

BIS
MOVB

IE.UNLD.P.PRST(Rs) :SET DRIVE UNLOADING
INTMSK ,W.TIME
:SE? UP 8 SECONDS FOR DRIVE TO CYCLE uP

BIT
BEQ

101§ 050104 05%765 020000 000014
10154 050112 113737 003101 003100

}8}28

BIT
BNE

MOV

JNP

#S.PIP,T.MR2
108

W.8SEC.W.DRV

1.RTRN

:60 RESTORE REGISTERS

PC,R.ABNL

:GO REPORT ERROR

JSR

SBTTL

*READ ALL HEADERS INTERRUPT SEQUENCE

1.RTRN

:GO RESTORE REGISTERS

}8}22

050142

016237

000000

003000

I.HDAL: MOV

10165

050150

032737

100000

003000

BIT

#CERR,T.CST

sCHECK !F CONTROLLER ERROR

10168
10169
10170
10171
10172
10173
10174
10175

050160
050164
050170
050174
050202
050206
050212
050214

005037
105037
005037
013765
004737
004037
051512
0067;7

003054
003100
003114
003000
052204
051530

CLR
CLRB
CLR
MOV
JSR
JSR
1.RTRN
JSR

0.WALT
W.TIME
W.DRV
T.CS1,P.CS1(RS)
PC,I1.CST1
RO,1.CCLR

:CLEAR WAITING FOR COMMAND COMPLETE
:RESET TIMING ON DRIVE
:CLEAR TIME OUT COUNT
;STORE ERROR RK(CS1
sSTORE CONTROLLER REGISTERS
*CLEAR CONTROLLER
sERROR RETURN
sINDICATE ERROR RETURN

10178
10179
10180
10181
10182
10183

050224
050232
050240
050242
050246
050252

016237
133737
001410
005037
105037
005037

000016
003101

000137

003054
003100
003114
047676

MOV
BITB
BEQ
CLR
CLRB
CLR

RKASOF (R2),T.ASOF ;STORE ATTENTION SUMMARY
INTMSK,T.ASOF+1 ;CHECK IF DRIVE ATTENTION IS SET
7%
:NO, CHECK IF READ ALL HEADERS
0.WAIT
:CLEAR WAITING FOR COMMAND COMPLETION
W.TIME
:RESET TIMING ON DRIVE
W.DRV
:CLEAR TIME OUT COUNT

1.ERRA

:G0 REPORT ERROR

10186

050262

013701

003070

MOV

HDR.AD,R1

:GET MAIN MEMORY ADDRESS

10188
10189
10190
10191

050272
050;56
050302
050306

016221
016221
010137
016237

000024
000024
003070
000010

MOV
MOV
MOV
MOV

RKDB(R2),(R1)+
RKDB(R2) ,(R1)¢+
R1,HDR.AD
RKCS2(R2),T.CS2

:GET SECOND WORD OF HEADER
;GET THIRD WORD OF HEADER
:STORE ADDRESS FOR NEXT HEADER
:STORE €S2 TO CHECK FOR DATA LATE

10193
10194
10195

050322
050326
0503

001055
005337
1026

}8}29

}8};9

}8}:;

050156

050220

050256

001422

000137

10187 050266 016221

000016

052514

051512

JMP

003014
003015

10201
1ozo§
10203

(€503
050333
050342
50346
sogz;

050
850396
050370

S037
5037
105037
01573
1127

7%:

000024

003002

004037
05151
013765

003072

003054
003114
003100
3
1
051612

003026

5%:

JMP

1oao§ 050314 032737 100000 003002
10196
10197
10198
10199
10200

BEQ

000026

003000
000056

MOV

BIT
BNE
DEC
BNE

CLR
CLR
CLRB
MOV
Move

JSR
1.RTRN
MOV

SEQ 0192

:CHECK IF DRIVE IS CYCLING DOWN
*NO, REPORT ERROR

108:

JMP

PRy i

RKCS1(R2),T.CS1 :Stgssogs1 TO CHECK CONTROLLER

5¢

PC,R.ABNL

I1.RTRN

RKDB(R2),(R1)+

#OLT,T.CS2
35§
HOR.CT
25%

0.WAIT
W.DRV
W.TIME
#3,RKMR1(R2)
#OR.SEL,T.CST
RO,1.ISSU

'NO, CHECK FOR ATTENTION

;RESTORE REGISTERS

:GET FIRST WORD OF HEADER

:CHECK FOR DATA LATE

:YES, REPORT ERROR
:DECREMENT NUMBER OF HEADER YET TO READ
*1F NON-ZERO, GO ISSUE NEXT READ HEADER

:CLEAR DRIVER WAITING FOR COMMAND COMPLETION
:CLEAR TIME OUT COUNT FOR THIS DRIVE
*CLEAR WATCH DOG TIME ON THIS DRIVE
:LOAD MAINTENANCE REGISTER FOR SECTOR COUNT
:LOAD SELECT COMMAND

*GET SECTOR COUNT
*ERROR RETURN
T.MR3.P.B11(RS) :LOAD SECTOR COUNT

2 R6NED RK611/706 sS ViY2

CIZR6NE .P11

26=-JUN-80 10:48

MACY11 30A(1052)

050376

004737

052526

10207

050406

016562

000002

000020

}8%}?

0504

042765

165777

000016

10208
10209

050414
050422

000137

016562
116565

051512

000004
000007

000006
000017

050436
050444

112765
016562

000125
000016

000016
000000

10216

050456

052737

000400

003052

}8%}8

050470

000137

051512

10217

050452
050464

000137
004737

051512

052540

}8%%?
10222

L 15

PAGE 195

25%:

PC,R.NORM

MOV

P.CYLNC(RS) ,RKDCYL(R2)

BIC

0‘C<CDT!CFlT>.P.CS1é:§3E:$%SeR ALL BITS EXCEPT FORMAT AND

MOV
MOVB

LSBTTL

1.RTRN

sINDICATE NORMAL TERMINATION

:RESTORE REGISTERS

:LOAD CYLINDER ADDRESS REGISTER

P.SECT(RS) ,RKDA(R2) :LOAD SECTOR AND TRACK
P.CS\N(RS).P.CS101(R5) ;STORE BITS 8-15 OF (S1

MOVEB
MOV

#RDMEAD,P.CS1(RS) ;STORE COMMAND ISSUED
P.CST(RS) ,RKCS1(R2) " ;ISSUE READ HEADER
I1.RTRN

sRESTORE REGISTERS

BIS

#E.DLT,E.CONT

:SET DATA LATE WHILE UNLOADING HEADER

JMP

I1.RTRN

sRESTORE REGISTERS

JMP

35%:

SEQ 0193

JSR

JMP

10212
10213
}8%};

10:53

*READ ALL HEADERS INTERRUPT SEQUENCE

10204
}8%82

050402

26-JUN-B0

JSR

PC,R.CONT

;REPORT ERROR

*DRIVE ATTENTION SCANNER

050474

016237

000000

003000

I.ATTN: MOV

050502
050510

032737
001441

100000

003000

BIT
BEQ

}8533

050512

032737

164000

003002

sCHECK IF ANY DATA TRANSFER TYPE ERROR EXISTS
BIT
#OLT'WCE 'UPE 'NEM,T.CS2

10230
}8533

050520
050522

001007
016237

000014

003016

BNE
MOV

10233
}8%;;

050530

032737

125700

003016

}8%%9

050536

001407

10238
10239

050540
050546

052737
004737

000010
052540

10242
10243
10244
10245

050556
050562
0505
050572

013704
042704
105037
005037

003002
177770
003100
003114

10223
10224
}8%%2

10227

}8%:?

}8%:9

10248
10249

050552

050576

000137

013705

003052

1%:

051512

003112

}8%;?

050602

042765

000006

}8%;%

050610

000137

047704

10254
10255

050614
050622

032737
00100

040000

}8539 0506264 000137

051512

10258
10259

050630
050636

016237
105737

000016
003015

000014

003000

5%:

6%:

:INDICATE ERROR
:STORE ERROR REGISTER

sNO DATA TRANSFER ERROR

BIS
JSR

#E.UDAT,E.CONT
PC.R.CONT

:SET UNEXPECTED DATA TYPE ERROR
‘REPORT ERROR

MOV
BIC
CLRB
CLR

T.CS2.R4
#*C<DRVMSK>
,R4&
W.TIME
W.DRV

:SAVE CS2 FOR REGISTER NUMBER
;STRIP OFF JUNK
:CLEAR WATCH DOG TIMER
TRESET TIMER VALUE

I1.RTRN

PBLKT,RS

sRESTORE REGISTERS

:STORE PARAMETER BLOCK ADDRESS IN RS

CLEAR DRIVE POSITIONING AND DRIVE POSITIONED FOR DATA TRANSFER
IN PROGRAM DEVICE STATUS REGISTER

BIC

#DRVPOS 'DRVPDT ,P.PRST(RS)

JMP

1.ERRC

:GO REPORT ERROR

BIT
BNE

#01,7.CS1
63

;CHECK IF ANY DRIVE ATTENTION
:YES, PROCESS INTERRUPT

MOV
T1STB

RKASOF
(R2) ,T.ASOF ;STORE ATTENTION SUMMARY
T.ASOF +1
sCHECK IF ANY ATTENTIONS SET

JMP

003014

1%
RKER(R2),T.ER

:
REGISTER 1 FOR COMPARISON
sCHECK IF CONTROLLER ERROR OCCURRED
:NO, CHECK IF ATTENTION

BEQ

MOV
3
:

#CERR,T.CS1
5%

:STORE COMMAND AND STATUS

CHECK FOR DATA TRANSFER ERROR TYPE
BIT
#OCK'OP]'WLE'COE'HVRC!BSE'ECH,T.ER

JMP

2%:

RKCS1(R2),T.CS1

1.RTRN

‘RESTORE REGISTERS

2 RO6NEO RK611/06 35S ViY2

CIRONE.P11

26-JUN-80 10:48

10260
10261
1026;
}8%24

050642
050644
050652
050656

001007
052737
004737
000137

10265
10266
10267
10268
}8593

050662
050670
050672
050700
050704

10271
10272

MACY11 30A(1052)

26-JUN-80

*DRIVE ATTENTION SCANNER

;YES GO PROCESS INTERRUPT
:SET NO ATTENTION IN ATTENTION SUMMARY
:GO REPORT ERROR
:G0 RESTORE REGISTERS

7%:

BITB
BNE
BIS
JSR
JMP

INTMSK,T.ASOF+1
8%
#E.UATT,E.CONT
PC.R.CONT
1.RTRN

;CHECK IF DESIRED INTERRUPT
:YES, GO PROCESS IT
:SET UNSOLICATED ATTENTION
160 REPORT ERROR
160 RESTORE REGISTERS

£s:

MOV
MOVB

PBLKT,RS
P.DRVN(RS),R4

:STORE PARAMETER BLOCK TABLE
:STORE DRIVE NUMBER

BEQ
JMP

1%
1.UNLD

:NO, CONTINUE
*SERVICE DRIVE IN POSITION AFTER ERROR

133737
001007
052737
004737
000137

003101

003015

000004
052540
051512

003052

050710
050714

013705
116504

003112
000000

10274
}8%;2

050726
050730

001402
000137

051412

10277

050734

042765

000002

000014

10279
10280
10281
10282
10283
10284
}8532

050746
050754
050760
050762
050770
050776
051000

112737
004037
051512
013765
032765
001401
000461

000001
051612

003000

003026
000200

000042
000042

10287
10288
10289
10290

051805
051010
051016
051020

13765
032765
001004
052765

003024
040000

000040
000040

004000

000014

10293
10294
10295

051030
051036
051042

112737
004037
051512

000005
051612

003000

10298
10299
10300
10301
}8§8§

051060
051062

001407
052737

000020

051070

004737

052540

10304
}8§82

051100
051106

013765
032765

0030264
040000

10307

051114

001404

BEQ

}8393

051124

000407

10311
1031§

os11§6
051132

105037
005037
004737

10273 050720 032765 020000 000014

051026

000446

BIT
11$:

128:

000137

13$:

003052

051136

}8§}§ 051142 000563

052526

BIC

#DRVPOS,P.PRST(RS)

:RESET DRIVE POSITIONING

MOVB
JSR
1.RTRN
MOV
BIT
BEQ
BR

#DR.SEL,T.CS1
RO,1.ISSU

CLR

000040
000040

158:

168:

RKMR1(R2)

:CLEAR MAINTENANCE REGISTER 1

:LOAD COMMAND
*SELECT DRIVE WITH ATTENTION HIGH
*ERROR RE TURN
T.MR3,P.BOO(RS) :STORE STATUS BYTE 00 MESS B
#S.FLT,P.BOOCRS) ;CHECK IF DRIVE FAULT
128
;NO, CHECK FOR DRIVE STATUS CHANGE
1.AERR
:PROCESS ERROR

MOV
BIT
BNE
BIS

T.MR2,P.AOOCRS) ;STORE MAINTENANCE REGISTER 2
#5.0SC,P.AO0CRS) "CHECK FOR DRIVE STATUS CHANGE
138
:YES, PROCESS DRIVE STATUS CHANGE
#NODSC,P.PRSTC(RS) :SET NO DRIVE STATUS CHANGE
1.AERR
:PROCESS ERROR

MOVB
JSR
1.RTRN

#DR.CLR,T.CS1
RO,1.ISSU

BEQ
BIS

15%
#E.CLAT.E.CONT

JSR

PC,R.CONT

MOV
BIT

T.MR2,P.AOOCRS) ;STORE MAINTENANCE REGISTER 2
#5.05C,P.AOO(RS) ’°=E§E"' DRIVE STATUS CHANGE

JMP

10308 051116 052765 000040 000014

10313

;CHECK IF DRIVE UNLOADING

MOV
BITB

051512

003100
003114

#E.UNLD,P.PRST(RS)

10296 051044 013765 003014 000032
10297 051052 133765 003101 000033

051074

SEQ 0194

7%
#E.NOAT,E.CONT
PC.R.CONT
1.RTRN

003052

}8531

M 15
PAGE 196

BNE
BIS
JSR
IMP

000002
052540
051512

10278 050742 005062 000026

10:53

;LOAD COMMAND
:CLEAR DRIVE STATUS CHANGE
ERROR RETUN

T.ASOF ,P.ASOF (RS} ;STORE ATTENTION SUMMARY
INTMSK.P.ASOF+1(RS) ;CHECK IF ATTENTION RESET

1.RTRN

:YES. CONTINUE INTERRUPT PROCESSING
:SET ATTENTION DID NOT RESET
1" WITH DRIVE CLEAR
:FLAG ERROR
:RESTORE REGISTERS

168

*YES, CONTINUE INTERRUPT PROCESSING

1.AERR

160 PROCESS ERROR

CLRB
CLR

W.TIME
W.DRV

:RESET TIMING ON THIS DRIVE
:CLEAR DRIVE TIMING COUNT

B8R

1.RTRN

:RESTORE REGISTERS

BIS

#DRVDSC,P.PRST(RE) ;SET DRIVE STATUS CHANGE DID NOT CLEAR

JSR

PC,R.NORM

*REPORT SUCCESSFUL COMMAND COMPLETETION

CIR6NEO RK611/06 3S ViY2

CZR6NE .P11

26=-JUN-80 10:48

MACY11 30A(1052)
LSBTTL

10318
10319
10320
10321

051144

042765

000004

051152
051156

105037
005037

003100
003114

000014

10324
10325
10326
10327
10328
10329
10330
10331
10332
10333
10334
10335
10336
10337
10338
10339
10340
10341

051176
051204
051212
051220
051226
051234
051242
051250
051256
051264
051270
051272
051300
051304
051306
051314
051316
0513264

053765
013765
013765
013765
013765
013765
013765
013765
013765
004037
051512
112737
004037
051512
133737
001407
052737
004737

003000
003002
003004
003006
003010
003012
003014
003016
003020
052266

000016
000020
000022
000024
000026
000030
000032
000034
000036

000005
051612

003000

003101

003015

000020
052540
051512

003052

10344
10345
10346
10347

051334
051342
051344
051352

032765
001017
032737
001413

000020

000014

020000

003024

10349
10350
}8;21

051362
051370
051376

113737
013737
000137

003101
003064
051512

1035

051402

004737

052514

000137

051406

000137

051512

10358
10359
10360
10361
1036;
10363
10364
10365

051412
051420
051426
051432
051434
051442
051444
051452

052765
112737
004037
05151;
136437
oo1&o$
012737
004737

020000
000005
051612

000014
003000

003107

003015

000020
052540

003052

10368

051460

032737

040000

003024

10369

051456

051466

000415

001403

051476

105037

003100

l177741.P.CS1(RS$ :KEEP COMMAND ISSUED
#36,7.C51
:KEEP CURRENT CONTROLLER STATUS

1.RTRN

:RESTORE REGISTERS

BIT
BNE
BIT
BEQ

#DRVHRD ,P.PRST(RS) :CHECK IF AHARD DRIVE ERROR
108
:YES, REPORT ERROR
#S.PIP,T.MR2
:CHECK IF DRIVE 1S UNLOADING
10%
:NO, REPORT ERROR

MOVB
MOV
JMP

INTMSK ,W.TIME
W.8SEC,W.DRV
1.RTRN

sSET TIMING ON THIS DRIVE
:LOAD 8 SECONDS FOR CYCLE UP TIME
sRESTORE REGISTERS

PC,R.ABNL

:REPORT ERROR

IE.UNLD.P.PRST(RQ) :SET DRIVE UNLOADING DUE TO ERROR

10%:

JSR

LSBTTL

*ERROR CAUSING DRIVE TO UNLOAD

JMP

I1.RTRN

:RESTORE REGISTERS

I.UNLD: BIS
MOVB
JSR
I1.RTRN
BITB
BEQ .
MoV
JSR

#E .UNLD,P.PRST(RS) ;CLEAR DRIVE UNLOADING BECAUSE OF ERROR
#DR.CLR.T.CS1
:LOAD IN DRIVE CLEAR
RO,1.ISSU
G0 ISSUE DRIVE CLEAR
:ERROR RETURN
INTMSK(R&) ,T.ASOF+1 ;CHECK IF ATTENTION CLEARED
158
:YES, CONTINUE
#E.CLAT,E.CONT ;SET ATTENTION DID NOT RESET
PC,R.CONT
:REPORT ERROR

I1.RTRN

:RESTORE REGISTERS

15%:

BIT

#S.0SC,T.MR2

:CHECK IF DRIVE STAUS CHANGE RESET

BIS

CDRVDS(.P.PRSt(Rs) :SET DRIVE STAUS CHANGE DID NOT CLEAR

10370 051470 052765 000040 000014
10371

T.CS1,P.CST1(RS) ;MAKE GOOD MESSAGE
T.CS2.P.CS2(R5) :STORE CONTROLLER REGISTERS
T.WCR.P.WCR(RS)
T.8A,P.BAR(RS)
T.DA.P.DTS(RS)
T.0C.P.DCYL(RS)
T.ASOF
.P.ASOF (RS)
T.ER,P.ER(RS)
T.0S.P.DS(RS)
RO,I.STAT
;GATHER DRIVE STATUS
*ERROR RETURN
#DR.CLR,T.CS1
:LOAD COMMAND
RO,1.1SSU
:CLEAR DRIVE ERRORS
*ERROR RETURN
INTMSK,T.ASOF+1 ;CHECK IF ATTENTION RESET
2%
:YES, FLAG DRIVE ERROR
#E.CLAT,E.CONT :SET ATTENTION DID NOT RESET
PC.R.CONT
‘REPORT ERROR

BIS

003100
003114

}8%29

}8;29

BIS
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
JSR
1.RTRN
MOVB
JSR
1.RTRN
BITB
BEQ
BIS
JSR

JMP

10348 051354 052765 020000 000014

}8%2;

CLRB
CLR

#ORVPDT,P.PRST(RS) ;RESET POSITIONING IN PROGRESS BECAUSE
s
OF DATA TRANSFER
W.TIME
:CLEAR TIMING FOR THIS DRIVE
W.DRV
“RESET WATCH=-DOG TIME

BIC
BIC

2%:

N 15
PAGE 197

*ATTENTION ERROR HANDLER

1.AERR: BIC

1032% 051162 042765 177741 000016
10323 051170 042737 000036 003000

051330

10:53

*ATTENTION ERROR HANDLER

}8%}9

}8;2%

26=JUN-80

20%:

BEQ

CLRB

20%

W.TIME

:YES, CONTINUE

sRESET TIMING ON THIS DRIVE

SEQ 0195

CZR6NED
RK611/06 35S ViY2
4
CZRONE.P11
26-JUN-80 10:48
10%7;
}83;‘

051502
051506

005037
034737

10375
10376
10377
10378

0351512
051514
051516
051520

012600
012601
01260
01260

10379

10380
10381

051522
051524
051526

012604
012605
000002

003114
052514

B 16
MACY11 30A(1052) 26-JUN-B0 10:53 PAGE 198
*ERROR CAUSING DRIVE TO UNLOAD

CLR
JSR

W.DRV
PC,R.ABNL

;CLEAR TIME COUNT
;REPORT ERROR

I.RTRN: MOV
MOV
MoV
MoV

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

;RESTORE
;RESTORE
;RESTORE
;RESTORE

MoV
MoV
RTI

(SP)+,R4
(SP)+,R5

RO
R1
R2
R3

;RESTORE R4
;RESTORE RS
sRETURN

SEQ@ 0196

€l R6NEO RK611/06 SS ViY2

CIR6NE.P11

26-JUN-B0 10:48

MACY11 30A(1052)

26-JUN-80

*CONTROLLER CLEAR ROUTINE

}8%2

.SBTTL

18%%2

10387
10388
10389
10390
10391
1039
1039

:*
;e
:®
:®
X
:*
it

10394
10395
10396
10397
10398

e
;"

e
i
;*CALL

10399

10400

:®

10401

10402

10403
10404
10405
10406
10407
10408
10409
10610

10411

}8:}%
106414
10415
106416
106417

10:53

16
PAGE 199

SEQ 0197

*CONTROLLER CLEAR ROUTINE
L

R A

i el

THIS ROUTINE WILL BE USED BY THE DRIVER TO CLEAR THE CONTROLLER
AND CHECK IF THE CONTROLLER ERRORS ARE RESET.
[IF THE ERROR IS NOT
CLEARED, THE ROUTINE AS SPECIFIED IN A.CONT WILL BE CALLED WITH
E.CCLR SET IN E.CONT.
REGISTER
eeeecces

USE
-

R2
RS

ADDRESS OF RKO6 REGISTERS
ADDRESS OF PARAMETER BLOCK

JSR

RO,I.CCLR

RETURN

051530
051536
051544

012762
016237
032737

100000
000000
100000

000000
003000
003000

I.CCLR: MOV
MOV
BIT

051552
051554
051562

001407
052737
004737

000001

003052

BEQ
BIS
JSR

#CCLR,RKCST1(R2) ;CLEAR CONTROLLER
RKCS1(R2),T.CS1 ;STORE COMMAND AND STATUS REGISTER 1
#CERR,T.CST
sCHECK IF CONTROLLER CLEAR DID
:
CLEAR ERROR
5%
:YES, RETURN TO DRIVER PROCESSING
#E.CCLR,E.CONT ;SET CLEAR CONTROLLER DID NOT CLEAR ERROR
PC,R.CONT
sREPORT CONTROLLER ERRCR

051570

000200

RTS

(rO) RO

:SET UP ERROR RETURN

051572
051600
051606
051610

012762
112737
005720
000200

MoV
MOVB
TST
RTS

#1E,RKCS1(R2)
#-1,1.1SRL
(RO)+
RO

;SET INTERRUPT ENABLE
sSET INTERRUPT ENABLE ISSUED
sADJUST FOR NORMAL RETURN
sRETURN

051566 011000

052540

000100
177777

MOV
000000
003074

5%:

—

;RETURN

—

RRRRRRRRRRRRARRRRRRRRRRR
2
WA
—
VOO NV
NN =2 OO0
: sgg\s&ngWWSNNNNNNNNNN—O
- 3

F&Fd

0 RK611/06 sS ViY2
PN
26=JUN-80 10:48

D 16

MACY11 30A(1052) 26-JUN-80 10:53 PAGE 200
*COMMAND ISSUED BY DRIVER SERVICE ROUTINE

)

.SBTTL
N
P
T

T
A
T

RRRRSNERNNNN

D s
D i
D
)
D

D
e

RN DR
BB
B

0456
0457
0458
0459
0460
06461
066§

051666
051672
051700
051702
051710
051712
051720

004737
032737
001437
032737
001406
052737
004737

052034
100000

003000

001000

003002

100000
052540

003052

) D

) D B

0455 051664 100375

) e

ROUTINES USED:

1.CCLR

000000

) D D

RO,1.ISSU

<ADDRESS OF ERROR RETURN>
RETURN

1.STOR

JISSU: MoV

CLR

MOVE
MOV
MOVB

i
) il

003000
000000

D-

013762
105762

0517264 000440

BICB

18:

0466 051726 032737 024000 003000 28:
051734
051736
051744
051746
051754

001027
032737
001023
032737
001017

176400

003002

131761

003016

047§ 051756 122716 000005

1.CS1,-(SP)

T.CS2

:STORE COMMAND ISSUED

:CLEAR TEMPORARY (S2

P.DRVN(RS),T.CS2 ;LOAD IN DRIVE NUMBER
1.CS2, axcsé<a2> :LOAD DRIVE NUMBER FOR COMMAND
P.CSTH(RS),T.CS141 ;STORE BITS 8-15 OF CS1

MOV
TSTB

#°C<B.CDT!B.CFMT>,T.CS1+1 :CLEAR ALL BITS EXCEPT
" FORMAT AND DRIVE TYPE
T.CS1,RKCS1(R2) :ISSUE COMMAND
RKCS1(R2)
‘WAIT FOR READY

JSR
BIT
BEQ
BIT
BEQ
BIS
JSR

PC,1.STOR
#CERR,T.CS1
5¢
#MDS,T.CS2
2%
#E.MDS,.E.CONT
PC.R.CONT

B8PL

0465

D D

JSR

003002

051652
051660

ADDDRESS OF RKO6 REGISTERS
ADDRESS OF PARAMETER BLOCK

003000

003001

R2
RS

005037

177753

USE

[TR

013746

142737

—

051616

051644

8:;1

ADDRESS IN A.CONT.

N
T
P
TR IRIETETETEATE
A T EPR

D
D
)
D
D
D e
D
D
D
D o
il

051612

0451
0452
0453
0454

0467
0468
0469
0470

A
ERROR OCCURRED, E.CERR WILL BE SET IN E.CONT
CONTROL WILL BE TURN OVER TO THE ROUTINE SPECIFIED BY THE

2222222222222 2222322232233322322332222323332333323332323322232322332322223.]

0448 051622 116537 000000 003002
0449 051630 013762 003002 000010
0450 051636 116537 000007 003001

0463

THIS ROUTINE WILL ISSUE THE COMMAND AS SPECIFIED IN T.(S1
AND CHECK IF A CONTROLLER ERROR OCCURRED.
IF A CONTROLLER

D
D e
D
D
D

CALL

““

0447

~COMMAND ISSUED BY DRIVER SERVICE ROUTINE

CREARRNRRNRANARRCEREORROROORORORORARNAANCANAANAOEAORRONAOOOROEOTROETS

822%

0445
0446

10§

;60 STORE REGISTERS
TCHECK IF CONTROLLER ERROR OCCUERED
INO, RETURN
TCHECK IF MULTIPLE DRIVE SELECT
‘NO, CHECK FOR OTHER CONTROLLER ERRORS
:SET MULTIPLE DRIVE SELECT FLAG
*REPORT CONTROLLER ERROR

:RETURN

:CHECK IF ANY CONTROLLER ERROR IS SET

BIT

BNE
BIT
BNE
BIT
BNE

CMPB

#CT0'SPAR,T.CS1

7%
#UFE 'PGE 'NEM!NED'UPE
'WCE 'DLT,T.CS2
7%
#ILC'DTYE'FMTE'ECH'BSE
'HVRC ' COE'DTE'OPI'DCK,T.ER
7%

#DR.CLR.(SP)

:CHECK IF CLEAR DRIVE

SEQ 0198

C R6NED RK611/06 S VivY2
C RONE .P11
26-JUN-80 10:48

E 16

MACY11 30A(1052)
26=JUN-80 10:53 PAGE 201
*COMMAND ISSUED BY DRIVER SERVICE ROUTINE

000020
051530

000014

000100

000000

5§:

052010
052012
052014

052737

001000

052022

004737
005726
011000
000200

052540

052032

003052

:NO, DO NOT SET DRIVE HARD ERROR

RO,I.CCL

0 ISSUE A CONTROLLER CLEAR
ERROR RETURN
:SET INTERRUPT ENABLE
sADJUST STACK

#ORVHRD,:PRST(RS)sSET HARD DRIVE ERROR
#1E,RKCS1(R2)
(SP)+
(RO)+
RO

;ADJUST RU FOR NORMAL RETL"N
;RETURN

7s:

#E.CERR,E.CONT

;SET CONTROLLER ERROR DURING

108:

PC,R.CONT
(SP)+

;REPORT ERROR
sADJUST STACK
;ADJUST RO FOR ERROR RETURN
sRETURN

(RO) ,RO
RO

DRJVER SERVICING

SEQ 0199

CIRGNED RK611/706 $S Vi Y2

CIRONE.P11

26-JUN-80 10:48

MACY11 30A(1052)

26=JUN-B0

10:53

F 16

PAGE 202

*STORE RK611 UNIBUS REGISTERS

}8233

.SBTTL

10‘3}

- t"'t"t'""""""""""Q't'."t""t'ttQQQ'Q'QQQ"Q"Q'QQ

104

}&3‘;

RK611 REGISTER IN TEMPORARY LOCATIONS.

10496
10497
10498
10499

i«CALL
M
i
i

JSR
RETURN
REGISTER

USE

}8§8§

ADDRESS OF RK611 REGISTERS

10493

10500
10501

‘¢
i
b

1050‘

10505

]

*STORE RK611 UNIBUS REGISTERS

THIS SUBROUTINE IS CALLED BY THE RKO6 DRIVER TO STORE ALL

eesesses

:'t"t"Q'QQQ't"'ttt'""t"'QQ'ttttt'tt't"'tt""'t.tt"'t"'t

10506
10507
10508
10509
10510
10511
10512

052034
052042
052050
052056
052064
052072
052100

016237
016237
016237
016237
016237
01¢237
016237

000000
000010
000002
000004
000006
000012
000014

003000
003002
$03004
003006
003010
003020
003016

I.STOR: MOV
MOV
MOV
MOV
MOV
MOV
MOV

10514
10515
10519

052114
052122
855132

016237
016237
016237

000020
000026
00003¢

003012
003022
003024

MOV
MOV
MOV

10518
10519
10520

052144
052152
052160

016237
016237
000207

000030
000032

003030
003032

10513 052106 016237 000016 003014
10517

PC,1.STOR

052136

016237

000036

003026

MOV
MOV

MOV
MOV
RTS

RKC1(R2),7.CST ;STORE ALL CONTROLLER REGISTERS
RKCS2(R2),T.CS2 : EXCEPT DATA BUFFER
RKWC (R2),T.WCR
RKBA(R2)
. T.BA
RKDA(R2) ,T.DA
RKDS (R2)
,T.DS
RKER(R2) ,T.ER

RKASOF (R2) .

T.ASOF

RKDCYL (R2).T.DC
RKMR1(R2),T.MR1
axnag(nz).t"MR2

RKMR3(R2)
. T.MR3

RKECPS (R2),T.POS
RKECPT(R2) .T.PAT
PC
:RETURN

SEQ 0200

C IR6NEO RK611/06 35S ViY2
C IR6NE .P11
26=JUN-80 10:48

MACY11 30A(1052)

26-JUN-80

10:53

«STORE CONTROLLER STATUS

G 16

PAGE 203

}83%%

.SBTTL

}82%3

- :.""""Q""""""""'.' 2222222222223 2323223233223333232223]

}82%9

10528

10525

:®

10529
10530
10531
10532
10533

+STORE CONTROLLER STATUS
THIS SUBROUTINE IS CALLED BY THE RKO6 DRIVER AT PRIORITY 7.

THE FOLLOWING REGISTERS WILL BE STORED:
{

COMMAND AND STATUS REGISTER 2

)
;e
)
.t
'

10534
10535
10536

o
4
i

10537
10538
10539

s*CALL
3
i

}822?

10542

WORD COUNT REGISTER
BUS ADDRESS REGISTER
DESIRED TRACK AND SECTOR
STATUS REGISTER
ERROR REGISTER

ATTENTION SUMMARY/OFFSET REGISTER
CYLINDER ADDRESS REGISTER

JSR
RETURN

PC,1.CSTS

THIS ROUTINE ASSUMES THE FOLLOWING REGISTERS CONTAIN:

CONTENTS

essseses
0
ececcece-

o
L

R2
RS

RK06 BASE ADDRESS
ADDRESS OF PARAMETER BLOCK

:CLEAR ALL BITS EXCEPT FUNCTION
:OF LAST COMMAND ISSUED
:CLEAR FUNCTION OF CS1 STATUS
:GENERATE CS1 STATUS INFORMATION

10543

10545

105‘9

; :l'ii'.'.t'..""'i"'."'Q""".i."t.Qi"i""."""'...i".

10544

10546
}82:;
10550

10551
10552
10553
10554

- %

052162

042765

177741

000016

1.CSTS: BIC

#1777461,P.CST(RS)

10559
10560

052170
052176
052204
052212
052220
052226
052234
052242

042737
053765
016265
016265
016265
016265
016265
016265

000036
003000
000010
000002
000004
000006
000012
000014

003000
000016
000020
000022
000024
000026
000036
000034

BIC
BIS
1.CST1: MOV
MOV
MOV
MOV
MOV
MOV

#36,7.CS1
T.CS1,P.CS1(RS)
RKCS2(R2) ,P.CS2(R5)
RKWC(R2) ,P.WCR(RS)
RKBA(RZ2) ,P.BAR(RS)
RKDA(R2) ,P.DTS(RS)
RKDS(R2) ,P.DS(RS)
RKER(R2) ,P.ER(RS)

10563

052256

016265

000020

000030

MOV

10555
10556
10557
10558

}822; 052250 016265 000016 000032
10564

052264

000207

MOV
RTS

:STORE COMMAND AND STATUS REGISTER 2
:STORE WORD COUNT REGISTER
:STORE BUS ADDRESS REGISTER
:STORE DESIRED TRACK AND SECTOR
:STORE DRIVE STATUS REGISTER
:STORE ERROR REGISTER

RKASOF(Ré),P.ASOF(RS)

:STS?ESS{TENTION SUMMARY AND

RKDCYL(R2) ,P.DCYL(RS)

:STORE CYLINDER ADDRESS

sRETURN

SEQ 0201

MACY11 30A(1052)
26=JUN-B0 10:53
L
GATHER DRIVE STATUS

R6NED RK611/06 S ViY2
R6NE.P11
26-JUN-80 10:48

.SBTTL

567

H 16

PAGE 204

SEQ 0202

*GATHER DRIVE STATUS
A A

A AR

R RRRdRddddRdddRddlld])

A
N

THIS SUBROUTINE WILL BE USED TO GATHER DRIVE STATUS

CALL

JSR

RO,1.STAT

<ADDRESS OF

ERROR RETURN>

RETURN

CONTENTS

R2
RS

RKO6 BASE ADDRESS
ADDRESS OF PARAMETER BLOCK

BN BN B

THIS ROUTINE ASSUMES THE FOLLOWING REGISTERS CONTAIN:

ROUTINES USED:

1.1SSU

#1,RKMR1 (R2)

012762

000001

000026

052274
052302
052306
052310
052316
052324

112737
004037
052476
013765
013765
012762

000001
051612

003000

003024
003026
000002

000044
000046
000026

T.MR2,P.AQ° (RS)
T.MR3,P.BO| (RS)
#2,RKMRT (R2 )

052332
052340
052344
052346
0523564
052362

112737

000001
051612

003000

#OR.SEL,T.CS1
RO,1.ISSU

000050
000052
000026

T.MR2,P.AT10(RS)
T.MR3,P.B10(RS)
#3 ,RKMR1(R2)

052370

112737
004037

000001
051612

003000

#DR.SEL,T.CS1
RO,1.ISSU

003024
003026
000026

000054
000056

T.MR2,P.A11(RS)
T.MR3,P.B11(RS)
RKMR1(R2)

000001
051612

003000

#DR.SEL,T.CS1
RO,I.ISSU

052424

052462

001000

000040
000042

003026

#DR.SEL,T.CS1
RO,I.ISSU

T.MR2,P.AQO(RS
T.MR3,P.BOO(RS

g%.PAR.Y.HRS

sLOAD COMMAND

;GET STATUS BYTES 10
:ERROR RETURN
;STORE STATUS BYTE 10 MESS
:STORE STATUS BYTE 10 MESS
:LOAD MAINTENANCE REGISTER
: FOR STATUS BYTE 11
:LOAD COMMAND

:GET STATUS BYTES 11
:ERROR RETURN
:STORE STATUS BYTE 11 MESS
;STORE STATUS BYTE 11 MESS
:LOAD MAINTENANCE REGISTER
:
FOR SYATUS BYTE 00
:LOAD COMMAND

:GET STATUS BYTES 00

052420

12762

mMove

sLOAD MAINTENANCE REGISTER
; FOR STATUS BYTE 01
:LOAD COMMAND
;GET STATUS BYTES 01
;ERROR RETURN
;STORE STATUS BYTE 01 MESS
;STORE STATUS BYTE 01 MESS
;LOAD MAINTENANCE REGISTER
; FOR STATUS BYTE 10

— @>

L
T

.STAT: MOV

052266

2 SRR
2 R
R iR ddRRdd])

.—-

TRCEIETETETE
TETE NE TR TN T TN T PR T

WN—=O
-0 NN

3R
PON) b b b b b e e cd b b

PO
——————— e P
P D

geezes

10603

AR IR B

BYTE 01, 10, AND 11, IT IS ASSUMED THAT THE DRIVE
HAS PREVIOUSLY BEEN SEIZED.
IT RUNS AT PRIORITY 7.

:ERROR RETURN

:STORE STATUS BYTE 00 MESS A
:STORE STATUS BYTE 00 MESS B8
:CHECK IF BAD PARITY DETEC TED BY DRIVE
iNO, RETURN NORMALLY

CZIR6NED RK611/06 35S ViY2
CIR6NE.P11
26-JUN=-80 10:48
10622
10623

052464
052472

052737
004737

10624

052476

011000

10627

052502

052765

002000
052540

MACY11 30A(1052)
26-JUN-B0
*GATHER DRIVE STATUS
003052

3$:

}&%‘s’ 052500 000200
10628
10629

052510
052512

005720
000200

001000

000014

S5%:

I 16
10:53 PAGE 205

BIS
JSR

#E .DPAR,E.CONT
PC.R.CONT

:INDICATE BAD PARITY DETECTED BY DRIVE
‘REPORT ERROR

RTS

*RETURN

BIS

#PBSVAL ,P.PRST(RS)

MOV
TST
RTS

(r0) .RO

(RO) +
RO

:LOAD RO FOR ERROR RETURN

:SET PARAMETER BLOCK STATUS VALID

sADJUST RO FOR NORMAL RETURN
;RETURN

SEQ 0203

CIRONEO RK611/06 3S ViY2
CIRONE.P11
26=-JUN-80 10:48

}8233

JSBTTL

10633
10634

052514
052520

10637

052526

052532
052536

004777
000207

10641
10642
10643
10644
10645

052540
052544
052550
052554
052560

}8222
10638
}8228

MACY11 30A(1052) 26-JUN-80 10:53
«COMMON DRIVER RETURNS

052524

*COMMON DRIVER RETURNS

105037
004777

003101
130322

R.LABNL: CLRB
JSR

105037

003101

R.NORM: CLRB

105037
105037
005037
004777
000207

003101
003100
003114
130270

R.CONT: CLRB
CLRB
CLR
JSR
RTS

000207

130306

RTS

J 16
PAGE 206

I8
RTS

SEQ 0204

INTMSK
PC,aA. ABNL

:INHIBIT FUTURE DRIVE INTERRUPT REPORTING
*INDICATE ABNORMAL RETURN

INTMSK

. INHIBIT FUTURE DRIVE INTERRUPT REPORTING

INTMSK
W.TIME
W.DRV
PC,aA.CONT

;INHIBIT FUTURE DRIVE INTERRUPT REPORTING
*RESET WATCH DOG TIMING ON THIS DRIVE
*CLEAR TIMING COUNT FOR THIS DRIVE
*INDICATE CONTROLLER ERROR RETURN
*RETURN

PC,aA.NORM
PC

—

*RETURN

*INDICATE NORMAL RETURN
*RETURN

CIR6NEO RK611/06 35S ViY2
CZR6NE .P11
26=JUN-80 10:48

MACY11 30A(1052)
26-JUN-B0
*COMMAND INITATOR
.SBTTL
A

*
.
1]
*

10:53

K 16
PAGE 207

SEG 0205

«COMMAND INITATOR
i

RRdddd

RRddRdddd])

THIS SUBROUTINE WILL INITIATE ALL COMMANDS AS SPECIFIED

BY THE COMMAND FIELD OF THE PARAMETER BLOCK. THE FOLLOWING
SPECIAL COMMAND ARE ALSO EXECUTED:
RELEASE
CONROLLER CLEAR

*
b 4

SUBSYSTEM CLEAR

READ ALL DRIVE STATUS
READ SPECIFIED HEADER

*
L]

]

10661

T«CALL
*

: ]
¥

THE ABOVE COMMANDS ARE TRANSLATED INTO A SEQUENCE OF COMMANDS

JSR

PC,C.INIT

RETURN

L]
*
L ]

ROUTINES USED:

I.CCLR

::"'t.'i"'tl""""'i"""i""'.'Q"i't'i.i'tit't'ii'.'tt"l

003062

C.INIT: MOV
MOv
MoV
MOV
MoV
MOV
MOV
MoV
MoV
ADD
MOV
BIC
MOV
MOv8
MOvB
MoV

003036

MoV

oo~

prt v
s~

nNO

[«1=]

v vy
1)
VIV
N~

052562

05%576

013746

177776

D oD e

) i

W.WTCH
[.CSTS
[.STAT

d =D

gesieeezEstpasesgfig E RN

—

22828 &

N
»

:*
;e
:*

177776

2&
052652

052660

S 82223

000016

D
— ed e

FOR THE SEQUENTIAL OPERATIONS, THE DRIVER WILL LOAD THE
LOCATIONS, PBLKT AND INTMSK.

702

RS ,=(SP)
:STORE R5 ON STACK
R4, = (SP}
;STORE R4 ON STACK
R3,-(SP)
;STORE R3 ON STACK
R2,=(SP)
:STORE R2 ON STACK
R1,-(SP)
;STORE R1 ON STACK
RO,=(SP)
:STORE RO ON STACK
PS,=(SP)
:STORE PSW ON STACK
RKPRI,PS
:LOCK OUT RKO& INTERRUPTS
@816(SP) RS
;STORE PARAMETER BLOCK ADDRESS
#2,16(SP)
:ADJUST RETURN
P.DRVN(RS)
,R4
;STORE DRIVE NUMBER
> ;MASK OUT JUNK
,R4
#*C<DRVMSK
RS ,PBLKT
:LOAD PARAMETER BLOCK TABLE
1.DRV(R4) ,INTMSK ;LOAD INTERRUPT MASK
1.ORV(R&G) ,W.TIME ;SET WATCH-DOG TIMER FLAG
W.SEC,W.DRV
:LOAD WATCH-DOG TIME

RKBAS ,R2

;LOAD R2 WITH RKO6 ADDRESS BASE

RESET ALL BITS IN PROGRAM DEVICE STATUS REGISTER EXCEPT
DRIVE IN USE
WRITE FOR WRITE CHECK
NO CHECK

DROP DRIVE FROM TEST SEQUENCE
INHIBIT BUS ADDRESS INCREMENT

CIR6NEO RK611/06 sS ViY2
26=JUN-80 10:48
CleNE PN
052664

0462765
010500

075176

000014

000016

W
VIV

1%:

003074
000020
000026
000040
000137

053454

122765

000107

26=JUN-80

*COMMAND INITATOR

000062

052744

000001

#*C<DRVUSE 'W.WCK!NOCHK !DRPDRV!DTBAII>,P.PRST(RS)

MOV
ADD
MOV
ADD

#P.CS1,RO
RS,.R1

CLR
CMP
BLOS
CLRB
CLR
BITB

BEQ
JMP

3%:

L 16
PAGE 208

BIC

MOV

000001

10:53

CMPB

RS5,RO

#P.EPAT,R1

(RO)+
RO,R1
1%
I.ISRL
R&,P.CS2(RS)
RKMR1(R2)

;STORE PARAMETER BLOCK ADDRESS
sCALCULATE FIRST LOCATION TO BE CLEARED
:STORE PARAMETER BLOCK ADDRESS
sCALCULATE LAST LOCATION TO BE CLEARED

;CLEAR RETURN PARAMETER
;CHECK IF FINISHED
sNO, CLEAR NEXT RETURN PARAMETER

;CLEAR RELEASE OR INTERRUPT ISSUED
:STORE DRIVE NUMBER
sCLEAR RKO6 MAINTENANCE REGISTER 1
S)
gngS.P.CHND(R
;CHECK IF SPECIAL COMMAND
:NO, PROCESS

;JUMP TO SPECIAL COMMAND PROCESSOR

C.SPEC

#UNLOAD,P.CMND(R5) ;CHECK IF POSITIONING COMMAND
;
START SPINDLE

s
:

052752

101174

BHI

:
000117

052754
052762

000001

CMPB
BLO

000010
000914

000002
000004

000020
000006

000115

000001

O =

=288
RS

000006
000032

000032
000016

000111

000001

6%:

003066
000113

003114
000001

7%:

PACK ACKNOWLEDGE

CLEAR

YES, DATA TRANSFER COMMAND

20%

READ DATA
WRITE DATA
READ HEADER
WRITE HEADER
WRITE CHECK

P.CS2(R5),RKCS2(R2) :LOAD DRIVE NUMBER

000020
000002
003054
000117

EEaaE
e
FERER &N =b = § N}

VAVAVAIVAVIWVAVA
W
NN
~~

O00O00O0O0O
O000O0

SEEK
UNLOAD

#SEEK,P.CMND
(R5) ;CHECK IF DATA TRANSFER

;

VIVAVAWVAWVA - VAWV

RECALIBRATE

OFFSET

:NO, DRIVE COMMAND
SELECT DRIVE
:

25%

;

00000

10702
10703
10704
10705
10706
10707

MACY11 30A(1052)

ooavpos P.PRST(RS) ;SET DRIVE POSITIONING
0.WAIT
;CLEAR WAIT FOR COMMAND
ggEEK,P.CAND(RS)" : CHECK IF SEEK
:NO, CHECK FOR OFFSET

000001

P.CYLN(RS),RKDCYL (R2) ;LOAD CYLINDER ADDRESS
P.SECT(RS),RKDACR2) ;LOAD SECTOR AND TRACK
;G0 ISSUE COMMAND
8$

5%:

:2FFSET" R CHND(RS) sCHECK IF OFFSET
CHECK FOR UNLOAD

P.OFST(RS),P. ASOF(RS) ;STORE OFFSET

g$ASOP(RS).RKASOF (R2) :LOAD OFFSET REGISTER
;60 ISSUE COMMAND

;§R1SPL"

CHND(RS)OsCHECK IF START SPINDLE
CHECK IF RECAL

W.MIN,W.DRV

:LOAD WATCH DOG TIME FOR 1 MINUTE

l:ECAL,P.CAND(RS);CHECK IF RECAL
:NO, CONTINUE

SEQ 0206

CIR6NED RK611/06 SS ViY2

CZR6NE .P11

26-JUN-80 10:48

MACY11 30A(1052) 26-JUN-80 10:53 BPAGE 209
*COMMAND INITATOR

10758
10759

053106
053114

013737
116565

003064
000007

003114
000017

10762
10763
10764

053130
053136
053144

116565
042765
032765

000001
000200
000400

10766
10767
10768
10769
10770
10771
10772
10773
10774
10775
10776
10777
10778
10779
10780

053154
053162
053170
053174
053202
053210
053212
053220
053222
053226
053234
053242
053244
053250
053254

042765
016562
004737
016237
032737
001767
032737
001011
004737
016237
133737
001767
105037
005037
004737

000010
000012

000004
000002

000004
000131

000006
000001

}8;2?

10765

}8;3;

053122

053152

053260

042765

001533

000137

10783
10784

053264
053272

016562
016562

10786
10787
10788
10789
10790

053306
053314
053322
053324
053332

016562
122765
001010
032765
001404

10785

10791

}8;3%
10794
10795

10796
10797

10798

053300

053334

053342
053344
053352

053360
053366

016562

W.8SEC,W.DRV
;LOAD RECAL TIME FOR 8 SECONDS
P.CSTH(RS) ,P.CS1+1(R5) ;STORE BITS 8-15 OF (S1

000016
000014
000014

Move
BIC
BIT

P.CMND(RS) ,P.CS1(R5) ;MOVE COMMAND INTO (S1
#W.WCK,P.PRST(RS) ;RESET WRITE FOR WRITE CHECK
#NOCHK ,P.PRST(R5) ;CHECK IN NO CHECK MODE

000100
000016
047132
000000
000200

000016
000000

100000

003000

047132
000016
003101

003014
003015

BIC
Mov
JSR
MoV
BIT
BEQ
BIT
BNE
JSR
MoV
BITB
BEQ
CLRB
CLR
JSR

#1E,P.CST1(R5)
;CLEAR INTERRUPT ENABLE
P.CS1(RS) ,RKCST1(R2) ;ISSUE COMMAND
PC,W.WTCH
;CALL WATCH DOG TIMER
RKCST1(R2),T.CST1 ;STORE COMMAND AND STATUS REGISTER 1
#RDY,T.CS1
;WAIT FOR READY
108
#CERR,T.CST
;CHECK FOR ERROR
15%
;YES, GIVE NORMAL RETURN
PC,W.WTCH
;:CALL WATCH DOG TIMER
RKASOF
(R2) ,T.ASOF ;STORE ATTENTION SUMMARY
INTMSK,T.ASOF+1 ;CHECK IF INTERRUPT HAS OCCURRED
1%
;WAIT FOR DRIVE INTERRUPT
W.TIME
;RESET TIMING ON THIS DRIVE
W.DRV
;CLEAR DRIVE TIMING COUNT
PC,R.NORM
; INDICATE COMMAND IS FINISHED

MOV
MoV

P.BALO(RS) ,RKBA(R2) ;LOAD BUS ADDRESS REGISTER
P.WC(RS) ,RKWC(R2) ;LOAD WORD COUNT REGISTER

MoV
CMPB
BNE
BIT
BEQ

P.SECT(RS) ,RKDA(R2) ;LOAD SECTOR AND TRACK NUMBER
#URTCHK ,P.CMND(RS)
;CHECK IF WRITE CHECK COMMAND
25%
:NO, GO ISSUE THE COMMAND
#W . WCK,P.PRST(RS)
;CHECK IF WRITE COMMAND SHOULD BE ISSUED
25%
:NO, GO ISSUE THE COMMAND

26%

165777

000016

003000
003000

003100
003114
052526

000123

000016

116565
042765

000001
000200

000016
000014

053374

010537

10802
10803

053406
053410

001403
052765

053424
053432
053434
053442
053450

032765
001403
042765
016562
000137

053400 032765

000007
177750

20%:

000020

012765

116565
142765

118:

JMP

000014

000406

108:

054434

000002

000017
000017

MOV

25%:

26%:

122765

iNO, SKIP CLEAR OF INTERRUPT ENABLE

C.RTRN

;RESTORE REGISTERS

P.CYLN(RS) ,RKDCYL(R2) ;LOAD CYLINDER ADDRESS REGISTER

#URDATA,P.CST1(RS)

:ISSUE WRITE COMMAND

;GO ISSUE COMMAND

P.CMND(RS5) ,P.CS1(R5) ;MOVE COMMAND INTO (S1
#W.WCK,P.PRST(RS) ;RESET WRITE FOR WRITE CHECK

P.CSTH(RS) ,P.CS1+1(R5) ;STORE BITS 8-15 OF CS1
#*C<B.CFMT!B.CDT!B.BA16!B.BA17>,P.CS1+1(R5) ;CLEAR ALL BITS EXCEPT

MOV

RS,0.WAIT

000020

BEQ
BIS

27%
#BAL,P.CS2(RS5)

:NO, LOAD CS2
;SET INHIBIT BUS ADDRESS INCREMENT

000400

000014

000100
000016
054434

000016
000000

100000 000014

BIT

30%:
.SBTTL

053454

MOVB
BICB

308

003054

}8%}5
10813

MOVB
BIC

0‘C<CFHT!CDT),P.CS1££3)D§§bEA¥VS%L BITS EXCEPT FORMAT

FORMAT, DRIVE TYPE, AND BUS ADDRESS
; BITS 16=17
;LOAD WAITING FOR COMMAND

10804 053416 016562 000020 000010 27%:

10805
10806
10807
10808
}83?8

BIC

BEQ

15%:

000200

10799
10800

10801

MOV
MOvB

8$:

000141

000001

MOV

BIT
BEQ
BIC
MOV
JMP

;

#DTBAIL,P.PRST(RS) ;CHECK IF INMIBIT BUS ADDRESS INCREMENT

P.CSS(RS) ,RKCS2(R2) ;LOAD (S2

#NOCHK ,P.PRST(RS) ;CHECK IN NO CHECK MODE
30%
:NO, SKIP CLEAR OF INTERRUPT ENABLE
#1E,P.CST(RS)
;CLEAR INTERRUPT ENABLE
P.CS1(RS) ,RKCS1(R2) ;ISSUE COMMAND
C.RTRN
;RESTORE REGISTERS

«SPECIAL COMMAND PROCESSING

C.SPEC: CMPB

#RDSTAT,P.CMND(RS) ;CHECK IF READ DRIVE STATUS

SEQ 0207

e
————————

EEEE I
R8N

001132
01

[=l-l-llololelelelelalalalalalol-BN

VIV
VTV
NN N N NN NN N NN

{11

VAWVWDA
W

FEE
e

CZR6NEO RK611/06 sSS ViY2
CZR6NE .P11
26=JUN-B0 10:48

c 1
MACY11 30A(1052)
26-JUN-80 10:53 PAGE 210
*SPECIAL COMMAND PROCESSING

000020
000007
165777

000019
000017
000016

000001

000016
000000

000200

000016
000016

052204
000034
000036
100000

000040
000042
000016

003100
003114
000400

000014

001000

000020

BNE

Mov
MOvB

BIC

2%:

Mmove
MoV
JSR
MOV

BIT

BEQ
JSR

000020

000001

000036

010000
052514
054434

000014

003100
003114
000400

053726

000137

053732
053740
053744

052737

100000

053750

052540
054434
000140

000001

— e

ggov,v.cs{<as>

000016

:WAIT FOR READY

PC,1.CSTY
:STORE CONTROLLER REGISTERS
RKMR2
(R2) ,P.AOOCRS) ;STORE STATUS BYTE 00 MESSAGE A

8s
#MDS ,P.CS2(R5)
9%

:CHECK IF CONTROLLER ERROR

*NO, GATHER DRIVE STATUS
‘RESET WATCH DOG TIMING ON THIS DRIVE
*CLEAR WATCH DOG COUNT
;CHECK IF NO CHECK MODE
:YES, INDICATE NORMAL RETURN
;CHECK IF MULTIPLE DRIVE SELECT
:YES, INDICATE CONTROLLER ERROR
;CLEAR £RROR
:ERROR RETURN

#NED'UFE,P.CS2(RS) ;CHECK IF NON-EXISTENT DRIVE OR UNIT FIELD ERROR
5%
#DRA,P.DS(R5)
5%

;REPORT ERROR
;CHECK IF DRIVE AVAILIABLE
:YES, REPORT ERROR

#DRVSZD,P.PRST(RS) ; INDICATE DRIVE IS SEIZED BY OTHER PORT
PC,R.ABNL

5%:

;INDICATE ABNORMAL RETURN

C.RTRN

;RESTORE REGISTERS

RO,I.STAT

;GATHER DRIVE STATUS

W.TIME
W.DRV

;ERROR RETURN
:STOP WATCH-DOG TIMING ON DRIVE
;RESET WATCH-DOG TIME

8s
RKCS1(R2)
PC,R.NORM
C.RTRN

:NO, REPORT ERROR
;CLEAR INTERRUPT ENABLE
sREPORT COMMAND COMPLETE
sRESTORE REGISTERS

#E.MDS,E.CONT
Ec§¥§£°NT

;SET MULTIPLE DRIVE SELECT
s INDICATE CONTROLLER ERROR

#NOCHK ,P.PRST(RS)

9%:

JMP

BIS
JMP

000020
000010
165777

:CALL WATCH=DOG TIMER
RKCS1(R2),P.CS1(RS) ;STORE COMMAND AND STATUS REG. 1

#NOCHK ,P.PRST(R5)

8%:

003054

054014

PC,W.WTCH

68
W.TIME
W.DRV

000014

003052

;CLEAR ALL BITS EXCEPT FORMAT

: AND DRIVE TYPE
#DR.SEL,P.CST1(RS) :STORE COMMAND
P.CST(RS) .RKCST(R2) ; ISSUE COMMAND

#CERR,P.CS1(RS)

6%:

052266

000000
052526
054434

2 ZgegaRse

004037
054434
105037
005037
032765

#ACCFMTICOT>,P.CST(RS)

RO,I.CCLR

010400

:NO, PROCESS OTHER COMMANDS

P.CS2(RS),RKCS?(R2) :LOAD CS2 FOR COMMAND
P.CSTH(RS),P.Co1+1(RE) ;STORE BITS 8-15 OF CS1

RKMRI(R2) .P.BOOCRS) ;STORE STATUS BYTE 00 MESSAGE B

051530

000137

108

SEQ 0208

108:

;CHECK IF Nu CHECK MODE

#RELEAS,P.CMND(RS)

;CHECK IF RELEASE COMMAND
:NO, CHECK IF READ ALL HEADERS
:STORE PARAMETER BLOCK ADDRESS IN

CMPB
BNE
MOV

138
RS,0.WAIT

BIS

#RLS,P.CS2(RS)

2"
WAIT FOR COMMAND
:SET RELEASE BIT

#1,1.ISRL

:SET FLAG FOR RELEASE COMMAND

MOV
MOvB
MOvB

BIC

P.CS2(RS),RKCS2(R2) :;LOAD CS2 FOR DESELECT

P.CSTH(RS),P.CS1+41(RS);STORE BITS 8=15 OF CS1

#AC<CFMTICOT>,P.CST(RS) ;CLEAR ALL BITS EXCEPT FORMAT
:

AND DRIVE

TYPE

000101
000400

000016
000014

000100
000016
054434

000016
000000

11%:

000164

000001

138:

003054
000010
000020

003070
000007

000024

003072

000026
000002

003072
000020
000006

N
o~

NNOVWWKWNWDG W

054060
054066
054070
054074
054102
054120

054122

14%:

22%:

1
PAGE 211

MOVE
BIT
BEQ
BIC

#SELDRV,P.CS1(RS) ;STORE COMMAND
#NOCHK ,P.PRST(RS) :CHECK IF NO_CHECK MODE
1%
:NO, DO NOT RESET INTERRUPT ENABLE
#1E,P.CST1(RS)
:RESET INTERRUPT ENABLE

CMPB
BNE
MOV
MoV

#RDALHD,P. cnno<a5) ;CHECK IF READ ALL MEADERS
308
CHECK IF CONTROLLER CLEAR
RS,0.WAILT
SET WAITING FOR COMMAND COMMPLETION
P.BALO(RS) ,HDR.AD ;LOAD HEADER ADDRESS

8EQ
MOV
8R

149
#20. ,HDR.CT
22%

:YES, LOAD 22 IN HEADER COUNT
:LOAD 20 IN SECTOR COUNT
;G0 ISSUE READ HEADER COMMAND

MoV

#22. ,HDR.CT

;LOAD 22 IN SECTOR COUNT

BIC

#AC<CFMTICOT>,P.CST(RS) ;CLEAR ALL BITS EXCEPT DRIVE TYPE

MOV
JMP

BITB

000016

054160

53
CISARIEREREERREREERELEREEE

MACY11 30A(1052)
26=JUN-B0 10:53
*SPECIAL COMMAND PROCESSING

SNV

054054

054022

p—

CZR6NED RK611/06 S ViY2
CIRONE .P11
26=JUN-B0 10:48

MoV
MoV
MOV
MOvB

P.CS1(RS),RKCST1(R2); I1SSUF COMMAND
C.RTRN
;RESTORE REGISTERS

#B.CFMT,P.CSTHIRS) ";CHECK IF 22 SECTOR FORMANT

P.CYUN(RS) ,RKDCYL(R2) ;LOAD CYLINDER ADDRESS
P.SECT(RS),RKDA(R2) ;LOAD TRACK NUMBER
P.CS2(RS) ,RKCS2(R2) :LOAD DRIVE NUMBER
P.CSTH(RS),P.CS1+1(RS) ;STORE BITS 8-15 OF (S1

: AND FORMAT
#RDHEAD,P.CS1(RS) ;STORE READ HEADEP COMMAND

054166
054174
054202
054204
054212

000125
000400

000016
000014

Move

020016
054434

000000

MoV

P.CST1(RS) ,RKCS1(R2) ;ISSUE READ HEADER

054216

000176

000001

CMPB
BNE
JSR

#CONCLR,P.CMND(R5) ;CHECK IF CONTROLLER CLEAR
:NO, CHECK IF SUBSYSTEM CLEAR
32%
sCLEAR CONTROLLER
RO,I.CCLR

BIT
BEQ
CLR
BR

#NOCHK ,P.PRST(RS) ;CHECK IF NO CHECK MODE
sNO, INDICATE NORMAL RETURN
40%
RKCS1(R2)
sRESET INTERRUPT ENABLE
: INDICATE NORMAL RETURN
40%
#SUBCLR,P.CMND(R5) ;CHECK IF SUBSYSTEM CLEAR
;YES, CLEAR SUBSYSTEM
36%
#E.ILLD,E.CONT ;SET ILLEGAL DRIVER COMMAND
:REPORT ERROR
PC,R.CONT
C.RTRN
;RESTORE REGISTERS
#SCLR,RKCS2(R2) ;ISSUE SUBSYSTEM CLEAR

BIT
BNE

JMP

308:

051530

10901

000400

C.RTRN

000014

000000

054250

000177

000001

32%:

000100
052540

003052

34%:

054274

122765
001406
052737
004737
000457

CMPB
BEQ
BIS
JSR
BR

054276
054304
054312
054320
054322

012762
016265
032765
001406
052737

000040
000000

000010
000016
000016

36%:

MOV

054252

100000

000001

054330
054334

004737
000437

052540

054336

013746

003060

054342

016265

000000

C.RTRN

;RESTORE REGISTERS

;ERROR RETURN

RKCS1(R2),P.CS1(RS) ;STORE COMMAND AND STATUS REGISTER 1
#CERR,P.CS1(RS) ;CLEAR IF CONTROLLER ERROR RESET

BIS

#B8170,E.CONT

37%

iNO, FINISH COMMAND

JSR
BR

PC,R.CONT
C.RTRN

CONTROLLER ERROR
REPORT ERROR
sRESTORE REGISTERS

37%:

MoV

W.MILL,-(SP)

38%:

MoV

BEQ

003052

000016

MOV
BIT

#NOCHK
,P.PRST(RS) ;CHECK IF NO CHECK MODE
:YES, INDICATE ILLEGAL DRIVER COMMAND
348

SET CLEAR SUBSYSTEM DID NOT CLEAR

;LOAD 16 MILI-SECOND COUNT FOR ATTENTION
; _TO DISAPPEAR
;STORE CS1
(RS)
RKCS1(R2),P.CS1

SEQ 0209

NE.P11

26=JUN-80 10:48

032765
001411
005316
001367
005726
052737

046000

054374
054400

004737
000415

052540

054402
054404
054412
054414
054422
054430

005726
032765
001010
112737
012762
004737

054434
054440
054442
054444
054446
054450
054452
054454

012637

054350

2333

Y e

D e

D D

232232233232233333
33
N
5N 333
NS SBELERRURZEEEN o~
VO~V v

lale]
NN

NEO RK611/06 35S ViY2

000040

MACY11 30A(1052)
000016

.
PAGE 212

SEQ 0210

177777
000100
052526

003074
000000

BIT
BEQ
DEC
BNE

#01,P.CST(RS)
39%
(SP)
38%

;CHECK IF ATTENTIONS CLEARED
:YES, FINISH COMMAND
;DECREMENT 16 MILISECOND COUNT
;CHECK DRIVE INTERRUPT AGAIN

BIS

#E.SCLR,E.CONT

JSR
BR

PC,R.CONT
C.RTRN

;SET SUBSYSTEM CLEAR DID NOT CLEAR
; DRIVE ATTENTIONS

TST
BIT
BNE

(SP)+
;ADJUST STACK
#NOCHK ,P.PRST(R5) ;CHECK IF NO CHECK MODE
C.RTRN
;YES, RESTORE REGISTERS

003052

000014

012604
012605
000207

10:53

*SPECIAL COMMAND PROCESSING

000400

177776

26=-JUN-80

39%:

40$:

MOvB
Mov
JSR

C.RTRN: MOV
MOV
MoV
MOV
MoV
MOV
MOV
.SBTTL

RTS

(SP)+

;ADJUST STACK

;REPORT ERROR
;RESTORE REGISTER

#-1,1.1SRL
#1E,RKCS1(R2)
PC.R.NORM

;SET INTERRUPT ENABLE SET
;SET INTERRUPT ENABLE
sINDICATE NORMAL TERMINATION

(SP)+,PS
(SP)+,RO
(SP)+,R1
(SP)+,R2
(SP)+,R3
(SP)+,R&
(SP)+,RS

;RESTORE
;RESTORE
;RESTORE
;RESTORE
;RESTORE
sRESTORE
;RESTORE

sRETURN

PSW
RO
R1
R2
R3
R4
RS

OCTAL TO BINARY CONVERSION ROUTINE

::tti'ttt'ttttt't'tttt"t'ttttttttttttttt't'tifi!ttttt't"tt'ttttt
;t

:*
:®
b

s*CALL

THIS ROUTINE WILL CHECK A STRING OF ASCII CHARACTERS TERMINATED

WITH A NULL <000> OR COMMA.

:®

MOV

RETURN

:
:®

IF THE CHARACTERS ARE LEGAL

IT WILL GENERATE TWO BINARY WORDS PLACING THE LOW 16 BITS
ON THE STACK AND THE HIGH 16 BITS IN LOCATION SHIOCT.
<ADDRESS OF ASCII STRING>,=(SP)

PC,OCTBIN
JSR
<ADDRESS OF ERROR RETURN>

054514
054520

OCTBIN: MOV

N"U&lflfi‘-‘-‘fl"fi};

10981

054456
054460
054462
054464
054470

gsgsssg=ggesse

EISIIINII

23333233333 3

E;t'ttttttttttttt't'ttt't't"tt'ttttttt"tttttttt'tttttttttttittt
MOV
MOV
MoV

000010

Et:

2%:
000054
000060

000067

MOVB
BEQ
CMPB
BEQ
CMPB
BGT

CMPB
BLT

RO,-(SP)

;SAVE RO

R1,-(SP)
R2,-(SP)
10(SP) ,RO

:SAVE R1
;SAVE R2
;GET ADDRESS OF ASCII STRING

(RO)+,=(SP)
3t
(SP) . #',
3%
#'0,(SP)
131
#'7,(SP)
4%

;PICK THIS CHARACTER
;1F ZERO GET OUT
sCHECK IF COMMA
;1F COMMA GET OUT
sMAKE SURE THIS CHARACTER IS
: AN OCTAL DIGIT

;CLEAR DATA WORDS

——

CIR6NED RK611/06 35S ViY2

CZR6NE .P11
10982
10983
10984
10985
10986
10987
10988
10989
10990
10991
10992
10993

054522
054524
0°F S%b
054530
(54532
054534
054536
054542
054544
054546
054550
054554

10997
}0998

054566
054572

10994
10995
10996

11000
11001
11002
11003
11004
11005
11006
}}88;

26=JUN-80 10:48

054560
054562
054564

054574
054576
054600
054602
054604
054606
054610

006301
006102
006301
006102
006301
006102
042716
062601
000753
005726
010166
010237
012602
012601

012600

062716
000207

MACY11 30A(1052)

3%:

4%:

ADD
RTS

#2,(SP)
PC

:ADJUST RETURN
sRETURN

11012

s*CALL:

11031

1103%
1103
11034

11035
11036
11037

; *8
;STRIP THE ASCII JUNK
sADD THIS DIGIT
;LOOP
sCLEAN PARTIAL FROM STACK
:SAVE RESULT

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

sRESTORE R2
sRESTORE R1
:RESTORE RO

;CLEAN UP PARTIAL FROM STACK
sRESTORE R2
sRESTORE R1
+RESTORE RO
:PUT ADDRESS OF ERROR ROUTINE ON STACK
;GO PROCESS ERROR
sHIGH ORDER BITS GO HERE
ROUTINE
A L

A LA

:*THIS ROUTINE IS A DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR
:*WITH A RANGE OF 0 TO 2(+33)-1.

11013
11014
11015
11016

11030

: v4

TST
MOV
MOV
MOV
MOV

11029

SEQ 0211

;%2

(SP)+
(SP)+,R2
(SP)+,R1
(SP)+,RO
a(SP)+,(SP)
RTS
PC
$HIOCT: .WORD
O
.SBTTL RANDOM NUMBER GENERATOR

11010
11011

11019
11020
11021
11022
11023
11024
11025
11026
11027
11028

PAGE 213

R1
R2
R1
R2
R1
R2
#°C7,(SP)
(SP)+,R1
2%
(SP)+
R1,10(SP)
R2,$HIOCT

11009

11017
11018

-3

ASL
ROL
ASL
ROL
ASL
ROL
BIC
ADD
BR
TST
MOV
MOV

MOV
MOV
MOV

000002

005726
012602
012601
012600
013616
000207
000000

10:53

OCTAL TO BINARY CONVERSION ROUTINE

177770

000010
054610

26-JUN-80

o*
i
i
e
054612

054612
054614
054616
054620
054624
054630
054634
054636
054640
054642

010046
010146
010246
013700
013701
012702
006300
006101
005202
001374

054650

005501

054644

054652

054656
54662
054664

054670
054674
054700

$RAND:

054712
054710
17777

063700

054712

063701

054710

062700
005501
062701

010037
010137
012602

001057

047401
054712
054710

1%:

JSR
RETURN

PC,SRAND

;sCALL THE ROUTINE
:sRETURN HERE THE RANDOM
s sNUMBER WILL BE IN
;s SHINUM, SLONUM

MOV
MOV
MOV
MOV
MOV
MOV
ASL
ROL
INC
BNE

RO,-(SP)
R1,-(SP)
R2,-(SP)
$LONUM,RO
$SHINUM,R1
#-7,R2
RO
R1
R2
1%

::PUSH RO ON STACK
::PUSH R1 ON STACK
:sPUSH R2 ON STACK
++SET RO WITH LOW
:3SET R1 WITH HIGH
ssSET SHIFT COUNT
;sSHIFT RO LEFT AND
::ROTATE CARRY INTO R1 AND
:sCHECK FOR DONE
ssCONTINUE SHIFT LOOP

ADC

: sPROPOGATE CARRY

ADD
ADD

ADD
ADC
ADD

MOV
MOV
MOV

$SLONUM,RO
$SHINUM, R

#1057,R0
R1
#47401,R1

RO,SLONUM
R1,SHINUM
(SP)+,R2

::ADD NUMBER TO MAKE X 129
::ADD NUMBER TO MAKE X 129
s:ADD LOW CONSTANT
: sPROPOGATE CARRY
sADD HIGH CONSTANT

::SAVE RO
:sSAVE R1
::POP STACK INTO R2

CZR6NED RK611/06 35 ViY2
CZR6NE .P11
26=JUN-B0 10:48
11038
11039
110640
11041
11042

}}822

054702
054704
054706
054710
054712

6 1
MACY11 30A(1052)
26=-JUN-80 10:53 PAGE 214
RANDOM NUMBER GENERATOR ROUTINE

012601
012600
000207
176543
123456

MOV
MOV
RTS
SHINUM: .WORD
$LONUM: .WORD

.SBTTL

(SP)+,R1
(SP)+,RO
PC
176543
123456

::POP STACK INTO R1
::POP STACK INTO RO
: RETURN

TYPE ROUTINE

’10‘5

:;tt'ttttttliQtt'Q"ttQQ""""""'QQ'.Q"Q'l'i'tttittitt't""

11047
11048
11049
}}82?

:*THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED.
:*NOTE1:
$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER.
:«NOTEZ:
$FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
;*NOTE3:
$FILLC CONTAINS THE CHARACTER TO FILL AFTER.

11046

SEQ 0212

:*ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE.

]

1105¢
11053

s*CALL:
:%1) USING A TRAP INSTRUCTION

11057
11058
11059
11060
11061

3
i

11054
11055
1105%

i
:*0R
i

11062
11063

054714
054720
054722
054724

11065
11066
11067
11068
11069
11070

054730
054734
054742
054744
054752
054754

11064

11071
11072
11073
11074
11075
11076
11077
11078
11079
11080
11081
11082
11083
11084
11085
11086
11087
11088
11089
11090
11091
11092
11093

054726

054760
054764
054766
054774
054776
055000
055002
055004
055006
055012
055014
055020
055022
055026
055030
055032
055034
055036
055042
055044
055050
055054
055056

105737
100002
000000
000430

001157

017600
122737
001011
132737
001405
010037

000002
000001

001340

000100

001341

619%:
62%:

010046

004737
000000
132737
001003
112046
001005
005726
012600
062716
000002
122716
001430
122716
001006
005726
104401
001315
105037
000755
004737
123726
001350
013746

$TYPE:

1$%:

000040

2%:

000002

60%:
3%:

000011

4%:

000200

055172
055126
001156

001154

5%:
6%:

,MESADR

::MESADR IS FIRST ADDRESS OF AN ASCIZ STRING

TSTB
BPL
HALT
BR

$TPFLG
1%

::1S THERE A TERMINAL?
:.3R IF YES
:HALT HERE IF NO TERMINAL
: sLEAVE

MOV
CMPB
BNE
BITB
BEQ
MOV

82(SP) RO
#APTENV,SENV
62%
#APTSPOOL ,$ENVM
62%
RO,61%

TYPE
MESADR

MoV

054764

057412

TYPE

JSR
.WORD
BITB
BNE
MOvB
BNE
TST
MOV
ADD
RTI
CMPB
BEQ
CMPB
BNE
ST
TYPE
S$CRLF
CLRB
BR
JSR
CMPB
BNE
MOV

RO,=(SP)

:;SAVE RO

PC,8ATY3
0
#APTCSUP,SENVM
60%
(RO)+,~(SP)
43
(SP)+
(SP)+,R0
#2,(SP)

;sSPOOL MESSAGE TO APT
: sMESSAGE ADDRESS
;:APT CONSOLE SUPPRESSED
::YES,SKIP TYPE OUT
::PUSH CHARACTER TO BE TYPED ONTO STACK
:2BR IF IT ISN'T THE TERMINATOR
::1F TERMINATOR POP IT OFF THE STACK
:sRESTORE RO
::ADJUST RETURN PC
:;RETURN
:;BRANCH IF <HT>

#HT, (SP)
8%
#CRLF, (SP)
S$
(SP)+

$CHARCNT
2%
PC,STYPEC
SFILLC,(SP)+
2%
$NULL ,=(SP)

::GET ADDRESS OF ASCIZ STRING
:RUNNING IN APT MODE
:sNO,GO CHECK FOR APT CONSOLE
; ;SPOOL MESSAGE TO APT
:3NO,GO CMECK FOR CONSOLE
:sSETUP MESSAGE ADDRESS FOR APT

: ;BRANCH IF NOT <CRLF>

::POP <CR><LF> EQUIV
::sTYPE A CR AND LF
;3CLEAR CHARACTER COUNT
::GET NEXT CHARACTER
::G0 TYPE THIS CHARACTER
::1S IT TIME FOR FILLER CHARS.?
::1F NO GO GET NEXT CHAR.
s3GET # OF FILLER CHARS. NEEDED

SE——

0_RK611/06 $S Vi Y2
11
26-JUN-B0 10:48

o
ZZ

(ala]
NN

\fl“%:UflfiJthJhfl-‘C’C’
NOCSNVONONNY
onN

VIVIVIVT VTV VAW
VIV
TV AW

D
D D e
D D i i

112716
004737
132737
001372
005726
000724

105777
100375
116677
122766

001003
105037
000406
122766
001402
105227
000000
000207

i i

i
i

i e
i e

8s:
055172

000002
000015

9%:

000012

124010
000002

000002

1%:

MOVB

BITB
BNE

#7,8CHARCNT
9%

JSR

CMPB

BEQ
INCB
$CHARCNT: ,WORD
$TYPEX: RTS

i
el D e

:®
i

.
;e

1
PAGE 215

SEQ 0213

;sAND THE NULL CHAR.

:;DOES A NULL NEED TO BE TYPED?

:;BR IF NO=-=GO POP THE NULL OFF OF STACK
::6G0 TYPE A NULL

::D0 NOT COUNT AS A COUNT
s sLOOP

,(SP)

PC.‘TYPEC
(SP)+

;sREPLACE TAB WITH SPACE

::TYPE A SPACE

;;BRANCH IF NOT AT
::TAB STOP
;;POP SPACE OFF

STACK

2%
a$TPS
$TYPEC
2(SP) ,a$TPB
#CR,2(SP)
1%
$CHARCNT
$TYPEX

::GET NEXT CHARACTER

$TYPEX
(PC)+
O
PC

s ;BRANCH IF YES
s sCOUNT THE CHARACTER

#LF,2(SP)

;sWAIT UNTIL PRINTER IS READY
;;LOAD CHAR TO BE TYPED INTO DATA

:+1S CHARACTER A CARRIAGE RETURN?
; sBRANCH IF NO
::YES==CLEAR CHARACTER COUNT
233EXIT
::1S CHARACTER A LINE FEED?

: s CHARACTER COUNT STORAGE

DOUBLE-PRECISION MULTIPLY SUBROUTINE

SUBROUTINE TO MULTIPLY TWO DOUBLE PRECISION INTEGERS
USES ALL REGISTERS (RO=R5)

PC,M.DPIM
JSR
ENTER WITH
MULTIPLIER IN R2-R3

MULTIPLICAND IN R&4=RS
PRODUCT RETURNED IN RO-R1-R2-R3

*§

NOO SO SNOONN

U‘U‘fi)fi)fi)hfl-‘-‘-‘-‘:a‘?gg o

LS TSI ST STSISLUS LS LN LN LN LN L B

WVIVAWVIWA
VAWV
WMWY
VIVAIVAWVIVAVAVTVA VAW

:"tt'i'l't'."'t"""'""'t"t't'lt'i'fil."l't'.'iit't'.i't"'

OO0 O0O0O0O0O0O0O0O000O0

VO NO WV

$SCHARCNT
7%

CLRB

"SBTTL

e
D
D D i
D i
i
e

DECB
BR

PC,STYPEC

':titt'it.'t..t'i"'i"i"""t'ttttt.t'lti'ittt"!""t'it'""'

d d i e
D i i e i

BPL
MOvB
CMPB
BNE

055172

o
i
e D i

i e

1(SP)

BLT

TST
BR
$TYPEC: TSTB

124016

D D i i e

D
e D e
D D D
i e

000040
055126
000007

D
D
i
i
D D o D
D i i e

10:53

;HORIZONTAL TAB PROCESSOR

D i
D i

D D D

000770

* %

i d h e
e o e o
o

DECB

JSR

[elelelelelelelelplel

D i d B DO

D i D i
D
D e
D i D i
D D D i
D i i i
D i D D
D e i
D i i

7%:

‘-t

—
e

26-JUN-B0

TYPE ROUTINE

105366

i i e i D
B i D D

325252332323
WA 2OV
NOWVMSWN2OOVONOWVS WOV~
l~'~l‘J\J‘l\l“C‘““\d\fl\fl&:hfl*:UlUiuiUthhJNJ&JNJKJNJHJNJ&J-a_a_._n_o-a.n.a-a_ac>c>c>sz
WA —=O OV
~NOrW

094

MACY11 30A(1052)

005000
005001
012746
006000
006001
006002

M.DPIM: CLR
000041

CLR
MOV

RO
R1
#41,-(SP)

ROR

M.DPO1: ROR
ROR
ROR

;MOVE 33 (DEC) TO COUNTER
;SHIFT TO ADD

BCC

M.DPO2

+NO CARRY NO ADD

ADC
ADD
M.DP02: DEC
BNE
IST

RO
R4 RO
asP
M.DPO1
(SP)+

;ADD DOUBLE PRECISION TO OBTAIN NEW PARTIAL
:
PRODUCT
;DECREMENT COUNTER

ADD

001366
005726

RO
R1
R2

;CLEAR HI ORDER wORDS

RS .R1

;REMOVE THE COUNTER

CIR6 NEO RK611/06 3S ViY2

CZR6NE .P11
11150

11151
11152

MACY11 30A(1052)

26=JUN-80 10:48

055234

26-JUN-B0

10:53

1
PAGE 216

DOUBLE=PRECISION MULTIPLY SUBROUTINE

000207

RTS

11153

11154

.SBTTL

11155

SEQ 0214

A A

DOUBLE=PRECISION DIVIDE SUBROUTINE

}}}g?

USES ALL REGISTERS (RO=RS5)

11158

ENTER WITH

mg%

11164

g
o
e

055236
055242
055244
055246
055252
055254
055260
055262
055264

012746
010446
010546
005466
005416
005666
061601
005500
066600

11175

055272

005046

11176 055270 103445

11176
11177
11178
11179

055274
055276
055300
055302

11183
11184

055312
055316

11180
11181
11182

11185

055304
055306
055310

005716
001410
005016

055320

005516

11188
11189
11190
11191

055330
055332
055334
055336

060501
005500
005516
060400

11205

055374

005516
005716
001401
005203
005366
003347
006003

000006

103404
060501
005500
060400
000241

006103
062706

000010

PC,M.DPID

;;t'ttttttttQt'tt"'"Q'""'ttt"ttittt.ttt..tttttt'ttttttt""i

M.DPID: MOV
MOV
MOV
NEG
NEG
SB(
ADD
ADC
ADD

BCS

M.DP40: ROL
ROL
ROL
ROL

JSR

QUOTIENT RETURNED IN R2-R3

CLR

000004

11187 055326 000404

055360
055362
055364
055366
055370
055372

000002

066600

11199
11200
11201
11202
11203
11204

000002

066601
005500

055322

055340
055342
055344
055346
055350
055354
055356

000002

006103
006102
006101
006100

11186

11192
11193
11194
11195
11196
11197
11198

000040

ARl l)

DIVIDEND IN RO-R1-R2-R3
DIVISOR IN R&4=R5
REMAINDER RETURNED IN RO=-R1

]

11165
11166
11167
11168
11169
11170
11171
11172
11173

SUBROUTINE TO PERFORM DOUBLE=PRECISION INTEGER DIVISION

11159
11160
11161

TST
BEQ
CLR
ADD
ADC

ADC

ADD

M.DP41: ADD
AD(
ADC
ADD

M.DP&2: ADC
TST
BEQ
INC
DEC
BGT
ROR

BCS
ADD
ADC
ADD
CLC
M.DP44: ROL

ADD

#40,-(SP)
R4 ,=-(SP)
RS,=(SP)
2(SP)
asP
2(SP)
asP.R1
RO
2(SP),RO

sCOUNTER FOR DIVISION CYCLES
sHI ORDER
;LO ORDER DIVISOR TO THE STACK
sFORM NEGATIVE
:
VERSION OF THE DIVISOR

-(SP)

:THIS IS A LONGER LASTING CARRY BIT

H.DPSé
R3
R2
R1
RO

aSP
M.DP41
asSP

2(SP) ,R1
RO

asSP

;PERFORM THE INITIAL SUBTRACTION

:1F CARRY THEN OVERFLOW HAS OCCURRED

:TEST "'CARRY INDICATOR''
:1F NO '"'CARRY'' THEN ADD ELSE SUBTRACT
:CLEAR UP FOR NEXT TIME
¥ 3

4(SP) RO ;<

sADD -(DIVISOR)
sSET "'CARRY"’

M.DP42
RS,.R1
RO
asSP
R4,RO

asSP
asSP
R
R3
6(SP)
M.DP4O
R3

5 |
i<

.2
: 1
€

;ADD +(DIVISOR)
sSET "'CARRY
;
3
:SET "'CARRY’
sTEST THE UPDATE INDICATOR
;1F ZERO FORGET IT
:sNO CARRY POSSIBLE HERE
sDECREMENT COUNTER
;BR IF MORE TO DO

M.DP44
RS,R1
RO
R4 ,RO

RY
#10,SP

sADJUST STACK BY & WORDS

CIRGNEO RK611/06 3S ViY2

CZR6NE .P11
11206

11207
11208
11209
11210
11211
11212
11213

26=JUN-80 10:48

055400

055402
055404
055410
055412

000242

000207
062706
000262
000207

MACY11 30A(1052)

26-=JUN-80

1
PAGE 217

DOUBLE=PRECISION DIVIDE SUBROUTINE
CLv

000006

10:53

RTS
M.DP50: ADD
SEV
RTS

PC
#6,5P
PC

}}%}g

.SBTTL

11216

11219

11218

s*UNSIGNED OCTAL ASCIZ NUMBER.
s*CALL

11221

11217

}}%g%
11224

11238
11239
11240
11241

11242
11243
11244

11245
11246
11247
11248

11249

055414
055416
055422
055426
055432
055436
055440
055442
055444
055446
055450
055452
055454

055456
055460
055464

055466

055470
055472
055474

055476
055500
055502
055504

104407
016601
012705
012704
012703
012100
012101
005002
110245
010002
005304
003007
001405

005205
010566
104410

000002
055533
000014
177770

006203
006001
006000

055506

055514
055516

000753
000016

}}ggz

MOV

RETURN

$0B20:

JSR

2%:
3%:

:;POINTER TO LOW WORD OF BINARY NUMBER

::CALL THE ROUTINE

::THE ADDRESS OF THE FIRST ASCIZ CHAR. IS ON THE STACK

ssRETURN TO USER

ROR
ROR
ROR
ROR
BIC

R1
RO
R1
RO
R3,R2

ADD

RS
RS,2(SP)
R3
R1
RO

#'0,R2
1%
14,

;sALL DIGITS DONE-ADJUST POINTER FOR FIRST
:sASCIZ CHAR. & PUT IT ON THE STACK
;sRESTORE ALL REGISTERS
:;POSITION THE MASK FOR THE LAST DIGIT
;;POSITION THE BINARY NUMBER FOR
HH
THE NEXT OCTAL DIGIT

s sMASK OUT ALL JUNK

:iMAKE THIS CHAR. ASCII

::G0 PUT IT IN THE DATA TABLE
s sRESERVE DATA TABLE

DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE

s*POSITIVE.
s*CALL

11261

PC,ar$0B20

ASR
ROR
ROR

BR
$OCTVL: .BLKB

.SBTTL

#PNTR,=(SP)

RTS

11558

11260

ALl

2(SP) R
#80CTVL+13.,RS
#12..R4
#°C7,R3
(R1)+,R0
(R1)+,R1
R
R2,=(RS)
RO,R2
R&
3%
2%

11259

;sSAVE ALL REGISTERS
;sPICKUP THE POINTER TO LOW WORD
;;POINTER TO DATA TABLE
2:D0 ELEVEN CHARACTERS
; sMASK
s sLOWER WORv
s +HIGH WORD
; s TERMINATOR
:sPUT CHARACTER IN DATA TABLE
;:GET THIS DIGIT
ssCOUNT THIS CHARACTER
:sBR IF NOT THE LAST DIGIT
ssBR IF IT IS THE LAST DIGIT

11255

11256
11257

L L A AR

SAVREG
MoV
MOV
MOV
MOV
MOV
MOV
CLR
MOVB
MOV
DEC
BGT
BEQ

INC
MOV
RESREG

000002

000207

006001
006000
006001
006000
040302

1%:

11250 055510 062702 000060
11251
11252

DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE

;*THIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN

11220

11225
11226
11227
11228
11229
11230
11231
11232
11233
11234
11235
11236
11237

SEQ 0215

L L L L L

L L

bk bbdddubiubtebdui

;*THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED
s*DECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE

MOV

JSR

#PNTR,-(SP)

PC,arfpB2D

::;POINTER TO LOW WORD OF BINARY NUMBER

CIR 6NEO RK611/06 3S ViY2

CIRONE.P11

26=JUN=-B0 10:48

MACY11 30A(1052)

11263

11266
11267

11268
11269

055534
055536

055542
055546

104407
016602

012700
010066

11270 055552 012201

10:53

PAGE 218

DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE

11262
11264
11265

26-JUN-80

000002

RETURN

$DB2D:

SAVREG
MOV

055714
000002

;:THE FIRST ADDRESS OF ASCIZ
::1S ON THE STACK

2(SP) ,R2

; ;SAVE REGISTERS
*:PICKUP THE DATA POINTER

(R2)+,R1

$:PICKUP THE BINARY NUMBER

MOV
MOV

#SDECVL , RO
RO,2(SP)

MOV
MOV
MOV
MOV
CLR
SUB
SBC
SUB
BLT
INC
BR
ADD
ADC
ADD
CMP

(R2)+.R2
#10.,48
#STNPWR, R4
#STNPWR+2,RS
R3
(R4) ,R1
R2
(RS) ,R2
3$
R3
2%
(R4) +,R1
R2
(R4)+,R2
(RS)+. (RS)+

MOV

*'GET ADDRESS OF '‘SDECVL'' STRING
*'PUT ADDRESS OF ASCIZ STRING ON STACK

11271
11272
11273
11274
11275
11276
11277
11278
11279
11280
11281
11282
11283
11284
11285

055554
055556
055564
055570
055574
055576
055600
055602
055604
055606
055610
055612
055614
055616
055620

012202
012737
012704
012705
005003
161401
005602
161502
002402
005203
000772
062401
005502
062402
022525

11287
11288
11289
11290
11291
11292
11293
11294
11295
11296
11297
11298
11299
11300

055626
055630
8556 2
0556
055636
055640
055642
055644
055646
055650
055652
055656
055656
055660

110320
005327
800000
01357
105020
104410
000207
145000
035632
160400
002765
113200
000230
041100

MOVB
DEC
48:
LWORD
BNE
CLRB
RESREG
RTS
$TNPWR: 145000
35632
160400
2765
113200

041100

::1.0E06

11302

055664

103240

::1.0€E05

11304

055670

023420

23420

::1.0E04

055674

001750

1750

::1.0€E03

055700

000144

144

::1.0E02

055704

000012

::1.0E01

::1.0€00

000012
055644
055646

11286 055622 052703 000060

11301

11303

055662
055666

11305

055672

11307

055676

11306

11308

11309

11310
11311

055702

055706

11312

055710

11314
}};}z

055714

11313

11317

055712

000017
01

055632
1%:
2%:

3$:

BIS

000000

000001

000014

#'0,R%

R3,(R0)+
(PC)+
0
1%
(RO)+
PC

::SET UP TO DO 10 CONVERSIONS
:*ADDRESS OF TEN POWER
::CLEAR PARTIAL
1 'SUBTRACT TEN POWER

;:BR IF TEN POWER TO LARGE
SLADD 1 TO PARTIAL
::LOOP
**RESTORE SUBTRACTED VALUE

::MOVE TO NEXT TEN POMER

*'CHANGE PARTIAL TO ASCII
SESAVE IT
: :DONE?

::BR IF NO
:TERMINATOR
::RESTORE REGISTERS
: *RETURN
::1.0E09

::1.0E08

::1.0€E07

$DECVL: .BLKB
12.
: :RESERVE STORAGE FOR ASCIZ STRING
_SBTTL TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS
.':"t"t.t'tt'."'"""""Q"t"'.".i'..'I'l"'."lt"l"i""

SEQ 0216

N EO

RK611/06 sS ViY2
NE.P11
26=JUN-80 10:48

L 1
MACY11 30A(1052) 26=JUN-80_ 10:53 PAGE 219
TYPE NUMERICAL ASCIZ STRING SUPPRESS LEADING ZEROS

18
19

:*THIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE
s*LEADING NUMBERS.

20
21
22
2S

26
27

055730

055732
055736

055740
055742
055746
055750
055752
055756
055760
055762
055764
055766

010046

016600
105710

001403
122720
001773
905300
010037
104401
000000
012600
012616
000207

MOV
JSR

$SUPRS: MOV

000004

MOV
1STB

1%:

2%:

055760

#NUMADR,=(SP)
PC,a#$SUPRS

;;FIRST ADDRESS OF ASCIZ STRING

RO,=(SP)

::SAVE RO

4L(SP) RO
(RO)

BEQ
2%
CMPB
#'0,(RO)+
BEQ
1%
DEC
RO
MOV
RO,3$
TYPE
MWORD
O
MOV
(SP)+,RC
MOV
(SP)+, (SP)
RTS
PC
BINARY TO OCTAL (ASCII)

000060

3$:

.SBTTL

NN
N NN
NN NN
\hU“hb*:bJMbthgfl#g:

28
29
30
31
32
33
34
35
36
37
gg

s*CALL
i
B

:sPICKUP THE POINTER
:;TERMINATEOR?

::BR IF YES
::1S THIS AN ASCII 0" ?
+:BR IF YES
:;BACKUP BY '"1"
:;SAVE FOR TYPING
::G0 TYPE
:3;ASCIZ POINTER GOES HERE
:;RESTORE RO
:sRESTORE THE STACK
: sRETURN
AND TYPE

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

1
2

:*THIS ROUTINE IS USED TO CHANGL A 16-BIT BINARY NUMBER TO A 6-DIGIT
+OCTAL (ASCII) NUMBER AND TYPE IT.

:'EIIEOS'-'ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

5
6
7

i
H
H

MOV
TYPOS
.BYTE

.BYTE

NUM,=(SP)

; NUMBER TO BE TYPED
::CALL FOR TYPEOUT
:sN=1 TO 6 FOR NUMBER OF DIGITS TO TYPE

::M=1 0R 0

;31=TYPE LEADING ZEROS

::0=SUPPRESS LEADING ZEROS

:*$TYPON====ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST
;*$TYPOS OR $TYPOC
s*CALL:
.
MOV
NUM, - (SP)
L
TYPON

LN N NN N

53
54
55
gg

;;NUMBER T0O BE TYPED
;sCALL FOR TYPEOUT

:'glltOC"°ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER

360

;
3

364
365
366
367
368
9
70
71
72
73

055770

055774
056002
056006
056012
056014
056022
056030
056036
056040
056042

017646

116637
112637
062716
000406
112737
112737
112737
010346
010446
010546

000000
000001
056215
000002

056213

000001
000006
000005

056213
056215
056212

MOV

TYPOC

$TYPOS: MOV

MOvB
MOVB
ADD
BR
STYPOC: MOVB
MOVB
STYPON: MOVB
MOV
MOV
MOV

NUM,-(SP)

a(SP),=-(SP)

1(SP),SOFILL
(SP)+,SOMODE+1
#2,(SP)
$TYPON
#1,80FILL
#6,30MODE +1
#5,80CNT
R3,-(SP)
R& ,-(SP)
RS,-(SP)

: sNUMBER TO BE TYPED

::CALL FOR TYPEOUT
::PICKUP THE MODE

:sLOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE
::;ADJUST RETURN ADDRESS

:3SET THE ZERO FILL SWITCH
;sSET FOR SIX(6) DIGITS
::SET THE ITERATION COUNT
::SAVE R3
::SAVE Ré&
::SAVE RS

SEQ 0217

IR6NEO RK611/06 3S ViY2

IR6NE .P11
11374

056044

11376
11377

056052
056056

11379
11380

11375

11378
11381

11382

11383

11384
11385
11386
11387
11388
1389
1390
1391
1392
1393

1394

1395
1396
1397
1398
1399
1400
1401

1402

1403
1404
1405

1406
1407

1408
1409

1410
1411
1412
1413
16414
}2}2

26=JUN=-80 10:48

MACY11 30A(1052)

26=JUN-80

10:53

SEQ 0218

113704

056215

MOVB

$SOMODE +1,R4

::GET THE NUMBER OF DIGITS TO TYPE

062704
110437

000006
056214

ADD
Move

#6,R4
R4, SOMODE

:sSUBTRACT IT FOR MAX. ALLOWED
::SAVE IT FOR USE

056066
056072

016605
005003

000012

MOV
CLR

12(SP) RS
R3

:sPICKUP THE INPUT NUMBER
ssCLEAR THE OUTPUT WORD

056076

000404

056050

056062
056074

056100

056102
056104
056106
056110
056112
056116
056120
056126
056126
0561

056132

056134
056140
056144
056150
056154
056160
056162

056164

005404

113704

NEG

056213

MOvVB

006105

1%:

006105

2$%:

006105
006105
010503
006103
105337
100016
042703
001002
005704
001403

005204

052703
052703
110337
104401
105337
003347
002402

3$:

056214
177770

4%:

000060
000040
056210
056210
056212

5%:

7%:

005204

012603
016666

056210
056211
056212
056213
056214

000
000
000
000
000000

056204
056206

012616
000002

ROL

ROL
ROL
MOV
ROL
DECB
BPL
BIC
BNE
TST
BEQ

INC

6%:
000002

RS
RS
RS,R3
R3
$OMODE
7%
#177770,R3
4%
R4
5%

BR
MOV
MOV

2%
(SP)+,RS
(SP)+,R4

MOV
RTI

(SP)+,R3
2(SP) ,4(SP)
(SP)+,(SP)

:;ROTATE MSB INTO '°C''

::FORM THIS DIGIT
:;GET LSB OF THIS DIGIT
::TYPE THIS DIGIT?
::BR IF NO
::GET RID OF JUNK
::TEST FOR 0
: :SUPPRESS THIS 0?
+sBR IF YES

::DON'T SUPPRESS ANYMORE 0°'S
:sMAKE THIS DIGIT ASCII
:sMAKE ASCII IF NOT ALREADY
::SAVE FOR TYPING
::60 TYPE THIS DIGIT
:;COUNT BY 1
::BR IF MORE TO0 DO
::BR IF DONE

::INSURE LAST DIGIT ISN'T A BLANK
::G0 DO THE LAST DIGIT
:;RESTORE RS
:sRESTORE Ré&

::RESTORE R3
::SET THE STACK FOR RETURNING

: ;RETURN
.BYTE
0
::STORAGE FOR ASCII DIGIT
.BYTE
0
::TERMINATOR FOR TYPE ROUTINE
$OCNT:
.BYTE
0
ss0CTAL DIGIT COUNTER
$OFILL: .BYTE
O
:s2ERO FILL SWITCH
$SOMODE: .WORD
O
:sNUMBER OF DIGITS TO TYPE
.SBTTL CONVERT BINARY TC DECIMAL AND TYPE ROUTINE

8%:

1422

:*REPLACED WITH SPACES.

14618
1419
1420
1621

;:GET THE ZERO FILL SWITCH

::G0 DO MSB

#'0,R3
# ,R3
R3,8%
,8%
SOCNT
2%
6%

MOV
MOV

000004

$OFILL,RG

BIS
BIS
MOVB
TYPE
DECB
BGT
BLT

INC

056166 000744
056170 012605
056172 . 012604

056174
056176

ROL

R L

L T P T R LT LT

L L

:*THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT
:*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
:*NUMBER ]S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
:*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE

1423

s*CALL:

14624
}2%2
1428
1429

PAGE 220

BINARY TO OCTAL (ASCII) AND TYPE

1617

1427

H
L

056216

056216
056220

010046
010146

$TYPDS:

MOV
TYPDS

NUM,=(SP)

::PUT THE BINARY NUMBER ON THE STACK
::G0 TO THE ROUTINE

MOV
MOV

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

::PUSH RO ON STACK
:sPUSH R1 ON STACK

lalal

RONED RK611/06 3S Viv2
RONE.P11
26-JUN-80 10:48

1430
1431
143§

056222
056224
056226

o1o§46
010346
010546

143,
1435
1436
1437
1438
1439

056
056240
056242
056244
056252
056254

016605
100004
005405
112766
005000
012703

1433

1440

1641
1442
1443
16644

056

056260
056264
056266
056272
056274

1445
1446
1447
1448
1449
1450
1451
1452
1453
1454

056276
056300
056302
056304
056306
056310
056312
056314
056316
056320

1456
1457

056332
056;28

1455

1458

012746

112723

005002
016001
160105
002402

005202
000774
060105
005702
001002
105716
100407
106316
103003
116663

056326

052702

056

005720

11475
11476

056416
056420

012616
2

11477
11478
11479
11480
11481
}}63%
&

056422
056424
056426
056430
056432

016666

023420
001750
000144
000012
000004

000001

18:
2%:

056422

3s:

4$:

5%:
000001

000060

177777

68:
7%:

:
056432

000002

Rg.-(sp)
R3,=(SP)
RS =(SP)

;:PUSH R2 ON STACK
:*PUSH R3 ON STACK
$:PUSH RS ON STACK

MOV
BPL
NEG
MOVB
CLR
MOV

20(SP) .RS
1
RS
#'=,1(SP)
RO
#SDBLK ,R3

::GET THE INPUT NUMBER
$:BR IF INPUT IS POS.
::MAKE THE BINARY NUMBER POS.
:sMAKE THE ASCII NUMBER NEG.
::2ERO THE CONSTANTS INDEX
::SETUP THE OUTPUT POINTER

move
CLR
MOV
SUB
BLT

INC
BR
ADD
ST
BNE
TSTB
BMI
ASLB
BCC
MOVB

BIS

BIS
MOVB

177776

98:

000004

$DBLK:

.SBTTL

#' ,(RY)+

R2
$DTBL(RO),R1
R1,RS
48
R2
3$
R1.RS
R2
5$
(SP)
7%
(SP)
68
1(SP),-1(R3)

#'0,R2

$:SET THE FIRST CHARACTER TO A BLANK
::CLEAR THE BCD NUMBER
::GET THE CONSTANT
::FORM THIS BCD DIGIT
::BR IF DONE

: *INCREASE THE BCD DIGIT BY 1

::ADD BACK THE CGNSTANT
:*CHECK IF BCD DIGIT=0
S:FALL THROUGH IF 0
ssSTILL DOING LEADING 0'S?
::BR IF YES
::MSD?
::BR IF NO
::YES==SET THE SIGN

: MAKE THE BCD DIGIT ASCII

CMP
BLT
BGT
MOV
BR
TSTB
BPL
MOvB
CLRB
MOV
MOV
MOV
MOV
MOV
TYPE

RO,#10
28
8s
RS,R2
6%
(SP)+
9%
=1(SP),=2(R3)
(R3)
(SP)+,RS
(SP)+,R3
(SP)+.R2
(SP)+,R1
(SP)+.RO
$DBLK

::CHECK THE TABLE INDEX
::G0 DO THE NEXT DIGIT
1160 TO EXIT
S:GET THE LSD
160 CHANGE TO ASCII
J:WAS THE LSD THE FIRST NON-ZERO?
::BR IF NO
J3YES==SET THE SIGN FOR TYPING
::SET THE TERMINATOR
::POP STACK INTO RS
::POP STACK INTO R3
::POP STACK INTO R2
;:POP STACK INTO R1
1iPOP STACK INTO RO
SINOW TYPE THE NUMBER

MOV
RTI

(SP)+,(5P)

10000.
1000.
100.
10.
.BLKW

(RO)+

2(sP),4(SP)

SEQ 0219

::SET BLANK SWITCH AND SIGN

SSMAKE IT A SPACE IF NOT ALREADY A DIGIT
:PUT THIS CHARACTER IN THE OUTPUT BUFFER

MOV

$DTBL:

#20200,-(SP)

0" RZ
R2,(R3)+

8%:
177777

MOV
MOV
MOV

MOV

000040

000010

020027
002746
003002
010502
000764
105726
100003
116663
105013
012605
012603
012502
012601
012600
104401

056410

000055
5
056432

000040

056342
056346
056350
056352
05635¢
056356
056360
056362
056370
056372
0563764
056376
056400
056402
056404

N 1
30A(1052)
26-JUN-80
10:53 PAGE 221
CONVERT BINARY TO DECIMAL AND TYPE RCJTINE

000020

052702
110;53

11459
11460
11461
11462
11463
11464
11465
11466
11467
11468
11469
11470
11471
11472
11473

11476

020200

MACY11

::JUST INCREMENTING

1 *ADJUST THE STACK

;;RETURN TO USER

ERROR HANDLER ROUTINE

1]“‘

::ttttttttfitt"t'tt"t""t"tt't'tl'ittttt't"ttt"ttttt'ttttt'l

11485

s*THIS ROUTINE WILL

INCREMENT

THE ERROR FLAG AND THE ERROR COUNT,

%
N

CIR 6NEO RK611/06 S ViY2

CZR6NE .P11

26=JUN-B0 10:48

MACY11 30A(1052)
26=JUN-80 10:53
ERROR HANDLER ROUTINE

11486
11487
11488
11489

;*SW13=1
;*SW10=1
;+SW09=1
;*CALL

}}23?

056442
056442
056446
056450

105237
001775
013777

11503 056472

005237

11500
11501
11502

11504
11505
11506
11507
11508
11509
11510
11511
11512
11513
11514

11515
11516
11517

11518
11519
11520
11521

11522

11523

11524

11525
11526

}}ggg
11529

11530
11531
11532
11533

}}g%g

2
PAGE 222

:*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL
:*AND GO TO TYPERR ON ERROR
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
;*SW15=1
HALT ON ERROR

11490
11491
11492
11493

11496
11497
11498
11499

056456
056464
056466

056476
056502
056510
056516
056524
056526
056532
056536
056536
056544
056546

056554
056560
056561

032777
001402
104401

011637
162737
117737
032777
001004
004737
104401

122737
001007
113737
004737
000
000

$ERROR:
7%:

001103

001102
002000

122464
122454

001310

001112

001116
000002
122402
020000

1$:
001116
001114
122414

042760
001315
000001

001340

001114
057422

056560

208:

218:

056562
056564

000777
005777

122350

056574

032777

001000

013716

001110

001306

4$:

013716

001306

022737

024006

056570
056572
056602

056604

056610
056614

822253
056622

056630
056632
056634
056634

100001
000000
001402

005737
001402

001001
000000
000002

122336

INHIBIT ERROR TYPEOUTS

BELL ON ERROR
LOOP ON ERROR

ERROR

INCB
BEQ
MOV

SERFLG
::SET THE ERROR FLAG
7%
::DON'T LET THE FLAG GO TO ZERO
STSTNM,aDISPLAY ;;DISPLAY TEST NUMBER AND ERROR FLAG

INC

$ERTTL

BIT
BEQ
TYPE

#B1T10,3SWR
1%
$BELL

::BELL ON ERROR?
;iNO = SKIP
::RING BELL

MOV
SUB
MOVB
BIT
BNE
JSR
TYPE

(SP) ,$ERRPC
#2 ,8ERRPC
@SERRPC,SITEMB
#BIT13,3SWR
208
PC,TYPERR
LOCRLF

::GET ADDRESS OF ERROR INSTRUCTION

CMPB
BNE
MOVB

#APTENY, SENV
2%
$ITEMB, 218
PC,SATYS
0
0

: :RUNNING IN APT MODE
::NO,SKIP APT ERROR REPORT
::SET ITEM NUMBER AS ERROR NUMBER

::SKIP IF CONTINUE
::HALT ON ERROR!

JSR
.BYTE
BYTE

22%:
28:

B8R
TST

3%:

000042

LSBTTL

:;COUNT THE NUMBER OF ERRORS

;;STRIP AND SAVE THE ERROR ITEM CODE
;:SKIP TYPEOUT IF SET
::SKIP TYPEOUTS
;260 TO USER ERROR ROUTINE

::REPORT FATAL ERROR TO APT

22%
asSWR

::APT ERROR LOOP
: :HALT ON ERROR

BIT

#BI1T09,aSWR

::LOOP ON ERROR SWITCH SET?

MOV

SLPERR, (SP)

BPL
HALT
BEQ

TST
BEQ

MOV
CMP

6%:

: :ERROR=EMT AND N=ERROR [TEM NUMBER

BNE
HALT
RTI

$ESCAPE
5%

$ESCAPE, (SP)
#SENDAD , 3¥42
6%

TTY INPUT ROUTINE

::BR IF NO

::FUDGE RETURN FOR LOOPING

::CHECK FCR AN ESCAPE ADDRESS
::BR IF NONE

: :FUDGE RETURN ADDRESS FOR ESCAPE
:2ACT=11 AUTO-ACCEPT?
: :BRANCH IF NO
;s YES
::RETURN

11536

::ttttt'tittttitttti'tttttttt't'ttttttitttfi'ttttttlfi't'tt't"t'tt

11537
11538
11539
11540
11541

.ENABL

LSB

.DSABL

LSB

SEQ 0220

CIR6N EO RK611/06 35S ViY2

CIR6NE.P11

26=JUN-80 10:48

MACY11 30A(1052)

26-JUN-B0

TTY INPUT ROUTINE

115‘.2

10:53

PAGE 223

SEQ 0221

;:t'tt"'tttttttt""'t't"'Q""ttt't"'Q"tt't"t't't't'tttttt'

}}gzz

:'E:{E ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

11545
11546
11547

I
e
e

11548
11549

056636
056640
056646
056652
0566564

011646
016666
105777
100375
117766

::INPUT A SINGLE CHARACTER FROM THE TTY
S :CHARACTER IS ON THE STACK
;:WITH PARITY BIT STRIPPED OFF

11557
11558
11559
11560

056676
056700
056704
056706

001013
105777
100375
117746

11562

056716

022627

$SRDCHR: MOV
MOV
1%:
TSTB
BPL
MOVE

(SP),=(SP)
4(SP),2(SP)
as$TkS
1%
@$TKB,4(SP)

: :PUSH DOWN THE PC
1 :SAVE THE PS
S:WAIT FOR
1:A CHARACTER
:SREAD THE TTY

122234

BNE
TSTB
BPL
MOVBE

3s
@$TKS
28
a$TKB,=-(SP)

:*BRANCH IF NO
::WAIT FOR A CHARACTER
1:LOOP UNTIL ITS THERE
::GET CHARACTER

000021

CMP

000004
122272

000002

122266

000004

11555 056662 042766 177600 000004
11556 056670 026627 000004 000023

11563
11564
11565
11566
11567
11568
11569
11570
11571

RDCHR
RETURN HERE

11550
11551
11552
11553
11554

11561

056712 042716
056722
056724
056726
056734
056736
056744
056746
056754
056756

001366
000750
026627
002407
026627
003003
042766
000002
052536

122240

BIC
CMP

28:

177600

BIC

000004

000140

000004

000175

000040

000004

005015
006507
053523

000
000012

BNE
BR
3$:
CMP
BLT
CMP
BGT
BIC
48:
RTI
S$CNTLU: .ASCIZ

#C<177>,4(SP)
4(SP),#2%
#C177, (sP)
(SP)+, #21

2%
1%
4(SP),#140
48
4(SP),M175
48
#40,4(SP)

::GET RID OF JUNK IF ANY
2218 IT A CONTROL=S?
SIMAKE IT 7-BIT ASCII
::1S IT A CONTROL=-Q?

::1F NOT DISCARD IT
1iYES, RESUME
2218 IT UPPER CASE?
:BRANCH IF YES
S31S IT A SPECIAL CHAR?
::BRANCH IF YES
1:MAKE IT UPPER CASE
;160 BACK TO USER
::CONTROL 'U'

S$CNTLG: .ASCIZ
$MSWR:

.ASCIZ

/*U/<15><12>
/*G/<15><12>
;:CONTROL ''G"'
<15><12>/SWR = /

SMNEW:

.ASCIZ

}}gg?

.SBTTL

POWER DOWN AND UP ROUTINES

11582

:POWER DOWN ROUTINE

11572

056763

11574
11575
11576
11577
11578
11579

056776
057001
057006

11573

11583
11584
}}ggg

056770

057012
057020
057022

11587

136

005015

020075
040
036440

012737
000000
000776

000
047040
000040

057024

11588 057024

005037 057076

11591

012737

11589
11590

057030
057034

11592
11593
11594
11595
11596
11597

057044
057052
057060
057
057070
057072

057036

005237
001375

012737
012737
012706
104401
000005
000177

020122
053505

000024

000340
000340
001100
057100
122010

NEW = /

#S$PURUP,PWRVEC

)

:POWER UP ROUTINE

$PWRUP: CLR

057076

057012

$PWRDN: MOV
HALT
BR

4$:

000024

000026
000036

INC
BNE

MOV

MOV
MOV
MOV
TYPE
RESET
JMP

;

$PWRCT

$PWRCT
48

#SPWURDN,PWRVEC

#PR7,PWRVEC+2
#PR7
. TRAPVEC+2
#STACK,SP
,PWRMSG
aSLPADR

:SET VECTOR FOR POWER UP
*HANG UP

:WAIT LOOP FOR TTY TO COME P
:SET VECTOR FOR POWER DOWN

:RE-ESTABLISH POWER AND TRAP PRIORITIES
sRE=INITIALIZE THE STACK
:TYPE 'POWER FAILED
:CLEAR THE UNIBUS
:RESTART THE CURRENT TEST

6NEO RK611/06 35S ViY2
6NE P11
26=JUN-B0 10:48

057076
057100
057106
057114

MACY11 30A(1052)

26-JUN-80

10:53

POWER DOWN AND UP ROUTINES

82%?%;

$PWRCT:
PWRMSG:

000

SEQ 0222

O
<15><12>/POWER FAILED/<15><12>

:* SCOPE1 = INTERNAL SCOPE ON ERROR ROUTINE
;*CALLED BY ''SCOPER"’

:'t'..'t'""Q""""""'t"""t"""""'."'tti"tt"""t'

057122
057126
057130
057136
057140
057144

105737
001406

032777
001402
013716
000002

SCOPE1: TSTB

001103
001000

001110

D el el e

VIV

W= OO0~

D e e
) el
D
i
D el
il
—

SERFLG

6$:

.SBTTL

SCOPE HANDLER ROUTINE

R R AR R RN

:SEE IF AN ERROR HAS OCCURRED

:BR IF NOT
:SEE IF LOOP ON ERROR DESIRED
:BR IF NOT
:SET ERROR LOOP ADDRESS ON STACK
:RETURN

6%
#BIT9,aSWR
6%
$LPERR, (SP)

BEQ
BIT
BEQ
MOV
RTI

122002

AR RN RN R

RRA

AR RO RS

;*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT
;*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG.(DISPLAY<7:0>)
;*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08>
;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
LOOP ON TEST
teSW14=1
INHIBIT ITERATICNS
tesW11=1
ON ERROR
LOOP
:«SW09=1
s+CALL

i
057146
057146
057152
057154
057162

$SCOPE:

001304
040000

121756

18:

::SCOPE=10T

SCOPE
3

STIMES

BIT

#BIT14,3SWR

BEQ
BNE

:CHECK CURRENT ITERATION NUMBER

$XTSTR

‘BR IF 0, TO SKIP CHECK OF SWR BIT 14

$OVER

SIYES IF SW14=1

:LOOP ON PRESENT TEST?

#MNRESTART OF CODE FOR THE XOR TESTERANNNN

$XTSTH: BR

D e

s D

D e

ooooorOrOONMONONOFOONONONONOFONONONMOMOOOOOOO o

0030“ WWNWNWNEINI NN NN NOININI NN = b b e o o b o
O\abuNdosgNgmr WN OOV NOWVESWN =000 NOWVNSWNN=O 0

;;"""..'Q.lt"'"t"'""""""".t'tt'.""Qtt'it"""""

D i

605

.WORD
.ASCIZ

PAGE 224

.EVEN

i e

—.dfldfl-‘flfldddddddddflddddd—.-‘d-fld—.-‘d-fl—.-‘—l-‘d—‘—'-‘d—.—l—lfl—ld—‘—‘—l—‘-‘-‘—l—.-‘

C
C

000004
057212

177060

000004

::1F RUNNING ON THE '‘XOR'' TESTER CHANGE

MOV
MOV

SFERRVEC,-(SP)
#58,9MERRVEC

::SAVE THE CONTENTS OF THE ERROR VECTOR
;:;SET FOR TIMEOUT

MOV

(SP)+,a#ERRVEC

TST

000004

5$:

000004

B8R

ar177060

$SVLAD

TLTHIS INSTRUCTION TO A "NOP'' (NOP=240)

::TIME OUT ON XOR?

::RESTORE THE ERROR VECTOR

1160 TO THE NEXT TEST

(SP)+,(SP)+

P:CLEAR THE STACK AFTER A TIME OUT

B8R

::LOOP ON THE PRESENT TEST

$SERFLG
3%
SERHAX.SERFLG
3
#B1709,aSWR

:sHAS AN ERROR OCCURRED?
::BR IF NO
::HAX.'EsRORS FOR THIS TEST OCCURRED?
::BR _IF
NO
::LOOP ON ERROR?

CMP

MOV

(SP)+.a#ERRVEC

::RESTORE THE ERROR VECTOR

gg:;noo»neno OF CODE FOR THE XOR TESTERANNNN

001115

001103

1518
BEQ
g:?fi

001000

121672

BIT

001103

——

E%RbNEO RK611/706 S ViY2
R6NE .P11
26-JUN-B0 10:48

MACY11 30A(1052)
26=JUN-80 10:53
SCOPE HANDLER ROUTINE

11654
11655
11656

057246
057250
057256

001106

11659
11660
11661
11662
11663

057270
057272
057300
057302
057306

11657
11658

11664
11665
11666
11667
11668

11669
11670
11671
11672
11673

11674

11675
11676
}}g;;

057260
057264

057314
057316
057324
057332
057336

057344
057350
057354
057360
057

057374

057400
057402

001404
013737
000443

105037
005037
000412
032777
001006
005237
023737
002024
012737
013737
105237
113737
011637
011637
005037
112737
013777
013716
000002
003720

001110

001103
001304

4$:

004000

121640

001104
001304

001104

000001
057402
001102
001102
001106
001110
001306
000001
001102

001106

3%:

057404
057412
057420
057422
057430
057430
057432
057434
057440
057442
057450
057452
057460

010046
010146
105737
001450
122737
001031
132737
001425

11694
11695
11696
11697

057466
057474
057500
057502

062766
005737
001375
010037

057462

112737
112737
000403
112737

017600

;sBR _IF NO
;;SET LOOP ADDRESS TO LAST SCOPE

BR
BIT
BNE
INC
CMP

1%
#BIT11,3SWR
1%
SICNT
STIMES,SICNT

;sESCAPE TO THE NEXT TEST
;s INHIBIT ITERATIONS?
:sBR IF YES
s s INCREMENT ITERATION COUNT
;sCHECK THE NUMBER OF ITERATIONS MADE

CLRB
CLR

001324

001115
121546

SOVER:

18:

MOV
MoV
CLR
MOVB
MOV

MOV

$SERFLG
$STIMES

;s ZERO THE ERROR FLAG
ssCLEAR THE NUMBER OF ITERATIONS TO MAKE

S$OVER

+sBR IF MORE ITERATION REQUIRED
ssREINITIALIZE THE ITERATION COUNTER
;;SET NUMBER OF ITERATIONS TO DO
;s COUNT TEST NUMBERS
;;SET TEST NUMBER IN APT MAILBOX

#1,81CNT
SMXCNT,STIMES
STSTNM
STSTNM,STESTN
(SP) ,SLPADR
(SP) ,SLPERR
SESCAPE
#1,SERMAX
$TSTNM,aDISPLAY

S$LPADR, (SP)

11698 057506 105720

11699
11700
11701
1170%
11703
11704
11705
11706

057510
057512
057516
057520
057524
057532
057534
057542

001376
163700
006200
010037
012737
000413
017637
06%766

11708
11709

057554
057560

004737
000000

057650
057646

S$ATY1:
SATY3:

000001

057650

$ATY4:
SATY(:

057646
000001

001340

000100

001341

000002
001320

000004

001334

1$:

2%:

001336
0000064

001320

000004
000002

057560
000004

054714

s sFUDGE RETURN ADDRESS

3%:

A Al

#1,8FFLG
#1,9MFLG
SATYC
#1,8FFLG

;:TO ONLY REPORT FATAL ERROR

MOV
MOV
1STB
BEQ
CMPB
BNE
B!TB
BEQ

RO,=(SP)
R1,-(SP)
SMFLG
5%
#APTENV, SENV
38
#APTSPOOL ,$ENVM
3%

;:sPUSH RO ON STACK
:sPUSH R1 CON STACK
;s SHOULD TYPE A MESSAGE?
::IF NOT:
BR
: sOPERATING UNDER APT?
;:1F NOT: BR
;;SHOULD SPOOL MESSAGES?
::1F NOT: BR

ADD
TST
BNE
MOV

#2,4(SP)
SMSGTYPE
1%
RO,SMSGAD

; :BUMP RETURN ADDR.
;sSEE IF DONE W/ LAST XMISSION?
;s1F NOT:
WAIT
::sPUT ADDR IN MAILBOX

1ST8

@84 (SP) ,RO

(RO)+

BNE
SuB
ASR
MOV
MOV
BR
MOV
ADD

2%
$MSGAD,RO
RO
RO, SMSGLGT
#4 ,SNSGTYPE
5%
94 (SP) 4%
#2,4(SP)

JSR
WORD

PC,STYPE
0

MOV

ITERATIONS

MOVB
MOVB
BR
MOVB

MOV

001334

11707 057550 013746 177776

::SAVE SCOPE LOOP ADDRESS
;s SAVE ERROR LOOP ADDRESS
;sCLEAR THE ESCAPE FROM ERROR ADDRESS
ssONLY ALLOW ONE(1) ERROR ON NEXT TEST
;;DISPLAY TEST NUMBER

RTI
:;FIXES PS
SMXCNT: 2000.
: :MAX. NUMBER OF
.SBTTL APT COMMUNICATIONS ROUTIN

000001
000001

000004

SEQ 0223

3
SLPERR,SLPADR
SOVER

11680
11681
11682
11683
11684
11685
11686
11687
11688
11689
11690
11691
11692

PAGE 225

BEQ
MOV
BR

BGE
MOV
MoV
$SVLAD: INCB
Move

001104
001304

11679

11693

7%:

179776,-(SP)

;:70 REPORT FATAL ERROR
;.70 TYPE A MESSAGE

:sGET MESSAGE ADDR.

;sFIND END OF MESSAGE

::SUB START OF MESSAGE
;sGET MESSAGE LNGTH IN WORDS
:sPUT LENGTH IN MAILBOX
;s TELL APT TO TAKE MSG.

::PUT MSG ADDR IN JSR LINKAGE
: :BUMP RETURN ADDRESS

;;PUSH 177776 ON STACK
2sCALL TYPE MACRO

~N~N

6NE .P11

26=JUN-80 10:48

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

057562
057562
057566
057570
057574
057576
057602
057604
057612
057620
057624
057630
057634

26
27
28
29
30
31
32
33
gg

057646
057647
057650

23
24
25

057640
057642
057644

105737
001416
005737
001413
005737
001375
017637
062766
005237
105037
105037
105037

012601
012600
000207

MACY11 30A(1052)
59:

057650

108:

001340

001320
000004

000002
001320
057650
057647
057646

26-JUN-80

10:53

APT COMMUNICATIONS ROUTINE

11%:
001322

000004

TSTB
BEQ
TST
BEQ
TST
BNE
MOV
ADD

INC
CLRB
CLRB
CLRB
MOV
MOV
RTS
$MFLG:
.BYTE
$LFLG:
.BYTE
$FFLG:
.BYTE
.EVEN
APTSIZ2E=200
APTENV=001
APTSPOOL=100
APTCSUP=040
.SBTTL ROUTINE
128:

000
000
000
057652
000200
000001
000100
000040

PAGE 226

$FFLG
12%
SENV
12%
SMSGTYPE
118
a4 (SP) ,SFATAL
#2,4(SP)
$SMSGTYPE
$FFLG
SLFLG
SMFLG

: s SHOULD REPORT FATAL ERROR?
;:1F NOT: BR
s sRUNNING UNDER APT?
;:1F NOT: BR
;sFINISHED LAST MESSAGE?
;o
1F NOT:
WAIT
;;GET ERROR #
;:BUMP RETURN ADDR.
;+TELL APT TO TAKE ERROR
ssCLEAR FATAL FLAG
::CLEAR LOG FLAG
;s CLEAR MESSAGE FLAG

O
O
0

;sMESSG. FLAG
;:L0G FLAG
;;FATAL FLAG

(SP)+.R1
(SP)+,R0
PC

;:POP STACK INTO R1
;:POP STACK INTO RO
; ;RETURN

TO SIZE MEMORY

.'.‘..."...'.'."""""""".'.'....'."'.""""'..".".""'

1
42
43

i
WITH KT11 OPTION
== LAST VIRTUAL ADDRESS COF THE LAST BANK
.
WITHOUT KT11 OPTION
== LAST ABSOLUTE ADDRESS OF AVAILABLE MEMORY
;*$LSTBK WILL CONTAIN THE LAST BANK AS A SAF

;*$KT11

IS THE MEMORY MANAGEMENT KEY

;*BITO7 = 0 DON'T USE MEMORY MANAGEMENT

47
48
249

MUST BE SETUP BEFORE THE CALL
:*
;*BIT15 = 0 DON'T HAVE MEMORY MANAGEMENT OPTION

750
751
752
753
754
755
756
757
758

057652
057654
057656
057660
057662
057666
057672

760
761

057702
057706

il -l D e
D il
il
D il
il
i e
—

759

762
763
764
765

SEQ 0224

s*CALL:
s
JSR
PC,$SIZE
o®
RETURN
J*SLSTAD WILL CONTAIN:

37
38
39
40

—.dfldddfldflfldd—‘d-‘ddfl-‘d-‘-‘dd-‘—.d—l—ld—.—.—‘-—.—.—l-‘-‘-fl‘ddd—‘-‘-‘-‘—.—l-‘-‘-‘-‘_‘—‘-‘

6NEO0 RK611/06 3S ViY2

057674

010046
010146
010246
010346
013746
013746
010600

104400

057676

012637

057710
057712
057714
057722

000200
100062
012737
005737

012701
105727

DETERMINED BY ROUTINE

$SIZE:

MOV
RO,=(SP)
;:SAVE RO ON THE STACK
MOV
R1,-(SP)
:sSAVE R1 ON THE STACK
MOV
R2,=(SP)
;:SAVE R2 ON THE STACK
MOV
R3,=(SP)
::SAVE R3 ON THE STACK
MoV
@FERRVEC,=(SP) ;;SAVE PRESENT ERROR VECTOR PS & PC
MoV
SFERRVEC+2,-(SP)
MOV
SP,RO
;:SAVE THE STACK POINTER
;2SET THE ERRVEC PS TO THE PRESENT PS
;sPUSH OLD PSW AND PC ON STACK
TRAP

000004

000006

MOV

003776

$KT11:
060052
177572

000004

MOV
TST8

.WORD
BPL
MOV
ST

(SP)+ ,QFERRVEC+2

#3776,R1
(PC)+

;s SAVE THE PSW IN Q@NERRVEC+2

;s SETUP ADDRESS
: sUSE MEMORY MANAGEMENT?

;:SET TO USE MEMORY MANAGEMENT
200
$CORE
;23R _IF NO
#SKTNEX ,Q#ERRVEC ;;SET FOR TIMEOUT
a#SRO
;sKT11 ARE YOU THERE?

766
767
768
769

057726

057710

771
772
773

057754
057756
057762

775

057770

il Dl i il D D D D D D D D il A D D D D D s D il D D D D D D D D D D D D D i D D i D D i D

D i i
D
D D
D D i
D D D D e
D D
D D
D el
D il
D D i
D D
D
D D D D
Dl
D D D i i
D

7764

057746

005046
012702
012703

012762

011622
062716
077307

100000

172340

000010

077406

057772
060000
06
060010
060012
060016
24
060030
34
060040
2

012737
012737
000401
022626
005237
012737
005737
062712
023712
10137
011202

060010
000020

060050
060052

060066
060070

000421
042737
012737
005002
062701

794
795
796
797

060100
060102
060106
060110

005711
022701
001370
162701

800
801
802
803
804
805
806
807
808
809
810
g};

060122
060126
060132
060136
060142
060144
060146
060150
060152
060154
060156

787

788
789
790
791
792

060044

793 060074

005042

005037

062702

177572
060042
143776
000040
172356

1%:

000004
172516

000004

100000
060110
004000

000040

177776
004000

MOV

#77406,-40(R2)

::PDR = 4K, UP, READ/WRITE

MOV
ADD
0B

(SP), (R2)+
#200, (SP)
R3,1

#177600,-(R2)

CLR

-(R2)

::LOAD '‘PAR"
$UPDATE FOR NEXT 'PAR'
::LOOP UNTIL ALL EIGHT ARE LOADED

::SETUP KIPAR7 FOR 1/0

1:SETUP KIPARG FOR TESTING
#28,3#ERRVEC
::CATCH TIMEOUT IF NO SR3
#20.3#SR3
:SENABLE 22 BIT MODE
3$
::THIS PDP=11 HAS A SR3 REGISTER
(SP)+,(SP)+
::CLEAN OFF THE STACK==NO SR3
a¥SRO
::TURN ON MEMORY MANAGEMENT
#SKTOUT ,a#ERRVEC :;SET FOR TIME OUT
143776
::TRAP ON NON=EX=MEM
#40, (R2)
P:MAKE A 1K STEP
afKIPAR7,(R2)
;:LAST ONE?
4
::NO==TRY IT
(R2),R2
::GET LAST BANK+1

BR
SKTNEX: BIC
$CORE:
MOV
CLR
1%:
ADD

$SIZEX
#100000,8KT11
::KT11 NON-EXISTENT
#S$CROUT,a#ERRVEC ::SET FOR TIMEOUT
R2
;:SET UP BANK
#4000,R1
: * INCREMENT BY 1K

ADD

TST
CMP
BNE
$CROUT: SUB

ilSRé

;:TURN OFF MEMORY MANAGEMENT

#40,R2

1:1K STEP

(R1)
$77776,R1
1%
#4000 ,R1

$SIZEX: SUB
MOV

#40,R2
RO, SP

::TRAP ON TIME OUT
S:LAST ONE
LINO-=TRY AGAIN

. :DROP BACK
(:RESTORE THE STACK

MOV
(SP)+,3#ERRVEC+2 ;:RESTORE ERROR VECTOR
MOV
(SP)+.afERRVEC
MOV
R1,SLSTAD
;:LAST ADDRESS
MOV
R2.$LSTBK
T:LAST BANK
MOV
(SP)+,R3
:RESTORE R3
MOV
(SP)+.R2
::RESTORE R2
MOV
(SP)+.R1
::RESTORE R1
MOV
(SP)+.RO
::RESTORE RO
RTS
PC
SLSTAD: .WORD
0
::CONTAINS THE LAST ADDRESS
$LSTBK: .WORD
0
S:CONTAINS THE LAST BANK
.SBTTL SAVE AND RESTORE RO-RS RCUTINES
SRR

:*SAVE RO-RS
s*CALL:
e
SAVREG

819
820
821

;eTOP===(+16)
ie 42-==(+18)
it +4===RS

SSINITIALIZE FOR "'PAR'' LOADING
*:ADDRESS OF FIRST '‘PAR"
$:LOAD EIGHT '‘PAR.'S'' AND EIGHT '‘PDR.'S"

MOV
MOV
BR
2%:
CMP
3%:
INC
MOV
48:
ST
ADD
CMP
B
$SKTOUT: MOV

814
815
816

g};

SEQ 0225

;:YES==SET KT11 KEY

-(SP)
#X1PARO,R2
#°D8 R3

000006
000004
060154
060156

2
PAGE 227

#100000,8KT11

CLR
MOV
MOV

CLR

057710
000004

BIS

MOV

177572

798 060114 162702 000040
799 060120 010006
012637
012637
010137
010237
012603
012602
012601
012600
000207
000000
000000

177740

000200

177600

776
777
778
779
780
781
782
783
784
785
786

057764

052737

012742

— il D il il D Dl D el

il il

770

057734
057736
057742

813

— e

(alel

MACY11 30A(1052)
26=JUN-B0 10:53
ROUTINE TO SIZE MEMORY

NN
p-b

6NEO RK611/06 S Vi Y2
6NE.P11
26=JUN-80 10:48

ERERPRRRRRR RN RPN RN RN

ER R

;*UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
]

RE R R R R RO

CIR6NED RK611/06 3S ViY2
CZR6NE .P11
26=JUN-B0 10:48

H 2
MACY11 30A(1052)
26-JUN-B0 10:53 PAGE 228
SAVE AND RESTORE RO=RS ROUTINES

11822
11823
11824

11825
11826
11827

v +6===R4
v +8===R}
;*+10===R?2
it412-==R1
:*414===R0

11828

060160

11830
11831
11832
11833
11834
11835
11836
11837
11838
11839

060162
060164
060166
060170
060172
060174
060200
060204
060210
060214

11829

11840
11841
11842
11843
11844
11845
11846

11847
11848

11849
11850
11851
11852
11853
11854
11855

}}ggg

060160

060216
060216
060222

060226
060232

060236
060240
060242
060244
060246
060250
060252

$SAVREG:

010046

010146
010246
010346
010446
010546
016646
016646
016646
016646
000002

012666
012666
012666

012666
012605

000022
000022
000022
000022

000022
000022
000022

000022

MOV
MOV

012604
012603

MOV
MOV
MOV
MoV
MOV

012602
012601
072600
000002

.SBTTL

R1,=-(SP)
R2,=-(SP)
R3,=(SP)
R4 ,=(SP)
RS,=(SP)
22(SP) ,=(SP)
22(SP),=(SP)
22(SP) ,=(SP)
22(SP) ,=(SP)

(SP)+,22(SP)
(SP)+,RS

(SP)+,Ré4
(SP)+,R3
(SP)+,R2
(SP)+,R1
(SP)+,RO

:sPUSH RO ON STACK

::PUSH
::PUSH
:;PUSH
::PUSH
::PUSH
::SAVE
::SAVE
::SAVE
:sSAVE

R1
R2
R3
R4
RS
PS
PC
PS
PC

ON
ON
ON
ON
ON
OF
OF
OF
OF

STACK
STACK
STACK
STACK
STACK
MAIN FLOW
MAIN FLOW
CALL
CALL

:;RESTORE PC OF CALL
:sRESTORE PS OF CALL
s;RESTORE PC OF MAIN FLOW

ssRESTORE PS OF MAIN FLOW
::POP STACK INTO RS

::POP STACK INTO R4
::POP STACK INTO R3

::POP STACK INTO R?
::POP STACK INTO R1
::POP STACK INTO RO

TRAP DECODER
L

A ld

:*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE ''TRAP'' INSTRUCTION
:*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS
:*0OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
:*GO TO THAT ROUTINE.

060254

010046

11866

060262

005740

060256

060264
060266
060270

060274

016600

111000
006300
016000

000200

$TRAP:

000002

MOV

RO,=-(SP)

::SAVE RO

TST

=(R0O)

: sBACKUP BY 2

MOV

MOVB
ASL
MOV

060310

RTS

11872

}}g;z
11875
11876
11877

RTI

11864

}}g;?

RO,=(SP)

:*RESTORE RO=RS
s*CALL:
.
RESREG
$RESREG:
MoV
(SP)+,22(SP)
MOV
(SP)+,22(SP)
MOV
(SP)+,22(SP)

11859
11860
11861
}}gg%

11867
11868
11869

MOV

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTI

11858

11865

SEQ 0226

2(SP) RO

(RO) ,RO
RO
$TRPAD(RO)
,RO

::GET TRAP ADDRESS

::GET RIGHT BYTE OF TRAP
::POSITION FOR INDEXING
;;INDEX TO TABLE

::G0 TO ROUTINE

::THIS 1S USE TO HANDLE THE ''GETPRI''
060276
060300
060306

011646
016666
000002

000004

000002

$TRAP2: MOV
MOV
RTI

(SP),=(SP)
4(SP),2(SP)

MACRO

::sMOVE THE PC DOWN
:;MOVE THE PSW DOWN
:sRESTORE THE PSW

6NEO RK611/06 35S Vi Y2
6NE .P11
26=JUN=-80 10:48

lalal
NN

MACY11 30A(1052)
26-JUN-80
TRAP DECODER

10:53

2
PAGE 229

SEQ 0227

.SBTTL

881

:*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

D e D
D S D

878
ggg

D i il D D D D e
D i i D D D D e e

gg%

;*BY THE ''TRAP'' INSTRUCTION.

ggg
060310
060312
060314
060316
060320
060322

060276
054714
056014
055770
056030
056216

893
894

060324

056636

899
900
901
902
903
904
905
906
907
908
909

060334
060342
060346
060353
060360
060366
06035%
0604
060406
060410
060416

020040
052123
025052
125
020123
051105
047516
051511
000115
047516
051511

912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933

060434
060442
060445
060452
060460
0604
060472
060500
060503
060510
060516
060522
060530
060521
0605
060544
060552
060556
060564
060567
060574
060602

042511
051122
123
020123
052517
020104
050040
051122
103
020104
051105
041501
000
123
046040
046111
041516
051120
051122
116
044530
047125

D D D D D e e
D D i D D e e

886
887
888
889
890
gg}

D i il D D il D e il D D i
D D il D D il D D ) D D e

D D e D e
D D D D e

895
896
ggg

—
D e D il
— e D il D i

D i
D il

D
D il

D i el
D D

D D il
D D i

D D
D D

910
911

TRAP TABLE

060326
060330
060332

060424
060426

ROUTINE

$TRPAD:

.WORD
STYPE
$TYPOC
$TYPOS
$TYPON
$TYPDS

$TRAP2
;;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 LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

$SRDCHR

; ;CALL=RDCHR

TRAP+6(104406)

TTY TYPEIN CHARACTER ROUTINE

060160
060216
057122

000126
047125

$SAVREG ;:CALL=SAVREG
SRESREG ;;CALL=RESREG
SCOPE1
;:CALL=SCOPER

TRAP+7(104407) SAVE RO-RS ROUTINE
TRAP+10(104410) RESTORE RO-RS ROUTINE
TRAP+11(104411) INTERNAL LOOP ON ERROR ROUTINE

020040
000040
020040
044516
040520
000122
026516
020124

042524

TSTMSG:

.ASCIZ

000
052502
020122

AS2SP2:
EM1:

.ASCIZ
.ASCIZ

/s« /
/UNIBUS PAR ERR/

054105

EM2:

LASCIZ

/NON=-EXIST MEM/

026516
020124

(054105
051104

EM3:

LASCIZ

/NON-EXIST DRV/

052111

043040

EM4:

LASCIZ

/UNIT FIELD ERR/

054523
042515

EMS:

LASCIZ

/SUBSYS TIMEOUT/

041440
042440

EM6:

LASCIZ

/D TO C PAR ERR/

020117
020122

EM7:

L.ASCIZ

/C TO D PAR ERR/

053517

EM10:

LASCIZ

/AC LOW/

042105
000123
052506

EM11:

.ASCIZ

/SPEED LOSS/

EM12:

LASCIZ

/ILL FUNCT/

042440

EM13:

LASCIZ

/PROG ERR/

042455
043040
000

EM14:

LASCIZ

/NON=EXIST FUNCT/

062114
000
041125
044524
000124
047524
051101
000
052040
040520
000122
046040

042520
051517
020114
000124
043517
000
047117
052123
052103

042515

042440

TEST /

—

2
~PAGE 230

CZRGNEO RK611/06 $§ Vi Y2
CIR6NE.P11
26=JUN=-BO 10:48

MACY11 30A(1052) 26=JUN-BO
TRAP TABLE

11934
11935
11936
11937
11938
11939

053122
042440

052040
051122

EM15:

.ASCIZ

/DRV TYP ERR/

040515
000122
020124

020124

EM16:

.ASCIZ

/FMAT ERR/

042440

047514
051122

EMI7:

.ASCIZ

/WRT LOCK ERR/

053122
043101
045505
046517
020114
047514
046114
040440

052440
000105
044440
000120
053117
000
041440
042104

EM20:

.ASCIZ

/DRV UNSAFE/

EM21:

.ASCIZ

/SEEK INCOMP/

EM22:

.ASCIZ

/CYL OVRFLO/

EM23:

.ASCIZ

/ILL CYL ADDR/

020126
051124

043117
041501

EM24:

LASCIZ

,
/DRV OFF

020126
043516

044524
042440

EM25:

.ASCIZ

/DRV TIMING ERR/

052101
042524

020101
000

EM26:

LASCIZ

/DATA LATE/

051124
047505

EM27:

.ASCIZ

/CONTR TIKEOUT/

040522
04440
000120
051105

EM30:

LASCIZ

/OPERATION INCOMP/

EM31:

.ASCIZ

/HEADER VRC ERR/

020101
020113

EM32:

.ASC1Z

/DATA CHECK ERR/

064103
000122
046440
050115

EM33:

.ASCIZ

/WRT CHK ERR/

EM3S:

LASCIZ

/DATA MISCOMPARE/

053122
047520
043125
054118

EM3S:

LASCIZ

/NO DRV RESPONSE-UFE & NXD/

051105
0ig1id
041440
000

EM36:

.ASCIZ

/DRV ERR WILL NOT CLEAR/

EM37:

.ASCIZ

/DRV STATUS CHANGE WILL NOT CLEAR/

11940
11941
11942
11943
11944
11945
11946
11947
11948
11949
11950
11951
11952
11953
11954
11955

11956
11957
11958
11959
11960
11961
11962
11963
11964
11965
11966
11967
11968
11969
11970
11971
11972
11973
11974
11975
11976
11977
11978
11979
11980
11981
11982
11983
11984

11985
11986
11987
11988
11989

060607
060614
0606
0606
060630
060634

060642
060650
060651
060656
06
060672
060700
060706
06071
060720
060726
0607
060736
060744
060746
060754

060762

060765
060772

060777
061004
061012
06101
061022
061030
061036
061046
061052
061055
061062
061070
061076
061102
061110
061116
Q61124
0611
061136
061144
061152
061160
061162
061170
061176
061204

061211
Q61216
061226
061232
061240

104
050131
000
106
051105
051127

045503
000
104
051516
042523
041516
054503
043122
111
046131
000122
051104
020106
000113
051104
044515

051122
104
040514
103
052040
052128
117
044524
041516
042510
053040
051122
104
044103
051105
051127
020113
040504
051511
051101
047516
051040
051516
020105
000104
051104
020122
047040
042514

104
Qu0ses
044103
053440
047516

000

047117
046511
000
042520
047117
046517
042101
041522
000
052101
041505
000122
020124
051105
0405246
047503
000103
042040
051505
026505
020046
020126
Q4sser
052117
051101

053122
052504
047101
046111
020124

042440

051440
020123
042507
020114
046103

10:53

TRACK/

SEQ 0228

CZR6NED RK611/06 35S viY2
CZR6NE .P11
26-JUN-80 10:48

MACY11 30A(1052)

TRAP TABLE

26=JUN-80

10:53

2
PAGE 231

SEQ 0229

— — w w

- < p=] o — ~

o —w
o=

-w

323 2378

(=i=1=]

(=4

OOO§ §NNOV‘I~ bg

NNNNNNNNNNN
P
OSSO0
ONWS

—d e

S SRIIIIIEEEER
AIRINININI
N

b
b

22O

[=lel=]
N
a2
Suvineswn
W=
O
SO
== O
O =2NNOMNIN)
—
WHNOO—=SFOSHSO

/SUBSYS CLEAR DID NOT CLEAR DRV ATT'N/

020101
053440
047125
047111
042101

EM71:
.ASCIZ
/DATA LATE WHEN UNLOADING HEADER/

051124
053440
051104
051440

EM72:
LASCIZ
/CONTR ERR WHEN DRIVER SERV/

042504
020122

EM73:
LASCIZ
/DRV DET PAR ERR/

020106
EM74:
LASCIZ
/UNDEF ERR/

047111

EM75:
.ASCI1Z
/MARKING THIS SECTOR BAD/

EM76:
.ASCIZ

/BAD DATA VERIF'N WITH READ. ECC OF LAST RETRY [S:/

EM77:
.ASCIZ
/RETRY SUCCESSFUL/

EM100:
LASCIZ
/RETRY UNSUCCESSFUL/

EM101:
LASCIZ

/CANNOT FIND A VALID HEADER IN TRACK JUST READ/

—
-

LASCIZ

EM70:

VWi

/ATT'N DID NOT RESET WITH CLEAR/

OO0

.ASCIZ

SWVv

EM67:

OO0

/UNEXPECTED DATA ERR/

OO0

LASCIZ

ONNVOOW
OOVMINVOWN=-S

SOO=ERN

NED

WSSV
NN =MNON) =
= O BN

EM66:

O=
SN

=8O O

N =N

NSV
OCOO—=O=~N
NNONN
AN
)e
e e e e DN
b \N
ONNVININO
AN =O =0 =0
NISSNVOOOVONNINOO
=0
=
N

WOWVWVIWWNSE

NN=SONON

a0 ——

AN
D
\ )

——d

=1=l1=]

o
z

RK611/06 3S ViY2
26-JUN-80 10:48

- O

—_—t

R SSSRRS BRR
OoOOWwW

RAGRRISVIAGR
SRR
ESRER NV ROORARAAARE ADRR ~
=SPON
= NNOONINN
O
—ONNO
-t ONNNO
OO = OO = N=LO==LNIN
o
.n.au‘a_._._.umu_oog_..aobm_o_.-o_oo-a.amm NO
b
- A
i cd wd Y\ = B b\
N = AN S =b =B \N
O
f OO0O0O ==
OO0l OB NN=LO=I0ONOO
= OHNNNNINNVO OO =2 -=PNONS OO
Vo
NONg
OO = NOOWNOWMNO =N SV
s&taOONUWN"-lU-‘—.-‘&NNOflMU!UIMb V=S OOWWVINSON

Vet
—

a8e 33332ER SERRR2S

—

MACY11 30A(1052) EZb-JUN-GO
TRAP TAB L

10:53
L
2
PAGE 232
SEQ 0230

SEQ 0231

2
PAGE 233
10:53
TRAP TABLE

26=JUN-80
MACY11 30A(1052)

CIR6NEO RK611/06 3S ViY2
CZRONE .P11
26-JUN-80 10:48

T O T g g O O e e e e ee e T e e e e T

0 0 T T 0T e O e g g g g g g g g P g O g g e g g O g g e e - -

gzems susaRTITs s ssSRasOISR
TM = e T

w-o)

=NO—_e—e—_—AookLovvvNO=IJTTN=NNOWNITWVNO="alad"alovvON
0N2OoAb3xNANLN_ITEMIOON~O—WSMIA-OOW—S—N«STSRNMR(vNbaNo»M)rS7V«NI~«-sOT=lMOO-e(~N3N)gr~eeNsOFrW(oI=eeN)3sOlN1OheW"rael=taal@Lwv.'rl)MalaOTNOi[@MWToa"}iOatNTS2-aMlN“0NaiIZaNOM‘“OIbOM1NDS0O0ZN«‘“-3wL>Ib=[3)-OM4TFMdOTNaNlOMeaWMNlr—OO~rMOeirOi&eNew=(.2er)btOT~NIOMIOrATIWOMTNDnOw(—=NOS]TtNMOONIOvo(.NF]M=IME0w-~NOFPSTNNMWSN]=OaOL
gvO3S—)~ov<a4N[O3FV~W0N38oMO083AoO308RowOW3I0w3OC808OR330OT0=?@—Iv[43-avOgL[—-gOB33gIWnN(03R@—>.v<e=g)8c3Ogo3I2OoTw8R-——v<45xWgLn[+Oo38fG33aO8RL-v—><oAg3l3OO3[<-5ow——x+gCv~]508ZO8O3N3I008RO0303O~OI0808NO0I3R3T0OC2rTe([3R<oww—e@—O=0t)Cv]03JO30ONE00ON8C300eOR00E33ONO0IO~OO8Ro—<v=-<D0—0SSORN003TO38OO3(a>w=ov—4<08&0cT[4+8ODO(w-@<M-Ln0RTxO—)v8OMDow—>3<OSw~x.To3T8OaoeT3([=ov-3<08]—
<—

»o<4»-[~ wo3=~g ~

= a

8(o-=3 - ~a~ —o[ b[= woao =~<

NoOO~N834~bN¢8MrNIOMNM0O8NTOONIOF~0T8NO—T8NMM~NOO8NIM8=~Oo~o»xM-NS—NO8NNAONOe8MY~o<==-xNo==—V8—eW8OOVNNeWW[wo.w(O~x—NCOe=&Nl8]Ie8VOWIeVN8TWWNOtAONVo~-.==x—Tz8N~eIOWOON8Fo-~<—xMeON8O0IOONNNTN8OrNDNOY8NVTNN8VOI~IM3NM(Nw~~ 4o>~~ x—MN8=]NOMT8NMINNNMOMN8NIONENOA3TIM8NMNID(o[~<>o-F=N]&7dGF[a)+)T8ONAN8INeN8ONWN8rV7|~o[~—o=x8NeV-]a)A8NOFO5NOTN9oO~NOo--8xw~TO8ATOMO~oeo-E5=x-NNMNO8ITN8WMVa~Oo.~=8x—Nd
o34[+ a4<l[+ w-o4
CZR6NEO RK611/06 5S ViY2
CZRONE .P11
26=JUN-80 10:48
MACY11 30A(1052)
TRAP TABLE

26-JUN-80
10:53
N

2
PAGE 234
SEQ 0232

—

—=

[(4—+)

[—

4
o[+

3
PAGE 235

6NEO RK611/06 3S ViY2
6NE P11
26=JUN-80 10:48

MACY11 30A(1052)
26-JUN-80
TRA P TABLE

214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
30
31
232
33
3,
35
36
37
238 38

045522

051105

030060
041040

020040
030060

OW203:

.ASCIZ

/AOD

040505
044123
041040

042504
052517
035105

DH601:

.ASCIZ

/HEADER SHOULD BE:/

040505
043117
020124
051511
044440

DH602:

.ASCIZ

/HEADER OF SECT O THIS CYyL IS:/

041501
051104
051105
035040

042504
051440
020060
041440
035123
)
020113
047440
024122
000

DH604:

.ASCIZ

/PACK ADDR OF ERR(S)

9
0
1

2
3

5
9

8
3
1

22 2
22 3
22 4
22 5
22 6
22 4
22 8
22 9
2260
2261
226§

2263
2264

12265
12266
12267
12268
12269

063510
063516
063517
063524
063532
063540
063546
063554
063562
063570
063576
063604
063612
063613
063620
063626
08363
063635
063642
063650
063656
063664
063672
063673
063700
063706
063714

020040
000
101
020040
020040
030460
041040
020040
020040
031060
040440
020040
000
110
020122
042114
000
110
020122
041505
064124
046131
000
120
042101
020106
024523

063726
063734
063742
063750
063756

020122
045503
041505
054503
0200?0

052040
020040
047524
047114
051124

040522
051440
000122
051104
041501

063766
063774
064002
064003
064010
064016
0646026
064032

041505
040524
000
120
020040
020040
051117
041101

020103
044440
051517
050040
020040
042522
042514

063721

064040
064046
064054
064062
064066
064074
064102
064106
064114

064122
064130
064136
0641464
064152

103

047527
020040
020062
042122
040502
042101
020123
042127
020040
020040
020104
044510
020040
054510

020040
020040
030460
040440
020040
020040
031460
041040

046131

042122
047527
020040
000063
020104
051105
000072
021440
047507

020040
020040
050040
047514
020040

10:53

BO0

SEQ 0233

AO1

BO1

AO2

B02

LO PHY

VRT AD

KIPAR&/

BO3/

040440
020040
020040
031060
041040
020040
020040
031460

042116

DH6041: _ASCIZ

/CYLNDR

TRACK

DH6042:

.ASCIZ

/CYLNDR

TRACK/

040504
035123

DH605:

.ASCIZ

/ECC DATA IS:/

020040
052101
041440
052103
000077

DH6051:

.ASCIZ

/POS

PAT

CORRECTABLE?/

020061
042122
047527

DH606:

.ASCIZ

/WORD1

WORD2

WORD3/

042510
044440

DH607:

.ASCIZ

/BAD HEADER 1S :/

020040
042117

DH701:

L.ASCIZ

/WD #

600D

SECTOR/

BAD

HI PHY

040502
020040
054510
050040
051126

—

CZIR6NED RK611/06 S ViY2

CZR6NE P11
12270
12271
12272
12273
12274
12275
12276
12277
12278
12279

12280
12281
12282
12283
12284
12285

12286
12287
12288
12289
12290
12291
12292
12293
12294
12295

26-JUN-80 10:48

064160
064166
064174
064175
064202
064210
064211
064216
064224
064232

064235
064242
064250
064255
064262
064270

064271
064276
064304
064312
064320
064326
064334
064342
064350
064352

12296
12297
12298
12299
12300
12301
12302
12303
12304
12305
12306
12307
12308
12309
12310
12311
12312
12313
12314
12315
12316
12317
12318
12319
12320

064360
064366
064374
064402
064410
064416
064426
064432
064440
064446
064454
064462
0644
064472
064500
064506
064514
064522
064530
064536
064568
064550
064556
064564

1232;
12323

064576
064602

12321

064566

12324

064604

020124
044513
000
107
020040
000
106
043516
020101
035040

123

030522
051411
113
042522
000
115
043505
041520
040522
051105
046505
041520
040440
000122
054503
051105
045522
020040
020040
051115
045522
051105
051124
052040
020124
051125
047506
123
020104
052517
052503

MACY11 30A(1052)

TRAP TABLE

3
PAGE 236

SEQ 0234

020040
033122

047517
041040

020104
042101

DHW702:

.ASCIZ

/GOOD

044501
042040
047527
000

044514
052101
042122

DH703:

LASCIZ

/FAILING DATA WORD :/

030122
051411
031522
030524
051507

0514:1
031122
000
020061
035040

DH704:

,ASCIZ

/SRO

DH705:

.ASCIZ

/KT11 REGS :/

046505
020123
046011
004504
042101
054523
041411
004504

051040
000072
042517
044510
046411
000123
051123
051503

DH706:

.ASCIZ

/MEM REGS :/

DH707:

.ASCIZ

/PC

DH710:

.ASCIZ

/PC

044514

042116

DH711:

ASCIZ

/CYLINDERS

.ASCIZ

/RKDS

DH502:

.ASCIZ

/ERROR TRYING TO GET FAILURE

047117
042515
041517
042105
044524
044522
040524

DH503:

.ASCIZ

/SECOND TIMEOUT OCCURRED GETTING DRIVE STATUS/

.ASCIZ

/NUMBER OF RETRIES:/

000072
020040
051105
045522
020040
000063
020122
043516
042507
046111
047111

051105
042522
035123

DHB00:

001116

005500

005476

DT100:

001256

001260

001162
001170

10:53

042101
040520

020123
051504
045522
020040
020062
051115
047522
044531
020117
040506
020105
000
041505
044524
020124
051122
052105
042040
051440
000123
041115
020106
042511

043440
043516
042526
052524
052516
047440
051124
200
064566

26-JUN-BO

001164

001166

.
DH204:

DT102:

12325 064610 001174 001176 001200 DT201:

.EVEN

BAD/

5R1

SR2

SR3/

LOERAD

HIERAD

MEMSYS/
;

CSR AD

(SR/

RKER

RKMR2

RKMR3/

INFO/

.WORD

SERRPC,DRIVE,ERRCOM,SREGO,SREG1,$SREGZ,SREG3

.WORD

SREG36, SREG37

.WORD

SREGS,$REG6,SREG?,SREG10,SREG11,SREGI2,
SREG13

OO
2
TMmMmMm
W W NN W W W NN NN
NN
VooO~NoOr
W

N NN NN NN NN NN RN NN NN

AR ANOAN AN R R R R R R R R R R
py

O 00

M
N
nd U N
~ SNNNNNNNNY

ooMNINNN NN

REFFRRERL
Y 123333333

NININNINFIN NN

dd-‘ddd—dddddflddddddddddflflddd-‘dddd-“dd

(alal

0 RK611/706 35 ViY2
P11
26=JUN-80 10:48

064616
064624
064626
064632
064640
064646
064652

001202
001210
001212
001216
0012§4
001232
001174

064
064674
064676

001210
001216
005256

064702
064704
064705
064706
064710
064712
064714
064716
064720
064722
064724
064726
064730

000006
000
000
063221
007
063310
002
063101
000
063413
007
063116
000

064732
064734
064736
064740
064742
064744
064746
064750
064752
064754
064756
064760
064762
064764

000007
000
063221
007
063310
002
063101
000
063413
007
063502
002
063517
010

064766
064770
064772

000010
000
063221

064776
065000
065002
065004
065006

063310
002
063101
000
063413

065012
065014
065016

063147
000
063502

064660 001202

064774

065010

065020
065022

007

002
063517

001204

001214
001220
001226
001234
001176

001204

001212
005254

MACY11 30A(1052)
26=JUN=80
TRAP TABLE

001222
001230
001200

001206
001214

$REG14,$REG1S
SREG16,$REG17,$REG20,$REG21,$REG22,SREG23,SREG24,SREG2S

DT601:

.WORD

SREGS,SREGH,SREG7

DT103:

.WORD

PRMPHO,PRMPLO

DFO1:

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

6
0
0
DH101
7.0
DH102
2.0
DHZ200
0,0
DH201
7.0
DHS500
0,0

DFO2:

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

7
0,0
DH101
7.0
DH102
2.0
DHZ200
0,0
DH201
7,0
DH202
2,0
DH203
10,0

DFO3:

.WORD
.BYTE
.WORD

10
0,0
DH101

.WORD
.BYTE
.WORD
.BYTE
.WORD

DH102
2,0
DH200
0,0
DH201

.WORD
.BYTE
.WORD

DHS501
0,0
DHW202

DT602:

000
000

000

000
000
000

000

000
000
000

SEQ 0235

.WORD
.WwORD

000

3
PAGE 237

DT202:
DT203:

000

001206

000

10:53

.WORD

.BYTE

BYTE
.WORD

SREG16.$REG‘1.snEG12.$REG13,8REG14.SREG1S,SREG16

:NUMBER OF HEADER LINES
:NUMBER OF COL FOR FIRST HDR
:ALL CHARACTERS OCTAL
:SECOND HDR LINE
:NUM OF COL-ALL OCTAL

7,0

2.0
DH203

:"'THE FOLLOWING REG DATA MB INCORRECT

CZR6NED RK611/06 5S ViY2
CZR6NE .P1N
26=JUN-80 10:48
}%gg%

065024

010

12384
12385
12386
12387
12388
}%ggg

065026
065030
065032
065034
065036
065040

000003
000
063221
007
063310
002

12391
12392
12393
12394
12395
12396
12397
12398
12399
126400
12401
12402
12403

065042
065044
065046
065050
065052
0650564
065056
065060
065062
065064
065066
065070
065072

000007
000
063221
007
063310
002
063613
000
064040
003
063635
000
064040

126406
12407
12408
12409
126410
12611
12412
126413
126414

065076
065100
065102
065104
065106
065110
065112
065114
065116

000007
000
063221
007
063310
002
063673
000
063721

}%28?

126415
12616
126417
126418
}%253
126421
126422
12423
126424

12425
12626
12427
12428
12429
}g:;?
12432

12433
12434
12435
12436
12437

065074

065120
065122
065124
065126
065130
065132
065134
065136
065140

065142
065144
065146
065150
065152
065154
065156

065160
065162
065164
065166
065170

003

003
063766
000
064003

003

000005
000
063221
007

063310
002
063673
000
063721
003
000004

000
063673
000
063721
003

MACY11 30A(1052)
26-JUN-B0
TRAP TABLE

000
000

.BYTE

10,0

DFO4:

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

3
0,0
DH101
7,0
DH102
2,0

DFO5:

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

7
0,0
DH101
7,0
DH102
2,0
DH601
0,0
DH606
3,0
DH602
0,0
DH606

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

7
0,0
DH101
7,0
DH102
2,0
DH604
0,0
DH6041

000

000
000
000

000
000

.BYTE

DFO7:

000
000
000

000

.BYTE
.WORD
.BYTE
.WORD
.BYTE

000

000
000

DF10:

000

000
000

DF11:

3,0

3,0
DH605
0,0
DH6051

3,0

.WORD
.BYTE
.WORD
.BYTE

5
0,0
DH101
7,0

.WORD

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

000

10:53

.BYTE
.WORD
.BYTE
.WORD
.BYTE

DH102
2,0
DH604
0,0
DH6041
3,0
0,0
DH604
0,0
DH6041
3,0

3
PAGE 238

;0PI, HVRC

SEQ 0236

CZR6NED RK611/06 3S ViY2

CZR6NE .P11

26-JUN-80 10:48

12438
}%223

065172
065174

064106
000

126441
12442
126443

065176
065200
065202

000006
000
063221

12444
12445
126446
126447
12448
12449
12450
12451
}%22%

12454
12455
12456
12457
12458
12459
12460
12461
12462
12463
12464

}%222

12467
12468
12469
12470

12471
12472
12473
12474
12475

12476
12477
}%:;g
12480
12481
12482
12483

12484
12485
12486
12487
12488
12489
12490
12491
12492
12493

065204
065206
065210
065212
065214
065216
065220
065222
065224

065226
065230
065232
065234
065236
065340
065242
065244
065246
065250
065252

0652564

065256
065260
065262
065264

065266
065270
065272
065274
065276

065300
065302
065304

065306
065310
065312
065314

065316
065320
065322
0653264
0653;8
0653
065332
065334
065336
065340

007
063310
002
063101
000
063413
007
064366
004

000006
000
063221
007
063310
002

063613
000
064040
003
064424

000

000006
000
063221
007

063310
002
063613
000
064040

003
064424
000
000011
000
063221
007

063310
002
063101
000
063413
007
063502
002
064465
000

MACY11 30A(1052)

TRAP TABLE

000
000

DF12:

000

000
000

000

DF13:

000
000
000

000

000
000

DF14:

000

600

000
000

000

000
000
000
000

DH701
0,0

.WORD
.BYTE
.WORD

6
0,0
DH101

WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE

6
0,0
DH101
7,0
DH102
2,0

.BYTE

0,0

.WORD
.BYTE
.WORD
.BYTE
.WORD

DF15:

10:53

.BYTE
.WORD
.BYTE

3,0
DH502
0,0

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

PAGE 239

;FORMAT FOR 2ND LEVEL ERROR
;IN HEADER COMPARE ERROR
;AND 2ND LEVEL HEADER
:VRC ERROR

DH601
0,0
DH606
3,0
DH502

6
0,0
DH101
7,0

.WORD
.BYTE
.WORD
.BYTE

7,0
DH102
2,0
DH200
0,0
DH201
7,0
DH204
4,0

.WORD
.BYTE
.WORD
.BYTE

.WORD
.BYTE
.WORD
.BYTE
.WORD

000

.WORD
.BYTE

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

000

26-JUN-B0

DH102
2,0
DH601
0,0
DH606

1
0,0
DH101
7,0

DH102
2,0
DH200
0,0
DH201
7,0
DH202
2,0
DH503
0,0

;FORMAT FOR 2ND LEVEL ERROR
;IN OPERATION INCOMPLETE ERROR

SEQ 0237

CIR6NED RK611/06 sS viY2
CIRGNE.P11
26=JUN-BO 10:48
12494
12495
12496

065342
065344
065346

063147
000
063517

12499
12500
12501
12502
12503
12506
12505
12506
12507
12508
12509
12510
12511
12512
12513
12514
12515
12516

065352
065354
065356
065360
065362
065364
065366
065370
065372
065374
065376
065400
065402
065404
065406
065410
065412
085414

00001
000
063221
007
063310
002
063101
000
063413
007
063502
002
064424
000
063147
000
063517
010

12518
12519
12520
12521
125¢2
12523
12524

065416
065420
065422
065424
065426
065430
065432

000005
000
063221
007
063310
002
064352

000

002

000
000

12497

12525
12526
12527

065350

06543&
065436
06540

010

000
064175

12529
12530
12531

065442
065444
065446

000002
000
063351

12534

065452

000002

12532
12535
12536
12537
12539
12540

12541
12542
12543
12544
12545
12546
12547
12548
12549

065450

002

065454
065456
065460

000
064003
~ 003

065462
065464

000006
000

065466
065470
065472
065474
065476
065500
065502
065504
065506

063050
000
063221
007
063310
002
063371
000
063351

MACY11 30A(1052)
26=JUN-80
TRAP TABLE
.WORD
.BYTE
'WORD

DHSO1
0,0
DH203

DF16:

.WORD
.BYTE
"WORD
.BYTE
WORD
BYTE
"WORD
BYTE
"WORD
BYTE
WORD
BYTE
"WORD
BYTE
"WORD
.BYTE
.WORD
.BYTE

11
0,0
DH101
7,0
DH102
2,0
DH200
0,0
DH201
7,0
DH202
2,0
DH502
0,0
DHS01
0,0
DH203
10,0

DF17:

.WORD
BYTE
"WORD
BYTE
"WORD
BYTE
"WORD

5
0,0
DH101
7,0
DH102
2,0
D711

.WORD
BYTE
.WORD

2
0,0
DH104
2,0

DF21:

.WORD

BYTE
.WORD
.BYTE

2
0,0
DH60S1
3,0

DF22:

.WORD
BYTE

6
0,0

000

000
000

.BYTE

000
000
000
000
000
000

000

000
000

000

.BYTE
"WORD
BYTE
DF20:

000
000

BYTE

000
000
000

10:53

"WORD
.BYTE
.WORD
BYTE
"WORD
BYTE
'WORD
BYTE
'WORD

10,0

0,0
DH702
2,0

DH100
0,0
DH101
7,0
D102
2,0
DH106
0,0
DH104

3
PAGE 240

SEQ 0238

gg?

065510

002

552

065512

000002

553
554
ggz

065514
065516
065520

000
064542
001

000

000001
002

000

60
25

065526
065530

000000
007

000

63
64
65
2?

065532
065534
065536
065540

000002
002
063517
010

68
69
70
71

065542
065544
065546
065550

000005
000
063221
007

;z
79

580
581
582
S83
584
585
586
S87
ggg

065552
065554
065556
065560
065562

065564

065566

065570
065572
065574
065576
065600
065602
065604
065606
065610

590
591
592
593
594
595
596
597
598
238

065612
065614
065616
065620
065622
065624
065626
0656
065632
065634

28}

065636

603

065636

604
605

065644
065652

063310
002
064211
000
064175

002

000005

000
063221
007
063310
002
064255
000
064235
004

000005
000
063221
007
063310
002
064271
000
064334
003

BYTE

2,0

DF23:

.WORD

DF24:

MWORD
.BYTE

1
2,0

DFeS:

.WORD
.BYTE

O
7,0

DF26:

.WORD
.BYTE
.WORD
.BYTE

2
2.0
DH203
10,0

DF27:

.WORD
.BYTE
.WORD
.BYTE

S
0,0
DH101
7,0

.BYTE

2.0

000

065522
065524

72
73
74
75
76

MACY11 30A(1052)
26-JUN-80
TRAP TABLE

000

557
ggg

lalal

6NED RK611/706 35S ViYe
6NE .P11
26=JUN-B0 10:48

000
000
000
000

.BYTE
.WORD
BYTE

.WORD
.BYTE
.WORD
.BYTE
.WORD

000
000

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

0,0
DH101
7,0
DH102
2.0
DH705
0,0
DH704
&,0

DF31:

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

S
0,0
DH101
7,0
DH102
2.0
DH706
0,0
DH710
3,0

000
000

000

000
000

000

RWBUF :
005015

020040
025052

020040

020040
020052

020040
020040
047516

DH102
2.0
DH703
0,0
DH702

.WORD

000

NOTMSG: .ASCII

PAGE 241

0,0
DHB00
1,0

DF30:

000

10:53

;READ/WRITE DATA BUF <AT LEAST S512(DEC) WORDS>
<15><12>/

txe NOTE #22/<15>AD>A
2>

SEQ 0239

———

6NEO RK611/06 sS ViY2
6NE .P11
26-JUN-80 10:48
606
607
608
609
610
611
612
613
614

615
2616
617
618
619
620
621
622
2623
2624
2625
2626
2627
2628
629
6
631
2632
633
634
635
2636
2637
2638
2639
640
641
642

643

644
645
2646
2647
2648
2649

065660
065 666
065671
065676
0657
065712
065720
065726
0657

065737
065744
065752

042524
005015
101
044522
0475%4
042524
046440
040510
005015

066146
066154

061
030062
031062
047524
046522
020104
044522
012
062
042101
052516
046040
006504
063
044523
047520
046105
006504
064
052111
045503
041101
12
065
053111
042101
044107
005015

066164
066172
066200
066206
066214
066222

020123
047524
042524
046440
040510
052117

065760
065766
065774
066002
066010
066011
066016
066024
066032
066040
066043
50
066056
066064
066072

066075
066102
066110
066116
066124
066125
066132
066140

066157

104

MACY11 30A(1052)
26-JUN-B0
TRAP TABLE

025040
012
046114
042526
041040
0521%3
051525
042526
012
020056
047440
051440
020122
052101
040503
043504

025052

020056
020123
046101
040517
012
020056
042522
052122
041505
012
020056
020105
042040
042514

10:53

3
PAGE 242

SEQ 0240

042040
020123
020105
042105
020124
035040

LASCIi

/ALL DRIVES TO BE TESTED MUST HAVE :/<15><12><12>

020101
020122
041505

LASCIT

/1. A 20 OR 22 SECTOR FORMATTED CARTRIDGE/<15><12>

042510
040515
054514
042504

LASCI1

/2. HEADS MANUALLY LOADED/<15><12>

042504
020104
051440
062524

LASCII

/3. DESIRED PORT SELECTED/<15><12>

051127
047514
051511
006504

LASCII

/4. WRITE LOCK DISABLED/<15><12>

020056
020105
020131

051104
042522
044514

LASCII

/5. DRIVE READY LIGHT ON/<15><12><12>

044522

042526

LASCI]

/DRIVES NOT TO BE TESTED MUST HAVE BOTH/<15><12>

020124
012
047516
041040
052123
051525
042526
006510

047506
042524
052122
006505

047117
020124
020105
042105
020124
041040
012

——

CZIR6NED RK611/06 S ViY2
CZR6NE .P11
26=JUN-80 10:48

MACY11 30A(1052)

12650

051117
026505

051524
042523

005012

000

066%27
066234

12651
12652

0662642

12655
12656

066255
066262

12665

066346

}%gg‘

12657
12658
12659
12660
12661
12662
12663
12664

12666
12667
12668
12669
12670
12671
12672

12673
12674
12675

066250

12701

12702
12703
127064
12705

SEQ 0241

/PORTS DE=-SELECTED./<15><12><12>

042105

HLPFIL: .ASCII

066270
066%76
066304
066312
066320
066326
0663
066342

066354
066362
066370
066376
066404
066412
066420

02505%
025052
025052
025052
025052
025052
025052

025052

025052
025052
025052
025052
025052
025052
025052

025052

JASCII

/ttvteaeevetannntnandnnentnnbttrnnneannneenensre/155<12>

047125
051040
046101

020124
030113
043511

LASCII

/MOUNT AN RKOS ALIGNMENT CARTRIDGE ON THE DESIRED /<15><12>

044522

(42526

LASCII

/DRIVE, AND INSURE THAT THE DRIVE IS WRITE-LOCKED. /<15><12>

041517
006440

042513
012

042516

JASCII

/CONNECT THE ALIGNMENT INDICATOR TO THE DESIRED DRIVE,/<15><12>

044124

JASCII

/VIA THE HEAD ALIGNMENT CABLE ONLY, AND CYCLE UP THE/<15><12>

066426
066434
066442

066516
066524
066532
066540
066546
066554

12692
12693
12694
12695
12696
12697
12698
12699
12700

3
PAGE 243

051516
044524

12683
12684
12685
12686
12687
12688

12691

052103

044412
041525

066450
822256
64
066472
066500
066506

12689
12690

006456

LASCIZ

10:53

015
051124
047117
020122
020107
051055
042510
044514
052116
035040

12676
12677
12678
12679
12680
12681

12682

120

042040
042514

TRAP TABLE

26-JUN-B0

066511

066562
066570

066575

025052

047515
047101
020066

046516
062503
043504
052040
051505
006440

106

020054
047111
052040
044124
053111
053440

046055
027104

103

066602
066610
066616
066624
066632
066640
066646
066654
066662

052103
040440
042515
042116
051117
044126
4523
051106
005015

066672
066700
066706
066714

020105
040440
042515
041101

066664

044526

020123
051525
06552%
030113
042101
047107
040440
005015

047506
047111
033060
020067
040440
042515
042111
025052
025052
025052
025052
025052
025052
005015

047105
85812;
020105
042510
051111
012

020124
044522
047117
042040
042105

047101
052523
040510
020105
020105
044522

020104
042522
020124
051104
051511
042524

047117

052040
044514
052116
041511
052040
020105
06%522
053111

020101

042510
044514
052116
042514

042510
047107
044440
052101
020117
042504
020104
026105

042101
047107
041440
047440

<15><12>/INSTRUCTIONS FOR USING RKO6=-RKO7 HEAD ALIGNMENT AID :/<15><12>

MACY11 30A(1052)

TRA P TABLE

26-JUN-BO

10:53

3
PAGE 244

SEQ 0242

» nvquqlqlququququququqnuqlscacachcqcacqzqtacPeYetel=l=T=]sv,l,uavsvcvac

CIR6NED RK611/06 sS ViY2
CZRONE .P1
26=JUN-80 10:48

/DRIVE. AFTER MOUNTING THE PACK ON THE DRIVE, /<15><12>

LASCII

/THE OPERATOR SHOULD WAIT 30 MINUTES FOR THE DRIVE/<15><12>

ASCII

/TEMPERATURE TO STABILIZE, BEFORE PRUCEEDING WITH /<15><12>

LASCII

/ALIGNMENT./<15><12><12>

ASCII

/RESPOND TO ALL REQUESTS FOR PARAMETERS, BY ENTERING /<15><12>

LASCII

/THE DESIRED PARAMETER VALUE (NO <CR> NEEDED)./<15><12>

ASCII

/THERE ARE TWO MODES OF OPERATION :

elelele]

ASCII

MANUAL MODE /<15><12>

C R6NED RK611/06 S ViY2
C
NE.P11
26=-JUN-80 10:48

MACY11 30A(1052 ) E26-JUN-80
TRAP TABL

=
e ANV

LASCII

/ALLOWS SELECTION OF DRIVES AND HEADS BY TTY INPUT,/<15><12>

LASCII

/AND AUTO MODE ALLOWS DRIVES AND HEADS TO BE SELECTED/<15><12>

LASCII

/BY OFF=ON OPERATION OF DRIVE PORT SELECT SWITCHES./<15><12>

052111
047515
050125
020065
042524
051440
054105
042523

LASCII

/IN EITHER MODE, UP TO 5 MINUTES OF SEEK EXERCISES/<15><12>

041040
052521
020104
040505

LASCII

/MAY BE REQUESTED FOR EACH DRIVE. /<15><12>

LASCII

/ALSO IN EITHER MODE, A VERIFY OPTION ALLOWS HEAD/<15><12>

LASCII

/SELECTION WITHOUT THE UNLOADING AND LOADING OF /<15><12>

i WYY e A e

e S5 A o

NNNO—==HONN
OSSO0V

OO~
WNnW-=0O

3
PAGE 245

042523
051440
042510

2O = =
— )b B~ bONMg NNVNO

R FRERRERRRSKRRRZ R
NNONNS
SO
~N
OO
REONS

WVAVA W

Z33ssevageas
WWVNINO WA

~uog
WO —

OSSO0V
ON SN =NWWNON

N =

N =2 N

CO=-=NOON
-

AR R
w

WV
R OO
R AR =2OONS
AR R R RS
N—=O

0701
o7on

NO WS
W —-O

NOoO

SEUSETSEEERES SLEPRRPRRERE -4+

SNNSNSN

NN NN
0D Go O OB OD OO OB O

SNOSNVINNINNSNS
SO =YSTNOOON -<

047524

785

N=aO
NS N—-

'
— dNN—‘—‘N—‘OV’OOON?NNO
(- NIV¥ S
W AN W °2°-‘ufll~fl~0wu~umu

R R AR RRARRARICRRRER SRE

047117

10:53

042101
052103

SEQ 0243

MACY11 30A(1052)
26=JUN-B0
TRAP TABLE

12818
12819
12820
12821
1282%
12823
12824
12825

020116
052517
020105
042101
047101
06%101
043117

044527
020124
047125
047111
020104
047111
006440

0462510
042526
044124
043517
053440
047440
044527
041503
012
020117
020127
052520
047117

042040
041040
020105
040522
044510
044124
042523
051125

LASCII

/THE DRIVE BY THE PROGRAM, WHICH OTHERWISE OCCURS/<15><12>

046101

LASCII

/70 ALLOW MANIPULATION OF THE ALIGNMENT TOOL./<15><12>

042522

JASCII

/70 RESTART EITHER MODE, TYPE <*2>./<15><12>

12826
12827
12828
12829
12830
12831
12832
12833
12834
1205
12836
12837
12838
12839

070116
070124
070132
070140
070146
070154
070162
070170

070171
070176
070204
070212
070220
0702%2
0702
070242
070250
070253
070260
070266
070274

12840
12841
12842
12843

070302
070310
070316
070324
070331

12847

070360

047511
044124
044124
047514
020107
047514
020107
012

126
044522
020131
051120
026115
044103
051105
047440
006523

126

047514
044516
044526
020106
046101
047105
046117

044124

040515
040514
047440
020705
046516
047524
012

070366
070374
070375
070402
070410
070416
070424
070432
070440

12858
12859
12860
12861
1206;
1286

070450
070456
070464
070472
070500
705

12857

12864
12865

12866
12867
12868
12869
12870
12871
1287§
12873

070443

070514
0705 ;

705

0705 5
07054
070546
070554
70593
0705
070576

PAGE 246

126

043511
020124
006456
020117

052040

050131

020105

020117

042522

LASCII

/70 RESTART ALIGNMENT AID, TYPE <*R>./<15><12>

020117

042523

LASCII

/70 SELECT NEW DRIVES IN MANUAL MODE, TYPE <*(>./<15><12><12>

041536
01;

027076

JASCI1

/FOR HEAD ALIGNMENT PROCEDURE, REFER TO FIELD /<15><12>

13865 070308 G303 Gidize Osnios
1%326 870322 8264‘0 042117 026105
12848
12849
12850
12851
12852
12853
12854
12855
12856

10:53

CZRENED RK611/06 S ViY2
CZR6NE .P11
26=JUN-80 10:48

057074
012
126
052123
6101
047105
026104
020105
006456

126

04;516
053505
042526
046440
020114
020054

0
0
005015

106

8:0505
3511
020124
862105
51040
052040
046105

037132
051101
043511
020124
052040
057074
N2

052103
042040
020123
047101
047515
054524

05111

020104
046516
051120
051125
043105
020117
020104

006456
020124
046516
044501
050131
037122
047040
044522
047111
040525
042504
042520

044040

046101
047105
041517
026105
051105
044506
005015

SEQ 0244

MACY11 30A(1052)

TRAP TABLE

26=JUN-80

10:53

3
PAGE 247

SEQ 0245

33538

CIR6NED RK611/06 S viv2
CZRONE .P1
26=JUN-80 10:48

OCO0O0O0O0O0O0O ”—-_3OnoOvl~ MOWVNONI~—N ONOr—r—r—JTWNO ONMNMITINMANO

[TONO—NOTNO
=—]el—ealOeL—WNNO
lTMelelelele]
sralal

OVMO
N[=lT=lelololelelele
o

000001

LASCIZ

/TEST BOX (RKO6=07TA, RKO6=07TB) OPERATOR'S MANUAL./<15><12>

CIRONEO RK611/06 35 ViY2
CZR6NE .P1T
26=JUN-80 10:48

B &
MACY11 30A(1052)
0
26=JUN-80 10:53 PAGE 249
CROS ) REFERENCE TABLE == USER SYMBOLS

ABASE = 177440
ABORT = 000200

2337
7443

4795

9465

9548

2379
2337
43204
4801
7444
42284
3040
6527
2
2
2
2
2
2
2
2
2
g

2340
4B62
4871
9549
7602
7517
6793

2
2
2
2
2
23
1
6

62
4

-t

&
—

ADDW5 = 000000
ADDW6 = 000000
ADDW? = 000000
ADDW8 = 000000
ADDW9 = 000000
ADEVCT= 000000
ADEVM = 000377
AENV_ = 000000
AENVM = 000000
AFATAL= 000000
ALDRVS 007656
ALLDRV 015060
ALLTRM 045752
ALNCYL= 000365
ALNPAK 007533
ALNSEK 033460
AMADR1= 000000
AMADR2= 000000
AMADR3= 000000
AMADR4= 000000
AMANS1= 000000
AMANS2= 000000
AMANS3= 000000
AMANS4= 000000
AMSGAD= 000000
AMSGLG= 000000
ANSGTY= 000000
AMTYP1= 000000
ANTYP2= 000000
ANTYP3= 000000
ANTYP4= 000000
ANYDER= 100000
APASS = 000000
APRIOR= 000000
APTCSU= 000040
APTENV= 000001
APTPAS 024042
APTSI2= 000200

ACDW1 = 000000
ACCW2 = 000000
ACLO = 000010

2378
9460

NSO

SN
’

49634
9684

96914

75964

9736

11512

11689

117304

117314

9573

9661

SEQ 0246

9671

9676

9681

9686

9694

9700

ASKMOD
ASKTMD
ASKTST
ASKTYP
ASTART
ASWREG=
AS2SP2
ATESTN=
AUNIT =

02
015
015210
024
02
000000
060346
000000
000000

11068
64140

64934
5131

AUSWR = 000000
026226
01271
AUTEX
027460
AUTEXR 013025

AUTAL
AUTALN

AUTO
AUTODR

AUTOEX
AUTOFG
AUTVRF

-—oa--—aoowc:oo NN

000100
024756
025402
015760

APTSPO=
ASKDRV
ASKHED
ASKMDE

C &
MACY11 30A(1052)
26-JUN-80 10:53 PAGE 250
CROSS REFERENCE TABLE == USER SYMBOLS

OCWWNWWNW O WNOIWO O SN

CIR6NED RK611/06 3S ViY2
CZR6NE .P11
26-JUN-80 10:48

026104
013135

013116
003150
012747

AVECT1= 120210
AVECT2= 000000
A.ABNL 003046

A.CONT
A.NORM

BADDRV

003050
003044

007461

BADSEC= 001000
BAD632 013141
BAI
= 000020

117324

6577

5158

5163

5168

5193

5207

5218

5227

5046

5054

5060

5076

5087

5074

5121

66184

6739

6839

6880

6639

6807

6810

6813

6829

6903

6918

6330+

6412+

6591+

7457

7473

7483

7506

2376

4794

5603+
8812+

6651+
9436

6875+

6227+
6375

8622

OV
-

(e A
cony
&~

OO OO = NINS VO

N
= e e e e e ooe
ESPONONO
NN N NN NN

wiroroOrONONOONONON

—

rororoRorRoRNONON

6507
7950

BDSRCK 042404
BGNRTY 046144
BITO = 000001
BI1T00 = 000001
81701 = 000002
81702 = 000004
81103 = 000010
81704 = 000020
81705 = 000040
BIT06 = 000100
81707 = 000200
BIT08 = 000400
BIT09 = 001000
BIT1 = 000002

SEQ 0247

5243

5262

6760

9692+

9705+

9707«

7369+
10634

7450+

7454

7545+

7549+

8490+

7370+

7459+

9437+
7460+

9693+
7461

10638
7475+

7476+

7477

7485+

7486+

7487

7514+

9075

9083

9638

9741

3288
8415

3436
8457

3580
8562

3672
8577

4879

4968

8644

8688

7989
9315

8273
10918

3581

3673

4229

5577

5628

8532

9319

6720+

6842+

8608

BKSLSH 013242
BLDEXH 047004
BPTVEC= 000014
= 000200
BSE
BSERR = 000002
BSFACT 004224
BSSOFT 003224
005264
BUFFO

B.BA16= 000001
B8.BA17= 000002
B.(DT = 000004
B.CFMT= 000020
011101
CART
CCLR = 100000
= 002000
c0T
CERR = 100000
CFMT = 010000
CHGTST 015432
CHKDRV 033220
CHKITR 033706
CHKLST 015136
CHKPRA 035006
CKMEMT1 040022
CKMEM2 040034
040042
Ckm0

CLEAR = 000105
0
=
(LR
CLRPRM 032356

4236

;}%;fi

L6684
9589
21430
32754
4229
36964
36954
3705#
5029
5247
7082
7938

32404
32614
32420
32430
LLLT7H
32354
3228#
32340
3231
5028
6459
5533
4844
5287
5766
5851
8594
3194#
32514
7374

w
N
~N

WO
OWN

3323

3441

ONNO—

NN
N
&N

= 001000

7351

LILNODWN
WWNON
N
—WW~NW

BIT9

7349

NN
WY
OO0

2128#

4792

11660

9230

5204

3591

11635
7880

3676

4232

3585

4233

3442

3587

4234

3367

3444

4235

3368

3445

3588

3589

4237

5472

3453

9734
4939

5107
341
wn

= 000400

4239
4240

3584

BIT8

9350

4241

WVW—=0O0

= 000200

4238

3452

3300
8569
3301
3284

BI1T7

3590
3450
3451

W8 Or

= 000100

3341

OVY

BIT6

3328

VWS ONWOON

= 000040

3314

3299
3316

VIOV

BITS

BIT14 = 040000
BIT1S = 100000

3279

= 000004
= 000010
= 000020

BIT13 = 020000

3257

SEQ 0248

Vil

BIT2
BIT3
BIT4

2115#
21148
9258
2113
8296
2112#
21114
9354
2134H
21334
21324
5487
21314
6953
21304
5053
21294

B1T11 = 004000
BIT12 = 010000

W
N
W
=o

2116#

11500

WWNOOW
NN
N OW
S bionn

81110 = 002000

D &
MACY11 30A(1052)
26=JUN=-80 10:53 PAGE 251
CROSS REFERENCE TABLE == USER SYMBOLS

W S NWWNNOWOWWNWN
~N WM
=MW
~N ONNONNOWVINS
S
o VIVIOA
SN = SN0

CZR6NEO RK611/06 S ViY2
CZR6NE .P11
26=JUN=-80 10:48

7773+

4955
5141

5346

7892

4959
5144
5351
7912

5020
5147
5360
7915

10828

10916

10881

10772

5026
5153
5401
7922

CIR6NED RK611/06 S ViY2
CZRONE .P11
26=JUN-80 10:48

E 4
MACY11 30A(1052)
26-JUN-80 10:53 PAGE 252
CROSS REFERENCE TABLE == USER SYMBOLS

CMDTO = 000100
CMPBUF 036444
CMSTRT 013350
CNTRDY 007613
CNTRLC 013205
CNTRLG 013231
CNTRLR 013217
CNTRLU 013224
CNTRLZ 013212
COE
= 001000
COMMA
013244
COMSTR 005240
CONCLR= 000176
CONERR 043442
CR
= 000015
CRLF
= 000200
CRMPHO 005262
CRMPLO 005260
CRTSER 035432
CR2LF
013236
Cs
005702
CTLOUT 037352
CT0
= C04000
CyYL
003202
CYLLST 003204

9483
83314
L699%
8503
6957
6971
6967
7729
6963
9555
4(BB4
9136
10899
9311#
11112
11083
B4OS
8406
8083#
9217
5487
8725
9518
6098+
6133

CYLNDR

005504

C.INIT

052562

36420
5941
4693
31340
L6628
L6668
Lo64LN
L6654
L6634
3278¢
L6698
36994
3212
3573
20514
2052#
37048
3703
5486
L6674
38044
8474
32294
36934
36944

g:zzl

9725
717
7735
7723
10068

10234

9151

9753

11122
11122
8634
8635

9146
9147

9148+
9149+

9229
5577
91N
10466
6120
6141

6253
5628

9195

5549«

6165
6176

557

10470

5573

5665

5667

6135«

6136

6555

6890

8142«

8143+

10875

10897

10902

10912

10921

10934

2498
2726

2504
2732

2510
2738

2516
2744

}8;%;

}8822'

10837

9121

106774

10844

10847

10854

10858

C.SPEC 053454
DCk
= 100000
DCKERR= 000020
DCLO = 000020
DDISP = 177570
= 000400
ODT
DERCNT 003121
DESL = 000010
DFLTST 005644
DFQUES 010534
DFSTRT 013302
DFTEST 010067

10717
32840
42328
32934
2058¢
32984
36494
32484
37814
LL04n
2202
W3470

10813#
5691
9645

8817
9734

9643

10068

10234

10470

2275

4727

6314

9582

9607

9652

9663

3790
5240
L6874
5057

5051

5070

5073

5094

5119

2614
2450
2534
2762
2810

24620
2456
2588
2804
2816

2462
2468
2594
2822
123674

2570
2474
2600
2846

2840
2480
2708
123524

2876
2486
2714

123384
2492
2720

2624

2630

2636

2642

2648

124410

DFO1
DFO2

064702
064732

DFO3
DF 04
DFO5
DFO?7
DF10
DF11

064766
065026
065042
065076
065132
065156

DF12
DF13
DF 14
DF15

065176
065226
065256
065306

2402
2426
2522
2750
2432
2564
2540
2552
2558
2858

2606
2654
2660
2672

8730

9967

054434

C.RTRN

6158

3?22'

9798

SEQ 0249

2408
2444
2528
2756
2438

12384#
2546
124064
124214
124324

2612
2666
124674
124804

1239

2618
12454n

R—

CZR6NED RK611/06 S ViY2

CZR6NE .P11

26=JUN-80 10:48

DF16
DF17
DF 20
DF21
DF 22
DF23
DF 24
DF 25
DF 26
DF27
DF 30
DF 31

065352
065416
065442
065452
065462
065512
065522
065526
065532
065542
065566
065612

DH101

063221

DH102

063310

DH103
DH104
DH105
DH106
DH200

063326
063351
063066
063371
063101

DH204
DH500
DH501
DH502
DHS03
DH601
DH602
DH60L

064366
063116
063147
064424
064465
063613
063635
063673

DH6042
DHEDS
DH6051

063750
063766
064003

DH100

DH201
DH202
DH203

DH6041

DH606

DHE07

DH701
DH702

063050

063413
063502
063517

063721

DISPLA

124994
125184
125294
125340
12539
2786
125574
8333«
125634
125684
7155+«
7198+«

9234

2792

125524

B387+

B601+

125794
7199+«

125904

12179%

9245

121894

2862
121964
9232
121994
121634

12192#
12531
12161#
12547
12345

122974
121664
12171¢
123024
123088
122278
1223104
122378

12451
12349
12377
12464
12492
12397
12401
12412

2796
2772
122514

122454
12248F
12418

2400
2478
2556
2646
%ggg

12501

12503

122034
122134
122164

8836

122564

064106
064175

8332«
2850

064211
DH703
064235
DH704
064255
DH705
DH706
064271
064304
DH707
DH710
064334
064352
DH711
064542
DHBOO
DI
= 040000

001142

26-JUN-B0

122604

122764
7156+
122834
122864
7198
122924
122954
123164
32334

22758

10:53

PAGE 253

CROSS REFERENCE TABLE == USER SYMBOLS

2678
2696
2864
2774
2870
2780
2798
2702
2852
2828
2882
2888

064040
064066

MACY11 30A(1052)

2406
2484
2562
2652
1%{;3‘
12520
12522

B627+

125604

2418
2496
2586
2664
2760

2424
2502
2592
2670
2802

2430
2508
2598
2676
2808

2436
2514
2604
2694
2814

2442
2520
2610
2706
2820

2448
2526
2616
2712
2826

2454
2532
2622
2718
2838

2460
2538
2628
2724
2844

2466
2544
2634
2730
2874

2472
2550
2640
2736
2880

12341

12354

12369

12386

12393

12408

12423

12443

12456

12469

12482

12343

12356

12371

12388

12395

12410

12425

12445

12458

12471

12484

12486
12488

12505
12507

2612
2490
2568
2658
1%;2?

12543
12545

12570
12572

12581

12583

12592
12594

12549

12358
12360
12379
12381

12373
12375
12490
12496

12494
12477

12513
12511

12460

12473

122414

12427
12414

12434
12429

12436

12399

12416
12536
12403

12462

12475

B386+
122734

B600+
12526

8626+
12576

122634

12438

6314+

6322+

11499+

12347
12362
12364

12574
122804
12585
12596
12288#
12598
12524
12554
10254

4727«

SEQ 0250

12447
12449
12509
12515

12565

12587

10926

4735+

11673«

CIR6NED RK611/06 3S ViY2
CZR6NE.P11
26-JUN-80 10:48

G &
MACY11 30A(1052)
26~ JUN=80 10:53 PAGE 254
CROSS REFERENCE TABLE == USER SYMBOLS

DISPRE
DLY
=
DLTFLG
DMD
=
DONE
DRA
=
DRDY =
DRIEXR
DRISEL
DRIV

000174
100000
003141
000040
003123
000001
000200
012344
013002
011074

2199
32620
36654
3309#
36514
328
32974
45808
L6368
LL4br

DRNAFG
DRNAVL=
DRNRDY
DROPDR
DROT =
DRPAR =
DRPDRV=

003136
010000
011561
011010
000040
000010
002000

7485
36628
L2404
L5120
L3660
32940
32714
3449#

7562+
9201
9565
9505
10702

DRVDSC= 000040
DRVERS 003130
DRVHRD= 000020

36564
3440

4751«
9668

5414+
10149

9194+
10344

DRIVE

DRVCAL

DRVLST

005500

042510

37104
6427
6840+

5461
6506
6775
7571
8537
34614

4735
9575
6010+

6322
10062
6014

B726+
10057
6549+
6758
B052

4981+
6547
6843

7514
9113«

5595
6511
6785
7584
8788
9673

10192
6025

10228

10468

8733
10840

9112«

9124

9170«

9312«

9430+

9767«

9770+

5409+
5649+
6844

5416+
6654
6882

5417
6682
6910

5420
6691
6911
7577

5480
6693+«
6931

12321

6108
6721+
7377

6148
6726+
7378

6164
6753
7425

6167
6755
7427

61562
6764
7459

6426+
6778
7475

5598
6556
6874
7586
8805
10142

5602
6564
6891
7598
8993
10308

5605
6571
6897
7616
9108#
10370

5608
6576
6902
7618
9706

5676
6581
6909
7630
9752

6019
6690
7376
7646
9762

6129
6738
7452
8051
9797

6172
6748
7492
8093
9834

6212
6752
7494
8179
9836

6228
6769
7508
8493

6501
6771
7547
8534

9200+

9714+

4915

4949

4957+«

4969+

4972+«

4979

4991+

5421

6106

6146

4923

5015

5043

5059

2461
2539

2467
2545

7543
9325

2:;3’

DRVLUP 026304
DRVMSK= 000007
DRVNED 011713
DRVNO
011070
DRVPDT= 000004
DRVPOS= 000002
DRVSEL 013007
DRVSEQ 007445
DRVSER 035312
DRVSZD= 010000

66304
32474
L5294
L4458
34384
34374
LO37H
42938
5485
34514

6701
10051
7554+
5480+
10250
10250
6757+
4LB76
6461
9496

6716
10092

6814
10243

5481+
10318
10277

10739

80484
10080

10842

5136
34364
32964
3219#
32184
33014
20574
34540
32818
3;730

5190
10702

5215

5242

014374

DRVUSE= 000001
DRY
= 000200
DR.CLR= 000005

DR.SEL= 000001

DSC
= 040000
DSWR = 177570
DTBAII= 100000

DTE
= 010000
DTYE = 000040
DTYLST 005620
DTYMSG 012513

DT100

064566

4690

37550

4599

2401
2479

4842

4899

7552

005610

DRVTST

4880

SEQ 0251

48584

7560

9198
10475

10688

4B64

4865

4866

4874

4922

10473
10608

10615

10819

5270

5319

5391

7947

8482

10130
10200

10293
10279

10335
10594

10359
10601

2274
6001
5691
7445

4726
6127
8817
9533

6313
10702
9570
10470

10801
10470

6153

6207

6382+

6386+

6428

6655

6845

2413
2491

2419
2497

2425
2503

2431
2509

2437
2515

2443
2521

2449
2527

2455
2533

4986+
6371

2407
2485

5425

’

5086

2473
2551

CIR6NED RK611/06 SS ViY2
CZR6NE .P11
26=JUN-B0 10:48

2557
2647
2743

DT102
064604
DT103
064676
DT201
064610
DT202
064626
DT203
064632
DT601
064652
DT602
064660
DUACES 010347
DULACS 003135
DUNPAS 023714
DZR6N
007036
ECCNC = 000040
ECCW = 020000
ECH
= 000100

2881
123240
2863
123254
2851
12329
2773
2701
L380#
36614
5419
L2434
L2334
33174
32740

EMTVEC= 000030
EM
060353
060522
EM10
EMI00
062325
EMI101
062350
062426
EM102
062472
EM103
062520
EMI06
EMI05
062542
062573
EM106
062626
EMI07
060531
EMN
06267
EM110
062724
EM111
062745
EM112
EMI13
06277
063017
EMI114
063034
EM115
EM12
060544
060556
EM13
060567
EMI4
060607
EM15
060623
EM16
060634
EM17
060372
EM2
060651
EM20
EM21
EM22
060700

21464
2399
2441
2789
2795
2801
2807
2813
2819
2825
2831
2447
2837
2843
2849
2873
2879
2885
2453
2459
2465
26471
2677
2483
2405
2489
2495
2501

ECOBAD

EM23
EM24
EM25
EM26
EM27
EM3
EM30
EM31

030556

060713
060730
060746
060765
060777
060410
061015
061036

;23;

2507
2513
2519
2525
2531
2411
2537
2543

MACY11 30A(1052)
26-=JUN-B0 10:53 PAGE 255
CROSS REFERENCE TABLE == USER SYMBOLS

2563
2653
2749

2887

2569
2659
2755

2587
2665
2761

2593
2671
2803

2599
2677
2809

2605
2695
2815

123324

12321#

SEQ 0252

2611
2707
2821

2617
2713
2827

2623
2719
2839

2629
2725
2845

263
2731
286

2641
2737
2875

6583

6612

6647

6838

6904

70054

123364
123284

2779
12333«
4762
4L68Br
62478
4753
9648

2785

279N

2797

2857

4697+

4760

4927

7664

9646

10068

10234

10470

4710%
11902#
119234
120964
121004
12108#
12114»
121184
121214
121264
12131»#
119254
12137»#
121424
121454
121494
12153»
121564
119274
119294
119314
119344
119374
11939
119054
119424
11944
119464

4711+

6297«

6298+

5194

11948#
11951»
11954
1957
11959
2890
2657
2663

6333

5219

119084
119624
119654

6405

6455

6484

6520

CIR6NED RK611/06 S ViY2
CZRONE.P1
26-JUN-80 10:48

I &
MACY11 30A(1052)
26-JUN-80 10:53 PAGE 256
CROSS REFERENCE TABLE == USER SYMBOLS

EM32
EM33
EM34
EM3S
EM36
EM37
EM4
EM4O
EM4Y
EM42

061055
061074
061110
061130
061162
061211
060426
061252
061316
061346

2549
2555
2561
2567
2573
2579
2617
2585
2591
2597

119684
1197»
2861
119764
11981#
11985#
1191
»
119914
11997#
12001#

EMS
EM52
EMS3
EM56
EM6
EM60
EM61
EM62
EM63
EM64
EM65
EM66
EMG7
EM7
EM70
EM71
EM7
EM7
EM74
EM75
EM76
EM77
ENBCSR
ENTDRV
ENTHED
ENTLCI
ENTMOD
ENTPAS
EQUALS

060445
061427
061444
061467
060464
061506
061540
061573
061607
061645
061673
061715
061741
060503
062000
062045
062105
062140
062160
062172
062222
062304
031302
011521
012557
010041
012212
010742
013270

2623
2645
2651
2669
2629
2681
2687
2693
2609
2615
2621
2627
2633
2435
2639
2741
2747
2753
2759
2765
2771
2777
4749
L5054
L6078
3434
L5638
46294
46784

11914
120104
12013#
2675
11917»
120204
120254
120304
2705
2711
2717
2723
2729
11920#
2735
120644
120704
120754
12078#
120804
12084#
2783
4861
6414
6493
5013
6465
5389
7849

ERRCOM
ERRFRE

005476
042700

ERRLMT

003127

EM4L3

ERRCNT

ERRHDL

061376

003126

044156

ERRVEC= 000004

ER2ENT 044176
EXPLAN 010173
E.CCLR= 000001
E.CERR= 001000
E.CLAT= 000020
E.CMTO= 040000

2603

ggzgl

11973«

120054

120174

12033#
12039
120434
120474
120514

12057#

12093«#
5132

71654

7211

6595

3?22'

4841+

6357+

7643+

9173«

37094
35N

9368+
6227

9369+
6229

12321
7370

9170#

9693

36554

9743

7168«
11641«
96338

7177«
11643+
9495

4725+

4736%

4745+

32;%

21394

43604
35804
3
35840
3

SEQ 0253

398;

4724

5130
09

5693

6720

6875

7178«
11646+
9603

7188
11754
9628

7189
11755
9712

10299

10340

10364

9175

9178

9180+«

9313+

9431«

9715+

9723«

6926

7369

7454

7549

8490

8812

8819

94294

K746+

6311

6312«

6323«

7150«

7151«

7192«
11759«

7193«
11764+

7208+
11776+

7209+«
11781+«

7215+
11790+

8729+
11800+

7166

B744+
11801+

7167

11640

NNV = O N ONO O —-=N0D — N
&~ O S NN NOMAON N = 5 = NN W
N = = S OWVoRor
N
o NN

P
S
——

] lelelelelelelalalelel=0
"]
[+ 1o

.SCLR=
LUATT=
.UDAT=

3588+

9319
10145+
10910+

9323
10216+
10918+

9330
10238'
10931+

9334

10261+

9338
10267+

SEQ 0254
9342

10299+

9346
10340+

9350

10364+

9354

9359+
10461+

10034+
10483+

8800
8698

8905

9844

10409+

10622
10461

10348

5673

6344+

8419

8648

8423
8421

8652
8650

8700

72724

5679
5541+
5995
70684
5947
6472
11889

7379
5582

6
11890

8485
6572

11891

8508

OLT = 000400
.CPAR= 002000
.lLLb’ 000100
= 100000
.MDS
.NOA!s

35740

10072+
10622+

—-o\nmaaaao

003052

N OD N 8TM N W N N N N NN
NN
N S SV w
O
o
L
=

mmmmmmmm

E.CONT

J &
MACY11 30A(1052)
26=JUN-B0 10:53 PAGE 257
CROSS REFERENCE TABLE == USER SYMBOLS

p—

CZR6NED RK611/ 06 35S VviY2
CZR6NE.P11
26-JUN-80 10:48

10880+
10886+

7820+

7823+

7976

7991

8504

8796

9721#

9749

64634
54964
S497#

6447
6435+
6436

6662+

6445
6446+

6673+
6663+
6664+

9604

10068

10234

10470

7996

8003

6852+
6674+
6675+

6863+
6853+
6854+

8146
6864+
6865+

9837
9840

MACY11 30A(1 5
CROS

CIZR6NED RK611/06 SS ViY2
CZR6NE P11
26-JUN-80 10:48

26=JUN-80

032250

INPUTP
INTCHR

015754
005522

PAGE 258

SEQ 0255

7565

10414

10478

10940

10807

9594

9619

5802
8774

5890

6074

6819

5188
6467
6808
7005

5191
6469
6811
7623

5213
6497
6824
8476

6380
6599
6892
8500

10265

10297

8751#

026370
003101

INTR
I0OTVEC=
IR

10338

10349

10633+

1093 On
10 595

10602

10616

1026 9

1013 8

10147
10281

10159
10302

8372+

8561+

8607+

10641«

6295+
103184

10476

10901

-~
» e

21
35
84

N —

oSN

YN B =

e (N

10176
10334

11768

—_— 3 *

NNOOAOrO~ 00000

d d cld i il o e
i el
-

—

ST NTNTNT NI NI NN NSNS NN LN

VWA '3y FRILEOR
~N
SR8
NS NOONSNO

U A U NN
N
L

nNO

O =N

§°°°°
e

)

D e

SNNNNNNNNNNNNNN
NN
RN NN

—

04
29

—h B b b d 2 B 8
Nl =lelelele)

100244
10041+

10252

O0O0OO0O0

P S

101194

—_—

PR G

105554
10691

INTG
INTMSK

FERENCE TABLE == USER SYMBOLS

7467

ILF
INCRMA
INCRSC
INITHM
INITSS

10:53

7352+

8289+

8298+

8360+

8368

8681+

CIR6NEOD RK611/06 S ViY2

CZR6NE .P11

26-JUN-80 10:48

KIPDR6= 172314
KIPDR7= 172316
KTERHD 031206

21724
21734
4768

LASTWC
LC
LCMé
LCVEC
LDMEM1
LDMEM2

005572
005662
017776
003162
037656
037670
37676
LEV2ER= 000400
LF
= 000012
LKS
003152
LODBUF 036216
LODFLS 015476
LODFPT 016510
LODP14 036002
LODSEC 035674
LOERAD= 177740

LOWOCT
LS
LSTCYL

37354
37964
5428+
36840
5759
5763
8552
L2368
20504
3680#
5934
4913
5077
5899
81554
2189%

005470
005510
020000

37064
37140
5431+

LSTMEM 007101
LSTTRK= 000002
LSTTST 015314
LT
005666

005600

MAHILM

005574

MAXLO4= 022370
MCLK = 000400

MOFLAG

003116

MDFY15 010667
MDS
= 001000
MEMABT 003144
MEMCSR= 172100
MEMSYS= 177744
MEMVEC=
114

71460
8217
5430
5440+

85494
5839
8555#
9433
11116

8264#
5065
5248
8193«
8177
7195

5284+
5470«
5443«

8089
7051
7501
50344
5164

6477
45814
6480
45714
6401
6483
45878
21874
21864
43864
42184
42204
42224
42240
L2174
L2194
42214

64904
6491
65454
6550
64114
65384
6539
9148
7254
8006

36468

L6B7+

42234
33124

44214
32564
36688
2188¢
191
686N

26-JUN-80

10:53

&
PAGE 259

CROSS REFERENCE TABLE == USER SYMBOLS

6860+
42504
2278
5025
3798%

37388
8026
37364

MANAL
025376
MANALN 012352
MANEX
025650
MANEXR 012265
MANUAL 024746
MANVR
025632
F 012412
MAPHOO= 170202
MAPLOO= 170200
MAWRDC 010405
MAXHI1= 0000u0
MAXHI2= 000000
MAXHI3= 000000
MAXHI&= 000001
MAXLO1= 062031
MAXLO2= 017500
MAXLO3= 112160

MACY11 30A(1052)

5745
8028
7023+«

7883
7436
7205
7169
7197
4LT4T7+

8391+
5442+
54934

8614+
5546
6429+

5547
6440+

5843

5938

8553#

9488
11122

9585

SEQ 0256

6431¢
6656+

6442+
6667+«

6453+
6B4b6r

6658+
6857+«

6669+
8700

6689+
8702

6848+

9591

9610

9616

9708

9768

7819+
5542+
5547

7824
5566
5557

7981
5568
6083

7983
5661
6437+

7986
5663
644Br

5752
8706+
7038+

5753
8707+
7039+

5824
8708+
7052

5825
8709+
7272

4696+

4788

5075

5258

10032

10459

10834

7175

7216

7224

6859+

7989
5678+
6453

7994
5682+
6659+

7999

8002

6670+

6689

6849+

5831
8761+
7276

5832
8762+
7278

5913
8763+
8024

5914
8970
8025

5920
8971

5921

5539

6349+

7666

8478

50704
52534

5364+
5476%
5494k

8144

8777

8090

5746
8703«
7024+

6584

9149

4748t

CIRONED RK611/06 3S ViY2

CZR6NE.P11

26=JUN-80 10:48

MERD = 001000
MESMSK= 000017
MEWD = 002000
MIDXFR 041660
MIND = 000200
MINHI1= 000000
MINLO= 057467
MWAVEC = 000250
MODP1S 034462
MPERHD 031366
MSP
= 000100
MULHDL 023614
WULSEL 012122
MULTI1 023702
MXWRDC 035236
M.CADD= 017760
M.CDIF= 017760
M.DPID 055236
M.DOPIM
M.DPO1
M.DPO2
M.DP4D
M.DP&1
M.DP42
M.DPL4
M.DPSO

055176
055206
055226
055274
055330
055340
055372
055404

R-MEAD= 007000
R0 = 000003

M.PAR = 100000
M.SECT= 000760

M.SER = 077770
NCYL]
NCYL2

005512
005514

NEWON

005530

3130
3064
33140
8927#
33714
42160
42154
21550
5200
4747
33104
6166
45530
6085
5737
33820
33814
111654

MACY11 30A(1052)

26-JUN-80

10:53

PAGE 260

CROSS REFERENCE TABLE == USER SYMBOLS

SEQ 0257

9000

4768+

5369
7187#

62184
6733
6117
5816

4769+

78720

’

6170
5905

6179
8005

62314
8024#
.

111364
111394 11148
11143
111474
111764 11197
11181
11188«
11187 11192#
11199
112044
11176
112084

33500
33808
33794
3384

33834
37154
37164

NED
= 010000
NEDHDL 030320
NEM
= 004000
NEWDRV 017272
NEWNSG 007434

32508
6651
32580
S4128
L2918

6926
6842
9462
5422
7072

9467
69248
10062
6246

9477
7450
10228
9202

10047
7545
10468
9716

10125

10468

10838

NEWPAS 017260
NGOFST 005550
NMTSTS= 000006

4692
37208
37904

4778
5592+
553

6652+

54094
5624+
5684

6697

6699

6713

6873+

6876

NOCHK = 000400

NODRLK 012010
NODRTS 007564
NODSC = 004000
NOFALS 011170
NONEXD 011703
NORTRY (003142
NOTALD 010440
NOTDFT 01g3s4
NOTLOK
012000
NOTHSG 065636
NOTRDY 011551
NOTYPE 003146

37220

34454

L5408
43094
34508
W45BF
45278
6668
43924
5246
45380
4758
45100
36714

6628+

10702

7579+
4896
9678
489S
7555
6011*
5162
52634
7580
12603
7563
4756

6283
5653
5723

5657
5800

10764

10805

10832

10290
5648

5655

8843

7373+
5167

9739

4759+

5888

10850

5989

10871

6072

10894

6936+«

7451+«

10903

10937

7455

7546+

7550

CIR6NED RK611/06 sS ViY2
CZRONE .P1N
26-JUN-80 10:48
NTREDY
NULINP
NXDRIV

007506
015530
007472

5063
L2988

S078#
7462

OCTBIN 054456
OFFSET= 000115
OF INUS 005516
OFSHED 011177
OFST
=
ONLINE 005526
OPCOMP 003122
OPCONT 003131
oPl
= 020000
OP1ERR= 000010
OPNLST 016444
OR
= 000200
OREQSW= 000020
OVLODR 007131
0.WAIT 003054
PACK = 000103

5108
31984
3717
L4638
32904
37218
36504
36574
32828
4231
5149
32540
36764
42554
35948
31934

5282
5597

NXF

= 000004

PARMDE
PARMO
PARM1
PART
=

010321
002630
002714
000001

43008

N &
MACY11 30A(1052)
26=JUN-80 10:53 PAGE 261
CROSS REFERENCE TABLE == USER SYMBOLS

32704

43764
34834
35154
1990#

3799
3848

7478

5362
5606

5402
10747

7087

7923

10968#

6627+

6699

6712

6713«

5691
9581
52398

8817
9734
5244

9579

10068

10234

10470

9968
749

9972«
7585

10082+«

10086

10102+«

10168+

10181«

10196

10740+«

7372
7381+

8962
9795
2039

8975
9829

9691

9760

9811

9845

2009

7644
9435
2030

2207

3693

3736

7304

7525

3818
4243

2222

7285

3814
3864

8104

8151

5924

8266

1027

10689+

5579

5133
3638
7378«
2003

3803
3855

3804
3857

5499
12650

5502
12655

6285

PART2
007075
PAT
= 000020
PATRN
005536
PATO0
006036
PATO1
006076
PAT02
006136

L2498
33084
37254
38694
58914
19134

4755

6335

S734+
8268

S5811«
8283

PATO4
PATOS
PATO6

006236
006276
006336

36574
39794
40004

006436
006476
006536
006576
006636

4043#
40654
40874
41094
41310

6006
8195
6003

6126

PART1

007071

PATO3

006176

PATO?

006376

PATOB
PAT09
PAT10
PAT11
PAT12

PAT13
PAT14
PATIS

006676
006736
006776

PBLKT
003112
PBSVAL= 001000
PCA
=
PCO
=
PCLKF
PCVEC
PFIFIN
PGE
=

004000
010000
003132
003164
010616
002000

4248n

5251

3806
3861

5900+
8339

3812
3862

5902+«
8354

2203

39354

40224

41534
41754
4195#

36384
34464

33154
33164
36584
36854
134
32574

SEQ 0258

9965
10627

5209

9525

7850

10052

10468

7928+

10078

7934+

10246

3819
44661

3821
4462

3830
4695

8337

8444

8968

8464

8532

10800«

10862+«

10879+

3771

3782

3797

9089

12601

3834
4753
8543

3842
4783

3844
5169

7900

9761

6342
6286+

11583+
10561+
9392
10597+

8948+
6021+
10827+

~ -~

wvisoO~
- Nno

»»

SN~
~ =N

5604+
6128+
6683

P.BAR = 000024
P.B00 = 000042
P.B01 = 000046
P.B10 = 000052
P.B11 = 000056
P.CMND= 000001

34720
34744
34764
34294
34304
8945«
34644
34710
34734
4754
34774
34234
5939+

7983
7819
7821

P.ASOF= 000032
P.A00 = 000040
P.A01 = 000044
P.A10
= 000050
P.A11
= 000054
P.BANI= 000007
P.BALO= 000010

6430+

—d

013336
177776
005700
057100
000024

20734
2074m
20754
20764
2077#»
20784
20794
20804
20534
10943+
2206
20544
38034
11595
2145#
34670
34704

SEQ 0259

PSTART
PSW
=
PT
PWRMSG
PWRVEC=

36974

5
PAGE 262

005660
006010
005256
005254
013277
013274
005224
000000
40
000100
000140
000200
000240
000300
000340
177776

PRMLST
PRMNEM
PRMPHO
PRMPLO
PRMPSP
PROMPT
PRVCMD
PRO
=
PR1
=
PR
=
PE
=
PR4G
=
PRS
=
PR6
=
PR7?
=
PS
=

6847
3794
38524
37024
37014
L6804
L6790

9009
5726
6648

013256
007211
005734

LS LS LV o«ombmt: [+ JWNLV.
[ N R Vo LV LV [o

PRMBUF
PRMINP
PRMLIM

woownwn
NN
vworuniio

031606
030536

10:53

5920+
8943+
5336

NOVWVLYOAY
OWNM—0
—=unonn

PREPAR
PREPKB

3809#
6861+
5754
5036
6466
L6764
L2740
38254

005706

—

PRDFLTY

OROWVIVION
WY
WWNONRSS
WWNWVIVIWGG

33004
20564
21504
36834
36814
36824
37284
gggga

VIOV
S WNO
=00

0;0000
177772
000240
003160
003154
003156
005546
005604

26=JUN-B0

CROSS REFERENCE TABLE == USER SYMBOLS

P I

PIP
=
PIRQ =
PIRQVE=
PKRB
PKS
PKSB
PLOFST
PMA

MACY11 30A(1052)

—

CIR6NEY RK611/06 3S ViY2
CZR6NE .P11
26=JUN-80 10:48

——

P.CS1H= 000007

P.CS2 = 000020
.CYLN= 000002

.DCYL= 000030
.DRVN= 000000

.DS

= 000036
= 000026

VY9999

.EPAT=
.EPOS=
.ER =
.0FST=
.PRST=

000062
000060
000034
000006
000014

P.SECT= 000004
P.TRCK= 000005

P.WC

= 000012

P.WCR =
QNEWSW=
Q.INIT=
RCDASW=
RCLREQ=

000022
000000
040000
000010
004000
RDALHD= 000164
RDCHR = 104406
RDCHRS 034002
RDDATA= 000121
RDGATE= 100000
046514
ROMDO
RDHEAD= 000125
RDSTAT= 000141
RDY
= 000200
RECAL = 000113

RECODE

005474

10213
10796+
10870+

10322+
10797+«
10873+«

10324+
10807«
10874

10209
5688
10325+«

10450
6924
19555+

10759
9383
10713«

6155«

5543+
6103+
8245
8883
6110«
10095
9390
8885
10558+
9656
9655
5691
5596+
6001+
10149
10627+
10894
5544
8183+
10208
5545+
8090+
5740%
8753
9386

9615

5460
6175
6218
5675
7583

6016

9432+«
9573«

6157+

5553«
6120
8697+«
8929
6150+
10272
9510
8887

10121+
10122+
8817
5607+«

6127+

10153+«
1070%'
1090

5566
8222
10744
55539
8173«
5744+
8784+
10326+

98204

9835
6747
9698
6500
8492

6169

9433
9581+

6209+

7544+

8531+

10741

10209+
10767

7495+

D
e
o
e

7439+

7396

—

6221

6901+
7615+
9751«
10787

SEQ 0260
lelelelalelal
OO0 N =2 O N SN
= O = N0
(o JANT SR el Dol V0]

6896+
7596+
9704+
10762

B
e

= 000016

6886
7585+
9369
10756

P.CS1

MACY11 30A(1052)
26-J UN-80 10:53 PAGE 263
CROSS REFERENC € TABLE == USER SYMBOLS

7570+
8536+
10747
10210+
10791+
10867+

9843+

7505+

9659
10889

—

CIR6NED RK611/ 06 sS viYe
CZRONE .P11
26-JUN-80 10:48

5673+
7605

5556+
6151+
8702+
9384
6164+
10448
9514
8930

10887

7425+

10332+
9385

10559+
9633

9456

10331«

10560+

9496
10273
10763+

9668
10277+
10764

9673
10290+
10789

9678
10308+
10795«

9683
10318+
10801

9798
10344
10805

9967+
10348+
10832

10114+
10370+
10850

5574+
8782+
10888
5564
8180+
5823+
8964

5582+
8791+

5642
8792

5661
8798+

5663+
8808+

5668+
8809

5996+
8881

8087+
9374

5569+
8181
5908+
9001

5631
8699+
5997+
10784

5670
8778+
6000+

5671
8880
6122+

5995+
8934+
6125+

6792+

9563

9702

5318

5390

7073

77064

7884

9893

10707

9391
10749
9483
10250+
10739+
10937
5568+
8698+
10786
5563+
8175
5819
8938+
10556+

10212
6770
10770
6505
9704

7443

9460+
9585

9465+
9591

8092+

5135

5241

5269

7495

8088

8776

7544

7617

8050

9796

10813

6563

6570

6575

6580

6783

6896

6901

6908

7642+
9486
9606+

8399
9488
9610

9503«
9616

8994

8997
9548+
9638

9075+
9553+
9641

9083+
9558+
9645+

9NN
9563+
9648+

8622

9508+
9631+

9681+

9661+

35684
10694
3171#

RKCS2 = 000010

10222
10852+
31754

RKDA = 000006
RKDB = 000024
RKDC = 000020
RKDCYL= 000020
RKDS = 000012
RKECPS= 000030
RKECPT= 000032
RKER = 000014
RKMR1 = 000026
RKMR2 = 000034
RKMR3 = 000036
RKPAT = 000032
RKPOS = 000030
RKPRI
003042
RKPRTY 007405
RKVADR 007362
RKVEC
003040
RKWC =
2
RLS
= 000010
RNDADR 035634
RNDLNG= 016514
RNDSHT= 002734

31744
31814
31794
31804
31764
31864
31884
31774
31824
31834
31840
31874
31854
35704
42864
42824
35694
31724
3249#
6134
L2264
42254

10889+

RWUNRDY
R.ABNL
R.CONT

012610
052514
052540

5169
3738
8096
46120
9973
10035

R.NORM
SAVPAR

052526
003176

10m
36914

SAVPRS 005552
SAVREG= 104407

10485

37304
7018

8794
8248

9710+

9734

9438

8398

9076

9736+

8459

9158

9298

9618

9750

9781

9961

10030

9623

10053

10769

10105
10808+

10163
10820+

10213+
10822

10507

10738+

10804+

10815+«

10865+

10888+
9621

10187

10188

10189

9593

9594+
10453+
10915
10031

10454
10925
10191

9598

9619+
10478+
10940+
10449+

10558
9596

10744«
9597

10786+
9620

10743+
10511

10785+

10887+

10506

10560
10606+

10613+

oOown

017164
065636

9708

10750+

73N

10559

9700+

10561

4812+

22
28

6027
8703

126014

7203

7502

7512

8091

33
62
33

10843
10268

10341

10365

10610

10462

8155

8193

8216

8264

8331

10231
10592+

4835
4814
10784+

— eb b

RUNTST
RWBUF

5472

9694

SEQ 0261

NOWOOOO

RKCS1 = 000000

9686+

10783+

bu?buuu‘ - O~ b;nu—-

000010
046316
046334
000016
000004
007337
003036

- il

RESVEC=
RETANL
RETNML
RKASOF=
RKBA =
RKBADR
RKBAS

9741
5479
6013
36634
32094
6029
7057
8538
9417
21404
9436
5695
31784
31734
L278#

NONOOO O ~NOWVWVOO
=W NtDWN
- ONONVONO OO
0O N W
OO NN CONOWVNOD

REDBSF
041066
REFNEM 040716
REISSU 003137
RELEAS= 000140
REPSUP 043676
RESREG= 104410

MACY11 30A(1052)
26-JUN-B0 10:53 PAGE 264
CROSS REFERENCE TABLE == USER SYMBOLS

- CD OO0 GO
00O
— W
O WVNooWw
oSO~

CZR6NEDO RK611/06 3S ViY2
CZR6NE.P11
26=JUN-80 10:48

MACY11 30A(1052)
26-JUN-80 10:53 PAGE 265
CROSS REFERENCE TABLE == USER SYMBOLS

SAVWRD 003200
SAVXDP
=
SCLR
SCNDRV
SCOPER=
SCOPEN
057122
SCRACH 005534

9367

8595

8616
9429

6629+
7760+

6632

6744
7762

6746
8335+

6753+
8401

6552

6886

7596

10731

10741

6626+

6741

6754+

5370
5886

5932

5987

6070

76404

5652
9240

7791
9244

7899
9247

9250

9270

9275

7343+
11787«

7345

7347+

8290+

8305+

8361+

7136+

7152

11777+

6293

7640

7641

8491

11594

5477+

6351+

6774
6582

7375

7570

7645

9751

6291
8671

8591
9311

8878
9885

o
W~

8553
9193
6225+
72964

SEQ 0262
— oo
O

CZRENED RK611/06 35S ViY2
CZRONE .P11
26-JUN-80 10:48

8973

11895#

74234
4887
7750

SECNL1
010427
SECNL2 010457
= 000117
SEEK
SELDRV= 000101
SELECY
005524
SELP15 010645

10870

SERNM
SETPRM

SETTUP
SETUPM
SIZMEM
Skl
= 000002

7761+

6832+
8414+

7433+
8630

SOFTBS

SOR?7
SPACE1
SPACE2

SPACE3

SVAL
=
SVPRMS
SWR

11765

o
N
~

H»SNO
(=T 3 T N

7629

§~b°bfl

SUMHI1
SUMLO1

2238383g

s
SR1
SR2
=
SR
ST
STACK =
STALL
STALLS
STKLAT=
STPASS
STRCMD
SUBCLR=
SUBMOD
SUBVER

10466

000020
042242
000111
177572

R23I8S

SPACEG
SPACES
=
SPAR
SPDLSS=
SRHTBS
SRTSPL=
SRO
=

8114

11612

11635

8644

9832

8577+

CZR6NED RK611/06 S ViY2
CZR6NE .P11
26=JUN-80 10:48

MACY11 30A(1052)
26-JUN-80 10:53 PAGE 266
CROSS REFERENCE TABLE == USER SYMBOLS

SWREG
000176
SWRMSG 007425
sSWw0
= 000001
sw00 = 000001
SWC1
= 000002
sSw02 = 000004
sWw03 = 000010
Sw04 = 000020
SWw05 = 000040
sw0é = 000100
sw07 = 000200
Sw08 = 000400
Sw09 = 001000
= 000002
sWwl
W10 = 002000
= 004000
SWwil
swi2 = 010000
SW13 = 020000
SWwi4 = 040000
sW15 = 100000
sW2
= 000004
sW3
= 000010
= 000020
swé

4734
7107

= 000040
= 000100
swé
= 000200
sw?
= 0004
Sw8
= 001
w9
S.ACLO= 000100
S.BRHM= 000100
S.BRKE= 040000
S.CART= 000400
$.0CLO= 010000
$.018 = 002000
$.DOOR= 000200
S.DRA = 000040
S.DROT= 020000
S.DRY = 000200
$.DSC = 040000
S.FLT = 000200
S.FORM= 001000
S.FWD = 002000
S.HDFL= 000200
S.HDHM= 000040
S.1CYL= 000040
S.ILF = 000400

S.LIMD= 020000
S.LOAD= 010000
S.MHD = 000400
S.NMOv= 010000
S.0FF = 002000
S.PAR = 001000
S.PIP = 020000
S.PLO = 004000
S.REV = 004000
S.RTZ = 020000

22004
4289
2108#
2098+
20974
20964
20954
20948
20934
20924
20914
2090#
20894
2107#
20884
20874
20864
20854
20844
2083#
2106#
21054
2104#
2103#
21024
2101#
2100#
§0990
3374
33524
33740
33540
33440
33704
33534
33234
33454
33250
33324
33384
33274
33564
33674
33514
33364
33394

33734
33584
33684
33720
3328#
33404
33314
33710
33574
3359#

6321

6336

7104

74N
10140
10283

7558
10288

10305

10368

6749

6772

7619

10143
10151

10620
10346

2108
2107
2106
2105
2104
2103
2102
2101
2100
2099

9203

7106

7109+

SEQ 0263

CIR6NED RK611/06 SS ViY2
CIRONE.P11
26-JUN-80 10:48

5.5PLS=
$.SPOK=
S.TYPE=
S.UNLD=

010000
001000
000400
00000

33640
33614
33300
33430
33550
33260
33604

S.W =
$.WCLK=
S.WGAT=
S.WLE =
S.WRL =
$.XDOK=
$.XERR=
50
51
52
$3

000100
000040
000100
004000
004000
000020
001000
005670
005672
005674
005676

33240
33654
33664
33420
3320w
33508
33690
3799
38004
38014
38020

6791+

6792

6795

5122+

7675

7799

6799+

6800

OOV
S B
£ NN
— O 00
- MO ONI
NN
S NOOOWNS
O

5013
5130
5240
5492
63.

6789+

89904

8474
5118

11891#
4758

- O~ 00 00 00 NN
NN O
N INGD

43554
9314
21494
37184
21474
8171»
43974
5761
21420
4442
36484
37708
43294
9224
6111
5491
5534
5723
5800
5888
5989
42380
«6204
5489
5651
4753
4872

OO NN
B
S PNOWN—O
000

2161
36884
36874
4868
2148#

(o Yo XV IV LW 0 - 5
NNV
— O O 00
WP
O 00 — N
OOV ~NINLOO

TLSTHD 010143
TOPROC 046344
TPVEC =
TRACK
005520
TRAPVE=
4
TRKCHK 035716
TRKNLY 010471
TRNSFR 042132
TRTVEC= 000014
TSTORN 011051
TSTING 003120
TSTLST 005630
TSTMDS 007737
TSTMSG
334
TSTTYP
023564
1ST1
020010
1ST2
021136
TST3
021446
1STa
022006
1STS
022356
TST6
022662
TWOTOS= 002000
TYPAUT 012660
TYPBSF
041356
TYPDS = 104405
TYPE
= 104401

33460

O AN
S
WO
—= OOV
NN
NO N
00O
H 0000 &~

000014
003170
003166
014460

SEQ 0264

O WA
S B

TBITVE=
TCONHI
TCONLO
TELDRV
TKVEC =

00 NN
—

S.UNS = 040000

30A(1052)
26-JUN-80
10:53 PAGE 267
CROSS REFERENCE TABLE == USER SYMBOLS

ViAW

$.SECT= 000020
S.Sk1 = 002000
5.SPIN= 010000

MACY11

003010
003034
003012
003020
003016
003022
003024
003026

1.POS
T.WCR

003004

OONWNICD
N —
W

9144

OO 0000 NNNOO

NS ONON
= = NN

8632

9226

11889+

wWo QN‘: owvN

7851

—a

7846

7800

7795

b ud

10611

118884

OO0O0OO0Oo
wWVirosr ~N
vk o~
o0

b ad

10604

9272

bl
e

10597
10620

9252

7134

9659
5609

10200+
10450+
10770
10325

9249

003032
3030

WCE
= 040000
WCEFLG 003140

10171
10446
10769+
10242

9239

10304
10598

76154

WCDASW=

10165
106406
10615«
10228

8857

10330

UBMPRS 003143
UEXATT= 000010
= 000400
UFE
UNLOAD= 000107
UNLOD
011322
UNS
= 040000
UPE
= 020000
VERIFY 011323
VFHDSW= 000002
= 0g0100
A4
WAIT4R 033534

10163+
4
10405+
10608+

6845+

OO0
OOWV
OOWN—=

T.PAT

hel=l=l-2

T.DA
1.08
T.0C
1.DS
T.ER
T.MR1
T.MR2
T.MR3

10330

6665

~No

031+

10296

003002

T.CS2

10265

6655+

003006
003000

10259

6438

10178+

T.BA
1.CS1

7423+

6428+

034314
003014

SPONOW

TYPTST
T.ASOF

7380

5439+

7600

011425
104402
104404
104403
034430
034350

6855

11333

00
N=
oOr

TYPMOD
TYPOC =
TYPON =
TYPOS =
TYPPAT
TYPPRM

9275
11887#

8072
8854
9235

L
ele

016172
011466

9270
11595

8053
8848
9234

70 36
75 17
77 67
78 99
85 03
9 18
92 46
110 86

elelele)

TYPLST
TYPMAN

6023
6974
7478

—

017356
042760
003124

6621
6973
7477

TYPED
TYPERR
TYPFMT

SEQ 0265
=0 D000
N NNOO~

6532
68 21

=2 OO0 NNNNOO~
S MNOMNCD
O NWVNO O w
N VN N N~ 0D OO W o~
WWNS
O OO W wn

H 5
MACY11 30A(1052)
26=-JUN-80 10:53 PAGE 268
CROSS REFERENCE TABLE == USER SYMBOLS
O OOV
NNNNOO

CIRONED RK611/06 >S5 ViY2
CZR6NE .P11
26=JUN-80 10:48

6595
6971

7462
7723
7818

8052
8844
9233

7729
7843

10468

6610+

10062

5694+

10468

8789

6619

6766

6781

8804+

8806

8820+

8992+«

8996+

7735
7849

6733

7005
7487
7746
7883

9279

10618

CZIRONED RK611/06 3S ViYe

CIR6NE .P11

26-JUN-80 10:48

MACY11 30A(1052)

26=JUN-B0

8994

9662

9734

B265

8334

8390

9541
7843
56884
5760

10068

10234

5840

5599

6018

G234k
4399

WHDSW = 000001
WLE
= 004000
WORDSP 013262
WRCKHD 021102
WRDATA= 000123
WRHEAD= 000127
WRL
= 004000
WRTCHK= 000131
WRTGAT= 040000
WRTLOK 007520
WRTSEC 037562

W.DRV

003114

36724
32804
L6774
5600
32014
32034
32994
32044
33184
43024
5551

W.MILI
W.MIN
W.MTIM
W.SEC

003060
003066
003056
003062

10643+«
35974
36134
35964
36104

10692«
9957
10755
9955«
10692

10371«

10642+

W.TIME

005564

003100

W.WCk = 000200
W.WTCH 047132
W.8SEC 003064

XDPSAV

005542

XDP1
XDP2
XDP3
XDP4
XOVLAD
XXDPAD

032030
032076
032122
032102
003133
005540

XDPSVD

003134

37314

3644n

36194

4784

7298
7302
7311
7313

36594
37260

SCKSWR= seeeee |

11894

$CRTAG 001100
$CM1 = 000040

$CM2

000100

$CM3

= 000040

9958

36604

36474
L2604
2231
11711
11682
116804
11071
11515
22714
23784
226
22684

001310
055172

9962+

10702
9123
10155

XXDPCH 003117
XXDPME 007166
$APTHD 001000
SASTAT= teeeer |
057430
SATYC
057404
SATY1
057412
SATYS
057422
SATYL
SAUTOB 001134
001374
$SBASE
$BDADR 001122
$BODAT 001126

$BELL
SCHARC

7488
5555

34460
8732
3612#

37274

5
PAGE 269

CROSS REFERENCE TABLE == USER SYMBOLS

WCERR = 000100
Ww(2BIG 010503

WOSXFR

10:53

5729«

73044
730
73264
73194
5732«
7274«

SEQ 0266

8555

8597

8613

8893+

5935

6012

6163

8531

1079

6171

8178

8536

10787

10103+

10155«

10170+«

10183+

9964+

10076*

10104+

10154+

10169+

10763
99504
10350

10789
10768
10758

10795
10774

10821

4787+«

5733«

5561

10077+
10755+
10923

85204

10758+«

10779+«

10831+

10849+

8936

8964r

B965+

10197+

10245+«

10312«

10321«

10350«

10372+«

10182+«

10198+

10244+

10311+

10320«

10349+

6303
22964
23094

6304
22974
23104

6305
22984
23114

9957«
10691+

5730+

10778+

10830+

5806+

5807+

73178

7324

7355

5809+
7278+

5897+
7279+

7300+
7280+

5810+

10848+

5894+
5898+

5895+
7301

8489+

7308

7309

7335

4718
22924
23054

6288
22934
23064

6289
2294K
23074

6297
2295M
23084

8483
7307

4908
22374
11726
11684#
116814
11683#

23294
11088«

6565
11098+«

6917
11105

11502
11114+

11534
111194

22544
20B6N
22994

4701
2287
23004

4702
2288
23014

4710
22894
23024

4716
22904
23034

4717
22914
23044

22984
2296N 2297k
22954
2294M
22934
%g;g:
%33::
%338:
53;3:
%333’
23;;:
%3;5’
23114
23104
23094
23084
23074
23064
23054
23034 23044
23014 23024
22994 %%000
231\8#
2317
23164
23154
2314k
23134
23120

2284

2286

CZR6NED RK611/06 35S ViY2
CZR6NE .P11
26=JUN-80 10:48

$CMs = 000011
SCNTLG 056763
SCNTLU 056756
S$CORE
060060
$CPUOP 001346
SCRLF
001315
$CROUT
$DBLK
$0B2D0
$DB20
SDECVL
S$DEVCT
SDEVM
S$DOAGN
$OTBL
SENDAD
SENDCT
SENDMG
SENULL
SENV

SENVM
$EOP
SEOPCT
SERFLG
SERMAX
SERROR
SERRPC
SERRTB
SERTTL

060110
056432
055534
055414
055714
001330
001376
024016
056422
024
023754
024025
024022
001340

001341
023702
023746
001103
001115
056442
001116

001400
001112

SESCAP
SETABL
SETEND
SFATAL
SFFLG
SFILLC

001306
001340
001400
001322
057650
001156

SHINUM
SHIOCT
SICNT
SINTAG
SITEM8
SKTNEX
$KTOUT

054710
054610
001104
001135
001114
060052
060042

SFILLS 001155
$GDADR 001120
$GODAT 001124
$GET42 023776
SGTSWR= seeeee |
SHD
=
SHIBTS 001000

$kT11

SLF
SLFLG

SLONUM

057710
001316
057647

054712

23184
115724
11571#
11763
23524
23314
7772
9279
11790
11439
112664
7053
11268
23434
23798
6255
11442
2217
4716
6259
6262
2348F
23498
6072
4716+
22574
22634
4710
22644
23964
22614
2328#
23474
2243
23400
11680«
22824
22814
22654
22674
62634
11893
2018
22384

J 5
MACY11 30A(1052) 26-JUN-80 10:53 PAGE 270
CROSS REFERENCE TABLE == USER SYMBOLS

23194

SEQ 0267

23204

2321w

23224

23234

2324

23254

23264

23274

4905
8072
9293

5038
8099
11087

5185
8837
11122

5222
8844
11510

5659
8858
11534

6370
9223

6373
9233

6974
9235

7055
9243

7056
9246

7767
9256

8097

11225#

11066
4792

11512
4965

11689
6326

11713
7463

11068

11073

1169

5404+
11534
4750+
114964
11505+«

62548
11610
6306+

6258
11624
7663+

6303+
11649
11651

11651
11672«

11657+«
11677

11677

11506

11534

12321

11525

11527

11534

11671«

11711
11122

11720«

11728#

11036+
110064

110414

8455

8557

8567

8575

117904

4836
8012
9285

11797«
11473

7825
113144
5410
4964
6264
114774
62664
62574
62744
62734
6277

4739
62430
5260+
11497+«
4719«
6297
11504+
9214
11503+

4718+

23804
11717«
11683+
11091
11122

114810

%010
6245+
62704
11529
6303

11534
6305+

4781«
5285
22588
22724
22628
11764
11781

6347+
5365
11662+

8198
7090
11663

11023
7926
11665+«

11031
10993+
11676

9209
11789
117864

11506+

11514

11534

8603
23324
11721«
4782+

8624
11122
117274
6348+

8677
11534

8686

8949

9007

11762¢

11766+

11789+

8117

8142

8197

11022

11029

11035+

11042#

5749

5828

5917

7019«

7021

7310

8286

8357

8446

K 5
MACY11 30A(1052)
26=JUN-B0 10:53 PAGE 271
CROSS REFERENCE TABLE == USER SYMBOLS

4720«
4721+
7036
11803+«

6307«
5756+
11802+«
11310#

11597
5931+«
11809#

11655+
6308+

11669+
11524

11674
11614

2243

23384

4738

5531

5720

5797

11687

11722«

117264

11697+«

11700

58674

SEQ 0268

NON NI NN

& W A

“gubad&»omm

(=]

11703«

116764
11093

11122

11227
11369+«
11656
4738+

114124
112524
11374
11664
5407+

5504
11399«

11589+

56994

115984

11715

11719+

5701

5T79¢

5781

11377+«
116734
5483

11388+

114144

6251+

6252+

6260

6301
11588#
4839
7770
8141

115834

11591

4873
7893
8196

4934
7939
11018#

5021
11122

5067
11534

5126

7152«
9620

7197«
9655+

8389+«
12325

8390+
12333

8391

8429+

9656+
9649+
B662+
B661+
B669r

12325
9651
BG4t
B6O3
12328

B659+
B660r
B435+
8432+
B439+
8629+

9596+
9597+
B437+
B434r
B440r
12329

9621+
9622+
B43B+
B436+
B66B+
12333

wno
wwn

8430«
8431«
8433+
6198+
6199+
8368«

—_—

%) 2

S =2NNNOONW
R
=

11702+
11695

norno

—_
—

—

ccc

SrNoSR SFRS

N =2 NININ) =2 =PRI

L2
&» ONN= SNV

—b

NN Moo

NORLNININON
O NPONIND) = e e e ed QD YN =2 S =B NI N =2 =2 0D —
0O = O
WWINWVINWONWNO W
NN
NN MNINININCOCD
=200 &~ S~ WO W ~
~
N
— 0D (N 00
0D —

o~
O\I'V\U'U!—'g
OOV
O

NN
N NN = b s
WINWN

o ngnvc
NSO
SO
VIV
N-=00

WvW
o Wo
~N W ~N

oo o

838888 8888

SLPADR
SLPERR

83888828883323883388
8388888888
D i i e O e e e N N D D
D e
D i D e OO =D

CZR6NED RK611/06 sS ViY?
CZR6NE .P11
26-JUN-B0 10:48

AA
P

o lyS TSI NT NI N ST S T8
PO N N N N N N NN
WO
NOOVOOOO—-+0

SNOOSTNOOSTNOOON ST NOON SN

SEQ 0269

12321

D
D
D
D
D
D
D
D
b
—

b ANINNNINININN = NN
=N

[
—

L5
MACY11 30A(1052) 26-JUN-80 10:53 PAGE 272
CROSS REFERENCE TABLE == USER SYMBOLS

7191«
9746+
7195«
9869

8411+
9854+
7219+
9873«

8419
9874+
8406+
9893+

7201

8413

8423
9904+

9902+

9868+

8425+

8634+

8412+
9894+

8421
9895+

9886+

8427+

12325

9900

8642+
12332

4717
11497

4714

6305

8640+

8648

8654+

9177+

9903

12325

9896+

9899+

8635+

12332
8641+«
9901

8652

8656+

9856+

9857+

4720
11529

11539

11577

6294

6295
11633

11676

8426+

6249

8650

9902

11325#

2029

6069
114691
11647

SNV
-

AEPLNINLINININONINY =N =& -2 O
NN NN NN N WNN O WO NN

~N
»

733 33334

838388888

SREG17

SREG

8 88888888888838388888388 =

CZR6NED RKk611/706 sS VviYe
CZRONE
26=JUN-80 10:48

0
7

6r
9
5

11554

6248+

6562+

6069+
7675+

11668+

8488+

11633

11658+

11666+

6916+

6958+

6991+

11537

11558

—_———
e

CIR6NEO RK611/06 5SS ViY2
CZRONE .P11
26=JUN-B0 10:48

MACY11 30A(1052)

$TMPL
S$STMPS
$TMP6
$STMP7
$TN
=

001272
001274
001276
001300
00000

23224
23234
2324H
2325
%3880

9028+«

9056

STNPUR
$1PB
S$TPFLG
$TPS
STRAP_
S$TRAP2
STRP =
S$TRPAD
$TSTM
$STSTNM

055644
001152
001157
001150
060254
060276
12
060310
001004
001102

11273
22794
22834
2278#
4712
118754

2018
5867

11274
11111«
11060
11109

5491
58854

11869
22404
22564

118864

SOFILL 056213
S$4LOCAT= seeeee |
= 070671
.

11364+
11509
21944

SASTA= teeene |
= 001000
.$X
..HIGH 000232
..LOW
000230

10951

22324

4720
114814

11681
22274
22104
22094

S
PAGE 273

5502
5888

55314
5955

5534
59864

5683
5989

SEQ 0270

57974

11888#

118894

118904

118914

11892¢

11894

5423

6249+

6281+

7672

8494t

9225

11673

11879
11104
111200

11887
11109

11110

10416

10454

10768

10942

22164
36964

11891
11708
11097
1M117
11888
113704
11889
5457+«

11890

4790

11638#

9979

10214

10405

11368«
11635

11378

114134

22034
2333

22054
3677 i

2207#
369 L

2215
95#
237;

11585

11602¢

2198¢
22534

~NOo~

11892
114274
110604
11090
11115
11368#
11367
113634
2344n
22420
23514
23764
23774
11634
62654
3596

11864»

STYPBN= teeeee |
S$TYPDS 056216
STYPE
054714
STYPEC 055126
STYPEX 055174
$TYPOC 056014
STYPON 056030
$TYPOS 055770
001332
SUNIT
SUNITM 001010
1344
SWR
1370
SVECT
SVECT2 001372
SXTSTR 057164
$$GET4= 000000
$.5.5M= erveen |

6299

11886

11294»#
11122
11122
11122

11677

10:53

CROSS REFERENCE TABLE == USER SYMBOLS

118794

26-JUN-80

6273

6292

11676

22304

4705
113128

CZRONED RK611/06 SS ViY2
CZR6NE .P11
26-JUN=-80 10:48
BLEOPS
B4SCOP
CKEXIT
COMMEN
ENCCOM
ERROR

ESCAPE
GETPR]
GE TSWR
MSG
MULT
NEWTST
NEXTAD
NXTAD
NXTST
PARMBK
PARMDF
POP
PUSH
P.DRVR
REGDEF

REPORT
R.DRIV
R.QDRV

SCOPE
SETPRI
SETTRA
SETUP
SK1P
SLASH
SPACE
STARS

SWRSU
S.DRVE
TEST

TRMTRP
TYPBIN
TYPDEC
TYPNAM

62354
6244
116194 11633
28994
8724
w2151
1w
2151
20454
6032
8636
8637
9348
9352
9507
9512
9572
9577
9711
9713
w215
1w
21514
1
2151
5502#¢
5504
2151#
#
#2151
2898#
28974
28954
5534
1#
3480
1#
3386
1
21514
1%
2151
#3544
1#
3168
1w
14
"

N 5
MACY11 30A(1052)
26-JUN-80 10:53 PAGE 275
CROSS REFERENCE TABLE == MACRO NAMES

m
6187
8639
9356
9516
9587
9747

6201
8657
9358
9520
9600

6223
8670
9459
9523
9602

7157
8740
9464
9527
9612

7200
8795

9471
9531
9625

7220
9179

7442
9317

7465
9321

9481
9543
9657

8407
9328
9490
9547
9666

8408
9332
9492
9552
9670

5699

5701

57794

5781

58674

5869

59554

5957

60414

6043

5502

5699

5779

5867

5955

6041

5683
3512

5723

5800

5888

5989

6072

11037

11468

11723

11724

11849

11707

11829

5719

5796

5884

5985

6068

6244

11889
4700
5491

11890
6287

11891

11894

11895

11896

11897

2233
5883
7067
7285
7639
8023
8206
8696
8957
9192
9948
10953
11542

2249
5955
7097
7295
7652
8043
8215
8714
8960
9300
9982
10966
11606

2333
5984
7103
7359
7683
8047
8253
8723
8985
9310
10022
11009
11609

2336
6041
7114
7367
7704
8078
8262
8748
8989
9361
10385
11045
11621

4848
6067
7123
7386
7781
8082
8322
8750
9015
9419
10402
11125
11679

11018

11427

11684

11686

9479
9539
9640

8428
9340
9498
9562
9680

8441
9344
9502
9567
9685

4856
6237
7143
7391
7789
8104
8330
8769
9025
9427
10420
11135
11736

4995
6942
7145
7406
7806
8110
8464
8772
9058
9774
10444
11153
11813

5009
6944
7162
7621
7815
8134
8473
8825
9064
9778
10491
11164
11858

215\
9908

5530
215
11888
21514
21518
215
2000
5529
6987
7184
7541
7840
8151
8519
8874
9107
08:9
10523
11255
1999¢

2006
5699
6996
7186
7593
7858
8154
8543
8877
9131
9851
10549
11317
21514

21510
5718
7003
7230
7595
7870
8165
858
8899
9133
9853
10568
1134
47228

2213
5779
7011
7235
7611
7955
8170
8583
8903
9163
9879
10590
11417
63094

2224
5795
7017
7268
7614
7969
8189
8590
8921
9169
9884
10648
11484

2226
5867
7062
72N
7635
8020
8192
8694
8926
9183
9917
10675
11536

28964

5502

5699

5779

5867

5955

6041

2151
21510
2151

6260

118794
1%
1w
1w

9473
9535
9627

8410
9336
9494
9557
9675

11758

20464
.
1#
118794
0
1w
1w
21514
1#
5502
6979
7164
7525
7831
8140
8514
8830
9091
9817
10504
11216
14

SEQ 0271

3320

CIR6NED RK611/06 S ViY2
CZRONE .P11
26-JUN-80 10:48
TYPNUM
TYPOCS
TYPOCT
TYPTXT
SDECBN

SOCTBN

10951

22474
gg?g

SSCMTM
$SESCA
SSNEWT
$SSET
SSSETM
$$SKIP
-EQUAT
-HEADE
XTI
.SETUP
.SWRHI
LSWRLO
LSACTY
.SAPTB
SAPTH
-SAPTY
+SASTA
.SCATC
SCMTA
.$0820
.$0B20
.S01V
. SEOP
.SERRO
+SERRT
+SMULT
. SPOVE
. SRAND
. SRDDE
. SRDOC
-SREAD
.SR2AZ
.$SAVE
.$5820
.$5820
.$5C0P
.$S12E
.$SUPR
.STRAP
.STYPB

22474
2318
2151#
W
w2151
118794 11888
63254
47384
1w
2151
w1999
1w
1999%
1w
19994
1"
19994
1%
19994
19994
20304
w1999
2334k
1w
w1999
1999%
1w
"
1w
1999%
1999%
1w
1%
1999%
1999%
1%
"
1w
1999%
1%
1999%
"
1L
1999
1w
1999%
1w
"
"
19994
W
"
14
1999
1
"
1
1999%
19994
1w
1
1999%
14
1999#
1L

.$40CA
1170

SEQ 0272

w2151
1w
215w
w2151
w
215w
"

SSCMRE

.S$TYPD
.STYPE
.$TYPO

B 6
MACY11 30A(1052)
26-JUN-B0 10:53 PAGE 276
CROSS REFERENCE TABLE == MACRO NAMES

14
14
14

1L
”

2286
%g?g

19994
19994
1999#

2287
gg?g

2288
2303

2289
2304

2290
2305

22N
2306

2292
2307

2293
2308

2294
2309

2319

2320

2321

2322

2323

2324

2325

2326

5502
11889

5699
11890

5779
11891

5867
11894

5955
11895

6041
11896

11897

5N
2041
2009
2151
4683
2018
2031
2211
2222
11677
2192
2247
11253
11214

6235

11482

11007

11534
11811

11619
11734
11315
11856

11415
11043
11338

2032

2295
2310

2296
23N

2297
2312

2298
2313

2299
2314