Digital PDFs

AH-9126E-MC

March 1978

204 pages

Original

10MB

view download

OCR Version

8.8MB

view download

Document:	CZR6JE0 RK611 UNIBUS RK6 DRIVE PART 3 MAR 1978 bw
Order Number:	AH-9126E-MC
Revision:	000
Pages:	204
Original Filename:	CZR6JE0__RK611__UNIBUS_RK6_DRIVE_PART_3__AH-9126E-MC__MAR_1978_bw.pdf

OCR Text

UNIBUS RK6 DRIVE PART3

CZR6JEO

AH-9126E-MC

copvricHT®76.78
FICHE1 OF1

MAR 1978
LOEORED

MADE IN USA

————

syt

BO1

e 0 5 b s s Bt Pt s Pom P

— OO0 IOV £ WM~ OO0- 10NN L. (W)

EOF 1CZREM SEQ
[0038 L
CZR6JE.PLL
2

780223
on-78 12, GERBIED UNIRUS RKE DR PRT3
00010C30

POP10 411
MACY1l 30A(1052)

SEHDR1CZRBJESEQ
25-JAN-78 12:16 PAGE 1

00010000

.REM

IDENTIFICATION
PRODUCT CODE:

AC-912St
-MC

PRODUCT NRME:

CZReJEL UNIBUS RKb DR PRT 3

DARTE:

FEB 1978

MARINTAINER:

DIAGNOSTIC GROUP

AUTHOR:

GARY PAPAZIAN

THE INFORMATION IN THIS DOCUMENT

IS SUBJECT TO CHANGE WITHOUT

NCTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL
EQUIPMENT CORPORATION.
DIGITAL EQUIPMENT CORPORATION ASSUMES

NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
THE SOF TWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER_A

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

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

(C)

1976,

1978 BY DIGITAL EQUIPMENT CORPORATION

780223

COl

25-JAN-78

12:16

PRGE 2

TRBLE OF CONTENTS

1.0

ABSTRACT

e.0

REQUIREMENTS

2.1
2.2

PROGRAM CONSIDERRTIONS

4.0

LW~

3.0

4.6
4.7

X2 P
RCT/APT
APT ETABLE DEFINITIONS
DURL ACCESS
MEMORY MANAGEMENT
PRRITY CH CK ENARBLED
BRD S;C ORS
EXECUTION TIME
FRULT ISOLATION

ERROR CORRECTION 8 FAILURE RATE RANALYSIS
DEFRAULT UNIBUS RDDRESSES 8 VECTORS

PROGRAM LOADING
STRARTING LOCATIONS
CONSOLE SWITCH REGISTERS
SOFTARRE SNITCH REGISTER
INPUT D OGUE

PR
RRH $
HALTING
THE PROGRRH

DRIVE DIAGNOSTIC FUNCTIONAL DESCRIPTION
S.1
5.2

6.0

PDP-11 FAMILY COMPATIBILITY

OPERATING PROCEDURE & CONTROL FUNCTIONS
4.1
4.2
4.3
4.4
4.5

5.0

HARDWARE
PRELIMINARY TESTING AND PROGRAMS

-0

30A(10S2)

[ 00NN

MARCY11l

WWWWwWWwWwWwWwWwWww

cZR6JEQ UNIBUS RKBE DR PRT3
cZR&JE.PLL
25-JAN-78 12:08

GENERAL
TEST DESCRIPTIONS

ERROR REPORTING

6.1
6.2

ERROR INTERPRETATION
ERROR PRINTOUT EXRMPLE

SEQ 00a2

CZR6JEOD UNIBUS RK& DR PRT3
CZREJE.PI1
25-JAN-78 12:08

MACY1l

1.0

DOl

25-JAN-78

30A(10S2)

12:16

PAGE 3

SEQ 0003

ABSTRACT

INEGRET

PRAT Tk DISK~12"CApRALE
OF PROMERLY PERFORMING

LL OPERATOR_INT

ERROR DETECTION LOGIC IS CHECKED BY MANUAL & SOFTWARE ERROR FORCING.

AFTERA SUCCESSFUL RUN (WITH NO ERRORS) OF THIS PART,

WOVO NN L WL-0O0m
oW zwmwommflmmxwmwomggggga 898

Pt pct Pt
Pt Pt Pt Pt [t s P
Dt Bt Pt Bt Pmm Pt Dt Bt

s Bt Bt Bt Pt Pt

e Pt Pt Pt Pt

s P

£ £ £ L£WWWWWLILW W WWRINININI N NINITUN) P+

Bt et P

IN THE STAND-ALONE MODE.
SYSTEMS INTERARCTION,
ANALYSIS ARE LEFT TO OTHER PROGRAMS.

= b ps $t bt s s s b+ ()

e Pt Pt Pt Pt Pt Pt
ot Pt

PQEESEDEE EESEHFEBU?HS§S§Hk RUHsOBR?eENILL uSRK SUCCESSFULLY
8 ERROR RATE

TESTING IS BASED ON
A HIERARCHY APPROACH STARTING WITH

BRASIC LOGIC TESTS AND PROCEEDING THRU DYNAMIC TESTING.

TESTS WIL
MALL TO FQCIL T
THIS PROG nn HILL T ST RKO6
& RKO
OPERATOR INPUTS.

SCOPING LOOPS.
HOUT NEED OF

THE

EuR%BCARAUTIONM®-¥%x%

HALTING THIS PROGRAM ANYWHERE BUT AT THE END OF A PARSS,
MAY LEAVE THE HEADERS
UNDETERMINED STATE.

2.0

REQUIREMENTS

2.1

HARDWARE

IN THE DISK CARTRIDGE

THE FOLLOWING HARDWARE

IN AN

IS REQUIRED TO RUN THE DISK DIAGNOSTIC:

PDP-:1

CONSOLE TELETYPE
16K~ MEMORY
KWll-L OR KWll-P CLOCK

RKO6 UNIBUS CONTROLLER

NOTES:

TO 8 RKO&/RKO? DRIVES

IF NEITHER KNll-L o P CLOCK IS USED,

TESTS WILL BE 8

BEGINNING O
2.

e.e2

(RK&11)

SED.

ALL TIMING

A MESSARGE At THE

THE TESTS WILL CONFIRM THIS.

THE PROGRAM CQN WORK OFF EITHER FORMATTED OR

NON-FORMARTTED PARCKS.

PREL IMINARY TESTING & PROGRRMS
THE RK611 DISKLESS CONTROLLER DIAGNOSTICS

(ALL PARTS)

FOLLOWED BY THE RKOb6 DRIVE DIAGNOSTICS - PARTS 1| & 2.
3.0

PROGRAM CONSIDERRTIONS

SHOULD FIRST RUN SUCCESSFU

CZRGJED_UNIBUS RK& DR_PRT3
CZR6JE.PI1
25-JAN-78 12:08
144

MACY11l 30A(1052)

3.1

25-JAN-78

EOL

12:16

PAGE 4

SEG 0004

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

IT IS COMPATABLE WITH THE LSI-11 INSTRUCTION SET AND CAN TEST
THE RKO& ONLY IF THE DRIVE CONTROLLER FOR THE LSI-11 IS
DESIGNED TO BE DIAGNOSTICALLY COMPATABLE WITH THE RKbI11.
3.2

XXDP
THIS PROGRAM SHOULD NOT BE CHRINED BY XXDP.

DUMP MODE OPERATION

NNNNNNNOO

BY DEFINITION,

CHRIN MODE OPERATION

(MCONITOR)

ANY PROGRAM THAT REQUIRES

CFERATOR INTERVENTION SHOULD NOT BE CHAINED.
1.
2.

INPUT DIALOGUE IF STARTED FROM 220.
DRIVE O CAN BE TESTED,
BUT THE OPERATOR_IS FIRST GIVEN

A MESSAGE TO REPLACE tHE PACK IN DRO WITH R SCRATCH

PACK & TYPE

3.3

(MANUAL)

<(CR>

WHEN DONE.

ACT/APT
THIS PROGRAM

HOWEVER,

IS RCT COMPATIBLE.

IT SHOULD NOT BE RUN IN THE AU
O MODE.

AUTOMARTIC MODE

(MONITOR)

BY DEFINITION,

ANY PROGRAM THAT REQUIRES

OPERATOR INTERVENTION SHOULD NOT BE

RUN IN THE AUTO MOODE.

DUMP MODE (MANUARL):
3.3.1

INPUT DIALOGUE IF STARTED FROM 220.

RAPT ETABLE DEFINITIONS
THE FOLLOWING DEFINITIONS ARE VALID FOR SPECIFY I ?? APT NVIRONMENTAL
TABLE (ETABLE) ENTRIES, VIR RUNNING THE APV UTI LITY PROGRRM “TSP*:

SOFTWARE ENVIRONMENT:

ENVIRONMENT MODE:
ETABLE DOES SIZING
BIT 7 = 1
=0
PROGRAM DOES SIZING
BITE =1
SPOOL MESSAGES TO APT
DON'T SPOOL TO RPT
=0

=1 IF APT SCRIPT MODE
=0 IF STANDALONE MODE

IF SCRIPT MODE

C<r6JEDQ _UNIBUS_RKe& DR_PRT3
CZRBJE.P11
25-JAN-78 12:08

MACY11l

30A(10S52)

FOL

25-JAN-78

12:16

PRARGE S

BITS =1
0

SUPPRESS CONSOLE QUTPUT
ALLOW CONSOLE OUTPUT

NOT USED

BITS u-Q0

SEQ 000s

3.
SWITCH 1 (SOFTWARE SWITCH REGISTER)
IF_ENVIRONMENT MODE BIT 7 (SIZING BIT) IS SET 10
oo
U DU 0 5t 0 4t bt B Pt Pa e e (Y O)
- OO
LWNN—-0ODD

207

eee

THE SOF TWARE SWITCH REGISTER WILL BE USED, INSTEQD
OF THE HRARDWARE CONSOLE SWITCH REGISTER., ’'REGARDLESS

OF WHICH ONE IS
U

LL BITS

DEFINED IN SECTIONS

4.3
8 4.4 (SWITCH RE&ISTER OPTIONS)IN MAY
USED
WHEN RUNNING IN STANDALONE MODE.
APT SCRIPT MODE,

HOWEVER,
TO O.

BIT
IT

CLOOP ON TEST)

MUST ALWAYS BE SET

SWITCH 2 (USER SWITCH REGISTER)
NOT USED

CPU OPTIONS:

MEMORY TYPES 1-4 AND MAX MEMORY ADDRESSES

NOT USED

INTERRUPT VECTOR

USED WHEN ENVIRONMENT MODE BIT 7 = 1.

DEFAULT = 210

BUS PRIORITY I:
USED WHEN ENVIRONMENT MODE BIT 7 = 1.

DEFAULT = S

INTERRUPT VECTOR 2:

10.

BUS PRIORITY 2:

11.

BASE RADDRESS:

12.

DEVICE
M

NOT USED

USED WHEN ENVIRONMENT MODE BIT 7 = 1.

DEFAULT = 177440

USED NHEN ENVIRONHENT MODE BIT 7 = 1.
ERCH BIT
SET T0 1 IN BITS 0-7 WILL SELECT THE CORRESPONDING
DRIVE TO BE TESTED.
BITS 8-15 ARE NOT USED.

13.CONTROLLER DESCRIFTOR WORDS:
NOT USED

14.

DEVICE DESCRIPTOR CODES
NOT USED

(IN WORDS):

DUAL ACCESS

THIS PROGRAM WILL NOT TEST OR SUPPORT DUAL-RCCESS.

A DRIVE

EQUIPED WITH DUAL RCCESS MUST BE SWITCHED TO THE PORT UNDER
TEST TO PREVENT CONTENTION WITH THE OTHER PORT.

DUAL ACCESS TESTS WILL BE INCORPORATED IN A SEPRRATE PROGRAM

CZR6JEO UNIBUS_RKE DR_PRT3
CZR6JE.P11

25-JAN-78

12:08

MARCY1l 30R(10S2)

2sé

257
2s8

ggg

3.5

3.6

3.7

erl
272

3.8

2’8
279
3.9

3.10

283

23s
236
ggg

EXECUTION TIME

FRULT

APPROX S MINUTES TQO DO ALL THE TESTS
(BRSED ON THE PDP 11/50)

ISOLARTION

TO BE DETERMINED.

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

290

gga

BAD SECTOR

TOTAL TIME:

e84

ggg

PARITY CHECK ENABLED

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

280
28l
ggg

MEMORY MANAGEMENT

THE PROGRAM WILL COMPARE DATA ERRORS WITH THE BAD SECTOR
INFORMATION CONTAINED ON CYLJNDER 410,
HERD 2.
PRINTOUTS

5;3
27%

THE PROGRAM WILL RUN WITH MEMORY CHECK ENRBLED.

S;Q

SEQ 0006

IF_THE MEMORY PRRITY CHECK OPTION IS AVRILABLE ON THE SYSTEM,

SE%
28

PAGE &

MEMORY MANRGEMENT NOT USED

26S

Ség

12:16

AT A LARTER DATE.

Sgé

gga

25-JAN-78

GOl

ANALYSIS.

3.11

DEFAULT UMIBL'S ADDRESSES 8 VECTORS
THE F° ._.OWING IS R LIST OF ALL DEFAULT ADDRESSES & VECTORS
OF ALL HARDWARE TO BE USED 8 THEIR MEMCPY RDDRESSES
WHERE THEY CAN BE CHANGED.

ggg

LOCATION

DEFAUI.T CONTENTS

301
302
303
304
305
306

RKO6 BUS RADDRESS
CONTROLLER INTERRUPT VECTOR
CONTROLLER PRIORITY
P-CLOCK STRTUS REG
P-CLOCK SET BUFFER
P-CLOCK RERD BUFFER

1264
1334
1336
1340
1342
1344

177440
210
240
172540
172542
172544

308
309
310
311

L-CLOCK INTERRUPT VECTOR
P-CLOCK INTERRUPT VECTOR
TTY KB STATUS REG
TTY KB BUFFER

1350
1352
1144
1146

100
104
177560
177562

307

L-CLOCK STATUS REG

1346

177546

MACY1l

30AR(1052)

25-JAN-78

12:16

PRAGE 7

SEQ 0007

TTY PRINTER STRTUS REG
TTY PRINTER BUFFER

W) WWWWwWwWwwWwww W
VgV N PO DY 0= 09— 0o pe o P p— [
LW nN—oOouo~NoCTN
LWn

CZR&JED UNIBUS RK& DR PRT3
CZReJE.P11
25-JAN-78 12:08

1150
1152

177564
177566

OPERATING PROCEDURE 3 CONTROL FUNCTIONS
PROGRAM LORDING
THE PROGRAM CAN BE LOADED FROM PAPER TAPE USING STANDARD

PROCEE¥RE FOR RSEOLUTE LOADER TAPES;
SUPPORTED BY XX

3es

LORD THE STRARTING RDDRESS

OR FROM ANY MEDIA

(SEE SEC 4.2).

SET SWITCH REGISTERS RS DESIRED

(SEE SEC 4.3).

sgr onévg? T0 B$ TESTE? IN ms ;LORD’

flo?R% és §E§ go '515

conognon 3 BEJU THE

H esaagrfi EokQSKDE.é,ELEfiEb.

TVES

NOTE:

THE DRIVE WILL NOT RESPOND TO THE 'START SPINDLE’
ggg???gNIF THE RUN/STOP SWITCH IS IN THE ’STOP’

PRESS

°'START’

THE PROGRAM WILL

IDENTIFY

ITSELF AND WILL BEGIN R

?égkoggg HI;? THE OPERATOR TO DETERMINE DRIVES TO BE TESTED
THE PROGRAM BEGINS TESTING ONLY THOSE DRIVES SPECIFIED BY
THE gNPUT DIQ#OG?
R SPECIFIED DRIVE CANNQOT _BE FOUND BY
ROGRAM IT
WILL BE FLAGGED RS AN ERROR THAT THE DRIVE
AS NOT AVAILABLE.
THEN BEGINNING NITH THE LOWEST NUMERICAL

DRIVE AND PROCEEDING IN SEQUENTIAL ORDER,

WILL BE TESTF?D,

ALL VALID DRIVES

ONE PASS THROUGH THE TEST SEQUENCE WILL BE

PERFORMED ON EARCH DRIVE BEFORE _MOVING TO THE NEXT DRIVE

IN
UENCE.
THE DRIVE TO BE TESTED WILL BE TYPED AT THE
BEGINNING OF ERCH PRSS.
“END OF PRSSTM WILL BE TYPED AFTER
TESTING ALL

4.2

DRIVES.

STHRTING LOCARTIONS

LOCARTION 200 - STRRTING ADDRESS TO DEFAULT THE BUSS
ADDRESS 8 THE CONTROLLER INTERRUPT VECTOR
8 TEST ALL DRIVES IN THE 'DRIVE PRESENT’
NOTE:

CONDITION.

THE DRIVE PRESENT CONDITION

IS:

CZRBJEO _UNIBUS_RK& DR_PRT3
CZRBJE.P11
2S-JAN-78 12:08

MACY11l 30R(1052)

@25-JAN-78

368
369
370
371

B.
C.
D.

374
37¢
378

I01

12:16

PRGF B

SEQ 0008

HERDS MANUALLY LOADED

CORPECT PORT SELECTED
WRITE LOCK DISABLED
DRIVE RERDY INDICARTOR ON

LOCATION 22 - STARTING ADDRESS TO INPUT TESTING PARAMETERS
VIA THE INPUT DIALOGUE.
BUSS ADDRESS &
CONT. INTERRUPT VECTOR INPUTTED ONLY ON
IST PASS.

378

IMPORTANT:

379

380
382

FOR VARIATIONS OF THE_ABOVE,
ALSO,

383

SEE XXDP,

CONSIDERATIONS IN SECTIONS 3.2 8 3.3.

THE PROGRAM WILL DETERMINE IF THE DRIVE

1S AN RKOB OR RKO? WITHOUT OPERATOR INPUT.

4.3

305

SWITCH REGISTER

388

THE SWITCHES ARE USED TO PROVIDE CONTROL FUNCTIONS.

330
L
392
333
394

SWITCH
FUNCTION
sttt
bt ot
1S
19
13
12
11
10
3

395
3%

397
398
399

400
401

402

404

405

408
408

403

4.3.1

4.3.2

423

SW<IW

THE PROGRAM LOOPS ON THE TEST THAT IS BEING EXECUTED WHEN
THE SWITCH 1S PUT ON.
THIS SWITCH IS NORMALLY USED RLONG

WITH SWIS.

4.3.3

SW1D
THIS SWITCH_ INHIBITS ALL ERROR MESSAGES.

413
422

AFTER TYPING OUT

PRESSING “CONTINUETM CONTINUES NORMAL JPERATION OF THE PROGRAM.

418
42]

SW<1S

THE_ERROR MESSAGE AND PERTINENT INFORMATION.

413

41g

HALT ON ERROR
LOOP ON TEST
INHIBIT ERROR TYPEOUT
BYPASS DRIVE AFTER 20 ERRORS
INHIBIT ITERATION
BELL ON ERROR
LOOP ON ERROR

THE PROGRAM HALTS ON ENCOUNTERING AN ERROR,

411
412

Y1y
415

ACT/APT

NORMALLY USED WHEN

LOOPING ON TEST (SW14) OR LOOPING ON ERROR (SW3).
4.3.4

SW<1D>

CZRBJED UNIBUS RKE DR PRT3

CZREJE.PI11

25-JAN-78 12:08

MACY11l 30A(10S2)

425
426
497
:Sg

25-JAN-78

JO1

12:16

PAGE 9

SEQ 0QgeA

THIS SWITCH BYPASSES A GIVEN DRIVE AFTER 20 ERRORS HRVE

BEEN DETECTED.
4.3.5

SW<ID

430
431

EACH TEST WILL BE EXECUTED ONLY ONCE.
NORMALLY AFTER THE
FIRST PASS,
EACH SUBTEST IS ITERATED
A NUMBER OF TIMES

:ga

ITERATIONS, SO THRT QUICK PRSSES CAN BE MADE.

432

435
:gg

(USUALLY 50, 5 IN SOME CASES).

4.,.6

:gg
Y40

:zé

443

SWOP

ERRORS.

4yg

::g

USEFUL WHEN ERROR TYPEOUT IS INHIBITED.

THIS SWITCH PROVIDES THE TIGHTEST POSSIBLE SCOPE LOOP FOR

444

443

SWID

RINGS AR BELL ON ERROR.
4.3.7

SETTING THIS SWITCH INHIBITS

4.4

450

.~ THE PROGRAM DETECTS AN ERROR,

THE BEGINNING OF TEST.

'SOFTWARE’

IT WILL LOOP BACK

SWITCH REGISTER

IF THE PROGRAM IS BEING RUN ON A SWITCHLE
35 PROCESSOR

451

(I.E.

THE PROGRAM WILL DETERMINE THATM THE HARDWARE SWITCH REGISTER

AN 11/04 OR 11/3%)
IS

452
453
4SY
455
456

NOT FRESENT AND WILL USE R ’'SOFTWARE’ SWITCH REGISTER.
THE
"SOF TWARE " SWITCH REGISTER 1S LOCATED AT LOCATION 176 (8).
THE
SETTINGS OF T
'SOFTWARE® SWITCHES ARE CONTROLLED THROUGH
A KEYBORRD ROUTINE WHICH IS CALLED BY TYPING_A "CONTROL G’
THE PROGRAM WILL RECOGNIZE THE 'CONTROL G_
AT ANY TIME EXCEPT WHEN

:Eg

IN RESPONSE TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE:

Y4
458

THE PROGRAM 1S AT A HIGHER PRIORITY PROCESSING AN RKOB INTERRUPT.
THE 'SOFTWARE’ SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER

:gé

SWR = NNNM
iN

463

NEW =

EACH TIME SWITCH SETTING ARE ENTERED,

464

IMAGE MUST BE ENTERED.

465

THE ENTIRE SWITCH REGISTER

LEARDING ZEROS ARE NOT REQUIRED

YRUBOUT’ AND *CONTRAL U’ FUNCTIONS MAY BE USED TO CORREST TYPING

:gg

ERRORS DURING SWITCH ENTRY.

468

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS,

469

SWITCH REGISTER MAY BE USED.

470

IN THE

471

:;E

477

478
479

POSITION,

’'SOFTWARE’

ALL SWITCH REGISTER REFERENCES WILL BE

TO THE 'SOFTWRRE’ REBISTER AND THE PROCEDURES DESCRIBED qeovs

472

473
474

"UP’

THE

IF THE PROGRAM’FINDS nLL 16 SWITCHES

MUST BE FOLLOWED.

4.5

INPUT DIALOGUE

THE DIALOGUE WILL BE DONE INTERACTIVELY.

REQUEST A PARAMETER BY CONSOLE TYPEQUT.

_THE PROGRAM WILL

THE PARAMETER MAY

THEN BE ENTERED RS SPECIFIED BELOW OR ALLOWED

TO DEFRULT

CZREJED UNIBUS RK& DR_PRT3

CZREJE.P11

25-JAN-78

12:08

MACY1l 30A(10S2)

@25-JAN-78

KOl

12:16

PAGE 10

SEQ 0010

480
Y8l
:gg

BY A CARRIAGE RETURN.
UNRECOGNIZED OR ILLEGAL RESPONSES WILL
BE ECHOED BACK FOLLOWED BY "?*.
THE PROPER RESPONSE MAY
THEN BE ENTERED.

48Y

IMPORTANT:

:gg
487
:gg

4.5.1

:g?

FOR VARIATIONS OF THE ABOVE

SEE XXDP

CONSIDERATIONS IN SECTIONS 3.2

RCT/RPT

DRIVE SELECTION

THE REQUEST WILL BE:

:gg

DRIVES TO BE TESTED:

494

THE DEFAULT RESPONSE IS CARRIAGE RETURN TO TEST ALL DRIVES

49?7
438
;gg

THE OPERATOR CAN ALSO TYPE IN THE SPECIFIC DRIVE NUMBERS
TO BE TESTED, SEPARATED BY COMMARS 3 TERMINATED BY A CRARRIAGE
RETURN.

:gg

IN THE

ggé

E.G.

503

IMPORTANT:

Egg
506
ggg

'DRIVE PRESENT'

4.5.2

DRIVES TO BE TESTED:

TYPE

4.5.3

CONTROLLER INTERRUPT VECTOR
THE REQUEST WILL BE:

ES?

TYPE IN CONTROLLER INTERRUPT VECTOR IF NOT 210

ESS

S30
s31

IN BUSS ADDRESS IF NOT 177440

THE DEFRULT IS A CRRRIAGE RETURN

gig

5e7
gsg

ACT/APT

BUS RDDRESS

gié

Sed
ggg

SEE XXDP

CONSIDERATIONS IN SECTIONS 3.2 § 3.3.

THE REQUEST WILL BE:

S1S
gi?

1,2,4,6

FOR VARIATIONS OF THE ABOVE

g?g

gia

CONDITION.

THE DEFAULT

4.5.4

IS A CARRIAGE RETURN.

EXAMPLE OF PROGRAM DIALOGUE

THE EXAMPLE SHOWN IS FOR A PROGRAM STARTED AT ADDRESS 220.
ALL OPERATOR RESPONSES ARE UNDERLINED.
UNIBUS RKO&6-RKO7 DRIVE DIAGNOSTIC
PART 3

%gs

CZR&JED

s34

DRIVES TO BE

TESTED:

1,3¢CR>

CZRBEJED _UNIBUS_RK& DR_PRT3
25-JAN-78 12:08
CZRBJE.PL1

MACYL1l

30A(1052)

£36
S37

LO1

CAN-78

12:16

SEQ 3011

PAGE 11

TYPE IN BUSS ARDDRESS IF NOT

177440

<«CR>

TYPE IN CONTROLLER INTERRUPT VECTOR IF NOT 210 <CR>
TILL TEST DRIVES:
3
DRIVE

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

PROGRAM EXAMPLE

THE FOLLOWING IS AN EXAMPLE OF A PROGRAM STARTED AT THE

DcFAULT ADDRESS (200) & WITH 2 DRIVES ON THE LINE.
UNIBUS RKO6-RKO? DRIVE DIAGNOSTIC
PART 3
CZRBJED

BILL TEST DRIVES:
1

DFIVE O

82&‘7’5135212&?& fi‘é‘.‘ BBB
DRIVE

DRIVE SERIAL N Q. CCC
CARTRIDGE SER I AL NO. DDD
END PRSS

WILL TEST DRIVES:

DRIVE O
DRIVE 1
END PRSS

& 2

(ETC)
THE

ABOVE RSSUMES E 0

THE NUMBER OF PARSS S

Y A T/RAPT/XXDP

CZR6JEQ UNIBUS RKE DR PRT3
CZRGJE.P11
25-JAN-78 12:08

MACY11l

30A(1052)

§3§

MO1

12:16

PAGE

SEQ 0012

IMPORTANT: FOR VARIATIONS OF THE ABOVE sss xxo= ACT/APT

ggg

@&5-JAN-78

CONSIDERATIONS IN SECTIONS 3.2

4.7

598

HALTING THE PROGRAM

THE PROGRAM PROVIDES A METHOD OF HALTING ITSELF SUCH THAT

599
28?

THE CARTRIDGE AND/OR DRIVE IS NOT LEFT IN ON UNDETERMINED
STATE; IE: HEADS UNLORDED OR INVALID FORMAT.

ggg

TO PROPERLY HALT,

604

TYPE CONTROL-C ($C) ON THE CONSOLE.

IF HEADS ARE LOADED & FORMATTING IS VALID,

60S
606
607
608
298

THE PROGRAM WILL:
1.
2.
3.

2‘§

*F Hsngg ARE NOT 1.ORDED AND/OR FORMATTING IS INVALID,

614
615

1.
2.

618
619
620
6el
seg

4.
5.

sia

ECHO #C
TYP; “CPU HALTED"
HALT
THE PROGRAM

219

PROGRAM WILL:

ECHO
TYPE

tC
'HRLT PENDING,

PLERSE WAIT’

?o Tng E? (3 Ian gonos HERDS AND/OR FORMATS
HE INVALID
YL
TYPE 'CPU HALTED
HALT THE PROGRAM

NOTES:

254

625

THE ABOVE EXAMPLE IS FOR THE PROGRAM RUNNING IN DUMP

noos

(MANURL).

IF THE PROGRAM IS RUNNING IN CHARIN/AUTO

gag

BE VIR XXDP,ACT,APT;

ggg

CALLED 1IN.

70R FORMAT' CORRECTLY

628

IT PIEE FBRST ton?
HEADS

WILL

Junp ON TO THE MONITOR anene THE Néxr PROGRAM CAN BE

631
ggg

THE TYPEOUTS WILL BE "RBORT PENDING - PLERSE WRIT"
8
“"PROGRAM ABORTING"

ggfl

632

SPERRTIN
ROGRAM

’CONTINHE’ Eu*rcn ON THE CPU CONSOLE WILL RETURN THE

TO T ST 1 WHERE

TESTING WILL BEGIN WITH THE 1°ST DRIVE AGAIN.

Egg

5.0

DRIVE DIAGNOSTIC FUNCTIONAL DESCRIPTION

gag

5.1

GENERAL

gzé

OPERATOR INTERVENTION TESTS

643
E:g

THE; ESTS CHECK our ALL THE DRIVE
SWITCHES
AND LIGHTS

646
Y7

THE OPERATOR

AND

TYPE

INTERLOCKS,

INSTRUCTED TO PERFORM A TEST

R SPACE WHEN FINISHED.

FRONT PANEL

CZRBJE.P11]

25-JAN-78 12:08

MACY11l 30R(1052)

@25-JAN-78

NO1

12:16

PRAGE 13

SEQ 0013

649
6S0
ggé

OrERATOR INTERVENTION TESTS CAN BE INDIVIDUQLLY
BYPASSED BY TYPING R CONTROL-E <tE>
ONLY
AT _THE
BEGINNING OF EACH TEST, RS INSTRUCTED BY THE TYPEOUT.

653
654

IF _THE PROGRAM DETERMINES IT WAS LOQDED UNDER
ACT,
APT, OPERATOR INTERVENTION TESTS WILL BE

657

USED

BYPASSED UNLESS THE 'LORD & DUMP MODE’ IS BEING

658
659
gg?
6be

663

66S

666

ggg

£70
g;é

THEY WILL BE BYPARSSED IN *MCNITOR MODE' RS OPERATOR
INTERVENTION MAY NOT BE FERSIBLE IN OVER-NITE
TESTING.

5.2

TEST DESCRIPTIONS
3636 36 36 96 36 36 36 36 36 36 3 3 36 36 36 36 36 36 36 36 3 36 3 3 36 3 36 3 36 36 36 36 30 36 36 30 6 36 36 36 36 38 36 3 36 3 36 36 3 3 3 36 36 3 36 36 3¢ 3¢ 96 3¢ 36 3¢ 3

BRSIC CONTROLLER TESTS,

FHENEHEEE NI
TEST 1

673
674
675
676
g;g
6?7
gg?

SIZING & SETUP

N IR I M0 0600000 06 06 0000636 0600 0000 06 100 000006 0006 000 0 2

REFERENCE ALL CONTROLLER REGISTERS
THIS TEST VERIFIES THRT ALL THE CONTROLLER REGISTERS
CAN BE ACCESSLD.
THE INRBILITY
TO BE RCCESSED WILL
RESULT IN A TIMEQUT TRAP WITH_
AN ERROR MESSAGE.
ANY
ERROR IN THIS TEST WILL RESULT IN ABORTING ALL OTHER
TESTS AND JUMPING TO
’END OF PRSS’

TEST 2

e8e
683
684
685
686

SIZE THE BUSS

THIS TEST IS ENTERED ONLY IF ’*DRIVE SELECTION’ IS DEFRULTED
EITHER BY RUNNING IN THE AUTO MODE OR A 200 START IN THE
MANURL MOODE.
EVERY DRIVE FROM O THRU 7 IS RDORESSED.
CONTROLLER ERROR (CERR) IS EXARMINED AND IF _NOT SET

687

DRIVE WILL BE TESTED RS AN RKO6. IF SET, THE PROGNQN NILL BYPASS

689

MDS,

688

TESTING THAT DRIVE ONLY If THE ERROR WAS'A RESULT OF

Eg?

632

IF CERR DUE TO DTYE,

633

ggg

UFE OR NED BEING SET;

OR BOTH NED & DRA RESET IN-

DICATING THE OTHER PORT 18 ACCESSED.
AN RKO?7

TEST 3

THE DRIVE WILL BE TESTED RS

VERIFY OPERATOR DRIVE SELECTIONS

£98

THIS TEST IS _ENTERED ONLY IF DRIVE SELECTION IS NOT

701
70e

IF NOT
S
THE
PROGRAM
WILL
QSSUNE
THE
DRIVE
IS
PRESENT
AS
QN
kKO&
IF CERR WARS SET,
THAT DRIVE WILL BE BYPASSED

6399

700

703

DEFAULTED.

EVERY DRIVE FROM QO TO 7 IS ADDR ESSED &

CONTROLLER ERROR (CERR) 1S _EXAMINED.

ONLY IF THE ERROR WAS A RESULT OF MDS OR UFE SET OR BOTH

CZREJEO UNIBUS RK& DR_PRT3

RN NSRRRRRNERNNNAAheannmhaemmammm—nmn—m—-

CoREJEC UNIBUS RK& DR_PR7T3

CZRBJE.P11

25-JAN-78

12:08

MACY1l 30A(1052)

2S5-JAN-78

704
720S

706

IF CERR DUE TO DTYE,

:ié

TEST 4

913

THE DRIVE WILL BE TESTED

FIND NEXT DRIVE TO BE TESTED
ADDRESS IN 'DRVARD’ & STMP4 IS SET TO CDT IF DRIVE
DRIVE IS RKQ?
THROUGHOUT THE FOLLOWING TESTS, THE DRIVE TESTED IS
THE DRIVE WHOSE ADDRESS IS IN
"DRVAD’

719

Zg?

TEST §

?22

PRINT DRIVE SERIAL NUMBER

THIS TEST READS & PRINTS THE DRIVE SERIAL# FROM MSG A, WORD 11

;Sa

IN DECIMAL & IS PERFORMED ON THE 1ST PASS ONL

725

;g%

TEST 6

;Sg

SET VV WITH PACK COMMAND

IF vV IS RESET,

;g?

TEST 7

732

THE PACK COMMAND IS USED TO SET IT.

UNLORD DRIVE TO BE TESTED
THIS TEST UNLORDS THE DRIVE TO BE TESTED NEXT

;ga

;:g

SEG 0014

THIS TEST FINDS THE NEXT DRIVE PRESENT & PUTS THRT

714
718
716
;ig

740
741

PAGE 14

RS AN RKO7.

709
710

737
;gg

VERIFY It WAS NOT SPECIFIED

708

736

- R

NED
& DRAR RESET (WRONG PORT).
IF CERR IS
A RESULT OF
NED ONLY,
IT IS CHECKED AGRINT THE INPUTTED INFOR TO

707

73S

12:16

WSS~

WAITS FOR ATTN 8 VERIFIES IT CAME FROM THE CORRECT DRIVE.
:

33 3 3636 36 38 3 36 36 36 3 3 36 36 36 36 36 36 36 36 36 36 36 36 36 36 3 36 36 3 3 3 6 36 38 3 3 36 36 36 36 36 36 36 36 3 3 36 36 36 36 36 3 3 2 96 3 3 3 % 3¢ 3¢ %

OPERATOR INTERVENTION TESTS
363
3 36 96 3 36 36 36 36 36 3 36 36 36 36 36 36 36 3 36 36 36 36 36 36 3 36 3 36 36 36 36 36 36 36 3 36 3 36 3 3 36 36 3 3 36 36 36 B 3¢ 36 36 36 3¢ 3 3¢ 3¢ 36 3¢ 3¢ 3¢ 3¢ 3¢

TEST 10 INTERLOCKS TESTS

794

THIS TEST VERI' IES THAT THE DOOR 8 CRRTRIDGE STATUS BITS

745

ARE _OPERATING PROPERLY IN MESSAGE R0 & THART THE REMOVAL

746
747
748

OF THE CRRTRIJGE CLERRS VOLUME VALID.
IT FURTHUR VIL.RIFIES ALL REMAINING STATUS BITS OF
MESSAGE A & 3,
WORDS 0 & 1.

750
751

WHEN THE DOCR IS OPEN OR THE CARTRIDGE IS REMOVED.
IT ALSO VERIFIES THAT LOSS OF VOLUME VALID RESETS SACK WHICH

749

THIS TEST ALSO CHECKS THAT THE SPINDLE CANNOT BE STARTED

;gg
754

;EE
757
758

759

ASSERTS NON EXISTENT DRIVE IN RKCSe
TEST

11 UNIT SELECT PLUG TEST
THIS TEST VERIFIES THAT WHEN THE UNIT SELECT PLUG IS PULLED
OUT, THE QUAL LOGIC RESETS ATTN & VOLUME VALID,
THRT

THE 'DRIVE DE-SELECTS & NON EXTSTENT DRIVE RSSE#TS

CZR6JED UNIBUS RK& DR PRT3
CZR6JE.PI1
25-JAN-78 12:08

MACY11 30AR(1052)

25-JAN-78

caa

12:16

PAGE 1S

SEQ 0015

760

FURTHUR,

76
;su

? #US ?oos NUMBER AS SOON AS IT IS INSERTED.
THIS
PORTION OF THE
TEST IS TERMINATED AT ANY TIME BY A CONTROL-C

761

765
;E?

TEST

768
769

IN BOTH CASES,

772
773

;;g

CLO CANNOT B

RFTER POWER UP,
TEST

787

DIRECTLY

SINCE IT REQUIRES

VOLUME anxo Is cuscxso TO BE CLERRED.

14 CHECK NXF LOGIC
THIS TEST VERIFIES NON-EXECUTABLE FUNCTION

;gg
790

SEC;OQOEUL?ES N' RTORcuegfioo S NON-EXISTENT
THEREFORETHE INRI¢AT
AlSaNONSEXISTENT . o

;gg

;gé

PART 1

A PRELIMINARY AC LOW TEST xs Psnronnso HERE WHILE HERDS ARE UNLORDED.
ATTERY R TRRET §§E BB E% % s

;gg
281
784

NON EXISTENT DRIVE SHOULD RSSERT IN RKCS2

TEST 13 AC LOW DETECTION

778

;gg

12 PORT SELECTION TESTS

THE OPERATOR IS ASKED TO SWITCH TO THE WRONG PCRT
8 THEN DESELECT BOTH PORTS,

;;9

776
777

THE OPERATOR IS ASKED TO INSERT ANY NUMBER OF

UNIT SE(ECT PLUGS. THE PROGRQM WILL RESPOND BY TYPING

(NXF)

1S DETECTED

AS A RESULT OF DOING R SEEK WITH VOLUME VALID RESET.
TEST 15 READ & SAVE BAD SECTOR INFO 8 TYPE PACK SERIAL #

793

TKIS TEST VERIFIES THAT CYL B32 (1456 FOR RKD?),

795
796
797

FACTORY DURING MANF.
ALL BAD SECTOR INFOR (BSE) WILL BE STORED
nr
Tué
S TIME TO MASK FUTURE R AD H noen OR
DRTA
ERROR PRINTOUTS
?3 éurgnfnnuongg
nsn
é
FTER READING
HE BSE INFO

799
800

A MESSARGE WILL BE TYPED INDICATING THAT ALL
FUTURE FORMAT AND READ-WRITE TESTS WILL BE BYPRSSED.

gga

THE PACK SERIAL # IS TYPED IN OCTAL 8 FOR THE FIRST PRSS ONLY.

794

~98

ggé

805

ggg

ntxcnn NT CR TRIDGE 1S USE

THIS IS DONE SO AS NOT TO DESTROY BSE INFOR OR AN ALIGNMENT PACK BY WRIT

TEST

00 €D D (D WD (O (DD
s e s e 0= e OO
"N £ W00

TRACK 2 CAN BE READ.

THI? AREAR CONTARINS BAD SECTOR INFOR WHICH IS WRITTEN BY THE

16 WRITE LOCK TEST

THIE TSS ER*FIES THAT DATA WRITTEN ON A SECTOR CANNOT BE
ALTERED
ONCE
THE WRITE LOCK SWITCH HAS BEEN ENABLED
IT ALSO CHECKS THRT WRITE PROTECT TAKES EFFECT ONLY ‘AT
SECTOR BOUNDRIES WHEN DOING CONTINUOUS WRITING ON CYL O, HERD O
TEST

17 AC LOW DETECTION PART 2

CZRBJE.P11

25-JAN-78

12:08

MACY11 30R(1052)

25-JAN-78

pbo2

12:16

THIS TEST

glg

AT SECTOR

81
81

THERE IS
WHEN THE

824

PAGE 16

SEQ 0016
THAT WHEN AC POWER IS LOST,

= 41))

CZR6JEC UNIBUS RKb DR PRT3

THAT WRITING CERSES

& THAT THE BRTTERY RETRACY IS FUNCTIONAL.

§H5§guggmNnc LOW ASSERTING AND NED RSSERTING

TEST 20 END OF PROGRAM

826
827
828
829
830

THIS IS NOT A TEST BUT A LINKAGE TO PERFORM ALL THE
ABOVE TESTS FOR THE NEXT DRIVE PRESENT.
THE NEXT TEST IS ENTERED ONLY ARFTER ALL DRIVES PRESENT
HAVE BEEN TESTFD.
DO NOT LOOP ON THIS ’TEST’.

833

TEST 21 MULTIPLE DRIVE DETECTION TEST
THIS TEST IS PERFORMED ONLY ONCE AT THE END OF PRSS 1

836

AND IS BYPRSSED IF ONLY ONE DRIVE IS PRESENT.

838

THE MULTIPLE DRIVE DETECTION LOGIC IS TESTED BY THE FOLLOWING METHOD:

840
84]
g42

A. HEADS MUST
LOADED (SECTOR PULSES REQ’D)
B. THE OPERATOR IS INSTRUCTED TO INSERT THE SAME UNIT SELECT
PLUG NUMBER (1 PAIR AT A TIME) ON ANY 2 DRIVES

844

C. THE OPERATOR TH;N EEPRE SES_THE SPACE BAR TO CONTINUE THE T=S

843

70 BE TESTED

84S

OR A CONTROL-C

EXIT

THE TEST

847
848

THE PROGRAM VERIFIES THAT MULTIPLE DRIVE SELECT & DRIVE UNSAFE
BOTH SET & THAT THE DRIVE UNLORDS

8s0

THE OPERATOR 1S ASKED TO VERIFY THAT HEADS UNLORD FROM BOTH DRIVES

854

THE PROGRAM DOES NOT REQUIRE FORMATTED PACKS AS FORMATTING

828

;8552? UP’ TEST TO PUT THOSE CYLINDERS BACK TO STANDARRD

8ss

IS PERFORMED IN ANY CASE.

ANY TEST THAT MODIFIES STANDARRD FORMATTING IS FOLLOWED BY R

858

863

6.0

ERROR REPORTING

866

6.1

ERROR INTERPRETATION

868

WHENEVER AN

870

MSG A(00),

869

ERROR MESSAGE IS PRINTED OUT,

ALL REGISTERS

AND OTHER DATR PERTRINING TO THE ERROR ARE ALSO GIVEN.

871

MSG B(0l),

RKER,

RKBA...ETC,

INDICATE THE

CONTENTS OF THE CORRESPONDING REGISTERS AT THE TIME OF

CZR6JED UNIBUS_RK& DR _PRT3
CZReJE.P11
25-JAN-78 12:08

MACY1l

30A(1052)

EO2

PRGE

12:16

25-JAN-78

SEQ 0017

ERROR.

EVERY ERROR MESSAGE CONTARINS R PC.
THIS PC INDICATES THE
POSITION IN PROGRAM WHERE THE ERROR CALL IS LOCATED.
THE
ERROR MESSAGE
BECRUSE OF PRACTICAL CONSIDERATIONS IS HRDE

SHORT AND MEANIN

THE USER IS ADVISED TO LOOK
UP

PC IN THE PROGRQH LISTING

ABOUT THE ERROR.

WHERE HE NILL FIND MORE INFORMQTION

IN MANY INSTANCES

SINGLE FRULT WILL

GIVE RISE TO MORE THAN ONE ERROR RE#ORT R LITTLE DELIBERQTION
AND CAREFUL EXAMINATION OF THE DRTR GIVEN WILL BE CERTAINLY
VERY HELPFUL IN PINPOINTING THE FAULT.

R BRIEF EXPLRNQTION

OF WHAT IS BEING CHECKED IN THE TEST 1S GIVEN AT THE
BEGINNING OF EVERY TEST.
~ALL THE NUMBERS GIVEN WITH ERROR
MESSQAGES ARE

IN OCTAL.

NOTE

NO ERROR LOGGING OR OPERATION HISTORY 1S PROVIDED.
.2

ERROR PRINTOUT EXRMPLE:

DEPRESS

'RUN-STOP’'

SWITCH TO

'RUN’

WHILE DOOR OPEN

VERIFY SPINDLE DOES NOT START 3 HEARDS DO NOT LORD

DEPRESS SPRCE BAR WHEN FINISHED
SPINDLE ON SET IN RKMRe
RFTER MANUALLY LOARDING HEARDS WITH DOOR OPEN
TEST NO.

000010
015700
RKMR2
RKMR3
RKER

050343

SO ODODDDDODDD
m....-.y—.—-.—.—y—....—...o
OV LWN-OWO

908

100000

000000

RKDS

140301

RKCS1

0402C0

RKCS2_

000103

RVASOF

Gu4000

MESSRGE A0 ERROR
AFTER MANUALLY LOADING HEADS WITH DOOR OPEN
TEST
NO.

000010_

RO
100143
0S0343
RKCS1
040200

015736
EXPECT

BO
100000

Al
000S43

B1
00000!

100000
RKCS2
000103

001723
RKRSOF
004000

00000l
RKER
000000

ACTUARL

RKDS
140301

RKDC
000000

THE ABOVE EXAMPLE SHOWS EXPECTED & ARCTUAL DATA FOR
MESSAGE REGISTERS RO, BO, Al & BI.

MESSRGES R2,

B2 & B3 WILL BE TYPED QUT ONLY AS REQUIRED

IF THE CYLINDER DIFFERENCE/OFFSET, CYLINDER RDDRESS 8
#EEDTES$ECTOR INFORMATION ISA VARIABLE PARAMETER OF

CZREJEO UNIBUS RK& DR _PRT3

CZRBJE.P11
928
929

930

2S5-JAN-78

12:08

MACY11l 30A(1052)

25-JAN-78

FOe

12:16

[

PAGE 18

END OF DOCUMENT

SEG 0018

)

C<RBJED UN.BUS RK& DR PRT3
CZRBJE.P11
25-JRAN-78 12:08

MARCY11 30R(10S2)

@25-JAN-78

GOe

12 rfi“PRGE 19

; ¥x% PGM REV 036 LS

NLIST
LIST
.ENABL

CND,MC,
M

ME
RBS, AMA

; DEFINE SYSMARC MACROS

§SWR=

167400

.TITLE

CZRG&JEO umaus RKG6 DR PRT3

§TN=

s DEFINE SWITCHES 15, m 13,11.10.9,8

: %COPYRIGHT

(C)

'SET FIRST TEST NO. T0’1
1976,1977

:%DIGITAL EQUIPMENT CORP
:HQYNQRD MARSS. 01754

lPROGRRH BY GRRY PRPAZIAN
!THIS PROGRAM WAS RASSEMBLED USING THE PDOP- 11 MRINDEC SYSMARC

iPRCKQGE (MRINDEC-11-DZQARC-C3), JAM 19, 1977

OPERRTIONAL SWITCH SETTINGS

SWITCH

*
¥

15
14

USE

s WeWEMI
O W

me we

SBTTL

167400

000001

*
*
*
¥
*
#

SBTTL
‘!

*
*
:

HALT ON ERROR
LOOP ON TEST

13
12
11
10
9
8

INHIBIT ERROR TYPEQUTS
DRIVE RFTER 20 ERRORS
ABORT
INHIBIT
ITERATIONS

BELL ON ERROR
LOOP ON ;RROR
LOOP ON
TEST IN SWR<7:0>

SUMMARY OF STARTING LOCRTIONS

200
el
240

DEFAULT PARAMETERS
INPUT PARAMETERS
oDTil

SEQ 3019

CZR6JEQ UNIBUS RK& DR PRT3

CZR6JE.P11L

25-JAN-78 12:08

30R(1052)
25-JAN-78
BASIC DEFINITIONS
.SBTTL

977
978

979

MACY1l

001100

EOU% énq ERROR

CRLF=
PS=

LEQUIV

'BASIC DEFINITION OF SCOPE CALL

DEFINITIONS

; ;CODE FOR HORIZONTAL TARB

12
15

;ocooe FOR LINE FEED
E
FOR cnanfncé RET
URN

200
177776

coo FOR CARRIAGE RETURN-LINE FEED
,,PROCESSOR STATUS WORD

PS,PSW

STKLMT= 172774

PIRG=

DSWR=

00ISP=

Pt
P
s Bt et P
s
B
s
e Pt Pe
Do Pt Bt Bt et it Bt B
e D

0000000000000 000000000C00D
W W WM N NININN MY N MU N P 4 e ps e pt s pa e 1= D O
N—=OLoONCVNIWNN—ODONON
L WN—0O 0D

Pt Do

0000030
000040
000100
000140
000230
000e40
0co300
000340
100000
040000
020000
010000
004000

000904

OGRAM INTERRUPT

177570
177570

: ' HARDWARE DISPLAY REGISTER
REGISTER osrxnxrxons

:GENERAL REGISTER

,,ceneggt sscxs;rs

RY=
RS=
Rb=
R7=
SP=
PC=

%4
%5
%6
%7
%6
%7

: : GENERAL REGISTER
:'GENERAL REGISTER

. ¥PRIORITY

PRO=

PR1=
PR2=
PR3=
PRY=

40
100
140
200

PRE=

300

PRS=

PR?=

;;85 RAL REg}g E

: 'GENERAL REGISTER
;;GENERRL REGISTER
' 'STACK POINTER
} ! PROGRAM COUNTER
LEVEL

DEFINITIONS

LEVEL 1
LEV L g
LEVEL
LEVEL Y4

3490

P PRIORITY LEVEL 7

40
20000

SWlili=

4000

SWOB8=

400

SW07=
SW0b=
SWOS=
SWOY=
SW03=
SWie=

:'PRIORITY
;;PRigR 1Y
s s
PRIORITY
; ;PRIORITY

:iPRIORITY LEVEL S

SWid=
SWi13=
SW10=
SW09=

: sPRIORITY LEVEL O

240

- ¥”SWITCH REGISTERTM

SuW1

2000
1000
200
100
40
20
10
4

REQUEST REGISTER

,,HRRDNRRE SWITCH REGISTER

fié‘

R3=

000007

TACK LIMIT REGI?TE

177772

#GENERAL_PURPOSE

ko=

1100 %*xx

,,anxc DEFINITION OF ERROR CHLL

IOT.SCOPE

*MISCELLANEOUS

LF=
CR=

SEQ 3020

BRSIC DEFINITIONS

éTQCK-

bT=

000000

PARGE 20

®INITIAL ADDRESS OF THE STACK POINTER %

-EQUIV

17757C

HO2

12:16

; sPRIORITY LEVEL &

SWITCH DEFINITIONS

CZR6JED UNIBUS RKE DR PRT3

CZRBJE.PI11
1033
1034
1035
1036
1037
1038
1039
1040
1041

25-JAN-78 12:08
000002
000001

1042
1043
{ggg

1046

1047

1048
1049
1050
1051
1052

MACY11l 30A(iNS2)

BRSIC DEFINITIONS

sWol=
SWo0=
CEQUIV
"EQUIV
JEQUIV
.EQUIV
-EQUIV
JEQUIV
"EQUIV
TEQUIV
"EQUIV
-EQUIV

100000

040000
020000
010000
004000
002000

25-JAN-78

I02

12:16

PAGE 21

2
I
SW09, SW9
SWO8,SW8
SW07,SW7
SWO6, SWe
SWOS,SWS
SWOY.Swd
SWO3.SW3
02,
SWO!.SWI
SWO0,SW0

. ¥DATA BIT DEFINITIONS (BITOO TO BITIS)

B8IT1S=

1000

8ITi4=
BIT13=
BITi2=
BIT1I=
BIT10=

40000
20000
10000
4000
2000

BITOB=
BIT07=
BIT06=
BITOS=
BITO4=
BIT03=
BITO2=

40O
200
100
40
20
IO
4

10583

001000

BIT09=

1061
1062

000002
000G31

BITOI=
BITOO=

1075

000004

£RRVEC= 4

s TIME OUT AND OTHER ERRORS

1077
1078
1079

000014
000014
000014

TBITVEC=14
TRIVEC= 14
BPTVEC= 14

i7" BIT
: ' TRACE TRAP
: 'BREAKPOINT TRAP (BPT)

1081

000024

1054
1055
1056
1057
1058
1059
1060
1063
1064
1065
1066
1067
1068
1069
1070
1071
ig;g

10749

1076
1080

000400
000200
000100
000040
000020
000010
000004

000010

000020

.EQUIV
.EQUIV
-EQUIV
"EQUIV
"EQUIV
.EQUIV
"EQuiv
"EQUIv
"EQUIV
JEQUIV

1000

2
|

BI709,BIT9
BI7108.,B118
BIT07,BI17
BIT06,BITE
BITOS.BITS
BITO4,BITH
BIT03'BIT3
BIT02,BIT2
BITO1,BITI
BIT0O0.B1TO

. ¥BASIC “CPU" TRAP VECTOR ADDRESSES

RESVEC= 1

I0TVEC= 20

PUS/EC= 24

: 'RESERVED AND ILLEGAL INSTRUCTIONS

: L INPUT/QUTPUT TRAP (I0T) #¥¥SCOPE#»
! 'POWER FAIL

1082

000030

EMTVEC= 30

: LEMULATOR TRAP (EMT) #%ERROR#¥

;ggg

000240

PIRGVEC=240

! ! PROGRAM INTERRUPT REQUEST VECTOR

1083
1084
1085
1

1088

000034
000060
000064

TRAPVEC=34
TKVEC=
60
TPVEC=
64

.SBTTL

:ISTRAP* TRAP
::TTY KEYBORRD VECTOR
17Ty PRINTER VECTOR

RKO& CONTROLLER REGISTER DEFINITION

SEQ 0021

1089

1090

MACY11 30R(1052)
25-JAN-78 12:16 PAGE 22
RKO& CONTROLLER REGISTER DEFINITION
:

$BASE=177440

1092

000000

RKCS1=

s CONTROL AND STATUS REGISTER 1

1094
1095

000004
000006

RKBR=
RKDR=

4
b

;BUS ADDRESS REGISTER
!DESIRED TRACK SECTOR REGISTER

1108

.SBTTL

CONTROL AND STATUS REGISTER 1 BITS (RKCS1:0)

1110

;

DRIVE COMMANDS

1093

1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
110

000002

000010
000012
000014
000016
000020
000024
000026
000034
800036
000030
000032

1112

000001

1114
1115
1116
1117

000005
000007
00001 1
000013

1119

000017

1121

000023

1113

1118

1120

1122

1123
11ed

1126

RKWC=

RKCS2= 10
RKDS=
12
RKER=
14
RKASOF= 16
RKDC=
20
RKDB=
&4
RKMR1= 26
RKMR2= 34
RKMR3= 36
RKECPS= 30
RKECPT= 32

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

‘DRIVE CLEAR
: UNLORD
START SPINDLE
i RECAL IBRATE

SEEK=

! SEEK

000015

OFFSET= 15

000021

RODATA= 21

000001

GO=

8170

BR17=
coT=
€To=

BITS
BITIO
BITI]

1133

CFMT=

1136
1137

020000
040000

100000
100000

1144

000007

000010
000020
000040

:READ DATA

‘WRITE HERDER RND DATA
‘WRITE CHECK

RDHERD= 25

1133

FSET

WRHERD= 27
WRTCHK= 31

000025

601000
002000
004000
010000

1142
1143

' PACK ACKNOWLEDGE

;WRITE DATA

1E=
RDY=
BAl6=

1141

WRDATAR= 23

000100
000200
000400

1134
1135

!CONTROL AND STATUS REGISTER 2
: DRIVE STATUS REGISTER
ERROR REGISTER
'ATTENTION SUMMARY AND OFFSET REGISTER
' DESIRED CYLINDER REGISTER
:DRTA_BUFFE
nnxnrsuancs REGISTER 1
!MATNTENANCE REGISTER 2 (MESSFE LINE A)
'MAINTENANCE REGISTER 3 (MESSAGE LINE 8)
ECC POSITION INFORMATION
'ECC PATTERN INFORMATION

;SELECT DRIVE (GET STATUS)

PACK=

000027
000031

'WORD COUNT REGISTER

SELDRvV= |

000003

1127
1128
1129

1130
1131
1132

BITE
BIT7
BITB

BITI2
DCPAR=
BIT13
=
BITIH

‘READ_HEADER
o BLI

INT RRUPT ENRBLE
:CONTROLLER READY
:BUS RDDRESS BIT 18

:BUS ADDRESS BIT 17
! CONTROLLER DRIVE TYPE (0=RK06, 1=RK0?7)
: CONTROLLER
TIMEOUT

! CONTROLLER DRIVE FORMAT (0=22 SECTOR,

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

CERR=
CCLR=

BITIS
BITIS

.SBTTL

CONTROL AND STATUS REGISTER 2 BITS (RKCS2:10)

DRVMSK= 7

RLS=
BAI=

SCLR=

BIT3
BITH

BITS

SEG 0022

' CONTROLLER ERROR
:CONTROLLER CLEAR

:MASK FOR DRIVE SELECTION CODE

'DESELECT OR RELEASE DRIVE IN BITS 0-2
BUS ADDRESS INCREMENT INHIBIT

"SUBSYSTEM CLEAR CONTROLLER AND ALL DRIVES

CZR6JEOD UNIBUS RKG DR PRT3
25-JAN-78 12:08

CZReJE.PIl

Jo2

Mo th

Dt Bt

0D O O
0000

040000
100000

St
- Pt ot Pt e e b= ) (D I U
nLwne—o

000100
000200
000400

Pk = Dl 0t Bt Bl D

IBUS_RKb DR _PRT3
25-JAN-78 12:08

Kae

PAGE 23
12:1b
25-JAN-78
ONTROL RAND STATUS REGISTER 2 BITS (RKCS2:10)

38&(1052)

:OUTPUT RERDY
UNIT FIELD ERROR

MULTIPLE ODRIVE SELECT

PROGRRHHING ERROR
iNON-EXISTENT MEMORY
INON-EXISTENT DRIVE
:UNIBUS PARITY ERROR
iWRITE CHECK ERROR
;DATA LATE ERROR
(RKER:14)

,sLLEGflL FUNCTION CODE
; SEEK_INCOMPLETE

:NON-EXECUTRBLE FUNCTION
'DRIVE DETECTED SERCON PARITY ERROR
:FORMAT_ERROR
:DRIVE TYPE ERROR
{ECC HARD
:BAD SECTOR ERROR
{HEADER_VRC ERROR
-

DRESS OVERFLOW ERROR
KnflggRESS ERROR: HERD/CYL

50
0

N £ WO
=
b e 1= DD NI
L£WN-O

020000
040000

0l Dt bl D=t O

b D= P

A A~

[selsalovlovloslasloalonlesloolenlonTen]on]oe]

000001
000002
000004

SEQ 0023

; INPUT _READY

ERROR REGISTER BIT DEFINITION

Pl D

-C
-Z

Gty

MM
NOC N LWN—ODVDNCNLWN—ORO NN

SINNOCOC
OO
oNNINNGINININNINIE L £ £ £

V-0V

OO0
NN

Pt Pt s P Pt Pt Pt P Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt P Pt Pt Pt Pt

MACYL1

ERROR
EARCH) INCOMPLETE

CZRGJEQ UNIBUS RK& DR _PRT3

CZRBJE.P11
ii;a

25-JAN-78 12:08
100000

{{;g

MACY1l

30A(1052)

25-JAN-78

LO2

12:16

ARG
PAGE
24

ERROR REGISTER BIT DEFINTITION
DCK=

BIT1S

.SBTTL

STATUS REGISTER BIT DEFINITION

1177
1178

000001

DRA=

BITO

1179
1180

1181

000004
000010

BIT2
BIT3

118¢
1183

000020

OFST=
ACLO=

000040
000100

DROT=
Vv=

BITS
BITb

DCLO=

BITH

SEQ 0024

(RKER:1%)
; DRTA CHECK
(RKDS:12)

DRIVE AVAILABLE (CONTROLLER IS SET IF
HIS BIT IS RE"°T)

DRIVE OFFSET
,QC
N
;0C _LOW

iDRIVE OFF TRACK
: VOLUME VRLID

1184
1185
1186

000200
000400
004000

DRDY=
DOT=
WRL =

BIT?
BIT8
BIT1l

1188

a40000

DSC=

BITIY

.SBTTL

MRINTENANCE REGISTER 1 BIT DEFINITION (RKMRl:22)

1187

{igg

020000

100000

i{gé
1193

000017

PIP=

SvAL=
MESMSK=

; DRIV
; ORIV
TYPE
;WRITE
L

(0=RKO&, 1=RK07)

B{TIB

PO%ITION NG IN PROGRESS

BITIS

iSTATUS VALID

RIVE STRATUS CHANGE

; MESSACE HQSK

{igg

080850

SaT-

BI;H

Foggg gV PARITY ON SERCON MESSAGE LINES

}{gg

808588

MIND=

BI;?

HQINTENQNCE

1200

002000

1196

1199
1201
1202
1203
1204
isgg

80 10

001000

004000
010000
020000
040000
100000

isgg
1209

000040

MSP=

Hgk

MEWD=

BiTZ
BITg

BITiO

PCA=
BITI1l
PCD=
BITlie
ECCW=_
BITI1?
WRTGAT= BITI1Y
RDGARTE= BITIS

g INT NRNSE"gEETOR PULSE

} E“RNSE EhgngD REQD DQTR
INTENANCE ENCODE

ITE DAT

PRECOHPENSRTION RDVR CE
: PRECOMPENSATION DELRY
JEC NORR ES BEING READ OR WRITTEN
SWRIT
{READ GATE

.SBTTL

DEFINITION OF DRIVE STARTUS BYTE 00 MESSAGE R

D.DRA=

BITS

(RKMRZ2:34)

;DRIVE AVAILABLE

1210
iell
1212
1213

000100
000200
000400
001000

D.vv=
BITb
D.DRDY= BIT?7
D.DDT= 8178
D.FORM= BIT9

:VOLUME VAL ID
:DRIVE REARDY
{DRIVE TYPE (D=RKOG&, 1=RK07)
;DRIVE FORMAT

1217
iSig

020000
040000

D.PIP=
D.DSC=

B8IT13
BITIN

;POSITIONING IN PROGRESS
:DRIVE STATUS CHANGE

.SBTTL

DEFINITION OF DRIVE STARTUS BYTE 0l MESSARGE A (RKMRe2:34)

D.SSp=

BITH

1214
1215
1216

002000
004000
010000

igg?
1222

1223
1224
1eeS
1226
iee?
1228

000020

000040
000100
000200
000400
001000
002000

D.OFF=
BITIO
D.WRL=
gITll
D.SPIN=
BITle

D.40HM= BITS
D.&rPHM= BITH
D.DUUR= BIT?
D.CART= BITSY
D.SPOK= BIT9
D.FWD= BITIC

; OFFSET ON
;WRITE
LOCK
; SPINDLE
ON

; SERVO SIG PRESENT

; HERDS
HOME
: BRUSHES _HOME
:DOOR INTERLOCKED
:CARTRAGE INTERLOCK
SPEED OK
: FORWARD

540883

BIT11
D.REV=
D.LORD= Bl}ig
8.RTZ=
.UNLD=

giTlH

040000

00000000000

Pt Pt ot Bt o P

4Ss

MO2

PAGE 25
DEFINITI ON OF DRIVE STRTUS BYTE 01 MESSARGE R

.SBTTL
000040

25-JAN-78

30A(10S2)

IDRE=

.ACLO=
.FLT=
NXF=
.PAR=
.SK1=
.WLE=
.SPLS=
.DROT=
.UNS=

12:16

(RKMR2:34)

; REVERSE

;HEADS LOADING

HERBSUNLO%BING

DEFINITION OF DRIVE STATUS BYTE 00 MESSAGE B (RKMR3:3b6)
b= b b
02 OO N O
£ W—O

004000
010000

o Pt s Pt Pt P

oo Pt

Y LRV
N PUMN
VM P VBV
L
L L £ LWWWWWWWWW
LW 000NN £ W

1229
1230

MACY11l

0 (000D
) M D MM

CZR6EJEO UNIBUS RK& DR PRT3
CZRBJE.P11
25-JAN-78 12:08

IgVfiBID DISK ADDRESS ERROR:HERD/CYL

:DRIVE FAULT
:NON-EXECUTABLE FUNCTION CODE
:DRIVE DETECTED SERCON PARITY ERROR

{SEEK _INCOMPLETE
NR&T 88K ERROR
S
;DRIVE OFF TRACK
R/N UNSAFE

s Pn

&TE SRT; AND NO TRANSISTIONS

HULTIPts HERD SELECT

; INDEX
E I BIT ERROR
0 ERROR
E EK_AND_NO _MOTION
1 MIT DETECT ON SEEK

SERVO UNSAFE

COMMON MASKS AND OTHER BITS:

o ot Pt
s et ot

; SECTOR ERROR

NRITE CURRENT AND NO WRITE GARTE

I‘U')v-l

D
D
D MU 0o WO
NNNOT OO o
-0 WO NN LW [m)

s Bt Pt

e
=
—
= bt e 0= LOD IO U £
LWN—-0O

000020
000040

Sl 5=t 08 0=t D=t P b=l D4 P4 (]

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

77770

;DRIVE CODE,

100000

ALL BYTES

:DRIVE SERIAL ®, BYTE 11

COMMON MASKS AND OTHER BITS:

BITIN

MESSAGE R (RKMR2:34)

MESSAGE B

;BYTE ID,

(RKMR3:36)

ALL BYTES

760

JALIGN SiGN,

BITIS

'PARITY, MESS A/B, ALL BYTES

7000

:SECTOR couhrBYTE
BYTE10 11
‘HERD DECODE, 'BYTE 11

SEQ 0025

CZR6JE.P1L

25-JAN-78 12:08

MACY11l 30A(1052)

25-JAN-78

NO2

12:16

COMMON MASKS AND OTHER BITS:

1273

{g;g

.SBTTL

PRGE 26

MESSAGE B (RKMR3:36)

TRAP CATCHER

1276
1277

000000

=0
s #ALL UNUSED LOCATIONS FROM
4 - 776 CONTRIN A * 42, HALT”

isgg

000174

*LOCRTIONI; CONTARINS O TO CATCH IMPROPERLY LOARDED VECTORS
DISPREG:
SWREG:

1278

4SE0UENCE TO CATCH ILLEGAL TRAPS AND INTERRUFTS

1e81
1282

000174
000176

000000
000000

iggg

000200

888536

010012

isgg

000220

000137

000240

000137

1283

1288

isgg

000240

{Sgé
1293

1294
12985

1296

.SBTTL

.WORD
WORD

STARTING ADDRESS(ES)

010002

JMP

PRRSRT

; INPUT ALL PARAMETERS & START TESTING

0Ss4se

JMP

0.007

;ENTER 0ODT11

.=240

ACT11 HOOKS

< B0 600606 96 36 6 00 06 36 36 3636 3636 36 36 36 36 36 36 36 96 36 36 36 36 06 36 06 36 36 36 36 36 36 26 36 96 36 36 36 36 36 36 36 36 36 26 36 6 36 26 06 36 06 6 % 3 %6 %

000244

hOOKS REOUIRED BY RCT11

000046

SS PC=

; SAVE PC
:;1)SET LOC.46 TO ADDRESS OF SENDAD IN .SEOP

000046

Q24022

SENDQD

1299
1300

0000Se

120000
000244

. WORD
.=SSVPC

1301

0000s2

001000

iggg

1304

1313

000024
000044

APT PARAMETER BLOCK

000024

- =2y

000200
000044
001000
001000

?00

SRPTHDR
$X

,,SET POWER FQ%L TO POINT TO START OF PROGRAM

;:FOR APT START
UP
; ;POINT TO APT INDIRECT ADDRESS PNTR.
,,POINT TO APT HEADER BLOCK
RESET LOCARTION COUNTER

&i;;i;*!iii4!&&5&*;45{!&}&;**!!*&*&*liiii*&*iiil**l;;***iil**;i

SETUP APT PARAMETER BLOCK RS DEFINED IN THE APT-PDPl1 DIAGNQSTIC
INTERFRCE SPEC.

1317
1318
1319
1320

0010920
001000
001002
001004

igga

001012

001006
001010

000000
001210
0O004SH4
001130
001130

000052

$AFTHD:
SHIBTS:
$MBADR:
$TSTM:

SPRASTM:
SUNITM:

{ggg

i3e7
1328

.=1000

,,E)SET LOC.S2 TO 120000
;; RESTORE PC

!l*ll*l*!!l*!!*l!!!l!llll!!lil!ll*llllll!ll*!ii*!*l!llllliil*il
.SX=.
; SAVE CURRENT LOCATION

001000

1314
igig

1321
1322

.SBTTL

120000

éET LOCRTIONS 24 AND 44 RS REQUIPED FOR APT

1306
1307

1309
1310
1311
1312

.=52

< 36353636 36 36 36 36 96 36 36 36 36 36 96 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 3 36 36 26 36 36 36 3 36 36 36 36 36 36 36 36 9 4 36 36 36 36 36 36 36 3% 36 36 3% 36 3¢ 3¢

130S

1308

; ; SOFTWARE DISPLARY REGISTER
; ; SOFTWARE SWITCH REGISTER

Q4START ;;JUMP TO STARTING ADDRESS OF PROGRAM

1297
1298

O
O

J"SEO

.SBTTL
R

SEQ 0026

.WORD
.WORD
.L9RD
.WORD
.WORD

‘WORD
.L

IST

0
SMAIL
300.
600.
600.

;;TWO HIGH BITS OF 18 BIT MARILBOX ADDR.
; ; ADDRESS OF APT MARILBOX (BITS 0-185)
;;RUN TIM OF LONGEST TESTY
,,RUN TIME IN SECS. OF 1ST PRSS ON | UNIT (QUICK VERIFY)
ADDITIONAL RUN TIME (SECS) OF A PASS
FG> EACH ADGITIONAL UNIT

SETEND-SMAIL/2 ;;LENGTH MAILBOX-ETABLE (WORDS)

TM~

CZR&JEO UNIBUS RK& DR PRT3

CZR6JEQ UNIBUS RK& DR PRT3

CZREJE.PI1

25-JAN-78 12:08

MACY1l 30A(1052)

25-JAN-78

APT PRRAMETER BLOCK

{ggg

:USE LOOP

1331

"MACRO

36
3
:
Y

.ENDC
.ENOM

X TO OMIT SUBCLR

LOOP

MOV

#STACK, SP

ERROR

SCOP1

JSR

PC, SUBCLR

:RESTORE STK PTR

:CERR AFTER SCLR

LOOP

THIS MACRO FILLS EXPECTED MSG AO, BO,

sNOTE: A CAN BE ANY BIT COMBINATION DESIRED.

'MACRO

MOV

S
3
S
S
S

MMM N NNNNNINNNNO
OO OO
O NN

A2,

B2 & B3 WITH STANDARD

'BITS SEE A=D.DSC AFTER ATIN ORO AFTER okxvs CLEAR OR ANY IMPLIED SEEKS
F.EAB

.ENDM

CLR
MOV
MOV
CLR
MOV
MOV

F.ERB

A
#<A'D.SPIN'D.DRDY!D.VV!D.DRR> ,E.A0

;EXPECTED MSG AQ

E.BO
-EXPECTED MSG’BO
#<D.SPOK!D.CRRT! b DOOR!D.BRHM!D.SSP> ,E.Al ;EXPECTED Al
81 . E.Bl
MSG ID FOR EXPECTED MSG Bl
£.A2
sxpec EDMSG R2
#2,E.82
MSG ID FOR EXPECTED MSG B2
nsc ID FOR EXPECTED MSG B3
$3,E.83

'THIS MACRO ASSUMES DRIVE MSG A0, BO, A1, Bl WILL ALWAYS BE TESTED
B0, A1, B1 ERROR NUMBERS RESP
FOR MSG
s US E

TUSE

G=T.A2

:
:

10 READ MSE R2’2

PUT INF INTO 'CYLDIF

:T B2
I=T.B3

70 READ M5G B2 & PUT INFO INTO ’CYLADD’
TO READ MSG B3 8 PUT INFO INTO 'SECTOR’ & *HEADA’

'USE

F=(ERROR DESCRIPTION>

"MACRO

CHECK

A,C,D,E,F,G,H,I

JSR

PC, CHKMSG

LWORD
ERROR
.ENDM

GYAII
A

: CHECK MSGS AD,

CHECK

fl:CYL DIFF/0OFFSET ERROR #
:B=CYL ADDR ERROR_#
:C=(ERROR DESCRIPTION)
.MRCRO

CWD2

R,8,C,7D,"7t

MOV

%2, RKMR1 (RS)

BO,

Al, Bl

:8 MSGS specxrteo HERE'
F
:MSG RO ERROR
iMSG B1 ERROR

SEQ 0027

PAGE 27

W G G G

e B

JIF

ot et Pt et Pt Pt Pt Pt

s Pt Pt Pt Bt Pt ot Pt Pt et P

Pt Pt Pt (ot Pt Pt Pt ot P

Pt Pt P

Pt et Pt Pt Pt Pt Pt Pt P

Pt Pt P

Pt Pt Pt Pt P

) ) € G G G () G G G G G G o) Cad €ad Ga) Cd ) ) € € Ca) ) ) ) € €ad ) € () L) () G €) () ) ) L) W W) LI LI )

12:16

—tg—

;SELECT WD 2

CZR6JED UNMIBUS_RK& DR _FRT3
25-JAN-7€ 12-08
CZR6JE.PI11

MRCY11

RF1 ' BRRAme FER
ISR

EEBOR
TsT
BEQ

‘.

ERROR

CENDM

CWL®

.MARCRO

DRCLR

12:16

PRAGE 28

PC,GSTAT

CYLDIF

CYLARDD
E

.MACRO

gRLIB

.ENDM

:SEE IF MSG B2=0
:BR IF YES

;DRIVES

;D0 DRIVE CLEAR CMD & GET CONTR RDY

SC,TSTRTN

:TEST FOR ATTN

154

sATTN NOT CLEARED AFTER DRIVE CLEAR CMD

:NO RDY AFTER DRIVE CLEAR CMD

#CCLR,RKCS1(RS)
$UNIT,RKCS2(RS)

$RECAL , HCST
PC, DOCHMD
124

;D0 RECAL CMD 8 GET CONTR RDY
:RDY NOT SET ARFTER RECAL CMD

#1,RKMR]1 (RS)

: SELECT WORD 1

214

;RTZ NOT SET DURING RECAL CMD

PC,FATTI

:FIND ATTN

PC,GSTRT
go.nrz,unna

JSR
RROR
RCLR

zfigc Ea 587 CLEARED C

#CLERR, HCS1
PC . DOCHD
15

DRCLR

;sssxernsc R2=0

8CCLR, RKCS1(RS)

.ENDM

T10, TEMP2

'SETUP TIMEOUT

'NO ARTTN AFTER RECAL CMD

CALIB

A=WRHERD/ (CFMT!WRHERD>
¢A>,X
TO OMIT CHECKING AO,
USE WRHDR

"MACRO

SEG 0028

'MSG B2 NOT CLEARED C

SUNIT RKCS2(RS)

w-swewe

o LW OV NONLE WM~ O W~ :um-—oogxlgagw898£

Y T Y oY Uy Uiy Sy
Y T
e e e
Y Sy Sy o e
g
el T o o e o
S e
Ll e e ey el el o

15T

398

L
L L
L L L L L L L L L L L L L L L L LR L L L L
L LS L LELE L LW
(G (W W )] G L TV N TN
FU PUTU DU = s 4t s s s e e 10— 1=+ I
OO
(=]

ey Uy WY P Uiy Wiy Sy U Sy iy Gy iy WPy W

1385
1386

JAN-78
LOCK

CO3

WRHDR
MOV
JSR
ERROR
JSR
BIT

BO,

Rl,

R,C,
D
#<R>

,HCSI

PC,DATCMD
200
PC,GSTAT

#CERR, HCS1

D0 DATR X _FOR CMD & GET CONTR RDY
!NO RDY AFTER WRITE HEADER CMD
:GET FRESH STARTUS

DR PRT3

N-78 12:08

MALY L1 3on(1gss)
APT

gé-JnN-7a

PRRAMETER BLOCK
BEQ
ERROR

JIF 8
.ENDC

.ENDM
[

F.ERB
CHECK

PAGE 29

D
201

215,216,217,220,
<AFTER WRITE HERDER CMD>,0,0,0

WRHDR

A=RDHERD/ <CFMT!RDHERD)>

.HRCRO

Y Y WY

RDHDR

R,C,?D,"E

MOV
MOV

O(R) HeSI

ARl,

1Dthno

B X_FOR CMD MD 3 GET CONT R RDY
DY AFTER REARD MERDER CcMD

;CERR_AFTER READ HEADER CMD

:ABORTING DATA TESTS TO DO TIMING TESTS

;1’ST WORD FROM SILO TO RHTAB

;2'ND WORD
: 3’RD WORD

#0LT,RKCS2(RS)
E

PC,GSTAT

173

e
T
e
oy ey e e
ey e

BO,

SRHTAB, RO

1
#CERR, HCS1

E:
.IF

;OLT AFTER READ HERDER CMD

.ENDC

.ENDM

RDOHDR

.MARCRO

' DCHK3

Y ey e
Y
o ey e
el

SEQ 0029

;CERR AFTER WRITE HERDER CMD

USE ROHDR <R>, X TO OMIT CHECKING RO,

Y WO,

£ L£L£L frrrrrcrfLricf
PR PP PP gl P PP
o P
Lk
D 0O DU DLW MMM
N NN NN NNNTCOOC
OO O
UYL
L WO
CNLWN=—ODDONNCNLW—0O) [¥+]eolpNTs nLw N—O0VONCNLW—~ODONOCN

1449

DO3

12:16

RDHDOR
CMP

BEQ
ERROR

. ENDM

’A

RDHEARD, X

SHTQB,?OCYL

CHECK WORD O ONLY,

!BR_IF SAME

CYL®

NRONG CYL® ON HERDER

HDCHK3

b
.

s
.

R=TOCYL/FRCYL

B=HERDS®,

C = 0 FOR 22 SECTOR,

1 FOR 20 SECTOR

CZR6JEOC UNIBUS RK6& DR _PRT3
25-JAN-78 12:08
CZREJE.P11

MARCY11

U= OO0 NN LW~ OO0 NN LW~ OWOD NN
L W00~ IUN*—D;DQVU‘S?E%E

e e e Pt P

s et Pt Pt Pt Bt Pt Pt Bt Pt o B Pt s Bt Pt P

et Pt P Pt

s Pt Pt (ot Pt Pt e o P

Pt P Pt e Pt P P Pt P Pt P

Uity iy
NNNEL L L L £ L1 £ TWWWWWWWLIWWNININY TONNUNY UMY U 0= 4 0= pms $ms Pos Pt ot ot pa 0000

s e e Pt Pt Pt

.MACRO

EQ3

12:16

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

PAGE 30

SEQ 0030

A,B,C

A, CALADD

s SETUP

#C | FORMAT
PC.FHDTRB

HERDER
: TABLE

88, HERD

TO0 FILL

.ENDM

QUICK SEEK.

ENTER WITH CYL# IN RKDC

"MACRC

QKSEEK
MOV

PC, 00¢MD
131

00 SEEK CMD 8 GET CONTR READY
:NO RDY AFTER SEEK CMD

MOV
JSR
ERROR

PC,FATT2
132

150000, TEMP1

:SETUP TIMEOUT

BIT
BEQ
ERROR

.ENDM

#SEEK , H(S1

JSR
ERROR

'FIND ATTN
!NO ATTN AFTER SEEK CMD

aceaa,ncsx

210

:CERR AFTER SEEK CMD

QKSEEK

RDATA/<CFMT!WRDATA>
& TEgT“RITE ON ANOTHER SECTOR
DDR TO JMP TO ATTEMPT
DDR _TQ JMP_TO BYPAS
Rl 8 Bl _AT THE END OF WRITING
IF BLANK WILL CHECK RO, B0

IF NON BLANK WILL OMIT’CHECKING RO THRU Bl

.MACRO

WDRTA
MoV

A,Cc,D,E,?F,?G,"H,
"1
8$<R>

HCS1

JSR
ERROR
JSR
BIT
BEQ

PC,DATCHD

;00 DATR X FOR CMD & GET CONTR RDY

PC,GSTAT

;GET FRESH STATUS

:BR

BIT
BEQ
JSR
BR

EBSE,HER

;SEE

INC
CMP
BNE

sCERR, HCS1

zC,TRUERR

SECTOR
SECTOR, #10.

:NO_RDY AFTER WRITE DATA CMD
IF NO ERRORS
_IF BRD SECTOR FLAG

;BR_IF NO

'ELSE SEE IF SECTOR LISTED IN BSE TABLE

'RETURN HERE

IF NO

:RETURN HERE IF YES
;ARE 10 CONSEC. SECTORS BRL
:BR

IF NO

CZR6JED UNIBUS RK& DR PRT3

CZRBJE.PILI

25-JAN-78 12:08

MACY11l 30R(1052)

@25-JAN-7?8

APT PARAMETER BLOCK

1553
iggg

ERROR
JMP

1556

MOV

1859

ERROR

}ggg
1560

1861

F.ERB

CHECK

1562

1563

JMP

TYPE

FOJ3

12:16

PAGE 31

40
0

:ABORTING TEST DETECTED 10 BAD SECTORS
:BYPASS TEST

8CCLR,RVCS1(RS)

; TRY ANOTHER SECTOR

;CERR WITH WRITE DATA CMD

62,23,53.25,<AFTER WRITE DATR CMD>,T.R2,7.82,0

M&G72

JMP

$e0P

ERROR

1566

L 1IF

CHECK

§2,23,53,25, <AFTER WRITE DATA CMD>,T.AR2,T.82.0

1568

:BAD SECTOR NOT LISTED IN TABLE

1569
1520
1871
1872
1573
1679

;
:A=RDDATA/ (CFMT!RDDATA)

‘USE RDATA

CA>,X TO OMIT CKWD12

1877
ig;g

.MARCRO

R,C, "D, ?E, ?F, ?G, ?H

ig;g

.ENDC
_ENDM

F.EAB

sABORTING BALANCE OF TESTS

{ggg
1867

1580

WDRTA

RDATAR
MOV

1681

JSR

1882
1683

ERROR
JSR

1584

BIT

#<A>

13
PC,GSTRT

#CERR, HCS1

BEQ

1587

BEQ

BIT

iggg

ggnon

,HCS]

PC,DATCMD

1885

1586

:D0 DATA X FOR CMD 8 GET CONTR RDY
:NO RDY AFTER READ DATA CMD
:GET FRESh STATUS

#BSE, HER

:SEE IF BAD SECTOR

sDETECTED BSE IN READ BUT NOT IN WRITE CMD.

1590
iggé

TYPE
IMP

MSG72
$eoP

:ABORTING BALANCE OF TESTS

{gga

gég

:DCK,HER

:SEE IF DATA CHECK ERROR

ERROR

:DATA CHECK ERROR RFTER READ CMD

ERROR

:CERR AFTER READ DATA CMD.

1600

F.ERB

1602
1603
1604
1605
1606

1895

iggg

1601

ib0?

1608

CHECK

G:
IF
.ENDC

SEQ 0031

B
F.EAB

CHECK

S4,26,56.30, <RFTER READ DATA CMD>,T.A2,T7.B2.0

c
O

S4,26.56,30, <(RFTER RERD DATA CMD»,T.R2,7.82,0

(ECC)

CZR6JED UNIBUS RKB DR PRT3

CZRBJE.PI1IL
1
1
1
1
1
1
1
1
i
f

1
1
1
}
i
1

Ll
0
el ad el al e ol ol s o o
W W ) G W NV TV NN U NI PUNU U
0= 00 e e s e pe s ps p—
L WN=-OVONCN LWN—-ODONTCNLEWNV~0

1609

25-JAN-78 12:08

MACY11 30R(1052)

RPT PARAMETER BLOCK
. ENDM

RDATAH

A>,C,X TO OMIT CKWD12

.MARCRO

AR,C,D,”E,?F

WRCHK

MOV

1643
1644

.ENDC
"ENDM

Séé

SWCE , HCS2

:SEE IF WRITE CHECK ERROR

MOV

RKDB'RS) , WD1

:ACTUAL WORD FOR PRINTOUT

;DO DATAX FOR CMD & GET CONTR RDY
'NO_RDY AFTER WRITE CHECK CMD
:GET FRESH STRTUS

'WCE AFTER WRITE CMD

gnggg

CHECK

§7,31,60,32, <RFTER WRITE CHECK CMD>,T.R2,1.82,0

B
F.EARB

D
O

JMP
F:
IF

HCS1

CHECK

M&G72

tnonv

:CERR AFTER WRITE CHECK CMD

sABORTING BALANCE Of TESts’

57,31,60,32, ‘AFTER WRITE

'MACRO TO TEST THAT WRITE CHECK OCCURRED AT SESTOR BOUNDRY

'A8B=134, 135 FOR WRITE PROTECT SW TEST
nas 136'137 FOR AC LOW TEST PART 2

{ggg

"MACRO

1654

{Egg
1657

C=JUMP ADDR TO REPEAT TEST
SBOUND

RA,B,C,?D,”E,”F 7G,?H,?1,7J,7K

JSR

PC, SUBCLR

ERROR
187

$TMP2

1658
1659

BEG
CMP

K
§TMP2, #1023

1€61

BIT

8BIT0,STMP]

1660

1662

1223

HECK CMD>,T.A2,1.82,0

WRCHK

1648
1649

{ggg

ROUTINE

PC,DATCMD
IS
PC,GSTAT
:CQRR HCS1

TYPE

1638
1639
1640
1641

#<A>

'SBOUND'

JSR
ERROR
JSR
géa

ERROR

1637

1647

SEQ 0032

; USE WRCHK

1636

i£se

PAGE 32

:C=16 FOR STD
;C=134/13571367137 FOR ERROR MSG USED IN

1635

1642

GO3

12:16

-unrcnx>
§n=unrcaxx<crnrERRQR
MSG

25-JAN-78

BEQ
BNE

SSV

:CERR AFTER SCLR
:SEE

TRK/SECTOR O

REPEQT NO NEW oqva XFER TOOK PLACE
'SEE IF'TRK 2,SECTOR 19

'REPERT,NO 0Lb onrn TO CHECK RGAINST
:BR_IF WRITING 1°S WHEN WLE OCCJRRED

)

gonrax,nxaa<951'WRITING O°S:WLE SECTOR SHOULD HAVE ALL 1°'S

CZR6JEQ UNIBUS RKE DR PRT3
CZR6JE.PI1
25-JAN-T8 12:08
1665

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

i&&?

JIMP

1668

MOV

1669
1670
1671
1672
1273

1674

1675
1676

1678
1679
{gg?
1683

1684

1686

PAGE 33

#DATAD, RKBA(RS)

WRYCHK,
A, X

CHP
BNE
SSV

$TMP2, 8400
F
;21.,RKDQ(RS)

;sss IF WRL AT TRK 1, SECTOR O
‘BR
IF NO
!ELSE SECTOR BEFORE WRL IS TRK 0, SEC 21

CMP

$TMP2, #1000

.SEE IF WRL AT TRK 2,SECTOR N

MOV

8 25.RKDA(RS)

;ELSE SECTOR BEFORE WRL IS TRK 1, SEC 21

BNE

1687

DEC

$TMP2

1689
1690

MOV
BIT

RKDA(RS) . $TMP3
#BITO, STAPI

1688

MOV

1691
iggs
1694

1695

BNE
ESV

1696
1697
1698
1699

1702

.ENOM

i;gg

1703
1704
1708
1706
1707
1708

1709

;WRITING 1'S:WLE SECTOR SHOULD HAVE ALL 0°S

#BAR], RKCS2(RS)
#-254. , RKMC (RS)
§TMF3 AKDAR(RS) ;REFRESH RKDA
JRKBAIRS) WD2
:EXPECTED WORD FOR TRUERR TYPEOUT
TS?YL RKDC (RS)

WRCHK
NOP
NOP

1677

1682

BIS
MOV
MOV
MOV
ngv

HO3

12:16

MOV

BIS
MOV
MOV
MOV

WRCHK

§TMP2,

RKDR (RS )

:BR IF NO

:GET SECTOR BEFORE WRL

:FOR ERROR PRINTOUT

3ontno,nxan(n5)

:BR IF WRITING 1'S WHEN WLE OCCURRED
'WRITING 0’'S:WLE SECTOR -1 SHOULD HAVE ALL 0°S

#DATAL, RKBA(RS)

;WRITING 1°S:WLE SECTOR -1 SHOULD HAVE ALL 1°'S

#BAI, RKCS2 (RS)
8-256. , RKWC (RS)
?RKBQ(#S) Wp2
EXPECTED WORD FOR TRUERR TYPEOUT
0CYL , RKDL (RS)

WRTCHK,B,X

SBOUND

!QUICK START SPINDLE
:
"MACRO

GQKSRT

”R

};f?

ERROR

JSR

PC,SUBCLR

:CERR AFTER SCLR

1712
1713

BIT
BNE

#0.SPIN, HMR2
R

:SEE IF SPINDLE ALREADY ON
:BR If YES

1716

MOV

i;{g

17127
;;ig
4

1720

TYPE

,MSG29

'PLERSE WRIT, HEADS BEING LORDED

$SRTSPL , HCS]

:D0 START SPINDLE CMD 8 GET CONTR ROY
:CONTR RDY NGT SET AFTER CMD

JSR
ERROR

PC,DOCMD
143

MOV

1100, TEMP2

SEQ 0033

W—OWVO
NN LW—-0OWH~N CNLWNN—OONCNLWN—OVDNTN
LW -

=t Pt 0t s Pt Bt Pt Pt Pt Pt Put P Pt P Pt s P P Pt Pt Pt ot Pt Pt Pt Pt Pt Pt Pt Pt P Pt Pt P Pt Pt Pt P P

NN NINNNNNNNNN NNNNNNNNNNNNYN NN N NN NINNNNINNNINNNN NI
oL £ £ LLEL L L LWWLWWWWWWW WML

e Pt Pt Pt

NNy
Pl]
Al
Gt

0 UNIBUS RKb& DR PRT3
P11
25-JAN-7B 12:08

MACY11

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

JSR

PC,FATTL

CLR

UNLD

_ENDM

QKSRT

ERROR
.

I03

12:16

PAGE 34

:FIND ATTN

144

:NO ATTN RFTER CMC

'ROUTINE TO ISSUE PACK COMMAND
"MACRO

.ENDM

GQKPACK

MOV
MOV
MOV

8CCLR,RKCS](RS)
SUNIT RKCS2(RS)
8PACK ' HCS1

;DRIVE

JSR
ERROR

PC, DO¢MD
11&

;D0 PACK CMD 8 GET CONTR RDY
:CONTR NOT RDY

g&g

ao.vv.HnRa

ERROR

:VOLUME VALID NOT SET ARFTER PACK CMD

PC.SUBCLR

:CERR AFTER SCLR

@KPRCK

éOUICK UNLOAQD
"MACRO

QKUNLD
SR

gnnon
MOV

SUNLORD,

HCS1

JSR

PC,DOCMD

JSR

PC, TSTATN

ERROR
.ENDM

ERROR

QKUNLD

.NLIST

TMMD

;D0 UNLORD CMD 8 GET CONTR RERDY
‘NO RDY AFTER UNLD CMD

:NO ATTN ARFTER UNLORD CMD

SEQ 0034

25-JAN-78

12:08

@S-JRAN-78

COMMON TRGS

: #USED IN THE PROGRRM.

(D 00 (D 00D A0 D 00 G0 0 DD G0 DM

O O M M

B 0= 2 P Pt Pt Pt Pt Pt Pt Pt Pt Pt P Pt s it P Pt Bt Bt Pt Pt Pt Pt Pt Pt Pt Pt Pt Pt P Pt Pt Pt Pt s it Pt Pt P P Pt Pt Pt P P Pt s Pt P Pt P

et et Pt Pt

.SBTTL
S

JO3

12:16

P11

MACY1l 30A(1052)

NN NN NYNNNNY NNNNNNNNNNNNNNNNNN

] D0 D ONDDEOOD@DIMAODOD
N NNNNNNYNNO O T
T
»»—w»fl—hhfl-wr430CNDOCMDOCNDmJLD*
OOMICNLZW—ODDONVONLWN—-0O0mDN
NLW—0O oM NLWN—-ODMNCNLWN—OOmIoUIL

[¢le]

NN
020
oo

ety
mm

8 UNIBUS RKE DR PRT3

PAGE 35

SEQ CO35

COMMON TRGS

REEEENNNERR AR

EERRRRE Y

AR R R

AR E R R HARE R R R R

AA R R RAAREFERRRD

t#THIS TABLE CONTRINS VARIOUS COMMON STORAGE LOCATIONS

001100

001102
001103
001104
001106
001110
0011lle
001114
0c111s
001116
001120
00li22
00lle4
001126

001130

001100

SCMTAG:

00J000

000
000
000000
000000
000000
000000
00g
001
000000
000000
000000

STSTNM:
SERFLG:
SICNT:
SLPADR:
SLPERR:
SERTTL:
SITEMB:
SERMAX:
SERRPC:
SGDRDR:
$SBDADR:

000000
000000

SGDDAT:
$BODAT:

000000

.=1100
.WORD

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

; ;START OF COMMON TRGS

O
O
O
O
O
O
O
1
O
O
O

; ;CONTRINS
; ;CONTRINS
; ; CONTRINS
; ;CONTRINS
; s CONTRINS
; ;CINTRINS
; ;CUNTRINS
; ;CONTRINS
; ;CONTRINS
; ;CONTAINS
; ;CUNTRINS

.WORD
.WORD
WORD

; ;CONTRINS 'GOOD’ DARTA
; ; CONTRINS 'BRD’ DATA
; s RESERVED--NOT TO BE USED

.BYTE
.BYTE

O
3

; ;AUTOMATIC MODE INDICATOR
;s INTERRUPT MODE INDICRTOR

SWR:
WORD
DISPLAY:
.WORD
$TKS:
177560
$TKB:
177562

DSWR
DODISP

; ;ADDRESS
; ;ADODRESS
;3 JTY KBD
;3 TTY KBO

SNULL:

001132

000000

001136

000000

001150
001152

177564
177566

$TPS:
$TPB:

00115S
001156
001157
001160
001162
001ie4
001166
001170
001172
001174
001176
001200

00e
gle
000
000000
000000
000000
000000
000000
000000
000000
000000
177607

SFILLS:
.BYTE
SFILLC:
.BYTE
STPFLG:
.BYTE
$TMPO:
WORD
$STMP]
WORD
$TMP2
WORD
$TMP3
WORD
STMPY
WORD
$TMPS
WORD
STIMES: O
SESCAPE: 0
$BELL:
.ASCIZ

@
12
O
O
O
O
O
O
O
<207>»¢377><377>

; ;CONTRINS # OF FILLER CHRRACTERS REQUIRED
;s INSERT FILL CHRARS. AFTER R "LINE FEED"
;i "TERMINAL AVAILABLETM FLAG (BIT«07?>=0=YES:
; s
USER DEF INED
; sUSER DEF INED
; s USER DEF INED
; iUSER DEF INED
; s USER DEFINED
; s USER DEF INED
s
. NUMBER OF ITERRTIONS
; ;ESCAPE ON ERROR ADDRESS
;;CODE_FOR BELL

00120S
001206

015
000012

SCRLF:
SLF:

<«1S
«l1&»

; i CARRRIAGE RETURN
; ; LINE FEED

001134
00113S
001140
001142
001144
001146

001154

001204

000
0o

$SAUTOB:
SINTRG:

177570
177570
177S60
1775k2

000

07?7

000377

$QUES:

WORD

O
O

THE TEST NUMBER
ERROR FLAG
SUBTEST ITERATION COUNT
SCOPE LOOP RDDRESS
SCOPE RETURN FOR ERRORS
TOTRL ERRORS DETECTED
ITEM CONTROL BYTE
MAX. ERRORS PER TEST
PC OF LAST ERROR INSTRUCTION
ADDRESS OF 'GOOD' DRTAR
RDDRESS OF 'BRD’ DRTA

WORD

177564
177566

eYle

.RSCII

.RSCII
.ASCIZ

O
O

7%/

OF SWITCH REGISTER
OF DISPLAY REGISTER
STATUS
BUFFER
;3 JTY PRINTER STATUS REG. RDDRESS
;3 TTY_PRINTER BUFFER REG. RDDRESS

; iCONTAINS NULL CHARACTER FOR FILLS

; s QUESTION MARK

;-lliilll!llll!li*l*lli}lllll*ll‘ifilllllllilillllllllll!lilll!lll
'8BTTL APT MRILBOX-ETRBLE
CERERERRRERERERRRRERERRRBERR
RS RRRRERRRERREERRRRRERREAR R
R ERE

001210

000000

"EVEN

§MATL :

§MSGTY:

.MORD

AMSGTY

. sAPT MAILBOX

::MESSRGE

TYPE

CODE

CZREJEOD UNIBUS RKb DR PRT3

CZREJE.PI1

1820
1821
1822
1823
1824
1825
1826
1827
1828
1829
1830
1831
1832

1833

001212
001214
001216
001220
001222
001224
001226
001230
001230
001231
001232
001234
001236

25-JAN-78 12:08

000000
000000
000000
000000
0O0O0OOO
00000C
000000
000
000
000000
0OOOOO
003000

1834
1835

1836
1837
1838

1839

1890
184]

1842
1843
1844

1845

MRCY11 30A(1052)

25-JAN-78

APT MAILBOX-ETABLE

$FATAL: .WORD
STESTN: .WORD
.WORD
§PASS:
DEVCT: .WORD
UNIT:
_WORD
§MSGAu: .WORD
§MSGLG: .WORD
SETABLE:
SENV:
.BYTE
SENVM:
.BYTE
$SWREG: .WORD
SUSWR:
.WORD
SCPUOP: .WORD

S¥

001841

000

2"
g

§MAMS1: .BYTE

SMTYP1: .BYTE
s&
a
3
la

000000

001244

000

0C.246
001750

0000CO
000

$MADR2:
§MAMS3:

.WORD
.BYTE

001252

1883 001254

00000Q

$MADR3:

.WORD

1855

000000

1849
1850

001245

1851

001251

1854

DO125S

1856
1857

001260
001262

1852

1858

1859
1860

1861
1862

1863
1864
1865
1866
1867
1868
1869
1870
1871
1872
1873
i874
1875

RENV
RENVM
ASWREG
AUSWR
RCPUOP

001256

001264

001266
001270

001272
001274
001276
001300
001302
001304
CO1306
001310
001312
001314
001316
001320

001322
001324
001326

600
000

000
000

§MADR1: .WORD

¥
§MAMS2: .BYTE
SMTYP2: .BYTE

SMTYP3: .BYTE

§MAMSH: .BYTE
SMTYP4: .BYTE
MADRY:

8BTS 1S-11=CPU_TYPE

.WORD
.WORD
.WORD
.WORD
.WOPD
.WORD
.WORD
.WORD
.WORD
.WORD
.WORD
.WOKD
.WORD

;;HIGH ADDRESS,M.S.

@ :MEM. TYPE,BLKS1
fEM.TYPE BYYE
--

BYTE

(HIGH BYTE)

00 NSEC CORE=
300 NSEC BIPOLAR=002
500 NSEC M0S=0

;;HIGH ADDRESS,BLK#1

MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF “TYPE" ABOVE
::MEM.TYPE,BLKE2
;:
H.ngo RODRESS,
BLK 82
;:HIGH
RDDRESS,M.5.BYTE

AMTYP3

AMADR3

;:MEM.TYPE,BLKEI

;;:MEM.LR

nognssg,aLxca

AMAMSHY ::HIGH ngoaes M.S'BYTE

AMTYPY

.WORD
.WORD

BIT 10=REAL TIME CLOCK
BIT 9=FLOATING POINT PROCESSOR
BIT B=MEMORY MANAGEMENT

AMADRZ
AMAMS3

AMTYP?

SCOW2:
SODWO:

§0DW12:
$0DW13:

;;FATAL ERROR NUMBER
::TEST NUMBER
::PASS COUNT
;;gevxcs OUNT
::1/0 UNIT NUMBER
: ; MESSAGE ADDRESS
;;MESSAGE kENGTH
:APT ENVIRONMENT TABLE
: s ENVIRUNMENT BYTE
;;ENVIRONMENT MODE BITS
;:APT SWITCH REGISTER
;:USER_SWITCHES
;:CPU TYPE,OPTIONS

;;HIGH_RDDRESS,M.S. BYT

RBASE

SODWl:
SOOW2:
SOOW3:
SODWY:
$DOWS:
SDDWG:
$DOW7:
$ODWB:
$ODWI:
$ODWi0:
$ODW11:

SEQ 0036

AMAMS2

.WORD

SDEVM:
$COM1:

000000
000000

AMADR!

$BASE:

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
00000Q
000000

ARMTYP1

~ AMAORY

VECT1: .WORD
SVECT2: .WORD

000000
000000

AMAMS1

.WORD

200000
000000
177440

PAGE 36

11-04=01,11,05=02,
11/20=03, 11/40=04, 11/45=05
11/70=06,PDQ=07,Q=

001242

1846
1847
1848

RFATAL
ATESTN
RPRSS
ADEVCT
AUNIT
AMSGAD
AMSGLG

tx
1

001240

KO3

12:16

M. TYPE, BLK
b4

;:MEN.LAS

nogn;sg BLK#Y

AVECTL
AVECT2

::INTERRUPT VECTORL]1,BUS PRIORITYS!
::INTERRUPT VECTORS2BUS PRIORITY®2

RDEVM
RCOW!

;:DEVICE MAP
;;CONTROLLER DESCRIPTION WORD#I

:;BASE

ADDRESS OF EQUIPMENT UNDER TEST

RCDW2
ADOWO

;:CONTROLLER gfiSCRIPTION WORD#2
;;DEVICE
DESCRIPTOR WORDSO

ADDW12
RDDW13

;;DEVICE DESCRIPTOR WORD® 2
:;DEVICE DESCRIPTOR WORD#13

RDDW1
;:DEVICE
ADDW2
;;DEVICE
ADDW3
:;DEVICE
AODWY
;;DEVICE
RDOWS
;;DEVICE
RDOWE ; :DEVIC
RDDW?
;;DEVICE
ARDDW8
;;DEVICE
ADDWS
;;DEVICE
ADDWIO
::DEVICE
RODWI1
;:DEVICE

DESCRIPTOR
DESCRIPTOR
DESCRIPTOR
DESCRIPTOR
DESCRIPTOR
PTOR
DESCRIPTOR
DESCRIPTOR
85 CRIPTOR
DESCRIPTOR
DESCRIPTOR

WORDS!
WORDS2
WORDS3
WORD®H
WORDSS
WORD#6
WORD#?7
WORD®S
WORD#9
WORDS10
WORD#I]

CZR6JEO UNIBUS RK& DR PRT3
CZRBJE.PL1
2S-JAN-78 12:08

MACY11

.WORD
.WORD

ADDWIY
ADDWIS

PAGE 37

SEQ 0037

001330
001332

1879
}gg?

001334

1882
1883
1884
1885
1886
1887
iggg

001334
001336
001340
001342
001344
001346

177440
0002.0
000240
172S40
172542
172544
177546

ABASE=
RKVEC:
RKPRI:
PKS:
PKSB:
PKRB:
LKS:

177440
210
PRS
172540
172542
172544
177546

;DEFAULT BUSS ADDRESS
;DEFAULT CONTROLLER INTERRUPT VECTOR
;PRIORITY
;P-CLOCK STRTUS REG
;P-CLOCK SET BUFFER
;P-CLOCK RERD BUFFER
:L-CLOCK STRTUS REG.

1890
iggé

001350
001352

000100
000104

LCVEC:
PCVEC:

100
104

;L-CLOCK INTERRUPT VECTOR
; P-CLOCK INTERRUPT VECTOR.

000114

MEMVEC= 114

; MEMORY PARITY VECTOR

TRAPPC:

;PC FOR MEMORY PARITY ERROR TRAP

{ggg

$ODW14:
$ODW1S:

LO3

12:16

1876
ig;g

1893

000000
000000

30R(10S2)
2S5-JAN-78
RPT MAILBOX-ETABLE

;;DEVICE DESCRIPTOR WORDN1Y4
;;DEVICE DESCRIPTOR WORD#1S

SETEND:

172100

MEMBRS= 172100

{gg%

00134

000000

1838

001356

000000

PARAM:

;é FOR 220 STRRT,

1301

001362

000000

DRVPTR:

; CONTRINS THE POINTER TO THE DRIVE FLRG

1904
1305
1306
1907

001364
001366
001370

000040
000000
J00O000

000000

SPBAR=
FRCYL:
TOCyL:

40
O
O

001376
001400
001402

000000
000000
000000
000000
000000

PCYL:
CALDIF:

iggg

{385

001360

000000

)

; MEMORY PARITY OPTION CSR START RDOR

FTITLE: O

:FLAG FOR

NO DEFRULT

PRINTING OUT 1ST PROGRAM TITLE

: (DRIVO-DRIV?7) OF THE DRIVE TO BE CHECKED NEXT.

CCYL:

; SPACE BAR
; FROM CYLINDER
; TO_CYLINDER
; CURRENT CYL,
USED

CYLDIF:
CYLRDD:
CALADD:

O
O
O

;CYL DIFF, RIGHT JUSTIFIED FROM RKMR3
;CYL ADDR, RIGHT JUSTIFIED FROM RKMR3
;CYL ARDDR USED IN FHDTAB ROUTINE

000074

HZ:

80.

001406

00Cco00

COUNT:

001410

000000
000000
000000
000000
000000
000000

SEC:

TIMUP:
SECNT:
PSEC:
ESEC:
SECTOR:

O
O
0
0
O

;60 FOR 60 CPS
;S0 FOR S0 CPS
;LORDED TO SO OR 60 TO COUNT TO 1 SEC
;OR ANY OTHER NUMBER TO COUNT OFF FRACTIONAL SECOND
; SECOND COUNTER
;FLAG TO INDICATE TIME IS UP
; SECTOR COUNT
; PREVIOUS SECTOR
;EXPECTED SECTOR
; SECTOR COUNT, RIGHT JUSTIFIED FROM RKMR3

182S

001424

000012

T10:

10.

; TIMEOUT CONSTANTS

iggg

001432

141520

T50000:

1908
1309

001372
001374

1914
1915
1916
1917
1918
1919
1920
1921
1922
igga

001404

1910
1911
igig

1926
1927

1930
1331

001412
001414
001416
001420
001422
001426
001430

001434

000144
011610

000000

0
O

7100:
15000:

100.
5000.

WDI1:

IN N SQUARE TEST

; PREV SYL. fl?ED éN N SQUARE TEST
:cALC CyL OIFF USED IN N SQUARE TEST

S0000.
;ACTURL HERDER-/DATR WORD

CZRBJE.PILI

25-JAN-78 1<:08

MACYI1l

30R(10S2)

@25-JAN-78

RAPT MAILBOX-ETRBLE

MOJ3

12:16

PAGE

SEQ 0038

iggs

001436

000C00

WwDe:

;sEXPECTED DRTA WORD

}ggg

001440

000000

OFFERR:

;SET WHEN WRITE CHECK ERROR ON OFFSET

1937

Q01442

000000

HERDR:

HERD:

ig:g

0014S4

000000

FgRHQT 0
FMT!L: 8

HERD FROM H

WDCNT:

WORD COUNT

000000

DATAQ:

DATAOLl: 525eS

;ALL 0’'S
;ALL

sHERDER/DRTRA WORD

1936

1938

01444

1939 01396 000000
}349 88%423 888888
1944

194S 881928 052525

; HEAD NUMBER

JUSTIFIED
?géFTED
HERD#S FOQ RT.
FORMRTTER
ROUTINE
SHIFTED FOSMRT FOR FORMATTER ROUTINE

194¢
1947
ig:g

00ivee
001 164
001466

177777
133467
070627

DATAL:
DPATl:
DPRT2:

177777
133467
70627

1950

001470

000000

WORD:

1853

001474

Q01476
001500
0015802
001504

000000

000000
0000060
000000
000000

BSERR:

1959

001506

000102

HDTAB:

BLKN 66.

iggé
1954
19SS
1956
iggg

001472

1360 00171

1961 002115

000000

HOWD :

;0101 PATT

HERDER WORD FROM RKDB
;CANNOT READ BSE

LIMERR: O
MDSERR: O
BYPCERR: 0
CHKFLG: O

00102

RHTAB:

00102

SRTTAB:

1'S

INFO WHEN SET

LIMIT DETECT ERROR FLAG
HULT DRIVE SEL ERROR FLAG
SET TO1 TQ0 BYPASS CKCERR IN ’'GSTATL’
NORDS TO BE TESTED
s CALC bflé;?
HE

LKN 66.

W 66.

ER WORD TARBLE

nébv RHTQ gEDHERD
E RSTING FORM

iggg
1364 002322
(003322 000400
000400
iggg

004322

000400

BSE22H
BLKW 256
BSEC2S: .BLKW
256.
RDTRB:

.BLKW 256.

EEC;
R TOR°NSOF?HQ
SORT
ROUSININFO
22 SECT8R
E g E INFO.

1967
1968
1969
1970
1971

00S322

000000

UNLD:

005324

000000

BARDHDR:

00S3=6

000000

HPEND:

;SET
;SET
;SET
;SET
;SET

ig;g

)

1974

1980
1981

1984
;ggg

FILLED AFTER RERD DRTA CMD
TO
70
10
TO
T0

O
1
0
1|
0

;SET TO 1

IF
IF
IF
IF
IF

HEADS RRE LOADED
HEADS UNLOARDED
FORMRTT%NG OK
FORMATTING ALTERED
HALT NOT PENDING

IF HALT PENDING

THE ABOVE 3 FLAGS ARE USED

1975
1976
1979

BY 'STOP’ ROUTINE TO BRING
THE CPU TOA VALID HALT.
005330

005333
005336

00l

010
100

002

0e0
200

004

040

RATTN:

.BYTE

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

;ATN 0-7 RESP.

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

(e Xal

CZRBJED UNIBUS RK6 DR PRT3

00S374

000000

005376
005400

000000
000000
000000
000000
000000

25-JAN-78

T MRILBOX-ETABLE

m
= 4
0
7))

NO3

12:16

PAGE 39

0000000000000

000000

389(1052)

X
(=]
@©

00S340
00S34¢

MACY1l

;HOLD RKCS1

o 0000

CZR6JED ?TIBUS RK& DR _PRT3
CZR&J E.P
25-JAN-78 12:08

; TEMPORARY STORAGE.

IHOLD RKCS2
H?%D RKWC

D
00

OOoO000000

000000

D
n

000000
000000

see MMMMMMMTeecse TITXX ITXX-~

N
RRNY
000000000
NF‘H"F""H"‘.—‘
N—OWVONCN LW

ETHE FOLLOWING ARRE HOLDING RLGLISTERS FOR MSGA(0-3) & MSGB(0-3).

THE FOLLOWING ARE

00S446

000000

:
.R1:
.Bl:
A2:
B2:
@
O

000000

R3:
B3:

0
0
0
8]
0

0
0]

,THE FOLLOWING RARE

000001
000002
0oooo4

’*EXPECTED’

f.92=BITO
T7.82=BIT}

IDENTIFIERS FOR DRIVE MSG WORDS TO BE TESTED.

;TEST MSG R2 IF SET

B3=BIT2

gQLL THE FLRGS BELOW ARE CLERRED INITIALLY BY THE CLRFLG ROUTINE.
00s4s0
00s4se

000000
000000

pouMP:

DOPCH:

;FLAG - SET WHEN IN DDP DUMP MODE

!FLAG - SET WHEN IN DDP CHAIN MODE

SEQ 0039

CZR6JEO UNIBUS RK& DR PRT3
CZReJE.P11
25-JAN-78 12:08

2044
2045

38:9

00s's54
07s4Se

ros4e0

000000
000000

000000

cu8d

MACY11 30A(1052)
@25-JAN-78
APT MAILBOX-ETRBLE

ACT11:
PPTP:

DRIVS:

PAGE 40

O
o}

SEQ 0040

FLRG - SET WHEN IN ACT11 MODE OF OPERATION
AG
- SET WHEN PROGRAM LORDED BY PAPER TRPE

CONTR INS THE NUMBER OF DRIVES PRESENT

1S PRESENT AND IS TO BE TESTED.

20S1

00S46e

000000

DRIVO:

2053
20s4
2055
2056
2057
Sggg

00S466
00S470
00s472
00S474
00S476
00SS00

000000
000000
000000
(©00000
000000
000000

DRIVE:
DRIV3:
DRIV4:
DRIVS:
DRIV6:
DRIVZ:

000000
000000
000000
000000

LCLKF:
PCLKF:
DOTIM:
SIZFLG:

2060
206l
2062
2063

12:16

; THE FLAGS BELOW ARE SET TO 1 TO INDICATE THAT R PARTICULAR DRIVE

sggg

c0Se

BO4

00s4e4

00SS02
00SS04
005506
005510

000000

DRIVLI:

0O
0
O
0O
O
O

O
O
O
O

;FLAG SET _TO 1 WHEN DRIVE O PRESENT

:FOR DRIVE 1
;FOR
;FOR
;FOR
;FOR
;FOR
;FOR

DRIVE
DRIVE
DRIVE
DRIVE
DRIVE
DRIVE

2
3
Y4
S
&
7

;L-CLOCK FLAG PRESENT FLQG
;P-CLOCK FLAG PRESENT FLRG
;SET IF EITHER CLOCK PRESENT FOR TINING TESTS.
;SET IF DEFAULY DO SIZING IN TEST

CZR6JED UNIBUS RK&E DR PRT3

CZREJE.PI11

25-JAN-78 12:08

ggey

MACY1l 30R(10S52)

ERROR POINTER TABLE
.SBTTL

2066

25-JAN-78

;*NorEéz

P TRER

2072

074
2075

aggg
@81

005512

SERRTB:

00S512 Q44424
005514
005516
005520

050755
054074
054516

’

2087

005522

044643

2093

2094
2095
Sgg

UMM L NN
TV
R YTVIVN N Y
e Dt Pt et Pt Pt Pt vt Dt Pt Bt Pt Bt Pt Pt et P Pt Pt e (D)
e b e e e e e = D) O OO0 QOO0
0O W
DONCN L W=D DO
LW—0O W

2098

DH
oT

;¥
'y

073

2092

ORTALNE

Y USING THE

*hng ION SITEM : s?l
NUMBER %u

ggg?

2088
2089
2990

SEQ 0041

ERROR POINTER TABLE

#THE JAEGRMATION 19

2082
2083
2084
2085
2086

PAGE 41

: ¥THIS TABLE conrnxns THE 1nroannrxon FOR EACH ERROR THAT CAN OCCUR.

2367

2076
2077
2078

co4

12:16

005524
005526
305630

050755
054074
054516

005532

044664

DOSS42

044705

00SS46
005550

054074
054516

00SSS2
00SS554
00SSS6
005560

000000
000000
000000
000000

005562

045050

005534
005536
005540

005544

sERROR 3

005572

Q45124
(050755
054074
054516

:ERROR §

:ERROR &

:POINTS TO THE ERROR MESSAGE
;;Points 10 THE DATA HEADER
,;oo NTS TO THE DRTA
!PGINTS TO THE DATA FORMAT

;DR # IN RKCS2 CANNOT BE READ BRCK CORRECTLY IN RKMR2

EMG

:DETECTED UFE

EM7

;DETECTED DRA & NED RESET (WRONG PORT SELECTED?)

DH1
DT1
DF1

0
0
8

EMI

:DR NOT PRESENT BUT SPECIFIED BY OPERATOR

EMIO

:ABORT TEST, COULD NOT REFERENCE CONTROLLER REGISTER

DH1i
0Tl
DF
1
;ERROR 7

BIRTERs ‘BEBRR
0 as FoLLows:

;DETECTED MDS

DH1
DT1
DF1

:ERROR Y4

1R QuEMFallE"cORRAIN

EMS

DH1
DT1
OF 1

050755

050755
054074
054516

OHI
DT1
OF1

sERROR 2

05C7S5
054074
054516

005564
005566
005570

005574
005576
005600

ERROR 1 EMR2

INDEX NUMBER FOUND IN

cgrsspgchn fi}‘"g¥g THE(TRBLEIS PERTINENT.

DH1
DT}
OF1

CZR6JEOD UNIBUS RK6 DR PRT3
CZR6JE.P11
25-JAN-78 12:08
212

818 ooseo2 ouszo?
5153
2124
5195
gt
515%
5158

005604
005606
008610

050755
054074
084516

oposel2
005614

045253
052042

5132

005622

045543

5129
5150
5131
3133
2134
5135

005616
008620
005624
005656
002630

054074
024622

052042
0B4074
084622

5135
oosesz gusess
5138 002639 053013

5133
5140
5141

5145

00S636
00Se40

084074
024622

DOLeY2

OYSS43

§lid BBzEde
5146
5147

Saufsd

00S6S2

045253

D0%EZe
002680

0SAA7y
024622

005662

050616

5129
5125
5128
5187

002666
002670

024634
0B4622

0OS672

045253

5129
5160
5161

002676
002700

0SYDP
054622

$162
5165

005702
008704

04S311
O0Ositsa

5168
5169

005712
002719
008216
002720

0OSOBSS
022013
024074
024622

005722
008754
002756
008730

045543
053351
0E4634
0E4622

2148

2143
S1s0
5121
2182

5153

5128

5164
5165
5166
5167

5170
5171
5172

5175
5179
5175

QUSeSh

Q0%6B4

00GE74

002706
008710

MACY11l

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

.ERROR 10

.ERR 11

.ERR

ps3oe

EM12
bH2?

:NO RDY
'RFTER WRITE DATA CMD

EM21

. CERR SET

OTI
DF10

DTI
DF10

EM21

.ERR

EMI2

71
OF10

EMBO

BH32

.ERR

0SIcED

DTl
OF10
EM12

OH18

.ERR 20

.ERR 21

.ERR 22

NO RDY

'AFTER READ DATA CMD
.CERR SET

Brio
H32

(022081

OB4DZY
024622

.DRA & NED BOTH SET

OH1
0Tl
OF1

ERR 13 e
DH26
14

PAGE 42

EM11

DHo?
DTI
OF10

.ERR

DO4

12:16

DTl
OF 10

.NO_RDY

'QFTER WRITE CHECK CMD

.WRITE CHECK ERROR SET

'AFTER WRITE GHECK CMD

.CONTR NOT RDY

'AFTER UNLD CMD

EM13
OH1B
DT1
DF10

\NO ATTN

EMB3
OHE
DTI
OF10

.DATA CHECK ERROR
'AFTER RERD DATA CMD

EM21
DH32
Tl
OF10

. CERR_SET
' RETER WRITE CHECK CMD

SEQ 0042

045460

00S740

0S4756

00S74e

045543

00S7S0

oS46e2

0057s2

o4ssez2

005754
005756
005760

052042
054ese
0S4756

005762

045460
0sz201e
0s4252
054756

o
PYORDNYDNUND
VPPN
UMD
DY 0= 4o 0 e 4t 4t bt 9t pa e O
N~ OOV NN LW
OW

2201

006000

04S6S6
051577
054074
ps4eee

006002

045522

006010

;ERR 23

:ERR 25

0s47%6

0060e2
006024
006026
006030

045522
0Se22s1
054252
0s4?se

006036
006040

046503
0S1113
0OS4074
osu4e2e

006042
006044
0Ce046

0S0S13
050755
0S4074

12:16

PAGE 43

SEQ 0043

;MSG _BO ERROR
;sAFTER WRITE DRTA CMD

:CERR SET

DT1
DF10

EM20

; AFTER SCLR

;MSG Bl

ERROR

;ERR 26

;AFTER RERD DRTA CMD

;VOL_VALID NOT SET
*AFTER PACK CMD

;ERR 30

;sERR 31

0geQ0le
00601
006016
006020

006050

30AR(10S2)
25-JAN-78
ERROR POINTER TRBLE
=)D

00Ss732

MACY11l

oama*ifioaooommmmmmmmmmw\:\l\a
Owmd~N
LW—-ODLONCNI LWN—OVO N

NNV
VRVIVYVY VDV RVIVVVVD
mv—r—-o—-.—.—-o—r—-—.—o—»—.—-.—»—-»—-o—u—»—-.—»—-wb—-o—- —

CZR6JEOQ UNIBUS RKe DR PRT3
CZRBIE .Pl1
25-JAN-78 12:08

;MSG Bl ERROR
;AFTER RERD DRTA CMD.

:MSG_BO ERROR

;AFTER WRITE CHECK CMD

0s4S16

;ERR 32

:ERR 33

;ERR 34

;MSG Bl

ERROR

; VV_NOT CLERRED
!AFTER PACK RE-INSERTED

;NO DRIVES FOUND

IN DEVICE MAP

2233
2234

006052
006054

045437
0Sllb6l

2238

0086062

006064
CO6066
006070

04SSO0l

0S116l
054252
0S4756

2243
2244

006072
(006074

0u4ss22
0S116l

2c48
2249

D06102
006104
006106
006110

0S014M4
052042

054074
O0Os4e22

2253
Ssgg

006l12
006114

045333
0515852

2256
2257

00t!1l16
006120

QSH407M4
0S4e22

006l2e

045360

cebe
2263
2264

006126
006130

0S407H4
0S4eee

2266
2e6?
ceb8
2269

006132

006134
006136
006140

04S412

2270
2271
2272
2273
ee74

006l42
0056144
006146
00e1S0

045565
051207

ee?S

006152

04S437

2235
2236
2237

2239
2240
224!
2242
2245
e
2247
2250
2251
22Se

22s8e
2259
SSE?

2265

006056
006060

006076
(JI6100

DObleY

0S4252
0S4756

0S4252
054756

0S1552
0S407Y4
0S46e22

0S407M4
0S46e22

006154
00615k
006160

051207
054252
0S4756

B8l
2282
ce83
2e8y

006162

006164
0D0bleb
006170

045460

051207
0S42se
0S4756

2287

006172
006174
006176

0S0214
(0S2042

ce8S
eeBe

;ERR 36

:ERR 37

;ERR 40

sERR 41

;ERR 42

051552

2276
2277
2278
2279

ce80

;ERR 35

054074

:ERR MY

:ERR 4§

:ERR 46

(ERR 47

PAGE 44

EM1?
DHS

:MSG AOD ERROR
;RFTER RC SW OFF

EM1S

;MSG Rl ERROR

EM20
DHS

;MSG Al ERROR
;RFTER OFFSET CMD

EM?1
DH2?7

;DETECTED 10 BAD SECTORS
AFTER WRITE DATR CMC

EMIY
DH18

; WRONG ATTN
:AFTER UNLORD CMD

pT13
DFel
DHS
DT13
DFe2l

DT}
DFel

DT1
DF10

SEQ Qo044

DTl
DF10

EMIS
DH18

:ERR 43

FOH

12:16

;DRDY NOT CLERRED

DT1
DF10

EM1B

;:DSC NCT SET

EM22
DH8

:DOCR NOT CLERRED
:AFTER DRIVE UNLOADED & DOOR OPENED

EM1?

;MSG RO ERROR

EM18

:MSG BO ERROR

EM72
DH2?

:BSE ERROR IN WRITE CMD NOT ON BSE TRBLE
;AFTER WRITE DATA CMD

DH18
DTl
DF10

071
DF10

DHS8
DT13
DfF2l
DH8
DT13
DF2l

D71

ee3e

MACY11l 3DR(10S2)
25-JAN-78
ERROR POINTER TRBLE

CZRBJED UNIBUS RKB DR PRT3
CZREJE.P11
25-JAN-78 12:08

CZREJED UNIBUS Rke CF_PRT2
CZRBJE.P i1
25-JAN-78,1¢:08
006200

MRCY11l

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

GO4

12:16

PAGE 45

SEQ 0045

DF10

os4e22

006202
006204
006206
006210

050273
0507SS
0S4074
0S4S16

ogeecie

0s0zie

006220

0s4732

00eeee
006224
006226
006230

045437
052042
as42se
0S4756

006232

C45501

;ERR SO

;ERR Sl

;:DETECTED BSE IN REARD BUT NOT IN WRITE CMD.

;WRONG CYL# IN HERDER WORD

{AFTER SEEK CMD
:ERR S2

;MSG_AD ERROR

;AFTER WRITE DATA CMD

;ERR 53

;MSG Al

ERROR

MACY11l

25-JAN-78

30A(1052)

ERROR POINTER 7ARBLE

006240

054756

"2
Ye

Be2070

006246
006250

0s42s2
0S4756

006252
006254
006256
006260

045311
0S15e6
gS407Y4
os4e22

006262
006eeY
06ebb
06270

Q4ss01
0se0le
024252
0S4756

006272
006300

045437
0Seesl
gs4gse
054756

006302
006304
306306
006310

045501
0Seesl
0S4eSe
054756

006312
006314
006316
006320

p4775S
05075%
054074
0s4S1ie6

goe322
006324
006326
006330

0S0437
052042
054074
gs4e22

006340

Q4ss01
051207
0s4ese
0s475S6

006342
006344
006346
006350

0s4?75e

006352
006354
006356
006360

045626
0s12se
gs4074
gs4ee2

006362
O0e3e4

Q45437
0S1ese

Q4sse2

:ERR 54

;ERROR S

;ERR sé

;ERR 57

;ERR 60

+ERR 6l

;ERR 62

;ERR 63

:ERR B4

;ERR 65

;ERR &b

12:16

PRAGE

SEQ Q046

DHe2?
DT13
DF21

BPES
3 823823

EM1?
DHee
DT13
DFal

;MSG_AO0 _ERROR

{AFTER READ DATA CMD

M13

;NO ATTN

EMIS
DH26
DT13
DFal

;MSG Al

DH17
DT1
DF10

EM1?7
DH32
D113
DFel

{AFTER RECAL CMD
ERROR

;MSG RO ERROR

'AFTER WRITE CHECK CMD

EMI9
DH32
D T13
D Fel

;MSG

E Me9
D H1
D Tl
D Fl

;NO DRIVES PRESENT

ERROR

E M7S
D He?7
D T1
D F10
M19
H8
D T1 3
D Fe 1

E M2 0
D H8
D T1 3
D Fe 1

:MSG Bl

E M2 3
D Hl 1
D T1
Fl
DF10

;SPIN SET

E Ml
D Hl1

CZR6JED UNIBUS RKE DR PRT3
CZRBJE.P 11
25-JAN-78 1c J8

ERROR

‘AFTER LOADING HEADS WITH DOOR OPEN
;MSG

ERROR

NN LW
M

s Pt

OF &
o
o

s Pt
e

o
o
o

e Bt

a410

006502
006504
006506
00es10

04S626
051356
OsS4074
os4e22

goesle
00eS1y4
gcesie

000000
000000
000000

;ERR

;ERR 100

:ERR 101

4.8 [N
N— L=
Vo)
-W
MUreLr—
U+~ Lo
—Ww
~N

Q45522
0S1113
gs4ese
054756

;MSG_ RO _ERROR

iAFTER PACK RE-INSERTED 8 HDS LORDED
;MSG BO ERROR

:MSG Rl ERROR

;MSG Bl

ERROR

ooE472
006474
006476
006500

:ERR 76

g4ss01
051113
os42se
054756

006462
006464
006466
006470

OO
M~
(U
W

os4ese
0S47S6

;ERR 7’5

OO0UMm
N~HIIX
[Uo—bere
—=W—~m

045460
0S1113

O0OOMm
NHIX
Us=ret=
W0

006452
0064SH
0064S6
006460

006444
006446
006450

:ERR

OQO0OOMm
MAIX
==Y
=W—=0

DYS437
0S1113
0s4eSe
054756

0O0OOmMm
M~4IX
=Y
o
N

006442

;ERR 73

'AFTER DISK PACK REMOVED

1\Je

000000
000000
000000
000000

;CARTRIDGE NOT CLERARED

» apuepma

006432
006434
006436
006440

;ERR 72

ERROR

0000

045714
051326
0S4074
os4e22

SEQ 0047

;MSG Bl ERROR

N~IX

gle422
006424
006426
006430

054756

:ERR 71

QOUM

045522

PAGE 47

:MSG Al

MNHNIX

ooeM12
0oeY 14
006416
006420

:ERR 70

Blelelelyl

045501
0slese
gs42Se
054756

104

12:16

:MSG BO ERROR

MN~HIX

006402
00640
006406
006410

;ERR 67

Blelele

045460
0S12%e
gs4ese
0S4756

MH4TIX

006372

joleje/

gs4ese
0S4756

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

ooom
Mn4IX

006366
006370

MACr1l

oco

CZRBJEO UNIBUS RK& DR PRT3
CZRBJF P11
25-JRAN-78 12:08

;SPIN SET

;AFTER LORDING HERDS WITH CART.

OUT

;ERR

102

;ERR

103

;ERR

104

000000
000000

006542
006544
006546

006550

000000
000000
000000
000000

006552
006554
006556
006560

047152
053503
0s4074
Os4eee

006562
006564
006566
006570

046051
051442
0S4074
os4622

006572
0Ces?4
006576
006600

046103
053157
054074
os462e

006602
006604
006506
006610

046741

goekl12
00eb1Y
006blb
006620

046130
051467
054074
osu4ee2

006622
goeb24
006beb
006630

o4e0eY
DS1467
0S46e2

006632
006634
006636
006640

045311
053157
0S4074
Os4e2e

0obEN2
006644
006646
00e850

047424
0S2157
054074
J84622

052764
0S4074
os46ee

:ERR

;UNS NOT SET

iRFTER MDS FOUND
;ERR

VWV SET

; WITHOUT PRCK CMD
;ERR

;DSC_NOT SET
;AFTER EVEN PARITY

;ERR

ISSUED

;WRL NOT CLERRED

{AFTER WRITE LOCK SWITCH DISABLED
;ERR

;ARTTN NOT CLERRED

:AFTER UNIT SELECT PLUG REMOVED

:ERR 112

0S4074

:NED NOT SET
L=
W

DTl

; ERR

113

;ERROR

;ATTN NOT SET

‘AFTER EVEN PARITY ISSUED
:PARITY NOT SET

000000
000000
000000
000000

OO0OUM—-0O00MmM
MH4IXLN<IX
—re(IUY
= (N~
@]
[Felss)
o
W

00o00C

SEQ 0048

000000

PRGE 48

0065ee

JO4

12:16

0000

000000

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

0000

00&s2C

MARCvil

0000

0 JUNIBUS RKb& DR PRT3
.P1l1
25-JAN-78 12:08

006730

122

006740

0S47%6

006742
006744
DOE746
006750

045253
051526
Qs4074
os4e22

006752
006754
006756
006760

045460
0S306S
os4ese
0S4756

006762
006764
006766
006770

045501
053065
ps4ese
0S4756

006772
006774
006776
007000

Q4sse2
053065
ps4252
DS475k

o
o
o

:AFTER PACK CMD

; CONT NOT RDY

{AFTER SEL DR CMD

;AFTER SUBSYS CLERR

;WLE NOT

SET

JAFTER WRITING WITH WRITE LOCK SET

;ERROR

;ERR

125

;ERR

126

;ERR

127

;ERR

130

;NED _NOT SET

;MSG RO ERROR

oOO0OUmMm
M-I
NN
~WoOom

R
Y
i

N'—‘-‘""—’—"‘"""*‘
OV NN LW~

;ERR

:ERR 123

006732

Q46024

;CONT NOT RDY

006722
OUE724
006?75

;ERR 121

—-n

047035
053065
gs4074
0os4e22

iAFTER WRITE LOCK SW ENABLED

006712
006714
D06716
006720

:ERROR 1

(@)

045253
051655
0s4074
os4e22

;WRL NOT SET

006702
006704
006706
006710

:ERROR 1

[ RS]

045253
0Sl1ke2
0s4074
os4e22

SEQ 0049

;AFTER WRONG PORT SELECTED

(=]

006672
006674
006676
006700

:ERROR 1

OOOUMOO OMr-—-000OM—-0O00Mm
NAIXIONAIIYN~HIIOC MN—I3X

0066

o4ses3
051577
os407Y4
oS4e22

OO0OOMm
DX
=N

006662
ASEEEY

:ERR 1185

b
P =¢
st PUMN)

047001
053025
0S4074
gs4622

PAGE

TAFTER WRITING WITH WRITE LOCK ENARBLED

;AFTER RECRL

:MSG_BO ERROR

CMD

;AFTER WITING WITH WRL

OO0Om
M<IX
Ne=fi—=
~WoOw

2484
2485
2486
2487
2488
2489
2490
2491
2432
24393

0oe6Se
006654
006656
006660

KO4

12:16

;MSG Al

ERROR

oO0O0OMm
M<IX
Ui
-Woo0

2475
2476
eN??7
2478
2479
2480
2481
248e
2483

25-JAN-78
ERROR POINTER TRBLE

jole ey

UNIBUS RK& DR PRT3
R&JE.P 11
25-JAN-78 12:08

30R(10S2)

QOOMNOMOMmM
MNM4IXXL
N IX
[y
m—
O =UNe=
o
Nu
—~WwoN

¢ ZRBJEO

MACY1l

;MSG 81

ERROR

ENRBLED

047077
054556
oo .

"AFTER CORRECT PORT SELECTED

o4e2le
05°215
usL”Y
05462
046246

W n NN
oo £ n

0s4e2e

046277
0s2215
0S4074
DS46ee

007132

048253

;ERR

;NO RDY

;AFTER SEEK CMD

DH28

;N
s NE D _NOT o7 SET
F
;R TER L T4 PORTS DESELECTED

EMS1

WRITE LOCK NOT SEY SECTOR BOUNDRY

DHB0

;AFTER WRITE LOCK ENRBLED WHILE WRITING

DHE3

;RFTER WRITE LOCK ENRBLED FROM RC OFF

133

134

DHSO

;AFTER WRITING WITH WRL ENRBLED

;ERR 135

;ERR

136

ERR

137

;ERR

140

ON NOT SET
IVE MANUALLY LORDED

DT1

;ERR

141

;ERR

142

;ERR

RERADY
POWERED UP

-4

047077
053432
054134
054532

;NED NOT CLEARED

007062
007064
007066
007070

pe
e

;CONT NOT RERDY

'atal

SEa 00SO

;N0 ATTN

047077
053233
0S4134
054556

PAGE SO

O
TMM

007052
007054
007056
007060

TRBL

LO4

17:16

EM13

QOO
THIZ
=W
o
ow

007050

047077
053065
oS4134
0s4532

054074
os4e22

DHeS

O oOom

007042

bats

DHes

[)

Q45024
052073

EM3]

007032
007034

POINTER

i
S| —~IXIX

045311
0S1767
0S4074
os4ee?

e -—

?E-JRN-??

£
W

007022
007024
007026
007030

ERROR

—

007016
007020

309(1053)

0os4eee

p45253
051767
QsS4074
os-s22

00703¢
007040

MACYL1]

Q4bl6l
gseler
054074

007012
0C701Y4

NN ~

2533
2534

007002
007004
007006
007010

8 00
o] O

2531
2s3e

o 000
000
O o000
=
000
NN ~N NONNNN

cEReIE”

UNIBUS RK?RDR PRTJ
Pll
N-78 12:08

CZRGJE.P11

25-JRAN-78

12:08

MACY11l

30A(10S2)

2S-JAN-78
ERROR POINTER TRBLE

3587 i BeEE9R

asgg

230

007140

0S4e22

gl s

;ERR 144

MO4

12:16

PRGE S!

DH34

;AFTER ST SPIN.

EML3
DH34

;sNO ATTN

EM3S
DH3S
DTl
D

; HEADS NOT HOME

0] 91
DF10

SEQ QJ0S!
CMD

DT!
OF10

2593
2S94

007146
007150

0S4074
0S4eee

2597
2598
59

0071584
007156
007160

052337
0S4074
054622

2601

007162

047376

2604

007170

0S4e22

2606

007172

046374

;AC LOW NOT SET

2bll

0u7e02

046424

;NED NOT SET

26le
ebl?
2618
ggég

007212
007el4
007216
007220

045253
051703
054074
054622

;NO RDY
;RFTER CLEAR CMD

262l
2bee
ebe3
2bed

007222
007224
007226
007230

0Q46M4S!
052424
054074
0S4e22

NOT C LERRED
;AC LO
N
;AFTER RC POWERED UP

2626

007232

046503

;VV NOT CLERRED

2629

007240

0S46ee

2631
2632

007242
007244

047277
(051703

;ATTN NOT CLEARED

2636
2637
2638
2639

007252
007254
007256
007260

04654S
051442
054074
054622

;VW_SET AFTER HDS LORDED

24l
242

007262
007284

Q046622
052660

s NXF=0
;AFTER SEEK WITH vv=0

Ségg 0071582 046340

S613 007808 Ds5ara
Sgig 07218 8?4622

€633
2634

007246
007250

;ERR

145

146

RFTER MANURL UNLORD

;CERR_NOT SET

{AFTER TIMEOUT TO POWER DOWN

054074
as4e2e

*WITHOUT 'PACK’ CMD

CZRBJED UNIBUS RKe DR PRT3

007272
007274
007276
007300

046701

00730
007 304
007306
007310

J45437
0c2660
os4ase
p54756

007312
007314
N07316

007320

045460
052660
gs4ese
054756

007322
00~ 324
007326
007330

045501
0Se6s0
054252
054756

007332
007334
007336
007340

o4ssee
052660
os4252
05475k

007342

046622

047712
052530
054074
054706

007362
007364
007366
007370

000000
000000
000000
000000

007372
007374
007376
007400

047712
os4007
0Ss407Y4
054706

007402
007404
007406
007410

000700
000000
000000
000000

00741¢e
007414
007416

045253
052163
0S4074

;ERR

160

;ERR

161

:MSG RO ERROR

;ERR 162

+ERR

;MSG BO ERROR

163

;ERR 164

;MSG A1

ERROR

;MSG Bl

ERROR

;NXF_NOT SET

'AFTER WRITE DATA WITH vv=0
;ERR 1865

; CANNOT REARD BSE INFO

:ON SECTORS 0, 2, 4, &, B

;ERR

166

;ERR 167

0000

007352
007354
007356
007360

;ERR 170

;ERROR

;ON SEC

10,

!2....20

;:NO ROY
;sAFTER READ HERDER CMD

(ple]

SEQ 00S2

;CYL ADDR CHANGED FROM O

OooOMm

007350

052717
0S4074
os4e22

PAGE S2

DT1

0s4e22

0ss012

12:16

054074

M—-IX
e O

007266
007270

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

oOMNO0O00O

2643
2644

MACY11l

—~Ix—
()
—
an

CZRBJED UNIBUS RK& DR _PRT3
25-JAN-78 12:08
ReJE. P11

— QuONONLW—O

n RPN
RO
~ NN NNNNNNNNNY
n m'—"""‘"‘"‘"""""""

CZR&JEO UNIBUS_RK& DR _PRT3
CZREJE. P11
25-JAN-78 12:08
007420

os4e22

007422
0o74cY
007426
007430

047475
052660
05S4074
os4e22

007432
007434
007436

047523
0seiel3
054074
054666

007442
007444
OC7446
007450

Q45S43

054666

007452
007454
007456
007460

047177
053503
os4074
054622

00?462
007464
DO7466
007470

047227
os4e22

007472
007474
007476
007500

045762
0S1467
054074
054622

00750e
007504
007 306
007s10

g4s2s3

007S1e
007514
007516
007520

045543
052450
0s4074
0S4666

007522
007524
007526
007530

047332
053602
os4e02
054602

007532
007534
007536
007540

045460
0S11i6l
0s4ese
054756

007542
007544
007546
007550

047376
053623
0S407Y4
054622

007440

0S4666

MARCY11

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

DF10
172
EMB]

BOS

12:16

PRARGE 53

;NXF DID NOT SET FAULT

:AFTER SEEK WITH vv=0

DF10

;ERROR 173
EMB3
DH30
DT1
DF1S
;ERROR 174
gEM21
DH30
DT1
DF 1S
;ERR 175

:OLT SET

;CERR SET

;UNLD NOT SET

SAFTER MDS JFOUND

; CANNOT FIND MDS

SAFTER SERRCHING ALL DRIVES
; VV_NOT CLERRED

:AFTER UNIT SEL PLUG REMOVED
DF10
; ERROR 200
EM12
DH39
DT!
DF 1S
; ERROR 201
EM21
DH3S
DTl
DF15S
; ERROR 202
EMSE
DHEB
DT
DFS

; ERROR 203
EM1B
DHS
DT13
OFel
;ERR 204

:NO_RDY
!AFTER WRITE HEADER CMD

;CERR SET

;UNEXP MEMORY PARITY ERROR

{TEST ®,PRAP PC
;MSG_BO ERROR

{AFTER AC SWITCHED OFF
;CERR _NOT SET

‘AFTER TIMEOUT TO ENRBLE WRL

SEQ 00S3

CZR6JED UNIBUS _RK& DR PRT3
CZR&JE.P11
25-JRAN-78 12:08

S%gg 007552 042035
e e e

2759

007560

0S4eee

27?62
2763
€764

007564
007566
007570

0S075S
0S4074
054606

276b
2767
2768
2769

007572
007574
007576
007600

047376
0S3065
0S4074
054622

2771
277e
2773
2774

007602
007604
007606
007610

045543
0S1767
054074
054622

2776
2777
2778

007612
007614
007658

047454
050053
Q54074

2781

007622

047671

2784

007630

054642

2786
2787
2788
5789

007632
007634
007636
JO7640

044643
050053
054074
0OS4e42

2731
279¢
2793
2794

(007642
007644
007646
007650

050412
052503
054074
054622

2796
2797
2738
2799

007652
007654
007656
007660

0Q4S437
052450
054252
054756

2801
2802
2803
2804

007662
007664
007666
007670

045460
052450
0S42S2
0S4756

280b
2807
2808
2809

007672
007674
007676
007700

(045501
052450
054252
0S47%g

760

MACY1l

S-JAN-78
ERROR POINTER TARBLE

30AR(10S2)

; ERR 20S

EMSO

S? 1 007562 047544

0076

caS

12:16 PAGE S4

SEQ 0054

;WRL NOT SET

;WCE AT CYL 411,TRK 2,
D
; ERROR 207
EMS?
DHSO

DT1
DF 10
;ERROR 210

;ERR 211

;ERR 212

;ERR 213

;ERR 214

SEC 21

;CERR_NOT SET

IAFTER WRITING WITH WRL ENABLED-

EM2l
DH2S
DTl
DF10

;CERR SET

EMS9
EM70
DTl
DF12

;CTO SET
sWHILE WAITING FOR OR REC’D CONTR RDY MSG R & B BARD

;sNED SET

;MDS SET

;RTZ NOT SET

:DURING RECD CMD

;ERR 215

;MSG_ARD ERROR

{AFTER WRITE HERDER CMD.
;ERR 216

;ERR 217

;ERR 220

;B0 ERROR

;A1

ERROR

CZRGJED UNIBUS RK& DR PRT3

CZRGJE.P11

25-JAN-78 12:08

2811

007702

045522

gd1p
Sel

007712
D77 14

00O
00

2812
2813
2814
2815

007704
007706
007710

818
2819
2820

007716
007720

2824

0077

052450
0854232
054756

0000
000000

posd
BRRERS
T
2825
2826
2827

§33§
2831
2632

007732
007734

5538

007742
007744

0000

EM20

DH39
DT13
OF21
.ERROR 221

007762
007769
007766
007770

045253
052012
084074
084622

007772
007774
007776

0OMS543
052012
054074
054666

.81 ERROR

8°
0

000000
U]

PAGE 55

0
0
:ERROR 222

:ERROR 225
0

387728 989%aa

DOS

12:16

0
0

000000
0OOOOD

838

0!0000

ERROR POINTER TRBLE

. ERROR 224
0
0

888833

007752

2843
3844
2845
2846
2847
2848
2849

25-JAN-78

000000
0ODOND

2835
2836

2842

30A(1052)

;ERROR 223
0
0

8843 885548 1BBA8S8
2840
2841

1ACY11

:ERROR 226
EM12

DH26

0TI
OF 10
;ERROR 227
EM21
DH26
DTI
DF 15

:NO RDY
!AFTER READ DATA CMD

:CERR SET

SEQ 0OSS

CZREJED UNIBUS RK& DR PRT3
CZREJE.PII
25-JAN-78 12:08

MACY11

2850
Sggé

2853

010002

012737

000001

2856

010012

00S037

001356

gggg

2857
2858
2859
2860
Sggé
2863

2864

010016

010016
010020
010024
010030
010034
010036

000402
00000S
012706
012746
012746
006002
004737

001356

EOQS

30A(105S2)
25-JAN-78
ERROR POINTER TARBLE

12:16

PAGE 56

SEQ 00S6

.SBTTL

PROGRAM SETUP

PARSRT:

MOV

PRASRT

81, PARAM

:SET_FLAG FOR 220 START

START:

CLR

PARAM

;CLEAR FOR 200 START

001100
000000
010036

PRGSRT: RESET
MOV
MOV
MOV
RTI

033344

18:

2865
2866

ISR

!START PROGRAM

#STACK, SP
#PRO, -{SP)
818, - (SP)

:CLERR ALL INT ENABLE & INIT
:SETUP STACK POINTER
:PSW LOADED TO BE
;LSI-11 COMPATABLE
:ENABLE ALL INTERRUPTS

PC, STKINT

:SETUP KB VECTOR ADDR,

:8 TURN ON KB INTERRUPTY

PRIORITY 4

2867

;#%% CPU PRIORITY LEVEL NOW AT O x#

2872

:CLOCK INTERRUPTS WILL CHANGE CPU PRIORITY TO LtVEL 6 (IN 'STS’)

gg;g

"KEYBORRD INTERRUPTS WILL CHANGE CPU PRIJRITY TO LEVEL 4 (SEE RBOVE)

2868
2869
gg;?

; ¥ ANY DEVICE WHICH SETS ITS
pexe INTERRUPT ENRBLE BIT
WILL
:%¥% SERVICED.

2873

"RKO6 CONTROLLER INTERRUPTS WILL CHANGE ~PU PRIORITY TO LEVEL S IN ’'SETINT')

:ALL 'SYSMAC' TRAPS WILL CHANGE CPU PRIORITY TO LEVEL 7 (SEE BELOW)

5339
2878

2879
2880

.SBTTL
010042
010046
010050
010054
01005

012706
005026
022706
001374
012706

001100

2887

010062

012737

031452

000020

2890

010104

012737

000340

2892
2893
2894
2895

010120
010{26
010134
010142

012737
012737
012737
013737

000340
031206
000340
023770

2897

010154

005037

001176

2888

010070

0123737

MOV
CLR
CMP
BNE
MOV

001140

001100

000340

000022

2896

2898
2899
2900

01011z

012737

010150

00S037

010160
010166

112737
012737

035562

001174

0101724

2904
2905

010206
010214

012737
012737

010242
177570

#SSCOPE J8IOTVEC % 10T VECTOR FOR SCOPE ROUTINE

MOV

0340A30€n7v50+2 ..L

000036
000024
000026
023762

MOV
MOV
MOV
MOV

8340 abTRAPVEC+3; (EVE
8SPWRDN, I8PWRVEC ; POHER FRILURE VECTOR
8340 gokunvsc+e ,,t
ssuoé SEOPCT
::SUP END-OF-PROGRRH COUNTER

CLR

ssscnps

000034

000004
001140

012737

MOV

; ;LOOP _BACK IF
NO
;)SETUP THE STRCK POINTER

000032

001115
001106

010174

,,INITIRLIZE A FEW VECYORS

AREA

;;FIRST LOCATION TO BE CLERRED
: ;CLEARR MEMORY LOCATION

#3490 auigrve
c+d

000001
010166

2901
2902
2903 010202 013746 000004

(SCMTAG)

sscnrnc RE
RE)+
nsun Ré& ;;DONE?
-6
#STACK, SP

'SETUP’

MOV

2889 010076 012737 031732 000030
2891

. SYSMAC

... IARLIZE THE COMMON TAGS

:;CLEAR THE COMMON TAGS

2881
2882
2883
2889
2885

2886

xxx»
su»
X%

001110

MOV

CLR

MOVB
MOV
MOV

;iLEVEL
7

$3ERROR, SRERTVEC ; EHT VECTOR FOR ERROR ROUTINE
sSTR

?lTRflP

TRQP vscron FOR TRAP CALLS

,,INITIRLIZE NUMBER OF ITERATIONS

jCLEAR THE ESCAPE ON ERROR ADDRESS

81, SERMAX
I.,SLPQDR

{ALLOW ONE ERROR PER TEST
,.INITIQLIZE THE LOOP ADDRESS FOR SCOPE

8648, I8ERRVEC
8DSWR, SWR

:iSET UP ERROR VECTOR
"ISETUP FOR
A HARDWARE SWICH REGISTER

LPERR

:SETUP THE

ERROR LOOP RDDRESS

;;SIZE FORRHnnouhns suxrcu REGIQTER IF NOT FOUND OR IT 1S
:"EQUAL TO A "-1"
SETUP
FOR
A SOF TWARE SWITCH REGISTER.
MOV
ahsnnvsc -(SP) ~;;SAVE ERROR VECTOR
MOV
MOV

CZR6JEO UNIBUS RK& DR PRT3

CZR&JIE.PI1I
2906

2907

2908
2909
2910

2911

2912

2913

2914
Sgig
2917
2918

2919
2920

2S5-JAN-78 12:08
012727

010236

001012

010240

000403

010246

00C002

010256
010264

012737
012637

000174
000004

005037
132737

001216
000200

001231

001232

001140
000004

010242
010250

010270
010274

010302
010304

Q22777

012716

012737

001403
012737

1777?77

gggé

010312

23923

010312

012737

010356

23926

010326

012701

172100

Sggg
2927
2928

010320

012737

010332
010334

005011
012711

010354

000401

000340
000001

2929
2930

010340
010346

2933
2934
2935
2936
23837

010356
010360
010364
010370
010372

0e26es
062701
020127
001360
012737

000006

2940

010404

004737

2942

010414

00S037

Sggé

gggg

2941

010400

010410

012737
012737

005037

001142

170702

010250
000176

031110
000340

001140

001142

000006

010420
(010424

23951

010432

2552
2953
2954
2955
2956
2957
2958

29!

PAGE 57

#DDISP,DISPLAY

BNE

668

658

668

678:

MEMPAR:

000114
000116

MOV

RTI

000004

8£5S8, (SP)

; ;BRANCH IF NO TIMEOUT TRAP OCCURRED
;;AND
THE HARDWARE SWR IS NOT = -1
;s BRANCH IF NO TIMEOUT

;;SET UP FOR TRAP RETURN

#SWREG, SWR

; ;POINT TO SOF TWARRE SWR

CLR
BITB

SPRSS
#APTSIZE,SENVM

67$%
#SSWREG, SWR

; ; CLEAR PRSS COUNT
;;TEST USER SIZE UNDER RPT

;s YES, USE NON-RPT SWITCH
1IN0, USE APT SWITCH REGISTER

MOV

%18 ERRVEC

: TIMEOUT VECTOR

MOV

SMEMBRARS, R1

;ADDR OF MEM CSR

sMEMERR, MEMVEC
8PR7 MEMVEC+2

;LD MEMORY CHK VECTOR IF DONT TIMEOUT

BEQ
MOV

MOV

#DISPREG, DISPLAY
(SP)+,a8ERRVEC ; ; RESTORE ERROR VECTOR

#PR? ERRVEC+2

CLR
MOV

(R1)
81, (R1)

CMP
ADD
CMP
BNE
MOV

(SP)+, (SP)+
;ADJ STACK
#2,R1
: TRY NEXT CSR
R1, SMEMBAS+40
;ALL TRIED?
33
:BR IN NO
SERRVEC+2, ERRVEC
;RESTORE

CLR

ERRVEC+2

024110

JSR

PC,CLRFLG

001222

CLR

SUNIT

001220

;;AND A HARDWARE DISPLAY REGISTER

;s TRY TO REFERENCE HARDWARE SWR

MOV

MOV
MOV

MOV
MOV
18:
23:

$-1, ISUR

SEQ 0057

CLR

SOEVCT

;SEE IF CAN REFERENCE
:SET ENRBLE BIT IF YES

TRAP CRTCHER

;CLEAR DDUMP THRU SIZFLG

'FIND OUT IF XXDP, ACT, AFT; CHRIN OR DUMP MUDE

2948
2949

2950

65$:

3s:

5332
2947

FOS

12:16

MOV

CMP
BH4S:

000002
172140
000006

25-JAN-78

INITIRLIZE THE COMMON TAGS

010222

010230

17 S70

MACY11l 30A(10S2)

005737
00101S

000042

123727

000041

010426

004737

010440
010442
(010446

001011
005237
104401
000000
000137
000137
005237

(010452
010454
010460

010464

024130

START!:

000013

CMPB

005450
036543
010470
010534

005456

TST
BNE
JSR

1$:

2s:

BNE
INC
TYPE
HALT
JMP
JMP
INC

42
18

PC,TITLE

;BR IF AUTO
:MANUAL,
TYPE PROG

2s
DDUMP
, MSG2

:SET RKO6 DUMP MODE FLRAG
:REPLACE DRO PACK W/SCRATCH 8 DO¢CR>

41,813

ST2
ST3

PPTP

: 13=LOADED BY XXDP

:HALT

:SET ACT/APT/PTP DUMP MODE FLRG

ECHECK IF ALL PARAMETERS DEFAULTED.

IF NOT, BEGIN INPUT DIRLOGUE

CZRBJED UNIBUS RK& DR PRT3
CZREJE.PII
25-JAN-T8 12:08

GOS

MACY11 30R(1052)
25-JAN-78
12:i6
INITIALIZE THE COMMON TRGS

2962
2963
2964

2965
2966

2967
2968

2369
2970
2971
2372
2373
2974
297S
2976
2977
297

2985

010470
010474

010476
010502
010506
010512
010516
010822
010526
010532

00S737
001002

000137
(04401
004737
104401
004737
104401
004737
000427

001356

sT2:

010566
036624
024210
036656
024350
036723
024376

18:

010534

123727

000041

005237

0DOS452

037040

010542

001067

2988

010550

0049737

010544

010554
010560

104401
000402

2993

01056k

012737

000210

gggg

010606

005237

00SS10

2998
2999

010612
010616

005037
005037

005322
005324

3001
3702

010626
010632

005037
005037

001176
001172

010654

012737

01C704
010710
010714

00S777
005237
013700

010722

022626

2994

010562

010574

005237

010622

3003
3004
3005

010636
010644
010650

3007
3008
3009
3010

010662
010666
010672
010676

38}3

010720

3006

3011
3012
3013
301&

3017

JMP
TYPE
JSR
TYPE
JSp
TYPE
JSF
BR

010724

005037

177440

005462
001220
001222

005777
005237
013700
012737

170460
00SS02
001350
010764

01273°

18:
001264

001334

ST4:

PARAM
18

STY
MSG3
AC,GDRVS
MSGH
PC,GBA
M5GS
PC,GINT
STS

;BR IF 220 START

200 START, DEFQULT 8 SIZE THE BUSS
:DRIVES TO'BE TESTED
:GET DRNOS.
:BUSS RDOR
:GET BA
:CONT INT VECTOR
:GET INT VECTOR

010722

170430
005504
0013S2
010770

CMPB

41,813

: 13=LORDED BY XXDP

INC

DDPCH

:SET RKO® CHARIN MODE FLAG

TYPE
BR

M&G?
3]

:DRO NOT TSTC

ACT11

:SET ACT AUTO FLRG.

MOV

8177440, 8BRSE

;DEFAULY VALUE

BNE

INC

MOV

§75:

000004

CLR
CLR

UNLD
enouoa

; INITIALIZE_FLAGS
USED IN 'STOP’ ROUTINE

CLR
CLR

SESCAPE
$TMPS

HPEND

ron VALID PROGRAM HALTS

MOV
CLR
CLR

$DRIVO,DRVPTR
SDEVCT
SUNIT

:SETU
INO. or DRVS DONE
: CURRENT on UNDER TEST

TST
INC
MOV
MOV

aLKS
LCLKF
LCVEC, RO
828 ERRVEC

:SEE IF ¢ 2CLOCK HERE
:PRESENT, SET FLAG
*VECTOR RDDR

15T
INC
MOV
1%:

'DEFAULT VALUE
;D0 “SIZE THE BUSSTM TEST

00000M

8210,RKVEC

SI2FLG

MOV

000004

PC,TITLE

PC stTINT

CLR
001362

18’

JSR
INC

005326

012737
005037
6037

00C“412

ST3:

JSR

00S4S4

2995 010602 004737 024430
3000

000013

024130

2989
2990
Sggé

157
BNE

nuro MODE
‘CHECK IF LORDED BY ¥XDP OR OTHER. SET FLAGS 8 NO INPUT DIALOQGUE.
'DEFAULT ALL PARAMETERS. TEST ONLY THOSE DRIVES THAT ARE READY
'ON THE BUSS

2986
2987

SEQ 00S8

:WITH OPERARTOR.
THE REPLY TO 'DRIVES TO BE TESTED’ SHOULD BE
;DRIVE NOS.
SEPERATED BY COMMAS 3 TERMINATED BY <CR>
;
EX:
DRIVES TO BE TESTED:
1,2,4<CR>

2979
2980
2981
2382

5364

PARGE S8

CMP

MOY

81§, ERRVEC

CLERR RKO? FLAG

SETUP TINEOUT ERROR VECTOR

JPKS
PCLKF
PCVEC, RO

:SEE IF P-CLOCK THERE
"PRESENT, SET FLRG
'VECTOR ADDR

(SP)+

:L-CLOCK NOT

(SP)+

848, ERRVEC

THERE,

C._ERR STACK

CZR6JED UNIBUS RKG6 DR PRT3

CZR&JE.P11

3018

- 25-JAN-78 12:08

010732

005777

010735

005237

005504

3022
3023

010752
010756

012720
012710

030230
000300

385? 8*834& 863539 BBéEBE
3026

010762

000407

gggg

010766

010764

022626

3029

010770

022626

383%

010776

109401

3030

010772

005506
037247

25-JAN-7?8

HOS

12:16

INITIALIZE THE COMMON TARGS

157

3s:

us:

JPKS

PAGE

SEQ 2059

:SEE IF PCLOCK THERE

ége

scbxg A

CEF?E;TA 3 FLAG

MOV
MOV

8CLOCK, (RD)+
8PR6, (RO)

ssnvxcs ROUTINE FOR CLOCKS

INC

BR
2s:

000767

005037

30R(1052)

170402

3019

ggsg

MACYLl

CMP

CLR

TYPE

NéluflTEg TIMING TESTS CAN BE DONE

TST.

::G0 TO NEXT TEST

(SP)+, (SP)+

:P-CLOCK NOT THERE,

(SP)+, (SP)+

:NEITHER CLOCK THER

. MSG!3

‘ALL TIMING TESTS BYPRSSED

DOTIM

CLERR STACK
CLERR STACK

: TIMING TESTS CANNOT'BE DONE-

CZREJED UNIBUS RK® DR _PRT3

CZRBIJE.P1)

25-JAN-78 12:08

MACY1l

gggg

30RA(10S2)

3039
3047
304}
3042

;
iR
¥
%

; »*

3833
011062

000004

012737

000001

3050

011016

0le746

000000

3052
ggsa

011026
011030

000002

011004

gg:g 011012 0l2706e 001100
011022

3055

011030

3059
3060
3061

3067

01.J)52
011056
011062
011066
011072
011076
011102
011106
Ol1llle

3056
3057
3058

3062
3063
3064
3065
3066

3068

011036
011042
01'746

012746
012737

013705
005765
00S76S

011154

001264
000000
000010

000002
000004
880006
0012
000014
000016
000020
000024
000026

3069
3070
3821

0llle2
0i1lee6
011132

005?68
005765
005765
005765

000036
000030
000032

3073

011136

012737

031022

QOlll44
0111S2

3077

Dl1154

(022626

3079

011160

000137

3081

3082

011156

012737
000404
104007

CERENE

t&11:

000004

;

MOV

#PRO, - (SP)

;RESET PSW TO PRIORITY O

157
1ST
TST

000006

RKMR3(RS)
RKECPS(RS)
RKECPT(RS)

MOV

$BRADTMO,ERRVEC

CMP

ERROR

023734

JMP

&TEST 2

3088

%
2
X
¥ |

818 ERRVEC

$BASE , RS
RKCSIIRS)
RKCS2(RS)

TST
7ST
TST

MOV
BR
18:

858, - (SP)

TST

1S7T

ITERRATION

RESTORE STK PTR

RKWC (RS)
RKBA(RS)
RKDA(RS)
RKDS(RS)
RKER(RS)
RKASOF (RS)
RKDC(RS)
RKDB(RS)
RKMR1 (RS)

TST
7S7
ST
ST
757

ggga
3086
3087
3088
308s

nsfncx SP

MOV
TST
TS7

STIMES

AR AR R RN RN F R R AR

MOV

000004

RREA RN R R R RN

MOV
RTI

000034

000340

BERERAENRERERER RN

SCOPE

MOV
cs:

0057?65
005765
00576S
005765
0057?65
005765
00S76S
005765
00S76S

3074
gg;g

001174

REFERENCE ALL CONTROLLER REGISTERS

TESTS AND JUMPING TO 'END OF PRSS’

011030

011116

3078

SIZING 3 SETUP

THIS TEST VERIFIES THART ALL THE CONTROLLER REGISTERS
CAN BE RCCESSED
THE INABILITY
TO BE ACCESSED WILL
RESULT IN
R TIMEOUT TRAP WITH
AN ERROR MESSAGE.
ANY
ERROR IN THIS TEST WILL RESULT IN ABORTING ALL OTHER

3046

SEG 0080

FERBRBEERRRRERERRRRRRF
R R RN R F RN ERRR AR R R R R AR R RN BB R RE AR E R AR RR

iTEST 1

30S1

PAGE 60

SIZING & SETUP

.SBTTL BRSIC CONTROLLER TESTS,

3036

3047

12:16

BRSIC CONTROLLER TESTS,

gggg

3045

I0S

@25-JAN-78

'8 MAKE IT LSI COMPATABLE
SETUP TIMOUT ERROR VECTOR

; SETUP INOEXG
REFERENCE ALL THE
CONTROLLER REGISTERS

; TIMEOUTS IN THIS SECTION
; INDICRTE THART THE CONTROLLER
;REGISTERS CANNOT BE RERD.
; TESTING SHOULD NOT PROCEED
sUNTIL THIS 1S REMEDIED.

RKMR2 (RS)

;SETUP TIMEOUT HANDLER

#PR7, ERRVEC+E
1572’

;;G0 TO NEXT TEST

(SP)+, (SP)+

;RESTORE STACK POINTER

SEOP

:NBORT-COULD NOT REFERENCE CONTROLLER REGISTER

R R Y T Y YYIYYIYITYTIYIIYITRREYIRZIITRIERE
Y

SIZE THE BUSS

THIS TEST IS ENTERED ONLY IF °'DRIVE SELECTION®

IS DEFRULTED

EITHER BY RUNNING IN THE RUTO MODE OR R 200 START IN THE
MANUAL MODE
.
EVERY DRIVE FROM 0 THRU ? 1S ADDRESSED.
CONTROLLER ERROR (CERR) IS EXRMINED AND IF NOT SET, THE

CZREJED UNIBUS RK&6 DR PRT3
CZRBJIE.PILI
25-JAN-78 12:08

JOS5

MACY11l 30AR(1082)
&25-JRAN-7B8
12:16
T2
SI1ZE THE BUSS

PAGE 61

3090
3091
3092

R
Iz
I

DRIVE WILL BE TESTED RS AN RKO6.
IF SET, THE PROGRAM WILL BYPRSS
TESTING THAT DRIVE ONLY IF THE ERROR WAS A RESULT OF
MDS, UFE OR NED BEING SET; OR BOTH NED 3 DRA RESET IN-

gggg

IF CERR DUE TO DTYE, DRIVE WILL BE TESTED RS AN RKO?.

3083

3096

305,

011164

g?gg

011174

3098

000004

C o RN

011166

012737

000001

gigé

011200

005237

001502

3103
3104
3{82

011204
01lel2
0l1214

001002

132737

000200

000137

011334

3.i07

O0Olle20

104401

037153

3108
3110

giié

011230
011232

011236

00S000
012701

3113
3114
311S
3116

0lle4e
0Oll246
011250
011254

032702
001410
005237
00521l

3118

3119
3120
3121
3i§§

0llee2

010046

011264
011266
011267

104403
001
000

3ie4
312S

011270
011272

00Ss721
005200

3108

3117

3126
gisg

3129

O0llee4

011256

012706

005037

013702

104401

0112?74
011300

022700
001402

001100

001205

000010

005737

005460

gigg

011314

000137

012010

g;:é

3143

3144
314€

011320

0007S6
001402

81 STIMES

;:00 1 ITERATION

INC

BYPCERR

;00 NOT TEST CERR IN FROY

BlTB
BNE
JMP

#8177, SENVM
148
129

;SEE IF USE APT SELECTED DRIVES
;BR IF YES
;ELSE DO NORM SIZING OR VERIFY

MSG10

sWILL TEST DRIVES

TYPE

CLR

104034

18%:

011322
011324
011330

000000
000137
000137

0106l
012010

011334

012765

000040

000010

ORIVS

;hESTORE STK PTR

;8 OF DRIVES PRECENT

RO
$DRIVO,RI

;DRv ADDR
;DRV FLAG

BIT
BEQ
INC
INC

8BITO,R2
168
DRIVS
(R1)

;SEE IF DRV IN DEVICE MRARP
;BR IF NO
;ELSE _INCR DRIVE COUNT
;8 SET DRIVE PRESENT FLRG

MOV

hU,-(SP)

;;SAVE RO FOR TYPEOUT

TYPQS
.BYTE
.BYTE

1
0

SDEVM,QE

$CRLF

;sRPT DEVICE MAP

;s JYPE DRIVE 8
;GO _TYPE --OCTAL RSCII
;3 TYPE 1 DIGIT(S)
; ; SUPPRESS LERDING ZEROS

ST
INC

CMP
BEQ

(R1)+
RO
88.,R0
178

ROR

15%

;& TRY AGRIN

TST

DRIVS

;SEE IF MORE DRIVES PRESENT

JMP

VERIFY

;ELSE EXIT TEST 8 SETUP FOR RKO?7'S.

ERROR

;NO DRIVES FOUND IN SDEVM

178:

OS?RCK,SP

CLR
MOV

TYPE

169%:

011306

3137
3138
giag

159%:

00S460

3132

SCOPE

IR 0 I U060 I 0006 06 06 06 06 36 06 06 06 00 00 36 06 06 00 06 06 06 36 00 JH 06 06 26 20 30 96 06 36 96 6 2 06 4

MOV

000001

006002

3136

148

001266

011302

MOV

005462

011304
011312

t&re2:

001231

005460

g{g?
3133

001174

DICATING THE OTHER PORT 14 ACCESSED.

BEQ

18%

;ADY POINTER TO NEXT FLRG
; INC DRIVE »
;ALL B8 TESTED”?
;BR IF YES

;ELSE GET NEXT BIT OFF DEVICE MAP

;BR IF _NO

20¢%:

HALT
IMP
JIMP

ST1S
VERIFY

;SETUP CORRECTLY 8 PRESS ’'CONTINUE-®
;70 TRY AGARIN
;D0 NOT SIZE, GO THE NEXT TEST.

12%:

MoV

#SCLR,RKCS2(RS)

;SUBSYSTETM CLERR

SEQ 006!}

PIl

%mm\i\l\)\l\l\)\)\lVVO‘O‘O‘U‘U‘U‘O‘U‘U‘U‘U\U’\UTUWU!U\U\U\U\U\L £L£L

U TN 0 0 s Dt et e Bt Pt Bt Bms Pt Pon Bt Bt Bt Bt Pt et Bt Bt Bt Bt P Bt Pt B Pt Bt it Pt Pt ot Pt P Pt Pt Pt Pt P Pt Pt Pt Pt Pt Pt Pt Bt st P et Pt et st et
OO0 OO LU0 0 WO WO D DD CO 0D 00D
—~ O o0ONCNIWNN—~0DO0DNOCNLW
= OWVONCWN LW
OO
NON LW~ OV
NN LW~ 00N

(NIRRT IR [RIR IR IS A AN [NRIN IR N NINIRININ IR TN IRIRIRIRIRIRIATRIRTARIRIRIRTRTATRIATATATRTRTATRINTRIRTATRTRTRTATN)

oty
mm

[N Y]
DD
oo

0 UNIBUS RKb DR PRT3
25-JAN-78

12:08

011342

013737

001424

011356
011362
011364

00S737
001762
104401

00SS10

011374
011376

005000
012701

011350
011384

011370

011402
0114862

011404

011410

004737
104120

005037
104415

024542

037153

:SI2E BUS?
:BR IF NO
:WILL TEST DRIVES

00S462

CLR
MOV

005460

000040

00I424
024542

011436
011444
Q11452
011460

012737
063737
013765
013737

011472
011500
011504

013737
004737
(04117

032737
001052
013?37

011532
011536
011540
011542

020037
001020
700
001003

011550
0115862
011586
011560

0061016
005237
005211
0S3711

011824

011844

011564
011570

011572

042737

005737

104401
010046

001
030
000403

011600
011604

004737
104001

011606
011610
011612

005721
005200
005037

011616

CLR

18:

022700

SCOP1

MOV
000010

MOV

ORIVS

‘s OF DRIVES PRESENT

$STARCK, SP

:RESTORE STK PTR

RO
#DRIVO,R1

#SCLR,RKCS2(RS)

DRV ADDR
:DRV FLAG

;SUBSYSTEM CLEAR

00S376

MOV
JSR
ERROR

T10, TEMP]
PC,FROY
120

1SET TIMEOUT
*FIND RDY
'RDY NOT SET BY END OF SCLR

000001
001170
005340
001432

005340
005340
000000
005376

MOV
BIS
MOV
MOV

#SELDRV, HCS1
STMPY, HeS]
HCS1,RKCS1(RS)
750000, TEMP1

sADD CDT IF RKO7
;GET STATUS

001424
024542

005376

100000

005340

MOV
JSR
ERROR

000010

025232

00S366

177770

005376

MOV

JSR

BIT
BNE
MOV

005376

BIC

CMP
BNE
TST
BNE

00S452
00S460

15T

ys:

001170

001208

BNE
INC
INC
BIS

TYPE
MOV

104403

011574
011575
011576

:SET TIMEOUT

SIZFLG
208
MSG10

012765

011506
011514
011516

110, TEMP]

SEQ 0082

1ST
BEQ
TYPE

001100

004737

MOV

PAGE &2

:FIND RDY
'RDY NOT SET BY END OF SCLR

013737
009737
104120

011466

10S376

S12E THE BUSS

KOS

12:16

PC, FRDY
120

012706

010065

25-JAN-78

JSR
ERROR

Cil416
011424
011430
011432

MACY1! 30A(1052)

TYPOS

025250

001170
000010

RO, RKCS2(RS)

PC,OLY

710, TEMPL
PC,FRDY
117

#CERR, HCS1
2s
HMR2, TEMP1

*SELECT THE DRIVE ADDR

:DO DELAY TO CATCH MD3

:FIND RDY
:NO RDY AFTER SELECT DRIVE CMD.

#1C<ORVMSK>
, TEMP!

RO, TEMP1
3s
RO
4s

DDPCH
Ss
DRIVS
(R1)
STMPY4,

(R1)

§CRLF
RO, -(SP)

:S/B SAME

:SEE

IF XXDP CHAIN MODE

;s INC DRIVE COUNT.
'SET DRIVE PRESENT FLRG
'ADD CDT IF RKO?

;;;egs gg §on TYPEOUT

160 TYPE--OCTRL RSCII

BYTE
BYTE
BR

1
O
3

PITYPE 1 DIGIT(S)
' 'SUPPRESS LERDING 2EROS

3s:

JSR
ERROR

PC,BYP
1

: TYPE BYPARSS DR #
"WRITTEN DR 8 DOES NOT MATCH RKMR2 DR

SS:

157
INC
CLR

(R1)+
RO
STMPY
#8. .RO

:SHIFT PTR TO NEXT DR. FLAG
INC
DR #
:CLEAR RKO? FLAG FOR NEXT DRIVE

CMP

o Lo .CHLIHLEELIHLSCNUCJN) oL

e
e
Bt
e
e
Pt
e et bt ot Bt

BNE

TST

00S460

BNE
ERROR

HALT

000137

gloele

032737

000040

00S354

002000
011402

001170

001000

00s 342

ooo400

00s34e

000001

0053s2

010000

00s342

2s:

13%:

NN N
Wwh

000739
025250

004737
104003
000720

025250

rd ¥

032737
001676
104401
010046

010000

00s342

104403
001
000
104010
00070S

éos
1

:NC DRIVES SEEN

:SETUP 8 PRESS "CONTINUE®

#DTYE ,HER
138
#COT, STMPY

BIT
BNE
BIT
BNE
BIT
BNE
BIT
BEQ
8R

#MDS, HCS2
68
sUFE, HCS2
7S
s0RA, HDS
8s
#NED, HCS2
98
1

PC,BYP

;ADD CDT

:TRY AGRIN

s TYPE BYP DR

ERROR
B8R

2
58

JSR

PC,BYP

BIT
BEG

SNED, HCS2
4g
MSG1S

TYPE

037360

:MORE LEFT.

BIT
BEQ
MOV

ERROR
BR

'MDS DETECTED

3
S$

:UFE DETECTED

;DRVS

MOV

ka0, -(SP)

TYPOS
.BYTE

GO TYPE-'OCTQL RSCII
,,TYPE DIGIT(S)

'ARA& NED BOTH SET

:NO DRA 8 NO NED = OTHER PORT SELECTED

.3YTE

ERROR

004737

02seso

9g .

JSR
gsnon

PC,BYP
gs

000137

012402

108:

JIMP

NUDRV

,,snvs RO FOR TYPEOUT
;TYPE DR#

: :SUPPRESS LERDING ZEROS

VERIFY:

; X

2222222222221 222:222:2222X2XX2X2X2XXTX2X2YT2XE2X22YIZISSRZ LR L

,irssv 3

VERIFY OPERATOR DRIVE SELECTIONS

e
S

THIS TEST IS ENTERED ONLY IF onxvs SELECTION IS NOT
DEFAULTED.
EVERY DRIVE FROM 0 YO 7 IS ADDRESSED 3

PROGRAM WILL ASSUME THE DRIVE IS PRESENT RS AN RKO6

CONTROLLER ERROR (CERR)
IF CERR WRS SET,

1S EXAMINED.

IF NOT SET,

THAT DRIVE WILL BE BYPASSED

TH
E

SEQ 00€3

STS

JMP

PARGE &3

DRIVS

JMP

JSR

8s:

LOS

S-JAN-78
12:16
E THE BUSS

392(1052)5

NNNNN O NNNYN O NNN
NN
"N
E
£ LW
noNoOrL
oLt
£

0012k?7
005?32

MAC 1]

004737
104002
000724

o ON
(=] ON
no
£

W
W|
n
sn
n U 4= 0o b= ot P Pt e
— OwoONNLW

3222

oo o
W
nn
£

IBUS_RKb DR_PRT3
25-JAN-78 12:08

NNNNNNoO
T oY
ne——0
NNOTVNLE

CZR&JEO
CZR&JE.P

CZRBJED UNIBUS RKE DR PRT3

CZRBJE.P11

25-JAN-78 12:08

3258

3259

MACY11l 30A(1052)

3560

012010

00000

3266

012012

012737

)

000001

3277
3278

3279
3280
3281

012040

012765

012060
012062

104120
010065

012046
012054

012066
012074
0%2%?2

013737
004737
012737
053737
01%;6;

000040

001424
024542
000010

012122
012130
0le.34

013737
004737
104117

3299

012210

005200
005037

022700

177770

BIT
BNE
MOV

005376

BIC

118:

001170

4§ :

001170
000010

001306
00047S

3303

012220

0Q4737

025250

3%:

3306
3307
3308

012230
012232
012236

001763
005337
005011

005460

12%:

3309
3310
3311

331e
3313

012240
012242
012250

012252
012260

éggg?i

000757
032737
001405

012737
000137

;NO RDY ARFTER SCLR
; DRV RDOR

000040

00S354

002000
012032

001170

2%:

PE SLY

$CERR,HCS!
2s
HMR2, TEMP1

;D0 DELAY TO CATCH MDS

#1C<ORVMSK>
, TEMP

CMP

RO, TEMP!L

;S7/8 SAME

BIS
T1ST

S$TMPY, (R1)
(R1)+

;ADD _CDT _IF RKO?
;SHIFT PTR TO NEXT DR FLRAG

BNE
TST
BEQ

INC
CLR

cMP

012214
0le22le

gisssz

12
RO,RKCS2(RS)

;SET _TIME OUT
; FIND RODY

; FIND RDY
;NO RDY RFTER SELECT DRIVE CMD.

JSR

3300
gggé

gggg

;SUBSYSTEM CLERR

110, TEMPL
PC,FROY
117

005376

012202
012204

#SCLR,RKCS2(RS)

110, TEMPI
PC, FROY

MoV
JSR
ERROR

020037

3237
3298

;RESTORE STK PTR

005376

012162

0S3711
005721

’

#STRCK, SP

MoV
JSR

ERROR
MOV

ke
AR
;DRIVE FLRG

001424
024542

3291

012174
012200

aptacs?
#DRIVO,RI1

;aDO_1 ITERATION

;ADD CDT _IF RKO?
;GET STATUS

005376

3295
3296

ecop
MOV

1 STIMES

#SELDRV HCS1
STMPY, HESI
?CglbgkgéééTS)

005366

001014
005711
001402

A RESULT OF

MOV
BIS
283

00S340

0i21e6
012170
012172

IF CERR IS

00S340
00S340
888%98

100000

3292
3293
3294

MOV

005376

032737
8059%9
1

042737

MOV

000010

012136
815144
12146

0121%4

3287
3e8
328

3290

VERIAU
Yy AAs'RofESEER;fERINT THE INPUTTED INPORTO
IF CERR DUE TO DTYE, DRIVE WILL BE TESTED RS RKO7.

NED & DRR RESET (WRONG PORT).

000001
001170
005340

358% 815112 8647 7 ggéags

3284
3285
3286

e
‘x
001174

371 Q103 o441
gg;g 812034 012706 001100
327S
3276

SEQ 00e4

%élsilllggssgllilliillflll!lllllllll!illillillll!lllll*llillv!llll!l

3565
81%R5 Biepds O
3269 012026 012701
005462
3274

PRGE b4

VERIFY OPERATOR DRIVE SELECTIONS

ONLY IF THE ERROR WAS A RESULT OF MDS OR UFE SET OR BOTH

gsgg

MOS

12:16

;¥
o

gggg

25-JAN-78

33
(R1)
4$

RO
S TMPY

88.,R0

; INC DRs
; CLEAR RKO?7 FLARG FOR NEXT DRIVE

BNE
BR

13
TSTH

;MORE LEFT
; ;GO TO NEXT TEST

JSR

PC,BYP

; TRY_BYPRSS DRIVE#S

BEQ
DEC
CLR

4§
DRIVS
(R1)

;BRANCH _IF NOT SPEC BY INPUT
; DECREMENT TOTAL DRIVS
; CLERR DRIVE FLRG

MOV
JMP

8CDT, STMPY
13

;ADD COT
; TRY AGAIN

%g?OR

BR
BIT
BEQ

%Rl)

us
#DTYE, HER
13%

;WRITTEN DRs DOES NOT MARTCH RKMR2 DR#

331!
3318
3316
3317
3318
3319
3320
3321
3322
3323
3324
3325
3326

3327
3328
3329
3330
3331

3332
3333
3334
3335
3336
333
333.
3339
3340
3341
3342
3343
3344
3345
3346
3347
3348
3349
3350
3351
3352
3353
3354
3355
3356
3357

MARCY1l

NOS

30AR(1052)
25-JAN-78
12:16
PAGE 65
13
VERIFY OPERATOR DRIVE SELECTIONS

#MDS, HCE2
6%
SUFE, HCS2

13%:

0Oleee4
Qiz2272
012274
012302
012304
012312
012314
012322
012324
012326
012334
012336
012340

005711
001717

012342
012346
012350

004737
104006
000730

025es0

0i23%e
012356
012360

004737
104002
000724

02seso

012362
012366
012370

004737
104003
000720

025250

79:

JSR
ERROR
BR

012372
012376
012400

0Qu?737
104004
000714

025250

9s.

JSR
ERROR
BR

032737

001000

005342

0oo400

005342

000001

0053Se

010000

005342

010000

00s342

7€
#0RA, HDS
8s
#NED, HCS2
9

10%

#NED, HCS2
11%
(R1)

8%:
10%:

4§

PC,BYP

s TYPE BYPASS DRIVE#

128
6%:

JSR
ERROR
BR

PC,BYP

128

PC,BYP

3
12%

PC,BYP

: TYPE BYPASS DRIVES

*MDS DETECTED
: UFE DETECTED

:DRA 8 NED RESET - OTHER PORT SELECTED

THIS PART OF THE PROGRAM WILL BE REPEATED FOR EACH
:DRIVE PRESENT

"SUNIT' CONTRINS THE ADDRESS OF THE DRIVE CURRENTLY
:UNDER TEST
012402

00S037

001502

012406

005037

001170

NUDRV:

CLR

BYPCERR

CLR

STMPY

;ENTER HERE FROM LAST TEST

iTEST CERR IN 'FROY
:RKD? FLAG

SEQ 00esS

(gle]

CZR6JEQ _UNIBUS RKE DR_PRT3
CZRBJE.P11
25-JAN-78 12:08

CZR6JEQ UNIBUS RK& DR PRT3
CZRGJE.PI11
25-JAN-78 12:08

MACYLl 30n(1052)

ggg?

iTEST ]

gggg

3363
3364

3367

;%
;#

012412

000004

012737

000001

001174

gg;g

012434

012737

000004

001214
001102

3374

Qle442

005737

005460

O0iedly

3370 0le422 012706 001100
3371 0ledee 012737 000004
3

3375
3376
gggg
3379

3380
3381
3382
3383
3384
3385
3386
3387

3388
3389
33390
3391

gggs

3394

3395
3396
3397

OQOi2446
012450
012484
012460

O0Ol246e4
0124”0
01247
012476
012500
012502

012504
012506

001004
104401
000137
013701

005737
001402
005237
005711
001002
005721
000772
005737

t&t4:

037740
023734
(001362

4s:

001220
001222

19:
2%:

00S4s2

012512
012514
012520
012522

001405
005737
001002
005721

001222

0125e6

032721

002000

012524

FIND NEXT DRIVE TO BE TESTED

THIS TEST FINDS THE NEXT DRIVE PRESENT & PUTS THAT

ADDRESS IN 'SUNIT’ & STMPY 1S SET TO CDVT IF DRIVE IS RKO?7.
THROUGHOUT THE FOLLOWING TESTS, THE DRIVE TESTED IS
THE DRIVE WHOSE RDDRESS IS IN

58:

000762

SCOPE

MOV
MOV

81,STIMES

;

MOV

sStAack,
SP
8STN-1,'§TESTN

#STN-1 STSTNM

TST

DRIVS

;ANY DRIVES PRESENT?

4s
MSG27
$EOP

YES BRANCH
RLL DRIVES TESTED
;No, GO TO END

MOV

DRVPTR,R1

;ADDK OF NEXT DRIVE FLAG

TST
BEQ
INC
TST
BNE
TST
B8R
ST

BEQ
TST
BNE
TST
BR

3%:

BIT

6%:

TYPE
MOV

SOEVCT’
29
SUNIT
(R1)
=%
(R1)+
19

DDPCH

#CDT, (R1)+

;SEE _IF DRIVE UNDER TEST IS RKO?7

SGi5
SUNIT RO

; “DRIVE"TM

010046

3402

012560

104403

TYPOS

g:gg

012563

000

.BYTE

TYPE

, SCRLF

001

gggg

3408

;

012564

005737

001170

012570
012572

001014
012737

000632

012654

J4l2

0leed4

012737

000777

012656

012600

005037

012662

3413 0leble 012737 160017 012660
3414

0l2620

000421

69
#COT, STMPY
R1,DRVPTR

MOV

RO, ~(8P)

TST

3409
3410
3411

BEQ
MOV
MOV

.BYTE

BNE
MOV

STMPY

7S
#632,LC

CLR

e.oo0t

TSTS

MOV

;DDP CHAIN MODE”?

BR IF NO
ELSE SEE IF DRV O
BR IF NO
ELSE FIND NEXT DRIVE PRESENT

012556

3398 012546 104401 037360
3399 Q012552 013700 001222

001170

IS FIRST DRIVE BEING CHECKED
YES BRANCH
INch DRIVE RDDR T0 NEXT DRIVE
IS DRIVE PRESENT
BR IF YES
ELSE FIND NEXT DRIVE

33
SUNIT
33
(R1)+

338?

002000
001362

1 ITERATION
hesrons
STK PTR

BNE
TYPE
JMP

001403
012737
010137

012562

’SUNIT’

MOV

(012532
012534
0le2%54e

3403

SEQ 0066

'o 303636 3636 36 36 36 36 36 36 36 06 36 36 36 36 36 3636 36 36 36 363698 36 3 36 36 36 36 38 36 3636 3636 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 30 36 36 38 36 36 % % %

3368
3369

25-JAN-78 12:16 PAGE &6
FIND NEXT DRIVE TO BE TESTED

o 36363 3 36 36 36 3 36 36 36 36 36 36 36 38 36 36 36 36 36 36 36 36 36 96 96 36 36 36 36 36 36 36 3 3 3 36 2 36 36 30 36 36 38 38 30 30 26 36 30 3% 38 36 96 36 36 3 3 3 % % %

3359

BO6

BR IF NO
ELSE SET RKO? FLAG
STORE POINTER TO NEXT DR FLAG

”82¥55R0 FOR TYPEOUT

,,co TYPE--OCTRL RSCII
;s TYPE 1 DIGIT(S)

; ; SUPPRESS LEADING ZEROS
;SEE _IF RKO? UNDER TEST

BR IF YES
ELSE LOAD RK0O& PRRAMETERS

%777, MASK

016001? MQSKl

; ;GOTO NEXT TEST

CZR6JEO UNIBUS RKE DR PRT3
CZRBJE.PI11
25-JAN-78 12:08

012622

MACY11

012737

001456

012654

012737

1400

012660

815737 B8R07%173 815EEE
o404

000000
000000
000000
000000

CO6

vE 18 of"FEstE

3CA(1052)
25-JAN-78
Ty
FIND NEXT DRIV
s ¥

LC:
MASK:

MRSK]
:

E.DDT:

gox

OlHSB*LC 00T

; LORD RKO7 PARAMETERS

TETS

;s GOTO NEXT TEST

Moy
MOV
0
0
0
0

37498 el
o140017 MASK1
]

;LAST CyL

;EXPECTED DRIVE TYPE TO E.RO

SEG 0087

CZR6JED UNIBUS Rk& DR PRT3

CZR&JE.PI11

25-JAN-78 12:08

MACY1l

30R(1052)

2S-JAN-78

DOS

12:16

PAGE &8

SEQ 006&8

FIND NEXT DRIVE TO BE TESTED

3459 012664
3428

PFSRT:
.ENTER HERE FOR POWER FRIL RESTART
, ;!!Illlllllllllllll!lll!llilllli!lllllllllllil!!l!!!iIlllliillll

3q31

3:28

:TEST S

3:35

g"‘gq

PRINT DRIVE SERIAL NUMBER

THIS TEST RERADS 8 PRINTS THE DRIVE SERIAL # FROM MSG R, WORD 11
IN BCD 8 1S PERFORMED ON THE 1ST PRSS ONLY

'X 2223222222322 222X22322X222222XXX2X2TXT222X2S22S22222Z2222 24

g:gg
8?29%: 000001
:g? 8%5222
012674 012706
001100 001174 Fers: ESSP‘
MOV
3qag 012700 00S737 001216
3::0

oia;oq

8059“5

026476

444

012714

104401

037372

3446
3447
3448
3449
3450
3451

012726
012732
012736
012742
012744
012750

004737
013701
012704
0104496
012703
006101

026106
005366
035046

33:3 81571

18403fl

TST

3452
3483

3454
34S5
3456
3457

012752
(12754
012756
012760
012762
012764

3461

013000

3458
3489
3460
3462
3324
3465

3466

012766
(012772
012776

006101
006101
006101
006101
006101
010100

042700
0S2700
110024
00]364
1050

013006

004737

000003

177760
000060

035314

;

3469

33;9

PC.GSTAT
HMR2 R1
#S0CtVL Ry
R4, - (SP}
%3R3
R1

Rl
R1

R1
R1
R1
R1,RO

BNE
CLRB

13
(RY)

JSR

PC,

TYPE

" §CRLF

SSUPRS

,SCRLF

GO ao Qexg
IF NOT FIRST PASS

ESRE 8? ER %E

: DRIVE SERIQL NO.

:SELECT BYTE 3

:GET STATUS
:GET SERIAL #
'GET ADDR CHAR BUFF
!STORE ON STACK FOR $SUPRS
:SETUP CHAR COOUNT
SINITIARLIZc BIT POSITIONS
sGET NEXT 4 BITS

:GET WORKING COPY

'CLEAR ALL BUT LOW 4 BITS
:CONVERT TO nscxx DIGIT
:PUT RSCII DIGIT INTO CHAR BUFF
é‘ %E
INSERT

CHARS NOT DONE
NULL TERMINATOR

: TYPE

11221222222222222:222222222222233X22X2XX22:2X222222X22222F22X2222
2L

;;

IF vv IS RESET, THE PACK COMMAND IS USED TO SET IT.

SET VV WITH PRCK COMMAND

» 3636 36 36 36 36 3 36 36 3 36 36 3 36 3% 36 36 3 3 3 3 3 36 3 36 46 36 3 36 3 3 3 U 3 3 3 3 3 3 3 I 3 3 3 3 3 3 3 AU I

3475

013012
013014

012737

000001

J479
3480

013026
013032

004737
104024

026436

3476

G16

$177760,R0
%60, RO
RO, LRY)+

TYPE

iresv

g:;g

24’

BIC
BIS
MOVB
DEC

000004

53 RKMR1 (RS)

ROL
ROL
ROL
ROL
ROL
MOV

1%:

g:gg

3474

TYPE

JSR
MOV
MOV
MOV
MOV
ROL

005303

013002
613004

;ngUBCLR

MOV

Ehggréné TERATION
ETK 3?R
.

$PASS

BNE

gEROR

3445 Q012720 0le765 000003 000026

TIM
c§?3CK,§3
.

gg;g 013022 012706 001100

001174

+&Te:

SCOPE
MOV

MOV

81,

#StACK, SP

STIMES

hesvone STK PTR

ITERATION

JSR
ERROR

PC, SUBCLR
24

:CERR AFTER SCLR

KX EERR

MACY1l 30A(1052)

SET VV WITH PRCK COMMAND

000100

005366

100000
0

000000

BIT
BNE
MOV

CZR6JEQC UNIBUS RK& DR _PRT3
25-JRAN-78 12:08
CZReJE. P11
3482
3483
3484
348S
3486
3487

024446
000100

T®

25-JAN-78

EQG

12:16

PAGE 69

uo.vv HMR2
TS717
#CCLR,RKCS1(RS)

SEQ 00869

:3GO TO NEXT TEST IF vv SET

000010
005340

MOV
MOV
JSR
ERROR

SUNIT RKCS2(RS) ;DRIVE #
8PACK| HCS1
PC, 00&MD
;00 PACK CMD & GET CONTR ROY
118
:CONTR NOT RDY

005366

BIT
BNE

#D.
VV, HMR2
64$

£us

ERROR

;VOLUME VALID NOT SET RFTER PACK CMD

» 3636 96 36 3 36 36 36 36 36 36 36 36 36 3 36 36 36 3 36 36 3 36 3 3 36 3 3 36 3 3 3 3 3 3 3 3 3 3 3 3 % % 3% 3 3 3 3 3 3 3 3 33X %% X%

irssr

;;

013122

005237

WwW

00000

WLWWWW

bt b

s Pt

s pa

nnNrLLw
LOoonLe
M
hqg

000001
001100

[t wreteteted

000004
012737
012706

001174

tsrr

THIS TEST UNLORDS THE DRIVE TO BE TESTED NEXT

SCOPE

3 3 % 3 I K W ¥ 3 3 2 A X %W KE ¥R

MOV

81, STIMES

::D0 1

005322

INC

UNLD

:USED TO CHECK FOR VALID HALT

004737
104024

026436

JSR
ERROR

PC, SUBCLR
24

:CERR AFTER SCLR

012737
004737
104017
004737
104020

000007
024446

MOV

005340

MOV

JSR
ERROR
JSR

025024

EKEWE %

WAITS FOR ATTN & VERIFIES IT CAME FROM THE CORRECT DRIVE.

o 369636 36 36 36 38 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 96 36 3 36 36 36 3 36 3 3 3 3 J 3 3 3 3 3 3 3 3 3

013106
013110
013116

ERROR

#StACK, SP

SUNLORD, HCS1

ITERATION

PC, DOCMD
17

;D0 UNLORD CMD & GET CONTR READY
'NO RDY AFTER UNLD CMD

:NO ATTN AFTER UNLOAD CMD

PC, TSTATN

.SBTTL OPERATOR INTERVENTION TESTS
, X

Y 22222222222%2223222232212322X22X22XXXX22T222222TX2ILITITI2I2 L L

ires 10

WWWWWwWwWw
nnainnonn
= 0= 0 9 4t pe e
owoNoCMN
LW

3512

UNLORD DRIVE TO BE TESTED

s x
S

‘x

D%
s a

00004
12737
12706

000

aon
aooo

WWww

[

000

000001
0ol100

001174

INTERLOCKS TESTS

THIS TEST VERIFIES THAT THE DOOR 8 CARTRIDGE STATUS BITS

ARE OPERATING PROPERLY IN MESSRGE AD
8 THAT
OF THE CARTRIDGE CLEARS VOLUME VALID.

THE REMOVAL

ggsgggguun RIFIE
RLL&REHQINING STATUS BITS OF

THIS TEST nLgb cuscxs THRT THE SPINDLE CANNOT BE STARTED

WHEN THE DOOR
IS OPEN
OR THE CRRTRIDGE IS REMOVED.
IT ALSO VERIFIES THAT LOSS OF VOLUME VALID RESETS SACK WHICH

ASSERTS NON EXISTENT DRIVE IN RKCS2

: 2222222222222 222X2222222222XX222222222322222X223 222222222222 L
t&710:
scoPE
MOV

MOV

$TIMES

sszCK Sp

ITERATION

hESET STACK PTR

CZR6JEO UMIBUS RK& DR PRT3

CZRBJE.P 11

25-JAN-78 12:08

MACY!1 3??51052)

25-JAN-78

FOb

12:16

INTERLOCKS TESTS

PAGE 70

SEQ 0070

013172
013176

004737
104024

026436

JSR
ERROR

PC,SUBCLR
24

; CERR AFTER SCLR

013200

005237

001502

INC

BYPCERR

;DONT DO CKCERR ROUTINE

013204

104401

037075

TYPE

,MSG8

INTERLOCKS TEST

000137

013210
013214

013320

104401
004737

041765
030412

014020

TYPE
JSR

IMP

’MSGS2
bc CCSP

TYPE

,MSGY?7

{CONT-E TO EXIT OR SPACE TO CONTINUE
: INPUT_CONT-E OR SPACE
;RET HERE FOR CONT-E
; VERIFY DOOR CANNOT BE OPENED

013230
013234

104401
004737

104401

041441

040573
030952

TYPE
JSR

'MSG37
PC,GETSP

DEPRESS SPRCE WHEN DONE
;GET SPACE

013240
013244
013250

104401
104401
104401

043432
040076
040573

TYPE
TYPE
TYPE

, MSG6S
'MSG30
MSG3?7

;OPEN DOOR 8 LEAVE IT OPEN
DEPRESSSSEQEE BAR WHEN DONE

013224

013254
013260
013266
013272

004737
01276S
004737
032737

013302

104044

013300
013304
013312
013316
013324

013332

013336
013340

001401

012737
00S037
012737
012737
004737

000000

000140

005432
000540
000001

000026
005366
00S430

10-346
104063
104064

013350
013354

004737
104024

013356

104401

013302
013366
013372

104401
104401
004737

013376

004737

013410
013412

001401
104065

032737

JSR
MOV
JSR
BIT

PC,GETSP
81,RKMRI(RS)
PC.GSTA
no DOOR, HnRa

ERROR

BEQ
1S:

00OS434
005436

025264

MOV

; INPUT

*SELECT WORD 1
:DOOR STATUS BIT NOT CLEARED

#<D.DRA!'D.VV>
,E. A0

;EXPECTED RO

CLR
MOV
MOV

E.BO
#<D.HDHM!D.BRHM! D.CART>,E.Al
81,E.BI1

JSR

PC, CHKMSG

;CHECK MSGS RO,

ERROR

_WORD

0'0'0

BO, AL,

:8 MSGS SPECIFYED

HERE'

ERROR
ERROR
ERROR

46
63
64

:MSG RO ERROR QFTER DRIVE UNLORDED 8 DOOR OPENED
iMSH BO ERROR
:MSG Rl ERROR
iMSG B1 ERROR

026436

SR
ERROR

PC, SUBCLR
24

;CERR AFTER SCLR

040226

TYPE

,MSG33

; PRESS

104045

013342
013344
013346

013402

030452
000001
026106
000200

;DEPRESS RUN/STOP SW _TQ 'STOP’

040313
040573
030452
026106

010000

013414
013422
013426
013434

012737
005037
012737
012737

000140
00S432
000540
000001

013442

004737

025264

00S366
005430
005434
005436

’MSG3Y
'MSG37
pC,GETSP

JSR

PC,GSTAT

BEQ
ERROR

2s
65

MOV
CLR
MOV
MOV

#<D.DRA!D.VV)>, E.AD
BO

JSR

PC, CHKMSG

BIT
2§:

*RUN-STOP’

’'RUN°’

:VERIFY DOES NOT START

TYPE
TYPE
JSR

;GET SPARCE FROM TTY

80. SPIN, HMR2
;SPIN SET IN MSGARO

; EXPECTED MSG RO

#<D.HDHM!D.BRHM!D.CRRT>
,E.Al
2l
E

; CHECK MSGS RO,

BO,

Al,

CZR6JED UNIBUS RK6 DR PRT3
CZRGJE.P11
25-JAN-78 12:08

gggs
&
3597
gggg

3594

81 ch
013482
Q13454
0134

013446

000000

3600

oxgqso

004737

026436

3&8&

3603

013464

184829
104
104070
104071
104024

.WORD

0'0'0

JSR

PC, SUBCLR

TYPE

, MSGES

RROR
RROR
ERROR
ERROR
ERROR

3604
3605
gggg

813472
013476
013502

84981
004737

104401

o43432

3608

ng 06

86273§

00000l

000026

MOV

3610

013520

032737

000400

005366

BIT

ggig

013530

104072

3608
3611

3614

3615

013466

MACY1l 30R(1052)
25-JAN-78
12:16
T10
INTERLOCKS TESTS

013514

013526

001401

040166
040573
030452
026106

TYPE
TYPE
JSR

004737

026436

3618

013540

104401

040401

TYPE

3620

013550

104401

040573

TYPE

004737

026106

SESé
3623

013544

013554

013560

104401
004737

3624

013564

032737

gggg

013574

104100

3628

013576

3625

3629
3630
3631
3632
3533
3635

013572

104401
104401
104401
004737
005037

013626

012765

013640

004737

013634

3638

013644

363

3231

3642

3 43

104401

013602
013606
013612
013616
013622

3636

3637

001401

043432

100000

026106

0S0240

005430

005434

012737

000001

(48 013704
013710 0Q4737
080000

025264

013670

013676

012737

3647

3849

013712

104074

005436

7§:

,MSG3S

:PRESS "RUN-STOP’

"MSG34
MSG37

:SPIN SET IN MSG AO

, MSGES

;PRESS_’RUN-STOP’

"M5G36
"MSG70
MSG69
pC,GETSP
UNCD
#CCLR,RKCS1(RS)

RKMR] LRS)
78

MOV

$]1,E.81

ERROR

:SELECT WORD O
;VW NOT CLERRED AFTER PACK RE-INSERTED

#<D.DSC!'D.SPIN'D.DRDY!D.DRA> ,E.RD

E.B0

SR
_WORD

TQ ’'STOP’

' INSERT CARTRIDGE, SET ’RUN' SW. 8 CLOSE DOOR
:VERIFY HERDS LOAD
: DEPRESS spnce NHEN RERDY GOES ON
:GET SPACE FROM
'FOR VALID HALT

oo VV, HMR2

CLR

MOV

:GET SPACE FROM TTY

100

BEQ

MOV

TO ’RUN’

:VERIFY DOES NOT START

8D’ SPIN, HMR2

PC,GSTAT

ERROR
8 swgs

:CERR AFTER SCLR

JSR

BIT

: CARTRIDGE STATUS BIT NOT RESET

CLR

005366

PC,SUBCLR

BEQ

MOV

10403

803937

3232

000000

PC,GSTAT

TYPE
TYPE
TYPE
JSR
CLR

: DEPRESS 'RUN-STOP’ SW 7O STOP

8D. CART, HMR2

JSR

TYPE

:CERR AFTER SCLR

- SELECT WORD 1

pC,GETSP

BIT
S$:

040476
043672
043615
030452
005322

000100

012737

005366

‘MSG AQ ERROR AFTER ATTEMPT TO START SPIN & DOOR GPEN
‘MSH BO ERROR
iMSG Rl ERROR
iMSG Bl ERROR

81,RKMR*(RS)

JSR

ERROR

032737

013656
813294

010000

000026

08140

TYPE

030452

005065

gxaege

136349

040313

ERROR

;8 MSGS SPECIFIED HERE

:REMOVE PACK 8 CLOSE DOOR
:GET SPACE FROM TTY

013532

SEG 0071

'MSG3
"MSG3
AC,GETSP

BEQ

013536

3619

3%:

3219

104024

bb
&7
70
71

JSR

ERROR

PAGE 71

:EXPECTED RO

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

PC, CHKMSG

; CHECK MSG

‘MSG RO ERROR nrrsn Pncx REINSERTED 8 HEADS LORDED

07070

0
n- Bl
& MSGS ch PIEB

CZR6JEQ UNIBUS RK& DR PRT3

CZRBJE.P11

3650

3851

§s g

013714

013716

013720

25-JRN-78 12:08

MACY1l

HO6

30AR(1082)
12:16
25-JaN-78
T10
INTERLOCKS TESTS

10407S
104076

ERROR
ERROR

104077

£23 013722 012765 100000 00000Q

3635

013730

13794

%56

Di373e

013765
0ia7a7
7

3658

013750

104115

3660
3661

C137S2
013760

032737
001001

3663

013764

3662

3664

013762

00ie222
0go003

000100

005237

005322

3666

013770

004737

026436

3669

013776

012737

000007

3672

014012

004737

025024

3670
3671
3673

3674

013774

014004
014010
014016

014020

104024

0049737
104017
104020

024446

:MSH BO ERROR

'MSG Al ERROR

MOV

SUNIT RKCS2(RS) ;DRIVE #

nov

JSR

8CCLR, RKCS1(RS)

APACK (HCS
1

ERROR
005366

104027

013764

367

005340

75
76

. VOLUME VALID NOT SET AFTER PACK CMD

INC

UNLD

:FOR VALID HALT

JSR

PC,SUBCLR

ERROR

SUNLORD, HCS1

:CERR AFTER SCLR

JSR
ERROR

PC, BOCHD
17

DO UNLOAD CMD 8 GET CONTR READY
!NO RDY RFTER UNLD CMD

ERROR

:NO ATTN AFTER UNLORD CMD

ISR

3676

DO PACK CMD 8 GET CONTR RDY

!CONTR NOT RDY

#D.VV, HMR2
648§

MOV

8%:

'MSG Bl ERROR

8IT
BNE

ERROR
005340

€EQ 0072

ERROR

MOV

000010

PAGE 72

PC, TSTATN

; 1221222223222 2221222222222233222222XX2X222222XX222X2X222222224

3677

ETEST 11

;l'

3679
3680

Ly
'

UNIT SELECT PLUG TEST

THIS TEST VERIFIES THAT WHEN THE UNIT SELECT PLUG IS PULLED
OUT, THE QUAL LOGIC RESETS ATTN 8 VOLUME VALID

3681
e
3684

'
1
X

THE 'DRIVE DE-SELECTS 8 NON EXISTENT DRIVE nssshrs
gl
e e
T elg S Es
o
¥ E gooe
NUMBER SS e
88 }*
.

3687

: Y

222211272222 12222222X222222X2222222X2222X2222222222222 2 3

- ¥

Jeso

THIS PORTION OF THE TEST IS TERHINQTED AT ANY TIME BY A CONT-E

3288 814858
O}:OEO Bi5737
0?090; BRITRY
000} 001174’ Hri: S0T
wsa1ALKER
1 §TIM
§g§§
Hev
117

3692

014034

395

QIuguR

3633

ESE

§§§g

3700

014040

1: 46

004737

104024

1gu4gy

026436

ISR

garuy

TYP

Bi%¢ds

b4y !

3576

127

00020

014674

032737

001000

014104

104114

1482 BB3737
0140

3703

3704

014102

00100}

PC, SUBCLR

:CERR AFTER SCLR

15648

:UNIT SELECT PLUG TEST

TYP

é $o2

000026

MOV

BIT

PC,GSTAT

:EVEN PARITY TO GET DSC & ATTN

005370

JgR

BNE

!BR

3701 814098 8 473? 82&186
3702

ERROR

;hggréné TERATION
ERALk B 1R

ERROR

158

8PAT,

RKMR1 (RS)

0. PAR, HMR3

114

,cNPUTECOOTExxTRon spgcs TO CONTINUE
N
NN OERECFOR
ZPRTCE

.SEE IF PARITY SET
IF YES

‘PARITY BIT NOT SET AFTER "EL DRIVE CMD
SWITH EVEN PRRITY ISSUED.

14106

005366

(gl

MACY11 30A(10S2)
25-JAN-78
12:16 PAGE 73
T11
UNIT SELECT PLUG TEST

N 0t bt e et st pt e s e e (O OO

NN TINNNNINNNNNINNY

WWWWWWWWWWWWWWWW

I06

so UNIBUS RK& DR PRT3
E.PI1
25-JAN-78 12:08

032737

184114

l4lie

001001

014120

012765

014'32

004737

014126
014136

004737

104113

0I4140

014144

104401

DI4IS4

012765

100000

026106
037121

040573

100000

014162
014166
014172
014174

004737
004737
000401
1049111

026106
025024

014176

012765

100000

014216

001001

014204

004737

000000

026106

3730

000

14222

104401

0000

14236

104401
104401
013746

14256
14260
14261

104403
001
000

0000

14242
14246
14252

14262

000000

:DSC NOT SET AFTER SEL DRV WITH EVEN PARITY

MOV

8CCLR,RKCS1(RS)

JSR

PC,GStAT

ERROR

113

PC’

TSTATN

,MSG9

MSG37

bc GETSP
PC,GStAT
PC, TSTRTN
38’
111

MOV

CCCLR RKCS1(RS)

JSR

:REMOVING UNIT SEL PLUG DID NOT

TYPE

,MSGE?

:DESELECT ALL OTHER PORTS

TYPE
JSR

MSG37
AC.GETSP

TYPE

,MSG38

TYPOS
.BYTE
BYTE

|
O

e TYPE--OCTQL RSCI1
"ITYPE 1 DIGIT(S)
: SUPPRESS LERDING ZEROS
:CLEAR PREVIOUS INFO

BIC

#1C<1775,8TMPO

042737

177600

14322

001422

14342
14344
14350
14354
14360

001004
004737
000137
104401
105037

005737

001160

023727
001470
023727

001160
001160
033344
030502
040160
033342

001160

MOVB
157

BEG

00000S
000003

CMP
BEG
CMP

138%:

: INSERT UNIT SELECT PLUGS

:DEPRESS CONTROL-E WHEN F INISHED
PEXIT WITH CORRECT UNIT SELECT PLLC
"?335 88252
FOR TYPEOUT

PC,STKIN

14310

STYPE SPRCE WHEN DONE
:GET SPACE

"MSG39
MSGSS
$UNIT, - (SP)

JSR

S§:

{ASSERT NON-EXISTENT DRIVE

TYPE
TYPE
MOV

CLR

001160

:DISRBLE RTTN.

112

$TKQSRT

033342

RETURN HERE FOR SPACE
NO RTT
REMOVING UNIT SEL PLUG. DID NOT

ERROR

CLRB

033344

:GET SPALE

GStAT

TYPE

113737

:DEPRESS SPACE WHEN DONE

cuéo RKCS2(RS)

001205

004737

:REMOVE UNIT SELECT PLUG

BIT

BNE

001160

:NO ATTN AFTER SEL DRV WITH EVEN PARITY

#CCLR,RKCS1(RE)

JSR
JSR
BR
ERROR

104401

14276

0000000000000

3%:

040637

033342

143384
14332
14334

107

MOV

040775
042246
001222

105037

14316

ERROR

JSR

4s:

040573
0830452

005037

14302

:SEE IF DSC SET

TYPE

00000C

043500

14272

14266

[8]
~N
£
£O

104401

104401
004737

#D.DSC, HMR2

BNE

TYPE

104112

14226
14232

BIT

JSR

014210 032765 010000 000010
014220

1$:

025024

g 014150 004737 030452

2%:

104107

040000

BNE
JSR
IMP
TYPE
CLRB

$CRLF

§TMPO

$TKQSRT, r
§ npo
$TMPO

$TMPO, 85
3s
$TMPO, 83

138
PC.STKINT
sTHP1
n5031
$§ TKQSRT

:GET CHAR IF THERE

:GET RID OF JUNK, IF ANY
:BR IF NOTHING TYPED YET

:SEE IF CONT-E
‘BR IF YES
!SEE IF CONT-C

'BR IF NO
"ENABLE KB INT
ELSE 00 VALID HALT
:

SES 0073

CZREJED JUNIBUS RKb6 DR PRT3
CZRBJE.PI1
25-JAN-78 12:08
g;gg

014364

004737

033344

3764
3765

014370
014372

005000
012765

100000

3766
3767
3768
g;gg

JO6

MACY1l 30R(1052)
25-JAN-78
12:16 PAGE 74
T11
UNIT SELECT PLUG TEST

000000

6%:
78:

JSR

PC,STKINT

CLR
MOV

RO
#CCLR,RKCS1(RS)

014400
0l4404
014412
014416

010065
012737
004737
104117

000010
000001
024446

005340

MOV
MOV
JSR
ERROR

3771

014420

032765

010000

000010

BIT

3773

014430

005200

3772

014426

001405

3774

014432

014436
014440

020027

001355
000716

000010

3778

DI4442

032737

000100

00S366

3780

014452

012765

100000

000000

3775
g;;g
3779

3781
3782
3783
3784
3785

014450

001312

014460
014464
014472
014476
014500

010065
012737
004737
104116
010046

014502
014504
014505

104403
001
060

014512

000671

104401

001205

3793

014514

004737

033344

3797

014842

004737

3786
3787
3788
3789
3790

gzgé
'

3794
3795
3796

014506

014520
014526
014534

000000
000010
005340

3801
3802
3803

014550

032765

010000

000010

024446

BIT

RO, RKLS2(RS)
#PACK HCS1
PC, DotMD
116
RO, - (SP)

:DRIVE RDOR

TYPOS
.BYTE
BYTE

1
O

JSR

PC, STKINT

JSR

11?

;D0 SELDRV (STATUS) CMD 3 GET CONTR RDY

#NED,RKCS2(RS)

;SEE IF CORRECT PLUG FOR EXIT

MOV
MOV
MOV
BIT

104403

TYPOS

3807

014573

014574
014600

000

104401
000636

04077S

BYTE

3811

014602

004737

026436

3814

O0I4610

004737

026106

3816

014622

00IDDS

3808
gg?g

ggig

3815
3817

014606

O0i4614
0146249

BEQ
TYPE
MOV

001

104024

032737
104401

.BYTE

000i00

041040

TYPE
BR
108:

005366

‘BR IF NO
"ELSE RETURN

MOV
MOV
JSR
ERROR
MOV

014570

0145672

#D. VV, HMR2

ALL e DRIVE NOS TRIED?

s TYPE SAME NIT SELECT PLUG RDY ONCE

00I4i1
104401
013746

3806

7S
13

i3 IF MATCH DRIVE NO IN CS2. BR IF YES

014556
014560
014564

3804
3805

BNE

ERROR

042246
001222

;SEE IF UNIT SELECT PLUG INSERTED

RO, 8.

TYPE

100000
00i222
00000I

#NED,RKCS2(RS)

cMP

MOV

00S340

012765
013765
012737

g;gg 014846 104117
3800

060010
000003
024446

;DRIVE NO.
:D0 SELDRV (STRTUS) CMD 8 GET CONTR ROY
:CONTR RDY NOT SET

BNE
BR
8%:

RO, RKES2 (RS)
#SELDRV, HCS1
PC_COCMD
117

BEQ
INC

SEQ 0074

JSR

#CCLR,RKCS1(RS)

SCRLF

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

ocmMd

;ENABLE KB INT

"CONT NOT RDY AFTER SEL DRVCMD

‘BR IF YES
'EXIT WITH CORRECT unxr SEL" T PLUG NO.
: S SAVE SUNIT FOR TYPEOUT

,,rvpe 1 DIGIT(S)

MSG39
1;

:DEPRESS CONT-E WHEN DONE

PC, SUBCLR

JSP

PC,GSTAT

BNE

118

TYPE

P1TYPE UNIT SEL PLUG NO.
1160 TYPE-'OCTQL ARSCII
2PTYPE1 DIGIT(S)
: 'SUPPRESS LERDING ZEROS

108
MSGSS
$UNIT, -(sP)

ERROR

BIT

;D0 PACK cno 8 GET CONTR RDY
:CONTR NOT RDY
:/SAVE RO FOR TYPEOUT

,,rvp; CORRECT unxr SEL PLUG #
YPE--OCTAL RSCII
: SUPPRESS LERDING ZEROS

:CERR AFTER SCLR

#0. VY, HMR2
,MSGY0

:VV NOT SET.,

INSERT UNIT SELECT PLUG

CZREJEQ UNIBUS RKE DR PRT3
CZReJE.PLIL
25-JAN-78 12:08

3818

gg é 3
3821

3822
3823
3824

385t

0l4630

0ive34

0l4636

0l4ed4e
Q014646
014652

104401

040778

1044r

043720

000620

1044
00473

KO6

MACY11 30AR(10582)
25-JAN-78
12:16 PRGE 75
T11
UNIT SELECT PLUG TEST

MSG39

:DEPRESS CONT-E TO EXIT TEST

TYPE

,MSG71

;SELECT CORRECT PORT ON OTHER DRIVES

TYPE

119:

040572
0304Se

129:

c NN

3827

SEQ 007S

TYPE
JSR
NI

'MSG37
#C GETSP

TYPE SPACE WHEN DONE
GET SPARCE

iTEST 12

3830

3834
3835 014652 000004

: 4i1i;i1ii{}iiiil;*&i;i{i;iiilliliiii!;!;liii;;iiili;ii;i;;;;;i;
ety
SCOPE

3831
gggg

®
,1

3836

012737 000001
gggg 0Ol4654
014662 012706
001100
3839

383?

0l14672

0l46b6

004737

026436

3842

0l4674

104401

037500

3843
3844
gg:g
3847

014700
QOIN704
014710

104401
004737
000137

THE OPERATOR IS RASKED TO SWITCH TO THE WRONG PORT

"HEN DESELECT BOTH PORTS.
IN BOTH CRSES, NON EXISTENT DRIVE SHOULD RSSERT IN RKCSe

MOV

STIMES
aS?RCK
SP

JSR

PC,SUBCLR

-{]

;CERR AFTER SCLR

TYPE

,MSG19

;PORT SELECTION TESTS

ERROR

041765
030412
015070

TYPE
JSR
JMP

MSGSe
#C,CCSP
4$

TYPE

, MSG4 1

3848

014720

104401

041152

040573

gggg 014724 Q0M737 030452

TYPE

JSR

#c GETSP

3852 014734 (032765 010000 000010

3851

014730

004737

026106

JSR

3853

001001

ONQD,RKCS2(R5)

gggg

0l4742

BIT
ERROR

122

3857

014746

014752
014756

104401

104401
004737

040573
030452

3861

014762

004737

026436

3864

014770

032765

010000

ggg%

0Is000

3856

3858
gggg

gggg
3865

Ol4714

104024

001174

PORT SELECTION TESTS

RN RN RERRRRERRRR

gggg

014744

014766
Q014776

3868

015002

3871

01S0l6

3869
3870

3872
3873

104024

001401

Q41232

18:

000010

0OM1310

004737

026106

015022

032765
001001

Q340573
030452

010000

000010

, MSGH2

'MSG37
PC,GETSP

JSR

PC,SUBCLR

BIT

TYPE

,MSG43

JSR

BIT

BNE

DEPRESS CONT-E TO EXIT OR SPACE BAR TO CONTINUE
INPUT CONT-E OR SPRCE
RETURN HERE FOR CONT-E
;SWITCH TO OTHER PORT

DEPRESS SPACE WHEN DONE

,GE SPACE

'
sNED NOT SET AFTER WRONG PORT SELECTED

:SELECT CORRECT PORT

DEPRESS SPRCE BHR WHEN DONE
GET SPRCE
;CERR RFTER SCLR

SNED,RKCS2
(RS)

BEQ

TYPE
JSR

1 ITERATION
fiESTORE
STACK PTR

TAT

TYPE
JSR

ERROR

104401

104401
004737

TYPE

ERROR

104130

(015006
01S0le

015030

BNE

104122

MSG37

;

130

'MSG37
pC, GETSP
PC,GSTR

ONED RKCSE(RS)

:NED NOT CLERRED AFTER CORRECT PORT SELECTED
;DESELECT BOTH PORTS

DEPRESS SPACE BAR WHEN DONE

CZR&JEO UNIBUS RKb DR _PRT3
CZRGEJE.P 11
25-JAN-78 12:08

000010

012765
004727
032765
001407
104401

100000
026106
010000

000000

032765
00142l
104130

M=
==\
g£
oo
O

[
N

Sy W

une

n %A
OO

010000

004737
104024

v
————— 00

026436

041340
040573
0304se

104401
104401
004737

104133

000

3878

015032

00000000

3874
3875

MACY11l

634734

000760

LO6

30AR(10S2)
25-JAN-78
12:16
PRGE
Ti2
PORT SELECTION TESTS

38:

ERROR

133

TYPE

, MSGYY

'MSG37
AC,GETSP

JSR

PC,SUBCLR

BIT

4s:

000010

SNED,RKCS2 RS)

TST13
130

MOV

OCCLR RKCS1(RS)

unto RKCSE(RS)

TYPE

nscqs

TYPE

JSR
BR

sSELECT CORRECT PORT

! DEPRESS SPACE BAR WHEN DONE
: CERR AFTER SCLR

GOTO NEXT TEST
'MNED NOT CLERRED AFTER CORRECT PORT SELECTED

GstaT

BIT

BEQ

041370
Q40573
030452

BEG
ERROR
JSR

SEQ 2076

:NED NOT SET AFTER BOTH PORTS DESELECTED

TYPE
JSR

ERROR

TST13

Pc GETSP

: :GOTO NEXT TEST

CORRECT PORT NOT SELECTED,

:DEPRESS SPACE BRR WHEN DORNE

TRY RGRIN

ur. 'lfi*‘**l"***‘

XYYz X222X2:2X2222X222222X22X22222XX22XXXXX2XXTX2XITAZIISLL
S

—fprrwews

005376

T13:

THEREFORE THE xnoxcnron CHECKED IS NON-EXISTENT DRIVE (NED)

ASSERTING
IN RKCS2 RS
A RESULT OF DCLO.
AFTER POWER
UP, VOLUME VALID IS CHECKED TO BE CLEARED.
SCOP

MOV

81, STIMES

#S*ACK, SP

kssroas STK PTR

JSR
ERROR

PC,SUBCLR
¢4

:CERR AFTER SCLR

TYPE

,MSG21

:AC

JSR

PC,CCSP

CLR

TEMP2

JSR
BIT

PC,8STRT
8CERR, HCS1

TYPE

JMP
TYPE

005376
005340

S:
.

00s400
1772777
026106
100000

PRRT 1

A PRELIMINARY AC LOW TEST IS PERFORMED HERE WHILE HERDS ARE UNLOARDED.
BATTERY RETRACT WILL BE TESTED LATER
?c%o 522387 gsoggsrso DIRECTLY SINCE IT REQUIRES SECTOR PULSES

MOV

005037
012737
004737
032737
golole
00S337

001174

030412
015442
o41s821

037531
041765

— e

000001
001100
026436

104401

AC LOW DETECTION

{lllllg!llgllllllIlllilll!llllllllllll!lllllllllllllll*li!lllll

PONUNUMDMY
=
nRN——0~N
oo

[y
[,
[

000
000000

000004
012737
012706

’—

NE
O£
NN
o0
~NOT
o

004737
000137

LfWW
OO

inun
vyt

pepe
e

104401
104401

P Pt Yo

000
00

oo4737
10-024

St Pt Pt P Pt P

W
W WWWWWWW
Vo IVs Vo IV IV IV [V IV o IV o IV IV e ¥
mfup_p....._.—p_...._p-.—
—~ QWO NN LW

s v

cwewe

TEST 13

MOV
BNE
DEC

'MSGS2

108
MSGYY

#-1,

TEMPI

3s
TEMPL

ITERATION

LOW TEST

:CONT-E TO BYPASS TEST
:OR SPACE TO CONTINUE

P INPUT CONT-E OR SPACE

"RETURN HERE IF CONT-E
:TURN OFF RC(RET MERE IF SPACE)
:SETUP TIMEOUT

Pt Pt Pt

000000000000

1or0 g
&R 3

CZR6JED UNIBUS RKb DR PRT3
CZR&JE .P11
25-JAN-78 12:08

001356

s Pt Pt Pusn P

A73433

ot s Pmn P

012?65
4737

0000

uwn
oo

i Pon

000

vnunn
W
o
n

ooool0

BIT

BNE
DEC
BNE
ERROR

1
3

50000, TEMP1

SEEIIF 80NE THRU 2 TIMES

;CERR NOT DETECTED BEFORE TIMEOUT

ICCLR hKCSl(RS)

oueo,nxcse(RSJ
S$
TEMPL
4§
150

;NED NOT SET BEFORE

TIMEOUT

; SWITCH AC BACK ON

030452

JSR

#c GETSP

PsgégYsgSCE
k?EB READY ON
GET SPACE

026436

JSR
ERROR

PC, SUBCLR
24

;CERR AFTER SCLR

000200

005366

00S3ee
000100

005370

000100

Pa o

—

JSR

T npa 82

n04737

ms pt Pt

nnnnun (flU“?U“flU\ unonn

MOV

1s
E

S£3 0077

OHIS;H

Ss:

34481 Budeit

et Pt pt Pt

39:
4s:

BNE
INC
CMP
BNE
ERROR
MOV

104401

e bt Pt

000

00S376
000000

104150

005037
032737
001401
104182

000000

001432
100000
026106
010000

000002

005376

0000

Pt Ptht
s

823937 862468

032737
001001
104141

e
ps s

MO6

PAGE
12:16
30A(10S2)
25-JAN-78
PART
T13
AC LOW DETECTION

001367

OOH?g?
1040eH

00000

MACY11

436
440
442

00S366

100000
001222
000003
024446

000000
000010
005340

000100

00S366

LM< J

BIT

69%:

8s:

_IF LORDED

iBR IN YES
:DRV NOT RDY AFTER AC UP

CLR
BIT

UNLD
8D. ACLO, HMR3

;FOR VALID HALT

ERROR

152

;ACLO NOT RESET ARFTER POWER UP

VV, HMR2
8D.
8$
153

;VV NOT RESET AFTER POWER UP

BIT
BEQ
ERROR
MOV

MOV
MOV
JSR

ERROR
BIT

649:
10%:

; SEE

X3
141

BEQ
ra X

0. DRDY, HMR2

BNE
ERROR

8CCLR,RKCS1(RS)

SUNIT.RKCS2(RS)
anCK HCS1
polMD

1xé

;ORIVE

;00 PACK CMD 8 GET CONTR RDY

:CONTR NOT RDY

0.
VV, HMR2

64
27

; VOLUME VALID NOT SET ARFTER PACK CMD

‘lilllfillilllllllllllf!**liliill*llii!*llllllll!lli!ll*!ll’!*li

TEST

5!
l

015442

000004

CHECK NXF LOGIC

THIS TEST VERIFIES NON EXECUTABLE FUNCTION (NXF) IS DETECTED
S A RESULT OF DOING
A SEEK WITH VOLUME VALID RESET

o 33636 36 36 36 3 36 36 3¢ 36 36 3 3 3 3 36 3 3 3 3 3 3 36 3 36 3 3 36 3 36 3 3 36 3 36 36 3 6 3 36 3 3 3 36 36 2 3 2 B3 0 2 3 3 N3 3

Téqu

SCOPE

32 KX

3986

015444

012737

000001

3989
ggg?

01S4S6
015462

004737
104024

026436

3992

015464

032737

010000

gggg 015452 012706 001100
3993
gggg
3996

015472
015474

040032

001174

004737
104143

012737

000011

4000

0iSSi4

013737

001426

00S400

4004
400S

015530
015534

005037

0053ee

015534

005037

005322

4008

015540

004737

026436

4011

015546

104401

037572

:889

:8?3

015522
015526

015544

004737
104144

104024

025056

JSR
ERROR

PC,SUBCLR
24

; CERR ARFTER SCLR

#D.SPIN, HMR2

;SEE_IF SPINDLE ALRERDY ON

MOV

015506
015S12

0Oc4446

.SfflCK SP

BNE
TYPE
JSR
ERROR
MOV

64S:

64%
, MSGa9

#SRTSPL , HCS1

PC,DOCHD
143

1100, TEMP2

JSR
ERROR

PC,FATT]
144

CLR

UNLD

CLR

UNLD

JSR

PC,SUBCLR

TYPE

, MSGa2

ERROR

;

SEQ 0078

MOV

BIT

STIMES

PRGE 78

MOV

00S366

3997
gggg
4001
:885

015500

001020
104401

NO6

MACY11l 30A(10S2)
25-JAN-78
12:16
TiH
CHECK NXF LOGIC

ITERATION

hESTORE STACK PTR
:BR_IF YES
:PLEASE WAIT, HEADS BEING LORDED
;00 START SPINDLE CMD & GET CONTR RDY
:CONTR RDY NOT SET AFTER CMD
;FIND ATTN
:NO ATTN AFTER CMD
;FOR VALID HALT

; CERR RFTER SCLR
;NXF TEST

40l2
4013
:8{2

015552
015556
015562

104401
004737
000137

041765
030412
016070

TYPE
JSR
JMP

MSGSe
bc,cCsp
78

:PRESS CONT-E TO EXIT OR SPACE TO CONTINUE
P INPUT CONT-E OR SPACE
:RETURN HERE FOR CONT-E

4016

015566

104401

O41644

TYPE

MSGSI

;REMOVE UNIT SELECT PLUG TO CLEARR VV

4020

015602

004737

026106

Y022

015614

001403

4017

015572

104401

040573

:8{8 015576 004737 030452
4021

015606

032737

4023
:853

0l1S6l6
015620

4026
4027

015624
015632

032737
001406

00C100

:ggg

015636

000137

016070

4031

015642

004737

026436

4034

015650

012765

000001

:835

015670

104131

4039

015672

4028

:833

4035
4036
4040
4041

015634

015646

015656
015664
015700
015704

104177
000137

000100

104155

104024

000017
024446

013737

001432

025152

00S366

JSR

PC GETSP

JSR

PC,GSTAT

BIT

BEQ

016070

012737
004737
004737
104132

005366

TYPE

1%:
:

BIT
BEQ

#0.VV,HMR2
23

JMP

JSR

005340

MOV
MOV
JSR

ERROR
005376

177
78

ERROR

MOV

JSR
ERROR

:PRESS SPACE WHEN DONE

!GET SPACE

80’ VV, HMR2

ERROR
JMP

ERROR

000020 2%:

SG37

; VV_NOT CLEARED AFTER UNIT SEL PLUG
sEXIT TEST

155

; VV _SET AFTER HEADS LOADED

EXIT TEST

PC,SUBCLR

;CERR AFTER SCLR

#1,RKDC(RS)

#SEEK HCS1
PC, DOLMD

131

1750000,

TEMPL

PC,FAT2
132

;00 SEEK CMD & GET CONTR RERDY

:NO RDY RFTER SEEK CMD

;FIND _RTTN
:NO ATTN AFTER SEEK CMD

~~ o~

CZREJEOQ UNIBUS RK& DR _PRT3
C<RBJE.P11
25-JAN-78 12:08

CZPEJEO UNIBUS RK& DR PRT3
CZ2R&JE.PIL1
25-JAN-78 12:08
4youe

4043
4044
4045

015706
015714
015716

032737
001003
104156

000137

016070

4048
4049

015724
015732

032737
001003

000200

38:9

40SO0
3825

01S§720

000400

25-JAN-78
12:16
CHECK NXF LOGIC

005370

BIT
BNE
ERROR

005370

015734
015736

104172
000137

016070

4053
4054

015742
Q15750

012737
012737

050240
000600

005430
005432

3829

01S764

012737

000001

005436

40SSs
4058

(015756

012737

015772

004737

016002
016004
016006

104161
104162
104163

015776
016000

4o0e4
4065

016010
016014

005737
001401

001400

4068

016020

004737

026436

016026

012765

016042

3829

:893
4071

016016

016024

4072

016034

4o074
:8;2

016050
016054

4077
4078

016056
016064

4080

016070

4073

4079

383%
4083

016066

016070

3$:

4S:

005434

104024

BIT
BNE

#D.FLT, HMR3
ys

MOV
MOV

#<D.DSC'D.SPIN'D.DRDY!D.ORA>
,E.AR0
#<D.NXFiD.FLT> .E.BO

MOV

#1,E.B1

PC, CHKMSG

ERROR
ERROR
ERROR

161
162
163

CYLADD
S$

JSR

PC, SUBCLR

000000

MOV

012737

000003

005340

MOV

032737
001001

000100

005366

004737
104116
104027

001222

024446

000010

658
:

157

#CCLR,RKCS1(RS)

: CHECK MSGS A0,

B0,

Al,

-8 MSGS SPECIFYED HERE
:MSG A0 ERROR AFTER SEEK WITH vv=0
*MSH BO ERROR
:MSG A1 ERROR
:MSG B1 ERROR

sHERDS MOVED WITH SEEK 3 DXF
:CERR AFTER SCLR

SUNIT.RKCS2(RS)

;DRIVE 8

JSR
ERROR

PC, 00¢MD
11t

:D0 PACK CMD & GET CONTR RDY
:CONTR NOT RDY

BIT
BNE

8D. VV, HMR2
655$

ERROR

#PACK | HCS1

:VOLUME VALID NOT SET AFTER PACK CMD

73:

HH 3636 36 36 36 3 36 36 3 36 36 36 36 36 3 3 36 3¢ 36 36 36 36 3 3 36 3 3 36 3 3 36 3 3 3 3 3 3 A6 I 96 3 I I 3 ¥ 3 3 F 3 3 3 3 3 I 3 3¢ 3 % 3% 3 W 3¢ %

"ETEST 1S

4086

4088
:333

;EXPECTED RO

MOV

zggg

4087

T.R2!'T.B2'0
160

TST
BEQ

ERROR

sNXF_DID NOT SET FAULT
JEXIT TEST

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

JSR

100000

013766

:NXF _NOT SET AFTER SEEK WITH vv=0

JEXIT TEST

172
73

ERROR
5§:

SEQ 0079

ERROR
JMP

_WORD
ERROR

104157

PAGE 79

#D. NXF , HMR3
3%
156

IMP

MOV

025264

4059
4060
406!
4062
4063

000003
104160

001720

BO7

MACY11 3??&1052)

;‘l

‘x

L ¥
Ly
HE

READ & SAVE BAD SECTOR INFO 8 TYPE PACK SERIAL #

THIS TEST VERIFIES THAT CYL 632

(1456 FOR RKO?),

TRACK 2 CAN BE RERD.

THIS ARER CONTAINS BAD SECTOR INFOR WHICH IS WRITTEN BY THE

FACTORY DURING MANF.
ALL BAD SECTOR INFOR (BSE) WILL BE STORED
AT THIS TIME TO MASK FUTURE REARD HERDER OR DRTA ERROR PRINTOUTS.

4091

4094

IF BSE INFO CANNOT BE READ,

4096
4097

Ly
L%

A MESSAGE WILL BE TYPED INDICATING THAT ALL
FUTURE FORMAT AND READ-WRITE TESTS WILL BE BYPRSSED.

:ggg
4095

Lx
H %

SECTORS 0,2,4,6,8 CONTRIN IDENTICAL

INFO FOR 22 SECTOR HARDWARE DETECTED BAD SEC

SECTORS 10,12]14,16,18,20 CONTAIN IDENTICAL INFO FOR 22 SECJOR SOF TWARE DETECTED
OR IF AFTER READING THE BSE INFO

IT IS DETERMINED THART AN ALIGNMENT CRRTRIDGE IS USED,

CZR6JED UNIBUS RK6 DR PRT3

CZRBJE.PI1

30A(1052)

25-JAN-7

co7
PAG

SEQ 008

T1S

READ 8 SAV a&S éEcrog fn?g 8 TYPE PACK SERIAL #

3833

THIS IS DONE SO RS NOT TO DESTROY BSE INFOR OR AN ALIGNMENT PACK BY WRITING

3%8?

THE PH2K SERIAL # IS TYPED IN OCTAL 8 FOR THE FIRST PASS ONLY.

4102

4103

016070

25-JAN-78 12:08

MACY1l

000004

XTI I2XIYTITZIE IR I

4104

016072

012737

000001

4107
4108
4109

016104
016110
016112

004737
104024
00S037

026436

:igg 016100 012706 001100
4110
:iié
4113

4114
4115
3%%9

016116
016122

016130
016136
016144

005400

005037

005402

012737

002322

013765
012737
013765

00S404
001000
005406

4118

016152

013765

012654

4121
uxag
4133

016i74
oxsaog
016202

004737
104;39
004737

024504

4125

016214

00I470

4128

016220

012737

4119

016160

012766

001174

?9715

177400

00S404

000020

000002

1S:

0col06

4124 016206 032737 100000 005340
4129
4130
4131

016216

010340

016226
016232
016240

005037
J12737
012737

005432
001720
000001

016

004737

025264

4137 gxsggg ogoogo

4138

016274

3}33

016276

4142
4143

016304
016310

4145

016316

4144

4146
4147
4148
4149

410
4151

:iég

016312

016324
016326
016332
016334

016336

016340

016342

00S430

005237

023727

001007
005737
001002
104165

000414

104167

000412

PC, SUBCLR
24
TEMP2

;CERR AFTER SCLR
:SECTOR CTR

005434
005436

os442
05446

005400

:STORE 22 SECTOR HARDWARE BSE ADDR.

;LAST CYL

JSR
ERROR
JSR

PC, DATCAD
gaé
GSTRT

;D0 RERD DATA CMD 8 GET CONTR RDY
'NO_RDY RFTER _READ DATA CMD

BEQ

MOV

s TRACK 2, SECTOR O

#-256. RKWC(RS) :LOAD WORD CT

oRoonrh HCS1

océnn HCS1

227

:GET FRESH DATA

:CERR AFTER RERD DATA CMD

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

;EXPECTED MSG AO

E.BO
.EXPECTED MSG'BO
#<D.SPOK!D.CART!O_DOOR!D.BRHM!D.SSP> ,E.Al
;EXPECTED Al
%] E.BI
n
ID FOR EXPECTED MSG Bl

555
MOV

E' €
.§;E_S§

n c 9 Pg
MSG B2
3 IB 8R EXP TEB ngc B3

JSR

.WORD

0!8'0

PC, CHKMSG

cnc

Eggos

nsn a? Egsos

PC, SUBCLR
24

;cenn AFTER SUBCLR

ERROR

INC

TEMP2

BNE
TST
BNE
ERROR

2%:

:0=22 SECTOR HRRDWARE DETECTED TABLE

,ézggNgECTOR SOF TWARE DETECTED TABLE

LC,RKDC(RS)

MOV

CMP

00S402

ITERATION

MOV

JSR
ERROR

00000S

#BSE22H, TEMPY

TEMPY, RKBA(RS)
#1000, TEMPS
TEMPS| RKDA(RS)

ERROR

026436

TEMP3

2222 222 3 2

MOV
MOV
MOV

CLR
MOV
MOV

10:025

004737
104024

JSR
ERROR
CLR

MOV

1049054

4147 818433 1BuB38

flESTORE STK PTR

ERROR

3135 D{EEQG 09593; 200005
3i§g 81&528 815737 888885
4136

sStAcK, SP

BIT

104227

STIMES

ISR S22

MOV

000004
005406
000006

81,

ISR

MOV
CLR

4120 016166 012737 000021 005340

:igg

SCOPE

B8R

ERROR

TEMPZ, %5

R},

ggfiéc“P
8é

RROR nrren RERD DRTA CMD

128
Bl ERR

:READ ALL 5 SECTORS?

S§
TEMP3
2s
185

s CANT READ SECTORS 0,2.4,6,8

1&7

:CANT

3%
38

READ

SECTORS

10,12, 14,16, 18,20

(ZRBJED UNIBUS RK& DR PRT3
25-JAN-78 12:08
CZRBJE. Pll
013765

4206

000
0000000

30R(1052)
25-JAN-78
12:16
PAGE 8!
T1S
READ & SAVE BAD SECTOR INFO & TYPE PRCK SERIAL #

000004

SS:

005406
000006

001 74

3%:

002330

8s%:

042326
001474

ga3a
00M
81378 thases 005406
000006
000001

9§

U
n

gl01e2
00s406
01615e

005737

001216

001014

104401

001205

po4737
104C24

026436

012737
7
084?

000017
024446

84373 g84 125

18&216
016600

BSERR
T5T16

;SET BSE FLAG
:-GO TO NEXT TEST

108

TST
BEQ
TYPE
INC

13%:

005340

MOV

MPY

fesr CARTRIDGE TYPE
:BRANCH IF DATA CARTRIDGE
:ALIGNMENT CARTRIDGE USED
'SET BSE ERROR FLAG

02 saaa TE

:STORE 22 SECTOR SOFTWARE BSE ADDR

MOV
MOV

sl012)7
TEMPS RKDR(RS)

; TRACK 2, SECTOR 12

1S7T

$PASS

BNE

138

# ONLY ON 1’°ST PASS
: TYPE CART

JSR

PC’ §SUPRS

: CONVERT DBL BINARY WORD TO OCTAL
:TYPE SERIAL #

TYPE

' $CRLF

JSR
ERROR

ka (RS)

MSG17
kBSE22H, - (SP)
PC, 30820
, SCRLF

PC, SUBCLR
24
BSEEK HCS1

JSR

Pg octMD

MOV
oY

150
FROPR%+I

BIT

OSERR,HCSI

ERROR

005340

BSE22H+6
9§
MSGSE
BSERR

TEnPg
TEMPI, 81
108
TEMP2

MOV

005376

IN
cM
BNE
CLR

TYPE

104132

100000

INC
BR

TYPE
MOV
JSR

037416

;RESTORE TRBLE ARODR

'SETUP TO READ 2 SECTORS FROM LAST

IMP

108:

TEMPY,RKBA(RS)

82, TEMPS
TEMPS, RFDAR(RS)

MOV

—

013765
000137

MOV

RDD
MOV
BR

88340"

oo TUTR@CWFG

Pt et P

e Pt Pt

0000000

e
P

00SH04
000002
005406

882485

o
£

—

o 000000

005237
000426

016460

£frrssr
s s LLrrrr
L
L
L L LLr LI L
L L LS L L L LS LLELLEL L
UMY
— s e b B e s Bt Bt Bt Pt (ot ot Bt Bt et Bt Bt s B e Bt ot o B ot s Pt Pt s Bt Bt P Pt Pt ot e B Pt e n s Bt e
[elalaln elal:] D00 0 010 O OO0
DM@ OMA D
NN NNNNNOOC OO0
NN
N LWh—0O
W 0" N LWHR—OWM NN LW
O WV NV L WU O DO
L W0 O

DO7

MACY1l

EESOR

{

TEMP]

132

: REPEAT

ICART SERIRL s

: CERR_AFTER SCLR

'RETURN T0 CYL O

:D0 SEEK CMD 8 GET CONTR READY
*NO RDY AFTER SEEK CMD

TIMEOUT
eTUP N

INO nrru AFTER SEEK CMD

:CERR RFTER SEEK CMD

£4S:

H N 2222122122222 22222222222222222222XX2XFX2X2222X222

<09

£
A",
O
[ee

4207

irssr 16

WRITE LOCK TEST

222222 LT

SEQ 0081

CZR6JEO UNIBUS RK& DR _PRT3
CZRBJE.P11
25-JAN-78 12:08

EQ7

MACY1l 30A(10S2)
25-JRAN-78_
12:1b
T16
WRITE LOCK TEST

4210

4312

;¥

35%3
421sS

4216

‘x

016600

000004

016610

012706

4217

016602

4219
4220

000001

016622

005737
001402

001474

:Ssé

016614
016620

000137

021450

4223

016626

004737

026436

4226
4227

016634
016640

104401
104401

037653
041765

:sgg

016650

000137

021450

:ggg

4228

016632

016644

4231

016654

4233
4234
4235

016666
016670
016674

4232

3539

016660

016700

104024

004737

0DO4737

032737

004737

4240

016716

016720
016722

001402

104110
000762

4244

016724

005037

4241
:g:g

4245

4246

016710

016730

016734

026106

004000

026106

016704

032737

005037

004000

016744

004737

027420

012765

001506

000337
013765

001442
001442

012737
004737

000027
024504

004737

026106

4263
4264
4255

4258
4989

4260
4251

016764
016270
016776

017002
(017010

017014

017016

4262

017022

4265

017034

4263
4264

017030
017032

000337

104200

032737
001401
104201

SCOPE
MOV

81,

TST
BEQ

BSERR
15§

SWITCH HAS BEEN ENABLED.

JSR

00S366

HERD O

177676

0CI442

100000

000004

12¢

'RETURN HERE IF CONT-E

JSR

pc,CCsP

JSR

PC,GSTRT

BEQ
TYPE
TYPE

2s
,MSGS3
MSG37

JSR

PC,GSTART

BEQ

CLR

:GET SPACE

80’ WRL , HMR2

:SEE

110
18

sWRITE LOCK NOT DISARBLED

TOCYL

IF WRITE LOCK

FORMAT

*ROUTINE

JSR

PC,FHDTAB

HEAD

'FILL HEARDER TRBLE

:BUILD STD 22 SECTOR HERDER TABLE

sHDTAB, RKBA(RS)

$-66.
, RKWC (RS)

SWAB
MOV

HEAD
HERD,RKDR(RS)

;HERD ADDR

MOV
JSR

8 <WRHERD)
, HCS1
PC,DARTCMD

;D0

JSR

PC.GSTAT

:GET

BEQ
ERRCR

IS OFF

s SETUP

CLR

BIT
B4S:

:SEE_IF WRITE LOCK IS ON

'FOR

ERRCR
005340

PC,GETSP

TO CONTINUE

'BR_IF NO
'DISABLE WRITE LOCK
:TYPE SPACE WHEN DONE

CALADD

SWAB

005340

#0. WRL , HMR2

P INPUT CONT-E OR SPACE

CLR

MOV

000006

'ELSE EXIT TEST

:WRITE LOCK TEST
*PRESS CONT-E TO EXIT OR SPACE

MOV

000002

:SEE IF ALIGN CART
:BR_IF NO

,MSa2y
MSGS2

CLR

168:

ITERATION

TYPE
TYPE

BIT

2%:

PC, SUBCLR

:RESTORE STACK PTR

;CERR AFTER SCLR

JSR
005366

128

::00

BIT

18:

STIMES

8SYACK, SP

ERROR

MNP

001442

:ggg

012765

15%:

001402

001450

016750

WRITE LOCK

SECTOR BOUNDRIES WHEN DOING CONTINUOUS WRITING ON CYL O,

00136-

005037

016756

THE

IT ALSO CHECKS THAT WRITE PROTECT TAKES EFFECT ONLY AT

ERROR
BR

016740

4251

THIS TEST VERIFIES THAT DATA WRITTEN ON A SECTOR CANNOT BE

ALTERED ONCE

MOV

030452

:g:g

4262

001174

t8T16:

030412

042066
040573

4238

4239

NO1100

00I416
104401
104401

004737

SEQ 0082

o o 30363036 3 36 3 3 36 3 36 36 36 36 36 36 3 36 36 36 3 3 3 36 3 3 36 36 3 3 3 3 3 3 3 3 3 3 3 3 3 38 3 3 3 3 3 3 % I 33 A 3 I A XK %X % W%

012737

4218

PRGE 82

HERD

200

#CERR, HCS1

64S
201

DATA X FOR CMD

GET

CONTR RDY

*NO RDY ARFTER WRITE HEARDER CMD
FRESH

:CERR AFTER

STATUS

WRITE

HEADER

CMD

CZR6JED UNIBUS RK& DR PRT3

CZRBJIE.PI1
4266
4267

25-JAN-78 12:08

4268

017034

005237

:g;?

017046

001336

4269

017040

023727

00142

001442

4272

017050

004737

026436

4275

0170S6

00S037

001422

017070

012765

001456

:s;a
:g;g
4278

4279
:gg?
4282

017054

017062

017076
017104

017112

104024

013765

0S2765
012765

012737

001422

MACY11 30A(1052)

WRITE LOCK TEST

000003

CMP

HEAD, 83

JSR

PC, SUBCLR

CLR

SECTOR

#DATAO, RKBA(RS)

T16

25-JAN-78

INC

BNE

ERROR
000006

148:

MOV

000020
177400

000010
000002

000004

MOV

000023

005340

MOV

BIS
MOV

4283
4284
428S
4286

017120
017124
017126
017132

004737
104011
004737
032737

024504

026106
100000

005340

JSR
ERROR
JSR
BIT

4289

017142

032737

000200

00S3S4

BIT

:sgg

4290
4291

353%
42394

4295
4296
4297
3533

017140

017150
017152

017156

017160

Q01716M

017172
017174
017176

0O146S

001421
004737

00O45S
005237

023727

001003
104040
000137

4300

017202

012765

:gga

017214

104012

017216

012737

3385

4305

017210

4306
4307
4308

017229
017230
017236

4310

017250

4309

0172494

000137

00S037
012737
012737
005037

001422

100000

017062

010340

005432
001720
000001
005440

000002

4314 017264
Q017270 004737
000003
4315 Q017272 104052

025264

017256

012737

4313

4316
4317
4318
4319
4320
4321

017274
017276
017300
N17302
U17306
017312

104023
104053
104025
104401
000137
104047

000012

000003

044003
023734

000000

12:16

168

SEQ 00e3

:SEE_IF ALL HEADS DONE
'BR IF NC

:CERR AFTER SCLR

SECTOR, RKDR(RS)
;WRITE ALL 0°'S

#BAI, RKCS2 (RS)
8-25b. RKWC(RS) ;CYL O, TRK O, SECTOR O
#<WRDATA>, HCS1

PC,DATCMD’
11’
PC,5STAT
octRR HCS1

:D0 DATA X FOR CMD 3 GET CONTR RDY
!NO RDY AFTER WRITE DATA CMD
:GET FRESH STATUS

68§

:BR IF NO ERRORS

#BSE , HER

:SEE_IF BAD SECTOR FLAG

6748

'RETURN HERE IF NO

668
PC, TRUERR

INC

SECTOR

CMP

PAGE 83

HERD

BEQ
JSR

:BR_IFNO
'ELSE SEE IF SECTOR LISTED IN BSE TABLE
sRETURN HERE IF YES

BNE
ERROR
IMP

SECTOR, #10.

658
40
128

'ARE 10 CONSEC. SECTORS BARD

658:

MOV

#CCLR,RKCS1(RS)

; TRY ANOTHER SECTOR

663 :

ERROR

:CERR WITH WRITE DARTA CMD

021450

012737

:gié

BEQ

030056

001422

FO?

005430

JMP

MOV

14¢

:BR IF NO
' ABORTING TEST DETECTED 10 BAD SECTORS
*BYPRSS TEST

$<0'D.SPIN'D.DRDY!D.VV!D.DRR> ,E.A0

;EXPECTED MSG RO

00S434
005436

CLR
MOV
MOV

E.BO
-EXPECTED MSG' BO
#<D.SPOK'D.CART! b DOOR!D.BRHM!D.SSP> ,E.Al ;EXPECTED Al
8] £.B1
MSG 1D FOR EXPECTED MSG Bl

005442

MOV

82 E.B2

CLR

005446

E.R2

EXPECTED MSG A2

$3 E.B3

'M3G ID FOR EXPECTED MSG B3

JSR

PC, CHKMSG

s CHECK nscs RO,

ERROR
ERROR
ERROR
TYPE
IMP

23
53
25
MSG72
tsop

MOV

_WORD
ERROR
67S:

ERROR

T.A2'T.B2'0
62

MSG ID FOR EXPECTED MSG B2

n
MSGS BO
Ptc iEDBl HERE
:MSG RO éRRon AFTER WRITE DATA CMD

*MSH BO ERROR
:MSG Al ERROR
*MSG Bl ERROR
'ABORTING BALANCE OF TESTS

:BAD SECTOR NOT LISTED IN TABLE

UNIBUS RKG DR PRT3

CERETE’P11

12:

001456
000020

000004
000010

001422

000006

000031
024504

005340

Pt Pt et Pt Pt Pt Pt Pt Pt Pt Pt

Prus

026436

Pumn Pt Prus Pres

JSR
ERROR

17314
7320

026106
100000

005340

040000

00s34e

000024

001434

0000

010340
005432
001720
8 000
544
000002
000063

X FOR CMD 8 GET CONTR RDY
;D0 DATA

PC,GSTARY

:NO RDY AFTER WRITE CHECK CMD
:GET FRESH STATUS

70%
SWCE, HCS2

;SEE IF WRITE CHECK ERRCR

8CERR, HCS1

6133
RKDB(RS),
WD!
16
708
ee

;ACTUAL _WORD FOR PRINTOUT

iWCE AFTER WRITE CMD

;CERR AFTER WRITE CHECK CMD

#¢0'D.SPIN'D. DRDY'D vv! 8.DRR) ,s RO

£.80

eCTED MSG

; EXPECTED MSG RO

_;EXPECTED Al
n<o spox D.CART! b oooa .BRHM!D.SSP> ,E.Al
MS$G Bl

£a°

9FOREXPSCTED

ENDRV

026436

PC,SUBCLR
a4

; CERR RFTER SCLR

Q4el157
040573
030452

' M5G37
PC,GETSP

:PRESS SPACE WHEN DONE
{GET SPACE

062?65
004737

100000
026106
004000

T
o

044003
023374

N ~N
9]
[V]
o
n

I(NRTCHK) HCS1

PC,DRTCMD’
15’

;EXPECTED WORD FOR TRUERR TYPEOUT

‘MSH BO ERROR
‘MSG Al ERROR
:MSG Bl ERROR
'ABORTING BALANCE OF TESTS

NNNNN O NNN

U’HnU'lU"g_\‘ N

WD2

SECTOR, RKDA(RS)

31
60
32
MSG72

I
ey e
S
S
S
el

DATRO

: CHECK nscs RO,

00000000

#BRI , RKCS2(RS)
o—asé RKWC (R5)

PC, CHKMSG

0os434
00S436

sCERR AFTER SCLR

oa E.B2

000

PPt

005430

PC,SUBCLR
a4

#3,E.B3

104401
104401

SEQ J084

G AR
EXPEC
iMSG ID FOR EXPECTED MSG B2
iMSG ID FOR EXPECTED MSG B3

00N737
104024

PAGE 84

#DATARO, RKBA(RS)

£9%:

104022

Pt bt ot Pt

061952 ette

GO7

JAN-78
12:16
LOCK TEST

68%:

017314

00000

4322
4323
4324

N-78

MACY11

pos4y4ye2
005446

025264

000137

004737

001002
104115

ha'T.82'0

000000

005366

BO,

R1,

MsGS SPECIFYED HERE

:MSG RO ERROR AFTE” WRITE CHECK CMD

;ENABLE WRITE LOCK

#CCLR,RKCS1 (RS

PC,GStAT
og WRL, HMR2

:SEE IF WRITE LOCK

115

;WRITE LOCK NOT ENRBLED

IS ON

CZR6JED UNIBUS RK& DR PRT3

CZR&JE.PL1

25-JAN-78 12:08

:g;g

017576

000754

4380

017600

012765

4381

017606

052765

001462

oogoeo

MACY11l 30A(10S2)

T16

000004

000010

Y4S:

25-JAN-7?8

HO?

12:16

WRITE LOCK TEST

PAGE 85

MOV

#DATAL,RKBR(RS) ;ATTEMPT TO WRITE ALL 1’S WITH WRITE LOCK SET

BIS

#8AI, RKCS2(RS)

CYLINER .

HEAD O

18 BiZels Biaree MG BRGRRE
17 ?84115
35737 Saqegy 00s30
:§§§ 817233

Y
Ecevhe BMAIAR)
ToN ;uagg;ého
éanoa
?s
588N¥RRITE_DAIA
NGT RDY CMD 8 GET CONTR RDY

488

017644

JSR

4330

017

4332
4393
4394
4395
4396

017662
017670
017672

4389
439]

004737

017222

882737

017660

104207

100000

gxr

032737
001001
104121

004000

005370

17%:
6SS:

4398 017710

0157 7

012737

0S4340

005430

:333

217716

012737

00000!

005436

q:ox

01;;24

803537

025264

BIT
BNE
ERROR
MOV

:GET FRESH STATUS

207

;CERR NOT SET ARFTER WRITE WITH WRL SET

oc&nn HCS1

#0.WLE, HMR3
S
121

:CHECK WRITE LOCK ERROR SET
'BR IF SET
'WRITE LOCK ERROR NOT SET
SAFTER WRITE DATA WITH WRITE LOCK SET
#¢D.DS 8 §P¥N E
WRL!'D.DROY'D.VV!D.DRA> ,E.RG ;EXP RO

MOV

#<D. WL

MOV

%1,E.Bl

JSRq

PC CHKMSG

ERROR

126

JSR

PC, SUBCLR

:CERR AFTER SCLR

000004

MOV

#DATRO RKBR(RS)

; CHECK THQT NONE OF ORIG DATA

::ig 020000 013765 001422 000006

MOV

012737 00i720 005434

483 8i7rgg
8 89
10491
0177349 104125
017736

104126

::gg

017740

104127

4408

017742

004737

026436

4411

017750

012765

001456

::93

4412
4413
4414

017746

104024

017756
017764
QB17772

052765
012765
013737

4417

020006

012737

::20

oaooag

003;3;

qqxg
4419

020014
0623020

005432

ERROR

PC,GSTAT

MOV

4404
4405

004200

005340

01770

4397

017674

1001

026106

004737
104015

445§
858859
8814
0
4423
020036
032737

000010
000002
001436

000031

00S340

?88388

005340

040000

005342

000024

001434

024504

BIS
MOV
MOV
MOV

755
’
8LCE , HCS2

:SEE IF WRITE CHECK ERROR

4431

020062

012737

010340

005430

MOV

4433

020074

012737

001720

00S434

MoV

005432

# CWRTCHK>, HCS1

Séo
BIT

104022
005037

sscvokRKDQ(RS

;DO DATAX FOR CMD & GET CONTR RDY
'NO RDY AFTER WRITE CHECK CMD

020060
020070

#BRI, RKCS2(RS) ;HAS CHANGED
.-;ssRKNC(RS)
AS RESULT OF WRITE WITH WRITE LOCK SET
t
PECTED WORD FOR TRUERR TYPEOU
PC,DRTCMD’
1S’

::gg
4432

,nsc A1 ERROR

127

JSR
ERROR

Js§

BEQ

71%:

‘MSG Bl ERROR

001405

016537
104016
000437

ao Rl,

ERROR

020044

020046
020054
020056

cuecx nsgs ng

nsc
38 E 585 zf?zn NSITE WITH WRITE LOCK SET
:MSH BO ERROR

4424

4425
4426
::ge

#<D.SPOK'D. cnn? o ooon D.BRHM!D.SSP> ,E.Al

gERROR
S
ég
RRO
125

ERROR

000020
177400
001456

SEQ O0€S

zc 3373551
718

MOV
ERROR
BR

RKDB(RS), WD1
16
72%

ERROR

CLR

:GET FRESH STATUS

qcrunL WORD FOR PRINTOUT
WCE AFTER WRITE CMD

;CERR AFTER WRITE CHECK CMD

%<0'0D.SPIN'D.DRDY!D.VV!D.DRA> ,E.AD

;EXPECTED MSG AO

MSG’ 80
s D SPOK!D.CART!D.DOOR!D.BRHM!D.SSP> ,E.A1

E.B0

.EXPECTED

;EXPECTED Al

cstJEo UNIBUS RK& DR PRT3
CZReJE.PI11
25-JAN-78 12:08
4434

020102

012737

4435
4436
::gg

020110
020114
020122

005037
012737
012737

4439

(020130

004737

Y442
4443
4444
4445

020149
020142
020144
020146

104031
104060
104032
104401

4440

020134

000003

4441 020136 104057

00S440
MNO002
000003

:::g

020156

4450

020156

004737

026436

4453

020164

104401

042066

4466

020200

004737

026106

4488

020212

001361

4484
4455

4457
4459

4460
4461
4462

020170
020174

(020204
020214
020220

00S436

005442
005446

104024

104401
004737

032737
104401
013737

6S:

040573
030452

004000
042157
001430

00S366

020236

004737

026436

4469
4470
4471
:3;3

020244
0e0es2
(20254
020262

032737
001004
012765
000403

000001

001162

001456

000004

012765

001462

00S065

000006

104024

4475
4476

020272
020300

052765
012765

4478

020312

013765

J20332

104011

4479
4480

:385
4483
4484
4485
4486
4487
4488

4489

020306
020320
020326
020334
020342
020344
020350
020352
020354

020380

JSR

PC,

CHKMSG

: CHECK nscs no

ERROR

JMP

ENDRV

31
60
32
MSG72

ID FOR EXPECTED MSG Bl

B0,

Al,

SGS SPECIFIEC HER

:MSG RO tnaon AFTER WRITE CHECK CMD
‘MSH BO ERROR
:MSG Al ERROR
:MSG Bl ERROR
:ABORTING BALANCE OF TESTS

012737
004737
032737
001017
005337
001011
104204
104401

1044C1

000004

000010
000002

001366

000020

100000

001160
042066

(040573

COS340

B8%:

9%:

:CERR AFTER SCLR

TYPE

,MSGS3

:DISABLE

MSG37
AC,GETSP

ISR

PC.GSTAT

BNE

80 WRL, HMR2

WRITE

LOCK

:SPACE BAR WHEN DONE
:GET SPACE
sSEE IF WRITE LOCK OFF
:TEST FOR WRITE LOCK AT SECTOR BOUNDRIES

MSGSY
+s000, sTMPO

:FOR CONTINUOUS WRITING ON CYL O, TRACK 0,1,2
'SET WRITE LOCK

CLR
CLR

$TMP |
TocvL

JSR

PC, SUBCLR

:CERR AFTER SCLR

BIT
BNE
MOV
BR

¥B8ITO,STMP!
gs
8DATAC, RKBA(RS)
qs

sBR_IF WRITING
:SETUP ALL 0’S

#DATAL,RKBA(RS)

;SETUP

CLR

RKDA(RS)

:BEGIN At TRACK AND Sel &

MOV
JSR

sWRDAYA, HCSI
PC,DRTCHD

:CONTR NOT RDY

BIT
BNE
DEC
BNE
ERROR
TYPE

#CERR, HCS1
138
$TMPO
108
204
,MSGS3

:CERR NOT SET BY TIMEOUT
:DISABLE WRITE LO

ERROR

MOV

BIS
MOV
MOV

ERROR
005340

PC,SUBCLR

TYPE
MOV

78:

000020
140400
000023
024504

JSR

ERROR

BIT

001160

4466

4477

"EXPECTED MSG R2
:MSG ID FOR EXPECTED MSG B2
'MSG ID FOR EXPECTED MSG B3

TYPE
JSR

001162
001366

020264

E.BI

728:

005037
065037

4474

T.AZ'T.B2'0

:MSG

SEQ 0086

E.A2
82,E.B2
83 €.83

ERROR
ERROR
ERROR
TYPE

020226
020232

020242

PAGE B6

CLR
MOV
MOV

_WORD

Y463
::gg

::gg

MOV

044003
023374

020152

020162

107

30A(10S52)
25-JAN-78
12:16
T16
WRITE LOCK TEST

025264

3::9

33§é

000137

000001

MACY11

TYPE

:BITO=0:WRITE 0°'S;

#BAI, RKCS?(RS)
8-63. #25E. , RKWC (RS )

TOCYL

\M5G37

,RKDC(RS)

ALL

BITO=1;WRITE

1°'S

1°S

1°'S

:WRITE TRACK 0,1,2

63 SECTORS

;D0 WRITE DATA CMD 8 GET CONTR RODY

:PRESS SPACE NHEN DONE

f\JN

RbJEO ?NIBUS RK& DR PRT3
REJE.
25-JAN-78 12:08

4430
4491
4492

4493
4494
4495

Y436
4437
4498
4499
4500
4501
4502
4503
4504

020364
026370

004737
000137

030452
0214S0

020374

005237

001162

MACY11

30A(1052)
T16

JO7

12:16
25-JAN-78
WRITE LOCK TEST
JSR

PC,GETSP

INC
BR

STMP1
7%
8BSE, HER
218
TOCYL
TOCYL, #10.
79
62

IMP
10%:

000200

005354

001366
001366

000012

13%:

BIT
BEQ
INC
CMP
BNE
ERROR
JMP

PAGE 87

124

SEQ 0087

; INPUT SPARCE

'EXIT TEST

; GO WR IT E OPPOSITE DRTR
SE
1 F BAD SECTOR
F_NO

SEL SE_TRY RNOTHER CYL
SEE 1 _IF

10 COgSEg ?YL BRD

12%

B8R
CONSEC CYLINDERS
;10 ?QD
TEST
EX

BIT
BNE
ERROR

#D. WLE, HMR3
11$
205

;NO WRL BY TIMEOUT

TYPE

,MSGS3

;DISABLE WRITE LOCK

0204es
020430

000137

021450

020434
020442
020444

032737
001001
104205

004000

020446
020452
020456

104401
104401
004737

042066
040573
030452

ge0462
020470

013737
013737

005350
005350

001164
001166

MOV

HDA, §TMP3

:STORE FOR ERROR TYPEOUT

020476
020504
020506
020s1e

023727
001003
104401
000621

00l leM4

000001

CMP
BNE
TYPE

$ MP2,
#
22%
MSG100

:BR_IF NO
2
;ELSE WRL OCCURRED ON TRK

020514
020520
ge0sSee
020S26

005737
001004
104401
10137

001164

020532
020546

Ge372?
001004
104401
000137

020552
020560
02056e
020566

023727
001004
104401
000137

001164

020Ss72
020600
g206C2
020610

023727

oolleH

0oo400

000415

00002s

000" J6

020612
020620
020622
020630

023727
001004
012765
00040S

020632
020636

005337
013765

005370

219:

119:

044201

2es:

23%:

044201
020156

:
248

001000

2ss:

188:

000006

19%:

;SEE _IF WRL ON TRK O,

SEC 1

157

$TMP2

seslxr gRL ON TRK 0,

BNE

CMP

233

; BR

2
'ELSE WRL ON_TRK

SEC 20

18 NO NEW DATA xreh TOOK PLACE

§TMP2, 81025

gEEIF gRL ON TRK 2,
IF

SEC O

MSG100

SeC

SEC 2!

BNE
TYPE

24$
MSG100

CMP
BNE

$TMP2, 81024
25%

JIMP

:BR IF NO
{ELSE WRL ON TRK 2 SEC 18
;8 NO OLD DATR TO LHECK AGRINST

CMP
BNE
MOV

$TMP2, 8400
18%
#21.,RKDA(RS)

:BR_IF NO
{ELSE SECTOR AT WRL 1S TRK 0, SEC 21

TYPE

044201
020156

; STORE RKDA OF ERROR

'8 NO NEW DATR XFER TOOK PLAce

IMP
001024

HDR, STMP2

; TYPE SPACE WHEN DONE

IMP
001025

’MSG37
AC,GETSP

TYPE

044201
020156

001164

TYPE
JSR

MSG100

2
JELSE WRL ON_TRK

18 NO NEW DATA xrsh TOOK PLACE
SEC 19

:SEE IF WRL ON TRK 2,

SEC 20

;SEE

SEC O

IF WRL AT TRK

B8R

208

CMP
BNE
MOV
BR

§$TMP2, #1000
198
#425
, RKDA(RS)
208

SEE IF gRL AT TRK 2,
N
;BR_IF

DEC
MOV

$TMP2
§TMP2, RKDA(RS)

;GET SECTOR AT WRL

!ELSE SECTOR AT WRL IS TRK 1,

SEC

by|

0 UNIBUS Rke DR PRT3
P11
25-JAN-78 12:08
020644

016537

000006

020652
020656

oQ4737
104024

026436

020660

001164

020714

005737
001414
023727
001M10
032737
001006
012765
00040S

020716

000137

MACY1l

001166

#BIT0,STMPI

001462

000004

00S340

—

O
n

Pt
ot Pt Pt Pt Pt Pt Pt prd

004737

WM
——
nooLnNooccLo

012737

Pt Pt Pt Yrvd Pt Pt Pt Pnt

00000008
(=]
rorofufufururo
fu

005037
012737

104401
000137

;CERR AFTER SCLR

oo1llee

000031
024504

012737
005037
012737
012737

PC,SUBCLR
a4

000001

020766
020774
021000

104022

;FOR ERROR PRINTOUT

001023

020156

SEQ 0088

PAGE 88

RKDAR(RS),$TMP3

oolieN

000004
000010
000002
000006
001436

021040

MOV

KO7

12:16

$TMP2

001456
000020
177400
001166
000004
001366

104134
000437

208:

WRITE LOCK TEST
25-JAN-78_

80§
$TMP2, #1023

020722
G20730
020736
020744
020752
020760

021034

30A(1052)
T16

80s
738

;SEE_IF TRK/SECTOR O

;REPEAT, NO NEH DATA XFER TOOK PLACE
{SEE _IF'TRK 2,SECTOR 19

i REPERT,NO OLbDQTR TO CHECK AGRINST
:BR IF unxrxnc 1'S WHEN WLE OCCURRED

;ggrn1,nxan(n51"WRITING 0°S:WLE SECTOR SHOULD HAVE ALL 1°S
80%:

73%:
74%:

#DATRO, RKBA(RS)
S

;WRITING 1°S:WLE SECTOR SHOULD HAVE ALL 0'S

JRKBALRS) , WD

*EXPECTED WORD FOR TRUERR TYPEOUT

#BAI, RKCS2(R )
8-256. quc<n§)
STMP3 hxon(RS
;REFRESH RKDR

ToCcYL, RKDC(RS)

000020

o<ua1cux> HCS1

PC,DATCMOD’

:D0 DATAX FOR CMD 3 GET CONTR ROY

15’
pc GSTART

:NO RDY AFTER WRITE CHECK CMD
:GET FRESH STATUS

026106
100000

00s340

040000

00S34e

ngE,HCSE

sSEE IF WRITE CHECK ERROR

000024

001434

RKDB(RS) , WD1

:ACTUAL WORD FOR PRINTOUT

ag%nn HCS1

134

82%
818:
00s430

025264

PC, CHKMSG

044003
023374

31
60
32
MSG72
ENDRV

oos442
00S446

;CERR RFTER WRITE CHECK CMD

8¢0'D.SPIN'D. oaov D.VV!D.DRR> ,E.AR0

010340
00S432
001720
000001
005440
000002
000003

005434
005436

*WCE RFTER WRITE CMD

£.80

XPECTED MSG’BO

;EXPECTED MSG RO

8<D.SPOK!D.CRRT! b ooon'o BRHM!D.SSP> ,E.ARl ;EXPECTED Al

81 E-BI
E.R2
82,E.B2
83 E.83

MSG ID FOR EXPECTED’MSG Bl
'EXPECTED MSG R2
*MSG ID FOR EXPECTED MSG B2
:MSG ID FOR EXPECTED MSG B3

Aa'T.82'0

3 MSGSAFTER
sptcx
tED HERE
:MSG AD
tnnon
WRITE
CHECK CMD
:MSH BO ERROR
: CHECK nscs RO,

‘MSG Al ERROR
‘MSG Bl ERROR
1ABORTING BALANCE OF TESTS

L.C](

L J

P s e

fururoruron

PoPns Pes it Pt Poe Pt P

VAV IRV IR LAY A VL VIR
ol atenl o entendoiiiiod et
QO
QNNOTUTW
L
£

023727
001004

001164

0oc400

00002S

000006

0ol1eM

001000

00042s

000006

001164

i 30448¢ BB7T6E
00

768 :

778 :

$TMP2, 8400
758

;g%.,RKDQ(RS)

:SEE IF WRL AT TRK 1, SECTOR O
‘BR IF NO
"ELSE SECTOR BEFORE WRL IS TRK O,

SEC 21

CMP
BNE
ggv

$TMP2, #1000
768
;;is,nxon(nsy

:SEE IF WRL AT TRK 2,SECTOR O
'BR IF NO
'ELSE SECTOR BEFORE WRL IS TRK

SEC 21

DEC
n8v

$TMP2
3THP2 nxon§ng)

:GET

BIT

#BIT0, STHPI

MOV

000004

012765
052765
012765
017537
013765

00l462
000020
1727400
000004
001366

000004
000010
000002
001436
000020

012737
004737
10401
00473
88278?

000031
024504

00S340

MOV

026106
100000

00S340

81T

03?537

040000

005342

000024

001434

Pt st B

848483

001456

P et Pt P Pt Pt Pt Pt Pt Pt

032737
001004

1450

8?65%?
104135
000437

79§

;ggTRO,RKBQ(RS)

'WRITING O'S:WLE

MOV

#DATAL,RKBA(RS)

;WRITING

BIS
MOV
MOV
MOV

0esee4

8 <WRTCHK)>
, HCS1

SHOULD HAVE ALL 0°'S

SHOULD HAVE ALL

:EXPECTED WORD FOR TRUERR TYPEOUT

PC,DATCMD
1S
PC,GSTAT

;D0 DATA X FOR CMD 8 GET CONTR ROY
*NO RDY AFTER WRITE CHECK CMD
'GET FRESH STATUS

BEQ
gég

84
ogge,uesa

:SEE

ERROR

ICERR,HCSI

gxoe(ns>,u01
135

84s

IF WRITE CHECK ERROR

:ACTUAL WORD FOR PRINTOUT
*WCE AFTER WRITE CMD

00S434
00S436

MOV
CLR

#<0'D.SPIN'D.DRDY!D.VV!D.DRA)
,E.A0
E.BO
-sxpesrgo MSG 80

MOV

0os44e
005446

MOV
MOV

00S430

WHEN WLE OCCURRED

SECTOR -I

1'S:WLE SECTOR -1

ERROR

104022

000003

#BAI, RKCS2(RS)
8-256. . RKWC (RS)
¥Rxan(h5) Wp2~
ocYL,RKDL (RS)

:BR_IF WRITING 1'S

SR
ERROR
JSR

010340

;FOR ERROR PRINTOULT

78%

MOV
83s:

KDACRS),$TMP3

SECTOR BEFORE WRL

BNE

SSV

78$:

SEQ 0089

CMP
BNE
SSV

oollee

021350

HEEY
4655
4656
4£57

75§ :

PAGE B9

NOP
NOP

Mrunrn

0000

8es:

000240
000240

023727

3?Q(1052)
S-JAN-78
1~2:16
WRITE LOCK TEST
16

WWWWLJIWWWW
L£
PONY
= 0—

s Pt e P

MRCY11

000001

Q000000000 00000
mmmmmrummgm
rumru8 U

O00000

ooy

4602
4603
4604
4605
4606
4607
4608
4609
4610
4611
4ele

0080
PR~
N
froror

¢ZRBTEDQ UNIBUS Rke DR_PRT3
CZRBJE.PLI
25-JAN-78 12:08

MOV

:CERR RFTER WRITE CHECK CMD
;EXPECTED MSG AO

#<0.SPOK'D.CART!'®
.
DCOR'D.BRHM!D.SSP> ,E.Al
E.BI

:MSG

ID FOR EXPECTED'MSG Bl

CLR

E.A2

82,E.82
83 E.B3

'MSG ID
FOR EXPECTED MSG B2
'MSG ID FOR EXPECTED MSG B3

JSR

PC, CHKMSG

: CHECK MSGS RO,

31
&0
32

:MSH BC ERROR
:MSG Al ERROR
:MSG Bl ERROR

_WORD
ERROR

ERROR
ERROR
ERROR

T.R2'T.B2'0
&7

;EXPECTED Al

;expscrsg MSG Re

BO,

Al,

-8 MSGS SPECIFIED HERE
:MSG A0 ERROR AFTER WRITE CHECK CMD

1°'S

CZRBIED LINIBUS RKE DR PRT3
CZRBJE. P11
2S-JAN-78 12:08
4658
4659
4660
4661
Y662

021440
021444

104401
000137

MACY1l

MO7

30A(10S2)
25-JAN-78
12:16
Tl6
WRITE LOCK TEST
TYPE

044003

MSG72

ENDRV

IMP

023374

0214S0

:
84S

021450

128:

PAGE 90

SEQ 0090

; ABORTING BALANCE OF TESTS

XTI TXIXZIITTIRIRITIITI ISR RAIR RIS IIIIAII ISR

irssr 1?7

4666
4667
4668
4669

22222 2288282220 XL

THIS TEST VERIFIFS THRT WHEN RC POWER 1S LOST,

AT aicrga gggnonxss 8 THAT THE

WHEN THE

‘¥

4670

AC LOW DETECTION PART 2

THERE

APPROX 4 MS BETWEEN

I'"'TERFACE SHUTS DOWN.

THAT unxrxnc CEASES

BARTTERY Rsrnncf IS FUNCTIONA

AC LOW ASSERTING AND NED RSSERTING

021450
021452
D2 1460

000004
012737
012706

000001
001100

01464
021470

004737

38147

: Y1222 2123X22:12122%32:1322%2222:1222222::2X2X222222XX22XSS2LXXXSX2L X
+&T17:
SCOPE

MOV

ns?ncx SP

1 ITERARTION
STK PTR
hssronc

D26436

JSR
ERROR

PC,SUBCLR
24

:CERR RFTER SCLR

104401

4481

77
837

TYP

TYPE

;AC

21502
021506

004737
000137

g3041e
023374

JSR
IMP

PC,CCSP
12¢

OR SPQCE T0 CONINUE
: INPUT CONT-E OR SPACE
'RETURN HERE FOR CONT-E

021s81e

00S737

001474

1ST
§£3

BSERR

:TEST FOR AL IGN CARTRIDGE
'BRIF NOT ALIGN CART.

JSR

PC,GSTART

BEQ

11§

#D. WRL , HMR2

WRITE LOCK
;gss }r

TYPE

104024

gsizkg 6841%
021536

004737
032737
001417

026106
oo4000

021540
8515%4
1550

104401
04401
04737

042066

021554

004;3;

026106
004000

STIMES

,nggég

022142

Oe15aM
221530

Be1zgl 837585

001174

005366

18:

40573

30452
005366

B1T

LOW-P
8*
10avfinss TEST

:RETURN HERE

FOR SPACE

TYPE

JSR

,MSG53

Pc GETSP

:DISABLE WRITE LOCK

JSR
EéT

,g
, HMR2
co WRL

assF gTILL WRITE LOCK

ERROR
JMP

110
12%

NRITE LOCK NOT DISRBLED
'EXIT TEST

MSG37

118

!PRESS SPACE WHEN DONE

:GET SPACE

021570
021572

104110
000137

023374

021576
021602
021606
02ibl2

005037
00s037
00s03?
005037

001366
001402
gol442
001450

118:

CLR
CLR
CLR
CLR

TOCYL
CALADD
HERD
FORMAT

:SETUP
:FOR
:FILL HERDER TABLE
*ROUTINE

021616

004737

027420

138;

JSR

PC,FHDTAB

sBUILD STD 22 SECTOR HERDER TABLE

O21lee2
021630

012765
012765

001506
177676

MOV

#HDTAB, RKBA(RS)

000004
000002

MOV

#-66. , RKWC (RS)

CZRBJEO UNIBUS RKb DR_PRT3
CZReJE.P11
25-JAN-78 12:08

021636

g21642

021650

001442
000337
013765 001442
000337 _ 001442

012737

000027
024504
026106
100000

MACY11 30A(1052)
117

005037

001366

021726
021732

004737
104024

026436

021734
02174
021750
D21756
p21764
g21772
02177

012765

001462
000020
137000
001366
000023
024504
[N =]

o21722

)
~

001442
001442

PC,GSTAT

#CERR, HCS1

005340

000003

16%:

005354.

010340

005430

022114

001366

022132

001366

cegs,nsn

000137

023374

;CERR AFTER SCLR

;RETURN_HERE FOR SPACE

;00 WRITE _DATA CMD & GET CONTR RDY
;NORDY AFTER WRITE DATA CMD
*GET FRESH STARTUS

;SEE IF BAD SECTOR
)

#<0!D.SPIN!D.DRDY!D. VV!D.DRgé EORU
; EXPECTED

;EXPECTED MSG RO

l(D.SPOK!D.CRRT'b.DOOR!D.BRH D.SSP» ,E.Al ;EXPECTED Al

E.BO

81.E.

00s442
005446

000012

sc,SUBCLR

ngéan HCS1

17%:

sMSG_ID FOR EXPECTED MSG B1'

E.R2
#2,E.B2

:EXPECTED MSG A2
*MSG ID FOR EXPECTED MSG B2

PC, CHKMSG

AaT.82!0

’ CHECK MSGS RO,

aa
53
?gs

:MSH BO
ERROR
:MSG Al ERROR
:MSG Bl ERROR

#3,E.B3

025264

023374

;SEE_IF ALL HERDS DONE
;BR IF NO

PC,GSTAT

005436

022110

HEAD
HERD, #3
138
TocYL

PC,DATCAD
11’

‘005434

000003

;00 DATA X FOR CMD & GET CONTR RDY
;NO_RDY AFTER WRITE HERDER CMD
;GET FRESH STATUS
;CERR AFTER WRITE HERDER CMD

uunoa?nHCSI

00S340

000200

;HERD ADDR

:WRITE INITIAL BACKGROUND OF 1'S
8-66. asa. RKWC(RS)
s TRACK 0,1,2 ALL SECTORS
TOCYL ,RKDCLRS)

0002
111npn

005340

SEQ 0091

64S
201

8DATAL, RKBA(RS)
¥BA I,chsa(RS)

000004
000010

026106
100000

HEAD
HEAD, RKDA(RS)
HERD
#¢WRHEAD) ,HCS1
sc DATCMD

005340

64S:

005237

SWAB
MOV
SWAB

000006

104201

NO?

12:16
PAGE 9l
25-JAN-78
AC LOW DETECTION PART 2

TOCYL

TOCYL, #10.

18%
?gs

:MSG ID FOR EXPECTED MSG B3
BO

-8 MSGHFTER
écrriso
;MSG AD tnnon
WRITE HERE
DATA CMD

s TRIED 10 CYLINDERS?

:BR IF_NO
:CANNOT WRITE ON 10 CONSEC CYL

CZRBJEO UNIBUS RK& DR PRT3
2S-JAN-78 12:08
CZRbJ E. P11
4770
4771
4272

4773
4774

MACY!ll

30A(10S2)
T1?

25-JAN-78

BO8

12:16

PAGE 92

AC LOW DETECTION PART 2

SEa 3092

022136

000137

021726

18%:

JMP

168

Q22142
022146

004737
104024

026436

2s:

JSR
ERROR

PC, SUBCLR
24

:CERR ARFTER SCLR

022150
22154

104401
104401

Q41521
042532

022160
gc2164
022166
g2z217e
022176

005737
0g140S
104491
004737

001474

040573
030452

022200
022206

013737
005037

001432
00llee

022212
022216

004737

026436

022220

032737

000001

001162

BIT

001456

000004

MOV

000S23

104024

TYPE

104011

004737

026106

100000

000137

022354
022360

005237
000714

001160

159%:
4s:

; TURN OFF AC

1ST

BSERR

;SES _IF ALIGN CART USED

MOV

CLR

JSR

ERROR

PC, SUBCLR

#BI1T0, STMP1

:BITO=0;WRITE 0’'S;

BITO=1:WRITE 1°S

:CERR AFTER SCLR

MOV

#DATA1,RKBA(RS)

;SETUP ALL

CLR

RKDA(RS)

sBEGIN at TRK anb QecrRO

MOV
JSR
ERROR

sWRDATA, HCS
PC DATCHD
11’

;D00 WRITE DATA CMD & GET CONTR RDY
:CONTR NOT RDY

JSR

PC,GSTAT

BNE
DEC
BNE

33
$TMPO
7s

TYPE
TYPE
JSR
IMP

MSGS0
MSG69
PC.GETSP
124

INC

$TMPIL

ERROR

7%:

$TMPI

:SKIP ALL WRITING

BIT

00S340

150000, $TMPO

:BR_IF NO
PRESS SPACE WHEN DONE
'GET SPACE

c§

MOV

000020
005340

15§
MSG37
#c GETSP

:VERIFY BATTERY RETRACT FUNCTIONAL

BNE

BIS
MOV

041574
043615
030452
023374

00l1e2

, MSG49

001160

022350

'M5GS?

BEQ
TYPE
JSR

000004
000010
00co02

024504

TYPE

sBR_IF WRITING 1°S

#DATAO,RKBA(RS);SETUP ALL 0'S

#BA ,RKCS2(RS)
$-63. #256. RKNC(RS)

TOCYL RKDC(RS

1°’S

TRACK
O

63 SECTORS

8CERR, HCS1
146

:CERR NOT ser BY TIMEOUT

:TURN AC BACK ON
' DEPRESS spncs AFTER ’READY' LIGHT ON
{GET SPACE
JEXIT TEST
:GO WRITE OPPOSITE DATA

cstJeo UNIBUS RK6 DR PRT3

CZRBJE.PL1

25-JAN-78 12:08

4819 855358 835081

000100

“§§§ 855374 803937

05322

:sao

2737

022372

104147

MACY11l

005370

: 3
4
78140 ooszag
4855 8554?3 815737 8&4?88 88?434
:ggg

022422

012737

000001

:eae

022330

003737

025264

3931

naquo

3§§§ Bs5uF

103203

184835

4835

(22446

013737

4353 855432 ?qugg
3939

022454

013737

005350

4338 022462 104401 041574
4833
:g:o
4842

BIT

#D.ACLO, HMR3

ERROR

INC

147

UNLD

108:

goz
n8v

MOV

8%:

:AC LOW NOT SET

VALID HALT

s<o.ggf-o PéPL épgnD.VVID.DRA> ,E.A0 ;EXPECTED MSG AO
P .UNLS 8 E 90 énk0.bggn'D.BRHM!D.SSP> ,E. Al
#<D.

$1,E.BI

JBRR

Pcbguxnsc

ERROS

203

cnscx nsgs ng

ao nx

ERSOB gs

nsc83 §n585 zf?enAC SWITCH OFF FROM HEADS LOARDED

ERRSR

2@ Bt BRRSR

MOV

HDR, $TMP2

: SAVE RKDA

TYPE

, MSGSO

; TURN AC BACK ON

MOV

HDA, §TMP3

nsn BO ERROR

:SAVE FOR TYPEOUT

TYPE
JSR

'’ MSGE9
pC,GETSP

JSR

PC, SUBCLR

Bls

BIT

152

:ACLO NOT RESET AFTER POWER UP

CLR
MOV

UNLD
8CCLR,RKCS1(RS)

:FOR VALID HALT

JSR
ERROR

PC, DOLMD
118

004737

026436

4845

2504

032737

000100

:g:g

022514

B3an:

104152

4849
48S0

(022516
022522

005037
012765

005322
100000

4853
:ggg

022544
022550

004737
104116

3959

022552

4859
:eso

02256M4
oaasgq

:ggg

022576

dg4e 055813
022
2

104024

:§§é 85527

ERROR
005370

ERROR

0137s§
012737

001222
000003

000000
000610
005340

oa§737

000100

005366

qgga 853?22 ?84885

005337

024446

001474

00S737

001164

4872 022620 001410

O001led

001023

000001

00lle2

4873

022622

Rsoa

:DEPRESS SPACE AFTER ’READY’ LIGHT ON
:GET SPACE
:CERR AFTER SCLR

#D.ACLO, HMR3

SUNIT,RKCS2(RS)
#PACK ' HCS1

uogvv,nnaa

;DRIVE

;D0 PARCK CMD 8 GET CONTR RDY
:CONTR NOT ROY

s VOLUME VALID NOT SET AFTER PACK CMD

rgr

?EERR

:SEE_IF ALIGN CART

JSR

PC, SUBCLR

:CERR AFTER SCLR

TST

$TMP2

:SEE_IF

BEQ

73%

:REPEAT.NO OLb onrn TO CHECK ARGARINST

12%

ELsé Ex?r TEST

USED

148:

122604

J22610
02Pbl2

aér

026436

4870
4871

MOV
MOV

886185 023374
004737

022602

9§ :

6SS:

022576

4869

3%:

SEQ 0093

043615
030452

022476

:ggg

PAGE 93

AC LOW DETECTION PART 2

104401
004737

022502

4866

001166

CcCO8

12:16

T17

00S436

001164

25-JAN-78

022466
022472

3833

4g5]
488

30A(10S52)

104024

001414
023727

032737

ERROR

BEQ
CMP
BIT

738
§TMP2, #1023
%BITO,3TMP]

TRK/SECTOR O

REPEAT, NO Nsu onrn XFER TOOK PLACE
‘SEE IF'TRK
2,SECTOR 19

CZRBJED UNIBUS RKG DR PRT3

CZRGJE.PI1
qe7w

25-JAN-78 12:08

022630
Qegbe

001006

Qig7es

001462

4878

022642

000137

022142

4880

488] 0054 Q276G

022646

012765

001456

4885

022704

4887

888745

497

MACY1l 30R(1052)

117

488

4889

geg7ey

PAGE 94
AC LOW DETECTION PART 2
b6

67S

738:

JMP

0OOCRG QODOID 678:

663:

MOV

DAl KRS TR

001366

MOV

000004

000020
05340

QARTY, §I0g3y 005
1040l

DO8

12:16

BNE

00000

3863
58 Di5762 baiiee Da00BE
qa8y 88Sp70 Bi92%3 85685 98793
013765

25-JAN-78

4
032737

026106
100000

005340

022752

016537

000024

001434

022764

104022

SDATAL,RKBA(RS)

DATAOD, RKBA(RS)

SEQ 0094

.BR IF WRITING 1'S WHEN WLE OCCURRED
{WRITING 0'S:WLE SECTOR SHOULD HAVE ALL 1'S

;WRITING 1°S:WLE SECTOR SHOULD HAVE ALL 0’S

oV
MOV

g?fipg
ARRHCRES) - REFRESH RKDA
O]KBALRS) WD .EXPECTED WORD FOR TRUERR TYPEOUT

MOV

ERROR

3BIEHKD

.00 DATAX FOR CMD & GET CONTR RDY

;é;E,HCSE

.SEE IF WRITE CHFCK ERROR

J5R

CWRTCHK>, HCS
1

?
022732

3§§§ ggag figézgg Q40000 005342

gzg

4895

MoV

RKDBIRS),WDL

aggug%ngRBRggg PRINTOUT

4899

ERROR

.CERR AFTER WRITE CHECK CMD

Y
438 BSE7BR HAEZdS BhEd4e 00SH3O

(Q!0.SPIN!D.DROY!D
B
£% Y ¥R DRA>,E,AD
PR8% By

4305
4306
4307

003014
023020
023026

005037
012737
012737

005440
000002
000003

CLR
MOV
MOV

.85
82 E.B2
$3'E.B3

'EXPECTED
MSG
! MSG I EoR XBECTED MSG B2
'M3G 10 FOR EXPECTED M3G B3

4909

023034

004737

025264

ISR

PC ., CHKMSG

jCHECK MSGS A0,

4313

Gg30de

104080

4915
33{9

0230’2
0230L6

104401
000137

'M3C Bl ERROR

4318
4919

023062
023068

000240

49°%

023066

023727

0O011EY

DDOMOD

$TMP2, #400

.SEE_IF WRL AT TRK 1,

053076

012766

000025

000006

#21. RKDA(RS)

.ELSE SECTOR BEFORE WRL IS TRK 0,

4326

023106

023727

001164

001000

023116

012765

000425

000006

BR
74§:

4303
023000 012757 001720 0OS434
4904 003006 019737 000001 002436

491
BS3948 990893
4314 BSIBi
1BuBRT
4914

4320

49,3
4925

4327

4328

053058

023064

023104

023114

023124

104032

MOV
MOV

005442
O0SH4E

75§

000240

1004

000415

001004
000405

438

'GET FRESH

STATUS

;EXPECTED MSG AQ

$¢D.SPOK!D.CART!b
50616 BRAG! D SSP> E.AL ;EXPECTED Al
81 £.B1
reG 10 FOR EXPECTED M&G B1

HORD
ERROR
ERROR

1,R2!T.B210
31
b0

TYPE
IJMP

MSG72
ENDRV

ERROR

044003
023374

2. GSTAT
;céRR HCS1

'NO_RDY AFTER WRITE CHECK CMD

4890
489l

:ggg BS50RR A4S

ISR
BIT

ToCYL, RKD (RS)

B0,

AL,

:MSG
N3G
BAQ9 ERROR
FRRGH GReSERCIEIER HEFE 1o
MG BY ERROR

' ABORTING BALANCE NF TESTS

NOP

cHP

BNE

£8%

708§

BNE

63g

MOV

68%:

CMP

MOV
BR

'BR If NO

SECTOR O

$TMP2, #1000

.SEE IF WRL AT TRK 2,SECTOR O

425 RKDA(RS)

ELSE SECTOR BEFORE WRL IS TRK 1,

708

'BR

IF NO

SEC 21

~N
W
~

89§§298
‘3C¥3CND*43C)
00000
WOOOD
=
et
Nt

D\lg oL
Lwn
LoLoonoe

wWwwwwwww
s pt Bt et Pt Pt e

N
WWww
PUP==bme

4930

8CJ fufufururofun
0000000

€z SBJEO UNIBUS RK& DR_PRT3
CZReJ E.P11
25-JAN-78 12:08

023272
Ca3274

MACY11

001164
001164
000006
000001

000006
001166
ool1ee

001456

Coo0o04

001462
000020
177400
000004
001366

000004
000010
000002
001436
000020

000031
024504

00S340

EOS8

30AR(10S2)
25-JAN-78
12:16
PRAGE 95
117
AC LOW DETECTION PART 2

698%:

ggs

g;ngg RKDA(RS)

:GET SECTOR BEFORE WRL

70%:

E?¥

figgfig*g;fig}"P3

;FOR ERROR PRINTOUT

BNE

718

sBR IF WRITING 1°S WHEN WLE OCCURRED

E?§

:82}“&«253?&2?’

MOV
283

#-256. , RKWC (RS)
ggéef(gaééggg) :EXPECTED WORD FOR TRUERR TYPEOUT

Egv

MOV

012737

023346
023352
023354
023356
023360
023362
023364
02337L

004737
000003
104057

SHOULD

sWRITING

SHOULD HAVE ALL

1°'S:WLE SECTOR -1

BEQ

778

MOV

RKDB(RS) , WD1
%;;

'WCE AFTER WRITE CMD

ERROR

:CERR AFTER WRITE CHECK CMD

00S430

QEX

e<géo.spxuzo.oRovégfigg%obogga,gfino

005434
005436

MOV

005340

040000

0os342

ooo024

001434

é??

gég

Esnon
76%:

023340

8 CWRTCHK)
, HCS1

'WRITING 0’S:WLE SECTOR -1

PC,DATCMD
1S

026106
100000

010340
00s432

;ggrno,nxen(RS)

JSR
ERROR

023276
023300

SEQ 0095

MOV

o}
000002 - 005442
000003
DOS446

83 E.B3

ERROR
ERROR
ERROR
};gs

023374

778:

023374

12%:

023374

ENDRV:

E.BI

MOV

WORD
ERROR

:D0 DATA X FOR CMD 8 GET CONTR RDY
'NO RDY RFTER WRITE CHECK CMD
:GET FRESH STATUS

;SEE IF WRITE CHECK ERROR

sACTUAL WORD FOR PRINTOUT

:EXPECTED MSG RO

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

E.A2

044003
023374

sfcs,ncsa

CLR

MOV

0OeS2e4

zgtggraESI

82,E.82

iMSG_ID

FOR EXPECTED’MSG Bl

;EXPECTED Rl

{EXPECTED MSG A2

:MSG ID FOR EXPECTED MSG B2
:MSG ID FOR EXPECTED MSG B3

PC, CHKMSG

; CHECK MSGS RO,

31
60
32
enggca

‘MSH BO ERROR
:MSG Rl ERROR
:MSG Bl ERROR
:RBORTING BALANCE OF TESTS

T.R2'T7.B2'0
57

BO,

Al,

-8 MSGS SPECIFIED HERE
:MSG A0 ERROR AFTER WRITE CHECK CMD

s o 20636 2696 3 36 36 36 38 36 36 36 26 3 36 3 36 36 3 36 3% 36 36 36 38 3% 36 36 36 38 3 36 36 3 38 36 36 36 36 3% 3% 3 36 96 0 3 36 3 06 3 36 44 3 36 3 3% 3 3 0 3 3 3¢

*kTEST 20
X3
¥

THIS

HAVE ALL 0'S

END OF PROGRAM

IS NOT A TEST BUT A LINKRGE TO PERFORM ALL THE

1°S

CZR&JEO UNIBUS RK& DR PRT3
25-JAN-78 12:08
CZR6JE. P11

MACY1l

FO8

30A(10S2)
12:16
25-JAN-78
T20
END OF PROGRAM
;l

;l
;!
¥
;l

023374
023376
023404

000004
012737
012706

023410
023414
0e3422
023424

005237
023737
001402
000137

PAGE 96

SEQ 0096

RABOVE TESTS FOR THE NEXT DRIVE PRESENT.
THE NEXT TEST IS ENTERED ONLY RFTER ALL DRIVES PRESENT
HAVE BEEN TESTEC.

DO NOT LOOP ON THIS ’TEST’.

= JE 366 36 36 36 38 36 36 36 36 3 36 36 36 36 36 36 36 36 36 3 3 36 36 36 36 3 3 36 36 36 3 3 3¢ 2 3 30 36 36 30 36 30 30 3 30 3 3 36 3 3 36 38 3 3 3 3 3 3 3 % % %

000001
001100
001220
00s460

001174

t&120:

001220

01e402

SCOPE
MOV
MOV

sStAck, SP

81,

STIMES

;

INC
CMP
BEQ
JMP

SDEVCT

: INCR COUNT FOR
® OF oaxvss THAT ARE CHECKED

DRIVS, SDEVCT
TsT21

NUDRV

ITERATION

kssroas STK PTR

1ARE ALL DRIVES PRESEN TESTED"
:.GO TO NEXT TEST

IF YES

ir NOT, GO BRCK & TEST NEXT DRIVE PRESENT.

S 36960636 36 36 30 05 36 00 00 36 06 06 366 00 06 00 36 06 06 06 00 300 90 90 00 30 00 0 30 3000 30 36 00 30 36 30 36 00 00 30 30 06 06 00 36 06 30 06 00 30 06 30 26 0 2

ee e et ws as we Mewswsme
Bt W

'************

e
G

&
8

me et

023430
023432
023440

000004
012737
012706

023444
023450
0234Ss2

005737
001402
000137

023456
023464
023466
023472

023727
001004
104401
00C137

043143
023722

023476
023502
023506
0e3s1e

104401
104401
004737
000137

037770
041765
030412
023722

023516
0e3see

104401
104401

042600
040573

000001
001100

001174

}&121:

ool1ele

023722
00s460

00000!

MULTIPLE DRIVE DETECTION TEST

THIS TEST IS PERFORMED ONLY ONCE AT THE END OF PARSS
AND IS BYPASSED IF ONLY ONE DRIVE IS PRESENT.
THE MULTIPLE DRIVE DETECTION LOGIC

A.
B.

IS TESTED BY THE FOLLOWING METHOOD:

HEADS MUST
LOADED (SECTOR PULSES REQ’D)
THE OPERATOR
IS INSTRUCTED TO INSERT THE SAME UNIT SELECT
PLUG NUMBER (1 PRIR AT A TIME) ON ANY 2 DRIVES
T0 BE TESTED
THE OPERATOR THEN DEPRESSES THE SPACE BAR TO CONTINUE THE TEST
OR A CONT-E TO EXIT THE TEST

THE PROGRAM_VERIFIES THRT MULTIPLE DRIVE SELECT 8 DRIVE UNSAFE
BOTH SET 8 THAT THE DRIVE UNLOADS
THE OPERATOR IS ASKED TO VERIFY THRT HERDS UNLORD FROM BOTH DRIVES

._... e

Pt Pt Pt Pt P
e Pt Pt P

DO NN
L W

unnininninninn
000000000

'irssr 21

1%:

c29%:

SCOPE

2 22222 2222222222222

$TIMES

MOV
MOV

csfncx SP

ST
BEQ
JMP

$PRSS
15
118

CMP
BNE
TYPE
JMP

DRIVS, !
23
MSGH2

TYPE

{18

::D0 1

228222 s

222222

2SS

ITERATION

*RESTORE STACK PTR
;00 TEST ONLY IN 1ST PRSS

{ELSE EXIT TEST

:BR IF MORE THAN 1 DRIVE PRESENT

"BYPASS TEST, ONLY I DRIVE PRESENT
'ELSE EXIT TésT
;MULT DRV DETECTION TEST

TYPE

'PRESS CONT-E TO EXIT OR SPACE TO CONTINUE
: INPUT CONT-E OR SPACE
{RETURN HERE FOR CONT-E

TYPE
TYPE

;LOARD HERDS ON ALL DRIVES

JSR
JIMP

!PRESS SPACE WHEN SONE

CZREJEDO UNIBUS RKB DR _PRT3
CZRBJE.PII
25-JAN-78 12:08

so4e
5043
So4Y
5045

023526

004737

0304Se

023532
023236

004737
104024

026436

023540
023544
023sS0

104401

042662
Q40573
030452

MACY1l

GO8

PAGE
30R(10S2)
12:16_
25-JAN-78
T21
MULTIPLE DRIVE DETECTION

39:

023556
023564
023570
023576
023604

100000

000000

ge3ela
023620

‘001432

005340
005340
000000
005376

023624
023632

001000

000010

025e3e

69:

PC,GETSP

; GET SPACE

JSR
ERROR

PC,SUBCLR
24

;CERR AFTER SCLR

TYPE
TYPE
JGR

' MSG3?
AC,GETSP

023646

104176
000411

023650
023654

104401
010046
104403
001
000
104401

043075

#MDS, RKCS2(RS)

6%
176
108
7%:

023722
023726
023732

004737
104024

MSG6
]

RO -(SP)

)
IN 2 DRIVES

; INSERT SAME UNIT SEL PLUG

EEPRESSCEPQCE BAR WHEN DONE
;ORIVE

8 COUNTER

;DRIVE

#»

;RDD CDT_IF RKQO?

iGET STATUS

;00 DELAY TO CATCH MDS

;SEE_IF THAT DRIVE HAS MDS

iBR_IF YES
;ELSE_TRY ANOTHER DRIVE
SEE IF ALL DRIVES TESTED
R IF _NO
NNOT “IND MDS
CQ

; TRY RGAIN

MULT ODRIVES FOUND ON DRIVE
PEOUT
,,TYPE

TYPE--OCTQL ASCI1I

,,TYPE 1 DIGIT (S)

SUPPRESS LERDING ZEROS
OTH DRIVES UNLORDED

Q4355S

108:

000137
005037

#CCLR,RKCS1(RS)

RO, RKLS2 (RS)
#SELDRV, HCS1
STMPY, HEST
HCS1,RKCS1 (RS)
Tsogbg TEMPI
4]
RO
RO, 88.

000010

SEQ 0097

JSR

023554

97
TEST

005322
026436

11%:

’MSGE3
PC.CCSP
11§
UNLD
33
UNLD

PC,SUBCLR
24

FOR VALID HALT
: INSERT CORRECT UNIT SEL PLUG 3 LOAD HEADS
:DEPRESS CONT-E_OR_SPRCE BAR WHEN DONE
: INPUT CONT-E OR SPACE
{RETURN HERE FOR CONTROL-E (EXIT)
IRETURN HERE FOR SPACE ("0 RGAIN)

;CERR AFTER SCLR

CZR6JEQ UNIBUS RKE DR PRT3
CZRBJE .P11
25-JAN-78 12:08

MACY11l

30R(10S2)

25-JAN-78
END OF PASS ROUTINE

.SBTTL

288
2883

:EINCREMENT THE PASS NUMBER (SPASS)

000
UQ”UUnflUNflNUNnNUh*fl—H*fl—PVWfl—DCHDg
- QWM NN LW~ OWVmO N
LWL~ 000NN LW

m Bt Bt Pn

023762
104401

346031
104401

024041
oolele
024036
000042

SGETH2:

Dot

nininai

e Pt Bt

P4dca

$ENDCT:

SENDRD:

i
iy

0002490

000137
024056

024054
024056
024064
024066

88.8%¢

000137

$O0AGN:
377
o4e4le
0S1s01

ouo
Q42116
0eole3

000001

001230

000002

001216

SRTNAD:
SENULL:
SENDMG:
STS¥Y:

001102

1%:

010612

2%:

CLR
INC
BIC
DEC
.WORD
BGT
MOV
.WORD

SEOPCT

(WHERE XXXXX
IT
TO

STSTNM
STIMES
SPASS

#100000, SPRSS
C)+

SDOAGN
iPC)+,3(PC)+

TYPE
?OV
YPDS

$PASS,
- (SP)

MOV

a#42, RO
$DOAGN

TYPE

BEG

RESET
JSR
NOP
NOP
NOP
p

.WORD
.BYTE
.RSCI1Z

SENDMG

SENULL

PC, (RO)

: ZERO THE TEST NUMBER
: 1 ZERQ_THE_NUMBER OF ITERATIONS
! INCREMENT THE PASS NUMBFR
;DO T'ALLOW A NEG. NL* 3R
;3 YES

; ; RESTORE COUNTER
;s TYPE

:oAVE

“END PASS

$PARSS

#”

FOR TYPEQUT

;;80 S vAE2BeE Phal REQYT wiTH sIGN
;i TYPE A NULL

CHARACTER

{IGET MONITOR ADDRESS
: "BRANCH_IF NQ MONITOR
! ICLEAR THE WORLD
::GO TO MONITOR
; ; SAVE ROOM

PiACT1I
d(PC)+
STSXY
1.-1.0

; s RETURN

. NULL CHARACTER STRING

18> 12> /END PAS %

CMPB
BNE
CMP

BAPTENV, SENV

BR
IMP

1%
STS

9Né

IS A DECIMAL NUMBER)

STSXY

SEOPTT:

ge410e
024104

éC PE

SEOP:

oo1216

e Pafn Pt Bt Bt e Pt et Bt Bt Pt ot et Bt B

SEQ 0098

END OF PASS ROUTINE

;lTYP$ “END PASS #XXXXXTM
s%IF
TH ERES R MONITOR GO
; #IF THERE ISN'T JUMP TO

ged7de

PAGE S8

;-ll!llll!lilillllllll!!!llllll*!llli!lllillllil!l!i*ll!l!lli!!ll

023734

12:16

82, SPASS

*STNH

< RUN ¥NDER APT

:BRANCH {F NO
: TWO

PASSES DONE

tRRANCE $ReTMPEst wumeer

; LOOPING
JEXIT

CZR6JED UNIBUS RK& DR PRT3
CZREJE.PII
25-JAN-78 12:08

MACY1l 30A(1052)
25-JAN-78
SUBROUT INES

108

12:16

PAGE 99

E{gg

.SBTTL

gigg

:SLIROUTINE TO CLERR ALL FLAGS FROM DDUMP THRU DOTIM

5136

§137

138
6139

S140
S141
S142

g143
Slyy

024110

024114
Q024120

024122
024124
024126

01270C

0127C.
005020

00S4S0

CLRFLG:

177787

18:

005201
001375
000207

005737
001024
005237
104401

001360

€153
€184

024146
Q24152

005737
001012

000042

S155
51567

516

6159
5160

S16]

5162
§163

(024154
024162
(024164

001406

024174

104406

Q024172
024176

024200

024206
024206

123727
023727
001005
000403

112737

S170

001360

001230
001140
00000l

000207

024210

177770

€174
§175

024222
024226

042702
012703

177400
00S462

024236

020402

024e«+4
024246

005204
020427

0Oe4eld

173 024220 112002

181
5182

§183

51849
5185
€186

$187

000001
000176

242
ss

BEQ

64S

BNE

658

65%

RTS

cMPB
CMP

001134

6BY4S:
658
18:

GDRVS:

012701

5179
5180

TST
BNE

OGRAM ID

.SBTTL GET anuéron SOF TWARE saxvcu REGISTER

’

104411

012600

5178

FTITLE
18
FTITLE
Gl

'OVB

SENV, 81
SWR, #¥SWREG

: ;ARE WE RUNNING UNDER XXDP/ACT?
:'BRANCH IF YES

:'ARE WE RUNNING UNDER APT?
! 'BRANCH IF YES
,,sorrunnc SWITCH REG SELECTED”
: 'BRANCH IF NO

:'GET SOFT-SWR SETTINGS

81, $AUTOB

: ;SET AUTO-MODE INDICATOR

ROUTINE TO0 INPUT DRIVE NOS. TYPED IN & SET
DRIVS, DRIVO-DRIVZ REGISTERS APPROPRIATELY
024ele

gi;g

R1
18
PC

7TST
BNE
xnc
YPE

GTSWR

5171

172

TITLE:

035652

5166
gigg
5169

INC
BNE
PTS

s0DUMP, RO

s-17. ,R1
(RO)+'

: TYPE PROGRAM ID IF FTITLE=0

024130
024134
024136
024142

€166

MOV
CLR

;

S148
S149
€150
616]

5152

MOV

S145

S146
S1i47

SUBROUTINES

024232

(0242490
02« 2

012704

001371

0Og4eed

001426

(024254
024256
0e4e60

005702
001022
020127

MOV

MOVB

<sp)+ RO

(Ro)l R2

BIC
MOV

#177400,R2
$DRIVO, R3

CMP

RY,R2

000070

INC
CMP

RY
RY, 870

177770

TST
BNE
CMP

R2
4§
R1,%-8B.

000060

MOV

2%:

001415
005723

Q024252

18:

RDLIN

MOV

BEQ
78T

BNE

BEQ

860, R4

:GET srnnrxnc ADDR OF RSCII STRING

:SET UP COUN

.. iGET nscxx CHQR

*MASK HI BYTE
:DRIVE FLAG ADDR
WAS TYPED CHAR O THRU 7?

33
(R3)+

BRRNCH IF YES
:NO, INCREMENT DR FLAG ADDR

:S/B 0-7 OR TERMINATOR

:DEFAULT ALL DRIVES

SEQ 0099

00
0"0"

i
m.—......;—.—......p.—;—.........

024266
0e4eze

005037
000207

g024274

00s213

MACYl1l

00ss10

D0S460

JO8

30A(10S2)
@25-JAN-78
12:16_
PAGE 100
GET VALUE FOR SOFTWARE SWITCH REGISTER

024322

000761

024324
024330

104401
000137

CLR
RTS

SIZFLG
PC

:BYPASS TEST "1 (SIZING)
:FOUND TERMINATOR, EXIT

3%:

INC
INC
MOVB

JR3
DRIVS
(P0)*+,R2

:SET UP FLAG FOR THE DRIVE
: INCREMENT TOTAL # DRIVES TG BE
SGET NEXT ASCII CHAR.

CMP
BEQ
TST
BNE

854, R2
53
R2
4s

‘IS IT A COMMA?
:YES, GO TO NEXT WORD.
iNO, IS IT A TERMINATOR?
:IF 'NOT,
SOMETHING WRONG.

BIC

024334
024336
024340

00Se01
001330
000771

024342
024346

005237
000207

BR
4g:

044350
010016

S§:

6%:

00SsS10

SEQ 0100

177400
0000SH4

TYPE

2177400, R2

EMI1

' MASK

:FOUND YERMINATOR, EXIT
sONLY 0-7 ALLOWED.

JMP

PRGSRT

:START ALL OVER

INC
BNE
BR

R1
18
4§

:S/B NO MORE THAN 8 DIFF
'DRIVES TYPED IN.
' IF NORE, HAVE ERROR.

INC

SIZFLG

:D0 TEST

RTS

CEXIT.

(SIZING)

éROUTINE TO INPUT RKBRS OR DEFRAULT.
024350
0243S2
024354
0243S6
024360

024374

NNNNWOON

GBR:

00l2eH4

177440

001264

1%:

RDOCT

MOV

égp)+,R0

;GET LOW ORDER FROM STARCK

MOV

gg,$BQSE

;BRANCH IF DEFAULT.

MOV

;é??HHO,SBQSE

;DEFAULT VALUE

'ROUTTNE TO INPUT RKVEC OR DEFAULT
’

024376
024400
024402
024404
024406
Oeu4le
024426

GINT:

000210

RDOCT
?g¥

BEQ

001334
024430

as:
001334

18:

MOV

JSR

é%P)+,R0

;GET LOW ORDER FROM STARCK

;BRANCH IF DEFRULT

RO, RKVEC

PC,SETINT

RTS

MOV

8210, RKVEC

;OEFAULT VALUE

024434

——

024430

gROUTINE TO SETUP INTERRUPT VECTOR 3 PRIORITY
00
wo

= O DM@ NN LW

in
vn

JEO UNIBUS RK& DR PRT3
JE P11
25-JAN-78 12:08

SETINT:

MOV

RKVEC, RO

sINTER, (RO)+

: INTER RDDR TO RKVEC

TESTED

CZRBJEO UNIBUS RK& DR PRT3
CZRGJE.P
25-JAN-78 12:08
024440
024444

013710
000207

MACY11

KO8

30A(1052)
@25-JAN-78
12:16_
PAGE 101
GET VALUE FOR SOFTWARE SWITCH REGISTER
MOV

001336

RTS

RKPRI, (RO)
pPC

SEQ 310!

;PRS TO RKVEC+2

THIS ROUTINE SETE CDT IN RKCS1 IF DRIVE UNDER TEST IS AN RKO7.

ENTER WITH COMMAND IN HCSI
Q24446
ge44s4Y
Oe446e
0e4470
024474
024476
024502

053737
013765
013737
004737
000207
(062716
000207

001170
00S340
001424
ge4s42

005340
000000
005376

bocMp:

BIS
MOV
MOV

:ADD CDT IF RKO?
:DO COMMAND

82, (SP)

'SET HERE IF NOT RDY
"ELSE SKIP OVER ERROR

JSR

PC,#RDY
PC

RTS

RTS
ADD

0oooge

STMPY ., HCS1
HCSl RKCS1(RS)
0, tEMP]

:FIND CONTR READY

THIS RC TINE IS SIMILAR TO THE RBOVE BUT 1S USED FOR DATR TRANSFERS
'8 REQU.<ES A LONGER TIMEOUT
024504
g24sle
024520
024526
024532
024534
024540

053737
043765
013737
004737
000207
062716
000207

001170
00S340
001432
024542

00S340
000000
005376

BatcHp: BIS
MOV
MOV
JSR
RTS
ADD
RTS

000002

$TMPY, HCS1
HCS1,RKCS1
(R
750000, TEMP1
PC,FRDY
PC’

:ADD CDT IF RKO7
:DO CMD

:FIND CONTR RDY

82, (SP)
PC

ROUTINE T0 FIND CONTROLLER REARDY

(RDY)

DURING AR DELRARY

PENTER WITH A COUNT IN TEMPI
IRETURN IF RDY NOT PRESENT (ERROR CONDITION)
IRETURN 42 IF _RDY PRESENT (SKIP OVER ERROR
;STATUS IS OBTRINED BEFORE THE RETURN FOR EITHER CRSE
024542

024602
024606

032765

004737
000207

BIT

SRDY, RKCS! (RS)

00Ss37e

DEC

TEMPI

024676
026024

JSR

000200

000000

FROY:

18:

0000g2
024676
Oce0eY4

BNE

FROY

JSR
RTS
ADD

PC.CKCERR
PC
82, (SP)

:CHECK FOR SPECIAL CERR
'NO RDY, EXIT

JSR
RTS

PC. CKCERR
pc’

:CHECK FOR SPECIAL CERR

JSR

PC, HOLD

PC. HOLD

:STORE ALL RKb1l REGS IN HOLDING REGS.

:SKIP OVER ERROR

*ROUTINE TO FIND CONTROLLER RERDY AND STORE DRIVE RE.S ONLY
024610
024616
024620
0e4be4
0246ee6
024634
024642
Oe4e46

032765
001014
005337
001371
016537
016537
004737
000207

000200

000000

005376

000034
000036
0e60eH4

005366
005370

#ROY1:

BIT

BNE
OEC
BNE
MOV

MOV
JSR
RTS

SRDY,RKCS! (RS)

18
TEMPL
FRDY1
RKMR2 (RS), HMR2

RKMR3(RS),HNR3
PC,CKCERR’
pC’

:CHECK FOR spscan CERR CONDITIONS
:NC RDY, EXIT

¢ <R 6JEO ??IBUS RK& DR _"RT3
¢ ZReJE .
2S-JAN-78 12:08
024&S0

8 4654

iz 800

024670
024674

004737
000207

026024

024676
024704
pevzle

mmmmwammmwm
wn
~N

Y662

0000%

000000
000010
000002

537

000032

MARCY1l

802328

LO8

25-JAN-78
12:16
PAGE 102
GET VALUE FOR SOFTWARE SWITCH REGISTER

30R(10S%2)

18:

RDD

SEQ 0102

MOV

Rxhp (RS) HMR2

:SKIP OVER ERROR

g;g

gg CKCERR’

:CHECK FOR SPECIAL CERR CONDITIONS

MOV

RKMR3(RE) ' HMR3

024726
024734
p24742
024750
024756

Ogu733
852008

025006
025014
02s0e2

0000000000000 00
[ Ll e e e e el anl ey Sy ey Sy e
Qooocoooocoooocooo

p247e0

00s34a
0os342

HOLD:

MOV

RKCS2(RS) , HCS2

MOV
MOV
MOV
MOV

RKBR (RS) ) HBA
RKDA(RS)
| HOR
RKDS(RS)
, HDS
RKER(RS) | HER

MOV

RKWC (RS) , HWC

MOV
MOV

RKASOF (RS) , HRSOF
RKDC (RS) , HOC

MOV
MOV

Rxnng(ng),nnn
RKMRJI(RS)
' HMR

MOV

005372
005374

RKCS1 (RS), HCS!

MOV

MOV
RTS

RKMR1 (RS}, HMR1

RKECPS (RS}, HPOS

| HPAT
RKECPT(RS)
PC

ROUTINE TO CHECK FOR CORRECT RTTN
!RETURN IF ATTN NOT PRESENT (ERROR CONDITION)
iRETURN +2 IF ATTN PRESENT (SKIP OVER ERROR)
02s024

?STQTN

010446

U £ W

WG W Q) LI

—0O WM NN L WO WO MmN

£ W

OO0

I
AU
i YN NN
G I
NN NTUWWY
L) () L)
L () W) W
() o
W Wi W W W W W
W
MY POTRTUIU NI NURUNY e 08 2 b s e b b 00— (OO

5307

005357

MOV

BITB

MOV

2P\+ RY

BEQ

ggg,

025052
025034

18:

012604
000207

RH -(SP)

MOV

RTS

n TN(kq) HASOF
+1
o

(SP)

(sp)+,nq

;SAV R4

BRQNCH xr ATTN NOT PRESENT
g

IN R RET noon T0 JUMP OVER ERROR.
:RESTOR R4

ROUTINE TO FIND ATTN WITHIN TIMES SREARTER THAN 1 SEC
"ENTER WITH TIME IN SECONDS IN TEMP2

;RETURN IF NO ATTN (ERROR CONDITION)
‘RETURN +2 IF ATTN FOUND

STRTUS IS OBTAINED BEFORE THE RETURN FOR EITHER CASE
025056

Be2Rel

025072
025100
0es10e

772277

Oleae
0058332
005376

005376
000017

FATT1:

3s:

18:

MOV

RY,-(SP)

s-! TEMPI

MOV

SUNIT RY

BNE
DEC

2%
TEMPL

BITB

:SAV RY

ATIN(RY) RKASOF+1(RS) ;FIND CORRECT ATTN

CZR6JED UNIBUS RKb6 DR PRTJ
25-JAN-78 12:08
CZRBJE Pll

gie8 B52178 gL
llfl
8328
85
116
i1

MARCY11l

0TMs180

MOS8

12:16

PRGE

103

SEQ 0103

NE
£C
8N

18
EMP2
ss

B
RTS

TSRl
pC

RELERY

§=R

EKMRLIRY)

;GET STATUS AFTER ATTN SEEN

ggg

'E (sh)

:GKIP OVER ERROR

000026
026108

5363

02716
000207

@25-JAN-78

GET VALUE FOR SOFTWARE SWITCH REGISTER

00s400

£l §§g*§§ Bies;
e geeo5E
0eS1yM

30R(10S2)

2s:

000002

MOV

KMR1 (RS)

(SP)4 RY

;SELECT WORD
O
0 rus

‘RESTOR RY

ROUTINE TO FIND ARTTN HITHIN 1 SEC

JENTER WITH COUNT IN TEMP
{RETURN IF NQ ATIN (ERROR)
IRETURN +2 IF _ATTN FOUND
STQ US 1S OBTRINED BEFORE THE RETURN FOR EITHER CRSE
00leece
005330

FATT2:
000017

°§.

005376

000e0?

18:

SUNIT.R

:SAV R4

ggga

Q;TN(QH) RKASOF+1(RS) ;FIND CORRECT ATTN

DEC
BNE

TEMP)
2s

JSR
MOV

PC,GSTAT
(SP)+,RY

RTS

RKMR1 (RS)
PC

CLR
JSR

RKMR1 (RS
Pg GSTAT

RTS

MOV
RDD

000002

RY -(sp)

MOV

CLR

000026
026106
000026
026106

MOV

P+ RY
82, (SP)

:SELECT WORD Q

‘GET LATEST STATUS.
:RESTOR R4
:RESTOR R4
:SKIP OVER ERROR

NT IN TEM
5"T EBEE TH
Y_ISA 828R
ES *TERQTION + 12 US TO EXIT

{WHEN COUNT 1S 0. BQSED ON AN 11,05

BLy:

157

TEMPI

DEC

1§

TEMP1

3-8 12
US

MSG 1Y

evPAss DRIVE

005?8?
001403
005337
00077e
00ce207

00S376
005376

:2.5 US
DLY
B8R
3.8 US
PC
RTS
18:
:THIS ROUTINE TYPES BYPRSSED DRIVES. ENTER WITH DRIVES IN RO

025250
025254

104401
010046

037335

BYP:

025256
0esesl

104403
818}

TYPE

MOV

TYPOS
.BYTE

RO, - (SP)
|

‘6.8

YPE gg FOR TYPEOUT

.,co TYPE--OCTAL RSCII

::TYPE

DIGIT(S)

P11

025 61
0ese
2

25-JAN-78

12:08

MRCr1l

NO8

PAGE 104
12:16_
25-JAN-78
GET VALUE FOR SOFTWARRE SWITCH REGISTER

30RA(1052)

.BYTE
RTS

000
00207

SEQ 0104

; s SUPPRESS LERDING ZEROS

0
PC

gTHIS ROUTINE RERDS ALL MSG A 3 B WORDS 8 CHECKS THEM RS REQ’'D.
025264
025¢e7e
025276

017637
062716
004737

000000
000002
0c26l4e

001504

025302

053737

00leece
00leee
00leee
001222

0OSs430
005434
005440
005444

SUNIT E.AIL
$UNIT,E.A2
SUNIT,E.A3

025332

053737

012662

00S430

025340

013746

005376

025344
025352
025356

013737

00S430
030306
005376

Cesse0

¢, SBPAR

005376

E Al,TEMP1

0oos432

PC, SBPAR
TEMPL,E.BO

005376

£.B1,TEMP1

W
~N

TEfiPl E. no

OO0

005430

SBPAR

rsfipx £.R1

005434

E.R2, TEMP1

PC, SBPAR

Tefipx E.R2

005440

E.B0, TEMP1

005436

gos44e
030306
00s376

0Qs446
030306
06376
005376
001176

001172

SESCAPE, STMPS

cosu410

C0s430

025560

001176

H.RO,E.RC
cs

001000

1533%¢2

—D
mo:

00D

SBPAR
fP1,E.BI

005436

o1
w

—

(SP)+

TEMP1

;GET PARITY FOR MSG BO

;GET PARITY FOR MSG Bl

;RESTORE

TEMP!L

:SAVF ESCRPE

gES}
HSG RO

(5P, - (S

iELSE SETUP ESCAPE
:COPY RET ADOR.
:8 RETURN TO MRINLINE ERROR

#SW9, ISWR

;RET

7% ] SESCQPE

198:

;GET PARITY FOR MSG A2

—~«VM
mo-

005446

;GET PARITY FOR MSG Al

;GET PARITY FOR MSG B3

=
°

005376

;GET PARITY FOR MSG RO

;GET PARITY FOR MSG B2

SBPAR
MP1.E.B2

0os442

oM
mo .

.B2, TEMP1

005376

(9]

025556

:SAVE TEMPI

005376

Or— =Qw SDD— —r-

025536

TEMPL,-(SP)

000

025524
025530

:ADD DRIVE TYPE

005432
03030€
005376

025504
0essie
u2ss1e

E.DDT,E.RO

000

025464
0as47e
025476

;SET UNIT

005376

=Dt

02544y
025452
025456

SUNIT,E.RO

025424
Ces432
025436

:BUMP RETURN ADDR TO IST ERROR
iGET ALL RCTUQL DRIVE 8 CONTR STATUS

E RO, TEMP1

005376

;PHASS MSGS TO BE TESTED

PC,GSTAT1

005440
030306
005376

tete

025404
ges4le
025416

CHKFLG

.2,\5#)

00S434
030306
005376

Or——=0MN)

025364
025372
025376

d(SP),

OO0

025324

CEHKMSG: gog

00000

NN
020

lelel

0 _UNIBUS RK& DR PRT3

HERE

FROM MAINLINE ERROR

CZRBJEOD UNIBUS RK& DR PRT3

CZR6JE.P11

025566
025570

25-JAN-78 12:08
001107
062716

25-JAN-78
12:16 PAGE 105
GET VALUE FOR SOFTWARE SWITCH REGISTER

2%:

000002

oos412

005432

025616

001176

001000

153314

025574
025602
025604
25612
5614

000207

025616
025624
025626

032777
001070
062716

ocogoo2

023737

00S414

005434

025654

001176

0
000207

BNE

208

;& BR IF_LOOP ON ERROR

CMP
BEQ

H.BO,E.BO
{3

; TEST_MSG BO
OK

ADD
MOV
MOV
RTS

Yg:

BIT

5%:

001000

023737

005416

005436

025712

001176

001000

153220

153256

8s:

000002

#4S . SESCAPE
(SP},~(SP)
PC
4513, ASUR

ELSE SETUP ESCAPE
:COPY_RET ADDR
13 RETURN TO MAINLINE ERROR
sRETURN HERE _FROM_MAINLINE ERROR

:2 BR IF_LOOP ON ERROR
:BUMP RET ADDR TO NEXT ERROR

CMP
BEQ
MOV

H.Al,E.Al
8%
s?s ssscnPE

s TEST MSG Al
:BR IF OK

5 =t

BIT
BNE
ADD

ssuq,asun
208
#2, (SP)

CMP

H.B1,E.B1

MOV
MOV
RTS

108, SESCAPE
(SP)
| -(SP)

BEG

10%:

BIT

118:

ADD

1i%

s TEST_MSG Bl

:BR IF OK

#5US, aSKR

BNE

208

BIT
BEQ

#T.R2, CHKFLG
13§

%2, (SP)

000001

001504

12%:

026722
000002

001504

13%:

JSR
BIT
BEQ
JSR

PC,RCYLD
8782, CHKFLG

14$
PC,RCYLA

:PUT_INFO CYLDIF, DO NOT CHECK
:TEST MSG B27
:BR_IF NO
:PUT INFO IN CYLADD, DO NOT CHECK

001504

148

gég

fggaa,cuerc

; TEST MSG B3?

JSR

PC,RSEC

:PUT INFO IN SECTOR, DO NOT CHECK

§TMPS,SESCAPE

;RESTORE ESCAPE

¥STACK, SP

;RESET STRCK PIR

025?52

oo4737

026774

025756

032737
001404
004737
004737

000004
027032
027070

JSR

025776
026004

013737
000207

001172

001176

026006
gze012
026020

012706
013737
000177

001100
001172
153064

001176

153:
:

208:

MOV

RTS

MOV

MOV
JMP

PC ) RHEAD
PC

$TMPS,$ESCAPE
JSLPEAR

;s TEST _MSG R2?
:BR_IF NO

:PUT INFO IN HEADA, DO NOT CHECK

;RESTORE ESCRPE

i THIS ROUTINE CHECKS FOR CERTAIN ERROR CONDITIONS ONLY
I

p26024

005737

001502

I1.E.:

IF NED, CTO OR MDS SET MESSAGE A & B RARE INVALID

&KCERR: TST

BYPCERR

:BUMP RET ADDR TO NEXT ERROR

20%
%2, (SP)

MOV
7%:

#2, (SP)

BNE
ADD

RTS

032777
001051
062716
001411

BO9

MACY11 30A(1052)

SEQ 0105

CZRBJEO UNIBUS RK6& DR PRT3
CZRBJE. P11
25-JAN-78 12:08

026030
026032

001025
032737

85842 884285

026044
§§
SE

032737
081402

100000

30R(1052)

CD‘?

£5-JAN-78

12:16_

PAGE

005340

BNE
BIT
BNE

4§
#CERR, HCS1

BIT

#CTO, HCS!

004000

00S340

18:

Yell

00207

BEQ
RTS

026060
026066
026070

J32737
001401
104212

010000

026072
026100

ooi000

026102

032737
001401
104213

026104

000207

oos342

29:

BIT
BEQ

ERROR

0os34e

106

SEQ 0106

GET VALUE FOR SOFTWARE SWITCH REGISTER

3%:

BIT

#NED, HCS2
33

212

:BR

IF CERR

;BR_IE_NOT CTQ
!CTO ERROR, MSG A & B INVALID

:BR

IF NOT NED

‘NED ERROR, MSG A & B INVALID

#MDS
, HCS2

BEQ

4§

RTS

ERROR

4ys:

s
211l

213

sMDS ERROR,

MSG A & B INVALID

THIS ROUTINE DOES THE SELECT DRIVE COMMAND TO GET STATUS

:IT THEN WAITS FOR CONTROLLER RERDY

; IF ROY NOT RECEIVED BY THE TIMEOUT,

AN ERROR IS FLRGGED

’

13746
13765
012737
004737
104117
012637
000207

05376
0leae
000001
024446

000010
005340

TEMP
SUNI

GSTART:

(SP

$SELDRV, HCS1
PC,.DOCMD

(éP)*,TEMPl

005376

; SAVE TEM

}qRKCSE(RS) ; CURREN

DRIVE L

;00 SELDRV_(STRTUS)

CMD 8 GET C ONTR RDY

:ROY_NOT _SET BY END OF SELECT D RIVE
IRESTOR TEMPI.

CMD

THIS ROUTINE GETS STATUS OF ALL DRIVE REGISTERS (MSG RO-R3., BO-B3)
:8& ALL CONTROLLER REGISTERS.
013746

005376
024676
100000
00le2ee

32£3%2

&sTATL:
000000
000010

000026

MoV
JSR

TENPI

~(SP)

HOCD

CC¢LR RKCS1(RS)

SUNIT, RKCSEERS)
%3, KfiR*(RS

PC’GSTQ 2
.—

Ssa4
5525

MACr1l

8585“8

882358 86245

HMR
HMR

026216

100000
00leee
000002
026372

000000
000010
00002k

#CCLR,RKCS1(RS)

005366
00S370

00Ss4e0
00s4ee

0Y026232
026240
026244
026246
026254

1H:
83

PC’GSTRTE

11
HMR2,
H .R2
HMR3,H .B2

; SRVE TEMP]

GET ALL CONTR REG

SELEET NOR% g
; RDY NOT SET BY END OF SELECT DRV CMD

gTORE g
TOR

+SELECT WORD 2

R?SREOT
SET BY END OF SELECT DRV CMD
ST ORE HSG BE

CZR6JED UNIBUS RK6 DR PRT3

CZReJE.P11

25-JAN-78 12:08

MACY11 30A(10S2)

@2S-JAN-78

DAY

12:16

#CCLR,RKCS1(RS)

MOV

?sga 85230% 104117

?OX

EEROR

;éEgfiz%éRS)

MoV
MOV

HMRE,H.R!l
HMR3,H.B1

026276

013;3;

8ggggé

000026

5585 026312
gggz

013737
013737

005366
005370

00S414
00S416

026326

012765

5589

ggg?

S92
ggga
5595

026334

026350
026356
026364

013;3?

ggég;g

100000

000000

013737
013737

005366
00S370

005410
005412

?84117

S5896

026370

000207

012637

005376

5599

026372

012737

000001

S6C4

02b42e6

000207

2289

026434

026430

062716
000207

MOV

000010

005340

000002

117

MOV
MOV

HMR2,H.R0
HMR3,H. B0

;RDY NOT SET BY END OF SELECT DRV CMD
iSTORE MSG Al
:STORE MSG Bl

11?7

;RDY NOT SET BY END OF SEL DRV CMD

(SP)+,TEMPL

;RESTORE TEMPI

RTS

MO.

.SELDRV HCSI

JSR
RTS

PC,
¢RDY1
pc’

RTS

ADD

; SELECT WORD 1

#CCLR,RKCS1(RS)

ggNég*2¥gSE(R5)

géROR

GSTAT2:

IREGE

MO;

MOV

Sl
ol
S603 O0Oeb422 R
004737 024610
S60S

SEQ 0107

GET VALUE FOR SOFTWARE SWITCH REGISTER

D RSN BIGHE MO BR®
5282

PAGE 107

02,(SP)

:STORE MSG RO
STORE MSG 80

,FIND
CONTR RDY 8 STORE DRIVE REGS ONLY
;RETHERE IF NOT RDY
;RET
HERE IF OK

cr 8
5609

THIS ROUTINE DOES
A SUBSYSTEM CLEAR 3 WARITS FOR _CONTROLLER RERDY
PIF ROY IS NOT RECEIVED BY THE END OF THE TIMEOUT, AN ERROR IS FLAGGED.

Sb1l
gg{s

{RETURN IF CERR SET
IRETURN +2 IF CERR CLERR

S610

sgis

026436

022:49

012765

813;3;

000040

83&;53

000010

005376

QUBCLR. MOV

gg{g
gngg 808062
1§q;60 886526g2 (Gooolo
5619 §026466
Se20
gg
S

Se24

5625
5629

0Oee472
EH?B

004737
88?787

026106
100000

026510

062716

000002

qu
6506

026514

4 ;
00020

000207

563N

18:

JSR
BéT

PC GSTQT
OSQRR HCS1

Q
RTS

RTS

RDD

82, (SP)

GET STAT
CHECK FOR CONT ERROR
; SKIP OVER ERROR

{READ THE SECTOR COUNT IN RKMR3, RIGHT JUSTIFY IT & STORE IT IN ’SECTOR®

S63:

0OebSe4

004737

012765

000003

000026

(026516

S633

026536

042737

177017

001422

€535

026SS0

006237

026106

Se32 026530 013737 005370 001422
S634

;10¢;QHP1

égcon
gs
T RKCSE(RS) RégnNflg
SETVBY.END
OF SCLR
CLR
3
g
SELEE 8
6S

005340

§§§g

#SCLR,RKCS2(RS) ;SUBSYS CLERR

HO;

026544

006237

001422
001422

RDSEC:

MOV
JSR

83, RKMRi (RS)

MOV

PC,GSTAT

ASR

SECTO

8IC

FSR

HMQ3 SECTOR

;WORD 3

lfC<fi SECT», SECTOR

SECTOR

RIGHT JUSTIFY

{SECTOR

Sel4

:THE ROUTINE THEN GETS CURRENT STARTUS 8 CHECKS FOR CONTROLLER ERROR (CERR)

“$¢

CZR&JEO UNIBUS RKe& DR_PRT3
25-JAN-78 12:08
CZREJE.P 11

026554
026560
026564

006237

MACY1l1

EO9

30A(1052)
25-JAN-78
12:16
PAGE 108
GET VALUE FOR SOFTWARE SWITCH REGISTER
ASR
ASR
RTS

001422
0014e2

SECTOR
SECTOR
PC

:READ THE CYL DIFF/OFFSET
026566

0267 74

026.00

026606

026650

000026

01276S
004737
013737

RDCYLD: MOV
JSR

MOV

001376

BIC

0C1376

043737
006237
006237
006237
006237
023737
001002
005037
000207

18:

: INFO

IN RKMR2,

82, RKMR1 (RS)

tha CYLDIF

MASK1,CYLDIF

CYLDIF
CYLDIF
CYLDIF

;RIGHT JUSTIFY
‘CYL DIFF-OFFSET
P INFO

CHP

CYLDIF, MASK

sCHK TO SEE

BNE
CLR
RTS

CYLDIF

1$
CYLDIF

:BR _IF NOT
:CLR IF YES

'RERD THE CYL ADDR IN RKMR3,

026720

012765

000207

000002
026106
00s370
012660

000026

001400
001400

RDCYLA: MOV
JSR
MOV
BIC
ASR

ASR
ASR

ASR
RTS

001400

CYLADD
PC

IF RET

IN COMPL.

RIGHT JUSTIFY IT & STORE

82, RKMR1 (RS)
PC.GSTAT
HMR3, CYLADD
MAask] CYLADD
cYLARDO

CYLA]DD
CYLARJD

'CYLDIF’

:WORD 2

PC.GSTAT

’

026652
026660

RIGHT JUSTIFY IT & STORE

ASR
ASR
RSR
ASR

012656

SEQ 0108

FORM

'CYLARDD’

:WORD 2

sRIGHT JUSTIFY

:CYL ADDR
: INFO

"RERD THE CYL DIFF/OFFSET IN H.R2, RIGHT JUSTIFY IT & STORE IT IN 'CYLDIF’
0ek722
026730
026736

013737

001376

0ee?772

000207

RCYLD:

005420
012660

001376

MOV

BIC

ASR

choxt

CMP
BNE
CLR

CYLDIF, MASK
is
CYLDIF

ASR
ASR
ASR

012656

18:

A2, CYLDIF
;CLEAR UNWANTED INFO
nnsxl CYLDIF
sRIGHT JUSTIFY

RTS

CYLDIF
CYLDIF
CYLDIF

'READ THE CYL ARDDR IN M.B2,
026774

013737
043737
006237
006237
006237
006237
000207

RCYLA:

MOV

BIC

ASR
ASR
ASR
ASR
RTS

:CHK TO SEE IF RET
'BR _IF
NO
:ELSE CLERR

IN COMPL.

FORM

RIGHT JUSTIFY IT & STORE IT IN °CY_ADD"

B2, CYLADD

nnsxl CYLADD ;CLERR UNWANTED INFO

CYLRDD

CYLADD
CYLRDD
CYLARDD
PC

sRIGHT JUSTIFY

gREQD THE SECTOR COUNT IN H.B3, RIGHT JUSTIFY IT & STORE IT IN ’SECTOR’

CZR6JEO UNIBUS RK& DR_PRT3
CZREJE .P11
25-JAN-78 12:08

027032
027040

027066

013737

000207

MACY11l

RSEC

00S426
177017

FO9

12:16
PAGE 109
25-JAN-78
GET VALUE FOR SOFTWARE SWITCH REGISTER

30A(10S2)

MOV
BIC

ASR
ASR
ASR
ASR
RTS

001422

SEQ 3109

H.B3,S ECTOR
8tCch .SECT>,SECTOR_ ;CLEAR UNWANTED
‘RIGHT JUSTIFY
SECTOR

INFO

SECTOR
SECTOR
SECTOR
¢

gREQD THE HEAD ADDR IN H.B3, RIGHT IT 8 STORE ITM IN ’'HERDR’

i
NN NNNNNINNNIN
p—.—.p—..—..—-.—...'_......o
DD NN LWN—0OWw

027070
027076
027104
027110
027114

013737
Q4e73?
006237
000337
000207

005426
170777
001444
001444

001444
00144y

RHEAD:

g?g
ASR
SWAB
RTS

H.B3, HEADA
84C<M.HEAD> ,HERDA :CLEAR UNWANTED INFO
HEADR
sRIGHT JUSTIFY IT

HERDA
¢

:FIND SECTOR 17

;RETURN IF NOT FOUND
;RETURN +4 IF FOUND

#SEC17: MOV

027116
027124
027130
027136

013737
004737
023727
001014

001430
026516
001422

000021

027140

026516
001422

Ouudel

027166

004737
023727
DO141e
004737
023727
001404

geesle
001422

ooooel

027170
027174
027176

00S337
001353
000207

005376

2s:

027200
027204

062716
000207

000004

33:

005376

18:

15000,

TEMP1

PC, RDSEC
ggtroa,o17.

; SETUP _TIMEOUT
; RERD SECTOR
; TEST FOR_SECTOR
;BR IF NOT 17

PC,RDSEC

SELTOR, 817.

3
PC, RDSEC

;BR_IF READ SAME TWICE
;ELSE TRY 1 MORE TIME

;BR

TEMP1
13
PC

: TRY

4, (SP)

:SKIP OVER ERROR

SELTOR, #17.

AGAIN

!FIND DESIRED CYL DIFF

'RETURN IF NOT FOUND
'RETURN+6 IF FOUND
027206
027226

027230

027256

013737
004737
023737
001014

001430
026566
001376

00s400

004737
023737
gol1412
004737
023737
001404

026566
001376

00s400

026566
001376

005376

00os4COo

FCYL:
18:

15000, TEMP!

PC,ROLYLD
S;Loxr,rsnpa

; SETUP TIMEOUT
; TEST

iBR

FOR_CYL

DIFF

IF NOT FOUND

PC,RDCYLD

SICDIF,TEMPE
PC,RDCYLD

g;CDIF,TEMPE

;BR_IF READ SAME TWICE

;ELSE TRY 1| MORE TIME

CZR6JEQ UNIBUS RKb DR PRT3
CZRBJE. P11
25-JAN-78 12:08

027260
027264
027266

005337
001353
000207

005376

027270
027274

062716
000207

000006

MACY1l

30A(10S2)

'AN-78

GO9

12:16

PAGE

110

GET VALUE FOR SOFTWARE SWITCH REGISTER

2s:

38:

DEC

TEMPL

RTS

BNE

RDD

RTS

; TRY AGARIN

%€, (SP)

; SKIP OVER ERROR

ROUTINE TO FIND HERDS HOME IN RKHRE WORD 1 BEFORE SPECIFIED DELAY
PENTER WITH TIME IN SECONDS IN TEMP2
;RETURN IF NOT FOUND
!RETURN+2 IF FOUND - SKIP OVER ERROR
122727
000001
026106
000040

027326
027332

127327
012765
004737
032737
001007
005337
001367

027334
027340
827342
027344
0273S0

005337
001356
000207
062716
000207

005400

8 7276
7304

0e7312

005376
000026
005366

FHDHM:

18:

2%:

MP1

c1fiKMRl(RS)

JSR
BIT

PC.GSTAT
80. HDHM, HMR2

DEC
BNE

RTS

TEMP2
FHOHM
PC

RTS

BNE
DEC
BNE

005376

000002

MOV

ADD

sALL 1°S

*WORD 1

2s
TEMP1
1s

82, (SP)

:SKIP OVER ERROR

ROUTINE TO FIND LOAD HEADS IN RKMR2 WORD 1 BEFORE SMS

iRETURN IF NOT FOUND
'RETURN+2 IF FOUND: SKIP OVER ERROR
027352
027360
027366

012737
012765
004737
032737

000372
000001
026106
010000

005376
000026
005366

FLOMD:

18:

005376

027416

2s:

00000e

MOV
MOV

JSR
BIT

#250., TEMP!
$1,RKAR]I (RS)

PC.GSTAT
80 LORD, HMR2

BNE
DEC
BNE
RTS

RTS

ADD

sWORD 1

2s
TEMPI
13

82, (SP)

;SKIP OVER ERROR

(FILL HERDER TABLE WITH 66 WORDS OF VALID HERDERS
EN ER WITH CYL # IN 'CALADD’
(ENTER WITH HEAD % IN 'HEAD’
{ENTER WITH FORMAT IN ‘FORMAT’
027420
Q27422

gazye
7430

027432
027440
027444
027450

FHOTRB: MOV
MOV

MOV

001506

001442
001446
001446
001446

001446

CLR
MOV
ASL
ASL
ASL

RO, -(SP)
Rl -(SP)

sHOTRB, RO

HERD, HD1
HD1
HD1
HD1

:SAV RO
‘SAV Rl

'HEADER WORD TABLE ADDR

'SECTOR COUNTER

SEQ U110

CZRBJED UNIBUS RKE DR PRT3
CZRBJE. P11
25-JAN-78 1e:08

G235t

006337
0063 7

7 881428

027476

027502

027520

013720
71

001452

004737

goi4oe
005376
0053476
00s400

887268 R2a73}

000026

001344

19:

MOV

HD1
HO1
FORMART,FMT1
FMT1
FMT1

CALADD,

(RO)+

Ry 8R4,

nrl (RO)

go14y
145
027600

043737
Q42037
053737
013720

027570

ASL

001402

geres 813 884485

027536
027544
027550
027556

HO9

25-TAN-78
12:16
PAGE 111
GET VALUE FOR SOFTWARE SWITCH REGISTER

30A(10S2)

001452

gen 318
7514

001446
001446

MRCY1l

PC,SECFLG

SEQ 0111

;SETUP HERD

8 FOR WORD 2 OF MEARDER

;SETUP FORMAT FOR WORD 2 OF HERDER
; HERDER WORD

;HEQDER WORD

1-CYL

RDOR

-SESTOR NO
2

-FORMAT

:GET SECTOR FLAGS

cnbno?ergnpx

005376
00S400

annbo TEMP2

00os400

TEMP1, TEMP2

(RO)+, %Enpl

TEHPE (RO)+

; HERDER WORD 3-HEADER CHECK

2 SECTORS DONE? (66 WORDS)
ECTOR

027572
027574
027576

;RESTOR R\

{RESTOR RO
THIS ROUTINE GETS INFORMATION FROM THE BAD SECTOR TABLE FILLED BY A PREVIOUS
:TEST & SETS BITS 14 8 15 APPROPRIATLY.

027600

857808

001450

887844

Y6888

02;610

&ECFLG: MOV
1ST

BNE

MOV

002332

027624

BE7e3

012702
88473?
2710

027640
027642

012602
000207

027644
027646

012602
000207

818

003332

80838

318

- (SP)

; SAVE R2

1
$BSE22H+8. ,R2

;BR IF 20 SECTOR FORMAT

: REFURRTRERE
1PE L6507 B:E Y08

#BSE225+8. ,R2

;ELSE RETURN HERE

ngfikq ?Ro)

RFURY THRRE PE {550 ER:E 88

RTS

(SP)+,Re

;ELSE RETURN HERE

MOV
RTS

(SP)+,R2
PC

;RESTORE R2

MOV

1%:

R2,

ghnnr

E THIS ROUTINE DOES THE RCTUAL SCANNING OF THE BRD SECTOR TR BLES.

JENTER WITH THE ADDRESS OF TABLE (BSE22H, BSE22S, ETC.)
{RETURN IF NO COMPARE
:RETURN+4 IF COMPARE
027650

010346

027652

0z21ee?

177777

FLGTST: MOV

R3,-(SP)

:SAVE R3

1%:

(R2),n-1

;SEE

CMP

IF ALL

IN TEM Pl

CZRBJED unxeus RK& DR PRT3
CZREJE.PI
25-JAN-78 12:08

5860
861

027656
027660

001002
012603

€864

027664

022237

001402

6866

027672

062702

000002

013703

001442

gggg

€865

gggg

6869

027662

(027670
027676

027700

001403
000765

027704

000303

€872
5873

027710

022203

gg;g

027714

027706

027712

001401

5877

027716

012603

§879

027724

000207

027720

2%:

3%:

€885

§888
gggg
65891

027726

(27730
027732

027°36
027754

062737
004737
012700

027760

(10037

S496

027772

300

:GO TO NEXT CYL WORD IN TABLE

MOV

HERD, R3

:GET HERD % FROM FHDTAB ROUTINE

BIS

R1,R3

:ADD SECTOR
# FROM FHDTAB ROUTINE

SWAB

4§

000004

MOV

ADD
RTS

027776

030002

&0RT:

026516
000001
030034

0€2700
012021

(R2)+,R3

:SEE IF SECTOR/HERD COMPARE
:8 INCR PTR TO NEXT CYL WORD
:BR_IF COMPARE

PELSE TRY NEXT CYL

(SP)+,R3

a4, (SP)

Pc’

001712

ADD

#RHTAB, RO

001712 001427

030012

012700

J01712

030032

RDD

002116

S904

030030

#132.,R0

MOV

002116

030026

81 SECTOR
PC.MULTE

001422

023027
00.374

6909

RL,-(SP)
PC.RDSEC

sscroh RO

030004
030010

030016
030820
030024

ADD
JSR

RO, -(SP)

SUB

§901
gggg

6905
6906
gggg

MOV
JSR

MOV

001422

012701

001422

MOV

000204

163700

gggg 027764 052737
5899

#2,R2

BEQ

010046

010146
004737

027750

027754

gggg

:SEE IF=CYL # & ADR PTR TO TRK/SECTOR WORD

3¢

;RESTORE R3

: INCREMENT RET ADDR

THIS ROUTINE SORTS THE RHTAB TABLE FROM WHATEVER SECTOR IT BEGINS
‘WITH AND RE-WRITES THE INFO IN SRTTARB TRBLE TO BEGIN WITH SECTOR O

£392

893

(R2)+,CALADD

CMP

BEQ

CMP

<882
gggg

5886
6887

:BR IF NO
:RESTORE R3

RDD

000756

062716

23
(SP)+,R3

RTS

050103

874

6878

BNE
MOV

000207

587G

871

109

MACY1l 30A(1052)
25-JAN-78
12:16 PAGE 112
GET VALUE FOR SOFTWARE SWITCH REGISTER

MOV

18:

MOV

ctor

onhrna SECTOR

;SAVE RO

:SAVE RI

:MULT SECTOR BY b
:RO-SECTOR TO RO = INDEX

;SAVE INDEX

; INDEX TQ BOT HALF OF RHIAB

#SRTTAB, R1

*INDEX TO TOP HALF OF SRTTRB

CMP
BNE

RO, 8RATAB+132.
18’

(RO)+, (R1)+

;PUT BOTTOM OF RHTAB TO TOP OF SRTTAB

MOV

MOV
CMP
BNE

#RHTARB, RO

(RO)+, tR1)+
RO, SELTOR
2’

:PUT TOP OF RHTAB TO BOT OF SRTTAB

012601

MOV

(SP)+,R1

:RESTOR Rl

000207

RTS

012021
020037
001374

012600

001422

28:

MOV

(SP)+.RO

:RESTOR RO

;HULT BY &. ENTER WITH DESIRED & IN ’'SECTOR’

SEQ 0112

CZR6JED UNIBUS RK& DR PRT3
CZRBJE.PI]
25-JAN-78 12:08

S916
S917

030034
030040

006337
013746

S320

030054

000207

S918
5919

256t

030044
030050

006337
062637

MACY1l

00i422
001422

Ja9

30R(10S2)
@25-JAN-78
12:16_PAGE 113
GET VALUE FOR SOFTWARE SWITCH REGISTER

MULTE:

001422
001422

RASL
Mov

SECTOR
SECTOR, -(SP)

RTS

ASL
RADD

SECTOR’
(SP)+,SECTOR

SEQ 0113

;@ X SECTOR

;4 X SECTOR
(H X S)+4(2 X S) =b X SECTOR

5323
S92y
gggg

THIS ROUTINE IS ENTERED ONLY IF THERE IS A BSE ERROR AFTER A WRITE DATA
:CMD,
IT VERIFIES THAT THE BAD SECTOR IS LISTED IN THE BSE INFORMATION
CYLINOER RT CYL 410, TRACK 2.

327
gggg

RETURN IF SECTOR NOT LISTED IN BSE TRE_E, ERROR CONDITION.
!RETURN+2 IF LISTED, SKIP OVER ERROR

ggg?
S932

030056
030060

010446
032737

S933
53934
gggg

030066

$937

030070

012704

ggag

030100

000407

5938
S941

S942
ggza
Sq4S

Eg:g
53948
5949

5950

5351

8383

001014

fRUERR: MOV
010000

S960
S961
5962
5963
gggg

8IT

BNE

030074
030102

030106
30112
030114

004737
012704

004737
000402
000207

0120

012604

030126

000207

062716

MOV

030130

JSR

003332

MoV

030130

012604

030116

030122

002332

JSR
B8R
18:

000002

38:

MOV

RTS

MOV

ADD
RTS

; CHECK FORMAT

:BR_FOR 20 SECTOR FORMAT
INOTE, 20 _SECTOR FORMAT NOT

$BSE22H+8.
,RY

PC, TERRL

;SEE IF ON HARDWARE DETECTED TARBLE

#8SE225+8. ,RY

;ELSE _RETURN HERE

(SP)+,RY

;RESTORE RY

PC, TERR]
33
PC

(SP)+,RY

82, (SP)

:RETURN HERE IF YES

18 SEE IF ON SOF TWARE DETECTED TABLE
;RETURN HERE IF YES
!RETURN WITHOUT JUMPING OVER ERROR
; RESTORE RY

:SKIP OVER ERROR ON RETURN

THIS ROUTINE DOES THE ACTUAL COMPARING OF CYLINDER, HERD 8 TRACK RGRINST
'THE BSE TABLE FOR THE ABOVE SUBROUTINE.
IRETURN IF FOUND ON TABLE
iRETURN+2 IF NOT FOUND
030130

0214¢?

177777

*ERRI

030134
030136
030142
030144
030146

001405
J22437
001405
00S724
000770

96
gggg

030150
030154

062716
000207

000002

18:

$369

0301S6

022437

005350

2s:

S971

030164

000761

S970

SCFMT,HCS!

; SAVE RM

:DONE’ IN THIS PROGRAM

5954
£35S
5956
gggg
S959

00S340

R4, -(SP)

030162

001401

005360

cMP

(R4), 8-1

BEQ
CMP
BEG
TST
BR

18
(R4)+ HDC
cs
(RY)+
TERRI1

ADD
RTS

82, (SP)
PC

CMP

BEQ
BR

(R4)+,HDA

TERR1L

;SEE_IF ALL 1°S

iBR_IF _YES NOT ON TRBLE
iSEE IF CYL
M
iBR_IF YES
:ELSE ADV TO NEXT CYL WORD
8 TRY AGRIN.

;SEE_IF

SECTOR 8

iBR IF YES

:0R TRY AGRIN

TRACk

MATCH

CZRBJEO UNIBUS RK& DR PRT3
CZREBJE.P
25-JAN-78 12:08
C3C166

KOS9

SEG 0114

MACY1l 30A(1052)
25-JAN-78
12:16_
PRAGE 114
GET VALUE FOR SOFTWARE SWITCH REGISTER
38:

000207

RTS

'ROUTINE TO TURN L OR P CLOCK INTERRUPT ON
030170
030174
030200
03020¢
030210
030212
030220
030226

005037

LKON:

gol4le
005504
000100

012777
000207

18:

1772777

000135

CLR
TS7

TIMUP

PCLKF

BNE
ggg

18
géoo ALKS

MOV

0136 JPKS

MOV
RTS

JPKSB

BRQNCH IF P-CLOCK PRESENT
L-CLOCK, ENRBLE INT
:P-CLOCK,
INT,ALL CT1°SUP, REP INT
'ENRBLE

:LINE FREG & RUN

'KW11-L 8 KW1l-P INTERRUPT HANDLER
00S03?

001404
001410
030262

005237
000002

¢Lock:

ool4le
001406

oo1412

CLR

COUNT
18

DEC

sgd

MOV

001406

BNE
18:

TIMUP

DEC
BNE

INC

RTI

HZ ,COUNT

TIMUP

:SORRY,

TIME IS UP

'ROUTINE TO TURN L OR P CLOCK INTERRUPT OFF
030264
030270
030272
030276
030300

00Ss737
001003
005077
000207
00s07?

00SS0o4

LLKOF:

151050
151034

18:

TST

PCLKF

BNE
g%g

1S
géxs

BRRCH IF P-CLOCK PRESENT
L~CLOCK, CLERR INTERRUPT

CLR

JPKS

;P-CLOCK. CLEAR INTERRUPT

CiRBJ 0 UNIBUS RK
P11

R&J

—

)

030304

MACY11

B110RC0e FoR’80F

30Q

RTS

000207

DM@ NV LW [

o
o

6009
6010

DR PRTg
AN-78 12:08

LOS

SEQ 011S

Tllamd *autrch REGHTer
pC

'
H

*ERROY¥IN$H2EEEB ;E
PAR TY EORETHE EXPECTED MESSAGES

'
v

TEMP1

IS ROTATED LEFT

17 TIHES

EACH TIME THE CARRY BIT IS SET

1 IS INCREHENTED AT THE END OF 17 ROTATES ( TEMPl1 BRCK TO 9RI¢),

;R
iR 1

BIT
O IS EXAMINED.

THE PARITY BIT

IF IT IS SET,

IS
NOT SET

IN B

INDICARTING AN ODD 8 OF 1°S,

:IF IT IS NOT SET, INDICATING AN EVEN 8 OF 1'S , THE PARITY BIT IS
;SET

IN TEMPI

£8PAR:

030306
000021

CLR
cLe

030320
J05376

030322
030326
030330
03033¢
030334

00S300
001372

03033¢
030342

032701
001003

18:

2%:
000001

MOV
MOV
MOV
ROL

BCC
INC

DEC

BNE

BIT

BNE

RO, -(SP)
Rl -(SP)
s1?. RO

TEMP1

2s
R1

RO
18

sBITO,R1

: SAVE RO
:SAVE RI
iSHIFT COUNTER

'COUNT
8 OF 1'S IN TEMPI
:CLERR CRRRY
;BR IF CARRY CLEAR
"COUNT 8 OF 1°S

(SHIFT counrzn

:BR IF ODD &

IN RO

CZRBJED UNIBUS RKb DR PRT3
CZRBJE Pl1
25-JRAN-78 12:08

603S

030344

052737

6038

030356

000207

6036
6037

030352
030354

012601
0i2600

100000

MACY1l

30R(10S2)

25-JAN-78

MO9

12:16

PRGE

SEQ 0116

116

GET VALUE FOR SOFTWARE SWITCH REGISTER

#M.PAR, TEMP]

BIS

005376

MOV
S?g

(sp)+ A1
gp)+'RC

:SET PARITY BIT

"RESTORE Rl
'RESTORE RO

ROUTINE TO ENRBLE LOOPING ON INTERMITTANT ERRORS

{WHEN SLPERR SET BY OTHER THAN SCOPE ROUTINE
:
604S
6046
6047
6048

030360
030366

60S0

60S5¢
60S3

001000

030402

032777
001406
105737
001403
013716
000002

030404
030410

011637
000002

001110

030370
830 79
03?6

150582

IE:

MY LOOP MACRO

§coris: BIT

#SW9, ISWR

BEQ

001103

18:

;LOOP OH ERROR?

7578
BEQ

SERFLG
s

:BR IF NO
*HAD ERROR’
‘BR IF NO

99¥

(SP), SLPERR

:SET LOOP ADDR FO? TIGHT SCOPE LOOP

MOV
RTI

001110

$LPERR, (SP)

ROUTINE TO INPUT R '"SPACE’ OR °'CONTROL-E’ FRLM TTY
RETURN IF CONTROL-E
RETURN +4

6062
6063
6064
606S
6066

03041e
030416
030420
030422
030426

005777
104410
012600
020027
001406

150530

CCSP:

000040

030442

000763

6073
6074

030444
030450

062716
000207

000004

TST

ROCHR
MOV
CMP
BEQ
MP

(68
g
genuge
coouos
6070
030436
104401
040160

6071

IF SPARCE

18:
23

J$TKB

(SP)+,R0
RO #SPBAR

59MSG31

§o
TYPE

RO,

tcsp

AD
RT

84, (SP)
PC

:CLER.

DONE FLRG

:READ CHAR "ROM TTY
:GET CHAR O F STACK
:SEE IF SPACE
:BR IF YES.

FERE 1A ]F vlCONTROL-E

:SEE
;

:TRY RGRIN

ROUTINE TO INPUT A *SPRCE® FROM TTY
79

030452

6080

030456

6083
6084

030466
030470

gfBs B3B3

030476

005777

104410

150470

ETSP:

B3EBER cooouo
001403
104401

000207

TST

JSTKB

CMP

cgp)+ RO
#SPBAR

RDCHR
MOV

BEQ

TYPE

040160

18:

RTS

13
MSG31
SETSP

:CLEAR DONE FLAG

‘READ CHAR OFF T1Y
EE Han orr STACK
E

EXIT IF YES
TRY AGARIN

:THIS ROUTINE IS ENTERED BY TYPING_R CONTROL-C.

;IT IS USED TO ALLOW THE OPERARTOR TO HALT THE CPU WHILE INSURING

cstJeo unxeus RK&6 DR PRT3
CZRBJE.PIL1
25-JAN-TB 12:08

MACY!1

2835

;;ngtcgfinos ARE LORDED 8 FORMATTING

6093
gggg

030500

022626

6096

030502

004737

026436

005737

005322

gggg
6099

NO9

30R(1052)
25-JAN-78
12:16
PRGE 117
GET VALUE FOR SOFTWARE SWITCH REGISTER

030506
(30510

104024

6100

030514

001437

6104

030530

000402

104401

044105

:
&ToP:

)
CMP

(SP)+, (SP)+

STOP1:

JSR

PC, SUBCLR

TST

UNLD

e
TYPE

18MSG74

BEQ

£10%
030c28 Dorupg |ooowe
6103 030524 (0401 044037
g{gg
6107

6108

8%8232

030S42

030536

004737

026436

Efié

gggggg

010000

005366

g}}g

030554

104401

040032

6115

030560

012737

6116
%iig
6119

030566
030572

004737
104143

000011

005340

001426

005400

024446

6120
2{55

030602
030606

030574

013737

004737
1041494

025056

6123
gisg

030610
030614

0JS03?

005322

6126
6127
6128
6129

030634
030642
030650
030654

005737
001460
005237
012765

005324

6130
6131
6132
g}ga

030614
030620
030622
030626

013765
012737
004737
104124

001222
000013
024446

000010
005340

6135
6136
6137
6138
6139

030656
030664
030670
030676
030700

000001
026106
020000

000026

030702
030710
030714

012765
004737
032737
001001
104214

013737
004737
104055

001424
025056

00S400

€144
€145

030716
030724

012765
013765

100000
001222

000000
000010

6140
6141
gi:g
6146

030732

012737

205326
100000

000005

é%

21?3

104024

ERROR

TYPE

JSR

3%:
000000

005366

00S340

65S:

33
[

,MSG75
PC, SUBCLR

IS VALID BEFORE ARCTUALLY HALTING

;RESTORE STACK FROM INTERRUPT
;CERR AFTER
:SEE

IF HEADS UNLORDED

'BR_IF NO

{:PGM
SEE | ABORT
IF HANUAL
OR AUTO MODE
PENDING
;HALT PENDING

ERROR

;CERR AFTER SCLR

gfig

ggispxn,unna

;sssxgryggrnoLs ALREADY ON

TYPE

,M5G29

'PLERSE WAIT, HEADS BEING LOADED

MOV

JSR
ERRPR
MOV

BYS:

SEQ 0117

#SRTSPL , HCS1

PC, DOCMD
143

1100, TEMP2

;D0 START SPINDLE CMD 8 GET CONTR RDY
:CONTR RDY NOT SET RFTER CMD

JSR
ERROR

PC,FATT]
144

:FIND ATTN
INO ATTN AFTER CMD

CLR

UNLD

TST
BEQ
INC
MOV

:SEE_IF HEADERS VALID
iBR IF YES

MOV
MOV
JSR
ERROR

BADHOR
4g
HPEND
8CCLR,RKCS1(RS)

SUNIT,RKCS2(RS)
#RECAL , HCS1
PC, DOCMD
:D0 RECAL CMD & GET CONTR RDY
124
:RDY NOT SET RFTER RECAL CMD

MOV
JSR
BIT
BNE
ERROR

81,RKMR](RS)
PC,GSTAT
#D RTZ, HMR2
65%
214

:SELECT WORD

:RTZ NOT SET DURING RECAL CMD

MOV
JSR
ERROR

710, TEMP2
PC,PATTI
55’

ISETUP TIMEOU
'FIND ATT
INO ATTN nrrsn RECAL CMD

MOV
MOV

#CCLR,RKCS! (RS)
§UNIT RKCS2(RS)

:DRIVES

MOV

8CLEAR, HCS]

CZREJEC UNIBUS RK& DR_PRT3
25-JAN-78 12:08
CZReJ E.P11
004737
104151
004737
00Q401
104154

o24446

030756

000137

031022

030762
030766
030770
030774
031000
031004

005737
001410

000042

104401
005037
005037
000137

o44142
023762
001176
023734

031010
031014
031016

104401
000000
000137

o44leH

030740
030744

NNNNNNNNNNO OO

[oaToalo als alvaleale als aleakeals alo aloeads alo aloalo alo ale alo a¥e gl e a¥o aTo alo aTo oo oT4 o10 )

030756

620C

MACY11 30R(10S2)

25-JAN-78

B10

12:16_

PAGE 118

GET VALUE FOR SOFTWARE SWITCH REGISTER

JSR

025024

oee

4$:

:NO ROY AFTER DRIVE CLERR CMD
:TEST FOR ATTN

ERROR

154

;ATTN NOT CLERRED AFTER DRIVE CLEAR CMD

JMP

FORM

;WRITE VALID FORMATS

TST

; SEE _IF MANUAL OR _AUTO MOODE

BEQ

CLR

$EOPCT

:BR IF MQNURL MODE
;PGM ABORTED
{SET UP EOP TO EXIT TO MONITOR

JMP

$EOP

; ABORT PROGRAM

;zfg

,MSG77

;CPU HALTED

JMP

STS

; START OVER IF CONTINUE PRESSED

MSG76

SESCAPE

CLR

gioele
F 'RM:

31022

.SBTTL

;D0 DRIVE CLEAR CMD 8 GET CONTR RDY

151
EE*TSTRTN

TYPE

SS:

PC,DOCMD

ERROR
ggfl

UNEXPECTED TIMEOUT HANDLER

FTHIS ROUTINE 1S ENTERED IF THERE IS
:

031022
031024
031026

011600
005740
032777
00100S
104401
010046

104403
006
000
032777
001403
02262k
000177

032777
001401
000002
000000

N EXISTANT MEMORY (NO SSYN)

HOUNBRY ERROR

STACK OVERFLOW

SADTMO: MOV
020000

MOV

150062

18:

150044

2%:

150020

040000

.BYTE
.BYTE

BIT
BEQ
CMP
JMP
BIT
BEQ
RTI

3%:

INHIBIT ERR TYPOUT?

TYPOS
001000

#SW13, ISWR

BNE

TYPE

o4451yY

;SAVE_PC WHERE TIMEOUT OCCURRED.

-(RO}

BIT

150104

(SP),RO

1ST

HALT

EM3
RG, - (SP)
&
O

#SW9, ISKR
2%
(SP)+, (SP)+
JTLPADR
#SW 14, ISKR
33

'GET PC_BEFORE UPDATE

DON’T TYPE
naoht
TESTS UNEXP .0. @ PC=
,,s VE RO FOR TYPEOUT
:TYPE PC

1160 TYPE--OCTAL RSCII

;3 IYPE & DIGIT(S)
: SUPPRES: LERDING ZEROS

ERROR?
:L00P
INO eRnNcu
YES RESTORE STACK
0 0 STARTING ADDR OF TEST

THRT GAVE BAD TIMEOUT

:LOOP ON TEST?
:NO_BRANCH

YES

s UNEXPECTED TIME OUT OCCURRED

:AS_ INDICATED. YOU CAN LOOP ON
;ERROR, LOOP ON _TEST OR INHIBIT
ERROR’ TYPEOUT BY SETTING THOSE
SNITCHES

SEQ 0118

CZR6JED UNIBUS RK& DR PRT3

CZR&JE.PL1

6203
gggg

031102
031104

25-JAN-78 12:08

022626
000137

MACY1l 30R(10S2)

CMP
JMP

023734
.SBTTL

6208
6209

031110
031116

012737
011637

031124
001354

001176

gel2

031124
031130
031136

005037

001176
001000

150002

6213
6214

ggis

031122

031140

104202

032777
001001

Cl0

12:16

UNEXPECTED TIMEOUT HANDLER

gsgg

Eg}?

25-JAN-78

000002

(SP)+, (SP)+
SEOP
#1S,SESCAPE
(SP), TRAPPC

ERROR

202

CLR

SESCAPE

BIT
BNE

RTI

#STACK, SP

s INI, STACK

MOV

gggg

.SBTTL

RKO®& INTERRUPT HANDLER

INTER:

NOP
NOP

000177

6e22
6223

031152
031154

000240
000240

6228

031170

010046

6232

031172
031174
031175

104403
006
000

B5e 031{55
000230
gSSE
Bgfxsg
86§948
6227
031164
104401
6229
6230
6231
6233
6234
6235
gggg

031176
031200
031202
031204

147736

#°C
TST

037004

TYPE

MOV

TYPOS
.BYTE
BYTE

000000
000240
000240
000002

HALT
NOP
NOP
RTI

gsgg

.SBTTL

ES:?

031206

012737

5533

031216

000776

031214

000000

031220

000024

gg:g

031220
031224
031230
031232

00S037
005237
001375
012737

031206

6263

031246

012737

000340

031260

104401

037200

031240

6254

031254

6256
6257

031264
031266

6255

(SP),RO
~(RO)
MSGE

RO, - (SP)
&
O

AVE PCPC BEF
WHERERE upon?g.
INT QCCURRED )
EEET
:INT AT PC=
;;snvg RO FOR TYPEOUT

PITYPE PC
:3GO_TYPE--OCTAL RSCII
:TYPE b DIGIT(S)

: 'SUPPRESS LERDING ZEROS

POWER DOWN AND UP ROUTINES

SPWRDN:

MOV

#SPWRUP, PURVEC

;SET UP VECTOR

:HANG UP.

HALT

:POWER UP ROUTINE

6248
6249
6250
6251

6252

JSLPERR

*ELSE RETURN

OWER DOWN ROUTINE

Ge4e

6243

JMP

:UNEXP MEM PARITY ERRNR
;CHECK 1F LOOP ON ERROR
:YES, FORCE STACK AND TRY AGAIN

2%:

031146

:STORE PC

#SiS, ISWR
28

5219 031142 065706 001100

gg}g

;RESTORE STACK
:ABORT TESTS

MEMORY CHECK ENABLE TRAP

MEMERR: MOV
MOV
18:

PAGE 119

012737

0612706

00000S
000137

031272
031272

000340

001100
012664

$PWRUP:
18:
000024

CLR
INC
BNE
MOV

SPWRCT
$PURCT
18
#$3PWRDN, PWURVEC

sWAIT LOOP FOR TTY
SWAIT FOR THE INCR
10F WOR
;SET POWER DOWN VECTOR

000036

MOV

#PR7 TRAPVEC+2

'LOCKOUT ALL INTERRUPTS FOR TRAPS

,MSGI1

:REPORT POWER FAIL

000026

MOV

TYPE

RESET
IMP

#PR7,PWURVEC+2

s57ALK, SP
PFSRT

;PRIORITY 7

PINITIALIZE STACK

SEQ 0119

CZR6JED UNIBUS RK& DR PRTC
CZRBJE. P11
25-JAN-78 12:08

D10

30A(1052)
25~JAN-78
12:16
POWER DOWN AND UP ROUTINES

SPWRCT:

000000

PAGE

120

SEG 0120

;WRIT COUNT FOR TTY

5oxvxsxon UTILITY ROUTINE

:RO-Rf-nz n§ IVIDEND

53
B B 5 ER AFTER DIVISION
:R2-R3=QUOTIENT RFTER DIVISION
'ENTER WITH JSR PC,M.DPID
0oooo40

f.DOPID: MOV

MOV
MOV
NEG
NEG

000602

SBC
ADD
ADC

000002
000002

-(SP

ROL

ADC

2(SP),RI1
R

8900
no

xr CARRY THEN OVERFLOW HAS OCCURRED
THIS IS A LONGER LASTING CARRY BIT

JSF

'SET CARRY

M. DPY2

4(<P),RO

RS,

RBE

ADD

R4, RO

TST

ISP

BGT

M.DP44:

;PERFORM INIT SUBT.

RDC

ROR
BCS
ADD
ADC
ADD
CLC
0co010

‘HI ORDER
:LO ORDER TO THE STACK
:FORM NEGATIVE
:VERSION OF DIVISOR

i 1ESTcggs;qusxcnro
éLEQ
UP FOR NE ??h ELSE SUBT.

INC
DEC

o8 o
o

Pl o o i
i i
MONUNY
= 0= +—
£ oo L

006103
062706
000242
000207

: COUNTER FOR DIVISION CYCLES

fisppw1
SB

BEQ

000241

R2
RI
RO

M.DP42: ADC
000006

M.DPSO

ROL
ROL
ROL

ADC

G
N
n

—

0000000000000
W
WWW W W
Ww

M.DP41:

Hee

CLR

ADO

000004

(SP)
dSP,R1
0

2(SP)

5EG
EADD

000002

840, - (SP)

RY, - (SP)
RS’ -(SP)
2(5pP)
asP

ADD

BCS
M.DP40:

0000
Wl

031272

MACY11l

ROL

ISP

Jsp

. 4

R3
6(SP)

M. DPY0

R3
M. DPYY
RS, R1
RO
RY,RO
3

gge

#10,SP

RTS

noo -(g;VISOR)

. ADD +(01vxson)

(SET

: SET_CARRY

TEST THE UPDRTE INDICATOR

RGET IT

chRRY POSSIBLE HERE
DECRE T CIR
:BR IF nons T0 DO

:ADJUST STACK 8Y 4 WORDS

CZREJEO UNIBUS RK& DR _PRT3
CZRBJE.P11
25-JAN-78 12:08
6218
631
6317
ggig

031442
031446
031450

062706
000262
000207

000006

MACY1l 30R(1052)
25-JAN-78
12:1 6
POWER DOWN RAND UP ROUTINE
M.DPSO:

RDD
SEV
RTS

%6, SP
PC

P AGE

121

SEQ 0l121

CZREJED UNIBUS RKb DR PRT3
CZREJE.PL1
25-JAN-78 12:08

MACY11

F10

30R(1052)
2S-JAN-78
12:16
SCOPE HANDLER ROUTINE

PAGE

122

SEQ 0122

ggg?

.SBTTL

6353
£35¢

H THIS ROUTINE GONTROLS THE LOOPING OF SUBTESTS.
. IT WILL INCREMENT
L
' YAND LOAQ THE LRPOR
ELAG (SERFLC) INTQ DISPLAVCIo:0gs" DIertAY(7:D»)

6326

6327
6328
6329
6330

‘%#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE:

:#SWIN=]
(xSW1l=1
#SW09=1
: #5W08=1

6331

: #CALL

6332

6333
63349

6335
6336
6337

‘¥
031452

$SCOPE:

031452
031454
031462

104407
(032777
001114

040000

6341
6342
6343

031466
031472
031500

013746
012737
005737

00000M
031512
177060

6345

031510

6338

6344
6346
6347
6348

031504

012637

031512
031514
031520

022626
Q012637
000423

031522
031530

032777
O0OI404

031546

001465

6349

031582

6352

031832

6350
6351

000463

147456

000004

S§;

000004

127737

147402

001102

ggiggg

68?33{

001103

gggg
6358

83{%22
031560

001103
147352

83}%;8

0OI40M4

001115
001000

ggg?

031566

18?5?2
032777

868332

001110

001106

6362

031600

105037

001103

$359

6365

031612

6366

031620

00101}

032777

004000

6369

031630

005237

001104

6372
6373

031644
031652

012737
013737

000001
031730

031660
031664

105237
113737

TEST
ITERATIONS
ERROR
TEST IN SWR<7:0>
; ; SCOPE=10T

CKSWR
BIT
BNE

SOVER

;;TEST
FOR CHANGE IN SOFT-SWR
;7LOOP ON PRESENT TEST?
:iYES IF SW1Y=1

MOV
MOV
TST

J%ERRVEC,-(SP)
858, J8ERRVEC
J8177060

;:SAVE THE CONTENTS OF THE ERROR VECTOR
1iSET FOR TIMEOUT
"ITIME OUT ON XOR?

$SVLAD

8BIT14, SWR

147320

001102
001102

001104
001174
001214

(SP)+,38ERRVEC

; :REST

CHP
MOV
BR

(SP)+, (SP)+
(SP)+.JWERRVEC
78

:'CLERR THE
STACK AFTER A TIME OUT
::RESTORE
THE ERROR VECTOR
::LOOP ON THE PRESENT TEST

BIT
BEQ

$B1T08, 3SWR
2$

; ;LOOP ON SPEC.
::BR IF NO

BEQ

SOVER

:'BR_IF YES

:iGO_TO

THE ERROR VECTOR

THE NEXT TEST

6S:; ¥#uusEND OF CODE FOR THE XOR’ tESTERss#suu#

CHMPB
2s:

E370 Dalods Dosoaq _oil7v ooLiDd
6374
£375

SCOPE

MOV

147410

Egg;

1S§:

LOOP ON
INHIBIT
LOOP ON
LOOP ON

. ss##¥START OF CODE FOR THE XOR tESTER#ssus

000400

6353

SCOPE HANDLER ROUTINE

ggga

gfi@fl
BIT

9SWR, STSTNM
gERFLG

3ERHRX,SERFLG
881709, AaSLR

TEST?

;'ON THE RIGHT TEST?
;;ggs gflflgnnon OCCURRED?

; 1MAX, Efigoas FOR THIS TEST OCCURRED?
: 7LOOP ON ERROR?

BEQ

4§

$iBR_IF NO

4§ :

CLRB

SERFLG

; s 2ERQO_THE ERROR FLAG

3%:

BIT

7§:

18:
$SVLAD:

ggv

gbCESR,SLPfloR

#BIT11,aSKR

SWR<7:
0>

:SET LOOP ADDRESS TO LAST SCOPE

: ' INHIBIT ITERATIONS?

BNE

PBR

INC

$ICNT

: INCREMENT ITERATION COUNT

MOV
MOV

81, SICNT
SMXCNT,STIMES

'REINITIALIZE THE ITERATION COUNTER
;:SET NUMBER OF ITERATIONS TO DO

SHE

INCB
MOVB

SOvERSIONT

§TSTNM
FTSTNM,$TESTN

IF_YES

i eHECK NORE TTCRATION REQUIRED. o

s :COUNT TEST NUMBERS
:;SET TEST NUMBER IN APT

MAILBOX

CZRBJEO UNIBUS RK& DR PRT3

CZRBJE.P

25-JRAN-78 12:08

6376

031672

011637

001106

6379

031706

112737

000001

001106

6377
6378

031676
031702

011637
005037

001110
001i76

MARCY11

30AR({1052)

2S5S-JAN-78

SCOPE HANDLER ROUTINE
MOV

Moy
CLR

OO0l1llS

MOVB

6380 031714 013777 001102 147220 S$SOVER: MOV

gggé

ggigss

868665

£383
Eggg

031730

003720

SMXCNT:
.SBTTL

6386

G10

12:16

PARGE

(SP), SLPADR

(5P) $LPERR
SESChPE
MAX

123

SEQ 0123

; ; SAVE SCOPE LOOP RDDRESS

s s SAVE ERROR LOOP RDDRESS
,,CLERR THE ESCAPE FROM ERROR RDORESS
sONLY ALLOW ONEC(1)

ERROR ON NEXT 7EST

STSTNM SOISPLAY ,,DISPLRY TEST NUMBER
SLPRDR (SP)

Egg
OR HANDLER ROUTINE

,,F?Dgg RETURN RADDRESS
; ;MAX.

NUMBER OF ITERATIONS

369636 3636 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 36 96 36 36 36 36 3 3 36 36 36 36 36 36 36 3 36 3 3 36 36 36 36 36 3 36 36 36 3 36 36 3 3 3 3 3 3 3 3 % 3 % %

6387
gggg

iTHIE ROUT%NE NI&# INCREMENT THE ERROR FLAG AND THE ERROR COJNT,
:gag GgHgo $$8ERR gn EgMgER AND THE RDDRESS OF THE ERROR CALL

£330
6391
6392

lTHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE RRE:
iSN15=l
HRALT ON ERROR
;lSN13=1
INHIBIT ERROR TYPEOUTS

6333
6394
6395

233?

6398

6399
6400
6401

; #SW10=1
; #SW09=1
s #CALL

i
031732

0%1?32
031734
C31740

104407
105237
001775

6402
6403

031742
031750

013777
032777

001102
002000

6405
6406
6407

03176
031764
031770

104401
005237
011637

001200
001112
001116
000002

001116

6410

032010

032777

020000

147122

6404

p408

03175

031774

001402

162737

]

ERROR

ré ¥

CKSWR
INCB
BEG

SERFLG
79

$ERROR:

001103

147172
147162
19%:

6413

03201
03202

032024

001004
004737

104401

001208

032030
032030
032036

122737
001007

00C001

g:ig

gggggg

004535

032656

218

229%:
29%:

001230

6417 032040 113737 001114 032082
6420

032053

032054
032056

000777
005777

147056

g:g

8358;2

88?35;

001000

e428

032100

013716

001110

6431

032112

013716

001178

6423
e4e4
6425

g:gg

032062
032064
032066

8%5{?3

100002
000000
104407

88%38;

001176

209%:

19:

000

6421
e4ce

147042

TYPE
INC
MOV

BELL
$ERTTL
(SP)3ERRPC

,,RING ELL
;COUNT THE NUMBER OF ERRORS
,,GET ADDRESS OF ERROR INSTRUCTION

#BIT13, JSWR

,,SKIP TYPEOUT IFSET

3%:
4e:

NO
-

SKIP

MOVB

QSERRPC SITEMB

BNE
JSR

20s
PC, TYPERR

;s SKIP TYPEOUTS
;:;GO TO USER ERROR ROUTINE

CMPB
BNE

SAPTENV, SENV
4 3

,,RUNNING IN APT MODE
KIP APT ERROR REPORT

JgsTE

SC,SQT99

BIT

6414
6415
6416

H E?T SR SHQNG
IN SOFT-SWR
,,S
+sDON’'T LET THE FLRG GO 70 ZERO

STSTNM,JDISPLAY ,,DISPLRY TEST NUMBER AND ERROR FLAG
OBITIO aSUR
,,BELL ON ERROR?

sSuB

085102

; s ERROR=EMT AND N=ERROR ITEM NUMBER

MOV
BIT

BEQ

6409 032002 117737 147110 001114
6411
eMie

BELL ON ERROR
LOOP ON ERROR

TYPE

MOVEB
.

.BYTE

SCRLF

S$ITEMB,21S
8]

BR
TST

ces
adSWR

Ség

OEITOQ JSUWR

MOV

SLPERR,

MC ¢/

$ESCAPE, (SP)

BPL
HALT
CKSWR

égg

SET ITEM NUMBER AS ERROR NUMBER
,,REPORT FRTAL ERROR TO APT
; ;AFT _ERROR LOOP
; sHALT ON ERROR

ggbcnPE

;STRIP AND SAVE THE ERROR ITEM CODE

(SP)

;s SKIP IF CONTINUE
,,HRLT ON ERROR!
TEST FOR CHANGE IN SOFT-SWR

,,LgO?FONOERROR SWITCH SET?
;FUDGE RETURN FOR LOOPING

,,SHE?E FOREnN ESCAPE RDDRESS
; s FUDGE RETURN ADDRESS FOR ESCRPE

CZR6JEQ UNIBUS RKE DR PRT3
CZRBJE. P11
25-JAN-78 12:08

¢
5351
e

022737
001001
000000

024022

MACY1l

000042

12:16
25-JAN-78
ERROR HANDLER ROUTINE

30R(10S2)

cs:

eS:

000002

.SBTTL

cMP
BNE

HALT

PAGE

#SENDRD,
42
Y 1

RTI

TYPE ROUTINE

124

SEQ Jdla4

;3ACT-11 AUTO-ACCEPT?
; ; BRANCH IF NO

;3 YES

; s RETURN

l!llllllll!l!lllilllllllllIll!llIl'llll’llllilllllllllllilllilll

iROUTINE TO TYPE RSCIZ MESSAGE. MESSAGE MUST TERMINATE WITH
A 0 BYTE.

3NfOUTINE
WIgl
INSERY
A NEFEE BforAeeR"76°6E
08D
a8 rie LLEE EHQRQCTER.
NUM
F FILLER CHRRQCTERS REQUIRED
: ¥NOT
FIL
ONTA
.NOTES
$FILER SORTAENZ T CHARACTER TO-FLL CRPTE
}CQLL
(%) usxnc A TRAP INSTR JCTION

; ¥OR

00000

W WW L) W LK
rufunu
PV PYN PN
UM
bt 0t e s et P Pt Pt s Pt s ot
onNLLLLWW
oo
oo

001157

MESADR

$STYPE:

TSTB
BPL

18:

c0o0o00e
000001

001230

000100

001231

03e2e0e
032646
000040

001231

2%:
ouooo2

000011

608

3%
ys:

000200

032272

0013S0

032344
001156

S$:

£3:

$TPFLG
18

A TERMINAL?
;118 THERE

MOV

Jzlsp

BNE

652%

BEQ
MOV

628
RO,618

.WORD
BITB

O
SAPTCSUP, SENVM

MOV

CMPB

JSR

0 -(sp)

IS FIRST ADDRESS OF AN RSCIZ STRING

, SENVM
#APTSPOOL

;:38685
cu?gzcson
CONSOLE
P MESSAGE RDDORESS FOR APT
ssf

PC SATY3

BNE
TST

4g
(SP)+

ADD

82, (SP)

CMPB
BEQ
CMPB
BNE

#HT, (SP)
8%
8CRLF, (SP)
S

MOV
RTI

VE
R

onPTENO SENV

60%

MovBe

,,HQLTEHERE IF NO TERMINAL

OF ASCIZ STRING
,,GET 902R§SS

BNE

ST
TYPE

032410

; ;MESADR

HALT
BR

BITB

618:
62%:

, MESADK

TYPE

"
; *

105737
100002
000000
000430
010046

TYPE

(RO)+,-(SP)
(SP)+,RO

(SP)+

RUNNIN

MOOE

N0, GO CHECK FOR RPT CONSOLE
sn sssncg T0 APT

3S:YES,SKIP
? 3 SULE
ugpnessso
T

PUSfi CHQRRCT R TO BE TYPED ONTO STARC?
R IF IT ISN’'T THE TERMINRTOR

,,IF TERMINATOR POP IT COFF THE STRCK
; ;RESTORE RO

,,QDJUET RETURN PC
RETURN

:iBRANCH IF <HT>
; s BRANCH IF NOT

<CRLF>

<CRY(LF>

EQUIV

:sPOP_

STYPE A CR AND LF

$CRLF
CLRB
BR
JSR

$CHARCNT
2%

; sCLERR_CHARACTER COUNT
; ;GET _NEXT CHARACTER

BNE

SFiLLc, (SPy+
2%

;315 IT TIME FOR FILLER CHARS.”
IF NO GO GET NEXT CHRR.
;3

CHMPB

PC,$TYPEC

;3 GO0 TYPE THIS CHARACTER

CZR6JEO UNIBUS RKG6 DR PRT3
SZREJE.PI11

g:gg

032274

25-JAN-78 12:08

013746

MACr1l 30A(1052)

g:gg

032312

032316

105337

000770

001154

MOY

032410

032320

112716

000040

6500
6501
6502
6503
6504

032330
032336
032340
032342
032344

132737
001372
005726
000724
105777

000007

6506

032352

ggsggg

116677

65?583

000002

gggg

ggsggg

683332

032410

6511
6512

032376
032404

122766
001402

000012

6505

gggg

6513
6514
Egig

JSR
DECB

!PC, $TYPEC
$CHARCNT

PAGE 125

SEG 0125

;;gsg %HEFNEEtLEfiQSHQRS. NEEDED

1DOES
A NULL NEED' 10 BE TYPEDY ¢ s7ack
1160 TYPE n NULL
;D0 NOT COUNT AS A COUNT

:'LOOP

:HORIZONTAL TRB PROCESSOR

6498

6499

12:16

SNULL, -(SP)

B8R

'339
|=]

25-JAN-78

TYPE ROUTINE

E13)
035309 Ogaa5p ooooo
6492 032306 004737 032344
6493

I10

(032324

032350

032406
032410
032412

004737

100375

032344

8%:
032410

146600

000015

ggig

B2so

,(SP)

: sREPLARCE TAB WITH SPACE

S TYPE A SPACE

: 'BRANCH IF NOT AT
:TRB STOP
: 'POP SPACE OFF STACK
IGET _NEXT CHARACTER
::WAIT UNTIL PRINTER IS READY

MOVB

2(SP) . a$7rPB

::LOAD CHAR TO BE TYPED INTO DATA REG.

SERB

gg@gggnr

E;YES;-CLERR CHARACTER COUNT

cMPB
BEQ

8LF 2(SP)
STYPEX

1 IS CHRRACTER A LINE FEED?
: 'BRANCH_IF YES

BPL

gnza
1S:

INCB
$CHARCNT: .WORD

000207

8’

PC,$TYPEC

87 SCHARCNT
qs
(SP)+
2%
3$TPS

000002

105227
000000

JSR

BITB
BNE
TST
BR
$TYPEC: TSTB

146572

000002

MOVB

STYPEC

:gn,atsp)

(PC)+
O
PC

;;ésnggaR?Eng A CARRIAGE RETURN?

: 'COUNT THE CHARACTER
: :CHRRACTER COUNT STORAGE

§TYPEX:

RTS

.SBTTL

CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

;
e
#TH
ROt T INE 16 UoD 10 CHANGE A 16-BIT BINARY NUMBER TO A S-DIGIT

6521
6522
Egga

'¥SIGNED DECIMAL (RSCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER_THE
* *NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED
;:gg;eggesuslgaag;ggégxr OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE

6525

%CALL:

Egsg

6526

6529

tx
032414

6530

032414

6535

032426

6531
6532
6533
6534

032416
032420
032422
032424

010146
010246
010346
010546

6536
6537
6538
6539
6540
6541

032432
032436
032440
032442
032450
032452

016605
100004
005405
112766
005000
012703

6543

032462

6542

032456

$TYPDS:

010046

012746

112723

005002

020200
0000SS
032630

000040

NUM, - (SP)

s sPUT_THE BINARY NUMBER ON THE STACK

MOV

RO, - (SP)

: sPUSH RO ON STACK

TYPDS

000001

18:
2%:

:1G0 TO THE ROUTINE

MOV
MOV
MOV
MOV

R1.-(SP)
R2. -(SP)
R3, -(SP)
RS’ -(SP)

:PUSH
: JPUSH
:'PUSH
PUSH

MOV
BPL
NEG
MOVB
CLR
MOV

20(SP) |RS
I
RS
8-, 1(SP)
RO
#$DBLK,R3

PIGET THE INPUT NUMBER
''BR IF INPUT IS POS.
' 'MAKE THE BINARY NUMBER POS.
P'MAKE THE RSCII NUMBER NEG.
;' 2ERO THE CONSTANTS INDEX
‘'SETUP THE OUTPUT POINTER

CLR

*CLERR THE BCD NUMBER

MOV

000020

]

MOV

MOVB

820200, -(SP)

. (RY+

R1
R2
R3
RS

ON
ON
ON
ON

STACK
STACK
STACK
STACK

P'SET BLANK SWITCH AND SIGN

::SET THE FIRST CHARACTER TO A BLANK

¢z SEJEO UNIBUS RK& DR PRT3
25-JAN-78 12:08
c2 6JE P11

6544
E£S4S
6546
6547

032464
032470

032472

016001
160105

032620

005202
000774
06010S
005702
001002
105716
100407

032516

116663

000001

702

000040

032524
032530

032534
325

106316
103003

2702

110223
5720

4g:

S§:

000060

032540
032544
032546
032550
032552
032554

020027
002746
300
013502
000764
105726

000010

032560
032566
032570
032572
032574

116663
105013
012605
012603
012602

177777

104401
016666

032630
000702

032586

032576
032600

032602
032606

100003

012601
012600

032614
032616
326
032622
032624
032626
032630

012616
000002
023420
001750
000144
000012
u0O000Y

032640

112737

032646

112737

032654

000403

032664
032666

010046
010146

032674
032676
032704
032706
032714

001450
122737
001031
132737
001425

8 Sggs

032670

112737

105737

J10

30A(1052)
25-JRAN-78
12:16
PAGE 126
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE

3%:

002402

032474
032476
032s
032502
032504
032506
032510

032512
032514

MACY1l

177777

177776

6%:

000001

INC
BR
ADD
757
BNE
7578
BMI

R2
33
R1,RS
R2
5§
(SP)
78

: 'INCRERSE THE BCD DIGIT BY 1
: :ADD BACK THE CONSTANT
::CHECK IF BCD DIGIT=0
PFALL THROUGH IF O
$'STILL DOING LERDING 0’S?
:'BR _IF YES

1(SP),-1(R3)

i 'YES--SET THE SIGN

BLT

ASLB
BCC

(SP)
68

BIS

$’'0,R2

MOVB

8s:

MOVB
TST

8’

'R2

R2, lR3)+
(ROH+

:'BR IF DONE

:'BR _IF NO

:'MAKE THE BCD DIGIT ASCII

*MAKE IT A SPACE IF NOT ALREADY A DIGIT

PPUT THIS CHARACTER IN THE OUTPUT BUFFER
$1JUST INCREMENTING

RO, #10
2$
8s
RS, R2
68
(SP)+

:ICHECK THE TABLE INDEX
1160 DO THE NEXT DIGIT
$:G0 _TO EXIT
*:GET THE
LSD
GO CHANGE
ASC
:'WRS THE LSD THE FIRST NON-ZERO?

~1(SP),-2(R3)
(R3)
(SP)+,RS
(SP)+ R3
(5P)+.R2

::YES--SET THE SIGN FOR TYPING
:ISET THE TERMINATOR
:'POP STACK INTO RS
:'POP STAC.. INTO R3
:1pOP STACK INTO R2

$DBLK
d(SP),4(SP)

PINOW TYPE THE NUMBER
:ADJUST THE STACK

BPL

E13

MOV
MOV

(5P)+'RI
(5P)+ RO

MOVS
CLRB
MOV
MOV
MOV

TYPE
MOV

SDBLK:
.SBTTL

000001

::GET THE CONSTANT
:'FORM THIS BCO DIGIT

CMP
BLT
BGT
MOV
BR
7578

$DTBL:

033104

$DTBL (RO),R1
,RS

BIS

000004

000001

MOV
SUB

78:

qg:

SEQ 0126

2'BRIF N

:'POP STACK
:'POP STACK

INTO RI
INTO RO

MOV
(SP)+. (SP)
RTI
: sRETURN TO USER
10000
1000.
100.
10.
.BLKW
Y4
APT COMMUNICATIONS ROUTINE

o o 33636 36 36 3 36 36 3 36 3 36 3 36 3 36 3 36 3 3¢ 3 3 3 36 3 36 % 3 % 3 3 3 3% 3 3 % 3 3 3 3 % W W I KX W XKW W® W EE %N E B W ®®E®

033102

$ATY1:

S$ATY3:

MOVB

#1,8FFLG

033104

§3¥¥3

MOVB

satyc

81,SFFLG

::TO ONLY REPORT FATAL ERROR

MOV
MOV

RQ, - (SP)
R1 -(SP)

:;PUSH RO ON STACK
:1PUSH R1_ON STACK

BEQ
CMPB
BNE
BITy
BEQ

s
;2 IF NOT:
BR
SAPTENV, SENV
: 'OPERATING UNDER APT?
3%
''IF
NOT:
BR
#APTSPOOL
. SENVM ; : SHOULD SPOOL MESSAGES?
3%
:'1F NOT:
BR

033102

MOVB

1STB

000001

001230

000100

001231

81’

SMFLG

SMELG

::
TO REPORT FATAL ERROR

1170 TYPE A MESSAGE

:'GHOULD TYPE A MESSAGE”?

CZR6JEQC UNIBUS _RK& DR _PRT3
CZRBJE.PI11
25-JAN-78 12:08
032718
03572
03273
032734

017600

83873

000004
000002
001210

MACY1l

000004

oolea4

18:
2%:

Pt P
s P
Pt Pt Pt Pt P

DO NN LW

oo
oocoooooom

001224
001226
000004

000004
000002
1772776
032132

033104

001210

033014
000004

gg:
10%:

118:

000004
000002

128:
033102

$MFLG:

$LFLG:

§FFLG:

033104

MOV

J4(SP),

PARGE

BNE
MOV

18
RO, SMSGRD

BNE
SuB

2s
RO
$MSGRD,

127

SEQ 0127

: :GET MESSAGE RDOR.
: : BUMP RETURN ADDR.

82, 4(SP)
SMSGTYPE

ADD
TST

::SEE IF OONE W/ LAST XMISSION?

(POY+

WRIT
IF NOT:
;3
: 'PUT_ADOR IN MAILBOX
P FIND
END OF MESSAGE

ASR
MOV

RO
RO, SMSGLGT

;;SUB START OF MESSAGE
; ;GET MESSAGE LNGTH IN WORDS
; s PUT LENGTH IN MAILBOX

ADD
MOV
JSR

82, 4(5P)
1772776, -(SP)
PC,STYP

1518
BEQ

SFFLG
128

BEQ
TST
BNE
MOV

129
$MSGTYPE
118

CLRB
CLRB
CLRB

$FFLG
SLFLG
SMFLG

TSTB

MOV
BR
MOV

;s TELL APT TO TRKE MSG.

#4 . SMSGTYPE
cs
JY(SP), 48

WORD

TST

001230
oo1210

K10

12:16
25-JAN-78
APT COMMUNICATIONS ROUTINE

30R(10S2)

82.9(5P)
SMSGTYPE

(SP)+,R]
(SP)+ RO
PC
O

.BYTE
.EVEN

.BYTE

' *CALL 1YPE MACRO

; s FINISHED LAST MESSAGE?

J4(SP),SFRTAL

MOV
MOV
RTS
.BYTE

:sPUSH 177776 ON STACK

; ; SHOULD REPORT FATAL EPROR?
BR
IF NOT:
;3
; ;RUNNING UNDER RPT?
BR
NOT:
;:IF

SENV

ADD
INC

;s PUT MSG ADDR IN JSR LINKAGE
.. BUMP RETURN ADDRESS

WAIT
IF _NOT:
;3
;;GET ERROR #
: :BUMP RETURN ADDR.

:; TELL APY TO TAKE ERROR

; ;CLEAR FRTAL FLAG
;;CLERR LOG FLAG
; ; CLERR_MESSAGE FLAG
; s POP STACK INTO Rl
; s POP STACK INTO RO
; sRETURN
; ;MESSG. FLAG
;;LOG FLRG
! 'FATAL FLRG

APTS12E=200
000040

APTENV=001
APTSPOOL =100
APTCSUP=040

.SBTTL

BINARY TO OCTAL

(RSCII) AND TYPE

S o M

; #OCTAL

(RSCIT)

NUMBER _AND

; #CALL:
¥
K ]

MOV
TYPQS

NUM, -(SP)

R AR RN R AR R R R RRRRRRRRRRRR

:4THIS ROUTINE IS USED TO CHANGE R 16-BIT BINARY NUMBER TO A 6&-DIGIT

; #8$TYPOS-

o &
X
HE

P &
s ¥
R

TYPE

ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE

.BYTE
.BYTE

N
M

; s NUMBER TO BE TYPED
! 'CALL FOR TYPEOUT

=1 10°6 FOR NUMBER OF DIGITS TO TvPE

TULU1=TYPE LEADING ZEROS

* ' 0=SUPPRESS LERADING ZEROS

$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS RS THE LAST

CZREJEC UNIBUS RKE DR PRTJ

CZREJE.PL]

26-JRN-78 12:08

MACY1l 30R(1052)

25-JAN-78

BINRRY TO OCTAL

6656

L10

12:16

PAGE 128

SEQ 0128

(RSCII) AND TYPE

: #$TYPOS OR STYPOC

ggg?

:#CALL:

gegg

MOV

TYPON

R ]

NUM, - (SP)

: ;NUMBER TO BE TYPED
::CALL FOR TYPEOUT

Eg é

;;ggtfoc---enrsn HERE FOR TYPEOUT OF A 16 BIT NUMBER

6E63

2222

6666
6667

033106
03311c

017646
116637

000000
000001

669
6670

033124
033130

062716
000406

000002

033154

010346

668

033120

112637

MOV
MOVB

(SP),-(SP)
1(SP),$OFILL

; ;PICKUP THE MODE
$1L0RD ZERO FILL SWITCH

ADD
BR

82, (SP)
STYPON

: 'ADJUST RETURN ADDRESS

MOV

R3,-(SP)

MOV

RS -(5P)

NEG

MOVB

6675

833158

81 94y

6677

oggxa

61370q

033333

MOVB

2578

0331;8

??270;
4

oooogg

ggo
v

6682
6683
6684

033210
033212

005003
006105

6678

03316

1054

05404

033331
033333
033330

: :NUMBER TO BE TYPED

033132
033146
033146

6676

000001
000006
0COGOS

§TYPOS:

NUM, - (SP)

TYPOC

6675
6672
6673
6674

112737
112737
112737

033333

03333!

MOV

STYPOC:
STYPON:

MOV

5281 833500
1187 Y4 83%331
033204
016605
000012

6685
6686

000404
006105

033226
033230

00610
105337

6693
6694
6635
6696
6697
6638
6699

033236
033242
033244
033246
033250
033252
033256

042703
00é002
005704
001403
005204
052703
052703

000060
000040

6702

033272

105337

033330

5690
£69]
6632

6700
6701

6703

033220
033c22
033224

033234

033262
033266

03327

100016

110337
104401

03347

033300
033302

002402
005204

6707
6708
6709
6710

033306
033310
032312
033314

012605
012604
012603
016666

6711

033304

033322

2%:

006105
006105
010503

6704
5?05

6706

MOV
MOV

18:

033214
033216

687
6688
£689

38:

033332

00000

H,-(%P)

1i%avE

$OMODE+1,RY

:1GET THE NUMBER OF DIGITS TO TYPE

sg,ngno e

;;sgegn?ngIE zon MAX.
i

'8avE

ALLOWED

SOF?LL,
q
12(SP).RS

;;857
THE ZEROQ ??LL SWITCH
PIPICKUP THE INPUT NUMBER

33
RS

1160
DO MSB
:'FORM THIS DIGIT

R3
RS

ROL
ROL
MOV

RS
RS
RS, R3

BPL

4 3

ROL
DECB

: {SAVE R3

::CLEAR THE OUTPUT WORD
:'ROTATE MSB INTO “C*

S§:

BIC
BNE
TST
BEQ
NC
15
BIS

#177770,R3
4§
RY
(1
RY
$'0,R3
8’
.R3

:'GET RID OF JUNK
:»TEST FOR
: 1SUPPRESS
THIS 02
::BR IF YES
: :DON’T SUPPRESS ANYMORE 0°'S
' 'MAKE THIS DIGIT ASCII
1 MAK
nscx* IF NOT ALRERDY

7S:

DECB

$§0CNT

: : COUNT BY é

BLT
INC

68
RY

1iBR
IF DONE
;1 INSURE LAST DIGIT ISN'T A BLANK

(5P)+,RS
(5P)+.RY
(SP)+.R3
21SP, . 415P)

P 'RESTORE
: 'RESTORE
: ;RESTORE
1'SET THE

X ¥
000002

::SET THE ZERO FILL SWITCH
*SET FOR
SIX(6) DIGITS
PIGET THE ITERATION COUNT

::GET LSB OF THIS DIGIT
PUTYPE _THIS DIGIT?

4§

033.°F
0333cb

81,SOFILL
86, SOMODE + 1
85, SOCNT

CLR
ROL
BR
ROL

::NUMNBER OF DIGITS TO TYPE

R3
$OMODE

177770

000744

012616

MOVB
MOVB
MOVB

(SP)+ SOMODE+1

: :CALL FOR TYPEOUT

MOVB
TYPE

BGTY

R3, 8%
gé

B8R

MOV

(SP)+.
. SP)

MOV
MOV
MOV
MOV

“iBR IF NO

::SAVE FOR TYPING
;G0 TYPE THIS DIGIT

:'BR ¥F MORE

TO DO

::GO DO THE LAST DIGIT

RS
RY
R3
STACK FOR RETURNING

CZRBJED UNIBUS RK6 DR PRT3

CZRBJE P!}
71

2S5-JAN-78 12:08

33324

43323

000002

14
i
B1
71

6717

033332

00000C

g;ig

MACY11l

000

6726
6727

(33340

033342

6728

BINARY TO OCTAL
RT1

.BYTE

.8y
ot
BT
OFILL:
Y7

SOMODE: .WORD
LSBTTL

(RSCII) AND TYPE

TKQE ¢+

0332343
J33344

.EVEN

.BLK

lTH S RGUTINE sb

I'4

6733

,iCQLL:

6734

E;%E

033412

000207

033404

(127?77

000100

000060

JSR

RETURN

MOV

000062
145532

..0¥TPUT

Y KEYBOQRD OUEUE

LéZE TH; TTY KEYBORR

HE INTERRUPT VECTO

073
a0 017y %
i STKIN: LB
732 833328 813?3? 83333 833348
MOV
033414
000200
145642

,,NUHBER
OF ITEMS IN QUEUE
; INPUT POINTE

!SE

6743

,.NUHBER OF DIGITS T0 TYPE

gzgé

g;:g

Vs
TR
98
RO FILL SHI

;#TK INITIALIZE ROUY

6730

012737
012737
005777

SEQ 0129

STOS?SE
FOR ngc#x DlgéTTINE

£729

033364

129

:RETURN

TTY INPUT RCUTINE

TKQOHT- .WOR

00000}

033372
033400

PAGE

¢
.HSRD 8]0
STVQIN . WORD

000000

6740
6741
6742

M10

12:16

lllllllll!lll!llli!ll!llIllllilllll}ll!lIlll!lllli!ll!liiili!l'

b?Sé
033334 000000
6723 033336 0C0000
6755

@2S-JAN-T8

8s:

6720
67

6724

30R(10682)

é T QU%UE

TURN ON THE KEYBORRD INTERRUPT

PC,STKINT

STHCH
sm
STKQIN | QUEUE
ROUE THE
STARTING AGORESS OF THE
N, stkQou
INTO THE INPUT & OUTPUT POINTERS.

MOV
187

STKSRV aarxvgc ,,IN&TIR& EETHE KEYBORRD VECTOR
8200, astKVEC+
VEL
JSTKB
.,CLEQR DONE FL G

RYsS

H?V

8100,d8TKS

NARBLE TTY KEYBORRD INTERRUPT

PIRETURN TO “ALLER

6746

; #TK SERVICE ROUTINE

EZ:S

l?¥ Ig THS HE CHARACTER FROM THE INPUT BUFFER AND PUTTING

6747

lTng Y éN; WILL SERVICE THE TTY KEYBOARD INTERRUPT

- %

6750
Ezgé
I'4

6753

IIF THs ?HRRRCT?R IS R "CONTROL-CTM (1C) STKINT é? CALLED AND
lUPON ETURN EXIT IS MADE TO THE *“CONTROL-C* RESTRRT ACDRESS (STGP)
033414

117746

145526

QTKSRV. MOVB

00000

CMP

6754

033420

04271}

6756
6757

033430
033432

001007
104401

034S4e

6760

8’3494

8 0137

8 0500

6762

033454

6755
£758
6759
6761

033424

033436
Q033442

004737
005726

033450

1627

6763

033456

6766

033466

E;Eg
B767

Q2162

033484

033486

001004

1?7808

BIC

BNE
TYPE

033344
0007

18:

022737

000176

001140

022737

000001

033334

001500

,,?TR{P E ¥

19
SCNTLC

,,BRQNCH IF NO
;; TYPE R CONTROL-C

(SP), 23

PC. STKINT
(SP)+

CMP

(SP), %7

JMP *

PICKUP THE CHHRQCTER

#4C177 . (SP)

JSR
T1ST

STOP

ONTROL C?

,,INIT THE KEYBORRD
;CLEAN UP STACK

(tC)

,,CgNTROL
C %gTQRT
; BRANCH IF NO

oL G?

BNE

BEQ

8SWREG, SWR

,,IS

CMP

8!, $TKCNTY

;1S THE QUEUE FULL?

CMP
c9e:

aS$7«£B, - (SP)

1 :GO

OF T-SWR SELECTED”?
TO SWR

CHANGE

CZRBJEO UNIBUS RK& DR _PRT3

CZR&JE.P11L

833474

25-JAN-78
001004

12:08

MACY11l

30A(10S2)
25-JAN-78
TTY INPUT ROUTINE

BNE
TYPE

001200

TST

3s:

00c0e3
145424

318:

145416
14G41°2
177600
000021
000100

32%:

4§:

000040
177530
033336
033336

033343

033342

033336

c§:

PAGE

3s
$BELL

130

SEQ OJ130

: ;BRANCH IF NO
:'RING THE TTY BELL

1SP)+

; i CLEAN CHARACTER orr OF STACK

(5P), 823

:3IS IT A CONTROL-S?

CEXTT

BNE
CLR

328
JSTKS

1518
BPL
MOVB

a3TKS
318
33TKB, - (SP)

BNE

31%

#100, a$TKS

,,ngsneLs TTY KEYBOARD INTERRUPTS

INC

$TKCNT

:1COUNT THIS CHARACTER

BLT
CHP
BGT
BIC

4§
(59),:175
4§
#40

: JRRANCH IF
(2SS IT A ?PECIRL CHAR?
§ CRANCH IF
YE
IMRKE IT UPPER CASE

INC

$TKQIN

1ST

gg¥

145370

000175

000002

CMP

BIC
CMP

033334
000140

033622
033630

N1O

12:16

CMP

MOVB
CMP
BNE
MOV
RTI

: 'BRANCH_IF
NO
:'DISABLE TTY KEYBOARD INTERRUPTS

(SP)+

: :CLEAN CHAR OFF STACK

*'WARIT FOR A
$LOCP UNTIL ITS THERE
:iGET_THE CHRRACTER

$1C177, (SP)
(SP)+, k21

' 'MAKE IT ?-BIT ASCII
;11 IT A CONTROL-Q?
:BRANCH

(SP), 8140

P1IS

IF NO

IT UPPER CASE?

(spi+ asTKQIN

,,nno PUT IT

STKQIN, #STKQEND
5§
#STKQSRT,STKQIN

;:GO OFF THE END”
: 'BRANCH_IF NO
;:RESET THE POINTER
! RETURN

:'UPDATE

QUEUE

THE

POINTER

< 3606 3636 30 36 0000 06 06 06 06 36 06 06 06 06 00 06 06 00 06 06 06 0600 06 000 00 30 0090 90 30 3030 36 30 30 06 3600 30 30 36 38 30 36 36 36 36 30 3 0 3 3 3 3 X

iSOFTuRRE SWITCH REGISTER CHANGE ROUTINE.
; #ROUTINE 1S ENTERED FROM THE TRAP_HANDLER,

AND WILL

;#SERVICE THE TEST FOR_CHANGE IN SOF TWARE SfiITCH REGISTER TRARP

oo L AL A AL LR
ommm OmO". Mo
o
Whs- OwVNNLW-O

033632

022737
001lle4
105777
100121
117746
042716
021627
001300

000176

001140

:%CALL

WHEN OPERATING IN TTY INTERRUPT MODE.

$CKSIR: CMP
BNE

1578

145276

145272
177600
0o0007

osunsc SWR
15§

asTKs

3PL
MOVB

c$
asrxa (SP)

BNE

BIC
CMP

8$C177.(SP)
(SP), 87

5 363363636 36 36 30 36 36 38 30 30 36 06 06 06 06 06 00 06 06 06 06 D00

033710

123727
001674
005726
004737
005077
112737

033344
145234
000001

033716

104401

034S5Y

001134

000001

001135

;1S

THE SOFT-SWR SELECTED

PIEXIT IF NOT

;ISR CHRR WAITING?

PUIF NOT,
: I YES

EXIT

SIF NOT,

PUT

isMAKE IT 7-BIT ASCII
;:1S IT A CONTROL-G?
,,nno Extr
0 A0

IN THE TTY QUEUE
NN

AN RN NN

iCONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE
;#ROUTINE OR FROM THE SOF TWARE SWITCH REGISTER TRAP CALL, AS A RESULT OF A
: ¥CONTROL-G BEING TYPED, AND THE SOF TWARE SWITCH REGISTER BEING SELECTED.

bs:

CMPB

BEQ

TST
JSR
CLR

$AUTOB, k!

:ARE WE RUNNING IN AUTO-MODE?

"BRANCH IF YES

(SP)+
PC, STKINT
astks

*_LEAR CONTROL-G OFF STACK
,,FLUSH THE TTY INPUT QUEUE
:'DISABLE TTY KEYBOARD INTERRUPTS

.SCNTLG

; tECHO THE CONTROL-G

81, SINTRG

:iCET

INTERRUPT MODE

INDICATOR

CZR6JEO UNIBUS RK6 DR PRT3
CZREJE.P11
25-JAN-78 12:08

6824

033722

104401

6826
6827
6828
6829
6830
6831

033732
033734
033740
033742
033744
033750

104402
104401
005046
005046
105777
100375

6833

033752

033756

042716

117746

6836
6837
6838

033762
033766
033770

021627
001015
104401

£825

6834

MACY1l 30A(1052)
g5-JAN-78
TTY INPUT ROUTINE

034561

$GTSWR:

033726 013746 000176

TYPE

Bll

12:16

SMSUR

PAGE

131

SEQ 0131

s s TYPE CURRENT CONTENTS

MOV

4WREG, - (SP)

145170

MOVB

9STKB,-(SP)

$1C17%, (5P)

!!MAKE IT 7-BIT ASCII

000003

CMP
BNE
TYPE

(SP), %3
9§
SCNTLC

:;1S IT A CONTROL-C?
: BRANCH IF NOT
:1YES,
ECHO CONTROL-C

BNE

83§

#100, 38 TKS
STOP

*!QLLOW TTY KEYBOARD INTERRUPTS
: : CONTROL-C RESTAR:

CMP
BNE
TYPE

(SP), %25
108
$CNTLU

;515 IT A_CONTROL-U?
! 1BRANCH IF NOT
'1YES,
ECHO CONTROL-U

034572

198:

145174

78:

177600

BIC

034542

(4C)

062706
123727

£842
6843

034010
034016

012777
000137

000100
030500

034022
034026
034030

000025

034034
034040

021627
001005
104401

062700
000737

000006

208 :

ADD
B8R

b6, SP
13§

: ! IGNORE_PREVIOUS INPUT
*ILET'S TRY IT AGARIN

034042
034046
034050

021627
001022
005766

000015

108:

CMP
BNE
15T

(SP), $15
168
4(SP)

;1S IT A <CR>?
: 1BRANCH _IF NO
!!YES,
IS IT THE FIRST CHAR?

016677
062706

000002
000006

118

MOV
ADD

2(5P), 3SWR
%6, 5P

158:
168:

BNE
MOV
RTI
JSR

15§
#100, 98TKS

PC, STYPEC

BLT
CHP
8GT
BIC

18%
(SP), #67
188
860, (SP)+

6845

6845
6847
6848

6849
B850

6852

£853
6854
6855

6ESE

6857
6858

6859
6860

034054

034056
034064

034070
034074

001003

001403
10440f
123727

6861
6862
6863
6864

034102
034104
34112
034114

6866
6867
6868
6869

034124
034126
034132
034134

002420
021be7
003015
042726

6871
6872
6873
6874
6875
6876
6877
6878

034144
034146
034150
034152
034154
034160
034164
034166

001403
006316
006316
006316
00S266
0SE6I6
000667
104401

6865

6870

£879

034120

034140

034172

001003
012777
000002
004737

021627

00S766

000720

000001
145126

8s:
9g:

034547

000004
145054

001205
001135

000001

000100

145032

032344

000060

MOV
JMP

BEQ
148

000067
000060

000002

TYPE
cMPE

CHP

757

000002
177776

178:

001204

188:

BEQ
ASL
ASL
ASL
INC
BIS
BR
TYPE

6, SP
SINTAG,
s!

:;PICK UP CHAR

033774
034000

034006

ADD
cCMPB

:1G0 TYPE--OCTAL ASCII(ALL DIGITS)
: ! PROMPT FOR NEW SWR
: :CLEAR COUNTER
:ITHE NEW SWR
::CHAR THERE?
!2IF NOT TRY RGRIN

6839
6840

6841

000006
001135

TYPQC
TYPE
, SMNEW
CLR
Z(SP)
CLR
-(SP)
ISTB
38TkS
BPL
3

' ;SAVE SWREG FOR TYPEQUT

' 1 CLEAN UP STACK
! {REENABLE TTY KEYBORRD INTERRUPTS?

: :BRANCH_IF NO

(#U)

11§

: !BRANCH_IF YES

SCRLF
$INTAG,
sl

*IECHO <CR> AND <LF>
! !RE-ENARBLE TTY KBD INTERRUPTS?

: 1GAVE_NEW SWR
:ICLEAR UP STACK

: :BRANCH_IF NOT
' !RE-ENABLE TTY KBD
: ! RETURN
: 1ECHO CHAR

INTERRUPTS

(SP), #60

:ICHAR ¢ 07

2(5P)

1S THIS THE FIRST CHAR

178
(SF )
(SP)
(SP)
2(SP
—2(SP), (SP)
7%
$QUES

208

: !BRANCH IF YES
:1CHAR > 77
! !BRANCH IF YES
: :STRIP-OFF ASCII

: 'BRANCH_IF YES
1IN0, SHIFT PRESENT
:! " 'CHAR OVER TO MAKE
!
ROOM FOR NEW ONE.
! !KEEP COUNT OF CHAR
{ISET IN NEW CHAR
!!GET_THE NEXT ONE
LITYPE ?CCRY (LF)>

: 1 SIMULATE CONTROL-U

CZR6JED UNIBUS RK& DR PRT3

CZRBJE.P11

25-JAN-78 12:08

MACY11

sgeo

30R(1052)

.DSRBL

6882
6883

25-JAN-78

TTY INPUT ROUTINE

Cll

12:16

PAGE

132

SEQ 0132

LSB

2122222222223 2222322222223XX22222222322222 2222223222222 T

g gg

iggfis ROUTINE WILL INPUT R SINGLE CHARARCTER FROM THE TTY

ggg

6830

6891

034174

68395

034212
ggzgég

000002

6898
6899
6300
6901

(034220
03424
034226

sge

gggg

630

34176

034232
ogngo

011646

’

016666

000004

012746

034220

005737
001775
005337

033334

(17766
83 237

727

::uxTH SQEITY B?T srsxgpsg OFF

]

000002

033334
177102

000004

033340

033343

033340

$RDCHR:

MOV

cus

RTI

19:

(SP),-(SP)

s sPUSH DOWN THE PC AND

MOV

4y(spl,2(sP)

MOV

8648, -(SP)

1ST
BEQ
DEC

STKCNT
18
$TKCNT
3¥TK00¥T 4(SP)

CMP

$TKQOUT, osvxosno oxo

MOVB
INC

$TKQOU

::PUT NEW PC ON

STQCK

}'POP NEW PC AND PS

;s WAIT ON A CHARACTER
,,oecnsnsnt THE couursn
,,cs ?NE CHR
;R
: 1UPDA
THE POI ER

orr OF THE END?

2382 8345e3
°33525 -D88a32
oolgg; 033342 033340 2s.
5”5
egrxosnr $TKQOUT' $S
R SET%HEPOINTER
306
R
6907
l!!ll!l*llllillll»‘l!lll*llul»lll!i‘lllllllll!lll*!lilllil*ll!!llll
gggg
iEHIE ROUTINE WILL INPUT A STRING FROM THE TTY
< %

6310

6311

Egig
034264

6916

034e

6318

034300

6917

RETURN HERE

6914

6915

ROL IN

034298

034274

010346

00504
012703

022703

034520

$ROLIN:

MOV

1$:

MOV

034542

£950
034304 113613
6921 034306 122713 000:77

108:

101456

6922
ggsa

034312
gaagiu

001022
88?56?

6326
2327

034326
03:332

104401
015766

6330

034344

103434

6925 034323 112737 000134 034516
5952 834333 83032

034516
177727

034520

€932
H3uses 1o4an, 039216
6933 034356 000746
6934
6935

034360
034362

005716
001406

CLR

CMP

)

5% .

DDRESS OF FIRST CHQRQCTER WILL BE ON THE STACK

,,TERH NATOR WILL BE
A BYTE OF ALL 0'S
;

(5pP)

;nn HERUBOUT KEY

#$TTYINI22,R3

,,aurrsn FULL°

(SP)+, (R3)
2177, IR3)

i
R DR TER RACTER FROM THE TTY
i 5 A RUBOUT

csrrvxn R3

BLOS

BNE
53{

c§
égp)

9
F o
,,xs Tpxaorns FIRST RUBOUT?

TYPE
ng

9s’
351 (SP)

,,ssgxagsenugogr KEY

ROvE®
CMPB

MOVB
o5

R3,-(SP)

;3 INPUT
A STRING FROM THE TTY

£'\,9%

CMP

R3, #STTYIN

Tore
BR

BLO

TST
BEGQ

(5P)
7%

;;

IF YES

;;TYPE A BACK SLASH
:: TACK EMPTY?
iBR_IF YES

"25"#%?
TYPEOUT THE DELETED CHAR.
;GO READ ANOTHER CHAR.

,,RUBOUT KEY SET
;3BR IF NO

MARCY11l

79%:

000025

034547
000022

00120S
034520

TYPE

001204

4s:

034516
034516
000015

33:

$
$QUES

,,gopzxgxup ANOTHER CHACTER

[ ]

E ERR HE BUFFER _AND LOOP

kis, (R3)+

,,CHECK FOR RETURN

HO THE

3§

CHARACTER

;LOOP IF NOT RETURN

,,CL AR RETURN (THE 15)
; TYPE A LINE FEED

,,SEERN RUBSUT KEY FROM THE STACK
,,RDJUST THE STACK AND PUT ADDRESS OF THE
FIRST RSCII

.
.RS
.AS

20127

SMNEW:

.RSCIZ

VWV
W

STTYIN:
SCNTLC:
SCNTLU:
SCNTLG:
SMSWR:

gmmm

000
oocoie
0Q0
os11e?

CHARACTER ON

S?OHRCE
FOR RSCII CHAR. TO TYPE
,,TERINRTOR

U oe pa e

9s:

000002
000004

.EVEN

1) LF.

(33) 9s

TYPE

.SBTTL

: S TYPE THE TNPUT STRING

s L~~~

000004
034520

; s RESERVE 2, BYTES FOR TTY
; s CONTROL
*
; ;CONTROL “*U*”
; ;CONTROL “G*

INPUT

034572
034600

016666
012766
000002
000
000
0000e2
041536
13 6
043536
0 15
036440
020040
020075
034604

TYPE
BR
MovB
TYPE
CMPB

eLhe

1777277
001206

: BRANCH_IF
NO

.1 “YIH

L “u”

,,?LEQR THE_CHARACTER

NAAA

834

S' ASH

332 (R3)

034480

844418

R BACK

;BR_IF NO
$0NT

8%
$CNTLU

TYPE
gR
MPB
BNE
?LR

SEQ 0133

; iCLEAR THE RUBOQUT KEY
,.IS CHRARACTER A CTRL U”?

825, (R3)

C34406

tsp

CMPB

133
;; TYPE

et
o

834489

005016

YN N\

034376

PAGE

%'\, 9%
9s

034516

4
m
E

12:16

ROUTINE

ANNNMNVOO
)
nenco

834354 146531 B%a4Te

Dl1

25-JAN-78

30R(10S2)
TTY INPUT

CZREJED UNIBUS RK& DR PRT3
CZRBIJE. Pll
25-JAN-78 12:08

RERD AN OCTAL NUMBER FROM THE TTY

< 3606330303606 00 36 00 300 3000 0006 06 00 00000 00 0000 00 00 T3 000006 000600 00 0 330300

iTHIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY RND
lCHRN E 1

{THE

ERCTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL

NPUT CHR

; #0CTAL DIGITS IF_AN ILLEGAL CHRRACTER IS
WJILL BE TYPED
RERD A ° ’
; ¥FOLLOWED BY
A CARRIAGE RETURN-LINE EED. THE COMPLE E NUMBER MUST
iTHEN BE RETYPED. THE INPUT IS TERMINARTED BY TYPING R C :RRIRGE RETURN.
; #CALL
:

RDOCT

! 0W ORDER BITS ARE ON TOP OF THE STACK
! !HIGH ORDER BITS ARE IN SHIOCT

MOV

; ; PROVIDE SPRCE FOR THE
; s INPUT_NUMBER
; ;PUSH RO ON STACK
; ;PUSH R1 ON STACK

034604
034606
034614
034616

000004

000002

SRDOCT:

: sREAD AN OCTAL NUMBER

RETURN HERE

MOV
MOV
MOV

(SP),-(SP)

4(sP},2(sP)
RO, -(5P)

R1,-(SP)

CZREJEQ UNIBUS RK& DR PRT3
25-JAN-78 12:08
CZRBJ E .Pl1
034620

010246

MACY1l

Ell

PAGE 134
12:16_
30R(1052)
25-JAN-78
RE RD AN OCTAL NUMBER FROM THE TTY

(SP)+,RC

RO,SS
R1
R2
(RO, +,-(SP)
33
%’'0, (SP)
4s$
%’7,(5P)
at]
R1
R2
R1
R2
R1
R2
81C7, (SP)

034732
2%:
000060

000067

177770

000012
034742

; ;PUSH R2 ON STACK
; ;READ AN RSCIZ LINE
; ;GET ADDRESS OF 1ST CHARACTER
;s AND SAVE IT
;;CLEAR DATA WIRD

R2,-(SP)

19:

: ;PICKUP THIS CHARACTER
!'IF ZERO GET OUT
' !MAKE SURE THIS CHARACTER
115 AN OCTAL DIGIT

;%2

;3 R4

; ;%8
; ;STRIP THE RSCII JUNK
;;RDDPIN THIS DIGIT

(SP)+,R1

;:LOO

28
(SP)+
R1, 12(SP)
R2 SHIOCT

39:

; ;CLEAN _TERMINATOR FROM STACK
1 ;SAVE THE RESULT

(SP)+,Re

; ;POP STACK INTO R2
; ;POP STARCK INTO Rl
; ;POP STRCK INTO RO
: ! RETURN

(SP)+.RI
(SP)+.RO

001204

o34742

!!TYPE UP THRU THE BAD CHAR.

cs:

$HIOCT:
.SBTTL

000000

! {CLEAN PARTIAL FROM STACK
'!SET A TERMINATOR

(SP)+
(RO

4s:

;

$QUES

is
BR
0
. WORD
DOUBLE LEN GTH

S o 3NN

SEQ 0134

;

“CR.'

L] , L]

'.LF.I

;3 TRY AGRIN

-.H

IGH ORDER BITS GO HERE

BINARY TO O&TAL ASCII
T

CONVERT ROUTINE

RN NN RN

:4THIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY NUMBER TO AN
¥UNSIGNED OCTAL RSCIZ NUMBER.

OO
= NNNO
L
O0L£0000000
nn—DWLEN—W

03477¢

O—-0000000
s et ) bt Pt s Pt ot pes O

034744

oouvninnhuno
£

¥CALL

000002
035063
000014
177770

*
;B
*

MOV
JSR
RETURN

$0B20:

SAVREG
MoV

$PNTR, - (SP)

pC, a#dDB20

; ;POINTER _TO LOW WORD OF BINARY NUMBER
; ;CALL THE ROUTINE
; s THE RDDRESS OF THE FIRST ARSCIZ CHAR. 1S ON THE STACK
; ;SAVE ALL REGISTERS

; ;PICKUP THE POINTER TO LOW WORD
; ;POINTER _TO DATA TABLE

;;DgsELEVEN CHARACTERS

i s

19:

MASK

; s LOWER WORD
; sHIGH WORD
; ; TERMINATOR
; ;PUT CHARACTER IN DATA TABLE
;;GET THIS DIGIT

CZRGJEOC UNIBUS RK& DR PRT3
CZRBIE.PI1
25-JAN-78 12:08
7048
7049
7050
7051

035000
035002

005304
003007

7054

025016

000207

7059
7060
7061
7062

5030
035032
035034
035036

0060
006001
006000
040302

035044
035046

000753
000016

7055
7056
;835

7063
7064
7065

7086

I'4

035004
035006

0350
045022
832852

035040

F1l

MACY11 3DA(1052)
25-JAN-78
12:16
PAGE 135
DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE

001405
005205

006203
006001
832380

062702

2%:
38:

000060

DEC
BGT
8EQ
INC

RY
33
2s
RS

; ;COUNT THIS CHARACTER
::BR IF NOT THE LAST DIGIT
P'BR IF IT IS THE LAST DIGIT
{1ALL DIGITS DONE-ADJUST PQINTER FOR FIRST

RTS

ASR
ROR
sgg

R3
R1
29

S 'RETURN TO USER

ROR
ROR
ROR
BIC

RO
R1
RO
R3,R2

: sMASK OUT ALL JUNK

BR
.BLKB

18
I4.

:3GO PUT IT IN THE DATA TABLE
: :RESERVE DATA TABLE

RDD
SOCTVL:

.SBTTL

20E3

::POSITION THE MASK FOR THE LAST DIGIT
: POSITION THE BINARY NUMBER FOR
;
THE NEXT OCTAL DIGIT

s’0,R2

: IMAKE THIS CHRR. ASCII

DOUBLE LENGTH BINARY TO OECIMAL ASCII CONVERT ROUTINE

L THTS ROUTINE
WILL CONVERT
A 32-BIT BINARY NUMBER TO AN LNSIGNED
UTINE
WILL
v

SkTH

;8;?

E:ggg§¥?bgtn5011) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE

7072

: #CALL

;8;3

;8;9
7079

035064

7081

035072

7080

104413

035066

016602

7084
7085

035104
035106

012202
012737

7088

035124

7086
7087

?85

‘x

RETURN

$DB2D:

SAVREG

7075

7078

012700

000002

035244

000012
035179
035176

035114
035120

012704
012705

7089
7090
7091
7082
7083

035126
035130
035132
035134
035136

161401
005602
161502
002402
005203

23:

;832

gggi:s

gggggé

3%:

7094
7087

035140

000772

035146

062402

035152
035186
035160

0S2703
110329
005327

035ie4

001357

70S8

035150

7102

035162

7099
7100
7101
7103

005003

022525

000000

18:

4g:

;IS ON THE STARCK

MOV
MOV

(R2)+,R2
#10.,48
2§ TNPWR, RY
#3TNPWR$2,
RS

MOV
MOV

CLR

SuB
SBC
SUB
BLT
INC

#SDECVL RO

(R4),R1
R2
(RS),R2
3%
R3

ADD

(RY4)+,R2

BIS
MOVB
DEC

#’0,R3
R3, {RO)+
(P&)+

ggg

.WORD

BNE

: sPOINTER TO LOW WORD OF BINARY NUMBER

;s THE FIRST ADDRESS OF ASCIZ

2(SP),R2

CMP

000060

’

MOV

MOV
035162

;gnggsaégg)

égq)+,nx
(RS)+'

(RS)+

: ; SAVE

REGISTERS

P'PICKUP THE DATA POINTER

:1GET ADDRESS OF “SDECVL" STRING

'
:sSET UP TO DO 10 CONVERSIONS
: :ADDRESS OF TEN POWER

; sCLEAR PARTIAL

:'SUBTRACT TEN POWER
:;BR IF TEN POWER TO LARGE
:ADD 1 TO PARTIAL

iLo0P

' 'RESTORE SUBTRACTED VALUE
: sMOVE

TO NEXT

TEN POWER

' 'CHANGE PARTIAL TO RSCII
PISAVE IT
: 'DONE?
:;BR

SEQ J13S

OO0 OO

035202

NINNNNNNN NN NN NN NN N

NN NN NN N NN NI NN N NN NN N NN NN NI NN

N N NI NN NI NI NN

035166
035170
035172
832174

NONONONNNN L £ T E Lo £ £ L EE 6000 00 0 WINPT
PO b
i bt
b pmse ee Pt
b Pt
1 Pt
e
Pt e v

NN
V0
oo

UNIBUS RK& DR PRT3
11
25-JAN-78 12:08

176
035200

035204

Gll

MACY1l 30A(1052)
25-JAN-78
12:16 PAGE 136
DOUBLE LENGTH BINARY TO DECIMAL RSCII CONVERT ROUTINE

105020
109414
000207
64500
03863
160400

CLRB
RESREG
75
$TNPWR: 145000
35632
160400

002765

113200

041100

.+ 1.0E06

103240

::1.0EOS

23420

s s 1.0EOM

1750

::1.0€E03

144

;3 1.0E02

;;1.0E01

::1.0E00

035212

000017

041100
103240

000001

035222

060000

35220

001750

352

000144

035226

035232

035234

035236

035240
035242

035244

023420

035224

:;1.0€08

.3 1.0E07

230

035216

113200

000230

035214

s s TERMINATOR
: 'RESTORE REGISTERS
: 'RETURN
:11.0E09

2765

oagg

035210

(RO, +

000000

000020

000000

000012

000001

000014

$DECVL:

_SBTTL

.BLKB

12.

. . RESERVE STORAGE FOR ASCIZ STRING

SINGLE LENGTH BINRRY TO DECIMAL RSCIZ ROUTINE

H 363 3 36 36 36 38 36 36 36 36 36 3 3 3 3% 3 3 3 3 3 3 36 3 36 36 3 3 36 36 36 36 3 36 3 36 3 3 3 3 3 3 3 2 36 36 3 3 3 3 I 3 36 3% 3 3 2 3 3 3 3 % %

'4THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN

;:ggfficnso DECIMAL RSCIZ NUMBER.

MOV

RETURN

$SB2D:

MOV

2(sP),

ADD

85’ (SP)

035260

035266
035272
035276

016637

000002

062716

000005

012746
004737

035302

012666

035310

000000

035306

000207

035310
035064

035310

000002
000000

JSR

MOV
JSR
MOV

18:

_SBTTL

RTS

.WORD

NUMBER, - (SP)

PC, 3885820
18

818 -lSP)
PC, a#8DB2D
(5P)+,2(SP)

0,0

; sPUT BINARY NUMBER ON THE STACK

:1CALL

' 'ADDRESS OF THE 1ST ASCIZ CHAR.IS ON THE STACK

: s SAVE BINARY NUMBER

::SET POINTER
:'CALL DOUBLE LENGTH CONVERT
:ONLY ALLOW FIVE CHARACTERS

P PICKUP POINTER
: 'RETURN

TYPE NUMERICAL ARSCIZ STRING SUPPRESS LERDING ZEROS

; o 63 0 063636 3 36 3 3 36 36 36 3 3 36 36 36 36 36 36 3 36 36 36 36 3 36 36 36 3 3 36 3 3 3 3 3 3 36 3¢ 3 3 3 3 3 3 3 3 3 3 3 3 2 3 2 3 3 2 2 4 ¥ ¥

'§THIS ROUTINE IS USED TO TYPE AN ASCIZ NUMBER SUPPRESSING THE
;:EEEEING NUMBERS.

035314

010046

035322
035324

105710
001403

035316

016600

000004

:
L¥

MOV
JSR

SNUMADR, -(SP)
PC, a8SS(PRS

$SUPRS:

MOV

RO, - (SP)

18:

1578
BEG

(RD)
2%

MOV

4(5P) RO

;;FIRST ADDRESS OF ASCIZ STRING
: sSAVE RO

1IPICKUP THE POINTER
. i TERMINATEOR?
::BR IF YES

SEQ 01386

CZRBJED UNIBUS RKE DR PRT3

CZR&JE.PI11

25-JAN-78 12:08

7160

7155 83%332 681?§g

03532

000060

7162

7163
7164
7165

035334

005300

035344

7166

035346

012600

7167

leg
?igo

035336
035342
035344
035350

035352

010037
104401
000000

MACY1l

30A(1052)

MPB

cs:

012616

.SBTTL

: kCALL

7173

71749

;i;g

7178

035354
035354
035356

010246

035364
035370

016601
100002

7190

035372

7135 83 40

DEC

MoV
TYPE
.WORD

MOV

8’0, (RO)+

(SP)+, (SP)

; ;RESTORE

035404

005046

MOV

sRESTORE RO

THE

STACK

MULTIPLER,-(SP)

RETURN

;;PRODUCT IS ON THE STACK

i
i#
]
;#

STACK
meeme
TOP
+2

PRODUCT
ee—e—eLSB’'3
MSB’S

MOV
MOV

RO, -(SP)
R1,-(SP)

; s PUSH RO ON STACK
; ;PUSH R1 ON STACK

CLR

-(5p)

;iCLERR

(SP)

; ;SET

JSR

MOV
00001z

MOV
BPL

005216

INC

PC,a#SMULT

R2,-(SP)

12(SP),R1
13

168805

BPL

és

cs:

NEG
MoV

R2
%17.,-(SP)

00S316

DEC

(SP)

3%:

BCC

4§

7200
7201

035422
035424

6000
006001

4§:

ROR
ROR

RO
R1

035432

022616

035414
Q3S4e

035426
035430

005000

ADD
DEC
E {E

001403
005400
005401
005600
(005726
010066
010166

7213

035460

012601

035464

000207

035462

CLR

005316
001372

035434
035436
035440
Q35442
035444
035446
035452

035456

000021

0200

7205
7206
7207
7208
7209
7210
Zell

7215

;

RT?
PC
; s RETURN
INTEGER MULTIPLY ROUTINE

103001

7el4

; BACKUP BY 1"

(SP,+,R0O

03541

72le

7198

7204

; ;SAVE FOR TYPING
;GO TYPE
;;RgC*Z POINTER GOES HERE

Sogwog
12746

7202
7203

THIS AN ASCII

RO, 3%

8324
41

7199

;;68 Ir YES

?192
719
7197

SEQ 0137

MULTIPLICAND,
- (SP)

SMULT:

Q10046
0iC. 16

035360

035362

7194

137

MOV

;¥

pig7

7188
2189

PAGE

R II2EE2ICIT2ZIRTIIRIT
ISR
LIRSS 2222322222222 222222 )

7172

7185
7186

SEQ
MOV

000207

H1l

12:16

TYPE NUMERICAL RSCIZ STRING SUPPRESS LERDING ZEROS

38:

72171

7178
7179
7180
2181
7182
7183
7184

25-JAN-78

012602
012600

Ss:

R2,R0O

ON STACK

THE SIGN KEY

;3GET
THE MULTIPLICAND
; BR_IF PLUS
_THE

SIGN

3585 IF BLUg

; ;UPDATE

THE

KEY

SIGN

KEY

; iMAKE _THE M bTéPngR POSTIVE
;3SET THE LO
OUN

; ;SETUP

FOR

;;PDON’T ADD

THE

MULTIPLY

LOOP

IF MULTIPLICAND = O

; ;POSITION THE PARITIAL
; 3 THE MULTIPLICAND

BEQ
NEG
NEG
SBC
TST
MOV
MoV

S§
RO
R1
RO
(SP) +
RO, 12(SP)
R1,10(5P)

;G0 _TO _EXIT IF NO
; ; YES--S0 MARKE IT SO

; ;CLERR SIGN INFO. OFF OF STACK
; ;PUT THE PRODUCT ON THE STACK (MSB'S)
;;LSB’S

MOV

(SP)+,R1

:;POP STACK

RTS

MOV
MOV

(5P)+,R2

(SP)+,R0O

THE

AND

; ;HAS ALL BITS
; ;BR _IF NO

(SP)Y+, (SP)

PRODUCT

(SP)
33

CMP

000012
000010

’

; ;PUSH R2

MULTIPLICAND

BEEN

; :SHOULD PRODUCT BE NEGATIVE”?

; :POP STACK INTO R2
INTO Rl

; ;POP STACK INTO RO

DONE”

CZQSJEO UNIBUS_RKE DR PRT3
CZREJE.P11
25-JAN-78 12:08

MACY1l

I11

30R(10S2)
25-JAN-78
12:16_
PAGE
SAR/E AND RESTORE RO-RS ROUTINES

noronirorv
U+
b s e
owuoNNer

NNNNN

.SBTTL

SEQ 0138

SAVE AND RESTORE RO-RS ROUTINES

33636 3036 336 3636 36 36 336 I 38 0000060036

tsnvs RO-RS
ICQLL'
!

138

JE 06060 0 0

SAVREG

;upon RETURN FROM $SAVREG THE STACK WILL LOOK LIKE:

;Top-—-(+1s)

1k 4p---(418)

; %

+4---RS

i# +6---RY
;% +8---R3
i #410---R2
; #412---R1

; ¥+414---R0O
7233
7234
7235
7236
7237
7238
7239
7240
7241
7242
7243
7244
7245
7246
7247
7248
7249

7250
7251
725¢

7253
7254
7255
7256
7257
7258
7259
7260
726l
7262
7263
7264
7265
7266
7267
7268
7269
72?0
7271

035466
035466
035470
035472
035479
035476
035500
035502
035506
035512
035516
035522

$SAVREG:

010046
010146
010246
010346
010446

010546

016646
016646
016646
016646
000002

MOV
MOV
MOV
MOV
MOV
MOV

RO, -(SP)
RL,-(SP)
R2,-(SP)
R3.-(5P)
RY.~(SP)
RS, -(SP)

: :PUSH
{:PUSH
:"PUSH
.;PUSH
:PUSH
; 'PUSH

MOV
MOV
EQY

22(5P) ) -(5P)
22(SP) . -(5P)
22(SP) . -(SP)

::SQVE PC OF MAIN FLOW
;:SAVE PS OF CALL
1 SAVE PC OF CALL

MOV
MOV
MOV

(SP)+,22(SP)
(SP)+.22(5P)
(SP)+,22(5P)

; ;RESTORE PC OF CALL
; iRESTORE PS OF CALL
TORE PC OF MAIN FLOW

MOV

(SP)+ RS

MOV

000022
000028
000022
000022

22tspP), -(sp)

RO
R1
R2
R3
R4
RS

ON
ON
ON
ON
ON
ON

STACK
STARCK
STACK
STACK
STACK
STACK

P'SAVE PS OF MAIN FLOW

%¥RESTORE RO-RS
035S5ed

035524
035530
035534

035540
035544
035546
035550
035552
035554
035556
035560

0l2666
012666
Q0leebb

012666
012605
012604
Q012603
012602
012601
012600
0000062

000022
000022
000022

$§RESREG:

RESREG

MOV

000022

MOV

'POP STACK

INTO RS

:1pOP STACK INTO R4

(SP)+ R1

:'POP STACK INTO R}

(SP)+.R3
(5P)+.R2

ngg

(5P)+ RO

,,RESTORE PS OF MAIN FLOW

(SP)+.RY4

MOV
MOV

MOV

.SBTTL

(SP)+.22(5P)

;;POP STACK INTO R3
‘POP STACK INTO R2

:1POP STRCK

INTG RO

TRAP DECODER

o 36963330 06 06 00 06 36 3000 06 36 00 00 06 006 30 30 30 00 00 00 00 3030 00 00 00 0 030 3000 06 00 30

000 3000 30 30 003030 3000 30 20

30 30 00 2

iTHIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP"” INSTRUCTION
:¥AND USE _IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADORESS
:#0F THE_DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL
;%GO TO THAT ROUTINE.
035Seke
035564
03S570

010046
016600
00S740

000002

$TRAP:

MOV

RG, -{3F)

TST

-(RO)

MOV

2(8pP) RO

:SAVE RO

:'GET TRAP ADDRESS
::BROKUP BY 2

CZRLJED U?IBUS RK& DR PRT3
CZRBJE.P1
25-JAN-78 12:08
035572
035574
035576
035602

111000
006300

016000
000200

11646
016666
oooooe

MACY11

30R(10S2)

TRAP DECODER

MOVB
ASL
MOV
RTS

035616

000004

25-JAN-78

000002

J11

12:16

(RO),RO
RO
§TRPAD(PO),RO
RO

;:THIS

IS USE TO HANDLE

STRAP2:

MOV

;%THIS

‘%BY

§TRPRD:

SEQ 0139

:;GET RIGHT BYTE OF TRAP
::POSITION FOR INDEXING
;:INDEX TO TABLE
::GO TO ROUTINE

4(SP),2(SP)

; sMOVE THE PC DOWN

: IMOVE THE PSW_DOWN
: 'RESTORE

THE PSW

TRAP TARBLE
TRBLE

THE

;

139

THE “GETPRI” MACRO

(SP),-(SP)

MOV

.SBT1.

PARGE

CONTRINS

“TRAPTM

THE

STARTING ADDRESSES

INSTRUCTION.

THE

POUTINES

CALLED

ROUTINE

.WORD

STRAP2

03S616
035620
035622
035624
035626
03se30

035604
032132
033132
033106
033146
032414

035632

033722

SGTSWR

035634
035636
035640
035642
035644
035646
035650

033632
034174
034264
034604
035466
035524

SCKSWR ; ; CALL=CKSWR
SRDCHR
; ; CALL=ROCHR
SROLIN
;;CALL=ROLIN
$ROOCT
; :CALL=RDOCT

TRAP+7(104407)
TEST FOR CHANGE IN SOFT-SWR
TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE
TRAP+11(104411) TTY TYPEIN STRING ROUTINE
TRAP+12(104412) READ AN OCTAL NUMBER FROM TTY

$RESREG ;;CALL=RESREG
SCOP1S
;:CALL=SCOP!I

TRAP+14(104414)
TRAP+1S(104415)

030360

S$TYPE
STYPOC
$TYPOS
STYPON
§TYPDS

;;CALL=TYPE
;;:CALL=TYPOC
;:CALL=TYPOS
;;CALL=TYPON
;:CALL=TYPDS

TRAP+1(104401)
TRAP+2(104402)
TRAP+3(104403)
TRAP+4(104404)
TRAP+5(104405)

TTY TYPEOUT ROUTINE
TYPE OCTAL NUMBER (WITH LERDING ZEROS)
TYPE OCTAL NUMBER (NO LEAOING ZEROS)
TYPE OCTAL NUMBER (AS PER LAST CALL)
TYPE DECIMAL NUMBER (WITH SI3N)

; ; CALL=GTSWR

TRAP+6(104406)

GET SOFT-SWR SETTING

$SAVREG - CALL=SAVREG

TRAP+13(104413) SAVE RO-RS ROUTINE

RESTORE RO-RS ROUTINE
INTERNAL LOOP ON ERROR

035652

MACY1l 30A(1052)
TRAP

00s01s

227 vt2 SEZRZRZZA
PNNOOMNIN.L L0 = Ut
h = V= = NO U b bt s bt e L= O RIRRIRET
“H._J:D.-mmr—b—b—v—o—m
ERONCRRRLO0 LAON—=NYO-MNNY
L0 BRne 2 oSSR
IO RRARES
0s00

036314

TABLE

25-JAN-78

K1l

12:16

PRGE 140

SEQ 0140

.SBTTL

SERVICE MESSAGES

MSG1:

.ASCII

(CR><LF., UNIBUS RKO6-RKO7 DRIVE DIAGNOSTIC--PART 3~

.ASCII

(CR> <LF>/CZR6JED/<CR> (LF>»

.RSCII

(CRY<LF>/

.RSCII

(CR><LF>/THIS PROGRAM SHOULD

.ASCII

<CR><LF>/0OTHERWISE CRRTRIDGE FORMATTING AND,

.ASCII

(CRY><LF>/MAY BE LEFT IN AN UNDETERMINED STRTE~/<CR><LF>

.RSCI1I

<CR>(LF>/INITIALLY, DRIVES TO BE TESTED SHOULD HRVE: "<CR><LF>

.ASCII

‘CR><LF>/R.

#aneet CRUTION =mux%/(CR><LF.

BE HALTED ONLY BY TYPING CONTROL-C

OR THE DEVICE~

042504
020131
043105
040440
o42504
047111
o40Se4

NNNNNNNNINY
WWWwWwwWwwwww
) b s bt s e Pt Pt n P
OO
LW

cZRBJED UNIBUS FK& DR _PRT3
CZRBJE.PLL
25-JAN-78 12:08

046040

HERDS MANUALLY LORDED

CZRBJEQ UNIBUS RKe DR _PRT3
CZRBIJE .Pll
25-JAN-78 l2:
0363ce
036325
036332
036340
036346
036324
036357
036364

042504
015%

MARCY11l

30R(10S2)
25-JAN-78
SERVICE MESSAGES

020056

047503
020124
0S1440
o4asSeN
01S

gsile?

S
0S1104
g4esee
047111

.
VLW
NO
L VALt S NYot
10, [ SR S T, |
o= OO =~
0
NWRINNW ENW

2223 22993 29

Q
0000

e pa

=N
LM
(e

NGW—- OOV Rin NOoOWoO—nNwWwEornN

-NNo
L L0
NITININTYN
PP oS Oy ¥ =

MSGe:

o4asey

.RSCII

<CR>(LF>‘B.

CORRECT PORT SELECTED/

.RSCII

(CR.<LF>/C.

WRITE LOCK DISRBLED~

.RSCI1

<CR><LF>/D.

DRIVE RERDY INDICATOR ON/<CR><LF>

.RSCII

<CR>(LF>/DRIVES NOT

.RSCI2

«CR> <LF>/BOTH PORTS DESELECTED/<CR><LF>

.ASCI1I

<CR> <LF>/CHANGE XXDP PRCK~/

.ASCIZ

<CR><LF>/CLERR LOC 40,RESTART PROGRRM-

TO BE

TESTED MUST HAVE~/

TO BE TESTED:

Qs3111

MSG3:

.RSCIZ

<(C>«LF>/DRIVE(S])

o42S20

MSGH:

.RSCIZ

«CR> <LF>~/TYPE BUSS RDDRESS IF NOT 177440:

MSGS:

.RSCIZ

<CR’<LF>/TYPE CONTROLLER INTERRUPT VECTOR IF NOT 210:

052040
052040
035104

0s45ed
051525
0S110M4
043111
030440
035060

020040

gseole

0S013!

046114
052116
052120

051108
053040

047503

036744
C3e7s2

SEQ@ Oiv!

14!

020131

047524
005015
00S01S

036543

PRGE

04?7514
0SiS1l1
6 Y

036540

L11

12:16

CZRBJED UNIBUS Rk DR PRT3
CZRBJE Pl1
25-JRAN-78 12:08

MACY11

30R(10S2)
25-JRAN-78
SERVICE MESSRGES

A R R 5 BER1£5
0370eC

2431

037046

83?054

7432
7433

037062
037070

7439

037126

7430

743 837103
nE S
7438
7440

71e1l

037134

744
7444
7445

7
037160
037166

MSG?:

.RSCIZ

<CR><LF>/DRIVE O WILL NOT BE TESTED/

MSG8:

.RSC1Z

<CR> (LF> /INTERLOCKS TEST/<CR><(LF>

04650S
04712S
g4610S
o46120

MSG9:

.RSC1Z

<CR><LF>/REMOVE UNIT SELECT PLUG~

044527
051508
0s3111

MSG10:

.ASCIZ

<CR> (LF><LF>/WILL TEST DRIVES:~/

MSGl11:

.RASCIZ

(CR><LF><LF>/POWER UP RESTART TO TEST 1/<CR><LF>

MSGle2:

.RSCI2

E
7 (CR> <LF>
/NON

MSG13:

.RSCII

(CRY«LF>/NO L OR P CLOCKS PRESENT~

.RSCIZ

(CRY<LF>/ALL

MSG14:

.RSCIZ

(CR> <LF> /BYPRSSING DRIVE

MSG1S:

.ASCIZ

«CR> <LF><LF>/DRIVE

053111

MSG16:

.RSCIZ

(CR>(LF>/DRIVE

047040

Q44See
027117

040S03

OSelee

MSGL17:

.RSCIZ

(CR><LF>/CARTRIDGE SERIAL NO.

0
0Selle
045503
0s2123

£ LO—M0O
£
OO UNIW NO UY

£
~

OOUNTON—r—
QO+
L~ 0N

ROEZn8om

037214
037238
Q

7449
7450

<CR>.LF)>/INTERRUPT OCCURRED AT PC=/

ZRAR

8 S
At

o4e0le
000040

7475

037416

SEQ Jl42

.ASC1Z

gsiiee

ar R

142

MSGE:

04eSeu
Oc0ley
QSliize
Ge0leM

SEar8 RARR 2222

7426

037
037012

PRGE

020072

RaSAS

7424
742S

037

o
O
U
)
[N oL

7423

M1l

12:16

TIMING TESTS BYPARSSED/

SERIAL NO.

Q44522
042523

Q43504
o44s2e2

046120

02010S
046101
CJ0040
gselll
04150S
043525
00654

N1l

12:16

PRGE

143

SELECT

SEQ 0143

MSG18:

.RASCIZ

(CR> <LF>/UNIT

0sele2
041505
052040
00s01S

MSG1S:

.RSCIZ

(CR><LF>/PORT SELECTION TESTS/(CR><LF>

020103
042504
047511
052123
0201e4

MSG2l:

.RASCIZ

<CR><LF>/AC LOW DETECTION TEST-PART

MSGae:

.RSCIZ

(CR> <LF>/NON-EXECUTRBLE FUNCTION

MSG24:

.ASCIZ

(CR>LF>/WRITE

MSGeb:

.ASCIZ

(CR><LF>/AC LOW DETECTION

MSG27:

.ASCIZ

<(CR>(LF><LF>/ALL DRIVES TESTED/<CR><LF><LF>

LOCK

PLUG

TEST/<CR><«LF>

1/<CR><LF>

(NXF)

DETECTION TEST/<(CR><LF>

TEST/<CR><LF>

0400SH4
040062
040070
040076
guoloM

n
n) L
Lwne —
\Jmmo-mauomg;

mlale

nnr
£
—
O
~N
nN—No
o PO
— P
O M) o=
£

NNNNNNNCNN
unnnunnninn

N
W

0374eM
037432
037440
037446
03748y
037462
837470
037476
037500
037506

30R(10S2)
25-JAN-78
SERVICE MESSARGES

MN—00
LW—ILW

7476
7477
7478
7479
7480

MACY11l

===
LWL

CZREJED UNIBUS RK& DR PRT3
CZRBJE. Pll
25-JAN-78 12:08

042040

oooole
044522
0475817

TEST-PART 2/<CR><LF>

MSGe8:

.RSCIZ

<CR><LF>/MULTIPLE DRIVE DETECTION TEST/<CR><LF>

MSGEs:

.ASCIZ

<CR> <(LF> /PLERSE

MSG30:

.ASC1I2

‘CR> <LF>. VERIFY DCOR CAN NOW BE OPENED & LEARVE

WRIT,

HERADS BEING LORDED/<CR><LF>

1T OPEN-‘CR:<LF>

g
o
bR e e m L S e
NO
NEWw—un

NN W——00
== MNO
L U=
nN

‘Dflme oLt

042526

8.‘:»—0—0—[\){00—8
RR R
LS
VI VT, |

047518

E
VIV

05010S

047111

042523

047504

051117

042012

050105

7
Q40572
040573

005015

g2
020047

n
U
onn

—

g40s03
020127
042520

0s1

30A(1052)
25-JAN-78
SERVICE MESSAGES

Ble

12:16

PAGE 144

SEQ 0144

N—nnyi-—
Y
) TM
M~ rLonoe

CZREJEO UNIBUS RK& DR PRTJ
25-JAN-78 12:08
CZRBJE .P11

MARCY1!

(CR>(LF>/?/<CR>(LF)>
<CR><LF>/REMOVE DISK

MSG31:
MSG32:

.ASCIZ
.ASCIZ

MSG33:

.ASCIZ

MSG34:

.ASCIZ

MSG35:

.RASCIZ

MSG36:

.RSCIZ

(CR> <LF>/INSERT DISK PACK,

MSG37:

.ASCIZ

(CR> <LF>/DEPRESS SPACE BAR WHEN FINISHED/<CR><LF>

<CR><LF>/DEPRESS

PACK

’'RUN-STOP’

SWITCH TO

(CR><LF>/VERIFY SPINDLE DOES NOT

(CR><LF>/DEPRESS

’'RUN-STOP’

DOOR/

'RUN’

WHILE DOOR OPEN/

START & HEADS DO NOT LORD/<CR><LF>

SWITCH TO

DEPRESS

'RUN'

WHILE CARTRIDGE REMOVED~/

'RUN-STOP’

°"RUN’

8 CLISE DOOR/

CZRBJED UNIBUS RK& DR PRT3

CZRBJE.P1!L

25-JAN-78 12:08

MACY11l

7588
7589
7590
7591
7582
7533

040600
040606
040614
040622
0OM
040636

042522
040520
0S1101
020116
044123
000

0S1523
042503
0S3440
Q44506
042105

051440
041040
042510
044516
005015

7596
7597
7598
7599

040652
040660
QO406E6
040674

052111
045505
43525
2011?

Y4yie
020124

051440
020124
2;1 3
é 1

051516
Q04712%

046108
046120
044440
020131

015

052012

042510

047522
O0S3440
041505
042510
8%01
2103
020107
O0S1105

051107
046111
047S10
0QSe440
p4ese3
050040
052516
005015

D15

042012

0S010S

Q4eNSS

0Se0M0

020117

7S94
7595

Q40637
040644

015
051105

7600

040702

7602
7603
7604
7608
7606
7607
7608
7609
7610

040714
040722
040730
040736
040744
0Y07%2
040760
040766
040774

O0S0040
046501
020114
0S2040
049216
(Q4e51Y
052514
OM1115
000

041
041010

o4
2;
04711

7601

7611

0M077S

7614

76l
7613

7617

041040

7621

8410?6

7623

0M1102

7626
7627

7630

7618

7e2e
7624
7625

7631
7632
7633

7634
7635

111

040707

041046

O00S01S

051523
pSlied

047526

041440
046117

052514

0S3040

0250&8

405&2

051117

043511

047111

041124
041138

USEIO;
0§0§0

0S0040
151

0Se2S14
44440

8:11

041110
0OM1116

116
041166
041174

Q41202
041210

0S14

046101
Q020124

1
0S1117
052440

O0OSI4M0
020ied4

2440
042523

Y4 ?

3
020124
ese

046105
050117

046101

McEC3P

041240
041246
041254
(041262
041270

042514
(047522
Q0c!'17
042523
041440

0S2103
043516
020124
042514
O0S1117

cle

12:16

PAGE 145

SEG Q1u4S

.ASCII

<CR,<LF>/INSERT UNIT SELECT PLUGS,

IN ANY ORDER~/

.ASCIZ

<(CR>(LF>/THE

UNIT

MSG33:

.ASCIZ

<CR>(LF>/DEPRESS CONTROL-E TO EXIT TEST/<CR><LF>

MSGH40:

.ASCII

<«CR><LF>/VOLUME VALID NOT SET/

.ASCIZ

<(CRY(LF>/MAKE SURE ORIGINAL UNIT SELECT PLUG IS INSERTED/<(CR><LF>

.ASCIZ

<CR><LF>/DESELECT PORT IN USE & SELECT OPPOSITE PORT/(CR><LF>

42513

2010S

PROGRAM

WILL

ECHO

THE

SELECT

PLUG

NUMBER/(CR><LF>

044516
042514

48828

5004
47111
023040

MSG41:

041505
047520

7638 041253 005015 8425 4 042523 MSGH2:

7639
7640
7641
7642
7643

25-JAN-78

SERVICE MESSAGES

lee

042515

41074

30A(10S2)

0S3440
0S0O040
020046
052103
042522

.ASCIZ <(CR>(LF>/DESELECT WRONG PORT 8 SELECT CORRECT PORT/<CR><(LF>

CZR6JED UNIBUS RK& DR PRT3
CZR6JE.P11
e5-JAN-78 12:08

MACY!1

30A(10S2)
@25-JAN-78
SERVICE MESSAGES

7646 041310 002315 89250H 042523 MSGH43:

7647

041316

;6:8

0:1384

7651

042514

0sell?

0S2103

110

047520

gégbgg gg??fig 898216 MSGY4:

;ssg

041354

04eSee

052103

7655
7656
7657
7658
7659
7660

(041376
0OMIMOM
0OMIM12
041420
Q41426
041434

041505
052122
0SI440
042524
0S4Se2
047111

0124
700
046105
026104
040440
00S01S

047520
0S2l117
04150S
052040
040507
000

7662
7663
7664
7665
76bb
7667
7668
7669

D41446
841459
41462
041470
041476
041504
D41S12
041520

04311%
USlél
0O47S16
047440
020104
047516
O0M1522
000

020131
41440
20124
042520
042050
029124
024505

0S1105

047504
83?101
2502
042516
020117
047506
005015

767
767
7674
7675

41
1 gs
41
041556

0S201”
311

1
11
(042116

Y
4304

051125
20%09

7677

04157c

000012

767
7680
7681
7682

7683
7684

1 08
4161
091616
041624
041632
(041640

4y
1
062111
020103

020122
7%42

4103
047520
040502
000116

7686
7687
7688

041652
841260
Q41666

O Sl &
g 1
2

05110
ng e
g

7691
7632
7693

041710
041716
041724

042S15
020124
052103

0S2440
042523
0S0040

7224 8313?5

7661

7670
7671

7676

767

7685

7689
7690

0O4144]

0M1521
041526

041564

1574

(41644

041674
041702

1440

7698
7699

Q41746

041754
D41762

SEQ 0146

.ASCIZ <CR.<LF>/SELECT CORRECT PORT/<CR><LF>

O0S1117

058040

6ig 889283 881?55 MEGYS:

.ASCIZ <CR><LF>/CORRECT PORT NOT SELECTED, TRY RGARIN/<CR><(LF>

01S

MSGH47:

.ASCIZ

<CR><LF>/VERIFY DOOR CANNOT BE OPENED

MSGH9:

.ASCIZ

<CRY(LF>/TURN OFF AC POWER FROM BEHIND THE RKOB/<CR><LF>

% 5

MSGSO:

.ASCIZ

<«CRY(LF>/WAIT 30 SEC 8 SWITCH RC POWER BACK ON/

0475158

042515

MSGSLl:

.ASCII

<CR><LF>/MOMENTARILY REMOVE &

051105
020105

020124
040523

015
Oé 1}

O0S1040

0S30l2

0S2040
030113

S01

051516
044124

Q47526

0S3N4C
005018

0S2514

046101
000

(DO NOT FORCE)/<(CR><LF>»

1
228
451
042510

006466

4
63523
040440
Q42527
045503
46111
7515
44440

044516
042514
0S2-'Y4

;Egg 83{;32
A9z 520
2] ¥4
7838 Du1o38 ouasss Oasos3 Qs 14
269?

PAGE 146

.ASCIZ <(CR><LF>/DESELECT BOTH PORTS/<CR><LF>

041040

rd 28 gzi

Dle

12:16

042515

042111

INSERT THE SAME UNIT SELECT PLUG/

ASCIZ <«CR,«LF>/TO RESET VOLUME VRALID/<CR>»<LF>
7’

CZREJEOD UNIBUS RKe DR_PRT3
CZRBJE.PL1
25-JAN-78 12:08

7700

QM 765

7701
7702
7703

0Q4.772
042000
042006

7705

Q42017

015

042012

Q42522
040520
020117

051523
042503
047504

051505
01S

124
047412

MACY1l

0S0105

0S1440
052040
052040

30A(1052)
25-JAN-78
SERVICE MESSRAGES

MSGS2:

0e0lee

ElE

12:16

PAGE 147

SEQ 0147

.RSCII

<«CR><LF:/DEPRESS SPACE TO DO TEST/

.ASCIZ

<«CR><LF>/0R CONTROL-E TO BYPASS ENTIRE TEST/(CR><LF>

7706
7707
7708
7709
7710

042024
042032
042040
042046
042054

047503
026514
041040
0123
2522

0Se2116
020105
Q131
7105
052040

047522
0475e4
051501
Q44524
051505

7712

042066

00S01S

044504

040523

MSGS3:

.ASCIZ

<CR><LF>/DISABLE THE WRITE LOCK SWITCH,

;e moig G Svigg owite
042157
015
832462
40516

MSGS4:

.ASCIZ

<(CRY<LF>/ENRBLE THE WRITE LOCK SWITCH,

7D B i Dveo ooie
04224
00S01S
0S4105
052111

MSGSS:

.ASCIZ

<CR><LF>/EXIT TEST WITH ORIGINAL UNIT SELECT PLUG NO.

MSGS6:

.ASCII

<CR><LF>/ALIGNMENT CARTRIDGE USED~

7713
7714
7715
7716
7717
7718
7719

046102
020105
020105
051440
06110
043111
044107

020105
0Sile?
047514
4527
053040
020131
020124

0O44ied4
Q0S2lll
Q45503
041524
0S110S
Q44SIY
047507

04214
042172
042200
042206
042214
042222
042230

046102
020105
020105
051440
026110
043111
044107

0l
0S1127
047514
044527
40
020131
020124

Yy124
0S2111
045503
041524
0S110S
044514
Q47507

7733
7734
7735
7736
7737

Q42254
0OMe262
042270
042276
042304

02040
044527
834522
0114
O0SIY40

0S1S0S
04414
044507
Q47125
046105

020124
047440
0Q40S16
0S2l11l
04150S

7740
7741

042326
042334

00S0IS
Q46516

046101
047105

043511
020124

7722

7723
7724
7725
7726
7727
(728
7729

7732

Q42074
04210e
042110
042116
Q42124
042132
042140

;RGeS pe g

VERIFY LIGHT GOES OFF/<CR><LF>

VERIFY LIGHT GOES ON/<CR><LF>

7742
7743
7744

Q42342
04245
042356

040503
SO4
0MM210S

052125
020105

Q445ee
0S15e5

7746
7747
7748
7749

042366
042374
Q42402
Q42410

040S2e
046114
0S1S0
0201

0S1120

020115
0O41040
02012;
0S11e7

043517

044527
050131
o44la4
0S2iill

.ASCII

<CR>(LF>/PROGRAM WILL BYPRSS THE WRITE LOCK

2752

042431

840465

Q42116

.RSCIZ

<(CR><LF>/AND READ-WRITE DATA PORTION OF AC LOW DETECTION TEST-PART

7745

042360

7753
7754
7755

042436
042444
042452

00S01S

0S104
0S1127
040504

40S
0S2111
040524

026504
02010S
050040

TEST/

2. <CR

CZREJED UNIBUS_RKE DR _PRT3

CZR6JE.PL1
7756
7757
7758
7759

042460
Q4e4eb
042474
042502

25-JAN-78

12:08

0S1117
047440
046040
0521?;

0Q44Sa4
020106
053517
O4150S

MACY1l 30A(1052)

25-JAN-78

SERVICE MESSAGES

Fle

12:16

PAGE 148

SEQ 0148

Q47117
041501
042040
044s24

S EER B B B

7725 owagég 08%01 D‘Jgés 884522 MSGST: .RSCIZ <«CRY(LF>/VERIFY BATTERY RETRACT FUNCTIONAL/<CR><LF>
7?7

7764
7765
7766
7767

Q42540
Q42546
042554
092568

834506
2Se4
052105
Q43040

1040
4Sge
040Se2
047125

0012

052101
051040
052103
052103

?7%0 0‘428?s 00SQ1S 047514 042101 MSGSB:

.ASCIZ <CR><LF>/LOAD HEADS ON ALL DRIVES TO BE TESTED FOR MDS/<CR><LF>

7779

MSGS9:

.ASCIZ

<CR><LF>/INSERT SAME UNIT SELECT PLUG NUMBER

MSGB0:

.RSCII

<CR>(LF>/INSERT CORRECT UNIT SELECT PLUGS 3 LORD HERDS/

LASCIZ

<CR><LF>/0ON PREVIOUS 2 DRIVES/<CR>(LF>

MSGBl:

.ASCIZ

<«CR><LF>/MULTIFLE DRIVES FOUND ON DRIVE NO.

MSGe2:

.ASCII

¢CR><«LF>/BYPASSING MULT.

7771
7772
7773
7774
7775
7776
7777
7778

042606
042614
Q4eb2e
Q42630
042636
042644
Q4ebSe
042660

7780
7781
7782
7783

Q42670
Q42676
042704
042712

7785
7786
7787
7788
7789
7790

778
7793
7794
7735
7796

7784

779

7799

7800
7801
7802
7803

044040
047440
020114
0S1505
Q42502
892524
020122
00001

0O40S0S
020116
0S1104
0S2040
052040
02104
042115

0S1504
046101
0S3111
020117
051505
047506
006523

05218%
0201
0S1440
020124

047111

0c 1440
C 7125
046105
8:6120

042523

042726
042734
Q42742
Q42750
042756
042764

020122
0S4S16
044522
047524
042524
000

047111
031040
042526
041040
052123

Q40440
042040
020123
020105
042105

427
0430
043006
043014
043022

0S1l
0sllee
047125
Q46105
046120

8344 e

Oled4
1S0S
0S2111
041505
043525

85;266

00501

Q47117

042662

Q427

84 792

(C43044

00S01

047040

062

6525

046501
0S2lll
04150S
Q43525

042502

047503
020leY4
0S1440
020124
020123

Q50040

Q43052
043060
043066
043074

042522
020123
O0S3111
00

044526
020062
051505

052517
051104
00S01S

043102

044524

046120

046412

046125

7804

043075

7806
7807
7808

043110
043116
043124

0S1104
043040
0Q47440

053111
062517
020116

051505
(042116
0S1104

7811

043143

01S

041012

0S0131

7805

015

IN ANY 2 DRIVES TO BE

020105

DRIVE SELECT

TEST~

TESTE

+ CZRBJEO UNIBUS _RK& DR_PRT3
~ CZR6JE.P11
25-JAN-78 12:08
043150
043156

051501

044523

25-JAN-78

SERVICE MESSAGES

Pe—_—

Gle

12:16

PAGE 149

SEQ Q148

043516

042523

052116

00S015

o42012

050103

-ASCIZ

(CRY<LF>/0NLY 1 DRIVE PRESENT/(CR><LF>

.RSCII

(CR>(LF>/DEPRESS SPACE BAR TO DO ANOTHER 2 DRIVES/

.RSCII

(CR><LF>/0R CONTROL-E TO EXIT TEST/

.ASCIZ

<CRY<LF>/(INSERT CORRECT UNIT SELECT PLUGS BEFORE EXITING)/(CR><LF>

MSGES:

.RASCIZ

<CR><LF>/DEPRESS

MSGE?7:

.ASCIZ

<CR>(LF>/DESELECT PORT SWITCH ON ALL OTHER DRIVES/(CR><LF>

MSGE8:

.ASC1Z

<CR><LF>/VERIFY BOTH DRIVES UNLOADED/<CR><LF>

MSGBS:

.RASCIZ

<CR><LF>/DEPRESS SPACE WHEN

MSG63:

042526

ny
oW

n
n

REBR2225E
R ERoAh
=] m.cu--gm—oomco
Or=WOTMn
e LU}a1 e L
=O=WiLwL Woown
QO+
U4 b

051516

047503

051120

043630

’'RUN-STOP’

SWITCH TO

'STOP'/

02
05150S

051105

0420

042105

[

046
o42
053

020124

=N LENT=NENNO

[=]
Ot bbb
e (O O LUIUTH=

ZRgRgReaaRenane
B
REAReRezansR
o—o—n—o.—-o—-o—o—o—o—g.::
GEnpCah EsssY

020122

22 8RER

MACY11l 30AR(1052)

050105
0S1440
053440

’'READY'

LIGHT GOES ON/<CR><LF>

MACY1l

44107

05150
012

H12

12:16

PAGE

150

SEQ 0150

0eoleY
047440

8028

MSG70:

.RSC4Z

<«CP><LF>/VERIFY HERDS LORD/<CR><LF>

04es1y

MSG?71:

.ASCIZ

<CR. ‘LF>/SELECT CORRECT PORT SWITCH ON ALL OTHER ORIVES/<«CR><LF>

MSG72:

.ASCIZ

<(CR><LF>/RBORTING BRLANCE OF

MSG74:

.ASCIZ

(CR> <LF>/PROGRAM RABORT PENDING...PLERSE WRIT~/

MSG?7S:

.ASCIZ

<CR><LF>/HALT

MSG76:

.RSCIZ

<CR> <LF>/PROGRAM RBORTED/

MSG77:

.ASCIZ

<CR> <LF>/CPU HALTED/

MSG100:

. RSCII

<CR><LF>/SORRY,

.RSCII

(CR><LF>/WHILE

040S!?
£NEL—
2n
B{EER8Ce28R050

20124

[

[=Y

SN _A=NON—
B RRn R PN BNo—
U+

051505
047502

o40440

TESTS/

o40s27
046101
042116

PENDING...PLERSE WRIT/

PNO
U= INYY = e e O~ (N0 = UN— 0

30R(i052)
25-JAN-78
SERVICE MESSRAGES

0
gL
824847

[TAl

g»— :mgn 3
2255 5

-0

ARZR BRARAR

P2PP222P222 ? 2222
Q¥ R
&%

CZRBJED UNIBUS RK& DR PRT3
CZR6JE P11
25-JAN-76 12:08

NNNNNNNN
DO OOD
DD D
N'-"-"-""-"-"-‘*'
OV
L W

83201

820048

WRITE LOCK SHOULD NOT BE DEPRESSED~/

020105
0S1440
020104
Q42502
o42see
Iv]

044262
044270
Q44276
044304
044312

o44127
047117
045503
020060

Q46111
052040
031040
047524
026071
0s1117

TRACK

2 SECTORS

19,

OR 21~

CZR&JEO UNIBUS RK& DR PRT3
CZRBJE. P11
25-JAN-78 12:08
061
0S00le
020105
043501
000Cle

SEQ 015!

(CR> <LF>/PLERSE TRY AGRIN/<CR>(LF>

ERROR MESSAGES

g47see
046116
044124
040440
042105
020131
006516

EML:

.ASCIZ

(CR><LF>/ERROR,

020105

EMe:

.RSCIZ

/DRIVE 8 IN RKCS2 CANNOT BE READ BACK CORRECTL¢ IN RKMR2/

EM3:

.RASCIZ

(CR> <LF>/ABORT TESTS...UNEXPECTED TIME OUT RT PC=/

EMH:

.ASCIZ

(CR/<LF>/ABORT TESTS...UNEXPECTED INTERRUPT AT PC=-

EMS:

.ASCIZ

/MDS SET

EM6:

.ASCIZ

/UFE SET IN RKCS2/

EM?7:

.RSCIZ

#DRA IN RKDS 8 NED IN RKCS2 RESET;

ONLY O THRU 7 ALLOWED,

TRY AGAIN/<CR><LF>

050040

CH4742
g44750
044756

PAGE 1SlI

.SBTTL

PRZARESS
o] Q0
Wn £
oon n

O44734

.ASCIZ

Il2

12:16

L)~

gSile4

25-JAN-78
30 AL oS 2)
S ERV IC E MESSAGES

04eS14
gsliley
044501

238

0443S0
o4435S6
o44364
o44372
o44400
Q44406
O44Y41Y
p44y2e
D4442Y4
044432
O44440
044446
044454
04Y4462
Q44470
044476
O44504
o44S1e

031040
01s
051501
020131
006516

D—gb— ’c{}m VU= OO 0= 4 bt s s pe O
QF ha o 2RneCR3RN
R

044320
Q44323
044330
044336
O4Y4344

MACY1l

Q42523
047522
0s1117

0201e4

DS1440
020116
000J62
042523
051040
00Q
Q44440
051504
042105
Q45See
Q42see
053440
0s0040
042523

IN RKCSe-

WRONG PORT SELECTED"-

CZREJEQ UNIBUS RK6 DR _PRT3
CZRBJE P11l
25-JAN-78 12:08

~NO
o bt boes (NY0s L 1= e O U
== L= TUNLD UV o=e V0= (AU b e
= Q0N
L OO
NNODQOO0
nn
-

044764

e P

—OO@O
NN LW

152

SEQ Q182

02010%
04710S
020124
050123
042511
047440
047524

EMSB:

.RSCI2

/DRIVE PRESENT BUT NOT SPECIFIED BY OPERATOR/

02010S
051120

EMS:

.RSCIZ

/DRIVE

NOT

EM10:

.RSCI2

/RABORT

TESTS...CANNOT REFERENCE CONTROLLER REGISTER~/

EMLL:

.RSCIZ

/DRA IN RKDS & NED IN RKCS2 BOTH SET/

Emie:

.ASCIZ

/CONTROLLER NOT READY

EML13:

.ASCIZ

/NO

EMIY:

.ASCIZ

“WRONG RTTN IN RKARSOF/

EMIS:

.ASCIZ

/DRDY NOT CLEARRED

EM16:

.RSCIZ

/DSC NOT SET

PRESENT

BUT

SPECIFIED BY

047440
047524
020124
027123
047116
04310S
020122
0s21e3

[

044440
051504
042105
045522
047502
052105

ATTN

IN RKCS!/

IN RKRSOF/

8021

IN RKMRe2/

g4210s
o4ssee
o4s412
o4s4e0
04S426

OPERRTOR/

020124
050123
042511

MY
pe -

8 OO0
:O»—-v—og
W

e Pme
e Pt

PAGE

0S3111
051505
052502

0062

n Pt Gt P

J1l2

12:16

042105

023040
m OMOEmO@mEOOm
[=] 000000000

30A(10S2)
2S-JAN-78
ERROR MESSAGES

0s2103

Q000
£0Ln

7980
7381
7982
7983
7984
7985
7986
7987
7388
7385
7990
7991
7992
7993

MACY1l

020103
042523
0S1040

047516
020124
046513

IN RKMRZ2/

CZRt "EQ UNItUS RK& DR_PRT3
CZReJt P11
25-JAN-78 12:08
8036
8037
8038
8039

8040
BO41
8042
8043

Q4S474
Q45437
0O4S444
045452

Q45460
Q4S466
045474
045501

031122
115
042507
0S110S

042512
85010

1122
aél;

MACY1l

30A(10S2)
@2S5-JAN-78
ERROR MESSAGES

0455

8048
8049
B80S0
gggé

045536
04554
0Q4S550
gzgggfi

8053

Q45565

BOSY
80SS
80S6

045572
8“56
0456

020105

EML7:

.ASCIZ

/MESSAGE RO ERROR/

EMIS:

.ASCIZ

/MESSAGE BO ERROR~/

0S1117
051505

000
Q40523

EMIS:

.ASCIZ

/MESSAGE Al ERROR/

30102

042440

030502

042440

O0S1117
051105
020le4
041513

000
Q20l22
Q47111
030Se3

104

047517

0e0lee

0S2101
020116
020062

051525
Q45522
Q47516

8060
8061
8062
8063
8064
B80S

045634
045642
045650
045656
0 >bbY4
045672

020105
0S2105
045522
047526
05;048
047040

047117
044440
0S1115
0S2514
04610;
0S2117

0S1440
020116
000062
042515
04elll
0S1440

8068

045714

Q40503

052122

044522

8070

045730

0S2101

051525

044440

8030
BO91

046103
O4e!1C

0S2

020105

.ASCIZ

/CERR SET

0S2123

IN RKCS1l/

EMe2:

.ASCIZ

/DOOR STATUS

IN RKMR2 NOT CLERRED/

.ASCIZ /SPINDLE ON SET IN RKMR2/

EMeM:

.ASCIZ

/VOLUME VALID NOT SET

EMRS:

.ASCIZ

/CARTRIDGE STATUS

IN RKMR2/

IN RKMRZ2 NOT CLERRED~

045522
047516
0405S0S

0S1115
020124
042522

0S2514
046101
0S2117
0S1101
020116
000062
L0104
042523
O0SI1040

0Q42S1S
042111
041440
Q42105
045Se2e

EM26:

.ASCIZ

,VOLUME “ALID NOT CLERRED

047516
020124
041513

EM27:

.ASCIZ

/NED NOT

g46117

8:32?3

EM28:

.RSCIZ

/VOLUME VALID SET

042523
0S1040
000
041523
051440

020led
046513

EM29:

.ASCIZ

~DSC NOT SET

000

o
£
o
W
n
o

020116
020062
046103
000104
47526
0S3040
Q47040
Q42514
044440
0S1115
042516
020124
Q47111
031123

045736
045744
045752
Q45760
Q457
045770
04S776
046004
Q046012
046020
Q46024
046032
046040
046046

043504

— O+
NL—

8071
8072
8073
8074
8075
8076
8077
8078
8072
8080
8081
8082
8083
8084

045722

SEQ ®.83

.RSCIZ /MESSAGE Bl ERROR/

EM21:

8059 045626 058123 Q47111 046104 EM23:

8069

153

040523
020060
000122
043501

0Sl1lee
103
042523
051838
0S2123
044492
0S1115

PAGE

000
051505
040440
047522
8515 3

8046 092222 oqés?§ 821523 043501 E&EMe0:
8047

Kle

12:16

047040
052108

SET

IN RKMR2~/

IN RKCSes

IN RKMR2~

IN RKMR2-

CZR6JEOC UNIBUS RK& DR PRT3
CZkeJE.PI11
25-JRAN-78 12:08

094

846132

8099

Qu4616l

8104

”65

8095
809%
ggg;
8100
8101
gigg

8105
8106

046!
Q46l44
8:2%28

046166
046174
8:251

Q46

046226

MACY11l 30R(10S2)
25-JAN-78
ERROR MESSAGES

L12

12:16

PAGE 154

05210;

047124

047040

EM30:

.ASCIZ

/ATTN NCT RESET IN RKASOF~

119

042105

047040

EM3L:

.ASCIZ

NED NOT CLERRED IN RKCS2-

052117
052105
045888

051040
044440
051501

0S2117
0S1101
888615

041440
042105
o4sSSee

020105

047117

051505
020116
043117

042514
044440
051503

OSOISS Q47111 046104 EM32:
0S2117

O0SI440

047040

.ASCIZ /SPINDLE ON NOT SET IN RKMR2~/

0S21i0S

il uEd g gaus o
8109
&
§§31 1 020105 EM33:
8110
BSSQ 835&16
Oléfl 848522

.RSCIZ /DRIVE NOT READY IN RKMR2/

8111
giig

046262
8:25;2

042101
051838

8l1l4

Q46277

8116
8117
8118
8119

046312
046320
046326
046334

041040
0Sel17
044442
0Sl111

Blel
Blee
8123
gla4

046346
046354
046362
046370

047510
0S2117
044440
O0S1115

Bich
8127
8128

046402
0O4eM10
046416

8130

46438

020131
046513

047111
031122

EM3Y:

.ASCIZ

/DOOR STATUS BIT NOT SET IN RKMR2-

8120

8125

B129

Q46374

046424

8:210

020123

EM3S:

.ASCI1Z

/HEADS HOME NOT SET IN RKMR2/

8:;80

8;509

3517

EM37:

.ASCIZ

/AC LOW NOT SET IN RKMR3/

045522

eQlev4

8;2 2

820%24

047516

EM42:

.RSCIZ

-NED NOT SET

101

046103

020117

EMM3:

.ASCIZ

/ACLO NOT CLERRED IN RKMR3~

046525

EMYM:

.ASCIZ

“VOLUME VALID NOT CLERRED IN RKMRZ-

EMNS:

.ASCIZ

. VOLUME VALID SET IN RKMR2 RFTER HERDS LORDED-

042516

046500

111
031522

8}33

042512

§SO}

gl42
8143

Qu4eS
046540

0eCi0Y
O4£513

8145
8146
B147

04655¢
046560
0O4eSbb

020105
020104
047111

503

i gl
Bl44

D46SHS

047040
0S210S
045522
1440
020116
000063

8137

8138

esS1s
0S1440
020116
11
QYN440
O0S111S

046451

Que4Se
046464
046472

047040
052105
o4ssee

OngIO

8133
Blgfl
8135
8136

052111
O0SIM40
020113
00

8115 846 0] 052183 822161 Séxésg
046340

7517

Q47

pole
126

020104

0
Ye
8
104
000

Q46117
§:9§2&

KAl

047111
031122

046117
040See
042523
0S1040

SEQ 0184

48183
20104
6513

§3451:

IN RK(CS2/

0S1040
000

046525
044S14
0201ec4
046513

CZR6JED UNIBUS RKE DR PRTI
CZR6JE.P11
25-JAN-78 12:08
14

Ve )

oMY

04662

S
8156
gi57

0O46bSe
046660

8161
8162
8163

&7
046714
046722

g2l
183

gigg

pek

466

gggé

8166 046741

04751

054{05

O4
047553

50
31
02912“

011
020051
gg?§§§

42101
020123
042s0?

:iég §§é$§

o4
O0S1I0M
0O44I03

051
047101

PAGE 15%

§i38
Buiec: RAilRE QSR Gunlee
8150 CiECID CEICON Guedud OuGe

8152

Mle

12:16

EMYG:

.ARSCIZ

/NON-EXECUTABLE FUNCTION (NXF) NOTY SET IN RKMR3-/

71?1 EMY7: .RSC1Z2 /CYLINDER RDDRESS CHANGED FROM O/

129 o4MGe2 OM2524 EMMB:

.RSCI1Z ~/WRITE LOCK IN RKMRZ2 NOT CLERRED~/

8167
8%&8

046746
0:6754

046040
Og?iél

041517
OS% “8

020113
§§g?13

8172

047001

127

0O4M622

0M2S24

EMMS:

.ASCIZ

/WRITE LOCK IN RKMR2 NOT SET,

Bz Frfi: M B BRil

EMSO:

.ARSCIZ

/WRITE LOCK ERROR IN RKMR3 NOT SET~

EMS]1:

JASCIZ

/WRITE LOCK DID NOT OCCUR AT SECTOR BOUNDRY-

8178 Guer2f GO0 BleSiS
giza

0:;00&

8177

04703

8180

1?7
Si7e

r4
09

GETAI

04??90

0“15&7

6627

4 2;

4eSod

104

4661

;1
meldd
047111

RuED5

080%%3

Gle] 0uoed Caiccs oifoun oeellr
glga

47077

)

Hg ;

BOIEL pelip HUETS

BIATE

8185
8186
8187
8188
gigg

7l1e
047120
047126
047134
0:;{28

4504
0e0l24
020122
041505
837?82

201
041517
0S2106
047524
047125

047516
052503
0S1440
0e0lee
0S1104

8192
8193
gigg

047160
(0N7166
D47174

020124
047111
(031522

042523
0S!1040
000

020124
046513

8196

047177

128

046116

040517

8198

047212

042523

020124

047111

183

847&8&

8191

8197
gégg

8:05
820
8203

47182 owglaé 0e01e3 047516 EMSe:

047204

020104

8:;558

051838

847537
47
i
047242

pedleH
046440

047Sle

046513
4y
046125

02014

ASCIZ2 ~/UNS NOT SET IN RKMR3/

EMS3:

.ASCIZ

~/UNLORD NOT SET IN RKMRZ2/

EMSN:

LAS21Z

/CANNOT FIND MULT.

0311ee

47516

42116
027124

DRIVE SELECT IN RKCSZ~

SEQ 01SS

CZRBJED UNMIBUS RK& DR PRT3
CZRBJE.P11
2S-JAN-78 12:08

MACY1l

30R(1052)
@25-JAN-78
ERROR MESSAGES

N12

12:16

PAGE

156

SEQ 0156

8204
820S
8206

(047250
047256
Q4726M

042040
0SI1440
830%29

O0O44S2e
04610S
047111

042526
041505
051838

8208
8209

047277
047304

101
047516
040S0S
047111
047523
047125

052124
020124

020116
046103

EMSS:

.ARSCIZ.

/ATTN NOT CLERRED IN RKRSOF/

042520

EMSH:

.ASCIZ

/UNEXPECTED MEMORY PRRITY ERROR TRRP/

EMS7:

.ARSCIZ

/CERR

8210
8211
8212
8213
8214
8215
8216
8217

Q047312
047320
047326
047332
047340
047346
047354
047362

04eSe2
0S1040
000106
054185
042105
0S1117
0O44Se2
0OSlle2

8227
8228

74
047432
Q47440
0O47446
047484
Q47462

052103
046505
(043520
0O4c440
0S5~04
0OM4.SO
020116
020061
042523
8:9528
o4
052105
Q4552
0S2103
020124

8230

Q47475

116

043130

8234

047523

104

8237

Q47S44

045522

8218

047370

8220
8221
Bc22

047404
047412
047420

8219

£723
Bc24
BceS

OonN—Nr-0O
—unnwun

Bc2b

047376

8248
8249
8250
8251

047640
047646
047?654
047662

032040
0S!1e4
026062
047884

8253
8254
8255
&

047671
047676
Q47704
047712
Q47720
047726
047734

1.6
0S2105
Q45522
040503
0S1040
040S02
US2103

8
9

SHOSES

Sl1l122

0Q4SS522
047516
000124

020104
040513

046440
020131
05S4SeH
0S1117
000120
044440
051503
020124

IN RKCS1

NOT SET/

452;
ell
O44440

4524
1440
020116

EMSS8:

.ASCIZ

/PARITY NOT SET

02011
04711

042523

EMSS:

.ASCIZ

/CT0 SET

042040

EMBIL:

.RSCIZ

/NXF DID NOT SET FARULT/

0S2114

000
0S1440

EMB3:

.ASCIZ

/DLT SET

041504

023040

EMEY:

.ASCII

/RKDC & RKDA

0S110S

047See

047412

041503

.RSCIZ

<(CR><LF>/0OCCURRED AT CYL 411,

030461
041501
051440
020122

020054
020113
041505
030462

042105
044440
051503
047116
040505
020104
0S1117

O0SIY40
020116
000062
052117
020104
042523
048440

EMB”:

.ASCIZ

/NED SET

EMEB:

.RSCIZ

/CANNOT REARD BRD SECTOR

05611;

o42522
041440

000063

0enl1oM
046131

IN RKMR3/

IN RKCS1l/

IN RKCS2/

INDICATE

THAT WRITE CHECK ERROR/

’

TRACK 2,

IN RKCSz~

INFORMATION-

SECTOR 21~/

CZR6JED UNIBUS_RKE DR_PRT3
CZRBJE.P11
25-JAN-78 12:08

MACY11 302(1052)
2S-JAN-78
ERROR MESSAGES

86 Da7ods Quatds A7 O'%Gs
8262

8263

(047755

116

020117
051508

O0S1i04

0N477

05311;

043040

0SCGle
0S

021l
041
02
020123

047503
pusled
0S1120
041447

O0Sllee
020131
051505
047117

127

0O44S10

EMB9:

Bo6e Qu7rsb 36116 Deosds oeiead
8266 0S
86%012 042523 0S2Se4
8267
8268
8269
8270

0S0034

Bors 020088 dosoie oppg a3s0s
(=

.ASCII

313

12:16

PAGE 157

sNO DRIVES FOUND ON BUSS~/

.ASCI1Z <(CR.<LF>/SETUP CORRECTLY & PRESS ’CONTINUE’ /7¢<CR><LF>
.

8273

(0S00S3

0S0060
050066
0S0074
080102
0S0110
(0S0116
0S0124

0S3440
043516
O41440
051048
D474y
042Sed
052116

044501
043040
047117
o40S0S
020122
0e0lee
020122

0dv2Sid

QO44S24
051117
0Sll24
OS4S04
043101
047503
042522

EM?70:

.ASCIZ

/WHILE WRITING FOR CONTR REARDY OR RFTER CONTR RERDY REC’D/

8283

D0S0144

OSOIES
(0501
050166
050174

042504

042108
Q40502
052103
027056

042524

030440
020104
051117
041101

052103

020060
042523
027123
0S1117

EM71L:

.ASCIZ

/DETECTED 10 BAD SECTORS...ABORTING TEST~/

8230

0QS0214

Q42504

04eSeM

0Sel103

EM72:

.RSCIZ

/DETECTED BSE BUT NOT LISTED IN BAD SECTOR FILE/

EM73:

.ASCI1

/DETECTED BSE

.ASCIZ

<(CR><LF>/BUT NOT

.ASCIZ

/RTZ NOT SET

8274
8275
8276
8277
8278
8279
8280

8284
8285
8286
8287

8231
8292
8233
8294
8295

050222
050230
060236
050244
050252

042105
041040
052117
(042524
041040

041040
052125
046040
020104
042101

042524
047040
051511
047111
051440

8593 DE0See Ow20e Huoelq Uc0hfs
8298

8299
8300

050273

104

052105

1505

050300
0S0306

042524
020105

020104
047111

051502
051040

8304
8305
8306
8307
8308
8309
8310

0S0334
0S0342
0S0350
0S0356
0S0364
0S0372
0SO400

047040
020116
047511
044522
046517
052040
D0425!5

062117
051120
051525
0M2524
040S1S
020117
0S1440

044440
053105
0S3440
041440
042116
040523
041505

0S0412

032122

020132

047516

0S0426

047111

051040

0-6513

8305
Doo3es
eciz
BadeT o753
8303
050327
015
091012
0s212S

050420

050434

020124

031122

042523

000

020124

SEQ 0187

EM74:

IN READ COMMAND~/

IN PREVIOUS WRITE COMMAND TQO SAME SECTOR~/

IN RKMR2~/

CZR6JED UNIBUS RKE DR PRT3

CZRBJE.P11

25-JAN-78 12:08

0S0437

015§

0S0o44Y

Q4eole

g425a4

MARCY11

052105

30R(10S2)
25-JAN-78
ERROR MESSAGES

Cl3

12:16

PRAGE

158

SEQ 3158

EM?S:

.RSCIZ

<«CR><«LF>/DETECTED 10 BRD CYLINDERS...RBORTING TEST/

EM76:

.ASCII

/NO DRIVES FOUND IN DEVICE MAP

.ASCIZ

<«CR><LF>/SETUP CORRECTLY & RESTART/<CR><LF>

EMBO:

.ASCIZ

/WRITE CHECK ERROR SET IN RKCS2s

EMB3:

.ASCIZ

/DATA CHECK ERROR SET IN RKER/

EMI3:

.ASCIZ

/READING WRONG CYLINDER # IN HERDER/

.SBTTL

DRATA HERDERS

o41040
46131

5152
7’5
201
0
020117

1T
8328

Py
63 36440

o404

gSz2iee
04eSeu
051104
43040
4440
44526

050101
053105

O
OO0
£ NN

PC/

.ASCIZ

/TEST NO.

0S111S

004461

DHe:

.ASCIZ

/RKMR!

RKMR2

RKMR3

RKER

RKDS

RKCS1

RKCSe2/

DH3:

.ASCIZ

/RKWC

RKBA

RKDR

RKASOF

RKDC

RKECPS

RKECPT~

[

DH1:

020124
0S0040

[SS

"51505
020056
Q
un

NN UV N
8 : K}NNN
802
oL

0515

-0
LA QUANTATA
LV VTV

83
Q

= oAU

BREFCHEERER

— 0000000000

RARRRRRRRAR

RZZEER £

0S1000

o (=]l
~ NN
NN
no

=] Qo0
n NN

8360

m
W
o

mo
W Wi
wn N
O m~N

051105

W NWUNY

RRo

8a1s

—N0O 000

o4
03

LU= oo ot s pi s
L e be e PO
Y
O

041513

N— L NNONDOOO

000

Q4g

Pt s e
()
==

042523
p47503

523

(SDEVM)/

o4sS522

051011

Q45522
Q40513
o4sSsez2
004523

Q42513
o4ssee

CZR6JEQ UNIBUS RK& DR PRTJ
CZREJE.PLL
25-JRAN-78 12:08

8373 Séii?g
7

837

8377

0S1142

8380

7
&

8381

o
8384
8385

041

MACY1l

?8? 8?5168 051?88 DHY:
415 é

0 lg

020046

042510

042101

0S1161

101

052106

1
Bl

11?&

051

30A(10S2)
@25-JAN-78
DATA HERDERS

101

25
£

051105

8&3523

0S2106

0S110S

OHRSEE

PAGE

1S9

.ARSCIZ /RFTER PRCK RE-INSERTED & HERDS LOADED/

104
B

12:16

DS{EIH

0428:8

0425?9

gggg

05}233

047504

OSlllg

037?48

8391
8392
8333
8394
8335
gggg

051260
051266
0S1274
0S1302
0S1310
8%}3%&

Q40515
0SYSIM
044504
040S0S
0S2111
051%12

832516
6040
043516
0S1504
020110
047440

046101
040S17
O44040
053440
047504
042520

8393

0513

4S04

5523

050040

DHS:

.ASCIZ

/AFTER RC SWITCHED OFF~/

DHB:

.ASCIZ

/AFTER DRIVE UNLORDED 8 DOOR OPENED/

G Big o Gl B

8330 8%1552 835181 S:Sg

8398 05135& §88161 8:2

828122 DH11:

.ASCIZ /AFTER MANUALLY LORDING HERDS WITH DOOR OPEN/

0c0le2 DHle:

.RSCIZ /AFTER DISK PACK REMOVED~/

g:g?

05%342

09;%0%

020113

042?22

8403
8404
8405
8406
£407

0S1564
(0S1372
0S1400
0S1406
0S141Y4

040S15
0S4S514
Uqgggg
04
052115

0S2516
046040
gg
6
1
020110

046101
040517
4040
3440
Q44504

8402 Sglggg 8:3161 8352
108

0S1422

045523

8411
8412

OgIHHS
DS145

83%55
Ol

8415

051493

8416
8417
8418
8419
8420
8421
8422
8423
8424
8425
8426
B427

O0SI4
0S1S02
0S1S10
O0S1S516
051524
051526
051534
0S1S42
051550
051552
O0SIS6E0
0S1S6b6

oS24y
042523
0S0040
042522
000104
043%31
0Q4eS2e
047503
000104
043101
047125
041440

Sgglgg DH13:

.ASCTZ /AFTER MANUALLY LOARDING HEADS WITH DISK PRCK REMOVED~

050040

041501

8341 Y
0520

852517
(G45503

DH1S:

.RSCIZ

/WITHOUT PACK COMMAND~/

852 06

44516
042514
0S2514
047515

0S110S

0e201coH4
062103
020107
042526

DHlb:

.ASCI1Z

/RFTER dHIT SELECT PLUG REMOVED~/

g42se4
040503
046515

020122
020114
047101

DH17:

.ASCIZ

/AFTER RECAL COMMAND~/

042524
047514
046517

020122
0421Cl
040S1S

DHIB:

.ASCIZ

/AFTER UNLORD COMMAND/

SEQ 0189

CZREJED UNIBUS RK6 DR_PRT3
CZRBJE.PL1
25-JAN-78 12:08
gy28

0S1S74

042116

051604

0S0040

0S1e22

043101

8429

051577

g:gé

8?}518

8430

8433

8434
B43S

051630
0S1636

8438

0S1655

000

101

0Sel06

836?83

o46515

041501

042524

30R(1052)
25-JAN-78
DATA HEADERS

051105

DH19:

.ASCIZ

/AFTER PACK COMMAND~/

DOH2O0:

.ASCIZ

/PFTER SELECT DRIVE COMMAND/

DOH2l:

.ARSCIZ

/AFTER SUBSYSTEM CLEAR/

020113

0S1e62

020122

042523
042040

042514
044522

0S2103
042526

101

0S2106

051105

B4Y42 021703

8443
8444
844S
8446
8447
8448
8449

0S1710
0S1716
0S1724
0S1732
05173S
0517;5
0S17

84S0
8451

051756
0S1764

8454
84SS
8456
8457
8458
8459
8460
8461
8462
8463
g464

052002
052010

g45e
8453

8465
8466

0S1767
051774

052012
QSe
0S2026
052034
052042
052050
052056
052064
052072

0SI440

041125

044522
042514
046517
000
0S2106
04752;
0S111

101
0S1440

052106
042505

042523
0421

047503
000104
043101
042522
0S2101
046515
043101
051127
0O40S0M
046517
000

/AFTER WRONG PORT SELECTED~

DH2S:

.ASCIZ

/AFTER SEEK COMMAND/

046515

0S1105
020113

047101

042524
042101
020101
047101
042Se4
0Seili
040524

020122
042040
047503
000104
020122
020105
041440

DH2b:

.ASCIZ

/AFTER READ DRIA COMMAND/

DHe7:

.ASCIZ

/AFTER WRITE DATA COMMAND~

OHe8:

.ASCIZ

/AFTER BOTH PORTS DESELECTED~

DH29:

.ASCIZ

/AFTER CORRECT PORT SELECTED~

0S1105
020104
051105
040515

DH30:

.RSCIZ

/AFTER READ HERDER COMMAND~/

0S110S

DH31:

.ASCIZ

~/AFTER DRIVE MANUARLLY LORDED~

042514
000

042116

052106
052117

051105
020110
020123
042514
0Q0
0S1105
Q42522
0S1117

8475
8476
B477
8478
8479
8480

(0Sel63
052170
052176
0S2204
0S221e
052215

101
0S1040
042510
041440
042116
101

0S2106
040S0S
042101
046517
000
0S2106

042040
046440
046114

043516
g201e4
052103

040S1S

0OS1117
0S004Q

052222
052230
052236

.ASCIZ /AFTER DRIVE CLERR COMMAND~
.ASCIZ

8471
8472

8481
8482
8483

04e2Sesh
051101
0O40S1S

DH23:

101
041040
047520
042504
0S2103
101
041440
052103

8470

PAGE 160

051105

052073
052100
052106
052114
052122
0S2le?
0S2134
0S2142

8467
8468
B463

054523

101 0S2106 0S110S DHz22:

042040
O41440
041440
042116
101
0S3440
0s0040

12:16

047101

f% el Gl sy s
8439

ELl3

MACY11l

0S2122
042523
042105

052109

Q44522
047101
020131

042526
040S2S
047514

SEQ 0160

CZRBJED PUNIBUS RK& DR PRT3
CZRBJE. 11
25-JAN-78 12:08

MACY11

042101
101

8484

£
£E
Ue—
nL

Z2R2
ZRAGAERORAR
—0— LN
g3
NN
L—-OQNVNL—-L FonaREL
WRNO
DNI’U80—D5—
e r—

L o To
Vs 0t s bt ([
(Y SV 0 V0 0= (Y0 L e 8
gl F-C)*-D?.— &wwo-—-—u&guo:uoamo
Uchhn—f
oOO0N—0O
;»momaoo-—v—ymoo»-o—scn—o—;
O
=
I N L L V&CO*W&D&O—G‘D

PRR
ZOPZOPZZRE
PZ2ZRZIRTZZRRRZEZR22Z
22RR
2
WOO
wnOe- N NNNOO
e
yrete
Yo

(0 00 (0 0 0D 0 D D@
[l [
I
[V IVR [ VA 1T

PAGE

16!

SEQ 0161

.RSCIZ

/RFTER WRITE CHECK COMMAND/

DH34:

.RSC1IZ

/RFTER START SPINDLE COMMAND/

DH3S:

.ASCIZ

/AFTER MANURLLY UNLORDING/

DH37:

.RSCIZ

/AFTER

g20122
0S3517
052440

DH38B:

.ASCIZ

/AFTER AC POWERED UP/

020122

DH39:

.ASCIZ

/AFTER

047111
040S03
046515

DH41:

.RSCIZ

/DURING RECARL

Q41505

DH42:

.ASCIZ

/ON SECTORS 0,2,4,6 OR 8

DHYY4

.RASCIZ

/FORMAT 8 ALL

DHYS::

.ASCIZ

/AFTER SEEK WITH VOLUME VALID=0/

DH4Y6E:

.RSCIZ

/RFTER WRITE DATA WITH VOLUME VALID=0-

TIMEOUT

WRITE

TO POWER DOWN/

HEADER

COMMAND~/

040S1S

g4e25e3

052717

FL13

.2:16

DH3e:

0S3440
Q41440

052040

25-JAN-78
DATA HERDERS

30R(10S2)

0s1108

COMMAND/

READ-WRITE

CYL 410 TRACK 2/

TESTS WILL BE BYPRSSED/

CZREJEO UNIBUS RKE DR PRT3
CZRBJE.P 1l
25-JAN-78 12:08

Q44522
052101

0Se724

MARCY1l

30A(1052)
2S5-JAN-78
DATA HEADERS

Gl3

12:16

PAGE 162

SEQ Jle2

o4asa4

044124

046525
o445 1Y
DHu4B:

.RSCIZ

/AFTER WRITE LOCK SWITCH DISABLED/

DH49:

.ASCIZ

/AFTER WRITE LOCK SWITCH ENRBLED/

DHSO0:

.RSCIZ

/AFTER WRITING WITH WRITE LOCK ENARBLED/

021440
Q4as04
o4z2122

DHS6:

.ASCIZ

/CYL

051105
042526

DHS9:

.ASCIZ

/RFTER DRIVE SELECT COMMAND WITH EVEN PRRITY/

DHBO0:

.ASCIZ

/AFTER WRITE LOCK ENABLED DURING CONTINUOUS WRITING/

DHB1:

.ASCII

/RKDA

.RSCIZ

(CR><LF>73 WRL

WRS

.RSCI1I

/RKDA

EXPECTED~

§gesaa

gah}

041524
040523

YR RRREEOENIORETE

£
o]

£ OL£NO—~y
W
£[
Ly o T of e 1

RPZRAZ ORZ ZZRRV

043516

DHE2:
053402

0o4150S

o425e4

HEARDER

WORD

EXPECTED~

WORD~/

CZR6JEQ UNIBUS RKe DR PRT3
CZR6JE.PI1
25-JAN-78 12:08

MACY1l 30R(1052)
25-JAN-78
DATA HERDERS

WORD

<CR><LF>/BEFORE WAS

DHB3:

.ASCIZ
RSCIZ

<«CR><LF>/WRL/

DH6Y:

.ASCIZ

/AFTER MDS DETECTED IN RKCS2~

DHES :

.ASCIZ

/AFTER SEARCHING ALL DRIVES PRESENT/

DHBG:

.ASCIZ

/TEST NO.

/AFTER WRITE LOCK ENRBLED FROM AC FRILURE~/

n
wn
n

3
3

£
£
o

o
£
o
Q

I
]
n
o
)]

051?88 DHB?7:

TRAP PC/

.ASCIZ /AFTER TIMEOUT TO ENRBLE WRITE LOCK~/

04241l

0S0130

041505

DHES:

.RSCIZ

EXPECT/

8629

053676

838411

052103

040525

DH70:

.RSCI1Z

RCTUAL/

004460

DH7!L:

RSCIZ

/R0

DH73:

.ASCIZ

-MSG A & B IN RKMR2 & RKMR3 RESP ARE INVALID/

DH7Y:

.RSCIZ

/ON SECTORS 10,

B3/

o
n

f—y

040440
—

Q43523

004461
004462

Q
£
n
n
n
N

gF‘ID—OOQOV-

Q41011
041011
00

[

o1 VT
2

—OWNINCOUINY
— —— L

041011

Q
£
n
un
n

0S3666

N
n

8627

W
£

Q
wn
]
o

[—

SP3 0163

o42440

=3
= Qurn
Sttt oL =8 ROSeRER=

163

[e0]
o
n
wn

n
Q
p
o

22
B
B

3
:

046440
052185

9
:x
T

i
22

®
o
n
n

0Q40S16
043040

b 4 972 3

0S3S10
053516

o ERD R

clee
0114
858185

PO
o= e

8608
8609

]

0475827

NOMn
O r b e )

0S345s4
0S3462

00S01S

o8 2R2227?2R
55

8603
8604

004523

ZRZRA2

0S34

Q0 Qo0
£L
- — P O Foe—

0S3416

8599

PAGE

_ASCII

8836 BEIN03 o P13 B34RAR B43A8S
8598

12:16

B6S1

0S4066

045503

031040

12.

14,

16,

18 OR 20 CYL 410 TRACK 2/

¢ CZRBJED UNIBUS_RK& DR _PRT3
, CZREJE.P11
25-JAN-78 12:08

§§§§

12:16

PAGE 164

.SBTTL ERROR OUTPUT DATA

8657 054100 005364 00S366 005370
8660

0S4116

00S344

005346

005350

gg?g

gggiag

83{353

gg%&ég

001166

’

HMRIL, HfiRaHMR3, HER,HDS,HCS1, HCS2
HWC, HBA, HDA, HASOF , HOC, HPOS , HPAT

DT3:

$TESTN, SERRPC, $TMP3, WD1,UD2

BEES * 0BYING 005364 005366 005370

HMR1,HMR2, HMR3, HER, HDS, HCS1 , HCS2

668 054164 005344 005346 005350

HWC, HBA, HDA, HASOF , HDC, HPOS , HPAT

8669

0S4172

005356

005360

8671

0S4202

001214

001354

001116

001366

8674

054216

005364

00S366

005370

HMR1,HMR2,HMR3, HER,HDS,HCS1, HCS2

8677

0SY4234

005344

005346

005350

HWC,HBA, HDR, HASOF , HOC, HPOS,, HPAT

Bb72
8675
8678

054206
0SY4e24

0S4242

001214
005354

005356

005352

005372

DT6:

DT9:

005340

005360

005372

001116

D0OS430

STESTN, TRRPPC

STESTN, SERRPC, TOCYL ,RHTAB

0S54

00S374

8681
8682

O0OS4260
0S4266

005434
005412

B684

054276

005432
005410
(

005364
005354

005366

005352

005370

HMR1,HMR2,HMR3, HER,HDS,HCS1, HCS2

8687

054314

005344

005346

005350

HWC, HBA, HDA, HRSOF , HDC, HPOS , HPAT

8680

8685

8688
8689

8691

054252

0OS4304

0S4322
0S4330

001214

005356
005374

005360

0S4332

001214

001116

OS4346

00SH440

00S4H42

8695

0S4360

005416

005420

8697

054374

005354 005352

gggg

8694
8696

054340

0S4352
054366

8699

0OS4404

8703

0S4422

8706

0OS4444

8700
8701
8704
8705

8707

0S4412
054420

SEQ Ole4

005432

005410

005434

005436
00S41Y4

DT13:

005340

005372

005430
005436

STESTN,$ERRPC,E.AO,E.BO,E.AR1,E.B1,H.AD,H.BO,H.A1,H.B1

DTi4:

STESTN,SERRPC,E.ARO0,E.BO0,E.R1,E.B1,E.R2,E.B2

005412

005414

H.AD,H.BO,H.A1,H.B1,H.A2,H.B2

005366

005370

HMR1, HMR2,HMR3,
HER,HDS ,HCS1,HCS2

005344

005346

005350

HWC, HBA, HDA, HASOF , HOC, HPOS , HPAT

001214

001116

005430

00S410

005412

00S414

005364

005356
005374

0OSY4430
054436

00S432
00S440

0S4452

005416

005360

005434
005442

005420

oamm »

005422
005340

005372

005436
005446

DTIS:

00S422

$TESTN, $SERRPC,E.AO0,E.BO,E.RL,E.Bl,E.A2,E.B2,E.B3
H.ARO,H.B0,H.AL1,H.BI,H.A2,H.B2,H.B3

MACY11l 30AR(1052)
25-JAN-78
DATA HERDERS

I13

CZR6JEO UNIBUS RKB DR _PRT3
<ZR&JE Pl1
25-JAN-78 12:08
8
9
0
é

3
g

QS4460

OsS44e2
0S4470
0S4476
0S4S00
0S4S06

0S4514

00S426

005364
005354

005342
005344
005356
005374

0S4Sie

000003

8722
8723
8724
872s
8726
8727
8728
8729
8730
8731
8732

054526
0S4530

0S1042
00?

0S4S32
(CS4534
0S4536
(0S4540
0S4S42
0OS4544
054546

00000S
000
0S07SS
go2
053316
003
050772

8734
g;gg

054552
0S4SSH

051042
007

054556

00000S

8721

8735

8737

8738
8739
8740
8741
8742
8743
8744
B74S
g;:g

0s4520
QS4se2
0S54Seu4

054550

0ce
0Ss077e
00?7

00?7

30AR(10S2)
25-JAN-78
ERROR OUTPUT DARTRA

00S346
00S360

00S3S0
00S372

HWC , HBA, HDA, HRSOF , HOC , HPOS , HPRT

000

.SBTTL

ERROR DRTR FORMRTS

DF1l:

000

.BYTE 7,0

000

DF 3:

000
000

000

.BYTE

000

8748
g;gg

0S4602
0S4604

00000}
0oe

000

£’S1
3752
8753

0S4606
0S4&10
(0S4ele

000003
0ge
050772

8755
8756
8757
8758
8759
8760
8761
8762
8763

054616
0S4620
0S4622
DS4beY
(054626
054630
0S4632
0OS4B34
0S4e36

051042
0oz
000004
000
050755
0Qe
050772
007
051042

DFY4:

000

000
000
000

7,0

.BYTE 0,0
DH1
.B8YTE 2,0
DHEE

DFS:

1
.BYTE

OF7:

3
.BYTE
DHe

000
000

7,0

.BYTE 3,0
DHE
.BYTE
7,0
DH3
.8YTe
7,0

000

7,0

S
.8YTE 0,0
DH1
.BYTE 2,0
DHE1
.BYTE 3,0
OHe
DH3
.8¥y7E

000
0oo

.BYTE 2,0
DH2
DH3
.BYTE

00?7

165

HMR1, HMR2,HMR3,
HER ,HDS,HCS1,HCSe

000
050755
C0e
0S336l
003
050772
0a?
051042
00?7

0OSu461Y

PRGE

005370
005340

0S4560
054562
0S4564
0S4S66
054570
Q54572
054574
0S4S76
0S4600

8754

J13

12:16

00S366
0058352

9
8
9
0

MAC¥11l

.8YTE

OF10:

2.0
2,0

7,0

DH3
.BYTE
7.0
4
.BYTE 0,0
DH1
.BYTE 2,0
DHZ2
.BYTE 7,0
DH3

SEQ 0165

0 UNIBUS RKE DR PRT3J
Pl
2S-JAN-78 12:08
os4e40

007

gs4e4e

00000S

QS4e46
OS4650

053733
000

OS4Ee4Y
8 4652

4654
Qs4eSe

0s4660

Qs4706
0s4710
0S4716
054720
QS4ze2
os4724
0S4726
0S4730

05075S
002
050772
007
051042
007

as4734

Q54736
gS4740
QS4742
054744

ooQ

00000S
000

0S075S
0Qe
0S3133
002

054746
054750
0S4752
0S4754

050772
007
051042
a7

0sS47S6
054760
QS4762

000007
000
0S075S

0S4766
054770
QS4?72
054774
0S4776
055000
055002

053666
000
053706
004
0S3676
0 o4
250772

oS476M4

00e

DF1S:

DFL7:

DFe0:

0oo

oco
000
000
000

.BYTE

DOHe
.BYTE
DH3
.8YTe

ooo

DF2l:

7,0

0,0

DH1
.BYTE
DHSE
.BYTE

000

7,0

.BYTE

?
.BYTE
DH1

.BYTE

OHBS
.8YTe
DH71
.BYTE
DH70
.BYTE
DM2

SEQ 0l6k

2,0

0,0

DH1
.BYTe
DH2
.BYTE
DH3
.8BYTe

166

0,0

s
.BYTE

DH4Y4

000

7,0

.BYTE

000

.BYTe

.BYTE
OH1
.B8YTE
DHe

PRARGE

2,0

7,0

K13

12:16

0,0

.BYTE

DH3
.BYTE

000

0,0

OH3

000

.BYTE

.BYTE
DHe

0co

000

7,0

DH1

ooo

00000S
000

0S2601

QS4732

et Pt Pt P

0S1042
007

ooo

.BYTe

DH73
.BYTE

000

ooo

000
050755
002
050772
00?7

OFle:

000

00?

054712

OSH4714

000

000004

30R(1052)
25-JAN-78
ERROR DATA FORMATS

000

00?7

0S4666

QS4702
0S4704

DO NN LWh—-0O

0Q0e
0S0772

0Sl1042

054670
Qs4e72
0S4674
Qs4676
0s4700

5t et Pt Bt Pt

0S0755

gsS4eb2

0osS4664

0D 00 WD DD 00D 0L DM
[eedoaloclooloeloclootoelveleo]

000

MACr1l

2,0
7,0
7,0
0,0

2,0
2,0
7,0
7,0

0,0

2.0
0,0
4,0
4,0

CZRBJED UNIBUS RKb DR PRT3
CZRBIE.P 11
25-JRAN-T8 12:08

0SS004
055006
055010

00?7
0S1042
007

000007
00C
0S0755
002
0S3666
gao
053706
006
NS3676
006
05077;
Q0
0s1042
00>
000097
000
0S07SS
0oe
05366%

MACY11

30A(10S2)

ERROR DRTA FORMARTS
.BYTE
DH3
.BYTE

000

DfFee:

000
000

000
ooo

000
C0o0
000

DF23:

000

oco
000
000
000
000

0SS100

@2S-JAN-78

L13

12:16

PRGE

167

SEQ 0167

2,0
7.0

.BYTE
DH]
.BYTE
OHE9
.BYTE
DH?*
.BYTE
DH?0
.BYTE
DHe
.BYTE
DMH3
.BYTE

0,0

e,0
0,0

6,0
6,0
7.0
7.0

7
.BYTE
DH1
.BYTE
DHE9
.BYTE
DH”}
.BYTE
DH?0
.BYTE
DHe
.BYTE
DH3
BYTE

0.0
2,0
0,0
7.0
7,0

7,0

illlllllllIllil‘lllllillilllllllllllll SERERRBAEERBERREERRRERERRRS

000

"4BTTL

. *ENTRY

TYPE snnon nouxxme

iRETURN RTS PC
JSR

PC,TYP

ERR

lTHIS ROUTINE USES THE “ITEM CONTROL BYTETM (SITEMB) TO DETERMINE WHICH
;#ERROR IS TO BE REPORTED. IT THEN USES THE “ERROR TRBLETM (SERRTB)
igngERTSRDEFINE WHAT INFORMATION IS TO BE REPORTED CONCERNING
e
Pn
e P
e
et Pt Pt Pt
e Bt B
e

£ £ L WWWhnn»-—0
o0
oLfoLnOcC
Lo £V LN

0000000000000
i
ninnidtn
[UalVAYUANUA
VATE ATV ANY A VATUalValialV,]

104413
032777
001107
113700
042700
00S300
006300
006300
006300
062700
012037
001404
104401

SRR

020000

124026

BIT

001114
177400

00SS.c
0S5154
001208

t¢PERR: SAVREG

RN RN AR

RN R RN R

INHIBIT ERROR TYPEOUTS”

3177406 RO

.CLEQR SIGN EXTENSION

208
$ITEMB, RO

OEC

' YES-BRANCH
'ENTER ERROR NUMBER

!FORM INDEX FOR ERROR TRBLE

ASL
ASL
ASL

RO
RO
RGO

MOV

(ROY+, 2¢

'GET EM POINTER

"§CRLF

ITYPE

RDD

BEQ

TvPE

RSB ERRNRRRAAARO RN

85W13, aSWR

BNE
MOVB

BIC

18:

RN RN R R R R R R

$SERRTB, RO

:FORM ADDRESS OF ERROR ENTR

'BRANCH IF THERE
CRRRIAGE

ISN'T ONE

RETURN

LINE

FEED

CZRBJED UNIBUS RK& DR PRT3

CZRBJE.PL1
?

25-JAN-78 12:08

MACY1l

30R(1052)

TYPE ERRIR ROUTINE

33;9 823{?5 6828 0 ec172
§§g§ §§§i§§ %&ng
481
001205

gg:

BEHS B2ei%
8884
0S5176
001455
888§
g 204 BY3884
868
012002

aea) ooole
10)0L 001208
8840
Bz281% 14€9%3

108

BBae Be=ssd B9 146

118:

8881

055170

109401

86888
8889

ggsaos
5210

001446
005104

9993

0s5e22

00538;

8896
8897

065230
ossa§§

104402
?303

8302

0S5246

003431

8o
8905
8906

gggs q

§760
1904
005104

§83§ 8§§5qa ?8
751 055366
9281 823544 889302
8903

055250

055262

104401

148

001205

000002

15%:

egio 055278 500004

168

gl G2 e

3914y
gfi
8§ 82&988
000002
8915
0653
000754
0SS314
Sgggsg

892
8922
8923

osggge
053334
055342

8919
8320
8324
8925
8926
8327
8928
8929
8330

055324
055330
055344
055352
0S5354
05%360
(55364
055366

104401
S704
1335
104401
000732
104414
032777
001410

023727
001004
012706
000137
000207
020040

001205

218%:

055366

17%:

010000

123576

001103

000024

001100
023374
000

TYPE

20%:

M13

12:16

PAGE

168

: TYPE ERROR MESSAGE

SEQ 0168

(EM)

Hgono
v
g
YPE

?RO) ot
+,
S. S§CRLF

EnTPoxnrsnflcoss HERE
gi
NE HERE ISN'T ONE

BEQ

w0
g0
MOV

gos

BEQ
COM

Qroyens
Boe
ro
(RO)*,RE

178
RY

R PRINEES 08
anancn IF men;csns NONE
i3ET
APOBN]NTEA
:STORE NUMBER OF DH'S

lgc?&rna

gsg

NUMBERRoRDOF DRTA WORDS
Sfinp ALYREEoRanIE

ngso

;YCE
187
MOV

L
(R1)+,-(SP)

TYPOC
ogc

BLE

20%

157
BEQ
COM

2(RO)
15§
RY

E;SE
DEC
TYPE

8908
gecaee 085302
5366
3283 832593
612095 835330

8916
3317
18

25-JAN-78

??Eg
MOV

1§§ncse
R2
$CRLF

:DH NUM IS 0-BRANCH
:NO INDENT

TEST IF ANY onrn ron THIS HERDER

B0y
LOAD on N sTac K
u r?nér BATA W

STYPE
1
noné oarn WORDS

E;g SESQRQTORS
*MORE DH'S?
: NO-BRANCH

:ONLY A DH IN THIS REQUEST”?
YES--BRANCH BYPASS INDENT
xno N

lSgncsa
tRO)+, 168

TYP$ SHCE
cE?
PO?NTER

oé
RO
144

xnéngnen$
DF POINTER
:GEE IF END OF DF BLOCK

ngso
0
98
Do)

go
BR

PE 2a H$ gg HERE

BZPPOINTER GOES HERE

TYPE
TST
BNE

$CRLF
R4
108

;s INDENT?
* NO-BRANCH

RESREG
BIT
BEQ

#SW12, ASWR
259

;SEE_IF EXIT AFTER 20 ERRORS
F NO

TYPE
BR
CMP
BNE
MOV
JMP

SPACE?2
ios

SERFLG, #20.
25%
8STACK, SP
{NDRV

25%:
RTS
PC
SPACE2: .RSCIZ/
/
.
00T-11 -- VOOSR

:YES-TYPE SPRCES
:LOOP
ELSE SEE IF HAVE 20 ERRORS
:BR_IF NO
'ELSE RESTORE STACK
'AND BYPRSS DRIVE
:2 SPACES

CZREJEO UNIBUS RK& DR PRT3
CZREJE. P11
25-JAN-78 12:08

MACY1l 30A(10S2)
25-JAN-78
TYPE ERROR ROUTINE

gggg

8934

893S
8936

DEC-11-UODPR-AR-LA

;

MAYNRRD,

SEQ 0169

RABS, AMA

063004
000005

RY
RS

=
=

%4
%5

000007
177776

PC
31

=
=

%7
177776

055372
055452

894 |
8342
8943

000001
000002
000003

8946

000006

8940

000000

8344
8945

8947
gg:g

8950
8951
8352
8953

R1
R2
R3

0.TvVEC
0.5TH
0.78T
TRT

000006

RTT

8956

EVEN
=. +60

=
=
=

000014
000340
000020
000003

gggg

MASSACHUSETTS 01754

t
NABL

8938
8939

=
=
=
=

%1
%2
%3

: REGISTER

!
P

NAMING
CONVENTIONS

)

14
340
20
000003
000006

;STATUS REGISTER

: TRT VECTOR LOCATION
'PRIORITY MASK - STATUS REGISTER
:T-BIT MASK - STATUS REGISTER
:TRT INSTRUCTION

SRTT INSTRUCTION

: RS IS USUSLLY consxoenso SAFE,

83857
8958
gggg

THE CURRENT nooness WORD

. RESIDES IN IT.
RFTER A BREAKPOINT, IT IS SET TO ZERO, AND SEARCH
: OPERATIONS LEA vs IT RANDOMLY FILLED. OTHERWISE, IT SHOULD NOT
: BE USED EXCEPT FOR JSR’'S AND THE CURRENT ADDRESS POINTER (CRD).

8961

177562

8962
8963
8964
8965
8966
8967
8968
8969

d.RDB

177560
177566
177564

8975
8976
8977
8378
8979
ggg?

055452
055454
065456
0S5464
085472
0SS476

000413
000417
013737
013737
(010737
000137

8982
8983
8984
83985

0S5502
055506
0SSS12
(SS514

012706
010637
0004.4
004037

055520
0SSS26

013777
113704

1?7562

;R DATA BUFFER

0.RCSR
=
177560
;R C/SR
0.70B
=
177566
:T DATA BUFFER
0.7CSR
=
177564
;T C/SR
;
:
: INITIALIZE 0DY
:
"USE 0.0DT FOR A NORMAL ENTRY
:
USE 0.00T+2 TO RESTART ODT - WIPING OUT ALL BRERKPOINTS

gg;?

8386
838~

PRGE 169

! DIGITAL EQUIPMENT CORPORATION

8937

8972
8973
8974

N13

12:16

USE 0.0DT+4 TO RE-ENTER (I1.E.

177776
000016
0SS430
056630

0S5432
177776

0SS412
0S5426

057036

0SS450
055434

177716

- FAKE A BREAKPOINT)

b.00T:

BR
R
O.ENTR: MOV
MOV
MOV
JMP

0.STRT
0.RST
S7,0.UST
0.1vEC+2,sT
PC,0.UPC
0.8kl

NORMQL ENTRY
:RESTART
:RE-ENTER -- SAVE STATUS
'SET _UP Loan STATUS
‘FAKE THE
P

4.STRT: Mov
MOV
BR
0.RST:
JSR

80.URD, SP
SP.C.USP
0.RST1
0,0.SVR

:SET UP STACK
:FAKE THE SAVED STACK
:CLEAR BREAKPOINT TABLES
'SAVE REGISTERS

MOV
MOVB

O'UIN.30.ADR1
0.PRI.RY

:REMOVE THE BREAKPOINT
‘GET ODT PRIORITY

C%RBJEO
UNIBUS_RK& DR _PRT3
6JE.P1
2S-JAN-78 12:08
0SSS3e

MACYL1l 30Q(1052)

TYPE ERROR ROUTINE

RORB
RORB
RORB
MOVB

106004
106004

177776

055576

055600
055604

.RST1: ggp
0S6540

.4S:

000016
000014
Oeswvecae

000002
057457
000340
0S6620

057260
057503

057474

170

SEQ 0170

RY
RY
RY
RY,ST

:SHIFT
: TINTO
:
"POSITION
*STORE IN STATUS

#RTI,0.RTIT

:SET TO RTI

69¢%+

0.P
#0.STM,0.TVEC+2
80.BRK.0.TVEC
0.RALL’

IF 11/20 OR /0S

‘DISA_LOW PROCEED
;:STATUS WORD TO TRT VECTOR + 2
:PC TO TRT VECTOR
: CLERR BREAKPOINT TABLES

.REGT:

JSR

.RSP:

CMPB
BEQ
CMP
BHI
BIC

MOV

0.GET

ob TL,RY

RO (RY%)+
0.5p
$0.TL+0.LG,RY
0.RSP
$177770,R0
,RY

.SP1:

MOV
ASL

.SP:.

INC
BR
SUB

R2
0.SCAN
$0.TL-7,R4

ADD

#0. URO, RY

0.SP1

:SPECIAL NAME,

GET ONE MORE CHARACTER

:TABLE START ADDRESS

11S THIS THE CORRECT CHARACTER?
:JUMP IF YES
,IS THE SEARCH DONE?
'BRANCH _IF NOT
IMASK OFF OCTAL
; GENERATE ADCRESS

:SET FOUND FLAG
:GO FIND NEXT CHARACTER
:CORRECT CONSTANT

+ HANDLER - OPEN INDEXED ON THE PC
055650

004737

.ORPC:

0s7404

JSR

MOV
ADD

0sse72

000137

055676
055700

005702
001406

055710

010437

0ss714

000412

055716

012737

0S6144

0OSSH4Y4

; CURRENT ADDRESS IN R2
: COMPUTE

R2
0.ERR
R2

:MOVE _ONE BIT TO CARRY
'ERROR IF ODD NUMBER
'RESTORE WORD

MOV
JMP

R2, RS
0.6p2

:UPDATE CAD
:GO FINISH UP

(R2)+

AND_INCREMENT BY TWO

B HANDLER - SET AND REMOVE BREAKPOINTS
.BKPT:

05544y

0S7520

PC,0.TCLS

RS’ R2
RS, R2

ASR
BCS
ASL
TST

Omser
e

Pt Pt Pt Pt Pt

LW
DD

Pt Pt P

JDDDO
DO DD
0000000

9020

162704
000770

CLRB
MOV
MOV
BR

PAGE

DEPENDS UPON THE EXPLICIT ORDER OF THE TWO TRBLES O.TL AND 0.URO

177770
oss41e

MOV

Bl4

12:16

SPECIAL NAME HANDLER

057511

055646

-JAN-78
25-

0. RALL:

TST
BEQ
ASR
BCS

R2
0.RALL
RY
0.ERR

ASL
MOV

RY
R4, 0.ADRI

0.DCD

MOV

#0.TRTC,0.ADR1

;
IF_NO NUMBER TYPED
REMOVE BREAKPOINT
"
i CHECK IF 00D
:JUMP IF 0DD

'RESTORE ONE BIT
:SET A BREAKPOINT

;CLEAR BREAKPOINT

CZR6JED UNIBUS RK& DR PRT3
CZR6JE.P11
25-JRAN-78 12:08

gg:g

0SS724

MACY1l

30A(1052)
25-JAN-78
TYPE ERROR ROUTINE

000406

gg:g

3048

3833
9051
90s2
9053
9054
9065
9056

9057

9066
3067
3068

#1 RS
s}RO
s O'FTYP
§'0.CRLS
RY

055;52

004;37

gggggg

0.SCAN: Jgs

cer

056004
Sgggus
10

3069
9070
9071

056012
056014
ossoeg

9073
9074

056024
056030

9072
9075

3076
3835
9079

3080

9081
9082
9084

8085
9086
<087
9088
3089
9030
90391

gggg

0.ERR:

CLR

HI
3
ASL

006304
006304

060004
oos;o

8(
.-7 RO
.199%0 RO

RSL
ASL

R
R4

005001
120061
061405

057467

0.CLGL: CLR
0.LGLI: CMPB
BEQ

020127
103336

000014

CMP
BHIS

0Se042

0.LGL2: ASL
JMP

056022

005201

056032

000770

6170

0.0RPC
0.BACK

056542

000030

0.LGL

RO, R4
R2

*PACK THREE BITS IN RY
R2 HAS NUMERIC FLAG

R1
RO,0.LGCH(R1)
0.(GL2

CLEQR INDEX
:DO THE CODES MATCH?
:JUMP IF YES

0.SCAN

AND TRY AGAIN

! RE-LOOP

056252
0S5676

;

0.LGL1

.LGDR: 0.WRD

056200

EcEEG&LITY ?} NSN-NUMERIC
R
VERTEYO AL
: nnxe ROOM
cggggnssuélHTesgéxNgT ocTAL

056072

056060
056062
056064
NSe066
056070

R2 IS THE NUMBER FOUND FLAG

cerpcnsn RETURN IN RO

P"SET INDEX FOR NEXT SEARCH

056042

056054
056056

006301
000171

056124
055600
056434
056136

: CLOSE EVERYTHING
: 7 70 BE TYPED
; OUTPUT 7
STYPE (CRY(LF>#
: nq CONTRINS THE CONVERTED OCTAL

INC

056034
056036
0S6044
056046
056050
056052

CMP

ADD
INC

00076

gggg

R1, 80.CLGT
0.&RR
Ri
30.LGDR(R1)
;

115 THE senncu DONE?
;
00PS

IMULTIPLY BY TWO
:G0 TO PROPER ROUTINE

OPEN WORD

0.CRET
O.REGT
0.GO
0.0P1

;
:
:
:

CRRRIAGE RETURN
CLOSE
§
REGISTER OPS
G
GO
TO ADDRESS K
<LF>
MODIFY,
CLOSE
OPEN NEXT

0.0FST
0.WSCH
O.EFF
0.BKPT

:
;
;
:

O
W
E
B
P

'-0.LGDR

O0.PROC

;
:

«
¢

OPEN RELAtED, INDEX OPEN PREVIOUS

OFFSET
SERRCH WORD
SEARCH Errscrxvs ADDRESS
BREAKPOINTS
PROCEED

:LGL MUST EQUAL 2X CHLGT ALWAYS

: PROCESS / - OPEN WORD

9096
9037

056072
0S6074

9099

0Se&100

9098

BIS
MOV
JSR
0.0CD: JSR
0.0CO1: CLR

0S6000
056002

SEQ 0171

REGISTERS RO-RY MAY BE
U

000001
000077
057336
057436

005002

171

COMMAND DECODER - ODTI!

052705
012700
004537
004537
00S0O0M

055750

PAGE

0.0CD

0SS726
055732
085736
055742
055746

38?9
83?725 ?fiffl
3060 0S576M ogezoo 000067
338)
Be2o78 ABIR 177770
9063 055776 006304

9064
9065

Cl4

12:16

056076

005702
001410

b.uRD:

00e205

0.WRD1: ASR

010405

TST
BEQ
MOV

R2
0.WRDA

:GET VALUE IF R2 IS NON-ZERO
sxxp OTHER
WISE

MOVE ONE BIT TQO CARRY

R4, RS

PUT VALUE

IN CRD

CZRBJED UNIBUS RKGE DR PRT3
CZRGJE.P11
25-JAN-78 12:08

9100

4101
9102
9103

0Se102

056104
0S6106
056110

103711

006305
011500
004537

MARCY1l

30A(10S2)
25-JAN-78
TYPE ERROR ROUTINE

0.ERR2:
057174

BCS

ASL
MOV
JSR

RS
@RS, RO
S, 0.CADV

.
: BiC
L RS,
3.WRDA:
Mi
Bk
8RB,

gigg

’

PAGE

0.ERR

Y
3i0s
QeElle D4270e
0000OL
3106 BE1s8 Bo%es
/

D14

12:16

b.CRET:

giig

! PROCESS (LF>, OPEN NEXT WORD

056134

000702

3116
9117

0S6136
056142

004737
005725

91i9
3120

0S6150
056152

010500
004537

9118
9121
9122
giga

056144

056156
056162
056166

9127

9128

8.0P1:

0049537

057430

0.0P2:

012700
004637
000744

000057
057336

057174

g{gg

0S6170

004737

056176

000762

005745

0S7404

9133

4134
9135
9136
9137

9138

9139

056200

103737
006305
012700
004537

0S6220

005304

62lb

9145
9146
9147
3{33

056236
056240
056242
086246

918]
9152
91583
3154
4185

006205

0S6c02
056204
62
056212
0S6222

9150

:; COERR CLOSED
81T -Ine
;55 BRcK- 13- RaTAIL

PC,Q,

8] 85 TCLS

;CL

OCATION
; L8§E EVERY*H
3

0.0cD

;RETURN TO DECCUER
;CLOSE PRESENT CELL
'GENERATE NEW ADDRESS

MOV
JSR

RS, RO
5,0.CADV

:NUMBER TO TYPE
: TYPE OUT RDDRESS

JSR

PROCESS

d.BACK: JSR

75T

S,0.CRLF
s’/ RO
S,C.FTYP
0. WRD!

P <CR> (LF>

'TYPE A 7/

:GO PROCESS

OPEN PREVIOUS WORD

PC,0.TCLS

-(RS)

0.0P2

IT
i

: GENERATE _NEW ADDRESS

'GO DO THE REST

. PROCESS 0, COMPUTE OFFSET

9140
9141
9142

9143
9144

*RESTORE THE CARRY BIT
"GET CONTENTS OF WORD
:GO GET AND TYPE OUT QCAD

PC,0.TCLS
(RS)+

gigé

; JUMP IF ODD RDDRESS

JSR
18T

MOV
JSR
BR
:

056174

é?sJSR
BR

0S7404

gisg

SEQ 0172

PROCESS CARRIAGE RETURN

7404
3ii? 8?2130Y 8 47
278@ 880081

3fi§

172

056226

(S627J
08234

160504

80 304
10400
ul0402

004537
010200
006200
10340
004537
000137

4.0FST: ASR
BCS
ASL
MOV
J3R

0O0OQ40
057336

SUB

057174
055746

0.0F1:

:GET LOW ORDER BIT

RS, RY

:COMPUTE

RY
RY,RO
R4 R2

;
16 BIT OFFSET
PTYPE A
'SAVE RY

RO
0.0F1
S,0.CADV
0.0C01

;DIVIDE BY TWO
; BRANCH §r 00D
*NUMBER
IN RO - BYTE MODE
JALL DONE

0.ERR2
RS
s’ ,RO
S,0 FTYP

DEC

JSR
MOV

5,0.CADV
Re,
RO

DEC
MOV
MOV

057174

ASR
BCS
JSR
JMP

: SERRCHES - S$MSK _ HAS THE MASK
:
:

JERROR IF CLOSED
:RESTORE WORD
: TYPE ONE_BLANK
: RS A SEPARATOR

*NUMBER IN RO - WORD MODE

$MSK+2 HAS THE FWA
§MSK+4 HRS THE LKA

CZR6JEOQ UNIBUS RKH DR PRT3
CZRGJE.PI1
25-JAN-78 12:08

9168

0S6252

005201

9160

056256

005001

9164

056270

013705

056302

1061217

9159

9161
9162
9163

3165
9166

9167

(056254

056260
056262
0S6264
674
056276

005105
020237

30A(1052)
25-JAN-78
TYPE ERROR ROUTINE

O.EFF:

000401

005702
001621
013702

MACY11

0.WSCH:

0S5440

0.WDS:
0.ERR1:

055436
055442

0.WDS2:

INC

CLR

15T
BEQ
MOV

0.WDS

173

SEQ 0173

:SET EFFECTIVE SEARCH
;SET WNRD SEARCH

*CHECK FOR OBJECT FOUND
:ERROR IF NO OBJECT
:SET ORIGIN

RS
R2,0.MSK+Y

:AND COMPLEMENT IT
: IS THE SEARCH ALL DONE?

aR2, RO

0.MSK,RS

BHI

0.0CD

'SET MASK

YES

9168

056304

011200

9170

056310

001027

BNE

9172
9173

0S6314
056316

010403
Q404

MOV
BIC

RY.R3
R4’ RO

: EXCLUSIVE OR
IS DONE

9175

056322

050003

BIS

RO, R3

001016

0.WDS3: BNE

9169
9171

9174

056306
056312

9176

056324

3178

056330

9177

9179
9180
9181
9182
9183

9184

9185

005701

010046

042603
010446

056340
6354

011200

056344
956350

056356

012700
004537

004637

9186

056362

012604

3189

056370

020004

919]

056374

9187
3188

9190

9192
3193
3194

056364
056366

056372
(056376
(056400
0Se402

005722
000743

001755

010003
060203
005202
005203

TST

MOV

RO, -(5P)

BIC

040503

004537
010200
004637

MOV

PAGE

R2
0.ERR
0.M5K+2,R2

MOV
COM
CMP

E1lY4

12:16

057430
057174

'BRANCH IF EFFECTIVE SERRCH

IN A VERY

FANCY MANNER HERE

RS R3

PAND RESULT WITH MASK

MOV

R4, -(SP)

'REGISTERS R2,R4,

0. 4DSY

JSR
MOV
JSR

5,0.CRLF
Re, RO
s,b.cnov

MOV

3R2, R0

MOV
JSR

057174

JSR

0.EFF1:

(SP)+,R3

'NO

BIC

000057
057336

0.WDS4:

0.EFF]

GET OBJECT

MOV

2!/ RO
5.0 FTYP

S, 0.CADV

74P} +,RY

TST
BR
CMP

(R2)+
0.WDS2
RO, RY

MOV

RO, R3

BEQ

ADD
INC
INC

0.lDS3

R2.R3
R3
R3

IRE-LOOP IF NO MATCH

:TYPE <CR,LF>
:GET RERDY TO TYPE
: " "TYPE RDDRESS

AND RS ARE SAFE

'SLASH TO RO
STYPE IT

SGET CONTENTS

:TYPE CONTENTS

: RESTORE R4

P INCREMENT TO NEXT CELL AND
:
RETURN
P

(X)=K?

'(X)

TO R3

! TYPE IF EQUAL
P OX)+X

(X)) +X42

CZRBJED UNIBUS Rk& DR PRT3
CZR&JE.PL1
25-JAN-78 12:08

MACY11l

30AR(10S2)
TYPE

@25-JAN-78

ERROR ROUTINE

177400

055430
000340
057126

176742
057520

177776

0ss432
0SS4S0
176732

0S6540

gses42

.TBIT:

.G02:

o-‘-‘-‘- O

nPt Pt Pt P P P Pt P
o D@DV LW

D0 [V Ve IV IV IV IV IV IV o]
n [AVIaVIgVIgWT
V1 VI oW1 V)

9211

.GO:

057457

.RTIT:

s IS (X)+X+2=K?
'BRANCH IF EQUAL
{WIPE OUT EXTRANEOUS BITS
'EXTEND SIGN

ASL
INC

RO
RO

sMULTIPLY BY TWO
‘ADD TWO

CMP

RO’ R4

CLRB
ASR
BCS
ASL
MOV
MOVB

0.P
RY
0.ERR2
RY
RY,0.UPC
80.STM, ST

CLRB
BIC

0.7
#0.TBT,0.UST

0Seb16

000735

MOV
MOV
MOV

MOV
MOV
MOV
MOV
MOV
MOV
MOV

MOV

RTT

0.WDS3

;ADD PC

:1S THE RESULT A PROPER REL.

;DISALLOW PROCEED
{CHECK LOW ORDER BIT
{ERROR IF 0DD NUMBER
'RESTORE WORD
SSET UP NEW PC
ISET HIGH PRIORITY

S,0.RStT

'RESTORE TELETYPE

90.ADRI,0.UIN
0.TRTC,&0.RDR1
(5P)+, RO

:SAVE INSTRUCTION
;REPLACE WITH TRAP
:RESTORE

(SP)+.R1
(SP)+.R2
(SP)+.R3
(5P)+ R4
(SP)+.RS
(SP)+.SP
0.UST.=(SP)

0.UPC.-(5P)

BRANCH"”

:CLEAR BOTH
;7
T-BIT FLAGS

.
}
;
:

!
:
:

THRU

AND 5P
AND STATUS
AND PC

:CHANGED TO RTI FOR 11,20 AND -0S

ONLY ALLOWED AFTER A BREAKPOINT

.PROC:

177776

.PR1:

177776

.Cl:

055432

JSR

RO
Re, RO

PROCESS P - PROCEED

057457

055446
000340
057126
000342
0S74S
000020

SEQ T174

174

R3,RY
0.WDS3
#177900, R0
RO, RO

BR
0s7457

PAGE

CMP
BEQ
BIC
ggga

INC
ADD

0S6434
0Se440
gse442

F1y4

12:16

TSTB
BEQ
CLRB

0.P
0.ERR]
0.P

MOVB
JSR

MOVB

80.STM, ST
5 0.RStT
80 STM, ST

0.Go2

7ST
BEQ
MOV

INCB
BIS

R2
0.PR1
RY,0.CT

0.1
#0.TBT,0.UST

BREAKPOINT HANDLER

s CHECK LEGALITY OF PROCEED
:NOT LEGAL
:CLEAR PROCEED FLAG

:WAS COUNT SPECIFIED?
INO
'YES,
PUT AWAY COUNT

:FORCE HIGH PRIORITY
:RESTORE TTY
:SET HIGH PRIORITY

:SET T-BIT FLRG
'SET T-BIT

A TRT BREAKPOINT CRUSES 0.BRK TO BE ENTERED,

WHICH SAVES

VARIOUS GDDS AND ENDS, FINDS OUT IF THE BREAKPOINT WAS LEGAL,
AND GIVES CONTROL TO tHE COMMAND DECODER

0.BK3:

055430
05544y

057032

055446

0.B3:

0sS742

POSITION

—O

cC
"o

S
VOO

—

D
o
P

R
P
)
O
o
n

suarnnév TWO

; ERROR,

; OUTPUT “BETM FOR BRD ENTRY

%ECE *ELE?YPE STATUS

m
Q

0 CRLF

NOTHING FOUND

:CLEAR OUT ANY POSSIBLE FAKE T-BIT
:

"AND CONTINUE

; JUMP _IF REPERT

IRESET COUNT TO 1
:ALLOW PROCEED
iSAVE TELETYPE STATUS, R4 IS SAFE
TYP

GET RDDRESS OF BREAK

057174

,0.5VTT

000001
057457
057074

HIGH ORDER

'FROM THE USER'S PC
'COMPARE WITH LIST

O-

0SS446

:OTHERWISE PICK UP ACTUAL PRIORITY
:CLEAR CARRY

RS, C.UPC

DN
= NNO

055432

PRND DON’T
i COMPUTE
S THEokPRIORITY

RS
Ogc
0.

oDNONIENOBOOO

000020

; PRIORITY_IS ? UPON ENTRY

{SAVE STATUS AND
P
; SAVE VQRIOUS REGISTERS
;CHECK FOR T-BIT SET
:JUMP IF SET
{REMOVE BREAKPOINTS
CHECK IF PRIORITY

;

057322

SEQ 017S

SHIFTOLOH ORDER BITS
INT
i

RSQO RADR1

057074
057430

17S

ET
THE ?TQTJ? AWAY WHERE IT BELONGS
N TS TO THE TRT
G T

SS430

PAGE

0
wn

0.Rv¥2:

BPL
MovB
BR
Move
ccc
RORB
RORB
RORB
RORB

jolelalolelalele]n
Vel
<. N
VTOCLDVCHA—-HOTVO
VXX DD
—WHU—Z~
N+
+

TSTB

055432

77776

JSR

7578

BNE
MOV

176574

055434

MOV

0SS4S0
0SS434

0.BKl:

MOV

12:16

])
un

6.BRK:

055430
055432
057" 36
057456

056620

; TYPE_ADDRESS
iCLEAR CRD
:G0 TO DECODER

gs7o42
057046

057052
OS?OSH

057072

0S748y
055426
0S5426

£
o

0S7036

DLfl(dODgDONON

: SAVE REGISTERS RO-R6 IN INTERNAL STACK
00000000000
OO0 4= 4ot s pms bt bt peo ps

9251

GlH

30R(1052)
25-JAN-78
TYPE ERROR ROUTINE

DDVD
oo

CZR6JED UNIBUS RK& DR PRT3 .08
25-JAN-78 12

CZRBJE. P11

MACY11

246

746
746

200

057454

b.svR:

MOV
MOV
MOV

MOV
MOV
MOV
Mov
MOV
MoV
TST
RTS

(SP)+ XXX

0.(SP

co USP SP

RS, -(SP)
R4, -(SP)
R3,-(5P)
R2.-(5P)
R1,-(SP)

0. %xx, -(SP)

-(SP)
RO

;PICK REGISTER FROM STACK RAND SAVE

{SAVE USER_STACK ADDRESS
:SET _TO INTERNAL STACK
;S VE

;1REGISTERS
;

THRU

{PUT SAVED REGISTER ON STACK

CZRBJEQ UNIBUS RKE& DR PRT3
CIRBJE.P il
25-JAN-78 12:08

MACY1l

30A(10S2)
25-JAN-78
TYPE ERROR ROUTINE

;

177560

057460
057461

SAVE

CLRB

JSR

RS
.

100;?;

BaT4a3

105737

Be718¢ 193933
113737
000205

057174

RESTORE

177560

057460
057461

177560
177564

0.RSEL:

05?7517
000060
177770

SEQ 0176

0.RCSR,0.CSR1
0.TCSR.0.CSR2
0.RC3R

;SAVE R c/sn
:SAVE T C/SR
'CLEAR ENRBLE AND MAINTENANCE

S,0.CRLF

TVPE (CR,LF>

0.TCSR

TELETYPE

BéoT

1775860

o. e wowe

057164
057172

oo4000

176

0.RSTT: JER
;PEB

057430
28e3%% 7564

PAGE

TELETYPE STATUS

b.svrT: MovB
MOVB
CLRB

0S7430

H14

12:16

15.8
pr

MOVB

IN BOTH C/SR

STATUS

S,Q.ERLF
.qc R

. (CR,LF> BEFORE RESTCRING
:WAIT READY ON PRINTER

"
0.RCSR
0.8881

;

6. csnx 0.RCSR

'RESTORE

0. RCSR

gg;a

BITS

gscsna 0.TCSR

gCHECK
ig REHBYY FLAG
Lbos ?rON READ
NS Eusv
iWAIT READY
:
8
N READER

THE STATUS REGISTERS

TYPE QUT CONTENTS OF WORD OR BYTE WITH ONE TRAILING SPACE

WORD

.CADV:

MOV

R2,-(SP)

MOV

01?7770 R2

0.SPC:

IN RO

MOV
MOV

‘BUFFER START ADDRESS
:CONSTANT ASCII O

MOVB
ASR

aSP,R2
R2, - (RY)
RO’

:CONVERT TO ASCII
:STORE IN BUFFER
,SHIFT THIS MESS

CMP

RY,

BIC
RDD

ASR
ASR

057512

BHI
BIC
RDD
MOVB
MOV
JSR

177776

p0S7517
057322

ggg

057256

; SAVE R2

80,eur+s RY
0 (SP}

RO
RO

#0.BUF +1

0.8PC
8177776 ,.R0O
(5P)+.RO
RO, - (RY)
oo BUF +6,R3
TYPE'

ésp)+ R2

;

P
!

GET

OCTAL CHARACTER

TRIGHTY
THREE WHOLE PLACES

,oo £?

NO
:GET LAST BIT
,CONVERT TO RSCII
;AND PUT’ IT AWAY
:LWA
:TYPE WHOLE STRING OF CHARACTERS

:RESTORE Re

§ GENERAL CHARACTER INPUT ROUTINE
CHARACTER

057269
057264
057266
057272
057276
057302
057304

177560
177562
057336
177600

122700

000040

b.GET:

INPUT GOES T0 RO

T1STB

O.RCSR

:WAIT FOR

MOVB

o RDB RO

:GET A CHARACTER

oqo RO

: IGNORE "NULLS
:CHECK FOR SPACES

BPL

JSR

BIC

BEQ
CMPB

)

0.Ftvp

3177500 RO

T INPUT rnon KEYBOARD

:ECHO CHARACTER

‘STRIP OFF PARITY FROM CHARACTER

CZR6JEOQ UNIBUS RK& DR PRT3
CZREJE.PI1
25-JAN-78 12:08

9363
9364

057310
057312

gggg

057320

936S

0S7316

001763
122700

001760

MACY11

30A(1052)
25 JAN-78
TYPE ERROR ROUTINE

BEQ
CMPB

000073

BEQ

00020S

RTS

9368
9369

.
:

gg;?

9372
9373

0S7322
067324

020304
103426

8375

057330

004537

3374

33;9

057326

057334

112400

000772

9380
§381
9382
9383

9364

9385

057336

057342
057344
057350

113746

Q01012

057362

106737

057370
057374
057376

105037
105316
003371

057402

000205

057356
057366

9391

057400

gggg

100375
110037
120037

067354

3387

9388
9389
9390

105?37

100375

177564

3338
8333
9400
.9401
9402

(57404

057406
(57410
057412
057414
057416

9410

057430

9412

087436

33{2
9417

3418

; CHECK FOR COMPLETION
P EXIT WHEN DUNE

s,0.FtvpP

:TYPE ONE CHARACTER

(R4)+,R0O

:NO

0.TyP2: T1STB

177566

CLRB
DECB
BGT

0. 108
ISP
0.1YP2

RTS

TS7T

IN RO)

0.tvpP1

177Se4

0.TYP1:

(CONTARINED

: CHECK STATUS

JN4Y . - (SP)

BPL

:LOOP UNTIL DONE

0.TCSR

MOVB

BNE

'GET A CHARACTER

0. TYPE

TYPE ONLY ONE CHARACTER

. FTyP: T1STB

(R3)>(R4)

R3, RY
0.1vP1

00004Y

006205

"WRIT UNTIL RERDY
:TYPE ONE CHARACTER
:1S CHAR TO BE FILLED”
'YES,

0.TC4R

0.TYP2

INIT

THE COUNT
_

:GENERATE NULL FILLZR

(SP)+

.POP STACK

CLOSE WORD OR BYTE AND EXIT

d.TCLS: ASR

103405
006305
005702
001401
010415

000207
005746
000137

055726

gggg

94I4

JSR

IN R3,

! UPON ENTERING, R2 HAS NUMERIC FLAG, R4 HAS CONTENTS

057420
057422
0S7424

9413

MOVB

9403
9404
9405
3406
9407

9411

: IGNORE THEM IF FOUND

177566
00004S

gggg
9397

0.46¢7

.Y
RO, 0.TDB
RO 84S

9394

SE3 0177

: IGNORE NULLS
:CHECK FOR SEMI-COLON

BPL
MOVB
CMPB

005726

177

0.GET
8 : RO

RDDRESS OF LAST BYTE

057336
!

PAGE

GENERAL CHARACTER OUTPUT ROUTINE
ADDRESS OF FIRST BYTE IN RY,

8.TYPE: CMP
8LO

gg;g

I14

12:16

0.CLS1:
O0.TC: =
:
!

057434

012703

000402

012703

0S7442

012704

087452

000205

QOS7446

0S7454

0E~u4Se

004537

000000

000

0S7465
057466

057464

057322

8CS
RSL
757
BEG
MOV

0.TC
RS
R2
0.CLS1
R4, JRS

RTS
TsT
IMP

0.CRLF

PC
-(SP)
0.ERR
TYPE

0.CRLS - TYPE

O.CRLF: MoV
0.CRLS:

0.CRS:
.xxx:

oQ.T:

80.CR+1,R3

MOV

80.CR, R4

80.CR+2,R3

JSR

5.0. TYPE

.WORD

'BYTE

IF ALREARDY CLOSED

:IF NO _NUMBER WAS TYPED THERE
INC CHANGE TO THE OPEN cCLL
:STORE WORD
:POP EXTRAR CELL FROM STACK
'AND SCREAM BLOODY MURDER

<CR,LF>

0.CR

RTS

! JUMP

«CR,LF>#

B8R

MOV

:GET LOW ORDER BIT

:LWR <CR,LF>
:LWA

(FWA

<CR,LF>#

: TYPE SOMETHING

: TEMPORARY STORAGE

T-BIT FLAG

vzas:so uuxaus RK& DR PRT3
ZZRBJE.P
25-JAN-78 12:08

9419

MACY11 30R(1052)
2S-JAN-78
TYPE ERROR ROUTINE

0S74S7

000

0.P:

.BYTE

057460
057461

000
000

0.CSRl: .BYTE
0.CSr2: .BYTE

O
O

Q424
g:gg

0S7462

042502

0.80:

.EVEN
.WORD

"BE

427

DS746Y

015

8.cR:

.BYTE

OIS

057467

0s?

b.LGCH:

93420
9421
gzsg

9428
9429
9430

431

9432
9433

057465
057466
(057470
057471

9434
9435
9436
9437
9438
9439
9440
9441
Q442

057472
(0S7473
0S7474
QS5747S
057476
(057477
057500
057501
057502

3445

057503

g::a

9446
q4y4?
9448

9449
9450
33§é

9453

057504
(057505
057506

(057507
057S10
(05°S1}

012
052
01S
o4y

107
0ie
137
136
117
127
105
102
120

000014

123

120
118
000

000
102

000006

q4ySy
9485

057517

057517
al'ls)

g:gg

057520

000003

g:gg

g:g?
9462
9463
9464
9465
ueb
9467
9468
9469

0.CLGT

b.1L

0.LG

b.BUF:

)

.BYTE
.8YTE

.BYTE

'BYTE
BYTE

=
.BYTE

.EVEN

(CR>

‘G
o0l2
'~
¢
'0
'W
'E
'B
‘P

i5
I
3
io.
oy
i
0
DoW
:
E
.
B
i
P

;D0

.~0.LGCH

.BYTE
BYTE
BYTE

P
'M
O

O
'8

.-0.TL

SEJ 0178

. 1 IF PROCEED RLLOWED
:SAVE CELL - R C/SR
:SAVE CELL - T C/8R

LLh
;oo

OIS
‘>

178

:PROCEED FLAG = O IF PROCEED NOT ALLOWED

012
'»

'BYTE
BYTE

.BYTE
_BYTE
.BYTE
CBYTE
BYTE
.BYTE
.BYTE
.BYTE
.BYTE

PAGE

!
S

.ARRIAGE RETURN

'NOT
iCHANGE
‘THE

: ORDER
‘ HERE

. +6
¢

b.TRTC: TRY

:TABLE LENGTH

2
3
9

S
&

;6 CHAR. BUFFER WITH

: TRARILING BLANK
: TRACE TRAP PROTOTYPE

'THE ORDER OF THE FOLLOW'NG ENTRIES IS CRITICAL

9470
9471

0SS412
0S5S414
055416
055420
055422
0S5424
055426
(SS430
055432

055412
000000
000000
000000
000000
000000
000000
000000
000000
000000

94?3
3474

(0SE436
(QSS440

000000
000000

9472

J14

12:16

(085434

000007

:
0.URD:

0.USP:
0.UPC:
0.UST:

O.PRI:
0.MSK:

=
O
0
0
0
0
0
O
O
O

0.0DT-40
:USER RO
:
Ri
;
R
:
R3
:
RY
RS
‘USER SP

O
0

MASK
FLOW LIMIT

7?7

,usen PC
USER ST

ODT PRIORITY

czns:so unxeus RK& DR PRT3

CoRBJE.P

g:;g
Vi

25-JAN-78 12:08

0SE442

000000

qyr?
47?8

9479

9480

9481
9482
9483

MaCr1l 30A(1052)

25-JAN-78

TYPE ERROR ROUTINE

0
H

K14

12:16

PRGE 179

sHIGH LIMIT

; BREAK POINT LI;Ts ADP1 = ADDRESS OF BREAKPOINT,CT = COUNT,
H
UIN
= CONTENTS

(0SS444

0S5S446
058450

00000C
000600
000000
0ocoo1

b.ADR1: O

0.CT:
0.UIN:

0
O
.END

SEQ 0179

APTENV=
APTS1Z=

000001
000200

APTSPO= 008100
fi?
; = 80 00:
ATESTN=

ATTN
AUNIT

000000

005330
000000

=
AUSWR = 000000
AVECT1= 000000
AYECT2= 000000
BADHDR
00S324

]

nnAnng L o

NL—~OO0ONW
-

84S
g49
85e
855
839
84?7
850

DN L£W—OONNO

8
8
8
8
8
8
8

0 NNN NG N NGWHE U

8
8

N NN N NN NN N N NN N NN NI N NN NI NI N NN NN NN

S Bm Bt Bt s st Bt bt (Y L) UV 0 00 0 B Bt s 5 e Bt 5t ot e Pt Pt P D e s B B Bt Pen ot s Pt B B Pee P ot s Pt st P Ps
000
000 DL O £ 0O mODOODODED
O 0= e 0 e NJ0ome e (1 0 PO 0 5 e e bt s Bt 5t Bt s Bt Bt B B s Bt e Bt e e Bt et D ot B ot Pt Bt P P P e

D
X

000000

OnnNwnWwWwoW—-£

8 00Q
Q00000

RENVM =
AFATAL
=

RENYV

12:16

1876
1877
864
86S
866
867
868
869
870
871
823
859
828
859
820

T Sy Sy Sy S Y Sy WPy Wy Y Sy iy Wy Gy Gy S Ay G S G Sy S G

1817
1817
817
817
817
817
817
817
817
8
8
8
8
8
8
8
8

1817

25-JAN-78

PAGE

181

CROSS REFERENCE TABLE -- USER 3YMBO.S

1832
2991+
1862
1863
1872
1873
1874
1875

Y o S

000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
000000
Q00000
Q00000
00000N
000U0J
000000
000000

= 00000Q

18828

OEOM@ODODOEMDOm

ROOW1 =
ADDW10=
RDDWI
1=
ADDWi2=
ADDW13=
RDDW14=
ADDW1S=
RADDWe =
RDDW3 =
ADDWY =
RDDWS =
ADDOWG
=
RDOW?7
=
ADDW8 =
RDOWY =
RADEVCT=z
RDEVM =

RDDWO

1858

1860
1861

1817
1817
11808
1817
c044s

30RA(1JSe)

' 4 Lt e * 4 ¢ A ¢+ ¢

1817

MARCY11l

DONMODWDOUNO £0°

177440

|@)
(@}
o
o
o
o

ACDW. = 000000
ACDW2 = 000000
ACLO
= 000010
ACPUOP= 000000
RCT11
005454

D
x
[}

RABASE

25-JAN-T8 12:03

LAVl el et

CZREJEC UNIBJUS Rkb DR _PRT3

CZRBJE.PILI

L1Y4

b461

6596

66398
8383

bl26

S380

6638s

SEQ 3180

ADTMO

BApTMO_ 834338

A NT Ul

CKCERR
CKSWR =
CLEAR =
CLKOF
CLKON
CLOCK

026024
104407
0D0000S
030264
030170
030230

Ss®s

CFMT
= 010000
CHKFLG
(01504
CHKMSG
025264

—unumuno~un—wunnornmnmhno*

030412
001370
= 002000
= 100000

Ll A

ccsp
cCyL
cDT
CERR

8 I of Sy e ey e A L e

001402

—~WOONNWWWL
O LNWLO-NO
LUNWOD NI L0 — YO
NO
L[%]

CALADD

001374
CALDIF
CCLR
= 100000

ey e

BIT8 = 33888

000400
001000
00001M
000200
001474
002322
003322
025250
001502

4a4g

1158

1177

2034

3113

4469

4558

4619

479C

4873

4934

033

S843

6336

3888
bl4y
6071

3936

3966

4337

4421

4483

4576

4439

4652

4756

4828

Bl = 338318
BIT8
=
BITS
=
BPTVEC=
BSE
=
BSERR
BSEeeH
BSE22S
P
BYPCER

4881

OW LN
L£e—-

= 000040

4796

WWUITE
L L bt po b be pats s bte pe e s e 1) oo
MYt
L 0 0 e e e pa bt Bt pmtbs s b b 0= O W
OaVLocod
L£L£LL000JWNONWUW
LWNN
UNINe—=—
Lo N @ NOUNW - O W) P—0O DUy O

3388

BI;S

4736

CROSS REFERENCE TARBLE -- USER SYMBO.S

NDD

010000

= DOO004

462¢€

O L c::uu—u:eo QWIN £ WYO oWV LW

001000
000002
002000
004000

BI¥§

4566

31113

447S

BITIS =

wH12

WML £ L0 W

PI1T09 =
B8IT1
=
BIT10 =
8IT11 =

000002
00000M
000010
BBJ 20
8 40
000100
000200
000400

SEQ 018!

4381

=
=
=
=
=
=
=
=

182

4328

L0 M

B8IT01
BIT02
BIT03
BITOY
BITOS
B8IT06
BIT07?
BITO8

Bi 80 = 838831

PRGE

£478"

DOm

= 000400
= 00100?

Ml4

12:16

30R(10S2)

BR16
BR%?

25-JAN-78

MACY11l

0000000000
wnoe oo o

CZR6JED UNIBUS RK& DR PRT3
25-JAN-78 12:08
CZREJE.P11

6426

1es

1188

1200

6365

1488

6410
1269

203

18?

1iew

1182
1ed
1165
1166
1167

1195
11e3
1i8%
1185
1193

4745
4219
4ig2
5341

4687
5837

3242
JEuox
£816

3®S4

3303
5523
8816

3710

4850

5053

3394
3827
4805

33%
41w
4891

3920

5504

<013

5508

3058

94136

5303

55238

33008

3103

CZR6JEO UNIBUS RK& DR _PRT3
CZReJE.PII
25-JAN-78 12:08
CLRFLG
COE _ =
COUNT ~
¢R
=

024110
001000
001406
00001S

MACY1l

N14

30R(1052)
25-JAN-78
12:16
PAGE 183
CROSS REFERENCE TRBLE -- USER SYMBO.S

SEQ 0182

5137
S994x
6507

S996*
6517

7312

7365
7438
7495
7587
7678
72779
7873

7320

792S

001456
001460

DATCHD

024504

OCK
DCLO
DCPAR
ODISP
DDPCH
DDT
DDUMP
OF 1
OF10

DF12
OF1S
DF17
DF20

OF31

001462

= 100000
= 000020
= 020000
= 177570
005452
= 000400
005450
054516
054622

054642
D54666
054706
054732

054756

S663*

Sbb4#

S5665#%

5683+

S84

5685%

S6864%

%
S687

SE4Y%
5675#*

SE46*
5676

SE4Q%
5743

SE70#

S671%

Se72»

S6E73%

4414

SESO*
5746

S6E53%

4330

S648%
5739

S6S1

4327

Sb4Y7#*
€578#%

4471

4565

4621

4792

4880

4936

4380
4259

Y474
4283

4560
4334

4624
4385

4735
4418

4795
4480

4875
4573

4939
4631

4719

4740

4801

4888

e987x%

3182

3387

2953
2030

5137
2036

2lce

ell3

2263
2459

cces
c4by

2273
2469

2200
2329

eell
2334

c229
8826

2292
8841

2337

2762

83568

8vas

4278

135S

2es?
2454

8799

2195
e3e4

509

DF22
DF23
OF 3
DF 4
OFS

055012
055046
054532
054556
054602

DH1

080755

DHIl
OHi2

051252
051326
051356

2519

054606

m
~
n
O

OF ?

8809
8824s

2140

m
~N
~
[

DATAlL

Sbbaw

214sS

a2se4

Y411

150

2ele
2349

2529

~Ue—

DATAO
DATAO!

Sbbl*

[PV
R [o
N
—

001376

Se60%

CYLDIF

4oeY4

romn
W N
NOO
noo

CRLF
= 000200
¢T6
= 004000
CYLADD
001400

824S

B1lS

25-JAN-78
12:16
PAGE 184
30A(1052)
CROSS REFERENCE TABLE -~ USER SYMBOLS

CZREJEO UNIBUS _RK& DR _PR]T3

MACY1l

DHIS
DH16
DH1?
DH.8
DH19
DHe

0S1442
0S1467
051526
05155e
0S1577
0s0772

2442
24s?
2317
2158
ec04
83598

2637
2462
asle
2163
e48e
8720

B4lls
aze?
gyals
2”54
8429
8732

DH21
DH2e

051555
051703
05173S
051767
052012

2183
ebl?
502
2297
2138

2492
2632
8447
2537
2143

84384
84yu2s

2547

8YESH

CZRGJE.PIL1

DHeO

DHE3
DH2S
gt

gsieae

DHe.,

052042

DH29

gsel2?7

DHes

052073

25-JAN-78 12:08

a48?7

c2iz28
2ral

DH3
DH30
DH31
DH32
DH34
DH3S
DH37
DH38
DH39
DHY
DH41
CHY2

gsio4e
052163
052215
0S22S1
052303
052337
052370
QSa4aH
052450
0S1113
052503
052530

B3vbs
ces7
2572
2148
2587
2597
ee0e
2577
e73e
2224
2792
e6??

DH4S

052660

2bu4e

DH4Y

DH46
DH48

052717
0S2764

05302S

2133

84704

8722
2707
2582
2153
2532
B8!'35#
2607
ebee
2737
2392
B8S14s
g518#

8S2Ss

8790

2672
c4se

8539
85464

e47?7

2b4?

8552

BY1SH

2260
8743

8761

8772

8782

8734

2209

a23le

2322

agu4e

2847

a342

8460#

8755

8763

8774

8784

8736

8806

2219

2327

2332

8753

gyses

es4e
2168

ei78

2249

8734
e7le
8480
e173
84904

2652

2552

2767

85584

8384#

2752
ge27s
8629%
B631#
86358

2757
8813
8817
8815
8768

8621
#
8828
8832
8830

eezl
1135%
2%

2276

cesl

2347

2352

2906%
2314

2914

6380%

640c*

53984

5401

OMD

= 000040

Be43s

[N
v
m
W

051207
= 040000
DISPLR
001142
DISPRE
000174

no L

0s4007

85694

2527

053623
053666
53676
053706
053733

DHB

a47e

8533

DHB?
DHE9
DH70
DHZ 1
DH73

DH7Y4

2747
2522

2702

2239
2507
8802
a4e?
85774#
8730
8741
2567
2717
gbles

gelBs

2244
as1?

2667

2234
2497
85658
2447
2557
gsees
853928
2562
2437
e7ee

2742

2307

2662

0S1161
053065
053133
053157
053233
053316
053361
053432
053503
053537

053602

2302

85094

DHS
DHSO
DHSE
DHS9
DHEO
DHB1
DHER
DHE3
DHEY
DHES

DHESL

2286

able
cbe?
2797
2397

n
o
n
[¥s]

DH49

0See01l

8433#

SEQ 0183

8600#
86074

8804

8819

8834

8849

8821

8836

8851

84564

Cl5

CZR6JED UNIBUS RK& DR _PRT3
CZREJE.PI11
25-JAN-78 12:08

MACY11l 30A(1052) SE‘JQN‘?B 12:16__PAGE 18S
CROSS REFERENCE TABLE -- USER SYMBOLS

DOCMD

024446

3513

0T¥H

00SS06

PART]

bPATe

DRA
DRDY

DRIVS

001464

0014686

19478

19484

11778
éaeq.

005462
00sS464

20Sls
2052

S4b

DRIvVe
DRIV3

DRIVY
DRIVS
DRIVE
DRIV?
DROT
=
DRPAR =

DRVMSK=
ODRVPTR

DTl

= 000001
= 88020

DRIVO
DRIV]

DSC
DSWR
DTE
DTYE

3487

=
=
=
=

DT13

005466
005470
005472
005474
005476
005500
000040
000010
00000
(001362
040000
177570
010000
000040

0s4074

0s4ese

4o a

cNs3s
20548
2055
20564
2057%
2058
1182
11618
11418
1901#
1188#
9934
1170
11638

2083
2159
2287
2463
2548
2633
sggg
2179
2313

]

D76

0s420e

2743

0oS4134

B.BSHH= 880188
.

0.CART= 000400

3217

370

3108

3115%
3110

3156

3177
3003%

3290
3379

3397%

1791

290S

3209

3310

3003

2553

]

3969

3997

4036

4074

4193

3154%

3184*

3203

3307%

3374

4397

5030

5192

2118
2205
2358
2488
2593
2688
2768

2led
222s
2383
2493
2598
2698
27?73

2129
2230
e413
2498
26
2703
e’?

2134
2250
438
2503
2608
2708
2783

2139
2256
2443
2513
2613
2713
2788

2144
2ebe
2448
2533
2bl8
2718
2793

cl49
2267
2453
2538
2623
2723
2843

2154
2272
2458
2543
268
2728
2848

2220
2353

2653

23S
2363

2658

ce40
2368

2663

2245
2373

2668

227?
2378

a274e

2eBe
2333

2798

2303
2398

2803

2308
2403

I8
3269

5175

4853

2478
583
2673
2758

ella2
2184
2343
2483
2588
2678
2763

2194
2323

2199
2328

e210
2333

2218
2348

2558

2563

2568

86638

3303

ag§§

3644

4055

4130

4307

4349

4398

4433

4588

4646

4780

_o40

2523

2528

2808

4303

3610

4961

364Y4

4055

4130

4307

4349

4398

4433

4588

4646

D.DDT = 000400

4825
3417

agg?

3644

4055

4130

4307

4349

4398

4433

4588

4e4e

4750

482S

D.DRA = 000040

&ggg.

338?

aggg

3642

4153

4128

4305

4347

4396

4431

4586

444

4748

D.DRDY= 000200

&géé.

3642

3952

4053

4128

4305

Y347

4396

4431

4586

Y44

4748

4901

0.DROT= 020000
D.DSC = 040000
D.FLT = 000200

1244y
1218#%
1238#»

3642
4048

3706
4054

40S3
4397

4396
4824

4823

&ssg.

3565

2518

2101
el7y

3797

4750
12128

D.DOOR= 000200

12268

3132

3783

209%
2169
2318
2473
2578
2643
2753

86718

&ggg.

3768

2089
2lb4
2293
2468
2573
2638
2738

86918

2648
8703#

DT3

d, *

gggg.

054332
0S442e

3670

L1%

53?g
DTiH
pT1S

3657

SEQ 0184

CZR6JE.P11

25-JAN-78 12:08

0.FORM= 001000
D.EH9L= 002000

8.H8HH=
§§§84
D.IDRE=
oM

0.LIMD=
D.LO0ARD=
0.MH0 =
D.NMOV=
D.NXF =
D.OFF =

020000
010000
000400
0100
0400
002000

D.PIP =
D.PLO =
D.REV =
D.RTZ =
D.SECT=
D.SKI =
D.SPIN=

020000
004000
004000
020000
000020
002000
010000

lgggt

1236%

12588
1230%
1253
1257#
1239
1214s

12408s

D.SPLS= 010000

12178
1256#
1229
1231#
1249%
1241»
12168
4748
12438

0.SUNS= 040000
D.TIB = 002000

1259
1255#

D.SPOK= 001000
D.SSP = 000020

D.vv

= 000100

D.WCUR=
D.WGAT=
D.WLE =
D.WRL =
D.XERR=
ECCW
=
ECH
=
EMTVEC=
EMI
EMIO

EMI11]
EMIi2

]

12108

4077

1250%
12518
1242
1215
12548
1203%
11648
10828
S201
ell6

35685

3590

4043

3584
4823
4824

3644
3644

3482

3642
4959

3992
6111

4053

4128

4305

4347

4396

Y431

4586

1644

4055
0SS

4130
4130

%307
4307

4349
4349

4398
4398

4433
4433

4588
4588

4646
4646

4750
4750

4303
4825

49561
4303

3815

4128

4305

3490

3563

4347

4396

3588

3638

3660

3778

4392
4232

4397
4239

4503
4375

4396

Y457

4692

4700

2889*
7932s
79984

2890#

2147

2157

o481l

2486

2491

esll

2541

2591

8020

2316
BO244#

2466

04S437

2233

227S

2301

2306

232l

045460

elzz

2197

EME
EM20
EM2]

04442y
pyssee
045543

2081
2187
2132

79408
2208
2142

EM23
eM24

045626
~ 45656

n
£

]

B0aas

cc?0

80S3#
[

045565

—

gEmee

364
4901

2lée
2es3

2238

576S

4825
6137

04S311
045333

045501

SEQ 0188

4823

5582

EM19

186

3702

80074
gé?s

EMIB

PAGE

4054

2lee
gégz

oueais

EML?7

D1S

12:16

CROSS REFERENCE TABLE -~ USER SYMBOLS

045207
045253

EMle

@25S-JAN-78

§783

nn
W
own
wo

EML3
EMIN

000040
000100
004000
004000
001000
020000
000100
000030
044350
0451

12274
5%5?'

30A(10S2)

2311

2326

4431

2391

2371

2401l

2280

2366

2396

e2l8
2l7e

2243
clse

2351
2711

2376
2736

2331

2346

4586

236l

ecl3

@®
o
n
JD

D.PAR =

12138
iEEB:

MACY1l

CZR6JEQO UNIBUS RK& DR PRT3

4ye44

2506

4748

4823

3961

3972

4021

4026

2536

2586

2elb

2696

2731

2651

2796

8037%

2bbl

2806

BO43%

2516

2656

2746

2406
2’71

2526
2846

2666
8049#

252l

2801
e8il

4856

8040%
804648

4901

4959

EMN4T

047001

EMS
EMSO
EMS)
EMS2
EMZ3
EMSY
EMSS
EMSE
EMS?
EMSB
EMSS
EMb
EMB1
EME3
EMBY
EMB7
EMEB
EMES
EM?
EM70
EM71

o44B643
047035
047077
047152
047177
Q47227
047277
047332
047376
047424
047454
o44664
047475
Q47523
047544
047671
p4771¢
047755
044705
050053
0sS0144

EM?73

050273

EM72

EM74
EM?S
EM?6
EMS

EMSBO

EMB3

EMS

= =»
8

= 8

Q46701
046741

g4ebe2

EMY7
EM48

EM4Y46

046451

8138#
8152

79664

8177
256l

2566

2766

8219

8183

046503
046545

EM4Y43

8081#

EMYY
EMYS

2546

SEQ 0186

LX 2

QY4S714
Q4s76e
Que0cH
Q46051
Q46103
o44S1Y
Q46130
Q4e161l
gueele
Q46246
Q46277
046340
o46374
O44567
oub4eH

ELS

389(1052)
25-JAN-78
12:16
Pf°+ 187
ROSS REFERENCE TARBLE -- USER >YMBO.S

Moo
5t bt Pt st s
V-0

EM2S
EM26
EM27
EMe8
EM29
EM3
EM30
EM31
EM32
EM33
EM34
EM3S
EM37
EMY
EMY2

MACY1]

N0 WMo nNONNO@D
NPUTUNU = e TN N 0e bt bt PVt GV hmt e
N—00.00NUMD NOOINLENNWNY
WO
000 n 0O—Lo00W O

CZRBJED UNIBUS _RK& DR _PRT3
25-JAN-78 12:08
CZRBJIE.PI11

8256

2787

82738

4601

4659

4916

%
6344

6347%

0sgoel4

0so412
0S0o437
0S0S13
044774

gsoele

050655

0450S0

EM33
050712
ENDRY
023374
ERRVEC= 000004

*
2904
B34

2915%

2923%

4974

2924%

49804

2937%

8927
2938%

3006%

3010%

3017%

305S#*

3073%

CZR6JEQ UNIBUS RKH DR PRT3
CZRBJIE.P11
25-JRAN-78 12:08
ESEC

001420

E.AC

00S430

E.Al

005434

E.R2

005440

E.R3

005444

£.80

19228

20238

FLS

MACY11l 30R(1052)
@25-JAN-78
12:16
PAGE 188
CROSS REFERENCE TRBLE -- USER SYMBOLS

3563%

4823%
20258
4B25S%
gggil

490i*
3565#%#
4903*
g;ggl

20298

SYous

Y824®

N902%

3588%

Jp4ex

HOS3IE

4437%

FRITI
FATT2
FCYL
FHOMM

025056
~CZSis2
027206
027276

4001
4040
57378
57628

5350%
4197

6120
53788

6141

GINT

5808%

5813

4708%

SB06

5835

o24s42

3148

3163

3172

3276

3e8S

5148
52158

5150%

3556

3581

= 000001

D26106

026l4e
026372
104406
005356
005346

00S340

5295

S170s

5471

8680

H4396%

H43Ix

4SBEE

47S1#s

4Ib4®

SMS0

5452

B8e9l

47S4¥

H907x

43ESx

SHSH

S4Se*

8703

52788

5281

8616

8680
4398%
8691
490S*

8691
Y433
8703
49E3*

8703
4588%

4397%

43ISO
8691
H753%

8691

8703

SB807%

HCS!

5426

Syyyx

5806*
61688
4247%

= naxexx U

GSTRAT1
GSTRT2
GTSWR =
HRSOF
HBA

S771
4710
s84e

34258

SuMde

4249
$838
5780%
1l628
1941
6155
19408

GNS

GSTAT

3417%

4960%

027420
027650
027352
000020
001452
031022
001450

024376

YEH7R

46S0*

4363

3551

4SBI*

4592%

4311%

2971

YH34R

4308%
8680
4HUI®

4134%

0304S2

4399
8703
H0b®

Y4131®
5491
H4S9l¥

20308

024210

4749x

H43I4B®

005446

GETSP

4EMSE

4306

£.83

GORVS

4SB7%

Y4129%

00S4y4e

52928
S713s
18998
2973

HY32%

HOSHE

E.B2

0e4610
027116
001360
0243s0

S440*

I6MI®

4OSE*
S4y4g%
443b*

FROY!l
FSEC17
FTITLE
A

S438

3589¢

36'Tx
SY4YY46
4352%

FRDY

S423#

3Sh4*

3591%
4962*
4310%

1905s

4750#

S461
M4349%
8680
| H4752%

356b*
4Y904®
4133%

001364

YbYbx

S4y3eo*
4307%
5481
4eHBR

20268
482b*
gggg.

FRCYL

4748

S430
4130%
S436%
4590x

005436

FHDTRB
FLGTST
FLORD
FMTIE
=
FMT1
FORM
FORMAT

HeuY4E

SY26%*
4O0SS%
5434
U43SE

£.81

3411%

Y4347%

Syelx
gbqq!
Yee®
4351®

c024s

Ql2eee

430S*

4959*%
3590#%
4361
4309%

0oos43e

£.00T

4128%

SEQ 0187

57368
S857#

5603

4455

4490

4509

4697

3849

6085

4371

3823

60798

4236

4781

4812

4840

so4e

7292

7293

7294

7295

7296

7298

7300

7301

7302

7303

7304

730S

3446

3558

3583

3609

3623

3637

3701

3711

3720

3726

3814

3851

3871

4456
5389

4575
55518

4633
5620

4691
5631

4639
S643

4721
5659

Y742
5764

4804
5782

4830
6136

4948

5360

5365

538S

5583

5590

5599

5333

8660

8668

8677

8687

8699

8712

3167%

3168

3174

3279%

3280%

3281

3287

3486%

3Slox

3656%

3669

4286
4718%

4333%
4722

4337
4739%

4384*
4743

4389
4800%

Y417%
4805

4421
4gsex

4479%
4B87%

4483
4891

Ys72%
49ySx

4576
4949

3947

2975

52284

5049

%ggg

11264

3889

3926

S419
5567
S159
19958
1991s

55624
5575
72984
5317%
S5313%

3767%

3782%

13888

4e6e
4630%

S601

3166%
42B82%
4634

?056*
62l

3937

8660

3796%

5057
5932

4020

8668

3927

5252%
6115

3621

4123

8677

3968%

5253
B131%

3632

5266

4018

3894

3606

5255

4231

8687

3717

4238

8699

3996%

4035%

See3*
Bl46x®

S26M
B6S?

3734

4ebl

8712

4073%

S310%
8665

4285

4120%

5525
8674

4336

4124

5529
8684

3859

4374

4192*

S553%
8696

3870

4388

4200

5599%
8708

3879

4420

4250#
S600%

HDR
HOB
HDC
HDS
HOTRB
HDWD
HD1
HERD

005350
005362
005360
00s352
001506
001472
001446
DO1442

HERDR
HER
HMR1
HMR2

001444
00S354
005364
D0S366

» 14 V]

G1S

PAGE 189
E TABLE -- USER SYMBOLS

AN-78

My
Z
O
HD

00os342

HCS2

CZRBJED UNIBUS RKe DR _PRT3
CZREJE.PL1
25-JAN-78 12:08

12:16

3231
5538

4836

3316
8657
S314#»

8668
8657

8677
8665

5803#%

4255#

SB80Y*

4e68%

SEQ 0188
4578

4636

8699

8712

4259

Y727%

4728

G316%
8696

8696

8709

S80S#

3706

4457

5783

HVRC
HWC
HZ
H.RO
H.Al
H.R2
H.R3
H.BO
H.Bl
H.B2
H.B3

—

024676
005374
o
|=)
Q
o

HOLD
HPRT

nan

00S370

—

HMR3

000400
00S344
001404
00s410
00S414
0os4e0
oos4ey
oosul2
00S416
ogsu4ee
00s42e6

IDRE
=
IE
=
ILF
=
INTER
I0TVEC=
IR
=
LC
LCLKF
LCVEC
LF
=

002000
000100
000001
031152
000020
000100
012654
00S502
001350
000012

LIMERR
LKS

001476
001346

S302»
8709

S321*

5570

CZR6JED UNIBUS RKe DR PRT3
CZR&JE.P11
25-JAN-78 12:08

fAsk,
MCLK

MDS

MACY11l 30R(10S2)
25-JAN-78
12:16
PAGE 190
CROSS REFERENCE TRBLE -- USER SYMBOLS

Biskes

Yion
018%

EI:1)
3318F

Yo3s
quS3%

S
BER¢

7
2BEY

= 001000

11488

S061

5538

4831

7910s

= 00PYGD

MD2ERR
001500
MERBAS= 172100
MEMERR
031110

11988

135Ea
18938
3329°

3213

3316

2926
§208s

2935

78538

2929%

2930«

73128
31§3

74438

MEMPGR

010312

MERD
=
MESMSK=
MERD
=
MIND
=
MSGI
MSG10

001000
(0272017
002000
000200
035652
037153

11998
11938
12008
11978
515}
3107

M3C11

037900

6368

M2CIS

037547

2031T

7usce

037380
37372
7416

3233
344y
4181

3398
74718
74758

MEMVEC= 000114

MSG100

MSGle2
MSGIM

M2CIS
MSG16
MSG17

MSGI1S8

Q44201

037240
03733S

037446

5353a

4Sle

74538

S40?7

369S%

4Scl

79474

74658

4ySeb

3842
3355
%317
4011
4226
4681
3376
203
3933
3370

74848
7393k
gas
749Ss
so0us
720es
75148
72iew
6113
2ug3s

M2C33
M2G34

040226
040313

3878
3279

72u6s
3818

7555w

3550
4017

355%
4235

3580:
4370

36CS
4454

3818

76118

NeC3E

MSG3?

OMD4%b

040573

3;53
3780
318

MSG3E
MSG39
MSGY

040637
040775
036656

373
3737
2972

nSCaz

041232

3857

MSGM0
MSGM]

041040
041182

MSG47
MSGH9
MSGS

041441
041821
036723

3549
3922
2974

0415874

76908
3808
74088

7BdR:

3858

MSGS0

7258k

76178
7630%

Bdid

041370

7530.
5273,

3817
3847

nagdd

MSGM4S

3892

3944

3716
4508

3733
4696

74798

037500
036243
037831
037572
037653037677
037740
037770
040D32
036654

0:0925
BuBle

sesu

~4b9m

MSG19
M3G3 .
MaCS]
MSGee
MaCSd
MaCSE
MSGe?
M2CSR
MaCS3
MaC3.

nscao
negdl

cer1

SEQ G189

7s2us

6084

7539%

7638

76548

76618
4775
7415#»

4810

76708

4838

7678

3620
4489

3822
4780

3848
5041

3858
5048

3869

75878

3878

3893

CIRBJED UNIBUS_RKE DR PRT3
CZR&JE.P11
25-JRAN-78 12:08
MSGS1

O41644

MSGSe2
MSGS3

Q41765
Q42066

4016

3545
4234

I1S5

MACY11 30R(10S2)
25-JAN-78
12:16_ PARGE 191
CROSS REFERENCE TARBLE -- USER SYMBOLS
76858

3636
4453

MSGSY
MSGSS
MSGSeE
MSGS?
MSGS8
MSGS9
MSGE
MSGE0

Q42157
Quez24e
Q42226
Q4es3e
042600
Q42662
037004
Q4276S

4369
3738
4163
4776
SQ40
5047
6227
sQ7?

Y41
3802
77408
77634
772708
7779
74244
77918

MSGbe

Q43143

5032

78118

MSGES
MSG67
MSGE8

U43422
OQ43S00
Q43555

3553
3732
S07S

3603
78518
78598

MSG?

037040

2989

74298

MSGE

04307¢

MSGE3

043237

MSGe3

043615

50693

5078

3631

MSG74
MSG7S
MSG76
MSG?77
MSG8
MSGS
MSP_
=
MULTE
M. AL GN=
M.DPID
M.DP40
M.DP41
M.DP42
M.DPY4
M.DPSO
M.DRV =
M.HERD=
M.I0
=
M.PRAR_=

Q44037
Q44105
OQ44l42
O4416Y4
03707S
037121
000100
030034
040000
031274
031332
031366
031376
031430
031442
000007
007000
000003
100000

6103
6105
6159
ble4
3544
3718
11968
5889
12694
6270
62818
6286
6292
6305
62’
126.8
127.8
1c688
12728

= 010000

éégét

MSGZ72

NED

Q44003

4319

NEM
=
NUDRV
NXF
=
OFFERR
OFFSET=
of T
=

004000
012402
000004
001440
000015
000004

11508
3245
11608
19344
1118s
1179%

0.ADR1

0OSSH444

8986#%

0.EACK
0.80

(56170
057482

9086
9276

3843
4488

3918
4507

3628

78444

481l

4839

78658

444sS

4600

4658

7722
7732%

4012
4695

SEG 0190

4227
77128

4682

5036

4915

4973

788648

77008

780448

78224

3946

4361

78928
78998
79048
7907
74348
74384
S916¢
6303
62948
62984
63l1s
6316
5704
6035

gg%g

3231

3355s

4999

9037*%

90 '3*

91278
3277

9425

3322

3325

3727

3771

3800

385¢

9218

9219%

9257%

9272

9289

9480+

3864

3872

3884

3830

CZREJEOQ UNIBJUS RKE DR _PRT3
25-JAN-78 12:08
CZRBJE.PI1

055676
056630
056664
0S6702
056620
0S7Si11
0S6764
057024
DS7174
056012
000014
0S7420
057464
0Se6124
057430
DS7436
0sS7442
057460

MACY1l

3090
9254
92628
32684
9252
9343
92828

J15

12:16__PRGE 192
25-JAN-78
CROSS REFERENCE TARBLE -- USER SYMBO.S

30A(1052)

SEQ 0191

9453
9147

9181

3185

9290

9319

9410

911e

3167

9292

3074

3100

9162

340S

3288
9363

9359

9378

3236#
9472

3285#

94198

9322

9324

9326%

3333s

4278
9314

94818

3365

9473

0S7156
0ssel10

9356

93808

CZREJEQ UNIBUS RKB DR PRT3
CZrReJE.PLI
2S-JAN 78 12:08
0.RST
0.RSTT
0.RST1

0OSSSI4
(0S7126
055544

O0.RTIT
0.S5CAN
g.5P
0.SPC
0.SP1
0.5TM _=
0.STRT
0.SVR_
0.SVTT
0.7
0.TBIT
0.7BT =

0S6S40
055752
0S564e
057206
055630
00C340
(0SS5502
057036
057074
057456
0Sk464
000020

0.TCLS

0.7C

Q.TCSR=

0.70B =

0.7TL

8976
@215
8984
8994%
014
9006
93368
90118
89518

K15

MACYL1l 30A(10S2)
25-JAN-78
12:16
PRGE 193
CROSS REFERENCE TABLE -- USER SYMBOLS
g898Ss
9241
8392
9229
30578
9015#
9344
9016
B899

057404

9256
9217
404
&
9110

177566

89638

9382%

9388%

94584
8996
93728
9392
9330
9257
9228
94638
9298

057422

177564

0S?7503

B364s

3004

9243%

9311

9007

043
89s0s
9278
9373
93868
8986
8979&%
8982
8983%

9219
8978
9349
9384
9387
9218%
3213%
9012
9297%

0.WDS_
0.uWDS2
0.WDS3

0S6kes0
056276
056326

9159
91668
91778

916ls
9188
9190

0S5432

0.WDSY
0.uWR

0S636Y4
056072

0.WSCH
C.XXX

056256
057454

39088
9296%

9160%
9304

8993
11138

PRT
PCR
PCO
PCLKF
PCVEC
PCYL
PFSRT
PGE
PIP

= 000020
= 004000
= 010000
D0OSSO4
0013Se
001372
0l2664
= 002000
= 020000

PKS

91878
9036#

055556
000003

001356
010002

177772
000240
00i344

001340

9217%

9177
3080

9097
3C39%

PIRQ
=
PIRQVE=
PKR8

83977%

056116
056100

0.45
PACK

PRRAM_
PARSRT

214

92168
8952s
3398
3020

057520
000014
057322
057402
057362
0SS5450
0S5430
0SSuie
0S5426

0.WRDR
0.WRD1

3068

8582
9254
9286

Q.TRTC
0.TVEC=
0.TYPE
0.TYPl
0.TYP2
0.UIN
0.UPC
0.URD
0.USP

0.UST

3319

8975
838S
9274

9216%

18988
1286

11948
1201
12024
206ls
18918
13088
34278
11498

9105
9106

8995
3486

2853%
2853

9296
%
93108

9240

9255

9418

244

9280

9116

9242

9313%

3320

9127

9397

9015

944Ss

9451

8997#%
9376

9414

94ges
9252%
34698

9227

9244*

3136

3205

9327%

9380

9386

9269

9271%

9470s

9253%

9260

9280%

4073

4852

3123

4174
3656
2856%

3782
2967

39%8

3019%
3020

S983

6004

3018

S9g8*

6008%

3700

3012
3013
6257

11878

99248
10864
18878
18858

3011

SEQ 0192

9471s

CZREJED UNIBUS RK& DR PRT3
CZRBJE.P1I
25-JAN-78 12:08
PKSB
PPTP
PRGSRT

001342
005456
010016

18868
204Se
2854

PRO
PR]
PR2

= 888008
=
o4
= 000100

PRY
PRS

= 000200
= 080 4

10138
1014

PR7

= 000340

10168

PR3

PR6

000I40

= 00030

PS
=
PSEC
PSK
=
PWRVEC=
RCYLR
RCYLD
ROCHR =

177776
001416
177776
000024
026774
026722
104410

ROCYLA
ROCYLD
RDDARTAR=
ROGATE=

026652
026566
000021
100000

RDOCT

104412

RDHERD= 00002S
ROLIN = 104411

1809.
1010w
1011s

101Ss
9898
19218
9904
10818
SS06
SS03
6063
56588
Se4es
11208
1205

ROSEC
RDTAB
ROY
=
RECAL =
RESREG=
RESVEC=

026516
004322
000200
000013
104414
000010

RHTA
RKRSOF=

00.i71¢
000016

19608
1099s

RHEQ

027070

RKBR

= 000004

RKCS1

= 000000

RKCS2 = 000010

RKDAR

= 000006

RKDB
RKDC

= 000024
= 000020

RKDS

000012

RKER

000014

Sgl

10948
4S54

H939#%
10928

888#*
310

10968

3795%
#*

10958

2924

2930

3074

6252

6253

2893%

2894%

b24ex

6251%

6252

6919

7301

330

56838
56708
6080
5738
-4120

5742

6993
5228
5714

73024
7303
5718

5278
6131
710S

g293e

7038

a94
3064

3060
4569
4942
3057

936%

Se4#

3058

3800
3061

10988

3063

S674s

11038

3070
3071

3992*

4o7i*

3141%

3161%

H]14#
ggeé'
1
3168#

5572%

S904
5380

8672

Y154%
Ybo4x

4172%
4627

3281%

3484*

5580%

5588%

3864

42S1%
Y712x
363S5%

4278%
4735%

H4327%
4792%

H43B80%
4795x%

H41lE®
4875%

36SH*

3710%

3719%

3725%

H129%

blY4s

5253%

S5264%

5278

3485%

36SS*

3727

3766%

4300%

4373%

4BSO*

3165%

3274#%

3278%

387¢

S601%

3884

3890

5053
3938

5057%
3967%

4O72%

4471
4880%
3765%

4279%

HY74%
4884

HGEOH
4936#

3780%

3794»

3771

3781%

MG36%

H4S4YLx

4328%

Y1lb#

4156*

4174%

42S4®

4276%

M331¥

H383%

HHISE

H477%

H4924%

4928%

4425
H11B®

4580
H47BR

4638
4S70%

4895
4628%®

4953
H73B%

4799%

48BS¥

4943x

5318

3557%

3608#

3700%

S319

5359%

53b4#

5384*

S388%

530!

5320

4609%

4613%

4617%

4618

Y71S%

4798%

4BB3®

5292

43Blx
4932

5315

3067

5322
5323
5316
3445«

3068

5296

6580%

5887

5901
5353

4341
YO34&E

3062

5721

S836
5317

3066
3065

10978

5745

8921

3852
»

73058

11018
11008

110es

000034

1884
3023

4SeB8x%

RKMR]1

Se20e
3050

gg?&

11058
11068

RKMR2

2859

:gggl

RKECPS= 000030
RKECPT= 000032
= 000026

5987#
2958#
2857%

SEQ 0193

1012

11224
5170
5218
56308
19654
11288
11178
7053
10768

L1S

MACY1l 30R(10S2)
25-JAN-78
12:16
PAGE 194
CROSS REFERENCE TABLE -- USER SYMBOLS

S619%

S630%

Sp4ex

3636%

Sb58%

5763%

578l1%

5135+

SS66#

CZR6JED UNIBUS Rkb DR PRT3
CZRBJE.PII
25-JAN-78 12:08
RKHR? = 880036

Rk PR
RKVEC
RKWC

1336
001334
= 000002

RLS

1104s
18848

MRCYil

30A(10S2)

3069
S244
#
2994

5297

3822

000010
027032
000006
104413
030306
000040

25-JAN-78

MLS

12:16

PAGE

198

SEQ O19%

CROSS REFERENCE TRBLE -- USER SYMBO.S

5232%

§302

s32i

4119%
4a4i#

HSSS!
831

6235%

5242

42e0x

Y4329

4382%

Y4413%

73048

8863
€443
3274

S447
Sel4

5451

5455

60219

439
< b1

4S67%

462b#

4713

N737s

5633%
s722

S6344#
S888#

S635#»
£892

Sb36%
c893#*

3477
6217

3508
B2SH

3537
8926

]

"))
<

100000
001140

HuunnN

000010

S698*

3767

379

S0Ss

5553

4383

S697%
S919%

5188%

5208+

89294

OW—0
£ OoNVWUITNY

I 2

9240
31589

8991%
3048
3987

9214+
3099
#4108

3207

S131

3539

3575

2907
6336
8922
6763

2913
6350

2320#
6352

6802

6825

4218

000176
[

4331

SEI6#
59igx

4008
4551

[
E
=]

4295

S695#
89i?

BN ¥

4294%

TN
W

00000000~
D0
TUN) = 0= 0= e (D () 0= b
oL000000900

= 000017
SEEX
SELDRYV= 0Noo0l

TUN) =

0C14e2

SECTOR

\Dc.D#P
HDOD—~
O DD
O OD
0O
OO0
O
DWW

— N

73068

HY476%

4031
4678

9268%
3972

4994

3370
s024

CZR6JEQ UNIBUS RKbE DR _PRT3
CZR&JE.P11
25-JAN-78 12:08
SWo4
SWoS
SWoe
SW07
SW08
SW09
SWl_
SWi0

SWil
Swi2
SWi3
Swi4
5Wis
SW2~
SW3
Swd
SWS
Swe
SW7
Sw8
SW9_

=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=
=

000020
000840
000100
000200
000400
001000
000002
002000
004000
010000
020000
040000
100000
000004
000010
000020
DOOOMO

= 000100
= 000200
= 000400

= 001000

TBITVE=

TEMPL

000014

005376

10308
10298
10288
10278
10268
10258
10438
13248
10238
10228
10218
10208
10198
10428
10418
10408
1039

10388
1037
10364

10358

10778

20048

N1S

MACY1l 30AR(1052)
25-JAN-78
12:16
PAGE 196
CROSS REFERENCE TABLE -- USER SYMBOLS
1040
1039
1038
1037
1036
1035

8922
6180
6133

888M

S467

5477

3147%

3162%

5487
3169%

S497
3171x

B0MS
3176%

3329
5398
G450
6737

3335k
5400%
S462
5749

3940%
5428
SuSys
S7h2s

4039%
S430*
GuSp
S7b7%

4106#
343
5458k
5780%

S770%

S@8I7#

GBl8x

5820%

5821

6119%

6140

4172
4173

.
4174

4S70

0OS400

TEMP3
TEMPY
TEMPS
TERRI

0QOS402
005404
00S406
030130

20068
2007#
20088
S938

4110%
4113%
4115%
5342

94147
4114
4116
59598

4167%
4IS4
415Gk
5964

4168
4I71%
4156
5371

TITLE
TKVEC
TOCYL

=
~

024130
DOOQBO
001366

Si4Bs
6741¥
4YeN¥
4943

4478
8672

4498

2988
E790%
H244%
4885

4§97

TPVEC

2950
108498
19068
4799

5331s

bBI49

TRAPPC

DDI4I2

TRAPVE=

00006Y

001354

000034

TRT
= 000003
TRTVEC= 000014
TRUERR
030056
TSTATN
025024

19198

1085

3924

5982%

18968

6209%

89538
10788
4291
35i5

9458

10838

2891%

59308
372

7571
15710
TSTIL
TSTI2
75713

011002
013156
Q1402
014652
015130

3029
35358
36888
3835
3885

3891

15715
15716

016070
016600

41038
4160

4216w

1572

011169

2075

3097

TSTIN

18717

18120

015452

021450
023374

3177%

3925%
G3B2#
Gu4yg
G7oS%

TEMP2

TIMUP

6188

3291
5365k
Suydpe
5713#
20058

33858

46748
4332y

SEQ Q195

3931%

5333%

8671

3932

5399«

2892%

6253%

3712

3721

3046

3910w

4000%

4109%

Hl44x

6213

5058
S434#
5551
5785

3275%
S2S4*
5436
5556#%
5816%*

4628

470S*

3178

§145

4170

4730%

4738

Y7bNY®

Y4765

CZR6JED UNIBUS RKb DR PPT3
CZReJE.P11
25-JAN-78 .2:08
15721

023430

4998

Bl6

MACY11l 30A(1052)
@25-JAN-78
12:16
PAGE 137
CROSS REFERENCE TARBLE -- USER 5YMBOLS
S0e22s

TST3

012010

3CESH

1ST8S

012664

3414

3420

3483

3503

TSTN

Ole24ie

TST6

TST?7

TYPDS

TYPE

013012

3440

104405

S109

013106
104401

2972

2974

3918
4186

3922
4226

3944
Yee?z

3444
3605
3733
3842

3544
3618
3736
3843

88634
72938

= 000001
= 000002

20348
20358

001424

19258

1927%

T100

001426

TS00Jd

UNLD

2970

e4le
6826
72954

= 000004

729648

001430

001432

= 000400

3435»

2954

085102
104402
104404

T7.B3

TS0000

3475»

4489
477S

TYPOS = 104403

T10

33688

4488
4696

TYPERR
TYPOC =
TYPON =

T.AR2
7.8

3301

SO40
6070
657S
6937
8880

3120

20364
19268

1928%

11478

So41
6084
6701
6941
8881

3190

3545
3619
3737
3847
4507
4776

S047
6103
6757
6946
8830

3031

3945
4234

3946
4235

3994
4319

4ol11
4361

4012
4369

So48
6105
6769
6947
8899

5069
6113
6823
6949
8303

5075
6159
6824
6952
8908

5077
6164
6827
6956
8310

3805

4508
4780

3550
3628
3744
3857

Ys16
4810

3284

5254

Se0e

56185

6140

4462

5713

§737

3935

4039

4196

4784

sS0s8

5265

3633%

3664%

3956%

Y004 *

YOo0o6*

48ce*

4893

4951

3169
3215

3282
3318

3507%

4578

4636

SAPTHD
SASTAT=
SATYC
$ATY]
$ATY3

001000
#¥xx%¥ U
037564
03cb40
032646

1186%

1311
6618
6589
65874
6466

5081#

327S

4423

1124w
1204

S076»

3171

6119

4339

= 004000

72948

5110
6255
6859
7164

3162

4000

1942

WRTCHK= 000031
WRTGRT= 040000

6230

5107
6227
5848
7024
8919

3147

11538

11698
19S04#
11218
1123%

5201
6413
926
887S

S078
6182
6838
70e2
8916

6185

001454

004000
001470
000023
000027

S151
6405
6878
7292

4682
S03S

S410

32478

WLE
=
WORD
WRDATAR=
WRHERD=

4681
5032

4017
Yy4ys5

4?7%5?7
Y4757

3139

1932

4658
4973

Yrle
4370

Y341%

4330%

Hy14%

Y4y2Sx

4580%

4638%
4627 %

4884 %

4282
4258

4384
4718

4479

4739

4800

4333

4417

4g72

4630

4887

1317»
6633
6591
6588#

3376

3603
3716
3821
3883

S072

1152s
3134

1931

4600
4915

3233

3580
3718
3818
3892

4653
4653

$440
4440

= 020000
012010
= 000100

001434

4531
4839

3187

3579
3696
3817
3878

4595
4595

3669

001436

3578
3695
3808
3877

3787

3512

WDl

3163

3741

11158
1172#

Wpe

4526
4838

3117

3555
31
3802
3869

3402

UNLOARD= Q00007
UNS
= 040000

= 0M0000

4521
4811

3107

3554
3630
3790
3868

4356
4356

5508

3236

E?gg:

11838

3553
3629
3760
3858

4314
4314

4059
4059

égg;o

WOCNT

2989

3549
3620
3738
3848

4163
Y453

4182
Y45y

3398

3604
3732
3822
3917

4185
Yyei

4695
S036

S407
6481
6932
8876

8896

0058322

VERIFY

SEg 013

4569%

4895*

4q953x

$ayox

4945

8663
8663

4910
4910

4968
4968

4849»

5501
sS04

S083»

CZR6JEO UNIBUS RKe& DR PRT3

25-JAN-78 12:08

CZRBJE.P11

032656
001134
001264

SATY4Y
SAUTOB
$BASE

o g
BELL

1200

S22l%

18098

&M40S

6438

6769

£966

6493
7300

6500

6509%

BS1l4s

2881

2889

2895

2896

2897

1803s

1804

180Ss

1806%

1807%

ey
3187

3744

3790

4185

4186

3004*

3380

4996%

4997

BY1S

6461

032410
3632

6483%
e80es

00000

18014

CM3

cM4

SCNTLC
SCNTLG

00000

17718
180ls

2880

1802

034542
Q345854

6757
6823

6838
639684

6966

8% 6530

6966
S41

7027
§75

8875
65834%

Il
gt
SCRLF
001205
BLK

18618

e,
1811s

i
3117

$0820
B20
SDDKO
SODWl
SOOW10
SODWI!
DWl2
§00H13

064
034744
001274
001276
001320
00132
0013ec4
lgg

079%
4183
18628
18638
18728
18738
18748
18758

SODW1IS
SODWe
SODW3
sSOOWY
SODOWS
SDDfig

001332
001300
001302
001304
001306
00{3{3

1877¢%
1864#
18654
18668
18674
{Bfigl

SDOW9
~ODECVL

001316
035244

18714
7081

lgfis
403
032620
Q024022
023770

18598
$103
6544
1297
2895

3111
Slie
6579
Sill4s
S105s

001231
023734

1829%
3079

2918
3377

SDEVCT
ggsvn
AGN
BL
SENDRD
SEND.T

Rise

001220

e i
gENV
001e3
SENVM

SEOPCT

8238

o
IBéBI

e
1116

g
17818

SERRPC

SERRTB

00ssi2

8890

8903

8916

6413

6438

6482

6517

Bt8

2895*

001103

14]
70364

8880

18764

0237b¢

SERFLG

SEQ 0197

198

6973
S219%

SCHRARC
SCKSWR

001100

_PAGE

CROSS REFERENCE TABLE -- USER S5YMBOLS
6816
3056

18608

SCMTAG

Clb

12:16

6530
Sl6l*
2993

001270

g0le7e

25-JAN-78

6418
17888
1858

COW]

COW

MACY11l 30A(10S2)

17748

20788

72127%

2941x

S118%

6433

s
gl&é

5155

S1028

5106

fm
B407%

O
6408*

6047

8872

3103
4320

6463
S095s

6325

6354

b160%

&409

6468
6162

6596

6598
6204

6620

6356

63b2x

6384

6400*

6438

8924

8656

8663

8672

8680

8691

o
6438

8703

6853

6946

CZREJED UNIBUS RK& DR PRT3

CZR6JE.PI1
SERTTL

001112

SESCAb 001176

25-JAN-78 12:08
17788

18088

SETABL
SETEND
$FATAL
SFFLG
SFILLC

001230
001334
001212
033104
001156

6378%
18278
1323
18208
6587%
17998

SGOADR
$GDDAT
SGET42
SGTSWR

001120
001124
024012
033722

1782
17848
G111
68248

SICNT
SINTAG
SITEMB
F

001104
001135
001114
001206

1776
17838
1779¢
1812¢

SFILLS

001155

SHD_
= 000030
SHIBTS
001000
SHIOCT
034742

SLFLG
SLPADR
SLPERR
§MADR1
STADRS
§MADR3
$MADRY
$MAIL
SMAMS1
SMAMS2
$MAMS3
SMAMSH
SMBADR
SMFLG

SMNEW

$MSGAD
§MSGLG
§MSGTY
SMSWR
SMTYP1
SMTYP2
SMTYP3
SMTYP4
SMULT
SMXCNT

033103
001106
001110
001242
001246
001252
001256
001210
001240
001244
001250

17988

956
1318
7015%

30A(1052)

6406*

6438

B429

B431

2897%

6618

6627%

i
BGEISH

6370
6840
6417
6517

6ares
6860
6438
6356

6383
6373
8866
6966

7027

6191
S5i18

6360%¥
6049

6376%
60S2*

1323

18188

2917

S1S5

6594

6629%

6633

6604*
6609%
6602
69698

B6O7

18808
6624
6590%
6486

7298

6517

70268

B3e9x
6B2il*
6409%
6438

18258
18268
18198
6824
18408
18484
18518
18548
71838
6373

63838

3433

3521

6827

30368]

SOCNT
$OCTVL

033330
035046

42078
p673%
3448

$PASS

001216

18228

SOVER. 031314
001006
031272

Ea30

13218
624B¥

PAGE

HHIYN
2839%
2900%

63718

6517

6610

3038

oDBow ]

4209
6702%
7040

465
6715
7065

2317%

3439

6353
6249%

199

SEQ 0198

CROSS REFERENCE TABLE -- USER SYMBOLS

S463%

001224
001226
001210
034561
001241
001245
001251
(001255
03535
031730

0314572

D16

12:16

S459

033102

001002

&5-JAN-78

3001%

6628%
17768
17778
18458
18438
18528
1855+
1313
18398
18478
18508
1853
13198
6588%

SNUTST= = 00G00]

$PASTM
$PWRCT

MACY1l

6438

S473%

S483%

5493%

5513%

5517%

6381
6218

6383
6360

6377%

6383

6428

6375

6415

646l

6622

6b26*

308y

3250e

3252

3359
S00is

5003

S100%

5108

3523

3p7es
4eb7

49828

4984

Ea.

631

eoage

6259

4177

3678

S026

327

SO099%

3829

336l

38988

3428
3900

S121

3430

6lbl¥

6208%

6212

3496w

3978

3980

34638

3¥7L

5127

6367

6384

4083

40O8S

ELlGE

CZREJEQ UNIBUS RK& DR PRT3
CZREJE.P11
25-JAN-78 12:08

MACY11l 30A(1052)
@25-JAN-78
12:16
PAGE 200
CROSS REFERENCE TABLE -- USER SYMBO.S

SPURDN

031206

2893

6242H

SROCHR

(34174

6891

SROLIN

034264

SPWRUP
SGQUES

031220
001204

SRODEC=

SRDOCT
$RDSZ =
SRESRE
SRTNRD

#¥xxx%

Y-oT18108

Q34604
000022
(035SeM
(024034

69888
6907#
72498
S120s

035260

7139%

SR2A
= wexxsx U
SSAVRE
035466

$SBe2D

$SCOPE

7304

69148

(031452

$SETUP= 000137

72306
72338

2887

2850#
6399

SSTUP = 177777
SSUPRS
(035314
$SVLAD
031660
SSVPC = 000244

28s0s
3465
6345
1295#

SSWREG
001232
$SWRMK= 000000

6426
18308
67

$SWR

STESTN
STIMES
$TKB

STKCNT

STKINT

= 167400

001214
001174

001146

033334

033344

STKQEN= 033343
STKQIN
033336
STKQOU
033340
STK@SR
334¢

$TKS

001144

STMPO
STMP]
$TMP2

001160
001162
001164

STKSRV

$TMP3

$TMP4

$TMPS
TN

033414

001166

001170

001172

= 000022

q4ycs

035174

STPFLG
STPS

001157
001180

S1PB

001:ise

7301

625!

6517

6878

6949

6966

7024

7027

7302

7303

.
M

7308
7304

6334

2886
BY2S

2887
6433

4184
63748
1300

71568

2889
6761

2891
6766

2893
6767

289S
6797

2896
6973

2897

2899

963

964

365

967

8663
3266%

8671
3369%

8672
3436%

8680
3476%

8691
3504x

8703
3T36%

6742

6753

6778

6806

6833

960

961

6438
2920
368

6330

6331

6352

4104%

4217%

4675%

4993%

67228

6737%

6767

6784%

65898

67268
67238
67248
3746%

6792
6738%
6739%
3750

6903
£739
6901
3761%

3793

67378

6758

6790%
63902*
B725%

6791%
6903
6738

6794%

B77b

6792
6905*
6794

6782%

6804

6820*%

3752
4558
4ysaY

3754
4619
4529

3756
4785%
4534

Y4eox
4790
4539

18218
18078

3986%

17948

2863

3371%
2B896%
6062

3749

B375%
3047%

6079
3758

Bb6SHE
3098%

6721

3762

17938

6721

6743%

B774%

18018
18028
18038

3747%
4463%
4S11#

3750%
4469
4S1Y

3751%
4493%

4S47%

4568

4Yp18%

5513

5517

674C

Y611

67534

4elb6%

4617

4519
4835*

3167

3186

3200%

18048

4S5l2%

?gggi

ggggl

g&ggl

3371

3372

3414

3420

4160

4207

42178

4665

6506%

b6S17

180Ss
943

35368

STNPWR

6248%
6438

SEQ 0199

7086

17968

1800%
17958

956

3676
7087

B45S
6504

30e4

36898
71074

6517
6517

3036

3827

5023
6300#%

5098%

6905

4869

4871

Y922

3211%

3280

3295

3047%

3428

38368

46758

4B36*

6363*

1809

3836%

3911

6830

6842%

6BbE2H

H4BSE*
4815%
YSyyx

4784®
4873
Y4545

4BO7#
4934
4554

4556

4607

3408

S0Se6

4932

3298%

33le2%

3357%

3396*

3250

3266%

3301

39l1s

3978

39868

3082

3098s

3885

3891

3898

49938

1808

5383

4931%

3075
4982

6335

6373%

4926

4933*

3440

3689%

5182

6819

4883

34368

6370

S097

8663

3469

34768

4998

5001

3483

5023

3496

3359

3504s
4083

3369

3521

4104

CZREJEOQ UNIBUS RKE DR PRT3

CZReJE.PI11
S TRAP
S$TRAP2

$TRP

035562
(035604
= 000016

STRPAD

(035616

STISTM
S$STSTNM

STTYIN
STYPBN=
STYPDS
STYPE

STYPEC

STYPEX
$TYPOC
STYPON
$TYPOS

SUNIT

SUNITM
SUSWR
SVECT]

001004
001102

289l
72808
70848

72698
7291
72938

7274

7291

73058

13208
1773

73068

3372%

6916
7297
65298
64558

7296
6615

032412
033132
(033146
(033106

6510
66718
6670
66668

6512
7293
66738
7294

03234M

001010
001234
001260

00lebe
031464
000000
033331
xsxuxn U

= 058452

.SASTA= xxxxx% U
. $X
= 001000

6485

1824#
485l

25-JAN-78

6917

64392

2942
5332

72944

72958

72968

S087#%

S129%

_
63cS

73078

6929

73018

73028

7303%

6352

6374

6375

6380

6384

402

6438

3485
5423

3655
S4eu

3739
6652

3795
- S56S

3803
5573

3967
5581

1307

1308»

3005%
S3ce

3382%
§379

3389
5421

3399
Sy22

1295

12968

7295

6671%
6412

6681

67164

17708
6244
6966

1813
6300
6373

1959%
6383
70e7

1285»

1268

qug|
6591
1312

7300

6864

1857%
6339
S113s
6667%
6336

1280#

SEQ 0200

7299

6505

6515s

7e9e

7298

65048

7284

6145

9443
6588
1307

72978

69658

6130

12768

PAGE 201

6961

6499

6947

S6l18

1322
18318
185648

FL16

12:16

CROSS REFERENCE TABLE -- USER SYMBOLS

034520
sx¥xx# U
Q032414
032132

00l22e

SVECTe
$XTSTR
$SGET4=
SOFILL
SYOCAT=

25-JAN-78 12:08

MACY11 30A(10S2)

qySys

1960
6384
706Ss

qu4e2s

1961%
6438
71278

19638
6517
86558

1296

1964
65838
8938s

1300%

19658
6636#
8939

1301%

2884
6721
8092

2899
5725
9321

S00
6726
Q3es

1310%

Si2l
67278
9357

73048

4072
§589

13128

S§ies
6965
9381

CZR6JEO UNIBUS RK& DR PRT3

CZRBJE.PI11
CALIB

25-JaN-78 12:08

14108

CHECK

agggo

COMMEN

1087%

¢WD2
ORCLR
ENDCOM

6129

3567

3592

143

3872

383

3738

3812

3840

4061

40p2

ESCAPE
F.ERB

3
1087w
13478

4127

GETSWR

10878

S152

333

GETPR]

HDCHK3

EgsgL
MSG
MULT

NEWTST
OUNTRG

POP
PUSH
QKPACK
GKSEEK
QKSRT
GKUNLD
RDATA
ROHDR
REPORT
SBOUND

SCOPE

SETPRI
SETTRA
SETUP
Sk IP
SLASH
SPACE

STARS

1087s
14848

iggz:

30368
3523

qu;:

18870

25-JAN-78

Gl6

12:16

PAGE 203

SEQ 0201

CROSS REFERENCE TRBLE -- MACRO NAMES

3646

4057

4135

4312

4354

4400

4438

4593

4eSl

4755

4827

3238

3652

3370

3157

3038
36768
4984

3036

3886

3658

3662

3979

3595

3596

3667

3671

403

3930

W06

3998
4069

4002

4075

4304

4346

4430

4585

3678

3084
3827

32508
3829

3082

3250

3270
3082
S00ls

3854

382

3866

3598

373

23874
4009

3@82

3704

$13

328

3915

3934

3942

3950

4138

4139

4140

3708

40Ml

3784

4096

4050

4080

33598
3900

3361
3978

34288
3980

3430
4o83s

34698
408S

3471
42078

34968
4209

3498
4YebSs

3S2i»
4667

3359

3428

3469

3496

3521

3676

3827

3898

3978

4083

4207

6631
6593
3965

7016
6614
4071

7212
6990
4850

7254
7183

7234

4103

4216

3264

3359

10678
10878
17318
15098
17078
17478
i578s
14558
1087
16528

6570
6529
3484
419]
3988
3508

6630
6531
3654

6106
3665

4550

4864

4674

4992

5022

5096

3265

3368

3435

3475

3503

3535

3688

3835

3910

3985

7294

7295

7296

7298

7300

7301

7302

7303

7304

730S

7306

3075

3301

3414

3420

3440

3483

3885

3891

4160

4998

1304

1306

1313

1766

1813

1816

3036

304S

3082

3036

3046

1087¢
72848
10878
10878
10874

6894
7293
2879
3024

1087#%

1293

1087#

3097

3989

3252
38988

s001

9g82s

964

4958

498e

1882

37 g

4900

H4126

4037

3729

Y747

4122

4032

3723

4643

4108

3713

4028

4079

3601

4023

5003

3693

4665

13258

4908

;

1382
13358
10878

3651

MACY1l 30A(1052)

32s0

414l

4143

CZR6JED UNIBUS RK6 DR PRT3
CZR&JE.PLI
25-JAN-78 12:08

3367

10874%

TRMTRP
TYPBIN
TYPDEC
TYPNAM
TYPNUM
TYPOCS
TYPOCT
TYPTXT
WDATA
WRCHK
WRHDR

72848
1087
10878
1087
10878
10878
1087#
1087#
15368
1619
1434#

SSCHMTM

17648

SSCMRE

$SESCA
SSNEWT

gdrd

e88g

7263

230l

17648

10874
10878

4665

72848
2917s

o L£un
L0

TN
RIS

SSSET
SSSETM

3434

— @~ OMo
®

SWRSU

3428

ABS.

0S57S22

ERRORS DETECTED:

000
o

8853

H16

PAGE 204
25-JAN-78
12:16
CROSS REFERENCE TRBLE -- MACRO NARMES

MACY11l

30A(10S2)

3469

3474

3496

3502

2689

¢536

8547

gBY3

¢883

¢d8%

2884

70E8

3400

a739

3785

3803

5070

s408

6183

6228

4629

4886

4944

1803

1804

1805

1806

3250

3358

3428

3469

3496

3521

3676

3827

7295

7296

7298

7300

7301

7302

7303

3301

3414

3420

3440

3483

388S

3831

8862

3521

3534

SE@ 0202

3676

3687

3827

3834

3898

3909

2754

biaE

518t

3898

3978

4083

4207

7304

7308

7306

4180

4998

CZR6JEQ UNIBUS RK& DR _PRT3
CZReJE.P11
25-JAN-78 12:(8

I16

MACY11l 30A(10S2)
25-JAN-78
12:16 PAGE 205
CROSS REFFENCE TABLE -- MARCRO NAMES

SE@ 0203

DSK2:CZREJE . USKZ: CZRBJE . SEQ/SOL /CRF /NL : TOC/DOC=DSKM: CZR6JE.P11
RUN-TIME: 73 23 3_SECONDS
RUN-TIME FATIO: 336/55=6.0

CORE USEC:

30K

DOCUMENT PNGES:

EOF 1CZR6JESEQ

(59 PRGES)

203

00010000

780223

POP10 411!