Digital PDFs

AC-9140D-MC

March 1978

281 pages

Original

15MB

view download

OCR Version

13MB

view download

Document:	CZR6ND0 RK611-RK06 SUBSYSTEM VERIFICATION 2 AH-9142D-MC MAR 1978 bw
Order Number:	AC-9140D-MC
Revision:	000
Pages:	281
Original Filename:	CZR6ND0__RK611-RK06__SUBSYSTEM_VERIFICATION_2__AH-9142D-MC__MAR_1978_bw.pdf

OCR Text

RK611/RK06

imenss

rere SRR

FICHE1 OF2

MADE IN USA

R K6 1 1 /R K06

::uz!;v;:gasnmcucouz

::;::2::;75_73

MAR 1l

BO1
SDA$CBRENBSEBA
CZREND.P11

2
3

PAGE 2

10-JAN-78

goo1co00

10:05

780223

POP1B8E@18001

CZRENDO RKB11-/06 SS VERIF 2

.REM 3

5
b

IDENTIFICATION

12
13

PRODUCT CODE:

AC-9140D-MC

PRODUCT NAME:

CZR&NDO RK&11/06 SS VERIF 2

DATE:

FEB 1978

MAINTAINER:

DIRGNOSTIC GROUP

AUTHOR:

DAVE HOFFMAN

Se
26

THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE

WITHOUT

CORPORATION.
ODIGITAL EQUIPMENT CORPORATION ASSUMES NO
FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.

RESPONSIBILITY

AND

3]
32

THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE
AND _MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH

35
3%

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OR
RELIIBILITY OF ITSTM SOFTWARE ON EQUIPMENT THAT 1S NOT SUPPLIED BY

28
29
3

SHOULD

NOT

CONSTRUED

WOTICE

A COMMITMENT BY DIGITAL EQUIPMENT

LICENSE.

MRCY1l 30R(10S2)

10-

<ZREND0 Rkbll
<ZREND.P11

06 SS VERIF 2
16-JAN-78 10:05

MACY11l

30A(1052)

10-JAN-78

cOol

12:02

PAGE 3

ABSTRACT
HARDWARE REQUIREMENTS
R QU%REH NTS FOR SUBSTSTEM TESTS

REQUIREMENTS FOR HERD ALIGNMENT RID
PRELIMINARY PROGRAM REQUIREMENTS

GENERAL PROGRAM CONSIDERATIONS

N+

SYSMARC
XXDP
CHRIN MODE
ggHP MODE
T/RP
AUTOMRTIC MODE
DUMP MOOE

RAPT ETQBLESDEFINITIONS
MENT
MEMORY PARITY CHECK
BRD SECTORS
EXECUTION TIME
PROGRAM LORDING
STARTING PROCEDURE
STARTING RDDRESSES
SWITCH REGISTER OPTIONS USED

Of ERRTOR RCTION
PROGRAM ACTION

NLwne—

DESCRIPTION OF OPERATING PRRAMETERS
SELECTION OF OPERATING PARAMETERS
DRIVE SELECTION

WM
R -

(DSD.CD!.D(DSDQG)PSDSDSD.G)(D(D

NNTIN NN N YN
OO I LW~
O W

N OO N LLLLLLLLELLELELE W O UNUND -

TARBLE OF CONTENTS

TEST SELECTION
(L)
LIST TESTS

CHANGETESts,

(c»

INPUT Pnnnnefsns AND RUN TESTS, (I)

CONTROL Z ($2) FUNCTION
CONTROL C ($C) FUNCTION
PARAMETER LIST ALTERATION
TYPE LIST,
OPEN LIST.

(T)
(0)

RUN

(R)

SET INDIVIDURL PRRAMETER, (S)
TESTS,

SEJ J002

CZRENDO RKb11-06 SS VERIF 2

CZREND.PLL

10-JAN-78 10:0S

MACY11l

30AR(1052)

8:5:3:2

10-JAN- ’8

DOl

12:02

PAGE 4

SEQ 0003

MRCY1l 30AR(10S2)

10-JAN-78

12:02

PRARGE S

£L£L

gV
g

(CONT’D)

SPECIAL PARAMETER SPECIFICATIONS
PT - DATA PATTERN SELECT WORD
CS_- CONTROL SWITCH WORD

=X
D

z
R
D

N —4

DESCRIPTION OF TESTS
OFFSET-TO-FAILURE MEASUREMENT
TEST
MEMORY TECTS

—4
m
wu
—

TEST 2 - NPR/MEMORY WORD ADDRESSING TEST
NPR/MEMORY BLOCK QDDRESSING TEST
NPR/MEMORY DATA PATTERN TEST
UNIBUS CONTENTION TEST
MULTI-DRIVE INTERFERENCE TEST

ERROR REPORTING
COMMON ERRORS
ERROR HANDL ING
ERROR PRINTOUT EXAMPLES

POTOPIN
> 0 b pe

wWhrnn
Lwhuu—0

SEG 0004

DATA PATTERNS

w0 UI'UD-.D

(DD DD OO OD

TABLE OF CONTENTS

B e e e
OO
O

s ot et Pt Pt et Pt et Pt Pt P

P Bt Pt P Pt Pt Pt Pt Bt e

LLLLLLL
£ LIWWWWWWWLWIWGL UM MU PU MDA
NN P 9= 3 ot pss ps 3 s Bt e e 00000090 00
ONCNLWN--OVONONLWU—-0O OONCN LW~ ODONCNLWN—-O0ONONLEW n)»-

Pt s et Pt Pt Pt Pt Pt et Bt Bt Bt (ot Bt Pt B Pt ot Pt Pt o Pt Pt e Pt Pt

10-JAN-78 10:0S

P Pt Pt Bt Pt Pt s P Bt Bt e e
Pt ot Pt et et Bt et Bt st Bt B e

CZRENDO RKB11-06 SS VERIF 2

CZR6ND.P11

EOL

RKO6-07 HERD AL IGNMENT RID
HARDWARE REQUIREMENTS
OPERATIONAL MODES
MANUAL SELECT MODE
MANUAL SELECT AL IGNMENT
MANUAL SELECT VERIFY
MANUAL SELECT EXERCISE
AUTO SELECT MODE
AUTO SELECT AL IGNMENT

AL IGNMENT QIEEggégEHESSRGES

APPENDIX A

SAMPLE ADDRESS 200 DEFRULT RUN

APPENDIX B

SAMPLE ADDRESS 204 RUN

APPENDIX C

SAMPLE MANUAL MODE HERD ALIGNMENT AID RUN

APPENDIX D

sAMPLE ARUTO MODE HEAD ALIGNMENT ARID RUN

C‘

RENDO RKE11-06 SS VERIF 2
n U U MUY 0= 50 s e 9t Do 9=t 5t Pt st Pt Bt Bt it nt et ot Bt B 4 et Pt Pt Pt ot Pt Pt Poret Pt Dot Pt s ot Pt Pt Pt Pt P Pt e Pt Pt P Pront Pt Pt P P Pt P P Pt
=]w) OO0V
DD OO WO LMD
MIMATCIM I NNNNINNNINOC
OO
£

WOV LWL 0V NV LW OV NN
L WO 0D ‘nggsnggg‘sgm?mmggsfi

CSRENG.P11.

10-JAN-78 10:05

MARCY11 30A(1052)

10-JAN-78

FOl

12:02

PRGE &

SEG 000S

ARBSTRACT

1.0

THIS PROGRAM PERFORMS PART 2 OF THE RKb11/RKO6-RKO7? SUBSYSTEM
VERIFICATION
TESTS,
WHICH
PROVIDE A FUNCTIONAL SHAKEDOWN OF THE ENTIRE SUBSYSTEM

INCLUBING THE UNIBUS INTERFACE AND ACCESS TO MAIN MEMORY.
IN

PART

EMPLOYS

THE TESTING

WORST-CASE SIT''~~ICNS INVOLVING HERD OFFSETTING

MEMORY ADDRESSING AND DATA

TRANS eR,

UNIJUS

CYCLE

_CONTENTION,

MULTIPLE DRIVE OPERATIONS. AD..TIONALLY, AN RKO6-07 HEAD ALIGAMENT RID
IS PROVIDED TO FARCILITATE ON-LINE ALIGNMENY OF DRIVE HERDS.
WITHIN THE VARIOUS SUBSYSTEM TESTS,

LOOPS

AND

OPERARTOR

SEE£NNNG OF TESTING,

SPECIFICATION

SMPHRSIS IS GIVEN TO USEFUL

~OF TEST PARAMETER VALUES.

THE FOLLOWING OP1IONS MAY

SCOPE

AT THE

SPECIFIED

ARE

PROVIDED,

FOR

THE

RK611 REGISTER ADDRESS
RKO6-07 VECTOR_RDDRESS
RKO6-07 PRIORITY LEVEL
)_TO BE TESTED
TO _BE RUN

F_TEST

ITERATIONS

DISK RDDRESS ON TRANSFERS
TERNS USED

STALL TIME BETWEEN OPERATIONS

IN RDDITION,

STANDARD SWITCH REGISTER

OPTIONS

VARIETY OF PROGRAM LOOPING, RUNNING, AND REPORTING MODES.

THE REPORT WILL INCLUDE R TEST
ERRORS WILL BE REPORTED RS THEY OCCUR.
NUMBER AND DESCRIPTION, CURRENT AND PREVIOUS OPERATIONS, GOOD AND BRD

TEST DATA, AND APPLICABLE DEVICE REGISTER CONTENTS.

2.0

HARDWARE REQUIREMENTS

2.1

REQUIREMENTS FOR SUBSYSTEM TESTS

THE FOLLOWING HRRDWARE IS REQUIRED TO RUN

VERIFICATION TESTS:

POP-11,/04, (0S5, 10 MFG.

16 K MEMORY

PART

THE

SUBSYSTEM

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

CONSOLE TELETYPE
RKO6-07 UNI3US CONTROLLER (RKE11)
1 TO 8 RKO6-/07 DRIVES

1 TO 8 RKO&/07 DISK CARTRIDGES (FORMATTED IN 20 OR 22 SECTOR FORMAT)

2.2

REQUIREMENTS FOR HERD ALIGNMENT RID

CZRENDO RK611-06 SS VERIF @2
CZREND.P11
10-JAN- 14 8 10:0S
-

MACY1l

30R(10S2)

GOl

[0-JAN-78

12:02

PAGE

SEQ 0006

oD
DNn
1O N 0= 0=t bt 4 Pt hs s s a2 O O (@)
— OV NCNLWN—-0O
VD ~N

20s
€06

222

ADDITIONAL HARDWARE

IS REQUIRED BY THE RKO& HERD RLIGNMENT RID:

RKO6 FIELD TEST BOX

(OR ALIGNMENT SECTION THEREOF)

RKOB RLIGNMENT CRRTRIDGE
RKO®& HERD ALIGNMENT TOOL

3.0

PRELIMINARY PROGRAM REQUIREMENTS

BEFORE

RUNNING

THE

SUBSYSTEM

VERIFICATION _ PROGRAM

THe

RKbll

CONTROLLER DIAGNOSTIC (MAINDEC-11-CZRBA THRU CZRBE AND (ZREK) AND RKO6

DRIVE DIAGNOSTIC
RESOLVE BRSIC,

(MAINDEC-11-CZR6H THRU CZR6J) SHOULD FIRST BE RUN,

SOLID HARDWARE FRULTS.

4.0

GENERAL PROGRAM CONSIDERATIONS

4.1

SYSMARC

ggéagEEOGRQM USES PORTIONS

4.2

THE

SYSMAC

DIAGNOSTIC

SYSTEM

MACRO

XXDP

THIS PROGRAM MAY BE LOADED UNDER XXDP.
SUBSYSTEM TESTS 1-6 MAY BE RUN
égDECHflIN
OR DUMP MODE, BUT THE ALIGNMENT AID MAY ONLY BE RUN IN DUMP

4.2.1

CHRIN MODE

THIS PROGRAM

UNDER XXDP.

IS DESI G

_THUS,

0 BE RUN_IN THE DEFAULT
MODE
WHEN
CHRINED
DIALOGUE IS BYPASSED,
AND RKOE& UNIBUS ADDRESS
T

AND INTERRUPT vecfoa

DEFAULTED TO

4.2.2

THE PROGRAM

SCRATCH

VALUES.

ALL

DRIVES
IF THE

DUMP MODE

PARAMETERS.
MEDIUM,

STANDARD

IESTED WITH THE EXCEPTION OF DRIVE 0O,

PRESENT AND RERDY WI L
RKOb CONTAINS THE XX D

CAN

DRIVE

RUN

MAY

DUMP

THE OPERATOR MUST REPLACE

MODE,

WITH

TESTED, 'BUT
THE

XXDP

WITHOUT

DEFAULT

IF IT CONTRINS THE XXDP

PACK

WITH

FORMATTED

PACK PRIOR 710 TESTING (OR AN ALIGNMENT CARTRIDGE IF ALIGNMENT

IS TO BE DONE ON DRIVE 0).

R MESSAGE WILL INFORM

THE

OPERATOR

WHEN

CZR6NDO RKE11-06 SS VERIF 2
CZREND.P11
10-JAN-78 10:0S

MACY1l 30A(10S2)

10-JAN-78

12:02

PAGE B

SEQ 0007

&od

THIS IS NECESSARY.

Sgfi

4.3 ACT/ARPT

270

THE PROGRAM IS COMPRTISB& gé H ACT/APT CONVENTIONS.

A% olEY BEROKMAM

27k

4.3.1

278

ARAUTOMATIC MODE

THE PROGRAM PROVIDES FOR AUTOMATIC APT/ACT OPERATION.

279

PARAMETERS

4.3.2

280

286

OR DUMP MODE, AND THE HE

IN DUMP MODE, PARAMETERS MAY BE INPUT,

DEFAULTED,

4.3.3

293
294

THE FOLLOWING DEFINITIONS ARE VALID FOR SPECIFYING APT
TABLE (ETABLE) ENTRIES, VIR THE APT UTILITY PROGRAM :
1.

SOFTWARE ENVIRONMENT

300

ENVIRONHENT MODE BYTE
BIT
ETRBLE DOES SIZING
PROGRAM DOES SIZING
Waawnau

BIT S5

307

BITS 4-0

309

SWITCH 1

311

SWITCH

OO0

BIT &

308

gig

SUBSYSTEM

ENVIRONMENTAL

=] IF APT SCRIPT MODE
=0 IF STANDALONE MODE

|V
O
4

303

314

AND

APT ETABLE DEFINITIONS

)

312
313

MODE

DUMP MODE

291

310

THIS

AND READY RARE TESTED.

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

308

REVERT TO DEFRULT VALUES, AND ALL DRIVES WHICH ARE PRESEN?Y

287

29?7
298

BBgl?EEHEN¥E2}8

8
# gssgflcs
TO APT

SUPPRESS CONbOLE OUTPUT

ALLOW CONSOLE OUTPUT
NOT USED

(SOFTWARE SWITCH REGISTER)

IF _ENVIRONMENT MODE BIT 7 (SIZING BIT)

SWITCH REGISTER.

IF SCRIPT MODE

WILL

IS SET
TO 1,

THE

SOF TWARE

USED, INSTERD OF THE HARDNRRE CONSOLE

REGARDLESS OF WHICH ONE
IS
DEFINED IN SECTION
6.2 (SWITCH REGISTER OPTIONS)
MAY ALL
USED BITS
WHEN
RUNNING IN STANDALONE MODE.

éETQ$8 BCRIPT MODE, HOWEVER, BIT 14 (LOOP ON TEST) MUST ALWAYS BE

10-JAN-78

12:02

SEQ 0008

PRGE 9

SWITCH 2
(USER SWITCH REGISTER,
NOT USED

MEMORY TYPES 1-4 AND MRX MEMORY RADDRESSES
NOT USED

6. INTERRUPT VECTOR 1
USED WHEN ENVIRONMENT MODE BIT 7
7.

BUS PRIORITY

INTERRUPT VECTOR 2

BUS PRIORITY 2

USED WHEN ENVIRONMENT MODE BIT 7

DEFAULT = 210

DEFAULT

NOT USED

1C. BASE RADDRESS
USED WHEN ENVIRONMENT MODE BIT 7
11.

MACY1l 30A(1052)

cZRBENDO Rx611-06 SS VERIF 2
10-JAN-78 10:0S
CZRENG.PLIL

101

177440

DEVICE MAP

USED WHEN ENVIRONMENT MODE BIT 7 = 1.
EACH BIT SET TO 1
0-7 WILL SELECT THE CORRESPONDING DRIVE TO BE TESTED.

BITS

BITS 8-15 ARE NOT USED.

4.4

DURL-RCCESS

THIS PROGRAM DOES NOT UTILIZE DUAL-ACCESS.
FOR THE PURPOSES
OF
ALL
TESTS
(1-6)
AND
THE
HEARD ALIGNMENT AID (SECTION 11),
THE OPERARTOR

MUST GUARANTEE THAT THERE IS NO INTERFERENCE FROM THE UNUSED PORT.

_IF

FARILURES ARE ENCOUNTERED
IN TESTS 1-6 DUE TO INTERFERENCE FROM THE
SEHESNPQSE'T22$SOPERQTOR IS ADVISED TO SWITCH THAT PORT
OFF-LINE
AND

4.5

MEMORY MANAGEMENT

THIS PROGRAM SUPPORTS MEMORY MANAGEMENT OPTIONS KT11C.D AND

FOR_

THE PURPOSES OF TESTS 2-4 ONLY.

PDP11-/70

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
IN ALL OTHER TESTS, AND DURING THE USE OF THE HEAD ALIGNMENT
ENABLED.

ARID, MEMORY MANAGEMENT IS DISABLED.
4.6

MEMORY PARITY CHECK

IF THE MEMORY PARITY CHECK OPTION IS

AVAILABLE

THE

SYSTEM,

ALL

CZRENDO RK&11-06 SS VERIF 2
CZREND.P11
10-JAN-78 10:0S

MACY11l

30A(10S2)

10-JRAN-78

JO1

12:02

PAGE 10

SEQ 0003

TESTING
IS
DONE
WITH
PARITY
CHECK
ENRBLED.
PARITY
REPORTED,
AND TESTING xs ABORTED,
UNLESS THE BYTE LABELED

PREVIOUSLY LORDED WITHA NON-ZERO VALUE.
4.7

ERRORS
MEMABT

ARE
WAS

BRD SECTORS

ACCORDING TO A CONTROL SWITCH OPTION (SEE_SECTION 8.2.4.2
)
THE
BRD
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
IF
_THEY
OCCUR
ON
SECTORS DESIGNRTED RS BARD, (BY EITHER FARCTORY OR

SOFTWARE)
.

4.8

EXECUTION TIME

EXECUTION TIME IS DEPENDENT UPON PARAMETERS
INPUT BY THE OPERATOR
(SUCH RS STALL TIME OR ITERATION COUNT),
AND TO
A GREAT DEGREE upon

THE AMOUNT OF MEMORY. HOUEVER THE “AVERAGE TIME"” REQUIRED TO RUN
QUICK VERIFICATION (FIRST PASS) IS 2 MINUTES (FOR R_B4K SYSTEM).

suaszoucn7 PASS NITH PARAMETERS DEFQULTED REQUIRES 3 MINUTES PER onrvs
(ON
R BY4-K SYSTEM

NOTE:

5.0

TIMES ARE RPPROX DOUBLED FOR RKO7 TESTING.

PROGRAM LORDING

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

P o B P o
¥
¥ o i
¥ o
NN'—'—'—O—HD—’-‘H'—’—
—-OWwoNCNLWN—0O

FROM ANY MEDIAR SUPPORTED BY XXDP.

6.0

STARTING PROCEDURE

6.1

STRARTING RDDRESSES

200 NORMAL STRARTING RDDRESS OF TESTS 1-6 (PARAMETERS DEFAULTED)
INTERRUPT
AND
204 SELECT OPERATING PARAMETERS, RKO&/U? UNIBUS ADDR.
VECTOR FOR TESTS

1-6

224 HEAD ALIGNMENT RID START ADDRESS

Yee

NOTE

FOR
HEAD
INFORMATION

THE SECTIONS

ALIGNMENT ~ AID
OPERATING
SKIP TO SECTION 11.
PLEASE
WHICH

IMMEDIATELY

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

CZRENDO RKG&11/06 SS VERIF 2

CZREND. P11

10-JAN-78 10:0S

MACY!11 30A(1052)

10-JAN-78

KOl

12:02

PAGE 11

SEQ 3010

429

3
:gg

6.2

434
435

THIS PROGRAM IS ossxcneo TO ALLOW
THE
USE
OF
THE
HARDWARE
SWITCH
REGISTER
IF PRESENT,
OR THE svsnnc
-SUPPORTED SOF TWARE SWITCH REGISTER

437

CASE

436

438

439

SWITCH REGISTER OPTIONS USED

(IF HARDWARE SWR IS NOT PRESENT OR IS SET TO

441

443

itn
445
4Y4E
Y47
448
449

BIT

OPTION

HALT ON ERROR

14
13
12

LOOP ON TEST
INHIBIT ERROR REPORTS
REPORT DESCRIPTION ONLY, ON ERRORS

08
06

APPLY RANDOM STALL BETWEEN OPERATIONS
REPORT ONE ERROR PER TRRNSFER IN TESTS 2-4

11
10
09

450
451

452

:ga

INHIBIT WRITES IN TEST

REPORT ALL SOF TWARE conPnRE ERRORS IN TESTS 2-4.

455

NOTE

458

FOR ADDITIONAL PROGRAM CONTROL

SEE

459

460

(CS),

461
462

7.0

466

OPTIONS

DESCRIPTION OF CONTROL SWITCH WORD
SECTION 8.2.4.2

OPERATOR ACTION

LOAD PROGRAM INTO MEMORY (SEE SECTION 5.0

46?7

LOAD A FORMATTED PACK ON EACH DRIVE TO BE ESTED.

470
471

4.
5.

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

:gg

:;g

agénc DRIVE (S) TO ONLINE STATE, WRITE ENABLED, AND LOCKED ON
PRESS START OR GIVE APPROPRIATE MONITOR START COMMAND.

8.0

PROGRAM ACTION

gg?

8.1

DESCRIPTION OF OPERATING PARAMETERS

482

AFTER THE PROGRAM IS STARTED,

478
479

483
484

EITHER

INHIBIT ITERATIONS
BELL ON ERROR
LOOP ON ERROR

329

474y
475
476
477

442

:gg

ONES).

ARE SET
T

440

463

ALL

THE FOLLONING OPTIONS ARE IMPLEMENTED WHEN THE APPROPRIATE BITS

IT TYPES ITS IDENTIFICATION AS

FOLLOWS:

“CZR6NDO RK11/RKOB-RKO7 SUBSYSTEM VERIFICATION:PART 2,
FOLLOWED BY:
“LAST PHYS MEM ADRS=XXXXXXXXTM. THEN, EITHER THE TESTS BEGIN EXECUTION

CZR6ENDO RKE11-/06 SS VERIF 2
10-JAN-78 10:05
CZR6END.PI11

MACY1l 30A(10S2)

NITH

10-JAN-78

DEFAULT

(SEE

_STARTING

PARAMETERS

LO1

12:02

PARAMETERS,

OR AN OPERQTOR INTERQCTIVE MODE IS ENTERED

ADDRESSES,

SECTION

THIS

"MAY BE LISTED OR ALTERED BY VQRIOUS MERNS

RRE TREATED RS OCTAL NUMBERS,
THE

SEQ 001!

PAGE 12

TESTES.

MODE

AND THE PARAMETER LIST IS

THE FOLLOWING IS THE LIST OF OFZRATING PARAMETERS,

OPERATING

ALL PARRMETERS
SHARED

AMONG

(WHICH APPLY TO THE

CURRENT SELECTION OF DRIVES AND TESTS). AFTEREACH, IS INOICQTED THE
VALID RANGE OF VALUES FOR THAT PARAMETER_(IN OCTAL ), "AND _ITS_ DEFA
VALUE.

ALL PRRAMETERS ARE ENTERED AS OCTAL NUMBERS, AND THE PQRRMETER

MNEMONICS SHOWN ARE THOSE USED BY THE PROGRAM.

st pe e e 4 1 10— = O O O

LWN—-OVONCNLW—-0O S~

wn i

S06

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

OVER

LAST CYLINDER ADDRESS IN TESTS WHICH ARE_CONE

OVER

FIRST TRACK ADDRESS IN TESTS
WHICH
RANGE OF TRACKS, FT=0-2, DEFRULT=0

OVER

LAST TRACK RADDRESS IN TESTS WHICH ARE DONE OVER R RANGE

FIRST SECTOR ADDRESS IN TESTS WHICH ARE DONE OVER
RANGE
OF
SECTORS
USED ON ANY DRIVE
WHICH HRS
S0=0-23, DEFRULT=0.
20-SECTOR FORMAT CARTRIDGE.

AR
A

LAST SECTOR RDDRESS IN TESTS
RANGE
OF
SECTORS
USED
ON

A
R

RANGE OF CYLINDERS,

OF TRACKS,

LT=0-2,

LC=0-632,

TURUTU MUY 0t

RRE

DONE

DEFAULT=2

WHICH
ARE
ANY
DRIVE

DONE
OVER
WHICH
HARS

S1=0-23, DEFAULT=23.

20-SECTOR FORMAT CARTRIDGE.

DEFRULT=g32

FIRST SECTOR_ADDRESS IN TESTS WHICH ARE DONE
OVER A
ANGE
OF
SECTORS,
USED
ON ANY DRIVE
WHICH HARS A

22-SECTOR FORMATTED CARTRIDGE, S2=0-25, DEFAULT=0.
S3

LAST SECTOR ADDORESS IN TESTS
RANGE

SECTORS,

USED

WHICH

22-SECTOR FORMATTED CARTRIDGE.

8.2

(SEE

CONTROL SWITCH WORD (SEE SECTION 8.2.4.2

DEFRULT=0

DONE

WHICH

OVER

HAS
A

S3=0-25, DEFAULT
= 25.

DATA PATTERN

DETRILS) PT=0-177777,

WORD

RARE

DRIVE

SELECT

ANY

SECTION

B8.2.4.1

FOR

DETARILS)

NUMBER OF UNIT STALL TIMES WITH WHICH TO STALL

(DELAY)

CS=0-000062,

DEFRULT=0

BETWEEN RKO& COMMANDS

SELECTION OF OPERATING PARARMETERS (RDDRESS 204 START)

CZRBENDO RKE11-06 SS VERIF 2
10-JAN-78 10:0°
CZRENG.P11

MACYLll

30A(10S2)

MO1

10-JAN-78

12:02

PAGE

SEG Q0012

DRIVE SELECTION

8.2.1

AFTER AN ADDRESS 204 START,

THE PROGRAM INDICATES INPUT MODE BY TYPING

THEN,

THE RKBI}OREGISTER ADORESS,

RKO6-07 BUS ADR = 177440
RK86-87 VE? 9?R =
210

NEW=(TYPE NEW VALUE HERE)
NENz(TYP
NEW VALUE HERE)

“PARAMETER

INPUT MOCE*TM.

ADDRESS AND RKO6 PRIORITY RRE

FOLLOWS:

RKO6-07 PRIORITY=

NEW=(TYPE

NEXT THE PROGRAM TYPES THE NUMBER(S)

FOLLOWED

OPENED

POSSIBLE

RKO6/07 VECTOR

MODYFICATION

NEW VALUE HERE)

OF THE CURRENT DRIVES UNDER TEST

BY R (%) ON THE NEXT LINE TO REQUEST NEW DRIVE NUMBERS.

EXAMPLE:

PRRAMETER

FOR

INPUT MOOE

DRIVE(S)=0,1,2,4,7

* (INPOT,

}F'ANY, GOES HERE)

T?fiposennggn T¥PES Tus NEW NgHBERgHéaEPSRRTEE gv Eo¢n25) sLes §c§>ERgR

?HESE DRIVES QRE ThEn EHEEQED FBB an?S STn}us EY QHE aagcfinfi HN ALL
[4

THOSE

)

TYPED

WHICH

ARE ACCEPTABLE WILL NOW BE LISTED AS BEFORE.

opsnnrgn MAY nnnungkv R?CONF&EURE THE DRIVE
NUMBERS,
AND THE
WILL
HECKED
AND

FINALLY TYPES JUST

<CR>.

ON INITIAL ENTRY FROM RDDRESS 204,

THOSE

ON_

THE

THE DRIVES WHICk ARE LISTED RRE ALL

SUBSYSTEM WHICH ARE ON-LINE,

RERDY,

WRITE-ENABLED, AND

LOADED WITH R CRRTRI??E OTgER THAN AN AL IGNAENT PACK.
DEFAULT

DORIVE SELECTION FOR

ADDRESS 200

TO THE DRIVE SELECTION ROUTINE

(VIR

<¢C>

START).
RS

8.2.2.5 AND 8.2.3.6) THE PROGRAM FIRST TYPES :
TO TEST ALL DRIVES TYPE “RTM
%

NEXT,

(CHARACTER GOES

HERE)

THE

nng TYPE
IN NEW DRIVE
TYPED, UNTIL THE OPERATOR

<CR>,

(THIS

IS_

THE

ON ALL OTHER ENTRIES

DESCRIBED

1IN

SECTIONS

ELSE <CR>

THE DRIVES ARE LISTED RS SHOWN RBOVE.

(A)

TYPED,

ALL

AVAILABLE DRIVES WILL BE LISTED, AND IF NOT, THE PREVIOUS SELECTIoN OF

DRIVES WILL BE LISTED.

TEST SELECTION

8.2.2

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

INSTRUCYIVE LINES ARE TYPED :
L
c

LIST TESTS
CHANGE TESTS
INPUT PARAMETERS AND RUN TESTS

TO THE DRIVE
THE FOLLOWING

CZRENDO RKB11-/06 SS VERIF 2
10-JAN-78 10:0S
CZREND.P11

MACY11 30A(10S2)

THEN,

10-JAN-78

NO1

12:02

PRARGE 14

THE FOLLOWING REQUEST IS MRDE

ENTER L,C,

SEQ 3013

OP I

% (CHRRACYER GGCES HERE)

THE OPERATOR TYPES THE DESIRED CHARACTER PLUS <CR>.

LIST TESTS,

SONCWN
LW -

Y
P
PP

g.2.2.1

IF (L)

FOLLOWS

IS TYPED,
:

TE?T

(L)

THE PROGRAM TYPES THE CURRENT DESIRED TEST

L(IST,

ITERQEIONS

17277722
400

4
3

4
ETC.

THE ITERATION NUMBER IS THE NUMBER OF TIMES TH: TEST WILL_
BE_
RUN_ ON
THIS PASS,
AND IT MUST BE BETWFEN O AND_177777.
JF IT IS ZERO, THAT

TEST WILL NOT BE RUN.

WITH DEFAULT ITERATIONS

ON THE FIRST TIME THROUGH, ALL TESTS ARE LISTED
(YET TO BE DETERMINED).

WHEN THE LIST IS COMPLETED,
OR

I"TM

AGRIN.

CHANGE TESTS,

8.2.2.2

IF (C)

IS TYPED,

THE PROGRAM RETURNS T0O TYPE :

“ENTER L,C,

(C)

_"TO DEFRULT TESTS TYPE D<CR>

THE PROGRAM THEN RASKS:

(CR>*.
tF 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 :
TEST

ITERATIONS

0 % CINPUT,

IF ANY,

GOES HERE)

THE OPERATOR THEN TYPES THE NEW VALUE PLUS <CR>,

UNCHARNGED.

(EXCLAMATION POINT),

ITERATION

OPENED,

8.2.2.3

IF (I)

TABLE

FOR

THE

OPERATOR

OR JUST <CR>

NUMBER

FOLLOWED

THE NUMBER JUST ENTERED WILL BE LOADED

ALL REMAINING TESTS.

THE PROGRAM RETURNS TO TYPE :

THE PROGRAM

ENTERS

T1THE

TO LEAVE

BY ¢!>

INTO

THE

AFTER ALL TESTS HAVE BEEN

*“ENTER L,C,

INPUT PARAMETERS AND RUN TESTS,

IS TYPED,

TYPES

OR I” RGARIN.

(I)

PARAMETER

LIST

ALTERATION

— .

CZRENDO RKB11-/06 SS VERIF 2
CZREND.P11
10-JAN-78 10:0S

MACY11 30A(1052)

10-JAN-78

12:02

-_——

PAuE 15

ROUTINE,

DESCRIBED IN
sscrxou 8.2.3,

8.2.2.4

CONTROL Z (tZ) FUNCTION

BE INPUY, AND TESTING BEGUN

SEQ 0014

IN WHICH OPERATING PARAMETERS MAY

IF THE OPERATOR WISHES TO EXIT AT ANY TIME

FROM

MODE

MODE,

RAND

RND

RETURN

PARAMETER

LIST,

RETURN TQO SELECT A NEW MODE (L,C, OR I), CONTROL Z (tZ) MAY BE TYPED.
CONTROL C

B8.2.2.5

(#C) FUNCTION

IF THE OPERARTOR WISHES TO TERMINATE L,C,

REQUEST NEW DRIVES AND TESTS, CONTROL’ ¢’ (#C) MAY BE tYPED
PARAMETER LIST ALTERATION

8.2.3

THE PROGRAM NEXT TYPES THE FOLLOWING INSTRUCTIVE LINES:
T = TYPE LIST

0 = OPEN LIST
S = SET INDIVIDUQL PARAM.

R = RUN ES S
T
ENTER

¥ (CHRRthEh coes HERE)

THE OPERATOR TYPES THE DESIRED CHARACTER PLUS <CR>.

TYPE LIST,

8.2.3.1

IF (T)

(T)

1S TYPED, THE PROGRAM TYPES

FOLLOWS:
FC

LC
ETC.

THE

CURRENT

XXXXXX
XXXXXX

WHEN THE LIST IS COMPLETED, THE PROGRAM RETURNS TO TYPE "ENTER
OR R"TM

RAGRIN.

8.2.3.2

OPEN LIST,

D<CR>,

ELSE_

T,0,S,

(0)

IF (0} IS TYPED THE PROGRAM THEN

TYPE

<CR>".

—

ASKS:
JUST

*“TO

<CR>

DEFRULT
IS

ALL

TYPED,

PRRRHETERS

THE

_PROGRRM

SEQUENTIALLY OPENS EACH OPERATING PARAMETER IN THE LIST FOR ALTERATION

CZRENDO RKB11-06 SS VERIF 2
CZREND.P11
10-JAN-78 10:05

MACY11 30AR(1052)

10-JAN-78

coe

12:02

PAGE

SEQ 001S

SN NN NN
[ Ve e o ey o ey e
OoONTNLWN—-O

708
709

(IN
THE
NEW LINE

ORDER SHOWN IN SECTION 8.1).
ERCH PRRAMETER IS OPENED AND A
IS TYPED,
GIVING THE PARAMETER
AND
ITS
CURRENT
VALUE
(IN

OCTAL), FOLLOWED BY (%) ON THE SAME LINE.
IF ANY,

I1C=3 # (INPUT,

FOR EXAMPLE:

GOES HERE)

THS OPERATOR THEN TYPES THE
NEW VR?UE PLUS A
<CR>
OR
JUST
<«CR>
TO
AFTER ALL PRARAMETERS HAVE BEEN OPENED
HAT PRARAMETER UNCHANGED.
LEAVE
FOR ALTERATION, THE PROGRAM RETURNS TO TYPE "ENTER T,0,S, OR R"TM RGRIN.

7el

B8.2.3.3

SET INDIVIDUAL PARAMETER,

IF (S) IS TYPED,

ggggng?é;s

FOR'

THE PROGRAM TYPES THE PROMPTER (>) ON THE NEXT

THE

EgTER 70,5,

(S)

OPERATOR

SET

THE

VALUE

OR R

(ENTER PARRMETER AND VALUE HERE)

THE OPERARTOR TYPES THE PARAMETER AND _ITS NEW VALUE FOLLOWED

AND

LINE

OF ANY INDIVIDUAL

THE

EXAMPLE:

PROGRAM

THE

PROMPTER

FS =

ETC.

IT =1

TO_TERMINRTE INDIVIDUAL SETTING MODE,

THE

OPERATOR

TYPES

CONTROL

(+Z), AND THE PROGRAM RETURNS TO TYPE “ENTER T,0, S, OR R" AGRIN.

8.2.3.4

RUN TESTS,

(R)

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

CURRENT PARAMETERS.

B8.2.3.5

<(CR>

(>) AGAIN AS IN THE FOLLOWING

FC = 600

GIVES

USING

ALL

THE

CONTROL Z (tZ) FUNCTION

IF THE OPERATOR WISHES TO EXIT AT ANY TIME FROM

(RUNNING

TESTS)

AND

RETURN

8.2.3.6

CONTROL C

(1C)

FUNCTION

CONTROL 2 (12) MAY BE TYPED.

SELECT

OR_R

MODE

New mMope i71,0,5, OR R),

CZRENDO RKB11-06 SS VERIF 2
10-JAN-78 10:0S
CZREND.PL1

MRCY11

10-JAN-78

30A(1052)

Da2

12:02

IF THE OPERATOR WISHES TO TERMINATET, O,

(R MODE),

SEQ 00!6

PRGE 17

MODE,

STOP

TEST

CONTROL C (1C) MAY BE TYPED AND’ THE PROGRRH
AN
(ON WILL

EXECUTION
NtN DRIVE SELECTION (SEE SECTION_ 8.2.1
TO REQUEST
RETURN
200 DEFAULT RUN, TYPING CONTROL C CAUSES THE PROGRQM TO HALT
ADDRESS

AFTER COMPLETING ANY DATA’ TRANSFER).
8.2.4

SPECIAL PARAMETER SPECIFICATIONS

B8.2.4.1

PT-DARTA PATTERN SELECT WORD

DIGITS), TO
THE OPERATOR SPECIFIES A WORD OF SIXTEEN BITS (6_ OCT. SECTION
9.5.1.
SIXTEEN OF THE PATTERNS, LISTED IN
SELECT UP_ T0O
PATTERN
A
OF
NO.
THE_
TO
PONDS
PT_CORRES
IN
SET
BIT
ANY
OF
NO.
THE
CHOSEN. IF THE HIGH BIT OF PT (BIT 15) IS SET, THEUSER WI WILL BE E ASKED

TO TYPE UP TO SIXTEEN DATA WORDS WHICH WILL BE " LORDED INTO THE

FOR PATTERN 15.

THE PROGRAM TYPES:

BUFFER

“SELECT USER DEFINED PRTTERN 15%

THE PROGRAM IN THE SAME
NEXT ERCH OF UP TO 16 WORDS ARE REQUESTEDRSBY ARE
OPENED FOR ALTERATION
PARAMETE
G
OPERATIN
WHICH THE
MANNER
(SEE SECT

8.2.3.2

WORD O = (OLD VALUE) % (NEW VALUE GOES HERE)
E?gD 1 = (OLD VALUE) * (NEw VALUE GOES HERE)

<CR>, OR JUST _<CR),
FOR EACH HOR? THE USER TYPES THE NEW VALUE PLUS WORDS
FOR PATTERN 15,

TO INPUT LESS THAN 16
(TO LEAVE IT UNCHANGED). (EXCLRHRT
ION POINT) AND THE PROGRAM_ WILL
(!)
TYPE
MAY
THE OPERRTOR
THE REST OF THE PATTERN 1S BUFFER WITH THE LAST WORD
FIL

SPECIFIED NEXT, THE PROGRAM WILL CONTINUE, IN THE
INPUT MODE (0 OR’S)

~NonILwn—0wo

s Pt Pt Pt Pt e pme e ) O

0D 0D 00 QD 00 00 O 0o (D 0

806
807

8.2.4.2

PROPER

CS- CONTROL SWITCH WORD

PARAMETER

(HARDWARE
IN RDDITION T0 THE OPTIONS PROVIDED BY THE SWITCH REGISTERD AMONG
THE
SPECIFIE
BE
MARY
(CS)
WORD
CONTROL SWITCH
OR_ SOFTW
G OPTIONS:

OPERRTING PRRAMETERS TO PROVIDE THE FOLLOWIN
BIT

05
04
o1

OPTION

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

CZRENDO RKB11-06 SS VERIF @
10-JAN-78 10:05
CZR6END.P11

MACY11

30R(1052)

10-JAN-78

EO2

12:02

PARGE

SEQ@ 0017

NOTE

OTHER BITS UNUSED

8.3

DRTA PATTERNS

THIS SECTION DESCRIBES THE DATA PRTTERNS
AVAILABLE
FOR
TESTS.
ERCH DATA
PATTERN
IS
COMPRISED OF 16 WORDS.

USE_IN
THE
PATTERNS ARE

REPEARTED AS NECESSRRY TO OBTAIN THE DESIRED WORD COUNT
ON
THE
WRITE
DRTA 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 B5,53b (DEC) WORDS.

DATA SPIRALING AND TRALK SWITCHING

IS THUS POSSIBLE DURING THE DRTR TESTS.

THE FOLLOWING IS THE LIST OF 16 SELECTABLE DRTR PATTERNS

WITH NOTARBLE FERTURES DESCRIBED:

(IN

OCTAL),

CZRENDO RKG611-/06 SS VERIF 2
CZReND.P11
10-JAN-78 10:05
g42
843
a4y

g4s
846
847
g:g

MRCY11 30R(1052)

10-JAN-78

FAGE 19

SEQ 0018

HIGH-LOW
FREQUENCY MIX

HIGH FREQUENCY
FHRSE MIX

LOW FREQUENCY
PHASE MIX

851

1777277

000000

854

052525

857
858
859
860

177777
177777
052525
052525

000000
000000
177777
177777

177252

000000

172765

000000

052525

Y
ROTATING
BOUNDARY PULSE

5
ROTATING
CELL PULSE

6
ALL
ZEROS

7
ALL
ONES

850

852
853

8SS
856

FO2

12:02

177777
177777

000000
000000

052525
052525

1777727
1727777

861
862

17277727
052525

864

177252

863
865

ggg

868

869
870
871
g;g

172765

177727

052525

3
MAX IMUM
PRECOHPENSQTION
HASE MIX

133333

052525
052525

066666
155555

125252
125252

133333
066666

125252

05252S
052525
125252
125252

1655585

066666
1555655
155555
133333

0n0000
1: 77727

052525
125252

1777727

125252

133333

125252

133333

17727727

00525

133333
133333
133333

133333

PRECOMPENSATION

875

121105

026455

000000

17277277

877

064221

045513

000000

1727772

879
880

055044
026422

151322
064551

000000
000000

1722777
177777

882

105504

055132

000000

884

021321

113226

886

044264

888

011055

874

876

878
881

883

885

887

889
8390

150442

132110

013211

g42642

110550

022132

104426
042213

113226

122645

132264

000000
000000

1777277

177727

000000

1777727

026455

000000

1772777

045513

000000

122645

151322

Co4551

132264
055132

000000
000000

000000

0000030
000000

177777

1777277
122777
17727277

17272777

177727

17727277
177777

CZRENDO RKE&11-06 SS VERIF 2

CZREND.P11

10-JAN-78

10:0S

831
832
893

894

MACY1l 30R(1052)

g83s

SHIFTED 1

897

OF 0’S

896

g
899

900
901
322
303
904
90S
206
307
308
309
910
311
S1ie
313
14

gig

917

10-JAN-78

IN FIELD

—===ssses

000001
00002
00004
000010
000020
000c40
000100
000200
000400
001000
002000
004000
010000
020000
040000

100000

SHIFTED O
IN FIELD
OF

1’S

ecsceossss |

177776
177775
177773
177767
177757
177737
177627
177577
127377
176777
1757?27
173777
167777
187777
137777

Q77777

918
919

12
SHIFTING

322
923
24
92S
926

000001
000003
000007
000017
000037

072307
135143
156461
167230
073514

928

000177

016723

936
937

0777?77
1772777

151453
164616

gg?

927

929
930
931
932
933
934
935

0'S AND 1°'S

000077

000377
000777
001777
003777
007777
017777
037777

GO2

12:02

13
COMPOSITE

ROTATING

035646

107351
143564
061672
030735
114356
046167
123073

PAGE 20

SEG 0019

ALTERNATING

Soooosoooss

soooooosses

0525eS
0s2
052525
052525
052525
0se
0525eS
05252%
052525
0se
052525
052525
0s2
052525
052525

125252
125252
125252
125252
125252
125252
lesese
125252
125252
125252
125252
125252
125ese
125252
125252

052525

14
PSEUDO-

RANDOM

125252

15
USER-

DEFINED

CZRBENDO RK&11-06 SS VERIF 2
CZREND.P11
10-JAN-78 10:0S

MACY11l

30R(10S2)

10-JAN-78

HO2

12:02

9.0

DESCRIPTION OF TESTS

9.1

TEST |

PAGE 21

SEQ 3020

- OFFSET-TO-FRILURE MEARSUREMENT

IN THIS TEST
A REPEATED PATTERN D?E3D?(OCT)

IS NRITTEN INTO ALL

WORDS

8Ec735§ 8N no§3csn9 tYL?NDERQCQRE
THERYIIEREREITH 758b(05¥§ S??S
KNOWN RTTE
E
EACH
DESIRED SECTOR IS WRITE HECRED HITHTHEYINCRE
SING %DIVE THEN,
OFFSETS
UNTIL EITHER A "DATA TYPE"TM ERROR OCCURS, OR THE FULL RRNGE OF POSITIVE
OFFSETS HAVE BEEN APPLIED. THEN, THE SAME SECTOR IS WRITE CHECKED

WITH INCRERSING NEGATIVE HEAD OFFSETS, UNTIL FAILURE_ OR MAXIMUM
NEGATIVE OFFSET__IS RPPLIED.
THIS IS 'DONE_ FOR_ALL THE SECTORS
ORIGINALLY

WRITTEN,

IN_THE

FOLLONING

ORDER:

CYLINDERS FC RND LC'FOR TRACK
O, THEN FOR TRACK

SECTORS FS AND LS ON

FINALLY

FOR

RACK 2. THE OFFSET-TO-FRILURE RESULTS RRE REPORTED IN ORDER OF
INCRERSING TRACKS, RS FOLLOWS:

OFFSET-TO-FRILURE MERSUREMENTS:
TRACK
X
X
X

CYLN

SECT

XXX
XX
XXX
XX
XXX ETéx

-OFST

(UIN)
XXXX
XXXX
XXXX

-OFST

(UIN)
XXXX
XXXX
XXXX

NOTE

IN AN ADRS 200 DEFAULT RUN,

Taxs tes nND

9.2

DEFQULTS

LS DEFAULTS TO 12(0CT:,

FOR

NPR 7/ MRIN MEMORY TESTS

THIS GROUP OF TESTS

READ/WRITE

TRANSFERS

PROVIDED

WITH

DIAGNOSE MEMORY

SYSTEMS

EXERCISES

NPR

TRANSFER

ALL

MEMORY

ABOVE

THE

PROGRAM,

VIR

FAILURES

DURING

HERYY

NPR

ARCTIVIT

WITH

MEMORY

RLTHOUGH MEMORY MANAGEMENT

THE RKO6.

THE TESTS RRE DESIGfiED T0

MANAGEMENT (KT 11 C, D OR POP 11/?0)

IS NOT REQUIRED.
NOTE

THERE IS NO PROGRAM
RELOCATION
(EXCEPT
FOR
THE
XXDP
OR
ARABSOLUTE
LORDER, IF

CZRBENDO RKB11/06 SS VERIF 2
10-JAN-78 10:0S
CZREND.P11

MACY1l 30R(10S2)

10-JAN-78

102

12:02

SEG 0021

PAGE 22

PRESENT).
HENCE, MEMORY
IN
WHICH
THE
PROGRAM
RESIDES’
IS
NOT TESTED.
ALSO,
THE UNIBUS 1,0 RDDRESSES ARE NOT TESTED.
IF
IT
15 DESIRED
THAT
THE LORDER BE
SO THAT RDDITIONAL MEMORY MAY
DESTROYED,

LOCATION 170 (KILLDR:) MAY
BE TESTED,
MANUALLY BE SET TO A NON-ZERO VALUE.

—

e Pt

s Dot P

Pt et Bt

s Pt s ot P

Pt s e Pt Pt et

s Pt it Pt Pt Pt Pt Pt Pt Dot Pt Pt (it Bt ot Bt P

Pt ot

s e

o0 00000000 000000000000000 00000 00000000000
£L L£LL
L £ L WwWwWwWwWwwww
o
nmnMU
0t b e pe p e e = = D O O)
3o nLEwn =O0ONCN LW OVONCNLWNU—ODDO
NI LWN—=OD 0D

1006

[

ig48

THERE ARE 3 MEMORY TESTS PROVIDED.
TESTS 2 AND_3 ARE TESTS OF
MEMORY
ADDRESSING
CARPABILITY
DURING DISK NPR’S,
AND TEST 4 IS AN _NPR/MEMORY

DATA PATTERN TEST. DURING TESTING, MEMORY MANAGEMENT WILL BE ENRBLED
IF INSTALLED,
AND ALL OPERATIONS WILL BE PERFORMED IN KERNAL MODE
WITH ADDRESS RELOCATION BEING DONE THROUGH MANIPULATION OF KERNAL 1
PAGE ADDRESS REGISTERS.

TEST 2 - NPR/MEMORY WORD RDDRESSING TEST

9.2.1

STARTING AT THE FIRST ADORESS OF THE NEXT 1 K MEMORY BLOCK BEYOND

THE

(STARTING WITH 1) INTO ERCH OF UP

THE

END

THE_

READ/WRITE

DATA

BUFFER

(RWBUF)

64K

WORDS

WRITE UNIQUE NUMBERS

(DEPENDING

AMOUNT OF PHYSICAL MEMORY).
THESE NUMBERS REFLECT UNIQUE RADDRESSES
WITHIN THE 64K BLOCK.
NEXT WRITE THE 64K WORDS (MARX) ONTO DISK AT FC

FS,

FT (SCALED,

IF NECESSARY,

TO AVOID PACK OVERFLOW).

_THEN ZERO THE

ENYIRE 4K BLOCK IN MEMORY, AND READ THE DATR 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,
RS MWELL AS THE GOOD AND BAD DRTA, FOR UP TO THE FIRST 10

(DECIMA.
) 'FAILING LOCATIONS.

TO
MEMORY
IS ADDITONAL
THERE
Ry MANARGEMENT IS PROVID Eg AND
IF _MEMORY
ING TEST FOR ERCH OF THE REMAINING BHK
PEAT
THE ABOVE ADORE

TEST

PHYS}CAL MEMORY BLOCKS.
9.2.2

TEST 3 - NPR/MEMORY BLOCK RDDRESSING TEST

%Es}gés TEST, MEMORY BLOCK ADDRESSING CAPABILITY DURING RKO& NPR’'S
THE TEST BEGINS BY WRITING A SINGLE NUMBER INTO ALL LOCATIONS OF

IS
EACH

MEMORY
BLOCK.

BLOCK OF UP TO 64K WORDS.
THIS NUMBER UNIQUELY DEFINES EACH
THEN WRITE EARCH BLOCK ONTO DISK AT ADDRESS FC, FS, FT (SCALED

FILE).

2ERO THE BLOCK IN MEMORY, AND THEN READ THE DATA BACK INTO THE

NECESSARY

PROPER

TO AVOID PACK OVERFLOW OR DESTRUCTION OF THE BAD SECTOR

PHYSICAL

RADDRESSES,

COMPARE THE CONTENTS OF ALL

DO’

THE

THIS

MEMORY

FOR

ALL

64K BLOCKS,

EXPECTED

AND THEN

VALUES.

TYPE

FAILURES AS DESCRIBED ABOVE FOR THE FIRST 10(DEC) FAILING LOCATIONS IN
EACH 64K MEMORY BLOCK.

CZRENDO RKE611-06 SS VERIF 2

CZR6ND.P11

Pt Pt P
Pt P

9.2.3

10-JAN-78

Joe

12:02

PAGE 23

SEQ 0022

TEST 4 - NPR/MEMORY DATR PRTTERN TEST

IN THIS TEST, ALL PHYSICAL MEMORY LOCATIONS ABOVE THE PROGRAM _(NOT
1S
INCLUDING UPPER UNIBUS DEVICE ADDRESSES) ARE EXERCISED WITH UP_TO _IN
DESCRIBED
PATTERNS
14
FIRST
THE
FROM
CHOSEN
AS
DATA PATTERNS,
THE DATA
PLUS PATTERN 1S (USER DEFINED PATTERN).
SECTION 8.3,
AND
HOWEVER,
Y,
SEPARATEL
CHOSEN
ARE
TEST
THIS
FOR
PATTERNS DESIRED
THEY DEFRULT TO PATTERNS 8, 9,

10, AND 11.

OF
MEMORY IS TESTED IN BLOCKS OF 64K, STARTING AT THE FIRST OFADDRESS
BYK
TO
UP
BLOCK
EACH
PROGRAM.
1HE
BEYOND
TRE NEXT 1K MEMORY BLOCK
LOADED WITH
FT,
FS,
IS LOADED WITH DATA, WRITTEN ONTO DISK AT FC,
OF THE DATA
EACH
FOR
OONE
IS
THIS
.
SERGS .~ AND READ BALK AND COMPARED
USER.
THE
BY
CHOSEN
PATTERN
OPTIONAL
AN
INCLUDING
CHOSEN,
PATTZANS
9.3

TEST S - UNIBUS CONTENTION TEST

THE PURPOSE OF THIS TEST IS TQ EXERCISE THE NPR CONTROL LOGIC WITHIN
THE CONTROLLER IN SUCH A MANNER THAT A CONTENTION FOR MEMORY CYCLES

ARISES BETWEEN THE PROCESSOR AND THE RKO6.

FIRST.

A WRITE POTA IS BEGUN ON CYLINDER FC,

OVERFLOW)

(=]
~N
[04]

ot Pt st Pt Pt Pt et it Pt Pt Pt Pt Pt Pt ot Pt Pt Pt Pt Pt Pt s Pt Pt Pt et et Pt Pt Pt Pt Pt Pt Pt Pt Pt et i Pt P

Pt Pt Pt Pt P

Pt Pt P

O 00000000000000
o oo oo oI
o NnILwWwh-DWwooNTN LW

1051

10-JAN-78 10:05

MACY1! 30R(10S2)

AT SECTOR B,

(SCALED

AVQID

_PACK

WITH THE BUS RDDRESS INCREMENT INHIBIT BIT SET
T)

T) OR_ 13000(0C
IN THE CONTROLLER. USING A WORD COUNT _OF 12000(0C
WITH THE FIRST
WRITTEN
IS
TRACK
ENTIRE
THE
FORMAT),
THE
ON
NG
(DEPENDI
WORD OF
FIRST
OR__THE
SELECTED)
WORD OF USER DEFINED PATTERN 1S (IF
IN
ENTERED
IS
LOOP
ION
INSTRUCT
AN
THEN,
DEFRULT).
(BY
13
PATTERN
PER
ONCE
ED
REFERENC
IS
WHICH A NON-EXISTENT UNIBUS DEVICE ADDRESS
UNIBUS, FOR 5-20
PASS. THIS WILL Rssubr %N A PROCESSOR SIEZURE OFD THE
FOLLOWME BY A NON-EXISTENT
MICRO-SEC (DEPENDING ON THE PROCESSOR), 'THUS,
FOR ERCH PASS THROUGH THE
MEMORY PROCESSOR TRAP, ONCE PER PASS.
Y0 LOSE FROM ONE TO FQUR
INSTRUCTION LOOP, THE CONTROLL;R 1S FORCED
THE EXECUTION TIME OF THE LOOP DETERMINES THE
NPR BUS CYCLES.
THIS IS
REPITITION RATE OF THE NON-EXISTENT MEMORY_ REFERENCES, AND DATA
LATE
NO
BE
SHOULD
THERE
THAT
SO
NPR’S
CHOSEN TO ALLOW ENOUGH
FOR
WRITE CHECKED
ERRORS IN R FAULT-FREE CONTROLLER. THE DATA IS _THEN USING
A RERD DATA
REPEARTEDC
IS
TEST
RBOVE
THE
VERIFICATION, AND
COMMAND.

NO'ERRORS ARE EXPECTED.

_WORD
THE ABOVE OPERATIONS ARE REPEATED 15 MORE TIMES, USING THE NEXT
THE
READ
AND
WRITE
TO
TIME,
EACH
15)
SETI;EETRSEEPER PRTTERN (13 OR

9.4

TEST &6 - MULTI-DRIVE INTERFERENCE TEST

THIS TEST PERFORMS MULTI-DRIVE POSITIONING OPERATIONS, WHILE

LARGE

FOR_THE PURPOSE
DATA TRANSFER 1S IN PROGRESS ON THE DRIVE UNDER TEST,
TEST IS RUN
~THE
N.
OPERATIO
DRIVE
NT
CONCURRE
OF
OF DETECTING PROBLEMS
ONLY IF THERE IS MORE THAN ONE DRIVE ON THE SUBSYSTEM.

10-JAN-78 10:0S

MACY1l 30A(1052)

10-JAN-78

12:02

PAGE 24

SEQ 0023

IRST DETERMINED
WHICH
DRIVE(S)
D ARE OPERATIONAL.
THESE DRIVES
S DONE ON EARCH.
NEXT,
A SEEK IS
A
TEST.
A
DIFFERENT
A_
ES
H

THE TEST PROCEEDS RS FOLLOWS

(BESIDE
THE
ONE UNDER TEST
ARE_THEN CLEARED AND A SEEK
DONE TO CYLINDER FC (SCALED,

SEEK IS NOW BEGUN ON EACH OF THE
PSEUDO-RANDOM CYLINDER ADDRESS.,
MILLI-SEC TO COMPLETE.

AS SOON RS

SHOULD

REQUIRE

THESE SEEKS ARE BEGUN,

FROM

10-67

A WRITE DATA

IS BEGUN ON THE DRIVE UNDER TEST, AT THE CURRENT CYLINDER (FC), SECTOR

TRACK O, WITH THE BUS RDDRESS’ INCREMENT

CONTRDI.LER,

FORMAT

AND

INHIBIT

BIT

SET

"IN

THE

THIS

~WORD

~COUNT

ALL

THE

OTHER

ATTENTION

BITS

AND

WITH A WORD COUNT OF 15,616 (DEC) WORDS IF 20 SECTOR

OR'17,162 (DEC) WORDS IF 22 SECTOR FORMAT.

AMOUNTS TO R FULL CYLINDER + | SECTOR OF DATA.
FROM 101-126 MILLI-SEC TO COMPLETE,

THIS TRANSFER REQUIRES

AND IN THAT TIME,

DRIVES SHOULD HAVE COMPLETED POSITYONING. NEXT, R WRITE CHECK IS DONE
TO VERIFY THE DATA WRITTEN 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,

CHECKING

COMPARING DRIVE CYLINDER RDDRESSES TO EXPECTED VALUES.
10.0

ERROR REPORTING

10.1

COMMON ERRORS

THE FOLLOWING IS R LIST OF COMMON ERROR MESSAGES WHICH ACCOMPANY ERROR

TYPEOUTS

FROM

THE

SELF-EXPLANATORY.

!U:—P\.D(D\JU‘U\JZNNO—O\D(DVU‘(HI'JNU—

Pt P e Dt Dt Pt Pt Pt Bt s Bt Pt P Pt ot Pt Pt Pt Pt Pt Pt et P Pt Pt Pt Pt Pt Pt (et Pt Pt Pt Pt Pt Pt Pt e i Pt Pt P Pt Pt Pt Pt Pt Pt Pt Pt e P
s st —
P Bt P P Bt st Pt Pt Pt ot Pt Dt Pt ot Bt Bt Bt Pt Pt Pt et Bt Pt P Pt Pt Pt Pt Pt it Pt Pt et Bt ot Pt Pt Pt Bt Pt P s s Pt s Pt ot Pt et s Pt s P Pt Pt —

Q
OWONCN LWH—DOOONCNLEWR—-ODO0MNTCN
LW OO0 NN
oL
L L L £ Lt LUNUUUQU%UNNNNNNNNNNN’-H0—0-'-’-*-"-‘
-—0000
L WN— DV NV LW
OO0 n

CZREND.P11

U NN 0 bt bt hot D ps Pt Pt Pome e

CZRENDO RK611.06 SS VERIF @

SUBSYSTEM

VERIFICATION

ERROR
I
UNIBUS P ARITY
NON-EXIS¥2 NT MEMORY_ERROR
NT DRIVE ERROR
LD_ERROR
M _TIMEOUT

PARITY ERROR
SERCON
DRIVE DETECTED PARITY ERROR
AC LOW

SPEED LOSS
ILLEGAL FUNCTION ERROR
PROGRAMMING ERROR
NON-EXECUTARBLE FUNCTION ERROR
DRIVE TYPE ERROR
FORMAT ERROR

WRITE LOCK ERROR
DRIVE UNSARFE ERROR

SEEK INCOMPLETE ERROR
CYLINDER OVERFLOW ERROR
ILLEGAL CYLINDER ADDRESS ERROR
DRIVE OFF TRACK
DRIVE TIMING ERROR
DATA LATE ERROR

PROGRAM.

THE ERRORS RRE

CZRENDO RK&11-06 SS VERIF @

LO2

10-JAN-78

12:02

PAGE 25

SEQ 0024

10-JAN-78 10:05

MMM
== T O 00000 N0 O WY U WD W WOWD LD WD D MM
== b=

e e ot Bt Pt Dt Bt ot s Pt Bt s et ot (et s Pt ot Bt Bt ot s Pt s Pt P Pt Pt Pt s B

FUTVRNVNU NN MU U N PO U NN NUN DU 0 bt bt e Dt e e P Pt s s s s ot e ot Pt Pt s Bt o Pas Pt o Bt Pt o

ot Pt Pt Bt s Bt et ot ot Pt ot Pt Pt Pt ot

s Pt Pt et o Pt o Pt s e Pt [

s ot Pt et (o Pt s Pt B -

CZR6ND.P11

MACY11 30A(1052)

23.
24.

CONTROLLER_TIMEOUT ERROR
OPERATION INCOMPLETE ERROR

28.
29.

DRTR MISCOMPARE
0 _DRIVE RESPONSE - UFE RND NXD

30.
31.
32.
33.
34.
35.
36.
37.
38.
39.

g 9R NéLL EET ?
DRIv
WILL NOT CLERR
CHANGE
ATUS
DRIV
ATTENTION BUT NO STATUS CHANGE OR FAULT
ATTENTION
RIVE NOT ARVAILABLE
EéN? DRIVE STATUS
ERRQR WHI
MULTIPLE
VE S
HEARDER COMPARE ERROR
ERROR IN RECALIBRATE FOR RECOVERY
CLEAR_CONTROLLER DID NOT CLEAR ERROR
NO ATTENTION IN RTTENTION SUMMARY REGISTER

43.

SUBSYSTEM CLERR DID NOT CLEAR ORIVE ATTENTICN

40.
41.
42.

UNSOLICITED ATTENTION
UNEXPECTED
DATA TYPE ERROR
ATTENTION DID
NOT RESET WITH CLEAR

44.
45.
46.
47.

10.2

DRTA LATE WHEN UNLOADING HERDER
CONTROLLER ERROR WHEN DRIVER SERVICING
RETRY_UNSUCCESSFUL
BAD SECTOR ERROR ON SECTOR NOT LISTED BRD

ERROR HANDL ING

ERRORS REPORTED BY THE PROGRAM CONSIST OF
FROM

ATTEMPTED

TO.+ ARTICULRR

SUBSYSTEM FUNCTIONS,

TESTS.

EACH

COMMON

FAILURES

RESULTING

AS WELL RS CERTAIN ERRORS UNIGUE

ERROR 'PRINTOUT

CONSISTS

DESCRIPTION AND TEST NUMBER, POSSIBLY FOLLOWED BY HERDER LINES,

ERROR

COLUMN

n%gg§N8§0L
gclggtgn
BRTgF R5526§S§BLE
(Fosogxgnfigshg§211
REé?STERS?
ARE REPORTED IN
R
INT
COMPARE,
FOR
INSTANCE,

THE

NUMBER

PRESENT}

ARE

REPORTED.

cooo onm uono

ano DATA WORD,

PHYSICAL MEMORY

ADDRESS, ' VIRTUAL ADDRESS, AND MEMORY MANAGEMENT REGISTER CONTENTS
DESCRIPTIVE LINE.

10.3

ERROR PRINTOUT EXRMPLES

EXAMPLE
¥x

WRITE CHECK
TEST 2

ERROR

PREVIOUS COMMAND:

DRIVE
000000

CMND
00012t

CYLNDR
000016

(IF

OTHER ERROR REPORTS MAY consxsr OF A SINGLE

TRACK
000001

SECTOR
000000

WD CNT
175000

s Pt Dot Bt Pt Pt Pt ot (et ot Pt P

e ot Pt Pt Pt s Pt s s Pt s Pt et Pt Pt Pt Pt s Pt ot P —

o URMNMN R
MY RN RJ R RN VMUY YV ULV
PV
NY VRV N n
[
£EL
L £ £ L L X0 WWWWLW
LWL LA NNV
LTV
ND—
NN £

W= ODO NN LWN—-OPo~NN :UNF—D\D;\I

CZR6ENDO RKEL11.06 SS VERIF 2
CZREND.P11
10-JAN-78 10:05

MACY1]l

30A(10S2)

MO2

10-JAN-78

12:02

PAGE 26

SRR PC
DRIVE
CMND
JH& Sgg ooEgoon 000131

CYLNDR
000016

SEQ 0025

LO BR

000000

061566

CURRENT COMMANCG:

00C000

TRACK
000001

SECTOR
000006

WD CNT
17S000

061566

PARCK RDDRESS OF ERROR(S):

TRACK
000001

CYLNDR
000016

SECTOR
000006

EXAMPLE 2:
¥%

DATA

MISCOMPARE

TEST 2

PREVIOUS COMMAND:
HI

CYLNDR
000016

TRACK
000001

SECTOR
000000

WD _CNT
175000

CMND
DRIVE
000 00g 000121

CYLNDR
000016

TRACK
0000C1I

SECTOR
000000

WD CNT
175000

LO.PHY

CMND
000131

DRIVE
000000

000000

LO BA

(074000

CURRENT COMMAND:

ERR PC
033156
HI

000000

249

074000

PACK QDDRESS OF ERROR(S):
RACK
SECTOR
000016 000051 000000

Dt Do Dt

gg?

ese

CYLNDR

iggg

WD s

VRT AD

KIPARSG

1257

oo gy 1ZSEsH GRRRR SR 1ssRg

GRS

1261

1263

qopips Soade [seed dogod dreal 1Sedip Badedd

{562

000:09

000:07

125252

8000§§

igéglq

§80288

1266

30640 Goedlo igeEe GR0nd

§;S§14

000411

000412

125252

Q032000

075022

L1SS022

000600

1523

GOO0D

BRD

HI PHY

predle 1ssdls

ognedo

RKODO6 HEAD ALIGNMENT AID

11.0

THIS PROGRAM IS PROVIDED RS A SOFTWARE AID TO HEARD

ALIGNMENT

THE

CZR6ENDO RKG11/06 SS VERIF 2

CZREND.P11

10-JAN-78

10:05

MACY!1 30A(1052)

10-JAN-78

NO2

12:02

PAGE 27

SEQ 0026

1273

1572

1276

RKO6 DRIVE,

1278
1279
1280

TWO MODES.
THE FIRST IS MANUAL SELECT MODE, WHICH SELECTS A SPECIFIC
ORIVE AND HEAD TO BE ALIGNED BY TTY INPUT AT THE CONSCLE.
THE SECOND
MODE IS AUTO-SELECT MOCE, WHICH ALLCWS REMOTE DRIVE AND HEAD SELECTION

281
282
283
583

s Pt P

286
287

ggg

Pt ot

st Pt Pt P

1277

290

s Pt P

231

TO BE USED IN CONJUNCTION WITH THE RKO6& FIELD TEST BOX, OR

OTHER SUITASLE INDICATOR OF HERD ALIGNMENT.

THE PROGRAM

OPERATES'

THROUGH OPERATION OF DRIVE DUAL-PORT SELECT SWITCHES. IN EITHER MODE
THE OPERATOR HAS THE OPTION 10 EITHER PERFORM HEAD ALIGNMENT, VERIFY
ALIGNMENT, OR REQUEST UP TO FIVE MINUTES OF RANDOM SEEK EXERCISES TO
BE PERFORMED ON THE SPECIFIED DRIVE (S).
11.1

HARDWARE REQUIREMENTS

TO PERFORM HERD ALIGNMENT,

CONNECTED

THE ALIGNMENT

INDICATING

DEVICE

MUST

THE DRIVE VIA 1:'€ ALISGNMENT CARBLE WHICH ATTACHES TO THE

RKO6 READ/WRITE MODULE.
THE ALIGNMENT INFORMATION FROM THE DRIVE MUST
BE DISPLAYED ON R METER OR OTHER iNDICATOR.
EARCH DRIVE TO BE ALIGNED
MUST BE LOADED WITH AN RKO6 ALIGNMENT CARTRIDGE,
AND_ MUST BE
WRITE-PROTECTED.
UP TO EIGHT DRIVES PER CONTROLLEP MAY BE ALIGNZ)

297

PURPOSE

Pt Pt

s et Pt

292
293
294
295

296

s Pt et Pt it rni et ot Pt Pt Pt P

ggg

AND EACH DRIVE MAY BE OPERATED IN
OF

OR SOFTWARE)

SINGLS-PORT

MODE

ONLY.

FOR

THg

THE HEAD ALIGNMENT AND ALL SWITCH REGISTER BITS (HARDWAKE

RRE

IGNORED.

B2 P

Pt Dt Pt Pt Pt Pt Pt Pt Pt (et [t Pt Pt Pt Pt

W LWL W) L) L) W W
0
W W W W W W
W W W W W
OB
NI PUR 0 4 bt bs bt pe b 4= = = O O O o
NV L W=D W
NN L£W—-O DD N o

300

04
s

11.2

CPERRTIONAL MODES

THE PROGRAM COMMUNICATES WITH THE OPERATOR DOING THE AL IGNMENT THROUGH

CONSOLE

DIFLOGUE.

WHEN TAE PROGRAM IS STRARTED AT RDDRESS 224(0CTAL),

IT TYPES IDENTIFICATION:
*

%%t

RVO6-07 HEAD ALIGNMENT AID %

TYPE H(CR) FOR INFORMATION- OTHERWISE,

NEXT,

TYPE

(CR)

THE PROGRAM REQUESTS THE DESIRED MODE OF OPERRTION:
* MANUAL OR AUTO MODE

(M OR R)

;ggsgPERQTOR MAKES THE SELECTION,

11.2.1

AND

ENTERS

ONE

THE

FOLLOWING

MANUARL SELECT MODE

IN THIS MODE,

SELECTED

THE DRIVE(S)

RLIGNED

ARE SPECIFIED BY TTY INPUT.

WITH FEW DRIVES,

AND

THE

WHICH ARE IN CLOSE PROXIMITY TO THE

TYPICAL FIELD INSTALLATIONS.

THE PROGRAM FIRST ECHOS THE MODE:

HEAD(S)

CONSOLE,

THIS MODE 1S USEFUL FOR SYSTEMS

A_‘_-“‘A"“

CZR6ENDC Rkb1l-06 SS VERIF @2

CZR6ND.P11

10-JAN-78

10:08

MACY11 30R(10582)

1328
1329
1330

1331
}ggg

1334

-l

10-JAN-78

e At

12:02

AAA.A_‘AA~“‘M’

PRGE 28

% MANUAL SELECT MODE
* **
AND TYPES “ENTER DRIVE NO.

THE OPERATOR TYPES THE DRIVE

SEQ 0027

(0-7):".

NUMBER,

THE

PROGRAM

TYPES

THE

DRIVE

1335
1336
1337

SERIAL NUMBER, AND THEN ASKS “QLIGN VERIFY, OR EXERCISE (R
E)
2
THE
E
O
RRTOR
RESPONDS,
AND
THE
"PROGRAM’
ENTERS
THE
RPPRbPRIQTE
SUB-MODE .

{g:é

11.2.1.1

ig:s

ALIGNMENT IN MANUAL MODE PROCEEDS RS FOLLOWS.

1338
1339
1340

MANUAL SELECT ALIGNMENT

THE PROGRAM TYPES:

* ENTER HEARD NO. (D-2)

1345

“% MANUARL SELECT RLIGNMENT ¥,"” FOLLOWED BY

g
{g:
1348

THE OPERRTOR TYPES THE DESIRED HEAD NUMBER, AND

13S0
1351
igég

HEQD ALIGNMENT TOOL.
THE PROGRAM TYPES “TYPE(R> WHEN READY:*
AFTER
THE TOOL HRAS
EEN MOUNTED THE OPERARTOR TYPES <R>, AND THE PROGRAM
LORDS HEADS AND RESPONDS WITH:

1349

1354

{ggg

1357

THE

HERDS

AND

“HEAD X SELECTED”

THE

PROGRAM

UNLOADS

THE ORIVE, IN RNTICIPRTION CF OPERATOR MOUNTING OF THE

“HERADS POSITIONED AT CYLINDER 365(0CT)*

THE POSITIONING TO CYLINDER 365 IS DONE IN SINGLE INCREMENT SEEKS,

AVOID

1361
1362
1363

FOR “ALIGN OR EXERCISE ?" (STILL IN THE SAME MODE).
IF CONTROL € (tC)
IS TYPED THE PROGRQH LOOPS FURTHER BRACK TO RSK FOR A NEW DRIVE NUMBER

iggg

EXITS FROM THE CURRENT MODE, AND DOES A COMPLETE RESTART.

1359
1360

1364

1367
1368

EXCESSIVE

MOMENTUM ON THE POSITIONER,

1358

THE OPERATOR MAY NOW PROCEED o ALIGN THIS

IF THE OPERATOR TYPES CONTROL 2 ($2) THE PROGRAM WILL LOOP BACK TO ASK

(STILL

SAME

MODE).

IF CONTROL R (#R) IS TYPED, THE PROGRAM

11.2.1.2

iggé

VERIFY MODE IDENTIFIES ITSELF AS FOLLOWS :

}g;g

1376

1377

1378

IS INSTALLED.
THE
PROGRAM LOOPS BACK TO ASK FOR ANOTHER HEAD NUMBER ON THIS bRIvf

ig%g
1373

WHILE THE QLIGNHENT T00.

MANUAL SELECT VERIFY

“% MANUAL SELECT VERIFY ¥

“ENTER HERD NO.
THE VERIFY MODE IS

UNLORDING

THEREFORE,

RND

(0-2)

IDENTICAL

LOR DING

IN THIS MOD

FOLLOWED BY

THE

ALIGNMENT

MODE

EXCEPT

THAT

FOR

QUICK

OF HERDS IS NOT DONE BETWEEN HERD SELECTIONS.
THE

OPERATOR

MAY

SELECT

HEADS

1379

RLIGNMENT VERIFICRTION fUSING THE ALIGNMENT METER), WITHOUT THE DELAYS

1381

BE ASKED TO "TYPE

1380

OF UNLOADING AND LOADING HERDS.
(R>

IN THIS MODE, THE’ OPERARTOR

WHEN RERDY".

MWILL

NOT

CZR6NDO RKbE11-06 SS VERIF 2
10-JAN-78 10:05
CZREND.P11

CO3

12:02

10-JAN-78

MACY1l 30A(10S2)

PRGE e9

SEQ 0028

MANUAL SELECT EXERCISE

11.2.1.3

WHEN THE EXERCISE SUB-MODE OF

MANUAL

SELECT

MODE

ENTERED,

THE

AND TYPES "TYPE <R} WHEN
PROGRAM UNLOADS HEADS ON THE SELECTED DRIVE,ALIGNMENT
TOOL PRIOR TO THE

READY”.
RANDOM
<R>.

THE OPERATOR MUST THEN REMOVE THE

SESK%

THE

WHICH

PROGRAM

FOLkON, AND ALLOW EXERCISES TO PROCEED BY TYPING

THEN LORDS HEADS, AND RESPONDS WITH:

% SEEK EXERCISES IN PROGRESS ON DRIVE X #TM.

AT THIS POINT, 7?S00 RANDOM SEEKS ARE BEGUN ON THE DRIVE, WHICH LASTS
UPON COMPLETION OF THESE EXERCISES, THE
FOR ABOUT_ FiVE~ MINUTES.
IN MANUAL
PROGRAM RETURNS TO QSK FOR "ALIGN OR_ EXERCISE 7" THE(STILL
RS (12)
CHARACTE
SUB-MODE,
EXERCISE
IN
MODE) ON THIS DRIVE. WHILE

($C), AND (tR) PERFORM THE SAME FUNCTIONS AS BESCRIBED

11.2.1.1

o4
07

IN SECTION

AUTO SELECT MOOE

11.2.2

1S DONE
IN THIS noge ALL SELECTION OF DRIVES AND HEADS FOR_ALIG.NMENT
ALLOWS
THIS
SWITCHES
SELECT
PORT
DRIVE
OF
ON
OPERATI
BY SEQUENTIAL
THUS
THE__CONSOLE.
COMMUNICATION WITH THE PROGRAM TO BE REMOTE FROM
ENT
ENVIRONM
TEST
URING
MANUFACT
THE
TO
SUITED
WELL
1S
QUTO SELECT MODE

OR TO A FIELD INSTALLATION, WHICH HAS A NUMBER OF REMOTE DRIVES.
PROGRAM FIRST ECHOS THE MODE:

THE

* ¥ QUTU SELECT MODE * *, AND ASKS
"ALIGN OR EXERCISE (R OR E) ?".

THE

OPERATOR

Sus-MOOE.

11.2.2.1

RESPONDS,

AND

THE

PROGRAM

ENTERS

AUTO SELECT ALIGNMENT

ALIGNMENT IN RUTO SELECT MODE PROCEEDS RS FOLLOWS.

THE

APPROPRIATE

THE PROGRAM TYPES:

" % AUTO SELECT RLIGNMENT % *.

THE PROGRAM CONSTANTLY SCANS ALL DRIVES 0-7 TO DETERMINE THEOF EXISTENCE
ITS PORT
OPERATION
OF ERCH. NHEN?VER A DRIVE Ig DESELECTED BY THETENT
DRIVE INDICATION
H; PROGRAM RECEIVES A NON-EXIS
SELECT SWITCH
ES THAT A
WHEN 17 SELELTS THAT DRIVE. THEN, WHEN THE PROGRAM DETERMIN
EECOME
{UST
HR?
TE?)
(DES?EEC
s
OFF-gifi
LY
PREVIO?S
WRS
WHICH
DRIVE
IN
DRIVE.
THAT
ON
T
ALIGNMEN
OR
PREPARE
IT
ON-LINE (SELECTED)

SUMMARY,
THEN

DRIVE.

BY DEPRESSING _AND
THE OPERATOR SELECTS A DRIVE_FOR ALIGNMENTPORT
IN USE) ON THAT

RELEASING

THE

PORT SELECT SWITCH (FOR THE

THE PROGRAM RECOGNIZES THE DRIVE SELECTED, AND CHECKS IT

SURE

CZR6NDO RKB11-06 SS VERIF 2
CZRENC.P11
10-JAN-78 10:05

MACY1l 30AR(10S52)

DO3

10-JAN-78

12:02

PRGE 30

SEQ@ 0029

1438

THAT IT 1S WRITE-LOCKED.

THE PROGRAM THEN TYPES:

"ODRIVE X SELECTED"

ROBT<M T HERBARE: INeNE 300 THAIN"DE'Ye AQUAYED HE SFERATERmiEY
DEPRESS AND RELERSE THE PORT

SWITCH

AGAIN,

AND

THE

PROGRAM

LOQDS

s Pt ot Bt Pt et Pt Bt Pent Pt (s Pt B

Pt Pt Bt Pt ot ot it Bt B

Bt B

L
L rLLL L L L LrLLELLrLL
£
DWWOWD M
MMM
MM NNNNNNININO OOt
W~ OLODNOCNIWN—OVONCN
L WL—~OWDONCU LW~ 0O0DN0N

Pt Pt Pt s Bt Pt ot bt Pt Pt o Pt Pk Pt Pt Pt Pt

g%?D? Rggs¥$PEéN SINGLE INCREMENTS OUT TO YHE ALIGNMENT CYLINDER (365
*HEADS POSITIONED AT CYLINDER 365(0CT.)
HERD O SELECTED".

AFTER THE OPERRTOR téGNS HERD

HE_

MAY

PROCEED

HERD

_BY

DEPRESSING
SING THE PORT SELECT SWITCH. WHEN HE DOES, THE
HEADS WILL BE UNLOQDED AGAIN, AND THE OPERATOR MAY MOVE THE AL IGAMENT
TOOL

HERD

AND

UPON DEPRESSING AND RELERSING THE_PORT SWITCH

ggg%gcTIHEgngflgépalLL BE LOADED, THE PROGRAM WILL SEEK TO CYLINDER
“HERDS PQSITION D AT CYLINDER 365(0CT)
HEAD

SELECTED®

THIS PROCESS MAY BE CONTINUED WITH HEADS BEING SELECTED IN

0 chmensr

ETC.

WHEN THE OPERRTOR COMPLETES ALIGNMENT ON THIS DRIVE,
THE ALIGNMENT TOOL, AND SWITCH THE DRIVE ON-LINE.

TO SELECT RANOTHER DRtVE

THE

ORDER

UNTIL THE OPERATOR HAS COMPLETED THE

HE SHOULD REMOVE
IF
HE THEN WISHES

HE MUST SWITCH THE DESIRED DRIVE OFF-LINE RAND

HVE
sBEn ALToneS Hie
ofenAtdn
TrBeR 53 on Hs H5"De ek 1 BF8 " TROSECHBR
LEAVING ALIGNMENT MODE AND PROCEEDING TO DO SEEK
11 .2.
sxsncxsss

ALIGNMENT

THE OPERRTOR MUST BE SURE TO REMOVE THE

FROM ALL ORIVE(S).

TOOL(S)

NOTE

THE

tC FUNCTION DOES NOT APPLY

MODE.

11.2.2.2

AUTO

AUTO SELECT VERIFY

VERIFY MODE IDENTIFIES ITSELF RS FOLLOWS :
“# AUTO SELECT VERIFY #*

THE AUTO SELECT VERIFY MODE IS IDENTICAL TG THE AUTO

ALIGNMENT

MODE,

LWNH—-ODONCNLWN—DOVO
NV .LWNOWOID NN LWN-0OWO0 NN L WNR—~0OW0D

Do et Bt et Pt Pt Pt Pt Pn et Pt

s Pt Bt Pt Pt Pt Pt st Pt et Pt

s (et Pt Pt Pt Pt Pt Pt st Pt Pt P

s ot ot Pt Pt ot Pt et P

s Pt Pt P Pt

vinnunicninvtninnninnnininon i e £ £
L£L£L
£ L£WWWWWWWLWWWNINNINIYLD PV NURINY = bt bt pt e e e e 0 = ) O OO QO OO OO DD

CZRENDO RKB11-/06 SS VERIF 2
10-JAN-78 10:0S
CZR6ND.P11

MACY{l

30A(10S2)

EO3

10-JAN-78

12:02

SEQ 0030

PAGE 31

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

FOR

QUICK ALIGNMENT VERIFICATION (USING THE ALIGNMENT METER), WITHOUT

THE DELAY OF UNLOARDING AND LOADING HERDS.

11.2.2.3

AUTO SELECT EXERCISE

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.

AUTO SELECT EXERCISE MODE IDENTIFIES ITSELF RS FOLLOWS:
“

QUTO SELECT EXERCISES
#

FOLLO.
D BY*"SHORT OR LONG (s bR L) 2.
THE OPERATOR TYPES HIS RESPONSE , AND THE SELECTED SEEK EXERCISES

ARE

PERFORMED ON EARCH DRIVE.
UPON COMPLETION OF THESE EXERCISES, THE
PROGRRM RETURNS TO ASK FOR "QLIGN OR_EXERCISE?" (STILL IN AUTO_ MODE).
HILE

1IN

EXERCISE GUB-MODE THE CHARACTERS tZ AND tR PERFORM THE SAME

FUNCTIONS AS DESCRIBED IN SECTION 11.2.1.1.
NOTE

BEFORE

THE

TOOL

REQUESTING

OPERATOR
(WHILE

AUTO-EXERCISE

MODE

MUST REMOVE THE ALIGNMEN?

STILL

AUTO-ALIGNMENT

MODE) WHILE THE HEADS ARE UNLORDED.

11.3

ON_

ALIGNMENT ARID ERROR MESSRGES

"ORIVE X NOT READY!
WHEN RERDY
CPU

’CONT®
THEN PRESS
PLERSE START IF DES IRED,
INDICARTES T HAT A DRIVE SELECTED FOR
HIS

ALIGNMENT WAS FOUND NOT RERDY

2.
"DRIVE X NOT WRITE-_OCKED!
PLERSE 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.
3.

“PLERSE LORD ALIGNMENT CARTRIDGE ON DRIVE X!

PRESS

°"CONT"

CZR6ENDO RK&11-06 SS VERIF 2

CZREND.P11

10-JAN-78 10:05

MACY11l 30A(10S2)

10-JAN-78

FO3

12:02

PAGE 3e

SEQ 0031

1550
1551

CPU

WHEN RERDY.” - THIS INDICRTES THAT A DRIVE SELECTED FOR ALIGNMENT

WAS NOT LOADED WITH AN ALIGNMENT CARTRIOGE.

- THIS

RESTART.”
TO
'CONT'
PRESS
AUTO-SELECTED!
_DRIVES_
THAT
IN
AUTO ALIGNMENT MODE MORE THAN ONE OF THE
ELECTED FOR ALIGNMENT SIMULTANEOUSELY.

;MULT IPLE

IN DéCRTES

DRIVES WERE

S.
“CRANNOT RERD BAD SECTOR FILE ON DRIVE X!
PRESS °'CONT' ON CPU_TO
RESTART”. - THIS INDICATES THRT A READ ERROR WAS ENCOUNTERED WHILE THE
PROGRAM WAS RTTEMPTING TO IDENTIFY THE CARTRIDGE
ON
DRIVE
X
RS
AN

ALIGNMENT CRRTRIDGE.

X" - THIS IS TYPED BY THE PROGRAM IN RESPONSE TO

INVALID

PARAMETER,

ENTER THE PROPER VALUE.

SHOWN HERE AS X.

THE

INPUT

THE OPERATOR SHOULD NOW

MACY1l 30A(1052)

GO3

10-JAN-78

12:02

THE
FOLLOWING
PRINTOUT
WARS
THE
RESULT ~ OF
VERIFICATION,
PART 2,
ON A SINGLE ORIVE (DRIVE 0),

RUNNING
SUBSYSTEM
FOR THE FIRST PARSS

OF THE PROGRAM (QUICK-VERIFY PASS).
IN THIS
MODE,
ALL__MESSAGES
APPEARING HERE WERE OUTPUTS--NO OPERATOR INPUTS ARE PROVIDED ON AN
ADDRESS 200 RUN.

CZRENDO ~ RKH11/RK06-RKO? SUBSYSTEM VERIFICATION :
LAST PHYS MEM ARDR = 377776
NON-EXISTENT
NON-EXIST NT

4
(=]

»—
<
m

—

O
P

NN LW

ot Pt Pt ot ot Pt et Pt et Bt Pt P
s o
s Pt Pt Pt et Pt Bt Bt Bt et Bt Bt et Bt Pt Bin
Pt Bt
Bt P

SEG 0032

SAMPLE ADDRESS 200 DEFAULT RUN

e Bt et P

LNl
e alead e ad e als ato ale ol alo oo oTo oY o oo pTe g1 oo oot

9t Bt P

PAGE 33

RAPPENDIX R

Bt Bt

CZRENDO RK611-06 SS VERIF 2
CZR6ND.P11
10-JAN-78 10:05

XISTENT

DRIVE S NON-EXISTENT
DRIVE & NON-EXISTENTY
DRIVE 7 NON-EXISTENT
DRIVE(S)

= O

TESTING DRIVE O
DRIVE SER. NO.
8
CART. SER. NO.
334

OFFSET-TO-FARILURE MEARSUREMENTS:
TRACK

CYLN

SECT

+OFST

-OFST

0
0}
0
0
1
1
1
1
2
e
2
e

0
0
631
631
0
0
631
631
0
o
631
631

0
12
0
12
0
12
O
12
0
12
0
12

NONE
NONE
NONE
NONE
1050
NONE
NONE
NONE
NONE
NONE
NONE
NONE

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

END PRSS

(UIN)

(UIN )

PART 2

CZR6ENDO RKE11-06 SS VERIF 2

CZRBND.P11

10-JAN-78

10:05

MACY11 30A(10S2)

10-JAN-78

12:02

PAGE 34

SES 0033

1629
1630
i631

1838

1634
1635
1636
1637
1638

1639

APPENDIX B

1641

SAMPLE ADDRESS 204 RUN

1640

1642

1645
{s:g

THE

FOLLOWING

PRINTOUT

¥ER%FICRTION

PAR

uns

THE

RESULT

RUNNING

1648

1649

EE ?F?Eb ERRQMETEBE HND 8 355?} éE

1682

{Ega

ADDRES g *

iggg

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

s Pt

660

Pt Pt Pt

Egg

et Pt Pt Pt Pt Pt et

1657

(s2 AND S3) AND DATA PQTTERN (PT) NERE SPE¢IF§ED

PRRAMETER INPUT MODE

663
664
665
666
667
668
669

RKO6-07 BUS ADR
=
RKO6-07 VEC ADR
=
RKO6-07 PRIORITY =

NEW =
NEW =
NEW =

= 0O

ENEER L,C,

IO DEFRULT TESTS TYPE D <CR>,
TE?T

682
683
e84

2
3
Y

[} 1

177440
210
S

= LIST TESTS
= CHANGE TESTS
= INPUT PARAMETERS AND RUN TESTS

o
o
(=]

s Pt et P

L
€

TEST ONCE

anues

LARST PHYS MEM ADR=377776

DRIVE(S)
¥

? SROGRM Pnssé

RED THAT TEST
1 BE RUN ONCE

ggé

670
671
672
673
674
675
676
67?7
678
679

et o & Pt Pt Pt Pt Pt Pt Pt vt it

SPECIFICRLLY

NON-DEFAUL

ITERQTI?NS

e x

SUBSYSTEM

Roz
A SING%E ongg (33§§ERO)
WITH
PflRTICUL?fi

2 *
2 *0
2 * 0\0O\1

ELSE <CR>

CZRBNDO RK611-086 SS VERIF 2
CZREND.PL1

10-JAN-78 10:05

10-JAN-78

MACY11 30R(1052)

103

12:02 PAGE 35

1685
1686

1687

100 * 1

ENTER L,C,
#

ITERRTIONS

OCNLWn-—

E NTER L,C,
¥

OR 1

000

TEST

T O

O O o o

2 e b ps 4 Be e 1 e 1= Y O) YO Q O O OO O D D O D LD DD DDD
N LWN—-OOEONON LWH—-ODONCNLW—0W

Pt ot Pt Pt Bt Pt ot Pt Pt e Pt Pt

OR I

TYPE PARAMETER LIST

T
0

OPEN PARAMETER LIST
SET INDIVIDURL PARRR M

RUN TESTS

ENTER T,0,S,
*

LC=632
FT=0
LT=2
S0=0

S1=23

se=0
S3=2S
PT=0
€S=0
ST=0

4
25
2b
27
28
29
30

ENTER T7,0,5,
® S
> Se=Y4
y Sv=20
Sv=20?
> S83=20
> PT=100000

gé
23

34
35

OR R

FC=0

8
9
0
1
S

MU NN

Dt Bt Pt Pt Bt Pt Pt P P

e B Pt P

Pt P

Pt Pt e P

Pt ot

s Pt

s Bt Pt Bt B

NN N N NN NN NN NN N NN NN NN NN NN NN NN NN NN N NN NNNN N

Pt D s Pt Bt Dt Bt Bt Bt Pt B

e *0

688

OR R

TO"MODIFY PATTERN 15, TYPE M <CR>, ELSE <CR>
*

MODIFY USER-DEFINED PATTERN 15:
WORD 00 = 072307 # 1234S6!
y

ENTER T7,0,5, OR R

FC=0

* T

SEQ 0034

CZRENDO RKB11-06 SS VERIF 2
10-JAN-78 10:0S
CZREND.P11

MACY1l 30A(1052)

10-JAN-78

JO3

12:02

PAGE 36

LC=632
FT=0
LT=2
S0=0
Si=23
S2=M
S3=20
PT=100000
CS=0
ST=0

TTERN 15:

—

JOWJ0 WO DM

MMM N NNNNNNNNNOO

NN N NN NNNNNNNNNNYN
NN ~
oo
oo
DO O
nNnLWwnrL
oun £ W=~ OVONOCNEWN—-0ODONCNLWL—~0OVD NN

P00

USER-DEFINED F

WORD 00 =
WORD 01 =
WORD 02 =
WORD 03 =
WORD Q4 =
WORD 0S =
WORD 06 =
WORD 07 =
WORD 10 =
WORD 11 =
WORD 12 =
WORD 13 =
WORD 1442
= 123456

123456
123456
123456
123456
123456
123456
123456
123456
123456
123456
123456
123456

ENTER T7,0,S5,
¥

OR R

ENIER NO. OF PASSES (1-77777)
TESTING DRIVE O

DRIVE SER.
CART. SER.

NO.
NO.

8
334

OFFSET-TO-FAILURE MERSUREMENTS:
TRACK

CYLN

SECT

+0FST

-OFST

0
0
0
0
1
1
1
1
2
2
e
e

0
o
631
631
0
0
631
631
0
0
631
631

4
20
4
20
4
20
4
20
Y
20
4
20

NONE
NONE
NONE
NONE
NONE
NONE
NONE
NONE
NONE
NONE
NONE
NONE

(UIN)

SEQ 003S

CZRENDO RKB11-06 SS VERIF 2

CZREND.P11

10-JAN-78

10:05

MACY1l 30A(10S2)

10-JAN-78

KO3

12:02

PAGE 37

1797
1798
1799

1801

{ggs

END PASS #

TO TEST ALL DRIVES TYPE "RTM <CR>,
*

ELSE <CR>

SEQ 0036

D €000
0
00
gt
W—0O
W

wn £ WN—-OWONON LW N0

»—;—»—o—-u—v—»—»—-v—;r—v—o—-»—-o—-b—v—r—o—-r—-»—-»—-o—»—-o—-p—r—-o—»—-v—-—-o—b—r—v—»—r—v—»-»—o—-v—-»—-.—»—-t—-o—0 00 a0 G0 ap0D €0 (0 D A0 A 0D 0O D 0 0 000000
0D (DD A D
£ cgmmmmmmmmmmmm
£ £ £ LWk wwwhhhnnnumnnn

CZRENDO RKB11-06 SS VERIF @
10-JAN-78 10:05
CZR6ND.P11

MACY11l 30A(10S2)

LO3

10-JAN-78

12:02

SEG 0037

PAGE 38

APPENDCIX C

SAMPLE MANUAL MODE HERD ALIGNMENT RID RUN

THE FOLLOWING PRINTOUT WAS THE RESULT OF RUNNING
THE
HEAD
ALIGNMENT
RID
PRgVéosg
AN
EE?EYST M vsnxpxchégn PART E (RQERESS iew START).

MANDAL MODE

WRS

THAT ORDER.

AND THEN REQUESTED RANDOM SEEK EXERCISES TO BE RUN ON ' THE

ALIGNMENT.

REQU

AND

THIS CARSE,

THE

OPERATOR

GSELECYED

DRIVE

THE OPERQTOR SELECTED HEADS 1,0,

DRIVE (AFTER REMOVAL OF THE HEAD RLIGNMENT TOOL).

FOR

AND 2, IN

THE EXERCISES WOULD

HAVE NORMALLY RUN FOR 5 MINUTES PJT THEY WERE PREMARTURELY TERMINATED
BY THE OPERATOR,
BY TYPING (tZ), IN THIS PARTICULAR RUN.
FINALLY,

VERIFY MODE WAS REQUESTED, AND HEAD’2 WRS SELECTED BY THE OPERATOR.
CZR6ENDO - RKE11/RKOB-RKO? SUBRSYSTEM VERIFICATION :
¥%%

RKOG-07 HEAD

ALIGNMENT

RQNUQL OR AUTO MODE

MANUAL

SELECT

ENTER DRIVE NO.

RID

<CR>

ELSE

FOR HELP TYPE H,

#¥¥

(M OR R)?

MODE

(0-7):

ERIVE SER. NO. 8
gLIGN,

VERIFY,

MANUAL

SELECT

%NTER HERD NO.
;YPE

(R>

OR EXERCISE (R,

RLIGNMENT

(0-2):

WHEN RERDY:

HEADS POSITIONED AT CYLINDER 365
HERD

OR E)?

SELECTED

ENTER HERD NO.

(0-2):

(OCT)

PART 2

CZR6NDO RKB11-06 SS VERIF 2
CZRG6ND.P11
10-JAN-78 10:0S

Pt bt P

s Pt

e (ont Pt Pt ot Pt [

Y ey Dt Pt et Bt Pt Pt Pt Bt Pt B

Bt Pt Pt Pt P

s Pt Pt it

s Pt Pt e s

[VeRVel¥alaslooloafooTealoaloolosTos] DOOD [oaloslaolosToelooor
oo oolooToaloalooe oo oaToatoo
oo aoTnoloeToeloel0 s}
O000WON
D DODD D000 mm MODDMOMM N NNNNNN YN
NN~ 0O\
LW OO0~ oCNLWN—-O0OVONOCNI LWNN—-DDDNOCN LW

1860
1861
1862

MARCY1l

30AR(1052)

;YPE

(R>

10-JAN-78

MO3

12:02

PAGE 39

SEQ 0038

WHEN RERDY:

HEADS POSITIONED AT CYLINDER 365 (OCT)

HERD O SELECTED

ENTER HERD NO.

(0-2):

2YPE (R> WHEN RERDY:

HERDS POSITIONED AT CYLINDER 365
HERD 2 SELECTED
E;TER HERD NO.

gLIGN,
;YPE

VERIFY,

(R>

(OCT)

(0-2):

OR EXERCISE (R,

OR E)

WHEN RERDY:

:QQNDOM SEEK EXERCISES IN PROGRESS ON DRIVE O *
eLIGN,

VERIFY,

MANURL

SELECT

ENTER HERD NO.
2

OR EXERCISE

VERIFY

(0-2)

(R,

OR E)

HEADS POSITIONED AT CYLINDER 365 (0OCT)
HEAD 2 SELECTED

EgTER HEAD NO.

ALIGN,

VERIFY,

(0-2)

OR EXERCISE (R,

OR E)

CZR6NDO RKB11-06 SS VERIF 2

CZREND.P11

10-JAN-7810:05

MACY11l 30A(1052)

10-JAN-7?8

NO3

12:02 PAGE 40

1903
1904
1905

1906
1907
1908
1909
1910
1911
1912

APPENDIX D

{gia

SAMPLE AUTO MODE HERD ALIGNMENT RID RuUN

igig

1916

1918
1920
1921
1922
1823
1924
1825
1826
1927
1928
1929
1830

GNMENT
THE FOLLOWING PRINTOUT WARS THE RESULT OF RUNIING THE HEAD__ALI
START).
224
(ADDRESS
2
PART
ION
VERIFICAT
SUBSYSTEM
1IN
PROVIDED
AID.
DRIVE 0O FOR
AUTO MODE WRS REQUESTED, AND THE OPERATOR SELECTED
SELECTED FOR
WERE
(AGAIN)
O
AND
0,1,2,
HEADS
CASE.
THIS
1IN
ALIGNMENT.
IN THE ORCER
ALIGNMENT (IN AUTO MODE, THE HERDS ARE ALWAYS, SELECTED
UNLOARDED
0.1.2.0.1.2, ETC.). BETWEEN HERD SELECTIONS THE HEARDS WERE
T8 ALLOW AEMOVAL OR INSTALLATION OF THE HERD ALIGNMENT TOOL. BY NOTE
THE
(IN _AUTO MODE) IS JOONE
THAT ALL DORIVE AND HEAD SELECTION
OPERATOR, AT THE DRIVES, BY OPERATION OF PORT SELECT SWITCHES. S_ AFTER
THE OPERATOR REQUESTED RANDOM SEEK EXCERCISE TO BE
ALIGNING' HERDS.
SHORT EXERCISES WERE
RUN (ON ALL DRIVES, IN THIS CASE DRIVE 0).
WHICH 'RUN FOR I MINUTE PER DRIVE. FINALLY, AUTO SELECT
REQUESTED.

iggg

CZR6ENDO - RK611/RK06-RKO? SUBSYSTEM VERIFICARTION : PART 2

iggé

VERIFY WAS REQUESTED, AND HERDS 0,1, AND 2 WERE SELECTED SEQUENTIALLY.

1935

1936
iggg

x%¥% RKOBH-07 HERD ALIGNMENT AID #xx
FOR HELP TYPE H, ELSE <(CR>

1939

MANUAL OR AUTO MODE (M OR R)?

1940

1941
1942

%gza

1945

1946

1947
1948

% AUTO SELECT MODE *

ALIGN, VERIFY, OR EXERCISE (R, V, OR E) 7
A

iggg

% AUTO SELECT ALIGNMENT ¥

iggé

ORIVE O SELECTED

1953

HERDS POSITIONED AT CYLINDER 365 (OCT)

1954

HERD 0 SEL;CTED

1956

HEADS POSITIONED AT CYLINDER 365 (OCT)

1855

1957
1958

HERDS POSITIONED AT CYLINDER 365 (OCT)
HERD 1| SELECTED

HERD 2 SELECTED

SEQ 0039

Al the@BB

aa e

CZRENDO RKB11-06 SS VERIF 2
CZREND.P11
10-JAN-78 10:0S

MACY1l 30A(10S52)

BO4

10-JAN-78

12:02

PARGE 41

HEADS POSITIONED AT CYLINDER 365
?%QD 0O SELECTED

AUTO SELECT

BLIGN,

MODE

VERIFY,

¥ AUTO SELECT EXERCISES

gHORT OR LONG

(OCT)

(S OR L)

(A,

OR E)

(R,

OR E)?

EXERCISING DRIVE O
* AUTO SELECT MODE

eLIGN,

VERIFY,

OR EXERCISE

¥ AUTO SELECT VERIFY #*

DRIVE O SELECTED
HERDS POSITIONED RT CYLINDER 365
HERD O SELECTED

(CZT)

HEARDS POSETI?NED AT CYLINDER 365 (OCT)
HERD 1

HEADS POSITIONED AT CYLINDER 365
?%RD 2 SELECTED

SELECTED

(OCT)

gLIGN,

VERIFY,

ORE)

OR EXERCISE

(R,

—

- ot

P amh A&

SEQ 0040

OR EXERCISE

A A

CZRENDO RKe11-06 SS VERIF 2

CZREND.P11

2000
2001

10-JAN-78 10:0S
000001

MACY11 30A(10S2)

10-JAN-78

PAGE 42

PART=1

= O, PART | WILL BE RSSEMBLED. ¥
;##% IF "PARTTM 1S DEFINED

l!! IF "PART" IS DEFINED NOT = 0, PRRT 2 WILL BE ASSEMBLED. #x¥
;2x%

REV 006 %%

NLIST

NC MD,CND
AMA

tgug E?o
ll!ll*lll!lilllllllllillllll!I!l!l!!i«!llii!*li*l*il!li!!!lf!!*{
BL

167000

SBTTL

nn rfvrvhnn
00 0000000
P Pms
nn Pt Pt Pt P Pt
-0 OOoNTNLEW

CO4

12:02

STARTING RDDRESSES

200

DEFRULT PARAMETERS FOR_TESTS 1-6

ccY4

HERD

SELECT PRRAMETERS FOR TESTS 1-6

204

ALIGNMENT AID

o 30036 96 36 36 06 36 36 36 36 6 36 36 36 36 36 36 36 36 36 36 36 36 3636 36 36 6 36 36 36 36 36 6 36 36 36 96 36 36 36 3 36 34 3 3 36 36 36 36 3 6 06 3 0 96 30 2 3 30 2

000001

STN=

TITLE

CZR6ENDO RK611/06 SS VERIF 2

: #COPYRIGHT

(C)

1976,1977

:#DIGITAL EQUIPMENT CORP
4nnvnnao MRSS. 01754

lPROGRQH BY DAVE HOFFMAN

ITHIS PROGRAM WAS RSSEMBLED USING THE PDP- 11 MARINDEC SYSMRC
lPQCKQGE (MRINDEC-11-DZQRC-C3), JAN 18, 1977

SBTTL

OPERATIONAL SWITCH SETTINGS

SWITCH

tx
2’
Lx
;%
tx
X ]
x
Px
Lx
tx

14
13
12
11
10
9
8
6
1

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUTS
REPORT DESCRIPTION ONLY, ON ERRORS
éNHIBéT énsnnrxons
ELL
LOOP ON ERROR
APPLY RANDOM STALL BETWEEN OPERATIONS
1 ERROR PER TRANSFER IN TESTS 2-4
REFORT
INHIBIT WRITES IN TEST 1

x
§8TTL

REPORT ALL SOF TWARE COMPARE ERRORS IN TESTS 2-4
0
(PARAMETER CS)
SETTINGS
SWITCH
CONTROL

SWITCH

sx
sy

0s
o4

x
.SBTTL

001100

USE

USE
DROP DRIVE IF 20(DEC) ERRORS EXCEEDED
TYPE BAD SECTOR FILES (BSF’'S) ON FIRST PASS

INHIBIT OFFSET REPORTS IN TEST 1

BRSIC DEFINITIONS

*INITIAL ADDRESS OF THE STACK POINTER ##% 1100 #%

&Tack=

1100

SEQ 0041

CZR6ENDO RKE11.06 SS VERIF 2

CZREND. P11

10-JAN-7810:05

2056

MACY11 309(1052)

BASIC DEFINITIONS

.EQUIV

Sggg

10-JAN-78

.EQUIV

EMT,ERROR

IOT,SCOPE

DO4

12:02

PAGE 43

SEQ 0042

;;BASIC DEFINITION OF ERROR CALL

:'BRSIC DEFINITION OF SCOPE CALL

060

059

000011

2064

2063

000200
177776

CRLF=
200
pPS=
172776

} ' PROCESSOR STR US WOR

2066
2067

177774
177772

STKLMT= 179774
PIRQ=
17777

: STRCK anxr REGISTER
,,PRSSRQH INTERRUPTRES?EET REGISTER

2071

2065

¥MISCELLANEOUS DEFINITIONS

.EQUIV

PS,PSW

177570
177520

DSWR=
DDISP=

17757
177570

2072

000000

ko=

2075

000003

2068
5893

2073
2074

,,coos FOR HORIZONTAL TRB

::SOBE FOR 1EETURN LINE FEED

! 'HARDWARE
; ' HAROWARE

SWITCH
R
DISPLAY Rscxsrsn

*GENERAL PURPOSE REGISTER DEFINITIONS

;s GENERAL REGISTER

000001
000002

Rl=
Re=

%1
%2

;;EEN RAL REGISTER
:
'GENERAL REGISTER

075
5878

200005
888 06

Rz
Rb=

e
%6

““‘R§§2t Sgg}gfi*
EESEN RAL R
TER

§§§§

88888?

::gROSRRM éounrsa

2073

2083

000007

2084

000000

5888
2080

2085
2086
2087

Sggé
2093

2094

203s
2036

"°$SEE“%OR§$é§TER

. ¥PRIORITY LEVEL DEFINITIONS

;;PR}OR%TY LEVEL O

000300

PRS=
PR6=

300

EEPRiSRfTY
LEVEL g
P IPRIORITY LEVEL 6

100000

&418=

880548

000340

040000
020000

PR1=
PR2=
;§3=

PR7=

40
100
130

340

SW14=
SW13=

100600

000400
00020
06010
000040

SW08=
gu
=
Wie=
SWOS=

000010
000004
000002
000001

SWo3=
SWga=
SWoi=
SWo0=
JEQUIV

10
4
2
I
SWO9,SWS

000020

:PRIORITY LEVEL 1
:'PRIORITY LEVEL 2
;;ggxogx;; tEUEt 3

:IPRIORITY LEVEL 7

%"SWITCH REGISTER” SWITCH DEFINITIONS
20000
10000
4000
2000
1000
400
200
100
40

21085

2111

: 'GENERAL REGISTER

000040
0001C0
008130

010000
004000
062000
001000

2108
2107
2108
2109
2110

R7=

PRO=

2097
2038
2099
2100
2101
2102
2103
2104

R3=

Swie=
SWif=
SWi0=
SW09=

SWo4=

EQUIV

SuW08,35u8

CZRBENDO RKB11-06 SS VERIF 2
CZRENG.PL1
10-JAN-78 10:0S
2112
2113
2114
211s
2116
2117
2118
Siég
2121

2122

2123
2124
212s
2126
2127
2128
2129

2130
2131
2132
2133
2134
2135
2136
2137
2138
2139
2140
2141
2142
2143

.EQUIV
-EQUIV
-EQUIV
"EQUIV
-EQUIV
JEQUIV
.EQUIV
-EQUIV

100000

040000
020000
010000
004000
002000
001000
000400
000200
000100
000040
000020
0000%0
000004
000002
000001

2144

EO4

12:02

PAGE 44

SWO7,SW?
SWO6, SWb
SWOS,SWS
SWOY, SWY
SWO3,5uW3
SWO2, SW2
SWOI,SW{
SWO0,SWo

- ¥DATA BIT DEFINITIONS (BITOO TO BITIS)

BIT1S=

BITi4=
81T13=
BITi2=
BITil=
8IT10=
BITOS=
BITO8=

1000

40000
20000
10000
4000
2000
1000
400

BITO7=
8IT06=
BITOS=
BITU4=
BIT03=
BITO2=
BITOI=
BITO0=
.EQUIV
.EQUIV
.EQUIV
.EQUIV
EQUIV
.EQUIV

200
100
40
20
10
4
@2
I
BIT09,BITS
BITO8,BITS
BIT07.BIT7
BITO&.BITE
BIT0S.BITS
BITO4.BITY4

EQUIV
EQUIV
EQUIV

BIT02.BIT2
BITOI.BITI
BIT00.BITO

EQUIV

214s
2146
Si:g
2149

MACY11 30R(1052)
10-JAN-78
BASIC DEFINITIONS

BIT03,BIT3

. %BASIC "“CPU" TRAP VECTOR ADDRESSES

2180

000004

ERRVEC= Y

:: TIME OUT AND OTHER ERRORS

2182
2153
2154

000014
000014
000014

TBITVEC=1Y
TRTVEC= 14
BPTVEC= 14

DieTeoBIT
: TRRCE TRAP
: ' BREAKPOINT TRAP

000034
000060
000064
000240

TRAPVEC=34
TKVEC=
60
TPVEC=
64
PIRQVEC=240

: I“TRAP” TRAP
I TTY KEYBORRD VECTOR
*:TTY PRINTER VECTOR
: ! PROGRAM INTERRUPT REQUEST VECTOR

2151

2185
2156
2157
2158
2159
2180
2161

gigg

900010

000020
000024
000030

Siég

2166
2167

000250

RESVEC= 10

: RESERVED AND ILLEGAL INSTRUCTIONS

(BPT)
: DINPUT/OUTPUT TRAP (IOT) #¥SCOPE#¥¥
:
'POWER FAIL
: CEMULATOR TRAP (EMT) #¥ERROR¥¥

I0OTVEC= 20
PWRVEC=
24
EMTVEC= 30

.SBTTL

MEMORY MANAGEMEN'’ DEFINITIONS

. ¥T11

VECTOR

MMVEC=

250

ADDRESS

SEQ 0043

CZRENDO RK611-06 SS VERIF @
CZREND.PL1
10-JAN-78 10:0S
Sigg

FOH4

MACY11 30A(1052)
10-JAN-78
12:02 PAGE 45
MEMORY MANAGEMENT DEFINITIONS
; #KT11

2170
2171
elze
Si;a

177572
177574
177576
17251&

STATUS REGISTER RDDRESSES

SRO=
SR1=
SR2=
SR3=

Si;g

177572
177574
1775786
172516

; *KERNEL "I*

21727

172300

2178
2179
2180
218l
218
2183
Sigg

KIPDRi=
KIPLR2=
KIPDR3=
KIPDRY4=
KIPDRS=
KIPDRb=
KIPDR?=

S}g%

172302
172304
172306
172310
172312
172314
172316

*KERNEL "I*”

2188
2189
2190
2191
2192
2193
2194
Sigg

172340
172342
172344
172346
172350
172352
172354
172356

KIPARO=
KIPARl=
KIPRAR2=
KIPAR3=
KIPARY=
KIPARS=
KIPARG=
KIPAR7=

219?
2198

170200
170202

MAPLOO=170200
MAPHOO=170202

2200
c2ell

177740
177742

LOERARD=177740
HIERARD=177742

172100

cele

PRGE DESCRIPTOR REGISTERS

KIPDRO= 172300

172302
172304
172306
172310
17231@
172314
172316

2199

SEGQ 0044

PAGE RDDRESS REGISTERS

172340
17342
172344
172346
172350
172352
172354
172356

MEMCSR=172100

177744

; MEMORY CSR REG START ADRS

:11/70 MEM LO ERROR RDRS REG
11/70 MEM HI ERROR ADRS REG

MEMSYS=177744

000000

2207
gsgg

000174

'%SEQUENCE TO CRTCH ILLEGAL TRAPS AND INTERRUPT S
lLOCRTIOng CONTAINS O TO CARTCH IMPROPERLY LORDED VECTORS

000174

000000

DISPREG:

SS{&

000200

888{;6

2215

000170

000000

2206

2210

2211

cele

e2lb
2217
cels
€219
e220
geel
gggg

000176

000204
000224
000230
000232

.SBTTL

; #ALL UNUSED LOCATIONS FROM
4 - 776 CONTAIN A *.+2 HALT"

000000

000204
000137
000224
000137
000700
001100

TRAP CATCHER

11,70 MEM SYSTEM REG

2203
{-{Va]
220s

SWREG:
013342

WORD

; SOFTWARE DISPLAY REGISTER

,,SOFTNRRE SWITCH REGISTER

.SBTTL

STARTING_ADDRESS(ES)

JHT70

d8DFSTRT

;;JUMP TO STARTING ADDRESS OF PROGRAM

KILLDR:

.WORD

;IF NOT = 0,

013376
024134

.WORD

..LOW:
..HIGH:
.SBTTL

. =204
JMP
J#PSTART
. =M
JMP
J#ASTART
.WORD
700
.WORD
1100
ACT11 HOOKS

IT IS OK TO OVERLAY LORDER

CZRENDO RKB11-06 SS VERIF 2
10-JAN-78 10:05
CZRBENC.P11

MACY11 30R(1052)
ACT11

GO4

10-JAN-78

12:02

HOOKS

SEG 00MS

PRAGE 4b

o 363636 36 36 96 36 36 36 36 36 36 36 36 3 36 36 36 36 3 3 3 3 3 36 36 3 3 3 2 36 3 3 36 3 3 3 3 3 2 3 3 3 3 3 3 3 3 3 3 3% I 3 3 I I 3 3 3% 3 3 % %

000046

000052

000234
000046

fiooxs Rgguggso BY ACTLI
Sgg AD

88904

oS
140 )00
000c 34
00100u

; SRVE PC

Syp

;3 1)SET LOC.46 TO RDDRESS OF SENDAD IN .SEOP

-WORD _ 140G00

,,EJSET LOC.S2 TO 140000

.=$SVPC
.SBTTL

.=1000

RESTORE PC

APT PARAMETER BLOCK

o 36 36 36 36 36 36 36 36 36 36 3 36 3 36 36 38 36 36 36 36 38 3% 36 3 336 36 3 3¢ 36 36 3% 36 3 3 3¢ 36 3 36 36 36 36 3 3 3 36 36 3t 36 3 3 3¢ 36 3 36 36 20 3 3 36 3 2

QET LOCATIONS 24 AND 44 AS REQUIRED FOR APT
000024

e
e Bt P
s
e
e

0000000
00000
oo L£noOo

0000000
o000000

000044

001000
000024
000200

000044
001000
001000

000000
001320
001130
003410
003410
000030
120210
177440
000377

l*lli!llllll!l!lllll!llillli!l*!lll!!i!*i!lllll!il!i!!!llli*l!*

AVE

.$X=.

. =24

CURRENT LOCATION

ET POWER FAIL

UP
FOR APT START

200

TO POINT TO STRRT OF PROGRAM

;POINT TO"APT INDIRECT ADDRESS PNTR.
snpmon ,,POINT TO APT HEADER BLO
X

RESET LOCATION COUNTER

*l**!l%ll!lli*iil!ililll§§il*iilllllll!llll!*!ll*l*ll!ll*l*{*ll
'&ETUP APT PARAMETER BLOCK RS DEFINED IN THE APT-PDP11 DIAGNOSTIC
: INTERFACE SPEC.
SAPTHD:

SHIBTS:

.WORD

SPASTM:

.WORD

§¢g$gR: .figsg

SUNITM: uonB
OR

AVECT1=120210

ABASE=177440
ADEVM=000377

0}
SMAI L
1130

3410

3418

SET

;TWO HIGH BITS OF 18 BIT MAILBOX RODR.

,,RDDRESS OF APT MAILBOX (BITS 0-15)

TIME IN SECS. OF 15T PRSS ON ! UNIT (QUICK VER 1 F Y)

' QDDITIONAL RUN T}HE(SECS) OF A _PASS FOR EACH ADDI

ND-shth/a ,,LENGTH MAILBOX-ETARBLE (WORDS)
{RKVEC=210

RKPRI=5

' RKBAS ADRS
'SET DEVICES 0-7 IN MAP

I ONARL UNIT

CZR6ENDO RKB11-06 SS VERIF 2
CZReND.P11
10-JAN-78 10:0S

ssgg
2es0

‘%USED IN
001100

001100

$CMTAG:

THE PROGRA

.=1100

TSTNM: N3$D
3Rrne: BViE

2
B

e,
SLPERR: i
.WORD 8O

2273

$ITEMB:

2272

001112

000000

2274

001115

$ERTTL:

.WORD

001

ssngnx:

.BYTE

000

$AUTOB: .BYTE

001136

000600

.MORD

001150

177564

001114

000

8522 BR1138 BBBBER
7 Gl s
557
881155
888088
SSB?
00{130
888888

2282 881135
001135

2285
2286
2287
2288

001140
001142
001144
001146

2290

001152

2289
2291

2292

2293

2894
2295
2296
2297
2298
2299
2300
2301
2302
2303
2304
2305
2306
2307
2308
2309
2310
2311
2312

SEG O046

COMMON TAGS

5
2071 Ml
01118 880000

2284

PAGE 47

22X 2222222222222X22222X2
X222 222X 2222222222

2269 00{100 000809
ssec 831185

2283

HOY

12:02

iTHxs TRBLE convnxns VARIOUS COMMON STORAGE LOCATIONS

226

2265

30R(10S52)
10-JAN-78
COMMON TRGS

.SBTTL

226

2263
2264

MACY1l

001154

000

$TPB:

000

001162
001164
001166
001170
001172
001174
001176
001200
001202

00l222

.BYTE

177566

001157
001160

001204
001206
001210
001212
001214
00l121e
001220

§INTARG:

.WORD
DISPLRY .WORD
$TKS:
177560
§TKB:
177562

002

O
|

3$5BRbR: :HBRB B
e
BODRT: .WORD
O
'5858
)

177570
177570
177560
177562

001155

001156

.BYTE

§TPS:

§NULL:

DSWR
DDISP

177564

177566
.BYTE

_BYTE

000
000000

§TPFLG:
SREGARD:

.BYTE
.WORD

O
O

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

$REGO:
$REGLl:
$REG2:
$REG3:
SREGY:
SREGS:
$REGG6:
$REG?7:
$REGI0:
SREG11:
SREG12:
$REG13:
$REGI4:
$REG1S:
$REG16:
$REG17:

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

O
O
O
O
O
O
O
O
O
O
O
O
O
O
O
O

000000

§FILLC: .BYTE

$REG20:

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

.WORD

NTAIN
TEST NUMBER
P ZONTAINE EHRoRCPL

Saene
deftsrke?unu
Hogpon
comn
:ZCONTnf
g
gESPE
Pon
ERRORS
: 'CONTRINS TOTAL ERRORS DETECTED
; ;CONTAINS ITEM CONTROL BYTE
:CONTRINS MAX.

Engons
PER T% FLCTION

::88N¥2§N§ R6oRESE 3t FB58E. IBRIR
SONTAINS Aohigsedr, e oAt
::conrn{ns
'BAD’ DATR
. :RESERVED--NOT TO BE USED

; ;AUTOMATIC MODE INDICATOR
: ' INTERRUPT MODE
; ; ADDRESS
: 'ADDReSS
,,TTY KBD
:TTY KBD

INDICATOR

OF SWITCH REGISTER
OF DISPLAY REGISTER
STATUS
BUFFER

STTY PRINTER STATUS REG. ADDRESS

$FILLS:

0l2

: s START OF COMMON TAGS

,,TTY PRINTER BUFFER REG. ADDRESS
,,conrnrns NULL

CONTRINS 8 OF

CHARACTER FOR FILLS

FILLER cunnncrsns REQUIRED

INSERT FILL CHRRS. AFTER R "LINE FEED"

P I*TERMINAL AVAILABLE"TM FLAG (BIT<07>=0=YES)
: 'CONTRINS THE ADDRESS FROM
"'WHICH
(SREGO) WAS OBTAINED
:1CONTAINS ( (SREGAD)+0)
: :CONTARINS ((SREGAD)+2)
,,conrnxng ( (SREGAD)
+4)
1 :CONTAINS
((SREGARD)+6)
: *CONTARINS ((SREGAD)+10)
: 'CONTRINS ((SREGAD)+12)
1 'CONTRINS ( (SREGRD)+14)
:'CONTARINS ((SREGAD)+16)
: 'CONTARINS ((SREGAD)+20)

: 'CONTRINS
: 'CONTRINS
: 'CONTRINS
CONTAINS
: 'CONTAINS
: ;CONTAINS
'CONTRINS

( (SREGAD)+22)
( (SREGAD)+24)
( (SREGRD)+26)
( (SREGRD)+30)
( (SREGAD)+32)
((SREGAD)+34)
((SREGAD)+36)

:'CONTRINS ( (3REGRD)+40)

CZRBENDO RKB11-06 SS VERIF 2
CZRBND.P11
10-JAN-78 10:05

2314
2315
2316
2317
2318
2319
2320
2321
2322
2323
2324

2325
2326
2327
2328
2329
2330
2331
2332
2333
2334
2335
2336
2337
2338
2339
2340
2341
2342
2343
2344
2345
2346

001224
00l226
001230
001232
001234
00le3s
001240
00la42
001244
001246
001250

001252
001254
001256
001260
001262
001264
001266
001270
001272
001274
001276
001300
001302
001309
001306
001310
001314
001315
001316

000000
000COO0
000000
000000
000000
000000
000000
000000
000000
0000
0000CO

000000
000000
000000
00000
000000
0000Q0
000000
0u000
000000
000000
000000
000000
000000
000000
000000
177607
Q77
015
000012

001320
001320
001322
001324
001326
001330
001332
001334
001336
001340
001340
001341
001342
001344
001346

30AR(1052)
10-JAN-78
COMMON TRGS

$REG21:
SREGe2:
SREG23:
SREG24:
SREGSS:
SREGE26:

.WORD
.WORD
ORD
.WORD
.WORD
.WORD

SREG37:
$TMPO:
STMP1:
$TMP2:
$TMP3:
STMPY:
$TMPS:

.WORD
ORD
WORD
WORD
WORD
WORD
WORD

SREG27:
SREG30:
SREG31:
SREG32:
SREG33:
SREG34:
SREG3S:
SREG36:

000377

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

$TMPG:
WORD
$TMP7:
.WORD
$TMP10: .WORD
STIMES: O
SESCAPE: D
$BELL:
.RASCIZ
.RASCII
SQUES:
.PSCII
SCRLF:
SLF:
.ASCIZ

1G4

12:02

SEQ 0047

PAGE 48

O
O
O
O
O
O

; s CONTRINS
; ; CONTAINS
; ;CONTAINS
; sCONTARINS
; ; CONTRINS
; ;CONTRINS

O
O
O
O
O
O
O

; s CONTRINS ((SREGRD)+76)
; ; USER DEFINED
; s USER DEF INED
; ;USER DEF INED
; ;USER DEFINED
; ;USER DEFINED
; ; USER DEFINED

; ;CONTRINS
; ; CONTRINS
; ;CONTRINS
; ;CONTRINS
; ;CONTAINS
; ;CONTARINS
; ; CONTAINS
; ;iCONTAINS

O
O
O
O
O
O
O
O

O
O
O

<«207>¢377>¢377>
7/
<1
12>

((SREGRD)+42)
((SREGRD) +44)
( (SREGRD)+46)
((SREGARD)+50)
((SREGARD)+52)
( (SREGARD)+5S4)

((SREGRD)+56)
((SREGRD)+60)
((SREGRD)+62)
( (SREGRD)+6%4)
((SREGRD) +66)
((SREGRD)~70)
((SREGRD)+72)
((SREGAD)+74)

; ; USER DEF INED
;
sUSER DEF INED
; ;USER DEF INED
; ;MAX. NUMBER OF ITERATIONS
; ; ESCAPE ON EEEOR ADDRESS
;;CODE_FOR BE
; ; QUESTION MARK
; s CARRIAGE RETURN
;i ;LINE FEED

T
T e P T R T T T T e YRR R F R SRR RA T P2 22 17
'48TTL APT MAILBOX-ETABLE
é!illlll!ilillllll!lii!llllil!illllllllllllllillil*l!l!ilii**ii!
VEN

2347

2348
2349
2350
2351
2352
2353
2354
2355
2356
2357
2358
2353
£360
2361
2362
2363
2364
2365
2366
2367
2368

MACY1l

000000
000000
000000
000000
0000GO
000000
000000
0000CT
000
000
000000
000000
000000

SMAIL:
$MSGTY:

; 3 APT MAILBOX
;;MESSAGE TYPE CODE

SFATAL:

.WORD
.WORD

AMSGTY
AFATAL

$PASS
SDEVCT:
SUNIT:
$MSGRD:
$MSGLG:

WORD
.WORD
.WORD
.WORD
.WORD

APASS
ADEVCT
AUNIT
AMSGRD
AMSGLG

; s PASS COUNT
;;DEVICE COUNT
;3170 UNIT NUMBER
; ;MESSAGE RCDRESS
; ;MESSAGE LENGTH

$ENV:
$ENVM:
§SWREG:
$USWR:
§CPUOP:

.BYTE
.BYTE
.WORD
.WORD
.WORD

RENV
RENVM
ASWREG
AUSWR
ACPUOP

: 'ENVIRONMENT BYTE
::ENVIRONMENT MODE BITS
;;APT SWITCH REGISTER
::USER SWITCHES
::CPU TYPE,OPTIONS

SETRBLE :

s¥

TM
e
"
i~

;;FATAL ERSES NUMBER

S JAPT ENVIRONMENT TRBLE

BiTs 15-11=CPU TYPE

11,04=01,11/05=02,
11/20=03, 11/40=04, 11,45=05

11,70=06,PD@=07,06=10
BIT 10=REAL TIME' CLOCK
BIT 9=FLOATING POINT PROCESSOR
8=MEMORY MANRGEMENT
BIT

CZRENDO RK611/06 SS VERIF 2
10-JAN-78 10:0S
CZREND.P
2370
2371
2372
2373

001350
0013S1

000
000

10-JAN-78
MACY1l 30A(10S2)
APT MRILBOX-ETARBLE

:
$MAMS1
SMTYPL:

.BYTE
.BYTE

Ja4

12: 02

AMAMS
|
AMTYP1

001352

000000

AMACRL

001354

000
goo
000000
000
000
000000
000
000
000000
120210
000000
177440
000377

AMAMS2
AMTYP2
RMADR2

PAGE 49

SEQ 0048

,,HIGH ADDRESS,M.S.

MEM. TYPE,BLK#1

fém. TYPE avfe

BYTE

== (HIGH BYTE)

900 NSEC CORE=001
300 NSEC BIPOLAR=002
500 NSEC nos 003
sHIGH noonsss BLKS

"MEM.LAST ADDR.=3 evrss THIS WORD AND LOW OF "TYPE" ARBOVE
,,HIGH RDDRESS M.S. BYTE'
: 'MEM. TYPE, BLK b2

:IMEM.LAST' noonzss BLK %2
: 'HIGH RDORESS,M.S.BYTE
:IMEM. TYPE,BLKA3
i 'MEM.LAST ADDRESS,BLK#3
; HIGH RDDRESS,M.S.BYTE
,.nsn TYPE,BLKEY
:MEM.LAST' ADDRESS, BLK #4
P INTERRUPT VECTORMK1,BUS PRIORITYNI
: INTERRUPT VECTOR$28US PRIORITY#2
‘BRSE ADDRESS OF EQUIPMENT UNDER TEST
,,oevxcs MAP

CZRENDC RKE11-06 SS VERIF 2
10-JAN-78 10:05

CZREND.P1 1

MACY1l

10-JAN-78
ERROR POINTER TARBLE

30R(10S2)

.SBTTL

KO4Y

12:02

PAGE SO

SEQ 0049

ERROR POINTER TRBLE

; #THIS TABLE CONTAINS THE

INFORMATION FOR EACH ERROR THAT CAN OCCUR.

"xTHE INFORMPTION IS OBTRINED BY USING THE INDEX_NUMBER_FOUND IN
lLOCRTION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT.

lNO El
LB
B &

" ¥NOTE2:

s P
Pt Pt Pt Pt Pt Pt
P

NN LW—0O

VY
LfLrrrLcrx

; ;POINTS
; sPOINTS
; ;POINTS
; POINTS

TO
TO
TO
TO

THE
THE
THE
THE

ERROR MESSAGE
DARTA HERDER
DATA
DRTA FORMRT

SERRTB:

001400
001400

IF SITEMB IS O THE ONLY PERTINENT DATA IS (SERRPC)
EACH ITEM IN THE TRBLE CONTRINS
4 POINTERS EXPLAINED AS FOLLOWS:

06037S
063072
064610

s UNIBUS PARITY ERROR

064724
060414
063072
064610
064724

ge0432
063072
064610
064724
060450
063072
064610
064724

; NON-EXISTANT MEMORY

; NON-EXISTANT DRIVE

;UNIT FIELD ERROR

; SUBSYSTEM TIMEOUT

001446

7
0604¢
063C>7e
064610
064754

001450
001452
001454
DO1456

060506
063072
064610
0es010

;D TO C PARITY ERROR

001460
001462
001464

060S2S
063072
064610

;DRIVE DETECTED PRRITY ERROR

065010

001470
001472

060544
063072
064610
064754
060553
063072
oe4610
064754

oLnno

060566

LO4

12:02

MACY1l1l

060645
063072
064610
064754
060656
063072
064610
064754

001570
001iS7e
001574
001576

060673
063072
064610
064754

PRARGE 51

;AC LOW

oL£o

e P
s

0000
o000

s be

001466

0000
0000

2449
2450
2451
2452
24583

0000
0000

CZRBNOO RK611,06 SS VERIF 2
CZREND. Pll
10-JAN-78 10:05

; SPEED LOSS

; ILLEGAL FUNCTION

; PROGRAMMING ERROR

; NON-EXISTANT FUNCTION

;ODRIVE TYPE ERROR

: FORMAT ERROR

;WRITE LOCK ERROR

; DRIVE UNSRFE

SEQ Q00SO

CZRENDO RK611-06 SS VERIF 2
CZRB6ND .P11
10-JAN-78 10:05

5282 001600 060706
5283 881684 383816
s Pn Pt Pt Pt Pt P [
Pt

D@DV L£WV—

(A AV AV T VA VT a1 1o V)n
unninnnnn wn

2509
2510

001606

064754

MACY11l

30A(1052)
10-JAN-78
ERROR POINTER TABLE

. ERROR el

gMe

pY1g8

MO4

12:02

PAGE Se

; SEEK

SEQ 0051

INCOMPLETE

DFOe

; CYLINDER OVERFLOW

060722
063072

064610
064754
060735
0e 3072
064610
064754

Obg?sg
06307
064610

; ILLEGRL CYLINDER

;DRIVE OFF TRACK

064754

060770
063072
Q64610
064754

061007
063072
064610
064754
061021
063072
064610
064754
061037
063072
064610
065064
061060
063072
064610
065064
061077

;ORIVE TIMING ERROR

:DATA LATE

:CONTROLLER TIMEOUT

; OPERATION

INCOMPLETE

; HEADER VRC ERROR

;DATA CHECK ERROR

Z
CZRGNDO RKE'.1/0b SS VERIF

CZREND.P11

10-JAN-78 :0:05

10-JAN-78

MACY11 30A(1052)

ERROR POINTER TRBLE

NO4

12:02

SEQ D0S2

PAGE S3

063072
OGo+oi0
065120

DH100
DT100
DFO?

2566 001720 061116

N33

sWRITE CHECK ERROR

:ERROR 34

2561
2662
2563

2564

001712
001714
001716

2565

ERROR 33

DH100
DT100
OF10

001722
001724
001726

063072
064610
065154

001730

061132

£M3Y

(S)
:DATA MISCOMPARE

001740

061152

.ERROR 35

063072
064610
064724

EM35

DH100
DT100
OFO1

:NO DRIVE RESPONSE-UFE 3 NXD

001750

061204

ENM36

.ERROR 36

:DRIVE ERROR WILL NOT CLEAR

001760

061233

.ERROR 37
EM37

:DRIVE STATUS CHANGE WILL NOT CLERR

001770

061274

£M40

.ERROR 40

sATTENTION BUT NO STATUS CHANGE OR FAULT

002000

061340

EMy 1

.ERROR Y41

sATTENTION BUT DRIVE NOT AVAILABLE

2608

002010

061370

EMye

.ERROR 42

sATTENTION WHEN NOT EXPECTED

Sgié

002016

0B4754

OF02

2567
2568
2568
2570

2571

2572

2573
2574
sggg

2577

2578

2579
2580
gggé

2583

2684

2585
2586
gggg

2589
2690

2591
2692
2593
2594

2595

2586
2597
2598
2699

2600

2601

2602
2603
2604
2605
2606

2607

2609
2610

001732
001734
001736
001742
001744
001746

001752
001754
001756

001762
001764
001766

001772
001774
001776

002002
002004
002006
002012
002014

063072
064610
065050

000000
000000
000COCO
000000
000000
000000

063672
064610
064754
063072
064610
064754

063072
064610

2613
2614 002020 061420
2615
2616

002022
002024

063072
064610

DH100
DT100
DFOM

0
0
0

DH100
DT100
DFO2
DH100
DT100
DF02

DH100
DT100

.ERROR 43

M43

DH100
DT100

:ERROR WHILE GATHERING DRIVE STATUS

@it

et N

et G

B o

CZRENDO RK611-06 SS VERIF 2
10-JAN-78 10:0S
CZREND.P11

Emand

MACY11 30AR(10S2)_
10-JAN-78
ERROR POINTER TRBLE

002026

065ee0

DF1le

002030

061631
063072
064610
065220

EMe3

002040
002042
002044
002046

061667
063072
o64610
0ese20

002050

061715
063072
064610
065220

- ERROR 4y

DH100
DT100
DF12
45

002056

002060
002062
002064

061737
063072
064610
065220

002070

061763
063072
0eY610
065220

002066

002076

002100

062022
063072
064610
065220
061451
063072
0Oe4610
065220

002126

002130
002132
002134
002136

061466
063072
064610
065250

061037
063072
064610
065300

4?7

_—

e
—

BOS

12:02

PAGE S4

; CLEAR CONTROLLER DID NOT CLEAR ERROR

;NO ATTENTION IN ATTENTION SUMMARY REG

;UNSOLICITED ARTTENTION

; UNEXPECTED DATR TYPE ERROR

;sATTENTION DID NOT RESET WITH CLERK

; SUBSYSTEM CLEAR DID NOT CLERR DRIVE RTTENTION

;MULTIPLE DRIVE SELECT

; ABREVIATED HCE ERROR

; OPERARTION INCOMPLETE ERROR

SEQ 00S3

CZRBENDO RKb11-/06 SS VERIF 2
10-JAN-78 10:05
CZREND.P11

MRCY1l 30A(10S2)
10-JAN-78
ERROR POINTER TRBLE
- ERROR 5S

002166
002170
002172
002174
002176

00o0o00

—

o
o

QO o
NX
COOOM:
MITIM

061511
063072

EM31

QOUUM:
MYIIM

061060
063072
064610
065250

00OM::
IM

002140

061562

COS

12:02

PAGE SS

; ABREVIATED HVRC ERROR

;@ TIMEOUT ERROR

;2ND LEVEL IN SUBSYSTEM TIMEOUT

;ERROR IN RECAL FOR RECOVERY

; RBORT MESSAGE

000000
061615

; CYLINDER MISCOMPARE

063072
064610

MM
RNV
NNNNNNNNNNN
mp_p-.—p..’_._p..—...p..
OoWwoDNNCNLW—0O

065440

000000

002226

065550

3672
ges0 06
064610
1631

002234
002236

;CLERR COMTROLLER DID NOT CLERR ERROR

064754

002246

061667
063072
064610
04754

002250

061715

002240

;DATA ERROR WORDS

;NO ATTENTION IN RTTENTION SUMMARY REG

;UNSOLICITED ATTENTION

SEQ 00SH4

CZRENDO RKB11-06 SS VERIF 2
CZR6ND .Pl1
10-JAN-78 10:0S

MARCY1l

30A(10S52)
10-JAN-78
ERROR POINTER TARBLE

DOS

12:02

PAGE S6

8022?6 0649%4
Joe260

0852&2
002264
002266

061737
064754

8022?
0eaz
002274
002276

De4610
064754

002300
002302
002304
002306

ge2022
063072
0e461C
064754

002310
Qo2312
002314
002316

062067
063072
064610
064754

002320
00e23ee
002324
002326

0eecl27
063072
oe4610
064754

002330
002332
002334
002336

ge2l162

0023540

062202

002346

064754

00235s0

062214

002356

000000

002360
002362
002364

0bea44
064010
04674

861763
63072

. ERROR 67

£Me6

DH180
07100
OF 02
- ERROR

EMe?

;sUNEXPECTED DRTR TYPE ERROR

;ATTENTION DID NOT RESET WITH CLEAR

DH100
DT100
DF02
71

; SUBSYSTEM CLERR DID NOT CLERR ATT

;DATR LATE WHEN UNLOADING HEARDER

; CONTROLLER ERROR DURING DRIVER SERVICE

;DRIVE DETECTED PARITY ERROR

064754
75

; UNDEF INED ERROR

;MARKING SECTOR BARD MESSAGE

;BAD DATA VERIFICATION WITH RERD

SEQ 00SS

CZRENDO RKB11-/06 SS VERIF 2

(o4 R6ND P11

10-JAN-78 10:05

002366

065474

002370
002372
002374
002376

062326
000000
064674
065534

002400

062326
000000
064674
065534
062347
000000
Ce4e74
065534

062372

MACY11l

30A(1052)
10-JAN-78
ERROR FOINTER TARBLE

EQS

12:02

PAGE 57

SEQ 00Se

DF2l

- ERROR

EM77

100

0
DT601
DF23

- ERROR

gM77

101

0
DTe01
DFe3

: ERROR

%nxon

102

;RETRY SUCCESFUL MESSRGE

; ANOTHER RETRY SUCCESSFUL MESSAGE

; RETRY UNSUCCESSFUL MESSAGE

DT601
DF23
103

;NO VALID HERDERS

IN TRACK JUST RERD

002426
104

002430
002432
002434
002436

105

002440
002442
002444
002446

106

0024S0
00Qu4se
002454
002456

065010

002460
002462
002464
002466

062564
063072
064610
064754

002470
002472
002474
002476

062615
063072
064610
065S64

107

110

;BSE ERROR ON SECTOR NOT LISTED RS BRD

; TIMED-OUT ON READ HERDER

: TIMED-OUT ON SEEK

;DRIVE SIEZED BY OTHER PORT

;“"DATA MISCMPR WHILE BRI SET"

CZRENDO RKBI11-06 SS VERIF 2
CZRBND P11
10-JAN-78 10:05
002500

062650
000000
000000
000000

MACY11l

30A(10S2)_
10-JAN-78
ERROR POINTER TRBLE

. ERROR

tM10?

111

112

FOS

12:02

PRAGE S8

SEQ Q00S7

; "NO NEM WHEN EXPECTEDTM

;" INTRPT WHEN CNTRLR NOT READY"

064610
oe47e4

002526

062746
063072
064610
064754

002536

062767
064217
064650
065554

002540
002542
002544
002546

000000
000000
064674
065200

002550

061132

002556

oes4eH

00e2se0
002562
002564
002566

000000
000000
064610
065504

002570
002572
002574
002576

063013
063072
064610
oe4724

002600
002602
002604
002606

063041
063072
064610
JeS610

0ceel0

063056

002530

113

114

115

116

117

120

121

122

;""NO ATT'N ON SEEK”

;ORIVE’S CYLINDER

INCORRECT

; TYPE ADRS OF DATA MISCOMPARE
(S)

;DATA MISCOMPRRE

(11-/70)

;:PART OF DATR MISCOMPARE

;RBORT~ CAN'T READ BSF

;KT11

FARILURE

:MEM PARITY ERROR

CZRBNOO RKe11-06 SS VERIF 2
CZR6ND. P11
10-JAN-78 10:0S
002612
002614
00c616

063072
oe4610
0eS634

002620

060432

002626

000000

MRCY11

30A(10S2)
ERRO R POIN

JRN 78
RT ABLE

GOS

12:02

PRAGE S8

;NED

SEQ 00<8

IN SIZING UNDER APT

CZR&NDO RKB11-06 SS VERIF 2

CZREND.P11

53{

10-JAN-78 10:05

MACY1l 30R(1052)

10-JAN-78

.SBTTL

;:RKCS1

3915

SCERR ' DI

;

1S5

; CCLR !

gig

"R/W?P

2320

’

2923

. RDY !

§3sd
2326

SEQ 0059

BIT ASSIGNMENTS IN THE RKb11 REGISTERS

agig

§351

PAGE 60

BIT ASSIGNMENTS IN THE RKb11 REGISTERS

2913

2917

HOS

12:02

DCPAR! CFMT ! CTO ! CDT ! BAL7 ! BAIlG !
RO

RMW!

RGC

!'!'R/MW

! RM

!RMW

SN & - S e R I e A9
___
IE

' SPARE!

! UFE

; R7W ! RW:! RW! RAWY RAW Y RW D RZW Y RAW:

2927

;RKCS2

2930

P DLT ' WCE

2332

e
T
e L e e e et

Sgsg

2931

2933

2934

;

! RO

! NED

PGE

MDS

R/W

!R/MW

RO
0

2338
2939

e
e e R
e
e

;RKDC

(DESIRED CYLINDER)

2943

SNU

2945
2946

2940

5345
2944

p 15

'WO

BAI

NEM

P OR

CLR

5332
2937

! UPE

ONUO!

'R/W

ONUO!

DESL ! pS2 ! DSy ! DsO !

'R/W

NUO!

RERD ONLY

NUO! O NU

18 LS 8 ___
O!DCY O 'oODCB

e e e E e

!
!

e e D

gg:g

2949

: pDC7 ' DC&

' DCS

! DCY

! DC3

! pC2

! DCL

! DCO

2951
2952

T
e L e et

gggg

;

2950

READ ONLY

!
'

2953

;RKDR (DESIRED TRACK AND SECTOR)

2956

PNU

2358
2959

e
LoL e EE R R PR
e e

2957

ggg?

2962

PUN

2963

RERD ONLY

' TR2

! TRL

! TRO

! SAY

! SA3

! SA2

! SAL

! SARC

READ ONLY

CZRENDO RK611-06 SSVERIF 2

C2REND.P11
2965

%
ggg
2968

2969

2970
2971

10-JAN-78 10:05

10-JAN-78

MACY11l 30A(10S2)

10S

SEQ 0060

12:02 PAGE b1

BIT ASSIGNMENTS IN THE RK6i! REGISTERS
;RKDB (DnTn BUFFER)

; 1S

‘pB1S ! DBIY ! DB13 ! DB12 ! DBI11 ! DBIO ! DBY
;

READ/WRITE
e

e e

S
' DBS

! DOBS

!
'

s oo oo oo foSCsScoss———ees

3
Y
! DB4 ! DB3
READ/WRITE

2
! DB2

1
! DBl

0
! DBO

Sg;g
2974
2975

6
;7
: pg7 * DBe
;

2978

2977

;RKASOF (ATTENTION SUMMARY AND OFFSET)

2981

TATN7 ' ATNG ! ATNS ! ATNY ! ATN3 ! RTN2 ! ATNL ! ATNO !

2983

2985
2986
2987

2989

2991

gggg
2994

9
10
11
12
;
TWCLIS ! WCIY ' WC13 ! WC12 ! WCIl ! WCI0 ! WCS

2996

2976

2982

2984

2988
2990

2995

2997

gggg
3000

3001

!
'

sttt

RERD ONLY

;

i 7
S UN

6
! OFe

5
! OFS

Y
! OF4

3
! OF3

2
! OF2

1
! OF1

READ/WRITE

;

DWC7 ' WCE

;

! WCS

oo
memmm e mmecmeoooooceo—sssso——

; RKWC (uono COUNT)

0
! OF0

et ettt

! WCH

! WC3

RERD/WRITE

! WC2

! WC1

8
! WCB

! WCO

)

3002

3004

9
10
11
12
1M
;
'BR1S ! BAIY ! BA13 ! BAl2 ! BAll ! BAIO ! BAS

3003

3882
3007

3008

3010

SSié

3013
gg{g

;RKBR (BUS RDDRESS)

READ/WRITE

;

8
! BRB

ittt

P BA7 ! BAE
;

! BRS

! BAY ! BR3
READ/WRITE

! BR2

! BAl

! BARO !
'QLWYSO!

CZRENDO RKb611-06 SS VERIF 2
CZREND.P11
10-JAN-78 10:0S

JOS

MACY11 30RA(10S2)
10-JAN-78_
12:02 PAGE 62
BIT RSSIGNMENTS IN THE RKb11 REGISTESS

3016
ggig

;RKER (ERROR REGISTER)
; 15
14
13

3019
3020

; DCK ' UNS
;

! OPI

3021
3022

3853

;

3027
3028

3026

3029

;

! DTE
! WLE
READ ONLY

IDARE ! COE

! HVRC !
H

ee
bt D

3 7

30eS

SEQ 0061

BSE ' ECH

! DTYPE!

FMTE ! DRPAR!

READ ONLY

ILF

SKI

ILC

et ittt

;RKDS

3032
3033

sSVAL ' DSC
;

gggg

3038

‘DROY !

VvV

3040
3041

ittt

3034
303S

3Nn39

(DRIVE STATUS)

383?

' PIP

;

3047

;

382?

)

3052

TMIND ! MSP

! DMD

3048
3048

30583

! WRT

;GRTE !

;

! ECCW ! PCD

GATE !

jmmemesre

READ ONLY

! PCA
!

! DTP

(MAINTENRNCE REG_1)

RERD ONLY

3045
3046

! DROT ! SPLS ! ACLO ! OFSET!

;RKMR1

;

! SPON ! WRL
READ ONLY

3042

gg:a

! DRA

! MEWD ! MERD ! MCLK !
!

! READ/WRITE
oo

! PAT

! MS3

! MS2

! MSI

! MSO

REARD/WRITE

et ee s e mccecsese s s ss s s

!
!

CZR6ENDO RKG11-06 SS VERIF 2
CZRBND.P11
10-JAN-78 10:0S

KOS

MACY11l 30A(1052)
10-JAN-78_
12:02 PAGE 63
BIT ASSIGNMENTS IN THE RK611 REGISTERS

3055

s RKECC/PART

3058

SUN

3060
3061

gggg

P18

3059

READ ONLY

! EPRIO! EPAR9 ! EPAB !

3064

'EPA7 ! EPAB ! EPRS ! EPA4Y ! EPA3 ! EPA2 ! EPAl ! EPAD !

3066
3067

it t

3068

3825

3065

SEQ 00862

RERD ONLY

D ettt

: RKECC/POS

gggg

118

3071

S UN

3073
3074

A
e
L

gg;g

3077

SEPO7 ! EPOb ' EPOS ! EPQY ! EPO3 ! EPO2 ! EPO1 ! EPOO !

3079
3089

A
e L
s

3072

;

3078

gggé

UN
3

8
i

REA

sDRIVE STATUS INFORMATION
;LINE A MESSAGE 00

ggg;

P PAR ! DSC

! PIP

3088

3081

DROY !

! DRR

gggg

READ ONLY

! EPO12! EPO11! EPO1O! EPO9 ! EPOS !

3083

gggg

;18

! SPON ! WRLK ! OFFON! FMT

Y4
!

3
!

! DRTP !

! DRIVE SELECT CODE

CZRENDO RKB11-06 SS VERIF 2
CZREND.P11
10-JAN-78 10:0S

LOS

MACY!l 30A(1052)
10-JAN-78
12:02 PAGE &M
BIT ASSIGNMENTS IN THE RKb61l REGISTERS

SEG 0063

3093

:LINE B MESSRGE 00

ggg

! PAR ¢ UNS

3098

’

3101

FLT *ARCLO * IVDA !

3104

sLINE A MESSAGE 01

3187

! PAR ! UNLDG! RTZ ! LDG ! REV ! FWD ! SPEED! CART !

3109
3110

gggg

gggg
3102
3103

giog
3108

! DROT ! DCLO ! WLE

! SKI

HDS

!DOOR ' BRUSH! HEADS! TRK

3115

3118

:LINE B MESSRGE 0Ol

3121

! PAR ' SERVO! LIMIT! SEEK ! PLO

3124

3116
3117

giég

gigg

;15

3113

HOME

HOME 1}

3127
3128

'HEAD 'WR GTE'WR CUR! SEC
SFRULTIAND NO'AND NO! ERR
iXISTONIWR GTE!

Y
i

! PRES !

DRIVE SELECT CODE !
i

ettt

! DIBIT! INDEX! MULTI!
|

!
!

2
i

i BRAKE! ON SKINO MO ! ERR

Dttt

.7
:

FOLON'

gigg
gigg

:
'LTCH #

HOS

! PERR ! ILF

g{{é
3114

ERR !
2

!
i

ERR !HD SEL!
1

'
i
i

!
i
i

CZRGENDO RKG11-06 SS VERIF 2

CZRBEND.P11

10-JAN-78 10:05

MACY1l 30R(1052)

10-JAN-78

MOS

12:02

PAGE &5

SEG 00&Y

BIT ASSIGNMENTS IN THE RKb1l REGISTERS

gigé

:718

:LINE A MESSAGE

g}gg

P PAR !

3136

gigg

?133

5141

5
e e e e

! CYLIM_ER DIFF/OFFSET VALUE
Y

'CYLINDER DIFF/OFFSET VALUE!

e e e

DRIVE SELECT CODE !

s s e s s s ssssssse-

3142
g}:g

;LINE B MESSAGE 10
:
14

3i4s

P PAR ! ALIGN!

3147

L Tt
ittt ikt

gigg

3158]

3154

;LINE A MESSAGE 11

3157

. PAR !

g{g?

3%25

' DRIVE SERIAL NUMBER

3146

3148

3152
3153

)

CYLINDER ADDRESS

!
'

2
!

1
'

Rttt
bt

3{%2

3158
3159

149

DRIVE SERIAL NUMBER

B ettt

3164

DRIVE SELECT CODE !

3165

sLINE B MESSAGE

3168

P PAR !

3170
3:71

L
e
oA
PR R

gigg
3169

3172

3173

3174

gig?

3183
3184
218s
3186

DECODED HERD

! SECTOR!

ADDRESS

COUNT !

e
e
T ED S

3175
3176
3177
3178
3179

3182

.SBTTL
000000

000002
000004
000006
000010

RKCS1=

RKWC=
RKBAz
RKDR=
RKCS2=

SECTOR COUNT
D

e e

RKO& CONTROLLER REGISTER DEFINITION
0O

2
4
&
10

; CONTROL AND STATUS REGISTER 1

*WORD COUNT REGIS ER
:BUS ADDRESS REGISTER
:DESIRED TRQCK SECTOR REGISTER
:CONTROL AND STARTUS REGISTER 2

MRCYL1l

DRIVE COMMANDS
e Pt Bt Pt G

:PACK _ACKNOWLEDGE
DRIVEDCLEQR

;UNLOR

e P

;START SPINDLE
:RECAL IBRATE
,OFFSE

RELERS=
RDSTAT=

RDALHD=
CONCLR=
SUBCLR=
INTR=

; SEEK

REQD DRTA
HERDER

HRITE HERDER AND DRTA
{WRITE CHECK
FOLLOWING ARE NOT DRIVE COMMANDS BUT RARE USED BY THE DRIVER

SIMULARTE R SPECIFIC DESIRED OPERRTION

W Pt
e e Pt
o NNOLL
&) N
L—-0O

000140
000141
000164
000176
000177
000300

;SELECT DRIVE

WNNNRNM—r--=-0000
== N U= NUNW
= NN W+~

Do e P Pt P P

WRTCHK=

W NMN—=——
0000
= NG NN W= NN
—

; RELERSE DRIVE

!GET _ALL STATUS FROM DRIVE
:READ ALL HERDERS
'CONTROLLER CLEAR (BIT 1S OF CS1)
:SUBSYSTEM CLEAR (BIT S5 OF CS2)
:GENERATE INTERRUPT TO CPU

DRIVER

.SBTTL

ISSUED SERVICE COMMANDS

;ORIVE SELECT

DR.SEL= 001
DR.CLR= 00s

iDRIVE CLERR

CONTROL AND STARTUS REGISTER 1 BITS
D OO

000001
0ocoas

010000

BITle

I
I
I
b
I
I
1

-0

000001
000100
000200
000400
001000
002000
oo4000

O DDOODE

DOoONTCNEW—0O

et Pt Pt Pt P

WwWwWwWwiJWwwWwwi
oMY

Pt Pt Pt Pt

{ERROR REGISTER
'ATTENTION SUMMARY AND OFFSET REGISTER
;DESIRED CYLINDER REGISTER
OESIRED CYLINDER REGISTER
:DATA_BUFFER
{MAINTENANCE REGISTER 1
'MAINTENANCE REGISTER 2
iMAINTENANCE REGISTER 3
JECC POSITION INFORMAT I ON
{ECC POSITION INFORMAT ON
;ECC PRTTERN INFORNQT% 5 N
{ECC PATTERN INFORMATIO N

RKECPT=

SELDRv=

SEQ 0065

;DRIVE STATUS REGISTER

RKDS=
RKER=

.SBTTL

3220

NOS

10-JAN-78
12:02_
PAGE 6b
RKO& CONTROLLER REGISTER DEFINITION

30A(1052)

A=~

LWN—OW

WD DD D00 D DD DD

000ai2
000014
000016
000020
000020

Pt Pt Pt Pt Pt Pt Pt Pt ot Pt

WWWWWWWWWWW

CZRBENDO RK611-06 SS VERIF 2
10-JAN-78 10:05
CZRBND.P11

;GO _BIT

: INTERRUPT ENRBLE
{CONTROLLER READY
'eus ADDRESS BIT 17

; CONTROLLER DRIVE TYPE (0=RK0B,

1=RKO7)

:CONTROLLER TIMED OUT WAITING tOR
ORIVE RESPONSE

-CONTROLLER DRIVE FORMAT (0=22 SECTOR,

1=20 SECTOR)

CZR6ENDO RK611/06 SS VERIF 2
CZREND.P11
10-JAN-78 10:05

3243

3244
3245
gg:g

020000

040000
100000
100000

3248
gggg

000001

gggg

000020

000002
000004

gggg

3258

SPAR=

BITI13

;

THESE BIT DEFINITIONS ARE USED FOR ADDRESS

DI=
CERR=
CCLR=
:

3251

3252
3253

BO6

MACY11l 30A(1052)
10-JAN-78
12:02 PRGE 67
CONTROL AND STATUS REGISTER 1 BITS

B.BR16= BITO

B.BA17= BITI
B.CDT= BIT2

B.CFMT= BITY

000010
000010

DESL=
RLS=

3262

000040

CLR=

3263
3264
3265

3266
3267
3268
3269
3270
3271
3272

ggga

0000290

000040
000100
000200

000400
001000
002000
004000
010000
020000
040000

100000

gs;g

:CLEAR CONTROLLER AND ALL DRIVES

SCLR=
IR=
OR=

BITS
BITE
BIT?

8118
BIT9
BITIO
BIT11
BITl2
BIT13
BIT1Y

,aus ADDRESS INCREMENT INHIBIT

:CLEAR CONTROLLER AND ALL DRIVES
P INPUT_RERDY
:OUTPUT RERDY

UNIT FIELD ERROR
sMULTIPLE DRIVE SELECT
; PROGRAMMING ERR
NON-EXISTENT MEMORY
s NON-EXISTENT DRIVE
:UNIBUS PARITY ERROR
sWRITE CHECK ERROR

DLT=

BITIS

SBTTL

ERROR REGISTER BIT DEFINITION

ILC=

BITO

3279

000002

&kl=

BIT!

000004
000004
000010
000020

;MASK FOR DRIVE SELECTION CODE

BITS

BITH

000001

3280
3281
3282
3283

:CONTROLLER DRIVE FORMAT (0=22°'SECTOR, 1=20 SECTOR)
'DESELECT OR RELEASE DRIVE IN BITS 0-2
:DESELECT OR RELEARSE DRIVE IN BITS O-

BRI=

UFE=
MDS=
PGE=
NEM=
NED=
UPE=
WCE=

;BUS ADDRESS BIT 16

:BUS ADDRESS BIT 17
:CONTROLLER DRIVE TYPE (D=RKOb, 1=RK0?7)

BIT3
BIT3

3277

3278

'DRIVE INTERR
! CONTROLLER ERROR
:CONTROLLER CLEAR

CONTROL AND STATUS REGISTER 2 BITS

DRVMSK= 7

3259
3260

3261

;DRIVE BUS PRRITY ERROR DETECTED BY CONTROLLER

THE HIGH BYTE OF RKCS1

.SBTTL

000007

BITIY
BITIS
BITYS

-xILF=

ILF=
NXF=
DRPAR=
FMTE=

BITO

BIT2
BIT2
BIT3
BITY

'DATA LATE ERROR

; ILLEGAL FUNCTION CODE

*ILLEGAL FUNCTION CODE
; SEEK INCOMPLETE

;: ILLEGAL DRIVE FUNCTION
s ILLEGAL DRIVE FUNCTION
,DRIVE DETECTED DRIVE BUS PARITY ERROR
; FORMAT ERROR

3284
3285
3286
3287
3288
3289
3290
3291
3292
3293

000040
000100
000200
000400
000400
001000
002000
004000
010000
020000

DTYEz
ECH=
BSE=
HCRC=
HVRC=
COE=
IDRE=
WLE=
DTE=
OPl=

BITS
BITe
BIT?
BITSB
BIT8
BIT9
BITIO
BITIl
BIT12
8IT13

‘DRIVE TYPE ERROR
:ECC
HARD
:BAD SECTOR ERROR
:HEADER CRC ERRROR
‘HEADER VRC ERRROR
:CYLINDER ADDRESS OVERFLOW ERROR
:INVALID DISK ADDRESS ERROR
TWRITE LOCK ERROR
:DRIVE TIMING ERROR
+ovennxxon (SEARCH) INCOMPLETE

gggg

100000

DCK=

BITIS

:DATR CHECK

3294

3297

040000

SEQ 0066

UNS=

.SBTTL

BITIMY

;DRIVE UNSAFE

STATUS REGISTER BIT DEFINITION

CZRENDO RK611-06 SS VERIF 2
CZREND.Pil
10-JAN-78 10:0S

3299
3300

COb

MACY1l 30A(10S2)
10-JAN-78
12:02__PAGE 68
STATUS REGISTER BIT DEFINITION

000001

DRAR=

3304
3302
3303
3304
330S
3306

000004
000010
000020
000020
000040
000100

QFST=
BIT2
ACLO=
BIT3
SPDLSS= BITHY
DCLO=
BIT4
DROT=
BITS
Vv=
BITH

3309

000400

3307
3308
3310

3311
3312
gg{g

BITO

000200
000200

DRY=
DRDY=

BIT?
BIT?

004000

WRL =

BIT1l

020000
040000
100000

gg{g

DDT=

BIT8

DRIVE AVAILABLE (CONTROLLER IS SET IF
THIS BIT IS RESET

DRIVE OFFSET
:AC LOW
SPEED LOSS
:DC LOW
DRIVE OFF TRACK
: VOLUME VAL ID

;DRIVE READY
; DRIVE RERDY

DRIVE TYPE (0=RKO06, 1=RK07)
WRITE LOCK

PIP=
DSC=
SVAL=

BITI3
BITIY
BITIS

POSITIONING IN PROGRESS
{DRIVE STATUS CHANGE
:STATUS VALID

.SBTTL

MRINTENANCE REGISTER 1 BIT DEFINITION

ggig

000017

MESMSK= 17

; MESSAGE MASK

3319

000020

PAT=

BITH

;FORCE EVEN PARITY ON DRIVE BUS MESSAGE LINES

000400

MCLK=

BITS

.SBTTL

DEFINITION OF DRIVE STARTUS BYTE 00 MESSAGE A

S.DRR=

BITS

S.WRL=

BITil

; VOLUME VAL ID
:DRIVE RERDY
:ORIVE TYPE
:DRIVE FORMAT
:OFFSET
NRITE LOCK

S.PIP=
S.DSC=

BITI3
BITIN

POSI IONING IN PROGRESS
:DRIVE STATUS CHANGE

.SBTTL

DEFINITION OF DRIYE STATUS BYTE 00 MESSAGE B

3320
3321
3322
323

3324
3325
3326
3327
3328
3329
ggg?

000040
000100
000200
001000
002000
004000
010000
020000
040000
100C00

gggg
3334

3335
336
337
3338
3339

000040

010000

S.SPIN= BITI12

3342
gg:a

020000
040000

gg:g

3348
3349
3350
3351
3352
3353

3354

MERD=
BITS
MEWD=
BITIO
PCA=
BITil
CD=
BITl12
ECCW=_
BITI13
WRTGAT= BITIN
RDGRTE= BITIS

S.vv=
BIT?
S.DRY= S}T
S.TYPE=
BITS
S.FORM= BIT9
S.OFF= BITIO

004

3347

BITS
BITH
BIT?

000100
000200
000400
001000
002000

3340
3341

DMD=
MSP=
MIND=

000040

000100
000200
000400
001000
002000
004000

010000

S.ICyL= BITS

S.ACLO= BITH
S.FLT= BIT?
S.ILF= BIT8
S.PAR= BITS
S.SKI= 81710
S.WLE= BITI1l

S.SPLS= BITIR2

:DIAGNOSTIC MODE
{MRINTENANCE SECTOR PULSE
’HRINTENQNCE INDEX
NTENANCE CLOCK

HQINTENRNCE NCODED REARD DARTA
:MAINTENACNE ENCODED WRITE DARTA
: PRECOMPENSATION ADVANCE
: PRECOMPENSATION DELAY
;ECC_WORD 1S BEING READ OR WRITTEN
iWRITE GATE
READ GATE
;ORIVE AVAILIABLE

; ILLEGARL CYLINDER RDDRESS

{AC_LOW
iDRIVE FAULT
:ILLEGAL FUNCTION
{DRIVE DETECTED DRIVE BUS PARITY ERROR
:SEEK_INCOMPLETE
'WRITE LOCK ERROR

:SPEED LOSS

SEQ 0087

CZRGNDO RKb611-06 SS VERIF 2

CZREND.P11

3355

3356
gggg

10-JAN-78 10:05

010000

620000
040000

gggg

MACY11 30A(1052)

10-JAN-78

12:02

PAGE 69

DEFINITION OF DRIVE STATUS BYTE 00 MESSAGE B

S.DCLO= BITI12

§.0ROT= BIT13
§.UNS= BITI1H
.SBTTL

:DC_LOW

onxvs OFF TRACK
*DRIVE UNSAFE

DEFINITION OF DRIVE STATUS BYTE 01 MESSAGE A

3361

000020

S.XDOK= BITY

: TRANSDUCER OK

ggs
3368

88%888
009000

gi?u
= Efrxo
S.REV=
BIT1I

?E8R8

3362
3363
3364
3325

3369
3370
gg;é

000040
000100
000200
000400

010000
020000
040000

3373

§.HDHM= BITS
§.BRHM= BIT6
S.DOOR= BIT?
s.cga;: ex}g

§.LOAD= BIT12
§.RTZ= BITI3
§.UNLD= BITI1H
.SBTTL

*HEADS HOME
: BRUSHESHOME
‘DOOR INTERLOCKED
cgngnncfi INTERLOCK

Hsnos Lonoxnc
RETURN
TO ZERO
' HERDS UNLORDING

DEFINITION OF DRIVE STATUS BYTE 01 MESSAGE B

3375

00002

S.SECT= BITH

3377

000100

S.WGAT=

BITH6

3379

000400

S.MHD=

BIT8

MULTIPLE HERD SELECT

S.PLO= BITIll
S.NMOV= BIT12
S.LIMD= BITIi3

PLO ERRO
: SEEK RND NO_MOTION
:LIMIT DETECT ON SEEK

3376

3378

3380
3381

3382
3383
3384

gggg

00004

000200

001000
002000

004000
010000
020000

040000

gggg

S.WCLK= EITS

S.HOFL= BIT?

S.XERR= giTg
S.DIB=
T10

S.BRKE= BITI1M
.SBTTL

3389

000007

M.DRv=

3391

000003

M.ID=

3390

3392
3393
3394
3395

3396

100000

017760
017760
077770
000760

007000

M.PAR=

; SECTOR ERROR

PWRITE
;WRIT

CLOCK AND NO_WRITE GATE

GRTE AND NO TRANSISTIONS

; HERD FARUL

EEX
IBIT

RROR
RROR

: SERVO-BRAKE

COMMON MRSKS

;ORIVE CODE

;BYTE ID

BITIS

M.COIF= 17760
M.CADD= 17760
M.SER= 77770
M.SECT= 760

M.HERD= 7000

;PRRI Y

;CYLINDER DIFFERENCE/OFFSET
:CYLINDER ADDRESS
iDRIVE SERIQL NUMBER
:SECTOR_COUNT

HEQD DECOODE

SEQ 0068

PAGE 70

PARAMETER BLOCK ALLOCATION

K K K

SEQ 00&3

.SBTTL

HEHEEHOOHE
U
O
R R

R
Y I
T
TR
T
TR TR

N0 I K I I IR I i KB I B

R Y 0 R0

Y
E TE TR

DRIVE NO.

0
2
iy
i
B

SECTOR
OFFSET

i BUS RDDORESS (Lou 16 BITS)

i
i
i
i
i
i
i
i
P
i
i
i
i
i
¢
i

i 10

WORD COUNT (2'S COMPLEMENT
PROGRAM DRIVE STATUS xnronnntxon
COMMAND AND STATUS REGISTER 1
COMMAND AND STATUS REGISTER 2
WORD COUNT
IS ER
BUS noonsgg
STER
DESIRED TRACK nuo SECTOR
DESIRED CYLINDER
ATTENT]ON gunnnav AND DRIVE OFFSET
ERROR
REGISTER
STATUS
REGISTER
MESSAGE LINE A STATUS BYTE 0O
MESSAGE L}NE B STATUS BYTE 00
MESSAGLE L nE R STATUS BYTE 01
MESSAGE LINE
B STATUS BYTE Ol
MESSAGE LINE A STATUS BYTE 10

i
i
i
i
i

IR TR
TR

! COMMAND
!
i CYLINDER RDDRESS
i TRACK
!
iBA16~17,FORMAT , DRV TYPE!

i1e
i 1y
i 16
i 20
i 22

i 24
i 26

i 32
i 3y
i 3p
i 4Q
iy
i 4y
i 4g
i 50
i 52
i 5y
i Sp
i 60
i B2

MESSA
L%NE g TATUS BYTE 10
MESSAGE LIN
TATUS BYTE 11
MESSA
#§ns
TATUS BYTE 11
ECC POSITION INFORMATION
ECC PATTERN INFORMATION

l!!lll*llllllll&ll!!lllllllli!lflll!lll*l!ll*lilill

PARAMETERS PASSED TO THE DRIVER
-~

THE FOLLOWING DEFINITIONS RRE USED TO PRSS PARAMETERS

: COMMAND
CYLINDER ADDRESS
ECTOR
TRACK

OFFSET

£ru0

—

; DRIVE NUMBER

NN
L U—0

ocoo14

TO THE RKO6/RKO7 DRIVER

o
N
U]

000000

VTOVOUVVOVOUODVDOVOVY

;

; WORD COUNT

(

AND

TS 0-15)

17)

COMPLEMENT)

:PROGRAM DRIVE STATUS INFORMATION

000040

DRVDSC=

=t
i

000001

A
N LW~

PROGRAM DEVICE STATUS REGISTER DEFINITION
DOODDOD

s Pt

o Pt Pt Pt Pt Pt Pt

WWWWWwWwWwWww
Lfrrerrcrr

EOB

12:02
10-JAN-78
PARAMETER BLOCK ALLOCRTION

30R(1052)

MACY11l

[RTATANTANI
VAoV ST od STy
NUW =
G =
W =~ N
»—

CZRENDO RKE11/06 SS VERIF 2
CZREND.P11
10-JAN-78 10:05

;ORIVE IN USE

:DRIVE POSITIONING
DRIVE POSITIONED FOR DATA TRANSFER
{UNEXPECTED ATTENTION
:DRIVE HRS HARD ERROR
:DRIVE STATUS CHANGE DID NOT CLEAR

FOb

12:02_
PAGE
30R(1052)
10-JAN-78
PROGRRA M DEVICE STARTUS REGISTER DEFINITION

CMDTO=

000200
ooo400
001000

W.WCK=
NOCHK=
PBSVAL=

Pnnnnersk srnrus WORDSVAL ID

000000

(SET WHEN ERROR Tsnnxunrxon OR
_RERD STATUS COMMAND)

‘DROP DRIVE FROM TEST SEQUENCE

NLwh—o0

et D=4 P4

PARAMETERS PASSED FROM DRIVER TO PROGRAM

SATTENTION SET BUT DCS nno FAULT RESET
P
‘DRIVE SEIZED BY OTHER
:DRIVE UNLOADED DUE TO ER ROR
'PARAMETER BLOCK ENQUEUED IN INITIATION QUEUE
'INHIBIT BUS RDDRESS INCREMENT

THE FOLLOWING DEFINITIONS ARE USED FOR REGISTER RETUF"
»
FROM THE DRIVER TO THE CALLING PROGRAM

; COMMAND AND STATUS REGISTER |

c0
ee
Y4
26
30
3c
34
36

:COMMAND AND STATUS REGISTER 2
NORD COUNT REGISTER
:BUS % EGISTER
;DESIRED RQCK SECTOR REGISTER
:DESIRED CYLINDER REGISTER
TRTTENTION SUMMARY/OFFSET REGISTER
:ERROR REGISTER
:STATUS REGISTER

18]
5e

;MESSGGE A STRTUS BYTE 10
;MESSAGE B STATUS BYTE 10

;MESSAGE B _STRTUS BYTE 11

40
4o
4y
46

;MESSAGE
;MESSAGE
;MESSAGE
;MESSAGE

SY4

BYTE
BYTE
BYTE
BYTE

00
00
Ol
Ol

;HESSRGE A STRTUS BYTE

.SBTTL

PARAMETER BLOCK O FOR DRIVE

PARMO:

.BYTE

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

A
B
A
B

STATUS
STATUS
STATUS
STATUS

;ECC POSITION INFORMATION
:ECC PATTERN INFORMATION

60
Y]

.WORD

002656

.SBTTL

MM
DODm
VO—r——r—0
DO—=—-0O0

002630
002631

unxrs ron NRITE WRITE CHECK
NO_CHE
0 NOT SET INTERRUPT ENABLE

BIT8

DORPDRV=
NODSC=
DRVSZD=
€.UNLD=
Q.INIT=
DTBRII=

D
Q
o

000016
00000
000022
000024
000026
000030
000032

:NO TERMINARTION TO COMMAND FOR AT
!
LEAST 1 SECOND

Pt Pt Pt ot Pt Pt

002000
005000
010000
020000
040000
100000

SEQ 0070

DOOODD

000100

:D'UP'U'UTJ'D'U'D'U’U'U‘D‘O'UTJ?'U? ...

2463
3454
3455
3456
3457
3458
3459
3460
3461
3462
3463
3464
3465
3466
3467
3468
3469
3470
3471
3472
3473
3474

MACY1l

Pl D= bt

CZR&ENDO RKE11-06 SS VERIF 2
10-JAN-78 10:0S
CZR6ND.P11

; DRIVE NUMBER

O
O
O
O
O
O
O

: COMMAND
:CYLINDER ADDRESS
:SECTOR ADDRESS
: TRACK _ADDRESS
:OFFSET VALUE
:BUS ADDRESS (BITS 16 AND 17)
;BUS RADDRESS (BITS O - 15)

C
O
O
O
8

: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

; WORD COUNT

(2'S_COMPLEMENT)

CZR6NDO RKB11-06 SS VERIF 2
CZREND.P11
10-JAN-78 10:05

3509
3510

002660
002662

3517

0027

3519
3520
3521

002704
002706
002710

GO6

MRCY11 30R(1052)
10-JAN-78
12:02
PAGE 72
PARAMETER BLOCK O FOR DRIVE

000000
000000

.WORD
WORD

0000

WORD

212 D0ceee 099000
R
3518
80
674 §880
0
3516
002676
000000
3518

gggg

002702

002712

0000

000000
0060000
000000

gggg
3526

3527
3528
3529
3530
3531
3532
3533

3534

3535
3536
3537
3538

002714

002715
002716
002720
002721
002722
002723
002724

002726

002736
002732
002734
002736

000

000
000000
000
000
000

3543

3544
3545
3546
3547
3548
3549
3550
3651
3552
3553

gggg

9
0O¢

e PR hs RECISTER
R
e
e
vt 01
:nEggngE
LINE
3
ngTu
SYT
*MESSAGE LINE B STATUS BYTE Ol

WORD

'MESSAGE

.WORD

O
O
O
O

.BYTE

WORD

000000

BYTE
WORD

000000
000000
000000

WORD
WORD
WORD

000000

O
O
O
O
O

WORD

RED
TRA
E‘S&S”
SECTOR
REGISTER
ngi
EB
CYL
INDER
R?E?
9
ATTENTION SUMMARY/OFFSET REGISTER

0O
000000
000000
00
000000
000000
000000
000000
000000
000000

WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD
WORD

ggg;

CWORD

onxvs N1JMBER

: COMMAND
:CY'_INDER ADCRESS
'SECTOR ADDRESS
: TRACK ADDRESS
'OFFSET VALUE

:PROGRAM DRIVE STATUS INFORMATION
: COMMAND AND srnr S REGISTER 1
connnno AND nr¥s REGISTER 2

902752
002754
002756
002760
002762
002764
002766
002770
002772
002774

000000

BYTE 10

O
O
O

000000

002776

YTE 10

}BUS ADDRESS (BITS 16 AND 17)
:BUS ADDRESS (BITS 0 - 15)

002746

WORD

STATUS

O
0

000000

:ECC PATTERN INFORMATION

PARMl:

'BYTE
CWORD
BYTE
BYTE
BYTE

LINE

*MESSAGE LINE A STATUS BYTE 11
;MESSAGE L INE ? STATUS BYTE 11
*ECC POSITION
INFORMATION

PARAMETER BLOCK 1 FOR DRIVE

NORD OO
WORD
WORD
O

(002750

,nsggngs LiNE A grnvus

.SBTTL

3230
3541 005743
002744 909999
060
3542

:DESIRED CYLINDER REGISTER
"ATTENTION SUMMARY/OFFSET REGISTER

‘WoRD
s
ugng
WORD
WORD
.WORD
WORD

000000

O
O

SEQ 3071

O
O
O
O
O
O
O
O
O
O

:WORD COUNT

<a's COMPLEMENT)

oao COUNT

,ERR?R RSE£§T§R

:871AtTUS
SYER
'MESSAGE
LINE A STATUS BYTE
*MESSAGE
LINE B STATUS BYTE
:MESSAGE LINE A STATUS BYTE
‘MESSAGE LINE B STATUS BYTE
'MESSAGE LINE A STATUS BYTE
'MESSAGE LINE B STATUS BYTE
*MESSAGE LINE A STATUS BYTE
;MESSAGE LINE B STATUS BYTE
'ECC POSITION INFORMATION

90
00
01
Ol
10
10
11
11

*ECC PATTERN INFORMATION

.SBTTL

TEMPORARY CONTROLLER REGISTER STORAGE

gggg

003000

000000

T.CS1:

.WORD

reggg?gagnslonncs FOR COMMAND AND STATUS

ggg?

003002

000000

T.CS2:

.WORD

Tszgo?gngnsgonncs FOR COMMAND AND STATUS

3562

083804

00000

T.WCR:

.WORD

' TEMPORARY STORAGE

3Se4

003010

000000

T.DA:

.WORD

: TEMPORARY STORAGE FOR DISK TRACK AND SECTOR

3563

003006

000000

T.BA:

.WORD

' TEMPORARY STORAGE

FOR WORD COUNT REGISTER

FOR BUS ADDRESS REGISTER

CZR&NDO RK611.06 S5 VERIF 2

CZR&ND.P11

10-JAN-78 10:05

site GEIRIG BORRRR

MACY11 30A(1052)

10-JAN-78

R
.

ARY

o000
000
0000OC
000000

T.ER:
T.65:
TMRi:
T.MR2:

.WORD
.WORD
.WORD
.WORD

O
O
O
O

3573
2%

Q03030
003

goonD
00

1.P05:
T:PAT:

.WORD
'WORD

O
O

37z

377

003034

3576

003036

358]
2

Q03042
3045

3260

3583
3284
3285
3268
3287
3ce8

00000O

0DOOOD

T'MR3:

T.DB:

.WORD

RKBAS:

QoY
092532

RKPRI:
.WORD
R.NORM: ERRFRE

000210

003046
003050
003052

044200
043474
000000

RKVEG:

.WORD

TEMPORARY
TEMPORARY

STORAGE FOR
2TORAGE FOR

ECC POSITION
ECC PATTERN

TEHPORQRY 3TORACE FOR DATA BUFFER REGISTER
ADDRESS OF RKE11 UNIBUS ADDRESS BLOCK

210

nooness OF Rbll VECTO

noonsss OF ABNORMAL RETURN FROM DRIVER
' ADDRES3 OF CONTROLLER ERROR RETURN
{CONTROLLER ERROR STATYS

PRS

A.ABNL: ERRHDL

A.CONT: CONERR
E.CONT: WORD

renponnnv STORACE FOR MAINTENANGE REGISTER 3

177440

TEMPORRRY ETORAGE FOR ERROR REGISTER
! TEMPORARY STORAGE FOR DRIVE STATUS REGISTER
| TEMPORARY STORAGE FOR MAINTENANCE REGISTER 1
! TEMPORARY STORAGE FOR MAINTENANCE REGISTER 2

_SB*TL DRIVER PARAMERTERS

177440

003040

SEG 0072

TESERAEEY STAREEE FOR BORLR 0N e

]

Qoanie
003022
003024
003086

PAGE 73

TEMPORARY CONTROLLER REGISTER STORAGE

3568
328
3570
3271

3272

HO6

12:02

{RKE
1L INTERRUPT Pnfig
£s
RORMAL
RETURN FROM DRIVER

F - HIS LOCATION 13 CLEARED WHEN EVERY COMMAND
!
15 INITIATED.
IF A CONTROLLER ERROR

;

OCCURS THE FOLLOWING BIT ASSIGNMENT I

329]

000001

E.CCLR= BITO

"CLEAR CONTROLLER DID NOT CLEAR ERROR

000040

£ SCLR= BITS

suesvsvsn CLEAR DID NOT CLEAR DRIVE

3293
3233
3894
323g

000062
000004
000010
000020

E NGAT= BITI
E URTT= BIT2
E UDAT= BIT3
£ CLAT= BITY

3298
3239

000420

000100

E.ILLD=
BIT6
EOLT=
BIT8

3601

002000

‘OBAR= BITiO

3600

001000

3602

040000

3603

3605

3606

3607

3608

3610

BONTROBE§

RIVE

E.CMTO= BIT14

E.MDS=

BITIS

003054

000000

0.WAIT:

.WORD

003056

000400

W.MTIM: .WORD

000400

ILLEGEL
ORIVER COMMAND
DATA LATE WHEN UNLORDING HEADER

£{CERR= BITS

100000

003060

'NG_ATTENTION IN ATTENTION SUMMARY REG
P UNSOL ICATED ATTENTION (SEQUENTIAL ONLY)
' UNEXPEGTED DRTA TYPE ERROR
'ATTENTION DID NOT RESET WITH CLEAR

W.MILI:

.WORD

DURING DRIVER SERVICING

' CONTROLLER COMMAND TIME OUT (QUEUED ONLY)

'MULTIPLE ORIVE SELECT
O

40O
400

. PARAMETER BLOCK OF THE DRIVE

'WAITING FOR COMMAND COMPLETION

i (00P COUNTER FOR MILISECOND SCAN OF DRIVE
‘16 MILISECOND TIME FOR PROGRAM

3611
3612

:
;

3614
3615
3616
3617
318
3619
%620

!
:
:
;
:
:
:

3613

RROR

BETECTED PA

cPU

VALUE

11,05

100

11710
11720
11759
11740
11748
1150
1170

IIt=

400

CZRENDO RKb11-06 SS VERIF e
LZRBND. 11
10-JAN-78 10:05

MACY1l

30A(1052)
10-JAN-78
DRIVER PRRAMERTERS

106

12:02

PAGE 74

SEQ 0073

003062

000300

W.SEC:

.WORD

300

SECOND COUNT COUNT FOR ALL COMMARNDS

003064
003072

003000
030000
000000
000000

W.B8SEC:
W.MIN:
HDR.AD:
HDR.CT:

.WORD
.WORD
.WORD
.WORD

3000
30000
O
O

8 SECOND FOR DRIVE CYCLE DOWN
IMINUTE TIME FOR START SPINDLE
:ADDRESS USED FOR READ ALL HEADERS
NUEEER 8SDEEQDERS LEFT TO RERD FOR RERD

003074
003075
003100

000
00e
000

I.ISRL: .BYTE
H.HERD: .BYTE
W.TIME: .BYTE

O
2,4,10
O

: INTERRUPT OR RELEARSED COMMAND ISSUED
;HEAD DECODES
:DRIVES BEING WATCH-DOG TIMED

003102
003103
003104
00310S
003106
003107
003110
003111

INTMSK:

.BYTE

;

INTERRUPT MRSK

I.DRV:

.BYTE
.BYTE
BYTE
.BYTE
.BYTE

.BYTE
.BYTE
.BYTE

; INTERRUPT MASKS FOR DRIVE IN PRRAMETER BLOCK
TRBLE

1
2

4
10
20

40
100
200

PRARAMETER BLOCK TRBLE

PBLKT:

PRRMO

.SBTTL

TIME FOR WATCH-DOG TIMER

W.DRV:

WORD

XXDPCH:

.BYTE

; INTERRUPT MASK FOR DRIVE O
;s INTERRUPT MASK FOR DRIVE 1

; INTERRUPT MASK FOR DRIVE 2
,INTERRUPT MASK FOR DRIVE 3
; INTERRUPT MASK FOR DRIVE 4

: INTERRUPT MASK FOR DRIVE 5
: INTERRUPT MASK FOR DRIVE b
: INTERRUPT MRSK FOR DRIVE 7

; ADDRESS OF PRRAMETER BLOCK GIVEN WITH

:DRIVE CALL.

MUST BE LOADED INTO PBLKT

IME FOR INSTRUCTION IN PARAMETER BLOCK

.SBTTL PROGRAM OSPECIFIC RESERVEb
LOCATIONS
MDFLARG: .BYTE
;FLARG TO INDIC. DEFLT OR PRRAM MODE

REISSU: .BYTE
003141

.SBTTL

—
m

002630

000000
NN
—
NLWN—0D~N

INTERRUPT MRSKS

2+
<

po3ile

.SBTTL

WCEFLG:
DLTFLG:

.BYTE
.BYTE

0000000000 L£r000C00000

000

010

o
0
<
m
P
U'l

003101

oo4

EXCEPT START SPINDLE

IXXDP_CHRIN MODE FLAG
: CURRENTLY nunuxnc TESTS IF = 1
*DATR ERROR COUN
opsnnrxon COMPLETE FLAG
:DONE SWIT
:DRIVE TYPE 8 FORMAT CONTROL
DRIV FORHQT IN BIT4 OF BYTE
"ERROR COUNT
‘ERROR LIMIT
:ERROR_COUNT FOR CURRENT DRIVE
opsnnrxon CONTROL SWITCHES
‘IF BYTE=1, KWl1-P CLOCK IS PRESENT
FL G = 1 IF xXDP 1S POSSIBLY OVERLAID
= 1
FLAG

IF XXDP IS SAVED

'FLAG=1 IF DURL ACCESS TEST
:=] INDICATES ORIVE SIEZED BY OTHER PORT

'DUAL-ACC FLAG TO RE-ISSUE COMMAND

"WRITE CHECK ERROR FLRG
'DATA LATE ERROR FLAG

CZRBENDO TKBII06 SS VERIF 2
10-JAN-78 10:05
CZREND.P
003142
003143
003144
00314S
003146

003150

0Q3152
003154
003156
003160
003162
003164

000
000
000
000

003150
000000
177546
172540
172542
172544
000100
000104
000114

JOb

12:02 PAGE 7S
10-JAN-78
MACY1l 30A(10S2)
PROGRAM SPECIFIC RESERVED LOCATIONS

NORTRY:

.BYTE

HLPOVL: .BYTE
NOTYPE: .BYTE
WHDSW=B1T0
VFHOSW=BIT1
WCDARSK=BIT2
RCDASW=BIT3
OREQSK= IEH

O
O

.WORD

UBMPRS:

MEMABT: .BYTE

AUTOFG:

. WORD
LKS:
. WORD
PKS:
.WORD
PKSB:
-WORD
PKRB:
.WORD
LCVEC:
.WORD
PCVEC:
MEMVEC=114

177546
172540
172542
172544
100
104

SEQ 0074

; "NO-RETRY"” FLAG

= 1
;UNIBUS MAP PRESENT IF

SET BYTE = 1 FOR NO RB.~SRT

ON MEMORY PARITY ERRORS

HELP FILE OVERLAID INDICATOR
:INDICATES PROGRAM_JUST LOQDED IF O
:WRITE HEADER 8 DATA SWITCH
*VERIFY HEADERS SWITCH
:WRITE CHECK DATR SWITCH
'READ CHECK DATA SWITCH
:OFFSET REQUIRED SWITCH
; SPECIAL FLAG

KNll L CLOCK STRATUS REGISTER
WI1-P CONTROL AND STATUS REGISTER
i Nll-P COUNT SET BUFFER REGISTER
KWll-P COUNTER REGISTER
; KWil-L VECTOR STORRGE
KWll-P VECTOR STORAGE
MEMORY PARITY TRAP VECTOR

CZRENDO RKE11-06 SS VERIF 2
CZREND.P11
10-JRN-78 10:05
3698
3699
3700
3701
3702
3703
3704
3705
3706
3707

003166
003170
003172
003174
003176
003200
003202
003204
003224
00M4e

000CQC
00000
0900000
900000
000000
000
000000
000010
040
000400

3709

005232

000000

00S246

000000

005256

000000

3708

3710

3711

00Ss2

005240

3712

00Ses4

3714

005260

3713

3715

37i6

005262

005264

000000
000000
000000

000102

KO6

MACY1l 30A(10S2)
10-JAN-78
12:02 PAGE 76
PROGRAM SPECIFIC RTSERVED LOCRTIONS

000000

9000000
000000

TCONLO:
TCONHI:
SUMLOl:
SUMHI1l:
SAVPAR:
SAVWRD:
CYL:
CYLLST:
BSSOFT:
BSFACT:

.WORD
.WORD
.WORD
.WORD
.WORD

SEG 0075

.WORD

O
O
O
O
O
O
O
tD8B
tDeSb
$D256

0,0,0,0,0,0

;LO BITS OF CALIBRATION TIME CONSTANT
;HI BITS OF CALIB TIME CONS
;LO BITS OF FORWARD TIME SUM
;HI BITS OF FORWARD TIME SUM
; SAVE NORD FOR PAR CONSTANT
; SCRATCH
W
;STARTING CYL FOR MULTI-DRV TEST
;LIST OF PSEUDO-RAND CYL ARDDRESSES
;RECORD OF BAD SECTORS FROM SOF TWARE
;RECORD OF BRD SECTORS FROM FARCTORY

COMSTR:

.WORD

0,0,0,0,0,0

; CURRENT COMMAND STORARGE

PRMPLO:

.WORD

;PREV.

CRMPLO:

.WORD

; CURRENT U.B.

tDbb

; OUTPUT BUFFER 1

PRVCMD:

PRMPHO:

CRMPHO:

.WORD
WORD
.BLKW
.BLKW
.BLKW

.WORD

:PREVIOUS COMMAND STORAGE
U.B.

MAP REG O
MARP REG O

BUFFO:

BLKW

TRACK :

WORD

HOALI:
SCRACH:
PATRN:

WORD
.WORD
.WORD

FINSEC:
LASTWC:
MAHILM:

.BYTE
.WORD
.WORD

O
O
157776

iFINAL SECTOR RDRS
!ACTUAL FINAL WC
iMA UPPER LIMIT

MR:

"WORD
.WORD

RWBUF
O

L0 BITS OF PHYS MEM ADRS
HI BITS OF PHYS MEM ADRS

3717
3718
3719
3720
3721
3722
3723
3724
3725
3726
3727
3728

005470
00S472
005474
005476
005500
005502
005504
005506
005510
00SSie
00SS14
00SS16

000000
000000
000000
000000
000000
000000
0000
000000
0000
000000
000000
000000

LOWOCT: .WORD
HIGOCT:
.WORD
RECODE: .WORD
ERRCOM:
.WORD
DRIVE
WORD
STALLS: .WORD
CYLNOR:
.WORD
S:
WORD
S:
WORD
NCYL1:
WORD
NCYLZ:
WORD
OFINUS:
.WORD

O
O
O
O
O
O
O
O
O
O
O
O

:LOW 16 BITS OF CONVERTED BINARY NUMBER
‘HIGH BITS OF CONVERTED BINARY NO.
{RECOVERY CODE WORD
:ERROR_COMMAND
iNO. OF DRIVE IN USE
:CURRENT NO. OF UNIT STRLLS TO APPLY
: CURRENT _CYLINDER NUMBER
iFIRST SECTOR LIMIT
:LAST SECTOR LIMIT
iNEXT CYL SCRATCH WORD
'NEXT _CYL SCRATCH WORD
,OFFSET IN USE

3730
3731
3732
3733

00SSe2
00S
005526
00SS

00
000000
000000
0000

INTCHR:
.WORD
SELECT: .WORD
ONLINE:
.WORD
NEWON:
.WORD

O
O
O
O

;TTY INTERRUPT INPUT WORD
:ANY BIT SET IN LOW BYTE GIVES AUTO-SELECTED DRIVE NO.
{ANY BIT SET IN LOW BYTE INDICATES A DRIVE WAS ON-LINE
'NEW LOOK AT ONLINE DRIVES

3737
3738
3739
3740
3741
3742
3743
3744

005540
005542
005546
005550
00SSSe
00SSe64
00556t
005570

000000
000002
000000
000000
00000S
000000
000000
000

O
2
C
O
5§
O
O
O

:STARTING ADDRESS OF XXDP LORDER
; XXDP PHYSICQL SAVE RDDRESS
$(+) OFFSET VALUE
i(-) OFFSET VR UE
{SAVE INITIAL PARAMS FOR_XFER
iNO. OF WORDS RCTUQLLY XFERRED
:FINAL CYLINDER ADRS
:FINAL TRACK ADRS

3748

005576

000077

3729

3734
3735
3736

3745
3746
3747
3749
3750

g;gé

0055

005S
005534
SS

005571
005572
005574
005600
005602

005604

000000

0000
000000
000000

000
000000
157776
065660
000000

000002

XXDPAD: .WORD
XDPSAV:
.BLKW
PLOFST:
.WORD
NGOFST:
.WORD
SAVPRS:
.BLKW
WDSXFR:
.WORD
FINCYL: .WORD
FINTRK: .BYIE

PMA

WORD

.BLKW

O
O
O

; TRACK IN USE

; TRG USED FOR INTERNAL USE
,RLL-PURPOSE SCRATCH WORD
;DATA PATTERN LIST WORD

PRARTIAL TRANSFER MEMORY START RORS

LO6

PAGE 27
BgR(IOSE)
1 12:02
10-JAN-78
ROGRAM SPECIFIC RESERVED
RE
LOCATIONS

—

@
"4

005625

773 Bheess

Ipono

000002
0

ooo100

B02oE0

NMTSTS=<DFLTST-TSTLST>
2

ot
L whyr—

OF DEFAULT ITERATION COUNTS FOR ALL TESTS

000006

005662
00sebY
00Se66

onNLWwWnr—

—

000002
000002
000002
000002
ocooae
000100

m
7]

005656

O
P

TEST NOT RUN)
LIST OF ITERATION COUNTS FOR DESIRED TESTS_ (IF=0
RféMUM ALLOWABLE NUMBER OF ITERATIONS
= 7727276 (OCT)

—4

00S644
00S64Y4

m
w

005630
005630
00Se32
005634
005636
00S6e40
00se42

O=RKOb,

OF DRIVE TYPES,

TEST DRIVE)

NONLWwhu—~0

DON'T

DRIVE 0

Pt Pt P

.BYTE
.BYTE
"BYTE
"BYTE
.BYTE

Pt Pt Pt Pt P

OOSE

3785 B

(IF BYTE=0,

LIST OF DESIRED DRIVES TO TEST

BRVLS

00Se
00Se
00Se
0056
00Se

SEQ 0076

<
<<<<<'$‘
Xmmmmmm

MACY11

00000000

3754
375S
3756
375?
3758
3759
3760
3761

OU‘

CZR6NDO RK611/ 0
1
CZREND.P1

; TOTAL NO.

OF RUTOMRTIC TESTS

OPERRTING PARAMETER LIST

002000
c0000a0
000000
000002

fiR
LC
FT:

LT:

. WORD

.WORD

0
g

;sFIRST CYLINDER

LRST CYLINDER

iFIRST TRACK
:LAST TRACK

CZRENDO RKB11-06 SS VERIF 2
CZR6ND. P11
10-JAN-78 10:05

MACY11

MO&

30A(1052)
10-JAN-78
12:02
PAGE 78
PROGRAM SPECIFIC RESERVED LOCARTIONS

.fiogo

88278 388858

Re:
g?:

'5820
WOR

005706

PROFLT:

0056;0

8REE7

000000

005676
005700

83271

2):
§3:

005?734

860008

000000

000000
000000

.WORD
“WOR
CWORD
WORD
WORD
WORD
WORD
JWORD
WORD
"WORD
JWORD

000000

LWORD
-WOR
"WOR
WORD
WORD
"WORD

O
0
O
2
O
23
O
25
O
O
O

! NUMBE

:FC
‘LC
'FT
‘LT
S0
:S1
152
'S3
"PT
:CS
'ST

NIT H WORD
NIT

DEFRULT
DEFRULT
DEFAULT
DEFRULT
DEFAULT
DEFRULT
DEFAULT
DEFAULT
DEFARULT
DEFAULT
DEFAULT

WORD
WORD
WCRD

WORD

041506
041514

.ARSCII
.ASCII

;LC LIMITS
FT LIMITS

.50 LIMITS

O
23
O
Ss

:S1 LIMITS

177777
O
0000682

177777

-ASCII PARAMETER MNEMONICS

PRMNEM:

:FC LIMITS

/FCs
/LC/

)

SECTOR FMT

S CTOR FM
ECTOR FMT

PATTERN SELECT WORD

DRTR
L
CONTR

LT LIMITS

IF 20(DEC)

i'LAST
ARl SECTOR
SECTO IF aatoscm szcron FMT

"WORD

WORD

177777

O
0
0
O
O
2

WOR
WORD
WORD
WORD
JWORD
WORD
- WORD

-WORD

006010
00e010
0oe012

AST SECT

OPERQTING PARAMETER VALUE LOW AND HIGH LIMITS

PRMLIM

-WOR

006006

0
8

;FIRST SECTOR

-DEFAULT OPERATING PARAMETER VALUES

000002
0cooao
000023

005730
005732

- HORD 8

- WORD

SEQ@ 0077

;52 LIMITS

;53 LIMITS

PT LIMITS
:CS LIMITS

:ST LIMITS

STALLS

CZR&NDO RKB11/06 SS VERIF 2

CZRENG.P11
3866
3867
3868
3869
3870
3871
3872
3873
3874

3875
3876
3877

006014
006016
006020
006022
006024
006026
006030
(06032
006034

10-JAN-78 10:05

3880 006036

3882
3893
3894
3895
3886

3837
3898
3899

006036
006040
006042
006044
006046
006050
006052
006074
00F.._6
006050
006062
006064
006066
006070
006072
006074

177777
177777
177777
052525
052525
052525
1772777
177777
052525
052525
177777

3919
3920
3921

.ASCII
"RSCIT
.RSCII1
.RSCIT
.ASCI1
"ASCIT
.RSCI1
.ASCII
"ASCII

baT00:

052525
177252
177252
172765
172765

006676
006100
006102
006104
006106
006110
006il2
006114
006ile
006120
006l22
006i24
(006l26
006130
006132
006i34

/F1/
L1/
S0/
/S1/
/S82/
/S3/
/PT.
¢S/
/ST/

1777277
177777
177277
052525
052525
052525
177777
172772
052525
052525
177777
052525
177252
177252
172765
172765

:DATA PATTERN Ol

3901

3902 006076

NO6

12:02

:DATA PATTERN 00
HI-LO FREQ. MIX

3900

3303
3904
3905
3906
3307
3308
3309
3310
3911
3912
3913
3914
3915
3916
3917
3918

10-JAN-78

000000
000000
000000
177777
177777
177777
000000
000000
177777
177777
000000
1?77?7277
000000
177777
000000
177777

PAGE 79

PROGRAM SPECIFIC RESERVED LOCARTIONS

052106
052114
030123
030523
031123
031523
052120
051503
052123

3878
3879

3881
3882
3883
3884
3885
3886
3887
3888
3889
3890
3831

MACY1l 30A(10S2)

BATOL :

HI FREQ. PHARSE MIX
000000
000000
000000
177727
177277
1777277
000000
0000600
177727
177777
000000
17272777
000000

177777

000000
177777

SEG 0078

CZR6ENDO RKB11.06 SS VERIF 2
CZREND. P11
10-JAN-78 10:0S
3922
3923

3824

006136

:DATA PATTERN 02
:
LO FREQ. PHRSE MIX

3925
3326
3927
3328
3929

006136
006140
006142
006144
006146

052525
052525
062525
125
125252

3931
3332
3933
3934
3335
3936
3337

182
006154
006156
006160
006162
006164
006166

(052525
052525
125252
125252
25
125252
25

3930

3338
3939
33490
3941
3942
3943

3944
3945

3946

3947
3948
3949
3ssQ
3951
3352
3953
3954
3955
3956

3357

3958
3959
3960
3961
3962
3963

006150

006170
Q06172
006174

006176

3968

3369
3370
3971
3972
3973
3974
3975
3976
2977

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

125252
052525
125252

;DATR PATTERN 03
:
MAX. PRECOMP.

133333
066666
155555
155555
133333
066666
066666
1555ES
155555
133333

006224
Q006226
006230
006232
006234

133333
133333
133333
133333
133333

PATO3:

133333

3964
3965
3966

3967

paTO2:

125252

006176
006200
6202
04
(06206
006210
12
006214
(06216
20

006222

BO7

MACY11 30A(1052)
10-JAN-?8
12:02 PAGE 80
PROGRAM SPECIFIC RESERVED LOCATIONS

133333
066666
155655
186565
133333
066666
066666
165555
185555
133333

133333

133333
133333
133333
133333
133333

;DATA PATTERN 04

006236

006236
006240
006242
006244
006246
006250
006252
006254
006256

121105
150442
064221
132110
DSS04M4
026422
013211
105504
042642

PHASE MIX

PATOY:

ROTATING BOUNDARY PULSE PRECOMP.

121105
150442
o421
132110
055044
026422
013211
105504
O42E42

SEQ 0079

CZR6NDO RK611/06 SS VERIF 2
CZR6ND.P11
10-JAN-78 10:0
006260
006262

MARCY1l

3gQ(ICSE)

T AeseAVéB

CO7

L oCATTond

0e1321
110550

88E3E¢ 823732
006270

006e7e

006274

o42213

;DATA PARTTERN 0S
ROTATING CELL PULSE PRECOMP,

0264SS
113226
045513

BaTOS:

02645S
113226
045513

132264
055132

Pt
et et (e

s P

LfLLLT
XL L L
000000000

Dt Bt

DO NN
LW -

; DATA PRTTER; 06
000000

006364
005398
0063
006372
006374

EROS

BATOE:

000000

:DRTA PA TTERN Q7
00637¢

PaTO7:

ALL

ONES

SEQ 0080

CZR6NDO RKb11-06 SS VERIF 2

CZR6ND.P11
4034
4035

10-JAN-78 10:05

376
006400

177777
177777

06404
006406
006410

177777
177777
177777

MACY1l

30A(10S2)

10-JAN-78

805402

4040
o4l
4o42
4o43
4044

006M12
006MIM
006416
006420
0064 s

177777
172777
177777
177777
172277

177777
177277
177277
1777277
177777

4o4e
4047
4o48
4049

O0064se
006430
006432
006434

177777
177777
177777
177777

1772777
177777
172777
177777

Y 42

40s0
qogx

48 S
405

4054

Q064

006436

1772727

177227

1777277
17277277
1777277

172727

172227

;DATA PATTERN 08
:
SHIFTED 1

40SS
40S6

00e436
006440

000001
000002

4060
4061

006450
006452

000040
000100

482-30

o' 1088

PATOB:

SRRt
008020

:ose

088300

:oss

oos:ss

4068

000040
000100

008500
U

002000

801088
083000

000

020000

100000

15 Beelel proRte
u40e9

4070
4071
4072
4073
4074

4075

4076

4G?7?
40?8
4079
4080
4081
4082
4083
4084
4085
4086
4087
4088
4083

006472
006474

jo8%8

040000

;DATA PATTERN 09

006476

006476
006500
006502
0
4

006Si2

006Si4

006520
006522
006S24
006526

177776
177775
177773
177767
177757
177737
177677
177577
177377
(76777
175777
173777
167777

IN FIELD OF ZEROS

000001
000002

e Rl fasens
4828
B4Y46
0058
006454

PAGE 82

17277277
1727727

4039
403
4038
4029

12:02

PROGRAM SPECIFIC RESERVED LOCATIONS

PATO9:

SHIFTED 0
177776
177775
177773
177767
177757
177737
177677
177577
177377
176777
175777
173727
167777

IN FIELD OF ONES

SEQ 008!

CZRBENDO RK611-06 SS VERIF 2
CZREND.P111
10-JAN-78 10:0S
4090
4091
4092
4093

006530
006532
006534

MACY1l

EQ?

30A(1052)
10-JAN-78
12:02
PRGE 8 3
PROGRAM SPECIFIC RESERVED LOCATIONS

157777
1372777
sYararardrg

187777
137777
077777

;DATA PATTERN 10
ALTERNATING 0O-1

BaT10:

052525
052525

Bt s

s Bt Bt

frrfLfrrrfL

0 Pt Pt s Pt s Pt Pt et Pt Bt Pt Pt Bt et Pt Pt Bt

it Pt Pt et Pt Pt Pt (ot Pt e Bt Pt Pt Pt B

L rrLrrLrfrLLrLLLrrrlLLLELLLLELCLEL

LLLLL LWWWWWWWIWL . MIMNIMITININININU NNt 0 bt b et bt e st e e O O O

s et Pt P Pt

m.cum»—o.om\wvm:wm»—-o.om\w"m:wm-—oamvwm:wm»oomvgagag

052525

006574

052ses

052525

;DATR PATTERN 11
006576
006576

125252

006634

125252

006636
006636
006640
ooee42

PaT1l:

~.TERNARTING

1-0

1
l2
;DATAR PATTERN
SHIFTING ZEROS AND ONES

000001
000003
000607

PaTia:

000001
000003
000007

SEG 0082

CZRENDO RKB11-06 SS VERIF 2
CZRBEND.P11
10-JAN-78 10:05
Y4146
4147
4148
Y4149
4150
4151
4152
4183

4164

4155
4156
4157
4158
4159
4160

416i
Yyl62
4163
4164
4165

Y4le6
4167
4168
4169
4170
4171
4172
4173

4174
4175

Q06N
006646
0066
006652
Q06654

FO7

PAGE 84
12:02
30A(10S2)
10-JAN-78
PROGRAM SPECIFIC RESERVED LOCATIONS

000017

000017
000037
000077

07?2777
17272777

0777727
1772777

006660

(00666M

006666
006670
006672
006674

+DATA PATTERN 13
COMPOSITE ROTRTING

PAT13:

006676
006676
006700
006702
006704
006706
006710
006712
006714
006716

006720
Q006722

4176
4177
4178
4179
4180
4181
4182
4183
4184
4135
4186
4187
4188
4189
4190
4191
4132
41393
4194
4195
4196
4197

006736
006736
006740
006742
006744
006746
0067S0
0206752
(006754
006756
00t”60
D0E6762

4200
4201

006770
006772

4198
4199

MACY1l

006724
006725
006730
006732
00734

;DATA PATTERN 14
000000
000000

Q0676M
006766

000000

PATIY:

PSEUDO-RANDOM (COMPUTED BY PROGRAM)

SEQ 0083

CZR6N00 RK611/06 SS VERIF 2
CZR6ND.
P
10-JAN-78 10:05
4202

006774

MACY1l

GO7

. WORD

000000

-g?ER-DEFINED DRTA PATTERN

PATIS:

167230

; WORD 0O
; WORD
01
Qe
; WORD
; WORD 03

164616

35646
016723
107351
143564
geleze
030735
114356
046167
123073
151453
164616

; WORD
; WORD
; WORD
WORD
;WORD
; WORD
WORD
; WORD
; WORD
;WORD
; WORD

143

461

73514

85224

MINLOI $D24375

0S7467
000000

NHI1=0
MQXLOI $1025625
MAXHI 1=0

MRXLOE +08000
S
=0
MQXLO
$+038000

MAXHI3=0
MAXL04=1D3464
MAXHIY=1
RNDSHT:?DISOO

RNDLNG=¢D7500

;HI BITS OF SPEC’D
;LO BITS OF SPEC’D
;HI BITS OF SPEC’D
;LO BITS OF SPEC’D
i HI gITg OF
PEC’B

LRATENCY
LATENCY

ROT.
ROT.

CYL SEEK TIME
SEEK TIME
CYL

VG SEEK TIME
;L0
BITS
OF
SPEC’
AVG SEEK TIME
;HI EITS 8F SPEC’D
X 410 CYL SEEK TIME
;LO
BITS
OF SPEC’D
;HI BITS OF SPEC’D MRX 410 CYL SEEK TIME
,SHORT RANDOM SEEKS
= 1500(10)
; LONG RANDOM SEEKS
=“7800(10)

iDATA CHECK ERROR
;ECC_NON-CORRECTRBLE
NRIT$ CHECK ERROR

BADSEC=BITS

TWOTOS=BITI10
RCLREG=BITI1
DRNRVL =BIT12
ANYDER=BIT15S5
055103
000060
051040
0s1057

;LO BITS OF SPEC’D

DCKERR=BI T4
ECCNC=BITS
WCERR=BITHE

LEV2ER=BIT8

005015
042116
026440
030461

0S5
06
07
10
11
12
13
14
15
16
17

:LAST TRACK =
:ALIGNMENT CYLINDER =245(10)
:BSE _ERROR

ABORT=BIT7

100000

+ WORD 04

LSTTRK=2
ALNCYL=365
BSERR=BIT1

HVRCER=BIT2
OPIERR=BIT3

007036
007044
007050
007056

072307
135143
156461
167230

072307

007030
007032
007034

SEQ J084

12:02
PAGE B85
10-JAN-78
PROGRAM SPECIFIC RESERVED LOCATIONS

30R(10S2)

;HVRC ERROR
;OPI ERROR

'LEVEL TWO ERROR

;i BAD SECTOR FLRG

;TWO TIME OUTS
:RECAL IBRATE REQUIRED
:DRIVE NOT RELSD BY OTHER PORT
{ANY ERROR DETECTED FLAG

033122

DZReN:

.ASCIZ

<«15><12>/CZRBENDO/

033113
030113

SUBVER:

.ASCIZ

& - RKB11/RKOBE-RKO?7 SUBSYSTEM VERIFICATION

PART

¢ < RBNDO RKb11/06 SS VERIF 2
c ZRb
END.P11
10-JAN-78 10:08
026466
OSIHHS

4258
4259

g4sse2

MACY1l

HO?

SEG 008S

12:02
PAGE 86
1 0-J AN -78
PROGRAM SPE CIF IC RESERVED LOCRTIONS

30A(10S2)

033460

osz2122

051501
051531

£
o

—0ONL£~-0O0
OO0O—0wW-—-o
UV
N
Qo 12 O 02 bt bt b e L

00040
040S14
042101
024040
047040
000
NS3117
050104
020113
042040

JE IERRSRANIRRNSZ
&3 SR

ZREZAER RRADRRE

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

LSTHEN

848440
/OVERLAY

OVLODR:

XXDPME:

.ASCII

LOADER

(Y OR

/REMOVE XXDP PACK FROM DRIVE,

INSTALL SCRATCH /<¢15><12>¢377>

00S015
.RSCIZ /PACK,

343443

1719 <12
2/7<¢1S
2>

ANN

4263
4264

AND HIT CONTINUE TO PROCEED.~/

047117
020105

023122
053523
000

007530

040
036440
005015
024523
0S1104
020040

—

=
n

047040
000040
051104
036440
053111
000

.RSCIZ

(15>
12> /PARAM INPUT MODE/<1S><l2><1e>

030055
020123
020075

RKBARDR:

.RSCIZ

/RK06-07 BUS

RDR

026466
041505
036440

RKVADR:

.ASCIZ

/RK06-07

VEC

RDR

03005SS
047511

RKPRTY:

.ASCIZ

/RK06-07

PRIOR

02007S

SWRMSG:

.RSCIZ

/SWR = /

053505

NEWMSG:

.ASCIZ

024126
000040
020105

DRVSEG:

.RSCIZ

€15><12>/DRV(S)

BRODRV:

.RSCIZ

/DRIVE

042504

(=} L
£ oOow

047

PRMINP:

N0 oON—Un
OO
r=r=N)
mPoOPN—-O

Q42105

=~/

NEW =

= ~/

CZRENDO RKB11-06 SS VERIF 2
CZRBND. Pl
10-JAN-78 10:05

007533
007540

107

10-JAN-78
12:02
PRARGE 87
PROGRAM SPECIFIC RESERVED LOCATIONS

SEQ 0086

MACY1l

30AR(10S2)

042455
00s015

NXDRIV:

.ASCIZ

/NON-EXIST/¢15>
(12>

0s1040
0

NTREDY:

.ASCIZ

/NOT RDY/<15><12>

WRTLOK:

.RASCIZ

/URT-LOCK/<15>
<12

ALNPAK
:

.RSCIZ

/LORDED WITH ALIGN PACK/<¢15>
12>

NODRTS:

.QSCII

(15><12><12>
/%% NO DRVS TO TEST/<1S>
12>

CNTRDY:

.ASCIZ

/PRESS "CONT" WHEN RDY/<¢15>¢12>

HLTRQOD:

.RSCIZ

/7HALT

ALDRVS:

.ASCIZ

C1S><12>¢<12>/T0 TEST ALL DRVS TYPE *"R"TM (CR>, ELSE <(CR>/<(1S><(12>/% s

TSTMDS:

.ASCII

<(1S><12>/L = LIST TESTS/<1S
12>

.ASCII

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

.RSCIZ

/1 = INPUT PARAMS,

RUN TESTS/<15><¢12>

ENTLCI:

.ASCIZ

(15> <12>/ENTER L,C,

OR I/<1Sx<12>/% /

043105
052040
052040
020104
020054
036040

DFTEST:

.RASCIZ

7/TO DEFAULT TESTS TYPE D <CR>,

052123
044440

TLSTHOD:

.RSCIZ

(15> <12>/TEST

REQ/<1S><1le>

gesole

020075
052040
005015
044103

052040

QBN’—HO\JU’U‘

e
Bt Pt Pt Pt Dt Pt Pt Pt Pt Bt
Pt Bt Pt P
$s hn Bt Pt ot P

000000000000 000000000
PUTUN) b bt e st st pe e e e pe = D) O O 0000
—QONO
NL
LW
LR ECON Lo
LoronLeoco Lo

0000000000000 000000000

010014

026103
006511

042523
006476
020040

o42524
020040

ELSE (CR>/<1S><12>/% 7

gesole

ITERATIONS/<
15> ¢12>

Qu4aseM

047117
005015

040Se2
006523

036040

654
657
eb4
e72

020052
01S
026522
040s20

MACY1l

044524
0000le
020075
0S0040
046040
0le
047440
040520
o44514

Ja7

SEG 0087

30A(1052)
10-JAN-78
12:02
PAGE 88
PR OGRAM SPECIFIC RESERVED LOCATIONS

.RSCII

15><12>/T =

.ASCII

/0 = OPEN PARAM LIST/¢1S¢12>

042523
044504
04610l
046501

.RSCII

/S = SET INDIVIDUAL PARAM/<1S5><¢l12>

052s22
us2123

.RSCIZ

/R = RUN TESTS/<1S><12>

EXPLAN:

TYPE PARAM LIST/<¢1S>¢i2>

Q4e524
026117
020122

PARMDE
:

.ASCIZ

(15><¢12>/7ENTER 7,0,5,

OR R/(15<12>

0Ses04

DURCES:

.RSCIZ

<15>(12>/% DURL-ACCESS DATA TEST #/<15<12>

MAWRDC:

.ASCIZ

/MRX WORD COUNT = /

030123

SECNL1:

.ASCII

se%

Q20124
042527

NOTALD:

.ASCIZ

7/ NOT ALLOWED/<15><1a>

031123

SECNLZ:

.ASCIZ

/%%

S2>S3/

0se210e

TRKNLW:

.ASCIZ

/2%

FDOLT/

Q41527
040515
046040
00s015

WC2BIG:

.ASCIZ

/%%

WC OR MR TOO LARGE/<«1S><l1&>

042504

DFQUES:

.ASCIZ

/TO DEFAULT ALL PARAMS,

PFIFTN:

.ASCIZ

>< PATT 15 :/(1S><12>
12> /USER-DEF
<15

SO>S/

TYPE D <CR>,

(o]
£
n
=N

Q=0+
—N)
onLwonsen

-—
—

(=]

[1a]

|=]
=]
N
n

os4s2e4

00
£Lr
Qoo
N
no
N+

—

N e
e
e e ey
T e
o e

4419

e e

4411

IU"DE N 2rSRESRES £

4374

4375
4376
4377

220

226
234

M)
s e

4372
373

COO0000000000000DDOO0O000000000000000000O00O0D00000O0O000D0000D0D

4370
4371

T mrwtwhwlatertwretuteteretetetaeotetedetetetetetetototetadutatoig

CZRENDO RK611-06 SS VERIF 2
CZRBND.P
10-JRAN-78 10:05

00s5015S
Q42523
020106
030440

ELSE <CR>/<15>X<12>/% 7

et et Pt Pt ot Pt s ot Pt P Pt ot Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt ot s Pt Pt Pt Pt Pt Pt P 000

MACY11l

0oo0le

KO?

PAGE 89
12:02
30R(1052)
10-JAN-78
PROGRAM SPECIFIC RESERVED LOCRTIONS

SEQ 0088

SELP1S:

.RSCIZ

<15><12>/7M0D PATT

MODFY15:

.ARSCIZ

/TO MOD PATT

ENTPRS:

.ASCIZ

(15><12>/7ENTER NO.

DROPDR:

.RSCIZ

<1S5><¢12>/%%

TSTORN:

.ARSCII

(15><12><12>/TESTING DRV s

1S,

:/<15<12>

TYPE M <CR>,

ELSE

<«CR>/<15)<12>/% /

R I R Y o | Q0000000000 N

mgrf,ggggagoummmx
LWN——-00
onLo—-oon
IU‘DUNE

0200S2

o4e4l2
047040
020106
051505
033467
035040
000
gesgie
Q47522

0S2lle

OF PRSSES (1-77777)

:/<15><1e>/% /

033467
00s015
0200Se
gsalze

DROPPING DRV - 20 ERRORS/<1S><12>

051117
05150S
042040

[ AV [V 1 VT V] VLY oY oy S e S O S U
WWNY
== QNN N
Cr—Lo—LNNL
O

gsza122
0S110S
020056
040S06

000
000040
020056

ARAR
Y EP -2
/7DRV
/7CART. /

020056

/SER.

NO.

FRCTBS:

.ASCIZ

C1S5><12>/FACTORY

SOFTBS:

.ASCII

<12>/SOFTWRRE ~

BDSECT:

.RSCIZ

/7BRD SECTORS

047040

NOFARLS:

.ARSCIZ

pa7412
026524
044501
046440
0oe472
o41801
0N6131
0415S0S
043117
047455

OFSHED:

:/<15><l12»

NONE~/

I'UTU*"D\JB)U‘U'I-II

Wwwwnnnnun

Yoy e
Y
Y

Pt et ps ot s

4460
4461
4462
4463
4464
4465
4466
4467
4468
4469
4470
4471
4472
4473
4474
4475
4476
4477
4478
4479
4480
4481

s B

4459

006472
047515
gselay
006472

766

4457
4458

qyy
]
4442
4443
qy44
4445
4445
4447
4448
4449
4450
4451
4453
4453
4454
4455
4456

0000000000

4437
4438
4439
4440

020065

4431
4432
4433
4434
4435
4436

4426

4427
4428
4429
4430

0000000000000 00000000OO000O000O00000D0000D0O0O00

CZRENDO RKell/ 06 SS VERIF 2
CZR6ND. Pil
10-JAN-78 10:08

020010

.MESSAGES USED

.ARSCII

.ASCII

IN OFFSET-TO-FRILURE TEST

>
(12>
RILURE MERS :/<15><la
¢12>
(12> /0FFSET-TO-F
(15>

/TRACK

CYLN

SECT

+0FST

-=QFST/d1S>d12>

CZRENDO_RKG11,06 SS VERIF 2
CZREND.P11 ~ 10-JAN-78710:0S

MACY1l 30A(1052)
10-JAN-78
12:02
PAGE 90
PROGRAM SPECIFIC RESERVED LOCATIONS

4482

011334

006524

4484
4485
4485

Q011394
011352
011366

052950
024090
005015

4489

011363

000

4431

Q11365

015

005012

025052

106

0S1117

044040

042520

Q44040

020054

4483

4430

011337

011364

011

000

012

LO7

020011

047111
044525
000

4432
4493
J434
4495
4495
4497

Q011372
0I1400
Olidoe
QL1414
Q11422
011430

020052
030055
Q42101
04
025040
000

4439

Q11436

Q46105

011452
011460

(046105
051103

042523
006476

020114

051117

4498

4500

4501
4502

Q11431

QL1444

4503

011466

046412

4805
4506

OlisOz
011510

Qsoipe
092504

4504

011474

045522
020067
Q4Q4MQ
4o440
025052
020120

020040

JRSCIZ

020051
024516

UNLOD:

.BYTE

.ASCIZ

FORHMLP:

.ASCIZ

/FOR HELP TYPE H,

TYPMOD:

.ASCIZ

<12>/MANUAL OR AUTO MODE

Queudo

TYPMAN:

.ASCIZ

<12><12>/% MANUAL SELECT MODE #/<1S>¢12>

051105

ENTDRV:

.ASCIZ

<12>/ENTER DRV NO.

NOTRDY:

.ASCII

/%%

DRNROY:

.ASCIT

LRSCIZ

WHEN DRV IS RDY,

DRV

0S4S24

036040
000012

047101

040525

Q20117
024040

QY7siS
020115

Q4O94D

040440
000

4510
4511
4512
4513
4514
4515
4516
4517
4E1g
4519

011534
011542
011550
011556
011562
011570
011576
011604
Q11612
011620

ou47101
Q42523
046440
006452
Q42412
042040
027117
024467
025052
020126

04
042514
042117
000012
052116
053122
024040
006472
020040

047040
026460
0000I2
O0OSI1104

4521
4522
4523
4523
4535
4536

0116
011636
011644
Qllese
011660
011666

42122
0SI440
042040
0colge
051523
005015

Qu7S1e

020131
040524
D0S3122
Qd25le
051101

020124

4528
4529
4830
4831
4532
4533
4534
4835
4536

011676
Q11704
Qlizl2
011720
Q11726
011734
Q011742
011744
011752

047105
Q44440
Qge)dl
0S1523
052116
091440
000012
025052
020126

042040
020123
0S00WQ
021040
020042
052520

053182
042182
Qyesol
047503
047117
006456

020040

051104

NONEXD:

.ASCII

/%%

047516

0265lc

DRVNED:

.ASCIZ

4520

4527

4837

Qlibeg

011670

0117549

020040

g2s0ig

020040

VERIFY_MODE FLAG

<155<12><12>/%%% RKO6-07 HEAD ALIGN AID #¥%/<15> (12>

051117
005015

0j°

;DRIVE UNLOADED INDICATOR

IDENT:

011516
011524

Qiise7

(UIN)/<15><12>

4507
4508

4803

(UIN)

.BYTE_

033060
042510
Qu4s1Y
042111
00S015

VERIFY:

<O1D><011>/

SEQ 0089

ELSE <CR>/¢15><12>

(M OR R)?/¢15><12>

037451

20114
0S2103
020105

020041
052122
Q44440
042503
027131

Q44127

(B-7):/¢15>¢12

DRV /

NOT RDY !

START DRV IF NECESSARY./(1S)
(12>

PRESS “CONT” ON CPU./<15><12>

NON-EXIST OR OFF-LINE

PRESS

"CONT”

TO RESTART.

(15>¢12>

CZRENDO RK611-06 SS VERIF 2
CZREND.P11
10-JRAN-78 10:05
4538

§633
4S40

4541
4542

0li762

011770
0117?76

012004
012012

054105

0S)117
046055

020041
020123

de4s BiS595% 825338
ngg

454

4548

8128:&
12

8120?1

4549
4SS0
4651
4552
4553
:Egg

012056
012064
012072
012100
012106
gigiég

4556

0l2123

4557
4558
4559

4562

012130
012136
Ql2i44

012163

053?32
¢

048

052

012253
01556
0l
9q
QOlee
012302
012310

&
4
Yo4y
0S1S11
0S3054

4680

012326

4588

:ggg
4531

4532
4593

012402

gigzgg
012413

01240
0li242&

NOTLOK:

.RSCII

/%%

047040

0S2117

NODRLK:

.RSCII

.ASCI1Z

THEN PRESS "CONT” ON CPU.~ /<1512

MULSEL:

.ARSCIZ

/&%

MULT DRV AUTO-SELECTED !

052040

046125
020126
0S1455

042040

020040

4572

012334
012342
012350
012356
012364
012372
012374

000

020838

040

042510
05.505
047117

oxsggg §§1449

4581
4582
4583
4584
4585
4686
4587

Bosate

043106
020105
051S0S
047117

046055
020041
042523
0S3440
Q41517
006456

456
4573
4574
4575
4576
4577

0S1120
041442

SEG 0090

Q020124

052122
020113
040505
052105
046055
020127

012170
012176
012204

0le234

047440
047111

0OS3440
041517
046120
051440
052122
0513?%

4563
4564
H56S

4569

051511

MO7

MACY1l 30R(10S2)
10-JAN-78
12:02
PAGE 91
PROGRAM SPECIFIC RESERVED LOCARTIONS

020116
020123
0211e4

020052

020i24
052501
Q46105

0Si120
Q4l44e
047440

046440

051104
047524
041505

DRV /

NOT WRT-LOCK

PLERSE SET WRT-LOC SW ./¢15

PRESS 'CONT'

TC RESTART./<15><12>

;llg § 3524

052040

020117

04esSee

012

046101

043511

ENTMOD:

.ASCIZ

<«12>/ALIGN,VERIFY,

005012

020052

040522

MANEXR:

.ASCII

<12><¢12>/% RANDOM SEEK EXERCISES IN PROGRESS /

.ASCII

/ON DRIVE

12>

Q42116
042505
051105
080123
047522
020123
(047117
042526

Hsggb
20054
42530
020105
020054

4452
QS111
Q41522
04CHSO
0S1117

046517
020113
044503
047111
0S1107

051440
054105
042523
0S0040
051505

042040

044522

o40

(R,V,

OR E)

?/d15><12>

025040

00S01S

DRIEXR:

.RSCIZ

0l2

025012

046440

MANALN:

.ASCIZ

<«12»<12>/% MANUAL SELECT ALIGNMENT #/<15><12>

Q340525
042514

020114
052103

#/<15

OR EXERCISE

838

047101
042523

12>

Q12434
Ql244e
012450

4597
4598

Q12453
012460

4600
4601
4602
4603

012474
012502
012510
012516

4599

4604
4605
4606
4607
4608
4609
4610
4611
Yele
4613
4614
4615
4616
4617
Ye18
4619
4620
462l
Yeee
4623
4624
4625
4626
4627
4628
4629
4630
4631
4632
4633
4634
4635
4636
4637
4638
4639
4640
4641
4e4e
4643

4Ye44
4645
He4e
Y647
4648
46489

Q1i2466

012524
012532
012540
012546
012554
012562
012570
012576
012604
012612
012620
012626
012634
012642
012650
012651
012656
012664
012672
012677
012704
012712
012720
012721
012726
012734
012742
012750
012752
012760
012766
012774
013002
013010
013016
013024
013032
013040
013043
013050

013056
013064
013066
013074
013102
013110

o445 14
05211 &
000
0250 g

ZRAZ

4594
4595
4596

NOWN
onL—nN—-Qur-—-0
O
L O
W LNO»=
=

oy 86200 RK611/06 SS VERIF 2
CZREND.PL1
10-JAN-78 10:0S5

MACY1l

NO7

10-JAN-78
12:02
PAGE 92
PROGRAM SPECIFIC RESERVED LOCRTIONS

30A(10S2)

SEQ 0091

047107
025040
MANVRF:

.RSCIZ

(12> <12>/% MANUAL SELECT VERIFY #/¢1S><(12>

HEDPOS:

.ASCIZ

/HERDS AT CYL

DTYMSG:

.RSCIZ

/ENTER DRIVE TYPE /

SOR7:

.RSCIZ

ENTHED:

.RSCIZ

(12> 7ENTER HERD NO.

RWNRDY:

.ASCIZ

/TYPE

<R>

:
HEDSEL
HERDNO:

.ASCII
.RSCIZ

/HERD

040440
042523
046440
0oe452

TYPAUT:

.RSCIZ

(12> <(12>/% AUTO SELECT MODE ®*/<15 <12

052501
046105
046101
047105
oooole

RUTALN:

.ASCIZ

(1> <l2>/7% AUTO SELECT ALIGNMENT #/<15¢12>

AUTVRF:

.RSCIZ

(12><1e>/% AUTO SELECT VERIFY »/(1S<12>

o46440
020114
052103

365

(OCT)

(7860 RKO7)/¢15><12>

(B> OR 7>/
(0-2):/<¢1S
<1l

005015
020105
o44127
0os4504
000
0=>0104
00514
00s015

WHEN RDY

:/7<¢1S» 12>

SELECTED/<1S><12>

0
051104
042523
042105

051105

D2005e
0S1440
020124
044503

025040

<12>/DRYV /

0201e6
04251y
005015

DRISEL:
ORVSEL:

052501
046105
054105
042523

RUTEXR:

(lex<lers% AUTO SELECT EXERCISES ®/7<1S><12>

SELECTED/<(I1S><i2><12>

CZRENDO RKB11-06 SS VERIF 2
CZREND.P11
10-JAN-78 10:0S
4650

4651
4eS5e
4653

Q013116

013123
013130
013136

020123

0i2
0201e4
047117

0064Se

Q44123
051117
020107

MACY11l
0le

047440
037440
105
0S1S11
1104

Oe0lee
00501S
042530
Q47111
880126

466l

013202

0250

020040

gg?ggg

464
466S

Q13224
013232

020104
O0S1117

(042523
052040

040502
052103
o40Sse2

4662
4663
4666

013176

013210
Q13216

045503

013305

osM4

013246
013253
013260
013265
013272
013277
013303

4675
4676
4677
4678
4679
4680
4681
4682

4583

4e84
4685
4686
4687
4688
4689

047116
040S0S

013240

4667
4668
4669
4670
4671
4672
4673

4674

6440

041522

020107

0012

052117
020104
006441

041536
136
0S1136
136
043536
015
134

00S01S
006532
00501
00652S
005015
00S012
00

013307
013311
013312
013313
013314

040
040
o040
040
000040

040

013316
013322
013330
013334
013337

020040
047527
036440
020052
076

000012

000
000012
000
000012
000
000

000

000075
042122
000040
000
000040

COCO40

BO8

12:02

PAGE 93

.ASC1Z

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

AUTOEX:

.ASCII

/EXERCISING DRV

AUTODR:

.RASCIZ

7 7«15 <12

BAD632:

.ASCIZ

/%%

CNTRLC:
CNTRLZ:
CNTRLR:
CNTRLU:
CNTRLG:
CReLF:
BKSLSH:
COMMA:
SPARCEG:
SPACEM:
SPACE3:
SPACE2:
SPACEL:

.ARSCIZ
.RSCIZ
.ASCIZ
.ASCIZ
.RSCIZ
.ASCIZ
.nscx%
.ASCI
.ASCI!
.ASCIl
.ASCII
.ASCII
.RSCIZ

/tC/<1S>d12>
/42/<15 1>
/tR/<1S>Uld>
/tU/<1S><le>
/*G/<1SH 12>
<«i1S<dl2x<la2
/\/
/.7
7
/ 7
7 7
~ 7
7 7

o46040
051450

013144
013152
013157
013164
01317¢

10-JAN-78

SEQ 0092

PROGRAM SPECIFIC RESERVED LOCRTIONS

0S111?

4654
4655
4656
4657
4658

3220

30A(10S52)

PRMBUF:
WORDSP:
EQUALS:
PROMPT:
PRMPSP:

.EVEN
.RSC1Z2
.RASCIZ
.RASCl1Z2
.ASCIZ
.RSCIZ

/(1S U1

12>
CANNOT READ BRD SECTOR TRACK!/<¢1S

~/
=/
/WORD ~/
/7 = 7/
/% /
7> 7/

EVEN

46¢0

4691
4692
4693
4634
46395
4696
4697
4698
4639
4700
4701

:;gg

4704

MOFLRAG

;SET FLAG FOR DEFAULT MODE

000042

CLR8B
CMP

ERRCNT
SDRVTST, 342

;CLERR_ERROR COUNT FOR RESTARTS
;SEE IF EOP RETURN ADRS = DR/TST

017320

000042

MOV

SNEWPRS , 3u4e

;SET RETURN ARDRS = NEWPAS

112737

000001

003116

PSTART:

MOVB

CLRB

DULRCS

81, MDFLAG

;SET FLAG FOR PARAMETER MODE

012737

000340

177?76

CMSTRT:

MOV

SPR7, 8PS

:BLOCK ALL INTERRUPTS

013342
013346
013352
013356
013364
013366
013374

105037
105037
105037
022737
001003
012737
000405

003116
003135
003126
014434

013376
013410

013404

105037

003135

DFSTRT: CLRB
CLRB

BNE

ys:

_SBTTL

DULRCS

CMSTRT

; CLEAR DURL-RCCESS FLAG

;BR IF NOT DRVTST

; PROCEED

; CLERR DURL-ACCESS TEST FLAG

INITIRLIZE THE COMMON TAR&4S

£
n
n

151

~ = - NN NN
W [N N WG
~N NN NNN NN

00+~ 000000000
P e bt ) s Bt Bt Bt ot s e
n Wy wnrn oy

CLR

001140

057170
0340

000020

56464
000340

MOVB

000001
13542
13550

*'EQUAL TO R

MoV
MOV
MOY

CMP
BNE

B4S:
653

000176
000174
000004

668 :
001341

001140

003150

000004
000114
000116
001118

003145
007136
003146

SSEiagngze;cs 107 vscroa FOR SCOPE ROUTINE
oieghgn
8?éc"En§
vecron FOR ERROR ROUTINE
aoénrvsc+

NO
;LOOP BACK IF

,,serup THE STACK POINTER

03 ?.TRQPVES

qo JkTRAPVEC+
cg gfl

TRQP VECTOR FOR TRAP CALLS

Lt
; Pouea FRILURE VECTOR

qo PuRVEc+ .,LEND-OF-PROGRRM COUNTER

::é“én&“#uégsgBE"oNEARGK AODNESS
iséES?e
(R
MOV
..
P R
P n RE
FOR SCOPE
R
%
WW
VI
::SIZE FOR
A Hnno
SWITCH Rscis

881 38¢

000006

ngv
MOV
MOV
MOV
MOV

024014

*!CLEAR MEMORY LOCATION

osun Rb ;; DONE?
s

MOV
MOV

0S7034
000340

133937 884288
18733 001342

SEQ 0093

CMP
BNE

MOV

880548

013624

012637

PRAGE 94

INITIRLIZE a FEH v sp

177570
177777

—
o
£
[
£

CO8

12:02
_10-JAN-78
30R(10S2)_
INITIALIZE THE COMMON TAGS

; ;CLEAR THE COMMON TRGS (SCMTARG) ARER
MOV
OaCHTQG,R6
;;FIRST LOCATION TO BE CLEARED

001100

000004
013616
177570

—0~N
nro

U‘U‘G‘O"go" oon

et bt s Bt s Pt

WWWWIW

556

000000

s
e pt

0000

W W WHIW

%.&

£
£
£

WWWw

WD W
[Ug al¥aliallyl
W

Pt bt Bt Pt ot Pt Pt Pt Bt Pt Pt Bt Pt Pt

MACY11l

001100

436

WWWWWW

s Pt o

012706
005026

430

000000

0000000000000

424

s Pt ot s Pt et
et Pt Bt Bt Peat Bt ot

O0OoO00000C000000O000000

Bt et Dt Bn Dt Dt

4706

(e Pt Pt Pt Pt

CZRBENDO RKbB11/06 SS VERIF 2
10-JAN-78 10:0S
CZREND.P 11

c7s

E?¥
MOV

81, SERMAX

=-1%,

SETUP FOR A SOFTWARE SWITCH REGISTER

ORONCVECT SWICH REGISTER
;1 3RV RS 2RHXSSRQRE
i‘fi?“!%%afi&é%’
Ssuh
"éir
DISPLAY ascxs ER
oooxsk DISPLRY ,,nnoATOHARDWARE
REFERENCE HARDWARE SWR
TRY

8-1, ISUR
668’
65%

:BRANCH IF NO_TIMEOUT TRAP occunnzo
THE
HARDWARE SWR IS NO
'BRANCH IF NO TIMEOUT
PAND

,,SET UP FOR TRAP RETURN

865§, (SP)
#SWREG,SWR

,,POINT TO SOFTWARE SWR

MOV

#DISPREG, DISPLAY

CLR
BIT8

AR PASS COUNT
;
USER SIZE UNDER APT
39P$§IZE SENVM ,:?EgT
YES, USE NON-APT SWITCH

MOV

(SP)+,98ERRVEC

; ;RESTORE ERROR VECTOR

BEQ

678

#SSWREG, SWR

NG, USE APT SWITCH REGISTER

CLR
RESET

AUTOFG

CL AR T
LERR T

MOV

SPECIQL FLAG
BUS

MOV
CLR

86, I8ERRVEC
JSERRVEC+2

SET TIME- OUT vscron

MOV
JSR
MOVB
CLRB
MOVB
TYPE

#PR achsnvsc+a
pc, ENBC
#100. ssnnnx
DRVERS
81, HLPOVL
, DZREN

7
se TRAP PRIORIT
:ENRBLE MEMORY PRRITY CHECK
!SET MAX ERROR CNT TO 100 FOR $SCOPE
'CLEAR ERROR COUNT FOR CURRENT DRIVE
:SET HLP FILE OVLD INDICTR
:TYPE PROGRAM 1.0. FOR PART 2

TYPE
TSTB

'PART2
NOTYPE

.SEE IF OPERATOR NOTE SHOULD BE TYPED

MOV

TYPE

#MPERHOD , 98MEMVEC

' SUBVER

:SET MEM PARITY TRQP VECTOR

CZR6NDO RKB11-06 SS VERIF 2
CZR&ND. P11
10-JAN-78 10:05S
47

001004

4764
”;EE

013774
8{3839

105; 4
68?4 7

D08

MACY11 30A(1052)
10-JAN-?8
12:02
INITIRLIZE THE COMMON TAGS

PAGE 95

SEQ 0094

BNE

TYPE

398

39%:

INCB
ggga

korvpg
DULRC

Y
Yy
Y
q7§g §iq§g§
é?§7§§
§é§q§§
888850 40%:

TYPE
MOV

AL-ACCESS onTn TEST #
bxgougL S8 TKVEC T
595 vsc?gn
5 5?

q?gg 8137?8 104401 065660

)

8831ws
3135

4767

MAS
T
731i 899804
540
4771
8%4855
8137
4772 81403& 0137
003042
¥}

4273

014042

4774

014050

:;gg

8%:{83

0127

012737

1246

0340

000250

4278
O190cs Bis737
013937 888333
O0oba8 177776
4275
B1aB%F
4778 014074 012700 000006
882886

4583 8%3%8}3 §8é§5§
005502
q;ga Siflléo
23727 000042

4785 oxuiea 68$9°§ 031126
as
Dl4iSe
Biss3s
1
11%%ad
Y7
41y
4733 gfw{qg 8 g? 88g? 3
q

017320

Dear3d Y

4791
814%25 88%7 7 032050
4792 Q014160 105037 003134
47

4793

4794
4795

4796

3; g

Q0l4164

105737

003116

RIVEL
;IKVEC+2
R0
RKOG.
VECTOR
STORAGE
ox.?nta
(R1)+
sE?
it
70
RKBS
8
3
RKPRI, (R1)
SE Rxoa }T

MOV

8PR7 , JSMMVEC+2

;s PRIOR. = 7 FOR HyoLER

(R1,+

ZERO A WORD

cKT;Rho JEMMVEC

CT FO

KTll

AILURE

cLRe
MOV
MOV

TSHIfG
sPRVEMD 31
#6, RO

g
gz?

‘é?BLLs
ac:a SNEWPRS

B
§E.°EOB°S§QLE£ YET
-B IF CHAIN MODE

?ES
CLRB

33
GETXDP
XDPSVD

Sss$onc
SAVED XXDP
:CLEAR THE FLRAG

BNE
MOV

108
§VECT1,RO

(BR_IF
N
RULT no
GET APT RKO6 VECTOR AND PRTY

8%?

JSR
M
JSR
1578
TST8

LEon ‘*“"“Wm‘fl%
AGATN
2%58
PREVIOUS
COMMAND
{SET COUNTER
Y

TSWRG
: OPENSOETNRR& SWR FOR MODIFICATION
:iZSEEE$HINUM{INIT.
PSELDO-RANDOM
NOS. IN PRMLIM
PC,SI
nén
;SJZE
_MEMORY,
FIX
MR
LIMIT
bg S
é% IF XXDP PREVIOUSLY SAVED

MDFLAG

sss ;r 8; gg%

801036
0137

8{35?3

fg 7

000200

001341

gfiga

MOV

sans;,RKBAS

003036

MOV
MOV
MOVB
CLRB

SAVECT1,RO
#ABASE , RKBAS
RO, RKVEC
RKVEC+1
RO

csr PRTY INTO BITS S5-7

JMP

ALLDR

co CHECK ALL onxves

014176

013737

001370

001374

Q14214
014220
014226
014232

0127
012737
110037
6850 7

120210
1774940
003040
003041

3389

014250

000137

015120

3815 014254

104401

007352

014236

1222

4810

0300

4813

181e Q14s6q 10340 093998
4816
4817

"SET FLAG FOR NEXT TIM
SEE 1 ounL ACCESS DATA TEST

Q14170
014172

4799
4800
4801
4802
4803

Y2s:

*TYPE OPERATOR NOTE

MoV
MOV
MOV
MOV

000252

:BR IF
NOT

NOTMSG

014370
014274

004737
012637

031016
003036

003036
18%:

SWAB

BEGIN PARAMETER

ios:

TYPE

SENVM

INPUT MODE

,PRMINP

GET APT RKO6 aase ADDRESS

8EE F NO ?if

‘GET
FQULT vsflron AND PRIORITY
!GET
DEFRULT BASE ADDRESS
: STORE VECTOR
:CLEARHI BYTE

: TYPE “PARAMETER INPUT MODE"

:OPEN RKO6 UNIBUS ADDRESS FOR MODIFICATION

HO¥e
JSR
MOV

REBARR(SPY

AC,GETPRM
(SP)+,RKBAS

iRUTEOLD, ¥BLUECOROR oon

:TYPE OLD, GET NEW RKBAS VALUE
:STORE NEW VALUE

CZRBNDO RKb11-/06 SS VERIF 2
CZREND.PI11
10-JAN-78 10:0S
4818
4819
4820

014300

013746

003040

4821
:Ssg

014310
014314

004737
012637

031016
003040

4824
4825
4826
4827
4828
4829

014320
014324
014326
014330
014332
014334

013746
006316
006316
006316
000316
104401

003042

007446

4831
4832
4833
4834
4835
4836
4837
4838
4839

0lI4344
014346

012600
020027

000004

0143S4
014360
014362
014364
014366
Q014370
Qli4372
014376
014402
014404
014410
014414

020027
003011
03
ban
006200
006200
010037
104401
000405
104401
104401
000741

4830

4840

4841
4842

4843
4844
4845

014304

014340
014352

104401

004737
002414

MARCY1l

30A(1052)

12:02

PRAGE 96

SEQ 009S

; OPEN RKOB& VECTOR RDDRESS FOR MODIFICATION
MoV

TYPE

007423

JSR

MOV

RKVEC,

- (SP

RKVAOR
Pc GETPRH
(S

PUT OLD VALUE ON STACK
TYPE "RKO&6 VEC ADR

TYPE OLD, GET NEW RKVEC VALUE
V
NEW
STORE
VALUE

1ogen RKO6 INTERSUPT hnnoLsR PRIORITY
LEVEL FOR MODIFICATION
;GET OLD VALUE OF PRIORITY
MOV

ASL
ASL
ASL
SWAB
TYPE

JSR
MOV
CMP
BLT

031016

CMP

000007

BGT

PC, GETPRM
(SP)+,RO
RO, #4’
12¢
RO, 87

12¢

:GET IT INTO BITS D-2

;TYPE

"RKO&_PRIORITY = *

:TYPE OLD, GET NEW RKPRI VALUE
;SEE_IF AT LEAST LEVEL
4

iBR_IF _NEW VQLUE TO0 _SMALL
iSEE_IF LEVEL
7 OR LESS
iBR_IF NEW VALUE TOO LQRGE
{GET PRIORITY INTO BITS G-7

RO
RO

MOV

RO, RKPRI

; STORE NEW VRLUE

TYPE

BUFFQ

;ECHO BRD INPUT

TYPE
R

001315

KPRI,-(SP)

(SP)
(5P)
(5P)
(SP)
RKPRTY

SWAB
ASR

ASR
ASR

003042

00S26M
001314

10-JAN-78

INITIALIZE THE COMMON TAGS

TYPE
BR

RO
RO

$CRLF
168

' SQUES
i1s

; GO RSK RGRIN

CZRENDO RKE11-06 SS VERIF 2
10-JAN-78 10:05

CZREND.PL1
4847

014416

105037

003les

FOS8

MRCY11 30R(10S2)
10-JAN-78 12:02
INITIALIZE THE COMMON TAGS
168:

CLRB

ERRCNT

PAGE 97
;CLEAR ERROR CNT FOR RESTARTS

SEQ 009

CZRENDO RKE11-06 SS VERIF 2
CZREND.P11
10-JAN-78 10:05
4848

Oi4422

012737

014434

:gg?

014430

000137

015176

4849

4852
4853

GO8

MACY1! 30R(10S2)
10-JAN-78
12:02
INITIALIZE THE COMMON TARGS
00004e

PAGE 98

SEQ 0097

MOV

SDRVTST, as42

SET UP DUMP MODE RETURN FROM SEOP

JMP

CHKLST

GO CHECK STARTUS OF MARKED DRIVES

UPON

COMPLETION

REQUESTED

PASSES

CZR6ENDO RKE11-06 SS VERIF 2

CZR6ND.P11

10-JAN-78 10:05

MACY1l

4854

30R(10S2)

10-JAN-78

HOS

12:02

INITIRLIZE THE COMMON TRGS

PRGE 99

SEQ 0098

X 2222222222222
2X22222 2222222222222 X22XX22222S2X2X2XX222 X

4855

é$Tr§

:%CHOICE
OF DRIVES IS REQUESTED BY TTY INPUT, Ano THESE
: *DRIVES ARE CHECKED FOR VALIDITY AND PROPER STATUS

! %l

4858
4859

4860
4861

l!l»!lllll!l!fl!!!lll!l*lll*!ll!!!il!!l!l!ll!l*lll&ll!ll!lll*!*{*l

4864

014434

4866
4867
4868

014440
014444
014450

005037
064737
104401

4870
4871
4872
4873
4874
4875
48?7
487
4878
4879

81445
01446
014464
014466
014470
(014472
81450
1450
014506
814512

14434
14434
014434
005700
001413
022737
8060g§
001
104401
04401

014434

012706

onvrsr:

001100

005502
031342
007717

4881

014516

000746

4882

014520

684401

4884

(014526

5000

4886
4887
4888
4889
4830
489!
4832
4893
4894
4895
4886
4897
4838
4839
4900

014534
014540
81qsqa
014544
014546
014552
DI4S56
014564
014570
Q014572
014574
014576
014602
(014604
014606

105761
001414
005700
001402
104401
010137
052737
104401
005200
005201
006303
022701
001354
00S700
001016

014614

104401

4883

4885

4301

4902

4903

014524

(014530

014610

S001

012703

4908
4309

014634
014636

010321
010311

014632

010321

4g:
TYPE

007506
00S6I0

013305
00SE34
000060
005534

4$:

005534

6%:
8%:

000010

007625

DRVTST
DRVTST
DRVTST
TST
BEQ
CMP
BNE
JMP
TYPE
TYPE
BR

#STACK, SP

:RESET THE STACK

STALLS'
PC,ENBCSR
ALDRVS

SINHIBIT STALL BETWEEN OPERATIONS
'ENARBLE MEMORY PARITY CHECK
'ASK IF ALL DRIVES DESIRED

RO
TELDRYV
#'A,BUFFO
4$
RLLDRV
,BUFFQ
$QUES

:(1C) RETURN nooREss
1(42) RETURN ADDRESS
:(#U) OR ERROR RETURN RDDRESS
'SEE IF NULL INPUT
"BR IF NULL INPUT
:SEE_IF ALL DRIVES REQUESTED
'BR_IF NOT ALL DRIVES
:CHECK ALL DRIVES
:ECHO BRD INPUT
STYPE <?> AND (CR>,(LF>

#c RDCHRS

ORVTST

CURRENT

DRIVE

CLR

YELDRV: rvps

000001

000401
005610

012703
012701
010321

005264

001314

011231

014620
014624
014630

JSR

015120
005264

104401

4904
4905
4906

490?

000101

MOV

CLR
JSR
TYPE

4869 014454 (004737 034034

4880

s 10 TEST.

:%AND IF THEY ARE VALID, THEY ARE LOADED INTO THE DRIVE
*LIST (DRVLST).

Hggg

4865

10 -NDESIRED DRIVE Inpgr EOUTI”E 0

vE
Num
H
15 BRYIENRuAEERE
ZHBL&HBEEME Y éénnS BrYRS
TOuef:

% TH

LIST

'READ RESPONSE

:GO ASK RGAIN

DRVSEQ

TYP; "DR% 3 = "

CLR

%NIT COUNT OFhrsrso DRIVES

TSTB
BEQ
TST
BEQ
TYPE
MOV
BIS
TYPE
INC
INC
ASL
CMP
BNE
TST
BNE

DRVLSY(R1)
8%
RO
X
COMMA
R1,SCRACH
80, SCRACH
SCRACH
RO
Ri
R3
$10,R1
4§
RO
26%

‘SEE IF THIS DRIVE IS LISTED
'BR_IF DRIVE NOT LISTED
‘SEE IF FIRST TIME HERE
'BR IF FIRST TIME HERE
:TYPE
A COMMA
JUSE SCRACH FOR BUFFER
*CONVERT DRIVE NO. TO ASCII
'TYPE DRIVE
NO.
: INCREMENT NO. OF LISTED DRIVES
I INCREMENT DRIVE NO.
:SHIFT BIT POINTER
:SEE IF DONE YET
'BR_IF
NOT DONE
:SEE IF ANY DRIVES WERE LISTED
BR IF YES

TYPE

' NODRTS

TYPE %% NO DRIVES TO TEST"

MOV
MOV
MOV

#401,R3
IDRVLST R1
R3, (R1+

PQTTERN TO MARK DRIVES
:DRIVE LIST ADDRESS
'MARK ALL DRIVES IN LIST

MOV
MOV

R3 (R1)+
R3, (R1)

MOV

TYPE

MOV

#BITO,R3

. NOFALS

R3,(R1)+

SINITIALIZE DRIVE NUMBER
NIT BIT

TYPE *

POINTE

NONE”

“PRESS

'CONT’

WHEN RDY”

CZR&ENDO RKB11-06 SS VERIF 2
CZREND.PL1
10-JAN-78 10:0S
4910

014640

000:37

4911
4912
4913
4914
4915
4916
4917
4918
4919
4326
4921
4922
4923
4924
43925

014644
014650
014656
014660
014664
014666
Q14672
014676
014700
014704
014706
014712
014714
(14720
014724

104401
122737
001003
104401
000000
105037
105737
001012
000137
001007
105737
001404
004737
000137
104401

4927

Q014730

004737

4930

014790

014520

4926

43928
4929
493]
4932

4833
4934
4935
4936
4937
4938
4939
4940
4941
4942
4943
4944
4q4s
4346
4947
4948

4949
4350
4951

014734
014736

014742
014744

014746
014752
(014754
014760
014764
014770
Q14772
014776
015002
015004
(015006
015014
015016
(015024
(016026
015030
(015032
(015034
015042

0I4434
014434

005700
001007

105737
001002
000137
000137
022700
002005
104401
104401
000646
005001
126127
002766
126127
003362
005201
020100

001315
000013
000041
003116
005610
032310
015176
013334

016014
000017

228 :
CI

00S264
001314

10%:
000060

00S264

000067

001406
l26le?
001353

005264

000054

012701

00S610

116001

00S264

112761

000001

4964

7ST
BNE

015250

015066

005201
000757

015072

042701

015104

062700

015076

JSR

DRVTST
DRVTST

003135

4961

4963

TYPE
CMPB
BNE
TYPE
HALT
CLR8B
TST8
BNE
JIMP
BNE
TS18
BEQ
JSR
JMP
TYPE

000060
000002

4965 015110 105760 005263

HLTPRG

SCRLF
k13, 9m41
28%
, XXDPME
TOR
MDFLAG
139§
LODFLS
19§
DRVLST
19%
PC INITSS
c
ks

SEG 0099

sHALT PROGRAM

:TYPE <CR>, <LF)>
'DID DRIVE'LOAD xxonv
'NO, SO SKIP NEXT
: INFORM USER TO REMOVE XXDP PACK
SAND FORCE OPERATOR INTERVENTION
:OPERATOR HIT CONT. CLR THE LD PTR
:SEE IF DEFAULT MODE
'BR IF NOT DEFAULT MODE
'GO LORD DEFLT ITER. COUNTS
:BR _IF NOT
:SEE IF DRIVE O LISTED TO TEST
:BR_IF NOT
:INIT THE SUB-SYS
GO CHECK STPTUS OF LISTED DRIVES
:TYPE RSTERISK AND SPACE

:READ AND CHECK fisw onxve NUMBERS

00S264

005021
005021
005011
005000

JMP

TELDRV

005021

4962

19%:

034034

015054

(015056
015060
Q15062
015064

28%:

015536

4956

4957
4968
4959
4360

000041

26%:

007227

015044
015046

(1505G

MACY1l 30R(10S2)
10-JAN-78
12:02
PAGE 100
TO - DESIRED DRIVE INPUT ROUTINE

046150

4952
4953
4954

4955

108

12%:
148:

7578
BNE
IMP
JMP
cMP
BGE
TYPE
TYPE
BR
CLR
CMPB
BLY
CNPB
8GT
INC
CMP
BEQ
CMPB
BNE

PC, RDCHRS

RO
qg

DULACS
FEL
ASKTST
INPUTP
£15.,RO
128
BUFFO
’ §QUES
YELDRV
RI
BUFFO(RI),I'O
108
BUFFO(R1),%’7
108
R1
R1,RO

;READ IN INPUT STRING

1($C) RETURN ADDRESS
,(fZ) RETURN RDORESS

:{#U) OR ERROR RETURN ADDRESS

;SEE_IF NULL INPUT
'BR_IF NEW DRIVES WILL BE SELECTED

:SEE IF DURL-RCCESS FLARG SET
'BR IF YES
:JUMP TO THE TEST INPUT ROUTINE
1GO RSK FOR INPUT PARAMETERS
1SEE _IF TOO MANY CHARACTERS TYPED
:BR IF NOT TOO MANY
:ECHO BRD INPUT
STYPE <?> AND <CR>, <L
:GO_TYPE DRIVES nnb asx AGAIN
'CLEAR CHAR. POINT
‘SEE _IF DRIVE
NO. ¢ O
'BR 10 ECHO BRD INPUT
:SEE IF
'BR T0 ECHO BAD INPUT
* INCREMENT CHAR POINTER
:SEE IF MORE CHARS TO CHECK

16
BUFFO(RL),’,
108

:BR
IF ALL CHARS CHECKED
;SEE_IF THIS IS COMMA
:BR_IF NOT COMMA

MOV

#DRVLST,R1

:GET DRIVE LIST ADDRESS

CLR
CLR
CLR
CLR

(R1)+
(R1)+
(R1)
RO

INC
R1
: INCREMENT CHAR POINTER
BR
14%
:BR TO CONTINUE CHECKING CHARS
GET NEW DRIVE NUMBERS INTO LIST’

igs:

189$:
005610

CLR

(R1)+

:CLERR OUT THE DRIVE LIST
:CLEAR BUFFER POINTER

MOVB

BUFFO(RO),R1

:GET A DRIVE NUMBER

MOVB

Ol,bRVLST(Rl)

:MARK THIS DRIVE IN DRIVE LIST

BIC
ADD

TSTB

#’0,R1
%2’ RO

BU#FD—I(RO)

:STRIP ASCII

*POINT

BITS

TO NEXT

DRIVE

'SEE IF NULL CHAR YET

NUMBER

e DR

'-‘D

e
e Pt bt pa Pt Pt
P

MARCY1l

JO8

30R(10S2)
10-JAN-78
12:02
PAGE
TO - DESIRED DRIVE INPUT ROUTINE

BNE

10l

SEQ 0100

188

:BR IF NOT DONE YET

sCLEAR DRIVE NUMBER

BR
CHKLST
:GO CHECK NEW DRIVES FOR VALID STATUS
COME HERE IF ALL DRIVES REQUESTED

001376

[=}
W

—

o N— O

000200

IN)

n
Pt P
i
0 s s e De Pt Pt Dt Pt Pt Dot Pt ot s
it
PORUTUN)
b=

nE28s ISFERENFHRERNG o

Dt Pt Pt Bt ot Pt ot e Pt i Bt ot Pt fe

0000000000000
0
00000

oty
RN
£ LW
oo Lo

Pt st et Bt s

00000000

4366
4967
43968

611,06 SS VERIF 2
10-JAN-78 10:05

Bt Bt

CZRBNDO
CZREND.P

ACLDRV: CLR
001341

000377
000001
005610
000001

MOV
BITB

18:
23:
005610

4s:

000010

SDEVM, R3
$BIT7. SENVM

:GET APT DEVICE MAP
'SEE IF NO SIZING

MOV
CLRB

#BITO, Rl
DRVLSf(RO)

;ser BIT POINTER
;INITIALIZE DRIVE ENTRY

BEQ

ysg’

!BR IF NOT

BNE
MOV

18
#377 R3

BIT

R1,R3

MOVB
ASL
INC
CMP
BNE

'BR_IF NO SIZING
iSET UP FOR SIZING

:SEE IF THIS DRIVE IS REQUESTED

$1,DRVLST(RO)
R1
RO
810, R0
2%

:MARK THIS DRIVE IN DRIVE LIST
*SHIFT BIT POINTER
: INCREMENT DRIVE NUMBER
;ses IF DONE MARKING RLL DRIVES
:BR IF NOT DONE YET

sCLEAR DRIVE
N

.CHECK ALL DRIVES MARKED IN DRIVE LIST FOR PROPER STQTUS

LHKLST: CLR

2%:

005610

00S<S00
032436
015242
113760

005200
022700

001361
000137
105060
000767

003124
000010
014520
00S610

005620

1ST8
BEQ
MOV
JSR

DRVLST(RO)
qs
RO, DRIVE
PC. SCNDRV

MOVB

TYPFMT, DTYLST(R05

ERROR RETURN RDDRESS FOR SCNDRV

4g§:
X ¥

:SEE IF THIS onxve 1S MARKED IN LIST
:BR IF NOT MARKED
:SET DRIVE NUMBER FOR SCNDRV
:CHECK STATUS OF THIS DRIVE
IF NOT VALID, TYPE MESSAGE
AND REMOVE IT FROM DRIVE LIST

INC

810, R0
23
TELDRV
DRVLST(RO)
43

CMP
BNE
IMP
CLRB
BR

:SET DRV TYP., O=RK0G, “=RKO?

RETURN HERE IF DRIVE IS USEABLE

:SEE_IF DONE CHECKINGLIST
:BR IF NOT DONE_YET
GO BACK TO LIST SELECTED DRIVES
'REMOVE INVALID DRIVE FROM LIST
'CONTINUE CHECKING THE LIST

; l!!lll!}li!*lli!l!!!il!ill!llillillliilllil!liilill!il*li*li*ii

"&BTTL

TO - DESIRED TEST INPUT ROUTINE

:xTHIS ROUTINE ALLOWS INPUT OF DESIRED TESTS AND ITERATION

' %COUNT FOR EACH_TEST. THE INPUT IS5

CHECKED FOR VALIDITY,

:%THAT THE_TEST IS NOT TO BE RUN
:#THIS ROUTINE REQUESTS “ENTER

OR I”. TYPING (L)

'%AND IF
VALID, THE ITERATION COUNTS ARE LOADED INTO THE'
:%TEST LIST (TSTLST). AN xrsnarxon VALUE OF O INDICATES

: ¥CAUSES THE CURRENT LIST OF S*S AND ITERATIONS TO BE

—OvoNONLWU—OW

i
0000000000000

5008

;¥TYPED,

i%AND (}) ALLOWS THE OPERATOR TO PROCEED WITH SELECTION

: %OF OPERQTING PARAMETERS, AND RUN TESTS.
;¥TYPING (#C) CAUSES IMMEDIATE RETURN TO DRVTST. TYPING
* (tZ) CAUSES RETURN TO RSKTMD.
$ NI

S250
S254
Seed
See4

104401
104401
004737
014434

DETERMINE L,C,

ASKTST:
TYPE'
nsxrno TYPE

JSR
DRVTST

NN NN RN RN R R RN R RRRRT R RREE AR

MODE

TSTMDS
"ENTLCI

pC,RDCHRS

;ASK_FOR TEST INPUT MODE
:TYPE “ENTER L,C, OR I”

*READ RESPONSE’
:(fC) RETURN ADDRESS

CZR&ENDO RKG11-06 SS VERIF 2
CZRBND.PI1
10-JAN-78 10:05

5022
5023
S024
€025

015266
015270
015272
015274

015254
015254
005700
00100S

6027
6028

015302
015306

104401
000762

S026

015276

029
S030
S031
5032

015310
015316
015320
015324

5034

015334

5033
8035

00S26H

022737
001002
000137
022737

000114

005264

4S:

015354
000103

00S264

6S:

000137

015472

015332

001002

015340

022737

5039

015346

MACY1l 30R(1052)
10-JAN-78
12:02
PAGE 102
TO - DESIRED TEST INPUT ROUTINE

104401

001353

2%:

001314

000111

gggg 018350 000137 016014
S036

KO8

00S2e4

B8%:

ASKTMD
ASKTMD
TST
BNE

RO
4§

:($2) RETURN ADDRESS
:(#U) OR ERROR RETURN ADDRESS
ISEE_IF ANY INPUT
‘BR IF ANY INPUT

TYPE
BR

' §QUES
ASKTMD

STYPE <?> AND <CR>,<LF>
:GO_ASK AGAI

TYPE

'SEE IF (L) TYPED
:BR IF NOT (L)
:JUMP TO LIST TESTS
!SEE IF (C) TYPED

JIMP

CHGTST

S7JMP TO CHANGE TESTS

BNE

CMP

JMP
BNE

010204

(STTST: TYPE

042
5043
65044

015362
015366
015372

004737
004737
104401

030576
034346
001315

2%:

So46
S047
So4e
5049
5050
S0S1
65052
5053

015402
015404
015412
015414
015420
015426
015430
015434

001416
122737
001002
000137
122737
001002
000137
004?37

5055

5045 018376 005737 005522

SOS4

015440

014434

%’ 1,BUFFO

INPUTP

'BR IF _NOT (C)
JSEE_IF

(1)

TY
PE

INPUT
:GO0 INPUT PARAhsTOANDECHO
RUN BAD
TESTS
!BR IF NOT (I),

:LIST CURRENT TESTS AND ITERATION COUNTS

104401

000032

:ECHO BRD INPUT

#’L,BUFFO
6S
LSTTST
%’C,BUFFO

015354

000003

,BUFFOD

CMP
BNE
JMP
CMP

5040

504§ 015360 00s001

SEQ 0101

TLSTHD

PC, PREPKB
PC’ TYPTST
SCRLF

'PREPARE FOR POSSIBLE KBD INPUT
:TYPE CURRENT TEST AND ITERATION NUMBER
'TYPE <CR), <LF>

BEQ
CMPB
BNE
JIMP
CMPB
BNE
IMP
JSR

8%
#003, INTCHR
4s
DRVTST
#032, INTCHR
68
ASKTMD
PC, ECOBAD

MOV

a,ax

'BR_IF NO INPUT
:SEE IF (1C) TYPED
:BR _IF NOT (tC)
:JUMP TO ASK FOR DRIVES AGAIN
'SEE IF (12) TYPED
'BR IF NOT ($2)
:JUMP TO nsx ron NEW TEST INPUT MODE
{ECHO BAD INP

RI.R2

. INCREMENT TEST INDEX

CMP
BNE
BIC
JMP

#DFLTST.R2
2%
#BIT6, dSTKS
ASKTMD

:SEE_IF DONE WITH LIST
'BR_IFNOT DONE YET
'DISABLE KBD INTERRUP
'GO RSK FOR NEW TEST xnpur MODE

CLR

JSR
JSR
TYPE

TST

005522
005522

015254
030616

4S:
6%:

8%:

iNTCHR

TYPE HEADING "TEST

SINITIALIZE TEST INDEX

ITERATIONS"

ISEE_IF ANY INPUT

015444

062701

010102

000002

015452
015456
015460
015466

022702
001341
042777
000137

005644

063

015472

104401

010130

&HGTST: TYPE

5065
5066
5067
S068
65069
5070
5071
5072
5073
6074
5075

015502
015504
015506
015510
015512
015514
015522
015524
015530
015534

014434
015254
015472
005700
001426
022737
001405
[04401
104401
000756

000104

6077

015536

015542

012700

00S64Y4

DRVTST
:($C) RETURN ADDRESS
ASKTMD
:(42) RETURN ADDRESS
CHGTST
:(#U) OR ERROR RETURN ADDRESS
TST
RO
'SEE IF NULL INPUT
BEQ
NUL INP
'BR_IF NULL INPUT
CHP
#'0,BUFFO
'SEE_IF (D) TYPED
BEQ
LODFLS
:BR IF DEFAULTS REQUESTED
TYPE
BUFFO
'ECHO BAD INPUT
TYPE
soues
:TYPE <?> AND <CR>,<LF>
BR
LHGTST
:GO ASK AGAIN
:LOAD DEFAULT ITERATION COUNTS Ifiro TEST LIST

5056 015446 062702 005630

5057
6058
5059
EBE?
5062

000100
015254

163456

076

012702

005630

ADD

OTQTLST R2

'GET COPY_OF INDEX

'GET POSITION IN LIST

CHANGE CURRENT TESTS AND ITERATION COUNTS

6064 015476 004737 034034

005264
001314

ADD

005264

TEST

JSR

#c ROCHRS

LODFLS: MOV

sDFLTST,RO

MOV

#TSTLST| R2

:ASK IF TESTS SHOULD BE DEFAULTED

:READ RESPONSE

LCAD DEFRULT LIST ADDRESS

Loao TEST LIST ADDRESS

oo RK611-06 5S VERIF 2
0.PI11
10-JAN-78 10:05S

015546

012022

1SE84

001374

815550

812553
1886
016564
015570
015572

022702

005644

6857 7
1234
000137
005001

003116

104401

LO8

MACY1l 30A(1052)
10-JAN-78
12:02
PAGE 103
TO - DESIRED TEST INPUT ROUTINE

4g:

NULINP:

010204

015602 104401 013314
013334

015612
015616

004737
014434

034034

0iS6e2
015624

015576
005700

015620

015626
015630
015634

000002

1
2

oxsswg
01564
015650

2702
135
000137

005644

015662

001431

015666

NENGINONSNSN

OGNNSO

s bt bt e s s s 000900000

N S

8
9
0
1

N
Y
Sy S
Ll ol
e
el
P

015554

015664
015674

015676
Q015?02
015704
015706

2
3

015712
015714

5
6

015729
015726

NI NINRIN) PO NIN) MY 0= s b

015720
015730

(022737

005002

015254

000041

122760

000041

105060
005300
005202
022700
002433

005263

001004

012746

004737

016002
012600

020027

10%:

00S264
005263

054500

015746

010102

015754

022702

005642

7
8

015762
015766

000i37
016161

015254
005630

015760

001002

062701

000002

016002
016006
016012

104401
104401
000671

005264
001314

0 016000 000762
1
2
3

:READ OCTAL DIGITS TYPED
(1C) RETURN ADDRESS
'($Z) RETURN ADDRESS

ADD
MOV

#2,R1
RI'R2

P INCREMENT INDEX
:COPY INDEX

CMP
BNE
IMP

#OFLTST.R2
8s
ASKTMD

‘SEE_IF DONE WITH LIST
‘BR IF NOT DONE
YET
;GO_ASK FOR NEW_TEST INPUT MODE

BEQ

16%

'BR_TO PROPAGATE CURRENT

ITER.

:SEE IF LAST cuan IN eur

BNE

CHMP

12%

#T78TLST,R2
$'' BUFFO

CLR

BNE

148

CLRB
DEC
INC
CMP
BLT

¥+ ! BUFFO-1(RO)

BUFFO- 1(RO)
RO

R2
ss RO

‘BR _IF ANY INPUT

:GET POSITION IN LIST

'SEE IF (') TYPED
"INITIALIZE (')
'BR

_IF NOT

INDICAT

NO.

()

;Inssnr r;nnxnnron
BYTE
* DECREMEN
R COUN

*SET (') INDICATOR
*SEE_HOW MANY CHARS NOW

MOV

seurro -(SP)

!BR_IF TOO MANY (MAX ITER. NO. = 77776)
:GET BUF ADDR. ON STACK FOR OCTBIN

208
MOV

(SP)+.RO

"ERROR_RETURN ADDRESS FOR OCTBIN
:GET ITERATION NUMBER

CTBIN

CMP

RO, 472776

MOV

R1,R2

CMP

$DFLTSTZ2,R2

*CHECK DIGITS AND CONVERT TO BINARY

:SEE _IF > 77776

BHI
20
'BR_IF T00 BIG
MOV
RO, TSTLST(RL)
;PUT ITERATION NUMBER INTO TEST LIST
TST
R2
;ses IF (e) uns TYPED
BEQ
10$
%
PROPAGATE CURRENT ITERATION NO.
HE END or TSTLST

005630

015774

*TYPE RSTERISK AND SPACE

:(¢U) OR ERROR RETURN ADDRESS
:SEE IF ANY INPUT

JSR

077776

ITERATIONS"

CMPB

145

{es:

4 015750 062702 005630
&

12%:

005264

101022
010061
005702
001731

: TYPE HEADING “TEST

8%
157

ADD

000005

015734
015736
015742
015744

:BR IF NOT DONE YET

!SEE_IF DEFAULT MODE
:BR IF NOT DEFRULT MODE
GO _LOAD DEFAULT PARAMETERS
,INITIRLIZE TEST INDEX

STHD

DRVTST

005630

8
g
0
1
2

(W WG WM

!SEE IF DOMNE YET

MDFLAG
ASKTMD
LODFPT
R

ASKTMD

062701
010102

015636

TYPE

:LOAD A DEFAULT VALUE

TYPE
PROMPT
sREAD AND CHECK tNPur IF ANY
JSR
RDEHRS

015254

C01012

1STB
BNE
IMP
CLR

(RO)+, (R2)+

$DFLTST,R2

TYPE CURRENT TEQT nno ITERATION’ NUMBER
8s:
JS
YPTST
;TYPE A TEST NO. AND ITERATION NO.
TYPE
,,fincsx
: TYPE A SPACE

01S576 004737 034346
104401

CMP
BNE

016550

015606

MOV

SEQG 0102

ADD
BNE

005632

17%:
20%:

opv INDEX

QTQTLST R2

csr POSITION IN LIST

'BR IF NOT DONE

,sss IFAT END OF LIST

IMP
MOV

ASKTMD
!0 ASK FOR NEW TEST INPUT MODE
TSTLST(RI) TSTLST+2(R1) PROPQGQTE TO NEXT WORD

TYPE
TYPE
BR

' BUFFO
' $QUES
83

ADD

15$

;

INCREMENT _INDE

an TO conr:nue

*ECHO BAD INPUT
STYPE (7> AND <CR>,<LF>
:GC RSK RAGAIN

CZRENDO RKb11-06 SS VERIF 2

CZR6ND.PI11

10-JAN-78 10:05

MACY1l

016030
016034
016040
016044
016046

Si44
SIMS
Si46
5147
S148
Si49
S1S0
S151
S152
S153
SI1S4
S1SS
S1S6
S157
S158
S159
S160
5161
Sie2
S1e3
Sle4
S165
Sieb

016050
016052
016054
016056
016062
016066
016070
016076
016100
016104
0ielle
016114
0lele0
0lbles
016130
016134
0lbli4e
DOIlbl44
016152
016154
016160
0lblbe
046170

5168

016176

5167
5169
S170
5171
5172

S173
5174
5175
5176
51727
5178
5179
S180
5181
Sige
5183
Sisy4
518§
5186
5187
Si88
S189

016172
(16202
016204
016212
0leelY

0l6220
Qlb224
0lb226

104401
104401
004737
014434
016020

016020
0QQ0S”
001005
104401
104401
000754
022737
00100
000137
(022737
001002
000137
0ee737
001002
000137
022737
001;4;
023737
003403
104401
000717
023737
00340S

1CY401

104401

000706
023737
003405
104401

104401
00067S
000137

010362
013334
034034

005264

4§:

016232
000117

005264

6$:

016504
000123

gosze4

8%:

0001e2

005264

108:

005670

005672

JSR

AC, ROCHRS

'READ RESPONSE TO MODE QUESTION

TST

PRCMPT

00Skeb

BNE
IMP
CHP
BNE
JMP
CMP
BNE
JMP

?s
YPLST
%’ 0, BUFFO
8%
OPNLST
'S, BUFFO
10%
SETPRM

*BR IF NOT (T)
!JUMP TO THE TYPE LIST ROUTINE
SEE IF (0) TYPED
'BR gr NOT (0)
:JUMP
TO THE OPEN LIST ROUTINE
"SEE IF (S) TYPED
"BR IF NOT (S)
!JUMP TO THE SET INDIV. PARAM. ROUTINE

S0, sl
12¢

COMPARE 20(DEC) SECTOR LIMITS
'BR IF SO NOT » Sl

%’ T,BUFFO

¢?>

'SEE_IF

'R, BUFFO
2%

AND

(1)

TYPED

:SEE_IF (R) Tvpsg
'BR
IF
NOT (R),
YO ECHO BAD INPUT

SECNL 1

STYPE “50>S1 NOT ALLOWED"

ASKMDE

!GO ASK AGAIN FOR PARAMETERS

: COMPARE 22(DEC) SECTOR LIMITS

TYPE
TYPE

,SECNL2
NOTALD

‘TYPE
~82>53"
:TYPE "NOT ALLOWED”

'BR é‘ ga NOT >

B8R

ASKMDE

'GO ASK AGRIN FOR PARAMETERS

BLE

20$

'BR _IF FT NQT » LT

FT LT

TYPE

IMP

L.SBTTL

:TYPE

52,53

CMP

20%:

$QUES

CHMP

BLE

010532
010501

;sss EF NUL& snpur

:GO ASK AGRIN

148

;(f%) RETURN A BR
S
:(42) RETURN RDDRESS
'(tU) OR ERROR RETURN ARDDRESS

ASKMDE

CMP
BLE

010501

"% "

CMP
BNE

12%:

:TYPE

INPUT
ANY
IF
'BR
'ECHO BAD INPUT

TYPE

005676

ANHARE T nehohb BRAYEENCORER

4§
,BUFFO

CMP

010520

017224

:ASK FOR DESIRED INPUT MODE

TYPE

010470

;EXPLRI¥ I?PUT MODES N OPERATIONS

BlPkRBcr
, PARMDE

BNE
TYPE

2%:

0001ed4

00S66M4

SEQ 0103

Ge8
TYPE

DRVTST
ASKMDE
ASKMOE

005264

005674

EEPL N

TYPE

001314

016770

104

:ASK FOR DESIRED OPERATIONAL PARAMETER INPUT MODE

ggzggzz TYPE

3L BiEGE GRS BGTE

S139
S140
S141
Si42
S143

MOS8

30R(1052)
10-JAN-78
12:02
PARGE
TO - DESIRED TEST INPUT ROUTINE

: COMPARE CHOSEN TRACK LIMITS

. TRKNLW

*TYPE “FT>LTTM

NOTALD

s TYPE “NOT ALLOWEDTM

hsxmog

RUNTS

TO - TYPE

(T)

G0 ASK RGAIN FOR PARAMETERS
GO RUN THE TESTS

LIST ROUTINE

; #THIS ROUTINE TYPES THE ENTIRE PARAMETER LIST ON THE
; #CONSOLE, LINE BY LINE. ERCH LINE HARS THE FOLLOWING
; #FORMAT:
XX=YYYYYY ., WHERE XX IS A PARAMETER MNEMONIC

s ¥AND _YYYYYY IS THE VALUE OF THE PARAMETER IN OCTAL.
; #TYPING
; #AND

016232
016232
016234

00SC3l
004737

TYPLST:

030576

(4C)

(tZ)

CLR
JSR

CAUSES

IMMEDIATE RETURN TO DRVTST,

CRUSES RETURN

Rl
PC,PREPKB

RSKMDE.

IBLE KBD

INPUT

CZRENDO RKB11/06 SS VERIF 2
10-JAN-78 10:05

CZRBND. P11
i wn
—
[ e e e ey e e e
O WO N D DDNDD
D el
OVONCN LW [ ]

004737

MARCY1l

000003

00ssee

01443y
000G32

005522

016020
030616
030576
04051S

OO0OD0OO
0000000000000
0O0000

TO -~ TYPE

4g:
X ¥

006010

000002
000002

g
v

30A(1052)

18:

034402
001315
00Ssee

PC, TYPPRM

BEQ
CMPB
BNE
JMP
CMPB
BNE
IMP
JSR

8%
8303, INTCHR
4§
DRVTST
$032, INTCHR
6%
ASKMDE
PC, Ecoano

TYPE
15T

108$:

RDD

BNE
ADD

MOV

CMP
BNE

BIT
BNE
BIC

00S700

000137

000100
016020

162554

104401

010657

izs-

005522

148

000003

005Se2

014434
000032

00SSee

016020
030616
030576
034462

105

SEQ 0104

s TYPE CURRENT PQRRHETER AND VALUE

:TYPE (CR>, <L

$LRLF
INTCHR

'SEE_IF ANY INPUT AT KBD
:BR_IF NO INP

:SEE IF (1C) TYPED
:BR IF NOT (tC)
:JUMP TO ASK FOR DRIVE(S) AGAIN
*SEE IF ($Z) TYPED
:BR IF NOT ($2)
:JUMP TO ASK FOR NEW MODE
:ECHO BRD INPUT
:PREPARE FOR POSSIBLE KBD INPUT
PC . PREPKB
#"MA, PRMNEM(RL) 'SEE IF PARAM. 15 (MA)
108
:BR IF NOT (MA)
#2,R1
: INCREMENT PARAMETER INDEX
: INCREMENT PARAMETER INDEX
IE,RI
'GET _COPY OF INDEX
sPhanr R2
: COMPUTE POSITION IN LIST
#PRDFLT,R2
:SEE IF DONE WITH LIST
*BR_IF NOT DINE YET
18
#BIT1S,PT
12%
88176, ASTKS

,sss IF PATTERN 1S SPECIFIED

*BR IF PATTERN SPECIFIED

:DISABLE KBD INTERRUPT
:JUMP TO ARSK FOR NEW MODE
IMP
ASKMDE
TYPE OUT USER-osrxnso PRTTERN 16

168:

188%:
208:

TYPE

BEQ
CMPB
BNE
IMP

20%
8003, INTCHR
168
DRVTST

JMP

ASKMDE

JSR
JSR

PC. PREPKB
PC’ TYPPAT
148
#8176, ASTKS

: INCREMENT’ INDEX
:SEE IF 16 WORDS TYPED
iBR_IF NOT DONE YET
;DISABLE KBD INTERRUPT

TST

CMPB
BNE

JSR
TYPE
ADD

INTCHR

#032, INTCHR
188

PC, ECOBARD
$ERLF
k2 RI
caé.,nl

ASKMDE

TO - OPEN

; #THIS RQUTINE

(0)

IS USED

; TYPE

:JUMP TO ASK FOR NEW MODE

LIST ROUTINE
TQ

:%DEFAULT PARAMETERS INTO

EITHER REQUEST LORDING OF ALL

THE PRARAMETER LIST,

OR TO

{¥SEQUENTIALLY OPEN EACH PARAMETER FOR ALTERATION BY
P%¥TTY_INPUT. TYPING ($C) CRUSES IMMEDIATE RETURN TO
P%DRVTST,
016504

OPNLST:

1S5

JINITIRLIZE WORD_INDEX
ISEE_IF ANY INPUT
:BR_IF_NO INPUT
{SEE_IF (1C) TYPED
iBR IF NOT (tC)
;JUMP_TO ASK FOR DRIVE(S) AGAIN
iSEE _IF (12) TYPED
iBR IF _NOT (%2)
;JUMP TO ASK FOR NEW MODE
;ECHO BAD INPUT
PREPRRE FOR POSSIBLE kBD INPUT
JTYPE WORD XX = YYYY

JMP

.SBTTL

TYPE "USER-DEFINED PATTERN

BNE
BIC

162444

PFIFTN

CLR

CMP

000040

000100
016020

JSR

JSR
CMP

100000

PAGE

10-JAN-78
12:02
(T) LIS~ ROUTINE

00S660
005706

001344
0427?27
000137

NOS

AND (12) CAUSES RETURN TO ASKMDE.

Do
s s

30A(10S2)
TO - OPEN

TYPE

01057S
034034

000756

012700
012702
Q12022

AC,ROCHRS

TST

BEQ

LODFPT

TYPE

' $QUES

00S2e4

TYPE

00See4
001314

003116
024006

YPE

:($U)

NOTCFT
#’'D,BUFFO
CBUFFQ

s#ncs1
PROMPT

IF ANY

RDLHRS

DRVTST

NNNOOC
OO T oo
QOQNNOOCTUWN
L
ocLoLnnoe oo,

108:

ooco10

005264
054500

004737

034514

062701
glolige
062702
022702

000002

00s660
005706

INPUT

:BR IF DEFAULTS NOT REQUESTED
*SEE_IF (D) TYPED

:BR IF DEFRULTS DESIRED

BNE
ADD

128
%2, R1

CMP

o10 RO

'TYPE RSTERISK AND SPACE

:READ OCTAL DIGITS TYPED

2(fC) RETURN ADDRESS FOR RDCHRS

10%
8°MA, PRMNEM(R1)

124

RETURN ADDRESS FOR RDCHRS

J(tU) OR ERROR RETURN ADDR.
:SEE IF RNY INPUT

FOR RDCHRS

'BR_IF ANY INPUT
;SEE IF (nn) JUST DEFRULTED

:BR IF NOT
(MA)
I INCREMENT INDEX

"BR TO MOVE ON TO NEXT PRRAMETER
;SEE_IF 8 cunnncrsns TYPED

BLT
MOV
JSR

148’
#BUFFO, ~ (SP)
PC,OCTBIN

'BR_IF MORE THAN 8 TYPED
PUT BUFFER ADDR. ON STACK FOR OCTBIN
;CHECK DIGITS AND CONVERT TO BINARY

nov

(SP)+,LOWOCT
$HI0CY, HIGOCT

;GET LOW BINRRY BITS
:GET HIGH BINARY BITS

PC, CHKPRM

c ECK VQLIDITY OF PARAM VALUE

MoV
ADD
CMP

RI1,R2
#PRMLST,R2
$PROFLT,R2

#2,R1

; INCREMENT THE PARAMETER INDEX

138

0os472

;TYPE A SPACE
:(#2)

15T

BNE
CMP

006010

000002

035040

OR ERROR RETURN ADDRESS

IF NOLL

ASK RGAIN

ASKMOE

004737
016756

,see

'ECHO BARD INPUT

PNLST

; REARD nngscuscx
INPUT

034034

C13737

TF ALL DEFAULT VALUES DESIRED

'READ ESPONSE TO DEFAULT QUESTION
:(1C) RETURN ADDRESS
:($2) RETURN ADDRESS

#PRDFLT, RO
ORD DEFRULT LIST ADDRESS
SPRMLST R2
Lono PARAMETER LIST ADORESS
(RO)+, (R2)+
iLOAD A DEFAULT VALUE
CMP
#PROFLT,R2
:SEE_IF DONE YET
BNE
ys
'BR _IF MORE anuss TO LOARD YET
7578
MDFLAG
'SEE_IF DEFAULT
MODE
BNE
68
'BR_IF NOT DEFRULT MODE
MOV
81 SEOPCT
'SET PASS COUNT = 1
JMP
STPASS
:GO RUN DFLT TESTS
6S:
JMP
ASKMDE
*JUMP TO ASK FOR NEW MODE
NOTDFT: CLR
R1
:INITIRLIZE INDEX
TYPE CURRENT PRRRMETER nno anué
bs:
JSR
PC
YPE PARAMETER AND VALUE

TYPE

Q34402
013314
013334

00S470
054632

:ASK

SEQ 010S

( GOFPT: MOV
MOV
4§:
MOV

005706

040515

106

LORD ALL DEFAULT VALUES INTO Pnknnersn LIST

005706
005660

000001
017306
016020

BEQ
CMP

PAGE

OFQUES

JSR
DRVTST
ARSKMOE

OPNLST
000104

BOY

10-JAN-78_
12:02
(0) LIST ROUTINE

:ERROR RETURN RDDRESS FOR OCTBIN

: CHECK Pnnnnersn VALUE AND PUT INTO LIST
4§

RROR RET URN ADOR.
HIJ

&
S8R RN oo }\w’g;gmm
oo
£0
o
£ gwmmmgwmmmm
R 2R 2RO 20 2
0 AL s AT a0t ad o alv als ale a1+ o}
oo IYLITNINILY

ot ot ot Pt Pt Pt P Pt s Pt Bt Pt Pt Pt

00000000000000000

oo
T
o o

Pt Pt P

Pt st

016744

MACY11l

16504
S700

ot
e Bt

000

104401

004737
014434
016020

(AlAo A ATA
ooy
ooy

Pt Pt Pt e Pt Pt Pt Pt Pt Dt Pt

00000000000

st et Pt Pt (s et Pt Pt P Pt b n

OO0
N

0O00D0OOO00D0D

CZRSNOO RK&11/06 SS VERIF 2
CZREND. P11
10-JAN-78 10:0S

FOR CHKPRM

1OPEN USER DEFINEDPRTTEgN 15 FOfi MODIFICRA TION, IF NECESSARY
2% :
JSR
ODP
s MOVE onggg NEXT PARnneTER
:GET_COPY OF INDEX
;COMPUTE POSITION IN LIST
SEE IF DONE WITH LIST

MACY11 30R(10S2)

CZRENDO RKB11-06 SS VERIF 2

CZRBND.P11

5302

6303
6304
530S
gggg

016750

016752
016756
816762
16766

10-JaN-78 10:0S

001322

000137
104401
104401
000713

BNE

016020
005264

148

001314

5310
8311

§322

8323
5324
S325
€326

5327

§328

016770

104401

013337

016774
017000
017002

004737
014434
016020

034034

017004

017006

8157?

020027

SETPRM:

017034
017036
017044

005001
023761
001411

00S2e4

062701
010102

000002

6342

017060

022702

005706

5344

017066

6347
5348
5349
6350
5351
6352
5353
5364
6355
6356
€357

017074
Q17102
017104
017112
017114
017116
017124
017126
017130
017132
017134

5345

5346

:BR IF NOT DONE YET

: JUMP TO RSK ron NEW MODE
;CHO
BAD INPUT
YPE (7> AND <CR>,<LF>
'BR TO ASK AGAIN

001364

006010

122762
0QI¥1
122762
001340
005202
122762
001333
005202
020200
0062330
122762

RO, #4

TYP

?ousg

:TYPE *> * PROMPTER

:READ INPUT LINE
1 (fC) RETURN ADDRESS FOR RDCHRS
(ez) RETURN ADDRESS ron RDCHRS

E) gn ;RRER RETURN DR. FOR RDCHRS

AST Y4 cunn CTERS TYPED

PYYPE (7> ano <CR> (LF)

;

BGT

A
usg'’

9%’%“5"
AGATN
5 3 5?5 hOR
5
HANTHPUT
ELCVEN
TYPED rvpeD

8%:

ADD
MOV

82,R1
RI'R2

: INCREMENT INOEX
:GET COPY OF INDEX

CMP

8PROFLT,R2

CLR
CHP
BEQ

BNE

R1
s INITIRLIZE PARAMETER INDEX
BUFFO, PRMNEM(R1)" ; TRY TO MATCH 2-CHAR MNEMONIC
108
,éa 1F Pnnanzrsn FOUND IN TRBLE

spkanr R2

CMPB
BEQ
CHPB
BNE
INC
CMPB
BNE
INC
CMP
BGE
CMPB

8’ BUFFO(R2)
128’
8040, BUFFO(R2)
4
R2
$'=,BUFFO(R2)
4§
R2
R2, RO
4g
$040,BUFFO(R2)

CHECK FOR VALID LINE FORMAT

000075

COS264

000040

005264

000075

005264

iGs:

12%:
000040

ADD

000752

017070 012702 000002

PRMPSP

;SEE IF THIS MNEMONIC RESIDES IN' mnn MNEMONIC TABLE

6341 017054 062702 00S660
017064

TYPE

SETPRM

000004

017046
017052

6343

ASKMDE
,BUFFO
' $QUES
83

:READ AND CHECK INPUT IF ANY
JSR
C, ROLHRS
DRVTST
ASKMDE

5339
6340

P #PARAMETER VALUE BY TTY INPUT. pnonprsa (») IS
:#TYPED AND THE ROUTINE unxrs FOR INPUT OF THE FORM
!% XX=YYYYYY, WHERE XX IS THE MNEMONIC FOR ANY VALID
: #PARAMETER IN THE LIST, AND YYYYYY IS THE DESIRED PRRAMETER
P ¥VALUE IN OCTAL oxcxrs THE PROGRAM THEN ASKS FOR ANOTHER
' xPARAMETER BY TYPING =5 ~ AGRIN. TYPING (1C) CAUSES
‘% IMMEDIARTE RETURN TO DRVTST, AND (12) CRUSES RETURN TO
: #ASKMOE.

§33] 017020 104481 001314
2335
017956 99008F
000013
6334
017032
003370
5335
5336
§337
5338

IMP
TYPE
TYPE
BR

SEG 3106

PRARGE 107

sgr g T0 - SET (S) 6~?6vaEUQL
Pnnnn ROUTINE
HIS ROUTINE IS USE
LOW SETTING OF ANY INDIVIDUAL

5312
5313
5314
5315
5316
§317
5318
6319
€321

12:02

TO - OPEN (0) LIST ROUTINE

5308
5309

5320

10-JAN-78

CcaSs

005264

MOV

#2,R2

'SEE IF ALL ENTRIES HAVE BEEN CHECKED
;BR IF MORE TQ CHECK YET

'BR TO ECHO BAD INPUT

s INITIALIZE BUFFER POINTER

:SEE_IF NEXT CHAR IS
°
'BR_IF IT IS %=*
:SEE_IF NEXT CHAR IS A SPACE
:BR TO ECHO BRD 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

CZRENDO RKB11-/06 SS VERIF 2
10-JAN-78 10:0S
CZRBND. P11

MACY11

30A(1052)
TO - SET

Pt st ot PPt Pt
Pt
[y

nUs—
o
"‘"D\J\l\fl‘g
oo
o)

NNNN ~
bt s o s [
£
(= F o
o
NNNNNNNN
PPN
b batra e
NN
TOND

Pt Pt Pt Pt [y

0000 o
OO00O000000
00

BiZ1d4 BRAdR2

020200

SEesa)
REoRHL

000010

062702

00s2e4

148:

035040

004737
000662

034514

Aq’
2

SuU

RO
Rg
Rg 810

ggp

gnp
GT

R2,RO

MOV

Rg,- g#

?°§

gglgfiI¢S§GOCT

flin
MOV

oos47e

SEQ 0107

IF NOT
R
NCREMENT

?NE
N

P(SP)+,LOWOCT
e, oC BIN

A ?PQSE
BUFFER
POINTER

sss IF MORE CHARS LEFT IN BUFFER

?SO%NTER FROM CHAR COUNT
#pog
:gss
MANY CHREP LEFT

: CHECK FggDLEGRL Pfiggneggn VALUE'

054500

32
Sty 8836

D09

10-JAN-78
12:02
PARGE 108
(S) INDIVIDURL PARAM ROUTINE

100 MANY LEFT

RESS

OF DIGIT

SUT 1 ?N $T8CK §& 8CTBIN

EPROR
RET6R§ SBDR O?XEREC;gIEINQRY
GET LOW BINARY ITS

TER anus
F PRRRM
II??fiv
HT 2’32
FOR
RDOR.
RETURN
ERSSR
MODIFICRTION, IF NECESSQRY

; OPEN USEERDEFINED PgBTEgN 15 FOh

SETPRH

SBTTL

TO_- RUN (R)

;RETURN TO RSK FOR ANOTHER PARAMETER

TEETSTO

Srb%e BARARETERS Ve N gET cHE 5 FYINING
OF TESTS,
nugHs;ongaE
;onxveHEARDER
LI§§ ON
SSNNE READ
HEFIEET
oes
fiEo oa?ve AND
TO GET THE FORMAT FOR THIS
SECTOR
THIST?E DEE;R$°F"“”$§§ ocnnn Pnssss
i

THE

:ggégEToT¥Hé }?RETOREDIN THE FOPMAT BYTE ANDA JUMP IS
:¥THE END OF PASS ROUTINE RETURNS T. "NEWDRVTM TO SELECT

i %EACH SUCEESIVE 3 s ?RTESTING, UNTIL THE ENTIRE PRSS
[y

COMPLE

RUNTST

N NN NNNNNNNNNNYN NN
n
n
v
£
n
n
[+l
£
£

‘% (ALL

INPUT THE oesxneo NUMBER OF PROGRAM PASSES

TYPE

JSR

DRVTST

PAS

#c RDCHRS

RSKMDE
4§
TST

BGE

83’

TYPE
BR

' §QUES
43

4TPASS: CLR

$PASS

BEQ
CMP

00000S

00See4
001314
005264
054500

001763
005037

024006
001326

6%:

TYPE

6%
5, RO
BUFFO

:ASK FOR NUMBER OF PASSES

‘READ RESPONSEADDRESS
:($+C) RETURN

*(12) RETURN ADDRESS

1 (tU) OR ERROR RETURN ADDRESS
:SEE _IF NUL% INPUT

; GO_ASK RGAIN
:SEE HOW MANY CHARS TYPED

'BR IF 5 OR LESS

;ECHO BAD INPUT

;GO _ASK AGAIN

'GET BUF ADDR ON STACK FOR_QCTBIN
#BUFFQ, - (SP)
MOV
'CHECK DIGITS AND CONVERT TO BINRRY
PC,OCTBIN
JSR
ERRORn;rganRADDRESS FOR OCTBIN
69
OF "PASSES (1-77777)
'SET
(SP)+,SEOPCT
MOV
:BR IF 0 TO nsx AGAIN
63
BEQ
THIS 1S THE ACTUAL START OF A RON WITH %X
PARSSES

8%:

NIT. THE Pnss NUMBER

CZR6NDO RKE11-06 SS VERIF 2
CZR6END.PL1
10-JAN-78 10:0S

EQY

MACY11 309(1052)
10-JAN-78 12:02
TO - RUN (R) TESTS ROUTINE

S4l4

Q017312

017320
017326

012737
005037

112737

000001

177777
001330

005500

2418

017332

012737

000000

177776

S420
S42]
422
S423
S424
S485
8426
5427
S428

017344
017350
017354
017360
017366
(017370
017374
017400
017404

105037
005037
005237
022737
001002
000137
013700
105760
001752

003130
005522
005500
000010
023754
005500
005610

€415
S416
5417

S419 017340 012706 001100

5429
430
6431
S432

6433
434

017406
017412
017416
(017422

017424

017430

105037
005037
105760
001036

001102
001304
005620

012737

000624

105037

003124

S435
S436
S437
6438
6439
S440
S44yl
Sy42

017436
017444
017452
017460
017466
017474
017502
017510

S445

017520

448
5449
S4sg0

017542
(017550
017556

6456

017614

S4E2
S463

017614

010037

001332

S467

017632

004737

042542

S469

017642

032712

000200

2333

S446
S447

S45]
8452
8453
g:gg

E457
S45g
€459
5460
S461

017516

003120

TYPED:
020036

005736
005662
020040
005710
005742
020042
020044
020046

152737

000004

003124

012737
012737
012737

1456
001456
001456

005662
020040
005710

000436

017526
017534

012737
012737

017564
017572
017600
017606

012737
012737
012737
012737

001460
001455

001456
001000
002025
012025

NEWDRV:

2%:

000631
000632
000632
000632
000632
000400
000025
010025

020036
005736

1§:

1OV

#PRO, 98PS

RE-ESTAB. ISH anonxrv 0

CLRB
CLR
INC
CMP
BNE
JMP
MOV
TST8
BEQ

DRVERS'
INTCHR
DRIVE
$10,DRIVE
2s
DUNPAS
DRIVE, RO
DRVLS Y (RO)
NEWDRV

:CLERR ERROR COUNT FOR CURRENT DRIVE
SCLEAR TTY INPUT BUFFERWORD
: INCREMENT DRIVE NUMBER
:SEE IF DONE WITH THIS PRSS
:PR_IF NOT DONE CHECKING LIST
,JJnP IF DONE WITH THIS PARSS
:GET NEW DRIVE NUMBER
:SEE IF THIS DRIVE IS MARKED IN LIST
:BR IF NOT MARKED, TO CHECK ANOTHER

CLRB

TYPFMT

*ELSE LOCAD ALL RKOG PARAM

MOV

CLRB
CLR
TSTB
BNE

1298:
13%:

osrnéx SP

$TSTNM
STIMES
DTYLET(RO)
18
#624,LCME

BISB

#8.CDT, TYPFMT

MOV
MOV
MOV

#1456.LC
#1456, LSTCYL
#1456, PROFLT+2

MOV
MOV

IRESTORE THE STA

SINIT TEST NUMBER TO O
:INIT ITERATION COUNT
;SEE_IF RKO?7
'BR IF YES

8631) PRMLIM+2
8632, LC
8632, LSTCYL
8632, PROFL T+2
8632 PRMLIM+6
#400, HOLD1
825, AOLD3
£ 10025, HOL D4

MOV
MOV
MOV
MOV

:
:
:
:
:

468 017636 013712 020044

sSET_"RUNNING TESTS” FLAG

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

005742
020042
020044
020046

000001

21, TSTING

MOV

3%:

S4By
S465
017620 004737 032310
466 017624 112765 000125

MOVB

NEWPAS: MOV
8177777 DPIVE
>INITIALIZF DRIVE NO. TO -1
CLR
SOEVCT
:INIT APT OEVICE counr T0 0
CHECK DRIVE LIST FOR MORE DRIVES TO TEST ON THIS PASS

005500

012737
012737
012737
012737
012737
012737
012737
012737

PRGE 109

#1450, L CME
ILHSS,PRHLIM+8

;LOAD RKO7 PARAMETERS

#1456) PRML IM+6
#1000,HOLD1
#2025 HOLD3
812025, HOLDY

T1STB
HDALI
13%
TSTB
HOARLI+1
BMI 29%
JMP
IS INTGO
JIMP
MOV

anxnrcon
UNIT

JSR

Hotoa (R2)

:ARE WE DOING JUST HEARD-ALIGNMENT?
JYES, SKIP NEXT
;NHICH RE TURN
:SECOND RETURN
:GO 7O ALIGNMENT CODE

:GO_TO AUTO ALIGNMENT CODE
:SET DRV NO FOR APT

;READ THE_HERDER ofi sscron o, TRARK 0.CYLO, AND GET THE DRIVE FORMAT
Jso
PC,
INITS
xnxf ODRIVER PARAMS AND S.S.
MOVB
.RbHERD B.CMND(R&) sSET Rsno HERDER COMMAND

4§:

MOV
BIT

DRVCAL-

#BIT7. (R2)

D0’ RERD HEADER

:ISSUE RD HOR WITH FMT BIT = O
:ZHECK FOR C. READY IN (Sl

SEQ 0108

oo
nL
oo

5470

0000000000000 00000000 |
L) 1L 0 0 Dt et Bt s s e Pt P P s P Pt Bt Bma Pt o e [
NNNNNNNNYN NN

CZRENDO RKB11/06 SS VERIF 2
CZREND.P 11
10-JAN-78 10:05

001775

020046
000200

003125
005674

000060
o1111e
0013e6

035344
035464
000020

0oco40s
000000
000000
000000
000000
000000

g41410
005522

30A(1052)
TO

10-JAN-78

- RUN

6%:

:BR IF NOT RDY YET
*ISSUE RD HOR WITH FMT BIT = 1
:CHECK FOR C.
READY IN CSI
'BR_IF NOT RDY YET
*INITIALIZE FORMAT BYTE TO O
:INIT SECTOR LIMITS FOR 22(DEC)

TST

RKOB(R2)

:POP SILO ONE TIME

BEQ
BISB

8%
$B.CFMT,FORMAT

'BR_IF 22 secr FORMAT
SET 20 SECTOR FORMAT FOR THIS DRIVE

MOV
JSR
JSR
MOVE
BISB
TYPE
157
BNE
JSR
JSR
BIT
BEQ
JSR
CLR
BR

ST'STALLS
PC.INITSS
PC’ REDBSF
DR}VE . DRVNO
8’0, DRVNO
TSTORN
$pPASS
108
PC, DRVSER
PC CRTSER
oatrw cs
10
PC TYPBSF
INtCH
7571

;SET NUHBER OF UNIT STALLS DESIRED
:INIT THE S.S.
*READ BAD SECTOR FILE FOR THIS DRIVE
:GET DRIVE NO.
:CONVERT TO RSCII
:TYPE “TESTING DRIVE X"
'SEE_IF THIS 1S rxnsr PASS
'BR_IF NOT FIRST PASS
S TYPE "onrvs SER. NO. XXX
TYPE “CAR
SER. NO. XXXXXXXXXXX"
‘SEE IF ano SECTORS SHOULD BE TYPED
:BR _IF NOT
:TYPE BRD SECTOR FILES
SINIT. TTY INPUT CHAR BUFFER
::G0 To FIRST TEST

ngg

005702

108:
LCMG:
LSTCYL:
HOLD1:
HOLD3:
HOLDY:

SEQ 0109

yg
HOLDY, (R2)
$BIT7. (R2)
6%
FORMAT
2,FS

BIT

011131

110

BEQ
MOV
BIT
BEQ
CLRB
MOV

000024

011131

PAGE

TESTS ROUTINE

MOV

8%:

FO9

12:02

(R)

005506
00s510

0031eS
005506
00SS10
005502

7
7
7
7
7752
7 756
7
7
7

020046

MACY11

0
O
O
O
O

S3/LS

#BIT9,RKDB(R2)

gl,tg

SECTOR FMT

;TEST FORMAT BIT IN HERDER WORD 2

*INIT SECTOR LIMITS FOR 20(DEC) SECTOR FMT

CZRENDO RK&ll 06 SS VERIF 2
10-JAN-78 10:0S
CZREND.P1

MACY11l 30?(1052)

GOS

o 260600 B30 0600 06 06

e
s Pt Pt
Pt Pt
s Pt P
Pt

30 360000 06 0 30300600 00 3

0 0600 0

00 0 BN R RN R

NN AR

iTEST 1
OFFSET TO-FAILURE MEASUREMENTS
;#IN THIS TEST
R REPERTED PATTERN 072307(QCT) IS WRITTEN INTO ALL
;*uORDS OF SECTORS FS AND LS ON TRACKS 0-2 OF CYLINDERS FC AND LC.

DoONoNLwWw—O

iy
i

SEQ 0110

10-JAN-78
12:02
PAGE 111
OFFSET-TO-FAILURE MERSUREMENTS

; #*THE_SAME SECTORS ON ROJRCENT CYLINDERS ARE THEN WRITTEN WITH

% 16723E(OCT) (TO ESTABLISHA KNOWN PATTERN)

: ¥THEN,

' %0FFSETS,

BUT THEY ARE NOT TESTED.

EACH DESIRED SECTOR IS WRITE CHECKED WTH INCRERSING POSITIVE
UNTIL EITHER A “DATA TYPETM ERROR OCCURS, OR THE FULL RANGE

: #OF Posxfxvs OFFSETS HAVE BEEN RPPLIED THEN, THE SAME SECTOR IS WRITE
: #CHECKED WITH % REARSING
: *MAXIMUM NEGATIVE OFFSET

*%ORIGINALLY WRITTEN,
*%CYLINDERS FC AND L&

5520

NEGAT
HEAD orrssfs UNTIL FRILURE OR
IS AP L ED. THISIS DONE FOR ALL THE SECTORS

IN THE FOLLONING onoea : sscvons FS AND LS ON
FOR TRACK
O, THEN FOR TRACK 1, AND FINALLY FOR

!¥TRACK 2. THE OFFSET-TO-FAILURE RESULTS ARE REPORTED IN ORDER OF

: *KINCRERSING TRACKS, RS FOLLOWS :

% OFFSET-TO-FAILURE MEASUREMENTS
;% TRACK
;%

X
i
;%
;!
,i

X
X
X

:¥NOTE:
020050

SECT

XXX
XXX
XXX

XX
XX
XX

ETC.

+40FST
(UIN)

XX XX
XXXX
XX XX

-OFST
(UIN)

XXXX
XXXX
XX XX

IN AN ADRS 200 DEFAULT RUN,

FS DEFAULTS TO O,

AND LS DEFAULTS

'%xTO 10(DEC), FOR THIS TEST.
lll*lll*li‘lllllllilliil*ll!*lil*!ill**ll!llllllilillll*iililil

000004
012737
004737
004737
000137

000001
033672
033740
021176

oo4737
0Q4737

032310
030576

105737
00100S
005037
012737
013765
113765

003116

001324

005506
000012
00S660
005506

00SS510
000002
0000u4

020040

00SS0o4
oosesee

00SSO4
072307
037614
167230
000002
062765
023765

CYLN

037614
000002
020040

+&T1:

#1,$TESTN

s :SET TEST NUMBER IN APT MAIL BOX

BNE
CLR
MOV
MOV
MOVB

33
FS
#10.,LS
FC,P CYLN(RS)
FS'P.SECT(RS)

‘BR xr NOT
'SET FS = O
:SET LS = 10(DEC)
:SET CYL = FC
:SET SECTOR = FS

MOV

LC, CYLNDR

sT UP FOR LOOP ON ERROR
PC,SETTUP
JSR
:SEE_IF ITER, no = 0 FOR THIS TEST
PC’CHKITR
JSR
*JUMP TO NEXT TEST
15t2
IMP
;RETURN HERE FROM CHKITR IF TEST’ SHOULD BE RUN
; IN ITIALIZE DRIVER PARAMS AND sua SYS
JSR
INITSS
:PREPARE FOR POSSIBLE KBD INPUT
PC,PREPKB
JSR
CHECK THEM
SECTORS AND200WRITE
PQRQHE?ERS, WRITE THESEE
; INITIALIZE
DEFAULT RUN
bRs
TSTB
M DFLAG
3%:

CLRB
CMP
4g:

000002
000002

SCOPE

MOV

6%:

BNE
DEC
MOV

JSR
MOV
DEC
gMI
JSR
ADD

CMP

P. tRCK(RS)
Ls?ch LC

:SET TRACK = O

:SEE IF LC =632/1456

CYLNDR

'BR IF NOT £32/1456
‘MAKE IT 631 (PRESERVE BSF)

PC, WRTSEC
$167230,R3
P.CYLN(RS)

;D0 WRITE AND WRITE CHECK
:DATA FOR AJACENT CYLS
INEXT LOWER CYL

#72307,R3

6%
pc NRTSEC
CYLN(RS)

:GET DATA PATTERN

;BR IF CYL NEGATIVE
:D0 WRITE AND WRITE CHECK
NEXT HIGHER CYL

LSTCYL chN(Rsi

:SEE IF CYL = 532-1456

CZRGNDO RKB11-06 SS VERIF 2

CZREND.P11

5564

aoegg

§565
SS66
Stw?
5568
6569

(202
020240
020242
020246
020252

6571
6572
6573

020264
020266
020274

£570

5574

osgass

020276

5575

020304

583

10-JAN-78 10:05

001004

122765
001402
004737
005365
105265

652?65

1340
126537
001406
113765

000002

037614
000002
00000S
000004

005510

00SS510

000004

osggwo

8 2737

000002

5585

020350

104401

011240

5587
5588
5689

(020362
020370

013765
113765

005660
005506

6591
6532
593

020376

020402
(020406
Qo04ie

012700

065660

74
§578
€579
£580
6581
5582

85831

0759

10-JAN-78

P.tRCK(RS)

;SET TRACK = O

(20346

1002

012701
012720
008301

(020414

001374

595

(20420

005000

(020416

000002
000004

MOVB

LS P.SECT(RS)

CLRB

;SET SECTOR = LS

2 ggnrxnus WRITING

005004

208 :

000117

(042542

000001

6603
S04
Se0S
5606

020464
020462
020466
020474

112765
004737
112765
012737

000115
042542
000131
021142

000001

608
5609
5610
5611

020506
020512
020520
020526

004737
012737
112766
004737

042542
044200
000177
042542

S614
5615
Se16
S61?
S618
S619

020544
020850
020554
020556
020560
020562

004737
105737
001020
010001
005200
062704

042542
003140

020450

020502

812737

012737

110065

105037

177777
000006

003140

005550

000001
003046
003046
000001

Sel2 020532 112765 000115 000001
5613 020540 105065 000006
000031

MOVB

1es

.CS

HED

trTRCK(RS)

; EE IF REPORTS ARE INHIBITED
‘BR

IF INWIBITED

,TYPE HEADINGS

'SET TRACK = FT

nov
FC.P CYLN(RS)
!SET CYLINDER = FC
MOVB
? § T(RS)
ss SECTOR = FS
sLORD THE R/W aur tR EOR WRITE CHECKS

198:

£599
2600 020436 112765
5601 020444 004737

020436

BNE

MOV

000400
072307

00SS46

S607

(020422

005702

127777

5602

#3,F.TRCK(RS)

1
65
000002 005504 14%:
CMP
P.CYLN(RS), CYLnoh se
LC
020320 001407
BEQ
168
BR_IF YES
Q20322 013765 005504 000002
MOV
YLNDRCYLN(RS5 ?ET EYB g
668765 005506 000004
MOVB
P.SECT(RS)
st
T0R = FS AGAIN
762
BR
es
:BR T0 courxnue WRITING
INITIRLIZE Pnnnnersns 7OR orFss? MEASUREMENTS

§594

698

:BR_IF NOT

4§’
P SECT(RS),LS
T3

S586 020354 113765 005664 00000S 18%:

55397

BNE
CMPB
BEQ

TYPE

5595

SEQ D111

;SEE IF BSF
'BR IF YES, TO PROTECT IT
‘D0 WRITE AND WRITE CHECK
*RESTORE CYL NO.
;INCR TRACK
;TRACK = 3 YET 7
!BR IF NOT YET
:SEE IF SECTOR
= LS
'BR_IF YES

BIT

5590

112

82, P.TRCK(RS)
108
PC, WRTSEC
P.EYLN(RS)
P TRCK(RS)

168:

g8l

PRGE

CMPB
BEQ
JSR
DEC
INCB
CMPB

12%:

HO9

12:02

OFFSET-TO-FAILURE MEASUREMENTS

BNE

8%:
10$:
00000S

00000S

30R(1052)

000005

000003

105065

557

MACY1l

RWBUF , RO

:SET BUFFER ADDRESS

138

:BR

*INIT OFFSET NUMBER T0 O

MOV
MOV
DEC

#400, R}
so72407,<no)+
RI

CLR

nov

c—x PLOFST

BNE
CLR

MOV

!PREPRRE TQ LOAD 400(QCT) WORDS
'LOADA WORD INTO BUFFER
:DECR COUNTER
IF NOT DONE YET

SINIT

NGOFST

(+) OFFSET VALUE

,{N}T{
i%E CURRENT FAILING (+) OFFSET

NITIR

CURRENT FARILING (-) OFFSET

PERFORM OFFSETS nnb WRITE CHECKS
22§
MOVB
#SEEK,P.CMND(RS) :SET SEEK COMMAND
JSR
PC,DROCQL
,¢snron SEEK
MOVB

RO'P.OFST(RS)

SET CURRENT OFFSET

CLRB

WCEFLG

:CLEAR WRITE cnccx ERROR FLAG

MOVB
CLRB

$OFFSET, P CMND(RQ) SET_OFFSET CHND
orsrthsz
ssf OFFSET = 0

MOVB
JSR
MOVB
MOV
JSR
MOV
MOVB
JSR
JSR
I518
BNE
MOV
INC
ADD

SOPFSET P.CHMND(RE) :SET OFFSET COMMAND
PC, DRVCAL
.PERFORM OFFSET
SWRTCHK,P.CMND(RS) :SET WRITE CHECK COMMAND
$RCKHD | A. RBNL ;sef SPECIAL ERROR HRNDLER ADDRESS

PC, DRVCAL
:PERFORM A WRITE CHECK
SERRHOL , A b !RESTORE ERROR HANDLER ADDRESS
$SUBCLR'P.CMNG (R&) SET SUBSYS CLEAR CMND
PC.DRVCAL
cLERR THE SUBSYSTEM

pc DRVCAL
WCEFLG
263
RO, R1
RO
#25. , Ry

‘OFFSET encx 10 0
'SEE IFA WRITE CHECK ERROR OCCURRED
'BR rr AN ERROR OCCURRED
!GET
A COPY OF CURRENT OFFSET
: INCREMENT OFFSET
"INCR OFFSET VALUE BY 25(DEC) UIN

CZR6ENDC RK611-06 SS VERIF 2
CZREND.PLI
10-JAN-78 10:05

5620

g2l
8622
5623
Se24
5625
626
5627
5628
5629
5630
5631
€632
5633
6634
5635
5636
6637
5638
5639

020566

020572
020576
020600
020604
020606
0206l2
020614
020616
020622
020624
020630
020632
020636
020640
020646
020650

042701

022701
001317
032700
001015
012700
005004
000710
032700
001403
010437
000403
010437
000763
032737
0010S1
116501

Se4l

020654
020656
0206
020661

010146
104403
063
000

Se44
S645
5646

020672
020674
020675

104403
q
000

S640

Se42

020662

104401

109

MACY!1l 30R(1052)
10-JAN-78 12:02 PAGE 113
T
OFFSET-TO-FRILURE MERSUREMENTS

177700

000060
000200
000200
000200
005550
005546
000002

005702

00000S

020676

104401

020710

1049404

5652
5653
654

020716
020722
020724

005737
100003
104401

5651

020712

104401

5655
€656
5557
5658
5659
5660
Se6l

020730
020732
020736
020740
020744
020750
020752

(000403
013746
10440S
104401
005737
100003
104401

S6b3

020760

ceb2

5664

5665
5666
6667

668
5669
S670

671
Se72
673
S674

020756
020764

020766
020772

021000
021002

021010

021012
021020
021022
021030

:MASK FOR MAGNITUDE BITS

.BYTE

:3 DIGITS

BYTE

013312

TYPE

MOV

TYPQS
.BYTE
.BYTE

013313

TYPE

Se48 020702 116501 00000
5649 020706 010146
5650

#177700,R1

CMP
#60,R1
‘SEE IF nnx OFFSET ARPPLIED IN THIS DIRECTION
‘BR IF NOT YET
22$
BNE
BIT
$8177,R0
'SEE IF NEG OFFSETS DONE YET
BNE
323
"BR IF YES, TO PRINT CURRENT SECTOR RESULT
2us:
MOV
8200, RO
JINIT FOR NEG OFFSETS
CLR
RY
SINIT (-) OFFSET VALUE T0 O
BR
22%
'BR TO APPLY NEG OFFSETS
268:
BIT
$81T7,RO
:SEE _IF NEG OFFSETS DONE YET
BEQ
283
:BR IF NOT YET
MOV
RY,NGOFST
snve THIS FRILING (-) OFFSET VALUE
BR
L
:BR TO PRINT CURRENT SECTOR RESULT
26%:
MOV
RY,PLOFST
:SAVE THIS FAILING (+) OFFSET VALUE
BR
a4é
*BR TO APPLY NEGATIVE OFFSETS
32%:
BIT
OBITI cs
:SEE IF REPORTS INHIBITED
BNE
438
:BR IF INMIBITED
s TYPE OFFSET RESULTS ron THIS SECTOR
MOVB
P.TRCK(RS),R1 ~ ;GET TRACK NO.
MOV
Ri,-(SP)
SPUT IT ON STACK
TYPOS
;TYPE 17

Se43 020666 016546 000002
Se47

BIC

MOVEB
MOV

TYPON

013314

TYPE

005546

1ST
BPL
TYPE

011231

BR
MOV
TYPDS
TYPE
TST
BPL
TYPE
B8R

SPACE3

# CYUN(RS),-(SP) :PUT CYL ON STACK
4

ACE2

#
bECT(RSJ R1
Ri,-(SP
SPACE1

PLOFST
368
NOFALS

388
PLOFST, -(SP)
SPACE1
NGOFST
40$
NOFALS

00SS546

368:

013314
005550
011231

38%:

013746

00S5S0

403 :

104401

00131S

126537

000004

00SS510

42 :
TYPE
$CRLF
-SET UP TO TEST NEXT SECTOR

00SS10

000004

000002

00SS04

Y48:

00SS04
005506

000002
000004

46%:

000403
10440S

001404
113765

000602

026537
001410
013765
113765

5675 021036 000137 020416

43%:

MOV

TYPDS

: SUPPRESS

428

NGOFST, - (SP)

?YPE I7
4y DIGITS
suppness

;GET SECTOR

JPUT_IT ON STACK
*TYPE SECTOR
s SEE _IF THERE WAS A FARILING (+) OFFSET
‘BR IF THERE WRS
STYPE * NONE"
CONTINUE
JPUT (+) OFFSET anue ON STACK
:TYPE IT IN DECIMAL

:SEE IF THERE WAS A FAILING (-) OFFSET
'BR_IF THERE WRS
:TYPE * NONE”
: CONTINUE

;PUT () OFFSET anus ON STACK

STYPE IT IN DECIMA

*TYPE (CR>,<LF>

CMPB

P.SECT(RS),LS

;SEE_IF SECTOR
= LS

GO TEST THIS SECTOR

BEQ
MOVB
CMP
BEQ
MOV
MOVB

JMP

44s
LS,P.SECT(RS)

‘BR_IF YES
:SET SECTOR = LS

P.CYLN(RS), CYLNDR :SEE IF CYL = LC
48%
"BR_IF YES
CYLNDRP.CYLN(RS) :SET CYL
= LC
P.SECT(RS)
stT SECTOR = FS

aot

:GO TEST THIS SECTOR

SEQ 0112

CZRHENDO RKB11-06 SS VERIF 2

CZREND.P11
5676

021042

10-JAN-78 10:05
105265

00000S

677
8678
5679
Se80
S681
S682
683

021046
021054
021056
021064
021066
021074
021100

122766
001404
013765
000761
112765
004737
013737

5686
Se87
688

021120
021122
021130

001406
013737
013737

005670
005672

gggg

021136

000137

021176

684

021106

013737

000003
005660
000113
042542
005674
005676

S68S 021114 105737 003125
S689

021136

MACY!1 30A(10S2)

00000S
000002
000001
00SS06

S0%:

00S506
005510

TST2

s JUMP TO NEXT TEST

'¥

"DATA TYPE" ERROR IS EXPECTED (AND VALID).

§637

021152

032765

130400

000034

BIT

5699
§700

021162
0211e6

000137
105237

044200
003140

021150

021160
021172

001006
001002

000137

046356

#WCE,P.CS2(RS)

USED WHEN A

;SEE IF WRITE CHECK ERROR OCCURRED

BNE
4s
‘BR IF WCE
:CHECK FOR OTHER *DATA TYPE" ERROR
sHVRC'DTE!OPI'DCK,P.ER(RS)

BNE

JIMP
INCB

4S:

5703
5704
S70S

4§

:BR IF A DATA ERROR OCCURRED

RE TNML

: TAKE NORMAL RETURN

ERRHDL
WCEFLG

JMP

:GO_HANDLE OTHER ERROR
'SET WRITE CHECK ERROR FLAG

; 232222222222222%2222222222222:2222222122XX22T22222X22222222222
2

5706

iTEST 2

E;gg

NPR/MEMORY WORD ADORESSING TEST

;}g }Eéssgssr MEMORY WORD ADDRESSING CARPABILITY DURING RKOG NPR’S,
1

! ¥BEFORE TESTING BEGINS, THE XXDP LOADER IS SAVED, IF PRESENT

—~OWOONCNLWN-OW

v
NN NNNNNNNNNNY

Fohnnt

xTHIS IS THE ABNORMAL RETURN FROM THE ORIVER,

WRCKHD: BIT

nr ADRS RWBUF.

!%TAEN, STARTING AT THE FIRST ADDRESS OF THE NEXT' 1K MEMORY
BLOC
" ¥BEYOND ADDRESS RWBUF +6000(OCTAL) , WRITE UNIQUE NUMBERS
'%(STARTING WITH 1), INTO ERCH_OF UP TO 64K WCRDS (DEPENDING UPON THE
: XAMOUNT OF PHstan MEMORY). THESE NUMBERS REFLECT UNIQUE RDDRESSES
(¥l ITHIN THE
b ?LOCK

NEXT.

WRITE THE 64K WORDS (MAX) ONTO THE DISK

: #AT ADDRESS FC FI,FS (SCflLEb IF NECESSARY, TO RVOID PACK OVERFLOW
;on DESTRUCTION OFf oT
sgcggg FILSA. THEN ZERO THE ENTIRE BLOCK
ME

AND REA

HE D

lQDDRESSES COMPARE THE DATA READ TO THE DATA WRITTEN. TYPE THE FRILING

P#VIRTURL C(IF MEM. MGT.) RS WELL AS PHYSICAL ADDRESSES,

:#AND BRD DATA,

AND THE GOOD

FOR UP_TO THE FIRST 10(DEC) FAILING LOLATIONS.

;% IF MEMORY MANAGEMENT IS INSTALLED AND THERE IS RDDITIONAL MEMORY TO
' *EXERCISE, REPERT THE ABOVE WORD ADDRESSING TEST, FOR ERCH OF THE
: xREMAINING 649K MEMORY BLOCKS.

8722
5723

§725

021176

8727
5728
€729
§730

021206
021212
021216

5731

:SEE IF 22 SECTORS

IMP

000020

726

§3’LS

:BR _IF YES
'RESTORE FS,LS FOR 20 SECTORS

040000

gS7ed

;s INCREMENT TRACK

54$
SO0, FS
S1.LS

032765

E;Bé

P.TRCK(RS)

BEQ
MOV
MOV

TST8

021142

5698

SEG 0113

#3,P.TRCK(RS)
:SEE IF TRACK = 3
S0
'BR_IF YES
FC,P.CYLN(RS)
;SET CYL = FC
4ed
GO TEST THIS SECTOR
SPECAL . P.CMND(RS} :SET RECAL COMMAND
PC, GRVEAL
,ob CLEANUP RECAL IBRATE
sa,rs
:RESTORE FS,LS FOR 22 SECTORS

2694

6695
5696

PAGE 114

CMPB
BEQ
MOV
BR
MOVB
JSR
MOV
MOV

54§

12:02

OFFSET-TO-FRILURE MEASUREMENTS
INCB

005510

5692

5693

48§ :

10-JAN-78

JO9

000004

« 3636 36 3 3 3 36 36 3 3 36 3 3 3 3 36 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 I 3 3 3 3 ¥ W 3 B 3 2 2 W 3 3 3 3 5 3 W I 3 % 3 ¥* X X

021200

012737

000002

021222

004737

032310

004737
004737
000137

033672
033740
021506

001324

$&12.

SCOPE

MOV

82, STESTN

:SET TEST NUMBER IN APT MAIL BOX

JSR

PC, INITSS

; INITIALIZE DRIVER PARAMS AND SUB-SYS

JSR
PC.SETTUP
ésr UP FOR LOOP ON ERROR
JSR
PC.CHKITR
:SEE IF ITER. NO. = O FOR THIS TEST
IMP
1513
:JUMP TO NEXT TEST
:RETURN HERE FROM CHKITR IF TEST SHOULD BE
R

CZRENDO RK611-06 SS VERIF 2
10-JAN-78 10:05
CZREND.P 11

0000000000
AV AV aVIaW oV g ¥ gV TgU] o V] 4 V]

021226

004737

030576

004737

0831770

012737

17727277

004737

040644
035270

100010
013737

(PI&; oo

nNe—r—0Q

013737
004737

nnunnunnufii

KO9

30R(1052)
10-JAN-78
12:02
PAGE 115
T2
NPR/MEMORY WORD ADORESSING TEST

JSR
PC.PREPKB
:SAVE XXDP LORDER,
IF PRESENT
0oss4e
003133
003134
005536

012737
004737
0Q4737
004737
112765

004737

005003
004737
112765
004737
004737
104411
004737
00070S
004?737
105737

021506

001402
005037

gooole
005600
005602
177774
000007
057732

001110

032050
003143
172516

JSR

XDPSAVi2

PC, SAVXDP

;GO SAVE XXDP LOADER

;SET FLAG FOR SVPRMS

#1.XOVLRD
01 XDPSVD

:SET XXDP SAVE AREA ADR

:SET INDICATORS

JSR

PC. nquoc

BMI
CLR
15T
BNE

50$
P.WC(RS)
Ri
6%

:COMPUTE MAX WORD COUNT FOR THIS MA
'SEE IF ALL MEMORY TESTED YET
:BR_IF ALL DONE
s INIT WORD COUNT TO 65,536(DEC)
'SEE IF WRD CNT SHOULD BE 65,536
:BR IF YES

MOV

RO, P.WC(RS)

;SET WORD COUNT

MOV

MAt2 Rl

15T

6%:

MOV
TST
BPL

021400
033672
04e05e

o410S2

;s COMPUTE_STARTING ADR OF XXDP

CLR

onaeur XDPSAV

BIC
BISB
00S604
005606

037722
00oi21
042164
o400SH4

P, FNDXDP

NEG

005600
00Se02
031646

o4z2164

JSR

MOV
s INIT PQRQHETERS
aécxn TESTING s INIT PARAMS
pc, SETUPM
JSR

4§:

000010

: PREPARE FOR POSSIBLE KBD INPUT

MOV

MOVB
MOVB

0ooci2

000000

MRCY1l

:SET UP MEM MGT

MOV

R1’

8177774,R1
R1,P.BAAI(RS)

Kktii
148

:SET BA BITS 0-15
:GET MA BITS 1e-21
:MASK FOR LO 2 BITS
;SET BA BITS 16,17
:SEE_IF MEM MGT’ PRESENT
'BR IF NOT

MA, PMA

:SET BUFFER ADDRESS

MA'P.BALO(RS)

MOV
MAt2, PMA+2
PC, PREPAR
JSR
PERFORM THE TEST s
, SLPERR
MOV
{us:

000001

:SET _UP FOR LOOP ON ERROR
PC SETTUP
:SAVE PRRAMS FOR THIS XFER
PC, SVPRMS
:LORD THIS nen BLK WITH INCREMENTING DATR
PC.LDMEM]
sWRDATA, P. cnno(ns) ssr WRITE onTn COMMAND
PC, TRNSFR
WRITE THE DRTR
'SET DATA WORD= 0
R3’

MOVB
JSR
JSR
5CO

sRODATA B.CMND(RE) :SET READ COMMAND
PC, TRNSFR
nshoTHE DATRA FROM DISK
*PERFORM SOF TWARE COMPARE OF DATA
PC) CKMEM]
:CHECK FOR INTERNAL LOOP ON ERROR

JSR
BR
JSR
T578
BEQ
CLR

PC, INCRMAR
4s
PC, GETXDP
UBMPRS
548
JuSR3

PC, LDMEM2

GET NEW MR FOR NEXT TRANSFER

508:

cus

:SET NEW LOOP ON ERROR ADRS

JSR
JSR
JSR
MOVB
JSR
CLR
JSR

000001

: PREPRRE MEM MGT REG’S AND UNIBUS MAP

LOAD MEM BLK WITH ALL ZEROS

M
: COMPUTE NEXT
1GO SEE IF nons MEMORY TO TEST
'RESTORE XXDP LOADER
!SEE _IF UNIBUS MAP PRESENT
:BR_IFNOT
:DISABLE UNIBUS MAP

*lil!!l!ll!ll!*lli!l*l*li!!l*lllll!*l*l*l*!ii*ll!*liilli!***l**

TiTE

NPR/MEMORY Bt OCK ADORESSING TEST

iIN Tuis TEST, MEMORY BLOCK ADDRESSING CRPABILITY DURING RKOG&

SEQ 0114

CZRENDO RK&11-06 SS VERIF 2
CZR6ND.P11
10-JAN-78 10:05

LOS

MACY11l 30A(1052)
10-JAN-78
12:02
PAGE 116
T3
NPR/MEMORY BLOCK ADDRESSING TEST

5788
5789

; ¥NPR’
1§ T§§Teo.
' ¥BEFORE
TESTING BEGINS,

SEG 0115

THE XXDP LOADER IS SAVED,

IF PRESENT,

AT ADRS RWBUF.

§790

¥MEMORY WILL BE TESTED STARTING AT THE FIRST ADRS OF THE NExt 1k

5792
5793
5794

:%xTHE TEST BEGINS BY WRITING A SINGLE NUMBER INTO ALL LOCATIONS OF
' xEACH MEMORY BLOCK OF UP TO &4K WORDS. THIS NUMBER UNIQUELY DEFINES
:%EACH BLOCK. THEN WRITE EACH BLOCK ONTO DISK AT ADDRESS FC,FS,FT

5791

: #*BLOCK BEYOND RWBUF+6000(OCTAL
).

5795
5796
5797

' % (SCALED, IF NECESSARY TO AVOID PACK OVERFLOW_OR DESTRUCTION OF THE BRD
*%xSECTOR FILE). ZERO THE BLOCK IN MEMORY, AND THEN READ THE DATA
:xBACK_INTO THE PROPER PHY;écng ngoasssgé. DO THIS FOR ALL 64K BLOCKS,

§799

"%xTYPE FAILURES AS DESCRIBED ABOVE FOR THE FIRST 10(DEC) FAILING

5798
5800
S801

*%xAND THEN COMPARE THE CONTENTS

5802

021506

000004

6804

021516

004737

6803

021510

0i2737

000003

004737
000137

033740
022046

033672

021532
021536

004737
004737

032310
030576

5811
6812
6813

021542
021546
021854

004737
012737
005037

031770
065660
005544

G814
5815
5816
6817

5818
5819

021560
021564
021572
021600

004737
112737
112737
012737

032042
00000l
000001
177777

021606

005037

005524

€823
824
6825

021626
021630
021632

005701
100473
005065

021640
0elb42

001003
005400

5820
5821
6822

5826

5827
5828

6829
6830

6831
5832
6833
6834
£§835
5836
§837

5838
6839
5840
g§84]

cg42

5843

021612
021616
021622

021636

004737
012704
004737

005701

Q021644
021650

010065
013765

021676

100010

0216856
021662
021666
021672
021700

021706
(021714
021720
021724

0217co

013701
042701
150165
005737
013737

013737
004737
005737
001026

004737

ALL

THE MEMORY TO EXPECTED VALUES.

: % OCATIONS IN EACH 64K MEMORY BLOCK.
EE I X22122222222322222322222X222222322222X22222F222X22X2S222222
23

6805
6806
5807
6808
6809
5810

021522
021526

001324

$813:

JSR

005600

005602
031646
005524
042052

83, STESTN

PC.SETTUP

:SAVE XXDP LORDER,

JSR
MOV
CLR

005542
003133
003134
005536

; :SET TEST NUMBER IN APT MAIL BOX

'8ET UP FOR LOOP ON ERROR

IF PRESENT

P, FNDXDP
SRWBUF , XDPSAV
XDPSAV2

; COMPUTE STARTING ADRS OF XXDP
:SET XXOP SAVE AREA ADDRESS

JSR
MOVB
MOVB
MOV

PC, Sk /XDP
81, XOVLAD
81’ XDPSVD
s-1
PATRN

:GO SAVE XXDP LORDER
:SET INDICATORS

JSR
MOV
JSR

PC, SETUPM
#1.RY
PC . MXWRDC

JINIT PARAMS
PINIT DATA WORD
:COMPUTE MAX WRD CNT FOR THIS MA

:SET FLAG FOR SVPRMS

: INIT PARRMETERS, WRITE AND READ’BACK ALL MEMORY BLOCKS
CLR
SELECT
s INIT COMPARE FLAG

2%:

4§ :

000012

005602
177774
000007
057732

MOV

TSR
PC.CHKITR
'SEE IF ITER. NO. = O FOR THIS TEST
JMP
15ty
:JUMP TO NEXT TEST
:RETURN HERE FROM CHKITR IF TEST'SHOULD BE RUN
JSR
Pc,anxrs
‘fi”éTI“EIZS DRIVER PARAMS
AND SUB-SYS
JSR
PC, PREPK
: PREPAR
R POSSIBLE KBD
INPUT

040644
000001
035270

000012
005600

scope

TST
BMI
CLR

1
30%
P.WC(RS)

'SEE IF ALL MEMORY TESTED YET
'BR_IF DONE WRITING AND READING
"INIT WRD CNT T0 B5,536(DEC)

BNE
NEG

63
RO

:BR IF YES

7ST

MOV
MOV

RO, P.WC(RS)
MA'P.BALO(RS)

:SEE IF WRD CNT SHOULD BE 65536
sSET WORD COUNT
:SET BR BITS 0-15

000010

6%:

005604

BPL
148
:SET UP MEMORY MANAGEMENT
MOV
MA, PMA

:SET BUFFER RDDRESS

148

:PREPARE MEM MGT REG’S AND UNIBUS MAP
'SEE IF COMPRRES SHOULD BE DONE YET

005606

MOV
8IC
BI
TST
MOV
JSR
IST

BNE

Mai2 R1
8177774, R1
1,P.BRHI(RS)
skt1i

MAt2, PMA+2
PC, PREPAR
SECECT
208

'GET MR BITS 16-21
'MASK FOR LO 2 BITS
:SET BA BITS 6,17
ISEE IF MEM MGT’ PRESENT
:BR

:BR

. WRITE Q?%RRERO THIS nsn BLK ON R KOb

les

PC, SVPRMS

IF NO

IF YES

; SAVE PARAMS FOR THIS XFER

CZR6NDO RKB11-06 SS VERIF 2
CZReND.PL1
10-JAN-78 10:05

gel1732
021734

010403

037722
00g123
o4e216e4
D37722
goglizl
o4el1eM

022000

000710

022002
022004

010403
004737

MACY11l

MO9

30A(1052)
10-JAN-78
12:02
PAGE 117
13
NPR/MEMORY BLOCK RDDRESSING TEST

RY4,R3

CLR

JSR
MOVB
JSR

000001

MOVB

MEM2

ZERO THE BLK IN MEMORY

cnbonrn 6. CMND (RE) ssr READ COMMAND

JSR
INC

PC,TRNSER'

,Reho HIS DATA BACK

PC, INCRMA
ys'

conpurs NEW MATO TRY
&
READ NEXT BLK

JSR
BR

o410S82

:GET DATA WORD

PC. LDMEM2
:LORD MEMORY BLK WITH THIS WORD
$WRDATA,P. CMND(RQ) -SET WRITE connnno
PC, TRNSER”
WRITE THE DARTA

JSR

xncnsnsnr THE onrn WORD

. PERFORM SOFTWARE COMPARES OF ALL nsno 'a' 8

208 :

040066

MOV
JSR

RY,R3
PC,CKMEM2

:GET DATR uono
: COMPARE THIS BLK TO GOOD DATA WORD

ISR
BR

PC, INCRMA
4

SGET NEW MA TO
‘GO COMPARE NEXT MEM BLK

INC

041052

022016

000701

022020

005137
01401
00671

005524

308:

032050
003143

50%:

005037

172516

Q22042
022046

MOV

SEQ 0116

R4’

coM
BEQ
BR

SELECT
gos
$

JSR
7578
BEQ
CLR

S4S:

: INCREMENT THE gnTn WORD

COMPLEMENT THE anc
R IF ALL g E
R IF COMPARRE
SHOULD BE DONE NOW

PC, GETXDP
UBMPRS
54§
J%SR3

RESTORE SAVED XXDP
'SEE IF UNIBUS MAP PRESENT
'BR IF
NOT
'DISABLE UNIBUS MAP

l!l!*l*ll!!l!llll-lllll!lll<l>llll!*lllll!!!llll*!llli 3 36 3 3 3% 3% 3 3 % % 3% %

;esrons TESTING,

NPR/MEMORY DATA PATTERN TEST
THE XXDP LORDER 1S

SAVED,

IF PRESENT,

AT ADRS

'%RWBUF. THEN, RLL PHYSICAL MEMORY LOCATIONS , STARTING AT THE
*%FIRST ADRS OF THE NEXT 1K MEMORY BLOCK esvofio RWBUF +6000(0CT),

!%x CHOSEN IN Pnannsrsn PT. (THESE ARE THE snne PATTERNS
‘% ARE EXERCISED WITH UP_TO

16 DATA PRTTERN

: xPRIVIDED FOR
USE IN THE R;pgxunxr pDATA TEST). xr PT = 0, THE
:¥JATA PATTERNS u LL DEFAULY
TO PATS 08,09, I0,AND 11.
!yMEMORY 1S EXERCISED IN BLOCKS OF UP 10 64K WORDS, STARTING AT
:%xTHE FIRST ADORSSS OF THS NEXT 1K M nonv BLOCK gs?ono THE BUFFER,
"xERCH BLOCK 1S LORDED W1.H DATA,

TTEN ONTO DISK AT ADDRESS

'%FC.FT,FS (SCALED TO AVOID PACK OVERFLON OR DESTRUCTION OF THE BAD
"xSELTOR FILE), .Hen THT MEMORY BLOCK IS zsnoso AND READ BACK AND
: COMPARED. THISIS DONE FOR EACH OF THE DATA PATTERNS CHOSEN

: #POSSIBLY INCLUDING THE USER-DEFINED PATTERN 15,

022046

000004

022066

000137

000004
033672
033740
022416

022072
022076

0Q4737
0g4737

032310
030576

022102

004737

631770

001324

IF SPECIFIED.

lllill*lllll!illl!l!iliillll!liliiiiiillIllll!ill*l!lll!llllll*
+&74:
SCOPE
MOV

JSR
JSR

oq,gT§STN

PC.SE¥TUP
PCCHKITR

: Egt ngr ”U"SSR
IN GPT MAIL BOX

ERROR
OR L
'8
ses IF ITER. NO. o FOR THIS TEST

Jmp
TSTS
: JUM P TO NEXT TEST
; RETURN HERE FROM CHKITR IF TEST’SHOU& 5 B
JSR
PC, I
NITSS
;
ALIZE
DRIVER PRARAMS AND SUB-SYS
JSR
PC REPKB
; PREPARE FOR POSSIBLE KBD INPUT
; SAVE XX?P LORDER, " IF PRESENT
PéFNDXDP

; COMPUTE STRARTING ADR OF XXDP

CZRENDO TKBll/OS SS VERIF ¢
10-JAN-78 10:0S

CZRBEND.P

012737
005037
004737

i
[SeZPelVe IV o o N o RV N IV« IV o IV 0 IV« 1N o]
U
0= s st e st Dt Bt Pt e e (O

~OWVoONC
N LWh-0O WD

001003
012737

004737
004737
005701
100501
00S06S

D2ea4e

100010

065660

MACY1l

NO9

MOV

00SS4e

CLR

JSR

MOVB
MOVB
JSR
MOV
BNE

003133
003134
005700

005536

007400

005536

q99:

000012

000012
005600
005602
177774
000007
057732

JSR

PC, SAVXCP

81, XOVLAD
81, XOPSVD
PC.LODP1Y
PT.FATRN
2s’

JSR

PC|, MXWRDC

BMI
CLR

508
P.WC(RS)

I57
15T

000010

¥RWBUF , XDPSAV

XDPSAVi2

; SET XXDP SAVE AREA ADR

;

GO_SAVE XXDP LOADER

:SET INDICATORS

: GENERATE PSEUDO-RAND PAT 14

!GET A COPY OF PT
!BR_IF _PT_NON-ZERO
!SET DEFLT PATRNS
= PAT 8,9,10,11

MOV
#7400,
PATRN
TESTING
INIT PARAMETERS PC,esctn
s INIT PARAMS
SETUPM

b3,

040644
035270

SEQ 0117

10-JAN-78
12:02
PAGE 118
30A('0S2)
T4
NPR/MEMORY DATA PATTERN TEST

Ri’
Ri

BNE
NEG
MOV

63
RO
RO, P.WC(RS)

MOV
BIC
BISB
TST

MAt2 Rl
$177774,R1
Ri,P.BAANI(RS)
gktii

MOV

MA’P.BALOTRS)

BP L
14%
;SET UP MEM MGT

! COMPUTE MAX WORD COUNT FOR THIS MA
! SEE IF ALL MEFORY TESTED YET
‘BR_IF ALL DONE
JINIT WORD GOUNT TO 65,536 (DEC)

'SEE IF WRD CNT SHOULD'BE 65,536
'BR IF YES

'2ET BA

022244

013737

005600
00se0e

148
168:
188:
208 :

010401

Q12737

104411

022306
033672
042052
036250
000123
o4YeleY4

037722
gool21
o42164
036476

o41052

032050
003143
0o22416

005037

172516

001110

000001

B10

12:02

PAGE 119

MOV
JSR
MOV
BIT
BNE
ASL
BEQ
BR
MOV

MA, PMA

MAde, PMA+2
PC, PREPAR
81 RY
R4’ PATRN
20
RY
248
168
RY,R1

PERFORM THE TESTS'
8., SLPERR
MOV
528:
PCSETTUP
JSR
b
PC SVPRMS
LODBUF
JSR

MOVB

PC,TRNSFR’
R3

JSR
JSR
SCOPER
BR

PC,
PC, cnpeur

JSR

PC,INCR A

CLR

Ja3SR3

MOVB

50$:

cus

BR
JSR
1578
BEQ

: PREPARE MEM MGT REG S AND UNIBUS MAP

:SET PATTERN BIT POINTER
'SEE_IF THIS PATTERN 1S CHOSEN
'BR_IF YES
!SHIFT TO POINT TO NEXT PATTERN
"BR IF _NO MORE LEFT TO CHECK
:GO_CHECK FOR_ANOTHER PATTERN
:GET R COPY OF BIT SOINTER

:SET NEW LOOP ON ERROR ADRS
:SET UP FOR LOOP ON ERROR
:SAVE THE PARAMS FOR THIS XFER
THIS MEM BLK WITH SELECTED DATA
:LOAD

= O
:SET DATA WORD

LORD MEM BLK NITH RLL ZEROS
SET READ COMMA
P. cnnotns)
onbonrn
Rsho THE DATA rnon DISK
TRNSFR’
LDMEM2

18$

.GET NEW MA FOR NEXT TRANSFER

248

:SET BUFFER RDDRESS

:SET WRITE DATA COMMAND
oukonTn P.CMND(RS)
-WRYTE THE DATA

JSR
CLR
JSR

000001

SEC 0118

NPR/MEMORY DARTA PATTERN TEST

MOV

005604

005606

005536

10-JAN-78

4s
PC, GETXDP
UBMPRS
54§

:PERFORM _SOF TWARE COMPARE OF DATA
:CHECK FOR INTERNAL LOOP ON ERROR
:CHECK FOR ~NEXT PATTERN
; COMPUTE NEXT MA

MEMORY TO TEST
:GO SEE _IF MORE
:RESTORE XXDPLORDER
:SEE IF UNIBUS nnp PRESENT
:BR_IF NOT PRESENT

:DISABLE UNIBUS MRP

; i&uuu"u“nununu“lnu*nnununnuunnnu!n

i
UNIBUS_CONTENTION TEST
lTHE PURPOSE OF THIS TEST IS TO EXERCISE THE NPR CONTROL LOGIC
‘#WITHIN THE CONTROL_ER iN SUCH_R MANNER THAT
A CONTENTION FOR
!UNIBUS CYCLES RRISES BETHEEN THE PROCESSOR AND THE RKO6.

;rxnsr

A WRITE DATA IS ascuu AT ADDRESS FC,FT,SECTOR O, WITH

:%THE BUS ADDRESS INCREMENT I hIBI BIT (BAI) SET IN THE CONTROLLER

:%USING A uono COUNT
! *FORMAT),

CZRENDO RKSII/OB SS VERIF 2
10-JAN- 78 10:0S
CZREND.P1

MACY1l 30R(1052)

1aooo<oc ) OR 13000(0CT)

(DEPENDING ON THE

THE ENTIRE TRACK 1S _WRITTEN WITH THE FIRST WORD OF PATTERN

(IF SELECTED) OR THE FIRST WORD OF Pnr 13 (av DEFAULT).
‘%15
:
% THEN,
AN INSTRUCTION LOOP IS ENTERED IN WHICH
A NON-

! %EXISTENT UNIBUS DEVICE ADDRESS 1S REFERENCED ONCE PER PRSS. THIS

S#WILL RESULT IN_A_PROCESSOR srczuns OF THE UNIBUS,

FOR 5-20
USEC,

' % (DEPENDING ON THE PROCESSOR), FOLLOWED BYA NON-EXISTENT MEMORY'
: ¥PROCESSOR TRAP, ONCE PER PASS. T HUS, FOR EACH PASS THROUGH THE
*INSTRUCTION LOOP THE CONTROLLERIS FORCED TO LOSE FROM ONE

%70 FOUR NPR BUS CYCLES. THE EXECU
TION YIME OF THE LOOP osrsnn:nss THE
;¥REPETITION RATE OF THE NON-EXISTENT MEMORY REFERENCES
AND THIS

!%1S CHOSEN TO ALLOW ENOUGH NPR’S SO THAT THERE SHOULD BE NO

!¥DATA LATE ERRORS IN A FAULT-FREE CONTROLLER.

CZRBENDO RKE11/0 6 SS VE R IF 2
CZREND.P11
1 0- JAN- 7 8 10:0S

Cl0

MACY1l 3?9(105?)UNigGJRN-7¥EN+§SOE
PAGE 120
N TEST
S CON

SEQ 0119

; #THE DATA IS THEN WRITE CHECKED FOR VERIFICATION,

AND THE ABOVE

lTHE ABOVE OPERATIONS ARE REPEATED 1S HORE TIMES,

USING THE NEXT WORD

!TEST 1S REPERTED USINGA READ DATA COMMAND. NO ERRORS ARE EXPECTED.

{¥0F THE PROPER PRTTERN (13 _OR 15) ERCH TIME, TO fiRITE AND RERD
:#THE ENTIRE TRACK. IF_A DATA LATE ERROR OCCflRS ONA GIVEN TRANSFER,
'%THAT DATA IS NOT WRITE-CHECKED OR COMPARED

o 363 3 3636 36 36 36 36 36 38 3% 36 36 36 36 36 36 3 36 3 3 36 36 36 36 36 3 36 36 36 36 36 36 34 3 3 36 38 36 30 36 36 30 38 3 3 3 36 36 30 3¢ 38 3% 3% 38 36 3 ¢ 30 3% 3¢ 2

022416
022420
02e4es
022432
022436

000004
012737
DO4737
004737
000137

00000S
033672
033740
022722

D22442
022446

0g4737
004737

032310
030576

D2z4s2

013765

005660
005664
000004
685000
3125

022522
022526

000002
00000S

1 4s§:
1 6%:

000001
000123
0407S0
003141

003142
000001

000002

005474

004737

000131
o4as42

000001

012765

065660

0ooo10
000001

022702

013737

043?;0
177776
065660

;:SET TEST NUMBER IN APT MAIL BOX

MOV

FC,P.CYLN(RS)

;SEY CYL = FC

CLRB
MOV

P SECT(RS)
ISET SECTOR =0
COUNT FOR FULL TRACK
13090 P. HC(RS)éflérD

Bre

S RUDREES T EhknsnrTHHIBIT
bNTHOEB
.-$SD?? ES§$?&55

TST

FORMAT
RMINE THE
IF 22 SECTORS

AND WRITE CHECK IT
:WRITE DATA WITH nLLounéLs UNIBUS C
MOV
#PATIS, RO
;SET DATA Pnfr RN RDDRESS

006676
0

065660

%5, STESTN

:8ET uP ron LOOP ON ERROR
PC,SETTUP
JSR
:SEE IF ITER, NO. = O FOR THIS TEST
PC CHKITR
JSR
15t
JMP
1STe
; JUMP TO NEXT TEST
; RETURN ?ERE FROM CHKITR IF TEST' SHOULD BE
R
PC, INITSS
; INITIRLIZE DRIVER PARAMS AND SuB-SYS
{PREPARE FOR POSSIBLE KBD INPUT
PC. PREPKB
JSR
- INITIALIZE PRRAMEERS

006776
005700

003141

SCOPE

MOV

TSTB
BEQ

166000
100000

e YO0~
Q

022506
022514

001324

¥&75:

BMI
MOV
MOV
MOV
MOV
CLRB
MOVB

!SEE_IF USER-DEFINED PATTERN 15 SELECTED

148
$PAT13, RO
816. Rl
870, R3
RO P BRLO(RS)
oLt
81 NO

:BR_IF YES
*SET DATA PATTERN 13 ADDRESS
:SET COUNTER = 16
:SET NON-EXISTENT MEMORY TIMER
'SET BR g*rs
:CLEAR DATA_LATE FLAG
:SET "NO-RETRY* FLAG

OBSERR RECODE

sse }FYBPO SECTOR ERROR

MOVB
JSR
5§EB

nukonTn P CMND(RS) :SET WRITE DATA LOMMAND
EFNEM
vWRITE DATA DURING NEM REF
E FNggrn LATE ERROR OCCURRED
,s
bf L

MOVB
J

JSR
1578
BNE
CMP
BEQ
JSR
MOV
MOV

PC,REFNEM
OLYFLG
20%
+, RWBUF
(R0)
as

READ DATA DURING NEM
ss IF DATA LATE ERROR OCCURRED
:BR IF YES
: COMPARE LRST DATAR WORD
:BR If EQUA
: GRTHER STRTUS FOR PRINTOUT

RWBUF, $REGE

:BAD DATA WORD

BIT

cuaTcux
P. CHNO(RS)DO ;
Ve

ITE CHECK COMMAND
ITE CHECK

.READ DATA
WITH nLtouaeLE
unxaus CONTENTION, AND _COMPARE LAST WORD
0
8RWBUF, P.BALO(RS) ;SET BA =’ RWBUF ADDRESS
MOV
EAR HE UFFER WORD
RWBUF
CLR
COMMARND
#RDDATA, P. CMND(RS) SET R
MOVB
REF

ies:

—atRO) snecs

'GOOD DATA WORD

CZRENDO RK611-06 SS VERIF 2
10-JAN-78 10:05

CZReND. P11

6038

6039
60490
6041
6042

6043

6044
so:s

022710

104110

022714
022716

001402
000137

MACY1l 30R(10S2)
10-JAN-78 12:02 PAGE 121
UNIBUS CONTENTION TEST
TS
ERROR

022712 005301
022722

D10

022550

110

SEQ D120

.*READ ERROR WHILE BRI SET”

SET UP FOR NEXT Pnss THROUGH LOOP
53
DEC
:SEE IF QLL DONE YET
BEQ
eqs
'BR IF
Y
JMP
168
:JUMP TO CONTINUE TESTING
248

2849

; o 3636 36 36 36 36 36 36 36 3 36 36 36 36 36 3 36 36 36 36 3 3 36 3 36 3 3¢ 3 3 36 3 36 36 3 36 36 3 30 36 36 3¢ 3 36 36 3 3% 3¢ 3 3 36 36 3 3 3 3 3% 3 3 3% % % % %

28?5
6052

lTH

%HE SERPO?E 3SE
EC??F THERE
PRO i
UN ON

HEUB1 EN§
8R95E nhrx
DRIVE ON T
suesvsvsn

6054
6055

*THE TEST PROCEEDS AS FOLLOWS : IT IS
% (BESIDE TKE ONE oen TEST) EXIST nn

FIRST
ARE OP

8029
E6E0

ST
B K IO
o88) 8
e arre
: ¥FRoN 1gESTRIL
5&28%O
RRPLETE!]
SéséSRILEssEf:‘%BaE i

6048
2823

irsT E
MULTI-ORIVE INTERFERENCE TEST
ngég TE§¥QP$SSSR"S HULTxaogévEREOEITIONINc gpsnnrgons TNHILE

DETERMINED WHICH DRIVE(S)
n xonnL TH ss ORIVES
'%ARE THEN CLEARED ANDA SEEK TO CYL
O IS DONE ON_EACH.NEXT
SEEK IS

6056

6057

*OON§
T0 CYLIN?SR FC (SCALED é‘ nscgs;nnv
) onTH§ va
finoen

gogé
6063
6064
6065
6029
E 68

*n NRIT Ro?;g)c nng?oR3 ngfix
R T AT ngncgnnsfi
Ia? BIT ETS§N HE CONTR LLER
fino 152(050)
H”fiHESS“QSB
Egun*fig E
sxs
*(DEC) WORDS IF 20 SECTOR FORMAT
OR
uonos IF 22 se
:xFORMAY. THIS WORD ounr AMOUNTS T t YLINDER 1 SECTOR or onrn
:¥HAS
RLREQ
SOEITIONING
; #NEX ;Rggsr
5 hx%
K 0 ISHERR831605oone T VEH?FL an§E?3n3ufi%
752 THE D

2893
Eggé

'U
REan
D5555
KS RNE
W R Eongnsxng cSrvt
nP ETE
¥fi
M'S388522
opEk OTHER
slgsgcg?§gH
VQISNTI
CYLINSE
E Tb EXPECTED
l

6073

o 3363636 36 36 36 36 3 36 36 36 3 3 36 3 3 36 36 3 3 3 36 3 36 3 36 3 36 3 36 3 3¢ 6 3 36 36 3 36 3 3 3 36 36 3¢ 3 3 3 36 36 3 3 3% 3 3 3 3 3 3 ¥ % % %

2833
855355
8?3983
000006
001324 ?sTs
6076
022732
004737
033672
6077 022736 004737 033740

fiSSPE
JSR
an

86,37
E
§g§?
pC’ CHKITR

T TEST
NUMBER
IN ERROR
APT MAIL BOX
’525
?
85
sse IF ITE NO. = o FOR THIS TEST

JSR
JSR

PC,I 1SS
PC, PREPKB

,I
ALIZE onxvza PARAMS AND SUB-SYS
EPQRE FOR POSSIBLE KBD INPUT

$8SSOFT+10,R0

;POINTER TO SOFTWARE BSF

6078
6079

022742

000137

023742

6080
6081

022746
022752

004737
004737

032310
030576

g eq

oae;sg

053703

005660

6086
6087
65088
6089
6090
6091
6092
6093

022770
022772
022774
022776
023002
023004
023010
023014

0206310
001006
005203
020337
103767
000137
062700
020027

6 95

sggs 855?24 813980 003234

IMP
SELP
:JUMP TO sno or PASS ROUTINE
;RETURN HERE FROM CHK%TR IF TEST’ suou D?5

FgLES FOR 2 QbJfl?ENT ERROR-FREE CYLS TO USE
BAD sscron
: SEARCH QER
R

4o3:

52§

020040

023742
000004
004224

44§

MOV

CMP
BNE
INC
CMP
BLO
JMP
ADD
CMP

R3, (RO)
4yy$
R3
R3,LSTCYL
40$
MULTII
#4, RO
RO, #BSFACT

:SEE IF THIS CYL LISTED
:BR IF NOT
PINCR
C
'SEE IF ch < 63271456
'BR If YES
:GO SKIP THIS TEST

:INCR BSF POINTER
:SEE IF STILL IN SOFTWARE BSF

cznsnoo RK&11/06 SS VERIF 2
10-JAN-76 10:0S
CZREND.P11
6094

023020

001002

6095
6096
6097
6098
6099

023022
023026
023032
023034
023036

062700
020027
001356
005704
001003

6101
6102

023042
023044

005203
000747

6100

6103

023040

023046

6104

023050

6107
6108
£109
6110
6111
6112
6113
6114
6115
6116
11,
6118
6119
6120
6121
6122

023054
023062
023064
023066
023072
023076
023100
023104
023106
023112
023114
023120
023124
023126
023130
023132
023134

6105
6106

6123

023136

E10

MACY1l 30A(10S2)
10-JAN-78 12:02 PAGE 122
MULTI-DRIVE INTERFERENCE TEST
T6

000010
005224

46$:

005204

005303

010337

003202

112765
005001
005000
005065
022700
001415
105760
001410
120037
001405
110065
004737
005201
005200
000760
005701
001002

000117

000137

o ¥
000001

000002
000010

4s:

00SS00
0000NQ
02364

XY
8%:
023742

023142 004737 032310

6129
6130
6131
6132
6133
6134
6135

023166
023172
023174
023202
023210
023216
023224

105737
001403
012765
012765
052765
112765
004737

6143
6144
6145
6146
6147
6148
6149

023262
023268
023270
023272
023274
023300
023304

0010062
005260
005301
001364
012701
010537
005000

6126 023146 013765 003202 000002
6127 023154 00S065 000004
6128 023160 0127656 136400 000012
003125
(41400
006676
100000
000117
042542

000012
000016
000014
000001

46$

INC

DEC

RDD
CMP
BNE
TST
BNE
INC
BR

MOV

:BR IF YES

$10,R0
:INCR POINTEP FOR FACTORY BSF
RO, BBSFACT+512.:SEE xr END OF FACTORY BSF REACHED
sed
;BRIF NOT YET
RY
:SEE_1F CAME HERE BEFORE
50$
'BR IF YES

R3
42%

s INC CYL
:CONTINUE LOOKING

,oecn cYL

:GET CYL TO USE
;s CHECK DRVLST
FOR
bTHER
AVAILABLE
DRIVES nuo RECRLIBRQTE
THEM
MOVB
8SEEK,P.CMND(RS) :SET SEEK
COMMAND

00S610

Ble4
6125

BNE

CLR
CLR
CLR
CMP
BEQ
1518
BEQ
CHMPB
BEQ
MOVB
JSR
INC
INC
BR
15T
BNE

R1
RO
P.CYLN(RS)
#10, R0
8%
DRVLST(RO)
6%
RO, DRIVE
68’
RO,P.DRVN(RS)
PC TSTTYP
RI
RO
4§
R1
9s

s INIT HULTIPLE-DRIVES FLAG
JINIT DRIVE NG. TO O
SETCYL
=0
ses IF nLL DRIVES CHECKED YET
'BR
% ONE
sze IF HIS DRIVE IS MARKED IN LIST
:BR_IF NOTMARKED
'SEE IF MARKED DRIVE 1S DRIVE UNDER TEST
:BR_If YES
;SET DRIVE NO. PARAMETER
:SEEK TO CYL O ON CURRENT DRIVE
:SET FLAG TO INDICATE MORE THAN 1 DRIVE
:INCR DRIVE NO.
KEEP CHECKING DRIVES
;r MORE THAN 1 DRIVE PRESENT
BR I YES TO RUN TEST

MOV
CLR
MOV

cvt P. CYLN(RS) 'SET CYLNOR = CYL
p.StCT
*SET TRACK AND SECTOR
= O
s-171se uccRsS SET WC FOR 67 (DEC) SECTORS

JMP
ULTIL
SET PARAMS FOR DATA XFER
uhoeh TEST EST
DRIVE
ON
FYL
CYLINDER
TO
SEEK
&3:
JSR
INIT
SINIT S.

12%:

TST8
BEQ
MOY
MOV
BIS
MOVB
JSR

FORMAT
chscx THE FORMAT
12%
:BR IF 22-SECTOR FORM
#-15616. ,P.WC(RS) ;SET WC FOR 61 (DEC) sscvons
#PAT13, P 'BALO(RS) :SET BA BITS
sDTBAIL,P.PRST(RS)’;SET BUS RDDRESS INCREMENT INHIBIT
ISEEK P’ CHND(RS) :SET SEEK COMMAND
CAL
. 42EK 7O CYL ON DRIVE UNDER TEST

BNE
INC
DEC
BNE
MOV
MOV
CLR

69
-E(RO)

6136
: DO PSEUDO
RRNDOHTéssxs
ON ALL OfHER
DRIVES 2 ESCAPE
6137 023230
105037 003120
CLRB
NG
; INMHIBIT tC,
6138 023234 012701 000007
nov
;ssr LOOP COUNTER
6139 023240 012700 003204
MOV
OCVLLST RO
:ADRS OF RQND CYLLIST
6140 023244 004737 035666
15%:
JSR
PC, RNDROR
:GENERATE
A PSEUDO-RANDOM CYL NO.
6141 023260 042737 177145 0OSS0O4
BIC
01?7145 CYLNDR ;ALWAYS KEEP UNDER 632
6142 023256 013720 005504
MOV
chnon tRO)+
:SET CYL NO. IN TRBLE
177776
003204
023372

168:

ss
OCYLLST Rl
RS, 19§
RO’

:BR IF NOT O
*MAKE IT NON-ZERO
: DECREMENT LOOP COUNTER
'BR_IF NOT DONE LOADING LIST YET
:GET ADRS OF RAND CYL TABLE
'SET PARAM BLK nons FOR DRIVER
'INIT DRIVE NU. 70
O

SEQ 0121

czasnoo RKBII/OB SS VERIF 2
CZREND. P11
10-JAN-78 10:05S

6150

023306

022700

MACY11l

000010

F10

30R(10S2)
10-JAN-78
12:02
PAGE 123
6
MULTI-DRIVE INTERFERENCE TEST

18%:

6151
6152
6153
6154
6155
6156

023312
023314
023320
(023322
023326
023330

001432
105760
001425
120037
001422
110065

6160

023352

3350

001404

152

023366

000402
105065

000004 000007

004737

000007
052604

005610
005500
000000

cHP

BEQ
TSTB
BEG
CMPB
BEQ
MOVB

$10,R0

SEQ 0122

:SEE IF ALL DRIVES CHECKED YET

228
DRVLST(RO)
208
RO, DRIVE
aot
DRVN(RS)

: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

BR IF YES

6157
3334 012165 000002
6158 023340 004737 042622
6159 (023344 105760 005620

MOV
JSR
1578

(R1)+ CYLN(RS)';SET CYLINDER NO.
kcno
:8TORE PREV AND CURRENT CMNDS
0T9LST(R0)
:SEE IF RKOG

6162
6163

0233
023362

BR
CLRB

2%
P.CSIH(RS)

6165
6166
6167
6168

023372
023374
023376

000000
005200
000743

6170
6171
6172

023406
0234i4
023422

1137656
013765
012737

005500
003202
023654

6174
6175

023434
023440

004737
032737

6177
6178

023450
023456

6161

6164

BEQ

BISB
1$:
2%

19%:
203:

PC,C. INIT

_WORD
INC
RO
BR
18%
.WRITE DATA ON DRIVE UNDER
T

6169 023400 112765 000123 000001 22%:

MOVB

sELSE SET FOR RKO7

:GO START SEEK ON THIS DRIVE

'P.B. ADRS GOES HERE
:INCR DRIVE NO.
'BR TO SEEK ON NEXT DRIVE
"WITH BRI SET

8WRDATR, P. cnno<k5) ser WRITE DATA COMMAND

000GQ0
000002
003044

MOVB
MOV
MOV

DRIVE "DRVN(RS) sér IVE NO.
CYL,P.CYLN(RS) QET
NG.
sMUCHDL ,R.NORM ;SET SPECIRL DRIVER RETURN ADDRESS

023624
000002

00S474

JSR
BIT

PC,TSITYP
sBSERR, RECODE

112765
004737

000131
042542

000001

MOVB
JSR

uuaTcux P.CMND(RE) ssr WRITE CHECK COMMAND
RVCAL
WRYTE CHECK THE DATA WRITTEN

023504
023510
023512
3516
02
023524
023526
023534
023536

022700
001514
105760
001440
120037
001435
136037
001003
004737

000010

023544
(023550
023554
023560

110065
004737
016503
006003

000000
023624
0000S2

042703

177000

6173 023430 113700 005500
6176

JSR

#B.COT,P. CS1H(RSS

023446

001135

MOVB

BNE

DRIVE Rb

MULTI

sWRITE 1 CYL + 1 SECTOR AT CYL FC
sss xr BSE ERROR
BR

YES

6179 023462 112737 000001 003120 : CHECK nrrsurrons
hno
CHECK CYLIfiDER
ADDRESSES FROM ALL OTHER DRIVES
MOVB
TSTING
“ALL
o $C_tZ ESCRPE
6181 02342C 112765 000141 000061
MOVB
cRbSTnT cnnocns) T READ DRIVE STATUS COMMAND
6182
023476
012701
003204
MOV
#CYLLST Rl
oks or RAND CYL LIST
6183 023502 005000
CLR
RO
SINIT DRIVE NO.
6180

6184
6185
6186
6187
6188
6183
6190
619]
6192
6193

023542

6198
6199
6200

023562
023564
023566

006003
006003
006003

023574
023576

022103
001410

023606

010337

6194
6195
6196
6197
6201

023570

6204

023600

202
6203

6205

104113

016137

26%:

00S610

005500
003102

003200

043720

177776

001214

28%:

CMP
BEG

:SEE IF ALL DRIVES CHECKED YET
'BR_IF YES

TSTB
BEQ
CMPB
BEQ
BITB
BNE
JSR

DRVLST(RO)
'SEE IF THIS DRIVE MARKED IN LIST
328
'BR _IF NOT
RO, DRIVE
'SEE IF THIS IS DRIVE UNDER TEST
32
:BR_IF YES
1.DRV(RO),SAVWRD’ :SEE_IF GOT ATT’N FROM THIS DRIVE
283
BR IF YES
PC, REPSUP
PREPQRE STATUS FOR_PRINTOUT

MOVB
JSR
MOV
ROR

RO, P DRVN(RS)
PC TSTTYP
P.B10(RS),R3
R3

SET THIS DRIVE NO,
*RERD STATUS OF THIS DRIVE
'GET STRTUS BYTE B10
'GET CYL ADRS RIGHT-JUSTIFIED

#177000,R3

s CLEAR_OFF UNUSED BITS

ERROR

ROR
ROR
ROR

R3
R3
R3

CMP
BEQ

(R1)+,R3
328

MOV

R3, SRES1S

BIC

001212

#10,RO
muLtil

MOV

~2(R1),$REGI4

NO ATTENTION ON SEEK*

*COMPARE TO EXPECTED CYLINDER
:BR IF EQUAL
;GOOD CYL NO.

:BAD CYL NO.

CZR6ENDO RK611-06 SS VERIF 2
CZREND.P11
10-JAN-78 10:0S

6206

023612

004737

6208

023620

005200

6207

gggg

023616

023622

104114

G10

MACY1l 30R(1052)
10-JAN-78
12:02
PAGE 124
T6
MULTI-DRIVE INTERFERENCE TEST

043720

JSR

32%:

000730

SSié

005620

6215
023632 000402
152755 000004 000007
6216
023640
6218
6219

6557

023642
023646
023652

105065

004737
000207

000007

042542

TSTTYP:

1%:

DP3654

032737

000200

622b
6227
6228

023664
023670
023676

004737
013765
004737

052204
003000
043720

000016

232

023716

000177

000001

Eggg

023736

023662

001019

003000

023724
023732

112765

012737
004737

000137

042732
042542

042732

023742

.SBTTL

:BR IF NOT DONE WITH ALL DRIVES YET

JSR
RTS

PC, DRVCAL
PC

BISB

;SEE

BRE 1A _JF VERKDB

$8.COT,P. CS1H(R55

P.CS1H(RS)

ELSE SETUP FOR RK0O?

:SETUP FOR RKO&

SET

JSR
MOV
JSR

PC,1.CSTS
RERD CONTROLLER REGISTERS
7.851,P.CS1(RS) ;GET CS1 BITS
PC, REPSUP
'PREPARE
STATUS FOR PRINTOUT

MOVB

OSUBCLR P cMND(RE)

§§5°“
rlgs
F, SAVWRD
SWAB
3

“5NTRSTT“HEN
CNTRLR
NOT 0-7
RDY”
35¥ ATT’'N a?vs
IN axrs

MOV
JSR

;REQTORE NORMAL DRIVER RETURN ADDRESS
:CLERR SUB-SYS

SERRFRE
| A. NORM
PC,DRVCAL

ERARFRE

:SET SUBSYSTEM CLEAR COMMAND

: TRKE NORMAL RETURN

END OF PRSS ROUTINE

222222222222222:22:22222223222X2222222X222X222222X222XXX22X2TXT
LT

ixncnsnsnt THE PASS NUMBER ($PRSS)
"%xTYPE “END PRSS #XXXXX“ (WHERE XXXXX IS A DECIMAL NUMBER)
;*IF THERES A MONITOR GO TO IT
:#IF THERE ISN’T JUMP TO APTPRS

6249
6250

023742
023742

6252
6253

023750
023754

000004

$EOP:

Q023744

005237

001330

6254

023754

(042777

000100

6256

023766

6258

023776

000137
005037

023772

005237

(024004
024006

005327
000001

024010

042737

003022

155162

100060

SDEVCT

: INCREMENT DEVICE COUNT FOR APT

JIMP
NEWDRY
GO sss IF MORE DRIVES TO TEST ON THIS PRSS
DUNPAS:
:THIS IS TRULY THE END o# RSS

B1C

001304

001326

SCOPE

INC

017332

6255 023762 00S037 001102

6261

-"onxvs S CYLINDER INCORRECT"

INCREMENT DRIVE NO.

MULTIL:

6244
6245
6246
ES:E

6259
6260

DTYLST(RO)

IMP

6243

6257

TSTB
BEec

BNE

003044

gszé

625]

ass

:GRTHER STATUS FOR PRINTOUT

:THE RESULTS OF MULTI-DRIVE OPERATIONS.
MULHOL: BIT
#ROY, 7.CS1
gss }F SNTRLR RDY IS SET

Eeag
104;1; 8832604 003200 &3
5531 023;83
85 712 368337
6237
6238
6239
6240

114

:THIS IS THE NORMAL RETURN FROM THE DRIVER WHICH IS USED TO CHECK

6223
6054

6233
6234

CLRB

2%:

6222
6205

INC

PC, REPSUP

: THIS ROUTINE TESTS FOR THE DRIVE TYPE AND SETS P.CSIH ARCCORDINGLY

13
57 o
sty
853850Y 48%4
21?7

ERROR

SEQ J123

,,zsno THE TEST NUMBER

INC

$PASS

,,INCREMENT THE PASS NUMBER

DEC
. WORD

(PC

: 1LO0OP?

BIC
$EOPCT:

SRBLE TTY KBD INTERRUPT

$TSNh

CLR
001326

CLR

BGT

$TIMES

'3ooooo $PARSS

sooncn

:ZERO THE NUMBER OF

::DON’T ALLOW A NEG.

. s YES

ITERATIONS

NUMBER

CZR6ENDO RKE11-06 SS VERIF 2

CZREND.P11

MACY1l

10-JAN-78 10:05

gsE3 B24B1S BARGA

6264
6265

024016
qggo

024006
04;81

b5 foiges Ol
6271
6272
6273
6274
6275

024044
024046
024050
024052
024054

0000CS
004710
000240
000240
000240

6277
6278
6279

024056
024060
024062

000137
024102
377
Q15
0S0040
000043
122?3?

6281

be8e
6283

024072

024100
024102

024065
951962

QOe4le2
024126
024130

005237
000775
000137

MOV
. WORD

SEOPCT

H10

12:02

SEQ 0124

125

; ;RESTORE COUNTER

tggggnctsp)

; TYPE “END PRSS

AVE

$PASS FOR TYPEOQ
nscxr WITH SIGN
8"

"20 ?YSE--EECIMRL

::TYPEA NULL CHARACTER
; iGET MONITOR ADDRESS
*BRANCH IF NO MONITOR
:'CLEAR THE WORLD

soonfin

PAGE

iPC)#,a(PC)+

SEhULL
FITENRG

$GETHE:

$ENDRD:

1160 TO MONITOR
.,snvs ROOM

PC, (RO)

:FOR

$DOAGN:

37?7
042412
05:501

o0
042116
0eolas

000001

001340

gaeg
§§:i10
00? 001326
E208
DE4i28
103403

6287
6288
6289

END OF PASS ROUTINE
SENDCT:

cs63 euple Q13700 00004
OEugu8 001408

10-JRAN-78

30A(1052)

SRTNAD:
SENULL:
SENDMG:
APTPAS:

:RCT11
nprpns

,NULL CHARACTER STRING

<1$><1e>/sno pass’ s
SAPTENV, SENV

$PASS,

000002

; sRETURN

ad(PC)+

001102

19:

23
$TSTNM

017320

29:

NEWPAS

:RUN UNDER RPT 7

:BRANCH tF NoT

.TWO PARSSES ?

:BRANCH }F NOT
xncnsnsnr TEST NUMBER
LOOP
WAITING

an T0 THE MAIN PROGRAM

RKO®& HEAD ALIGNMENT RID

CZRENDD RKB11/06 SS VERIF @
CZREND. Pll
10-JAN-78 10:05
024134

012737

000340

oc41l4e
024146
024150
024154
024156

012706
005026

001100

MACY1l

1?7778

ASTART:

.SBTTL

CLR

000020

024370
024374
pe4402
024404
0244 .2
024412

024416
024420

0244Sy
024462
De4466

154602

65%:

——

000176

——

Wwwwww

9% IOTVEC

;; IOT VECTOR FOR SCOPE ROUTINE

#3490, a8fOTVEC+2 ;;(EVEL 7
#SERROR, I8EMTVEC ' ; ;EMT VECTOR FOR ERROR ROUTINE
8340, asEMTVEC+2 ;;CEVEL 7
#STRAP, 98TRAPVEC' : : TRAP VECTOR FOR TRAP CALLS
#340, 9B TRAPVEC+2; LEVEL 7
#SPLADN, a8PWRVEC ; ; POMER FRILURE VECTOR
8340, I8PWRVEC+2 ; :LEVEL 7
SENDLT, SEOPCT
::SETUP END-OF -PROGRAM COUNTER

MOV

s. | SLPARDR

MOV
MOV
MOV
CMP

B4S:

000174
000004

005037
132737
001403
012737

001326
000200

001341

001342

001140

005037

003150

003040
047304

#$SCOPE,

MOV
MOV
MO
MOV
MOV
MOV
MOV
MOV

STIMES
SESCAPE
81, SERMAX

S INITIARLIZE NUMBER OF ITERATIONS
:'CLEARR THE
ESCAPE ON ERROR ADDRESS
:'ALLOW ONE
ERROR PER TEST

!:SETUP THE ERROR LOOP ADDRESS

SLPERR

;P INITIRLIZE THE LOOP ADDRESS FOR SCOPE

:EQUAL TO Q "-1",
SETUP FOR A SOFTWARE SWITCH REGISTER.
MOV
JBERRVEC,-(SP) ;;S AVE ERROR VECTO R

024350

007036
007050
007136

MOV

;;LOOP BACK IF NO
:ISETUP THE STACK POINTER

::SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS

012737
012637

00000S

: 'CLERR MEMORY LOCATION

; ; DONE?

. -6
#STACK, SP

MOV

[w]a]

04340
024342
024346
024350
024356
024364

000004
024342
177570
177570
177777

(RE)+

8SWR,R6

BNE
MOV

CLR
CLR
MOVB

024266
024274

024302
024306
024314
Oe4322
024330
024336

SEQ dJ1as

3 #PS

;s INITIARLIZE A FEW VECYORS

05037
05037
024274

8PR7,

126

INITIALIZE THE COMMON TAGS

CHP

001140

057170
000340
0S646Y4
000340
060276
000340
057034

MOV

PAGE

; ; CLEAR ;HE COMMON TAGS (SCMTRG) ARER
ov
#SCMTAG, RE
;sFIRST LOCATION TO BE CLEARED

001100

024162
024170

I10

30R(1052)
10-JAN-78
12:02
RKO® HERD ALIGNMENT AID

663 :

663

65%

S'AND
THE HARDWARE SWR IS NOT = -1
; JBRANCH IF NO TIMEQUT

#SWREG, SWR

; ;POINT TO SOF TWARE SWR

E?¥

MOV

000060
000062

865, (SP)

: 'BRANCH IF NO TIMEOUT TRAP OCCURRED
:1SET UP FOR TRAP RETURN

MOV
MOV

#DISPREG, DISPLAY
(SP)+, 9%ERRVEC ; ;RESTORE ERROR VECTOR

CLR

$PASS

BEQ

678

; sCLEAR PASS COUNT

$APTSIZE,SENVM

;;TEST USER SIZE UNDER RPT

$SSWREG, SWR

1IN0, USE APT SWITCH REGISTER

CLR

AUTOFG

.CLEAR THE SPECIAL FLAG

RESET
TYPE

,DZREN

"RESET UNIBUS
:TYPE PROGRAM

MOV

.SBTTL

001140

;:SET UP ERROR VECTOR
:SETUP FOR A MARDWARE SWICH REGISTER
;:AND A HARDWARE DISPLAY REGISTER
:'TRY TO REFERENCE HARDWARE SWR

BNE

B1T8
67%:

8648, I8ERRVEC
#0SWR, SWR
#DDISP,DISPLAY
#-1, 3SR

TYPE
TYPE

MOV

CLR
MOV

MOV
MOV
MOV

; s YES, USE NON-APT SWITCH

RKO6 HEAD ALIGNMENT AID
' SUBVER
PRRT2

BSWREG, SWR

JSUR
#KBOHDL , 98 TKVEC

#PRY, autKVEC+2
RKVEL Rl
#I.INtR, (R1)+

I.D.

FOR PART 2

:ADRS OF SOF TWARE SWR

:MRKE SWR BITS ALL O
;LORD VECTOR FOR TTY KBD

'SET KBO PRIORITY = 4
:GET ADDRESS OF VECTOR STORAGE
ISET IT TO INTERRUPT HNDLR

CZRBENDO RKE11-06 SS VERIF 2
10-JAN-78 10:0S
CZR6ND. Pll
000340
0000C0
000000

geou47e
024478
04504
geusie

176543

MACY1l

os4732
054734

42%:

0031e6
011365
003145

024574
024576
024602
024604
024606

000015

g24el2
024614

066277

GIVEID:

024620

:
ASKTYP:

001315
007530
007522

18:

024724
024730
024734
024740
Da4742
024746

000004
022700
103343

000007

104401

011466
030576
oossae

022701

00SSee
000022

MOV
MOV
CLRB
CLRB
CLR
MOV
MOV

8176543, SHINUM
£123456, SLONUM
MDFLAG
TSTING
STALLS
cPvano R1
RO

; INITIALIZE PSEUDO-RANDOM NUMBERS

DEC
BNE
CLRB
TYPE

RO
42$
ERRCNT
IDENT

BNE
BNE

ASKMOD
ASKTYP

CMPB
BEQ

8015, Rl
ASKMAD

CLR

1578

2%:

00see20

3%:

(R1)+

ALPOVL

, FORHLP

(SP)+,R1

BEQ

ASKTYP

TYPE

, SCRLF

TYPE

CLR

TYPE

HLPFIL

’DTYMSG
0

SCRLF

CLRB

BADDRV+6

MOV

RO, -(SP)

JSR

Pc PREPKB

BEQ
CLRB
MOV
CMP
BNE

a
DTYLST(RO)
INTCHR,R1
%'7,Rl
3s

INC
CMP
BHIS

RO
%7 ,R0
18

TYPOC
TYPE

005620
00Ssee
000067
024706
024714
024716
g247ee

(ALLOW ALL INTERRUPTS
'SET FIRSTM “YL = O

TYPE

012576
030576
005See

;SET INTERRUPT HANDLER PR?

#PRO’ 3#PS
%0,FC

TYPE

001315
012554

SEG 0126

#PR7, (R1)

TYPE
RDCHR
MOVB

011431

PAGE 127

MOV

MOV
MOV

177776
00S660

000006

024570

J10

12:02
30AR(1052)
10-JAN-78
RKO& HERD ALIGNMENT RID

TST

MOVB

BADDRYV

SOR?

INYCHR

; CLEAR PARAM INP FLAG

CLEQR “RUNNING TESTS” FLRG
:DON’T STALL ON _OPERATIONS
{ZERO OUT PREV COMMAND

;CLEAR_ERROR COUNT FOR RESTARTS

:TYPE PROGRAM_IDENTIFICATION
iSEE_IF EELP FILE OVERLAID
Y
iBR IF
;ASK FOR ALL DRIVE TYPES
:ASK _IF HELP DESIRED
R

SEE IF <CR> TYPED
:BR IF NO HELP_ NEEDED
{ASK_FOR ALL DRIVE TYPES
iHELP REQUESTED- TYPE INFO.
; TO ENTER_ALL DRIVE TYPES

IMESSAGE TO ENTER DRIVE TYPE
:START FROM DRIVE O
:CR-LF
Ck%flgTHE LOC & FOR TYPE
ORIV

;

:DRIVE _NUMBER ON STACK
TYPE THE DRIVE NUMBER
ENTER 6 OR ?
:READ_THE NUMBER
:ANY THING RERD IN YET ?
iBRANCH IF NOT
SASSUME IT'S A RKO6
:RERD THE CH
:IT'S A RKO? 7

8B.COT, DTYLST(ROi

BRANCH

IF _NOT

;SET RKO?7 FLRG

70 NEXT DRIVE
{ALL 8 DRIVES ARE SET UP YET ”
:BRANCH IF NOT

. DETERMINE DESIRED OPERATIONAL MODE
ASK FOR DESIRED OPERATIONAL MODE
TYPMOD

ASKMOD: TYPE

1%:

JSR
TST
BEQ
MOV

CMP

AC, PREPKE
NfCHR
INTCHR R1

#022,R1

:PREPARE FOR_KBD INPUT
SCHECK FOR_TTY_INPUT
:BR_IF NO_INPUT YET
:GET INPUT CHAR INTO RI
:SEE IF (tR) TYPED

MACY1l

CZRBENDO RKB11/06 SS VERIF 2
10-JAN-78 10:05
CZRBND. P11

000115
025006
ooo101

0z2se70

39%:

MANUAL

005037
104401

MANUAL:

0315
1152
1156
030576
00Sssee

ASKDRYV:
19:

000060

000067
0C0060

£
W
W

0240

003124
001450
001455
001456
001456

001456

020040

GIVEID

BNE
IMP

2%
MANUAL

BNE

CcMP

IMP
ISR
BR

CLR

TYPE
TYPE
JSR
ST

BEQ

020036
005736
00sese
005710
005742
020044
020046
020042
020040

0osese2

8'A,RI

AUTG
PC, ECOBAD
ASKMOD

AUTOFG

sBR IF (tR),

TO RESTART

(IS IT nnnuAL MODE ?
'BR IF NOT MANUAL

:JUMP TO MANUAL MODE ROUTINE

;1S 1T AUTO MODE

'BR IF_

NOT_AUTO

*JUMP TO AUTO MODE ROUTINE
*ECHO BAD INPUT
:BR TO ASK FOR MODE AGR'N

s CLERR SPECIAL FLAG

, TYPMAN
' ENTDRV
AC, PREPKB
INtCHR

:TYPE "MANUAL SELECT MODE"
:ASK FOR DRIVE _NUMBER
'PREPARE FOR KBD INPUT
,JEE IF ANY INPUT

INTCHR, R1
R1, 8022
GIVEID
R1,s'0

:GET CHARACTER INTO Rl
:TEST FOR_ (fR) TYPED
"BR_IF (#R) TO RESTART
:COMPARE TO RSCII O

BARYFLU
Ri,#'7
BRlFLU
8'0,RI]
R1 bnxve
DRIVE,R

MOV

8624, LCME

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

:BR_IF NONE TO cnscx AGARIN

'BR IF <O (BAD INPUT)
COMPRRE TO ASCII 7
:BR IF »>7 (BRD INPUT)
'STRIP nscxx BITS
:STORE DRIVE NUMBER

*AND SET UP TO SIZE onrvs

DTYLSf(RO) TYPFMY;LORD THE FLAG FOR & OR 7
#631) PRMLIM+2
#632,LC
8632, PROFLT+2
#8632, PRML IM+6
#100, HOLD1
825, HOLD3
#0025, HOL D4
8632, LSTCYL

;LORD THE LAST CYLINDER NUMBER

BEQ

:BRANCH IF NOT

MOV
MOV
MOV
MOV
MOV
MOV
MOV
ng;

#1455 PRML IM+2
81456, LC
#1456 PROFLT+2
$1456 PRML IM+6
#2025’ HOLD3
#1202%, HOL D4
#1000, HOLD1
#1456, LSTCYL

sOTHERWISE SET UP THE LAST CYLINDER

MOVB

aOT?PEO

TSTB

MOV

qs:

$'M Rl

BLY
CHMP
BGT
BIC
MOV
MOV

MOVB

0031e4
020036
005736
00sesbe
005710
005742
020042
020044
020046
020040

SEQ 0127

PAGE 128

SELECT MODE ROUTINE

MOV
CMP
BEQ
CMP

00sS22
000022

—

025ee0
025266

c®:

026144
030616

000000000
[y e e

025006
025006
gesole
025016
025022
025026
025032
025034
025040
025044
0es046
025052
025054
025060
025062
025066

000747

BEQ

CMP

nNo

025004

001657
022701
001002
000137
022701

Q00O

024752

00000000000
[ Ly e ey e e el o e [

oooocooocooo o
P o A G o o o O o &£
m.._p...._._....’....‘...;.. OWVONOT
VNI LW o

6404
6405
6406
6407
6408
6409

K10

30AR(1052)
10-JAN-78
12:02
RKOB HERD ALIGNMENT AID

JMP

P INTGO: CLR

MOV

TYPFfi

#1450,LCM6

HDAL I

HDAL I
LSTCYL LC

:IS AN RKO?7 ?

;SET PROGRAM STATUS FLAG

:GET DRIVE STARTISTMICS

: HOUSEKEEP
"AND SETUP MAX CYLINDER CNT

6460
b4b1l
b462
6463
b464
6465
6466
6467
6468
6469
6470
B471
pu72
6473
BY74
6475
B476
64?7?
6478
E479
6480
6481
6482
6483
6484

025276
025300
025304
025306

000403
004737
000644
004737

025312
025316
0es3e0

004737
025016
004737

033252

105037
104401
004737
005737
001775
013701

011364
012253
030576
00ssze

0e5324

gegle?
001002

000137
0c012?
001002
000137

MACY1l

30RA(1052)
RKO& HERD

030616

BRIFLU:

032310

BAlIA

BR
JSR
BR
JSR

025436
025436
gasu44e

000733

ASKDRYV
JSR
SET UP DESIRED

035344

&0BMOD-

PC, ECOBAD
nskon

129

SEQ 0le8

s PROCEED WITH oesxneo DRIVE

JECHO BAD INPUT
:GO BACK TO ASK AGAIN
INITIQLIZE SUBSYSTEM

2%:

025016
000101

39%:

025710
000126

02567¢
030616

6%:

'ADDRESS OF ERROR RETURN'FOR CHKDR
PC, DRVSER
:TYPE “DRIVE SER. NO. XXX
SUB-MODE OF OPERATION

ENTMOD
A PREPKB
INtCH
13
INTCHR Rl
R1, %022
28’
GIVEID
R1, %003
3%
ASKDRY
R1,#’A
MANAL
R1,%'E

00SSc2
0o00e2

02y4sle
000003

TSS

VERIFY

1%:

yg
MANE X

R1,#'V
MANV
PC Ecosno
SUBMOD

:CLEAR VERIFY MODE FLAG

:ASK FOR ALIGN OR EXERCISE SUB-MODE
:PREPARE FOR KBD INPUT
:SEE IF ANY INPUT
:BR_IF NONE TO CHECK AGARIN
IGET CHAR INTQ
:SEE_IF (R) TYPED
'BR IF NOT (#R)
:JUMP TO RESTART
'SEE_IF ($C) TYPED
'BR IF NOT (#C)
:JUMP TO RSK FOR DRIVE AGAIN
'SEE IF ALIGNMENT REQUESTED
"BR IF MANUAL AL IGNMENT REQUESTED
'SEE IF Exsncxsss REQUES ED

'BR IF_NOT EXE
*JUMP TO DO M NunL EXERCISES

1SEE IF VERIFY REQUESTED
'BR IF _NOT VERIFY

*JUMP TO VERIFY MODE
'ECHO BAD INPUT
'ASK FOR SUB-MODE RGAIN

MQNURL ALIGNMENT MODE

104401

012413

104401
004737
005737

012620
030576
00SsSee

HANAL

19:

000113
Q42542
024512
000003

000001

000113

000001

o42s542
025016

001007

000032

NALN

YPE

; REPORT MANUAL ALIGNMENT MODE

; REQUEST QND CHECKNDEEéRED HERD ;ASK FOR DESIRED HERD
PE
ASKHED:
#C PREPKB
;PREPARE ANY
FOR INPUT
KBD_INPUT

00S5e2
000022

025540

BAIA

PRGE

TATUS
CHECK DESIRED
DRIOE
FOR PROPER _CHECK
PC, CHKDRV
JS R
DRIVE FOR ON-LINE,READY NRITE LOCK

00010S

025434

L10

10-JAN-78
12:02
ALIGNMINT AID

U)'

CZRBNDO RK611-06 SS VERIF 2
REND.P 11
10-JAN-78 10:0S

NYCHR
1s
INTCHR,RI
R1,8022

iSEE_IF
:BR_IF NONE TO CHECK AGAIN
:GET CHAR INTO
R
'SEE IF (tR)

gé $003

SEE IF (fC) ')

e9:

(tR)

SRECAL
, P. CMND (RS sér
RECRLIBRRTE COMMAND

PC, DRVEAL

3%:

BR IF NOT

$RECAL ,P. ano(RsiSST RECRLIBRQTE COMMAND
PC, DRVEAL
1E
JUMP 70 RESTART
GIVEID
ASKDRY
R1, %032
yg’

RéanIBRnTE DRIVE

*JUMP T0 ASK FOR DRIVE AGRIN
SSEE IF ($2)
'BR IF NOT (12)

CZRENDO RK611/06 SS VERIF 2

6516

2?13

e513

025542

025550

852323

112765

004737

88813;

000113

042542

000001

888854

6623
6524
6525
6526
6527
6528
6529
6530
6531

025574
025600
025604
025606
0256le
025616

042701
010137
000404
004737

000060
005520
030616

105737

011364

000137

001002
004737

113765
004737
104401
013701
152701
110137
104401
000137

033566

Bo44

025672

112737

000001

gg:;

025704

000137

025442

6532
6533
6534
6835
6536
6537
6538
ggag

025630
025636
025642
025646
025652
025656
025662
025666

005520 000005 8%:
033512
012510
005520
000060
012704
018677
025442

6541
6542

6543

6546 025700 104401 012453

011364

6550

6565

025774

001016

6568

026002

042777

012326
016514
O00C117
030576
035666
005504
042542

6563
6564 025770 005737 005522
6566
6567
6569

025776
026000
026010

005300
001364
112765

000100

000113

6670 026016 004737 042542
6571 026022 104401 001310

SRECAL ,P.CMND(RS) :SET RECALIBRATE COMMAND

PC, DRVEAL

RECQL‘%R fi 995 fi

cn$

RI,#'0

COMPQREDTRRCK Topn

IMP

SUBMOD

Eu nqnunL SUB-MODE

BT %2

MOVB
JSR
TYPE
MOV
BISB
MOVB
TYPE
IMP

TRACK TRCK(RS)' :SET DESIRED’HEAD NUMBER
PC nLflssx
-éssK TO ALIGNMENT CYLINDER
HEDP
STYPE HEADS POSITIONED MSG
TRQCK Rx
*GET BINARY TRACK NO.
Rl
:CONVERT TO RSCII
RlHEDSEL
nsnono
'GET
HERD NO. INTO MSG BUFF.
"TYPE HERD SELECTED MSG
ASKHED
:GO BRCK TO ASK FOR NEW HEAD SELECT

MANUAL SELECT VERIFY MODE

MANVR:

nove

TYPE

AANEX: JSR
MOV
BIS

6655 025724 110137 012405
104401
012700
112768
004737
04737
13765
004737

SEQ 0129

OMPARE T&S“E *o Hgéll 2
<

ERIFY

nhmvnr

ASKHED

:SET VERIFY MODE _FLAG

'REPORT MANUAL VERIFY MODE
:GO ASK FOR DESIRED HERD

. MANUAL RANDOM SEEK EXERCISE ROUTINE

2251
ss?g oas;ig
85?714 04737
13701 033566
005500
6554 025720 052701 000060
025730
025739
025740
025746
ES?EE
0257
025764

PAGE 130

JSR

IMP

6548
6549

6556
6557
6558
6559
6560
6861
6562

M10

12:02

BGT
BR IF >2 (BRD
I
BIC
c'o R1
:STRIP RSCII BIT s
MOV
R1, YRACK
:STORE TRACK (HEAD) NUMBER
B8R
68’
*GO SELECT HERD
1 ¥
JSR
PC, ECOBRD
{ECHO BAD INPUT
IMP
ASKHED
ASK AGAIN FOR HEAD NUMBER
. UNLORD HERDS,AND WHEN RERADY, START SPINDLE AND SEEK TO ALN CYL
&s:
TSTB
VERIFY
s SEE E vsnxrv MODE
BNE
ss
BRI
JSR
TYR
:UNLORD HEADS, WAIT FOR <R> TYPED, LORD

025442

028622
025624

MOVB

4g§:

s§51
853?25 8881é9 000062
6522 (0256572 (003005
4

10-JAN-78

RKOS& HERD ALIGNMENT AID

10-JAN-78 10:05

CZReND.P11

6517

MACY1l 30R(10S2)

MOVB

000001

000002

1$:

2%:

TYPE
MOV
MOVB
JSR
JSR

nov

153134

n1 bRxExR

un 0AD
WAIT FOR (R> TYPED, LOAD
DRIVEHERDS,
NUMBER

convsnr TO nscxx

'PUT DRIVE NUMBER INTQ OUTPUT BUFFER

MANEXR
TYPE RANDOM SEEKS MSG
kRNDLNG, RO
SINITIALIZE Rnnoon SEEK COUNTER
¥SEEK,P.CMND(RS)’ :SET SEEK COMMAND
PC, Pntpxe
bREPARE FOR KBD INPUT
_
PC
) RMDADR
EE T RANDOM CYL INDER ADDRESS
cvtnon P. chN(Rsi
RANDOM CYLINDER ADDRESS
RvEAL
RANDOM SEEK

: CHECK F?R TTY INPQT guaxnc EXERC%EE IF ANY INPUT
BNE

000001

PC,WRITYR
oRtVE,R1

:BR IF A CHAR WAS TYPED

#BIT6, ISTKS

DISABLE KBD INTERRUPT

DEC
SNE

RO
2%

MOVB

sREcnt _CHND(RS} :2ET RECALIBRATE COMMAND

BIC

JSR
TYPE

6AL
,séELL

:DECREMENT SEEK COUNTER
BR IF NOT DONE SEEKING YET

:RECALIBRATE DRIVE
RING BELL TO SIGNIFY END OF EXERCISES

CZRBENDO RKb11/06 SS VERIF 2
10-JAN-78 10:05
CZReND.P 11
6572

026026
026032
026036
026042

000137

025374
00ssee
00002e

000113
Q42542
0e4slie
000003

oeel42

Cebl4y
026144

000701

N1O

12:02
10-JAN-78
MACY11l 30A(1052)
RKO&6 HEARD ALIGNMENT ARI1D

3%:

Ys:

000113
Q42542
025016
000032

000001

000113
Q4asye
025324
030616
012326

000001

5§:

012737
004737

177777
032310
olezel
011364
012253
030576
005522

003150

oo
ooooooooom
B Dt b Bt s Bt Bt e b 0 ()
DONCNLWN—0OW

ge4512
00010!¢

JSR
IMP

CMP
BNE
MOVB

:GET CHARACTER INTO RI
:SEE_IF (#R)

#RECAL , P. cnnotasi SET RECRLIBRRTE COMMAND
thnL IBRATE DRIVENEW DRIVE NUMBER
PC, DRVEAL
S§

JSR
IMP

ASKDRV

BNE

68’

:JUMP _TO ASK FOR
1SEE IF (12)

CMP

R1, 8032

JSR
IMP

PC, DRVEAL
SUBMOD

TYPE
R

MANEX
is

JSR

IF NOT

(#C)

SET RECALIBRATE COMMAND
SRECAL ,P. cnnostS
thn IBRATE DRIVE

PC Ecoeno

000001
000736

030616

MOV

#-1 . AUTOFG

1%:

Pc, INITSS
TYPRUT
VERIFY

2%:

JSR
TST

AC, PREPKB
INtCHR

CHP
BNE

R1, 8022
33’

3%:

027520
oooles

Cebebb
026266
026272
02ea74

R1, #0228
R_IF NOT (tR)
4§’
SRECAL . P.CMND (RS :SET _RECALIBRATE COMMAND
,thn IBRATE DRIVE
PC, DRVEAL
; JUMP _TO RESTART
GIVEID
R1, ¥003
iSEE_IF (?C)

JSR
TYPE
CLRB

00010S

OceebY

CMP
BNE

INTCHR,R1

BR IF
NOT

($2)

:JUMP TO RSK FOR NEW MANUAL SUB-MODE
"ECHO BAD INPUT
*VERIFY STILL IN MANUAL EXERCISES
'BR TO CONTINUE EXERCISES

.AUTO SELECT MODE ROUTINE

AuTO:

005522
000022

6620

;GO_RSK FOR NEW MANURL SUB-MODE

SUBMOD

MOVB

63:

SEQ 0130

131

IMP

MOV
MOVB

000001

PALE

4g:
011364

6%:

TYPE

BEQ
MOV

IMP

ENTMOD

es
INTCHR,R1
GIVEID

CMP

RI1,#'A

CMP
BNE
JMP
CMP
BNE
MOVB

RI,%'E
$
AUTEX
RL, %'V
63
81, VERIFY

BEQ

JSR

autaL

AutaL

PC ECOBAD

18’

:SET SPECIAL FLAG

INITIRLIZE SUBSYSTEM

TYPE “AUTO SELECT MODE"

'CLEAR VERIFY MODE FLAG
!ASK FOR ALIGN,VERIFY, OR EXERCISE

' PREPARE FOR KEYBURRD' INPUT

‘SEE IF ANY INPUT
‘BR_IF NONE, TO CHECK AGAIN
:GET CHAR INTO RI
:SEE IF (fR) TYPED
'BR IF NOT (tR)
tJUMP TO Resrnar
'SEE IF AUTO ALIGNMENT REQUESTED
:BR_IF_AUTO ALIGNMENT REQUESTED

;SEE _IF AUTO EXERCISES REQUESTED

:BR IF EXERCISES NOT REQUESTED
;JUMP_TO DO_AUTO EXERCISES
{SEE_IF VERIFY REQUESTED
iBR_IF _NOT VERIFY
iSET VERIFY MODE FLAG
{PROCEED IN VERIFY MODE
;ECHO BAD INPUT
!BR TO RSK FOR A OR E AGAIN

.AUTO ALIGNMENT MODE

105737
001403
104401

011364
013010

AUTAL

1STB
BEQ
TYPE

VERIFY
3%

AUTVRF

SEEIIFNQUTO VERIFY MODE

!REPORT AUTO VERIFY MODE

CZR&ENDO RK611/06 SS VERIF 2
CZREND.P11
10-JAN-78 10:05
6628
6629

026300
026302

000402
104401

Bll

MACY11 30R(1052)
10-JAN-78
12:02
RKO6 HEAD ALIGNMENT RID

012752

3%:

6630
6631
6632

026306
ggggla
16

004737
885037
5037

030576
003024
005524

6634
6635
6636

026330
026336
026344

012737
012737
005737

000377

000377
000377
005522

005526

026352
026360

113766
123727

00S534
005522

000000
000032

6633

026322

6637

026350

6640
6641
6642

026366

6638
6639

012737

001423

001002

4g:
005530
005534

6644

6645
6646
6647
6648

000137
123727
001002

026144
005522

000022

026404

6664
6655

6662

6656

000137

024512

026414
026420

004737
005037

030576
005500

026454

012737

000624

026410

026424

004737
012700

030616

'PREPARE FOR POSSIBLE KBD INPUT
!CLEAR MR2 STORAGE WORD
SINITIALIZE RUTO-SELECTED DRIVE INDICATOR

8377) NEWON
8377 SCRACH
INTCHR

JINIT. NEW ONLINE DRIVE INDICATOR
;INITIALIZE LAST DRIVE INDICATOR
;SEE_IF ANY KBO INPUT

8377, ONLINE

SINIT.

OLD ONLINE DRIVE INDICATOR

BNE
CMP
BEQ

2s
$377, SCRACH
18

'BR_IF NOT (4$2)
;SEE_IF ANY DRIVE SELECTED YET
:BR IF NONE

;

JMP
cMPB
BNE
CMP

auto
INTCHR, 8022
4s
o377 SCRACH

!RESTART AUTO_ MODE
ISEE _IF ($R) TYPED
:BR_IF NOT (tR)
:SEE_IF ANY DRIVE SELECTED YET

:
:
il

MOVB
JSR
IMP

onsan P. cnno(nsi .SET RECRLIBRRTE COMMAND
PC, DRVEAL
RECAL BRRTE DRIVE
GIVEID
;RES RLIGNHENT AID

ISR
CLR

PC’ PREPKB
onivs

MOV

#624, LCM6

is:
2%:

4s:

6%:

000001

: TYPE ALIGNMENT MESSAGE

AC, PREPKB
T.MR2
SELECT

MOVB
CMPB

;

6650
565 |
6662

4s
AUTALN

SEQ 0131

BEQ

6649

6653

MOV
MOV
DRVLUP: TST

;
026370
026374
026402

JSR
CLR
CLR
MOV

:
:

6643

8R
TYPE

PAGE 132

MOVB

JSR

BEQ

JSR

MOV

:BR IF NO INPUT

SCRACH,P.DRVN(RS) :DRIVE NO. FOR POSSIBLE RECALIBRATE
INTCHR, 8032
:SEE IF ($2Z) TYPED
SRECAL,P. anOtRsi

PC, ORVEAL

PC, ECOBRD

SET RECALIBRATE COMMAND

éanxeRnTE ORIVE

BR IF NONE

;ECHO BRD INPUT

:PREPARE FOR POSSIBLE K80 INPUT
:ZERO THE DRIVE NUMBER
SINITIALIZE DRIVE BIT MASK

6657 026430 012737 030360 003046 INTG: MOV
cntoHoL A. ABNL ;SET NED ABNORMAL RETURN ADDRESS
6658
026436
050037
005530
BIS
*SET ON-LINE BIT FOR THIS DRIVE
6659
s SELECT CURRENT ontvs CHECK FOR' NON-EXISTENT DRIVE (NED) INDICATION
6660 026442 013701 00SS500
MOV
DRIVE' RI
LOAD DRIVE NUMBER
66b1 026446 116137 005620 003124
MOVB
DTYLSH(R1), TYPFMT:LORD THE RKO6-RKO? FLAG
020036

6663
6664
6665
6666
6667

026462
026470
026476
026504
026512

012737
012737
012737
012737
012737

000631
000632
000632
000632
000632

005736
005662
020040
005710
005742

MOV
MOV
MOV
MOV
MOV

6669
6670
6671

026526
026534
0265642

012737
012737
105737

000026
010025
003124

020044
020046

MOV
MOV
TSTB

6673
6674

026550
026556

012737
012737

001450
001455

020036
005736

6668

6672

6675
6676
6677
6678
6679
6680
6681
6682
6683

026520

026546

026564
026572
026600
026606
026614
026622
026630
026636
026640

012737

001433

012737
012737
012737
012737
012737
012737
012737
000240
004737

000400

001456
001456
001456
001456
001000
002025
012025
032436

020042

005662
020040
005710
005742
020042
020044
020046

MOV

%400 HOLD1

825 AOLoa
810025, HOLD4
TYPFNMT’ ;IS AN RKO? ?

BEQ

MOV
MOV
MOV
MOV
MOV
MOV
MOV

$1456,LC
#1486, LSTCYL
#1456, PROFLT+2
#1456, PRML IM+6
#1000, HOLD1
#2025’ HOLD3
#12025, HOLDY

MOV
MOV

9% :

#5631) PRML IM+2
#632.LC
#632,LSTCYL
8632, PROFLT+2
osaa PRML IM+6

NOP
JSR

#1450,LCM6
#1455 PRMLIM+2

PC, SCNDRV

sBRANCH IF NOT

SEXIT
:CHECK THE SELECTED DRIVE

CZRBENDO RKB11/06 SS VERIF 2
CZRBND. Pll
10-JAN-78 10:0S

026644
026646
026650
26652
65654
6662
026670

MACY11l

30A(10S2)

00s5sa0
000101
027150

000000
000001

NOP
NOP
NOP

;
;

(o alalealealoaleads
pleale gl oyl
NN NNNNNNNN
m.—...p...—.._..........—
OW NN
L Whu-

013737
004737
022737
00140S
005237
000241
006100
000640
013701

020u40
o4a542
000007

026734
0ee742
026744
026750

023737
001002
000137

00S530

026750

012703

000001

J0seb2
00SS00

: INTGON:

99§

005500

108:

005530

005526

026344

026754
026760
026766

043701
013737
005701

005526
00S530

026770
026774

000137

026344

044200
00sS00

93%:

;

000001

027036

104401

00SSee

;

a7s:

NRIVE,.P.DRVN(RS)

MOV

DSIVE RO

EE ?HE gPEC?E?EE ?vE

JMP

J#TYPED

LORD THE ovac§

MOV
JSR

LSTCYL LC
PC, DRVEAL

sGET THE'MAX
CYLINDER SIZE FOR THIS DEVICE
SELECT THIS DRIVE

BEQ
INC
cLC
ROL
BR

108
oaxvs

iBR IF IT WAS DRIVE 7
'ADD 1 TO DRIVE NUMBER
:CLERR CARRY BEFORE ROTATE
:SHIFT BIT POINTER
'BR TO SELECT NEXT DRIVE

?g;a
MOV

CHMP

MoV

:SET DRIVE NUMBER

4SELDRV, PC"ND(R55RAEE; $ELE§T ovachong?Cg
8-1,HOALT

CLR

HDAL I

87' DRIVE

RO
INTG

NEWON, R1

P FOR Paocnnn nnRK
5

HIS s TUS

'SEE _IF WE JUST cuscxso DRIVE 7

CMP
BNE
JMP

NEWON, ONL INE
93%
DRVLUP

BEQ
MOV

DRVLUP
#1,R3

TST
BNE
DEC
BNE

RO
LOOP2
R3
LOOP1

BIC

ONLINE,R!

BNE

97%

BEQ

DRVLUP

CLR
MOV
MOV
BIT

DRIVE
R1,R3
81 RO
RO’R3

INC
cLC
ROL

DRIVE

TYPE

, MULSEL

R0
8177777
RO

MOV
15T

IMP

NEWON, ONL INE
RI

:NUMBER OF 200 MILLI-SEC STALLS

;GET CHANGED ONLINE BITS

:UPDATE ONLINE DRIVE BITS
:SEE IF ANY DRIVE JUST WENT ON-LINE

ORVLUP

R IF NO DRIVE JUST WENT ONLINE

'SERVICE MOV
THE DRIVE
NHICH WAS Jusf
SELECTED
$ERRHDL ,AR.RABNL
;RESTORE USUAL
12%:

148
012183

;ERROR EXIT

; 36 36 3% 3 3 3 3 3 3 3 3 3% 3 % 3 % % 3 % 3 % 3% % % 3% ¥

005500

00141S

SEQ

MOVB

;LOOP1: MOV
:LooP2: DEC

003046

133

; Exxxex 70 BE REMOVED' %3 %%

:
:
;
;

027030
027032
027034

PRGE

99§

;

6708
6709
6710

12:02

RKO6 HEAD ALIGNMENT AID

026706

000137

10-JAN-78

Cll

:ERROR

BNE

144

ERROR HANDLER ADDRESS
JINITIARLIZE DRIVE NO.
1COPY NEW SELECTED DRIVE BITS
;INITIRL%ZE BIT POIN
(SEE IF
THIS BIT
xs
SET

‘BR IF THIS BIT SET

;Incnsngnv é NO.
iCLEAR
CARRY
BEFORE ROTATE
:SHIFT BIT POINTER

BR
12%
:TRY AGAIN
BIC
RO, R3
'CLEAR OUT THIS BIT
BEQ
16$
:BR IF ONLY ONE DRIVE SE._ECTED
- MORE THAN ONE DRIVE SELECTED SIMUL TANEOUSLY
;REPORT ERROR

0132

CZRBENDO RKB11-06 SS VERIF 2
CZR6ND.P11
10-JAN-78 10:05

MACY1l

D11l

30A(10S2)
10-JAN-78
12:02
RKO6 HERD ALIGNMENT RID

PAGE

;INH;BI KOB

o GRG0

000000

E&C
LT

#IE,RKCS1 (R2)

000177

000001

MOVB

SSUBCLR, P. CMND (R&)

027064

112765
004737
000137

027070
027074

020137
001505

005524

027076
027104
027106
027114

022737
0Ogl4el
113765
11276S

000377

005534

00SS34
000141

000000
000001

6743
6744
7H§

042542
026266

Grige §937L 8548
027134
7136

7144

6761
676

027150
027156
02716
02716

278;
7

010137

ey gz I
i1
026266
112737
012737

027eg4
0272
027234
027240
027242
027250

113765
0421l

Ba2ss2

005500
005524

.CONTINUE

les:

000001

005534

Rx SELECT

sSEE IF

gco

BSEIIF
THIS IS FIRST DRIVE SELECTED

MOVB

SCRACH . P. DRYN (RS SGET Lnsr oaxvs NUHBER

WITH SELEC ED DRIVE

MOVB
JSR
MOVB

283

BIS
MOVB
TYPE

011363
005520

00SS00

000000

;
248 :

011364
000107
o4yas4e

000001

000040

000044

000001

259%:

027304

004737

000177
042542

000001

32%:

027310
027316

113765
105137

00SS00
011363

000000

bes:

027322
027326
027330

105737
00100S
112765

011364
000113

000001

791
92
33

027336
027342
027350

004737
022737
103005

Q4as4e
000002

00S520

027352

005037

005520

PROCEED

CMP

JSR

000377
000000

CLtnR THE SUBSYSTEM
'RESTART RAUTO AL IGNMENT

BEQ

013043
033252

CONT’

SET SUBSYSTEM CLERR COMMAND

PC,DRVCAL
AU n#

R
é??
23%:

PRESS

INTERRUPTY
ANUAL
INTERVENTION

JSR
gnp

: PROCEED WITH NEH%Y SSEECTED DRIV

000044

SEQ 0133

134

AUTAL
MOVB
MOV

nove

BR
TS78
BNE
MOVB

%359
JSR
BIT
BEQ

MOVB
JSR
IMP

STILL

ALIGNING SAME

R IF SAME DRIVE

3“°s£3Ea
;ST $:§n§rpagvxou
8 B b-CHMO(RE).
901(R55EE
38Ryve
6

U
HERDS NOT
ISRTSPL
P.
anD(RSJ
s;r
TART
SPINDLE
c
RVCAL
INDLE ON PREVIOUS on:vs

gntvsSCRACH

R1,S R?T

8 Sl

Rl ORVSEL
DRISEL

Pc CHKDRV

sro; éE ng S tnrsn
CLERNUP STRT SPL
NUMBE

0PDA s 3 LNC; oRo IVE

* 50 3 g?
ESnvE
ce DRIVE NUHBER INTO QUTPUT BUFFER

CHECK

BRiVE

ron RDY NRITE PROT.

#377, UNLOD
co Thncx

:ERROR RETURN RDDRES
'SET DRIVE UNLOQDED INDICATOR
'SET TO Tnnc 0

VERIFY
328

SEE 1F ng
KIP ¥NL ng

S
ngT
X oRvN(RS) ,
onivs
?Hésss¥ Enocann FLOW
328
SUNLORD, P. CHND(RQ)se UNL

ERIFY
F VERIFY

connnno

5862?5?“9
cnnotné) 8
sr Rggg 3anH?COMMAND
DRVCAL
PC,
IF HEADS ARE UNLODED YET
%S HDHM, P. n01(R55A SEE
TF NOT YET
25%

SSUBCLR,P. CMND (R&) ssr SUBSYSTEM CLERR COMMAND
PC, DRVCAL
CLE
GO ancx o san DRIVES AGARIN
DRYLUP

' PROCEED WITH SAME DRIVE

:
33%:
:

MOVB

DRIVE,P.DRVN(RS) :SET DRIVENO.
UNLOD’
24%

: LOMPLEMENT UNLOAD INDICATOR
'BR IF DRIVE SHOULD BE UNLORDED

BNE

338

SKIP START SPL IF vsnrry

ngve
JSR
CHMP
BHIS
BNE

ERTEPE P. CHND(RS) 3§TTART SPINDLE COMMAND
INOLE ON THIS DRIVE
STA
AL
82’ TRACK
see IF LAST TRACK WAS 2
INOT EXCEES HERD 2
304
'BR_IF IT WAS NOT 2
2683

COMB
BNE
TS18

MOVB

CLR

DRIVE

VERIFY

ses IF AUTO VERIF

SRECAL . P.CMND (RS} s SET RECAL _COMMAND

TRACK

'SET TRACK = O

CZR6ENDO RKH11-06 SS VERIF 2
10-JAN-78 10:05
CZREND. P11
679%

027356
027360
027364
027372
027376
027402
027406
ge741e
027416
027422

000402
005237
113765
004737

MACY11

00000S

000003

027514

027520

000137

#3, TRACK
30
PC, PREPKB

Infcan

47%
INTCHR, 8032
48$

000032
000o0e2

489%:

0e6144
00sse2

000003

49%:

SEQ 0134

;GO SEEK TO ALIGNMENT CYLINDER

* INCREMENT TRACK NUMBER
TRQCK P.TRCK(RS)' SET TRACK NO.
N
SEE IN INCREMENTS TO ALIGN. CYL
SEK
:TYPE HEADS POSITIONED MSG
t
fpncx Rl
:GET CURRENT TRACK _NO.
:CONVERT TO
ASC!I
:GET TRACK xnro MSG BUFFER
Rl hsnono
:TYPE “HEAD
X SELECTED"
THQDSEL
TRACK

469:
47%:

026144
00sSe2

PAGE 135

308

289%:
309%:

005520

030576
00sSee
005522

Ell

12:02
30A(1052)
10-JAN-78
RKO& HERD ALIGNMENT AID

auTo

.NTCHR, 8022

438
AUTO

INTCHR, 8003

468

RUTO
ORVLUP

026144
02634

: INCREMENT THE TRACK NUMBER

JALL TRACK ARE DONE”
'BRANCH IF NOT
'READ THE KEYBOARD
'READ ANY THING YET ?
gnnucu IF NOT

{BRANCH IF NOT
iR ?
?

s WRIT

:TO NEXT DRIVE
!GO BACK TO SCAN DRIVES AGAIN

SEEK EXERCISE ROUTINE
004737
004737
104401

PC, INITSS

032310
030576
013066
00sSe2

PC' PREPKB
AUTEXR
INTCHR

1%:

00Sssee

000022

024512
00sse2

000032

2s:

02614y
00ssee

000123

39:

002734

00S534

oossee

000114

016514

005534

INTCHR, #'L
5%
$RNOLNG, SCRACH
6$
PC, ECOBRD

4S:

59:

027640

00SS00

027644
027652
027660
027664

030360
00SSs00
00SSs00
005620

6%:
:SELECT

003124

INTCHR,
¥’S

!PREPARE FOR KBD INPUT
;ASK FOR SHORT OR LONG SEEK EXERCISES
{SEE_IF ANY INPUT
:BR_IF_NO INPUT
:SEE_IF (tR) TYPED
;BR IF NOT (tR)
;JUMP TO RESTART ALIGNMENT AID
:SEE _IF (12) TYPED
IBR IF _NOT ($2)
;JUMP TO RESTART AUTO MODE
SEE IF SHOR; EXERCISES DESIRED
N
COUNT
WITH SHORT EXERCISES
?NGOEXERCISES DESIRED

ggNDSHT,SCRflCH

030616

003046
000060

18
INTCHR, 8022
2$
GIVEID
INTCHR, 8032
35
AUTO

; INITIALIZE SUBSYSTEM

83:

EK COU

}PROCEED WITH LONG Exsncxsss

DRIVE

;ECHO BAD INPUT
'BR_TO ASK RGAIN
'SET DRIVE = 0

, A. ABNL
SNEDHOL

;SET_NED ABNORMAL RETURN ADDRESS

AUTEX
M

DRIVE QND CHECK ¢OR NON-EXISTENT DRIVE INDICATION
DRIVE P DRVN(RS)’ ;SET DRIVE NUMBER

DTYLSf(Rl) TYPFMT
DRIV

;LOAD THE DRIVE NUMBER

:LOAD THE RKOB-RKO7 FLAG

etwielepedeset

12737

[ ]
~N

737

000624
000631
000632
000632
00063¢
000632
000400
000G2S

n RN
-—
~ NNNNNYN
W WWWWWww
~N NNNNNN

MOV

020036
005736
005662

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

020046

1578

s
s Pt
e Pt

3% :

PRGE

SEQ 3135

136

#624,LCME

8631, PRMLIM+2
8632,LC
8632, LSTCYL
8632, PROFLT+2
8632 PRML IM+6
840G HOLD1
#25, HOLD3
010025 HOLDY

TYPFM

: 1S AN RKQ7 ?

:BRANCH IF NOT

BEQ

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV

#1455 PRML IM+2
#1456.LC
#1456, LSTCYL
81456, PROFLT+2
#1456, PRHLIH+6
#1000,
H
#2025 HOL03
812025, HOLD4

JSR
183

PC, SCNDRV

MOVB

#SELDRV, P. CMND(RS)

SET SELECT DRIVE COMMAND

18%

IF NED,

MOV

s
s Bt

020044
020046

FL11

10-JAN-78
12:02
RKO& HERD ALIGNMENT RID
LA(1052)

020036

000000000

[

82NNNQNNN

027672

- 000000000

CZR6NDO RKB11-06 SS VERIF 2
10-JAN-78 10:0S
CZREND. P11l

MACY11

NOP

#1450, LCME

JEXIT

NOP

000001
005530

003046
00SS530

00107S

004737
027520

JS
UTEX

PC, CHKDRY

MOVB
TYPE
MOVB

Rl Auroon
cs DRIVE NUMBER INTO OUTPUT BUFFER
AUTOEX
TYPE “EXERCISING DRIVE X
bssex P.CMND(RS)' :SET SEEK COMMAND

BNE

: CHECK DRIVE FOR RDY, WRITE PROTECT

000001

108:
000002

112765

#377 . NEWON
tranxzs
INE INDICATOR
DRIVE
LECT THIS ON-L
ss
PC ohvan
sshRHDL ABNL :RESTORE ABNORMAL DRIVER RETURN ADDRESS
8377 eaon
,ss IF NED INDICATION ON THIS DRIVE
TO SKIP THIS DRIVE

;CHECK THIS DRIVE
‘ERROR RETURN ADDRESS FOR CHKDRV

PROCEED uxru SEEK Estcxsss ON tHIS DRIVE
;GET DRIVE NUMBER
R
o IVE.
:CONVERT TO RSCII
0,R
axs

013701

030es6

MOV
JSR
MOV
CMP

00SsSee

000022

000113
o4e542
0e4s1e
00sse2

000001

000113

000001

000032

12%:

MOV
JSR
JSR

PC
) RNDADR

BEQ
CNP
BNE
MOVB
JSR
IMP
CMP

'BR_IF
168
' SEE IF (fR) TYPED
INTCHR, 8022
4R)
:BR IF N
128
#RECAL ,P. cnnotnsi SET RECRLIBRQTE COMMAND
RECALIBRATE DRIVE
PC, DRVEAL
GIVEID
: JUMP_TO RESTART ALIGNMENT AID
ISEE IF (42) TYPED
INTCHR #032

MOV
JSR
TST

BNE

MOVB

SCRACH,RO
PC, PRE#KB

; SEEKCOUNT
:PREPARE FOR POSSIBLE KBD INPUT
SELECT RANDOM CYLINDER ADDRESS

CY[NDR P. chN(RsS
<SET RANDOM CYLINDER ADDRESS
,06A RANDOM SEEK
ORVEAL
INfCHR
'SEE_IF ANYINPUT
KBD INPUT
_NO

4§

R IF NOT (12)

ORECQL P.CMND(RSS :SET RECALIBRATE COMMAND

MACY1l

LZR&NDO RK611-06 SS VERIF 2
ZREND.PI11
10-JAN-78 10:0S

ggg?

030342

6322
6323
6924

030342
03025
030354

6918
6919

030334
030336

004737
000137
004737
004737
00S300
001330
112765
004737
005237
022737
001402
000137

042777
104401
000137

000113
04254
005500
000010

16%:

150574

auto
PC,ECOBAD
PC.PREPKB
RO’
10%

JSR

PC . DRVEAL

CMP
BEQ

£10,DRIVE
33§’

INC

18%:

;

DR}IVE

BNE

TYPE

$BELL

JMP

SEQ 3136

137
:RECALIBRATE DRIVE

:JUMP TO RESTARRT AUTO MODE
*ECHO BAD INPUT
:ENABLE KBD INPUT AGAIN
oscnsnsnr SEEK COUNT
:BR IF NOT DONE W
ITH THIS DRIVE

cREan P.CMND(RS) :SET RECALIBRATE COMMAND

JMP

BIC

PRARGE

PC, DRVCAL

IMP
JSR
JSR
DEC
BNE

MOVB

000001
005500

Gll

12:02

RKO& HERD ALIGNMENT RID

148

027644

0010
0131
c2bl4

10-JAN-78

JSR

Q42542
0ebl44
030616
030576

£00

GC30264
030270
030274
030300
030304
0303
03031
030316
030322
030326

000

£908
6909
6910
6911
6312
6913
6914
6315
6916
6917

30R(1052)

#BIT6, ASTKS

Auro

:RECALIBRATE DRIVE

: INCREMENT ORIVE NUMBER

!SEE IF DONE WITH ALL DRIVES

:BR IF MORE DRIVES TO EXERCISE YET

:DISABLE

KBD_INTERRUPT

'RING BELL AT END OF AUTO-EXERCISES

*RESTART AUTO MODE

; THIS IS THE RABNORMAL RETURN FROM THE DRIVER

WHICH 1S USED WHEN NED INDICATION IS EXPECTED (AND VALID).

6930
6331

030360
030366

6S
02
37

46
46

010000
044200

6942

030422

000
040037

00SS30

634S

030432

000137

046356

6356
6957
6958
£959
6960
6961
6962
6963

(NED_= NON-EXISTENT DRIVE)

NEDHOL: BIT

18:

000001

lg; 00SS00

6347
6348
6349
6950
6951
6952
6353
6954
6955

000020

2%:

3%:

BNE
JIMP
MOV

MOV
MOV
CLR

{MPB

sneo P.CS2(RS)

18
ERRHDL
RO, -(SP)

R1.-(SP)
$1. RO
R1’

R1,DRIVE

BEG
INC
ASL
BR
BIC
MOV

33
R1
RO
23
RD, NEWON
(SP)+,R1

JMP

RETNML

MOV

(5P)+ RO

;SEE IF NED ON DRIVE SELECT

'BR IFNED SET
:GO HANDLE ~OTHER ERROR
:SAVE RO, Rl

:SET BIT POINTER
CLEQR cgu
CURRENT DRIVE NUMBER
'BR IF
INCREMENT COUNTER
*SHIFT BIT POINTER
:TRY AGARIN
‘CLEAR ONLINE BIT FOR THIS DRIVE
'RESTORE RO,R1
:TAKE NORMAL RETURN

< 3636 36 36 3 36 36 36 36 36 36 36 36 36 36 36 36 36 3 3 36 36 38 36 36 36 36 36 3 36 36 36 36 36 3 36 3 3 3630 36 36 3 3 36 6 3 3¢ 3 3¢ 3 96 36 36 3 3 3 3¢ 3 2 2 X X

'saTTL

KBDHOL - TTY KEYBORRD INTERRUPT HANDLER

ill!*!f!lllll!li!!lll*l*l*l*llill*lll!l!!ll{illl*!illllll*!!*i*

030436
030440
030444
030450

030454
Q30456
030462
(030464
030470
030474
030500
0 0502

010146
017701
042701
120127
003005
(20127
002462
0492701
010137
122701
001007
104401

150502
177600
000172

013246

: SAVE nx ON STACK

BIC
CMPB
BGT

o177sbo R1
Rl #172’
208

IMASK OUT UNUSED BITS
‘SEE IF LOWER CRSE TYPED
NOT
:BR IF

BLT
BIC

20¢
#BITS, Rl

:BR IF NOT
'MAKE IT UPPER CASE
'SAVE INPUT CHARACTER
:SEE IF ($C) TYPED
:BR IF NOT (tC)
'ECHO (1C)

MOV

CMPB

000141
000040
005522
000003

R1,~(SP)

KBDHDL: MOV

20%:

MOV

CMPB
BNE
TYPE

9%tkB Rl

R1,

#141

Rl xnfcnn
%003,
2%
,CNTRLC

‘RERDA CHAR FROM KBD BUFFER

e
X

@
10:05

MACY1l

000100

150430

v RIF
RK611-/0
8 ?S

SRENE. PLl

f‘

[oy4

6364
6365

030506

Q42777

966

6367
636
6369
6970
6971
6972
6973

000032

g3
030540
030542
oaosqs

30850

30554

030556
030562
030574

30R(1052)

1%:

BIC

#BIT6, d$TKS

,CLEQR KBD INTERRUPT ENABLE BIT

2%:

CMPB
BNE

£032,R1
3%

'SEE IF ($2) TYPED
'BR IF NOT (t2)

MOV
RTI

TYPE
BR

013eS3

001003
104401
000757

6 2701

1003
104401
000751
104401
104401
000744

3%:

000022

cMPB

4s:

5%:

005522
001315

CNTRLZ

*RESTO
*RETURN

FECHO (12)
'RETURN

#022,R1

:SEE IF (tR) TYPED

:BR IF NOT (fR)

BR
cMPB
BNE

$
$007,R1
5§

! RETURN
‘SEE _IF (1G) TYPED
IF NOT (1G)
‘BR

: RETURN

TYPE

§CRLF

!60 <(CR>

TYPE

013272

(SP)+.R1

BNE

TYPE

013260
000007

SEQ 0137

10-JAN-78
12:02
PAGE 138
KBDHDL - TTY KEYBORRD INTERRUPT HANDLER

TYPE

CNTRLR

CNTRLG

CINTCHR

ECHO

(tR)

SECHO

(1G)

JECHO INPUT

:RETURN

AND

<LF>

; l!*l!l!lllll!lllilli!ll!lllll&*llill*il!lllli*ll!l*i*il!!!!l§§§

"&8TTL

PREPKB - PREPARE FOR KEYBOARRD INPUT

: ¥THIS SUBROUTINE CLERRS THE KEYBOARD BUFFER AND THE

:%DONE BIT, AND CLEARS THE TTY INTERRUPT INPUT WORD
*%INTCHR, IN PREPARATION FOR NEW TTY INPUT. IT ALSO

:EggBtEé KBD INTERRUPT.
e

JSR

PC, PREPKB

CLR

asrxe

ll*iillllll!!!ll‘i*l*illlli**!l**lil!l*illlllilllil!*lllli!*i!i
030576
030614

005077
005037
052777
000207

150344
005522
000100

PREPKB:

150330

CLR
BIS
RTS

INTC
oexrs asrxs
PC

;CLEAR KBD BUFFER AND DONE BIT

*CLERR_TTY INPUT WORD
'ENABLE KBD INTERRUPT
: RETURN

*!i*!ll!l!li!llll*llllll**!!llll!!!!ll*lllll*!!l*&i*il***l%*l*i

TTL

ECOBAD - ECHO BAD TTY INPUT

Ls B

; #REASON FOLLOS%DEBY QUESTION MARK (?). THEN, R <CR»
lQND P> ARE
PC, ECOBRD

U LWNU—O
DM I

o Pt pot Pt Pt Pet Pt Pt Pt Pma

3NN
NN NN N
0000000000

ALL

illllllilll!*i*!illllllilill!lll!ll!*ll!*i!!ll**ii!!!*il***i*ii

ECOBRD: TYPE

TYPE

, INTCHR

ngUES

;ECHO BAD CHARACTER

;EPER§°> AND <«CR>, <«LPF>

o 36369 36 36 36 3 36 3 36 3 36 3 36 36 36 3 3 3 3 3 3 3 3 3 36 3 3 3 36 3 3 3 3 3 3 333 T W

3 WII

T B

EREEEERER

isxznsn - SIZE MEMORY, SET LIMITS
' ¥THIS SUBROUTINE SIZES MEMORY BY CALLING SUBROUTINE $SIZE. AND

CZRBENDC RK&11-06 SS VERIF 2
CZRENG.P 11
10-JAN-78 10:05

MACY1l

I11

10-JAN-78_
12:02_
PAGE
30 A(1052)
E COBRD - ECHO BAD TTY INPUT
; #1T USES THE VALUES RETURNED,

7020

139

TO SET

SEQ 0138
THE LIMITS ON PARAMETER MA.

:#1T ALSO TYPES “LAST PHYS MEM ADR = XXXXXXXX* (LEAD ZEROS SUPRS'D),
;#AND SETS THE FLAG UBMPRS = | IF 22-BIT ADDRESSES ARE USED (11/70).

030664

104407
012737
004737
005737
100406
013737
005037
000436

030666
030672
030674
030700
030702
030704
030706
030710

013700
00s001
012702
000241
006100
006101
00S30e
001373

030630
030632

030712
030716

< 233362 3 303 36 3 3 44 36 36 3 36 36 3 3% 3 36 36 38 3 3 3 30 38 36 3 36 30 06 3 3 36 36 96 38 36 3 3¢ 2 3¢ 3 3 36 3% 36 36 3 3 3% 36 3 3 3 2 3% 3 % %

000200
057674
057732

057732

060176
005576

005574

:SAVE RO-RS
:SET MEM MGT KEY FOR $SIZE
:SIZE MEMORY
.sss IF MEM MGT PRESENT

#200,$KT11
PC,SS1ZE
sktil

BMI

'BR_IF MEM MGT PRESENT

168

‘GO TYPE LARST ADDRESS

MOV
CLR

$LSTRD,MAHILM
MAHILM42

CLR

000006

12%:

MOV
cLC
ROL
ROL

BRE

.s R2
RO
R1

15s

ADC

005574
D0S576

MOV
geg

RO, MAHILM
R1.MAHILM+2

000037

ROL
ROL
ROL
ROL
ROL
ROL
CMP

RO
R1
RO
R1
RO
R1
R1, 837

030762
030766
030772
030776

007142
005574
0S5436
055752
001315
001315

BITS

SET LOOP COUNT = &
'ROTATE LOOP

: ADD vrnrggL noonsgs
TO SHIFTED snr TOOGEITPHYSICRL ADDRESS

060176

000001

;SET MEM LIMIT LO BITS
,cLEARR MEM LIMIT HI BITS

.SHIFT SAF LEFT 6, AND PUT IN R1-RO
83
MOV
tsraxRO
LO BITS

060200

030754

031014

&17ZMEM: SAVREG
MOV
JSR
TST

003143

BLO

MOVB

HI BITS

ss LO BITS OF MEM LIMIT
:SET HI BITS OF MEM LIMIT

.SET "UNIBUS MRP PRESENT" FLAG

. TYPE "Lnsr PHYS ntnMEM
noR XXXXXKXX"
:TYPE "LAST PHYS MEM RDR ="
TYPE
{es:
MOV
bnnHILn -(SP) ;PUT POINTER ON STACK
JSR
JSR
TYPE
TYPE

RESREG
15

000207

§ 3 BTN I

0000360

PC, 3#$DB20
PC’ 3#3SUPRS
,SERLF
' §CRLF

s RESTORE RO-RS
' RETURN

000 T 00

:CONVERT BINARY TO OCTAL ASCII
STYPE *XXXXXXXX"
STYPE <CR>, (LF>

0006 030000 T3

i GETPRM - INPUT A SIX-DIGIT OCTAL NO. ON TTY
KBD
;#ENTER SUBROUTINE WITH OLD PARAMETER VALUE ON STACK. SUBROUTINE

; #TYPES OLDXQLUE AND INPUTS NEW VALUE, RETURNING NEW VALUE ON

;%TOP OF STACK
016646
104403

000002

o 3 336 3 36 96 3 26 3 36 3 36 36 36 3 36 3 3t 3% 3¢ 36 3 3 3 3 36 36 36 36 36 36 2 26 36 96 36 36 3 3 36 96 36 3 3 2 3 3 26 3 3 34 3 3 30 36 3 3% 2 3% 3 3 3 3

& ETPRM:

nov

TYPOS

2(SP),-(SP)

;GET OLD VALUE

;TYPE I7

CZRENDO RKb611-06 SS VERIF 2
10-JRAN-78 10:0S
CZRBND. Pll
031024
P

COO0O00000000000000000000
WWLWWLWWLWWLWWWWWWWWWWWWWWWWW

e Pt Pt Pt o

26
32

006
000
104401
004737

.BYTE

JSR
78

Pt P

4$:

00Se64
001314
000010

6%:

00SeeY4
054500

8%:

[e—y

(@]
£
£
o

7S:

n
o
O
o

o
|o
n
o
~N
P

Pt P
Bt Bt ot (s Bt P
Pt B

et Ps Pt Bt pa 0 s (O )
Y= r——-00~N ~N
Loomnnoono £

|@]
o
o

000006

os4632
0coo02

SEQ 0139

:SIX DIGITS

: SUPPRESS LEADING, ZEROS

NEWMSG

S TYPE

AC, RDCHRS

78
78
157
BNE
RTS
CMP
BLE
TYPE

*(#2) RETURN ADDRESS
:(#U) OR ERROR RETURN ADDRESS
:SEE IF ANY CHARS TYPED

TYPE

4g
PC
RO, #6
8%
,BUFFO

'BR_IF YES
'RETURN - OLD anus UNCHRNGED
'SEE IF > & CHARS TYPED
:BR IF NOT BRD
:ECHO BRD INPUT

kio, (SP)
PC

;F1X ERROR RETURN Pz
'ERROR RETURN

$QUES

SuB
RTS

#BUFFQ, - (SP)
PC,OCTBIN

MOV
JSR
6%
MOV
TST
BNE
MOV
RTS

NEW

'READ NEW VALUE FROM KBD
1($C) RETURN ADDRESS

(SP)+,R0
gsHI0Cct
63
RO, 2(SP)
PC

:PUT POINTER TO CHARS ON STACK
:CONVERT DIGITS TO BINARY
'ERROR RETURN RDDRESS
:GET NEW BINARY VALUE
:SEE IF HI BITS ARE O
:BR_IF NOT
T PUT NEN VALUE ON STACK
JRETURN

< 363036363636 36 3636 38 36 36 36 36 36 36 38 36 36 36 36 36 36 36 30 06 36 36 36 06 36 30 36 06 36 06 00 30 3036 36 36 96 30 06 06 06 3 6 6

QBTTL

0 M

H M

GTSWRG - OPEN SOFTWARE SWITCH REGISTER FOR MODIFICATION

; ¥ THIS SUBROUTINE ALLOWS THE CONTENTS OF THE SOF TWARE SWITCH

s Pt Pt

*xREGISTER TO BE MODIFIED BY TTY INPUT. THE SUBROUTINE TYPES
(% “SWR = XXXXXX

NEW = ",

AND WRITS FOR A NEW OCTAL VRALUE

N
LwWwwn
oo
Lo

e
s Bt
Gt Pt
P

*%0F UP TO SIX DIGITS TO BE TYPFD.
0000000
WWwWwWwwWww

Pt Pt Pt Pt
Pt P
Pt P
Pt Pt Pt it Pt P

TYPE

007475
034034

b Pt Pt Pt P

NN NN NNNNNNNNNNNNNI
NN N AN NN NN NINNN

WINPT
N = b b pe e b e b= = = O O O O OO 0000
=ODONCNLWN—OOVONTNLWNN—OOONTNLW—~O

Pt ot ot Pt ot $s Pt Pt Pt P

.BYTE

Pt Pm

7076
7077
7078

J11

MARCY1l 30A(10S2)
10-JAN-78_
12:02
PAGE 140
ECOBRD - ECHO BRD TTY INPUT

022737
001010
013746
104401
004737
012637
000207

000176
00217
0Uu7466
031016
000176

001140

o 363636 36 3 3 36 3 3 3 38 38 3 36 36 36 3 3 3 36 3 36 3 3 3 3 3 36 3 36 3 2 3 3 3 3 3 3¢ 3 3 3 3 3 3 3 3 3 3 3 36 I 3 3 3 3 ¥ 3 % % ¥ ¥ KR

8tSWRG: gng

ggunsc SWR

gssxxr gortunns SWR SELECTED

MOV
TYPE

suREG -(SP)
RMSG

;PUT_OLD VALUE ON STACK
STYPE “SWR
=

MOV
RTS

(SP)+, SWREG
PC

:STORE NEW
V
:RETURN

ISR

6S:

Pc GETPRM

:TYPE OLD GET Nsu SWREG VALUE

H < 3636 35 36 36 36 36 36 36 36 36 3 3% 36 36 36 36 3 36 36 36 36 36 36 36 96 36 36 36 36 36 36 36 3 36 3636 36 3 3 36 36 3 3 3 3 3 3 3 36 3 3 3 3 3¢ 3 3 2 3 3 4 X

iINITHH - INITIALIZE MEMORY MANAGEMENT REGISTERS
:#THIS SUBROUTINE INITIALIZES KIPAR'S AND KIPDR’S,

FOR

: ¥CONTIGUOUS 4K PAGES, STARTING AT PHYSICRL ADDRESS O
; #KIPAR? 1S LOADED WItH 177600, TO PRESERVE THE 1/0 PQGE
:%22-BIT MODE AND THE_UNIBUS MAP ARE ENABLED, IF PRESENT
;#BUT MEM MGT IS NOT TURNED ON IN THIS SUBROUTINE. HOMWEVER,
:¥MEM MGT TRAPS ARE ENRBLED.
031160
031162

104407
00S001

« 3036 3 3 36 36 3 3 36 36 36 3 3 36 36 36 3 3 3 36 3 36 36 3t 36 36 36 3 36 36 38 36 36 36 36 3 363 2 3 36 36 96 36 2 3 3 6 06 36 3 3 3 3 06 36 2

tAITMM: SAVREG

CLR

: SAVE RO-RS

:INIT FOR PAR LORDING

3 KX R R

CZRBNDO RKb11.06 SS VERIF 2
CZREND.P11
10-JAN-78 10:05
7132

031164

012702

7137
7138
T139
7140
7141
7142
7143

031210
031212
031214
031220
031224
031226
031234

00S303
<71370

;{:2

031244

000207

7133

031170

012703

KLl

MACY1l 30A(1052)
10-JAN-78
12:02_
PAGE 141
GTSWRG - OPEN SOFTWARE SWITCH REGISTER FOR MODIFICATION

172340

000010

7134 031174 012762 077406 177740 4§:
7135 031202 010122
7136 031204 062701 000200

7144

7147
7148
7149

7150
- 151

031242

012742
105737
001403

012737
012737
104410

177600
003143

000060
001000

172516
177572

108:

MOV

cxrpnno R2

;ADDR OF FIRST PAR

DEC
BNE
MOV
TSTB
BEQ
MOV
MOV

R2
4§
#177600,-(R2)
UBMPRS
108
#60, J#SR3
#8113, 3%SRO

;DECREMENT LOOP COUNTER
:LOOP UNTIL ALL 8 ARE LOADED
;SET UP KIPAR7 FOR 1/0 PAGE
; SEE IF 22-BIT ADDRESSES
:BR_IF NOT
:ENABLE 22-BIT _MODE,AND UNIBUS MAP
ENABLE KT.l TRAPS

RTS

: RETURN

MOV

MOV
MOV
ADD

RESREG

:LOAD 8 PAR’S AND 8 PDR’'S

o??fios -40(R2) ;PDR_= 4K,UP,READ/WRITE
R2)+
‘LORD_A PAR’
cabo R1
:UPDATE _FOR NEXT PAR

,RESTORE RO-RS

o+ 3636 36 36 3 36 36 36 36 36 3 36 3 36 3 36 3 3 3 36 36 36 36 36 36 3 3 3¢ 3 3 36 3 36 3 36 3 3¢ 36 36 36 3 3 36 3 Je 3 3 3 5% 2 3 3 3 2 3 3 3 3 2 % 3 % %

issnvxce ROUTINE FOR MEM MGT TRAPS

llli*ll**!lil»l»*!ll!**lll{l!l!!l!l!l*lli!lillliii**!il***l!l*l«l*

SEQ 0140

CZRBENDO RKb11-06 SS VERIF @
CZREND.P 11
10-JAN- 78 10:08
031246
03125e
031260
031e6b
031274

004737
013737
013737
013737
012737

043720
177572
177574
177576
031320

MACY1l

L11

PAGE
142
12:02
30AR(1052)
10-JAN-78
GTSW RG - OPEN SOFTWARE SWITCH REGISTER FOR MODIFICATION
KTERHD:

JSR

PC, REPSUP

J#5R0, SREGS
J85R1. SPEGH
JuSR2| SREG7
883, JRERRVEC

;GATHER STATUS FOR PRINTOUT

'GET SRO
;GET SR1

{GET SR2
:SET TIME-OUT VECTOR

SEQ 0141

CZRBNDO RK611-06 SS VERIF 2

CZR&ND.P11
?157

7158

031302

031310

10-JAN-78 10:0S
012737

013737

iga Bgigéfi BBEBBE

000340

172516

MARCY11 30R(10S2)

10-JAN-78

M1l

12:02_

PAGE 143

GTSWRG - OPEN SOFTWARE SWITCH REGISTER FOR MODIFICATION

000006

001202

MOV

8%:

MoV

gfip

#PR7 , J#ERRVEC+2

QOSRé SREG1O

%83)+ (SP)+

;GET SR3

; CLERN UP STRCK

SEQ 0142

CZR6NDO RK611/06 SS VERIF 2
CZREND.PI1
10-JAN-78 10:0S
7161

031322

7163

031334

7162

;igg

031330

031336

112737

105037
10412l

000137

000003

064272

N1l

MACY1l 30A(10S2)
10-JAN-78 12:02 PAGE 144
GTSWRG - OPEN SOFTWARE SWITCH REGISTER FOR MODIFICATION
065632
108:

046150

7168

7171

7172

7173
7174
7175
7176
7177
7178

7179

031342

010146

031350
031354
031362
031366
031370

013746
012737
012701
00S011
012711

031376

022626

031344

031374

013746

000401

031400
031404
031410
031412
031416

062701
Q020127
001366
012637
012637

;igg

031424

000207

031422

012601

000004

000006
031376
172100

MOV

000004
4§:

000001

8%:

000002
172140

108 :

0000CE
000004

cMP

R1,-(SP)

JuERRVEC -(sp)

:SAVE Rl

:SAVE OLD VECTORS

J8ERRVECY2,-(S
289 acsnnvtc
cn
EMCS
(RI)
BBITD,(RIJ

;SET_TIME-OUT VECTOR
ADRS OF MEMORY CSR'S
ZERO THIS CSR
:SET ENABLE IN THIS CSR

(SP)+, (SP)+

sCLEAN UP_THE STACK

(SP)+.R1

;RESTORE R1

108

ADD
CMP
BNE
MOV
MOV

#2,R1
: INCREMENT TO NEXT CSR ADRS
RI.SMEMCSR+40
;SEE IF DONE CHECKING YET
ysg'
'BR_IF NOT
(SP)+, I8ERRVEC+2’ ;RESTORE OLD VECTORS
(SP)+. 98ERRVEC

RTS

:RETURN

; o 3636 30 3 36 3 36 36 36 3 35 3 36 36 3 3 36 3 3 3 3 3 3 3 3 3 3 36 3 3 3 36 36 36 36 3% 3 I 36 36 3 3 3 3 3 3 3 3¢ 3 3 % I 3 3 I 3 3¢ ¢ 3 % % % %

031426

7195

031434

7197
7188
7189
7200

031444
031452
031460

7202
7203
7204

031474
031502
031510

l*llllliilllllllllllllli!lll!lllll!&llllli**llll**!****!ill***l

010146

MPERHD: MOV

71949 031430 013746 000004
031440

013746

000006

016637
012737
012737

000006
031576
000340

001174
000004
000006

17?740

001176

112737
104122
005737

000004

065656

001176

004737

031466

7205
7206
7207

031516
031624
021526

7209
7210
7211l
7212

031534
031542
031S44
031550

023727
103005
105737
001002

003144

7214

031556

012637

Ju0006

031532

031552

031562
031566

013737

043720

7201

7215
7216

;KT11 FARILURE

issnvxcs ROUTINE FOR MEM PARITY ERRORS

7193

7213

MOV
MOV
MOV
CLR
MOV

MOV

7190

7208

SABORT 111

HLTPRG

l}lll«ll!l&llll!l!il!l*l!i*lll!l!llllll!lll*!ll**lll*ll!lil*ll**

7191

7196

lel

JMP

ERROR

ENBCSR: MOV

2189
7192

:FIX PRINTOUT FOR NO SR3

DHPO4+11.

isuacsn - ENABLE MEMORY CSR’S FOR PARITY ERRORS

7180
7181
7182
7183
7184
7185

%3, DF30+18.

CLRB

; o 36363 36 3 36 36 36 36 3 36 36 3 36 36 36 36 3 3¢ 3 3 36 3 3 3 3 36 3 3 3 3 3 3 3 3 3 3 3 3% 3 3 3 3 3 3 3 3 3 3 3 3 2 2 3 3 3 3 3 2 % % % %

7169

7170

MOVE

013737
013737
012737
00101l

177742
177744
064326

045150

012637
012601

00000

aotnnvec -(SP) ;SAVE
:SAVE Rl
OLD VECTORS

JSR

PC, REPSUP

sGATHER STATUS FOR PRINTOUT

MOV

98LOERAD, SREGE

;LOW_ERROR ADRS REG

MOVB
ERROR
TST

#4, DF31+18.
122
snec7

11,70 MEM PARITY ERROR
,sss IF BAD MEMORY IS IN PROGRAM AREA

CMP
BHIS
1578
BNE

$REGH, SRWBUF+6000 ;SEE IF BAD MEM IS IN PROG. AREA
6%
eh IF NOT
MEMABT
:SEE_IF ABORT DESIRED
X3
,BR IF NOT

MOV

(SP)+, 98ERRVEC+2' ;RESTORE T.0. VECTOR

MOV

ISERRVECi2, -

MOV
6(4P), SREGS
IGET PC OF ERROR
MOV
8108, 98ERRVEC
:SET T.0. VECTOR
MOV
#PR7) I8ERRVEC+2
sHANDLE 11/7M MEMORY’PARITY ERROR

001200
001202
065654

MOV
MOV
MUV

001200

000137

MOV

BNE

073660
4g:

6%:

JMP

MOV
MOV

JsHIERAD SREG? ;HI ERROR ADRS REG
ISMEMSYS SREG10 ;MEMORY SYSTEM REG
$0H70? , DF31+16. ;FIX ERROR MSG FOR 11,70

:BR IF NOT

HL TPRG

*ABORT

(sp)+ JMERRVEC
(SP)+.R1

:RESTORE R1

SEQ 0143

CZRENDO_RK611/ 06 SS VERIF 2
10-JAN-78 10:0S
CZR&ND
. P11

031576
031600
031606
031612

7222
7223
7224
7225
7226
7227

031616
031620
031624
031626

7230
7231
7232

031636
031842
031644

7276

7271

MOV
BPL

PC, ENBCSR

148
163

R1,

BR
CMP
ADD
CMP

4s
(SP)+, (SP)+
#2,R1
R1) SMEMCSR+40

BLO

000744

§ 5 SR

IE I

(RL), SREG?

168

MOV

ERROR

000002
172140

145

SEQ JIuM

;ggTfiksnR AND ENRBLE CSR’S

.HANDLE ALL OTHER MEMORY PARITY £RRORS (NON-11,70)
los:
CMP
(SP)+. (SP)+
sCLERN UP THE STACK
MOV
8148 USERRVEC
;SET T7.0. VECTOR
MOV
sMEMESR,R1
:GET FIRST CSR ADDRESS

001176

031630
031632

12:02_PAGE

GTSWRG - OPEN SOFTWARE SWITCH REGISTER FOR MODIFICATION

128:

122

SREGH

:CHECK FOR R MEMORY CSR

:BR_IF NO ERROR SET HERE
:GET CSR ADDRESS

12§

IMEMORY PARITY ERROR (NON-11/70)
:GO SEE IF SHOULD AR30RT
:CLEAN UP STACK
*INCR R1 TO POINT TO NEXT CSR
:SEE IF DONE CHECKING

:BR_IF NOT
RETURN

0600 0000 36 00 06 0006 00 00 06 00 06 06 6 600 06 0 30 06 30000 00 06 30 9000 30 0 00606 06 20 30 3006 3 3000 3 0000 2

: #PREPAR - PREPARE MEM MGT FOR RELOCATION
; #THIS SUBROUTINE CALLS

INITMM,

0 M 0

AND THEN SETS UP CONSTANT

;#FOR_KIPARE IN SAVPAR, AND LOADS THE UNIBUS MRP REGISTERS,
:#IF PRESENT.

031766

geegocog

~N
[N
~N

PREPAR: SAVREG

PC, INITMM

MOV

RO, R3

'SAVE THESE BITS

ROL

:GET MA BITS 13-21

MOV

ROL
ROL
ROL
SWAB
ROL
RORB

MOY

1518

PMA, RO
%17777.RO
PMA+2, R1

R1,RY

R1
RO
R1
RO
RI

R1, SAVPAR

UBMPRS

2 3% %

:INIT MEM MGT REGISTERS

'LO BITS OF MA
*MASK FOR BITS 13-15
‘HI BITS OF MA

INTO Rl BITS 7-15

: CONSTANT FOR LOADING PRR& LATER

:SEE_IF UNIBUS MAP ENABLED

BEG
93
;BR _IF NOT (NO UNIBUS MAPPING)
; PREPRRE FOR 22-BIT RDDRESSING LOARD UNIBUS MAP REGISTERS
MOV
#MAPLOQ,
L
R0
:STARTING ADDR OF MAP REGISTERS
MOV
831. Rl
:SET REGISTER COUNTER

4s§:
020000

104410
000207

:SAVE RO-RS

JSR

MOV
BIC
MOV

(=] (DN\D—Ohfl—DhigI

031724
031730
031734
031736
031740
031744
03174
031750
031756
031764

o o J636 363636 36 36 36 3 36 36 36 45 3 36 3 3 36 36 3 3 3 3 3 36 3 3 3 3 3 3 36 3 3 3 3 3 3 3 3 3 3 36 3 3 3 3 I 3 3 3 3 3 3 I 2 % % %

nooocooc
oo

031646
031650
031654
031660
031664
031670
031672
031624
031676
031700
031702
031704
031706
031710
031712
031716
031722

NWWOODOOD000

7234
7235
72236
7237
7238
7239
7240
7241
7242
7243
7244
7245
7246
7247
7248
7249
7250
7251
7252
7253
7254
7255
7256
7257
7258
7259
7260
7261
7262
7263
7264
7265
7266
7267
7268
7269

000004

Ble

10-JAN-78

g§§

7233

30R(10S2)

031342

031630
172100
001200

00
=00

7228
7229

004737
000002

D00
8o
- 000
nn - -

7221

031570
031574

000

7217
7218
7219
7220

MACYll

160000
000003

000010
000007

MOV

R3, (RO)+

:LORD A MAP REGISTER

288

asbooo,aa

;ADD 4K WORDS

S08

R1,4S$

.LOOP UNTIL 31(DEC)

RESREG
RTS

; RESTORE RO-RS
:RETURN

MOV

BIC
BICB

RY’

(RO)+

RRE LOADED

#160000,P.BALO(RS) ;CLEAR BA BITS 13-17
$3,P.BAAT(RS)

CZRENDO RKb11-06 SS VERIF 2
10-JAN-78 10:08
CZRBND. Pl1

MACY1l 30A(10S2)

10-JAN-78

Cle

12:02

PAGE

§ s BEBIIEIE I

00 00 00 306 30 00 0000 00 0 00000 06006 00 0

30 00 0 36 3000 06 0630 360 0 30 3000 3036 36 00 3 0000 300

i FNDXDP - FIND STARTING RDR OF XXDP LORDER , RND STORE IT
:#IN XXDPAD.

031770

032032
032040

005737

162737
000207

SEQ U14S

146

GTSWRG - OPEN SOFTWARE SWITCH REGISTER FOR MODIFICATION
00 0

!!lllllilifillllillllllllili!llllll!Il!!lllill’lllliilll&l’ll!ll

EAOXDP: TST

00SS576

MAHILM+2

TEST HI BITS OF UPPER MEMORY LIMIT

;SEE_IF MEM LIMIT > OR = 157776
B8R IF YE?

160000

00Ss40

Ys:

BEQ
ggv

005574

157776

6S:

005574
000002
006000

005540
00SS40
00SS40

CMP
BHIS

MAHILM, 8157776
a

ggg

usbco XXDPRD

8s:

MOV
ADD

68
!BR IF Wl BITS ARE O
gésoooo,xxopno:START OF 2BK 1S END OF XXDP
MAHILM,XXDPRD
82, XXDPARD

:HI MEM LIMIT IS END OF XXDP
{ADD 2 BYTES

ggqufe START OF XXDP

llllillli!!*lllil*lllllill!!ll*llllllllllllllllili!ll*llllil!ll

'i SA vxgp - SAVE THE XXDP LOADER IN HI MEM
P#THIS SUBROUTINE MOVES THE XXDP LORDER, uaxcn stxoes nT THE

:2?53&8“&~OBRERS Ang By XSOPROYo
TR, THE AEYRTERE,
PRBREEare moveo.
T

ROBROUTING MOVES YW, RECOGRTED XXDB-LORDER FRON THE ADDRESS

:®STORED IN XDPSA\ ,XDPSAV+2, BACK TO LOCATION XXDPAD (ITS ORIGINAL

: #ADDRESS).
104407
00S004
go0410
104407
105037

!l**illIlll*lll{ll!lllilll!!**illilll!ll!l!!Il&ll*!l**l*il*l*il

&AVXDP: SAVREG
CLR
003133
003134

000001
000170

[V Pt e s e Pt e s e
ow ONON LW

032042
032044
032046
032054
032052
032056

GETXDP:

SAVREG

003000
005540
00S542
DOSS4Y4
057732

KILLDR
XDP2
#1536. R2
XXDPAD, R3
XDPSAV) RO
xopsnvia R1

BMI

XDP3

:BR IF PRESENT

XDPY
(R3)+, (RO)+
R2
6%

'BR IF unnr TO GET XXDP
{SAVE A WORD
:SEE IF 1535(050) WORDS YET
NOT YET
‘BR IF
'RESTORE RO RS
'RETURN
:POINT TO END OF SAVE AREA
:POINT TO END OF XXOP LORDER ARER
:GET A WORD
:SEE IF 1S36(DEC) WORDS YET

NN
ww

TsT

7321

XDP2:
062700
062703
014043
00s302

006000
006000

XDP4:

8% :

: SAVE RO-RS

TST
BNE
MOV
MOV
MOV
MOV

MOV

TST

68:

XDP1

: SAVE RO-RS
:SET INDICATOR TO SAVE XXDP

'CLEAR XXDP OVERLAID INDICARTOR
:SEE IF XXDP WAS SAVED
:BR_IF
NOT SR E?
iSET Inoxcnroa 0 GET XXDP
TO OVERLAY LOADER
:SEE_IF
‘BR IF Y ? EXIT
'GET SET T& novs 1S36(DEC) WORDS
:GET ORIG ADR OF START OF XXDP
'GET SAVE ADR LO BITS
,HI BITS

CLRB
TSTB
BEQ

XDP1:

BNE
MOV
DEC
BNE
RESREG
RTS
ADD
ADD
MOV
DEC

XOVLAD
XDPSVD
XDP2

81, RY

SKT11

PC
#6000, RO
#6000, R3
-(RO) .~ (R3)
R2

ISEE _IF MEM ncr PRESENT

:SEE_IF WANT TO snvs OR GET XXDP

CZR6ENDO RKb11/06 SS VERIF 2

CZR6ND.P11
7329

7330
7§§é

10-JAN-78 10:05

032156

032160

MACY!11

BNE

000766

032172

7338
7339

;3:0

032293

oiO%ai

662339

KP3:

701

140000

7344

7345
7346

7347

032224

177572

032240

008337

177572

03c<°36

7350
7351

032244
032246

735
735

12305

008237

010521

000406
237

§g§

168:

187

177572

7359

22%:

;359
§3259§ SOI;Oé 000
73?8 EgSS?w 8:5785 880200 172354
032304
032306

gov

§6¢335ISGR6

BIS

TST

BNE

005302
001347
000713

7363
7364
7365

sSET UP Pgss g

?i 3 ?o &E?ERENCE PARG

;SEE

(R3)+,RS

'SAVE
A WORD

#140000,R1

183

DEC

JuSRO

MOV

c158000,§1

J8SRO

BR
INC

AT
aDR B1s 15o81 INTO Ri BITS 7-15

INC

MOV

208

032302

ROL

MOV

;ggg oggago 053;83 020000
7360
;ggé

b,
Tt
R

BiC

177572

SEG 0146

:GO EXIT

ISR
ROL

RORB

801087

(07P232

7348

7349

005704

147

:BR IF NOT YET

XDP2

ROL

7 qé §§§§é§ §g§7§1 1s§808

734

PAGE

COME HERE IF MEM
n?

006100

106001

12:02

B8R

ég %8186
2

D12

10-JAN-78

GTSWRG - OPEN SOFTWARE SWITCH REGISTER FOR MODIFICATION

00137S

2335
D1EE Doeign ouieC
2350 B38i%8 BReifS
7335

30AR(1052)

RS,

(R1)+

208
J8SRO

(R§)+,RS

IF WANT

TO SAVE OR GET XXDP

:BR IF WANT TO GET
XXDP

:TURN ON MEMORY MANRGEMENT
: TURN OFF MEMORY MANAGEMENT
TURN ON MEMORY MANAGEMENT

'GET R _WORD

DEC

J8SRO

ng00

32;713
Rl
s§ é AGAIN
ngéo,ahxrpnes :UPDATE ar By uk

BNE
8R

169
XDP2

S?¥
DEC

] %Tg)ax
’

iTURN OFF

MEMORY MANRGEMENT

;SEE _IF OVERFLOH TO PARGE 7
:SEE IF 1536 WORDS YET

‘BR
'BR

IF NOT YET
1O RETURN

R r22221222%222223:32%22223222222222222231XX23222
2222222222222 2222L 2

;ggg

QBTTL

7368

!THIS SUBROUTINE INITIALIZES THE DRIVER AND ITS PARAMETERS

7370
7371

:#
‘%

;g;a

iunuunn“nnn*uhnluiiuuiuuuunuunnn*uu

7369

!%AND DOES A SUBSYSTEM CLERR.

7372

7375

x
032310

012737

032340

004737

017737
O01.702
012705
105037

044200

7376
7377
7378
7379

032316
032324
032330
032

7381
7382

032344
032352

112765
004737

000177
Q42542

032364

113737

005500

7380

042732
003036
002630
003142
032410

003046

003044

USES CALL:

INITSS:

MOV

R2,RS

JSR

PC, INITSS

#ERRHDL ,R.ABNL

;SET UP ABNORMAL ERROR RE’URN ARDDRESS

PC,

:CLEAR DRIVER

MOV
MOV
MOV
CLRB

SERRFRE'A.NORM
Rxans R
#PARMO, RS
NORTRY'

000001

MOVB
JSR

OSUBCLR P.CMND(RS);SET SUBSYSTEM CLERR COMMAND
VCAL
D0’ SUBSYSTEM CLEAR

002714

MOVB

7383 032356 1137656 005500 000000
7384

INITSS - INITIALIZE SUBSYSTEM

JSR

MOVB

CLRPRM

:SET UP NORMAL RETURN ADDRESS
:GET ADDRESS Of RK611 REGISTERS
:GET ADDRESS OF PARAMETER BLOCK
,CLERR “NO-RETRY” FLRAG
INPUT

PARAMETERS

oRtvsDRVN(RS) SET CURRENT DRIVE NO.
DRIVE, PARM1

éET DRIVE NO.

IN ALTERNATE P.B.

CZR6ENDO RKE11/06 SS VERIF 2

CZR6ND.PIL1
7385

7386

032372

032400

10-JAN-78 10:05
113765

153766

;ggg 032406 000207

003125

003124

MACY11l 30A(1052)

10-JAN-78

El2

12:02

PAGE 148

SEQ 0147

INITSS - INIT IQLIZE SUBSYSTEM

000007

MOVB

000007

TYPFMT.P.CSIH(RE)

RTS

2350

7391

FORMAT,P.CSIH(RS)

BISB

;SET CURRENT onxvs FOIMAT

SET DRV TYP

,suanouvtns EXIT

o 363636 363 3 3 3 3 3 3 3 3 3 36 96 3 3 3 36 6 3 35 3 36 3 36 3 3 36 36 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 2 3 % 3 3 3 3 3 A % % %K WX¥

7332

"48TTL

7394

*Pnnnn£1sn BLOCK (WHOSE ADDRESS 1S IN RS)

7393
7395

;ggg
7398

7399
7400
7401
7402
7403
7404
7405
7406
zggg

CLRPRM - CLEAR DRIVER INPUT PARAMETERS

:¥THIS SUBROUTINE ZEROS THE FIRST 14 BYTES IN THE DRIVER
CALL -

JSR

PC,CLRPR

lllll!lllll!lil!lllllillilllllllll!!l!l!lllil!!lll CREERXXEXERERERE

032410

(032412
032414
032416
032422
032424
032426
032430
032432
032434

010046

010546
010500
062705
005020
020005
001375
012605
012600
000207

CLRPRM:

000016

18:

MOV

RO, - (SP)

MOV
MOV
RDD
CLR
CMP
BNE
MOV
MOV
RTS

;SAVE RO

RS, -(5P)
RS RO
#P.CS1,RS
(RO)*+
RO, RS
18’
(5P)+,RS
(S5P)+.RO
PC

:SAVE RS
:GET PARAMETER BLOCK ADDRESS
:COMPUTE LIMIT ADDRESS
‘CLEAR A WORD IN PARAMETER BLOCK
:SEE _IF DONE YET
'BR IF NOT DONE YET
:RESTIRE RS
IRESTORE RO
*RETURN

7409
7410

7411

; o 36363636 3 36 36 3 3 36 36 38 36 36 36 36 3 3 3¢ 3 3 36 36 3 3 3 36 2 3 3 3 3¢ 36 36 3 36 3 96 3 3 3 3 3 3 3 3 3% 3% 3 3 3 3 3 3 3 3 3% % 3% % ¥ %%

7413

:¥THIS SUBROUTINE SCANS THE SELECTED DRIVE TO INSURE

7412

"48TTL

7414

SCNDRV - SCAN DRIVE FOR STATUS

: xTHAT THE DRIVE IS ON-LINE,

READY, NOT WRITE-LOCKED,

7415

:#AND NOT LORDED WITH AN nLtcnnENT CARTRIDGE. IF AN

7418

:¥R RETURN 1S MADE' TO THE no¥ SS LISTED InneotnTELv

7423

‘¥ CALL -

7416

} ¥OF THESE CONDITIONS ARE NOT MET. AN APPROPRIATE

7417

: ¥MESSAGE IS TYPED, RKOB INTrnnupf 1S DISABLED, AND

7419
7420
7421
7422

:¥AFTER THE CALL TG SCNDRV.
THE REQUESTED DRIVE NO.
P %¥MUST BE _PASSED TO THE SUBROUTINE IN WORD *“DRIVETM
'%AL50, IF RUNNING FROM ADRS 200 AND RKO6 IS LOAD MEDIUM,
*onxvt 0 WILL BE REJECTED FOR USE.

;:gg

;zsg
7428

7429

032436

Q032442

105037

004737

003124

032310

7430 032446 113766 00S508 000000
032454 042712 000100
7432 032460 113762 00SS00 000010
7433
7434
7435

032466
032472
032474

105737
001003
012712

7438

032506

005037

7439
7440

PC, SCNDRV

: ; 36 36 36 36 96 36 36 36 36 3 3 3 3 3 3 3 3 3 3 3 3 36 3 3 3 3 3 36 3 3 3% 36 36 36 36 36 36 3 3 3¢ 3¢ 2 3 3 3 3¢ 3 3 3¢ 3¢ 3 3 3 3% 36 2 3 3 3 2 3 3 %
SCNDRV:

7431

7436
7437

JSR

032500
032502

032512
032516

000402
O0l27le

005237
001375

JSR

002001

5%:

005534

14%:

1SS

nssuns RKO& TO START

SINITIALIZE DRIVER AND CLEAR SUBSYSTEM

oRtvs P DRVN(RS) .GET DRIVE NUMBER
:OISARBLE RKO® INTERRUPT
oRIOE RKCSE(RE) :SET DRIVE NO. IN RKCS2

BR
MOV

73
$<CDT!GO>, (R2)

TSTB
BNE
MOV

000001

TYPFHT

MOVB
MOVB
BIC

003124

005534

CLRB

CLR

INC
BNE

TYPFMt
S§
860, (R2)

:SEE_IF RKO?
'BR_IF YES
"ELSE SET GO

SCRACH

:CLEARR STALL COUNTER

SCRACH
148

BIT IN CSI FOR RKOb

: INCREMENT STALL COUNTER
'STALL FOR SEVERAL MILLI-SEC

CZRGNDO RKB11-06 SS VERIF 2
CZREND.P11
10-JAN-78 10:0S

Fl2

MACY1l 30A(10S2)
10-JAN-78 12:02 PAGE 149
SCNDRV - SCAN DRIVE FOR STATUS

7441

032520

032762

001000

000010

BIT

#MDS,RKCS2(R2)

7443

032630

112765

000101

000001

MOVB

$SELDRV,Pcnno(RS)

000200
045774
000040

00S474

7442

7444
7445
7446
7447
7448
7449
7450
7451

032526

001417

(032636
(032542
033546
0325852
032554
032562
032666
032674

011265
004737
004737
1J40S2
062737
000137
032762
001403

000016
052226
043720

032604

4737

032310

000004

003124

7462

032576

7456
7457
7458

032624
032632

012737
004737

000377
042542

00SS530

7459

(032636

012737

044200

003046

7461
7462

032652
032654

001430
005737

003150

7464

032662

113737

005500

7453

152737

000014

7454
032610 112765 000141 000001
7455 032616 012737 030360 003046

74960 032644 022737 000377 005530

7463

032660

001017

7465
7466
7467

032670
032676
032702

162737
104401
104401

7469
7470

032714
032716

001401
104123

7472

7473
7474

032720

032726
032732

042762

7476

000060
007522
007533

BEQ

18S:
208 :

7475

007530

DRIVE,BADDRV+6

BIS8
TYPE
TYPE

BITB

BEQ
ERROR

IF DRIVE

032744

005737

003150

113737
152737

005500
000060

032752
032760

001363

032765

004000

7488

033010

005737

003150

113737
152737
104401
104401

00S500
000060
007522
007561

033006

001416

033014

001013

(033042

000726

033044

112765

033016
033024
033032
033036

000103

MOV
RTS
BIT

8NE

ELSE SET FOR RKO?

nnbsrnr
P. cnnotné):;SEY.SET
READ DRIVE STATUS COMMAND
SNEDHOL 'A.ABNL
NED ABNORMAL RETURN RDDRESS
£377, Nsaon

.SEE

007530
007530

'BR IF NED NOT SET
:FORM AUTO MODE 7
;GET DRIVE NO.

INTO BUF

8’0, BADDRV+6
,e
RODRY
onx

convsnr TO RSCII
:TYPE "DRIVE X"
STYPE "NON-EXISTENT®

2%
123

:BR_IF NO
:NED UNDER APT SIZING

59177,ss~vn

$IE,RKCS1(R2)

a(sfi) (5P)
IS READY

#S.DRY,P.AOO(RS)

‘SEE_IF APT

;DISABLE RKO& INTERRUPT

'SET UP ERROR RETURN ADDRESS
'ERROR RETURN
;TEST FOR DRIVE READY

é IF DRIVE IS READY

MOVB
BISB

DRIVE anoon+s
8’0, BADD

*GET DRIVE NO. INTO BUF
'CONVERT TO RSCII

TYPE
BR

NTREDY
2s

*TYPE "NOT RERDY"
'TAKE ERROR EXIT

TYPE

6%:

;RESTORE ABNL RETURN ADDRESS

‘SEE_IF NED INDICATION ON THIS DRIVE

AUTOFG

IF DRIVE

BIT

,enbonv

IS WRITE ENABLED

#S.WRL,P.AOO(RS)

:SKIP IF FROM AUTO MODE

*TYPE "DRIVE X"

;SEE IF WRITE LOCK SET

BEQ

sBR IF WRITE LOCK NOT SET

BNE

;FROM_THE AUTO MODE

TST

MOVB
BISB
TYPE
TYPE

000001

INIYsS

TST

BNE

007530
007530

000040

8. CDT TYPFMT

. SERVICE ERRORS HERE

.SEE

033000

7495

MOVB

BNE

007530

4%:

7486

7436

4§
AUTOFG

000040

007547

7494

BEQ
75T

000200

104401
000750

7490
7481
7482
7493

#ERRHDL,R.ABNL

CMP

032765

032772
032776

7489

MOV

032734

7483
7484
7487

:INIT THE SUBSYSTEM

BIC

7482 032766 104401 007522
7485

MOVB
MOV

PC.

000000

032750

7480
7481

JSR

B8ISB

017616
000207

7479

7478

;cefRKCS1
'GET OTHER RK611 REGS FOR REPORT
'SET UP ERROR REPORT
:REPORT MDS ERROR
:SET RBORT FLAG
GO ABORT TESTING
;SEE IF DRV TYP ERR
:BR_IF NO=RKD®

o§:

001016

SET COMMAND FOR ERROR REPORT

(R2),P.LS1(RS
PC,1:cs i
PC' REPSUP
52’
8ABORT,RECODE
ALLTRM'
sOTYE,RKER(R2)
208

000000

032742

:BR IF NOT

MOV
JSR
JSR
ERROR
B1S
IMP
BIT
BEQ

000100

7477

;SEE IF MDS ERROR

MOV
8377, NELON
INIT. ON-LINE INDICATOR
JSR
PC, DRVCAL
IREAD ALL DRIVE STATUS
:SEE IF THIS DRIVE' EXISTS AND 1S’ ON-LINE

7468 032706 132737 000200 001341

7471

188

SEQ 0148

AUTOFG

DRIVE,BADDRV+6
8’0, BADDRV+6
, BRODRY
NRTLOK
2s

;GET DRIVE NO.
: CONVERT _TO nscxx
‘TYPE “DRIVE X
TYPE “WRITE-LOCKED"
TAKE ERROR EXIT

.SEE IF DRIVE NOT LORDED WITH ALIGNMENT CARTRIDGE

6§:

MOvVB

#PACK,P.CMND(RS)

;SET PRCK ACKNOWLEDGE COMMAND

CZR6NDO RKE11/06 SS VERIF @2
CZFEND.PL1
10-JAN-78 10:085
7497

004737

042542

105737

003124

033104
033112
033114

012765
000403
012765

000632

76809

033144

14276

7511

033160

7498

7499
7500
7501

033052

033056

000113

Gle

30A(10S2)
10-JAN~-78
12:02
PAGE
SCNDRV - SCAN DRIVE FOR STATUS
JSR

00000!

MOVB

(033064 004737 Q42542
33070 112765 000121 000001l

033076

7502

033102

7506
7S07
7508

033122
033130
033136

7533
7504
7505

112765

MACY1l

001004

001456

112765
012765
01276

000002
065660
177774

005737

003180

000020

JSR
MOvVB

TSTB

BNE

000002

000005
000010
000012

MOV
BR
MOV

25%:

27%:

MOVB
MOV
MOV
BICB

000007

7510 0331S2 153765 003124 000007

7512
7513
7S14
7515

033164
033i66
033172

7526
2527

113737
152737
104401
104401

005500
000060
007See
007574

001013

033216
033224
033232
033236

7525

013202
177777

033214

7519
7520
7521
7522
7SeM

104401
022737

001402

033202
033506

7523

042542

033200

7516
7517
7518

001027
004737
032737

033242

000626

033244

062716

033250

000207

100000

BISB
TST

1S0

SEQ D149

PC, DRVCAL

SET VOLUHE VALID

TYPFMT

,SEE IF RKO?7

ORECQL CHND(R55

RECAL COMMAND

m.
Iehms THE DRIVE
ORDDRTR P. CHND(RQ) SET REARD COMMAND
258 _

863c,P.CYLN(RS)
27’9
#1456,P.CYLN(RS)

;BR IF YES

#LSTTRK.P. TRCK(RS) :SET TRACK = 2
SRWBUF P.BRLO(RS) . B80S ADDRESS
8-4_P.WC(RS)
EQD 4 WORDS
#8.FMT, P.CS1H(RS
;SET 22 SECTOR FORMAT

TYPFHT,P.CSlH(RS

AUTOFG

;SEE _IF FROM ARUTO MODE

00S474

BNE
JSR
BIT

129
PC, DRVCAL
cnfiYDER,RECODE

065666

TYPE
CMP

BRAD632
TYPE READ ERROR MESSRAGE
5177??7 RWBUF +6 SEE F ALL 1'S IN I1.0. WORD 3

MOVB
BISB
TYPE
TYPE

DRIVE , BRDDRV+b
8’0, RADDRV+6
BQDDRV
" ALNPRK

BEQ

10%:

BNE

007530
007530
ERROR

000002

125

7530

109

;BR

BR IF

TRKE ERROR EXIT

RETURN

RTS

pC’

%2, (SP)

SBTTL

NOT ALL

1°'S

GET DRIVE NO.
CONVERT 70 QSCII
TYPE “DRIVE
X
TYPE *“LORDED WITH ALIGN PACK"
;FIX UP RETURN PC

sRETURN

o 36369636 3636 3696 38 36 36 36 36 36 36 36 36 36 36 36 36 36 3 3 036 36 36 3 3 2

7531

IF OK

128

FREE

RADD

EXI IF SO
RERD WORDS OF BAD SECTOR FILE
;SEE IF DRTA ERROR

MMM

CHKDRY - CHECK STATUS OF DRIVE

A HAEERERE RN EEREREELEERE

7532

; ¥THIS SUBROUTINE CHECKS

7534

inPPROPRIRTE ERROR MESSAGE IS YYPED,AND THE CPU HALTS

7533

THE DESIRED DRIVE

TQO DETERMINE

§IF THE DRIVE IS ON-LINE,READY,WRITE-PROTECTED.

7535

iNHILE MANUAL

75839
7540

*DRIVE

7536
7537
7538

IF NOT,

INTERVENTION TAKES P({ACE TO CORRECT THE

iPROBLEfl THE OPERARTOR THEN DEPRESSES 'CONT’ TO PROCEED,
lQND A RETURN IS HRDE TO THE RADDRESS LISTED IMMEDIATELY
*RFTER THE cAaLL.
HERE ARE NO PROBLEMS WITH THIS

NORMAL RETURN IS MADE.
lRS HUQT CONTRIN
THE RDDRESS OF THE PARAMETER BLOCK,

3235

rnND R2 MUST CONTRIN THE RKO& REGISTER BRSE ADDRESS .

7543

7545
;g:g

%
ERROR ADDRESS
S5 MIIMIE NI
I IEHIIE 0 UE J 00300 000 M0 B

7544

7548

03325¢

113765

005500

000000

7551
7852

033274
033302

012737
004737

000377
Q42542

005530

7549

THE

033260

112765

000141

000001

7550 033266 012737 030360 003046

CALL:

CHKDRV:

JSR

PC, CHKDRY

MOVB

DRIVE,P.DRVN(RS)

MoV
JSR

8377, NEWON
PC, DRVCAL

MOVB

MoV

SET DESIRED DRIVE NUMBER

SRDSTAT,P.CMND (RS}

READ DRIVE STATUS COMMAND

#NEDHDL
;A ABNL SE? NED ABNORMAL RETURN ADDRESS
INITIRLIZE ON-LINE INDICATOR
READ ALL DRIVE STRTUS

CZRENDO RKH11-06 SS VERIF 2
10-JAN-78 10:08
CZREND.P11
7883
/SSH

033306

83332

012737

044200
000377

003046
005530

000414

033346

032765

000200

152701

005500
000060

000040

o4z2762
000c000

000100

MOV

SEQ 0150

SERRHDL ,A.ABNL

8377, NEWON
oaxve R1
Rl

:CONVERT TO ASCII

TYPE
BR

NONEXD
is

STYPE NON-EXISTENT DRIVE MESSAGE
'SERVICE THE ERROR

n1 LRVNED

.SEE IF DESIRED DRIVE

13:

BIT

BNE

IS READY

OS.DRY,P.QOO(RS) TEST FOR DRIVE READY
?RéVE Rsngv

MOVB

DRIVE,RI

RSEOT

BIC

HAL 1

E IF NED INDICATION ON THIS DRIVE
SE
1A NEB NS TOLES
IGET ovas NUMBER

*PUT DRIVE NO. INTO MSG BUFFER
ET DR

s'0,Rl

NUMBE

convsnr TO RSCII

SERVICE ALL ERRORS HERE

53,

;RESTORE ABNORMAL DRIVER RETURN RDDRESS

MP
MOVB
BISB

BISB
000000

1Sl

;SEE IF THIS DRIVE EXISTS AND IS ON-LINE

MOVB

333358 148431 3iiese
033376
033404

H12

30R(10S2)
10-JAN-78
12:02
PAGE
CHKDRV - CHECK STARTUS OF DRIVE

005500
000060
011754
011744

033324
033330
033334
033340
033344

114281

MACY1l

#IE,RKCS1(R2)

MR R

;CLEAR RKO6 INTERRUPT ENABLE BIT

NECESSARY DURING MANUAL
"HALT IS
:

INTERVENTIONS,

TO CHANGE PACK,

; _ WRITE on?K TART onévs ETC.

033406
033414
033420
0334eY4

11276S
004737
017616
000207

033426
033434
033436
033442
033446
033452
033456

000177
g4erye
000000

000001

004000

000040

MOVB
JSR

mov

.SEE

00SS00

333468 b05733 R
033472
033500

112765
004737

000103
O42s42

033504
033510

062716
000207

000002

000001

a(sp) (SP)

BIT

%S.WRL,P.ADC(RS)

000001

:SEE IF WRITE LOCK SET

53
DRIVE Rl

a IF WRITE-PROTECTED
!GET DRIVE NUMBER

MOV
TYP
BR

R1 flooRLx
NOTL
3s

:PUT DRIVE NUMBER IN MSG BUFrER
2TYPE “DRIVE NOT WRITE-LOCKEDTM
'SERVIC
HE ERR

ngvB

SREC

JSR
MOVB
JSR

.RETURN HERE

:ERROR RETURN

BNE
MOVB

$'0,RIl

RECRLIBRATE DESIRED onxve

is:

0 PROCEED

'SET UP ERROR RETURN RDDRESS

IF DRIVE IS NRITE LOCKED

BISB

012041

33460

RTS

: PRESS

OSUBCLR P.CMND(RS) :SET suesvsrsn CLEARR COMMAND
RVCAL
s CL EAR THE SUBSYSTEM

ROD

RTS

convsnr TO ASCII

SET UOLUME VAL

CfiND(RS) 3ST RSS“EISR“TE COMMAND

P va
RE
cphcx
CMND(RS)
SETPACK
PACKRACK.
ACKNOWLEDGE
COMMAND
VALID)
(SETS VOLUME
bo
PC, onOc
82, (SP)

:FIX UP RETURN ADDRESS ON STACK

: ERROR-FREE RETURN

o 3636 36 36 3 36 3 36 3 36 3 3 36 36 36 36 38 36 36 36 36 3 36 36 3 3 36 3 36 3 3 36 36 36 36 3 3636 96 36 36 3 3t 36 3 3% 36 36 36 3 3 3¢ 36 3 38 96 3% 3 36 30 3k 36

i ALNSEK - SEEK IN SINGLE INCREMENTS FROM CYL O TO ALIGNMENT CYL (365 OCT).
033512
033520
033524
033530
833534

3540

033542
0335850

112765
005065
004737
005265

105737
001005
0227865
0013865

300117

000001

in*uuinunuu{il-uunuuuunnununnuuu*unu

ALNSEK nova

2s:
0031eY4
000366

000002

#SEEK,P.CMND(RS)

an
INC
T578B
BNE

P.CYLN(RS)
PC DRVCAL
P.LYLN(RS)
TYPFHT
33

BNE

CMP

:SET SEEK COMMAND

tNIT CYL T0 O
'SEEK TO THIS CYL
:INCR CYL NO.
:CURRENT DRIVE IS AN RKO7 °
:BRANCH IF IT IS

RALNCYL+1,P. CYLN(RS)

SEE IF 365 RERCHED YET

1E7NGT YET

Pt
o Pt Pt Pt Pt Pt P

NN NN
oo

OO NN L£WN—

CZRENDO RK611-/06 SS VERIF 2
CZREND. P11
10-JAN-78 10:0S
03355e
033554

033562
033564

000207

000761

MACY11

000002

I12

38&(1052)
10-JAN-78
12:02
PAGE
KNRV - CHECK STRTUS OF DRIVE

38:

SEQ 0iS1

RTS

; RETURN

BNE
RTS

cs
PC

; CONTINUE
EXIT

cMP

000207

152

#761,P.CYLN(RS) {REACH THE CYLINDER 760 FOR RKO7

S 33606336 30 30 00 0 3 30 06 00 36 30 36 00 30 98 38 36 36 36 3 00 06 30 36 0606 36 36 36 36 36 36 30 90 00 00 30 06 26 06 36 36 36 06 36 36 30 30 36 30 30 30 6 3 0 2 2 2

i WAITYR - THIS SUBROUTINE UNLOARDS HEADS ON THE CURRENT DRIVE, TYPES
i%

033566

112765
004737

000107

000001
000001

000040

000044

18:
2%:

0iees!
030576
00sse2
0colee

"TYPE

4S:
00Ss5e2

030616

033670

112765
Q04737
000207

000111
o42s4e

000001

<R>

WHEN READY”,

AND THEN LOADS THE HEADS WHEN

6%:

VCAL

MOVB

033736

TYPED.

NCOAD HEADS ON THIS DRIVE

PC, DRVCAL
"READ STATUS OF DRIVE
#S. HDHM, P. RO1 (RS} :SEE IF HEADS UNLORDED YET
18
;BR_IF NOT YET
RWNRDY
*TYPE "TYPE <R> WHEN RERDY"
AC. PREPKB
:PREPARE FOR KBD INPUT
INYCHR
'SEE IF ANY INPUT YET
4§
'BR _IF NOT YET
#'R, INTCHR
'SEE IF (R> TYPED
6%
'BR IF «R> TYPED
PC, ECOBAD
:ECHO BRD INPUT
2s’
:GO RSK AGAIN
#SRYSPL ,P. CMND(RQ) SET START SPINDLE COMMAND
PC, DRVCAL
START SPINDLE AND LOAD HEADS
pc’
,RETURN
000000 NI N0

NN R

AR R RNEE R

iSETTUP - SET UP FOR LOOP ON ERROR
:¥THIS SUBROUTINE CANNOT BE CALLED BY'QNY OTHER
: ¥SUBROUTINE --- ONLY MAIN-LINE CODE
001076
001076
005474
003126
002630
000177
Q4as42
000000

oRbsrnT P. cnno<n$) SET READ STATUS COMMAND

JSR
BIT
BEQ
TYPE
JSR
15T
BEQ
CMP
BEQ
JSR
BR
MOVB
JSR
RTS

$ 5 SIEIEII I IEIE I

033672
033676
033702
033706

<R>

R
T T
I T T T T
T T T P ST T ee Y
fihITHR ?g;B
IUNLOQO P. CNND(RS) ; SET UNLORD COMMAND

HHHEHEOEOU

&4TTUP: nov

(SP) aasrncx-2

CLR
CLRB
MOV

MOVB
JSR
MOV

000001

177776

RTS
5 2 BRI

SBTTL

AR RERRRRRS

;MOVE RETURN PC ON STACK

csrnéx
RECOD
ERRCNT

:RE-INIT THE STACK POINTER
:CLEAR ERROR RECOVERY FLAGS
:CLEAR RETRY ERROR COUNT

' RETURN

$PARM

SET PARAM BLK ADRS

sSUBCLhP cnnotns) SET SUBSYSTEM CLERR CMND
RVCAL
CLt R THE SUBSYSTEM
spho J#PS
'RE-ESTRBLISH PRIORITY O

003 0

R N RN ERERRELRERERRRRAEER
R AR

CHKITR - CHECK CURRENT TEST ITERATION NUMBER

; #THIS SUBROUTINE LOADS THE

:%#TEST INTO STIMES,

ITERATION NUMBER FOR THE CURRENT

AND CHECKS IT TO DETERMINE IF THIS TEST

; #SHOULD BE RUN. IF ITERATION NO. = O, THE SUBROUTINE RETURNS

(%70 THE STORED PC (AND THE TEST WILL BE SKIPPED). IF IT IS
{%¥NOT
0, THE RETURN IS MADE TO PC+2, AND THE TEST WILL
:¥BE RUN. HOWEVER, ON THE FIRST PASS (QUICK VERIFY) OF A RUN

CZR6ENDO RKE11-06 SS VERIF 2
CZRBEND.P11
10-JAN-78 10:0S

J1l2

MACY1]l 30A(1052)
10-JAN-78
12:02 PAGE 153
CHKITR - CHECK CURRENT TEST ITERATION NUMBER

;ggg

; #WHICH STARTED AT ADRS 200,

7667

033740

010146

7669
7670
7671
7672
7673
7674

033750
033754
033756
033762
033764
033770

105737
105737
001007
00S737
001004

7668

7675
7676
7677
7678
7679
7680
7681
7682
7683

;ggg

033742

033772
034000
034002
034006
(034010
034012
034020
034022
034030
034032

112737

001006

012737
000410
113701
005301
CO6301
016137
001403
062766
012601

000144

00313S
003116

001115

CHKITR:

001304

001102

3%:

001304

000004

000002

189:
23:

7683
76E8

TSTB
1STB
BNE
TST
BNE

DULACS
33
MOFLAG
43
$PARSS
43

MOV
BR
MOVB
OEC
ASL
MOV
BEQ
ADD
MOV

4$:

005630

000207

R1,-(SP?

MOVB

BNE

001326
000001

MOV

RTS

SEQ 3J182

ALL TESTS WILL BE RUN ONCE.

#100. , SERMAX

;SAVE Rl

SET MAX ERROR CNT TO 100 FOR S$SCOPE

SEE IF DURL-ACCESS FLAG SET
B IF YES
SEE IF 200 START
BR IF NOT
SEE IF FIRST PRSS
BR IF NOT

#],STIMES
SET UP FOR 1 ITERATION
1%
GO RUN DUAL-ACCESS TEST
$TSTNM,R1
GET CURRENT TEST NUMBER
R1
DECREMENT By 1
R1
:DOUBLE IT, TO GET TEST LIST INDEX
TSTLST(R1), STIMES-LOAD ITERATION NUMBER
23
Bfi IF TEST SHOULD BE SKIPPED
84, 2(SP)
RDJUST RETURN PC TO RUN THIS TEST
(SPY+,R1
:RESTORE Rl
PC
,RETURN

**ill!!l*lll!llll!!illlll!l!llll!ll!ll**¥llill!llll!!{liiill*il

R STRING OF KBD INPUT CHARS
RDCHRS - REARD

7689

SBTTL

7691

!CHRRRCTERS AT THE KBD

7693
7694

: #RUB-0UT AND (}u) FERTURES ARE PROVIDED.
lIHHEDIRTELY FOLLOWING THE SUBROUTINE CALL,

7690

; #THIS SUBROUTINE READS
A _STRING OF UP TQ EIGHTY INPUT

7692

'¥THEM IN BUFFO,

7695

TERMINRTED BY (CR>,

RAND PLRCES

TERMINATED BYA NULL (Q) BYTE.

THREE SPECIAL

lRETURN ADDRESSES MUST BE LISTED: THE FIRS} RETURN IS

7696

*TQKEN IF (¢C) IS TYPED,

THE SECOND IS TRKEN IF (tZ) IS

7697

*TYPED

;938

iggRTQOEIFICflTION IF SELECTED, AND THEN THE (tG) RETURN

7698

AND THE THIRD 18 TAKEN IF (tU) OR INVALID INPUT IS TYPED.

iIF (t4) 1S TYPED, THE SOFTWARE SWITCH REGISTER IS OPENED
%

3?85

lIHE BUMBER OF INPUT CHRARRACTERS IN THE BUFFER IS RETURNED

7703

7704
7708
7706
7707

;%
;%
I
¥

;;?g

Dy RNRENMNIMINMIN I

7708

034034

7713
7714
7715

034036
034040
034042

010246
005000
005001

034044

104406

7716

7717

7718

°719

7720

JSR
PC, RDCHRS
(CONTROL-C RETURN ADDRESS>
(CONTROL-Z RETURN RADDRESS>
«CONTROL-U OR ERROR RETURN RDDRESS>

7711

7712

CALL -

034034

034046
034050

RDCHRS:

010146

MOV

R1,-(SP

MOV
CLR
CLR

RE (SP
RG’
R1

:READ A CHARACTER

2%:

112602
1122702

RETURN

000003

;CHECK

RDCHR

MOVB

(SP)+,R2

cMPB

#003,R2

FOR

(tC)

NN NN

IR NN R

R EAR R

;SAVE Rl

ERR R R

SRVE R2
INITIRLIZE CHARACTER COQUNT
INITIRLIZE RUB-OUT INDICATOR
:RERD A CHARACTER

GET CHARRCTER INTO R2
:SEE

(tC)

TYPED

CZRENDO RKB11/06 SS VERIF 2
10-JAN-78 10:05
CZR6ND. P11
7721

034054
034070

001006
104401
017666
000se3

013246
000004

122702

000032

034072
034076
034100
034104
o341le

062766
000763

03411y
034120
Q34122
Q34126
034134

122702
001006
104401
062766
000752

00002S

034136
034142
034144
034150
034154

122702
00100S
104401
004737
000764

000007

034156
o34162
034164
034166
034170
B3417c
034174
034176
034202
034206
034210
034216
o34ee2
034eey
034226
034230
034234

122702

000177

005701
001403
104401
005001

034236
034242

122702
001426

000015

034244
034250
034254
034260

005037
110237
104401

00SS34
005534
005534
00sze4

013253
000002

013265
000co4

MACY1l

BNE

000004

78:

ADD
BR

&a 4(SP)

(tU)

CMPB

CNTRLZ

#025S, R2

118:
005S34

:SEE IF ($2) TYPED

'BR IF NOT (t2)

YECHO (12)

IMAKE OLD PC POINT TO NEXT RETURN RDR.
'BR TO TRKE ($2) EXIT
:SEE IF (tU) TYPED

ADD
BR

hq 4(SP)

:MAKE OLD PC POINT TO NEXT RETURN ADDR.
:BR TO TAKE (tU) EXIT

TYPE

(1G)

CMPB

BNE

CNTRLU

#007,R2

TYPE
JSR
BR

CNTRLG
AC, GTSWRG

CMPB

8177, Re

(DELETE)

"ECHO

(tU

sSEE IF (fc) TYPED

:BR xr NOT

(4G)

SECHO (1G)
OPEN sorrunne SWITCH REG. FOR CHANGE
STAKE (tU) RETURN
sSEE IF RUB-OUT (DEL) TYPED

:BR_IF NOT RUB-OUT
*CHECK THE CHARACTER COUNT
'BR_IF COUNT
= 0
'CHECK THE RUB-OUT INDICATOR
'BR IF WE MAD A PREVIOUS RUB-OUT

BNE
TST
BEQ
TST
BNE

1ws
RO
23
R1
118

TYPE
CLR
DEC
MOVB
TYPE
BR

BKSLSH
:TYPE A BACK-SLASH
USE_SCRATCH uono ron TEHP BUFFER
4CRACH
:DECREMENT COUNT
RO
BUFFO(RO),SCRACH’ : GET LAST CHAR. INTO BUFFER
SCRACH
;£CHO CHARACTER TO BE DELETED
GO RERD ANOTHER CHARACTER
23

'SET RUB-OUT Inoxcnro

757
BEQ

R1
168

:CHECK THE RUB-OUT INDICATOR
"BR IF INDICATOR IS NOT SET

CL R

BKSLSH

:CHECK FOR CRRRIAGE RETURN
#015,R
\
CMPB

ies :

(¢C)

SECHO (1C)
:PUT RETURN ADDRESS ON STACK
:BR TO TAKE EXIT

‘BR IF NOT (tw)

TYPE

013303

;BR IF NOT

INC

BEQ

18§

:HANDLE POSSIBLE DIGIT

CLR

00SeeH

SEQ@ 0183

BNE

. CHECK FOR RUB-OUT

148:

001315
000000
00Se6Y
001314

#032,R2

.CHECK FOR

8s:

CNTRLC
a4 (SP), 4 (SP)
248

BNE

.CHECK FOR

&s:
000004

(12)

CMPB

TYPE

000004

013272
031126

005264
005534

TYPE
MOV
BR

. CHECK FOR

013303
00S534

104401
000703

38:
(TY

000120

034306
034312
034316

Kla

10-JAN-78
12:02
PAGE 1S4
30A(10S2)
RDCHRS -~ RERD A STRING OF KBO INPUT CHARS

SCRACH

MOVB
TYPE
MOVB
INC
CMP
BNE
TYPE

R2, SCRACH
SERACH
k2, BUFFO(RD)
RG
%80. ,RO
as
RLF

TYPE

,BUFFO

MOVB
TYPE

B8R

ho BUFFO(RO)
" $QUES

rd3

*TYPE R_BACK-SLASH
:CLERR THE RUB-OUT INDICATOR

:SEE_IF (CR> TYPED

'BR IF (CR>

sUSE SCRATCH WORD FOR TEMP. BUFFER

'GET THIS CHARARCTER INTO BUFFER
'ECHO THE CHARACTER TYPED
*PUT CHARACTER INTO BUFFER
INCREMENT CHARRACTER COUNTER
'SEE IF TOO MANY CHARACTERS TYPED
:BR _IF NOT T0O nnnv
! TYPE <CR> AND <L

PUT TERMINATING NULL INTO BUFFER
:ECHO INPUT STRI c

'TYPE (7> <CR>, <L

‘TAKE ERROR Extrt FROM RDCHRS

CZRENDO RKB11-06 SS VERIF 2
CZREND.PL1
10-JAN-78 10:0S
7777

034320

104401

001315

7779
7780
7781

034332
034340
034342

062766
012602
012601

000006

L12

MACY11l 30A(10S2)
10-JAN-78
12:02 PAGE 155
ROCHRS - READ A STRING OF KBD INPUT CHARS

77?78 034324 112760 000000 00S264

;;gg

034344

000004

199%:

248 :

000207

TYPE

MOVB
ADD
MOV
MOV

RTS

7786

SEQ 0154

50 BUFFO (RO}

$CRLF

;sTYPE <CR>,

<LF>

%6 4(SP)
(SP)+ Re
(SP)+ R1

FIX UP RETURN ARDDRESS
REST RE R2
RESTORE R1

SUBROUTINE EXIT

PUT TERMINATING NULL INTO BUFFER

< 363636 36 36 36 36 36 3% 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 96 36 36 36 36 36 36 36 96 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 3 36 3 3 36 3 3 36 3 3 2 % %

7787

éBTTL

7730

lYYYYYY IS THE NUMBER OF ITERATIONS FOR THAT TEST.

7788

7789

l CALL -

;;gg

7808

7810

WITH NO <CR>

JSR

"PC, TYPTST

ll****lilll***li*liillll*!*l!ll!*!lilii!*il!!!lll**i*!l*l**!**!
034346

104401

034352
034354
034356
oazggo

Q010146
006216
00S216
109383

034370
034374
034376
Q34377

104401
0l6l46
104403
006
000

7802
83436
7803 034364

7804
7805
7806
7807

YYYyyy”,

lRl MUST CONTRIN THE INDEX INTO THE TEST LIST FOR
*THE CURRENT TEST

7793

7796

*XX

‘%0R (LF>. XX IS THE NUMBER OF THE CURRENT TEST AND

7791
77932

77397
7798
7799
;gg?

TYPTST - TYPE CURRENT TEST AND ITERATION NUMBER

; #THIS SUBROUTINE TYPES :

034400

013314

TYPTST:

000 013307

TYPE

000207

TYPE
MOV
TYPOS
.BYTE
.BYTE

TSTLST(Rl),-(SP) :PUT CURRENT ITERATION No ONTO STACK
TYPE ITERRTION NO. IN OCTA
)
TYPE 6 DIGITS
0
SUPPRESS LERDING ZEROS

RTS

7811

; TYPE R SPACE

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

.BYTE

005630

SPACE!

MOV
ASR
INC
TEP?E

S SPRCEbB

PUT6"05 ONTO STACK
:DIVIDE BY 2
INCRENENT TO GET TEST NO.
TYPE TEST NO. IN OCTAL

SUPSRESg
LEROING ZEROS
TYPE& SPACES

s RETURN

o o J036 36 206 3 36 36 36 36 36 36 36 36 38 36 36 36 38 38 36 6 36 36 3636 36 36 96 36 36 36 36 336 36 36 36 36 36 36 36 36 36 36 3 36 36 36 36 36 36 36 36 3 3 3 2 X 3 X X %

7812

'8BTTL

7814
7815

!NHERE XX 1S THE CURRENT PRRRMETER MNEMONIC, RND
iYYYYYYYY IS 17S VALUE IN OCTAL DIGITS, NETR LERDING

7813

TYPPRM - TYPE CURRENT PRRRHE ER

; #THIS SUBROQUTINE TYPES THE
L

XX=YYYYYYYY

' #ZERQS SUPPRESSED NOTE: <CR> AND <LF> ARE NOT DONE.

7816

7817

'l N ENTRY,

RI MUST CONTRIN THE INDEX INTO THE

7818

iPRRRMETER TRBLES, FOR_THE CURRENT PRARAMETER.

;SS?

il*i**liiii*ii{l{li;!;45iii;iil{ll;il};ii*l{i*iiii**l*i****;***

7818

,i CALL

7822

034402

016137

006010

7825
7826
7827
7828
7829
7830
7831
7832

034422
034426
034434
034436
034444
Q34450
(C344S4
034460

005037
022761
001003
016137
(012746
004737
(004737

005472
040515

006010

00S6be
005470

005472

7823

034410

104401

013316

o
o
[w)

o
~N

7824 (034414 016137 00Se60 00S470
055436
0557%2

JSR'

PC, TYPPRM

TYPPRM:

MOV

PRMNEM(RI) PRMBUF

1%:

CLR
CMP
BNE
MOV
MOV
JSR
JSR
RTS

HIGOCTY
CE HIGH BINARY BITS
#°MA, PRMNEM(R]) SEE IF PRARAMETER IS (MR)
19
:BR IF NOT (MA)
PRMLST+2(R1) HIGbCT;PUT HI BITS OF PARAM. INTO HIGOCT
#LOWOCT, - (5P}
,P ' ADDRESS OF BINARY VALUE ON STACK
PC, 2830820
; CONVERT BINARY TO OCTAL RSCII
PC J#BSUPRS
TYPE YYYYYYYY, SUPPRESSING LERDING 0’S
PC’
: RETURN

TYPE

MOV

MBUF

PUT HNEHONIC INTO OUTPUT BUFFER

T4PE~

PRMLST(RI) LONOCT PUT Lou 8ITS OF PRRRM INTO LOWICT

CZReNDO RK&11-06 SS VERIF 2
10-JAN-78 10:05
CZREND.P11

MACY11

30A(10S2)
10-JAN-78
12:02
PAGE
TYPPRM - TYPE CURRENT PARAMETER

156

SEQ 0155

s B 30363630 36 36 36 3 36 36 36 3t 36 36 36 36 36 36 3 3 36 36 06 3 36 3 36 36 36 36 3 3 96 3 3 36 3 26 3 3 3 36 36 36 3 36 36 3 3 3 3 3 3 3 3 3 2 2 3 2 % 3

égr
HI§

TYPPAT ~ TYPE CURRENT WORD OF

SUBROUTINE

TYPE

INE

WORD

DATA PATTERN, 1S
XX =

" %WHERE XX IS THE NUMBER OF THE CURRENT KORD o
*UEER DEFINSS PRTTE

YYYYYY,

S, AND YYYYYY_IS & 6? ?

MUST CONTAIN THE INDEX OF THE CURRENT
#0ONENfRY
;uono
IN fne PATTERN 1S TRBLE.
T 9 GITS.

AND <LF>

YPED.

TYPPAT

CAL

<(CR>

ll***il!*iii!lllll!l!l*lli!*iillillil!lillllil!l!*l!ll*illlil**
TYPPAT:

034462
p34462
034466

034470
034472
03447y
Q34475
034476
o34502
034506
034510
034511
o34s1e

0133ee

TYPE

R1,-(5P)
(SP)

BYTE
BYTE

@
1

TYPOS

TYPE

013330
006776

MOV
TYPOS
.BYTE
.BYTE
RTS

0
000207

WORDSP

MOV
SR

: TYPE "WORD "

*PUT INDEX ONTO STRCK
:DIVIDE BY TWO FOR WORD NO.
:GO TYPE WORD NUMBER

:DIGIT COUNT = 2 FOR TYPOC
;TELL JYPOS TO TYPE LERDING ZEROS

EQUALS

: TYPE"

PATIS(R1),-(SP):GET BINARY VALUE or THIS WORD
:TYPE VALUE IN OCTAL
&
:TYPE 6 DIGITS
1
'TYPE LEADING ZEROS
' RETURN
PC

lllli!ilii!ll!llllllll*lllllllll!llli!lll!**ll!llll!illiil*l*il

*09*3 32?728
gg¥HE BEOPENED S R AND
QR CONTROLS
NOT Y2ER-0E
THtIR
NEW V
gne;x #g g FOR vnb EITY AND
N 15 TABLE (PAT15).
s HS & ogags IN
*&gn T
OPE

NSWER

REQU ST FORA PATTERN WORD

:#WITH EXCLAMATION POINT <- (CR), THE SUBROUTINE
' sPROPRGATES THE LAST WORD TYPED INTO ALL REMAINING
: #WORDS OF THE PflTTERN 15 TABLE.
,& CALL
JSR
PC,MODP1S

uu*uuun“u"uuhnnu!uuuuuuu*nnnnuuuu

MODPLS-

034514
034514
p34516
034520

MOV

034522
034530

052120

006010

034532
034540

100000

005700

034542

MOV

104401

010730

RO, -(SP)

R1,-(5P)
R2’-(S P)
MOV
:SEE IF PARAMETER 1S PT
CMP
BNE

“PT,PRHNEH(RI)

ces

;SEE IF PATTERN 15 IS SPECIFIED
¥8IT1S,PT
BIT

: SAVE RO

SAVE RI

!SAVE R2
;SEE_IF CURRENT PARAMETER IS (PT)

:BR IF NOT (PT)

:SEE_IF PATTERN 15 SPECIFIED

'BR IF NOT SPECIFIED
223
BEQ
ages IF PATTERN IS SHOULD BE MODIFIED
TYPE

,MOFY15

:ASK WHETHER PATTERN 1S SHOULD BE MODIFIED

CZR&NDO RKSII/O& SS VERIF 2
10-JAN-78 10:0S
CZREND.P
034546

004737
035020

034034

000115

034604

000756

034606

104401
005001
004737
104401
104401

034624
034630

004737
035020

JSR

PC,RDCHRS

TST

BEQ

24%
268
8%
BEQ
CMP

00524

TYPE
TYPE
BR

00SeeM
001314

-MODIFY PATTERN

ts:

034462
013314

013334
034034

75T

108:

000002
0co0o40
000041

005264

000041

005263

12%:

000
=g

034774

J34776
035002

104401

:READ RESPONSE

1 (fC) RETURN ADDRESS
' ($Z) RETURN RDDRESS
($U) OR ERROR RETURN RDDRESS
*SEE IF NULL INPUT

;BR_IF_MODIFICATION NOT REQUESTED
!SEE IF (M) TYPED

‘BR IF MODIFICATION REQUESTED
*ECHO BRD INPUT

:GO ASK AGAIN
-TYPE "MODIFY PATTERN 15"
,INITIALIZE WORD INDEX
: TYPE CURRENT WORD AND VALUE
‘TYPEA SPACE
: TYPE RSTERISK AND SPACE

:READ NEW DATA PATTERN WORD
*(fC) RETURN ADDRESS FOR RDCHRS
:(#2) RETURN ADDRESS FOR RDCHR

:(tU) OR ERROR RETURN ADDR.
'SEE IF RANY INPUT

FOR RDCHRS

12%
#2 Rl

'BR IF ANY INPUT
" INCREMENT WORD INDEX

22%

*BR IF DONE,

#'' BUFFD
16$
H]

'SEc IF (')
TYPED
:BR 70 PROPRGRTE CURRENT VALUE
SINIT. (') INDICATOR

saé ,R1

:SEE IF ALL DONE

TO RETURN

CHMPB

s" ,BUFFO-1(RO) ;SEE IF Lnsr cuna IN BUF IS ()

CMP
BEQ
CLR

4§’

s CONTINUE uiTH NEXT WORD
:BR_IF NOT

CLRB
DEC
INC

surro 1(RO)
RO
R2

: INSERT TERHINRTOR BYTE
:DECREMENT CHAR COUNT
'SET (') INDICATOR

BLT

20$

;BR_IF TOO MANY

CMP

%6, RO

$BUFFN, - (SP)

:SEE HOW MANY CHRRS NOW

:GET BUF,

ADDR.

ON STACK FOR OCTBIN

"CHECK DIGITS AND CONVERT T0 BINARY
'ERROR RETURN RDDRESS FOR OCTBIN
(SP)+,RO
'GET BINARY VALUE
TST
sHI0Ct
‘SEE IF VALUE EXCEEDS 16 BITS
'BR_TO ECHO BRD INPUT
208
BNE
MOV
RO, PAT1S(R1)
"PUT NEW WORD VALUE INTO TABLE
TST
Re’
: SEE xr (') WAS TYPED
(*) WAS NOT TYPED
:BR
108
BEQ
PROPAGATE CURRENT WORD TO END OF PRTTERN 15 TARBLE
JSR
20%
MOV

054632
006776

i6s:

000036

00S264
001314

. BUFFQ
' $QUES
43

SEQ 01586

MOV

005264
0S4500

006776
000002

CMP

BNE
148

000006

034754
034760
034762
034770

BNE
ADD

BEG

00Sese3

034752

22%
%' M, BUFFO

TYPE
SELP1S
R1
CLR
8s:
JSR
PC, TYPPAT
TYPE
, SPACEL
TYPE
’ PROMPT
:RERD AND CHECK INPUT, IF ANY
JSR
PC, ROLHRS
248
263

010706

o—-0On
o=

7889

N1le

MACY1l 30A(10S2)
10-JAN-78
12:02
PAGE 157
MODP15 - MODIFY USER-DEFINED PATTERN 1S

007000

CMP

BEQ

#30.,R1

22%

.sss IF ALL DONE YET
BR IF DONE

MOV
ADD
BR

PAT1S(RL), Pnrls+é(nx> . PROPAGATE TO NEXT WORD
82, R1
REMENT WORD INDEX
168
LOOP UNTIL DONE

TYPE

" $QUES

ECHO BRD

50§

PC,OC IBIN

INPUT

TYPE

,BUFFD

:ECHO BRD INPUT

:TYPE <?> AND <CR>,<LF>

CZRENDO RKB11/06 SS VERIF 2

CZREND.P11

10-JAN-78 10:0S

MACY!1 309(1052)

035006

000702

7947
7948
7949
7950

035010
03s012
(03S0I14
035016

012602
0leell
012600
000207

7952
7953

035020
035026

012766
000770

014434

000006

248 :

7955

035030

012766

016020

000006

26$:

7951

7954

;ggg

035036

000764

12:02

PRAGE 158

SEQ J157

MODP1S - MODIFY USER-DEFINED PRTTERN 1S

7945
7946

Bl3

10-JAN-78

B8R

;BR TO ASK ARGARIN

MOV
MOV
MOV
RTS

(SP)+,R2
(SP)+,R]
(SP)+,R0O
PC

;RESTORE R2
RESTORE R1
RESTORE RO
RETURN

MOV
BR

$DRVTST,B(SP)
223

;PC FOR ($C) RETURN
BR TO RETURN

#ASKMDE ,6(SP)

;PC FOR (%2) RETURN

NORMAL RETURN

228 :

7960

- ($C)

RETURN

: (42)

RETURN

Y S

7961

QBTTL

7962

MOV

228
I

BR TO RETURN

I I

I Y

I I 22 2222222222222

CHKPRM - CHECK VALUE OF INPUT PARAMETER

; #THIS SUBROUTINE CHECKS THE CONTENTS OF LOWOCT AND

7963
7964
7965
7966
7967
7968
7969
7970

*HIGOCT (IF 32-BIT VALUE) AGRINST LOWER AND
UPPER
lLIHITS FOR THE CURRENT PRRAMETER.
THE PARAMETER TABLE
*INDEX FOR THE CURRENT PARAMETER MUST BE PRSSED
{TO CHKPRM IN R1 ON ENTRY. IF THE PARAMETER VRLUE
!IS LEGAL, IT IS ENTERED INTO THE PRRRHETER RABLE
l(PRMLST) IF NOT, A RETURN IS MADE TO THE ADDR. FOL..OWING
iTHE CALL TO CHKPRM. IF THE PARAMETER HAS A 2-WORD
*VQLUE (32 BITS) R1 IS INCREMENTED BY 2 BEFORE RETURN.

7972

;g;g

$ 3

7971

;% CALL

7973

7976

035040

104407

Q35042
035044
035046
035054
035056
035062
035064
035070

010102
006302
022761
001422
005737
001403
017616
000475

005472

7986
7987

035072

035100

023762

005470

7989
7990

035110

101365

035112

013761

005470

005660

035122

032737

000001

005470

103771

040515

006010

000000
005734

7988 035102 023762 005470 005736
7991

7992

79383
7994
7995

035120

(035130

000457
0013SS

7996 035132 023762 005472 005736

JSR

PC,CHKPRM

¢ERROR RETURN ADDRESS>

RETURN

00600 BT

SAVREG

I B

NN RN AR R R RRR

; SAVE RO-RS

MOV
Rl,R2
GET COPY OF INDEX
ASL
Re
00 BLE IT
cMP
8”MA, PRMNEM(R1) SEE IF PARAMETER IS (MR)
BEQ
203
BR IF (MRA)
TST
HIGOCT
SEE IF HIGH BITS= O
BEQ
189
BR IF ZERO
169%:
MOV
d(SP), (SP)
GET ERROR RETURN PC
BR
303
:GO TO RETURN
.CHECK VALIDITY OF 16-BIT PARAMEYER VALUE

18%:

CMP

BLO

LOWOCT, PRMLIH(REJ
168

:SEE IF INPUT VALUE IS TOO SMALL
IF

INPUT VALUE TOO SMALL

CMP

LOWOCT, PRMLIM+2(R2) :SEE IF INPUT VALUE IS TOO LARGE

MOV

LOWOCT,PRMLST(R1)

8NE

CMP

HIGOCT PRMLIH+2(R2) :SEE IF HIGH WORD TOO SMALL

BHI
168
- BR 1
F INPUT VALUE IS TOO LARGE
;UPDATE 16-BIT PARAMETER VALUE IN LIS
BR

PUT NEW PRRAMETER VALUE

288

BR TO RETURN

16%

:CHECK VALIDITY
OF
32-8BIT PRRRMETER
VALUE
BIT
$BITO,LOWOCT
;SEE IF MA IS 00D

20S:

(035142

001004

BNE

243

8000

035152

103744

8L0

16%

,BR IF LOW WORD iS TOO SMALL

CMP

169

IS ODD

035140

7939 035144 (023762 00S470 005734

BLO

IF MR

INTO LIST

7997
7998

103751

CHKPRM:

7977
7978
7979
7980
7981
7982
7983
7984
7985

R }F HIGH WORD IS TOO SMALL
IF HIGH WORD NOT EQUAL

TO LOW LIMIT

LOWOCT, PRMLIM(R25 :SEE IF LOW WORD IS T0O SMALL

CZREND.P11

10-JAN-78 10:05

cznsnoo RK611/06 ss veaxr 2

8001

035154

023762

00S472

gggg

035174
035176
035204

101333
013761
013761

005470

8013
8014
8015
9019
801
8018
9013

035226
035232
035236
8 ES”
46
035252
oasesg

010137
012746
004737
4737
104401
0e2766
osszxs

003174
003172
055436
055752
001315
000002
000002

00S472

10 SSEéxg
1 ?8q481
4737 8184%5
035270
8811
8012 035222 010037 003172

8357 B32skd 483340

000014

013700

005574

035304
035306

005601
163701

005602

8035

035314

000241

ggge

ogsaaa

gggggg

8041

035332

001403

8043

03533e

012701

8036
8037

804

go42
gg:g

;SEE ér HIGH ugno
1S T00 BIG

By
CMP

i8R 4E HICHOHSTMR0TO%BAE ro uppER LiImit
A8}
LOWOCT, PRnL1n+q(ha) -SEE IF LOW WORD IS TOO LARGE

MOV

INTO LIST
HIGOCT PRML T+ 5 3 19 ?R?

MOV
MOV
JSR
JSR
TYPE
ADD
gggaec

R1.SUMHI1
#SUMLOL,-(SP)
;PUT POINTER ON STACK
PC, 80820
CONV‘RT T6 OCTAL
PE gsupns
‘TYPE 1T
¢
STYPE <CR>,<LF>
k2, 14(sP)
' INCREMENT 'RI INDEX
#2, (SP) ;GET NORfiQE Rgtgngopgs

; COMPUTE {YPE
ggo TYPEc"nxugbko
Ro'CgQ Rx
NT
NR
5
?vps
ug
3oun*
MOV
ho SUMLOI
ggg:

RT3 6 pe

i RETURN

inxunoc - GET MAX WORD COUNT FOR CURRENT MEM LIMITS AND CURRENT MA,
:%AND LEAVE THE WORD COUNT IN R1-RO. NO REGISTERS ARE SAVED.

035270

334

HIGOCT,PRMLIM+6(R2)

o 36963636 36 36 36 3 36 36 36 36 3 36 36 36 36 36 3 36 36 36 3 36 36 36 3 3 36 36 36 3 36 36 38 36 3 36 36 36 36 36 36 36 3636 36 36 3¢ 3 36 3 36 3 36 36 3 3 3 3 3 % %

8026
8027

8032
8033

SEQ 0158

005660

80eS

8030
8631

BHI
168
1F LOW WORD IS TOO LARGE
UPDATE
32-BIT
PAPAMETER
VALUE
xfl
26§:
MOV
LOWGCT, PRHLST(RI) ur Lou WORD INTO LIST

005662

czp

:02_

24%:

8022
8023
8024

8028
8029

10-JAN-78

005742

B321B8 AB1AdR
8985 035166
023762 00S470 005740

8004
800S
800
8007

Cl3

CHKPRM -~ CHECK VALUE 33 9npu¢ SSR&nETER

MACY1l 30A(10S2)

035274
035300

035312

035316
035320

335358
035334

035342

013701
163700

100413
6001
6000

005000
000207

005576
005600

o 36366 36 36 36 36 36 36 96 36 36 36 36 36 3 36 36 36 3 36 36 3 36 36 36 36 3 3 36 36 3 36 3 36 36 3 3 3 3 3 3 3 3 3 3% 3 3 3 3 J 3 3% 3 3 3 3 3 3% 3 2 2 %
fKWRDC: MOV
MAHILM, RO
GET LO BITS OF MEM LIM

MOV
suB

MAHILM$2, R1
MA, K

:HI BITS OF MEM LIM
!SUBTRACT MA FROM MAHILM

BMI

27%

: IF NEGATIVE, RETURN

SBC
SUB

cLC
000001

R1
RO

TST

MOV

%1,R1

288

8046
8047

CLR
27%:

:DIVIDE BY 2 TO GET WORDS

ROR
ROR

BEQ
000001

R1
MA+2,R1

RTS

a{,ao

: INCREMENT BY 1 WORD

27%

;BR IF WORD COUNT < 65,536 DEC

RO
PC

*MAKE WORD COUNT= 65,536
: RETURN

8048

; ll!lllillllll!llll'll»!!«ll*lll!llllll*l!llll*ll*ll!l*ll*lli**ll!!

8050

;¥THIS SUBROUTINE TYPES “DRIVE SER. NO.

8049

"4BTTL

8051

80Se

8053

8054

DRVSER - TYPE DRIVE SERIAL NUMBER (LOW 3 DIGITS)

' ¥ZEROS SUPPRESSED.
035344
035346

104407

004737

XXX (IN DECIMAL), WITH LEADING

!ll!!lll!lil!llllllll!!l*l!i!ll*llllll!*lll!ll!*lll*l!*!ll!i*li

032310

8055 035352 112765 000141 000001
B80S 035360 004737 042542

BAVSER: SAVREG
JSR

MOVB
JSR

NITSS

,snvs RO-RS

CLEAR S.S. AND PARAMETERS

snbsrnr CMND(RS) :SET READ STATUS COMMAND
PC, DRVCAL
READ STATUS OF THIS DRIVE

CZRENDO RKB11-06 SS VERIF 2
CZRBND.P11
10-JAN-78 10:0S

8057
8058

035364
035370

T
03S4

104401
104401

TYPE
TYPE

MOV

888830

MOV

832453

03S4ee
03s4eu

052700
110024
005303
001364
105014
0Q4737
104401

104410
000207

177760
000060

055752
001315

10-JAN-78

PRGE

160

SEQ@ 0159

DRVSER - TYPE DRIVE SERIAL NUMBER (LOW 3 DIGITS)

011135
011151

03S414

035434
035440
035442
035444
035446
0354S0
035454
035460
035462

30AR(10S2)

000003

EE
832458

MACY1l

D13

12:02

ROL
ROL
ROL
ROL
ROL

; TYPE “DRIVETM

,DRIV
SERNM

) +(RS) R1

TYPE * SER. NO. *
SE A" STATYS BYTE #é

oa R3

:STORE IT ON STQCK FOR $SUPRS
:INIT CHAR_COUN
PINITIALIZE BIT POSITIONS

aso

<SP5

Rl
R1
R1
R1

Ry
BIC

Rir
o1?7950,Ro

MOVB

RO, tRY)+

BIS

DEC
BHE
CLRB
JSR

TYPE

RESREG
15

#'0, RO

R3
4§
(R4)
PC, J#$SUPRS

,$LRLF

T ADDR OF

CHAR

BUFFER

;GET NEXT 4 BITS

NORK%N
LERR ALL
BUT

COPY
LOW 4 BITS

CONVERT DIGIT TO _RSCII

:PUT ASCII DIGIT INTO CHAR BUFFER
:DECREMENT CHAR COUNT
'BR IF _NOT 3 CHRRS YET
; INSERT NULL TERMINATOR

"TYPE DRIVE SER. NUMBER
,TYPE

<CR>

AND

SESGORE RG-RS
‘

<LF>

CZR&ENDO RKE11-06 SS VERIF 2
CZREND.P11
10-JAN-78 10:0S

E1l3

MACY1l 30A(10S2)

10-JAN-78
12:02 PAGE 161
ORVSER - TYPE DRIVE SERIAL NUMBER (LOW 3 DIGITS)

8083

R 122211222122 222%3:1222223222222*X222222223222232232X222X2222222 2222 )

8084

'88TTL

8086

:#WITH LERDING ZEROS SUPPRESSED.

8085
8087

SEQ 0160

CRTSER - TYPE CARTRIDGE SERIAL NUMBER

:%THIS SUBROUTINE TYPES “CART. SER. NO.

XXXXXXXXXXX* (IN OCTAL),

llllI'llnlll«lI!illlllllllll!!lllll!llli!illlll!illll*ll!llill!}!l

8088

035464

004737

032310

AATSER: JSR

8092
8033
8094
8095
8096
8097
8098
8093

035504
035510
035516
035
035532
035540
035546
035552

105265
112765
013765
112765
012765
012765
004737
104401

000004
000i21
020040
000002
065660
177776
042542
Olll4e

BEQ
INCB
MOVE
MOV
MOVB
MOV
MOV
JSR
TYPE

ys
:BR xr 22 SECTORS
P.SECT(RS)
:IF 20 SECTORS, READ SECTOR 1
SRDDATAB.CMND(RE) :SET RERD COMMAND
LSTCYL,P.CYLN(RS) ;ssr ch = 632(0CT) /1456
8LSTTRK,P. TRCK(RS)
T TRACK
SRIBUF P BALO(RS) ;AET READ aurrsn ADDRESS
8-2,PQC(RS)
seT WORD COUNT TG READ 2 WORDS
PC, DRVCAL
:RERD SERIAL NO. IN BSF
,CART
TYPE
“CART
)

8102
8103
8104
gigg

035566
035572
035576
035602

004737
004737
104401
000207

055436
055752
001315

JSR
JSR
TYPE
RT:

PC, 3830820
PC’ a#SSUPRS
SLRLF
PC

8089
035470 142765 000020 000007
8090 035476 10S737 003125
8091 035502 001402

100

035556

104401

000001
000002
00000S
000010

PC, INITSS

BICB
7578

4$:

000012

011151

TYPE

8101 035562 012746 065660

snun

MOV

8108
81093

LERR S.S. AND PARAMETERS

88 CFMT,P. csxncns)
SET 22 SECTOR FORMAT
FORMAT
s CHE K THE ncrunL FORMAT

hnueur -(SP)

TYPE “SER. NO.

csr POINTER FOR $DB20

:CONVERT BINARY TO OCTAL
"TYPE CART. SERIAL NO. IN OCTAL
STYPE <CR> AND <LF>
! RETURN

Y2121 2222212222223 222:123222232:222::12:X122322222222JX2222 222 LT LS

8110

'&8TTL

S.ALL - STALL FOR ST UNIT STALL TIMES

8111

gll12

i%IF SWR BIT 8 =

8113

8l14

*15 EQUAL TO I, A Rnnoon STALL IS APPLIED.

ll*l!llllnll»*!i!!lll&illl!!lil!l!lllll!!lllll*llllll!l!i!i!li*ii

CALL -

gi ig
8117

035604

010046

8118
8] 9
gl120
8121
8122
8123

035606
035610
035616
035620
035624
035630

010146
032777
00I407
004737
013700
006200

8125

035634

000403

8133

035660

8124

126
8127
8128
8129
8130
8131
8132
8134
gigg
8137
8138

THIS sueaourxne STALLS FOR ST STALL TIMES

' %WHERE A STALL TIhE= 40°US, FOR AN "AVERAGETM CPU. IF BIT 8

035632

STALL:

000400
0S4634
054734

143322

006200

035636
035642
035644
035650
035652
035654
035656

013700
001406
012701
005301
001376
005300
001372

03Se6e
035664

012600
000207

012601

005502
000016

1%:
2%:
qg:

6%:

MOV

MOV
BIT
BEQ
JSR
MOV
ASR

JSR

PC,STALL

RO, - (SP)

R1-(SP)
oaivoe JSWR
PC SRAND
SLbNUM RO

;SAVE RO

:SAVE Rl
:APPLY RANDOM STALL ?
:BR IF NOT RANDOM
: GENERARTE PSEUDO-RANDOM NUMBER
IGET IT INTQ RO
:SCALE IT DOWN

ASR

MOV
BEQ
MOV
DEC
BNE
DEC
BNE

STALLS, RO
6%
$14.,Rl
R1
4g
RO
2%

GET REGUESTED NO. OF STALLS
'RETURN IF NO STALL REQUIRED
*SET CONSTANT FOR 40 US
: INNER LOOP COUNTER
: INNER LOOP BR
*GUTER LOOP COUNTER
:OUTER LOOP BR

MOV
RTS

(5P)+ RO
PC

*RESTORE RO
*RETURN

MOV

(S5P)+,R}

GO STALL WITH RANDOM NO.

:RESTORE Rl

CZRENDO RK611-06 SS VERIF 2

CZREND.P11

10-JAN-78 10:05

MACY11 309(1052)

STALL

00 D ad 00 €D 4D 0D 0D ADCD 0D D 00 00 G000 000D 4D GO A0 (D D 0 M

L WU—-OOVONOCNLWNL—OVONCN
LWN—ODVO NN LWNN-=OOO NN LWN—~OVONTCNLWN—O

OO D OOMMDIDODDAMDNNNNNNINNIYNNOOC oooooonninninunnnnnLL
L LLLrrr

H»fl-y»fl-»»o—n»o—whfl—wbfl-~u—whn—~»n—Hho-eEfigEgfigegfigegfigesfigegfieegfigggfigg

FL13

12:02_

_PAGE_162
- STALL FOR ST UNIT STALL TIMES

SEQ 0161

< 363636963636 36 36 36 36 36 3 36 36 38 36 06 06 36 06 30 0006 06 36 06 06 06 36 36 06 36 00 30 06 31 20 26 00 06 2 B B MM R

8139

000 00 D

10-JAN-78_

QBTTL

HHRIIIE AHRRRRRR

RNDRDR - RANDOM CYLINDER RDDRESS GENERATOR

; ¥THIS SUBROUTINE GENERATES A PSEUDO-RANDOM 3-BIT CYLINDER

! *QDDRESS, AND
LEAVES IT IN “CYLNDRTM.
;sueaouttne SRAND.
% CALL -

035666

004737

054634

035706
035714
035716
035724

023737
002003
043737
000207

020040
020042

035672
013737 054734 005504
035700 042737 177000 005504

005504
005504

IT REQUIRES THE SYSMAC

PC, RNDRDR

JSR

llilll*llll!!{!illliillllilllll!llll!l!!llll!!llilllllilllillii

AKDADR: JSR

MOV
BIC

23:
55

CMP
BGE
BIC
RTS

SRAND

:GENERATE 2 16-BIT RANDOM NUMBERS

LSTCYL,EYLNDR
2%
HOLD1,CYLNDR
PC

:SEE IF CYL IS TOO BIG
iBR IF CYL IS OK
:SCALE DOWN TO A VALID CYLINDER
'RETURN

sLbnun
CYLNDR :GET A RANDOM NUMBER
8177000, CYLNDR :SCALE IT TO 9 BITS

B 30360036 30 0000 06 036 06 00 30 00 00 6 00000 06 00 30 3006 36 3630 30 00 30 30 30 06 0 36 36 36 36 6 36 36 30 6 36 00 36 3030 3600 030 30 00 200 30 00 0 2 2

i LODSEC - THIS SUBROUTINE LOADS THE CONTENTS OF RO INTO ALL
}%256(DEC) WORDS OF THE DATA BUFFER (RWBUF)
035726

035730
035734
035736
035742
035744
035746

104407

012701
010021
020127
001374
104410

( SOSEC: SAVREG

065660
066660

2s:

000207

MOV
MOV
CMP
BNE
RESREG

RTS

SRWBUF R1
RO, (R13+
R1,SRWBUF+512.
2§’
PC

s T E T E R

; SAVE RO-RS

2R R

R F R R R 22 2

:GET ADDRESS OF DATA BUF INTO Rl
'PUT WORD INTO BUFFER
;SEE_IF 256 WORDS WRITTEN YET
:BR IF NOT DONE YET
:RESTORE RO-RS

'RETURN

o 363696 3 3 3 36 3 36 35 36 36 36 3 36 36 36 3 3 36 3 36 3 36 3 36 3 3 3 3 36 3 36 36 3 36 36 36 36 36 36 3 36 3 36 W 3 3 3 3 3 3 3 3 3 3 3 I 3% 3 3% ¥ %

i TRKCHK - THIS suenouvxns ooss A WRITE-CHECK OF SECTOR FS ON CYL
"¥FC, FOR EACH or TRACKS O
AND 2. THE DATA IS COMPARED TO THE

% TRACK NUMBER+ 100(OCT) ton THAT PARTICULAR BLOCK OF DATA WRITTEN.

' ¥THE PRRAMETER BLOCK MUST BE PRE-LOADED WITH THE PROPER PARAMETERS.

035750

104407

o 3636 3 36 36 36 3 35 96 36 3 36 36 36 36 36 3 36 3 3 3 3% 3 36 3 36 3 3 36 3 3 36 36 36 3 36 9 3% 36 3 3 36 3 3 3 3 3 3¢ 3 3 3 3 3 3 3 3 3% I % ¥ ¥ 3% %

035752
035756

016546
105065

00000Y
00000S

035766

062700

000100

036014
036022
036024
036030

122765
001357
012665
104410

000003
000004

035762
035772

}AKCHK: SAVREG

bg:

035726

035776 112765 000131 00000!
036004 004737 042542
036010 105265 00000S
036032

000207

s SAVE RO-RS

P. SECT(RS) -(SP)';SAVE TRACK AND SECTOR PARAMETERS
P.TRCK(RS)
.ACEAR THE TRACK NO.

LJAD THE DATA eurren uxrn THE cbnneur TRACK NO.

116500 00000S

004737

MOV
CLRB

000005

MOVB

P.TRCK(RS),RO

JSR

LODSEC

ADD

a1oo RO

;GET TRACK NO. INTO RO

:ADD 100(0CT) TO TRACK NO.

LORD DATA BUF WITH TRACK NO. + 100(0CT)»

MOVB
JSR
INCB

.ukrcnx P. cnnotns) SET WRITE CHECK COMMAND
RVCAL PehFORM THE WRITE CHECK
?RCK(RS)
: INCREMENT THE TRACK NO.

RTS

CMPB
BNE
MOV
RESREG

sa JTRCK(RG)
:SEE IF DONE WITH ALL TRACKS
23’
:BR _IF NOT DONE YET
(SP)+,P.SECT(RS) :RESTORE TRACK AND SECTOR PARAMETERS
;kssroas RO-RS
*RETURN

;;**il!**fililll***i**ii*li*l!*lli*l!*ll*llil*****il*!*!i!ii**l*l

CZRENDO RKE11-06 SS VERIF 2
CZREND.P11
10-JAN-78 10:0S

Gl3

MACY1l 30R(10S2)
10-JAN-78
12:02 PAGE 163
RNDADR - RANDOM CYLINDER ADDRESS GENERATOR

8195

; #LODP14 - GENERATE sxxrssn PSEUDO-RANDOM NUM3ERS AND LOARD THEM

9199
819

:%INTO THE PATTERN 14 TRBLE.

exqg
819

83283“
&

8201

036046

8200

04487
012701

3% 3 36 3 36 35 3 3 3 3 3 3 % % 3% 3 % % % % % ¥ «lvllil!!ll!llll!l§llll~ll!ll§lliill*!«llli!l

000010

30P14: SAVREG
MoV

#8. Rl

4$:

JSR

PC, SRAND

sPatiy, RO

GET nooness OF PQTTERN 14 BUFFER

MOV
DEC
BNE
RESREG
RTS

stnun (RO)+

:PUT OTHER NO. INTO PATTERN
sss }F 6? ugnos LORDED YET
RESTORE RO-RS
: RETURN

036042

012700
004737

054634

006736

036056
036062
036064
036066
036073

013720
005301
001370
104410
000207

054732

8202 036052 013720 054734

8203
8204
8205
8206
ge07
8208

SEQ Q162

gell

MOV

SLbNUM (RO)+
qs

;
INI LOOP COUNTER TO 8.

2 16-BIT RANDOM NUMBERS
'PUTNERATE
ONE NUMBER
INTO PATTERN

!lllllIlllilll}lfll*lIlillil!llllllll!l!!illlillllllil!ll*l*l!ill

g2le
8213
8214

g F INRD
COMPUT Fapnt
PACK
Ea
HIS SUBROUTINE 1S USED
onr TRANSFER HAS COMPLETED, TO
*conpurs THE FINAL PACK ADDRESS AT TERMINATION. THE 2'S COMP. OF THE

8217

: #PACK noonsés WHICH IS'RETURNED IN FINCYL, FINTRK, AND FINSEC.

8215
8216

g218
8219
8220

8221

8222
8223
g224
8225
8226
8227
8228
8229
8230
8231
8232
8233
gggg

" %lJORD NO. RT TH§ POINT OF INTEREST IS PASSED IN LASTWC. THIS IS USED WITH
: %P . CYLN(RS)
RCK(RS), AND P.SECT(RS) TO COMPUTE THE connssponox NG

036072

036074
036100
036102
036104
036110
036114
036122
036126
036132
036136
036142
036144
032{50

104407

013746
095416
005046
116616
005066
116566
066616
005066
012700
105737
00 488
0127
?8?063

lTH§ SUSR uvghs1S USED TO DETERMINE THE PACK RDDRESS OF n SOF TWARE
: xDRTA MISCOMPA
o 360 0606 06 06 06 36 6 06 96 96 06 06 36 6 36 6 6 6 6 6 06 6 3636 6 36 36 06 6 36 36 36 646 36 36 36 36 36 36 36 36 38 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 3¢ 2

000003
000002
8 0004
0002
000002
000026
003125
000024

8236
036154 160016
8237 036156 005266 000002

8238
8233

036162
036164

000772
112637

005571

036172
036176
026202

116516
066616
00S066

000OCOS
000002
0000302

8240

036170

8244

(036206

8241
8242
8243
8245

03eele

005046
122716

10100S

000003

8246 036214
162716 000003
036220 005266 000

Be4?
8248
8249
8250

036224
036226
036232

000770
112637
066516

#tNADR: SAVREG

005572

005570
000002

18%:

000002

198

208:

21%:

22%:

SAVE RO-RS

MOV
NEG
CLR
MOVB
CLR
MOVB
ADD
CLR
MOV
TST8
BEQ
MOV
gng

LASTWC, -(SP)
:STORE WORD COUNT
(SP)
:MAKE IT POSITIVE
-{SP)
'MRKE ROOM ON STACK
3(SP), (SP)
:STORE NO. OF secrons TRANSFERRED
2(5P)
CLERP LOCRTION ON s nc
P.EECT(R ),2(sP)’ ETE START 35
2(3P), (SP)
0
RHINE FINRL
cron ADDRESS
3(5P)
:CLEAR NO, OF TRACKS TRANSFERRED
£22. .RO
iSET FOR 22 SECTORS
FORMAT
osrennxus THE ronnnr
138
g s geg
#20. ,RO
ET FOR 2
ECTORS
gogcép)
K FOR sscvoaToveanou

BR
MOVB

2(5P)
19%
(SP)+,FINSEC

MOVB
RDD
CLR

P.TRCK(RS), (SP) STO £ STARTING
T
2(SP), (SP)
:DETERMINE rxnnL Tnncx ADDRESS
2(5P)
CL AR Féfl“# S E

BHI

22¢

BR
MOVE
ADD

205P)
*INCR CYL
C
218
:CHECK FOR TRRCK OVERFLOMW
(SP)+,FINTRK
*STORE FINAL TRACK
P.CYLN(RS),
(SP) :CALCULATE FINAL CYLINDER

sSuB
INC

CLR

cMPB

sSuB
INC

R8 (SP)

oECREnENT
§Ec§5s 8ou~7
BY ao OR 22
: INCREMENT TRACKS TRANSFERRED

-(SP)

5gn ?n
TRQCKS TRANSFERRED

83, (SP)

:CHECK FOR SECTOR OVERFLOW
;sORE FINAL SECTOR

H CK F

RACK OV RFLOH

CHECK FINAL TRAC

osénsnsnr TRQ?K count BY 3

CZRBENDC RKB11-06 SS VERIF 2

CZR6END.P11

SSS%

g
8253
8254
8255

10-JAN-78 10:05

36236

3ee4e
036244
(036246

q6193?

(05726
104410
(100207

MACY11l

30R(10S2)

MOV

PAGE

(SP),FINCYL

TST
RESREG
RTS

8258

12:02

164

SEQ 0163

FINADR - COMPUTE FINRL PACK ADDRESS

005566

8523

H13

10-JAN-78

(5P
PC

;STORE FINAL

CYLINDER

:CLEAN OFF STACK
RESTORE R0O-RS
RE

él!lilIlllIlIillllllll!llilll*lllllllillilllllil!lillll!ii{!*!ll

85gd

;3901 ohBRBHT 1re-LOROINGERPABDALTB0

SSES

*PRRRMETER Pg

8261

! PMA AND Pnn+a)

RUBLFBER (PoInTED 10 Y

uITH THE RPPROPR&RTE REPERTIN? DRTA PAT g

g 8E

ERT NHéS S

OADE

COM RISED

8265

:#0F ALL
n TERN 0-15 tomcx vERIFY DEFAUL nm
1IF PRTRN IS
N
THE NO. OF WORDS IN THE WORD WDSXF
lOF THE PRTTERN IDENTIFIED BY THE NO. OF THE BIT SET IN R1 ON

ggsg

*ii*iii11!ii*{*}*il{i;;liiii;iliii*il;i!ill*iiili***i*iii*;**ii

8264
8266
&

8269

8270
8271
8272
8273
8274
827S

8276
8277
8278
8279

lENTRY
036250

036252
036256
036262
036264
036270
8362?9
36300
036302
036304
036310

000463
005000
032701
001003

036322

006300

8280
8281
8282
8283

036312
036314
036316
036320

828S%

8284

104407

013702
005737
001007
012700
012746
012701

006300

8288

036332

062700

8289
8290
8291
8292

8293

036336
036342
036346

036352

3%:
4y

000001

6%:

006300

036326

036330

006036
000400
065660

005200
006201
000772
006300

8286

8287

LODBUF:

005564
005536

006300

012746
013701
005737
100036

8294

036354

013737

8296

036370

0427Cl1

8298

36400

1000

36374

5270

8299 036402 011604

8300
o301
8302

036404
036406
036412

012321
032701
001405

8304
8305
8306

(36422
036426
036430

042701
005302
001403

8303

036414

062737

SAVREG

MOV
TST
BNE
MOV
MOV
MOV

BR
CLR
BI7
BNE

INC
RSR
BR
ASL

003176

MOV
MOV
TST

BPL

172354

MOV

000200

020000

GET NO. OF WORDS
SEE IF QUICK VERIFY DQTR TEST DESIREC
BR IF NOT QUICK VERIF
SET DATA PRTTERN STQRTING RDDRESS
SET PRTTERN WORD COUNT
,SET BUFFER RDDRESS

; PROCEED
; INIT PARTTERN NUMBER
;SEEIF THIS BIT IS SET
;BR IF THIS BIT IS SET

INCREHENT PARTTERN NO.
s SHIF Fo EXAMINE NEXT BIT
BR TO CHECK NEXT BIT
MULTIPLY PATTERN NO. BY 32(DEC.

QPRTOO RO

-tsp
PMR Rl
sKTil
308

;GET ADDRESS OF DESIRED PATTERN

SET PATTERN WORD COUN
SET BUFFER RDDRESS
,SEE IF MEM MGT PRESENT
:BR

IF NOT PRESENT

BIS

SAVPAR,

BIS

0640000,R1

MOV
8lT
BEG

(R3)}, (R1)+
SBITlé,Rl
c6%

LORD A DARTA WORD INTO BUFFER
SEE IF OVERFLON TO NEXT PAGE
-BR IF NO OVERFLOMW

QBITIB.RI
R2
28%

SET PRGE= & AGAIN
DECREMENT NORD COUNTER
‘BR IF ALL DONE

BIC
229%:

249

020000

; SAVE RO-RS

;BUFFER LORD LOOP FOR HEH MGT STARTS

160000

140000

RO
R1
49
RO

ASL

ADD

000020
005604
057732

30%
RO
#BITO,R1
6%

ASL

006036

WDSXFR,R2
PATRN
3%
#PAT00, RO
#256. , ~(SP)
sRNBUE R1

ASL

RSL

8295 036362 052737 000001 177S72

8297

ARE LOARDED INTO THE BUFFER

172354

MOV

RDD

26%:

BIC
DEC
BEQ

J8K IPARG

#BIT0 blSR

uP NORKING PAR

; TURN ON MEMORY MANRGEMENT

8160000 Rl

FORCE RELOCRTION THRU KIPARS

(SR) RY

;GET AR COPY OF PRTTERN QDDRESS

#8200, J#KIPARG

INIT PRTTERN WORD COUN

; INCREMENT PAR BY 4K FOR NEW PAGE

Q36432
036434
036436
036440
036446

00S304
001363
000760
Q42737
000410

036474

010003
011604
012321
005302
001403
00S304
001373
000770
005726
104410
000207

DO NN

Poa

s1) (0 0000 oM
[N WWwWwwww

CZRBENDO RkB11-06 SS VERIF 2
RBNO. 11
10-JAN-78 10:05

8320

MACY1l

I13

30A(1052)
10-JAN-78
12:02
PAGE 165
LODBUF - LORD THE RERD/WRITE DATA BUFFER

DEC
000001

177572

2 8s:

: DECREMENT PATTERN WORD COUNT

BNE
BR
BIC
BR

24$
228
#8170, 25RO
44§

!BR IF NOT DONE WITH PRTTERN YET
!BR TO REPEAT THE PATTERN
oxsnaLE MEMORY MANRGEMENT
60 _TO RETURN

MOV
MOV
MOV

RO,R3
(SP) R4
(R34, (R1)+
Re
44§
RY
348
30%
(SP)+

] GET
A _COPY OF PRTTERN ADDRESS

.BUFFER LOAD LOOP FOR NO MEM MGT srnnrs HERE

30s:
3 4s:

4s:

DEC
BEQ
DEC
BNE
B8R

TST
RESREG
RTS

SINIT Pnrrsnn WORD COUNT
:LOAD
A DATA WORD INTO BUFFER

:DECREMENT WORD COUNTER
iBR IF ALL DONE
'DECREMENT PATTERN WORD COUNT
:BR IF NOT DONE WITH PATTERN YET
:BR_TO REPEAT THE PATTERN
:POP_THE STACK
iRESTORE RO-RS
RETURN

o 3633 36 36 36 36 36 9 96 36 3 36 3 08 36 36 36 3 36 3 36 36 36 336 36 36 36 36 3 3 36 3 3 3 3 3 3436 3 36 36 36 30 36 36 36 36 36 36 36 36 36 3 3¢ 36 38 3 3% 3% 3% %

"8B8TTL

CMPBUF - SOFTWARE COMPARE DATA

:¥THIS SUBROUTINE PERFORMS A SOF TWARE COMPARE OF THE R/W DATA BUFFER (POINTED

:%#T0 BY PMA AND PMA+2) TO THE APPROPRIATE REPEATING DARTA PATTERN. IF
: xPARAMETER PARTRN = O ON ENTRY, THE onrn 1S COMPRISED OF ALL THE PRTTERNS
:#00-15 (QUICK vsnxrv DEFALLT DATA TEST
*%IF PATRN IS NOT
0, THE NO. OF THE BIT ssr IN RI ON ENTRY IDENTITIES THE
: ¥REPEATING DARTR PAYTERN TO COMPARE AGAINST.
« 3636 36 36 36 36 36 36 96 36 36 36 36 3 36 36 3 3 36 3¢ 36 36 3 3 3% 3 3 3 3 38 3 36 3 3 3 36 36 3 3 3 3% 3 3 3 3 3 3 3 3 3% 3 3% 3% 3 % 3 W% W K X% WK %

036476

036500
036506

000040
000007
005564
DOSS534
043720
005536

0B4176
0bSSSe

¢ MPBUF: SAVREG

000001

3$:

6 S:

036620

005737

006036
000020
005604
057732

MOV
CLR
JSR

WDSXFR, RS
SCRACH
PC, REPSUP

BNE
MOV
MOV
MOV
BR
CLR
BIT
BNE
INC
ASR
BR
ASL

3s
8PATOO, RO
#256. , - (SP)
#RWBUF, R1
308
RO
$8ITO,RI
6%
RO
R1
4§
RO

;SET NO. OF WORDS
:CLEAR COMPARRE ERROR COUNT
*STORE PREV CMND FOR P0SS. PRIN
'SEE IF THIS IS QUICK VERIFY DEFQULT DATA TEST
'BR_IF NOT
'GET DATR PATTESN srnnrxnc ADDR
*SET PATTERN WORD COUN
:SET BUFFER RDDRESS
: PROCEED
SINIT PRTTERN NO.
'SEE IF THIS BIT IS SET
'BR _IF THIS BIT IS SET
* INCREMENT PATTERN NUMBER
snxrr T0 sxnnxns NEXT BIT
‘BR TO CHECK NEXT BIT
'MULTIPLY PRTTERN NO. BY 32(DEC)

ASL
ASL
ASL

RO
RO
RO

MOV
MOV
TST

#16. . -lSP
PMA. R1
gxTi1

TST

3 g:

SAVE RO-RS

:RESTORE ERROR MSG PARAMS

MOV

006036
000400
065660

#40,DH?01+38.

MOVB

HSL

RDD

87, DF25+2

PAtRN

sPATOO RU

:GET ADDRESS OF oesxaso PATTERN

:PATTERN WORD COUNT
'SET BUFFER ADDRESS
:SEE IF MEM MGT PRESENT

SEQ 0164

CZRSNDO RKe11-06 SS VERIF 2
10-JAN-78 10:0S
CZRBND.P11
8363

036624

100041

036626

013737

MACY11l

BPL

MOV

036730
036732
036734
036736
036740
036744
036750

22%:

001e1s

000751

010003

036756

001202

QL LWW——=N—nNL
L

O
--00
OGOr

ey .
S
N
[

oNCN LW

[e]el Jell

8088 oW,

036072

037104
037110

172354

037362

037342
064176
00000s

065552

001202
005572

MOV

no R3

;GET_R COPY OF PRTTERN QDDRESS

8IS

#140000, R1

MOV

SP) R4

. COMMON COMPRRE Enhon HANDLER
MOV
REGIO
suB
uoéxrn SREG1O
MOV
JSR

00Ses2
005260

BIT
BNE

#BADSEC, RECODE
50$

BNE
TSTB
BEQ
MOV

368
UBMPRS
463
CRMPHO, SREGS

ERROR
ERROR
8R

116
117
483

MOV

46%:
489 :

FINCYL RO

FINTRK,R1
FINSEC' R2
PC, BOSRCK

TST

003143

SREGIO LASTWC
F INADR

MOVB
MOVB
JSR

RESREG

005474

005534

001200

:TURN ON _MEM MGT

SAVREG
ov

001174

0, 94SR

oxsoobo Rl

3cs:

042436

177777
001176

PQR auxxpnns ;SET UP WORKING PAR

;FORCE RELOCATION THRU KIPARG

C
:INIT PATTERN WORD
(Ra)i (R1)+
; COMPARE DATA WORD TO PRTTERN WORD
CMP
248:
:BR_IF NO_ERROR
BEQ
25%
MOV
8K IPARG, SREG1H :SET PAR FOR _PRINTOUT
GO _HANDLE ERROR
BR
35$
:SEE_IF OVERFLOW TO NEXT PRGE
25%:
BIT
#BIT13,R1
:BR _IF NO OVERFLOW
BEQ
269
ADD
caoo asxxpnns
; INCR_PAR BY 4K FOR NEW PAGE
= & AGAIN
iSET PAGE
BIC
$BIT!3,
: DECREMENT "WORD COUNTER
26%:
DEC
R2
iBR IF NOT RLLTDSNE YET
BNE
27%
:ALL DON
JMP
Sug
RY
DECREHENT PATTERN _WORD_COUNT
DEC
27%:
iBR IF NOT DONE WITH PATTERN YET
BNE
24$
:BR TO REPERT THE PATTERN
BR
228
COMPARE LOOP FOR NO MEM MGT STARTS HERE
i
MOV
RO, R3
sGET COPY_OF PATTERN QDDRESS
MOV
(SP) ,RY
PINIT PATTERN WORD COUN
(R3)4, (R1)+
CMP
:COMPARE DATA WORD TO PRTTERN WORD
34%:
iBR IF COMPARE ERROR
BNE
318
:JUMP IF DATA COMPARES OK
IMP
408
:ADJUST DATA HEADER FOR MSG
DH?01+38.
CLRB
318:
'ADJUST ERROR DATA WORD COUNT
MOV
OF25+2

005566

001000

;BR_IF NOT PRESENT

308

BIC

BIS

020000
000200
020000

SEQ 0185

166

; COMPARE LOOP Fog MEM _MGT STARTS’HERE

003176
000001
160000
140000

172354

03622
036724
036726

J13

12:02
PAGE
10-JAN-78
CMPBUF - SOFTWARE COMPARE DATR

30AR(1052)

ERROR
MOV

CLR

SCRACH

CRMPLO, SREGE
34
#-1,

SREGS

REGH

$REG?

; GET WORD NO.

;GET 2’S COMP OF WORD NO.

:COMPUTE ACTURL PACK ADRS
:SAVE RO-RS
iGET CYL
{GET TRACK
IGET SECTOR
!SEE_IF THIS SECTOR LISTED BRD
;RESTORE RO-RS
;BR_IF LISTED- DON'T REPORT ERROR

:CHECK THE ERROR COUNT
:BR_IF _THIS IS NOT FIRST ERROR
UNIBUS MAP FRESENT
SEEIIF
F NOT

*GET CURRENT MAP REG O
;DATA MISCOMPRRE

(11-70)

; TYPE HERDING FOR ERROR MSG

JINIT CYL NO.

CZRSNDO TKbll‘06 SS VERIF 2
10-JAN-78 10:08
CZREND.P
8419
8420

8CKMDOhWfl-OCD—8
P s b O Ot e = O N)

WO
N LEWLI— )

010
123737

MACY1l

005534
000001

142012

000012

00SS34

001174

005566

001176

005570

001200

005571

005566
005570
00ss571

001174
001176
001200

K13

36%:

SREG? FINSEC
44$
FINCYL, SREGS
FINTRK, SREGE
FINSEC, SREG?

SEE IF DIFFERENT SECTOR
:BR_IF SAME PACK ADDRESS
;SET NEW PACK ADRS FOR PRINTOUT

NEG
MOV
MOV
MOV

SREGID
-2(R3),8REG1!l
-2(R1).SREGI2
$REG10.SREGI4

ooizi2

ROL
ROL
ADD

SREG1Y
$REG!3
PMA, SREG1Y

001210

ADD

PMA+2, SREG13

BNE

4es:

ERROR

CLR

000002

ool2i4

000100

141620

ADC

MOV
SUB
ERROR

508 :

036672

40$:

036730
036734

53§:

543 :

057732

177872

56%:

4es

115

$REG13

R1,SREGIS
82, SREG1S
63’

#BIT6, ASWR
54§
PATRN
40%

BPL
IMP
DEC
BEQ
DEC
BNE
JMP

40%
ass

IMP

IST

BPL
BIC
15T
RESREG
RTS

R_IF _YES

s TYPE NEW PACK ADDRESS

SGET WORD NO.
:GET GOOD onrn
:GET BAD DATA
:COMPUTE PHYSICAL ADDRESS

SREG13

BIT
BNE
TST
BEQ
TST

0s7732

000207

; INCREMENT THE ERROR COUNT

cMPB
BEQ
MoV
Move
Move

38%:

BIT
BNE
CMP
BLT
CMP
BNE
CMPB

SCRACH

:SEE IF ALL ERRORS SHOULD BE REPORTED
!BR_TO REPORT ALL ERRORS
:SEE_IF 10(DEC) ERRORS YET
:BR_If ERROR LIMIT EXCEEDED
ISEE_IF DIFFERENT CYL
:BR_IF_YES
SEE IF DIFFERENT TRACK

005536

104410

INC

#8170, ISKR
388
#10.,SCRACH
S4$
SPEGS, FINCYL
4es
SREG6E, FINTRK

44§

000001

SEQ 0166

30fl(1052)
10-JAN-78
12:02
PAGE 167
MPBUF - SOFTWRRE COMPARE DRTA

$KT11

:GET VIRT. ADRS FOR PRINTOUT

. TYPE GOOD AND BAD DATA,

MEM. ADRS.

,ses IF JUST 1 ERROR SHOULD BE REPORTED
'BR_IF JUST 1 ERROR SHOULD BE REPORTED
:SEE_IF DEFAULT DATA TEST
,BR iF YES

'SEE 1F MEM _MGT PRESENT

sas
30%

'BR IF NOT PRESE
1GO HANDLEMEM MGT
: DECREMENT uono COUNTER
'BR IF ALL DONE
'DECREMENT PRTTERN WORD COUNT
'BR IF _NOT DONE WITH PATTERN YET
:JUMP TO REPEAT THE PATTERN

$KT11

:SEE IF MEM MGT PRESENT

sws
349

569
#8170, 3#SRO
(SP)+
PC

:BR _IF NOT PRESENT
:DISABLE MEM MGT
:POP THE STRCK
'RESTORE RO-RS
IRETURN

o 363636 35 36 36 96 3 3 36 36 36 3 36 36 36 3 36 3 3 3 3 3 3 3 3 36 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3% 3% % 3 3 3 2 3

K% W 8 E XXX ER

4 CTLOUT - THIS SUBRQUTINE CHECKS FOR_($C) OR (12) TTY INPUT.
!#1F (1C) WAS TYPED, THE SUBROUTINE RETURNS TO DRVIST. IF (12)
¥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 (1C) OR 11Zs,

CZRENDO RK611-06 SS VERIF 2
CZREND.P11
10-JAN-78 10:05

L13

MACY1l 30R(1052)
10-JAN-78
12:02
PAGE 168
CMPBUF - SOFTWARE COMPRRE DATR

847%

:¥NO ACTION IS TAKEN.

8477

;¥

8476

8478

‘%

8479
8480
”Sé

037404
037412
8 7414

122737
001077
8857;7

000001
00ss22

8483

(037422

105737

003116

8484
8485
8486
8487
8488
8489
8490
8491
8492
8493
8494

8495

swgg

7420

(037426
(037430
037436
037440
037444
037450
037452
037456
037460
037464
(037470

037474

837585

1474

001446
122737
001033
012700
105737
001402
004737
00000S
005037
005037
105037

012737
01270

11876

000003

qaoo
8861

037524
037526
037534
037536
037542
037544
03vSs2
037554
037560
03;5?4

000110
122737
00I016
012700
00074
122737
0061007
104401
104401
812;00

8512

037600

001002

000032

005522

2%:
XY
003046

000001

8515

8516
8517
8518

037602
037606

037612

04737
004737

00SS22

4§:

005522

12%:

000207

8%:

108:

81, TSTING
104
INTCHR

:SEE IF CURRENTLY RUNNING TESTS
:BR IF NOT RUNNING TESTS
ass }Fnnv TTY INPUT

MDFLRAG

'SEE IF DEFRULT MODE RUN

108

MOV

#STACK

JSR
CLR

007704
007654
046150

8311;5
05?6

PC,CTLOUT

4$
#DRVTST,RO
XOVLAD
63
PC, GETXDP
INTCHR
§TIMES
XDPSVD

MOVB

831: 837@78 1987§§ 000007 005522 7%:
8513
8514

CKEXIT

BEQ
CMPB
BNE
MOV
TSTB
BEQ
JSR
RESET
CLR
CLR
CLRB

MOV

016014
000003

JSR

Y X1 2222222222222 2222222222222%222XX222222223222222
T

&tLouT: CMPB
BNE
TST

TSTB

032050
005522
001304
003134

OR -

BEQ

014434
003133

8498
037514 004737 042542
8499 037520 005037 001102

8500
8501
8502
8503
8504
8505
8506
8507
8508
85?3

003120

CALL -

SEQ 0167

JMP
CMPB
BNE
MOV
BR
CMPB
BNE
TYPE
TYPE
mgv

gnpa

BNE

JER
JER

RTS

12%
#003, INTCHR

INPUT

‘BR IF YES
:SEE_IF ($C) TYPED
:BR_IF NOT ($C)
*SET RETURN ADDR= DRVTST
ssz IF XXDP CURRENTLY OVERLAID
‘BR IFNOT
'RESTORE SAVED XXDP, IF NECESSARY
"RESET ALL DEVICES
:CLEAR TTY CHAR aurren WORD
;CLEAR THE ITER. COUNT
CLERR THE XXDP SAVED FLAG

SERRHDL n ABNL

EE gng

PC
onvbAL
$TETN

b
CLEANUP RECRLIBRATE
LERR THE TEST NO.

ORECRL P.cnnotasi

R0
8032, INTCHR
78
#INPUTP, RO
2%
$003, INTCHR
7%
,HLTRGD
’ CNTROY
gHLTPRG RO

n307 INTCHR

E g WRG
P
REPKB

RR?R
HANDLER RDDRESS

T RECAL connnno

sxxr FROM TESTS
sse gr
(fZ) TYPED
BR
(12)
SET RETURN ADDR = INPUTP
‘TAKE EXIT
'SEE IF ($C) TYPED
'BR IF NOT
:TYPE "HALT REQUESTED"
' TYPE “PRESS CONT WHEN RDY"
ssr HQLT ADDRESS

sss IE
(1G) TYPED
en IF NOT ($G)

E OF TWARE SWR FOR MODIFICATION
NABLE
KBD INPUT AGAIN

RETURN

8519

; o 3636 36 36 3 36 3 96 36 9% 36 36 3 36 36 3¢ 36 36 3 3 3 3 9 3% 3 3¢ 3 J 3 3 2 3 3 3 3 3 3 3 336 36 3 3 3 2 3 3 3 3 3 3 3 3 3 36 % 3 3 ¥ % 3% % %

8524
8525

037614

104407

' o 363636 3696 36 36 3 3 96 3 3 3 36 3 36 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3% % 3 3 3 3 3 3 K 3 3 3 3 3 3 3 3 3 W 3 33 X % % K W® K E X%
ahtsec SAVREG
: SAVE RO-RS

8527

037616

012700

8529

037626

010320

8520
8521
gggg
8526

iuarssc - WRITE A BLOCK OF 40O0(OCT) WORDS ONTO DISK AND PERFORM
'#Q WRITE CHECK. PARAMETER BLOCK MUST BE PRE-LORDED WITH_P
*3888555 DATA WORD IS PRSSED IN R3 ON ENTRY. RWBUF IS THE BUFFER
%

065660

8528 037622 012701 000400

LORD THE R/l BUFFER NITH DATA

MOV

4$:

MOV
MOV

SRIWBUF

#400 Rl

R3, (RO)+

: BUFFER ADDRESS

:400(0CT) WORDS

;LOADA BUFFER WORD

CZRENDO Rkb11-06

CZRBND.P11
8530
8531
8532

037630
037632

VERIF 2

10-JAN-78 10-05

MACY1l

DEC

005301
001375

BNE

8541

8544

037650
037656
037664
037666
037672

8377
0
37704
037706

112765
032-77

001002
004737
11276S

CO4737
104410

;WRITE

000123
000002

04es4e

000001

; DECR_COUNTER

ARHBHT ATiRTRESRS ) s T oRE cO0RT"

MOVB

ONR?RTR CMND(RS)

BNE

MOVB
JSR

RESRE
RTS

000207

SEG 0188

!BR IF NOT DONE YET

SLR

JSR
PC . DRVCAL
PERFORM WRITE CHECK

is:

169

MOV

THE DATA

BIT

042542
000131

R
:SET UP PRRAMETE

R DN BIBE WS
8536
8537
8538
8539

ML3

10-JAN-7?8
12:02
PAGE
CMPBUF - SOFTWARE COMPARE DRTA

30A(1052)

s u
T n*vE COMMAND

S INHIBITED

NRITE THE DRTA

#WRTCHK,P.CMND(RS) :SET WRITE CHECK COMMAND

PC,DRVCAL
PC

PEkronn NRITE CHEC
'RESTORE
RETURN

5 363636 36 36 36 36 36 36 36 38 36 36 36 36 36 36 36 38 3636 36 36 36 3 36 58 38 36 38 36 36 36 36 3636 3636 3636 38 34 36 38 34 36 36 34 34 36 30 36 36 30 36 36 30 3 3 6 30 3¢

iLDMEMl - LOAD MEMORY WITH INCREASING NUHBERS

STARTING WITH 1.

:%LDMEM2 - LOAD MEMORY WITH REPEATED WORD, N R3 ON ENTRY,
: ¥BOTH SUBROUTINES REQUIRE MEMORY ADDRESS ' IN PMQ PMR+2, AND WORD COUNT

;¥MUST BE IN WDSXFR.

*l!li*l*!llll*llilllllllil!lllilililllillllllll*l***l!i!**!lil!

(BMEM1: SAVREG

8554
8555
8556

077710
037712
037714

005004
012703

8560

037730

»
013702

8562

037740

005737

177777
00SS64
005604
057732

3737
2737

160000
140000
003176
000001

05737

057732

CLR

MOV
BR
LDMEM2: SAVREG
MOV
LDMO:
MOV

000001

8%:

020000
8576

040016

062737

000200
020000

8580

040034

005737

057732

8582
8583
8584

040042
Q40050
040052

042737
104410
000207

000001

172354

108:
12%:

8-1,RY
uoskFR R2

Inoxcnvss LDMEM1

INIT DATR WORD TO 1
: PROCEED
:SAVE RO-RS
'RY=177777 INDICATES LDMEM2
:GET NO. OF WORDS

PMR,R1

BPL
BIC

ss
#160000, R1

'BR _IF NOT
:FORCE RELOCATION THRU PARG

108
#BIT13,RI
108

,BR IF NOT
,ss IF OVERFLOW TO NEXT PAGE
BR IF NO OVERFLOW

*RETURN

g$KTil1

:GET MEM ADRS

ISEE IF

MEM MGT

6IS
MOV
BIS
MOV
TST
SNE
INC
15T

#140000’ R1
SAVPAR, 98KIPARG; INIT PARG
#BITQ, 9#SRO
STURN ON MEM MGT
'LORD A WORD INTO BUFFER
R3, (R1)+
RY
:SEE_WHICH DATA DESIRED
8%
:BR_IF NOT INCREHENTING DATA
R3
" INCREMENT THE DAT
'SEE IF MEM MGT
SKT11

ADD
BIC
DEC
BNE

#200, 3sKIPARG ; INCR PAR BY 4K FOR NEW °AGE
$8IT13,R1
'SET PAGe = & AGAIN
R2
:DECREMENT COUNTER
‘BR_IF NOT oons LOADING YET
6%
$KT11
‘SEE_IF MEM
:BR IF NOT
12%
:TURN OFF MEM MGT
#8170, 3¥SRO
RESTORE RO-RS

BPL
BIT
BEQ

7ST

177572

81, R3
LDAO

MOV

TST

X ¥

BPL
BIC
RESREG
RTS

CZRBENDO RK611-06 SS VERIF 2
CZREND.PL1
10-JAN-78 10:05

N13

MACY'l 30A(1052)
10-JAN-78
12:02 PRGE 170
CMPBUF - SOFTWARE COMPARE DATA

8588

SEQ 01869

2212112222222 2223222222222:2:112222:222222X22T22XZQX22LSSSTTILEL22
LSS

8589
8590

icxnsnx - PERFORM sorrunas COMPARE OF MEMORY, WITH INCRERSING
: NUMBERS, STARTINGWITH 1.

ggga

:?grnogugsourxnss REQUIRE MEM ADRS IN PMA, PMA+2, AND WORD COUNT MUST BE

gégé
8595

8596

*gfinsgaoa Esggonn SOF TWARE COMPARE OF MEMORY, WITH REPERTED DATA WORD
X

040054

040056
040060
(40064
040066
0400:0
080074
040100

00S004
012703
000403
104407
012704
013702
01370f

860S

040110

112737

8604

040104

o 35363636 36 3 36 3 3 36 36 3 3 3 3 3 3 3 36 3 3 3 3 36 3 3 3 3 3 3 36 36 3 3 3 3 3 3% 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 W 3 3 XX % % K H*

104407

8537
8598
8599
8600
8601
8602
8603

005037

LAMEM1: SAVREG

CLR
MOV
BR
CKMEM2: SAVREG
MOV
CKMO:
MOV
MOV

000001
177777
005564
005604
005534

000040

000007
043720
057732

CLR

064176

8606
8607
8608
8609
8610

040116
040124
040130
040134
040136

012737
004737
005737
100012
042701

8615

040164

001575

040166

010237

001202

8619
8620

040200
040206

013737
004737

001202
036072

Be22

040214

013700

005566

032737

001000

040246
040252
040254
040260

005737
100406
105037
012737

057732
064176
000005

065552

040270

013737

172354

001216

MOVB

065552

160000

8612 040146 013737 003176 172354
8613 040154 052737 000001 177572
8614 040162 020321
6%:
8611

8616
8617

040142

052701

140000

8618 040172 163737 005564 001202
8621

040212

104407

8623
gbe4
8625
8626

040220
040224
040230
040234

113701
113702
004737
104410

8628

040244

001145

8627

8629
8630
8631
8632
8633

8634

8635
8636
8637
8638
8639
8640
8641

040236

040266

040276
040302
040304
040310
040312
040320
040326

000403

005737
001024
105737
00141l
013737
013737
104116

005262
005260

;RESTORE ERROR MSG PARAMS

:STORE_PREV CMND FOR POSS. PRINT
*SEE_IF MEM MGT
'BR IF NOT
:FORCE RELOCATION THRU PARE

16$

:BR IF DATA COMPARES OK

;GET WORD NO.

MOV
JSR

uosxrn $REG10

SREGI0/LASTWC
PC, FINADR

;GET 2’'S COMP OF WORD NO.
:COMPUTE ACTUAR. PACK ADRS

MOV

FINCYL,RO

JGET CYL

MOV
BIS
CMP
BIS

BEQ

SAVREG

MOVB
MOVB
JSP
RESREG

00S474

001174
001176

#40,0H701+438.

SCRACH

87, DF25+2
PC’ REPSUP
sktil
6%
#160000, Rl

sua

005572

003143

:R4=0 INDICQTES CKMEM1
*INIT DATA
: PROCEED
:SAVE RO-RS
*RY=177777 INDICATES CKMEMZ
:GET NO. OF LORDS
:GET MEM ADRS

SQVPAR hoKIPnRs; INIT PARE
#8170, 98SR
:TURN ON MEM MGT
R3 (Rl)+
:CUMPARE A DATA WORD
#140000

conpnns ERROR nnnann
EGLD

005570
005571
042436

005534

MOV
JSR
TST
BPL
BIC

BIT

BNE

BS:

93:

; SAVE RO-RS

RY
#1,R3
CKMO
#-1,RY
uoskrn R2
PMA.R1’

FINTRK,R1
FINSEC R2
PC, BDSRCK
#BADSEC, RECODE

16%

:SAVE RO-RS

*GET TRACK
*GET SECTOR
:SEE_IF THIS SECTOR LISTED BAD
'RESTORE RO-RS
:BR IF LISTED- DON’T REPORT ERROR

TST
BMI
CLRB
MOV

$KT11
8%
DH701+38.
8G,DF25+2

MOV

AsKIPARG,SREG16;SET PAR FOR _PRINTOUT

TST
BNE
1578
BEQ
MOV
MOV

ERROR

SCRACH
108
uanpns
178
CRMPHO, SREGS
CRMPLO. SREGE
116

' SEE xr MEM MGT
'BR_IF YES
'ADJUST DATA HEADER FOR MSG
*ADJ. ERROR DRTA WORD COUNT

"SEE_IF FIRST ERROR IN THIS BLOCK
'BR IF NOT FIRST ERRUR
1SEE_IF UNIBUS MAP PRESENT
iBR_IF NOT
: CURRENT UB MAP REG O

:DATA MISCOMPARE

(11/70)

CZRENDO RKB11/06 SS VERIF 2
CZREND.PL1
10-JAN-78 10:05
040330
040332

177777
001176
001200
00SS34
000001

001174

000012

00SS34

001174

005566

001176

005570

001200

00s571

140552

001174
001176
001200

CMPBUF

17%:
118:

ERROR
BR
ERROR
MOV

117
118
34
8-1, SREGS

148:

CLR
INC
BIT
BNE
CMP
BLT
CMP
BNE
CMPR
BNE
CMPB
BEQ
MOV

SPEG?
SCRACH
#8170, 3SKR
128
810.,SCRACH
218
SREGS, FINCYL
148
snsca FINTRK
14§
SREG?7, FINSEC
158
FINCYL, SREGS

158:

MOVB
ERROR
NEG

FINSEC, SREG?
115
$REG1O

MOV

-2lR1), SPEGL2

108:

128:

001206
ool212

oulelea

18%:

172354

20%:

040162
057732
000001
040642

0002067

218:
177572

MOV

22%:

éNCREflENT THE ERROR COUNT

E_IF ALL ERRORS SHOULD BE REPORTED
RRORS
YET

LIHIT EXCEEDED

SEE gF DéFFERENT cyL

:SEE_IF DIFFERENT TRACK
iBR_IF_YES
:SEE_IF DIFFERENT SECTOR
:BR_IF _SAME PACK ADDRE SS
:SET NEW PACK ADR FOR PRINTOUT

FINTRK, SREGH

; TYPE NEB PgCK ADRS

W
IGET
:GOOD DATA
:BAD_DATA
:COMPUTE PHYSICAL ADDRESS

R3,SREG1!

SREG10, SREG1Y
SREG13
SREG1Y
SREG13
PMA. SREG1Y

ADD

PMA+2, SREG13

SREG13

R1,SREGLS
#2.SREG1S
63’

; GET VIRT ADRS FOR PRINTOUT
; TYPE _GOQD RND BRAD DATA

1 ERROR SHOULD BE REPORTED
iSEE_IF JUST
iBR IF JUST 1

BNE
INC
TsT
BPL
BIT
BEQ
ADD

1es
R3
SKT11
208
$8IT13,R1
208
3200, 28K IPARE

DEC
BEQ
JMP
TST
BPL
BIC
RESREG

R2
213
63
$KT11
22%
#BITO, 3¥SRO

RTS

SEG 0170

JINIT CYL
N

$RELH

MOV
CLR
ROL
ROL
ADD

BIC

171

; TYPE HERDISG FOR ERROR MSG

BIT
8BITH, aSWR
BNE
218
1pgoceso gITH conpnnxsons

020000
000200
020000

MOVB

MOV
suB
ERROR

oolelu4

057732

CLR

ADC

001210

140362

Bl4

12:02
PQGE
10-JAN-78
- SOFTWARE COMPARE DATA

30R(10S52)

104117

TSR

ge42
8643
8644
BE4S

MACY11l

; SEE_WHICH DATA DESIRED

iBR_IF NOT INCRERSING DATA
{INCREMENI THE DATA WORD
MEM MGT
:SEE éF
:BR_IF _NOT

;SEE_IF OVERFLOW TO NEXT PAGE

!BR_IF NO_OVERFLOW
{INCR. PAR BY HEQ§OR NEW PAGE
iSET _PAGE
= 6 A
;DECR_COUN TE R
:BR_IF DONE COMPARING
:CONTINUE COMPARING WORDS
ISEE_IF MEM MGT PRESENT
iBR_IF NOT

#BITI3,RI1

; TURN OFF MEM MGT
{RESTORE RO-RS
ETURN

CZRENDO RKB11-06 SS VERIF @2
10-JAN-78 10:0S
CZREND.PL1

MACY11 3ga(1052)

172

SEQ 0171

5 JE0EBEIE I3 00 3 20 00 36 3606 300 3006 30 3 36 30 30 30 30 3 00 36 00 30 06 36 06 300 0 3 MU0 U

013765
113765

Aa37%9

005660
005506

885;94

003403

000002
0oe"NY

MMM

N KA ENRN

005737
001003
062737

040746

000207

000170

006000
003777
004000
005602

*l!ll!*ll!i!!lillllll!!!!ll!!!llll!ll!!!!l!lllll!ll!lll!l!!ll*i

Strupn MOV

005600
00sSe00
005600

rc .CYLN(RS)

MOVB
MOVB

828632

813753 BEBEZ £88E8s

P.SECT(RS)
TRCK(RS)
;T

CMP

;SET CYL

SET SECTOR
§E S
E IF

CYL SHOULD BE SCALED DOWN

:BR _IFNOT

BLE

2s:

MOV
MOV

5"3 P. CYLN(RS) 3 ALE DOWN THE CYL INDER
SRWBOF,
T MEMORY ADDRESS

Ys:

BNE
ADD
BIC
ADD

5
#6000, MA
#3777 MA
#4000, MR

RTS

TST

KILLDR'

CLR

:SEE IF LORDER CAN BE OVERLAYED
'BR IF
YES
:LEAVE ROOM TO SAVE LOADER

MA+2

: RETURN

; !lill!l!ll{lllllllilllll!!llll!llll!!ll!liillllllill{l!illillll

PUP

s s s s P pe bt P

PAGE

}SETUPH - SUBROUTINE TC INIT PARAMS FOR NPR/MEMORY TESTS.

8781

OWVODNCN LW

Cl4

12:02

MPBUF - SOFTWARE COMPRARE DATR

838

000
0 00 G0 00 a0 00
NNNNNNNNNN

10-JAN-78

i REFNEM - THIS SUBROUTINE PERFORMS R SUBSYSTEM COHMQNO WHILE

;REPEAT DLYREEERSNC
NG N0N55§¥§EENT
HEHORY#OCRTION ??0008) THIS
!NPR

SINCE

S #ALL Dk*v
R PQRR

;#PARAMETER

BLOCK

ENTION DURIN

IS SIEZED FOR 5-20

TERS (INCLUOIN

ON ENTRY,

EACH NEM TIME- OUT

Hg CgHHflND) HU T BE SET IN THE

AND
R3 MUST

CONTAIN THE

TIMING CONSTANT

: ¥WHICH REGULATES THE FREQUENCY OF NEM REFERENCES, WHILE WAITING FOR

040750

; *COMMAND COMPLET ION
A I 0 00 00 2060000 30 00
I I

185037 833123

004737
010537
012737

e Bt
s
s

DDDODDDDDODD(Dg
£

e Pt bt Pt Bt Pt Pt Pt Pt

gD?DOQD
P 3
3 o

041002

Q000000
frrrrt

REFNEM:

0Qu4737

Q42622
041002
041036
052604

63:

128:

160000

208:
000207

000006

000004

22%:
268:

(12) KBD INPUT

JSR

PC,C.INIT

:CALL DRIVER

JSR

ofis

W.WTCH

:DONEIF SET
7
Y

. WORD

TSTB

BNE
MOV

108:

4C)

8&%?%60&9&
£ PREV AND CURRENT COMMANDS

MOV

4§:

047154
003123

PC,CTLOUT
DONE
Pc STRCMD

SR
CRe

MOV

0oooo4

0 IO 000 00T 00 030 3606 0 3

BEQ
DEC
BNE
TST
ggnon
CMP

BR
MOV

RTS

sabs J8ERRVEC

ass
R3, RY

ssr Pnnnn BLK RDDRESS

:SET TIME-OUT VECTOR ADDRESS
;CALL WATCH DOG

:BR
JGET COPY OF R3

1os
38160000
ééé

:BR IF TIHER =0
'DECREMENT TIMER
'BR_IF NOT DONE TIMING
:REFERENCE NON-EXISTENT MEMORY
:“NO NEM WHEN EXPECTEDTM

(SP)+, (SP)+

;RESTORE THE STACK

RETURN

12&

6%
86, I8ERRVEC

*KEEP WAITING FOR COMMAND COMPLETION
!RESTORE TIME-OUT VECTOR

i 396 36 36 6 3 3 3 36 3 36 3 36 36 36 3 3 3 36 36 96 3 36 36 3636 36 36 3 26 36 36 3 3 26 36 3 3 36 26 06 3 3 3 26 36 06 3 36 36 36 36 3 3 3 4 3 3 36 3 3 06 B

CZRENDO RKB11-06 SS VERIF 2
CZREND. P11
10-JAN-78 10:0S

D14

MACY1l 30RA(1052)
10-JAN-78
12:02
PAGE 173
CMPBUF - SOFTWRARE COMPARE DATR

8754

8?22

; #INCRMA - INCREMENT MA BY WORD COUNT IN P.WC(RS)

Q41052

7
8760
8761
8762
8763

1
041064
041066
041070
041072

8757
37?3

8764
8765

8766

8767

8768

8769
g;;?

041054
8:1822

041074
041076

041100

041104

041110

041114
091116

uu"nnin“lnnnun!unuu!nuunuiuuuuuuun

104407

005001
6

1
005201
000401
00S400
000241

006100
006101

060037

005537
060137

104410
000207

tACRMA: SAVREG
CLR
MOV

ooogi2

4g:
6S:
005600

005602

8774

8779

ADD

RG,MA

ROL
ROL

RO
R1

ADC

MAde

RESREG
RTS

R1,MA+2

041120
041120

:ADD IT TO COMPUTE NEW MA
:RESTORE RO-RS
'RETURN

004737

Y111z1222222222x222z2z22x22222222222:x2:t222232T2222
2222222222222 22

héDBSF:

032310

841193
0411

000004

oxa;ss

173408

ooooig

000002

000004

R°3B
1879
BEQ

PC, INITSS

- INIT THE s

o ;§CK(RS)
gfignhr
68

ssrFRC?ORY Ssr SECTOR LIMIT

wB.CEMILE.CSINIRS)
Smée%fifinfis’
LSTCYL
P.CYLN(RS) T Aen
E?
63271456
-

INCB
INCG

P.SECT(RS)
R3

8790 Buis08 Bisck3 B9VSEY BRSBAC es.
8794
84152& 185737 80514
8795 041232 001413

MOV
{gfa
BEQ

MEBECNO:A:
NSEPLG
128

8797

CMPB

P.SECT(RS),R3

o:ix7w

JSR

BIce
ngv

8;83 841120
03%%“3 ?65739
112;65 888?é§
000002 000005
8785
8786
041164
001403
g;gg

:GET _WORD_COUNT

'BR_IF NOT 65,536(DEC)
'SET HI BIT
CONTI NUE
:GET TRUE WORD COUNT
:DOUBLE THE WORD COUNT TO GET BYTES

i§gggsgs— R§no FACTORY BSF INTO BSFACT, AND READ SOF TWARE BSF

8781
041133 615722
115762 009157
009001
3
gé 84%148
82864 888802

8787
8788

4¢
R1
6%
RO

; SAVE RO-RS

o 363636 36 36 36 36 36 36 3 3 36 36 3 3 3 3 36 3 36 36 36 36 3 3 36 3 3 36 36 36 3 36 36 3 3 3 3 36 3 3 3 3 3 3 3 36 3 3 3 3 3 3 3 3 3% 3 3% % ¥ % %

g;;g
8778

R1
P.WC(RS),RO

BNE
INC
BR
NEG
cLC

ADD

8772
8773

8777

SEQ 0172

X ¥

[

8796

041234

8798

(41246

062765

Q41242

68632

000004

8799
8800
8801

Q41250
041254
041256

004737
104120
000137

043720

8804
8805

Q41274
(041300

012703
105737

000026
003125

8807

041306

012703

000023

105037

003140

nog

;BR IF 22 SECTORS

:SET STARTING FARCTORY BSF SECTOR NO.

8- ”?ng ”C(Rféta SET uononcggur zgg secgon

82.P. ?ECT(RE

ééri ERmoB HARBLER FOR B8P READ
E
EN E 3
BR xr NOT
g CK NEXT §EE
e gr
anx

XCEEDED YET

BNE

8802 041262 012765 003224 000010 12%:
8803 041270 110365 (000004

MOV
MOVB

ssor. BQLO(RS) SET BA on so unne RECORD
R3,Psstr(n ss? nnrxnc SECTO

8806

BEQ

041304

nox

]

001402

10$:

046150

8808 041312 012737 041364 003046 14%:
8809

041320

JSR
ERROR
JIMP

PC,REPSUP
120
Hb

cnrnen STQTUS FOR PRINTOUT
neonrxnc- ano asr REARD
HALT- CAN’T
E;

MOV
TST8

822. R3
FORMAT

g
MIT
sss 1 ee secro FORMAT

MOV

naosCHo A. ABNL éer ERROR HANDLER FOR BSF READ

MOV

CLRB

145

WCEFLG

ET ao sscron LIMIT

INIT THE ERROR FLAG

CZRBENDO RK611-06 SS VERIF @2

CZREBND.P11
8810
8811
88l
8813
8814

8815
8816
8817
8818
8819
8820
8821
8822
8823
8824
8825
8826
8827
8828
8829
8830
8831
8832
8833
8834
8835
8836
8837
8838
8839
8840
8841
8842
8843
8844
884S
8846
8847
8848
8849
8850
8851
8852
8853
8854
8855
8856
8857
8858
8859
8860
8861
g8be
8863
8864
8865

041324
041330
Q41334
041336
041344

Q41350
041352
Q41354
041362

10-JAN-78 10:0S
004737
10S737
001407
062765
126503
003760
000736
012737
000207

MACY11

389(1052)
MPBUF -

Q4254e
003140
000002
000004

000004

044200

003046

El4

10-JAN-78
12:02
PAGE 174
SOF TWARE COMPARE DATA

JSR

PC,DRVCAL

CMPB

QECT(RS),R3

1578
BEQ
ADD

168:

;READ THE SOFTWARE BSF

WCEFLG
1ss
SECT(RS)

BLE
BR
MOV
RTS

SEQ 0173

‘SEE IF nnv ERRORS
'BR _IF NOT
;CHECK NEXT SECTOR

1
os
oERRHoL,n.neNL
PC

;SEE IF LIMIT EXCEEDED YET

:BR IF NOT YET
:REPORT ERROR AND ABORT
:RESTORE ERROR HANDLER RDRS
;RETURN

; #THIS IS THE ABNORMAL DRIVER RETURN HH%CH IS USED TO HANDLE

041364
Q41372
041374
Q41400
041404

032765
001002
000137
105237
000137

130600
044200
003140
046356

000034

: #POSSIBLE ERRORS IN READING BRD SEC
QDSCHD BIT
8BSE'HVRC!DTE!OPI!DCK,P. ER(RS) :SEE IF ANY READ ERRORS

4s:

,a I#A READ shRoa OCCUR ED

INCB
IMP

WCEFLG
RE TNML

'SET ERROR FLAG
:TAKE NORMAL DRIVER RETURN

JMP

Bt bbbtttk Bt

ERRHDL

:GO HQNDLE OTHER ERR

bt bttt Rkl St

Sudadetod-fobal ool fodofodfotobobobobodbabobbofobodukedald
kel

iTYPBSF - TYPE FRCTORY AND SOFTWARE BRD SECTOR FILES (BSF’S)
:#W]TH_THE CYLINDER, TRQCK AND SECTOR NO. OF EACH BRD SECTOR

*EIS;EDSSEPRRRTELY
041410
041412
041414
041420
Q41424
Q41430
O41434
041440
QO4id4e
Q41444
041%98
041450
Q41452
(Q4i4S6
Q041462
Q041464
041466
Q41470
O41474
041476
041500
041502
Q41504
Q41506
041512
Q41514
041516
041520
041524
041526

104407
00S004
012700
104401
104401
104401
104401
00S00l
005710
100007
005701
001032
104401
104401
00042S
012046
104402
104401
011003
105003
000303
010346
104402
104401
111003
010346
104402
104401
005720
005201

A YABLE OF

OCTAL VALUES, FOR ERCH OF THE

o 3636 3 3 3 36 3 3 3 36 36 3 3 3 3 3 3 3 3 36 36 36 3 3 3 3 3 3 36 3 36 3 3 3¢ 2 3 3 3 3¢ 3 3 3 3 3 3% 3 3 3 3 A 3 3 3% 2% 2 ¥ X % K% %X

+paSF : gnxnec
004234
OllleY4
0l1l2ll
063743
00i31S

3%:
4§:

8%:
013313

MOV
TYPE
TYPE
TYPE
CLR
TST

"§CRLF
Rl
(RO)

TST
BNE

R1
148

g;PE

SgRLF

'SEE IF FILE IS EMPTY
‘BR IF NOT EMP
; TYPE “NONETM
TYPE (CR>, <LF»

MOV

(RO)+,-(SP)

GET A ch NO.

TYPE
MOV

SPRCE2
{RO),R3

TYPE SEPARATORS
'GET TRACK AND SECTOR

TYPE

8pPL

TYPE

0l1231
001315

TYPOC

CLRB

SWAB

MOV
013313

001315

: SAVE RO-RS

RY
#BSFACT+10,R0
,FACTBS
'BDSECT

TYPOC

' DHEO0Y1

,NOFALS

. R3

R3, -(SP)

TYPE
MOVEB
MOV

SPACE2
{RO),R3
R3, -lSP)

TYPE

SCRLF

INC

TYPOC

TST

‘ROY+

SINIT BSF FILE INDICATOR
:ADRS OF DATA IN FACTORY BSF
:TYPE “FACTORY"
:TYPE ~BRO SECTORS"

"CYLNDR

STYPE

TRACK

SECTOR"

s INIT LIMIT COUNTER
,sss IF A SECTOR LIS ED HERE

!BR IF YES

YPE

:GET THE TRACK NO.
sTYPE

:TYPE

: TYPE SEPARATORS
‘GET SECTOR NO.
: INCR THE POINTER

:INCR THE COUNTER

CZRENDO RKE11-06 SS VERIF @
10-JAN-78 10:05
CZRB6ND.P1 1
8866
8867

g41530

0c01e?
002742

MACY11l

F1Y4

CMP

000176

148:
003234
011177

18%:

104410
000207

SEQ 0174

30A(1052)
10-JAN-78
12:02
PAGE 17S
CMPBUF - SOFTWARE COMPARE DATA

BLT
TST
BNE
INC
MOV
TYPE
BR
RESREG
RTS

R1,#126.

4§
RY
18%
RY
#BSSOFT+10,R0
SOFTBS
i3
PC

:SEE IF LIMIT REACHED IN THIS FILE

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

< J6 363633 3 3 36 36 3 3 3% 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 9 3 3 3% 3 3 3 3 3 3 3 3 % 3 3 3 3 I I

W K % 3 % 3 X% KK ®®E

ir:nnen - COMPUTE NO. OF WORDS XFERRED ON PRRTIAL XFER
'%(TERMINATED BY BSE ERROR), AND STORE IT IN WDSXFR.

Q41562

000002
000005
000004

.:Luxu&yunnuwun-c
Lo
Lo
oL
oo

000000000000
frrfrrrL
Lk

041602

000030

l*liillllllilillli!llllll‘!llllllllll!ll!illlli!li!llll!!*llll*
FINMEM: SAVREG
:SAVE RO-RS

63:

000027
000026
041646

104410
000207

00SSe4

8%:

12%:

MOV
MOVB
MOVB
CLR
cMP
BNE
cMP8
BNE
cMPB
BEG

P.CYLN(RS),RO
P.TRCK(RS)'R1
P.SECT(RS),R2
R3
P.DCYL(RS},RU
8s
P.DTS+1(RS),Rl
8s
P.DTS(RS),R2
129

:GET onxc CYL NO.
:GET_TRACK NO.
iSECTOR NO.
$INIT SECTOR COUNT TO O
COHPQRE ORIG AND CURRENT CYLS
{BR IF
NOT EQUAL
COHPRRE TRACKS
:BR IF NOT_EQUAL
; COMPARE SECTORS
{BR IF ADRS ARE EQUAL

INC
JSR
BR

R3
PC, INCRSC
6%

; INCR SECTOR COUNT
;INCR PACK ADRS BY 1 SECTOR
; GO COMPARE ADDRESSES

MOV
RESREG

R3, WDSXFR

iSTORE IT
;RESTORE RO-RS

SWAB

RTS

:COMPUTE_NO. OF WORDS XFERRED

; RETURN

o 3636 36 3 36 36 36 36 36 36 36 36 36 36 3 36 36 3 36 36 3 36 36 36 36 36 36 36 3 36 36 3 36 36 36 36 3 3 3 3 3 3 36 3 3 3 3t 36 3 36 36 36 36 36 36 3 36 O 06 2 o 3 2

'iINCRSC - INCREMENT PACK RADDRESS TQ NEXT SECTOR

; #THE CYLINDER IS PRSSED AND RETURNED IN RO,

,!IN R2.

(D 0 00 00 0D 0D GO (D 00 0
DD OO DD DDOD
mm....—p—p......—..—p—
—O0woDNCNLWN

041646
g41652

000025
003125

000023

000002

Q41704
041706

005200

TRARCK IN R1,

AND SECTOR

*l*ll!!ill!ll!ll*!lllllll!l*!&lllll!lllllll!!lll*lllil}*ii!l!l*

thcrRsC: MOV

Ys:

TSTB
BEQ
MOV
INC
CMP
BLE
CLR
INC
CMP
BLE
CLR
INC

#21. . RY

FORMAT
4g
#19.,RY
R2
R2, R4
68
R2
RI
R1, %2
X
R1
RO

;SET SECTOR LIMIT

'SEE IF 22 SECTOR FORMAT
‘BR IF YES
:SET SECTOR LIMIT
:INCR. SECTOR NO.
:SEE IF secroa LIMIT EXCEEDED
N
'BR IF
ISET sscron 0
:INCR. TRACK NO.
sse IF TRACK LIMIT EXCEEDED
R IF NOT
ssr TRACK = 0
:INCR. CYLINDER NO.

CZRBENDC RKB11-06 SS VERIF 2
10-JAN-78 10:05
CZREND Pll

041710

MARCY11l

G14

12:02

PAGE

CMPBUF - SOFTWARE COMPRRE DRTR

6S:

000207

10-JAN-78

30A(1052)

$ 3

SEQ 0175

s RETURN

RTS

176

0I00 000

0000

200 3000

:#MIDXFR - MID-TRANSFER PRRAMETER UPDATE SUBROUTINE

o
n
(=]
n

s
e
s
s Pt
s et

NN NNNNNNNNNYN
oo
£ £ WY
s—r
£0 LOL0OLO0L£0
LV

DOQO?DDQOO
L£fLLrrr

b Pt Pt Bt

Qo
£t

MiDXFR: SAVREG
JSR
MOV

Q41562
000030
000027
000026
041646
000002
000005
SBOOOH
S564
000400
ocooie

PC, FIHNMEM

P.OCYL(RS)

P.DTS+1(RS
P.DTS(RS),
PC, INCRSC
RO, P.CYLN(
Rl,P.TRCKE

; SAVE RO-RS
; COMPUTE zg.

OF WORDS XFERRED

'GET SECTOR NO.
: INCREMENT PACK ADRS TO NEXT SECTOR
:UPDATE CYL INDER
i UPDATE TRACK
UPORTE SECTOR
NG. OF WORDS XFERRED
'EEY
;SKIP BAD SECTOR
; UPDATE P .WC(RS)
'GET BYTES XFERRED
; UPDATE PMA,PMA+2

P.BALO(RS)

000010

057732
104410
000207

031646

; UPDARTE P.BARLO(RS)

PMA+2 . RO
%177774 RO
RO,P.BANHI(RS)
sutii

; UPDARTE P.BARHI(RS)
; SEE IF MEM MGT

'RESTORE RO-RS
' RETURN

169
PC,PREPAR

16%:

:UPDATE MEM MGT AND UNIBUS MAP

ERRAE RN

: kSYPRMS - SAVE INITIAL PARAMETERS FOR TRANSFER
< 2060060600600 3600 36 0 0

002632
005552

:¥GTPRMS - RESTORE SAVED TRANSFER PARAMETERS
Q42052

005606
005536

042132

R R

IN PREPARATION TO RESUME R TRANSFER

005604

042046
042050

R R

P
; #THIS SUBROUTINE UPDRTES PMA PMA+2 MEM MGT REGS,UNIBUS MAP,P.BALO(RS,,
: %P, BAHI (RS),
' TERMINATED BY A BAD SECTOR ERROR (BSE).
o o 36363636 26 36 36 36 36 38 36 38 38 38 36 36 36 36 36 36 36 36 36 36 3¢ 36 3 36 96 3 38 36 3% 36 3 30 36 38 3 3 3 36 36 3 36 3 36 36 36 36 36 30 3 36 3 3 3 2 3 e R

AND P.WC(R5),

104407
004737
016500

005600
005602

&(PRMS: SAVREG
005S64

00S604

005604
D00s&06

MoV
MOV
MOV
NEG
MoV
CLR
TST
BEQ
MoV
MOV
BR

00 0 0 0

0 U6 000N N MR
:SAVE
RO-R

SPARMO+2, RO

$SAVPRS, R1
P.WC(RS}, WDSXFR
WOSXFR
D
$RWBUF
, PMA
PMR+2
PATRN
GT0
MA ., PMA

MAte, PMA+2
GTO

Egong 09 Pgnnns

RNNN R

s MAKE I? 2081¥1vs

RERRRRERE LR

*INIT PMR TO RWBUF
:INIT PMA+2 TO O
'SEE IF DEFAULT DATA TEST
'BR_IF YES
; SET PMA=MA
:SET PMA+2=MAR+2

CZReENDO RK611-06 SS VERIF @2

CZR6ND. P11

10-JAN-78 10:0S

MACYL11l

30A/(10S2)

GTPRMS:

BaBL Bi5id8 Bisgsy

0:2142

012701

8983

0:2{54

80?392

88888%

12:02

PRGE

CMPBUF - SOFTWARE COMPRRE DRTA

5333 BflfiigsY 6?2?86 00SsSe
8980

10-JAN-78

3335 845128
184418
o42162 000207

SAVREG

MOV

; SAVE

BReSSRoe

(RovE A woRD

OPRR20+? R1

ogc

SEEREG PC

ggfls

RTS

8¢ 38
8989

SEQ 0176

#SAVPRS RO

nox

177

;2 RO-RS
09 SAVE ARER

;Sg §F Pnsgggs

; SEE gFNggNE ;ET

EES
ORE RO-RS
RETURN

833?

; lill&llllllillli!*i*ll!illllli!!l!!l!lilli!l*il*lllllll!liil*l!

89392

lENCOUNTER D. E gonnnng UBT BELS IN THE PARAM BLK

THIS SUB—

4$:

JSR

PC DRVCAL

3009
140 .
3882 032206
BussiR 001;0;
A4sodc BBRRRY B8RS

EESB
EYY

.és SR REcoor

g
E RR RRROR" GCCURRED
i2E{1 H?

3004

INC

INCR BSE ERROR INDICATOR

iTRNSFR - PERFORH DATA TRANSFER,

993
qgy
8995
8996
8997

Q42164
(042166
845170

8999

(042200

83398

S005

42174

042224

SHESSB

010446
(005004
185 37

(004737

032737

000100

00S474

001406

805284

e B45839
Hek BB3ses
dr
3009
9008 04222 005704

3033
00&;1% Bushdd
Y Y
817 03223“
BusEd8 BR4ZES

6%:

90%% D:E?SS 008?37 057732

3814 Q42270
BHSSEH 6849g;
031646
012604

3015
38{9

Quee7e

000207

9018
9019

9020

*ROUTINE IS SuBS
UTED FOR DRVC
WHEN BAD SECTORS MUST BE HANDLED.
llilll!ll!lililllllll!l!ll{liI!*llll!ll!lll!%li*lllillllllllii*
tANSFR: MOV
RH ~-(SP)
;SAVE R4 ON STACK
CLR
H
CLERR BSE ERROR INDICATOR
CLRB
b
éN&T
WCE ERROR FLRG T? 8

003140

(042542

RNO HANDLE BAU SECTORS,

8%:

BIT

BEQ

uuCERR RECODE

ERF

5.5. FUNC

SEE IF UCE ERROR OCCURRED
BR IF

LR
BRE
TST

SEE IF RNY BSE ERRORS OCCURRED

TgT

SEE IF HEM MGT PRESENT

?ES
328

g
GTPRM
& SURRM

?S
MOV

gg
PREPAR
(SR)+ RY

RTS

SKTll

TR
R
R

B
TORWDSAFR
ORI INA PMA.P
PRRRMS OF XFER
RESTORE

ERE;RRE
MEM MGT AND U.M.
RESTORE RY
RETURN

!*iilll!!l!!llll!llllil*l*!}lilll!lilli{lll!illi!!lll!!i{il!l**

9021

SBTTL

023
3024

lTHE SPECIFIC TABLE (BAD SECTOR SOFTWARE OR BRD SECTOR FACTORY)
iFOR THE SPECIFIC CYLINDER AND TRACK DESIRED. RO AND Rl MUST

90e2

gggg

iCONTRIN THE CYLINDER AND TRRCK, RESPECTIVELY.

027
9028
3029
3030

9031
3032

3033

SERRCH BAD SECTOR TABLES ROUTINE

; #THIS ROUTINE RETURNS A LIST OF BRD _SECTORS FOUND IN

;THE LIST OF BAD SECTORS IS FOUND ON THE STACK WHEN THE ROUTINE
iRETURNS TO THE CALLER. THE FIRST ENTRY ON THE STACK WILL BE THE
!NUMBER OF BAD SECTORS FOUND FOR THIS CYLINDER AND TRACK.
Q42274
042300

042304

010237
010337

012637

001266
001270

001272

< 30266 3636 366 36 06 06 36 06 36 96 36 96 36 36 36 36 36 36 36 36 36 36 36 36 3 36 36 36 06 36 36 36 3 36 36 36 3 36 36 36 36 36 3 38 36 3 96 36 96 30 36 3 3 36 3 3 2

S HTBS: MOV
MOV

MOV

R2,3TMP2
R3' §TMP3
(SR)+ STMPY

:STORE RETURN CONTENTS OF R4

ZRENDO RKGE11~ 0 & S S VERIF 2
1 0- J AN-78 10:0S
pZRbND Pll

Q42310
Q4e3le
Q42316
Q4e3a4
Q42326

011402
11
012437
1
062737
005003

Q42332

Q42334
Q42336
042340
o4e34e
Que346
Q42352
O42354
Q42356
042360
Q42364
Q42372
042376
042400
Q42402
042404
042406
o42410
o4c41Y4
042416
Q42420
o4242y4
042430
042434

golaeY
001000

MRCY11l

#1000, srnp1

BMI

5§

3%:

177700

S§:

RO, (R2)
33
#4,R2
R2.STMP1
c§
18
(R2)+
(R2),$TMP10
#174377 $TMP10
sTMP10+1 | R1
4$
(R2)+
13

TEST IF BAD SECTOR IN PRESENT CYL
YES-GO CHECK TRACK
'ELSE BUMP POINTER
:TEST IF OUT OF TABLE
PYES-EXIT
:LOOP
:TRACK CHECK - PUT POINTER AT TRK/SEC BYTE
'GET TRK/SEC WORD
:CLEAR ALL BUT TRACK
:CHECK IF BAD SECTOR IN THIS TRACK
IYES - GO PUT SECTOR NUMBER ON STACK
‘ELSE BUMP POINTER TO NEXT CYL WORD
"GO TEST NEXT CYL

(R2)+,-(SP)
2177760, (sP)
18

'PUT TRK/SEC WORD ON STACK
*CLEAR ALL BUT SECTOR NUMBER
:G0 CHECK REST OF FILE

MOV

R3,~(SP)
§TAP2, R2
$TMP3,R3
§TMPY. - (SP)

RTS

:CLEAR R3 FOR COUNT

:SET R2 FOR POINTER TO CYLINDER ENTRY
TEST IF ALL ONES

MOV
MOV
MOV

:SETUP FOR LENGTH OF BAD SECTOR TRBLE

#10,R2
(P2}

INC

MOV
BIC
BR

SEG 0177

178

:GET ADDRESS OF BfD SECTOR TABLE TO SEARCH

(R4)+,$ THP1

CLR

CMP
BEQ
ADD
CMP
BGE
BR
TST
MOV
BIC
CMPB
BEQ
TST
BR

4§:

013746
000204

ADD

18:

001302

001266
001270
0ol127e

(R4),R2

ADD
TST

000004
001eceH4

001302
174377
001303

MOV

0ol12eM

000010

Il4

10-JAN-78
12:02
PAGE
SERRCH BARD SECTOR TRBLES ROUTINE

30R(1052)

YES-DONE

:BUMP_BRD SECTOR COUNT

JEXIT - PUT NUMBER OF BAD
*SECTORS ON STRCK-RESTORE
:REGISTERS
:PUT RETURN ON STACK

ETU RN

: iIv'l*lllll‘lllflllI'lI'I'll'll'lli!fllllill!illllilllllli}iii*llll*illlil
"48TTL BAD SECTOR CHECK ROUTINE

,#THIS ROUTINE WILL SEARCH BOTH TRBLES TO DETERMINE IF
A
;SPECIFIC SECTOR IS LISTED RS BAD. IF THE SECTOR IS LISTED

;¥TABLES THE ROUTINE SETS THE “BADSEC* FLAG AND RETURNS.

i#IS NOT LISTED THE FLAG IS RESET

O42436
042440
042446
o42452
Q42454
042456
o42460
042466
Q42470
042476

104407
012737
004437
000000
012603
001015

Do4224
042274

p42452

o42452

00324

003224

042452

001000

DOS474

BhSReK
29:
19:
7%

snvnsc

#BSFACT,

R4, SRHTAS
(SP)+,R3
68

1§, 88SSOF T
33
ggssorr,1s

3%:

#BADSEC, RECODE

69:

PC
(SP)+,R2
88
R3

4s:

042532

005303

001000

00SY74

#BARDSEC, RECODe
R3

IN THE

IF THE SECTOR

R R R

:;SET TABLE TO SEARCH

:G0 SEARCH IT
!TABLE RDDRESS GOES HERE
PGET NUMBER OF BAD SECTORS,

*IF ANY,

GO TEST WHICH ONES

IF ANY

%%SEEEQETI%F OTHER TABLE RLREARDY SEARCHED
'SET OTHER TRBLE FOR SEARRCH
"GO SERRCH IT
:CLERR BRD SECTOR BIT
8IT

DECRENENT BAD SECT.R COUNT
:IF_NOT ZERO-CHECK NEXT ENTRY
{ELSE GO SERRCH OTHER TRBLE
;SET BAD SECTOR BIT
:CLEAR STRCK OF OTHER BAD SECTOR

CZRENDO RKB11-06 SS VERIF 2
CZREND. P11
10-JAN-78 10:0S
9090

9091

9092
9033

042534

042536

042540

J14

MACY11 30R(10S2)
10-JAN-78
12:02
BAD SECTOR CHECK ROUTINE

PAGE 179

001764

BEQ

4§

: NUMBER

000774

SEXIT

TST

005726

3095

(5P)+

22
X 2112222122222 2%2232z2222222:122222X22X222222X2X22222222222222222

9096

9097

*4BTTL

3038

CALL DRIVER ROUTINE

iENTRY JSR PC, oncn

9099

WITH RS POINTING TO PRRAMETER BLOCK

gigg

!RETURN RTS PC

9102
9103
9104

nruxs ROUTINE IS USED TO INITIATE R SUBSYSTEM OPERATION BY
*%CALLING THE DRIVER. THE PARAMETER BLOCK MUST BE SET UP
:%xBY THE CALLER AND RS MUST POINT TO THE PRRAMETER

9107
9108
9109
9110
9111

ITHIS ROUTINE WRITS FOR THE OPERATION TO BE COMPLETED.
:#WHILE WAITING THE WATCHDOG TIMER IS CALLED TO PREVENT
:%SILENT DERTH IN CARSE THE SUBSYSTEM DOES NOT PROVIDE AN
' *INTERRUPT. THE TERMINATION HANDLER ROUTINES WILL SET THE DONE
! %FLAG WHICH KEYS THE ROUTINE TO RETURN TO THE CALLER

3{82

9l12

9113

!BLOCK WHEN THE ROUTINE IS CALLED.

042542

9114

Q42542

9117

042554

9115
9116
9118

9119

9120

lil*lll!l!!l**illil!liill!!l!!lllllillllliil!l!liil!llll*i*l»l»ll

104407

042544
042550

004737
004737

(042560

105037

042564

BAVCAL:

035604
037404

105037

0063123

004737

0O42B22

003136

3121

9123

3124
9125
9126
9127
9128

042570
042572
042576
042602
042604

000240
010537
004737
000000
004737

9130

042618

001773

042620

000207

9129

9131

gigg

042610

042616

105737

047154

003123

104410

9136

Q42622
042624

104407
012701

9143

Q4264

012021

042640

012021

9144

9145

gIcs

BEQ

CL ¥

NOP
MOV
JSR
. WORD
JSR

TSTB

4g:
63:

8ISB
1578

BEQ

RESREG

RTS

PC, STRCMD

:PERFORM A STALL IF REQUIRED
:CHECK FOR (?C) OR (1Z) KBD INPUT

:CLEAR DONE FLAG

:CLEAR DRIVE sxszso BY OTHER PORT FLAG
STORE PREV AND CURRENT COMMANDS

%8’ CDT P. csxucnss CLEAR THE RKO? DRIVE TYPE BIT

TYPFN

.CURPENT DRIVE IS AN RKO7 ?

RS, 4%
PC.C.INIT
PC,W.WTCH
DORNE

GET PARAM BLOCK ADDRESS
JCALL DRIVER
'P.B. ADDRESS GOES HERE
PCALL WATCH DOG
oons SET?
NO-LOOP
RESTORE RO-RS

IF NOT
#B.CDT,P. CSlH(RSiBRANCH
sSET THE
RKO? DRIVE TYPE BIT

: YES-RETURN

isrncno - STORE PREVIOUS AND CURRENT SUBSYSTEM COMMANDS

9139
9:i40

9I4]
9142

DRNAFG

DORNE

: SAVE RO-RS

; o 36 3 36 36 36 36 35 3 36 36 36 3 36 3 36 36 3 3¢ 36 36 3 3 3 3 26 3 3 3 3 3 J 3 J 26 3 3 3 3 3 3 3 3 3 3 3 3 2 3 3 3 3 3 3 3 % 3 3 2 3 X X %

9137
9138

CLRB

128:

3i3e

PC,STALL
pPC.CTLOUT

JSR

042602
052604

ISR
JSR

CLRB
:

9122

SAVREG

042630
_
042636

012700
012021

o 3636 26 36 3 36 36 36 3 36 96 3 3 3 36 3 3 3 3 3 3 3 3 3 33 3 3 3 3 3 3% % 3 3 3 3 3 3 3 3 % 3 3 3 3 3 % B A 3 3 2% % %W WX W ® X2

00S224
005240

&tRCMD: SAVREG
MOV

#PRVCMD, R1
MOV
#COMSTR. RO
: STORE PREVIOUS COMMAND'
MOV

MOV
MOV

(RO)+, (R1)+

(RG)+. (R1>+

(RO)+. (R1)+

:SAVE RO-RS
*ADDR OF PREV COMMAND STORAGE

:ADDR OF CURRENT COMMAND STORAGE

SEQ 0178

CZRBENGO RKB11-06 SS VERIF 2
CZREND. P11
10-JAN-78 10:05
3146
9147
9148

Q4ae42
Q4e6dd
042646

012021
012021
012021

9150
9151

Q42654
Q042656

001414
013737

9149

(042650

105737

9152
9183
9164

Q42664
042672
042700

013737
013737
013737

9157
9188

0OM27i2
Q042714

012521
012521

9185

9166 042706 012701

MACY11 30R(1052)
10-JAN-78
CALL DRIVER ROUTINE
MOV
MOV
MOV

003143
005262

005260
170202
170200

005240

005254
005262
005260

4+, (R1)+
(RP
G oL+ (R1)#
WRO)+. (P1)+

UBMPRS

MOV
MOV
MOV

CRMPLO' PRMPLO
38sMAPHO0, CRMPHO ; STORE CURRENT U.B. MAP REG O
J#MAPLOC. CRMPLO

MOV
MOV

(RS)+, (R1)+
(RS)+, (R1)+

MOV

8COMSTR,R1

012521
012521
012521
012521

MOV
MOV
MOV
MOV

(RS)+) (R1)+
(RG)+. (R1)+
(RS5)+. (R1)+
(RS)+) (R1)+

9164

042730

000207

RTS

9165

104410

RESREG

sies
9168

9169
9171

DRIVE ERROR FREE RETURN ROUTINE

' %HAS BEEN DETECTED IN THE OPERATION. THE ROUTINE SETS THE

Q42732

152737

3177
9178
9179
9180
3181

042746
042750
Q42754
042756
042762

001403
105037
000413
105737
001410

183

082770

113737

000377

003123

9176 042790 032737 100000 005474

9184
9185
9186
9187
9188

' Re.TURN

:ggnslrénc THAT IS TESTED IN THE DRIVER CALLING

3175

9182

;RESTORE RO-RS

:%¥THIS ROUTINE IS CALLED BY THE DRIVER WHEN NO_ERROR

gi;g
Q174

:RS POINTS TO DRIVER PARAM BLK

1122222212222z 22222222222:x2222X222222222222 22222222222 L

*88TTL

8170

1BR_IF
NOT
:STORE PREV U.B. MAP REG O

STORE CURRENT COMMAND

Q42716
042720
042722
04e724

042726

:SEE_IF UNIBUS MAP PRESENT

qs
CPMPHO,PRMPHO

3189
9160
9161
9162

3163

PAGE 180

1578

BEQ
MOV

005256

K14

12:02

042764

042776
043000
043004
(043010

005037

104101
105037
(005037
000207

!*lli!!!l!l!l!l*il!il!l!iilflllllllllllfllll!lillli*ll*l!lllil!!!!l

ERRFRE: BISB

BIT

003126

003126
001174

003126

2%:
001174

003126
005474

9189

CLR

MOVB

DONE

:SET THE DONE FLRG

onuvbsn RECODE :TEST IF ANY oarn ERROR

2%
ERRCNT
1$
ERRCNT
s

:IF NO - DO ERROR RECOVERY PRINT TEST
;CLEAR ERROR COUNT
TEXIT
:CHECK IF ANY ERRORS HAVE OCCURRED
INO - SKIP TO EXIT

ERRCNT, SREGS

:GET RETRY COUNT

$REGS

ERROR
101
:PRINT RETRY SUCCESSFUL MESSAGE
CLRB
ERRCNT
'CLERR ERROR COUN
18:
CLR
RECODE
CLERR RECOVERY ancS
RTS
PC
*RETURN
llil!!!*lll!i!li*l!llflll*!!!!llill*ill!ll*!lilli!i!ili!llill*lll
*48TTL

9130

BEQ
CLRB
BR
7518
BEQ

#8377,

TYPE ERROR ROUTINE

: XENTRY -

JSR

*RETURN -

9133
9194
gigg

iTHIS ROUTINE USES THE "ITEM CONTROL BYTE” (SITEMB) YO DETERMINE WHICH
!%ERROR 1S TO BE REPORTED. IT THEN USES THE "ERROR_TABLE® (SERRTB)
*%EERERQSRDEFI”E WHAT INFORMARTION IS TO BE REPORTZD CONCERNING

9197

9198

Q43012

104407

3200

043020

032737

9199
3201

Q43014

105237

003130

000040

pc’

]

o 3636 36 36 36 3 3 3 3 3 3 3 36 3 36 36 36 3 36 3¢ 36 3 3 36 3 3 36 36 36 2 36 3 36 36 36 3 36 36 36 36 3 3 3 3 3 3 3 3 3 3 3¢ 3 3% 3 3 3 3 3 3 3 3% 3¢

$4PERR: SAVREG

005702

RTS

PC, TYPERR

gigé

INCB

BIT

DRVERS

#BITS,CS

; INCR ERROR COUNT FOR THIS DRIVE

'SEE IF DRIVE SHOULD BE DROPPED
:~

IF ERROR LIMIT EXCEEDED

SEQ 0179

cznsnoo RKSll 06 SS VERIF 2
CZREND.P11
10-JAN-78 " 10:05
9202

043026

03J1412

3205

Q43040

105037

9203
9204
gaog

043030
043036

:3043

123727
002406
10440;

003130

MACY1l 30R(10S2)
10-JAN-78
TYPE ERROR ROUTINE

000024

01;051

9588 8438?4 883*97 850888 136056 9%:
9209
9210

043062
043064

001402
000137

9212

043072

005005

9214

0430676

3211

3213

9215

043070

043074

Q43102

005000

005105

113700

005300

043470

043104
o:ai?s

006300
086300

9220

043116

012037

043136

9222

043124

104401

013277

9518 84 118 8&3988 001400

9223
9224

043122
043130
84 134

001406
104401
104401

9228

043146

104401

001315

qsgo

Sq 122

013746

001102

3232

0OM31LM

9229
9231

9233

043152
0431

Q43165

104401
10940

ngu;a JSWR

INH?E§9 SROE TYP ourg

:CLR RO FOR ERROR NUMBER

BEQ
JMP

CLR

043200

001133

9238

043206

3241

043

9239
9240

043202

104401

BEQ

'BRANCH IF THERE ISN’'T ONE

TYPE
TYPE

' RS2SP2

w0
BEQ

104401

001315

12701

DO0006

043212
Sqagés

104401
04401

3243

(043232

012246

9245

(043236

104401

9242 043226 012702 001236
9244

0432349

104402

3246

043292

005301

9248

043246

104401

9247

Q043244

001372

9249
3250
9281
3252
9263

Q43252
043256
043262
043266
Q43272

104401
104401
104401
104401
012246

89255

043276

104401

9254

9256
3257

Q43274

043302

043304

104402

011246

104402

013313
001315

G§13313
063332
001315
013313
013313

. SCRLF

TSTMSG

.BYTE

'GET EM POINTER

sTYPE “x% TM
'TYPE ERROR MESSRGE (EM)

jEN
SE POINTER
P 2&5GOES
isn'THERE
ONE
TYPE *

TEST

GETT§§T NO. ON STARCK

;

a orcx S

!SUPPRESS LEADING ZEROS

BNE

208

? é 52

TYPE

' §CRLF

MOV

uskscas R2

srnnrznc ADDR OF PREV CMND VALUES

SPACE?2

TYPE EPanTopg

TYPE

TYPE
TYPE

308%:

Jrore,us
S$
§7STNM, - (SP)

.BYTE

063253
801315

,CR2LF

MOV

TYPOS

063110

:ENTER ERROR NUMBER

:FORM ADDRESS OF ERROR ENTRY

(ROY+,2%

TYPE

9236

$ITEMB, RO

#SERRTB, RO

ADD

TYPE

013277

TYPE ”DR?PPINgTozlxg" QIVE

SINIT INDENT INDICATOR

MOV

3237

104401

RS
RO
Rg

BIT

043165

63
20%

RSL
ggt

3235 043172 032777 010000 135740
9234

. DROPDR

;BR_IF_NOT

:FORM INDEX FOR ERROR TABLE

TYPE

060356

DRVERS, #20.
93

TYPE

002

000

DRVERS

T;SE

MOVB

060370

3556
219097 043314
3237 043140
043144 001467

CLRB

:SEE IF 20(DEC) ERRORS EXCEEDED
'BR_IF NOT
CLERR DRIVE ERROR COUNT

DEC

1$:

SEQ 0180

COM

001119

9216
ga§7

9221

X ¥

PRGE 181

BEQ

CMPB
BLT

003130

L14Y

12:02

MOV

TYPOC

TYPE

591712 JSUR
,DH105

(R2)+,-1SP)

PUT uono ON STACK

TYPE

, $CRLF

TYPOC
TYPE

MOV

TYPOC

"PREVIOUS COMMAND :

: TYPE PREV COMMAND HEARDER

TYPE
TYPE
TYPE
TYPE
MOV

YPL

'DH101+10
ECRLF

DEC

BNE

:REFURT DESCRIPTION ONLY ?

308

' SPACE2
'DH102
' §CRLF
' SPRCE2
tR2)+, - (SP)
SPACE2

tR2), -(SP)

:SIX COMMAND VALUES
TYPE IT

;BR

1 NOT

VALUES

TYPED YET

- INDENT
:TYPE HDR FOR BA DATA
: INDENT
:TYPE PREV.

HI BR BITS

; TYPE PREV.

LO BR BITS

CZR6ENDO RKB11-06 SS VERIF 2

CZR6ND.PI11
9258
9269

043306
(043312

9261

043316

9260
9262
9263

9267

96
926
9270
9271
9272
9273

10-JAN-78 10:0S
104401
104401

013277

104401

001315

043314

000000

043322
043324

005005
032777

010000

43342
43344
043346
043350
043352
043354

015002
112003
105720
005703
001417
Q05705

9278

043370

005303

9280
3281
9282
9283
9284
9285
9286
9287
3288

Q43374
043400
043402
043404
043406
Q43412
043414
043416
043422

684q 1
0771
005702
001402
104401
005302
003425
012037
10S710

9293

033:35

005105

(043372

001403

9237

03335

ogggga

Q300
gggé

043460
4345

001331
888780

043470

104410

Q304
930S

3306

G%:

8 3 g i 571
4346

043472

751

000207

118;

043450

001315

TYPE
TYPE

148:

15%:

348
368:

168:

000002
20%:

,CR2LF

182

SEQ 0181

:TYPE DATA HEADER

CLR
BIT

RS
#BIT12, aSWR

- INIT INDENT INDICATOR
REPORT oescaxprxon ONLY 7

BEQ
MOV

208
'
(RQ)+,RQ

Enugu
19 THERE ARE NONE
; EF é

TYPE

:DH POINTER GOES HERE

$CRLF

MOV
MOVB
TSTB
TST
BEG
TST

(RQ)+,R2
(RO)+.R3
(RO)+
R3
14%
RS

DEC

TYPE
BR
TST
BEQ
TYPE
DEC
BLE
MOV
1578

SPACE2
11¢
ke
14%
$CRLF
R2
2038
(RO)+, 163
(RO)

?QEE
MOV
TYPOC

légncsa -(SP)
JT(R1)+,
12%

s ORE NUMBER or DH’'S
:GET& STORE NUMBER OF DATA HORDS
: BUMP PRST FORMRT WORD
TEST xr an nTn ron THIS HERDER
SK1
SEE IF SHOULO INDENT

X
IFFIRST
NoT DATR WORD ON STARCK
Au?
STYPE IT
nons onrn WORDS
NO-BRANCH

TYPS SEPRRATORS
00
:SEE IF (CR>,<LF> NEEDED
'BR IF NOT
STYPE IT
*MORE DH’S?
: NO-BRANCH
'GET NEXT DH POINTER
sss IF ANY DATR FOR HOR

Y
gNgE
CLR

3quLF
pd

YT
BE1PN§§
BROEATE 1nD1CATOR

cgn

CS"P%ERE"}N623$”;553?§ESTOR

T¥ RD

O CRLF

:DH POINTER GOES HERE

BNE
ngo

108
22, RO

: YES-BRANCH
gNCRENENT DF POINTER

?YEE
TYPE
Tsrs

RESREG

368

,ggncsa

!?NDENT
:TYPE DM

t30)

;TYPEA DT?

158
I

EE IF END OF DF BLOCK

IR RN

CONTROLLER ERROR REPORTER ROUTINE

;

9310
931}
9312

lTHIS ROUTINE DECODES THE CONTROLLER ERROR WORD AND
: #*REPORTS THE APPROPRIATE MESSAGE. THE RKb11 REGISTERS ARE
! ¥xRETRIEVED FROM THE RKb11 AND PLACED IN THE PARAMETER

9313

iRETURN

JSR PC,

RER AR R R RN RRR RN

9307

gggg

ENTRY:

PAGE

RTS
$ 2 AN
NI

"48TTL

12:02

.WORD

BEQ

12%:

3535
84
A TB&QB?
013313
92396
043446
104401

9303

135606

013313

gagg
03333“ 00530q
001315
ggq9 gngés
ég
d94
43434
404
339

4§ :

10$:

001315

10-JAN-7?8

TYPE ERROR ROUTINE

wgggs 8514
']
01200U

043340

qa;q
0:3358
00&888
013313
35?
843324
69314
9277 043366
104402
9279

MACY11 30R(1052)

M1lY

RTS PC

CONERR

:#BLOCK. THIS IS DONE BECAUSE PARM 0O MQY NOT BE VALID

CZRSNDO RKSII/O& SS VERIF 2

CZREND. P
9314
Q318

10-JAN-78 10:05

9316
9317
9318
9319
4330
9321
3322

043474
043476
043504
Q43510
(43514
043522
043524

104407
152737
105237
004737
032737
001402
104064

9379

043530

032737

9323

9325
9326

043526

Q43536
043540

9327

Q43542

9329
9330
933]
9332
9333

(043552
043554
043560
043562
(043566

9335

Q43572

9328

9334

9336
9337

Q43544

043570

043600
043602

9338

043604

934]

043616

9343

043622

9339
3340
9342

9344
3345

9345
9347
Q348

3349

(043606
043614

001402
104065

000462

(032737

001407
105737
001402
105237
1049066
000447

(032737

001402
104067

000441

032737
001402

000433

043630
Q043632

001402
104071

043634
043636
043644

Q43646

(043650

9352

Q43660

: ¥RT THIS TIME.
o 3636 36 36 36 3 36 36 3 3¢ 36 3 3 3 3 3 36 3 3 36 36 3 36 36 3 36 36 36 3 % I 3 3 3 3 3 I 3 3 3 3 I 3 3 3 I 3 I 3 3 3 I I 334 WX %KX %R R

LBNERR: SAVREG
BISB
INCB
JSR
BIT
BEQ
ERROR

000377
003126
046366
000001

003123

000002

003052

1§

000004

003052

28:

003052

3§:

000020

003052

4S:

003052

5S8:

000425
032737
001401

000400

003052

6$%:

032737

001000

003052

8%:

001401

9353
9354

(ON366e
Q43673

032737
001401

002000

003052

9%:

9356
9357
9358

043674
(043702
043704

032737
001401
104052

100000

003052

10S:

9359
9360
9351
9362

Q43672

Q43706
043710
043714

104074

104075
005037
000137

003052
046166

9363

118:
7s:

BIT

%377, DONE
ERRCAT
PC, TOPROC
set.oE.CONT
18
64

:SAVE RO- RS
:SET_DONE_FLAG
: INCREMENT ERROR COUNT
:LORD RK REGS INTO SREGS
:ERROR 07
: NO-BRANCH
:CLERR CONT DID NOT CLEAR ERROR

¥BIT1,E.CONT

:ERROR 17

2%
65

: NO-BRANCH
'NO ATTENTION IN ATTENTION SUM REG

$BIT2,E.CONT

:ERROR 27

33
DRNAFG
15%
REISSU
66

:NO-BRANCH
:SEE_IF DRIVE WAS SIEZED BY GTHER PORT
'BR_IFNOT
'SET FLAG_TO RE-ISSUE COMMAND
;UNSOLICITED ATTENTION

#8IT3,E.CONT

;ERROR 37

EQ
ERROR

4g
&7

BIT
BEQ

#BITY,E.CONT
Ss

BIT

ed;

#6775, E.CONT

BEQ
ERROR

63
71

ERROR

BR
BIT
BEQ

BIT

7%
#8178,E.CONT
8s

#BIT9,S.CONT

IT
£Q

$BIT10,E.CONT
108

ERROR
ERROR

BIT
£Q
RROR

: NO-BRANCH
‘UNEXPECTED DATA TYPE ERROR
; ERROR 47
NO-BRANCH

QTTENTION DID NOT RESET WITH CLEAR
:ERROR 57

' NO -BRANCH
:SU'8SYS CLEAR DIDN’T CLEAR DRIVE ATTENTION
:DATA LATE WHEN UNLOADING HEADER

: CONTROLLER ERROR DURING DRIVER SERVICE

:DRIVE DETECTED PARITY ERROR

#BI115,E.CONT
118
&2

;MULTIPLE DRIVE SELECT

ERROR
7S
*UNDEF INED ERROR
CLR
E.CONT
:CLEAR CONTROLLER ERROR WORD
JMP
BGNRTY
:GO DO RETRY
Illlill«lIllllllllill!lillilll!iIillllllll!llllll*lill*l!l!*llll

"48TTL

9364

REPORT SUPPORT ROUTINE

:%THIS ROUTINE LORDS ALL THE PARAMETER BLOCK DATA TO BE REPORTED

9365
9366
9367

043720

9369

043722

S368

EXROR

Q43656

9355

BEQ
ERROR

BIT

000010

000040

104073

BIT

158:

003136
003137

EQ
TST8
BEQ
INCB
ERROR

032737

104072

N14

12:02
PAGE 183
10-JAN-7 8
CONTROLLER ERROR REPORTER ROUTINE

30AR(1052)

104070

043620

9350
935]

000470

MACY1l

043720

104407

005037

"%INTO THE PROPER TEMPORARY REGISTERS FOR REPORTING.
HLL THESE MAY
4~07 se INCLUGED IN THE REPORT, BUT THEY ARE LORDED ANYWAY.
ArPSU
00S476

SAVREG

CLR

ERRCOM

; CLEARR ERROR COMMAND STORE

SEQ 018P

= LYY=
(= 1

044174
C44176

B15

30R(10S2)
10-JAN-78_
12:02
REPORT SUPPORT ROUTINE
MOVB

005476

MOV
MOV

000004

000012

520

Or83888388

000056
001236
00Se24

P.CMND(RS) ,ERRCOM

SEQ 0183

:STORE COMMAND START VALUES

#$REGO, RO
:FOR REPORTING
P.CYLNIRS), (RO)+

MOVB

P.BAHIIRS)
,R3

MOV
MOV
MOV

R3, SREG36
:HI BR BITS
P.BALO(RS) ,SREG3? ;LO BR BITS
P.CSI(RS), RO+ ;GET ALL THE VALUES FROM THE

$SREGS,R

8177774,R3

MOV

P.CS2(RS)

MOV

P.WCR(RS), (RO)+

MOV

000024
000032
00

184

. (RO)+
P.TRCK(RS)
(RO)+
P.SECT(RS), (RU)+
(RO)+
P.WC(RS), (RO)+

MOV
MOV

000026
000022

PRAGE

MOVB
CLRB
MOVB
CLRB
MOV

MOV

001260

s Pt Pt ot Pt ot P () Pme

044116
Q44122

MACY1l

BIC

OonRRRLLVNNOO

o44112

700

== () () 0= b= 1=

o44036
o44p42

020

044026
o44032

000001
001162
000002
00000S

awu$uurmuwrm

o T
oo
N rngininidinonn

043744

043750

000000000000

043726
042734
043740

O 000Dt
e O
i = 00

9370

O OO0000000000

CZRBENDO RKBE11-06 SS VERIF 2
CZREND .Pl1
10-JAN-78 10:0S

(RO)+

;PARAMETFR BLOCK AND LOAD

P.OCYL(RS), (RO)+’ : THE TEMPORARY REGISTERS
P.DTS(RS), tRO)+ ;FOR REPORTING. ALL THIS
P.BRAR(RS),

(RO)+

:DATA MAY NOT BE VALID
:FOR ALL REPORTS (TO BE
:DETERMINED LATER) BUT IT IS

MOV
MOV

P.RSOF (RS}, (RO)+’;STORED ANY WAY.
P.DS(RS), (RO)+

MOV

P.ROO(RS), (RO)+

MOV

P.ER(RS) ! (RO)+

MOV
MOV
MOV
MOV
MOV
MOV
MOV

(RO)+
. RS)
P.BOC(
(RO)+
) RS)
P.RO1(
. (RO)+
P.BO1(RS)
P.AI0(RS)
) (RO)+
P.B1G(RS), (RO)+
P.A11(RS). (RO)+
P.811(RS)’ (RO)+

MOV
MOV

#SREG26, R1
#PRVCMD | RO

CLRB
MOVB
CLRB
MOV
MOVB
CLRB
MGVB

(R1)+
(RO)+, (R1)+
(R1)+
(RO)+, (R1)+
1(RO) | (R1)+
(R1)+
(RO), (R1)+

; SECTOR

MOV
MOVB

6(R3), (R1)+
3(RO).R3

;WORD COUNT
iHI BR BITS

:STORE PREVIOUS COMMAND FOR PRINTOUT
MOVB

000001

CLRB

000006
000003
177774

BIC
MOV
MOV

000004

RESREG
75

(RO)+, (R1)+

(R1)+

8177774 R3
R3, (R1)+
4(ROJ, (R1)

:ADRS OF PRINT BUF AREA
'ADRS OF PREV CMND STORAGE

:DRIVE NO.
; COMMAND

:CYL ADDRESS
: TRACK

;LO BA BITS

PC
;-!I!lll!l*llli*!il*l!*l!lll!l!*li**!i**l!lli!{*i**ll*!***!**l!i*

'4BTTL

;% ENTRY
: xRETURN
; %

REPORT ERROR ROUTINE

; #THIS ROUTINE

JSR
RTS

PC,
PC

ERRHDL

IS CALLED BY THE DRIVER WHEN AN ERROR

IS DETECTED

CZRENDO RKB11-06 SS VERIF 2
10-JAN-78 10:0S
CZR&ND.P11

MACY11

30R(1052)
10-JAN-78
REPORT ERROR ROUTINE

;#IN THE OPERATION.

ClS

12:02

SEQ Jl84

PAGE 185

THE ROUTINE DETERMINES WHICH COMMAND WAS

*BEING EXECUTED AND GENERATES THE PROPER ERROR MESSAGE.
R

9430
9431
343

Q44200
Q44202
guuelg

9434
9435

Q44220
Q44226

104407

Q44242
0442s0

SAVREG
BISB

152737

000377

003123

032737
0?1;02

0og400

00S474

ER2ENT:

BIT

003046
003044

ges:

HOv

ABeg% Salst

433 84453 818737 gaerss

9438
39

ERRHDL:

012727
004737

g46356
043720

MoV
JSR

S AR

o
T

CLEVEER RECODE

g 2s

PR AR

2R AR 2

S 2 2 2L 2

T
R
o

,
T IF 2ND LEVEL
0 - SKIP PARAM BLOCK CHQNGE

.SETRNCE
ABNL Et?e35TRso;gnnggngnandL gETURN FOR
SRETNML,A.NORM :DRIVER OPERATIONS IN ERROR PROCESSING

PC,REPSUP

GO SET UP REGISTERS FOR REPORT
g?#SBEGIN TEgTINGE ERROR
T
WHICH

cons
pEseD, SigniF]
CRTQSTROPHIC NRTURE RRE FIRST
ONSI

IFICQNT IN

IF AN ERROR IS FOUND SET
:THAT ERROR I5 REPORTED AND

'THE REPORTING IS TERMINATED.

:IF ADDITIONAL ERRORS RARE SET,
P THE Rxséu gegésrsn
gaénrours

TWILL
:REGISTER CONTENTS MUST BE
9y
9457
3458

NQNURLLY DECODED TO LOCRTE THE

Q44254
044260

016504
032765

000034
020000

000020

MOV
BIT

ERROR REGISTER
RY go
gE? GND
,RY
P.ER(RS)
sUPE,P.C82(KRS) :TEST UPE. IF UES-SET

RENDO _RKB11

R6EN .Pl1
EEREN

9459
9460

RIF @2

/08-§2NY§ 8 10:08

MACY11

18-

BEG

044266
044270

8oBEYS

00S47Y4

004000

000020

BRBERS

00os474

010000

000020

000400

000020

o4sSe74

000c20

010000

000020

c3:

38:

AN-78

OUTINE

12:02

PAGE

CREORT,PECODE
37
#NEM, P.CS2(RS)
cs
2
8380RT
, RECODE
37
BNED,P.CS2(RS)
SUFE,P.CS2(RS)
38§
35
37s
3
37¢
ILFE,P.CS2(RS)

NED, P.CS2(RS)
398
35

39%:

378

SEQ 018S

186
; REPORT

; TEST NON-EXISTANT DRIVE

; TEST

IF NED 8 UFE BOTH SET

:NED 8 UFE BOTH SET ERROR
:NED ONLY

: TEST UNIT FIELD ERROR
; TEST

IF UFE & NED BOTH SET

RSP%R% NED & UFE BOTH SET

;REPORT UFE ONLY
378
.CHDTO P.PRST(RS) ’
4

ooo014

802368

00s474

P?fiOTOS 850005 END

005474

aL§v2£R RECODE

045674
020000

GoRs1s
Q04000
045674
000010
045674

; GO PROCESS TIMEQUT

4198:

000014

000016

6%:

37%
#SPAR, P.CS1(RS)

63
b
$RCLREQ, RECODE
37%

RY
$DRPAR,

7S
7

R’

IS AVAILABLE

DRIVE SI ZED BY OTHER PORT
;TEST D

TO C PARITY ERROR

; TEST DRIVE DETECTED PRRITY ERROR

SRCLREG, RECODE

005474
000036

ND LEVEL ERROR REPORT
0 BUILD AND MAKE 2ND REPORT
SEE IF DRIVE SIEZED BY OTHER PORT
#DRVSZD, P. PRST(Réé

353

005474

VES Eokomos,
TEST_IEUE
ELSE HRKE FULL TIMEOUT REPORT

EREENT
65

65%:

OUT _IN T¥HEOUT PROC?

- SKIP TO ERROR 56

; TWO TIMEOUTS ERROR REPORT

409%:

g4se74
044220
010000

4S:

ERROR

; TEST NOH-EXISTANT MEMORY

045674
000100

045674

001403
104010
000137

19:

389%:

045674
000400

o4se74

044572
044574

3QAC1Q92)

D15

7%:

373
#ACLO,P.DS(RS)
83
10
373

: TEST

AC LOW

000020

044600

NYS67Y
004000

000036

000016

37%

24%:

187

SEG 0186

: TEST SPEED LOSS

25%:

000020

11%:

045674
000040

129%:

045674
000020

13%:

045674
004000

148

045674
040000

159%:

000200
045774
000002

00s474

004000
045674
001000

00S474

004000
045674
002000

005474

004000
045674
000040

005474

004000
045674

005474

169:

17%:

000036

19%:

$ILC,RY

s TEST ILLEGRL FUNCTION COOE

$PGE,P.CS2(RS)

;TEST PROGRAMMING ERROR

$ILF,RY

s TEST ILLEGAL DRIVE FUNCTION

$0TYE,RY

; TEST DRIVE TYPE ERROR

378
$FMTE,RY
148

s TEST FORMAT ERROR

118
13
37%
128
14
37%
138

37s

$UWLE,RY

158
17

37%

BIT

: TEST WRITE LOCK ERROR

BUNS, RY

; TEST DRIVE UNSRFE

#SKI,RY4

; TEST SEEK INCOMPLETE

#COE, RY
188

; TEST CYLINDER OVERFLOW

#IDAE, RY
138
23
SRCLREG, RECODE

s TEST

#DROT,P.DS(RS)
208
24
SRCLREG,RECODE

; TEST DRIVE OFF TRACK

168
20
$ABORT
, RECODE
ALLTRM

(=]
P

18%:

;TEST FOR CONTROLLER TIMEOUT

108
12
37%

10%:

045674
000004

#CTO,P.CS1(RS)

25%
27

o
D

000137

PAGE

gg:DLSS,P.DS(RS)

8%:

o
P

PRZYUBRINSEE

8g8

£—-NNOoNL—-NOL—~NNO
L—-NVO L =¥
OLN-NOLN-OLEN—-OLN—~O
L
W=-00W=~00W—-00W—0O
NCRQEVNNRDENLQINWE

o088 BRo808080808080
045072

E15

12:02

000001

045674
002000

10-JAN-78
REPORT ERROR ROUTINE

30R(10S2)

SOMODmMSDHMOE<~OMDO —OMMD
X
TDM—~ X+ DM
X~ DM~ = DM
VNITO-ATVNDO-VNDO-TVIO

CZRBENDO RK611-/06 SS VERIF 2
10-JAN-78 10:05
CZRBND P11

MACY11l

178
21
$RCLREQ, RECODE
378
22
SRCLREQ, RECODE
37§

37%

373

ILLEGAL CYLINDER

* 2N TORR ERR NSRS TR

032704
001406
104025
052737
000137
032755
0014L3
104026
000137

MACY1l

208:

010000
00200

45674
100000

005474

000020

045674
020000
800010
Jo3ial
045674
000400

005474

00S474

003036
000100
0000eH4
000024
000024
100000

C00000
001202
001204
001206
000000

268

BIT
BEQ
ERROR
BIS
JMP

F15

12:02

PAGE

SEG 0187

188

$0TE,RY
218
es
OQEORT,RECODE

; TEST DRIVE

8DLT,P.CS2(RS)
c2s

; TEST DATA LATE

37s
8OPI,R4
29§
$OPIERR, RECODE
DERCNT
509
37s
$LEV2ER, RECODE
268
(3
37%
PC BLDEXH
HDO

ggtvasn RECODE

MOV

TIMING ERROR

; TEST

IF OPI

ERROR

; TEST

IF FIRST ERROR

NO - SKIP REPORT

TEST IF A SECOND LEVEL 2 ERROR

:HAS ALREADY OCCURRED

;GET _OUT OF ERROR REPORT

:GO_BUILD EXPECTED_HERDER
:GET _HEADER OF SECTOR O
:TEST _IF ERROR GETTING HDR
! IF _YES-GO MAKE ABREVIATED REPORT
:STORE HEADER O _INTO REGISTERS
:RESET _INTERRUPT ENRBLE
!FOR REPORTING
; TEST

IF ERROR DURING STORAGE

;MAKE OPI REPORT

O4S674

28s:

o44220
000400

Q45400
04S406
o4S414
045422
Q4s430
045432

S09%:
27%:

00s47y4

Q4S67Y4
000400

21%:

22s:

O4S674
047026
046536
000400

000004
003121

10-JAN-78
30R(1052)
REPORT ERROR ROUTINE

D0~ e MM D < 0 4D DD
MDD o
Z=OUNIX
M~ IIMU—M—IOM —
MAVVV
DO -4VOHNO~TVDO o
o
)
b

|=]

22 TPR2E2R22222E

N nniinidavanininun
nr— Pt Bt s s P Pt Dot s e ot P s o Pt
[@}
n

CZRBENDC RKB11-06 SS VERIF 2
10-JAN-78 10:05
CZRBND. Pll

29%:

00S474

005474

30%:

51%:

045674
047026
046536
ooo400

00SH74

003036
000100
000024
000024
000024
100000

000000
001202
001204
001206
000000

31%:

;GO MAKE 2ND LEVEL REPORT

e
SHVRCER, RECODE
DERCNT
308
37%
SLEV2ER, RECODE

318

37s
PC BLDEXH
HOO

oLtvaER RECODE

328
RKBRS , R2

#IE,RKCS1 (R2
RKDB(R2), SRE
RKDB(R2). $RE

RKDB(R2) | SRE

#CERR, RKES1(

51§
31

{TEST IF HVRC ERROR

TEST IF FIRST ERROR
YES
-~ REPORT

JUMP T0 RET RN

:TEST IF
R 2ND LEVEL

ERROR HAS ALREADY

:OCCURRED. NO-SKIP EXIT

;GET_OUT OF ERROR REPORT

EXPECTED HERDER
:GO gUILD
iG0 GET HDR O
:TEST IF ERROR_IN GETTING HOR
{IF _YES-GO MRKE ABREVIATED REPORT
:GET RKe1l BRSE ADDRESS
iCLEAR INTERRUPT ENRBLE
:STORE OFF HERDER
; TEST

IN ANY ERROR

_IN UNLORD

:IY YES - GO _MAKE SHORT REPORT
:MAKE FULL REPORT

CZR&ENDO RKE11-06 SS VERIF 2
CZREND.PL1
10-JAN-78 10:0S
9627

QYSY434

000137

045674

3629
3630
9631
3632
9633
9634
9635
8636
9637
9638

Q45442
045446
045452
(45454
045462
045466
Q46472
045476
Q45502
045506

000137
032704
001430
0S2737
016500
116501
042701
016502
042?02
004737

044220
000200

9640
941
3642
9643
9644

045520
Q45522
Q45524
(045532
Q46534

001065
604104
(042737
000460
032704

9646
9647
3648
9649

Q045542
Q45550
Q45554
Q45586

052737
032704
001406
52737

3651

045573

3628

045440

104055

000002
000030
000027
177774
000026
177740
042436

G15

MACY1l 30R(1052)
10-JAN-78
12:02
REPORT ERROR ROUTINE

32%:

23%:

00S474

3639 (045512 032737 001000 005474

3645

3650

9652

Q4S5S40

045564

Q45572

00I43S

000002
100000

00S474

000040

0O0SH74

00S037

001206

012737

000001

000403

33%:

000020
0001060

9653 045600 105737 003121

001206

9654
9655

045604
045606

001033
004737

046702

9657
3658

(045620
046626

016537
104032

000062

3660

045634

032765

04007)

000020

000200

005474

045630

000137

9661

0O4SB42

0014149

3663
3664
3665
9666
gggg

045652
045660
045664
045666
045672

052737
105737
001003
004737
104033

9662

3669

0Q4SEM4

34%:

35§

000014

045706

052737

000200

005474

0M5714

032765

000040

000014

045726

0S2737

000200

005474

032765

004000

000014

000200

0OS474

9674

gg;g

9679

9680
981
9682

Q45722
045724

045734

045742
045744
045746

001404
104037

001404
104040
0S2737

36%:

1GO REPORT 2ND LEVEL ERROR
ITEST FOR BAD SECTCOR ERROR
INO- SKIP
:SET ERROR FLAG
;GET CYL NO.
:GET TRACK NO.
:CLERR ALL BITS EXCEPT TRACK
'GET SECTOR IN ERROR
:CLEAR ALL BITS EXCEPT SECTOR
:GO SEE IF THIS SECTOR LISTED

SNE
ERROR
BIC
BR
BIT

378
104
8BSERR,RECODE ~
37§
#0CK, R4

:YES - EXIT, NO ERROR OR REPORT
'ELSE_REPOR} BAD BSE
;RESET BSE ERROR FLAG
1GO EXIT
:TEST IF DATA CHECK

#DCKERR,RECODE
SECH, R4
348
SECCNC,RECODE

;SET DATA CHECK ERROR IN RECOVERY CODE
:TEST IF ECC IS HARD. IF
IYES SET UNCORRECTABLE IN
:RECOVERY FLRG AND R O IN

BEQ

MOV

37%:

oehossc,Rscoos :TEST RESULT
36%

SREGIE

snsc1a

'REGI2 TO INDICATE UNCORRECTABLE,

:A 1 IN REG 12 FOR CORRECTABLE

MOV

EP0S(RS),SREGIO;STORE ECC POSITION &

JMP

8IT

GTPKAD

37$

8WCE,P.CS2(RS)

;TEST WRITE CHECK ERROR

$ABORT,RECODE

;CLEAR ABORT & SET WRITE

378

BIS
1578
BNE
JSR
ERROR

oucsnn RECODE
DERCNT
378
PC,GTPKAD
33

BIT

BEQ
ERROR

BIT

BEQ
ERROR

BIT

BEQ
ERROR
BIS

s TEST IF FIRST ERROR

INO SKIP REPORT
:GO GET PACK ADDRESS OF ERROR

P EPAT(RS) .SREG11 :PATTERN
32
;REPORT DCK ERROR

BEQ

BIS

44S:

:ABREVIATED HVRC ERROR RPORTY

BIS

43%:

7578

BNE
JSR

BIC

046702
000020

001404
104036

ER2ENT
$BSE, RY
333
#BSERR, RECODE
P.DCYLIRS) RO
P.DTS+1(RS),R1
#177774,R1
P.DTS(RS) . R2
0177740 Re
DSREK

MOV
ERROR

005474

032765

045702
045704

9675
9676

000100
003121

JMP
BIT
BEQ
BIS
MOV
MOVB
BIC
MOV
BIC
JSR

CLR

001204

045674

9670
9671

32;%

(042737

045574

37%

ERROR

BIS
BIT
BEQ
BIS

9656 045612 016537 000060 001202
9659

JMP

BIT

0OS474

PAGE 189

;CHECK ERROR IN RECODE
:TEST IF FIRST ERROR
INO- SKIP
:GO GET ADDRESS OF ERROR
:REPORT WCE

#DRVHRD,P.PRST(RS)

43%
36

; TEST HARD ERROR

$ABORT, RECODE

$DRVDSC,P.PRST(RS)

44§
37

; TEST STATUS CHANGE NOT CLERRED

$ABORT, RECODE

#NODSC,P.PRST(RS)

468
4O
$ABORT
, RECODE

;IFST ATTENTION BUT NO FAULT OR DSC

SEQ 0188

CZRENDO RKBll/OE SS VERIF 2

10-JAN-78 10:05

CZR6N D.P
3683

4575y

B3FL8S

e L
48764

045766

MACY1l

00c010

000014

000200

005474

10-JAN-78
REPORT ERROR ROUTINE

30AR(10S52)

469:

H1S

12:02

PAGE

SEQ 0189

190

EE&

aEE¥Q;T,P.PRST(RS)

ERROR
BIS

SABORT,RECODE

: TEST UNEXPECTED ARTTENTION

;ALL ERRORS MUST EXIT THROUGH THIS POINT
Q4S774
Q46000
Q46006
Q46014
046022

012705
012737
012737
032737
001043

Q46024
046030
046036
046040

018702
032762
001004
052737

4604

4605
046056
046060
046066
O4607Y4

L0000
0D DD DO
SNININ
NN NNNN NN
U )b bt bt s s s st Pt e
—OVmONOCN LW+

461
461

3973

000200

003046

003044

005474

MOV

MOV
MOV
BIT
MOV
BIT
BNE
gés

RKBRS, R2
#RDY,RKDS(R2)
47§
:ngonr,nscoos

:GET BASE noo ESS
:TEST IF DRIVE READY SET
'RECALIBRATE REQUIRED BIT IS SET
'ELSE ABORT WITH ABORT MESSAGE

BEQ

BGNRTY

JSR

PC o

BIT

lLEVE

004000

00S474

000113

0000C.
003046

MOVB
MOV

30058

MOV

000200

0ass74

003130
003126
017332

;RESTORE INTERRUPT VECTORS FOR RETRY
:DRIVER OPERATIONS, IF ANY

IF ABORT IS NOT SET AND
THE onxvs IS READY (HAS NOT

00S474

BIT

BEQ

BIS
ERROR

4gs:

s RESTORE PARAMETE BLOCK SELECTION

483

000200

47%:

8PARMO, RS

SERRHDL,R.ABNL
SERRFRE A.NORM
$ABORT, RECODE

BNE

gooole

o44220

000137

ALLTRM:

003036
000200

046340

046114
Q46116
Q4bla4
guelek
046132
046134
046140
O4B 144

002630

CYCLED DOW

OSCLREQ RECODE ;IF RECALIBRATE IS REQUIRED

$RECAL,P.CMND
oRETnNL A.ABNL
gk E

BGNR

RECOD

oneonr RECODE

:FOR RETRY SET UP PAR
:BLOCK TO DO IT.

RFSTORE SRROR RETURN

RROR occuaaso rn THE

'RECAL ATTEMP SET ABOR

:PRINT THE RECAL ERROR fisssncs AND

GO REPORT DETRILS

JMP

ER2ENT

CLRB

DRVERS

‘CLR DRV ERR CN

NEWDRV

: TEST NEXT DRV

ERROR

CLRB

IMP

:REPORT ABORT- RETRY FAILED

ERRCNT

; THE_PROGRAM WILL HRLT HERE

IF THE ABORT FLAG HAS BEEN SET OR

!IF THE DRIVE READY BIT IS RESET
o46150
g4b6152
Q4e154
Q46160
g4blee

00000S
000080

803005
000137

HLTPRG:

CLRB
RE;ET
JM

003126
013410

;DISABLE ALL DEVICES

RESET
ERRCNT
CMSTRT

‘HALT THE CPU
{CLEAR ERROR_COUNT
iRESET ALL DEVICES

; THE FOLLOWING CODE WILL DETERMINE IF AND DATA TYPE ERROR

RETRY IS NQT DONE HER
THER ERROR IS TO BE
R RETRY.
ANY
HQS
O?NY
E?infi
ROU?INEHFO
RETRIED HERE . IF RETRY IS UNSUCCESSFUL RFTER 4 ATTEMPTS, THE ABORT

BUT RETURNS T0

:FLAG IS SET AND PROGRAM HALTS.
Q46166
QY6174
Q46176
046204

032737
C01l404
052737
0004s3

000136

005474

BGNRTY:

100000

00S474

9%:

BIT

BEQ
BIS
BR

#BSERR!'HVRCER! OPIERR!DCKERR!WCERR,RECODE ; TEST IF ANY DRTA ERROR

33
$ANYDER, RECODE
2%

ZRENDO RKbB11/06 SS VERIF @2
RBND. 11
10-JAN-78 10:05
J46206
g4ec06
o4e2l2
o462l

105737
001371
032737
001044
123737

g4737

001000

005474

003126

003127

001174
003126

001174

000200

00S474
000001

10-JAN-78

REPORT ERROR ROUTINE

39%:

003142

003036
000177
p4a2s4e
00S240

30R(1052)

1578

002630
000000
g4eas4e

o46340
046346
046354
046356
046364

152737
052737
000207
152737
000207

:GET ERROR RETRY COUNT

MOV

RKBA

MOV
MOV

(RO)*+, (RS)+
(RO)+, (RS)+

snscs

102
oneoné,RECODE

003123
00S474

RETANL:

000377

003123

RETNML:

:REPORT RETRY UNSUCCESSFUL
}SET RBORT & QUIT
T RK BASE ADDRESS

usuectn
P. cnno(RS)
.SET UP TO CLERR SUBSYSTEM
GO 80 IT
RVCAL
scbnsra RG
:GO AND REESTABLISH THE COMMAND
:AS IT WAS ENTERED INTO THE
:PRRAMETER BLOCK

(RO)+, (RS)+

(RO)+. (RS)+
(RO)+, (RE)+
(RO)+ (RS)+

MOV

#PARMO
R

MY
RESREG
RTS

PC, DRVCAL

MoV

000377
000400

IF “NO-RETRY" FLAG SET

ERRCNT, SREGS

MOVB
JSR
MOV

2%:

: SEE

SEQ 0190

MOVB

MOV
MOV
MOV

046336

191

:BR IF YES
> TEST IF BAD SECTOR FLAG SET
PIF YES-EXIT T0 CALLER
:BEGIN RETRY IF ERROR COUNT HAS
*NOT BEEN EXCEEDED

ERROR
gés

177776

PAGE

93
$BADSEC,RECODE
2s
EPRCNT,ERRLMT
18

CLR

18:

I15

12:02

NORTRY

BNE
BIT
BNE
CMPB
BNE

MOV

#PRO ahpsu

:LOWER PRIORITY TO ALLOW INTERRUPT

:CALL DRIVER
:IF RETURN GETS HERE, NO ERROR
: OCCURRED, RECOVERY WAS SUCCESSFUL

BISB

%377, DONE

g%g

BISB
R1S

:SET DONE

nésvéen RECODE

:SET LEVEL TWO ERROR

8377, DONE

;SET DONE

o 363636 3 3 36 36 36 36 96 36 36 36 3 36 36 3 36 36 3¢ 3 36 36 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 % 3% 3 3 3 3 3 3 3 3 3 3 3 3 3 3¢ 3% % 3 3% %%

'48TTL

TIME OUT PROCESSOR ROUTINE

:¥THIS ROUTINE SUPPORTS THE ERROR HANDLER BY PROCESSING TIME OUT STATUS

: *GATHERING DUTIES.
046366
046366

046444

000000000000
4= 4= 9=t 1=t bt ht Pt e Pt st pe O)
oo
w L
QNN NN
L
QRO
OO
0 4= 0t 0=t 1t s s e s s e ) )

739

9740
3741
9742
9743
9744
974S
3746
q747
3748
9749
3750
9751
9752
9753
9754

MACY1l

tépRoC:
003036
001174
000000

000014

SAVREG
MOV

MOV
MOV

I M

R D

$SREGS, R1
:SET UP R1 FOR RK_REGISTER STORAGE
RKCS1(R2), (R1)+ :STORE ALL VALID RK6ll
RKCS2(R2) ! (R1)+ ;REGISTERS
RKDC(R2), [R1)+

RKDA(R2), (R1)+
RKWC(R2)
. (R1)+
RKBA(R2) ) (R1)+

MOV

| (R1}+
RKER(R2)

CLR

RKBRS, R2

MOV
MOV
MOV

MOV
MOV

RKASOF (R2), (R1)4
RKDS(R2), (R1)+
RO

: THIS CODE WILL ATTEMPT T0

{RETRIEVE THE STATUS FROM THE

CZRENDO RK611-06 SS VERIF 2
10-JAN-78 10:05
CZRBND.P11

o4eS524
DD DDD
[salvelvslonleslas)

46526
046532
046534

[y WY Ny Y Wy

046446
046452
046460
046464
046472

373S

J15

12'02
MARCY11 309(1052)
10-JAN-78
TIME OUT PROCESSOR ROUTINE

MOV

PRGE

SEQ 0191

192

#PARM]

DRI VE.
UP TO USE PRRMl

(R5)+. (R1)+

: TEMP REGS FOR REPORTING.

002714
000141
Q4as4e
000100

000001
00001

MOVB
JSR
BIT

sRDSTnf
P cnno(ns) oo
READ DRIVE STATUS COMMAND
vCAL
L DRIVER
ocfioro P. PRST(RS‘TEST FOR TIMEOUT

002000
000040

005474

BIS
ADD
MOV

¥TWGTOS, RECODE
#P.R00 RS
(R$)+, IR1)+

MOV
MOV
MOV
MOV
MOV
MOV

(RS)+. (R1)+
(RS)+. (R1)+
(RS)+, (R1)+
(RS)+, (R1)+
(R5)+. (R1)+
(RS)+. (R1)+

BEQ

1$:

MOV

002630

RESREG
S

#PARMO, RS

SKIP

:SET TWO TIMEOUTS FLAG
'BUMP RS TO POINT TO DRIVE STATUS
‘MOVE ALL THE CRIVE STATUS INTO THE

;RESTORE PARM O

Y 2121222322221 232:122222232222x22222223232222X2222XX2XX22S22
2222

"4BTTL

9819

SAVREG

MOV

000026
0000S2
160017

MOV
BIC
ASR
ASR
ASR
ASR
MOV
MOV
MOV
MOVB
MOV

002714

0000000

046676
046700

104407

000004

000200

4§:

O-0—=-000

046536
046536
Q46540

RERD HEADER O ROUTINE

hb:sa*il!l!!l*l*ilii!*ll*!!ill**iil!l*i*l!l!l!lil*lii**!!l*!l*lil

010025
000200

6%:

000001
177776

JSR

000001

000020
003125
002630

000007
000007

MOVB
JSR
MOV
BIT

BEQ
MOV
BIT
BEQ
BICB

BISB
MOV

RESREG
RTS

P.DTS(RS),RI1

:STORE TRACK AND SECTOR

P.B10(RS) RO
:GET THE CYLINDER ADRS
‘FROM THE DRIVE STATUS. CLEAR
#160017,R0
RO
'OFF UNUSED BITS AND POSITION
RO
'FOR USE RS THE DESIRED
RO
*CYLINDER IN THE RERD
RO
*HEADER COMMAND.
$PARM1, RS
'SET UP YO USE P.B.
R1,P.SECT(RS)
;INSERT TRK,SECT FOR Rsno HOR
RO'P.CYLN(RS)
:SET CYL NO.
#50BCLR,P.CMND(RS) ;SET S.S. CLERR CMND
sPRO asPSw
;ALLo INTERRUPTS

VCAL
HEADER COMMAND
READS.S.
;SET THE
B.CHMND (R&)CLEAR
cRbneno
VCAL
D0’ RERD HEADER
.as (R2)
;ISSUE RD HOR WITH FMT BIT = O
#8117, (R2)
"CHECK FOR C. READY IN CSI

4g
#10025, (R2)
#8177, LR2)
63
#B.CFMT,.P.CS

FORMAT,P.CS1H

#PARMO RS

'BR IF NOT RDY YET
*ISSUE RD HDR WITH FMT BIT = 1|
*CHECK FOR C. nsnov IN CSI
'BR IF NOT RDY YET
é) CLERR THE FORMAT BIT

. AESTORE TYPE AND FMT IN USE
RESTORE
P.B. O ADDRESS
*RESTORE RO-RS

:RETURN

CZRENDO RK&11~ 06 SS VERIF 2
10-JAN-78 10:05
CZRBND .P 11

MACY11 30R(1052)

10-JAN-78

RERD HEARDER 0O ROUTINE

K15

12:02

PAGE

193

SEG 0192

s o SR 363363 36 36 36 3 3 3 36 36 38 36 3 36 36 36 30 36 36 36 36 36 3 36 3 3 3 3 3 3 3 3 36 3 3 36 36 30 36 3 36 36 36 3 3 3 3 36 3 36 3 36 3 3 3 3 3 3 % %

'8BTTL
046702
046710

016537

046734

005737

Q46740

001403
005337
000426
032765
001404
012737
000403
012737
005737
001403
005337
000405
012737

047024

005337
000207

000030
001176
001200
003026
0oogoz2?
001200

001174

8tPkAD: MOV
CLR

CLR
MOvB

MOVB
TST

BEQ

DEC

001200
010000

000016

000023

001200

00002S
001176

001200

18:

2%:

33:

001176
000002
001174

GET PRCK RDDRESS ROUTINE

SR I 2212222222222 2122::22:12222222232222222Y2XXX22X2XX2X2222222222222
24

001176

Yg:

S$:

B8R

P.DCYL(RS),SREGS ;GET CYLINDER NUMBER
SPEGE
;CLEAR REGISTERS FOR

; TRACK & SECTOR STORAGE
SRE W7
P.DTS(RS),SREG7 ;STORE THE TRACK AND SECTOR

P.DTS+1(RS), SREGE
$REG?

MOV

BEQ
DEC
BR

4§
$REGH
5§

DEC

$REGS

MOV
BR

TST

MOV

RTS

: INCREMENT

$REG?

#CFMT,P.CS1(RS)
2%
#19.,SREG?
33
#21.,SREG?

8IT
BEQ

.ADJUST THE ADDRESS CONTRINED

.YHE RK REGISTERS FOR THE AUTOMATIC

SREGE

82, SREGH

;-!lllllllllliilill!llll!llili!lllli’*l!!lil!lil*l*l!*llll!!l*lll

'48TTL

BUILD EXPECTED HEADER

:%USES DESIRED CYLINDER,

TRACK AND SECTOR REGISTERS TO DETERMINE

"%WHICH HERDER WRS EXPECTED. LOADS EXPECTED VALUES IN SREGS, 6, AND
‘%7 FOR REPORTING.
o o 36336363 0c 3 3 3 36 3 36 36 36 36 36 36 36 36 36 3 3 36 3 36 3 3 3 36 3 36 36 3 3 3 3 3 I 3 3 3 3 3 3 3 3 3 3 3 3 3 3% 2 % 3 3 ¥ 3% % ¥ ¥ %

047026

000030
000026
174377

001174

B(DEXH: SARVREG

104410

ASR
ASR
ASR

R1
R1
Rl

000026
177740
001176
140000
010000

001000
001174
001176
001176
001174
0C1200

P.DCYL(RS),SREGS :CONSTRUCT EXPECTED HDR

MOV
BIC

0470s2

047054

MOV

BIC
ADD
BIS
BIT

23%:
001200

P.DTS(RS) Rl ;DESIRED CYLINDER & DESIRED TRACK
#174377,R]
;CLERR ALL BUT TRACK BITS

:IF SET,
P.DTS(RS),$SREGE ;BIT,

#CFNT,P.CSI(RS)

238

MOV

$REGS ., SREG?

MOV
BIC
B1C

BIS

RESREG

SET THE HEADER FORMAT

8177740, SREGE
;CLEAR ALL BUT SECTOR
"ADD TRACK AND SECTOR TOGETHER
R1, SREGH
#140000, SREG6 : INSERT BSE BITS

BEQ

BIS

SAND SECTOR. SHIFT THE TRACK
:OVER TO CONFORM TO HERDER FORMAT
:CHECK THE FORMAT BIT AND

#1000, SREGE

SREGB,R1
. SREG?
$REGE
$REGS R1

R1, SREG?

: COMPUTE THE HERDER VRC

CZR6ENDO RKbB11-06 SS VERIF 2

CZRENC.P11
9907

39308

0471S2

10-JAN-78 10:0S
000207

MACY1]l 30A(10S2)

10-JAN-78

BUILD EXPECTED HEADER
RTS

L1S

12:02

PAGE 184

SEQ 0193

CZRENDO RK611-06 SS VERIF 2

CZREND.P11

10-JAN-78 10:05

MACY!l 30A(1052)

MLS

10-JAN-78

12:02

PAGE 195

RK611/RKO06-RKO? UNIBUS DRIVER FOR SEQUENTIAL OPERATIONS (REV. 0.10)

ggeg

.SBTTL

RKbG!1/RKO6-RKO? UNIBUS DRIVER FOR SEQUENTIAL OPERATIONS (REV. 0.10)

9911

;oxcxm EQUIPMENT CLOR®.
lH YNRR
MR. 01754
: »AUTHOR: "ROY SPITZER
.SBTTL

#*WATCH-DOG TIMER

< 363636 363 36 36 26 36 396 36 36 36 36 36 36 36 36 30 36 76 36 36 36 06 36 36 36 06 36 36 06 36 06 36 36 30 36 36 36 36 36 30 36 30 3¢ 30 06 0 6 6 06 3 30

:&
HE

0 6 0

THE WRTCH-DOG TIMER DOES A PSEUDO-TIMING OF RKO6-RKO7 UNIBUS

9921
9922
9923
9924
9925
9926
9927

x|
;®
I )
¥
®
;#
X

SUBSYSTEM COMMAND. SINCE ONE CAN NOT GUARANTEE THAT A
REAL-TIME CLOCK (KW11-P OR KWll-L) IS ON THE SYSTEM
THE RK0O6-RKQ?7 DR{VER WILL USE THE LOCATION
W HTIM FOR
MILLI-SECOND TIMING. WHEN
W.MTIM REARCHES ZERO THE
WATCH-DOG TIMER WILL SCAN THE DRIVES IN
USE RS
DETERMINED BY THE LOCARTION W.TIME. THE TIMER COUNTS
(ONE FOR ERCH DRIVE) ARE KEPT IN THE TRBLE
WD

9329

P *

TIME-OUT }L# BE

9928

ggg?

%
HE

9332

I
;%
]

9933
9934

gggg

PR
H

9937
9338

|
3 ¥

ggag

;R
HE

IF ANY COUNT IN THE TRBLE .DRV RERCHES Z2ERO
R COMMAND

HAT

DESIGNRTED IN THE

PROGRAM DEVICE STATUS

DRIVE’ S PARAMETER

BLOCK.

THE DRIVER WILL USE
THE LOCATION W.MIN RS _THE NUMBER
OF MILLISECONDS FOR AN UNLORD OR START SPINDLE COMMAND.
THE DRIVER WILL USE THE LOCATION W.SEC RS THE TIME
LIMIT FOR ALL OTHER COMMANDS.

FOR QUEUED OPERATIONS THE WATCH-DOG TIMER WILL
WATCH UP TO 8 OPERRTIONS SIMULATEOUSLY. FOR SEQUENTIRL
OPERATIONS ONLY ONE OPERATION WILL BE WATCHED.

9941
gg:g

; ¥CALL
%

JSR
RETURN

9944

OTHERHISE RN RBNORflflL RETURN TO THE ROUTINE RDDRESS

aN THS ?E

- %

994§

93:8

3 ]
;l

gggg
9951

TION RBNL

PPROPRIA

;ES

PARRME

occyR QN?
THE

TATUS REG 3

LOCV. WILL

BE SE

CMDTO FLRG

?F THE

HHo 3636 3 96 3 36 3 3 3 36 36 3 36 3 36 36 36 36 36 36 36 3 3 3 36 3 36 3 36 36 48 36 3 3 3 36 36 3¢ 3 3 3 3 3t 36 3 3 3 3 36 3 36 36 3¢ 3 3 3 3 % X % X % %
047154

9352
9953
9954
9955
995

Q47156
(047160
Q47162
(047164
47170

9958
9969

(010546

W.WTCH:

010446
010346
010246
013746
8053 7

177776
003056

9360

047176
Q47204

047210

013737
105737

003060
003100

9962

Q47220

013702

003036

9964

(047230

001016

995

PC,W.WTCH
IF NO DRIVE ORDER EXCEEDED ITS TIME LIMIT

047174

01034

RS, -(SP)

RQ,—(SP)
R3,-(SP)
Re,-(SP)
PS,-(SP)
W.MTIM

SQVE R4 ON THE STACK
SRVE R3 ON THE STRCK
SQVE R2 ON STARCK
SQVE PROGRAM STATUS WORD ON STACK
?ECRSHENT HIk%*SSCOND TIMER

MOV
7STB

W.MILI,W.MTIM
W.TIME

REINITIRLIZE MILLISECOND TIMER
CHECK IF DRIVE IS BEING TIMED

BNE

203

BEQ

MOV

RKPRI,PS

9963

DEC

W.DRV

005337

003114

,SAVE RS ON THE STACK

MOV
MOV
MOV
MOV
DEC

3961 Q047212 013737 003042 177776
(047224

001426

003056

MOV

BNE

20%

RKBRS,R2

20%

ETURN

LOCK OUT RK06-RK07 INTERRUPTS

LORD BRSE OF RKO6-RKD? REGISTERS
DECREMENT COMMAND TIMER

RETURN IF NO TIME OUT

SEQ D194

CZRENDO RKG11-06 SS VERIF 2
CZREND.P11
10-JAN-78 10:05

995

Q47232

105037

3966
9967
9968
9969
9970
9371
9972
9973
9974
3375
9976

047236
047242
Q47250
047254
Q47256
Q47262
Q47266
Q47272

013705
052765
020537
001002
005037
004737
012637
012602

9979

047300

012605

9977
9978
9980

Q47274
(47276

047302

MACY11 30A(1052)
10-JAN-78
¥WATCH-DOG TIMER

003100

003112
000100
003054
003054
052536
177776

CLRB

000014

5§ :
208 :

MOV
BIS
CMP
BNE
CLR
JSR
MOV
MOV

012603
012604

A0V
MOV

000207

RTS

MOV

NL1S

12:02

PAGE

196

W.TIME

:RESET TIMING INDICATOR

(5P)+ R3
(S5P)+.RY4

RESTORES R3
‘RESTORE
R

RETURN

PBLKT,RS
:LORD ADCRESS OF PARAMETER BLOCK
TABLE FOR INDEXING
SCMDTO,P.PRST(RSS ;SET COMMAND TIME OUT
RS, 0.WAIT
;checx IF DRIVER IS WRITING FOR
.~
COMMAND COMPLETION
S$
NO DO NOT ALTER WRITING FOR
COMMAND COMPLET ION
0.WAIT
CLEQR WAIT FOR COMMAND COMPLETION
PC,R.ABNL
"BRANCH TO ERROR ROUTINE
(SP)+,PS
'RESTORE PSW
(§P)+.R2
:RESTORE R2
(5P)+.RS

RESTORE RS

SEQ 0195

CZRENDO Rkb11-06 SS VERIF 2
CZREND.P11
10-JAN-78 10:0S

Blb

MACY11l 30A(1052)
10-JAN-78
12:02
PAGE 197
%¥RK06 INTERRUPT SERVICE ROUTINE

gggé

.SBTTL

3333

‘llllli!l’*iillllillflllIilllll!ll!llllllllil!l!lllll!*!lli}llilill

#RKO® INTERRUPT SERVICE ROUTINE

gggg

THIS ROUTINE WILL SERVICE ALL RKO®& INTERRLPTS.

9987

UPON RECEIVING AN INTERRUPT,

gggg

9990

9399]

3932
9993
999y
9945

¥
¥
¥
¥
ERETSRS
S

gggg
9938
13383

10001
10002
igggg
10005
|=]
o
O
~

10006

SRR

100
10009
10010
10011
10012
10013
10014
10018
10016

ISSUED

THREE LINKS ARE PRCVIDED TO THE DRIVING PROGRAM.
THEY RRE:

1.) A.NORM ADDRESS OF NORMAL RETURN (SUCESSFUL COMPLETION OF COMMAND)
2.) A.ABNL ADDRESS OF ABPNORMAL RETURN (UNSUCESSFUL COMPLETION GF COMMAND)
3.) R.CONT ADDRESS OF ~ONTROL ERROR RETURN
FOR NORMAL AND ABNORMAL RETURNS,

THE RODRESS OF THE APPROPRIATE

FOR THE CONTROLLER ERROR RETURN,

THE LOCATION E.CONT CONTAINS

PARAMETER BLOCK WILL BE

IN RS.

THE REASON FOR THE CONTROLLER ERROR.

ROUTINES UgED
C.0PT
Q.PUSH
@.RMOV
R.CONT
R.NORM

R.ABNL

1.CSTS
I.START
I.1SSuU

(GUEUED ONLY)
(QUEUED ONLY)
(QUEUED ONLY)
(SEQUENTIAL ONLY)
(SEGQUENTIQL ONLY)
(SEQUENTIAL ONLY)

I.CCLR

o 39636 36 36 36 36 36 38 36 36 36 36 36 96 36 36 36 36 38 36 36 36 36 36 36 36 36 36 36 36 36 96 36 36 36 36 36 36 w40 36 36 96 96 30 36 36 36 36 36 36 3638 3% 30 35 3% 3 34 38 3 4%

.INTR:

{8853

10026
10027
10028
10029
0030
10031
10
10033
10034
10035
10036

FOR THE QUEUED RKO6 DRIVER.

iggSé

SERVICE PORT WARS SEIZED BY OTHER PNRT

3.) SERVICE POSITIONING COMPLETICN
4.) REQUEUE COMMAND IF DRIVE WARS RELEASED
FOR THE oueuso RKO6 DRIVER.
S.)
IF NO SERVICE IS REQUIRED,
THE COMMAND WILL BE

10018
10019
10020

10025

1.)

2.) SERVICE DRIVER IS WRIT FOR COMMAND COMPLETION

10017

THIS ROUTINE WILL

PERFORM ONE OF THE FOLLOWING SERVICES:

[

SEQ 0196

047304

047306
047310
047312
047314
047316
047320
047324
047332
047340
047342
047350

010546

010446
010346
010246
010146
L0046
015702
016237
032737
001407
052737
004737

003036
000010
001000

003002
003002

100000
0S2562

0030S2

MOV

MOV
MOV
MOV
MOV
MOV
MOV
MOV
BIT
BEQ
BIS
JSR

RS, -(SP)

RH,-(SP)
R3,-(SP)
Re,~(SP)
R1,-(SP)
RO, -(SP)
RKBAS, R2
RKCS2UR2), T.CS2
OHDS T.CS2
19
8& .MDS,E.CONT
PC,R .CONT

;STORE RS ON THE STRCK

STORE RY ON THE STACK
STORE R3 ON THE STACK
STORE R2 ON THE STACK
STORE R1 ON THE STACK
STORE RO ON THE STRCK
LORD R2 TO ADDRESS RK0O6 REGISTER
STO g CSe
CHECK IF MULTIPLE DRIVE SELECT
NO CONTINUE PROCESSIN
SET MULTIPLE DRIVE SELECT
REPORT ERROR

CZRENDO ?Tbllros
SS VERIF 2
N-78 10:05
10-JRN
CZREND.P
10037
10038

047354

000137

MACYLll

047366
047370
047374

000473

105037

003074

047376
047402

105037
000137

003074
0S0S16

047406

032737

010400

o47414
047416
Q47422
047426

001413
013704
042704
013705
0ibe3?
000137

003002
177770
003112
000000
047726

047444

047452

0°'6237
032737

0oogle2
000001

003020
063020

047480

001041

o47462

032737

164000

003002

047470
047472

001007
016237

000014

003016

047500

032737

125700

003016

047506

001407

047510
047516
g47522

052737
004737
000137

gsesee
051534

047526
047532
047536

105037
005037
01370S

003100
003114
003112

047542

052765

010000

47432
47440

%#RK

003002

Clb

S22 InTeRRIET TBav 8 FRou TIRE 198
I.RTRN

: RETURN

19:

§
anx
CLRB
B8R

1578

gi
53
I1.ISRL
1.1Co

é
IF Dr gv
connnuohEL?
xr RELERSE
cHtcx
:YES,CLEAR FLAG
PROCESSING INTERRUPT
confxuue

53:

CLRB

I.ISRL

s CLEAR FLAG

68:

BIT

SNED!UFE,T.CS2

BEQ

IMP

MOV

D47550
047554
047560

C00137

047564
047570

013705
001002

003054

047572

000137

050S16

047576

013704

003002

003352

cnscx

I.ATTN

F_INTE"RYPT

RELEASE

GO PROCESS DRIVE ATTENTIONS
;CHECK FOR NON-EXISTEN' DRIVE OR

;1;53 Bu
; UNIT

AL ACCESS INTERRUPT

MOV
MOV

RKDS(K2),T.DS

BIC

MOV

003000

1SRL

LohoRY FOR DRIVE NUMBER
ufc<ohvnsx> RY
:KEEP DRIV % g
PBLKT,RS
! GTORE Pnanns ER BLOCK ADDRESS REPORT
nxcsxtne) T.CS1 :LOAD TEMPORARY CSI FOR STATUS

INP

BIT
BNE

T.CS2,RY
I1.ERR

'REPORT ERROR

#DRA, .04
1.100

;STORE STATUS REGISTER FOR COMPARISON

cugga 1F DRIVE SEIZED BY OTHER
!NO, CONTINUE PROCESSING INTERRUPT

CHECK IF ANY DATA TRQNSFER ERROR EXISTS

BNE

MOV

#DLT'WCE

! UPE!'NEM, T.CS2

108

RKER(R2),T.ER

: INDICRTE ERROR

:STORE ERROR REGISTER

CHECK FOR DATA TRANSFER ERROR TYPE ERROR
#DCK!OPI!WLE!COE!HVRC!BSE!ECH, T.ER
BIT

BEQ
000010

SEQ Q0197

IMP

051534
003074

47360
47364

30A(1

108:

11%:

BIS

JSR
JMP

CLRB

1.100:

c3:

W.TIME

;SET UNEXPECTED DATA TYPE ERROR

:REPORT ERROR
'RESTORE REGISTERS

;RESET TIMING ON THIS DRIVE

W.DRV

BIS

OORVSZD,P.PRST(RS).SET onxvs SEIZED IN THE
PROGRAM DRIVE STATUS REGISTER
*CLEAR WAIT FOR COMMAND COMPLETION
0.WAIT
:INDICATE ABNORMAL TERMINATION
PC,R.ABNL
I.RTRN
1GO RESTORE REGISTERS

CLR
JSR
JMP

003054

8E.UDRT,E.CONT

PC.R.CONT
I.RTRN

:NO, WRIT FOR RELEASE OF RKC6 DRIVE

CLR

MOV
00014

118

MOV
BNE

PBLKT,RS

CLERR TIMING COUNT FOR THIS DRIVE
ongons gxru PRRAMETER BLOCK

IMP

0.WARIT,RS
2%
I.ATTN

;LORD PARAMFTMTM 2_0CK ADURESS INTO RS
1IS COMMANUL wri1INe PROCESSING
:"TYES,
DO PROCESSING
INO, PROCESS ATTENTION

MOY

T.CS2,R4

:STORE RKCS2 FOR DRIVE NUMBER

CZR6ENDO RKB11-06 SS VERIF 2

CZR6ND.P11

18
10095

0096

10097

047606

047612

#1C<DRVMSK>
,R4

126504

000000

CMPB

P.DRVN(RS),R4

HALT

DRIVER ERROR
cggfiLuo,P. cnnotné): ChECK
i AD AongngsgN FeR

001401

Pe bt
Pt Pt Pt
TELEELELLLEQDEREEOWWWIN
NN R
i
e Pte Ptipa ie p—e1 O0 00 00 00
m\w‘m.:wmu-o\mnVtrm.cumv-o.nm\:o‘mxwmv—omm\xmmxwm.—mgggazu

e e e

ey et el el et et et ey e el o e et e

Y e e

el oy e ey

el ) oY oy WOy

O0O000000000000D0O00O00O00O0O0OO0O00O0ODOOCO0DO0OO00000NO0

[

016237
2737

000000
100000

047702

DO4737

052550

047712

0S27%5

000010

4737
47754 880485

052204

108:

000137

47720

013765

003000

000016

CMPB

9“5

LR
LR

50006

412737

0Q000S

;CHECK IF DRIVE NUMBER IS EXPECTED

,vss, CONT INUE

f.HonL

08EEEE ¥ =p8can HERDER SEQUENCE

A IT

WAIT
FOR CQMMAND COMPLETION
YTHE
i &HERR HAPCH-B0c

TI s
:RESET TIMING ON THIS DRIVE
RKCSl(RE) T.CS1 ;STORE COMMAND AND STATUS REGISTER 1
#CERR,T.C81
cnscxpsr
CONTROLLER ERROR

ékgggstRE)
nso#
0 F RTT
N%?gg
UMMARY SET
INTMSK,
n
T
éor+1
CHECKRi
DRIVE
ATTENTION
158
:YES, REPORT ERROR

JMP

1.RTRN

PC,R.NORM

P INDYCATE NORMA. RETURN
'RESTORE REGISTERS

15%:

BIS

SUEXATT,P.PRST(RS)

I.ERRA:

JSR

PC,1.CSTS

I.EAR

TOR
TORE
S NTROLLER
TTESN Eno STATUS
POSITION INFORMATION

I.CRRC:

MOV

T.CS1,P.CSI(RS)

;GET ERROR RRCS1

RO, I. CCLR

CLERR CONTROLLE

Ss
RO,
1.STAT

?
:GA
ncn D xvs srnrus

#DR.CLR,T.CS1

:LORD COMMAND

47790 DIboEe
OBoo5S
000062 I.ERR:
MO
047746
01626
008030
000060
=~
MOV
047754 004037 0S1552
JSR
g47760
051534
é.RTRN
047762 032765 010400 000020
iT
047770
0010‘49
BNE
047772
004037
052310
JSR
051534

;MASK OUT UNNECESSARY BITS

285
81
8
BNE
JSR

051534
000014

BEQ

CLRB
MOV
BIT

003000
003000

033265
0?1025
016 003014
47672
138;37
888161
003015
047700 0G1004

50000

SEG 0198

BIC

047646
047654

047776

FAGE 199

177770

Y7
B33TIdY
8328397
Bi763
Oo47ed2 105037 003100

047726

D16

12:02

042704

Bigg 83;252 886?9; 050164

047706

!0-JAN-78

¥RKO6 INTERRUPT SERVICE ROUTINE

10099 047614
047616 000000
122766 000164 00000' 3$:

Uy Wiy Sy Uy Wy Dy DY Vo Wy Wy W r e

10098

047602

10-JAN-78 10:05

MACYL1 30A(10S2)

1.RTRN

003000

MOVB

;SET UNEXPECTED ATTENTION

Sfigép%‘é‘
“H”*‘S?o
CON TR
TERN.
T
RKECPS(R2) P.EPA
|P.EPOS(R
groRE Egc
POSITION
8 TlilR
#NED! UFE,P. CSE(RS)
HECK IF IT WAS NON-EXISTENT DRIVE OR
. ONITrsto ERROR

,snaon asrunn

004037

0S1634

050022

133737

001407

003101

050024 0S2737 000020 003052

BEQ

BIS

0S0032
050036

004737
000137

052562
051534

JSR
TMP

PC,R.CONT
I.RTRN

nspoar CONTROLLER ERROR
GO RESTORE REGISTERS

0S0042
050050

032737
001403

040000

BIT
BEQ

#5.0SC, T.MR2

cuec IF DRIVE s ATUS CHANGE CLEARRED
CHECK FAULT

BEQ
BIS
JSR

5§
#E.DPAR,E.CONT
.CONT

NO NDICRTE ABNORMAL TERMINATION
;SE} onxvs PARITY ERROR
:INDICATE CONTROLLER ERROR

050012

061534

050014

050052
0S2765 000040 000014
050060 032737 001000 003026
050066
050070
050076

0S0102

001407
0S2737
004737

000137

002000
052562
051534

003052

RO, 1. TSSU

BITB

INTMSK, T. ASOF +1 cuscx 1€ ATTENTION PSSET

1.RTRN

003015

003024

JSR

2%:

3%:

BIS
BIT
JMP

; ISSUE oaxvr CLEAR
snnon RETURN

INDICATE DRIVE ERROR

$E.CLAT,E.CONT zl¢grgEég" DID NOT RESET

8DRVDSC,P.
PRST(RQ)
éET DSC DID NOT CLEAR
8S.PAR, 1. MR3
CHECK IF DRIVE PARITY ERROR
I.QTRN

RE URN

CZRBNOO RK611/06 SS VERIF 2
CZRBEND.P11
10-JAN-78 10:08
10149

10150

0S0106

10151
10152
10153
10154
10155
101S6
{8igg

0S01i4
0S0116
0S0124
0SQ0126
0S0134
0S0142
0S0150

10159

0S01s4

}8{2?

05C160

032765

001017
032737
001413
0S276S
113737
013737
000137
004737

000137

clb

MACY1l 30A(10S2)
_10-JAN-78
12:02 PAGE 200
¥RK06 INTERRUPT SERVICE ROUTINE

000020

000014

020000
020000
003101
003064
051534

003024
000014
003100

5SS$:

052536

igigg

#DRVHRD,P.PRST(RS)

108
i YEQ GO_REPORT ERROR
IS PIP,T.MR2
:CHECK IF DRIVE IS CYCLING DOWN
108
:NO, REPORT ERROR
#E.UNLD,P.PRST(RS) :SET DRIVE UNL ORDING
INTFSK a TIM E
SE? UP8 SECONDS FOR DRIVE TO CYCLE UP
W.8SEC,W
I.RTRN’
;GO RESTORE REGISTERS

10%:

JSR

PC,R.RBNL

.SBTTL

#READ ALL HEADERS INTERRUPT SEQUENCE

JMP

OStied4

016237

000000

003000

I.HDAL: MOV

10166
igigg

0S0172
0S0200

032737
001422

100000

003000

BIT
BEQ

8CERR, T.CS1
=3 3

10169

0S0202

005037

003054

CLR

0.WAIT

0S0e06
0S0ele
0S0ele
0S0224
050230
050234
0S0236
050242

105037
005037
013765
004737
004037
051534
004737
000137

003100
003114
003000
052226
051552

10179

0S0246

016237

000016

10181

0S0e262

001410

000016

052536
051534
003014

10180 0S0e54 133737 003101 003015
10182
10183
10184
{gigg
10187

0S0ee4
050270
050274
0S0300

005037
105037
S037
000137

003054
003100
003114
047720

0S0304

013701

003070

10188
10189
10190

0S0310
0S0314
050320

0lee2l
016221
Q16221

000024
000024
000024

10192
10193
10194
10195
10196

0S0330
0S0336
(0S0344
0S0346
0S03Se

016237
032737
0010SS
005337
001026

000010
100000

10198
10199
10200
10201

050360
0S0364
0S0370
050376

005037
105037
012762
112737

003114
003100
000003
000001

10203
10204

0S0O410
0S0412

051534
013765

10191

050324

010137

003070

7%:

RKCS1(R2),T.CS1 S
; TESEOCSI TO CHECK CONTROLLER

{CHECK IF CONTROLLER ERROR
iNO, CHECK FOR RTTENTION
;CLERR WRITING FOR COMMAND COMPLETE

W.TIME
W.DRV
T7.CS1,P.CS1(RS)
PC,1.8571
RO, I.CCLR
PC,R.RBNL
1.RTRN

!PESET TIMING ON DRIVE
iCLEAR TIME OUT COUNT
;STORE ERROR RKCS1
; STORE CONTROLLER REGISTERS
:CLEAR CONTROLLER
:ERROR RETURN
: INDICATE ERROR_RETURN
{RESTORE REGISTERS

MOV

RKASOF (R2)

ASOF ;STORE ATTENTION_ SUMMARY

BEQ

B1TB

MOV

INTMSK, QQOF+1 ,CAECK IF DRIVE ATTENTION IS SET

0.WAIT
W.TIME
W.DRV
I1.ERRA
HOR.AD,R1

;NO,

CHECK IF RERD ALL HERDERS

:CLEAR WAITING FOR COMMAND COMPLETION
RESET TIMING ON DRIVE
:CLEAR TIME OUT COUNT
;G0 REPORTM ERROR
;GET MAIN MEMORY RDDRESS

MoV
MoV
MOV

RKDB(R2), (R1)+
RKDB(R2), (R1)+
RKDB(R2), (R1)+

:GET FIRST WORD OF HEADER
;GET SECOND WORD OF HERDER
GET THIRD WORD OF
HERDER

MOV
BIT
BNE
DEC
BNE

RKLS2(R2), T.CS2
#OLT,T.CS2
35%
HDR.CT
253

STORE cSe 10 CHECK FOR DATR LRTE
:CHECK FOR DATRLATE
:YES, REPORT ERROR
:DECREMENT NUMBER OF HERDER YET TO RERD
:IF NON-ZERO, GO ISSUE NEXT REARD HERDER

000026
003000

CLR
CLRB
MOV
MovB

W.DRV
W.TIME
%3 RKMRI(RE)
#DR.SEL,
7.CS1

:CLEAR TIME OUT COUNT FOR_THIS DRIVE
:CLEAR WATCH DOG TIME ON THIS DRIVE
:LOAD HQINTENQNCE REGISTER FOR SECTOR COL iIT
LORD SELECT COMMAND

0000S6

I.RTRN
MOV

ERROR RETURN
T.MR3,P.B11(RS) ;LOAD SECTOR COUNT

003002
003002

10197 050354 005037 003054

003026

GO RESTORE REGISTERS

CLRB
CLR
MoV
JSR
JSR
I.RTRN
JSR
ImMp
CLR
CLRB
CLR
JMP

003072

10202 0S0404 004037 0S1634

G5$:

; GO REPORT ERROR

I.RTRN

igigg

10170
10171
10172
10173
10174
1017S
10176
{8{;;

:CHECK IF HARD DRIVE ERROR

BNE
BIT
BEG
BIS
Move
MOV
JMP

003114

051534

BIT

SEQ@ 0199

MOV

CLR
JSR

R1, HOR.AD

O.WAIT

RO, I. ISQU

TORE RDDRESS FOR NEXT HEADER

:CLEAR DRIVEk WARITING FOR COMMAND COMPLETION
GET SECTOR COUNT

CZR&hDO RK&11-06 SS VERIF ¢
CZRE6ND.P11
10-JAN-78 10:0S

F16

MACY11l 30A(10S2)
10-JAN-78
12:02 _PAGE 201
*READ RALL HERDERS INTERRUPT SEGUENCE

10205

igggg 050420
0S042e4 004737
000137 052550
051534

10208

10209
10210
igg{é
10213
10214

0S0430

0S0436
0S0444
0S0452
0S0460
0QSQO466

016562

016562
116S6S
042765
112765
016562

000002

000004
000007
165777
000125
000016

iggig 0so474 000137 0S1534
10217

10218

0S0S00

050506

052737

004737

000400

052562

igség 050512 000137 051534

000020

000006
000017
000016
000Ul6
000000
003052

{gggé

10223
10224

10225
{gggg
10228

igsgg
10231

0S0S1e

016237

000000

003000

0S0Sa24
050532

032737
001441

100000

0S0S34

032737

0S0S42

001007

003016

igggg

0S0S60

001407

10239

0S0Sebe

050570
0S0574

004737
000137

052737

000010

10243

0S0600

013704

003002

10245
iyed4e
igg:g

0S0610
0S0614
050620

105037
005037
013705

003100
003114
003112

052562
0S1S34

003052

10249
0S0624

04276S

000006

igsga

050632

000137

047726

102S5

0S0636

032737

040000

105737

000014

BNE

MOV
;

003015

,RESTORE REGISTERS

;SET DATA LATE WHILE UNLOADING HEADER

; REPORT ERROR

;RESTORE REGISTERS

STORE COMMAND AND STARTUS
REGISTER 1 FOR COMPARISON

CHECK IF CONTROLLER ERROR OCCUPRED
iNO, CHECK IF ATTENTION

OLT!WCE!UPE!NEM, T.CS2
19

RKER(R2),T.ER

; INDICARTE ERROR

:STORE ERROR REGISTER

CHECK FOR DRTR TRRNSFER ERROR TYPE
BIT
#DCK'!OPI!WLE'COE'HVRC!BSE!ECH, T.ER

;NO DATR TRANSFER ERROR

8E.UDART,E.CONT

;SET UNEXPECTED DRTR TYPE ERROR

18:

8IS

JSR
JMP

PC,R.CONT
I.RTRN

REPORT ERROR
{RESTORE REGISTERS

2s:

MoV

T.C

; SAVE CSE FOR REGISTER NUMBER

CLRB
CLR
MOV

W.TIME
W.DRV
PBLKT RS

:CLEAR WATCH DOG TIMER
IRESET TIMER VALUE
; STORE PGRQMETER BLOCK ADDRESS IN RS

;

BIC

.?C<DQVHSK) RY {STRIP OFF JUNK

CLERR DRIVE POSITIONING ANO DRIVE POSITIONED FOR DATAR TRANSFER

IN PROGRAM DEVICE STRTUS REGISTER
BIC
#DRVPOS!DRVPDT,P.PRST(RS)

JMP

I.ERRC

; GO REPORT ERROR

DI, T.CS1

;CHECK IF ANY DRIVE ATTENTION

003000

5%:

BIT

BNE
JMP

es
I.RTRN

003014

6%:

MoV

RKRSOF(RE) T. QSOF

0S1534
000016

;LORD CYLINDER RDDRESS REGISTER

CHECK IF RNY DARTA TRRNSFER TYPE ERROR EXISTS

;

10250
igsgé

!RESTORE REGISTERS

%DRIVE ATTENTION SCANNER

BEG

10244 0S0604 042704 177770

016237

JMP

lE DLT E.CONT

125700

0S0660

JSR

003002

032737

0S0652

I RTRN

164000

050552

10259

JMP

8IS

; INDICARTE NORMAL TERMINATION

P.SECT(RS),RKDA(R2) ;LOAD SECTOR _AND TRACK
P.CS1H(RS) P.CSl#l(Rs) ; STORE BITS 8-15 OF CSl
#tC<COT!CFHT>
,P. CSlés?ve'§
CL;?R ALL BITS EXCEPT FORMAT AND
8RDHEAD, P.CS1 (RS} STORE COMMAND ISSUED
P.CSI(RS),RKCS1(R2)’
SUE READ HEADER

8CERR, T.CS!
5s

10234
igsgg

10260

P.CYLN(RS)
,RKDCYL (R2)

MOV
MovB
BIC
Move
MOV

BIT
BEQ

003016

001002
000137

MOV

003060

000014

0Soe44
050646

R. NORM
h

RKCS1(R2),T.CS1

016237

I.ATTN:

JMP

MOV

0S0S44

10256
{gggg

35§:
.SBTTL

igsgg

10240
igggé

oS%:

JSR

SEQ J200

TS18B

T.ASOF +1

:YES, PROCESS INTERRUPT
:RESYORE REGISTERS

; STORE _ATTENTION SUMMARY

CHECK IF ANY ATTENTIONS SET

003052

050704

13378;

003101

003015

co REPORT
:GO RESTORE REPISTERS

égrnsx T.ASOF+1

$E§CK
IF

unggfiT CONT
uE

SETRUQSOLICQTED RTTENTION

8%:

bRVN(ES) RY

PflRflnETER BLOCK TABLE
NUMBE
8 E DRIVE
E10R

118
I.UNLD

:NO, " CONT INUE
‘SERVICE DRIVE IN POSIION AFTER ERROR

ESIRED INTERRUPT

?8 E ?
ORE ngxsrsns

003000

003026
000200

0o0Q4e
0oaogMe

013765
032765
001004
052765
ooo44e

003024
040000

000040
000040

004000

000014

112737
004037
0S1534
013765
133765
001407
052737

000005
051634

003000

003014
003101

gooo3e
000033

SUMMARY
nrr NTION
nsortnsi srosg
T.ASOF,P.
RTTENTION RESET
CK
INTMSK. P.ASOF+1 (RS}

000020

003052

OE.CLRT,E.CONT

004737
000137

0sesee
051534

013765
032765

003024
040000

001404
052765
oco407

11%:

s pot et

000461

18 037
005037
004737
000Se3

000040
003100
003114
052550

129:

13%:

DODDI—SIOD

000014

DDUDMIT

s e

051434

0
4

000002
000026
000001
0Ci634

000014

Q427eS

e e pma bt bt
pafme
ps bt
b pths
P be bt fs

PC.R.CONT
I.RTRN

8 3112
0000
020000

ba bt

O
O00O00C0O0O
OO0
00
000
0000

s Pt Pt Pt
Bt Pt ot Pt
s Pt Bt (et Pt P
Pt et Pt Pt ot Pt
s P

OO0000000000000000000D000000
WWWwWwWwwwWww WWWwWwwlWw W
"“"‘"""H"‘"’D (@] 00000000
WVLON DO
o w0 m NN LW~-0uONTN

003052

INTERRUP

ION IN RT NTION SUMMARY

013785
116504
032765
00140
00013

050732
050736
050742
050750
050752

Pt Bt Bt Bt Bt

YES GO
PR?EE?S

8E . NOAT,E.CONT

000004
020715
LA
328758 it 887235

BNE
BIS
JSR
JMP
7%:

SEQ 020!

rep 1

000002
052562
0S1534

XU
Z e

001007
052737
004737
000137

o-4<3m<no
VOA<< DOVIMA
m
1]

0S066Y4
050666
050674
050700

PAGE 202

[Py
PN

10ebl
10262
10263
10264
10265
10266

Glb

30R(1052)
10-JAN-78
12:02
¥DRIVE ATTENTION SCANNER

DHZ—O VMO NOTT— IM—OQO

CZRBENDO RK611-06 SS VERIF 2
10-JAN-78 10:05
CZREND.P 11

MACY11l

os UNLD, BP .PRST(RE)

;CHECK IF onxvs UNLOARDING

#DRVPOS,P.PRST(RGS)

:RESET

RKMR] (Ré
#DR.SEL,T.CS1
RO, 1.1S8U°
12

$
x RERR

& »HECK FOR onxvz STQTUS CHANGE
PRbcess ERROR

T wna P. QOO(RS)

s STORE MAINTENANCE REGISTER 2

I.RERR

Pkocsss ERROR

0S¢, P.AOO(RS)" ;CHECK FOR DRIVE STATUS CHANGE
ES, PROCESS DRIVE STATUS CHANGE
3s
snoosc P.PRST(RSS 2T NO DRIVE STATUS CHANGE
#0R.CLR,T.CS1

159%:

;LOAD COMMAND

RO, 1.158u

c ERR onxve STATUS CHANGE

153

s YES,

PC.R.CONT
I.RTRM
000040
000040

DRIVE POSITIONING

CLEAR MAINTENANCE REGISTER 1
:LORD COMMAND
:SELECT DRIVE WITH ATTENTION HIGH
'ERROR RETURN
T.MR3,P. aoo RS) srong srnrua BYTE
0o ness 8
#S.FLY,P.BOO(RS)'

T.MR2,P.ROO(RS)

contxuus INTERRUPT PROCESSING

ISET ATTENTION oxo NOT RESET

WITH DRIVE CLEAR

'FLAG ERROR
'RESTORE REGISTERS

;STORE MAINTENANCE REGISTER 2

#5.0St, P. ROO(RS) CHE%K IF DRIVE STRTUS CHANGE
ET

CONTINUE INTERRUPT PROCESSING

SET DRIVE STATUS CHANGE DID NOT CLERR
CDRVDSC P. PRST(RQ)
GO’ PROCESS ERROR

1693

000014

I.ARERR

16%:

W. TIME

. DRV
PC,R.NORM
I.RTRN

sRESET TIMING ON_THIS DRIVE

*CLEAR DRIVE TIMING CoU
:REPORT SUCCESSFUL connnno COMPLETETION
'RESTORE REGISTERS

013765

003004

013765
013765
013765
013765

00301e
003014
003016
003020
052310

000030
000032
000034
000036

00000S
0Si634

003000

003101

003015

000020
052562
051534

003052

000020

000014

8137ee

000137

B8aRze

0513%6
0S1364
051366
051374
051376
051404
gsi412
051420

032765
GCli01?7
032737
001413
052765
113737
013737
000137

020000

003024

0200C0
003101
003064
051534

000014
003100
003114

051424

004737
000137

052536
051534

QNoOoCnNNLK
oo
L£oOnnLe
=0
oo

e P
e

ol o
G
ol g

s Pt ot bt

0S2765
112737
004037
051534

o
o

Pt Pt
e ba bt

[QQITATVATTRV

000000000
gy

051430

370

004737
000415

032737
001403
052765
105037

#DR.CLR,T.CS1

RO, 1.1S5U

INTMSK, T.ASOF+1
$
8E.CLAT,E.CONT

R.CONT
I.RTRN

-n

-KEEP COMMAND

ISSUED

KEEP CURRENT CONTRCLLER STATJS

~
fl

000016
003000
0001
0002
000022

IN PROGRESS BECAUSE

OF DATA TRAN SFE
'CLERR TIMING FOR THIS DRIVE
RESET WATCH-DOG TIME

~N——nnin
p « R
wn

821572 Q45733
e 8137 88300

SEQ 0202

RESET POSITIONING

.DRVPDT,P.PRST(RS)

MDOOWME
OO N
INODDOUIN-

003100
003114
177741
000036

BIC

[

105037
00S037

I.AERR:

purpr pepe

0S1174
051200

000014

000004

042765

PRGE 203

#ATTENTION ERROR HANDLER

o L I

0Sllee

0000
o

mmwwwuc&‘;wuwuum

368
ww
~N

Dt Pt ot Pt (ot Bt Pt ot Pt Bt Pt Pe Pt s s Bt Pt Bt Pt Pt Pt B 4 s Bt Bt Bt s e Prcm Pt Bt Bt B

364

H16

30A(1052)
10-JAN-78
12:02
*ATTENTION ERROR HANDLER

.SBTTL

Bt P

Pt Pt pt ot Bt Pt Bt s s Pt Pt

s Bt e Pt Pn P

e Pn

MRCY1l

P2 o
[=
]}

OO0000C0O0000000000000O0OO0D0OO0D0VCo0 0000000000000 000000000
WWWOWLIW U W W) LI G W
(I G GG G L) W
) Lt W
g nn4L
£ L g £ £ £ 5 WWWWLWWWWWWNN
N M NN NINVNY
>
s
—
~N
wnrLwmn —Owuo~NONL WOV NN LW~
OWm N N LWMNU—~O VO

CZRBNDO RKB11-06 SS VERIF @
CZREND. PL1
10-JAN-78 10:05

:MAKE _GOODMESSAGE
'STORE CONTROLLER REGISTERS

; GATHER DRIVE STATUS

{ERROR RETURN
:LORD COMMAND
:CLEAR DRIVE ERRORS
:ERROR RETURN
;
_IF ATTENTION RESET
:CHECK

; YES,

FLAG DRIVE ERROR

{SET ATTENTION DID NOT RESET
:REPORT ERROR
{RESTORE REGISTERS

SDRVHRD P. PRST(RS) . CHECK IF nunno DRIVE ERROR
vES, REPORT ERROR
108
#S.PIP,T.MR2
10%
NG, REPORT ERROR

CHECK IF DRIVE IS UNLORDING

ss UNLD,P.PRST(RS)
::SET onxvs UNLORDING DUE TO ERROR
INTMSK W. TIME
-SEYTIMINGON THIS DRIVE
. W.DRY
:LORD B SECONDS FOR CYCLE UP TIME
iW.B8SEC
'RESTORE REGISTERS
I.RTRN’
; REPORT ERROR

10%:

PC,R.ABNL

.SBTTL

CAUSING DRIVE TO UNLORD

I.UNLD:

8E.UNLD, P PRST(RS)

I.RT]N

:RESTORE REGISTERS
CLERR DRIVE UNLORDING BECRUSE OF ERROR

020000
000005
051634

gooecLY
003000

003101

003015

INTMSK(R4), T.ASOF
+1 cuecx IF ATTENTION CLERRED

000020
0sesee

0030s2

cs CLRT CONT
CONT’

040000

003024

000040
003100

000014

15%:
208:

$OR.CLR,T.CS1

RO, I. Iséu

;LOADIN DRIVE CLEAR

GO
ISSUE DRIVE CLEAR
:ERROR RETURN

158

:YES,

hTRN

RESTORE REGISTERS

#5.0SC, T.MR2
20

CONTINUE

ser ATTENTION DID NOT RESET
REPORT ERROR
:CHECK IF DRIVE STAUS CHANGE RESET
YES,

CONTINUE

QDRYDEC P.PRST(RS) -8eT DRIVE STAUS CHANGE DID NOT CLEAR
,Rsé T TIMING ON THIS DRIVE
W.T

CLRSNDO RK&11-06 SS VERIF 2
CZREND.P11
10-JAN-78 10:0S

10373

0S1524

005037

10376

0S1S34

012600

igg;g
10377
10378
10379
10380
10381
igggg

051530
0S1536
0S1540
0S1542
O0S1S44
0Si1s4e
0S1550

004737
012601
012602
012603
012604
012605
000002

003114

052536

I16

MACY11l 30A(10S2)
10-JAN-78
12:02 PAGE 204
#ERROR CRUSING DRIVE TO UNLORD

CLR

JSR

I.RTRN: MOV

MOV
MOV
MOV
MOV
MoV
RTI

W.DRV

PC,R.ABNL
(SP)+,RO

(SP)+,R1
(SP)+,R2
(SP,+,R3
(SP)+,RY
(SP)+,RS

;CLEAR TIME COUNT

:REPORT ERROR
; RESTORE RO

{RESTORE R1
;RESTORE R2
:RESTORE R3
:RESTORE R4
:RESTORE RS
: RETURN

SEG 0203

CZR6ENDO RKE11-06 SS VERIF 2
CZREND. P11
10-JAN-7810:0S

J16

MACY1l 30A(1052)
10-JAN-78
12:02
%CONTROLLER CLEAR ROUTINE

PAGE 20S

{8333

.SBTTL

lgggg
1

;i!ill!**(l*!ll!!ll!lll*!!!l!*!!l*ll*!**llf!!li*il*l‘l*!ll*lll!l!l

10388
10389
10390

Dx
Sy
‘x

10392

b x

10391

s¥

10393

#*CONTROLLER CLEAR ROUTINE

THIS ROUTINE WILL BE USED BY THE DRIVER TO CLERR THE CONTROLLER
AND CHECK IF THE CONTROLLER ERRORS nns RESET.
1IF THE ERROR IS NOT
CLEARED, THE ROUTINE AS SPECIFIED IN A.CONT WILL BE CALLED WITH

C.CCLR SET IN E.CONT.

USE

10396
{8335

'y
H

R2
RS

ADDRESS OF RKO6 REGISTERS
ADDRESS OF PARAMETER BLOCK

16400
13402
ig:ga

sx
<ADDRESS o# ERROR RETURN)
iy
RETURN
:; 36 36 36 3 36 36 3 36 36 36 3 36 3 3 36 36 36 36 3 3 3 36 3 36 3 3 36 36 36 3 3¢ 36 3 3 3 36 3 36 36 3 3 3 3 3 3 3 3 3 2 3 3 3 3 3 3 3 3 % % % % ¥

S
;®

10394
10395

10399

10405

10406

"%CALL

051552

012762

0l6237

10409
10410
10411

051574
05157
051604

001407
052737
004737

{8:i3

051612

000200

10415

0S1614

012762

10417
10418

051630
051632

005720
000200

100000

000000

003000

10407 051566 032737 100000 003000

10412 051610 011000
10416

JSR

CCLR

051560

10408

051622

112737

000001
052562
000100

177777

I.CCLR:

003052

000000

003074

MOV

BIT

RKCS1IR2).T.CS1 :STORE COMMAND AND STATUS REGISTER 1

8CCLR,RKCS1(R2)

;CLEAR CONTROLLER

BEQ
BIS
JSR

5§
cs CCLR,E.CONT
R.CONT

YES, RETURN TO DRIVER PROCESSING
:SET’ CLEAR CONTROLLER DID NOT CLEAR ERROR
'REPORT CONTROLLER ERROR

RTS

'RETURN

MOV
S$:

MOV

MOVB
757
RTS

8CERR, c
T sx

(Rb) RO

OIE 3nC510R2)

-1 1. YSRL
RU

0¥+’

:CHECK IF CONTROLLER CLEAR DID
:

CLEAR_ERROR

ISET UP ERROR RETURN

;SET INTERRUPT ENABLE

'SET INTERRUPT ENABLE ISSUED
!ADJUST FOR NORMAL RETURN
RETURN

SEQ 0204

CZRBENDO RKE11-06 SS VERIF 2
CZREND. P11
10-3AN-78 10:05

MACY11l 30A(1062)
10-JAN-78
12:02 PAGE 206
*COMMAND ISSUED BY DRIVER SERVICE ROUTINE

igzég

.SBTTL

lgqgé

, Y

10423
10424
10425

S
Py
%

THIS ROUTINE WILL ISSUE THE COMMAND AS SPECIFIED IN T.CSl
AND CHECK IF
A
CONTROLLER ERROR OCCURRED.
1IF n CONTROLLER
ERROR OCCURRED, E.CERR WILL BE SET IN E.CONT AND

10427

ADDRESS IN R.CONT.

10429

‘x

USE

ADDDRESS OF RKO6& REGISTERS

104

10426

10430
10431

¥
; *

18333

10432

10435

10436

RETURN

‘x

10442
10443

s %
‘%

s %

10447

0S1634

0S1640
051644

ROUTINES USED:
memmemeoee———-

I.CCLR
1.5TOR

10453
10484
10455

10457

013746

003000

1.ISSU:

MOV

005037
116537

003002
000000

051674
051702

013762
105762

003000
000000

0S1710

004737

052056

0S1742
051746

004737
000440

052562

10467

051750

032737

024000

003000

10469

051760

032737

176400

003002

BIT

051770

032737

131761

003016

BIT

122716

00000S

051706

100375

10468
10470

10471

ig:;g

10474

051756
051766

051776

0S2000

001027

001023
001017

: STORE COMMAND ISSUED

003002

T.¢52’°
:CLERR TEMFPORARY CS2
P.DRVN(RS),T.CS2’ ;LOARD IN DRIVE NUMBER

000000

MOV
1STB

T AND DRIVE TYPE
T.CS1,RKCS1(R2) ISSUE connnno
RKCS1IR2)
'WAIT FOR REARDY

MOV
MOVB
BICB
18:

BPL

JSR

10458 051714 032737 100000 003000
10459
051722
001437
10460
051724
032737
001000 003002
10461
051732
001406
10462 051734 0S2737 100000 003052

10466

T.CS1,-(SP)

CLR
MOVB

10450 061652 013762 003002 00GOLC
10451 051660 116537 000007 003001
10452 051666 142737 177753 003001

10463
ig:gg

RO, I.1ISSU

; ,li*l*l!l&l!&llll!ilil«!{!l!l**l!l!ll!*!*l!!l 3 36 3 3 3 3 3 36 3 % % 3% X % % % %%

1045
10449

10456

ADDRESS OF PARAMETER BLOCK

18::2

-=-

Ly
Ly
;¥

10444

memmea-

JSR

10440

10441

CONTROL WILL BE TURN OVER TO THE ROUTINE SPECIFIED BY THE

:%CALL

10437
10438
10433

*COMMAND ISSUED BY DRIVER SERVICE ROUTINE

12222222222222223222222222X2:322222232X222 2222222222322 22222 3

10428

SEJ 0205

BIT
BEQ
BIT
BEQ
BIS
JSR
BR
28:

7.CS2 RKCSé(RB) . GAD DRIVE NUMBER FOR COMMAND
P.csxh(RS) e514] :STORE BITS 8-15 OF CSl
#1C<B.CDT! é crn1> T! csx+x -CLEAR ALL BITS EXCEPT
1s

STOR

ucERRT.CS!
5§
#MDS, T.CS2
23
8E.MDS, E.CONT
PC.R.CONT
10$

;GO STORE REGISTERS

CHECK IF CONTROLLER ERROR OCCUERED
RETURN
cuécxCHECK
IF MULTIPLE
DRIVE SELECT
FOR OTHER CONTROLLER ERRORS
ss? MULTIPLE DRIVE SELECT FLAG

"REPORT CONTROLLER ERROR
*RETURN

:CHECK IF ANY CONTROLLER ERROR IS SET

BIT

#CTO'SPAR, T.CSI

BNE

CMPB

#DR.CLR, (SP)

SUFE!'PGE*NEM!NED! UPE'WCEDLT, T.CS2
)

$ILC!DTYE!FMTE!ECH!BSE'HVRC!COE
! DTEOPI!DCK, T.ER

:CHECK IF CLERR DRIVE

CZR6ENDO RK&11/06 SS VERIF @
CZREND. P11
10-JRAN-78 10:0S
1047
1047

10477
10478
10479

BES83e ges3pe
32585 222020

10482
10483
q

000020
051552

oooo14

000100

000000

052022

012762

052034

000200

052036

052737

001000

052044
052050
0S20Se

004737
005726
011000
000200

0Sasee

18187 gesg3s BRasek

0S2054

MACY11l

0030s2

30AR(1052)

¥COMMAND

3%:
cs:

79%:

10%:

L16

PAGE 207
12:02
ISSUED BY DRIVER SERVICE ROUTINE
10-JAN-78

Ble
JSR
10%

OBRVHRD P. PRST(RS) sE? HSRD
RO, I.CCLR

SEQ 0206
SS DRIVE
HARD ERROR

; GO ESUE CONTROLLER CLERR

;ERRO

1SET INTERRUPT ENRBLE

MoV

OIEigKCSI(RE)

RTS

(R01+
RO

ET 80 EOR NORMAL RETURN
985
RETURN

BIS

$E.CERR,E.CONT

SET CONTROLLER ERROR DURING

JSR
TSY
MOV
RTS

PC,R.CONT

REPORT ERROR
;ADJUST STA
:ADJUST RO FOR ERROR RETURN
:RETURN

f2t

(SP)+

(RO), RO
RO

DRIVER SERVICING

CZRENDO Rkb11-06 SS VERIF @2

CZRBND.P11

10-JAN-78 10:05

MRCY1l 30A(1052)

10-JAN-7R

MLE

12:02_PAGE 208

SEQ 0207

%STORE RKb11 UNIBUS REGISTERS

igzg?

.SBTTL

10482

#STORE RKbll UNIBUS REGISTERS

R ZET 222222222222 SR 2222422223223 22222222

lgqgfl
{Oggg

HE4

10497
10498
10499
10500

; #CALL
;¥
H
;%

JSR
RETURN

USE

ADDRESS OF RKB11 REGISTERS

R
P ®

10493

THIS SUBROUTINE IS CALLED BY THE RKO6 DRIVER TO STORE ALL

(%
.

18285

DN
052056
0Sc.e4

016237

000000
000010

003000
003002

I.STOR: MOV
MOV

10510
10511
10512
10513

0S2i00
0Se106
052114
0Sel122

016237
016237
016237
Qle2

000004
000006
000012
000014

003006
003010
003020
003016

MOV
MOV
MOV
MOV

1051S

0S2136

016237

000020

003012

MOV

10517
10518

052152
052160

016237
Q0lee37

000034
000036

003024
003026

MOV
MOV

10S14

1051%
10519

10520
10521

052072

052130

0S2144

JS2166

0bel?4
0Se202

016237

016237
016237

016237
000207

000002

000016

000026

000030
000032

003004

003014

003022
003030

003032

PC,I.STOR

mem——ee-

10507
10508

10509

016237

RKb11 REGISTER IN TEMPORARRY LOCATIONS.

10501
10502

{8283

222222 T2

MOV

-—-

NII

I U

I I OO

RKCS1(R2),T7.CS1 ;STORE ALL CONTROLLER REGISTERS
RKCS2(R2),T7.CS2 ;
EXCEPT DATA BUFFER

RKWC (R2), }.WCR

RKBR(R2),T.BRA
RKDR(R2),T.DA
RKDS(R2),T1.DS
RXER(R2),T.ER

F.KASOF
(R2) ,T.ASOF
RKDCYL(R2),T7.0C

MoV

RKMR1(R2), }.MR]

MOV

RKECPS(R23,7.P0S

MOV
RTS

RKMR2(R2),T.MR2
RKMR3(R2), T.MR3

RKECPT(R2),T.PAT
PC
; RETURN

CZR6ENDO RKG&11-/06 SS VERIF 2
CZREND.P11
10-JAN-7810:05

BO1

MACY11 30R(1052)
10-JAN-78
12:02
%#STORE CONTROLLER STATUS

igggg

.SBTTL

lggsg

{gggg

10529

‘x

10833
10534

Sx
D

10526

10530
10831
10532
10535

*STORE CONTROLLER STATUS

ATTENTION SUFMARY/OFFSET REGISTER

s ¥

. ¥

iggzé

10543

10545
10546

e
;%

10544

10847
igg:g

COMMAND AND STATUS REGISTER 2

WORD COUIT REGISTER
BUS ADDRE.S REGISTER
DESIRED TRARCK AND SECTOR

{%CALL

iggag

THIS SUBROUTINE 1S CALLED BY THE RKO& DRIVER AT PRIORITY 7.

THE FOL_OWING REGISTERS WILL BE STORED:

x
S%
‘¥

P¥

igggg
10538

STRTUS REGISTER
ERROR REGISTER

JSR

RETURN

PC,I.CSTS

CONTENTS

i
‘%

R2
RS

RKO® BRSE RDDRESS
ADDRESS OF PARAMETER BLOCK

. l!l*i!**l**i**lllliiill********}i*il!*i*!{*!!!!ilil*llll**ll*l!
052204

042765

177741

000016

1.CSTS: BIC

0S2212
(052220

042737
053765

000036
003000

003000
000016

BIC
BIS

10888
10559
10560
10861
igggg

052242
082250
052256
0852264
052272

016265
016265
016265
016265
016265

000004
000006
000012
000014
000016

00002+
000026
000036
0GO034
000032

10564

052300

016265

000020

000030

052306

000207

#177741,P.CS1(RS)

sCLEAR ALL BITS EXCEPT FUNCTION

sas T c51
T.C
CS1(RS)

*0F LAST COMMAND ISSUED
*CLEAR FUNCTION OF CS1 STATUS
*GENERATE CS1 STATUS INFORMATION

MOV
MOV
MOV
MOV
MOV

RKBA(R2) ,P.BAR(RS)
RKDA(R2) | P.DTS(RE)
RKDS(R2) ,P.DS(RS)
RKER(R2) ' P.ER(RS)
RKASOF (R2) ,P.ASOF (RS)

:STORE BUS ADDRESS REGISTER
:STORE DESIRED TRACK AND SECTOR
'STORE DRIVE STATUS REGISTER
:STORE ERROR REGISTER
srgngsgrrsnrron SUMMARY AND

MOV

RKDCYL(R2),P.DCYL(RG)

;STORE CYLINDER ADDRESS

10556 0S2226 016265 000010 000020 1I1.CST1: MOV
10857 0S2234 016265 000002 000022
MOV

igggg

CYLINDER RDDRESS REGISTER

THIS ROUTINE ASSUMES THE FOLLOWING REGISTERS CONTAIN:

. *

iggg?

10553
10554
10585

SEQ 0208

,i*il*ll*l!lllll*iill!!’l!!llil!illl!{lll!l!i!llll***&ll*!!*illll

10662

PAGE 209

RTS

RKcsatRe) .CS2(RS)
RKuC(Ra),PWCR(RS)

:STORE COMMAND AND STATUS REGISTER 2
:STORE WORD COUNT REGISTER

*RETURN

REr APV

30A(1
2GATH

1R ]

o B

; ¥
s ¥

OO0
MMM
M~
QWONOC
N LWR—OW

WPy Uy Wy Wy
Y
¥ Sy
o
)
L
O
O
oy S
Y
L

000000000000 000000000
oo
oo oooa oo
U PO P
e e s e
e b= 0= = (YO 000
N~ OQWOE N
LW~ OO0m~N own

[

STRTUS

THIS SUBROUTINE WILL BE USED TO GATHER DRIVE STATUS
10,
AND 11. IT IS ASSUMED THAT THE DRIVE
HAS PREVIOUSLY BEEN SEIZED. IT RUNS AT PRIORITY 7.

BYTE 01

s ¥ CAL.

JSR

RETURN

*
*

s ¥
; %

(RADDRESS

Rgt égnoa RETURN>

THIS ROUTINE RSSUMES THE FOLLOWING REGISTERS CONTAIN:

HE2
X

s ¥
B

HE ]
HE
s %
X
!

CONTENTS

R2
RS

RKO6 BASE ADDRESS
ADDRESS OF PARAMETER BLOCK

< 63636363 33 3 96 36 3 36 0 3 3 3 36 3 36 36 36 36 96 36 3696 J6 36 36 96 36 3 3 3 36 36 36 36 38 3 36 36 3 36 30 36 36 30 3036 36 36 36 36 3 0 06 3 2 0 2 2

’

MOV

#1,RKMR] (R2)

MOVE

coR SEL

33
MOV

nRa AC1(RS)

MOV

#2,RKMR1 (R2)

gl1e7ee

000001

0000es

052316
0Se324

112737
084037

000001
051634

003000

0s2340
052346

013765
012762

003024
003026
000002

000044
000046

0S2354
052362
052366

112737
004037
052520

000001
0S1634

003000

MOVB

052404

012762

003024
003026
000003

osedle
052420
0Sa424
0Se426

112737
004037
0S2520
013765

.STRT:

T.CS!

;LOAD MAINTENANCE REGISTER

LOR8 gTQTUB BYTE Gl

T.MR3 P.BO1(RS)

GET STQTUS BYTES n1
:ERROR §
iSTORE S RTUS BYTE O1 MESS
STORE STATUS BYTE 01 MESS

%ER

#DR.SEL, T.CSl

RO, 1.IS8U°

MMAND
LORD comMM

0000S0
0000Se
000026

MOV
MOV

T.MR
T MR

gTORE ETRTUS SYTE MESS

000001
0S1634

003000

MOVB

%ER

RO, 1. 155U

003024

0000SH4
000056

noy
CLR

Rkflg?tné?

b45037 882834

003000

MOVB

uoR SEL,T.CS!

003024
003026
001000

000040
000042
003026

Besdz Bedne2 g6a8sE

82 446
454
052460
052462
052470
052476
052504

ROUTINES USED:
1.1SSU

052310

328338 Bi3%68
604

DRIVE

RITITIITTIEIIEEITZ
TSRS 2TNTRSIIITL S22
2222 22222222222 22222222 s

18872

#GATHER

SEQ 0209

PAGE 210

052520

001407

000026

JSR

MOV

JSR

3%
MOV

158y’

P A10(RS)
B10(RS)

%3, Rxhnltne)

#DR.SEL,T.CS!

T MRS'PIBI1(RE)
.?%s

MOV

T.MR2,P.ROC(RS)
T.MR3'P.BOO(RS)

BEQ

BIT

#35.PAR, T.MR3

LORD MAINT NRNCE REGISTER
FOR STATUS BYTE

Ha--‘--..-.-...-‘.-a--

.SBTTL

10567
10568
10569

COl

AN-7 ?
12:02
STA us

iGET STATUS BYTES 10

{ERA0 SIS evre 10 mess

:L0AD_MAINTENANCE REGISTER
LORSRCS;RTUS BYTE 11
{GET STRTUS BYTES 11
: ERROR R§
STORE S RTUS BYTE 11 MESS

CoRD-MAINTERARCE REIETER

MACY1l

—@m D

CZRBNDO RK611 06 SS VERIF 2
10-JAN-78 10:0S
CZRENC
.P

FOR STQTUS BYTE 00

'Lono

;GETSTRTUSBYTES 0O

‘ERROR RETURN
:STORE STATUS BYTE 00 MESS A

:STORE STATUS BYTE 00 MESS B
:CHECK IF BAD PARITY DETECTED BY DRIVE
NO RETURN NORMALLY

CZR6ENDO RKb11-06 SS VERIF 2
CZREND.P11
10-JAN-78 10:08

MACY1l

19659 GBS

GEEPL GSOER COMSR

iggsg

000200

10625

0S2520

10628

0S2S24

0S25ee

011000

05276

1963 Bese Bfkeed
1

01000

000014

DOl

30A(10S2)
10-JAN-78
12:02
®GATHER DRIVE STATUS

38:
5S%:

MoV

RTS
BIS

PAGE 211

EPERGCOV
(Rb) RO

#PBSVAL ,P.PRST(RS)

SEQ 0210

RIS TEfOR P17 DETECTED oY oRrve

;LOQD RO FOR ERROR RETURN

; RETURN

;SET PARAMETER BLOCK STATUS VALID

BBt RO FOR NORKAL RCTURN

CZRBENDO RKB11-06 SS VERIF 2

CZRBND.P11

10-JAN-78 10:05

{gggg

MACY1]l 30AR(1052)

052536
052542
052546

10638

052550

003101
130300

R.ABNL: CLRB
JSR
RTS

10639
{82:9

052554
052560

004777
000207

10S037

003101

R.NORM: CLRB

10e42
10643
10644
10645

052562
052566
0S2572
052576

105037
105037
005037
004777

003101
003100
003114
130246

R.CONT:

10646

0See0ec

000207

PAGE 212

#*COMMON DRIVER RETURNS

105037
004777
000207

130264

EOL

12:02

#COMMON DRIVER RETURNS

.SBTTL

10634
10635
igggg

10-JAN-78

INTMSK
PC,adR.ABNL
PC

; INHIBIT FUTURE DRIVE INTERRUPT REPORTING
; INDICATE ABNORMAL RETURN
; RETURN

INTIISK

;INHIBIT FUTURE DRIVE INTERRUPT REPORTING

JSR
RTS

PC, dR.NORM
PC

; INDICATE NORMAL RETURN
; RETURN

CLRB
CLR8B
CLR
JSR

INTMSK
W. TIME
W.DRV
PC,adR.CONT

; INHIBIT FUTURE DRIVE INTERRUPT REPORTING
;RESET WATCH DOG TIMING ON THIS DRIVE
:CLEAR TIMING COUNT FOR THIS DRIVE
;: INDICATE CONTROLLER ERROR RETURN

RTS

; RETURN

SEG 0211

CZRBENDO RKB11/06 SS VERIF 2
CZREND.P11
10-JAN-78 10:0%

MACY11l 30R(1052)
10-JAN-78
¥COMMAND INITATOR

FOI

12:02

PAGE 213

SEQ 0212

igg:g

.SBTTL

10649

,iill!*l!l*!illllil!!!l!*ll*ll!!ll!*!ilfll!# 3% 36 36 3 3 3 3 3 3 3 3 3 3% 3% 3 3 3% % % % % % %

10651
10652

s%
2"

10650

;

iggga

THIS SUBROUTINE WILL INITIATE ALL COMMANDS RS SPECIFIED
BY THE COMMAND FIELD OF THE PARAMETER BLOCK. THE FOLLOWING

SPECIAL COMMAND RRE ALSO EXECUTED:

10655
10656
10657
10658
{gggg

#COMMAND INITATOR

2
s ¥
;¥
;¥
;:

{8&25

RELERSE
CONROLLER CLERR
SUBSYSTEM CLERR
READ ALL DRIVE STATUS
READ SPECIFIED HERDER

THE ABOVE COMMANDS ARE TRANSLATED INTO A SEQUENCE OF COMMANDS

; #CALL

JSR

igggg

RETURN

106E7

FOR THE SEQUENTIAL OPERATIONS,

;*l

10675

H %*

10663

;¥

10664

%8228

10670
10671
10672
10673
10674

10678

052604

010S46

0S2606
052610
052612
052614
0Sc616

010446
010346
010246
010146
010046

10685
10686
10687
10688
10689
10690

0Sebe4
052632
052636
052644
0S2650
0Se654

013737
017605
062766
016504
042704
010537

003042
000016
000002
000000
177770
003112

10691 052660 116437 003102 003101
10632 0Sebbb 116437 003102 003100
18233 052674 013737 003062 003114
18232

052702

013702

003036

052620

013746

177776

13697

10701
10702

:
;

10698
10699
10700

BMNENRIINNIINR RN

MOV

;
;
;

INTMSK.

THE DRIVER WILL LORD THE

NE R

RS, ~-(SP)

AR R RNR IR RN R R

RRREHRRRERRRRE RS

; STORE RS ON STACK

MOV
MOV
MOV
MOV
MOV

RY,-(SP)
R3,-(SP)
R2,-(SP)
Ri,-(SP)
RO, -(SP)

;STORE R4 ON STACK
;STORE R3 ON STACK
:STORE R2 ON STACK
:STORE RI ON STACK
,STORE RO ON STACK

MOV
MOV
ADD
MOV
BIC
MOV

MOVB
MOVB
MOV

RKPRI;P3
d16(SP), RS
82, 16(5P)
P.ORVNIRS) ,R4
ofc<onvn5K$,Rq
S, PBLKT

;LOCK OUT RKO& INTERRUPTS
'STORE PARAMETER BLOCK ADDRESS
PADJUST RETURN
;STORE DRIVE NUMBER
:MASK 0UT JUNK
iLORD PARAMETER BLOCK TARBLE

1bRV(RH) INTMSK' ;LOAD INTERRUPT MASK
1 DRV(R4)'W.TIME ;SET WATCH-DOG TIMER FLAG
W.SEC, Wokv
Loao WATCH-DOG TIME

MOV

RKBRS, R2

;LOARD R2 WITH RKDO& ADDRESS BASE

MOV

177776
000016

PBLKT AND

ROUTINES usso
W.WTCH
1.CSTS
I1.STRT
I.CCLR

C.INIT:

10679
10680
10681
10682
10683
10684

LOCATIONS,

¥
%"
;¥
;¥
P %

igg;?

PC,C.INIT

PS,-(SP)

;STORE PSW ON STACK

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 ADORESS INCREMENT

CZRENDO RKB11-06 SS VERIF 2
10-JAN-78 10:0S

CZRBND.P11

o4276S

052714

010500
062700
010501
062701

0s2724
052730
0s2732
052734

07?5176

30R(1052)

#COMMAND

INITATOR

RS, RO

#P.CS1,R0

RS,R1

lP.EPflT,Rl

000062

(RO)+
RO,R1
1s
SRL
csa(RS)

19.

005020

052762

a00137

053476

052766

122765

oco107

RKth

; STORE PARAMETER BLOCK ADDRESS

;CALCULATE FIRST LOCRTION TQ BE CLERRED
'STORE PARAMETER BLOCK ADDRESS
:CALCULATE LAST LOCATION TO BE CLEARED
sCLEAR RETURN PARAMETER

'CHECK IF FINISHED
!NO, CLEAR NEXT RETURN PARAMEER
:CLEAR RELEASE OR_INTERRUPT ISSUED
srons DRIVE NUMBER
LEAR RKO® MAINTENANCE REGISTER !

COMMAND

JUfiP TO SPECIAL COMMAND PROCESSOR

#UNLOARD,P.CMND(RS)

3%:

BHI

101174

25%

;CHECK IF POSITIONING COMMAND

8TART SPINDLE
RECALIBRATE
OFFSET
SEEK
UNLORD

;
0S2774

SEQ 0213

ogITs P CMND(RS) &cusggoxr SPECIAL
CESS
3
C.SPeC

000001

PAGE 214

SE ,P.PRST(RS)
! DRPDRV!DTBRII>
DRVU
'W. WCK!NOCHK
#+C<

000016

003074
000020
000026
000040

12:02

10-JAN-78

000014

DRIVE COMMAND

$ELECT DRIVE

PACK QCKNONLEDGE
CLEAR

053052
053054

CHECK IF DATA TRANSFER
#SEEK,P.CMND(RS)
9Egé
DQTQ TRRNSFER COMMAND
20%

Xeoh

000020
000002
003054
000117

000001

c000Qe
000004

0000e0
000006

000115

000001

000006
000032

000032
0coo1e

000L11

000001

003066
000113

003114
000001

NRITE onrn
READ HEADER
WRITE HEADER
WRITE CHECK

(RS), RKcsa(h -LOAD DRIVE NUMBER
0S,P.PRST(RS) SET ORIVE POSITIONING

000010
000014

O—+—0noUnN—

053006
053014
053022
053026
053034

cMPB
BLO

000001

-CLEAR

WAIT FOR COMMAND

,P.CMND(RS)’ cnecx IF SEEK
.NO, CHECK FOR OFFSET
N(RS), RKDCY((Ré) :LOAD CYLINDER ADDRESS
T(RS),RKDR(RE) -LOAD SECTOR AND TRACK
0 YSSUE COMMAND

oOr

000117

052776
053004

Q——0h

NNNNNNNNNINNINNN
nn nTONU 0 s 9t Bt ot Pt ot s e pe () O
LW n 00NN LWNL—-OWVD

052706

on—0n

Pt Pt Pt Pt Pt Pt Pt Pt Pt Pmn Pt ot Pt Pt Pt Pt Pt Pt P

10703

MACY1l

GOl

FFSET,P. CMND(RS& CgECK IF OFFSET

5%:

HECK FOR UNLORD

_OFST(RS),P.ARSOF (RS) ;STORE OFFSET
.ASOF (RS) ,RKRSOF(RE) LORD OFFSET REGISTER
;G 1SS0 COMMARD
6%:
7%:

;SRTSPL P. CHND(RS&O CgECK IF _START SPINDLE
HECK

IF RECAL

$
W.MIN, W.DRV

:LOAD WATCH DOG TIHE FOR 1 MINUTE

NG, CONTINUE

#RECAL ,P. cnnotnsi -CHECK IF RECAL

CZR6ENDO RKH11-06 SS VERIF 2

CZREND.P11

10-JAN-78 10:0S

MACY1l

30A(10S2)

10-JAN-78

¥COMMAND INITATOR

HO1

12:02

PAGE 215

SEQ 0214

18783 Bedtd TiZE2L OB3BE? BB3AM? es.

HOVe BESTAtkeDTY. csiiIPRE)":E7bed'BYrE°E-fs
bF ter

ig;sq 053152 116565 00000f 000016

Move

P. Cng(RS;hST?glfRS) H?VERgggflggg ag}gEcg&ECK

‘Esl<S§§ Bx&sl(aS%é“?séfilsfiR“PTphesLe

10;21

0S3144

042765

165777

000016

107es
823168
B3s7eR
BBOGEA GBG831d
10766
0S3174
001S33

BIC

BIf
BEQ

18582 Be3ifh Bigek3 BRBAPR BBBAAS

#tCC<CFMT!CbT>CSl(RS) CLEQR REL BITS EXCEPT FORMAT

BochiPRRST(RS Reeky
SRILE FORK
SKIP CLERR OF INTERRUPT ENARBLE

{8;?8
§§§§i§4 §gq?7 000200
36683 003000
103
10771
003000

ggs
BIT

RKCSI(RS)
T.CS1 ETBEE
COMMQRB RNBETQTUS REGISTER !
oR¥,T.Csd
‘WAIT FOR RERDY

10773
10774

BIT
BNE

OCERR T.CS1

10772

10775

053232

053234
42

001757

Q3e737
1011

100000

003000

053249

004737

047154

118:

10778
10779
10780
10781
10782

053264
053266
053272
053276
053302

001767
105037
005037
004737
000137

003100
003114
052550
054356

15%:

10784

053306

016562

000010

10776 053250 016237 000016 003014
10777 053256 133737 003101 003015

10785

053314

016562

000012

000004

000002

10786 023336 15976

009137 00000

10790
10791
10792
10743

053346
063354
053356
053364

032765
0014049
012765
000406

000200

000014

000123

000016

10795

053366

116565

000001

000016

10789

0532
4

001010

208%:

BEQ

JSR

MOV
8ITB

CHECK FOR ERROR
GIVE
NORMAL RETURN

YES,

' CALL WATCH

DOG TIMER

Rxhsortna) ASOF;STORE ATTENTION SUMMARY
INTMSK, Tnéor+1 ;CHECK IF INTERRUPT HAS_OCCURRED

BEQ
CLRB
CLR
JSR
IMP

118
W.TIME
W. DR
PC,R.NORM
C.RTRN

MOV

P.BALO(RS),RKBA(R2)

CMPB

sug CHK, ¢nn (RS) EPR TE R CHECK COMMAND

BIT
BEQ
MOV
BR

nu ucx P.PRST (RS}
cuecx IF _WRITE COMMAND SHOULD BE ISSUED
25§
NO, GO ISSUE THE COMMAND
%WRDATA,P.CS1(RS) }ISSUE WRITE COMMAND
268
;GO’ ISSUE COMMAND

MOVE

MOV
BNE

:WAIT FOR DRIVE INTERR
‘RESET TIMING ON THIS onxve
*CLEAR DRIVE TIMING COUNT
:INDICATE COMMAND IS FINISHED
!RESTORE REGISTERS

:LOAD BUS ADDRESS REGISTER

P.WC(RS) RkuC(Ra) Lbno WORD COUNT REGISTER
NO, "GO

ISSUE THE con ND

10796 053374 04276€ 000200 000014
10797 053402 116565 000007 000017 26%:
10798 083410 142765 177750 000017
10799

BIC
MOVB

P.CHMND(RS),P.CSL(RS)

10801

0S3416

010537

MOV

RS,0.WAIT

10803
108049
1080
10806
10807

053430
053432
053440
053446
053454

001403
0S2765
016562
032765
001403

000020
000020
000400

000020
0000I0
000C14

27%:

BEQ
BIS
MOV
BIT
BEQ

278
NO. LORD ¢se
BRI, P.CS2(RS)
'SE INHIBIT BUS ADDRESS INCREMENT
P.CS5(RE) RKGS2(R2) ;LORD CS2
#NOCHK
, P PRST (RS) . CHECK_IN NO CHECK MODE
308
NG
SKIP CLEAR OF INTERRUPT ENABLE

10803
i0810

0S3464
053472

016562
000137

0000le
054456

000000

308:

MOV
IMP

céx(RS) RKCS1(R2) : ISSUE COMMAND
:
.RESTORE REGISTERS

10800

25%:

W. WTCH

003054

10802 053422 032765 100000 000O1Y4
10808 083486 f42765 000100 000016

iggig
10814

BIT

.SBTTL
0S3476

122765

000141

000001

BICB

C.SPEC:

BIC

iMQVE

MMAND

INTQ CS!

$id, W
e
R SRR
Al Y HRTTE FOR WRITE QHECK
P. csttRS) BleaTs
1 LRE) lsvoneBITS 8-15 o CS1
#+C<B.cFMTIB.CDT!B.BR16IB.BAI7>,P.CS1+1(RS) ;CLEAR ALL BITS EXCEPT
;" "FORMA BRIV TYPE, AND B(S ADDRESS
;.

BITS 16-17

:LOAD WAITING FOR COMMAND

sDtBAII,P. PRST(RQ) sCHECK IF INHIBIT BUS ADORESS INCREMENT

SIE.P.CSI(RS)

| CLEAR INTERRUPT ENABLE

*SPECIAL COMMAND PROCESSING
CMPB

SRDSTAT,P.CMND(RS)

;CHECK

IF READ DRIVE STATUS

0 RK611/06 SS VERIF @

~N
W
~N

£
~N
W
~N

053530
053536
053544

O=-00

0535ee

Dw.—-go—-»— L et

0S3504

10-JAN-78 10:0S

00000~

P11

000020
000007
165777
000001
000016
047154
000000
000200
052226

MACY11l 30R(1052)

¥SPECIAL

000016

000016
0ocole

100000

000040
000042
000016

003100
003114
000400

000014

001000

000020

MOVB

2%:

051552

053706

000137

0s3712
053716

0g4037
0S4456

010400

000020

000001

000036

010000
052536
054456

000014

052310
003100
003114
000400

COMMAND

BNE
MOV
MOvB
BIC

000010
000017
000016

0Cc0o0ao0

10-JAN-78

MOV

JSR
MOV
BIT
BEQ
JSR
MOV
MOV
BIT
BEQ
CLRB
CLR
BIT
BNE
BIT
BNE
JSR
C.RTRN
BIT
BNE
BIT
BNE

BIS

PROCESSING

NO,

10%

PC,1.CSTI

. STORE CONTROLLER REGISTERS

REQET WATCH DOG TIHING ON THIS DRIVE

RKhR&(R&),P.AOU(ks :STORE STATUS BYTE 00 MESSAGE
A
RKMR3(R2) ' P.BOO(RS) :STORE STARTUS BYTE 00 MESSAGE B
#CERR,P.CS1(RS) cuséx IF CONTROLLER ERROR

W. TIME

W.DRV

GATHER DRIVE STATUS

CLERR WATCH DOG COU

#NOCHK, P. PRST(RS5 :CHECK IF NO CHECK HODE

; YES,
INDICARTE NORMAL RETURN
IF MULTIPLE DRIVE SELECT
$MDS,P.CS2(RS) SEECK NDICRTE
CONTROLLER ERROR
93
CLEAR RORRN
RO, I.CCLR
RET
8s

ERROR

SNED!UFE,P. cs2(RE) :CHECK IF NON-EXISTENT DRIVE OR UNIT FIELD ERROR
S;
:REPORT ERROR
#DRA,P.DS(RS)
:CHECK xr DRIVE AVRILIARBLE
REPORT ERROR
2y
5§
SDRVSZD, P.PRST(RE) :INDICATE DRIVE IS SEIZED BY OTHER PORT
S IN OICATE ABNORMAL RETURN
PC,R. ABAL
C.RTRN
'RESTORE REGISTERS

JSR
C.RTRN
CLRB
CLR

W. TIME

BEQ
CLR
JSR
JMP

RKCSI(REJ
NORM
hrpn

RO, I.STAT

iW. DRV

; GRTHER DRIVE STATUS

'ERROR RETURN
:STOP_ WATCH-DOG TIHING ON DRIVE
RESET WATCH-DOG TIME

#NOCHK, P. PRST(RS) CHECK IF NO CHECK MODE
NO . REPORT ERROR
8%

CLERR INTERRUPT ENABLE
:REPORT COMMAND COMPLETE
'RESTORE REGISTERS

053750

000137

000000
052550
0s445S6

053754
0S3762
053766

052737
004737
000137

100000
gsesee
054456

003052

9%:

8IS

JSR
JMP

PC.R.CONT
C.RTRN

053772
0S4000
054002

122765
001040
0105837

000140

000001

10%:

cMPB
BNE

#RELERS,P.CMND(RS)

054006
0S401Y4
0s40ee
054030
054036

MoV

003054

000010
000020
000001
000007
165777

000020
000010
003074

BIS
MOV
MOvB

000016

BIC

000017

Move

PROCESS OTHER COMMANDS

#4C<CFMTICOT> ,P.CS1(RS) ;CLEAR ALL BITS EXCEPT FORMAT
> AND DRIVE TYPE
#DR.SEL,P.CS1(RS) :STORE COMMAND
P.CS1(RS),RKCS1(R23 ; ISSUE connnuo
PC.W.WTCH
.CALL WATCH-DOG TIMER
RKES1 (R2) ,P.CS1(RE) :STORE COMMAND AND STATUS REG. |
ggDY,P.CSl(RS) ;WRI1 FOR RERDY

6%:

BS:

SEQ 0215

P.CSIH(RS) P.C51+1<Rs> ;STORE BITS 8-15 OF (Sl

JSR
JMP

BIT

PRAGE 216

P-CS2(RS) . RKCS .(R2) ' :LORD 052 FOR CGMMAND

5%:

000014

101

12:02

$E.MDS,E.CONT

;SET MULTIPLE DRIVE SELECT

*INDICATE CONTROLLER ERROR
;CHECK IF _RELEASE COMMAND

139
RS, 0.WAIT

N0’ "CHECK IF READ ALL HERDERS
srbRE PARAMETER BLOCK RDDRESS IN

ORLS
P.CS2(RS)

SET RELERSE BIT

WAI T FOR COMMAND

é(RS) RKC52 (R2) ;LOAD CS2 FOR DESELECT

SET'FLAG FOR RELEQSE COMMAND

1 ISRL

CSIH( p.cs141(RS):STORE BITS B-15 OF CS1
¢c<crnch> .CS1(RSY " :CLEAR ALL BITS EXCEPT FORMAT
.~

AND DRIVE TYPE

CZR6NDO RKB11/06 SS VERIF 2
CZREND.P11
10~JAN-78 10:05

10871

0S4044

10873

054060

000101

MACY1l 30A(1052)
10-JAN-78
12:02 PARGE 217
%¥SPECIAL COMMAND PROCESSING

000016

MOVB

#SELDRV,P.CS1(RS)

10874 054062 042765 000100 000016

BEQ

#IE.P.CSL(RS)

10872

112765

JO1

054052

032765

10875

054070

016562

000016

000000

11$:

10878

0S4102

122765

000164

000001

13%:

10880

054112

}8339

10879

054076

001403

000137

000400

054456

000014

054110

001053

010537

003054

0S4124
054132
0S41349
0S4142

(32766
001404
012737
000403

000020

000007

0S41M4

(012737

000026

003072

BIT

10887

10888
10889
10890
10891
{gggg
10894
10895
10896
10897
igggg

0S4152
054160
054166
084174
054202
0S4210
0S4216
084224
054226
054234

10800

054240

10901
10902
10903
10304
10805
10306
18385

054246
054250
054254
084256
0S4264
054266
054272

10909

0S4274

10910
10911
10912

000020
0OO000S
000010
000017
000016
000016
000014
000000

228%:

122765

000176

000001

30%:

122765

001406
052737
004737

0S4320

012762

iggia 054316 000457
10915

10916

084326

016265

051552
000400

000014

000177

000001

32%:

000100
052562

003052

348:

000040

000010

36%:

000000

000016

10917
054334
032765
100000 000016
10918
054342
001406
10919 084344 052737 000001 003052

10320

10821
igggg

054352
0S43S6

004737
000437

052562

10924
10925

054360

013746

003060

054364

016265

000000

108926

14$:

000002
000004
000020
000007
165777
000125
000400
000016
054456

084302
054304
084312

000016

CMPB

BNE

BIT8
BEQ
MOV
BR

000024 003072

000000

JIMP

MOV

016562
016562
016662
[16665
042765
112765
032765
001027
016562
000137
001012
004037
054456
032765
001472
005062
000467

MOV

10881 0S4116 016537 000010 003070

10882
10883
10884
igggg

BIC

MOV

MOV
MOV
MOV
MOVB
BIC
MOVB
BIT
BNE
MOV
JMP
CMPB

BNE
JSR
C.RTRN
BIT
BEQ
CLR
BR
CMPB

BEQ
BIS
JSR

MOV

SEQ 0216

;STORE COMMAND

#NOCHK, P.PRGT(RS) :CHECK IF NO CHECK MODE
118

DO NOT RESET INTERRUPT ENARBLE

REQET INTERRUPT ENRBLE

P. céx(RS) Rx051<ha) I1SSUE COMMAND

C.RTR

es*ons REGISTERS

#ROALHD, P. CMND(RS)

3os

0.WARIT

s CHECK IF READ ALL HERDERS

*NO. CHECK IF CONTROLLER CLEAR

:SEt WAITING FOR COMMAND COMMPLETION

PQQLO(RS) HOR.AD;LOARD HEADER ADDRESS

#8_CFMT,PCSlH(RS) “CHECK IF 22 SECTOR FORMANT
148
YES, LORD 22 IN Henosn COUNT
#20. ,HDR.CT
Lonb ao IN SECTOR COUMT
228
!GO ISSUE RERD HEADET COMMAND
#22. ,HDR.CT

:LOAD 22 IN SECTOR COUNT

P.CYLN(RS),RKocvttna) LOR?
CYLINDER ADDRESS
P.SECT(RS) 'RKDA
RAC
P.CS2(R5) hxcsatae)Lono onxvs NUHBER
P.CSIH(RS),P.CS1+1(RS) ;STORE BITS 8-15 OF CSl
#1C<CFMTICOT> ,P. csxézg)rbngnn ALL BITS EXCEPT DRIVE TYPE
$RDHEAD,P.CS1 (RS} ;STORE RERD HERDER COMMAND
#NOCHK, P.PRST(RS) ;CHECK IF NO CHECK MODE
33
. v&S, INDICATE ILLEGAL DRIVER COMMAND
CSl(RS) Rxcs1(ha) 1SSUE READ HEADER
C.R
RESORE REGISTERS
ICONCLR,P.CMND(RS)

; CHECK IF CONTROLLER CLEAR

$SUBCLR, P.CMND(RS)

:CHECK IF SUBSYSTEM CLEAR

328
RO, I.CCLR

“NO. 'CHECK IF SUBSYSTEM CLEAR
:CLEAR CONTROLLER
:ERROR RETURN
SNOCHK, P. PRST (RS} :CHECK IF NO CHECK MODE
40$
:NO, INDICATE NORMAL RETURN
RKCS1(R2)
ResET INTERRUPT ENABLE
40%
: INDICATE NORMAL RETURN
368
ce ILLD E.CONT
CONT

. YES, CLEAR SUBSYSTEM
;SET ILLEGAL DRIVER COMMAND
'REPORT ERROR

h
N

:RESTORE REGISTERS

#SCLR,RKCS2(R2)

ISSUE SUBSYSTEM CLERR

BIT
BEQ
BIS

RKCS1tR2),P csxtks -STORE COMMAND AND STATUS REGISTER 1

JSR
BR

PC,R.CONT
C.RTRN

37%:

MOV

W.MILI,-(SP)

38%:

MOV

RKCSI(RE),P.CS!(QS) :STOURE CS1

#CERR, c
P é1<n5) LEARFINISH
IF CONTROLLER
ERROR RESET
COMMAND
#BITO,E.CONT
sef CLEAR SUBSYSTEM DID NOT CLEAR

37%

"CONTROLLER ERR

*REPORT ERROR
:RESTORE REGISTERS
Lono 16 MILI-SECOND COUNT FOR ATTENTION
TO DISAPPEAR

CZRENDO PKB11/06 SS VERIF 2
CZRBND.P11
10-JAN-78 10:05

10-JAN-78

39%:

#DI,P.CS1(RS)

;CHECK T'F QTTENTIONS CLERRED

393
(SP)
388
(SP)+
$E.SCLR,E.CONT

ves FINISH COMMAND
DECREMENT 16 MILISECOND COUNT
CHECK DRIVE INTERRUPT RGAIN
*ADJUST STACK
:SET suesvsrsn CLERR DID NOT CLERR

JSR
BR

PC,R.CONT
C.RTRN

*REPORT ERROR
'RESTORE REGISTER

(SP)+
ADJUST STACK
$NOCHK, P. PRST(RSS ;CHECK IF NO CHECK MODE
c R RN
vés RESTORE REGISTERS
SET’ INTERRUPT ENABLE SET
, 1. ISRL
cIE RKCSI(RE)
:SET INTERRUPT ENABLE
PC,R.N
: TNDICATE NORMAL TERMINATION
(SP)+,PS

177777
000100
052550

40$:

177776

C.RTRN:

MOV

.SBTTL

PAGE 218

BEQ
DEC
BNE
TST
BIs

TST
BIT
BNE
MOVB
MOV
JSR

000400

KOl

12:02

COMMAND PROCESSING

BIT

0S256e2

[
Ty
e Y ol N o |

054456
os446e
o5S4464
0S4466
054470
0S4472
o5447Y4
054476

*SPECIAL

000040

0S4416
054422

OS4424
054426
oS4434
054436
OSH44Y
054452

30A(10S2)

040000

0s4372
0S4400
0S4402
0S4404
0S4406
054410

MOV
MOV
MOV
MOV
MOV
MOV
RTS

(SP)+.RO
(SP)+ R1
(SP)+.R2
(5P)+.R3
(5P)+ RY
ésp)+,as
c

: " DRIVE ATTENTIONS

;RESTORE PSW

'RESTORE RO
'RESTORE Rl
'RESTORE R2
'RESTORE R3
'RESTORE RY
'RESTORE RS
:RETURN

OCTAL TO BINARY CONVERSION ROUTINE

o 3636336 36 3 36 36 06 36 36 0636 36 36 30 06 06 36 06 3030 36 36 06 06 36 36 636 36 3606 36 36 30 0 36 36 36 30 30 6 36 06 3 0 36 36 36 36 36 36 3 36 30 00 06 3 3

)
3

Ly
x

P %CALL
L

THIS ROUTINE WILL CHECK n STRING OF RSCII CHARACTERS TERMINATED

WITH A NULL <00G> OR COMM
IF THE CHARACTERS ARE LEGAL
IT
WILL GENERATE TWO exnnnv WORDS PLACING THE LOMW 15 axrs

ON THE STRCK AND THE HIGH 16 BITS IN LOCATION SHIOCT.
MOV

JSR

RETURN

¢ADDRESS OF ASCII STRING>,-(SP}

PC,OCTBIN

CADDRESS 7f ERROR RETURN>

:,*l!l*!!!!!*’f!!I*ilil*lili*lll!*l!lil*!i*!!*!i*li**!ll!*ii{ill*
0S4500

054542

O—-0O-0O—-0O-000000

10827
10928
10929
10930

MACY11

OCTBIN:
0000123

2%:
000054
000060

000067

MOV

MOV
MOV
MOV
gts

MOVB

BEQ

CHPB
BEQ

CMPB

RO, -(SP)

R1,-(SP)
R’ -(SP)
10tSP), RO
22
(RO)+,-(SP)

:SAVE Rl
:SAVE R2
:GET ADDRESS OF ASCII STRING
:CLEAR DATR WORDS
;PICK THIS CHARACTER

*IF ZERO GET oUT

$'0, (SP)

:MAKE SURE THIS CHARACTER IS

(SP),»’,
33

BGT

BLT

CMPB

:SAVE RO

#°7,(SP)

CHECK IF COMMA
‘IF COMMA GET OUT

;AN OCTAL CIGIT

SEQ Q217

CZRENDO RKbE11/06 SS VERIF 2
10-JAN-78 10:05
CZRe'D.P11
OS4S44

MACYll

LO1

30RA(1 052)
10-JAN-78
12:02
PAGE 219
ocT AL TO BINARY CONVERSION ROUTINE

ASL

006301

R2
R1
Re

ROL

ggo

égp)i,a1

998
99

0S4610
0S+4614

0S4616

0Co010
054632

3%:

Moy
MOV
MOV
MOV

$HIOCT:
.SBTTL

#1C7 . (SP)

;STRIP THE ASCII JUNK

RI10(SP)

j’ CLEN PARTIAL FFOM STACK

(5P)+ RI
(5P)+ 'R0

'RESTORE RI
'RESTORE RO

;EgBPTHIS DIGIT

:RESTORE R2

82, (SP)

:ADJUST RETURN

;35

5223* -

;gkgggnup PARTIAL FROM STACK

MOV
MOV

os4632

¥4

RTS

ADD
4$:

;

R2§HIOCT
(SP)+,R2

MOV

000002

*RETURN

(SP)++,Re
.RI

’

:G0 PROCESS ERROR

(SP)+ RO

MOV

d(SP)4+, (SP)

.WORD

RTS

RANDOM NUMBER GENERATOR

$ 5 BN

,RESTORE RI

'RESTORE RO

'PUT ADORESS OF ERROR ROUTINE ON STACK
:HIGH ORDER BITS GO HERE

ROUTINE

NAHN

NR R NR R RRRN

ANR AR AN R

;4THIS ROUTINE IS R DOUBLE PRECISION PSEUDO RANDOM NUMBER GENERATOR
;¥WITH R RANGE OF

: %CALL:

S ¥
Ly
*

JSR
RETURN

TO 2(+33)-1.

PC, SRAND

s ®

0S4634
054634
0S4636
054640
os4e4e

o0 0000000
[m]e) OO0 b= 0 Pt e ps
noe oONWWOOO
(A VI WNNNU—-O
o o000 LLLt
[ on—ooo oo

s Pt Pt s Pt Pt P

= - (O O OO O OO0 OO

Pt Pt Pt Pt Pt st Pt Pt St Pt Pt Pt Pt Pt Pt
Pt Pt ft Pt Pt Pt Pt Pt it Pt Bt it Pt Pt Pt Pt Pt Pt ot Pt P

Q54602

OO0000000000000C0000000000000C00000000000Ww
WG W WG LI W
N TUNUNI NS TUTUN) = = s b pe b= b b = = O O O O O
ONCNILIWN—ODONCTNLWNN—DOONOCNILWIVL—OW NN

935

Bt Bos Bt Pt Bt Bt Bt Bt Pt et et Pt ot et Pt Pt Pt st Bt Pt (s P Pt e s et Pt P Pt Pt Bt e st e e b b

Do 0t Dt Dt Pt B

BIC

177770

ROL
ASL
ROL

ASL

SEQG 0218

054734
054732
177771

054732
001057

J54700

2701

037
37

s 3 SHINUM, SLONUM

MOV

RO, - (SP)

: sPUSH RO ON STACK

MOV

R2. -(5P)

11PUSH R2 ON STACK

SHINUM, R1
8-7 R2

MOV

054734

54672
E4674

Y5704
54706
054712
QS4716
054722

$RAND:

047401

0S4734
054732

1$:

:;CALL THE ROUTINE
: 'RETURN HERE THE RANDOM
; sNUMBER WILL BE IN

R1.-(SP)

MOV

$LONUM, RO

ASL

MOV
MOV

*1PUSH R1 ON STACK

:'SET RO WITH LOW

ROL
INC
BNE
ADD
ADC
ADD

]l
R2
13
$LONUM, RO
RI
SHINUM,R1

:'SET R1 WITH HIGH
:*SET SHIFT COUNT
::SHIFT RO LEFT AND
; JROTATE CARRY INTO Rl AND
; JCHECK FOR DONE
: CONTINUE SHIFT LOOP
; JADD NUMBER TO MAKE X 123
: ' PROPOGATE CARRY
:ADD NUMBER TO HRKE X 129

ADC
ADD

R1
#47401,R1

: 'PROPCGHTE CARRY
;1050 HIGH CONSTANT

MOV

R1SHINUM

1 SAVE RI

ADD
MOV
MOV

#1057, R0

RO, SLONUM
(SP)+.RZ

:'ADD LOW CONSTANT

. :SAVE RO

: 'POP STACK INTO R2

gu‘m(vmmmmmm uunnninL L L L L LL.L L

0s4y724
054726
054730

MOl

MACY11 30A(1052)
10-JAN-78
12:02 PAGE 220
RANDOM NUMBER GENERATOR ROUTINE

012601
012600
000207

[V} J [FolVe)WO (0
£ (A [V O

MoV

(SP)+,R1

HOY

(SP)+ RO

HINUM: .WOR
Sy
i

R T

.SBTTL

SEQ 0219

;s POP STACK INTO Rl

i ;POP STACK INTO RO

S
2

TYPE ROUTINE

s o 36363 36 36 06 36 36 06 6 36 36 0636 36 36 36 36 36 36 06 3636 06 6 36 06 36 3606 6 3600 30 30 3036 3606 3636 30 36 36 36 3 36 06 3 36 36 3 36 3¢ 6 06 36 36 36 3 3¢ 3¢

' LROUTINE TO TYPE RSCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE.

%THE ROUTINE WILL INSERT R NUMBER OF NULL CHARACTERS RFTER A LINE FEED.

. ;!NOTEI.

SNULL CONTRINS THE CHARRCTER TO BE USED AS THE FILLER CHARACTER.

: ¥NOTE2:

SFILLS CONTRINS THE ‘NUMBER OF FILLER CHARACTERS REQUIRED.

;:NOTES.

SFILLC CONTAINS THE CHARACTER TO FILL AFTER.

#CALL:

;%1)

s %

USING A TRAP INSTRUCTION

; %0R
¥
Tk
;*

105737

$TYPE:

001157

TYPE

18:

000002
000001

TSTB

BPL

61%:

62%:

2%:

60%:

;315 THERE A TERMINAL?

MOV

1iBR I

.;HRLT HERE IF NO TERMINAL
SP)

;s sLERV

;;snvz RO

62%
iing 08 guécx FOR395 CONSOLE
SRPTSPOOL,SENVM ;;SPOOL nsssncs T0 APT

623

:3NO g CHECK FOR CONSOLE

MOVB
BNE

PC,SATY3
O
$APTCSUP, SENVM
60%

: :SPOOL MESSRGE TO APT
: s MESSAGE ADDRESS
;,991 CONSOLE SUPPRESSED
; $YES,SKIP TYPE OUT

ysg

$BRIF IT ISN'T THE TERMINATOR

RO,618

JSR
.WORD
BITB
BNE

(RD)+,~-(SP)

TST
MOV

: ;SEYUP

MESSAGE ADDRESS FOR APT

: ;PUShCHARACTER TO BE TYPED onro STACK

(SP)+
(SP)+,R0

::IF_TERMINATOR POP IT osr THE STACK
;;RE?TORE RO

; PADJUST RETURN PC

00coo2

33:

ADD

42, (SP)

000011

4$:

ggsa

ggr,tsp)

; ;BRANCH IF <HT»

gnga

ggRLF,(SP)

: sBRANCH IF NOT <CRLF>

75T

(SP)+

$3POP_ (CR>CLF> EQUIV

kRB

$CHARCNT
ag

s s

CMPB

sFitLc, (spy+

118 IT TIME FOR FILLER CHARS. ?

000200

RTI

EESEF

oss214

5%:

0SS150
001156

013746

S$TPFLG

gns

000040

; sMESADR 15 FIRST ADDRESS OF AN ASCIZ STRING

BITB
BEQ
MOV

055006
057434

,MESADR

TYPE
MESADR

HALT

000100

DDDDDOODDDDDDDDDDDO%DD

Bt Dt Pt Pt Gt ot Pt ot ot Pt ottt Pt Pt Bt st P st Pt s et e @ s Pt s P ot s Pt ot (o ot o
Bt Bt s ot Pt et et Pt s et ot Pt Pt o Pt Bt
1t et 0 i e = et Pt Pt D Pt it ot ot e ot it Pt ot et ot ot ot et ot e et [t et ot Bt o Pt (s ot o [t et ot e Pt Bt Pt s s Pt ot Pt ot Bt s

00
0000000000 00000000000000
oo ooy
NN
W= OOONCN LW=-=O0 0N (NLLIY [

CZRENDO RK611/06 SS VERIF 2
CZR6ND.P11
10-JAN-78 10:05

B%:

001154

————

JSR

BNE
MOV

PC, STYPEC
-

2%
SNULL,-(SP)

: RETURN

:3TYPE A CR AND LF

CLEAR_CHARACTER

;:0&5 NEXT cugS 123

_COUNT

;GO0 TYPE THIS CHARACTER

NEXT CHAR.
:3IF NO GO GET
};GET # OF FILLER CHARS. NEEDED

CZR&NDO RKE11/06 SS VERIF 2

CZREND.PI1

10-JAN-78 10:05

11095
11096
11097
11088

055104
055110
055112

105366
002770
004737

fiigg

055122

000770

11099

055116

105337

MACYL11 30R(1052)

TYPE ROUTINE

000001

7%:

055150

058214

DECB

0SS124

112716

000040

055130
055134
085142
0OS5144

004737
132737
001372
005726

11110

085150

105777

123774

055186

116677

000002

11114
11115
11116

055172
085174
055200

00100;
105037
000406

11120

055214

000000

11111

11112

11113

11117
11118
11119
11121

11122
11123

NO1

12:02

PARGE 221

SEQ 0220

: AND THE NULL CHAR.
::DOES A NULL NEED TO BE TYPED?
1BR IF NO—-GO POP THE NULL OFF OF STACK
;360 TYPE A N

1(SP)
6%
PC,$TYPEC

schnncnv

:D0 NOT counr ns A COUNT

: 1L O0P

:HORIZONTAL TAB PROCESSOR

11105
11106
11107
11108

11109

DECB
BT
JSR

B8R

i§{8§

11104

10-JAN-78

085146
085154

055164

065202
055210
0858212
055216

000724

100375

122766

122766
001402
105227

055150
000007

00001S

8%:

0S5214

JSR
BITB
BNE
TST
BR

STYPEC: TST8
BPL

123766

000002

1S:
$TYPEX:

11152

J$TPS

$TYPEC

: sREPLACE TRB WITH SPACE

::TYPE R SPACE
; ;BRANCH _TF NOT AT
STOP
,,POP SPACE OFF STACK
'GET NEXT CHARACTER

:'WAIT UNTIL PRINTER IS RERDY

2(SP),a$TPB

BNE
CLRB
BR

18
§CHARCNT
STYPEX

; ;LORD CHAR TO ae TYPED INTO DATA REG.

#CR, 2t(SP)

;IS CHARACTERA CARRIAGE RETURN?

CMPB
BEQ
INCE

SLF, 2(SP)
STYPEX
(PC)+

*1S CHARACTER R LINE FEED?
;BRANCH_IF YES
,,counr THE CHRRACTER

RTS

$CHARCNT: .WORD

000207

%' . (SP)

PC, $TYPEC
%7 SCHRRCNT
9’
(SP)+

MOVB

CMPB

055214

000012

MOVB

: 'BRANCH IF NO
,,YES--CLERR CHARRACTER COUNT
TEXIT

: 'CHARACTER COUNT STORAGE

11126

; o 363636 36 3 3 36 36 3 3 3 3 36 36 3 3 3 36 3 3 3 3 36 36 36 96 3 3 36 3 36 9 3 3 3 3 3 36 3 3 3 3 I 3 3 3 3 I 3 3 3 3

i{igg

USES ALL REGISTERS

(RO-RS)

ENTER WITH

PC,M.DPIM

11127
11128

"4BTTL
S¥
; %

11131

11132

11136

: S H NN

11133
i{igg

11137

055220

005000

11139

085224

0127496

11138
11146
11141

11142

11143

11149
11145

11146
11147

11148
11149

11156

055222

005001

088230
055232

006000
006001

08833

00e0n3

085234

055240
055242

006002

103003

060501

055244
058246

00S500
C60400

0S5252

001366

055250
0OESS254

MULTIPLICAND IN
R4-RS
PRODUCT RETURNED IN RN-R1-R2-R3

NIHI IR H NI

CLR

M.DPOl:

JSR

MULTIPLIER IN’ R2 R3

'DPIM: CLR
000041

X 4K H KX KX E

DOUBLE-PRECISION MULTIPLY SUBROUTINE
SUBROUTINE TO MULTIPLY TWO DOUBLE PRECISION INTEGERS

‘¥
%
%*

MOV

RO
R1

:MOVE 33 (DEC)

:SHIFT TO ARDD

M.DPO2

:NO CARRY NO ADD

RO
R4, RG

;ADD_DOUBLE FRECISION TO OBTAIN NEW PARTIAL
FRODUCT

RO
Ri

RUR

ADD

RS, R1

BCC

ADC
ADD

005316

m.oP02: DEC

005726

TST

BNE

E IR R AR R AR ERRERRRNR

s CLEAR HI ORDER WORDS

#41,-(SP)

ROR
ROR

ROR

TO COUNTER

oscnsnsnr COUNTER

(SP)+

;REMOVE THE COUNTER

M.DPO1

0 RKe11/06 SS VERIF 2
P11
10-JAN-78 10:05
055256

BO2

MACY1l 30R(10S2)
10-JAN-78
12:02 PRAGE 222
DOUBLE-PRECISION MULTIPLY SUBROUTINE

000207

RTS
< XN

QBTTL

EENIE TN
R R R RN RRARR LR R R AR RS

DOUBLE-PRECISION DIVIDE SUBROUTINE

SUBROUTINE TO PERFORM DOUBLE-PRECISION INTEGER DIVISION

USES ALL REGISTERS (RO-RS)

DIVIDEND IN ko-nx R2-R3

;¥
tx

ENTER WITH

tx
s ¥

000040

0S5264
055266
055270

010446
010546
00S4e6

055276
055302

005666
061601

000002

055306

066600

000002

0S5316
055320
055382
055324

006103
006132
006101
006100

055330
055332

001410
005016

055340

00S500

055274
055304

055312
055314

055326
056334

005416
005500

103445
005046

055342

00S516

055350

000404

055344
0585352

055354

066600

005516

055362
055364

00S516
005716

055366
055370
056372
055376

055400
055402
055404
055406
055410
0SS4ie
0SS414

0Ss41e

001401
005203
005366
003347
006003
103404
060501
00S500
060400
000241
006103

062706

ADD

2(SP),RO

ROL
ROL
ROL
ROL

R3
R2
RI
RO

BEQ
CLR

M.DPY1
asp

BCS
CLR

ADC

000010

JSP

: TEST “CRRRY INDICATOR"

4(SP),R0O’;

ADD

RY,RO

ADD

JSP

asp
asp

L4
R3
6(SP)
M.DPY0

:ADD -(DIVISOR)

s 1

:SET “CARRY"

'SET "CARRY”"

)
I
i«

:SET "CARRY"
;TEST THE UPDATE INDICATOR
JIF ZERO FORGET IT
'NO CARRY POSSIBLE HERE
DECREMENT COUNTER

RS, R1

ROR
BCS
ADD
ADC
ADD
CLC
ROL

:IF _NO “CARRY" THEN ADD ELSE SUBTRACT
'CLERR UP FOR NEXT TIME

2(SP).R1

RDC

BEQ
INC
DEC
B8GT

M.DP4Y4:

s IF CARRY THEN OVERFLOW HAS OCCURRED
:THIS IS A LONGER LASTING CARRY BIT

M.DPY2

M.DPY42: ADC
TST

000006

M.DPSO
-(SP)

ADD

VERSION OF THE DIVISOR

:PERFORM THE INITIAL SUBTRACTION

asp

ADD

:HI ORDER
:LO ORDER oxvxson TO THE STARCK
:FORM NEGATIVE

ARDC
ADC

060400

2(SP)
JSP,R1

ADD

M.DP41:

JsP

SBC
ABD

TST

000004

; COUNTER FOR DIVISION CYCLES

RY, - (SP)
RS’ -(SP)
2(%P)

ADC

000002

840, - (SP)

MOV
MOV
NEG
NEG

M.DP40:

00S500

055356
055360

000002

(060501

IN RO-R1

;o 3636 3 3 36 36 3 36 3 3 3 3 36 3 3 3 36 3 3 3 3 3 3 3 3 3 3 3 3 3 36 3 3 3 3 3 2% 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3% 3% % %% %% %

4 DPID: MOV

5716

066601

DPID

QUOTIENT RETURNED IN R2-R3

P ¥

012746

JSR

DIVISOR IN R4-RS
REMAINDER RETURNED

055260

SEQ Qde2!

:ADD +(DIVISOR)

:BR IF MORE TO DO

DPYY4
RS, R1

R4, RO
R3

#10,SP

;ADJUST STRCK BY 4 WORDS

CZRENDO RK611/06 SS VERIF 2

CZREND.P11
11207
11208
11209
11210
11211

11212

055422
058424
0S5426
0558432
085434

10-JAN-78 10:05
000242
000207
062706
000262
000207

000006

MACY1l 30A(1052)

10-JAN-78

co2

_12:02

PAGE 223

SEQ 0222

DOUBLE-PRECISION DIVIDE SUBROUTINE

M.DP50:

CLV
RTS
ADD
SEV
RTS

PC
%6, 5P
PC

ii%i%

.SBTTL

11217

HH 3636 36 36 36 96 36 36 36 36 36 36 3 36 96 36 36 36 3 36 3 36 36 36 3 36 3 3 3 3 36 3 3 36 3¢ 3 3 3¢ 36 3 3 3 3 3 3 3 3 3 2 3 3 3 3 3 2 U 23 B XXX

11219
11220

: XUNSIGNED OCTAL ASCIZ NUMBER.
s %CALL

11232

11218

"THIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN

11821

iiSSE

11225

11226
11227

055436
055440

104407
016601

000002

11223

065450

012704

000014

0S8460

012100

11228
11230

11231

11232
11233
11234

11532
11239
figgg
11240
11241
11242

11243
11244

11245

055444

0S5454

055462
055464
0 su;s

012705

Q012703

055512
055514
055516

000207

006203
006001
006001
DOE00O
(006001
006000

11251

055532

062702

11252
11253

iisgg

055530

055536
0S5540

040302

000753
000016

RETURN

$DB20:

SAVREG
MOV

2(SP),R1

; ;SAVE ALL REGTM3TERS
P LPICKUP THE PUINTER TO LOW WORD

MOV

#12.,RY

D0 ELEVEN CHRRACTZRS

(RI)4+,RO

; $LOWER WORD

MOV

MOV
CLR
MOVB

DEC
BGT
?58
MOV

$OCTVL:

.SBTTL

#S0CTVL+13.,RS
#1C7 R3

::CALL THE ROUTINE

::THE ADDRESS OF THE FIRST ASCIZ CHAR.

: :

(R1)+.R1
R2

MASK

:iRIGH WORD
; ; TERMINATOR
: PUT CHARACTER_IN DATA TABLE

R2,-(RS)

RAC
3%
Sg
RS, 2(SP)

P O8INT
TR1S.CHARACTER
5583
IF No$
THE LAST DIGIT

;;gL IFII}TISDT:E
= ESSTs?IgéINTER FOR FIRST
;;nstxg
Snng.
2
SUT
f? ON THE STACK
:RESTORE ALL REGISTERS
i

ROR

:'POSITION THE MASK FOR THE LAST DIGIT
:'POSITION THE BINARY NUMBER FOR
:
THE NEXT OCTAL DIGIT

R3,R2

;s MASK OUT ALL JUNK

18
1M,

$1G0 PUT IT IN THE DATA TABLE
: :RESERVE DATA TABLE

ASR
ROR

R1
RO
Rl
RO

ADD

2’0, R2

BR
.BLKB

: RETURN TO USER

R3
:

ROR
ROR
ROR
ROR

: 'MAKE THIS CHAR. ASCII

DOUBLE LENGTH BINARY TO BECIMAL ASCII CONVERT ROUTINE

11256

HH 3696 36 36 36 36 36 36 36 36 36 36 36 36 36 36 3 36 3 36 3 36 3 36 36 36 3 3 3¢ 3 3 3 36 3 3¢ 3 36 3¢ 3 36 3 3 3% 36 3 3 3 96 3 3 3 3 2 3 3% 3 3 2 3 2 3% X %

11258

:¥DECIMAL

11287
11269
11260

1igel

11262

:kTHIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED
(RSCII) NUMBER.

i ¥POSITIVE.
;¥CALL

L¥

MOV

JSR

THE SIGN OF THE BINARY NUMBER MUST BE

#PNTR, - (SP)

PC, 380820

IS ON THE STACK

;;POINTER TO DATA TARBLE

RESREG
RTS

BIC

000060

; ;POINTER TO LOW WORD OF BINARY NUMBER

PC, 3880820

MOV
18:

#PNTR, - (SP)

JSR

MOV

2%:
33:

006000

0555
055522
055524
055526

MOV

177770

Q22478
Doe0q
0?2474 883887
855475 ogxqgg
02%382
Slggss
000002
055506
104410
055510

‘x

055555

012101
005002
10245

11246
11247
11248
11249

11250

DOUBLE LENGTH BINRRY TO OCTAL RASCII CONVERT ROUTINE

: sPOINTER TO LOW WORD OF BINARY NUMBER

CZR6NDO RKB11-06 SS VERIF 2

CZREND.P11

10-JAN-78 10:0S

MRCY1l

30A(10S2)

. ¥

RETURN

11588
Yy
11585
BEEEEB 6?&585
000002

§DB2D:

SAVREG

11269

055564

1157

8@2&08 815§8$ 000012 055654

11270
iia;x

iia;g

055570
osss;q

012700

010066
oiaeox

osss?a

012;04

11277

055620

161401

11280
11381
11282
11283

058626
055630
055632
065634

002402
005203
800772
062401

11299

3§5§8§

1157& 833215 865083
11278
11279

11284
11285

1128
11288
11789
11290

055622
055624

055636
055640

644
065650
(055652
055654

055736

005602
61502

005502
062402

110320
005327
000000

11535
11293 Docces
8??2&3 19324
109410
11294
055664
000207

1$:

055666

11297

055672

11293

085676

11296

11298

11300

11301

11302

145000

055670

035632

055674

002765

055700

000230

055704

000017

055702

A
EGISTER
;zgxgfiug
?HE Bn?n POINTER

MOV
ngx

RO,2(SP}
Esé;+,sé

*!PUT ADDRESS OF ASCIZ STRING ON STACK
:IPICKUP THE BINARY NUMBER

ngg

:s¥§gfi§igqns

: ' ADDRESS OF TEN POWER

015. 45
+

SBC
SUB

R2
(RS),Re

SUB

3%:

BLT
INC
BR
ADD
ADC
ADD

CMP

ys:

#SDECVL , RO

CLR

2%:

000060

. s THE FIRST ADDRESS OF ASCIZ
1S ON THE STACK

2(SP),R2

MOV

11295

PAGE 224

MOV

000002

822298

12:02

DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE

11263
11264

11265

DO2

10-JAN-78

BIS
MOVB
DEC

.WORD

(R4),R1

160400

. s CLERR PARTIAL

! 'SUBTRACT TEN POWER
:3sBR IF TEN POWER TO LARGE
:'ADD 1 TO PARTIAL
1Lo0P
' 'RESTORE SUBTRACTED VALUE

(RS)+’ (RS)+

: sMOVE TO NEXT TEN POWER

R2
(R4)+,R2

$'0,R3
R3, (RO)+
(Pe)+

BN
RESREG RO

RTS
145000

:sSET UP TO DO 10 CONVERSIONS

3%
R3
2%
(R4)+,R1

$TNPWR:

’

::GET ADDRESS OF "SDECVLTM STRING

35632

! !CHANGE PARTIAL TO ASCII
::SAVE IT
: 1 DONE?

i;ERESTORE
O L INATOR
REGISTERS
H

} 'RETURN
:'1.0E09

160400

::1.0E08

113200

::1.0E07

041100

::1.0E06

1032¢0

103240

;3 1.0€E05

2765

113200

11303

055706

11305

055712

023420

23420

::1.0E0M

11307

055716

001750

1750

::1.0E03

11309

0S5722

000144

144

::1.0E02

11311

058726

::1.0EO1

. :1.0EOD

11304

11306
11308
11310
11312

055710
055714
055720

000001

000000

055724

000000

055730

000000

000012

11313

055732

000001

11315

05573s

00GGI4

11314

i;gig
i

11318

085734

$DECVL:

.SETTL

.BLKB

12.

. . RESERVE STORAGE FOR ASCIZ STRING

TYPE NUMERICAL RSC1Z STRIANG SUPPRESS LERDING ZEROS

HH 2 Y 223222222222z
22222z22223 2222222222222
2222222 L]

SEQ 0223

ZR6N00 RK&11-06 SS VERIF @
ZR6ND.P11
10-JAN-78 10:0S

EQ2

MACY1l 30A(10S2)
10-JAN-78_
12:02 PRGE 225
TYPE NUMERICAL RSCIZ STRING SUPPRESS LEADING ZEROS

11319

:#THIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE

11322

MOV

JSR

PC, a83SUPRS

$SUPRS:

MOV

RO, -(SP)

18:

TSTB
BEQ

(RO)
23

BEQ
DEC

18
RO

11320
11321

* ¥ _EADING NUMBERS.
: xCALL

11323
11324
11325

11326

055752

11328
11329

055760
055762

11331
11332

055770
055772

001773
005300

056000

104401

11327
11330

11333
113349

11335

055754

055764
055774

122720

000060

105710
001403

010037

000000

056006

012616

056004

11338

056010

iiggg

000004

0S6002

11336

11337

010046

016600

MOV

CMPB

2%:

056002

3%:

012600
000207

.SBTTL

MOV

TYPE

#NUMARDR, -(SP)

;;FIRST ADDRESS OF ASCIZ STRING
s SAVE RO

4(SP), RO

,,PICKUP THE POINTER

#’0, (RO)+

:11S THIS AN ASCII "0" °

RO, 3%

,,TERMINRTEOR
IF YES

,,BR IF YES
:BACKUP BY "1*

snvs FOR TYPING
0

TYPE

.WORD

,,nscxz POINTER GOES HERE

MOV

(SP)+. (SP)

; ;RESTORE THE STACK

MOV

RTS

(SP)+,R0

: :RESTORE RO
RETURN

BINRRY TO OCTAL (RSCII) AKD TYPE

11341

; o JEJ63 36 3 36 36 3 3 3 3 36 36 36 36 3 3¢ 36 3 36 36 36 3 3t 3 3 3 I 3 3 3 3 3 3 36 3 3 3 3 3 3 3 3 3 % 3 3 3 I 3 % 3% 3 3 3 3 3 % % ¥ %K X%

11346

;;

11342
11343
iig:g

iTHIS ROUTINE IS USED TO cuauce A 16-BIT BINARRY NUMBER TO R 6-DIGIT
:%OCTAL (ASCII) NUMBER AND TYP: IT
*35[505"'E"TER HERE TO ssrup SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
*

11347
11348

S
S%

113489

MOV

TYPOS
.BYTE

.BYTE

NUM, -(SP)
N

; s NUMBER TO BE TYPED

,,CRLL FOR TYPEOUT
N=1 TO & FOR NUMBER OF DIGITS TO TYPE

iiM=1 OR o

11350
iiggé

T
Tk

11353

: ¥§TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS RS THE LAST

11355

P %CALL:

- %

11354

: #§TYPOS OR STYPOC

11356

}{ggg

1}323

; *

11364
11365

056012
056016

11369
11370
11371

056036
0Se044
056052

11372
11373
11374

MOV

TYPON

NUM, - (SP)

; sNUMBER TO BE TYPED
:CALL FOR TYPEOUT

:*grzpoc---ewrsn HERE FOR TYPEOUT OF A 16 BIT NUMBER

11361
i{ggg

11366
11367
11368

;3 1=TYPE_LEADING ZEROS
0 SUPPRESS LERDING ZEROS

017646
116637

056024
056030
056034

112637
062716
000406

05060
056062
0Se0e4

010346
010446
010546

112737
112737
112737

000000
000001

056235

000001
000006
00000S

056235
056237
0Se234

056237
000CG02

S
S%

MOV
TYPOC

NUM, - (SP)

: ;NUMBER TO BE TYPED
{:CALL FOR TYPEOUT

$TYPOS:

MOV
MOVB

J(SP),-(SP)
1(5P) | SOFILL

; PICKUP_THE MODE
LOAD ZERO FILL SWITCH

MOVB
MOVB
MOVB
MOV
MOV
MOV

#1,80FILL
86, SOMODE +1
85 SOCNT

S$TYPOC:
STYPON:

MOVB
ADD
BR

(SP)+. SOMODE
+1
82, (SP)
$TYPON

,,Nunesn OF DIGITS TO TYPE
1 TADJUST RETURN ADDRESS

R3)-(SP)
R4’ -(SP)
RS, -(SP)

::SAVE R3
: 'SAVE RY
1 SAVE RS

:;SET THE ZERO FILL SWITCH
:1SET FOR SIX(6) DIGITS
11GET THE ITERATION COUNT

SEQ 0224

CZRENDO RKB11-06 SS VERIF 2

CZREND. P11

11375

056066

11376

056072

11379

056104

11377
11378

056074
056100

10-JAN-7810:05

113704

0S6237

062704
110437

000006
056236

005404

113704

11380
1138]
11382
11383
11384

0Sei1l0
056114
056116
056120
0S6lae

016605
005003
006105
000404
006105

11388
11389

056132
056134

006103
105337

i1385
11386
11387

056124
0Selee
056130

056156
0Seibe

100016
042703
001002
005704
001403
005204
052703
052703

11401
11402
11403
11404
11405
11406
11407

056202
056204
056206
056210
056212
056214
056216

003347
002402
005204
000744
012605
012604
012503

11409

Q56226

11408
11410

11411
11412
11413

11414
11415

11418

056166
0S6i7e
056176

110337
104401
105337

056220

016666

056230

000002

0Seele
056233
056234

056235
056236

012616

000
000
000

000
000000

11418

30A(10S2)

000C12

18:
23:
3s:

177770

4§

000060
000O4O

5§:

0SE232
056232
056234

PAGE 226

SEQ 022s

78:

6S:

00000

.SBTTL

%6, RY
R4.SOMODE

::SUBTRACT IT FOR MAX.
' !SAVE IT FOR USE

12(SP) RS
R3
RS
33
RS

:PICKUP THE INPUT NUMBER
! !CLEAR THE OUTPUT WORD
*!ROTATE MSB INTO “C”
:1G0 DO_MSB
! !FORM THIS DIGIT

MOVB

SOFILL,RY

MOV
CLR
ROL
BR
ROL
ROL
ROL
MOV

ROL
DECB
BPL
BIC
BNE
TST
BEQ
INC

BIS
BIS

MOV
TYP
DEC

BGT
BLT
INC
BR
MOV
MOV
MOV
MOV

SOCNT:
SOFILL:
SOMODE:

s :GET THE NUMBER OF DIGITS TO TYPE

MOV
8s:

$OMODE+1,RH

NEG

ADD
MOVB

056236

FO2

12:02

BINARY TO OCTAL (ASCII) AND TYPE

056235

000002

10-JAN-78

MOVB

006105
006105
010503

11330
11391
11392
11393
11394
11395
11396
11397

11398
11399
11400

056140
0Sei42
056146
056150
056152
056154

MACY11l

RTI

.BYTE
'BYTE
.BYTE

RG,R3

$OMODE
N
¥177770,R3
4
RY
c§
RY
#'0,R3
8’
.R3

R3, 8%
84
$oCNT

28
6%
RY
2%
(SP)+,RS
(SP)+ RY
(SP)+ R3

2(SP) |4 (SP)
(SP)+. (SP)

O
O
O

.BYTE
O
.WORD _ O

ALLOWED

:1GET THE 2ERQ FILL SWITCH

::GET LSB OF THIS DIGIT
!!TYPE THIS DIGIT”?

!!BR IF NO
! IGET_RID OF JUNK
! TEST FOR O
! ! SGUPPRESS THIS 07
‘1BR IF YES
' !DON’T SUPPRESS ANYMORE 0’S

' !MAKE THIS DIGIT ASCII
! 'MAKE ASCII IF NOT ALRCADY

! 'SAVE FOR TYPING
!!G0 TYPE THIS DIGIT
:ICOUNT BY 1

!!BR IF MORE TO DO
! 1BR IF DONE
! ! INSURE_LAST DIGIT ISN'T A BLANK
160 DO THE LAST DIGIT
: 'RESTORE RS
: 'RESTORE RH
: IRESTORE R3

!{GET THE STACK FOR RETURNING
: ; RETURN

! {STORARGE_FOR ASCII DIGIT
! TERMINATOR FOR TYPE ROUTINE
:10CTAL DIGIT COUNTER

112ERO FILL SWITCH
.
! !NUMBER OF DIGITS TO TYPE

CONVERT BINARY TO DECIMAL'AND TYPE ROUTINE

HH Y Y2222 222222222222222222222232X222X222232222333
22322222223 X 3

11419

*4THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT

11423
11424

! *REPLACED WITH SPACES.
‘%CALL:

11420
11421
11422

' ¥SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
' sNUMBER 1S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
'¥BEFORE THE FIRST DIGIT OF TrE NUMBER. LEADING ZEROS WILL ALWAYS BE

11425
H42e
11428

056240

11430

0Se242

1i429

0SE240

010046
010146

Ly
¥

MOV
TYPDS

NUM, - (SP)

. ;PUT_THE BINARY NUMBER ON THE STACK
!GO TO THE ROUTINE

$TYPDS:

MOV

RO, - (SP)

; ;PUSH RO ON STACK

MOV

R1.-(SP)

!!PUSH R1 ON STACK

CZRENDO RKB11/06 SS VERIF 2
CZREND.PL1
10-JAN-78 10:05

11431
11432
11433

0S6244
0See4e
056250

010246
010346
010546

11435
11436
11437
11438
11439
11440

056256
0S6eb2
0See64
056266k
0See74
0S6276

016605
100004
005405
112766
005000
012703

11442
11443
11444
11445
11446

056306
056310
056314
056316
056320

0050062
016001
160105
002402
005202

11448
11449
11450

056324
0S6326
056330

11452
11453

056334
056336

11434

11441

11447

11451

11484
11455

11456

056252

056302

056322

056332

056340
056342

0le746

1)e723

11476

11481
11482

11483

1i48€

11486

06440

0Se442
056444
056446
056450
0Se452
056454

20(SP) | RS
18
RS
#’-,1(SP)
RO
#$DBLK, R3

::GET THE INPUT NUMBER
!1BR
IF INPUT IS POS.
!!MAKE
THE BINARY NUMBER POS.
:'MAKE THE RSCII NUMBER NEG.
! 1 ZERO THE CONSTANTS INDEX
::SETUP THE OUTPUT POINTER

CLR
MOV
SUB
BLT
INC

R2
$0TBL (RO), R1
R1,RS
4$
R2

' !CLEAR THE BCD NUMBER
::GET THE CONSTANT
!!'FORM THIS BCD DIGIT
':BR IF DONE
! L INCREASE THE BCD DIGIT BY 1

ADD
15T
BNE

R1,RS
R2
g

, ,ADD BACK THE CONSTANT
' ICHECK IF BCD DIGIT=N
'FALL THROUGH IF 0

cS:

BMI
ASLB

7%
(SP)

:'BR IF YES
: IMSD?

BIS

18:
2%:

0SE444

3s:

4$:

000040

020027

002746
003002
010502
00076Y
105726
100003
116663
105013
012605
012603
012602
012601
012600

104401
016666
012616

000002
023420
001750
000144
000012
0O000Y

MOVB

7ST8

052702

056370
056372
056374
056376
056400
056402
056404
056412
056414
056M16
056420
05422
056424

11477
11478
11479
11480

000040

000001

11461
11462
11463
11464
11465
11466
11467
11468
11469
11470
11471
11472
11473

0Se426
056432

056454

1063003
116663

110223
005720

11479
11475

MOV
BPL
NEG
MOVB
CLR
MOV

105716

056360
0Se362

056364

000001

100407
106316

11458
11459

11460

. PUSH R2 ON STACK
:1PUSH R3 ON STACK
!!PUSH RS ON STACK

MOV

060105
005702
001002

052702

056354

R2,-(SP)
R3.-(SP)
RS’ - (8P}

020200

0000SS

000060

177777

000010

BCC
MOVE

BIS

MOVB
75T

cHP

8%:

177777

177776

0SEM4SY
000002

000004

SEG 0226

MOV
MOV
MOV

000020

000774

056350

11457

MACY11 30A(1052)
10-JAN-78
12:02
PAGE 227
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

BLT
BGT
MOV
BR
7STB
BPL
MOVB
CLRB
MOV
MOV
MOV
MOV
MOV

TYPE
MOV
MOV

$0TBL:

$OBLK:

.SBTTL

RTI
10000.
1000.
100.
10.
.BLKW

20200, - (SP)

,(R3)+

(5P)

! !SET BLANK SWITCH AND SIGN

!!SET THE FIRST CHARACTER TO A BLANK

!!STILL DOING LEADING 0'S”

68
1(SP),-1(R3)

'!BR IF NO
'!YES--SET THE SIGN

'!MAKE IT A SPACE

%'0,R2

: 'MAKE THE BCD DIGIT ASCII

IF NOT ALREADY A DIGIT

R2,lR3)+
(RO +

! !PUT THIS CHARACTER IN THE OUTPUT BUFFER
!!JUST INCREMENTING

2%
8%
RG, R2
X
(SP)+
3
-1(SP),-2(R3)
(R3)
(SP)+,RS
(SP)+ R3
(SP)+ R2
(SP)+'RI
(SP)+ RO

:1G0 DO THE_NEXT DIGIT
160, TQ EXIT
1IGET
THE
LSD
::GO CHANGE TO RSCII
"!WAS THE LSD THE FIRST NON-ZERG?
*!8R_IF NO
::YES--SET_THE SIGN FOR TYPING
'!SET THE TERMINATOR
! !POP STACK INTO RS
1POP STACK INTO R3
!!pOP STACK INTO R2
!!pOP STACK INTO RI
:IpOP STACK INTO RO

RO, #10

$0BLK
2(SP),4(SP)
(SP)+. (SP)

! !CHECK THE TABLE INDEX

! INOW TYPE THE NUMBER
' !ADJUST THE STACK
. ;RETURN TO USER

ERROR HANDLER ROUTINE

HH I Y 2222222222222222222222X22222
2332222222222
X222X22TTT2T2TT LS

'¥THIS ROUTINE WILL INCREMENT THE ERROR FLARG AND THE ERROR COUNT,

CZRENDO RKB11-06 SS VERIF 2

CZRBEND.P11

10-JAN-78 10:05

MACY11l

11487

30A(10S2)

10-JAN-78

ERROR HANDLER ROUTINE

#SW10=1
; #SW09=1
1C9LL

11494

BELL ON ERROR
LOOF ON ERROR

i}:gg

ii:g?
OSE:E:
G237 001103
llflqg 8?6490 681??5

;ERROR: BEQ
INCB

11500

0Se472

013777

001102

11503
11504

0S6S10
0S6514

104401
005237

001310
001112

11509

0S6500
056506

(0S6520
0Se524
056532
056540

032777
001402

011637
162737
117737
032777

0S6S46

001004

11611

056554

104401

11513

056560

11510

11512

056550

(056560

001116
000002
122360
020000

122442

00llle
001114
122372

000001

001340

00l114
0S7444

0OSee02

001007
$13?37
04737

11518

0S6603

000

BIT
BEQ
1%:

122737

ERROR

MOV

122432

043012

0S6566
0S6570
(0S6576
0S6602

002000

004737

11514
11515
11516
11S17

SEQ 0227

inno GO TO TYPERR ON ERROR
!THE SWITCH OPTIONS PRCVIDED BY THIS ROUTINE ARE:
lSNlS:l
HALT ON ERROR
: %SW13=]
INHIBIT ERROR TYPEOUTS

11492
11493

11505
11506
11507
11508

PAGE 228

; #SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL

11488
11489
11490
1149]

116C1
11502

HO2

12:02

209%:

219%:

RFLG

STSTNM,aDISPLAY

;SET THE ERROR FLRG
; :DON’'T LET THE FLAG GO TO ZERO

;;DISPLAY TEST NUMBER AND ERROR FLRAG

BELL ON
ERR
;;NO

GET RADDRESS OF ERROR INSTRUCTION

BNE

(SP) SERRPC
g s
ASERRPC SITEMB
#BIT13, JSWR
c09%

TYPE

, SCRLF

TYPE
INC

MoV
SUB
MOVB
BIT

CMPB

BNE
MOVB
JSR

$BELL
ERTTL

PC, TYPERR

SAPTENV, SENV

23
$ITEMB,21%
PC,SQT?H

.BYTE

BR
TST

229
JSWR

.BYTE

;;RING BE
;COUNT THE NUMBER OF ERRORS

;STRIP AND SAVE THE ERROR ITEM CODE

SKIP TYPEOUT IF SET
,,SKIP TYPEOQUTS

; ;G0 TO USER ERROR ROUTINE
;RUNNING IN APT MODE

NO SKIP APT ERROR REPORT
SEf ITEM NUMBER RS ERROR NUHBER
,,REPORT FRTAL ERROR TO
R

11519
11520

0Se604
056606

000777
005777

122326

11623

056616

032777

001000

11625
11526

0Sekee
0S6632¢

013716
005737

001110
001306

MOV
IST

SLPERR, (SP)
$ESCAPE

,,FUDGE RETURN FOR LOOPING
; ;CHECK FOR AN ESCAPE ADDRESS

iigsg

ggggzs

013716

001306

MOV

SESCAPE, (SP)

; ; FUDGE RETURN RADDRESS FOR ESCAPE

0Se644
0S6652
0S6654
0S6656
056656

(022737
001001}
000000

024046

#SENDAD, J#42
63

;;ACT-11 AUTO-ACCEPT?
; ; BRANCH IF NO
;s YES

11521
11522

11524

11527
11530
11531
11532
11533
11834

iiggg

11837

11638

11539
11540
115841}
11842

0Sbble
0S6614
(0Sbeed

0S6636

100001
000000

001y

001402

000002

229%:
29%:

; ; ERROR=EMT AND N=ERROR ITEM NUMBER

OBIT10 JSKHR
13

JSR

001315

122314

3%:

000042
6%:

LSBTTL

BPL
HALT

BIT

BEQ
BEQ

CMP
BNE
HALT
RTI

#BIT093, dSWR

TTY INPUT ROUTINE

; ; APT _ERROR LOOP
;3 HALT ON ERROR

; ;SKIP IF CONTINUE
; s HALT ON
ERROR!

,,LOOP ON

IF NO

ERROR SWITCH SE1?

; ;BR _IF NONE

; s RETURN

o 3 36 36 36 36 36 36 36 36 36 96 36 26 36 36 36 36 36 36 3 3 36 3 3 3 36 36 36 36 36 36 36 36 96 36 38 36 36 96 36 36 36 3 36 3 3 3% 3 36 3 36 3¢ 36 36 3 36 36 4 3 36 36 %6 %

"ENABL

LSB

.DSRBL

LSB

CZRENDO RKb11-06 SS VERIF ¢
CZREND.P11
10-JAN-78 10:05

MACY1l 30A(1052)
10-JAN-78
TTY INPUT ROUTINE
S5 MMM

11543

{ig%g

; ¥

11546
11547
11548

2
]
s

11551

0S6660

011646

11653
11554

0S6670
0See74

105777
100375

0Seeee

11555

0S6676

11558
11559
11560
11561

0S6720
0Se7ee
0Se726
056730

11556
11557

056704
056712

016666

117766

042766
026627

001013
105777
100375
117746

000004

000002

loc244

000004

122250

177600
000004
122216

177600
000021

11566

0S6750

026627

000004

000140

000004

000175

000040

000004

0S6756
056760
0S6766
0S6770
056776

(001366
000750

002407
026627
003003
042766
000002

1%:

PAGE 229
NN

ROCHR
RETURN HERE

; s PUSH DOWN THE PC

TSTB
BPL

J$TKS
13

; s WRIT FOR
; ;A _CHARACTER

BIC
CcMpP

#1C<1%7> 4(SP)
4(SP), #23

J$TKB,4(SP)

; ;RERD THE TTY

;;GET _RID OF JUNK IF ANY
;31S IT A CONTROL-S?

33
J$TKS
c3
J$TKB, - (SP)

BNE
BR

23
19

BLT
cMP
BGT
BIC
RTI

4§
4(SP), #175
43
#40,4(SP)

.RSCIZ
.ASCIZ
.ASCIZ

/tU/<1S><12>
; s CONTROL U~
/1G/<1S<la>
; ;CONTROL *"G*
<«15><12>/SWR = /
/7

CMP

; ; BRANCH IF NO
; ;WRIT FOR A CHARACTER
;;LOOP UNTIL ITS THERE
; ;GET_CHARACTER

#1C177 (5P)
(SP)+, h21

;sMRAKE_IT 7-BIT ASCII
;31S IT_A CONTROL-Q?

Y(SP), 8140

i3IS 1T UPPER CRSE?

;3 IF_NOT DISCRRD IT
;3 YES, RESUME

; ;BRANCH IF YES
;1S IT A SPECIAL CHAR?
; ;BRANCH IF YES
; sMRKE IT UPPER CASE
; 3GO BRCK TO USER

0S2536
136
00S015

005015
006507
053523

000
000012
020122

4$:
$CNTLU:
OSCNTLG:
S$MSWR:

11576

057023

040

047040

053505

SMNEW:

.ASCIZ

.SBTTL

POWER DOWN AND UP ROUTINES

057020
057030

020075
036440

000

000040

iiggé
11583

11684

057034

012737

}}gg%

057044

000776

057046

005037

0S7060

012737

057074

012737

11585

11588

11589

057042

11590
11521

057052
057056

11533

057066

11695
11596

0S7102
057106

11592
11594

11897
115888

R R A RA RN RAR R

; ;SAVE THE PS

BNE
TST8B
BPL
MOvB

BIC
CcMP

3%:

4(SPJ},2(SP)

057000
057005
057012

11577
11578
11579
11580

;3 INPUT A SINGLE CHRRACTER FROM THE TTY
; ;CHRRACTER IS ON THE STACK
; sWITH PARITY BIT STRIPPED OFF

11572
11573
11574

11575

SEQ Oces

(SP) ,-(SP)

MoV

MovB

122212

042716
022627

11567
11568
11569
11570
11571

AN IIN RN

$RDCHR: MOV

2s:

0S6734
0S6740
0S6744
0S6746

000004
000023

11562
11563
11564
11565

12:02

;iEEEE ROUTINE WILL INPUT R SINGLE CHARACTER FROM THE TTY

11552

I02

0S7112
O0S7114

000000

00Se37
001375

057046

; POMER DOWN ROUTINE

$PWRON: MOV

HALT
BR

$PWRUP: CLR

057120

4§:

057034

000024

000340

000036

000340

0le706
104401

001100
0S71ee
121766

$SPWRUP,PWRVEC
.=

; POWER UP ROUTINE

057120

012737
00060S
000177

000024

NEW = 7/

000026

INC
BNE

MOV

MOV
TYPE

RESET
JMP

;SET VECTOR FOR POWER Ur
; HANG UP

SPURCT

;WAIT LOOP FOR TTY TO COME UP

#SPWRDN, PWURVEC

;SET VECTCR FOR POWER DOWN

SPURCT
43

8PR?,PN§VEC+2

$PR7, TRAPVEC+2

#STALK, SP
,PNRHS¢
JSLPADR

; RE-ESTABLISH POWER AND TRAP PRIORITIES
;RE-INITIALIZE THE STACK
; TYPE “POWER FRILED"

;CLEAR THE UNIBUS
;RESTART THE CURRENT TEST

CZRENDO RK611-/06 SS VERIF @
CZR6END.P11
10-JAN-78 10:05
11599

057120

11601
11602
11603

067130
057136

11600

057122

11604

000000

00S015
020122
042105
057144

047520

040506
005015

JO2

MACY11 30A(10S2)
10-JAN-78
12:02
POWER DOWN AND UP ROUTINES

042527
04611l
000

e
11607
0S7144
057150
057182
057160

105737
001406
032777
0O0I402

11616

057166

000002

11617
11618
11€13

057162

013716

001000

121760

001110

&R0PE1: TSTB
BEQ
BIT
BEQ

.SBTTL

! x

11632
11633

057170

11635

057174

057170

00S737

11640
11641
11642

057206

000416

057210
057214

013746
012737

000004
057234

11644
11645

0S57z26
057232

012637
000450

000004

057236

0l2637

00000

105737

001103

123737

001115

032777

001000

001404

$SCOPE::

001304

11636
057176
032777
040000 121734 18:
11637
057204
001101

11646

11647
11648

057222
057234
057242

11649 057244
11650

057244

11652

057252

11684

0S7262

11651

11663

MOV
RTI

SERFLG
6$
#8179, ISWR
6

SLPERR, (SP)

:SEE IF AN ERROR HAS OCCURRED
‘BR_IFNOT
'SEE IF LOOP ON ERROR DESIRED
:BR_IF NOT

'SET ERROR LOOP ADDRESS ON STACK
*RETURN

SCOPE HANDLER ROUTINE

'4THIS 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:
S ¥SWIY=]
LOOP ON TEST
S ¥SWl1=]
TRMIBLT 1TERATIONS
: ¥5W09=1
LOOF ON ERROR
: %CALL

11631

11643

<1S><«12>/POWER FRILED/
<15 <¢12>

= 3636 3 36 3 38 36 3 36 3 3 36 36 36 36 36 36 3 3 3 % 3 3 36 36 3¢ 3 3 3 2 3 3¢ 3 3¢ 3 3 3¢ 3 3 3 I 3 3 3 I 3 3 3 3 3 3 3 3 J 3 3 3 3 X B %R

11623
11624
11685
11626
11627
11628
11629
11630

11639

.EVEN

6S:

lleee

11638

.ASCIZ

o 363 36 3 3 36 36 36 3 33 3 3 3 3 3 36 3 3 3 3 3 3 3 3 3 3 36 3 36 3 3 36 3 3 3 3 3 3 3% 3 3% 36 3 3 3 2 3 3 3 3 3 2 3 % % % % % WX KX R

001103

11620

11634

.WORD

‘4 SCOPEL - INTERNAL SCOPE ON ERROR ROUTINE
: #CALLED BY "SCOPER"

11611
11612
11613
11614

11615

PWRMSG:

SEQ 0229

o 363636 36 36 3 3636 35 36 36 36 36 36 3 3 36 36 36 3 36 3 3 3 I 96 3 3 3 3 3 3 3 36 3 36 36 3 3 3 I 3 3 326 3 3 3% 3 3 3 3 3 3 3 % 2 3 3 2 B 2 %

11608
11609

11610

$PWRCT:

PAGE 230

057250

057260

005737

022626
000413
001421

101015

SCOPE

TST

BEQ

BIT
BNE

; ; SCOPE=I0T

STIMES

$XTSTR

; CHECK CURRENT ITERATION NUMBER

'BR IF O, 70 SKIP CHECK OF SWR BIT 14

#BIT14, aSWR
SOVER

,,LOOP
of PRESENT TEST?
YES IF SWl4=

- IF _RUNNING ON THE “XOR" TESTER CHANGE

ss##wSTART OF CODE FOR THE XOR fésreaoonoo

§xTSTR: BR

177060

MOV
MOV

2MERRVEC, - (SP)
#5S aoenkvec

!THIS INSTRUCTION TO R_"NOPTM (NOP=240)
,,snve THE_CONTENTS OF THE ERROR VECTOR
}1SET_FOR TIMEOUT

MOV
BR

0oP )« O RERRVEC
SSVLnb

,,RESTORE THE_ERROR VECTOR
;GO TO THE NEXT TEST

(GP)+. ISERRVEC

,,RESTORE THE ERROR VECTOR

TST8

SERFLG

;

001103

CMPB

3ERMAX,SERFLG

};MAX. ERRORS FOR THIS TEST OCCURRED

1216S0

BIT

$B1709, ISWR

:1LOOP ON ERROR?

000004

TST

5§:

CMP

MOV

217270

(GP)+, (SP)+

:TIME OUT_ON XOR?

!CLEAR THE STACK AFTER
A TIME OUT
ON THE PRESENT TEST

6S: ; BUANBEND OF CODE FOR THE XOR fESTERs.os
28:

BEQ

BHJ

;HAS AN ERROR OCCURRED”

‘BR

IF _NO

‘BR IF
NO

CZRENDO RK611/06 SS VERIF 2
CZREND.P11
10-JAN-78 10:0S

11655
11656

057270
057272

11658
11659
11660
11661
11662
11663
11664
11665
11666

057302
057306
057312
057314
7322
057324
057330
067336
057340

105037
00S037
000412
032777
001006
005237
3737
002024
012737

001103
001304

11668
11669

067354
057360

105237
113737

001102
001102

11671

057372

011637

11673

057402

112737

11657

11667

11620
11672
11674

11675

11676
11677

11678

11680

11681

11682

11683

057300

057346

057366

057376

001404
013737

000443

013737

011637

005037

057410

013777

057422
057424

00000
003720

0S7416

013716

057426

112737

05744>

000403

057434

112737

11684

0S7444

11686
11687

057452
057484

010046
010146

057462
0S7464
057472
057474
057502
057504

001450
122737
001031}
132737
001425
017600

11685

11688

11689
11690
11691
11692
11693
11694

11635
11696

067452

057456

057510
057516

11697
11688

067522
057524

11760

057532

11699

057530

112737

105737

062766
005737
001375
010037

105720

001376

001110

Kae

MACY1l 30A(1052)
10-JAN-78
12:02
SCOPE HANDLER ROUTINE

001106

4§:

004000

121616

001104
001304

001104

000001

001104

057424

001106

001304
001324

001306
000001

001102

001106

001115

121524

STSTNM
$TSTNM,STESTN

; ;COUNT TEST NUMBERS
;:SET TEST NUMBER IN APT MAILBOX

(5P), SLPERR

; :SAVE_ERROR_LOOP ADDRESS

MOV

INCB
MOVB

$OVER:

SMXCNT,STIMES

(SP), S(LPADR

MOV

§TSTNM, aDISPLAY ;;DISPLAY TEST NUMBER

MOVB

MOV

RTI
2000,

81, SERMAX

SLPADR, (SP)

MOvVB

satyc

S$ATY3:
SATYC:

057670

000004

000002
001320

000004

001334

18:
2%:

000004

057602

000002
177776
054736

MOVB

000004

; ;FUDGE RETURN ADDRESS

: ;FIXES PS
: IMAX. NUMBER OF ITERATIONS

::TO TYPE A MESSAGE

$1,SFFLG

;;TO ONLY REPORT FATAL ERROR

MOV
MOV

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

; ;PUSH RO ON STACK
:iPUSH R1_ON STRCK

BEQ
CMPB
BNE
BIT8
BEQ
MOV

(3
$APTENV, SENV
38
$APTSPOOL
, SENVM
33
J4(SP),RO

:;IF NOT:
BR
: ;OPERATING UNDER APT?
:iIF NOT:
BR
; ; SHOULD SPOOL MESSAGES?
::IF _NOT:
BR
: iGET MESSAGE RDDR.

BNE
MOV

15
RO, $MSGAD

;iIF _NOT:
WAIT
:;PUT ADOR IN MAILBOX

ADD
TST

7518

4§:

SMFLG

82, 4(SP)
SMSGTYPE
(ROY+

BNE

5§

ADD
MOV
JSR

#2,4(SP)
179776, - (SP)
PC,3TYPE

suB
ASR
MOV
MOV

;;
TO REPORT FATAL ERROR

#1 SMFLG

TSTB

001341

:ONLY ALLOW ONE(I) ERROR ON NEXT TEST

o o 3363 36 36 36 36 3 3 36 36 36 36 3 3 3 3 3 36 3 36 36 3 3 3 3 36 3 36 36 3 36 3¢ 36 3 36 3¢ 36 3 3 3 3 36 3 3 3 3 3 36 3 3 3 3 3 3 3 3 3 3 3% % 2 %

S$ATYY:

000100

::CLEAR THE ESCAPE FROM ERROR ADDRESS

APT COMMUNICATIONS ROUTINE

057672

001340

; :SAVE SCOPE LOOP ADDRESS

SESCAPE

000001

;;SET NUMBER OF ITERARTIONS TO DO

CLR

#1,SFFLG

057670

017637

000000

; ; ZERO_THE_ERROR FLAG
i iCLEAR THE NUMBER OF ITERATIONS TO MAKE
{IESCAPE _TO THE NEXT TEST
:; INHISIT ITERATIONS?
:iBR IF YES
; : INCREMENT ITERATION COUNT
; iCHECK THE NUMBER OF ITERATIONS MADE
;;BR_IF _MORE ITERATION REQUIRED
;iREINITIRLIZE THE ITERATION COUNTER

MOvB

000001

057586

057602

$ERFLG
STIMES
19
#8IT11,aSKR
18
$ICNT
STIMES, SICNT
SOVER
#1,SICNT

$OVER

$ATY1:

11706

11710

CLRB
CLR
BR
BIT
BNE
INC
CMP
BGE
MOV

057672

001320

062766
013746
004737

;:BR_Ir NO
;;SET LOOP RDDRESS TO LAST SCOPE

000001

001336
000004

057564
057572
057576

4§
$LPERR,SLPADR

MOV

.SBTTL

001334

11707
11708
11769

$SVLAD:

SMXCNT:

163700
006200
010037
012737
000413

18:

BEQ
MOV

MOV

057534
057540
0575842
057546
057554

3%:

001110

11701
11702
11703
11704
11705

7%:

PAGE 231

MOV

.WORD

: :SHOULD TYPE R MESSAGE?

; s BUMP RETURN ADOR.
; ;SEE IF"OONE W/ LAST XMISSION?
: ;FIND END OF MESSAGE

§MSGAD, RO
RO
RO, SMSGLGT
#4, SMSGTYPE

;;SUB START OF MESSAGE
:iGET MESSAGE LNGTH IN WORDS
:iPUT LENGTH IN MAILBOX
{ITELL APT TO TAKE MSG.

J4(SP), 48

; ;PUT MSG ADDR IN JSR LINKAGE

;;BUMP RETURN ADDRESS
;3 PUSH 1727776 ON STRCK
:CALL TYPE MACRO

SEQ 0230

0 RK&11/06 SS VERIF 2
1
10-JAN-7810:05
0S7604

057604
057610

105737
001416

05716

001413

087612

001340

057620
827254

005737
80§g7§

001320

057634

062766

000002

017637

000004

0S7642 005237 001320
057646

057652
057656

105037

105037
105037

057662

012601

057666

000207

057664
057670

057671

057672

MACY11 309(1052)
10-JAN-78
12:02
APT COMMUNICATIONS ROUTINE
5§

057872

005737

7606

LO2

10%:

1578
BEQ

SFFLG
12%

BEQ

129

757

118:
001322

057672

12%:

057671
057670

000

$MFLG:

000

$FFLG:

000

$LFLG:

057674
000200
000601
000100
000040

,,SHOULD REPORT FATAL ERROR?
NOT:
BR

,,RUNNING UNDER RPT?

757
BNE

$MSGTYPE
118

,,FIN;SHED Lnsr MESSAGE?
Ng
ARIT

ADD

#2.9(SP)

J4(SP),$FATAL

'IF NOT:

:°.ET

RRO o

UMP RETURN ADOR.

INC

$MSGTYPE

,,TELL npt TO TAKE ERROR

CLR8
CLRB

SLFLG
SMFLG

!CLEAR LOG FLAG
,,CLERR MESSAGE FLAG

MOV

(SP)+.RO

CLRB
MOV

012600

SEQ 0231

SENV

MOV

000004

PAGE 232

$FFLG

(SP)+,R1

RTS

.BYTE

.BYTE
.BYTE

:CLEAR rnTnL FLAG

: 1POP STACK INTO R!

,,POP STACK INTO RO

'RETURN

,,nessc FLAG
'LOG FLAG

.EVEN
APTS1ZE=200
APTENV=001
APTSPOOL=100
APTCSUP=040
.SBTTL
ROUTINE TO SIZE MEMORY

:'FATAL FLAG

si*lllllllll**!*lill**l*!**’ J 3 36 3 3 % 3 3 3 3 3 J % 3 3 3 % % W 3 % % 3% % I K % K ¥ W ¥ K® % E Kk ®E

JSR

RETURN

PC,S$SIZE

!SLSTRD NILL CONTAIN:
;%
Ly

WITH KT11 OPTION

WITHOUT KT11 OPTIO

- LRST VIRTUAL ADDRESS OF THE LAST BANK

ST ABSOLUTE RDDRESS OF AVAILRBLE MEMORY

'XGLSTBK WILL CONTAIN THE LRST ennx ns A SAF

(%8KT11 IS THE nsnonv MANARGEMENT KEY
;51707 ="0 DON’T

USE MEMORY FQNQGEHENT

MUST BE se UP BEFORE THE CAL

;*91715 0 DON'T HAVE MEMORY nnnncensnr OPTION

057674

010046

057700
057702

010246
010346

057714

010600

057676
057704
057710
057716

010146

013746
013746
104400

CNOOO4
0C0006

057720
057724
057730

012637
012701
105727

0C0006
003776

057736
057744

012737
005737

060074
1[77€72

057732
057734

000260
100062

DETERMINED BY ROUTINE

$SIZE:

MOV

RO, -(SP)

: ;SAVE RO ON THE STACK

MOV
MOV

R2.-(5P)
R3’-(SP)

; 'SAVE R2 ON THE STACK
P1SAVE R3 ON THE STACK

MOV
MOV
MOV

MOV

R1,-(SP)

:SAVE R1 ON THE STACK

I#ERRVEC, -(SP)
;:SAVE PRESENT ERROR VECTOR PS 3 PC
acsnnvscia Z(SP)
AVE THE STACK POINTER

s SET THE ERRVEC ps TO THE PRESEHT PS
RAP

$KT11:

000004

nov
MOV
TSTB

.WORD
BPL

MOV
TST

:PUSH OLD PSW AND PC ON STACK

(SP)+, a#ERRVEC+2’
:SAVE THE PSW IN J%ERRVEC+2
#3776 Rl
s s SETUP ABDRESS
(PC)+’
: 'USE MEMORY MANAGEMENT?

200
$CORE

,,ssr TO USE MEMORY MANRGEMENT
:BR IF NO

#SKTNEX, 8ERRVEC' } ; SET FOR TIMEOUT
J¥SRO
,,kTI1 ARE YOU THERE”

8 7750
057760

7756

0§7?6H

057770
05777
06000
060004

885737
046

012702

812703
0le?ee
8&1?25
2716
077307

%80 Ghgzig

060014

12737

100000
172340

0goalo
077406

ERE Gog

17700

060032

12737
005737
062712
023712

60064
143776
000040
172356

060066

005037

177572

260074
2
o]
g

042737

100000
060.32

062701
062702

004000
006040

022701

177776

1€2701
lfigg E

004000
000040

12637
012637
10137
10237
12603
12602
12601
012600
000207
000000

000006
000004
060176
060200

0e0132
060136

0e0l4e

o
o

060144
060150
060154

060164
060166
060170
060172
060174
060176
060200

Q000000000

Urer—r-0O

60040
0600486
0e00S2
060056

e
060124

000000

MO2

30R(10S2)
10-JAN-78
12:02
ROUTINE TO SIZE MEMORY

057732

17774C 1§$:

cxooooo $KT11

MOV
MOV

MOV

OKIPRRO R2
$108,R3’

: ADDRESS OF FIR
1LOAD EIGHT “PA

MOV

o??Hb&
-40(R2) .,,PDR
HK _UP, RERD/WRITE
3g
(SP), (hs)+

MOV
Hou
MOV
BR

.aoo (S

n1¢7soo -(R2)
RRVEC
53 8 S

; §

INC

JusrO’

MOV

2%:

000004

057732

000004

CMP

MOV
15T

4§

SEQ 0232

CLR

SOB

00000
172516Y

PAGE 233

BIS

ADD

000200

geeass Bisrdr 8600

O
o
O

0 NN NTINNYN \l\ld‘g

[y o e e
Y e Y ey ey oy Y e ey Y el Y Sl ol oL L
SOy SN SOy Sy WY SN SOY Sy WOy Sy iy WY DY WA Gy WPy Wy WY Wy Wy Wy Sy G Sy
Gy SN WyGy
G Gy S Gy SO W
Pt ms et Bt s Pt Pt s Bt Pt Bt Bt Bt Pt Pt Pt Pt Pt Bt Bt Pt Pt Pt Pt Pt e Pt Pt et et Pt Pt Pt Pt Bt e Bt s Bt P et Pt Pret b it Pt P8 Pt Pt Pt Pt Pt P Pt s

mmmmmmmmmmmmmmmmmmmmmcnu;\)\:\N NNNNNNNNNNNNN NN N NNN NI NNNNNN
YN

11767

PINY
= b b bt 4
1= = = - OQ O OO OO0 OO OO0 W L 000 W00 W LD D MM X (D M
= 0VONCNLWNU—0OOD NN
LW —-0OWD NV LW~ 0w
N0
W~ VNN
LW —0OW

CZRBENDO RK611-06 SS VERIF 2
CZREND.PL1
10-JAN-78 10:0S

MACY1l

ADD

(SP)

]

(sp)+ (SP; »

YES--SET KT11 KEY

'INTTIALIZE ron ”PRR" LOADING
's" AND EIGHT “PDR.‘'S"

UPDATE FOR NEXT "PAR"

..s TUP K}PQR? FOR 1/0
FA
ggRsTrgfi
§55£§§°
"E
98
é
8Y
HIS
PDP
-11 Hns n SR3 REGISTER

1LO0P UNTIL ALL EIGHT ARE LORDED

L AN OFF T

TACK- 2 $R3

URN ON nsno Y nnnncen N

$SKTOUT uOERRVEC .SET FOR TIME OUT
8143776
,,fRRP ON NON-EX~MEM
#40,

(R2)

'MAKE
A 1K STEP

CMP
BHI
$KTOUT: MOV
BER

asklPAr?, (r2)
4§
(R2) ,R2
gg§ag

SKTNEX: BIC

#100000, SKT1: _ ;;KT1l NON-EXISTENT

$CORE:

MOV

18:

ADD
ADD
TST

$CROUT:

#3CROUT, I8ERRVEC ; : SET FOR TIMEOUT

CLR

CMP

$177776,R.

SUB

R1
#4000,

MOV
MOV
MOV
MOV

iqssvo E THE STACK
RO.&P
(SP)+, asERRVEC+2’ ; ;RESTORE ERROR VECTOR
(SP)+ S#ERRVEC
R1,$L5TAD
; s LAST nooREss

MOV

(SP)+,R3

BNF

§SIZEX: SUB
MOV

MOV
MOV

SLSTAD:

,,Lnsr onsv
NO=-TRY IT
*IGET LAST BANK+]
P TURN OFF MEMORY MANAGEMENT

#4000, R1
#40, R2
(R}
1%

QETP BANK

,,xncnsnsnr BY 1K
P 1K STEP
,,TRQP ON TIME OUT
T ONE

NO=-TRY RGAIN

#40, P2

;;0R E

R2. SLS1BK

:'LAST BANK

(5P)+.R2
(3P)+RI

; ;PESTORE R2
'RESTORE I

5?;

égp)+,no

.WORD

:'RESTORE R3

: 'RESTORE RO
;CONTRINS THE LAST ADDRESS

:CONTRINS THE LAST BANK
0
$LSTBK: - WORD
.SBTTL SAVE AND RESTORE RO-RS RbfiTINES

; o 363836 36 3 36 3 36 36 4 36 36 36 3 3 3 3 36 36 3 3 36 36 3 3 3 36 36 3 3 36 36 3 % 3 3 3 3 3 3 o6 3 3 3 36 I I 3 3 K I 3 3 % W 3 % % 2 X X%

isnvs RO-RS

*CQLL'

SAVREG

*UPON RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:
*TOP---(+16)

* +2---(+18)

+4---RS

CZR6ENDC RKE11-06 SS VERIF 2

CZREND.P11

10-JAN-78 10:0S

11829

11830
11851
118732
11833
11834
1183
11836
11837
11838
11839
{igzg

;% +H---RY
% +8---R3
%410---R2
i%412---R]
:%414---R0
060202

060202
060204
02
060210
(0B0212
060214
060216
060222
060226
060232
060236

010046
010146
010246
010346
010446
(10546
016646
016646
016646
016646
000002

$SAVREG:

000022

000022
000022

000022

11856

iiggg

RO, - (SP)
Ri. -(SP)
R2.-(SP)
R3. -(SP)
RY. -(SP)
RS’ -(SP)
22lsp), -(sP)
22(5P) ) -(5P)
22(5P) ) -(SpP)
22(5P) . -(5P)

:;PUSH RO ON STACK
::PUSH R1 ON STACK
P'PUSH R2 ON STACK
; ;PUSH R3 ON STACK
:1PUSH R4 ON STACK
:iPUSH RS ON STACK
::GAVE PS OF MAIN FLOW
:1SAVE PC OF MAIN FLOUW
::SAVE PS OF CALL
: ISAVE PC OF CALL

(SP)+,22(SP)
(SP)+.22(SP)
(5P)+.22(5P)

s sRESTORE PC OF CALL
" 'RESTORE PS OF CALL
!!RESTORE PC OF MAIN FLOW
: 'RESTORE PS OF MAIN FLOW
:POP STACK INTO RS
::POP STRCK INTO RY
::POP STACK INTO R3
:'POP STACK INTQ R2
::POP STACK INTO Rl
::POP STACK INTO RO

: ¥RESTORE RO-RS
P%CALL:

11843

11845
11846
11847
11648
11849
11850
11851
118562
11853
11854
11855

MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
MOV
RTI

11842
11844

NO2

12:02_ PAGE 234

SAVE AND RESTORE RO-RS ROUTINES

11823
11834
11825
11826
11827
11828

10-JAN-78

MARCY!1 30A(1052)

060240
060240
060244
060250
(060254
060260
060262
060264
060266
060270
060272
060274

‘%

012666
012666
012666

$RESREG:

000022
000622
000022

RESREG

MOV
MOV
MOV

MOV

012666 000022

MOV
MOV
MOV
MOV
MOV
MOV

012605
012604
012603
012602
012601
012600
000002

.SBTTL

RTI

(SP)+.,22(5P)
(SP)+ RS
(5P)+ RY
(SP)+.R3
(SP)+.R2
(5P)+ R
(SP)+.RO

TRAP DECODER

11859

HH 'l!ll!l&!!ll!ll!lilll!ill**iilllllllill!lfllllll*l!!l!lll*!*l*llll ON

i}gga

%GO TO THAT ROUTINE.

'4THIS ROUTINE WILL PICKUP THE_LOWER BYTE OF THE “TRAP" INSTRUCTI
'¥AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADCRESS
! ¥OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL

11860
11861
11862
11865

060276

010046

11667
11868
11868
11870
}iggé

060304
060306
060310
060312
060316

005740
111000
006300
016000
000200

§TRAP:

11866 060300 016600 000002
060332

11873

{iggg
11876

060320

0116H

11878

060330

00000

1i877

060322

016666

000004

000002

MOV

RO, -(3P)

TST
MOVB
ASL
MOV
RTS

-(RO)
(RO),R3
RO
RO
$TRPAD(RO)
RO

MOV

2(5P); 10

: s SAVE_RO

::GET TRAP ADDRESS

' 'BACKUP BY 2
*!GET RIGHT BYTE OF TRAP
2POSITION FOR INDEXING
;; INDEX TO TABLE
11GO TO ROUTINE

. : THIS IS USE TO HANDLE THE “GETPRI“ MACRO
: sMOVE THE PC DOWN
(SP),-(SP)
§TRAF2: MOV
P'MOVE THE PSW_DOWN
4(SP},2(SP)
MOV
: 'RESTORE THE PSW
RTI

SEQ 0233

C4R6N00 RK611 0e SS VERIF @2
10-JAN-78 10:0S

CZR6ND.P

MACYll

.SBTTL

PAGE 235

SEQ 0234

TRAP TRBLE

iTHIS TRBLE CONTRINS THE STARTING ADDRESSES OF THE ROUTINES CALLED
%#BY THE “TRAP* INSTRUCTION.
:

060332
060334
060336
060340
060342
060344

060320
0S4736
056036

060346

0Se660

$TYPE
$TYPOC
$TYPOS
STYPON
$TYPDS

020040

ZORZERZA

020104

ge0e24

STRAP2
; s CALL=TYPE
; CALL=TYPOC

P CALL=TYPDS

$ROCHR
s CALL=RDCHR
$SAVREG ,,CRLL SAVREG
SRESREG
; ; CALL.=RESREG
,,CRLL SCOPER
SCOPE

060354
060356

ROUTINE

$TRPAD: .WORD

0Se240

o0
00 Q0000
nn
e
no
~—n NO= O+
N
UNo=e b= s (N
= (N
LN
== PO N = PN 0 0 et hoo e
NWWN»N0 —
N0

OO0
OO 0 OO 000D 0D DO D DDODD DD D0 WD OO DDDD
DO
WD LW LW LN N NN TN NN NUTU b b 1= st ft e fm on e e (O
D00 (Ve XVo RV IN e IV IV o] [vedoelaeTooLou)
LW OQOONCNLWNOV NCNLEWNN~-0OVBNCNLEW [l =1V +) NN
L w0 DN

Pt s Dt e e e P Pt s Pt Pt Bt vt e Bt it P e P Pt Pt Bt Pt Bt e Pt et Pt P Pt it Pt Pt s Pt Pt Pt Pt s Pt s Pt Pt Pt Pt Pt Pt P et Pt Pt s Pt P P
Ll ot
e ey Y e e el ol ol Y e Y Y e oy Sy e oy ey ey e Sy S e Y ] Y Y Sy NN oy N iy Sy by iy U Wy i S o S S P D Y S
I I S

[ealo
el o B
0000008 Dogmmmmmmmmmmmmtnmmmmmm
-0

11879

BO3

12:02

30R(10S2)
10-JAN-78
TRAP DECODER

o425e4

TSTMSG:

.ASCIZ

TEST

000

AS2SP2:
EMI:

.ASCIZ
.ASCIZ

/UNIBUS

/R%

05250e
oc0122

TRAP+1(104401)
TRAP+2( 104402)
TRAP+3(104403)
TRAP+4 (10440Y4)
TRAP+5(104405S)

TTY TYPEQUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NQ LEADING_ZEROS)
TYPE OCTAL NUMBER (RS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

TRAP+6 ( 10 4Y406)
4
)
( 10 4407
TRRP+1? (1 o4410)
TRAP+11(1 o4411)

TTY TYPEIN CHARACTER ROUTINE
SAVE RO-RS ROUTIN E
RESTORE RO-RS ROUTINE
INTERNAL LOOP ON ERROR ROUTINE

PAR

ERR/

020124

0S410S
042515

EM2:

.ASCIZ

/NON-EXIST MEM/

026516
020124

0os410s
0S1104

EM3:

.ASCIZ

/NON-EXIST DRV/

gselll
042114
0oon
041125
Q44524
000124
047524
051101

043040
Jya440

EMY:

.ASCI1Z

/UNIT FIELD ERR/

054523
042515

EMS:

.ASC1Z

/SUBSYS TIMEOUT/

041440
042440

EMG:

.ASCIZ

020117
020122

EM7:

.ASCIZ

TO D PRAR ERR/

053517

EMIO:

.ASCIZ

/7AC

042105
000123
052506

EMIl:

.ASCIZ

/SPEED LOSS/

EM12:

.ASCIZ

/ILL

o42440

EMI3:

.ASCIZ

/PROG ERR/

o42455
043040
000

EMI4:

.ASCIZ

/NON-EXIST FUNCT/

PAR

ERR/

LOW/

FUNCT/

CZRENDO RKB11/06 SS VERIF 2
CZREND.P11
10-JAN-78 10:0S

1193S

11936

0S2040

EMIS:

.ASCIZ

/DRV TYP ERR/

1{05

Ogg?ég

0c0le4

EMl6:

/FMART ERR/

060664
060672

045503
000

20124 047S14 EM17:

.ASCIZ

042440

O0S1i2e

.ASCIZ /WRT LOCK ERR/

82 706

42228

8“550

44440

EM21:

.ASCIZ

/SEEK INCOMP/

043122

047514

EMe2:

.ASCIZ

/CYL OVRFLO/

ggoggg

11941
11942

11945

11940

11946
11947

11948

11949

060644

000

86 6 8?112

714
060722

060730

0733

Q4151
054503

151

11950
11951

060742
060750

046131
000122

11953

060760

020106

11352
11954

060752

0S1104

0S31e2

4651
020114

00120
0S3117

Q46114

QO41440

EM23:

.ARSCIZ

/ILL CYL RDDR/

020126

043117

EM24:

.RSCIZ

DRV OFF TRACK~/

044524

EM2S:

.ASCIZ

/DRV TIMING ERR/

052101

020101

EMe6:

.ASCIZ

/DATA LATE/

047117

0S1lled4

EM27:

.ASCIZ

/CONTR TIMEOUT/

042520

040522

EM30:

.ASCIZ

/OPERATION INCOMP/

042101

051105

EM31:

.ASCIZ

/HEARDER VRC ERR/

8&218%

020101

EM32:

.ASCIZ

/DATR CHECK ERR/

020124

044103

EM33:

.ASCIZ

/WRT CHK ERR/

040524

046440

EM34:

.ASCIZ

/DRTA MISCOMPARE~/

042040

040440

0S11e4

000

042104

041501

766

000113

11956
11957

060776
061004

Q44515
0Silee

043516
000

042440

11959

061014

O0O40S14

0Q425e4

000

061026
061034

0S2040
052125

046511
000

11964
1196S

061044
061052

044524
041516

Q47117
046517

11967
11368

061066
061074

0S3040
051122

041522
000

11870
11971

061104
Obllle

Q441
0Sl11

11973

O0O6lle4

020113

051105

051511
051101

047503
105

11955

11958

11960

11961
11962

11963
11966

11369

11972

060770

061007
061921

061037
061060

061077
061116

0S1104
104

103

117

042510

104

0Sl11e7

11974

061132

040504

11977

061152

Q47516

11975
11976

061140
061146

0001lee

0S0115

/NO DRV RESPONSE-UFE & NXD/

0S1104

020126

051105

EM36:

.ASCIZ

/DRV ERR WILL NOT CLERR/

104

053122

0SI440

EM37:

.ASCIZ

/DRV STATUS CHANGE WILL NOT CLERR/

020122
047040
042514

061240
06l246
06l1eS4
0Obleee

020113

.ASCIZ

0bl2le
061220
06l226

061233

042440

EM3S:

11983
11984
11985

11986

044440
000120

47520
43125
0S4116

821040
1516
020105
000104

11987
11988
11989
11990

15
00Qlee

047505

053122

061160
061166
061174
061202

061204

020126

821%0
650
020046

11978
11379
11980
11981

11982

PAGE 236

O0S1l22

104

0SO0131

11937

CO3

l12:02

042440

060631

060636

}{ggg

MACY11l 30R(1052)
10-JAN-78
TRAP TARBLE

040524
044103
0S3440
047516

044527
052117
051101

046114
041440
0ag

052524
047101
046111
020124

020123
042507
020114
046103

SEQ 0235

CZRENDO RKB11-06 SS VERIF 2
CZREND.P11
10-JAN-78 10:08
11991

040S0S

0Q0le2

{iggg

061302
061310
061316
061329

05
0OS1440
020123
Q42507

20la4
0O40S24
044103

Ofl?qqg

047516
052524
047101
088{53

11999

061346

052502

020le4

0S1104

11982

11993
11994
11995

061270

MACY1! 30AR(10S2)
10-JAN-78
TRAP TABLE

061274

11998 82134

12002 8&1%?8

Osgégé

23524

822?8? Sggggfl
2181 823 24

020116

EMH0:

.RSCIZ

DOJ3

12:02

PAGE 237

SEQG 0236
,

/ATT'N BUT NO STATUS CHANGE OR FAULT/

20116 EMY1:

.ASCIZ /ATT’N BUT DRV NOT AVAIL~/

020116 EM42:

.ASCIZ /ARTT’N WHEN NOT EXPECTED/

12003

061376

044127

047105

047040

12006

061420

0S1105

020122

040S07

EM43:

.ASCIZ

/ERR GATHERING DRV STATUS/

12011

061451

115

046125

020124

EMSe:

.ASCIZ

/MULT DRV SEL~/

042510

042101

051105

EMS3:

.ASCI1Z

/HERDER COMPARE ERR/

41125

054523

EMSH:

.ASCIZ

~/SUBSYS TIMEOUT/

020122

12007
12008
12009
12010

12014

061426
061434
0bl442
061450

061466

12015
isgig

061474
82{%?8

12018

061511

12021

061530

12026

061562

12022
12023
12024
12025

12027
12028
12029
12030
12031
isggg

12034

044124
020107
0S2l23
000

041440
042883

0S1105

061536
06I1S44
061552
061560

0S1040
Q43040
Q41S0S
000131

061570
061576
061604
0Oelble
061615
ggiggg

043516
Q42526
Q46101
051117
103
051866

061631

851104

103

12035
12036
12037
12038
12039

061636
061644
0bleSe
061660
061666

041440
042040
0S2117
051101
000

12041
le042
12043
12044
12045
12046

061674
061702
061710
061715
061722
061730

023524
040440
051040
125
041511
040440

12040

061667

116

0S110S
051104
052101

046517
O42440

Q047111
020126
0S1525

040S20
O0slle2

041505
051117
053117

047111

046101
051040
051105

EMBO:

.ASCIZ

/ERR IN RECAL FOR RECOVERY/

0117

042040
043040
042440
000
046131
047503

Q44520

EMBI:

.ASCIZ

/DROPPING DRIVE FATAL ERROR/

046440
050115

EMbE:

.ASCIZ

/CYL MISCOMP/

042514

044522
052101
0Sllee

047117
O0O42lll
Q41440
O42440

051101

O0Slled
047040
042514
O0Sllee

EMB3:

.ASCIZ

/CLEAR CONTR DID NOT CLERR ERR/

020117

0S2101

EMBY:

.RSCIZ

/NO ATT'N

EMBS:

.ASCIZ

,
~/UNSOLICITED ARTT’N/

020116
052124
043505
0S1S16
0S2111
052124

047111
047047
000
046117
042105
047047

]

IN ATT'N REG/

[13]

0NN

nLe

WOOO0DOQ
N=Or =W

U}
L=

UY==Yo
[

Q-0

N 000
—-NON L0
nL [ NI Y ol of (VI Ve BN T |

P
0008
o
22 2RPREREARARAEE AREEE

ONI\I?;S

nrwn

093

RRRAEZR-c58Rz0EL

000
S

061736

PAGE 238

EMEG:

.RSCIZ

/UNEXPECTED DARTAR ERR/

EMB7:

.ASCIZ

/PTT'N DID NOT RESET WITH CLERR/

046103

047047
047040
05150S
052111
040s0S

051502
o42siy
Q4elll
Q41440
042040
0Seled4

0S1c31
0slli0l
047040
042514
gs3lee
047047

EM70:

.ASCIZ

/SUBSYS CLERR DID NGT CLEAR DRV ATT’'N/

0S2101
Q4a5e4
020116
042101
042510
000
047117
0sliee
116
051105
000126
020126
o40520

020101
0S3440
Q47125
o47111
o4210!1

EM71:

.RSCIZ

/DRTA LATE WHEN UNLOADING HEADER~

0sile4y
053440
051104
051440

EM72:

.RSCIZ

/CONTR ERR WHEN DRIVER SERY/

042504
oc0lee

EM73:

.ASCIZ

/DRV

020106

EM74:

.ASCIZ

/UNDEF

047111
0S1511
o47524
000104
Q40504
051105
053440
04ese2
Q41505
Q46040
O4ese2
051511

EM?75S:

.ASCIZ

/MARKING THIS SECTOR BRD/

EM76:

.RSCIZ

/BAD DATA VERIF’'N WITH READ. ECC OF LAST RETRY IS:/

EM?77:

.RSCI2

/RETRY SUCCESSFUL~/

EM100:

.ASCIZ

/RETRY

EMI101:

.RSCIZ

/CANNOT FIND A VALID HERDER IN TRACK JUST RERD~

DET PAR

ERR/

UNSUCCESSFUL~/

052506
062372
062400

052117
020104

EQ3

12:02

050130
020104
o42440

Q42516
Q4esa4
o40Se4
00

020131
051508

0ss

10-JAN-78
30AR(1052)
TRAP TABLE

|@]

MACY11l

(&)

CZRENDO RKbB11-06 SS VERIF 2
10-JRAN-78 10:05
CZREND. Pl

CZRENDO RKb11-06 SS VERIF 2

CZREND.P11

10-JAN-78 10:05

MACY1l 30R(1052)

TRAP TABLE

062450

456
062464
0Dee472

0S02

2103
047440
052103

Q20104

042440
020116
047040

12115

062514

044524

042515
020le4

047117

12119

062542

Q44524

12122

062564

0S1104

12127

062615

O0Obebee
062630

0O4451S
020122

12132

062650

o
[

121C9

—

040526
042510
044440
041501

020101
020104
051105
1124

—

062406
062414
0ee422
062430

12116

12123
12124
igigg
12128
12129

0625¢2

062572
062600
8&52?&

2133
12134
12135

062656
062664
062672

12138

062713

12140
12141
12142

2726
062734
0627?42

12139

12143

052517

EMI02:

.ASCIZ

/BAL SECT ERR ON SECT NOT LISTED BRD/

026504

EMI03:

.ASCIZ

/TIMED-OUT ON READ HDR/

042515

026504

EMIO4:

.ASCIZ

/TIMED-OUT ON SEEK/

020126

055105
020131
020688

042105
052117
047520

044523

Q41040
04eS10
052122

EMI0S:

.RSCIZ

/DRV SIEZED BY OTHER PORT/

104

052101

Q41523
044127

020101

0S011S
046111

EM106:

.ASCIZ

/DARTA MISCMPR WHILE BRI SET/

047516

047040

046505

EMI07:

.RSCIZ

~/NO NEM ERR WHEN REF’ING LOC 760000/

111

0Selle

0S0l22

EMI110:

.ASCIZ

~/INTRPT WHEN CNTRLR NOT RDY/

041440
020122
042l2e

2ll6
047516
000131

QuYelee
020124

042440
042510
023506

062720

020124

062746

047516

0Sll22
020116
047111

044127

0S3440
Q42522
020107

047105

040440

0S2124

EMI1l:

.RSCIZ

/NO ATT'N ON SEEK/

053122

0SI1447

EM112:

.ASCIZ

~/DRV’S CYL INCORRECT/

04?7502

0S2122

EM113:

.ASCIZ

/ABORT- CAN'T READ BSF~/

EM114:

.ASCIZ

~/KT11l

EM115:

.ASCIZ

~/MEM PAR ERR/

062754
062762

047047
042523

047440
04550

12147
12148
12149

062774
063002
063010

041440
041S16
052103

046131
0S!117
000

063020
063026
063034
063041
063046
063054
063056
083084

020055
020le4
041040
113
0Q40S06
00010S
042S1S
020122

040503
042522
043123
030524
046111

023516
042101
000
020061
0S1125

020115
051105

040520
000122

12150

12151
12152
12153
12154
12155
12156
12157
12158

062767

063013

PAGE 239

042523

O0Sllee
042523
0S2117

12144
12145

l2lye

FOJ3

12:02

044 514
042101
020116
020113

12104
12105
12106

12110
12111
l1elle

10-JAN-78

104

101

020116
000

044440
042See

FRILURE~

)

SEQ 0238

o
0000000 |
o
WWWwWwWwWwwwww W

PRARGE 240

SEQ 0239

0sllee
046503

047105
020104

DH100:

.RSCIZ

~/CURRENT CMD

0S3105

041440
000
030461
0egle3

DH10S:

.ASCIZ

/PREV CMD

DH200:

.ASCIZ

/PK&11l REGS

Q47111
o4esez
052117
o4e2lll

DHS00:

.ASCIZ

~/REMAINING REGS NOT VALID~/

043040
Q44527
043505
020101

DHSO01:

.RSCIZ

~/THE FOLLOWING REG DATA MAY BE

050040
Q44522
041440
020040

DH10l1:

L.RSCIZ

/ERR PC

DRIVE

020101
041040

DH102:

.ASCIZ

~sHI

LO BR/

020056
051525
035040

DH103:

L.RSCIZ

/PREV.

p4esee
020117
000
020056
051525
035040

DH104:

.ASCIZ

~/HI REGO LO REGO/

DH106:

ASCIZ

~/CUR.

UNIBUS MAP

030523
041513
051040
020040
020101
0S3513
051040
020040
047523

DH201:

.ASCIZ

~/RKCS!

RKCS2

RKDC

020040

DHe202:

.ASCIZ

~/RKDS

RKER~

043S0S
040S1S

020107
047040
046101

[
£

w
n

TRAP

TABLE

:~/

:/
:/

INCORRECT

042502
0S1117
035040

[

2R [ 8]

[N]
£
Q
o

063426
063434

000

02004

Oe3S24

CMND

CYLNDR

TRACK

SECTOR

WD CNT~

RKDA

RKWCR

RKBR

RKRSOF
~

047103

(-2
W
FERS

FRRR

UL NNV

Bt Bt Pt Pt Pt Pt Bt Pt Bt Pt Pt Bt Pt e P
s Bt fn Bt Bt B Pt Pt P Pt Bt Pt e P
Ot

02
203

12:02

30R(1052)

042510
o
o

—

0Ses03
020124
000072
gS1l120
ouaxég

GO3

10-JRAN-78

MARCY11l

06 SS VERIF 2
10-JAN-78 10:05

ot P Bt s s Pt Bt

MR VMV PV

s s Pt Bt s Bt e Bt Pe Pt s s Pt Pt ot

m ot pn —

P TVIVD R TVTV M n

RN
mmmmmmmmmmmmmmmmmmmmmmmmmmm
TN N 0 e e s s B s e b B Pt s B e P Dt Prome e Pt e s s Pt s Bt Bt et Pt Bt Pt s Bt s s Pt s et s P P
[s]e]V:
IV V]
00 000D (00 00 M @NNNNNNNNNNNoO
o o wn
L =1V [ RN & 200283 O NN L W= OO
NN LW~ OO0 NN
L WO [¥+)

C<RBENDO RKB11
CIREND.PL]

(045522

(0S1504

UNIBUS MAP

CZRENDO RKB11/06 SS VERIF 2
10-JAN-78 10:0S
CZREND .Pl1

L I
AN I AV Il olg
LWN—-OWVo

mmmmr&m Jruhururnony
[N
W

230

s Pt Pt
Y
Y
ey e ey
e
e
T
ot
e
N
[

SEQ 0240

PRAGE 24!

12:02

TABLE

030060
g41040
020040
020040

020040
030060
040440
020040
020040
031060
041040
020040
020040
031460

DH203:

.RSCIZ

/R00

o40s0S
o44123

DHEOLl:

.ASCIZ

/HEADER SHOULD BE:~/

041040

042504
0Sesl?
03510S

040505
043117
020124
0S1S11
044340

042504
0S1440
020060
041440
035123

DHe02:

.RSCIZ

/HERDER OF SECT O THIS CyL

041501
0S1104
05110S

geol13
047440
pe41e22
4 000

DHBEO4:

.RSCIZ

/PRACK ADDR OF ERR(S)

DHBO4!:

.RSCIZ

/CYLNDR

TRACK

TRARCK/

Q47524

UV
PVPV VNPV YNV VNV
RNV
VAR MY VLY

TRAP

051105

Pt bt

239
240

10-JAN-78

30A(10Se)

pussee

031460
O41040

s Bt Bt

e Pt Pt Pt Pt B

Pt Bt Pt P

Bt Pt

e Pt Pt Pt Pt P

815

MACY11

0S1440
0o0lee

80O

801

AOL

BO2

HO3

LO PHY

VRT RD

KIPARG~

IS:/

SECTOR/

Qu71y

831481

S1104

DHe042:

.ASCIZ

/CYLNDR

c1ia4

020103
Q44440

o4US0M4
035123

DHB0S:

.RSCIZ

/ECC

0S1517
050040

020040

DHBOS!:

.RSCIZ

+POS

PAT

CORRECTABLE?

DHE06:

.ASCIZ

/WORD

WORD2

WORD3~

042510
0444940

DHE0?:

.RSCIZ

/BAD HEADER IS :/

020040

DH?01:

.RSCIZ

/WD 8

DATA

RO2

IS:~/

047527

D64166

Ob4174

pg4510

047S1iM
020040

051126

GOOD

BRD

HI PHY

B03/

CZRBENDO RKE11-06 SS VERIF 2
CZRBEND.P 11
10-JAN-78 10:05
12271

oe4e02

0c0124
044513
000
107
020040
0G0
106
Q43s16
020101
035040
123
030522
0S1411
3
o42see
0

MARCY1l

wuwwwuwwwuwwwwwg
})rumr\)r\)v—v—r-o—o—v-»—o—b—v—
W
O0DONCN
L WMN—-0OWw
W
nn
awn

s
e
Bt Bt Pt
Bt e
Bt B
s Bt Bt B
s B
e

SEJ

Q47517
041040

020104
42101

DH702:

.RSCIZ

/GO0D

044501
042040
047527
000
030122
0S1411
0315ee
030524
051507

044514
05210l
O4elee

DH703:

.RSCIZ

/FAILING DATA WORD

0S1411
o3ilee
000
020061
035040

DH70M:

.ARSCIZ

/SRO

DH705:

.ASCIZ

/KT11

051040
000072
042517
044510
o4Ye41l
000123
0s1123
051503

DH706:

.RSCIZ

/MEM REGS

DH?07:

.RSCIZ

/PC

DH?710:

.ASCIZ

/7PC

DH711:

.RSCIZ

/CYLINDERS

DH204:

.RSCIZ

/RKDS

DHS02:

.RSCIZ

7ERROR TRYING TO GET FRILURE INFO/

DHSO03:

.RSCIZ

/SECOND TIMEOUT OCCURRED GETTING DRIVE STATUS/

DHB00:

.ASCIZ

/NUMBER OF RETRIES:~/

.EVEN
. WORD

$ERRPC,DRIVE,ERRCOM,
SREGO, SREG1, SREG2, SREG3

Q4650S
020ie3
046011
004504

o4ellb
000072
020040
05110S
o4sS5e2
020040

nufuuPRDNJVDVRDND
NN NNV

PAGE 242

020040
G331e2

0s4523

Bt Bt Bt

I03

12:02

Quel0l
o40se0

042101

0S110S
04ese2
035123

064606

oe4610
064616
064624
064626
De4632

30A(10 52)
10-JAN-78
TRA P TABLE

00SS00
0oo11eM

Q0OS476
001166

001260
001176

001200

.WORD
.WORD

BAD/

SR1

SR2

SR3/

LOERRD

HIERAD

MEMSYS/

CSR AD

CSR/

REGS

:/
:/

RKER

SREG36, SREG3?7

RKMR2

RKMR3/

$REGS, $REGE, SREG?, SREG10, SREG11,SREG12,
SREG13

Qedl!

CZR&ENDC RKB11-06 SS VERIF 2

CZREND. P11

10-JAN-78 10:05

12327

064640

001202

001204

12329

064650

001212

00121M

12331
12332

064662
064670

001224
001232

001226
001234

12328

12330
12333

12334

12335
12336

isggg

064646

064654
064674

001210

001216
001174

064702

001202

064720

005256

064710
064716

1210
001216

MACY1l 30A(1052)

TRAP TABLE

001222

001176

001200

001212

001214

005254

001230

001206

DT202:

DT203:

DT601:

SREGIY4,¥REGIS

.WORD

SREGS,SREGE,SREG?

DT103:

.WORD

PRMPHO,PRMPLO

DFOl:

&
O
GO
DH101
7,0

000006
000
000
063243
007

000

.WORD
BYTE
BYTE
.WORD
.BYTE

12345

064736

002

000

.BYTE

0G0

000

12346
12347

12348

063332

064740

063123

064744

063435

064742

12349
12350
igggé

0BN746
064750
064752

007
063140
000

12353
12354

064754
064756

000007

12356

064762

12358

064766

12360

064772

12355

064760

063243

064764

063332

064770

063123

064774

063435

065000

063524

065004

063541

12368
12369
12371

12357

12359
12361

12362

12363
12364

12365
igggg

12370
12372

12373

12374

12375
12376
12377

12378

12379

12380

12381
12382

064776

002

000

010

000

065010
065012

000010
000

000

065016

007

000

002

000

000
063435
007

000

065014

063243

065020

063332

065024

063123

065034

063171

065022
065026
065030
065032
065036

065040
065042
065044

.WORD

DA201

.BYTE
.WORD
.BYTE

7,0
DHSOO
0,0

.WORD
.BYTE

7
0,0

BYTE

_WORD

DF200

.WORD
BYTE

2,0
0,0

Df201
7,0

.WORD

DH202

.WORD

DH203

'BYTE
.BYTE
DFO3:

7,0

DAIO2

.BYTE

.WORD
'BYTE

.WORD
.BYTE

.WORD
'BYTE

"WORD

2,0

10,0

10
0,0

DH!O!
7,0

DHl1O2
2,0

DH200

000

'BYTE
.WORD
.BYTE

0.0
DH201
7,0

000

‘BYTE

0,0

002
063541

000

063524

"WORD

.WORD

‘BYTE
_WORD

:NUMBER OF HERDER LINES
*NUMBER OF COL FOR FIRST HDR
‘ALL CHARACTERS OCTAL
:SECOND HOR LINE
*NUM OF COL-ALL OCTAL

DHIO1

.WORD
.BYTE

000

DH102
DF200

.WORD

0c0

000

065006

OFD2:

SREG1O,SREGI1,$REG12,$REG13,$REGIY,SREGIS,
SREGLE

.WORD
'BYTE

000

007

065002

.WORD

000
000

SREGI6,SREG1?,SREG20,3REG21,SREG22,
SREG23, SREG24, SREG2S

DT602:

pe4724
064726
064727
064730
064732

DeY4734

PRAGE 243

.WORD

12338
12340
12341
18342
12343

12344

JOJ3

12:02

001206

001220

001204

10-JAN-78

DHMSOI

DH2O2

2,0
DH203

:“THE FOLLOWING REG DATA MB INCORRECT"

SEQ 0242

CZR6ENDO RKB11-06 SS VERIF 2
10-JAN-78 10:05S
CZRENG.P11
{ggga

065046

010

000

12385
12386

065050
065052

000003
000

000

12387
12388
12389

O0eS054
065056
065060

063243
007
063332

12392

065064

000007

igggg

12393
12394
12395
12396
12337
12398
12399
12400
12401
12402

065062

12404

065066
065070
(065072
065074
065076
065100
065102
065104
065106
065110
065112
065114

12407
12409
i1e410

12403

15382

12409

002

000
063243
007
063332
002
063635
000
064062
on3
0636L~

s]als]
000
nou
000

000

065120
065122

000007
000

000

065126

007

000

002

000

065124

063243

12411

065130

063332

12413
12414
12415

065134
065136
065140

063715
000
063743

065144
065146
065150

064010
000
064025
063

000

065154
065156

000005
000

000

12412

12416

12417
12418
12418

ig:g?
12422
12423

124249
12425
12426

065132

065142

065152

003

065160
065162
065164

063243
007
063332

065170

063715

ig:gé

065174

065176

063743

12433
12434

12436

12427

le428

12429

12430

12435

12437

12438

065166

003

000

065200
065202

000004
000

000

065206

000

003

000

065210
065212

063715

063743

3
0,0

_WORD

DHIC!

"WORD

DAIG2

2,0

.WORD

7?7

.BYTE
.WORD
.BYTE
_WORD
'BYTE
.WORD
.BYTE
.WORD
.BYTE
.WORD
.BYTE
-WORD

DHEOD6

.WORD
'BYTE

7?7
0,0

3,0

DAiOI
7,0

.WORD
.BYTE
"WORD

DH6OM
0,0
DAHBOY41

2,0

3,0

.WORD
BYTE
.WORD

DHBOS
0,0
DH60S1

.WORD
'BYTE

&
0,0

.BYTE

3,0

_WORD
BYTE
_WORD

DA101
7,0
DA102

_WORD

DHBOM

BYTE
.BYTE

"WORD
.BYTE
DFIl:

0,0

DAlO2

.BYTE

OF10:

0,0
DAiOI
7,0
DA102
2,0
DHBO!
0,0
DHBOG
3,0
DHEO2

CWORD
.BYTE

.WORD
.8YTE

2,0
0,0

DHBOH41
3,0

Y
0,0

"WORD

DHBOM

"WORD

DAHBOH41

'BYTE
'BYTE

KO3

12:02

PAGE 244

7,0

.BYTE

000

.WORD
.BYTE

.WORD

000

065204

DF07:

000

10,0

.BYTE

000

002

065172

DFOS:

000

003

.BYTE

.8YTE

000

0eSlie

DFO4:

000

064062

10-JAN-78
MACY1l 30R(1052)
TRAP TABLE

0,0
3,0

;OPI, HVRC

SEQ 0243

CZRBNDO RKSII 06 SS VERIF 2
10-JAN-78 10:05
CZRBEND.P

0
oes3ee

0oo

2,0

000

£0
- Te
o
oo
o
£

DH102

DH200
0

DA201

000

DF13:

000

O
O
[+ AN =Y

000
000

=]
v

000
000
000
000

coo

0G0
000
000

000

—

[=]
n

000

DF1S:

;AND 2ND LEVEL HERDER
i VRC ERROR

;FORMAT FOR 2ND LEVEL ERROR

DF1Y4:

o
-

000

;FORMAT FOR 2ND LEVEL ERROR

IN HEADER COMPARE ERROR

—

000

[

000

DU"OU‘DSD’-‘D'—O
@]
[m]
o
)

000

O
P

000011
0oo
Cb3243
00?7
063332
00e
oe31e3
000
063435
007
063524
002
0e4507
000

7,0

0
O

063243
87874
063332
0]814
063635
000
064062
003
064446
ooo

co0

O
-~

065330
065332

000806

0,0

DH101

0O
n

065300
065302
065304
065306
065310
065312
065314
065316
065320
065322
065324
065326

. WORD
.BYTE

o
W

065276

000006
000
063243
00?7
063332
002
063635
goo
064062
003
DB4446
ooo

DFl2:

065250

000

PAGE 245

DH701

X-

06524y
065246

000006
000
063243
00?7
063332
002
063123
000
063435
00?7
064410
oo

.WORD
.BYTE

000

OOWOOONHONDOoO O

064130
000

OO0 NOOONONOO=
O0WOODNONDO 0O
X > I X X I [T I- I I~ I oo nNonNoORO—-0O—0
oo
o—-0O—-0

gesely
0es216

LO3

12:02

309(1052)
10-JAN-78
TABLE

12439
12440
12441
12442
12443
1244y
12445

MACY1l

:IN OPERATION INCOMPLETE ERROR

SEQ J244

CZRENDO RKb11/06 SS VERIF 2
CZRBND .P11
10-JAN-78 10:0S

1249%

geees

65370
065372

308
Ges

065402
065404

065414

000
063435

065436

06544
bS4Y

BSHYY
065446
065450
065452

%
it

s Pt (ot Bt e o Pt Bt Pt Bt Pt e B Pt &
e Bt Pt Pt
et Bt Bt Bt et et Bt Bt Bt ot Pt Pt ot ot ot Bt Pt Bt

00006§

06324
007
063332

— Pt Pt pa

nn VMNP
TN M NIV
TNV
N L NIV PN
an n
g
ninoin
£ L£
S WWWwWw w wWnnmng TUNINUNU)
> 0o pe P bt 0t s st pe P
L) v
OovoNTN LW - owm-~orNL
a°
WOV
NOC NI WN—-O

12509

063171
000
063541
010

os5462

065464

063125

007
063524
002
064446
000
063171
00
083541
010

000QQS
000
063243
607
063332
002
064374
000
064217
002

065472

000002
000
063373
002

06S474
065476
065500
065502

000002
000
064025
003

065504
065506

000006
000
063072
000
063243
007

0es5s510

063332

065526
065530

00
0634i.
000
063373

MACY11l

30R(1052)
10-JAN-78
TRAP TABLE

000

DHSO1
0,0

000

10,0

oco

OH203
DF16:

DHIO!

7,0

000

DHiO2

Shgoo

000

0,0

000

DA201
7.0

000

DH202
2,0

000

DHS02
0,0

000

DHSO1
0,0

000

DH203
10,0

000

DF17:

000
0oo
aoo

000
000

DFe0:

000

DFel:

000

0ooo
000

000
Coo

coc

blo

DFee:

MO3

12:02

PAGE 246

SEQ 0245

065610
06Skle
065614
065616

065620
06S6ke2
geseeH
065626
065630
065632

065634
065636
065E40
065642
065644
065646

065656

00000S
000
063243
097
063332
002
oe4277
000
064257
0oo4

000005
000
063243
007
063332
goe
064313
000
064356
003

000

000
000
000

000

o
(=]
(=]

DF31:

000
000

DF30:

000

000
000

000

:READ/WRITE DATA BUF (AT LEAST Sia2(C.

:
RWBUF

065660

065660
0eS666
06eS674

D\JOBOU—OHD
0
=
o

065606

DFe7:

000

005015
020040
025052

020040
020040
020052

020040
020040
047516

000005
000
063243
0oz
063332
302
064233
000
oe421?
00e

000

065564
065566
065570
065572

DFeb:

00GC

000002
0o2
063541
010

- WORD
.BYTE

065554
065556
065560
065562

DFes:

NOTMSG:

—

ooo

000000
007

.WORD
.BYTE

0e5550
065552

DFeY:

000

[

000001
00e

=00l
0o

065544
065546

(=]

0oo

001

.WORD
.BYTE
.WORD
.8YTE

POOONONOOoOT
- XI- I~ -

065540
065542

DF23:

000

000002
000
064564

—Onul

065534

065536

.BYTE

SEQ J246

PRARGE 247

D\NDBC»-thj
(=)
o

5t Pt ot Pt st Pt Pt
e b P
—

oco

£000NODNOOT
- - - po)
ONONO—-O—0O
Q
o
o
(=
£
wn
n

m
W

577
578

oce

WOOOoNNONOON
o - - p

@®

o
[N

565

nrung RN
oo oo oo unnninn
000 oo
0
@®
onLs wn

e Pt Prn Pt Pt Pt Pt Pt [t Pt Pt P

ot Pt et Pt s Pt ot Pt Pt Pt Pt Pt Pt Pt P Pt Pt Pt ot Pt P

Pt Pt Pt Pt Pt Pocn Pt P

NNNNNNNNN&NI’UN oY NNNNNNNNNN&NNNNNTUNNNN
mmmmmmmmm

553

065532

MACY11 309(1052)
TRAP TARBLE

ox- O
oo
[N

CZRENDO TK&II/OB SS VERIF 2
10-JAN-78 1C:05
CZREND.P

NO3

12:02

10-JAN-78

.ASCII

(1S

<le>rs

xx¥ NOTE ¥x¥x/<]1S><(12>«¢<1l2>

WORDS>

CZRENDO RKE11-06 SS VERIF 2
10-JAN-7 8 10:0S
CZReND.P1 1

e
et P
Pt B
e Pt P
s et
Pt Pt Bt P

RNV
oo
oo
U 0=t 9t pms e Pt Bt Pt B e pe ()
-0V
L W0

065702

o42524
00S01S
101

025040
12

Q44522
047524
o4es24
o46440
040s10
00501S
061
030062

0sel17

10-JAN-78
30A(10Se2)
TRAP TABLE

BO4

12:02

PAGE 248

02s0se

042040
020123
02010S
04210S
0c0ley
035040

.RASCII

7/ALL DRIVES TO BE TESTED MUST HAVE :/<1S><d12><1a>

02010l
D20i2e
041505

.ASCII

71.

A 20 OR 22 SECTOR FORMATTED CARTRIDGE/<15>¢<12>

o43504

006505

020056
020123
046101

042510
040515
0S4514
042504

.RSCI1

/2.

HERDS MANUALLY LORDED/<¢15><12>

042504
020104
0S1440
o4asey

.ASCII

/3.

DESIRED PORT SELECTED/<¢15><12>

.ASCII

/4.

WRITE LOCK DISABLED/<¢15><¢1a>

o4esl14

0s1127
047514
0S1511
006504

020056
020105
020131
020124

051104
Q4esee
g44S1Y
047117

.RSCII

/S.

DRIVE RERDY LIGHT ON/<15><12><la>

.RSCII

12>
/DRIVES NOT TO BE TESTED MUST HAVE BOTH/¢15>

006510

Q42526
020124
020105
042105
Qa0l24
041040
pl1e

0405i?7

oee24M4

MARCY1l

SEQ U2w?

CZRENDO RKbB11-06 SS VERIF @
10-JAN-78 10:08
CZREND. P11l

120
042040
04eSi4
006456

0S1117
02650S
052103
00s012

051524
042523
042105
000

066277

01S
1124

o44412

0S1516
o44S2y4
047506
047111

=L L= N0
N0~ — OO0
LONNO IO
W NN~ OUNVUY—

7117

30A(10Se )
10-JRAN-78
TRAP TR BLE

HLPFIL:

CcO4

12:02

PAGE 249

SEQ J248

.ASCIZ

/PORTS DE-SELECTED. /<1S><12> 12>

.RSCII

15> <¢12>/INSTRUCTIONS FOR USING RKO6-RKO7 HEAD ALIGNMENT ARID

.RSCII

e T 222222322 3222222222222
ITTITLZIZTSTIL L
VASL-IXS )

.RSCII

/MOUNT AN RKOG& ALIGNMENT CRRTRIDGE ON THE DESIRED /<15 «<l12>

.RSCII

/DRIVE, AND INSURE THAT THE DRIVE IS WRITE-LOCKED. /<15>¢12>

.ASCII

/CONNECT THE ALIGNMENT INDICATOR TO THE DESIRED DRIVE,/<1S><l12>

.ASCII

/VIA THE HEAD ALIGNMENT CABLE ONLY,

:/<¢1S><12>

e Pt Pe P

s ot

R
S\JU‘U‘U‘U‘U‘U‘U‘ £
~88BSRRLDS

UMY == MY+

0662S1
066256
0e62eY

066272

s B Pt Bt Pt Pt Bt Bt Pt Pt Pt s et P

MACY11l

0S3111

nn
~N
=]
W

Pt s

12704
06E7 36

041101

O44S1Y
052116
042514

047440

AND CYCLE UP THE/<(1S><12>

CZRENDO RK&11-06 SS VERIF 2
CZRBND.PL1
10-JAN-78 10:0S

TRAP

gle
Q42526
Q42524

67%6

DO4

12:02

PAGE 250

SEQ 0248

TABLE

.RSCII

/DRIVE.

ARFTER MOUNTING THE PACK ON THE DRIVE,

/<¢15><12>

.RSCII

/THE OPERATOR SHOULD WARIT 30 MINUTES FOR THE DRIVE/<¢15><l2>

.RSCII

/TEMPERATURE TO STABILIZE,

.RSCII

ZALIGNMENT. /<18y (12> <le»

.ARSCII

/RESPOND TO ALL REQUESTS FOR PARRAMETERS.,

.RASCII

/THE DESIRED PARAMETER VALUE

.RSCII

/THERE ARE TWO MODES OF OPERATION

BEFORE PROCEEDING WITH /<15 <12

BY ENTERING /<15><12>

006440

(NO <CR>

NEEDED).-/<¢15><12>

Q42040
g42105S
0
n
~N
=]
—O00OWUnN—
L
NI
O UY

067416
067424
0B7432

ONO N0 LONN—NWOO L0

0475

Q43S11

OO 0

e bebe

'—-IlflU‘O‘b—(flDU\INN’-mb—DH’—U‘NNU’”—DU‘V\Ja

22ZR2ZZRAR
N
O
== OO
== O Uttt O
s b :g'—u-c‘
Ut p—

£
~N

ORARFEERE
[1]=]
rrrtera st
n
(=} o-—m.u:;
n RAReS 288
Fowo

870

IRAREZREE
LO——WRon

f\U}NNNNNNNN!UNNN

NN NNNNNNNNNNY
nn m.—.—.p—.;_._._...._'_.) > OLONOCNTLWN—0O

P
P

10-JAN-78

30R(1052)

2013
(AR il

il B

Pt Pt Prst Pt Pt Pt Pt Prret Pt Pt Pt P

MACY11l

o44524

MANUAL MODE -/<15><12>

ZRBENDO RKBII/DB SS VERIF 2
CZR& D.P11
10-JAN-78 10:0S
12763
12764
12765
12766
12767
12768
12769

067440
067446
06745y
067462
067464
067472

047117
Q40S15
046440
00S015
046101

0S1440
Q44524

MACY11l

30A(1052)
10-JAN-78
TRAP TABLE

EQ4

12:02

PRARGE 251!

SEG 02S0

035040
052516
o4el1?

020040
g4610!
0e010s

047514
04610S
Q47117
0S1104
o40440
o40S0S
020131
047111

0s1527
041505
047440
053111
o42ll6
0s1504
gSeley
0Sese0

.ASCII

/ALLOWS SELECTION OF DRIVES AND HERDS BY TTY INPUT, /(15> 12>

052s01

.ASCII

/AND AUTO MODE ALLOWS DRIVES AND HERDS TO BE SELECTED/<15>«<12>

.ASCII

/BY OFF-ON OPERARTION OF DRIVE PORT SELECT SWITCHES. /<¢1S><12>

0selll
047515
050125
020065
042524
051440
054105
042523

.RSCII

/IN EITHER MODE,

.RSCII

/MAY BE REQUESTED FOR EACH DRIVE.

.ASCII

/ALSO

042510

04104C
05252
¢
02010
5
Q4050
O44E72
005015
Q44440
o441l24
o42117
053040
020131
Q47117
053517
042101

042514

052103

.RSCII

/SELECTION WITHOUT THE UNLOADING AND LORDING OF ~<1S><le>

NNV
OO@@OM@OMOOOMOD@OM
W
)
oNoON LW~ 0
[

Pt 5t Bt Bt et Pt Pt ot Pt pn

042510

UP TO S MINUTES OF SEEK EXERCISES/<15><le>

IN EITHER MODE,

/<(15><12>

R VERIFY OPTION ALLOWS HERD/<15><12>

CZRBENDO RKB11-06 SS VERIF 2

CZRENC.PLL

MACY11 30A(10S2;

10-JAN-78 10:0S

TRAP TABLE

044827

S
1
1
1
7

047125
047111
020104
047111
006440

0
6

041040

041503

0S11eS

020127
052520
Q47117
0O44le4
043S11
ge0le

040S1S
040514
047440
020105
046516
OH?S?;

—

:_\_)N

=
000
~N NN
Q Q0
n

042040

O
~
(o]
W
[
n

0Q704e4
070432
070440
070446
070454

0S2123
046101
047105
026104
020105

12859
1 2860
1 2861

070472
070500
070506

Q42514
0S3505
042526

052103
042040
020123

047040
044522
047111

2865

070536

036040

041536

027076

12867

070547

106

0S1117
020104
046516
051120

044040
046101
(047105
041517

0201

005015

12852
12853
12854
12855
12856

s Pt Pt Pt

0S2123
044505
Q046440
052040
057074
01

070417

12858 070465

1
1
bt

874

/THE DRIVE BY THE PROGRAM, WHICH OTHERWISE OCCURS/<¢15><l2>

020117

070360
070366
070374
070402
070410
070416

12868
12869
iBB?O

.ASCII1

.ASCII /7O ALLOW MANIPULATION OF THE ALIGNMENT TOOL./<15><¢la>

12845
12846
12847
12848
12849
12850

SEQ Q02t!

020?1; Q46101

—

0732

047514
044516
044524
020106
046

1
1
1

PRAGE 252

020le4

070302
070310
070316
070324

12851

12:02

o
N
(o]
n

&
mmm
OO
S wwwgwuw
NN LWN—~OO
R WL VR

Pt om Bt Pt Pt Pome
s Pt P

JACTANIAVIAV
A VIRV IAV IV a0 gV T B gt Ig o 140]
8] 0000 00 (D D 00 0 O (0 00 00 D M

s Pt Pt

10-JAN-78

FOu4

124

051101
Q44124
042117
050131
037132

020124
05110S
026105
020105
006456

042522

.ASCII

/TO RESTART EITHER MODE,

020117

042522

.ASCII

/70 RESTART ALIGNMENT RID,

051101
0O43S11
O0f0l24
052040
057074

020124
046516
0O44S01
050131
037122

le4 080?1; 042523

070SS4
070562
070570

(0O40S0S
043511
020124

070620

046105

TYPE <«t2>./¢1S><12>

TYPE <(tR>./<¢15> <12

.ASCII1 TO SELECT NEW DRIVES IN MANUAL MODE, TYPE <tC>.
/(15> ¢12><1a>

.ASCII

/FOR HEAD ALIGNMENT PROCEDURE,

REFER TO FIELD /¢1S><c12>

CZRENDO RKB11-06 SS VERIF 2
CZREND .P11
10-JAN-78 10:05

070626
070634
070642
070650
070656
070664
070672
070700
070706

o4aseH
OS4117
033060

026101

046440
027114

oooo01l

MACY1l

30AR{10%2)
10-JAN-78
TRAP TABLE

.RSCIZ

g41040
gyssee
052067
030113
O4lleH
0S110S
0S1447
040525
0oo

.END

GO4

12:02

/TEST BOX

PRGE 253

(RKO6-07TA,

SEQ 0ese
RKOB-07TB)

OPERATOR'S MANUAL.
< 15> 12,

CZRENDO RKb11-06 SS VERIF 2
10-JAN-78 10:05
CZRBENG.PI1I
ABRSE
RBORT

=
=

177440
000200
000000

30A(1052)

2348

2389
3461

7448

9749

10-JAN-78

4800
3466

9549

O T LI L
O LT T

D
o
o
} o
£

T LI

T IO LRI [ ]

3cS1!
2363

L T

2330

49694

3685

36924

76014

Al«YDER=

APRSS =
APRIOR=
APTCSU=
APTENV=
APTPAS
APTSIZ=

000200

11734#
11067
62834
6332

HO4

12:02
PAGE 255
CROSS REFERENCE TABLE -~ USER 5YMBOLS

MACY1l

9176

9737

11813

11690

117314

11732%

9574

9662

SEG 02S3

9672

8677

9682

3687

96935

9701

104

CZRENDO RKbB11-06 SS VERIF 2
CZR6END.P11
10-JAN-78 10:0S

MACY1l 30R(10S2)
10-JAN-78
12:02 PRAGE 256
CROSS REFERENCE TARBLE -- USER SYMBOLS

APTSPO= 000100
ASKDRV
025016
ASKHED
025442

1169¢
bYbR
6527

RSKMDE

016020

ASKMOD

024724

ASKTST

015250

ASKTMD

015254

ASKTYP
ASTART

ASWREG=
ASasPe
RATESTN=
AUNIT =
AUSWR =
AUTAL
RUTALN
RUTEX
AUTEXR

AUTO

AUTODR
AUTOEX

024620
024134
000000
060370
000000
CO00Q0
020000
02626k
0l27S2
027520
013066

026144
013176
013157

RUTOFG

003150

ARUTVRF
013010
AVECT1= 120210
AVECT2= 000000

R.ABNL

003046

A.CONT

003050

A.NORM
BADDRV

11069
64208
649398

51378
se7?7
63988

S019s
4935

6367
2el9

8IT0

= 000001

BITOO
BITOl
81702
BITO3
BIT04
BITOS
BITO6
BIT07?
81708
BIT0S
BIT1

=
=
=
=
=
=
=
=
=
=
=

00000l
000002
000004
000010
000020
000040
000100
000200
000400
001000
000002

Sle4
7955

5189

5174

5199

5213

5224

5233

5028

S0s2

5060

5066

so8e

5093

5102

5127

bbe4s

B74S

6768

68B4S

6886

6373
6292

63768

6890%
6891

b629
b824#
6827

5249

s268

66Y4S

6813

6816

6819

6835

6909

6924

36898

4748%

633b%

B418¥

6597%

7462

7478

7488

7511

2387

4799

7375%

7455#%

7459%

7550%

75544

849S#*

7481%

7482

7490*

7491

7492

7519#

46378
22558
2348

6627
2348
2388

8791%

B8808x

B8817%

5609%

66S7*

6726%

684Bx

£BB1#

bBl72®
93??!

6233
6381

7376
7464%

9438%
7465%

3694x
74bb

10639
7480%

B404

8627

3080

3088

9639

9742

35838
35848

6460

042436
046166

5398

S144
5326

65968

BRIA

BOSRCK
BGNRTY

6583

5023

S0iGs

46598
46568

Yo4ss

025300
000400
001000
041364
011211

6513

6410

BADSEC= 001000
025306

6481
6546
S149

S022

236
11902
2352
2355
2362
6617

35828
;géSl

BRIFLU
BR16
=
BR17?
=
BDSCHD
BDSECT

b4le

2348
9223
2348
2348
2348
6610
4632s
6613
Y6468

003044
007522

BRAD632
013202
BAI
= 000020

5143
5303

11733
6466
6539

SEG 0es4

Sb0b*

10645

9437%

466l8
32618

7516
10804

e4e8
32374
32384
8791
44648

6430

64618
gg8acs

8402
9361

8808
BB40
8625
3704

90708
9710

3638
9735

8295

8310

8349

8366

8119
11523

11654

2l47s
21378
21368
21358
cl34s
21338
2l3es
2i131s
21308
clegs
clees
2lybs

b463s

3234

2147
2146
2145
2144
2143
2i4e
2141
2140
2139
2138
3252

3251

3279

3277

3448

9693%

Q706%

9708*

10835

7177

8420

s8462

8567

3591

3683
8582

4885

8613

497y
8649

8693

3532

3684

4240

5583

5634

8537

3324

3299

3447

7994

3320

8278
10919

Ja4

12:02__PRGE 257
10-JAN-78
CROSS REFERENCE TRBLE -- USER SYMBOLS

SEQ 0255

MACY1l

30A(10Se)

BIT10 = 002000

3239

3268

3290

3325

3339

3352

3601

4a49

93S3

BITI11 = 004000
8ITle = 010000

3240
3a4e

3269
3270

3291
3232

3310
3327

3326
3341

3340
3354

3461
3462

4250
4esli

11661
923S

3293
8378
3234
3273

3311
8574
3312
3295

3463

7355

7357

4252

3464

3602
5210

11636

CZRENDO RKE11-06 SS VERIF 2
10-JAN-78 10:05
CZREND.P11

BIT13 = 020000
BITIY = 040000
81715 = 100000

7885

= 000004
= 000010
= 000020

3e81
3e8e
3283

3301
3302
3303

3595

3687

4243

BITS

= 000040

3305

3452

3596

Y24y

BITe

000100

3598

4245

000200

3378

3455

4246

BITE

= 000400

3306
6568
3307
5623
3288

34583

BIT?

3284
10716
3285
6254
3286
S472
3287

3379

3456

3599

BIT9

= 001000

3289

3324

3600

4248

c478

10069
3002
8790
8871

10235
9632
8838
9076

5103
S304
7768%

S106
5330
7773%

BKSLSH
BLOEXH
BPTVEC=
SE__
=
BSERR =
BSFACT
BSSOFT
BUFFO

013303
047026
000014
000200
000002
004224
003224
00S264

8.BA16=
B.BAR17=
8.CDT_=
B.CFMT=
CART
CCLR
=
CDT
=
CERR
=
CFMT
=
CHGYST
CHKDRV
CHKITR
CHKLST
CHKPRM

000001
000002
000004
000020
Olll42
100000
002000
100000
0100040
(015472
033252
033740
015176
035040

CKMEM2

040066

CKMEM]

CKMO
CLERR =
CLR_
=
CLRPRM

0O400S4

040074
00010S
000040
032410

4878

6215

4339

6392

e8oes

8780

10761
10107
10211
5074

10818
10166
10761

5893
984 %

5934

75484

NN
D W—
0
- nano
NNOWn

BITe
BIT3
BIT4

108e8s

10917

CZRENDO RK611/06 SS VERIF 2

CZREND.P11

10-JAN-78 10:05

KO4

12:02__PAGE 258
CROSS REFERENCE TRBLE -- USER SYMBOLS

MACY11l 30A(10S2)
97493

10-JAN-78

SEQ 0256

3368

9726
7722
7740
7728

10069

10235

3156

9754

10471

CYyL

CYLLST
CYLNDR

005504

5579

5671

8673

Bi4lx

6I42

6561

6896

C.INIT
C.RTRN

052604
0s4456

10848

10855

10859

10876

10898

10803

10913

10822

1093S

C.SPEC

053476

10068

10235

10471

5100

5125

2581
2485
ebll
2857

2851
2491
2719
12353#

2887
2497
2785

123394
2503
2731

2503
2737

2515
2743

2521
2749

2527
2755

2e47

2653

2659

ledyau

0
064754

123684

065010

123924

cbes
124554
065330

124818

2635

24l

8147%

8l4B*

CZRBENDO RK611-06 SS VERIF 2
CZRBEND.P11
10-JAN-78 10:08
065374
06S440
065464
065474
065504
065534

2683
2707
2875
2785
288l
2791

LO4

MACY11 30A(10S2)
10-JAN-78
12:02_ PAGE 259
CROSS REFERENCE TABLE -- USER SYMBO.S
12500%
12519
12530
12535s
12540#
2797

2803

12553

8338%

B8392%

B860Obx*

7161%
7204%

125808
7205%

12591

ERI3

Seed

ERA

GRE7

12342

12344

DFl6
DF1?
DFe0
DF21
DFa2
DFe3
DF 24

065544

2809

Df 26

065554

2863

125644

2893
899

DFeS

DF2?7

OF 30
DF 31

DHICO

065550

065564

065610
0eS634

063072

2713

2839

063243

DH102

063332

DH103
DH104
DHIOS
DHI06

063350
063373
063110
063413

DH201

063435

DH204
DHS00

0b4410
063140

DHSO02
DHS03
DHB01
DHeO2
DHEO4

064446
064507
063635
063657
063715

DHEOS
DHEOS!
DHEO6
DHEG7
DH701
DH702
DH703
DH704
DH70S
DH706
DH707
DH710
DH711
DHBO0
Ol
=
ODISPLA

064010
064025
064062
064110
064130
064217
064233
064257
064277
064313
064326
064356
0B4374
064564
040000
001142

DHe00
DH202
DH203

BDHS501

CHEO41
DHB0Y2

12569

2411
EHB;

2417
EH;S

2753

2759

ge7

DH10!

125584

2837

12159%

9239

12180#

8250

12190%

063123

2873
12197%
9237
122008
121648

12193%
12532
121628
12548
7 46

063524
063541

122148
122178

063171

121728

063743
063772

12502
12504

12521

12523

122048

.. .48

122988
12167%

12452
12350

12363
12365

12378

123038
123098
122288
122328
122388

12465
12493
12398
12402
12413

2783
lecSes
120578
1206148
8337%
28t
12277
7le2%
122848
122878
7204
122938
12296%
123178
32448
22868

122498
12419
12400

8341
et07

122428
122468

B8391%

12274%
12575
122818
12586
12597
12289
12599
12525
12555
10255

4732%

2423
esgé

2765

12542

12544

12546

B8632%

12561

2435
Eglg

2441
2269

2447
252s

2453
2531

2459
253;

2465
2543

2813

2819

2825

2831

2837

2849

12355

12370

12387

12394

12409

12357

12372

12389

12396

12411

12506

2429
220;

2771
12571

12573

12582
12584

%:B7

12593
12595

H/he

12550

12359

12374

12448

12487

12380
12382

12491
12497

12510
12516

12566

1236l

12495

12376

12450

12489

iesle

12461

12474

12428

12435

12430

12437

12417
12537
12404

12463

12476

Bb31x¥

122648

12439

6320%

£328%

11500%

B860S*

12527

12508

12514

12478

12415

12577

12588

10927
4740*

SEQ 0e57

11674#%

a471
2543

2477
2552

2483
2521

le4e4

12444

12457

12470

12483

12426

12446

12459

12472

12485

2855

2885

2891

-y

CZRENDO RK611-06 SS VERIF 2
CZREND.P11
10-JAN-78 10:05
DISPRE
D

000174

c2l0s
32738

MO4

10-JAN-78
_12:02_
PAGE 260
CROSS REFERENCE TRBLE -- USER SYMBOLS

MACY11 30R(1052)
4740

6328
10063
6020

%
B731

8738
10841

9576
6016%
10058

10183
6031

10229

10469

S117%

9129

Q175%

S422%
6660
6888
7557

014434

DRVUSE= 000001
DRY
DR.CLR=

nuwnnn

mmEO
D3

DR.SEL=
DS

DTYE
DTYLST
DTYHMSG
1255
DT100 r*CEH&lD
P

Q771%

6114
6727%
7383

Se14
6582
6908
7623
9707

se82
6587
6915
7635
9753

S205%

9715%

4963*%

4975k

8276

4871

4872
5325

Y
S

10360
10602

10474
10609

10616

6213

6388%

B£392%

434

bbbl

6851

2436
e51i4

2520

2448

2454
2532

2460
2538

2466
2544

DRVDSC= 000040
003130
000020
005610
DRVLST

DRVTST

q768%

37
12322

DRVCAL

026344

x
9431

7582

DRPDRV=

DRVLUP

9317#%

SEQ 02S8

g021

el12

6152

5048

5065

8092

2472
2550

2478
2556

e lsh]
a2s5e2

10802
10471

2442

2526

CZRENDO RKB11-06 SS VERIF 2

C%REND.PII
DT102

/ID-JQN-78 10:05

064626

DT201

064720
0Ob4B3R

DTe0l

064674

DULACS

003135

DT103

2568
2658
2754

2892
12325

2874

12326%

2784

MACY11 30R(10S2)

1u-JAN-78

CROSS REFERENCE TABLE -- USER SYMBOLS
2580
2670
2766

2598
2676
2772

2604
2682
el

2610
2688
2820

2ble
2706
a28ee

2790

2796

2802

2808

2868

12333

4693%

4702%

476S

4933

7669

6490

€574
cbb4
2760

2888

12322

12334#
M47&7

DUNPRS (023754
007036
DZR6N
ECCNC = 000040

5425
42548
4244e

62538
4758
9bM49

6339

030616

;853

5200

522S

Y1l

6461

EMTVEC= 000030

21578

4715%

4716*

6303

B304*

060553
062713

2458
2848

ECOBRD
EMI
EMIO
EMIOC
EMI01
EMI02
EMIO3
EMIOY
EMIOS
EMIOB
EMI07
EMIL
EMI10

EMIL]

064702
010410

2410
2452
2800
2806
e8le
2818
2824
2830
2836
e84e

11903#
11924#
120978
121018
12109
12115
121194
le2iz2s
12127«
121328

062746

28SY4

121438

061021
060432

eS4e
e4ee

060375
060S4Y
062347
062372
062450
062514
0ObeSk4e
062564
062615
062650

EMll2
EMI13
EMIIY
EMILS
EMi2
EMI3
EMLY
EMIS
EMIE
EM1?7
EM2
EM20
EM21
EMee
EME3
EMeY
EM2S
EM26

062767
063013
063041
063056
060566
060600
060611
060631
060645
060656
060414
060673
060706
060722
060735
060752
060770
061007

EM30
EM31

061037
0e10e0

EM27
EM3

36728

2860
2884
2890
289
e4bY
e470
2476
2482
2488
2494
2416
2500
2506
2512
2518
e5e4
2530
2536
2548
2554

SEQ 0259
a26bee
2718
2832

c2bet
a7eM
838

eb34
2730
2850

2640
2736
2856

2646
2742
2880

2652
2748
2886

6589

6618

6653

6844

6910

70118

123374

e7le
43928

DTe02
DURCES

NO4

12:02 PRGE 261

119264
121,84

12146#
12150
121544
12157
11928%
11930%
11932#
11935s
11938#
11940#
11906%
11943
11945
11947
11949
11952#
11955
11958+
11960#
2901

2668
2674

11909
11963
119664

6526

MACY1ll

BOS

30R(10S2)
10-JAN-78
12:02__PAGE 2b2
CROSS REFERENCE TARBLE -- USER SYMBO.S

SEQ 0260

] =«
[ 2

119748

12018

St P

et Pt P Pt Pt Pt Pt Pt Pt Pt Pt

Pt P

UMY == PO NI N 0= N N 0 5t det hus oot s L) 00 Bs
NOOOVCOOVLOOVDDODOMD
= WM
= 0= —— OO D O
DD ININ0
oO—0—Oo L—norruoon NGO

CZRENDO RKbB11-06 SS VERIF 2
CZRBEND.PL1
10-JAN-78 10:0S

%
12034
120404
%
12044
12048%
12052

12058+

12094
5138

7171s

7217

6363%

7648%

6601

ERRCNT

%
4847

ERRCOM
ERRFRE
ERRHDL

Q370%

ER2ENT
EXPLAN

o44220
010234

040000

917Ss

9716»

%
9724

9430

6881

6932

7378

8824

4741%

Y751%
7198%
11760%

6317
7199*
1 1765*

8749
11802#%

10341

10365

10300

[Ve)
£

11755
3629

11647%
9604

4750%
195
11756
9713

4730%
7184%

9694

9180

6726

—

ERRLMT
003127
ERRVEC= 000004

12322
7376

9178%

7172

7173
11641

CZRENDO RKB11-06 SS VERIF 2

CZREND.PLL
E.CONT

10-JAN-78 10:0S

00335e

E.DLT =
E.DPRR=
E.ILLD=
E.MDS =
E.NORT=
E.SCLR=

000400
002000
000100
6 0000
000002
000040

E.URATT= 000004

3585

10073%

3603¢

10032

10462

35928
35968

1026
10932

10268

a:&g:

lgégfl

Aéégfl

38064

DQSSBS

3533:

036072

10911

3593

FINRDR

9324

10146%

10911%

3594#

20008

9320

10136%

10857%
10217
10146

35988

10-JAN-78

12:02_

PAGE 263

SEQ 026l

CROSS REFERENCE TRBLE -- USER SYMBOLS

10623%
35998
36018

E.UDART= 000010

Ehg¥bg=

MACY1l 30A(1052)

CaS

9328

10217%

10919%

9335

10239%

10932#%

39339

9343

9347

93S0

10262%

10268%

10300*%

10341

8705

10365%

9353

10410*

10462%

9360*

1003S#

10073

10239

flg

sc87

10274

10349

10359

6000

6083

6350

8702

g4ay

8430

8622
8623

8657

8659

8431

8624

8653

8655

8660

5679

8805
8703

8910

984S

FINSEC 80é§91

g?H ]

82385

8401

8428

FMTE
= 000020
FNOXDP
031770

32838
5734

9538
c8ll

10471
5839

480*
gH
1%
5586

72784

8
ggq;!
6001

4
gggfl
8704

9
E%So

7385
5588

8030
5674

8231
Se83*

8785
Se87%

GIVEID 024512
GNS
= »xxxxx U

6352s
2209

6404
11888

42k
11889

6478
118390

6508
1189l

6578
11892

6608
11895

6652
11896

6832
11897

6904
11898

7741
B3B8l

8513

10191%
10884%
6803%
6800
6804

10881%
10887%

S37ix%

7825%

7828%

7981

7936

8001

8008

8509

8801

97228

9750

B4S2*

b6670%

6£858%
B66B0*

£869%
6853*

FINTRK

005570

F8§:5$ Ollqgé
FS
88%%06
FT
00S664
GO
=
GTPKRAD
GTPRMS
GISWRG
GT0
HCRC
=
HDALI
HDR.AD
HDOR.CT
HERDNO
HEDPOS
HEDSEL
HIERAD=

000001
046702
042134
031126
Q42146
000400
005532
003070
003072
012704
012510

HLPFIL
HLPOVL

3744s

qqgg.L
g38088
c4s

B8249%

63%5 ¥*
475#%
5170

83399
8400

177742

32348
9655
8978¢
4785
8974
32874
3734
36258
36268
4248
46028
46238
22018

10187
10195%
6537
6534
6538
7202

066277
003145

6374
36818

126568
4757%

6365

fiblgoc 807?82
HOLD
058844

2333.%
SHY1x

850? *
gqégi

5 ]
gqgé

000011

20608

11082

11123

000004
00307S

Ye4yls
36294

9607

9735

HIGOCT
HLTPRG

HOLDY
HVRC

012677

005472

(046150

020046

= 000400

HVRCER=
H.HERD

IDRE
= 002000
IDENT
011385

37188

4910

S44y2x

3c88s

32908
44918

7435
9666
9010
71108
8977

8620

10857

8397

ngll

S291%

7164

S4S4Yx
5697

9561
6364

10484+

10823

82218

g%ngYh

9356

7437
3855

7213

S47]

8822

8426

8432

4Y40%
gSOSI

B4S3 *
b44lx

6668%
BNOLx

9605

10069

10235

SS03%

b442*

679%
b69*

10471

8661

668Bl1%

6B60¥

B151
6870%

BB71¥

DOS

CZRBENDO RKB11-06 SS VERIF 2
10-JAN-78 10:05
CZREND.PL1

§tg

32358

= 000100

3277:

= 088805

§H1022
INCRMA
041646
INCRSC

3598
8835

032310

4923

71308

031160

INITHM

INITSS

73768

4336

016014

INPUTP

37308

005522

INTCHR
INTG

026430

INTR

= 000300

= 000100

003101

INTMSK

6740

7431

7472

7570

5859

5951

87564

5484

5542

5751

5808

5896

5997

6080

6125

6463

6598

6825

5047

5050

5192

5194

5197

5217

5219

6503
6830
8481

5222

6564
6833
8485

S421%

6573
6836
g8432»

S496%

6386

10266

10298

10339

10350

10363

10634%

10638%

10642%

10610

10617

5037

S045

51368

8503

ig;%g

6702

10134

10155

10180
6302

4714

6301*

051166
(050516
051552
0S2204
052226
003102

10286
10046
10124
6226
7446
3388

10292
10080
10179
10117
10121
6190

10310
10223s
10405%
105528
10173
10691

10319

10477

10837

10556%
10632

10826

10055

10108

10120

10253

1.ERRC
I.HDAL

047726
050164

.
83389:
%'%E;f
1.1550 051634
ggigg:
.
%'é?gu

1.STAT

052310

1.STOR
1.UNLD
KBOHMDL
KILLDR

052056
051434
030436
000170

KIPARI=
KIPAR2=
KIPAR3=
KIPAR4=
KIPARS=

172342
172344
172346
172350
172352

KIPAR?=
KIPDRO=
KIPDR1=
KIPDR2=
KIPDR3=

172356
172300
172302
172304
172306

KIPARD= 172340

KIPARG= 172354

KIPDR4=
KIPDRS=

172310
172312

10101

10122%
10185

10164s

325& [ 18833
10002
10152
{883; {88?8
10206
10203
10338

10129

10457
10276
4768
22158

21888
21898
21908
2191
21928
21938

S5194s

21958
2177
21788
21798
21808

21814
2182

10941

8779

66578

10118
101178

10874

8088

4713%

047740
047720

10808

8054

5]SCs

I.ERR
1.ERRA

10767

2453

1I0TVEC= 000020
1.AERR
1.ATTN
1.CCLR
1.CSTS
1.6571
1.0RV

10479

7429

)

Y24
6811
6936 %

32648

10415

7243

5465

6422
ggge
g

9620

8337
7332

685
8903s

6902
2348
60*

3225

95135

10471

6400
gggq
S

Sgg?u

SEQ 0262

gsga

6389
5388
63
11

MACY!! 30R(1052) 10-JAN-78 12:02 PAGE 264
CROSS REFERENCE TRBLE -~ USER SYMBOLS

10343

10334

10507s
103598
6344
7310

6475
6817
7628

6501
6828
7630

10215

10352

10593%
69524
8709

10355
10847

11741

11789

7340%

7358%

8294

6603
6840
8501

6605
6898
8505

10902

10940%
10867%
10713%
4 O416¥ *
%
10045
*
18053.
10603
10596
104478
10361
10337
10295
10281
10148
10139
10133
10125 10130
{888;' 10113
10282
10270
10264
10257
10241
10219

7132

1178S

BY73
g1y
011

10362

10367

10376

8303

B36S*

8373

_
g8377%

8566%

10157
10296

10160
10303

4
10i75
10315

4
10177
10335

BS76*

86l12»

8634

8686%

CZRENDO RKE11-06 SS VERIF 2

CZREND.P11

10-JAN-78 10:05

KIPDRb=
KIPDR?=

172314
172316

2183s
clg4s

LC
LCME

00Sk6e
020036

3807#
S434#

LCVEC
LOMEM]I

003162
08372710

3695
5765

LEV2ER= 000400

42478

LF
=
LKS
LODBUF
LODFLS
LODFPT
LODPL1Y

0000}2
003152
036250
(015536
016550
036034

LOWOCT
LS
LSTCYL

005470
00sS10
020040

oS, S
LSTMEM
007142
LSTTRK= 000002

B44BE
BB73%

BY4SIx
bBS2*

bEEY®
6BB3®*

9434

489

9586

9592

9611

%17

9709

9769

7824%
5548%
S553

7829
5572
5563

7986
5574
6089

7988
5667
B443%

7991
S669
b4SHE

5752

5758

5759

7044*

7045%

830
8713

5831

7030%

B8712x

7278

4793

4317

5081

5264

S5370%
S4B82x
S500%

Yyoe78
42388

7057
7506

8095

37498

8031

5751
8033

6483
4591ls
6486
4s80s

64364
6497
6551
6556

0250086
025672
012453
170202
170200
010446

6407
6489
45978
21988
21978
43978

MAXHI2= 000000

423ls

37478

42298

ole
B0

7029%

64174
6544
e
BS4S
9153
7260
8011

8149

8708*

8782

8711*

42338
423548
4228
4230s
42324

MDFLAG

003116

36578

4692%

4701%

= 001000

32678

7441

10033

1046C

10835

7181

7222

7230

MDS

MEMABT
MEMCSR=
MEMSYS=
MEMVEC=

003144
172100
177744
0CO!14

44308

36798
21998
2202s
36978

7994
Se84%
BY59

7999
S6B88#
6665%

8004
bb676%

6855#

7888

721l
7175
7203
475c%

70S8

8714%¥

5837

S838

919

5920

5927

7282

7284

8029

8030

876b%

B8767%

B768%

8975

9154

DG0000
000001
062031
017500
112160

010730

B6ISH
8707

6530

MRAXHI3=
MAXHI4=
MAXLOl=
MAXLO2=
MAXLO3=

MDFY1S

B67S%
B70S

6865#

8554s

5290%
S476%
S449%

MANURL
MANVR
MANVRF
MAPHOO=
MAPLOO=
MAWRDC

MAXHI1= 000000

6437%
bbbex*

37178
37258
S437%

005574

SEG J263

5553
EY46*

5076%
5259+

MAHILM

PAGE 26S

5552
B43SH®

8269
5071
Sa54
8198

6866%

EQS

12:02

S448s
54998

11123

00S600
025436
012413
025710
012326

543b%
Sy4px

11117

10-JAN-78

CROSS REFERENCE TARBLE -- USER SYMBOLS

c0bls
3691
5940
4919
5083
590S

MR
MANAL
MANALN
MANEX
MANEXR

MACY11l 30R(1052)

47S3#

5545

6355%

7671

8483

MARCY1l

CZR6ENDO RKB11-06 SS VERIF 2
CZRENC.PL1
10-JAN-78 10:05

30A(10S2)

10-JAN-78

FOS

12:02_

SEQ 0264

PAGE 266

CROSS REFERENCE TABLE -- USER SYMBOLS

33248
33178

= 001000

MESMSK= 000017

000007
007000
000003
100000
000760

668

Dt et Pt Pt Pt it Pt Pt P

DRV =
HERD=
I0
=
PAR =
SECT=

G e 1t e e Pt et it Pt n ()
) = ) 0= b= b= bt Pt ps e
@ NODONL
LW
v

62378
8029

SER = 077770

NCYL1

NCyLZ2

00SS1

00SS 14

NED
= 010000
NEDHOL
030360

10048
0

S663
s806
10833

NOFALS
NONEXD
NORTRY
NOTALD
NOTDFT
NOTLOK
NOTMSG
NOTRDY
NOTYPE

011231
011744
003142
010S01
016614
012041
065660
Qll6&le
003146

8848

Y7b4#

10126

10469

10839

6719

6879

6882

6942+

5894
10851

€995
10872

6078
1089

10904

7456#*

10938

7460

7551

7558

GOS

CZRENDC RKB11-06 SS VERIF 2
CZREND.PLI
10-JAN-78 10:0S

MACY11 30AR(1052)
10-JAN-78
12:02
PAGE 267
CROSS REFERENCE TABLE -~ USER SYMBO.S

NTREDY
007547
NULINP
015570
NXDRIV
007533
NXF
= 000004

43178
5069
43148
3281

7483
SOB84s
7467

8;F§ET= 088115
1

35098
]

5603

OFST
= 000004
ONLINE
005526

3301
37328

32938

OCTBIN

(QS4S00

OF Hgg 81134
oPI

= 880680

S1l4

Hqggl

OPIERR=
OPNLST
OR
=
OREQSW=
OVLOOR

000010
016504
000200
000020
007172

424es
5155
3265
36874
4271

PACK
=
PARMDE

000103
010362

32048
43888

0.WRIT

PARMO

003054
002630

7093

7928

10969

6633%

705

6718

B719%

5697 °

8822

9580

10089

1023S

10471

36058

9969

9973%

10083%

10087

10103*

10169%

10182%

10197»

10741+

34948

3649

7378

7649

8967

8980

9692

9761

9812

9846

3814

3815

3817

3823

3825

3829

3830

3832

3841

4760

6341

S5740%
8273

SB817%
8288

5906%
8344

5908%
B83s9

5930

8271

8342

8449

8973

6012
820
6009

6132

10272

10630#

PRTO3
PATO4
PATOS
PATO6
PRT0?
PATOB8
PRATO9
PATIO
PAT11
PAT12
PAT13
PATIY
PATIS

006176
006236
006276
006336
006376
006436
DO6Y476
006536
006576
006636
006676
006736
006776

39468
33684
3930
4Olls
4033%
HOS4#
40768
40984
4120
Yl4cos
4ie4s
41868
4206%

PBSVAL=
CR
=
PCO
=
PCLKF
PCVEC
PFIFTN
PGE
=

001000
004000
010000
003132
003164
Ql0&S7
002000

3457s¢
33264
33274
36698
3696
44238
32688

0Q311¢

S408

5257

42654
42668
33198
37368
38808
3302

PBLKT

10748

9735
5250

3810

006136

Sele

558S

368

9582
524Ss

PART]
007132
PART2
007136
PAT
= 002020
PATk
00SE36
PATO0
006036
PATO1
006076

PAT02

5288

SEJ 02e5

7496
5139

7580

39244

36498

7855

9966

10053

G215
9526

10469

10628

7933%

10079

7939#

10247

10801*

10863*

3845

3853

10880#

CZReNDO Rkb11.0& SS VERIF 2
10-JAN-T8 10:05
CZRBNG.PL1]

005706

PREPAR
PREPKB

031646
030576

PRMBUF
PRMINP

013316
007352
00S734

PRMLIM

SEQ J2&6

PRAGE 268

CROSS REFERENCE TABLE -- USER 3SYMBOLS

23¢hs
21618
36948
3692

59e7%

7244

7e46

8290
Q71 %

2328

g338x

5897
6826

5998
6894
645S0%

6bb3#*
8004
8008*

b447#

B43b#%

7999

7988
7824
7826

005660
006010
005256

PRMLST
PRMNEM
PRMPHO
PRMPLO

HOS

12:02

7991+

79739

8oN1

8 U"*

449

PROFLT

10-JAN-78

-0

PKRB
PKS
PKSB
PLOFST
PMA

000240
003160
003154
003156
00S546
00S604

30A.1082)

159998

314
PIRQ
PIRQVE

MRCY1l

nunununnean

Ay
P
£

790S

3762

9834

199378

9975#

10684

10685#

10305#*

10306

10619%

10827%

013376

10289

3802

8953
*
6027

000010

000024
000042
000046
0o00se
0000Se
000001

10620%

3379
B13cx

7267%

%
7507

8096*

B8533#

8790*

8802#

Se8l#
6177#
6753%

5766
6181*
B757%

S770%
623ex
6774

S846%
6506%
67764

S8S0*
6S1i*
6780%

S94l»
6S516*
6789

10828+

10606%

6569%

Se0S*
6106%
B5S8E*

SE10%
6134%
5689%

oon
Ne—

[ead
D

TVOUVOVVU

DOVTVUVUVULDO

1328

o
3%

105

CZRENDO RKe11-06 SS VERIF ¢
CZREND.P11
10-JAN-78 10:0S

MARCY11 30A(10S2)
10-JAN-78
12:02 PAGE 269
CROSS REFERENCE TRBLE -- USER SYMBO.S

6878%

6£892%

6902%

6907%

H9I4x

738l

7Y43x

74SH4®

7496%

7498%

7S500%

7549%

757Ss

g781%
10754
34728
10213%
1079S#
10869%

9370
10757
6227%
10214
10797%
10871%

970S%
10763
7401
10323»
10798%
10874*

97Sex
10788
7444%
10325%
10808*%
10875

9797%
10795
9383
10552%
108G9
10891

9833%
10814
9501
10555%
10817%
10892%

9836%
10861
9519
10706
10818#%
10894%

10099
10878
9865
10760%#
10820%
10897

10716
10900
9898
10761%
10821
10916%

10720
10909
10120%
10763%
10823%
10917

10732

10742

10748

10172%

10210%

10211#%

8780%

9844®

I84S#

10126
34358
6000#
8094%

10326%
5549%
6109%
B82S0

10SS6#
S559%
6126%
8702%

10739
5563
H171%
B8782%

10804*
sse8%
6561%
8884

10805
5577
6896*
8938%

10816
5579%
7503*%
9372

10835
5587%
7505%
9832#%

7588

P.CS1 = 000016

P.CS1H= 000007

P.CSe = 000020

P.CYLN= 000002
P.DCYL= 000030
P.DRVN= C00000

34398
10210
3473s

3477
3433s

7590%

blblx
10451
5694

8888
b6llb®

7601%

7620%

7622%

6163
10760
6930

H21SH#
10797
9384

H217%
10817
9458

8a34
B1S6%

938S
6170%

9633
6194*#

10714%
S5pex
6157
8707%

7548%

10096

10273

10449

10688

lgggg.

18228

8832

893S

8336

000062
000060

34908
34898

9657
9656

P.QFST= 000006

3438

P.DS

= 000036

P.OTS = 000026

P.EPAT=
P.EPOS=

P.ER__= 000034

P.PRST= 000014

P.SECT= 000004
P. TRCK= 00000S

P.WC

= 000012

P.WCR =
GNEWSW=
G.INIT=
RCDASWK=

000022
000000
040000
000010

RCLREQ@= 004000

RDALHD= 000164
RDCHR = 104406

SEGQ J2k7

34808
*

9391

9511

9515

i0le22%
10123#%

10708

Sb02#

Se613%

10750

10143%
10476%

10150
10628%

10i154%
10703%

102Si*
10740%

34368

5550%

S572

6574x

34798

3443%

10872

5697

6007%

10895

8822

6133%

10904

10S60*

9457

10332»

10561%

9497

3669

10274
10764#

10278%
1076S

9634

9674

8636

9679

10291%
10790

10309%
10796%

10S64#
6770%

3823

9684

9478

10890
5679
7610
10888

B6784%

6849%

738B3%

7430

9858

9853

3888

98934

10319%
10802

10345
10806

9739

10349%
10833

9968*

10081%

10115#

B813*

S669%

SE74*

6002*

bl27%

8092

5565

5569%

5570

5575

S586%

5637

Se676%

5677

6001%

£532%

6£798#

g789%

B8943*

8969

3006

3377

10785

8178
6750%

8180
5B825%

g185%
S829%

8186
S9I4x

ge4l
S918¥

8704*
6003*%

10327%

10557#%

9509

9554

9559

9564

9569

9703

88I4

8885
b128%

8939
6131%

5324

S39%

7079

509!

5141

Sa47

527s

32118

5770

5850

5345

6023

7500

8093

8781

RDHEAD= 000125

3213%

9616
5466

98214
9836

10213

10894

RDY

32368

3699

10771

10824

7454

7549

7622

80SS

9797

10814

8497

9705

10757

BS1b

6569

6576

6581

6586

6789

S46lx
9586

7514

9466x
9532

7647%

8404

8627

8999

9002

RDSTAT= 00014}

= 000200

RECAL = 000113
RECODE

005474

3330
9531

32218

6181

6753

3208%

5681

6506

6022

B17S

7498

37198

9186%
9569%

6224

7588

9433%
9574x

9434
9582%

6776

6511

7448%

9487
3607%

9489
9611

9S04 *
917

8886

B783*
6006*

5064

RDGATE= 100000
ROHDO
046536

10371
108S!

8803

5020

RDOATR= 000121

10359*%
10843*

5667

10878
11895

4927

9660

10866
S673%
7607
10786

5648

8758

;ggg

9576

10792%
10868%*

1086S5%
5671
7604%
10744

10099
7717

034034

9526

10768
10829
10927

BSHls

10839
S643
7602%
10208

322es
6369

ROCHRS

10767%
10824
10926%

B8S3bx

87937

8534%

9504

10841

10333

9476

B8089%

8497%

B796x

S551%

4250%

10330%
6752%

7510%

8183x

5588*

34378

9387

9887
6688%

9566

3386

7509%
1089l
9470

8093%

S580%

8227

3474
3193
34bH
s
36864

10838

985S
6638%

7386%
10882
3468

B80SS*

B787%

g188%
B803S5*
S746%

9484

7385%
10868
9463

7650%

8703

8177

7506%
34428

939¢

7634®

Q509%
9632

9549*
9639

8940x
9373
7508

9375

8097#

771is

7889

6302

6907

6914

9080*

9088*

9176

9SS4x
3642%

9559x
9b4EE

95E4x
F64HIx

CZRENDO RKE11-06 SS VERIF 2
CZREND.PI1L
10-JAN-78 10:05
96r.2%
974e

REDBSF
REFNEM
REISSU

JOS

MACY11l 30R(1052)
10-JAN-78
12:02_ PAGE 270
CROSS REFERENCE TABLE -- USER S5YMBO.S
9663*
q74g9%

Q41120
040750
003137
RELEARS= 000140

5485
6019
36748
3220%

10861

RESREG= 104410

7063
8543
9418

7144
8583
9764

REPSUP

043720

603S

RESVEC= 000010
RETANL
046340
RETNML
046356

ciSls
9437
5701

RKRSOF= 000016
RKBR
= 000004

RKBADR

007400

RKBRS

RKCS1

31838
3184s

42958

003036

18232.

= 000000

31828

B72k
9769

8778
6030
9332

8729

6192

6206

9706
6945

7269
8626
9813
97684%
8826

9677%
9801#%

6ce28

9682%

7152

9687%

7196

9695

%
9701

9703

9709

7446

8341

8607
8206
838S

8799
8253
9081

7323
8694
9847

8020
8769
9906

8078
8874
li24!

g816s
8899
11293

11897

10562

10751+

10776

4796%

4800%

4BIY

4g817%

7377

3534

9619

9638

3751

9782

9962

10031

9620%

9624
10507

10768%

9784

10054
10770

10106
10809%

10164
10821

10214#»
10823

10866#

4815

B740%

7472x

7570%

9595

9599

10406
10897%

1041S%
10906%

104S4%
10916

104SS
10926

10479%
10941#x
104S50#%

10508

10556

10739%

10805#*

10816%

10889*
9622

9623

10188

10189

10180

10614»

10715#

= 000006
= 000024

31858
31928

9787
5477

10209%
s478

10511
9596

10559
9597

1074S%
9538

10787#%
3621

RKDCYL= 000020
RKDS
= 000012

31918
31878

10208%
9699

10S1S
97491

10564
10057

10744%
10s12

10786%
10560

10888%

RKER
RKMR1

= 000014
= 000026

31888
31938

7450
10200%

9792
10279%

10066
10516

10232
10593%

10513
10600%

10561
10607#%

RKPRI

003042

35818

4772

480S*

4824

4g40*

9961

1068S

RKVEC

003040

35808

4770

4819

4B822%

6346

31978
31998

RKMR2 = 000034
RKMR3 = 000036
RKPRT = 000032
RKPOS = 000030

31948
31958
3198#
31968

RKPRTY
RKVADR

43038
42998

007446
007423

RKWC
=
RL
=
RNDRDR
RNDLNG=
RNDSHT=
RUNTST
RWBUF

000002
000010
035666
016514
002734
017224
065660

RWNRDY

012651

R.ABNL
R.CONT

052536
0S25k2

R.NORM
0Se5S0
SAVPAR
003176
SAYPRS
005552
SAVREG= 104407

’

3183s
32608
6140
42378
42368
5175
3749

8101

46198

9374
10036

10486

10112
370e8
3741ls
7024

guye4
3303

10514

RKDR
RKDB

RKECPS= 000030
RKECPT= 000032

9439
8403
3163

97714
10259
10784*

10853%

31908

97372

9438
10179
10558

1gé88:

= 000020

3735

10103
10510

RKCS2 = 000010

RKDC

9711%

9790
9789

1040S*
10875#%

10223
e

SEG 02e8

163?%:

9786

7441

10123
10122

10519
10520

10517
10518

10827
108e8

4829
4820

9788
10865
6560
6557
6838
S333#
5590

4801%

10509

6835
e84e

9785

4802%

10557

10032

10785#%

10192

gl46n

8163

8275

8346

5900

6027

8527

8533

60c8#*

6033
8708

12602

7209

7507

7817

8096

10084
10074

10159
10138

10176
10147

10354
10218

10374
10240

106344
10263

10844
10269

10342

10366

10411

10463

10205
7256%
8968
7130

10314
8294
8379
7ese

106388
8365

10781
8566

10854
gble

8138

8221

8269

8336

glel

7626

10624

5735

106428

581¢

10858

7302

10812

730S

10921

10934

7976

8053

10942

8160

8176

CZRENDO RKE11-06 SS VERIF 2
10-JAN-78 10:08
CZREND.P11
SAVWRD
SAVXDP
SCLR_
=
SCNDRV

003200
032042
000040
032436

SCRACH

00SS34

SCOPER= 104411
SCOPE1l
(S7]144

SECNL1
SECNL2

010470
010520

KOS

10-JAN-78 12:02 PAGE 271
MARCY11 30A(10S2)
CROSS REFERENCE TARBLE -- USER SYMBO.S

8338
9070
37038
§737
32638
4388

8525
9114
6190
5814
10915
6683

37358
7439%

4B891%
7752%

5773
11611¢
g8648%

4400%
44058

S948
11898
8651

5163
5167

SEEK = 000117
SELDRvV= 000101
SELECT 005524

32108
3203s
3731s

S600
6689
S5819%

SETPRM

158

5321is

SELPLIS
SERNM

010706
011181

SETTUP
SETUPM

033672
040644

016770

SIZMEM
Kl
=
SOFTBS
SOR?

SPACELl
SPACE2

SPRCE3
SPACEY
SPACE®6
SPAR
=
SPDLSS=
SRHTBS

030630
000002
011177
012576

013314
013313

013312
013311
013307
020000
000020
Q4227

SRTSPL= 000111

SRO

= 177572

SR1
SR2

= 177574
= 177576

SR3

Y4278
4458«

7901
8058

8554
9139
6230%
5302

8558
9198
b23l#%
7302%

6873
11898#
_

74284

8596
3316

8600
3368

8621
9430

6343
11520

10742

6b32%

6747

6760%

8100

5538
5742

5727
s820

5327

5763
51910

5332

S804
8702

5832

5938

5993

6076

7645

46798
46788

5088
S647

5272
8853

S651
8859

5658
9245

7796
9249

7904
9252

9255

9275

9280

9295

8295#*

8310%

B366#%

8462

8496

11595

7650

9752

4788
32798
44628
Yells
46778
467648
46758
3243
3303
9031%

70244
9551
8872
6384
5642

32078

7803
9501
9515
9072
6757

2171s
21724

7154
7155

21708
B613%

5376

7143%
B8693%

7634

7153
11766

10754

7347%
11781%

7349%
11788%

7351%

7353%

6299

7645%

7646

4782#

4866*

S137%

S54B3*

B3IS7x

Bl26

6743

6780

7381

7575

4746*
8649

6297
8676

38168
8l17s

37228

STKLMT= 177774
STPRASS
017306
STRCMD
042622

20668
See”
Fi58

SUBMOD

64698

32248

5483
9115

cu, 38
8732

9118

9139

S610

6232

42568
3701s
37008
3313

4759
8013
80l2*

6340

S764

ccB8Ss
1

S843

5339

8966#

9011

11523

4709
8119

11613

11636

11654

116861

6491

8978
11896

8635

10467

5419

001140

&342*
11508

7601

4865

Q42052

g8s8os

6892

4711

SWR

8S67%

6558

20558

SVPRMS

7438%

10871

STACK = 001100

SUBVER
007050
SUMHI1
003174
SUMLOL
003172
SVAL
= 100000

6893
#
8604

6134
7443
S862*

11778#%

025324

6842
g4yee

6106
6878
S840

7158

SUBCLR= 000177

65838#%
8419%

6759%
8406

7142k

00550

8366
11267

6750
7767

S956%

STALLS

8932
il226

6638
776b%

5B86f%

035604

8883
9886

6635%
7765%

5780%

STALL

8836
9822

4893
7755

21738

005704

8756
9781

4B8S9cx
7754%

= 172516

SEQ J2e9

6518

6572

6588

9833

10909

8014

473l%
8420

4733
8447

4739%
8537

6334
11501

CZRENDO RKEL1L1-06 SS VERIF @2
CZRBND.P11
10-JAN-78 10:05
SWREG

000176

SWRMSG
SWO
=
SWO0
=
SWO0l
=
SsWwi2

007466
000001
000001
000002

SWO3
SWOY
SWOS
SWO0b
SW07
SWO8
SW09
SWl
SWI0

=
=
=
=
=
=
=
=
=

000010
000020
DO0OM0
000100
000200
000400
001000
000002
002000

SW1}]
SWle
SW13
SW1Y
SWisS
Sle
SW3
SWY
SWS
SWb
SW?
SWB
SW9

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

DNNNNY

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

cclls
43068
21198
21098
2108
2107s

21068
210Ss
21048
2103n
2102
210ls
2100%
21188
2099

20984
2097%
20964
2095
20948
2117
2l116s
211Ss
21ll4s
cll3s
2lles
2llls
21108

S.RACLO=
S.BRHM=
S.BRKE=
S.CART=
S.DCLO=
S.DIB =
S.DOCR=
S.DRA =
S.DROT=
S.DRY =
€.DSC =
S.FLT =
S.FORM=
S.FWD =
S.HDFL=
S.HDHM=
S.ICyL=
S.ILF =
S.LIMD=
S.LORD=
S.MHD =
S.NMOV=
S.0FF =

000100
000100
040000
000400
010000
002000
000200
000040
020000
000200
040000
000200
001000
002000
000200
000040
000040
000400
020000
010000
000400
010000
002000

33468
33638
3385
3365
33558
3381#
33648
33348
33568
33368
33438
33498
33388
33678
3378#
33628
33478
3350%
33844
33698
33798
33834
3339

S.PIP
S.PLO
S.REY
S.RTZ

020000
004000
004000
020000

33428
33824
33684
3370

S.PAR

=
=
=
=

001000

33518

LOS

MRCY11l 30A(10S2)
10-JAN-78
12:02 PAGE 272
CROSS REFERENCE TRBLE -~ USER SYMBOL.S
4739
7113

6327

6342

7110

.
7563
10289

10306

10369

6778

7624

7i1e

7115

ell9

2118

2117

2116
2ll1s
2ll4
2113
2lle
elll
2110

9208

7476
10141
10284

6755

10144

10152

10621

10347

- -

SEQ 0270

CZRENDO RKB11-06 SS VERIF 2

CZR6ND.P11
.SECT=

22572 BB2RAR

10-JAN-78 10:08
33414
33544
33668
3337

LUNS =
VY=
.WCLK=
S.WGART=

QM
8
8 b
4
000100

]
]
s
33774

S.WLE
S.WRL

10-JAN-78

7486

7580

885678

3810#

Slel

S48!

5687

005674

3812

§165

6478

5683

TBITVE=
TCONH
TCONLO
TELDRYV

8000 Y
03170
003166
014520

3811

516!

5482

S688

005676

3813#

5165

T¥VEC = 000060
TLSTH
10204

21594
ng ]

4882
4768%
040

4930
Y769%
8988

4qy]
6344

4996
6345x

TPVEC

000064

2le0s

TRAPVE= 000034

2158#

3729#

6524 %

6532

£53S

6768%

6792

11594

6795

TRNSFR

81764#
Y4074

6306%

S767

Sl7e

Sg47

5851

Sqy4e

5946

89954

SYl4*

6137%

6180#%

6356%
S119%

6195

6213

4763
4830

4767
4893

4811
4901

ey1

0rRO

TRACK

TRKCHK
TRKNLW

46366

005520

(035750
010532

042164

1528
699
3698
4874

931

486

4717%

§771

TSTING 865120

3659

TSTMDS
TSTMSG
TSTTYP

43458
9229
6117

&018
11900#
6174

5729
5806
5894

g02os
830#
6991
s

TSTLST

005630

T57T1
TST12

020050
021176

010000
060356
(023624

TS73
TST4
TSTS

TS7T6

021506
022046
022416

TWOTOS=

TYPAUT

022722

002000

012721

TYPee= Joudbe
TYPE

= 104401

SEQ 0271

375.

3353
3340#

00se72

PAGE 273

CROSS REFERENCE TRBLE -- USER SYMBOLS

= 004000
= 004000

MOS

12:02

758

010000
010000
001000
000400

Q4 80

30R(10S2)

13733

S.SPIN=
S.SPLS=
S.SPOK=
S.TYPE=

S.UNLD=

MACY11

3781

S497
5540

¢ 395

4249

Y775%

3801

cS36s
5690

60744

S476

Sesy4

]

47 18%

5056

630S*

8077

9487

9801

2920

e2e7

118928

6599

4758
4878

4759
4873

4760
4882

oe30
585

5027
S140

so40
S147

5642

ce4

5019
5136

ceie
c488
6341

5026
£139

6364

6793

6801

Sled

S128%

7680

7804

4815
4902

4820
4911

4829
4914

4841
4325

2329

8479

6805

6806

4843
4939

Y844
4940

4868
5018

eds

£33

6349

c725#

462748

2085

5099

6797

BesB

6368

6374

S044
5148

S063
5163

6376

8377

2000

s07e
5167

5073
5168

6379

6381

293

S08%
5172

£384

5088
§173

5089
€191

6398

419

S131
Sels

6420

Sl32
5228

6471

CZRENDO RKE11-06 SS VERIF 2
10-JRN-78 10:0S
CZREND.P11

TYPLST

016232

5152

TYPOC = 104402

6383

TYPOS = 104403

5639

TYPPAT
TYPPRM
TYPTST

(034462
034402
(034346

T.ASOF

003014

7.BR

003006

8841
9229
9258
11474

S433%

S4YSE

pHIHE

BYYY

666 1%

6671

8852

8858

8862

3244

9254

9257

9277

Se4Y

707S

7800

780S

7851

7856

9231

6230

10109%

10776%

10110

10134

10179%

10180

10259%

10328

10S10#%

10777

100S4#
10294#
10507%
10048

10106*%
10324*
10S54#
100S1

10107
10325
10555
10063

10120
10336%
10595#
10092

7501

36638

TYPCN = 104404

9228
9255
11399

7452#

003124

011527
011466

8839
9224
9252
11334

11510

TYPFMT
TYPMAN
TYPMOD

8508
9223
9251
11087

91988

S431ls

45098
45038

4992

51878

6419
6398

Ses50

11891s

5227
5190
SO43

78478
Se71
5087

3%e6s

7510

7903
78228
77964

10363

10S14%

beed
10255
10458
10032+

6227
10280%
10467
10033

35638

T.CS1

003000

T.CS2

00300e

35588
10225
10454
35608

T.DR

003010

35648

10329

10Si1#x

T.DC

003012

35658

10330

10515#%

T.08

1.05

003034

003020

10449%
35758

35698

SEG 0272

8507
9ece
9250
9298

8104
9206
9249
9296

D174ib

(043012

MACY1l 30A(10S2) 10-JAN-78 12:02 PAGE 274
CROSS REFERENCE TABLE -- USER SYMBO.S

8100
8872
9248
9295

TYPED

TYPERR

NOS

10450

100S7#

10460

10058

760S

10469

10333

10S08#%

10512%

10223%
10452#
10773
10448#

T.ER

003016

35688

10066%

10069

10232*%

10235

10332

10471

T.MR2
T.MR3

003024
003026

357is
3672

6631%
10:44

10141
10204

10152
10283

10288
10518%

10305
10599

10347
10606

UBMPRS

003143

36788

5778

5866

5954

7055%

7140

7257

= 000400

32668

9470

Q476

10048

10126

10469

10839

011363

44898

6767%

B785%

= 020000
UPE__
VERIFY 011364

32718
44908

9458
6470%

10063
529

10229
eS44*

10469
6600%

6616%

6625

6772

WRITYR

6531

6552

76208

32728

5694

3660

10063

10229

10469

8809

8811

T.MRL1

T.PAT
7.P0S
T.WCR

003022
003032
003030
003004

UEXARTT= 000010

UFE

UNLOAD= 000107
UNLOD

UNS

= 040000

VFHOSKW= 000002
v
= 000100

033566

WCDASW=
=0 000004
WCE

WCEFLG

= 040000

003140

35708

35748
35738
35628

34608

32068

32948
36844
3306%

36854

36758

10S16#*

10S20#%
10519%
10327

9684

6774

9546

S607%

10509%

10115

76e0

SBI1S

10720

§700%

8792%

8794

10339

10619

CZRENDO RKb11.06 SS VERIF 2
CZREND.P11
10-JAN-78 10:05
WCERR = 000100

424Ss

8999

9663

73S

00SS64

37428

8270

8339

83395

= 004000

32918

9542

10068

10235

5766

5846

WC2BIG

0l10SH4

WDSXFR

WHDSW = 000001

WLE

WORDSP
WRCKHD

BO6

MQCY1l 30R(1052)
10-JAN-78
12:02_ PAGE 275
CROSS REFERENCE TRBLE -- USER SYMBOLS

44098
36838

013322
021142

4yo828
5606

WRHERD= 000127
WRL
= 004000

32148
3310w

WRDATR= 000123

32128

7848
Seq4s

8602

8618

8898

5341

6018

6169

8536

10792

6024

6177

8183

8541

10788

85258
10104*

101S6%

10171%

10184#%

10198#%

10313%

10322%

10155%

10170%

10183%

10245#

10312»

5901
7307

8494

32158

5605

WRTSEC
W.DRv

037614
D03114

5657
36558

SS561
9963%

S567
10078%

W.MILI

003060

9958

10924

W.MTIM
W.SEC

003056
003062

W« .MIN - 003066

W.TIME

003100

W.WCK =
W.WTCH
W.8SEC
XDPSAV
XDPSVD

000200
047154
003064
00SS42
003134

xppP2

032136

XDP1

XDP3

032070

032162

XDPY

032142

XOVLARD
XXDPRD
XXDPCH
AXDPME

003133
00SS40
003117
007227

SASTAT=
SATYC
SATY]
SATY3
SATYY
SAUTOB
$SBASE
SBDADR
$BOORT
SBELL
SCHARC
SCKSWR=

##xxxx U
0S7452
057426
057434
DS744M
001134
001374
001122
001126
001310
0SS214
##x¥xx U

SAPTHD

001100

7493

10644%

10693*

36248

10756

36088
36078
36218

36308

10372%

34558
8737
36238
37388
3e718
7304

7308
2317

7319

9956%
10693

9959

10643%

10077%

10779%

10105%

10831%

73238

7330

7361

5815%
72B4x

5903
728Sx

7306%
7¢28b¥%

6923
11106

11503
11115%

11535
11120#

4707

4715

4721

23128
2325¢

2313
23268

2314s
23278

7332
73258

11727
11685

10850%

S813%
SBlb*

10849
10822
5900%
SA04x

7314

8468
7313

4914

2248

116824
116848
4796

6571
11099%

ccbSs

4706

23108
23238

2311s
23248

$CM1

= 000040

$CM2

= 000100

22978

22988

0coo40

22958

2297

996S*

10692%

7311

723108

10832%

9958%

10796
10775

1171
11683
116818
11072
11516
ccBes
2389%
22774
22794
23408
11089%
1189

23108
23238

10780%

10790
10769
10759
SBlox
5739%

5738%
7280%

22978

10759%

10764
99518
10351
5736%
4792%

36708
37378
3658%
42768

e24e

10756%

10703
9les
10156
5735
4789

[-ad
O
X
w

SCMTRG

001000

3329
43198

8970#

8560

WRTCHK= 000131

WRTGAT= 040000
WRTLOK
007S61

SEQ 0273

2298%

2311s
23248

22998
22998

23128
23258

23008
2300#

2313%
23268

2301s

23028

2303%

beg4
23048
2317%

6309
2307
2320

2301s

23028

2303#

2304#s
23178

2307#
23208

23148
2327%

Yy7ae

23158
23288
23158
23288

4723

23164
23298

23164
2329

SCROUT
$DBLK
$0820

000011
0S700S
057000

§60102

81318

060132
0Se454

L
SOEVH

23298
115738
11572
11764
53630
4o
7777

30R(10S

2330#

23318

CROSS

COb

SEQ 0274

SEFERENCE TABLE -- USER wmB62s
)

10-JAN-78

233cs

12:02__PA

23338

2334s

2335

233648

2337%

23388

5228
8849
11511

S665
8863
11835

6376
9228

6379
9238

6980
9240

7061

9248

7062
9251

7772
9261

11069

11074

11692

11658#%
11678

11678

8460

8562

8572

8580

117918
4g41l

8017

115388

4911

8077
9298

11474

114828

11372,*

801s

SYlb

S0o44
8104
11088

€19}
8842
11123

8102

l11cces

Lro
e
W

=
SCMY
SCNTLG
SCNTLU
SCORE

MRCY1l

11680
6332

11714
7468

oO—0
woy
—
nN—o0
w
s

CZRBENDO RKB11-06 SS VERIF 2
10-JAN-78 10:05
CZRBND.PL1

6264
11625

6309*
11650

62S1#
62768

SDORGN

11530
6309

11067
4797

0=t Pt e N

Pt Pt Pt ot e P

= b = O W) £ W
£
nnnINNO LO0—-0Or
ounonnnnooocnnoo

000000
00880000008

0S6464

7668%

11652

11507

11835

12322

11526

11528

11538

11672#

11721%

11729

11037#*

11042

001124

11032

5371
11663%

060064
05773
SLF
SLFLG
SLONUM

001316
057671
DSH734

1166b#*

10994#%
11677

11 007

11507%

11515

5823
8682
11535

7025%
8691

7027
8354

7316
Qo012

823!
117634

8362
11767%

8451
11790%

glee

8147

8202

11023

11030

11036%

11043

1153S

€S

VERIF

10-JRAN-78

gwwum-—-»—»—
onocrnoocoo
U"U’\U‘SV*—-O

$MADRY
SMAIL

Pt s Pt et pa () O 0

SLPQOR
SLPg

888832888

CZRENDO RRB11
CZRBEND.PL1

10-JAN-78

12:02

PAGE 277

SEQ 0275

MACY11

30R(10S2)

4y725#

6313#

11598
€937%
11810#

116S6#%
B3l4»

11670%
11525

11675
11618

11677
11656

11671%

11677

2349

4743

8837

5726

5803

s8al

992

6075

6331

11067

11723»

11727

5873s

587S

S961#

5963

60478

6049

6266

6279

628S

6331

7673

10:0S

CROSS REFERENCE TRBLE -- USER SYMBOLS

11804#

2254

11513

$MAMS
|
SMAMS2
SMAMS3I

11701

11704%»

11716

11720#%

5707

57858

5787

11378%
116748
5489

11389

1141Ss

6257%

6258#

11592

0S4634
0S6660
3300

SREGIO

8 000
116
00l1e2
g0lied
001202

SREG11]

001204

SREG1HY
SREGIS
SFEGIE

goizle
001214
ooiele

$REC1S 381578

4940
7944
11019

SQe7
11123

073
11535

S13e

5148

5256

530S

8331

5405

7012

lggqqi

B3R

8396

BY34s

B437

8617#%

8618*%

8619

8663%

8666

9657%

2ez%:

12326

12326
12334

12334

cCcc

001314

9371
12322

B43S#*

B138%
6204#*
6205#%
8373%

9597

8332x

8439
x
8445
12330

9622%

844 1%
8673%
12334

8666%
8674

degss i, g,

12329

8670%
12334

12329

CZRENDO RKE11/06 SS VERIF 2

MACY!11l 30A(10S52)

SREGL17
SREGE
SREGE0
SREG2l
SREG22
SREG23
SREGed

12330
123ee
12330
12330
12330
12330
12330

CZRBND.P11

SREG2S
SRE
SREG2
SREG3
$REG30
SREG3]1
SREG32

001220
001166
00lg22
00leeH
001226
001230
001232
001234
001236
001240
001170
001242
0OO0le44
001246

SREG33
SREG34
SREG3S
SREG36

001250
001252
001254
001256

SREGH

001172

SREG37?

10-JAN-78 10:0S

001260

SREGS

GO1174

SREGE

001176

SREG?

001200

SRESRE
SRTNRD

060240
024060

$SCOPE

057170

= #xuxx® U
SR2A
$SAVRE
060202

$SETUP= 000037
$SIZE
$SIZEX
$STUP =
SSUPRS
$SVLAD
$SvPC =

$SWR

SSWREG

057674
060136
177777
(0557%2
057354
000234

= 167000

001342

23les
22998
23138
23i4s
23158
3168
23178

23188
23198
23204
23008
c232ls
23228
23238

23248
23258
232b8
23278
23284
2301

12330
9242

23028
9183%

6036#%
378

7153#%
746

7197%
Q747%

8410%
9783

B416#
9855*%

8424
9875*

8430%
9887%

8639%
9901

12358;

lggggl

9859%

9870

9872

9874

9894 *

9895

9896%*

23048
9860

7155%
9863%

720c#*
9867%

7207
9869%

7223%
9901 *

B8418%
9303

8428
990Sx

4713

4718

4717

6310

4719
6311

7831

8016

8076

8103

113264

2029
4723
6279

2033
4725
6310

2034
4726
6311

2035
8537
6313

2036
5726
6314

2303

118458
62784

6037%

11897

11898
118298

11896

4e688#

Yyzle

7026
11789
465884%
7060
11645
=Y ]

117514
11799

11520

11523

4713

6303

20098
4yzae
6277

11633

630S

6307

11668%
2231

001270

9060

8647*%
12333

8657

86blx

9857%

9858+

yzel
6313

yzee
11498

4723
11523

4725
11530

6255
11540

6300
11578

6301
11634

2037
5803
11489

2038
5891
11490

2039
5992
11491

2040
6075
11492

2338
6246
11493

2339
6256
11501

2340
6271
11508

11677

11561

B493x%

11634

11659%

11664

116672

6922

6964 %

6997%

11538

11583

11559

3059

3032

8655

11555

9031 %

233¢es

8b46*

11669

2331

9049

843c*
12326

6256 %
5232
9050

6310%
6254

7675%

6568%

7680%

11630

11636

11648

8640%

e07S*

044

S048*

9900*

5992%

9036#%

23374

9897 x

cB891*

9035+

001302

9903

BY3l#*

S803*

2330s

$TMP10

§2lex

9902

8426

11629

11538

SOS9x

B417%

9182

11628

699S*

ccB8s

S430*

B4ll*

8659%
12333

11677

6953

23524

6334

11627

7225%

8653
12326

11674

S72b#*

4746

22878
23294

STMP3

11626

7209

B645*
9904

11671

G537%

23618

001144
001262

001266

6309

11661

$TKS
s$TMPO
s$TMP2

11535

7201%

11660

11659

Y7eex

001264

7154%

6301

233684

STMPL

9402

12325
12325

Q01304

001146

SEQ 0278

9381%
9382%

STIMES
$TKB

PAGE 278

12322

11630

u01324

EO6

12:02

CROSS REFERENCE TABLE -- USER SYMBOLS

SSUWRMK= N00000

STESTN

10-JAN-78

11650

11651

11652

CZRENDO RKB11-06 SS VERIF 2

MACY11 3D0A(10S2)

STMPY
T$TMPS

00ie7e
001274

23338
23348

9033#%

STN

= 000007

2018

CZREND.P1LI

STMPS

10-JAN-78 10:05

001308

STNPWR
$7PB
$TPFLG
$TPS

£33
5806

10-JAN-78

FOb

12:02

PAGE 279

SEG gev?

CROSS REFERENCE TABLE -- USER SYMBO.S

029

5873

9061

S891s

5497

5894

5508

€961

CE37s

S540

5689

§995

BON7

5690

5708

6075S#

6078

£7264

5729

§992#%

§78S

S803#»

(0SS666
001152
001157
001150

11274
22908
2es4s
e289s

1127S
11lle®
1106}1
11110

11295s
11123
11123
11123

$TRP

= 000012

118808

118898

118908

11591s

11892#

11893

11895

118968

118978

11898

11899

STSTNM

001102

agggo

S429%

6255%

6287%

7677

8499

9230

11500

11835

11625

11668%

11669

11674

11880
11105
11121

11888
111108

11111

10417

10458

10769

10810

10822

10876

10898

10916

10943

2218
3705

e2eb
37064%

2227%
37078

22e9s
3716

22318
3738»

2232
37418

2e3s
3751

2239
4710

22418
4725

STRPAD
$TSTM

060332
001004

STYPBN=
$TYPDS
STYPE
STYPEC
STYPEX
$TYPOC
STYPON
$TYPOS
SUNIT
SUNITM
SUSWR
SVECT]l
SVECTe

#¥¥%%x U
0S6240
054736
055150
055216
0S6036
QS60S2
(056012
001332
001010
001344
001370
001372

€.SM= Rxxa¥x U
SOFILL
056235
SYOCAT= =Exxxx U

= 070713

.SARSTA= Xxxxsx U
.8X
= 001000
..HIGH
000232

...0uW

000230

11870
ceSls
11

11893
114288
110618
1109}
11116
113698
11368
113648
2355
22538
23628
23878
2388s

11887

11892
11709
11098
11118
11889
11371s
11890
S463%

11891

47as

lgsgz

94980

10218

10406

11365%
11510

11369%
11636

11379

1i414s

4726
11535

5762
11538

22148
2344

§937
11578

22164
3688#

2205
eo43s

11682
22384
222l

2220

2209
22b4 s

11685
2243

6279
11586

6283
116038

6298
11677

6313
11678

6314
117308

11123
123218

11198

112538

1131S»

11482%

CZRBENDO RKBL11-06 SS VERIF 2
CZREND.P11
10-JAN-78 10:05

GO6

MACY11l 30A(10S2)
10-JAN-78
12:02
PAGE 281
CROSS REFERENCE TRBLE -- MACRO NAMES

SEG 0278

BYECPS

b2Yls

6250

ERROR

20S6bs
8641

6038
8642

6193
8644

6207
8662

6229
8675

7163
8745

7206
88C0

7226
9184

7447
9322

7470
9326

g412
9333

8413
9337

8415
9341

8433
9345

B4Y46
9349

9508
9573

9513
9578

9517
9588

9521
9601

9524
9603

9528
9%13

953¢
9626

9536
9628

9540
9641

954y
9658

9548
9667

9553
371

9558
9676

9563
9681

3568
9686

5875

S361s

9352

ESCAPE
GETPR]
GETSWR

9712
2lE2H

2lea2e
2162

3355
9714

9358

9748

9359

460

9465

472

474

3480

g?gg.

5510

S70Ss

5707

57858

5787

5873

NEWTST
NEXTRD
NXTRD
NXTST
PARMBK
PARMDF
POP

21628
2909s
2908s
29068
s
ls
2lees

5503

5705

5785

5873

5961

6047

5540
3491
3397
11038

5689
35e3

5723

S806

5894

5995

11469

11724

11725

11850

P.DRVR
REGDEF

18
is

3555
3179

11708

11830

5536

§7eS

s802

5830

5991

6074

6250

11889
470S
5497

11890
6293

11891

11892

11895

11896

11897

11898

223s

2237

2244

2260

727?

7291

7301

PUSH

REPORT
R.DRIV

R. QDRvV
SCOPE

2lees

21628
ls

20S78

11019

11428

11685

2lees
11880%
cleas

STARS

2010

2016

clees

2224

7190

7192

7236

7241

cle2s
clecs
2lees

8535
6993
7546

784S
8156

SWRSU
.

TYPNAM

5705
7002
7598

7863
8159

8524
8879
9112
9820
10524
11256

1 0S50
1 1318

3331

20098

9493

9495

9499

39503

11687

5963

60478

6049

234y

2347

4854

4862

7365

7373

7391

7396

6078

9909

SETPRI
SETTRR
SETUP
SKIP
SLASH
SPACE

9491}

11759

anT

]

9482

8548
8882
9136
9 852

21628

Ss808

5724
7009
7600

7875
8170

785
7017
7616

7960
8175

5801
7023
7274

5873
7068

7614

7640

7974
8194

802S
8197

5889
7073
7644

8028
82ll

8553
8904
9138
9854
10569
11341

8588
8308
9168
9880
10S81
11418

8595
8326
9174
38685
10649
11485

8699
8931
9188
9918
10676
11837

8701
g%6e
9197
9949
10354
11543

5705

5785

5873

5961

6047

47278

6315#

5961
7103
7657

8048
8c20

8719
8965
S305
9983
10967
11607

5930
7109
7688

8052
8258

8728
8990
9315
10023
11010
11610

6047
7120

6073
7129

7709

7786

8753
8934
9362
10386
11046
11622

8755
9020
9420
10403
11126
11680

8083
8267

8087
8327

5001

S015

6243
7149

6948
7151

6950
7168

7794

7811

7820

8109
8335

8774
9030
9428
10421
11136
11737

7411

811sS
8469

8777
3063
9775
10445
11154
11814

7426

8139
8478

8830
9069
9779
10492
11165
11859

§S08

6985
7170
7530
7836

8145
8519

8835
9096
9818
1050S
11217

TYPOCT
TYPTXT

21628
2162%
2lbes
21628

$SSCMRE

2%58.

$SCMTM
SSESS?

22588
clecs

SDECBN
SOCTBN

1s
18

1095

3£é

2299
2314

2300
2318

2301
2316

2302
2317

2303
2318

2304
2319

2305
2320

2329
5

2330
5705

2331

233e

2333

2334

2335

2336

2337

s87

1188%

11895

eQu47

11897

11898

11&88. llggg

.HEROE
.KT11
.SETUP
SWRH]

2009s
20098
2009%
20098

209
2162
4688
2028

$SACTI

20098

ec2e

SWRLO

SAPTB
SAPTH
3APTY
SCATC
SCMTR
s$0B2D0
$0B20
SEOP

23458
20098
2009s
20098
20098
20098
2009%
20098

SERRO

2009%

SPOWE
SRAND
SRERD
$SAVE
$SCOP
$SIZE
SSUPR
STRAP

2009
2009#
2009%
2009
20098
20098
20098
2009s

STYPE

20098

$TYPD

63318
5497
2052

20098

$TYPO

2009%

RBS.

070713

SEQ 3279

ag?e

532

47438
21628
2009s

30A(10S52)

22??

IigET

SSSETM
SSSKIP
.EQUAT

HO6

10-JAN-78
12:02
PAGE 282
CROSS REFERENCE TABLE -- MACRO NAMES

MACY11l

204ls

11890

Y4
11891

2042

2043

1189

2233
11678
2203
2258
11254
1]1215
624:

11483

11008
11535
1l8le
11620
1173S
11316
11857
11416

11044

11339

ERRORS DETECTED:

0o0

DSKZ:CZRBEND DSKZ CZRBND. SEQ/SOL
/CRF /NL : TOC/EQ: QNEWSW/DOC=DSKM:DRIV10.P11,DSKM: CZREND.P11

RUN-TIME: 46 9403 SECON
os
RUN-TIME

RATIO:

CORE USED:

48K

DOCUMENT PAGES:

460,90=5.

(97 PRGES)

279

2306
232!

2307
a232e

2308
23a3

nn
(e
no
£0

TYPNUM
TYPOCS

06 SS VERIF 2
10-JAN-78 10:05

CZRENDO Rkbl11l
CZREND.PL1

2310
232%