Digital PDFs

AC-S116E-MC

March 1978

272 pages

Original

14MB

view download

OCR Version

12MB

view download

Document:	CZR6HE0 RK611 UNIBUS RK6 DRIVE PART 1 AH-9118E-MC MAR 1978 bw
Order Number:	AC-S116E-MC
Revision:	000
Pages:	272
Original Filename:	CZR6HE0__RK611__UNIBUS_RK6_DRIVE_PART_1__AH-9118E-MC__MAR_1978_bw.pdf

OCR Text

_UNIBUS RKEDRIVEPART1

CZR6HEO

AH-9118E-MC

FICHE1 OF2

MAR 1978

EONEN

MADE IN USA

UNIBUS RK6 DRIVE FART 1

CZR6HEO

~ AH-91186E-MC MAR1978

FICHE20F2

MADEINUSA

BC1

MUNUNU PO N = 0 bt s 0t Bt 5

st st e

NLWN—=0OVm I LW OO~V LWH)»—

EOF 1CZ2QMCE S E Q
PBP e 0 08gl
CZREHE.PLL
25-JAN-78

780223
00010000
CZR6HEQ UNIBUS RK6 DR PRTI1
12:00

POP10 411
MACY11l 30R(10S2)

ERHDR1CZRBHESEQ
@25-JAN-78
12:08
PAGE

00010000

.REM #

IDENTIFICATION

PRODUCT COOE:

AC-9116E-MC

PRODUCT NAME:

CZRBHEO UNIBUS RKB DR PRT 1

DARTE:

FEB 1978

MAINTARINER:

DIAGNOSTIC GROUP

AUTHOR:

GRARY PRPARZIAN

THE INFORMARTION IN THIS DOCUMENT IS SUBJCCT TO CHANGE WITHOUT
NOTICE AND SHOULD NOT BE CONSTRQ;D AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL ZQUIPMENT CORPORATION ASSUMES
NO RESPONSIBILITY FOR ANY ERRORS THRT MAY RPPEAR IN THIS DOCUMENT.
THE SOF TWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER_A

LICENSE AND MAY ONLY BE USED OR COPIED IN ARCCORDANCE WITH THE
TERMS OF SUCH LICENSE.

DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR
THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THRT IS
NOT SUPPLIED BY DIGITAL.

1976,

1978 BY DIGITAL EQUIPMENT CORPORATION

780223

-ZRBHED UNIBUS RKb DR PRTI1
CIREHE.P11
25-JAN-78 12:00

MACY11l

30R(1052)

cOl

25-JAN-78

12:08

PAGE 2

TRBLE OF CONTENTS

1.0

ABSTRACT

e.o

REGUIREMENTS

HARDWARE
PREL.IMINARY TESTING & PROGRAMS

2.l
2.2

Q0 “NNIN NN NN
O
—~ODONOCNLWL~0OW

PDP-11 FAMILY COMPARTIBILITY

-0

— = 0OV LW

PRPGRRH CONSIDERATIONS
WWWWWwWwWwWWWwwWww

3.0

XXDP
ACT/APT

BPT ETABLE DEFINITIONS
DUAL ACCESS
MEMORY MANAGEMENT
PARITY CHECK ENABLED

LATION
ERROR CORRECTION 8 FRILURE RATE ANALYSIS
DEFRULT UNIBUS ADDRESSES 8 VECTORS

OPERATING PROCEDURE & CONTROL FUNCTIONS
Y
.4
4.2

PROGRAM LORDING
STRRTING LOCATIONS

:.g

sgrr¥a§§nfuérgn REGISTER

4.3

4.6

4.7

5.0

6.0

gnggnnn ExgflgLE

HALTING THE PROGRAM

DRIVE DIARGNOSTIC FUNCTIONAL DESCRIFTION
S.1
§.2

CONSOLE SWITCH REGISTERS

GENERAL
TEST DESCRIPTIONS

ERROR REPORTING

6.1
6.2

ERROR INTERPRETRTION
ERROR PRINTOUT EXRAMPLE

SEQ 3002

CZRBEHED UNIBUS RK& DR PRTI1
CZRBHE.P11
25-JAN-78 12:00
91

MACY1l

30R(10Se)

1.0

DOl

25-JAN-78

12:08

“AGE 3

SEQ@ 0003

RBSTRACT

THIS PROGRQH P RFORHS PART | OF THE DRIVE DIAGNOSTICS
NSURE THR
E RKOb
&
RKO7 DISK
D

{? ?flEfiBhE ?fin?‘?fi&“BA?SE“thusuBI¥E 3~8*§t£o“EEQBEB£S
S$995510N§Ta$"33?§8 éEOEnlb‘sEé&“p8¢¢5E5§f°R" SEEK

Dt e Bt Pt Bt Bt

i Pt Pt Pt ot Bt P

Bt Bt Pt Bt Bt Bt Pt

s ot Dot Bt P

s e Bt ot Bt Pt o

s Bt Pt s Pt Pt

i Pt Pt Pt PP

LLELLE L LWWWLWWWWILWLWLWA
NN MAITININI DN b 0= b s et he s e b pe QO00O0CO000

oM LZWN—ODONOTNIZWN—OVONCN
LWNN—-OWVO NN LWN-ODm NN L WY

ERROR DETECTION

QFT RRAS

LOGIC 1S CHECKED BY SOFTWARE ERROR FORCING.

RUN (WITH NO ERRORS) OF PART 1,

ERDY ESS §3n¥La SF

THE DRIVE

DRIVE DIRGNOSTICS.
TING
RARCHY QPPROQ H STARTIN uITH
Uanie foeriid
NG
0N PRBEEES
e 1ENCodTc2PEER
TESTS NILL BE KEPT SHQLL T0 FQCILITRTE SCOPING LOOPS
% %2 %
#u%%8CAUTTON®

HALTING THIS PROGRAM ANYWHERE BUT AT THE END OF PRSS,
MAY LEAVE THE HEADERS IN THE DISK CARTRIDGE IN
A
UNDETERMINED STATE.

2.0

REQUIREMENTS

e.l

HARDWARE

THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE DISK DIARGNOSTIC:

?g&SéLE
TELETYPE
KWll-L OR KiWll-P CLOCK

““?8 8" (P8¥alS" RKOE kKo7 DR1vEs
NOTES:

*r NEITHER Kulé 5 8 CLOCK IS USED, ALL TIMING
ILL BE BYPARSSED.
G ATTHE
BEGITINING OF THE TESTS HILL conr:nm THIS.

e.e

THE PROGRAM CAN WORK OFF EITHER FORMATTED OR

NON-FORMATTED PACKS.

PRELIMINARRY TESTING & PROGRAMS

THE RK611 DISKLESS CONTROLLER DIRGNOSTICS (ALL PARTS) SHOULD FIRST RUN SUCCESSFU
3.0

PROGRAM CONSIDERATIONS
PDP-11 FAMILY COMPATIBILITY

CZRBEHED UNIBUS RK& DR _PRTI1
nn 5 Dt Bt Bt P et . Pt Pt Pt Pt Pt s ot Pt s s s Pt Pt B P ot Pt o P Pt s s et it s s it ot (e Bt Pt (ot Pt e Bt Pt it Bt Pt s s Pt e Pt [
000 D OO0 DO
OO CD D 0D 00 G000 D D D NNNNNNNNNNO
OO OO O
O
NN £ £E
n—0o DONONLWNI—OWVONT
N LW —~O DN N L WN—=ODO NN L WO 00NN LW~ Wo~

CZRBHE.P11

25-JAN-78 12:00

MACY1l 30R(10S52)

25-JAN-78

EOL

12:08

PAGE 4

3EQ 0004

THIS PROGRRH CAN BE USED BY THE PDP-11-04,05,10,20,
34, 35,40,45,50, & 70.

IT IS COHPQTQBLE NITH THE LSI-11 INSTRUCTION SET AND CAN TEST

THE RKO6 ONLY IF THE DRIVE CONTROLLER FOR THE LSI-11

DESIGNED TO BE DIAGNOSTICALLY COMPATABLE WITH THE RKbll.
3.2

XXDP

lgégESROGRQH CAN BE CHRINED BY XXDP & WILL NOT OVERLAY THE
CHRIN MODE OPERATION

(MONITOR)

1.
2.

THE INPUT DIALOGUE IS BYPASSED.
THE BUSS RDDRESS 8 CONTROLLER INTERRUPT VECTOR IS

3.
4.

DRIVE O WILL NOT BE TESTED.
ALL ggHEg DRIVES IN THE °*DRIVE PRESENT’

DEFRULTED.

BET

NOTE:

CONDITION WILL

THE DRIVE PRESENT CONDITION IS:
A.
B.
C.
D.

HEADS MANUALLY LOARDED
SELECTED
CORRECT PORT
WRITE LOCK DISABLED
DRIVE REROY INDICARTOR ON

DUMP MODE OPERATION (MANUAL)

INPUT CIALOGUE IF STRRTED_FROM 220.

DRIVE 0 CAN BE TESTED,
PACK & TYPE <CR>

3.3

BUT THE OPERRTOR IS FIRST GIVEN

A MSG TO REPLACE THE PACK IN DRO WITHA SCRATCH
WHEN DONE.

ACT/APT
THIS PROGRAM IS ACT COMPATIBLE.

1T IS
APT

COMPATABLE TO THE EXTENT THAT APT HOOKS WILL BE IN THE
PROGRAM & WILL WORK THRU THE 'UPTON INTERFARCE’
FOR OTHER INTERFACES,

1.E. LOARD & DUMP MODE.

AUTOMATIC MODE

2.
3.

APT MAY ONLY LORD & START THE PROGRAM.
»

(MONITOR)

THE INPUT DIALOGUE 1S BYPRSSED.

THE BUSS ADDRESS 8 CONTROLLER INTERRUPT VECTOR IS

DEFAULTED.

?EETESIVES IN THE ’'DRIVE PRESENT’

NOTE:

CONDITION WILL BE

THE DRIVE PRESENT CONDITION IS:

MACY11

30R(10S2)

25-JAN-78

AN AV AV AV aVIa VIR LAV U VA A8 14 V)
PUNU 0 s 0t ps s Pt Pt s s = ()
-0V
LWhu—C W

208

ez22

FOl

12:08

SEQ 000s

WRITE LOCK DISARBLED

DRIVE RERDY INDICATOR ON

DUMP MODE (MANURL):
3.3.1

PAGE S

HEADS MANUALLY LOADED
CORRECT PORT SELECTED

oOWwD

CZREHEO UNIBUS RKb DR_PRT]
CZRBHE.P11
25-JAN-78 12:00

INPUT DIALOGUE IF STARTED FROM 220.

APT ETABLE DEFINITIONS
THE FOLLOWING DEFINITIONS ARE VALID FOR SPECIFY I ?G APT ENVIRONMENTAL
TABLE (ETARBLE) ENTRIES, VIA RUNNING THE APT UTT LITY PROGRAM *TSP*:

SOFTNQRE ENVIRONM NT:
MODE
=1 IF APT SCRIPT
=0 IF STQNDQLONE MODE

ENVIRONMENT MODE:
ETABLE DOES sxzznc
BIT 7 =1

=0
BIT & = |
=D

BITS = |
=0
BITS 4-0

PROGRAM DOES SIZING
SPOOL MSGS TO APT IF SCRIPT MODE
DON'T SPOOL TO APT
SUPPRESS CONSOLE OUTPUT
ALLOW CONSOLE OUTPUT
NOT USED

SWITCH | (SOFTWARE SWITCH REGISTER)
3.
IF ENVIRONMENT MODE BIT 7 (SIZING BIT) IS SET TO I,
THE SOFTWARE SWITCH REGISTER WILL BE USED, INSTEAD
OF THE HRRDWARE CONSOLE suxrcu REGISTER.
REGARDLESS
E ITS DEFINED IN SECTIONS
or unzcn ONE 1;

4.3&8 4.4 (SWIfcH RECIST R OPTIONS) MAY USED

WHEN RUNNING IN STANDALONE MODE.
IN APT SCRIPT MODE
nggven BIT 14 (LOOP ON TEST) MUST ALWAYS BE SET
4.

SWITCH 2 (USER SWITCH REGISTER)
NOT USED

CPU OPTIONS:

MEMORY TYPES 1-4 AND MARX MEMORY ADDRESSES

NOT USED

INTERRUPT VECTOR 1:

USED WHEN ENVIRONMENT MODE BIT 7 = 1.

BUS PRIORITY 1:

INTERRUPT VECTOR 2:

10.

BUS PRIORITY 2:

USED WHEN ENVIRONMENT MODE BIT 7 = 1.
NOT USED

NOT USED

DEFAULT = 210
DEFAULT = §

CZRGHED UNIBUS RK& DR PRTI

CZREHE.P11

25-JAN-78 12:00

MACY1l 30R(1052)

25-JAN-78

259

GOl

12:08

PAGE &

SEQ 0006

260

11.

BASE ADDRESS:

263
264

12.

DEVICE
M
USED NHEN Envxnonnsnr MODE BIT 7 = 1.

ggé
26S

Sgg

USEC WHEN ENVIRONMENT MODE BIT 7 = 1. DEFAULT = 177440

EACH BIT
SET 10 § IN BITS 0-7 WILL SELECT THE CORRESPONDING

DRIVE T0 BE TESTE

BITS 8-15 RRE NOT USED.

268

13.

271

14. DEVICE DESCRIPTOR CODES (IN WORDS):

593
S;g

CONTROLLER DESCRIPTOR WORDS:
NOT USED

NOT USED

s;g

3.4

DUAL ACCESS

)

276
277

THIS PROGRAM WILL NOT TEST OR SUPPORT DUAL-RCCESS.
A DRIVE
EQUIPED WITH DUAL ACCESS MUST BE SWITCHED TO THE PORT UNDER

280

ounL ACCESS TESTS WILL BE INCORPORATED IN A SEPARATE PROGRAM

g;g

TEST TO PREVENT CONTENTION WITH THE OTHER PORT.

281

282
283

ggg

3.5

539

A LATER DRTE.

MEMORY MANRGEMENT
MEMORY MANAGEMENT NOT USED

288

Sgg

3.6

291
Sgg

PARITY CHECK ENRBLED

IF THE MEMORY PARITY CHECK OPTION IS AVAILABLE ON THE SYSTEM,
THE PROGRAM WILL RUN WITH MEMORY CHECK ENRBLED.

294

sgg

3.7

297
238

BAD SECTOR

THE PROGRAM WILL COMPARE DARTA ERRORS WITH THE ano SECTOR
INFORMATION CONTRINED ON CYL 410, HERD 2.
PRINTOUTS

sgg

OF DATA ERRORS DUE TO BAD SECTORS/TRACKS WILL BE MASKED OUT.

301

ggg

3.8

EXECUTION TIME

ggg

THE EXECUTION TIMES SHOWN BELOW ARE BRSED ON THE PDP 11/50.

389

TOTAL TIME:

ggg

A BREAKDOWN OF THE MORE LENGTHY TESTS ARE SHOWN BELOW:

310
311

312
3}3

S5 MIN,

30 SEC

TEST 16 srnrxc CYL ADDRESS 8 DIFF REGS-PART 2: 2 MIN,
TEST 34 FORMAT PACK

TEST 37 SEEK FROM CYL O TO ALL CYLS
TEST 40 SEEK FROM CYL 410 TO ALL CYLS

:
:

40 SEC’
40 SEC

1S SEC

I MIN

CZRBEHEO UNIBUS RK6 DR _PRTI1

CZRBHE.P11

25-JAN-78

12:00

MACY11l 30A(1052)

gig
gig

gag

3.9

3.10

SEQ 0007
DOUBLED FOR THE RKO?7.

FAULT ISOLATION

ERROR CORRECTION AND FAILURE RATE ANALYSIS
THIS PROGRAM WILL NOT DO ERROR CORRECTION OR FAILURE RATE

325

353

PRGE 7

TO BE DETERMINED.

324

355

HO1

12:08

THE RBOVE TIMES ARE APPROX.

319

@25-JAN-78

ANALYSIS.

3.11

330
331
ggg

DEFAULT UNIBUS RDDRESSES & VECTORS

THE FOLLOWING IS A LIST OF ALL DEFAULT ADDRESSES & VECTORS
OF ALL HARDWARE TO BE USED & THEIR MEMORY ADDRESSES
WHERE THEY CRN BE CHANGED.

ggg

LOCATION

DEFARULT CONTENTS

336
gg?

RIX06 auss ADDRES
CONTROL gNT RR¥PT VECTOR

264
1314

177440
210

330
4]
32

P_GLOCK
ot1 BUFFER
P-CLSSK sEno
gur?sn

1352
135q

175248
173844
177546

CINTR LL R

1316

343
344

L-CLOCK STRTUS RE
L-CLOCK INTERRUPT VECTOR
P-CLOCK INTERRUPT VECTOR

346

TTY KB BUFFER

1146

TTY PRINTER BUFFER

11582

345

TTY KB STATUS REG

347

TTY PRINTER STATUS REG

333

350

1326
1330
1332

11494

1150

ggé

4.0

OPERATING PROCEDURE & CONTROL FUNCTIONS

353
ggg

4.1

PROGRAM LORDING

35k
357
3Eé

363

ggg

100
104

1775860
177562

177564

177566

THE PROGRAM CAN BE LORDED FROM PAPER TAPE USING STANDARD
PROCEDURE FOR RBSOLUTE LOADER TAPES; OR FROM ANY MEDIA

358

240

SUPPORTED BY XXDP.

4.1.1

LOAD THE STARTING RDDRESS (SEE SEC 4.2).

4.1.2

SET SWITCH REGISTERS AS DESIRED (SEE SEC 4.3).

366

NOT TO 555950 nu§§ HSVE BOTH th?g ogsfiLgtggb.

CZREHEO_UNIBUS RK& DR_PRT]

CZREHE.P11

25-JAN-78 12:00

MACY11 30A(1052)

371
372

25-JAN-78

NOTE:

373
374
375
376

101

12:08

PAGE 8

SEQ D008

THE DRIVE WILL NOT RESPOND TO THE ’START SPINDLE’
CMD_IF THE RUN/STOP SWITCH IS IN THE *STOP’

POSITION.
4.1.4

i
PRES3

*START’

378
379

THE PROGRAM WILL IDENTIFY ITSELF_AND WILL BEGIN
A
DIALOFUE WITH THE OPERATOR TO DETERMINE DRIVES TO BE TESTED

382
383
384
385
386

THE PROGRAM BEGINS TESTING ONLY THOSE DRIVES SPECIFIEQ Bv
THE INPUT DIALOGUE.
IF
A SPECIFIED DRIVE CANNOT BE FOUND BY
THE PROGRAM IT WILL BE FLAGGED AS
AN ERROR THAT THE DRIVE
MRS NOT AURILABLE-~ THEN-BECINNING WITH THE LOWEST NOMERICAL
DRIVE AND PROCEEDING IN SEQUENTIAL ORDER, ALL VALID DRIVES

388
389
330

PERFORMED ON EACH DRIVE BEFORE _MOVING TO THE NEXT DRIVE
IN SEQUENCE.
THE DRIVE TO BE TESTED WILL BE TYPED AT THE
BEGINNING OF EACH PASS.
“END OF PASS” WILL BE TYPED AFTER

380

(SEE SEC 4.5).

387

391
332
393
394
395
3%

WILL BE TESTED.

ONE PRSS THROUGH THE TEST SEQUENCE WILL BE

TESTING ALL DRIVES.

4.2

STARTING LOCATIONS

338

LOCATION 200 -~ STARTING ADDRESS TO DEFAULT THE BUSS

403

NOTE:

399
400
401

ADDRESS & THE CONTROLLER INTERRUPT VECTOR
& TEST ALL DRIVES IN THE ’DRIVE PRESENT’
CONDITION.

THE DRIVE PRESENT CONDITION IS:

405

407

406

408

HEADS MANUALLY LOADED
CORRECT PORT SELECTED

WRITE LOCK DISABLED

ORIVE READY INDICATOR ON

410

LOCATION 204 - SAME RS 200 START BUT BYPASS TEST 16 (N SQUARE)

412

LOCATION 220 - STARTING ABDRESS TO INPUT TESTING PARAHETERS

41z

LOCATION 230 - SAME RS 220 START BUT BYPASS TEST 16 (N SQUARE)

419

LOCATION 260 - RUN MODULE TEST ...DEFAULT MODE_ONLY.

413
414
415

420
422

423
42k

425

VIR THE INPUT DIALOGUE.
BUSS ADDRESS &
CONT. INTERRUPT VECTOR INPUTTED ONLY ON
IST PRSS.

THIS SKIPS OVER THE FOLLOWING TESTS:
1.

TEST 35

FORMAT PACK

TEST 4l

SEEK FROM CYL 410 TO ALL

2.
3.

TEST 36
TEST 40

DECREMENT FROM CYL 410 TO O & READ HERDERS
SEEK FROM CYL 0 TO_ALL

CZREHED UNIBUS _RKE DR_PRTI
CZREHE .P11
25-JAN-78 12:00

MACY11l 30A(1052)

25-JAN-78

JO1

PAGE 9

12:08

SEQ 000S

THE PURPOSE OF BYPASSING IS TO PROVIDE

A QUICK MODULE TEST

LOCATION 270 - SAME RS 260 START BUT BYPASS TEST 16 ALSO.
IMPORTANT:

FOR VARIATIONS OF THE ABOVE

SEE XXDP

CONSIDERATIONS IN SECTIONS 3.2 8 3.3.
ALSO,

ACT/APT

THE PROGRQ"EE%EL DETERMINE WHETHER

THE ORIVE TO BE
T

D_IS AN RKOb6 OR RKO?7.

OPERATOR INPUTS RARE NOT REG’D.

4.3

SWITCH REGISTER

THE SWITCHES ARE USED TO PROVIDE CONTROL FUNCTIONS.
SWITCH
15
14

HALT ON ERROR
LOOP ON TEST

10
9
8

BELL ON ERROR
LOOP ON ERROR
LOOP ON TEST IN SW«07:00>

13
12
11

4.3.1

FUNCTION

INHIBIT ERROR TYPEOUT
BYPRSS DRIVE QFTER 20 ERRORS
INHIBIT ITERAT

SW¢15)>

THE PROGRAM HALTS ON ENCOUNTERING AN ERROR,
THE ERROR MSG _AND PERTINENT INFORMATION

AFTER TYPING OUT

PRESSING “CONTINUE* CONTINUES OPERATION OF THE PROGRAM.
4.3.2

SW<CLHY

THE PROGRAM LOOPS ON THE TEST THAT IS BEING EXECUTED WHEN
L?%HsgaIgH IS PUT ON.
THIS SWITCH IS NORMALLY USED ALONG

4.3.3

SW1D

THIS SWITCH INHIBITS ALL _ERROR MSGS.
NORMALLY USED WHEN
LOOPING ON TESY (SWi4) OR_LOOPING ON ERROR (SWS?
WITH SWITCH <13> SET, SWITCH <15> SHOULD NOT BE SET.
4.3.4

SuWdla»

THIS SWITCH BYPASSES A GIVEN DRIVE RFTER 20 ERRORS HAVE

CZRGHED UNIBUS RKB DR PRTI
CZREHE . P11

2S5-JAN-78 12:00

MACY1l 30A(10S2)

483
48S

:g%

4.3.5

488

493

:gg

498

gig

NORMALLY AFTER THE

CASES).

SETTING THIS SWITCH INHIBITS

ITERQTIONS 's0 THAT QUICK PASSES CAN BE MADE.
4.3.6

SW<10»

RINGS A BELL ON ERROR.
4.3.7

USEFUL WHEN ERROR TYPEOUT IS INHIBITED.

SW<O

THIS SWITCH PROVIDES THE TIGHTEST PQSSIBLE SCLPE LOOP FOR
ERRORS.
IF THE PROGRAM DETECTS AN ERROR, IT WILL LOOP BRACK

TO THE BEGINNING OF TEST.

4.3.8

S08
509
S10
S1l
gig
514

SEQ 90010

EACH SUBT EST IS ITERATED A NUMBER OF TIMES

USURLL 50 S IN SOME

=19}
S0e

383
SosS

PAGE 10

SW<1D»

FIRST PRSS,

:gg
ggg

12:08

EACH TEST WILL BE EXECUTED ONLY ONCE.

489

:gé

2S-JAN-78

BEEN DETECTED.

484

490

KOl

SW«08>

THIS SWITCH IS USED TO SELECT
AR PARTICULAR TEST (RS PER
SW<00-7>) FOR EXECUTION AND SUBSEQUENT LOJPING.
THUS IF
TEST 1S IS TO BE SELECTED THE SWITCH SETTING WOULD BE
00041S.
IT SHOULD BE NOTED THART BEFORE SELECTING & LOOPING TEST 1S,
ALL THE PREVIOUS TESTS (i-14) WILL BE EXECUTED.
4.4

'SOFTWARE®

SWITCH REGISTER

517
Si8
519
520

IF THE PROGRAM IS BEING RUN ON R SWITCHLESS PROCESSOR (I.E. AN 11/04 OR 11/34)
THE PROGRAM uILL ?ETERM%NETHAT THE HARDWARE SWITCH REGISTER IS
NOT PRESENTAND WILL USE A 'SOFTWARE®' SWITCH REGISTER.
THE
'SOF TWARE ' SHITCH REGISTER IS LOCARTED AT LOCATION 176 (8).
THE

522
523
524
ces

A KEYBOARD ROUTINE WHICH IS CALLED BY TYPING A 'CONTROL G’.
THE PROGRAM HILL RECOGNIZE THE 'CONTROL G’ AT ANY TIME EXCEPT
WHEN THE PROGR IS AT A HIGHER PRIORITY PROCESSING AN RKO6 INTERRUPT.
THE 'SOFTNRR; SWITCH VALUES RARE ENTERED RS AN OCTAL NUMBER

521

SETTINGS OF
T

gsg

IN RESPONSE

ggg

530

63l

532

gga

g3¢

536
g37
g38

“SOF TWARE” SWITCHES RARE CONTROLLED THROUGH

TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE:

SWR = NNNNNN

NEW =

EACH TIME SWITCH SETTING QRE

NTERED,

RECISTER IMAGE MUST BE ENTERED.
REQUIRED.,

THE ENTIRE SHITCH

LEADING ZEROS ARE
N

’'RUBCUT' AND ’CONTROL U’ FUNCTIONS MAY BE USED T0

CORRECT TYPING ERRORS DURING SWITCH ENTRY.

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS,

THE ’'SOFTWARE’

SWITCH REGISTER MAY BEUSED. IF THE PROGRAM’ FINDS ALL 16
SWITC S IN THE 'UP’ POSITION, ALL SWITCH REGISTER REFERENCES
WILL BE TO THE 'SOFTWARE’ REGISTER AND THE PROCEDURES DESCRIBED

CZREHED UNIBUS RKE DR _PRT]
CZRBHE.P11

25-JAN-78 12:00

MACY11l 30AR(1052)

gag
S41

E:g

25-JAN-78

LO1

12:08

PAGE 11

SEQ 0011

RBOVE MUST BE FOLLOWED.
4.5

INPUT DIALOGUE

S4y4
545
S46

THE DIALOGUE WILL BE DONE INTERACTIVELY.
_THE PROGRAM WILL
REQUEST A PARRAMETER BY CONSOLE TYPEOUT.
THE PARAMETER MAY
THEN BE ENTERED RS SPECIFIED BELOW OR ALLOWED TO DEFAULT

égg

THEN BE ENTERED.

SS1

IMPOGRTANT:

54?7
c48

Y A CARRIAGE RETURN.
UNRECOGNIZED OR 3thGRt RES
PENSES WILL
E_ECHOED BACK FOLLOWED BY7.
HE PR
RESPONSE MAY

ggg
5S4

ggg

4.5.1

ggg

FOR VARIATIONS OF THE ABOVE

SEE XXDP ACT/APT

CONSIDERATIONS IN SECTIONS 3.2

DRIVE SELECTION
THE REQUEST WILL BE:

Egg

DRIVES TO BE TESTED:

Sé

THE _DEFAULT RESPONSE IS CARRIAGE RETURN TO TEST ALL DRIVES

564
565
Eg;

THE OPERATOR CAN ALSO TYPE IN THE SPECIFIC DRIVE NUMBERS
70 BE TESTED, SEPARARTED BY COMMAS & TERMINRTED BY R CARRRIRGE
RETURN.

223

IN THE ’*DRIVE PRESENT'

ggg

E.G.

570

IMPORTANT:

g;é
573

g;g

4.5.2

g;g

4.5.3

BUS RDDRESS

CONTROLLER INTERRUPT VECTOR

TYPE IN CONTROLLER INTERRUPT VECTOR IF NOT 210

ggg

594

SEE XXDP ACT/APT

THE REQUEST WILL BE:

ggg

FOR VARIATIONS OF THE ABOVE

CONSIDERATIONS IN SECTIONS 3.2

THE DEFAULT IS R CARRIAGE RETURN

ggg

3
)

1,2,4,6

TYPE IN BUSS RDDRESS IF NOT 177440

Eg?
gga

DRIVES TO BE TESTED:

THE REQUEST WILL BE:

g;g

see

CONDITION.

THE DEFAULT IS A CARRIAGE RETURN.

Y.5.4

EXAMPLE OF PROGRAM DIALOGUE
THE EXAMPLE SHOWN IS FOR A PROGRAM STARTED AT RDDRESS 220.

CZRBHED UNIBUS RK®& DR PRTI

CZRE6HE .P11

25-JAN-78 12:00

MARCY11l 30A(10S2)

ggg

2S5-JAN-78

MO1

12:08

PARGE 12

SEQ Q012

ALL OPERATOR RESPONSES RRE UNDERLINED.

UNIBUS RKO6-RKO? DRIVE DIARGNOSTIC

S98
593

PART 1
CZRBHED

Efié

DRIVES TO BE TESTED: 1,3¢CR>

603

ggg

TYPE IN BUSS ADDRESS IF NOT 177440 <CR>

606

ggg

TYPE IN CONTROLLER INTERRUPT VECTOR IF NOT 210 <CR>

609

610

WILL TEST DRIVES:

ble

gig

DRIVE 1

gi%

(THE REST IS IDENTICAL TO THE EXAMPLE SHOWN IN 4.6 BELOW)

bll

613

618

Eég

62l
ggg

4.6

PROGRAM EXAMPLE

THE FOLLOWING IS AN EXAMPLE OF A PROGRAM STARTED AT THE
DEFRULT ADDRESS (200) & WITH 2 DRIVES ON THE LINE.

UNIBUS RKO6-RKO7 DRIVE DIAGNOSTIC

628

WILL TEST DRIVES:

632

DRIVE O

e34

DRIVE SERIAL NO.

637
638

DRIVE

639
g:?

DRIVE SERIAL NO. CCC
CARTRIDGE SERIAL NO. DODD

END PRSS #1

64S

WILL TEST DRIVES:

649

DRIVE O

e2S
gs%
6e9
630
631
633

ggg

643
64y
b4
B4
648

PART 1
CZRBHED
0
1

RAAR

CARTRIDGE SERIAL NO.

BBB

0
1

CZREHED UNIBUS_RKG& OR_PRTI
CZREHE .P11
25-JAN-78 12:00

25-JAN-78

MACY1l 3CA(10S2)

NO1

12:08

PAGE 13

SEQ@ 0013

DRIVE 1

END PRSS 8 2
\ETC)

THE RABOVE RASSUMES NO ERRORS DETECTED.
THE NUMBER 7F PARSSES IS DETERMINED BY RCT/APT/XXDP

IMPORTANT:
4.

FOR VARIATIONS OF THE RABOVE,

SEE XXDP,

CONSIDERATIONS IN SECTIONS 3.2 8 3.73.

RCT/APT

HALTING THE PROGRAM

THE PROGRAM PROVIDES A METHOD OF HALTING ITSELF SUCH THRT
THE CARTRIDGE AND/OR DRIVE IS NOT LEFT IN ON UNDETERMINED

STRTE;

IE:

HERDS UNLOARDED OR INVALID FORMAT.

TO PROPERLY HALT,

TYPE CONTROL-C

(tC) ON THE CONSOLE.

IF _HEADS ARE LORDED & F RMATTING IS VALID,

THE PROGRAM WILL:
i .
e.
3.

ECHO ¢C
TYPE “CPU HALTED"
HALT THE PROGRAM

IF HERDS ARE NOT LOADED AND/OR FORMARTTING IS INVALID,

THE PROGRAM WILL:
1.

ECHO

DO _THE TEST(S) gHfif LOADS HERDS AND/OR FORMATS

TYPE 'CPU HALTED’
HALT THE PROGRAM

TYPE 'HALT PENDING,

PLERSE WRIT’

NOTES:

THE ABOVE EXAMPLE IS FOR THE PROGRAM RUNNING IN DUMP
MODE (MANUAL).
IF THE PROGRAM IS RUNNING IN CHAIN/RUTO
MODE VIA XXDP,ACT,APT;
IT WILL FIRST LOAD HEADS

AND/OR FORMAT CORRECTLY,
IF REQ'D, THEN IT WILL
%HEEES"IP THE MONITOR WHERE THE NEXT PROGRAM CAN BE
THE TYPEOUTS WILL BE “ABORT PENDING - PLERSE WAIT"
&
"PROGRAM ABORTINGTM

OPERATING THE 'CONTINUE’

SWITCH ON THE CPU CONSOLE WILL RETURN THE

PROGRAM TO TEST | WHERE TESTING WILL BEGIN WITH THE 1’ST DRIVE RGRIN.

,
m
m
m

CZR6HED UNIBUS RKe& DR PRT1
CZREHE.P11
25-JAN-78 12:00

25-JRAN-78

30A(10S2)

BO2

12:08

PAGE

SEQ 0014

5.0

DRIVE DIAGNOSTIC FUNCTIONAL DESCRIPTION

5.1

GENERAL

BRSIC CONTROLLER TESTS,

SIZING & SETUP

THESE TESTS DO BARSIC CONTROLLER REGISTER REFERENCE TESTS

Pt Pt Pt Pt Pt Pt

NN
N NNNNNN NN
s P Prs Pt (o]=)
SoONCNLWh—0O Veleo)

707

MACY1l

CHECKS OPERATOR_INPUTS AGAINST DRIVES SEEN ON THE LINE OR
DEFRULTS TO TEST QLL THE DRIVES SEEN 2N THE LINE.
I
TIM?E% TEETEXISTENCE OF AN
L OR P CLOCKS FOR USE IN THE
B.

7e0

STATIC 8 CYCLE UP TESTS

THESE TESTS CHECK OUT THE ABILITY TO SELECT 8 DESELECT

THE DRIVE
UNSAFE, AND FAULT CONDITIONS
NITH
THE CRIVE DETECT
READY PARITY,
TO OPERATE
BUT WITHOUT THE SPINDLE
THE ENTIRE POWER UP SEQUENCL. IS TESTED BY VERIFYING ALL

STATUS BITS SET/RESET IN PRUPER SEQUENCE:
THE BRUSH
CYCLE INNER-QUTER LIMIT DETECTION, FORWARC, REVERSE,

PIP.. ETC STATUS BITS ARE CHECKED.
C.

SEEK,

WRITE HERDER,

RERD HERDER TESTS

THESE TESTS CHECK THE ABILITY OF THE DRIVE TO DO SEEKS,
HERDER OPERATIONS & 20, 22 SECTOR FORMATTING.
5.2

TEST DESCRIPTIONS
3836 36 36 36 36 36 36 3 38 36 36 36 36 36 36 36 3636 36 36 36 36 36 38 3 36 3 36 36 36 3 3 36 3 36 3 36 36 36 3 3¢ 36 36 36 3¢ 36 36 36 2636 3 36 36 06 36 36 36 2 3 36 3 3 2

BASIC CONTROLLER TESTS,

BEEME € REIII NN
TEST 1

SIZING & SETUP

R¥

REFERENCE ALL CONTROLLER REGISTERS
THIS TEST VERIFIES THRT ALL THE CONTROLLER REGISTERS

CAN BE QCCESSED

THE INABILITY

TO BE RC ESSED NILL

RESULT IN_A TIMEOUT TRAP WITH_
AN ERROR
MSG.
ERROR IN THIS TEST WILL RESULT IN RBORTING ALL OTHER
TESTS AND JUMPING TO
'END OF PRSS’
TEST 2

SIZE THE BUSS

THIS TEST IS ENTERED ONLY IF ’*DRIVE SELECTION' 1S DEFRULTED
gégflgR
B8Y EUNNING IN THE AUTO MODE OR
A 200 START IN THE
EVERY DRIVE FROM O THRU 7 IS ADORESSED.
CONTROLLER ERROR (CERR) IS EXAMINED RND_IF _NOT SET,

DRIVE
WILL BE TESTED AS AN RKO6. IF SET, THE PROGQRH WILL BYPRSS
TESTING THAT DRIVE ONLY iF THE ERROR WAS'A RESULT OF
MDS,

UFE OR NED BEING SET;

OR BOTH NED 8 DRR RESET

THE

IN-

CZREHED UNIBUS RK6 DR PRT!

CZREMHE.P11

25-JAN-78 12:00

MACY1l 30A(10S2)

@2S-JAN-78

763
;gg
766

;gg

co2

12:08

PARGE 15

SEG 001S

DICATING THE OTHER PORT IS ACCESSED.
IF CERR DUE TO DTYE, THE DRIVE WILL BE TESTED RS AN RKO7.

TEST 3

;?g

VERIFY OPERATOR DRIVE SELECTIONS
THIS TEST
ISEENTERED£:NLY
IF DRIVE SELECTION
ég
NOT

77
;;3
44
;g;

RgRung E H% 6315“XQMLé"fiEtstNSs
Zg
THE
S,.S-NTngh LEZLE
N RKOB
NLY ISRzG2 BRROR
WAs AREEULT 5k DS OR OFEE SET OR BOTH
NES
ONLY, Rf‘is$H£8N§
8cnxm e CERButTe0" 1REGH
10

;;g

IF CERR DUE TO DTYE,

780

385

TEST 4

784
78S

FIND NEXT DRIVE TO BE TESTED

EE‘EJES}N”"S%J“‘ N NPa 1S SET 16 COT TF DRIVE IS RKO?
HBOB
8LL3N?NG TE§§S THEDS?VE TEg éo I%
)

;S%
;gg

THE DRIVE WILL BE TESTED AS AN RKO?.

TEST S

790

OSE ADDRESS 1S IN'

UNLORD DRIVE TO BE TESTED
THIS TEST UNLOPDS THE DRIVE TO BE TESTED
N

791
792

WAITS
FOR
VERE
6E3K ITTO CAME
FROM THE COQRECT DRIVE.
IT THEN HRITS FOR
SPEE
GO LOW BEFORE

795
796
797

3696 36 36 96 36 36 36 36 36 36 38 36 36 36 36 3638 96 36 38 96 36 36 36 36 36 36 36 36 36 36 36 96 36 36 36 36 38 16 36 36 36 36 36 26 36 36 36 36 36 6 36 36 36 36 36 26 36 36 36 36 36 3 %
STATIC & CYCLE UP TESTS

;ga

;gg

800

ggé

PROCEEDING TO THE NEXT TEST.

3636 36 36 36 36 36 36 36 36 36 36 36 3636 36 36 36 36 36 36 36 36 36 6 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 34 36 36 34 36 34 36 36 2 3
TEST 6

803

CHECKS THE ABILITY TO REFERENCE ALL

ggg
806

ggg

DRIVE REGISTERS AND THAT THEY CONTRIN CORRECT STATUS.
TEST 7

[ wiwietetetwdates

mNTnNLwWw—0O

809

Loofeofealunlueloalooloo]lsal

REFERENCE & CHECK ALL STATUS BYTES IN RKMR2 & RKMR3

PRINT DRIVE SERIAL NUMBER
THIS TEST READS 8 PRINTS THE DRIVE SERIAL # FROM MSG R,
IN DECIMAL 3 IS PERFORMED ON THE 1ST PASS ONLY

TEST

10 SET VV WITH PRCK CMD

IF Vv IS RESET,
TEST

RELERSE DRIVE

THE PACK CMD IS USED TO SET IT.

WORD 11

CZREHED UNIBUS RK& DR PRTI
CZRBHE .P11
25-JAN-78 12:00

MACY11l

30A(10S2)

§é§
gga

gga

PRGE

SEQ 0016

TEST 12 DRIVE TYPE TEST

825
ggg

831
832

12:08

TESTS THE ABILITY TO RECOGNIZE THE RLS BIT AND NOT RAISE SACK

822

828
ggg

Da2

25-JAN-78

THIS TEST COMPARES DRIVE TYPE IN MSG A AGAINST ’DDT’
WRONG CDT IN RKCS1 IS SENT 8 ERRORS RRE VERIFIED.
)

IN RKDS.

TEST 13 C-D PARITY ERROR DETECTION

TESTS THE RBILITY or THE DRIVE TO DETECT EVEN PRRITY SENT BY
THE CONTRO!
"PAT’ ON RKMR1
TH
BRIVE
9088 N£TH
'C- ? PARI rv ERROR’

LL E

0 THE CONTROLLER WHICH IS NOW

835

gusgxang gg gv;n gnRITv THEREFORE THE CONTROLLER SHOULD DETECT

ggg

THE ERROR CONDITION IS RESET WITH THE CLERR CMD

836

839
339

TEST 14 VERIFY START SPINDLE CMD

842

THE PROGRAM cuecxs THE ENTIRE srnnrup SEQUENCE,

823
845
ggg

848

IE:

95“3“R%E§§
TRT H?cg i1TS E FOR
PROPER SEQUENCING ’
? E
33n L 3 RPP
CYL DIEFEEENCE
CHECKED
TO BE ZERO nT THE

END OF THE SEQUENCE

3636 36 36 36 3 35 3 36 36 3 36 3 3 3¢ 3 36 36 36 36 3 3 36 3 3 3 3 9 3 3 3 3¢ 3 3 36 3 3 3 3 3 3 3 3 3 3 3% 3 3 3 3 3 3 2% W

W 3 3 3 3¢ 3 X % % %

85
ggé

SEEK/RERD HEADER/WRITE HERDER TESTS
336 36 36 3 36 36 36 3 38 3¢ 3¢ 36 36 3 34 3 3% 36 36 3 3 36 36 36 36 6 6 36 3 36 3 3 36 36 3 3 36 36 3 3 3 3 3¢ 3 3 3 3 36 3 3 3¢ 3 3 3% 3 3 3 3¢ 3 3 3 3 2% %

853
ggg

TEST

1S STRTMIC CYL DIFF AND CYL RDDR REG TEST;

PART

823

%S ePOBKEELSGERTEBAL B pEReBRIRGTMSEERS
ho At

ggé

THAT HERDS DID NOT MOVE & nLL OTHER RPPLICRBLE STATUS BITS & REGS

828
323

‘8 T HéEKING
THt?H
#RE $E§§i
ENR¥E?)R
REG]STER
cHRELSNSIFH&
VEE51$H£$¥ ;ARITY
ERRO ov E
%

863

ggg
866

867

TEST 16 STRTIC CYL DIFF 8 CYL RDDR REG TEST-PART 2
.

THIS TEST CHECKS THE RBILITY OF THE DRIVE TO PROPERLY ssr THE CYL

DIFF.

868

ggg
871

ggg
874

& CYL ADDR REGS FOR ALL COMBINATIONS BY SEEKING TO

ALL éYLS FROM EVERY OTHER CYL.

(N SQURRE SEEKS)

IT 1S PERFORMED IN THE SAME MANNER RS THE ABOVE TEST.

TEST

17 HERD REGISTER TEST
THIS TEST CHECKS THE ABILITY TO SELECT ALL HERDS

(0,!,2)

CZR6HED UNIBI'S RK6 DR PRT!

CZREHE.P11

25-JAN-78 12:00

MACY11l 30A(1052)

25-JAN-78

EOe

12:08

PAGE 17

SEQ 0017

875
g;g

vVIA RKDA 8 READING BACK FROM MSG B3 BY THE SELECT DRIVE CMD.
HERD 3 1S CHECKED TO PRODUCE INV. RODODR.

878

SINCE CHANGING HERD ADDRESSES RRE TIED TO SEEK CMDS

879
880
ggé

883

ggg

886
887

888
ggg
891

SELECTING HEAD 3 MUST RESULT INA SEEK INCOMPLETE ALONG WITH
ILLEGAL RDDRESS. IF NOT,THIS MEANS THAT CHANGING HEARD noonessss
ARE NOT TIED TO SEEK CMOS
TEST 20 SEEK TO CYL O

TESTS THE ABILITY TO DO R SEEK CMD.
VERIFIES THERE WAS NO MOVEMENT BY CHECKING ALL APPROPRIATE
STATUS BITS.
VERIFIES CMD COMPLETION BETWEEN 10-1SUSEC.
READ HERDER IS NOT PERFORMED RS THE PACK MAY NOT BE FORMATTED.

ggg

TEST 21 TEST SECTOR COUNT REG. FOR 22 8 20 SECTOR FORMAT

ggg

TEST 22 DETECT OUTER LIMIT

894

897
838
ggg
901

ggg

THIS TEST VERIFIES THAT THE ABOVE TEST DID ACTUALLY POSITION ON CYL O
BY DETECTING OUTER LIMIT AS THE ADJACENT CYL.
AN ERROR IN THIS TEST INDICATES:

AND/OR

HEADS WERE NOT ON CYL O

COULD NOT SEEK IN REVERSE DIRECTION.

904

308
385

[VeIVo IV s IV o RV o IV o IV o RV ¢ IV o BV 19 o}
L) = Dt Pt Pt ot Pt Pt Pt ot e
OoONCNLWh—0O

921

See
gga

925

ggg
928

3923

TEST 23 BASIC WRITE/RERAD HEADER
& HEAD SWITCHING TEST
THIS TEST CHECKS Hsno SWITCHING BY unxrxnc UNIQUE HERDERS
ON EACH TRACK OF CYL
READING BACK
8 VERIFYING THEY REMRINED

UNIQUE. 22 SECTOR roanhr IS USED
I.E.

TRACK O:

TRACK 1:
TRACK 2:

ALL 0’S FOR ALL SECTOR HEADERS

0101 FOR _ALL SECTOR_HEADERS
ALL 1'S FOR ALL SECTOR HERDERS

TEST 24 BRSIC WRITE/RERD HEADER TEST;

USING HERD

1’'S,

20 SECTORS

WRITE 8 RERD 20 SECTOR_HEADERS BY NRI&%N?
ALL

1°S RS HEADERS.

THEY RRE NO
FINDING 0'S

ALL

ATTEMPT TO FIND SECTORS 20 & 21

ONGER THERE BY READING 22 SECTORS AND NOT
RS DATR FROM THE PREVIOUS TEST.

TEST 25 WRITE & READ HERDERS CYL 0O,

HERD O

TEST 26 SEEK FROM CYL O TO 1 ' REARD ''ERDERS

CZR6EMEO UNIBUS_RK& DR_PRT!

CZRBHE.P11

25-JAN-78 12:00

MACY11l 30A(1052)

@25-JAN-78

FO2

12:08

PAGE 18

SEQ 0018

931

THIS TEST CHECKS MSG & B WORDS 0,1,2 FOR CORRECT STATUS AFTER RDY

Q34

THAT THE HEADS ARE ACTUALLY MOVING
& THE CyL DIFF IS 1.
AFTER_ATTN IS RECEIVED, CERR IS EXAMINED FOR ANY ERRORS.

ggg

IN MSG B2 IS VERIFIED TO BE 1.

932
933

IS RECEIVED FROMA SEEK CMD TO DETQ AIN

935

CYL DIFFERENCE IN MSG A2 IS VERIFIED TO BE O & CYL ADDR

938

HERDERS ARE READ FROM 1 SECTOR,

gag
941

g:g

TEST 27 WRITE & READ HEADERS CYL 1,

g4y

g:g

947

948

ggg

THIS TEST DOES A RECALIBRATE 8 READS HEADERS.

IT VERIFIES THAT WRITING HEADERS ON CYL ! FROM THE PREVIOUS

TEST DID NOT OVERWRITE CYL O HERDERS.

AN ERROR IN THIS TEST INDICATES THAT HEADS:

953

954

ggg

957

ggg

MOVED TO A_CYL OTHER THRN 1|

B. DID NOT GET BRCK TO CYL O

TEST 31 SINGLE INCREMENT SEEKS TO THE LAST CYLINDER

360
361

THIS TEST DOES SINGLE INCREMENT SEEKS QUT TO THE LAST CYL
WITHOUT ANY WRITING OR RERDING SO RS NOT TO INRDVERTENTLY

DESTROY DATR.

ggg

TEST 32 RERD & SAVE BAD SECTOR INFO & TYPE PRCK SERIAL #

967

972

HEARD O

TEST 30 TEST RECALIBRATE CMD & RERD HEADERS

ggé

970
971

HEARD O 8 VERIFIED THAT THEY ARE

DIFFERENT FROM CYL O TO SHOW THAT THE HEADS DID ACTUALLY MOVE.

THIS TEST VERIFIES THAT CYL 632 (1456 FOR_RKO?

TRQCK € CAN BE RERD.

AT
THIS ??fié 0 HflSK FG#URERREESF_ARFTER
QO&
8$fl ERROR PRINTOUTS
IF BSE INFO C
RERDING THE BSE INFO
IT IS DETE

QNIGNHENT CRRTRIDGE IS USED,

973
974

A MSG WILL BE
YPED INDICATING
THAT ALL
FUTURE FORMAT AND RERD-WRITE TESTS WILL BE BYPASSED.

g;g

THE PARCK SERIAL # IS TYPED IN OCTAL 3 FOR THE FIRST PRSS ONLY.

ggg

THIS IS THE FIRST TEST WHERE THE READ DRTAR CMD IS PERFORMED

g;g

981

ggs

384
985

386

THIS IS DONE SO RS NOT TO DESTROY BSE INFO OR AN ALIGNMENT PACK BY WRITI

TEST 33 DETECT INNER LIMIT

THIS TEST VERIFIES THART THE LAST CYL IN THE RBOVE
TEST WAS 632 (1456) BY DETECTING INNER LIMIT AS THE RBJACENT CYL.

IF THIS TEST FRILS,

IT INDICATES THAT HEADS WERE NOT ON THE LRST CYL

CZREHED UNIBUS_RKE DR_PRT1

CZRGHE.PI1

1001

Q
o

AVOID

DESTROVING

BBE INFO

AN ALIGNMENT CARTRIDGE

TEST 34 FORMAT PACK
TH}S TEST FORMATS THE
ENTIRE
PACK IN 22 SECTOR FORMAT BY
B8R
T
Cvi
OBNCREMENTAL
SAERS
FROM O TO 632 (1456) WITH WRITE MEADER CMDS (ALL TRACKS).
HERDERS WILL BE READ IN THE NEXT TEST

TEST 35 DECREMENT FROM LAST CYL TO O 8 READ HERDERS
THIS TEST VERIFIES MOTION IN THE NEGATIVE DIRECTION BY
SINGLE CYL INCREMENTAL SEEKS.
TEST 36 SEEK FROM CYL O TO ALL MAJOR CYLS & RERD HEADERS

MAJOR CYLS ARE:

(DECIMAL)

LW WLWIN N R RIMNIMI PI NUND P = b

(OCTAL)
4

8
16
32

e e e e

THIS TEST SEEKS FROM CYL O TO ALL THE MARJOR CYLS & READS HERDERS.
IT THEN SEEKS CYL O & RERDS HERDERS.

£
W W WG
[
0w
[81]

Y S

NI S

PN N N

1003
1004

SEQ 0019

SINCE THERE IS A SEEKING OR LIMIT DETECTION PROBLEM.

1000

PAGE 19

3%0

e e

Gde

12:08

3 THAT BSE INFO IS NOT VALID.
THE FORMAT PACK TEST
8 ALL READ-MRITE TESTS ARE BVPASSED

393
5
338
94

12:00

25-JAN-78

987
388
992

25-JAN-78

MACY1l 30A(1052)

10
20
40

EY4

100

128
256
§12

200
400
1000

(RKO7)

TEST 37 SEEK TO RALL CYLS FROM O & RERD HERDERS
TEST 40 SEEK TO ALL CYLS FROM LAST CYL 8 RERD HERDERS
TEST 41 SEEK TO ALL

INVALID CYLINDERS

THIS TEST VERIFIES THAT

’INV ADDR’

’'SEEK INCOMPLETE’®

PRODUCED 8 THAT HEADS DO _NOT MOVE OR UNLORD IF AN ILLEGAL
CYL IS SPECIFIED IN R SEEK.

INVALID CYLS ARE 633 THRU 777 (8)
& 1457 THRU 1777 FOR THE RKO?7

FOR THE RKO6

THE PROGRAM DOES NOT REQUIRE FORMATTED PACKS RS FORMATTING
IS PERFORMED IN ANY CRSE.

CZREHEQ UNIBUS RK& DR PRTI
CZREHE.P11
25-JAN-78 12:00

1043

1944
4g
1046

MACY1l

30A(1052)

25-JAN-78

HO2

12:08

PRGE 20

ANY TEST THAT
MODIFIES STANDARD FORMATTING IS FOLLOWED BY A
OLEAR
- UP 9EST
HOSE CYLS BACK TO STANDARD

FORMAT.

SEQ 0020

CZR6EHEO UNIBUS RKE DR _PRTI

CZRBHE.P11

25-JAN-78 12:00

MACY1l 30A(1052)

1048

25-JAN-78

102

12:08

1049

6.0

ERROR REPORTING

iggg

6.1

ERROR INTERPRETATION

1050
1051

PAGE 21

SEQ Q021

1054

WHENEVER AN ERROR MSG IS PRINTED OUT,

1056

MSG_R(00),

1055

f.L REGISTERS

AND OTHER DATA PERTQINING T0 THE ERRbR RRE ALSO GIVEN.

INDICATE THE
CONTENTS OF MSG
THE B(O1)
CORRESPONDiNGKBR.
REGISTERQ QT
THE TIME OF

1057

iggg

ERROR.

1060
1061
1062

EVERY ERROR MSG CONTAINS R PC.
THIS PC INDICATES THE
POSITION IN PROGRAM WHERE THE ERROR CALL IS LOCATED.
THE
ERROR MSG, BECAUSE OF PRACTICAL CONSIDERATIONS IS MADE

1064

PC IN THE PROGRAM LISTING, WHERE HE WILL FIND MORE_INFORMATION

1063

SHORT AND'MEANINGFUL.

1065

THE
USER IS ADVISED TO LOOK UP_THE

1066
1067

ABOUT THE ERROR.

IN MANY’ INSTANCES, A _SINGLE FARULT WILL
GIVE
RISE
TO
MORE
THAN
ONE ERROR RE#ORT A LITTLE DELIBERQTION
AND CRREFEL
EXRHINQTION OF THE DATA GIVEN WILL BE CERTAINLY

1071

MSGS ARE IN OCTAL.

1068
1069
1070

VERY
N PINPOINTING THE FAULT.
R _BRIEF _EXPLANATION
OF WHAT IS BEING CHECKED IN THE TEST IS GIVEN AT
THE
BEGINNING OF EVERY TEST.
ALL THE NUMBERS GIVEN WITH ERROR

1072

}g;g

NO ERROR LOGGING OR OPERATION HISTORY IS PROVIDED.

1077

ig;g

ERROR PRINTOUT EXAMPLES:
EXAMPLE

#1:

MSG _ARO_ERROR

AFTER START SPINDLE CMD & FWD SET
TEST NO.

000014 _ 016530
EXPECT
Al
RO
80
o1 3704
030144
500000

000001

101 744

000001

140144

RKCS1
040200

100000

RKCS2
000100

RKASOF
010000

RKER
000000

RKDS
000000

RKDC
000000

THE RABOVE EXAMPLE SHOWS EXPECTED & RCTUAL DATA FOR
MSG REGISTERS RO, BO, Al & Bl

MSGS R2,

B2 & B3 WILL B BE TYPED OUT onu ns

SET
IF
REQUIRED IF THE CYL DIFFERENCE/OFF
N

ADCRESS & HEAD 8 SECTOR OR INFORMATION 18 n vanaLE PRRAMETER

OF THE TEST.

CZREHEO UNIBUS_RK& DR _PRTI
Pt Pt Pt P Pt Pt Pt Pt Pt Pt Pt Pt P Pt P st Pt
Pt P Pt et Pt o Pt Pt Pt Pt st Pt Pt Pt P Pt Pt

Nttt b pe pe = = = = 0 OO OO O
OWONOUN L Wh—0OWwmD N £

CZREHE.P11

25-JAN-78 12:00

MACY1l 30R(10S2)

@25-JAN-78
EXAMPLE

JOe2

12:08

PRAGE 22

SEG 0022

#2:

NO_ATTN IN RKASOF
AFTER UNLOARD CMD
TEST NO.

000003

RKMR2
000144

014330

RKMR3
10000C

[

RKER
000000

RKDS
100101

END OF DOCUMENT

)

RKCS1
000206

RKCS2
000104

RKASOF
000000

CZREHEOD UNIBUS _RK& DR _PRT!
25-JAN-78

12 _0

MACY11l 30R(10S2)

25-JAN-78

12:08

PRGE 23

SEQ 0023

[

—

;

%% PGM REV 039

'NLIST
LIST
.ENRBL

CND,MC,MD

x®x

ME
RBS,AMA

; DEFINE SYSMAC MACROS

167400

00000!L

$SKR=

DEFINE SWITC H ES | S, 14 ,13,11,10,9,8

167400

$TN=

;SET FIRST TES T NO.

.TITLE

CZRG6HEO unraus Rks DR PRT1

'%DIGITAL EQUIPMENT CORP
: ®COPYRIGHT

(C)

1976,
1

;nnvnnno MASS. 01754

lPROuRRH BY GRRY PAPRZIAN

iTHIS PPOGRAM WAS ASSEMBLED USING THE PDP-11 MRINDEC SYSMARC
!PRCKQGE (MAINDEC-11-DZQRC-C3), JAN 19, 1977.

ol Y

]

GNNNO 0O RO O O NN

e ey Y e e oy e e e e e ey e e e e e

L ol o

£ ££ £££
££L£ £L L£LWWWWW
£ £ o 06

Y Sy Sy Py VY SOy DY WOy WPy APy SOy Uy Uy Wy Sy Wy GO SOy Sy WY SOy Wy GOy

[—

rm n

CZREHE.P11

KO2

SBfTL

OPERATIONAL SWITCH SETTINGS

SWITCH

;¥

I~
S
Sx
TM
T
S

SBTTL
;l

USE

HALT ON ERROR

14
13
12
11
10
9

LOOP ON TEST
Innxgxr ERROR TYPEOUTS
ABORT
DRIVE AFTER 20 ERRORS
INHIBIT ITERATIONS
BELL ON ERROR
LOOP ON ERROR

LOOP ON TEST IN SWR<7:0>

SUMMARY OF STRRTING LOCRTIONS

200

DEFAULT PARAMETERS

204

DEFRULT PARAMETERS & BYPASS TEST 16

260

RUN MODULE TEST VERSION-DEFAULT MODE ONLY BYPRSS

270

SAME AS 260’ START BUT BYPASS TEST 16 ALSO

;¥
;:
Iy
i

220
538

INPUT PARAMETERS
68??1 PARAMETERS & BYPRSS TEST 16
TESTS 35,36,40 & 41

s s Pt st e s Pt Dt s P Pt Bt Bt s s Pt Pt [

b bt bt b st e b e b = O ) O 0000000 VDODD DO ) 0O
00 MAD (D 00D GO0 N NN NN
OWVODNCN LW~ ODON N LWNH—OWDONCNLWN—OOO NN L WU—-OOONT [,
P d

MACY11l 30R(10S2)
2S-JAN-78
BARSIC DEFINITIONS

.SBTTL
go1100

LO2

12:08

CEQUIV

SEQ 0024

PRAGE 24

BRSIC DEFINITIONS

: #INITIAL ADDRESS OF THE STRCK POINTER ##%

&7AcK="

"EQUIV

1100

EMT, ERROR

IOT.SCOPE

1100 #xx

: s BRSIC DEFINITION OF ERROR CALL

::BASIC DEFINITION OF SCOPE CALL

; *MISCELLANEOUS DEFINITIONS

Be0812

000015
000200
177776

VERRY
CR=
18

1; ;CODE
¢ORF FOR
LINEZPEEO- T
FOR CARRIAGE RETURN

PS=

; ;

CRLF=

.EQUIV

PS,PSW

PIRQ=

177772

STKLMT= 177774

000000
880801

RO =

800085

000004
00000S
00000&
000007
000006
000007

000000
000040

DSWR=
DDISP=

_FOR CARRIAGE RETURN-LINE FEED

PROCESSOR STARTUS WORD

; ;STRCK LIMIT REGISTER
; ; PROGRAM INTERRUPT REQUEST REGISTER

; s HARDWARE SWITCH REGISTER
; ; HARDWARE DISPLAY REGISTER

177570
177570

;: *GENERAL PURPOSE REGISTERGEEFINIT&ENS
70
;.s
GENERAL
NE
GISTER

21:

RS:
RY4=

RS=
Rb=
R7=
SP=
PC=

EEEE“ERRL gigigrin

%S
%6
%7
%6
%7

; ; GENERAL REGISTER
NERRL R c{ TER
i
;3
GEN Rflb
GISTER
:1STACK
POINTER
: : PROGRAM COUNTER

PRY4=

200

000340

100000

&W15="

: 'GENERAL REGISTER

DEFINITIONS

;PRIORITY LEVEL 1
D PRIORITY LEVEL 2
P 'PRIORITY LEVEL 3

40
00
340

;;Pn{onpv LEVEL S
1PRIORITY LEVEL 6
:'PRIORITY LEVEL 7

100000

SW1d=
SWi3=
SWi2=
SWlf=
SW10=
SWoS=
SW08=
SW07=
SWob=

0000
20000
10600
4000
2000
1000
40O
200
100

SWo4=
SWo3=

20
10

SWi2=

;s PRIORITY LEVEL O

40
100
140

. ¥*SWITCH REGISTER”

SW0OS=

ggt REGIS¥ES

. ¥PRIORITY LEVEL

PR1=
PR2=
PR3=

P iGE

PRO=

PRG=
PRE=
PR7=

000004

; ;CODE

177776

177774
177772
177570
177570

nMU NN
wn LW

PR MNMN NPT RTVTIV N NNV TN U NN NUNIN0 T U PUNUNU = bt b bt prac e b

Bt s Bt Bt Pt Pt Pt ot Pt Pt Bt st Pt Pun Bt Pt s P Pt e Pt Pt Pt P Pt Pt Pt Pt ot Pt Bt o Pt P Pt Pt Pt Pt o Pt Pt Pt Pt Pt Pt et Pt Pt et Pt [

CZRBEHEO UNIBUS RK& DR PRT]
CZRBHE.P11
25-JAN-78 12:00

s SPRIORITY LEVEL 4

SWITCH DEFINITIONS

[02]
} =

192}
p=
o

I0TVEC= 20

PURVEC= 24
EMTVEC= 30
TRAPVEC=34
TKVEC=
60
TPVEC=
&4
PIRQVEC=240

W -LN0
OO

e o A M

]
il ol ol

[ o]

Dm0
X0 O WD

lalal

DDOQO%ODQO
O
VW
ENOCNDO

; ¥BASIC ° CPU”

.SBTTL

SEQ 3025

M) L =N
T

Attt

000D 0 D0 (D O A0 MU

Ll
e T T it o T
NOLDOMUW
LUV =4
€L
NtHuHRIEREN
RN
N ND

Do MDD om-+

mmmmmmmmMmmm

(000

0 T

0 M

1274

000004
0C0o010
000014
000014
000014
000020
000024
000030
000034
000060
000064
000240

s Pt Pt Pt P
Dt Bt

e Bt Pt Pt Pt Pt P

Pem

s Pt

000001

PAGE 25

éu 9, SW9

mm 0
)0
-< <

e Pt Pt

NNV
R YUYV nnry
~ NNNOOCOCCT
O
NNILILY
Wh-OpoNOCNLWu-0woo
o

5S4

€K€LCCLCLLLLLLS

CccCcccccc =
a0t =t 0t 0ttt
04 ———t

.EQU

12:08

m
<
m
O
Ol [1]
"
[y g
£0

Pt Pt o
B
s o
Pt Pt Bt

SWQi=
SWQ0=
mm
e Dt Bt B B B et Bt et et g Dt Pt 0 D4t MK hhhhhhh
LOODOOEO [»] o

000002
000001

n LN VoD
N
L LLLLELWWWWWW
un LWN—-ODDONOC
N L

e Pt Pt Pt Pt Bt

1230

25-JAN-78
MACY1l 30A(10S2)
BARSIC DEFINITIONS

OOOOPOOOOOAAAAA—AAA—AA
A~~~ ——O
CCCCCCCCCCOO0O00000000)
ket beie D

CZRE6HED UNIBUS RKb DR PRTI
CZR6HE.PL1
25-JAN-78 12:00

TRAP VECTOR RDDRESSES
;s TIME OUT AND OTHER ERRORS

;;B$§Eg¥$D AND ILLEGAL INSTRUCTIONS
: } TRRCE TRAP

: ; BRERKPOINT TRAP (BPT)
;;gnp g/gg}PUT TRAP (I0T)
e

#%SCOPE##

£EEMUL910¥R;§QP (EMT) #¥ERROR¥¥

i TTY KEYBOARD VECTOR

;3 JTY PRINTER VECTOR
PROGRAM INTERRUPT REQUEST VECTOR
’
e

RKO& CONTROLLER REGISTER DEFINITION

CZREHED UNIBUS RK& DR PRTI

CZREHE.PI11

25-JAN-78 12:00

1286

{Sgg

MACY11 30A(10S2)

2S-JAN-78

;

$BASE=177440

NO2

12:08

PAGE 26

RKO& CONTROLLER REGISTER DEFINITION

1289

000000

RKCS1=

;CONTROL AND STATUS REGISTER 1

1291
1292
1293

000004
000006
000010

RKBR=
RKDAR=
RKCS2=

4
b
10

;BUS ADDRESS REGISTER
; DESIRED TRACK SECTOR REGISTER
:CONTROL AND STATUS REGISTER 2

1290

000002

RKWC=

}WORD COUNT REGISTER

1294
1295
1296
1297
1298
1299
1300

000012
000014
000016
000020
000024
000026
000034

RKDS=
12
RKER=
14
RKASOF= 16
RKDC=
0
RKDB=
24
RKMR1= 26
RKMR2= 34

IDRIVE STATUS REGISTER
:ERROR REGISTER
TATTENTION SUMMARY AND OFFSET REGISTER
'DESIRED CYL REGISTER
:DATA BUFFER
:MAINTENANCE REGISTER 1
'MRINTENANCE REGISTER 2 (MSG LINE A)

igga

000032

RKECPT= 32

:ECC PATTERN INFORMATION

1301
1302

000036
000030

RKMR3= 3b
RKECPS= 30

s MAINTENANCE REGISTER 3 (MSG LINE B)
:ECC POSITION INFORMATION

{ggg

.SBTTL

CONTROL AND STATUS REGISTER 1 BITS (RKCS1:0)

i ggg

;

DRIVE CMDS

1309

000001

1315
1316

000015
000017

{SSé

000031

1310
1311
1312
1313
1314

1317
1318
1319
1320
1323

000003
000005
G00007
000011
000013

SELDRV= 1

PACK=
3
CLERR= §
UNLORD= ?
SRTSPL= 11
RECAL= 13

;SELECT DRIVE (GET STARTUS)

} PACK RCKNOWLEDGE
:DRIVE CLEAR
: UNLOAD
'START SPINDLE
:RECAL IBRATE

OFFSET= 15
SEEK=
17

i
OFFSET
; SEEK

WRTCHK= 31

‘WRITE CHECK

000021
000023
000025
000027

RODATAR= 21
WRDATA= 23
RDHEAD= 25
WRHEAD= 27

000001

GO=

BITO

{READ DATA
'WRITE DATA
'READ
HEADER
'WRITE HEADER AND DATR
GO BIT

1324
1325
1326
1327
1328

000100
000200
000400
001000
002000

1E=
RDY=
BR16=
BRi7=
CDT=

BITE
BIT?
BITB
BITS
BITiO

INTERRUPT ENABLE
CONTROLL R Rsnov
1BUS
16
1BUS RDDRES T 17
CONTROLLERvas TYPE (0=RK06, 1=RKO?

1330

010000

CFMT=

BITI2

: CONTROLLER onxve FORMRT (D=22 SECTOR,

CERR=
CCLR=

BITIS
BITIS

:CONTROLLER ERROR
: CONTROLLER CLEAR

.SBTTL

CONTROL AND STATUS REGISTER 2 BITS (RKCS2:10)

1329

1331
1332

1333
{ggg

004000

020000
040000

100000
100000

{ggg
1338

000007

i340

000020

1333
1341

€T0=

BIT11

DCPAR= BITI13
DI=
BITIY
DRVMSK= 7

:CONTROLLER

1=20 SECTOR)
:SERCON
PARITY
ERROR
DETECTED
BY
CONThOLL
'DRIVE INTERRUPT

:MASK FOR DRIVE SELECTION CQODE

000010

RLS=

BIT3

:DESELECT OR RELEARSE DRIVE IN BITS 0-2

000040

SCLR=

BITS

1SUBSYSTEM CLERR CONTROLLER AND ALL DRIVES

BAI=

BITY

SEQ 0026

:BUS ADDRESS INCREMENT INHIBIT

e ol

——

CZRBHED UNIBUS RK& DR PRT]
CZRBHE.P11
25-JAN-78 12:00

000001
000002
0c0oQ04

100000

wwwwwwwgwwwuwwww

s Pt P Pt

Wl
unnn

_—' R

<ty
S
Sy,

BA3

30A(10S2)
25-JAN-78
12:08
PAGE 27
CONTROL AND STARTUS REGISTER 2 BITS (RKCS2:10)

BITE

; INPUT _RERDY

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

BIT?
BIT8
BITS
BIT1O
BIT1l
BITl2
BITI13
BITI1Y
BITIS

.SBTTL

ERROR REGISTER BIT DEFINITION

ILF=

BITO

; ILLEGAL FUNCTION CODE

BITS
BIT6

,0 IVE 1YPE ERROR
;ECC HARD

SKI=
NXF =
DRPAR=
FMTE=

BIT1
BIT2
BIT3
BITM

BSE=
HVRC=

BIT?
BIT8

DTYE=
ECH=

e ot
Pt Pt Pt Pt
s Pt P
et Bt Bt P Pt Pt Pt Pt

MACY1l

i
... <SR

IR=

1342
1343
1344

COE=

BITS

;OUTPUT READY
SUNIT FIELD ERRC
iMULTIPLE DRIVE SELECT
: PROGRAMMING ERROR
iNON-EXISTENT HEHORY
iNON-EXISTENT DRIVE
{UNIBUS PARITY ERROR
{WRITE CHECK ERROR
:DATR LATE ERROR
(RKER:14)

:SEEK_INCOMPLETE
:NON-EXECUTABLE FUNCTION
iDRIVE DETECTED SERCON PARITY ERROR
,FORHH ERROR

:BAD SECTOR ERROR
HERDE VRC ERRULR

RDDRESS OVERFLOW ERROR

IDpE=

BITIO

INVR%IDongK
RDDRESS ERROR: HERD/CYL

DTE=
OPI=
UNS=
DCK=

BIT12
BIT13
BITIY
BITIS

:DRIVE_TIMING E 0
;OPERATION (SEARCH) INCOMPLETE
:DRIVE
UNSAFE
:DATA CHECK

.SBTTL

STATUS REGISTER BIT DEFINITION (RKDS:12)

000001

DORA=

BITO

DRIVEIQVQILR?LE éggNTROLLER IS SET IF

000004

QFST=
ACLO=

BIT2
BIT3

:DRIVE OFFSET
,RC LOKW

WLE=

100000

DCLO=

BITY

WRL =

BIT11

DROT=
Vvv=
DROY=
0DT=
100000

000017
000020
000040
000100
000=20C
002400
001000
002000

BITI1

;WRIT

;BC_LOW

BITS
BITB
BIT?7
BIT8

:ORIVE OFF TRACK
: VOLUME VAL ID
:DRIVE RERDY
DRIVE TYPE (0=RKO0&, 1=RKO07)

PIP=
DSC=
SVAL=

BIT13
BIT1Y
BITIS

POSITIONING IN PROGRESS
:DRIVE STATUS CHANGE
:STATUS VALID

.SBTTL

MARINTENANCE REGISTER 1 BIT DEFINITION (RKMR1:22)

MESMSK= 17

WRITE LOCK

;MSG M

PRT=
DMD=

BITY
BITS

:FORCE EV?N
PQRITY ON St "CON MSG LINES
DIRGNOS

MIND=
MCLK=
MERD=
MEWD=

BIT7
BIT8
BITS
BITIO

HQINTENQNCE I NDEX
iMAINTENANCE CLOCK
: MAINTENANCE ENCODED RERD DRTA
:MAINTENANCE ENCODED WRITE DATA

MSP=

8176

MAINTENANCE SECTOR PULSE

SEQ 0027

CZRGHED UNIBUS RKG DR PRT]

CZREHE.PI11
1398

1399
1400
1401
1385

25-JAN-78 12:00
004000

010000
020000
040000
100000

{382
000040

MACY11l 30A(1

s-JA

PCA=

BIT11

.SBTTL

DEFINITION GF DRIVE STATUS BYTE 00 MSG A (RKMR2:34)

D.DRA=

BITS

;DRIVE AVAILABLE

"WRL=

BIT1l

SWRITE

1408
1409
1410
1411

i:ifl
i:ig

OéOODD
848888

o.gpgu:
8.o§c= BI¥%§
gir1u

i:ig

; PRECOMPENSATION novnucs

PCD=
BITIC
ECCW=_
BIT13
WRTGAT= BITIY
RDGATE= BITIS
D.vv=
BIT6
D.DROY= BIT?
0.0DT= BITS
D.FORM= BIT9
8.0FF= BITiO

04000

PAGE

MQINQENRNCE
REG T R i ax? DEF?NI??ON (RKMR1:22)

000100
000200
000400
001000
02000

1412

12:08

CO3

! PRECOMPENSATION DELA
{ECC_WORD IS BEING RERD OR WRITTEN
SWRITE GATE
:READ GATE
:VOLUME VALID
:DRIVE READY
:DRIVE TYPE (0=RkD&,! = RKO7)
:DRIVE FORMAT
,orr§ T 8N
L cx

;EPI?Q%EN
G _INcnnngg
PROGRESS
Eog?vs g ATus

.SBTTL

DEFINITION OF DRIVE STATUS BYTE 01 MSG A (RKMR2:34)

1419

00020

D.SSP=

;

1421
1422
1423

000100
000200
000400

0. HOHM= E T4
15

D.BRHM= BIT6
D.DOOR= BIT?
D.CART= BIT8

1427
1428

010000
020000

D.SPOK= gxrq
D.FWD=
BITIO
D.REV=
BIT1]

aRusnes HOME
:DOOR_INTERLOCKED
: CARTRAGE INTERLOCK

:SPEED OK
:FOR
; REVERSE

D.UNLD= BIT!M

:HERDS UNLOADING

1420

1424
1425
1426

i:gg

00040

001000
002000
004000

040000

;wgé
1433

1434
1435
1436
1437
1438

.SBTTL
000040

820388

B:BRe7= BIT1S

iz:g

040000

i:gg
1446

D.IDAE= BITS

D.ACLO= BIT
D.FLT= BIT
D.ILF= BIT8
D.PAR= gxre
D.SKI=
BITiO

004000

000020

ugxzé LOCK ERROR

D.UNS=

BITIM

'R/W UNSAFE

.SBTTL

DEFINITION OF DRIVE STATUS BYTE 01 MSG B (RKMR3:36)

1483

004000

0.PLO=

001000

:BRIVE. OFF- TRACK

D.SECT= BITH

D.WCUR= BITS
D.WGAT= BITE
D.HOFL= BIT?
D.MHD= BITS

002000

{AC_LOW
SDRIVE FRULT
ILLEGRL FUNCTION CODE
TECTED SERCON PARITY ERROR
ss K INCO

ax}il

000040
000100
000200
000400

1482

; INVALID DISK ADDRESS ERROR:HEAD/CYL

o.u%s=

1447
1448
1449
1480
1451

:HERDS LOADING
IRETURN TO ZERO

DEFINITION OF DRIVE STATUS BYTE 00 MSG B (RKMR3:36)

000100
000200
000400
001000
002000

iagg

D.LOAD= BITI12
D.RTZ= BITI3

E SERV
og HsflE PRESENT

D. XERROR=

0.7IB8= BITIO
BITII

:SECTOR ERROR

BIT9

'WRITE CURRENT AND NO WRITE GRTE
TWRITE GQTE AND NO TRANSISTIONS
‘HEAD FAU
MULTIPLE Heno SELECT
DEX ERROR

: TRIBIT tnnon
:PLO ERROR

See Oozs

CZRBHEO UNIBUS RK& DR PRTI1
25-JAN-78 12:00
CZREHE.P11

010000
020000
o40000

MRCY11

30A(1052)

DO3

12:08

PAGE 29

D.NMOV= BITl12
D.LIMD= BITI3
D.SUNS= BITIY

; SEEK_AND _NO_MOTION

:LIMIT DETECT ON SEEK
: SERVO UNSAFE

COMMON MRSKS AND OTHER BITS:

vd
77770

MSG R (RKMR2:34)

:DRIVE CODE, ALL BYTES
:DRIVE SERIAL #, BYTE 11

COMMON MASKS AND OTHER BITS:
000003
040000
000760
007000
100000

SEQ 0029

DEFINITION OF DRIVE STATUS BYTE 01 MSG B (RKMR3:36)

.SBTTL

000007
077770

25-JAN-78

:BYTE

MSG B (RKMR3:36)
ID,

ALL BYTES

erxu
760

EELIEN
gicn BYTE 10
:SECTOR COUNT, BYTE 11

BITIS

'PARITY, MESS A/B, ALL BYTES

7000

: HERD DECODE,

BYTE

CZRBEHED UNIBUS RK& DR PRT}
CZRBHE. P11
25-JAN-78 12:00
1470

1471

EOJ

MACY1l 30R(1052)
25-JAN-78
12:08 PRGE 30
COMMON MARSKS AND OTHER BITS: MSG B (RKMR3:36)
.SBTTL

1472

SEQ 0030
,

TRAP CATCHER

1473

00L000

1475
i:gg

000174

' #SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS
*Locnrxoulg CONTRINS O TO CATCH IMPROPERLY LORDED VECTORS
DISPREG:
SWREG:

1474

:#ALL UNUSED LOCATIONS FROM
4 - 776 CONTRIN R “.+2 HALT"

1478
1479

000174
000176

000000
000060

i:gé

000200

888583

007120

}:gg

000204

888535

{:gg

000220

14687

000230

1489

000240

1491

000260

1480

1488
1480

1492
i:ga

000270

‘

007014

J"Sao

BYTI6

sBYPASS N-SQUARE TEST IN DEFAULT MODE

888535

006774

J"Sao

PARSRT

s INPUT ALL PARAMETERS 8 START TESTING

000137

007034

jmp

BYTI6A

000137

067744

JMP

0.0DT

:ENTER 0DT11

000137

007056

imp

MDTST

sMODULE TESTS DEFAULT MODE ONLY

000240
000260

000270
000137

000274

000046 043010

1503

000052

1505

*BYPRSS SEVERAL TESTS
:SAME RS 260 & BYPASS N-SQUARE TEST ALSO

MDTSTA

ACT11 HOOKS

hooxs REQUIRED BY ACTI1
$SVPC=

; SAVE PC

$ENDRD

:51)SET LOC.46 TO ADDRESS OF $ENDAD IN .SEOP

=52

100000

.WORD

000274

1508

. =$SVPC
.SBTTL

100000

;;2)SET LOC.52 TO 100000

;)

=1000

RESTORE PC

APT PRRAMETER BLOCK

o 3636 36 36 36 3 3 3 3 3 9 3 9 3 36 36 36 3 36 36 3F 36 3¢ 36 3¢ 36 3 96 3 36 36 3¢ 36 36 36 36 3 3% 3 3 3 3 3 3 3 36 3 3 3 3 3 3¢ 3 3 36 3 3 3 3 3 3¢ ¥ 3

1509

SET LOCATIONS 24 AND 44 RS REQUIRED FOR APT

1510
1511

001000

15§13

000024

1515

000O44

1817

000024

ll!ll!*llllllllll»ll!ll!ll!!l!lllll!l!lllll!ll!!!i!l*lll!l!llflll‘l
.SX=.
; SAVE CURRENT LOCATION

. =4

,,SET POWER FR%L O POINT TO STRRT OF PROGRAM

000200

aoo

001000

snprnon ,,POINT TO APT HERDER BLOCK

000044

001007

1518
{gég

; ;FOR RPT START

:'POINT TO RPT INDIRECT ADNDRESS PNTR.

=, $X

:RESET LOCATION COUNTER

l!llllllli*lll“llllillllilli!l!lilllllll!lll*ll!illllll!i!l!«l{

Qerup APT PARAMETER BLOCK RS DEFINED IN THE RPT-PDP11 DIAGNOSTIC
*INTERFACE SPEC.

1521

001000

1823
iS24
1525

001062
001004
001006

1622

007076

008052

001000

}ggg

1516

=270
mp

000046

1501

1514

. =260

;BYPASS N-SQUARE TEST IN PARAM MODE

o 363636 3 36 36 3 3 36 36 3 36 3 36 36 36 38 36 3 3 36 3 3 3¢ 36 3 36 3 36 3 3 36 3 36 3 36 3 3% 3% 3 96 3 3 3 3 36 3 3¢ 3 3 3 3 3 3 3% % % 3 3 3 3 % %

1499

1512

.=240

.SBTTL

1498

1504

STARTING ADDRESS(ES)

: s SOFTWARE DISPLAY REGISTER
: :SOFTWARE SWITCH REGISTER

38START ;;JUMP TO STARTING ADDRESS OF PROGRAM

1497

15802

O
O

M
goq

i:gg

1500

.SBTTL

.WORD
WORD

001000

000000
001210
000430
001130

SAPTHD:

SHIBYS:

SMBADR:
§TSTM:
§PASTM:

.WORD

.WORD
.WORD
.WORD

SMAIL
280.
600.

;s TWO HIGH BITS OF 18 BIT MAILBOX ADDR.

;;RDDRESS OF APT MAILBOX (BITS 0-15)
"'RUN TIM OF LONGEST TEST
SIRUI. TIME IN SECS. OF 1ST PASS ON 1 UNIT

(QUICK VERIFY)

CZRBHEO UNIBUS RK6 DR PRT1

CZREHE.PI1

1526

iggg

001010

001012

25-JAN-78 12:00

001130

000042

MACY11 30A(1052)

$UNITM:

529

,._......GG’.....p........p—.._p..p-.—...y..p......—.—.......—.—;...;..p—p—.—.—.—.—p.p—.—.—.—.—p;—.—.—».—.—.—.—.—p..;....-...
v
o

25-JAN-78

APT PARAMETER BLOCK

gg?

.WORD

600.

.LIST

"WORD

FO3

12:08

PAGE 31

SEQ 0031

.ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH RDDITIONAL UNIT

SETEND-SAAIL.2 ;s LENGTH MARILBOX-ETRBLE (WORDS)

ggg

'USE LOOP X TO OMIT ISR P2, SUBCLR

§35
S3E

.MACRO

639
€40

JIF

E43
Sy

.ENDC
"ENDM

E47

! THIS MACRO FILLS EXPECTED MSG AO,B0,A1,B1,A2,82 8 B3 WITH STANDARD BITS SET

! NOTE: AR CAN BE ANY BIT COMBINATION DESIRED

534

;

Egg

Efié

548
éé

#STACK, SP

JSR

A
PC, SUBCLR

:RESTORE STK PTR

:CERR AFTER SCLR

LOOP

! R=D.DSC AFTER ATTN OR_O AFTER DRIVE'CLEAR’ OR'ANY IMPLIED SEEKS
.MACRO

F.ERB
MOV

NN NNNNNNNOC OO0
NN
@~ CNLWNU—-ODDNCN LWU—-OVDNo

MOV

ERROR

LOOP
SCOP1

#<A'D.SPIN!D. onov-o VV!D.DRA> ,E. RO

:EXPECTED MSG RO

CLR
MOV
MOV
CLR

E.BO
XPECTED MSG'BO
#<D.SPOK!D.CRRT!
0
ooon'o BRHM!D. SSP> ,E.Al
$1 E.81
iMSG 1D FOR EXPECTED’MSG B!
'EXPEC TED MSG Re
E.R2’

MoV
F.ERB

#3 E.B3

MOV
.ENDM

$2,E.B2

:EXPECTED Al

G ID FOR EXPECTED MSG B2

nsc 10 FOR EXPECTED M3G B3

: Tgés MACRO ASSUMES DRIVE MSG A0,BO,AR1,B1 WILL QLN?;S BE TESTED

:
. USE

,C,D,E FOR MSG RO,B0,A1,81 ERROR NUMBERS R
T'R2 TO READ MSE A2 8’PUT INFO INTC 'CYLDIF’

:
:

H=T.B2
I=T.B3

TO READ MSG B2 & PUT INFOR INTO ’CYLADD’
TO READ MSG B3 8 PUT INFO INTO 'SECTOR’ & 'HEARDA’

< ERROR DESCRIPTION>

"MACRO

CHECK

AR,C,D,E,F,G,H,1

JSR

PC, CHKMSG

: CHECK MSGS A0,BO0,A1,Bl

ERROR
ERROR
ERROR

A
C
D

:MSG AD ERROR F
;MSG BO ERROR
*MSG Al ERROR

_WORD

.ENDM

;
;

E RROR
CHECK

G'A'I

'8 MSGS SPECIFIED' HERE

R=CYL DIFF/OFFSET ERROR
B=CYL ADDR ERROR #

:MSG Bl ERROR

CZR6HEQ UNIBUS RK6 DR PRT]
CZREHE. P11
25-JAN-78 12:00

GOJ3

MACY11 30A(1052)
25-JAN-78
APT PARAMETER BLOCK

12:08

PAGE 32

C= <ERROR DESCRIPTION)

iggg

"MACRO

CWD2

R,B,C, "0, 7E

1586

MOV

oa RKMR1 (RS)

:SELECT WORD 2

1590
1891
1592
1593

BEQ
ERROR
TST
BEQ
ERROR

A
CYLADD
E
B

:MSG A2 NOT CLERRED €
'SEE IF MSG B2=0
:BR IF YES
:MSG B2 NOT CLERRED C

1587

JSR

1588
1589

TST

1594
1595

E:
.ENDM

1598
1599
1600
1601

.MACRO

1603

{ggs
160

MACRO SW
S

1596
1897

1602

1604

1608
1609
1610

1611

1815

1614
1615

1616

1617

.ENDM

cvtorr
0

"MACRO

:SEE_IF
MSG R2=0
‘BR IF YES

CuWD2
LPCHK
CLR
TST
BEQ

?R
SESCRPE
LPFLG
A

IMP

JSLPADR

JIMP

LPCHK

JSLPERR

:SW 9 WAS SET,

PC, SWTST

:SEE IF SW 14 OR 8 IS SET

:SW 14 OR B WAS SET

sxxp R, GO’ TO NEXT TEST>’
s HERE IF NEITHER IS SET
;s RETURN HE
F SW
1S SET OR
1Sl B8 WITH suR 7: o> RPPLY
SW81Y

'SWRI (LOOP ON ERROR) TEST

1618

1619
1620

GSTAT

TSTSWS

INC

BIT

A,B

LPFLG

#SWS, ASWR

A=BRANCH POINT TO RECONDITION DRIVE

B=JMP POINT TO RE-ENTER MAIN LINE
:LOOP ON ERROR?

1621
1622

.ENDM

BNE
JMP

'YES, RECONDITION DRIVE
*RETURN TO MARINLINE

iggg

: USE DRCLR

TO OMIT CHECKING MSG RD,BO,Rl & Bl

iggg

'MARCRO

R, ?C

1629

DRCLR
MOV

1630
1631
1632
1633
{ggg

iggg

TSTSW9

SUNIT RKCS2(RS) ;DRIVES
#CLERR, HCSI
PC, DOCAD
;D0 DRIVE CLERR CMD & GET CONTR RDY
161
NO RDY AFTER DRIVE CLEAR CMD
Ec,rsrnrn

TEST FOR ATTN

ERROR

IS4

;RTTN NOT CLEARED AFTER DRIVE CLEAR CMD

éga

#CCLR,RKCS1(RS)

MOV
MOV
JSR
ERROR

SEQ 0032

CZR6HEQ UNIBUS RK& DR PRT1
CZRBHE.P11
25-JAN-78 12:00

MACY11 30A(1052)
25-JAN-78
APT PARAMETER BLOCK

1638
1639

.IFB

1641

.ENDC

1643

.ENDM

16490
1642

1644
1645
1646

1647
1648

A
F.EARB

CHECK

;
;

'.
2.

"MACRO

CALIB

;

MOV

1668

BNE

1666
1667

ig;q

1673
1674

IF B

1676
1677
1678
1679
1680
1681

;

1684

F:
.ENDC

1685
1686
1687
1688

;

1691

"MACRO

iggg

1692
1693

3.ngg 2 *I"EE konc HAND CODING FOR SUBSTITUTING ITEM 2

1665

1682
1683

273,265,274,
266, (RFTER DRIVE CLEAR CMD>,T.R2,T.B2,0

ADD NEW LABEL *F
DEL THE MACRO CALL CwD2

MOV
MOV
SR
ERROR

1675

Hs 99 g ?a

1660
1661
1662
{ggg

1672

SEQ 0033

:
D=NON- LRNK T0 OMIT
CHECKING AO TH U .2 IN DRCLR
; THE FOLLOWING MRCRO DEFINITION IS CHANDGED ON 24-0CT-77

1659

1669

iR=BLANK TO CHECK RO THRU B2
: R=NON aLnnx T0 OHIT cuecxxuc no THRU g2

1652
1653

iggg

PARGE 33

;

'8BLANK T

1654

12:08

DRCLR

1649

1650
1651

HO3

.ENDM

R,D, ?C,7F
8CCLR, RKCS1(RS)

SUNIT,RKCS2(RS)
$RECAL , HCS1
PS DOCHD
:D0 RECAL CMD 8 GET _CONTR RDY
]
'ROY NOT SET RFTER RECAL CMD
81,RKMR1 (RS)

: SELECT WORD 1

JSR
BI"

PC,GSTAT
80 RTZ,HMR2

ERROR

244

:RTZ NOT SET DURING RECAL CMD

ganon

3grruAFTER RECAL CMD

F.ERB

D.DSC

cwp2
MOV
JSR
TST
BEQ
ERROR

47,50, (AFTER RECAL CMD>
82, RKMR1 (RS)
ss#sgr TH;
nsssnce
PC.GSTART
CYLADD
RECQL SUCCESSFUL ”
F
:BRANCH IF SO
SO
:REPORT THE ERROR

DRCLR

no;

CHECK

;10#5$¥T2

Ssrup
TIMEOU

221.275,222,276,<AFTER RECAL CMD>,T.A2,T.B2,T7.83

CALIB

:IDARE IS CLERRED ONLY BY RECAL 8 DRIVE CLEAR

CIDRE

“R

MOV

#CCLR,RKCS1
(RS)

CZR&HED UNIBUS RK6 DR PRT}
CZREHE.PI1
25-JAN-78 12:00

MACY1l 30A(10S2)
@25-JAN-78
APT PARAMETER BLOCK

1694

MOV

1695
1696
1697

MOV
JSR
ERROR

1698

DRCLR

1699

1700

JSR

1701
1702
i;ga
1708

1706
170?
{;gg
1710
1711
1712
1713
1714

1715
1716
1717

BIT
BEQ
ERROR
A:

MOV

MOV
JSR
ERROR

.ENDM
;
.
:

"MACRO

PC,GSTAT

80’ 1DRE, HMR3
A
1S5
#CCLR, NKCS1(RS)

11, TEMP2
PC FATTI
S5’

PC, DotMD
131

CLR

E.BO

MOV

{;gg

CHECK

1723

8SEEK , HCS1

JSR
ERROR

1722

MOV

:SEE IF IDRE 1S CLEARED
:BR IF YES
:IDRE NOT CLERRED AFTER RECAL CMD
:LOOK FOR ATTN FROM RECAL

;NO ATTN AFTER RECAL CMD

81 .E.B1

203, 204,205,206, <DURING SEEK CMD>,T.A2,T.B2,0

.MACRO

SKATN ”R,
B

JSR

PC,FATT2

BIT
BEQ

#CERR, HCS1
A

F.ERB

D.DSC

ERROR

1732
1733
A

1737

ERROR
CHECK

TST

1738

BEQ

i;gg

ERROR

;00 SEEK CMD 8 GET CONTR READY
NG RDY ARFTER SEEK CMD

#<A'D.SPOK'D.CART!D.DOOR!D.BRHM!D.SSP>
,E.A1

SKRDY

1731

:FIND ATT

132

*NO ATTN nrrsn SLEK CMD

210

:CERR AFTER SEEK CMD

133;134,135,136, <AFTER SEEK CMD>,T.R2,T.82,0

CYLOIF

137

1741
1742
1743
1744

B:
_ENDM

i;gg

SQUICK START SPINDLE.

1747

"MARCRO

1748
1748

;00 RECAL CMD & GET CONTR RDY
'RDY NOT FOUND AFTER RECAL CMD

8<D.PIP'D.SPIN!D' W!D. DRA> ,E.AD ;EXPECTED RO

.ENDM

1730

1736

sRECAL , HCS1
PC, DCCHD
124

SKRDY R

MOV

1721

1735

SUNIT,RKCS2(RS)

CIDRE

MOV

1720

1734

PAGE 34

A=D.FWD/D.REV

1718
1719

1726
1727
i;sg

103

12:08

DRCLR
SKATN

QKSRT

JSR

PC,SUBCLR

:CYL DIFF NOT CLERRED AFTER SEEK CMD

SEQ 0034

CZR6HED UNIBUS RKB DR PRT!
CZREHE.P11
25-JAN-78 12:00

MACY1l 30A(1052)
25-JAN-78
APT PARAMETER BLOCK

i;g?

ERROR

1752

MOV

1783
i;gg

JSR
ERROR

1756

MOV

1757
{;gg
1760
1761
1762
1763
1764
1765
1766

iggs
1769
1770
1771

.IFB
.ENDC
"ENDM

;D0 START SPINDLE CMD & GET CONTR RDY
‘KDY NOT FOUND AFTER ST SPIN CMD.

150G, TEMP2

;SETUP

CLR
A
TSTSWS

UNLD

_TIMEOUT

SFIND ATTH
'NO ATTN ARFTER ST SPIN CMD.

10S,28

QKSRT

ENTER WITH CYL # IN RKDC

"MACRO

GKSEEK

MOV

JSR
ERROR
MOV

1778
1779

BIT
BEQ

JSR
ERROR

#SEEK , HCS1

PC,00¢MD
131

150000, TEMP1

:D0 SEEK CMD 8 GET CONTR READY
:NO ROY RFTER SEEK CMD.

PC,FATY2
132

sFIND ATTN
:NO ATTN nrrsa SEEK CMD

ERROR

210

;CERR AFTER SEEK CMD.

JSR

PC, SUBCLR

:CERR AFTER SCLR

.ENDM

QKSEEK

i;g?

1786
1787

#SRTSPL , HCS1

PC, DOCMD
121

'QUICK SEEK.

1776
1777

SEQ 0035

:CERR AFTER SCLR

PC,FATTI
&7’

1775

i?S&
1785

PAGE 35

JSR
ERROR

;

1772
{;;3

1782

JOJ3

12:08

ERROR

#CERR, HCS1
A

1788

ourcx REPETITIVE SEEKS

i;g?

B=FINAL VALUE OF CYL® BEFORE EXITING

.MACRO

QKRPSK

R,B,C,?D

JSR

PC, SUBCLR

;CERR AFTER SCRL

MOV

TOCYL,RKDC(RS)

;CYL#

CMP
8EQ

TOCYL,B
)

JSR

PC,SUBCLR

1789

i;gg

1794

{;gg
1797
1798

ERROR
oF

1799
1800

1801

1802
1803
1804

1805

A=INC/DEC

QKSEEK

A
D:

ERROR

TocYL

CYLs

;LAST CYL DONE?
sBR_IF YES

'ELSE DO ANOTHER

; CERR AFTER SCLR

CZREHEQ UNIBUS RKG DR PRT1

CZREHE.PI1

25-JAN-78 12:00

MACY1l 30A(1052)

25-JAN-78

APT PARAMETER BLOCK

1806

1807

KO3

12:08

PAGE 36

LPCHK

1808

1809

.ENDM

18._1
1812
1813
igig

;
1QUICK UNLORD
:D=BLANK TO DO SUBCLR & LPCHK
: D=NON-BLANK TO BYPASS

igig

"MACRO

1810

1818

QKRPSK

GQKUNLD

JSR

PC, SUBCLR

{353

ERROR

1821

MOV

1823

ERROR

{gsg

ERROR

1822
1824

1827

iggg

1833
1834

1835

JSR

PC, TSTATN

JSR

PC, SUBCLR

JSR
ERROR

JSR

LPCHK

: USE WRHDR

<A>,X

1849

"MACRO

A,C,?D

1850
1851

WRHDR
MOV

#<(A>,

HCS]

PC,DATCMD
200

1855

BIT

#CERR, HCS1

1857

ERROR

JSR

1856

BEQ

1858

1859

1860
1861

TYPE

D:
JIFB

sNO ATTN AFTER UNLOAD CMD
; CERR RFTER SCLR

;CERR AFTER SCLR

TO OMIT CHECKING RO,BO,Al,Bl

JSR
ERROR

1854

'RDY NOT SET AFTER UNLOAD CMD.

QKUNLD

A=WRHEAD/ (CFMT!WRHEAD>

1852
1853

;00 UNLORD CMD & GET CONTR READY

:SPEED NOT DOWN BY TIMEOUT

PC, SUBCLR

;
:

.ENDM

;sCERR AFTER SCLR

710, TEMP2

PC, FSPOK
315

1839
1840
1841
1842
1843
1844
1845
1846

i335

.ENDC

ERROR

igg?
1838

pC, 00cMD

MOV
JIF

SUNLOAD, HCS1

JSR

ERROR

1830

1831
1832

JIMP
C

PC,GSTAT
D

201

MSG18

$¢e0P

:00 DATA XFER CMD 8 GET CONTR RDY
*NO_RDY RFTER WRITE HEADER CMD

'GET FRESH STARTUS

:CERR_AFTER WRITE HEADER CMD

'ABORTING BALANCE OF TESTS

:ABORT DRIVE

SEQG 0036

CZR6HED UNIBUS RK& DR PRTI
CZREHE . P11
25-JAN-78 12:00

MACY11 30A(1052)
25-JAN-78
APT PARAMETER BLOCK

1862

1863

F.EARB

1864

.ENDC

1866

.ENDM

1865

1867
1868

1869

{g;?
ig;g

;

CHECK

"MACRO

RDHDR

R,C,"D,?E

MOV

SRHTAB, RO

1880

ERROR

1878
1879

1881
{ggg
D:

1888
1889
1830

1891

1892
1833

1835
1896

18387
1838

1899
1900
1901
1802

1903

1904

277,267,300,270,
<AFTER WRITE HERDER CMD>,T.A2.7.82,0

A=RDHERD/<CFMT!RDHEAD>

MOV
JSR
ERROR

1894

.ENDC

.ENDM

:D0 DATA XFER CMD 8 GET CONTR RDY
:NO RDY AFTER RERD HEARDER CMD

174

;CERR AFTER RERD HEADER CMD

BIT
BEG

8CERR, HCS1
o)

TYPE
JMP

MSG18
$eoP

:ABORT
:ABORT

RKDB(RS), (RO)+

;1°’ST uono FROM SILO TO RHTAB

MOV

MOV
MOV

RKDB(RS)
| (RQ)+
RKDB(RS)' (RO)+

BIT
BEQ
JSR

#DLT,RKCS2(RS)
E
PC,GSTART

IMP

¢e0P

ERROR
TYPE
E:
. iF

#<R> HESI
PC,DATCMD
17/

F.EAB

CHECK

173
MSG18

;2'ND WORD
;3’RD WORD

:DLT AFTER READ HEADER CMD
*ABORTING BALANCE OF TESTS

*ABORT DRIVE

RDHDR

a:roch/rnch

:B=310 FOR TOCYL/311 FOR FRCYL

1907

’

.MACRO

1911

1912

BALANCE OF TESTS
DRIVE

301,271,302,272, <RFTER READ HERDER CMD>,T.A2,T7.B2,0

iggg
1808
1809
1910

SEQ 0037

WRHDR

1875
1876
1877

1884

PARGE 37

: USE RDHDR <R>,X TO OMIT CHECKING AO,BO,A1,Bl

1874

1885
igg;

LO3

12:08

igia

1915
1916
1817

.ENDM

HDCHK3

R,B,"C

RDHDR

CMP

RDHERD

BEQ

ERROR

HDCHK3

RHTAB,A;CHECK WORD O (CYL#) ONLY
:BR IF SAME

*READ CYL WORD HEADER ERROR

CZR6HED UNIBUS RK6 DR PRTI
CZRBHE.P11
25-JAN-78 12:00

MACY1l

30A(10S2)
25-JAN-78
RAPT PARAMETER BLOCK

.MACRO

MO3

12:08

PAGE 38

RALLHD

"Q, 78, °C, 7D, ?E

MOV

SRHTARB,
RO

MOV

SRDHERD, HCS1
TSIDQTC"D

BIT

8CERR, HCS1

EARor

$e0P

RKDB(RS)| (R0)+
8DLT,RKCS2 (RS)

;SEE IF DRTR LATE

DQTR LATE ON RERD HERDER
RBORT
Q&RNCE OF TESTS

MSG18

$c0P

RBORT

EU,CRHTQB+132.

WORDS DONE?
EREL ?6

PC,SORT

; SORT RHTAB INTO SRTTAB SO THAT IT

ogsfvne RO
$HDTAB, R1

BEGINS WITH SECTOR O
ORB COUNT

RCT RL HEADER TRBLE
:CALC HEADER TABLE

(RO)+, HDWD

et Pt Pt Pt P
e Pt Pt Pt Pt Bt Pt Pt Pt Pt Pt Pt Prnt Pt
e Ot P

1°ST WORD FROM SILO TO RHTAB

2 ND WORD
:3'RD WORD

PC,GSTAT

DO OO D DD D DD DOD D DDD D DNO D
NNNOoOTOoOo
o oot wn
nN—-OOuONCNLEW fu—owoNTCnN LW —

CMD

QBORTING BALANCE OF TESTS
:ABORT DRIVE

RKDB(RS), (RO)+
RKDB(RS)| (RO)+

1973

Rg EflpggRERDHEQSERONTR ROY
;CERR RFTER RERD HERDER

74
MSG18

1929

SEQ 0038

(R1)+' TEMP1
gouo temPl

; COMPARE ACTUAL WITH CALCULATED WORD

202

iBR IF COMPARE
{READ HEADER MISMATCH

WDCNT
gDCNT,066.

;ALL _WORDS DONE?
.

’

.ENDM

IF NO

RALLHD

RA=TOCYL/FRCYL

"MACRO

HDTBL

B=HERD®,
R,B8,C
eeCRLQDD

#C,FORMAT

PC FHDTRB

C = 0 FOR 22 SECTOR,

1 FOR 20 SECTOR

CZRBHEO UNIBUS RK& DR_PRT]
CZRBHE.P11
25-JRAN-78 12:00

MACY1l

30R(1052)
25-JAN-78
APT PRARAMETER BLOCK
.ENDM

NO3

12:08

PAGE 39

HDTBL

{USE FSECA FS022,RDSEC,22 FOR 22 SECTOR FORMAT
:USE FSECA FS020,R20SEL,20 FOR 20 SECTOR FORMAT.
"MACRO

FSECR

R,B.C

]

*FIND SECTOR O IN C SECTOR FORMAT.
"ERROR FLAGGED IF NOT FOUND BY TIMEOUT

A:
18:

MOV

15000, TEMP1
PC,B

BNE
JSR

23
PC,B

BEQ
DEC
BNE
MOV
RTS
MOV

33
TEMPL
18
(SP)+, TEMP1
PC
(SP)+. TEMP1

137
15T

2%:

3%:

TEMPL,-(SP)

MOV
JSR

ggo

SECTOR

SeCTOR

Sg,(sfi)

:SAVE TEMP1

:SETUP TIMEOUT
'READ SECTOR

'LOOK FOR SECTOR O
;BR IF SAME TWICE

s TRY AGAIN IF TIMEOUT NOT UP
'ELSE RESTORE TEMPI
JEXIT

;SKIP OVER ERROR

. ENDM

:USE FSECB FNS22,RDSEC,22 FOR 22 SECTOR FORMAT

'USE FSECB FNS20,R20SEL,20 FOR 20 SECTOR FORMAT

"MACRO FSECB

A,B,C

IFIND NEXT SECTOR IN_C SECTOR FORMAT
; ERROR FLAGGED

IF NOT FOUND BY TIMEOUT

SEQ 0039

..
4

12:08

TEMP1,-(SP)

A:
1 $:

1500, tEMP1
PC,B’
PSEC, SECTOR

JSR

e$:

; SAVE TEMP |

:SETUP_TIMEOUT
:READ SECTOR

;BR_IF DIFFERENT TWICE

18
;sp)+ TEMPL
C
(SP)+ TEMP]

MOV

SEQ 0040

;BR

TEMPL

DEC

e gt

PAGE 40

33
PC,B

PSEC, SECTOR

3%:

BO4

MACY!l 30A(1052)
25-JAN-78
APT PRARAMETER BLOCK

(SP)

_IF SAME

;ELSE TRY READ DIFFERENT TWICE
;ELSE TRY AGAIN IF TIME LEFT
;RESTORE TEMP

;RESTORE TEMP
1

iSKIP OVER ERROR

.ENDM

USE SECTST FS022,FNS22,RDSEC FOR 22 SECTOR FORMAT
USE SECTST FS020,FNS20,R20SEC FOR 20 SECTOR FORMAT
THE FOLLONING MACRO DEFINTION IS CHANGED ON 24-0CT-77
1.

DETE

MRCRO

SECTS

I ES FROM THE 8001 G
E,F?R,78B,?

;FIND SECTOR O

PC D

JSR
ERROR

{SECTOR O NOT FOUND BY TIMEOUT

142

CLR PSEC
J

PREVIOUS SECTOR

143

PSEC ESEC

ES
sséron
PSEC

e ervewsvivewiee

PC,F

gséron PSEC

gECTOR,PSEC
144

SECTOR, ESEC

. ENDM

:FIND NEXT SECTO
:DIFFERENT SECTOR

NOT FOUND BY TIMEOUT

; SETUP _EXPECTED SECTOR

:UPDRTE_PREV
vV SECTO
:RERD SECTOR

;BR IF READ SAME TWICE
sTRY

MORE TIME

:MSG B3 ERROR, SECTOR REG UNSTABLE
*MAY BE DURING SECTOR PULSE TIME

{us

;MSG B3 ERROR BETWEEN SECTOR COUNTS

;BR IF SECTOR COUMT NOT DONE

SECNT

(@]

CZRBEHEQC UNIBUS RK& DR _PRT]
25-JAN-78 12:00
CZREHE.P11

SECTST

DETECT QUTER LIM IT:
;DETECT INNER LIMIT:

FCP1,FC,D.REV,QUTER

LCMI1,LC,D.FWD, INNER

;THE FOLLOWING MARCRO DEFINIT.ON IS CHANGED ON 24-0CT-77

CZRHGMED UNIBUS RK& DR PRT]
CZR6HE.PI1
25-JFN-78 12:00

2068
2069
2070

MACY11 30R(1052)
@25-JAN-78
APT PARAMETER BLOCK

;1.
2.
i3,

' MAC

2073

gg;g
Sg;g

A,8,C,D,%F

JSR

PC, SUBCLR

;SUBSYS CLEAR 8 GET STATUS

NC
L

YPCERR
BUBGE

;BYPARSS CHECKING FOR ANY CERR IN GSTATI

sPAT RKHRI(RS)

sPARRITY & WORD O

MOV

208S

N
ERROR

R, RKOC(

JSR

PC, TSTATN

5885

ERROR

:CERR AFTER SCLR

UNLD

2081

S8
2084

SEQ 0041

LIMIT

INC

2080

PRGE 41

ADD NEW LOCAL LABEL *F
DELET CHECK MACRO CALL ON LIMIT DETECT
EL cgug ngnno CALL

ERROR

587Ve

CO4

12:08

{USED FOR VALID HALT

.555565851
152

;D8 35S gEE u? NTR
H BRDREADY
PARITY
EST ron
T

8 N _FROM ESEK NSTHBAD PARITY

2088

eoeg

MOV

#<D.DSC!D SPIN'D D DY'D VwW1D.D

5831

2092

CHECK

DRCLR

1ib,1?1.1ws,1w7,(nrrsn SEEK WITH BAD PARITY>,0,0,0

2094

MOV

2097
2098

ERROR
MOV

I%EEK
HCS1

ngv

2093

2035
2096

MOV
JSR

#<D.FLTID.PAR>

B, RKDC(RS)

131

;D0 SEEK CMD 8 GET CONTR READ(Y
ROY AFTER SEEK CMD
'NO

sFIND LIMIT DETECT
*LIMIT DETECT NOT FOUND BEFORE TIMEOUT

#CCLR,RKCS1(RS)

JSR
JSR
ERROR

PC,GStAT
PC. FLIM
160

2103
2104

BIT
BNE

#D.UNLD, HMR2
18

5189
2108
2109

18:

2110

2111
Sii%
2114

211s
2116

ERROR

305

MOV

oa 3 gssgnp§

JMP

MOV

’

MOV
gggcx
JSR

308

s<o SKIiD.F

ERROR
ERROR

162
163

2120

BIT

#D.LIMD,H.BI

2121

2122
2123

NOP
BNE

TYPE
ERROR

-MUST ESCRPE TO CYCLE UP DRIVE 8 TEST SWR

£.80

;EXPECTED AD

#<D.UNLD'D. REV'D spox o CART!D. DOOR!D.BRHH!D.SSP),E.RI
"? &égo
38
é Ea”T8¥’<A¢T
EK nssénée DETECT>,0,0
AG,80,A1, 91

2117
2118
2119

:DRIVE NOT UNLORDING RFTER LIMIT DETECT
RSS REST OF TEST
:BYP

P'D 8PINID.VV!D.DRR> ,E.A0

. WORD o-b
161

ERROR

;EXPECTED RO

#<D.SPOK'D. cnaf'D.DOOR!D.BRHM!D.SSP> ,E. Al

2093
2100
gigé
210s

.E.BO

EMY2
B4

MAY BE RO ERROR

nnv BE
‘MAY BE

B0 ERROR
B1 ERROR

:NEED FOR THE CALLIN SEQ

iSEE IF LIMIT DETECT BIT SET IN Bl
:BRANCH IF S0

'OTHERWISE REPORT ERROR

CZR6HED UNIBUS RKE& DR PRTI

CZREHE.P11
2124

1
1
1

1
i

e e e Pt it Prt Pt ot Pt et s Pt Pt s Pt Pt o Pt P Pt Pt Pt Pt Pt

30A(10S2)

3%:

S
g
5
g
g
g
g
S
g
S
g

g
3

:NO ATTN AFTER D LIMIT DETECT
PALLOW CHECKING CERR IN GSTATI

JSR
ERROR
MOV

PC, SUBCLR
24
T10, TEMP2

;SUBSYS CLR
:CERR RFTER SCLR
sSET UP T neggg

ERROR

166

+s?

MOV

JSR

ERROR

100, TEMP2

PC,FATTI

HER

NOT FOUND BEFORE TIMEOUT

;Fxgg Logg HEQ?S

ISETUP

TIMEOU

FOUND BEFORE TIMEOUT

:FIND RTTN

CLR

UNLD

sCLEAR FLAG

CHECK

s; 64,65, 66, <AT END

CLR

ESCAPE

D.DSC

OF HEAD LOADING>,T.A2,T.B2,0

175,176, CAT'END OF HERD LOADING>

N
437

3E'kk?g%(R5)
cvtggo

;EEan SUE%FUL >

ERROR

:REPORT ERROR

BEQ

DRCLR

BELECT MERSANS MR2, MR3

'BRANCH IF SO

SWBIY

LENDM

PC,FLOARD

;

JATTN NOT FOUND BEFORE TIMEOUT

CWo2

PC, FHOHM

F.EAB

SEQ 0042

BYPCERR

JSR

PAGE 42

PC, TSTATN
16

ERROR
2%:

DO4

12:08

JSR
ERROR
CLR

JSR

@25-JAN-78

APT PARAMETER BLOCK

00 Pen 4t e $t Pt Pt Pt Bt Pt s Pt Pt it o Pt ot Pt et

UL PLTVIYM VUMM PV

ONONL WOV NN LWN-OWVO NN LW OWD NN
£ W~ O 00 Vo‘tfl(f&msggg%’(}‘,

LIMIT

R=CYLS®,

"MACRO

B=HEADS#

HERDER

R,B

NEWTST <<WRITE & READ HEARDERS CYL A,

MOV
JSR

CK, SP
#STACK

PC, SUBCLR

HEAD B»>>.l

:RESTORE STK TK PTR

ERROR

:CERR AFTER SCLR

INC

BYPFMT

;SET BIT 14 8 15

$HDTRB, RKBA(RS)

;HERDER WORD TABLE

7
7

;
7

;

TVIVTVIVIY RN VUV L NYTVRINUVIY R R TUNY
N RV
MY TU FUTU
MU RLNY PV POV MY PVVMUY

2125
1

25-JAN-78 12:00

MACY1l

MOV

8-66. RKWC(RS)

MOV
HOTBL

#r, TolYL
TolyL.0,0

WRHOR

WRAHERD

MOV

ngp

RALLHD

;WORD COUNT.

s8R, RKOCLRS)

sCYL®

SECNT

s SECTOR COUNT

#R, RKDC (RS)

sCYL #

IN HERDER

MACY11 30A(1052)
25-JAN-78
RPT PARAMETER BLOCK

EO4

12:08

;ALLOW CORRECT FORMRTTING

.ENDM HERDER

§ssex TO MRJOR CYL: FC,FCP1,TEMP3, TEMPY,D.FWD ,D.REV,ASL,MC,DEC,FC
*SEEK O TO ALL CYL:

FC,FCP1)TEMP3, TEMPY,D.FWD D.REV, INC.LC.DEC FC

*SEEK 410 TO ALL CvYL: (C,LCh1, TEMPY, TEM P3.D.R tv.D.FWD,DEC,FC, INC,LC

"MACRO

SKOSC

A,8,C,D,E,F,G,H, I1,J
A,FRCYL
B)TOCYL

18:

LOOP

;SETUP FROM CYL
:SETUP TO CYL

#108, SESCAPE

FRCY( , TEMP3
O

TOCYL,TEMFH

ee0l

'CALDIF'

TOCYL ,RKDC(RS)

#12$, SESCAPE

cs:

150000, TEMP1

CYLADD, TOCYL
38

3%:

LOOP

;SETUP

TIMEOUT

;CYL

#8148, SESCAPE

FRCYL
, CCYL

816, SESCAPE

150000, TEMP1

CYLRDD, FRCYL
ss
5%:

GO TO CYL

SESCAPE
TOCYL
, RKDC (RS)

, RKDC (RS)
FRCYL
MOV

; ERROR PRINTOUT

;CYL ADDR IN RKMR3 NOT=RKDC

TOCYL, 310

4%:

; SETUP
;CYL DIFF

207

AN AN AV AV A VT WY V] 4 V]
o
m.—.—;—;—.—.p—;—p—
OOVDNON LW

eell

SEQ 0043

PAGE 43

CLR BYPFMT

nrufufuN VPRV
RNTUNYn

D10
1DAD D DD uD D+D 000 00 00 00 0.0 D D o
OVOMNCNLWN—~OVDNIU LWV

CZRBHED UNIBUS RKE DR _PRTI1
25-JAN-78 12:00
CZReME.P11

:RETURN TO CYL

! CURRENT CYL FOR TRUERROR ROUTINE

;SETUP

TIMEOUT

243

;CYL ADDR IN RKMR3 NOT=RKDC

MOV

HDCHK3

SES CAPE
, RKDC (RS)
FRCYL
FRCYL 311

;CYL

CMP

TOCYL,H

LOOP

;RLL CYL DONE?

CZREHED UNIBUS RKE& DR PRT]

CZREHE .P11

25-JAN-78 12:00

MARCY1l 30R(10S2)

25-JAN-78

APT PARAMETER BLOCK

2236
2237

BEQ
G

6%
TOCYL

T5TSWS

84,23

2238
2239
2240

£S:
83:

IMP
SWB1Y4
QKRPSK

2242
2283
2244
2045

128:
148:
168:
.ENDM

TSTSWY
TSTSWS
TSTSWS
SKOSC

.MACRO

EOPGM

2241

2246
2247
2248

108:

FOH

12:08

PAGE 44

SEQ 004

:BR_IF YES
'ELSE DO ANOTHER

I,J

88,38
B8F,4S
8%,5%

2249
2250
2251

SCOPE
CLR
MOV

SESCAPE
81, STIMES

2253
2254

INC
cHP

SDEVCT
DRIVS, SDEVCT

; INCR COUNT FOR & OF DRIVES THAT ARE CHECKED
{ARE ALL DRIVES PRESINT TESTED?

2256

JNP

NUDRV

SIF NOT ,

2252

MOV

2255
2257
2258

2es0

BEQ
SEOP1:
.ENDM~

SCOPE
EOPGM

.NLIST

sstack,
sp

$EOP142

:BR IF YES

TEST NEXT DRIVE PRESENT

CZREHED UNIBUS RKH DR PRT]

CZREHE.P11

25-JAN-78 12:00

MACY1l 30R(1052)

25-JAN-78

COMMON TRGS

GO4Y

12:08

PAGE 45

SEQ 004S

aagé

.SBTTL

2264

iTHIs TABLE CONTRINS VRRIOUS COMMON STORAGE LOCATIONS

g 63

Y 1212222222222 2121222222222222322:11222:22XX22X2TX2222TT2LX2 2L

SSEE
2267

:%USED IN THE PROGRAM.
001100

2268

001100

2270
2271
2272

001102
01103
001104

000
000
000000

STSTNM:
SERFLG:
SICNT:

2275

001112

000000

SERTTL:

2269

2273
2274

2276
2277

2278

2279

001100

001106
001110

001114
001118

001116

SCMTAG:

000000

000000
000000
000
001

000000

.=1100

.WORD

SLPRDR: .WORD
SLPERR: .WORD

O
O

ITEMB:
ERMAX:

.BYTE
.BYTE

O
1

.BYTE
.BYTE
.WORD

.WORD

SERRPC: .WORD

: ; CONTRINS THE TEST NUMBER
; ; CONTAINS ERROR FLAG
:CONTRINS SUBTEST ITERAYION COUNT

i :CONTAINS TOTARL ERRORS DETECTED

SGDADR:

.WORD

831152
11
001130

000000
000000
000000

$GDDAT:
SBDDAT:

.WORD
.WORD
WORD

O
O
O

Sgg

1 132

000000

$§BDADR: .WORD

2286

001134
001135

0
000

$AUTOB:
SINTRG:

2291
eaeg

001146
ooiisg

177562
};;ssq

STKB
s;gg

5539
8811?9
2298 001160 000000

STMPO:

SSSZ
ggiiag
177598
2289
001142
177570
c290
001144
177560

534 aillgq
2295 ooiiss
UL

. WOR

.BYT
.BYTE

,.conrn Ng ggggs kg?P nognsss
: I CONTAIN
URN
ERRORS
"°°"T“{H§ ITEM E NTROL EYT§
: :CONTA
nnx
RORS PER TEST

000000

001122

: ;START OF COMMON TAGS

O
O
O

001120

2280

agel
2282
2283

COMMON TARGS

; CONTRINS P or LQST ERROR INSTRUCTION
:CONTAINS no

,,CONTQing

: 1 CONTA
’
::CONTAINS 'BAD’ DRTA
; : RESERVED--NOT TO BE USED

; ;AUTOMATIC MODE INDICATOR
: INTERRUPT MODE INDICATOR

'5028
Bsun
DISPLRY
.WORD
DDISP
TKS:
177560

883
002

177562
i;;ss:

NULL : .ev??
SFILtS: .Bz;E
.

*GOOD' DATA

08§sogr 'BAD’ DATA

ADDR! SF gu§Pan
TCH REGIST
::RDBREEE
RECISTER
TTY KBD
S

'TTY KBO aur E
};; gg§g;en STRTUS REG. noogsss

022

35
ONTAINS EfiLEU S FEQ
88 E?LLS
CSNTQ%Nglc HRRLLER
cnanncrens REQUIRED

TgbLS: Byt
6
.WORD
O

"I
EE vaILn LE” FLRG (B&* 57> 5
=YES)
: JUSER osrxneo

$TMP2

: JUSER

DEFINED

.,ESC

ON ERROR ADDRESS

2299

001162

000000

STMP]

WORD

2301
2302
2303
304

001158
001170
001172
001174

000000
000000
000000
000000

$TMP3
gTMPY
$TMPS:
STIMES:

WORD
WORD
.WORD
O

O
O
O

2306
2307
2308
2309

001200
001204
001205
001206

§BELL:
$QUES:
SCRLF:
SL-:

.RASCIZ
.RSCII
.RSCII
RSCIZ

Sgié

*88TTL

APT MAILBOX-ETABLE

gg{?‘

é*ll*lllill*illlIl!llllINI»llli!il!lllllllllill!lll!llli«l!llfllii!li

2300

2305

2310

2315

2316

001168

001176

001210

000000

000600
177607
077
015
000012

000377

WORD

SESCAPE: 0

s :
USER Bgrxusg
; USER
DEFIN
,,ussn DEF INED
:MAX. NUMBER OF ITERATIONS

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

;;CODE
FOR BELL
: 1 QUESTION MARK
; ; CARRIAGE RETURN
:LINE FEED

; nuuuiuuuniln&uuunNunuununiuuuununu
VEN

000000

: s USER ggrxnro

$MAIL

snscrv: .WORD

AMSGTY

:APT MAILBOX

,,nzssncs TYPE CODE

CZR&GHED UNIBUS RKG DR PRTI
CZRBHE.PL1
25-JAN-78 12:00

Sgie 88 Sffi 888888
2319

001216

000000

B8 ,§SB 838888
§357
eaeg 001224
gggggg
§§§§ §§‘g§§
000
aaa;

001231

000

2323

00123

000000

Sgga 881535 888888
5331

2333

sggg
2337

FATAL:

.WOR

$MSGRD:

.uggg

AFART

001240

000

PAGE 46

SEQ 0046

; ;FATAL ERR R NUMBER

TESTN: .HSRB
spnss%
- WORD
$0RYST: -HORR

Argsgh ,:TESTNUMBER
gpnssT
,,Pns?ccounr
ADRYS ::?‘X R1¥° Hunasn

i
§3bLt .BYTE

RENV

ggggfg nsssnce RODRESS

gNfigSNfiéNT TABLE

sua .

BY;E

ggugnc

SCPUOP:

.WORD

RCPUOP

JSWR:

. 898

nusus

ENVI

uvxno

- %

NT ng?ngxrs

::usensu §

gt?@ungPf OPTIONSE

i8
4=z01,11/05=02, 11/20=03, 11/40=04, 11/45=05

-ll=

T .

'x
001241

HO4

12:06

§§§§
2336

MACY1l 30R(1052)
25-JAN-78
APT MRILBOX-ETRBLE

Réé£7?
PDO-O? @=10

ger Nc PS&N* Pnocssson

éMAMS1: .BYTE

AMAMSI

‘x

Qgggjgign&b
AMADRI
HIGH
"f nggh g avvgé THIS WORD AND LOW OF“TYPE" RBOVE
AMAMS2 i GH flLJRE
AMIYPZ2
;;MEM.TYP
5sg Suua
AMADR?
; :MEM. LA

§MTYPLl:

.BYTE

AMTYPI

,,HIGH “DSEEEE
M. s avrs

hEM. TYPE evf:

8347
o342 00l242
2343
2344 00124y
2345
001245
53“9 881 Y4

000
000888

i3
$MADR1: .WORD
.¥
§MAMS2: .BYTE
SMTYP2:
(BYTE
MADR2: .WOR

23:8

000000

sgggsa:

.BETE

gngvsa

;;HEH.TYPE

000000

0000060

SMTYPY: .BYTE
SMADRY: .WORD
SVECTL: .WORD

AMADRY

;;MEM,LAST

177440

$BASE :

ngnsz

1es

OOiESé

5353
881524
2351 001255

2352

001256

2355

001264

2353

001260

000000

000

888
000

2354 001262 000000

2356

001266

000000

001276

000000

MAMSS:

.BYT

MAMSH : :BY§E

SVECT2: .WORD
SOEVM:

.uong
.WOR

AMAMS3

AVECT1
ADEVM

2361
agsg

§0DW2:
sooua:

000000
000600

S$ODWi:

53 4 881385 888888

28 WS:

2366

$0DW7:

2365

001310
001312

g ool
2369

000000

177440

§0DW6:

2
ABASE=

.WORD

LKa3

ADDOW!

;:INTERRUPT

AVECT2 ;:INTERRUPT

foul:
o nSBuS
O
$O0W0: Zfign

001300
001305

BIPO nR ooa

nr«nfisa
225@4
g B 'Fé
AMTYP4 ::MEM.TYPE,BLKEY'

SR
Bl s
2359 fl3157q
000060
2360

iH cu

- (HIGH BYTE)

8AS

vICE

b1 BUS PRIORITY#!

Tonoabus PRIORITY#®2

OF EQUIPMENT UNDER TEST

CNIOLR
REECITTION
vxchbERi??oé
H&SDLergl

.,osvx
€ DESCRIPTOR uonoox

.WORD
sogo

ADDOW2
gooug

;;ocvxc
ocxxc

.WORD

ADDWG

,;oevxcs DESCRIPTOR uonoos

_WOR

.WORD

177440

nBBus

RDDW?

gcn;rroa WORD #2
cs p;oa uogoua

BEVISE BEES IPTSR 88
:;DEVICE DESCRIPTOR WORD®?

:DEFAULT BUSS ADDRESS

2370

001314

000210

vasc

210

osrnu&r CONTROLLER INTERRUPT VECTOR

2372

001320

172540

PKS:

172540

!P-CLOCK STATUS REG

2371

001316

000240

RKP

P 3

CZRBHEO UNIBUS_RK& DR _PRT]
CZRBHE.P11
25-JAN-78 12:00

MACY11l 30R(10S2)
25-JAN-78
APT MAILBOX-ETRBLE

104

12:08

PRGE 47

SEQ J047

2373
2374
gg;g

001322
001324
001326

172542
172544
177546

PKSB:
PKRB:
LKS:

172542
172544
177546

2377

001330

000100

LCVEC:

100

000114

MEMVEC= 114

MEMBARS= 172100
TRAPPC: O

!MEMORY PARITY OPTION CSR STQRT ADOR
iPC FOR MEMORY CHECK ENABLE TRAP
;1 FOR 220 OR 230 START,

Sg;g

001332

2380

000104

PCVEC:

104

2381
s%gg

001334

172100
000000

e384

001336

000000

PARAM:

Sggg

001344

000000

FTITLE: O

2385
2386

001340
001342

000000
000000

BYPT16: O
MODTST: O

;P-CLOCK SET BUFFER
;
P-CLOCK RERD BUFFER
; L-CLOCK STRTUS REG.
;L-CLOCK INTERRUPT VECTOR

:P-CLOCK INTERRUPT VECTOR.
; MEMORY PARITY VECTOR

NO DEFAULT'

i1 FOR 210, 230, 270 START
1 FOR _260°OR 270 START

;FLAG FOR PRINTING OUT 1ST PROGRAM TITLE

2389

00134

000000

DRVPTR: O

;CONTRINS THE POINTER TO THE DRIVE FLAG

2391

001350

000000

FRCYL:

, ROM
C

2393
2334
2335

001354
0013S6
001360

000000
000000
000000

CCYL:
PCYL
CALDIF:

Sggg

001366

2390
23%2

2396
2397
2400

001352

000009

TOCYL:

0
0
O

001362
001364

090000
000000

CYLDIF: O
CYLARDD: O

001370

000074

HZ:

60.

000000

CALARDD: O

240l
2402
2403
e4o4
240S
2406
2407
2408
S:?g

001372

000000

COUNT:

001374
001376
001400
001402
001404
001406

000000
000000
000000
000000
000000
000020

SEC:
TIMUP:
SECNT:
PSEC:
ESEC:
SECTOR:

Q
O
O
0
0
O

2411

001410

000000

LPFLG:

00i4le

00000}

c4le
ce413
2414
e41S

: (DRIVO-DRIVZ) OF THE DRIVE TO BE CHECKED NEXT.
CURRENT CYL, USED IN N SQUARE TEST
;
cyL., @
N N SQUARE TEST
:CALC CYL OIFF USED IN N SQUARE TEST

,CYL DIFF, RIGHT JUSTIFIED FROM RKMR3
;CYL ADDR, RIGHT JUSTIFIED FROM RKMR3

:CYL ADDR’USED IN FHDTAB ROUTINE

;60 FOR 60 CPS

160 FOR SO CPS
:LORDED TO S0 OR 60 TO COUNT TO 1 SEC
:OR ANY OTHER NUMBER TO COUNT OFF FRACTIONAL SECOND
:SECOND COUNTER
iFLAG TO INOICQTE TIME IS UP
:SECTOR
PREVIOUS SECTOR
{EXPECTED SECTOR
'SECTOR COUNT, RIGHT JUSTIFIED FROM RKMR3
;SET 10 O TO RETURN TO SLPARDR

2416
2417
2418
2419
e420
S:gé

001414
001416
001420
001422
00l4e4
001426

000012
000144
000764
004704
01i610
141520

T10:
7100:
1500:
72500:
1S000:
T50000:

10.
100.
£00.
2500
SO0GO0.
S0000.

‘IF SWi4 OR SW8 SET
:SET TO 1 TO RETURN TO SLPERR
;IF SW9_SET
: TIMEOUT CONSTANTS

2423

001430

000000

HERD:

; HERD NUMBER

e4e4
242S
2426
e427
2428

001432
001434
001436
001440
001442

000000
000000
000000
000000
000000

HERDR:
HD1:
FORMART:
FMTL:
WDCNT:

O
0
O
0
O

‘HEAD 8 FROMH.B3 RIGHT JUSTIFIED
SHIFTED HERD® FOR FORMATTER ROUTINE
:FORMAT TYPE
‘SHIFTED FORMAT FOR FORMARTTER ROUTINE
;WORD COUNT

CZR6HED UNIBUS RKB DR PRT!
CZREHE. P11
25-JAN-78 12:00
2429

MACY11 30R(1052)
25-JAN-78
APT MRILBOX-ETABLE

JO4

12:08

PAGE 48

SEQ J048

2430
2431
S:gg

001444
001446
001450

000000
0S2525
177777

DATAD:
O
DATAOL: 52525
DATARL:
177777

sALL 0’S
;0101 PATT
JALL 1’S

2434

001452

000000

WORD:

: HEADER/DATA WORD

2437

001456

000000

BSERR:

:CANNOT RERD BSE INFO WHEN SET

2440

001462

000000

BYPCERR: 0

S:gg
S:gg

2441
2442

001454

001460
001464

000000

HOWD:

000000

LIMERR: O

000000

BYPFMT: O

:HEADER WORD FROM RKDB
'LIMIT DETECT ERROR FLRG

:SET 7O 1 TO BYPASS CKCERR IN GSTAT1 ROUTINE

:BYPASS FORMAL FORMATTING OF HEADERS
SUNTIL BSE INFO HAS BEEN STORED.

'IF SET, BIT 14,15= 1

5333
g::g 001466 000000

CHKFLG: O

:WORDS TO BE CHECKED

2447

; CALCULARTED HEQOER uono TRBLE

2448
2449
2450
2451
2452
2453

2454
2455
2456
2457
2458
Szgg

001470

000102

HDTAB:

002304

000400

BSE22H: .BLKW 256.

(003304

000000

UNLD:

003306

000000

BADHDR:

003310

000000

HPEND:

001674
002100

000102
000102

.BLKW 6b.

RHTAB: .BLKW 66.
SRTTRB: .BLKW 66.

2461

2466
2467
2468
2469

2476

003312
003316
003320

001

010
100

002
020
200

oo4
040

RTTN:

IF
IF
IF
IF
IF
IF

HEADS ARE LOADED
HEADS UNLORDE
FORMATTING OK
FORMATTING ALTERED
HALT NOT PENDING
HALT PENDING

.BYTE 1,2,4,10,20,40,100,200

:ATN 0-7 RESP.

.EVEN

;

003322

000000

HCSl:

003330

000000

HBA:

003324
003326

2480
2481
2482
2483

003332
003334
003336
003340

2484

O
|
O
1
O
1

THE FOLLOWING ARE HOLDING REGISTERS FOR THE RKG611 REGISTERS
*THEY ARE LOADED AFTER RDY IS REC’D FROM WRDY ROUTINE.

2477
2478
2479

10
70
70
TO
70
70

:BY 'STOP’ ROUTINE TO BRING
:THE CPU TO AR VALID HALT.

2472
g:;g
2475

:SET
:SET
‘SET
'SET
:SET
:SET

; THE ABOVE 3 FLAGS ARE _ULSED

2462
g:ga
246S

'FILLED RFTER ng HE
: ABOVE nurna SORTED TRRTING FORM
:SECTOR O BY SORT ROUTI
122 SECTOR HAR
€ BSE nro
122 SECTOR SOFTWARE BSE INFO
: OVERLAYS MSG1

003342

000000
000000
000000
000000
000000
000000

000000

;HOLD RKCS1

ETC.

HCS2:
HWC :

DO
0

HDA:
HOS :
HER
HASOF:

0
0
0
O

HDC :

:HOLD RKCS2
HOLD RKWC

KO4

PAGE 49

00000 o

12:08

00000000

—

000001
000002
000004

2521l

D
o

000000

000000
000000
000000
000000
000000

THE FOLLOWING ARE

'EXPECTED'

00000000

003424
003426
003430

000000

D
n

003412

MMMMMMMMecece: TTTIIT
X I

oD n
unnnninnnn [1a]
m.—;—....—.—..—.—.—
OOuODNON LW

003410

[V I P
SN

000000
000000
000000

Xecwr

000000

; TEMPORARY STORAGE.

00000

000000
000000

25-JAN-78

APT MRILBOX-ETRBLE

—4
m
X
R

003344

MRACY11l 30A(10S2)
o
=
®

CZREHEQ UNIBUS RK& DR PRTI1
C ZREHE P11
25-JAN-78 12:00

THE FO' LOWING RRE IDENTITIES FOR DRIVE MSG WORDS TO BE TESTED
.R2=B1T0

.B82=BITl
.B3=BIT2

; TEST MSG R2 IF SET

gRLL THE FLRGS BELOW RRE CLERRED INITIALLY BY THE CLRFLG ROUTINE.
003432
003434
003436
003440
003442

000000
000000
000000
000000
0cocao

pobuMP:

DOPCH:
ACT11:
PPTP:
ORIVS:

O
O
0
O

;FLAG - SET WHEN IN DDP DUMP MODE

{FLAG - SET WHEN IN DDP CHAIN MODE
'FLAG - SET WHEN IN ACT11 MODE OF OPERATION
'FLARG - SET WHEN PROGRAM LOADED BY PRPER TAPE
iCONTRINS THE NUMBER OF DRIVES PRESENT

; THE FLAGS BELOW RARE SET YO
1 TG INDICATE THRT A PRARTICULAR DRIVE

: 1S PRESENT AND IS TO BE TESTED
003444

000000

DRIVO:

;FLAG SET TO 1 WHEN DRIVE O PRESENT

SEQ 0049

CZRBHEO UNIBUS_RKE& DR_PRT1
CZR6ME.P11
25-JRAN-78 12:00

MACY1l 30A(10S52)
25-JAN-78
APT MARILBOX-ETABLE

LO4

12:08

PAGE SO

SEQ J0SC

oS4l
2S4e
2543
2s44
2545
2546
ngg

003446
003450
003452
003454
003456
003460
003462

000000
000000
000000
000000
000000
000000
000000

DRIVl:
DRIVe:
DRIV3:
DRIVY:
DRIVS:
DRIVE:
DRIV?:

O
O
O
O
O
O
O

;FOR
;FOR
;FOR
;FOR
;FOR
;FOR
;FOR

DRIVE
DRIVE
DRIVE
DRIVE
DRIVE
DRIVE
DRIVE

1
2
3
Y4
S
6
7

2549
2550
2SS1
2552

003464
003466
003470
003472

000000
000000
000000
000000

LCLKF:
PCLKF:
DOTIM:
SIZFLG:

O
O
O
O

;L-CLOCK FLAG PRESENT FLAG
;P-CLOCK FLAG PRESENT FLAG
;SET IF EITHER CLOCK PRESENT FOR TIMING TESTS.
;SET IF DEFRULT DO SIZING IN TEST |

CZRBHED UNIBUS RK6 DR PRT1

CZREHE.P11

25-JAN-78 12:00

MACY11 30A(1052)

25-JAN-78

ERROR POINTER TABLE

PAGE S1

g22d

. ¥THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCLR.

2559

! ¢NOTE2:

3556
2567
2888

P ¥THE INFORMATION IS OBTAINED BY USING THE INDEX_NUMBER FOUND IN
}$LOCATION SITEMB, TWIS NUMBER INDICATES WHICH ITEM IN'THE TRBLE IS PERTINENT.
IF SITEME 1S O THE ONLY PERTINENT DATA IS (SERRPC)
! ¥NOTEL:

2861

g563
64

5267

2868

2569

8570

21
2872
2573
2574

2575

2576

2577
2278
2579
2580

281

2582

DO347Y

Qogu7y

Os70Ig

003504

057266

003514

057307

476
003500
003502

003506
003210
003512

o1
F

Q03524

057330

6
003530
003532

;ERROR 1

T0 THE DATA
{ {POINTS
BRATA Format
1iE0INTR 18 THE

0637
066076
066744

EM2

.DR % IN RKCS2 CANNOT BE READ BACK CORRECTLY IN RKMR2

EMS

.DETECTED MDS

EMG

.DETECTED UFE

EM7

.DETECTED DRI & NED RESET (WRONG PORT SELECTED?)

BHI
DTl
OF1

:ERROR 2

063767
066076
066744

2890

L
'y

FIPOINTS 10 THE DATA HEADER

06376
066076
066744

003516
003520
003522

5591

EACh ITEM IN THE TABLE CONTRINS4 POINTERS EXPLAINED RS FOLLOWS:
;POINTS TO THE ERROR MESSAGE

SERRTE:

5883
2564
2585
2586
7

2562

2865
2566

DH1
DTl
OF1
;ERROR 3

BH1
OT1
OF1
. ERROR 4

OH1
OT1
OF1

523
4 Q57417
quw 883335 8537&7

FERROR S\
H1

S238
8533

sERR

ERROR 6 EM3

;DR NOT PRESENT BUT SPECIFIED BY OPERATOR

5295
2596

2601
2602
2603
2604

cb0S

2606
€607
2638

SEQ 00S1

ERROR POINTER TRBLE

.SBTTL

2553

MO4

12:08

(03540
003542

066076
066744

QEIsy

ps7us

003554

0S7521

46
003550
003552

003556
003560
003562

0B376
066076
066744

063767
066076
066744

DTl
OF1

BH1
OTi
OF1

;ERROR 7

E
D
D
D

DDT NOT SET IN MR2

:ABORT TEST, COULD NOT REFERENCE CONTROLLER REGISTER

cZ RBEHEQ UNIBUS RK& DR _PRT1
cZ R6HE.P11
25-JAN-78 12:00

LAY e Pt Pt et Pt Puuct Pt Pt e
wn = (=] Q00NN L W

n
RORGRR
o NNN*NNNNN
[sadsadoad e als als ol ol ol 1
nn

2609
2610

003564

0S7564

003572

066744

003574

057630

MACY11l 30A(1052)

ERROR POINTER TARBLE
:ERROR

:ERROR

’

057730

Eflil

PAGE S2

:DRA & NED BOTH SET

EM12
8?%8

s CONTROLLER NOT READY

PAFTER UNLORD CMD.

OF10
;ERROR

057661
064560

057703
064560
066076
067070

NO4

12:08

DT1
OFi

067070

(Y-

@25-JAN-78

’

EM13
8#18

ERROR 1gF10
gzig

:NO_ATTN
*AFTER UNLORD CMD

:WRONG ATTN

DT1

’

ERROR 13F1°
Snig

;DRDY NOT CLEARED

DT1

ERROR 1gF1°

guig

:0SC NOT SET

057762
064560
066076
067070

’

ERROR 12Fl°
EML7

003652

060007
064160
066500
067240

003654

060024

ERROR lgrao
EMLB

003662

067240

003664
003666
003670
003672

060041

ERROR agrao
EM19

;MSG Al ERROR

003674

060056

’

ERROR a?reo
EM20

:MSG Bl ERROR

003702

067240

003704
003706

061471
064160

OF20
:ERROR 22

003642

003644

0T1

067240

8??3

8¥?3

8#?3

EMYE
OHB

;MSG A0 ERROR

:IN UNLD

:MSG BO ERROR

:IN UNLD

:MSG R2 ERROR
*IN UNLD

SEQ 00Se

CZREHEO UNIBUS RKb DR PRTI
CZREME.P11
25-JAN-78 12:00
2665
2666
2667
2668
2669
2670
2671
2672
2673

2674

2675
2676
2677
2678
2679
2680
2681
2682
2683
2684
2685
2686
2687
2688
2689
2690
2691
26S2
2693
2694
2695
2696

2697

2638
2699
2700
2701
2702
2703
2704
2705
2706
2707
2708
2709
2710
2711
2712
2713
2714
2715
2716
2717
2718
2719
2720

>10
712

066560
067314

003714
003716
003720
003722

061504
064160
066560
067314

003724

060073

MACY1l

30A(1052)
25-JAN-78
ERROR POINTER TRBLE
DT1Y4
F
;ERROR 23
MY
DH8
DTIY
OF 22
; ERROR 24

EM21L

003726
003730
003732

064647
066076
067070

003734
003736
003740
003742

060115
063767
066076
066744

DH21
DTJ
DF10
;ERROR 25
EM22
DHI
DT1
DF1

003744
003746
003750
003752

060154
063767
066076
066744

;ERROR 26
EM23
DHI
DT1
DF1

003754
003756
003760
003762

060234
064601
066076
067070

003764

060260

003766

063767

003774
003776
004000
004002

060306
063767
066076
066744

004004
004006
004010
004Cl2

326
063767
066076
066744

00N40iY
004016
004020
004022

060347
063767
066076
066744

004024
004026
004030
004032

060425
063767
066076
066744

003770
003772

066076
066744

;ERROR 27
EMEY
OHI9
bT1
OF10
;ERROR 30
EM2S
DHI
DTl
OF
1
:ERROR 31
EM26
OHI
DT1
DF
1
; ERROR
EM27
DH1
DT1
DF 1

;ERROR 33
EM28
DHI
DT1
DF1
; ERROR 34
EM29
DHI
DT1
OF1
; ERROR 35

12:08

PAGE 53

SEQ 0053

;MSG B2 ERROR
:IN UNLD

;CERR_SET

JAFTER SCLR

;RLS DID NOT SET CERR

:SACK SET AFTER RLS SENT

;VOL_VALID NOT SET
‘RZTER PACK CMD

;DRIVE TYPE SET

;DDT SET

sDTYE SET

IN MR2

IN RKDS

IN RKER
\

;DTYE NOT SET

IN RKER

:DTYE DID NOT SET CERR

CZR6HEOD UNIBUS RKG& DR PRT]

CZReHE.P1l

25-JAN-78 12:00

2721

004034

060474

2723
2704
2785

004040
004042

066076
066744

0040MM

060525

004054

060552

272

2726

2727
2728
2729
730

73]

2732
2733
273
7

004036

004046
004050
004052
OO4uso
0Q0M060
004062

063767

063767
066076
066744
063757
066076
0674

25-JAN-78

ERROR POINTER TRBLE

EM30
DH1

DT1
DF1
;ERROR 36

EM31

DH1
DT1
DF1

;ERROR 37

EM32
DH1
DT1
DF 1

: ERROR 40

PAGE 54

SEQ 00SY4

:C-D PARITY ERROR SET IN MR3

:D-C PARITY
.

sFAULT

SET IN CSl

NOT SET IN MR3

)

004064

27490
2741

66
004070
004072

063767
066076
066744

004074

060634

;ERROR Y41
EM3Y4

:D-C PARITY

2746

004104
004106
Q04110
004112

960665

063767
06076
066744

’

EM35

sDCPAR DID NOT SET CERR

2751

004114

060740

EM36

;CYL ADDR IN B2 NOT = RKDC

2753
2764

004120
004182

066560
067314

2766

004124

061000

2769
2760

004132

067314

2762
2763
2764

004136
004140
004142

2742
2743
2744
2747
2748
2749
2750

2752
2755
2777
2758

2761

004076
004100
004102

004116

004126
004130

063767
066076
DE6744

064446

064446
066560

004134

060740

2766

004144

061040

2769

004152

2765

2767
2768

004146
004150

064446
066136
067044
064446
066136
067044

EM33

CO5S

12:08

2736

2737
2738
2739

060577

MACY1l 30R(1052)

DH1
DTl
OF1

DH1
DT1
crror 43Fb

DH1
DT1
DF1
; ERROR 43

DH14

DT14
DF22

: ERROR 44

EM37
DH14
DT 14

DF22
: ERROR 45

EM36

DH14
DT
OF6

;ERROR 46

EM38
DH14
OTH
OF6

5755 oouis4 06111l

+ERROR 47113

2773
2774
2775

DT14
DF22
: ERROR S0

2772

004186

064540

2776

004164

061146

004160
004162

066560
067314

:C-D PARITY ERROR NOT SET IN MR3

NOT SET IN (Sl

!AFTER SEEK WITH BAD PARITY
;CYL DIFF IN A2 NOT=RKDC

:CYL ADDR IN RKMR3 NOT=RKDC

;CYL DIFF IN RKMR2 NOT=CALDIF

CYL DIFF/OFFSET IN RKMR2 NOT CLEARRED

DH17

!AFTER RECAL CMD

EM40

;CYL ADDR IN RKMR3 NOT CLERRED

CZR6HEC UNIBUS RK&E DR PRT!

CZRBEHE.P11

25-JAN-78 12:00

777

0041

753

00417z

ERROR POINTER TABLE

45y

DH17

067314

0007
4

DF22

+ERROR 51 é

004202

067240

ERROR sorao

g
e
o4308 &BRecha
417

g;gg

DT14

?
S?

0OY
0024
458: 82&4923

004210
004212

066500
067240

2791
2792

004214
DO421e

1265
4540

2788
S;gg

2793
2794

25-JAN-78

325258

778 ~41

MACY1l 30A(1052)

EMY43
OH17

:HEAD DECODE IN B3 NOT CLEARED
JRFTER RECAL CMD

DTI13
ERROR sgrao

2801

004234

057661

: ERROR sgEmM13

2803
gggg

004240
004242

066076
067070

DT1
ERROR 52F1°

2802

2806
2807

004236

OT15
DF23

;ERROR 54

EMYY

064476

064540

4244
Yo4e

062436
064160

0o4252

067350

DH16

OH17

2808

004250

2811

004254

060007

’

2813
2814
2818

004260
004262

066500
067240

DT13
OF20
;ERROR 60

5393

2812

004256

2816

00426M

2821

004274

2817
2818
2819
2820
2822
2823
2824
2825

2826

2827
2828
829
830
2831

2832

004266
004270
004272

066650

EMBY
DH8

064204
060024

064204
066500
067240

060041

004276
004300
004302

064204
06650
06724

004304

060056

004314

060007

004306
004310
004312

004316

064204
066500
067240

084250

DT1S

‘

99 ERRSRREAD DATA CMD

:B0 ERROR
!

061314

004226

:AFTER RECAL COMD

§n1e
H26

004224

2797

SEQ 00SS

b 75

066650
067350

2796

PAGE SS

'AFTER

004220
004222

2795

DOS

12:08

:B3 HEAD DECODE INCORRECT

:NO ATTN

:AFTER RECAL CMD

:MSG B3 HERD REG NOT CLEARED
:IN UNLORD

ERROR Sgrea

EM17

DH3S

:MSG RO ERROR

IAFTER START SPINDLE CMD REC’D BY DRIVE

EMLB

:MSG BO ERROR

EM1S

:MSG Al ERROR

EM20

;MSG Bl ERROR

OHI10

;RT END OF HERD LORDING

DH9
DTi3
DF20
;ERROR 61
CHI
0Ti3
OF 20
:ERROR 62
DH9
DTi3
OF20
:ERROR 63
EM17

CZR&HEO UNIBUS RK& DR PRT1
CZR 6HE.PLL
25-JAN-78 12:00
004320
004322

MARCY11l

25-JAN-78
ERROR POINTER TRBLE

30A(10S2)

EQS

12:08

PRGE 56

SEQ 00Se

066500
067240

060024

067240
057661
064250
066076
067070

;NO ATTN
;AT END OF HERD LORDING.
: ERROR

060041

; ERROR

U
bbb
OWwr—~N

;AFTER START SPINDLE CMD 8 FWD SET.

; ERROR 7

PUGet—=—=
OWe=md

060024
064277
0e6500
067240

IX MH4I3X M~IX

004404

:START SPINDLE CMD.

b
0

004402

;FWD NOT SET WITHIN 60 SEC FROM

; ERROR

OMWOOODMLODODM—O

DH1

; ERROR

061671
063767
066076
066744
0O444Y
Q04446
004450

060007
064336
066500

: ERROR

;FWD NOT CLERRED WITHIN S5 SEC OF MOTION

{FROM START SPINDLE CMD.
; ERROR

;AT

INNER LIMIT FROM START SPINDLE CMD.

CZRGHEC UNIBUS RKG DR PRTI

CZREHE.P11

25-JAN-78 12:00

2889

Q04452

067240

5891

0O44SH

060024

5890

MACY11 30A(1052)

25-JAN-78

ERROR POINTER TRBLE
;ERROR 77

Q04456
0Q4460
004462

064336
066500
067240

DO4Y46M
0Q4466
004420
004472

060041
064336
066500
067240

DO4Y47M

0600S6

0Q4S00

066500

DH12
0T13
bF20
.ERROR 100
EM19
DH12
DT13
OF20
;ERROR 101
EM20
DH12
DT13

5306

DO4SO4

061532

2908
2909

Q04510
004812

066076
066744

064336

Sqge 004s0e De7240
5907

004306

063767

ERROR 1000

EM49

DH1

DT1
OF
1

S317 0ouSI4 080007

+ERROR 18317

5913
3914
2913
5316
5317
5918
5313
2320
5351
5353
5353
3354
5355
5350
5357
5328
2589

5331

0QYSSY

5333
5934

004360
QQ4Se2

5913

5337

004516

064377

0Q4YS2Y
004586
004530
(04332

DBOORY
064377
066500
067340

0QY4S3IM
Q04536
Q0440
Q04842

D6OQML
064377
Gb6500
067240

0OYSHM
Q446
004SSN
004552

DBO0SE
064377
066500
067240

DT13
oF20
;ERROR 104
EM18
DH13
DT13
DF 20
;ERROR 105
EM19
DH13
DT13
OF 20
;ERROR 106
EM20
DHI3
DT13
crror 10520

061350

’

004520
004882

004556

066500
087240

063767

066076
06674d

DH13

EMYS

OH1
DTl
OF1

5336
0OYSEY
06007
2937
004566
064446

JERROR 142,15
DHIM

5347 0OYS7Y 0BOORY

+ERROR 1418

5338
5333

004570
Q04372

DB6SH0
067314

5342

0QO4B76

DBY96

5943
2944

004800
Q0402

066560
0B731Y

PAGE 57

5832
5893
5894
5835
5836
5897
5898
2893
2900
5301
5902
2903

(04476

FOS

12:08

DT14
OF 22

BH14
DT14
OF 22

.FWD NOT SET WITHIN 4 SEC IN RTZ PORTION

' OF START SPIN CMD.

.FROM OUTER LIMIT TO CYL O DURING LOADING

.DRIVE READY NOT SET WITHIN 1 SEC

'FROM FWD IN R1Z PORTION OF START SPIN CMD.

MSG_AO_ERROR

;AFTER SEEK WITH BAD PARITY

MSG BO ERROR

'AFTER SEEK WITH BAD PARITY

SEQ 00S7

CZREHED UNIBUS RK& DR _PRT]
CZRoHE.Pl.
25-JAN-78 12:00
004604

060041

MACY11

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

; ERROR

112
EM

GOS

12:08

PAGE S8

;A1 ERROR
'AFTER RERD DATA CMD

004732

; ERROR

owo
Ooworm
O

Of
O
-

;AFTER SUBSYS CLEAR

.ATTER START SPINDLE CMD

P
—
—

; ERROR

£V

057630
064540
066076
067070

SEL DR CMD
tGPYER

;AFTER SEEK WITH BAD PARITY

004724
004726
004730

; ERROR

;CONT NOT ROY
;AFTER PACK CMD

063547
063767
066076
066744

;AFTER LORDING HEAD REGISTER & SEEK CMD

:NO DRIVES FOUND

004714
004716
004720
004722

; ERROR

:AFTER RECAL CMD

(=)

057630

; ERROR

NMATIILNHNTIIWNAIIVNAITII~NSTIIONA ITINMAIIONHNIINNI
b
papapa
() bbbt
b
e e pe LAV
o o VT
1
Y Y Y e [V L
4 1 |Y

00M704
004706
004710
Qo4712

; ERROR

—

057630
064204
066076
067070

; ERROR

[

oou467Y
004676
004700
004702

; ERROR

oo4672

066076
067070

; ERROR

[

060024

—

060007
064476
066500
067240

nNOoOODMLDOOMNLOOOMNOOOMNOODMNNDODM-0O00DM—-0D00DM—000

;81 ERROR

SEQ 00sse

CZR6HEQ UNIBUS RKb DR PRTI
CZR&ME.P11
25-JAN-78 12:00

3001

3002
3003
3004
3005
3006

3007
3008
3009
3010

Qou734

OS7EE)

004736
004740
00742

064946
066076
0B7070

004744

063640

004746
004750
004782

063767
066076
066744

3011
3012

00474
004786

004760
004762

061111
06YEH7

066076
067070

3016

00N764

061146

004774
004776
005000
005002

057630
OB4794
066076
067070

005010
005012

066076
067070

00S014

060007

3013
3014
3015

3017
3018
3019
3620
3081
3082
3023
3004

004766
004770
004772

064EY?
066076
067070

38§5
SO0
0S7661
3055 B9208¢ 9el5sd

3088
3029
3030
3031

3032

3033

3034
3035
3036

3037
3C38
3033
3040
3041
3042
3043
3044
3045
3046
3047
3048
3049
3059
3081
3052
3053
3084
3025
3056

005016

064744

005022

067240

COS024
005026
00s032

060024
064744
066500
0672340

005034
005036
005040
008042

060041
06474
066500
067240

00SOMY
002046
002958
005052

0600SE
064744
066500
067240

00S0S4
005036
005060
002062

061111
0B4744
066560
067314

00S0e4

O0Bll46

003020

0r-030

MACY1l

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

EM13

OH14
DTl
OF 10
.ERROR 126
EMB9

.ERROR

OH1
0Tl
OF
1
127

;ERROR

DT1
OF 10
130

EM39
DH21

Mug

OH21
DT1
OF 10
.ERROR 131
EM12
BH2S
OT1
DF10

;ERROR 132
.ERROR

5
BH25

DT1
OF 10
133
EM17

DH25

066500

HOS

12:08

PAGE 59

SEQ 0059

.NO ATTN

' FROM SEEK WITH BRD PARITY

;NO DRVS FOUND IN DEVICE MAP

.CYL DIFF/OFFSET
'AFTER SCLR

IN RKMR2 NOT CLEARED

.CYL ADDR IN RKMR3 NOT CLEARED

:NO_RDY
'AFTER SEEK CMD

MO ATTN
.MSG RO ERROR

DT13

.ERROR

OF 20
134
EM18
DH25

.MSG BO ERROR

DT13

OF20
135
EM19
BH2S
0713
OF 20
. ERROR 136
EM20
B5HOS
0713
OF 20
.ERROR 137
EM39
OH2S
DTI4
OF 22
.ERROR 140
EM40
.ERROR

.MSG Al

ERROR

:MSG Bl

ERROR.

.CYL DIFF/OFFSET

;:CYL ADDR

IN A2 NOT CLEARED

IN B2 NOT CLERRED

CZRGHEQ UNIBUS RKG DR PRTL
CZREHE.P11
26-JAN-78 12:00
3057
3058

00S066
002070
002072

06H47YY
066560
067314

3061

005074

06.771

3089
3060
3062
3063
3064

3066

002076
005100
005102

DOSI104

062030

005106
002110
00B112

O0B3I7E7
066076
O0BE74Y

3072
3075
3074

00S114

005116
005120
008152

062061

3077

005196

063767
066076
06E744

3078 oosizv 061517
3078
3079

005130
008132

065122
066076
067070

3081 005134 061517

3082

005136

065146

3083
3084

002140
005142

0BB204
067110

3087

005146

O6444E

OF 22
.ERROR 191

303:

005154

060056

.20 SECTOR FORMAT NOT SET IN RKMR2

’

EMS3

.SECTOR O NOT FOUND WITHIN 5G MS

EMSY

.DIFF SECTOR NOT FOUND WITHIN 3MS

DH1
Tl
OF1
.ERROR 143

OH1
OT1
DF1

sERROR 1008
BH3Y

DT1
DF10

1ERROR 15
BH3S

DT6
DF 12

iERROR 148
14

3088
3089
)

OT14
DF 22
.ERROR 147

35
3093
3094
3035

3096

066560
067314

005156
005160
005162

0E4446
066560
067314

00S164

060041

3097
3098
3099

Nelge
005170
008172

065217
066076
067070

3162

005176

0B4ETS

EM19

.MSG Al ERROR

OH37
0Tl
OF10

002200
00S02

ceron

3106

005204

063743

00S214
003216

000000
©£0000O

’
.ERROR

MSG Al ERROR

.MSG B1 ERROR

3103
3104

063767
066076
066744

. BETWEEN SECTOR COUNTS

EM20

JERROR 15 2

008506
005210
008812

MSG B3 ERROR

'AETER SEEK WITH BAD PARITY

OHIY
DTIY
DF22
.ERROR 150

066076
067070

;

SECTOR REG UNSTABLE

DHIY

$P oosizv 057630
3107
3108
3109
3110
3111
3112

PAGE 60

EMS2

OH1
0Tl
crror (D5

3088 ooSiwe 060041
005150
005182

I10S

12:08

DH2S
DTI%

063767
066076
DBE7

3067
3068
3069
3070

3071

MACY1l 30A(1052)
25-JAN-78
ERROR POINTER TRBLE

NO RDY

OHoS

‘AFTER CLEAR CMD

EMI0

:DDT NOT SET IN RKDS

DTI
(D510

OHi
DTl
OF1
163
3
)

SEQ 0060

CIREHE.P11

25-JAN-78 12:00

CZR6HEO UNIBUS RKG& DR PRTI

O AaSE) NEER MhalE 1°:08 PAGE Bl

MACY11 30R(1052)

3113
005220
000000
3114
002552 000000
311e ooseew oe2114

Elias
DT1

3118

005832

067070

3181
3121

00S234
0o

063404

’

3126

00524

3185
3128 998
005250 GeZs3?
0BBO76

3129

005282

3131 00Sasu4
313
Pesee
JeLshs
3133
002580
066076

’

087070

3134

008282

136 ooszed

067070

3136

goszey

Dbee7y

3138
3139

005270
003872

06607E
066744

3147 oosezd oe0007

3142 005576 065263
3143 005300 066500
3I44

005302

067240

3195 09230e Oeades

3148
3149
315G

0053.7
005312

06GEOD
067240

3151

00S314

3183
3154
3185

005320
002382

3156

0053

3158
3189

005330
005332

06LE0D
067240

3163
3164
3165

002340
002342

066676
067070

3166

00S344

3168

005350

3128 P0c3le BE2%ds

066500
067340

3125 B9235¢ a6ooes

3161 00S3
3165 80233 Gese)

3165 00e4E geeaes
066676

2S-JAN-78

8
1ERROR 134

3117
005806
064675
3118
005630
066076
3155
D92538
Beeose
3124
005242
067070

JOS

.ERROR

12:

‘

sATTN NOT CLEARED

DF10

155

EMBS

. IDAE_NOT CLEARED

D17
OF10

sRFTER RECAL CMD

S
OT1

P
ERSRR
70 SELF
;RFTER
SEEK TO

EaT
DT1

N0 ATTN

Era

.LIMIT DETECT NOT FOUND

. ERROR
. 156

OF 10
.ERROR 157

s ERROR 180

0Tl
DF1

s ERROR 18

EH
OT13

DF 20

;ERROR 162

iMSG BO ERROR

Enie

:MSG AL ERROR

156 B1 ERROR

.ERROR

. ERROR

OT13
OF 20
164

’

OT13
OF20

+ERROR 152
Eliaa
.ERROR

’

HPTEROLIRTT
;AFTER
LINIT DETECT

HES

DT13
OF 20
163

0Tl
OF 10
166

SEG 0061

iNO ATTH

+HERDS HOME NOT FOUND

SRR R SRR PR ERBRERAE

[ ]

NI
N
S W
o
N
N
S
e e
e

W W W W

MMM
N NNNNNNNNN o
WD VONCN LW—O [V

W W W W WWWWWWW WWWWWLWWWWWWwWW W

CZREHEO UNIBUS RKb DR PRT]
25-JAN-78 12:00
CZRBEHE.P 11

WWwlWwwwlww
o
mm.—...;—.—.—p.—

—OWOONCN
LW

3208
3

3222

00S53se

067070

005354
005356

062361
065263
066076
067070

057153
065515
066076
067174
057630
065027
066076
067070
061111

; ERROR 18510
EM

;ERROR 170

067314

00SH41Y4
005416
005420
00s422

062415
065027
066076
067154

00S42Y
005426
00S430
nos432

060073
065027

:ERROR

171

PRGE &2

SEQ J0e2

; LORD HERDS NOT FOUND

FATAL ERR

:NO_RDY

; AFTER RERD HEADER CMD
;ERROR

;CYL DIFF/OFFSET NOT CLERRED

:AFTER RERD HEADER CMD
;ERROR

173

;ERROR 174

;ERROR 175

0OS43Y4
00S436
0os440
005442

KOS

12:08

LIMIT DETECT ERROR ON PREVIOUS TEST

065027
066560

oos412

00OS44Y
005446
0as4s0o
0gsu4se

MACY1l 30A(10S2)
@25-JAN-78
ERROR POINTER TARBLE

;OLT SET

;CERR SET

CYL DIFF _NOT CLERRED

T END OF HERD LORDING

;ERROR 17b

067314
062713
065574
066076
067174

00S46Y4
005466
00S470
005472

067154

00S474
005476
005500
00ss02

060073
065301
066076
067154

057630

:ERROR 177

:CYL ADDR NOT CLERRED.

; FORMAT TEST BYPASSED

;COULD NOT RERD BSE INFO
; ERROR 20

; ERROR 20

; NO_RDY
;AFTER WRITE HERDER CMD

; CERR SET

CZREHED UNIBUS RK6 DR PRT1
CZREHE.PI1
25-JAN-78 12:00
3225

3226

005504

005506
005510
005512

063767
066250
067134

3231
3232

00SS14
005516
005520
005522

060007
065102

066500
067240

3236

00SS24

060024

324}

005534

060041

3246

00SS544

3237
3238
3239
3240
3242
3243
3244
3245
324~
324
324
3250

005526
005530
005832
0056536
00540
E542
00°546
550
35

065102
066500
067240
065102
066500
067240

060056

065102
06650
06724

3525
DBoccee
oeazud
3253
005560
066136
3264
3255

005562

3257
3258
gsgg

005566
005570
005572

064744
066076
067070

gggé

88§§;2

8&5533

3263

005600

066076

3266

00S604

061040

3268
3269

005610
005612

066136
067044

3256

00SS6N

067044

060073

3522 005602 067070
3267

005606

:ERROR 202

062465

3227
3628
gggg

3233
3234
3235

MACY11 30R(1052)
25-JAN-78
ERROR POINTER TRBLE

065102

:READ HEADER ERROR

EML?7
DH33

:MSG AC ERROR
:DURING SEEK CMD

EM18

:MSG BO ERROR

EM19

;MSG A1 ERROR

EM20

:MSG Bl ERROR

ES
OT4

e RO2RE AN CRpTR3 TNCORRECT

EM21

:CERR SET

Ssg;

;REARD CYL O HERDERS ON YL 1

DT13
OF20
:ERROR 204
\

DH33
DT13
OF20
:ERROR 205
DH33
0T13
OF20
; ERROR 206
DH33
OT13
DF20
;ERROR 207

DFB
sERROR 210

DH25
[}
1
ERROR 29510

’

ERROR eggxo
EM38

OH33

074
OFB

iERROR 21217

3273
3274
3275

0713
OF20
;ERROR 214

00616

065364

327

ggssgu

060024

3278
3279
3280

005630
005632

066500
067240

327

00.620
005622

EE36

066500
067240

065364

SEQ 0063

DT1

3577 oose1v 060007
3272

PAGE 63

EMBS

DH1
017
ERROR 28514

LOS

12:08

DHY

EM18
OHY1

0713
DF20
:ERROR 215

:CYL DIFF IN RKMR2 NOT = CALDIF

'DURING SEEK CMD

.MSG RO ERROR

‘DURING RECAL CMD
:MSG BO ERROR

CZREHED UNIBUS RKE DR PRTI

CZR6HE.P11

3281

3c82

25-JAN-78 12:00

00S634

005636

MACY1l 30R(10S2)

060041

EMLIS

065364

DHY41

; ERROR 226

gggz 00Se44 060056
3287

%3
1

00Se46

065364

00S6SY

061040

3292
3293
3294
3295

005656
005660
005662

065364
066136
067044

3298
3299
3300
3301

00See4
0 25?8
0056
005672

(060073
64540

005674

060007

3296
3597

66076
067070

3305

3306
3307

331

331
3313

M20

DH41

p—

005704

005;?6

88 714

716
005720

060041

;CERR SET
; AFTER RECAL CMD

EML?

;MSG RO ERROR

Tl
DF10
;ERROR 221

; ERROR 222

EMIS

069530

iR
1111

D#l?

EM39
DH1?7
DTl

DT1
DF10
; ERROR 225

4YSy

066076
067070

88%7 Y4

062600

3326

005744

057630

3328
3329
3330

005750
00S752

066076
067070

3325

3327

7
005740
00S742

005746

Q64540
066076
067070

064763

3331

00S?54

005756
005760
005762

064763
066076
067154

3336

005764

063522

3332
3333
3334
3335

060073

;MSG Rl ERROR

biis

; ERROR 223

4540
066076

005730
005732

332
3323
3324

;MSG Bl ERROR

EM21
H17

3318
3319
3320

3%2%

;MSG Rl ERROR

;CYL DIFF IN RKMR2 NOT=CALDIF

H41
T4
DF6
; ERROR 220

’

PAGE &4

EM38

ggig 005782
087070
75: 82250

ggl?

12:08

58 R

3310

25-JAN-78

ERROR POINTER TRBLE

MOS

ERROR agSIO
EMB
DH1

EME8

DH1?7
DTl
DF10

:ERROR 226

EM12

DH26

OT1
OF10
; ERROR 227

;CYL DIFF/OFFSET IN RKMR2 NOT CLERRED

;CYL RDDR IN RKMR3 INCORRECT

;RERDING CYL 1 HERDERS ON CYL O

; NO_ROY

; RFTER RERD DATA CMD

EM2l

;CERR SET

EMB7

; CANT RERD BSE INFO

DH26
DTl
DF iS5
; ERROR 230

SEQ 00eY4

066026
066076
067214

00S774
006002

000000
000000
000000
000000

006004
006006
006010
00e01e

060740
064744
066076
067024

006014

063522
06540S
066076
067214
000000

006030
006032

000000

006034
006036
006040
006042

062637
06544S
066076
067070

00604
006046
006050
006052

ubeln/
pe3
0664 /4

00e0S4
006056
006060
006062

062672
064675
066076
067070

006064
006066
006070
006072

062600
oe4S40
066076
067070

006074

060740
064446
066316
067044

067004

061040

30R(10S2)
25-JAN-78
ERROR POINTER TARBLE
DHS3
-

005766
005770
005772

MRCY1l

CZRBEHED UNIBUS_RKE6 DR_PRT1
CZR6HE.P11
25-JRAN-78 12:00

NOS

12:08

SEQ 0065

PAGE 65

;ON SECT 10,12,14,1b,18,20

DF17
; ERROR 231

; ERROR

;CYL RODR_IN RKMR3 NOT=RKDC

iAFTER SEEK CMD
; ERROR 233

; CANNOT RERD BSE INFO

;ON SECT 0,2,4,6,8

; ERROR

; ERROR 236

ALIGN CARTRIDG E USED
WILL BYPRSS FORMAT & ALL R/W TESTS

; UNEXP MEM PARITY TRAP

;TEST &, TRAP PC
; ERROR 23

:ERROR 240

;DSC_SET
;RFTER DRIVE CLEAR CMD

;RERD CYL

1 HERDERS ON CYL O

{AFTER RECQL cMO
; ERROR 24

; RKMR3 NOT = RKDC

SAFTER SEEK WITH BAD PARITY
; ERROR

;CYL DIFF IN RKMR2 INCORRECT

067044
060740

; ERROR

;CYL ADDR IN RKMR3 INCORRECT

CZRBHEO UNIBUS RK& DR _PRTI1
CZR 6HE.Pl1
25-JRAN-78 12:00

MACY11l

30R(1052)
25-JAN-78
ERROR POINTER TABLE

BO6

12:08

SEQ 0066

PRGE 66
;AFTER SEFEK CMD

064744
066316
067044

;RTZ NOT SET

;DURING RECAL CMD
; ERROR

sNO_ATTN

'AFTER SEEK TO

g.fl

W
W
W WWwWwww
L
PR PP PP P
rufn n mp..._..—p—.-..—._.—._
wn P OV
LW

; ERROR 246

067044
006154
006156
006160
006162

060552
065641
066136
067044

006164
006166
006170
006172

063034
0F 3641
066136
067044

006174

0S7762
065641
066136
067044

006202

006204
006206

006210
ooe21e

067240

006214
006216
006220
006222

060024
065641
066500
067240

006224
006226
006230
006232

060041
065641
066500
067240

006234
006236
006240
00be42

060056
065641
066500
067240

006244
00b246

061040
065641

; ERROR

; ERROR 253

; ERROR

; ERROR 255

; ERROR

INVALID CYL

: IDRE NOT SET

sFAULT NOT SET

;PIP SET

;DSC NOT SET

;MSG RO ERROR

;MSG BO ERROR

;MSG Al ERROR

;MSG Bl ERROR

;CYL DIFF IN RKMR2 NOT='CYL DIF’

CZR6HED UNIBUS RK& DR PRT1
CZRBHE . Pll
25-JRAN-78 12:00

3449

006250
006252

06¢ 136
067044

QD228

0740
65641
066136
CH704Y4

006260
006262

BBeSee
006270
006272

MARCY1l

30R(1052)

€5-JAN-78
ERROR POINTER TRBLE
DT4
D
; ERROR 257
EM36

COb

12:08

PAGE &7

SEQ 0067

;CYL ADDR

IN RKMR3 NOT=RKDC

; ERROR

QoE27s

300
006302

; ERROR

006%04

B0E310
00€313

; ERROR 263

006314

;CYL DIFF IN RKMR2 NOT=1

006322

:ERROR 26

006324
006326
006330
006332

;CYL ADDR NOT CLERRED

:AFTER READ HEADER CMD
;ERROR 26

;MSG_BO _ERRO

iAFTER DRIVE CLEQR CMD
; ERROR

;MSG Bl

ERROR

; ERROR
;RFTER WRITE HEADER CMD

; ERROR

006374
006376
006400

IN SEEK TO SELF

JAFTER SEEK WITH BAD PARIT

060024
065027
066500

; ERROR 27
;RFTER READ HEARDER CMD

CZR6HMED UNIBUS RKG DR PRT]
CZREHE. P11
26-JAN-78 12:00
3505
ggz

1206

3509
3510
ggx

1
351

006N02
.

06724)

006410
006412

066500
067240

41y
6416

0007
4675

Bocie 0oo03

3514
3515
3516

006420
006422

066500
067240

3517
3518
3519
3520
3521

006424

006426
006430
006432

060041

064675
066500
067240

3522

006434

0600

3525

006440
006442

066500
067240

3527

006M44

060056

3523
353

3528
3529

gggé

3533

3534

3537

3538
3539
3540
3541
3542

gs:a

006436

:MSG RO ERROR
SAFTER DRV CLR CMD

EM1S

:MSG Al ERROR

EM18

:MSG BO ERROR

0713
OF 20
;ERROR 274
DH22
DT13
DF 20
;ERROR 275

DH1?

DT13
DF20

:ERROR 276

:AFTER RECAL CMD

;ERRCR 277
EM1?

sMSG RO ERROR

006460
006462

066500
067240

OT13
F20

00646M

060041

006474

060007

006456

006466
006470
006472

006476

006S0M
006506
006510

065301

065301
066500
067240

065027

934

060041
065027
066500

06111l

3554
358g
3556

882520
g2

066560
067314

3558
3559
3560

EML17
DH22

060007

006454

006SI4

3557

B30

DT13
DF20
:ERROR 273

:MSG Bl ERROR

3552

3553

PRGE 68

EM20

064540
066500
067240

3550 Sossxa 067240
3551

DO6

12:08

DF20
: ERROR aEfiao

064540

006446
(006450
006452

§§Hs 882?82

3546
3547
3548
3549

MACY11 30A(10S2)
@25-JAN-78
ERROR POINTER TRBLE

(006516
006524

006526
006530
006532

065301

061174

065301
066560
067314

DH17
DT13
DF20

DH39

:ERROR 3

:AFTER WRITE HERDER CMD

EM19

:MSG Al ERROR

§¥?g

:AFTER READ HEADER CMD

DH39
0T13
DF20
: ERROR 301
EM17

Fed

: ERROR 302
EM19
DH30
DT1

OF2

:ERROR 303

EM39

DH39

DT1Y
OF 22
; ERROR 304

EMY1

DH39
OT14
DFee

:CYL DIFF/OFFSET NOT CLEARED

SAFTER WRITE HERDER CMD
:CYL ARDDR NOT CLEARED

SEQ 0068

CZREHED UTIBUS RK& DR PRT]
25-JAN-78 12:00
CZREME
.P
3561

MACY11l

30A(10S2)

25-JAN-78

ERROR POINTER TABLE
; ERROR 305

3562

; ERROR 306

EOG

12:08

SEQ 0069

PAGE B9

;UNLD NOT SET

{AFTER LIMIT DETECT
;SPIN NOT SET

;AFTER START SPIN CMD.

067070

063267
065364
866075
67070

:ERROR 30

;RTZ NOT SET

:DURING RECAL CMD
; ERROR

; RERD HERDER ERROR

; ERROR

:ERROR 3

;FORMAT NOT SET

{AFTER WRITE HERDER CMD
;ERROR 3

; AFTER READ HEARDER CMD
:ERROR 3

; ERROR 3

;WCE AT CYL Y411,TRK 2,SEC 21

; SPOK _NOT CLERRED

{AFTER UNLD CMD
; ERROR

A
;UNEXP

SAFTER STRRT SPIN CMD

0066
006652

067070

006654
006656
006660
O0bbE2

062657
064277
066076
067070

;ERROR 3

:AFT SPIN CMC &

FUWD SET

CZREHED UNIBUS RK6 DR _PRT]
25-JAN-78 12:C0

CZREHE. P11

006664

062657

006672

MACY1l

30A(10Se)
25-JAN-78
ERROR POINTER TABLE

; ERROR 320
EM70

12:08

PRGE 70

SEQ 0070

INNER LIMIT FROM ST SPIN CMD

;ERROR 32

sFROM OUTER LIM TO CYL O DURING LOADING
:ERROR 32

:MSG A1 ERROR

'AFT LD HERD REG 8 SEEK

;ERROR 3

006742

061504
064476
066560
067314

006744
006746
006750
006752

062740
063435
066076
066760

006754
006756
006760
006762

063170
06343S
066076
066760

006764
006766
006770
00&772

057266
063435
066076
066760

; ERROR 325

: ERROR

:MSG Bl ERROR.

:MSG A2 ERROR

;MSG B2 ERROR

;CTO SET

SWHILE WAITING FOR OR REC'D CONTR RDY. MSG RSB BRD
; ERROR 3¢

; ERROR

;NED SET

;MDS SET

CZRBHED UNIBUS RKE DR_PRT]
CZREHE .PL
1
25-JAN-78 12:00

MACY1l

3663
3664

gggs
774
2737 00001
366 88?002 8 S037 801390
3668
gggg

007006
007012

00S037
000450

001342

367

BR70k3 873737

DO7014

007026
007032

005037
000440

88430

001342

7034

12737

00001

007050
0070S4

00S037
000427

001342

3681
3682
3683

007056
007062
007066

005037
005037
012737

001336
001340
000001

3686

70?7

5037

001336

3688

7110

012737

000001

3673
gg;g
&7

367

3678
gggg

gggg

3687

1336

887842 815787 800881

007074

000417

7105 012737 000001

I Sl oo
o
9l
ao7isq
BB2R%
88133
3692
007130
00S03?7
001342
3693
3694

369

3698
3699

3700
3701
3702
3703

88?134
7136

000005
012706

00718

06 002

0071S4

004737

001100

052156

001336

30AR(10S2)
25-JAN-78
ERROR POINTER TRBLE
.SBTTL

PROGRAM SETUP

PARSRT:

MOV
CLR
BR

001340

001336
001340

BYT16:

BYTIBA:

MDTST:

001340
001342

MDTSTA:

START:
PRGSRT:

: START PROGRAM

MOOTST

81, BYPTIb

PRGSRT

MOV
MOV

81, PRRAM
81'BYPT16

CLR

MOBTST

CLR
CLR

PARAM
BYPT16

PRESRT

CLR

PARAM

PROSRT

¢LR
CLR

BYPT16
MODTST

MOV
MOV

:SET FLAG TO BYPASS TEST 16

PRGSRT

81, MODTST

81,BYPTIE
81’ MODTST

PARAM

:CLERR FOR 200 START

MOV

#STACK, SP

:SETUP STACK POINTER

MOY
RTI

818, - (SP)

'LSI-11 COMPATARBLE
'ENRBLE ALL INTERRUPTS

CLR

RESET

MOV
18:

MODTST
PRGSRT

CLR

MOV

001342

SEQ 0071

:SET FLAG FOR 220 START

PARAM

MOV

PAGE 71

81, PARAM

BYPT16

CLR

JSR

$PRO, -{SP)
PC, STKINT

sCLEAR ALL INT ENABLE 3 INIT

PSW LORDSD T?ngs

:SETUP KB VECTOR RDDR,

:3 TURN ON KB INTERRUPT

PRIORITY 4

;#%% CPU PRIORITY LEVEL NOW AT O *##
;#%% ANY DEVICE WHICH SETS ITS
'Y

3704
3708
3706
370
3708
3709
3710
3711

3712
3713
3714
3715
3716
3717
3718

CLR

GO6

12:08

; #% INTERRUPT ENRBLE BIT WILL
; #a% SERVICED.

%
%%
%%%

; CLOCK INTERRUPTS WILL CHANGE CPU PRIORITY TO LEVEL b_(IN ’'STS®)

:RKO6 CONTROLLER INTERRUPTS WILL CHANGE CPU PRIORITY TO LEVEL S IN 'SETINT')

éKEYBORRD INTERRUPTS WILL CHANGE CPU PRIORITY TO LEVEL 4 (SEE RBOVE)
sALL *SYSMAC' TRAPS WILL CHANGE CPU PRIORITY TO LEVEL 7 (SEE BELOW)

.SBTTL

007160
00716M

012706
005026

001100

. SYSMRC

INITIALIZE THE COMMON TR4S

’SETUP’

:3CLEAR THE COMMON TAGS (SCMTAG) ARER

MOV

CLR

#3SCMTAG, R6
(RE)+

;sFIRST LOCATION TO BE CLEARED
: 'CLEAR MEMORY LOCATION

HOG

25-?RRB?SRIé:OO

CZREHED UNIBUS_RK
CZRbHE .P11

3719

007166
007172
007174

022706

001140

CMP

#SWR,R6

001100

MOV

#STAC

MOV
MOV

MOV

uo
aoigrv:$+ ¥i ;
rnkg
EM v;cron FOR ERROR ROUTINE

S°¥
MOV

.3;°k°57RgPVE3+g
CtgoR
3 B g"#ufiv:c*é ,:L
“E FRILURE VECTOR

BNE

000020

007200
007206

MOV
MOV

sEMTVE

aotnnpvec

SENoér,seopc

CLR

$ESCA

MOVB

MOV

STIME

01 $ERMAX

SLPRDR

nov

177777

007356
007360

007366

BYS:

65S:

007402

000176
000174
000004

66S:

001216
000200

001231

001232

001140

678

007474
000340

000004
000006

MEMPAR:

172100

387482
007474

007516

000001
0S011Y4
000340

3s:
000114
000116

¥BV

TRQP VECTOR FOR TRAP CALLS

ENOor-PRocRnn COUNTER

"é é 5
i

E &TERQTI NS

iCLER

Escnp
;
ROR ARDDRESS

,,INITIRL

THE L nooness FOR SCOPE

UP THE ERROR LOOP ADDRESS

18:

000004

;

CMP
BNE

8-1,3SWR
668’

,,TRY TO REFERENCE HARDWARE SWR
; i BRANCH IF no TIMEOUT TRAP OCCURRED

65$

,.annncu

#SWREG, SWR

,,POINT TO SOFTWARE SWR

ggg

MOV

8658, (SP)

1AND

THE nE
SWRIS NOT = -1

F NO TI

:SET UP FOR TRAP RETURN

MOV

8DISPREG, DISPLAY

(SP)+,d8tRRVEC

;;RESTORE ERROR VECTOR

CLR
BITB
BEQ

$PASS
onPTsxze SENVM
g

; ;CLEAR PASS COUNT
,,TEST USER SIZE UNDER APT
YES, USE NON-APT SWITCH

MOV

813, ERRVEC

;ssr TIMEOUT VECTOR

MOV

onenens R1

;ADDR OF MEM CSR

MOV

snénenn MEMVEC ;LORD MEMORY CHECK VECTOR IF NG TIMEOUT

MOV
MOV

MOV

CLR
MOV
MOV

2s:

000002
172140
000006
000006

;10T vzcron FOR SCOPE ROUTINE

;;SI1ZE
SHITCH
REGt?T
: LEQUAL FOR
TO RgubRE
unke sucn GISTER.IT 1S
MoV
25§R§EEh§6§c
MOV
#DSWR, SWR
:,'SET
E ugprsnRRSRHXEBHQRE SWICH REGISTER
MOV
nooxs# DISPLAY
ExsanvREGISTER
»

2737

;LOOP BACK IF NO

,,serup THE STRCK POINTER

OPE 9RIOTVEC ;

MOV

CLR

007406
oo7412

; ; DONE?

-6

.,INITIQLIZE A FEN vecton

87852

007320
0Q73e4
007332
007340
007346
007354

SEQ 0072

CMP

$SSWREG, SWR

#PR? ERRVEC+2

(SP)+, (SP)+

#2,R1
R1 SMEMBAS+40

CLR

ERRVEC+2

MOV

NG, USE APT SWITCH REGISTER

'SEE IF CAN REFERENCE
:SET ENABLE BIT IF YES

8PR7, MEMVEC+2

ADD
CMP
BNE

33’

:ADJ STACK

*TRY NEXT CSR
sse IF TRIED ALL

SERRVEC+2, ERRVEC'

IF NO

:RESTORE TRAP CATCHER

CZRBHEO UNIBUS RK& DR PRT]
CZREME.P 11
25-JAN-78 12:00
007522
007526
00753e

004737
005037
005037

MACY11l

106

3 0R(1052)

25-JAN-78
12:08
INITIRLIZE THE COMMON TAGS

043076
001220
0012e2

JSR

PC,CLRFLG

CLR

SUNIT

CLR

PAGE 73

SOEVCT

SEQ 0073

:CLEAR DDUMP THRU SIZFLG

:FIND OUT IF XXDP, ARCT, APT; CHRIN OR DUMP MODE
STARTL1:

000042

007536

043116
000041

000013

:BR IF AUTO

gnge

gé,sxa

:13=LORDED BY XXDP

INC

DDUMP

:SET RKO6 DUMP MODE FLAG

JMP
IMP

sT2
573

TYPE
HALT

007606

18:

28:

005237

JSR

003432
0Ss40S

007602

TST
BNE

INC

PC, TITLE
,MSG2

PPTP

‘MANUAL,

TYPE PROG 1D

'REPLACE DRO PACK W/SCRATCH & DO(CR>
"MALT HERE
sSET ACT/APT/PTP DUMP MODE FLAG

CHECK IF ALL PRRRMETERS DEFQULTED
IF NOT, BEGIN INPUT DIALOGUE
:WITH OPERATOR. THEREPLY TO 'DRIV
$ TO BE'TESTED’ SHOULD BE
3 TERMINATED BY <CR>
DRIVE NOS SEPERQTED BY COMMARS
DRIVES TO BE TESTED:

DONOCNEWNN—-0O

WLWWWWWWWW W
00D 00 D00 (D (D M O @

005737
001002

007644
007650

104401
004737
104401
004737
000427

sT2:

001336

007704

18:

043364

TSY

PARAM

JIMP
TYPE

S5TY
MSG3

BNE

JSR
TYPE
JSR
TYPE
JSR
BR

PC,GDRVS
MEGY
PC,GBA
MSGS
PC,.GINT
STS

1,2,4¢CR>

:BR IF 220 START

1200 START, DEFAULT & SIZE THE BUSS
:DRIVES TO'BE TESTED

'GET DR _NOS.
:BUSS ADDR
GET BR
.gonr INT VECTOR
'GET INT VECTOR

RUTO MODE
'CHECK IF LORDED BY XXDP OR_OTHER. SET FLAGS 8 NO INPUT DIALOGUE.
!DEFAULT ALL PARAMETERS. TEST ONLY THOSE DRIVES THAT RRE RERDY

o~ THE BUSS
007652

007704
007712
007720

ST3:

123727
001007
005237
004737
104401
00040
00se3

000041

003436

18:

012737
012737
004737

177440
000210
0434.6

STY:

000013

003434
043116
0ssell

gnga

Té 813

: 13=LOARDED BY XXDP

INC

DDPCH

:SET RKOB CHAIN MODE FLAG

g;PE

snsc

;DRO NOT TSTD

INC

ACT11

:SET ACT AUTO FLAG.

MOV

#177440,8BASE

JSR

MOV

JSR

PC,TITLE

%210,RKVEC

PC, SETINT

;DEFAULT VALUE

:DEFAULT VALUE

cstHco uuxaus RK6 DR PRT1
CZREHE
. P11
25-JAN-78 L2:00

gggé

007724

00S237

003472

3833
3834

007730

005037

003304

3836

007740

007744

5037

005037

003310

3838
3839
3840
384l
3842
3843
3844
3845
3846
3847
3848

007754
007762
007766
007772
010000
010004
010010
010014
010022
010026
010032

012737
S037
5037
012737
00S?
005237
013700
86%7;;
7
005237
013700

037

001170

3851

010040

022626

3853
3854
3855
3856
3857
3858

010050
010054
(010060
010064
010070
010074

005777
005237
013700
005237
012720
012710

3861

010102

022626

3864

010106

022626

3866

010114

109401

3835
3837

gg;g

3852

gggg
gggg

3865

00773
0077

010036

010042

010100
01C104

010110

5037

000412

0[2737

000407

STS:

003306

003444
001220
001222
010040
121322
003464
001330
010102
171272
003466
001332

010106

(71244
003466
001332
003470
047246
000300

003470
056052

:D0 "SIZE THE BUSS" TEST

CLR
CLR

UNLD

s INITIALIZE FLAGS

CLR

SESCAPE

MOV
CLR
CLR
MOV
TST
INC
MOV
MOV
TST
INC
MOV

000004
000004

000004

SEQG 0074

SIZFLG

CLR

001346

PAGE 74

INC

CLR

001176

000767

005037

JOb

MACY!1 30RA(1052)
25-JAN-78
12:08
INITIARLIZE THE COMMON TRGS

18:

CMP

3s:

TST
INC
MOV
INC
MOV
MOV

MOV

2s:

cMP

4$:

CMP

CLR

TYPE

BADHDR

HPEND
STMFY

sUSED IN ’STOP ROUTINE

:FOR VAL ID PROGRAM HALTS
:CLR RKO& IND. FLAG

sonxvo DRVPTR
$DEV c
SUNIT
axs ERRVEC
ALkS
LCLKF
chsc RO
828 ERRVEC
JPKS
PCLKF
PCVEC, RO

:SETUP
'NO. OF DRVS DONE
:CURRENT DRV UNDER TESY
:SETUP TIMEOUT ERROR VECTOR
:SEE IF L-CLOCK THERE
'PRESENT, SET FLAG.
‘VECTOR ADDR

(SP)+, (LP)+

;L-CLOCK NOT THERE,

JPKS
PCLKF
PCVEC,RO
DOTIM
#CLOCK, (RO)+
#PR6, (RO)

:SEE IF P-CLOCK THERE
"PRESENT, SET FLAG
:VECTOR ADDR
: INDICRTES TIMING TESTS CAN BE DONE
:SERVICE ROUTINE FOR CLOCKS

TSTI

::GO TO NEXT TEST

(SP)+, (SP)+

;P-CLOCK NOT THERE, CLEAR STACK

(SP)+, (SP)+

sNEITHER CLOCK THERE, CLEAR STACK

MSG13

SALL TIMING TESTS BYPASSED

#4§ ERRVEC

DOTIM

;SEE IF P-CLOCK THERE
'PRESENT, SET FLRG
:VECTOR ADDR
CLEAR STRCK

"TIMING TESTS CANNOT BE DONE.

CZR6HED UNIBUS RK& DR PRTI

CZREHE . P11

25-JAN-78 12:00

MACY1l 30A(1052)

2S-JAN-78

KO6

12:08

PAGE 75

SEQ 007S

BRSIC CONTROLLER TESTS, SIZING 8 SETUP

gggg

.SBTTL BRSIC CONTROLLER TESTS, SIZING 8 SETUP

3871

$ o SO 000000 00 00 0300 00 00 00 0 0000 30 30 30036 30 30 36 00 3600 3138 36 30 00 30 30 30 00 30 30 36 30 30 30 30 00 30 6 30 00 00 00 30 6 30 30 36 0

gg;g

;fi

3874

3875
3876
3877

%"
e
‘e

gggg

3880
3881

010120

Q00004

010122

012737

000001

010134

012746

000000

Q10144
010146

000002

oxgst

012737

ggga 010130 012706 001100
3885

3886

3887
gggg

3890

3891

T 1

010i40
010154

012746

0137

001174

000Q04

000012

3300
3901

000020
0024

3899

3302
3903
3904
330S
3389

3908

010214

005765

010230
010234
010240
810244
10250

76
005752

005768
005765

0026
000034
000036
000030
000032

010254

012737

050026

010220
oxogaq

005765
88275

3909
gg{?

010262
010270

3912

010272

022626

gg{g

010276

000137

3913
3916
3917

010274

012737
000404

104007

MOV

#PRO, -(SP)

;RESET PSW TO PRIORITY O

818, ERRVEC

;SETUP TIMOUT ERROR VECTOR

R
R T e rs

RTI

TST

000016

000004

042722

g
RKDA(RS)

RKDS(RS)

:SETUP INDEX REG.

: TIMEOUTS IN THIS SECTION

TST
TST
15T
TST
TST

RKDC (RS)
RKDB(RS)

RKMR! (RS)
RKMR2 (RS)
RKMR3 (RS)
RKECPS (RS)
RKECPT(RS)

STESTING SHOULD NOT PROCEED
{UNTIL THIS 1S REMEDIED.

MOV

#BADTMO,ERRVEC

;SETUP TIMEOUT HANDLER

MOV
BR
18:

$8ASE, RS

;8 MAKE IT LSI COMPATABLE

: INDICATE THAT THE CONTROLLER

TST

000006

¥SS, - (SP

1 ITERATION

hssrone STK PTR

RKER(RS)

TST
TST

CMP

ERROR
JMP

RKASOF (RS)

'REGISTERS CANNOT BE RERAD.

#PR?, ERRVEC+2
TsTR’

;;G0 TO NEXT TEST

(SP)+, (SP)+

;RESTORE STACK POINTER

SEOP]

:RBORT-COULD NOT REFERENCE CONTROLLER REGISTER

o 3636363 3 3 36 3 3 3 3 3 3¢ 3 36 35 96 3 36 36 36 3 3 2 3 3 3 36 36 3 3 3 3 3% 3 3 3 3 3 3 3 2 % W 3 3 3 3 3 3 3 3 3 % K 3

&Tssr 2

3920

3922

3923
3924

;

TST

gg}g
3921

#StACK, SP

B
TST

000014

000340

%l STIMES

LELO

010204

MOV

25
hak = e
3896 318500 882722 DO0006
3897

'END OF PASS’

MOV

3035 010169 D972 909010

3898 010210 0037

TESTS AND JUMPING TO

MOV

5§

010272

THIS TEST VERIFIES THAT ALL THE CONTROLLER REGISTERS

CAN BE ncccssso
THE INRBILITY TO BE RCCESSED HILL
RESULT INA TIMEOUT TRAP WITH AN ERROR MSG.
ANY
ERROR IN THIS TEST WILL RESULT IN RBORTING RLL OTHER

DL B0 000 00 0036 0 00 0 36 06 00 36 0 06 06 36 36 36 36 06 36 36 06 06 36 36 36 36 36 38 36 6 06 36 3806 6 96 36 36 36 6 36 36 6 36 36 38 36 3 36 36 06 36 3 3 3 3
411
SCOPE

010146
01264

REFERENCE ALL CONTROLLER REGISTERS

SIZE THE BUSS

3 * ® X %R

THIS TEST IS ENTERED ONLY IF *DRIVE SELECTION’ IS DEFARULTED

EITHER BY RUNNING IN THE AUTO MODE OR A 200 START IN THE

T
%

EVERY DRIVE FROM O THRU 7 1S ADDRESSED.
CONTROLLER ERROR (CERR) IS EXAMINED AND IF NOT SET,

MANUAL MODE.

THE

cstHEo UNIBUS RK& DR PRT1
CZREHE.P11
25-JAN-78 12:00

LO6

MACY1l 30R(10S2)
25-JAN-7B8
12:08
T2
SI1ZE THE BUSS

3925

gggg

3926
3937
3928
3931

x
tx
x

3932

010302

010322

3933

000001

3934
010312 012706 001100
gggg 010316 005237 001462

001174

3337

132737

000200

001231

3941

010330
010332

010336

001002
000137
104401

Y&13. "

ORIVE WILL BE TESTED RS AN RKO6.

055732

016342
81034
010350
010354

005037
005000
012701
013702

003442

3947

IF CERR DUE TO DTYE, THE DRIVE WILL BE TESTED AS AN RKO?7.

010360

032702

000001

SCOPE

MOV

MOV
INC

BITB

145

003444

001266

158:

TYPE

010402

104403

TYPOS

gggg

010408

000

BYTE

3955

010404
010

005721

3960
gggé

210412
010416

022700
001402

3963

010420

005002

3966

010424

005737

003442

gggg

000137

O1ll2e

3959
gggg
3367

3970

(10410
010422

0'"430

432

010436

005200

010440
010442
010446
(010452
810422

000000
000137
000137
012765
8 3737

3977
3378
3979
3980

010472
010474
(010500
010502

104120
005737
001762
104401

0104

000010

4737

MOV

RO, -(SP)

: sSAVE RO FOR TYPEOUT

STYPE 1 DIGIT(S)

188:

007730
011126
000040
001414
043530

003472
055732

000010

003360

20%:
12§:

O
(R1)+

,,TYPE DRIVE
&

‘GO T PE--OCTRL ASCII

: ! SUPPRESS LERDING ZEROS
;ADV POINTER TO NEXT FLAG

8. RO
17§

RLL g TESTED’
‘BR

ROR

:ELSE GET NEXT BIT OFF DEVICE MAP

TST

DRIVS

IMP

VERIFY

:ELSE EXIT TEST & SETUP FOR RKO7’S

ERROR

126

sNO DRIVES FOUND IN SDEVM

PC . FRD
v

:FIND RDY

BR
178:

SCRLF

‘BR _IF NO
*ELSE_INCR DRIVE COUNTY
'3 SET DRIVE PRESENT FLAG

INC

CMP
BEQ

104126

33971
3972
3973
3374
3975
3976

16%:

000756
001402

168
onxvs
(R1)

.BYTE

3358

sWILL TEST DRIVES

BEQ
INC
INC

TYPE

001

MSG10

‘BR_IF YES
‘ELSE GO NORM SIZING OR VERIFY

:SEE_IF DRV IN DEVICE MAP

3954

3953

sSEE IF USE APT SELECTED DRIVES

#BITO,R2

010046

001205

$BIT7, SENVM

148
128

1 ITERRTION

BIT

010400

109401

kssroae
STK PTR
‘D0 NOT TEST CERR IN 'FRDY’
‘8 OF onxvss PRESENT
an
CAPT oevxce MAP

3952

010374

sstack,sp
BYPCERR
ORIVS
RO
$ORIVO,R1
SDEVM, R2

010364
010366
010372

003442

#1,STIMES

CLR
CLR
MOV
MOV

3948
3949
3950

3951

IF SET, THE Pnocnnn WILL BYPASS

TESTING THAT DRIVE ONLY IF THE ERROR uns A RESULT OF
MOS. UFE OR NED BEING SET; OR BOTH NED
& DRA RESET INDICATING THE OTHER PORT IS ACCESSED.

BNE
JMP

010452

3942
3943
3944
3332

001410
005237
005211

SEQ 0076

. o 363 3 36 36 36 36 3 3 3 3 3 3 36 3% 3¢ 3 e 36 3 3 3 3¢ 36 36 56 36 3 6 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 I 3 3 3 3 36 3 3 3 2% 3 3 3 % % % ¥

012737

3938
ggag

010304

000004

PAGE 76

BEQ

HALT
IMP
IMP
MOV
MOV
JSR

ERROR
75T
BEQ
TYPE

158
.88

:INC DRIVE #

‘8 TRY RGAIN

:SEE IF MORE DRIVES PRESENT

'BR IF NO

'SETUP CORRECTLY 8 PRESS ’CONTINUE'
STS
70 TRY RGAIN
VERIFY
:D0 NOT SIZE, GO TO NEXT TEST
#SCLR RKCSE(RS) :SUBSYSTEM CLEAR
T10,TEMP

120
SIZFLG
208
,MSG10

:RDY NOT SET BY END OF SCLR
:SIZE BUS?
:BR IF NO
SWILL TEST DRIVES

)

MARCY11l

CZRGHED UNIBUS RK& DR PRT]

CZRGHE.P11
3981
3982
3393

§e§s
386

3987

010506
010512
f §14

25-JAN-78 12:00
005037
005000
012701

i01 §§§ jouns
12706

003442

003444

010546

3932
3333

010550
oiogsu

3996
3397
3398
3993
4000

010576
010604
010610
Q1(o16
010622

104120

19:

001100

35 Gibs ey BNl
3991

30R(1052)
25-JAN-78
12:08
T2
SIZE THE BUSS

Q10065
12;3;

000010
0000;1

013737
004737
013737
004737
104117

001426
044220
001414
043530

4001
4002
4003
4004
400S
4006
4007
4008

4009
4010

4011
4012
4013
4014

:815
4917

4018
4019

:83?

4022

4023
4024
4025
4026
4027

4028
4029
4030

010624
010632
010634
810548
01065
010654
010656
010660

810b8
01066

010670
010674
010676
010702

010706

010710

010712
810713

032737
001052
013737
8487 2
20037
001020
005700
001003

05737
1016

005237
005211
053711
104401

010046

010716

004737

010724
010726
010730

005721
005200
805 37

010722

010734
0107490
010742

104001

(22700
001267
005737

:RESTORE STK PTR

#SCLR,RKCS2(RS)

; SUBSYS CLERR

PC,

; FIND RDY
;RDY_NOT _SET BY END OF SCLR
;SELECT THE DRIVE RDOR

MOV
BIS
MOV
MOV

003360

JSR

MOV
JSR
ERROR

003360

100000

003322

003350
177770
003360

003360
003360

4¢:

001170
001205

BNE
INC
INC
BIS

5§
DRIVS
(R1)
STMPY,

010760

032737

000040

;FIND RDY

!NO ROY AFTER SELECT DR.

CMD

.?C(ERVMSK),TEMP i

;S/B SAME

-;SEE IF XXDP CHAIN MODE

DDPCH

(R1)

SCRLF
R0, -(SP)

FLAG
85185?r SSUNEQT
;é2$ co%
sE?
:A0OD
; ;SAVE RO FOR TYPEOUT

;;TYP? DR

39:

JSR
ERROR

PC,BYP
|

"SELECTED DR # DOES NOT MATCH RKMR2 DR #

gs:

15T

INC
CLR
CMP
BNE
TST

BNE
ERROR

T
HAL

003336

;00 DELARY TO CRTCH MDS

O
5§

003442

4036

Ti0, TEMPI
PC, FRDY
117

CDT_IF RKO?
STATUS

'BYTE
BR

000010

007730

PC,DLY

:ADD
!GET

;GO
_TYPE--OCTAL RSCII
;;TYPE é DIG%T(?)
: ' SUPPRESS LEADING ZEROS

001170

000137

#SELDRV, HCS1
S TMPY Htgl
HCS1,RKCS] (RS)
150000, TEMP1

BNE

TYPOS
.BYTE

010746
010750
010752
010754

RO, RKCS2(RS)

RO, TEMP]
3%

TYPE
MOV

044236

FRDOY

CM
BNE

TST

003442

120

#CERR, HCS1
2s
HMR2, TEMP1

003434

TéS TBHPI

BIT
BNE
MOV

TST

403!
4032
4033
4034

001065
104123
000000

#STACK,
SP

MOV

001
000

000403

SCOP1
MOV

104403

10718

;% OF DRIVES PRESENT
DRV ADDR
DRV FLAG

ERROR

445 818§9fi 8?37 5 i‘éfieg 883355
UU

DRIVS
RO
sDRIVO,P1

?§v

003353

SEQ 0077

CLR
CLR
MOV

MOV

00010
03360

PAGE 7?7

29%:

(R1)+

RO
STMPY
#8. ,RO
18

DRIVS

108
123

JMP

STS

BIT

#DTYE, HER

; TYPE BYPRSS DR

;ADVANCE PTR TO NEXT DR. FLAG
:INC DR #
:CLEAR RKO? FLAG FOR NEXT DRIVE
sMORE LEFT.
:NO DRIVES FOUND
'SETUP CORRECTLY
8 PRESS 'CONT’

I8US_RKE DR_PRT]
25-JAN-78 12:00

£
n
£

(=
=

[)

003334

010000

003324

o44236

032737
001676
104401
010046

010000

~=000C
oocnefy

STSy
Sy

000
WL

000001

000
00

003324

004737
104003
000720

N
Y

001170

000400

o44236

) o

003324

004737
104002
000724

Y=
noon

MACY11l 30A(10S2)

002000
010520
001000

000
ONNE

oLrnve oL NOE flKNUOflNDflKfi%G&gg

001405

139:

6%:

25-JAN-78
12:08
S1ZE THE BUSS
BEQ
MOV
NP
BIT
BNE
BIT
BNE
BIT
BNE
BIT
BEQ
BR

138
#CDT, STMPY
18
#MDS, HCS2
63
sUFE, HCS2
7$
#DRA, HDS
8§
SNED, HCS2
98
3

JSR

PC,BYP

ERROR
R

7S:

JSR

ERROR
R

BIT
BEQ
TYPE

003324

056153

MOV

TYPOS

104403
001

BYTE

BYTE
ERROR

000
104010
00070s

004737

044236

q%:

C00137

011520

109%:

PC,BYP

#NED, HCS2
4g
MSG1S

PC,BYP

JIMP

NUDRV

ESROR

;UFE DETECTED

O
10
4

:ADD CDT
:TRY AGAIN

:MDS DETECTED

SEQ 0078

:TYPE BYP DR #

RO, -(5P)

PAGE 78

:DRV#

,,§¢VE go FOR TYPEOUT
:;co TYPE—-OCTRL ASCII
'TYPE 1 DIGIT(S)

: i SUPPRESS LEADING ZEROS
bRn NED BOTH SET
sNO DRA 8 NO NED = OTHER PORT SELECTED

VERIFY:

n
o

0000

OOOOO

0000

00O

000000000
NNN
L L WWRIN=
=N

Coee
2RERE 2822
2R
PRle BeRRoo0oo0o0
:E
el ol
ol S ol ol o B
e et s
eel
e e
et
e
el ol ** | & [ @ |

CZRBHEO
CZR&HE.P

NO&

< 3636 3 36 3 36 36 36 36 36 36 36 36 38 36 3 36 3 36 36 36 36 36 36 3 36 36 36 36 36 3¢ 36 36 36 3 36 3 36 36 38 36 3¢ 3 3 3 3 3 30 36 6 3 36 3¢ 3 38 36 39 3 3¢ 3¢ 3¢ 3¢

011126

000004

VERIFY OPERATOR DRIVE SELECTIONS

THIS T sr 1S ENTERED ONLY IF onxvs SELECTION IS NOT

DEF
EVERY ons EFROM O T 1; RADDRESSED
CONTROLLER ERROR (CERR) IS Exnnxneo
F NOT SE
THE

PROGRAM WILL A suns THE DRIVE IS PRESENT AS AN RKO6
IF CERR WARS SET,

THAT DRIVE WILL BE BYPASSED

ONLY IF THEERROR WAS A RESULT

OF os OR UFE SET OR BOTH

*l‘*i‘*l&*!knlfill*

-+ LW VIWI VI Vs RIWI BRI WL W

'krssr

NED 8 DRA RESET (WRONG PORT).
IF CERR IS
A RESULT OF
IT IS CHECKED AGAINT THE INPUTTED INFO TO

VERIFY It WAS NOT SPECIFIED.

IF CERR DUE TO DTYE , THE DRIVE WILL BE TESTED AS AN RKO7.

2
2
LSS 2SS
S22
3232
IIIIILEEZ
R 222222222222222222222
beT3;
SCOPE

CZRG6HED UNIBUS RK& DR PRT]
CZREHE .P11
25-JRAN-78 12:00
4093

4094

011130

011136

012737

012706

4095
409

011142
011144

005000
012701

4098

011150

10441S

4097

:?33

011150

000001

001100

012706

001100

4101

011156

012768

gooowo

4104
4105

011176
gxxgoo

104120
010065

4106
4107
4108
Y109
4110

4111
41l2

4113

011164
011172

01373
00473°

001174

003444

011152

4102
4103

BO7

MACY1l 30A(10S52)
25-JAN-78
12:08 PAGE 79
T3
VERIFY OPERATOR ORIVE SELECTIONS

01414
04353C

000010

:DRIVE ADDR
:DRIVE FLAG

#STARCK, SP

;RESTORE STK FTR

#SCLR, RKCS2(RS)

MOV
SR

T10,TEMPI
PC, FRDY

:FIND RDY

ERROR
MOV

12
RO, RKCS2(RS)

*NO RDY AFTER SCLR
:DRV ADDR

003322
003322
00OCOO
003360

MOV
BIS
MOV
MOV

8SELDRV, HCS1
sTMPY, HEST
HCS1,RKCS1(RS)
150000, TEMP1

;ADD COT_IF RKO?
:GET STATUS

011240
01124

013737
004”37

001414
043530

003360

MOV
SR

710, TEMPL
PC, FRDY

:FIND RDY

0112349

011252

004737

104117

044220

003350

003360

4118

011

020037

003360

011272

042737

177770

011304
011
011310

001014
905711
f£aivoe

053711

001170

:isg

giigsg

823935

3866?8

4127

011332
011334

000475

4130

011336

004737

044236

4133
4134
4135

011346
011350
011354

001763
005337
005011

003442

4138
4139

011360
011366

000040

003336

011370
011376

032737
001405

012737
000137

002000
011150

001170

4143
4144
4145
4146
4i47
4148

011462
Q11410
Q11412
01' >0
0.
2
011430

032737
001027
032737
001027
032737
00100S

001000

003324

000400

003324

000001

003334

011312

8%%335

01135¢

JSR

ERROR

003360

4119
4120
4121

41490
:i:é

RO
sORIVO,R1

000001
001170
003322
001426

003322

:{gg

MOV

;D0 1 ITERATION

'RESTORE STK PTR

012737
0S3737
013765
013737

100000

3}3&

SCOP1

81, STIMES

sStAcK, SP

011204
0ll2l2
011220
011226

032737
001036
013737

:isg

CLR
MOV

MOV

003360

011254
011262
011268

4yi2e

18:

000010

4114
4115
4116

4117

MOV

6829?1

*NO RDY RFTER SELDRV CMD

#CERR, HCS1
28
HMR2, TEMP1

CMP

RO, TEMP1

:S5/B SAME

#1C<DRVMSK>
, TEMP]

BNE
15T
BEQ

33
(R1)
yg

S$TMPY, (R1)

;ADD CDT IF SET

Ehg

ggnpgo

:CLERR COT FLAG FOR NEXT DRIVE

BIS

001306

11l

:D0 DELAY TO CATCH MDS

BIT
BNE
MOV

BIC
118:

PC,DLY

BNE

18"’

]

;MORE LEFT

TSTY

160 TO NEXT TEST

3%:

JSR

PC,BYP

: TRY BYPASS DRIVES

12%:

BEQ
DEC
CLR

ys
DRIVS
(R1)

:BRANCH IF NOT SPEC BY INPUT
;DECREMENT TOTAL DRIVS
:CLEAR DRIVE FLAG

BIT
BEQ

$DTYE, HER
138

000757

$g$on

BR
28:

13%:

%Rl)

4§

MOV
JMP

#COT, STMPY
18

BIT
BNE

#MDS, HCS?2
6%

BNE
BIT
BNE

73
#DRA, HDS
8%

BIT

SUFE, HCS2

"WRITTEN DR# DOES NOT MATCH RKMR2 DR#

:ADD CDT
:TRY AGAIN

SEQ 0079

CZR6EMHED UNIBUS RK6& DR PRTI
25-JAN-78 12:00
CZReHE .P11

S3
000404

811488

010000

003324

01GJ00

003324

BIT

BS:
108:

011456

BEQ
BR
BIT
gg

BEQ

JSR

044236

011460
011464
011466
004737
104002
000724

044236

011500
011504
011506

004737
104003
000720

044236

011510
011514
011516

004737
104004
000714

044236

6%:

78:

PC,BYP

JSR
ERROR

PC,BYP
2

JSR

PC,BYP

128

ERROR
JSR

qg:

SNED, HCS2

ERROR

B8R

SEQ 0080

qs
10%
#NED, HCS2
118
(P1)
ys

ERROR

B8R

011470
011474
011476

: TYPE BYPASS DRIVES

128

12%

PC,BYP

128

: TYPE BYPASS DRIVES
‘MDS DETECTED

: UFE DETECTED

:DRA 8 NED RESET - OTHER PORT SELECTED

§THxs PART OF THE PROGRAM WILL BE REPEATED FOR EACH

'DRIVE PRESENT

S*SUNIT’ CONTAINS THE ADDRESS OF THE DRIVE CURRENTLY
:UNDER TEST

011520

005037

001462

011524

005037

001170

NUDRV:

CLR

BYPCERR

CLR

STMPY

;ENTER HERE FROM LAST TEST

‘3 TEST CERR IN

:CLEAR

'FROY’

RKO7 IND FLARG

;'!l*l!ll!llll!!l!ll!l!lll{llll!llllll!l!illllilllllllll!!lll%lll

;irssr Y4
ta

TSST

oywnonan
L LW
nnLono

RDDRESS IN 'suusv' 3 frnpq
? SET 70 CDT IF DRIVE IS RKO7.
THROUGHOUT THEE gh OMING TESTS, TH% DRIVE TESTED IS
THE DRIVE WHO
ESS IS
IN
'SUNIT’.

.. #!!lll;gg;;llll!llll!!l!llllll!l!illlllllllll!lll&lllll!ll!!l**

000004
012737

12737

000004

i
N
noLEO

et ei

00000

FIND NEXT DRIVE TO BE TESTED

THIS TEST FINDS THE NEXT DRIVE PRESENT & PUTS THAT

S¥
2x
¥

e
ol TR

4200

0llvve
0}1:44

[ et
e

DM 0 00 MMM I N NNNNNNNNOC OO
o
uwn
£F4300P«PULCGIU~CLDQ‘“PUL:UH”—OMNDVflflflIg}GPgnggpgg&QSQ;c
VoIV IV IV I IV IV o
DONOCNLW

£L

Hhfl—hhfl—Hhfl—hhfl—Hhfl—Mfifl-Hhfl—hhfi—bhfl—bhfl—fi; H:kfiikffiihfidhfidksfi

81143
01144

o000

4149
4150

car

MACY11l 30R(10S2)
25-JAN-78
12:08
PAGE 80
T3
VERIFY OPERARTOR DRIVE SELECTIONS

D0S737
001004
104401
000137

oo344e

000001

056271
0427ee

001174
001214
001102

MOV

81, STIMES

MOV

o;tncx, P

MOV

8STN-1,STSTNM

157
BNE

DRIVS
4s
MSG19

MOV

TYPE

IMP

#s$TN-1,$TESTN

$€0P1

;:D0 1 ITERATION

'RESTORE STK PTR

sANY DRIVES PRESENT?
}YES BRANCH
'ALL DRIVES TESTED

INO, GO TO END

CZREHED UNIBUS RK& DR PRTI

CZRGHE .P11
4205

011576

:afiz

§11§§§

:goe

011614

26-JAN-78 12:00
013701

001346

éa

001222

z 7

005711

MACY11 30R(1052)

001220

:ais B e
7
ooie222
1

4ol

8}{238 i!é?%f
011642

000762

4220
4221
4222

011644
011650
011652

032721
001403
012737

:gig

4223
4eod
4e2S
:ggg

:eeg

811&50
011668
011670
011679

010137
104401
(013700
010046

0{}958

104403

:§§? 811701

001346
056153
001222

DRVPTR,R1

;ADDR OF NEXT DRIVE FLAG

18:

?NS

iuuxr

;xngk

?g$
?RT

%31;+
1sPCH

5ELS F¥ NEXT DRIVE
P CHAIN MODE?

(31)+

;ELsé FIND NEXT DRIVE PRESENT

TET
1ST

886

:eaq

011;02

005737

001170

4237
4238

011716
011724

012737
012737

000632
000633

012054
012056

4oy

117

12737

012060

8CDT, (R1)+
68
#CDT, STMPY

MOV
TYPE
MOV
MOV

:g:g

011766

000443

11772

12737

0014

12052

4249

012012

012737

000400

012070

425

81§§34 8157 rd 801999 812054

:ggg

012050

4239 81 77@ 81%737 8014§§ 8158 G
4248 015004 0127237 001457 012056

TYPE

, SCRLF

TgT

;THPH

MOV
MOV

#632,LC
#633,LCP1

4253
425

4yes

4258
4259
4260

Q012042

012737

120582

0000

(12056
012060
012062

000000
000000
000000

000412

815854 880000

140017

MOV

012066

IVE RDOR TO NEXT DRIVE

;xg gnggspnessnrv

;E%S Flaoxr DRIVE 07
By

:SEE _IF DRIVE UNDER TEST IS RKO?7
‘BR IF NO
'ELSE SET RKO? FLAG

;STORE POINTER TO NEXT DR FLAG
:*DRIVETM

;;gsgssng FOR TYPEOUT

;sss }FyRKU7 UNDER TEST

;ELsé LOES RKO&6 PARAMETERS

8160017, MASK1

TSTS

:;GOTO NEXT TEST

MOV

#1455,LCM1

:LOAD RKO7 PARAMETERS

MOV

#0.00%,E.DDT

MOV

#1777
' MASK

TSTS

MOV
MOV
MOV

LCM1:

LCP1:
MC:
MCi:

O
0

LC:

#9300,

rzgggflgaxve BEING CHECKED

EESUPSRésg LéflD?NG ZEROS

o231,Lcn1

£.00t

5;$3Prvps-;gc;?L)nscxx

MOV

7%:

R1,DRVPTR
M&EG1S
$UNIT. RO
RO, - (5P)

‘BYTE

CLR

4545 811758 8157 7 188017 81505&

3unn

BIT
BEQ
MOV

Y4 33

868058

(R1)

fios

9 7

SDEVCT

4532 8117?3 8?5939 000631 012052
811735

SEQ 0081

MOV

TE$$E

:ggg

PAGE B1

ys:

3s:
001170

12:08

FIND NEXT DRIVE TO BE TESTED

?s§

002000
002000

25-JAN-78

2s:

wai? BliEéB Bgéggf
3315 01{622 000;75 003434

DO7

oxqgs:Lc
#1457 LCP1

£140017, MAsK1

:;GOTO NEXT TEST
sLC-1

'LAST CYL

iLC+1
*MAJ CYL
'MAJ CYL +

1 SHIFT

CZRBEHED UNIBUS RK6 DR PRTI

CZREMHE.P11
yebl

yee2

4263
4eed
4e6S

4266

25-JAN-78 12:00

MACY11 30R(1052)

012064

000000

MASK:

012670
012072
012074

000000
000000
000001

£.00T:
FC:
FCP1:

012066

000000

4ez1
:s;g

1
P*

4270

s¥

4276

012100

012106

012706

012737

000001

:ggg

012112

005237

4281

Dl2116

4284

012124

4286

012136

:g;g

:ggg

4285

4287

3583
4290

353§
4293

4294

3532

4297
4298
4299
4300

4301
:ggg

012122

O
0
I

UNLD

;USED TO CHECK VALID HALT

004737

045424

JSR

PC, SUBCLR

012737

000007
044012

012146

CI4737

OM4SH24

013737

001414

012166

.. P2 2112222223282 222222 X222 22222222XXX2222 223222222222 22222 222
t815:
score
INC

004737

012154

THE CORRECT DRIVE.

IT THEN WAITS FOR SPEED OK TO GO LOW BEFORE
PROCEEDING TO THE NEXT TEST

003304

(012140

012162

THIS TEST UNLOADS THE DRIVE TO BE TESTED NEXT

WAITS FOR ATTN & VERIFIES IT CAME FROM

:;00 1

104024
104011

104012

104024

004737

104315

043434

046460

001174

UNLGCARD DRIVE TO BE TESTED

%1, ,STIMES

004737

012152

;EXPECTED DRIVE TYPE TO E.AD
:FIND CYL
SFC+1

MOV

001100

012132
012144

SEQ 0082

HH l«llll!lll!!l!l!ll!iil«l!lillllli!llllllllllilllllll!l!ll!lllllll

4269

000004

PAGE 82

;irssr 5

012076

EQY

12:08

FIND NEXT DRIVE TO BE TESTED

MASKl:

3526

474
4275

25-JAN-78

MOV

ERROR
003322

MOV

SUNLORD, HCS1

PC, 00CMD

JSR

PC, TSTATN

ERROR
JSR

ERROR
MOV

JSR

ERROR

012170

JSR

ERROR

003362

#StAck, SP

PC, SUBCLR

ITERATION

;CERR AFTER SCLR

;D0 UNLORD CMD 8 GET CONTR READY
:RDY NOT SET AFTER UNLORD CMD.

:NO ATTN AFTER UNLORD CMD
:CERR RFTER SCLR

710, TEMP2

PC, FSPOK

318

PFSRT:
.SBTTL STATIC & CYCLE UP TESTS

:SPEED NOT DOWN BY TIMEOUT

;ENTER HERE FOR POWER FAIL RESTART

4304

HH 363636 3 36 36 36 36 36 36 3 3 36 36 3 36 3 3 3 3 3 36 3 36 3 3 3 3 3 3 3 3 3 3 3 3 W 3 3 3 6 36 2 3 3 3 3 3 3 3 3 M 3 3 3 2 2 I 2K K® R

4307
:ggg

TM
%

:ggg

4310

4311

;irssr 6

012170

00000M

4312

012172

012737

000001

4315
4316

012204
012210

004737
104024

(045424

:gia

012206

012706

001100

001174

REFERENCE & CHECK ALL STATUS BYTES IN RKMR2 & RKMR3

CHECKS THE ABILITY TO REFERENCE ALL
DRIVE REGISTERS AND THAT THEY CONTAIN CORRECT STATUS.

1. 36963 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 36 3 36 36 36 3 36 3 3 3 36 36 3 26 3 3 3 3 36 3 3% 2 3 3 3 3 3% 3 2 36 3 3 3 3 3 2 3% 3 3 % 3% £ %
t8Te:
SCOPE
MOV

MOV

sStAck, P

81, STIMES

;:D0 1

ITERATION

JSR
ERROR

PC,SUBCLR
24

:CERR AFTER SCLR

;RESTORE STK PTR

CZREHED un19us RK& DR PRT}

CZREHE. P1
4317

4318

25-JAN-78 12:00

012212

004737

012224

001004

4319

012216

4321
:ggg

012226
012234

4324
4325

04S0?4

000100

003350

012737
000403

000040

003412

012236
013523

012737
805037

000140
003414

003412

4328

01226

005037

003422

:gg?

012276

012737

000003

4332

012304

004737

044252

4335
4336
:ggg

012314
012316
012320

104017
104020
104021

4339

012322

012765

000002

4341
Y342
4343
4344
4345
4346

012334
012340
magwa
012344
012350
012352

005737
001401
0402
005737
001401
104023

001362

012354

023727

012364

104056

4320

4326

032737

MACY11 30R(1052)

12737

000740

003416

4327 012256 012737 000001 003420
4329

4333

012270

012310

012737

000007

4334 012312 104016

4340

012330

4347

012354

4349

012362

4348

:gg?

004737

001401

000002

045074

uS:
S§:

000026

BYS:
000001

6SS:

SEQ 0083

BR IF VvV SET

MOV
CLR

#<D.DRA!D.VV> ,E.RAD
£.80
;EXPECTED MSG BO

CLR

E.A2

MOV

#3,E.83

'EXPECTED MSG B3

JSR

PC, CHKMSG

; CHECK nscs no 80,A1,Bl

ERROR
ERROR
ERROR

17
20
21

'MSG BO ERROR
'MSG Al ERROR
:MSG Bl ERROR

MOV

LORD EXPECTED VALUE FOR RO

8<D.HDHM!D.BRHM!
B _DOOR!D.CRRT> ,E. Rl

8l E.Bl

82,E.B2

Aa'T.82'T7.83

{EXPECTED MSG éx

:EXPECTED MSG Al

;EXPECTED MSG Ae
'EXPECTED MSG B2

SPECIFIED HERE

:MSG RO énnon FOR DRIVE UNLORDED

82, RKMR1 (RS)

:SELECT WORD 2

IST
BEQ
ERROR
15T
BEQ
ERROR

CYLDIF
648
22
CYLADD
65$
23

:SEE_IF MSG A2=0
'BR IF YES
'MSG A2 NOT CLEARED FOR DRIVE UNLORDED
'SEE IF MSG B2=0
'BR IF YES
!MSG B2 NOT CLEARED FOR DRIVE UNLOARDED

CMP

HEQDR sl

;FOR HEAD 0,

ERROR

hsno REG IN B3 NOT O IN UNLORD

PC.GSTAT

TST7

B83=1

1.G0 TO NXT'TST IF_YES

llllll!!lllll!lfllll!lll‘l!l!!Illlllll!lillll!I!llllfi!illlllllill

4361

012366

00000M

:ggg

012376

012706

012370

012737

000001

001100

012402

005737

001216

4367

012410

004737

045424

104401

0Sb16S

012406

012414
012416

O0le422
012430

001046

104024

012765
004737

PRINT DRIVE SERIAL NUMBER

THIS TEST READS & PRINTS THE DRIVE SERIAL # FROM MSG R, WORD 1!
IN BCD & IS PERFORMED ON THE 1ST PARSS ONLY

o 263636 3 36 36 36 36 3 3 3 3 3 3 36 3 36 3 36 36 3 3% 3 3 36 3 38 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 2 2 32 W 2 3 3% XX

4365

4371
4372

80, VV, HMR2

8D.DRA,E.AD
33

BEQ

;;
;:

4370

PAGE 83

MOV
8R

JSR

4357
:ggg

:ggg

vt 3

MOV

firesr

4366

BNE

ERROR

:ggg

4362

PC,GSTAT

. WORD

4354

4360

JSR

MOV

003430

12:08

REFERENCE & CHECK ALL STATUS BYTES IN RKMR2 8 RKMR3

BIT

003424

001364
001432

2S-JAN-78

FO7

000003
045074

001174

$417.

SCOPE
MOV

81, STIMES

1ST

SPASS

JSR

PC, SUBCLR

MOV
BNE

ERROR
000026

TYPE

MOV
JSR

s5tAcK, SP

;:D0 1

ITERATION

:RESTORE STK PTR

TST10

::GO TO NEXT IF NOT FIRST PASS

'CERR ARFTER SCLR

MSG16

k3. RKMR1 (RS)
PC.GSTAT

‘B0 SUBSYS CLERR

:DRIVE SERIQL NO.

:SELECT BYTE 3
!GET STATUS

CZREHED UNIBUS ?
RK
DR PRT%
Pl

013701
012704

003350
053660

e e ~N
000000 O

000003

5-JAN-7

GO7

PAG

PRINT ORIVE SERIAC NDRSERS
HMR2,R1

SEQ dos4

:GET SERIAL

MOV
MOV
MOV
sgt

usochL RY
RY, - (SP}
#3.R3
s{

"GET ADDR CHAR BUFF
"STORE ON 3TQCK
FOR S$SUPRS
"SETUP CHA
:INITIALIZE BIT POSITIONS

ROL

:GET NEXT 4 BITS

BIC
BIS
ggga

1?7750 RO
860
g tnq)+

:GET WORKING COPY

BNE

JSR

PC ssupns

Pms

39?(1052)

MOV

18:

Bt Pt Pt

(@]
=]
L£L £
£L
00
s e ~NE

(=}

[

= I

88:-322
3
38 #8a0S

e sp

88202
oo

1044

NN
ninnnn
Y >

REPPPPPRRY
OroR2 3 BASFEREF
2K

et wtwt =y whetettt

4373
4374

000000000000 000000

CZR&:E

MACY11

177760
000060

ROL
ROL
ROL
MOV

CLRB

054126
001205
00120S

TYPE
TYPE

R1
R1
Rl

(RY

,SERLF
' §CRLF

:CLEAR ALL BUT LOW 4 BITS
:PUT ASCII DIGIT INTO CHAR BUFF
:CONVERT TO ASCII DIGIT

;BR IF ALL 3 CHARS NOT DONE

ELSE INSERT NULL TERMINARTOR
: TYPE

3636 36 96 3 36 06 38 36 36 3 36 36 36 38 3 36 96 3 36 3 30 38 3 38 36 3 36 3 36 46 3 3 3% 30 36 3 3 3 3 30 2 3 34 3 36 2 3 3 3 3 3 3 3 3 3 3 3 2 3 32 R

'iTEST 10

Q
Q

S34

000
=0

IF Vv IS RESET, THE PACK CMD IS USED TO SET IT.

o 3536 3 3 36 38 3 36 36 3 36 36 36 36 36 3 36 3 36 36 36 96 36 3 36 3¢ 36 3 36 36 36 38 3 3¢ 3 3% 36 3¢ 3 3 3 9 3 3 3 3 3 % 3 3 3 3 3 3 9% % %% %% % W%

000001
001100
000026
045074
000100

001174

t&T10:

003350

000003
Q43434

003322

032737
001001
104027

000100

003350

#1,STIMES

::D0

ITERATION

MOV

#5tack, spP

:RESTORE STK PTR

CLR

RKHRI(RS)

; SELECT BYTE O

BNE

o4542yY
012737
004737
104116

SCOPE

MOV

JSR
BIT

001100
L£LLLLtx
R
O
¥ ¥ i

SET VV WITH PACK CMD

PC,GSTAT
oo vV, HMR2
T11

:GET STATUS

;G0 TO NEXT TEST IF VV SET

SCOP1
MOV

#STACK, SP

;RESTORE STK PTR

JSR
ERROR

PC, SUBCLR
24

:CERR RFTER SCLR

MOV

#PACK , HCS1

JSR
ERROR

pC, D00¢MD
116

BIT
BNE

D. VV, HMR2
TST11

ERROR

;D0 PACK CMD 8 GET CONTR READY
'RDY NOT SET ARFTER PACK CMD
::GO TO NEXT TEST IF vV NOW SET

:PACK DID NOT SET
V

H o P06 0636 3 3606 3 36 36 % ¥ 3 36 U6 36 36 36 3 3 36 3 3 36 3 36 3 36 36 I 26 36 36 3 3¢ 36 36 3 9 36 3 3 3 3 3 3 3% 3 3 3 % 3 9 3 3 3 3 3% 3 % % 3 %

irssr 11

RELEASE DRIVE

TESTS THE ABILITY TO RECOGNIZE THE RLS BIT AND NOT RARISE SACK

;;l*!l*illl*lllil*lll*!!i*!*l*ll!lllli*lllli!lillllli*ll!illlil!l

CZRGHED UNIBUS RKb DR PRTI
CZREHE .Pl1
25-JAN-78 12:00

4454 815858 999

4431
4432

012632

012706

duda 818p38 Y

sef

~Nor

nny

PPt

c66M4
2670

ot
ot s Pt Pt

000000

32737

Bieds

2656
265
ebb

Pt et

000

Pmme

00O

12644

000001
001100

MACY1l

001174

30A(1052)
12:08
25-JAN-78
Tl
RELERSE DRIVE

TST11:

ou4sS4eY4
0ooo400

gEQOR

BIT

003324

ERfor
18:

o45424

865753 BRE6AS

000010

032737

100000

003322

000400

003324

104026

SCOP1

MOV

001100

004737
104024

RGO

MOV

81,

PRGE 85

STIMES

sstack,
<P
PC,SUBCLR
2u

.gFE.HCSE
*

::00

SEQ J08S

ITERATION

:RESTORE STK PTR

{ RNTROERROR-EET BrTER SLCRTM
;UFE SET AFTER SCLR

#STACK,
SP

;RESTORE STK PTR

PC,SUBCLR
2y

; CERR RFTER SCLR

#RLS RK?SE(RS)

2229 g;k;flgE BIT TC SUNIT

#CERR, HCS1

; CHECK FOR CONTR ERROR

PC,G8TR

2§:

sUFE, HCS2

TST12

;RLS SET CERR

::GO TO NEXT TEST IF SET

:8ACK SET AFTER RLS SENT

CZREMEO UNIBUS_RK& DR _PRT]

CZREME .P11
4458

2S-JAN-78 12:00

MACY1l 30R(10S2)
Ti1

_2S-JAN-78

RELERSE DRIVE

12:08 PAGE 86

SEG 0086

CZRBEHEQ UNIBUS RK& DR PRTI1
25-JAN-78 12:00
CZREHE .P11
4456
4ug?
4
8
4459
Y460
4461
Y462
Y463
4464
446S
Y466
4467

4468
4469
4470
4471
4472
4473
4474
447¢
4476
4477
4478
4479
4480
4481
4482
4483
448t
4485
4486

4487

4488
4489

4430
4491
4492
4493
4494
4495
4496
4497

44398
4499
4500
4501
4502

4503
4504
4505
4506
4507
4508
4509
4510
4511

MACYL1 3??51052)

JO7

25-JAN-78_
12:08
DRIVE TYPE TEST

SEQ 0087

PAGE 87

HH Iy 2222222222222

ckTEST 12

]

E:
012730
012732
012740

000004
012737
012706

000001
001100

012744
012750
012752
012756
012760
012766
012770
Qle7z7e
013000
013002
013004

004737

o4SH2Y

013006

013014
013016
013320
013026
(013030
013032
013040
013042

001174

THIS TEST COMPARES DRIVE TYPE

0033s0

000400

003334

BIT
BEQ

#DDT, HDS
33

ERROR

003334

8s:

BIT
BNE

000040

003336

33:

BIT
BEQ
ERROR

004737
104024

o4sHa4

013060
013064
013066
013079
013076
013104
O01311e
Q13116
(C13120
0Ol3le4
013126
013134
013136
013140
013146

005737

001170

BNE

ERROR
ERROR

000000

002COo1
001414
043530

000000
003360

000400

0033s0

000400

003334

S§:

:DDT SET IN RKDS

#D.DDT, HMR2

8DDT, HDS
33

:DR TYPE NOT SET IN MR2

162

#STACK, SP

;RESTORE STK PTR

PC, SUBCLR

SCOP1

MOV

JSR
ERROR
TST

001170

;DR TYPE SET IN MR2

MOV

ggv
108:

:DTYE SET IN RKER

TST
BEQ

9s:

STMPY

:RESTORE STK PTR

#DTYE, HER
4s
32

ERROR

000001

ITERATION

18
8D.DDT, HMR2
2s

ooo400

013052
(0130Se

BNE
BIT
BEQ

BIT

001100

R R

:SUBSYS CLEAR 8 GET STATUS
:CONT ERROR SET ARFT SUBSYS CLEAR

18:

4s:

PC, SUBCLR
24

0033S0

104415
012706

R R

SR
ERROR

000400

01304
013044
013046

::D0 1

104032

81, STIMES

ERROR

001001

IN RKDS.

sStack. spP

MOV

2s:

°'DDT'

MOV
TST

000400

IN MSG A RGAINST

WRONG CDT IN RKCS1 IS SENT 8 ERRORS ARE VERIFIED.

SRR
IR
$8112: SCoPe

001170

222X22222X2228 2222222228

DRIVE TYPE TEST

:CERR AFTER SCLR

$TMPY
qg

;SEE_IF RKO?
:BR IF NO

rggLon,Rxcsxtnsi

#<CDT!SELDRV> ,RKCS1(RS)

T10, TEMPI

PC,FROY
117

§TMPY

BNE
BIT
BEQ

118
#D.0DT, HMR2
S

BIT
BEQ

#0DT, HDS
6%

ERROR

;GET STATUS WITH COT SET

;FIND ROY
:RDY NOT SET BY END OF SEL DRV CMD

:DR TYPE SET IN MR2

CZRBEMEQ UNIBUS RK& DR PRTI
CZRBHE. P11
25-JAN-78 12:00
4S12
32%3

013150
013152

104031
000412

4515
4516
4517
4518

813154
013162
013164
013166

882737
1001
104005
032737

4520

013176

104152

4519

4521

4522

4523

013174

001001

013200

032737

013210

104033

013206

001001

4524

Q013212

032737

:ggg

013222

104034

4525

(013220

001001

KO7

MACY11l 20RA(1052)
25-JAN-78
12:08
T12
DRIVE TYPE TEST

000400

003350

118:

000400

003334

12%:

000040
100000

003336
003322

6S:
7§:

ERROR
BR

31
68

BIT
BNE
ERROR
BIT

#D.DDT, HMR2
12%
§
#DD7, HDS

BNE

ERROR

BIT

162

;DR TYPE NOT SET IN MR2
:DDT NOT SET IN RKDS

:DTYE NOT SET RFT WRITING WRONG CDY

BIT

8CERR, HCS1

ERROR

:DDT SET IN RKDS

'DTYE=DDT(NOT) ¥CDT

BNE

SEQ 0Ces8

sDTYE, HER

BNE

ERROR

PRGE 88

TST13

GO TO NEXT TEST

CERR NOT SET AFT WRITING WRONG CDT

4528

, o 35363 3 3636 36 36 3 35 36 36 36 36 3 36 36 36 3 3 36 36 3 U6 3 36 36 2 3 3 3 3 3 3 3 3 3 % % 3 3% 3 3 3% 3 % 3 3 3 % %%

4531

TESTS THE ABILITY OF THE DRIVE TO DETECT EVEN PARITY SENT BY

4533
4534
4535

tx
1
S

THE DRIVE
SHOULD RESPOND WITH 'c-g PRRITY
ERROR’
THE DRIVE
STILL SENDS ODD PARITY
YO THE CONTROLLER WHICH IS NOW
CHECKING FOR EVEN PRRITY THEREFORE THE CONTROLLER SHOULD DETECT

:ggg

iTEST 13

4532

4536

‘x

4539
4S540

013224

000004

:g:g

013234

012706

012737

000001

4544

013240

004737

O4SH2Y

4S4e

013246

032737

001000

003352

020000

003322

4yS4yl

4545
4yS47

448
4543

013226

013244

013254

013256

013260

104024

001401

104035

032737

001100

001174

C-D PARRITY ERROR DETECTION

THE CONTROLLER BY SETTING

'PAT'

W X ¥ H %X NN E

ON
R

AN ERROR AND SET DCPAR.

THE ERROR CONDITION IS RESET WITH THE CLERAR CMD

. o 3636363 3 3 3% 36 3 36 3 3 35 36 36 3 3 3 36 36 36 36 3 3¢ 36 3 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 % % ¥ % ¥ ¥* X% %%
+4713:
SCOPE
MOV

MOV

JSR

#StAcK, SP
PC, SUBCLR

ERROR

294

BEQ

BIT

#DCPAR, HCS1

BIT
2%:

81, STIMES

ERROR

#D. PAR, HMR3

;:D0 1

ITERATION

'RESTORE STK PTR
:SUBSYS CLEAR 8 GET STATUS

:CONT ERROR RFTER SUBSYS CLR
:C-D PRRITY ERROR SET IN MR3

CZRBHEO UNIBUS_RK& OR_PRT]
CZRBHE.P11
25-JAN-78 12:00
4550

013266

001401

4653
4S54

013272
813272

13274

104415

012706

001100

4557

013300

004737

0O4s424

013306

01276S

000020

:ggé

:g 2

:ggg

4560

4S61

013270

013304

013314

LO7

MACY11 30A(10S2)
@25-JAN-78_
12:08_ _PAGE 89
T13
C-D PARITY ERROR DETECTION
BEQ

104036

104024

004737

ERROR
38:

045074

;OCPAR SET IN CSl

MoV

8STACK, SP

;RESTORE STK PTR

JSR

PC,SUBCLR

SCOP1

ERROR
000026

MOV

JSR

; CERR RFTER SCLR

SPAT RKMRI(RS)

;SELECT BYTE O & EVEN PARITY

PC,GSTA

:GET STATUS

SEQ 0089

CZRBHEO UNIBUS RK6 DR PRTI

CZRBHE.P11
4562

4863

013320
013326

25-JAN-78 12:00
032737
001001

000200

MACY11l 30R(10S2)

Ti3

0033s2

@25-JAN-78

MO7

12:08

PAGE 90

C-D PARRITY ERROR DETECTION
BIT
BNE

#D.FLT, HMR3

SEQ 0090

CZREHED UNIBUS RK6 DR PRT]
CZREHE. P11
256-JAN-78 12:00
4ysSe4

013330

4566

013340

4665

4Se7?
4568
4569

4670
45§71
4572

:g;a

104037

013332

032737

013342

104040

001001

001000

NO7

MACY1l 30R(1052)
25-JAN-78
12:08 PAGE 91
T13
C-D PARITY ERROR DETECTION
003352

4%:

013344
(013352

032737
001001

020000

003322

58:

01335e
013364

032737
001001

100000

003322

6%:

013354

013366

104041

104042

ERROR

BNE

BIT
BNE

#DCPAR, HCS1
6%

BIT
BNE

#CERR, HCS1
TSTIM

BIT

ERROR

#D.PAR, HMR3

SEQ D091

;FARULT NOT SET IN MR3

;C-D PARITY ERROR NOT SET IN MR3

:DCPAR NOT SET AFT WRITING PAT IN MRI

CERR NOT SET 8Y WRITING PAT IN MRI

::GO TO NEXT TEST

467S

, o 363636 36 36 3 36 3 3 3 36 3 3 3 3 3 36 3 36 F 3 36 3 36 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 3 3 3¢ 3¢ 3% 3 3 K % X % %

4578

‘x

BRUSH CYCLE,

4581
3233

s%
;¥

THE CYL ADDRESS 8 CYL DIFFERENCE REGS ARE CHECKED
T0 BE ZERO AT THE END OF THE SEQUENCE.

:g;g

firssr 14

4579

4580

4584
4585

013370

000004

:ggg

013400

012706

486

013372

012737

000001

001100

4S89

(013404

004737

045424

4592

013412

012737

000011

:ggg

013424

104121

4596

013426

004737

:ggg

013442

104306

:gg?
4593

4597
4598

4601

013410
(013420

013432
013440

013444

104024

004737

032737
001001

045074

010000

MOV
JSR

ERROR
003322

MOV

003350

4603 013456 000401
4605

1SS:

013460

4606

013470

{04316

013462

012737

010140

003412

4607

013474

012737

000740

003416

4610

gxggxo

004737

OM4252

4612

01351

4614

013522

3282
461l

4613

4615
4616

4617
4618

4619

013s02
013514

013520

0135249

005037

PC, SUBCLR

#SRTSPL, HCS1

;:D0 1

*RESTORE

ITERATION

STK PTR

:SUBSYS CLEAR 8 GET STATUS

:CERR AFTER SCLR

12!

'ROY NOT SET AFTER START SPIN CMD

JSR

PC,GSTAT

;WORD O

ERROR

306

:SPIN NOT SET AFTER START SPIN CMD

MOV

aass SESCARPE

JSR

ERROR

MOV

#0. SPIN, HMR2
138

C.T574TN

1s¢

:D0 START SPINDLE CMD 8 GET CONTR RDY

: TEST FOR ATTN

316

#<D.SPIN!D.VV!D.DRA> ,E.RD

;LOAD IN EXPECTED VALUES

MOV

#1,E.8Bl1

JSR

PC, CHKMSG

; CHECK MSGS R0, B0,A1,B1

1040S?7

ERROR

‘MSG RO

ERROR AFTER START SPIN CMD REC’D BY DRIVE

104061

ERROR

b1l

'MSG Al

ERROR

000000

000001

MOV

003420

_WORD

104060

104062

ERROR

005737

003470

013534

012737

O0l4e66

013842

#StACK, SP

E.BO

013526

013532

81, STIMES

CLR

012737

003414

REV ETC.

PC,DOCMD

BIT
BNE

13%:

4604

FiWD,

JSR

ERROR

001176

004737

HERDS HOME,

BY VERIFYINS ALL nppnophrnrs STATUS 8ITS FOR PROPER SEQUENCING.
MOV

014642

013452

THE PROGRAM CHECKS THE ENTIRE STARTUP SEQUENCE, IE:

' o 3636 36 3 36 3 3 3 36 36 3 3 3 3 36 3 38 36 36 3 36 36 36 36 3 3% 36 36 36 36 36 3 36 3 3 3 3 3 3 3% 3% 36 3% 3k 3¢ 3 3 3¢ 3 3 3 2 3 3 3 3 3¢ 3 3 3 3¢ 3% %
$4T14:
SCOPE

044012

4602

012737

043434

001174

VERIFY START SPINDLE CMD

001126

012765

100000

000000

1%:

0'0'0

18 MSGS SPECIFIED’ HERE
;MSG BO

ERROR

:MSG Bl ERROR

BNE

:BRANCH IF P OR L CLOCK PRESENT

TST

001176

#<D.CART!D.DOOR!D.HDHM!D.BRHM> ,E. Al

MOV

oorxn

#30%, SESCAPE

¥CCLR, RKCS1(RS)

CZRGHED UNIBUS RKGE DR PRTI
CZRBHE. P11
25-JAN-78 12:00
813550

013737

4622
:gga

013562
013S6M

104067

4625

013S6M

012737

050340

003412

MOV

4627
4628
4629
4630

012576
013604
013612
013616

012737
812?37
00S037
0.2737

001720
000001
003422
000002

003416
003420

MOV
MOV
CLR
MOV

#<D.SPOK!D.CART! b DOOR'D.BRHM!D.SSP> ,E.A
sl E.BI
MSG 10 FOR EXPECTED'MSG ax
E.A2
*EXPECTED MSG R2
$2,E.82
*MSG ID FOR EXPECTED MSG B2

4634 013632
013636 004737
000003
4E3S
013640
104063
463 013642 104064

0O44c52

. WORD
ERROR
ERROR

PC, CHKMSG

-8MSGS #Ectrxeo HERE
;MSG
AD
tRRon
AT END OF HERD LORD
:MSG BO ERROR

ERROR
75T
BEQ
ERROR

66
CYLADD
168
176

'MSG Bl ERROR
:SEE_IF MSG B2 = O
:BR IF YES
:CYL ADDR NOT O AT END OF HEAD LOAD

4e2b

32§é

013556

013572

013624

004737

005037

012737

4633

4637

4638
4639
440
Y64l
:g:g
4644

013644

104066
005737
001401
104176

013660

012765

4645
4e4b
4647
4648
4649
4650

013666
013674
013702
013706
013716
013714

:ggg

013720

4651

4654

013716

013720

4655
4656
4657

013726
013732
013740

4659

013752

4658

:gg?

013765
012737
004737
104151
004737
000401
012737

005037
012737
012737

000003

003424
003430

MOV
JSR

168:
100000

001222
000005
043434

000000

0°'N340

OuI414
001720
000001

000002

000003

0UN737

4665
4666

013776
014000

104265
104279

:ggg

014004

000137

4671

01401G

012765

MOV
MOV
JSR
ERROR
JSR
BR

BYS

012737

013766

MOV

000010
003322

044012

013760

014016
(014024
014032
014036

CLR

001364

003422

012737

003412

MOV

INO ATTN nrrsn HERD LORDING

;FIND_ATT

8<D.0DSC!'D.SPIN!'D.DRDY! o VV!D.DRR> ,E.AR0

;EXPECTED MSG AO

£.86

: EXPECTED MSG BO

83 E.B3

:MSG ID FOR EXPECTED MSG B3

ha'T.82!0

; CHECK nscs RO, BO,
A

8CCLR,RKCS1(RS)

SUNIT RKCS2(RG) ;DRIVES
8CLEAR, HCS1
PC, DOCMD
;00 DRIVE CLEAR CMD & GET CONTR RDY
18]
NO RDY AFTER DRIVE CLEAR CMD
PC.TSTATN
TEST FOR RTTN
b4
154

:ATTN NOT CLEARED AFTER DRIVE CLEAR CMD

#<0'0.SPIN'D.DRDY!D.VV!D.DRA>,E. RO

sEXPECTED MSG AO

003424

MOV

oa,s.aa

CLR

003430

MOV

000000

001372
001374

000026

3S:

E.A2°

EXPECTED MSG R2

83 E.B3

MG ID FOR EXPECTED MSG B3

_WORD
ERROR

PC, CHKMSG

Ae'T.B2'0

; CHECK MSGS RO BO Al

ERROR
ERROR
ERROR

ess
274
266

*MSG B0 ERROR
:MSG Al ERROR
'MSG B1 ERROR

IMP

128

MOV
MOV
JSR
MOV

#CCLR,

8 MSGS S ci1 D HERE
:MSG AD tnaon nrren DRIVE CLERR cno

RKCS1 (RS)

HZ COUNT
860, SEC
PC, CLKON
81 RKMR1 (RS)

; EXPECTED Al

MSG ID FOR EXPECTED MSG B2

JSR

MOV

:EXPECTED Al

‘MSG Al ERROR

003416
003420

014462
100000

SETUP TIMEOUT

E.BO
i EXPECTED MsG’ 8O
8<D.SPOK!D.CART! b DOOR!D. BRHM!D.SSP> ,E.Al
81 E.BI
MSG ID FOR EXPECTED'MSG Bl

044252

001370
000074
047206
000001

ERROR

7100, TEMP2

PC,FATT]

CLR
MOV
MOV

104266

013737
012737
004737
012765

ERROR

005037

4662

Y672
4673
4674
4675

003414

013746

014002

JSR

2%:

104154

466
013772 000003
4664 0137749 104273
:ggg

MOV

104065

013646
013650
013654
013656
013660

044044

003362

SEQ 0092

4620

4621

00141&

BO8

MACY11 30A(1052)
25-JAN-78
12:08 PAGE 92
Ti4
VERIFY START SPINDLE CMO

;TURN CLK INTR ON FOR &0 SEC MAX
:SELECT WORD 1

CZRGHED UNIBUS RK6 DR PRT!

CZREHE. P11

25-JAN-78 12:00

4676
:g;?

014044
0{:050

004737
032737

4680

014064

001767

4683
:ggg

gxwg?o
{4074

804737
012765

047302
100000

000000

4686
4687

014102
814110

013737
862737

001370
00005

001372
001374

4689

014122

012765

000001

000026

:ge

4688
4690
4631
4692
4633
4694

814828 88&933 001376
014066

014116

4737

004737
032737
001404
005737
001764

4697

014154

004737

4699

014164

000401

4698

4700

014152

014160
014166

003350

045074
002000

10432

86273

030140

003412

4703

014202

012737

025720

003416

DO4737

4710

014230

104100

4213

014234

013737

471

814522 86473? 833894

3;83

470
3;}5

4714

4718
4719
4720
472l

014176

014210

014232
O0I4e42

5037

012737

5000

003414

000001

012737

001370
000004

:;ag

014304

4724

0I4306

004737

047302

4726

014316

000401

4728

4729

4730
4731

014320

6S:

17S:

001374

104102

004737

104321

9s:

044012

(03412

014334

012737

023720

003416

012737

;Fggnng;g #EQSERoféngg S SEC OF MOTION

JSR

PC, CLKOF

STLRN OFF CLK INTERRUPT

174

JSR

003414

000061

003420

18%:

81, RKMR] (RS)

PC. TSTATN

ERROR

320

CLR

E.80

MOV

#1,E.BI

MOV

: TURN CLK INTR ON FOR 5 SEC MAX

*WORD |

:TEST FOR ATTN

sUNEXP_ATTN AFTER_INNER L IM DETECT

#<D.PIP!D.SPIN!'D.VVID.DRA>
,E.AD ;EXPECTED

#<D.RTZ!D.REV!D.SPOK!D.CART!D.DOOR!D.BRHM!D.SSP>
,E. Al

JSR

PC, CHKMSG

ERROR

100

MOV

HZ, COUNT

JSR

Pé:csrn*

’

E RROR

| 02

sFil
ngR¥0;P?EBEETEgDNIT H IN 4 SEC

PC, CLKOF

*TURN CLOCK INTR OFF.

JSR

0'0!0
101

80 FIlD, HMR2
5
TIMUP
8s

PC’ TSTATN

ERROR

321

CLR

E.BO

MOV

81,E.BI1

MOV

: CHECK MSGS RO,EO0,A1,Bl1

8 MSGS SPECIFIED’HERE
:MSG R1 ERROR

‘MSG Bl ERROR

84’ SEC

JSR

030140

005037

PC.GSTAT
8D FWD, HMR2
7S
TIMUP
68

BIT
BNE
TST
BEQ

001376

;§¥3n?°§p?§5LEIEH6" 60 SEC FROM

JSR
BIT
BEQ
TST
BEQ

MOV

003350

1S 60 SEC DELRY UP?

:BRANCH _IF NO & REPEAT

PC. CLKON

MOV

001372

?xnup

JSR

MOV

_WORD

012737

014342

HZ, COUNT
85, SEC

003420

014322

014330

MOV
MOV

ERROR

002000

4727

PC CLKSF
:TURN OFF CLOCK INTERRUPT
#CCLR,RKCS1(RS)

104101

0 °?37
00004
737
176M

014312

JSR
MOV

5%:

044252

014266
014274
814563
Ol4

4725

7s:

814170

4702

BEQ

ERROR

4701

SEQ 0093

PC,GSTART
ng.ruo,nnna

001376

044012

JSR
aar

003350

047302

PAGE

ys:

ERROR

7206

CcO8

12:08

VERIFY START SPINOLE CM

104075

004737

@25-JAN-78

T14

104070

014130
OI4134
014142
014144
014150

:ggg

045074
002000

MACY1l 30R(1052)

18¢

IN RTZ PORTION OF

STEST FOR ATTN

sUNEXP ATTN AFTER OUTER LIM TO CYL O

#<D.PIP'D.SPIN!D.VV!D.DRA>,E.ARO0

;EXPECTED O

8¢D.RT2'D.FWD'D.SPOK'D.CART!D.DOOR!D.BRHM!D.SSP>
,E. Al

CZRBHEO UNIBUS_RKE DR_PRT]}
CZR6HE .P11
25-JAN-78 12:00
4732
4733
4734
47
47
4737
Y47

473§

474
4741
4742

004737

000000
TR

MACY11

39?&1052)

25-JAN-78

VERIFY START

JSR
. WORD

o442s2

104108

%‘4737

014666
013564

118:

s TURN CLK INTR ON FOR 1 SEC MAX

7 Bo%ssa
047430
880427
005237

003304

004737
104024

o4S4a4

84%7% 883534

013737
004737
104315

003362

o4S42Y4

:WORD O

:SEE IF DRIVE READY

1 _SEC FROM
NOT SET WIT
RIVE REQDYeSTISE
i PREVENRRES
of
TZ¥AR+1spEN
&R
CLOCK

PC, CLKOF
P;,Tsrarn
6

*TURN
:TEST _ATT
'NG ATTN nrrsn START SPIN CMD

;CHECK RKMR 2 8 3 WORDS 0 38 1

8CCLR RKCSI(RS)

208,

gPIN NOT SET ARFTER ST.

;g?%gTST

SES { NE +4 ER IS SET

UELD

INC

UNLD

JSR
ERROR

PC,SUBCLR
a4

ngv
JSR
ERROR
JSR

.3N68Q0 HCS1

JSR
ERROR

PC,SUBCLR

ERROR

o4s4eY

:MSG Bl ERROR

r§ig§IN,HflR2

2C%:

044012

RROR FROM OUT LIM TO CYL O DURING LORD

RKMR1 {RS

148:

003322

1MSG A0

SESCAPE

12%:

003350

1003

0O4737

PC'CLKOH

#8308, SESCAPE

001176

000000

gz;a;

004737
104024

:M5G BO
ERROR
:MSG Al ERROR

103

{83

005037
012765
005065

104011
08473?
104012

104
105

TIMUP

047302
o4401e

s CHECK MSGS RQ,BO0,A1,Bl

:8 MSGS SPECIFIED’ HERE

r?‘onov,nnne

5737
001765
104107

104067
012737
000137

PC,CHKMSG

o'dro

PC,GSTART

§§?7§7

SEQ 0094

CMD

RKMRI (RS)

108:

004737

4737

SPIN

19&

004737

D08

12:08LEPQGE Y

MOV

PS TSTATN

820 8R VSLID HQLT

SPIN CMD

’hevunu HERE IF SW I4 IS SET OR
:SW 8 WITH SWR <7:0> APPLY

;CERR AFTER SCLR

;00 UNLOAD CMD 8 GET CONTR RERDY

*RDY NOT SET AFTER UNLOAD CMD.

sNO ATTN AFTER UNLOAD CMD

:CERR RFTER SCLR

110, TEMP2

ERROR

PC, FSPOK
315

JSR

PC, SUBCLR

:SPEED NOT DOWN BY TIMEOUT

CZR6HEQ UNIBUS RKb DR PRT]
CZRBHE. P11
25-JAN-78 12:00

EOS

MACY11 30A(1052)
25-JAN-78
12:08
PAGE 95
T14
VERIFY START SPINOLE CMD

:;gg

014616

104024

4790
4791
4792
4793

014620
014624

005037
005737

001176
001410

(014632

000177

164252

164294

65S:

IMP

258 :

:;gg

4796
4797

(014630

014636

001402

000177

4798

014642

004737

047302

4800

O0l4652

032777

001000

4799

Q14646

480l
4802

014660
014662

4806

014704

4803
4804
480S

4807

:ggg

005237

00132S
0137

001410

013534

014666
014672
014676

4737
005237
032777

047302
001410
001000

014706

000137

014462

001313

ERROR

:CERR AFTER SCLR

CLR
TST
IMP

SESCAPE
LPFLG
65$
SSLPERR

:SW 9 WAS SET

JSR

PC,CLKOF

BEQ

164260

INC

BIT

30$:

164234

SEQ 0095

BNE
JMP

JSLFADR

LPELG

#SW9, ISWR

208
1s

:LOOP ON ERROR?

:YES, RECONDITION DRIVE
'RETURN TO MAINL INE

JSR
INC
BIT

PC, Cl KOF
LPFLG
#SW9, ISWR

;LOOP ON_ERROR?

JMP

128

RETURN TO MAINL INE

sns

eos

YES,

RECONDITION DRIVE

.SBTTL SEEK/RERD HERDER/WRITE Hshoen TESTS

4810

, o 303636 3 36 36 3 36 36 36 3 3 3 36 36 3 3% 36 3 36 3 96 3 3 3 36 3 3 3 3 3 3 3 36 3 9 3 3 3 36 3 3 3 3 I

4813
4814
4815

:
1
L a

38{5

firssr 15

4815

4817

:g{g

4820
4821

014712

0000OM

012737

000001

001174

4825
:gsg

Q14726
014730

005000
012737

100000

003370

4828
4829

014736
014736

4822

014714

3353 014722 012706 001100

014740

001100

4832

014744

004737

045424

4835
4836

014752

012765

:g:?

015000

104124

:gg?

:ggg

4837
4838
4839
4842
4843

014750

014760
014766
014774
015002
(015010

104024

100000

013765
012737
0049737

001222
0000I3
043434

012765
004737

000001
045074

THIS TEST VERIFIES
C PHRITY ERROR BIT SET,

THAT HEADS DID

NOT MOVE 8 ALL OTHER flPPLICflBLE STATUS BITS’ 8 REGS.
MOV

MOV

81,

sStAck, SP

;

CLR
MOV

RO
#BIT1S, TEMPS

:CYL

®» REGISTER

SCOP1
MOV

#STACK, SP

:RESTORE STK PTR

MOV

3TIMES

PC, SUBCLR

ITERATION

QESTORE STK PTR

;CERR AFTER SCLR

8CCLR,RKCS1 (RS)

MOV
MOV
JSR

SUNIT RKCS2(RS)
sRECAL , HCS1
PC, DOCMD

124

:ROY NOT SET ARFTER RECRAL CMD

MOV
JSR

#1,RKMR1(RS)
PC. GSTAT

: SELECT

ERROR
000026

WITH EVEN PARITY SET.

THIS FREEZEStut iutk?fi fi THE ABOVE REGISTERS& ALLOWS FOR CHECKING.

JSR

000010
003322

KR KN EE RN E

THIS TEST CHECKS EACH BIT OF THE CYL oxrrensnce
AND CYL noonzss necxsrsns av PERFORHING SEEKS TO ALL
MRJOR CYLS
(
128,256) (5I2 FOR RKO?)

ERROR
000000

3 I W2

STATIC CYL DIFF AND CYL ARDDR REG TEST; PART 1

: o 35353 36 36 3 36 3 36 36 36 36 36 36 3 36 96 3 3 36 3 3 6 3 3 3 36 3 3 % 3 % % 3 I W 32 W W3 W A X WKW E K E WK EEEE NN E
&T15:
SCOPE

18:

104415
012706

‘Sl 14 OR B8 WAS SET

:D0 RECAL CMD & GET CONTR RDY
WORD

‘

CZR6HEQ UNIBUS RK& DR PRTI
CZRBHE.P11
-JRN-78 12:00

MACY11l

4ye4y

(01S01M

032737

020000

0033S0

4847
4848
:ggg

015026
015039
01S040

3737
4737
1040SS

001414
094904

003362

4851
4852

015023
0150

12737
037

050340
00341M

oo3412

4g4s
4846

4853
4854
485S

015022
015024

0I1sS0SY
(015062
815070

(012737
012737

001720
00000l
003422
000002
000003

015110

004737

0OM4252

015120
0lISl2e
01S1ed

104275
104222
104276

4856
:ggg

15074
015102

4859

Yygebe
4863
:Sgg

4860
4861

yg
486
4868
4869
4870
4871
4872
4873
48?4
4875
4876
4877
4878
4879
4es80
4881
4882
4883
4884
4885
4886
4887
4888
:ggg

4891
4892
4893
4894
489S
4896
4897
4898
4899

001001
104244

81511H
15116

012737
012737
005037

0007
104221

30A(10S2)
T15

FO8

PRAGE 96
12:08
25-JAN-78
STATIC CYL DIFF AND CYL RADOR REG TEST;
BIT

64S:

80.RTZ,HMR2
648

244
110, TEMP2

;RTZ NOT SET DURING RECAL CMD
'SETUP TIMEOUT

(33

:NO ATTN AFTER RECAL CMD

PC,FATT]

01276S
4737
005737
001401
104050

000002
045074
001364

015150
015156
0lSieM
015172
015176
015200
015204
0]5206
015210

012765
0137eS
012737
004737
04151
004737
000401
104154

100000
001222
000005
0O43434

015210
015216
015222
015230
015236
015242
01S250

012737
005037
012?37
012737
005037
012737
012737

010340
003414
001720
000001
003422
0000ne
0000u3

#<D.DSC!D.SPIN'D.DROY!D.VV!D.DRR> ,E.RO

8l . E.BI

-MSG ID FOR EXPECTED MSG B1

#2,E.B2

'MSG ID FOR EXPECTED MSG B2

E.A2

003424
003430

83 E.B3
PC, CHKMSG

T.A2'T7.B2'7.B3
221

015256
0l1See2
015264
015266
Q15270
015272

004737
000003
104273
104265
104274
104266

044252

(0158274

104418

PC,GSTAT

cY( RDD
658
65SS:

8CCLR,RKCS1(RS)

000000
000010
003322

SUNIT RKCS2(RS)

sCLERR, HCS1

PC, 00CHD
15

Q44012

66S:

0034eY4
003430

; EXPECTED RlI

‘EXPECTED MSG RZ

:MSG ID FOR EXPECTED MSG B3
: CHECK MSGS RO,BO,Al,Bl

-8 MSGS SPECIFIED HERE
:MSG RO ERROR RFTER RECAL CMD

iMSG BO ERROR
:MSG A1 ERROR
:MSG B1 ERROR

47,50, <RFTER RECAL CMD>
82 RKMR] (RS)
sSELECT THE MESSAGE

000026

003416
003420

;;EXPECTED MSG A0

;EXPECTED MSG 80

#<D.SPOK!D.CART!H
. DOOR!D.BRHM!D. SSP> E. Al

003416
003420

003412

IFIND ATTN

E.BO

275
222
276

815126
15134
015140
0IS144
015146
015180

SEQ 009

PART 1

'GET THE STATUS

'RECAL SUCCESSFUL 2
*BRANCH IF SO

'REPORT THE ERROR

;DRIVES

;D0 DRIVE CLEAR CMD 3 GET CONTR RDY

'NO RDY AFTER ORIVE CLEAR CMD

Eggtsrnru

:TEST FOR ARTTN

154

;ATTN NOT CLERRED RFTER DRIVE CLEAR CMD

#¢0'D.SPIN'D.DROY!D.VV'!D.DRA>,E.RC
£.80
-sxpecrso MSG' BO

; EXPECTED MSG RO

#<D.SPOK'D.CART!'O.DOOR*D.BRHM'D.SSP>
,E. Al
8!,

E.BI

E.A2

#2,E.82
83 E.83

PC, CHKMSG

T.42'7.82!0
273
265
374

266

M SG

ID FOR EXPECTED MSG Bl

;EXPECTED Rl

{EXPECTED MSG A2

:MSG ID FOR EXPECTED MSG B2
'MSG ID FOR EXPECTED MSG B3
: CHECK MSGS R0,BO,A1,Bl

-8 MSGS SPECIFIED HERE
:MSG RO ERROR AFTER DRIVE CLEAR CMD

:MSG BO ERROR

'MSG Al

ERROR

:MSG Bl ERROR

001100

004737
104024

o4sSHey

MOV
JSR

n
n

Rgg%CNDCNDC)
93 2
BHMUflNU
—

SN
2

&#Q

s Pt Pt

001364

001362

45§
462
464

INC

BYPCERR

;D0 NOT resr CERR IN GSTATI

ERROR
JSR

122
PC,TSTATN

:NO RDY FROM SEEK WITH BAD PARITY
TEST FOR ATTN

MOV

o<o FLTID.PAR)

.E.BO

E.R2
E.AR2
E.A2
E.R2,E.B2

0o0l462
003370

;ADD MSG ID

JSR

PC, CHKMSG

; CHECK nscs AD, B0, A1 81

ERROR

146

ERROR
ERROR

000137

014736

012062
4§:
X

4
8
&

’

’
.
.

LB &

’

110
111

147

cMP

RO, CYLADD

ERROR

CMP
BEQ

RO, CYLDIF
3s

CLR

BYPCERR

ROL
ROL
CMP
BNE

TEMPS
RO
RO, MC1
ys

IMP

15716

.8 MSGS SPECIFIED HERE
nr1sn SEEK NITH BAD PARITY
;MSG AD tnnon

,nsc B0 ERROR
'MSG Bl ERROR
'MSG A1 ERROR

:CYL ADDR IN B2 NOT=RKDC

sCYL DIFF IN A2 NOT=RKDC

sALLOM CHECKING FOR _ANY CERR IN GSTAT!

"SET_CARRY ONLY ONCE
'SELECT NEXT MRJOR CYL
*ALL MAJOR CYL DONE?
ennucu IF NO
;GO TO

~NEXT TST

Y1y 222232222112 212%*¥z2z2221222%222z:z2z:222222X2222X222X222222X2
22224

,ivssr 16
!

T.A2'T.B2'0

ERROR
BEQ

3s:

E.ARS

82,E.B2

ERROR

00S037
006137
006100

;D0 SEEK CMD 8 GET CONTR RODY

8<D.SPOK'D. can* O.DOOR!D.BRHM!D.SSP> ,E.RI

ROL
ROL
ROL
MOV

"WORD

104044

EVEN PRRITY
*CYL RDDR

NO RTIN raon SEEK 8 BRD PARITY
125
#<D.DSC'D.SPIN! o DROY!D.VV!D.DRA> ,E.R0 ;EXPECTED AO

81,E.B]1
RO’E.A2

BIS

2s:

8PAT , RKMR1(RS)
RO, RKDC (RS)
8SEEK HCS1
PC,DOLMD

MOV
MOV

ROL

o442s2

:RESTORE STK PTR
;CERR AFTER SCLR

MOV

oo3424
oo3424

PC, SUBCLR

ERROR
MOV

000002

#STACK, SP

PART

ERROR

MOV
MOV
MOV
JSR

00332e

i
i
£LLEL
L LFWWWWWW

uavivin.

GOS8

30A(10S2)
25-JAN-78
12:08
PAGE 97
T15
STATIC CYL DIFF AND CYL RDDR REG TEST;

000026

O
000000

QUEBOOGE 00
daann=s
08

012706

OO0

4903
4904
4908
4906

015276

OO0

U901
ugq0e2

0000000

43900

SeeRsER 2202 202 2PPR00 DDeRDeooenooboooooa o o

CZR6EHEO UNIBUS RK& DR _PRT]
25-JAN-78 i12:00
CZReHE .P11

MACY11

STATIC CYL DIFF & CYL RDDR REG TEST-PART 2

THIS TEST CHECKS THE RBILITY OF TH? DRIVE TO PROPERLY SET THE CYL

DIFF. 8 CYL RDDR REGS FOR ALL COMBINARTIONS BY SEEKING TO
ALL CYLS FROM EVERY OTHER CYL. (N SQUARRE SEEKS).
IT IS PERFORMED IN THE SAME MANNER RS THE ARBOVE TEST.

SEQ 0097

CZRGHED UNIBUS RKE DR PRTI

CZRBHE .P11
4956

4957

Ql1S524

25-JAN-78 12:00

00000M

018836

012737

000001

4961
4962
4963

Q15540
015544
oxssgg

00S737
001404

001340

0185

000137

104401

0S5704

4966

015553

005737

001170

:323 015534 012706 001100

4967
4968
4969

015562
015564
015570

001403
104401
000402

:g;?

015572

4972

015576

005037

:g;g

0i1Sele

005037

4973
4974
4977

33;3
4980

(156C2
Q15606
015616

104401

005037
005037
104415

4983
4984

015632

012765

4985

4og3

813 40

104024

oxg7s

138:
15%:

001350

169

001352
001354

001356

04SH24

0OC4737

ugg

100000

00l222

499
4994

1g 70

15674

012765

SCOPE

81,

1ST
BEQ

TYPE

BYPT16
138
MSG9

:BYPASSING TEST

1S7T

STMPY

:SEE_IF RKO7

TYPE

,M5G8

;2-4 MIN TEST

CLR

FRCYL

;FROM CYL

CLR

PCYL

:PREV CYL

BEQ
TYPE
BR

CLR
CLR

JSR

MOV

000010

MOV

JoK

fRRor

000001

000026

MOV

020600

0033s0

BIT

3 37
737

831414
4o4Y

003362

737

15702
(015704

1001
104;44

843874

4995
4996

812705
(15714

015720

1040SS

4999
S000

(015722
015730

012737
00S037

050340
003414

5002

015742

012737

STIMES

#StACK, SP
les

158
M5G23
6$

TOCYL
CCYL

;

ITERATION

*BR OF NO
:10-12 MIN TEST

:T0 CYL
:CURRENT CYL

#STACK, SP
PC, SUB.LR

:RESTORE STK PTR
:CERR AFTER SCLR

#CCLR,RKCS1(RS)

SUNIT.RKCS2(RS)

3RESQEhSCSI
T34

’l, RKHRl(RS)

JSR

PC.g§rn

BNE
ERROR

sws
244

0 RECAL CMD 3 GET CONTR RDY

OY NOT SET RFTER RECAL CMD
;SELECT WORD

RTZ, HMR2

:RT2 NOT ssr ounxnc RECAL

003412

MOV
CLR

#<D.DSC!D.SPIN'D. onov-o VW!D.DRA> ,E.A0
E.BO
XPECTED MSG BO

000061

003420

MOV

Il E Bl

nsc 1 FOR sxpscrso nsc Bl

S00s Bi25g3 B18337 B83%8s

983asd

MoV

.S E BS

n28 iB 8aESTEB n2e BS

JSR

PC, CHKMSG

: CHECK nscs RO,B0,A1,B1

ERROR
ERROR

275
222

5001 815734 012737 001720 003416
07

015770

015774

000007

€010
E011

016000
016002

104275
104222

008

004737

€008 015776 104221

044252

MOV

. WORD

ERROR

SETHP

CMD

T10 T;flpa
PC,FATT]

ERROR

YY)

hESToas STK PTR

MOV
JSR

:ggg

64S:

SEG 0098

X222 2SR

MOV

ERROR
000000

PAGE 98

MOV

Q012684 87
Owr3 agaay 003%ee

015662

12:08

STATIC CYL DIFF 8 CYL ADDR REG TEST-PRRT 2

SCOP1

:§§% 8izkes
4990

HO8

25-JAN-78

ImP

0SSBY6

001100

015624

001174

t8116:

0S6600

0i2706

015630

T16

016766

015620

3385

30A(10S2)

XXX

4358

3323

MACY11

:NO nrru RFTER RECAL CMD

#<D.SPOK!D.CART! 0 ooon-o BRHM!D.SSP> ,E.R

ba'1.82'T7.83

;EXPECTED MSG RO

MsGS SPECIFIED MERE

:MSG RO ERROR AFTER RECAL CMD

*MSG BO ERROR
'MSG Al ERROR

;EXPECTED Al

104276

016006
016014

012765
4737

016024
0160626
0160630

001401
104050

§021

815030

012765

5012

5013
014
6015
€016
8017
018
ggég

Q
£

25-JAN-78 12:00

CZRBHE.P

[

CZREHED ?NIBUS RK& DR PRT1

016020

5022
5023
S024
5025
5026
5027

016036
016044
016052
016056
016060
015064

gggg

016070

S028
5031

016066

016070

6032
S033
5034

016076
0161
016110

5036

oxsxgg

6035

5737

013766
012737
004737
104151
004737
000401

000002
045074
001364

005037
012737
012737

65S:
100000

001222
000005
043434

010340

003414
001720
000001

0161

012737

000003

016136
004737
5040
016142
000003
S04f
016144
104273
5042 016146 104265

0M4252

6039

5046
5047

016150
01612
016154

000002

gg:g

0i6iSe

012706

001100

5050

01blb2

004737

04S42M4

016170

012765

000020

gggé

5053

6054

5055
5056
6057
S0S¢
5059
5060
8761
.62

063
5064
065
066
S067

016166

016176
016204
016212
016220
016226

104024

013765
013737
013737
013737
163737

001352
001352
001354
001356
003364

054
013737

003366
003366

816232

6ogog;

016250
016256
016264
016270
016272

013737
012737
004737
104122
004737

0162
0l6ed2

001354
000017
043434

044012

CWD2
MOV
JSR
157
BEQ
ERROR
MOV
MOV
JSR
ERROR
JSR
BR

003412

ERROR
MOV

003416
003420

CLR
MOV
MOV

003424

MOV

003430

104279
104266

104415

108

PRGE 99
12:08
2S-JAN-78
STRTIC CYL DIFF & CYL ADDR REG TEST-PRRT °

MOV

000010
003322

668 :

003422

043
gg:g

000000

044012

005037

012737

Tie

000026

104154

012737

30A(10Sa)

ERROR

016116

gggg

MARCY11

001360

001356
003322

1S:

2$:

8CCLR,RKCS] (RS)

SUNIT RKCS2(RS)
8CLERR, HCS1
PC, DOCHD
151
PC TSTATN
664
IS4

;DRIVES
:00 DRIVE CLERR CMD 8 GET CONTR RDY
:NO RDY AFTER DRIVE CLEAR CMD
STEST FOR ATTN
sATTN NOT CLEARED RFTER DRIVE CLEAR CMD

8<0'D.SPIN'D.DROY!D. vv-o DRA> ,E.RO

s EXPECTED MSG RO

£.80
. EXPECTED MSG'BO
#<D.SPOK!D.CRRT! b ooon D.BRHM'D.SSP> ,E.Al
sl E.BI
1D ron EXPECTED MSG Bl

E.A2

expscrsg

MOV

83 E.B3

:MSG ID FOR EXPECTED MSG B3

JSR

_WORD
ERROR
ERROR

PC, CHKMSG

;CHECK MSGS RO, B0, Al

ERROR
ERROR

T.A2'T7.82'0
273
265
274
266

:MSG Al ERROR
iMSG Bl ERROR

MOV

8STACK, SP

;RESTORE STK PTR

JSR

PC, SUBCLR

ERROR

000020
001354
003364
003366
003366

MSG Bl ERROR

47,50, <RFTER RECALCMD>
82, RKMR] (RS)
sSELECT rue MESSAGE
PC,GSTAT
'GET THE STATUS
cy({RDD
! RECAL SUCCESSFUL ?
65S
'BRANCH IF SO
SO
!REPORT THE ERROR

CLR

SCOP1

000026

276

SEQ 0099

MOV

MOV
MOV
MOV
MOV
SUB

82,E.B2

1 MSG

OR EX

CTED MSG B2

-8 MSGSRFTER
#Ect
1
ERE CMD
:MSG
A0
tnaon
DRI
s
CLEQR
‘MSG BO ERROR

:CERR ARFTER SCLR

#PAT, RKMRL(RS)

;EVEN PARITY

ToCY( ,RKDC(RS)
TOCYL CCYL
cCyL, YEMP3
PCYL| TEMPY
TEMP3, TEMPY

:EXPECTED Al

;SET TO CYL ADDR
: CURRENT CYL
:PREV CYL

BPL

;BR IF TEMPY IS POS

MOV
MOV
JSR
ERROR
JSR

ceyL, PCYL
#SEEK HCS1
PC,DOLMD
122
PC, TSTATN

:00 SEEK CMD & GET CONTR RDY
INO ROY ARFTER SEEK WITH BRD PARITY

NEG
MOV

TEMPY
TEMPY, CALDIF

:TEST FOR ATTN

CZRLHED UNIBUS RK& DR PRT]
CZRBHE.P11
25-JAN-78 12:00

5068
5069
€070

5071
gg;g

016276
016300
016306

81531w
0{2352

104125
012765
013765

004737
85?731
’

5074

016330

104045

§076

016332

004737

5078

0163494

J01401

2835

016350

€077

gggg
083

6084

5085

016336

016346

016350

016356

016364

J23737

100000
001352

046014
001352
045730

001360

ggg?

016404

8{23?8

FRROR
MOV
MOV

000000
000020

001364
001362

38:

gggg

6097

PC,ROLYLA
TgCYL.CYLRDO

:NO ATTN FRUM SEEK 8 BAD PARITY
;CLEAR ERROR
:RESTOR RKDC AFT CCLR

ERROR

sMR3 NOT=RKDC

JSR

PC,RDCYLD

:READ CYL DIFF

BEQ

cHP

ERROR

CALDIF,CYLDIF
46

*READ CYL RODR
:SEE IF TO CYL FCHOED OF

;SEE IF CYL DIFF CORRF.T

sCYL DIFF IN RKMR2 INCORRECT

ys:
012765

013765

012737

100000

000000

000005

003322

001222

MOV

000010

000401

104154

MOV

N
JSR
BR

e7s

§092

5033
5094

JSR
CHP

125
#CCLR,RKCS1(RS)
TOCYL R¥FDC(RS)

("]

104046

2087
016376 194ig; 3w
5088 016400 004737 044012
089

JO8

1ACY11 30R(1052)
25-JAN-78
12:08 PAGE 100
T16
STATIC CYL DIFF & CYL ADDR REG TEST-PART 2

ERROR

#CCLR,RKCS1(RS)

SUNIT RKCS2(RS)

;DRIVES

PC. TSTATN
67¢

*TEST FOR ATTN

1GV

:ATTN NOT CLERRED AFTER DRIVE CLEAR CMD

#STACK, SP

sRESTORE STK PTR

8CLEAR, HCS1

D PR VErSER BRIV CLERR cmp RO

)
016410

104415

Oie4i2

012706

001100

SCOP1

MOV

gggg

016422

016416

004737

04SH24

5100

0I6424

Ql2765

000020

000026

MOV

102

016440

013737

001350

001354

MOV

FRCYL CCYL

MOV

PCYL | TEMPY

BPL

MOV
MOV

CCYL, PCYL
#SEEK, HCS1

JSR

PC,TSTATN

STEST FOR n?rn

MOV
MOV

8CCLR,RKCS1(RS)
FRCYL 'RKDC(RS)

;CLEAR ERROR
;RESTOR RKDC RFT CCLR

SES

EgéYL,CYLQDO

*SEE IF RETURN CYL ECHOED OK

ERROR

241

:MR3 NOT=RKDC

CMP
BNE

TOCYL,FRCYL
108

:SEE IF TO=FROM
!DO NORMAL TEST IF NO

5101

0led32

S103

016446

§10S

815468

5104

6106

5107
6108

§109
S110

104024

013766
013737

016454

013737

016470

1000

016472
016476

oxsgoq
016512

163737

005437
013737

ng7 ?
012737

001350
001354

001356

003364

003366
003366

001354
000017

JSR

ERROR

000020
003364

003366
001360

001356
003322

o44012

5115
5116

016534
016542

012?65
013765

100000
0013S0

000000
000020

Eif%

8%2253

85?38T

001350

00136M

gisg

016564

104241

€122
§123

016566
016574

023737
001022

€117

016532
016550

104125

004737

046014

001352

MOV

003366

5113 G16526 083§3
5114

MOV

001350

SUB

S§:

NEG
MOV

ERROR
JSR

6%:

PC, SUBCLR

:CERR AFTER SCLR

#PAT,RKMR1 (RS)

;EVEN PARITY

FRCYL ,RKDC(RS)

:SET RETURN CYL ADDR

cevL, Yemp3

TEHPQ,TEMPH
TEMPY
TEMPY, CRLDIF

125

PC,ROLYLA

:BR IF TEMPY IS POS

:NO ATTN FROM SEEK & BAD PARITY

*READ CYL ADDR

SEQ 0100

CZREHEO UNIBUS RK& DR PRT]
CZRBHE.P11
25-JAN-78 12:00
Sle4
Si2Ss
5123

016576
Q0leeb02
016604

005737
001007
004737

5128

016614

00i421

gig?

016620

000417

5132

016b22

004737

SI34
5135

0lee34
016636

001411
104263

5137

0lee4e

S1e7

S129

S133

5136

5138

$139

016610
0l6ble

016t26

0leb46

023737

016656

:{:g

016660

SI44
SI4S

016660
(0lebbb

5146
S147
S148

016674
016702
016706

5150

016714

5152
51583
5154
S155

016720

5151

5166

5157
Ei?g

3727

000407

016654

016710

016716

001352

045730

JSR

001362

TST

BEQ

004737
001401

(045730

001362
0Q4S730

001360

000001
001362

012765
013765

012737
004737
104151

004737

000401

100000
00lcee

000005
0O43434

000000
000010

003322

68S:

016732
016734

001402
000137

016170

023737

001352

012056

Sled4

016762

000137

001350
016170

001352

S171

5172

3{33
S17%

5176
5177

5178

PC,ROCYLD

;CYL DIFF/OFFSET SHOULD NOT

BEQ
ERROR

4
263

;SHOULD = 1 IN THIS TEST
;CYL DIFF IN RKMR2 DID NOT REMARIN = 0

J5R

PC,ROCYLD

;RERD CYL DIFF

BEQ

CHP

CMP

CY(DIF, 81
78

CALDIF,CYLDIF

; CHANGE IN SEEK _TOQ SELF

;SEE IF CYL DIFF OK

ERROR

242

;CYL DIFF IN RKMR2 INCORRECT

MoV
MoV

8CCLR,RKCS1(RS)
SUNIT,RKCS2(RS)

;DRIVES

013737

ERROR

INC

012056

001350
001350

Eigg

;CYL DIFF S/B O ON CYL O

JSR

005237
023737
00140S

S1e8

CY(DIF

;CYL DIFF IN RKMR2 INCORRECT

104154

001352

016766

PC,RDCYLD
gue

MOV
JSR
ERROR

044012

016740
016744
016752

S16S

; SEE IF=0

78:

005237

016754

108:

104242

S160
Siel
5162

S163

9s:

TOCYL
9s

SEQ 0101

ERROR
BR

016720

016724

TST
BNE

104242

016640

Ei:?

S149

00S737

KO8

MACY11l 30A(1052)
25-JAN-78
12:08 PRGE 101
Tle
STATIC CYL DIFF & CYL ADDR REG TEST-PART 2

CcMP
8Ss:

S 3 BRI

154

; TEST FOR RTTN

;ATTN NOT CLERRED AFTER ORIVE CLERR CMD

TOCYL

BEQ
JMP

8%
18

;SEE _IF SCANNED ALL CYLS

INC
CMP
BEQ

FRCYL
FRCYL,LCPL
TST1?

;SEE IF ALL DONE
;GO TO NEXT TST

; ELSE REPERT

JMpP

FRCYL, TOCYL

;BR_IF YES
; ELSE REPEART

:FRCYL ALWAYS = OR > TOCYL

30 0000 T 0000 000 00 006 0 000 00 06 00000

s ETEST 17

PC, TSTATN

684

;00 DRIVE CLERR CMD & GET CONTR RDY
;NO RDY AFTER DRIVE CLEAR CMD

TOCYL,LCPI

MOV
128:

$CLEAR, HCS1
PC, DOCHD
15}

HEAD REGISTER TEST

300

3060 330

THIS TEST CHECKS THE ABILITY TQ SELECT ALL HERDS (0,1,2)

VIA RKDA 8 READING BACK FROM MSG B3 BY THE SELECT DRIVE cMD.

s ®

;¥

HERD 3 IS CHECKED TO PRODUCE INV. RDDR.

SELECTING HEAD 3 MUST RESULT IN A SEEK_INCOMPLETE ALONG WITH

®
; ®

HR4

SINCE CHANGING HERD ADDRESSES RRE TIED TO SEEK CMDS
ILLEGAL RADDRESS.

IF NOT,THIS MEANS THAT CHANGING HERD ADDRESSES

ARE NOT TIED TO SEEK CMLS

CZRBEHEQ UNIBUS RK& DR PRT]
—

Q0
o

CZREME.P1L

5181

25-JAN-78 12:00

016766

000004

§182

016770

016776

012706

gxes

817882

005000

sigg

017006

012706

017016

104024

(17020
017026

012765
0137656

giga
186
§187

17004
017004

012737

104415

MACY11l 30A(10S2)

T1?7

2139

195
§196

§197
5198
5538
201
6202
6203
204

6205
8206

6207

gsgg

017034
817042
17046
017050
017056
8170
0170

017072
017074

017102

017106

012737
08:737
104124
012765
004737
32737
01001

104244
013737

004737
104055

LO8

12:08

HERD REGISTER TEST

PAGE 102

SEQ 0102

22 i!llil!ss;gllllll!!illlllllflllI*ll5!!‘l'llllllllllllllllll!lll!lll

00000f

001100

001174

Y117

18:

001100

100000
001222

000013
043434

MOV

sstack, sp

81, STIMES

;:00 1 ITERATION

CLR

;HERD #

#STACK, SP

:RESTORE STK PTR

: CERR AFTER SCLR

SCOP1

JSR

PC, SUBCLR

MOV
MOV

#CCLR, RKCS1(RS)
SUNIT RKCS2(R5)

ERROR
000000
000010

003322

MOV
JSR
ERROR

000026

MOV
JSR
BIT
BNE

000001
045074
020000

003350

001414

003362

O44044

MOV

3190 017012 004737 045424
Eigé

@25-JAN-78

64S:

8RECAL, HCS1
PC, DOCHD
124

#1,RKMR1 (RS)
PC.GSTAT

;D0 RECAL CMD 3 GET CONTR RDY
'ROY NOT SET AFTER RECAL CMD
: SELECT WORD 1

80’ RTZ, HMR2

6us

ERROR
MOV

;qq
10, TEMP2

ERROR

JSR

:RESTORE STK PTR

PC,FATTL

:RTZ NOT SET gunxnc RECAL CMD
‘SETUP TIMEOU

'FIND ATTN

INO ATTN AFTER RECAL CMD

2517 Qiriie 94803, D833.q OO3ue

MO¥

4<DyDSciD-SPINID.DROYID,
¥Vi2:OBg +E-A0 sEXPECTED MSG RO

213
214
215
gg{g

MOV
CLR
MOV
MOV

8l E.BI
E.A2
#2,E.82
#3 E.83

:MSG 19 FOR EXPECTED' MSG Bl
:EXPECTED MSG R2
IMSG ID FOR EXPECTED MSG B2
iMSG 1D FOR EXPECTED MSG B3

JSR

PC, CHKMSG

: CHECK nsgs AQ,B0,AL,Bl

ERROR
ERROR
ERROR

275
222
276

iM5G BO ERROR
:MSG A1 ERROR
:MSG 81 ERROR

g2l

017122

017130
017136
017142
0171s0

012737

012737
005037
G12737
012737

G218

81715&

004737

S22l
Gec2
§223

017166
017170
017172

104275
104222
104276

5219
€220
S22y
5225
S2ob

6227
g228

017162
017164

000007
104221

000001
003422
000002
000003

012765

000002

017206

005737

001364

017202
017512

004737
001401

8{;2{:

5231
€232

017216

012765

€234
€235

017232
017240

012737
004737

017224

003416
003420

003424
003430

045074

_WORD
ERROR

000026

104050

013765

MOV

044252

017174

gggg

6233

001720

;

CWD2
MOV
JSR

ecs

47,50, ¢(RFTER RECAL CMD)>
82, RKMR] (RS)
:SELECT THE MESSAGE
PC,GSTAT

:GET THE STATUS

'RECAL SUCCESSFUL

ERROR

'REPORT THE ERROR

BEQ

MOV

000065
043434

003322

MOV
JSR

MOV

sEXPECTED Al

-8 MSGS SPECIFIED HERE
:MSG AQ ERROR AFTER RECAL CMD

cY(RDD

000000

000710

T.A2'T.B2'T.B3
221

157

100000

001222

o<o.spoxeo.cnaveb.oooneo.annneg.ssp>,e.nx

413

$CCLR,RKCS1
(RS)

SUNIT'RKCS2(RS)

$CLEAR, HCST
PC, DOCHD

:BRANCH IF SO

;DRIVES

;00 DRIVE CLEAR CMD 8 GET CONTR ROY

.:uwwgm 0r0OL0O0L
a0 N \lq‘g gzmuuu:
Lok

W
n
o

e
e
e L

oorcLnnOL

00000

NNNNNN O NNNNNNYN O NNNNYN
WWWWW
W
o

NNN

0000000
000000

000

Pt e

003416
00340

000003

003424
003430

004737

o44eSse

000

~
o

Pt Pt Pt

Pt Pt

NNN
W

023727
001401
104053

000

Pt Pt Pt Pt Pt

\l\l\l\l\l\i}l\l\l\l\l\l\l

883058

000300

25-JAN-78

HERD REGISTER

ERROR
JSR
BR
ERROR

12:08
TEST

PRGE

103

SEQ 0103

&Sl

; NO_RDY QFTER ORIVE CLERR CMD

154

;ATTN NOT CLERRED ARFTER DRIVE CLERR CMD

bngSTRTN

:TEST FOR ATTN

#<0'D.SPIN'D. DRDY'D v

DRA»

pretReCRaz By

,E,RO

;EXPECTED MSG RO

#<D.SPOK!D.
cnar-b ooon-o
anun-o SSP> ,E.Al
8l E.BI1
10 FOR EXPECTED MSG BI

E. AE

EXPE? P 2 gi

83 E. 93

:MSG 1D FOR EXPECTED MSG B3

PC, CHKMSG

Aa'r 820

*MSG

FOR

s EXPECTED Al

CTED MSG B2

; CHECK MSGS R0, B0,A1,Bl

ass

-8
MSGS SPECIFIED MERE
;MSG R0 ARROR ARFTER DRIVE CLEAR CMD
.nsc B0 ERROR

266

'MSG Bl ERROR

274

:MSG Al

ERROR

ggnon,cx

;FOR HERD 0,

;RECAL DID NOT RESET HERD REG IN B3.

001100

#STACK, SP

:RESTORE STK PTR

o4sS4aY

PC,SUBCLR
a4

; CERR AFTER SCLR

< Jl432

000001

B3=l

3%:

000006

012737
00478?
104156

000017
043434

000300

MO8

104266

NNNNNN
£
o o o
=
o

ot Pt Pt Pt P
ot Pt Pt Pt Pt Pt et Do

T17

003412

001720
0008%1

010065

44y

30R(10S2)

669%:

0127
012737
7
805
1737
012737

12708

366

MRCY!1]

o44012

37 883315
BAER37

0000000000000000000

pafa pt

352

JO41S1
L4737
000401
104154

004737
104024

5236
5237

et
et wtwaywhwwut
e

CZRBHED UNIBUS RK6 DR PRTI
. P11
CZRBHE
25-JRAN-78 12:00

RO, RKDA(RS)
RO

003322

PC,TSTATN

o44012
0S0340
000003

003412

001003

Eiao
003414
003416
003420

oo3424
003430

;D0 SEEK CMD 8 GET CONTR RDY

'NO ROY AFTER SEEK TO SELF

157
NO ATTN AFTER SEEK TO SELF
sao gsc D.SPIN'D’DROY!D. VV!D.DRR) ,E.RQ ~;EXPECTED RO
4s

003414
002240
881720
00gi
003422
oooooe

#SEEK, HCS1

PC, DOLMD

sHEAD

:BR FOR HEAD 3

iFOR HERDS 0,1,2

#<D.SKI'D.FLT'D.IDRE>

,E.BO

FOR HEAD 3

#<D.SPOK'D.CARTID oooh D.BRHM!D. éSP) .Al

E.BI

E.A2

#2,E.B2

:SEE IF HERD O

S
iBR_IF _NO
g;BITQ!S),E.BB:LORD EXPECTED B3 FOR HEAD O & MSG ID

CZR6HEC UNIBUS RK& DR PRT]
CZREHE.P11
25-JAN-78 12:00

5292

017514

023027

8295

017530

000493

gsgg

017540

5293
€294

017520
(017522

001004
012737

NOS

MACY1l 30A(1052)
25-JAN-78
12:08
T17
HEAD REGISTER TEST

000001

6%:

002003

003430

012737

004003

003430

§300 017540
017544 004737
000007
6301
017546
104114
S3C2 017550 10+115

044252

5303
gggg

017552
017554

104322
104323

306

017556

012765

000002

6309
6310
6311
5312
5313

0175?74
017576
017600
017604
017606

001401
104324
005737
001401
104325

001364

5316

017513

020027

000003

6319
5320

017616
017622

017630

00S037
116037

023737

003360
003312

5324

017636

001401

6327
6328

017642

005200

6330
gggé

017650
017652

061402
000137

017532

5299

§307

017564

004737

045074

€308 017570 005737 001362

gg{g

ggig

6321
5322
5353
gggg

6329

017610

017619

017640

017644

ggga

017656

6335

017656

5336
6337
5338
ggag
S341

6342
§343
6344

5345
5346

5347

017664
017672
017700
017704
017706

0177I4
017722
017730

017734
017736
017742

001412

7%:

8%:

000026

JSR

PC, CHKMSG

ERROR
ERROR

322
323

MOV

oa RKMR1 (RS)

MOV

JSR

15T

67%:

003360

001432

000004

017004

RO, B0, AL,Bl
T.A2'T.B2!T.B3 s CHECK nscs
-8MSGS
fis {FIED HERE
114
:MSG
A0
tnaon
RFTER
LOAD HEQD REG 8 SEEK CMD
115
:MSG BOERROR

:MSG Al ERROR
:MSG B1 ERROR

GSTRT

cvtoxr

CMP

RO, 83

CLR
MOVB

TEMP1
ATTN(RO),

BEQ

TEMP1

INC

BEQ
IMP

10¢
1

; SEE IF MSG AR2=0

:BR IF HERD 3

TEMP1, HEADA

;SELECT WORD 2

'BR IF YES
'MSG A2 NOT CLERRED AFTER LOAD HEAD REw 8 SEEK CMD
:SEE_IFMSG B2=0
'BR IF YES
IMSG B2 NOT CLEARED AFTER LOAD HEAD REG & SEEK CMD

qs’

ERROR

CMP

:SEE IF HERD 1

$<BIT11!3>,E.B3 ;B3 FOR HERD 2

679
324
CYLADD
689
325

CHP

SEQ 0104

78
'BR IF NO
#<BIT10!3> ,E.B3 ;B3 FOR HERD 1

BEQ
ERROR
TST
BEQ
ERROR
BEG

104054

020027

RO, 81

BNE
MOV

_WORD
ERROR
ERROR

58%:

003360

CMP

PAGE 104

RO, #4

:FOR RKDA=HEAD 0, HEAD=! IN B3
'FOR RKDR=HERD |, HEQD:E IN B3
:FOR RKDR=HERD 2, HEAD=4 IN 83
:HEAD DECODE IN B3 INCORRECT

:0 THRU 3 DONE?

:BR IF YES
'ELSE REPERT

108:

012765

013765
012737
004737
104124
01276S

013765
012737
004737

104151
004737
000401

100000

001222
000013
043434
100000

001222
000005
043434

044012

000000

000010
003322
000000

0600010
003322

MOV

MOV
MOV
JSR
ERROR
MOV

MOV
MOV
JSR

ERROR
JSR
BR

8CCLR,RKCS1(RS)

$UNIT RKCS2(RS)
$RECAL, HCSI
PC, DOCHD
;D0 RECAL CMD & GET CONTR RDY
124
'RDY NOT FOUND AFTER RECAL CMD
8CCLR,RKCS1(RS)

SUNIT RKCS2(RS) ;DRIVES
8CLERR, HCS1
PC ., DOCHD
;00 DRIVE CLERR CMD & GET CONTR RDY

151
PC,TSTATN
708

'NO RDY AFTER DRIVE CLEAR CMD
:TEST FOR ATTN

CZR6MEQ UNIBUS RK6 DR PRT]

CZREHE.PIL1

25-JAN-78 12:00

5348

017744

104154

6362

017746

004737

5354
ggga

(017760
017762

OO0I40!
104158

5349

6353

017746

(017752

032737

6357

01776M

012765

§359

(020000

004737

6358
gggg

017772

020004

013737
104055

MACY11l =0R(1052)

T17

70$:
045074

000040

00332

100000

000000

0ONi412

044044

003362

2S-JAN-78

ERROR

154

JSR

PC,GSTAT

BEQ
ERROR

63$
1S5

MOV

JSR

ERROR

§362

12:08

HEAD REGISTER TEST

BIT

69S:

BO9Y

PAGE 105

80’ IDAE, HMR3

#CCLR, RKCS1(RS)

SEQ 010S

:ATTN NOT CLERRED AFTER DRIVE CLEAR CMD

:SEE IF IDRE IS CLEMRED

:BR IF YES
*I0RE NOT CLERRED AFTER RECAL CMD

T1, TEMP2

;LOOK FOR ATTN FROM RECAL

:NO ATTN RFTER RECAL CMD

PC,FATTI

6363

, o 36363696 3% 36 36 36 35 3 3 3 36 3 3 36 36 3 3¢ 36 3 36 3 3 36 3 3¢ 3 3 3 3 3 36 3 3 3 3 3 3 3 3 3 3 I 3 W 3 3 3 2 32 3 3 3 3 3 WX % % %R

5366

gggg

firesr 20

5367
5368
gggg

Ta
"
H

6371
§372

020006

000004

5376

020022

004737

6373 020010 012737 000001
gg;g
020016 012706 001100

5377
5378
5379

020026
020030
0034

5380

020040

5382
6383

020044
020044

6381

sggg

5386

020042

001401

001364

104130
104415

18:

001100

020052

004737

045424

020056

389

020060

104024

012737

003322

000005

003360

004737
104131
012737

043434

5394

020102

004737

044140

6396
5397

020110
(020116

032737
001401

100000

gagg

020122

5395
6398

401

€402

(020106
020120

020122

020130

104132

00S037

003414

PC, SUBCLR

BEQ

003412

S403 020134 012737 001720 003416

#StACK, SP

;

hssroneITERATION
STK PTR

:SUBSYS CLEAR 8 GET STATUS

24
PC,RDCYLA
cY(LADD

:CERR AFTER SCLR
!READ CYL ADDR IN RKMR3

130

:CYL RDDR NOT CLERRED AFTER SCLR

MOV

#STACK, SP

;RESTORE STK PTR

JSR

PC, SUBCLR

ERROR
SCOP1

#SEEK , HCS1

;CERR AFTER SCLR

JSR
ERROR
MOV

pC,DoMD
13
#5, TEMP1

;00 SEEK CMD & GET CONTR RDY
IRDY NOT SET AFTER SEEK CMD
ISETUP 100US TIMEOUT

JSR

PC,FATT2

;FIND
R

BIT
BEQ

#CERR, HCS1
64S

ERROR

BYS:

0S0340

JSR

MOV

003322

104210

012737

81, STIMES

ERROR

000017

020066
(20072
020074

MOV
MOV

ERROR
JSR
TSY

046014

012706

TESTS THE ABILITY TO DO
A SEEK CMD.

VERIFIES THERE WAS NO MOVEMENT BY CHECKING ALL APPROPRIATE
STATUS BITS.
VERIFIES CMD COMPLETION BETWEEN 10-1SUSEC.
READ HEADER IS NOT PERFORMED RS THE PARCK MAY NOT BE FORMARTTED.

: o 303636 36 36 36 36 36 3 3 3 36 36 36 36 36 36 36 36 3 36 3 3 3 26 3 36 3 36 36 36 36 36 3 96 38 38 36 38 3 3 3 3 3 3 3 3 38 3 3 3 3¢ 3 3 3 3% 3¢ 3 3 3 3 3%
+&720: SCOPE

045424

020046

gggg

6390
539]
gggg

104024
004737
0C-737

001174

SEEK TO CYL O

ERROR

MOV
CLR

MOV

210

'NO RTTN RFTER SEEK CMD
;CERR AFTER SEEK CMD

#<D.DSC'D.SPIN!'D. DRDY'D VW!D.DRAR> ,E.A0

E.BO

XPECTED MSG B0

;EXPECTED MSG AO

#<D.SPOK!D.CART! b ooon D.BRHM!D.SSP> ,E.R1

;EXPECTED Al

CZREHED UNIBUS RKB DR PRT1

CZR&HE .P 11

25-JAN-78 12:00

cO9

30R(1052) ES AN-78
12:08
Teo
O
ocvyvL

FAGE

106

SEQ 3106

000001

003420

MOV

;MSG

0162

000003

00342y
003430

MOV

'M3G ID FOR EXPECTED MSG B3

020170
020174

044252

020142
201?0
Q154

vinnnvvininnan
I LfLrrrrcrrcfsrsr
nn PUNIIU N bt et bt e s Pt e e P
(P WM
O WM O
£ W) —

MACY11l

012737

383088

EE e TR R RExBECcTED MG B2

JSR

ID FOR EXPECTED MSG Bl

PC, CHKMSG

Aa-r B2'0

-8 MSGS sPsctFIEo HERE
:MSG RO énaon RFTER SEEK CMD

; CHECK nscs RO, BO,
A

'MSG BO ERROR
"MSG Al ERROR

:MSG Bl ERROR

001362

;CYL DIFF NOT CLERRED RFTER SEEK CMD
65$:

100000
00licee
00000s
O43434

8CCLR,RKCS1(

000000
000010
003322

SUNIT RKCS2(
8CLERR, HCST
Pcloocfio
15

o4401e

010340

000002
000003

104266

020342
020346
020350

005737
001401
104140

154

;ATTN NOT CLERRED AFTER DRIVE CLEAR CMD
‘EXPECTED MSG RO

8<D. SS?K!D.CRART! 6goon-o.BRHH'D sSSP ,E.Rl

E.BO
01 E

003424
003430

; EXPECTED Al

EEEECTED
MSG B3
B2
1MSG *8 E EB MSG

PC, CHKMSG

: CHECK MSGS R0,B0,A1,Bl

a
265

:MSG A0 ERRO nrrsn DRIVE CLERR CMD
,nsc BO ERROR

266

:MSG Bl ERROR

'MSG Al

ERROR

CYLADD
¥s121

;:G0 TQ

NEXT TEST

274
001364

MSG ID FOR EXPECTED MSG Bl

og E
Aevr B2'0

o442se2

020340

TEST FOR ATTN

8<0'D.SPIN'D. onov-o vv
2
.DRA)gonu
,

003412

003416
003420
12737

DO DRIVE CLERR CMD & GET CONTR RODY
NO RDY RFTER DRIVE CLERR CMD

PC,TSTATN

664
66S8:

,DRIVEO

140

-3 ngGS #EciFIED HERE

:&YL ADDR IN B2 NOT CLEARED AFT SEEK CMD.

!ll!lll!l*ll!l!llll!liilIlll*lllllllllllllll!l‘l!*llli‘ll}llilil*

'iresr 21
0203S2
020354
020362

000004
012737
012706

020366
020372
020374

004737
104024
012737

000001
001100

001174

o4s4eY

020472

001176

TEST SECTOR COUNT REG.

IN MSG

1222222222222 22:2222222X222222XT222 2222222232

tatal:

SCOPE
MOV
MoV

JSR
ERROR
MOV

81,

STIMES

sStAck, P

SS,SUBCLR
%23, SESCAPE

::00 1

ITERATION

IRESTORE STK PTR

SUBSYS CLERR & GET STARTUS

:CERR AFTER SCLR
:GO TO NEXT TEST IF ANY ERROR DETECTED

CZRGHED UNIBUS RK& DR PRTI

CZREHE.P11

25-JAN-78 12:00

MACY1l 30R(1052)

121

0
g:gé 020402 012737 000025 001400
46

463

g:gg

020410

020414

004737

104142

0O4SSSY

Eagg
Y4
S470
4?1

472

838“58
Y4
020436
020444

oq;w;
13737
062737

013737

001402
000001
001406

001404
001404
001402

5473
§47

5476

s:;g

020452

023737

5482

020462

104145

g:gg

020470

5486

g:gg

020460

001401

001406

JSR

PC,FS022

001404

668

020472

005037

GO1176

2s:

489

:PREVIOUS

MOV

¢TOR,

ERROR
MOV
ADD
JSR
JSR

PC,RDSEC

BEQ

658

CMP

BEQ

ERROR

658

SELTOR, PSEC
144

SECTOR, ESEC
668

SECTOR

-r?n NEXT SECTOR

:DIFFERENT SECTOR NOT FOUND BY TIMEOUT
;SETUP EXPECTED SECTOR
: UPDATE PREV sgcron
:READ

SECTOR

:BR IF READ SAME TWICE
;TRY 1 MORE TIME

SECTOR REG UNSTRBLE

MAY BE DURING SECTOR PULSE TIME

145

:MSG B3 ERROR BETWEEN SECTOR COUNTS

64S

:BR IF SECTOR COUNT NOT DONE

SECNT

CLR

SESCRPE

BNE

’

:MSG B3 ERROR,

DEC

HH 363696 3696 36 38 36 36 36 36 36 36 3 36 36 36 36 3 3 3 3 36 3 3 3 36 36 36 3 3 3 3% 3 36 46 3 3 3 3 3 3% U 3 3 3 36 3 3% 3 3 3 3 2 3 3 3% % % I % ¢ R

5492

‘%

5496

‘x

5493
E:g;

°
;:

2397

Sy9
6500

020476

000004

gggg

020506

012706

S504
gggg

012737

000001

020512
020516

004737
104024

5507

gggsao

Eggg

020530

6511

020534

6513
6614
8515

(020550
020556
(020Sk2

6512

PSEC

RDSEC

SeCTOR, PSEC

;firssr 22

5508

$q2
SEC, ESEC
s8] ESEC

CHP

g:g?

6601

-FIND SECTOR O

PC,FNS22

R PSEC

ERROR

001400

;22 SECTOR FORMAT TEST

Sgn

005337

SEQ 0107

IN M5G B3

:SECTOR O NOT FOUND BY TIMEOUT

CMP

65S:

PAGE 107

148

(020464

0013S4

821.,SECNT

BEQ

480

MOV

:
:

5477

6483

;

5474

48]

64S:

12:08

TEST SECTOR COUNT REG.

ERROR

§4§9 858353 88593; Bgéswfi

D09

25-JAN-78

020500

Se4

(020542

THIS TEST VERIFIES THAT THE ABOVE TEST DID ACTUALLY POSITION ON CYL O

BY DETECTING OUTER LIMIT AS THE ARDJACENT CYL.
AN ERROR IN THIS TEST INDICATES:
AND/OR

R.
B.

HERDS WERE NOT OM CYL O

COULD NOT SEEK IN REVERSE DIRECTION.

. 36363 3 3 3 36 98 36 3 36 36 3 36 3 36 36 3¢ 3 36 36 36 3 36 3 36 36 3 36 36 3 96 3 3 3 36 3 3 3 36 3 3 3 3% 3 3 3 3 3 3 36 3 3 3 W 3 3 3 ¥ 3 ¥ % %
t&t22: SCOPE
MOV

81, STIMES

;:00 1

04S424

JSR
ERROR

PC, SUBCLR
24

;SUBSYS CLEAR 8 GET STATUS
:CERR AFTER SCLR

00S037

001410

CLR

LPFLG

005237

003304

INC

UNLD

005237

001100

001174

DETECT OUTER LIMIT

001462

MOV

INC

012765

000020

000026

MOV

012737
004737
104122

000017
043434

003322

MOV
JSR
.ERROR

013765

012074

000020

MOV

#StAcK, SP

ITERATION

:RESTORE STK PTR

BYPCERR

;BYPRSS CHECKING FOR ANY CERR IN GSTAT1

SPAT,RKMR1(RS)

;PARITY & WORD O

#SEEK, HCS1
PC,DotMD
122

:D0 SEEK CMD & GET CONTR READY
:NO ROY FROM SEEK WITH BAD PRRITY

FCP1.RKDC(RS)

SUSED FOR VALID HALT

CZREHED unxeus RK6 DR PRT]

CZREHE
.P

5516

6517
€518
5519

25-JAN 78 12:00

020564

020570
0205672

004737

104125
012737

MACY11l 30A(10S2)

T22

044012

000001

€523

(020622

004737

044252

6526
€557

0c.b32
0634

18q111
104146

gggg

020636

6630

(020640

6631
ssag
€533
€534
€535
€536

Oc 546
0c.~S4
0O S
0 b
Q0i.o70
6674

€537

020676

SS40

(020700

gggg

€641
SS42
5543
E544

ES4s

020700

012765

100000

012737

005037
012737
862737

(020732

012737

5037

010340

003414
001720
000001
003422

000002

020740

012737

000003

CS48

029746

004737

044252

6E52

020760

104274

5555
St

020764

013765

(020752

000003

6560
(020754 104273
551 020756 104265
5333
§557
€558
€559
SS60

661
S§Se2
ggga

020762
020772
021000
(021004
021006

0127656

012072

000017
043434
100000

004737
004737
104160

045074
046260

€565
ESeb

021026
021034

032737
001003

040000

gggg

021040

000137

021556

021044

012737

021474

S570

6571

021036

021052

104305

012737

;MSG BO ERROR
iMSG Al ERROR

ERROR
MOV

070140

011
147

8CCLR, RKCS1(RS)

SUNIT RKCS2(RS)
8CLEAR, HCS
PC, DOCHD
151
PC, TSTATN
658
1S4

:8 MSGS SPECIFYED’HERE
'MSG RO ERROR RFTER SEEK WITH BAD PARITY
:MSG Bl ERROR
;DRIVES
;D0 DRIVE CLERR CMD & GET CONTR RODY
'NO ROY AFTER DRIVE CLEAR CMD
:TEST FOR ATTN
sATTN NOT CLEARED AFTER DRIVE CLEAR CMD

#<0'D.SPIN'D.DRDY!D.VV'D.DRA> ,E.RO

;EXPECTED MSG RO

003416
003420

CLR
MOV
MOV

E.B0
-EXPECTED MSG'B0
#<D.SPOK!D.CART!D.DOOR!D.BRHM! D. SSP> ,E.R1
81 E.BI
s MSG 19 FOR EXPECTED 'MSG Bl

003424

MOV

82,E.B2

83 E.B3

:MSG ID FOR EXPECTED MSG B2

JSR

PC, CHKNSG

: CHECK nscs RO,B0,A1,B1

CLR

003430

. WORD

ERROR
ERROR

104266
012737
004737
104131

81,E.BI

111
146

000020

003322

003412

1S:

:MSG ID FOR EXPECTED MSG B3

MSGS SPECIFIED HERE

266

:MSG Bl ERROR

MOV

FC,RKDC (RS)

274

:MSG Al ERROR

#SEEK, HCS1
PC, DotMD
13

;D0 SEEK CMD 8 GET CONTR READY
'NO ROY AFTER SEEK CMD

JSR
JSR
ERROR

PC, GStAT
pC’ ern
160

sFIND LIMIT DETECT
'LIMIT DETECT NGT FOUND BEFORE TIMEOUT

BIT
BNE

#D.UNLD, HMR2
1

ERROR
001176

ERROR

MOV

003350

he-T.82'0

;EXPECTED MSG

ass

MOV
JSR
ERROR

000000

£.A2

;EXPECTED Al

;MSG
RO ERROR AFTER DRIVE CLEAR CMD
;nsc B0 ERROR

ERROR

021014
021020
021024

5567

003412

8<D.SPOK!D. cnn?'o80DOOR!D.BRHM!D. SSP> ,E. Al

ERROR
ERROR

MOV
MOV
JSR
ERROR
JSR
BR
BSS:

126
ING ATTN FROM SEEK WITH BAD PARITY
#<D.DSC'D. SPIN o DRDY!D.VV!D.DRA> ,E.AQ ;EXPECTED ARG

: CHECK MSGS RO,B0,Al1,B!

MOV

000010
003322

044012

gg:g

€549

000000

; TEST FOR ATTN

PC, CHKNSG

ERROR
001222
000005
043434

SEQ 0108

JSR

. WORD
ERROR

109154

020706
0Oc071e
020720
020726

MOV

104147
013765
012737
4737
104151
004737
000401

8D.FLTID.PAR

MOV

012737

000000
104110

MOV

003420

020614

02036
.33

PC, TSTATN

ERROR
MOV

EESé

PAGE 108

JSR

003412

012737
001200 003414
012737
001720 003416

EOS

12:08

DETECT OUTER LIMIT

0S0340

€620 0206
0206
€524
€529

25-JAN-78

#CCLR,RKCS1(RS)

30S

:DRIVE NOT UNLORDING AFTER LIMIT DETECT

JMP

308

'BYPASS REST OF TES

MOV

#20$, SESCAPE

MUST ESCAPE TO CYCLE UP DRIVE 8 TEST SWR

MOV

$<D.05C1D.PIP!D.SPINID. WW?D. DRA>,E.AR0

;EXPECTED RO

CZRGHEQ UNIBUS RKE& DR PRTI
CZRGHE . P11
25-JAN-78 12:00

572
€573
€574

§57S
5579

021060
021066
021074

012737
012737
012737

002200
045720
030001

021102

004737

044252

£578
6579
€580

021112
Q2lli2
GC2il1I4

10416}
104162
104163

§577

021106

000000

€581
€582
€583
€584
gggg

021116
(021120
021126
021130
621139

000240
032737
001003
104401
104164

6587

021136

004737

688
gggg
6591

001462

(021150

004737

0Ou4S424

5600

B2l2le

5601

104024
013737
004737
10416
004737
104167
013737

021203

004737

021214

00S037

104067

003414
003416
003420

MOV
MOV
MOV

;

003400

001414
046336

3s:

001416

044044
001176

gggg

021220

0050637

0063304

604
5605

021224
021232

012737
005037

0S0340
003414

6607
5608
5609
gg{?

02l244
021252
021256
021264

012737
5037
012737
012737

000001
003422
000002
000003

6612

021272

004737

044252

S616
6617

021304
021306

003362
2s:

021276
021300
021302

000003
104063
104064

021310

012765

5622
6623

021326
021330

001401
104050

626

021332
021340

0l1-°65
01s765

E618
5619
8620

021316

004737

045074

621 021322 005737 001364
gggg

021332

#D.LIMD,H.BI
3s
EMY2
|64

JSR

PC, TSTATN

ERROR
MOV
JSR
ERROR
JSR
ERROR
MOV

165
BYPCERR

PC, SUBCLR

sNO ATTN AFTER OUTER LIMIT DETECT
‘ALLOW CHECKING CERR IN GSTATI
: SUBSYS CLR

24
710, TEMP2
PC, FHOHM
166
PC,FLORD
167
7100, TEMP2

:CERR AFTER SCL
,ser uP TINEOU
IFIND HERD riOME
'HERD HOME
~OT FOUND BEFORE TIMEOU
;FIND LORD HEADS
1LORD chos NOT FOUND BEFORE TIMEOUT
SSETUP T

*ATTN NOT FOUND BEFORE TIMEOUT

JSR

PC,FATT]

CLR

SESCAPE

ERROR

*NEED FOR THE CALLIN SEQ
'SEE IF LIMIT DETECT BIT SET IN Bl
:BRANCH IF SO
:OTHERWISE REPORT ERROR

'FIND RTTN

003412

MOV
CLR

#¢D.DSC'D.SPIN'D.DRDY!D.VV!D.DRA> ,E.AR0
E.BO
PECTED MSG BO

003420

MOV
CLR
MOV
MOV

8l E.BI
E.RE
s2,E.B2
83 E.B3

MSG 19FORExpgcrso MSG Bl
:EXPECTED
i MSG 18
FOR EXP CTED MSG B2
‘MSG I
CTED MSG B3

JSR

PC, CHKMSG

; CHECK MSGS RQ,B80,A1,B!

MOV

003424
003430

000026

6Y4S:
100000
001222

NOP
BIT
BNE
TYPE
ERROR

;MAY BE RO ERROR
;MAY BE BO ERROR
‘MAY BE Bl ERROR

UNLD

104065
104066

000002

161
162
163

0'070

CLR

5606 021236 012737 001720 003416

5613
S614
6615

#¢D.SKI!D.FLT> E.BO
#<D.UNLO'D.REV!D.SPOK!D.CART!D.DOCR! D.BRHM!D.SSP> ,E. Al
#<D.LIMCID.NMOV!1> E.BI

ERROR
ERROR
ERROR

JSR

046412

SEQ 0109

161,162,163, 164, (RFTER OUTER LIMIT DETECT>,0,0,0
PC, LHKMSG
; CHECK MESSRGE AOD,BO,RAI,B1°

ERROR
CLR

003362

PAGE 109

CHECK
JSR

_WORD

044012

104165
005037

021154
021156
(021164
851170
1172
021176
021200

FO9

MACYL1l 30A(10S52)
2S5-JAN-78
12:08
T22
DETECT OUTER LIMIT

061235

(021142
021144

€532
§693
6594
5595
5596
5897
6598

§599

020000

’

000000
000010

;CLEAR FLAG

#<D.SPOK!D.CART! b DOOR!D.BRHM!D.SSP> ,E.Al

. WORD
ERROR
ERROR

Aa-T.82'0
su

CWD2
MOV

175,176, <AT END OF HEAD LORDING>
82, RKMR]
(RS)
s SELECT MESSAGE

ERROR
ERROR

;EXPECTED MSG RO

65
66

-8 MSGS SPECIFIED HERE
;MSG AQ ERROR AT END OF HEAD LOADING
:MSG BO ERROR
:MSG Al ERROR
:MSG Bl ERROR

JSR

15T

PC srnr

'GET STATUS AND MR2,MR3

BEQ
ERROR

13
S0

'BRANCH IF SO
:REPORT ERROR

MOV
MOV

#CCLR,RKCS
1 (RS)
SUNIT.RKCS2(RS)

cvr‘.noo

:EXPECTED Al

IRECAL SUCCFUL

;DRIVES#

CZR6HED UNIBUS RK& DR PRT]

CZREHE . P11
5628

5629

5633
634

25-JAN-78 12:00

021346

021354
1

} 6
021370
021372

012737

004737
q; ;

34 .

000005

043434

MACY1l

30R(10Se)

T22

003322

2232 021372 012737 010340 003412
gsgg
821483
803937
3414
6
14
12737
1720 003416
sggg

02{318

06273;

000381

003420

gg:g

021432

012737

000003

003430

1440
4737
E64S 831494
880033
Se46 021446 1049273

0442Se

647
Se48
2223

021450
021452
021454

104265
104274
104266

€651

021456

004737

047430

005037

001176

668

641 851454 813937 883005 003424

652
5653
5654

5655
5656

657

021462

021464

000435

S658
gggg

021470
021474

000177

5661
g%gg

021474
021500

004737
104024

045424

SeEN

021502

012737

000011

gggg

021514

104121

20$:

5665 051515 004737 (043434

003322

S668

003362

021516

013737

001420

€669

021524

004737

6672

021532

005037

003304

6674

021842

032777

001000

gg;?

5673

5675

5676

5677
5678
5679
5680
5681
5682
5682

021530
021536

021550

021552

021556

104067

005237

001345

000137

044044

001410

021214

Bgn

525757“7"

TEST FOR ATT

ERROR

154

;ATTN NOT CLEARED AFTER DRIVE CLEAR CMD

MOV
CLR
MOV

E.BO

NO RDY nrr;n DRIVE CLERR CMD

8<0'D.SPIN'D. onov D.VV!D. onn>,s RO
;EXPECTED MSG RO
XPECTED MSG BO
#¢D.SPOK'D.CRRT! b ooon 0. BRHH'D SSP> ,E.A
:EXPECTED Al

ngE Bl

EXPEI FOR § zgcrso nsc 81

MOV

#3,E.B3

nsc ID FOR EXPECTED MSG B3

JSR

. WORD
ERROR

PC,CHKM

; CHECK MSGS

ERROR
ERROR
ERROR

265
274
266

‘MSG BC ERROR
:MSG Al ERROR
'MSG Bl ERROR

JSR

PC,SWTST

;SEE

CLR

82, E 82

T.Agsr.aazo
273
1523

JSLPADR

JSR
ERROR

PC, SUBCLR
24

MOV

PC, DOCMD

MOV

JSR

ERROR
CLR

8SRTSPL , HCS1

12}

1500, TEMP2

PC,FATT]

LPFLG

BNE

108

JIMP

2 "29 BgP ét?f:o HERE
:MSG R0 Ennon RFTER DRIVE CLERR CMD
IF SW

14 OR B8

IS SET

GO TO NEXT TEST
hcrunn HERE IF SW 14 IS SET OR
‘Sl 8 WITH SWR «7:0> APFLY

;CERR AFTER SCLR

:DO START SPINDLE CMD 8 GET CONTR RDY
:RDY NOT FOUND AFTER ST SPIN CMD.
: SETUP

TIHEOUT

'FIND ATT

INO ATTN nrrsn ST SPIN CMD.

UNLD

INC

BIT

M ?o Pon XPECTED MSG B2

SESCAPE

JMP

ERROR

308:

EEX

JSR

157370

SEG 0110

;00 DRIVE CLEAR CMD & GET CONTR RDY

MOV

108:

110

PC, DOCHD

157412

8CLEAR, HCS1

PARGE

JSR

SRROR

104154

SHHY

osgéc{ OUTER L?H??
MOV

ou4012

GOS

#SWI, ISWR

:LOOP ON ERROR?

'RETURN TO MAINLINE

I EREEEERFAEREREEE

RECONDITION DRIVE

RIS AR ER R R RER R R R R AR SRR AR ERRRRFRREEA RN

CZREHEQ UNIBUS RKb6 DR PRTI]

CZRGHE .P11

25-JAN-78

12:00

MACY11l

HO9

30AR(10S2)
25~ JAN-78
12:08
PAGE 111
T23
BRSIC WRITE/RERD HERDER & HERD SWITCHING TEST
;#TEST 23

S684

£o5s

H 3

THI? TEST SHECK° HERD su&vguing gv unirxng EN%QUE HEADERS

ON EACH TRACK OF CYL 0,
READING
BRCK & VERIFYING THEY REMAINED
UNIQUE. 22 SECTOR FORMAT IS USED

1.E.

02%558

0?0?0;

0000

5698
5999

021572
02}276

005737
00&?93

001460

5702
5703
S704
2;82

021606
021606
021612

005237
005037

003306
001430

CLR

5707
E;Bg

021616
021620

104415
012706

001100

MOV

5710
g;{é

021624
021620

004737
104024

045424

5713
S7i4
5715
SZI?571
g;ig

021632
021640
02le4e
0cle5Y
021660
021666

0S2765
012765

012765
000337
013765
000337

000020
001470

177676
1430
001430
001430

5720
5721
g;gg

021672
021676
021700

013700
(006300
016037

001430

89710

5725 0%1714 8 4737
021706

2737

5726
5727
5728
5729
§730
5731
5732
5733
5734
$735
$736
$737
5738
$739

021720
021722
021726
021734
021738
02174
021744
021750

104200
004737
032737
00140S
104201
104401
000137

021750
021756
021762
021770
021776

012737
005037
012737
012737
005037

001174

TRACK

TRACK 2:

OIO1

FOR ALL SECTOR HERDERS

ALL 1°S FOR ALL SECTOR HERDERS

1 STIMES
fores: RGOT
néfacx,gp
MOV
TST
LIMERR
s

BEQ
§RROR
MP

INC

SCOP1

JSR

ERROR
000010
000004
oooo0e

18:

BIS

MOV
MOV

SWRB

MOV

000006

SWAB

MOV

001444

001470

000027

043472

00332e

045074
100000

003322

ASL
MOV
MOV

003412
Q03416
003420

F NO
;gn
'FATAL
ERROR
'RBORT
BAL OF TESTS

#STACK, SP

:RESTORE STK PTR

PC, SUBCLR

:HERD CTR

;CERR AFTER SCLR

oan; RKCS2(RS)

;SET BUSS ADOR INCR INHIBIT

#sHDTAB,RKBA(RS) :HEADER WORD TRBLE
8-66.
, RKWC(RS) ;WORD COUNT.

HEAD

HERD,RKDA(RS)
HERD

;SETUP HEAD ADDR

HERD, RO

RG
:DOUBLE RO
DATAO(RO) ,HDTAB :SETUP HEADER WORD FOR RKBA
8 <WRHEAD>
, HCS1

64S

#CERR, HCS1

201

M5G18

IMP

$e0P

MOV
CLR
MOV

E.80

CLR

E.R2

MCV

:CHK FOR LIMIT ERROR

;USED FOR VALID HALT

BEQ

TYPE

0 1 ITERATION

Ehgsréné ETK ;?R

BADHDR

HEAD

PC,CATCMD
20
PC,.GSTAT

BIT

649

c$
&70
EOP

JSR
ERROR
JSR

ERROR

056235
042662
010340
003414
001720
000001
0034e2

TRACK O: ALL 0'S FOR ALL SECTOR HEADERS

.. 363 3 36 3 3 3 3 3 3 36 3 3636 3 36 36 36 96 36 3 3 3¢ 3 3 3¢ 36 3 3 3 3 3 36 2 96 3 2 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 % A I % % %N

278? 851688 680139 o4e662

5724

TEST

‘x
¥

5688
$689
5690
5691
Se9
569
S694
5635

seds BsizEd 815730

BARSIC WRITE/READ HERDER & HERD SWITCHING

SeQ 4111

;D0 DATAR XFER CMD & GET CONTR RDY
:NO RDY AFTER WRITE HERDER CMD
:GET FRESH STATUS

sCERR_AFTER WRITE HERDER_CMD

*ABORTING BALANCE OF TESTS

:ABORT DRIVE

#<0!'D.SPIN'D.DRDY!D.VV!D.DRA> ,E.RO
:EXPECTED MSG RO
: EXPECTED MSG’ BO
#<D.SPOK!'D.CART! 5. DOOR!D.BRHM! D. SSP> ,E. Al
:EXPECTED Al

%l E.BI

:MSG ID FOR EXPECTED MSG Bl

"EXPECTED MSG R2

CZRBHED UNIBUS Rk& DR PRT]

CZREHE.PI1
5740

§;3§

5743

744
6745
€746
§7y
g;:g
5750

6761
§762

€783
§764
§765
§766
S757
§768

g;gg

25-JAN-78 12:00

022002

012737

000002

022010

012737

000003

2016

004737

044252

0Bc2022
(0220eN
022026
2030
022032
022034
0c2042

0c2046
(022052
(022054
022056
0c2062
023064
022066

000003
104277
104267
104300
104270
012765
004737

005737
001401
104303
00573~
00140!
104304

000002
045074

MACY11 39251052)

003424

000026

001362

658 :
66S:

JSR

PC, CHKMSG

s CHECK MSGS R0,B0,A1,Bl

"WORD
ERROR
ERROR
ERROR
ERROR

T.A2'T.B2'0
277
267
300
270

MOV
JSR

.2, RKHRI(RS)
PC.GSTAT

INC
CMP
BNE

HEAD
HEAD, 83
1$

HERD

:HEAD CTR

#STACK, SP

;RESTORE STK PTR

757
BEQ
ERROR
TST
BEQ
ERROR

001430
001430

6765

022102

005037

001430

CLR

g;gg

022110

012706

001100

6769

1044915

g;;?

0c2120

022114

004737

O4S424

§772
§773
§774

022122

000337

001430

g;;g

022134

000337

001430

022140

012700

001674

§775

§778

§779
780
6781

022126

022144
022152
022156

104024

013765

012737
004737
04171

001430

003322
003322

022150
oaaxsg

032737
001405

100000

S78S
g;g

022172
022176

104401
000137

0S623S
0426E2

§788

022202

016520

000024

§792
€793
§794
€795

022216
Q22224
02222b

032765
001407
004737

100000

6789
g;g?

022170

022206
De2212

104174

016520
016520

000025
043472

§782
5783

5784

SCOP1

000006

000010
.

cvtoxr
658
303
CYLADD
668
304

PC, SUBCLR

ERROR

SWAB

HEAD

SWARB

HERD

MOV

SRHTAB, RO

MOV

HERD,RKDA(RS)

-3 MSGS SPECIFIED MERE
;MSG
R0
tRRon
RFTER WRITE HERDER CMD
:MSG BO ERROF

:MSG A1 ERROR
:MSG Bl ERROR

:SELECT WORD 2

:SEE_IF nsc A2=0
'BR IF
Y
'MSG A2 NOT CLEARED AFTER WRITE HEADER CMD
iSEE IF MSG B2=0
.:BR IF YES
'MSG B2 NOT CLEARED AFTER WRITE HEADER CMD

;CERR RFTER SCLR

;SETUP HEAD ADDR

MOV
JSR
ERROR

.<Roneho> HCS1
PC,DRTCMD'
17}

;D0 DRTA XFER CMD 8 GET CONTR RDY
:NO RDY AFTER RERD HERDER CMD

ERROR

174

:CERR AFTER READ HEADER CMD

BIT
BEQ

678:

0000+
000024

045074

2s:

:MSG ID FOR EXPECTED MSG B2

'MSG ID FOR EXPECTED MSG B3

005237
023727
061254

022106

#2,E.B2

%3 E.B3

022066
022072
022100

5766

PAGE 112

MOV

S76]
g7
5;24

000003

109

12:08_

BASIC WRITE/READ HERDER 8 HERD SWITCHING TEST
MOV

003430

01364

25-JAN-78

$CERR, HCS1
678

TYPE
IMP

MSG18
$e0P

*RABORT BALANCE OF TESTS
:ABORT DRIVE

MOV

RKDB(RS), (RO)+

;1°ST WORD FROM SILO TO RHTAB

BIT
BEQ
JSR

#DLT,RKCS2(RS)
688
PC,GSTAT

MOV
MOV

RKDB(RS)
| (RQ)+
PKOB(RS)
| (RO)+

:2'ND WORD
;3'RD WORD

SEQ 3112

CZRSHEO UNIBUS RK& DR PRT]
25-JAN-78 12:00
CZReHE . P11
022232
022234
022240
022244

MACY11

010340
003414
001720
000001
003422
000002
000003

689%:

001402
000137

OvoNTNLWNU—-O

it
[seloeleeloalooleelaedoslsalneleo]
N.—y—;—.—p.;...—..—.—p..

#¢0'D.SPIN!D.DRDY!D.VV!D.DRA>,E.RD

E.BG

.EXPECTED MSG'BO

MOV
CLR
MOV
MOV

81 E.BI
E.A2°
oa,s.ae
#3,E.B3

MSG ID FOR EXPECTED’MSG Bl
SEXPECTED MSG Re
MSG ID FOR EXPECTED MSG B2
:MSG 1D FOR EXPECTED MSG B3

ISR

PC, CHKMSG

; CHECK MSGS RQ,B0,A1,Bl

ERROR
ERROR
ERROR
ERROR

271
302
272

:MSG RO ERROR RFTER READ HEADER CMD
'MSG BO ERROR
:MSG Al ERROR
:MSG B1 ERROF.

MOV
JSR

oa RKMR1{RS)
GSTRT

sSELECT WORD 2

638
172
CYLADD
708
264

:BR IF YES
*MSG A2 NOT CLEARED AFTER READ HEADER CMD
'SEE IF MSG B2=0
'BR IF YES
'MSG B2 NOT CLEARED AFTER READ HEADER CMD

#<D.SPOK!D. cnar-b DOOR!D.BRHM!D.SSP> ,E.Al

AeT.82'0

HEAD

001674

MOV

#RHTRB,
Rl

goi442
001430

MOV

CLR

WDCNT

; HERDER WORD COUNT

ASL

: DOUBLE RO

MOV

ngo TEHPI

(R1)+,HOWO

:READ HERDER WORD

202

;READ HEADER MISMATCH

003360

001442
001442

000003

001430
001430

000003

Qeelee

MOV
SWAB

000006

003360

BEQ
ERROR
TST
BEQ
ERROR

3s:

yYs:

MOV

ggg

ERROR

INC
CMP

HEAD,RKDR(RS)
HERD

HERD, RO

:SEE_IF MSG A2=0

;RESTORE RKDR

DATAO(RO), TEMP1 :GET THE ’'SHOULD BE’' DATA

WOCNT
WOCNT, 83

BNE

INC

HERD

BEQ
WP

TST2%
25

CMP

s EXPECTED Al

-8MSGS #E }FIED HERE

SWAB

698 :
-0

:EXPECTED MSG RO

CLR

. WORD

000026

'RBORTING BALANCE OF TESTS

CY[DIF

001444
001454
001454

005237
023727

!RBORT DRIVE

MSG18

75T

001430
001430
001430

022456
02e4ee
022470
022472

$eoP

MOV

001364

Oce4s4

JMP

003416
003420

104272
000002
Q4S0o74
001362

:DLT AFTER READ HEADER CMD

MOV

o44252

012765
004737
00S737

173

oo341e

003424
003430

SEQ 0113

ERROR

TYPE

056235
o4eee2

852244

JO9

30A(1052)
25-JAN-78
12:08
PAGE
113
T23
BARSIC WRITE/READ HERADER & Hsno SWITCHING TEST

HERD, #3

:DO ONLY 1 SECTOR
;ALL 3 HERDS DONE?

GO TONXT TST IF YES
ths REPEQT

ilii*!!ll!I»l»llil»llllll!lli!llfll!lillllllll!lllll!!ll!!llllllll}l

irssr 24

BASIC WRITE/READ HEARDER TEST; ALL 1°S, 20 SECTORS

CcRBHEO UNIBUS RK6 DR PRTI
CZRBHE
. P11
25-JAN-78 12:00

MACY1l

KO9

30R(1052)
25-JAN-78
12:08
PAGE 114
TeN
BASIC WRITE/READ HERDER TEST;
i
;¥

'S
A

SEQ 0114

20 SECTORS

WRITE 8 READ 20 SECTOR _HEADERS BY WRITING ALL

RDERS.

RATTEMPT TO FIND SECTORS 20 & 21.

VERIFY

1R
s ®
X

THEY RRE NO LONGER THERE BY READING 22 SECTORS AND NOT
FINDING 0°S RS DRTA FROM THE PREVIOUS TEST.

tatoy,

SCOPE
MOV
MOV

< 333363636 3 3 36 36 3 36 36 36 36 36 36 36 36 36 36 36 3¢ 36 3 36 3 3¢ 3 36 3% 3 36 38 36 3% 3¢ 36 38 36 3% 36 30 2 36 36 3 5 3 3 3 3 2 3 3 36 3 3 o 3% 3¢ 3 %

022500
022506

000004
012737
012706

o4s4eu

Oeces34

004737
104024
052765
012765
012765

00002C
001450
177704

000010
000004
000002

022542

012737

010027
043472

003322

022476

USING HERD 0,

ALL 1’'S,

000001
001100

o4s074
100000

001174

JSR
ERROR
BIS
MOV
MoV

%1, STIMES

#StARCK, SP
PC, SUBCLR

20
PC,GSTAT

gCtRR HCS1

bY4S:
003322

001000

0033S0

nscxe
$eoP

:CERR AFTER SCLR

;DO DATA XFER CMD & GET CONTR RDY

:NO RDY AFTER WRITE HERDER CMD
!GET FRESH STATUS
sCERR_AFTER WRITE HEADER CMD

:ABORTING BALANCE OF TESTS
ABORT DRIVE

#(CFMT!SELDRV>,Hcgé
:GET 20 SECTOR STARTUS
COMMRND
PC DocMD
NO ROY AFTER SELDRV CMD
11
#0.FORM, HMR2
18

312
022632

STK PTR

#<CFMT{WRHERD)> ,HCS1]

201

010001
o43434

ITERATION

#BAI RKCS2(RS) :SET BUSS RDDR INCR INHIBIT
8DATA1,RKBA(RS) :XFER1°S ONLY
#-60. ,RKWC(RS) ;WORD COUNT

PC,DATCMD

003322

056235
o4ees2

::00 1

:RESTORE

;FORMAT NOT SET AFTER WRITE HDR CMD

19:

010340

#<0!D.SPIN!D. DRDYéD Vg;g DRA> ,E.RD

003412

E.BO

sl E.BI
E.A2°

sMSG_ID FOR EXPECTED'MSG B1
EXPECTED MSG R2

83 E.B3

G 1D FOR EXPECTED MSG B3

82 E.B2

003424
003430

PC, CHKMSG

o44es2

0e2716

005037

001400

022724

104415
012706

001100

c3:

CHECK MSGS RO,BO,Al1,Bl1

& MSGS SPECIFYED’ HERE

300

:MSG A1 ERROR

SECNT

:SECTOR COUNT

#STACK, SP

:RESTORE STK PTR

270

104270

:EXPECTED Rl

sc ID FOR EXPECTED MSG B2

ofdio

277
267
M
Oece7

;EXPECTED MSG RO

#<D.SPOK!D.CART'D. DOOR!D.BRHM! D. SSP> ,E.Al

003416
003420
003003

XPECTED MSG'BO

*MSG R0 ERROR AFTER WRITE HEADER CMD
;nsc B0 ERROR

'MSG B1 ERROR

CZRBHEO UNIBUS RK& DR PRTI
2S-JAN-78 12:00
CZRBHE.P11

MRCY11l

gggg
022730
5910 OES?gH

004737
104024

045424

5313

§12700

001674
81 02s

003322

100000

003322

5911
ggle

g2erae

23ld 83578
[4

919

7‘4

756

918
€919
S920
8921
5922

764
02°°66
0OF 70
C 2774

5a
S5.s
926
5927
5928
5329
£330
5931
$932
5933
5934
5935
5339

23004
023010

59e2”

823000

023014
023022
30
30
02303¢
3036
023042

023042

g3 B836E

234 B230EE
S9q42
5943
Sq4Y
S94S
594
594
5948

43472

000024
000024
000024

100000

65%:

000010

045074
056235
o4esee

669%:

53958
5359
S960
5961
5362
5363

MOV
JSR
RROR
aéé

o<crn 'RDHERD) HCS1
P DATCMD
;D0 DATA XFER CMD 8 GET CONTR RDY
é
:NO RDY AFTER READ HEADER CMD
cc RR, HCS!

ERROR

174

;CERR_AFTER READ HEADER CMD

JIMP

$eoP

:RBORT DRIVE

MOV

RKDB(RS), (RO)+

é
ST uono FROM SILO TO RHTAB

MOV

RKDB(RS)
| (RO)+

:3' RD WORD

BIT
BEQ
JSR

#DLT,RKCS2(RS)
668
PC,GSTAT

MOV

ERROR
TYPE
IMP

MSG18

RKDB(RS) | (RO) +

173
MSG18
$e0P

:ABORT BALANCE OF TESTS
WORD

;DLT AFTER READ HEADER CMD
:ABORTING BALANCE OF TESTS
:ABORT DRIVE

MOV
JSR

#<CFMT!SELDRV> ,HCS1
PC, DOCMD
D0 CMD.

001000

0033S0

gfiT

ug.ronn,unae

117

!NO RDY ARFTER SELDRV CMD

ERROR

313

sFORMAT NOT SET AFTER READ HDR CMD

MOV
CLR

#<0'0.SPIN!'D.DRDY!D, VV! 2.DRA>,5.AD
£.80
. EX PECT b Msc’B80

MOV

81 E.BI

ERROR

69:

oo34l2

023110

003416
003420

30
310

003424
003430

MOV

#3,E.B3

nsc ID FOR

PC, CHKMSG

; CHECK MSGS RO,BO0,A1,Bl

ERROR

023152

000002
Q45074
001362

000026

#2,E.B2

ha-T.82!'0

271

MSG ID FOR

sMSG AQ

'MSG BO

EXPECTED MSG B2

EXPECTED MSG B3

-8 MSGS
ERROR

302
272

:MSG Al ERROR
:MSG Bl ERROR

MOV
JSR

na RKMR1 (RS)
GSTAT

s SELECT WORD 2

678

'BR IF YES

15T

CYtoxr

SPECIFIED

HERE

ERROR AFTER READ HEADER CMD

ERROR
ERROR

BEQ

:EXPECTED Al

FOR EXPECTED’MSG Bl

EXPEC ED MSG A2

ERROR

023150

MSG 1D

E.A2

. WORD

;EXPECTED MSG RO

#¢D.SPOK'D. cnnr-b DOOR!D.BRHM!D.SSP> ,E.Al

CLR

MOV

JSR

023136

023154
023162
023166
023172

MOV

:CERR AFTER SCLR

003322

023070

SEQ 0118

20 SECTORS

PC, SUBCLR
24

010001
043434

8388 Qe3iud
5956 853146
$357

ALL 1’S,

JSR
ERROR

TYPE

056235
042662

2350 gE3iel
23] 823155
535
§353

LOS

30AR(10S2)
25-JAN-78
12:08
PAGE 115
T24
BRSIC WRITE/RERD HERDER TEST;

:SEE_IF MSG R2=0

CZR6HEOD UNIBUS RK& DR PRT!

CZRBHE.P11
5964

5965

25-JAN-78 12:00

023174

104172

023173

ooizai

001364

gggg

023206

012701

001674

5037

001442

§§2
9;

gg 4 °8
104 284
12

013737

00{358

MACY11 30A(10S2)

67%:

cas

’

003360

EZ?&
8535§§ 8&353;
8814?4 003360
§975 0232
061401

59;

oeae:o

1ouao;

§979

(023254

001363

?378 853545 823337 8 1442

5980
5981
5982
5983

000003

Eg i

000004
012737

000001

§§§§ 853575 ?8

Y7 7

o4sY2Y4

gggg

023300

005237

001464

o4
0127
001470 000004
853312
815723
19$s7s 088002

023260

Eggg 023266 012706 001100

)

001174

013737

2883

023350

004737

046534

gggg

023354

012765

000000

6007

023362

012737

6008
6009
6010
581é

023370
(023374
023376
35 40

004737
104200
004737
8827 7

6013

023412

104201

6015

023420

%8{9

6018

6019

ERROR

TST

172

;MSG A2 NOT CLERRED AFTER READ HEADER CMD

cvknoo

gssIF MSG B2=0

ESSOR

324

MOV

SPHTAB,R1

CLR

WDCNT

HBH6 fEflfi?

ggv

BNE

Ens

DRTAL, TEMP1

BEQ
sznoa

NSSNT,OS

aa NST CLEARED RFTER RERD HERDER CMD

;HERDER WORD COUNT

SET 'anou%g BSADDRT“

5$8 Sgg

enIF YES
:RERD HEADER MISMATCH

;JUST 1 SECTOR AND 1 HERD

oaaqéq
023424

023424

023432

140s

60440

00013

012737

00S037

WRITE 8 RERD HERDERS CYLO, HERD O

MOV

81, STIMES

ganon

PC, SUBCLR

MOV

;CERR AFTER SCLR

INC

BYPFMT

;SET BIT 14 & 15

MOV

#H rna RK R(RS)

;HEADER WORD TABLE

%0,HEAD
#0, FCUMAT

1T0 FILL
: HEADER
sCYL#

MOV
MOV

oo TOCYL

TOCYL , CRLADD

JSR

PC.FHDTAB

000020

MOV

80, RKDC (RS)

000027

003322

MOV

045074
100000

003322

010340

003414

6YS:

003412

HSRB COUNT.
; SETUP

:TRBLE

PC,DAT/:MD’
200
PC,GS /AT
scgnn HCS1

;00 DATA XFER CMD 8 GET CONTR RDY
*NO RDY RFTER WRITE HEADER CMD
:GET FRESH STATUS

ERROR

20.

csnn AFTER WRITE HEADER CMD

IMP

$EOP

PABORT DRIVE

TYPE

42662

8 (WRHEF
D> ,HCS1

IN HERDER

JSR
ERROR
JSR
ng
EQ

gssaas

ITERATION

MOV

043472

hesronz STK PIR

MOV

001366

;

sstack, sp

MOV

28§§
853354 81 737 Iflbggfi 001430
6002 023342 012737 000000 001436

6014

116

il!llll!llillll!l!ll!!lfllllllll!il*llll!*‘ll!il&lflllli!ll!l!ilill
t4725: SCOPE

ggqa 023320 012737 000000 001352

601

PAGE

BASIC WRITE/RERD HERDER TEST; ALL 1'S, 20 SECTORS

PATES

023256

6988

12:08

H l!ll!lllll!ll!lilllilllllli!illlll!llllilll§!l!!l!lll!illll*!l}

985

€98
8987

3s:

MOY

25-JAN-78

MOV

CLR

"15G18

ABORTING BALANCE OF TESTS

#<0'0.SPIN!D.DRDY!D.VV!D.DRRA) ,E.RD

F.BO

:EXPECTED MSG'BO

;EXPECTED MSG ARG

SEQ 0116

CZREHED UNIBUS RK6 DR PRT!
CZREHE.P11
25-JAN-78 12:00

6020
6021

6022
gggg

023436
023444

012737
012737

NOS

MACY11 30A(10S2)
as JAN-78
12:08 PAGE 117
T2s
WRITE & READ HERDERS CYL (. HERD O

005037
012737
012737

001720
000001

003416
003420

000002

003424

044252

6023

023452
023456
023464

6026

023472

004737

gggé

023506

104270

6033

023510

00S037

gggg

0235ie

6037

#<D.SPOK!D.CART!D.DOOR!D.BRHM!D.SSP> ,E.A
sl E.81
:MSG ID FOR EXPECTED nsc Bl

CLR
MOV
MOV

E.A2
82, E.B2
$3.E.B3

;EXPECTED MSG fi
'MSG ID FOR EXPECTED MSG B2
'MSG ID FOR EXPECTED MSG B3

JSR

PC, CHKMSG

s CHECK nscs RO, B0, RA1,Bl

ERROR

270

:MSG Bl ERROR

001400

CLR

SECNT

:SECTOR COUNT

012706

001100

MOV

#STACK, SP

:RESTORE STK PTR

023522

004737

045424

JSR

PC, SUBCLR

:CERR AFTER SCLR

gg:?

023530

012765

000000

000020

MOV

#0, RKDC (RS)

;CYL #

gg:g

023536

012700

001674

MOV

SRHTAB, RO

6044

023542

012737

000025

003322

MOV

ORDHERD HCS1

6047
6048

023556
023564

032737
001405

100000

003322

BIT
BEQ

ocsnn HCS1
668

6050
gggé

023570
023574

104401
000137

056235
042662

6053

023600

016520

6057

023614

6060
6061
gggg

023630
023632
023636

6064

6027

023476

000003

6059
053508 194567
6030 023504 104300

6034

gggg

6049

£05S4
EBEE
6058
6059

023514

023526

023566

023604
023610
023622
023624

109415

104024

104174

003422
000003

MOV
MOV

SEQ 0117

_WORD

000024
000024

032765

100000

Aa-T.82!0

ERROR
267
ERROR
300
SCOP1

ERROR

65%:

ERROR

TYPE
JMP

000024

016520
016520
001407
004737

003430

66%:

000010

-8 MSGS SPECIFIED HERE

e
89 ESSS’*AFTER WRITE HEADER CMD
:MSG Al ERROR

:CERR_AFTER READ HEADER

_CMD

MSG18
$E0P

:ABORTING BALANCE OF TESTS
:ABORT DRIVE

RKDB(RS),(R0)+

:1’ST WORD FROM SILO TO RHTAB

#DLT,RKCS2(RS)

;SEE IF DATA LATE

ERROR
TYPE
IMP

173
MSG18
$eop

sDATA LATE ON READ HEADER
:ABORT BALANCE OF TESTS
*ABORT DRIVE

CMP

RO, SRHTAB+132.

;ALL 66 WORDS DONE?

MOV

MOV
MOV
BIT

BEQ
JSR

045074

. 174

:EXPECTED Al

RKDB(RS), (RO)+
RKDB(RS)! (RO)+
678
PC,GSTAT

}2'ND WORD
:3’RD WORD

104173
104401
000137

056235
0492662

023642

020027

002100

Eggg

023650

004737

047056

JSR

PC,SORT

ggg}Ngna?Qnggngnrane SO THAT IT

6069
6070
ES;é

023654
023660
023664

005037
012700
012701

001442
002100
001470

CLR
MOV
MOV

WDCNT
8SRTTAB, RO
sHDTAB, R1

:WORD COUNT
:ACTUARL HEARDER TRBLE
:CALC HERDER TRBLE

6073

023670

012037
olG!5137

MOV

(RO)+, HOWD

gggg

6074
6075

023646

023674
023700

001335

023737

67%:

001454

003360
001454

68%:

003360

BNE

MOV
cMpP

(R1)+' TEMP1
HOWD, YENP1

:BR IF NO

; COMPARE ACTUAL WITH CALCULATED WORD

CZREHED UNIBUS RK& DR PRT]

CZREHE.PI11

25-JAN-78 12:00

6076
gg;g

023706
023710

001401
104202

6079

023712

005237

6081

gggg

6080

023716

001442

023724

023727

001361

001442

023726

005037

001464

MACY1l 30A(10S2)

Tes

000102

69S:

25-JAN-78

B10

12:08

PAGE 118

SEQ 0118

WRITE & RERD HERDERS CYL O, HERD O
BEQ
ERROR

698
202

INC

WDCNT

BNE

688

CMP

:BR IF COMPARE
*RERD HEADER MISMATCH

WDCNT, 866.

CLR BYPFMT

;ALL WORDS DONE?
:BR IF NO

:ALLOW CORRECT FORMATTING

6086

£008
6089

5 363 3636 3 3 26 9 3 36 3 36 36 38 26 3% 3 3 36 3 3 3 3 3 3 3 3 3 3 3 3 % 3 % 3 3 3 3 I 3 2 3 2 3 3 3 3 2 2 2 2 2 3 3 3 3 3 %

ggg?

;57557 26

6092

THIS TEST CHECKS MSG A 8 B WORDS 0,1,2 FOR CORRECT STATUS AFTER RDY

1
tx

THAT THE HEADS ARE ACTUALLY MOVING & THE CYL DIFF IS 1.
AFTER ATTN 1S RECEIVED,
CERR IS EXAMINED FOR ANY ERRORS.

6096

‘¥

gggg

6099

2{8?
bl102
6103

H
023732

00000

023742
C23746

012706
004737

HEADERS ARE READ FROM 1 SECTOR,

:. 363638 36 36 36 36 36 36 3 36 36 36 36 36 36 36 36 36 3 36 3 3 36 36 36 3 3 36 3t 3¢ 36 36 3 3 36 3¢ 3¢ 3 3¢ 3 3 3¢ 3¢ 3 36 3 3 3¢ 36 3 3 3 3 3 3% 3 36 3% 3 3 % %
t8126: SCOPE

104024
005037
012737
012737
012765

001350
000001
000001
002001

001352
001360
000020

ERROR
CLR
MOV
MOV
MOV

6114

024010

012737

000017

003322

MOV

6118
6119
g{s?

024032
024036
024044

005G37?
012737
012737

030140
003414
003720
9100001

003412

bl22

024052

004737

044252

6125
6126
gigg

024062
024064
024066

104204
104205
104806

6115
6116
6117

6123
6124

6129
6130
€13"

024016
024022
024024

024056
024060

024070
024076
024100

012737
004737
104131
012737

000003
1049203

023727
001401
104212

024766
043434

001362

001176

003416
003420

MOV

MOV
JSR

MOV

JSR
ERROR
MOV

#1,STIMES

#StAck, SP
PC, SUBLLR

24
FRCYL
81, TOCYL
#1,CALDIF
#1 . RKOC(RS)

8108, SESCAPE

8$SEEK

;:D00 1

ITERATION

'RESTORE STK PTR
;CERR RFTER SCLR

:SET FOR CYL

HCS1

PC, DOCMD
;D0 SEEK CMD 8 GET CONTR READY
13
:NO RDY AFTER SEEK CMOD
®<D.PIP!D.SPIN!D.VV!D.DRA>
,E.AD ;EXPECTED AQ

CLR
MOV
MOV

£.80
$<D.FWD'D.SPOK!D.CART!D.DOOR!D.BRHM!D.SSP,
,E.Al
81,E.B1

JSR

PC, CHKMSG

ERROR
ERROR
ERROR

204
205
20B

'MSG BO ERROR
:MSG RI ERROR
iMSG B1 ERROR

CYLDIF,
#1
13
212

;CYL DIFF

_WORD
ERROR

000001

HEAD O 8 VERIFIED THAT THEY ARE

DIFFERENT FROM CYL O TO SHOW THAT THE HEADS DID RCTUALLY MOVE.

023752
023754
023760
023766
023774

001100
045424

001174

IN MSG B2 IS VERIFIED TO BE 1.

6107
6108
6109
6110
6111

024002

000001

CYL DIFFERENCE IN MSG A2 IS VERIFIED TO BE O & CYL ADOR

023734

Effg

012737

IS RECEIVED FROM A SEEK CMD TO DETERMINE

6104

6105
6106

6093

6094
6095

SEEK FROM CYL O TO 1 8 READ HERDERS

CMP
BEQ
ERROR

T.A2'T.B2'0
203

; CHECK MSGS A0,B0,A1,Bl

-8 MSGS SPECYFIED HERE
sMSG R0 ERROR DURING SEEK CMD

INCORRECT DURING SEEK CMD.

CZREHED UNIBUS RK& DR PRTI

CZRBHE.PIL1

25-JAN-78 12:00

MACYL1 3?3‘21052)

£135
5134 024102 012737 025006 001176 1S:
gigg

024110

013737

001422

4737

044140

6140
6141

024124
024132

032737
001401

100000

85:%33

86%63;

ggga?g

6137

2133
gi:g

6144
g{:g

uxés ?quga

8531 4

£us:

sxug
054154 865037 883422
6150 024170 012737 000002
E}Eé

024176

6153

024204

61584

(24210

003322

104210

012737

000003

4737

044252

000003

)

003412

003424
003430

02422

2%2%

024230

6159
6160

Q024232
024226

104139

005737
001401

024232

6165

024232

012765

6167

024246

012737

6i6b

024240

013765

001720

003416

000002

003424

104154

E.A2
#2,E.82

EExSEé
ED nsE 55
IMSG ID FOR EXPECTED MSG B2

JSR

PC, CHKMSG

; CHECK MSGS R0,B0,A1,Bl

005037

012737

104274

MOV

#3,E.B3

T.A2'T.B2'0

:EXPECTED MSG RO

:MSG ID FOR EXPECTED MSG B3

-8 MSGS SPECIFIED HERE

115G
A0 ERROR AFTER SEEK CHD
:MSG A1 ERROR

136

:MSG Bl ERROR

137

:CYL DIFF NOT CLERRED AFTER SEEK CMD

CYLDIF
c$

003414

000003

003430

8CCLR,RKCS1
(RS)

SUNIT RKCS2(RS)

8CLEAR, HCST

;DRIVES

IR
g
bocko
JSR
PC,TSTRTN

:TEST FOR ATTN

ERROR

;ATTN NOT CLEARED RFTER DRIVE CLEAR CMD

cos

6183
4340
4737
O44
6184
854344
880033
guuasa

024352

CLR
MOV

MOV

012737

6187

g‘ngSC’D'591"’°'2§2Eé?g§”é8¢°§8’-E'“°

003322

024304
024324

QE;

ERROR

000005

6177

024332

;CERR AFTER SEEK CMD

#CERR, HCS1
Sus

MOV

000010

003412

Eigé

BIT
BEG

000000

0Ii0340

6180

:FIND_ATTN
INO
ETTN AFTER SEEK CMD

100000

001222

012737

024300

182

6SS:

024272

6176

PC,FATT2

ERROR

6175

6174

JSR
ERROR

TST
BEQ

000401

gggg;g

:SETUP TIMEOUT

ERROR

001362

024266

gigg

%128, SESCAPE

ERROR
139
ERROR
135

E169
054380 1o4.5; Ouds
6170 024262 004737 0OM4012

6171

PAGE 119

12500, TEMP1

_WORD

104137

g;ga

12:08

MOV

B126
054519 199139
6157 024216 104135

6158

25-JAN-78

MOV

003360

SEQ 0119

SEEK FROM CYL 0 TO 1 & RERD HERDERS

MOV
CLR

MOV
MOV

664
1S4

O DRV
SEE DRTvE CLEaR crDT oY

#¢0!D.SPIN!D.DRDY!D.VV!D.DRA> ,E.AD

£.80

-EXPECTED MSG'BO

;EXPECTED MSG AO

#<D.SPOK!'D.CART!H.DOOR!D.BRHM!D.SSP> ,E. Al

MOV

83 E.B3

82, E.B2

iMSG ID FOR EXPECTED MSG B2

ugno

PC,

CHKMSG
T?hg!T.BE!O

; CHECK MSGS RQ,B0,A1,Bl

ERROR

274

:MSG R1 ERROR

‘MSG ID FOR EXPECTED MSG B3

-8 nsgs SPECYFIED HERE

:EXPECTED Al

DD%DO SDGRR L2028

ooLoads adalloalvalsadeae
v
oo ol ) oo
rrrny P Do Bt Pt Pt et e P ps Pos Y
W
£WN—O

CZRBEHED UNIBUS RK& DR PRTIL
CZREMHE.P11
2S-JAN-78 12:00

Pt Pt —
P
Pt Bt Pt et P

DD NN
L W

O‘U‘U"G‘U‘U‘m
oo
n

6205

024354

104266

024356
024362

005737
023727

854372 18428

024374
024374
024376

001364
001364

MACY1l

e9s:

001100

o24402
024406

oo4737

o454

0c4410
02441y

005037
012765

001176
000001

000020

1273

001674
000025

003322

Y422
4426

Y434
4440
oe::wa

043472

100000

284422

024454
024460

005737
001001
104211

001674

8 4536
YS4Y
024552

13737
12737
023737
001401
104202

001674
000001
001454

004737
000s16

047430

024560
024562
024564
024564
024570

ERRor

;CYL ADDR INCORRECT RFTER SEEK CMD

SCOP]
MOV

SP
#STACK,

;RESTORE STK PTR

JSR
ERROR

PC, SUBCLR
v

:CERR AFTER SCLR

CLR
MoV

SESCAPE

81,RKDC(RS)

;CYL

#RHTAB, RO

$CERR, HCS1

003322

;00 DARTA XFER CMD 8 GET CONTR RDY

'NO RDY AFTER READ HERDER CMD
;CERR_RFTER READ HERDE? cMOD

;ABORT BALANCE OF TESTS
:ABORT DRIVE

;1’ST WORD FROM SILO TO RHTAB

i2’'ND WORD

;3'RD WORD
#DL T, RKCS2(RS)
688
PC,GSTAT

000010

173

MSG18

056235
o426b2

024526
024532
024534

ERROR

CYLRDO,
81

#<RDHEAD>, HCS1
PngR cHp’

045074
000137

;MSG B!

CYLARDD

000024
100000

SEQ 0120

TST

67%:

6220

120

266

056235
o42e62

024464
024470
02447Y

0e4526

PRGE

1| 8 RERD HERDERS

ERROR

CMP

0000921

104415
012706
104024

D10

30A(10S2)
25-JAN-78
12:08
T26
SEEK FROM CYL O TO

689%:

$eor

RHTAB
3%
211

001454
003360
003360

38:

4s:

;OLT AFTER READ HERDER CMD

;ABORTING BALANCE OF TESTS
:ABCRT DRIVE

;CHECK

1’ST WORD ONLY:CYL#

;CYL O HEQDER ON CYL

RHrna HDWD

TEMP1

Hoao TEMPL
202

;READ CYL WORD HEADER ERROR

PC,SWTST

:SEE IF SW 14 OR 8 IS SET
GO TO NEXT TEST

Tsta?

hsTunN HERE IF SW 14 1S SET OR

'SW 8 WITH SWR ¢7:0> APPLY

CZREHEQ UNIBUS RK& DR _PRT1
25-JAN-78 12:00
CZRbHE . .P1 1
024572
024576

004737
104024

o4sYa4

012737
0Q4737
104131

000017
043434

003322

013737

001426
o44140

003360

100000

003322

o4s4eM

024650

050340
003v1Y4
001720
000001
003422
000002
000303
5= D0 00 bt b e )
oOC300000
E-NLLELLO

~N
W
~N

ga24e42
024646

003

824742

MACY1l

30R(1052)

JSR
ERROR

PC,SUBCLR
24

MOV
JSR
ERROR

PC . DOLMD
134

150000, TEMP1
PC,F ATte
13
#CERR, HCS1
698
2i0

003424
003430

T.A2'T.B2'0
133

iNO RDY AFTER SEEK CMD.

;FIND
R

iNO RTTN QFTER SEEK CMD

;CERR AFTER SEEK CMD.
;CERR RFTER SCLR

;EXPECTED MSG AO

’S:

108:

; CHECK nscs RO, BO, A1

134
135
136

:MSG BO ERROR
:MSG R1 ERROR
'MSG Bl ERROR

:CYL ADDR IN RKMR3 NOT=RKDC

SESCAPE
LPFLG

JSLPERR

JSLPADR
LPFLG

#SW9, ISWR

154140

12%:

.8 MSGS #Ectrxeo HERE
:MSG RO ERRonRFTER SEEK CMOD

PC, CHKMSG

g;Lnoo

184120

;00 SEEK CMD 8 GET CONTR REARDY

#<D.SPOK'D.CART!H_ DOOR!D.BRHM! D.SSP> ,E.Al
81 E.BI
;MSG_ID FOR EXPECTED' MSG Bl
E.A2
'EXPECTEC MSG Re
#2,E.B2
IMSG ID FOR EXPECTED MSG B2
$3,E.B3
'MSG ID FOR EXPECTED MSG B3

003416
003420

001364

024374

PC, SUBCLR
a4

;CERR AFTER SCLR

#¢D.DSC!D.SPIN'D.DRDY!D.VV!D.DRA> ,E.R0
E.BO
-EXPECTED MSG BO

708:

025022

#SEEK, HCS1

SEQ 3121

121

69:

oo3412

oe4102

PAGE

SEEK FROM CYL 0 7O 1 8 REA" HERDERS

69%:

024744

001264
000137

ELO

12:08

o44ese

001410
001000

25-JRAN-78

68
13

LPFLG

#SW9, ASWR

6%
23

:SW 9 WAS SET

:SW I4 OR B WAS SET
;LOOP ON ERROR?

'YES, RECONDITION DRIVE
'RETORN TO MAINLINE
:LOOP ON ERROR?

:YES, RECONDITION DRIVE
"RETURN TO MAINLINE

; EXPECTED Al

CZREHED UNIBUS RK& DR PRT]

CZRGHE.PIL1

ggg?
§§§§ 025

MACY1l 30A(1052)

25-JAN-78 12:00

T26

@25-JAN-78

ggo

6305

025036 012706 001100

000001

6308

025042

004737

0O4SH24

gg{é

025050

005237

001464

6313

025054

012765

001470

177676

000002

ggig 025070 012737 000001 001352

MOV

6317

025076

013737

001352

gggg

025124

012765

6324

025132

012737

6314

6318
6319
Eggg

025062

025104
025112
025120

104024

012765
012737
012737
004737

6388

sSthCK, SP
PC, SUBCLR

ITERATION

:SET BIT 14 8 15

MOV

nnorne RKBA(RS)

01ToévL

;HEADER uono TRBLE

001366

MOV

MOV
MOV
JSR

TOCYL , CALADD

80, HEAD
80, FORMAT
PC.FHDTAB

s SETUP

000001

00C020

MOV

#1,RKDC(RS)

;CYL®

000027

003322

MOV

# (MRHEAD>, HCS1

000000
000000
046534

2333

025174

104401
000137

056235
0492662

6337
6338
6339
6340
2%3%

025206
025214
025822
025226
025234

012737
012737
0B0SD37
012737
012737

001720
000001
003422
000002
000003

6343

025242

004737

044252

000004

001430
001436

003322

B4 :

003416
003420
003424
003430

;WORD COUNT
1T0 FILL
:HERDER
: TABLE

BGDATCHD’
PC,GSTAT

1GET FRESH STRTUS

BEQ
ERROR

64S
201

:CERR_AFTER WRITE HEADER CMD

MOV
MOV
CLR
MOV
MOV

#¢D.SPOK!D.CART! b DOOR o BRHM‘D SSP> ,E.A
81 E.Bl
MSG 19 FOR EXPECTED MSG 51
E.A2°
*EXPECTED MSG Re
#2,E.B2
:MSG ID FOR EXPECTED MSG B2
83 E.83
:MSG ID FOR EXPECTED MSG B3

JSR

PC, CHKMSG

; CHECK MSGS R0,BO0,R1,Bl

ERROR

52?

156 A0 ERROR AFTER URITE HEADER CHD

ERROR

270

'MSG B1 ERROR

CLR
SCOP1

SECNT

:SECTOR COUNT

TYPE
IMP

MSG18
$e0P

025254

025256

104300

104270

6350
6351

025.50
(- ~.64

005037
104415

001400

012706

001100

MOV

#STACK, SF

;RESTORE STK PTR

025272
025276

004737
104024

045424

JSR
ERROR

PC, SUBCLR
24

;CERR AFTER SCLR

-1

6364
6355

L. 266

ERROR

T.A2'T.B2'0

:ABORTING BALANCE OF TESTS
:ABORT DRIVE

6347

gggg

_WORD

octRR HCS1

0 ROV AFTER NRITE NEROER
CHD T

000003

E34e 950523 199507

IN HEADER

IsRm
JSR

BIT

RKWC(RS)

025246

Egng

SEQ 0122

kssrons STK PTR

BYPFMT

025164
025170

6344

JSR

81,STIMES

INC

100000

6331
6332

MOV

;CERR ARFTER SCLR

032737
001405
104201

MOV

025152

025160
025162

001174

ERROR

035
0otidd louonp
Cravve
6327 025146
004737 045074
6329
6330

122

H‘;E;;.s;""..";;#E':*;Eg' lE;;E;;IE::lTll;gaslalllill!l»!llll«l!
H
W
?g;;;!Iigs;;g!lllil!llllilllillllllllllll«lilllllllllllilllill!«l!l

000004
012737

025046

PAGE

SEEK FROM CYL O TO 1 8 READ HERDERS

026
025030

gggg

F10

12:08

300

-8 MSGS SPECIFIED

'MSG A1

ERROR

:EXPECTED Al

HERE

CZR6HEC UNIBUS RKE DR PRTI
CZR6ME. P11
25-JAN-78 12:00

Gl0

MACY11l 30A(1052)
25-JAN-7?8
12:08
PAGE
127
WRITE 8 READ HERDERS CYL

635

ggga 025300 012765 000001 000020
gggg
6361

025306

012700

oegaés

0]2737

4737
104;7;

001674
000025

6362
gasa

0253
025324

6366

025336

104179

440
013

56235
42662

6370
6371

025350
025354

016520
016520

000024
000024

6374
6375

025364
025372

032765
001407

100000

6377

025400

104173

sggs 85?333 88?485
6367
gggg
gg;g

6376
6378
Eggo
6381

025340
S344

025360

025374

016520

043472
100000

O4507Y4

(025402
028406

104905
000137

056235
042662

gggg

025416

025412

020027

002100

6384

025420

004737

047056

6386

025424

005037

gggg

025434

012701

6385
6387
6390

025430
025440

002100

012037

001454

025444
005450
025456
025460

055137
023737
001401
104202

6396

025462

005237

6398

025474

001361

gzgé

025476

£397

e300

025466

023727
005037

65$:

003322

668 :

000010

00144

001442

000102

698 :

001464

: X

6408

6409
E410
g411

sEE !

TYPE
JMP

174

MSG18
$e0P

;CERR AFTER READ HERDER

MOV
MOV

RKDB(RS), (RO)+
RKDB(RS)
. (RQ)+

;1'ST WORD FROM SILO TO RHTAB
;2'ND WORD

BIT
BEQ

#DLT,RKCS2(RS)
678

;SEE

ERROR

173

:DATA LATE ON READ HEADER

CMP

RKDB(RS)
. (RO)+

PC,GSTAT
MSG18
$e0P
RO,

:3'RD WORD

IF DATA LATE

"ABORT BALANCE OF TESTS
ABORT DRIVE
;ALL 66 WORDS DONE?

X ;

JSR

PC, SORT

:SORT RHTR?
INTO SRTTQB SO THAT

CLR

WDCNT

*WORD
C

MOV

sHDTRB, R1

:CALC HEADER TRBLE

MOV

#SRTTAB, RO

699
202

INC

WOCNT

BNE

68%

CMP

:BR IF NO

escxns ux H'
S

*ACTUAL HERDER TRBLE

(RO)+, HOWD

MOV
CMP
BEQ
ERROR

(R1)+' TEMP1
HOWD, YEMP1

WOCNT, #66.

: COMPARE ACTUAL WITH CAL CULATED WORD

:BR IF COMPARE
‘RERD HEADER MISMATCH

:ALL WORDS DONE?

:BR

IF NO

sALLOW CORRECT FORMATTING

12222222121222X2:123222222223222:2222:231222222X222X2222XXX2X2X22222
L)

irssr 30
tx
‘x
‘¥

8RHTAB+132.

CMD

:RBORTING BALANCE OF TESTS
:RBORT DRIVE

BNE

CLR BYPFMT

6403
6404
640S

2389

ERROR

MOV

003360

#RDHEAD, HCS
|

:D0 READ HEADER CMD 8 GET CONTR RDY
:NO RDY RFTER READ HMEADER CMD

TYPE
IMP

668

SRHTAB, RO

sCYL 8

PC,CATCHD
§71Rn wes1

JSR

678:

#1,RKDC(RS)

SEQ 0123

JSR
Engon

MOV

001470

003360
001454

MOV

8&0

001442

012700

6391
6392
6393
gggg

003322

MOV

00002H

47;7

001335

MOV

123
1, HERD O

TEST RECAR IBRATE CMD 8 RERD HERDERS

THIS TEST DOESA RECALIBRATE 3 READS HEADERS.

1T VERIFIES THAT WRITING HEADERS ON CYL 1 FROM
TEST DID NOT OVERWRITE CYL O HERDERS.
AN ERROR IN THIS TEST INDICATES THAT HERDS:

THE PREVIGUS

CZRBEHEQ UNIBUS RK& DR PRTI]
. P11
CZRGHE
25-JAN-78 12:00

MACY11l

H10

PAGE le4
30A(10S2)
12:08
25-JAN-78
TEST RECRLIBRATE CMO & READ HERDERS
T30

SEQ Ol24

R
R
s %
1R]
s B

A.
B.

MOVEC TO A _CYL OTHER THAN 1
DID NOT GET BARCK 7O CYL O

R IIXXIITIITIT2ITIZITILLIILLILLIILILILLILILILZZLZSLIRLL
S22 2222222222222 2s 22y

00001

01100

001174

+&130:

SCOPE

8], STIME

sStACK, sg
PC, SUBCLR

?6
FRCYL

001350

0 ssscnps
cRECAL HCS1

001360
001176
003322

20000

030140
003414
025720
000001

003412

1S:

81, RKMRL (RS)
PC,c§TAT

:SELECT WORD 1

307

:RTZ NOT SET DURING RECAL CMD

#<D.PIP!D.SPIN!D.VV!D.DRA>

£.80

T. 42!

2i3

025660
025662

025706
025714
0es71
02572

100000

003322

025720
025726
025732
025740
025746
0es7se

050340

2s:

003416
003420
000002

po3424

;EXPECTED RO

: CHECK nscs RO ao Al, Bl

CMD
ING RECAL HERE
u ECiFIED
:MSG AD t RO8

:MSG BO ERROR
:MSG Al ERROR

217

sCYL DIFF INCORRECT DURING RECAL CMD.

8128, SESCAPE

'MSG Bl ERROR

s-1, YEMPI

:SETUP Txnsour

*NO ATTN nrrsn RECAL CMD

Pc,tnTTa

ggERR,HCSI
38:

003412

E£.A0

214
21s
216

g;Lorr

001176
003380

025704

:D0 RECAL CMD 8 GET CONTR RDY
:NO ROY AFTER RECAL CMD

PC Hxnsc

o4425e

026562
177727
O44140

ERROR TYPEOUTS

:iDéRg%!D.REV!D.SPOK!D.CQRT!D.DOOR!D.BRHH!D.SSP>.E.Rl

003416
003420

025664
02se72
825700

Pnnn ETERS

cg RYz, HMR2

0033S0

104307
012737

;CERR AFTER SCLR

PC, DOCHD
124

#CCLR, RKCS1(RS)

000000
000026

.
TERATION
TK PTR
hESTuR

220

'FIND _ATT

;CERR AFTER RECAL CMD

#¢D.DSC!'D.SPIN'D.DRDY!D.VV!D.DRA> ,E.ARD0
E.BO
EXPECTED MSG BO

;EXPECTED MSG RO

#<D.SPOK!D.CART! b DOOR!D.BRHM!D.SSP> ,E.Al
%1 E.B1

E.A2°
$2,£.82

MSG 10 FOR EXPECTED’ MSG Bl

:EXPECTED MSG A2
:MSG ID FOR EXPECTED MSG B2

:EXPECTED Al

CZRBHEO UNIBUS RK& DR _PRT]
CZRBHE.P 11
2S5-JAN-78 12:00
025760

012737

0000063

0oM473?

o44ese

MACY11

30R(1052)
T30

003430

I10

2S-JAN-78
12:08
PAGE 125
TEST RECALIBRATE CMD & RERD HERDERS

#3,E.83

:MSG ID FOR EXPECTED MSG B3

PC, CHKMSG

; CHECK MSGS RO,B0,A1,Bl

Aa'T.82'0

275
222
276
00co02
Q4sQa74
001362

sa RKMR1 (RS)
GSTAT

000026

001364

64S:

nowunwwoo

6SS:

1MSG na NOT CLERRED AFTER RECAL CMD
'SEE IF MSG B2=0
an IF YES

]

INO ROY AFTER DRIVE CLEAR CMD

154

;ATTN NOT CLERRED AFTER DRIVE CLEAR CMD

oe,E.aa

!MSG ID FOR EXPECTED MSG B2

T.R2'T.B2'0
273
265

012700

001674
00002S
043472

003322

100000

003322

;EXPECTED MSG RO

iMSG 1D FOR EXPECTED'MSG Bl

PC, CHKMSG

001176

:TEST FOR ATTN

81 E.BI1

'E.B3

003430

005037

;00 DRIVE CLERR CMD 3 GET CONTR RDY

E.A2°

003424

04542y

MSG B2 NOT CLEARED RFTER RECAL CMD

%<D.SPOK!D.CART!H.DOOR! O.BRHM!
D, SSP> ,E. Al

o44ese

oo
tnninainnninugin
m;—.—.—-;—..—;—.—p-p-._
OV NCNLIWN—-0O

47
CYLADD
658

¥<0'D.SP.IN'C.DRDY!D. vv-o DRAY ,E.RO
E.BO
EXPECTED MSG’BO

003412
003416
003420

104174

geeIF ggc R2=0

PC ., DOCHD

66S:

Oeeeeze
026224

gvtoxf

Eg‘rsrnrn

004737
104024

:SELECT WORD 2

SUNIT,RKCS2(RS) ;DRIVES

o4y401e

0
000003

-8 MSGS SPECIFIED HERE
sMSG AQ £RROR AFTER RECAL CMD
:MSG BG ERROR
:MSG Rl ERROR
:MSG B1 ERROR

#CCLR,RKCS1(RS)

000000
000010
003322

010340

SEQ d12S

4s:

:EXPECTED Al

;EXPECTED MSG A2

:MSG ID FOR EXPECTED MSG B3
; CHECK MSGS R0,B0,A1,Bl

274
266

8 MSGS SPECYFIED HERE
;MSG RO £RROR RAFTER DRIVE CLEAR CMD
*MSG B0 ERROR
:MSG Al ERROR
:MSG Bl ERROR

PC,SUBCLR
4]

; CERR AFTER SCLR

SESCAPE
SRHTAB, RO

u<nofleho> HCS1
PC,DATCMD’
1?7

;00 DATA XFER CMD 8 GET CONTR RDY
:NO RDY AFTER RERD HEADER CMD

174

; CERR AFTER READ HERDER CMD

ggERR,HCSI

cznsnco unxaus RK6 DR PRT1
CoREHE
. P11
26-JAN-78 12:00

6524

026226

104401

gggg

026232

000137

6527

026236

016520

gggg

6528

000024

026246

016520

6531
6632
6533
6S34

026252
026260
026262

032765
001407
004737

100000
045074

6836

0262

104401

056235

104173

6637

026274

000137

6S40

026300

023727

gggg
6641
gg:g

6SYY

6S4S
6546
6547
6548

6649
6550
6551

6552
6563

ggg;
6556

6557
gggg
6560

6S6l
6562

026300
026306
026310

(026312

(026316
(026320
026322
026322

001001
104240

005737

001401
104202

001674
001674

004737

047430

026330
026334

004737
104024

045424

026344

026352
026356
026360

026366
026372

012737

004737
104131
013737

004737
104132

001426

003360
003322

032737
001401
104210

100000

6567
gggg

026406
026412

004737
104024

045424

026414

012737

010340

cS:

8s:

003322

044140

MOV

RKDB(RS), (RO)+

;1'ST WORD FROM SILO TO RHTARB

MOV

RKDB(RS)
) (RO)+

:3'RD WORD

BIT
8EQ
JSR

#DLT,RKCS2(RS)
68§
PC,GSTAT

MOV

JIMP

$e0P

'ABORT DRIVE

CMP

RHTAB, #1

1S7T

6575
6576
6577
6578

026434
026442
026446
0264S4

012737
005037
012737
012737

003414

000001
003422
000002
000003

003420
003424
003430

6579 Q0eb462 012737 000022 003424

sCHECK WORD 0, CYL # ONLY
;CYL

HERDERS ON CYL O

RHTAB
;READ CYL WORD HERDER ERROR

JSR

PC,SWTST

;SEE

JSR
ERROR

PC,SUBCLR
24

;CERR AFTER SCLR

MOV

JSR
ERROR
MOV

JSR
ERROR

T5t31

#1,RKDC(RS)
#SEEK HCS1

PC, 00o¢MD
13}

750000, TEMPL

PC,FATY2
132

IF SW

14 OR 8

IS SET

-.GO TO NEXT TEST
hsrusn HERE IF SW 14 IS ser OR
Sk B WITH SWR ¢7:0> APPLY
:RECONDITION BACK TO CYL 1
:D0 SEEK CMD 8 GET CONTR REARDY
iNO RDY RFTER SEEK CMD.

:FIND ATTN
:NO ATTN RFTER SEEK CMD

BIT
BEQ
ERROR

#CERR, HCS1
69%
2i0

; CERR AFTER SEEK

JSR
ERROR

PC, SUBCLR
24

;CERR AFTER SCLR

6S74 026426 012737 001720 003416

005037

S
240

‘ABORTING BALANCE OF TESTS

X;
202

MOV

(026422

MSG18

BEQ
ERROR

003412

6573

:2°'ND WORD

:DLT AFTER READ HEADER CMD

MOV

698 :

RKDB(RS), (RO)+

173

000017

043434

'RBORT DRIVE

BNE
ERROR

6%:

000020

026374
026402
026404

6S72

000001

:RBORT BALANCE OF TESTS

$eoP

TYPE

68S:

MSG18

SEQ 0126

JMP

ERROR

000001

6563
6564
gggg

6277

000010

042662

000525

012765

678:

000024

026326

026336

TYPE

042662
000024

asags

J10

30A(1052)
25-JAN-78
12:N8
PAGE 126
T30
TEST RECALIBRATE CMD & RERD HERDERS

0S6235

016520

6535

026242

MACY1l

CMD.

#<0'D.SPIN'D. DRDY'D VV!D.DRR> ,E. RO

XPECTED

MSG'B0

:EXPECTED MSG RO

CLR

MOV

E.BO

MOV
CLR
MOV
MOV

81 E.B1
E.A2

MOV

ce E ge
83

:MSG ID FOR EXPECTED MSG B1
EXPECTED MSG Re

c<équ-a> E.B2

EXPECTED MSG B2 & ID FOR CYL 1

#¢D.SPOK'D. canr~b DOOR!D.BRHM!D.SSP> ,E.Al
MSG
MSG

ID FOR EXPECTED MSG B2
ID FOR EXPECTED MSG B3

:EXPECTED Al

E%RBHEO
UNIBUS_RKE DR _PRT1
R&HE . P
25-JAN-78 12:00

004?35

MACY1l

30A(1052)
T30

o44252

[

Q
£
o

—

000001

25-JAN-78

JSR

. WORD
ERROR

PC, CHKMSG

Aa-T.22'0

: CHECK nscs A0,BO,A1,Bl

ERROR
ERROR
ERROR
CMP
BLQ

xaq
135
6

CYLARDD, 81
qs

:MS5G BO ERROR
:MSG Al ERROR
:MSG Bl ERROR

:CYL ADDR IN RKMR3 NOT=RKDC

ERROR

LPFLG

JIMP
IMP

JSLPERR
JSLPADR

026576

00S237
032777
001255
000137

001410
001000
026162

tx
¥

026630
026636

026644
026644
026646

8%
2%

INC

LPFLG

BNE
JIMP

gs
4s

000001
001100

004737

045424

001350
000001
000001

001174

#SW9, ISWR

:LOOP ON ERROR?

:YES, RECONDITION DRIVE
'RETURN TO MAINLINE
;LOOP ON ERROR?

:YES, RECONDITION DRIVE
:RETORN TO MAINLINE

THIS TEST DOES SINGLE INCREMENT SEEKS OUT TO THE LARST CYL

WITHOUT ANY WRITING OR READING SO RS NOT TO INADVERTENTLY

DESTROY DATA.

001352
001360

aStACK, SP

JSR
ERROR

PC, SUBCLR
24

MOV

81, TOCYL

1 ITERARTION

kssrons STK PTR
;

:CERR AFTER SCLR

FRCYL

FRO cYL

#1.CALDIF

CRLCULRTED DIFF.

MOV

#STACK, SP

;RESTORE STK PTR

JSR

PC, SUBCLR

MOV

SCOP1

2706

001100

026652
026656

4737

04SHeY

026660
026666

2737
3765

027442
001352

001176
000020

MOV

026674
026702

2737

000017

003322

MOV

043434

81, STIMES

MOV
CLR

18:

4737

#SW9, ISWR

;s!lfilllli!llll!lll!lllllllillllI!lilllllllllllllll!!l!lll!lllll!

000004
012737
012706

00S037
012737
012737

BNE
JMP

;SW 9 WAS SET
Sl 14 OR B WAS SET

l!illlil!l!ll!llllllllll!lllllil!ll!ll!lllllllll!!lll’illl{llli
iresr 3l
SINGLE INCREMENT SEEKS TO LAST CYL
:*

026602

LPFLG

BIT

152344

70%

INC

BIT

(e #E {FIED HERE
:MSG RO tnnon RFTER SEEK cs

SESCAPE

TST

BEQ

152364

PAGE 127

TEST RECALIBRATE CMD 3 RERD HERDERS

CLR

zgg:

K10

12:08

ERROR

MOV
JSR

4108, SESCAPE

TOCY(L ,RKDC(RS)
$SEEK HCS1

PC, D0¢MD

TO CYL

;CERR AFTER SCLR

;CYL TO SEEK TO
:D0O SEEK CMD 8 GET CONTR RERDY

SEQ 0127

E%RSHEO
UNIBUS_RK& DR_PRT1
E.Pl
25-JAN-78 12:00

104131
012737
005037

030140
003414

856758 818747 88865

3728 300633

MRCY11l

L10

30A(10S2)
12:08_PAG ; 128
25-JAN-78
0 LAST CYL
T31
SINGLE INCREMENY SEEKS

NO RDY AFTER SEEK CMD
131
#<D.PIP!D.SPIN! D VV!D.DRA> ,E.RD ;EXPECTED RO
E.BO
8<D.FWD!D.SPOK! D.CART!D.DOOR!D.BRHM!D.SSP>
,E.Al
.8l

003412

003416
003420

PC, CHKMSG

o442se

T.R2'T.82'0

001362

026754
0eb762
026764
+er
QO0OWOO

0000000
—=0O0====00

gezlie
027114

737

737
132

737
401

027462
001422

001176
003360

[N
~

737

3
36
37
0l
37

100000

003322

649

050340
00341y
001720

000001

003416
003420

000003

oo3424
003430

13
#CERR, HCS1
64S
210

;FIND _RTTN

INO ATTN AFTER SEEK CMD

;CERR AFTER SEEK CMD

E A2’

EXPE TE

#3,E.B3

HSG ID FOR EXPECTED MSG B3

$2,E.B2

PC, CHKMSG

o4Y42s5e

T.R2!'T.B2'0

, ?D POREXPECTED MSG B2

MSGS PECIFIED HERE

; CHECK HSES RO,B0,R

;MSG AQ Enggg AFTER SEEK CMD
0

HSG Bl ERROR

001362

;CYL DIFF NOT CLERRED RFTER SEEK CMD
659%:
100000
00leae
000005
o43434

8CCLR, RKCS1(RS)

000000
000010
003322

$UNIT RKCS2(RS) ;ORIVES
#CLERR, HCS1
PC,DOCHD
DO DRIVE CLERR CMD & GET CONTR RDY

o44012

027156

; SETUP TIMEOUT

;;EXPECTED MSG RO
#<D.DSC'D.SPIN! D.DRDY!D.VV!D.DRA> ,E.AC
-EXPECTED MSG BO
E.BO
; EXPECTED Al
#<D.SPOK!D.CART 1$.DOOR!D.BRHM!D.SSP> ,E.A1
sMSG_ID FOR EXPECTED’MSG Bl
sl _E.Bl

003412

027116
8 7116

cs:

044140

elo

Q00000000 .—v—Or—~—8.I»—MLIIJ:D\.:, o

857074

027076

000001

;CYL DIFF INCORRECT DURING SEEK

027022
027030
027034
827042
827050
027054
027062

3 MSGS SPECIFIED HERE
:MSG AQ tRRoa DURING SEEK CMD
s CHECK MSGS no 80,
A

:¥5G BOERROR
iMSG Al ERROR
:MSG Bl ERROR

026752

026766
026774

SEQ 0128

TEST FOR ATTN

154

;RTTN NOT CLERRED RFTER DRIVE CLERR CMD

66$
669%:

NO RDY AFTER ORIVE CLEARR CMD

15
PC TSTATN

CZRBEHEQ UNIBUS RK6 DR PRTI1
. P11
25-JAN-78 12:00
CZRBHE

010340
003414

027156
027164

BE2108

027204
027210
027216

M10

30A(1052)
25-JAN-78
12:08
PAGE 129
T3l
SINGLE INCRE ENT SEEKS TO LAST CYL

MOV

oo3412

#¢0'D.SPIN'D. DRDY'D vv D. DRR) s RO

;EXPECTED MSG RO

ch
MOV

E(SUSPOK'D.CRRT!
b88 OR
ED
81 t.8B
10 FORRHH
exgé3§sonsc B1

oo3424
003430

MOV
MOV

82,E.82
%3 E.B3

CLR

7236

027240
027242
027250
027252

023737
001401
104207

001364

027254
027262
027264

023737
001407

001352

:EXPECTED MSG R2

JSR

PC, CHKMSG

; CHECK MSGS RO,B0,A1,B

RROR
RROR
ERROR
ERROR

g
26
274
266

ngc nB ERROR ARFTER DRIV E CLEAR CMD
‘MSG A1 ERROR
:MSG Bl ERROR

CMP
BEQ

CYLADD, TOCYL
33

ERROR
012054

39:

001350
001352

027276

000137

Oc6b44

027302
027302
027306

0o4737
000475

047430

CMP

207

TOCYL,LC

.8 MSGS SPE cirx HERE

:CYL ADDR IN RKMR2 NOT=RKDC

:LAST CYL DONE?

4
FRCYL

'BR_IF YES
'ELSE DO ANOTHER

BEQ

:BR IF YES

JSR

PC,SWTST

OR e 1S SET
S%u
:SEE IF

JMP

027310

T.A2'T.B2'0

*MSG ID FOR EXPECTED MSG B2
iMSG ID FOR EXPECTED MSG B3

BEQ
INC
INC

4s$:

TOCYL
1§

T6st32

GO TO NEX

hzrunn HERE xr su 14 IS SET OR
'SW 8 WITH SWR <7:0> APPLY
F

6%:

027310
027314

004737
104024

o45424

027316

013765

001352

000020

027324
027332
027336

012737
004737
104131

000017
o43434

003322

027340

013737
oQ4737

001426
044140

003360

100000

003322

027364

104210

027366
027372

004737
104024

679:

JSR
ERROR

PC, SUBCLR
24

:CERR AFTER SCRL

MOV

TOCYL,RKDC(RS)

;CYL®

MOV

JSR

ERROR
MOV

JSR
ERROR

69%:

¥SEEK, HCS1

PC.D0EMD
131

150000, TEMP1

K cng 3 G

Y RFTER s

TR READY

PC.FATY2
13

R
:FIND
:NO nrrn nrrsn SEEK CMD

BIT
BEQ

#CERR, HCS1
698

210

;CERR AFTER SEEK CMD.

JSR
ERROR

PC, SUBCLR
24

:CERR AFTER SCLR

ERROR
o4sH24

’ EXPECTED Al

E.A2

WORD

o44252

8 7 gq

oo
oo oo oo
NNNNNNNNNYNNYY
(4 L e e e
e e
e Y o ]
OWVOMNT
N LWN—0OW

ey 883428
000003

Q27224
027230
027232

MACY1l

SEQ 0129

023737

027410

000742

027412
027416

004737
104024

o4S4eH

027420
027424
027430
027432
027436

005037

027442

027456

027462

027476

005237

001315

MACY11l

N10O

30A(1052)
25-JAN-78
12:08
PAGE 130
T31
SINGLE INCREMENT SEEKS TO LAST CYL

000000

L£e
N
oo

68%:

000137

026766

00Se3?
032777
001305
000137

001410
001000

TOCYL,0
68%

B8R

678

JSR
ERROR

PC,SUBCLR
24

TOCYL

CLR

709%:
10%:

151464

151444

INC
BIT

LPFLG
#SW9, ISWR

6%
23

:YES, RECONDITION DRIVE
'RETURN TO MAINLINE

INC
BIT

LPFLG
#SW9, ASWR

:LOOP ON

JIMP

'RETURN TO MAINLINE

JMP

;LOOP ON ERROR?

:YES,

ERROR?

RECONDITION DRIVE
K 2 W I K E XK I

K% X KE X% % %N

READ & SAVE BAD SECTOR INFC 8 TYPE PACK SERIAL #

FACTORY

DURING

MANF.

ALL

BAD

SECTOR

INFO

(BSE

''.LL

STORED

SECTORS 0,2,4,6,8 CONTRIN IDENTICAL INFO FOR 22 SECTOR HARDWARE DETECTED FOR BAD

‘x

IF BSE INFO CANNOT BE READ,

'y
‘¥

A MSG WILL BE
FUTURE FORMART

THE PACK SERIAL # IS TYPED IN OCTAL 3 FOR THE FIRST PASS ONLY.

THIS IS THE FIRST TEST WHERE THE RERD DATR CMD IS PERFORMED

AT THIS TIME TO MARSK FUTURE RERD HERDER OR DATH _RROR PRINTOUTS.

SECTORS 10, 12! 14 16, 18,20 CONTRIN IDENTICAL INFO FOR 22 SECTOR SOF TWARE DETECTED

OR IF AFTER READING THE BSE INFO

IT IS DETERMINED THAT AN ALIGNMENT CARTRIDGE IS USED,

004737
104024

'SW 14 OR B WAS SET

THIS TEST VERIFIES THAT CYL 632 (1456 FOR RKO?),
TRACK a CAN BE RERD.
THIS AREA CONTAINS BAD SECTOR INFO WHICH xs WRIYTEN BY THE

027516
027522

;SW 9 WAS SET.

SSLPADR

3 3 36 3 3 3 3 3% 3t 3 3 3 3 3 3 3 3 A 3 3 3 3 3 36 3 3 3 2 3% 3% 3 3 3 3 U I 3 WX A

Ly
‘x

000004
012737
012706

;CERR AFTER SCLR

709
JSLPERR

iTEST 32

027502
027504
027512

ELSE DO ANOTHER

BEQ
JMP

BNE

027302

;LAST CYL DONE’
;BR
YES

LPFLG

BNE
JMP
12%:

SEQ 0130

SESCAPE

1S7T

L£LL
LN
L

001410
001000

CMP
BEQ

DEC

001352

000177

0013se

——
v

o
(o]
wn
~N
[N]
~

027374

00
0O

CZR6HED UNIBUS RK6 DR PRT]
CZREME.P11
25-JAN-78 12:00

THIS

TYPED INDICATING THR
ALL
AND READ-WRITE TESTS WLILL BE

IS DONE SO RS NOT TO DESTROY ESE

BYPARSSED.

INFO OR AN ALIGNMENT PACK BY WRITING

2 330336 36 3636 36 3 36 36 96 36 98 38 36 36 3 36 36 36 3 36 36 363 36 3 36 3 36 34 J°U 36 38 36 36 96 36 06 36 ¥ 36 36 36 36 36 36 36 36 3 3 3 2 6 36 36 3 I 3¢ 3 3

000001
001100
04S424

001174

}4732:
*

SCOPE

MoV

MOV

JSR

ERROR

#1,STIMES

#StACK, SP

PC, SUBCLR

ITERATION

kssroas STK PTR
;CERR AFTER SCLR

CZR6HEO UNIBUS RKE& DR _PRTI]
25-JAN-78 12:00
CZR6HE.PL1

MACY11l

30A(10S2)
T32

002304

003366
001000
003370

012054
177400
0000e1
043472
o4s074
100000

MOV

003366
000004
003370
000006
000020
000002
003322

198:

104227

012737
005037
012737

012737
005037
012737
012737

010340

oo341e

003416
003420
000003

003424
003430

LC,RKDC(RS)

JSR

PC,DATCHMD

MOV

003362
003362

00000s

003364

104230
ooo412
013765

es:

003366
00000e
003370

000004
003370
000006

; SECTOR _CTR

:0=22 SECTOR HARDWARE DETECTED TABLE
é ES EECTOR SOFTWARE DETECTED TRBLE
;STORE 22 SECTOR HARDWARE BSE INFO
; TRACK 2,

SECTOR O

;LAST CYL

8-256. . RKWC (RS) :LORD WORD CT

onoonTA HCS1

; DO COMMARND

22
PC,GSTAT

iNO_RDY AFTER READ DATA CMD
iGET FRESH STATUS

BEQ
ERROR

8s
227

;CERR AFTER REARD DATR CMD

MOV
CLR
MOV
MOV
CLR

; EXPECTED MSG AO
#<0'D.SPIN!D.DROY!D.VV!D.DRH),EORO
XPECTED MSG
E.B0
; EXPECTED Rl
8<D. SS?K'D.CART! b ooon'o BRHM!D. SSP> ,E.R1

#CERR, HCS1

ID FOR _EXPECTED MSG B!

MOV

8l E
E.A2
82 E.B2

83 E.B3

MSG ID FOR EXPECTED MSG B3

JSR

PC, CHKMSG

; CHECK MSGS RO,B0, nx 91

ERROR

S1i

0'070
52

EXPEC ED MSG Re

MSG ID FOR EXPECTED MSG B2

8 MSGS SPECIFYED' HERE

G AD enagg ARFTER READ DATA CMD

112
113

'M3C B1 ERROR

JSR
ERROR

PC, SUBCLR
24

.CERR AFTER SUBCLR

INC
cMP
BNE

TEMP2
%5
TEMPZ,
13

.READ ALL 5 SECTORS?

ERROR
ERROR
o4s4a4

131

ERROR
JSR

ERROR

004737
104024

#8SE22H, TEMPY

MOV

WORD

104113

TEMP2
TEMP3

TEMPY, Rkan(RS)
#1000, TEMPS
TEMPS, RKDA(RS)

MOV

o44252

PAGE

MOV
MOV
MOV

BIT

003322

B1ll

12:08

READ 8 SAVE BAD SECTOR INFO & TYPE PARCK StRIAL #
CLR
CLR

003362
003364

327524
027530

25-JAN-78

iST
BNE
ERROR
BR
ERROR
BR

TEMP3
23
233
3%
230
3%

MOV
ADD

TEMP4, RKBA(RS)
82, TEMPS

MOV

TEMPS, RKDA(RS)

.CANT READ SECTORS 0,2,4,6,8

.CANT READ SECTORS 10,12,
14, 16, 18,20
;RESTORE TRBLE ADDR

SSETUP TO READ 2 SECTORS FROM LAST

030000

000671

030002
030006

605237
000454

001456

3%:

INC
BR

BSERR
T5733

1360 TO NEXT TEST

030010

005737

002312

8%:

1ST

BSE22H+6

; TEST CARTRIDGE

;SET BSE FLAG

TYPE

SEQ 0131

CZR6HED UNIBUS RK6 DR PRT]
CZREME P11
25-JAN-78 12:00

030014

001404

030024

000426

030026
030032

005237

836838 462533

MACY11l

12:
30R(1052)
25-JAN-78
T3
READ 8 SAVE BRD

001456

003364
003364

000001

003362
0s43se

003366

93:

Gt 883354
3370
027564

000006

9g
233
B8SERR
108

INC
CMP
ENE

TEMP3
TEMF3,
81
S

RL GNMENT CARTRIDGE USED

iSET

Mp2
:asgaas TEM:;)

noy
MOV

TEMPS, RKDA(RS)

15T
$¢§£

$PASS
TS§33

JMP

108:

SECTSQG§Né82& TYPE PACK SERIAL #
; BRANCH IF DATA CARTRIDGE

BEQ
gnnon
NC
BR

L
nox

Cll

MOV

:SGTORE 22 SECTOR SOF TWARE BSE ADDR

I%HT3BERRS

s TRACK 2,

; REPEAT

SECTOR

.GO TO NEXT TST IF NOT 1°ST PASS

6nm SERIAL

b gé -(SP)

%YPE
isgE

i B8

BSE ERROR FLAG

; CONVERT DBL BINRRY WORD TO OCTAL

TYPE SERIAL #

TYP

s 3636 36 36 36 36 3 36 36 98 38 38 36 38 08 36 3% 3 3% 3 36 36 36 36 36 30 30 38 96 36 36 36 38 3 38 36 3 3 36 36 3 36 3 3¢ 38 36 36 3 36 3¢ 36 3 3¢ 30 3 3¢ 3 6 36 6 36 36 2

’firssr 33
'y

812937

VERIFIES THAT TH

S ¢ YL AN TH? OVE

LIMIT AS THE RDJACENT CYL.
3eS (1456) BY
DETECTES
NGTH?
INNE HERDS
WERE NOT ON THE LAST CYL
T

SINCE

THE

€ ThEB OR ANy [oMENT caRTRIOGE

TO kvo¥5n§2ovxn §
A SEEK

ORMAT PRCK TEST

< 3636 36 36 36 36 96 36 36 36 36 06 36 36 36 36 38 3% 3% 3 36 36 36 36 36 36 6 36 38 98 36 3 38 3% 3 3% 38 2 3 3 3 36 3 3 3¢ 30 36 36 30 3¢ 38 36 06 30 36 36 3¢ 3 3 3 3 36 B

$4733:

SCOPE

ITERATION

%1,

o4s4ey

JSR
ERROR

PC, SUBCLR
24

OOSOg7
005237
00Se37

01410
01462
003304

CLR
INC
INC

bPFLG
YPCERR
UNLD

;BYPASS CHECKING FOR ANY CERR IN GSTAT!

81 765
13765
012737
004737

000020
012052
000017
o43434

#PAT, RKMR1 (RS)

;PARITY & WORD O

PC,DOEMD

;00 SEEK CMD & GET CONTR RERDY

030154
030160

00473

0162
0166
030172

30176
0204

104024

484355
104125
012737
012737

001174

000026
0G0020
003322

o44012
050340
001200

003412
003414

MOV

MOV
MOV

JSR

ERROR
JSR
ERROR
MOV

MOV

STIMES

kssrone STK PTR

0127086

000001
001100

030e24e

WAS &

IF THIS TEST FAILS,
& THAT BSE ero IS n VflLID

‘x
Oly4
030150

THI; TEST

TEST

P¥
¥

8 014

DETECT INNER LIMIT

sstack, sp

LCM1 ' RKDC(RS)
#SEEK,HCS1
15
PC,TSTATN
12

; SUBSYS CLEAR 8 GET STATUS

:CERR AFTER SCLR

{USED FOR VALID HALT

:NO RDY FROM SEEK WITH BRD PRRITY

TEST FOR RTTN

NO RTTN FROM SEEK WITH BAD PARITY
;;EXPECTED RO
#<D.FLT!D.PAR> ,E.BO

O(D.DSC!D.SPIN!D DROY!D.VV!D.DRA>, E.AR0

SEQ 0132

CZR6HED UNIBUS RKE DR PRTI

CZRGHE.P11

25-JAN-78 12:00

MACY1l

30R(1052)

133

D11

2S-JAN-78

12:08

DETECT INNER LIMIT

1
12737
720 003416
Eéiz
838522 815737
886001
003420

MOV

6
¥y
DQu737
66321
ég §§§§92
l'ooao
78
10411

044252

6922
6923
sggg

030274
830275
030300

104111
104146
104147

R
ERROR

339

838308

815723

6 0000

000000

MOV

63928

030316

012;3;

ggggga

003322

MOV

CCLEggfiHCSI

2931

030332

003331

44012

Jgn

2c§rsrnrn

gggg

030342

B3B3E 840 B4%NS

137

2353 838333 ?831 1

5335 838338 ?8%124

MOV

1222

000010

MOV

gafion
658

ERROR

SEQ 0133

#¢D.SPOK'D.CART!D.DOOR! D.BRHM!D.SSP> ,E.R1

81 ,E.BI

JSR

ERROR
ERROR
ERROR

PAGE 133

KM
1
EHfigcs
288-SP1E
Atek
0 ERROR AFTER SEEK WITH BAD PARITY

HKMSG

110

111
146
147

nsc eo RROR
‘MSG A1 ERROR
iMSG B1 ERROR

8CCLR,RKCS1(R

SUNIT RKCS2(R ,onxvsn

onrn RDY

1&1

RS BS SF?EB? E ELESR

1?4

sATTN NOT CLEARED AFTER DRIVE CLEAR CMD

:TEST FOR RTTN

737

340

003412

MOV

#<0!D.SPIN!C.DRDY! o Vv!D.DRA> ,E.RO

030354

oxa;a;

001620

883358

ggz

:io SE?K0. CART!b ooonrogH"'Esg$26'§sc a1

gg:g

030374

030402

012737

000002

000003

003424

MOV

sg:u

0304{3

003737

044252

£33

gege

5393 838398 865037 888925

6941

4y 83(03042016 ?qugg
104265

6947
sgq

Sggqse

6952

030426

64y

6953
6954
6955

003430

18437q

104266
013765

012054

(000020

030434
8 o442
0446

012737
004737
104131

000017
043434

003322

030456
030462
030466

004737
004737
104160

045074
046260

100000

000000

6961
6962

030470
030476

032737
001003

040000

gggg

030502

000137

031342

6966

030506

012737

031260

001176

6970

030536

012737

030001

003420

6956

6957
6958
Eggg
6963

6967
6968
6969

6371

030450

030500

030514
030522
030530

012765

104305

012737
012737
012737

070140
002200
045720

CLR

E.hs

sxE ED ns

MOV

83 E.B3

nsc xo ron EXPEC ED MSG B3

JSSR

ERRO

¢chgg¥ngg'o

: CHECK M

ERROR
ERROR

ERROR

74
66

n G Al

MOV

MOV
JSR
ERROR

2?23
265

XPECTED MSG B2

:MSG
RO Egfl
:MSG BO ERROR
M5G Bl

ERROR

s EXPECTED Al

g
“é fz

5RIVE CLEQR CMD

ERROR

LC,RKDC (RS)

;00 SEEK CMD 8 GET CONTR READY
:NO RDY RFTER SEEK CMD

JSR
ISR
ERROR

PC, GStAT
PC’ ern
160

;FIND_LIMIT DETECT
*LIMIT DETECT 'NOT FOUND BEFORE TIMEOUT

BIT
BNE

8D.UNLD, HMR2
18

#CCLR,RKCS1(RS)

ERROR

305

;DRIVE NOT UNLORDING AFTER LIMIT DETECT

1§:

MOV

#20$ , SESCAPE

:MUST ESCAPE TO CYCLE UP DRIVE 8 TEST SWR

;

MOV

#<D.LIMDID.NMOV!1

JMP

003412
003414
003416

82,E.B2

RPELTED MaG' BO

8SEEK , HCS1
PC.DOEMD
131

MOV

003350

;EXPECTED MSG RO

MOV
MOV
MOV

CHECK

308

:BYPRSS REST OF TEST

8<D. bsc'o PIP D.8PIN'D.VV!D.DRA> ,E.AD
;EXPECTED RO
$<D.SKIID.FLT>, E.BO
#<D.UNLD'D.REVID. spox'o CART!D.DOOR!D.BRHM!D.SSP> ,E.A!
£.81

161,162,163, 164, <Q¢TER INNER LIMIT DETEC » 0,0.,0

CZREHED UNIBUS_RKE DR_PRT1
CZRE €.P11
25-JAN-78 12:00

6972

6973
6974

6975
6376
6977
6978
6979
6980
gggé
639683

6984
gggg
6987

030544

030550

030552

004737

000000

104162
104163
000240
032737
001003
184401
104164

030:00

004737

030612

0O4S42M4

699

03 554

104067

003400

044012

004737

104024
013737
004737
104166
737
104167
013737

7000

020000
061235
001462

030616
037%20
02.026
030632
03N63M
03.640
030642

6997
gggg

044252

104165
005037

6988
6389
6990
6991
63392
6933
6994

6995

MACY11 30R(1052)
25-JAN-78
12:08
733
DETECT INNER LIMIT

104161

030554
030556
030560
0305
0305
gggg;g
03.0.04
030606

Ell

38:

001414
046336

003362

004737

04eM12
001416
044044

003362

03u6Se6
0°0662

005037
005037

001176
003304

030650

PC, CHKMSG

: CHECK MESSAGE RO,BO,RAl,Bl

ERROR

161

;MAY BE A0 ERROR

LWORD

162
163
#0.LIMD,H.BI
3$
EMY2
g4

JSR

PC, TSTATN

‘MAY BE BO ERROR
:MAY BE Bl ERROR
:NEED FOR THE CALLIN SEQ
‘SEE IF LIMIT DETECT BIT SET IN BI
:BRANCH IF SO
:OTHERWISE REPORT ERROR

ERROR
CLR

165
BYPCERR

:NO ATTN AFTTMR INNER LIMIT DETECT
:ALLOW CHECKING CERR IN GSTAT!

JSR

PC, SUBCLR

; SUBSYS CLR

ERROR
MOV
JSR
ERROR
JSR
ERROR
MOV

24
710, TEMP2
PC, FHDHM
16b
PC,FLORD
167
1100, TEMP2

:CERR AFTER SCLR
:SET UP TIMEQUT
:FIND HEAD HOME
:HERD HOME NOT FOUND BEFORE TIMEOUT
;FIND LORD HERDS
:LO
ADS NOT FOUND BEFORE TIMEOUT
SETUP xneour

ERROR

JATTN NOT FOUND BEFORE TIMEOUT

CLR
CLR

030674

030666

012737

0S0340

003412

7003

030706

012737

000001

003420

MOV

7005

0307

000002

003424

MOV

PC,FATTI1

SESCAPE
UNLD

:FIND ATIN

: CLERR FLAG

8<D.DSC!D.SPIN!D. DRDY'D VV!D.DRR> ,E.R0

;EXPECTED MSG AQ

7002 030700 012737 001720 003416

CLR

MOV

#<D.SPOK!D.CART! b onon-o BRHM!D.SSP> ,E.Al

7004

CLR

£.A2°

EXPEC ED

MOV

83 E.B3

nsc ID FOR EXPECTED MSG B3

;ggg

030714

005037

003422

030726

012737

000003

012737

7009 030740 000003
7010 030742 104063
7008

030734

004737

7011

030744

104064

7014
7015

030752

012765

7018
7019

030770
030772

001401
1040S0

7022

0307?74

012765

7012
7013
7016

003414

0f0'0

ERROR
ERROR
NOP
BIT
BNE
TYPE
ERROR

7001

00S037

SEQ 0134

JSR

2s:

PRGE 134

030746
030750
030760

044252

104065
104066
004737

000002

045074

7017 030764 005737 001364
;gg?

7023
7024
7025
7026
7027

030774

031002
031010
031016
031022
031024

003430

013765
012737
004737
104151
004737

000026

100000

00i1222
000005
043434
044012

00000C

000010
003322

XPECTED MSG BO

81, E.Bl

MSG 10 FOR EXPECTED MSG Bl

#2,E.82

G ID

MSG Re

. WORD
ERROR

PC, CHKMSG

ha-T.82'0

; CHECK nscs R0,BO,
A

ERROR
ERROR

ERROR

bS
66

:MSG BO ERROR

JSR

PC rnr

BEQ
ERROR

64S
SO

CWD2
MOV

MOV

MOV
MOV
JSR
ERROR
JSR

MSGS sPscirxs HERE
:MSG RO tnnon AT END OF HEAD LOADING
:MSG A1 ERROR
:MSG B1 ERROR

175,176, <AT END OF HERD
82, RKMR]
(RS)
;SELEC

cvtnoo

8CCLR,RKCS1 (RS)

s EXPECTED Al

FOR EXPECTED MSG B2

JSR

157

6uS:

.BO

LORDING>
MESSAGE

GET STATUS AND MR2,MR3

'RECAL SUCCFUL
:BRANCH IF SO
‘REPORT ERROR

SUNIT RKCS2(RS) ;DRIVES
8CLEAR, HCST
PC DocCMD
;D0 DRIVE CLEAR CMD & GET CONTR RDY
3!
NO ROY AFTER DRIVE CLERR CMD
PC,TSTQTN
TEST FOR ATTN

CZREHED UNIBUS RK& DR PRT]
CZREHE. P11
25-JAN-78 12:0C
7028

031030

7009

031032

7032

031034

7035

031054

;gg?

7033
7034
7036

7037

;832

031034

000401

010340

012737

000001

012737

000002

031062

005037

012737

7040

031102

004737

7043
7044

031112
031114

104265
104279

7047

031120

004737

031106

000003

7042 C31110 104273
;832

7048

7049
7050

7051
7052

031116

031124

663:

012737

005037
012737

031074

7041

104154

031042
031046
031066

F11

MACY11l 30R(1052)
25-JAN-78
12:08 8
133
DETECT INNER LIMI i

003414
001720
003422

000003

003412

003416

003420

044252

045424

;ggg

031134

013765

001352

000020

7060

031142

012737

000017

003322

;ggg

0311549

104131

7061

031150

$3.E.B3

JSR

PC, CHKMSG

; CHECK MSGS no BO, A1, Bl

ERROR
ERROR

265
274

‘MSG B0
:MSG Rl ERROR

T.A2'T.B2'0

273
266

PC,SWTST

T5¥3y

004737

Q43434

JSR

67S:

PC, SUBCLR

;CYL#

MOV

JSR

ERROR

8SEEK, MCS1

PC, Do¢MD

13}

MOV

7067
7068

031172
031200

032737
001401

100000

003322

BIT
BEQ

#CERR, HCS1
698

031204

004737

045424

JSR

PC, SUBCLR

031212

023737

001352

;ggg

7074

031210

004737
104132

044140

104024

7079

031230

004737

045424

7082
7083

031236
031242

005037
005737

001176
001410

;839

031234

001403
005237

ERROR

031220
031222
031226

R
ERROR

104210

7075
7076
;8;5

0 NEXT TEST

ks N HERE IF SW 14 IS SET OR
1S e NITH SWR <7:0> APPLY

TOCYL,RKDC(RS)

003360

7071

MOV

001426

031202

sss xr SW 14 OR 8 IS SET

;CERR ARFTER SCRL

013737

;893

:MSG B1 ERROR

031156

031164
031170

-8MSGS SPECIFIED HERE

;MSG RO ERRORAFTER DRI s CLEAR CMD

ERROR

7064

7065
7066

:MSG ID FOR EXPECTED MSG B3

108:

104024

000742

104024

69%:

012054

ERROR
cMP

BEQ
INC

001352
68S:

150000, TEMP1

'NO RDY RFTER SEEK CMD.

;FIND ATT
*NO ATTN nrrsn SEEK CMD

2i0

;CERR AFTER SEEK CMD.

;CERR AFTER SCLR

TOCYL,LC

sLAST CYL DONE”

67$

JSR

PC, SUBCLR

CLR
TST

$ESCAPE
LPFLG

ERROR

;00 SEEK CMD 8 GET CONTR READY

PC,FAaTt2
13

68%
TOCYL

:EXPECTED Al

;EXPECTED MSG R2

MOV

004737

031132

G ID FOR EXPECTED’ MSG ax

:MSG ID FOR EXPECTED MSG B2

JSR

031126

8l .81

;EXPECTED MSG RO

82, E.B2

ERROR

7055

#<0'D.SPIN'D.DRDY!D.VV'D.DRA>,E.AD

E.A2°

ERROR

031126

;ATTN NOT CLERRED AFTER DRIVE CLEAR CMD

CLR

WORD

047430

154

£.80
:EXPECTED MSG' BO
#<D, SPOK'D.CART! b ooon-o BRHM!D.SSP> ,E.R

MOV

003430

668

SEG 0135

CLR
MOV
MOV

003424

;gga

;ggg

MOV

104266

000506

ERROR

PARGE 135

'BR_IF
YES
'ELSE DO ANOTHER
:CERR AFTER SCLR

»znsueo UNIBUS RK& DR PRT}
CZRBHE.P11
25-JAN-78 12:00
7084
7085

051246
031250

;ggg

031260

7090

031260

7033

031266

;ggg

031300

;ggg

;835

7094

7097

031254

031264

031274

031302

001402
000177

000177

147634

147626

004737

104024

012737

004737

104121

013737

000011

043434
001420

004737

044044

7101
7102

031316
031322

005037
005237

003304
001410

7104
7105

031334
031336

001274
000137

7103

7106
7107
7108
7109

031326
031342

104067

032777

001000

JSR

003322

003362

7122

030656

00000M

012737

000001

031352

012706

001100

7129

031376

005737
001402
104401
005737

7130
7131

031400
031404

000137
005737

042662
001456

;igg

031414

000137

033016

001403
104177

7136

031420

004737

045424

7133

031426

104401

0S&021

031424

#SRTSPL, HCS1

PC, DOCMD

12l

1500,

TEMP2

PC,FATT!

CLR
INC

UNLD
LPFLG

BNE
JMP

108
2s

:SW

SEG 0136

WAS SET

‘SW 14 OR B WAS SET

#SW9, ASWR

:CERR AFTER SCLR

;D0 START SPINDLE CMD& GET CONTR ROY

*RDY NOT FOU.D AFTER ST SPIN CMD.
; SETUP

TIMEOUT

FI D ATT

NO ATTN RFTER ST SPIN CMD.

;LOOP ON ERROR?

:YES, RECONDITION DRIVE
SRETURN TO MAINLINE

104024

FORMAT PACK

THIS TEST FORMATS THE ENTIRE PARCK
DOING
1 CYL INCREMENTAL
S

IN 22 SECTOR FORMRT BY

FROM 0 TO 632 (1456 FOR RKE?)
W TH HRITE HERDER CMDS (ALL TRACKS).
HEADERS WILL BE READ IN TH

SCOPE
MOV

MOV

056321
001460

104170

001174

+&134:

001342

7128 831374 001483
031410
031412

136

o Je 33 359 36 36 36 36 3 36 36 3 3 36 3 3 36 3 36 3 3 36 36 336 3 3 3 3 3 3 3 3% W 3% 3 3 F 3 3 3 3 3 % % W 3 W 32 % W WA N WK%

031342

031370

PC, SUBCLR

T 34

n
"

7127

JSLPADR

P AGE

FORM
; l!l!!l!lllll!l!llll&!lllllll!llll!ll!llllllillilillilllllilllll
;

031344

70%
JSLPERR

ERROR

BIT

031356
031362
031364

;{gg

JSR

308:

031342

7123
7124
;{gg

7132
7133

MOV

147604

;{ig

712l

MOV

JSR

ERROR

7114

;{53

JMP

ERROR

7112
7113

7118

BEQ
JMP

70%:

;i}?

7117

045424

031310
031314

30A(1052)
25-JAN-78
12:0 g
T33
DETECT INNER LIMI

20%:

7098

;?gg

MACY11l

22%:

2%:

#STACK, SP

;;00

ITERATION

;RESTORE STK PTR

TST
BEQ
TYPE

MODTST’
22%
, MSG20

'SEE IF MODULE TESTING
:BR IF NO
'RUNNING MODIFIED VERSION OF TEST

BEQ

TST

LIMERR

;CHECK

JMP
TS7T

SEOP
BSERR

170

;FATAL

:RBORT BAL OF TESTS
"CHECK IF FOUND BSE INFO OK

ERROR

JMP

:FORMAT

TEST

ERROR

18:

#1,STIMES

E R

BEQ
ERROR

28
177

FOUND LIMIT DETECT

BYPRSSED-BSE

JSR

PC, SUBCLR

:CERR AFTER SCLR

TYPE

.MSGl2

:FORMATTING PACK,

ERROR

PLEASE

ERROR

WARIT

CZRGHEOQ UNIBUS RK& DR PRT]

CCREME.PI1
7140

Zf:é

MACY1]l 30A(1052)

25-JAN-78 12:00

T34

031432

005037

0013%S2

7143

8 1436

813?37

01352

7145

031452

012737

000000

7144

Zi:?
4

7148

1444

031460

012737

004737

7149

1464

0127

7151

031500

000337

;iga

031512

000337

031516

012737

031230

104200

000000

046534

470

7155

031504

7156

031524

7188

7157

7159
7160

7161

7162

~105

013765

001430

TOCYL ,CALADD

: SETUP

001436

MOV

80, FORMAT

:HEADER

004

031544

001405

031850

104207

179l

100000

MOV

#HDTAB, RKBA(RS)

; THI

SWAB

HERD

:1S 70 RESTORE STANDARD FORMAT

SWARB

HERD

‘HERD 0,1 8 2

MOV

PC,GSTART

ERROR

0Sbesz

ABORT DRIVE

INC
CMP

HERD
HERD,
%3

JSR
BR

PC,FHDTAB
9s

031560
031564

005237
023727

001430
001430

7170
;{;é

031574
031600

004737
000731

046534

7173

031602

012737

00000

;igg

031614

00S037

001436

7177

oaxsgo

012737

000001

001360

MOY

7173

031632

012737

000001

001352

MOV

;igg

7174
7178
;igl

7182
7183
7184

;igg
7187

031872

031610

031626

031640
031640

001403

005037
005037

104415

001430
001350

012706

001100

;igg

031652

031646

004737

04S424

7190

831&54

05737

001342

7193
7194

031670
031672

7191
7192

7195

1660
031662

031700

001404
012737
000403
012737

01376S

001366

BEQ

118:

CLR

SCOP1

001176

033056

001176

000020

19%

118

CALADD

HEAD

:BR IF ALL HERDS DONE

:SETUP

:FOR

'FHDTAB ROUTINE

#1,CALDIF

: SETUP

FREYL

$1, TOCYL

JSR

PC, SUBCLR

1ST

MODTST

BR
MOV

139§
$10%,

MOV

:ABORTING BALANCE OF TESTS

FORMAT

#STACK, SP

BEQ
MOV
18%:

MSG18

MOV

ERROR

033352

001366

MOV

CLR

031642

104024

000003

:GET FRESH STATUS

$eoP

7166
7167

64S:

648

;D0 DATA XFER CMD 8 GET CONTR RDY

:NO RDY AFTER WRITE HEADER CMO

IMP

000137

031560

#CERR, HCS1

;TO CYL O

:CERR_AFTER WRITE HEADER CMD

oo:Z.y

;igg

200

CTION

201

TYPE

042662

8 <WRHERD)>
, HCS1

JSR
BEQ

HEAD,RKDA(RS)

PC,DATCMD

BIT

: TABLE

o-gs.,hxug(RSJ P OF SOBE

JSR

ERROR

003322

270 FILL

PC.FHDTAB

MOV

045074

031546

9S:

80, HERD

JSR

003322

004737

032737

MOV

000027

031832

SEQ 0137

MOV

043472

PAGE 137

001366

001430

000006

001430

12:08

TOCYL

001430

004737

03153c

2S-JAN-78

FORMAT PACK
CLR

7150 831492 815722 ?9;575 88 002
7152

H1l

18§
8168, SESCAPE
SESCAPE

CALADD,RKDC(RS)

:FOR

:ERROR REPORT

;START FORMATTING CYL 1 TO 410 HERE

:RESTORE STK PTR
: CERR AFTER SCLR
:SEE

‘BR

IF MODULE TESTING

IF NO

;CYL #

CZRGHEOD UNIBUS RK& DR PRTI
CZREHE. P11
25-JAN-78 12:00
7196
7197

031706
031712

000337
013765

7200

7202

;igg

7201

7203

MACY11l 30A(1052)
@25-JAN-78
T34
FORMAT PACK

000337

001430
001430

001430

000006

SWAB
MOV

031724

012737

000017

003322

MOV

031736

104131

031720

031732

004737

043434

031740

012737

030140

003412

7205
;ggg

031752
031760

012737
012737

003720
000001

003416
0032420

7208

031766

004737

044252

7211
7212

031776
032000

104204
10420S

7204

7209

031746

031772

005037

000003

7210 031779 104203

003414

;gia

032002

104206

7215
7216

032004
032012

023727
001401

001362

7219

032016

005737

001342

;S{E

032014
032022
032024
032032

001404
012737
000403

7224

032034

7227

012737

033076

001176

032050

004737

044140

7229
7230

032056
032064

032737
001401

100000

;ggg

032070

7028
7231

7234

7235

032042
032054

032066
032070

(032076

012737
104132

004704

003360

005037

0S0340
003414

003412

7238

032116

005037

003422

;g:?

032130

012737

000003

7243 (032142 000003

044252

7248
7249

001362

(032122

012737

7242

032136

004737

7044
7045
7246
7e47

(032144
032146
032150
032182

1049133
104134
104135
104136

7250

032162

032154
032160

005737
001401

104137

000002

003424

003430

13}

;D0 SEEK CMD 8 GET CONTR READY

:NO RDY AFTER SEEK CMD

E.80

JSR

PC . CHKMSG

: CHECK nscs RO,BO,AL,Bl

ERROR
ERROR

aow
205

:MSG BO ERROR
:MSG Al ERRCR

#<D.FWD'D.SPOK!D.CART!D.DOOR!D.BRHM!D.SSP>
,E. Al
81, E.BI

ba'T.82'0

ERROR

206

cMP
BEQ

CYLDIF,
a1
4s

15T

MODTST

BEQ
MOV
BR
MOV

5G8 SPECIFIED HERE
:MSG AQ tnnon
DURING SEEK CMD
'M5G Bl ERROR

212

208
817, SESCAPE
218
#12$, SESCAPE

:CYL DIFF INCORRECT DURING SEEK
:SEE IF MODULE TESTING

IBR IF NO

MOV

#2500. , TEMPI

:SETUP TIMEOUT

JSR

PC.FATT2

:FIND
A

81T
BEQ

#CERR, HCS1
658

ERROR

6SS:

7236
032102 012737 001720 003416
7237 032110 012737 000001 003420

7239

21§:

003322

104210

012737

20%:

8SEEK, HCS1

;HEAD #

CLR

ERROR

001176

HERD

8<D.PIP!D.SPIN!D.VV!D.DRAR> ,E.RD ;EXPECTED RO

ERROR

033372

HEAD
HERD,RKDA(RS)

SEQ 0138

MOV

. WORD

us:

PAGE 138

PC, DOLMD

MOV
MOV

000001

12:08

JSR

ERROR

104212

7220
7221
;Ssg

;ssg

SWAB

I11

ERROR

MOV

132

210

*NO nrrn nrrsn SEEK CMD
;CERR AFTER SEEK CMD

#<D.DSC'D.SPIN'D. onov-

.VV!D.DRA> ,E.A0

CLR

E.BO

XPECTED MSG BO

MOV
CLR

E.A2°

EXPECTED
MSG Re

MOV

;EXPECTED MSG AC

#<D.SPOK!D.CART!
0MSG
DOOR'D.BRHM!D.SSP>
,E.A
sl E.Bl
10 FOR EXPECTED MSG 91
oa E.B2

E.B3

G ID FOR EXPECTED MSG B2

nsc 10 FOR EXPECTED MSG B3

JSR

_WORD

PC, CHKMSG

: CHECK MSGS RQ,BO,A

ERROR
ERROR
ERROR
ERROR

TST
BEQ

133
134
135
136

CYLDIF
6638

:MSG A0 ERROR nrrsn SEEK CMD
:MSG BO ERROR
:MSG Al ERROR
:MSG Bl ERROR

137

:CYL DIFF NOT CLERRED AFTER SEEK CMD

ERROR

T.R2'T.B2'0

:EXPECTED Al

-8 MSGS #ecirreo HERE

cznsnco umxaus RK& DR PRT!
CZREHE
. P11

;ggg

032164

7264

03216M

7255
7256
7257
7258
7259
7260

032172
032200
(032206
032212
(033214
032220

;ggg

032224

7261

7264

7265
7266
7267
7268

032222

032224

25-JAN-78 12 0o

01276S

013765
012737
004737
104151
004737
000401

100000

001222
00000S
043434

012737

010340

000003

7273 032276 000003
7274
032300 104273
7275 032302 104265

7272

032272

004737

044252

7276
;S;;

032304
032306

104274
104266

7279
7280

032310
032316

023737
001401

001364

7283

032320
032322

012737

003414
001720
000001
003422
000002

003416
003420
003424

001100

7287

032330

004737

0OMS424

001366

104415

7290

0323

00S037

7092

03234

7294

7296
;Sgg
7299

104024

;D0 DRIVE CLERR CMD 8 GET CONTR RDY
:NO RDY AFTER DRIVE CLEAR CMD
:TEST FOR ATTN
;ATTN NOT CLERRED AFTER DRIVE CLEAR CMD

#<0'0.SPIN!D.DRDY!D.VV!D.DRRA> ,E.ROD

nsc ID FOR EXPECTED MSG B3

JSR

PC, CHKMSG

: CHECK nscs RO, B0,
A

82,E.82

_WORD
ERROR
ERROR

T.A2'T.B2'0
273
265

CMP
BEQ

CYLADD, CALADD
5%

SCOP1

JSR

274
266

.8MSGS bectrrED HERE
:MSG
RO
tRRon
AFTER DRIVE CLERR CMD
*MSG BO ERROR
'MSG Al ERROR
'MSG B! ERROR

232

:CYL RDDR IN RKMR2 NOT=RKDC

#STACK, SP

:RESTORE STK PTR

PC, SUBCLR

CLR

SESCAPE

000337

001430

SiWAB

PC.FHDTRB
HEAD

;FILL HERDER TABLE

032360

000337

001430

HEARD,RKDA(RS)

;SET TRACK

032372
032400

018765
013765

177676
001366

#HDTAB,RKBA(RS)

;HEADER WORD TABLE

(032364

013765

012765

7302
7303
7304

032420
032422
032426

104200
004737
032737

7306

032436

032414

032434

032440

004737

00I405

104201

104401

JSR

001430

000006

001470

000004

MOV

000027

003322

MOV

003322

ERROR
JSR
BIT

043472

045074

100000

056235

000002
000020

MOV

SWAB

HEAD'

MOV
MOV

8-66. , RKWC (RS)
,uono cT
CALARDO, RKOC(RS) ;CYL #
s<uRHeno>,Hcsx

JSR

PC.DATCMD

BEQ

213

ERROR

TYPE

:00 DATA XFER CMD & GET CONTR RDY

200
PC,GSTAT
octnn HCS1

*NO RDY AFTER WRITE HEADER CMD
:GET FRESH STARTUS

201

:CERR AFTER WRITE HERDER CMD

,MSG18

sEXPECTED Al

MSG ID FOR EXPECTED MSG B2

001176

032352

s EXPECTED MSG RO

%3 E.B3

:CERR AFTER SCLR

012737

7307

154

;DRIVES

032406

7305

$CCLR,RVCS1(RS)

SUNIT RKCS2(RS)
8CLEAR, HCS1
PC, DOCHD
151
PC, TSTATN
67¢

ERROR

7300

7301

SEQ 0139

MOV

7291 032332 004737 046534
7095

PAGE 139

£.80
-EXPECTED MSG'BO
#<D.SPOK'D.CART!D.DOOR!D.BRHM*D. SSP> ,E.Al
sl E.BI
sMSG ID FOR EXPECTED MSG Bl
E.A2°
expscreo MSG R2

MOV

003430

5%:

012706

7293

12:08

CLR
MOV
MOV
CLR

ERROR

032324
032334

MOV

104232

032322

;ggg

003412

ERROR

ERROR
ERROR

7284

;ggg

MOV
MOV
JSR
ERROR
JSR
BR
678:

012737

;ggé

25-JAN-78

FORMAT PACK

MOV

000010
003322

104154

032264

032356

000000

044012

005037
012737
012737
005037

;g;?

T34

66S:

(032232
03223
032244
03.352

7269

MACY1l 30R(1052)

J11

'ABORTING BALANCE OF TESTS

cznsuso UNIBUS RK6 DR PRT1
CZREHE. P11
25-JAN-78 12:00
7308

032444

7311

032450

;3?3

032450

000137

042662

012737

010340

7312
7313
7314
7315

032466
032462
032470
032476

005037
012737
012737
005037

;g{s

032516

012737

7316

0325

000002

044252

032516

004737

7322
7323
;ggg

032526
032530
032532

104267
104300
104270

032534

005737

032522

000003

7321 032524 104277

7326

7327

7328
7329

032540
032542

003414
001720
000061
003422

012737

7319

7320

MACY1l

001402
000137

000003
]

001342

033116

30R(10S2)
25-JAN-78
T34
FORMART PARCK
688

003412

003416
003420
003424

GO3430

IMP

MOV

Kll

12:08

SEOP

PAGE

140

SEQ 0140

;ABORT DRIVE

#¢0'D.SPIN'D.DRDY!D.VV!D.DRA> ,E.RO

;EXPECTED MSG RO

CLR
MOV
MOV
CLR

E.B0
;EXPECTED MSG’ BO
8<D.SPOK!D.CART! o ooon 0.BRHM'D.SSP> ,E.Al
81 .E.BIl
G ID FOR EXPECTED’MSG Bl
E.A2
EXPECTED MSG Re

MOV

#3 E.B3

nsc ID FOR EXPECTED MSG B3

JSR

PC, CHKMSG

: CHECK nscs RC,B0,A1,B

ERROR
ERROR
ERROR

267
300
270

iM3G BO ERROR
IMSG Al ERROR
:MSG B1l ERROR

MODTST

:SEE_IF MODULE TESTING

MOV

_WORD

ERROR
TST

BEQ
Jmp

82,E.82

T.A2'T.B2'0

277

23%
14%

;EXPECTED Al

MSG ID FOR EXPECTED MSG B2

568 SPECIFIED

:MSG A0 ERRORarrsn WRITE enosn CMD

'BR IF NO
{ELSE RESTORE HERDERS ONLY

CZRGHEO UNIBUS RK& DR PRT]
CZR6
2 S-JAN 78 12:00
032546
032552
03256
03256
032570
032572

MAC "11

005237
023727
001006
023737
001002
000137

001430
001430

000002

001366

0l20s4

Q23727

001430

001246

39251052)

23%:

033016
000003

6%:

001430
001366
001350
35

25-JAN-78

FORMAT PACK

INC
CMP

BNE
CMP
BNE
JMP

HERD
HERD, #2
6%
CALADD,
LC
6%
7%

CMP
BNE
CLR
INC
INC

HEAD, #3
S$
HERD
CALADD
FRCYL

NC
St
BNE
JMP

8853 1

L1l

12:08

PAGE

SEQ 0141

141

sHERD 2,

SEE

IF ON LAST CYL

D0 NOT WRITE ON LAST CYL HEAD 2
RLL HERDS DONE?
IF_NO

QLL HEQDS ON CYL DONE
iGO_TO NEXT CYL
FOR ERROR REPORT

TOCY
HPEN
248
3s

RROR REPORT

F HALT PENDING
YES

ELSE KEEP FORMATTING

032634

000137

031640

032640
032644
032650

005037
005037
000137

003310
003306
047500

248

032654
032660

00S037
005037

001366
001350

8s:

032664
032670

004737
104024

o4sS4e

032672

013765

001352

000020

032700
032706
03e71e

012737
004737
104131

000017
O43434

003322

032714

013737

001426
O44140

003360

MOV

100000

003322

ERROR
BIT
BEQ
ERROR

13
#CERR, HCS1
718
210

; CERR AFTER SEEK CMD.

SR
ERROR

PC,SUBCLR
&4

; CERR ARFTER SCLR

CMP
BEQ

TOCYL,O0
708

B8R

698

JSR
ERROR

PC, SUBCLR
24

0327ee
032726
032730
032736
032740

HPEND
BADHDR

CLR
CLR

CALADD
FRCYL

JSR
ERROR

PC, SUBCLR
24

;CERR AFTER SCRL

MOV

TOCYL, RKDC(RS)

;CYL®

JNP

69%:

MOV

JSR
ERROR
JSR

104210

#SEEK , HCS1

PC, Do¢MD
131

150000, TEMPL

o4542ey

0327S0

0013s2

032764

0237327
001403
005337
000742

032766
032772

og4737
104024

o4s424

032774
033000
033004
033006

005037
005737
001402
000177

001176
001410

CLR
7ST

LPFLG

146076

JIMP

JSLPERR

DEC

0013s2
709%:

BEQ

3ICYL

;00 SEEK CMD & GET CONTR READY

iNO RDY AFTER SEEK CMD.

PC,.FRTY2

004737
104024

000000

: HEADERS
N
;GO & HALT THE CPU

STOP

032742
032746

7198:

; CLERR FOROFUSURE FORMATTING

CLR
CLR

;FIND _RTT

:NO ATTN QFTER SEEK CMD

;LAST CYL DONE?
YES
;BR_IF
IF

{ELSE DO ANOTHER
;CERR AFTER SCLR

SESCAPE
723

;SW 9 WAS SET.

CZRBHED UNIBUS RK6 DR PRTI
CZREHE.P11
25-JAN-78 12:00

MACY11l

MLl

30A(1052)
25-JRN-78
T34
FORMRT PACK

033012

000177

146070

72s$:

033016
033022

004737
000137

0S0006
032640

73:

033026
03303e

004737
000567

047430

JMP

12:08

PAGE

001402
000177
000177

033056
0330S6
033062

005237
032777

Tage 83378 38673
Pt Pt Pt Pt Pt
Pt Bt Yo

DONOCNLEZWh

NNNNNNYN ~N
PN S 4 < o ¥ o £

033076

033162
033170

;SW 14 OR B8 WAS SET

PC, HPEN

;SEE IF HALT PENDING

PC, SWTST

1st3s

7441

032016
128:

005S06S
005037

000006
0013s2

012737
004737
104131

000017
o43434

003322

013737
08:?3?

001426
044140

003360

100000

003322

004737
104024

033230

146050

001430
001430

033210
033214

033216
033ee2

109%:

005237
023727
001402
000137

001401
104210

GO TO NEXT E

hsrunn HERE IF SW 14 IS SET OR
8 NRS SET
N 14 02

73%:

001410
001000

033206

FEpies& EXIT
EE&e“EEF
IF S 14 oa 8 IS SET
;

:Sl 8 WITH SWR ¢7:0> APPLY

00S237
032777
001261
000137

832535

SEQ Ji42

JSLPADR

3 o 882937
033046
03305e

142

146030

032322

000003

14%:

032322

043472

LPFLG
#SWS, ASKR
83
c$
HEAD
HERD, #3

TO MAINLINE

:LOOP ON ERROR?

:YES, RECONDITION DRIVE
'RETURN TO MRINLINE
;SEE _IF ALL HERDS DONE

iBR_IF YES TO GO BACK TO CYL O
{ELSE REPEART FOR NEXT HEAD

RKDAR(RS)

;SEEK _TO CYL O & RERD HERDERS

:TO RECONDITION DRIVE

#SEEK, HCS
1

PC . DOEMD
131

TSOODO TEMP1

pC.

748

003322

ERROR?
CONDITION DRIVE

158
33

TOCYL

o4s42eH

001674
000025

LPFLG
#SW9, JSKR
8%
49

FaTt2

ONTR RERDY
MD.

OCERRHCS1

;FIND _ATTN

210

; CERR AFTER SEEK CMD.

PC,SUBCLR
24

;CERR RFTER SCLR

:NO ATTN AFTER SEEK CMD

#RHTARB, RO

% (RDHEAD)>, HCS1
PC,DRTCMD’

;00 DATA XFER CMD & GET CONTR RDY

CZREHED ?TIBUS RK& DR _PRTI
CZR6HE.P
25-JAN-78 12:00

033234
033236
033244
o]
033254

104171
032737
00140S
104174
104401
000137

056235
o4ee6e

033260
033264
033270

016520
016520
016520

000024
000024
000024

033274

032765
001407
004737
104173
104401

100000

39251052)

0033ee

25-JAN-78
FORMAT PARCK

gooo1o

045074

778

768

TYPE
IMP

174

MSG18
$e0P

;CERR AFTER READ HEADER CMD

ggx

Efiggggg;,ggggt

a,sg uogg FROM SILO TO RHTAB

MOV

RKDB(RS), (R0)+

:3'RD WORD

BIT
BEQ
JSR

#DLT,RKCS2(RS)
778
PC,GSTAT

TYPE
IMP

MSG18
$E0P

:ABORTING BALANCE OF TESTS
}ABORT DRIVE

cMP
BEQ

ERROR

RHTAB, TOCYL
75$
310

sCHECK WORD O
iBR IF SAME

JSR

PC, HPEN

sse

PC,SWTST"
15t35

ELSE ET HERE 3 EXIT
;sss IF SW 14 OR 8 IS SET
;
TO NEXT TEST

000137

033322
033330
033332
033334

023737
001401
104310

001674

033334
033340

oo4737
000137

050006
032640

JIMP

033344
033350

004737
ooo4ec

047430

JSR
BR

0333Se

033406

173

2ud

16
005237
032777
001264
000137

00Se3?
032777
001254
000137

033412

001410

001000

178

032016
001410
001000

)

145534

sNO RDY AFTER REFD HEADER CMD

'RBORT BALANCE OF TESTS
'ABORT DRIVE

;DLT AFTER READ HEADER CMD

(CYL#)

ONLY

IREAD CYL WORD HERDER ERROR

IF HQLT PENDING

YES

ksrunu HERE IF SW 14 IS SET OR

‘SW 8 WITH SWR ¢7:0> APPLY

)

145554

SEQ 0143

BEQ

0
033322

0013se

143

ggéRR .

ERROR

056235
o42662

PRGE

5§$on

ERROR

76%:

N1l

12:08

032322

INC

LPFLG

BNE
JMP

158
4§

INC

LPFLG

BNE
IMP

158

BIT

#SWS, ISWR

#SW9, ISKR

LOOP ON ERROR?

:YES, RECONDITION- DRIVE
SRETURN TO MAINLINE
:LOOP ON ERROR?

YES RECONDITION DRIVE
'RETURN TO MRINLINE

13%:

3638 3 36 36 36 3% 36 36 2 36 3% 3 3¢ 36 36 3 3 36 36 36 3 36 3 36 36 36 36 36 38 3 36 36 26 2 38 36 36 36 36 38 36 36 36 36 36 36 3% 3 6 36 36 3 3 36 36 3% 36 36 I 3 3 3%

'iTEST 35

THIS TEST VERIFIES MOTION IN THE NEGRTIVE DIRECTION BY

033412

000004

DECREMENT FROM LAST CYL TO O 8 READ HERDERS

SINGLE CYL

INCREMENTAL

SEEKS.

*éunu!"uunuunuu*iu*uui*iunnuunu"uunuu
T35:

SCOPE

7442
7443
7944
7445
7446
7447
7448
7449
7450
7451
7452
7453
7454
7455
7456

MACY1l

CZRBEHEO UNIBUS RK& DR PRT1
CZRBHE.P11
2S-JAN-78 12:00
7498

033414
033422

012737
012706

000001
001100

MACY1l

Bla

PAGE _14Y4
12:08_
30R(1052)
2S-JAN-78
T35
DECREMENT FROM LAST CYL TO O & RERD HERDERS
MOV
MOV

001174

056550
001342

013737
033464
033464
033466

104415
U12706

033472
033476

004737
104024

056470
034470
012054
012352

#StACK, SP

81, STIMES

;

MSG22

;FORMATTING FINISHED

MODTST
S$
1§§°2‘

001100

#STACK, SP

sRESTORE STK PTR

o4s4ey

PC,SUBCLR

cs:

LCh1, TOCYL

$TO CYL

198:

001176
000020

033514
033See
033526

000017
O43434

003322

030140
003414
005720
000001

003412

810¢%, SESCAPE

TOCYL ,RKDC(RS)

E.B80

I(D.REY!D.SPOK.D.CQRT.D.DOOR!D.BRHH!D.SSP>,E.Rl
1,

PC, CHKMSG

T.A2!T.B2'0
aoa
204
205
206
000001

000002
045074

000026

034450
004704

001176
003360

82, RKMR1 (R5)

PC.GSTAT
212
c9:

003416
003420

2%, SESCAPE

;SELECT WD 2

:CYL DIFF INCORRECT DURING SEEK
:SETUP TIMEOUT

PC.FATT2

sFIND_ATTN

gsgnn,ucs‘

003322

003412

.8MSGS S ECIFIED HERE
;MSG RO tnnon DURING SEEK CMD
‘MSG B0 ERROR
*MSG Al ERROR
:MSG B1 ERROR

#2500 , TEMPI

64S:

250340
003414
001720
000001

; CHECK MSGS RO,BO.A1,Bl

g;Loxr 8l

044140
100000

;CYL #

#SEEK ,HCS1

003416
003420

001362

;CERR RFTER SCLR

;D0 SEEK CMD 3 GET CONTR RERDY
PC,00&MD
:NO RDY AFTER SEEK CMD
13
.(D PIP!D.SPIN!D.VV!D.DRA> ,E.AD ;EXPECTED RO

o442Sse

033674

'SEE IF MODULE TESTING
:BR_IF NO
:BYP TESTS 36,40,41
:FROM CYL

034430
0013S2

012737
012737

ITERATION

kearons STK PTR

LC, FRCYL

001350
0013%S2

033500
033506

104212

SEQ 01

210

'NO ATTN AFTER SEEK CMD

;CERR AFTER SEEK CMD

g(D DSC!D.SPIN!D. DRDY'D VV!D.DRA> ,E.A0
ECTED MSG B8O
80

;;EXPECTED MSG RO

#<D.SPOK!_.CART! 0 DOOR D.BRHM!D.SSP> ,E.RL
%1,E.BL

MSG ID FOR EXPECTED MSG BI

; EXPECTED Al

CZRBEHED UNIBUS RK& DR _PRT]

CZR6HE.PL1

25-JAN-78 12:00

MACY11l

30A(10Se)
135

12:08

005037
012?37
012737

003422
000002
000003

CLR

E.R2

033722
033726

004737

o4y4252

033734
033736
033740
033744
033746

104135
104136
005737
001401
104137

MOV

001362

:EXPECTED MSG A2

MOV

#3.E.B3

JSR

PC, CHKMSG

: CHECK nscs no BO nx 91

ERROR

136

157

CYLDIF

ERROR

137

65$

‘M3G

FOR

EXPECT 8 MSG B2
EXPECTED

MSG B3

15628 8
A E
RROR305 SEECIEIED HERE

nsc Al ERROR
1MSG Bl ERROR

:CYL DIFF NOT CLEARRED AFTER SEEK CMD

65%:

012765
013765

100000
gole2

833752 Baa73s 843555
8337?
483534 o44012

034004
0340
03401

000401
104154

034010
034016
034022
034030
034036
034042
0340S0

012737

034074

SEQ 0145

:MSG fB FOR

BEQ

033750

034072

#2,E.B2

HoRD 78217,
B2t
ERRSR
134
135
ERROR

833748 e

G34056
034062

PARGE

25-JAN-78
DECREMENT
rnon LQgT CYL T6 3 8 RERD HERDERS

033702
033706
033714

0337S0
033756

cle

012737

MOV

000000
gooailo
003322

MOV

MOV
JSR

010340
003414
001720
000001
003422
000002
000003

004737
0000063
104273
104265
104274
104266

o44252

023737
001401
104207

001364

ési

ERROR

154

034114
034120

004737
104024

o454eY4

034122

00S037

001176

034126

0137865

001352

:NO ROY AFT n onxvs CLEAR CMD
!TEST FOR ATT

:ATTN NOT CLEARED AFTER DRIVE CLEAR CMD

MOV

003416
0034eC

CLR

MOV

E.BO

EXPECTED nsc BO

MOV

E.A2
82, E.B2

;MSG ID FOR EXPECTED'MSG Bl

003424
003430

CLR
MOV

81 E.BI

83 E.B3

‘MSG ID FOR EXPECTED MSG B3

JSR

PC, CHKMSG

CHECK MSGS RO,B0,Al,Bl

ERROR
ERROR

265
274

_WORD
ERROR

001352

39:
001100

:EXPECTED MSG RO

#<D.SPOK!D.CART! b DOOR!D.BRHM!D.SSP>
,E. Al

T.A2'7.B2!'0
273
266

-3
SPECYFIED
HERE
:MSG AU ERROR AFTER DRIVE CLEAR CMD

iMSG BO ERROR
‘MSG Al ERROR

:MSG B1 ERROR

207

;CYL ADDR IN RKMR3 NOT = RKDC

SCOP1

#STACK, SP

;RESTORE STK PTR

PC, SUBCLR

CLR

SESCAPE

MOV

TOCYL,RKDC(RS)

s EXPECTED Al

,sxpecreo MSG
R2
ID FOR EXPECTED MSG B2

CYLADD, TOCYL
3%

ERROR

000020

8¢0!D.SPIN'D.DRDY!D.VV'D.DRA>,E.RO

CMP
BEQ

ERROR

104415
012706

sgtTSTnTN

;D0 DRIVE CLEAR CMD & GET CONTR RDY

003412

ERROR

034106
034106
034110

OSL
AR HCSl

ganoa

BSR
663:

#CCLR,RKCS1(RS)

SUNIT RKCS2(RS) ;DRIVES

:CERR AFTER SCLR

;CYL #

CZR6HED UNIBUS RK6 DR PRTI]
CZRBHE. P11
25-JAN-78 12:00

8187%9 884822
004737
104171

032737

00140S
109174
104401
000137

043472

100000

D12

30A(10S2)
12:08
PRAGE 146
25-JAN-78
T35
DECREMENT FROM LRST CYL TO J 3 RERD HERDERS

MOV
MOV

003322

016520

80002“
00024
000024

032765

100000

000137
023737
001401
104310

001674

034ese
034256
034260
034264

00S337
001404
005337
000137

001350

g34270
034270
034274

004737
00o47s

;00 DATA XFER CMD & GET CONTR RODY

:NO ROY AFTER READ HEADER CMD
CERR_AFTER RERD HERDER CMD

QBORT BALANCE OF TESTS

;ABORT DRIVE

;1’ST WORD FROM SILO TO RHTARB

68%:

:2'ND WORD
3 RD HORD
#DLT,RKCS2(RS)
698
PC,GSTAT

000010

173

MSG18

056235
o4z2662

034240
034246
034250
034eSe

# <RDH ho> HCS1

pc DRTCMD'

$eoP

045074
03423
034234
034240

oRthg

ocsna HCS1
6 s
1
hec18

003322

056235
o42e62

824578 B1e2ss
034206

MACY1l

$E0P

698
:

RHTAB, TOCYL
678
310

0013Se
67%:

;OLT AFTER READ HERDER CMD

:ABORTING BALANCE OF TESTS
:ABORT DRIVE
;CHECK WORD O (CYL#) ONLY

iBR _IF SAME
{READ CYL WORD HEADER ERROR

FRCYL
4s
TOCYL

001352
033464

4s:

047430

PC,SWTST

15138

034276

;SEE IF SW 14 Og 8 IS SET

'hs?unn
HERE 5SW 14 IS ssr OR
‘SW 8 WITH suR <7:0> APPLY
To N

6%:

034276
034302

0Q4737
104024

o4s424

034304

013765

001352

000020

034312
034320

000017
043434

003322

034324

012737
004737
104131

034326
034334
034340
034342

013737
004737
104132
032737

001426
O44140

003360

100000

003322

708:

JSR
ERROR

PC,SUBCLR
24

;CERR ARFTER SCRL

MOV

TOCYL ,RKDC(RS)

;CYLS

MOV
JSR
ERROR

PC, 00¢MD
131

MOV
J
ERROR
BIT

#SEEK, HCS1

150000, TEMP1

Pcérnrfa

13
#CERR,HCS1

;00 SEEK CMD & GET CONTR RERDY

:NO RDY ARFTER SEEK CMD.
;FIND RTTN

iNO ATTN AFTER SEEK CMD

SEQ 01i4e

CLR&HEO UNIBUS_RKE DR_PRT]
25-JAN-78 12:00

CZRBHE. P11
7666
7667
7668
7669
7670

001401
104210

034354
034360

004737
104024

045424

0343ue
034370
034372
034376

023737
001403
005237
000742

0013S2

034400
034404

004737
104024

034406
034412

005037
005737
000177

034430
034430
034434
034442
034444

005237
032777
001315
000137

o34450
o344S0
03445y
034462
034464

00Se3?
000137

034470

30R(1052)
T35

PAGE 147
12:08_
25-JAN-78
DECREMENT FROM LAST CYL TO J 8 RERD HERDERS
BEQ

034350
0343s2

034424

MACY11l

72%:

012054

0013s2
7198:

21C

;CERR AFTER SEEK CMD.

JSR
ERROR

PC,SUBCLR
24

;CERR AFTER SCLR

cMP
BEQ
INC
BR

TOCHL,LC
718
TOCYL
70%

{BR_IF YES
;ELSE DO ANOTHER

SR
ERROR

PC,SUBCLR
24

;CERR AFTER SCLR

CLR

SESCAPE

TST

BEQ
738:

001410
001000

108:

144476

033620
001410
001000

129:
144456

;LAST CYL DONE?

LPFLG

73S

9 WRS SET.
;SW

JMP
JMP

@SLPERR
JSLPROR

INC
BIT
BNE
JMP

LPFLG
#SW9, ISUWR
68
cs

INC
BIT

LPFLG
#SW9, ASWR
31

BNE
JMP

034106

72$

ERROR

SEQ 0147

‘SW 14 OR B WAS SET

:LOOP ON ERROR?

'YES, RECONDITION DRIVE
'RETURN TO MRINLINE
:LOOP ON ERROR?

:YES,

RECONDITION DRIVE

IRETURN TO MAINLINE

13%:
o 363696 36 36 36 3 36 36 36 36 36 3 36 36 36 36 3 36 36 36 36 36 3 36 36 38 3% 3 36 36 3% 3 3 3¢ 36 3 38 3 36 3 28 3 36 36 3 3 36 30 3 3k 3 3 3 36 3 3¢ 36 34 3 3 3 2

’firssr 36

SEEK FROM CYL O TO ALL MARJOR CYLS & READ HERDERS

THIS TEST SEEKS FROM CYL O TO ALL THE MARJOR CYLS 8 RERDS HERDERS.
IT THEN SEEKS CYL O 8 READS HERDERS.

MAJOR CYLS ARE:

(DECIMAL)
2

NNNNNNNNYN
NNNNNNNNN

034470

000004

(OCTAL)
2

8
16
32
BY
128
256
512

;I
;!
;l
;l
i B
;l
;l
,l

$&T36:

YITYTIIIRTSIIIR SIS IS ISTII RSS2SR 2SI

SCOPE

10
20
40
100
200
400
1000

(RKO7)

222222232 22 2 2

CZR6EHED UNIBUS RKE DR PRTI
CZREHE .PL]
25-JAN-78 12:00

MACY11l

Fl2

30AR(1052)
2S-JAN-78
12:08
PRAGE ! 48
T36
MRAJOR CYLS
SEEK FROM CYL 0 70 ALL
AL

034472
034S00

Q12737
012706

000001
001100

001174

MOV

csfncx SP

034504
034512

013737
013737

Q12072
012074

001350
0013Se

MOV

FC,FRCYL

034s20
034520
034522

104418
012706

034526
034532

034534
g34s42
034550
034556
03456M4

MOV
19:

;SETUP FROM CYL

FCP1, TOCYL

:SETUP TO CYL
:RESTORE

004737
104024

o4s42y

JSR
ERROR

P, SUBCLR
24

: CERR AFTER SCLR

012737

036e4e

Q34e4e
034646

PTR

MOV
MOV

suB
MOV

FRCY(,TEMP3
TOCYL) TEMPY

TEMP3, TEMPY
TEMPY. CALDIF

'FOR
JERROR PRINTOUT

000020

MOV

TOCYL,RKDC(RS)

;GO TO CYL

000017
o43434

003322

MOV

030140
003414
003720
000001

003412

JSR
ERROR

003416
oo3420

o44252

036262
001426

o44252

aow
205
206
8128, SESCAPE

: CHECK nscs RO, B0,R1,81

SGS SPECIFIED HERE

sMSG A0 tnnoa ounxnc SEEK CMD

:MSG BO
ERROR
'MSG Al ERROR
iMSG Bl ERROR

JSR

PC,FATT2

BIT
BEQ
ERROR

#CERR, HCS1
64$
210

003412

QEX

g<goosc D.SPIN!D.onov-gE
v!ID.
DRS),E.AR0

003416
003420

MOV

sl E.81

ERROR

003322

648

000003

Aa'T.82'0

150000, TEMPL

034714
0S0240

MOV

PC, CHKMSG

MOV

044140
100000

;D0 SEEK CMD 8 GET CONTR RERDY
:NO ROY AFTER SEEK CMD

8¢D.FWD'D.SPOK!D.CART!D.DOOR!
0. BRHM!D.SSP> ,E. Al
JE.BI

ERROR

cs:

MOV
MOV

001176
003360

#SEEK , HCS1

PC, 0o¢MD
13

; SETUP
:CYL DIFF

£<80PIP'D SPIN'D.VV!D.DRA> ,E.AD ;EXPECTED RO

WORD

034656

810S, SESCAPE

EEX

ERROR
ERROR
ERROR
012737

STK

001176
003364
003366
003366
001360

034654

034762
034766

ITERATION

#STACK, SP

MOV

003424
003430

MOV

:SETUP

TIMEOUT

:FIND ATT

INO ATTN nrrea SEEK CMD
; CERR AFTER SEEK CMD

#<D.SPOK!D.CART! b DOOR'D. BRHH'D SSP> ,E.A

;EXPECTED MSG RO

MSG 1D FOR EXPECTED' nsc Bl

CLR
MOV
MOV

E.A2
#2,E.B2
$3.E.B3

*EXPECTED MSG Re
'MSG ID FOR EXPECTED MSG B2
:MSG ID FOR EXPECTED MSG B3

JSR

PC,

: CHECK MSGS RO,B0,Al

LWORD

CHKMSG

T.A2'T.B2!0

SEQ 0148

HEARDERS

hssrone STK PTR

MOV

034600
034606
Q34612
034614
03422
034626
034634

034714
Q34722
034726
034734
034742
034746
034754

RERD

001100

034572

034660
034666

SCOP1

STIMES

.8 MSGS sbectrxso HERE

:EXPECTED Al

CZREHED UNIBUS RK& DR _PRTI
2S-JAN-78 12:00

P 11
CZRBH.E

MARCY11l

Gle

12:08
PRGE 149
30A(10S2)
25-JAN-78
T36
SEEK FROM CYL O TO ALL MAJOR CYLS & REARD HEADERS

ERROR
ERROR
ERROR
ERROR

3477
3477
034774

8 4?7?72

TST
BEQ
ERROR

001362

SO
035004
035006

100000
00lz222
000005
043434

035010

000401
104154

e Pt Pt
e
e P
e

oNoNLwWn

o
T
O£
TN
OO0
NEE
£VE
£Iw
OO
wWwhme
=
noee
O

012737
805037
12737
012737

7819

035ee2

133
134
135
136

;MSG
;
;MSG
;MSG

137

;CYL DIFF NOT CLERRED RFTER SEEK CMD

CYLDIF
65$

RO ERROR AFTER SEEK CMD
ERROR
BO
Al ERROR
Bl ERROR

65%:

03s010

7811

SEQ 0149

a13337
012737

004737
000003

MOV

000000
000010
003322

668

010340

000002

000003

104415
012706

004737
104024

668

ERROR

003416
003420

003424
003430

MOV

o44252

001364

MOV
CLR
MOV
MOV

003412

001352

33:
001100

o4sS4a4y

000c20

001674
000025
o43472

003322

100000

003322

;DRIVES

;00 DRIVE CLERR CMD & GET CONTR RDY

NO_RDY RFT%R DRIVE CLEARR CMD

$s
C, TSTARTN

;TEST FOR ATT

1S4

;ATTN NOT CLERRED AFTER DRIVE CLERR CMD

#<0'D.SPIN'D.DRDY!D.VV!D.DRA>,
EORO

; EXPECTED MSG RO

CLR
MOV

E.Al
o<gsgox-o CART! b2853SRHH'S SSP>, MSG
81
ID FOR EXPECTED'
AE
EXPE TE
82,E.B2
. gD POR EXQSCTED MSG B2
83
E.B3

HSG ID FOR EXPECTED MSG B3

JSR

PC, CHKMSG

: CHECK MSGS R0,B0,A

RROR
RROR
ERROR
ERROR

73
65
74
266

nsg ng ERRSR RFTER DRIVE CLERR CMD
iMSG A1 ERROR
iMSG Bl ERROR

CMP
BEQ
ERROR

CYLADD, TOCYL
33
207

:CYL ADDR IN RKMR3 NOT=RKDC

SCOP1
MOV

#STACK,
SP

;RESTORE STK PTR

SR
ERROR

PC, SUBCLR
24

;CERR AFTER SCLR

CLR
MOV

$ESCAPE
TOCYL,RKDC(RS)

;CYL

MOV

o<RoH£ho> HCS1

_WORD

104266

023737
00140
10420

SUNIT RKCS2(RS)
#CLEARR, HCST
PC,DOCHD

ERROR
JSR

o44012

#CCLR,RKCS1(RS)

MOV
MOV
JSR

MOV
JSR

ERROR
BIT
BEQ

T.A2'T.B2'0

; EXPECTED R!

-8 MSGS Psctrrs HERE

SRHTAB

PC DATCMD'

17
#CERR, HCS1
68%

;00 DATA XFER CMD 8 GET CONTR RDY

:NO RDY AFTER RERAD HERDER CMD

CZRBEHEOD UNIBUS RK& DR PRTI
CZRGHE. Pll
25-JAN-78 12:00

0352e4
035226
035232

104174
104401
000137

056235
o4ee62

035236
03524e
035246

016520
016520
016520

000024
000CeH4
000024

032765
001407

100000

284733

832313

056235
o42e62

023737
001401
104310

001674

104415
012706

035320
035324

004737
104024

H12

30A(10Se2)
12:08
PRGE 1S0
25-JRAN-78
T36
SEEK FROM CYL O TO ALL MARJOR CYLS 8 RERD HERDERS

ERROR
TYPE

689%:

012737

RBORT BALANCE OF TESTS
:ABORT DRIVE

+1’ST WORD FROM SILO TO RHTRB

MOV

:2'ND WORD
:3'RD WORD

MOV
MOV

r
ggscsrn
%5
MSG18

699%:

$eOP

;OLT AFTER RERD HERDER CMD

:ABORTING BALANCE OF TESTS
:ABORT DRIVE

;CHECK WORD O (CYL#) ONLY

RHTAB, TOCYL
67$
310

{READ CYL WORD HERDER ERROR

001100

SP
#STACK,

;RESTORE STK PTR

045424

PC,SUBCLR
24

; CERR AFTER SCLR

001352

679:

Fficvts5583PES)

FRCYL,CCYL

$SEEK , HCS1

000017

gz
gias: Qiers 883418
08”7
7

;CERR _RFTER READ HERDER CMD

#DLT,RKCS2(RS)

000010

G 815788 S
035350

174

JMP

o4s074

104401
000137

035314

MACY1l

PC,DOCMD

043434

035376
035404

012737
012737

005720
000001

035412
035416

004737
000003

o442se

BR IF SAME

;sRETURN TO CYL &

i CURRENT CYL FOR TRUERROR ROUTINE
DO SEEK Cflg 8 GET CONTR RERDY
NO RDY AFTER SEEK CMD

oo3412

bPIP D.SPIN! D VV!D.DRA> ,E.RD ;EXPECTED RO

003416
003420

sl,E

.(D.REY!D.SPOK!D.CRRT!D.DOOR!D.BRHH!D.SSP>,E.Rl

PC, CHKMSG

T.82'T7.82'0

-8 MSGS sPec!rxso HERE
:MSG
RO
tnnon
DURING SEEK CMD
'MSG BO ERROR
; CHECK nscs RO, B0,
A

'M5G A1 ERROR

:MSG Bl ERROR
035430
035436

036322
001426

832450

O44140

035452
035460

100000

48:

003322

#16$, SESCAPE

150000, TEMP]

;:SETUP

PC,FATT2

;FIND
R

132

8CERR, HCS1

708

TIMEOUT

:NO RTTN RFTER SEEK CMD

SEQ Q180

CZRGHEDC UNIBUS RK& Dn PRT]

CZRGMHE . P11
7890

25-JAN-78 12:00

3335

035464

035462

104210

7833
7894

03S46M
035472

012737
005037

0SO0340
003414

7896

035504

012737

035516

012737

MACY11 30A(1052)

T36

035512

;ggg

035524

7838

005037

012737

7901

035532

004737

7905
7906

035544
035546

104135
104136

7902

035536

000003

7903 035540 104133
7904 035542 104134
7907
7908

035550
035554

;g{é

035560

7913

035560

;393

035556

005737
001401

003412

MOV
CLR

#<D.DSC!D.SPIN'D. onov'o VWID.DRA> ,E.A0
£.80
XPECTED MSG

000001

003420

MOV

81, E.8B1

000002

003424

012765

013765
012737
004737
104151

7919

035614

000401

7920

035616

003422

000003

MOV

044252

#3 E.B3

nsc ID FOR

JSR

PC, CHKMSG

; CHECK nscs RO, B0, AL ,Bl

ERROR
ERROR

134
135
136

:MSG Al ERPOR
*MSG Bl ERROR

137

:CYL DIFF NOT CLERRED AFTER SEEK CMD

ERROR
ERROR
TST
BEQ

ERROR

004737

100000

001222
000005
043434

000000

MOV

000010
003322

MOV
MOV
JSR
ERROR

044012

104154

:ATTN NOT CLEARRED RFTER DRIVE CLEAR CMD

MOV

7925

035632

012737

001720

003416

MOV

(035646

00S037

003422

035660

012737

000003

035666

004737

044252

035676
035700

104265
104274

;ggg
7931

005037
012737

012737

7932
7933

035672
035674

;ggg

035702

104266

7938

035704

023737

;g:g

035714

104243

7934
7935

7939

7942
7943

7944

(035712
035716
035716

035720

000003
104273

001401

104415

012706

728:

003414
000001

000002

01063420
003424

MOV

¢1 E.Bl

:MSG 1D FOR EXPECTED’MSG Bl

001100

#<D.SPOK'D.CRRT!0.DOOR!D.BRHM! D. SSP> ,E.Al

CLR

E.A2

MOV

83 E.B3

nsc ID FOR EXPECTED MSG B3

JSR

PC, CHKMSG

: CHECK MSGS RO,B0,A1,Bl

ERROR
ERROR

ass
274

CMP

CYLADD, FRCYL

ERROR

243

:CYL ADDR IN RKMR3 NOT=RKDC

#STACK . SP

:RESTORE STK PTR

BEQ

5§:

TED MSG’BO

sEXPECTED MSG RO

. WORD
ERROR

001350

#<0'0.SPIN!D.DROY!D. vv-o DRA’ ,E. RO

E.B80

ERROR
001364

724

CLR

MOV

003430

8CCLR,RKCS1(RS)

SUNIT RKCS2(RS) ;DRIVES
#CLERR, HCS1
PC, DOCMD
:00 DRIVE CLERR CMD & GET CONTR ROY
161
'NO RDY AFTER DRIVE CLEAR CMD
1S4

003412

035652

MSGS SPECYFIED HERE

:MSG
RO tnnonRFTER SEEK CMD
:MSG BO ERROR

ERROR

010340

7927

CYLDIF
718

XPECTED MSG B2

EXPECTED M3G B3

:TEST FOR ATTN

012737

7928

Aa'T.82'0

MSG A2

MSG 1D ron

PC,TSTATN

035620

035640

#2,E.82

JSR

7923

7926

:EXPECTED Al

MOV

035620

035606

gFOR EXPECTED’ nsc Bl

EXPEC

;ggé

7924

8<D.SPOK'D.CART! b ooon 0.BRHM!D.SSP> ,E.R

;EXPECTED MSG RO

E.A2

. WORD

001362

;CERR AFTER SEEK CMD

CLR
MOV

003430

SEQ 0181

718:

035566k
035574
035602
035606

035610

PRGE 1Sl

SEEK FROM CYL O TO ALL MRJOR CYLS 8 RERD HERDERS
210

104137

7914
7915
7916
7917

7918

I12

12:08

ERROR

708 :

7895 035476 012737 001720 003416
7897

25-JAN-78

SCOPI

MOV

82,E.82

Aa-T.82'0

266
3

;EXPECTED Al

EXPECTED MSG R2

MSG 1D FOR EXPECTED MSG B2

-8MSGS SPECIFIED
H
EE
:MSG AQ ERROR AFTER DRIVE CLEAR CMD
*MSG BO ERROR
‘MSG Al ERROR
:MSG Bl ERROR

004737
104024

035732
035736

005037
013765

035744
0357S0
035756
035762
835794
35772
035774
035776
036002
036006
036012
036016

036022
036030
036332
036036
036040
036044
036050

MACY1l

30R(10S2)
T36

o4S424

000020

[N]
~N

25-JAN-78

PC,SUBCLR
24

;CERR AFTER SCLR

CLR
MOV

SESCAPE
FRCYL ,RKDC(RS)

;CYL

036050
036056
036060
036062

023737
G01401
104311

001674

036062

023737
001404
006337
000137

001352

004737
000S1S

047430

SEQ 3182

SRHTAB, RO

8 CRDHEAD>, HCS1
Pglon cMp’

003322

#CERR, HCS!

74$

748

;00 DRTA XFER CMC 8 GET CONTR RODY

iNO RDY AFTER READ HEADER CMD

174
MSG18

;CERR _AFTER RERD HERDER CMD

RKD

,1 ST NgRD FROM SILO TO RHTARB
W
;2'ND

$E0P

:ABORT BALANCE OF TESTS
;ABORT DRIVE

:3'RD WORD

#DLT,RKCS2(RS)
7SS
PC,GSTAT

000010

045074
056235
o42662

152

JSR
ERROR

003322

000024
000024
000024

104401
000137

PAGE

SEEK FROM CYL O TO ALL MRJOR CYLS & RERD HERDERS

056235
042662

100000

J12

12:08

173

MSG18

$c0P

75%:

RHTAB, FRCYL
73%
311

001350
73%:

TOCYL,MC

012060

001352
034520

6%:

;DLT AFTER READ HERDER CMD

:ABORTING BALANCE OF TESTS
:ABORT DRIVE
;CHECK WORD O (CYL#) ONLY

iBR_IF SAME
{READ CYL WORD HEADER ERROR
;ALL _CYL DONE?

{BR_IF YES
:ELSE DO ANOTHER
sse IF SW 14 OR 8 IS SET
T0 NEXT

TEST

hsrunn HERE IF SW 14 IS SET OR

036110

'S 8 WITH SWR ¢7:0> APPLY

8s:

036110
036114

004737
104024

o45424

036116

013765

001352

000020

036124
036132
036136

012737
oQ4737
104131

000017
043434

003322

768:

JSR
ERROR

PC,SUBCLR
a4

;CERR AFTER SCRL

MoV

TOCYL ,RKDC(RS)

sCYLs

MoV
JSR
ERROR

PC,DOLMD
131

#SEEK, HCS1

;D0 SEEK CMD & GET CONTR RERDY

iNO RDY AFTER SEEK CMD.

’ .“

035724
035730

73946

000
C)o-»—OC)fi-SDD
=
O0000Wo
o O.::»—rg.: Lnon

CZRGHED UNIBUS RKb DR _PRT]
. P11
25-JAN-78 12:00
CZREHE

CZREHED UNIBUS RK& DR PRTI1
CZRBHE .P11
25-JAN-78 12:00

Pt Pt Pt Pt Prat Pt Pt P
P

DO NN LW

0000 00 CD D €D (D O
000000000

036140

013737

003360

MOV

100000

003322

ERROR
BIT
BEQ

13
8CERR, HCS1
78$

JSR

PC, SUBCLR

;CERR AFTER SCLR

cMP
BEQ
DEC

TOCYL,FC
77$
TOCYL

sLAST CYL DONE?
'BR_IF_YES
'ELSE DO ANOTHER

036166
036172

004737

o4s4ey

036174
036202

0013S2

036204
-36210

023737
001403
005337
000742

o3e2le
036216

004737
104024

788 :

012072

001352
77%:

JSR

798 :
109:

142664

034660

001410
001000

Lus

035146
001410
001000

035430
001410
001000

$ s S0

000004
012737
012706

036356
03e3e2

005737
001402

PC, SUBCLR

798

JSLPERR
JSLPADR

INC

LPFLG

JMP

BIT
BNE

#SW9, ISWR
83
LPFLG

BIT
BNE

#SW9, ISWR
8%

INC

LPFLG

BNE

JMP

:NO ATTN AFTER SEEK CMD

;CERR AFTER SCLR

k13

#SW9, ISWR

IMP

INC

LPFLG

8SWS, ASWR
8%

:SW 9 WRS SET.
;SW i4 OR B WAS SET

:LOOP ON ERROR?
:YES, RECONDITION DRIVE

'RETORN TO MARINL INE

:LOOP ON ERROR?
:YES, RECONDITION DRIVE

:RETURN TO MAINLINE
:LOOP ON ERROR?

:YES,

RECONDITION DRIVE

:RETURN TO MAINLINE

;LOOP ON ERROR?
:YES, RECONDITION DRIVE

‘RETURN TO MAINLINE

06 06 06 0606 30 06 0000 0606 06 36 06 06 36 0006 6 30 30 30 00 0 36 30 06 6 36 36 00 0 36 0600 3636 30 30 0 36 00 06 3 36 3600 00 6 34 00 0 o

SEEK TO ALL CYLS FROM O & READ HEADERS

S o 33033330 06 0 36 00 30 30 36 30 36 06 06 06 606 36 06 36 06 06 0 0 36 36 36 06 36 00 0698 30 30 3600 06

000001
go1100
001342

001174

t5§137:

SEQ 0183

LPFLG

JMP
IMP

:&TEST 37
036342
036344
036352

768

BEQ

IMP

035716

;CERR AFTER SEEK CMD.

SESCAPE

BIT
BNE

142604

210

CLR

BIT

1426eM

sFIND ATTN

INC

142644

150000, TEMP1

PC,FATY2

ERROR
TST

005237

036336

ERROR

B8R

005037
005737
001402
000177
000177

00S237
032777
001265
000137

JSR

ERROR

104210

8020

Kle

30A(10S2)
25-JAN-78
12:08
PAGE 153
136
SEEK FROM CYL O TO ALL MRJOR CYLS 8 READ HEADERS

001426
o44140

036164

104024

MRCY1l

ScoPe

6 36 336 36 3006 3 36 06 H

MOV

sStack, sP

81,STIMES

::00 1 ITERATION

157
BEG

MODTST
DOSEEK

sSEE IF MODULE TESTING
:BR IF NO

MOV

;RESTORE STK PTR

MM RN

cznsuso unxaus RK&6 DR PRTI

CZRBHE . P

80S8

gggg
8061

25-JAN-78 12:00

036364

000137

036370

MACY1l 30A(1052)

137

042164

gggg

036376

036370

013737

8064
8065

036404
036404

036406

10441S

012706

001100

8068
gggg

036412
036416

004737
104024

04S42Y4

807

Sgsugg 815737 001533 885354

12737

036434
036442
036450

013737
163737
013737

gg;g

036456

8079

036464

ggg;

8073
8074
8832

8080
8081
808

808
8084
gggg

8087

036472
036476
36500
36506
036512
036520

013737

8090

gggg
8094

176

MOV

001352
003364
003366

003366
003366
001360

MOV

MOV
SUB
MOV

5 52

TOCYL TEMPH
E
TEMPY anoxr

:CYL DIFF
:FO
'ERROR PRINTOUT

013765

001352

000020

MOV

TOCYL,RKDC(RS)

;GO TO CYL

012737

000017

003322

MOV

030140

003412

00S037
012737
012737

104206

043434

003414
003720
000001

CLR
MOV
MOV

44252

JSR

040146

8097

036560

004737

044140

8099
8100
8101
gigg

036566
036574
036576
036600

032737
001401
104210

100000

8104
810S

036600
036606

012737
005037

0S0340
003414

003412

8107
8108

036620
036626

012737
005037

000001
003422

003420

gi{?

036640

012737

000003

001426

001176

093360

2%:

6YS:

004737

8113 036652 000003

044252

206

812, SESCARPE

fSs SP t?*so HERE
;MSG RO tRRoa ounxnc SEEK CMD
.nsc B0 ERROR
:MSG Al

ERROR

TIMEOUT

iMSG Bl ERROR

JSR

PC,.FATT2

:FIND_ATT

BIT
BEQ
ERROR

8CERR, HCS1
6YS
210

:CERR RFTER SEEK CMD

MOV
CLR

#<D.DSC!D.SPIN!D. DRDY‘D VV!D.DRA> ,E.A0
.80
XPECTED MSG B

MOV
CLR

sl _E.BI
E.A2

MSG ID FOR EXPECTED' MSG Bl
EXPECTED
MSG A2

MOV

#3.E.B3

nsc ID FOR EXPECTED MSG B3

PC, CHKMSG

s CHECK nscs RO, B0,
A

MOV

003430

204

: CHECK MSGS RQ,B

sSETUP

8109

003424

3'0

150000, TEMPI

MOV

000002

HKHS

MOV

8106 0366l 012737 001720 003416
012737

E.BO
#<D.FWD'D.SPOK'D.CART!D.DOOR!D.BRHM!D.SSP>
,E. Al
s1,E.Bl1

20S

ERROR

003322

: SETUP

#SEEK , HCS1

ERROR

MOV

SESCAPE

PC,DOLMD
;00 SEEK CMD 8 GET CONTR RERDY
13}
NO RDY AFTER SEEK CMD
s<o PIPID.SPIN!D’ VW!ID. DRA> ,E.AD ; EXPECTED RO

ERROR

012737

#10$,

. WORD
ERROR
ERROR

104205

104132

SCOP1

JSR
ERROR
MOV

003416
003420

013737

036646

:SETUP FROM CYL

;CERR ARFTER SCLR

036552

8112

FC,FRCYL

PC, SUBCLR
24

040

SEQ O1SY4

:ELSE BYPRSS TESTS 40 8 41

JSR
ERROR

036542

036632

CYLINV

;RESTORE STK PTR

104204

036564

MOV

MOV
18:

8832
8098

IMP

#STACK, SP

036536

036544

154

MOV

036540

001350

001352

PAGE

SEEK TO ALL CYLS FROM O & RERD MERDERS

'SETUP TO CYL

004737
104131
012737

0120674

L12

12:08

FCP1, TOCYL

8088 83&?33 88003
8089 036534 104203
8031

012072

DOSEEK:

25-JAN-78

JSR

_WORD

132

:NO ATTN nrrsn SEEK CMD

;EXPECTED MSG A0

$<0.SPOK!D.CART! b oooaio BRHM!D.SSP> ,E.Al
82, E.B2

T.A2!'T.B2'0

ID FOR EXPECTED MSG B2

MSGS sfiscirxso HERE

:EXPECTED Al

CZR6HEOD UNIBUS RK& DR PRTI1

CZR6HE.P11

25-JAN-78 12:00

036654

104133

8119

036670

001401

gisg

036674

MRCr11l

30R(10S2)

137

25-JAN-78

Ml2

12:08

PAGE

155

SEQ 0185

SEEK TO ALL CYLS FROM O & RERD HERDERS

ERROR

133

BEQ

658

:MSG RO ERROR AFTER SEEK CMD

Siis
Gaterd 305737
|Rii% 001362
8118 gasssq

(RRGR
{32
TST CYLDIF

gig?

ERROR

:CYL DIFF NOT CLEARED AFTER SEEK CMD

8124

036672
036674

104137

012765

100000

8125
8126
8127

036702
036716
357%3

013765
012737
004737

001222
000005
043434

8129

036724

004737

044012

8131

036732

exag

8130
g{gg

8134

367

036730
036734

000401

JSR

PC, TSTATN

EST FOR

154

;RTTN NOT CLERRED AFTER NRIVE CLEAR CMD

ERROR

15}

66$

CLEAR

MOV

CLR

E.80

8135
03768 Dbenys 9390 Oo3ue0
axgq 36766 012737 000002 003424

or
MOV

elas®
82, E.B2

{ExPeLeD
ARGEXCECTED"HSG 81
MSG 1D ron EXPECTED MSG B2

JSR

PC, CHKMSG

;s CHECK MSGS no BO,
A

(36742

005037

8136 036746 012737
giz?

036774

010340

8CCLR, RKCS1(RS)

$UNIT RKCS2(RS) ,onxvso
8CLEAR, HCST
PC . DOCHD
nxvs?E ?ng s TR RDY

ERROR

104154

012737

MOV

MOV
MOV
JSR

003412

8135

036734

6 4161

000000

000010
003322

137

003414

001720 003416

012737

000003

8143 037002
037006 004737
000003
8144
037010
104273
8145
037012
104865

044252

8142

8146

037014

037016

104266

8149
8150

037020
037026

023737
001401

8153
8154

037032
037032

g{:g
S{Eé

037030

003430

MOV

WORD
RROR
RROR

104274

ERROR

ERROR
001364

001352

104207

104415

MOV

CMP
BEG

ERROR
SCOP1

#¢0'D.SPIN'D. onov o vV!D.DRA> ,E. RO

5 s MSG' BO

#<0.SPOK!D.CART! b DOOR!D.BRHM!D.SSP> ,E. Al

%3 E.B3

T.A2'T.B2!0
273
265
749

66
CYLADD, TOCYL
33

-8MSGS skectrlsD HERE
ng EnngnAFTER DRIVE CLEAR CMD

nsc Al ERROR

‘MSG B1 ERROR

207

:CYL ADDR IN RKMR3 NOT=RKDC

;RESTORE STK PTR

037034

012706

001100

MOV

#STACK, SP

8157

037040

004737

045424

JSR

PC, SUBCLR

:CERR AFTER SCLR

8160
S{Eé

037046
037052

005037
013765

001176
001352

CLR
MOV

$ESCAPE
TOCYL,RKDC(RS)

;CYL #

037060

012700

001674

MOV

#RHTARB, RO

8163
8164

8165
8166
8167

8168
8168

037044

037064
037072
037076

037100
037106

104024

012737
004737
104171
032737
001405

ERROR
000020

000025
043472

003322

100000

003322

MOV
JSR
ERROR
BIT
BEQ

o<noHEho> HCS1
PC DATCMD'
ucsnn,ucsx
689

s EXPECTED )13l

nsc 1C FOR EXPECTED MSG B3

3i§§
gigg

sEXPECTED MSG RO

:00 DATR XFER CMD 8 GET CONTR RDY
!NO RDY AFTER READ HERDER CMD

CZR6EHEOQ UNIBUS RKE DR _PRTI
25-JAN-78 12:00

820e

NN NP ma‘mm::g
0oL
L

104174
104401
000137

056235
o4eesbe

016520
016520
016520

000024
000024
ooo024

032765
001407
004737
104173
104401
000137

100000

023737
001401
104310

037176
037200

104415
012706

037204
037210

004737
104024

ocLnNE

el oy

Y ST

0000
0000000
WWwWwWw
WwwWwww
NNNN O NNNINNNYNY

0 DD DD v DD 100D 00 £ 0 D 0 00 s02 0 0 0NN
00 3 NN 0NN
0

00 00 G0 0000 a0 D 0D (D a0 0D 0D /0D 000 4D (D 0D (0 0O (D (D (D €D 0D CD €D 00 D (D KD D

’—D\D(D\JCPUI-EUND—O\.D(D\JU‘U\IUNO—QsD(D\)U"U'lJUNb—(\D'

CZRBHE.P11

MACY11l

Nle

30A(1052)
25-JAN-78
12:08
PAGE 156
137
SEEK TO ALL CYLS FROM O & RERD HERDERS

o4s074

OvoNCNILWN

m.—.—....—p- [ Sy Sy

:ABORT BALANCE OF TESTS
{ABORT DRIVE

MOV
MoV
MoV

:2'NDWORD
:3’RD WORD

;1’ST WORD FROM SILO TO RHTAB

173

MSG18

056235
o42662

69%:

$E0P

;OLT AFTER READ HEADER CMD

:ABORTING BALANCE OF TESTS
:ABORT DRIVE

RHTAB, TOCYL
67
310

;CHECK WORD O (CYL#) ONLY

001100

#STACK,
SP

;RESTORE STK PTR

o4s424

PC,SUBCLR
24

; CERR RFTER SCLR

001674

0013s2

679%:

037212
037220
037226

001176
000020
001354

037234

003322

8148, SESCAPE

FRCY(, RKDC (RS)
FRCYL| CCYL
#SEEK, HCS1

PC oolmp

iBR_IF SAME
RERD CYL WORD HERDER ERROR

;RETURN _TO CYL

{CURRENT CYL FOR TRUERROR ROUTINE
;D0 SEEK CMD & GET CONTR REARDY

:NO RDY AFTER SEEK cMD

8<D.PIP!D.SPIN!D.VV!D.DRR) ,E.RD ;EXPECTED RO

E.BO

I<D.REY.D.SPOK!D.CQRT.D.DOOR!D.BRHH!D.SSP),E.Ql

003416
003420

037270
0000 a0 0D 0D 0D A0 QO
[V IAVIA VIV o Vg VI F14 V] ¥

TYPE
JMP

#DLT,RKCS2(RS)
698
PC,GSTAT

oooo10

oo3412

8221

; CERR_RFTER RERD HEADER CMD

ERROR

68%:

SEQ 0156

PC, CHKMSG

037276
037302

T.A2'T.B2!'0

A
: CHECK nscs RO, B0,

-8 MSG5 sbsctr:so HERE
:MSG RO ERRORDURING SEEK CMD

:MSG BOERROR
'MSG Al ERROR
iM5G Bl ERROR

037312

037314
037322

040206
001426

037330
037334
037336
037344

O44140

100000

001176
003360

003322

#16$, SESCAPE

150000, TEMPI

;SETUP

Tg FATTZ

;FIND
R

8CERR,HCS1
70%

TIMEOUT

:NO RTTN QFTER SEEK CMD

CZREHED UNIBUS RK& DR_PRT]
CZRBHE.P11
2S-JAN-78 12:00

037346
037350

104210

373
373

86g737

012737

837402
037410

037416

5037

005037
012737

MACY11l

B1l3

30A(10Se)
25-JAN-78
12:08
PAGE 157
137
SEEK TO ALL CYLS FROM O 8 READ HEADERS

70$:

050340

003;19
001720
000001
003422
000002
000003

004737
000003
104133
104134
104135

044252

p0S737

001362

:CERR AFTER SEEK CMD

MOV

003416
003420

MOV
MOV
CLR

#¢D.SPOK'D. cnRT-b oooa D.BRHM!D.SSP> ,E.Al
%1, E.BI1
g FOR EXPECTED MSG Bl
E.A2°
sxpec ED MSG A2

JSR

_WORD

ERROR
ERROR

CLR

MOV
MOV

003424
003430

TST

BEQ
ERROR

037444

#<D.DSC'D.SPIN!D.DRDY'D.VV!D.DRA> ,E.A0

;EXPECTED MSG RO

E.BO

:EXPECTED MSG 8O

82,E.B2
83 E.B3

G 1D FOR EXPECTED MSG B2
sc ID FOR EXPECTED MSG B3

PC, CHKMSG

T.A2'T.B2!0

cuecx MSGS A0,B0,Al

133
134
135
136

;MSG RO ERROR AFTER SEEK CMD
:MSG BO ERROR

:MSG A1 ERROR
iMSG Bl ERROR

718
137

sCYL DIFF NOT CLEARED AFTER SEEK CMD

CYLDIF

;EXPECTED Al

8 MSGS PsctFIEo HERE

71%:

037444

S
S

100000
00l222
00000S
O43434

o44012

MOV

000000
000010
003322

729%:

010340
003414

737

044252

023737

o
(=]
[N
£
n
n

000003

NNO

8 G
~N

012737
5037

037602
037602
037604

210

oo3412

037442

037570
037576
037600

ERROR

SEQ 0157

001364

SUNIT RKCS2(RS) ;DRIVE®
#CLEAR, HCS1
PC,DOCHD
;D0 DRIVE CLEAR CMD & GET CONTR RDY
151
NO RDY nrr§n DRIVE CLEAR CMD
;gtTSTRTN
'TEST FOR ATT

ERROR

154

003412

MOV

003416
003420

MOV

003424
003430

001350

001100

sATTN NOT CLEARED AFTER DRIVE CLEAR CMD

#<0'D.SPIN!D.DRDY!D.VV!D.DRA>,E.AD

;EXPECTED MSG RO

CLR
MOV

E.B0
. EX
PECTED MSG' BO
#<D.SPCK'D.CART'H._DOOR! 0. BRHM!
D.SSP> ,E. Al

CLR
MOV
MOV

E.R2
$2 E.B2
#3.E.B3

'EXPECTED MSG R@
:MSG ID FOR EXPECTED MSG B2
‘MSG 1D FOR EXPECTED MSG B3

JSR

_WORD

PC, CHKMSG

:CHECK MSGS R0,B0,A1,B

ERROR

273

ERROR

265

:MSG RO ERROR AFTER DRIV E CLEAR CMD

274

‘MSG Al ERROR

81 E.BI

T.A2'T.B2'0

ERROR

266

CMP
BEQ

CYLADD, FRCYL
Ss

ERROR

S%:

8CCLR, RKCS1(RS)

MOV
MOV
JSR
ERROR
égn

SCOP1

MOV

iMSG _ID FOR EXPECTED’MSG Bl

<3 MSG Psctrr HERE

,nsc B0 ERROR

:MSG Bl ERROR

243

:CYL ADDR IN RKMR3 NOT=RKDC

¥STACK, SP

;RESTORE STK PTR

s EXPECTED Al

CZR6HED UNIBUS RK& DR PRT]
. Pll
CZREME
25-JAN-78 12:00

037610
037614

004737
104024

037616
037622

005037
013765

W WWwwWwWwwww

Pt Pt Pt Pt s Pt Pt Pt Pt Pt

WO NTNLWN—O

000020

001674
00002s
043472

003322

037650

100000

003322

104401
000137

056235
042562

037672
037676
037702

016520
016520
016520

000024
000024
000024

037706

03276S
(01407

100000

0047;7
104173
104401

000137

037746

03;;fl6

03778

037762
037766

023737

001352

000137

001352
036404

PC, SUBCLR
24

;CERR RFTER SCLR

CLR
MOV

SESCAPE
FRCYL,
RKDC (RS)

;CYL

MOV

JSR
ERROR
BIT

BRlor
TYPE
748

000010

75$:

001350
73%:

012054

eS:

Q47430

ATA XFER CMD & GET CONTR RDY
DY RFTER READ HEARDER CMD

ocsRR,Hcsx

MSG18

$eoP

MOV
MOV
MOV

RKDB(RS), (RO)+
(RQ) +
|RS)
RKDB(
(RO)+
RKDB(.RS)

BIT
BEQ
JSR

#DLT,RKCS2(RS)
758
Pg GSTAT

TYPE

SRHTAB, RO

o<noH§ho> HCS1

IMP

ERROR

056235
ouesese

001674

JSR
ERROR

MOV

04s074

023737
001401
104311

8377%2 800818

Cl3

30R(10S2)
25-JAN-78
12:08
PAGE 158
137
S EEK TO RLL CYLS FROM 0 8 REARD HERDERS

o4s424

7630
03?634

837848

00 o1]
(0 0D 0D 00 GD 0D (DD (D

MACY1l

173

MSG18

;CERR_RFTER RERD HERDER CMD

:ABORT BALANCE OF TESTS
:ABORT DRIVE

1’ST WORD FROM SILO TO RHTAB

'a NO WORD
; 3'RD WORD

;OLT AFTER READ HERDER CMD

;ABORTING BALANCE OF TESTS
:ABORT DRIVE

JMP

$§e0P

CMP
BEQ
ERROR

RHTARB, FRCYL
73%
311

;CHECK WORD O (CYL#) ONLY

CMP
BEQ
INC
IMP

TOCYL,LC
X
TOCYL
18

;ALL _CYL DONE?

iBR_IF
YES
:ELSE DO ANOTHER

JSR

PC,SWTST

sss

15td0

iBR_IF SAME
{READ CYL WORD HERDER ERROR

F SW *q
on 8 IS SET
0 NEX

Asrunu HERE xr su 14 IS ssr OR
1Sl B WITH SWR ¢<7:0> APPLY

037774
037774
040000

004737
104024

o4542Y4

040002

013765

001352

000020

g40010
040016
040022

012737
004737
104131

000017
043434

003322

76$:

JSR
ERROR

PC, SUBCLR
24

;CERR AFTER SCRL

MOV

TOCYL,RKDC (RS)

;CYLS

MOV

JSR
ERROR

#SEEK , HCS1

PC,DoOLMD
13]

;D0 SEEK CMD & GET CONTR RERDY

iNO RDY AFTER SEEK CMD.

SEQ 0158

CZREHEOQ UNIBUS RK& DR PRT]
CZRBHE .P11
25-JAN-78 12:00

013737

MACY11l

001426
044140

003360

100000

003322

o4s424
0013Ss2

30A(10S2)

137

MOV

012072

0013se

00s03?7
005737

141000

036544
001410
001000

129:
140760

037032

001410
001000

148:

140740

037314

Cllee
00013

sFIND ATTN
NG ATTN AFTER SEEK

ERROR

210

;CERR RFTER SEEK CMD.

JSR

001410
001000

169%:
140720

037602

;CERR RFTER SCLR

CMP
BEG
DEC
BR

TOCYL,FC
?7%
TOCYL
768

;LAST CYL DONE~?

JSR
ERROR

PC, SUBCLR
24

o40c4e
040246

004737
104024

Sz BRI

000001
001100
o4s424

001174

tST140:

CMD

YES

;ELSE DO ANOTHER

:CERR RFTER SCLR

SESCAPE

TST

LPFLG

JMP
P

ggLP RR
LPADR

;SW 9 WAS
;SW 14 OR

INC
BIT
BNE
JMP

LPFLG
8SW9, ISWR
8%
2$

:LOOP ON ERROR?
'YES,
RECONDITION DRIVE

INC
BIT
BNE
JMP

LPFLG
#5W9, ISWR
8%
33

INC
BIT
BNE
IMP

LPFLG
#SW9, ISWR
8%
4§

INC
BIT
BNE

LPFLG
#5W9, ISWR
gs
S$

79%

000 0 N0 0E 000 0

‘ETEST w0
000004
012737
012706

PC, SUBCLR

JMP
§ 5 BRI

ocinn,ucsx
78

ERROR

BEQ

108:

040206

PC,FATY2
132

CLR

798:

Z22227PP22
RRRoS850 23232228
SRRRSNEFREEESERRD

2222

P
e e
Lo

o40104

réd
¥

150000 TEMPL

SEQ 0159

JSR
ERROR
17
£Q

789%:

004737
104024

D13

25-JAN-78
12:08
PAGE 159
SEEK TO ALL CYLS FROM O 8 REARD HERDERS

SET.
B8 WAS SET

TRETURN TO MRINLINE
;LOOP ON ERROR?

;YES,

RECONDITION DRIVE

'RETURN TO MRINLINE
:LOOP ON ERROR?

'YES,

RECONDITION DRIVE

:RETORN TO MRINLINE

:LOOP ON ERROR?
'YES,
RECONDITION DRIVE

IRETURN TO MAINLINE

IR 0000 00 00 0600 00 00 06 30 0

06 3000 0000 000000 0000 00 000 0000 00 00 0

00000

SEEK TO ALL CYLS FROM LAST CYL & READ HEADERS

030 30030 0 30 0 20038 3008 36 3 36 0 36 3 3% 3 08 3 08 36 36 36 9% 36 3 36 2 36 3 3 36 3 3 3 36 96 36 0 3 9 3 3 2 3 % 3 % % %

SCOPE
MOV

MOV

#StAcK,
sP

81,STIMES

;:00 1

JSR
ERROR

PC, SUBCLR
24

;CERR AFTER SCLR

ITERATION

*RESTORE STK PTR

CZRBHEO UNIBUS RKE DR PRT]
CZRGHE
. P11
25-JAN-78 12:00

013765

012054

000020

012737
004737
104131

000017
043434

0033e2

001426
o44140

003360

Q4314
040316

013737
004737
104132
032737
001401
104210

100000

003322

o4, 20
040. >4

004737
104024

o4S42Y

O403¢c
04033

013737
013737

o40eso

mmgmmmm

[esloelesloelealsolee] [seXoakooToaTooTo
s esXooTos]eo] @®
£fLrrert LLrLrriL£r £
mmp-._...p_g_;_»_._._
@ NN LW — O 0@ NV LW+

MACY1l

g4g34e

30R(10S2)
T40

ELl3

12:08
PAGE 160
25- JAN-78
SEEK TO ALL CYLS FROM LAST CYL
LC,RKDC(RS)
8SEEK , HCS1

PC, DotMD
131

150600, TEMP1

Tg Fatta

#CERR, HCS1
113

8 RERD HERDERS

; QUICK SEEK TO LAST CYL

;D0 SEEK CMD 8 GET CONTR RERDY

iNO ROY AFTER SEEK CMD.
;FIND ATT

:NC ATTN QFTER SEEK CMD

210

;CERR AFTER SEEK CMD.

PC,SUBCLR
24

;CERR AFTER SCLR

LC,FRCYL

:SETUP FROM CYL

001100

8STACK,
SP

;RESTORE STK PTR

PC,SUBCLR
a4

;CERR AFTER SCLR

B4S:

LCML, TOCYL

;SETUP TO CYL

18:

Q40342

O4034Y4

104415
012706

Q40350
040354

004737
104024

ous42Y

Q40356

315737

Q42064
001350

5 SESCAPE

001176
003364
001360

FRCY(, TEMP3
TOCYL) TEMPY
TEMPY| TEMP3
TEMP3, CALDIF

s SE TUP
;CYL DIFF
sFOR
;ERROR PRINTOUT

000020

TOCYL
, RKDC (RS)

;GO TO CyL

000017
O43434

003322

C30140
003414
005720
000001

003412

8SEEK , HCS1

PC, 00¢MD

;00 SEEK CMD 8 GET CONTR RERDY

:NO RDY AFTER SEEK CMD
.(D PIP!D.SPIN'D.VV!D.DRA> ,E.AD ;EXPECTED RO
13

£.80

l(g.REV.D.SPOK.D.CRRT!D.DOOR!D.BRHH!D.SSP>.E.Ql

003416
003420

8l,E

PC, CHKMSG

o442se

T.A2'7.82'0

; CHECK nscs R0, BO, A1

5G8 SPeCt FIED HERE

;MSG RO tnnonDURING SEEK CMD

:MSG BO ERROR
'MSG Rl ERROR
'MSG B1 ERROR
040502
040510

012737
013737

Q42104
0C1426

o40S16
Q40522
o40Sey

004737
104132
032737

O44 140
100000

001176
003360

0033ee

2s:

8128, SESCAPE

150000, TEMP1

;SETUP

Tg FATT2

;FIND ATT

8CERR,HCS1

TIMEOUY

:NO ATTN RFTER SEER CMD

SEQ 0160

CZR6HEO UNIBUS RKE DR_PRT]
25-JAN-78 12:00
CZREME . .P1 l

MACY11

30A(1052)
T40

001401

104210

659%:

050340

210

;CERR RFTER SEEK CMD

PECTED MSG BO

10 FOR
EXPECTED nsc Bl
EXPECTE E gg

#3.E.B3

nsc ID FOR EXPECTED MSG B3

Aa-T.82!0

;MSG ID FOR

:EXPECTED Al

CTED MSG B2

2G5 s#sctrxso HERE
:MSG RO ERROR
tRno RFTER SEEK CMD

PC, CHKMSG

: CHECK nscs R0, BO,
A

xaw
135
3%

:MSG BO
'MSG Al ERROR
:MSG Bl ERROR

137

:CYL DIFF NOT CLERRED AFTER SEEK CMD

cgkoxr

040630

;EXPECTED MSG RO

81, E.BI
E.A2°

82,E.B2

001362

66%:

040632

o40632
040640
040646
O4LbSY
040660
Q40662

100000
00l22e
00000S
043434

8CCLR,RKCS1 (RS)

000000
000010
003322

SUNIT RKCS2(RS) ;DRIVES
8CLEAR, HCST
;D0 DRIVE CLERR CMD 8 GET CONTR RDY
PC oochp

o44012

roonrunng
£

010340

*NO RDY AFTER DRIVE CLEAR CMD

154

:ATTN NOT CLEARRED AFTER DRIVE CLEAR CMD

EXPEC Eg MSG A2

#3 E.B3

nsc 1D FOR EXPECTED MSG B3

PC, CHKMSG

; CHECK MSGS RO,BQ,Al,Bl

ess

;MSG A0 ERROR RFTER DRIVE CLEAR CMD
;nsc 80 ERROR

266

'MSG Bl ERROR

he-T.B2'0

104415
012706

G 10

FOR EXPECTED MSG B2

-3 MSGS PsctFIED HERE

:MSG Al ERROR

g;Lnoo,roch

001352

207

;CYL ADDR IN RKMR3 NOT=RKDC

#STACK, SP

:RESTORE STk PTR

39:

001100

:EXPECTED Rl

E.A2

82,E.82

003424
003430

o442se

001364

:EXPECTED MSG AO

#<0.SPOK'D.CARRT!
bMSG
ooonID o
Hn'goss
81 E.BI
FOR sxpscrso nsc 91

274

040756
040764
040766

*TEST FOR ATTN

e<goo SPIN'D. onovéo
vv-o DRR) ,E

003412
003416
003420

000003

Eg‘rsrnrn
67S:

040770
040770
040772

65%

#<D.SPOK!D.CART! 6 ooon- gfl g §P

o442s2

040740
Q40744
040746
Q40750
040752
C40784

BEQ
ERROR

003424
003430

SEQ Ol&l

25-JAN-78
1”2:08
PAGE }6l
SEEK TO ALL CY.S FROM LAST CYL & RERD HEADERS

e<0 DSC!D.SPIN!D. DRDY'D 'D.DRA> ,E.ARC

oo3412

003416
003420

040732

F13

¥ ZRBHEO UNIBUS _RKb DR PRT]
L ZR6HE .P11
25-JAN 78 1e:00
-

8506

U nnunn
PUNUNY = e s ps . 4t Bt et P s
N— 0O O
NN LW—0O

8507

D40776
041002

000

laVdo N da . ¥4

100000

003322

000137
016520

WW
OOL

10441S
012706

£
&£
oMU

004737
104024

032765
001407

CLR

SESCAPE

MOV

TOCYL,RKDC(RS)

17
nsc1e

$e0P

000g24
000024
000024

693%:

RERD HERDERS

;CERR RFTER SCLR
;CYL

SRHTAB, RO

8(RBH§AE> HCS 1
ocERR HCS1

056235
o4e66e

100000

PC,SUBCLR
a4

RKDB(RS), (RO)+
Rxgg(ng),(R0)+
+
! (RO
RKDB(RS)

;00 DATA XFER CMD 8 GET CONTR ROY

iNO RDY AFTER READ HEADER CMD
;CERR_RFTER RERD HERDER CMD

!ABORT BALANCE OF TESTS
:ABORT DRIVE

1’ST WORD FROM SILO TO RHTRB

'5ND WORD

'RD WORD

#0LT,RKCS2(RS)

000010

TAT
;OSGS
193
$Eg8"®

DLT AFTER READ HERDER CMD
ABORTING BALANCE OF TESTS

RHTAB, TOCYL
£8S

310

;CHECK WORD O (CYL#) ONLY
;BR _IF SAME
;RERD CYL WORD HEARDER ERROR

001100

SP
#STACK,

;RESTORE STK PTR

o4s4eM

PC, SUBCLR
24

;CERR RFTER SCLR

784133 0450
bBa13 BRsgez
001674

708:

0013se

68%:

Oé SESCAPE

ABORT DRIVE

000017
043434

003322

030140
003414
003720
00co00!

003412

l(DOPIP’D SPIN!D.VV!D.DRA> ,E.AD ;EXPECTED AO

003416
003420

81,E.BI

041234

044252

b tbs
nn POV

e N
S

2223

[
e o
——

oo
£r

oUW
00O

01176
00020
001354

QOO0
£L£L

Q4elgy
001350

nny —=0O00N
oo £0£OMNV

e e

...’—.—...’-’_D
== =00 N

TIZZ Pt
PPPP22Z
Pt ot Pt et s Pt

31€253

Pt Pt Pt oo
[ SR Sy S
WWWN

nnowoshv
e

Pa
s Pmn P
s Pt

3 843452

4171

023737
001401
104310

22
22
L
£t

0818?4

JSR
ERROR
MOV

000020

0033ee

Sy
Y

NO O U'\U‘-EI*?(J’U'—
oo

0000000000

Pt
e o

227 222222729

012;00

G13

12: Ug
PAGE
30A(10Se)
25-JAN -78
ROM ;QS
T40
SEEK TO ALL CYLS

o45424

00S037
013765

0000
CD'CD 0O COD M 00 O M

004737
104024

MACY11l

001350

cYL, RKDC (RS)
FRCYL. cCYL
¥SEEK , HCS1

PC,D0tMD

;RETURN TO CYL

CURRENT CYL FOR TRUERROR ROUTINE
;D0 SEEK CMD & GET CONTR RERDY

:NO ROY AFTER SEEK cMD

#<D.FWD!D.SPOK!D.CRRT!D.DOOR!D.BRHM!D.SSP>
,E.RI

PC, CHKMSG

; CHECK MSGS A0, B80,R1.Bl1

SEQ 0l&2

CZRBEHED UNIBUS RK& DR PRTI
. PLl
CZRBHE
25-JAN-78 12:00

H13

30R(10S2)
25-JAN-78
12:08
PRGE 163
T40
SEEK TO ALL CYLS FROM LRST CYL

. WORD

o4iavo
ovla4e

000003
104203

277772 2727227 FI27RZ 7T

8562
8563

MACY11l

81375

H2144

04737

O44140

{3
001401
104210

C12737

01426

100000

8B44ER

4s:

718:

0S0340

012737

000003

883085

o442se

?§83035§Enpl

;SETUP TIMEOUT
FIND A

; RR,HCS1

NO RTTN RF’ER SEEK CMD

210

; CERR RFTER SEEK CMD

003412

o<§ DSC'D.SPIN!D.onogéoEVVégDRA> ,E.R0

003424
003430

E
l 3 E.

;EXPECTED MSG RO

8< spox-D.CART! o1R R e BR HME
! 2TED FSC B
B
E

50 6
883428
by Tt

873947 883065

BD ERAGH
illag
iMSG B1 ERROR

PC FATT2
003322

MSGS SPECIFIED HERE

:MSG A0 tnnon DURING SEEK CMD

584
206

POREXQSCTED MSG B2

MSG ID FOR EXPECTED MSG B3

gksctrrso HERE

; CHECK NSGS 925 80,A1

%
36

B
ifes
;MSG Bl ERROR

2
3

;CYL DIFF NOT CLERRED RFTER SEEK CMD

001362

EXPE TE

:EXPECTED
Al
v

;ggv "ggeo

= YO bt ot s =D

FICED #EMBZR PR B

8567
8568

e Bl %

T.R2'T.82'0

203

SEQ 0183

8 RERD HERDERS

s MSG 98
éRRon AFTER SEEK CMD

72%:

100000
001ecee
000005

043434

8CCLR,RKCS1(RS)

000000
000010
03322

o44012

73S8:
86 340

003412

012737
81%73?
05037
012737
012737

001720
0Q000
00342
000002
000003

003416
003420

004737

o4425e

BAED37

414

003424
003430

;DRIVES

SUNIT RKCS2(RS)
#CLEAR, HCS1
PC, BOCHD
15
;ggTSTQTN

;00 DRIVE CLZAR CMD & GET CONTR RDY
:NO RDY AFTER DRIVE CLERR CMD
:TEST FOR ATTN

154

;RTTN NOT CLERRED ARFTER DRIVE CLERR CMD

#<0'D.SPIN!D.DRDY!D.VV!D.DRR> ,E.RO

; EXPECTED MSG RO

MOV

E. 80
EXPECTED MSG'BO
8D, SEOK!D.CART! b OOOR D.BRHM!D.SSP> ,E.R
8l €
9roa EXPECTED nsc B1
A2
EXPEC ED
E.Re
#2,E.B2
iMSG ID ron EYPECTED MSG B2
83 E.83
:MSG ID FOR EXPECTED MSG B3

JSR

PC, CHKMSG

:CHECK MSGS RO,80,A1,Bl

; EXPECTED Rl

CZREHED UNIBUS RKb DR PRTI

CZREBHE.P11

25-JAN-78 12:00

8618
8619
8620
8621
gggg

Q41514
041516
Q41520
Q41522
041524

000003
104273
104¢6S
104274
104266

8tey

8:1525

023737

8626
8627

041536

104243

8625

1834

001401

001364

MACY11

0013S0

5%:

8628
8629
ggg?

O41S4e

10441S
012706

8632
ggga

0Q41S46
041552

004737
104024

045424

8635
8636
8637
8638
8639
8640
8641
g64e
8643
8644
B64S
8646
gg:g

0O4iISS4
041560

00S037
01376S

001176
001350

0O4i1S66
041572
041600
041604
041606
041614
Q41616
041620
Q41624

012700
012737
004737
104171
032737
00140S
104174
104401
000137

001674
000025
043472

003322

100000

003.22

056235
042662

8649

041630

016520

000024

041644

032765

100000

8650
8651
8652
8653
B6SY

Q41540
041540

041634
041640

016520
016520

I13

PAGE 164
12:08
30A(10S2)
25-JAN-78
T40
S EEK TO ALL CYLS FROM LRST C¥L

001100

000020

Q41652
0Q416SY
041660
041662
041666
041672

001407
004737
104173
104401
000137

8662
8663
8664
866S
8666
8667
8668
8669
8670
8671
8672
BE73

041672
041700
041702
041704

023737
001401
104311

001674

0417204
Q041712
041714
(041720
Q41724
041724

023737
001404
005337
000137

001352
001352
040342

004737

047430

;8 MSGS SPECIFIED HERE

. WORD
ERROR
ERROR
ERROR
ERROR

7.R2!7.B2'0
273
265
e’y
266

iMSG 80 ERROR
;MSG Rl ERROR
;MSG Bl ERROR

CMP
BEQ
ERROR

CYLADD,FRCYL
Ss
243

;CYL RDDR

SCOP1
MOV

#STACK,
SP

;RESTORE STK PTR

JSR
ERROR

PC,SUBCLR
a4

;CERR AFTER SCLR

CLR
MOV

FRCYL ,RKDC (RS)

MOV

SESCAPE

:MSG A0 ERROR AFTER DRIVE CLEAR CMD

IN RKMR3 NOT=RKDC

;CYL 8

SRHTAB, RO

#<RDHEAD)>
, HCS1

P(7: lomcno
1
S8CERR,HCS1
758

;00 DATA XFER CMD 8 GET CONTR RDY
;NO RDY AFTER RERD HERDER CMD
;CERR_AFTER RERD HERDER CMD
; RBORT BALANCE OF TESTS
; ABORT DRIVE

;1’ST WORD FROM SILO TO RHTAB

75%:

000024
000024

8655
B6S6
8657
8658
8659
ggg?

& RERD HERDERS

;2'ND WORD
; 3'RD WORD

#DLT,RKCS2(RS)
768
PC,GSTART

000010

045074

173

MSG18

056235
042662

769%:

$coP

RHTAB, FRCYL

001350

748

311

;CHECK WORD O (CYL#) ONLY
;BR _IF SAME
;READ CYL WORD HERDER ERROR

TOCYL

PC,SWTST

:SEE IF SW 14 OR 8 IS SET

63:

;ABORTING BALANCE OF TESTS
;ABORT DRIVE

;AL CYL DONE?
;B
F YES
;ELSE DO ANOTHER

TOCYL,FC

012072

;DLT AFTER READ HEADER CMD

SEQ Ole4

CZREHED UNIBUS RK& DR PRTI]

25-JAN-78 12:00

CZRBHE. Pll
8674

041730

MACY11

000S1S

Q41732
041736

004737
104024

045424

041740

013765

001352

000020

041746
041754
041760

012737
004737
104131

000017
043434

003322

041762
041770
041774
041776
042004
042006

013737
004737
104132
032737
001401
104210

001426
044140

003360

100000

003322

042010
042014

004737
104024

045424

042016
Q42024
042026
042032

023737
001403
005237
000742

0013S2

042034
042040

004737
104024

o42042

065037
005737

77%

U\-CIJZ&JQ?NN»—»—
QLr£0000L£
L0000

nrn
AV a0 rururn
n
e e B Bt (e P
s Pt e Ds P

005237
032777
001315
000137

PC, SUBCLR

:CERR AFTER SCRL

MOV

TOCY'.,RKDC(RS)

;CYL®#

MOV

ERROR

BIT
BEQ
798 :

012054

0013S2

128

040502

005237
032777
00130s
000137

001410
001000

005237

001410
001000

000137

o41252

005237
032777

001410
001000

Jus

040770

)

137002

16
136762

)

:NO ATTN AFTER SEEK CMD

#CERR, HCS1
798

:CERR AFTER SCLR

CMP
BEQ
INC

TOCYL,LC
788
TOCYL

:LAST CYL DONE?
:BR _IF YES
‘eLSE DO ANOTHER

JSR

PC, SUBCLR

CLR

SESCAPE

BEQ

80$

JSLPERR
JSLPADR

INC

LPFLG

BNE

INC

LPFLG

JMP

:LOOP ON ERROR?

'RETURN TO MAINLINE

#5W9, ISWR
83

LPFLG

JMP

INC

LPFLG

BIT

;SW 9 WARS SET,
'S 14 OR B WAS SET

#SW9, aSWR

INC

81T
BNE

;CERR AFTER SCLR

LPFLG

JMP
IMP

BIT
BNE

:CERR AFTER SEEK CMD.

778

ERROR

JMP
’

137022

sFIND ATTN

PC, SUBCLR

BIT

137042

150000, ICMP1

PC. FRTH2

JSR

ERROR

APPLY

;D0 SEEK CMD 8 GET CONTR READY
:NO ROY RFTER SEEK CMD.

210

TST

10%:

#SEEK , MCS1

pC,D00tMD
13}

ERROR

BR
78S :

(7:0>

JSR

JSR
ERROR

80s:

(=])
£L fLfLLffr

"RETURN HERE IF SW 14 IS SET OR

:SW B WITH SWR

ERROR

8709

SEQ 3165

::GO TO NEXT TESY

TSTYL

8%:

041732

00 00 0D G0 a0 0D (0 €D 0D G0 0
NNNNNNNNNNNIN
UM 0 0= 4o hs st s st B Poce e
OO0 NCNLWN—-O

J13

25-JAN-78
12:08
PAGE 165
30AR(1052)
T40
SEEK TO ALL CYLS FROM LAST CYL & RERD HERDERS

$SW9, ISWR
8%

#SW9, ISR

:YES,

)

RECONDITION DRIVE

:LON® ON ERROR?
:YES, RECONDITION DRIVE

'RETURN TO MAINLINE

:LOOP ON ERROR?
*YES,
RECONDITION DRIVE

'RETURN TO MAINLINE
:LOOP ON ERROR?

CZREHED ?TIBUS RK& DR _PRTI1
.P
2S5-JRN-78 12:00
CZRBME
042156
042160

001265
000137

MACY1l

K13

30A(1052)
25-JAN-78
12:08
PAGE 166
T40
SEEK TO ALL CYLS FROM LAST CYL

BNE
JMP

041540

; YES,

8%
ss

RECONDITION DRIVE

'RETURN TO MAINLINE

CYLINV:

o42164

S 336396 33303000600 06 0 0 00 3 D00

’iTEST 41
-l

E:
e

¥
000004
012737
012706

042200
042204

og4737
104024

o4S424

Q42206
o4c214
042220

012737
0Q4737
104131

000017
B43434

003322

013737

001426
O44140
100000

000001
001100

001174

+4741:

I 00000 03000 0

THIS TEST VERIFIES THAT *INV ADDR’ & ’SEEK INCOMPLETE’® IS
PRODUCED & THRT HERDS
ggEEOT MOVE OR UNLORD IF AN ILLEGAL

CYL IS SPECIFIED IN
A

INVALID CYLS ARE 633 THRU 767 (8) FOR THE RKO&

8 1457 THRU 1777 FOR THE
R

Q42250
O42254

0o4737
104024

042256
042260
o226

005000
005037
013737

Q4ee7e
Q42272
o4e274

104415
012706

042300
042304

004737
104024

o4s424

042306

013737
013765
012737
004737
104131
04737

001352
001352

STIMES

JSR
ERROR

PC, SUBCLR
24

sStAck, sP

#SEEK, HCS1

;

ITERATION

kssvong STK PTR

;CERR ARFTER SCLR

PC, DotMD
13}

003360

MOV

150000, TEMP1

003322

ERROR
BIT
BEQ
ERROR

13
$CERR, HCS1
64S
210

;CERR RFTER SEEK CMD.

JSR
ERROR

PC, SUBCLR
24

; CERR RFTER SCLR

CLR
CLR
MOV

FRCYL
LCP1, TOCYL

;FROM CYL O

SCOP1
ov

SP
#STACK,

;RESTORE STK PTR

SR
ERROR

PC,SUBCLR
24

; CERR AFTER SCLR

MOV

TOCYL,CALDIF

JSR

BYS:

001352

001100

044012

81,

MOV

1%:

000017
043434

MOV

JSR
ERROR

045424

001350
0120S6

SCOPE

MOV

104210

104245

0TS0

SEEK TO ALL INVALID CYLINDERS

o 303 3 36 36 36 3 3 36 36 3 36 36 36 3 3 3 36 36 36 36 36 36 36 336 36 3 3 3 36 3¢ 3 3 3 3 36 36 3 36 3 36 3 38 3 36 3 3 36 36 36 3 3 3 36 36 36 3 3 3¢ 3 3¢

o4216M4
Q42166
042174

0%a342

SEQ 0166

& REARD HEARDERS

001360
000020
003322

PC,FATH2

;00 SEEK CMD 8 GET CONTR RERDY

:NO RDY AFTER SEEK CMD.
;FIND_RTTN

INO ATTN AFTER SEEK CMD

;1°ST INV CYL

MOV
MOV
JSR

TOCYL, RKDC (RS)
$SEEK HCS1
PC,00tMD

;00 SEEK CMD 8 GET CONTR RDY

ERROR

248

;NO RTTN AFTER SEEK TO INV CYL

ERROR
JSR

13
PC, TSTATN

:NO ROY ARFTER SEEK CMD

cstHso UNIBUS RK& DR PRTI
CZRBHE.PI1
25-JAN-78 12:00
7786

L13

MACY11 30A(1052)
25-JAN-78
12:08 PAGE 167
T4l
SEEK TO ALL INVALID CYLINDERS

e;er

032344

83§787

000040

003352

8790
8791

042356
owsasw

032737
00100

000200

0N3352

2%:

8793
8794

042370
042376

032737
001401

020000

003350

48:

003350

S§:

042412

032737
001001

040000

g;gg

042402
Q42410

8800

042414

005237

001462

8788
8792

8795

8796
8797

8801

qigéfi 18434&

042366
(042400

042420

10424

104250

104251

012737

050340

003412
003420

6S:

8803 042434 012737 001720 003416
8802

042426

012737

002240

ggg;

Oo42442

012737

000001

004737

044252

8806

042450

8807

042454

000003

8803
8810
8811

042460
042462
042464

104253
104254
104255

8814

042476

8808 042456 104252
8812
8813

003414

001362

001352

8815
8816

Q42500
042506

023737
001401

001364

001352

8853

o4as12

8821

042512

8822
8823
8824
gggg
8827

042510

012765

Q42602

8839
8840
8841

012765

042542

8835
8836
8837
8838

8834

042600

013765
012737
004737
104151
004737
000401

#0.PIP, HMR2
5§

7%:

: IDRE NOT SET AFTER SEEK TO INVALID ADDR

247

sFLT NOT SET RFTER SEEK TO INV ADDR

ERROR

250

:PIP SET AFTER SEEK TO INV ADDR

ERROR

251

:DSC NOT SET AFTER SEEK TO INV ARDOR

INC

BYPCERR

:BYPASS CHECKING FOR CERR IN GSTATI

MOV

#<D.SKIiD.FLT!D. IDAE

MOV

81,£.81

JSR

PC, CHKMSG

ERROR
ERROR
ERROR

asa
254
255

ERROR

256

:CYL DIFF IN RKMR2 NOT=CYL DIF

257

sCYL ADDR IN RKMR3 NOT=RKDC

BIT
BNE

MOV

CMP
BEG

ERROR

100000

001222
000013
043434
100000

001222
00000
043434

000000

004737

042616

104155

032737
001401

MOV

000010
003322

MOV
MOV
JSR
ERROR

0000CO

MOV

000010
003322

044012

104154

042602

(042606
04o6I4

BIT
BEQ

ERROR

#D.DSC, HMR2
6%

#<D.DSC'D.SPIN!D. DRDY o VV!D.DRA> ,E.AQ

;EXPECTED RO

#<D.SPOK'D.CARTID. oook D.BRHM!D.SSP> ,E.R1
he-T.82'0

CYLDIF, TOCYL
73
CYLADD, TOCYL
8s

: CHECK nscs A0, BO, A1, B!

-8 MSGS SPECIFIED
:MSG A0 ERROR
nrrsn SEEK TO HERE
INV CYL
:MSG BO ERROR
:MSG A1 ERROR
:MSG B1 ERROR

8%:

013765
012737
004737
104124

042550
Q42556
042564
042570
042572
042576

#D.FLT,HMR3
4§

snson

MP
£Q

104257

042520
042526
Q4eS34
042590

8828
8829
8830
8831
8832
8833

BIT
BNE

ERROR

023737
001401

ggig

ug.xons,nnaa

. WORD

Q42466
042474

104256

g§r

SEQ 0167

66%:

045074

000040

003352

#CCLR, RKCS1(RS)

SUNIT. RKCS2(RS)
SRECAL , HCS1
PC, DOCHD
;00 RECAL CMD & GET CONTR RDY
124
‘ROY NOT FOUND AFTER RECAL CMD
8CCLR, RKCS1(RS)

MOV
MOV
JSR
ERROR
JSR
BR

SUNIT RKCS2(RS)
#CLERR, HCS1
DOCHD
1S
PC,TSTATN
66$

JSR

PC,GSTAT

ERROR

155

ERROR

BIT
BEQ

164

0. IDAE, HMR3
65§

;DRIVE#
:00 DRIVE CLERR CMD & GET CONTR RDY

'NO ROY AFTER DRIVE CLEAR CMD
:TEST FOR RTTN

sATTN NOT CLEARED AFTER DRIVE CLEAR CMD

:SEE IF IDRE IS CLEARRED
‘BR IF YES

! IDAE NOT CLERRED AFTER RECAL CMD

CZR6HED UNIBUS RK6 DR PRTIL
CZRBHE.P11
25-JRAN-78 12:00

Q42620

012765

Nek 34
42640

104055

g4etH4e
Q42646

005237
023737

Bisked 886135

100000
601412
044044

001352
001322
O4ee7e

MACYl1l

000000
003362

30A(1052)
25-JAN-78
T4l
SEEK TO ALL

65S%:

MOV

#CCLR,RKCS1 (RS)

T1, TEAP2

;LOOK FOR ATTN FROM RECAL

:NO ATTN AFTER RECAL CMD

JSR

PC.FATTI

INC
CMP
§§

TOCYL
TOCYL
, MASK
$EOP

ERROR

012064

ML13

12:08
PRAGE 168
INVALID CYLINDERS

SEQ 01e8

CZR6EHED UNIBUS RK& DR PRTI]
CZREHE. P11
25-JAN-78 12:00

MACY1l

gggg

.SBTTL

8857

042662
042662
042668
042670

00000Y
005037
012737

012706
005237
023737
001403

8873
8874
8875

042722
042784
042730

000004
00S037
005037

8877
8878
8879

042740
042746
2750

8357 7
327
000001

8880

8881
8882
8883
8884

042716

042734

042752

042754
042756
042760
042762

0137

005237

001176
000001

001100
001220
003442

001174

SEOP1:

001102
001174
100000

JIMP

SCOPE
CLR
CLR

INC

001216
SEOPCT:

003022

012737
000001
042750
104401

MOV
INC
CMP
BEQ

001220

011520
001216

SCOPE
CLR
MOV

$ENDCT:
043027

BIC
oeC
.WORD

SESCAPE
81, STIMES

cs?ncx Sp
SDEVCT'
DRIVS, SDEVCT
SEOP142

; INCR COUNT FOR% OF DRIVES THAT ARE CHECKED
:ARE ALL DRIVES PRESINT TESTED?
,a IF YES

$TSTNM
STIMES

;;ZERQ THE TEST NUMBER
:ZERO THE NUMBER OF ITERATIONS

#130000,8PASS
(PC)+

;;DON’T ALLOW A NEG.
; }LOOP?

NUDRV
$PASS

BGT

$DOARGN

MOV
.WORD
$EOPCT
TYPE

;s TYPE “END PRSS

MOV

$PASS, - (SP)

8887
8888
8889
8830

042774
043000
043004
043006

104401
013700
001405
000005

043024
000042

TYPE
MOV
BEQ
RESEY

SENULL
SITEN )
sr AbN

8891

0430IC

8893

043014

8895

Q43020

8897
8838

043022
043024

043044
377

8900
8901
8902

043034
043042
Q43044

8904

043054

8834

88396

043012

043016

043020

8899 043027

8303

043052

TYPDS

$GETH2:

004710

$SENDAD:

000240

006240
$DORGN:

000137
377

000

050040
000043
122737

0SIs0f

020123

000001

001230

022737

000002

001216

SRTNAD:
SENULL:

015 042412 042116 SENDMG:

8305 043062 :01003

STSXY:

043064

005237

001102

18:

83908

043072

000137

007730

2%:

043070

000775

JIMP

.WORD
.BYTE

; ; SAVE_SPASS FOR TYPEQUT
:GO TYPE--DECIMAL ASCII

;3TYPE A NULL CHARACTER
,,csr MONITOR ADDRESS
'
'BRANCH IF NO MONITOR
,,CLEQR THE WORLD -

WITH SIGN

;G0 TO MONITOR

,,sn E ROGM
:

NOP

JiACTLI

APCH+

srsxv
-1

s s RETURN
NULL CHARACTER STRING

.ARSCIZ <1S><la>/EN0 pAss’

CMPB

SAPTENV, SENV

- RUN unoen APT

BNE

s BRANCH tr

BHI

: BRANCH ir

B8R

CMP

8306

8907

PC, (RO)

NOP

000240

001007

JSR

NOP

NUMBER

;s YES

SENDMG

001216

10440S

2 JINCREMENT THE PASS NUMBER

! 'RESTORE COUNTER

013746

042772

:IF NOT , TEST NEXT DRIVE PRESENT

(PCY+,a(PC)+
1

042766

8832

SEQ 0169

END OF PRSS ROUTINE

8885

8886

169

SEOP:

042676
Q42702
042706
042714

8876

PAGE

iINCREMENT THE PASS NUMBER ($PARSS)
SxTYPE “END PASS $XXXXX" (WHERE XXXXX IS A DECIMAL NUMBER)
‘xIF THERES A non:ron GO TO IT
:%IF THERE ISN'T JUMP TO STSXY

8868
8869
8870
8871

.8872

N13

12:08

3636 36 36 38 38 3 38 38 36 36 36 36 3 36 36 3 3 36 3 3 3 3 3 36 3 3 3 36 3 3 3 3 36 3 3 36 3 3 3 3 3 3 3 3 I 3 3 3 3 3 3 3% 3 3 3 3 3 3 3 % % %

8858
8859
8860
gggé
8863
8864
8865
8866
8867

30A(1052)
25-JAN-78
END OF PASS ROUTINE

INC

JMP

82, SPASS

o Pnssss DONE

$TSTNM

:CHANGE THE TEST UMBER

ST5

(EXIT

:LOOP WARIT FOR LORDING THE NEXT PRG

CZREHEN UNIBUS RK&6 DR PRT1
25-JAN-78 12:00
CZRbBHE.P 11

MARCY!1l

30R(1052)
25-JAN-78
SUBROUTINES
.SBTTL

003432
177757

CLRFLG:

MOV

#DDUMP, RO

18:

CLR
INC
BNE
RTS

(RO)+
R1
18
PC

000207

PAGE

170

SUBROUTINES

; SUBROUTINE TO CLERR ALL

012700
012701
005020

BlY4

12:08

MOV

FLAGS FROM DDUMP THRU DOTIM

s-17.
R

:TYPE PROGRAM ID IF FTITLE=0
005737
001024
005237
104401

Pt Pt Pt Pt Prusts Pt Pt P

001344
054516

TST
BNE
INC
TYPE

15T

001230

000001

001140

000176

000001

000207

001134

s4e

OGRAM ID

;ARE WE RUNNING UNDER XXDP/RCT?

BNE

,,BRQNCH IF YES

BEQ
CMP

64$
SWR, 8SWREG

‘BRANCH_IF YES
,,SOFTNRRE SWITCH REG SELECTED?

CMPB

SENV, 8l

RARE WE RUNNING UNDER APT?

BNE

658

6ES

,,GET SOFT-SWR SETTINGS

ggg:

MOovB

#1,8AUTOB

; ;SET AUTO-MODE INDICATOR

18:

RTS

g;SHR
112737

FTITLE
13
FTITLE
Gl

.SBTTL GET VflLUt FOR SOF TWARE shxrcu REGISTER

000042

L£L£0L
FIRTRTNDS

IN[AINIRIRININININ

229999999

043134
g43140

TITLE:

001344

; BRANCH IF NO

ROUTINE 7O INPUT DRIVE NOS. TYPED IN & SET
DRIVS DRIVO-DRIV? REGISTERS APPROPRIARTELY
GDRVS:
1772770
177400
003444
000060

18:
2s:

ROLIN
MOV

BiC
MOV
MOV

#177400,R2
sDRIVO, R3
$60,RY’

iMASK HI BYTE

CMP
BEQ

RY,R2
3s

;WRS TYPED CHRR O THRU 77

INC
CMP
BNE

RY
RY, 870
28

;S7B 0-7 OR TERMINRTOR

yg
R1, #-8.
6%

;DEFAULT ALL DRIVES

MOVB

TST

043ese

001426

177770

;GEY STRRTING ADDR OF ASCII STRING

{SETUP _COUNT
:GET QSCII CHAR

8-8. R1

TST

00007C

(SP)+.RO

MOV

BNE
CMP
BEQ

(RO)% R2

(R3)+

:DRIVE FLAG ADDR
;BRANCH IF YES
iNO, INCREMENT DR FLAG ADOR

SEQ 0170

CZR6HED UNIBUS RK6 DR PRT]

CZROEME.P11

25-JAN-78 12:00

8965
gggg

043254
043260

96
8970

The)
043270

30A(10S2)

25-JAN-78

l2: o?

PQGE

f7¥

SEQ 0171

GET VALUE FOR SOFTWARE SWITCH REGISTER

003472

78:

CLR
RTS

SIZFLG
PC

:BYPRSS TEST 1 (SIZING)
;FOUND TERMINATOR, EXIT

8953 845 25 882559 003442

3%:

INC
INC
MOVB

3R3
ORIVS
(P0)*+,R2

;SET UP FLAG FOR THE DRIVE
:INCREMENT TOTAL # onxves T0 BE TESTED
GET NEXT ARSCII CHAR

8971
8972
8973
8374
8975
gg;g

33327
276
043302
043304
(043306
043310

00S037
000207

MACY11l

Cl4

112002
042785
0227
001407
005702
001001
000761

4401

gggo 83331

68013

egex

043322

ooseoé

43330

005237

177400
000054

056744

007134

B B BB

39 6 ngggq 000207

003472

(043342
043344
043346
(43352
(043354
(043362

005700
001403
010037
000207
012737
000207

043364
043366
043370
043372
043374

1044]12
012600
005700
00140S
010037

9012
9013

043406
J43414

012737
000771

0ie
9019

9020

PRGSRT

;ONLY 0-7 ALLOWED.

SS:

xng

Té

Sé?
NO ?33&07”““ 8 DIFF

INC

SIZFLG

:D0_TEST 1

S
RTS
)

001264

177440

NOl1264

1S:

043400
043404

004737
000207

’

GINT:

001314

043416
000210

38{?
9018

TYPE

:START ALL OVER

4RBk hebe Favon.
JEXIT.

(SIZING)

RDOCT
MOV

15T
BEQ
MOV
RTS
MOV
R1S

(SP)+,R0

RO
18
RO, SBASE
PC
8177440,8BASE
PC

:GET LOW ORDER FROM STACK
:BRANCH IF DEFAULT.
;DEFAULT VALUE

'ROUTINE TO INPUT RKVEC OR DEFAULT

9005
9006
9007
9008
9009

9010
9011

JMP

GBA

388

9004

:FOUND TERMINATOR, EXIT

"ROUTINE TO INPUT RKBRS OR DEFAULT.
:

8331 4333
o4Y412
99 843348 612&00

EM]

MASK
xs IT A COMMA?
:YES, GO TO
NEXTWORD.
INO, IS IT R ERHINRTOR’
:IF NOT, SOMETHING WRONG.

;

8989
8990

8994
8995
8996
8997
8998
8939

8177400, R2
#54, R
58
R2
4s
73

4s$:

6S:

8987
8388

BIC
CMP
BEQ
TST
BNE
BR

2s:
001314

1S:

RDOCT
MOV
TST
BEQ
MOV

JSR
RTS

MOV
BR

(SP)+,R0
RO
18
RO, RKVEC

PC.,SETINT
pc’

8210, RKVEC
28

;GET LOW ORDER FROM STACK
;BRANCH IF DEFAULT

; DEFRULT VALUE

'ROUTINE TO SETUP INTERRUPT VECTOR & PRIORITY
043416

043422

013700

012720

001314

050156

’

SETINT:

MOV

RKVEC , RO

$INTER, (RO)+

: INTER ADDR TO RKVEC

CZRB6HEOD UNIBUS_RKE DR_PRTI
BHE.PL1L
25-JAN-78 12:00
o43426
043432

013710
000207

MRCY11

D14

4
25-JRAN-7 8
PAGE 172
12:08_
30R(1052)
GET VALUE FOR SOFTWARE SWITCH REGISTER

MOV
RTS

001316

RKPRI, (RO)
PC

SEQ 0172

sPRS TO RKVEC+2

THIS ROUTINE SETS CODT IN RKCSI1 IF DRIVE UNDER TEST IS AN RKO7.

:ENTER WITH COMMAND IN HCS1

0S37
iz 813?6
1373
i
2% 800237
8434%0 386245

bocMp:

001170
003322
001414
043530

BIS

MOV

S TMPY

; ADD COT IF RKO?7

MOV

HCS1 kKCSl(RS)

JSR

710,

PC FROY

;FIND CONTR _RERDY

a02

12, (SP)

RTS

000002

temPi

pc’

;D0 COMMAND

iSET HERE IF NOT_RDY
{ELSE SKIP OVER ERROR

THIS ROUTINE IS SIMILAR TO THE RBOVE BUT IS USED FOR DATA TRANSFERS
:8 REQUIRES A LONGER TIMEOUT
053737
013765
013737
004737
000207
062716
0C0207

001170
003322
001426
043530

003322
000000
003360

BATCMD: BIS
MOV
MOV

JSR

RTS
ADD
RTS

000002

STMPY, HCS|
HCS1,RKCS1 (RS)
150000,TEMP1

PC, FRDY

PC
82, (SP)
PC

:ADD CDT
:00 CMD

IF RKO?

;FIND CONTR RDY

ROUTINE TO FIND CONTROLLER READY (RDY) DURING AR DELARY

ENTER WITH A COUNT

IN T

SEERRG 588

EPP
PP PR PR

) W W)W W W
W

IF RDY _NOT PéSEEsqp(ERROR ES"EITIS")
gTURN
Q¥S ISOBTQ?NEDBEFORE THE RETURN FOR EITHER CARSE
032765

000200

2337
1371

0U3360

§§10;0

000207

0ooocao

#Rov:

43664
45012

18:

000002
043664
04s0le

BIT

BN
OE
BNE
JSR
JSR

RTS

ADD

JSR
JSR

RTS

#RDY, RKCS1 (RS)

MP1
FRDY
PC,HOEE
PC ' CKCERR
PC

oa (SP)

PC.HOLD
PC. CKCERR
PC

;STORE ALL RKbE11l REGS IN HOLDING REGS.

?PECIRL CERR
figscx FOR

:SKIP oOER ERROR

; CHECK FOR SPECIAL CERR

; ROUTINE TO FIND CONTROLLER READY 8 STORE DRIVE REGS ONLY

’
.

032765
001014
00?3;?

003360

016537
004737

000034
000036
o4s01e

ored3h

043634

000207

000200

000000

003350
003352

fROY1:

BIT

BNE
DEC
BNE
MOV
MOV
JSR
RTS

#RDY,RKCS1 (RS)

18
TEMPL
Fnové
RKMR2 (RS)
, HMR2
HMR
, S)
RKMR3(R
PC, CKCERR
PC

;CHECK FOR SPECIAL CERR CONDITIONS

:NO RDY, EXIT

CZRGHEQ UNIBUS RK6 DR PRT]
CZREHE. P11
2S-JAN-78 12:00

9077

043636

062716

000002

9080
3885

Q43656
043662

004737
000207

045012

MACY11l

El4

30A(1052)
@25-JAN-78
12:08
PRGE 173
GET VALUE FOR SOFTWARE SWITCH REGISTER

9078
Q43642 016537 000034 003350
3079 043650 016537 000036 003352

18:

ggga

"STORE ALL RK611 REGISTERS IN HOLDING REGS

3085

9086
9087

04366M
043672

016537
016537

000000
000010

003322
003324

0437
043714
043722
043730

16537
016537
016537
016537

i
003014

3330
3332
3334
003336

9095

043752

016537

000026

003346

3038

043774

016537

9078

3053
3030
9091
9092

9093

843782

043736

8155 7

016537

000

0058

3094 Q43794 016537 8800
9096
9097

9099
3100
3101
9102

043760
(043766

Q44002
044010

9110

9111
9112
9113
9114
9115

MOV
MOV

JSR
RTS
’

HOLD:

Rxhna(RSJ
HMR2
RKMR3 (RE) | HMR3

PC, cxcsnn
PC’

MOV
MOV

RKCS1(RS),HCS1
RKCS2(RS) | HCS2

MOV
MOV
MOV
MOV

RKBA(RS)
| HBA
RKDA(RS)
| HDA
nxogt
) ' HDS
RKER(RS)
' HER

MOV

RKMR] (RS}, HMR1

3326

MOV

0603340

003342

MOV

RKDC (RS) , HOC

003350
003352

MOV
MOV

RKMR2
(RS ) | HMR2
RKMRI(R5) | HMRJ

016537
006207

000032

003356

MOV
RIS

RKECPT
(RS) | HPART
PC

003354

MOV

s CHECK FOR SPECIAL CERR CONDITIONS

RKASOF (RS) ,HASOF

000034
000036

000830

:SKIP OVER ERROR

RKHC(R?),HHC

016537
016537

9103
3104
gigg

9107
9108
9109

ADD

RKECPS(RS),
HPOS

nourxne TO CHECK FOR CORRECT ATTN
'RETURN IF ATTN NOT PRESENT (ERROR CONDITION)
:RETURN +2 IF ATTN PRESENT (SKIP OVER ERROR)
044012
044014
044020

010446
013704
136437

044630
044032
044036

012604
062716
000207

044026

044040
044042

001404

001222
003312

003341

tSTRTN: MOV
MOV
BITB
BEQ

000002

012604
000207

18:

MOV
RDD
RTS

MOV
RTS

RY, -(SP)
:SAV RY
SUNIT . RY
ATTN(RY), HRSOF
+1
X ;

(SP)+,RY
82, (SP)
pc’

(SP)+,RY
PC

:BRANCH IF ATTN NOT PRESENT

'RESTOR RY
:INCR RET ADDR TO JUMP OVER ERROR.
;RESTOR R4

9118
9119

'ROUTINE TO FIND ATTN WITHIN TIMES GREATER THAN 1 SEC
"ENTER WITH TIME IN SECONDS IN TEMP2

gisg

:STATUS IS OBTRINED BEFORE THE RETURN FOR EITHER CASE

9120
9121

9124

9125

RETURN IF NO ATTN (ERROR CONDITION)
'RETURN +2 IF ATTN FOUND

Q44044

912=

084054 013704 001222

9129
9130

044066
044070

9131
9132

044074
044076

012737

9126

9128

044046

010446

177777

003360

FATT1:

3S:

136465 003312 000017 1S:

0010149
005337
001371
005337

003360
003362

MOV

BITB
BNE
DEC

BNE
DEC

R4, -(SP)

s-1 TEHPI

sunt

:SAV R4

nrrn<kq) RKASOF+1 (RS) ;FIND CORRECT ATTN

23
TEMPL

18
TEMP2

SEQ 0173

CZR6EHED UNIBUS RK6 DR PRT]
CZRGHE. P11
25-JAN-78 12:00

9133
9134
9135

9133

913
9138
9139

9140
9141
9i42

aiag

044102
044104
Q44110

001361
00S06S
004737

4ile
044120
Q44124

0207
00S06S
004737

8:4114

044130
Q44132

044136

12604

012604
062716
000207

MACY11

30R(1052)
GET VALLE

000026
045074

9152

9163

9164

91585

Q44140

044142

Q44146

844154

010446

013704

000026
045074

2%:

044176
044200
044204

000207
00S065
004737

044210
Q44212
O44216

012604

012604
06e’ie

000207

FATT2:

*RESTOR RY
:SKIP OVER ERROR

000026
045074

DEC
BNE
CLR
JSR

TEMPI
2s
RKMR1 (RT)
PC,GSTAT

000026
045074

RTS
CLR
JSR

PC
RKMR1 (RS)
PC,GSTAT

RTS

2s:

MOV

BNE

(SP)+,RY

MOV
ADD

000002

;SAV RY

;FIND CORRECT ATTN

MOV

18:

- (SP)

SUNIT,RY

(SP)+ RY
82, (SP)

: SELECT WORD O
:GET LATEST STATUS.

iRESTOR RY

sRESTOR R4
:SKIP OVER ERROR

SENTER WITH A COUNT IN TEMPI
:THE DELAY IS APPROX 17 US/ITERATION +

*WHEN COUNT

044220

044224
044226
Q44232
044234

005737

001403
005337
000772
000207

003360
003360

OLY:

18:

Q44236

104401

9183
9184
9185
9186
gigg

044242

010046

QY4244
(044246
Q44247
044250

104403
001
000
000207

056130

’

BYP:

12 US

IS 0...BRSED ON AN 11-065.

1ST

BEQ
DEC
BR
RTS

:THIS ROUTINE

9181

9182

:GET STATUS RFTER ATTN SEEN

ATTN(RY) ,RKRSOF+1(RS)

g};g

9180

(SP)+, RY
82, (SP)

'RESTOR R4

BITB

000017

g{;g

9172

RTS

(SP)+,RY

RY,

9168
9169

9173
9174
9175
g};g

PC
RKMR] (RS)
PC,GSTAT

:SELECT WORD 0
‘GET LATEST STATUS

MOV

001222

003360

9161
9162
9163

044174

’

003312

0053
001367
005065
004737

3{29

RTS
CLR
JSR

MOV
RDD

000002

136465

oo§05;

(044156
044162
Q44164
Q44170

9164
9165

3s
RKMR] (RS)
PC,GSTAT

SEQ 0174

*ROUTINE TO FIND ATTN WITHIN 1 SEC
"ENTER WITH COUNT IN TEMPI
‘RETURN IF NO RTTN (ERROR)
‘RETURN +2 IF ATTN FOUND
:STATUS IS OBTRINED BEFORE THE RETURN FOR EITHER CRSE

9156
9157
91568
9159

9160

BNE
CLR
JSR

MOV

9145
9146
9147
9148
gigg

915]

F1Y4

25-JAN-78
12:08
PARGE 174
FOR SOFTWRRE SWITCH REGISTER

TYPE

TEMPL

18
TEMPI
OLY
PC

TYPES BYPASSED

MSG1Y

MOV

RGO, -(SP)

TYPOS
.BYTE
.BYTE
RTS

|
O
PC

TO EXIT

;5.6 US

:2.5
‘6.8
:2.5
:3.8
DRIVES®.

US
US
US
US

ENTER WITH DRIVEs

:BYPASS DRIVE

1SAVE RO FOR TYPEOUT

: TYPE DR#
;;G0_TYPE--0CTAL RSCII
{'TYPE | DIGIT(S)
: {SUPPRESS LERDING ZEROS

IN RO

30A(1052)
GE T VALUE

001466

25-JAN-78

Gl4

12:08_

SEQ 0175

PARGE 175

FOR SOFTWARE SWITCH REGISTER

THIS ROUTINE RERDS ALL MSG R3B WORDS & CHECKS THEM RS REQ'D

LHKMSG: moy

J(SP), CHKFLG

;PASS MSGS TO BE TESTED

o442s2

01;?37

080800

044270
044276
o444 304
o44312

053737
053737
053737

044320

053737
053737

00leee
golaee
00leee
001222
012070

044326

013746

003360

044332
044340

013737

go3412
047324
003360

003360

044344

013737
004737

CY43Se
044360
o44364

013737
004737
013737

003416
047324
003360

003360
003416

PC, SBPAR
TEMP1,E.RI

437
4440

364737

00 HSE
047324
003360

003360

TEMPI
E.
ng

003422

TEfiPl - ne

BrPa

:GET PARITY FOR MSG A2

3737
4737

003414
047324
003360

003360

E B0, TEMP1

:GET PARITY FOR MSG BO

737
737
737

003420
047324

003360

003420

PC, SBPAR
TEMP1,E.BI

73?7
737
737

003360

aa TEHPI

Q44452

WLw

E.DDT E.ARD

;ADD EXP.

TEMP1,~(SP)

:SAVE TEMP

SUNIT.E.QR2
SUNIT E.A3

E.AQ, TEMP1

PC, SBPAR

Tehpx E.AD

oo341e

E.Ai,TEMP]

¢, SBPAR
Tehpx
E.BO

003414

E.B1,TEMP1

DRV TYPE
1

:GET PRRITY FOR MSG RO

:GET PRRITY FOR MSG Al

:GET PARITY FOR MSG Bl

737
237
737

003430
047324
003360

0033t

£.8B3, TEMP]

003430

TEMPI,E.B3

637
737

oo1172

SESCAPE,STMPS

:SAVE ESCAPE

737

003412

044546

001176

H.ARO,E.ARD
2$

s TEST MSG AO
‘BR é‘ OK

8 RETURN TO MAINLINE ERROR

#SW9, ASKR
208

rnon HRINLINE ERROR
H?RE
RET
P ON ERROR

H.BO.E.BO

:TEST MSG BC

044464

044472
OM4500
O4450M4
oM4512
044516

003360
001176

044524
044532

003372

44534
44542

:SET UNIT &

003424
047324
003360

044450

3737

SUNIT,E.AD
SUNIT.E.Al

~N
W
N

o444 32
044440
O4444Y

80 000
000
O
O
=

44412
Q44420
044424

13737

'BUMP RETURN ADOR _TO IST ERROR
!GET ALL ACTURL DRIVE & CONTR STATUS

—
WILIW

044404

5748 828735

.5'(2 )
PC.GSTATI

DOO
=
WEWw

B4a2Es

00
s
WY

A NI

NN LW

I
[

D O OO
D DO
rrruufurvrur

@1l

MACY11l

’

0000
——ON)
NN—Ww

VoIV
2V ]

VoV IV VeIV Voo o}

sDCD\l#U‘lJ:UUbO\D

bHEO UNIBUS RK& DR_PRT]
BHE.PL1
25-JAN-78 12 00

41l

044544

1646
000207

QuusHe
4554
O445SE

8 2777
1107
062716

001000

O4M4EE2

0e3737

003374

oo34e4

reh 1, E B2

134364

PC, SBPAR

(SP)+. TEMPL

%1%, SESCAPE
(5P}, -(SP)

19:

cs:

000uJ0e

003414

82, (SP)

:GET PARITY FOR MSG B2

;GET PARITY FOR MSG B3
:RESTORE TEMP 1

JELS ssrup ESCAPE
:COPY RET ADOR

aunP RET noon TO NEXT ERROR

CZRGHED UNIBUS RK6 DR PRT!
CZROHE.P11
2S-JAN-78 12:00

924

954
9247
ge:

3250

014
qqug
81§75§
o44604 001176
044600 011646

o4M602
044604

032777

001000

062716

000002

Q44620

023737

003376

003416

044630

012737

044642

001176

001070

9354

3256

O44614
Q44626

001411

044636

044640

000207

3260
9261
gggg

Q44642
044650
O446S2

032777
0010S!
062716

926N
9265
3266
3267

Q44656
044664
044666
044674

023737
001411
012737
011646

003400

003420

044700

001176

3270
9271

044700
Q44706

032777
001032

001000

gggg

gg;g
3274

044676

44710

Q44714

001000

062716

000002

032737

000001

O46064

9278
3373
aagx

044730
84473
4474

032737
881“83
47

000002

9282
9283

044744
Q44752

032737
8814 Y

000004

(44784
ONY4760

4737
004737

046174
046232

0Q44764

013737

001172

9290

Q44774

012706

001100

9291
gsgg

044772

045000
045006

000207

013737
000177

7%:

8s:

134232

10$:

118:
001466

001466

128:

13$:

001172
134076

001466

001176

143:

15$:
20%:

9294

;

gggg

9235

9298

9299
9300

(Q4S0l12

Q045016
045020

005737

001025
032737

:8 RETURN TO MAINLINE ERROR

#SW3, ISWR

:RETURN HERE FROM MAINLINE ERROR

BIT

001462
100000

208

82, (€°)

'BUMP RET ADDR TO NEXT ERROR

CMP

H.Al1,E.Al

s TEST MSG Al

MOV

#7$, SF3CAPE

RDD

:8 BR IF LOOP ON ERROR

iBR IF OK

(SP}, -(SP)

RTS

BIT
8NE
ADD

#SW9, ISWR
209
82, (SP)

CMP
BEQ
MOV
MOV

H.B1,E.BI
118
8108, SESCAPE
(5P)
| -(SP)

BIT
BNE

#SW9, ASWR
20s

BIT

#7.A2, CHKFLG

: TEST MSG R2?

JSR

PC,RCYLD

SPUT INFO IN CYLDIF,

DO NOT CHECK

BIT
§§3

#7.B2,CHKFLG
&qs
C,RCYLA

: TEST _MSG B2?
;gR IF N
*PUT INFO
IN CYLADD,

DO NOT CHECK

BIT
ggs

#7.83,CHKFLG
#3’

:TEST MSG B3”

ADD
BEQ

s TEST MSG Bl
'BR IF OK

82, (S5P)

13%

:BR_IF NO

JSR

RSEC
PC,RHERD

:PUT INFO IN SECTOR, DO NOT CHECK
:PUT INFO IN HEADA, DO NOT CHECK

MOV

§TMPS,SESCARPE

;RESTORE ESCAPE

RTS

MOV

MOV
JMP

#STACK, SP

§7MPS,$ESCAPE
JSLPEAR

:RESET STACK PTR

;RESTORE ESCRPE

THIS ROUTINE CHECKS FOR CERTAIN ERROR CONDITIONS ONLY

IE:

IF NED, CTO OR MDS SET, MSG A8B RRE INVALID

LKCERR: TST
003322

OK
;ELS&
sgrup
ESCAPE
:COPY RET ADDR

BNE

MOV

046136

9287
gggg

:BR_IF

RTS

#4S
SESCAPE
(P}, -(=P)

RTS

881453

8389
gsgg

)

BEQ

000207

8““753

44724

134270

000002

957

32;7

43:

S§:

9257
3522

011646

134326

SEQ 0176

BEQ

MOV
MO .

000207

Q44612

9255

MACY1l 30A(1052)
@2S-JAN-78
12:08 PAGE 176
GET VALUE FOR SOFTL ~RE SWITCH REGISTER

Y457

9251

gggg

H14

BNE
BIT

BYPCERR

4§

#CERR,HCS1

RbHEOP?TIBUS RKE& DR _PRT1
25-JAN-78 12:00

30R(1052)

25-JAN-78

001001
000207

Q4s03e
Q45040
o4sQ4e
O45044

032737
001402
104326
000207

0040C0

Q45046
Q45054
0450S6

032737
001401
104327

010000

045060
045066
045070

032737
001401
104330

001000

045072

000207

003322

0033e4

I14

12:08_

PARGE

SEQ 0177

| 7?7

GET VALUE FOR SOFTWARE SWITCH REGISTER
19

;BR IF CERR

BIY
BEQ
ERROR

RTS

8CTO,HCS1
23
326
pPC

:BR IF NOT CTO
!CTO ERROR, MSG R8B INVALID

BIT
BEQ
ERROR

#NED, HCS2
33
327

BIT
BEQ
ERROR

#MDS
, HCS2
4§

RTS

BNE
RTS

045026
045030

29:

3%:

4s:

;BR_IF NOT NED
;NED ERROR, MSG R3B

;MDS ERROR,

330

INVALID

MSG R&B INVALID

gTHIS ROUTINE DOES THE SELFCT DRIVE CMD TO GET STARTUS

; IT THEN WAITS FOR CONTROLLER
RERD Y.
; IF RDY NOT RECEIVED BY A T IMEOUT, AN ERROR IS FLRGGED

045074
045100

003360
00lee2
000001
o43434

000010
003322

éSTRT:

o4slae

TEMPL, -(SP)

SUNIT' RKCS2(RS)

8SELORV, HCS1
Pc’oocnb

: SAVE _TEMP1
! CURRENT DRIVE

;DR SELDRV (STATUS) CMD 8 GET CONTR RDY
*RDY NOT SET BY END OF SELECT DRIVE CMD

11
(SP)+, TEMP1
PC

003360

'RESTOR TEMP1

: THIS ROUTINE GETS STATUS OF ALL DRIVE REGISTERS (MSG RO-A3, BO-B3)
+

o45250
045256
o4sSeeH

~N
o
1]

000000
000010
000026

83, RKAR1 (RS)

sSAVE TEMP |
‘GET _ALL CONTR REGS
:CLERR CONTR
! CURRENT DRIVE #
!SELECT WORD 3

117

; RDY_NOT SE;SBY END OF SELECT DRV CMD

TEMP1,

-(SP)

¢, HOLD

#CCLR, RKCS1(

SUNIT RKCS2(
PC GSTAT2

; STORE MSG
; STORE MSG B3

003350
003352

003406
003410

HMR2,H.
A3
HMR3H.B3

100000

045360

000000
000010
000026

8CCLR,RKCS1(RS)
SUNIT RKCS2(R5)

NNN \l\)*‘a\)\l\l NN

045204
o4sele
Q45220
Q45226
o4Se32
045234
o4sa4e

& ALL CONTROLLER REGISTERS

4sTATy: ?ov

003360

oo o
o wn

045130
045134
Q4S140
045146
Q4S1SY4
Q4sS16e
045166
Q4s170
045176

[
w]ele]
;—;—Q
QD“SQDO
00—-000000
[ty .—.—08
0= Pt pea () pe
nWNY
WWwELhuwh
wwieLtLn
n

OowmNoCNLWN

[V Ve IV IV o RV e TV IV IV IV o]
WWWWwWwWwWwWL,

) 0 0= bt s Pt Pt Pt ps.

9311

MRCY1l

82, RKAR1 (RS)

; SELECT WORD 2

117

;RDY NOT SET BY END OF SELECT DRV CMD

PC.GSTAT2

003350
003352

003402
003404

HMR2,
H. A2
HMR3, H.B2

100000
00lee2
000001

000000
000010
000026

8CCLR, RKCS1(
SUNIT,RKCS2(

#1,RKMR] (RS)

'STORE MSG A2
:STORE MSG B2
5)
5)

;SELECT WORD |

CZRGEHED UNIBUS RKe& DR PRTI
CZREHE.P11
25-JAN-78 12:00
9357

9358
9359
ggg?
9362

9363
3364
9365
9366
gggg

Q4S272

004737

045276
045300
045306

104117
013737
013737

045314

012765

003350
003352

003375
003400

100000

000000

MOV

003350
003352

003372
003374

045352

012637

003360

9373

045360

012737

000001

9378
9379

u4S414
Q45416

000207
062716

000002

S3rt

9274

045356

Q45366

000207

053737

JSR

ERROR
MOV
Mov

001222
(045360

9370

MACY1l 30R(10S2)
25-JAN-78
12:08_ PAGE 178
GET VALUE FOR SOFTWRARE SWITCH REGISTER

045360

013765
004737
104117
013737
013737

9369

045322
045330
Q4S334
045336
o4s344

J14

001170

000010

MOV
RTS

003322

9375 045374 013765 003322 000000
9376 045402 013737 00141+ 003360
9377 (5410 004737 0435756
ggg?

O4s42e

000207

MOV
JSR
ERROR
MOV
MOV

GSTAT2:

MOV

BIS

PC,GSTART2

117
HMR2,H.Al
HMR3,H.B1

;RDY NOT SET BY END OF SELECT DRV CMD
;STORE MSG Al
:STORE MSG Bl

8CCLR,RKCS1(RS)

SUNIT, RKCSB(RS
PC,GStAT
117
;RDY NOT SET BY END OF SEL DRv CMD
HMR2,H.R0
;STORE MSG RO
HMR3,H. B0
:STORE MSG BO
(SP)+,TEMPIL

lSELDRV HCS1

; RESTORE TEMPI

§TMPY, HES]

;ADD CDT_IF RKQ?7

PC
s2, (SP)

iRET HERE IF NOT RDY
'RET HERE IF OK

MOV
MOV
J°R

HCSl hKCSl(RS) :GET STATUS
0, temPl
PC,¢ROY1
;FIND CONTR RDY & STORE DRIVE REGS ONLY

RTS

RIS
RDD

9382
9383

THIS ROUTINE DOESA SUBSYSTEM CLEAR 8 WAITS FOR_CONTROLLER RERDY
'IF RDY IS NOT RECEIVED BY THE END _OF THE TIMEOUT, AN ERROR IS FLAGGED.

9385
gggg

;RETURN IF CERR SET
IRETURN +2 IF CERR CLERR

3384

: THE ROUTINE THEN GETS CURRENT STATUS 3 CHECKS FOR CONTROLLER ERROR (CERR)

9388
9389

04S4e4
Q45432

01276S
013737

000040
001414

000010
003360

QUBCLR: MOV
MOV

9333
93
9394
9395

o45446
o4545Y
045460
045464

86376?
S06S
004737
032737

0Qlege
000026
045074
100000

000010

MOV
CLR
JSR
BIT

062716

000002

9390 0O4S440 004737 043530
9391 O0O4SH44 104120
9336
3397

04542
Q0M5474

001401
000207

9399

045502

000207

3398

3401

045476

003322
19:

g:gg
9404

QuSSle

Q4SS0M

012765
004737

04S074

000003

000026

407

04SS24

042737

177017

001406

409

045536

006237

9411
9412

O0O4SS46
045552

006237
000207

9406 045516 013737 003352 001406
9410

JSR
ERROR

#
RDY
20

BEQ
RTS

19
PC

RTS

ADD

; FIND RDY
;ROY NOT SET BY END OF SCLR

SUNIT RKCS2(RS)
RKMR1tRS)
PC,GSTART
ICERR HCS1

;CURRENT DRIVE #
SELECT NORD 0
:GET STARTUS
:CHECK FOR CONT ERROR

82, (SP)

; SKIP OVER ERROR

IREAD THE SECTOR COUNT IN RKMR3, RIGHT JUSTIFY IT & STORE IT IN *SECTOR®

9405

9408

OSCLR RKCS2(RS) ;SUBSYS CLEAR
TEMP1

045532
Q45542

006237

001406

006237

001406

001406
001406

RDSEC:

MOV
JSR

83 RKMR1 (RS)
TQT

MOV

Hflfi3 SECTOR

FSR

SECTOR

BIC

ASR
ASR

ASR
RTS

;WORD 3

#1C<M.SECT>,SECTOR

SECTOR

S ECTOR
PC

;RIGHT JUSTIFY

{SECTOR
; INFO

SEQ G178

C%RSHED UNIBUS RK& DR_PRT]
REHE.PI 1
25-JAN-78 12:00

MACY11l 30A(10Se)

K14

12:08

25-JAN-78

PRGE

| 79

SEQ 0179

GET VALUE FOR SOFTWARE SWITCH REGISTER

FIND SECTOR O IN 22_SECTOR FORMAT.
;ERROR FLAGGED IF NOT FOUND BY

Q4SSSY
o4SSe0

01
gé

003360

001406

Fsoaz:
18:

TEMF1, -(SP)
JSR

SECTOR

2s:

003360

DEC

003360

045636

3%:

003360
0oooge2

MOV

82, (SP)

:SAVE TEMP1

1SETUP TIHEOUT

EAD SECTOR

: LOOK roh SECTOR O
;BR IF SAME TWICE

; TRY AGARIN IF TIMEOQUT NOT UP

EL%E RESTORE TEMPI
; SKIP OVER ERROR

FIND NEXT SECTOR IN 22 SECTOR FORMAT
ERROR FLAGGED IF NOT FOUND BY TIMEOUT

045640! 013746
045644
013737

045652 | 004737
045656 | 023737
045&64
001406
Q4s6
004737

003360
001420
O45504
001402

o4SS504

001402

003360
001406

TEMP1,-(SP)

FNS22:

18:

JSR

012765

33:

DEC

29:

000026
001362
001362

001362

005037

001362

TEMP1
18
(gp>+ TEMP1

003360
000002

000002

ggtc,sscroa
SEC

PSEC, SECTOR

003360

000207

TSOO temP1

PC,RDSEC

001406

003360

045730
045736
045742
045750
045756
045762
045766
045772
045776
046004
046006

33
TEMPL
18
(SP)+, TEMPI
PC
(SPY+. TEMP1
PC

045726

ssCron

23
PC,RDSEC

o4SS504
001406

062716
000207

TSDOO TEMP1
RDSEC

TIMEOUT

012064

MOV

(SP)+

TEMP1

SP)

1
; SAVE TEMP

:SETUP TIMEOU

; RERD SECTOR

;BR

IF SAME

;ELSE TRY RERD DIFFERENT TWICE

;BR_IF DIFFERENT TWICE

:ELSE TRY AGAIN IF TIME LEFT
;RESTORE TEMP 1
;RESTORE TEMP

:SKIP OVER ERROR

gREQD THE CYL DIFF/OFFSET IN RKMR2, RIGHT JUSTIFY IT & STORE IT IN 'CYLDIF’®
:WORD 2
82 RKMR1 (RS)
RDCYLD: MOV
TSR

GSTAT

tha CYLDIF

Maskl CYLDIF

cYLDI#

CYLDIF
CYLDIF
CYLDIF
C;LDIF MASK
CYLODIF

;RIGHT JUSTIFY
;CYL DIFF/OFFSET
s INFO

;CHK TO SEE IF RET IN COMPL.

iBR_IFNOT
:CLR IF YES

FORM

CZRGHEQ UNIBUS RK& DR PRT]
CZREHE. P11
26-JAN-78 12:00
3353

o460.2

L14

MACY11 30A(1052)
25-JAN-78
12:08 PAGE 180
GET VALUE FOR SOFTWARE SWITCH REGISTER

000207

18:

33?;

RTS

046014

85275

00002

000026

RDCYLA: MOV

9475
9476
9477

Q46026
046034
046042

013737
043737
006237

003352
012066
001364

001364
001364

9479
9480
338§

(046052
046056
046062

006237
006237
000207

001364
001364

9478

Q46022

046046

473

006237

45074

Q4606M
013737
9486 84289&
843737

949]

9432
9493
gagg

9501
9502
9503
3283

(046100

001362
12066 801352

006237

001362

023737

001362

Q46104
Q46110
(046114

005237
006237
006237

Q46126
(046130
046134

001002
00S037
000207

046120

003402

001362
001362
001362

3509
49510

9511
9512

9513

sgig

001362

sRIGHT JUSTIFY

ASR
ASR
RTS

CYLADD
CYLADD
PC

CYLADD

:CYL ADDR
JINFO

MOV

e?c

H.R2,CYLDIF

ASR

ASR
ASR
ASR

CYLDIF

CYLDIF
CYLDIF
CYLDIF

;RIGHT JUSTIFY

CYLDIF, MARSK

;CHK TO SEE IF RET IN COMPL. FORM

BNE
CLR
RTS

MASK] CYLDIF
18
CYLDIF
PC

'BR _IF NO
SELSE CLEAR

: READ THE CYL ADDR IN H.B2, RIGHT JUSTIFY IT & STORE IT IN ’CYLADD’
Q46136
Q46154
046152

Q46156
046162
046166
046172

013737
043737

006237

006237
006237
006237
000207

003404
012066

001364

001364
001364

RCYLA:

MOV
BIC

H.B2,CYLADD
MASK] , CYLADD

ASR
ASR
ASR
RTS

CYLADD
CYLADD
CYLRDD
PC

ASR

001364
001364
001364

CYLRDD

;RIGHT JUSTIFY

! READ THE SECTOR COUNT IN H.B3, RIGHT JUSTIFY IT 8 STORE IT IN 'SECTOR’
046174

013737

003410

046214
046220

006237
006237

001406
001406

046230

000207

(04620
04621

046224

42737
06237

006237

177017
001406

001406

RSEC:

001406

MOV

H.B3, SECTOR

ASR
ASR

SECTOR
SECTOR

RTS

gxc
SR
ASR

$4C<M.SECT>,SECTOR
. CLEARR UNWANTED INFO
SECTOR
sRIGHT JUSTIFY

SECTOR

! READ THE HERD ADDR IN H.B3, RIGHT IT & STORE IT IN ’HERDR’

9518
9519

046232
046240

013737
042737

003410
170777

9521
9522

(046252
046256

000337
000207

001432

9524

HMRS, CYLADD
MASK{ CYLADD
CYLADD

CMP

18:

ggig

9520

RCYLD:

012064

gggg
9508

MOV
BIC
ASR

ASR

3339
9498
9499
9500

:WORD 2

PC.GSTA

’CYLADD’

! REAC THE CYL DIFF/OFFSET IN H.A2, RIGHT JUSTIFY IT & STORE IT IN ’'CYLDIF’

9485

9488
9489
9490

OE,RKMR*(RS)

JSR

001364

g:ga

9487

'READ THE CYL ADDR IN R¥MR3, RIGHT JUSTIFY IT & STORE IT IN

9473
Q474

SEQ 0180

046246

006237

001432

001432
001432

RHERD:

MOV
BIC

H.B3, HERDA
#4C<M.HERD> , HEADA

SWAB
RTS

HEARDA
PC

ASR

HEADA

:CLEAR UNWANTED INFO

sRIGHT JUSTIFY IT

:FIND LIMIT DETECT ON SEEK IN RKMR3 BEFORE TIMEOUT

CZREHED UNIBUS RK& DR PRTI
. P 11
25-JAN-78 12:00
CZRBHE

MACY11

382(1052)
25-JAN-78
12:08_PAGE 181
T VALUE FOR SOFTWRRE SWITCH REGISTER

;RETURN IF NOT FOUND:

ERROR

:RETURN+2 IF FOUND: SKIP OVER ERROR
046260

005037
012737

001460

020000

003360
000026
003352

FLIM:

1$:

e g5t
046334

0237

2%:

000002

LIMERR

MOV
JSR
BIT

81,RKMR1(RS)
PC.GSTAT
#0.LIMD, HMR3

DEC
BNE

TEMP1
18

:LIMIT DETECT ERROR FLAG

s-1, TEMPL

{SETUP TIMEOUT

sEXIT IF SET

%¥c

%IHERR

;SET LIMIT DETECT FLRG

RTS

BNE

003360
001460

CLR

MOV

88,(SP)

*WORD 1

;SKIP OVER ERRR

ROUTINE TO FIND

HEARDSHOME IN RKMR2

FHDHM:

MOV

18:

MOV

JSR

sékKMR*(RS)

BéT

80. HDHM, HMR2

"ENTER WITH TIME IN SECONDS IN TEMP
'RETURN IF NOT FOUND
'RETURN+2 IF FOUND - SKIP OVER ERROR
036336

4£3a2

046356

§12737

127777

A67%3 Baea%s

032737

HE3Ee ABa3s7

o46372

000040

003360
000026
003350

BEe

003360

BNE
DEC

003362

o46434
046410

2%:

000002

RIS

RTS

ADD

QLL 1’s

WORD 1

FRwes

13
TEMP2
FHDHM
PC

BNE

WORD 1 BEFORE TIMEOUT

82, (SP)

:SKIP OVER ERROR

bogo HEADS IN RKMR2 WORD 1 BEFORE TIMEOUT
RE¥B$NE10 FIND
RETURN+2 IF FOUND SKIP OVER ERROR
o46412

177727
000001
045374
010000

003360

000026
0033s0

MOV

18:

JSR
BIT

PCGSTAT
gg LORD HMR2

DEC

TEMPL

003360

i3 086203

2%:

000002

MP1

FLOAD:

MOV

ngg

axfiKMRl(RS)

38,(59)

:SETUP TIMECUT

"WORD 1

sSKIP OVER ERROR

ROUTINE TO FIND SPOK BEFORE TIMEOUT
ENTER WITH APPROX TIME IN TEMP2

Erunn IF NOT
RETURN +2 1

0464560
D4e4HEE

012737
012765

177777
000001

003360
000026

tspoxz

MOV

E
C
ES
RED

TO SKIP OVER ERROR

$-1, TEMPL

#1, RKMR1 (RS)

sALL 1°'S

:WORD 1

SEQ 0181

CZR6HMEQ UNIBUS RK& DR PRT!
CZR&HE.P11
25-JAN-78 12:00

O46474
o46500

Q46526
046532

004737
032737
001407
00S337
001367
005337
001356
000207
062716
000207

o4S074
001000

MACY11l

N14

30AR(1052)

25-JRAN-78
12:08_PAGE 182
GET VALUE FOR SOFTWARE SWITCH REGISTER
PC,GSTAT

SD SPOK, HMR2

003350

003360

TEMP1

003362

TEMP2

SEQ 0182

;SEE IF SPOK CLEARED

;gPOK

000002

cs:

RDD

gg,(SP)

; SKIP CVER ERROR

FILL HERDER TABLE WITH ESDHORDS OF VALID HERDERS
(ENTER WITH CYL # IN 'CA
;ENTER WITH HEAD ¥ IN 'HEAD’
;ENTER WITH FORMAT IN ’FORMAT’

FHDTAB: nov

o46534

046536
046540
046544
Q46546
O465SY

3612

001470
001430
001434

Q4660
o466l

800337
006337

001440
001440

046616
Q46622
046624
Q46630
Q46634
Q46640
g4e64e
Q46646
046650

013720

001366

001434

046654
046662
046666
o46674
046700
046706

042037
0S3737
013720

g4e712
046714
046720

00sa01
020127
001336

O46722
046724
046726

012601
012600
000207

013737
011037
043737

001440

FMT1

1%:

MOV

000026

:SAV R1
'HEADER JORD TABLE ADDR
:SECTOR COUNTER

:SETUP HERD

003360
003362

003362

# FOR WORD 2 OF HEADER

:SETUP FORMAT FOR WORD 2 OF

annoo

;HEADER WORD

1-CYL ADDR

FMTL, (RO)
BYPFMT

;

~-FORMAT

sGET

RO}

(RO)+

Hol (RD)

29:

JSR

PC, SECFLG

39%:

MOV

CALADD, TEMP1

HERDER

!HERDER WORD 2-SECTOR NO

5;917141BIT1S), (kO)

046730

003362

;SAV RO

140000

001366
003362

RI.-(SP)
sHOTAB, RO
R1

HERD, HD1
HO1
HD1
HD1
HD1
HD1
FgngT,rnrx

001434
001440
001464
000402
004737

RO, -(SP)

-HERD NO

IF TRUE FORMAT

:SET GOOD SECTOR FLAGS

SECTOR FLAGS

(RO), TEMP2

CALADD, TEMP2
(RO)+, TEMP1
TEMPL. TEMP2
TEMP2, (RO)+

:HERDER WORD 3-HEADER CHECK

;SECTOR CTR

R1, ¥22.
18’
(SP)+,R1

égp)+,no

JALL 22 3E.10RS DONE? (6B WORDS)
:BR IF NO
:RESTOR RI

'RESTOR RO

B1S

CZREHED unxaus RK& DR PRT!
CZREME .P1
25-JAN-78 12:00

MACY1l 30A(1052"'
25-JAN-78
12:08 PAGE 183
GET VALUE FOR SOFTWARE SWITCH REGISTER

9637
gggg

9640
3641

: THIS ROUTINE GETS INFORMATION FROM THE BAD SECTOR TRBLE FILLED BY A PREVIOUS TEST
: & SETS BITS 14 8 15 APPROPRIATELY.

046730
046732

010246
005737

001436

8ECFLG: MOV
TST

Q46740

012702

002314

MOV

046750

0S2710

3642

046736

9644

Q4E674N

9647

965]

9643

gg:g
<48

001016

BNE

9653
9654

8655

9656

3628

R2, - (SP)
FORMAT

;SAVE R2

:BR IF 20 SECTOR FORMAT

oesee=H+e ,R2

004737

047000

100000

BIS

JSR

PC.FLGLTST

;GET HARDWARE DETECTED FLAG

Q46754

012702

0S4362

MOV

oesseas+e ,R2

;ELSE RETURN HERE

Q46770

012602

(SP)+,R2

:ELSE RETURN HERE

(SP)+,R2

sRESTORE R2

Q46760

004737

047000

JSR

3833 046764 0S2710 040000
9652

SEQ 0183

046772

Q46774

046776

BIS
MOV

000207

RTS

012602

)

000207

18:

MOV

RTS

#8175, "RO)
LGTST

oetr1u (RO)
pC

‘RETURN HERE IF GOOD SECTOR

'GET SOFTWARE DETECTED FLAG

‘RETURN HERE IF GOOD SECTOR

9659

! THIS ROUTINE DOES THE ACTUAL SCANNING OF THE BAD SECTOR TRBLES

3661

9660

! ENTER WITH THE ADDRESS OF TABLE (BSE22H, BSE22S, ETC)

gggg

;

3223

047000

9666

047002

9667
9668

010346

021227

177777

gggg

C47012

00100
012603

3671

047014

022237

001366

9673

047022
047026

000765

062702

000002

9676

047030

013703

001430

9678

047036

gggé

047044

gggg

9677

9679
9680

Q47020

047034

047040
047042

:SEE IF ALL 1’S

:SEE IF= CYL 8, & ADV PTR TO TRACK/SECTOR WORD

#2,R2

GO TO NEXT CY. WORD IN TABLE

MOV

HEARD, R3

:GET HEAD 8 FROM FHDTAB ROUTINE

050103

BIS

R1,R3

:ADD_SECTOR 8 FROM ruorne ROUTINE

000756

B8R

001403

000303

RTS

2%:

047054

000207

062716

CMP

3%:

SWAB

CMP
BEQ

000004

8687
gggg

ys:

BEQ

ADD

022203
001401

gggg

9691
9692

(R2), #-1

(R2)+,CALADD

000207

012603

9690

CMP

BNE
MoV

: SAVE R3
'BR IF NO
‘RESTORE R3

Q47046

047050

18:

R3,-(SP)
28
(SP)+,R3

9683

3684

IN TEMPI

RETURN +4 IF COMPARE

FLGTST: MoV

047006
047010

9672

RETURN IF NO COMPARE

MOV

ADD

RTS

.32)+,R3
4$

'SECTOR/HEAD COMPRRE?
8 INCR TO NEXT CYL WORD
:BR IF YES

(SP)+,R3

;RESTORE R3

135

84, (SP)

:TRY NEXT CYL

* INCREMENT RET ADDR

THIS ROUTINE SORTS THE RHTAB TABLE FROM WHATEVER SECTOR IT BEGINS
'WITH AND RE-WRITES THE INFO IN SRTTAB TABLE TO BEGIN WITH SECTOR O
047056

047060
047062

010046

010146
004737

QORT

045504

MOV

MOV
JSR

RO, -(SP)

R1,-(SP)
PC,RDSEC

; SAVE RO

:SAVE RI

CZRGHED UNIBUS_RKBE DR _PRTI
2S-JAN-78 12:00
CZR6ME P11
047066

047074

062737
004737

000001
047164

ClS
MACYIL QR 0RCe FBRTEDF Thard el R REc1E
en
001406

743588 KB768:
010037
062737

001406
001674

062700
012701

001674
002100

012021
020027
001374

002100

19:

Ho
44250

;RO-SECTOR TO RO = INDEX

MOV

29%:

001406

MOV

;MULT SECTOR BY &

BNE

OOoNT

D DD 00D
D
NNNNNNNN

Pomn Pt Pt Pt Pt Pt P

#1,SECTOR
PC,MULTE

ADD
MOV

001674
9711

RADD
JSR

MoV
RDD

001406

SEQ 0184

oahrne secron

; SRVE INDEX

8RHTAB, RO

; INDEX TO BOT HALF OF RHTAB

(RO)+,(R1)+

;PUT BOTTOM OF RHTAB TO TOP OF SRTTAB

#RHTAB, RO

;PUT TOP OF RHTAB TO BOT OF SRTTAB

(SP)+,R1
(SP)+,R0O
PC

!RESTOR RO

8SRTTRA, R1

Rg sRATARB+132.
(RO)+,_LRI1)+
RO, SECTOR
2s’

:INDEX TO TOP HALF OF SRTTAB

;RESTOR Rl

MULT BY 6. ENTER WITH DESIRED # IN ’SECTOR’
MULTB:

001406

047204

RSL

001406

SECTOR
SECTOR, -(SP)
SECTOR
égP)+,SECTOR

;2 X SECTOR
X SECTOR

(H X S)+(2 X S) = 6 X SECTOR

"ROUTINE TO TURN L OR P CLOCK INTERRUPT ON
047206
o47212
047216
047220
047226
047230

¢LKON:

001376
003466
000100

132100

1272777

132064

19%:

%LR

MOV

TIMUP
PCLKF
13
#4100, JLKS
PC
#-1,adPKSB

BRQNCH IF_P-CLOCK PRESENT
L-CLOCK, ENRBLE INT
;P-CLOCK,

RLL

1°’S

CZR6MED UNIBUS RKE DR PRT!

CZRBHE.P11

9735

g;gg

Q47236

047244

25-JAN-78 12:00

012777

000207

000135

MACY11 30A(1052)

PAGE 185

132054

MOV

RTS

8135, IPKS

:ENARBLE INT,

047246

005037

9742

Q47256

001010

Q47252
047260

006337
013737

001376

Lock:

001372
001370

SEQ 0185

001372

CLR

TIMUP

DEC

COUNRT

MOV

HZ, COUNT

BNE

CT UP, REP INT

:LINE FREQ & RUN

'KW11-L & KW11-P INTERRUPTM HANDLER

9740
9743

D15

12:08

GET VALUE FOR SOFTWARE SWITCH REGISTER

g;gg
974]

25-JAN-78

CZREHEOD UNIBUS RK6 DR _PRT1
CZR 6HE . Pl 1
2S-JAN-78 12:00
744
3745
9746
9747
9748
9749
9750
9751

047266
Quze7e
Q47274
047300

005337
001002
005237
000002

MACY1]

001374

001376

ELS

12:08
PAGE 186
GET VALUE FOR SOFTWARE SWITCH REGISTER

30A(1052)

18:

25-JAN-78

DEC
BNE
INC
RTI

SEC
18
TIMUP

; SORRY,

SEQ 0186

TIME

IS UP:

gROUTINE TO TURN L OR P CLOCK INTERRUPT OFF
047302
047306
047310
Q47314
Q47316
047322

00S737
001003
005077
000207
005077
000207

003466

LLKOF:

132012
131776

18:

TST

BNE
CLR
RTS
CLR
RTS

PCLKF

18
LKS

;BRACH IF P-CLOCK PRESENT
;L-CLOCK, CLERR INTERRUPT

JPKS
PC

;P-CLOCK,

CLERR INTERRUPT

CZR&HEO UNIBUS RKE DR PRT|
CZREHE.P11
25-JAN-78 12:00

MACY11l

FLS

SEG U187

30A(10S2)
25-JAN-78
12:08_
PAGE 187
GET VRLUE FOR SOFTWARE SWITCH REGISTER

THIS ROUTINE GENERATES PARITY FOR THE EXPECTED MSGS
.ENTER WITH THE EXPECTED WORD IN T
TEMP1

IS ROTATED LEFT_17 TIMES.

ERCH TIME THE CARRY BIT IS SET

‘R1 IS INCREMENTED. AT THE END OF 17 ROTATES ( TEMP1 BACK T0 ORI&),

Rl BIT O IS EXAMINED. IF IT IS SET,
THE _PARITY BIT 1S
NOT SET IN B .

INDICATING AN ODD # OF 1°’S,

IF IT IS NOT SET, INDICATING AN EVEN 8 OF 1°’S
{SET IN TEMPIL
&gPAR:

9768
9769
9770
9771
9772

047324
(047326
047330
Q47334
047336

0100 6
010l 6
Q127 ?
00S0
0002 1

9774
9775
9776
9777
9778

0M7340
047344
047346
047350
047352

0061 z
10300
005201
005300
001372

003360

9780
9781

047354
047360

032701
001003

000001

9782
9783
9784
9785

047362
047370
Q47372
047374

052737
012601
012600
000207

000021

18:

2s:

100000

MOV
MOV

RO,-(SP)
-(SP)

;SAVE RO
:SAVE RI

CLR
cLe

:COUNT
& OF 1'S IN TEMPI
:CLERR CARRY

MOV
ROL

BCC
INC
DEC
BNE
BIT

003360

3s:

,THE PARITY BIT IS

017 , RO
TEMPL

28
R1
RO
18

#BITO,R1

8NE

RTS

BIS
MOV
MOV

#M.PAR, TEMPI
(SP)+,R1
(5P)+.RO

;SHIFT COUNTER

;BR IF CARRY CLEAR
:COUNT
& OF 1°S
:SHIFT COUNTER

;BR_IF 000 # IN RO

:SET PARITY BIT
‘RESTORE Rl
'RESTORE RO

ROUTINE TO ENRBLE LOOPING ON INTERMITTANT ERRORS
'WHEN SLPERR SET BY OTHER THAN SCOPE ROUTINE
Q47376
Q47404
Q47406
Q47412
047414
047420

9793
9800

Q4742
Q47426

O000~-00

9792
9733
9794
9795
9736
9797

2777

001000

5737

001103

716

001110

IE:

637

001110

131534

MY LOOP MRCRO

§cor1s: BIT
BEQ
7578

; LOOP_ON ERROR?
:BR_IF _NO
{HAD ERROR?

MOV

SLPERR, (SP)

:PR IF NO

g?¥

(SP),SLPERR

;SET LOOP ADDR FOR TIGHT SCOPE LOOP

BEQ
RTI

18:

8SW9, dSKR
1
SERFLG

ECHECK FOR SWI4 (LOOP ON TEST) OR SW8 (LOOP ON SPECIFIC TEST)
iRETURN IF NEITHER SET
RETURN +2 IF EITHER SET

00S03?
005037

Lr—

047430
047434

——

9811
9g8l2

THIS SUBROUTINE IS USED AT _THE END OF ANY TEST THAT REQUIRES
‘RECONDITIONING OF THE DRIVE BEFORE LOOPING ON AN ERROR OR TEST

&4TST:

CLR
CLR

SESCRPE
LPFLG

CZRBGHEO UNIBUS RK& DR PRT]
25-JRAN-78 12:00
CZRBHE. P11

Q47440
Q47446

047450
Q47454

032777

000207

Q47456
Q47464

032777

047476

000207

47466
47474

040000

MACY11

G1lS

25-JAN-78
12:08_PAGE 188
GET VALUE FOR SOFTWARE SWITCH REGISTER

30AR(10S2)

131472

000002
000400

131454

131446

001102

SEQ 0188

#SW14, dSKR
33

;LOOP _ON TEST?
;BR IF NO

;LOOP _ON SPECIFIC TEST?
;BR _IF NO

18:
2s:

ADD
RTS

82, (SP)
PC

38:

BIT

#SW8, ISWR
2$
dSWR, STSTNM
ég

:RIGHT TEST? SWR <7:0»
;BR IF YES

THIS ROUTINE IS ENTERED BY TYPING R CONTROL-C.
:IT 1S USED TO ALLOW THE OPERATOR TO HALT THE CPU WHILE INSURING
: THAT HERDS ARE LOADED & FORMATTING IS VALID BEFORE ACTUALLY HALTING
,THE CPU
047500

022626

Q47502
047506

004737
104024

047510

005737

47514
47516

047522
o47524

&TOP:

CMP

(SP)+,(SP)+

o4S424

JSR
ERROR

PC,SUBCLR

,CERR AFTER

003304

TST

UNLD

; SEE_IF HEADS UNLOADED

'EFE IF MANUAL OR AUTO MODE

4f15674

:PGM RBORT PENDING

,MSG7S

sHALT PENDING

EQ
ST
BEQ

000042

604401

O7233 183487

047536

0Se6640

153

0Se667

TYPE

?sPE
JSR
ERROR

047536
047542

004737
104024

045424

047544
Q47552
047556

012737
oQ4737
104121

000011
043434

003322

047560
047566
047572

013737
004737
104067

001420
o44044

003362

047574

005037

003304

047600
o47604
047606

005737
001460
005237

003306

047612
Q47620
047626
047634
047640

012765
013765
012737
0 Q4737
10 4124

100000
Q0leee
000013
O43434

000000
000010
003322

047642
047650

012765
0g4?7

000001
045074

000026

MOV

JSR
ERROR
MOV

38:

PC, SUBCLR

#SRTSPL , HCS1

PC, DOCMD
124

1500 TEnPa

ERROR

PC,FATT
67

CLR

UNLD

TST

BADHDR

INC

003310

MOV

43
HPEND

;RESTORE STACK FROM INTERRUPT

‘BR IF MANUAL MODE

; CERR AFTER SCLR

;D0 START SPINDLE_CMD & GET CONTR RDY
*RDY NOT FOUND AFTER ST SPIN CMD.
s SETUP

TIHEOUT

‘FIND ATT
:NO ATTN RFTER ST SPIN CMD.
;SEE IF HERADERS VALID

'BR

IF YES

8CCLR,RKCS! (RS)

JSR
ERROR

MOV

$UNIT RKCS2(RS)
8RECAL , HCS1
;00 RECAL CMD 8 GET _CONTR RDY
PC, DOCHD
124
"ROY NOT SET AFTER RECAL CMD

MOV
JSR

PC.GSTAT

#1,RKMR1(RS)

s SELECT WORD 1

25-JAN-78 12:00

2853 BizB22 Bazea:
z
4878 Bu78Ee A0
13737
9873
9874
9875

9876

3877
9878
887

047674
047700

004737
104055

Q47702
047710
047716
Y7724

012765
013765

47730

020000

003350

001414
O44044

003362

100000

000000
000010
003322

0
o43434

000401
104154

047742

000137

031342

047746
Q47752

005737

oooo4e

68503;

0s6711
042750
001176
o4eze2

047764
047770

005037
000137

Y7774

104401
000c00
000137

S0000
050002

BAL
B6Y4S:

ngRTZ HMR2

ERROR

;RTZ NOT SET DURING RECAL CMD

§10 TEMP2

,SETUP TIMEOU

PC,FATTL
sg’

#CCLR,RKCS1

;FIND _ATTN
;NO ATTN AFTER RECAL CMD
RS)

SUNIT; RKCS? RS) ;DRIVES
8CLERR, HCS
PC, DOCHD
DO DRIVE CLEAR CMD & GET CONTR RDY

o44012

047732
Q47736
047740
047742

47754
47760

12:08
PRGE 189
25-JAN-78
GET VALUE FOR SOFTWARE SWITCH REGISTER

30R(10S2)

CZREHE. Pll

MACY11

CZRBHED UNIBUS RK& DR PRTI1

TEST FOR ATTN

154

;ATTN NOT CLEARED AFTER CRIVE CLERR CMD

FORM

;WRITE VALID FORMATS

;SEE_IF MANUARL OR AUTO MODE
00E
;

664

66%:

4S:

TST

S
MSG76

$EOPCT

S%:

056727

TYPE

007730

NO RDY ARFTER DRIVE CLEARR CMD

15
PC,TSTATN

1 EEY BBOROF
T0 EXIT TO MONITOR

$ESCAPE
SEOPI

. ABORT PROGRAM

,MSG77

;CPU HALTED

STS

.START OVER IF CONTINUE PRESSED

CHECK IF_HALT PENDING
'RET I F_YES
TRET+4 IF NO

Y] [V NIV
IV IV I ]
JD D OO0 D DD

n P ot Pt Pt Pt P P
[=] DONON
LW

050006
0so0le
050016
050020
050024

3921
9

005037
00S737

000207

HPEN:

003306
003310

000004

CLR

TST
BNE
ADD

BADHOR

HPEND
18
84, (SP)
PC

;CLR VALIL HALT FLAG

:SEE_IF HALT PENDING
:BR_IF YES
:ELSE_BUMP RET ARDDR
8 RET

1%:

RTS

.SBTTL

UNEXPECTED TIMEOUT HANDLER

THIS ROETINEOIS ENTERED IF THERE IS

050026
050030
050032
050040
050042

011600
005740
032777
001005
104401

020000
057105

131100

BADTMO:

QOV

EXISTANT MEMORY
BOUNDRY ERROR
STACK OVERFLOW
(SP) ,RO
-(RO

#SW13, dSWR
1%
,EM3

(NO SSYN)

:SAVE PC WHERE TIMEOUT OCCURRED.

'GET_PC_BEFORE UPDATE
INHIBIT ERROR TYPOUT°
DON'T TYPE

neohr TESTS,UNEXP T.0. @ PC=

SEG 0189

CZR6HEQ UNIBUS RKBH DR PRT]
. P11
25-JAN-78 12:00
CZRBHE

MACY1l

I15

30A(1052)
25-JAN-78
12:08
UNEXPECTED TIMEOUT HANDLER

0S0046

010046

MOV

050050

104403
06

TYPOS
.BYTE

001000

000177

131014

050072
050100
050102

032777
001401
000002

040000

0S0104

0c0oco0

131056

131040

18%:

@28:

050130
001334

001176

130776

0sol
0so1

012706

050156
0s01ie0
0S0162
050166

011600
005740
104401
010046

050170
0s0172
050173
050174

104403
006
000
000002

BIT
BEQ

#SW14, ASKR
33

:LOOP ON TEST?
Ngsannncn

NO,

BRANCH

THflT GRAVE BAD TIMEOU

‘RS INDICATED. YOU CAN LOOP ON
'ERROR, LOOP ON TEST OR INHIBIT
{ERROR’ TYPEOUT BY SETTING THOSE
SNITCHES
(SP)+, (SP)+
SEOP1

MOV

418, SESCAPE

RESTORE STACK
!ABORT TESTS

ERROR

(5P}, TRAPPC

236

;L?RD ESCRPE
ORE PC
;UNEXP MEM PARITY TRAP

CLR
BIT
BNE

SESCAPE
8SW9, aSWR
28

CHECK IF LOOP ON ERROR
FORCE STACK AND TRY AGRIN

MOV

29:

MOV

.SBTTL

RKO®& INTERRUPT HANDLER

INTER:

MOV

JMP

#STRCK, SP

JSLPERR
(SP),RO

TST

-(RO}

MOV

RO, - (SP)

TYPE

MSGE

sLst RETURN
; INIT STRCK

;LOOP ON ERROR
;SAVE_PC WHERE INT OCCURRED.

?E;
PC BEFORE UPDRTE.
PC=

,,SQVE gO FOR TYPEOUT

$:1GO TYPE--OCTR% ASCII

TYPOS

;s TYPE & DIGIT

.BYTE
.BYTE
RTI
.SBTTL

toop ON ERROR?

; UNEXPECTED TIME OUT OCCURRED

HALT

MEMERR:

055573

33 IYPE 6 DIGIT(S)

ISLPADR

RTI

000177

‘TYPE PC

:1G60 TYPE--OCTRL ASCII

JMP

MEMORY CHECK ENABLE TRAP

000002

;;SRVE RO FOR TYPEOUT

YES RESTORE STACK
0 Y0 STARTING noon or TEST

#SW9, ASWR
23
(SP)+ (SP)+

.SBTTL

19:

SEQ 0190

; ; SUPPRESS LEADING ZEROS

CMP
IMP

o42722

RO, -(SP)

190

b
O

BYTE
BIT
BEQ
CMP

RTI

3%:

PAGE

; ; SUPPRESS LERDING ZEROS

POWER DOWN AND UP ROUTINES

; POWER DOWN ROUTINE
050176
050204
0S020e

012737
000000
000776

050210

000024

SPWRDN:

MOV

HALT
BR

#SPWRUP, PWRVEC

:SET UP VECTOR

; HANG UP.

CZRBHEO UNIBUS RK6 DR PRT]
CZREHE.P11
25-JAN-78 12:00

J15

MACY11 30A(1052)
@25-JAN-78
12:08
POWER DOWN AND UP ROUTINES

9381

gggg

9984

9985
9986
9987
9988
9389
9990

; POWER UP ROUTINE

JS0210

005037

0NS0214
050220
0S0222
050230
050236
0S0244

005237
001375
012737
012737
012737
012706

9992

0S02S4

00000S

9935

0S0e62

000000

9391

ggga

PAGE 19!

050250

0s0256

104401

000137

050262

SPURUP:

050262

0S0176
000340
000340
001100

18:

000024
000026
000036

0SS5761

CLR

SPURCT

TYPE

,MSG11

INC
BNE
MOV
MOV
MoV
Mov

RESET

012170

JMP

$PWRCT:

SPNRCT
18
#SPWRDN, PURVEC
8PR7, PWRVEC+2
$PR7) TRAPVEC+2
#STALK, SP

;WAIT LOOP FOR TTY

:WAIT FOR THE INCR
:OF _WORD
$SET PONER DOWN VECTOR
:PRIORIT
;LOCKOUT QLL INTERRUPTS FOR TRRAPS
; INITIALIZE STARCK

; REPORT POWER FAIL

PFSRT

;WRIT COUNT FOR TTY

SEQ 0191

CZREHED UNIBUS RK6 DR PRT1
CZRBHE. P11
25-JAN-78 12:00

K15

MACY11 30A(1052)
25-JAN-78
12:08
SCOPE HANDLER ROUTINE

PAGE 192

SEQ 2192

3335

.SBTTL

SCOPE HANDLER ROUTINE

10008
10001

THTS
ROUTINE CONTROLS THE LOOPING OF GUBTESTS. IT WILL INCREMENT
! #AND LORD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0))

10002
iggga

:%AND LORD THE ERPOR FLAG (SERFLG) INTO DISPLAY(15:08>
:gug S?ITCH opTxogg SROVégED BY THIS ROUTINE RRE:

10005
10006

TaSW11=1
: ¥5W09=1

10008

: %CALL

10007

: xSW08=1

10009

10010

10011

10012
10013
10014

10015
18819
10018
10019
10020
10021
10022

10023

'y
050264

050264
050266
080274

104407
032777
O0UL11M

050276

000416

0S0300
050304
050312
050316

013746
012737
005737
012637

050322

050324

000463

$SCOPE:

040000

000004
050324
177060
000004

10027

050334

10029

0S0344

}8835
iggga

828353
8?8395

10030

10035

050342

050352

050372

(SPI4SRERRVEC }iRESTORE THE ERROR VECTOR

001000

130540

BIT

001106

050424

032777

004000

005737

001216

005237

001104

10043

050432

001011

10045

0S0440

001406

10049

050456

012737

000001

10051

050472

105237

001102

130506

001104

001102

001214

(SP)+, (SP)+

§1G0_TO

THE NEXT TEST

:'CLEAR THE sracx AFTER A TIME OUT

881708, aSWR

:;LOOP ON spsc

JSWR, STSTNM

;10N THE RIGHT TEST?

gERFLG
ggnnnx SERFLG

,,gns nu ERROR OCCURRED?
,,ggx Engons FOR THIS TEST OCCURRED?

#BIT09, ASKR

,,LOOP ON ERROR?

BEG

BEQ

$OVER

CMPB

BEQ

2:BR IF NO

TEST?

11BR IF YES

SWR(7:
0>

‘BR_IF
NO

7%:

ESV

ngERR SLPADR

::SET LOOP ADDRESS TO LAST SCOPE

ys:

CLRB

SERFLG

,,zsno THE ERROR FLAG

3%:

BIT

#BIT11,aSKR

::INHIBIT ITERATIONS?

TST

§PRSS

,,xr FIRST

INC

§ICNT

} ! INCREMENT ITERATION COUNT

BNE

BEQ

10050 050464 013737 0S0542 001174
113737

BIT

2s:

i gont Gty ooiim oouos
0SO476

MOV

032777

10042

YES IF SW14=1

6S:; ¥8888END OF CODE FOR THE XOR fssrenono

001103

i gt fogenr ool

10052

$SVLRD

CMP

ggge
gu?e

001103

0S0M42

001103
001115

105037

10046

5$:

68?33?
ig?g?g

050412

;3 TEST FOR CHANGE IN SOFT-SR
,,LOOP ON PRESENT TEST?

$OVER

001102

10039

#BIT14, JSKR

BNE

130570

001110

s s SCOPE=10T

su888START OF CODE FOR THE XOR ftSTEROOOO
§xTSTR: BR
23
%fixg ?néTgug Igns sng:NggerRogHgggs
MOV
JBERRVEC, - (SP) ,,snvs THE CONTENTS OF THE ERROR VECTOR
MOV
858, a8ERARVEC
,.ser FOR TIMEOUT
TST
1?7060
:TIME OUT ON
XOR?
MOV
(SP)+, 98ERRVEC ,,Resrone THE ERROR VECTOR

(27737

001465

868332

0S0434

CKSWK
BIT

130576

001404

10044

SCOPE

000400

001404

050400

gggzgg

000004

18:

LOOP ON TEST IN SWR<7:0>

032777

10036

igggg

130644

022626

1005e
D20355 Q4g53g ooooOd
10026 0S0334

10028

INHIBIT ITERATIONS
LOOPON ERROR

1$:

MOV

g
18

ELEane g BE, ¢ JrgraTions 7o rae
IBR IF ;s

PASS OF PROGRAM

INHIBIT xrsnnrxons

N i

MOV

skcnr srxnes

,,Rsrnxranxzs THE ITERATION COUNTER

MOVB

$TSTNM,STESTN

;:SET TEST NUMBER IN APT MAILBOX

§SVLAD: INCB

TSTNM'

!!SET NUMBER OF ITERATIONS TO DO
: 'COUNT TEST NUMBERS

CZRGHED UNIBUS RK& DR PRT]
CZREHE . P11
25-JAN-78 12:00

10053
10054

050504
050510

011637
81163?

001106
801110

10056

050520

112737

000001

10055

10057

050514

005037

050526

013777

0S0S42

003720

0601176

001102

jose GegEx Bhighs Coiick
10060
}8825

L1S

MACY1l 30A(1052)
25-JAN-78
12:08
SCOPE HANDLER ROUTINE

MOV
MOV
00111§

130406

(SP), SLPADR
(SP), SLPERR

; ; SAVE SCOPE LOOP ADDRESS
: :SAVE_ERROR_LOOP ADDRESS

81, SERMAX

JPONLY ALLOW ONE(I) ERROR ON NEXT TEST

SESCAPE

MOV

§TSTNM, 3DISPLAY ;:DISPLAY TEST NUMBER

$MXCNT: 2000.
.SBTTL

SEG 0193

CLR

MOVB

$OVER:

PAGE 193

SLPRORITSPYT

ERROR HANDLER ROUTINE

:'CLEAR THE ESCAPE FROM ERROR ADDRESS

i iRgE KETURN AODRESS

: IMAX. NUMBER OF ITERATIONS

10063

H 33636 36 36 36 36 36 3 36 3 3 36 3 3 36 36 3 36 3 36 36 36 3¢ 36 3 36 3¢ 36 3 36 36 3 36 3 3 3 3¢ 3 36 3¢ 3 3 3 36 3 3 3 3 3 3 3 3 % 3 % 3 ¥ % ¥ 3 X%

10067
10068
10069

i #THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:
; ¥SWIS=1
HALT ON ERROR
;#SW13=1
INHIBIT ERROR TYPEOUTS

10072

: #CALL

{20s:
10066

SR
TOTE AT BT T
:%AND GO TO TYPERR ON ERROR

10070
10071

#SW10=1
¥SW09=1

igg;a
10075

10076
10077

10078
10079
10080
10081
10082

10083
10084
10085

;
050544

050544
050546

050552
050554
050562
050570
050572

050576
0S0602
0S06

10086

050614

10088

050630

10087

10089

10090

001402
104401

005237

001103
001102

002000
001116

117737

130276

130310

050632

004737

067404

0S0636

10083

050650

10094
{8 gg

0S0652
828223

10097

050665

122737

000001

001230

113737
oowggg

001114
051470

0S0664

130244

188 BeBsrs 2A0Rg

001000

ioioa

0S0674

oso;?e

18185 8?871

100002

082367

81571

001110

Bt
SHL S DU
10108 080784 0137 16 001176

CKSWR
INCS

SERFLG

;s TEST_FOR CHANGE IN SOFT-SWR
1SET THE ERROR FLAG

1
SBELL

$iNG - SKIP
: iRING BgL%

(SP), SERRPC

:1GET ADDRESS OF ERROR INSTRUCTION

BEQ
BIT

BEQ
TYPE

INC

MOV

130230

ré)
:'DON’T LET THE FLAG GO TO ZERO
$TSTNM,aDISPLAY ;:DISPLAY TEST NUMBER AND ERROR FLAG
#8I1T10, ISWR
i iBELL ON_ERROR?
$ERTTL

.i SERRPC

9SERRPC,SITEMB

BNE

208

TYPE

,SCRLF

BIT
208:

. s ERROR=EMT AND N=ERROR ITEM NUMBER

MOVB
JSR

001205

001007

ERROR

SUB

001114

104401

000777
005777

10100

0666
050670

13:
001116

BELL ON ERROR
LOOP ON ERROR

MOV

130350

000002

020000

001004

130360

00ii12

011637

162737

78:

001200

032777

nggus

10098
10099

001775
013777
032777

SERROR:

0S0622

10095

1008

104407
105237

RS B0 cRSR R

cMPB
BNE

: 'COUNT

THE

NUMBER OF ERRORS

;;STRIP ANY SAVE THE ERROR ITEM CODE

#BIT13, OSWR

i ISKIP TYPEOUT IF SET

PC, TYPERR

:1G0 TO USER ERROR ROUTINE

SAPTENV, SENV

:SKIP TYPEOUTS

- ;RUNNING IN APT MODE

: 'NO,SKIP APT ERROR REPORT

218

MOVB
13575

SITEMB,21S
PC,SATYY

22%:
2s:

BR
TST

.BYTE

BPL

gxa

HERT BUERREe
1 corr-cun

MOV

sgxroq,asun

o
MOV

$LPERR, (SP)

BSORE
SESCAPE, (SP)

P' 'FUDGE
FUD

3%:

223
JSWR

1iSe} ITEM NUMBER RS ERRQR_NUMBER
: 'REPORT FATAL ERROR TO APT
: ;APT_ERROR LOOP
;;HALT ON ERROR
:1SKIP IF CONTINUE

;;LgOPFOg ERROR SWITCH SET?

SEPuoés RSTURN FOR LOOPING

QKGR
Escene Rothess
RETURN
ESCRPE
URN ADDRESS FOR
o

CZRGHEDC UNIBUS RK& DR PRTI
CZRGHE.P11
25-JAN-78 12:00

MLS

MACY1l 30R(1052)
25-JAN-78
12:08
ERROR HANDLER RNMJTINE

181?3 B§B;38 022737 043010 000042 S8:
19111

10115

igii

{giig

050736

ogg;gg

8 74¢

001001

000000

000002

CMP

BNE

HALT

)

#SENDARD, 3842

SEQ D194

:ACT-11 AUTO-RCCEPT?

,,annncu IF NO
2 :YES

RTI

.SBTTL

10117

PAGE 194

TYPE ROUTINE

; ; RETURN

; o 363636 36 3 3 36 3 35 36 36 36 3 3 3 36 3 3 3 3 36 36 3 3¢ 3 3% 36 3 3 36 36 36 3 36 36 3 3 36 3% 3 3 3 3 3 3 3 3 3 3 3¢ 3 2 o 3 3 % 3 3% 3 % 3 % %

10118

*kROUTINE TO TYPE RSCIZ nessncs MESSRGE MUST TERMINATE uxrn A O BYTE.

10120
10121
iBiS%

PENOTEL:
I xNOTE2:
1NOTE3

10119

P %¥THE

10124

:%1) USINGR TRAP INSTRUCTION

igigg

’:on

10128

10129

;¥

10132

050744

10S737

{giag

osa;ss

oggggo

10137

050760

017600

050772

1011

080750

1013& 8?87 6
10138

10133

050764

100002

01004

001157

000002

2737

000001

000050
132737

§TYPE:

1%:
001230

igi:? gggggg 68?33% 000100 001231
i
10149
021014
10145 051016

10146

051024

001003

000040

001231

61§:
628:

10153
021035 §?SZS‘6
10151 0210 & 062716 000002

BOS:
3%:

10153

4§:

10152

051042

006002

10154

051050

001430

igiss

051044

osiosa

122716

000011

§§a7és

000200

10139 831823 -fiéga
10158

051062

10159

051064

001205

10162
10163

051074
051100

004737
123726

10164

081104

001350

TYPE

,MESADR

TYPE

TSTB

PFLG

MOV

So -(SP)

"%fivs RO

CMPB

$APTENY, SENV

,,RUNNING IN APT MODE

SSLT
MOV

92lsP), RO

'BR IF YES

,,HREJEHERE IF NO TERMINAL
:GET RDDRESS OF ASCIZ STRING

géga

BNE

62%

;;

GO CHECK FOR RPT CONSOLE

.WORD
BITB

Oonprcsup,ssnvn llnegghce
Ty
IAPT CONSOLE suppnsssso

gg:TSPOOL,SENVM bOL KFORo
APT
Pl

BNE

60%

,,YEE SKIP T

MOV
ADD

82, (SP)

(3P)4,RO

"éés’s"E"ASW"
POF 1T OFF THE STACK
::noJusr RETURN PC

CMPB

$HT, (SP)

‘B nncu IF <HD>

RTI

BEQ

(SP)+

ggRLF,(SP)

$CRLF

5§:
63%:

;1S THERE A TERMINAL?

BPL

TYPE

051156
001156

: sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING

MESADR

cnpa

109401

cnnnncrsns AFTERA LINE FEED.

SNULL
CONTARINS
THE CHARACTER TO BE
USED RS THE FILLER CHARACTER.
SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED.
SFILLC CONTRINS THE CHARACTER TO FILL AFTER.

’;anL

10185

10133

ROUTINE WILL INSERT gngsn OF NUL

JSR
CMPB
BNE

PC,$TYPEC
sFilLc, (sPr+
2%

;;ennncu IF NOT <CRLF>

;s POP_ (CR>(LF> EQUIV
JPTYPE A CR AND LF

IZco TYPE THIS cuancrsn
2115 IT TIME FOR FILLER cunns ?
:IF NO GO GET NEXT CHAR

CZR6HED UNIBUS RK6 DR PRT1
CZREHE.PI1
25-JAN-78 12:00
10165
10166
10167
10168
10169

10170
10171

051106

013746

001154

0S1112
051116
051120

105366
002770
004737

000001

051130

000770

051124

105337

MACY11l

78:

0S1156

051222

0S1132

10177
10178
10179

051142
051150
051152

112716

051136

004737

10180

051184

000724

10189

051172

122766

10181
10182
10183

D0S81186
051162
051164

10185
10186

051200
051202

10188

051210

10187
10189

10130
10191
10132

$NULL , - (SP)

DECB
BLT
JSR

1(SP)
6$
PC,STYPEC

;HORIZONTAL

10175

10176

132737
001372
005726

000007

105777
100375
116677

127766

000002

001003
105037

051222

051206

00Q406

051216

00I4G2

051220
051222
051224

00004D

051156

122766

0O00IS

000012

gs 051222

127760

000002

105227
0000G0
000207

195

SEQ 0198

;;GET 8 OF FILLER CHARS. NEEDED
; AND_THE NULL CHAR,
:iDOES A NULL NEED 70 BE TYPED?
:iBR
IF_NO--GO POP THE NULL OFF OF STACK
$:60 TYPE A NULL

;DO _NOT COUNT AS A COUNT
; 1LOOP

,(SP)

; ;REPLACE_TAB WITH SPACE

JSR

Pc,$TYPEC

28§

i 1GET_NEXT CHARACTER

#CR,2tSP)

;IS CHARACTER A CARRIAGE RETURN?

#7,$CHARCNT
9g
(SP)+

TSTB
BPL
MOVB

@8TPS
$TYPEC
2(SP),aSTPB

BNE
CLRB

1§
SCHARCNT

CMPB

#LF,2(SP)

cCMPB

B8R

1S:

PAGE

TAB PROCESSOR

BITB
BNE
TST

$TYPEC:

000002

SCHARCNT

MOVB

9§

12:08

MOV

DECB

10173

N1S

30A(1052)
25-JAN-78
TYPE ROUTINE

BEQ

INCB
$CHARCNT: .WORD
§TYPEX: RTS

STYPEX
STYPEX

(PC)+
O
PC

;i TYPE A SPACE

i BRANCH iF NOT AT
::TAB STOP
; POP SPACE OFF STACK

;IWAIT UNTIL PRINTER

IS READY

; ;LORD CHAR_TO BE TYPED

INTO DATA REG.

;
}BRANCH IF NO
;1 YES--CLERR CHARACTER COUNT

PIEXIT

:11S CHARACTER A LINE FEED?

; 1BRANCH_IF YES

: iCOUNT THE CHARACTER
; : CHRRACTER COUNT STORAGE

10134

.SBTTL

10196

5 5 S0 063636 06 06 36 3 36 3 3 3 3 3 3 36 36 36 26 36 36 06 36 36 3 36 3 3% 3 3% 3 3 3 3 34 3 3t 34 34 3¢ 36 36 36 3 96 3 96 3 3 3 36 36 3 3 3 3 3 3 3 3 %

10198
10199
10200

; #SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE
; #NUMBER IS POSITIVE OR_NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
;#BEFORE _THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE

10197

;#THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A S-DIGIT

10201

} XREPLACED WITH SPACES.

i *

10203

‘¥

10204

051226
051226
051230
051232
051234
051236

10213
10214
iGcls
10216
10217
10218

051244
051250
0561252
051254
051262
051264

016605
100004
0DOS4Y05
112766
005000
012703

10220

051274

005002

13219

10206
10207
10208
10209
10210
10211

10212

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

051240

0Oole/0

010046
010146
010246
010346
010546

012746

1ig7eés

$TYPDS:

020200

051442

000O4U

NUM, - (SP)

; ;PUT_THE BINARY NUMBER ON THE STARCK

MOV
MOV
MOV
MOV
MOV

RO, -(SP)
RL,-(5P)
R2,-(SP)
R3,-(SP)
RS -(SP)

; ;PUSH
iiPUSH
;iPUSH
:1PUSH
: iPUSH

MOV
BPL
NEG
MOVB
CLR
MOV

20(SP) ,RS
18
RS
%’-,1(SP)
RO
#3DBLK, R3

;1GET THE INPUT NUMBER
iiBR IF_INPUT IS POS.
:iMAKE THE BINARY NUMBER POS.
} IMAKE THE ASCII NUMBER NEG.
;1 2ERO_THE CONSTANTS INDEX
iSETUP THE OUTPUT POINTER

CLR

::CLEAR THE BCD NUMBER

TYPDS

MOV

003620

0000SS

MOV

000001

18:

2s:

MOVE

820200, - (SP)

,(R3s+

$:1G0 TO THE ROUTINE

RO
R1
R2
R3
RS

ON STACK
ON STACK
ON STACK
ON STACK
ON_STACK

:;SET BLANK SWITCH AND SIGN

;31327 THE FIRST CMARACTER T A BLANK

CZRBEHEQ UNIBUS RKS DR PRTI
CZREHE.P11
25-JAN-78 12:00

10221
10222
10223
10224

0S1276
051302
051304
051306

016001
160105
002402
005202

10226
10227
10228
10229
10230
10231
10232
10233

0S1312
051314
051316
051320
051322
051324
©S51326
051330

060108
005702
001002
105716
100407
106316
103003
116663

000001

10235

0S1342

702

000040

10225

10234

10236
10237

10238
10239
10240
10241
10242

10243
10244

051310

051336

051346
0S13S0

020027
002746
003002
010502
000764

0S1370

100003

10245
10246
10247

0S1372
051400
051402

10249

051406

10248
10250
10251

0S1404
051410
051412

oesg
10263

051414
0S1420

10255

051430

10260

051442

10254

10256
10257
10258
10259

igggé

10263

110223
005720

051352
0S1356
051360
0S1362
051364

051366

051426

0S1432
051434
051436
051440

116663

105013
012605
012603
012602
012601
012600

(04401
0ieb6b
012616

051466

000403

0S1470
051476

112737

10269
10270

051476
051500

010046
010146

10272
10273
10274
1027

051506
081510
051516
051520

001450
122737
001031
132737

10271

10276

051502

051526

4s:

1 ¥

000060

177777

105737

001425

63:
78:

000010

8s:
177777

177776

9g:

0Si442
000002

$DTBL (RO),R1
R1,RS
4g
R2

::GET THE CONSTANT
::FORM THIS BCD DIGIT
;+BR IF DONE
i 'INCRERSE THE BCD DIGIT BY 1

ADD
TST
BNE
T5TB
BMI
ASLB
BCC
MOVB

R1,RS
R2
S$
(SP)
78
(SP)
6%
.
1(SP),~-1(R3)

: ADD BACK THE CONSTANT
::CHECK IF BCD DIGIT=0
:IFALL THROUGH IF O
:iSTILL DOING LERDING 0’S?
::BR_IF YES
: 1MSD?
:1BR IF NO
2 YES--SET THE SIGN

BIS

MOVB
TST

$DBLK:

.SBTTL

000001

0si171e

(SP)+.R3

}1POP STACK INTO R3

(SP}+ Rl
(SP)+.RO

1:POP STACK INTO Rl
1 POP STACK _INTO RO

MOVB
CLRB
MOV

-1(SP),-2(R3)
(RI)
(SP)+,RS
(SP)+,R2

TYPE
MOV

$DBLK
2(5P),4(SP)

RTI

10000.
1060.
100
10.
.BLKW

(SP)+, (SP)

:WAS THE LSD THE FIRST NON-ZERO?

;;YES--SET_THE SIGN FOR TYPING
JISET THE TERMINRTOR
:1POP STACK INTO RS

::POP STACK INTO R2

:'NOW TYPE THE NUMBER
:'ADJUST THE STACK
; sRETURN TO USER

APT COMMUNICATIONS ROUTINE

o o 3o 3036 3635 36 36 36 3 36 36 36 36 36 3 36 36 36 3 36 36 36 3 36 3 36 26 36 36 36 3 36 36 3 36 3 3 3 3 3 36 3 3 36 3 3 3 3 36 36 3 3 3 3 b 3 3 3 ¥ % % % %

$ATYLl:

MOVB

000001

O0S17ie

$ATY4:

MOVB

$ATYC:

#1,3FFLG

81 SMFLG

; : TO REPORT FATAL ERROR
2170 TYPE A MESSAGE

satyc

#1,SFFLG

::TO ONLY REPORT FATAL ERROR

MOV
MOV

RO, -(SP)
R1.~-(3P)

s sPUSH RO ON STACK
}IPUSH R1_ON STRCK

BEQ
CMPB
BNE
BITB

cg
SAPTENV, SENV
3%
#APTSPOOL
, SENVM

: 1F NOT:
BR
: 'OPERATING UNDER APT?
::1IF NOT:
BR
; : SHOULD SPOOL MESSAGES?

TSTB

001231

(SP)+

MOV

MOVB

000100

PIPUT _THIS CHARACTER IN THE OUTPUT BUFFER
i : JUST INCREMENTING

$iBR_IF NO

S$ATY3:

001230

R2, lR3)+
(RO)+

75718

BEQ

SMFLG

J'MAKE IT A SPACE IF NOT_ALREADY A DIGIT

BPL

05i7i4

000001

:iMAKE THE BCD DIGIT ASCII

:'CHECK THE TRBLE INDEX
1160 DO THE NEXT DIGIT
1:GO_TO EX
21GET THE LSD
}1GO CHANGE TO ASCII

000001

051714

#'0,R2

RO, #10
2%
8%
R5,R2
X

MOV

§OTBL:

k|3

CMP
BLY
BGT
MOY
BR

MOV
MOV

000004

SEG 0198

MOV
SUB
BLT
I5C

MOV

000004

102

102E8

3s:

023420
0061750
000144
000012

112737

10267

051432

000002

051452
051460

@25-JAN-78
12:08 PAGE 196
CONVERT BINARY TC DECIMAL AND TYPE ROUTINE

105726

10264
10265

MACY1!l 30A(1052)

000774

052702

Bl6

: 'SHOULD TYPE R MESSAGE?

1 IF NOT:

CZRGHED UNIBUS RK6 DR PRTI

CZRGHE .P11

26-JAN-78 12:00

MACY11 30R(1052)

Clb

25-JAN-78

12:08

APT COMMUNICARTIONS ROUTINE

PARGE 197

SEQ 5197

10878 §§i§:§
021239 basee
{0253
gg%;;z 90909
giel 000ODH 18:

o
gaE

a.acabhC
fgscrvps

i‘;?Esn3§'°8551¥/
GET ME S OMP RETURN
LAST ADDR
XMISSION?

i gg

ggge

égo)+

S'FIND END

10281

0§15

010037

001224

10284

061560

163700

001224

ig 4

§g;g

Pt s Pt Pt Pt Pt Pt Pt Pt Pt et Pt Pt Pt Pt et Pt Pt Pt Pt Pt P Pt Pt Pt Pt

g
Bl RE® oo
18235 05}572 012737 000004
0589 82128%
0290
oaeé
0292

051610
051613
051622

0234

1630

0293

000000

000002
177776
050744

?z?g

051716

0297

osigag

005337

001230

0301

051652

017637

000004

[

0 0t Pt Pt Pt Pt Bt Bt st Pt P

Pt Pt Pt o Pt Pt P

001210
000004

4g:

S3:

108:

::TELL APT TO TAKE MSG.

ADD
MOV
JSR

#2.4(5P)
172776, -(SP)
PC,STYPE

. - BUMP RETURN RDDRESS
s sPUSH 177776 ON STACK

1:CALL TYPE MACRO

EEEB

fE;LG

§§§§0H59.RE§2RT FATAL ERROR?

ggg

fggv

;;¥“"§3¥é uggen APT?

MOV

.WORD

gfig
LRB

105037

105037
012601

051714
0517185

060
000

051716

000001
000100
oooo40

05171S
0S1714

MOV

CLRB

CLRB
MOV

$MFLG:
$LFLG:
SFFLG:

IN MAILBOX

OF MESSRGE

84, SMSGTYE

S
ggv

§i§§‘§
‘“g%
§§?§?§
00000% 128:
1
1
121

051702
051706

:SPUT ADDR

:;SUB START OF MESSAGE

ggg

001212

RO, SMSGAD
$MSGAD, RO

118:

051676

13#2 001210

=]
|=)

wgmmmmmmwmmm»—»—»—»—-—»—-—-—»—»—o
\.DmVU‘W&UN’-DOQVU‘U\-‘:QNHD\Dg\JgU‘ wB

000000000000 0000000000000000
(NIAINIR NN NINININTRIRINININIRIRININIRIRIAIRIRINIAIRININ RININ
il

§§§§ §§i2§3

MOV
SuB

000004 051626 3$:

iggg

Q
[=]
[

gggg

051626

062766
013746
004737

2%:

.BYTE
.BYTE

.BYTE

. EVEN
APTSIZE=200

J4(SP" 48

;;PUT MSG ADDR IN JSR LINKAGE

?TiGTYPE

55rgn§g¢éo hg§; MESSAGE?

§fi§2%$$é
FELG

:ICLEAR FATAL FLA

J4(SP),SFATAL
SLFLG

;;GET ERROR #

e abt2T0 TAKE “ERROR.

: 'CLEAR LOG FLAG

MFLG
(SP)+,R1

i 'CLEAR_MESSAGE FLAG
11POF STACK INTO Rl

O
O

:'MESSG. FLAG
:1L0G FLAG

: 'FATAL FLAG

APTENV=001
APTSPOOL =100
APTCSUP=040

.SBTTL

BINARY TO OCTAL (ARSCII) AND TYPE

§ 5 0330000 6000 3060000 000 06 36036 0336636

30 30 0

; #OCTAL

I3 I I

N NN NN

:4THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT
(RSCII)

NUMBER AND TYPE

IT.

MOV

NUM, -(SP)

; sNUMBER TO BE TYPED

.BYTE

’
.

*STEEOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE
¥CALL:

;

P
P ¥
; %

TYPOS

.BYTE

;:CALL FOR TYPEOUT

:iN=1 TO & FOR NUMBER OF DIGITS TO TYPE

;3M=1 OR O

:;1=TYPE LEADING ZEROS
: : 0=SUPPRESS LERDING ZEROS

: ¥§TYPON~--~-ENTER HERE TO TYPE OUT WITH THE SAME PRRAMETERS RS THE LAST

CZReEHED UNIBUS RK& DR PRTI

CZRBHE.P11

25-JAN-78 12:00

MACY11l

30A(10S2)

2S5-JAN-78

BINARY TO OCTAL

; #$TYPOS OR STYPOC
; #CALL:

{8339

MO v

P ¥

TYPON

PAGE

198

(RSCII) AND TYPE

{8333
4

10335

D16

12:08

NUM,
- (SP
UM, -(SPX.

_ .

SEQ 0198

3 NUMBER TO BE TYPED
:1CALL FOR TYPEOUT

{833

;:g;zfoc---snrsa HERE FOR TYPEOUT OF R 16 BIT NUMBER

16340

H ¥

igg:é

10343
10344
10345

0S172C
O0S1724
051732

10346
10347

0S1736
821742

10350

0S1760

1038
10349

10351
Loggs
10

1749
051752
5179
17
177

igggg

825553

10358

03
1035

017646
116637
112637

000000
000001
0S2145

052143

112737
112737

000001
000006

0S2143
052145

062716
00040

112737

010346
ngwq
1054

10362
10363
10364
10365
10366
10367

}ggsg

10390
10371

10372

10373

$TYPOS:

000002

00000S

ééazgz

052145

2012

113704

052143

2024

006105

0S2142

STYPOC:

052046

05204

052054

052056

052060

000404
006105
006105
6105
10503
006103

18 337

NUM, s <- (SP)

HE] NUMBER TO

MOV
MOVB
MOVB

3(SP ,-(SP)
1(SP),SOFILL
(SP)+ SOMODE+1

: ;sPICKUP THE MODE
::LOAD ZERO FILL SWITCH
;;NUMBER OF DIGITS TO TYPE

#1,S0FILL
86, SOMODE +1

:;SET THE ZERO FILL SWITCH
PiSET FOR SIX(6) DIGITS

MOV
MOV
MOV

R3,-(SP)
RY, -(SP)
RS’ -(SP)

: :SAVE
:15avE
: '5AVE

ADD
MOVB

%6, RY
R4’ SOMODE

: sSUBTRACT IT FOR MAY. ALLOWED
:'SAVE IT FOR USE <

TYPOC

ADD
BR

MOVB
MOVB

S$TYPON: MOVB

00
§7
000006
825005 11 48? 052144
082026
052030
052032
gg
k]

MOV

zgxa
MOVB

10300 022088 Opeogy ooooie
10361

18:
2%:

3%:

o0s2 144

33fioos+1,nu

R3
RY
RS

;:GET THE NUMBER OF DIGITS TO TYPE

: 'ROTATE MSB INTO "C”

33
RS
RS

005704

::GET THE ITERATION COUNT

:iGET THE ZERO FILL SWITCH

BR
ROL
ROL
ROL
MOV
ROL

8§Ea

: ADJUST RETURN ADDRESS

SOFILL,RY

R3O

ROL

BIC

RS, R3
R3

;gnooe

1L ERR THE OUTPUT WORD
GO DO MSB
:'FORM THIS DIGIT

::GET LSB OF THIS DIGIT
33 EYP§FT§35 DIGIT?

%177770,R3

PIGET RID OF JUNK

TST

: 'SUPPRESS THIS 07

g
BIS

Blors
8’ 'R3

BNE

001403

#S. SOCNT

64 963 177770
001002

82, (SP)
$TYPON

BE TYPED

::CALL FOR TYPEOUT

BEQ

::TEST FOR O
:BR

IF YES

1037e 925064 §§5 93 000060
1837 8?5390
S?gg 000040

10378 8?51
025100 13933,
ae51u8
18538} 852142

WS
53

1837

MOV
DEC

R3Bs
$§O0CNT

i1 COUNT Sv 1

igf8)

63:

i
MOV

(SP)+,RS

iEZRSSTORE
Thstle PEST
oot 1ow'T @ oL
RS

B2his Bete

10384 8§S1§§ 8?2505
444 .3

10385
10386
10387
10388

0521
0S2124
0S2126
0852134

012604
012603
016666
012616

000002

000004

MOV
MOV
MOV
MOV

(SP)+.RY
(SP)+.R3
2(SP) | 4(SP)
(SP)+. (SP)

i ORE
TRIS DIGIT Aetli i 'MAKE ASCII IF NOT ALREADY

120 T YPE THIG DIGIT

' 'RESTORE R9
: 'RESTORE R3
P'GET THE STRCK FOR RETURNING

052136
052140
052141
0sa144

MACY11

000o0c2
000
000
000
000
000000

EL1G

30R(10S2)
25-JAN-78
12:08
PAGE
BINARY TO OCTAL (RSCII) AND TYPE

199
; RETURN

.BYTE

,,STORQGE FOR_ASCII DIGIT

SOCNT:

.BYTE

,,OCTRL DIGIT COUNTER

.SBTTL

TTY INPUT RGUTINE

SOFILL:
SOMODE:

.BYTE

.BYTE
.WORD

; TERMINATOR FOR TYPE ROUTINE

;3 ZERO FILL SWITCH
; ;NUMBER OF DIGITS TO TYPE

@ 3630363696 36 300606 36 06 06 0 36 30 36 00 06 06 00 300 3606 06 00 2033606 0600 06 26 20300000 00 06 2 4

0S2146

052154

"ENABL

§TKCNT:
$TKQIN:

LS8

.WORD
_WORD
$TKQOUT: “.WORD

000000
000000
000000

SEQ 0199

8s:

w]e

CZRBEHEO UNIBUS RKE DR PRTI
. P11
CZR6HE
25-JAN-78 12:00

§TKQSRT: .BLKB
$TKQEND=.

300 2 2 B

O
O

: s NUMBER OF ITEMS IN QUEUE
; INPUT POINTER

2 TTY KEYBOARD QUEUE

*0UTPUT POINTER

.EVEN

352156

|=) Q000000000000 000QQ000000
£ LfLLtrrcsrst Ll
[ Wwwrnnnrmn PO NN - 02 0 0t gt 4t Pt Pt Pt P
W N—-0OVONCNLW nN-=OVoONCNLZWN-0O

;¥TK_INITIALIZE ROUTINE

*%THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE
P¥SETUP THE INTERRUPT VECT R AND TURN ON THE KEYBOARRD INTERRUPT

409

,lCRLL°
‘¥
'y

052156

052224

005037
012737
013737
012737
012737
005777
012777
000207

052146

000100

052150
052152
000060
000062
126720

JSR
RETURN

$§TKINT: CLR
MOV
MOV
MOV
MOV
TST
MOV

RTS

PC, STKINT

STKCNT
#STKQSRT, STKQIN
STKQIN, $tKQOUT
#STKSRY aurxvsc
8200, astKVEC+2
ISTKB
8100, 3STKS

; ;CLEAR_COUNT OF ITEMS IN ousus
,,novs THE STARTING RDDRESS OF THE
::QUEUE INTO THE INPUT & OUTPUT POINTERS.
,,INITIQLIZE rns KEYBORARD VECTOR
;;"BR* LEVEL
4
i :CLEAR DONE FLRAG

: JENABLE TTY stsonno INTERRUPT
:'RETURN TO CALLER

; ¥TK _SERVICE ROUTINE

P#THIS ROUTINE WILL SERVICE THE TTY KEYBORRD INTERRUPT

:?¥ ?5R952605255CH9RRCTER FROM THE INPUT BUFFER AND PUTTING
‘#IF THE CHARACTER IS
A "CONTROL-CTM ($C) STKINT IS CALLED AND
: %UPON RETURN EXIT IS MADE TO THE "CONTROL-C" RESTART RDDRESS (STOP)
052226

117746

001500

052300
052300

022737

JSR

AC STKINT

P INIT THE KEYBOARRD

JMP
cHP

STOP
(SP), 47

; § CONTROL C RESTART
:1S IT A CONTROL G?

CMP

BEQ

#SWREG, SWR

,,annnc IF NO
1S SOFT-SWR SELECTED?
11G0 TO SWR CHANGE

CMP

#1, STKCNT

.+ IS THE QUEUE FULL?

§TKSRV: MOVB
BIC
CMP

053354
0s21Se

TYPE

BNE

757

047500
000007
0
052276

,,chxup THE cunancrsa
;i SIRIP THE JUNK
:1S IT A CONTROL C?
?1BRANCH IFNO

126714
177600
000003

18:

000176

001140

000001

052146

BNE

3$TKB, - (SP)
£1C177, (SP)
(SP), 83
$CNTLC

(s¢)+

23 TYPE A CONTROL-C

:'CLEAN UP STACK

(1C)

CZREHED UNIBUS RK6 DR PRTI
CZREHE.P11
25-JAN-78 12:00
10445
10446
10447

001004
104401
005726

MACY11l

30R(10Se2)

TTY INPUT ROUTINE
BNE
TYPE

001200

3s:

126604
126600
177600
000021

052146
000140

oocoge

157
1518
BPL
MovB

(SP)+
asTKS
18
98TKB,

; ;CLEAN CHAR OFF STACK
:IWAIT FOR A CHAR
::LOOP UNTIL IT6 THERE
;;GET_THE CHARACTER

CMP

(SP)+, k21

BNE

MOV
RTI
INC
CMP

328:

000040
177530
0Se150
052150

052155

052154

052150

CHP
BGT
BIC

4s§:

CMP
BNE
MOV
RT

cs:
§ 3

;;c§§¢N CHARACTER OFF OF STACK

328
ISTks

: 'BRANCH IF NO
::DISABLE TTY KEYBOARD

- (SP)

$1C177 (SP)

;;nnxg IT 7-BIT ASCII

319

: BRANCH IF NO

::1S

IT A CONTROL-Q?

4§

P IBRANCH IF YES

(SP)+, ISTKQIN

;:AND PUT IT IN QUEUE

$TKQIN, 8STKQEND
5§
#STKQSRT,STKQIN

;;GO OFF THE END?
: 'BRANCH_IF NO
;;RESET THE POINTER
; s RETURN

(SP), 8175
4§
$40, (SP)

INTERRUPTS

::1S IT A SPECIAL CHAR?
:'BRANCH IF YES
:iMAKE 1T UPPER CASE

STKQIN

: 'UPDRTE THE POINTER

30000 300000 30 000 30 300030 0000 6 0030 00 030 0000 000 00 00 0000006 0036 0000 06 0006 0

; #SOF TWARE SWITCH REGISTER CHANGE ROUTINE.
; ¥ROUTINE

INTERRUPTS

; iREENABLE TTY KEYBOARD
} 'RETURN
; ;COUNT THIS CHARACTER
::1S IT UPPER CRSE?

$TKCNT
(SP), #140

MOVB
INC

égp)+

#100, 3$TKS

BLT

00017S

052442

$ IS IT A CONTROL-S?

BIC
126556

SEQ 02

(5P), 823

CMP

318:

PAGE 200
; s BRANCH IF NO
{'RING THE TTY BELL

BNE
CLR

l1eeble

FL16

12:08

3%
$BELL

ggr

000023

000100

25-JAN-78

ENTERED

FROM

THE

TRAP_HANDLER,

AND

00 0

WILL

; #SERVICE THE TEST FOR CHANGE IN SOF TWARE SWITCH REGISTER TRAP

0S2444

022737

000176

001140

L X¥CALL

BNE

126464

o486
o487

052476

001300

126460
177600
000007

§ 3 SRR

OPERATING

TTY

#SWREG, SWR

INTERRUPT

158

TST8
BPL
MOVB

93TKS
159
3$TKB, -(SP)

BNE

BIC
CHP

2$C177,(SP)
(SP), 87

;iEXIT

MODE

HE SOFT-SWR SELECTED
IF _NOT

;i
IS'A CHAR WAITING?
;1 IF NOT, EXIT
2 YES

:sMAKE IT 7-BIT ASCII
::1S IT A CONTROL-G?
P11F NOT,

; ; AND Extr

PUT

IN THE TTY QUEUE

0006 06 03 00 36 00 00 06690 36 36 36 06 36 3630 30 36 36 30 06 36 690 38 36 06 00 00 230 08 3600 06 6 3630 38 36 36 30 068 38 36 36 363 3 36 36 3

: #CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE

0490
0491
o494

WHEN

$§CKSWR: CMP

; ¥ROUTINE

052500
052506

123727

001134

0ooo001

052522

112737

052156
126422
000001

001135

052530

104401

053366

FROM

THE

SOFTWARE

; XCONTROL-G BEING TYPED,

CMPB

$AUTOB, b1

SWITCH

TRAP

CALL,

; ; ARE

29
(SP)+
PC,STKINT

'BRANCH IF YES
; ;CLEAR CONTROL-G OFF STACK
PIFLUSH THE TTY INPUT QUEUE

TYPE

, SCNTLG

; ;ECHO

astiks
$1,SINTARG

RESULT

NING IN RUTO-MODE?

BEQ
TST
JSR

CLR
MOVB

AND THE SOFTH&EERa“ITCH REGISTER BEING SELECTED.

:;DISABLE TTY KEYBORARD INTERRUPTS
;:SET INTERRUPT MODE INDICATOR
THE

CONTROL-G

($G)

052534
0Ses40

104401
013746

MACY1l

30R(10S2)
25-JAN-78
TTY INPUT ROUTINE

$GTSWR:

053373
000176

053404

19%:

TYPE

Glb

12:08

$MSWR

MOV

- (SP)
SUWREG,

CLR
CLR

, SMNEW
L(sP)
-(SP)

TYPOC
TYPE

$1C177, (SP)

: ;PICK UP CHAR
!!MAKE IT 7-BIT ASCII

000003

(SP), #3
93
§CNTLC

::1S IT A CONTROL-C?
: 'BRANCH IF NOT
:1YES,
ECHO CONTROL-C

052574

021627
00101S
104401
062706

053354
000006
001135
000100
047500

7%:

TSTB

BPL

ke, SP
SINTAG,
81

000091
126314

JMP

000025

9s:

CMP

053361
000006

20%:

RDD

000015

108:

CMP

(SP), 425
109

;315 IT A CONTROL-U?
: 'BRANCH IF NOT
*1YES,

ECHO CONTROL-U

(tU)

: ' IGNORE PREVIOUS INPUT

SILET’'S TRY IT AGRIN
;31S IT A <CR>?
::BRANCH IF NO

P1YES,

IT THE FIRST CHRAR?

i BRANCH IF YES

: :SAVE NEW SWR
: :CLEAR UP STACK

000100

126220

;;RE-EsfiBLE TTY KBD INTERRUPTS

)
m

; ; BRANCH IF NOT

15%:

RTI

PC,STYPEC
[e1]

(SP), 860

$
(SP), %67
8%
#60, (SP)+

000067
000060
000002

2(5P)
7
S

000002
177776

17%:

INC

001204

18%:

8
TYPE

S
S
(

NVVOW
i ¢« R
A NRN

051156
000060

; ;ECHO <CR> AND <LF>
'RE-ENRBLE TTY KBD INTERRUPTS?

——

000001

126242

Lr—
"

00coc2
000006
001205
00113S

[NV
2 a W

wn
W
PO

(1C)

: 'REENABLE_TTY KEYBOARD INTERRUPTS?
: 'BRANCH_IF NO
*'ALLOW TTY KEYBOARD INTERRUPTS
; CONTROL-C RESTART

89%:

:'CLEAN UP STARCK

8$
%100, 9$TKS
STOP

ocooo4

000720

;3 THE NEW SWR

J$TKB, ~(SP)

117746
042716

053004

; s JYPE CURRENT CONTENTS
; s SAVE SWREG FOR TYPEOQUT
;3;G0 TYPE--OCTAL ASCII(ALL DIGITS)
; ; PROMPT FOR NEW SWR
; ;CLEAR COUNTER

126356
177600

0S2564
052570

S4S

SEQ 0201

; ;CHAR THERE~?
IF NOT TRY ARGARIN
;3

geseg2 18857

126362

543

PAGE 201

A$TKS

105777

00
!

NO—O\D(D\JU‘U'\.SUNP-D\Dggng

DaDDODDDOODDDOODOODDOO

i nnninninininnnann [Tl
g n PUNU N > 0 ps e bt ps Pt s e b ()
00 o
onge W
W

CZRBHEO UNIBUS RK& DR PRT1
25-JAN-78 12:00
CZRBHE.P11

2(SP), (SP)
73
$QUES

20%

: ;ECHO CHAR
; ; CHAR
.

{

0”

; ;BRANCH IF YES
;3CHAR > 77
s sBRANCH IF YES
; ; STRIP-OFF RSCII

;; 1S THIS THE FIRST CHRR

; ; BRANCH IF YES
; ;NO, SHIFT PRESENT
b
CHAR OVER TO MAKE
ROOM FOR NEW ONE.
s
; ;sKEEP _COUNT OF CHAR
;;SET IN NEW CHARR
;;GET THE NEXT ONE

13 TYPE

2(CRY (LF>

; ; SIMULATE CONTROL-U

CZRGHED UNIBUS RKG DR PRT1

CZRGHE.P11

25-JAN-78 12:00

MACY1l

30R(1052)

H16

25-JAN-78

12:08

TTY INPUT ROUTINE

PAGE 202

SEQ 0202

10557

.DSABL

10560

HH 1222222222222 22222222222222X2223222222:222XX22X22X22X2X2X22222
2

1Bez8
igggé

ATHIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY

10564

10565

19285

’

10568

053006

011646

10578
10571

053016
083022

005066
005046

10575

033030

000002

10575

053032

005737

052146

(53040
053044
053052
053086
053089
053066

005337
117766
006237
023727
01003
017737

052146
177102
052150
088125

052155

052154

052152

10569

023010

016666

000004

0OOOOM

000002

$RDCHR:

10576

10577
10578
10579
105680
10581
10582

10283
10584

053032
083036

083074

00177

00COD2

E4S:

1s:

000004

10285

053076

(53100

010346

OO0SDYE

10593 093102 012703 053332
10594

MOV

#6438, - (SP)

RTI

ITHE

PPpUT NEW PC ON _STACK
}1pOP NEW PC AND PS

TST

STKCNT

BEC
MOVB
INC
CHP
BNE
MOV

FKCNT
. s DECREMENT THE COUNTER
STKQOUT,4(SP)
.:GET ONE CHARACTER
$TKQOUT
} i UPDATE THE POINTER
STKQOUT, ¥STKQEND' : :DID IT GO OFF OF THE END?
25
. 'BRANCH IF NO
¥STKGSRT, STKQOUT' : :RESET THE POINTER

BEQ

. sWAIT ON A CHARACTER

18:

MOV

¥$TTYIN,R3

125713

000177

108:

000134

0S3IN4

Qlerie

177777

10611
10612

iiGET READY FOR A CHARACTER
'PBUT NEW PS ON STACK

R3,

053120

061022
005716
001007
112737

10610

4(2P)
-(3P)

MOV

053154
053126
083130
053132

10605
10606
10607
10808
10603

. :PUSH_DOWN THE PC AND

4(sP}, 2(5P)

SROLIN:

053354

10899
10600
10601
10602

10604

(SP) , - (SP)

MOV

RDLIN
RETURN HERE

025703

(83112
053119
083116

10603

}iITH PARITY BIT STRIPPED OFF

Py
Py
Py

053106

10295
10296
10597

10598

MOV

' CHRRACTER 1S ON THE STACK

2s:
RTI
. P RETURN
HH ****!*********!*ll’*****l’*****i’i*****‘ll"l******l***l’****l*l*l**‘l’
' ¥CALL:

10287
10288
10289
10591

. :GET A CHARACTER FROM THE QUEUE

RETURN HERE

'ETHIS ROUTIME WILL INPUT R STRING FROM THE TTY

10586

10862

RDCHR

CLR
LR

19255 323855 393948 os3032
10574

LSB

053140

053150
083152
053126
053180
083164

053170

083172
083179

101456
104410
112613

104401

005303
020327
103434
111337
104401

000746

005716
001406

053330

053332

053330

CLR

CMP

053330

0OB3330

- (SP)

~(%p)

$STTYINS22,R3

. :SAVE R3

P12 EAR THE RUBOUT KEY

t1GET ADDRESS

| :BUFFER FULL?

BLOS
RGCHR
MOVB

BNE
i
BNE
MOVB

5§
(5P)
63
#’\,98%

FIBR IF NO
}i15 THIS THE FIRST RUBOUT?
''BR IF NO
' 3YPE A BACK SLASH

MOV

-1, (SP)

. :SET THE RUBOUT KEY

cMPB

TYPE

68:

. INPUT A STRING FROM THE TTY
i ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK
P ITERMINATOR WILL BE A BYTE OF ALL 0°S

(SP)+,

(R3)

%177, LRI

DEC
CHP
BLO
MOVB
TYPE

R3
R3, 4STTYIN
4s
(R3),98
9%

757
BEQ

(5P)
7%

PIBR
IF YES
1180 READ ONE CHARACTER FROM THE TTY
IGET CHARACTER

P76 1T A RUBOUT

P iBACKUP BY ONE
' 1STACK EMPTY?
iBR IF YES

PiEETUP TG TYPEOUT THE DELETED CHAR.
1126 TYPE

1180 READ ANOTHER CHAR.
I RUBOUT KEY SET?
'IBRIF NO

000134
053330

[

00002s

[w]e elalele])i]
O£ L0N—n
£=n n
~ £ LOONNL
~NO
[ OOyt
[y
o
Lol
NT d A
—-Ww o

30A(10S52)
25-JAN-78
TTY INPUT ROUTINE

MOVB

053330

TYPE

7%:

8s%:

000022

001204

ys:

053330
053330
000015

3%:

0S3404
os3412

053416

00s01S
006525
00sa1S
0S1412
000040
042516
000

000
ooogle
000
0s11e?
020127

$TTYIN:
SCNTLC:

lSP)

: sCLEAR THE RUBOUT KEY

G0 START OVER
1S CHARACTER A "tR"?

BNE
CLRB
TYPE
BR

$CNTLU

33
(R3)

, SCRLF

STTYIN

TYPE

SQUES

¥$gg

(gg),es

:TYPE _THE INPUT STRING
,,co chxup ANOTHER CHACTER
S TYPE
A

: 'CLEAR THE BUFFER _AND LOOP
:'ECHO THE CHRRACTER

,,CLERR RETURN (THE 15)

TST

{SP)+

,,CLERN RUBOUT KEY FROM THE STACK

MOV
MOV

4(SP},2(SP)
#STTYIN,§(SP)

.BYTE

,,sroancs FOR ASCII CHAR. TO TYPE

RTI

SLF

(5P)+,R3
(SP),~(SP)

.ASCIZ

/tC/1S> U

.BLKB_

:TYPE R LINE FEED

: 'RESTORE R3
; ADJUST THE STACK AND PUT ADDRESS OF THE

FIRST RSCII CHARACTER ON 1T

; RETURN

i {RESERVE 22 BYTES FOR TTY INPUT

/tU/<16>¢1D>

} PCONTROL "U*”

/1G/<18>¢1d)

SMNEW:

.RSCIZ

:LO0P IF NOT RETURN

;s TERMINATOR

BYTE

.RSCIZ

.SBTTL

SITYPE A "CRTM & "LF"

-1(R3)

§CNTLG:

.EVEN

; s BRANCH_IF NO
;CLEAR THE CHARACTER

;s CHECK_FOR RETURN

§CNTLU: .ASCIZ
IMSWR:

JiTYPEA CONTROL "U”

kiS, (R3)+

MOV
MOV

qs:

. s TYPE A BACK SLASH

is
822, (R3)

TYPE

000002

£'\,98

B8R
CMPB

CLRB

000004

SEQ 0203

;2 IS CHARACTER A CTRL U?
:IBR
F
NO

BNE

001206

PRAGE 203

#25, (R3)
83

CMPB

177777

I16

12:08

CMPB
8NE

TYPE

001205
053332

000004
053332

CLR

TYPE

053361

o
o
£

Bt Dt Pt Pt Pt P Bt Bt e Pt ot Pt Pt Bt Pt Bt Pt Pt Pt P Pt s Pt P Pt ot Pt Pt Pt s Pms Bt et Pt Pt P Pt Pt Pt Pt P

112737
104401

.—o;—..—y—gh a8 ne

053176

ot Pt (s Pt Pt P

Pt e Pt st Pt Pt ot Pt >—

0000000000000
0o
oo oo
oo
nnrn [AV) PORUN)
0= s pos s s e [
NonL [N N~V
LW

CZRBHED UNIBUS RK& DR _PRT1
25-JAN-78 12:00
CZRBHE.P11

MACY1l

<15>¢12>/5WR = /

; CONTROL *C"

; :CONTROL "G"

NEW = 7

READ AN OCTAL NUMBER FROM THE TTY

o 3606003636 3036 36 3606 36 36 36 30 36 36 36 36 06 06 3 36 36 26 3606 36 36 06 30 30 00 00 36 30 036 30 36 00 06 00 303636 90 36 36 00 36 30 36 30 30 00 063 2 3 2 0 2 3

iTHIS ROUTINE WILL READ AN OCTAL (RSCII) NUMBER FROM THE TTY AND
:#CHANGE IT TO BINARY
:#THE INPUT CHARACTERS WILL BE CHECKED TQ INSURED THEY ARE LEGAL
:%0CTAL DIGITS. IF AN ILLEGAL CHARACTCR IS READ A "?" WILL BE TYPED
:#FOLLOMED BY A CARRIAGE RETURN-LINE FEED. THE COMPLETE NUMBER MUST
}#THEN BE RETYPED. THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETURN.
P%CALL:
%
RDOCT
; sRERD AN _OCTAL NUMBER

0659

053416
0S3420
053426
053430

000004

000002

'y
tx

RETURN HERE

$RDOCT:

MOV

MOV
MOV
MOV

(5P),-(SP)

4(SP},2(SP)
RO, -(SP)
R1)-(5P)

::LOW ORDER BITS ARE ON TOP OF THE STACK
: 'HIGH ORDER BITS ARE IN SHIOCT

,,PROVIDE SPACE FOR THE

: INPUT_NUMBER
'PUSH RO ON STACK
:'PUSH R1 ON STACK

001204

053554

000000

R2
(RO, +,-(SP)
33
%0, (SP)
4§
8’7, (SP)
s

-~
+

SHIOCT:

.SBTTL

BR
. WORD

; ;PICKUP THIS CHARACTER
'11F ZERO GET OUT

! !MAKE SURE THIS CHARACTER
115 AN OCTAL DIGIT

;%2

;%8

g
w
.
-

)

5%:

; ;GET RADDRESS OF 1ST CHARACTER
; ;AND SAVE IT
; ;CLEAR DRTR WORD

;o a4

R
. L
+4++INV+

U
0O

3%:

4s:

$QUES

DOUBLE LENGTH BINARY TO

;s ;STRIP THE RSCII JUNK
; $ADD_IN THIS DIGIT
; LOOP

,,CLERN TERMINARTOR FROM STACK
;SAVE THE RESULT

.,POP STACK INTO Re
; ;POP STACK INTO Rl
,,POP STRCK INTO RO

,,CLERN PRRTIRL FROM STACK

:16ET A TERMINATOR

!!TYFE UP THRU THE BRD CHAR.

. [ 1] 9“

ODCRII

.‘LF“

!TRY AGR

HIGH ORDER BITS GO HERE

béTnL ASCIT CONVERT ROUTINE

!**l!l!l!!lll**!l!**ll!!lil*l**!*l!lll!lll!llllll!l§§ill!lll!l!

'iTHIS ROUTINE WILL CONVERT
A 32-BIT UNSIGNED BINARRY NUMBER TO AN
}#UNSTGNED OCTAL ASCIZ NUMBER.
: #CALL
’

»
*
,
*
l

MOV
JSR
RETURN

$0820:

SAVREG

053610

000002

#PNTR, - (SP)

PC, 3880820

2(SP)

csOCTOL+13 ,RS

s ;POINTER _TO LOW WORD OF BINARY NUMBER
ROUTIN
!ICALL THE ROUTI
; ; THE ADDRESS OF THE FIRST ARSCIZ CHAR. IS ON THE STACK

; ;SAVE ALL REGISTERS
*!PICKUP THE POINTER TO LOW WORD
;POINTER T0 DATA TABLE

D0 ELEVEN CHARACTERS

: MASK
,,LONER WORD

177770

NU\NO—D,J-SU\'—U

053556
053560

oO-0000000
Pt Pt () 0 Pt Pt Pt s pe )
oo
£
OO
r— NN
L
OoOL£0000000w

UM NONUT 0 9t bt e e P st e ps e Q
LW ODONONILWV—O O

177770

000012
053554

(SP)+,RC

RO, 5§’

~NA~DND NV~
DDD0 V0L
NUIN—WUNR
N ->MNUr- =Ny
VOO - TV
WO

000067

,,RERD AN ASCIZ L INE

oY)
-0

000060

SEQ 0204

;PUSH R2 ON STAC K

R2,-(SP)

—

053544

MOV
RDLIN
MOV
MOV
CLR
CLR

2DDOW
OO

19:

010246
104411
012600

J16

PAGE 204
12:08_
25-JAN-78
READ AN OCTAL NUMBER FROM THE TTY

30A(10S2)

DDDDODODDODDDDDDDD%ODDDDODOODOODDDDOD
NN NN NNNNNNNNNNNYN

Dt Pt Dt Pt Pt Bt Bt Dt Pt Bt Pt oot Pt Pt Pt Pt Pt Bt Pt (et Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt et Pt ot Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt i P

ot Pt e

0s343e

MACY11l

CZRBHED UNIBUS RK& DR _PRT]
CZREME.PLIL
25-JAN-78 12:00

‘HIGH WORD

1%:

- (RS)
R2,
RO, R2

P TERMINATOR

: 1PUT CHARACTER IN DATA TABLE
::GET THIS DIGIT

CZREHEQ UNIBUS RKG& DR PRT]
CZREHE .P11
25-JAN-78 12:00

10725
10726
10727
10728
10729
10730
10731
10732
10733
10734

053612
053614
053616
053620
053602
053626
053630
063632
053634
053636

005304
003007
00140S
005205
010566
104914
000207
006203
006001
006000

10739

053650

040302

10735
10736
10737
10738

10746
10741
10742

i8$33
10748

053640
053642
053644
053646

053652

053656
053660

K16

MACYil 30R(10S2)
25-JAN-78
12:08 PAGE 205
DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE

000002
2%:
38:

006001
006000
00
006000

062702
000753
000016

DEC
BGT
BEQ
INC
MOV
RESREG
RTS
ASR
ROR
ROR

PC
R3
R1
RO

; ;COUNT THIS CHRRACTER
*:BR IF NOT THE LRST DIGIT
::BR IF IT IS THE LAST DIGIT
:JALL DIGITS DONE-ADJUST POINTER FOR FIRST
:3ASCIZ CHAR. & PUT IT ON THE STACK
: 'RESTORE ALL REGISTERS
:'RETURN TO USER
:;POSITION THE MASK FOR THE LAST DIGIT
:iPOSITION THE BINARY NUMBER FOR
H
THE NEXT OCTAL DIGIT

R3,R2

; ;MASK OUT ALL JUNK

18
19,

::GO PUT IT IN THE DATA TABLE
: :RESERVE DATA TABLE

ROR
ROR
ROR
ROR

R1
RO
R1
RO

ADD

%’0,R2

BIC

000060

RY
33
23
RS
RS, 2(SP)

BR
.BLKB

SEQ 0205

:'MAKE THIS CHAR. ASCII

_SBTTL SINGLE LENGTH BINARY TO OECIMAL ASCIZ ROUTINE

SOCTVL:

H 33 36 36 36 36 36 36 36 36 36 3 36 6 36 36 36 36 36 36 3% 36 3 36 336 36 36 36 3 3¢ 3 3 3% 36 3 3 3 3 3 3 3 3 3¢ 3 3 3 3 3 3 3 3 3 I 3 3 3 3 3 % % % %

10746

:&THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN

10749
10750

tx
x

{8;25

;:ggfificnso DECIMAL RSCIZ NUMBER.

ig;gé

10753

10754

x
053676

10765
10756

053704
053710

10788

053720

10767

10769

1076

{8325

016637

012746
004737

053714

062716

(53724

000207

053726

012666

000000

000002

053726
053732

053726

$S820:

00000S

000002

MOV
JSR

NUMBER, - (SP)
PC, a#8582D

MOV

2(SP),

ADD

5 (SP)

RETURN

MOV
JSR

MOV

000000

18:

.SBTTL

RTS

.WORD_

; sPUT BINRRY NUMBER ON THE STACK
2 1CALL

: JADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK
: s SAVE_BINARY NUMBER

$18, -l5P)
PC, 248DB2D

:1SET POINTER
:'CALL DOUBLE LENGTH CONVERT

(5P)+,2(SP)

0,0

PONLY ALLOW FIVE CHARACTERS

: iPICKUP POINTER

: RETURN

DOUBLE LENGTH BINARY TO DECIMAL ASCII CONVERT ROUTINE

10763

HH 3636 36 3 36 3 3 36 36 3 36 36 3 36 36 36 36 36 36 36 3 36 3 3 3 3t 36 3 I 3 3 3 3 3¢ 3 36 2 3 3 3 3 3 36 36 36 3 I 36 3 36 36 36 3 3 3 3 3 3 3 2 ¥ ¥ %

10765

'xDECIMAL

10764

*4THIS ROUTINE WILL CONVERT A 32-BIT BINARRY NUMBER TO AN UNSIGNED

10766
10767

(ASCII) NUMBER.

1 ¥POSITIVE.
: kCALL

10768

MOV

10770

RETURN

10769

10771
10772

10773

10774
10775

053732
053739

10779

063752

10776
10777
10778

10780

104413
016602

053740
053744
053750

012700
010066
012201

083754

012737

012202

$DB2D:

000002

0S4112
000002

000012

0S4030

JSR

SAVREG
MOV

#PNTR, - (SP)

PC, 3880820

; sPOINTER TO LOW WORD OF BINARY NUMBER
;; THE FIRST ADDRESS OF ASCIZ

;115 ON THE STACK

2(SP),R2

MOV
MOV
MOV

#$DECYL , RO
RO,2(SP}
(R2)+,R1

MOV

#10. ,4¢

MOV

THE SIGN OF THE BINARY NUMBER MUST BE

(R2)+.R2

; ; SAVE REGISTERS
PICKUP THE DATA POINTER

:GET ADDRESS OF “SDECVL” STRING
:'PUT ADDRESS OF RSCIZ STRING ON STACK
; iPICKUP THE BINARY NUMBER

:3SET UP TO DO 10 CONVERSIONS

CZRBHED UNIBUS RKE LR _PRT1
CZRBHE. Pl
25-JAN-78 12:00

053762

012704
2805

os4g42
Os4044

MACY11

L16

30A(1052)
25-JAN-78
12:08
PAGE 206
DOUBLE LENGTH BINFRY TO DECIMAL ASCII
MOV

#$TNPWR , RY

: s ADDRESS OF TEN POWER

CLR
SuB

R3
(R4),R1
R2
(PS),R2
3%
R3
2%
(RY)+,R1
R2
(R4)+,R2
(R5)+’ (RS5)+
%'0,R

: s CLEAR PARTIAL
:'SUBTRACT TEN POWER

MOV

1$:
23:

SBC
SuB

BLT
INC

BR
ADD
ADC
ADD
CMP
BIS

3s:
S
052703
0

000060

MOVB
DEC

4s:

$TNPWR:

000000000
00 0000000000
(0 M MmQ000 G0 000 0D 0D 00 (D O 0 M 0 M
W PO PUNI DY 4= 4 s poe 4 pst et Pt s p— (O
N—-0OvoNcNE WN—OWONCNILWN—-0O
W

10808

$DECVL:

000014

_SBTTL

35 BEIEIE

CONVERT ROUTINE

. WORD
BNE
CLRB
RESREG
RTS
145000
35632
160400
2765
158800

$3TNPWRY2,
RS

R3,{RC)+
(P)+
0
13

(RO)+

::BR IF TEN POWER TO LARGE
P'ADD 1 TO PARTIAL
; s LOOP
: 'RESTORE SUBTRACTED VALUE
; sMOVE TO NEXT TEN POWER
: *CHANGE PARTIAL TO ASCII

J'SAVE IT
: ' DONE?

;;BR IF NO
;' TERMINATOR
: 'RESTORE REGISTERS
} RETURN
::1.0E09
;:1.0E08
;3 1.0E07

?;1100

;:1.0E06

ioaeu

;;1.0E0S

Sau’

:31.0E04

é?

::1.0E03

éqq

;3 1.0E02

;;1.0E01

::1.0E00

.BLKB

12.

. :RESERVE STORAGE FOR ASCIZ STRING

TYPE NUMERIcAL AscIZ STRING SUPPRESS LERDING ZEROS

I U000 000 T30 30 00 06 066 30 36 36 36 36 060

0630 36 30363 306 2 36 30 30 3606 30 636 30 36 00 30 36 0 30 36 30 3630 36 36 30 30 36 06 2

;4THIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE
;:EEEEING NUMBERS.

MOV

JSR

PC, 98SSUPRS

SNUMADR,-{SP)

;;FIRST ADDRESS OF RSCIZ STRING

$SUPRS:

MOV

RO, -(SP)

; sSAVE RO

18:

TSTB
BEQ

(RD)
2%

: ' TERMINARTEOR?
:IBR IF YES

s¥

054126
054130
054134
0S413¢

000004

MOV

4(5P) RO

*'PICKUP THE POINTER

SEQ 0206

CZRBEHED UNIBUS RK& DR PRTI1
25-JRAN-78 12:00
CZRBME .P11

415

{8845
os416M

122;;0

i
872888

000060
054156

0lz2616
000207

30R(10S2)

MLlE

25-JAN-78

12:08

PAGE 207

SEQ 0207

TYPE NUMERICAL RSCIZ STRING SUPPRESS LERDING ZEROS
cMPB

as:

DBEC

3s:

_WORD
MOV
MOV
RTS

MOV
TYPE

.SBTTL

#’°0,(RO)+

ASCII

zzgncxup Ev YPING

*“0"

:3SAVE FOR T

RO, 38

TER GOES HERE

O
(SP,+,R0

E;RE$TORE TH E STARCK

(SP)+. (SP)

. :

RETURN

SAVE AND RESTORE RO-RS ROUTINES

v o 353636 36 3 36 36 3% 36 3 36 36 3 36 36 3 36 36 3 36 36 3 I 36 36 3 6 3 3 36 3 3 3 3 3 3 3 3 36 2 3 3 I 3 3 3 3 % 3 3 I I 3 3 I 3 % I 3 X % ¢ %

' kSQVE RO-RS

; #CALL:
! %

SAVREG

: XUPON RETURN FROM SSAVREG THE STACK WILL LOOK LIKE:
%

; ¥TOP---(+16)

(% 42---(+18)

+4---RS

054260

e T

nununn
V0VVUO

Nt Nt Nt N

R
I
B
|

MRIN FLOW
MAIN FLOW
CALL
CALL

.SBTTL

Nt Nt
N

vy
Bk k]

202020
2050 0NN
O~
£

Nt Nt Nms? Nt Nt Nt Nl Nt

RTI
TRAP DECODER

N TN AN AN TN NP

$RESREG:

x
o
<

goo0ee
000022
000022
000022

VLV VWG
TVUVVVTVVUVUVUOO

: \RESTORE RO-RS
; #CALL:
‘%
RESREG

(e}
£

0s4224
gs4224
054230
0S4234
0s4240
oS4y
0S4246
0S4250

—~N~

000022

OS4e22

~
s NNV
- wwes PUVVVOVO

X
(=]
<

MOV
MOV

11V
) IV
N A|

$SAVREG:

0S4166
054166
0S4170
gs4172

MM
020200020
s~
0O

;% +6---RY
% +8---R3
; #+10---R2
; #+12---R1
; ¥+ 14---R0O

ommmmgmmmmm

1883

10841

0S4140
gguxqq
41y

O0O0000000000
0= 0= Pt st ot Pt Pt s Pt Pt

10837
1083§

MACY11l

OF
OF
OF
OF
STACK I NTO
STACK
STACK
STACK
STARCK
STRCK

; ;RESTORE
' {RESTORE
;
TORE
; ; RESTORE

::POP
; ; POP

; ; POP
; s POP
; ; POP
; ; POP

PC
PS
PC
PS

CALL
CALL
MAIN FLOW
MRIN FLOW
RS

CZR&HEDC UNIBUS RK& DR PPT]
CZREME . P11
25-JAN-78 1°:00

BO1

MACY11 30R(1052)
25-JAN-78
1
TRAP DECODER

12:08

PAGE 208

SEQ 0208

10893

HH H30 0030 36 36 36 36 36 38 2 36 38 3 96 3636 36 36 3636 3 3% 36 3 3 36 96 3 36 3 3 % 3 3 3 3 2 33 3 9% 33 W 3

10895
10896

‘#QND USE IT TO INDEX THROUGH THE TRAP TRSLE FOR THE STARTING RDDRESS
:#0F THE DESIRED ROUTINE. THEN USING THE RDDRESS OBTARINED IT WILL

16894
{gggg

10899

10300

1090]
10902
10303
10904
{8305

H W% KE W

E SN E SN

1%G0 TO THAT ROUTINE.
0S4262

010046

054270
0S4272
054274
0S4276
054302

005740
111000
006300
016000
000200

054264

016600

STRAP:

000002

CS4316

10907

10910

0S4304

011646

iggig

054314

000002

054306

O0lbbbt

{gg{g

000004

RO,

MOV

000002

:; THIS

IS USE

STRAP2:

MOV

- (SP)

: sSAVE RO

2(5P) RO

-(RO)
(RO),RO
RO
STRPAD(RO),RO
RO
TO HANDLE

MOV

RTI

.SBTTL

10916

MOV
TST
MOVB
RSL
MOV
RTS

igggg

10911

;kTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP* INSTRUCTION

THE

*'GET TRAP RDDRESS

: BACKUP BY o
:1GET RIGHMT BYTE OF TRAP
JiPOSITICN FOR INDEXING
::INDEX 10 TRBLE
:3GO TO ROUTINE

“GETPRI"

(SP),-(SP)

4(SP},2(sP)

MACRO

; sMOVE THE PC DO:IN

:'MOVE THE PSW DOWN
:'RESTORE THE PSW

TRAP TABLE

; #THIS TRBLE CONTARINS THE STARTING ADDRESSES OF THE ROUTINES CALLED

{83{5

:2BY THE “TRAPTM

10919

;

ROUTINE

$TRPAD:

.WORD

STRAP2

;;CALL=TYPE
;;CALL=TYPOC
;;CALL=TYPOS
;;CRLL=TYPON
;:CALL=TYPDS

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LEADING ZEROS)
TYPE OCTAL NUMBER (NO LEADING ZEROS)
TYPE OCTAL NUMBER (RS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SIGN)

10920

10921

0S4316

0S4304

‘

10922
10923
10924
10925
igggg

054320
0S4322
054324
054326
084330

050744
051744
051720
051760
051226

iggsg

054332

052534

SGTSWR

;; CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

10930
10931
10932
10933
10834
10935

054334
084336
054340
054342
054344
0S4346

052444
053006
053076
053416
054166
054224

SCKSWR
SROCHR
SROLIN
SROOCT
§SAVREG
SRESREG

; ; CALL=CKSWR
; ; CALL=RDCHR
;;CALL=RDLIN
; ; CALL=RDOCT
; ;CALL=SAVREG
; ;CALL=RESREG

TRAP+7(104407)
TRAP+10(104410)
TRAP+11(104411)
TRAP+12(104412)
TRAP+13(104413)
TRAP+14(104414)

TEST FOR CHANGE IN SOFT-SWR
TTY TYPEIN CHRRACTER ROUTINE
TTY TYPEIN STRING ROUTINE
READ AN OCTAL NUMBER FROM TTY
SAVE RO-RS ROUTINE
RESTORE RO-RS ROUTINE

iggg;

054350

047376

STYPE
$TYPOC
§TYPOS
STYPON
STYPDS

INSTRUCTION.

SCOP1S

:;CRLL=SCOPI1

TRAP+15(104415)

INTERNAL LOOP ON ERROR

CZRGHED UNIBUS RK& DR PRTI

CZREHE.PI1

25-JAN-78 12:00

MACY11

{8338

10940

1041
1

30R(1052)

TRAP TABLE

10943

10948
109499

COl

12:08

PAGE 209

SEQ 0209

.SBTTL SERVICE MSGS

054352

CEVEN

000062

BSE22S:

18398 osusie 00SO1S Q47125 041111 MSGL:

los

25-JAN-78

0S4t

B2u2df
d

0S4E46
QS4BSY

0S1ss8

0SI0N0

030113

040511
DudSAd

047107
00603

OIS

guiui2

051132

041940
047117

0S2S01
025040

044524
025052

B3%JSR

042040
Qolol7

.BLKW

S0.

;22 SECTOR SOFTWARE

INFO

.ASCII <CR.<LF>/UNIBUS RKOG-RKO? DRIVE DIAGNOSTIC--PART 1.

B4sass 33dLs?
4

10950 &4362 83082? 051101 020124
10952

OTu5?

163°S
10956

04612
O

10962

054660

10929 Boubom Bosole 032677 02203
= 4

18328 B:3tB
{2 ouuize osisii
=t BER e fHG Bl
10360
B296d3 Quetdd
B34Ya9 Buzzig
044040

10963
10964
10965
i§96§

054666
DS4674
0S47
471

020104
041040

10969
10970
10371
log7e
1097
10974

054726
054734
Qsu7d2
02
4706
024764

10968

0247

10978

54772

igg7z

10478
10979
10980
10981

10964

1
055016
055024
0S50

046101

054514
054524
Q4INg
046117

053522
091440
Qu2ll]
Ji1
111
1

051511
051101
042507
0515
107
1117

026105
OSil2d4
093040
Qoo
047101
052040

018 0S2117 042510

020124
Qoolle
2624

092040

Odds22

guosis

02013)

047111
OQu71s5
(046522

<CR> (LF>/CZRBHED/
<CR> <LF>

.ASCII <CR><LF>/

x%% CAUTION #%%/(CR><LF>

_ASCII <CR><LF>/THIS PROGRAM SHOULD BE HALTED ONLY BY TYPING CONTROL-C/

042524

047117
020131
Qa3sle
1129

QMesl0

_ASCII

43105
040440
Qucen
047111

§§§§ 005015 047111 0S2111

1098
10986
10967
1098
10969

0%
055066
05074
055102
055110

QuoSil
042040
020123
020105
092108

Q4elld
044522
047504
042504
051440

0263l
042526
041040
052123
047510

10993

055136

044040

O40S0E

0S1504

1099, ooeisq Dusisp Ds0igd 040810
10932
085131
8IS
040418
020056

JASCIT

(CR><(LF>/OTHERWISE, CARTRIDGE FORMATTING AND,OR THE DRIVE/

_ASCII

<CR><LF>/MAY BE LEFT IN AN UNDETERMINED STATE/(CR><LF>

JASCII <CR><LF>/INITIALLY, DRIVES TO BE TESTED SHOULD HAVE:/<CR><LF>

_ASCII

<CR><LF>~/A..

HEADS MANUALLY LORDED/

CZR6HED UNIBUS RK6 DR PRT]
CZREMHE .P11
25-JAN-78 12:00

222
SRR

12:08

PAGE 210

SEQ 0210

&%
L
00

.RSCII

<(CF><LF>/B.

CORRECT PORT SELECTED/

020056

.RSCII

(CR><LF>/C.

WRITE LOCK DISRBLED~/

.ASCII

<CR>(LF>/D.

DRIVE REARDY INDICATOR ON/<(CR><LF>

.RSCII

<CR><LF>/DRIVES NOT

.RSCIZ

<CR> (LF>/PORTS DESELECTED/<CR><(LF>

.ASCII

(CR> <LF>/CHANGE XXDP PACK~/

.ASCIZ

(CR><LF>/CLEAR LOC

MSG3:

.RSCIZ

<CR><LF>/DRIVE(S)

TO BE

020123

MSGH:

.ASCIZ

<CR>(LF>/BUS ADDR

(177440):

0s2116
0S1104
De44e0

MSGS:

.RSCIZ

<(CR><LF>/CONTR ARDDR (210):

052116
0S0040

MSG6:

.RSCIZ

(CR>(LF>/INTR AT PC=/

020040
041S0S
gs2lee
041505

UYNo=
= P
(]
LN

MSGe:

TO BE

TESTED MUST HAVE

40,RESTART PROGRAM/

055606

[

R
G
nSR<R0 »-v—b-g

232

§§E%§:’g§ 32

Pt Pt Pt Pt Pt

s Pt Pt Pt Pt

Q000 00000000000
ODDOODDDQODDODDDDDOD%
[J
e
OO
NN
L
WO
00NUNT
L
¥ wh
R
£t L IS&IMNUU&QWB £0
0 00 N
£ WN—-0OwW 8% RReoRon

s Pt PPt Pt

s Praes Pt Pt Pt (Bt Pt s P P
e Pt e Pt Bt Pt Pt Pt Bt Bt et Pt Pt Pt it Pt Pt Bt P Pt Pt e P Pt s Pt s Pt Pt o
P Bos Bt et s P P

30R(10S52)
é5-JAN-78
SERVICE MSGS

g40ses
047514

10994

Pt Bt 5t Bt Bt Bt Bt Bt it Bt et ot et (s Pt Pt Pt Pt s Pt Pt Bt B Bt Bt et s Pt P Pt Pt s P Pt ot Pt Pt Bt Pt Pt Pt Pt P8 Pt PPt P Pt B

MACY11l

TESTED:

035104
-

BOTH/

(ZREHEQ UNIBUS RK6& DR _PRTI

CZREHE.P11

25-JAN-78 12:00

11050

0SSe11

11823

0556

11056
11057

0S5654
0S

110

MACY11l 30R(1052)

SERVICE MSGS

01S

Ogggég

044338

02?129

2502

052?48

0123

oS24
0062

5616

(

110%5 8256%“ 8: 111 020114 047516

iiOSS

MSG7:

2246 8853?2 8:5?53 8221 3 MSG8:
1

25-JAN-78

.ARSCIZ

EOL

12:08

PAGE 211

<CR><LF>/DRIVE O WILL NOT BE TESTED/

.ASCIZ <(CRX(LF>/TEST 16 TAKES 2 TO 4 MIN./<CR>LF>

11061

11060 0S5704 00501% 0S4s0e2 040Se0 MSG9:
055712

051523

047111

020107

.ASCIZ <CR><(LF>/BYPASSING TEST 1b/<CR><LF>

11064

057

0S3412

046111

MSGI10:

.ASCIZ

<«CR>(LF><LF>/WILL TEST DRIVE(S):/

11068

055761

015

005012

047520

MSGll:

.RSCIZ

<«CR><LF><LF>/POWER UP RESTART TO TEST 1/<CR><LF>

11065

11069
11070
11071

055

057
0557
056002

114

Q4es27
0S1040
0OS2122

0O4eSe4

020122
1505
052040

0S52l1el3

050125
040Se4
020117

e pele Gl sl ok
11074

0s6021

015

042502
047506
042524

041501

047111
048522
006504

MSGl2:

.RASCIZ

<CR><LF>/PACK BEING FORMATTED/<CR><LF>

00S01S

047516

046040

MSG13:

.ASCII

<CR><LF>/NO L OR P CLOCKS/

0S6074

005015

044524
0S2040

6101

4615
051505

020114

.ASCIZ

<(CR><LF>/ALL TIMING TESTS BYPASSED/

11075
11076
11077
11078

056026
056034
OSBOHS
605

020113
020107
052101
00le

11082

11087

11079

11083
11084

0S6052

056102
0S6110

0S00ie

043516
0S1524

11088
i}ggg

056130

056136
822{;;

00S0

051523
051683

0S4502

047111
0S3111

040520

MSG1l4:

.ASCIZ

<CR><LF>/BYPASSING DRIVE /

iiggé

8%2{28

053?{?

838162

051683

MSG15:

.RSCIZ

<CR><LF><LF>/DRIVE /

11093

0S616S

015

042012

044522

MSG1b:

.ARSCIZ

<(CR><LF>/DRIVE SERIAL &/

11096

056206

005015

040503

052122

MSG17:

.ASCIZ

<CR><LF>/CARTRIDGE SERIAL NO.~/

11100

056235

0Sea4e
056250

0S1117
041040

01S

00S0le

041101

MSG18:

.RSCIZ

<CRY(LF><LF>/ABORTING BAL OF TESTS/<CR><LF><LF>

11105

0See271

01S

00S012

046101

MSG18:

.ASCIZ

<CRY<LF><LF>/ALL DRIVES TESTED/<CR><LF><LF>

11097

11101
11102

0S6e1M4

8:9525

Q43504

044524
046101

020107
020105

020105

043516
047440

SEQ 0211

CZREHEQ UNIBUS RKE DR PRTI

C%R&HE.Pll

25-JAN-78 12:00

MACY11 30A(1052)

SERVICE MSGS

11106
11107
1xxog

0S6276
056304
056312

020114
0S1605
ouagaw

053104
052040
006504

053111
051505
005012

Hila
11118
11115
11113
iiiéo
11155
11123

gems
055322
02e3s
056
83231
el
(6434

golls mally
835 og
030192 Ga%iie
Bsgsxw osgng
§§soxs 8:7saq
390
O40cae
ggxga
7940

po
052040
geocoq
051505
0S1040
Ous254
011

ffi?o 8?235?

11124
11125
111:9

ossugs
056N
oss:ss

11130
11131
11122
11133

0S6504
ossgés

11137

7865

i{fg osgqsq
11133 ggau

6526

1130 Deeeds
}fias
65

015

2 1
1

042524

Q4e412 042117 MSG20:

114
1
835?30

45
040520 MSG21:
837111 020107

020123
026060
0S1117
046125

4524

043516

FOl

12:08

PAGE 212

Boih Ogezs; gssisd
16§
06 046522 MSG22:

iii:? E?asoo
01 gqesaz 838%33 MSG23:
11142 C-6614 835512 020123 0630061

.ASCIZ <(CR><LF>/BYPASSING TESTS 36,40,41 FOR MODULE TESTING/<(CR><LF>

.ASCIZ <CR><LF>/FORMATTING FINISHED/<CR><(LF>
.ASCIZ <(CR><LF>/TEST 16 TAKES 10 TO 12 MIN./<CR><LF>

11143

36658

0s2040

020117

031061

11146
11147

0S6640
0OSeed6

00SO01S
041101

043520
0S1117

020115
020129

MSG74:

.ASCIZ

<CR><LF>/PGM ABORT PENDING.../

11150
11151

05666
056624

016
020129

044012
042520

046101
042116

MSG?S:

.ASCIZ

<CR><LF>/HALT PENDING.../

11169

086711

015

0S0012

046507

MSG?6:

.ASCIZ

<CR>(LF>/PGM ABORTED/

11187
11158
11169
11160

086787
056734
0S6742

0I5
044040
000104

0414912
046101

052520
092524

MSG?7?:

.ASCIZ

<CR><LF>/CPU HALTED/

i gk g

11161

il o

SEQ 0212

.ASCII <CR><LF>/MODIFIED VERSION OF FORMAT PACK TEST FOR MODULE TESTING,

.ASCIZ <«CR><LF>/TO RESTORE HEADERS ON CYL O 8 1, ALL TRACKS/

020060
040440
040522

052123
032054
3049
2117

0464

25-JAN-78

CZREHED UNIBUS RK& DR _PRT]
CZRBHE .P11
25-JAN-78 12:00

MRCY11 30R(1052)
ERR MSGS

11162

.SBTTL

ERR MSGS

EMe:

.ASC1Z

ii{ga 0S6744
00501
§iéi0§
038{%? EMI:
4
Yy
7
11162 8&&7
83
qléq 8?2522
I11€7 036766 OINQ (N0 (NEiTd
1

1116

i1e3 oZads BRITK 813 guses]
11171

0578 6

8:258%

2514

0S2103

11173
111749
11178
11176
11177
11178
i{igg

0870
0S7040
0S7046
057084
057062
057070
05;?6&

p4esSet
020116
020062
(0Sel1l1?
042522
041801
051840

021440
0QussSe2
040503
1040
042101
0113
O46513

094440
051503
047116
020l10s
041040
047111
0311ee

11182
11183
11184
11188

057112
057120
857126
S7134

0S2le2
051524
04esSie
046511

052040
027056
050130
020105

051508
052456
0S2040
052517

11188
iiigg

0S7183
gé;{&fi

106
§§ggflg

0SF101
0S1122

046101
0S1117

11182
11193

0S7176
057204

043516
047101

041040
042503

0ON6101
047440

11197
11198
11199
11200
11201
11202

057230
057236
(057244
057252
0S7260
057266

0OM7520
047117
(047516
042040
044515
04211

044523
041440
020124
052105
(042516
020123

11172 08?7 ég

11181 8%7105

c040 0M4ySee

ON0412 047502 EM3:

118 o27ind ey BE2IGT 0SBG4O

11191

71;8

EMM:

1161 0S1117 044524

113 Erele
11196 827223 GRoloe
118 GBS
0405

11213
J1214
11215
li2le
11217

057%32
(0S%7
057344
057352
057360
057366
057374
(057402
057410
(0S7416

051104
051040
020046
047111
031123
052105
047117
082122
041805
000

830105
ell
042516
051040
0S10M0
020073
020107
051440
042524

047111
020123
020104
041513
05150S
0Sl1127
047520
046105
037504

PAGE 213

SEQ 0213

.ASC1Z <CR><LF>/ERR, ONLY O THRU 7 ALLOWED, TRY AGRIN/<CR>(LF>

/SELECTED DRIVE # IN RKCS2 CANNOT BE READ BACK

IN RKMRe~/

.ASCIZ <CR><LF>/ABORT TESTS...UNEXP TIME OUT AT PC=/

.ASCII

/FATAL ERROR/<(CR» <LF)>

.ASCIZ /HERD POSITION CANNOT BE DETERMINED~/
EMS:

1503 027eR8 Ganis GROITD GeiBid
11208 087307
128 042502 0S1440 EM6:
120 637314 peife Odae BB01TS

11208
11209
11210
11211
ll2le

GOl

12:08

.ASCII /ABORTING BRLAMNCE OF TESTS/<CR><LF>

GRIIES
020104

044524
047101
042502
§110S
00104
042523

25-JAN-78

EM?7:

.ASCIZ

/MDS SET

IN RKCSe/

JASCIZ /UFE SET IN RKCS2/
.ASCIZ

/DRA

IN RKDS 8 NED

IN RKCSZ2 RESET;

WRONG PORT SELECTED?~

el ol ol

oy e

e o

el e e el Y ey

e e e

Y T oy e

060054
060056

Q2O £ U0 D)0 0o bt e

= N0 OO

S G S G

Dt Pt s ot (Y 00 L 0

e S

GyPt Pt Pt

et Pt Pt P

s
e

A2 ZZROZRAR SRZRA RBRZ
n

LLLLrLLrk
DO
LWV—-0O W0

e P

—

0S7440
057446

éOflO

ge7d
.RSCIZ
/ORIVE NOT PRESENT BUT

EMI10:
.RSCIZ
/ABORT

EMLL:
.ASCIZ
/DRA

EMl12:
.ASCIZ
/CONTR NOT RERDY

EML13:
.RSCIZ
/NO

EM1Y:

.ASCIZ
/WRONG ATTN

EMIS:
.RSCIZ

/DRDY NOT CLERRED IN RKMR2/

047516
0c0le4
046513
EM16:
.RSCIZ
/DSC

84352

000

5110

Bu9a22
EM17:
.RSCIZ
/MSG RO ERROR/

020107
0S1ie22
030102
0S1117

EMI18:
.RSCIZ
/MSG
BO
ERROR/

043523
0s110S
g40440
047522

EMIS:
.ASCIZ
/MSG Al
ERROR/

020107

030502

EM2O:
.ASCIZ

/MSG Bl ERROR~/

RON ZRM EOREE

EMS:

(Y0

/DRV

.ASCIZ

00 o 0000000
WL I
O n OON—0O0NONN

EMS8:

Q00
LN
Wwon

22 ZRBARE RER TRRAZZA 2 2R PZREZRZAREN
i —L0—N
—L£0
-0 O
= —NO
U1 LU0
NL—
e —— 1O U——
\le:'— ~= O
) £ ErmreOR)
oo OLf0rOLN
J:Dg-l:rum 0OV
OL— rW
W 2 CWOOoW—N 2 et

OO
LoNnN-—-0
£ LV
NLW—0ON onLor
oO—=0rWowW—-000

==YO
L N0
M)+ NOC—

i G

0S7464

ROk OZRABRARREZE
=~NO—-Q0—-NN

o1 = ¥ ) SO Uiy Sy Wy iy Wy GOy Gy by Sy Uy Sy Wy i Wy Sy S S Sy

NNNNNNNNNNNNNN%
NNN@NNNNNNM\JNNNNNN
BEVRREER- BIBVRAEON

U W

HelS

Q
£

~N VV\)U‘U‘U"O"U‘U‘U‘U‘U‘U‘U\U’W’\&

e ey Y ey S A

Y e ey

Y e e e e N

YN
UM D VYLDV
uinnnn
WN—-OWVONCNLWN-OWOm
N
nLwrr—

Ll ko e e

CZR6HED UNIBUS RK& DR PRTI1
CZRBHE .P11
25-JAN-78 12:00
MACY11l

garee

0S1S24

ge
040513

30A(10S2)
ERR MSGS

25-JAN-78
12:08

ATTN

NOT
SET

PAGE 214

TYPE NOT

IN RKDS &

SET

TESTS...CANNOT

NED

0S1115

IN RKMR2/

SEQ 0214

IN RKMR2/

TYPED BY OPERRTOR/

REF CONTR REG/

IN RKCSe BOTH SET/

IN RKCS1/

IN RKARSOF/

IN RKRSOF~/

CZRBEHEO UNIBUS RK& DR_PRTI1

CZREHE.P11

25-JAN-78 12:00

11274
11278

060064
060072

042440
000

11277
}ig;g

060100
828%?&

042523
051838

11280

060115

11276

00073

MACY11l 30R(1052)

ERR MSGS

25-JAN-78

101

12:08

PAGE 215

0Sll122

0S1117

103

051105

020124
041513

O020lee

047111
030523

EM21:

.ASCIZ

/CERR SET IN RKCS1l/

122

11281
11282
11283

060122
060130
060136

020116
020062
042503

0S1514

045522
042523
0Sllz2e

044440

EMe2.

.PSCIZ

/RLS IN RKCS2 SET CERR IN RKCS1/

11286

060154

043125

020105

047111

EM23:

.RSCIZ

/UFE IN RKCS2 SET (SACK} RFTER RLS IN RKCS2 SENT/

0S2117

EM24:

.ASCIZ

/VV NOT SET IN RKMR2/

0S4S24

EM2S:

.ASCIZ

/DRV TYPE SET IN RKMR2/

042523

EM26:

.ASCI1Z

/DDT SET IN RKDS/

ii287
11288
11289

060162
060170
060176

11294

060234

11290
11291
11292
11293

11295
11296
11297

11298
11299
11300
11301
11302

060
060212
0602
060226

0S1040
0S1440
040S23
043101
046lce
0S1040
O0OS1440

053126

041513
052105
045503

020122
047111
031123
000124

044440
0S111S

047040

0S1440
020116
00

052105
045522

060266
060274
060302
06. 306

0425
OQHHHE
0S1115
g;aloq

0S1440
020116
000062
020124

0S11

031123
024040
(20051

042524
020123
041513
047105

060242
060250
060¢

051503
020124
044440

020126

052105
045522

11305 060326 055169 842531 QS1440 EM27:

.ASCIZ /DTYE SET IN RKER/

11308

060347

11316

060425

11323

060474

11309
11310
11311
11312
11313

11317
11318
11319
11320
11321
11322
11324
11325
11326
11327

11328
11329

060354
060362
060370
060376
o404

047516
020124
042513
042524
047117

104

054524

020124
047111
020122
0e20lee
020107

020105

EM28:

.ASCIZ

/DTYE NOT SET IN RKER RFTER WRONG CDT IN RKCSI.

104

054524

020105

EM29:

.ASCIZ

/DTYE IN RKER DID NOT SET CERR IN RKCSl/

042523
051040
043101
0Siie?7
042103

060432
06C ‘40
060446
060454
060462
060470

047111
020122
047516
Q020124
044440
0S1S03

051040
044504
020124
042503
020116
000061

042513
020104
042523
0Sllee
0455e2

060502
060510
060516
060524

020122
042523
0S1040

0S110S
0124
046513

040520

020122
047111
031522

EM30:

.ASCIZ

/C-D PAR ERR SET IN RKMR3/

060S32

0S11061

104

Q41455

050040

EM31:

.ASCI1Z

D-C PAR SET

060525

026503

020104

O0S1440

052105

IN RKCSl/

SEQ 0218

[

W
[N
(=]

—

CZRHHEQ UNIBUS RK& DR PRTI1
CZREME.P11
25-JAN-78 12:00
11331
11332
11333

060S40
060546

060552
060560

MACY1l 30R(1052)
ERR MSGS

JO1

12:08

PRAGE 216

SEQ 0216

044440
0S1S03
046106
020124

020116
000061
020124
0Q4eSe3

04SSee

047516
0201e4

EM3e:

.RSCIZ

/FLT NOT SET IN RKMR3/

0420SS
042440
2117

0S0040
0S1122
0S1440

EM33:

.ASCIZ

/C-U PAR ERR NOT SET

020103
047516
020124

040S20
020124
Q47111

EM34:

.RSCIZ

/D-C PAR NOT SET

Q414585
044440

0SO040
020116

EM3S:

.ASCIZ

/D-C PAR IN RKCS1 DID NOT SET CERR IN RKCS1/

i gEe Gl g o
11336
11337
11338

060612

103
051101
047040

11341
11342
11343

0634
060642
SO

026504
0c0lee
042523

11345
11346
11347
11348
11349
11350
11351

o664
0665
060672
060700
060706
060714
060722

000
104
0S1101
045522
044504
020124
042503

051503
020104
042523
0Sllee

020061
047516
0e0le4
044440

11354
11355
11356
11357

060740
060746
060754
060762

0S4503
0S1104
031102
0SI440

020114
044440
047040
046501

042101
00°N116
052117
020105

EM36:

.ASCIZ

/CYL RADDR

IN B2 NOT SAME RS RKDC/

11360
11361
11362
11363
iiggg

061000
061006
061014
061022
82{8%8

0S4503
043106
031101
0S1440
886?01

020114
044440
047040
046501
0S1040

044504
020116
052117
020105
042113

EM37:

.ASCIZ

/CYL DIFF

IN A2 NOT SAME RS RKDC/

11367
11368
11369
11370

061046
061054
0610
061070

043106
045522
047516
0Q425°%

044440
051115
020124
OQ40440

020116
020062
040523
020123

11374
11375
11376
11377
11378
11379

Obllé&
0611
061132
061140
061146
061154

043111
043117
020116
0S2117
0S4503
0S1104

020106
052123
031101
036440
020114
O44440

020046
440
047040
000060
042101
020116

11382
11383
1i384
11385

061174
061202
061210
061216

054503
0S1104
031102
047040

020114
044440
042040
052117

042101
020116
042111
0S1040

11344

060577

25-JAN-78

0656

0S1040

041513

IN RKMR3/

IN RKCS1~/

030523

e L pl S i

e S Gl i Sl

11366 061040 054583 020114 044504 EM3B:

.ASCIZ /CYL DIFF IN RKMR2 NOT SAME RS ’'CYL DIFF’/

gl me Gl gdy e
11373 061111
105 qulg? Q42040 EM39:

.ASCIZ /CYL DIFF & OFST IN R2 NOT =0/

0 Bl Sl g S

EMH0:

.ASCIZ

/CYL ADDR

IN Be NOT =0/

EM41:

.ASCIZ

,/CYL ADOR

IN B2 DID NOT REMARIN =0/

m._..ma.flw.3:%7.“%83203%7“-0%710355...-001208217711T%0
~DTNODTNDTIryo270DT~Tg\T 20T
L

30A(1052)
ERR MSGS

25-JAN-78

.ASCIZ

12:08

[ H

Z o

] -

MACY11l

QQ -

—O~—~T~U—MUT~D—~OUM~~[.4czQ[=zEALX1NVo)Ute]|~OVDTOTOVUT~ON~OU—NuwOToXo~NM«O0NOWmU@EOxMNNEN9WnxaaUNOTNOVNN TUL~—OMN—O~—M~N—TFOI0T0O[NwQWIdT<0=oNM}0TNOMO[NUka4m(1o2[d}+=—O3u0n0QQ NN -woQ -w w¢y-z- NN oz n}b—
S(=[—7@2] [LW4N=t]+ mN[

3—bO3wMoB1~aU8Ty31COiDSwO8Uy3m15WR—Dan=8OUF—3w~1rSoOm8UNTDh3u1ONrOAa18UM3rWO—w1.5AnU38OTr.M1‘qUe~V1U48mNOrG1O9DLN4Oa3UG1—U9Lw8M1rIDNT.mleA“oUa8W4rNVLmE%.“E0U.wNlq5HTma~.8r3wUq.RN~ml8OaUmT3qo.DTOol8AqP3~.mR—I1Y1%8q03mDwFo4TL1O8mq8mIIOT1NoR4L—qm8TmEo14Aq8nu0—TN5U1~‘D4LL—8]OqT0IIBN1—4%AZTE8fO0IU81lmN“ICF.8TL%40Iq1NOeg5N8mTqZO1RFq%5S8TOqw1BUTLqmI3O8Tf1oN~W5OlFUAM8.1T—Om2q8~TUqn%821q2qT0Mo0=81q2OIoq%D0N—821qR0Mf2871l3—s.QQB7=yO

——5—S%M[i.DnWNo2lOI)tustF.ToNi2T:=0Wn—nteOO.l8)eLnTtTNiOe%vNotkD.~ogtbOo?Ol—oWtloO=Nlt0"(¢L7Wa[-(44'8=11f&A)7[S)}]}vD>OTn4=SOoTqmoTN=t1%NelNUo~=lOToT=FtloIO=rt~.u1=—A4nTNULoXoT,)w-MQN1)~2oOWL£vOTOMt]=1tNT=]SW£vaOFNtLoN1WUtNIY¥Iwa0]OTSOa[1NP=lBqOT2~ltP3%oN2R[34—(Da-9@2M)%—Oo~24mRwt%Nn&O2OPYqNO%om~-2T%t&M=3.[5A(w-a=TNF7&Y)])b&0bQ~3—=1?=0%tm~1YY)%4DO%~WwS=eQaT—[0O.n+}0=NS1WN1=T118w-T8QO-N9M[]0b81R85T9~5Tor%i1nDu—@~on1[[?TN&w-I=TQw2 -—zZ ;13[72tp_eO]]5V”uWe1~xNl
CZRBEHEO UNIBUS RK& DR PRTI1
CZRBEHE.P11
25-JAN-78 12:00

KOl
PAGE 217

SEQ 0217

/DRIVE READY IN RKMR2 NOT SET BY 1 SEC FROM FWD/

(CR><LF>/IN RTZ PORTION OF START SPIN CMD/

/FWD NOT SET IN RKMR2 IN RTZ PORTION OF START SPIN CMD/

4 [ L73) Q -— z [&] = [=] N
a[»

/FWD NOT CLERRED IN RKMR2 BY S SEC OF MOTION FROM START SPIN CMD/

CZRBEHEO UNIBUS RK& DR PRT]

CZREHE.P11
114 42
43

25-JAN-78 12:00

MACY11l 30A(10S2)

ERR MSGS

061720
061726

020062
0S1440

0S4S02
041505

032440
047440

0617
0617
061764

0115
020124
O41440

0Sei23
050123
042115

0S1101
047111
000

061776
062004
062012
062020

0201
052101
O0S1440
0206&5

06
047040
052105
o4ss22

0Qu46See
0S2117
044440
051118

11456
11457

062036
062044

047516
047125

020124
020104

047506
0S4502

11460

165

11464

062102
062110

114
11467

lee
062130

14
114

11449

06177

11446
11447
11448
11450
11451
11462
ii:ga

11455

{{:gg
1142%
114
11463

11422

82%823

OBS

032338
83

3
124
020104
046440

82510

062%33

gsgilg

11471
11472
11473

D6clSY
0Ob2lbe
062170

046440
0S1101
000120

11478

0622
06cel4
Obecee

11490 82%147

11474
11475
11476
11477

42523

EMSe:

g523 020103 020060 EMS3:

8251%9

ii:Bg

8&9860

11
0S1101

léS

020060

25-JAN-78

.ASCIZ

LOl

12:08

PAGE 218

20 SEC FORMAT NOT SET IN RKMR2/

.ASCIZ /SEC 0O NOT FOUND BY S0 MS~/

0S1515

é
7506
0S4S02

20106

47516
047125
031440

EMSH:

.ASCIZ

/DIFF SEC NOT FOUND BY 3 MS/

7ie4

Q47040

EMSS:

.ASCIZ

/ATTN NOT CLERRED IN RKRSOF/

000123

1440
042105
OHSSSS

Q42514
O44440
051501

42216 050130 EMSGE:

046505
0S2040

0S0040
040522

.ARSCIZ /UNEXP MEM PAR TRAP/

062172
062282

041527
834503

0201
8%0119

020100
030464

EMS7:

.ASCIZ

/WCE & CYL 411,

11479

0Obee26

00S01S

050123

11486

062274

11480
11481
11482
11483
11484
11485
11487
11488
11489
11490

IIHQé

5866
031040
020103

2040
020054
000062

TRK 2,

SEC 2/

(045522
042523

8%8104
Ye
116
062250
020062
062256
030075
062264. 044524
06e2e7e
1eY

Snggé?
2
047516
041040
042515

042505

4440
U0S1115
020124
020131
052517

EMSS:

.ASCIZ

<(CR><LF>/SPEED OK IN RKMR2 NOT =0 BY TIMEOUT/

062302
062310
062316
324

044514

020115
047516
020124
046513

042504

EMS9:

.ASCIZ

~LIM DET NOT SET IN RKMR3/

0O40S0S

051504

EM6C:

.ASCIZ

/HEADS HOME NOT SET IN RKMR2/

114

040S17

020104

EMBL:

.ASCIZ

/LOAD HEADS NOT SET IN RKMR2/

2325

020124
04.523
051040
00

11492
11493
11494
11495

062332
062340
062346
062354

044040
047516
020124
046513

11497

Dee3eb

042510

11496

SEQ J218

062361

046517
020124
Q47111
031122
042101

020124
047111
031522
020105
042523
0S1040
000
020123

CZR6HEOD UNIBUS RKE DR PRT]
CZRGHE .P11
25-JAN-78 12:00

MACY11l

104
05210S

0624

0S2114
044440
5

PAGE 219

/DLT SET

EMBY:

.ASCIZ

/MSG B3 HERD REG NOT =0/

EMBS:

.RSCIZ

/REARD HERDER ERR~/

EMBG:

.RSCIZ

/CYL

EMB7:

.ASCIZ

/READING CYL O HERDERS ON CYL

EMEB:

.ASCIZ

/READING CYL

EMB9:

.RSCIZ

/ALIGN CART USED/

EM70:

.RSCIZ

/7UNEXP RTTN/

EM?71:

.RSCIZ

/DSC

EM72:

.ASCIZ

/FORMAT

EM73:

.RSCIZ

/CTO SET

EM7Y4:

.ASCIZ

/RTZ NOT SET

047040
052105
0O45See

EM?7S:

.ASCIZ

/IDARE NOT

Q42523
051040
000

EM76:

.ASCIZ

/PIP SET

SEQ 0219

IN RKCSe/

ADDR

IN RKMR3

INCORRECT/

047111
02011Y4
042101

JNNO-’—Db'N'—NO—ONo—a[an Io

R2259

OL£Wr—NLE—LNV—W
L0 L

WU&BUO PRG2E (=]

—UNOD N O OO~
NO RN
Lot (Ve pe s s (Y0 e B pon e (]} s be L)

020116

b= Lt

e E YOOI

HERDERS ON CYL 0/

030040

PRD ERORERDE |=]
n

RZ2 RZ

—L£n

ZRATE
~0One—

&
0e30s50

047117

BE285R

=OL=0r

2RRR2

020114

Wy
NNN

VERZCRBIBIRRE

MOl

12:08

.RSCIZ

25-JAN-78

EMB3:

0S1440
020116

047516
000

:mv—u;wnflwu—mgb—%mH%H

Pt Pt Bt st B Bt et
Dt Bt Bt s Pt B Bt

i
i
i iuinnn
nnnnELLrrLrrs
st WWW
PONY RO 0= e 5= 4t pt P s st Pt Pe
W OO NN LW
OWVD
WN = OOONCN
LW
0O

s Pt Pt Pt o Pt Pt Pt Bt Pt B 4 B @ P
s Pt Pt Pt Pt Pt Pt Pt et ot Pt Pt Pt et et Pt rnt Pt Pt Pt Pt Pt Pt Pt et P Pt Pt et P e [,
Pt Pt Pt Pt Pt Pt ot et Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt s Pt Pt P Pt Pt st P Pt Pt et Pt P Pt P Pt P (S

tfl%(fl R228 R

el ai B

30A(10S2)
ERR MSGS

031122

047107
020124
000

SET

IN RKMR2/

TEST BYPARSSED/

051501
042523
051048

IN RKCSl/

IN RKMR2/

04ssee
SET

IN RKMR3/

IN RKMR2/

c REHEO UNIBUS RKb DR PRTI

.ASCIZ

/FAULT NOT =0 IN RKMR3/

83;???

EM?78:

.ASCIZ

,CyL DIFF IN RKMR2 DID NOT REMARIN = 1 IN SEEK TO SELF/

042523

EM?79:

.ARSCIZ

/NED SET IN RKCS2/

Q40517

EM80:

.ASCIZ

~/UNLORD NOT SET

031122

020116
Q42523
051040

EMBL:

.ASCIZ

/SPIN NOT SET IN RKMR2/

Q47040

EMB2:

.ASCIZ

/RTZ NOT SET IN RKMR2/

044040

EMB3:

.ASCIZ

/READ HEADER ERR

0S2101

EMBH:

.ASCIZ

/FORMAT IN RKMR3 NOT SET/

EM8S:

.RSCIZ

/ILL ADDR IN RKMR3 NOT =0/

EMB6:

.ASCIZ

/WHILE WAITING FOR CONTR RDY OR AFTER CONTR RDY REC’D/

EM87:

.ASCIZ

/CANNOT RERD BSE INFO~/

000

052105
045522

n
n

[15]
o
£

031122
047040
046505
020075
051440

[SY

b= (Y0 be (0o
o =EY S

TM | & Ty Y~

pt i s ot Pt Pt P
(T

| e 4 L

R 2

006

042101

036440
051030
000

o
n
[o]

?a‘o" We—L£nNwe 0O
W8&)!’0'—
P
N

EM?77:

p_‘...._p...—

O—-01—NO
£

PRAGE 220

n—n)
£L£—-L0

Z20ZRER
ZoN L Rm BwL

3&»—: NMNHNOINEN
n

NO1

12:08

0S2114

0S2117

[

b= (Y0 Nome QO U 0o 0e

0S2S01

ERR MSGS

25-JAN-78

IN RKMR2/

WORD O (CYL#)/

—

Q
n

nNINOOCON0 oL L0

cNO
NN

12:00

o0
In
0O

o
Q
o
(]

QO
£n
n (=]
Al Q
[@} o
[Ty] Py
oON

R22RR2RR7 2 2

2
3 £Lun
wnuey
Le— £

106

047040

[@]
£
—0O= £

Soy

93
ZoOR

W
£L
n
(w]

[ATR]

R
£

(TM)

RF F& PRECRERRARRRRRE Q
o
(]
A
W
n ?fimm&i R %wwuwmuwwwwmuw O
n £L£L
~N
£ o0 R
2eoR FroR o 0o O

063062

0630SS

000000000
DONOCNLE W

BBBIRR 25028

tnmg(n(n
NNNNN
— OO0
NN 2&)!\)'—0\0@ \ng:m LWh—OwWwo NN

oo OO O o UNITUUIILTNIINNNUN vnniiinininiinnnivinntnn ALl IV TV TV TT A TV T RE TUR TV, 1Y, ]
o0 Js0Taeloelue)
NNNNoOgO
o
[oaloa ol alo ol A IGTTIT)) Nl
DONCNLEW

S54

25-JAN-78

=/
£

REHE.P11

MARCY11 30R(1052)

020124

0300

8::%6?

042514

043040
047117
OS4S04
043101

O0S1117
0Sl11e4
O47440
042524
v

3
0e3536

051502

020105

047

SEd 0220

Z0RISNARZERZOSRERNTESR RBeR<s

—0
=N
b=

222009 % 2320 RZRR

043040
047440
006523

EM8S8:

0sgles

04esSee
023040
51523
052116

SEQ D22l

.ASCII

/NO DRIVES FOUND ON BUS/<CR><LF>

.ASCIZ

/SETUP CORRECTLY & PRESS ’'CONT’/<CR><LF>
’

.ASCIZ

/SETUP CORRECTLY & RESTART/<CR><«LF>

EMSO:

.ARSCIZ

/DDT NOT SET IN RKDS/

.SBTTL

DATA HEADERS

020124
050040

DH1:

.ASCIZ

/TEST NO.

88::25

DH2:

.ASCIZ

/RKMR!1

RKMR2

RKMR3

RKER

RKDS

RKCS1

RKCS2/

DH3:

.ASCIZ

/RKWC

RKBA

RKDAR

RKASOF

RKDC

RKECPS

RKECPT/

DHb:

.RSCIZ

/FROM CYL

DHB:

.ASCIZ

/WHEN DRIVE UNLOADED~/

BB ERSU=RE2VRINRn
RN A

Q
n

047040
j=]
n
N

nNowWwoon
b

00
£L
O Lo
on
I e b pa (JY e
o
NN

’

020668

o44522

PRARGE 221

/NO DRIVES FOUND IN DEVICE MAP (SDEVM)/<CR><LF>

£ > [@] TN == O N U= e = O
Py
£
oL£n

(=]
n
N£ n
[

[\
W

0S1104

BO2

12:08

.ASCII

n
QO
[ a AR
28 N L R

££
n [y
n[V128
n

=o
££

IrETFSRRBR

e Pt ot Pt Pt
Pt
D
P

RRRERRPRRR

Lok

e Pt

Ub4104

ERR MSGS

@25-JAN-78

Or-—
[e]5)]

[y [yt

253 232992
PRRPREP2B2
bt
.-.rgmmmmow
&
=
S By RRRRES:
NQU‘?

[ ]

O
n
Nv

044440

063756

2R & &
[N} w [N]
C\A,JU ~N ~N
&2 & 8 nn

3
L
3

7
4
5

Q47516

MACY1l 30A(10S52)

e 2809%
Z2883RRRR
L
L
8838
=L Lt
e NONONND
L U1 e pe b

O
L

2&
&

3547
3554

WO -0

12:00

g
X

oooooooooo
oo oooo

b ST H eSS 588URY 2OREEEBVRRESRNS DO NN
L WO

25-JAN-78

O
oo
i
NEWN=-O0mNN
L

Bt 0t Bt Bt Pt Bt Bt Pt Pt Bt ot Pt s Pt P ot Pt o Pt Pt Pt Pt Pt Pt Dt ot Pt Pt ot Pt Pt Pt Bt Pt P ot Pt Pt Pt Pt Bt Pt Pt s Pt Pt o P

s Pt P Pt Pt Pt Pt

CZR6HE.P11

; 8% 8. ?
:Nt—o-go—o— :

CZR6EHED UNIBUS RK6 DR PRT1

EMB9:

o4s522

PC/

Do4463
051011
845522
45522

ggégéé

020115

TO CYL

CYL DIFF~/

042040

Q42040

052440
042504

CZR6EMED UNIBUS RKG& DR PRT!

25-JAN-78 12:00

CZReME .P11

MACY11 30A(10S2)

figg; 823585 899!8? o42Sed 020122 DHS:
11668
116
{lg
167
1167

11673
11674

11677

064212
4
Y
Y
Yede

064250
4

0S2123
12

1104

0S2101

7940

0642

A
101

0S1101
711
Y

111

042440
638

0S2106

11678
11679
11680
iis 1

064304
06N
Y
06:326

O0SIYM0
1
3

040524
44520
1
01

11684

064344

0S110S

046040

11683 064336
11685

%‘4

11688

11686
11687

{iSBQ

11 g?

11662
11693
{iggq

llbgg
11697

11700

15?

4
064

12
12

ell

06:453

1101
7111

020124
91942
Y ?g
S
1
105

042116
838?1

0S110S
052122
gl16
046
2523

041440
0O4c040

046131
0SlleS

030040
04711l

4454

OQ4eSe3

45505

064476

DHLl:

.ASCIZ

/AFTER START SPIN CMD & FWD SET/

DH13:

o4el0l

,qus 8:3161 §§gégz 020122 DHI4:
0S3440

064504
O064S1e
4520
DG:SS&

(1)1

SSS“

é
1
1440

10
3505
042505

11707
11708

0Oe45S46
064554

04
046503

040S03
000104

020114

11710
11711
11712
11713
11714

:gga

064614

8:7158
14
106
0S0040
046503

S14
el1S
2186
041501
000104

042601
00
0S110S
020113

0646,

052103

11701
11702
11703
i{;gg

/AT END OF HEARD LOARDING/

.ASCIZ /AT INNER LIM FROM START SPIN CMD/

8201

047111
042101
023040
020113

DH16:

.ASCIZ

/FROM OUTER LIM TO CYL O DURING LORDING/

.ASCIZ /AFTER SEEK WITH BAD PAR/
.ASCIZ

/AFTER LOADING HERD REG 3 SEEK CMD/

11706 824%90 8:51 1 gggég: 020122 DH17:

.RSCIZ /AFTER RECAL CMD/

11709

DHI8:

.ASCIZ

/AFTER UNLORD CMD~/

DHI1S:

.ASCIZ

/AFTER PACK CMD/

DH20:

.ASCIZ

/AFTER SELECT DRIVE CMD/

DH21:

.ASCIZ

/AFTER SUBSYSTEM CLEAR/

11718

11719
1171
11718

11719

11720
11721

064560

064601
4606

4658

4634
064642
064647
064654
Oe4ebe

043101

04;524

Q20122

o431

8:5&24

20122

Q42040
041440

044522
042115

042526
000

0S1440
0S2123

041125
046505

054523
041440

101

0S2106

020124
041440

Ogflllg

047514

SEQ d222

.ASCIZ /AFTER START SPIN CMD REC’'D BY DRIVE/

020115

0“7?53

029%07

PAGE 222

.ASCIZ

046S!'l

l?g

063:34

12:08

DHIO:

047116 DHl2:

4412 855?19 838115 849%54

064420
Y426

25-JAN-78

DATA HEARDERS

cae

0S1105

CZREHED UNIBUS RK& DR PRTI
CZRBHE.P11
25-JRAN-78 12:00

MACY1l 30A(10S2)
25-JAN-78
DATA HEARDERS

12:08

PRARGE 223

7
"
Y
1
§§4§§§ 0”:266 §§é§§§ gsxggg DH22:
ff?%g
11759
0ed
o420
q
42626

.ASCIZ /AFTER DRIVE CLEAR CMD/

11727

.ASCIZ

s g B pen s
064723

124

051508

020124

DH23:

8
gi®
11730
geari
11731
Di7s2

el; SR
ENA
§§g§§g
§§81
g DH2S:
OdZ
144

11739
11735
11736

051040
090504
042115

11738 BRusEY
!

064770
064776
065004

1 os2

101

DH30:

.ASCIZ

/AFTER RERD HEADER CMD/

030102

DH32:

.ASCIZ

/RO

043516

DH33:

.ASCIZ

/DURING SEEK CMD/

117

DH34:

.ASCIZ

/SECTOR REG UNSTABLE/

DH3S:

.ASCIZ

/BETWEEN SECTOR COUNTS/

065024

046101

Liz4e

Q65034

0S104Q

745

%5058

101

11748

065076

041011

11750
1176]

065110
0851

0SI440

11243 D208

uTaig

11205 062038 Bugdil
11749

065102

052504

osqé§8

042520

OH28:

0S2106

051105

040505

Zasitt

004460

Baued

042505
1

11782

gell

11754
11765

06513
065134

051516
000105

040624

L1757

Qeslsd

G011

2523

117

11756

065146

053524

020104

OSUE3

B3736s

020113

11763

065216

000

11765
11766
11767
11768
11769
11770
11771
11772

065224
0652
06
QESSHE

065262
065263
Q65270

047440
01
a0
QW3I0]
1
000
101
QUEONG

11775
11776
11777

06
065314
065322

053440
044040
D20i22

065217

11573 382808

123

042520

ACTUAL7
BO

042505

052103

.ASCIZ /FROM SECT TO SECT/

042105

DH37:

.ASCIZ

/SPEED OK NOT =0 10 SEC AFTER UNLORD/

49514

047516
030440
020103
20122
O4el101

052106
OWESLL

051105
042040

DH38:

.ASCIZ

/AFTER LIM DET/

O44S22
040505
046503

Q42524
042504
000104

020113
075
2523

B3/

046102

11728 ezl
e
2
esl
11760 Q651 ggiégs
§1q 051440 ODH36:
11585 262578 H38373 95245y 328989
11764

EXPECT/

.ASCIZ /

11790

065027

.ASCIZ /AFTER READ DATA CMD/

811 o231 osesey DHRS:

oc20l)

11741

020104
DY1440

.ASCIZ /AFTER SEEK CMD/

§s=§05

Eé {3

0S1105 DH26:

TRAP PC/

.ASCIZ

11737

11738

040506
OMC324
000

/TEST NO.

SEQ 0223

187 052088 051105 OM3a:

.ASCIZ /AFTER WRITE HERDER CMD/

CZR6HEC UNIBUS RKE DR PRTI1
CZR6HE.P11
25-JAN-78 12:00

PAGE 2e4

065330
065336
065344

DHSSIO
0S3440

042101
0S1501

0S110S
020040

004443

DH40:

.ASCIZ

/WORD®

11783

065364

0S2504

044522

043516

DH4L:

.ASCIZ

/DURING RECAL CMD/

11786 062982

11787
11788
11789

065412
065420
06S4eb

117Qé

82?9

11793
11794
11795

4
065460
S46b

042le2

EO2

12:08

11778

11779
11780

047527

MACY11l 30A(1052)
@25-JAN-78
DATA HERDERS

SHOULD BE~/

020103
026064
041440

117 028116 Q42523 DH42:
026060
026066
046131

026062
020070
032040

.ASCIZ /ON SEC 0,2,4,6,8 CYL 410 TRK 2/

055617

Q40S1S

.ASCIZ

0201
020114
04

6
026S2e
123

046101
020127
020123

DH4Y:

e S By g ol
117

06551

11800
11801
11802
11803
11804

06552
0655
065536
065544
0655

832523
4S14

11807

065574

1173% 065515

HEARDER WARS

SEQ Od2e4

0a0

1102 8:1505 052501 DH4S:

/FORMAT & ALL R-W TESTS WILL BE BYPRSSED/

.ASCIZ /BECAUSE OF LIMIT DETECT ERROR ON PREVIOUS TEST/

794

O47440
Q44515
O42Se4
0Sllee
116

0106
124
052103
O0€111?
0S1120

7503

046125

020104

DHY6:

.ASCIZ

/COULD NOT RERD BSE INFO ON PREV TEST/

Hes gl Sely gl el
11811 065624 837119 050648 352522
el gite ol S ool
11814
065641
101
0S2106
051105

DH4Y8:

.ASCIZ

/AFTER SEEK CMD TO INV CYL/

e 20

=un

Ehl

11808

065602

047516

020124

042522

11815
11816

065646
065654

0S1440
046503

042505
020104

020113
047524

11819
11820
11821
11822
11823
11824

0656
0657
065706
065714
065722
065

615
Q41046
045522
020046
Q2
026056

Q43523
OHHHHE
0S1115
045522
042528
040440

040440
020116
02006
O0S111
0s0123
04eSee

DHYS:

.RSCIZ

/MSG R&B

11827

0ES5747

065754

0S1440

042505

020113

0S1105

DOHSI:

.ASCIZ

/AFTER SEEK TO SELF CMD/

11831
11832
11833

065776
066004
066012

054105
021514
044040

020120
041411
040505

054503
046131
042504

DHS2:

.ASCIZ

/EXP CYL#

11828

NS2106

IN RKMR2 & RKMR3 RESP.,

CYL HERDER WRS/

RRE

INVALID/

CZREHED UNIBUS RK& DR _PRT]
25-JAN-78 12:00
CZRBHE P11l

000123

ge0lee
047117

001116
003350
003334

003330
003342

00335e
003322

PARGE 225

/ON SEC 10,12,14,16,18,20 CYL 410 TRK 2/

DHS3:

.RSCIZ

.SBTTL

ERR OUTPUT DARTA

DTL:

.EVEN
STESTN, SERRPC

RERER

WRWWILW Ug
BRI

003354

$TESTN, SERRPC, FRCYL, TOCYL , CALDIF

003352
003322

HMR1, HMR2, HMR3, HER, HDS , HCS1, HCS2

003332
003354

HWC , HBA, HDA, HRSOF , HOC , HPOS , HPAT
DT6:

STESTN, SERRPC,PSEC,ESEC

001402

003350
003334

003352
003322

HMR1, HMR2, HMR3, HER,HDS,HCS1
, HCS2

003330
003342

003332
003354

HWC , HBAR, HDR, HRSOF , HOC , HPOS , HPAT

WL
oo

W == (DG G G ) ) === LU
WWoNN WWWWWW

DTY:

001116

0000 otafetalatalala]=tatatate]
0800

003324

HMR1, HMR2 , HMR3, HER, HDS, HCS1, HCS2
HWC, HBR, HDA, HRSOF , HDC, HPOS , HPRT

003332
001350

i
oee4l2

30A(1052)
DATRA HEADERS

FO2.

12:08

o4sSee

001442

gmm\l\z\l\lavwwuwmgmg:wm &

066026
066034
066042
066050
6056
066064
066072

RREREERR
Ry
2R IF TR 823800 Kot

LLWWW
0o~

0000 00 a0 0D €D 0 G0 D (D 4D ¢ €D A0 00 0D (H 0 CD GO (O D O D
00 0000 MM
DONONLEW
== OVONCNLWN—-0OLONOWN
L

Pt 4 Bt Pt et Pt Bt Bn P Pt Pt B Pt Bt Pt Pt Bt et ot Pt s ot et it Pt Pt Pt (= P ot P Pt Pt Bt Bt P Pt Pt Pt Pt ot et Pt ot Bt $omi Pt Bt Pt Pt e e P P
s Bt Bt s Pt Pt ot et Pt ot ot et Pt Pt et Pt Pt Pt Bt Bt Pt (et Pt Pt Pt Pt Pt P Pt Pt Pt ot Pt Pt Pt it Pt Pt e Pt Pt Pt Pt s i Pt Pt Pt Pt it B s P Pma

11834
11835

MACY1l

25-JAN-78

DT7:

$TESTN, SERRPC, WDCNT, HDWD, TEMP1

003352
003322

HMR1, HMR2, HMR3, HER, HDS, HCS1, HCS2

003332
003354

HWC , HBA, HDR, HASOF , HDC , HPOS , HPAT

001352

DT8:

STESTN, SERRPC, TOCYL, FRCYL ,CARLDIF

003334

003352
003322

HMR1, HMR2,HMR3,
HER,HDS, HCS 1, HCS2

003330
003342

003332
003354

HWC, HBR, HDA, HASOF , HDC, HPOS , HPRT

001116

001352

003350
003334

003352
0033ee

HMR1, HMR2, HMR3, HER, HDS, HCS 1, HCS2

003330

003332

HWC , HBA, MDA, HRSOF , HDC , HPOS , HPAT

0T9:

TOCYL , RHTAB
SERRPC, TN,
$TES

SEG 0225

CZREHED UNIBUS_RK& DR _PRTI1

001116

001350

g66440
geb44e

003346
003335

003350
003334

003352
003322

HMR1, HMR2,HMR3,
HER, HDS, HCS1,HCS2

00336

003330

003332

HWC , HBA, HDA, HASOF , HDC , HPOS , HPAT

214
2.9

go3uiz
003420
003376

Qebygd
422

003340
003256

003342

06bS14

003372

001334
Q0ille
003416
003374

0ebS24

003346

003350

HWC, HBR, HDR, HRSOF , HOC, HPOS , HPART

001214
003414

001116
003416

003412
003420

003376

88%405
350

34
334

~
n

066560
066566

W
W

003332
003354

o
K g
RNl

003330
003342

o
W
W

W
o

8
8

HMR1, HMR2,HMR3,
HER, HDS, HCS1, HCS2

003352

003340

$STESTN, SERRPC,E.ARO,E.BO,E.R1,E.B1,E.R2,E.B2

H.RO,H.BO,H.RL1,H.B1,H.R2,H.B2

003404
0033Se

HMR1, HMR2, HMR3, HER,HDS,HCS1,
HCS2

003322

003334

DTiu4:

o
o

3336

STESTN, TRAPPC

STESTN,SERRPC,E.RO,E.BO,E.AL1,E.Bl,H.AO,H.BO,H.A1,H.B1

003322

003324
003326

0666.

D Til:
O T13:

STESTN, $ERRPC,FPCYL ,RHTAB

003334

S40
066542
066550

826606
bb14

DT10:

003

o
un

n’

NNNB

Bt Bs Bt Pt Pt Pt Bt Bt Pt Bt Pt Bt Pt Pt Pt Pt et Bt P Bt Pt P Pt Bt Pt P Bt Pt Pt Bt Pt Pt Pt e P P

066456

003354

003342

BBESRALE

883 S6
1214

s B Pt s e Pt Pt Pt n Pt et et Pt Pt Pt Poms

R
e
3

PAGE 226

ERR OUTPUT DATR

GO2

12:08

826438
64

o Bt Bt

Bt s Bt Bt Dt 5t Dt et Bt §t it Dt Bt e Pt Bt o Pt Bt Pt ot Pt P et Pt Pt e ot Pt e Pt Pt P Pt Pt Pt s Pt Bt Bt Bt ot Pt Bt e P Pt o o Pt P Prnt s Pt Pt

25-JAN-78 12:00

25-JAN-78

DO DD DO NOWD DD DD D DD ODD DD
DD DD O DOD Vo RV e IV e IV e SV TN e IV o RV o TN o TN o RV DN o MW e BWa I W eXu o e o e o Ju o Yo e X0 oY s o0l )
LLELLLLWWWWWWW W LN
Pt Pt Pt et Pt Pt Pt e P = (D OO 000000
DO
NLWN=-OVONNLWN—-O0NWN L£WrurDONCNLW—-O
OO
NCN LW
o

CZRBEHE.P11

MACY1l 30A(1052)

066640

003340

326

003330
003342

003354

066650
066656

001214
003414

001116
003416

003412
003420

oggssq 003332 0033;: 8033;2
gs 955 88§ 05 8 3402 oggng

H.RO,H.BO,H.A1,H.B1,H.R2.H.B2,H.B3
T
Ty e
e e

066710
066716

003346
003336

003350
003334

003352
003322

HMR!,HMR2,
HMR3, HER,HDS , HCS1, HCSE

066726
066734
066742

003326
003340
003356

003330
003342

003332
003354

HWC, HBR, HDA, HRSOF , HDC , HPOS , HPRT

066744
C66746
066750
066752
066754
066756

000003
002
064004
007
064054
007

000
000
000

00333¢

HWC, HBA, HDA, HASOF , HDC , HPOS , HPART

DTI1S:

STESTN, SERRPC,E.RO,E.BO,E.Al1,E.B1,E.A2,E.B2,E.B3

.SBTTL

ERR DARTAR FORMATS

DFl:

3
.BYTE 2,0
DH2
.BYTE 7,0
DH3
.BYT&
7,0

SEQ Q228

e ot e e Dt D

s Pt Pt Bt Bt Bt et Bt Pt et Pt B

et Bt Pt et Pt s (et

e P

Pt B Ps Pt ot et Pt Gt ot Pt P

Pt ot Pt Bt Pt

s Pt

e Bt et et [

11946

g\nm\nm‘nommmmmmma)mg \I\I\J\I\J\J\I\J\J\JOU‘U‘O‘U‘O‘U‘O“U‘S

0= 0 hs Pt st Pt s et Pt Pt Pt Pt Pt Bt Pt et it Pt et Pt ot o Pt st Pt Pt Pt et P it Pt Pt Pt Pt s Pt s st Pt Pt Pt Pt Pt P (s Pt Pt Pt b et Pt i —
OO0WVODOOD DD
WD DDDD0 DD DD DD D DD DD D DO DDD D D DD DD DDD O D O OH DD DD D VoIV
OO0 Wwon
uninnnnnnnn
Lt £ L
0nunn
wn
—-OWwd~N
NLWN—OVONCNLWN=OW
NN LW OVONTNILEWN—
£
[
DOoDNoONLWNN—-0W
o~

e Dt e B

CZRBEHED UNIBUS RK&6 DR PRTI1
CZRENME .P11
25-JAN-78 12:00
066760

002
064004
0g?
064054
007

067044
067046

000005
000
065673
000
063767

000001
0ge
000003
0ge2
064004
007
064054
00?7

000004
000
063767
002
064004
007
064054
007

0000aSs
o0
063767
002
064125
003
064004
007
064054
007

000004
000
063767
00e
064004
007
oe4054
0oo7

00000S
000
063767
002
065174

]9
]1]

000

0co

000

ooo

0oo

MACY11l
30RA(10S2)
25-JAN-78
ERR DRTA FORMATS

DF2:

ooo

000

DF3:

DFY4:

300

000

DFS:

0oo

000

DFb:

000

0oo

DF10:

ooo

OFle:

0,0

000

2,0

000
7,0

7,0

g,0

12:08

HO2
PAGE 227

SEQ 0227

B Bt Bt B

AN JAVIAVIA VIV IV g0 g Y] NNTBNNNNN"UNNI’U

203S

[

nnLLlr
oo

002
064004
007
064054
007

Q
o
~

UNNNgNNNNNN’—WH'—'—H’-’-”hOO

e e B Bt Bt s ot Pt Bt Bt s Bt Bt Pt Pt Pt Pt et s Bt Pt Bt P Pt P Pt Pt Pt Pt Pt s Pt et s Bt P Bt Pt P P Pt (ot s et s Pt P
n n RN YYD
Y YIVIVND VNV
[w] o 0000000000000 0000000000
£
[W
~N
N — OWONOCN
L WN—OWa
NN LW
ODMm

CZR6EHED UNIBUS _RK& DR _PRTI1
25-JAN-78 12:00
CZREHE.PI1

oe7212

067214

067266

000004
0ge
065330
003
064004
007
064054
007
000004
[8{0]0]
063767
00e
064004
007
064054
007
000004
000
063767
00e
064004
007
oe4054
007

000005
000
065445
000
063767
00e
064004
007
064054
0Qz
000007
000
063767
002
065007
000
0650SS
004
0es017
oo
064004
007

MACY1l

30A(1052)
25-JAN-78
ERR DRTR FORMATS

,BYTE e,0
DH

000

7,0

000

7,0

000
000

DF 14:

2,0

000

3,0

000

7,4

000

7,0

000

DF1S:

0,0

000

2,0

000

7,0

000

7,0

000

OF 16:

0,0
2,0

000
000

7,0

000

7,0

000

DF17:

0,0

000

0,0

000

2,0

000

7,0

000

DFe0:

7,0

0,0

000

2,0

000

0,0

coo

4,0

000

4,0

000

7.0

102

12:08

PRAGE 228

SEQ 0228

CZREHEQ UNIBUS RK& DR_PRTI]
CZRBHE.P11
25-JRAN-78 12:00
12058
12059
12060
12061
12062

067270
067272
067274
067276
0672300

12063
12064
12065
12066
12067
12068
12069
12070
12071
12072
12073
12074
1207S
12076
12077
12078
12079
2080
2 081
e
2083
2084
208S
2086
2087
2
2089
2030
5091

067364
067366
067370

e 093
e 0s4
2 09S
2 096

067374
067376
067400
067402

064054
007
000004
0o0e
065776

067302
067304
067306
067310
067312
067314
067316
067320
067322
067324
067326
067330
067332
067334
067336
067340
067342
067344
067346

002
064004
007
064054
0Q7
000007
000
063767
002
065007
000
065055
006
065017
006
064004
007
064054
007

067350
067352
067354
067356
067360

000007
000
063767
002
065007
000
065055
Q0?
06501;
0o
064004
007
qugg;

00c

000

MACY11l 30A(10S2)
25-JAN-78
ERR DARTA FORMRTS

DF2l:

000
000

coo
000

DFee:

000

000
000
0o0
000
000

000
000
000

000
000
000
000

DF23:

DH3
.BYTE
Y
.BYTE
OHSe

.BYTE
DHe
.BYTE
DH3
.BYTE
7
.BYTE
DH1
.BYTE
DH28
.BYTE
DH32
.BYTE
DH29
.BYTE
DH2
.BYTE
DH3
.BYTE
7
.BYTE
DH1
.BYTE
DH28
.BYTE
DH32
.BYTE
DH29
.BYTE
DH2
.BYTE
o) H3
.BYTt

7,0

2,0
2,0
7,0

7,0
0,0
2,0

0,0
6,0
6,0
7,0
7,0

0,0
2,0
0,0

7,0
7,0
7,0
7,0

JOe

12:08

PAGE 229

SEQ 0223

cznsnto unxaus RK& DR PRT!
CZREHE . P11
25-JAN-78 12:00
12097

MACY11 30R(1052)
2S-JAN-78
ERR DATR FORMATS

KO2

12:08

PAGE 230

3636 36 36 3% 36 3 3 36 3 3 3 36 3 3 I 3 3 I 3 3 I W 3 I I 3 3 I U I W I W I

12098

'&BTTL

TYPE ERR ROUTINE

SEG 2230
W W

WKE KX ® R

L RE R E R E KX REE R

12099

:#ENTRY JSR PC,TYP ERR

12102
12103

lTHIS ROUTINE USES THE "ITEM CONTROL BYTE”TM (SITEMB) TO DETERMINE WHICH
:%ERR IS TO BE REPORTED. IT THEN USES THE "ERR TABLE" (SERRTB)

12106

’ o 3636 36 36 36 36 3¢ 36 36 3¢ 36 36 36 3 36 36 3 3 36 3 3 I 3 3 3 36 3 I 3 3 3 36 3 3 3 3 3 3 3 A 3 3 3 3 3 3 3 % 3 3 3 3 I 3 3 A 3¢ AKX %R

fgfg?

*RETURN RTs PC

iS{BZ

12107

’$HEREREO DEFINE WHAT INFORMATION IS TO BE REPORTED CONCERNING
%*

067404

104413

12108

067406

12111
12112
12113

067420
067422
067424

12115
12116
12117
12118
12119
12120
12121
12122
12123
12124
12125
12126
12127
12128
12129
12130
12131

067432
067436
067440
067444
067446
067450
067454
067456
7462
7468
067466
067470
067472
067474
067476
067500
067502

012037
00I40M
104401
104401
0000
012037
0014904
104401
104401
0000
012001
001455
005004
012000
012002
001446
005104

12133
12134
12135
12136
12137
12138
12139

067510
067512
067514
067516
067520
067522
067524

112003
10572
005703
001407
013146
104402
005303

12141
12142
12143
12144

067530
067534
067536
0OB7540

104401
000771
005302
003431

12146

067546

005760

12109
12110

12114

12132

12140

12145

12147
12148
12149
12150
12151
12152

113700

067412
067416

042700
00S300

067426

062700

067504

067526

067542

067552
067554
067556
067560
067564
067570

006300
006300
006300

104401

001403

10440f

001404
(005104
001002
104401
012037
104401

001114

YYPERR: SAVREG
MOvV8

177400

003474

067446

BIC
DEC
18:

001205
067464

2%:
38:

001205
Ys:
c§:

001205

108:

118:

148:
001205

067660
067572

RO
RO
RO

MOV
BEQ
TYPE
TYPE
LWORD
MOV
BEQ
TYPE
TYPE
.WORD
MOV
BEQ
CLR
MOV
MOV
BEQ
COM

(RO)+, 28
3%
§CRLF

RDD

TYPE

15%:

#SERRTB, RO

O
(RO)+,48
5§
SCRLF
O
(RO)+,R1
208
RY
(RO)+,RO
(RO)+.R2
175
RY
$CRLF

:CLEAR S.GN EXTENSION
:FORM INDEX FOR ERR TRBLE
; FORM RDDRESS OF ERR ENTRY

:GET EM POINTER
'BRANCH IF THERE ISN’T ONE
:TYPE CARRIAGE RETURN LINE FEED
:TYPE ERR MSG (EM)
'EM POINTER coes HERE
:GET DH PQOINTER
'BRANCH IF THERE ISN’'T ONE
:TYPE CR-LF
JTYP onrn HEADER
:DH_POINTER coes HERE
'GET DT POINTER
annucu IF THERE nas NONE
'SET INOENT SWIT
:GET DF Poxnrsn
'STORE NUMBER OF DH’S
JDH NUM xs 0-BRANCH
INO INDENT

;GET 8 STORE NUMBER OF DATA WORDS
:BUMP PRST FORMAT WORD
*TEST IF ANY DRTA ron THIS HERDER
INO - SKIP DATA PRIN
:PUT FIRST DATA WORD on STACK
STYPE IT
none onTn WORDS

TYPE
BR
DEC
BLE

SPACE2
i1s
2
0

TYPE SEPQRRTORS
:LOOP
'MORE DH’'S?
: NO-BRANCH

15T

2(RO)

;ONLY

BEQ
COM
BNE
TYPE
MOV
TYPE

tR0)+ R3
(RO)+
R3
14%
J(R1)+,-(SP)

;ENTER ERR NUMBER

MOVB
TSTB
157
BEQ
MOV
TYPOC
DEC

TYPE

000002

8177400, RO
RO

ASL
RSL
ASL

BEQ

067660

SITEMB, RO

148

SCRL

1S$
RY
15$
SPACE2
tRO)+, 168

NO-BRA

A DH IN THIS REQUEST?

vss-enancn BYPRSS INDENT
: INDENT
:NO-BR c
:YES-TYPE SPRCES
:GET NEXT DM POINTER
*TYPE DH

CZREHED UNIBUS RK& DR _PRT]
CZREHE.PI1
25-JAN-78 12:00

12153

Q67572

000000

12156
12152
12188
12159

067600
Qe7e0u
0867
067612

062700
0RO7SY
5704

{siad Bbre?d ARTaAY

12160
12161
12162

067614
067616
067622

12165
12166
12167
12168

067626
067634
067636
QE7644

032777
001410
023727
(001004

067656

000207

12163

Oe7624

12169
12170

067646
067652

12172

067660

12171

001335
104401
000732

MACY11 30R(1052)
25-JAN-78
TYPE ERR ROUTINE

168:

000002
001205

218%:

067660

178:

109414

208:

010000

111304

001103

000024

012706
000137

001100
042662

020040

000

25%:

SPACE2:

LO2

12:08

PAGE 231

MORD

QHPEO£N6§R GOES HERE

ADD
3
YPE
TST

oa RO
é
$CRLF
Ry

; INCREMENT DF_PQINTER
iSEE IF END OF DF BLOCK
; INDENT?

BIT
BEQ
CMP
BNE

#SW12, aSWR
25%
SERFLG, #20.
253

;ABORT DRV AFTER 20 ERRS?
!BR_IF NO
jELSE_SEE IF 20 ERRS
R_IF_NO

RIS

BNE

BNE
TYPE
BR

RESREG

MOV
JHP

.ASCIZ/

108
SPACE2
ios

85TACK, SP
$EOP
7/

! YES-BRANCH

: NO-BRANCH
'YES-TYPE SPACES
:LOOP

'ELSE RESTORE STK
AND DROP DRIVE
;2 SPACES

SEQ 0231

0= 0 hee s 0 Bt Pt 0t Pt ot Pt ot Pt Pt Pt Pt Pt Pt Pt Pt Pt ot P P ot Pt —

30AR(1052)
25-JAN-78
TYPE ERR ROUTINE

MO2

12:08

;

0DT-11 -- VOOSA

;

DEC-11-UODPR-R-LA

;

MAYNRRD,

PAGE 232

SEQ 0232

ABS, AMA

RO
R1
R2
R3

b
=
=
=

%0
%1
%2
%3

RS
SP
PC

=
=
=

%S
76
Y74

-EVEN
.=.4+60

177776

0.TVEC

000014
000340

0.STH

0.78T

TRT
RTT

000006

MASSACHUSETTS 01784

.ENRBLTM~

=
=

;
:
:

177776

; STATUS REGISTER

: TRT VECTOR LOCATION

34c

anonxrv MASK - STATUS REGISTER

g MASK - grnrus REGISTER

00003
00006

TR %NSTRUCT}
'RTT INSTRUCTION

RS IS USUALLY CONSIDERED SRFE,

THE CURRENT noonsss WORD

: RESIDES IN IT.
AFTER A BREAKPOINT, IT IS SET TO ZERQ nno SEARCH
! OPERATIONS LEAVE IT RANDOMLY FILLED. OTHERWISE, IT SHOULD NOT

! BE USED EXCEPT FOR JSR'S AND THE CURRENT ADORESS POINTER (cao)
b.ROB

177562
177560
177566
177564

0.RCSR
0.708
0.TCSR

=
=
=

177562

177560
177566
177864

;R DATA BUFFER

;R C/SR
;7 onrn BUFFER
;T C/SR

1]
1]

INITIALIZE 0OT

:
!

USE o.087+a TO RESTART ODT - WIPING OUT ALL BREA KPOINTS
USE 0.00T+4 TO RE-ENTER (I.E. - FAKE R BREAKPOIN

06774y

067764
067770
067774
870000
070004

070024

000000

- 00000

—

EDO;.D\.D\D\D\D\D\D\D\D(DCDCDCD(DQ(DQ(DWV\I
OWONCN LWN—DVD
NN LWN~=OVD NNNNN
NTNLW

067664
067744
000000

s Bt Pt ot (ot Pt Pt Pt Bt
Pt Pt Pt Pt Pt ot
e Dt ot Bt (ot Pt Pacs (ot P

MARCY11

: DIGITAL EQUIPMENT CORPORATION

s P

Bt ot s et (s Pens ot Pt Pt Bt Pt B

Pt P

UMM
N R

Pt et s St Pt s Pt Pt Bt et s

s Pt P

D VUM

CZRBEHEQ UNIBUS RK& DR PRT!
25-JAN-78 12:00
CZREHE.P11

3737
0737
0137
4 706
0 637
0

4037

3777
3704

BR
BR
0.ENTR: MOV
MOV
MOV
b.00T:

3 37

"USE 0.0DT FOR A _NORMAL ENTRY

177776
000016
067722
0711ee

067724
177776

b.STRT:

067704

67720

071330

067742
067726

177716

0.STRT
0.RST

:NORMAL ENTRY
'RESTARY

S7,0.UST

‘RE-ENTER

JMP

0.tvEC+2,sT
PC,0.UPC
0.BK1

SAVE STATUS

Mov
MOV
BR
JSR
MOV
MOVB
RORB

#0.URD, SP
SP.0.USP
0.RST1
0,0.SVR
0'UIN,30.ADR!1
0.PRI.RY
RY

;SET_UP STACK
'FAKE THE SAVED STACK
*CLEAR BREAKPOINT TABLES
:SAVE REGISTERS
;REMOVE_THE BREAKPOINT
:GET ODT PRIORITY
SSHIFT

'SET UP LOCAL STATUS
iFAKE THE PC

CZRGHED UNIBUS RKe& DR _PRTI
CZRBEHE.PI11
25-JAN-78 12:00

071032

000016
000014

1
000770

25-JAN-78

TYPE ERR ROUTINE

0. 4YS:

Oeewswiae

Q00002
071751
000340
071112

30A(1052)

0. RST1:

RORB
RORB
MOVB

ggp
MOV

CLRB
MOV
MOV
BR

.REGT:

.RSP:

JSR

MOV

CMPB
BEQ
CMP
BHI
BIC

PRGE 233

SEQ 0233

RY
RY
RY,ST

; INTO
:
"POSITION
iSTORE IN STATUS

OPTI 0.RTIT

;SET TO RT!

6PC%+
0.P
#0.STM,0.TVEC+2
80.8RK.0.TVEC
O0.RALL’

11,20 OR /0S

:DISALLOW PROCEED
:STATUS WORD TO TRT VECTOR + 2
:PC T0 TRT VECTOR
:CLERR BRERKPOINT TABLES

.SP:

0.GET

cb TL,RY

RO, (R%)+
0.5P
80.TL+0.LG,RY
0.RSP
8177770,R0

;SPECIAL NAME,

GET ONE MORE CHARARCTER

:TRBLE START ADDRESS

1S THIS THE CORRECT CHARACTER?
:JUMP IF YES
;1S THE SEARCH DONE?
:BRANCH_IF NOT
:MRSK OFF OCTAL

MOV
RSL
ADD

RO, R4
RY4
#0.URO, RY

; GENERATE RDDRESS

B8R

0.SCAN

'GO FIND NEXT CHARARCTER

0.SPI

INC

071766

NO2

12:08

SPECIAL NRME HANDLER
DEPENDS UPON THE EXPLICIT ORDER OF THE TWO TRBLES 0.TL AND 0.URO

.SP1:

067704

SUB

$0.TL-7,RY

:SET FOUND FLRG

:CORRECT CONSTANT

+ HANDLER - OPEN INDEXED ON THE PC

TOOONNNEL

2265

177776

004537
012704
120024
001413
022704

000000000
NNNNNNNNYN
000000000

RN
oo
L WOV

VAV LA AV A VA VIV TRV I Vg FT A VT M T VERRT SV I

070026
070030
07003e
070036
070040
07004
070050
070054
070062
070070

MACY1l

004737

.ORPC:

071676

JSR
MOV

JR2,R2
R2
0.ERR
R2

: COMPUTE
IMOVE ONE BIT TO CARRY
'ERR_IF 0DD NUMBER
*RESTORE WORD

MOV

R2, RS

'UPDRTE CRD

JMP

070436

; CURRENT RDDRESS IN R2

ADD
ASR
BCS
ASL
15T

000137

PC,0.TCLS
RS'R2

(R2)+

0.bpP2

AND_INCREMENT BY TWO

:GO FINISH UP

B HANDLER - SET AND REMOVE BREAKPOINTS

.BKPT:

00Ss702

TST
BEQ

R2
0.RALL

;
"

BCS

0.ERR

:JUMP IF 0DD

RSR

ASL
ESV

067736

070210
070216

000406

072012

067736

.RALL:

MOV
BR

RY
RY 8bnonx
L.

80. TRTC,0.ADR1

0.0CD

CMD DECODER - 0ODT11
REGISTERS RO-R4 MRY BE USED,

IF_NO NUMBER TYPED
REMOVE BRERKPOINT

;CHECK

IF 00D

"RESTORE ONE BIT
!SET A BREAKPOINT
;CLEAR BRERKPGINT

3?9(1052)
25-JAN-78
YPE ERR ROUTINE

VYV

8?0239

88;537

g?OEHH

005002
82%
7
2700

071552
000060

S?OO

0oo0e?

2700

177770

071730

071761

SEQ 0234

BIS

81 RS

; CLOSE EVERYTHING

0.DCD:

JSR
JSR

S,0.FTYP
§'0.CRLS

: OUTPUT ?
;TYPE
<CR> <LF>

R2
5,0.GET

; Ra 1S THE NUMBER FOUND FLAG
'GET A CHAR RETURN IN RO

0.CcLGL

! CHECK LEGRLITY IF NON-NUMERIC

MOV

0.0CD1: CLR

CLR
0.SCAN: JSR

CMP

BHI

RO, R4
R2

IPACK THREE BITS IN R4
:R2 HAS NUMERIC FLAG

BHIS

0.LGL2: ASL
JMP

RY
RY

MAKE ROOM
RY

_AND_TRY RGAIN
;'
'CLEAR INDEX
;DO THE CODES MATCH?

0.ERR

;

R1
90.LGDR(R1)

TMULTIPLY BY TWO
:GO TO PROPER ROUTINE

0.(LGLE
Ri
R1, #0.CLGT
0.LGL1

;

:JUMP IF YES
*"SET INDEX FOR NEXT SEARCH
IS THE SEARCH DONE?
O0PS!

:RE-LOOP

OPEN WORD

;
;
:

CARRRIAGE RETURN
CLOSE
S
REGISTER OPS
G
_GO TO ADDRESS
K

:
:

+
¢

0.0FST
O.WSCH
O.EFF
0.BKPT
0.PROC

;
:
:
;
;

:COMPRRE WITH RSCII 7
:CHECK LEGALITY IF NOT OCTAL
:CONVERT TO B8CD

0.SCAN
R1
RO,0.LGCH(RL1}

0.0PL

0.0RPC
0.BACK

N
o

—

;COMPARE WIYHASCII O

ADD
INC

BEQ
INC
CMP

=
~
Q
£
~N
v

Q
~N

&,Jw
RS

o
~N
o
~N

#'0,R0

;

8R
0.CLGL: CLR
0.LGLI: CMPB

0.LGL

: R4 CONTRINS THE convsnrzo OCTAL

0.CRET
O.REGT
0.GO

071034
000030

2 70 BE TYPED

ASL

0.LGDR: O.WRD

070362

#°7 RO
0.clGL
#177770,R0

070334

8’ % RO

CMP
BLO
BIC
ASL

000014

=
~N
j=]
G
o
o

[NINTNININ] WWWWWWWW
o n [y
teretwiwintwing
NoOnNLW n - ODODNCNLEWN—O

s Pt et ot (ot

s P

fururun LN

Pt Pt ot i et Pt
0 Pt Pt Pt Pt P
Pt Pt

PARGE 234

.ERR:

ASL

RNV

Pt s et P Pt P P

VLRV

P P Pt Pt Pt ot Pt s Pt Pt

000001

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

BO3

12:08

s s Pt Pt Pt

wwwwwwwwwwwwwuummmrvmmmmmmmmmmm

seesaaasssssa*afafiesssaafi

CZRSHEO UNIBUS RK& DR PRT]
CZR6HE.P11
2S-JAN-78 12:00

MACY1l

<LF>

O
W
E
B
P

CLOSE,

MODIFY,

OPEN_NEXT

OPEN
R
ELnon INDEX - PC
OPEN PREVIOUS

OFFSET
SEARCH WORD
OSERARCH EFFECTIVE ADDRESS
BREAKPOINTS
PROCEED

’-0.LGDR

:LGL MUST EQUAL 2X CHLGT ALWAYS

: PROCESS / - OPEN WORD
331

070364

0.WRD:

005702

TST
BEQ

MOV

338

070402

0
004537

071466

340

070410

042?05

000001

0.WRD1: ASR
0.ERR2: BCS
ASL
MOV
JSR
BR
0.WRDA: BIC

R2
0. WRDA

;GET_VALUE IF R2 IS NON-ZERO
'SKIP OTHERWISE

RS
0.ERR
RS
JRS, RO
5,0, CADV
0.DCD1
#1,RS

'MOVE ONE BIT TO CARRY
:JUMP IF ODD ADDRESS
:RESTORE THE CARRY BIT
SGET CONTENTS OF
WORD
:GO GET AND TYPE OUT aCAD
:GO BACK TO DECODER
:CLEAR CLOSED BIT

R4, RS

"PUT VALUE IN CRD

CZRGHED UNIBUS RKE DR _PRT]

CZRBHE.P11
12341
12342
12343
12344

070414

2S-JAN-78 12:00

3?R(IOESR RSUngN 78

070426

O.CRET: J?R

000702

070430

004737

071676

b. OPl1:

070436

004537

071722

0. oPe:

SS
S6
S7
S8

070444
070450
070454
070460

004537
012700
004537
000744

071466
000057
071630

004737
00S74S
000762

071676

<LF>,

070472
070474

006205
103737

372

870504

004537

0705e2

004537

TCLS

S,0.CRLF
RS, RO
s,b.cnov

0.WRD!

PROCESS
.BACK:

¢,

JSR
TST
BR

b.0FST: AS

2370 078208 878388 ogoouo

;GO BACK TO MARIN-LINE

071630

PC,0.TCLS

-(RS)

0.0P2
RS

389
390

070544
070546

00S201
000401

394
395
336

070556
070562
070566

013702
013705
005105

,N
nasn T0 TYPE
. TYPE OUT ADDRESS
;TYPE A/

;GO PROCESS 1IT

s GENERATE NEW ADDRESS

:GO DO THE REST

;GET LOW ORDER BIT

& ,RO
S.0.FTYP
g&,nq
RY
RY, RO

;
16 BIT OFFSET
*TYPE A

071466
070240

'SAVE R4
*NUMBER IN RO - WORD MODE
;DIVIDE

BY TWQ

:BRANCH IF 0DD
:NUMBER IN RO - BYTE MODE
:ALL DONE

HAS THE MASK
SEARCHES - S$MSK
$MSK+2 HARS THE FWA
$MSK+4 HRS THE LWA

.EFF:

067732
067730

:GENERATE
NEW RDDRESS
<CR><LF>

'ERR _IF CLOSED
:RESTORE WORD
*TYPE ONE BLANK
. RS R_SEPARATOR
i COMPUTE

0.0F1
5.0.CRDV
0.DCD1

.OF1:

;CLOSE PRESENT CELL

0.ERR2
RS

R4 R2
Rébngnov

OOrrersives O

004537
000137

:RETURN TO DECODER

COMPUTE OFFSET

071466

.WSCH:
.WDS:
.ERRI1:

OO0

070534
070540

;CLOSE to ATION
EVERYTHING
*CLOSE

OPEN PREVIOUS WORD

382
383

SEQ 023S

OPEN NEXT WORD

(RS)6

PROCESS O,

368
369

obco

s'/.RO
S,0.FTYP
Onrws
e

070462
070466
070470

PC3 TCLS

eis

378

PAGE 235

' PROCESS CARRIAGE RETURN

PROCESS

b2
63
364

CO3

12:08

0.WRD1

000766

1834g D788 BE73E Bodeor

12347

MACY11

INC

gluos

sSET EFFECTIVE SEARCH

Ri
gaE

sSET uong SEARCH
cuscx FOR OBJECT FOUND

0. nsx+a R2
0.MSK,RS
RS

ser onxcxn
:SET MASK
:AND COMPLEMENT IT

CZR6EMHED UNIBUS RK6 DR PRTI
CZRBHE. P11
25-JAN-78 12:00

12397
12398
12399

070570
070574
fi?OSég

020237
101217

12402

070604

010046

gMP

bco

D03

12:08

PRGE 236

;

MSK+4

;

freds
R &:§2§§

IS THE SERRCH ALL DONE”?
YES

IBRANCH IF EFFECTIVE SEARCH

EFFI
RO -(SP)

EngBEIEE OR

IN A VERY

FANLY MANNER HERE

070614

nno RESULT WITH MASK
NO
RE-LOOP IF

s e
. Pt Pt Pt Pt

0.WDS3:

MATCH

gsc
STERS R2, RH AND RS ARE SAFE

cer REQD? TO TYPE
GET CONTENTS

TYPETCONTENTS

071466

Pt Bt

SEQ 0236

: GET OBJECT

aRa RO

071466
8 0057
1630

INCREHEN; TO NEXT CELL AND

0.WDSYH:

ETU
; IS (X)=K?
; TYPE _IF EQUAL
;(X) TO R3

(=]

0.EFF1:

; (X)eX42

070702
70706
070710
878?12

’IS (X)*X#a—K’
:BRANCH IF EQUA
NIPE out EXTRQNEOUS BITS
{EXTEND SIGN

177400

;MULTIPLY BY TWO
ADD TWO

70714

070716
070720
070722
070724

070726

00073S

105037
006204

;RDD_PC
+ IS THE RESULT R PROPER REL.

6.00:

071751

ALLOW PROCEED
CK_LOW ORDER BIT
IF _ODD NUMBER
RE WORD

nomuy

12440

30R(1052)
25-JAN-78
TYPE ERR ROUTINE

0.uWDS2:

067734

071722

LLrL
e£
WL
[l
o RNTs o]

;»fl-h»fl-»»fl-nun—th—Hp»—h»»—u»o—»r»—h»n—hru—»uq—n
g

PRPRPRPRRPPRPRRPYY PRPPRPPRRY ELY
%?8%8838¥33TB$285 NN EWN) QR R28

15489

MACY11l

067722
000340
0;1;20

866038
176742
072012

071006

012601

R4, 0.UPC

1?7776

067724
067742
176732

0.TBIT:

0.G0e:

$0.STM, ST
,OTRStHT

0’7
#0.TBT,0.UST

;SET UP NEW PC

:SET _HIGH PRIORITY
:RESTORE TELETYPE

CL§—BIT AGS

30.A0R!
0. UIN

i SAVE INSTRUCTION

(SP)+.R1

’

0.TRTC
bo RDR1
(SP)+,R0

REPLRCE WITH TRAP
RESTORE

”

BRANCH?

CZREHED UNIBUS RKb DR PRTI

CZREHE .P11

25-JAN-78 12:00

12463
12454
12455

071010
071012
071014

012602
012603
012604

12458
12459
ig:g?

071022
071026
071032

013746
013746
000006

12486
12457

071016 012605
071020 012606

MACY11 309(1052)

TYPE ERR ROUTINE

MOV
MOV
MOV

MOV
MOV

067724
067722

MOV
MOV
0.RTIT: RTT

12462
}g:ga

.
:

12465

071034

12467
12468

071042
071046

12466

12469

12470
12471
12472
12473
12474
12475

is:;g

0.UST,-(SP)
0.UFC,-(5P)

105037
005702

071751

CLRB
TST

0.P
R2

010437
112737
004537
112737
105237
052737

067740
000340
07!420
000340
071750
000020

MOV
MOVB
JSR
MOVB
INCB
BIS

RY,0.CT
80.STM,ST
5,0.RS1T
80.STM,ST
O.T
80. TBT,0.UST

00073S

BEQ
BEQ

177776

O.PR1:

1777?76

0.Cl:

067724

0.ERR1

{533é

12483

071112

012637

067722

12486
12487
12488
12489
12490
12491

071126
071132
071134
071142
071146
071150

105737
001311
013777
106737
100003
113705

071750

071116

012637

12485 071122 004037 071330

12482

071184

000407

067742
067726
067724

'YES. PUT AWAY COUNT
'FORCE HIGH PRIORITY
IRESTORE TTY
ISET HIGH PRIORITY
iSET T-BIT FLAG
:SET T-BIT
WHICH SAVES

FINDS OUT IF THE BREAKPOINT WRS LEGAL,

AND GIVES CONTROL TO YHE CMD DECODER
MOV

MOV

0.BKl: JSR
176574

NOT LEGAL

TRT BRERKPOINT CAUSES 0.BRK TO BE ENTERED,

vnnxous 0DDS AND ENDS,

5.BRK:

067724

;
nno STATUS
:
AND PC
:CHANGED TO RTI FOR 11,20 AND /05

' CLERR PROCEED FLAG
uns COUNT SPECIFIED?

0.602

12480

;

;
; AND_SP

CHECK LEGALITY OF PROCEED

0.PR1

: BREQKPOINT HANDLER

12479

THRU

PROCESS P - PROCEED
ONLY ALLOWED AFTER A BREAKPOINT

0.P

001402

SEQ U237

;

(5P)+’'RS
(SP)+,5SP

12478

12484

b.PROC: TSTB

071050

PAGE 237

(SP)+,R2
(5P)+ R3
(SP)+.RY

071751

001645

071110

EQ3

12:08

105737

071040

071052
071056
071064
071070
071076
071102

25-JAN-78

1578
BNE
MOV
TSTB
BPL
MOVB

(SP)+,0.UPC

:PRIORITY IS 7 UPON ENTRY

O.T
0.7BIT
0.UIN,30.ADR1
0.PRI
0.BK2
0.UST,RS

iCHECK FOR T-BIT SET
;JUMP IF SET
;REMOVE BREAKPOINTS
} CHECK IF _PRIORITY
IS AS SAME RS USER PGM
'PICK UP USER UST IF SO

(SP)+,0.UST

g,0. svn

0.BK3

:SAVE STATUS AND PC

:SAVE VARRIOUS REGISTERS

*AND DON’T COMPUTE THE PRIORITY

CZREHED UNIBUS RK& DR _PRT1
CZREHE.P11
25-JRAN-78 12:00

12493

071156

113705

067726

MACY11l 30AR(10S2)
25-JAN-78
TYPE ERR ROUTINE

C.BKe:

MovB

FO3

12:08

0.PRI,RS

PAGE 238

; OTHERWISE PICK UP ACTURL PRICRITY

SEQ 0238

CZRBEHED UNIBUS RK6 DR PRT1
CZREHE.P11
25-JAN-78 12:00

12494

12495

12496
12497
12498

MACY1l 30R(1052)
25-JAN-78
TYPE ERR ROUTINE

000257

cce

071166
071170
071172

106005
106005
106005

RORB
RORB
RORB

RS
RS
RS

:TUINTO
;
HIGH ORDER
POSITION

CMP
BEQ

,0.
Rg
0.ADR1
0.82

!:JUMP
COMPARE
u?§n L?ST
IF FOUND

10600S

RORB

5 Bin 863747
S W0
S

o83 B
TgT

|
1?50
8715?3
8&8237 8677 6
12504 071216 001417

1250

071220

12507
12508
125609
12510

071530
071234
071240
Q71244

{ggié

071224

8;{5;3

4537

071366

012704
012703
004537
850500

071754
071755
071614

4537

2336

12514

071262

18518

071302

12519

12620
12521
12522
{ggga

071264
071272
071276
071306

071312
071312
071322
071324

003302

000020

012737
105237
637

000001
071751
071366

004537

071630

012700

013700
004537
005005
000137

MOV

071722

12513 071256 065337 067740
12515
12516
12517

067724

067740

071330

12630
12631

071344
071346

012637

071334
071340

010637
012706

12632
12533
12534

071350
071352
071354

010346
010246
010146

{gggg

071364

000200

0.B3:

8;{353

010546
010446

868;32

071746

0.svR:

067720
067720

géc

DEC

BGT

MOV
JSR
CLR
JMP
MOV

MOV
MOV

071746

5'0.CRLF

:CLEAR CARRY

:SHIFT LOW ORDER BITS

B
HE TG MR MR g Lo
§ggrnnér TWO
:SAVE TELETYPE STATUS
sERR, NOTHING FOUND

;OUTPUT "BE” FOR BAD ENTRY

8oéger,o.usr

°k§8“c8fi¥xfifié POSSIBLE FAKE T-BIT

0.Cl

: JUMP IF REPEAT

0.CT

#1,0.CT
0.p
5,0.5VTT
8’8, R0

5,0 FTYP

0.ADR1,RO
5.0.CAROV
RS
0.DCD

*RESET COUNT T0 1
'ALLOW PROCEED
:SAVE TELETYPE STATUS, R4 IS SAFE
TYPE "B”

GET RDDRESS OF BREAK
TYPERQDD ESS
'CLEAR
CAD
:GO TO DECODER

(SP)+,0. XXX

SP,0. (ISP
co USP, SP

TACK AND SAVE

,-(SP)
RH,-(SP)

; SAVE
: REGISTERS

02§;§,-(sp)

:PUT SAVED REGISTER ON STACK

MOV
MOV
MOV

R3.-(5P)
R2.-(SP)
RI.-(SP)

RTS

¢g¥

sPICK RESISTER FROM

'SAVE USER STACK ADL =SS
:SET_TO INTERNAL STACK

1
:"THRU
:
5

: SAVE TELETYPE STATUS
071366

113737

177560

071374
071402

113737
105037

177564
177560

12848
igg:g

071412
071416

004537
000205

071722

12548

#0.80,RY
#0.8D041,.R3
5. 0. TYPE
RS RO

JSR

067736
071466
070234

12542
12643
12544

MOV
MOV
JSR
MOV

MOV

{ggag
12541

5.,0.SVTT

MOV
INCB
JSR

000102

Bl
;(Rg)épc

SEQ 0239

SAVE REGISTERS RO-R6 IN INTERNAL STACK

12527

igg 2

0.82:

JSR

{gggg

12528
12529

PAGE 239

071162

07116M

}g§§? 8;1
12506

GO3

12:08

(071406

105037

177564

071752

071753

O.SvTT: MovB

0.RCSR,0.CSR1

;SAVE
R C/SR

MOVB
CLRB

0.TCSR,0.CSR2
0.RCSR

;SAVE
T C/SR
CLEQR ENRBLE AND MAINTENANCE

JSR
RTS

S.0.CRLF
RS

TYPE <CR,LF~

CLRB

0.TCSR

RESTORE TELETYPE STATUS

BITS IN BOTH C/SR

CZR6HED UNIBUS RKE& DR PRTI
CZRGHE . P11
25-JAN-78 12:00

12550

071420

004537

1255

871430

60c17§

12554
126565

(071440
071442

001403
105737

7i4sB

113737

12651

1265

152?9
12558
f5§§3

071484

71432

7}#4

071456
071464

105737
032757

xog;7§

113737
000205

MACY1l

071722

0.RSTT:

177364

004000

071753

177560

177564

BEQ
TST8

BPL

O.RSE1: MOVB

MOVB
RTS

071466

071470
o;iw7w

010246

012704
0}2745

072011
000060

15559 871?82 343985 177770
071506
071510
071512

061602
1102494
006200

12575
12576
12577
12578
12579
ISSBD

0715
071826
071532
071534
071536
871242

101365
042700
082600
110094
012703
Q4537

{SESS

071550

000205

12881

071514
071516
871558

071846

006200
006200
020427

12590

sWAIT READY ON PRINTER

.-y

#'-J00,0.RCSR

:SKIP READY LOOP IF NOT BUSY
NQIT READY

0.CSR1,0.RCSR

:RESTORE

0.CSR2.0.TCSR
RS

8
N READER

;

012802

071864

105737

100375
663739

;SAVE R2

BiC

0177;70 R2

RO
RO
R4,

: "RIGHT
.
THREE WHOLE PLACES
;oo E?

ASR
ASR
CMP

072011
071614

177560

MOV
:gz

ADD
MOVB
ASR

071630

JSP,R2
R2, - (RY)
RG’

80.BUF+1

0.5PC
$177776 RO
(SP)+, R0
RO, - (RY)
co aur+s R3
TYPE

RTS

(SP)+ R

71sTB

BPL
MOVB

JSR

0. RCSR

12695

071604

isggg

071612

122700

000073

071610

001760

CMPB

BEQ

000205

:RESTORE

.
INPUT rnon KEYBOARD
‘GET R CHARACTER

840, RO

:IGNORE NULLS
;CHECK ron SPACES

8’: RO

: CHECK FOR SEMI-COLON

0.FtYP

0.GEY

000040

001763

NO
*GET LAST BIT
s CONVERT TO ASCII
nno PUT IT AWAY
PLWA
TYP$ NHOkE STRING OF CHARACTERS

o RDB RO

BEQ

122700

071602

RTS

-ECHO CHARACTER

TRIP OFF PARITY FROM CHARACTER

! TGNORE NULLS

0.6¢T

:IGNCRE THEM IF FOUND

12599

* GENERAL CHARACTER ourpur ROUTINE

isggé

12600

12605

071614
071616
071620

020304
103426

112400

OCTAL CHARACTER

:CONVERT TO RSCII
:STORE IN BUFFER
suzrr THIS MESS

:WAIT FOR

12594

071576

;

CHARACTER INPUT GOES

0177?00 RO

12693

'BUFFER START ADDRESS
GET
:CONSTANT ASCII O

GENERAL CHARACTER énpgr
ROUTINE

0.GET:

177562

80’ BUF +6,RY
#'0,-(SP}

BHI
BIC
ADD
MOVB
MOV
JSR

MOV
*

071556
871550

R2,-(SP)

071552

MOV

BIC
BEQ

12603
12604

THE STATUS REGISTERS

IN RO

12591
071570
042700
177600
12692
071574
001766
12596

;sCHECK BUSY FLAG ON READER

0.RSE|
0.RCSR

.CADV:

177776

isggg

18587

<CR,LF> BEFORE RESTORING

0. T*SR

072004

12584

12588
12589

5,0.CRLF

SEQ 0240

WORD

0. 5PC

12572
18573
12574

PAGE 240

TYPE OUT CONTENTS OF WORD OR BYTE WITH ONE TRAILING SPACE

n
n
o
W

Oerernie

12562

12569
12570
18671

12:08

)

12561

12565
;aégg

1578

BIT

12564

JSR

BPL-

177560

177560
071752

HOJ3

30R(1052)
25-JAN-78
TYPE ERR ROUTINE

"ADDRESS OF FIRST BYTE

IN R4

ARDDRESS OF LAST BYTE IN R3, (R3)>(RY)

b.TYPE: CMP
BLO

MOVB

R3,RY
0.tyP1

(R4)+,R0

:CHECK FOR COMPLETION
; EXIT WHEN DONE
:GET
R CHARARCTER

CZR&HED UNIBUS RKG DR PRT!

CZREHE.PI11
12606

igggg

071622
071626

25-JAN-78 12:00
004537

0500772

MACY11 30A(1052)

071630

JSR
BR

{gggg

12611

071630

12612
12613
12614

071634
071636
071642

12616

071650

12618

071660

12615

12617

12619

12620
12621

12622
iggga

105737

100375
110037
120037
113746

Q7?1646

001012

071654

105737

071662

071666
071670

071672
071674

100375

10S037

105316
003371

177564

2S-JAN-78

TYPE ERR ROUTINE

JN4Y, - (SP)

177564

0.TYP2: TSTB

177566

CLRB

BPL

DECB
BGT

0.TYPl:

TST
RTS

0.tyP1

:NO

:YES,

0.TC5R

0.TYP2

INIT THE COUNT

0. 708

: GENERATE NULL FILLER

(SP)+
RS

;POP STACK

ISP
0.TYP2

CLOSE WORD OR BYTE AND EXIT

b.TCLS: ASR

12630

071702

006305

ASL

071712

000207

071700

071704
071706
071710

071714
071716

103405

005702
001401
010415
005746
000137

0.CLS1:

070220

12638

;GET LOW ORDER BIT

BCS

0.7C

1JUMP IF ALREADY CLOSED

157
BEQ
MOV

R2
0.CLS!
RY, 9RS

: IF NO NUMBER WAS TYPED THERE IS
:NO CHANGE TO THE OPEN CELL
:STORE WORD

-(SP)
0.ERR

:POP EXTRA CELL FROM STACK
:AND SCREAM BLOODY MURDER

RTS

0.TC: ~ TsT
JNP

: 0.CRLF - TYPE <CR,LF>
;

iggag

071722

012703

071734
071740
071744

012704
004537
000205

12642
12643

071726
071730

13648

071746

000000

12650
12651

071751

12644
12646
igg:;

‘WAIT UNTIL READY
:TYPE ONE CHARACTER
:1S CHAR TO BE FILLED”

! UPON ENTERING, R2 HAS NUMERYC FLAG, R4 HAS CONTENTS
006205

12641

;CHECK STATUS

MOVB

BNE

071676

12635
igggg

0.TCSR

000044

12628

12634

'LOOP UNTIL DONE

TYPE ONLY ONE CHARACTER (CONTRINED IN RO)

O.FTYP: TSTB

SEQ 0241

: TYPE ONE CHARACTER

0. TYPE

177566
00004S

005726
000205

PARGE 241

5,0.FTYP

-4
RO, 0. TDB
RO’ a#4S

{gggg

12631
12632
12633

12:08

BPL
MOVB
CMPB

12625

12628

103

000402
012703

0.CRLS - TYPE <CR,LF>#*

071757

O.CRLF: MoV

071760

0.CRLS:

#0.CR+1,R3

:LWA <CR,LF>

0.CRS
#0.CR+2,R3

:LWA (CR,LF>#

0.CRS:

MOV
JSR
RTS

#0.CR, R4
5.0. TYPE
5

*FUWA
PTYPE SOMETHING

O.xxx:

.WORD

: TEMPORARY STORAGE

000

0.P:

BYTE

071752
071753

000
000

0.CSRl:
0.CSR2:

.BYTE
.BYTE

O
DO

:PROCEED FLARG = O IF PROCEED NOT ALLOWED
:
= 1 IF PROCEED ALLOWED

iggg;

071754

042502

0.BD:

’

.EVEN

.WORD

“BE

12658
12659

071756
071757

015
gl12

d.crR:

.BYTE
.BYTE

015
0le

12649

12652
{ggga

12655

iggge
c

071750

071760

000

071756
071614

BR
MOV

0.7:

0s2

BYTE

BYTE
’

’'#

"T-BIT FLAG

'SAVE CELL - R C/SR
"SAVE CELL - T C/SR

;.
i

(CR>
LP

;¥

Q
o
|=]
o0 Oratetms
000 O
oo ONoW

2
2
2
e
2678
2

2
2
2
e
e

072011

072011
o440

072012

000003

067704
067706

JO3

12:08

PAGE 242

—

0.CLGT

.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYTE
.BYIE
.BYTE
.BYTE
.BYTE
.BYTE

4
15
'S
'G
012
‘e
Tt
'O
'MW
'E
’B
'P

;7
;
CARRIAGE RETURN
A
i
G
i
(LP»
;¢
S
;
0
POW
;
E
i
B
;
P

b.1L:

BYTE
'BYTE
.BYTE
.BYTE
.BYTE
.BYTE

’
'P
*M
O

; 00
*NOT
;CHANGE
THE
s ORDER
s HERE

0.LGCH:

0.LG

d.BUF:

.BYTE
.EVEL

b.TRYC:

0.URD:

olalalele]

[o]
W

067734

067736
067740
067742

.USP:
.UPC:
.UST:
.PRI:
.MSK:

000000

e (O
Pt e e P

s Bt Bt Pt Pt P
Be Bt Bt Bt
Dt Pt B

067704
000000
000000
000000
000000

704

707

30Q(1052)
25-JAN-78
YPE ERR ROUTINE

.-0.LGCH

; TABLE LENGTH

1
2
3
4
S
6

;6 CHAR.

’

BUFFER WITH

; TRRILING BLANK

TRT

; TRACE TRAP PROTOTYPE

! THE ORDER OF THE FOLLOWING ENTRIES IS CRITICAL

Pt Bt Pt Pt Pt

NNNNNNNNNNNQ‘JNNNNNNNNNNNN
NNNNNNN
o

s Prn Pt Pt Pt et Pt

072003

MACY11

000000
000000
000000
0000n1

OO vt =

4
2
2

057
015
044

)0 bt s ot ot pst pa O e
—NNOON- WW— O
L£OoLNNINNN ~

ot et Pt ot B

s e

s et Pt

NNNNNNNNNNNYN
NNNNNO
T O
LW
Z WM+

12662
12663

000000000000
NANINNNNNNNINNNN

CZREHED UNIBUS RKE DR _PRT1
CZRBHE. Pll
25-JAN-78 12:00

=
0
0
0
0
0
0
0

0.00T-40
; USER RO
Rl
;
R2
;
R3
;
RY
;
i
RS

ODT PRIORITY

0]
§]

LON LIMIT
'HIGH LIMIT

0
0
0

; USER SP

;USER PC
{USER ST
MASK

BRERK POIg Egsgs
UIN
.ADR1:
.CT:
CUIN:

0
0
o
.END

ADR1

= ADDRESS OF BRERKPOINT,CT = COUNT,

SEQ Oe4e

BRDHDR
—

nwannwnn

5
= 000000
000C0Q0
000010
000000
003436

177440

003306

0
®«

=t Gt Pt P

U‘I.S.SI(‘\ICDINU'ISIIII£££££££££££££

RPN
NNNO WO NN AR nyrururfUuUU
DNRN
RPNV RN~
£ WWWW L W ND— WWWWWWWWw W WL L WG
W W W WL (L) W) L WL G
LW W W W W
W W N W W W WL
UV pe e = O
L ond ond ol ond ol ol ol o el ed sad sl and and ol snd and ol and el ol Y ey Y e e e e 78 LR [ e
LW
ENLE L L

[

nNLWw—0O

g
D

= |

CZRBEHED UNIBUS RK& DR _PRT]
CZREHE.P11
25-JAN-78 |
MARCY11

2355
2357
2358

3834+%

PAGE 244
12:08
30A(1052)
25-JAN-78
CROSS REFERENCE TRBLE -- USER SYMBOLS

KO3

23694

2329

10138

10316#

10273

10315s

9109
9128
9154

S5704#%
7349+

9857
930S*»

SEQ 0243

EEES:E? Pll
Y1BUS 25-JRAN-78
B8Rt 6 Ié:OO
BADTMO
BRI
=
BR16
=
=
3A17

MACY11 3826§gsséFE£§§gRN-7

3908
13408
13268
13274

9320%
S713

Sge4

BIT00 = 000001
BITOl = 000002
8IT02 =
0000

12598
12588
12578

1323

1269
1268
1267

1355

1374

12528
12514
12504
12684

1262
1ebl
1260
1356

10027
10035
25a4

10103

= 000001

BIT03
BITO4
BIT0S
BITO%

= 00CO10
= 000020
= 000040
=
00010

BITO07
BIT08
BIT09
8171

= 000200
= Q00400
= 001000
=
0000

BIT11
BITlg
BIT13
BITIY

= 004000
= 810000
= 02000
= 040000

BIT10 = 002000

12698

12568
12554
12548
12538

_PAGE SSES

SEQ 0244

E TABLE -- USER SYM

0S0026
000020
000400
001000

BITO

LO3

12:08

2523

3947

39780

1266
1265
1264
1263

12498
12488
12478
12468
168?3.

1328

1329
1330
1331
1332

1347
1348
1349
1350

1365
1366
1367
1368
1368

1397
1383
1399
1384
1385

1411
1398
1413
1400
1401

1425
1412
1427
1414
1415

1438
1426
1440
1428
1429

1452
1439
1454
1441
1442

S294

10080

5296

10042

1455
1456

10087
1466

9617

9649

gL 1 M

12448

1334

1370

1386

1402

1469

4826

%17

364S

BITY

12658

1339

1358

1341
1324

1359

1360
1342

1391

1419

1446

6579

1433
1421

1447
1434

1448

1526.

1359

1437

1451

5290

24Sls
6869

6856%
6808
9647

109418

0QQlu462

e4408

935#

4181#

4169

91818

8800#*

9298

007014
(37034

1483
1487

BITIS =

BIT3

= .70010

BITS
BITe

= 000040
= 000100

= 000020

giTg = 8 1088

BPTVEC= 000014
BSE
= 000200
BSERR
001456

BSE22H

002304

BYP

044236

BSE22S

BYPCER
BYPFMT
BYPT16

BYTi6
BYTi6R

CALADD

0543S2

1464
001340

001366

CALDIF 001360
CCLR

= 100000

CcCyL

001354

cDT

CERR

= 002000

= 100000

12668

12648
12638

12768
13628
24378

40ee

cH4le
23858

1340

4050

934%
3667%

36718
367648

1346

1377

1378

1379
1361

1392
1380

1345

lgbq

1336

68box
6859

7131
6878

9643

4054

bOBY#*
3672%

4069

4905*

6311
3677%

4130

4940 *

640l #
3682%

1406
1393

1418
4157

SS08#
9615
3687%

1420
1407

1424
4161

4165

5589

6904 *

3691%

436l

6985%

1453

83980

%ggOl

6317%

7143%

7173%

7195

7279

7297

7334

7341%

7352%

96l

%21

3348

46]19

Y44

467

4684

Y757

487

9362
5102%

5083
6431
8599

S11S

9354
5063

5626
8249

5069

9346
5057

4984
5560
gle4

soel

9338
S0S6*

4836
_ S4al
7788

7865%

B8201%

BSS1¥

41l4

4449

s917

6011

6047

7888

7957

1f§§§. 1?8%6!

5077

144
668

S195
6926

5232
6956

13288

4038

4140

6210

6254

Bl168

gaoe4

882
23938
13338

6140

7229

8099

8843
4974#
4001

72304

7367

S108#
533
7022

5138
5341
7254

6110%
§357
7570

9861
5103

bb22¥
553
7913

3876
5109

7177%

7739%

B8075%
6165
8474

4220

Yeee

6328

6364

6457

6521

6563

6658

6741

6819

8293

8341

8403

8449

85i

8574

8643

8691

7430

4524
7443

4501

b426%

4571

7545

S396
7615

5728
7665

5782
7763

5873
7832

B842S®

7067
8761

B779%x
6487
8821

7159

800S

9300

CZREHED UNIBUS RK& DR PRT!
CZReHE.P11
25-JAN-78 12:00

MACY11l

30A(1052)

25-JAN-78

MO3

12:08

PAGE 246

SEQ J245

CROSS REFERENCE TRBLE -- USER SYMBOLS

CFMT
= 010000
CHKFLG
001466

CHKMSG

044252

CKCERR
045012
CKSWR = 104407
CLEAR = 000005

047302
047206
0O47246
043076
001000
001372
00001S

CRLF
= 000200
CTO0
= 004000
CYLADD
001364

CYLDIF

97408
83144

4672%

Pt Pt Pt e

CLKOF
CLKON
CLOCK
CLRFLG
OE
=
COUNT
R
=

10184
11013
11074
11140

CYLINV

042164

DRTAI
DATCMD

001450
043472

DF10

9743x

10958
11039
11093
111eM

4639

4868

4932

S016

s072

5822
8149

5965
8274

6190
8499

6191
8624

482
9475#%

sea?
6708
gy77%

4E3*

JHEU#H

7782
9466

6045

6208

2602
2739
3139

2608
2744
11939

3566

3029
3264
3571

6276
8815

001444
001446

=
=
=
=

100000
000020
020C00
177570
003434
= 000400
003432
066744

067070

067110

5446

5415

9489%
8733#

9460%

9490%

5722

5835

5865

5972

7613

7830

5780

£870

4549

4568

4475
3788%

4483
8914

2289
3822%

2579
e’19
3064

3742
4009

2585
2724
3069

2626
2999
3164

2b3l
3004
3169

3626
11997

11388+

3379

DF12

9741x

10954
11034
11081
11157

001362

DARTRAO
D~TRA01

4739%

10952
11028
11087
111S4

11628
10184

4344

H713%

10944
11024
11082
11150

11622
10155
9304

g8l

DCK
DCLG
DCPAR
DDISP
DDPCH
DT
DOUMP

4686%

10194
11020
11079
11146

3400

Q4EI¥

Q4ESE

S4S1

9493*

53915

6008

4213
4510

4518

2591
2729
3074

2536
2734
3109

7955

2636
3014
3174

340S

Bibb

2bMl
3019
3184

3470

8egl

267
3024
3e59

6519

8516

7595

479

9480*

S819
8118
94B85#*

5962
8243
3486*

9487%

6816

71586

7301

ebl4
2749

2704
2934

2804
3079
3298
3576

2979

3124
3329
3611

NOJ3

CZREHEO UNIBUS RK& DR PRT1
CZR&HE.P11
25-JAN-78 12:00

PAGE 247
12:08_
MACY11l 30R(1052)
25-JAN-78
CROSS REFERENCE TARBLE -- USER SYMBOLS

DF 14
DF 1S
DF16
DF1?
DFe
DF20

12008+s
3199

DF2l
OFee

067274
067314

DFa3
DF3

067350
067004

DFS
DFe

067024
067044

DFY4

3224

3334

120184

2784
2879
3034
3279
3505
294y

2774
3560

wwnhn
nN.c—o00
W)
NLODL

067134
067154
067174
067214
066760
067240

SEQ 0246

e84
2904
3144
3309
3525

2829
2914
3149
3430
3530

353S

3054

305

3089

3410

3415

320

3425

2680
2857
3584
12085

2686
e882
3599

697
2907
116418

2702
e93e
11950

067010

DH1

063767

DH10
DH11
DH12
DH13

064250
oe427?
064336
064377

064446

2987

3002

3087

3092

338c

3387

DHib
DH17

064476
064540

3644
3297

11700
3302

3307

3312

3317

3322

DH18

064560

11709
11992

12003

12012

12022

12031

12042

DH20
DH21
DHee
DHe3
DH2S

064620
064647
064675
064723
064744

DH26
DH28
DHe9
DH3

064763
065007
065017
064054

DH30
DH32
DH33

065027
065055
065102

DH34
DH3S
DH36

DH3?7

E_J

064601
064004

NUNOWEON \);N\nnm

DH19
DH2

DH1Y4

116738

geSlee
065146
065174

065217

065263

3157

11719
3483

3488

3513

3518

11723%

3042

3047

3052

3057

3252

3257

3262

3347

3393

3327

3332

11733

11972

11983

11994

12008

12014

12024

12033

12044

12058

3478

3503

3508

3543

3548

3594

11741»

3267

11749

3162

3167

3172

3564

11771%

CZREHED UNIBUS_RK& DR PRT1
CZR6HE.P11
25-JAN-78 12:00

DH39

065301

DH41
DHuYe

065364
06540S

DH40

3222

3493

3498

3533

3538

3553

3558

3282

3287

3292

3398

3574

11783

3362

3277
11786%
11792#

065673

118198

11948

3418

3423

3428

3433

3438

064160

cb4y

2669

2807
3609

116678

6532

065330

DH4YY

065445

DHYS
DH46
DH48

06551S
065574
065641

DHS1
DHS2
DHS3
DHE

065747
065776
66026
gb4125

DHS

o64204

DH49

DHS8
DI

= 040000

3217

BO4

MACY11l 30R(10S2)
25-JAN-78
12:08
PAGE 248
CROSS REFERENCE TABLE -- USER SYMBOLS

117788

327¢
3352

3177
3212
3403

12010

11799s
11807#
3408

11774

3443

3448

3453

11814s

7454

7626

7843

7968

8179

4876

4909

4987

s024

5065

12038
3413

3127
1183.%
3337
116588

3132
12062
11835Ss
11979

11827

egle

2817

2822

133cs

3589

cey9

c2bs4

2659

2664

esa?

2982

3569

11663#

DISPLA
001142
DISPRE
000174
OLT
= 100000

22898
14788
éggél

J74ex*
3750
ggga

3750%

100S7%

10079%

5928

6057

6221

6374

DL
DMD

3997
13924

4110

91728

9175

4285

Yy 16

4593

Y647

Y2775

4839

sg8l
69354
7868

5337

BlIS
7061
7999
8782

ble8
7084
8080
88eY4

gaus
7201
8127
8830

gi23
7257
g8e04
90284

B30
7361
g8ese
9327

pss7
7424
8335
9848

bR3s
7520
8397
3864

BbBR
7573
8430
9879

73
7659
8477

3865%

4616

394e2x
3838

3949%
3944

3966
3983

3981%
4096

4011%
8352

4030

Y4134%

4200

8870

8969

4004
3838%

4117
4205

Haa23#

2288

3741

4036
2578

4138
2584

4se1l
595

2601

2607

2613

2619

2. 25

2630

DOCMD

DOSEEK
DOTIM

044220
= 000040

043434

5147

8685

7916
8755

13748

4044

036370
003470

8057
255.3

DROY
= 000200
DRIVS
003442
DRIVO
003444
DRIVl
003446
DRIV
003450
DRIV3
003452
DRIVY
003454
DRIVS
003456
DRIVE
003460
DRIVZ?
003462
DROT
= 000040
DRPAR = 000010

13818
25358
2S40s
cS4ls
asuece
25438

DRA

DRVMSK=
DRVPTR
DSC
=
DSWR
=
DTE
=
DIYE
=
DT1

000001

000007
001346
040000
177570
010000
000040
066076

5138

2544
2545
cesu46s
25474
13798
135848
1338
23898
13858
11908
13678
13608
2s7¢

8059
3856%

Se3s

4147

5274

4486
2590

5338

S344

S390

Syey

SSiY4

5533

558

5086

5629

6910
7744
8554

263S

cOo4
D710

8}{5

3600
3585

066430

822353

3338
B
28
gHBH

DT14
D715

DTY4

D76
17
18
DT9
D.ACLO=

066560

263

066650

066136

D.BRHM= 000100

11860%
11868#
3388
11884s

Se4y
6020
6825

Sas84
6119
6316

Sevy

sesy

)

6316

6020
7748
8456
14098

D.D00R= 000200

D.DROT= 020000
0.D0SC = 040000
D.FLT =
D.FORM=
D.FWD =
D.HDFL=

000200
001000
002000
000200

3620

3625

3650

3655

3661

11845H

M
538

%
GBI

7
EW
33

7%M
3%

B3
383

8e
430

8
E
g

82
om
348

2833
&R
PR

2838
%
®/

2843
8y
BN
3ises

gggg

303

3499

119014

758

o943

30S3

3058

3088

3093

3409

3414

3419

3424

3449

3454

118S2s

4703

4730

4853

488S

491S

S001

8208

8231

3474

11876#

4607

4627

4656

8433
6177
6969

5520
6264
7002

5542
6337
2034

5573
6440
7205

S403

c433

5520

Ssuye

5573

S606

S638

5737

5803

5891

6938

6969

002

7034

72058

7236

7266

7313

7524

7552

7872
8581
4627

6177

7748
8456
14068

7770
8486
4321

7800
8558
4324

7872
8581
4605

594S

6018

6117

7580
8432

7746
8454

5518
462
S50

14088

4625

7895
8611
4656

264

7925
8803
4703

8084

4730

6440

S606
6464
7236
8106
4853

bY6Y

5638
6499
7266
8136
4885

6499

5737
6574
7313

491S

6574

6639

sele

S891
6665
7552

5947
66935
7582

S033

sele

6665

6695

8261

8434

S947
758¢c

8084

8106

8136

8208

823!

8261

8434

5542
6337

8573
6440

4730

4853

5606
6464

4885

49i1S

S001

5033

seie

7895
8611
4625

7925
8803
4654

8084

8106

8136

6145

617

cebe

4701
5540

6335

4728
5571

6438

4851
5604

7768
8484

7798
8556

7870
8579

7893
8609

7383
8801

7203

8082

7234

S540
6497
7580

S604
6572
7768

S636
663
798

5735
6693
7893

5801
6823
7923

889
6914
8104

4607

6938
5278

6914

4654

8801

4627

6969
s401

6336
4744

866;

4S5

4656

5520
bebY

7002

S431

696

4851

4703

72034

5518

000

4883

7205

7032

4913

7236

4999

S638
6499

7266

5737
6574

803
6639

5891
6665

5947
66935

8208

8e31

826l

8434

4883
5636

4913
5735

4999
5801

7313

6663

8104

8134

8206

8229

8259

sa4e

sezs

5401

5031

5210

5945
6336
8134

6018
7000
8229

4913

4999

5210

5278

S401

7768

7893

5518

5571

14358
14108
14258
14494

4562
5883
4677

4914
5939
4691

5283

6519

§572

6918

6968

8790

8802

4718

4730

6118

6639

7208

7748

8084

7550

5031
889

6637

4851

7234

7582

657¢

7264

69.4

7000

7552

6497

888?

6967

7524

6462

8609

4625

S001

3544

7925
8803
451S

8579
14418
14158

g;gg

5803
6639
7524

S033

5403
6147
6938

5433
6177

5431
6335
7311

3539

M6l

S403
6147

eg8e3

3534

segy
6119

Seve

3529

3394

6147

6916

3524

3293

6119

6825

3519

3268

7800
8558
4607

4326

3514

11924s

3253

3509

sEEd

2808

7770
8486
4326

14228

3504

7872
gs8l
4480

6693

4326

3618

7800
8s
Y472

5210

D.DRODY= 000200

2768

3610

7770
8486
4249

S244
6020

D.DRR = 000040

208

3083
3c28
3383
3580
14348

7748
8456
14238

0.00T = 000400

ggga

2798

14218

D.CART= 000400

oo
oms
5223

2793

2763

066204
066250
066316
066364
000100

3605
11892#

8104

7311

614S
7032
82s9
S604

8229

8558

7522

7550

6175
7234
84Sy

6262
7264
8484

6145

6262

8454

8579

CZRBHED UNIBUS RK6 DR PRTI

CZRBHE.P11

25-JAN-78 12:00

MACY11l

30A(1052)

@25-JAN-78

DO4

12:08

PAGE 2S0

gi?gggi 888848

2388

892

339

esce

esae

0.LIMD= 020000
8.L090=
.HH8 =
0. NMOV=
D.OFF =
D.PAR =
001000
0.PIP = 020000

14558
14278
14508
14548
14118
14378
14148
8206
14538
1433.
14288

5574
3566

5582

6970

6978

9532

5574

6970

4546

w;eg

4914

ssxg

611

6438

6637

4788
47

5573
4730

6440
4a44

6969
4932

7524
5203

7872
B43Y

wres

. ILF = 000400

D.PLO = 004000
B.R V = quggg
'RYZ =
@20

D'SECTz 080020
B:2Fin: 875358
.

D.SPLS= 010000
D.SPOK= 001000

D.SSP

000020

14368

{336.
1439

5
3683

14408
14248

4627

]

5210
5945

S403
6147
6938
7800
8558

D.UNLD= 0400060
C.UNS = 040000
D.vv
= 000100

D.WCUR=
D.WGAT=
D.WLE =
D.WRL =
D.XERR=
ECCW
=
ECH
=
EMTVEC=
EMI
EMIO
EMLL

000040
000100
004000
004000
001000
020000
000.00
000030
0S6744
057521
057564

5242
6018

Y72
8556

557
3208

5278
6117

5571
8793

69
558

8802
BB

5431
6175

S518
6262

5540
6335

4703

4730

4853

488%

48s3

4885

S520
626M
700
789
8611

SSye
6337
7034
7925
8803

5573
6440
7885
8084
9582

S403
6147

5433
6177

5520
6ebY4

S542
6337

5573
6440

80
8558
1422.
14528

g’2
8581

7895
861l

7925
8803

8084

5565

5573

6961

6969

14198

14298
14428
14078

4627

99 9

4319

4656

2002

Y324

4999
S801
6637

5031
5889
6663

sel10
S345
6693

14484
14398
14128
14S18
1400
13618
12798
8978
260S
ebll

3725%
111648
112304
112368

3726%

8328
14478

@339

Gaaz

6915

5401
6145

5433
6177
99 9
872
8581

D.SUNS= 040000
D.TIB = 002000

4701
8432

SEQ 0249

CROSS REFERENCE TRBLE -- USER SYMBO.S

4703

72034

4406

Sede
6018
6823

6use

4730

720S

4419

5278
6117
6914

Bugy

5606
6464
7236
8106

Se06
b4bY

7236

8106

4605

S401
614S
6936

Gose

S638
6499
7266
8136

5638
6499
7266
8136

4625

5431
6175
6967

8579

7522

7746

7870

8082

CZR6EHEQ UNIBUS RK& DR PRT]
CZRBEME.P11
25-JAN-78 12:00

MARCY11

EQ4

30A(10S2)
25-JAN-78
12:08
PARGE 2S1
CROSS REFERENCE TABLE -- USER SYMBOLS

SEQ 02Ss0

3126

318l

3216

3326

2956

3031

3141

3231

3271

2941

291

3036

3146

3236

3276

2946
11270%

3041

3086

309

3151

3241

3281

2951

3046

3091

3156

3246

3286

3442

EMI2

057630

2966

2971

2976

2981

2986

2996

3021

3101

EMI3
EMIY
EMLS
EMIE

057661
057703
057730
057762

2801
112518

2851

3001

3026

3131

3161

3402

11247#

2916

EM1Y

060041

EM2
EM20

057016
060056

871
3537

2896
3547

2886
112648
289l
112678
2321
3628

2936

060024

2861
3542
2866

e9ll

EM1B

2831
3532
2836

EM21
EM22
EM23
EM2Y
EM2S
EM26

060073
06011S
060154
060234
060260
060306

2876
3527
3256

2901
3633
3296

2926
112738
3331

11276

3251

3346

3381

339

3452

113548

3291
3051

3386
3186

3447
3201

113668
3311

3552

113738

3206

11378s

4 ®ss

3522

11332s

. X

L X X

SO
QWQNF-U(’DNNIUO\'G‘g
U‘JIUHNNOHSDg
sNe (‘J.u:

Pt bt e Bt
et s e (ot ot B

061174
061235
061265
061314
061350
061471
061504
061517
061532
057266
061620
061671
061771
062030
062061
0eel 14
062147
oe2172
062226

061146

Bmapt bt

EM4]
EM42
EM43
EMYY
EMYS
EM4E
EMN?
EM48
EMY9
EMS
EMSO
EMS]
EMSE
EMS3
EMSY
EMSS
EMSH
EMS?
EMS8

EMH40

061040
061111l
0S71S3

0610

EM38
EM39
EMY

EM3?7

e
e e

0604
05710S
060474
060S2s
060552
060577
060634
06066
060740

EM2Y
EM3
EM30
EM31
EM32
EM33
EM3Y
EM3S
EM36

Pt e

0603
060347

350¢e

o bt e Pnn s e B

EM2?7
EmM28

112602

060007

Dt §=0 Bt Bt ot s Pt Gt e () e () (a) () 9= B0 pe
[RTAT Y ATATH TTOT ST R T ot Sy SrEr G T G air N
LLLrLLLELLLONLE Q0L
WWONO-- 0O
NWWW
£ W
WWWwWwhnn
N nLwwnnomLt WO
DU
J00
ono
—0 O -0
W—
WL
oL

EML?7

CZRBHED UNIBUS RK& DR _PRT]

MACY1l

EMSS
EME
EME0

062274
057307
062325

3136
€582
3166

11486#%
1120Ss
11491s

EME3
EMBN
EMES
EMEE
EME7

062415
062436
06246S
0625
062541

3191
2806
326
3316
3261

11501
11504#
11508%
11S11s
11516

EME9
EM?
EM?0

062637
057330
062657

3351
2588
3608

115288
11208s
3613

EM72
EM73
EM7Y
EM?S
EM76
EM?7
EM78

062713
062740
062761
30
30
0630SS
063103

3211
3648
3397
3407
3417
3467
3472

0S7417
063211
063241
063267
063314
063354
3404
063435

2593
3563
3568
3573
3578
3588
3121
3649

llgiss
11570s
11575
11579
3583
3533
11593%
3654

063547

2991

11611s

0S74s1

2599

lice3s

CZREHE.P11

EmMel

EM68

EM?71

EM?79

gvg
EMB0
EM8
EMS
EMB3
EMBY
EMBS
EMB6

062361

0626

062672

063170

EM8?7

063522

EMB9I

063640

EMB8

EMS

EMS0

063743

ERRVEC= 000004
ESEC

E.ROD

001404

003412

25-JAN-78 12:00

3171

3321

3371

3653

3336
3006
3106

12728

PAGE 252

SEQ 02si

1149648

3376

11533

1152

3618

3623

11S31s

115364
11540s
11543
11547%
115S1s
11554s
115584

11567

3351

Poe

11583s
11589
3660

116078

11598

llbecs
11634s

3739

3740%

37S1#

10019%

10021%

eS1le
S210%
S94Sk
6693#
7580#%

H321%
S24e®
H0IB%
rxl
Ho#

H324®
S27B8x
6117%
9148
7684

4605
SH401s
614SH
936%
7798%

S469%

1?:3:*
N326%

S470%

8484#

3759%

3772%

3773%

3641s

384YS¥

38Sex

3890

3908#

4ESHE
5518%
H262%
72000%
7893%

4701¥
SS4O¥
B33ISH
7032%
7923%

4728%
SS571%
H43B®
7203%
8082%

4B8S1x
SEO4®
b4be*
7234%
B8i04%

4BB3®
Se3b#
BY97%
7264%
Bl34*

H913%
S573S%
b572%
7311%
B8206%

4999%
S80Llx
6637%
7522%
B229%

SQO31#x
S889#
bbb
7550#
B2S59#

4BS3%¥

488S*

SO0l®

5033

S4B80

11860

B8SS6®

BS79%

B609%

B8801%#

4627%

4ESE®

4703%

4730%

462SH
S431s
B17S%
£967»
7870%

9195%

9199%

25138

S244s
6020%
6825#%

S2B4#
6119%
916%

S403%
H147%
6£938%

S43I3Ik
H177%
6369%

G520
b2b4#
7002%

SS42E
6337#
7034%

B4YBH®
4328%

BSSBx
4629%

BS8Ix
4HE58%

B6lls
4BSSH

7925%

B8803%
4887#

8084*

8l106%

8l36%

0034ee

B4Shbs
25158

8263®

B4SBx

B4YBB®

B5B83%

B86I13%

9197%

9211}

9213%

11912

770%

4607

3758%

10024#

003416

77468%

E.AR2

12:08

CROSS REFERENCE TRBLE -- USER SYMBOLS

IOOIg

24088

FOY4

25-JAN-78

39309#

1?3?5'
E.Al

30AR(10S2)

7800%

7872%

7895%

6573%
6HMO*
7205%

9196
H917%

Se06¥
BHEH®
7236%

9207
4O18%

5638%
BH99®
7266%

9209
N919%
89

9203

4915

5737%
BS74E
7313#

B208%

9254
H4920%
9

119a4

9205%

9234

5803%
BEIIX
752“:

S891%
bEESH
ggS?i

11901
4921

11912
4922

8231

Gl%

11901

S2l2x

S947»
H6ISH
7582#%

BY3I4#

11924
S003#

CZRBEHEO UNIBUS_RK& DR _PRTI
CZREHE.P1}
25-JAN-78 12:00
.R3
.80

003426
003414

Sgl?o
128
543
5946%

?g %
1%

E.Bl

003420

E.B2

003424

433#%

Si4s
Se4S#
3%
Yor6826#%
7749%
84S7#%
25168
5908{

30A(1052)

338

%
4606

So8l#x
6019%

5957+
5327
2123
6917#

72771%

E.B3

o
96835
HO4#

148#%
939
80)#
8S59*

g802x

O44140

FC
FCP1
FHOHM

012072
012074
046336

FHOTAB
FLGTST
FLIM

046534
047000
046260

FMTE
=
FMT1
FNSee
FORM
FORMAT
FRCYL

000020
001440
045640
031342
001436
0013S0

4659:

Y655%

Bi7Es
535%:
"289:
Z?ié.

25&3:

Y4729%

E336%
7833

4852%

g5afs

4BBYE

HIlYs

503

g9dfs

B8105#%

813CH

7265#

7884!

7235%

Ys
gigc:

4BB6*
ZBAd:

47?21
BRE.

7803#%

8109%

8139%

8234+

N857

72378

7003%
7896#

7267%

S000%

S032%

S211#

géh

6108%

B424%

6620%

?31;l

7523%

75S51#

7314:

Bblew

HB&B:

293

B84l

9225%

119}2

2co0e
S30as

BEEIE
3859x

Se0?7

£359

7773%

Y702#

SEQ 02%2

42
140%

6561
Beee
8061

720 *
8235%

g3gl
B2bS#

6995
7065
8447

7098
7227
8572

B884S
7365
8689

S160%

Sl61

5163

B41l%

BY22

8550

7291

096412

= 000001

045074

9609#%

9614

7143!

7175%
Sll
7506
8274
11892
4112

7353%

8201
11876
4103

043530
043576
046460
Fso2e
045554
FTITLE
001344
GBR
043336
GDRVS
043176
GINT
043364
T REEERE
GNS

GSTRART

970%
873%
8582#

6455
8097
g0l2
8062
9554
7170

FRDY
FRDY1
FSPOK

2i%es
8335r
EgA
21308

11924
9199

012070
O44044

FRTTE

4626#

426 %

003430

£.0DT
FRTTY

FLORD

S283#
6l18#

46304%

6340%

GO4

25-JAN-78
12:08
PAGE 253
CROSS REFERENCE TRBLE -- USER SYMBOLS

MACY11l

607
118

964

7639%

7725#

4503

303!

8286

8312

7736

7864

9054#

7938
8551

7950
8624

10932

10933

10934

1093S

4717

4743

1739

4843

7865

7976
8636

9057

9587

3005#
10922
4318
4867

4340
499]

10923

10924

10825

10826

4372

4405

4447

4561

5015

5202

5226

8307

10928

10930

10831

4596

4676

4690

5352

5Sel

5620

s7e7

5752

5,95

s8ls8

CZREHED UNIBUS RK& DR PRTI!

CZREHE.P11

25-JAN-78 12:00
872
016
gégg

GSTRT]

Qu4S130

GSTAT2

9193

04S360

9341

GTSWR = 68440
HASOF
33

HBA

003330

HCS1

HDRA
ngg
HBs

6059
7537
93244

9349

9357

9364

93738

9089%

9109
11849

11849
11857

728

9336

Seb4#

60444

39;4*
4571
S197»

§724#%

6047

3993
4592%
4%
6llyx

6364

69?8!

6457

6489%

8684#
9304

591
326#

g?;ql
373

8761
9374®

gg??.

003332
0033:3
883338

6010
7456
9163

329 »*
456
SlYy6#®

11878

003324

11886

140:0

11894

1?0;3

11905

1?0:6

6376
7970
9459

6433
8181
947y

6478
8306
9531

6534
8531
3548

6818
8656
9565

6957
8838
9581

11857
11865

11865
11873

11873
11881

11881
11889

11889
11897

11897
11908

11908
11920

11920
11933

11933

§779%

5782

5869%

5873

5880%

5936

6007

HOOé
Yo4b#
527 3%
géwg

18%

879%1
Q3

11917

1?0;8

001470
0014EM

HERD

001430

24238

24258

5827
7174%
9601

9601x

9602%

5828%
7196%

5833
7197

5705%
9%76

5717

c844%
7198%

9604*

5718%

5845
7292

61678
6521

Hég?l
4838#%
5343
gg07!

So%

Hégg
Y
*
S3u9%
sgl

656

Y11y
4908%
5396

YoB84
4ag6#
SHe3x

S914#»

441S%
S023#
251 *

Y449
SO64#%
5532#

yse4
S085#*
SE57%»
g 61%

47 %

6254

2334!

S;SB

634#

6678

685

829%
B47%

9028%
9863%

9029
9878%

9039%
11846

9040
11854

9086%
11862

9300
11870

1?1;3

l?l%g

1?143

1?%52

1?3?;

1?332

9087%

9309

11930

1187
1187
LAETR
B3,

BR%R

11339 1188§
11889 11897
'4B9R. 1B
7149
7
ML,
I8

5720

S761%

5762

960S*

6001*
7293

llggl
1188
AETR

Je06%

6318
7294%

7144x
7331%

71S1®
7332

5774%

7152
7338

11933
11
R

eas2

11mee

5775

S776%

7163%
7340%

7166%
741S%

1?8??

1?%38

5258

5321

95i8%

9519%

9092*

11846

11854

11862

11870

11878

11886

HMR 1

003346

24868

909S»*

11846

11854

11862

11870

11878

11886

11894

11305

11917

11930

ggfl

566

gsgé

0033s2

11846
24888

0033s0

HMR3
HOLD

043664

54878

B?gé

)

9360
9058

:903

90%3!

11854
4546

9367
9062

:;68

9078%

11862
4562

9406

90868

:;13

909%#*

11870
4565

9475
9337

:333

9343

:383

93S1

11878
S353

11886
8787

11846

11865

11873

9532

4419

gggg

11894
8790

9521#

S765%

9
B39

119e
11
HEER

1?;82.

4sel

9520%

9613

11908
11908
1@

003336

4486

HH?E

2326

4380

4537

4355

9397

11854

1190S
8839

11862

11917
S074%

11930
S079%

11878

11886

11894

11881

11889

11897

11908

119e0

11933

11870

9097%

934N

HPART

003356

24308

9099%

11849

11857

HPOS

0033s4

e4898
11828

9098

10153

11849

11857

11865

11873

11881

11889

11897

11908

11920

11933

24788

9088x%

11849

11857

11865

11873

11881

11889

11897

11908

11920

11933

HPEN
HPEND

HYRC

HWC

050006
003310

= 000011
=

000400

003326

7389
24588

13638

7467
3835%

9905
7344

10194

7348%

9859*

882 3#
S

001432

HMR2

4348

S5716®

9603*

4106%
Y774%
8337%

HEADR

HER

e4a4s

SEQ 0253

6327
7845
q40s

HDOTAB
HDWD

001434

PRGE 254

223
628
9394

58 # 11849 1185
1186
4% * 1184
11857 118
3034
T4
ST SRy
llssgi 1199: II;DS. 14356 119;9
gy 2ahd. et 23l BZL

HD1

Eqéal
2:83.L
Sugie

12:08

961
303
9159

24768
454
S110%

56284

HCS2

5330
7158
9139

lgesgo
093#%

6011

HOY

@25-JAN-78

CROSS REFERENCE TARBLE -- USER SYMBOLS

2983
4838

24798

D03322

MACY1l 30A(1052)

9906

Liere
5826%

7167

7416
11894

Hggg

869

93se

1130S

9743
11927
11927

NNOO

—

4739
1
1
e

11927
11301

11915

11927

6952

7074

7334

7506

6288

5293#%

8363%

7123

1
&
2
e

—

Y Sy

4713

)
OOD

9366%
9359#%
9485

SEQ 02S4

Ll
DOoWD

4686

001370

104

12:08
PRGE 255
25-JAN-78
CROSS REFERENCE TRBLE -- USER SYMBO.S

30fl(1052)

ol N S

MACY11

r T ITITITIXIIXX
(@] 002ZMO:
N

CZR&HEO UNIBUS RK& DR PRTI
CZRBHE. P11
25-JAN-78 12:00

TVEC

LPFLG

8318

MasSK
MASK1
MC
MCLK
MCl

8394

8411

5673%

6282

7383
804e2®

7397
B357

9491
9486

9499

3688%

3692+

10958
11039
11093
111eM

7H03%

)
£—-0O0
N0
oouwn

10954
11034
11091
11157

[t
Y Y

LIMERR
LKS

7672

g4le
8770
Pt bt Pt e )
o—00
o]
L+ o]

003464
0l120Se
012056
001330
oooo1le

Pt Pt Pt Pums

LCLKF
LCM1
LCP]
LCVEC
LF

012054

8368#

7475+#

8373%

6597#%
7480%
8378%

6602#
7681
8707

7689+

7190

7219

7327

7502

80S6

7409%

6592

6757

8713#%

3673

110648

0Se1S3

Ya24

1109is

3678%

3683#%

Ja4

CZREHEC UNIBUS RKE& DR _PRTI
CZRBHE .P11
2S-JAN-78 12:00

MACY1l 30R(10S2)
25-JAN-78
12:08 PAGE 2%6
CROSS REFERENCE TABLE -- USER SYMBOLS

MSGl8

056235

MSG19
MSGe

0S6271
0SSs40S
0S6321

5785
6524
8183

MSG20
MSG2l
MSGee
MSG23
MSG3
MSGH

0S6M470
0S6SSO
66
0Ss466
055520

MSGS
MSGEe
MSG?7

055546
055573
0SSe11

MSG74
MSG?7S
MSG76
MSG?7

MSG8

MSG9
MSP_
=
MULTE
M.ALGN=
M.DRV =
M.HERD=
M.ID
=
M.PRR_=
M.SECT=
M.SER =

NED

s731
6378
8171
Y202
3789
7125

7504
7501
4968
3805
3807

3809
9966
3824

11105
11024s
11110s

11146
11150%
111548
11157

055704
000100
O4716M
040000
000007
007000
000003
100000
000760
077770

4963
1393#
3694
146648
14608
1468%
14658
14698
14678
14618

11060%

= 010000

NXF
= 000004
OFFSET= 000015
OFST
= 0000

067736

4970

13488

9782
9407

9509

4046

4058

41818

B872

12226%

12277#%

12279%

12321
12507
122728
12220
12490
12492
12237
12565
12504
12512

123624
lgSUB
12325
12485%
124938
12499
12483s
ISS?H
12513s
12521

0.CLGL
0.CLGT=
0.CLS1
0.CR
O0.CRET

070304
000014
Q071712
071756
(070416

12295
12309
12632
12641
12316

12297
126748
12634s
12643
12345s

12338

6014
7458
8646

6050
7618
8658

6061
7630
11100

4149

4152

3309

12449

12450%

12488%

12503

12520

12711

l24l2

1e4le

l1eSal

125648

9519

070462
071754
070170
0zllee
071156
071.74
Q71112
072003
071256
071316

071466

932
7446
8533

9720s

0.BRCK
0.8D
0.BKPT
0.8K1
0.BKe
0.8K3
0.BRK
0.8UF
V.82
0.83

0.CROV

5920
7307
g8s2i

110SS»

13478
4072

1357%
1315#»
13768

5876
7162
8308

11047s
11050s

9839
9841
9891
989%

055646

5797
6536
8296

11128
111368
11140s
11034s
11039s
110438

0S6640
0S6667
056711
0S6727

NEM
= Q04000
NUDRV
011520

0.ADR1

SEQ 0ets

12355

126564

12579

126848

12378

12382

12644

126584

1230Ss

6213
7835

6225
7847

6331
7960

Py
7972

CZREHED UNIBUS RKe& DR _PRT]
CZRBHE.P11
25-JAN-78 12:00

MACY1l

12506

e e Bt Bt Bt Pt (s ot § 4 s Pt s B Pt Pt o §
)

KO4

12:08_PRGE 257
25-JAN-78
CROSS REFERENCE TRBLE -- USER SYMBOLS

30A(10S2)

12550

12641

12347

12398

12523

12310

12335

12393

12636

12590

12606

12545

12712

335

12596

12467%

12516%

126508

12553

12555

12557%

12445

12471

12473

12527
125418
12486

126498

12674
12327

"UNNNNNN&NNNNNNN
WL
LL
L WWWWWwNWWww

Pt Pons Gt et et Gt Bt Pt Gt s (s Pt Pt ot Gt Pt e Pt s Pt P P P

n
£

S5Y

NNV
NDIVY

st P Pt s Pt s Pt Pt Pt et

st P Pt P P P
P Pt Bt Pt Pt Pt Bt Pt ot Pt et et Pt Pt s P P St Bt Pt Pt P Pt Pt

12587

U
NNNNNNNNNR}NNNNNNNN
n

Do B P

070756

SEQ J2S6

2sse

2328

4608

ceen

Y74%

12397
12693

12704

12364

12465
12493

127038

12550
12304

12587

12blls

LO4

PACK

PARAM

7174
7005
= 000003

PARSRT
PAT
=
PCA
=
PCO
=
PCLKF
PCVEC
PCYL
PFSRT
PGE
=
PIP
=
PIRQ
=
PIRQVE=
PKRB
PKS
PKSB

PPTP
PRGSRT
PRO
=
PR1
=
PR2
=

PR3
PRY
PRS
PR
PR

PS
PSEC
PSW

=
=
=
=
=
=

001336

006774
000020
004000
010000
003466
001332
001356
012170
002000
020000
17777¢
000240
001324
001320
1322

003440
007134
000000
000040
000100

000140
000200
000240
80030
00034

177776
001402
= 177776

12s11

12351
12544#

12362
12551

12628#
12558%

126768

12682

12237#%
12607

12645

{5663,

e Pt Bt Pt Bt Pt

n
n
WWO
L Lr—MN)r—
n
VW=
= O - D+ OO® n
=
| X
¥ 3
= X

0. XXX
0.45

st Pt

12611

12617

12500

12S02%

127010

12484+

j2uSl

12511%

127028

3802

o Pt

BBEER

12478

SEQ 0257

s P

070364
070410
070372
070550

3. kbas

UMMM
M NIV
NN

0.WRD
0.WRDR
0.WRD1
0.WwSCH

121958

KKk

000020
8717 Y
071676
177564
177566
87 77
0701
00001Y4
?IE;H
21674
71654
067742
067722
067704
067720
067724
07055
0;0570

sEs

0.78T =
8 TE
TCLS
0.TCSR=
0.70B =
8.Tk
.JRTC
0.TVEC=
0.TYPE
Q0.JYP
0.TYP
O0.UIN
0.UPC
0.URQ
0.USP
0.UST
0.WDS_
8.“05%

Pt Pt ot ot

CZRE HEO UNIBUS RK& DR _PRT1
25-JAN-78 12:00
CZRBHE.P11

it Pt Pt Pt Pt o B ot Pt

PAGE 258
12:08
25-JAN-78
MACY1l 30A(10Se)
CROSS REFERENCE TRBLE -- USER SYMBOLS

12358
126488

3671

3676

3681%

3686%

3690

4906

S0sY

Ss100

5511

6307

9730

9751

SOb3*

S104

3853

q73S#

Q75S*

3679
3885

3684

3683

3693

3765

3909

9988

9989

5469

S471%

443

9446

S109#

8979

11860

CZR6HED UNIBUS RKBE DR PRT!

CZREHE .P11

2S-JAN-78 12:00

PWRVEC= QO
puevEe=
gop0as
RCYLD

033864

SEede,” o]0
=

788

1‘3276

MACYL11l 30A(10S2)

@5-JAN-78

MO4

12:08

PRAGE 259

729%

19;95.

3730%

9978%

—

9987%

9988%

RDCYLD
045730
RDDATA= 00002

5076
13178

S126
6815

S132

5137

4yses

RDHERD= 000025

ég{g.

ggzg

5914

6044

6207

6361

ROLIN = 104411
RDOCT = 104412

8947
8932

10670
900S

1093cs
10933

RgY

13258

9054

3069

944

3445

96932

5197

5337

9
gwés

969
§Sll

9128

9154

RDGARTE=

ROSEC

1000

045504

= Sgggog

RECAL =

sgssigz 184414

EGng ) ggggég
RKASOF= 000016

RKBR

= 8 0ogY4
000000

1402

4o4s
13148

107;0.

égsgl
ESHS
8312

12968

lsgét
1
»

SEQ 0258

CROSS REFERENCE TRBLE -- USER SYMBOLS

42l

4838

10800

q?%g.
S4Y4
8514

3899

gggg

r ol

4986

1093Ss

8
;qgg
8537
9093

g?sql
9

RKCS1 =

49g4yx
B150s

S021#
23gar

506%:
BiS3E

riese = ooo01o

igar

dfad.

12163

8639

5883*
4108%

6518

7440

7612

7829

7954

816S

8290

6428

8823

9863

8662

o4e
634

9699

9828Y4
9701

206
851

9705

9ggg
9708

98964

11884

359
164

11892

6381
8187

6517
8289

5996%

H313%
H501x

HB09%
MHB19%

6851%
NMEYME

6£870%
HE671¥

7149%
4EB4YE

4757%

7295%

9089
4B36%

5083%
BAdAE

4499

S115%
BASTL

Sl44s
RRB3L

5195
B4RS

5232%
84381

5335%
oQGR

S341®
gged*

5357%
Geld

S42l¥
GoEEt

SS30%
a3l

£fed

B
B3
HhH

dHEL

BISEL
HL

L
BB
BB

43R

BEEL
@

MmO

RIL
B8

978

206 GEe
PE O RE

dRn

RKOA = 000O0E

5982,
e

BAGS'
¥

BaTA.
Pgr

RKo8 = bonoed

s
7838

29
7839

E5%7
784

E353
7963

eE®
7964

EB3
7965

pss
8174

oA
8175

8176

%8
8299

8300

8301

8524

6322+
7608%

6£357%
7656%

HSSH¥
774l®

Hb32®
782S%

67328
7BEME

6813
7950%

HO0B*
7996

pIS2x
8077#

7058%
Blbls

7195k
B8200%

7297%
B286%

7358%
B8332%

7517#
B34x

12948
13028
13038
12958

389
390S
3906
3898

909}
9098
9099
9032

4806%

4990x

M371%

H4404%

4SEOR

YE7S¥

4689

16%
11%

Y742x

4758%

4B4Y2*

RKDC = 000020
RKDS
=
RKECPS=
RKECPT=
RKER
=

000012
000030
000032
000014

RKMR1 = 000026

RKMR2 = 000034
RKMR3 = 000036
RKPRI
001316
RKVEC
001314

RKWC

= 000002

125?. 3383

13390

13008
13018
23718
23708

12908

3388

3303
3904
9021
3829%

3894

Gedd.
NG

ARENT
sasn

4873

BB
rven

4805* gsggl gfi?éfi S10i® S1lle® S512% S55b% 600S* 6040% blll® 6204

4339%

SOl4x

9073
9074
9009*

S715%

SO0S4»

SI00*

9078
9079

9036
3097

90l2*

9019

S86b*

5997%

S.Ol®

B314%

S5225%

6BI4x

S306#

7150%

Eg:

7296%

S619%
9162%

9088

S5751%
q340#*

SB817%
348

4BEGL#*

5960%
Q356#

CZREHEQ UNIBUS_RK& DR_PRTI1
CZR6HE.P11
25-JAN-78 12:00
RSEC

= 000010
Quelr4

SBPAR

047324

RTT
= 000006
SAVREG= 104413
SCLR

= 000040

SCOP1 = 104415
SCOP1S
SDC
=
SEC
SECFLG
SECNT
SECTOR

SEEK

= 000017

SELORV=
SETINT
SIZFLG
=
SORT
SPACE2
SRTSPL=
SRTTAB
T
STRCK

047376
xexxs U
001374
046730
001400
001406

=
=

000001
043416
003472
000002
047056
067660
000011
002100
177776
001100

13398
9284

4446
95084

9204

13418

10774
9208
3974

10934s
9212
3988

12107
3216
4101

5383

5707

5766

53906

121978
10715

3985

7818
97928
1169
24048
9619
24068
2409s

9508%

13168

4899

4977

5047

SO94

5187

5263

8279

B41S

8504

8543

8629

8773

10936#

6625

7184

S483%
5480

S904*
g406%

6033
9407%

63S0*
9408%

Q409*

94i0x

9697

9698%

S4ll*

9422

425

9443

9446

6247

6556

6634

6734

4363

4402

9S10%

9511x

9S512%

9S513%

9693%

3993
9010
3831%

4106
9019
3978

4499

4501

s880

5836

9326

3373

B8965%

B8985#*

6384
12150
4592
6070

9690
12161
Sbe4
6387

12172
7093
7

9847

7060

7200

7360

7423

7519

7658

121918
11778

12217
3694

12218%
3721

12231%
3883

12445%
3934

12471%
3986

12473%
4094

[2499%
4099

7185
15}2;

7285
8280

7499
8388

7511
8416

7601
8505

7723
8544

7730
8630

7819
8749

8308

3838

98308

3792
3804
3811
8897
4Yegl

38204%
5
38338
8902
4230

8703
13864
2ce8s

6766

Y441
5183
603S

4466
s188
6105

44932
seey
6138

yeue
5374
30

4555
5384
635e

4587
S455
6420

7743

9699%
7867

9710

9720%

7998

8079

9721

8203

'
4196

4823
gsc2
6616

4ez7

4313

4830
£697
b626

4300
5708
6620

4YS4yY

- 4557

6745
7355

6753
7371

6802
7379

8507

8546

7858
8774

7944
8868

80SY4
9290

4959
5767
633E

8066
9959

4978
5860
7122
8155
9930

4589

4771

6838
7434

6900
7513

8679

869S

36908

1188#
7350

7603

7729

974Y4x

1309
3830
25528
13568
6067
12141
13138
24498

4780
5591

7600

H740%

b6lly

4431
5095
5989

7510

H7Z14®

g557

4410
So48
5907

7284

12173
H4E687%

5513

8196
100000

8193

4829

6351

5389

6354
6987

001140

8154

6197

5273

379}

8065

4S54

6034

97688

s110

007606

SWR

4451

9228

soe4

sT12

SVvARL

9S509%

7943

Y440

9224

4908

1481
37834

007652
007704
007730
D43044
045424

7857
108936
1488
H4673%
96404
S461%
S471

4409

388

6953

007120
007536

S13
ST4
STS
STSXY
SUBCLR

4098

9220

SEQ 0259

6909

STRRT
START1

STKLMT= 177774
STOP
047500

NO4Y

MACY11l 30A(10S2)
25-JAN-78
12:08
PAGE 260
CROSS REFERENCE TARBLE -- USER SYMBOLS

38028

4787
S6b1l

10437

10520

38284
3972

4034

4315

4902
5769

7669

7677

6422
7055

esle
7071

g8ege

8329

7653

8751

3719

6772

4367

4832
5710

8765

3741%

7103

6552
7079

Y4le

4380
5862

4433

S050
5309

4443

S0%?7
5991

6567
70380

e6l18
7136

834S

8353

93888

391

9832

8407

3743

3749%

3756%

4800

8776

7404

7732

7410

7821

7476

6628
72187
7860

384Y

7481

4468

449y

S190
6037

Sebb
6106

7946

7993

6729
7287
8418
4805

7690

5674

7696

5376
6200
8009

6289

8028

5386
6244

8017

8632
6294

8033

S457
6258
8068

6598

8038

SS0o4
6308

8157

6603

8043

CZRBEHEO UNIBUS RK& DR_PRT]1
CZRBHE.P11
25-JAN-78 12:00
8364

SWREG
SWTIST

000176
047430

9792
1oggg.
1
476S

000002
000004
000010
000020

12308
12298
12288
12278

SKO
SWO0

= 000001
= 000001

SWOS
SWO&
SWO?
SWg8
SW09
SKH1
SWi0
SWil
SWile
SW13
SWi4
SW1S
Sk
SW3
SW4
SWS
SkWe
SW7
Sk8

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

SWOl
SWOe
SWO03
SWOY

SW3

=
=
=
=

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

= 0010R0

TBITVE= 000014

TEMPL

003360

12418
12318

BOS

MACY11 30A(10S2)
25-JAN-78
12:08 PAGE 261
CROSS REFERENCE TRBLE -- USER SYMBOLS
8369
9813
lggeg

5651

12165
9922
9813

8719

8724

12748

24928

9818
10099
8934
6240

8379

8714

8724

9935
10534*

8729
9955
12165

9240
10027

9250
10029

9260
1003S

7392

7470

7987

8323

8673

9811s

6598
8038

6603
8043

4OO3*

4OO4®

400S

S156
6732

S163%
5748

5998
6750#

7058

8719

9820
10103
10440
6548

992¢2
10440
10479
6720

9930
10479
10502
7047

5674
7696

6289
8028

6294

9250

9260

3996%

3998%

9818

9935

4800
7481

480S
7690

3975%

3989x%

8729

5319%

9240

§320%

5321

S392#%

9270

5835#

9792

4118

4502%

6236

6:51%

6391%

639

BYSY®

6560%

HESYHE

6235%

TEMP2

003362

24938

4293%

4620®

4783%

4BY47®

4995k

5206%

5358#

TEMP3

003364

24948

5057%

5059

S103%

510S

6805%

6844

6865#%

TEMPY

?7737%

7738%

494lx
4693

7739

68i10%
4720

8073%
681!
4746

6852%
9729%

50SS

s056

070

s07e

00336k

g4e2#
24954

B4e4x
5058%

TEMPS
TIMUP

003370
001376

24968
24058

4B26*
4679

TOCYL

001352

23928

TITLE
043116
TKVEC = 000060

6870

9270
10042

1241
1240
1239
1238
1237
1236
1235
1234
1233
1232

12268
1225¢
lec4ys
12238
12228
12408
12218
12208
12198
1218
1217%
12168
1239
12384
12374
1236#%
12358
12348
12338

1232¢
7476

8374

SEQ 0260

B84eS
5059%

3785
12818

3823
10417%

83254
10418#%

6109%

B3IS*

6317

4973%

SO6l®

6425*%

S062

bb2l®

S104*

B8074»

BB32

S510S*

B807S

6853
9740%
Slee

6708

5107#%

B423*

6871%
974b#*
5124

6712

6000

CZREBHE.P11

MACY11

30R(10S2)

7074

7076%

7141®

8;88

8700%

8;48

8770%

8;50*

121968

9951%
3727%
12689

11900
3728%

25-JAN-78 12:00

73d3

TPVEC = 000064
TRAPPC
001334
TRAPVE= 000034

TRT

= 000003

TRTIVEC= 000014
TSTRTN
Q44012

IST11

ISTI0O
1571
1571

010120

12828
238°8
12808
12758
4287

Si49
6931

9107
3859

0laSed
1
SS
1

4366
Y407
4453

ISTIN
ISTIS

013370
0147l1e

ysze
4766

15720
IST21
IST22
75723
15724
IST1eS
IST26
15127

06
020352
020476
S
;
023732
025026

63728
S447
5500
ggSE
46
53874
61038
624l

IST30
TST31

025502
026602

64188
6549

157
IST34

014
031342

68
7048

1571

1811%
TSTé

TS713

Tngg
IST13S

IS736
15137

13224

Qid7ee
§£§88§

011126

8575

33412

034470
036342

TeT4p
TST41

Bagase
Oflgl 4

1576

012170

T1STS

;?;75

TYPE

012076

?15368

= 184“ 1

7RBR.

4602

Sigis
39324

4092#s

67£;
7393

7646
7988

€359
Sggq

Yauy

4311s

4649

8423

g4e7

ERIG.
881¢e

7358

7374

8499

851
885

EBCE.

G873

881S

8849%

7376%
7737
8149
8537

11852

%
7421

7517

6324

7741
816}
8668
11876

8698

9989#
4698

5346
7259

472s

426
575

4751

4777

SS16
7793

5535
7918

3866

3941

6331

6367

56954
5858

63048

6bl4s

67984
6876
71188

68964%

7471

74974

gioes
S;H
]
Yes4

4275

77218
80528

4821

4392

7125
7972

7139
817}

10623

106e4

g Sg

60S0

Es JRNY. L R
10618

SEQ 02kl

S4S3s

4370

6980
7960

262

45854
4gaols

14§61:

6014

gyla®

8780

4349

3988

7343%

44298

Sie2
3910

7179%

BIM*

4400%
4420
Y4648

4540w

PAGE

7143

784¢

Se76
7027

4y52es

cas

12:08

CROSS REFERENCE TARBLE ~-- USER SYMBULS

5%87
6983

988l
38818

25-JAN-78

ong
no G
1[N T=
L
pe

CZRBHEQ UNIBUS RK6 DR PRT1

3807

3809

6061

621

3824

496

9952

7162
8183

7307
8296

Y. -

10626

4970

7446
8308

Y. 5 QY. 4,
10629

10633

SggH

JY.

7458
8521

10699

3980

geas
524

7504
8646
999
10S3
10841

10922

12117

12118

CZR6HED UNIBUS RK& DR PRT!

CZRBHE .P11!

25-JAN-78 12:00

TYPERR

067404

TYPSS =
T.A
=

104403
000001

TYPOC =
TYPON =

MACY11 30A(10S2)

104402
104404

1213;

12141

10503
109258

109238

12138

4g57
4333
75¢8

121078

3934
5238
S440
b44Y

549
471

Sgfl

]

6471

7.83 = D0000OM
T1

00i412

T100

001416

TS00
1S000
TSO0000

001420
001424
001426

= 000400
003304

TiO

001M14

12500

UFE
UNLD

001422

UNLORD= 000007

UNS
=
UPE
=
VERIFY
=
WCE
=

WDCNT

5%50

040000
020000
O0l1126
000100
040000

004000
000031
04
001000
#uusxx U

$ATY]
$ATY3
ATYY

051452
0S1460
DS 1470

051476
uiléSH

Q01264

12158

12161

4063
Y4634

Yee
466

7589

9927
4892
g8l0
6672
27?7

9969
4926

7559

9184
4860
S744
6643
775

109248
S008
6027
634S

5?&4

58?8

73;7

7807

S613

S64S
6582

qug

quQ

7752

4333
3975
9030

178

12182 .

6643

6672

YBe

8388

3989
937

8844

7807

53§H

7876

8588

2623

73;3

7009
7902
8618

4111

4293

4Y50e

694S

221

2388

282

3998
9389

4102
9872

4620

559

6994

2418
4209
4ols

S668
9420
3996

7097

9441

9851

4109

6esl

6560

6738

7064

7427

7759

8002

404
3833%

4yesy

Yi4
4279%
4774

Wy
4764%

445
4769%

9041

7662

13494
¢
24S4s
1312s

7364
8758

7884

8688

S509#

Se0es

Se72#

690S#*

5998%

7101%

983S

985S

3973

40748

5832#

5840%

S841

5971%

S977x

5978

6069%

6079#%

6080

6386#

639%+#

6397

5724

S869

6007

6324

7158

7300

10493

10650

899%6#

8998+

c419s

6135

8822

13694
1349
3968
13809
13508

5654

833

qug

844

8570

36648

1318s

13200

13838
1321
14018
1515
10295

10266

102648
10143
1

]

1521#s
10310

102688
102658
1

gg?.

828#%

3891

001122
001188
0012

22808
2e8en
23068

10082

10118

10446

10643

SCOW2
SCHARC

00127¢
(0Sle2e

23584
10160%

10170%

10177

10186%

10191»

001270

5954
6702

6702

$BDOAOR
SBDDAT
SBELL

SCDM1]

SEQ 026l

12150

6582

5358

24168
338;

éngl

WRL
=
WRTCHK=
WRTGAT=
SAPTHD
SASTAT=

nxgge

Sag.

WRHEARD= 000027

PRGE 263

12145

6506

3559

2415s

1?328.

WRDATR= 000023

S$ATYC

73%8

001442

8814

DOS

12:08

CROSS REFERENCE TARBLE -- USER SYMBOLS

18653

Y40

25-JAN-78

2357s

EQS

CZRGHED UNIBUS RKG6 DR PRTL
CZREHE.PI1
25-JAN-78 12:00

MACY11 30A(1052)
25-JAN-78
12:08 PAGE 264
CROSS REFERENCE TABLE -- USER SYMBO.S

SCKSWR

10930

$CMTAG
§CM3

sCM4

§CNTLC
SCNTLG
SCNTLU
SCPUOP

SCRLF

052444

104798

= 000000

22988

001100

= 000006
053354
053366
053361
001236

001205

22688

22988

3716

2299%

10434
10500
10525
23298

10515
106458
10618

10643

10704

23088

3951

SDBLK
$OB2D
$OB20
SODKO
1
SODW2
$ODW3
SODW4
SOOWS
SopWe
SOOW?
SDECVL

051442
053732
053556
001274
001276
001300
001302
001304
001306
001310
001312
(0SH4112

10218
10756
6879
23598
23608
23618
23628
23638
23648
23658
23668
10776

108228

SOEVM
SDORGN
SOTBL
SENDAD
SENDCT
NOMG
SENULL
NV

001266
043020
051432
0943010
Q42756
(043027
043024
001230

23568
8880
10221
150
3731
B8B4
gg87
23258

3945
B883
102568
88318
882
88998
88988
89

0426b2

SOEVCT

SENVM

SEOPCT
SEOPI

001220

001231

Q42750
Q42722

23208

5306s

4763

23028

23038

23048

10644e

4014

4391

12132

12145

3839%

4206

B869%

8870

10260

2324
1527
23178
10264%
c296s

10115

10159

10194

10536

10623

8932

10092

10138

6786

6798

3937

10140

5732

BOSl

6062

6214

6226

10273

10297

5877

5921

S933

B0IS

7947
BSM

7483
86W

10145

10275

B537
BlB4

7130
B2

9894

996

7163
8303

7308
8522

7619
Bes9

763l
BES

7E36
88638

9794

19002

10031

10033

10039%

10061

10077#¢

10115

12167

i?OBHI

1008S*

10086

10118

11845

11852

11860

11868

11876

11884

11892

11901

10083%

101

*
*

4e0l¥
bo8l®

4618
b427*

4753%
H4S3®

4ZSHR
BSISE

4790%
BSII®

S
b

#
%

BS49#
9893%

BSE9*
9950%

B863S*
9954x

B706*
100SS5%

B8B66*
10106

9
10

S4g7%
BbS3I*
7540%
B8199#
13??&'

S570%
H756%
7606%
8219
9246#

Se01®
HI6EE
7680%
B8285%#
9256%

5657#
£I97#
773S#
B8356#
9266+

10304%

10312

2385 13154
#*

10090

10110

3734s
100758

6882

12158

8895k

22778
3725

7-~5e

6881

12122

9892#
88738

001112

4392

12117

9883
8871

SERTTL

001230
001314
001212
0S1716
0011Se

23018

89798
4203

1?%{2.

SETRBL
SETEND
SFATAL
SFFLG
SFILLC

23008

10643s

3731%
3914

001116

001176

3733

6525
el7e

SERRPC

SESCAP

5701

3732

6379
7573

22718

SERRTB 003474

3754

3731

6368
79l

00110

001115
0SOSHY

3776%

3725

6332
73398

SERFLG

SERMAX
SERROR

10252
10774
107158

3717

SEQ 0263

3733

10033

10056#

¥
#

23678
10301#%
10267%
10163

10295
10194

7221®
7863%

10061

7224%
7949

7290%
B8020%

7382%
B8071%

73%:%
BO%4*

7
B8

*
#
#

CZREHEQ UNTBUS RKe& DR PRT]

MACY1l

SFILLS
SGDARDR
SGDDAT
SGET4Y2
SGTSHR

10194

CZRBHE .P11

SHIBT

SHIOC

25-JRAN-78 12:00

0011SS
001120
0011e4
043000
0S2534

000000
821000

22958
22798
cc8ls
88884
10S01s

1146

15228

JSSH4

10692%

0S171S
001106

1030S*
22738

SLPERR

001110

ca’4e

SMADR1
$MADR2
$SMARDR3

001242
001246
001252

2342s
234648
2349s

sMAMS1
SMAMSS
$MAMS3
s$MAMSY
SMBRDR
SMFLG
SMNEW
SMSGRD
SMSGLG
SMSGTY
SWR
SMTYP1
SMTYP2
$MTYP3
SMTYPY
SMXCNT
SNULL
SNWTST=

001240
001244
001250
001254
001002
0S1714
0S3404
00l224
001226
001210
053373
0Q0lgu4l
001245
001251
001255
0S50S4e
001154
000001

23368
23448
23478
2350#
15238
10265%
10504
23c2s
23238
23i6s
10501
23378
23458
23488
23Sls
100S0
ce94s
38718
4356
49488

SICNT
SINTARG
SITEMB
SLF

SLFLG
SLPADR

SMADRY
SMRIL

001104
00113S
001114
001206

001256
001210

0S2142
053660
052144
0S0S26
001216
001006
0S0262
0S0176
050210
001204
0S3006
n#®¥xy U

FOS

SEQ J2e4

10928

10703

ec7es
cc86bs
ec76s
23098

10046%
10498#
10086%
1011S

10047
10517
10094
10194

8710

9933

10037%

100S3%

10058

10060

796

9799%

9960

10037

100S4*

10060

1010S

1527

23158

37583

8932

100S2

10092

10138

10271
106488
10281%
10286#%
10279
106468

10306%

10310#%

41858
458
S4508

4187
45288
S489s

B383s

87369

888S

8898

10701

10704

9292

2352
1523

S984s

SOCNT
SOCTVL
$OM
SOVER
SPASS
SPASTM
SPURCT
SPWRON
SPWRUP
SQUES
SRDCHR
SRDDEC=

30R(1052)
25-JAN-78
12:08_
PARGE 265
CROSS REFERENCE TRBLE -- USER SYMBOLS

7111
103S0#
4374
1034S%
10014
23198
15258
9984%
3729
9978
23078
105688
10934

10311s
373S5%

3736%

4794
4793

10049%
10S37
10115
10633
5658
6284

10060
10650
12108
10643
6285
6594

10704
6595
6759

7C8S

7086

7684

738S

8023

10284

10287%

10299

10303*

10060#%
10165
3873
43948
4950

10194
3917s
4396
S1688

3919
Y4238
S170

40778
4425
S3638

4079
4456
5365

74908
10379%
10717
10349#
10030
3753%

7492
103928
107428
103S4
10038
4365

703

7705

8049s

9985%
99788
99848
10115
10931

999S»
9987

60898

6760

6091

10194

63018

64058

6407

103S7#
10048
6875

10368%
100S57#
8876&%

103948

10555

10626

10643

8877

66068

6608

43048
45?77
5685

68848

10061

CZR6EHED UNIBUS RK& DR PRT]
CZRBHE.P11
25-JAN-78 12:00

SROLIN

053076

0S3416
0000ee

10SS1s
106658

10935

0S4166
053676
050264
000137

10934

nan

10011

177?777
0s4126
0sg472
000274
167400

3722
10102

3723
10110

6880
10051
1504

10833

1146
3733

1152
3735

b4l
8896

661
8898

4sY

001174

0000
o000
0000
et == Y PO PV

occeEnnoocc

00
oo
Or=

pS4042
0cllise

3729
10444

3731
10474

1183
3736

1154
3882

1155
3933

1156
40383

7119
1000S

100SH4

498
10006

10057

988
8860
10028
10070

11901

Hggg

495

6
10003

689
10004

10103

10118

373

10029
11852

11860

11868

3732%

3882#

39335

4093*

4195%

4276#

16793'

6897%

7119%

7498%

7722%

BOS3#*

10398
104148

10419
10444

18“30
10461%

1045
1057

1048;
10577%

10510

10467%
10579%

10468%
10S80

10469
105824

10471%

10453

10459%

10481

10497%

4027%
9028

40O38%
9039

4107
9374

Y122

104148
10469

10435
10580

18415
10398
104308

1247
10420%

3837%
4497

3994
4505

1146

6884
8049

10183%

10416
10578

3859

182%

10496

10582
104S1#

4013
4966

3871

S373%

38828

S4S4®

3910

3917

U254
4423

42eb
44308

42768
4453

4304
4UESk

5489
6301
8978
053s

55018
63058
7048
8324

S652
6405
7109
8383

5683
64198
71198
83878

569368
6549
7393
8674

10194

1001e

11912
NS4lw

G501#

4244
MN20

8929

230S

10008
1iB84S

N9LBH

373S

4401

10007
100S2#

10099

10042

S182

3733

1160
4197%

10415%
10416%

2293

3727
10443

10041

4198
4407
66
S4S4ys
b2yl
S THPUWR
$TPB

458

8874

3725
10438

10040

4ygoox

25 Srrrrn TnnmnnLL
e T

NI Y N 0=

Q00
BRERRRARRS

STIMES

SEQ 02&S

10033

lgggg

SSWREG
001232
= 000000
SSWRMK
STESTN
ooliely

GOS

30R(10S2)
25-JAN-78
12:08
PAGE 266
CROSS REFERENCE TRBLE -- USER SYMBOLS

10932
10933

e
e
132222

w
[F)]
<
v
O

MRCY11l

10040%

10507

Y140

4093s

3933

4354

43128

Y4658
Sike
S846
6606
7471
8736

10519+

7490

87488

10539+

b419+
10047

CZR6HED UNIBUS RKE&E DR PRT]

MACY11l 30A(1052)

S$TPFLG
$TPS
S TRAP
STRAPZ

CZR6HE.P11

25-JAN-78 12:00

@2S-JAN-78

22978
22928
3727
108108

10132
10181
108998
10921

10194
10194

STRPAD
$TSTM

Q0S4316
001004

1093Ss
10904
152448

109368
10921+

10937

STTYIN

0583332

1059

10594

$TYPDS
STYPE
STYPEC
STYPEX
STYPOC
STYPON

0Sl1ees
050744
0S1156
831 2y
1794
0S1760

102068
101328
1016
1018
103488
10347

10926
10292
10169
10189
10923
103508

1092S

SUNIT

ggleee

232ls

3777%

3840%

4208+

7789

7914

812s

= 000016

$TSTNM

001102

STYPBN= #andex U

STYPOS

0S1720

109148

22708

1092

103438

S19%
7571

SUNITM
SUSWR
SVECT1
SVECT2
$XTSTR
SSGET4=
SOFILL

001010
001234
001260
00l26e
050276
000000
082143

$H0CAT= 52;355 v

9156

.SASTA= =xszxar |

i ¥4

001000

10923

4198%

10924

5233

109248

8874#x

109258

8906%

10606

10624

10914

10922

10176

101928

5336

101818

932S

10348%

10358

10393

1581
8898

15128
8902

15148
93980

15164
10060

1026S

iSlle

10643

12612
1Cce8
1516

1482 ]

106508
12674

3820

1484 ]

10704

12682

10928

109298

10930

109318

109328

109338

10934#

10002

10029

10051%

107582

16057

10061

10079

10118

4837

4874

4985

S022

5084

S145

g8ce

8828

9108

9127

9153

9195

106428

10'8c

105841

421S

422sS

8250

847S

9339

9198

12588

SEQ 026

10927%

10638

Syee

9197

I?E;g ] 1009;
14778

10926%

e342

15269
2328
23538
23548
100168
£890s
10244%

106428

PRGE 267

CROSS REFERENCE TABLE -- USER SYMBO.S

001157
001150
054262
0QS4304

STRP

HOS

12:08

4g8

1Y-24

6166

Q347

935S

9363

148

|
éas
]
10061

]
2318
10115

126858

12693

i0742s

4645

6531

108228

8600

149

]
24478
10194

1094:8

14928

24488
102608

118448

6488
9392

1499

2449
103138

121818

6684

9862

15008

24Sl e
103398

121828

6927
9877

150

]
3?28
10402¢

12327

7023

1504

]
3735
10403

125852

725S

1505

]
3?36
104048

125S¢

CZRBEHEC _UNIBUS_RK& DR_PRT]
CZRBHE.P11
25-JAN-78 12:00
CRLIF

CHEC

16578

4835

4983

105

MACY11 30R(10S2)
25-JAN-78
12:08 PAGE 269
CROSS REFERENCE TABLE -~ MRCRO NRMES
S194

3860

SES Ce&7

15708
5408
6342
7271

4331
5438
b44e
7318

4609
SSee
6469
7526

Y632
8547
6504
7557

4661
Sell
6580
7587

4705
S643
6641
7750

4732
S742
6670
7775

4858
5808
6700
780S

4890
5896
6830
7874

4924
§8se
6918
7900

S006
6025
6943
79330

S038
6l2l
7007
8086

s217
6152
7039
8ill

Se49
6182
7207
8ivl

5297
6269
7241
8210

4833
4303
S011
S030
5221
S302
5395
S4eY4
55583
5616
5730
5821
5931
6030
6l42
b2le
6326
6446
6509
658S
6675
6754
6321

4840
4910
s0le
S098
Seee
5303
5£338
5468
5559
5617
5748
5824
5938
6031
6155
6224
6330
b4Y4?
6510
6586
6676
6803
6922

4846
4aie
5018
Sile
5223
S304
5411
qeg
56
S623
5746
5839
S941
6038
6156
6e3e
6345
6448
6513
6589
6679
6817
6923

4849
4927
S

4861l
4928
5028
5120
S236
6313
S41
$51
174
S63
5748
5871
S35
604
6158
bey
634
6459
6523
6629
6690
6833
6930

4862
4929
S04l
5129
5239
5325
S41Y4
5517
5579
S646
5§755
5875
5957
6060
6l6l
6249
6348
6472
6535
6636
6703
6834
6333

4863
4930
S04
S13S
5252
339
SY17
£se
558
S647
£758
s88e2
5495
607
6169
6253
6355
6473
6S4e
6644
6704
683S
6946

4864
4934
S0M43

48?7
4938
S04y
S148
5254
5348
S4e
5527
5588
S649
5781
5899
5367
6116
6185
6259
6366
647S
6553
6646
6706
6839
6948

487
4381
5051
Si1s1
5255
5355
S441
5528
5592
S662
5784
S$900
5976
bleY
6186
1-Y-44
637
481
6558
664?7
6710
6846
6949

4880
4948
S066
5138l
5260
5360
S44e
SS34
5595
S666
5796
901
992
6125
6187
6273
6334
b48Y
6See
6651
6730
6848

4893
4994
S068
5199
5267
5377
S443
5537
5597
S670
5811
5902
6009
bleb
6188
6274
6423
6431
6565
6657
6736
6861
6959

4894
4997
S074

N89S
5009
SC79

4836
SC.<
sce”
522C
S$3C.
$391
“58
552
1S
5726
S81v
$3919
6029
6139
6209
6309
eSS
6508
6584
6674
6746
6913
697

S114

s310
s4le
S50S
5567
5630
5747
5863
5955
6046
6157
6238

6346
6456
6520
6619
6687
6821
6924

S140
5253
5345

s42S

5526
5585
se48
5770
5885
S364
6107
6172
6256
6363
6474
6546
6645
670S
6836
47

5278
5381
gHHH
550
5600
S$700
5812
5910
6013
6l12?
6193
6275

5c28
8277
5387
S448
Sss1
5614
5715
sl
5916
6028
6131
6201
6278

6660
6740
6901
6363

6673
6743
6911
6974

6430
6494
6568

6436
6507
6583

CZREHEO UNIBUS RK& DR _PRT]
CZRBHE.P11
2S-JAN-78 12:00

8239

8240

8496
8576
864s
8783
8841

8497
8589
8657
8785
8846

12848
19808
20068

9414
9434

8307
8439

ESCRPE
FSECA
FSECB

F.ERB

HDTBL
HEADER

CIMIT

00P

LPCHK
MSG

3865

15518

8314
8440

9871

824sS

8664
8789
9306

8508
8591
8680
87932
9311

8517
8592
8686
8795
9315

8501

8590

3874

8336
8442

9880

8340
8448

9883

8253

8256

8343
8451

8346
84y6M

8595

8603

8520

8270

8392
8466

8398
8467

8402
8470

8619

8620

8752
8811
3365

8563
8621
8756
8814
9391

8276

8283

840sS
8478

8408
8481

8622

8626

8763
8825
984S

8564

8399

S430

6571
79ee

5539

bbbl
8102

S603

6692
8133

S63S

6822
8227

S7234

S186
7817

5268
78S

5282
94c

4q4ge

43S4s
4950

66068

4356
Sie8s

bbJlB

4394
S.°C

4810
~109

<948
*48C

4821

495-

5999
5983

6316
6300

7142

15358
5707
8064

3984
5766

4409
6034

4439
6136

4490
6351

4553
662y

4828
7183

4899
7283

4977
7509

SQ47
7599

S09%4
7728

15988
3871s

8153

4097
530S

4790
3873

6280
3917s

6590
3919

6756
40778

7082
4079

7382
41858

7396
4187

8020
4268

56828
7111

S68S
74908

58498
7492

5891
77038

4812

8706
4306

E49]
71098

48108

8356
43048

S489s
6886

457Ss

7680
4obbs
4577

64048
8738

6407

4077
5489

4185
5683

4266
S849

4304
5384

4354
6089

4394
630!

4423
6405

4456
6606

L5528
6776

4575
6884

4396

5503

4425

3917
S450

NEWTST

12848
5168

387]
5363

15298

8193

Y4238

S365
68848

7703

6899

8278

Y4568

8049

8383

8736

2369

841y

4458

6174
7548

8503

4seo8s

6261
7579

8543

4530

POP
PUSH

12848
12848

10247
10206

10307
10268

10308
10270

10693
10esl

10884
10667

10864

QKSEEK

17698

6246

6555

6733

70S9

7359

7422

17928

6727

7053

7991

ge28

6460
7797

8772

60888
7705

6496
7891

6091
8736s

8327

8677

7657

7997

8333

839S

8683

8783

17478
18168
19188

S65%
4280
6041

77?7

5912

6205

6516

7438

7610

7827

7952

8163

8288

8S13

8638

SCOPE

11798
sisl

3881
§372

3932
5463

4092
S500

4194
5695

4275

4311

5387

4361
6103

4400
6304

Y429

6418

q464
6614

4540
6798

4585
6896

iggs:

gE;ng

I?Sé::

80Se
5462
1057}

lg;?g

10924

1092S

108es

109e8

10830

10931

10932

10933

10934

1093S

10936

SKATN
SKIP

17288
12848

5393
3859

6137
3910

6655
4128

7226
Yoy

7542
4254

7760
4349

7885
4366

8096
4407

8ecl
4420

8446
4453

85?7}
452

4872

2l3ls

7724

8060

8410

SKOSC

gégs

S447

sese

8747

5846

8865

5858

7721
20358
leg4s

SECTST
SETPRI

8386

3842

7651

6334
7766

QKSRT
QKUNLD
RALLHO

289821

7088
4770
6358

7354

621

8766
8831
49

8573
8642
8777
8834
9853

Se4l

19688
21598
20718

6143

8431
843s

5209

4850

6017
7263

829S

19
M

5030

8760
8817
9833

8565

829¢

4938

8704
8810
9358

8555

8eze

8693
g8cs
9342

9952

8547

8271

4653

53638
?ggs.

QKRPSK

8354
8465

8539
8
8696
8809
93s0

8690
8798
9328

8532

8269

5943
7232

MULT

OWNTRG

ga4e

8330
8441

SEQ 02e8

5887
7031

$800
6399

4623

8241l

JOS

MACY11l 30R(10S2)
25-JAN-78
12:08 PAGE 270
CROSS REFERENCE TARBLE -; MARCRO NAMES

8873

6549

6721

6857

6876

7048

7393

7471

7646

633

7118

4766

7988

6935
82s8

497

4945

8324

CZRBEHEO UNIBUS RK& DR _PRT]
CZREHE.P11
25-JAN-78 12:00

SKRDY

17158

SPACE

12848

SLASH

STARRS

SWB1Y

6633

7199

7518

774e

7866

8078

820e

8428

8552

12848
4193

1497
4266

1508
4274

1510
4304

1517
4310

2263
4354

2310
4360

2313
4394

3871
4399

3880
Y423

3917
Y428

3931
Y456

4077
4463

4091
4528

418S
4539

S6M
6884
9999

5849
689S
10063

5857
7109
10117

s38Y
7117
10196

5986
7490
10263

6089
7496
10320

61G2
7703
10397

6301
72720
10474

6303
8049
10489

640S
80S1
10560

5 ¥4
8383
10S84

6606
838S
10653

6613
8736
10706

6776
8746
1074S

6797
88s?
10763

10825

1eg4s

3737

10833

4820

12097

4948

12106

4956

cle8

s180

5363

8371

5450

S4s2

s489

6547

6719

7047

7332

7470

7644

7986

8322

8672

16168
7688

4799
7694

4804
8026

5673
8031

6287
8036

6292
8041

6596
8362

6601
8367

6764
8372

6770
8377

7102
871e

7402
8717

7408
8722

7474
8727

7479

3952

4015

4061

4226

9182

9925

9367

4810
7109

4948
7490

4766
7988

4945
8324

leg84s

8885

12848
12848

10502

5723

5868

6006

6323

7154

7299

gzggég

%gg&:

2298

2299

2300

2301

2392

2303

SSNEWT

lo84s
Sles

3871
S363

3917
S450

4077
s489

4185
5683

4266
5849

4304
5984

4354
6089

4394
6301

4423
6405

4456
6606

4528
6776

4575
6884

§§§E¥"

lg;égz

10923

109e4

109eS

10926

10928

10930

10931

10932

10933

10934

10935

1093¢6

SSSKIP

le84s
gégs

3859
5447

3910
5652

4128
5846

You4
ba4l

4254
BEY49

4349
6721

4366
6857

4407
6876

4420
7048

4453
7393

4525
7471

4572
7646

EQURT

HERDE

SETUP
SWRHI
SWRLO
.SACT]
.SAPTB
.SAPTH
.$APTY
SCATC
SCMTA
$0820
$0820
SEOP
SERRQO
SRDOC
SRERD
SSAVE

$5B820

$SCOP

$SJUPR

STRAP

S683

6239

12848
12848
12848
12849

WRHDR
SSCMRE

5499

S6S1

TYPBIN
TYPDEC
TYPNAM
TYPNUM

TYPOCS

10848

4810

4765

10914s

TYPOCT
TYPTXT

4584

16068

TRMTRP

TSTSUW9

SEG 02t9

6113

12848

4575

SWRSU

KOS

MACY1l 30A(10S2)
25-JAN-78
12:08 PRAGE 271
CROSS REFERENCE TRBLE -- MACRO NAMES

18498
226ls

7703

11318

11318
11318
11318
11318

2311s
11318
11318
11318
11318
1131s
1131s
11318
11318
11318

11318
11318

11318

1131s
'131s

8049

1174

1136

3663
1148
11608
1495
1506
1026l
1471
2261
10761
1070M
B85S
10061
10€S|

1039S
10846

10743

9997

10823

10891

8383

8736

CZREHEOD UNIBUS_RK&

C%RbnE.Pll

$TYPD
STYPE
$TYPO

11318
1131s
11318

RBS.

072014

DR_PRT

25-?9N-?8 1%:00

MACY1l 30A(10S2)

S-JAN-78

PRGE 27
CROSS REFERENCE TABLE -- MRCRO
NRHE%

10194
1011S
10318

ERRORS DETECTED:

oocC
O

DSKZ: CZRBHE , DSKZ: CZREHE . SEG/SOL /CRF /NL : TOC/DOC=DSKM: CZR6HE . P11

RUN-TIME: 3% 32 4 SECONDS

RUN-TIME RATIO: 486/73=6.6
CORE USED:
32K
(63 PAGES)

DOCUMENT PRGES:

270

LOS

12:08

SEQ J270